]> git.uio.no Git - u/mrichter/AliRoot.git/blame - PDF/spdf/sfmrs_98a5.F
git://git.uio.no / u / mrichter / AliRoot.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Number of pads along z is corrected
[u/mrichter/AliRoot.git] / PDF / spdf / sfmrs_98a5.F
CommitLineData
21886bb6 1#include "pdf/pilot.h"
2 subroutine sfmrs_98a5(x,qsq,upv,dnv,usea,dsea,str,chm,bot,glu)
3C
4#include "pdf/impdp.inc"
5C
6 parameter(nx=49,nq=37,ntenth=23,np=8)
7C
7ef50f50 8#if defined(CERNLIB_DOUBLE)
9 DOUBLE PRECISION
10#endif
11#if defined(CERNLIB_SINGLE)
12 REAL
13#endif
21886bb6 14 + f(np,nx,nq+1),qq(nq),xx(nx),g(np),n0(np)
15 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,8)/
16 + .00410, .00145, 1.13388, .83967, .00000,
17 + .00000, .45131, .84958,
18 + .00428, .00152, 2.46682, .88357, .00000,
19 + .00000, .50061, .89360,
20 + .00454, .00164, 5.12623, .97573, .00584,
21 + .00000, .60030, .98593,
22 + .00474, .00172, 7.66479, 1.06610, .09987,
23 + .00000, .69587, 1.07640,
24 + .00494, .00181, 10.97657, 1.18300, .21322,
25 + .00000, .81801, 1.19340,
26 + .00511, .00189, 14.39152, 1.30330, .32526,
27 + .00000, .94266, 1.31377,
28 + .00528, .00196, 18.21165, 1.43557, .45087,
29 + .00000, 1.07896, 1.44610,
30 + .00546, .00204, 22.89839, 1.59464, .60467,
31 + .00000, 1.24218, 1.60524 /
32 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
33 + .00562, .00211, 27.54395, 1.74911, .75680,
34 + .00000, 1.40015, 1.75976,
35 + .00577, .00218, 32.51232, 1.91379, .91771,
36 + .00000, 1.56811, 1.92447,
37 + .00589, .00224, 36.78433, 2.05526, 1.05509,
38 + .00000, 1.71214, 2.06598,
39 + .00615, .00236, 47.02047, 2.39013, 1.38482,
40 + .00022, 2.05228, 2.40090,
41 + .00637, .00246, 57.00503, 2.71686, 1.70798,
42 + .25956, 2.38340, 2.72767,
43 + .00663, .00258, 69.51163, 3.12614, 2.11314,
44 + .73923, 2.79744, 3.13699,
45 + .00689, .00271, 84.17986, 3.60333, 2.58631,
46 + 1.23387, 3.27942, 3.61421,
47 + .00714, .00283, 98.98543, 4.08292, 3.06269,
48 + 1.73405, 3.76321, 4.09381 /
49 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
50 + .00738, .00295, 115.39584, 4.61376, 3.59078,
51 + 2.28479, 4.29817, 4.62467,
52 + .00759, .00305, 130.12375, 5.09085, 4.06508,
53 + 2.77515, 4.77859, 5.10177,
54 + .00784, .00317, 149.29649, 5.71410, 4.68404,
55 + 3.41134, 5.40578, 5.72503,
56 + .00807, .00328, 167.53966, 6.30824, 5.27513,
57 + 4.02004, 6.00331, 6.31916,
58 + .00828, .00338, 185.42651, 6.89065, 5.85675,
59 + 4.62274, 6.58877, 6.90157,
60 + .00854, .00352, 209.40271, 7.67782, 6.64045,
61 + 5.42625, 7.37970, 7.68873,
62 + .00880, .00364, 233.33664, 8.46901, 7.42793,
63 + 6.23138, 8.17434, 8.47991,
64 + .00903, .00376, 257.12515, 9.25852, 8.21548,
65 + 7.03898, 8.96701, 9.26941 /
66 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
67 + .00928, .00388, 282.23935, 10.09585, 9.05207,
68 + 7.89802, 9.80742, 10.10672,
69 + .00951, .00400, 307.69244, 10.95471, 9.90738,
70 + 8.76888, 10.66923, 10.96556,
71 + .00974, .00412, 333.04498, 11.81293, 10.76460,
72 + 9.64581, 11.53019, 11.82376,
73 + .00996, .00423, 357.79376, 12.65770, 11.60784,
74 + 10.50605, 12.37750, 12.66852,
75 + .01017, .00434, 383.53339, 13.54268, 12.49139,
76 + 11.40692, 13.26498, 13.55348,
77 + .01039, .00445, 409.83307, 14.45196, 13.40018,
78 + 12.33434, 14.17666, 14.46273,
79 + .01060, .00455, 435.42999, 15.34584, 14.29254,
80 + 13.24219, 15.07280, 15.35658,
81 + .01080, .00466, 460.52698, 16.22608, 15.17262,
82 + 14.13922, 15.95515, 16.23681 /
83 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
84 + .01100, .00476, 486.35519, 17.14026, 16.08592,
85 + 15.06805, 16.87141, 17.15097,
86 + .01120, .00486, 512.59387, 18.07448, 17.01988,
87 + 16.01822, 17.80765, 18.08516,
88 + .01139, .00496, 538.23193, 18.99353, 17.93896,
89 + 16.95323, 18.72861, 19.00418,
90 + .01157, .00506, 562.95007, 19.88759, 18.83228,
91 + 17.86014, 19.62446, 19.89822,
92 + .01176, .00515, 588.86542, 20.82639, 19.77244,
93 + 18.81786, 20.56503, 20.83700 /
94 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
95 + .00563, .00205, 1.02152, .72019, .00000,
96 + .00000, .38635, .72598,
97 + .00589, .00216, 2.19801, .75914, .00000,
98 + .00000, .42966, .76500,
99 + .00626, .00233, 4.50084, .83853, .00506,
100 + .00000, .51509, .84448,
101 + .00654, .00246, 6.65561, .91472, .08408,
102 + .00000, .59546, .92074,
103 + .00682, .00259, 9.42200, 1.01195, .17804,
104 + .00000, .69687, 1.01802,
105 + .00707, .00270, 12.23286, 1.11084, .26971,
106 + .00000, .79923, 1.11695,
107 + .00731, .00281, 15.33844, 1.21858, .37148,
108 + .00000, .91018, 1.22473,
109 + .00756, .00293, 19.10337, 1.34707, .49494,
110 + .00000, 1.04197, 1.35326 /
111 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
112 + .00778, .00304, 22.79481, 1.47090, .61606,
113 + .00000, 1.16857, 1.47711,
114 + .00799, .00314, 26.70347, 1.60195, .74321,
115 + .00000, 1.30223, 1.60819,
116 + .00816, .00322, 30.03565, 1.71384, .85108,
117 + .00000, 1.41614, 1.72009,
118 + .00852, .00339, 37.93092, 1.97660, 1.10790,
119 + .00019, 1.68307, 1.98289,
120 + .00883, .00355, 45.52346, 2.23045, 1.35711,
121 + .19998, 1.94040, 2.23677,
122 + .00919, .00372, 54.90745, 2.54543, 1.66662,
123 + .56709, 2.25913, 2.55178,
124 + .00955, .00390, 65.76954, 2.90907, 2.02457,
125 + .94117, 2.62653, 2.91544,
126 + .00989, .00407, 76.59892, 3.27113, 2.38165,
127 + 1.31588, 2.99191, 3.27752 /
128 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
129 + .01023, .00424, 88.46689, 3.66845, 2.77419,
130 + 1.72485, 3.39247, 3.67486,
131 + .01052, .00438, 99.01054, 4.02277, 3.12406,
132 + 2.08608, 3.74940, 4.02919,
133 + .01086, .00456, 112.60005, 4.48211, 3.57721,
134 + 2.55111, 4.21183, 4.48853,
135 + .01117, .00471, 125.40544, 4.91667, 4.00679,
136 + 2.99276, 4.64906, 4.92311,
137 + .01146, .00486, 137.85715, 5.33989, 4.42686,
138 + 3.42735, 5.07465, 5.34633,
139 + .01182, .00505, 154.39085, 5.90772, 4.98878,
140 + 4.00236, 5.64543, 5.91416,
141 + .01217, .00522, 170.73593, 6.47412, 5.54922,
142 + 4.57419, 6.21454, 6.48057,
143 + .01250, .00539, 186.84367, 7.03549, 6.10607,
144 + 5.14409, 6.77838, 7.04194 /
145 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
146 + .01283, .00556, 203.71295, 7.62705, 6.69395,
147 + 5.74658, 7.37235, 7.63350,
148 + .01315, .00573, 220.66245, 8.22977, 7.29094,
149 + 6.35306, 7.97738, 8.23621,
150 + .01346, .00589, 237.42674, 8.82858, 7.88604,
151 + 6.96060, 8.57833, 8.83503,
152 + .01375, .00604, 253.67505, 9.41470, 8.46818,
153 + 7.55321, 9.16643, 9.42114,
154 + .01405, .00619, 270.46054, 10.02542, 9.07497,
155 + 8.17056, 9.77911, 10.03186,
156 + .01434, .00635, 287.50439, 10.64974, 9.69605,
157 + 8.80307, 10.40532, 10.65617,
158 + .01462, .00649, 303.98273, 11.26029, 10.30274,
159 + 9.41895, 11.01764, 11.26672,
160 + .01489, .00663, 320.05313, 11.85890, 10.89859,
161 + 10.02503, 11.61788, 11.86533 /
162 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
163 + .01516, .00678, 336.49298, 12.47767, 11.51406,
164 + 10.64961, 12.23829, 12.48409,
165 + .01543, .00692, 353.10620, 13.10729, 12.14083,
166 + 11.28594, 12.86950, 13.11371,
167 + .01569, .00705, 369.25400, 13.72408, 12.75510,
168 + 11.90957, 13.48778, 13.73050,
169 + .01593, .00719, 384.73975, 14.32161, 13.34966,
170 + 12.51189, 14.08671, 14.32802,
171 + .01619, .00732, 400.91336, 14.94693, 13.97348,
172 + 13.14616, 14.71342, 14.95333 /
173 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
174 + .00774, .00291, .92050, .61742, .00000,
175 + .00000, .33079, .62031,
176 + .00810, .00308, 1.95876, .65191, .00000,
177 + .00000, .36879, .65483,
178 + .00864, .00333, 3.95190, .72025, .00438,
179 + .00000, .44199, .72322,
180 + .00902, .00351, 5.77922, .78445, .07076,
181 + .00000, .50952, .78744,
182 + .00943, .00371, 8.08707, .86521, .14862,
183 + .00000, .59363, .86823,
184 + .00977, .00388, 10.39688, .94636, .22358,
185 + .00000, .67755, .94940,
186 + .01011, .00404, 12.91673, 1.03394, .30597,
187 + .00000, .76768, 1.03701,
188 + .01046, .00421, 15.93458, 1.13747, .40498,
189 + .00000, .87384, 1.14056 /
190 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
191 + .01077, .00437, 18.86076, 1.23646, .50132,
192 + .00000, .97503, 1.23956,
193 + .01107, .00451, 21.92757, 1.34044, .60168,
194 + .00000, 1.08107, 1.34356,
195 + .01130, .00463, 24.51922, 1.42865, .68626,
196 + .00000, 1.17088, 1.43178,
197 + .01180, .00488, 30.59000, 1.63414, .88602,
198 + .00017, 1.37967, 1.63730,
199 + .01224, .00510, 36.34333, 1.83066, 1.07790,
200 + .15400, 1.57893, 1.83384,
201 + .01273, .00535, 43.35708, 2.07215, 1.31392,
202 + .43482, 1.82337, 2.07534,
203 + .01324, .00561, 51.36691, 2.34813, 1.58416,
204 + .71754, 2.10231, 2.35134,
205 + .01370, .00585, 59.25225, 2.62032, 1.85126,
206 + .99804, 2.37710, 2.62355 /
207 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
208 + .01417, .00610, 67.79415, 2.91640, 2.14234,
209 + 1.30143, 2.67572, 2.91965,
210 + .01457, .00630, 75.30418, 3.17835, 2.39978,
211 + 1.56725, 2.93972, 3.18162,
212 + .01505, .00655, 84.88493, 3.51530, 2.73064,
213 + 1.90674, 3.27908, 3.51858,
214 + .01547, .00677, 93.82304, 3.83163, 3.04195,
215 + 2.22672, 3.59748, 3.83492,
216 + .01586, .00698, 102.44107, 4.13765, 3.34444,
217 + 2.53962, 3.90537, 4.14095,
218 + .01636, .00724, 113.77300, 4.54519, 3.74605,
219 + 2.95038, 4.31521, 4.54851,
220 + .01684, .00749, 124.86413, 4.94857, 4.14357,
221 + 3.35571, 4.72070, 4.95190,
222 + .01728, .00772, 135.69891, 5.34561, 4.53591,
223 + 3.75702, 5.11966, 5.34895 /
224 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
225 + .01773, .00796, 146.95236, 5.76127, 4.94751,
226 + 4.17862, 5.53720, 5.76462,
227 + .01817, .00819, 158.15775, 6.18188, 5.36260,
228 + 4.59992, 5.95960, 6.18525,
229 + .01859, .00842, 169.16113, 6.59733, 5.77408,
230 + 5.01972, 6.37673, 6.60071,
231 + .01898, .00863, 179.74683, 7.00164, 6.17430,
232 + 5.42682, 6.78257, 7.00502,
233 + .01939, .00884, 190.60670, 7.42062, 6.58924,
234 + 5.84864, 7.20307, 7.42401,
235 + .01978, .00905, 201.56267, 7.84671, 7.01184,
236 + 6.27869, 7.63063, 7.85012,
237 + .02016, .00926, 212.08163, 8.26120, 7.42244,
238 + 6.69512, 8.04649, 8.26461,
239 + .02052, .00945, 222.28381, 8.66575, 7.82398,
240 + 7.10323, 8.45232, 8.66918 /
241 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
242 + .02089, .00965, 232.65549, 9.08193, 8.23674,
243 + 7.52175, 8.86977, 9.08537,
244 + .02125, .00984, 243.07906, 9.50356, 8.65531,
245 + 7.94633, 9.29263, 9.50700,
246 + .02160, .01003, 253.15546, 9.91481, 9.06380,
247 + 8.36071, 9.70504, 9.91826,
248 + .02193, .01021, 262.76459, 10.31151, 9.45747,
249 + 8.75915, 10.10283, 10.31497,
250 + .02226, .01039, 272.76151, 10.72525, 9.86925,
251 + 9.17755, 10.51766, 10.72872 /
252 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
253 + .00933, .00357, .86626, .56409, .00000,
254 + .00000, .30210, .56577,
255 + .00977, .00378, 1.83127, .59618, .00000,
256 + .00000, .33728, .59788,
257 + .01042, .00410, 3.66250, .65875, .00403,
258 + .00000, .40415, .66048,
259 + .01089, .00433, 5.32102, .71679, .06396,
260 + .00000, .46512, .71854,
261 + .01139, .00458, 7.39525, .78919, .13369,
262 + .00000, .54046, .79096,
263 + .01181, .00479, 9.45261, .86140, .20029,
264 + .00000, .61510, .86319,
265 + .01222, .00499, 11.68011, .93890, .27307,
266 + .00000, .69483, .94070,
267 + .01265, .00521, 14.32850, 1.03002, .36005,
268 + .00000, .78825, 1.03184 /
269 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
270 + .01303, .00540, 16.87945, 1.11673, .44426,
271 + .00000, .87689, 1.11856,
272 + .01339, .00559, 19.53665, 1.20740, .53158,
273 + .00000, .96937, 1.20924,
274 + .01367, .00573, 21.77038, 1.28402, .60489,
275 + .00000, 1.04738, 1.28588,
276 + .01428, .00605, 26.96716, 1.46166, .77719,
277 + .00016, 1.22790, 1.46354,
278 + .01481, .00632, 31.84917, 1.63052, .94171,
279 + .13212, 1.39914, 1.63242,
280 + .01540, .00663, 37.75180, 1.83681, 1.14291,
281 + .37210, 1.60801, 1.83873,
282 + .01602, .00695, 44.43860, 2.07115, 1.37192,
283 + .61198, 1.84492, 2.07309,
284 + .01658, .00724, 50.97178, 2.30097, 1.59701,
285 + .84863, 2.07700, 2.30293 /
286 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
287 + .01715, .00754, 57.99986, 2.54966, 1.84106,
288 + 1.10324, 2.32788, 2.55163,
289 + .01762, .00779, 64.14041, 2.76864, 2.05589,
290 + 1.32523, 2.54864, 2.77063,
291 + .01820, .00810, 71.92599, 3.04901, 2.33072,
292 + 1.60741, 2.83110, 3.05102,
293 + .01871, .00837, 79.14590, 3.31101, 2.58815,
294 + 1.87217, 3.09491, 3.31304,
295 + .01918, .00862, 86.07211, 3.56349, 2.83735,
296 + 2.13011, 3.34900, 3.56554,
297 + .01978, .00894, 95.12583, 3.89822, 3.16673,
298 + 2.46714, 3.68572, 3.90029,
299 + .02035, .00925, 103.93383, 4.22801, 3.49126,
300 + 2.79816, 4.01732, 4.23010,
301 + .02089, .00953, 112.49309, 4.55128, 3.81030,
302 + 3.12461, 4.34226, 4.55339 /
303 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
304 + .02142, .00982, 121.33900, 4.88840, 4.14373,
305 + 3.46628, 4.68100, 4.89053,
306 + .02195, .01010, 130.09888, 5.22814, 4.47858,
307 + 3.80621, 5.02229, 5.23028,
308 + .02245, .01037, 138.66365, 5.56255, 4.80944,
309 + 4.14385, 5.35815, 5.56471,
310 + .02292, .01063, 146.86635, 5.88687, 5.13013,
311 + 4.47013, 5.68379, 5.88905,
312 + .02340, .01089, 155.24594, 6.22186, 5.46155,
313 + 4.80711, 6.02009, 6.22405,
314 + .02387, .01115, 163.66696, 6.56149, 5.79808,
315 + 5.14966, 6.36100, 6.56371,
316 + .02432, .01139, 171.71750, 6.89082, 6.12400,
317 + 5.48026, 6.69151, 6.89305,
318 + .02475, .01162, 179.49989, 7.21140, 6.44192,
319 + 5.80345, 7.01319, 7.21364 /
320 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
321 + .02519, .01186, 187.38124, 7.54024, 6.76777,
322 + 6.13389, 7.34312, 7.54250,
323 + .02562, .01210, 195.27574, 7.87250, 7.09737,
324 + 6.46828, 7.67646, 7.87478,
325 + .02603, .01232, 202.88179, 8.19577, 7.41821,
326 + 6.79381, 8.00072, 8.19806,
327 + .02642, .01253, 210.11015, 8.50678, 7.72661,
328 + 7.10597, 8.31267, 8.50909,
329 + .02682, .01275, 217.61317, 8.83052, 8.04861,
330 + 7.43323, 8.63735, 8.83285 /
331 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
332 + .01064, .00413, .82983, .52899, .00000,
333 + .00000, .28328, .53001,
334 + .01116, .00438, 1.74602, .55946, .00000,
335 + .00000, .31659, .56050,
336 + .01191, .00475, 3.47019, .61823, .00380,
337 + .00000, .37928, .61929,
338 + .01245, .00503, 5.01807, .67224, .05952,
339 + .00000, .43598, .67331,
340 + .01302, .00532, 6.94034, .73921, .12399,
341 + .00000, .50564, .74030,
342 + .01351, .00557, 8.83459, .80564, .18522,
343 + .00000, .57429, .80676,
344 + .01398, .00581, 10.87433, .87665, .25185,
345 + .00000, .64734, .87777,
346 + .01448, .00606, 13.28681, .95982, .33116,
347 + .00000, .73260, .96096 /
348 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
349 + .01491, .00628, 15.59946, 1.03869, .40767,
350 + .00000, .81323, 1.03984,
351 + .01532, .00650, 17.99779, 1.12090, .48676,
352 + .00000, .89708, 1.12206,
353 + .01565, .00667, 20.00627, 1.19017, .55297,
354 + .00000, .96762, 1.19135,
355 + .01635, .00704, 24.65609, 1.35022, .70803,
356 + .00015, 1.13028, 1.35142,
357 + .01696, .00735, 28.99665, 1.50169, .85546,
358 + .11848, 1.28392, 1.50291,
359 + .01763, .00771, 34.21339, 1.68597, 1.03502,
360 + .33307, 1.47053, 1.68721,
361 + .01834, .00808, 40.08891, 1.89439, 1.23852,
362 + .54649, 1.68130, 1.89566,
363 + .01898, .00843, 45.79812, 2.09797, 1.43773,
364 + .75617, 1.88692, 2.09926 /
365 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
366 + .01963, .00877, 51.90907, 2.31743, 1.65293,
367 + .98090, 2.10837, 2.31874,
368 + .02017, .00906, 57.22418, 2.51002, 1.84173,
369 + 1.17617, 2.30257, 2.51136,
370 + .02083, .00942, 63.93317, 2.75578, 2.08246,
371 + 1.42353, 2.55022, 2.75714,
372 + .02142, .00973, 70.12782, 2.98468, 2.30722,
373 + 1.65487, 2.78075, 2.98606,
374 + .02195, .01002, 76.04879, 3.20464, 2.52420,
375 + 1.87964, 3.00217, 3.20604,
376 + .02264, .01039, 83.75541, 3.49532, 2.81007,
377 + 2.17233, 3.29465, 3.49675,
378 + .02328, .01074, 91.22005, 3.78076, 3.09081,
379 + 2.45886, 3.58174, 3.78222,
380 + .02389, .01107, 98.44627, 4.05974, 3.36600,
381 + 2.74062, 3.86221, 4.06122 /
382 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
383 + .02450, .01140, 105.88766, 4.34985, 3.65284,
384 + 3.03472, 4.15380, 4.35136,
385 + .02510, .01172, 113.22719, 4.64135, 3.94001,
386 + 3.32639, 4.44670, 4.64288,
387 + .02566, .01203, 120.38084, 4.92757, 4.22309,
388 + 3.61543, 4.73422, 4.92912,
389 + .02620, .01233, 127.20954, 5.20446, 4.49679,
390 + 3.89404, 5.01231, 5.20604,
391 + .02674, .01262, 134.16409, 5.48979, 4.77899,
392 + 4.18112, 5.29882, 5.49139,
393 + .02728, .01292, 141.13313, 5.77844, 5.06493,
394 + 4.47231, 5.58861, 5.78006,
395 + .02779, .01320, 147.77486, 6.05768, 5.34120,
396 + 4.75267, 5.86892, 6.05932,
397 + .02827, .01346, 154.18007, 6.32898, 5.61019,
398 + 5.02626, 6.14122, 6.33064 /
399 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
400 + .02876, .01373, 160.64821, 6.60669, 5.88532,
401 + 5.30538, 6.41991, 6.60837,
402 + .02925, .01400, 167.11160, 6.88677, 6.16309,
403 + 5.58733, 6.70095, 6.88847,
404 + .02972, .01426, 173.32370, 7.15875, 6.43299,
405 + 5.86129, 6.97384, 7.16047,
406 + .03016, .01450, 179.21219, 7.41993, 6.69194,
407 + 6.12350, 7.23587, 7.42168,
408 + .03061, .01475, 185.31451, 7.69142, 6.96196,
409 + 6.39806, 7.50820, 7.69319 /
410 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
411 + .01180, .00462, .80271, .50324, .00000,
412 + .00000, .26951, .50386,
413 + .01237, .00491, 1.68274, .53250, .00000,
414 + .00000, .30143, .53313,
415 + .01321, .00534, 3.32807, .58845, .00362,
416 + .00000, .36105, .58911,
417 + .01382, .00565, 4.79499, .63952, .05629,
418 + .00000, .41463, .64019,
419 + .01445, .00597, 6.60664, .70254, .11694,
420 + .00000, .48017, .70323,
421 + .01500, .00626, 8.38278, .76480, .17429,
422 + .00000, .54449, .76550,
423 + .01552, .00653, 10.28715, .83112, .23649,
424 + .00000, .61272, .83184,
425 + .01607, .00681, 12.53027, .90857, .31031,
426 + .00000, .69211, .90930 /
427 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
428 + .01655, .00707, 14.67251, .98181, .38132,
429 + .00000, .76700, .98256,
430 + .01702, .00731, 16.88642, 1.05796, .45453,
431 + .00000, .84467, 1.05872,
432 + .01738, .00750, 18.73492, 1.12198, .51570,
433 + .00000, .90988, 1.12276,
434 + .01816, .00791, 22.99788, 1.26950, .65854,
435 + .00015, 1.05983, 1.27031,
436 + .01883, .00827, 26.95747, 1.40864, .79389,
437 + .10885, 1.20099, 1.40947,
438 + .01959, .00867, 31.69399, 1.57735, .95821,
439 + .30557, 1.37187, 1.57821,
440 + .02037, .00909, 37.00429, 1.76753, 1.14382,
441 + .50043, 1.56422, 1.76842,
442 + .02108, .00948, 42.14212, 1.95269, 1.32494,
443 + .69128, 1.75127, 1.95360 /
444 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
445 + .02180, .00987, 47.61976, 2.15171, 1.52004,
446 + .89522, 1.95214, 2.15265,
447 + .02240, .01019, 52.36707, 2.32590, 1.69075,
448 + 1.07193, 2.12782, 2.32686,
449 + .02313, .01058, 58.33833, 2.54758, 1.90785,
450 + 1.29518, 2.35127, 2.54858,
451 + .02378, .01093, 63.83298, 2.75354, 2.11002,
452 + 1.50345, 2.55873, 2.75456,
453 + .02437, .01126, 69.06982, 2.95101, 2.30480,
454 + 1.70537, 2.75755, 2.95205,
455 + .02513, .01167, 75.86281, 3.21131, 2.56075,
456 + 1.96763, 3.01952, 3.21239,
457 + .02584, .01206, 82.41984, 3.46625, 2.81145,
458 + 2.22367, 3.27598, 3.46736,
459 + .02651, .01243, 88.74841, 3.71485, 3.05665,
460 + 2.47490, 3.52597, 3.71598 /
461 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
462 + .02718, .01279, 95.24689, 3.97280, 3.31168,
463 + 2.73656, 3.78528, 3.97396,
464 + .02784, .01316, 101.63587, 4.23138, 3.56640,
465 + 2.99542, 4.04516, 4.23258,
466 + .02847, .01350, 107.84773, 4.48479, 3.81702,
467 + 3.25149, 4.29977, 4.48601,
468 + .02906, .01383, 113.76205, 4.72945, 4.05887,
469 + 3.49781, 4.54554, 4.73070,
470 + .02966, .01416, 119.77055, 4.98111, 4.30777,
471 + 3.75116, 4.79829, 4.98238,
472 + .03025, .01448, 125.77811, 5.23525, 4.55954,
473 + 4.00771, 5.05349, 5.23655,
474 + .03081, .01479, 131.48927, 5.48066, 4.80234,
475 + 4.25424, 5.29989, 5.48199,
476 + .03134, .01509, 136.98662, 5.71873, 5.03841,
477 + 4.49448, 5.53889, 5.72009 /
478 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
479 + .03188, .01538, 142.52556, 5.96203, 5.27946,
480 + 4.73916, 5.78310, 5.96341,
481 + .03242, .01568, 148.04964, 6.20704, 5.52248,
482 + 4.98597, 6.02900, 6.20845,
483 + .03293, .01596, 153.34877, 6.44462, 5.75827,
484 + 5.22544, 6.26741, 6.44605,
485 + .03342, .01623, 158.36150, 6.67242, 5.98415,
486 + 5.45428, 6.49600, 6.67388,
487 + .03391, .01651, 163.54970, 6.90896, 6.21945,
488 + 5.69368, 6.73333, 6.91044 /
489 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
490 + .01624, .00659, .72458, .43078, .00000,
491 + .00000, .23096, .43068,
492 + .01706, .00702, 1.50119, .45651, .00000,
493 + .00000, .25888, .45643,
494 + .01824, .00765, 2.92311, .50447, .00313,
495 + .00000, .30986, .50444,
496 + .01910, .00811, 4.16307, .54731, .04727,
497 + .00000, .35475, .54730,
498 + .01999, .00859, 5.66756, .59937, .09739,
499 + .00000, .40887, .59940,
500 + .02076, .00901, 7.11862, .65012, .14413,
501 + .00000, .46131, .65017,
502 + .02149, .00941, 8.65329, .70361, .19429,
503 + .00000, .51635, .70370,
504 + .02226, .00983, 10.43737, .76548, .25324,
505 + .00000, .57981, .76560 /
506 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
507 + .02293, .01019, 12.12091, .82349, .30945,
508 + .00000, .63914, .82363,
509 + .02358, .01055, 13.84153, .88329, .36694,
510 + .00000, .70020, .88346,
511 + .02409, .01083, 15.26450, .93323, .41463,
512 + .00000, .75109, .93342,
513 + .02517, .01142, 18.50588, 1.04728, .52506,
514 + .00013, .86712, 1.04752,
515 + .02610, .01194, 21.46863, 1.15369, .62858,
516 + .08349, .97515, 1.15397,
517 + .02715, .01251, 24.95956, 1.28136, .75297,
518 + .23336, 1.10458, 1.28169,
519 + .02823, .01311, 28.81644, 1.42374, .89199,
520 + .37996, 1.24871, 1.42411,
521 + .02922, .01366, 32.49687, 1.56095, 1.02630,
522 + .52211, 1.38745, 1.56137 /
523 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
524 + .03021, .01421, 36.37123, 1.70705, 1.16964,
525 + .67256, 1.53504, 1.70753,
526 + .03103, .01467, 39.69075, 1.83385, 1.29401,
527 + .80180, 1.66305, 1.83437,
528 + .03203, .01523, 43.81907, 1.99388, 1.45087,
529 + .96371, 1.82449, 1.99445,
530 + .03292, .01572, 47.57631, 2.14134, 1.59578,
531 + 1.11353, 1.97316, 2.14196,
532 + .03373, .01618, 51.12434, 2.28174, 1.73443,
533 + 1.25781, 2.11464, 2.28240,
534 + .03476, .01676, 55.67641, 2.46533, 1.91516,
535 + 1.44362, 2.29957, 2.46604,
536 + .03573, .01730, 60.02129, 2.64364, 2.09072,
537 + 1.62351, 2.47910, 2.64441,
538 + .03664, .01781, 64.17437, 2.81624, 2.26119,
539 + 1.79876, 2.65282, 2.81706 /
540 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
541 + .03756, .01832, 68.40000, 2.99410, 2.43730,
542 + 1.98006, 2.83177, 2.99497,
543 + .03845, .01882, 72.51099, 3.17106, 2.61184,
544 + 2.15797, 3.00977, 3.17198,
545 + .03929, .01930, 76.47652, 3.34341, 2.78256,
546 + 2.33296, 3.18309, 3.34438,
547 + .04009, .01975, 80.21996, 3.50878, 2.94627,
548 + 2.50022, 3.34935, 3.50979,
549 + .04090, .02020, 83.99282, 3.67787, 3.11376,
550 + 2.67122, 3.51932, 3.67893,
551 + .04169, .02065, 87.73776, 3.84770, 3.28228,
552 + 2.84347, 3.68999, 3.84880,
553 + .04245, .02107, 91.26865, 4.01072, 3.44382,
554 + 3.00797, 3.85380, 4.01186,
555 + .04316, .02148, 94.64660, 4.16812, 3.60017,
556 + 3.16756, 4.01194, 4.16931 /
557 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
558 + .04388, .02188, 98.02460, 4.32812, 3.75896,
559 + 3.32921, 4.17267, 4.32935,
560 + .04460, .02229, 101.37252, 4.48849, 3.91830,
561 + 3.49150, 4.33376, 4.48976,
562 + .04528, .02267, 104.56365, 4.64326, 4.07219,
563 + 3.64825, 4.48920, 4.64458,
564 + .04593, .02304, 107.56161, 4.79096, 4.21889,
565 + 3.79729, 4.63753, 4.79232,
566 + .04659, .02341, 110.65234, 4.94380, 4.37124,
567 + 3.95277, 4.79100, 4.94519 /
568 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
569 + .02244, .00947, .65549, .36863, .00000,
570 + .00000, .19815, .36854,
571 + .02359, .01011, 1.34104, .39113, .00000,
572 + .00000, .22249, .39110,
573 + .02526, .01105, 2.56846, .43207, .00270,
574 + .00000, .26597, .43212,
575 + .02646, .01173, 3.61386, .46784, .03959,
576 + .00000, .30346, .46795,
577 + .02772, .01244, 4.85871, .51064, .08087,
578 + .00000, .34798, .51082,
579 + .02879, .01304, 6.03871, .55178, .11882,
580 + .00000, .39053, .55201,
581 + .02982, .01362, 7.26877, .59466, .15911,
582 + .00000, .43472, .59496,
583 + .03090, .01424, 8.67903, .64376, .20597,
584 + .00000, .48515, .64412 /
585 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
586 + .03183, .01477, 9.99307, .68937, .25026,
587 + .00000, .53188, .68978,
588 + .03273, .01528, 11.32032, .73600, .29517,
589 + .00000, .57954, .73646,
590 + .03344, .01568, 12.40690, .77464, .33216,
591 + .00000, .61898, .77514,
592 + .03494, .01654, 14.84996, .86209, .41706,
593 + .00011, .70809, .86268,
594 + .03624, .01728, 17.04504, .94275, .49574,
595 + .06374, .79011, .94341,
596 + .03768, .01810, 19.59000, 1.03847, .58929,
597 + .17733, .88731, 1.03923,
598 + .03917, .01896, 22.35831, 1.14401, .69267,
599 + .28702, .99431, 1.14486,
600 + .04053, .01973, 24.96137, 1.24464, .79151,
601 + .39226, 1.09623, 1.24557 /
602 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
603 + .04189, .02051, 27.66475, 1.35075, .89599,
604 + .50257, 1.20359, 1.35177,
605 + .04302, .02116, 29.95267, 1.44203, .98584,
606 + .59647, 1.29588, 1.44312,
607 + .04439, .02194, 32.76359, 1.55622, 1.09818,
608 + .71306, 1.41125, 1.55740,
609 + .04560, .02264, 35.29183, 1.66054, 1.20107,
610 + .82004, 1.51658, 1.66179,
611 + .04670, .02327, 37.65590, 1.75913, 1.29883,
612 + .92235, 1.61609, 1.76046,
613 + .04810, .02408, 40.65289, 1.88697, 1.42515,
614 + 1.05292, 1.74506, 1.88840,
615 + .04942, .02483, 43.47881, 2.01006, 1.54680,
616 + 1.17822, 1.86917, 2.01157,
617 + .05065, .02554, 46.15185, 2.12829, 1.66403,
618 + 1.29939, 1.98833, 2.12988 /
619 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
620 + .05188, .02624, 48.84473, 2.24923, 1.78427,
621 + 1.42384, 2.11020, 2.25090,
622 + .05309, .02693, 51.43415, 2.36860, 1.90245,
623 + 1.54492, 2.23044, 2.37035,
624 + .05423, .02759, 53.91073, 2.48411, 2.01735,
625 + 1.66330, 2.34677, 2.48595,
626 + .05530, .02820, 56.22662, 2.59422, 2.12678,
627 + 1.77568, 2.45762, 2.59612,
628 + .05638, .02882, 58.54014, 2.70609, 2.23805,
629 + 1.88986, 2.57023, 2.70807,
630 + .05744, .02943, 60.81844, 2.81780, 2.34936,
631 + 2.00422, 2.68266, 2.81985,
632 + .05845, .03001, 62.94639, 2.92436, 2.45538,
633 + 2.11272, 2.78989, 2.92648,
634 + .05940, .03055, 64.96874, 3.02674, 2.55750,
635 + 2.21749, 2.89289, 3.02892 /
636 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
637 + .06036, .03110, 66.97388, 3.13021, 2.66061,
638 + 2.32298, 2.99698, 3.13246,
639 + .06131, .03165, 68.94745, 3.23340, 2.76357,
640 + 2.42837, 3.10078, 3.23572,
641 + .06222, .03217, 70.81503, 3.33249, 2.86252,
642 + 2.52967, 3.20044, 3.33487,
643 + .06308, .03266, 72.55582, 3.42657, 2.95635,
644 + 2.62546, 3.29505, 3.42901,
645 + .06395, .03316, 74.34308, 3.52358, 3.05348,
646 + 2.72509, 3.39259, 3.52608 /
647 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
648 + .02717, .01178, .61929, .33661, .00000,
649 + .00000, .18133, .33679,
650 + .02858, .01259, 1.25681, .35735, .00000,
651 + .00000, .20374, .35761,
652 + .03062, .01377, 2.38209, .39454, .00248,
653 + .00000, .24325, .39494,
654 + .03209, .01462, 3.32638, .42662, .03560,
655 + .00000, .27691, .42710,
656 + .03363, .01551, 4.43773, .46465, .07236,
657 + .00000, .31651, .46523,
658 + .03493, .01626, 5.47983, .50088, .10585,
659 + .00000, .35404, .50155,
660 + .03618, .01699, 6.55638, .53841, .14118,
661 + .00000, .39276, .53916,
662 + .03749, .01775, 7.78003, .58110, .18203,
663 + .00000, .43667, .58193 /
664 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
665 + .03863, .01841, 8.91125, .62054, .22041,
666 + .00000, .47713, .62145,
667 + .03972, .01904, 10.04549, .66064, .25913,
668 + .00000, .51819, .66162,
669 + .04057, .01954, 10.96819, .69372, .29088,
670 + .00000, .55200, .69476,
671 + .04240, .02060, 13.02600, .76817, .36335,
672 + .00010, .62798, .76934,
673 + .04396, .02150, 14.85514, .83636, .43006,
674 + .05421, .69742, .83763,
675 + .04570, .02252, 16.95439, .91674, .50885,
676 + .15040, .77916, .91813,
677 + .04750, .02356, 19.21574, 1.00474, .59533,
678 + .24255, .86851, 1.00626,
679 + .04913, .02451, 21.32254, 1.08811, .67748,
680 + .33040, .95306, 1.08974 /
681 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
682 + .05077, .02546, 23.49199, 1.17548, .76380,
683 + .42192, 1.04159, 1.17723,
684 + .05212, .02625, 25.31384, 1.25023, .83763,
685 + .49941, 1.11727, 1.25207,
686 + .05376, .02720, 27.53496, 1.34324, .92944,
687 + .59509, 1.21137, 1.34519,
688 + .05520, .02804, 29.51785, 1.42775, 1.01309,
689 + .68243, 1.29683, 1.42981,
690 + .05653, .02881, 31.36050, 1.50727, 1.09222,
691 + .76560, 1.37720, 1.50943,
692 + .05820, .02978, 33.67862, 1.60984, 1.19393,
693 + .87116, 1.48080, 1.61212,
694 + .05976, .03069, 35.84742, 1.70805, 1.29133,
695 + .97190, 1.57997, 1.71044,
696 + .06123, .03154, 37.88526, 1.80194, 1.38477,
697 + 1.06887, 1.67473, 1.80444 /
698 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
699 + .06269, .03239, 39.92525, 1.89756, 1.48018,
700 + 1.16803, 1.77120, 1.90016,
701 + .06412, .03321, 41.87185, 1.99145, 1.57347,
702 + 1.26399, 1.86591, 1.99416,
703 + .06547, .03399, 43.72355, 2.08196, 1.66382,
704 + 1.35747, 1.95718, 2.08477,
705 + .06674, .03473, 45.44446, 2.16787, 1.74951,
706 + 1.44582, 2.04378, 2.17077,
707 + .06801, .03547, 47.15368, 2.25481, 1.83631,
708 + 1.53525, 2.13142, 2.25781,
709 + .06927, .03619, 48.82821, 2.34132, 1.92283,
710 + 1.62450, 2.21860, 2.34441,
711 + .07045, .03688, 50.38250, 2.42351, 2.00490,
712 + 1.70883, 2.30141, 2.42669,
713 + .07158, .03752, 51.85331, 2.50223, 2.08372,
714 + 1.79002, 2.38072, 2.50549 /
715 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
716 + .07271, .03818, 53.30327, 2.58150, 2.16301,
717 + 1.87147, 2.46057, 2.58485,
718 + .07383, .03882, 54.72388, 2.66032, 2.24195,
719 + 1.95260, 2.53995, 2.66375,
720 + .07489, .03943, 56.06176, 2.73577, 2.31757,
721 + 2.03033, 2.61593, 2.73927,
722 + .07590, .04002, 57.30203, 2.80716, 2.38904,
723 + 2.10359, 2.68782, 2.81074,
724 + .07692, .04061, 58.57233, 2.88062, 2.46289,
725 + 2.17965, 2.76178, 2.88428 /
726 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
727 + .03117, .01382, .59558, .31575, .00000,
728 + .00000, .17038, .31620,
729 + .03280, .01478, 1.20122, .33527, .00000,
730 + .00000, .19148, .33584,
731 + .03516, .01616, 2.25866, .36995, .00232,
732 + .00000, .22833, .37067,
733 + .03686, .01716, 3.13611, .39957, .03297,
734 + .00000, .25944, .40042,
735 + .03862, .01820, 4.15973, .43445, .06676,
736 + .00000, .29581, .43542,
737 + .04013, .01908, 5.11180, .46748, .09735,
738 + .00000, .33006, .46856,
739 + .04156, .01992, 6.08873, .50152, .12946,
740 + .00000, .36523, .50270,
741 + .04306, .02081, 7.19201, .54007, .16642,
742 + .00000, .40493, .54135 /
743 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
744 + .04437, .02157, 8.20596, .57553, .20101,
745 + .00000, .44137, .57691,
746 + .04561, .02231, 9.21704, .61145, .23577,
747 + .00000, .47819, .61292,
748 + .04660, .02289, 10.03565, .64098, .26418,
749 + .00000, .50842, .64252,
750 + .04868, .02411, 11.85028, .70717, .32876,
751 + .00010, .57605, .70887,
752 + .05046, .02516, 13.45022, .76748, .38792,
753 + .04818, .63755, .76930,
754 + .05245, .02633, 15.27243, .83821, .45744,
755 + .13342, .70958, .84019,
756 + .05451, .02754, 17.22106, .91526, .53337,
757 + .21460, .78791, .91738,
758 + .05636, .02862, 19.02391, .98789, .60515,
759 + .29163, .86167, .99015 /
760 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
761 + .05822, .02972, 20.86851, 1.06367, .68024,
762 + .37152, .93855, 1.06608,
763 + .05976, .03062, 22.40849, 1.12824, .74421,
764 + .43888, 1.00401, 1.13076,
765 + .06162, .03171, 24.27503, 1.20826, .82343,
766 + .52173, 1.08508, 1.21092,
767 + .06325, .03266, 25.93193, 1.28068, .89533,
768 + .59706, 1.15840, 1.28347,
769 + .06475, .03354, 27.46446, 1.34860, .96313,
770 + .66856, 1.22714, 1.35151,
771 + .06664, .03465, 29.38113, 1.43586, 1.04993,
772 + .75894, 1.31539, 1.43891,
773 + .06841, .03568, 31.16366, 1.51908, 1.13271,
774 + .84485, 1.39952, 1.52226,
775 + .07006, .03664, 32.83003, 1.59835, 1.21185,
776 + .92727, 1.47963, 1.60166 /
777 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
778 + .07171, .03761, 34.49012, 1.67881, 1.29240,
779 + 1.01127, 1.56091, 1.68224,
780 + .07332, .03854, 36.06473, 1.75752, 1.37085,
781 + 1.09223, 1.64040, 1.76108,
782 + .07484, .03942, 37.55641, 1.83317, 1.44661,
783 + 1.17088, 1.71678, 1.83684,
784 + .07626, .04025, 38.93604, 1.90474, 1.51825,
785 + 1.24499, 1.78903, 1.90853,
786 + .07769, .04108, 40.30014, 1.97698, 1.59059,
787 + 1.31978, 1.86193, 1.98087,
788 + .07910, .04190, 41.63123, 2.04865, 1.66251,
789 + 1.39423, 1.93425, 2.05266,
790 + .08043, .04267, 42.86063, 2.11654, 1.73053,
791 + 1.46435, 2.00275, 2.12065,
792 + .08169, .04340, 44.02017, 2.18142, 1.79570,
793 + 1.53172, 2.06819, 2.18562 /
794 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
795 + .08295, .04413, 45.15802, 2.24657, 1.86109,
796 + 1.59912, 2.13390, 2.25087,
797 + .08420, .04485, 46.26883, 2.31120, 1.92603,
798 + 1.66610, 2.19907, 2.31560,
799 + .08539, .04554, 47.31100, 2.37291, 1.98811,
800 + 1.73012, 2.26130, 2.37740,
801 + .08652, .04618, 48.27291, 2.43116, 2.04662,
802 + 1.79030, 2.32004, 2.43574,
803 + .08766, .04684, 49.25630, 2.49101, 2.10700,
804 + 1.85271, 2.38038, 2.49568 /
805 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
806 + .03476, .01577, .57875, .30090, .00000,
807 + .00000, .16242, .30142,
808 + .03658, .01685, 1.16106, .31949, .00000,
809 + .00000, .18250, .32014,
810 + .03922, .01842, 2.16807, .35224, .00221,
811 + .00000, .21731, .35308,
812 + .04112, .01955, 2.99565, .38001, .03098,
813 + .00000, .24648, .38099,
814 + .04309, .02072, 3.95388, .41253, .06255,
815 + .00000, .28040, .41366,
816 + .04477, .02171, 4.83905, .44317, .09098,
817 + .00000, .31220, .44443,
818 + .04636, .02266, 5.74221, .47463, .12070,
819 + .00000, .34472, .47600,
820 + .04804, .02365, 6.75663, .51011, .15478,
821 + .00000, .38130, .51162 /
822 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
823 + .04949, .02451, 7.68432, .54266, .18658,
824 + .00000, .41476, .54427,
825 + .05088, .02534, 8.60514, .57551, .21842,
826 + .00000, .44847, .57723,
827 + .05197, .02598, 9.34772, .60245, .24439,
828 + .00000, .47606, .60425,
829 + .05428, .02735, 10.98547, .66263, .30322,
830 + .00009, .53761, .66461,
831 + .05626, .02852, 12.41967, .71723, .35687,
832 + .04379, .59334, .71936,
833 + .05846, .02982, 14.04263, .78100, .41968,
834 + .12106, .65833, .78330,
835 + .06073, .03116, 15.76751, .85018, .48799,
836 + .19430, .72873, .85265,
837 + .06278, .03237, 17.35410, .91513, .55232,
838 + .26352, .79475, .91776 /
839 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
840 + .06483, .03358, 18.96874, .98265, .61937,
841 + .33506, .86331, .98544,
842 + .06653, .03458, 20.31007, 1.03998, .67630,
843 + .39517, .92149, 1.04291,
844 + .06857, .03578, 21.92767, 1.11080, .74657,
845 + .46886, .99331, 1.11389,
846 + .07037, .03684, 23.35687, 1.17469, .81015,
847 + .53565, 1.05805, 1.17792,
848 + .07202, .03780, 24.67366, 1.23444, .86994,
849 + .59888, 1.11858, 1.23781,
850 + .07409, .03902, 26.31215, 1.31095, .94622,
851 + .67854, 1.19603, 1.31448,
852 + .07603, .04015, 27.82808, 1.38367, 1.01874,
853 + .75400, 1.26962, 1.38735,
854 + .07784, .04121, 29.23924, 1.45274, 1.08787,
855 + .82619, 1.33949, 1.45656 /
856 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
857 + .07964, .04226, 30.63946, 1.52265, 1.15803,
858 + .89957, 1.41018, 1.52661,
859 + .08140, .04328, 31.96045, 1.59082, 1.22615,
860 + .97006, 1.47910, 1.59492,
861 + .08305, .04425, 33.20750, 1.65618, 1.29178,
862 + 1.03838, 1.54515, 1.66041,
863 + .08461, .04515, 34.35619, 1.71787, 1.35367,
864 + 1.10260, 1.60749, 1.72222,
865 + .08617, .04606, 35.48737, 1.77996, 1.41603,
866 + 1.16724, 1.67022, 1.78444,
867 + .08770, .04694, 36.58731, 1.84143, 1.47789,
868 + 1.23146, 1.73230, 1.84603,
869 + .08914, .04778, 37.59894, 1.89950, 1.53624,
870 + 1.29178, 1.79095, 1.90422,
871 + .09051, .04857, 38.55046, 1.95490, 1.59205,
872 + 1.34964, 1.84689, 1.95972 /
873 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
874 + .09188, .04937, 39.48029, 2.01040, 1.64791,
875 + 1.40738, 1.90293, 2.01533,
876 + .09324, .05015, 40.38515, 2.06535, 1.70329,
877 + 1.46466, 1.95840, 2.07039,
878 + .09453, .05089, 41.23124, 2.11772, 1.75611,
879 + 1.51930, 2.01126, 2.12286,
880 + .09575, .05159, 42.00910, 2.16704, 1.80581,
881 + 1.57056, 2.06105, 2.17228,
882 + .09698, .05231, 42.80313, 2.21765, 1.85702,
883 + 1.62366, 2.11213, 2.22298 /
884 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
885 + .04907, .02404, .53246, .25955, .00000,
886 + .00000, .14045, .26077,
887 + .05167, .02563, 1.04800, .27537, .00000,
888 + .00000, .15755, .27680,
889 + .05543, .02793, 1.91090, .30254, .00187,
890 + .00000, .18651, .30429,
891 + .05811, .02956, 2.59731, .32504, .02541,
892 + .00000, .21023, .32701,
893 + .06088, .03124, 3.37238, .35093, .05080,
894 + .00000, .23734, .35313,
895 + .06323, .03267, 4.07204, .37493, .07327,
896 + .00000, .26235, .37734,
897 + .06546, .03401, 4.77245, .39926, .09648,
898 + .00000, .28761, .40185,
899 + .06779, .03542, 5.54499, .42638, .12276,
900 + .00000, .31568, .42917 /
901 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
902 + .06980, .03664, 6.23989, .45098, .14701,
903 + .00000, .34109, .45394,
904 + .07172, .03779, 6.91902, .47556, .17105,
905 + .00000, .36642, .47868,
906 + .07323, .03870, 7.45941, .49553, .19047,
907 + .00000, .38697, .49878,
908 + .07640, .04060, 8.63100, .53967, .23401,
909 + .00008, .43231, .54319,
910 + .07911, .04222, 9.63341, .57915, .27318,
911 + .03221, .47279, .58290,
912 + .08211, .04401, 10.74309, .62465, .31843,
913 + .08857, .51937, .62865,
914 + .08519, .04584, 11.89814, .67331, .36697,
915 + .14115, .56912, .67758,
916 + .08795, .04749, 12.93957, .71841, .41209,
917 + .19021, .61517, .72291 /
918 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
919 + .09072, .04912, 13.97996, .76471, .45855,
920 + .24031, .66241, .76944,
921 + .09299, .05046, 14.82960, .80359, .49757,
922 + .28194, .70204, .80851,
923 + .09571, .05207, 15.83674, .85108, .54521,
924 + .33242, .75042, .85623,
925 + .09810, .05347, 16.71188, .89345, .58784,
926 + .37769, .79357, .89881,
927 + .10028, .05475, 17.50723, .93272, .62758,
928 + .42018, .83353, .93827,
929 + .10302, .05635, 18.47938, .98245, .67773,
930 + .47312, .88412, .98822,
931 + .10556, .05784, 19.36260, 1.02918, .72487,
932 + .52271, .93163, 1.03517,
933 + .10793, .05922, 20.17226, 1.07312, .76938,
934 + .56970, .97630, 1.07931 /
935 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
936 + .11028, .06058, 20.96395, 1.11719, .81414,
937 + .61705, 1.02108, 1.12357,
938 + .11256, .06190, 21.69655, 1.15968, .85712,
939 + .66203, 1.06425, 1.16626,
940 + .11470, .06314, 22.37956, 1.20010, .89822,
941 + .70531, 1.10530, 1.20685,
942 + .11671, .06430, 22.99899, 1.23790, .93663,
943 + .74562, 1.14369, 1.24482,
944 + .11871, .06545, 23.60015, 1.27563, .97501,
945 + .78588, 1.18200, 1.28272,
946 + .12067, .06658, 24.17735, 1.31270, 1.01281,
947 + .82558, 1.21964, 1.31995,
948 + .12251, .06763, 24.69933, 1.34741, 1.04815,
949 + .86256, 1.25488, 1.35481,
950 + .12426, .06863, 25.18521, 1.38031, 1.08175,
951 + .89781, 1.28828, 1.38786 /
952 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
953 + .12600, .06963, 25.65246, 1.41300, 1.11512,
954 + .93271, 1.32146, 1.42070,
955 + .12771, .07061, 26.10175, 1.44515, 1.14798,
956 + .96712, 1.35409, 1.45299,
957 + .12934, .07153, 26.51638, 1.47558, 1.17912,
958 + .99974, 1.38498, 1.48355,
959 + .13087, .07240, 26.89153, 1.50403, 1.20819,
960 + 1.03011, 1.41385, 1.51212,
961 + .13243, .07329, 27.27262, 1.53310, 1.23805,
962 + 1.06146, 1.44336, 1.54132 /
963 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
964 + .07055, .03763, .49685, .22564, .00000,
965 + .00000, .12233, .22815,
966 + .07426, .03992, .95333, .23880, .00000,
967 + .00000, .13663, .24167,
968 + .07959, .04320, 1.68786, .26085, .00157,
969 + .00000, .16027, .26422,
970 + .08336, .04551, 2.25008, .27867, .02058,
971 + .00000, .17918, .28238,
972 + .08723, .04787, 2.86654, .29879, .04070,
973 + .00000, .20040, .30287,
974 + .09050, .04985, 3.40818, .31713, .05818,
975 + .00000, .21965, .32151,
976 + .09358, .05171, 3.93848, .33546, .07597,
977 + .00000, .23881, .34012,
978 + .09680, .05365, 4.51113, .35562, .09584,
979 + .00000, .25984, .36058 /
980 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
981 + .09956, .05531, 5.01636, .37369, .11394,
982 + .00000, .27864, .37890,
983 + .10218, .05688, 5.50119, .39153, .13168,
984 + .00000, .29717, .39698,
985 + .10422, .05810, 5.88089, .40588, .14588,
986 + .00000, .31205, .41152,
987 + .10853, .06066, 6.68758, .43721, .17730,
988 + .00007, .34448, .44325,
989 + .11217, .06282, 7.35863, .46480, .20513,
990 + .02312, .37298, .47116,
991 + .11618, .06518, 8.08192, .49610, .23680,
992 + .06317, .40528, .50283,
993 + .12027, .06758, 8.81605, .52904, .27023,
994 + .09988, .43922, .53613,
995 + .12392, .06972, 9.46193, .55909, .30085,
996 + .13364, .47017, .56652 /
997 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
998 + .12755, .07183, 10.09255, .58952, .33195,
999 + .16765, .50146, .59727,
1000 + .13051, .07355, 10.59659, .61474, .35773,
1001 + .19555, .52739, .62275,
1002 + .13405, .07559, 11.18120, .64513, .38880,
1003 + .22897, .55862, .65346,
1004 + .13714, .07737, 11.67837, .67191, .41627,
1005 + .25858, .58612, .68051,
1006 + .13994, .07898, 12.12234, .69645, .44162,
1007 + .28610, .61132, .70530,
1008 + .14343, .08097, 12.65230, .72713, .47319,
1009 + .31995, .64280, .73628,
1010 + .14667, .08281, 13.12217, .75555, .50248,
1011 + .35125, .67197, .76499,
1012 + .14966, .08451, 13.54411, .78198, .52983,
1013 + .38060, .69908, .79167 /
1014 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
1015 + .15262, .08619, 13.94847, .80818, .55704,
1016 + .40987, .72596, .81813,
1017 + .15546, .08778, 14.31236, .83310, .58282,
1018 + .43730, .75153, .84329,
1019 + .15813, .08928, 14.64579, .85657, .60726,
1020 + .46349, .77560, .86699,
1021 + .16061, .09067, 14.94109, .87827, .62986,
1022 + .48762, .79787, .88890,
1023 + .16308, .09205, 15.22151, .89971, .65221,
1024 + .51150, .81987, .91055,
1025 + .16548, .09339, 15.48580, .92059, .67404,
1026 + .53485, .84129, .93164,
1027 + .16774, .09464, 15.71809, .93991, .69423,
1028 + .55637, .86112, .95115,
1029 + .16986, .09581, 15.93089, .95808, .71330,
1030 + .57676, .87977, .96950 /
1031 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
1032 + .17197, .09697, 16.13009, .97595, .73203,
1033 + .59674, .89811, .98753,
1034 + .17404, .09811, 16.31798, .99337, .75035,
1035 + .61630, .91600, 1.00513,
1036 + .17599, .09919, 16.48752, 1.00972, .76756,
1037 + .63470, .93278, 1.02164,
1038 + .17783, .10019, 16.63647, 1.02485, .78349,
1039 + .65168, .94833, 1.03692,
1040 + .17969, .10120, 16.78692, 1.04024, .79978,
1041 + .66914, .96414, 1.05247 /
1042 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
1043 + .08817, .04936, .48365, .20873, .00000,
1044 + .00000, .11340, .21260,
1045 + .09272, .05216, .90820, .22040, .00000,
1046 + .00000, .12617, .22472,
1047 + .09922, .05612, 1.57347, .23966, .00141,
1048 + .00000, .14697, .24462,
1049 + .10379, .05889, 2.06974, .25498, .01809,
1050 + .00000, .16335, .26039,
1051 + .10847, .06171, 2.60330, .27209, .03554,
1052 + .00000, .18153, .27795,
1053 + .11241, .06407, 3.06371, .28751, .05051,
1054 + .00000, .19783, .29375,
1055 + .11610, .06627, 3.50782, .30278, .06559,
1056 + .00000, .21392, .30938,
1057 + .11994, .06855, 3.98056, .31944, .08229,
1058 + .00000, .23142, .32640 /
1059 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
1060 + .12322, .07050, 4.39222, .33424, .09738,
1061 + .00000, .24695, .34151,
1062 + .12633, .07233, 4.78238, .34876, .11205,
1063 + .00000, .26214, .35632,
1064 + .12875, .07375, 5.08466, .36035, .12371,
1065 + .00000, .27426, .36815,
1066 + .13382, .07671, 5.71802, .38546, .14932,
1067 + .00006, .30044, .39373,
1068 + .13810, .07920, 6.23453, .40733, .17175,
1069 + .01879, .32322, .41599,
1070 + .14277, .08190, 6.78070, .43189, .19703,
1071 + .05112, .34876, .44099,
1072 + .14753, .08463, 7.32527, .45745, .22343,
1073 + .08041, .37532, .46699,
1074 + .15175, .08705, 7.79599, .48053, .24737,
1075 + .10710, .39929, .49046 /
1076 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
1077 + .15593, .08942, 8.24799, .50368, .27146,
1078 + .13374, .42330, .51398,
1079 + .15933, .09135, 8.60366, .52269, .29127,
1080 + .15541, .44301, .53329,
1081 + .16337, .09362, 9.00932, .54538, .31492,
1082 + .18116, .46654, .55635,
1083 + .16687, .09559, 9.34871, .56520, .33567,
1084 + .20379, .48708, .57648,
1085 + .17005, .09736, 9.64780, .58324, .35468,
1086 + .22469, .50577, .59480,
1087 + .17399, .09955, 9.99805, .60556, .37815,
1088 + .25017, .52890, .61747,
1089 + .17762, .10156, 10.30228, .62605, .39972,
1090 + .27354, .55013, .63827,
1091 + .18096, .10340, 10.57091, .64493, .41971,
1092 + .29529, .56971, .65744 /
1093 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
1094 + .18426, .10521, 10.82411, .66351, .43946,
1095 + .31683, .58896, .67630,
1096 + .18741, .10693, 11.04603, .68100, .45800,
1097 + .33685, .60710, .69406,
1098 + .19036, .10853, 11.24648, .69737, .47546,
1099 + .35584, .62407, .71067,
1100 + .19309, .11001, 11.42033, .71237, .49149,
1101 + .37323, .63964, .72591,
1102 + .19580, .11147, 11.58182, .72708, .50724,
1103 + .39032, .65491, .74084,
1104 + .19843, .11289, 11.73120, .74130, .52253,
1105 + .40694, .66968, .75529,
1106 + .20088, .11420, 11.85875, .75435, .53656,
1107 + .42215, .68324, .76854,
1108 + .20318, .11542, 11.97382, .76655, .54974,
1109 + .43649, .69592, .78093 /
1110 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
1111 + .20547, .11664, 12.07811, .77845, .56260,
1112 + .45045, .70830, .79301,
1113 + .20770, .11782, 12.17428, .78998, .57511,
1114 + .46405, .72030, .80472,
1115 + .20980, .11893, 12.25873, .80073, .58679,
1116 + .47677, .73148, .81564,
1117 + .21177, .11996, 12.33005, .81059, .59753,
1118 + .48844, .74176, .82566,
1119 + .21375, .12101, 12.40180, .82060, .60848,
1120 + .50041, .75219, .83582 /
1121 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
1122 + .10388, .06005, .47987, .19796, .00000,
1123 + .00000, .10779, .20323,
1124 + .10912, .06323, .88251, .20859, .00000,
1125 + .00000, .11951, .21439,
1126 + .11657, .06772, 1.50055, .22595, .00131,
1127 + .00000, .13840, .23250,
1128 + .12179, .07083, 1.95246, .23961, .01648,
1129 + .00000, .15312, .24668,
1130 + .12712, .07399, 2.43094, .25471, .03220,
1131 + .00000, .16929, .26231,
1132 + .13157, .07661, 2.83802, .26822, .04554,
1133 + .00000, .18368, .27625,
1134 + .13574, .07905, 3.22610, .28150, .05890,
1135 + .00000, .19778, .28994,
1136 + .14007, .08158, 3.63457, .29589, .07357,
1137 + .00000, .21302, .30475 /
1138 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
1139 + .14375, .08372, 3.98662, .30859, .08675,
1140 + .00000, .22645, .31781,
1141 + .14723, .08573, 4.31699, .32098, .09948,
1142 + .00000, .23951, .33053,
1143 + .14993, .08728, 4.57071, .33082, .10955,
1144 + .00000, .24988, .34063,
1145 + .15558, .09052, 5.09642, .35199, .13151,
1146 + .00006, .27214, .36233,
1147 + .16032, .09321, 5.51821, .37028, .15060,
1148 + .01609, .29134, .38106,
1149 + .16548, .09613, 5.95720, .39064, .17192,
1150 + .04365, .31270, .40190,
1151 + .17071, .09907, 6.38846, .41166, .19402,
1152 + .06839, .33472, .42340,
1153 + .17534, .10165, 6.75574, .43047, .21390,
1154 + .09076, .35443, .44263 /
1155 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
1156 + .17989, .10418, 7.10344, .44919, .23376,
1157 + .11293, .37402, .46176,
1158 + .18359, .10622, 7.37325, .46445, .24997,
1159 + .13086, .38999, .47735,
1160 + .18796, .10862, 7.67647, .48253, .26921,
1161 + .15201, .40892, .49582,
1162 + .19175, .11068, 7.92648, .49821, .28597,
1163 + .17049, .42532, .51183,
1164 + .19517, .11254, 8.14420, .51239, .30124,
1165 + .18747, .44017, .52631,
1166 + .19939, .11482, 8.39453, .52980, .31996,
1167 + .20804, .45840, .54408,
1168 + .20326, .11690, 8.60778, .54564, .33704,
1169 + .22677, .47500, .56026,
1170 + .20682, .11880, 8.79302, .56015, .35277,
1171 + .24411, .49020, .57506 /
1172 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
1173 + .21032, .12066, 8.96473, .57432, .36823,
1174 + .26119, .50506, .58953,
1175 + .21364, .12241, 9.11109, .58755, .38262,
1176 + .27695, .51895, .60303,
1177 + .21675, .12404, 9.24129, .59985, .39612,
1178 + .29184, .53187, .61559,
1179 + .21962, .12554, 9.35145, .61105, .40843,
1180 + .30539, .54364, .62702,
1181 + .22244, .12701, 9.45127, .62195, .42046,
1182 + .31864, .55511, .63816,
1183 + .22518, .12844, 9.54162, .63243, .43207,
1184 + .33147, .56614, .64886,
1185 + .22773, .12975, 9.61584, .64197, .44267,
1186 + .34315, .57620, .65860,
1187 + .23012, .13098, 9.68147, .65084, .45258,
1188 + .35411, .58556, .66766 /
1189 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
1190 + .23248, .13218, 9.73830, .65943, .46219,
1191 + .36473, .59463, .67644,
1192 + .23478, .13335, 9.78899, .66771, .47149,
1193 + .37503, .60338, .68489,
1194 + .23694, .13445, 9.83161, .67537, .48015,
1195 + .38463, .61149, .69272,
1196 + .23895, .13547, 9.86516, .68235, .48805,
1197 + .39338, .61889, .69985,
1198 + .24099, .13649, 9.89879, .68941, .49609,
1199 + .40235, .62638, .70707 /
1200 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
1201 + .11839, .07000, .48199, .19019, .00000,
1202 + .00000, .10384, .19688,
1203 + .12422, .07348, .86778, .20003, .00000,
1204 + .00000, .11479, .20732,
1205 + .13247, .07837, 1.44995, .21596, .00123,
1206 + .00000, .13226, .22409,
1207 + .13823, .08175, 1.86859, .22837, .01531,
1208 + .00000, .14574, .23708,
1209 + .14408, .08516, 2.30623, .24200, .02978,
1210 + .00000, .16046, .25129,
1211 + .14896, .08799, 2.67413, .25410, .04196,
1212 + .00000, .17345, .26387,
1213 + .15352, .09061, 3.02142, .26592, .05407,
1214 + .00000, .18611, .27614,
1215 + .15823, .09330, 3.38353, .27866, .06730,
1216 + .00000, .19971, .28934 /
1217 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
1218 + .16224, .09558, 3.69288, .28985, .07911,
1219 + .00000, .21164, .30092,
1220 + .16601, .09772, 3.98073, .30070, .09046,
1221 + .00000, .22318, .31213,
1222 + .16893, .09937, 4.20010, .30929, .09940,
1223 + .00000, .23229, .32099,
1224 + .17502, .10278, 4.65031, .32765, .11879,
1225 + .00005, .25177, .33993,
1226 + .18012, .10561, 5.00638, .34340, .13553,
1227 + .01420, .26845, .35615,
1228 + .18565, .10867, 5.37171, .36081, .15411,
1229 + .03841, .28687, .37407,
1230 + .19123, .11173, 5.72586, .37864, .17322,
1231 + .05999, .30573, .39241,
1232 + .19615, .11441, 6.02353, .39449, .19030,
1233 + .07937, .32248, .40870 /
1234 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
1235 + .20098, .11702, 6.30168, .41015, .20725,
1236 + .09848, .33904, .42479,
1237 + .20488, .11912, 6.51450, .42283, .22101,
1238 + .11384, .35244, .43782,
1239 + .20948, .12157, 6.75057, .43776, .23724,
1240 + .13187, .36823, .45315,
1241 + .21345, .12368, 6.94252, .45062, .25130,
1242 + .14754, .38184, .46634,
1243 + .21702, .12557, 7.10775, .46219, .26405,
1244 + .16188, .39408, .47822,
1245 + .22143, .12787, 7.29399, .47629, .27959,
1246 + .17914, .40902, .49269,
1247 + .22545, .12997, 7.44964, .48903, .29368,
1248 + .19478, .42253, .50577,
1249 + .22914, .13187, 7.58250, .50062, .30659,
1250 + .20918, .43483, .51766 /
1251 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
1252 + .23275, .13373, 7.70339, .51187, .31921,
1253 + .22331, .44678, .52920,
1254 + .23617, .13547, 7.80301, .52228, .33088,
1255 + .23627, .45786, .53989,
1256 + .23935, .13709, 7.89004, .53192, .34178,
1257 + .24846, .46812, .54978,
1258 + .24228, .13857, 7.96141, .54063, .35167,
1259 + .25950, .47741, .55872,
1260 + .24516, .14002, 8.02399, .54905, .36128,
1261 + .27026, .48641, .56736,
1262 + .24795, .14141, 8.07902, .55711, .37053,
1263 + .28063, .49503, .57563,
1264 + .25053, .14269, 8.12168, .56438, .37890,
1265 + .29002, .50282, .58310,
1266 + .25295, .14389, 8.15825, .57111, .38672,
1267 + .29882, .51005, .59002 /
1268 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
1269 + .25532, .14505, 8.18740, .57757, .39425,
1270 + .30729, .51701, .59666,
1271 + .25763, .14618, 8.21176, .58377, .40152,
1272 + .31548, .52368, .60302,
1273 + .25980, .14724, 8.23032, .58946, .40824,
1274 + .32309, .52983, .60888,
1275 + .26181, .14821, 8.24237, .59461, .41435,
1276 + .32999, .53541, .61417,
1277 + .26385, .14919, 8.25436, .59982, .42056,
1278 + .33705, .54104, .61952 /
1279 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
1280 + .14511, .08830, .49745, .17920, .00000,
1281 + .00000, .09849, .18877,
1282 + .15189, .09222, .85766, .18788, .00000,
1283 + .00000, .10832, .19815,
1284 + .16142, .09767, 1.38611, .20170, .00112,
1285 + .00000, .12375, .21296,
1286 + .16802, .10141, 1.75590, .21231, .01367,
1287 + .00000, .13547, .22422,
1288 + .17469, .10516, 2.13442, .22381, .02640,
1289 + .00000, .14811, .23639,
1290 + .18023, .10824, 2.44641, .23390, .03696,
1291 + .00000, .15912, .24702,
1292 + .18536, .11108, 2.73604, .24366, .04734,
1293 + .00000, .16975, .25727,
1294 + .19065, .11399, 3.03320, .25406, .05857,
1295 + .00000, .18106, .26819 /
1296 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
1297 + .19513, .11644, 3.28333, .26313, .06851,
1298 + .00000, .19090, .27768,
1299 + .19933, .11872, 3.51274, .27184, .07797,
1300 + .00000, .20033, .28679,
1301 + .20256, .12046, 3.68530, .27868, .08537,
1302 + .00000, .20773, .29393,
1303 + .20928, .12406, 4.03351, .29318, .10126,
1304 + .00005, .22338, .30904,
1305 + .21486, .12703, 4.30187, .30545, .11482,
1306 + .01164, .23662, .32181,
1307 + .22089, .13020, 4.57021, .31885, .12970,
1308 + .03136, .25108, .33575,
1309 + .22692, .13335, 4.82416, .33239, .14483,
1310 + .04871, .26569, .34982,
1311 + .23220, .13608, 5.03221, .34427, .15819,
1312 + .06414, .27851, .36216 /
1313 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
1314 + .23735, .13873, 5.22172, .35587, .17132,
1315 + .07920, .29104, .37419,
1316 + .24149, .14084, 5.36300, .36515, .18187,
1317 + .09119, .30108, .38381,
1318 + .24635, .14328, 5.51519, .37594, .19419,
1319 + .10515, .31276, .39501,
1320 + .25051, .14537, 5.63534, .38513, .20476,
1321 + .11718, .32272, .40453,
1322 + .25424, .14722, 5.73626, .39332, .21428,
1323 + .12811, .33161, .41302,
1324 + .25879, .14947, 5.84525, .40316, .22574,
1325 + .14114, .34231, .42321,
1326 + .26293, .15149, 5.93188, .41193, .23603,
1327 + .15283, .35187, .43230,
1328 + .26670, .15331, 6.00268, .41981, .24537,
1329 + .16352, .36049, .44046 /
1330 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
1331 + .27037, .15508, 6.06410, .42737, .25442,
1332 + .17392, .36877, .44830,
1333 + .27381, .15672, 6.10987, .43425, .26270,
1334 + .18336, .37633, .45542,
1335 + .27701, .15823, 6.14762, .44054, .27036,
1336 + .19219, .38328, .46194,
1337 + .27994, .15959, 6.17513, .44616, .27725,
1338 + .20012, .38949, .46777,
1339 + .28280, .16092, 6.19610, .45152, .28389,
1340 + .20779, .39544, .47332,
1341 + .28555, .16219, 6.21201, .45658, .29023,
1342 + .21514, .40108, .47857,
1343 + .28808, .16335, 6.21999, .46107, .29591,
1344 + .22173, .40610, .48323,
1345 + .29043, .16442, 6.22483, .46520, .30117,
1346 + .22787, .41073, .48751 /
1347 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
1348 + .29274, .16546, 6.22430, .46909, .30620,
1349 + .23374, .41512, .49155,
1350 + .29496, .16646, 6.22078, .47277, .31100,
1351 + .23938, .41929, .49537,
1352 + .29704, .16738, 6.21426, .47611, .31542,
1353 + .24458, .42309, .49883,
1354 + .29896, .16823, 6.20429, .47906, .31938,
1355 + .24926, .42648, .50191,
1356 + .30090, .16907, 6.19422, .48204, .32340,
1357 + .25404, .42990, .50501 /
1358 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
1359 + .18159, .11290, .53827, .16809, .00000,
1360 + .00000, .09346, .18200,
1361 + .18941, .11719, .86934, .17556, .00000,
1362 + .00000, .10216, .19026,
1363 + .20030, .12310, 1.33967, .18720, .00101,
1364 + .00000, .11553, .20299,
1365 + .20777, .12710, 1.65816, .19596, .01210,
1366 + .00000, .12549, .21248,
1367 + .21526, .13108, 1.97594, .20531, .02314,
1368 + .00000, .13604, .22254,
1369 + .22143, .13432, 2.23164, .21337, .03213,
1370 + .00000, .14510, .23119,
1371 + .22712, .13728, 2.46415, .22108, .04086,
1372 + .00000, .15374, .23942,
1373 + .23294, .14029, 2.69796, .22920, .05018,
1374 + .00000, .16282, .24806 /
1375 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
1376 + .23784, .14280, 2.89110, .23619, .05833,
1377 + .00000, .17063, .25549,
1378 + .24240, .14512, 3.06495, .24283, .06600,
1379 + .00000, .17803, .26254,
1380 + .24590, .14688, 3.19354, .24800, .07195,
1381 + .00000, .18378, .26800,
1382 + .25312, .15049, 3.44723, .25880, .08458,
1383 + .00004, .19582, .27942,
1384 + .25906, .15343, 3.63571, .26779, .09520,
1385 + .00928, .20584, .28890,
1386 + .26542, .15654, 3.81721, .27745, .10669,
1387 + .02487, .21661, .29907,
1388 + .27173, .15958, 3.98295, .28704, .11819,
1389 + .03838, .22732, .30916,
1390 + .27720, .16219, 4.11364, .29531, .12822,
1391 + .05025, .23658, .31785 /
1392 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
1393 + .28249, .16469, 4.22786, .30323, .13794,
1394 + .06170, .24548, .32617,
1395 + .28670, .16665, 4.30937, .30948, .14566,
1396 + .07072, .25251, .33272,
1397 + .29160, .16891, 4.39251, .31660, .15455,
1398 + .08110, .26056, .34020,
1399 + .29576, .17080, 4.45446, .32257, .16209,
1400 + .08995, .26733, .34645,
1401 + .29946, .17247, 4.50394, .32782, .16881,
1402 + .09793, .27330, .35194,
1403 + .30395, .17447, 4.55210, .33397, .17680,
1404 + .10732, .28035, .35839,
1405 + .30797, .17623, 4.58554, .33934, .18386,
1406 + .11566, .28653, .36401,
1407 + .31161, .17780, 4.60921, .34407, .19020,
1408 + .12320, .29202, .36897 /
1409 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
1410 + .31512, .17930, 4.62607, .34853, .19627,
1411 + .13048, .29722, .37364,
1412 + .31838, .18067, 4.63231, .35246, .20174,
1413 + .13700, .30186, .37776,
1414 + .32138, .18192, 4.63446, .35601, .20675,
1415 + .14305, .30606, .38147,
1416 + .32409, .18303, 4.63103, .35908, .21119,
1417 + .14843, .30975, .38469,
1418 + .32672, .18410, 4.62306, .36195, .21542,
1419 + .15358, .31321, .38768,
1420 + .32923, .18510, 4.61216, .36459, .21942,
1421 + .15847, .31644, .39045,
1422 + .33152, .18600, 4.59716, .36685, .22294,
1423 + .16282, .31924, .39282,
1424 + .33363, .18682, 4.58139, .36889, .22618,
1425 + .16683, .32179, .39495 /
1426 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
1427 + .33568, .18760, 4.56193, .37074, .22922,
1428 + .17063, .32414, .39689,
1429 + .33764, .18834, 4.54091, .37244, .23210,
1430 + .17425, .32634, .39867,
1431 + .33945, .18901, 4.51900, .37393, .23471,
1432 + .17756, .32829, .40023,
1433 + .34110, .18962, 4.49592, .37519, .23702,
1434 + .18051, .32998, .40155,
1435 + .34277, .19022, 4.47283, .37645, .23935,
1436 + .18351, .33168, .40286 /
1437 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
1438 + .23668, .14859, .63070, .15514, .00000,
1439 + .00000, .08819, .17619,
1440 + .24552, .15303, .92326, .16122, .00000,
1441 + .00000, .09562, .18308,
1442 + .25768, .15904, 1.32120, .17040, .00090,
1443 + .00000, .10670, .19334,
1444 + .26591, .16304, 1.57918, .17710, .01043,
1445 + .00000, .11470, .20074,
1446 + .27407, .16696, 1.82781, .18408, .01969,
1447 + .00000, .12299, .20840,
1448 + .28070, .17010, 2.02126, .18997, .02705,
1449 + .00000, .12997, .21481,
1450 + .28676, .17293, 2.19209, .19549, .03406,
1451 + .00000, .13648, .22080,
1452 + .29291, .17576, 2.35893, .20119, .04142,
1453 + .00000, .14322, .22697 /
1454 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
1455 + .29804, .17810, 2.49296, .20600, .04775,
1456 + .00000, .14891, .23217,
1457 + .30276, .18023, 2.61022, .21051, .05362,
1458 + .00000, .15423, .23701,
1459 + .30635, .18183, 2.69463, .21396, .05811,
1460 + .00000, .15830, .24070,
1461 + .31367, .18505, 2.85516, .22103, .06751,
1462 + .00004, .16667, .24826,
1463 + .31962, .18762, 2.96693, .22676, .07525,
1464 + .00698, .17348, .25437,
1465 + .32589, .19028, 3.06700, .23275, .08346,
1466 + .01856, .18064, .26074,
1467 + .33202, .19282, 3.15201, .23851, .09152,
1468 + .02841, .18758, .26685,
1469 + .33726, .19494, 3.21343, .24332, .09840,
1470 + .03691, .19342, .27195 /
1471 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
1472 + .34223, .19693, 3.26189, .24780, .10495,
1473 + .04499, .19890, .27667,
1474 + .34614, .19845, 3.29214, .25122, .11005,
1475 + .05125, .20313, .28027,
1476 + .35061, .20014, 3.31762, .25499, .11584,
1477 + .05836, .20785, .28424,
1478 + .35435, .20153, 3.33203, .25803, .12065,
1479 + .06434, .21171, .28743,
1480 + .35764, .20273, 3.34023, .26063, .12488,
1481 + .06967, .21504, .29015,
1482 + .36153, .20410, 3.34079, .26354, .12980,
1483 + .07584, .21886, .29319,
1484 + .36496, .20526, 3.33376, .26593, .13406,
1485 + .08123, .22208, .29568,
1486 + .36801, .20627, 3.32247, .26795, .13782,
1487 + .08605, .22485, .29777 /
1488 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
1489 + .37090, .20720, 3.30715, .26976, .14136,
1490 + .09063, .22741, .29964,
1491 + .37352, .20799, 3.28597, .27121, .14445,
1492 + .09466, .22956, .30113,
1493 + .37589, .20869, 3.26400, .27245, .14725,
1494 + .09837, .23145, .30240,
1495 + .37799, .20928, 3.24024, .27343, .14968,
1496 + .10161, .23303, .30339,
1497 + .37998, .20982, 3.21396, .27425, .15194,
1498 + .10467, .23444, .30422,
1499 + .38186, .21030, 3.18664, .27494, .15404,
1500 + .10755, .23571, .30492,
1501 + .38351, .21069, 3.15823, .27542, .15583,
1502 + .11006, .23672, .30538,
1503 + .38502, .21104, 3.13077, .27581, .15746,
1504 + .11235, .23760, .30575 /
1505 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
1506 + .38643, .21134, 3.10129, .27606, .15894,
1507 + .11449, .23834, .30596,
1508 + .38777, .21161, 3.07149, .27622, .16031,
1509 + .11651, .23898, .30609,
1510 + .38898, .21182, 3.04230, .27629, .16152,
1511 + .11832, .23950, .30612,
1512 + .39004, .21199, 3.01356, .27625, .16255,
1513 + .11991, .23988, .30605,
1514 + .39111, .21215, 2.98497, .27621, .16359,
1515 + .12152, .24025, .30596 /
1516 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
1517 + .28699, .17936, .73496, .14481, .00000,
1518 + .00000, .08430, .17256,
1519 + .29626, .18358, .99215, .14984, .00000,
1520 + .00000, .09078, .17832,
1521 + .30884, .18918, 1.33135, .15725, .00082,
1522 + .00000, .10019, .18663,
1523 + .31724, .19285, 1.54277, .16250, .00926,
1524 + .00000, .10680, .19245,
1525 + .32549, .19637, 1.74041, .16783, .01730,
1526 + .00000, .11351, .19831,
1527 + .33211, .19915, 1.88953, .17223, .02356,
1528 + .00000, .11904, .20311,
1529 + .33810, .20161, 2.01760, .17628, .02942,
1530 + .00000, .12412, .20750,
1531 + .34410, .20403, 2.13916, .18038, .03549,
1532 + .00000, .12929, .21192 /
1533 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
1534 + .34905, .20600, 2.23414, .18379, .04064,
1535 + .00000, .13360, .21558,
1536 + .35358, .20776, 2.31476, .18692, .04535,
1537 + .00000, .13756, .21892,
1538 + .35700, .20906, 2.37108, .18926, .04892,
1539 + .00000, .14055, .22142,
1540 + .36388, .21163, 2.47367, .19398, .05628,
1541 + .00003, .14659, .22643,
1542 + .36938, .21362, 2.53907, .19769, .06224,
1543 + .00555, .15140, .23034,
1544 + .37507, .21562, 2.59132, .20145, .06846,
1545 + .01468, .15633, .23426,
1546 + .38054, .21745, 2.63033, .20493, .07446,
1547 + .02232, .16098, .23788,
1548 + .38512, .21892, 2.65341, .20771, .07949,
1549 + .02881, .16479, .24076 /
1550 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
1551 + .38940, .22023, 2.66640, .21020, .08420,
1552 + .03491, .16827, .24330,
1553 + .39270, .22120, 2.66988, .21201, .08781,
1554 + .03959, .17087, .24512,
1555 + .39638, .22221, 2.66594, .21389, .09184,
1556 + .04482, .17369, .24700,
1557 + .39940, .22299, 2.65679, .21531, .09513,
1558 + .04918, .17592, .24841,
1559 + .40201, .22362, 2.64509, .21647, .09798,
1560 + .05301, .17779, .24953,
1561 + .40502, .22428, 2.62366, .21762, .10124,
1562 + .05741, .17983, .25064,
1563 + .40759, .22477, 2.59861, .21844, .10400,
1564 + .06119, .18145, .25138,
1565 + .40981, .22515, 2.57234, .21904, .10639,
1566 + .06454, .18278, .25189 /
1567 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
1568 + .41187, .22545, 2.54378, .21949, .10860,
1569 + .06768, .18394, .25222,
1570 + .41363, .22564, 2.51210, .21968, .11048,
1571 + .07040, .18480, .25230,
1572 + .41520, .22576, 2.48129, .21978, .11215,
1573 + .07288, .18551, .25227,
1574 + .41653, .22581, 2.45057, .21973, .11355,
1575 + .07502, .18603, .25210,
1576 + .41774, .22580, 2.41852, .21956, .11483,
1577 + .07701, .18643, .25181,
1578 + .41884, .22574, 2.38645, .21931, .11599,
1579 + .07887, .18672, .25143,
1580 + .41975, .22563, 2.35470, .21895, .11695,
1581 + .08045, .18686, .25093,
1582 + .42055, .22550, 2.32464, .21857, .11780,
1583 + .08190, .18695, .25041 /
1584 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
1585 + .42125, .22532, 2.29350, .21808, .11853,
1586 + .08322, .18692, .24978,
1587 + .42187, .22512, 2.26263, .21754, .11920,
1588 + .08444, .18683, .24910,
1589 + .42239, .22489, 2.23300, .21698, .11976,
1590 + .08554, .18669, .24840,
1591 + .42280, .22463, 2.20444, .21637, .12020,
1592 + .08647, .18647, .24765,
1593 + .42321, .22437, 2.17615, .21576, .12065,
1594 + .08741, .18625, .24691 /
1595 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
1596 + .37712, .22979, .92855, .12683, .00000,
1597 + .00000, .07751, .16595,
1598 + .38600, .23295, 1.12210, .13033, .00000,
1599 + .00000, .08248, .16970,
1600 + .39775, .23695, 1.36186, .13517, .00069,
1601 + .00000, .08935, .17481,
1602 + .40535, .23942, 1.50001, .13839, .00750,
1603 + .00000, .09393, .17814,
1604 + .41261, .24164, 1.62134, .14151, .01380,
1605 + .00000, .09842, .18130,
1606 + .41829, .24328, 1.70687, .14394, .01852,
1607 + .00000, .10196, .18373,
1608 + .42329, .24465, 1.77571, .14608, .02284,
1609 + .00000, .10511, .18583,
1610 + .42817, .24592, 1.83658, .14815, .02720,
1611 + .00000, .10820, .18782 /
1612 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
1613 + .43210, .24688, 1.88072, .14979, .03082,
1614 + .00000, .11071, .18937,
1615 + .43560, .24766, 1.91484, .15122, .03406,
1616 + .00000, .11294, .19070,
1617 + .43816, .24819, 1.93625, .15224, .03647,
1618 + .00000, .11457, .19161,
1619 + .44316, .24911, 1.96887, .15417, .04132,
1620 + .00003, .11774, .19329,
1621 + .44697, .24968, 1.98045, .15553, .04514,
1622 + .00380, .12013, .19440,
1623 + .45072, .25009, 1.97933, .15673, .04901,
1624 + .00996, .12242, .19531,
1625 + .45410, .25028, 1.96901, .15766, .05262,
1626 + .01497, .12443, .19590,
1627 + .45673, .25028, 1.95262, .15824, .05556,
1628 + .01915, .12595, .19614 /
1629 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
1630 + .45901, .25013, 1.93057, .15860, .05822,
1631 + .02298, .12721, .19614,
1632 + .46062, .24988, 1.90857, .15873, .06020,
1633 + .02586, .12805, .19594,
1634 + .46222, .24945, 1.87804, .15867, .06234,
1635 + .02902, .12883, .19549,
1636 + .46339, .24895, 1.84860, .15847, .06403,
1637 + .03160, .12934, .19494,
1638 + .46430, .24843, 1.82048, .15820, .06545,
1639 + .03384, .12970, .19433,
1640 + .46513, .24766, 1.78217, .15766, .06701,
1641 + .03634, .12994, .19336,
1642 + .46564, .24681, 1.74449, .15700, .06827,
1643 + .03844, .12997, .19229,
1644 + .46594, .24595, 1.70865, .15629, .06931,
1645 + .04026, .12989, .19118 /
1646 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
1647 + .46608, .24504, 1.67251, .15550, .07022,
1648 + .04194, .12972, .19000,
1649 + .46596, .24404, 1.63601, .15459, .07094,
1650 + .04335, .12938, .18869,
1651 + .46574, .24307, 1.60184, .15368, .07154,
1652 + .04462, .12900, .18741,
1653 + .46538, .24210, 1.56947, .15277, .07201,
1654 + .04568, .12857, .18613,
1655 + .46491, .24108, 1.53698, .15179, .07240,
1656 + .04665, .12806, .18478,
1657 + .46436, .24005, 1.50538, .15078, .07272,
1658 + .04752, .12751, .18343,
1659 + .46370, .23902, 1.47527, .14977, .07294,
1660 + .04825, .12692, .18207,
1661 + .46303, .23804, 1.44728, .14880, .07311,
1662 + .04889, .12633, .18078 /
1663 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
1664 + .46224, .23700, 1.41912, .14777, .07322,
1665 + .04946, .12569, .17943,
1666 + .46140, .23596, 1.39172, .14673, .07328,
1667 + .04998, .12502, .17807,
1668 + .46054, .23495, 1.36590, .14572, .07331,
1669 + .05042, .12436, .17675,
1670 + .45964, .23396, 1.34156, .14473, .07328,
1671 + .05078, .12369, .17547,
1672 + .45874, .23297, 1.31758, .14374, .07325,
1673 + .05115, .12302, .17419 /
1674 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
1675 + .45554, .26860, 1.07185, .11076, .00000,
1676 + .00000, .07087, .15779,
1677 + .46293, .27025, 1.20777, .11311, .00000,
1678 + .00000, .07461, .15981,
1679 + .47232, .27206, 1.36482, .11616, .00058,
1680 + .00000, .07952, .16231,
1681 + .47812, .27296, 1.44644, .11803, .00612,
1682 + .00000, .08264, .16373,
1683 + .48343, .27357, 1.51211, .11972, .01112,
1684 + .00000, .08557, .16491,
1685 + .48739, .27385, 1.55346, .12094, .01477,
1686 + .00000, .08779, .16566,
1687 + .49072, .27393, 1.58281, .12192, .01804,
1688 + .00000, .08968, .16618,
1689 + .49380, .27385, 1.60473, .12278, .02127,
1690 + .00000, .09147, .16654 /
1691 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
1692 + .49616, .27365, 1.61737, .12341, .02391,
1693 + .00000, .09286, .16671,
1694 + .49815, .27333, 1.62365, .12387, .02623,
1695 + .00000, .09404, .16674,
1696 + .49949, .27300, 1.62479, .12416, .02793,
1697 + .00000, .09486, .16667,
1698 + .50189, .27214, 1.61836, .12456, .03128,
1699 + .00002, .09635, .16632,
1700 + .50346, .27120, 1.60159, .12469, .03386,
1701 + .00274, .09738, .16579,
1702 + .50469, .26998, 1.57400, .12461, .03639,
1703 + .00712, .09824, .16494,
1704 + .50545, .26852, 1.54070, .12429, .03869,
1705 + .01062, .09885, .16384,
1706 + .50572, .26706, 1.50720, .12382, .04051,
1707 + .01347, .09918, .16267 /
1708 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
1709 + .50565, .26546, 1.47109, .12320, .04211,
1710 + .01605, .09933, .16133,
1711 + .50533, .26404, 1.43972, .12257, .04326,
1712 + .01795, .09931, .16010,
1713 + .50460, .26222, 1.40038, .12169, .04445,
1714 + .02001, .09913, .15851,
1715 + .50372, .26055, 1.36511, .12082, .04536,
1716 + .02166, .09885, .15701,
1717 + .50277, .25898, 1.33289, .11998, .04610,
1718 + .02307, .09852, .15560,
1719 + .50127, .25689, 1.29149, .11879, .04687,
1720 + .02462, .09798, .15368,
1721 + .49962, .25485, 1.25266, .11758, .04744,
1722 + .02590, .09735, .15181,
1723 + .49792, .25290, 1.21687, .11641, .04788,
1724 + .02698, .09670, .15002 /
1725 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
1726 + .49609, .25093, 1.18176, .11521, .04824,
1727 + .02796, .09600, .14819,
1728 + .49405, .24893, 1.14750, .11396, .04847,
1729 + .02876, .09521, .14634,
1730 + .49206, .24702, 1.11598, .11276, .04865,
1731 + .02946, .09444, .14460,
1732 + .49008, .24518, 1.08676, .11159, .04875,
1733 + .03004, .09368, .14292,
1734 + .48797, .24331, 1.05797, .11040, .04879,
1735 + .03055, .09287, .14121,
1736 + .48584, .24147, 1.03037, .10923, .04880,
1737 + .03100, .09206, .13954,
1738 + .48369, .23969, 1.00454, .10808, .04875,
1739 + .03136, .09125, .13792,
1740 + .48164, .23800, .98077, .10699, .04868,
1741 + .03167, .09047, .13639 /
1742 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
1743 + .47947, .23628, .95721, .10587, .04858,
1744 + .03193, .08966, .13483,
1745 + .47729, .23458, .93452, .10477, .04845,
1746 + .03216, .08885, .13331,
1747 + .47517, .23294, .91336, .10371, .04831,
1748 + .03235, .08807, .13185,
1749 + .47308, .23137, .89364, .10269, .04814,
1750 + .03248, .08730, .13046,
1751 + .47099, .22980, .87428, .10168, .04798,
1752 + .03262, .08655, .12907 /
1753 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
1754 + .52331, .29803, 1.15360, .09635, .00000,
1755 + .00000, .06418, .14770,
1756 + .52844, .29799, 1.23967, .09784, .00000,
1757 + .00000, .06688, .14825,
1758 + .53452, .29738, 1.32955, .09959, .00049,
1759 + .00000, .07026, .14867,
1760 + .53792, .29659, 1.36792, .10054, .00498,
1761 + .00000, .07229, .14863,
1762 + .54071, .29548, 1.39283, .10127, .00896,
1763 + .00000, .07409, .14835,
1764 + .54250, .29432, 1.40317, .10171, .01180,
1765 + .00000, .07538, .14789,
1766 + .54376, .29308, 1.40581, .10197, .01431,
1767 + .00000, .07642, .14730,
1768 + .54468, .29164, 1.40232, .10211, .01675,
1769 + .00000, .07734, .14656 /
1770 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
1771 + .54518, .29029, 1.39512, .10213, .01870,
1772 + .00000, .07800, .14582,
1773 + .54536, .28890, 1.38441, .10204, .02040,
1774 + .00000, .07851, .14502,
1775 + .54530, .28774, 1.37355, .10191, .02162,
1776 + .00000, .07882, .14431,
1777 + .54477, .28515, 1.34501, .10147, .02400,
1778 + .00002, .07930, .14271,
1779 + .54386, .28277, 1.31334, .10093, .02578,
1780 + .00202, .07952, .14118,
1781 + .54236, .28000, 1.27298, .10018, .02749,
1782 + .00523, .07955, .13934,
1783 + .54033, .27701, 1.22960, .09925, .02901,
1784 + .00775, .07939, .13728,
1785 + .53813, .27422, 1.18946, .09829, .03016,
1786 + .00977, .07908, .13532 /
1787 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
1788 + .53562, .27132, 1.14874, .09723, .03114,
1789 + .01157, .07864, .13329,
1790 + .53331, .26887, 1.11498, .09628, .03183,
1791 + .01289, .07820, .13154,
1792 + .53023, .26583, 1.07430, .09506, .03251,
1793 + .01428, .07755, .12939,
1794 + .52732, .26312, 1.03897, .09392, .03301,
1795 + .01539, .07690, .12746,
1796 + .52456, .26063, 1.00740, .09286, .03340,
1797 + .01632, .07627, .12568,
1798 + .52079, .25743, .96798, .09146, .03375,
1799 + .01732, .07539, .12338,
1800 + .51706, .25438, .93193, .09011, .03399,
1801 + .01813, .07449, .12120,
1802 + .51348, .25151, .89929, .08882, .03415,
1803 + .01881, .07363, .11917 /
1804 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
1805 + .50982, .24865, .86777, .08752, .03425,
1806 + .01942, .07274, .11714,
1807 + .50602, .24581, .83765, .08622, .03427,
1808 + .01989, .07181, .11513,
1809 + .50239, .24316, .81024, .08499, .03425,
1810 + .02030, .07093, .11325,
1811 + .49890, .24064, .78516, .08383, .03420,
1812 + .02063, .07008, .11148,
1813 + .49532, .23811, .76073, .08264, .03411,
1814 + .02091, .06921, .10972,
1815 + .49177, .23562, .73752, .08148, .03400,
1816 + .02115, .06836, .10800,
1817 + .48830, .23326, .71606, .08038, .03386,
1818 + .02133, .06752, .10637,
1819 + .48501, .23104, .69643, .07935, .03371,
1820 + .02149, .06673, .10484 /
1821 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
1822 + .48164, .22880, .67718, .07830, .03354,
1823 + .02160, .06592, .10330,
1824 + .47830, .22659, .65878, .07726, .03335,
1825 + .02170, .06512, .10181,
1826 + .47508, .22449, .64173, .07628, .03316,
1827 + .02177, .06436, .10039,
1828 + .47198, .22249, .62595, .07535, .03297,
1829 + .02181, .06363, .09904,
1830 + .46888, .22050, .61051, .07443, .03277,
1831 + .02186, .06291, .09771 /
1832 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
1833 + .59391, .32387, 1.17651, .08074, .00000,
1834 + .00000, .05595, .13295,
1835 + .59559, .32162, 1.21317, .08145, .00000,
1836 + .00000, .05761, .13211,
1837 + .59668, .31797, 1.24013, .08207, .00040,
1838 + .00000, .05954, .13058,
1839 + .59654, .31509, 1.24035, .08226, .00382,
1840 + .00000, .06060, .12926,
1841 + .59572, .31188, 1.23094, .08224, .00682,
1842 + .00000, .06142, .12774,
1843 + .59446, .30902, 1.21629, .08208, .00891,
1844 + .00000, .06193, .12629,
1845 + .59287, .30620, 1.19824, .08181, .01072,
1846 + .00000, .06227, .12484,
1847 + .59085, .30314, 1.17594, .08142, .01245,
1848 + .00000, .06249, .12325 /
1849 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
1850 + .58885, .30045, 1.15466, .08101, .01382,
1851 + .00000, .06258, .12183,
1852 + .58667, .29781, 1.13243, .08056, .01498,
1853 + .00000, .06260, .12040,
1854 + .58478, .29569, 1.11381, .08015, .01581,
1855 + .00000, .06255, .11925,
1856 + .58044, .29114, 1.07194, .07919, .01740,
1857 + .00002, .06230, .11678,
1858 + .57635, .28717, 1.03248, .07826, .01855,
1859 + .00142, .06196, .11460,
1860 + .57144, .28269, .98668, .07712, .01962,
1861 + .00364, .06144, .11214,
1862 + .56596, .27803, .94020, .07587, .02054,
1863 + .00536, .06079, .10953,
1864 + .56076, .27380, .89916, .07468, .02122,
1865 + .00671, .06010, .10716 /
1866 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
1867 + .55532, .26952, .85902, .07342, .02177,
1868 + .00790, .05933, .10478,
1869 + .55064, .26599, .82675, .07235, .02213,
1870 + .00875, .05864, .10282,
1871 + .54479, .26171, .78894, .07103, .02246,
1872 + .00965, .05777, .10042,
1873 + .53952, .25795, .75684, .06984, .02269,
1874 + .01034, .05696, .09833,
1875 + .53465, .25454, .72864, .06876, .02285,
1876 + .01092, .05620, .09645,
1877 + .52831, .25022, .69421, .06736, .02296,
1878 + .01154, .05519, .09407,
1879 + .52226, .24617, .66332, .06603, .02300,
1880 + .01202, .05423, .09186,
1881 + .51657, .24242, .63577, .06479, .02300,
1882 + .01241, .05332, .08982 /
1883 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
1884 + .51087, .23872, .60951, .06356, .02296,
1885 + .01275, .05241, .08782,
1886 + .50515, .23511, .58482, .06235, .02287,
1887 + .01301, .05149, .08588,
1888 + .49977, .23174, .56257, .06122, .02277,
1889 + .01323, .05064, .08408,
1890 + .49466, .22859, .54244, .06017, .02265,
1891 + .01339, .04982, .08241,
1892 + .48952, .22544, .52303, .05911, .02251,
1893 + .01353, .04900, .08077,
1894 + .48448, .22239, .50475, .05808, .02235,
1895 + .01364, .04819, .07918,
1896 + .47965, .21949, .48800, .05711, .02219,
1897 + .01372, .04743, .07768,
1898 + .47512, .21679, .47279, .05620, .02202,
1899 + .01377, .04673, .07628 /
1900 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
1901 + .47050, .21408, .45799, .05529, .02184,
1902 + .01381, .04601, .07489,
1903 + .46597, .21144, .44392, .05441, .02166,
1904 + .01383, .04531, .07355,
1905 + .46164, .20894, .43098, .05358, .02148,
1906 + .01384, .04464, .07229,
1907 + .45753, .20658, .41908, .05279, .02130,
1908 + .01383, .04401, .07110,
1909 + .45343, .20425, .40749, .05201, .02111,
1910 + .01383, .04338, .06993 /
1911 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
1912 + .64964, .33952, 1.13188, .06771, .00000,
1913 + .00000, .04812, .11685,
1914 + .64743, .33515, 1.13348, .06784, .00000,
1915 + .00000, .04902, .11506,
1916 + .64310, .32858, 1.11839, .06772, .00032,
1917 + .00000, .04994, .11231,
1918 + .63919, .32374, 1.09486, .06742, .00292,
1919 + .00000, .05035, .11020,
1920 + .63456, .31860, 1.06526, .06696, .00518,
1921 + .00000, .05055, .10798,
1922 + .63014, .31418, 1.03677, .06646, .00671,
1923 + .00000, .05059, .10599,
1924 + .62563, .30994, 1.00795, .06591, .00803,
1925 + .00000, .05050, .10409,
1926 + .62062, .30546, .97650, .06525, .00927,
1927 + .00000, .05034, .10206 /
1928 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
1929 + .61612, .30158, .94887, .06462, .01024,
1930 + .00000, .05013, .10031,
1931 + .61163, .29785, .92191, .06398, .01105,
1932 + .00000, .04986, .09864,
1933 + .60793, .29490, .90044, .06344, .01162,
1934 + .00000, .04960, .09731,
1935 + .59988, .28869, .85458, .06227, .01269,
1936 + .00002, .04898, .09448,
1937 + .59273, .28339, .81408, .06121, .01345,
1938 + .00101, .04838, .09207,
1939 + .58457, .27752, .76911, .05997, .01415,
1940 + .00258, .04763, .08940,
1941 + .57590, .27149, .72483, .05863, .01471,
1942 + .00377, .04677, .08669,
1943 + .56794, .26611, .68676, .05739, .01511,
1944 + .00470, .04595, .08427 /
1945 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
1946 + .55982, .26077, .65034, .05615, .01542,
1947 + .00550, .04509, .08186,
1948 + .55304, .25638, .62164, .05509, .01561,
1949 + .00608, .04435, .07993,
1950 + .54474, .25116, .58853, .05383, .01576,
1951 + .00666, .04343, .07760,
1952 + .53740, .24660, .56086, .05270, .01585,
1953 + .00711, .04261, .07560,
1954 + .53073, .24249, .53683, .05168, .01590,
1955 + .00749, .04186, .07382,
1956 + .52220, .23736, .50789, .05040, .01591,
1957 + .00787, .04090, .07157,
1958 + .51418, .23258, .48228, .04919, .01587,
1959 + .00816, .03998, .06954,
1960 + .50672, .22821, .45967, .04807, .01580,
1961 + .00840, .03913, .06768 /
1962 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
1963 + .49933, .22394, .43833, .04698, .01571,
1964 + .00860, .03830, .06587,
1965 + .49203, .21979, .41848, .04594, .01560,
1966 + .00874, .03747, .06412,
1967 + .48523, .21595, .40074, .04496, .01548,
1968 + .00886, .03671, .06252,
1969 + .47885, .21238, .38483, .04403, .01535,
1970 + .00894, .03598, .06105,
1971 + .47246, .20884, .36960, .04313, .01520,
1972 + .00900, .03526, .05961,
1973 + .46624, .20542, .35534, .04226, .01505,
1974 + .00905, .03457, .05822,
1975 + .46034, .20221, .34236, .04144, .01490,
1976 + .00908, .03392, .05692,
1977 + .45482, .19923, .33061, .04068, .01475,
1978 + .00909, .03332, .05572 /
1979 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
1980 + .44927, .19624, .31925, .03991, .01459,
1981 + .00909, .03271, .05454,
1982 + .44386, .19333, .30852, .03917, .01443,
1983 + .00909, .03211, .05340,
1984 + .43872, .19060, .29869, .03847, .01428,
1985 + .00907, .03156, .05234,
1986 + .43386, .18804, .28972, .03783, .01413,
1987 + .00905, .03103, .05133,
1988 + .42903, .18551, .28099, .03719, .01398,
1989 + .00902, .03052, .05034 /
1990 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
1991 + .69135, .34671, 1.04411, .05698, .00000,
1992 + .00000, .04089, .10041,
1993 + .68511, .34040, 1.02322, .05672, .00000,
1994 + .00000, .04125, .09807,
1995 + .67513, .33127, .98290, .05615, .00025,
1996 + .00000, .04148, .09463,
1997 + .66740, .32472, .94640, .05557, .00223,
1998 + .00000, .04143, .09215,
1999 + .65900, .31790, .90667, .05486, .00392,
2000 + .00000, .04126, .08957,
2001 + .65147, .31215, .87194, .05419, .00507,
2002 + .00000, .04100, .08737,
2003 + .64414, .30670, .83883, .05349, .00603,
2004 + .00000, .04068, .08530,
2005 + .63627, .30101, .80430, .05270, .00693,
2006 + .00000, .04029, .08314 /
2007 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
2008 + .62939, .29617, .77502, .05199, .00762,
2009 + .00000, .03991, .08131,
2010 + .62266, .29156, .74732, .05129, .00820,
2011 + .00000, .03951, .07957,
2012 + .61729, .28794, .72579, .05070, .00859,
2013 + .00000, .03917, .07821,
2014 + .60583, .28038, .68106, .04946, .00933,
2015 + .00001, .03840, .07537,
2016 + .59592, .27402, .64295, .04839, .00984,
2017 + .00073, .03769, .07300,
2018 + .58484, .26705, .60175, .04715, .01029,
2019 + .00185, .03685, .07043,
2020 + .57333, .25998, .56197, .04585, .01065,
2021 + .00269, .03596, .06783,
2022 + .56293, .25375, .52837, .04468, .01088,
2023 + .00334, .03513, .06556 /
2024 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
2025 + .55254, .24761, .49672, .04350, .01106,
2026 + .00390, .03428, .06334,
2027 + .54394, .24262, .47204, .04253, .01115,
2028 + .00428, .03358, .06155,
2029 + .53356, .23672, .44396, .04139, .01122,
2030 + .00468, .03272, .05943,
2031 + .52452, .23160, .42076, .04037, .01124,
2032 + .00498, .03195, .05764,
2033 + .51637, .22701, .40078, .03943, .01123,
2034 + .00522, .03126, .05606,
2035 + .50603, .22134, .37697, .03830, .01119,
2036 + .00547, .03040, .05408,
2037 + .49642, .21612, .35610, .03725, .01112,
2038 + .00565, .02959, .05229,
2039 + .48756, .21136, .33782, .03629, .01104,
2040 + .00579, .02884, .05067 /
2041 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
2042 + .47885, .20672, .32070, .03535, .01094,
2043 + .00591, .02811, .04912,
2044 + .47037, .20224, .30488, .03443, .01082,
2045 + .00599, .02741, .04763,
2046 + .46250, .19812, .29082, .03359, .01071,
2047 + .00605, .02676, .04626,
2048 + .45515, .19432, .27831, .03282, .01059,
2049 + .00610, .02616, .04501,
2050 + .44784, .19057, .26637, .03206, .01046,
2051 + .00612, .02556, .04379,
2052 + .44078, .18695, .25525, .03134, .01033,
2053 + .00614, .02497, .04263,
2054 + .43411, .18356, .24520, .03065, .01020,
2055 + .00614, .02443, .04156,
2056 + .42792, .18043, .23615, .03000, .01008,
2057 + .00614, .02393, .04057 /
2058 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
2059 + .42170, .17731, .22744, .02937, .00995,
2060 + .00613, .02343, .03960,
2061 + .41564, .17430, .21923, .02877, .00982,
2062 + .00611, .02295, .03866,
2063 + .40994, .17147, .21173, .02820, .00969,
2064 + .00609, .02250, .03779,
2065 + .40456, .16881, .20491, .02767, .00957,
2066 + .00606, .02207, .03698,
2067 + .39924, .16619, .19829, .02715, .00945,
2068 + .00603, .02166, .03618 /
2069 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
2070 + .71993, .34692, .93434, .04815, .00000,
2071 + .00000, .03435, .08445,
2072 + .70968, .33892, .90079, .04765, .00000,
2073 + .00000, .03435, .08188,
2074 + .69429, .32752, .84761, .04675, .00020,
2075 + .00000, .03416, .07822,
2076 + .68291, .31949, .80560, .04600, .00170,
2077 + .00000, .03386, .07566,
2078 + .67089, .31130, .76236, .04515, .00298,
2079 + .00000, .03347, .07304,
2080 + .66048, .30442, .72617, .04438, .00383,
2081 + .00000, .03307, .07083,
2082 + .65053, .29797, .69270, .04362, .00454,
2083 + .00000, .03263, .06880,
2084 + .64003, .29132, .65864, .04278, .00520,
2085 + .00000, .03215, .06671 /
2086 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
2087 + .63098, .28570, .63032, .04204, .00570,
2088 + .00000, .03171, .06495,
2089 + .62230, .28036, .60401, .04131, .00611,
2090 + .00000, .03125, .06331,
2091 + .61542, .27622, .58388, .04074, .00639,
2092 + .00000, .03087, .06203,
2093 + .60092, .26765, .54274, .03952, .00690,
2094 + .00001, .03006, .05938,
2095 + .58859, .26050, .50848, .03847, .00724,
2096 + .00053, .02935, .05720,
2097 + .57498, .25274, .47213, .03730, .00754,
2098 + .00134, .02853, .05486,
2099 + .56105, .24495, .43753, .03610, .00776,
2100 + .00194, .02768, .05252,
2101 + .54862, .23811, .40865, .03502, .00790,
2102 + .00240, .02691, .05049 /
2103 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
2104 + .53631, .23143, .38175, .03395, .00799,
2105 + .00279, .02612, .04854,
2106 + .52627, .22604, .36100, .03307, .00803,
2107 + .00305, .02549, .04698,
2108 + .51425, .21969, .33759, .03204, .00805,
2109 + .00332, .02472, .04515,
2110 + .50383, .21423, .31840, .03114, .00804,
2111 + .00352, .02405, .04360,
2112 + .49448, .20938, .30198, .03034, .00801,
2113 + .00368, .02345, .04223,
2114 + .48275, .20341, .28258, .02935, .00795,
2115 + .00384, .02270, .04055,
2116 + .47197, .19793, .26568, .02843, .00787,
2117 + .00396, .02201, .03905,
2118 + .46209, .19295, .25098, .02760, .00779,
2119 + .00404, .02138, .03770 /
2120 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
2121 + .45244, .18812, .23730, .02680, .00769,
2122 + .00412, .02076, .03640,
2123 + .44308, .18350, .22477, .02602, .00759,
2124 + .00416, .02018, .03517,
2125 + .43443, .17926, .21368, .02532, .00749,
2126 + .00419, .01964, .03405,
2127 + .42639, .17536, .20383, .02467, .00739,
2128 + .00421, .01913, .03304,
2129 + .41846, .17153, .19451, .02404, .00728,
2130 + .00422, .01863, .03205,
2131 + .41082, .16788, .18587, .02343, .00717,
2132 + .00422, .01815, .03111,
2133 + .40365, .16445, .17807, .02286, .00707,
2134 + .00421, .01772, .03023,
2135 + .39701, .16128, .17106, .02233, .00697,
2136 + .00420, .01732, .02943 /
2137 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
2138 + .39037, .15816, .16435, .02182, .00686,
2139 + .00418, .01692, .02864,
2140 + .38392, .15515, .15804, .02134, .00676,
2141 + .00416, .01653, .02788,
2142 + .37788, .15232, .15230, .02087, .00666,
2143 + .00414, .01617, .02719,
2144 + .37223, .14966, .14709, .02042, .00656,
2145 + .00412, .01584, .02656,
2146 + .36666, .14704, .14204, .01998, .00647,
2147 + .00409, .01551, .02594 /
2148 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
2149 + .73641, .34135, .81852, .04085, .00000,
2150 + .00000, .02856, .06959,
2151 + .72238, .33190, .77927, .04016, .00000,
2152 + .00000, .02836, .06705,
2153 + .70189, .31864, .72153, .03907, .00016,
2154 + .00000, .02790, .06349,
2155 + .68715, .30940, .67873, .03822, .00130,
2156 + .00000, .02749, .06103,
2157 + .67185, .30008, .63598, .03729, .00227,
2158 + .00000, .02700, .05856,
2159 + .65883, .29232, .60109, .03647, .00291,
2160 + .00000, .02652, .05653,
2161 + .64652, .28513, .56938, .03568, .00343,
2162 + .00000, .02605, .05465,
2163 + .63369, .27776, .53762, .03484, .00391,
2164 + .00000, .02553, .05273 /
2165 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
2166 + .62274, .27156, .51156, .03412, .00427,
2167 + .00000, .02508, .05113,
2168 + .61231, .26574, .48765, .03343, .00457,
2169 + .00000, .02462, .04964,
2170 + .60413, .26121, .46950, .03287, .00477,
2171 + .00000, .02426, .04850,
2172 + .58706, .25192, .43288, .03171, .00512,
2173 + .00001, .02348, .04616,
2174 + .57271, .24423, .40292, .03073, .00536,
2175 + .00039, .02281, .04423,
2176 + .55703, .23595, .37154, .02964, .00555,
2177 + .00098, .02206, .04220,
2178 + .54112, .22768, .34195, .02855, .00569,
2179 + .00141, .02128, .04019,
2180 + .52709, .22048, .31750, .02758, .00577,
2181 + .00173, .02059, .03845 /
2182 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
2183 + .51330, .21350, .29495, .02662, .00581,
2184 + .00201, .01991, .03678,
2185 + .50210, .20789, .27766, .02585, .00583,
2186 + .00219, .01935, .03546,
2187 + .48883, .20132, .25831, .02494, .00581,
2188 + .00238, .01868, .03393,
2189 + .47738, .19571, .24255, .02417, .00579,
2190 + .00251, .01811, .03265,
2191 + .46717, .19074, .22915, .02348, .00575,
2192 + .00262, .01759, .03152,
2193 + .45453, .18461, .21340, .02258, .00569,
2194 + .00272, .01698, .03014,
2195 + .44286, .17908, .19980, .02183, .00561,
2196 + .00279, .01639, .02891,
2197 + .43224, .17406, .18803, .02113, .00554,
2198 + .00285, .01586, .02781 /
2199 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
2200 + .42197, .16920, .17711, .02043, .00546,
2201 + .00289, .01538, .02677,
2202 + .41206, .16458, .16718, .01978, .00537,
2203 + .00291, .01489, .02576,
2204 + .40294, .16036, .15841, .01919, .00528,
2205 + .00293, .01444, .02486,
2206 + .39451, .15648, .15067, .01866, .00520,
2207 + .00293, .01403, .02405,
2208 + .38622, .15268, .14337, .01813, .00511,
2209 + .00293, .01363, .02326,
2210 + .37827, .14906, .13661, .01761, .00502,
2211 + .00293, .01326, .02252,
2212 + .37082, .14569, .13056, .01714, .00494,
2213 + .00292, .01290, .02183,
2214 + .36394, .14260, .12513, .01671, .00486,
2215 + .00290, .01257, .02119 /
2216 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
2217 + .35710, .13954, .11995, .01629, .00477,
2218 + .00289, .01225, .02059,
2219 + .35048, .13659, .11509, .01589, .00469,
2220 + .00287, .01194, .02001,
2221 + .34428, .13384, .11069, .01551, .00462,
2222 + .00285, .01166, .01948,
2223 + .33850, .13127, .10671, .01516, .00454,
2224 + .00282, .01139, .01898,
2225 + .33280, .12875, .10286, .01481, .00447,
2226 + .00280, .01113, .01850 /
2227 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
2228 + .74190, .33102, .70729, .03467, .00000,
2229 + .00000, .02351, .05628,
2230 + .72432, .32048, .66683, .03390, .00000,
2231 + .00000, .02316, .05390,
2232 + .69916, .30579, .60957, .03272, .00013,
2233 + .00000, .02258, .05062,
2234 + .68135, .29569, .56864, .03186, .00100,
2235 + .00000, .02211, .04835,
2236 + .66316, .28554, .52849, .03092, .00173,
2237 + .00000, .02157, .04615,
2238 + .64787, .27715, .49624, .03009, .00221,
2239 + .00000, .02109, .04435,
2240 + .63354, .26943, .46726, .02932, .00260,
2241 + .00000, .02062, .04270,
2242 + .61874, .26155, .43854, .02851, .00296,
2243 + .00000, .02012, .04101 /
2244 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
2245 + .60620, .25496, .41520, .02782, .00322,
2246 + .00000, .01969, .03962,
2247 + .59434, .24879, .39395, .02716, .00343,
2248 + .00000, .01926, .03834,
2249 + .58509, .24404, .37795, .02664, .00357,
2250 + .00000, .01892, .03735,
2251 + .56597, .23429, .34596, .02556, .00382,
2252 + .00001, .01822, .03534,
2253 + .55003, .22627, .32012, .02465, .00398,
2254 + .00028, .01762, .03373,
2255 + .53270, .21773, .29330, .02368, .00411,
2256 + .00071, .01694, .03200,
2257 + .51529, .20927, .26825, .02270, .00419,
2258 + .00103, .01627, .03032,
2259 + .50006, .20191, .24776, .02183, .00423,
2260 + .00126, .01568, .02889 /
2261 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
2262 + .48518, .19481, .22896, .02100, .00425,
2263 + .00145, .01510, .02751,
2264 + .47320, .18916, .21465, .02031, .00425,
2265 + .00158, .01462, .02644,
2266 + .45907, .18253, .19871, .01951, .00422,
2267 + .00171, .01406, .02519,
2268 + .44697, .17690, .18581, .01883, .00419,
2269 + .00180, .01357, .02416,
2270 + .43621, .17194, .17488, .01822, .00415,
2271 + .00187, .01314, .02326,
2272 + .42290, .16587, .16213, .01751, .00409,
2273 + .00194, .01263, .02213,
2274 + .41077, .16040, .15118, .01685, .00403,
2275 + .00199, .01216, .02114,
2276 + .39977, .15546, .14176, .01626, .00396,
2277 + .00202, .01174, .02026 /
2278 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
2279 + .38912, .15070, .13307, .01568, .00389,
2280 + .00204, .01134, .01944,
2281 + .37892, .14619, .12519, .01514, .00382,
2282 + .00205, .01094, .01866,
2283 + .36958, .14208, .11827, .01464, .00375,
2284 + .00206, .01058, .01796,
2285 + .36100, .13831, .11217, .01419, .00368,
2286 + .00206, .01026, .01732,
2287 + .35258, .13464, .10645, .01374, .00361,
2288 + .00205, .00994, .01672,
2289 + .34453, .13114, .10117, .01332, .00354,
2290 + .00204, .00964, .01615,
2291 + .33701, .12791, .09646, .01293, .00347,
2292 + .00203, .00935, .01562,
2293 + .33008, .12496, .09226, .01258, .00341,
2294 + .00202, .00909, .01512 /
2295 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
2296 + .32322, .12204, .08824, .01224, .00335,
2297 + .00200, .00884, .01465,
2298 + .31660, .11923, .08448, .01192, .00328,
2299 + .00199, .00861, .01420,
2300 + .31043, .11662, .08109, .01162, .00322,
2301 + .00197, .00839, .01379,
2302 + .30468, .11418, .07804, .01133, .00317,
2303 + .00195, .00818, .01341,
2304 + .29901, .11179, .07510, .01104, .00311,
2305 + .00193, .00798, .01304 /
2306 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
2307 + .73701, .31733, .60675, .02970, .00000,
2308 + .00000, .01895, .04444,
2309 + .71639, .30588, .56757, .02884, .00000,
2310 + .00000, .01858, .04236,
2311 + .68723, .29012, .51331, .02759, .00010,
2312 + .00000, .01800, .03949,
2313 + .66691, .27933, .47544, .02667, .00077,
2314 + .00000, .01752, .03759,
2315 + .64630, .26861, .43872, .02573, .00133,
2316 + .00000, .01703, .03568,
2317 + .62911, .25983, .40955, .02494, .00169,
2318 + .00000, .01658, .03414,
2319 + .61315, .25177, .38356, .02419, .00198,
2320 + .00000, .01614, .03274,
2321 + .59676, .24358, .35802, .02341, .00225,
2322 + .00000, .01568, .03135 /
2323 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
2324 + .58296, .23677, .33741, .02275, .00244,
2325 + .00000, .01529, .03020,
2326 + .57001, .23041, .31876, .02212, .00259,
2327 + .00000, .01491, .02913,
2328 + .55996, .22554, .30481, .02164, .00269,
2329 + .00000, .01462, .02830,
2330 + .53923, .21560, .27712, .02066, .00286,
2331 + .00001, .01401, .02665,
2332 + .52208, .20748, .25497, .01983, .00297,
2333 + .00021, .01349, .02532,
2334 + .50364, .19885, .23220, .01894, .00305,
2335 + .00053, .01292, .02392,
2336 + .48521, .19034, .21109, .01806, .00310,
2337 + .00076, .01235, .02256,
2338 + .46917, .18300, .19393, .01730, .00312,
2339 + .00092, .01183, .02142 /
2340 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
2341 + .45360, .17597, .17828, .01657, .00312,
2342 + .00106, .01135, .02031,
2343 + .44116, .17035, .16645, .01597, .00311,
2344 + .00115, .01095, .01945,
2345 + .42650, .16385, .15336, .01528, .00308,
2346 + .00124, .01051, .01847,
2347 + .41401, .15835, .14283, .01470, .00304,
2348 + .00130, .01012, .01764,
2349 + .40298, .15351, .13396, .01419, .00301,
2350 + .00135, .00976, .01692,
2351 + .38938, .14762, .12366, .01357, .00295,
2352 + .00139, .00935, .01606,
2353 + .37707, .14229, .11484, .01301, .00290,
2354 + .00142, .00897, .01530,
2355 + .36595, .13752, .10730, .01250, .00284,
2356 + .00144, .00862, .01462 /
2357 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
2358 + .35521, .13299, .10037, .01203, .00279,
2359 + .00145, .00830, .01395,
2360 + .34498, .12866, .09412, .01158, .00273,
2361 + .00145, .00799, .01336,
2362 + .33564, .12473, .08866, .01117, .00267,
2363 + .00145, .00771, .01282,
2364 + .32708, .12115, .08388, .01079, .00261,
2365 + .00145, .00745, .01234,
2366 + .31872, .11767, .07938, .01043, .00256,
2367 + .00144, .00719, .01188,
2368 + .31073, .11437, .07524, .01009, .00250,
2369 + .00143, .00696, .01144,
2370 + .30333, .11131, .07157, .00977, .00245,
2371 + .00142, .00674, .01104,
2372 + .29653, .10852, .06830, .00947, .00240,
2373 + .00141, .00654, .01068 /
2374 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
2375 + .28979, .10577, .06520, .00920, .00235,
2376 + .00140, .00635, .01032,
2377 + .28329, .10314, .06232, .00894, .00230,
2378 + .00138, .00617, .00999,
2379 + .27726, .10070, .05971, .00870, .00226,
2380 + .00137, .00599, .00968,
2381 + .27166, .09844, .05735, .00846, .00221,
2382 + .00135, .00583, .00939,
2383 + .26616, .09623, .05508, .00823, .00217,
2384 + .00134, .00567, .00911 /
2385 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
2386 + .72380, .30026, .51888, .02496, .00000,
2387 + .00000, .01531, .03467,
2388 + .70048, .28825, .48211, .02411, .00000,
2389 + .00000, .01493, .03288,
2390 + .66789, .27183, .43188, .02291, .00008,
2391 + .00000, .01435, .03043,
2392 + .64538, .26072, .39735, .02204, .00059,
2393 + .00000, .01389, .02882,
2394 + .62280, .24969, .36424, .02115, .00102,
2395 + .00000, .01342, .02724,
2396 + .60411, .24069, .33814, .02038, .00129,
2397 + .00000, .01300, .02599,
2398 + .58685, .23250, .31509, .01969, .00150,
2399 + .00000, .01262, .02482,
2400 + .56921, .22424, .29254, .01900, .00170,
2401 + .00000, .01221, .02365 /
2402 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
2403 + .55443, .21739, .27445, .01842, .00183,
2404 + .00000, .01186, .02269,
2405 + .54063, .21102, .25819, .01786, .00194,
2406 + .00000, .01153, .02183,
2407 + .53000, .20611, .24608, .01742, .00201,
2408 + .00000, .01127, .02118,
2409 + .50819, .19619, .22221, .01653, .00213,
2410 + .00001, .01074, .01985,
2411 + .49022, .18817, .20328, .01581, .00221,
2412 + .00016, .01030, .01876,
2413 + .47104, .17964, .18399, .01502, .00226,
2414 + .00039, .00982, .01765,
2415 + .45204, .17127, .16623, .01424, .00228,
2416 + .00055, .00933, .01660,
2417 + .43556, .16412, .15190, .01358, .00229,
2418 + .00067, .00891, .01569 /
2419 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
2420 + .41962, .15728, .13894, .01297, .00228,
2421 + .00077, .00852, .01480,
2422 + .40695, .15183, .12920, .01245, .00226,
2423 + .00083, .00820, .01416,
2424 + .39210, .14559, .11847, .01188, .00223,
2425 + .00089, .00783, .01337,
2426 + .37950, .14031, .10988, .01141, .00220,
2427 + .00093, .00751, .01272,
2428 + .36841, .13567, .10267, .01099, .00217,
2429 + .00096, .00722, .01217,
2430 + .35489, .13002, .09437, .01043, .00212,
2431 + .00099, .00689, .01152,
2432 + .34261, .12498, .08730, .00997, .00208,
2433 + .00101, .00658, .01094,
2434 + .33157, .12047, .08127, .00956, .00203,
2435 + .00102, .00631, .01043 /
2436 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
2437 + .32098, .11616, .07575, .00916, .00199,
2438 + .00102, .00605, .00993,
2439 + .31090, .11211, .07082, .00880, .00194,
2440 + .00102, .00581, .00948,
2441 + .30175, .10844, .06651, .00847, .00189,
2442 + .00102, .00560, .00906,
2443 + .29342, .10508, .06275, .00816, .00185,
2444 + .00102, .00541, .00869,
2445 + .28527, .10184, .05924, .00787, .00181,
2446 + .00101, .00521, .00834,
2447 + .27751, .09878, .05604, .00760, .00176,
2448 + .00100, .00502, .00801,
2449 + .27033, .09595, .05318, .00734, .00172,
2450 + .00099, .00484, .00771,
2451 + .26375, .09337, .05063, .00711, .00169,
2452 + .00098, .00469, .00744 /
2453 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
2454 + .25727, .09084, .04823, .00688, .00165,
2455 + .00097, .00454, .00718,
2456 + .25106, .08841, .04601, .00667, .00161,
2457 + .00096, .00440, .00694,
2458 + .24528, .08616, .04400, .00647, .00158,
2459 + .00095, .00427, .00671,
2460 + .23992, .08409, .04219, .00629, .00154,
2461 + .00093, .00415, .00651,
2462 + .23466, .08206, .04046, .00611, .00151,
2463 + .00092, .00404, .00630 /
2464 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
2465 + .70264, .28125, .44415, .02097, .00000,
2466 + .00000, .01217, .02646,
2467 + .67714, .26894, .40999, .02014, .00000,
2468 + .00000, .01181, .02498,
2469 + .64187, .25218, .36395, .01896, .00007,
2470 + .00000, .01125, .02301,
2471 + .61775, .24088, .33269, .01813, .00045,
2472 + .00000, .01086, .02171,
2473 + .59367, .22980, .30292, .01730, .00078,
2474 + .00000, .01044, .02043,
2475 + .57386, .22080, .27963, .01661, .00098,
2476 + .00000, .01008, .01941,
2477 + .55568, .21263, .25919, .01599, .00114,
2478 + .00000, .00973, .01848,
2479 + .53724, .20440, .23932, .01535, .00128,
2480 + .00000, .00938, .01755 /
2481 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
2482 + .52186, .19761, .22346, .01481, .00138,
2483 + .00000, .00909, .01680,
2484 + .50753, .19133, .20932, .01432, .00146,
2485 + .00000, .00882, .01611,
2486 + .49651, .18655, .19883, .01394, .00150,
2487 + .00000, .00860, .01558,
2488 + .47407, .17686, .17828, .01315, .00159,
2489 + .00001, .00816, .01454,
2490 + .45572, .16900, .16213, .01251, .00163,
2491 + .00011, .00778, .01372,
2492 + .43616, .16075, .14582, .01184, .00166,
2493 + .00028, .00736, .01287,
2494 + .41692, .15270, .13094, .01117, .00167,
2495 + .00040, .00697, .01204,
2496 + .40036, .14582, .11901, .01061, .00167,
2497 + .00049, .00665, .01132 /
2498 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
2499 + .38443, .13928, .10827, .01008, .00166,
2500 + .00055, .00633, .01064,
2501 + .37178, .13413, .10026, .00965, .00164,
2502 + .00060, .00606, .01014,
2503 + .35706, .12818, .09147, .00917, .00162,
2504 + .00064, .00577, .00954,
2505 + .34462, .12317, .08449, .00876, .00159,
2506 + .00067, .00552, .00907,
2507 + .33371, .11879, .07866, .00839, .00156,
2508 + .00069, .00530, .00867,
2509 + .32037, .11353, .07197, .00798, .00152,
2510 + .00070, .00503, .00814,
2511 + .30839, .10882, .06632, .00760, .00149,
2512 + .00071, .00479, .00770,
2513 + .29766, .10461, .06152, .00726, .00145,
2514 + .00072, .00458, .00732 /
2515 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
2516 + .28740, .10062, .05714, .00694, .00141,
2517 + .00072, .00439, .00694,
2518 + .27768, .09685, .05325, .00663, .00137,
2519 + .00072, .00419, .00662,
2520 + .26886, .09345, .04986, .00636, .00134,
2521 + .00072, .00401, .00633,
2522 + .26082, .09037, .04692, .00613, .00131,
2523 + .00071, .00386, .00605,
2524 + .25303, .08739, .04418, .00589, .00127,
2525 + .00071, .00372, .00580,
2526 + .24564, .08457, .04168, .00565, .00124,
2527 + .00070, .00358, .00556,
2528 + .23880, .08199, .03947, .00546, .00121,
2529 + .00069, .00345, .00534,
2530 + .23254, .07964, .03752, .00529, .00118,
2531 + .00068, .00334, .00514 /
2532 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
2533 + .22640, .07733, .03567, .00511, .00115,
2534 + .00067, .00322, .00495,
2535 + .22053, .07513, .03395, .00492, .00113,
2536 + .00066, .00311, .00478,
2537 + .21508, .07310, .03242, .00476, .00110,
2538 + .00065, .00301, .00462,
2539 + .21003, .07123, .03104, .00463, .00108,
2540 + .00065, .00293, .00445,
2541 + .20508, .06940, .02971, .00449, .00105,
2542 + .00064, .00284, .00430 /
2543 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
2544 + .67498, .26065, .38118, .01735, .00000,
2545 + .00000, .00959, .01988,
2546 + .64782, .24824, .34951, .01656, .00000,
2547 + .00000, .00926, .01870,
2548 + .61051, .23152, .30721, .01549, .00005,
2549 + .00000, .00878, .01710,
2550 + .58522, .22031, .27887, .01472, .00034,
2551 + .00000, .00842, .01608,
2552 + .56013, .20934, .25211, .01399, .00059,
2553 + .00000, .00805, .01508,
2554 + .53964, .20047, .23132, .01336, .00074,
2555 + .00000, .00772, .01430,
2556 + .52090, .19248, .21321, .01279, .00085,
2557 + .00000, .00744, .01357,
2558 + .50198, .18447, .19571, .01222, .00096,
2559 + .00000, .00716, .01283 /
2560 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
2561 + .48629, .17788, .18185, .01175, .00103,
2562 + .00000, .00691, .01224,
2563 + .47172, .17179, .16957, .01131, .00108,
2564 + .00000, .00668, .01173,
2565 + .46056, .16715, .16049, .01098, .00111,
2566 + .00000, .00650, .01133,
2567 + .43789, .15783, .14283, .01032, .00117,
2568 + .00000, .00613, .01051,
2569 + .41945, .15034, .12910, .00979, .00120,
2570 + .00008, .00582, .00987,
2571 + .39994, .14248, .11535, .00922, .00121,
2572 + .00020, .00550, .00921,
2573 + .38081, .13483, .10290, .00867, .00122,
2574 + .00029, .00518, .00859,
2575 + .36442, .12833, .09300, .00820, .00121,
2576 + .00035, .00492, .00806 /
2577 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
2578 + .34876, .12217, .08415, .00775, .00120,
2579 + .00040, .00465, .00757,
2580 + .33639, .11732, .07759, .00739, .00118,
2581 + .00043, .00445, .00719,
2582 + .32200, .11178, .07043, .00701, .00116,
2583 + .00045, .00421, .00672,
2584 + .30992, .10713, .06478, .00668, .00114,
2585 + .00047, .00402, .00636,
2586 + .29937, .10308, .06009, .00638, .00111,
2587 + .00049, .00384, .00607,
2588 + .28649, .09820, .05473, .00604, .00108,
2589 + .00050, .00363, .00569,
2590 + .27499, .09385, .05023, .00572, .00105,
2591 + .00050, .00345, .00536,
2592 + .26473, .08998, .04643, .00544, .00103,
2593 + .00051, .00329, .00508 /
2594 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
2595 + .25493, .08631, .04298, .00518, .00100,
2596 + .00051, .00314, .00482,
2597 + .24568, .08288, .03992, .00495, .00097,
2598 + .00050, .00299, .00457,
2599 + .23732, .07979, .03727, .00474, .00094,
2600 + .00050, .00287, .00435,
2601 + .22974, .07699, .03498, .00453, .00092,
2602 + .00049, .00276, .00416,
2603 + .22237, .07430, .03286, .00436, .00089,
2604 + .00049, .00265, .00398,
2605 + .21538, .07175, .03093, .00420, .00087,
2606 + .00048, .00254, .00381,
2607 + .20897, .06943, .02923, .00404, .00085,
2608 + .00048, .00245, .00366,
2609 + .20313, .06732, .02773, .00388, .00082,
2610 + .00047, .00236, .00351 /
2611 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
2612 + .19741, .06525, .02631, .00374, .00080,
2613 + .00046, .00227, .00337,
2614 + .19194, .06328, .02499, .00361, .00078,
2615 + .00046, .00218, .00324,
2616 + .18688, .06147, .02382, .00349, .00076,
2617 + .00045, .00211, .00312,
2618 + .18220, .05979, .02277, .00337, .00075,
2619 + .00044, .00204, .00302,
2620 + .17763, .05815, .02177, .00326, .00073,
2621 + .00044, .00197, .00291 /
2622 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
2623 + .64178, .23914, .32787, .01413, .00000,
2624 + .00000, .00748, .01469,
2625 + .61346, .22687, .29837, .01341, .00000,
2626 + .00000, .00718, .01378,
2627 + .57486, .21042, .25945, .01243, .00004,
2628 + .00000, .00676, .01255,
2629 + .54888, .19946, .23373, .01176, .00026,
2630 + .00000, .00646, .01176,
2631 + .52321, .18884, .20965, .01113, .00044,
2632 + .00000, .00615, .01095,
2633 + .50245, .18024, .19113, .01056, .00055,
2634 + .00000, .00590, .01035,
2635 + .48350, .17254, .17508, .01009, .00063,
2636 + .00000, .00565, .00980,
2637 + .46441, .16486, .15973, .00961, .00071,
2638 + .00000, .00540, .00925 /
2639 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
2640 + .44866, .15856, .14765, .00920, .00076,
2641 + .00000, .00520, .00880,
2642 + .43413, .15274, .13696, .00882, .00079,
2643 + .00000, .00502, .00840,
2644 + .42303, .14833, .12914, .00854, .00082,
2645 + .00000, .00486, .00811,
2646 + .40058, .13949, .11403, .00797, .00085,
2647 + .00000, .00457, .00750,
2648 + .38238, .13241, .10241, .00754, .00087,
2649 + .00006, .00434, .00699,
2650 + .36322, .12502, .09088, .00708, .00088,
2651 + .00014, .00406, .00651,
2652 + .34456, .11788, .08052, .00660, .00088,
2653 + .00020, .00381, .00605,
2654 + .32863, .11184, .07234, .00621, .00087,
2655 + .00025, .00360, .00565 /
2656 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
2657 + .31344, .10613, .06507, .00586, .00086,
2658 + .00028, .00340, .00528,
2659 + .30150, .10165, .05974, .00555, .00084,
2660 + .00030, .00324, .00503,
2661 + .28769, .09654, .05398, .00525, .00082,
2662 + .00032, .00305, .00469,
2663 + .27612, .09228, .04943, .00499, .00080,
2664 + .00033, .00290, .00442,
2665 + .26604, .08857, .04567, .00475, .00079,
2666 + .00034, .00277, .00420,
2667 + .25384, .08411, .04141, .00447, .00076,
2668 + .00035, .00261, .00393,
2669 + .24295, .08016, .03786, .00422, .00074,
2670 + .00036, .00247, .00369,
2671 + .23325, .07666, .03487, .00401, .00072,
2672 + .00036, .00234, .00349 /
2673 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
2674 + .22401, .07334, .03217, .00381, .00070,
2675 + .00036, .00223, .00330,
2676 + .21534, .07027, .02979, .00363, .00068,
2677 + .00036, .00212, .00312,
2678 + .20752, .06750, .02773, .00346, .00066,
2679 + .00036, .00203, .00296,
2680 + .20046, .06499, .02596, .00330, .00064,
2681 + .00036, .00194, .00283,
2682 + .19363, .06258, .02432, .00315, .00062,
2683 + .00035, .00185, .00270,
2684 + .18717, .06031, .02283, .00302, .00060,
2685 + .00035, .00177, .00257,
2686 + .18124, .05825, .02153, .00290, .00059,
2687 + .00034, .00170, .00246,
2688 + .17583, .05637, .02039, .00280, .00057,
2689 + .00034, .00164, .00236 /
2690 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
2691 + .17054, .05454, .01931, .00270, .00056,
2692 + .00033, .00158, .00226,
2693 + .16551, .05280, .01831, .00261, .00054,
2694 + .00033, .00152, .00218,
2695 + .16086, .05120, .01742, .00252, .00053,
2696 + .00032, .00147, .00209,
2697 + .15657, .04973, .01663, .00244, .00052,
2698 + .00032, .00142, .00201,
2699 + .15239, .04830, .01587, .00236, .00050,
2700 + .00032, .00137, .00193 /
2701 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
2702 + .60405, .21735, .28249, .01145, .00000,
2703 + .00000, .00569, .01059,
2704 + .57510, .20540, .25489, .01080, .00000,
2705 + .00000, .00545, .00991,
2706 + .53590, .18949, .21898, .00993, .00003,
2707 + .00000, .00510, .00897,
2708 + .50972, .17894, .19564, .00932, .00019,
2709 + .00000, .00485, .00839,
2710 + .48398, .16877, .17398, .00877, .00032,
2711 + .00000, .00458, .00781,
2712 + .46321, .16058, .15749, .00830, .00040,
2713 + .00000, .00437, .00736,
2714 + .44439, .15326, .14333, .00789, .00046,
2715 + .00000, .00418, .00693,
2716 + .42552, .14597, .12989, .00747, .00052,
2717 + .00000, .00399, .00653 /
2718 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
2719 + .40999, .14001, .11939, .00713, .00055,
2720 + .00000, .00383, .00622,
2721 + .39570, .13458, .11018, .00683, .00058,
2722 + .00000, .00368, .00590,
2723 + .38482, .13045, .10346, .00659, .00059,
2724 + .00000, .00356, .00567,
2725 + .36288, .12219, .09060, .00613, .00061,
2726 + .00000, .00332, .00522,
2727 + .34522, .11562, .08082, .00577, .00062,
2728 + .00004, .00313, .00486,
2729 + .32672, .10877, .07121, .00538, .00063,
2730 + .00010, .00294, .00450,
2731 + .30877, .10217, .06267, .00500, .00062,
2732 + .00014, .00274, .00417,
2733 + .29350, .09660, .05597, .00469, .00062,
2734 + .00017, .00257, .00390 /
2735 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
2736 + .27907, .09138, .05006, .00437, .00060,
2737 + .00019, .00242, .00365,
2738 + .26767, .08732, .04575, .00417, .00059,
2739 + .00021, .00230, .00342,
2740 + .25464, .08266, .04111, .00392, .00058,
2741 + .00022, .00217, .00317,
2742 + .24372, .07880, .03749, .00371, .00056,
2743 + .00023, .00205, .00299,
2744 + .23421, .07545, .03452, .00353, .00055,
2745 + .00024, .00195, .00285,
2746 + .22281, .07143, .03116, .00329, .00053,
2747 + .00024, .00183, .00266,
2748 + .21263, .06788, .02837, .00310, .00052,
2749 + .00024, .00173, .00250,
2750 + .20361, .06476, .02604, .00294, .00050,
2751 + .00024, .00164, .00235 /
2752 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
2753 + .19505, .06182, .02395, .00278, .00049,
2754 + .00024, .00155, .00220,
2755 + .18702, .05907, .02211, .00265, .00047,
2756 + .00024, .00147, .00208,
2757 + .17981, .05660, .02053, .00252, .00046,
2758 + .00024, .00140, .00198,
2759 + .17332, .05437, .01917, .00240, .00045,
2760 + .00024, .00134, .00189,
2761 + .16706, .05225, .01792, .00229, .00043,
2762 + .00024, .00128, .00180,
2763 + .16116, .05026, .01678, .00219, .00042,
2764 + .00024, .00122, .00171,
2765 + .15575, .04844, .01579, .00210, .00041,
2766 + .00024, .00117, .00163,
2767 + .15083, .04679, .01492, .00202, .00040,
2768 + .00024, .00113, .00156 /
2769 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
2770 + .14602, .04519, .01411, .00194, .00039,
2771 + .00024, .00109, .00149,
2772 + .14145, .04368, .01336, .00187, .00038,
2773 + .00024, .00104, .00142,
2774 + .13724, .04229, .01269, .00180, .00037,
2775 + .00024, .00100, .00137,
2776 + .13338, .04101, .01210, .00173, .00037,
2777 + .00024, .00096, .00132,
2778 + .12962, .03976, .01153, .00166, .00036,
2779 + .00024, .00092, .00127 /
2780 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
2781 + .56296, .19552, .24292, .00906, .00000,
2782 + .00000, .00429, .00753,
2783 + .53386, .18409, .21715, .00851, .00000,
2784 + .00000, .00407, .00701,
2785 + .49473, .16892, .18412, .00776, .00002,
2786 + .00000, .00377, .00634,
2787 + .46867, .15897, .16300, .00728, .00014,
2788 + .00000, .00357, .00587,
2789 + .44330, .14935, .14361, .00680, .00023,
2790 + .00000, .00337, .00545,
2791 + .42285, .14169, .12905, .00643, .00029,
2792 + .00000, .00319, .00512,
2793 + .40445, .13482, .11662, .00608, .00033,
2794 + .00000, .00305, .00480,
2795 + .38610, .12801, .10494, .00573, .00037,
2796 + .00000, .00290, .00450 /
2797 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
2798 + .37103, .12247, .09591, .00546, .00039,
2799 + .00000, .00276, .00426,
2800 + .35718, .11742, .08802, .00522, .00041,
2801 + .00000, .00264, .00405,
2802 + .34668, .11362, .08230, .00503, .00042,
2803 + .00000, .00255, .00389,
2804 + .32560, .10602, .07145, .00465, .00044,
2805 + .00000, .00237, .00357,
2806 + .30870, .09998, .06331, .00435, .00045,
2807 + .00003, .00222, .00332,
2808 + .29106, .09372, .05538, .00405, .00045,
2809 + .00007, .00208, .00306,
2810 + .27401, .08772, .04838, .00376, .00045,
2811 + .00010, .00193, .00280,
2812 + .25962, .08268, .04295, .00352, .00044,
2813 + .00012, .00180, .00261 /
2814 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
2815 + .24604, .07795, .03821, .00328, .00043,
2816 + .00013, .00168, .00244,
2817 + .23541, .07428, .03476, .00309, .00042,
2818 + .00014, .00159, .00230,
2819 + .22322, .07011, .03108, .00290, .00041,
2820 + .00015, .00150, .00213,
2821 + .21307, .06665, .02822, .00274, .00040,
2822 + .00015, .00141, .00200,
2823 + .20427, .06367, .02589, .00259, .00040,
2824 + .00015, .00134, .00188,
2825 + .19371, .06009, .02327, .00242, .00038,
2826 + .00015, .00125, .00175,
2827 + .18431, .05696, .02111, .00229, .00037,
2828 + .00015, .00117, .00163,
2829 + .17604, .05421, .01931, .00216, .00036,
2830 + .00015, .00111, .00153 /
2831 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
2832 + .16825, .05161, .01771, .00201, .00035,
2833 + .00015, .00105, .00145,
2834 + .16093, .04920, .01629, .00191, .00035,
2835 + .00015, .00099, .00136,
2836 + .15436, .04704, .01509, .00182, .00034,
2837 + .00015, .00094, .00129,
2838 + .14844, .04511, .01405, .00173, .00033,
2839 + .00015, .00089, .00122,
2840 + .14276, .04325, .01311, .00165, .00032,
2841 + .00015, .00085, .00116,
2842 + .13743, .04151, .01225, .00158, .00032,
2843 + .00015, .00081, .00110,
2844 + .13256, .03993, .01151, .00150, .00031,
2845 + .00015, .00078, .00105,
2846 + .12816, .03850, .01086, .00143, .00030,
2847 + .00015, .00075, .00100 /
2848 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
2849 + .12385, .03711, .01025, .00138, .00030,
2850 + .00015, .00072, .00096,
2851 + .11976, .03580, .00969, .00132, .00029,
2852 + .00015, .00069, .00092,
2853 + .11600, .03460, .00919, .00128, .00029,
2854 + .00015, .00066, .00088,
2855 + .11254, .03350, .00875, .00123, .00028,
2856 + .00015, .00063, .00085,
2857 + .10918, .03244, .00833, .00119, .00028,
2858 + .00015, .00060, .00082 /
2859 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
2860 + .51944, .17402, .20772, .00697, .00000,
2861 + .00000, .00320, .00529,
2862 + .49063, .16323, .18375, .00651, .00000,
2863 + .00000, .00304, .00490,
2864 + .45208, .14898, .15351, .00592, .00002,
2865 + .00000, .00279, .00440,
2866 + .42666, .13967, .13456, .00551, .00010,
2867 + .00000, .00263, .00407,
2868 + .40198, .13070, .11741, .00508, .00016,
2869 + .00000, .00247, .00378,
2870 + .38218, .12360, .10463, .00481, .00020,
2871 + .00000, .00233, .00353,
2872 + .36442, .11726, .09385, .00453, .00023,
2873 + .00000, .00220, .00331,
2874 + .34678, .11100, .08383, .00425, .00026,
2875 + .00000, .00209, .00310 /
2876 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
2877 + .33237, .10591, .07613, .00403, .00027,
2878 + .00000, .00199, .00293,
2879 + .31914, .10128, .06945, .00384, .00029,
2880 + .00000, .00190, .00277,
2881 + .30915, .09781, .06466, .00370, .00029,
2882 + .00000, .00183, .00265,
2883 + .28918, .09090, .05565, .00339, .00031,
2884 + .00000, .00170, .00243,
2885 + .27324, .08542, .04896, .00314, .00031,
2886 + .00002, .00158, .00227,
2887 + .25668, .07978, .04251, .00289, .00031,
2888 + .00005, .00147, .00208,
2889 + .24074, .07439, .03687, .00266, .00031,
2890 + .00007, .00137, .00191,
2891 + .22732, .06988, .03253, .00248, .00031,
2892 + .00008, .00128, .00177 /
2893 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
2894 + .21469, .06567, .02877, .00231, .00031,
2895 + .00009, .00118, .00164,
2896 + .20485, .06241, .02606, .00217, .00031,
2897 + .00009, .00112, .00154,
2898 + .19364, .05872, .02318, .00201, .00031,
2899 + .00009, .00104, .00143,
2900 + .18432, .05567, .02096, .00190, .00030,
2901 + .00009, .00098, .00134,
2902 + .17624, .05306, .01916, .00182, .00030,
2903 + .00009, .00093, .00126,
2904 + .16663, .04992, .01715, .00166, .00030,
2905 + .00009, .00087, .00117,
2906 + .15811, .04719, .01550, .00156, .00029,
2907 + .00009, .00081, .00109,
2908 + .15059, .04478, .01413, .00147, .00029,
2909 + .00009, .00076, .00102 /
2910 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
2911 + .14351, .04252, .01291, .00140, .00028,
2912 + .00009, .00072, .00096,
2913 + .13696, .04042, .01185, .00131, .00027,
2914 + .00009, .00068, .00090,
2915 + .13108, .03856, .01095, .00123, .00026,
2916 + .00009, .00065, .00085,
2917 + .12578, .03689, .01017, .00118, .00026,
2918 + .00009, .00062, .00081,
2919 + .12070, .03530, .00947, .00112, .00025,
2920 + .00009, .00059, .00076,
2921 + .11593, .03382, .00883, .00106, .00025,
2922 + .00009, .00055, .00071,
2923 + .11161, .03247, .00828, .00100, .00025,
2924 + .00009, .00053, .00068,
2925 + .10770, .03124, .00780, .00095, .00024,
2926 + .00009, .00050, .00065 /
2927 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
2928 + .10390, .03007, .00735, .00091, .00024,
2929 + .00009, .00048, .00062,
2930 + .10028, .02896, .00694, .00088, .00023,
2931 + .00009, .00047, .00059,
2932 + .09696, .02794, .00657, .00085, .00023,
2933 + .00009, .00045, .00057,
2934 + .09393, .02700, .00625, .00081, .00023,
2935 + .00009, .00043, .00055,
2936 + .09097, .02609, .00594, .00078, .00023,
2937 + .00009, .00042, .00053 /
2938 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
2939 + .47440, .15332, .17599, .00529, .00000,
2940 + .00000, .00236, .00362,
2941 + .44630, .14323, .15390, .00489, .00000,
2942 + .00000, .00223, .00336,
2943 + .40894, .12997, .12660, .00441, .00001,
2944 + .00000, .00203, .00300,
2945 + .38442, .12138, .10979, .00406, .00007,
2946 + .00000, .00190, .00279,
2947 + .36080, .11315, .09483, .00371, .00011,
2948 + .00000, .00178, .00259,
2949 + .34190, .10663, .08379, .00347, .00014,
2950 + .00000, .00168, .00241,
2951 + .32501, .10085, .07458, .00325, .00016,
2952 + .00000, .00160, .00226,
2953 + .30827, .09517, .06609, .00303, .00017,
2954 + .00000, .00150, .00212 /
2955 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
2956 + .29464, .09059, .05964, .00285, .00019,
2957 + .00000, .00142, .00200,
2958 + .28221, .08640, .05411, .00270, .00019,
2959 + .00000, .00137, .00189,
2960 + .27282, .08327, .05016, .00259, .00020,
2961 + .00000, .00132, .00181,
2962 + .25414, .07707, .04278, .00237, .00020,
2963 + .00000, .00122, .00164,
2964 + .23932, .07217, .03736, .00218, .00020,
2965 + .00001, .00113, .00153,
2966 + .22394, .06716, .03220, .00201, .00020,
2967 + .00003, .00103, .00140,
2968 + .20921, .06239, .02772, .00185, .00020,
2969 + .00004, .00096, .00127,
2970 + .19687, .05842, .02431, .00172, .00020,
2971 + .00005, .00090, .00117 /
2972 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
2973 + .18531, .05471, .02138, .00159, .00020,
2974 + .00005, .00083, .00110,
2975 + .17634, .05186, .01928, .00150, .00020,
2976 + .00005, .00078, .00103,
2977 + .16614, .04864, .01707, .00139, .00020,
2978 + .00005, .00073, .00095,
2979 + .15772, .04598, .01538, .00130, .00020,
2980 + .00005, .00068, .00088,
2981 + .15046, .04369, .01400, .00122, .00020,
2982 + .00005, .00065, .00083,
2983 + .14176, .04099, .01248, .00112, .00020,
2984 + .00005, .00060, .00077,
2985 + .13412, .03863, .01125, .00105, .00020,
2986 + .00005, .00057, .00072,
2987 + .12741, .03656, .01022, .00098, .00020,
2988 + .00005, .00053, .00068 /
2989 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
2990 + .12111, .03462, .00932, .00091, .00020,
2991 + .00005, .00050, .00064,
2992 + .11526, .03284, .00853, .00086, .00020,
2993 + .00005, .00046, .00059,
2994 + .11003, .03126, .00786, .00081, .00020,
2995 + .00005, .00043, .00056,
2996 + .10536, .02984, .00729, .00077, .00020,
2997 + .00005, .00042, .00053,
2998 + .10088, .02849, .00677, .00073, .00020,
2999 + .00005, .00040, .00050,
3000 + .09668, .02723, .00631, .00071, .00020,
3001 + .00005, .00037, .00047,
3002 + .09289, .02609, .00590, .00067, .00020,
3003 + .00005, .00036, .00044,
3004 + .08947, .02506, .00555, .00063, .00020,
3005 + .00005, .00035, .00042 /
3006 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
3007 + .08615, .02407, .00522, .00060, .00020,
3008 + .00005, .00033, .00040,
3009 + .08301, .02314, .00492, .00057, .00020,
3010 + .00005, .00031, .00039,
3011 + .08012, .02228, .00465, .00054, .00020,
3012 + .00005, .00030, .00037,
3013 + .07748, .02150, .00442, .00052, .00020,
3014 + .00005, .00029, .00036,
3015 + .07492, .02075, .00419, .00050, .00020,
3016 + .00005, .00028, .00034 /
3017 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
3018 + .42873, .13379, .14742, .00404, .00000,
3019 + .00000, .00161, .00239,
3020 + .40176, .12452, .12745, .00371, .00000,
3021 + .00000, .00151, .00221,
3022 + .36610, .11239, .10324, .00332, .00001,
3023 + .00000, .00137, .00196,
3024 + .34282, .10456, .08860, .00305, .00004,
3025 + .00000, .00128, .00181,
3026 + .32048, .09710, .07571, .00279, .00007,
3027 + .00000, .00119, .00165,
3028 + .30267, .09124, .06636, .00262, .00009,
3029 + .00000, .00112, .00154,
3030 + .28686, .08605, .05864, .00244, .00010,
3031 + .00000, .00106, .00142,
3032 + .27123, .08096, .05158, .00227, .00011,
3033 + .00000, .00099, .00132 /
3034 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
3035 + .25852, .07685, .04626, .00215, .00012,
3036 + .00000, .00093, .00125,
3037 + .24700, .07313, .04173, .00205, .00012,
3038 + .00000, .00089, .00117,
3039 + .23834, .07034, .03851, .00194, .00013,
3040 + .00000, .00085, .00112,
3041 + .22112, .06484, .03257, .00175, .00013,
3042 + .00000, .00077, .00102,
3043 + .20748, .06053, .02825, .00162, .00013,
3044 + .00001, .00071, .00094,
3045 + .19346, .05611, .02417, .00147, .00013,
3046 + .00002, .00065, .00087,
3047 + .18008, .05194, .02068, .00135, .00013,
3048 + .00002, .00060, .00078,
3049 + .16889, .04848, .01803, .00126, .00013,
3050 + .00002, .00056, .00072 /
3051 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
3052 + .15848, .04526, .01578, .00115, .00013,
3053 + .00002, .00052, .00067,
3054 + .15041, .04280, .01417, .00108, .00013,
3055 + .00002, .00049, .00061,
3056 + .14125, .04001, .01249, .00100, .00013,
3057 + .00002, .00045, .00056,
3058 + .13369, .03773, .01122, .00094, .00013,
3059 + .00002, .00042, .00053,
3060 + .12720, .03578, .01018, .00089, .00013,
3061 + .00002, .00040, .00050,
3062 + .11951, .03346, .00904, .00082, .00013,
3063 + .00002, .00037, .00046,
3064 + .11274, .03144, .00812, .00077, .00013,
3065 + .00002, .00034, .00042,
3066 + .10681, .02969, .00736, .00072, .00013,
3067 + .00002, .00032, .00039 /
3068 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
3069 + .10126, .02805, .00669, .00068, .00013,
3070 + .00002, .00030, .00036,
3071 + .09613, .02653, .00611, .00063, .00013,
3072 + .00002, .00028, .00035,
3073 + .09156, .02519, .00562, .00060, .00013,
3074 + .00002, .00026, .00033,
3075 + .08748, .02399, .00521, .00057, .00013,
3076 + .00002, .00025, .00031,
3077 + .08360, .02286, .00483, .00054, .00013,
3078 + .00002, .00023, .00029,
3079 + .07997, .02181, .00449, .00050, .00013,
3080 + .00002, .00022, .00027,
3081 + .07667, .02086, .00419, .00048, .00013,
3082 + .00002, .00021, .00025,
3083 + .07370, .02000, .00394, .00046, .00013,
3084 + .00002, .00020, .00024 /
3085 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
3086 + .07083, .01917, .00370, .00043, .00013,
3087 + .00002, .00019, .00023,
3088 + .06814, .01839, .00348, .00041, .00013,
3089 + .00002, .00018, .00022,
3090 + .06566, .01768, .00329, .00038, .00013,
3091 + .00002, .00017, .00022,
3092 + .06339, .01704, .00312, .00037, .00013,
3093 + .00002, .00016, .00021,
3094 + .06120, .01642, .00296, .00036, .00013,
3095 + .00002, .00015, .00020 /
3096 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
3097 + .38312, .11506, .12110, .00282, .00000,
3098 + .00000, .00119, .00163,
3099 + .35755, .10667, .10347, .00258, .00000,
3100 + .00000, .00108, .00152,
3101 + .32393, .09577, .08245, .00231, .00001,
3102 + .00000, .00098, .00130,
3103 + .30211, .08876, .07004, .00210, .00003,
3104 + .00000, .00090, .00120,
3105 + .28127, .08211, .05921, .00191, .00005,
3106 + .00000, .00083, .00110,
3107 + .26480, .07689, .05145, .00177, .00006,
3108 + .00000, .00078, .00101,
3109 + .25013, .07230, .04512, .00167, .00006,
3110 + .00000, .00072, .00094,
3111 + .23572, .06781, .03939, .00155, .00007,
3112 + .00000, .00067, .00087 /
3113 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
3114 + .22409, .06419, .03510, .00145, .00007,
3115 + .00000, .00063, .00082,
3116 + .21354, .06093, .03147, .00136, .00007,
3117 + .00000, .00060, .00076,
3118 + .20564, .05850, .02892, .00130, .00007,
3119 + .00000, .00057, .00072,
3120 + .18997, .05369, .02425, .00118, .00007,
3121 + .00000, .00052, .00067,
3122 + .17762, .04995, .02089, .00109, .00007,
3123 + .00000, .00048, .00061,
3124 + .16497, .04615, .01775, .00100, .00007,
3125 + .00000, .00045, .00053,
3126 + .15297, .04255, .01509, .00091, .00007,
3127 + .00000, .00041, .00050,
3128 + .14296, .03957, .01308, .00084, .00007,
3129 + .00000, .00037, .00047 /
3130 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
3131 + .13366, .03683, .01139, .00077, .00007,
3132 + .00000, .00034, .00041,
3133 + .12648, .03472, .01020, .00072, .00007,
3134 + .00000, .00032, .00040,
3135 + .11842, .03235, .00895, .00066, .00007,
3136 + .00000, .00029, .00037,
3137 + .11179, .03042, .00800, .00061, .00007,
3138 + .00000, .00027, .00034,
3139 + .10610, .02877, .00725, .00057, .00007,
3140 + .00000, .00024, .00032,
3141 + .09933, .02683, .00641, .00054, .00007,
3142 + .00000, .00022, .00029,
3143 + .09345, .02513, .00574, .00049, .00007,
3144 + .00000, .00022, .00026,
3145 + .08830, .02366, .00519, .00045, .00007,
3146 + .00000, .00020, .00024 /
3147 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
3148 + .08347, .02230, .00471, .00043, .00007,
3149 + .00000, .00019, .00023,
3150 + .07904, .02104, .00429, .00040, .00007,
3151 + .00000, .00018, .00022,
3152 + .07510, .01993, .00394, .00038, .00007,
3153 + .00000, .00016, .00020,
3154 + .07159, .01894, .00364, .00036, .00007,
3155 + .00000, .00015, .00019,
3156 + .06825, .01801, .00337, .00034, .00007,
3157 + .00000, .00015, .00018,
3158 + .06514, .01714, .00313, .00032, .00007,
3159 + .00000, .00014, .00017,
3160 + .06233, .01636, .00292, .00031, .00007,
3161 + .00000, .00013, .00016,
3162 + .05980, .01566, .00274, .00029, .00007,
3163 + .00000, .00013, .00015 /
3164 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
3165 + .05736, .01498, .00257, .00028, .00007,
3166 + .00000, .00012, .00015,
3167 + .05506, .01435, .00242, .00026, .00007,
3168 + .00000, .00011, .00014,
3169 + .05297, .01377, .00228, .00025, .00007,
3170 + .00000, .00011, .00014,
3171 + .05105, .01325, .00216, .00025, .00007,
3172 + .00000, .00010, .00013,
3173 + .04920, .01275, .00205, .00024, .00007,
3174 + .00000, .00010, .00012 /
3175 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
3176 + .33835, .09781, .09751, .00194, .00000,
3177 + .00000, .00084, .00107,
3178 + .31444, .09031, .08231, .00178, .00000,
3179 + .00000, .00077, .00097,
3180 + .28324, .08061, .06455, .00155, .00000,
3181 + .00000, .00067, .00085,
3182 + .26312, .07439, .05420, .00141, .00002,
3183 + .00000, .00062, .00079,
3184 + .24396, .06854, .04533, .00127, .00003,
3185 + .00000, .00058, .00071,
3186 + .22886, .06398, .03905, .00118, .00003,
3187 + .00000, .00053, .00066,
3188 + .21550, .05996, .03398, .00110, .00003,
3189 + .00000, .00049, .00061,
3190 + .20240, .05605, .02944, .00102, .00003,
3191 + .00000, .00046, .00056 /
3192 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
3193 + .19184, .05292, .02607, .00096, .00003,
3194 + .00000, .00043, .00053,
3195 + .18232, .05010, .02325, .00090, .00003,
3196 + .00000, .00040, .00050,
3197 + .17522, .04799, .02127, .00085, .00003,
3198 + .00000, .00038, .00048,
3199 + .16119, .04387, .01769, .00075, .00003,
3200 + .00000, .00035, .00044,
3201 + .15017, .04067, .01514, .00069, .00003,
3202 + .00000, .00033, .00039,
3203 + .13891, .03742, .01277, .00064, .00003,
3204 + .00000, .00030, .00035,
3205 + .12828, .03437, .01079, .00057, .00003,
3206 + .00000, .00026, .00032,
3207 + .11947, .03186, .00931, .00052, .00003,
3208 + .00000, .00024, .00030 /
3209 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
3210 + .11132, .02954, .00807, .00048, .00003,
3211 + .00000, .00023, .00027,
3212 + .10507, .02777, .00719, .00044, .00003,
3213 + .00000, .00021, .00025,
3214 + .09803, .02579, .00629, .00040, .00003,
3215 + .00000, .00019, .00023,
3216 + .09226, .02418, .00561, .00037, .00003,
3217 + .00000, .00017, .00021,
3218 + .08732, .02281, .00507, .00035, .00003,
3219 + .00000, .00016, .00020,
3220 + .08149, .02119, .00447, .00033, .00003,
3221 + .00000, .00016, .00018,
3222 + .07642, .01980, .00399, .00030, .00003,
3223 + .00000, .00015, .00016,
3224 + .07201, .01859, .00360, .00028, .00003,
3225 + .00000, .00014, .00015 /
3226 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
3227 + .06788, .01747, .00326, .00027, .00003,
3228 + .00000, .00013, .00014,
3229 + .06410, .01644, .00296, .00025, .00003,
3230 + .00000, .00011, .00013,
3231 + .06076, .01554, .00272, .00023, .00003,
3232 + .00000, .00011, .00012,
3233 + .05779, .01473, .00251, .00021, .00003,
3234 + .00000, .00010, .00011,
3235 + .05497, .01397, .00232, .00020, .00003,
3236 + .00000, .00009, .00011,
3237 + .05236, .01327, .00215, .00018, .00003,
3238 + .00000, .00009, .00010,
3239 + .04998, .01264, .00200, .00018, .00003,
3240 + .00000, .00008, .00010,
3241 + .04784, .01207, .00187, .00017, .00003,
3242 + .00000, .00008, .00009 /
3243 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
3244 + .04581, .01153, .00176, .00016, .00003,
3245 + .00000, .00007, .00008,
3246 + .04390, .01102, .00165, .00014, .00003,
3247 + .00000, .00007, .00008,
3248 + .04216, .01056, .00156, .00013, .00003,
3249 + .00000, .00007, .00008,
3250 + .04056, .01014, .00147, .00013, .00003,
3251 + .00000, .00006, .00008,
3252 + .03902, .00974, .00139, .00013, .00003,
3253 + .00000, .00006, .00007 /
3254 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
3255 + .29518, .08218, .07680, .00139, .00000,
3256 + .00000, .00051, .00066,
3257 + .27321, .07556, .06407, .00125, .00000,
3258 + .00000, .00048, .00060,
3259 + .24468, .06705, .04942, .00107, .00000,
3260 + .00000, .00041, .00053,
3261 + .22636, .06165, .04107, .00098, .00001,
3262 + .00000, .00038, .00048,
3263 + .20897, .05658, .03399, .00088, .00001,
3264 + .00000, .00035, .00042,
3265 + .19536, .05263, .02905, .00082, .00001,
3266 + .00000, .00031, .00038,
3267 + .18339, .04917, .02510, .00075, .00001,
3268 + .00000, .00030, .00036,
3269 + .17169, .04581, .02158, .00070, .00001,
3270 + .00000, .00028, .00033 /
3271 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
3272 + .16228, .04313, .01900, .00066, .00001,
3273 + .00000, .00026, .00031,
3274 + .15384, .04072, .01686, .00060, .00001,
3275 + .00000, .00025, .00028,
3276 + .14753, .03893, .01537, .00057, .00001,
3277 + .00000, .00024, .00027,
3278 + .13510, .03543, .01268, .00051, .00001,
3279 + .00000, .00020, .00026,
3280 + .12541, .03273, .01078, .00046, .00001,
3281 + .00000, .00018, .00024,
3282 + .11556, .03000, .00905, .00042, .00001,
3283 + .00000, .00017, .00021,
3284 + .10629, .02744, .00759, .00039, .00001,
3285 + .00000, .00015, .00018,
3286 + .09865, .02535, .00652, .00035, .00001,
3287 + .00000, .00014, .00016 /
3288 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
3289 + .09159, .02343, .00563, .00033, .00001,
3290 + .00000, .00013, .00014,
3291 + .08620, .02196, .00501, .00029, .00001,
3292 + .00000, .00012, .00014,
3293 + .08014, .02033, .00436, .00027, .00001,
3294 + .00000, .00010, .00012,
3295 + .07519, .01901, .00388, .00025, .00001,
3296 + .00000, .00009, .00011,
3297 + .07098, .01789, .00350, .00024, .00001,
3298 + .00000, .00009, .00010,
3299 + .06602, .01656, .00308, .00022, .00001,
3300 + .00000, .00008, .00010,
3301 + .06172, .01543, .00274, .00020, .00001,
3302 + .00000, .00007, .00009,
3303 + .05799, .01444, .00247, .00019, .00001,
3304 + .00000, .00007, .00009 /
3305 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
3306 + .05453, .01353, .00223, .00018, .00001,
3307 + .00000, .00006, .00008,
3308 + .05137, .01270, .00203, .00016, .00001,
3309 + .00000, .00006, .00007,
3310 + .04856, .01197, .00185, .00015, .00001,
3311 + .00000, .00005, .00007,
3312 + .04607, .01132, .00171, .00014, .00001,
3313 + .00000, .00005, .00007,
3314 + .04371, .01072, .00158, .00014, .00001,
3315 + .00000, .00005, .00006,
3316 + .04153, .01016, .00146, .00013, .00001,
3317 + .00000, .00005, .00005,
3318 + .03958, .00965, .00136, .00012, .00001,
3319 + .00000, .00004, .00005,
3320 + .03784, .00920, .00127, .00010, .00001,
3321 + .00000, .00004, .00005 /
3322 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
3323 + .03615, .00877, .00119, .00010, .00001,
3324 + .00000, .00004, .00005,
3325 + .03456, .00837, .00112, .00010, .00001,
3326 + .00000, .00004, .00004,
3327 + .03312, .00800, .00105, .00010, .00001,
3328 + .00000, .00003, .00004,
3329 + .03181, .00767, .00100, .00009, .00001,
3330 + .00000, .00003, .00004,
3331 + .03055, .00736, .00094, .00009, .00001,
3332 + .00000, .00003, .00004 /
3333 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
3334 + .25383, .06781, .05866, .00085, .00000,
3335 + .00000, .00038, .00045,
3336 + .23392, .06209, .04835, .00076, .00000,
3337 + .00000, .00034, .00040,
3338 + .20823, .05477, .03669, .00064, .00000,
3339 + .00000, .00028, .00035,
3340 + .19181, .05016, .03018, .00059, .00000,
3341 + .00000, .00027, .00030,
3342 + .17631, .04584, .02474, .00054, .00000,
3343 + .00000, .00024, .00027,
3344 + .16424, .04248, .02096, .00049, .00000,
3345 + .00000, .00022, .00026,
3346 + .15365, .03955, .01797, .00045, .00000,
3347 + .00000, .00021, .00024,
3348 + .14334, .03672, .01534, .00041, .00000,
3349 + .00000, .00018, .00022 /
3350 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
3351 + .13510, .03447, .01343, .00038, .00000,
3352 + .00000, .00016, .00021,
3353 + .12768, .03246, .01185, .00036, .00000,
3354 + .00000, .00015, .00019,
3355 + .12217, .03097, .01076, .00033, .00000,
3356 + .00000, .00015, .00018,
3357 + .11138, .02807, .00881, .00030, .00000,
3358 + .00000, .00013, .00016,
3359 + .10301, .02583, .00745, .00027, .00000,
3360 + .00000, .00012, .00014,
3361 + .09453, .02356, .00622, .00024, .00000,
3362 + .00000, .00011, .00013,
3363 + .08656, .02147, .00519, .00022, .00000,
3364 + .00000, .00010, .00012,
3365 + .08002, .01976, .00444, .00020, .00000,
3366 + .00000, .00009, .00011 /
3367 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
3368 + .07402, .01819, .00382, .00018, .00000,
3369 + .00000, .00008, .00010,
3370 + .06946, .01701, .00339, .00016, .00000,
3371 + .00000, .00007, .00009,
3372 + .06434, .01569, .00295, .00015, .00000,
3373 + .00000, .00007, .00008,
3374 + .06018, .01462, .00261, .00014, .00000,
3375 + .00000, .00006, .00007,
3376 + .05666, .01371, .00235, .00013, .00000,
3377 + .00000, .00006, .00006,
3378 + .05252, .01266, .00206, .00012, .00000,
3379 + .00000, .00005, .00006,
3380 + .04894, .01175, .00184, .00011, .00000,
3381 + .00000, .00005, .00006,
3382 + .04584, .01097, .00165, .00010, .00000,
3383 + .00000, .00004, .00005 /
3384 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
3385 + .04297, .01025, .00149, .00010, .00000,
3386 + .00000, .00004, .00004,
3387 + .04036, .00959, .00135, .00009, .00000,
3388 + .00000, .00004, .00004,
3389 + .03806, .00902, .00123, .00008, .00000,
3390 + .00000, .00004, .00004,
3391 + .03603, .00851, .00114, .00007, .00000,
3392 + .00000, .00003, .00004,
3393 + .03410, .00804, .00105, .00007, .00000,
3394 + .00000, .00003, .00003,
3395 + .03232, .00759, .00097, .00007, .00000,
3396 + .00000, .00003, .00004,
3397 + .03073, .00720, .00090, .00006, .00000,
3398 + .00000, .00003, .00003,
3399 + .02931, .00685, .00084, .00006, .00000,
3400 + .00000, .00003, .00003 /
3401 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
3402 + .02795, .00651, .00079, .00006, .00000,
3403 + .00000, .00003, .00003,
3404 + .02667, .00620, .00074, .00005, .00000,
3405 + .00000, .00002, .00003,
3406 + .02551, .00592, .00069, .00005, .00000,
3407 + .00000, .00002, .00002,
3408 + .02446, .00567, .00066, .00005, .00000,
3409 + .00000, .00002, .00002,
3410 + .02345, .00542, .00062, .00004, .00000,
3411 + .00000, .00002, .00002 /
3412 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
3413 + .17943, .04409, .03117, .00036, .00000,
3414 + .00000, .00013, .00015,
3415 + .16387, .04001, .02509, .00031, .00000,
3416 + .00000, .00011, .00013,
3417 + .14401, .03484, .01845, .00025, .00000,
3418 + .00000, .00009, .00013,
3419 + .13149, .03162, .01486, .00022, .00000,
3420 + .00000, .00009, .00010,
3421 + .11976, .02864, .01195, .00020, .00000,
3422 + .00000, .00008, .00009,
3423 + .11073, .02634, .00998, .00018, .00000,
3424 + .00000, .00007, .00009,
3425 + .10285, .02435, .00844, .00016, .00000,
3426 + .00000, .00006, .00009,
3427 + .09525, .02245, .00712, .00014, .00000,
3428 + .00000, .00005, .00008 /
3429 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
3430 + .08921, .02094, .00616, .00013, .00000,
3431 + .00000, .00005, .00007,
3432 + .08383, .01961, .00539, .00012, .00000,
3433 + .00000, .00006, .00006,
3434 + .07985, .01862, .00486, .00011, .00000,
3435 + .00000, .00005, .00006,
3436 + .07210, .01671, .00394, .00010, .00000,
3437 + .00000, .00005, .00005,
3438 + .06614, .01526, .00330, .00009, .00000,
3439 + .00000, .00004, .00004,
3440 + .06016, .01381, .00273, .00008, .00000,
3441 + .00000, .00004, .00004,
3442 + .05461, .01247, .00226, .00008, .00000,
3443 + .00000, .00003, .00004,
3444 + .05010, .01139, .00192, .00007, .00000,
3445 + .00000, .00003, .00003 /
3446 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
3447 + .04600, .01040, .00165, .00006, .00000,
3448 + .00000, .00003, .00003,
3449 + .04288, .00966, .00145, .00005, .00000,
3450 + .00000, .00002, .00003,
3451 + .03943, .00885, .00126, .00005, .00000,
3452 + .00000, .00002, .00002,
3453 + .03663, .00819, .00111, .00005, .00000,
3454 + .00000, .00002, .00002,
3455 + .03428, .00764, .00100, .00005, .00000,
3456 + .00000, .00002, .00002,
3457 + .03155, .00700, .00088, .00004, .00000,
3458 + .00000, .00002, .00002,
3459 + .02920, .00646, .00078, .00003, .00000,
3460 + .00000, .00002, .00002,
3461 + .02718, .00599, .00070, .00004, .00000,
3462 + .00000, .00002, .00002 /
3463 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
3464 + .02533, .00556, .00063, .00004, .00000,
3465 + .00000, .00001, .00001,
3466 + .02366, .00518, .00057, .00002, .00000,
3467 + .00000, .00001, .00001,
3468 + .02219, .00484, .00052, .00002, .00000,
3469 + .00000, .00001, .00001,
3470 + .02089, .00454, .00048, .00002, .00000,
3471 + .00000, .00001, .00001,
3472 + .01967, .00427, .00044, .00002, .00000,
3473 + .00000, .00001, .00001,
3474 + .01855, .00401, .00040, .00002, .00000,
3475 + .00000, .00001, .00001,
3476 + .01755, .00379, .00037, .00002, .00000,
3477 + .00000, .00001, .00001,
3478 + .01667, .00359, .00035, .00001, .00000,
3479 + .00000, .00001, .00001 /
3480 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/
3481 + .01582, .00340, .00033, .00001, .00000,
3482 + .00000, .00001, .00001,
3483 + .01503, .00322, .00031, .00002, .00000,
3484 + .00000, .00001, .00001,
3485 + .01431, .00306, .00029, .00002, .00000,
3486 + .00000, .00001, .00001,
3487 + .01368, .00292, .00027, .00001, .00000,
3488 + .00000, .00001, .00001,
3489 + .01306, .00278, .00025, .00001, .00000,
3490 + .00000, .00001, .00001 /
3491 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/
3492 + .11760, .02634, .01407, .00013, .00000,
3493 + .00000, .00003, .00004,
3494 + .10634, .02367, .01108, .00011, .00000,
3495 + .00000, .00003, .00004,
3496 + .09216, .02034, .00793, .00009, .00000,
3497 + .00000, .00003, .00003,
3498 + .08333, .01828, .00627, .00008, .00000,
3499 + .00000, .00002, .00002,
3500 + .07517, .01640, .00496, .00006, .00000,
3501 + .00000, .00002, .00002,
3502 + .06891, .01496, .00409, .00006, .00000,
3503 + .00000, .00002, .00002,
3504 + .06352, .01372, .00342, .00006, .00000,
3505 + .00000, .00001, .00002,
3506 + .05837, .01255, .00286, .00004, .00000,
3507 + .00000, .00001, .00002 /
3508 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
3509 + .05431, .01163, .00246, .00004, .00000,
3510 + .00000, .00001, .00002,
3511 + .05069, .01082, .00214, .00005, .00000,
3512 + .00000, .00001, .00001,
3513 + .04804, .01023, .00192, .00005, .00000,
3514 + .00000, .00001, .00001,
3515 + .04294, .00909, .00154, .00003, .00000,
3516 + .00000, .00001, .00001,
3517 + .03905, .00822, .00129, .00003, .00000,
3518 + .00000, .00001, .00001,
3519 + .03519, .00737, .00106, .00002, .00000,
3520 + .00000, .00001, .00001,
3521 + .03165, .00659, .00087, .00001, .00000,
3522 + .00000, .00001, .00001,
3523 + .02879, .00597, .00074, .00001, .00000,
3524 + .00000, .00001, .00001 /
3525 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
3526 + .02620, .00541, .00063, .00002, .00000,
3527 + .00000, .00000, .00001,
3528 + .02426, .00499, .00056, .00001, .00000,
3529 + .00000, .00000, .00001,
3530 + .02212, .00453, .00048, .00001, .00000,
3531 + .00000, .00000, .00001,
3532 + .02041, .00417, .00043, .00001, .00000,
3533 + .00000, .00000, .00001,
3534 + .01899, .00386, .00038, .00001, .00000,
3535 + .00000, .00000, .00000,
3536 + .01733, .00351, .00033, .00001, .00000,
3537 + .00000, .00000, .00001,
3538 + .01592, .00322, .00030, .00001, .00000,
3539 + .00000, .00000, .00000,
3540 + .01472, .00296, .00027, .00001, .00000,
3541 + .00000, .00000, .00000 /
3542 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
3543 + .01363, .00273, .00024, .00001, .00000,
3544 + .00000, .00000, .00000,
3545 + .01264, .00253, .00022, .00001, .00000,
3546 + .00000, .00000, .00000,
3547 + .01178, .00235, .00020, .00001, .00000,
3548 + .00000, .00000, .00000,
3549 + .01103, .00219, .00018, .00001, .00000,
3550 + .00000, .00000, .00000,
3551 + .01033, .00205, .00017, .00001, .00000,
3552 + .00000, .00000, .00000,
3553 + .00969, .00192, .00015, .00001, .00000,
3554 + .00000, .00000, .00000,
3555 + .00912, .00180, .00014, .00001, .00000,
3556 + .00000, .00000, .00000,
3557 + .00862, .00170, .00013, .00001, .00000,
3558 + .00000, .00000, .00000 /
3559 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/
3560 + .00814, .00160, .00012, .00000, .00000,
3561 + .00000, .00000, .00000,
3562 + .00770, .00151, .00011, .00000, .00000,
3563 + .00000, .00000, .00000,
3564 + .00731, .00143, .00011, .00000, .00000,
3565 + .00000, .00000, .00000,
3566 + .00695, .00136, .00010, .00000, .00000,
3567 + .00000, .00000, .00000,
3568 + .00661, .00129, .00009, .00000, .00000,
3569 + .00000, .00000, .00000 /
3570 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/
3571 + .06979, .01408, .00513, .00004, .00000,
3572 + .00000, .00000, .00001,
3573 + .06242, .01251, .00397, .00004, .00000,
3574 + .00000, .00000, .00000,
3575 + .05324, .01059, .00277, .00004, .00000,
3576 + .00000, .00000, .00000,
3577 + .04762, .00942, .00216, .00002, .00000,
3578 + .00000, .00000, .00001,
3579 + .04249, .00835, .00169, .00002, .00000,
3580 + .00000, .00000, .00000,
3581 + .03859, .00755, .00138, .00002, .00000,
3582 + .00000, .00000, .00000,
3583 + .03527, .00687, .00115, .00001, .00000,
3584 + .00000, .00000, .00000,
3585 + .03212, .00623, .00096, .00001, .00000,
3586 + .00000, .00000, .00000 /
3587 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
3588 + .02965, .00573, .00082, .00001, .00000,
3589 + .00000, .00000, .00000,
3590 + .02748, .00529, .00071, .00001, .00000,
3591 + .00000, .00000, .00000,
3592 + .02591, .00497, .00064, .00001, .00000,
3593 + .00000, .00000, .00000,
3594 + .02288, .00437, .00051, .00001, .00000,
3595 + .00000, .00000, .00000,
3596 + .02060, .00391, .00043, .00001, .00000,
3597 + .00000, .00000, .00001,
3598 + .01837, .00347, .00035, .00001, .00000,
3599 + .00000, .00000, .00000,
3600 + .01634, .00307, .00029, .00001, .00000,
3601 + .00000, .00000, .00000,
3602 + .01472, .00275, .00025, .00001, .00000,
3603 + .00000, .00000, .00000 /
3604 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/
3605 + .01327, .00247, .00021, .00000, .00000,
3606 + .00000, .00000, .00000,
3607 + .01220, .00226, .00019, .00000, .00000,
3608 + .00000, .00000, .00000,
3609 + .01102, .00204, .00016, .00000, .00000,
3610 + .00000, .00000, .00000,
3611 + .01009, .00186, .00014, .00000, .00000,
3612 + .00000, .00000, .00000,
3613 + .00932, .00171, .00013, .00000, .00000,
3614 + .00000, .00000, .00000,
3615 + .00843, .00154, .00011, .00000, .00000,
3616 + .00000, .00000, .00000,
3617 + .00768, .00140, .00010, .00000, .00000,
3618 + .00000, .00000, .00000,
3619 + .00705, .00128, .00009, .00000, .00000,
3620 + .00000, .00000, .00000 /
3621 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/
3622 + .00647, .00117, .00008, .00000, .00000,
3623 + .00000, .00000, .00000,
3624 + .00596, .00108, .00007, .00000, .00000,
3625 + .00000, .00000, .00000,
3626 + .00552, .00099, .00007, .00000, .00000,
3627 + .00000, .00000, .00000,
3628 + .00514, .00092, .00006, .00000, .00000,
3629 + .00000, .00000, .00000,
3630 + .00478, .00086, .00005, .00000, .00000,
3631 + .00000, .00000, .00000,
3632 + .00446, .00080, .00005, .00000, .00000,
3633 + .00000, .00000, .00000,
3634 + .00417, .00074, .00005, .00000, .00000,
3635 + .00000, .00000, .00000,
3636 + .00392, .00070, .00004, .00000, .00000,
3637 + .00000, .00000, .00000 /
3638 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=33,37)/
3639 + .00368, .00065, .00004, .00000, .00000,
3640 + .00000, .00000, .00000,
3641 + .00346, .00061, .00004, .00000, .00000,
3642 + .00000, .00000, .00000,
3643 + .00327, .00058, .00004, .00000, .00000,
3644 + .00000, .00000, .00000,
3645 + .00310, .00055, .00003, .00000, .00000,
3646 + .00000, .00000, .00000,
3647 + .00293, .00052, .00003, .00000, .00000,
3648 + .00000, .00000, .00000 /
3649 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/
3650 + .03586, .00638, .00138, .00000, .00000,
3651 + .00000, .00000, .00000,
3652 + .03166, .00560, .00106, .00000, .00000,
3653 + .00000, .00000, .00000,
3654 + .02652, .00466, .00073, .00000, .00000,
3655 + .00000, .00000, .00000,
3656 + .02343, .00409, .00057, .00000, .00000,
3657 + .00000, .00000, .00000,
3658 + .02062, .00358, .00044, .00000, .00000,
3659 + .00000, .00000, .00000,
3660 + .01854, .00320, .00036, .00000, .00000,
3661 + .00000, .00000, .00000,
3662 + .01677, .00289, .00030, .00000, .00000,
3663 + .00000, .00000, .00000,
3664 + .01512, .00259, .00025, .00000, .00000,
3665 + .00000, .00000, .00000 /
3666 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=9,16)/
3667 + .01383, .00236, .00022, .00000, .00000,
3668 + .00000, .00000, .00000,
3669 + .01271, .00216, .00019, .00000, .00000,
3670 + .00000, .00000, .00000,
3671 + .01190, .00202, .00017, .00000, .00000,
3672 + .00000, .00000, .00000,
3673 + .01037, .00175, .00014, .00000, .00000,
3674 + .00000, .00000, .00000,
3675 + .00924, .00155, .00012, .00000, .00000,
3676 + .00000, .00000, .00000,
3677 + .00813, .00136, .00010, .00000, .00000,
3678 + .00000, .00000, .00000,
3679 + .00714, .00119, .00008, .00000, .00000,
3680 + .00000, .00000, .00000,
3681 + .00636, .00105, .00007, .00000, .00000,
3682 + .00000, .00000, .00000 /
3683 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=17,24)/
3684 + .00567, .00094, .00006, .00000, .00000,
3685 + .00000, .00000, .00000,
3686 + .00517, .00085, .00005, .00000, .00000,
3687 + .00000, .00000, .00000,
3688 + .00462, .00076, .00004, .00000, .00000,
3689 + .00000, .00000, .00000,
3690 + .00419, .00068, .00004, .00000, .00000,
3691 + .00000, .00000, .00000,
3692 + .00383, .00062, .00004, .00000, .00000,
3693 + .00000, .00000, .00000,
3694 + .00343, .00056, .00003, .00000, .00000,
3695 + .00000, .00000, .00000,
3696 + .00310, .00050, .00003, .00000, .00000,
3697 + .00000, .00000, .00000,
3698 + .00282, .00045, .00002, .00000, .00000,
3699 + .00000, .00000, .00000 /
3700 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/
3701 + .00256, .00041, .00002, .00000, .00000,
3702 + .00000, .00000, .00000,
3703 + .00234, .00037, .00002, .00000, .00000,
3704 + .00000, .00000, .00000,
3705 + .00215, .00034, .00002, .00000, .00000,
3706 + .00000, .00000, .00000,
3707 + .00199, .00032, .00002, .00000, .00000,
3708 + .00000, .00000, .00000,
3709 + .00183, .00029, .00002, .00000, .00000,
3710 + .00000, .00000, .00000,
3711 + .00170, .00027, .00001, .00000, .00000,
3712 + .00000, .00000, .00000,
3713 + .00158, .00025, .00001, .00000, .00000,
3714 + .00000, .00000, .00000,
3715 + .00147, .00023, .00001, .00000, .00000,
3716 + .00000, .00000, .00000 /
3717 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/
3718 + .00138, .00022, .00001, .00000, .00000,
3719 + .00000, .00000, .00000,
3720 + .00129, .00020, .00001, .00000, .00000,
3721 + .00000, .00000, .00000,
3722 + .00121, .00019, .00001, .00000, .00000,
3723 + .00000, .00000, .00000,
3724 + .00114, .00018, .00001, .00000, .00000,
3725 + .00000, .00000, .00000,
3726 + .00107, .00017, .00001, .00000, .00000,
3727 + .00000, .00000, .00000 /
3728 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/
3729 + .00412, .00051, .00002, .00000, .00000,
3730 + .00000, .00000, .00000,
3731 + .00350, .00043, .00002, .00000, .00000,
3732 + .00000, .00000, .00000,
3733 + .00278, .00034, .00001, .00000, .00000,
3734 + .00000, .00000, .00000,
3735 + .00237, .00029, .00001, .00000, .00000,
3736 + .00000, .00000, .00000,
3737 + .00201, .00024, .00001, .00000, .00000,
3738 + .00000, .00000, .00000,
3739 + .00175, .00021, .00001, .00000, .00000,
3740 + .00000, .00000, .00000,
3741 + .00154, .00019, .00001, .00000, .00000,
3742 + .00000, .00000, .00000,
3743 + .00135, .00016, .00001, .00000, .00000,
3744 + .00000, .00000, .00000 /
3745 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/
3746 + .00120, .00014, .00001, .00000, .00000,
3747 + .00000, .00000, .00000,
3748 + .00108, .00013, .00001, .00000, .00000,
3749 + .00000, .00000, .00000,
3750 + .00099, .00012, .00001, .00000, .00000,
3751 + .00000, .00000, .00000,
3752 + .00083, .00010, .00000, .00000, .00000,
3753 + .00000, .00000, .00000,
3754 + .00071, .00008, .00000, .00000, .00000,
3755 + .00000, .00000, .00000,
3756 + .00061, .00007, .00000, .00000, .00000,
3757 + .00000, .00000, .00000,
3758 + .00051, .00006, .00000, .00000, .00000,
3759 + .00000, .00000, .00000,
3760 + .00044, .00005, .00000, .00000, .00000,
3761 + .00000, .00000, .00000 /
3762 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/
3763 + .00038, .00004, .00000, .00000, .00000,
3764 + .00000, .00000, .00000,
3765 + .00034, .00004, .00000, .00000, .00000,
3766 + .00000, .00000, .00000,
3767 + .00029, .00003, .00000, .00000, .00000,
3768 + .00000, .00000, .00000,
3769 + .00026, .00003, .00000, .00000, .00000,
3770 + .00000, .00000, .00000,
3771 + .00023, .00003, .00000, .00000, .00000,
3772 + .00000, .00000, .00000,
3773 + .00020, .00002, .00000, .00000, .00000,
3774 + .00000, .00000, .00000,
3775 + .00018, .00002, .00000, .00000, .00000,
3776 + .00000, .00000, .00000,
3777 + .00016, .00002, .00000, .00000, .00000,
3778 + .00000, .00000, .00000 /
3779 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
3780 + .00014, .00002, .00000, .00000, .00000,
3781 + .00000, .00000, .00000,
3782 + .00012, .00001, .00000, .00000, .00000,
3783 + .00000, .00000, .00000,
3784 + .00011, .00001, .00000, .00000, .00000,
3785 + .00000, .00000, .00000,
3786 + .00010, .00001, .00000, .00000, .00000,
3787 + .00000, .00000, .00000,
3788 + .00009, .00001, .00000, .00000, .00000,
3789 + .00000, .00000, .00000,
3790 + .00008, .00001, .00000, .00000, .00000,
3791 + .00000, .00000, .00000,
3792 + .00007, .00001, .00000, .00000, .00000,
3793 + .00000, .00000, .00000,
3794 + .00007, .00001, .00000, .00000, .00000,
3795 + .00000, .00000, .00000 /
3796 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
3797 + .00006, .00001, .00000, .00000, .00000,
3798 + .00000, .00000, .00000,
3799 + .00006, .00001, .00000, .00000, .00000,
3800 + .00000, .00000, .00000,
3801 + .00005, .00001, .00000, .00000, .00000,
3802 + .00000, .00000, .00000,
3803 + .00005, .00001, .00000, .00000, .00000,
3804 + .00000, .00000, .00000,
3805 + .00004, .00001, .00000, .00000, .00000,
3806 + .00000, .00000, .00000 /
3807 data xx/1d-5,2d-5,4d-5,6d-5,8d-5,
3808 . 1d-4,2d-4,4d-4,6d-4,8d-4,
3809 . 1d-3,2d-3,4d-3,6d-3,8d-3,
3810 . 1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2,
3811 . .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0,
3812 . .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0,
3813 . .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0,
3814 . .8d0,.9d0,1d0/
3815 data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1,
3816 . 1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2,
3817 . 1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4,
3818 . 1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6,
3819 . 1.8d6,3.2d6,5.6d6,1d7/
3820 data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/
3821 data n0/3,4,5,9,9,9,9,9/
3822 DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
3823 data init/0/
3824 save
3825 xsave=x
3826 q2save=qsq
3827 if(init.ne.0) goto 10
3828C open(unit=1,file='ft23a.dat',status='old')
3829 do 20 n=1,nx-1
3830 do 20 m=1,nq
3831C read(1,50)f(1,n,m),f(2,n,m),f(3,n,m),f(4,n,m),
3832C . f(5,n,m),f(7,n,m),f(6,n,m),f(8,n,m)
3833c notation: 1=uval 2=val 3=glue 4=usea 5=chm 6=str 7=btm 8=dsea
3834 do 25 i=1,np
3835 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i)
3836 20 continue
3837 do 31 j=1,ntenth-1
3838 xx(j)= log10(xx(j)/xx(ntenth))+xx(ntenth)
3839 do 31 i=1,8
3840 if(i.eq.5.or.i.eq.7) goto 31
3841 do 30 k=1,nq
3842 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k)
3843 31 continue
3844 50 format(8f10.5)
3845 do 40 i=1,np
3846 do 40 m=1,nq
3847 40 f(i,nx,m)=ZEROD
3848 init=1
3849 10 continue
3850 if(x.lt.xmin) x=xmin
3851 if(x.gt.xmax) x=xmax
3852 if(qsq.lt.qsqmin) qsq=qsqmin
3853 if(qsq.gt.qsqmax) qsq=qsqmax
3854 xxx=x
3855 if(x.lt.xx(ntenth)) xxx= log10(x/xx(ntenth))+xx(ntenth)
3856 n=0
3857 70 n=n+1
3858 if(xxx.gt.xx(n+1)) goto 70
3859 a=(xxx-xx(n))/(xx(n+1)-xx(n))
3860 m=0
3861 80 m=m+1
3862 if(qsq.gt.qq(m+1)) goto 80
3863 b=(qsq-qq(m))/(qq(m+1)-qq(m))
3864 do 60 i=1,np
3865 g(i)=(ONED-a)*(ONED-b)*f(i,n,m) + (ONED-a)*b*f(i,n,m+1)
3866 . + a*(ONED-b)*f(i,n+1,m) + a*b*f(i,n+1,m+1)
3867 if(n.ge.ntenth) goto 65
3868 if(i.eq.5.or.i.eq.7) goto 65
3869 fac=(ONED-b)*f(i,ntenth,m)+b*f(i,ntenth,m+1)
3870 g(i)=fac*10d0**(g(i)-fac)
3871 65 continue
3872 g(i)=g(i)*(ONED-x)**n0(i)
3873 60 continue
3874 upv=g(1)
3875 dnv=g(2)
3876 usea=g(4)
3877 dsea=g(8)
3878 str=g(6)
3879 chm=g(5)
3880 glu=g(3)
3881 bot=g(7)
3882 x=xsave
3883 qsq=q2save
3884 return
3885 end
3886
3887