2 subroutine sfmrs_99a3(x,qsq,upv,dnv,usea,dsea,str,chm,bot,glu)
4 #include "pdf/impdp.inc"
6 parameter(nx=49,nq=37,ntenth=23,np=8)
8 #include "pdf/expdp.inc"
9 + f(np,nx,nq+1),qq(nq),xx(nx),g(np),n0(np)
10 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,8)/
11 + .00398, .00281, 1.13349, .87009, .00000,
12 + .00000, .46282, .87866,
13 + .00414, .00288, 2.39462, .90644, .00000,
14 + .00000, .50374, .91516,
15 + .00439, .00298, 4.86914, .98396, .00000,
16 + .00000, .58780, .99289,
17 + .00456, .00306, 7.18230, 1.05812, .04485,
18 + .00000, .66652, 1.06719,
19 + .00475, .00314, 9.97655, 1.15355, .15419,
20 + .00000, .76657, 1.16276,
21 + .00491, .00321, 12.86069, 1.25173, .25897,
22 + .00000, .86865, 1.26106,
23 + .00506, .00329, 16.09878, 1.35837, .37463,
24 + .00000, .97895, 1.36781,
25 + .00523, .00336, 20.07357, 1.48590, .51493,
26 + .00000, 1.11028, 1.49545 /
27 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
28 + .00538, .00343, 23.94896, 1.61094, .64633,
29 + .00000, 1.23855, 1.62058,
30 + .00552, .00350, 28.11180, 1.74374, .78631,
31 + .00000, 1.37441, 1.75346,
32 + .00563, .00355, 31.75980, 1.85740, .90852,
33 + .00000, 1.49046, 1.86719,
34 + .00587, .00366, 40.21260, 2.12815, 1.19346,
35 + .02251, 1.76618, 2.13807,
36 + .00607, .00376, 48.17280, 2.39041, 1.46704,
37 + .34383, 2.03259, 2.40044,
38 + .00631, .00388, 58.23300, 2.71899, 1.81011,
39 + .73969, 2.36570, 2.72913,
40 + .00656, .00400, 70.08362, 3.10115, 2.20830,
41 + 1.15594, 2.75246, 3.11140,
42 + .00678, .00411, 82.08012, 3.48490, 2.60751,
43 + 1.57343, 3.14028, 3.49525 /
44 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
45 + .00701, .00422, 95.45453, 3.91030, 3.04980,
46 + 2.03410, 3.56969, 3.92073,
47 + .00721, .00432, 107.49789, 4.29315, 3.44589,
48 + 2.44197, 3.95581, 4.30365,
49 + .00744, .00444, 123.26027, 4.79463, 3.96293,
50 + 2.97231, 4.46116, 4.80521,
51 + .00765, .00455, 138.37077, 5.27436, 4.45824,
52 + 3.48269, 4.94426, 5.28501,
53 + .00785, .00465, 153.21355, 5.74536, 4.94465,
54 + 3.98422, 5.41828, 5.75606,
55 + .00810, .00477, 173.19432, 6.38400, 5.60012,
56 + 4.65358, 6.06069, 6.39477,
57 + .00834, .00489, 193.37692, 7.03023, 6.26385,
58 + 5.33322, 6.71039, 7.04106,
59 + .00856, .00501, 213.60817, 7.67855, 6.93088,
60 + 6.01858, 7.36190, 7.68944 /
61 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
62 + .00879, .00513, 234.73305, 8.36323, 7.63065,
63 + 6.73056, 8.04971, 8.37417,
64 + .00901, .00524, 256.65195, 9.07512, 8.35964,
65 + 7.47522, 8.76461, 9.08611,
66 + .00923, .00535, 278.46808, 9.78709, 9.08840,
67 + 8.21956, 9.47938, 9.79812,
68 + .00943, .00546, 299.77280, 10.48882, 9.80450,
69 + 8.94813, 10.18371, 10.49988,
70 + .00964, .00557, 322.30118, 11.23180, 10.56448,
71 + 9.72432, 10.92926, 11.24289,
72 + .00984, .00567, 345.01599, 11.99008, 11.33673,
73 + 10.50851, 11.69003, 12.00120,
74 + .01004, .00578, 367.71375, 12.74806, 12.11092,
75 + 11.29828, 12.45034, 12.75921,
76 + .01022, .00587, 389.56552, 13.48698, 12.86255,
77 + 12.06095, 13.19144, 13.49815 /
78 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
79 + .01041, .00597, 412.56064, 14.26578, 13.65631,
80 + 12.86890, 13.97241, 14.27698,
81 + .01060, .00607, 435.75357, 15.05866, 14.46283,
82 + 13.68788, 14.76740, 15.06988,
83 + .01078, .00617, 458.56250, 15.84258, 15.26022,
84 + 14.49775, 15.55332, 15.85382,
85 + .01096, .00626, 480.88547, 16.61295, 16.04431,
86 + 15.29506, 16.32555, 16.62420,
87 + .01113, .00635, 503.71185, 17.40963, 16.85293,
88 + 16.11444, 17.12410, 17.42090 /
89 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
90 + .00559, .00374, 1.04269, .74549, .00000,
91 + .00000, .39602, .75065,
92 + .00582, .00385, 2.17439, .77850, .00000,
93 + .00000, .43272, .78375,
94 + .00615, .00400, 4.35078, .84644, .00000,
95 + .00000, .50591, .85182,
96 + .00640, .00411, 6.34640, .91006, .03812,
97 + .00000, .57319, .91553,
98 + .00666, .00423, 8.71795, .99070, .13060,
99 + .00000, .65753, .99626,
100 + .00688, .00434, 11.13159, 1.07268, .21812,
101 + .00000, .74262, 1.07831,
102 + .00710, .00444, 13.81005, 1.16100, .31382,
103 + .00000, .83386, 1.16670,
104 + .00733, .00456, 17.06043, 1.26578, .42890,
105 + .00000, .94167, 1.27155 /
106 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
107 + .00753, .00465, 20.19419, 1.36767, .53572,
108 + .00000, 1.04613, 1.37350,
109 + .00772, .00475, 23.52866, 1.47515, .64871,
110 + .00000, 1.15605, 1.48104,
111 + .00788, .00483, 26.42839, 1.56669, .74680,
112 + .00000, 1.24948, 1.57262,
113 + .00821, .00499, 33.06954, 1.78294, .97355,
114 + .01839, 1.46967, 1.78895,
115 + .00850, .00513, 39.23621, 1.99048, 1.18914,
116 + .27106, 1.68050, 1.99656,
117 + .00882, .00530, 46.93472, 2.24822, 1.45703,
118 + .58045, 1.94182, 2.25438,
119 + .00916, .00547, 55.88934, 2.54520, 1.76500,
120 + .90205, 2.24243, 2.55143,
121 + .00947, .00563, 64.84702, 2.84080, 2.07101,
122 + 1.22166, 2.54124, 2.84710 /
123 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
124 + .00979, .00579, 74.72460, 3.16580, 2.40725,
125 + 1.57131, 2.86940, 3.17216,
126 + .01006, .00592, 83.53114, 3.45609, 2.70608,
127 + 1.87843, 3.16227, 3.46251,
128 + .01038, .00609, 94.94534, 3.83351, 3.09323,
129 + 2.27471, 3.54274, 3.83998,
130 + .01067, .00624, 105.78436, 4.19194, 3.46146,
131 + 2.65335, 3.90381, 4.19846,
132 + .01094, .00638, 116.34311, 4.54157, 3.82079,
133 + 3.02305, 4.25582, 4.54814,
134 + .01128, .00655, 130.42398, 5.01221, 4.30144,
135 + 3.51269, 4.72942, 5.01883,
136 + .01160, .00672, 144.51488, 5.48496, 4.78466,
137 + 4.00632, 5.20488, 5.49162,
138 + .01191, .00688, 158.52190, 5.95609, 5.26717,
139 + 4.50097, 5.67851, 5.96280 /
140 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
141 + .01222, .00704, 173.01801, 6.45020, 5.76980,
142 + 5.01102, 6.17509, 6.45696,
143 + .01252, .00720, 187.94463, 6.96082, 6.29033,
144 + 5.54144, 6.68806, 6.96761,
145 + .01281, .00735, 202.69150, 7.46846, 6.80768,
146 + 6.06857, 7.19789, 7.47528,
147 + .01309, .00750, 216.98630, 7.96588, 7.31308,
148 + 6.58144, 7.69735, 7.97274,
149 + .01337, .00765, 232.01027, 8.48992, 7.84690,
150 + 7.12537, 8.22340, 8.49681,
151 + .01364, .00779, 247.04808, 9.02170, 8.38620,
152 + 7.67157, 8.75713, 9.02862,
153 + .01391, .00793, 261.99329, 9.55085, 8.92456,
154 + 8.21949, 9.28811, 9.55780,
155 + .01416, .00807, 276.28494, 10.06403, 9.44444,
156 + 8.74565, 9.80299, 10.07100 /
157 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
158 + .01442, .00820, 291.25055, 10.60266, 9.99134,
159 + 9.30100, 10.34332, 10.60966,
160 + .01467, .00834, 306.25415, 11.14843, 10.54439,
161 + 9.86120, 10.89075, 11.15545,
162 + .01492, .00847, 320.93369, 11.68577, 11.08895,
163 + 10.41294, 11.42965, 11.69282,
164 + .01515, .00859, 335.23322, 12.21178, 11.62245,
165 + 10.95418, 11.95712, 12.21885,
166 + .01539, .00872, 349.77222, 12.75337, 12.17015,
167 + 11.50780, 12.50017, 12.76045 /
168 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
169 + .00784, .00498, .95997, .63840, .00000,
170 + .00000, .33889, .64116,
171 + .00816, .00514, 1.97537, .66827, .00000,
172 + .00000, .37174, .67108,
173 + .00863, .00537, 3.88855, .72775, .00000,
174 + .00000, .43544, .73064,
175 + .00897, .00553, 5.60857, .78230, .03240,
176 + .00000, .49293, .78524,
177 + .00933, .00571, 7.61860, .85039, .11059,
178 + .00000, .56399, .85339,
179 + .00964, .00587, 9.63503, .91876, .18367,
180 + .00000, .63485, .92180,
181 + .00994, .00602, 11.84623, .99180, .26280,
182 + .00000, .71022, .99488,
183 + .01026, .00618, 14.49837, 1.07775, .35713,
184 + .00000, .79858, 1.08088 /
185 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
186 + .01054, .00632, 17.02610, 1.16059, .44390,
187 + .00000, .88347, 1.16376,
188 + .01081, .00646, 19.68981, 1.24738, .53501,
189 + .00000, .97220, 1.25058,
190 + .01103, .00657, 21.98818, 1.32091, .61367,
191 + .00000, 1.04724, 1.32414,
192 + .01149, .00680, 27.18948, 1.49315, .79388,
193 + .01502, 1.22259, 1.49643,
194 + .01189, .00701, 31.94955, 1.65686, .96352,
195 + .21359, 1.38891, 1.66020,
196 + .01233, .00724, 37.81785, 1.85835, 1.17238,
197 + .45529, 1.59323, 1.86174,
198 + .01280, .00748, 44.55581, 2.08831, 1.41014,
199 + .70359, 1.82605, 2.09174,
200 + .01323, .00770, 51.21439, 2.31513, 1.64423,
201 + .94807, 2.05540, 2.31861 /
202 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
203 + .01367, .00793, 58.47488, 2.56242, 1.89928,
204 + 1.21320, 2.30518, 2.56595,
205 + .01403, .00812, 64.88225, 2.78161, 2.12418,
206 + 1.44419, 2.52639, 2.78518,
207 + .01448, .00835, 73.10420, 3.06442, 2.41333,
208 + 1.73993, 2.81159, 3.06803,
209 + .01487, .00856, 80.83652, 3.33100, 2.68633,
210 + 2.02042, 3.08025, 3.33465,
211 + .01524, .00875, 88.30501, 3.58934, 2.95100,
212 + 2.29251, 3.34045, 3.59302,
213 + .01571, .00900, 98.16848, 3.93449, 3.30235,
214 + 2.65003, 3.68791, 3.93822,
215 + .01615, .00923, 107.94497, 4.27860, 3.65300,
216 + 3.00784, 4.03415, 4.28237,
217 + .01657, .00945, 117.58022, 4.61923, 4.00083,
218 + 3.36408, 4.37673, 4.62303 /
219 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
220 + .01698, .00968, 127.46019, 4.97393, 4.36053,
221 + 3.72860, 4.73336, 4.97778,
222 + .01740, .00990, 137.55438, 5.33820, 4.73080,
223 + 4.10546, 5.09946, 5.34208,
224 + .01779, .01011, 147.45093, 5.69816, 5.09663,
225 + 4.47777, 5.46114, 5.70208,
226 + .01817, .01030, 156.97058, 6.04877, 5.45185,
227 + 4.83775, 5.81333, 6.05271,
228 + .01854, .01051, 166.91379, 6.41626, 5.82524,
229 + 5.21778, 6.18239, 6.42024,
230 + .01892, .01070, 176.78999, 6.78700, 6.20018,
231 + 5.59699, 6.55465, 6.79101,
232 + .01927, .01090, 186.55150, 7.15422, 6.57288,
233 + 5.97587, 6.92329, 7.15825,
234 + .01961, .01108, 195.82010, 7.50843, 6.93078,
235 + 6.33758, 7.27884, 7.51249 /
236 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
237 + .01996, .01126, 205.47739, 7.87866, 7.30580,
238 + 6.71795, 7.65039, 7.88275,
239 + .02030, .01145, 215.09810, 8.25197, 7.68317,
240 + 7.09969, 8.02499, 8.25608,
241 + .02063, .01162, 224.46112, 8.61794, 8.05319,
242 + 7.47412, 8.39217, 8.62208,
243 + .02094, .01179, 233.53778, 8.97478, 8.41432,
244 + 7.84006, 8.75016, 8.97894,
245 + .02126, .01196, 242.71086, 9.34053, 8.78333,
246 + 8.21254, 9.11704, 9.34471 /
247 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
248 + .00955, .00590, .91530, .58285, .00000,
249 + .00000, .30940, .58463,
250 + .00994, .00609, 1.86826, .61097, .00000,
251 + .00000, .34015, .61279,
252 + .01051, .00638, 3.64201, .66596, .00000,
253 + .00000, .39888, .66784,
254 + .01093, .00659, 5.21801, .71580, .02945,
255 + .00000, .45130, .71771,
256 + .01137, .00681, 7.04133, .77745, .10031,
257 + .00000, .51557, .77940,
258 + .01174, .00700, 8.85475, .83889, .16605,
259 + .00000, .57920, .84088,
260 + .01211, .00719, 10.82926, .90419, .23684,
261 + .00000, .64654, .90622,
262 + .01250, .00739, 13.18102, .98066, .32077,
263 + .00000, .72513, .98272 /
264 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
265 + .01284, .00756, 15.40706, 1.05397, .39756,
266 + .00000, .80024, 1.05606,
267 + .01316, .00773, 17.73934, 1.13046, .47785,
268 + .00000, .87842, 1.13258,
269 + .01342, .00787, 19.74238, 1.19505, .54693,
270 + .00000, .94433, 1.19720,
271 + .01398, .00816, 24.24293, 1.34559, .70436,
272 + .01334, 1.09760, 1.34778,
273 + .01446, .00841, 28.32585, 1.48785, .85169,
274 + .18574, 1.24214, 1.49008,
275 + .01500, .00869, 33.32161, 1.66199, 1.03207,
276 + .39483, 1.41875, 1.66427,
277 + .01557, .00899, 39.01345, 1.85960, 1.23621,
278 + .60817, 1.61885, 1.86192,
279 + .01609, .00926, 44.59738, 2.05346, 1.43611,
280 + .81706, 1.81491, 2.05582 /
281 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
282 + .01661, .00954, 50.64524, 2.26376, 1.65281,
283 + 1.04242, 2.02738, 2.26616,
284 + .01705, .00977, 55.94989, 2.44930, 1.84300,
285 + 1.23781, 2.21468, 2.45174,
286 + .01759, .01005, 62.71606, 2.68760, 2.08641,
287 + 1.48680, 2.45506, 2.69008,
288 + .01806, .01031, 69.04246, 2.91124, 2.31520,
289 + 1.72193, 2.68050, 2.91375,
290 + .01850, .01054, 75.12180, 3.12710, 2.53616,
291 + 1.94912, 2.89798, 3.12965,
292 + .01906, .01084, 83.10382, 3.41423, 2.82815,
293 + 2.24623, 3.18711, 3.41682,
294 + .01959, .01112, 90.97019, 3.69921, 3.11827,
295 + 2.54230, 3.47394, 3.70184,
296 + .02009, .01139, 98.68324, 3.98017, 3.40494,
297 + 2.83592, 3.75660, 3.98284 /
298 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
299 + .02059, .01165, 106.54777, 4.27150, 3.70008,
300 + 3.13498, 4.04959, 4.27421,
301 + .02109, .01192, 114.54533, 4.56958, 4.00281,
302 + 3.44308, 4.34926, 4.57232,
303 + .02156, .01217, 122.35028, 4.86307, 4.30084,
304 + 3.74638, 4.64423, 4.86585,
305 + .02200, .01241, 129.82292, 5.14791, 4.58917,
306 + 4.03854, 4.93044, 5.15071,
307 + .02245, .01265, 137.59912, 5.44556, 4.89139,
308 + 4.34612, 5.22945, 5.44840,
309 + .02290, .01289, 145.28665, 5.74478, 5.19375,
310 + 4.65187, 5.52999, 5.74765,
311 + .02333, .01312, 152.86006, 6.04036, 5.49354,
312 + 4.95662, 5.82680, 6.04326,
313 + .02373, .01334, 160.01984, 6.32454, 5.78045,
314 + 5.24652, 6.11213, 6.32747 /
315 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
316 + .02414, .01356, 167.45740, 6.62084, 6.08040,
317 + 5.55072, 6.40957, 6.62381,
318 + .02455, .01378, 174.83842, 6.91873, 6.38131,
319 + 5.85507, 6.70857, 6.92172,
320 + .02494, .01399, 181.99852, 7.21001, 6.67563,
321 + 6.15285, 7.00091, 7.21303,
322 + .02531, .01419, 188.91951, 7.49336, 6.96223,
323 + 6.44325, 7.28524, 7.49641,
324 + .02569, .01439, 195.88782, 7.78298, 7.25424,
325 + 6.73794, 7.57584, 7.78605 /
326 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
327 + .01099, .00665, .88530, .54631, .00000,
328 + .00000, .29007, .54756,
329 + .01143, .00687, 1.79631, .57322, .00000,
330 + .00000, .31940, .57450,
331 + .01209, .00721, 3.47712, .62522, .00000,
332 + .00000, .37482, .62655,
333 + .01257, .00746, 4.95791, .67194, .02751,
334 + .00000, .42392, .67332,
335 + .01307, .00772, 6.65872, .72938, .09359,
336 + .00000, .48375, .73079,
337 + .01351, .00794, 8.33980, .78631, .15457,
338 + .00000, .54268, .78775,
339 + .01393, .00816, 10.16087, .84660, .21995,
340 + .00000, .60484, .84807,
341 + .01437, .00839, 12.31900, .91694, .29719,
342 + .00000, .67711, .91845 /
343 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
344 + .01476, .00859, 14.35162, .98413, .36757,
345 + .00000, .74594, .98566,
346 + .01514, .00879, 16.47239, 1.05400, .44095,
347 + .00000, .81736, 1.05556,
348 + .01544, .00895, 18.28769, 1.11288, .50392,
349 + .00000, .87745, 1.11446,
350 + .01607, .00928, 22.34532, 1.24959, .64690,
351 + .01226, 1.01664, 1.25121,
352 + .01662, .00957, 26.00317, 1.37824, .78014,
353 + .16816, 1.14736, 1.37991,
354 + .01724, .00990, 30.45460, 1.53511, .94261,
355 + .35678, 1.30648, 1.53682,
356 + .01789, .01024, 35.49798, 1.71238, 1.12573,
357 + .54827, 1.48602, 1.71413,
358 + .01848, .01056, 40.41973, 1.88562, 1.30432,
359 + .73503, 1.66125, 1.88741 /
360 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
361 + .01908, .01088, 45.72463, 2.07286, 1.49722,
362 + .93576, 1.85046, 2.07469,
363 + .01958, .01114, 50.35703, 2.23751, 1.66596,
364 + 1.10920, 2.01671, 2.23938,
365 + .02019, .01147, 56.24011, 2.44828, 1.88119,
366 + 1.32947, 2.22937, 2.45019,
367 + .02073, .01176, 61.71777, 2.64546, 2.08287,
368 + 1.53682, 2.42817, 2.64740,
369 + .02123, .01202, 66.96220, 2.83524, 2.27709,
370 + 1.73660, 2.61942, 2.83722,
371 + .02187, .01237, 73.81872, 3.08686, 2.53290,
372 + 1.99699, 2.87286, 3.08889,
373 + .02247, .01269, 80.54790, 3.33580, 2.78627,
374 + 2.25564, 3.12348, 3.33787,
375 + .02304, .01299, 87.12146, 3.58053, 3.03592,
376 + 2.51143, 3.36974, 3.58264 /
377 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
378 + .02361, .01330, 93.79683, 3.83350, 3.29213,
379 + 2.77110, 3.62421, 3.83564,
380 + .02417, .01360, 100.56206, 4.09163, 3.55424,
381 + 3.03795, 3.88378, 4.09382,
382 + .02470, .01389, 107.14238, 4.34514, 3.81162,
383 + 3.29996, 4.13863, 4.34736,
384 + .02521, .01416, 113.42091, 4.59053, 4.05997,
385 + 3.55166, 4.38526, 4.59279,
386 + .02572, .01444, 119.93719, 4.84642, 4.31975,
387 + 3.81612, 4.64238, 4.84871,
388 + .02622, .01471, 126.35689, 5.10298, 4.57894,
389 + 4.07827, 4.90013, 5.10531,
390 + .02671, .01497, 132.66655, 5.35594, 4.83548,
391 + 4.33913, 5.15420, 5.35830,
392 + .02716, .01522, 138.61221, 5.59856, 5.08039,
393 + 4.58664, 5.39786, 5.60095 /
394 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
395 + .02763, .01547, 144.77559, 5.85109, 5.33600,
396 + 4.84593, 5.65142, 5.85351,
397 + .02809, .01572, 150.87445, 6.10442, 5.59188,
398 + 5.10478, 5.90576, 6.10687,
399 + .02853, .01596, 156.77707, 6.35168, 5.84169,
400 + 5.35758, 6.15397, 6.35416,
401 + .02895, .01618, 162.47044, 6.59181, 6.08455,
402 + 5.60373, 6.39499, 6.59432,
403 + .02938, .01641, 168.18689, 6.83675, 6.33149,
404 + 5.85297, 6.64082, 6.83929 /
405 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
406 + .01225, .00730, .86304, .51949, .00000,
407 + .00000, .27593, .52043,
408 + .01275, .00755, 1.74280, .54549, .00000,
409 + .00000, .30419, .54646,
410 + .01348, .00793, 3.35474, .59527, .00000,
411 + .00000, .35717, .59629,
412 + .01401, .00821, 4.76542, .63971, .02610,
413 + .00000, .40383, .64076,
414 + .01457, .00850, 6.37649, .69406, .08867,
415 + .00000, .46042, .69515,
416 + .01506, .00876, 7.96111, .74771, .14618,
417 + .00000, .51594, .74884,
418 + .01552, .00900, 9.67080, .80436, .20765,
419 + .00000, .57433, .80551,
420 + .01602, .00926, 11.68894, .87027, .28005,
421 + .00000, .64205, .87145 /
422 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
423 + .01645, .00949, 13.58228, .93303, .34583,
424 + .00000, .70634, .93424,
425 + .01687, .00971, 15.55127, .99814, .41424,
426 + .00000, .77289, .99938,
427 + .01720, .00989, 17.23223, 1.05292, .47284,
428 + .00000, .82879, 1.05418,
429 + .01791, .01026, 20.97426, 1.17971, .60549,
430 + .01148, .95790, 1.18101,
431 + .01852, .01059, 24.33079, 1.29865, .72868,
432 + .15565, 1.07876, 1.29999,
433 + .01920, .01095, 28.39812, 1.44322, .87845,
434 + .32974, 1.22543, 1.44461,
435 + .01992, .01134, 32.98607, 1.60606, 1.04668,
436 + .50580, 1.39038, 1.60749,
437 + .02058, .01169, 37.44486, 1.76470, 1.21026,
438 + .67697, 1.55089, 1.76618 /
439 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
440 + .02124, .01204, 42.23244, 1.93569, 1.38644,
441 + .86041, 1.72371, 1.93721,
442 + .02180, .01234, 46.39850, 2.08565, 1.54013,
443 + 1.01848, 1.87515, 2.08721,
444 + .02247, .01270, 51.67126, 2.27713, 1.73567,
445 + 1.21870, 2.06838, 2.27873,
446 + .02307, .01302, 56.56448, 2.45580, 1.91844,
447 + 1.40671, 2.24857, 2.45744,
448 + .02362, .01332, 61.23573, 2.62740, 2.09407,
449 + 1.58746, 2.42153, 2.62908,
450 + .02433, .01370, 67.32244, 2.85433, 2.32478,
451 + 1.82240, 2.65014, 2.85605,
452 + .02499, .01406, 73.27657, 3.07828, 2.55273,
453 + 2.05521, 2.87564, 3.08005,
454 + .02562, .01440, 79.07608, 3.29793, 2.77683,
455 + 2.28494, 3.09672, 3.29975 /
456 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
457 + .02625, .01474, 84.94615, 3.52444, 3.00624,
458 + 2.51753, 3.32461, 3.52629,
459 + .02687, .01507, 90.87940, 3.75508, 3.24046,
460 + 2.75608, 3.55660, 3.75698,
461 + .02746, .01539, 96.63532, 3.98113, 3.46999,
462 + 2.98983, 3.78389, 3.98306,
463 + .02801, .01569, 102.11241, 4.19949, 3.69099,
464 + 3.21390, 4.00340, 4.20146,
465 + .02857, .01600, 107.78486, 4.42681, 3.92180,
466 + 3.44898, 4.23186, 4.42882,
467 + .02913, .01630, 113.35782, 4.65427, 4.15161,
468 + 3.68147, 4.46042, 4.65632,
469 + .02966, .01658, 118.82533, 4.87819, 4.37874,
470 + 3.91252, 4.68537, 4.88027,
471 + .03016, .01686, 123.96405, 5.09256, 4.59514,
472 + 4.13129, 4.90070, 5.09468 /
473 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
474 + .03067, .01713, 129.28189, 5.31538, 4.82071,
475 + 4.36020, 5.12448, 5.31753,
476 + .03118, .01741, 134.53226, 5.53852, 5.04612,
477 + 4.58831, 5.34855, 5.54071,
478 + .03166, .01767, 139.60414, 5.75601, 5.26588,
479 + 4.81077, 5.56692, 5.75823,
480 + .03213, .01792, 144.48814, 5.96694, 5.47926,
481 + 5.02711, 5.77867, 5.96919,
482 + .03259, .01818, 149.38087, 6.18175, 5.69584,
483 + 5.24578, 5.99431, 6.18403 /
484 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
485 + .01717, .00979, .79995, .44401, .00000,
486 + .00000, .23633, .44451,
487 + .01786, .01016, 1.58945, .46730, .00000,
488 + .00000, .26149, .46784,
489 + .01889, .01071, 3.00417, .51069, .00000,
490 + .00000, .30751, .51129,
491 + .01964, .01111, 4.21609, .54867, .02213,
492 + .00000, .34732, .54930,
493 + .02042, .01153, 5.57519, .59439, .07492,
494 + .00000, .39487, .59507,
495 + .02110, .01190, 6.89120, .63892, .12281,
496 + .00000, .44093, .63964,
497 + .02175, .01225, 8.29296, .68550, .17347,
498 + .00000, .48894, .68626,
499 + .02244, .01262, 9.92687, .73921, .23261,
500 + .00000, .54413, .74002 /
501 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
502 + .02304, .01295, 11.44065, .78986, .28581,
503 + .00000, .59602, .79070,
504 + .02362, .01326, 12.99852, .84200, .34073,
505 + .00000, .64934, .84288,
506 + .02408, .01351, 14.31740, .88561, .38749,
507 + .00000, .69387, .88652,
508 + .02506, .01405, 17.21517, .98562, .49234,
509 + .00935, .79577, .98658,
510 + .02590, .01451, 19.77287, 1.07844, .58869,
511 + .12221, .89016, 1.07946,
512 + .02685, .01502, 22.83006, 1.19017, .70467,
513 + .25768, 1.00359, 1.19125,
514 + .02784, .01556, 26.23031, 1.31471, .83359,
515 + .39302, 1.12984, 1.31585,
516 + .02875, .01605, 29.49119, 1.43486, .95771,
517 + .52331, 1.25150, 1.43606 /
518 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
519 + .02966, .01655, 32.94991, 1.56319, 1.09018,
520 + .66165, 1.38131, 1.56445,
521 + .03042, .01697, 35.92599, 1.67479, 1.20477,
522 + .77982, 1.49411, 1.67610,
523 + .03134, .01747, 39.65135, 1.81612, 1.34935,
524 + .92826, 1.63686, 1.81750,
525 + .03216, .01792, 43.07214, 1.94695, 1.48342,
526 + 1.06656, 1.76892, 1.94838,
527 + .03291, .01833, 46.30743, 2.07172, 1.61135,
528 + 1.19858, 1.89478, 2.07320,
529 + .03387, .01885, 50.47730, 2.23538, 1.77800,
530 + 1.36871, 2.05980, 2.23692,
531 + .03478, .01935, 54.51362, 2.39560, 1.94136,
532 + 1.53598, 2.22127, 2.39720,
533 + .03563, .01982, 58.40839, 2.55162, 2.10084,
534 + 1.69989, 2.37844, 2.55328 /
535 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
536 + .03648, .02028, 62.30882, 2.71124, 2.26275,
537 + 1.86443, 2.53918, 2.71296,
538 + .03732, .02074, 66.21754, 2.87271, 2.42700,
539 + 2.03212, 2.70172, 2.87449,
540 + .03811, .02118, 69.97723, 3.02993, 2.58693,
541 + 2.19538, 2.85995, 3.03177,
542 + .03886, .02159, 73.52297, 3.18081, 2.73987,
543 + 2.35080, 3.01175, 3.18270,
544 + .03962, .02200, 77.17065, 3.33704, 2.89880,
545 + 2.51306, 3.16890, 3.33898,
546 + .04036, .02241, 80.72178, 3.49234, 3.05594,
547 + 2.67239, 3.32509, 3.49434,
548 + .04108, .02280, 84.18540, 3.64450, 3.21057,
549 + 2.83006, 3.47808, 3.64655,
550 + .04175, .02317, 87.41275, 3.78929, 3.35696,
551 + 2.97836, 3.62363, 3.79138 /
552 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
553 + .04244, .02354, 90.73483, 3.93912, 3.50892,
554 + 3.13292, 3.77424, 3.94127,
555 + .04311, .02391, 93.98993, 4.08836, 3.65992,
556 + 3.28607, 3.92423, 4.09055,
557 + .04376, .02427, 97.11550, 4.23315, 3.80647,
558 + 3.43475, 4.06972, 4.23538,
559 + .04438, .02461, 100.10902, 4.37298, 3.94819,
560 + 3.57876, 4.21021, 4.37526,
561 + .04500, .02495, 103.08524, 4.51464, 4.09125,
562 + 3.72350, 4.35254, 4.51697 /
563 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
564 + .02408, .01323, .74774, .37920, .00000,
565 + .00000, .20263, .37999,
566 + .02507, .01377, 1.45667, .39995, .00000,
567 + .00000, .22496, .40081,
568 + .02651, .01457, 2.69679, .43763, .00000,
569 + .00000, .26485, .43858,
570 + .02756, .01515, 3.73530, .46997, .01872,
571 + .00000, .29873, .47099,
572 + .02865, .01575, 4.87763, .50828, .06312,
573 + .00000, .33858, .50938,
574 + .02959, .01627, 5.96550, .54508, .10286,
575 + .00000, .37667, .54626,
576 + .03050, .01678, 7.10861, .58320, .14448,
577 + .00000, .41599, .58444,
578 + .03146, .01731, 8.42335, .62674, .19259,
579 + .00000, .46077, .62805 /
580 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
581 + .03230, .01777, 9.62532, .66737, .23545,
582 + .00000, .50245, .66874,
583 + .03310, .01822, 10.84866, .70886, .27933,
584 + .00000, .54493, .71029,
585 + .03374, .01857, 11.87522, .74336, .31646,
586 + .00000, .58020, .74484,
587 + .03510, .01933, 14.09939, .82167, .39891,
588 + .00758, .66010, .82325,
589 + .03627, .01997, 16.02884, .89355, .47384,
590 + .09553, .73330, .89522,
591 + .03757, .02070, 18.30172, .97918, .56310,
592 + .20044, .82035, .98094,
593 + .03893, .02145, 20.79203, 1.07358, .66124,
594 + .30393, .91619, 1.07544,
595 + .04017, .02214, 23.14664, 1.16371, .75475,
596 + .40254, 1.00759, 1.16567 /
597 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
598 + .04142, .02284, 25.61171, 1.25906, .85361,
599 + .50625, 1.10419, 1.26112,
600 + .04246, .02341, 27.70740, 1.34126, .93835,
601 + .59403, 1.18740, 1.34340,
602 + .04372, .02411, 30.29984, 1.44444, 1.04435,
603 + .70333, 1.29177, 1.44668,
604 + .04484, .02473, 32.65351, 1.53916, 1.14182,
605 + .80432, 1.38752, 1.54148,
606 + .04586, .02530, 34.85741, 1.62882, 1.23414,
607 + .90002, 1.47810, 1.63122,
608 + .04716, .02602, 37.66451, 1.74541, 1.35334,
609 + 1.02223, 1.59584, 1.74791,
610 + .04839, .02670, 40.35104, 1.85860, 1.46922,
611 + 1.14140, 1.71007, 1.86119,
612 + .04954, .02734, 42.91744, 1.96799, 1.58150,
613 + 1.25731, 1.82043, 1.97067 /
614 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
615 + .05068, .02797, 45.45756, 2.07896, 1.69450,
616 + 1.37263, 1.93234, 2.08173,
617 + .05181, .02860, 47.97963, 2.19044, 1.80836,
618 + 1.48937, 2.04473, 2.19330,
619 + .05288, .02919, 50.38315, 2.29824, 1.91846,
620 + 1.60225, 2.15338, 2.30119,
621 + .05389, .02974, 52.62758, 2.40097, 2.02300,
622 + 1.70892, 2.25688, 2.40399,
623 + .05490, .03031, 54.92005, 2.50675, 2.13105,
624 + 1.81971, 2.36344, 2.50986,
625 + .05590, .03086, 57.12881, 2.61116, 2.23709,
626 + 1.92767, 2.46859, 2.61434,
627 + .05685, .03138, 59.27003, 2.71295, 2.34096,
628 + 2.03404, 2.57108, 2.71621,
629 + .05775, .03188, 61.24557, 2.80917, 2.43861,
630 + 2.13336, 2.66795, 2.81250 /
631 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
632 + .05866, .03238, 63.26753, 2.90829, 2.53954,
633 + 2.23646, 2.76773, 2.91169,
634 + .05956, .03288, 65.23174, 3.00644, 2.63924,
635 + 2.33798, 2.86651, 3.00992,
636 + .06042, .03335, 67.10517, 3.10120, 2.73552,
637 + 2.43607, 2.96186, 3.10474,
638 + .06124, .03380, 68.88885, 3.19231, 2.82823,
639 + 2.53068, 3.05353, 3.19591,
640 + .06206, .03426, 70.64667, 3.28408, 2.92126,
641 + 2.62518, 3.14587, 3.28776 /
642 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
643 + .02940, .01589, .72384, .34576, .00000,
644 + .00000, .18536, .34702,
645 + .03060, .01656, 1.38981, .36510, .00000,
646 + .00000, .20613, .36645,
647 + .03236, .01755, 2.53690, .39969, .00000,
648 + .00000, .24276, .40119,
649 + .03364, .01827, 3.48392, .42905, .01693,
650 + .00000, .27352, .43065,
651 + .03497, .01901, 4.51312, .46349, .05696,
652 + .00000, .30938, .46520,
653 + .03611, .01966, 5.48310, .49631, .09251,
654 + .00000, .34338, .49811,
655 + .03721, .02027, 6.49371, .53009, .12950,
656 + .00000, .37826, .53198,
657 + .03838, .02093, 7.64642, .56846, .17201,
658 + .00000, .41777, .57044 /
659 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
660 + .03939, .02149, 8.69152, .60403, .20964,
661 + .00000, .45430, .60610,
662 + .04036, .02204, 9.74788, .64017, .24799,
663 + .00000, .49135, .64232,
664 + .04114, .02247, 10.62945, .67011, .28032,
665 + .00000, .52200, .67232,
666 + .04278, .02339, 12.52279, .73765, .35167,
667 + .00669, .59100, .74000,
668 + .04418, .02418, 14.14737, .79922, .41607,
669 + .08240, .65378, .80169,
670 + .04576, .02506, 16.04370, .87210, .49231,
671 + .17238, .72797, .87469,
672 + .04740, .02598, 18.10199, .95189, .57555,
673 + .26046, .80909, .95462,
674 + .04888, .02681, 20.03087, 1.02759, .65437,
675 + .34387, .88596, 1.03044 /
676 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
677 + .05038, .02765, 22.03373, 1.10720, .73720,
678 + .43106, .96672, 1.11018,
679 + .05162, .02835, 23.72355, 1.17545, .80782,
680 + .50445, 1.03590, 1.17853,
681 + .05313, .02919, 25.79831, 1.26066, .89566,
682 + .59533, 1.12221, 1.26387,
683 + .05446, .02994, 27.66857, 1.33848, .97603,
684 + .67889, 1.20098, 1.34180,
685 + .05569, .03062, 29.40879, 1.41180, 1.05180,
686 + .75771, 1.27516, 1.41523,
687 + .05724, .03148, 31.60853, 1.50663, 1.14909,
688 + .85779, 1.37105, 1.51019,
689 + .05869, .03230, 33.69870, 1.59821, 1.24318,
690 + .95488, 1.46360, 1.60189,
691 + .06006, .03306, 35.68271, 1.68630, 1.33393,
692 + 1.04890, 1.55259, 1.69010 /
693 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
694 + .06142, .03382, 37.63143, 1.77520, 1.42476,
695 + 1.14190, 1.64236, 1.77911,
696 + .06276, .03456, 39.55497, 1.86412, 1.51590,
697 + 1.23567, 1.73212, 1.86814,
698 + .06403, .03527, 41.37719, 1.94974, 1.60365,
699 + 1.32595, 1.81853, 1.95387,
700 + .06522, .03593, 43.06780, 2.03097, 1.68659,
701 + 1.41087, 1.90047, 2.03519,
702 + .06642, .03659, 44.78679, 2.11432, 1.77204,
703 + 1.49880, 1.98455, 2.11865,
704 + .06759, .03725, 46.43161, 2.19622, 1.85550,
705 + 1.58405, 2.06714, 2.20065,
706 + .06872, .03787, 48.02005, 2.27583, 1.93702,
707 + 1.66784, 2.14741, 2.28036,
708 + .06977, .03846, 49.47576, 2.35077, 2.01332,
709 + 1.74570, 2.22295, 2.35538 /
710 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
711 + .07085, .03905, 50.96040, 2.42775, 2.09199,
712 + 1.82634, 2.30054, 2.43245,
713 + .07190, .03964, 52.39432, 2.50369, 2.16939,
714 + 1.90543, 2.37707, 2.50848,
715 + .07291, .04019, 53.75595, 2.57678, 2.24391,
716 + 1.98161, 2.45072, 2.58166,
717 + .07387, .04072, 55.04736, 2.64686, 2.31547,
718 + 2.05490, 2.52133, 2.65182,
719 + .07484, .04126, 56.31229, 2.71720, 2.38701,
720 + 2.12781, 2.59218, 2.72224 /
721 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
722 + .03390, .01819, .71082, .32392, .00000,
723 + .00000, .17410, .32563,
724 + .03528, .01897, 1.34804, .34228, .00000,
725 + .00000, .19381, .34411,
726 + .03731, .02012, 2.43268, .37480, .00000,
727 + .00000, .22824, .37680,
728 + .03878, .02095, 3.31858, .40216, .01574,
729 + .00000, .25693, .40429,
730 + .04031, .02182, 4.27269, .43404, .05288,
731 + .00000, .29015, .43630,
732 + .04162, .02256, 5.16490, .46423, .08566,
733 + .00000, .32145, .46660,
734 + .04288, .02327, 6.08857, .49517, .11961,
735 + .00000, .35343, .49765,
736 + .04422, .02403, 7.13555, .53015, .15846,
737 + .00000, .38950, .53276 /
738 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
739 + .04538, .02468, 8.07890, .56243, .19270,
740 + .00000, .42269, .56514,
741 + .04649, .02531, 9.02747, .59512, .22748,
742 + .00000, .45624, .59792,
743 + .04738, .02581, 9.81585, .62211, .25670,
744 + .00000, .48391, .62500,
745 + .04925, .02687, 11.49788, .68274, .32092,
746 + .00611, .54592, .68579,
747 + .05086, .02777, 12.92923, .73772, .37860,
748 + .07400, .60205, .74091,
749 + .05265, .02879, 14.58856, .80249, .44654,
750 + .15448, .66806, .80584,
751 + .05451, .02984, 16.37693, .87305, .52037,
752 + .23280, .73988, .87656,
753 + .05620, .03079, 18.04163, .93967, .58994,
754 + .30662, .80761, .94333 /
755 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
756 + .05791, .03174, 19.75953, 1.00942, .66274,
757 + .38346, .87846, 1.01323,
758 + .05932, .03254, 21.20060, 1.06897, .72454,
759 + .44786, .93890, 1.07291,
760 + .06102, .03350, 22.95992, 1.14303, .80111,
761 + .52731, 1.01401, 1.14711,
762 + .06253, .03434, 24.53726, 1.21039, .87090,
763 + .60007, 1.08228, 1.21461,
764 + .06392, .03512, 25.99795, 1.27365, .93647,
765 + .66847, 1.14635, 1.27799,
766 + .06567, .03610, 27.83360, 1.35513, 1.02032,
767 + .75497, 1.22885, 1.35963,
768 + .06731, .03702, 29.56831, 1.43351, 1.10109,
769 + .83856, 1.30816, 1.43815,
770 + .06885, .03788, 31.20694, 1.50865, 1.17873,
771 + .91923, 1.38416, 1.51343 /
772 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
773 + .07039, .03874, 32.80691, 1.58417, 1.25612,
774 + .99869, 1.46051, 1.58908,
775 + .07189, .03958, 34.37914, 1.65946, 1.33353,
776 + 1.07857, 1.53661, 1.66451,
777 + .07332, .04037, 35.86174, 1.73173, 1.40783,
778 + 1.15523, 1.60963, 1.73690,
779 + .07465, .04112, 37.23031, 1.80006, 1.47781,
780 + 1.22709, 1.67866, 1.80535,
781 + .07600, .04187, 38.61710, 1.87001, 1.54973,
782 + 1.30131, 1.74930, 1.87542,
783 + .07732, .04260, 39.93678, 1.93850, 1.61973,
784 + 1.37303, 1.81845, 1.94402,
785 + .07858, .04330, 41.20759, 2.00493, 1.68796,
786 + 1.44336, 1.88550, 2.01056,
787 + .07976, .04396, 42.36598, 2.06724, 1.75161,
788 + 1.50850, 1.94840, 2.07298 /
789 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
790 + .08096, .04462, 43.54421, 2.13114, 1.81710,
791 + 1.57584, 2.01289, 2.13698,
792 + .08214, .04528, 44.67693, 2.19399, 1.88135,
793 + 1.64168, 2.07630, 2.19993,
794 + .08327, .04590, 45.74885, 2.25434, 1.94308,
795 + 1.70497, 2.13719, 2.26038,
796 + .08434, .04649, 46.76245, 2.31209, 2.00223,
797 + 1.76573, 2.19544, 2.31822,
798 + .08541, .04709, 47.75029, 2.36989, 2.06119,
799 + 1.82600, 2.25374, 2.37611 /
800 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
801 + .03791, .02037, .70467, .30833, .00000,
802 + .00000, .16590, .31025,
803 + .03945, .02125, 1.32058, .32595, .00000,
804 + .00000, .18479, .32800,
805 + .04172, .02254, 2.35827, .35687, .00000,
806 + .00000, .21752, .35913,
807 + .04336, .02347, 3.19817, .38272, .01484,
808 + .00000, .24463, .38512,
809 + .04506, .02444, 4.09588, .41267, .04979,
810 + .00000, .27584, .41523,
811 + .04652, .02528, 4.92983, .44089, .08049,
812 + .00000, .30511, .44358,
813 + .04792, .02607, 5.78855, .46971, .11217,
814 + .00000, .33492, .47253,
815 + .04941, .02692, 6.75681, .50218, .14829,
816 + .00000, .36841, .50513 /
817 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
818 + .05069, .02765, 7.62465, .53203, .18001,
819 + .00000, .39912, .53510,
820 + .05193, .02835, 8.49350, .56216, .21213,
821 + .00000, .43007, .56534,
822 + .05291, .02891, 9.21314, .58700, .23907,
823 + .00000, .45554, .59026,
824 + .05499, .03008, 10.74001, .64255, .29803,
825 + .00567, .51240, .64600,
826 + .05676, .03109, 12.03027, .69273, .35077,
827 + .06782, .56366, .69634,
828 + .05874, .03221, 13.51735, .75160, .41266,
829 + .14133, .62371, .75539,
830 + .06080, .03337, 15.11062, .81546, .47963,
831 + .21253, .68877, .81944,
832 + .06266, .03443, 16.58543, .87553, .54250,
833 + .27938, .74989, .87968 /
834 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
835 + .06454, .03548, 18.09943, .93820, .60804,
836 + .34871, .81359, .94251,
837 + .06609, .03636, 19.36315, .99151, .66350,
838 + .40663, .86775, .99597,
839 + .06796, .03741, 20.89869, 1.05759, .73197,
840 + .47783, .93482, 1.06221,
841 + .06962, .03835, 22.26915, 1.11751, .79418,
842 + .54284, .99560, 1.12228,
843 + .07114, .03920, 23.53308, 1.17361, .85247,
844 + .60379, 1.05247, 1.17851,
845 + .07306, .04028, 25.11352, 1.24563, .92675,
846 + .68059, 1.12546, 1.25071,
847 + .07486, .04129, 26.60018, 1.31469, .99808,
848 + .75458, 1.19539, 1.31993,
849 + .07655, .04223, 27.99883, 1.38069, 1.06645,
850 + .82578, 1.26222, 1.38608 /
851 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
852 + .07823, .04317, 29.35723, 1.44681, 1.13437,
853 + .89568, 1.32912, 1.45235,
854 + .07987, .04408, 30.68714, 1.51255, 1.20212,
855 + .96576, 1.39563, 1.51824,
856 + .08142, .04495, 31.93646, 1.57548, 1.26699,
857 + 1.03284, 1.45928, 1.58131,
858 + .08288, .04576, 33.08442, 1.63482, 1.32790,
859 + 1.09554, 1.51928, 1.64078,
860 + .08435, .04658, 34.24421, 1.69544, 1.39039,
861 + 1.16018, 1.58056, 1.70153,
862 + .08578, .04738, 35.34293, 1.75462, 1.45102,
863 + 1.22244, 1.64037, 1.76083,
864 + .08715, .04814, 36.39847, 1.81191, 1.51002,
865 + 1.28341, 1.69826, 1.81824,
866 + .08844, .04885, 37.35588, 1.86550, 1.56489,
867 + 1.33972, 1.75241, 1.87195 /
868 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
869 + .08974, .04957, 38.32745, 1.92036, 1.62127,
870 + 1.39782, 1.80783, 1.92693,
871 + .09102, .05028, 39.25768, 1.97420, 1.67645,
872 + 1.45451, 1.86220, 1.98088,
873 + .09224, .05095, 40.13538, 2.02580, 1.72936,
874 + 1.50889, 1.91431, 2.03259,
875 + .09340, .05159, 40.96314, 2.07509, 1.77998,
876 + 1.56102, 1.96408, 2.08198,
877 + .09457, .05224, 41.76605, 2.12429, 1.83030,
878 + 1.61260, 2.01376, 2.13128 /
879 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
880 + .05391, .02934, .70358, .26481, .00000,
881 + .00000, .14330, .26802,
882 + .05609, .03061, 1.25726, .28021, .00000,
883 + .00000, .15980, .28362,
884 + .05927, .03246, 2.15787, .30651, .00000,
885 + .00000, .18767, .31024,
886 + .06156, .03379, 2.86494, .32803, .01229,
887 + .00000, .21027, .33198,
888 + .06393, .03516, 3.60167, .35251, .04106,
889 + .00000, .23584, .35668,
890 + .06596, .03633, 4.27106, .37520, .06594,
891 + .00000, .25945, .37957,
892 + .06790, .03745, 4.94797, .39810, .09129,
893 + .00000, .28320, .40266,
894 + .06995, .03863, 5.69790, .42361, .11988,
895 + .00000, .30960, .42837 /
896 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
897 + .07171, .03965, 6.35832, .44677, .14468,
898 + .00000, .33350, .45169,
899 + .07341, .04062, 7.00990, .46990, .16955,
900 + .00000, .35735, .47499,
901 + .07475, .04139, 7.54336, .48883, .19025,
902 + .00000, .37683, .49404,
903 + .07759, .04302, 8.65397, .53064, .23502,
904 + .00447, .41979, .53613,
905 + .08000, .04439, 9.57014, .56788, .27451,
906 + .05123, .45798, .57360,
907 + .08268, .04592, 10.60547, .61101, .32026,
908 + .10613, .50214, .61698,
909 + .08545, .04750, 11.69251, .65714, .36910,
910 + .15847, .54932, .66338,
911 + .08795, .04891, 12.67945, .69996, .41435,
912 + .20701, .59307, .70643 /
913 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
914 + .09046, .05033, 13.67466, .74409, .46096,
915 + .25674, .63811, .75080,
916 + .09253, .05150, 14.49147, .78121, .49996,
917 + .29782, .67597, .78811,
918 + .09502, .05291, 15.46751, .82669, .54757,
919 + .34777, .72233, .83383,
920 + .09722, .05414, 16.32493, .86749, .59037,
921 + .39290, .76389, .87484,
922 + .09923, .05527, 17.10466, .90533, .63010,
923 + .43482, .80242, .91286,
924 + .10175, .05668, 18.06255, .95335, .68014,
925 + .48705, .85129, .96111,
926 + .10411, .05800, 18.94899, .99889, .72768,
927 + .53683, .89762, 1.00687,
928 + .10631, .05923, 19.77104, 1.04199, .77283,
929 + .58431, .94145, 1.05018 /
930 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
931 + .10850, .06044, 20.55458, 1.08467, .81715,
932 + .63035, .98484, 1.09306,
933 + .11063, .06162, 21.31139, 1.12673, .86098,
934 + .67614, 1.02758, 1.13531,
935 + .11263, .06273, 22.01237, 1.16663, .90257,
936 + .71959, 1.06812, 1.17539,
937 + .11451, .06377, 22.64596, 1.20388, .94125,
938 + .75980, 1.10596, 1.21281,
939 + .11640, .06481, 23.27955, 1.24167, .98066,
940 + .80100, 1.14434, 1.25078,
941 + .11823, .06583, 23.86882, 1.27818, 1.01850,
942 + .84026, 1.18142, 1.28746,
943 + .11998, .06679, 24.43027, 1.31332, 1.05513,
944 + .87851, 1.21710, 1.32276,
945 + .12162, .06769, 24.93004, 1.34588, 1.08886,
946 + .91348, 1.25015, 1.35545 /
947 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
948 + .12328, .06859, 25.43319, 1.37901, 1.12333,
949 + .94940, 1.28379, 1.38874,
950 + .12490, .06948, 25.90720, 1.41125, 1.15678,
951 + .98414, 1.31652, 1.42112,
952 + .12644, .07032, 26.34937, 1.44195, 1.18865,
953 + 1.01726, 1.34768, 1.45196,
954 + .12790, .07112, 26.76232, 1.47110, 1.21897,
955 + 1.04883, 1.37727, 1.48124,
956 + .12937, .07192, 27.15546, 1.49994, 1.24885,
957 + 1.07980, 1.40655, 1.51021 /
958 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
959 + .07758, .04357, .74971, .22908, .00000,
960 + .00000, .12476, .23432,
961 + .08064, .04536, 1.24345, .24239, .00000,
962 + .00000, .13904, .24796,
963 + .08508, .04796, 2.01426, .26447, .00000,
964 + .00000, .16249, .27049,
965 + .08826, .04981, 2.59875, .28210, .01005,
966 + .00000, .18108, .28845,
967 + .09153, .05171, 3.19018, .30175, .03340,
968 + .00000, .20170, .30844,
969 + .09432, .05331, 3.71392, .31965, .05324,
970 + .00000, .22040, .32661,
971 + .09697, .05484, 4.23246, .33746, .07319,
972 + .00000, .23897, .34469,
973 + .09976, .05645, 4.79530, .35703, .09539,
974 + .00000, .25933, .36455 /
975 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
976 + .10216, .05782, 5.28089, .37455, .11438,
977 + .00000, .27752, .38231,
978 + .10446, .05913, 5.75179, .39185, .13321,
979 + .00000, .29545, .39984,
980 + .10627, .06017, 6.13212, .40588, .14876,
981 + .00000, .30998, .41405,
982 + .11008, .06233, 6.90606, .43644, .18192,
983 + .00345, .34156, .44498,
984 + .11329, .06415, 7.52575, .46321, .21071,
985 + .03779, .36919, .47207,
986 + .11685, .06616, 8.20966, .49374, .24358,
987 + .07776, .40065, .50295,
988 + .12052, .06821, 8.91025, .52587, .27811,
989 + .11521, .43372, .53544,
990 + .12380, .07005, 9.53134, .55523, .30963,
991 + .14943, .46393, .56512 /
992 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
993 + .12708, .07188, 10.14395, .58506, .34165,
994 + .18401, .49459, .59526,
995 + .12978, .07337, 10.63613, .60982, .36809,
996 + .21221, .52002, .62028,
997 + .13300, .07516, 11.21206, .63974, .39995,
998 + .24606, .55074, .65050,
999 + .13583, .07672, 11.70790, .66623, .42824,
1000 + .27630, .57793, .67726,
1001 + .13840, .07813, 12.15063, .69053, .45421,
1002 + .30408, .60286, .70180,
1003 + .14162, .07990, 12.68185, .72094, .48648,
1004 + .33823, .63405, .73251,
1005 + .14462, .08153, 13.16296, .74940, .51676,
1006 + .37039, .66323, .76125,
1007 + .14741, .08305, 13.60078, .77603, .54520,
1008 + .40074, .69053, .78813 /
1009 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
1010 + .15015, .08454, 14.00708, .80202, .57272,
1011 + .42977, .71718, .81437,
1012 + .15282, .08598, 14.39233, .82735, .59967,
1013 + .45836, .74314, .83995,
1014 + .15532, .08733, 14.74206, .85112, .62497,
1015 + .48520, .76751, .86395,
1016 + .15765, .08858, 15.05064, .87304, .64822,
1017 + .50977, .78998, .88608,
1018 + .15998, .08983, 15.35507, .89510, .67173,
1019 + .53475, .81258, .90834,
1020 + .16224, .09104, 15.62969, .91612, .69402,
1021 + .55827, .83414, .92957,
1022 + .16439, .09218, 15.88850, .93622, .71545,
1023 + .58104, .85474, .94986,
1024 + .16639, .09324, 16.11165, .95460, .73494,
1025 + .60161, .87358, .96841 /
1026 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
1027 + .16840, .09431, 16.33386, .97319, .75475,
1028 + .62261, .89264, .98718,
1029 + .17037, .09535, 16.53763, .99107, .77376,
1030 + .64272, .91098, 1.00523,
1031 + .17223, .09633, 16.72431, 1.00795, .79174,
1032 + .66175, .92830, 1.02228,
1033 + .17399, .09726, 16.89585, 1.02387, .80873,
1034 + .67977, .94463, 1.03835,
1035 + .17575, .09818, 17.05322, 1.03944, .82528,
1036 + .69726, .96060, 1.05407 /
1037 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
1038 + .09667, .05554, .80815, .21129, .00000,
1039 + .00000, .11570, .21842,
1040 + .10039, .05770, 1.26637, .22345, .00000,
1041 + .00000, .12878, .23098,
1042 + .10576, .06081, 1.96185, .24320, .00000,
1043 + .00000, .14983, .25129,
1044 + .10959, .06302, 2.47721, .25873, .00887,
1045 + .00000, .16628, .26722,
1046 + .11350, .06526, 2.98892, .27581, .02938,
1047 + .00000, .18428, .28471,
1048 + .11682, .06716, 3.43443, .29117, .04661,
1049 + .00000, .20041, .30041,
1050 + .11998, .06896, 3.86928, .30632, .06376,
1051 + .00000, .21630, .31589,
1052 + .12330, .07084, 4.33484, .32283, .08270,
1053 + .00000, .23356, .33273 /
1054 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
1055 + .12614, .07244, 4.73106, .33746, .09874,
1056 + .00000, .24883, .34765,
1057 + .12885, .07397, 5.11078, .35179, .11455,
1058 + .00000, .26378, .36226,
1059 + .13099, .07517, 5.41464, .36335, .12751,
1060 + .00000, .27581, .37403,
1061 + .13545, .07766, 6.02327, .38828, .15492,
1062 + .00293, .30173, .39940,
1063 + .13921, .07975, 6.50025, .40988, .17847,
1064 + .03119, .32416, .42137,
1065 + .14335, .08204, 7.01779, .43425, .20509,
1066 + .06391, .34944, .44615,
1067 + .14759, .08437, 7.53883, .45962, .23275,
1068 + .09419, .37573, .47193,
1069 + .15138, .08645, 7.99295, .48256, .25776,
1070 + .12160, .39948, .49523 /
1071 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
1072 + .15515, .08851, 8.43366, .50563, .28292,
1073 + .14906, .42336, .51866,
1074 + .15824, .09018, 8.78225, .52459, .30351,
1075 + .17125, .44298, .53791,
1076 + .16192, .09217, 9.18342, .54729, .32810,
1077 + .19767, .46647, .56097,
1078 + .16514, .09390, 9.52356, .56723, .34976,
1079 + .22109, .48709, .58120,
1080 + .16805, .09547, 9.82317, .58536, .36950,
1081 + .24245, .50584, .59961,
1082 + .17168, .09741, 10.17582, .60783, .39380,
1083 + .26847, .52907, .62241,
1084 + .17505, .09920, 10.48975, .62866, .41640,
1085 + .29278, .55061, .64354,
1086 + .17818, .10085, 10.77114, .64800, .43747,
1087 + .31556, .57061, .66316 /
1088 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
1089 + .18124, .10246, 11.02613, .66667, .45767,
1090 + .33714, .58992, .68211,
1091 + .18420, .10402, 11.26416, .68473, .47730,
1092 + .35825, .60861, .70043,
1093 + .18698, .10547, 11.47640, .70155, .49560,
1094 + .37795, .62601, .71749,
1095 + .18955, .10681, 11.65925, .71691, .51228,
1096 + .39583, .64191, .73308,
1097 + .19212, .10814, 11.83749, .73228, .52905,
1098 + .41392, .65782, .74867,
1099 + .19460, .10942, 11.99360, .74678, .54481,
1100 + .43080, .67284, .76338,
1101 + .19695, .11063, 12.13947, .76058, .55990,
1102 + .44709, .68714, .77738,
1103 + .19912, .11175, 12.26083, .77306, .57349,
1104 + .46167, .70008, .79005 /
1105 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
1106 + .20131, .11287, 12.38050, .78564, .58725,
1107 + .47651, .71312, .80280,
1108 + .20344, .11396, 12.48669, .79762, .60036,
1109 + .49061, .72556, .81497,
1110 + .20546, .11498, 12.58190, .80887, .61268,
1111 + .50389, .73723, .82638,
1112 + .20736, .11595, 12.66784, .81942, .62427,
1113 + .51641, .74819, .83709,
1114 + .20924, .11690, 12.74288, .82963, .63546,
1115 + .52846, .75880, .84745 /
1116 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
1117 + .11347, .06627, .87070, .20002, .00000,
1118 + .00000, .11005, .20894,
1119 + .11772, .06872, 1.30128, .21137, .00000,
1120 + .00000, .12231, .22075,
1121 + .12383, .07221, 1.94199, .22951, .00000,
1122 + .00000, .14172, .23954,
1123 + .12818, .07468, 2.40832, .24359, .00808,
1124 + .00000, .15671, .25408,
1125 + .13260, .07718, 2.86470, .25893, .02670,
1126 + .00000, .17296, .26988,
1127 + .13634, .07928, 3.25688, .27259, .04220,
1128 + .00000, .18738, .28393,
1129 + .13989, .08127, 3.63542, .28597, .05752,
1130 + .00000, .20148, .29767,
1131 + .14362, .08334, 4.03637, .30044, .07432,
1132 + .00000, .21670, .31252 /
1133 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
1134 + .14679, .08510, 4.37395, .31317, .08845,
1135 + .00000, .23006, .32557,
1136 + .14981, .08677, 4.69447, .32556, .10229,
1137 + .00000, .24306, .33827,
1138 + .15219, .08808, 4.94909, .33551, .11360,
1139 + .00000, .25348, .34845,
1140 + .15715, .09080, 5.45245, .35680, .13732,
1141 + .00260, .27575, .37023,
1142 + .16130, .09306, 5.83981, .37508, .15754,
1143 + .02699, .29486, .38892,
1144 + .16587, .09553, 6.25428, .39554, .18021,
1145 + .05512, .31622, .40982,
1146 + .17053, .09804, 6.66555, .41665, .20358,
1147 + .08092, .33824, .43137,
1148 + .17467, .10026, 7.01880, .43556, .22454,
1149 + .10410, .35796, .45068 /
1150 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
1151 + .17879, .10245, 7.35691, .45444, .24547,
1152 + .12716, .37764, .46994,
1153 + .18214, .10423, 7.62065, .46983, .26248,
1154 + .14566, .39369, .48564,
1155 + .18613, .10633, 7.91980, .48812, .28265,
1156 + .16756, .41277, .50430,
1157 + .18960, .10815, 8.16999, .50406, .30030,
1158 + .18684, .42939, .52056,
1159 + .19275, .10979, 8.38759, .51847, .31630,
1160 + .20433, .44442, .53525,
1161 + .19664, .11182, 8.63905, .53617, .33583,
1162 + .22549, .46288, .55330,
1163 + .20025, .11368, 8.85924, .55246, .35388,
1164 + .24513, .47988, .56990,
1165 + .20359, .11539, 9.05376, .56747, .37061,
1166 + .26344, .49556, .58521 /
1167 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
1168 + .20684, .11705, 9.22567, .58184, .38651,
1169 + .28065, .51057, .59985,
1170 + .20998, .11865, 9.38363, .59565, .40189,
1171 + .29741, .52500, .61393,
1172 + .21291, .12014, 9.52185, .60842, .41613,
1173 + .31295, .53836, .62695,
1174 + .21562, .12150, 9.63776, .61999, .42903,
1175 + .32697, .55047, .63874,
1176 + .21832, .12286, 9.74933, .63151, .44194,
1177 + .34110, .56253, .65049,
1178 + .22091, .12415, 9.84338, .64228, .45398,
1179 + .35420, .57382, .66146,
1180 + .22337, .12537, 9.93043, .65249, .46547,
1181 + .36679, .58453, .67187,
1182 + .22563, .12650, 9.99941, .66164, .47574,
1183 + .37799, .59414, .68120 /
1184 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
1185 + .22791, .12762, 10.06663, .67082, .48610,
1186 + .38935, .60378, .69056,
1187 + .23011, .12870, 10.12347, .67950, .49590,
1188 + .40009, .61291, .69941,
1189 + .23220, .12972, 10.17283, .68760, .50508,
1190 + .41015, .62144, .70767,
1191 + .23416, .13068, 10.21614, .69515, .51367,
1192 + .41961, .62940, .71538,
1193 + .23609, .13162, 10.25066, .70240, .52191,
1194 + .42865, .63705, .72278 /
1195 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
1196 + .12882, .07615, .93292, .19192, .00000,
1197 + .00000, .10611, .20259,
1198 + .13352, .07881, 1.33980, .20263, .00000,
1199 + .00000, .11772, .21381,
1200 + .14025, .08261, 1.93669, .21952, .00000,
1201 + .00000, .13588, .23141,
1202 + .14501, .08527, 2.36474, .23251, .00750,
1203 + .00000, .14977, .24490,
1204 + .14985, .08796, 2.77852, .24652, .02471,
1205 + .00000, .16469, .25942,
1206 + .15394, .09021, 3.13027, .25890, .03893,
1207 + .00000, .17784, .27222,
1208 + .15781, .09234, 3.46664, .27096, .05290,
1209 + .00000, .19061, .28467,
1210 + .16185, .09455, 3.81972, .28391, .06814,
1211 + .00000, .20433, .29804 /
1212 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
1213 + .16529, .09642, 4.11427, .29524, .08088,
1214 + .00000, .21629, .30971,
1215 + .16856, .09819, 4.39174, .30621, .09330,
1216 + .00000, .22786, .32100,
1217 + .17113, .09958, 4.61081, .31498, .10340,
1218 + .00000, .23711, .33002,
1219 + .17647, .10244, 5.03880, .33362, .12447,
1220 + .00235, .25674, .34918,
1221 + .18092, .10482, 5.36271, .34951, .14230,
1222 + .02399, .27345, .36550,
1223 + .18581, .10740, 5.70503, .36717, .16218,
1224 + .04886, .29201, .38362,
1225 + .19078, .11002, 6.04035, .38523, .18252,
1226 + .07149, .31100, .40215,
1227 + .19519, .11232, 6.32453, .40131, .20063,
1228 + .09170, .32790, .41863 /
1229 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
1230 + .19954, .11459, 6.59300, .41723, .21861,
1231 + .11168, .34463, .43495,
1232 + .20309, .11642, 6.79975, .43014, .23314,
1233 + .12763, .35820, .44818,
1234 + .20729, .11858, 7.03102, .44537, .25026,
1235 + .14639, .37421, .46378,
1236 + .21094, .12044, 7.22184, .45855, .26516,
1237 + .16283, .38808, .47728,
1238 + .21424, .12211, 7.38567, .47039, .27860,
1239 + .17768, .40055, .48941,
1240 + .21831, .12417, 7.57143, .48484, .29490,
1241 + .19553, .41577, .50420,
1242 + .22206, .12605, 7.73131, .49804, .30988,
1243 + .21202, .42969, .51772,
1244 + .22553, .12778, 7.87039, .51014, .32368,
1245 + .22731, .44245, .53011 /
1246 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
1247 + .22889, .12944, 7.98975, .52161, .33671,
1248 + .24159, .45457, .54185,
1249 + .23214, .13104, 8.09749, .53258, .34926,
1250 + .25544, .46617, .55308,
1251 + .23515, .13252, 8.18972, .54266, .36082,
1252 + .26823, .47683, .56340,
1253 + .23793, .13387, 8.26445, .55172, .37121,
1254 + .27970, .48644, .57268,
1255 + .24070, .13522, 8.33527, .56070, .38159,
1256 + .29123, .49597, .58188,
1257 + .24335, .13649, 8.39159, .56902, .39120,
1258 + .30184, .50481, .59040,
1259 + .24585, .13769, 8.44303, .57688, .40035,
1260 + .31202, .51318, .59845,
1261 + .24815, .13879, 8.48075, .58385, .40846,
1262 + .32102, .52061, .60559 /
1263 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
1264 + .25046, .13989, 8.51683, .59083, .41662,
1265 + .33013, .52806, .61274,
1266 + .25269, .14094, 8.54469, .59738, .42430,
1267 + .33869, .53506, .61945,
1268 + .25479, .14193, 8.56731, .60345, .43146,
1269 + .34668, .54156, .62567,
1270 + .25676, .14285, 8.58593, .60909, .43814,
1271 + .35417, .54762, .63146,
1272 + .25871, .14376, 8.59729, .61444, .44450,
1273 + .36129, .55337, .63694 /
1274 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
1275 + .15672, .09410, 1.04969, .18054, .00000,
1276 + .00000, .10077, .19462,
1277 + .16213, .09707, 1.41750, .19024, .00000,
1278 + .00000, .11139, .20489,
1279 + .16984, .10127, 1.94477, .20522, .00000,
1280 + .00000, .12768, .22068,
1281 + .17526, .10420, 2.31387, .21654, .00664,
1282 + .00000, .13992, .23257,
1283 + .18074, .10713, 2.66332, .22859, .02182,
1284 + .00000, .15290, .24516,
1285 + .18535, .10958, 2.95518, .23909, .03420,
1286 + .00000, .16418, .25612,
1287 + .18968, .11187, 3.22996, .24921, .04625,
1288 + .00000, .17504, .26667,
1289 + .19420, .11425, 3.51403, .25997, .05926,
1290 + .00000, .18658, .27788 /
1291 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
1292 + .19803, .11625, 3.74728, .26928, .07002,
1293 + .00000, .19654, .28754,
1294 + .20165, .11814, 3.96407, .27821, .08044,
1295 + .00000, .20609, .29682,
1296 + .20450, .11961, 4.13347, .28530, .08886,
1297 + .00000, .21367, .30418,
1298 + .21037, .12262, 4.45745, .30022, .10624,
1299 + .00200, .22960, .31964,
1300 + .21524, .12511, 4.69508, .31277, .12079,
1301 + .01985, .24299, .33262,
1302 + .22055, .12779, 4.94051, .32654, .13682,
1303 + .04023, .25768, .34687,
1304 + .22593, .13049, 5.17506, .34043, .15303,
1305 + .05856, .27252, .36123,
1306 + .23067, .13285, 5.36884, .35263, .16732,
1307 + .07475, .28556, .37384 /
1308 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
1309 + .23533, .13515, 5.54734, .36457, .18135,
1310 + .09060, .29833, .38617,
1311 + .23910, .13699, 5.68095, .37412, .19257,
1312 + .10314, .30856, .39604,
1313 + .24355, .13915, 5.82610, .38526, .20566,
1314 + .11776, .32051, .40754,
1315 + .24739, .14101, 5.94252, .39480, .21695,
1316 + .13046, .33075, .41738,
1317 + .25084, .14266, 6.03977, .40328, .22704,
1318 + .14184, .33986, .42613,
1319 + .25508, .14468, 6.14494, .41347, .23915,
1320 + .15539, .35084, .43664,
1321 + .25896, .14651, 6.23170, .42266, .25016,
1322 + .16780, .36076, .44612,
1323 + .26254, .14818, 6.30427, .43099, .26023,
1324 + .17921, .36977, .45472 /
1325 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
1326 + .26597, .14977, 6.36136, .43877, .26961,
1327 + .18976, .37821, .46274,
1328 + .26927, .15129, 6.41023, .44612, .27857,
1329 + .19992, .38619, .47032,
1330 + .27233, .15269, 6.44912, .45278, .28675,
1331 + .20922, .39346, .47720,
1332 + .27513, .15395, 6.47648, .45868, .29403,
1333 + .21749, .39991, .48329,
1334 + .27790, .15521, 6.50074, .46448, .30125,
1335 + .22575, .40627, .48927,
1336 + .28053, .15638, 6.51498, .46975, .30785,
1337 + .23328, .41207, .49471,
1338 + .28302, .15749, 6.52708, .47470, .31410,
1339 + .24048, .41753, .49982,
1340 + .28529, .15848, 6.53053, .47899, .31957,
1341 + .24676, .42229, .50425 /
1342 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
1343 + .28756, .15948, 6.53267, .48326, .32505,
1344 + .25310, .42704, .50866,
1345 + .28973, .16042, 6.52934, .48719, .33014,
1346 + .25900, .43143, .51272,
1347 + .29177, .16130, 6.52348, .49080, .33486,
1348 + .26448, .43547, .51644,
1349 + .29368, .16212, 6.51604, .49412, .33923,
1350 + .26959, .43920, .51987,
1351 + .29555, .16291, 6.50340, .49718, .34333,
1352 + .27439, .44267, .52304 /
1353 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
1354 + .19417, .11789, 1.20331, .16912, .00000,
1355 + .00000, .09574, .18810,
1356 + .20033, .12110, 1.52377, .17765, .00000,
1357 + .00000, .10524, .19725,
1358 + .20906, .12560, 1.97067, .19051, .00000,
1359 + .00000, .11947, .21097,
1360 + .21516, .12872, 2.27451, .20004, .00577,
1361 + .00000, .12996, .22108,
1362 + .22127, .13180, 2.55473, .20999, .01885,
1363 + .00000, .14089, .23161,
1364 + .22637, .13436, 2.78376, .21852, .02938,
1365 + .00000, .15024, .24061,
1366 + .23115, .13673, 2.99520, .22664, .03948,
1367 + .00000, .15913, .24915,
1368 + .23611, .13919, 3.20963, .23517, .05028,
1369 + .00000, .16847, .25812 /
1370 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
1371 + .24029, .14123, 3.38223, .24244, .05911,
1372 + .00000, .17642, .26575,
1373 + .24422, .14314, 3.53981, .24933, .06757,
1374 + .00000, .18396, .27298,
1375 + .24729, .14463, 3.66128, .25477, .07435,
1376 + .00000, .18990, .27867,
1377 + .25360, .14766, 3.88648, .26602, .08820,
1378 + .00166, .20221, .29044,
1379 + .25878, .15012, 4.04380, .27533, .09962,
1380 + .01590, .21240, .30017,
1381 + .26440, .15275, 4.20077, .28538, .11204,
1382 + .03206, .22342, .31065,
1383 + .27003, .15536, 4.34514, .29534, .12443,
1384 + .04637, .23436, .32104,
1385 + .27495, .15763, 4.45936, .30394, .13520,
1386 + .05885, .24382, .32998 /
1387 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
1388 + .27976, .15981, 4.55998, .31221, .14564,
1389 + .07095, .25295, .33859,
1390 + .28362, .16155, 4.63165, .31871, .15388,
1391 + .08040, .26015, .34536,
1392 + .28813, .16355, 4.70490, .32616, .16338,
1393 + .09131, .26843, .35311,
1394 + .29200, .16526, 4.76008, .33243, .17147,
1395 + .10069, .27542, .35963,
1396 + .29546, .16676, 4.80326, .33793, .17863,
1397 + .10901, .28157, .36534,
1398 + .29967, .16857, 4.84435, .34438, .18710,
1399 + .11881, .28884, .37205,
1400 + .30350, .17019, 4.87382, .35009, .19471,
1401 + .12768, .29530, .37798,
1402 + .30698, .17166, 4.89497, .35519, .20158,
1403 + .13576, .30108, .38327 /
1404 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
1405 + .31031, .17304, 4.90529, .35980, .20789,
1406 + .14314, .30637, .38805,
1407 + .31348, .17433, 4.91045, .36408, .21384,
1408 + .15017, .31131, .39249,
1409 + .31639, .17551, 4.91019, .36789, .21921,
1410 + .15656, .31572, .39644,
1411 + .31902, .17656, 4.90371, .37116, .22392,
1412 + .16217, .31956, .39984,
1413 + .32162, .17759, 4.89521, .37435, .22855,
1414 + .16774, .32330, .40314,
1415 + .32406, .17854, 4.88043, .37712, .23271,
1416 + .17274, .32662, .40601,
1417 + .32636, .17943, 4.86564, .37970, .23662,
1418 + .17749, .32971, .40868,
1419 + .32843, .18021, 4.84648, .38184, .23998,
1420 + .18159, .33232, .41090 /
1421 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
1422 + .33049, .18098, 4.82654, .38394, .24333,
1423 + .18570, .33491, .41308,
1424 + .33244, .18170, 4.80335, .38580, .24638,
1425 + .18949, .33722, .41500,
1426 + .33427, .18236, 4.77965, .38745, .24918,
1427 + .19296, .33932, .41671,
1428 + .33596, .18298, 4.75621, .38894, .25174,
1429 + .19619, .34121, .41825,
1430 + .33760, .18355, 4.72947, .39022, .25410,
1431 + .19917, .34291, .41958 /
1432 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
1433 + .24965, .15184, 1.40516, .15595, .00000,
1434 + .00000, .09034, .18253,
1435 + .25655, .15511, 1.66174, .16296, .00000,
1436 + .00000, .09840, .19013,
1437 + .26619, .15963, 2.00675, .17321, .00000,
1438 + .00000, .11011, .20115,
1439 + .27285, .16272, 2.23195, .18059, .00478,
1440 + .00000, .11852, .20904,
1441 + .27945, .16571, 2.43147, .18811, .01551,
1442 + .00000, .12708, .21707,
1443 + .28491, .16817, 2.58945, .19441, .02398,
1444 + .00000, .13426, .22376,
1445 + .28998, .17042, 2.73121, .20030, .03199,
1446 + .00000, .14096, .22999,
1447 + .29520, .17271, 2.87088, .20637, .04042,
1448 + .00000, .14788, .23642 /
1449 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
1450 + .29955, .17461, 2.97958, .21144, .04720,
1451 + .00000, .15367, .24177,
1452 + .30362, .17636, 3.07594, .21616, .05362,
1453 + .00000, .15908, .24675,
1454 + .30678, .17771, 3.14860, .21984, .05872,
1455 + .00000, .16330, .25062,
1456 + .31319, .18041, 3.27557, .22730, .06896,
1457 + .00130, .17186, .25845,
1458 + .31839, .18256, 3.35525, .23331, .07725,
1459 + .01191, .17879, .26474,
1460 + .32396, .18483, 3.42862, .23964, .08611,
1461 + .02384, .18611, .27134,
1462 + .32946, .18702, 3.48988, .24572, .09478,
1463 + .03421, .19320, .27768,
1464 + .33421, .18888, 3.53277, .25081, .10217,
1465 + .04312, .19919, .28298 /
1466 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
1467 + .33878, .19063, 3.56531, .25556, .10921,
1468 + .05161, .20483, .28791,
1469 + .34240, .19200, 3.58372, .25918, .11468,
1470 + .05816, .20916, .29167,
1471 + .34658, .19353, 3.59670, .26319, .12086,
1472 + .06560, .21402, .29581,
1473 + .35012, .19481, 3.60177, .26646, .12605,
1474 + .07192, .21803, .29919,
1475 + .35324, .19592, 3.60158, .26925, .13057,
1476 + .07746, .22148, .30205,
1477 + .35697, .19720, 3.59252, .27236, .13580,
1478 + .08387, .22541, .30524,
1479 + .36031, .19831, 3.57843, .27499, .14042,
1480 + .08959, .22880, .30793,
1481 + .36331, .19930, 3.56150, .27725, .14452,
1482 + .09474, .23176, .31023 /
1483 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
1484 + .36612, .20017, 3.53821, .27915, .14819,
1485 + .09935, .23433, .31214,
1486 + .36875, .20098, 3.51284, .28082, .15159,
1487 + .10370, .23666, .31382,
1488 + .37113, .20169, 3.48613, .28223, .15461,
1489 + .10760, .23867, .31523,
1490 + .37324, .20228, 3.45755, .28332, .15719,
1491 + .11096, .24032, .31631,
1492 + .37531, .20285, 3.42811, .28433, .15969,
1493 + .11427, .24189, .31730,
1494 + .37719, .20334, 3.39575, .28508, .16187,
1495 + .11718, .24317, .31802,
1496 + .37896, .20379, 3.36504, .28575, .16390,
1497 + .11992, .24435, .31866,
1498 + .38049, .20415, 3.33324, .28617, .16558,
1499 + .12224, .24524, .31904 /
1500 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
1501 + .38201, .20450, 3.30124, .28656, .16723,
1502 + .12455, .24609, .31938,
1503 + .38342, .20479, 3.26809, .28680, .16869,
1504 + .12663, .24678, .31956,
1505 + .38470, .20505, 3.23598, .28695, .16999,
1506 + .12853, .24736, .31966,
1507 + .38589, .20528, 3.20529, .28703, .17117,
1508 + .13026, .24785, .31969,
1509 + .38699, .20546, 3.17275, .28698, .17220,
1510 + .13183, .24819, .31957 /
1511 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
1512 + .29952, .18068, 1.54714, .14558, .00000,
1513 + .00000, .08626, .17889,
1514 + .30666, .18374, 1.75127, .15137, .00000,
1515 + .00000, .09313, .18511,
1516 + .31656, .18790, 2.01699, .15959, .00000,
1517 + .00000, .10288, .19390,
1518 + .32331, .19068, 2.18381, .16537, .00406,
1519 + .00000, .10972, .20005,
1520 + .32993, .19334, 2.32525, .17114, .01311,
1521 + .00000, .11657, .20614,
1522 + .33535, .19548, 2.43369, .17586, .02015,
1523 + .00000, .12219, .21112,
1524 + .34035, .19743, 2.52813, .18020, .02672,
1525 + .00000, .12737, .21566,
1526 + .34545, .19939, 2.61826, .18460, .03355,
1527 + .00000, .13264, .22026 /
1528 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
1529 + .34965, .20096, 2.68562, .18820, .03898,
1530 + .00000, .13697, .22401,
1531 + .35356, .20240, 2.74316, .19149, .04406,
1532 + .00000, .14097, .22744,
1533 + .35658, .20350, 2.78539, .19403, .04807,
1534 + .00000, .14405, .23007,
1535 + .36261, .20566, 2.85237, .19906, .05601,
1536 + .00106, .15020, .23525,
1537 + .36744, .20732, 2.88614, .20300, .06234,
1538 + .00938, .15506, .23929,
1539 + .37253, .20902, 2.91148, .20702, .06901,
1540 + .01866, .16010, .24339,
1541 + .37749, .21062, 2.92653, .21076, .07543,
1542 + .02661, .16486, .24716,
1543 + .38170, .21193, 2.93085, .21377, .08082,
1544 + .03335, .16876, .25018 /
1545 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
1546 + .38569, .21312, 2.92750, .21647, .08588,
1547 + .03970, .17234, .25287,
1548 + .38879, .21400, 2.91884, .21844, .08974,
1549 + .04453, .17502, .25481,
1550 + .39231, .21495, 2.90198, .22051, .09405,
1551 + .04997, .17793, .25682,
1552 + .39523, .21571, 2.88291, .22210, .09761,
1553 + .05454, .18025, .25835,
1554 + .39776, .21633, 2.86241, .22340, .10067,
1555 + .05850, .18219, .25956,
1556 + .40074, .21699, 2.83092, .22469, .10415,
1557 + .06302, .18429, .26075,
1558 + .40334, .21752, 2.79816, .22569, .10716,
1559 + .06701, .18603, .26162,
1560 + .40562, .21796, 2.76553, .22646, .10979,
1561 + .07057, .18747, .26227 /
1562 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
1563 + .40769, .21828, 2.72905, .22696, .11208,
1564 + .07370, .18863, .26262,
1565 + .40959, .21854, 2.69227, .22731, .11417,
1566 + .07662, .18961, .26283,
1567 + .41126, .21873, 2.65622, .22750, .11599,
1568 + .07920, .19040, .26289,
1569 + .41269, .21884, 2.62052, .22752, .11750,
1570 + .08140, .19095, .26275,
1571 + .41406, .21894, 2.58469, .22748, .11895,
1572 + .08355, .19144, .26254,
1573 + .41524, .21894, 2.54767, .22726, .12016,
1574 + .08540, .19174, .26216,
1575 + .41634, .21894, 2.51298, .22703, .12127,
1576 + .08714, .19199, .26177,
1577 + .41723, .21887, 2.47877, .22665, .12215,
1578 + .08858, .19206, .26124 /
1579 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
1580 + .41811, .21879, 2.44471, .22625, .12300,
1581 + .08999, .19211, .26069,
1582 + .41886, .21866, 2.41045, .22576, .12372,
1583 + .09125, .19204, .26002,
1584 + .41953, .21852, 2.37779, .22523, .12434,
1585 + .09238, .19192, .25933,
1586 + .42012, .21836, 2.34699, .22470, .12489,
1587 + .09340, .19177, .25864,
1588 + .42061, .21815, 2.31523, .22405, .12532,
1589 + .09430, .19151, .25784 /
1590 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
1591 + .38742, .22714, 1.69179, .12800, .00000,
1592 + .00000, .07904, .17162,
1593 + .39415, .22932, 1.81371, .13183, .00000,
1594 + .00000, .08397, .17548,
1595 + .40321, .23215, 1.96155, .13701, .00000,
1596 + .00000, .09069, .18061,
1597 + .40924, .23393, 2.04588, .14050, .00302,
1598 + .00000, .09523, .18402,
1599 + .41499, .23555, 2.10812, .14383, .00966,
1600 + .00000, .09962, .18720,
1601 + .41959, .23675, 2.15117, .14643, .01472,
1602 + .00000, .10310, .18967,
1603 + .42375, .23780, 2.18499, .14872, .01935,
1604 + .00000, .10622, .19181,
1605 + .42789, .23879, 2.21339, .15096, .02406,
1606 + .00000, .10931, .19386 /
1607 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
1608 + .43122, .23953, 2.23057, .15269, .02774,
1609 + .00000, .11176, .19543,
1610 + .43424, .24015, 2.24202, .15421, .03113,
1611 + .00000, .11395, .19678,
1612 + .43654, .24059, 2.24881, .15535, .03376,
1613 + .00000, .11560, .19777,
1614 + .44099, .24135, 2.24828, .15745, .03888,
1615 + .00075, .11878, .19953,
1616 + .44438, .24182, 2.23257, .15895, .04285,
1617 + .00622, .12117, .20071,
1618 + .44780, .24218, 2.20815, .16034, .04694,
1619 + .01228, .12350, .20172,
1620 + .45095, .24239, 2.17721, .16144, .05076,
1621 + .01735, .12556, .20240,
1622 + .45348, .24244, 2.14478, .16217, .05389,
1623 + .02156, .12711, .20273 /
1624 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
1625 + .45574, .24235, 2.10875, .16266, .05675,
1626 + .02545, .12843, .20283,
1627 + .45736, .24219, 2.07649, .16289, .05887,
1628 + .02836, .12931, .20271,
1629 + .45908, .24187, 2.03499, .16295, .06118,
1630 + .03156, .13014, .20234,
1631 + .46039, .24150, 1.99709, .16285, .06303,
1632 + .03421, .13071, .20187,
1633 + .46143, .24112, 1.96160, .16266, .06457,
1634 + .03647, .13111, .20131,
1635 + .46245, .24050, 1.91488, .16222, .06626,
1636 + .03899, .13140, .20039,
1637 + .46321, .23985, 1.87060, .16166, .06766,
1638 + .04117, .13151, .19939,
1639 + .46377, .23918, 1.82924, .16105, .06886,
1640 + .04307, .13150, .19836 /
1641 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
1642 + .46410, .23840, 1.78693, .16028, .06983,
1643 + .04471, .13132, .19716,
1644 + .46428, .23761, 1.74602, .15946, .07069,
1645 + .04620, .13106, .19591,
1646 + .46432, .23682, 1.70760, .15861, .07139,
1647 + .04750, .13073, .19466,
1648 + .46421, .23601, 1.67129, .15772, .07193,
1649 + .04857, .13031, .19339,
1650 + .46405, .23517, 1.63558, .15680, .07242,
1651 + .04960, .12986, .19211,
1652 + .46371, .23428, 1.60029, .15581, .07278,
1653 + .05045, .12932, .19073,
1654 + .46337, .23343, 1.56763, .15486, .07311,
1655 + .05124, .12880, .18943,
1656 + .46289, .23257, 1.53665, .15388, .07330,
1657 + .05187, .12821, .18811 /
1658 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
1659 + .46238, .23171, 1.50614, .15289, .07349,
1660 + .05248, .12760, .18678,
1661 + .46177, .23081, 1.47624, .15186, .07360,
1662 + .05299, .12695, .18542,
1663 + .46114, .22994, 1.44820, .15086, .07367,
1664 + .05344, .12630, .18410,
1665 + .46051, .22909, 1.42207, .14990, .07371,
1666 + .05384, .12567, .18284,
1667 + .45977, .22820, 1.39576, .14888, .07369,
1668 + .05416, .12498, .18152 /
1669 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
1670 + .46268, .26213, 1.70508, .11266, .00000,
1671 + .00000, .07205, .16232,
1672 + .46812, .26311, 1.76763, .11504, .00000,
1673 + .00000, .07546, .16424,
1674 + .47518, .26418, 1.83439, .11807, .00000,
1675 + .00000, .07994, .16655,
1676 + .47971, .26469, 1.86497, .12000, .00228,
1677 + .00000, .08285, .16793,
1678 + .48381, .26500, 1.87778, .12173, .00724,
1679 + .00000, .08557, .16907,
1680 + .48696, .26510, 1.88152, .12298, .01096,
1681 + .00000, .08765, .16980,
1682 + .48970, .26508, 1.88022, .12402, .01430,
1683 + .00000, .08944, .17033,
1684 + .49232, .26495, 1.87412, .12496, .01766,
1685 + .00000, .09115, .17073 /
1686 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
1687 + .49430, .26473, 1.86408, .12561, .02024,
1688 + .00000, .09245, .17089,
1689 + .49600, .26443, 1.85139, .12611, .02258,
1690 + .00000, .09357, .17093,
1691 + .49726, .26416, 1.84011, .12646, .02439,
1692 + .00000, .09439, .17090,
1693 + .49946, .26341, 1.80690, .12695, .02784,
1694 + .00055, .09586, .17061,
1695 + .50090, .26261, 1.76905, .12717, .03046,
1696 + .00433, .09686, .17014,
1697 + .50214, .26157, 1.72379, .12719, .03310,
1698 + .00848, .09774, .16940,
1699 + .50302, .26035, 1.67501, .12697, .03551,
1700 + .01189, .09838, .16839,
1701 + .50347, .25912, 1.62961, .12659, .03744,
1702 + .01468, .09874, .16728 /
1703 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
1704 + .50364, .25778, 1.58325, .12605, .03916,
1705 + .01722, .09893, .16603,
1706 + .50354, .25659, 1.54440, .12549, .04040,
1707 + .01909, .09894, .16487,
1708 + .50316, .25505, 1.49717, .12468, .04171,
1709 + .02112, .09881, .16334,
1710 + .50261, .25363, 1.45584, .12387, .04274,
1711 + .02277, .09859, .16190,
1712 + .50196, .25230, 1.41843, .12307, .04357,
1713 + .02416, .09831, .16052,
1714 + .50086, .25050, 1.37119, .12194, .04443,
1715 + .02568, .09780, .15866,
1716 + .49964, .24875, 1.32776, .12079, .04512,
1717 + .02698, .09724, .15684,
1718 + .49838, .24709, 1.28815, .11968, .04569,
1719 + .02809, .09665, .15511 /
1720 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
1721 + .49685, .24535, 1.24895, .11848, .04610,
1722 + .02902, .09596, .15329,
1723 + .49526, .24362, 1.21172, .11728, .04644,
1724 + .02986, .09524, .15149,
1725 + .49365, .24197, 1.17738, .11611, .04671,
1726 + .03057, .09452, .14976,
1727 + .49199, .24035, 1.14563, .11496, .04687,
1728 + .03114, .09378, .14809,
1729 + .49030, .23873, 1.11473, .11380, .04700,
1730 + .03168, .09303, .14642,
1731 + .48846, .23707, 1.08482, .11261, .04706,
1732 + .03211, .09223, .14473,
1733 + .48671, .23551, 1.05734, .11150, .04709,
1734 + .03250, .09147, .14314,
1735 + .48490, .23400, 1.03174, .11040, .04707,
1736 + .03279, .09071, .14160 /
1737 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
1738 + .48307, .23249, 1.00670, .10931, .04703,
1739 + .03308, .08994, .14006,
1740 + .48118, .23096, .98249, .10820, .04695,
1741 + .03330, .08915, .13852,
1742 + .47933, .22949, .95999, .10714, .04685,
1743 + .03349, .08839, .13706,
1744 + .47756, .22810, .93917, .10613, .04674,
1745 + .03364, .08766, .13568,
1746 + .47566, .22666, .91848, .10510, .04660,
1747 + .03376, .08690, .13425 /
1748 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
1749 + .52687, .28802, 1.63496, .09904, .00000,
1750 + .00000, .06508, .15094,
1751 + .53046, .28768, 1.65527, .10034, .00000,
1752 + .00000, .06732, .15134,
1753 + .53474, .28684, 1.66684, .10184, .00000,
1754 + .00000, .07012, .15150,
1755 + .53724, .28602, 1.66261, .10270, .00173,
1756 + .00000, .07186, .15139,
1757 + .53925, .28495, 1.64482, .10336, .00545,
1758 + .00000, .07341, .15107,
1759 + .54058, .28388, 1.62517, .10373, .00821,
1760 + .00000, .07452, .15062,
1761 + .54157, .28278, 1.60362, .10398, .01066,
1762 + .00000, .07544, .15007,
1763 + .54233, .28153, 1.57830, .10412, .01309,
1764 + .00000, .07626, .14935 /
1765 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
1766 + .54272, .28034, 1.55384, .10410, .01493,
1767 + .00000, .07683, .14861,
1768 + .54288, .27914, 1.52879, .10400, .01658,
1769 + .00000, .07727, .14782,
1770 + .54291, .27817, 1.50856, .10388, .01785,
1771 + .00000, .07756, .14717,
1772 + .54256, .27593, 1.46030, .10346, .02022,
1773 + .00041, .07800, .14563,
1774 + .54184, .27391, 1.41369, .10295, .02200,
1775 + .00308, .07820, .14419,
1776 + .54067, .27155, 1.36126, .10225, .02376,
1777 + .00600, .07824, .14244,
1778 + .53907, .26899, 1.30747, .10136, .02533,
1779 + .00837, .07811, .14049,
1780 + .53732, .26659, 1.25948, .10044, .02656,
1781 + .01028, .07783, .13861 /
1782 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
1783 + .53529, .26411, 1.21210, .09941, .02763,
1784 + .01200, .07744, .13666,
1785 + .53341, .26198, 1.17356, .09848, .02838,
1786 + .01324, .07702, .13501,
1787 + .53085, .25937, 1.12794, .09730, .02916,
1788 + .01458, .07642, .13290,
1789 + .52843, .25702, 1.08888, .09621, .02974,
1790 + .01566, .07583, .13102,
1791 + .52610, .25485, 1.05414, .09518, .03020,
1792 + .01655, .07524, .12928,
1793 + .52290, .25203, 1.01127, .09379, .03065,
1794 + .01751, .07441, .12703,
1795 + .51974, .24935, .97254, .09246, .03099,
1796 + .01832, .07358, .12490,
1797 + .51670, .24683, .93770, .09121, .03125,
1798 + .01901, .07277, .12292 /
1799 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
1800 + .51341, .24428, .90389, .08991, .03141,
1801 + .01956, .07191, .12090,
1802 + .51015, .24178, .87213, .08863, .03153,
1803 + .02006, .07105, .11892,
1804 + .50700, .23940, .84319, .08741, .03159,
1805 + .02047, .07022, .11707,
1806 + .50389, .23713, .81676, .08623, .03160,
1807 + .02079, .06940, .11531,
1808 + .50076, .23488, .79122, .08507, .03160,
1809 + .02109, .06858, .11358,
1810 + .49754, .23262, .76683, .08391, .03154,
1811 + .02131, .06774, .11185,
1812 + .49450, .23051, .74454, .08282, .03148,
1813 + .02152, .06696, .11023,
1814 + .49150, .22847, .72401, .08177, .03138,
1815 + .02166, .06619, .10869 /
1816 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
1817 + .48849, .22644, .70402, .08073, .03127,
1818 + .02179, .06542, .10717,
1819 + .48545, .22442, .68487, .07969, .03113,
1820 + .02188, .06465, .10567,
1821 + .48254, .22249, .66717, .07869, .03100,
1822 + .02196, .06392, .10425,
1823 + .47976, .22067, .65088, .07776, .03086,
1824 + .02202, .06322, .10292,
1825 + .47686, .21882, .63481, .07682, .03070,
1826 + .02205, .06251, .10156 /
1827 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
1828 + .59273, .30993, 1.47987, .08420, .00000,
1829 + .00000, .05662, .13467,
1830 + .59349, .30792, 1.46581, .08454, .00000,
1831 + .00000, .05774, .13371,
1832 + .59368, .30467, 1.43464, .08472, .00000,
1833 + .00000, .05905, .13202,
1834 + .59325, .30220, 1.40492, .08470, .00122,
1835 + .00000, .05978, .13066,
1836 + .59227, .29947, 1.36619, .08451, .00383,
1837 + .00000, .06035, .12916,
1838 + .59102, .29703, 1.33136, .08423, .00573,
1839 + .00000, .06068, .12776,
1840 + .58959, .29463, 1.29740, .08385, .00740,
1841 + .00000, .06089, .12637,
1842 + .58786, .29204, 1.26101, .08337, .00904,
1843 + .00000, .06101, .12485 /
1844 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
1845 + .58608, .28974, 1.22880, .08288, .01026,
1846 + .00000, .06101, .12346,
1847 + .58419, .28747, 1.19767, .08236, .01135,
1848 + .00000, .06095, .12208,
1849 + .58263, .28567, 1.17332, .08194, .01217,
1850 + .00000, .06087, .12099,
1851 + .57890, .28179, 1.11967, .08092, .01370,
1852 + .00029, .06059, .11859,
1853 + .57536, .27841, 1.07178, .07997, .01482,
1854 + .00205, .06023, .11651,
1855 + .57115, .27457, 1.01984, .07882, .01590,
1856 + .00398, .05973, .11416,
1857 + .56648, .27054, .96825, .07755, .01685,
1858 + .00551, .05909, .11167,
1859 + .56198, .26687, .92355, .07635, .01756,
1860 + .00673, .05844, .10939 /
1861 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
1862 + .55725, .26317, .88047, .07511, .01817,
1863 + .00782, .05771, .10709,
1864 + .55319, .26007, .84620, .07404, .01859,
1865 + .00860, .05707, .10519,
1866 + .54808, .25632, .80644, .07271, .01900,
1867 + .00942, .05624, .10287,
1868 + .54345, .25301, .77296, .07152, .01930,
1869 + .01008, .05548, .10085,
1870 + .53915, .24997, .74362, .07042, .01952,
1871 + .01062, .05476, .09901,
1872 + .53351, .24611, .70807, .06902, .01972,
1873 + .01118, .05382, .09667,
1874 + .52813, .24251, .67642, .06769, .01985,
1875 + .01165, .05291, .09450,
1876 + .52307, .23916, .64827, .06646, .01994,
1877 + .01204, .05206, .09251 /
1878 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
1879 + .51783, .23581, .62139, .06521, .01997,
1880 + .01235, .05118, .09053,
1881 + .51270, .23255, .59639, .06400, .01997,
1882 + .01262, .05032, .08863,
1883 + .50782, .22948, .57385, .06287, .01994,
1884 + .01283, .04951, .08685,
1885 + .50312, .22661, .55347, .06181, .01989,
1886 + .01300, .04874, .08518,
1887 + .49842, .22378, .53391, .06077, .01982,
1888 + .01314, .04798, .08354,
1889 + .49375, .22094, .51544, .05972, .01972,
1890 + .01325, .04721, .08195,
1891 + .48936, .21829, .49864, .05873, .01962,
1892 + .01334, .04648, .08049,
1893 + .48510, .21579, .48331, .05781, .01951,
1894 + .01340, .04580, .07908 /
1895 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
1896 + .48084, .21330, .46844, .05691, .01940,
1897 + .01345, .04513, .07769,
1898 + .47659, .21085, .45431, .05601, .01927,
1899 + .01348, .04445, .07634,
1900 + .47254, .20854, .44133, .05517, .01914,
1901 + .01349, .04381, .07508,
1902 + .46872, .20636, .42943, .05437, .01901,
1903 + .01350, .04322, .07390,
1904 + .46480, .20414, .41778, .05357, .01887,
1905 + .01349, .04261, .07271 /
1906 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
1907 + .64365, .32226, 1.28973, .07152, .00000,
1908 + .00000, .04859, .11737,
1909 + .64131, .31862, 1.25630, .07121, .00000,
1910 + .00000, .04897, .11555,
1911 + .63703, .31314, 1.20269, .07054, .00000,
1912 + .00000, .04929, .11276,
1913 + .63350, .30910, 1.16088, .06994, .00086,
1914 + .00000, .04937, .11072,
1915 + .62933, .30488, 1.11362, .06926, .00268,
1916 + .00000, .04934, .10855,
1917 + .62547, .30116, 1.07338, .06856, .00400,
1918 + .00000, .04921, .10666,
1919 + .62156, .29760, 1.03563, .06786, .00514,
1920 + .00000, .04901, .10484,
1921 + .61724, .29385, .99655, .06708, .00625,
1922 + .00000, .04874, .10291 /
1923 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
1924 + .61329, .29055, .96318, .06634, .00707,
1925 + .00000, .04845, .10123,
1926 + .60934, .28738, .93174, .06561, .00779,
1927 + .00000, .04812, .09960,
1928 + .60617, .28489, .90755, .06503, .00833,
1929 + .00000, .04784, .09833,
1930 + .59920, .27954, .85619, .06373, .00932,
1931 + .00021, .04719, .09563,
1932 + .59296, .27502, .81223, .06261, .01004,
1933 + .00138, .04657, .09332,
1934 + .58582, .26997, .76559, .06132, .01072,
1935 + .00267, .04582, .09079,
1936 + .57821, .26474, .72021, .05993, .01130,
1937 + .00368, .04500, .08820,
1938 + .57118, .26005, .68162, .05867, .01173,
1939 + .00448, .04421, .08587 /
1940 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
1941 + .56400, .25537, .64502, .05740, .01209,
1942 + .00518, .04339, .08355,
1943 + .55794, .25151, .61633, .05632, .01233,
1944 + .00568, .04269, .08167,
1945 + .55054, .24686, .58352, .05502, .01255,
1946 + .00620, .04182, .07942,
1947 + .54396, .24280, .55622, .05388, .01270,
1948 + .00661, .04105, .07747,
1949 + .53790, .23913, .53253, .05285, .01281,
1950 + .00695, .04035, .07572,
1951 + .53011, .23451, .50414, .05155, .01289,
1952 + .00729, .03944, .07352,
1953 + .52281, .23022, .47914, .05034, .01293,
1954 + .00757, .03859, .07152,
1955 + .51601, .22627, .45711, .04923, .01294,
1956 + .00780, .03780, .06968 /
1957 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
1958 + .50913, .22233, .43628, .04811, .01292,
1959 + .00798, .03699, .06791,
1960 + .50244, .21855, .41706, .04704, .01289,
1961 + .00813, .03621, .06621,
1962 + .49613, .21503, .39985, .04605, .01284,
1963 + .00825, .03550, .06462,
1964 + .49015, .21172, .38442, .04511, .01277,
1965 + .00834, .03482, .06316,
1966 + .48424, .20845, .36967, .04419, .01269,
1967 + .00841, .03416, .06174,
1968 + .47836, .20526, .35585, .04329, .01260,
1969 + .00846, .03350, .06035,
1970 + .47287, .20228, .34332, .04247, .01252,
1971 + .00850, .03289, .05906,
1972 + .46759, .19949, .33196, .04170, .01242,
1973 + .00852, .03231, .05786 /
1974 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
1975 + .46235, .19672, .32099, .04094, .01232,
1976 + .00853, .03174, .05668,
1977 + .45717, .19399, .31060, .04019, .01221,
1978 + .00854, .03118, .05553,
1979 + .45228, .19142, .30108, .03948, .01211,
1980 + .00853, .03065, .05447,
1981 + .44768, .18901, .29239, .03883, .01201,
1982 + .00853, .03016, .05347,
1983 + .44297, .18659, .28393, .03818, .01190,
1984 + .00850, .02966, .05247 /
1985 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
1986 + .68060, .32677, 1.09191, .06066, .00000,
1987 + .00000, .04118, .10017,
1988 + .67505, .32167, 1.04949, .05995, .00000,
1989 + .00000, .04108, .09786,
1990 + .66624, .31418, .98697, .05875, .00000,
1991 + .00000, .04074, .09452,
1992 + .65954, .30883, .94157, .05787, .00060,
1993 + .00000, .04043, .09213,
1994 + .65228, .30326, .89332, .05688, .00187,
1995 + .00000, .04004, .08971,
1996 + .64578, .29850, .85340, .05600, .00278,
1997 + .00000, .03963, .08762,
1998 + .63944, .29398, .81676, .05515, .00356,
1999 + .00000, .03921, .08564,
2000 + .63265, .28924, .77958, .05422, .00432,
2001 + .00000, .03873, .08359 /
2002 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
2003 + .62663, .28512, .74850, .05339, .00487,
2004 + .00000, .03828, .08184,
2005 + .62075, .28118, .71968, .05257, .00535,
2006 + .00000, .03783, .08018,
2007 + .61610, .27810, .69773, .05192, .00571,
2008 + .00000, .03746, .07888,
2009 + .60605, .27163, .65223, .05055, .00636,
2010 + .00015, .03666, .07617,
2011 + .59733, .26618, .61432, .04940, .00683,
2012 + .00094, .03594, .07391,
2013 + .58754, .26018, .57472, .04810, .00727,
2014 + .00181, .03512, .07145,
2015 + .57731, .25404, .53673, .04675, .00763,
2016 + .00249, .03426, .06896,
2017 + .56803, .24857, .50486, .04553, .00790,
2018 + .00302, .03347, .06678 /
2019 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
2020 + .55869, .24316, .47501, .04432, .00811,
2021 + .00348, .03265, .06464,
2022 + .55094, .23872, .45187, .04333, .00825,
2023 + .00380, .03198, .06291,
2024 + .54154, .23344, .42561, .04213, .00837,
2025 + .00414, .03117, .06087,
2026 + .53328, .22886, .40397, .04110, .00845,
2027 + .00441, .03046, .05912,
2028 + .52577, .22475, .38534, .04017, .00850,
2029 + .00462, .02981, .05756,
2030 + .51624, .21958, .36322, .03900, .00853,
2031 + .00483, .02901, .05562,
2032 + .50736, .21484, .34389, .03794, .00854,
2033 + .00501, .02825, .05386,
2034 + .49914, .21051, .32695, .03698, .00853,
2035 + .00515, .02756, .05227 /
2036 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
2037 + .49093, .20619, .31107, .03601, .00849,
2038 + .00525, .02687, .05074,
2039 + .48301, .20208, .29649, .03509, .00845,
2040 + .00534, .02622, .04927,
2041 + .47561, .19827, .28349, .03424, .00840,
2042 + .00541, .02561, .04792,
2043 + .46863, .19471, .27190, .03345, .00834,
2044 + .00546, .02505, .04668,
2045 + .46175, .19122, .26086, .03268, .00827,
2046 + .00550, .02449, .04548,
2047 + .45496, .18782, .25056, .03194, .00820,
2048 + .00552, .02395, .04432,
2049 + .44864, .18468, .24126, .03125, .00813,
2050 + .00554, .02344, .04325,
2051 + .44264, .18171, .23285, .03060, .00805,
2052 + .00554, .02297, .04226 /
2053 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
2054 + .43670, .17877, .22475, .02997, .00797,
2055 + .00554, .02251, .04129,
2056 + .43087, .17590, .21712, .02935, .00789,
2057 + .00554, .02206, .04035,
2058 + .42538, .17320, .21016, .02876, .00781,
2059 + .00553, .02164, .03948,
2060 + .42023, .17069, .20380, .02822, .00774,
2061 + .00551, .02125, .03867,
2062 + .41499, .16817, .19761, .02769, .00766,
2063 + .00549, .02085, .03786 /
2064 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
2065 + .70465, .32485, .90275, .05137, .00000,
2066 + .00000, .03447, .08381,
2067 + .69591, .31852, .85822, .05041, .00000,
2068 + .00000, .03407, .08134,
2069 + .68271, .30931, .79537, .04891, .00000,
2070 + .00000, .03338, .07785,
2071 + .67305, .30279, .75152, .04783, .00042,
2072 + .00000, .03285, .07544,
2073 + .66280, .29616, .70655, .04673, .00130,
2074 + .00000, .03228, .07296,
2075 + .65389, .29049, .67007, .04575, .00192,
2076 + .00000, .03174, .07091,
2077 + .64534, .28515, .63707, .04482, .00246,
2078 + .00000, .03122, .06898,
2079 + .63628, .27960, .60406, .04385, .00297,
2080 + .00000, .03066, .06699 /
2081 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
2082 + .62836, .27484, .57686, .04300, .00335,
2083 + .00000, .03015, .06530,
2084 + .62072, .27032, .55192, .04218, .00367,
2085 + .00000, .02966, .06372,
2086 + .61472, .26680, .53309, .04153, .00391,
2087 + .00000, .02928, .06251,
2088 + .60194, .25945, .49465, .04020, .00435,
2089 + .00011, .02845, .05998,
2090 + .59104, .25331, .46322, .03907, .00465,
2091 + .00064, .02773, .05792,
2092 + .57896, .24659, .43080, .03783, .00493,
2093 + .00123, .02694, .05568,
2094 + .56649, .23979, .40006, .03658, .00517,
2095 + .00169, .02613, .05343,
2096 + .55529, .23378, .37452, .03546, .00533,
2097 + .00205, .02539, .05148 /
2098 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
2099 + .54416, .22785, .35078, .03435, .00546,
2100 + .00235, .02465, .04960,
2101 + .53498, .22304, .33252, .03346, .00555,
2102 + .00257, .02405, .04808,
2103 + .52395, .21735, .31201, .03241, .00561,
2104 + .00279, .02332, .04631,
2105 + .51434, .21244, .29519, .03150, .00565,
2106 + .00296, .02270, .04480,
2107 + .50566, .20803, .28078, .03068, .00568,
2108 + .00310, .02215, .04346,
2109 + .49476, .20253, .26380, .02966, .00569,
2110 + .00324, .02144, .04183,
2111 + .48467, .19752, .24904, .02874, .00568,
2112 + .00335, .02080, .04036,
2113 + .47539, .19296, .23615, .02791, .00566,
2114 + .00344, .02022, .03904 /
2115 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
2116 + .46618, .18846, .22415, .02710, .00563,
2117 + .00350, .01965, .03773,
2118 + .45733, .18419, .21316, .02633, .00559,
2119 + .00355, .01911, .03651,
2120 + .44908, .18025, .20339, .02562, .00554,
2121 + .00359, .01861, .03540,
2122 + .44140, .17657, .19473, .02496, .00550,
2123 + .00362, .01815, .03439,
2124 + .43386, .17297, .18649, .02431, .00545,
2125 + .00364, .01770, .03340,
2126 + .42645, .16949, .17885, .02370, .00539,
2127 + .00365, .01726, .03246,
2128 + .41957, .16628, .17195, .02313, .00534,
2129 + .00366, .01685, .03159,
2130 + .41307, .16326, .16573, .02260, .00528,
2131 + .00365, .01647, .03079 /
2132 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
2133 + .40666, .16028, .15974, .02208, .00522,
2134 + .00365, .01610, .03001,
2135 + .40038, .15739, .15411, .02158, .00516,
2136 + .00364, .01574, .02926,
2137 + .39448, .15468, .14899, .02112, .00510,
2138 + .00363, .01541, .02855,
2139 + .38897, .15216, .14432, .02068, .00505,
2140 + .00362, .01510, .02790,
2141 + .38340, .14963, .13978, .02024, .00499,
2142 + .00360, .01479, .02727 /
2143 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
2144 + .71690, .31767, .73132, .04331, .00000,
2145 + .00000, .02852, .06894,
2146 + .70521, .31027, .68898, .04220, .00000,
2147 + .00000, .02797, .06652,
2148 + .68787, .29970, .63084, .04060, .00000,
2149 + .00000, .02712, .06311,
2150 + .67544, .29229, .59135, .03946, .00029,
2151 + .00000, .02650, .06079,
2152 + .66255, .28475, .55186, .03829, .00090,
2153 + .00000, .02584, .05851,
2154 + .65141, .27841, .52026, .03732, .00133,
2155 + .00000, .02528, .05657,
2156 + .64085, .27248, .49200, .03639, .00170,
2157 + .00000, .02473, .05479,
2158 + .62977, .26633, .46401, .03542, .00204,
2159 + .00000, .02415, .05299 /
2160 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
2161 + .62021, .26108, .44124, .03458, .00230,
2162 + .00000, .02365, .05148,
2163 + .61103, .25613, .42053, .03380, .00252,
2164 + .00000, .02317, .05005,
2165 + .60386, .25229, .40497, .03320, .00268,
2166 + .00000, .02279, .04895,
2167 + .58877, .24431, .37360, .03194, .00297,
2168 + .00008, .02201, .04671,
2169 + .57604, .23769, .34829, .03089, .00317,
2170 + .00044, .02135, .04488,
2171 + .56204, .23051, .32242, .02977, .00335,
2172 + .00085, .02063, .04293,
2173 + .54772, .22328, .29810, .02864, .00351,
2174 + .00116, .01989, .04099,
2175 + .53500, .21692, .27805, .02764, .00361,
2176 + .00140, .01924, .03932 /
2177 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
2178 + .52242, .21068, .25958, .02666, .00369,
2179 + .00160, .01859, .03773,
2180 + .51209, .20568, .24545, .02589, .00374,
2181 + .00175, .01807, .03644,
2182 + .49984, .19974, .22962, .02496, .00378,
2183 + .00190, .01746, .03495,
2184 + .48923, .19466, .21672, .02416, .00380,
2185 + .00201, .01694, .03370,
2186 + .47967, .19013, .20571, .02346, .00382,
2187 + .00210, .01646, .03259,
2188 + .46774, .18450, .19280, .02260, .00381,
2189 + .00219, .01588, .03123,
2190 + .45676, .17938, .18163, .02183, .00380,
2191 + .00226, .01535, .03001,
2192 + .44673, .17475, .17193, .02114, .00379,
2193 + .00232, .01487, .02892 /
2194 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
2195 + .43681, .17022, .16289, .02045, .00376,
2196 + .00235, .01441, .02788,
2197 + .42734, .16590, .15464, .01981, .00373,
2198 + .00239, .01396, .02690,
2199 + .41858, .16193, .14733, .01923, .00369,
2200 + .00241, .01355, .02600,
2201 + .41043, .15827, .14086, .01869, .00365,
2202 + .00243, .01318, .02518,
2203 + .40246, .15469, .13473, .01816, .00362,
2204 + .00244, .01283, .02439,
2205 + .39467, .15123, .12903, .01764, .00358,
2206 + .00244, .01247, .02365,
2207 + .38747, .14803, .12390, .01717, .00354,
2208 + .00244, .01214, .02298,
2209 + .38067, .14506, .11930, .01675, .00349,
2210 + .00244, .01184, .02234 /
2211 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
2212 + .37398, .14215, .11487, .01635, .00345,
2213 + .00243, .01156, .02171,
2214 + .36746, .13932, .11070, .01595, .00341,
2215 + .00242, .01129, .02110,
2216 + .36136, .13667, .10690, .01557, .00337,
2217 + .00242, .01103, .02055,
2218 + .35568, .13421, .10345, .01522, .00333,
2219 + .00241, .01079, .02004,
2220 + .34997, .13175, .10011, .01487, .00329,
2221 + .00239, .01055, .01955 /
2222 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
2223 + .71844, .30630, .58199, .03627, .00000,
2224 + .00000, .02337, .05577,
2225 + .70401, .29811, .54422, .03515, .00000,
2226 + .00000, .02274, .05352,
2227 + .68297, .28648, .49340, .03354, .00000,
2228 + .00000, .02181, .05040,
2229 + .66808, .27839, .45960, .03242, .00020,
2230 + .00000, .02116, .04829,
2231 + .65280, .27025, .42637, .03130, .00062,
2232 + .00000, .02051, .04621,
2233 + .63977, .26342, .40008, .03035, .00091,
2234 + .00000, .01995, .04450,
2235 + .62749, .25706, .37678, .02948, .00117,
2236 + .00000, .01942, .04293,
2237 + .61469, .25051, .35391, .02858, .00140,
2238 + .00000, .01888, .04133 /
2239 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
2240 + .60372, .24496, .33539, .02782, .00157,
2241 + .00000, .01840, .04000,
2242 + .59328, .23973, .31868, .02710, .00172,
2243 + .00000, .01795, .03876,
2244 + .58516, .23568, .30619, .02655, .00183,
2245 + .00000, .01761, .03781,
2246 + .56817, .22731, .28126, .02541, .00203,
2247 + .00006, .01690, .03590,
2248 + .55399, .22042, .26135, .02446, .00216,
2249 + .00030, .01631, .03436,
2250 + .53846, .21300, .24114, .02346, .00229,
2251 + .00058, .01568, .03271,
2252 + .52273, .20555, .22225, .02247, .00239,
2253 + .00080, .01504, .03108,
2254 + .50883, .19903, .20678, .02160, .00246,
2255 + .00096, .01449, .02969 /
2256 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
2257 + .49516, .19269, .19258, .02076, .00251,
2258 + .00110, .01395, .02837,
2259 + .48408, .18759, .18174, .02007, .00254,
2260 + .00120, .01352, .02732,
2261 + .47092, .18161, .16969, .01928, .00256,
2262 + .00130, .01301, .02609,
2263 + .45959, .17649, .15989, .01861, .00258,
2264 + .00137, .01257, .02507,
2265 + .44948, .17195, .15155, .01801, .00258,
2266 + .00143, .01218, .02417,
2267 + .43685, .16635, .14181, .01729, .00258,
2268 + .00149, .01171, .02308,
2269 + .42532, .16127, .13338, .01665, .00256,
2270 + .00154, .01128, .02210,
2271 + .41484, .15668, .12605, .01607, .00255,
2272 + .00158, .01090, .02123 /
2273 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
2274 + .40456, .15219, .11928, .01549, .00253,
2275 + .00160, .01051, .02041,
2276 + .39476, .14795, .11311, .01496, .00251,
2277 + .00162, .01016, .01964,
2278 + .38571, .14406, .10765, .01447, .00248,
2279 + .00163, .00984, .01893,
2280 + .37732, .14049, .10282, .01404, .00245,
2281 + .00164, .00954, .01829,
2282 + .36910, .13702, .09823, .01363, .00242,
2283 + .00165, .00925, .01767,
2284 + .36116, .13366, .09397, .01321, .00239,
2285 + .00165, .00898, .01709,
2286 + .35384, .13057, .09014, .01282, .00237,
2287 + .00165, .00874, .01656,
2288 + .34698, .12769, .08672, .01247, .00234,
2289 + .00165, .00850, .01607 /
2290 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
2291 + .34024, .12487, .08343, .01213, .00231,
2292 + .00164, .00828, .01560,
2293 + .33368, .12215, .08034, .01180, .00228,
2294 + .00163, .00806, .01514,
2295 + .32753, .11962, .07752, .01150, .00225,
2296 + .00163, .00785, .01471,
2297 + .32182, .11727, .07496, .01123, .00222,
2298 + .00162, .00767, .01432,
2299 + .31609, .11493, .07248, .01096, .00219,
2300 + .00161, .00749, .01393 /
2301 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
2302 + .71008, .29199, .45595, .03045, .00000,
2303 + .00000, .01872, .04423,
2304 + .69330, .28319, .42381, .02932, .00000,
2305 + .00000, .01811, .04224,
2306 + .66912, .27078, .38124, .02774, .00000,
2307 + .00000, .01724, .03952,
2308 + .65220, .26220, .35330, .02664, .00014,
2309 + .00000, .01662, .03772,
2310 + .63492, .25367, .32630, .02561, .00043,
2311 + .00000, .01602, .03589,
2312 + .62034, .24652, .30508, .02472, .00063,
2313 + .00000, .01552, .03443,
2314 + .60668, .23989, .28641, .02390, .00080,
2315 + .00000, .01505, .03310,
2316 + .59252, .23309, .26821, .02307, .00097,
2317 + .00000, .01456, .03176 /
2318 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
2319 + .58044, .22735, .25358, .02238, .00108,
2320 + .00000, .01415, .03063,
2321 + .56901, .22196, .24041, .02173, .00119,
2322 + .00000, .01377, .02959,
2323 + .56016, .21780, .23059, .02123, .00126,
2324 + .00000, .01347, .02880,
2325 + .54174, .20927, .21120, .02020, .00139,
2326 + .00004, .01287, .02721,
2327 + .52643, .20229, .19581, .01938, .00148,
2328 + .00021, .01237, .02593,
2329 + .50984, .19478, .18021, .01849, .00157,
2330 + .00040, .01183, .02459,
2331 + .49313, .18727, .16576, .01761, .00163,
2332 + .00055, .01129, .02328,
2333 + .47844, .18075, .15399, .01686, .00168,
2334 + .00066, .01083, .02216 /
2335 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
2336 + .46406, .17444, .14319, .01615, .00171,
2337 + .00076, .01038, .02109,
2338 + .45248, .16937, .13497, .01556, .00173,
2339 + .00083, .01003, .02025,
2340 + .43881, .16346, .12584, .01489, .00175,
2341 + .00090, .00962, .01927,
2342 + .42706, .15843, .11843, .01433, .00175,
2343 + .00095, .00927, .01846,
2344 + .41658, .15399, .11213, .01383, .00176,
2345 + .00099, .00895, .01777,
2346 + .40362, .14851, .10478, .01323, .00175,
2347 + .00103, .00857, .01691,
2348 + .39185, .14356, .09845, .01270, .00174,
2349 + .00106, .00823, .01614,
2350 + .38117, .13911, .09298, .01222, .00173,
2351 + .00108, .00792, .01545 /
2352 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
2353 + .37075, .13477, .08790, .01174, .00171,
2354 + .00110, .00764, .01481,
2355 + .36085, .13069, .08326, .01130, .00170,
2356 + .00111, .00737, .01421,
2357 + .35172, .12698, .07915, .01092, .00168,
2358 + .00112, .00712, .01365,
2359 + .34331, .12356, .07553, .01056, .00166,
2360 + .00112, .00689, .01315,
2361 + .33513, .12024, .07210, .01020, .00164,
2362 + .00113, .00667, .01268,
2363 + .32720, .11705, .06892, .00988, .00162,
2364 + .00113, .00646, .01223,
2365 + .31989, .11412, .06607, .00958, .00159,
2366 + .00112, .00627, .01182,
2367 + .31308, .11141, .06351, .00931, .00157,
2368 + .00112, .00609, .01145 /
2369 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
2370 + .30640, .10876, .06105, .00904, .00155,
2371 + .00112, .00592, .01109,
2372 + .29992, .10619, .05874, .00878, .00153,
2373 + .00111, .00575, .01075,
2374 + .29389, .10380, .05664, .00853, .00151,
2375 + .00110, .00559, .01045,
2376 + .28829, .10159, .05473, .00831, .00149,
2377 + .00110, .00544, .01016,
2378 + .28269, .09940, .05288, .00809, .00147,
2379 + .00109, .00531, .00987 /
2380 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
2381 + .69371, .27480, .35172, .02502, .00000,
2382 + .00000, .01504, .03470,
2383 + .67490, .26564, .32543, .02398, .00000,
2384 + .00000, .01445, .03299,
2385 + .64808, .25276, .29106, .02252, .00000,
2386 + .00000, .01363, .03067,
2387 + .62941, .24396, .26877, .02154, .00010,
2388 + .00000, .01307, .02913,
2389 + .61059, .23518, .24744, .02058, .00029,
2390 + .00000, .01252, .02763,
2391 + .59473, .22792, .23076, .01980, .00043,
2392 + .00000, .01208, .02638,
2393 + .57998, .22119, .21618, .01907, .00055,
2394 + .00000, .01166, .02527,
2395 + .56479, .21431, .20204, .01833, .00066,
2396 + .00000, .01123, .02418 /
2397 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
2398 + .55188, .20853, .19071, .01772, .00074,
2399 + .00000, .01086, .02326,
2400 + .53970, .20313, .18055, .01715, .00081,
2401 + .00000, .01053, .02240,
2402 + .53029, .19898, .17300, .01672, .00086,
2403 + .00000, .01029, .02175,
2404 + .51084, .19048, .15814, .01586, .00095,
2405 + .00003, .00978, .02043,
2406 + .49484, .18351, .14643, .01514, .00101,
2407 + .00015, .00936, .01941,
2408 + .47755, .17609, .13461, .01438, .00107,
2409 + .00028, .00892, .01832,
2410 + .46020, .16874, .12365, .01364, .00112,
2411 + .00038, .00848, .01728,
2412 + .44504, .16237, .11472, .01301, .00115,
2413 + .00046, .00809, .01639 /
2414 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
2415 + .43030, .15621, .10657, .01240, .00117,
2416 + .00053, .00773, .01554,
2417 + .41845, .15130, .10039, .01193, .00118,
2418 + .00057, .00744, .01488,
2419 + .40452, .14559, .09352, .01138, .00119,
2420 + .00062, .00710, .01411,
2421 + .39264, .14074, .08795, .01092, .00120,
2422 + .00065, .00682, .01347,
2423 + .38208, .13645, .08323, .01050, .00120,
2424 + .00068, .00658, .01292,
2425 + .36908, .13121, .07769, .01002, .00119,
2426 + .00071, .00628, .01225,
2427 + .35726, .12650, .07293, .00960, .00119,
2428 + .00073, .00601, .01166,
2429 + .34657, .12227, .06882, .00923, .00118,
2430 + .00074, .00577, .01114 /
2431 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
2432 + .33625, .11817, .06500, .00883, .00116,
2433 + .00075, .00553, .01064,
2434 + .32646, .11431, .06151, .00848, .00115,
2435 + .00076, .00533, .01018,
2436 + .31744, .11080, .05843, .00817, .00114,
2437 + .00077, .00515, .00976,
2438 + .30919, .10759, .05572, .00788, .00112,
2439 + .00077, .00497, .00939,
2440 + .30117, .10449, .05315, .00758, .00111,
2441 + .00077, .00478, .00904,
2442 + .29343, .10150, .05077, .00732, .00109,
2443 + .00077, .00462, .00871,
2444 + .28631, .09877, .04864, .00708, .00108,
2445 + .00077, .00447, .00841,
2446 + .27970, .09624, .04671, .00687, .00106,
2447 + .00076, .00434, .00813 /
2448 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
2449 + .27322, .09378, .04485, .00666, .00105,
2450 + .00076, .00421, .00785,
2451 + .26696, .09140, .04311, .00646, .00103,
2452 + .00076, .00409, .00759,
2453 + .26113, .08920, .04154, .00628, .00102,
2454 + .00075, .00397, .00735,
2455 + .25574, .08716, .04011, .00611, .00100,
2456 + .00075, .00386, .00713,
2457 + .25036, .08514, .03872, .00594, .00099,
2458 + .00074, .00376, .00691 /
2459 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
2460 + .66999, .25596, .26783, .02042, .00000,
2461 + .00000, .01186, .02680,
2462 + .64953, .24666, .24706, .01948, .00000,
2463 + .00000, .01133, .02536,
2464 + .62067, .23360, .22009, .01817, .00000,
2465 + .00000, .01061, .02344,
2466 + .60071, .22473, .20279, .01730, .00007,
2467 + .00000, .01014, .02215,
2468 + .58070, .21593, .18631, .01646, .00020,
2469 + .00000, .00965, .02092,
2470 + .56395, .20867, .17352, .01577, .00030,
2471 + .00000, .00926, .01993,
2472 + .54844, .20197, .16236, .01513, .00038,
2473 + .00000, .00892, .01903,
2474 + .53254, .19514, .15156, .01449, .00045,
2475 + .00000, .00857, .01813 /
2476 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
2477 + .51908, .18944, .14297, .01397, .00051,
2478 + .00000, .00827, .01739,
2479 + .50646, .18411, .13528, .01348, .00056,
2480 + .00000, .00798, .01672,
2481 + .49674, .18002, .12956, .01310, .00059,
2482 + .00000, .00776, .01622,
2483 + .47671, .17172, .11828, .01236, .00065,
2484 + .00002, .00735, .01516,
2485 + .46027, .16497, .10945, .01177, .00070,
2486 + .00010, .00700, .01433,
2487 + .44263, .15775, .10056, .01114, .00073,
2488 + .00019, .00664, .01349,
2489 + .42506, .15062, .09233, .01053, .00077,
2490 + .00027, .00629, .01267,
2491 + .40977, .14449, .08562, .01000, .00079,
2492 + .00032, .00599, .01198 /
2493 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
2494 + .39497, .13860, .07950, .00948, .00080,
2495 + .00037, .00569, .01133,
2496 + .38308, .13393, .07484, .00912, .00081,
2497 + .00040, .00547, .01079,
2498 + .36921, .12847, .06967, .00866, .00082,
2499 + .00043, .00521, .01020,
2500 + .35741, .12387, .06549, .00828, .00082,
2501 + .00045, .00499, .00972,
2502 + .34696, .11982, .06193, .00795, .00082,
2503 + .00047, .00479, .00930,
2504 + .33414, .11490, .05778, .00755, .00081,
2505 + .00049, .00456, .00879,
2506 + .32257, .11047, .05420, .00720, .00081,
2507 + .00050, .00435, .00834,
2508 + .31215, .10650, .05111, .00690, .00080,
2509 + .00051, .00418, .00794 /
2510 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
2511 + .30206, .10268, .04824, .00658, .00079,
2512 + .00052, .00399, .00757,
2513 + .29254, .09910, .04562, .00630, .00078,
2514 + .00052, .00382, .00724,
2515 + .28384, .09583, .04329, .00604, .00078,
2516 + .00053, .00368, .00693,
2517 + .27586, .09285, .04124, .00582, .00077,
2518 + .00053, .00354, .00666,
2519 + .26812, .08998, .03931, .00562, .00075,
2520 + .00053, .00341, .00639,
2521 + .26069, .08724, .03751, .00542, .00074,
2522 + .00053, .00329, .00613,
2523 + .25387, .08473, .03590, .00523, .00073,
2524 + .00053, .00318, .00589,
2525 + .24756, .08242, .03445, .00506, .00072,
2526 + .00052, .00308, .00568 /
2527 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
2528 + .24139, .08017, .03306, .00489, .00071,
2529 + .00052, .00298, .00549,
2530 + .23543, .07801, .03176, .00473, .00070,
2531 + .00052, .00289, .00529,
2532 + .22990, .07601, .03057, .00460, .00069,
2533 + .00051, .00280, .00511,
2534 + .22478, .07416, .02949, .00447, .00068,
2535 + .00051, .00272, .00494,
2536 + .21971, .07233, .02845, .00433, .00067,
2537 + .00051, .00264, .00480 /
2538 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
2539 + .64014, .23597, .20156, .01642, .00000,
2540 + .00000, .00927, .02040,
2541 + .61855, .22661, .18557, .01559, .00000,
2542 + .00000, .00882, .01922,
2543 + .58819, .21366, .16502, .01444, .00000,
2544 + .00000, .00820, .01766,
2545 + .56734, .20488, .15190, .01370, .00005,
2546 + .00000, .00780, .01662,
2547 + .54655, .19624, .13950, .01297, .00014,
2548 + .00000, .00738, .01566,
2549 + .52930, .18907, .12987, .01237, .00020,
2550 + .00000, .00706, .01488,
2551 + .51334, .18252, .12148, .01183, .00026,
2552 + .00000, .00677, .01416,
2553 + .49701, .17590, .11338, .01130, .00031,
2554 + .00000, .00647, .01344 /
2555 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
2556 + .48328, .17037, .10692, .01085, .00035,
2557 + .00000, .00624, .01286,
2558 + .47043, .16523, .10114, .01045, .00038,
2559 + .00000, .00600, .01233,
2560 + .46055, .16129, .09685, .01015, .00041,
2561 + .00000, .00582, .01193,
2562 + .44034, .15327, .08843, .00953, .00045,
2563 + .00002, .00549, .01110,
2564 + .42385, .14678, .08182, .00903, .00048,
2565 + .00007, .00522, .01047,
2566 + .40622, .13990, .07515, .00850, .00051,
2567 + .00014, .00493, .00982,
2568 + .38869, .13315, .06899, .00801, .00053,
2569 + .00018, .00465, .00919,
2570 + .37353, .12735, .06397, .00759, .00054,
2571 + .00022, .00440, .00866 /
2572 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
2573 + .35895, .12179, .05938, .00718, .00055,
2574 + .00025, .00417, .00817,
2575 + .34729, .11737, .05589, .00686, .00056,
2576 + .00028, .00400, .00777,
2577 + .33372, .11227, .05199, .00649, .00056,
2578 + .00030, .00379, .00733,
2579 + .32221, .10798, .04883, .00619, .00056,
2580 + .00031, .00361, .00696,
2581 + .31205, .10423, .04616, .00593, .00056,
2582 + .00033, .00347, .00665,
2583 + .29963, .09963, .04305, .00562, .00056,
2584 + .00034, .00329, .00627,
2585 + .28845, .09554, .04035, .00534, .00055,
2586 + .00035, .00313, .00592,
2587 + .27843, .09189, .03801, .00510, .00055,
2588 + .00035, .00299, .00561 /
2589 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
2590 + .26874, .08839, .03584, .00487, .00054,
2591 + .00036, .00285, .00534,
2592 + .25965, .08510, .03387, .00465, .00054,
2593 + .00036, .00273, .00509,
2594 + .25135, .08211, .03212, .00445, .00053,
2595 + .00036, .00262, .00488,
2596 + .24377, .07941, .03058, .00428, .00052,
2597 + .00036, .00252, .00466,
2598 + .23643, .07681, .02911, .00412, .00051,
2599 + .00036, .00242, .00445,
2600 + .22943, .07431, .02776, .00395, .00051,
2601 + .00036, .00233, .00427,
2602 + .22301, .07203, .02654, .00379, .00050,
2603 + .00036, .00224, .00412,
2604 + .21707, .06994, .02544, .00367, .00049,
2605 + .00036, .00216, .00396 /
2606 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
2607 + .21128, .06792, .02439, .00355, .00048,
2608 + .00036, .00210, .00380,
2609 + .20569, .06597, .02340, .00343, .00048,
2610 + .00035, .00202, .00366,
2611 + .20051, .06417, .02250, .00333, .00047,
2612 + .00035, .00196, .00353,
2613 + .19573, .06251, .02169, .00323, .00046,
2614 + .00035, .00189, .00342,
2615 + .19101, .06087, .02090, .00313, .00045,
2616 + .00035, .00184, .00331 /
2617 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
2618 + .60535, .21527, .15013, .01294, .00000,
2619 + .00000, .00720, .01536,
2620 + .58296, .20612, .13823, .01224, .00000,
2621 + .00000, .00680, .01441,
2622 + .55168, .19346, .12291, .01129, .00000,
2623 + .00000, .00628, .01316,
2624 + .53041, .18487, .11316, .01063, .00003,
2625 + .00000, .00594, .01237,
2626 + .50922, .17652, .10399, .01004, .00009,
2627 + .00000, .00561, .01159,
2628 + .49170, .16966, .09685, .00956, .00014,
2629 + .00000, .00536, .01094,
2630 + .47560, .16337, .09063, .00912, .00018,
2631 + .00000, .00512, .01038,
2632 + .45922, .15700, .08463, .00866, .00021,
2633 + .00000, .00488, .00983 /
2634 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
2635 + .44547, .15169, .07982, .00831, .00024,
2636 + .00000, .00469, .00936,
2637 + .43264, .14679, .07553, .00798, .00026,
2638 + .00000, .00449, .00896,
2639 + .42279, .14305, .07234, .00774, .00028,
2640 + .00000, .00434, .00866,
2641 + .40274, .13545, .06607, .00724, .00031,
2642 + .00001, .00406, .00805,
2643 + .38645, .12934, .06116, .00682, .00033,
2644 + .00005, .00386, .00756,
2645 + .36909, .12287, .05619, .00641, .00035,
2646 + .00009, .00363, .00708,
2647 + .35197, .11655, .05158, .00600, .00036,
2648 + .00013, .00340, .00661,
2649 + .33722, .11115, .04782, .00566, .00037,
2650 + .00015, .00321, .00620 /
2651 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
2652 + .32304, .10598, .04438, .00535, .00038,
2653 + .00018, .00305, .00581,
2654 + .31176, .10190, .04175, .00510, .00038,
2655 + .00019, .00291, .00552,
2656 + .29869, .09718, .03883, .00481, .00038,
2657 + .00021, .00275, .00518,
2658 + .28763, .09323, .03646, .00458, .00039,
2659 + .00022, .00262, .00491,
2660 + .27788, .08978, .03445, .00439, .00039,
2661 + .00023, .00251, .00467,
2662 + .26607, .08559, .03208, .00412, .00038,
2663 + .00023, .00236, .00440,
2664 + .25546, .08185, .03004, .00390, .00038,
2665 + .00024, .00224, .00416,
2666 + .24597, .07853, .02828, .00372, .00038,
2667 + .00025, .00215, .00393 /
2668 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
2669 + .23682, .07534, .02663, .00354, .00037,
2670 + .00025, .00204, .00373,
2671 + .22827, .07237, .02513, .00336, .00037,
2672 + .00025, .00194, .00355,
2673 + .22051, .06969, .02381, .00320, .00036,
2674 + .00025, .00185, .00339,
2675 + .21341, .06725, .02265, .00307, .00036,
2676 + .00025, .00177, .00324,
2677 + .20655, .06490, .02154, .00295, .00035,
2678 + .00025, .00170, .00310,
2679 + .20001, .06266, .02051, .00283, .00034,
2680 + .00025, .00164, .00297,
2681 + .19403, .06063, .01959, .00272, .00034,
2682 + .00025, .00158, .00285,
2683 + .18853, .05877, .01876, .00262, .00033,
2684 + .00025, .00152, .00273 /
2685 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
2686 + .18318, .05697, .01796, .00252, .00033,
2687 + .00024, .00146, .00262,
2688 + .17803, .05525, .01722, .00243, .00032,
2689 + .00024, .00141, .00252,
2690 + .17326, .05365, .01655, .00235, .00032,
2691 + .00024, .00136, .00242,
2692 + .16888, .05219, .01594, .00228, .00031,
2693 + .00024, .00132, .00234,
2694 + .16455, .05075, .01534, .00221, .00031,
2695 + .00024, .00128, .00226 /
2696 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
2697 + .56651, .19461, .11108, .01020, .00000,
2698 + .00000, .00543, .01131,
2699 + .54380, .18574, .10237, .00957, .00000,
2700 + .00000, .00512, .01059,
2701 + .51224, .17354, .09121, .00877, .00000,
2702 + .00000, .00470, .00962,
2703 + .49082, .16533, .08410, .00824, .00002,
2704 + .00000, .00444, .00900,
2705 + .46969, .15733, .07738, .00774, .00006,
2706 + .00000, .00415, .00844,
2707 + .45225, .15079, .07217, .00735, .00010,
2708 + .00000, .00395, .00794,
2709 + .43628, .14483, .06760, .00698, .00012,
2710 + .00000, .00376, .00751,
2711 + .42009, .13881, .06316, .00660, .00015,
2712 + .00000, .00358, .00710 /
2713 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
2714 + .40651, .13383, .05962, .00633, .00017,
2715 + .00000, .00343, .00674,
2716 + .39392, .12922, .05646, .00606, .00018,
2717 + .00000, .00328, .00643,
2718 + .38430, .12571, .05411, .00585, .00019,
2719 + .00000, .00316, .00620,
2720 + .36474, .11862, .04945, .00544, .00021,
2721 + .00001, .00296, .00574,
2722 + .34893, .11294, .04578, .00512, .00023,
2723 + .00004, .00279, .00537,
2724 + .33215, .10694, .04209, .00478, .00024,
2725 + .00007, .00261, .00501,
2726 + .31565, .10110, .03864, .00447, .00025,
2727 + .00009, .00244, .00465,
2728 + .30148, .09612, .03581, .00421, .00026,
2729 + .00011, .00231, .00435 /
2730 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
2731 + .28793, .09138, .03322, .00395, .00026,
2732 + .00012, .00218, .00409,
2733 + .27720, .08766, .03124, .00376, .00026,
2734 + .00013, .00207, .00387,
2735 + .26479, .08337, .02904, .00354, .00027,
2736 + .00014, .00195, .00363,
2737 + .25433, .07978, .02724, .00336, .00027,
2738 + .00015, .00185, .00342,
2739 + .24517, .07665, .02571, .00321, .00026,
2740 + .00016, .00177, .00324,
2741 + .23402, .07286, .02392, .00303, .00026,
2742 + .00016, .00166, .00304,
2743 + .22409, .06950, .02238, .00286, .00026,
2744 + .00017, .00157, .00287,
2745 + .21523, .06652, .02104, .00270, .00026,
2746 + .00017, .00149, .00272 /
2747 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
2748 + .20669, .06368, .01979, .00258, .00025,
2749 + .00017, .00142, .00256,
2750 + .19876, .06103, .01866, .00245, .00025,
2751 + .00017, .00135, .00242,
2752 + .19160, .05863, .01766, .00231, .00025,
2753 + .00017, .00128, .00230,
2754 + .18506, .05646, .01677, .00220, .00024,
2755 + .00017, .00123, .00221,
2756 + .17875, .05438, .01593, .00210, .00024,
2757 + .00017, .00119, .00211,
2758 + .17275, .05241, .01515, .00202, .00023,
2759 + .00017, .00114, .00201,
2760 + .16727, .05063, .01446, .00195, .00023,
2761 + .00017, .00110, .00192,
2762 + .16223, .04899, .01383, .00188, .00023,
2763 + .00017, .00105, .00184 /
2764 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
2765 + .15734, .04740, .01323, .00180, .00022,
2766 + .00017, .00101, .00176,
2767 + .15266, .04588, .01267, .00174, .00022,
2768 + .00017, .00097, .00169,
2769 + .14833, .04448, .01216, .00167, .00022,
2770 + .00016, .00093, .00163,
2771 + .14435, .04320, .01169, .00161, .00021,
2772 + .00016, .00090, .00157,
2773 + .14041, .04194, .01124, .00157, .00021,
2774 + .00016, .00088, .00151 /
2775 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
2776 + .52486, .17413, .08176, .00782, .00000,
2777 + .00000, .00407, .00823,
2778 + .50218, .16566, .07558, .00732, .00000,
2779 + .00000, .00382, .00768,
2780 + .47078, .15412, .06757, .00670, .00000,
2781 + .00000, .00348, .00692,
2782 + .44964, .14637, .06245, .00625, .00002,
2783 + .00000, .00323, .00651,
2784 + .42882, .13886, .05759, .00587, .00004,
2785 + .00000, .00303, .00605,
2786 + .41176, .13273, .05380, .00556, .00007,
2787 + .00000, .00287, .00568,
2788 + .39617, .12715, .05047, .00528, .00008,
2789 + .00000, .00272, .00535,
2790 + .38040, .12156, .04723, .00500, .00010,
2791 + .00000, .00257, .00502 /
2792 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
2793 + .36729, .11693, .04461, .00474, .00011,
2794 + .00000, .00245, .00479,
2795 + .35512, .11267, .04227, .00453, .00013,
2796 + .00000, .00235, .00456,
2797 + .34584, .10943, .04052, .00439, .00013,
2798 + .00000, .00228, .00437,
2799 + .32705, .10289, .03706, .00407, .00015,
2800 + .00001, .00210, .00402,
2801 + .31186, .09767, .03433, .00384, .00016,
2802 + .00002, .00197, .00376,
2803 + .29588, .09220, .03155, .00358, .00017,
2804 + .00005, .00184, .00347,
2805 + .28025, .08688, .02895, .00332, .00017,
2806 + .00006, .00172, .00322,
2807 + .26687, .08236, .02682, .00311, .00018,
2808 + .00008, .00161, .00301 /
2809 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
2810 + .25410, .07808, .02487, .00292, .00018,
2811 + .00009, .00151, .00282,
2812 + .24405, .07470, .02337, .00277, .00018,
2813 + .00009, .00144, .00266,
2814 + .23242, .07086, .02170, .00261, .00018,
2815 + .00010, .00135, .00246,
2816 + .22268, .06764, .02034, .00247, .00018,
2817 + .00011, .00128, .00232,
2818 + .21419, .06483, .01918, .00234, .00018,
2819 + .00011, .00122, .00221,
2820 + .20386, .06146, .01782, .00220, .00018,
2821 + .00011, .00114, .00207,
2822 + .19468, .05848, .01665, .00207, .00018,
2823 + .00012, .00107, .00194,
2824 + .18654, .05583, .01563, .00196, .00018,
2825 + .00012, .00101, .00182 /
2826 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
2827 + .17871, .05331, .01469, .00185, .00017,
2828 + .00012, .00096, .00173,
2829 + .17143, .05098, .01383, .00175, .00017,
2830 + .00012, .00091, .00163,
2831 + .16485, .04887, .01307, .00167, .00017,
2832 + .00012, .00087, .00155,
2833 + .15889, .04697, .01239, .00160, .00017,
2834 + .00012, .00083, .00147,
2835 + .15316, .04515, .01176, .00153, .00016,
2836 + .00012, .00080, .00140,
2837 + .14772, .04344, .01117, .00146, .00016,
2838 + .00012, .00077, .00134,
2839 + .14277, .04189, .01064, .00140, .00016,
2840 + .00012, .00074, .00127,
2841 + .13822, .04046, .01016, .00135, .00015,
2842 + .00012, .00070, .00122 /
2843 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
2844 + .13382, .03907, .00971, .00130, .00015,
2845 + .00011, .00067, .00116,
2846 + .12961, .03776, .00928, .00125, .00015,
2847 + .00011, .00064, .00111,
2848 + .12574, .03655, .00890, .00120, .00015,
2849 + .00011, .00061, .00107,
2850 + .12218, .03545, .00855, .00115, .00014,
2851 + .00011, .00059, .00104,
2852 + .11867, .03436, .00821, .00111, .00014,
2853 + .00011, .00057, .00100 /
2854 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
2855 + .48130, .15409, .06001, .00585, .00000,
2856 + .00000, .00302, .00593,
2857 + .45898, .14615, .05567, .00546, .00000,
2858 + .00000, .00281, .00553,
2859 + .42827, .13532, .05000, .00494, .00000,
2860 + .00000, .00256, .00498,
2861 + .40765, .12815, .04631, .00462, .00001,
2862 + .00000, .00238, .00461,
2863 + .38757, .12117, .04283, .00431, .00003,
2864 + .00000, .00222, .00427,
2865 + .37110, .11551, .04007, .00405, .00005,
2866 + .00000, .00210, .00400,
2867 + .35607, .11038, .03763, .00384, .00006,
2868 + .00000, .00199, .00376,
2869 + .34092, .10524, .03524, .00364, .00007,
2870 + .00000, .00187, .00353 /
2871 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
2872 + .32838, .10100, .03333, .00347, .00008,
2873 + .00000, .00178, .00335,
2874 + .31680, .09709, .03159, .00329, .00009,
2875 + .00000, .00170, .00318,
2876 + .30800, .09413, .03028, .00315, .00009,
2877 + .00000, .00164, .00305,
2878 + .29018, .08819, .02770, .00290, .00010,
2879 + .00001, .00151, .00282,
2880 + .27589, .08346, .02566, .00272, .00011,
2881 + .00002, .00142, .00263,
2882 + .26087, .07852, .02357, .00253, .00011,
2883 + .00003, .00132, .00244,
2884 + .24623, .07374, .02162, .00234, .00012,
2885 + .00004, .00122, .00224,
2886 + .23376, .06969, .02001, .00218, .00012,
2887 + .00005, .00114, .00208 /
2888 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
2889 + .22191, .06587, .01853, .00203, .00012,
2890 + .00006, .00107, .00194,
2891 + .21259, .06288, .01740, .00192, .00012,
2892 + .00006, .00102, .00183,
2893 + .20186, .05945, .01613, .00180, .00012,
2894 + .00007, .00095, .00171,
2895 + .19289, .05661, .01510, .00170, .00012,
2896 + .00007, .00090, .00161,
2897 + .18508, .05415, .01422, .00161, .00012,
2898 + .00007, .00086, .00151,
2899 + .17565, .05118, .01318, .00150, .00012,
2900 + .00008, .00081, .00140,
2901 + .16729, .04856, .01229, .00142, .00012,
2902 + .00008, .00076, .00132,
2903 + .15988, .04624, .01153, .00134, .00012,
2904 + .00008, .00073, .00125 /
2905 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
2906 + .15277, .04406, .01081, .00128, .00012,
2907 + .00008, .00069, .00116,
2908 + .14619, .04203, .01016, .00121, .00012,
2909 + .00008, .00065, .00110,
2910 + .14029, .04019, .00958, .00113, .00011,
2911 + .00008, .00061, .00106,
2912 + .13493, .03855, .00907, .00108, .00011,
2913 + .00008, .00058, .00101,
2914 + .12979, .03699, .00859, .00103, .00011,
2915 + .00008, .00055, .00095,
2916 + .12491, .03551, .00815, .00098, .00011,
2917 + .00008, .00053, .00090,
2918 + .12048, .03417, .00775, .00095, .00011,
2919 + .00008, .00051, .00085,
2920 + .11645, .03295, .00739, .00090, .00010,
2921 + .00008, .00048, .00082 /
2922 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
2923 + .11256, .03177, .00705, .00086, .00010,
2924 + .00008, .00046, .00078,
2925 + .10882, .03065, .00673, .00082, .00010,
2926 + .00008, .00044, .00075,
2927 + .10537, .02962, .00645, .00080, .00010,
2928 + .00008, .00043, .00073,
2929 + .10222, .02868, .00618, .00077, .00010,
2930 + .00007, .00041, .00070,
2931 + .09913, .02776, .00593, .00074, .00009,
2932 + .00007, .00040, .00067 /
2933 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
2934 + .43668, .13499, .04413, .00430, .00000,
2935 + .00000, .00219, .00420,
2936 + .41507, .12760, .04109, .00400, .00000,
2937 + .00000, .00205, .00389,
2938 + .38548, .11760, .03705, .00363, .00000,
2939 + .00000, .00186, .00348,
2940 + .36575, .11098, .03443, .00334, .00001,
2941 + .00000, .00173, .00322,
2942 + .34651, .10461, .03189, .00310, .00002,
2943 + .00000, .00162, .00299,
2944 + .33087, .09942, .02988, .00290, .00003,
2945 + .00000, .00152, .00280,
2946 + .31663, .09475, .02809, .00273, .00004,
2947 + .00000, .00143, .00264,
2948 + .30231, .09009, .02633, .00258, .00005,
2949 + .00000, .00134, .00247 /
2950 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
2951 + .29050, .08626, .02489, .00243, .00005,
2952 + .00000, .00129, .00233,
2953 + .27962, .08273, .02359, .00230, .00006,
2954 + .00000, .00123, .00220,
2955 + .27136, .08006, .02262, .00220, .00006,
2956 + .00000, .00118, .00211,
2957 + .25472, .07473, .02068, .00202, .00007,
2958 + .00000, .00109, .00195,
2959 + .24143, .07051, .01914, .00187, .00007,
2960 + .00001, .00102, .00180,
2961 + .22750, .06612, .01757, .00173, .00008,
2962 + .00002, .00095, .00166,
2963 + .21397, .06188, .01609, .00159, .00008,
2964 + .00003, .00088, .00155,
2965 + .20249, .05830, .01487, .00148, .00008,
2966 + .00004, .00082, .00144 /
2967 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
2968 + .19163, .05495, .01375, .00138, .00008,
2969 + .00004, .00076, .00133,
2970 + .18310, .05232, .01289, .00131, .00008,
2971 + .00004, .00072, .00126,
2972 + .17334, .04933, .01193, .00122, .00008,
2973 + .00005, .00067, .00117,
2974 + .16522, .04684, .01115, .00114, .00008,
2975 + .00005, .00064, .00110,
2976 + .15817, .04469, .01048, .00107, .00008,
2977 + .00005, .00061, .00104,
2978 + .14964, .04213, .00970, .00101, .00008,
2979 + .00005, .00057, .00096,
2980 + .14212, .03986, .00902, .00095, .00008,
2981 + .00005, .00054, .00089,
2982 + .13551, .03786, .00844, .00087, .00008,
2983 + .00005, .00050, .00083 /
2984 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
2985 + .12918, .03597, .00791, .00082, .00008,
2986 + .00005, .00047, .00080,
2987 + .12331, .03424, .00741, .00078, .00008,
2988 + .00005, .00044, .00075,
2989 + .11803, .03269, .00698, .00075, .00008,
2990 + .00005, .00042, .00070,
2991 + .11329, .03128, .00660, .00071, .00007,
2992 + .00005, .00040, .00067,
2993 + .10876, .02994, .00624, .00067, .00007,
2994 + .00005, .00038, .00064,
2995 + .10445, .02869, .00590, .00064, .00007,
2996 + .00005, .00036, .00061,
2997 + .10055, .02755, .00561, .00062, .00007,
2998 + .00005, .00035, .00057,
2999 + .09700, .02652, .00534, .00059, .00007,
3000 + .00005, .00034, .00054 /
3001 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
3002 + .09357, .02553, .00509, .00056, .00007,
3003 + .00005, .00032, .00052,
3004 + .09030, .02458, .00485, .00054, .00007,
3005 + .00005, .00031, .00050,
3006 + .08730, .02372, .00464, .00052, .00006,
3007 + .00005, .00029, .00047,
3008 + .08456, .02293, .00444, .00050, .00006,
3009 + .00005, .00028, .00045,
3010 + .08189, .02215, .00425, .00047, .00006,
3011 + .00005, .00027, .00044 /
3012 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
3013 + .39202, .11710, .03267, .00324, .00000,
3014 + .00000, .00149, .00285,
3015 + .37134, .11036, .03054, .00302, .00000,
3016 + .00000, .00139, .00262,
3017 + .34332, .10126, .02768, .00268, .00000,
3018 + .00000, .00124, .00236,
3019 + .32469, .09524, .02577, .00246, .00001,
3020 + .00000, .00114, .00222,
3021 + .30659, .08948, .02392, .00229, .00002,
3022 + .00000, .00108, .00201,
3023 + .29192, .08482, .02244, .00214, .00002,
3024 + .00000, .00101, .00189,
3025 + .27863, .08063, .02110, .00201, .00003,
3026 + .00000, .00095, .00177,
3027 + .26530, .07647, .01978, .00189, .00003,
3028 + .00000, .00088, .00164 /
3029 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
3030 + .25432, .07305, .01870, .00181, .00004,
3031 + .00000, .00084, .00154,
3032 + .24424, .06992, .01772, .00171, .00004,
3033 + .00000, .00079, .00146,
3034 + .23662, .06755, .01698, .00163, .00004,
3035 + .00000, .00076, .00141,
3036 + .22130, .06283, .01551, .00149, .00005,
3037 + .00000, .00071, .00127,
3038 + .20911, .05911, .01434, .00137, .00005,
3039 + .00001, .00066, .00118,
3040 + .19637, .05526, .01314, .00128, .00005,
3041 + .00002, .00060, .00108,
3042 + .18408, .05154, .01201, .00117, .00006,
3043 + .00002, .00056, .00099,
3044 + .17369, .04842, .01108, .00108, .00006,
3045 + .00002, .00052, .00093 /
3046 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
3047 + .16386, .04551, .01023, .00102, .00006,
3048 + .00003, .00048, .00085,
3049 + .15620, .04322, .00956, .00097, .00006,
3050 + .00003, .00046, .00078,
3051 + .14745, .04064, .00883, .00089, .00006,
3052 + .00003, .00042, .00073,
3053 + .14019, .03849, .00824, .00082, .00006,
3054 + .00003, .00039, .00069,
3055 + .13389, .03664, .00774, .00077, .00006,
3056 + .00003, .00037, .00065,
3057 + .12630, .03445, .00714, .00073, .00006,
3058 + .00004, .00035, .00061,
3059 + .11963, .03251, .00663, .00068, .00005,
3060 + .00004, .00033, .00057,
3061 + .11376, .03081, .00619, .00063, .00005,
3062 + .00004, .00031, .00053 /
3063 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
3064 + .10817, .02921, .00578, .00061, .00005,
3065 + .00004, .00029, .00049,
3066 + .10301, .02774, .00541, .00058, .00005,
3067 + .00004, .00027, .00046,
3068 + .09838, .02642, .00508, .00055, .00005,
3069 + .00004, .00024, .00043,
3070 + .09424, .02523, .00480, .00052, .00005,
3071 + .00004, .00023, .00041,
3072 + .09029, .02410, .00453, .00050, .00005,
3073 + .00004, .00023, .00038,
3074 + .08656, .02305, .00428, .00046, .00005,
3075 + .00004, .00022, .00036,
3076 + .08319, .02209, .00405, .00043, .00005,
3077 + .00004, .00021, .00035,
3078 + .08011, .02123, .00386, .00041, .00005,
3079 + .00003, .00020, .00033 /
3080 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
3081 + .07713, .02040, .00367, .00040, .00004,
3082 + .00003, .00018, .00031,
3083 + .07431, .01961, .00349, .00038, .00004,
3084 + .00003, .00018, .00030,
3085 + .07173, .01889, .00333, .00037, .00004,
3086 + .00003, .00017, .00029,
3087 + .06937, .01823, .00319, .00035, .00004,
3088 + .00003, .00017, .00028,
3089 + .06705, .01759, .00305, .00034, .00004,
3090 + .00003, .00016, .00026 /
3091 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
3092 + .34777, .10009, .02424, .00218, .00000,
3093 + .00000, .00109, .00199,
3094 + .32838, .09400, .02273, .00201, .00000,
3095 + .00000, .00101, .00183,
3096 + .30208, .08585, .02067, .00181, .00000,
3097 + .00000, .00090, .00163,
3098 + .28471, .08051, .01926, .00168, .00000,
3099 + .00000, .00084, .00149,
3100 + .26793, .07539, .01788, .00156, .00001,
3101 + .00000, .00077, .00136,
3102 + .25434, .07127, .01676, .00146, .00001,
3103 + .00000, .00072, .00126,
3104 + .24208, .06758, .01576, .00137, .00002,
3105 + .00000, .00067, .00120,
3106 + .22984, .06390, .01476, .00127, .00002,
3107 + .00000, .00062, .00113 /
3108 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
3109 + .21981, .06089, .01394, .00121, .00003,
3110 + .00000, .00059, .00105,
3111 + .21060, .05816, .01320, .00115, .00003,
3112 + .00000, .00055, .00099,
3113 + .20364, .05611, .01264, .00110, .00003,
3114 + .00000, .00053, .00094,
3115 + .18979, .05201, .01151, .00098, .00003,
3116 + .00000, .00048, .00085,
3117 + .17876, .04878, .01062, .00091, .00003,
3118 + .00001, .00045, .00078,
3119 + .16729, .04544, .00972, .00084, .00004,
3120 + .00001, .00041, .00072,
3121 + .15624, .04224, .00885, .00079, .00004,
3122 + .00001, .00037, .00067,
3123 + .14695, .03956, .00815, .00073, .00004,
3124 + .00002, .00035, .00061 /
3125 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
3126 + .13823, .03706, .00750, .00067, .00004,
3127 + .00002, .00032, .00056,
3128 + .13142, .03512, .00700, .00063, .00004,
3129 + .00002, .00030, .00052,
3130 + .12368, .03291, .00644, .00057, .00004,
3131 + .00002, .00028, .00049,
3132 + .11728, .03110, .00599, .00053, .00004,
3133 + .00002, .00026, .00046,
3134 + .11174, .02953, .00561, .00050, .00004,
3135 + .00002, .00025, .00043,
3136 + .10511, .02768, .00517, .00047, .00004,
3137 + .00002, .00024, .00038,
3138 + .09927, .02605, .00479, .00044, .00004,
3139 + .00002, .00022, .00036,
3140 + .09415, .02462, .00446, .00042, .00004,
3141 + .00002, .00020, .00034 /
3142 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
3143 + .08929, .02328, .00415, .00039, .00003,
3144 + .00002, .00019, .00032,
3145 + .08483, .02206, .00388, .00037, .00003,
3146 + .00002, .00018, .00030,
3147 + .08084, .02096, .00364, .00035, .00003,
3148 + .00002, .00017, .00027,
3149 + .07725, .01998, .00342, .00033, .00003,
3150 + .00002, .00016, .00026,
3151 + .07384, .01905, .00322, .00032, .00003,
3152 + .00002, .00015, .00024,
3153 + .07064, .01818, .00304, .00031, .00003,
3154 + .00002, .00014, .00023,
3155 + .06775, .01739, .00288, .00029, .00003,
3156 + .00002, .00013, .00021,
3157 + .06512, .01668, .00273, .00027, .00003,
3158 + .00002, .00013, .00021 /
3159 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
3160 + .06259, .01599, .00259, .00025, .00003,
3161 + .00002, .00012, .00020,
3162 + .06019, .01535, .00246, .00024, .00003,
3163 + .00002, .00012, .00019,
3164 + .05800, .01476, .00235, .00024, .00003,
3165 + .00002, .00011, .00018,
3166 + .05600, .01423, .00224, .00023, .00003,
3167 + .00002, .00010, .00017,
3168 + .05405, .01370, .00214, .00021, .00003,
3169 + .00002, .00010, .00017 /
3170 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
3171 + .30471, .08451, .01814, .00149, .00000,
3172 + .00000, .00077, .00136,
3173 + .28678, .07912, .01703, .00134, .00000,
3174 + .00000, .00072, .00125,
3175 + .26256, .07191, .01548, .00120, .00000,
3176 + .00000, .00063, .00110,
3177 + .24658, .06721, .01441, .00110, .00000,
3178 + .00000, .00058, .00103,
3179 + .23125, .06272, .01336, .00101, .00001,
3180 + .00000, .00054, .00092,
3181 + .21890, .05912, .01251, .00093, .00001,
3182 + .00000, .00050, .00086,
3183 + .20778, .05591, .01174, .00088, .00001,
3184 + .00000, .00046, .00081,
3185 + .19669, .05273, .01098, .00083, .00002,
3186 + .00000, .00042, .00075 /
3187 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
3188 + .18763, .05012, .01035, .00079, .00002,
3189 + .00000, .00040, .00068,
3190 + .17935, .04776, .00978, .00074, .00002,
3191 + .00000, .00038, .00064,
3192 + .17310, .04600, .00935, .00070, .00002,
3193 + .00000, .00037, .00062,
3194 + .16071, .04245, .00849, .00062, .00002,
3195 + .00000, .00033, .00058,
3196 + .15088, .03969, .00781, .00058, .00002,
3197 + .00000, .00031, .00052,
3198 + .14069, .03684, .00712, .00053, .00002,
3199 + .00001, .00029, .00046,
3200 + .13092, .03413, .00647, .00049, .00002,
3201 + .00001, .00026, .00043,
3202 + .12273, .03187, .00593, .00045, .00002,
3203 + .00001, .00024, .00040 /
3204 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
3205 + .11507, .02976, .00544, .00041, .00002,
3206 + .00001, .00022, .00036,
3207 + .10914, .02812, .00507, .00038, .00002,
3208 + .00001, .00020, .00034,
3209 + .10238, .02628, .00465, .00036, .00002,
3210 + .00001, .00019, .00031,
3211 + .09680, .02476, .00431, .00034, .00002,
3212 + .00001, .00018, .00029,
3213 + .09199, .02346, .00403, .00032, .00002,
3214 + .00002, .00017, .00027,
3215 + .08627, .02191, .00370, .00029, .00002,
3216 + .00002, .00016, .00025,
3217 + .08124, .02057, .00341, .00027, .00002,
3218 + .00002, .00014, .00024,
3219 + .07684, .01939, .00317, .00025, .00002,
3220 + .00002, .00013, .00023 /
3221 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
3222 + .07270, .01829, .00294, .00023, .00002,
3223 + .00002, .00012, .00021,
3224 + .06890, .01728, .00274, .00022, .00002,
3225 + .00002, .00012, .00019,
3226 + .06550, .01638, .00256, .00020, .00002,
3227 + .00002, .00011, .00018,
3228 + .06245, .01558, .00241, .00020, .00002,
3229 + .00002, .00010, .00017,
3230 + .05955, .01482, .00227, .00019, .00002,
3231 + .00002, .00009, .00016,
3232 + .05684, .01411, .00213, .00019, .00002,
3233 + .00002, .00009, .00015,
3234 + .05440, .01348, .00201, .00018, .00002,
3235 + .00001, .00009, .00013,
3236 + .05220, .01290, .00191, .00016, .00002,
3237 + .00001, .00008, .00013 /
3238 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
3239 + .05009, .01235, .00181, .00015, .00002,
3240 + .00001, .00008, .00013,
3241 + .04808, .01183, .00171, .00014, .00002,
3242 + .00001, .00008, .00012,
3243 + .04624, .01136, .00163, .00014, .00002,
3244 + .00001, .00007, .00012,
3245 + .04457, .01093, .00155, .00013, .00002,
3246 + .00001, .00007, .00012,
3247 + .04295, .01051, .00148, .00013, .00002,
3248 + .00001, .00007, .00011 /
3249 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
3250 + .26376, .07053, .01369, .00103, .00000,
3251 + .00000, .00048, .00086,
3252 + .24735, .06582, .01284, .00095, .00000,
3253 + .00000, .00044, .00078,
3254 + .22533, .05953, .01163, .00083, .00000,
3255 + .00000, .00038, .00071,
3256 + .21088, .05547, .01081, .00079, .00000,
3257 + .00000, .00036, .00061,
3258 + .19713, .05158, .01000, .00070, .00000,
3259 + .00000, .00033, .00056,
3260 + .18601, .04849, .00934, .00066, .00001,
3261 + .00000, .00030, .00052,
3262 + .17605, .04573, .00874, .00062, .00001,
3263 + .00000, .00028, .00048,
3264 + .16619, .04299, .00815, .00058, .00001,
3265 + .00000, .00026, .00045 /
3266 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
3267 + .15814, .04077, .00766, .00054, .00001,
3268 + .00000, .00025, .00044,
3269 + .15082, .03876, .00722, .00051, .00001,
3270 + .00000, .00023, .00040,
3271 + .14530, .03726, .00689, .00049, .00001,
3272 + .00000, .00022, .00037,
3273 + .13434, .03427, .00623, .00043, .00001,
3274 + .00000, .00020, .00035,
3275 + .12570, .03194, .00571, .00041, .00001,
3276 + .00000, .00018, .00031,
3277 + .11681, .02954, .00518, .00038, .00002,
3278 + .00000, .00017, .00027,
3279 + .10832, .02726, .00469, .00034, .00002,
3280 + .00001, .00015, .00026,
3281 + .10123, .02537, .00429, .00031, .00002,
3282 + .00001, .00014, .00024 /
3283 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
3284 + .09460, .02362, .00392, .00029, .00002,
3285 + .00001, .00013, .00021,
3286 + .08948, .02226, .00364, .00026, .00002,
3287 + .00001, .00012, .00021,
3288 + .08368, .02073, .00333, .00024, .00002,
3289 + .00001, .00011, .00019,
3290 + .07890, .01949, .00308, .00023, .00002,
3291 + .00001, .00010, .00017,
3292 + .07478, .01843, .00287, .00021, .00002,
3293 + .00001, .00010, .00016,
3294 + .06990, .01716, .00262, .00021, .00002,
3295 + .00001, .00008, .00014,
3296 + .06565, .01606, .00241, .00019, .00001,
3297 + .00001, .00008, .00013,
3298 + .06194, .01510, .00224, .00018, .00001,
3299 + .00001, .00007, .00013 /
3300 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
3301 + .05844, .01420, .00207, .00016, .00001,
3302 + .00001, .00007, .00012,
3303 + .05523, .01339, .00193, .00016, .00001,
3304 + .00001, .00006, .00011,
3305 + .05237, .01266, .00180, .00015, .00001,
3306 + .00001, .00006, .00010,
3307 + .04984, .01202, .00168, .00014, .00001,
3308 + .00001, .00006, .00010,
3309 + .04743, .01141, .00158, .00012, .00001,
3310 + .00001, .00005, .00009,
3311 + .04519, .01084, .00148, .00012, .00001,
3312 + .00001, .00005, .00008,
3313 + .04317, .01033, .00140, .00011, .00001,
3314 + .00001, .00005, .00008,
3315 + .04134, .00987, .00132, .00010, .00001,
3316 + .00001, .00004, .00008 /
3317 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
3318 + .03958, .00943, .00125, .00010, .00001,
3319 + .00001, .00004, .00008,
3320 + .03793, .00901, .00118, .00009, .00001,
3321 + .00001, .00004, .00007,
3322 + .03642, .00864, .00112, .00008, .00001,
3323 + .00001, .00004, .00007,
3324 + .03505, .00830, .00107, .00008, .00001,
3325 + .00001, .00003, .00006,
3326 + .03371, .00797, .00102, .00008, .00001,
3327 + .00001, .00003, .00006 /
3328 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
3329 + .22483, .05778, .01030, .00062, .00000,
3330 + .00000, .00033, .00059,
3331 + .21005, .05376, .00963, .00058, .00000,
3332 + .00000, .00031, .00052,
3333 + .19038, .04839, .00868, .00052, .00000,
3334 + .00000, .00028, .00044,
3335 + .17759, .04490, .00803, .00046, .00000,
3336 + .00000, .00026, .00041,
3337 + .16535, .04162, .00739, .00042, .00000,
3338 + .00000, .00023, .00038,
3339 + .15555, .03900, .00687, .00039, .00000,
3340 + .00000, .00021, .00036,
3341 + .14681, .03667, .00641, .00036, .00001,
3342 + .00000, .00019, .00033,
3343 + .13818, .03438, .00595, .00033, .00001,
3344 + .00000, .00018, .00030 /
3345 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
3346 + .13114, .03253, .00558, .00031, .00001,
3347 + .00000, .00016, .00027,
3348 + .12474, .03084, .00524, .00029, .00001,
3349 + .00000, .00015, .00025,
3350 + .11994, .02958, .00498, .00028, .00001,
3351 + .00000, .00015, .00025,
3352 + .11044, .02710, .00448, .00024, .00001,
3353 + .00000, .00014, .00023,
3354 + .10303, .02517, .00410, .00022, .00001,
3355 + .00000, .00012, .00021,
3356 + .09538, .02321, .00370, .00020, .00001,
3357 + .00000, .00011, .00019,
3358 + .08809, .02133, .00333, .00018, .00001,
3359 + .00000, .00010, .00017,
3360 + .08204, .01978, .00303, .00017, .00001,
3361 + .00000, .00010, .00015 /
3362 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
3363 + .07641, .01835, .00276, .00015, .00001,
3364 + .00001, .00008, .00014,
3365 + .07205, .01726, .00255, .00015, .00001,
3366 + .00001, .00008, .00013,
3367 + .06716, .01602, .00233, .00014, .00001,
3368 + .00001, .00007, .00012,
3369 + .06314, .01502, .00215, .00013, .00001,
3370 + .00001, .00007, .00011,
3371 + .05969, .01416, .00199, .00013, .00001,
3372 + .00001, .00007, .00010,
3373 + .05563, .01314, .00182, .00011, .00001,
3374 + .00001, .00006, .00009,
3375 + .05208, .01226, .00167, .00010, .00001,
3376 + .00001, .00005, .00009,
3377 + .04899, .01150, .00154, .00010, .00001,
3378 + .00001, .00005, .00008 /
3379 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
3380 + .04610, .01078, .00142, .00008, .00001,
3381 + .00001, .00005, .00008,
3382 + .04346, .01014, .00132, .00008, .00001,
3383 + .00001, .00004, .00007,
3384 + .04111, .00957, .00122, .00007, .00001,
3385 + .00001, .00004, .00006,
3386 + .03903, .00906, .00115, .00007, .00001,
3387 + .00001, .00004, .00006,
3388 + .03705, .00858, .00107, .00007, .00001,
3389 + .00001, .00004, .00006,
3390 + .03521, .00813, .00100, .00007, .00001,
3391 + .00001, .00003, .00005,
3392 + .03355, .00773, .00094, .00006, .00001,
3393 + .00001, .00003, .00005,
3394 + .03206, .00737, .00089, .00006, .00001,
3395 + .00001, .00003, .00005 /
3396 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
3397 + .03063, .00703, .00084, .00006, .00001,
3398 + .00001, .00003, .00005,
3399 + .02929, .00671, .00079, .00006, .00001,
3400 + .00001, .00003, .00004,
3401 + .02807, .00641, .00075, .00005, .00001,
3402 + .00001, .00003, .00004,
3403 + .02697, .00615, .00072, .00005, .00001,
3404 + .00001, .00002, .00004,
3405 + .02590, .00589, .00068, .00004, .00001,
3406 + .00001, .00002, .00004 /
3407 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
3408 + .15588, .03702, .00579, .00026, .00000,
3409 + .00000, .00011, .00021,
3410 + .14457, .03415, .00533, .00024, .00000,
3411 + .00000, .00012, .00017,
3412 + .12963, .03043, .00471, .00019, .00000,
3413 + .00000, .00009, .00016,
3414 + .11997, .02804, .00430, .00018, .00000,
3415 + .00000, .00009, .00014,
3416 + .11086, .02579, .00390, .00016, .00000,
3417 + .00000, .00008, .00013,
3418 + .10364, .02400, .00359, .00014, .00000,
3419 + .00000, .00008, .00013,
3420 + .09722, .02243, .00332, .00013, .00000,
3421 + .00000, .00007, .00011,
3422 + .09091, .02090, .00305, .00013, .00000,
3423 + .00000, .00007, .00010 /
3424 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
3425 + .08581, .01966, .00283, .00012, .00000,
3426 + .00000, .00006, .00009,
3427 + .08120, .01855, .00264, .00011, .00000,
3428 + .00000, .00006, .00009,
3429 + .07776, .01772, .00249, .00010, .00000,
3430 + .00000, .00005, .00009,
3431 + .07099, .01610, .00222, .00009, .00000,
3432 + .00000, .00005, .00007,
3433 + .06574, .01485, .00200, .00008, .00000,
3434 + .00000, .00004, .00007,
3435 + .06039, .01358, .00179, .00007, .00000,
3436 + .00000, .00004, .00006,
3437 + .05534, .01239, .00160, .00006, .00000,
3438 + .00000, .00004, .00006,
3439 + .05117, .01141, .00144, .00006, .00000,
3440 + .00000, .00003, .00006 /
3441 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
3442 + .04732, .01051, .00130, .00005, .00000,
3443 + .00000, .00003, .00004,
3444 + .04437, .00982, .00119, .00005, .00000,
3445 + .00000, .00003, .00004,
3446 + .04106, .00906, .00108, .00005, .00000,
3447 + .00000, .00002, .00004,
3448 + .03838, .00844, .00099, .00004, .00000,
3449 + .00000, .00002, .00003,
3450 + .03610, .00791, .00091, .00003, .00000,
3451 + .00000, .00002, .00003,
3452 + .03340, .00730, .00082, .00004, .00000,
3453 + .00000, .00002, .00003,
3454 + .03108, .00677, .00075, .00003, .00000,
3455 + .00000, .00002, .00003,
3456 + .02907, .00631, .00069, .00002, .00000,
3457 + .00000, .00002, .00002 /
3458 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
3459 + .02719, .00588, .00063, .00003, .00000,
3460 + .00000, .00002, .00002,
3461 + .02548, .00550, .00058, .00002, .00000,
3462 + .00000, .00002, .00002,
3463 + .02398, .00516, .00054, .00002, .00000,
3464 + .00000, .00001, .00002,
3465 + .02265, .00486, .00050, .00002, .00000,
3466 + .00000, .00001, .00002,
3467 + .02140, .00458, .00047, .00002, .00000,
3468 + .00000, .00001, .00002,
3469 + .02024, .00432, .00044, .00002, .00000,
3470 + .00000, .00001, .00002,
3471 + .01921, .00409, .00041, .00002, .00000,
3472 + .00000, .00001, .00001,
3473 + .01827, .00389, .00038, .00002, .00000,
3474 + .00000, .00001, .00001 /
3475 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/
3476 + .01739, .00369, .00036, .00002, .00000,
3477 + .00000, .00001, .00001,
3478 + .01656, .00351, .00034, .00002, .00000,
3479 + .00000, .00001, .00001,
3480 + .01581, .00334, .00032, .00001, .00000,
3481 + .00000, .00001, .00001,
3482 + .01513, .00319, .00030, .00001, .00000,
3483 + .00000, .00001, .00001,
3484 + .01447, .00305, .00029, .00001, .00000,
3485 + .00000, .00001, .00001 /
3486 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/
3487 + .09989, .02174, .00303, .00009, .00000,
3488 + .00000, .00003, .00006,
3489 + .09191, .01990, .00273, .00007, .00000,
3490 + .00000, .00003, .00006,
3491 + .08143, .01753, .00235, .00008, .00000,
3492 + .00000, .00003, .00004,
3493 + .07476, .01601, .00211, .00006, .00000,
3494 + .00000, .00003, .00004,
3495 + .06851, .01461, .00188, .00006, .00000,
3496 + .00000, .00002, .00004,
3497 + .06359, .01351, .00171, .00005, .00000,
3498 + .00000, .00002, .00003,
3499 + .05926, .01254, .00156, .00004, .00000,
3500 + .00000, .00002, .00003,
3501 + .05504, .01160, .00142, .00004, .00000,
3502 + .00000, .00002, .00003 /
3503 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
3504 + .05163, .01085, .00130, .00004, .00000,
3505 + .00000, .00002, .00003,
3506 + .04858, .01018, .00120, .00003, .00000,
3507 + .00000, .00002, .00002,
3508 + .04633, .00969, .00113, .00003, .00000,
3509 + .00000, .00001, .00002,
3510 + .04190, .00872, .00099, .00003, .00000,
3511 + .00000, .00001, .00002,
3512 + .03850, .00798, .00089, .00003, .00000,
3513 + .00000, .00001, .00002,
3514 + .03507, .00724, .00078, .00003, .00000,
3515 + .00000, .00001, .00001,
3516 + .03185, .00655, .00069, .00002, .00000,
3517 + .00000, .00001, .00002,
3518 + .02923, .00598, .00062, .00002, .00000,
3519 + .00000, .00001, .00002 /
3520 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
3521 + .02683, .00547, .00055, .00002, .00000,
3522 + .00000, .00001, .00001,
3523 + .02500, .00508, .00050, .00001, .00000,
3524 + .00000, .00001, .00001,
3525 + .02297, .00465, .00045, .00001, .00000,
3526 + .00000, .00001, .00001,
3527 + .02132, .00431, .00041, .00001, .00000,
3528 + .00000, .00000, .00001,
3529 + .01993, .00401, .00038, .00001, .00000,
3530 + .00000, .00000, .00001,
3531 + .01830, .00367, .00034, .00001, .00000,
3532 + .00000, .00000, .00001,
3533 + .01691, .00338, .00030, .00001, .00000,
3534 + .00000, .00000, .00001,
3535 + .01572, .00314, .00028, .00001, .00000,
3536 + .00000, .00000, .00001 /
3537 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
3538 + .01461, .00290, .00025, .00001, .00000,
3539 + .00000, .00000, .00001,
3540 + .01361, .00270, .00023, .00001, .00000,
3541 + .00000, .00000, .00001,
3542 + .01273, .00252, .00021, .00001, .00000,
3543 + .00000, .00000, .00000,
3544 + .01196, .00236, .00020, .00001, .00000,
3545 + .00000, .00000, .00000,
3546 + .01125, .00221, .00018, .00001, .00000,
3547 + .00000, .00000, .00000,
3548 + .01058, .00208, .00017, .00001, .00000,
3549 + .00000, .00000, .00000,
3550 + .00999, .00196, .00016, .00001, .00000,
3551 + .00000, .00000, .00000,
3552 + .00946, .00185, .00015, .00001, .00000,
3553 + .00000, .00000, .00000 /
3554 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/
3555 + .00896, .00175, .00014, .00001, .00000,
3556 + .00000, .00000, .00000,
3557 + .00850, .00165, .00013, .00001, .00000,
3558 + .00000, .00000, .00000,
3559 + .00808, .00157, .00012, .00000, .00000,
3560 + .00000, .00000, .00000,
3561 + .00770, .00149, .00012, .00000, .00000,
3562 + .00000, .00000, .00000,
3563 + .00733, .00142, .00011, .00000, .00000,
3564 + .00000, .00000, .00000 /
3565 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/
3566 + .05770, .01138, .00138, .00003, .00000,
3567 + .00000, .00000, .00001,
3568 + .05259, .01033, .00122, .00003, .00000,
3569 + .00000, .00000, .00001,
3570 + .04601, .00898, .00102, .00002, .00000,
3571 + .00000, .00000, .00001,
3572 + .04186, .00813, .00089, .00002, .00000,
3573 + .00000, .00000, .00001,
3574 + .03798, .00735, .00079, .00002, .00000,
3575 + .00000, .00000, .00001,
3576 + .03498, .00675, .00070, .00002, .00000,
3577 + .00000, .00000, .00000,
3578 + .03235, .00622, .00063, .00002, .00000,
3579 + .00000, .00000, .00000,
3580 + .02981, .00571, .00057, .00002, .00000,
3581 + .00000, .00000, .00001 /
3582 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
3583 + .02779, .00530, .00052, .00001, .00000,
3584 + .00000, .00000, .00001,
3585 + .02599, .00495, .00047, .00001, .00000,
3586 + .00000, .00000, .00000,
3587 + .02466, .00468, .00044, .00000, .00000,
3588 + .00000, .00000, .00000,
3589 + .02207, .00417, .00038, .00001, .00000,
3590 + .00000, .00000, .00000,
3591 + .02010, .00378, .00034, .00001, .00000,
3592 + .00000, .00000, .00000,
3593 + .01813, .00340, .00030, .00001, .00000,
3594 + .00000, .00000, .00000,
3595 + .01631, .00305, .00026, .00001, .00000,
3596 + .00000, .00000, .00000,
3597 + .01484, .00276, .00023, .00000, .00000,
3598 + .00000, .00000, .00000 /
3599 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/
3600 + .01350, .00250, .00020, .00000, .00000,
3601 + .00000, .00000, .00000,
3602 + .01249, .00231, .00018, .00001, .00000,
3603 + .00000, .00000, .00000,
3604 + .01138, .00209, .00016, .00000, .00000,
3605 + .00000, .00000, .00000,
3606 + .01049, .00192, .00015, .00000, .00000,
3607 + .00000, .00000, .00000,
3608 + .00974, .00178, .00013, .00001, .00000,
3609 + .00000, .00000, .00000,
3610 + .00887, .00162, .00012, .00000, .00000,
3611 + .00000, .00000, .00000,
3612 + .00813, .00148, .00011, .00000, .00000,
3613 + .00000, .00000, .00000,
3614 + .00750, .00136, .00010, .00000, .00000,
3615 + .00000, .00000, .00000 /
3616 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/
3617 + .00693, .00125, .00009, .00000, .00000,
3618 + .00000, .00000, .00000,
3619 + .00641, .00116, .00008, .00000, .00000,
3620 + .00000, .00000, .00000,
3621 + .00596, .00107, .00007, .00000, .00000,
3622 + .00000, .00000, .00000,
3623 + .00556, .00100, .00007, .00000, .00000,
3624 + .00000, .00000, .00000,
3625 + .00520, .00093, .00006, .00000, .00000,
3626 + .00000, .00000, .00000,
3627 + .00486, .00087, .00006, .00000, .00000,
3628 + .00000, .00000, .00000,
3629 + .00456, .00081, .00005, .00000, .00000,
3630 + .00000, .00000, .00000,
3631 + .00430, .00077, .00005, .00000, .00000,
3632 + .00000, .00000, .00000 /
3633 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=33,37)/
3634 + .00405, .00072, .00005, .00000, .00000,
3635 + .00000, .00000, .00000,
3636 + .00382, .00068, .00004, .00000, .00000,
3637 + .00000, .00000, .00000,
3638 + .00362, .00064, .00004, .00000, .00000,
3639 + .00000, .00000, .00000,
3640 + .00343, .00061, .00004, .00000, .00000,
3641 + .00000, .00000, .00000,
3642 + .00325, .00057, .00004, .00000, .00000,
3643 + .00000, .00000, .00000 /
3644 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/
3645 + .02865, .00503, .00049, .00000, .00000,
3646 + .00000, .00001, .00000,
3647 + .02585, .00452, .00043, .00000, .00000,
3648 + .00000, .00000, .00000,
3649 + .02227, .00387, .00035, .00000, .00000,
3650 + .00000, .00000, .00000,
3651 + .02004, .00347, .00030, .00000, .00000,
3652 + .00000, .00000, .00000,
3653 + .01800, .00311, .00026, .00000, .00000,
3654 + .00000, .00000, .00000,
3655 + .01642, .00282, .00023, .00000, .00000,
3656 + .00000, .00000, .00000,
3657 + .01506, .00258, .00021, .00000, .00000,
3658 + .00000, .00000, .00000,
3659 + .01376, .00235, .00018, .00000, .00000,
3660 + .00000, .00000, .00000 /
3661 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=9,16)/
3662 + .01272, .00217, .00017, .00000, .00000,
3663 + .00000, .00000, .00000,
3664 + .01181, .00200, .00015, .00000, .00000,
3665 + .00000, .00000, .00000,
3666 + .01114, .00189, .00014, .00000, .00000,
3667 + .00000, .00000, .00000,
3668 + .00985, .00166, .00012, .00000, .00000,
3669 + .00000, .00000, .00000,
3670 + .00888, .00149, .00010, .00000, .00000,
3671 + .00000, .00000, .00000,
3672 + .00792, .00133, .00009, .00000, .00000,
3673 + .00000, .00000, .00000,
3674 + .00705, .00118, .00008, .00000, .00000,
3675 + .00000, .00000, .00000,
3676 + .00634, .00105, .00007, .00000, .00000,
3677 + .00000, .00000, .00000 /
3678 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=17,24)/
3679 + .00572, .00095, .00006, .00000, .00000,
3680 + .00000, .00000, .00000,
3681 + .00524, .00087, .00005, .00000, .00000,
3682 + .00000, .00000, .00000,
3683 + .00473, .00078, .00005, .00000, .00000,
3684 + .00000, .00000, .00000,
3685 + .00432, .00071, .00004, .00000, .00000,
3686 + .00000, .00000, .00000,
3687 + .00398, .00065, .00004, .00000, .00000,
3688 + .00000, .00000, .00000,
3689 + .00359, .00059, .00003, .00000, .00000,
3690 + .00000, .00000, .00000,
3691 + .00326, .00053, .00003, .00000, .00000,
3692 + .00000, .00000, .00000,
3693 + .00298, .00048, .00003, .00000, .00000,
3694 + .00000, .00000, .00000 /
3695 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/
3696 + .00273, .00044, .00002, .00000, .00000,
3697 + .00000, .00000, .00000,
3698 + .00251, .00040, .00002, .00000, .00000,
3699 + .00000, .00000, .00000,
3700 + .00231, .00037, .00002, .00000, .00000,
3701 + .00000, .00000, .00000,
3702 + .00214, .00034, .00002, .00000, .00000,
3703 + .00000, .00000, .00000,
3704 + .00199, .00032, .00002, .00000, .00000,
3705 + .00000, .00000, .00000,
3706 + .00185, .00030, .00002, .00000, .00000,
3707 + .00000, .00000, .00000,
3708 + .00172, .00028, .00001, .00000, .00000,
3709 + .00000, .00000, .00000,
3710 + .00161, .00026, .00001, .00000, .00000,
3711 + .00000, .00000, .00000 /
3712 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/
3713 + .00151, .00024, .00001, .00000, .00000,
3714 + .00000, .00000, .00000,
3715 + .00142, .00023, .00001, .00000, .00000,
3716 + .00000, .00000, .00000,
3717 + .00133, .00021, .00001, .00000, .00000,
3718 + .00000, .00000, .00000,
3719 + .00126, .00020, .00001, .00000, .00000,
3720 + .00000, .00000, .00000,
3721 + .00119, .00019, .00001, .00000, .00000,
3722 + .00000, .00000, .00000 /
3723 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/
3724 + .00296, .00038, .00002, .00000, .00000,
3725 + .00000, .00000, .00000,
3726 + .00259, .00033, .00001, .00000, .00000,
3727 + .00000, .00000, .00000,
3728 + .00214, .00027, .00001, .00000, .00000,
3729 + .00000, .00000, .00000,
3730 + .00186, .00023, .00001, .00000, .00000,
3731 + .00000, .00000, .00000,
3732 + .00162, .00020, .00001, .00000, .00000,
3733 + .00000, .00000, .00000,
3734 + .00144, .00018, .00001, .00000, .00000,
3735 + .00000, .00000, .00000,
3736 + .00129, .00016, .00001, .00000, .00000,
3737 + .00000, .00000, .00000,
3738 + .00115, .00014, .00001, .00000, .00000,
3739 + .00000, .00000, .00000 /
3740 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/
3741 + .00104, .00013, .00001, .00000, .00000,
3742 + .00000, .00000, .00000,
3743 + .00094, .00012, .00001, .00000, .00000,
3744 + .00000, .00000, .00000,
3745 + .00087, .00011, .00001, .00000, .00000,
3746 + .00000, .00000, .00000,
3747 + .00075, .00009, .00000, .00000, .00000,
3748 + .00000, .00000, .00000,
3749 + .00065, .00008, .00000, .00000, .00000,
3750 + .00000, .00000, .00000,
3751 + .00056, .00007, .00000, .00000, .00000,
3752 + .00000, .00000, .00000,
3753 + .00049, .00006, .00000, .00000, .00000,
3754 + .00000, .00000, .00000,
3755 + .00042, .00005, .00000, .00000, .00000,
3756 + .00000, .00000, .00000 /
3757 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/
3758 + .00037, .00004, .00000, .00000, .00000,
3759 + .00000, .00000, .00000,
3760 + .00033, .00004, .00000, .00000, .00000,
3761 + .00000, .00000, .00000,
3762 + .00029, .00004, .00000, .00000, .00000,
3763 + .00000, .00000, .00000,
3764 + .00026, .00003, .00000, .00000, .00000,
3765 + .00000, .00000, .00000,
3766 + .00023, .00003, .00000, .00000, .00000,
3767 + .00000, .00000, .00000,
3768 + .00020, .00002, .00000, .00000, .00000,
3769 + .00000, .00000, .00000,
3770 + .00018, .00002, .00000, .00000, .00000,
3771 + .00000, .00000, .00000,
3772 + .00016, .00002, .00000, .00000, .00000,
3773 + .00000, .00000, .00000 /
3774 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
3775 + .00014, .00002, .00000, .00000, .00000,
3776 + .00000, .00000, .00000,
3777 + .00013, .00002, .00000, .00000, .00000,
3778 + .00000, .00000, .00000,
3779 + .00012, .00001, .00000, .00000, .00000,
3780 + .00000, .00000, .00000,
3781 + .00011, .00001, .00000, .00000, .00000,
3782 + .00000, .00000, .00000,
3783 + .00010, .00001, .00000, .00000, .00000,
3784 + .00000, .00000, .00000,
3785 + .00009, .00001, .00000, .00000, .00000,
3786 + .00000, .00000, .00000,
3787 + .00008, .00001, .00000, .00000, .00000,
3788 + .00000, .00000, .00000,
3789 + .00007, .00001, .00000, .00000, .00000,
3790 + .00000, .00000, .00000 /
3791 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
3792 + .00007, .00001, .00000, .00000, .00000,
3793 + .00000, .00000, .00000,
3794 + .00006, .00001, .00000, .00000, .00000,
3795 + .00000, .00000, .00000,
3796 + .00006, .00001, .00000, .00000, .00000,
3797 + .00000, .00000, .00000,
3798 + .00005, .00001, .00000, .00000, .00000,
3799 + .00000, .00000, .00000,
3800 + .00005, .00001, .00000, .00000, .00000,
3801 + .00000, .00000, .00000 /
3802 data xx/1d-5,2d-5,4d-5,6d-5,8d-5,
3803 . 1d-4,2d-4,4d-4,6d-4,8d-4,
3804 . 1d-3,2d-3,4d-3,6d-3,8d-3,
3805 . 1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2,
3806 . .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0,
3807 . .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0,
3808 . .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0,
3810 data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1,
3811 . 1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2,
3812 . 1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4,
3813 . 1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6,
3814 . 1.8d6,3.2d6,5.6d6,1d7/
3815 data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/
3816 data n0/3,4,5,9,9,9,9,9/
3817 DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
3822 if(init.ne.0) goto 10
3823 C open(unit=1,file='cor03.dat',status='old')
3826 C read(1,50)f(1,n,m),f(2,n,m),f(3,n,m),f(4,n,m),
3827 C . f(5,n,m),f(7,n,m),f(6,n,m),f(8,n,m)
3828 c notation: 1=uval 2=val 3=glue 4=usea 5=chm 6=str 7=btm 8=dsea
3830 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i)
3833 xx(j)= log10(xx(j)/xx(ntenth))+xx(ntenth)
3835 if(i.eq.5.or.i.eq.7) goto 31
3837 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k)
3845 if(x.lt.xmin) x=xmin
3846 if(x.gt.xmax) x=xmax
3847 if(qsq.lt.qsqmin) qsq=qsqmin
3848 if(qsq.gt.qsqmax) qsq=qsqmax
3850 if(x.lt.xx(ntenth)) xxx= log10(x/xx(ntenth))+xx(ntenth)
3853 if(xxx.gt.xx(n+1)) goto 70
3854 a=(xxx-xx(n))/(xx(n+1)-xx(n))
3857 if(qsq.gt.qq(m+1)) goto 80
3858 b=(qsq-qq(m))/(qq(m+1)-qq(m))
3860 g(i)=(ONED-a)*(ONED-b)*f(i,n,m) + (ONED-a)*b*f(i,n,m+1)
3861 . + a*(ONED-b)*f(i,n+1,m) + a*b*f(i,n+1,m+1)
3862 if(n.ge.ntenth) goto 65
3863 if(i.eq.5.or.i.eq.7) goto 65
3864 fac=(ONED-b)*f(i,ntenth,m)+b*f(i,ntenth,m+1)
3865 g(i)=fac*10d0**(g(i)-fac)
3867 g(i)=g(i)*(ONED-x)**n0(i)
git://git.uio.no / u / mrichter / AliRoot.git / blob