]> git.uio.no Git - u/mrichter/AliRoot.git/blame - PDF/spdf/sfmrs_99a7.F
git://git.uio.no / u / mrichter / AliRoot.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Default shish-kebab geometry for EMCAL
[u/mrichter/AliRoot.git] / PDF / spdf / sfmrs_99a7.F
CommitLineData
21886bb6 1#include "pdf/pilot.h"
2 subroutine sfmrs_99a7(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 + .00593, .00280, 1.09369, .87912, .00000,
17 + .00000, .46847, .89226,
18 + .00610, .00287, 2.29498, .91211, .00000,
19 + .00000, .50661, .92529,
20 + .00636, .00298, 4.72222, .98369, .00000,
21 + .00000, .58551, .99693,
22 + .00655, .00306, 6.96486, 1.05413, .02936,
23 + .00000, .66107, 1.06741,
24 + .00674, .00315, 9.68380, 1.14571, .13789,
25 + .00000, .75782, 1.15901,
26 + .00691, .00322, 12.49986, 1.23979, .24423,
27 + .00000, .85625, 1.25310,
28 + .00708, .00329, 15.67183, 1.34237, .35728,
29 + .00000, .96291, 1.35569,
30 + .00726, .00337, 19.56554, 1.46536, .49404,
31 + .00000, 1.09011, 1.47868 /
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 + .00741, .00344, 23.32154, 1.58705, .61908,
34 + .00000, 1.21540, 1.60037,
35 + .00756, .00351, 27.41296, 1.71554, .75647,
36 + .00000, 1.34729, 1.72885,
37 + .00768, .00357, 30.95137, 1.82626, .87326,
38 + .00000, 1.46065, 1.83957,
39 + .00793, .00369, 39.25506, 2.08950, 1.15028,
40 + .00466, 1.72939, 2.10279,
41 + .00815, .00379, 47.12934, 2.34543, 1.41787,
42 + .28738, 1.98989, 2.35868,
43 + .00839, .00391, 56.98521, 2.66576, 1.75244,
44 + .68391, 2.31521, 2.67898,
45 + .00865, .00403, 68.62319, 3.03924, 2.14154,
46 + 1.09096, 2.69373, 3.05242,
47 + .00889, .00415, 80.41689, 3.41436, 2.53211,
48 + 1.50154, 3.07330, 3.42750 /
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 + .00913, .00427, 93.57658, 3.83068, 2.96523,
51 + 1.95401, 3.49399, 3.84376,
52 + .00933, .00437, 105.33086, 4.20475, 3.34937,
53 + 2.34389, 3.87162, 4.21779,
54 + .00958, .00449, 120.84866, 4.69590, 3.85620,
55 + 2.86617, 4.36698, 4.70888,
56 + .00980, .00460, 135.75476, 5.16636, 4.34270,
57 + 3.36989, 4.84108, 5.17929,
58 + .01000, .00470, 150.25150, 5.62677, 4.81552,
59 + 3.85331, 5.30477, 5.63965,
60 + .01026, .00484, 169.94716, 6.25328, 5.45898,
61 + 4.51255, 5.93534, 6.26609,
62 + .01051, .00496, 189.86986, 6.88793, 6.11138,
63 + 5.18260, 6.57372, 6.90067,
64 + .01074, .00508, 209.68399, 7.52259, 6.76220,
65 + 5.84874, 7.21180, 7.53526 /
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 + .01098, .00520, 230.52727, 8.19515, 7.44988,
68 + 6.54999, 7.88772, 8.20776,
69 + .01121, .00532, 252.21912, 8.89581, 8.16816,
70 + 7.28588, 8.59159, 8.90836,
71 + .01143, .00544, 273.55798, 9.59245, 8.87898,
72 + 8.00934, 9.29121, 9.60493,
73 + .01164, .00555, 294.69269, 10.28429, 9.58607,
74 + 8.73129, 9.98582, 10.29670,
75 + .01185, .00566, 316.73856, 11.01149, 10.32786,
76 + 9.48672, 10.71575, 11.02384,
77 + .01206, .00577, 339.29648, 11.75987, 11.09115,
78 + 10.26433, 11.46677, 11.77216,
79 + .01226, .00587, 361.51331, 12.50201, 11.84730,
80 + 11.03385, 12.21138, 12.51424,
81 + .01246, .00597, 383.27066, 13.23269, 12.59182,
82 + 11.79191, 12.94437, 13.24486 /
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 + .01265, .00608, 405.79202, 13.99540, 13.36755,
85 + 12.57994, 13.70936, 14.00751,
86 + .01284, .00618, 428.90662, 14.78026, 14.16709,
87 + 13.39426, 14.49644, 14.79231,
88 + .01303, .00628, 451.25125, 15.54827, 14.94683,
89 + 14.18491, 15.26656, 15.56027,
90 + .01321, .00637, 473.35059, 16.30805, 15.72011,
91 + 14.97187, 16.02830, 16.31999,
92 + .01339, .00647, 495.92761, 17.09321, 16.51702,
93 + 15.78000, 16.81541, 17.10510 /
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 + .00794, .00376, 1.01377, .74405, .00000,
96 + .00000, .39571, .75167,
97 + .00818, .00386, 2.09677, .77480, .00000,
98 + .00000, .43050, .78245,
99 + .00854, .00402, 4.24036, .83849, .00000,
100 + .00000, .49993, .84616,
101 + .00880, .00414, 6.18156, .89940, .02516,
102 + .00000, .56484, .90708,
103 + .00907, .00427, 8.49604, .97715, .11712,
104 + .00000, .64663, .98485,
105 + .00930, .00438, 10.85960, 1.05600, .20632,
106 + .00000, .72887, 1.06370,
107 + .00953, .00448, 13.49044, 1.14123, .30015,
108 + .00000, .81727, 1.14893,
109 + .00977, .00460, 16.68235, 1.24256, .41265,
110 + .00000, .92189, 1.25027 /
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 + .00998, .00470, 19.72540, 1.34184, .51452,
113 + .00000, 1.02397, 1.34955,
114 + .01018, .00480, 23.01028, 1.44605, .62574,
115 + .00000, 1.13081, 1.45376,
116 + .01034, .00488, 25.82768, 1.53532, .71968,
117 + .00000, 1.22213, 1.54301,
118 + .01069, .00505, 32.36455, 1.74587, .94065,
119 + .00392, 1.43695, 1.75355,
120 + .01099, .00519, 38.47684, 1.94864, 1.15199,
121 + .22681, 1.64327, 1.95632,
122 + .01132, .00536, 46.03140, 2.20023, 1.41381,
123 + .53746, 1.89871, 2.20788,
124 + .01168, .00554, 54.83932, 2.49081, 1.71536,
125 + .85256, 2.19319, 2.49844,
126 + .01200, .00570, 63.65927, 2.78011, 2.01536,
127 + 1.16748, 2.48594, 2.78772 /
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 + .01233, .00587, 73.39298, 3.09855, 2.34526,
130 + 1.51154, 2.80777, 3.10614,
131 + .01260, .00601, 81.99745, 3.38243, 2.63548,
132 + 1.80542, 3.09439, 3.38999,
133 + .01293, .00618, 93.25142, 3.75252, 3.01573,
134 + 2.19643, 3.46773, 3.76005,
135 + .01323, .00634, 103.96005, 4.10446, 3.37810,
136 + 2.57083, 3.82248, 4.11196,
137 + .01350, .00648, 114.28291, 4.44653, 3.72784,
138 + 2.92753, 4.16708, 4.45401,
139 + .01385, .00666, 128.18306, 4.90878, 4.20053,
140 + 3.41063, 4.63247, 4.91623,
141 + .01419, .00683, 142.11301, 5.37363, 4.67635,
142 + 3.89815, 5.10019, 5.38104,
143 + .01450, .00700, 155.84567, 5.83527, 5.14776,
144 + 4.37943, 5.56448, 5.84265 /
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 + .01481, .00717, 170.16934, 6.32123, 5.64255,
147 + 4.88265, 6.05302, 6.32858,
148 + .01513, .00733, 184.96431, 6.82444, 6.15635,
149 + 5.40776, 6.55871, 6.83176,
150 + .01542, .00749, 199.40181, 7.32159, 6.66157,
151 + 5.92057, 7.05817, 7.32887,
152 + .01570, .00764, 213.60645, 7.81267, 7.16154,
153 + 6.42975, 7.55138, 7.81993,
154 + .01599, .00779, 228.32204, 8.32605, 7.68319,
155 + 6.95960, 8.06687, 8.33327,
156 + .01627, .00794, 243.28188, 8.85163, 8.21721,
157 + 7.50225, 8.59448, 8.85882,
158 + .01654, .00808, 257.92383, 9.37020, 8.74363,
159 + 8.03659, 9.11496, 9.37736,
160 + .01679, .00822, 272.18073, 9.87840, 9.25959,
161 + 8.56062, 9.62494, 9.88554 /
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 + .01705, .00836, 286.85123, 10.40638, 9.79466,
164 + 9.10276, 10.15469, 10.41349,
165 + .01731, .00850, 301.83295, 10.94745, 10.34399,
166 + 9.66090, 10.69748, 10.95453,
167 + .01756, .00863, 316.22681, 11.47437, 10.87707,
168 + 10.20001, 11.22602, 11.48142,
169 + .01780, .00876, 330.40469, 11.99381, 11.40404,
170 + 10.73503, 11.74698, 12.00084,
171 + .01804, .00889, 344.80646, 12.52822, 11.94464,
172 + 11.28185, 12.28291, 12.53523 /
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 + .01065, .00504, .94063, .62938, .00000,
175 + .00000, .33433, .63315,
176 + .01098, .00520, 1.91678, .65779, .00000,
177 + .00000, .36591, .66156,
178 + .01147, .00543, 3.80876, .71430, .00000,
179 + .00000, .42691, .71808,
180 + .01182, .00560, 5.48728, .76692, .02155,
181 + .00000, .48265, .77071,
182 + .01220, .00579, 7.45460, .83291, .09945,
183 + .00000, .55178, .83669,
184 + .01252, .00595, 9.43479, .89895, .17425,
185 + .00000, .62046, .90274,
186 + .01283, .00610, 11.61236, .96969, .25208,
187 + .00000, .69367, .97348,
188 + .01316, .00627, 14.22296, 1.05308, .34456,
189 + .00000, .77961, 1.05687 /
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 + .01345, .00642, 16.68192, 1.13394, .42749,
192 + .00000, .86263, 1.13773,
193 + .01372, .00656, 19.31194, 1.21830, .51743,
194 + .00000, .94904, 1.22209,
195 + .01394, .00667, 21.54858, 1.29011, .59290,
196 + .00000, 1.02244, 1.29390,
197 + .01442, .00691, 26.67790, 1.45811, .76894,
198 + .00330, 1.19373, 1.46189,
199 + .01482, .00712, 31.40513, 1.61834, .93562,
200 + .17893, 1.35670, 1.62211,
201 + .01528, .00736, 37.17269, 1.81533, 1.14017,
202 + .42218, 1.55666, 1.81909,
203 + .01576, .00761, 43.81026, 2.04066, 1.37345,
204 + .66593, 1.78500, 2.04442,
205 + .01620, .00784, 50.37632, 2.26299, 1.60340,
206 + .90730, 2.00998, 2.26674 /
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 + .01664, .00808, 57.54142, 2.50566, 1.85413,
209 + 1.16867, 2.25525, 2.50940,
210 + .01701, .00827, 63.80788, 2.72022, 2.07285,
211 + 1.38994, 2.47193, 2.72396,
212 + .01746, .00851, 71.92619, 2.99793, 2.35738,
213 + 1.68230, 2.75213, 3.00165,
214 + .01786, .00873, 79.57693, 3.26007, 2.62655,
215 + 1.96018, 3.01643, 3.26379,
216 + .01823, .00892, 86.88499, 3.51308, 2.88448,
217 + 2.22295, 3.27137, 3.51679,
218 + .01871, .00918, 96.63587, 3.85255, 3.23064,
219 + 2.57633, 3.61325, 3.85625,
220 + .01915, .00942, 106.31487, 4.19140, 3.57653,
221 + 2.93036, 3.95430, 4.19508,
222 + .01957, .00964, 115.77056, 4.52553, 3.91681,
223 + 3.27734, 4.29046, 4.52921 /
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 + .02000, .00987, 125.54707, 4.87486, 4.27150,
226 + 3.63759, 4.64176, 4.87852,
227 + .02041, .01010, 135.56781, 5.23437, 4.63765,
228 + 4.01136, 5.00318, 5.23803,
229 + .02081, .01032, 145.26491, 5.58725, 4.99529,
230 + 4.37387, 5.35782, 5.59090,
231 + .02118, .01052, 154.74101, 5.93392, 5.34736,
232 + 4.73197, 5.70612, 5.93756,
233 + .02156, .01073, 164.48814, 6.29430, 5.71263,
234 + 5.10248, 6.06812, 6.29794,
235 + .02194, .01093, 174.33119, 6.66128, 6.08462,
236 + 5.47998, 6.43666, 6.66491,
237 + .02230, .01113, 183.90256, 7.02151, 6.44943,
238 + 5.84978, 6.79835, 7.02513,
239 + .02264, .01132, 193.16708, 7.37286, 6.80535,
240 + 6.21078, 7.15106, 7.37648 /
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 + .02298, .01151, 202.64172, 7.73613, 7.17265,
243 + 6.58241, 7.51569, 7.73974,
244 + .02333, .01169, 212.26840, 8.10684, 7.54822,
245 + 6.96355, 7.88772, 8.11045,
246 + .02366, .01188, 221.45680, 8.46606, 7.91083,
247 + 7.32971, 8.24818, 8.46966,
248 + .02397, .01205, 230.47055, 8.81895, 8.26811,
249 + 7.69202, 8.60222, 8.82254,
250 + .02429, .01223, 239.57101, 9.18033, 8.63290,
251 + 8.06048, 8.96477, 9.18392 /
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 + .01265, .00599, .90107, .57051, .00000,
254 + .00000, .30301, .57268,
255 + .01304, .00619, 1.81963, .59752, .00000,
256 + .00000, .33277, .59970,
257 + .01363, .00648, 3.57782, .65015, .00000,
258 + .00000, .38928, .65232,
259 + .01406, .00670, 5.11861, .69843, .01968,
260 + .00000, .44027, .70061,
261 + .01451, .00692, 6.90611, .75835, .09035,
262 + .00000, .50291, .76053,
263 + .01489, .00712, 8.68982, .81786, .15781,
264 + .00000, .56469, .82004,
265 + .01527, .00732, 10.63718, .88126, .22755,
266 + .00000, .63023, .88344,
267 + .01566, .00752, 12.95520, .95561, .30998,
268 + .00000, .70677, .95779 /
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 + .01601, .00770, 15.12282, 1.02725, .38346,
271 + .00000, .78028, 1.02943,
272 + .01634, .00788, 17.42855, 1.10173, .46285,
273 + .00000, .85652, 1.10391,
274 + .01661, .00801, 19.37945, 1.16488, .52921,
275 + .00000, .92104, 1.16706,
276 + .01717, .00831, 23.82242, 1.31190, .68321,
277 + .00299, 1.07090, 1.31408,
278 + .01766, .00857, 27.88165, 1.45130, .82815,
279 + .15570, 1.21265, 1.45348,
280 + .01821, .00886, 32.79590, 1.62174, 1.00504,
281 + .36643, 1.38564, 1.62392,
282 + .01878, .00917, 38.40767, 1.81558, 1.20557,
283 + .57609, 1.58206, 1.81776,
284 + .01931, .00945, 43.91859, 2.00580, 1.40216,
285 + .78256, 1.77455, 2.00797 /
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 + .01984, .00973, 49.89189, 2.21237, 1.61543,
288 + 1.00497, 1.98336, 2.21455,
289 + .02028, .00997, 55.08252, 2.39413, 1.80054,
290 + 1.19225, 2.16692, 2.39630,
291 + .02082, .01026, 61.76888, 2.62835, 2.04032,
292 + 1.43867, 2.40328, 2.63053,
293 + .02129, .01052, 68.03386, 2.84848, 2.26615,
294 + 1.67188, 2.62526, 2.85066,
295 + .02173, .01076, 73.98544, 3.06004, 2.48164,
296 + 1.89141, 2.83847, 3.06222,
297 + .02230, .01107, 81.88290, 3.34270, 2.76961,
298 + 2.18540, 3.12319, 3.34488,
299 + .02283, .01136, 89.67739, 3.62359, 3.05611,
300 + 2.47864, 3.40596, 3.62577,
301 + .02333, .01164, 97.25059, 3.89939, 3.33675,
302 + 2.76481, 3.68350, 3.90158 /
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 + .02383, .01191, 105.03940, 4.18656, 3.62807,
305 + 3.06067, 3.97235, 4.18874,
306 + .02432, .01218, 112.98611, 4.48103, 3.92775,
307 + 3.36658, 4.26844, 4.48321,
308 + .02479, .01244, 120.63712, 4.76892, 4.21929,
309 + 3.66204, 4.55785, 4.77111,
310 + .02524, .01269, 128.08334, 5.05084, 4.50539,
311 + 3.95301, 4.84116, 5.05303,
312 + .02569, .01294, 135.70959, 5.34292, 4.80122,
313 + 4.25304, 5.13462, 5.34512,
314 + .02613, .01318, 143.37973, 5.63941, 5.10154,
315 + 4.55777, 5.43244, 5.64161,
316 + .02656, .01342, 150.80899, 5.92954, 5.39516,
317 + 4.85536, 5.72382, 5.93175,
318 + .02696, .01364, 157.97444, 6.21173, 5.68083,
319 + 5.14507, 6.00717, 6.21394 /
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 + .02737, .01387, 165.27484, 6.50264, 5.97476,
322 + 5.44242, 6.29923, 6.50485,
323 + .02777, .01409, 172.66954, 6.79877, 6.27461,
324 + 5.74668, 6.59649, 6.80099,
325 + .02816, .01431, 179.69943, 7.08485, 6.56319,
326 + 6.03803, 6.88363, 7.08707,
327 + .02853, .01452, 186.57898, 7.36532, 6.84700,
328 + 6.32581, 7.16509, 7.36754,
329 + .02891, .01473, 193.49869, 7.65173, 7.13593,
330 + 6.61758, 7.45249, 7.65396 /
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 + .01429, .00677, .87452, .53203, .00000,
333 + .00000, .28262, .53333,
334 + .01474, .00700, 1.75429, .55805, .00000,
335 + .00000, .31113, .55936,
336 + .01541, .00735, 3.42307, .60805, .00000,
337 + .00000, .36465, .60936,
338 + .01590, .00760, 4.87264, .65346, .01845,
339 + .00000, .41250, .65477,
340 + .01641, .00787, 6.54192, .70940, .08440,
341 + .00000, .47090, .71071,
342 + .01685, .00810, 8.19731, .76466, .14707,
343 + .00000, .52821, .76597,
344 + .01728, .00832, 9.99520, .82330, .21157,
345 + .00000, .58877, .82461,
346 + .01773, .00856, 12.12433, .89180, .28752,
347 + .00000, .65926, .89312 /
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 + .01812, .00877, 14.10491, .95752, .35494,
350 + .00000, .72665, .95884,
351 + .01850, .00897, 16.20340, 1.02566, .42757,
352 + .00000, .79637, 1.02697,
353 + .01880, .00913, 17.97246, 1.08327, .48812,
354 + .00000, .85522, 1.08459,
355 + .01945, .00948, 21.98110, 1.21692, .62812,
356 + .00278, .99142, 1.21825,
357 + .02000, .00978, 25.62050, 1.34311, .75932,
358 + .14103, 1.11972, 1.34443,
359 + .02062, .01011, 30.00189, 1.49678, .91878,
360 + .33131, 1.27568, 1.49811,
361 + .02127, .01047, 34.97718, 1.67081, 1.09881,
362 + .51966, 1.45203, 1.67215,
363 + .02187, .01079, 39.83741, 1.84092, 1.27459,
364 + .70441, 1.62419, 1.84227 /
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 + .02247, .01112, 45.07981, 2.02500, 1.46459,
367 + .90266, 1.81026, 2.02635,
368 + .02297, .01139, 49.61412, 2.18638, 1.62891,
369 + 1.06897, 1.97326, 2.18773,
370 + .02358, .01173, 55.43111, 2.39370, 1.84109,
371 + 1.28714, 2.18250, 2.39507,
372 + .02412, .01202, 60.85882, 2.58793, 2.04032,
373 + 1.49296, 2.37839, 2.58930,
374 + .02462, .01230, 65.99456, 2.77403, 2.22982,
375 + 1.68608, 2.56597, 2.77541,
376 + .02526, .01265, 72.78240, 3.02191, 2.48230,
377 + 1.94393, 2.81569, 3.02330,
378 + .02586, .01298, 79.45409, 3.26745, 2.73269,
379 + 2.20031, 3.06292, 3.26885,
380 + .02642, .01329, 85.91076, 3.50781, 2.97721,
381 + 2.44972, 3.30483, 3.50922 /
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 + .02699, .01361, 92.52569, 3.75733, 3.23028,
384 + 2.70680, 3.55587, 3.75875,
385 + .02755, .01392, 99.25246, 4.01253, 3.48995,
386 + 2.97196, 3.81252, 4.01396,
387 + .02808, .01421, 105.70480, 4.26133, 3.74184,
388 + 3.22728, 4.06266, 4.26276,
389 + .02858, .01449, 111.96591, 4.50439, 3.98846,
390 + 3.47817, 4.30697, 4.50583,
391 + .02908, .01478, 118.35835, 4.75560, 4.24285,
392 + 3.73622, 4.55941, 4.75706,
393 + .02958, .01506, 124.76872, 5.01002, 4.50051,
394 + 3.99773, 4.81502, 5.01148,
395 + .03006, .01532, 130.96004, 5.25843, 4.75188,
396 + 4.25255, 5.06455, 5.25991,
397 + .03052, .01558, 136.91595, 5.49954, 4.99593,
398 + 4.50012, 5.30670, 5.50103 /
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 + .03098, .01584, 142.96730, 5.74759, 5.24652,
401 + 4.75366, 5.55578, 5.74909,
402 + .03143, .01609, 149.08351, 5.99963, 5.50171,
403 + 5.01267, 5.80883, 6.00114,
404 + .03187, .01634, 154.88031, 6.24259, 5.74676,
405 + 5.26010, 6.05274, 6.24411,
406 + .03228, .01657, 160.54361, 6.48042, 5.98742,
407 + 5.50419, 6.29146, 6.48196,
408 + .03270, .01681, 166.22397, 6.72281, 6.23191,
409 + 5.75112, 6.53473, 6.72435 /
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 + .01570, .00745, .85486, .50394, .00000,
412 + .00000, .26778, .50471,
413 + .01621, .00771, 1.70569, .52920, .00000,
414 + .00000, .29534, .52997,
415 + .01695, .00810, 3.30810, .57723, .00000,
416 + .00000, .34664, .57800,
417 + .01749, .00839, 4.69038, .62052, .01755,
418 + .00000, .39219, .62130,
419 + .01806, .00869, 6.27295, .67355, .08004,
420 + .00000, .44749, .67433,
421 + .01855, .00895, 7.83469, .72571, .13923,
422 + .00000, .50154, .72649,
423 + .01902, .00920, 9.52392, .78089, .19993,
424 + .00000, .55850, .78167,
425 + .01952, .00947, 11.51634, .84516, .27118,
426 + .00000, .62460, .84595 /
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 + .01995, .00970, 13.36212, .90660, .33423,
429 + .00000, .68759, .90739,
430 + .02037, .00993, 15.31173, .97016, .40201,
431 + .00000, .75262, .97096,
432 + .02070, .01011, 16.95057, 1.02380, .45839,
433 + .00000, .80739, 1.02460,
434 + .02141, .01049, 20.64946, 1.14787, .58837,
435 + .00263, .93381, 1.14868,
436 + .02203, .01083, 23.99100, 1.26461, .70977,
437 + .13058, 1.05250, 1.26542,
438 + .02271, .01120, 27.99609, 1.40633, .85686,
439 + .30634, 1.19634, 1.40716,
440 + .02343, .01160, 32.52406, 1.56631, 1.02236,
441 + .47961, 1.35845, 1.56715,
442 + .02409, .01196, 36.92902, 1.72221, 1.18346,
443 + .64905, 1.51622, 1.72306 /
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 + .02475, .01232, 41.66219, 1.89041, 1.35710,
446 + .83034, 1.68627, 1.89128,
447 + .02530, .01263, 45.74099, 2.03746, 1.50683,
448 + .98196, 1.83481, 2.03834,
449 + .02597, .01300, 50.95682, 2.22593, 1.69971,
450 + 1.18040, 2.02504, 2.22681,
451 + .02657, .01333, 55.80763, 2.40204, 1.88037,
452 + 1.36714, 2.20268, 2.40294,
453 + .02712, .01364, 60.38308, 2.57038, 2.05179,
454 + 1.54191, 2.37238, 2.57129,
455 + .02782, .01403, 66.41145, 2.79407, 2.27963,
456 + 1.77471, 2.59776, 2.79499,
457 + .02848, .01440, 72.31745, 3.01508, 2.50503,
458 + 2.00561, 2.82032, 3.01603,
459 + .02910, .01474, 78.01519, 3.23092, 2.72461,
460 + 2.22968, 3.03759, 3.23188 /
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 + .02972, .01509, 83.83485, 3.45446, 2.95134,
463 + 2.46008, 3.26252, 3.45544,
464 + .03034, .01544, 89.73749, 3.68262, 3.18351,
465 + 2.69727, 3.49201, 3.68361,
466 + .03092, .01576, 95.38264, 3.90455, 3.40821,
467 + 2.92511, 3.71518, 3.90556,
468 + .03147, .01607, 100.84777, 4.12097, 3.62783,
469 + 3.14862, 3.93275, 4.12200,
470 + .03203, .01638, 106.41362, 4.34423, 3.85392,
471 + 3.37805, 4.15713, 4.34527,
472 + .03257, .01669, 111.98215, 4.56992, 4.08251,
473 + 3.61014, 4.38392, 4.57098,
474 + .03310, .01699, 117.34817, 4.78990, 4.30512,
475 + 3.83589, 4.60493, 4.79097,
476 + .03359, .01727, 122.49950, 5.00308, 4.52092,
477 + 4.05488, 4.81906, 5.00417 /
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 + .03410, .01755, 127.72186, 5.22202, 4.74212,
480 + 4.27876, 5.03895, 5.22312,
481 + .03460, .01783, 132.99103, 5.44418, 4.96709,
482 + 4.50718, 5.26204, 5.44530,
483 + .03507, .01810, 137.97316, 5.65796, 5.18272,
484 + 4.72497, 5.47669, 5.65910,
485 + .03553, .01836, 142.83395, 5.86699, 5.39427,
486 + 4.93962, 5.68653, 5.86814,
487 + .03599, .01862, 147.69849, 6.07968, 5.60883,
488 + 5.15638, 5.90003, 6.08084 /
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 + .02110, .01006, .79955, .42566, .00000,
491 + .00000, .22670, .42546,
492 + .02179, .01044, 1.56655, .44856, .00000,
493 + .00000, .25144, .44838,
494 + .02281, .01101, 2.97826, .49087, .00000,
495 + .00000, .29632, .49070,
496 + .02355, .01142, 4.16926, .52812, .01500,
497 + .00000, .33537, .52797,
498 + .02433, .01185, 5.50773, .57298, .06780,
499 + .00000, .38202, .57284,
500 + .02500, .01223, 6.80804, .61650, .11731,
501 + .00000, .42704, .61638,
502 + .02564, .01259, 8.19624, .66210, .16749,
503 + .00000, .47405, .66200,
504 + .02633, .01297, 9.81266, .71471, .22586,
505 + .00000, .52811, .71463 /
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 + .02692, .01330, 11.29045, .76444, .27696,
508 + .00000, .57905, .76437,
509 + .02749, .01363, 12.83607, .81554, .33153,
510 + .00000, .63131, .81549,
511 + .02795, .01388, 14.12340, .85836, .37660,
512 + .00000, .67502, .85832,
513 + .02892, .01443, 16.99238, .95651, .47958,
514 + .00221, .77502, .95650,
515 + .02975, .01490, 19.54307, 1.04788, .57473,
516 + .10264, .86792, 1.04790,
517 + .03068, .01543, 22.55730, 1.15769, .68888,
518 + .23974, .97939, 1.15774,
519 + .03166, .01599, 25.91726, 1.28034, .81595,
520 + .37319, 1.10372, 1.28043,
521 + .03255, .01649, 29.14284, 1.39869, .93843,
522 + .50241, 1.22354, 1.39881 /
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 + .03344, .01700, 32.56649, 1.52522, 1.06924,
525 + .63939, 1.35151, 1.52538,
526 + .03419, .01743, 35.48193, 1.63485, 1.18101,
527 + .75285, 1.46230, 1.63503,
528 + .03510, .01794, 39.17186, 1.77425, 1.32389,
529 + .90026, 1.60308, 1.77447,
530 + .03590, .01840, 42.56770, 1.90350, 1.45666,
531 + 1.03790, 1.73351, 1.90375,
532 + .03664, .01882, 45.73826, 2.02608, 1.58166,
533 + 1.16566, 1.85716, 2.02636,
534 + .03758, .01936, 49.87381, 2.18773, 1.74654,
535 + 1.33456, 2.02013, 2.18805,
536 + .03846, .01987, 53.88319, 2.34617, 1.90836,
537 + 1.50077, 2.17978, 2.34653,
538 + .03930, .02035, 57.71231, 2.49972, 2.06479,
539 + 1.66080, 2.33444, 2.50011 /
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 + .04013, .02082, 61.58481, 2.65755, 2.22509,
542 + 1.82409, 2.49336, 2.65798,
543 + .04095, .02129, 65.47977, 2.81760, 2.38821,
544 + 1.99115, 2.65445, 2.81807,
545 + .04173, .02174, 69.16900, 2.97217, 2.54491,
546 + 2.15041, 2.80998, 2.97268,
547 + .04246, .02216, 72.71396, 3.12202, 2.69720,
548 + 2.30577, 2.96073, 3.12257,
549 + .04320, .02258, 76.29505, 3.27566, 2.85301,
550 + 2.46425, 3.11525, 3.27624,
551 + .04393, .02300, 79.85084, 3.43009, 3.00965,
552 + 2.62366, 3.27053, 3.43070,
553 + .04462, .02340, 83.25208, 3.57976, 3.16134,
554 + 2.77783, 3.42100, 3.58041,
555 + .04528, .02378, 86.49535, 3.72406, 3.30764,
556 + 2.92664, 3.56605, 3.72474 /
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 + .04595, .02416, 89.75961, 3.87147, 3.45679,
559 + 3.07793, 3.71420, 3.87219,
560 + .04661, .02454, 93.03490, 4.02039, 3.60783,
561 + 3.23165, 3.86384, 4.02114,
562 + .04724, .02490, 96.10690, 4.16289, 3.75175,
563 + 3.37731, 4.00701, 4.16367,
564 + .04784, .02525, 99.09173, 4.30171, 3.89249,
565 + 3.52044, 4.14648, 4.30253,
566 + .04845, .02560, 102.05600, 4.44223, 4.03444,
567 + 3.66416, 4.28762, 4.44307 /
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 + .02840, .01369, .75536, .35964, .00000,
570 + .00000, .19239, .35940,
571 + .02936, .01425, 1.44719, .38025, .00000,
572 + .00000, .21449, .38004,
573 + .03077, .01506, 2.68906, .41733, .00000,
574 + .00000, .25366, .41718,
575 + .03179, .01566, 3.71236, .44927, .01279,
576 + .00000, .28705, .44916,
577 + .03285, .01628, 4.83995, .48708, .05728,
578 + .00000, .32631, .48701,
579 + .03377, .01681, 5.91732, .52325, .09854,
580 + .00000, .36370, .52322,
581 + .03465, .01733, 7.05172, .56078, .13989,
582 + .00000, .40236, .56079,
583 + .03558, .01787, 8.35474, .60365, .18751,
584 + .00000, .44640, .60370 /
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 + .03639, .01835, 9.52942, .64368, .22875,
587 + .00000, .48742, .64377,
588 + .03718, .01880, 10.74531, .68453, .27248,
589 + .00000, .52920, .68466,
590 + .03780, .01917, 11.74818, .71851, .30833,
591 + .00000, .56390, .71867,
592 + .03912, .01994, 13.95335, .79564, .38950,
593 + .00185, .64254, .79586,
594 + .04025, .02060, 15.88054, .86664, .46366,
595 + .08031, .71477, .86691,
596 + .04152, .02135, 18.12384, .95106, .55168,
597 + .18674, .80053, .95141,
598 + .04284, .02212, 20.58721, 1.04431, .64860,
599 + .28898, .89513, 1.04472,
600 + .04404, .02282, 22.91889, 1.13335, .74105,
601 + .38698, .98536, 1.13382 /
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 + .04525, .02353, 25.36160, 1.22762, .83884,
604 + .48985, 1.08081, 1.22816,
605 + .04625, .02412, 27.41523, 1.30852, .92159,
606 + .57421, 1.16264, 1.30912,
607 + .04747, .02484, 29.98607, 1.41056, 1.02653,
608 + .68296, 1.26580, 1.41122,
609 + .04856, .02547, 32.32563, 1.50437, 1.12324,
610 + .78368, 1.36057, 1.50510,
611 + .04955, .02605, 34.48604, 1.59262, 1.21353,
612 + .87637, 1.44969, 1.59340,
613 + .05081, .02679, 37.27366, 1.70806, 1.33167,
614 + .99793, 1.56619, 1.70891,
615 + .05199, .02748, 39.94604, 1.82025, 1.44666,
616 + 1.11657, 1.67937, 1.82117,
617 + .05310, .02813, 42.47043, 1.92810, 1.55691,
618 + 1.22985, 1.78812, 1.92909 /
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 + .05422, .02878, 44.99600, 2.03807, 1.66899,
621 + 1.34450, 1.89897, 2.03913,
622 + .05531, .02942, 47.51360, 2.14884, 1.78227,
623 + 1.46105, 2.01058, 2.14996,
624 + .05634, .03002, 49.87281, 2.25498, 1.89024,
625 + 1.57124, 2.11751, 2.25617,
626 + .05731, .03059, 52.12160, 2.35727, 1.99455,
627 + 1.67812, 2.22052, 2.35851,
628 + .05829, .03117, 54.37295, 2.46145, 2.10056,
629 + 1.78640, 2.32542, 2.46275,
630 + .05926, .03173, 56.59001, 2.56552, 2.20650,
631 + 1.89467, 2.43019, 2.56689,
632 + .06018, .03226, 58.69339, 2.66580, 2.30847,
633 + 1.99875, 2.53111, 2.66722,
634 + .06105, .03277, 60.68434, 2.76195, 2.40629,
635 + 2.09867, 2.62787, 2.76342 /
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 + .06193, .03328, 62.67190, 2.85961, 2.50543,
638 + 2.19965, 2.72614, 2.86114,
639 + .06280, .03379, 64.65436, 2.95782, 2.60539,
640 + 2.30183, 2.82493, 2.95940,
641 + .06363, .03427, 66.49650, 3.05120, 2.70002,
642 + 2.39799, 2.91887, 3.05284,
643 + .06442, .03473, 68.27868, 3.14185, 2.79225,
644 + 2.49220, 3.01005, 3.14354,
645 + .06521, .03520, 70.03294, 3.23307, 2.88471,
646 + 2.58619, 3.10178, 3.23481 /
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 + .03387, .01652, .73674, .32622, .00000,
649 + .00000, .17513, .32627,
650 + .03502, .01720, 1.38833, .34552, .00000,
651 + .00000, .19576, .34563,
652 + .03672, .01821, 2.53917, .37974, .00000,
653 + .00000, .23186, .37994,
654 + .03795, .01894, 3.47358, .40886, .01162,
655 + .00000, .26228, .40912,
656 + .03923, .01971, 4.49066, .44297, .05177,
657 + .00000, .29769, .44329,
658 + .04033, .02036, 5.45239, .47534, .08877,
659 + .00000, .33114, .47572,
660 + .04139, .02100, 6.45633, .50871, .12558,
661 + .00000, .36554, .50915,
662 + .04251, .02167, 7.59977, .54661, .16772,
663 + .00000, .40449, .54712 /
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 + .04348, .02225, 8.62160, .58173, .20398,
666 + .00000, .44049, .58229,
667 + .04442, .02281, 9.67246, .61742, .24226,
668 + .00000, .47702, .61804,
669 + .04517, .02325, 10.53396, .64698, .27350,
670 + .00000, .50722, .64763,
671 + .04675, .02419, 12.41239, .71366, .34383,
672 + .00166, .57526, .71441,
673 + .04810, .02500, 14.03638, .77461, .40765,
674 + .06931, .63731, .77543,
675 + .04962, .02590, 15.90889, .84661, .48292,
676 + .16072, .71052, .84753,
677 + .05119, .02684, 17.94589, .92558, .56521,
678 + .24783, .79071, .92659,
679 + .05262, .02769, 19.85700, 1.00050, .64323,
680 + .33081, .86671, 1.00160 /
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 + .05406, .02855, 21.84273, 1.07935, .72525,
683 + .41739, .94662, 1.08055,
684 + .05526, .02925, 23.49865, 1.14661, .79424,
685 + .48796, 1.01473, 1.14788,
686 + .05671, .03011, 25.55742, 1.23102, .88130,
687 + .57850, 1.10015, 1.23239,
688 + .05799, .03088, 27.41780, 1.30823, .96113,
689 + .66193, 1.17822, 1.30967,
690 + .05917, .03157, 29.12367, 1.38048, 1.03527,
691 + .73830, 1.25126, 1.38200,
692 + .06066, .03245, 31.30977, 1.47452, 1.13179,
693 + .83797, 1.34627, 1.47614,
694 + .06206, .03328, 33.39062, 1.56544, 1.22526,
695 + .93474, 1.43808, 1.56715,
696 + .06337, .03406, 35.34251, 1.65239, 1.31441,
697 + 1.02667, 1.52585, 1.65419 /
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 + .06469, .03484, 37.28175, 1.74062, 1.40459,
700 + 1.11924, 1.61488, 1.74251,
701 + .06597, .03559, 39.20397, 1.82911, 1.49537,
702 + 1.21297, 1.70414, 1.83108,
703 + .06719, .03631, 40.99271, 1.91350, 1.58146,
704 + 1.30113, 1.78924, 1.91555,
705 + .06833, .03698, 42.68896, 1.99451, 1.66432,
706 + 1.38633, 1.87091, 1.99664,
707 + .06949, .03766, 44.37726, 2.07668, 1.74820,
708 + 1.47230, 1.95374, 2.07889,
709 + .07062, .03833, 46.03092, 2.15846, 1.83168,
710 + 1.55793, 2.03615, 2.16075,
711 + .07170, .03896, 47.59145, 2.23696, 1.91175,
712 + 1.63994, 2.11524, 2.23932,
713 + .07272, .03956, 49.06146, 2.31198, 1.98830,
714 + 1.71841, 2.19081, 2.31440 /
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 + .07375, .04016, 50.52103, 2.38789, 2.06560,
717 + 1.79741, 2.26728, 2.39039,
718 + .07476, .04076, 51.97138, 2.46401, 2.14332,
719 + 1.87715, 2.34395, 2.46658,
720 + .07573, .04132, 53.31041, 2.53611, 2.21659,
721 + 1.95186, 2.41655, 2.53874,
722 + .07666, .04186, 54.60260, 2.60595, 2.28786,
723 + 2.02492, 2.48686, 2.60865,
724 + .07759, .04241, 55.86669, 2.67596, 2.35903,
725 + 2.09752, 2.55735, 2.67872 /
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 + .03842, .01895, .72803, .30475, .00000,
728 + .00000, .16406, .30510,
729 + .03974, .01975, 1.35260, .32314, .00000,
730 + .00000, .18369, .32357,
731 + .04168, .02093, 2.44201, .35542, .00000,
732 + .00000, .21770, .35595,
733 + .04308, .02178, 3.31682, .38263, .01084,
734 + .00000, .24612, .38325,
735 + .04454, .02266, 4.26032, .41428, .04811,
736 + .00000, .27898, .41499,
737 + .04580, .02342, 5.14556, .44413, .08229,
738 + .00000, .30985, .44492,
739 + .04701, .02415, 6.06367, .47477, .11611,
740 + .00000, .34144, .47563,
741 + .04829, .02492, 7.10276, .50941, .15467,
742 + .00000, .37706, .51036 /
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 + .04939, .02559, 8.02526, .54135, .18769,
745 + .00000, .40982, .54236,
746 + .05046, .02623, 8.96941, .57369, .22243,
747 + .00000, .44294, .57477,
748 + .05131, .02674, 9.73991, .60038, .25070,
749 + .00000, .47024, .60151,
750 + .05310, .02782, 11.40933, .66034, .31406,
751 + .00154, .53146, .66159,
752 + .05464, .02875, 12.84088, .71485, .37126,
753 + .06227, .58701, .71620,
754 + .05636, .02978, 14.47974, .77894, .43840,
755 + .14410, .65223, .78040,
756 + .05814, .03085, 16.25006, .84887, .51144,
757 + .22162, .72331, .85045,
758 + .05976, .03182, 17.89993, .91490, .58035,
759 + .29513, .79034, .91659 /
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 + .06139, .03280, 19.60368, .98409, .65249,
762 + .37148, .86052, .98589,
763 + .06274, .03361, 21.01566, 1.04283, .71289,
764 + .43343, .92006, 1.04473,
765 + .06438, .03459, 22.76212, 1.11628, .78883,
766 + .51264, .99446, 1.11829,
767 + .06582, .03545, 24.33191, 1.18320, .85820,
768 + .58535, 1.06221, 1.18531,
769 + .06715, .03624, 25.76359, 1.24560, .92238,
770 + .65164, 1.12533, 1.24779,
771 + .06882, .03724, 27.58880, 1.32649, 1.00563,
772 + .73785, 1.20714, 1.32880,
773 + .07040, .03818, 29.31678, 1.40440, 1.08592,
774 + .82124, 1.28590, 1.40683,
775 + .07188, .03905, 30.92899, 1.47863, 1.16223,
776 + .90014, 1.36090, 1.48116 /
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 + .07335, .03993, 32.52217, 1.55367, 1.23912,
779 + .97930, 1.43669, 1.55630,
780 + .07479, .04078, 34.09464, 1.62869, 1.31629,
781 + 1.05922, 1.51244, 1.63143,
782 + .07615, .04159, 35.54992, 1.69998, 1.38919,
783 + 1.13410, 1.58440, 1.70280,
784 + .07744, .04234, 36.92458, 1.76821, 1.45918,
785 + 1.20627, 1.65326, 1.77113,
786 + .07873, .04310, 38.28658, 1.83722, 1.52979,
787 + 1.27887, 1.72289, 1.84023,
788 + .07999, .04385, 39.61507, 1.90569, 1.59988,
789 + 1.35097, 1.79196, 1.90880,
790 + .08120, .04456, 40.86355, 1.97123, 1.66691,
791 + 1.41983, 1.85807, 1.97443,
792 + .08234, .04523, 42.03522, 2.03371, 1.73083,
793 + 1.48556, 1.92107, 2.03698 /
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 + .08348, .04590, 43.19358, 2.09676, 1.79520,
796 + 1.55155, 1.98465, 2.10012,
797 + .08462, .04657, 44.34132, 2.15985, 1.85980,
798 + 1.61802, 2.04826, 2.16329,
799 + .08570, .04720, 45.39550, 2.21942, 1.92050,
800 + 1.68010, 2.10831, 2.22294,
801 + .08672, .04780, 46.41086, 2.27704, 1.97946,
802 + 1.74072, 2.16638, 2.28063,
803 + .08776, .04840, 47.39918, 2.33463, 2.03816,
804 + 1.80079, 2.22442, 2.33829 /
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 + .04243, .02127, .72628, .28990, .00000,
807 + .00000, .15620, .29028,
808 + .04390, .02216, 1.33061, .30759, .00000,
809 + .00000, .17504, .30807,
810 + .04605, .02348, 2.37343, .33837, .00000,
811 + .00000, .20744, .33899,
812 + .04761, .02444, 3.20313, .36414, .01025,
813 + .00000, .23433, .36485,
814 + .04923, .02542, 4.09116, .39392, .04533,
815 + .00000, .26525, .39474,
816 + .05063, .02627, 4.91891, .42188, .07738,
817 + .00000, .29415, .42279,
818 + .05197, .02709, 5.77274, .45047, .10897,
819 + .00000, .32363, .45147,
820 + .05338, .02795, 6.73393, .48268, .14486,
821 + .00000, .35675, .48377 /
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 + .05461, .02869, 7.58260, .51224, .17546,
824 + .00000, .38708, .51342,
825 + .05579, .02941, 8.44769, .54210, .20758,
826 + .00000, .41767, .54336,
827 + .05672, .02998, 9.15100, .56668, .23365,
828 + .00000, .44281, .56800,
829 + .05870, .03118, 10.66674, .62169, .29186,
830 + .00144, .49900, .62315,
831 + .06040, .03221, 11.95758, .67149, .34420,
832 + .05709, .54978, .67307,
833 + .06229, .03335, 13.42652, .72981, .40539,
834 + .13188, .60916, .73152,
835 + .06426, .03453, 15.00392, .79318, .47169,
836 + .20240, .67359, .79503,
837 + .06604, .03561, 16.46577, .85277, .53399,
838 + .26901, .73413, .85475 /
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 + .06783, .03668, 17.96750, .91498, .59898,
841 + .33794, .79727, .91709,
842 + .06931, .03757, 19.20560, .96761, .65319,
843 + .39366, .85065, .96982,
844 + .07111, .03865, 20.73031, 1.03321, .72115,
845 + .46470, .91714, 1.03555,
846 + .07269, .03960, 22.09465, 1.09279, .78302,
847 + .52971, .97749, 1.09525,
848 + .07414, .04046, 23.33324, 1.14816, .84008,
849 + .58879, 1.03355, 1.15072,
850 + .07598, .04156, 24.90543, 1.21972, .91388,
851 + .66538, 1.10598, 1.22242,
852 + .07771, .04258, 26.38709, 1.28843, .98483,
853 + .73923, 1.17547, 1.29125,
854 + .07932, .04354, 27.76315, 1.35367, 1.05204,
855 + .80890, 1.24144, 1.35661 /
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 + .08093, .04450, 29.11672, 1.41943, 1.11956,
858 + .87857, 1.30791, 1.42249,
859 + .08250, .04543, 30.44781, 1.48500, 1.18715,
860 + .94874, 1.37417, 1.48818,
861 + .08398, .04630, 31.67388, 1.54711, 1.25081,
862 + 1.01428, 1.43692, 1.55040,
863 + .08538, .04713, 32.82810, 1.60642, 1.31177,
864 + 1.07731, 1.49683, 1.60982,
865 + .08678, .04795, 33.96706, 1.66626, 1.37313,
866 + 1.14054, 1.55725, 1.66976,
867 + .08816, .04876, 35.07429, 1.72549, 1.43389,
868 + 1.20320, 1.61705, 1.72909,
869 + .08947, .04953, 36.11132, 1.78204, 1.49186,
870 + 1.26290, 1.67414, 1.78574,
871 + .09070, .05026, 37.08115, 1.83583, 1.54703,
872 + 1.31977, 1.72843, 1.83963 /
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 + .09195, .05099, 38.03595, 1.89000, 1.60245,
875 + 1.37673, 1.78308, 1.89388,
876 + .09318, .05171, 38.97975, 1.94410, 1.65797,
877 + 1.43401, 1.83767, 1.94807,
878 + .09435, .05239, 39.84298, 1.99506, 1.71001,
879 + 1.48737, 1.88909, 1.99912,
880 + .09546, .05304, 40.67314, 2.04427, 1.76050,
881 + 1.53941, 1.93874, 2.04842,
882 + .09658, .05369, 41.47746, 2.09335, 1.81064,
883 + 1.59085, 1.98824, 2.09758 /
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 + .05810, .03080, .74174, .24927, .00000,
886 + .00000, .13494, .25027,
887 + .06015, .03208, 1.28646, .26485, .00000,
888 + .00000, .15147, .26601,
889 + .06315, .03396, 2.19208, .29124, .00000,
890 + .00000, .17922, .29263,
891 + .06531, .03531, 2.89081, .31282, .00856,
892 + .00000, .20173, .31437,
893 + .06754, .03670, 3.61971, .33729, .03746,
894 + .00000, .22715, .33902,
895 + .06946, .03789, 4.28437, .35991, .06355,
896 + .00000, .25056, .36178,
897 + .07130, .03903, 4.95753, .38275, .08890,
898 + .00000, .27414, .38477,
899 + .07324, .04022, 5.70198, .40818, .11737,
900 + .00000, .30034, .41035 /
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 + .07491, .04125, 6.34735, .43119, .14133,
903 + .00000, .32400, .43349,
904 + .07652, .04224, 6.99629, .45423, .16626,
905 + .00000, .34766, .45666,
906 + .07779, .04302, 7.51719, .47301, .18632,
907 + .00000, .36693, .47555,
908 + .08048, .04467, 8.61974, .51458, .23060,
909 + .00118, .40949, .51732,
910 + .08277, .04606, 9.53677, .55168, .26987,
911 + .04314, .44742, .55460,
912 + .08532, .04761, 10.55916, .59454, .31518,
913 + .09913, .49118, .59767,
914 + .08796, .04921, 11.63520, .64045, .36360,
915 + .15106, .53801, .64380,
916 + .09034, .05064, 12.61354, .68307, .40852,
917 + .19951, .58144, .68660 /
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 + .09273, .05208, 13.60085, .72701, .45481,
920 + .24904, .62619, .73074,
921 + .09470, .05326, 14.40013, .76373, .49295,
922 + .28858, .66354, .76761,
923 + .09707, .05468, 15.36985, .80901, .54028,
924 + .33851, .70960, .81309,
925 + .09917, .05593, 16.22423, .84971, .58292,
926 + .38374, .75096, .85395,
927 + .10108, .05706, 16.98749, .88712, .62183,
928 + .42439, .78897, .89151,
929 + .10348, .05849, 17.94148, .93497, .67163,
930 + .47658, .83757, .93956,
931 + .10574, .05982, 18.82623, .98041, .71901,
932 + .52638, .88371, .98518,
933 + .10784, .06105, 19.63465, 1.02309, .76341,
934 + .57286, .92703, 1.02804 /
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 + .10993, .06228, 20.41679, 1.06566, .80755,
937 + .61886, .97023, 1.07078,
938 + .11196, .06347, 21.17618, 1.10775, .85137,
939 + .66481, 1.01292, 1.11303,
940 + .11388, .06459, 21.86357, 1.14718, .89220,
941 + .70727, 1.05291, 1.15262,
942 + .11568, .06564, 22.50300, 1.18455, .93101,
943 + .74782, 1.09081, 1.19013,
944 + .11748, .06668, 23.12481, 1.22191, .96972,
945 + .78813, 1.12869, 1.22764,
946 + .11924, .06770, 23.72138, 1.25860, 1.00775,
947 + .82777, 1.16587, 1.26447,
948 + .12091, .06866, 24.27268, 1.29334, 1.04375,
949 + .86525, 1.20109, 1.29935,
950 + .12248, .06957, 24.78204, 1.32615, 1.07777,
951 + .90070, 1.23435, 1.33228 /
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 + .12406, .07048, 25.27625, 1.35891, 1.11167,
954 + .93592, 1.26755, 1.36517,
955 + .12562, .07138, 25.76047, 1.39145, 1.14545,
956 + .97115, 1.30053, 1.39784,
957 + .12709, .07222, 26.19522, 1.42182, 1.17681,
958 + 1.00366, 1.33130, 1.42832,
959 + .12850, .07302, 26.61121, 1.45102, 1.20712,
960 + 1.03527, 1.36090, 1.45764,
961 + .12990, .07382, 27.00680, 1.47988, 1.23695,
962 + 1.06622, 1.39015, 1.48662 /
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 + .08077, .04585, .81385, .21755, .00000,
965 + .00000, .11822, .21970,
966 + .08364, .04765, 1.29947, .23111, .00000,
967 + .00000, .13261, .23353,
968 + .08781, .05027, 2.07218, .25340, .00000,
969 + .00000, .15606, .25619,
970 + .09081, .05213, 2.64835, .27117, .00706,
971 + .00000, .17464, .27422,
972 + .09389, .05403, 3.23198, .29089, .03053,
973 + .00000, .19519, .29422,
974 + .09652, .05565, 3.75085, .30880, .05142,
975 + .00000, .21379, .31236,
976 + .09903, .05718, 4.26531, .32664, .07141,
977 + .00000, .23228, .33042,
978 + .10167, .05880, 4.82268, .34623, .09356,
979 + .00000, .25255, .35024 /
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 + .10394, .06017, 5.29577, .36367, .11192,
982 + .00000, .27057, .36789,
983 + .10612, .06149, 5.76392, .38096, .13085,
984 + .00000, .28840, .38537,
985 + .10784, .06253, 6.13415, .39491, .14592,
986 + .00000, .30278, .39948,
987 + .11145, .06470, 6.90108, .42536, .17876,
988 + .00094, .33412, .43025,
989 + .11451, .06653, 7.52066, .45209, .20743,
990 + .03183, .36159, .45725,
991 + .11789, .06854, 8.19445, .48251, .24002,
992 + .07267, .39282, .48796,
993 + .12138, .07060, 8.88666, .51455, .27429,
994 + .10987, .42569, .52032,
995 + .12451, .07244, 9.50145, .54384, .30562,
996 + .14407, .45571, .54988 /
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 + .12764, .07427, 10.10846, .57360, .33745,
999 + .17857, .48621, .57992,
1000 + .13020, .07576, 10.58874, .59811, .36329,
1001 + .20571, .51130, .60465,
1002 + .13328, .07755, 11.16069, .62797, .39500,
1003 + .23962, .54187, .63478,
1004 + .13599, .07911, 11.65487, .65446, .42323,
1005 + .26997, .56898, .66151,
1006 + .13844, .08052, 12.08704, .67850, .44866,
1007 + .29691, .59357, .68576,
1008 + .14152, .08228, 12.61650, .70887, .48082,
1009 + .33110, .62464, .71640,
1010 + .14439, .08392, 13.09737, .73734, .51105,
1011 + .36335, .65375, .74512,
1012 + .14705, .08543, 13.52712, .76374, .53902,
1013 + .39307, .68075, .77176 /
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 + .14968, .08691, 13.93354, .78973, .56648,
1016 + .42213, .70733, .79797,
1017 + .15224, .08836, 14.32157, .81516, .59347,
1018 + .45090, .73333, .82362,
1019 + .15463, .08969, 14.66388, .83867, .61831,
1020 + .47715, .75737, .84734,
1021 + .15687, .09094, 14.97711, .86075, .64171,
1022 + .50200, .77993, .86961,
1023 + .15910, .09218, 15.27518, .88257, .66480,
1024 + .52645, .80225, .89162,
1025 + .16128, .09339, 15.55549, .90379, .68727,
1026 + .55028, .82395, .91303,
1027 + .16333, .09452, 15.80918, .92368, .70834,
1028 + .57260, .84429, .93310,
1029 + .16526, .09558, 16.03934, .94230, .72808,
1030 + .59354, .86333, .95188 /
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 + .16719, .09663, 16.25754, .96070, .74756,
1033 + .61415, .88216, .97044,
1034 + .16909, .09767, 16.46862, .97885, .76685,
1035 + .63465, .90073, .98875,
1036 + .17087, .09864, 16.65184, .99558, .78454,
1037 + .65334, .91784, 1.00563,
1038 + .17257, .09957, 16.82620, 1.01159, .80157,
1039 + .67144, .93423, 1.02178,
1040 + .17426, .10048, 16.98609, 1.02723, .81815,
1041 + .68897, .95024, 1.03756 /
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 + .09886, .05844, .89141, .20232, .00000,
1044 + .00000, .11029, .20571,
1045 + .10235, .06059, 1.34113, .21474, .00000,
1046 + .00000, .12349, .21846,
1047 + .10741, .06370, 2.03514, .23471, .00000,
1048 + .00000, .14458, .23892,
1049 + .11101, .06590, 2.54105, .25036, .00625,
1050 + .00000, .16102, .25491,
1051 + .11471, .06814, 3.04398, .26752, .02686,
1052 + .00000, .17897, .27242,
1053 + .11785, .07003, 3.48370, .28290, .04503,
1054 + .00000, .19502, .28810,
1055 + .12085, .07182, 3.91357, .29809, .06223,
1056 + .00000, .21084, .30357,
1057 + .12400, .07370, 4.37303, .31461, .08113,
1058 + .00000, .22803, .32039 /
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 + .12668, .07529, 4.75755, .32917, .09664,
1061 + .00000, .24315, .33520,
1062 + .12926, .07681, 5.13396, .34351, .11253,
1063 + .00000, .25802, .34978,
1064 + .13129, .07800, 5.42867, .35500, .12510,
1065 + .00000, .26992, .36145,
1066 + .13554, .08049, 6.03005, .37984, .15225,
1067 + .00082, .29563, .38669,
1068 + .13912, .08257, 6.50588, .40141, .17569,
1069 + .02625, .31793, .40859,
1070 + .14307, .08485, 7.01421, .42569, .20208,
1071 + .05970, .34302, .43324,
1072 + .14712, .08718, 7.52764, .45099, .22955,
1073 + .08980, .36914, .45891,
1074 + .15074, .08924, 7.97618, .47387, .25440,
1075 + .11722, .39275, .48212 /
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 + .15435, .09129, 8.41205, .49690, .27942,
1078 + .14462, .41650, .50548,
1079 + .15729, .09294, 8.75089, .51566, .29953,
1080 + .16597, .43585, .52451,
1081 + .16082, .09492, 9.14894, .53833, .32402,
1082 + .19245, .45922, .54750,
1083 + .16390, .09663, 9.48791, .55827, .34565,
1084 + .21598, .47978, .56772,
1085 + .16669, .09818, 9.77949, .57621, .36496,
1086 + .23669, .49827, .58590,
1087 + .17018, .10010, 10.13102, .59867, .38920,
1088 + .26277, .52143, .60867,
1089 + .17342, .10188, 10.44505, .61953, .41178,
1090 + .28717, .54294, .62983,
1091 + .17642, .10351, 10.72087, .63870, .43250,
1092 + .30949, .56271, .64926 /
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 + .17936, .10510, 10.97634, .65739, .45267,
1095 + .33112, .58199, .66821,
1096 + .18222, .10665, 11.21684, .67555, .47237,
1097 + .35241, .60072, .68663,
1098 + .18487, .10807, 11.42408, .69219, .49033,
1099 + .37167, .61789, .70349,
1100 + .18736, .10940, 11.61103, .70770, .50714,
1101 + .38980, .63389, .71921,
1102 + .18982, .11070, 11.78526, .72291, .52362,
1103 + .40751, .64960, .73464,
1104 + .19222, .11197, 11.94618, .73758, .53955,
1105 + .42467, .66476, .74952,
1106 + .19448, .11316, 12.08894, .75123, .55438,
1107 + .44064, .67887, .76337,
1108 + .19659, .11426, 12.21597, .76393, .56820,
1109 + .45554, .69199, .77624 /
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 + .19869, .11536, 12.33312, .77639, .58173,
1112 + .47010, .70488, .78888,
1113 + .20076, .11644, 12.44506, .78861, .59507,
1114 + .48453, .71753, .80128,
1115 + .20269, .11744, 12.53836, .79976, .60721,
1116 + .49758, .72907, .81259,
1117 + .20453, .11839, 12.62683, .81040, .61886,
1118 + .51019, .74009, .82339,
1119 + .20635, .11933, 12.70427, .82069, .63010,
1120 + .52231, .75075, .83383 /
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 + .11474, .06966, .97068, .19289, .00000,
1123 + .00000, .10545, .19756,
1124 + .11873, .07207, 1.39006, .20445, .00000,
1125 + .00000, .11779, .20953,
1126 + .12451, .07554, 2.02590, .22278, .00000,
1127 + .00000, .13724, .22843,
1128 + .12861, .07799, 2.48166, .23697, .00571,
1129 + .00000, .15221, .24302,
1130 + .13279, .08046, 2.92804, .25235, .02440,
1131 + .00000, .16838, .25881,
1132 + .13635, .08255, 3.31339, .26602, .04075,
1133 + .00000, .18272, .27283,
1134 + .13972, .08452, 3.68599, .27942, .05611,
1135 + .00000, .19676, .28656,
1136 + .14326, .08657, 4.08005, .29389, .07288,
1137 + .00000, .21190, .30137 /
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 + .14628, .08831, 4.40627, .30654, .08653,
1140 + .00000, .22511, .31431,
1141 + .14916, .08996, 4.72287, .31892, .10044,
1142 + .00000, .23803, .32697,
1143 + .15142, .09126, 4.96881, .32879, .11138,
1144 + .00000, .24832, .33706,
1145 + .15615, .09394, 5.46453, .34998, .13487,
1146 + .00074, .27039, .35870,
1147 + .16013, .09619, 5.84992, .36822, .15499,
1148 + .02270, .28937, .37732,
1149 + .16450, .09863, 6.25560, .38858, .17746,
1150 + .05146, .31055, .39809,
1151 + .16896, .10111, 6.65962, .40961, .20065,
1152 + .07711, .33241, .41953,
1153 + .17293, .10330, 7.00766, .42847, .22147,
1154 + .10029, .35201, .43876 /
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 + .17688, .10547, 7.34131, .44730, .24229,
1157 + .12330, .37158, .45796,
1158 + .18008, .10721, 7.59670, .46251, .25889,
1159 + .14110, .38739, .47346,
1160 + .18392, .10928, 7.89316, .48077, .27898,
1161 + .16305, .40636, .49207,
1162 + .18727, .11108, 8.14238, .49672, .29661,
1163 + .18244, .42294, .50832,
1164 + .19028, .11268, 8.35346, .51095, .31225,
1165 + .19939, .43774, .52283,
1166 + .19404, .11467, 8.60421, .52865, .33174,
1167 + .22062, .45615, .54086,
1168 + .19752, .11651, 8.82473, .54497, .34979,
1169 + .24035, .47314, .55749,
1170 + .20072, .11818, 9.01501, .55985, .36624,
1171 + .25829, .48863, .57265 /
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 + .20386, .11982, 9.18769, .57424, .38214,
1174 + .27556, .50362, .58732,
1175 + .20690, .12139, 9.34803, .58815, .39759,
1176 + .29248, .51811, .60149,
1177 + .20972, .12283, 9.48265, .60077, .41156,
1178 + .30768, .53128, .61436,
1179 + .21235, .12417, 9.60223, .61248, .42459,
1180 + .32193, .54350, .62629,
1181 + .21494, .12549, 9.71104, .62388, .43728,
1182 + .33577, .55541, .63791,
1183 + .21746, .12676, 9.80935, .63480, .44948,
1184 + .34911, .56683, .64905,
1185 + .21983, .12795, 9.89440, .64490, .46077,
1186 + .36147, .57740, .65935,
1187 + .22204, .12905, 9.96825, .65424, .47125,
1188 + .37295, .58718, .66888 /
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 + .22423, .13014, 10.03392, .66333, .48144,
1191 + .38411, .59671, .67816,
1192 + .22638, .13121, 10.09567, .67222, .49146,
1193 + .39512, .60603, .68723,
1194 + .22839, .13219, 10.14394, .68025, .50050,
1195 + .40503, .61447, .69542,
1196 + .23029, .13313, 10.18959, .68790, .50916,
1197 + .41457, .62250, .70323,
1198 + .23217, .13404, 10.22637, .69523, .51746,
1199 + .42369, .63021, .71070 /
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 + .12925, .07992, 1.04399, .18615, .00000,
1202 + .00000, .10207, .19215,
1203 + .13367, .08254, 1.43849, .19703, .00000,
1204 + .00000, .11374, .20348,
1205 + .14005, .08629, 2.02743, .21407, .00000,
1206 + .00000, .13191, .22117,
1207 + .14456, .08891, 2.44368, .22711, .00530,
1208 + .00000, .14575, .23467,
1209 + .14915, .09155, 2.84640, .24113, .02255,
1210 + .00000, .16059, .24915,
1211 + .15304, .09378, 3.19037, .25350, .03756,
1212 + .00000, .17364, .26190,
1213 + .15672, .09587, 3.51992, .26555, .05156,
1214 + .00000, .18634, .27432,
1215 + .16058, .09805, 3.86539, .27849, .06674,
1216 + .00000, .19996, .28764 /
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 + .16385, .09988, 4.14876, .28971, .07903,
1219 + .00000, .21176, .29918,
1220 + .16698, .10163, 4.42181, .30066, .09151,
1221 + .00000, .22325, .31042,
1222 + .16943, .10299, 4.63250, .30934, .10127,
1223 + .00000, .23237, .31934,
1224 + .17454, .10581, 5.05259, .32786, .12212,
1225 + .00068, .25180, .33836,
1226 + .17882, .10815, 5.37396, .34369, .13986,
1227 + .02016, .26839, .35460,
1228 + .18351, .11069, 5.70783, .36124, .15954,
1229 + .04558, .28677, .37259,
1230 + .18828, .11326, 6.03619, .37922, .17971,
1231 + .06806, .30560, .39102,
1232 + .19252, .11552, 6.31543, .39522, .19771,
1233 + .08827, .32237, .40741 /
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 + .19671, .11774, 6.57990, .41110, .21558,
1236 + .10821, .33900, .42368,
1237 + .20011, .11952, 6.77918, .42382, .22975,
1238 + .12354, .35234, .43671,
1239 + .20417, .12164, 7.00795, .43901, .24681,
1240 + .14236, .36827, .45227,
1241 + .20770, .12346, 7.19793, .45220, .26169,
1242 + .15890, .38211, .46578,
1243 + .21086, .12509, 7.35633, .46389, .27482,
1244 + .17329, .39438, .47775,
1245 + .21480, .12710, 7.54174, .47833, .29110,
1246 + .19121, .40955, .49254,
1247 + .21844, .12894, 7.70211, .49156, .30608,
1248 + .20779, .42347, .50609,
1249 + .22178, .13062, 7.83771, .50354, .31966,
1250 + .22277, .43608, .51836 /
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 + .22504, .13224, 7.95815, .51505, .33271,
1253 + .23713, .44820, .53015,
1254 + .22819, .13380, 8.06833, .52610, .34533,
1255 + .25113, .45986, .54147,
1256 + .23110, .13523, 8.15790, .53605, .35667,
1257 + .26363, .47037, .55168,
1258 + .23381, .13655, 8.23597, .54524, .36720,
1259 + .27532, .48008, .56109,
1260 + .23647, .13784, 8.30477, .55413, .37740,
1261 + .28661, .48949, .57020,
1262 + .23906, .13909, 8.36508, .56259, .38717,
1263 + .29745, .49847, .57888,
1264 + .24147, .14024, 8.41536, .57037, .39616,
1265 + .30745, .50673, .58686,
1266 + .24372, .14131, 8.45749, .57752, .40447,
1267 + .31670, .51433, .59419 /
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 + .24595, .14237, 8.49279, .58443, .41251,
1270 + .32565, .52169, .60129,
1271 + .24813, .14339, 8.52509, .59116, .42038,
1272 + .33447, .52886, .60819,
1273 + .25016, .14434, 8.54719, .59718, .42744,
1274 + .34234, .53530, .61437,
1275 + .25209, .14523, 8.56804, .60291, .43420,
1276 + .34993, .54142, .62025,
1277 + .25398, .14611, 8.58148, .60834, .44062,
1278 + .35713, .54725, .62583 /
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 + .15566, .09845, 1.17408, .17664, .00000,
1281 + .00000, .09747, .18535,
1282 + .16078, .10134, 1.52715, .18641, .00000,
1283 + .00000, .10808, .19566,
1284 + .16812, .10544, 2.04123, .20143, .00000,
1285 + .00000, .12430, .21144,
1286 + .17329, .10829, 2.39636, .21273, .00470,
1287 + .00000, .13645, .22327,
1288 + .17851, .11115, 2.73290, .22471, .01984,
1289 + .00000, .14928, .23578,
1290 + .18291, .11354, 3.01545, .23514, .03289,
1291 + .00000, .16044, .24665,
1292 + .18707, .11577, 3.28207, .24520, .04493,
1293 + .00000, .17119, .25712,
1294 + .19140, .11809, 3.55743, .25589, .05786,
1295 + .00000, .18261, .26824 /
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 + .19506, .12003, 3.77981, .26506, .06822,
1298 + .00000, .19239, .27777,
1299 + .19855, .12187, 3.99146, .27394, .07866,
1300 + .00000, .20185, .28698,
1301 + .20127, .12330, 4.15289, .28092, .08678,
1302 + .00000, .20929, .29423,
1303 + .20692, .12624, 4.46856, .29568, .10395,
1304 + .00059, .22501, .30952,
1305 + .21163, .12865, 4.70296, .30812, .11839,
1306 + .01664, .23826, .32241,
1307 + .21675, .13126, 4.94050, .32175, .13425,
1308 + .03745, .25278, .33653,
1309 + .22194, .13388, 5.16878, .33554, .15032,
1310 + .05564, .26747, .35079,
1311 + .22653, .13616, 5.35822, .34766, .16449,
1312 + .07182, .28040, .36332 /
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 + .23104, .13839, 5.53317, .35953, .17844,
1315 + .08765, .29307, .37560,
1316 + .23468, .14017, 5.66118, .36892, .18937,
1317 + .09968, .30311, .38532,
1318 + .23899, .14226, 5.80460, .38001, .20241,
1319 + .11435, .31499, .39679,
1320 + .24272, .14405, 5.92050, .38955, .21370,
1321 + .12714, .32521, .40665,
1322 + .24605, .14564, 6.01391, .39789, .22356,
1323 + .13816, .33417, .41528,
1324 + .25018, .14758, 6.11948, .40808, .23567,
1325 + .15179, .34513, .42582,
1326 + .25397, .14935, 6.20725, .41730, .24671,
1327 + .16429, .35507, .43536,
1328 + .25742, .15094, 6.27772, .42554, .25662,
1329 + .17548, .36397, .44388 /
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 + .26078, .15248, 6.33639, .43335, .26604,
1332 + .18611, .37243, .45196,
1333 + .26401, .15394, 6.38774, .44077, .27508,
1334 + .19641, .38049, .45965,
1335 + .26697, .15527, 6.42514, .44736, .28312,
1336 + .20552, .38766, .46647,
1337 + .26971, .15648, 6.45566, .45337, .29053,
1338 + .21398, .39423, .47270,
1339 + .27240, .15767, 6.47924, .45910, .29764,
1340 + .22209, .40051, .47864,
1341 + .27499, .15880, 6.49698, .46450, .30439,
1342 + .22982, .40644, .48424,
1343 + .27740, .15984, 6.50868, .46940, .31056,
1344 + .23689, .41185, .48932,
1345 + .27964, .16080, 6.51592, .47386, .31620,
1346 + .24340, .41677, .49394 /
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 + .28184, .16173, 6.51821, .47810, .32162,
1349 + .24965, .42148, .49835,
1350 + .28400, .16263, 6.51871, .48219, .32689,
1351 + .25577, .42604, .50260,
1352 + .28597, .16346, 6.51294, .48578, .33156,
1353 + .26118, .43006, .50632,
1354 + .28785, .16424, 6.50752, .48918, .33601,
1355 + .26638, .43387, .50986,
1356 + .28968, .16499, 6.49688, .49232, .34019,
1357 + .27127, .43742, .51313 /
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 + .19132, .12273, 1.33191, .16682, .00000,
1360 + .00000, .09299, .17966,
1361 + .19720, .12582, 1.63421, .17528, .00000,
1362 + .00000, .10238, .18874,
1363 + .20556, .13016, 2.06220, .18802, .00000,
1364 + .00000, .11642, .20233,
1365 + .21139, .13315, 2.34981, .19740, .00408,
1366 + .00000, .12674, .21230,
1367 + .21725, .13611, 2.61535, .20719, .01703,
1368 + .00000, .13746, .22266,
1369 + .22216, .13857, 2.83363, .21558, .02807,
1370 + .00000, .14665, .23153,
1371 + .22677, .14086, 3.03586, .22357, .03813,
1372 + .00000, .15539, .23997,
1373 + .23157, .14321, 3.24101, .23195, .04882,
1374 + .00000, .16457, .24882 /
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 + .23558, .14516, 3.40332, .23905, .05727,
1377 + .00000, .17233, .25629,
1378 + .23939, .14700, 3.55538, .24584, .06572,
1379 + .00000, .17977, .26344,
1380 + .24235, .14842, 3.66957, .25114, .07224,
1381 + .00000, .18557, .26901,
1382 + .24846, .15132, 3.88680, .26220, .08588,
1383 + .00050, .19766, .28062,
1384 + .25350, .15368, 4.04092, .27137, .09719,
1385 + .01328, .20772, .29024,
1386 + .25896, .15619, 4.19122, .28127, .10946,
1387 + .02975, .21857, .30062,
1388 + .26443, .15868, 4.33053, .29110, .12172,
1389 + .04394, .22938, .31092,
1390 + .26923, .16084, 4.44160, .29960, .13241,
1391 + .05641, .23875, .31982 /
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 + .27392, .16292, 4.53997, .30780, .14278,
1394 + .06847, .24780, .32840,
1395 + .27766, .16455, 4.60777, .31416, .15081,
1396 + .07753, .25487, .33507,
1397 + .28208, .16645, 4.68049, .32157, .16030,
1398 + .08849, .26311, .34283,
1399 + .28587, .16807, 4.73614, .32783, .16842,
1400 + .09795, .27011, .34939,
1401 + .28923, .16948, 4.77719, .33322, .17542,
1402 + .10602, .27615, .35504,
1403 + .29336, .17118, 4.81947, .33969, .18392,
1404 + .11589, .28344, .36182,
1405 + .29712, .17272, 4.85069, .34545, .19159,
1406 + .12486, .28996, .36785,
1407 + .30052, .17408, 4.87147, .35048, .19838,
1408 + .13281, .29569, .37312 /
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 + .30379, .17537, 4.88382, .35514, .20474,
1411 + .14027, .30104, .37802,
1412 + .30692, .17659, 4.89171, .35951, .21080,
1413 + .14744, .30608, .38260,
1414 + .30975, .17768, 4.89147, .36328, .21611,
1415 + .15371, .31046, .38655,
1416 + .31237, .17866, 4.88812, .36666, .22095,
1417 + .15949, .31442, .39010,
1418 + .31491, .17961, 4.88006, .36981, .22554,
1419 + .16498, .31814, .39341,
1420 + .31733, .18049, 4.86858, .37271, .22985,
1421 + .17016, .32160, .39647,
1422 + .31957, .18129, 4.85435, .37529, .23374,
1423 + .17486, .32469, .39917,
1424 + .32163, .18203, 4.83847, .37757, .23726,
1425 + .17915, .32746, .40158 /
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 + .32365, .18272, 4.81922, .37967, .24060,
1428 + .18323, .33005, .40379,
1429 + .32561, .18340, 4.79934, .38168, .24382,
1430 + .18720, .33253, .40591,
1431 + .32739, .18399, 4.77651, .38334, .24661,
1432 + .19066, .33464, .40767,
1433 + .32908, .18455, 4.75513, .38490, .24927,
1434 + .19398, .33664, .40933,
1435 + .33070, .18507, 4.73023, .38627, .25172,
1436 + .19705, .33843, .41078 /
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 + .24461, .15692, 1.51282, .15475, .00000,
1439 + .00000, .08787, .17444,
1440 + .25122, .16000, 1.74814, .16152, .00000,
1441 + .00000, .09567, .18184,
1442 + .26054, .16426, 2.06960, .17140, .00000,
1443 + .00000, .10705, .19258,
1444 + .26697, .16714, 2.27747, .17850, .00336,
1445 + .00000, .11519, .20026,
1446 + .27336, .16995, 2.46185, .18573, .01385,
1447 + .00000, .12348, .20806,
1448 + .27865, .17226, 2.60901, .19181, .02267,
1449 + .00000, .13045, .21460,
1450 + .28358, .17438, 2.74174, .19751, .03058,
1451 + .00000, .13698, .22070,
1452 + .28867, .17653, 2.87272, .20338, .03887,
1453 + .00000, .14373, .22700 /
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 + .29289, .17828, 2.97295, .20824, .04532,
1456 + .00000, .14933, .23220,
1457 + .29686, .17992, 3.06464, .21284, .05171,
1458 + .00000, .15463, .23712,
1459 + .29993, .18117, 3.13176, .21638, .05658,
1460 + .00000, .15871, .24089,
1461 + .30621, .18369, 3.25288, .22361, .06663,
1462 + .00041, .16709, .24860,
1463 + .31132, .18569, 3.33078, .22948, .07483,
1464 + .00990, .17391, .25484,
1465 + .31677, .18779, 3.40041, .23566, .08358,
1466 + .02203, .18113, .26140,
1467 + .32218, .18981, 3.45948, .24163, .09217,
1468 + .03230, .18815, .26773,
1469 + .32686, .19151, 3.50153, .24664, .09952,
1470 + .04119, .19410, .27304 /
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 + .33137, .19312, 3.53409, .25136, .10655,
1473 + .04967, .19973, .27804,
1474 + .33491, .19435, 3.55140, .25488, .11189,
1475 + .05595, .20400, .28177,
1476 + .33904, .19575, 3.56594, .25889, .11812,
1477 + .06346, .20889, .28601,
1478 + .34256, .19690, 3.57301, .26218, .12336,
1479 + .06986, .21296, .28950,
1480 + .34562, .19788, 3.57290, .26491, .12781,
1481 + .07524, .21638, .29238,
1482 + .34932, .19903, 3.56666, .26807, .13313,
1483 + .08175, .22040, .29572,
1484 + .35264, .20003, 3.55563, .27078, .13785,
1485 + .08758, .22390, .29857,
1486 + .35560, .20088, 3.54022, .27305, .14195,
1487 + .09268, .22689, .30096 /
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 + .35840, .20165, 3.51991, .27502, .14572,
1490 + .09739, .22957, .30304,
1491 + .36104, .20235, 3.49786, .27680, .14925,
1492 + .10188, .23203, .30491,
1493 + .36338, .20294, 3.47258, .27821, .15228,
1494 + .10574, .23409, .30640,
1495 + .36551, .20345, 3.44725, .27943, .15501,
1496 + .10925, .23589, .30767,
1497 + .36755, .20391, 3.41932, .28046, .15754,
1498 + .11255, .23751, .30876,
1499 + .36946, .20432, 3.39011, .28135, .15987,
1500 + .11563, .23895, .30968,
1501 + .37119, .20467, 3.36075, .28205, .16193,
1502 + .11838, .24019, .31042,
1503 + .37277, .20497, 3.33192, .28261, .16377,
1504 + .12086, .24124, .31100 /
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 + .37426, .20523, 3.30133, .28304, .16546,
1507 + .12318, .24216, .31144,
1508 + .37571, .20547, 3.27100, .28342, .16708,
1509 + .12542, .24301, .31183,
1510 + .37698, .20565, 3.24012, .28361, .16843,
1511 + .12734, .24365, .31202,
1512 + .37819, .20581, 3.21131, .28379, .16971,
1513 + .12916, .24425, .31219,
1514 + .37930, .20594, 3.18058, .28382, .17084,
1515 + .13082, .24470, .31222 /
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 + .29293, .18551, 1.61503, .14455, .00000,
1518 + .00000, .08373, .17071,
1519 + .29984, .18832, 1.79773, .14995, .00000,
1520 + .00000, .09027, .17667,
1521 + .30946, .19213, 2.03990, .15767, .00000,
1522 + .00000, .09959, .18515,
1523 + .31604, .19468, 2.19093, .16310, .00284,
1524 + .00000, .10614, .19106,
1525 + .32246, .19711, 2.31921, .16854, .01159,
1526 + .00000, .11270, .19694,
1527 + .32776, .19907, 2.41860, .17302, .01887,
1528 + .00000, .11812, .20177,
1529 + .33266, .20084, 2.50592, .17714, .02533,
1530 + .00000, .12313, .20622,
1531 + .33767, .20261, 2.58967, .18134, .03201,
1532 + .00000, .12825, .21073 /
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 + .34178, .20403, 2.65112, .18474, .03715,
1535 + .00000, .13242, .21437,
1536 + .34562, .20533, 2.70576, .18791, .04220,
1537 + .00000, .13634, .21777,
1538 + .34857, .20632, 2.74441, .19032, .04602,
1539 + .00000, .13932, .22034,
1540 + .35453, .20823, 2.80895, .19516, .05382,
1541 + .00034, .14535, .22549,
1542 + .35932, .20971, 2.84336, .19898, .06010,
1543 + .00777, .15016, .22954,
1544 + .36435, .21121, 2.86813, .20290, .06670,
1545 + .01721, .15515, .23369,
1546 + .36925, .21261, 2.88398, .20658, .07310,
1547 + .02509, .15990, .23755,
1548 + .37344, .21374, 2.89009, .20956, .07850,
1549 + .03183, .16383, .24067 /
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 + .37742, .21476, 2.88914, .21226, .08359,
1552 + .03820, .16748, .24349,
1553 + .38047, .21549, 2.88157, .21420, .08740,
1554 + .04285, .17016, .24549,
1555 + .38399, .21628, 2.86810, .21631, .09179,
1556 + .04837, .17316, .24767,
1557 + .38694, .21689, 2.85245, .21797, .09545,
1558 + .05303, .17559, .24938,
1559 + .38946, .21736, 2.83379, .21926, .09850,
1560 + .05690, .17757, .25070,
1561 + .39244, .21788, 2.80637, .22065, .10209,
1562 + .06154, .17982, .25211,
1563 + .39507, .21828, 2.77757, .22176, .10523,
1564 + .06565, .18171, .25320,
1565 + .39735, .21857, 2.74758, .22259, .10792,
1566 + .06920, .18325, .25399 /
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 + .39944, .21878, 2.71476, .22319, .11035,
1569 + .07245, .18456, .25456,
1570 + .40138, .21893, 2.68172, .22367, .11259,
1571 + .07551, .18571, .25500,
1572 + .40305, .21899, 2.64795, .22392, .11446,
1573 + .07810, .18659, .25519,
1574 + .40454, .21902, 2.61557, .22407, .11612,
1575 + .08045, .18731, .25528,
1576 + .40591, .21898, 2.58178, .22409, .11764,
1577 + .08262, .18790, .25522,
1578 + .40715, .21892, 2.54786, .22401, .11900,
1579 + .08462, .18836, .25505,
1580 + .40824, .21881, 2.51497, .22385, .12018,
1581 + .08639, .18870, .25480,
1582 + .40919, .21868, 2.48346, .22362, .12120,
1583 + .08797, .18894, .25448 /
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 + .41007, .21851, 2.45096, .22328, .12212,
1586 + .08943, .18908, .25405,
1587 + .41090, .21832, 2.41915, .22292, .12299,
1588 + .09082, .18918, .25360,
1589 + .41157, .21808, 2.38788, .22246, .12367,
1590 + .09199, .18914, .25304,
1591 + .41220, .21786, 2.35881, .22202, .12432,
1592 + .09310, .18910, .25252,
1593 + .41273, .21759, 2.32861, .22148, .12485,
1594 + .09409, .18896, .25187 /
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 + .37894, .23066, 1.66542, .12615, .00000,
1597 + .00000, .07622, .16329,
1598 + .38549, .23253, 1.77193, .12954, .00000,
1599 + .00000, .08079, .16690,
1600 + .39442, .23492, 1.90480, .13418, .00000,
1601 + .00000, .08710, .17179,
1602 + .40035, .23641, 1.98083, .13732, .00211,
1603 + .00000, .09138, .17504,
1604 + .40599, .23774, 2.03760, .14035, .00846,
1605 + .00000, .09556, .17814,
1606 + .41055, .23872, 2.07801, .14274, .01366,
1607 + .00000, .09891, .18058,
1608 + .41469, .23955, 2.11069, .14488, .01820,
1609 + .00000, .10193, .18274,
1610 + .41881, .24033, 2.13894, .14698, .02282,
1611 + .00000, .10496, .18482 /
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 + .42210, .24087, 2.15592, .14859, .02630,
1614 + .00000, .10734, .18640,
1615 + .42514, .24133, 2.16908, .15006, .02969,
1616 + .00000, .10953, .18782,
1617 + .42741, .24163, 2.17653, .15113, .03221,
1618 + .00000, .11116, .18884,
1619 + .43187, .24213, 2.18066, .15318, .03729,
1620 + .00025, .11435, .19074,
1621 + .43529, .24239, 2.17069, .15467, .04129,
1622 + .00518, .11681, .19209,
1623 + .43874, .24253, 2.15157, .15608, .04541,
1624 + .01138, .11924, .19331,
1625 + .44194, .24251, 2.12663, .15724, .04931,
1626 + .01645, .12143, .19424,
1627 + .44453, .24237, 2.09998, .15805, .05253,
1628 + .02071, .12313, .19481 /
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 + .44686, .24211, 2.06991, .15864, .05549,
1631 + .02467, .12460, .19515,
1632 + .44850, .24178, 2.04174, .15893, .05766,
1633 + .02751, .12558, .19521,
1634 + .45029, .24129, 2.00608, .15913, .06010,
1635 + .03083, .12661, .19512,
1636 + .45168, .24079, 1.97328, .15918, .06208,
1637 + .03360, .12736, .19490,
1638 + .45273, .24026, 1.94154, .15907, .06369,
1639 + .03585, .12788, .19453,
1640 + .45384, .23949, 1.90026, .15879, .06555,
1641 + .03851, .12837, .19391,
1642 + .45470, .23871, 1.86084, .15840, .06712,
1643 + .04082, .12868, .19319,
1644 + .45531, .23790, 1.82316, .15791, .06841,
1645 + .04278, .12884, .19237 /
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 + .45572, .23702, 1.78481, .15729, .06953,
1648 + .04453, .12885, .19144,
1649 + .45601, .23612, 1.74763, .15663, .07054,
1650 + .04616, .12878, .19047,
1651 + .45609, .23519, 1.71187, .15589, .07134,
1652 + .04751, .12858, .18942,
1653 + .45609, .23430, 1.67853, .15515, .07202,
1654 + .04871, .12834, .18838,
1655 + .45595, .23336, 1.64498, .15434, .07260,
1656 + .04979, .12802, .18727,
1657 + .45572, .23240, 1.61222, .15349, .07311,
1658 + .05076, .12765, .18612,
1659 + .45541, .23146, 1.58128, .15264, .07351,
1660 + .05161, .12723, .18498,
1661 + .45504, .23054, 1.55229, .15180, .07384,
1662 + .05235, .12680, .18386 /
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 + .45457, .22959, 1.52314, .15089, .07409,
1665 + .05301, .12630, .18268,
1666 + .45407, .22865, 1.49494, .14999, .07432,
1667 + .05363, .12579, .18151,
1668 + .45346, .22770, 1.46795, .14908, .07446,
1669 + .05413, .12524, .18032,
1670 + .45289, .22681, 1.44299, .14823, .07458,
1671 + .05460, .12472, .17921,
1672 + .45221, .22587, 1.41769, .14731, .07464,
1673 + .05499, .12413, .17803 /
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 + .45325, .26377, 1.59850, .10951, .00000,
1676 + .00000, .06902, .15432,
1677 + .45859, .26442, 1.65567, .11154, .00000,
1678 + .00000, .07216, .15611,
1679 + .46560, .26505, 1.72080, .11420, .00000,
1680 + .00000, .07637, .15835,
1681 + .47010, .26525, 1.75249, .11588, .00161,
1682 + .00000, .07915, .15974,
1683 + .47420, .26526, 1.76885, .11745, .00636,
1684 + .00000, .08178, .16093,
1685 + .47736, .26513, 1.77697, .11863, .01022,
1686 + .00000, .08383, .16176,
1687 + .48013, .26491, 1.78062, .11963, .01354,
1688 + .00000, .08563, .16240,
1689 + .48280, .26457, 1.78027, .12054, .01687,
1690 + .00000, .08739, .16294 /
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 + .48479, .26415, 1.77511, .12117, .01936,
1693 + .00000, .08871, .16324,
1694 + .48656, .26370, 1.76816, .12171, .02175,
1695 + .00000, .08989, .16344,
1696 + .48782, .26329, 1.76085, .12206, .02351,
1697 + .00000, .09076, .16352,
1698 + .49010, .26228, 1.73771, .12265, .02702,
1699 + .00020, .09237, .16351,
1700 + .49166, .26128, 1.70915, .12296, .02973,
1701 + .00365, .09354, .16329,
1702 + .49300, .26003, 1.67288, .12312, .03248,
1703 + .00798, .09460, .16285,
1704 + .49399, .25860, 1.63318, .12308, .03503,
1705 + .01147, .09545, .16217,
1706 + .49456, .25720, 1.59566, .12288, .03710,
1707 + .01436, .09603, .16138 /
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 + .49485, .25572, 1.55673, .12252, .03896,
1710 + .01700, .09644, .16044,
1711 + .49479, .25438, 1.52317, .12209, .04028,
1712 + .01887, .09660, .15950,
1713 + .49454, .25269, 1.48252, .12147, .04175,
1714 + .02104, .09669, .15828,
1715 + .49413, .25116, 1.44662, .12084, .04293,
1716 + .02282, .09667, .15713,
1717 + .49354, .24969, 1.41333, .12018, .04385,
1718 + .02425, .09654, .15596,
1719 + .49257, .24777, 1.37134, .11925, .04488,
1720 + .02591, .09626, .15440,
1721 + .49149, .24592, 1.33240, .11830, .04573,
1722 + .02734, .09591, .15287,
1723 + .49029, .24414, 1.29622, .11735, .04640,
1724 + .02852, .09549, .15137 /
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 + .48891, .24231, 1.26034, .11632, .04696,
1727 + .02956, .09498, .14979,
1728 + .48746, .24051, 1.22609, .11529, .04743,
1729 + .03052, .09444, .14823,
1730 + .48591, .23875, 1.19391, .11424, .04778,
1731 + .03129, .09385, .14670,
1732 + .48439, .23708, 1.16429, .11324, .04806,
1733 + .03196, .09326, .14524,
1734 + .48274, .23537, 1.13498, .11220, .04827,
1735 + .03256, .09263, .14373,
1736 + .48103, .23368, 1.10673, .11116, .04843,
1737 + .03308, .09197, .14223,
1738 + .47931, .23206, 1.08038, .11015, .04854,
1739 + .03352, .09132, .14078,
1740 + .47763, .23051, 1.05595, .10918, .04860,
1741 + .03390, .09068, .13940 /
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 + .47587, .22893, 1.03169, .10817, .04862,
1744 + .03423, .09000, .13800,
1745 + .47410, .22737, 1.00838, .10718, .04862,
1746 + .03453, .08932, .13661,
1747 + .47230, .22585, .98636, .10620, .04858,
1748 + .03475, .08864, .13526,
1749 + .47060, .22443, .96607, .10528, .04853,
1750 + .03497, .08800, .13400,
1751 + .46878, .22295, .94576, .10433, .04844,
1752 + .03513, .08732, .13269 /
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 + .51695, .28758, 1.47784, .09469, .00000,
1755 + .00000, .06200, .14364,
1756 + .52050, .28693, 1.50321, .09579, .00000,
1757 + .00000, .06410, .14405,
1758 + .52487, .28566, 1.52637, .09713, .00000,
1759 + .00000, .06683, .14437,
1760 + .52741, .28455, 1.53161, .09794, .00125,
1761 + .00000, .06857, .14441,
1762 + .52945, .28323, 1.52484, .09861, .00488,
1763 + .00000, .07015, .14427,
1764 + .53086, .28196, 1.51506, .09903, .00781,
1765 + .00000, .07135, .14401,
1766 + .53195, .28067, 1.50312, .09934, .01030,
1767 + .00000, .07236, .14366,
1768 + .53281, .27923, 1.48790, .09958, .01278,
1769 + .00000, .07330, .14317 /
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 + .53324, .27788, 1.47159, .09965, .01460,
1772 + .00000, .07397, .14262,
1773 + .53350, .27654, 1.45479, .09967, .01634,
1774 + .00000, .07454, .14204,
1775 + .53358, .27544, 1.44047, .09963, .01762,
1776 + .00000, .07493, .14154,
1777 + .53336, .27301, 1.40523, .09942, .02012,
1778 + .00016, .07560, .14034,
1779 + .53278, .27083, 1.36948, .09912, .02204,
1780 + .00266, .07600, .13919,
1781 + .53177, .26828, 1.32744, .09864, .02395,
1782 + .00580, .07628, .13779,
1783 + .53035, .26556, 1.28352, .09799, .02568,
1784 + .00829, .07639, .13621,
1785 + .52874, .26304, 1.24364, .09731, .02707,
1786 + .01033, .07635, .13466 /
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 + .52688, .26044, 1.20362, .09653, .02830,
1789 + .01218, .07619, .13300,
1790 + .52506, .25819, 1.17020, .09577, .02915,
1791 + .01347, .07594, .13156,
1792 + .52269, .25546, 1.13051, .09481, .03007,
1793 + .01494, .07556, .12977,
1794 + .52043, .25304, 1.09614, .09391, .03079,
1795 + .01614, .07517, .12815,
1796 + .51818, .25077, 1.06491, .09303, .03135,
1797 + .01710, .07473, .12661,
1798 + .51514, .24787, 1.02619, .09187, .03194,
1799 + .01819, .07410, .12463,
1800 + .51214, .24513, .99083, .09075, .03241,
1801 + .01912, .07345, .12275,
1802 + .50919, .24253, .95849, .08965, .03277,
1803 + .01987, .07279, .12097 /
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 + .50608, .23991, .92689, .08850, .03303,
1806 + .02053, .07208, .11915,
1807 + .50299, .23737, .89704, .08739, .03325,
1808 + .02112, .07136, .11739,
1809 + .49988, .23494, .86936, .08630, .03339,
1810 + .02158, .07063, .11568,
1811 + .49692, .23265, .84409, .08527, .03348,
1812 + .02199, .06994, .11408,
1813 + .49388, .23033, .81934, .08421, .03353,
1814 + .02233, .06922, .11247,
1815 + .49080, .22806, .79568, .08317, .03354,
1816 + .02263, .06849, .11089,
1817 + .48782, .22591, .77377, .08217, .03352,
1818 + .02287, .06777, .10939,
1819 + .48496, .22387, .75362, .08123, .03348,
1820 + .02307, .06709, .10797 /
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 + .48202, .22180, .73377, .08026, .03341,
1823 + .02323, .06639, .10655,
1824 + .47912, .21977, .71478, .07931, .03333,
1825 + .02338, .06570, .10515,
1826 + .47623, .21782, .69702, .07840, .03322,
1827 + .02348, .06502, .10381,
1828 + .47354, .21600, .68070, .07755, .03311,
1829 + .02357, .06439, .10255,
1830 + .47073, .21414, .66447, .07667, .03298,
1831 + .02363, .06373, .10127 /
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 + .58258, .30686, 1.30305, .07874, .00000,
1834 + .00000, .05365, .12851,
1835 + .58341, .30458, 1.30456, .07914, .00000,
1836 + .00000, .05484, .12772,
1837 + .58377, .30102, 1.29714, .07948, .00000,
1838 + .00000, .05630, .12639,
1839 + .58346, .29833, 1.28405, .07961, .00093,
1840 + .00000, .05715, .12530,
1841 + .58258, .29541, 1.26210, .07962, .00357,
1842 + .00000, .05789, .12409,
1843 + .58149, .29280, 1.24105, .07952, .00569,
1844 + .00000, .05840, .12296,
1845 + .58021, .29027, 1.21963, .07935, .00748,
1846 + .00000, .05878, .12182,
1847 + .57860, .28757, 1.19574, .07910, .00923,
1848 + .00000, .05909, .12056 /
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 + .57691, .28514, 1.17333, .07880, .01051,
1851 + .00000, .05926, .11940,
1852 + .57517, .28279, 1.15143, .07848, .01172,
1853 + .00000, .05937, .11825,
1854 + .57367, .28091, 1.13368, .07818, .01260,
1855 + .00000, .05941, .11732,
1856 + .57017, .27688, 1.09340, .07747, .01429,
1857 + .00012, .05939, .11531,
1858 + .56682, .27339, 1.05585, .07679, .01557,
1859 + .00185, .05926, .11353,
1860 + .56280, .26946, 1.01350, .07594, .01682,
1861 + .00401, .05901, .11151,
1862 + .55831, .26535, .97048, .07498, .01794,
1863 + .00571, .05864, .10934,
1864 + .55402, .26161, .93243, .07405, .01881,
1865 + .00708, .05821, .10734 /
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 + .54950, .25785, .89505, .07306, .01956,
1868 + .00830, .05770, .10531,
1869 + .54553, .25468, .86456, .07216, .02007,
1870 + .00915, .05719, .10360,
1871 + .54062, .25088, .82886, .07106, .02061,
1872 + .01010, .05655, .10153,
1873 + .53618, .24755, .79839, .07008, .02102,
1874 + .01087, .05595, .09970,
1875 + .53197, .24447, .77113, .06915, .02131,
1876 + .01147, .05535, .09800,
1877 + .52651, .24060, .73781, .06795, .02161,
1878 + .01215, .05455, .09588,
1879 + .52131, .23699, .70778, .06681, .02183,
1880 + .01271, .05378, .09390,
1881 + .51637, .23359, .68065, .06571, .02198,
1882 + .01316, .05304, .09205 /
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 + .51129, .23023, .65447, .06461, .02207,
1885 + .01354, .05227, .09021,
1886 + .50632, .22700, .62996, .06355, .02214,
1887 + .01388, .05151, .08844,
1888 + .50153, .22392, .60748, .06252, .02215,
1889 + .01413, .05077, .08676,
1890 + .49700, .22105, .58713, .06156, .02213,
1891 + .01435, .05007, .08521,
1892 + .49240, .21819, .56737, .06060, .02209,
1893 + .01453, .04936, .08365,
1894 + .48786, .21539, .54862, .05966, .02203,
1895 + .01467, .04866, .08214,
1896 + .48352, .21274, .53139, .05876, .02196,
1897 + .01479, .04799, .08073,
1898 + .47941, .21027, .51563, .05791, .02187,
1899 + .01488, .04735, .07940 /
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 + .47521, .20778, .50022, .05707, .02176,
1902 + .01494, .04670, .07808,
1903 + .47109, .20536, .48554, .05625, .02165,
1904 + .01500, .04607, .07679,
1905 + .46710, .20304, .47193, .05545, .02153,
1906 + .01503, .04546, .07557,
1907 + .46337, .20088, .45947, .05472, .02141,
1908 + .01505, .04489, .07443,
1909 + .45955, .19868, .44717, .05396, .02127,
1910 + .01505, .04430, .07328 /
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 + .63347, .31675, 1.13234, .06558, .00000,
1913 + .00000, .04588, .11230,
1914 + .63125, .31296, 1.12048, .06553, .00000,
1915 + .00000, .04646, .11078,
1916 + .62727, .30726, 1.09668, .06529, .00000,
1917 + .00000, .04710, .10845,
1918 + .62388, .30313, 1.07434, .06504, .00070,
1919 + .00000, .04742, .10672,
1920 + .61993, .29877, 1.04549, .06468, .00266,
1921 + .00000, .04765, .10489,
1922 + .61624, .29497, 1.01963, .06428, .00422,
1923 + .00000, .04773, .10332,
1924 + .61252, .29134, .99447, .06386, .00552,
1925 + .00000, .04775, .10178,
1926 + .60840, .28753, .96748, .06337, .00679,
1927 + .00000, .04770, .10013 /
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 + .60458, .28416, .94327, .06287, .00770,
1930 + .00000, .04758, .09868,
1931 + .60081, .28095, .92008, .06238, .00856,
1932 + .00000, .04743, .09727,
1933 + .59773, .27842, .90169, .06197, .00917,
1934 + .00000, .04729, .09614,
1935 + .59097, .27306, .86145, .06105, .01035,
1936 + .00009, .04692, .09377,
1937 + .58497, .26848, .82551, .06021, .01122,
1938 + .00132, .04652, .09175,
1939 + .57807, .26340, .78589, .05923, .01206,
1940 + .00285, .04600, .08950,
1941 + .57071, .25817, .74635, .05815, .01280,
1942 + .00403, .04539, .08716,
1943 + .56390, .25347, .71192, .05714, .01336,
1944 + .00497, .04478, .08506 /
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 + .55694, .24880, .67858, .05612, .01383,
1947 + .00580, .04414, .08294,
1948 + .55099, .24495, .65177, .05523, .01413,
1949 + .00637, .04355, .08120,
1950 + .54378, .24033, .62073, .05415, .01445,
1951 + .00701, .04282, .07913,
1952 + .53738, .23630, .59454, .05319, .01468,
1953 + .00751, .04217, .07733,
1954 + .53144, .23263, .57136, .05229, .01483,
1955 + .00790, .04154, .07569,
1956 + .52388, .22803, .54327, .05115, .01498,
1957 + .00833, .04074, .07365,
1958 + .51679, .22378, .51819, .05008, .01507,
1959 + .00868, .03997, .07176,
1960 + .51009, .21987, .49577, .04910, .01512,
1961 + .00896, .03925, .07001 /
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 + .50336, .21598, .47433, .04810, .01513,
1964 + .00918, .03851, .06831,
1965 + .49685, .21225, .45439, .04714, .01512,
1966 + .00938, .03780, .06668,
1967 + .49064, .20873, .43629, .04622, .01508,
1968 + .00952, .03711, .06516,
1969 + .48482, .20549, .42000, .04538, .01503,
1970 + .00964, .03647, .06375,
1971 + .47896, .20228, .40425, .04454, .01496,
1972 + .00973, .03584, .06235,
1973 + .47322, .19916, .38942, .04373, .01487,
1974 + .00980, .03521, .06100,
1975 + .46779, .19621, .37588, .04295, .01478,
1976 + .00985, .03461, .05976,
1977 + .46268, .19345, .36357, .04222, .01468,
1978 + .00989, .03405, .05860 /
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 + .45753, .19070, .35158, .04150, .01457,
1981 + .00991, .03349, .05743,
1982 + .45250, .18803, .34022, .04079, .01446,
1983 + .00992, .03295, .05631,
1984 + .44765, .18549, .32973, .04013, .01435,
1985 + .00992, .03242, .05526,
1986 + .44312, .18313, .32015, .03951, .01424,
1987 + .00991, .03194, .05429,
1988 + .43852, .18075, .31076, .03888, .01411,
1989 + .00989, .03144, .05331 /
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 + .67047, .31911, .97908, .05485, .00000,
1992 + .00000, .03878, .09594,
1993 + .66512, .31397, .95976, .05455, .00000,
1994 + .00000, .03897, .09402,
1995 + .65667, .30643, .92730, .05398, .00000,
1996 + .00000, .03908, .09117,
1997 + .65023, .30103, .90053, .05348, .00054,
1998 + .00000, .03906, .08916,
1999 + .64320, .29545, .86896, .05293, .00200,
2000 + .00000, .03896, .08709,
2001 + .63694, .29068, .84153, .05239, .00317,
2002 + .00000, .03880, .08530,
2003 + .63084, .28616, .81540, .05184, .00413,
2004 + .00000, .03861, .08359,
2005 + .62429, .28142, .78796, .05124, .00505,
2006 + .00000, .03835, .08179 /
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 + .61842, .27731, .76392, .05066, .00571,
2009 + .00000, .03808, .08025,
2010 + .61272, .27342, .74119, .05010, .00633,
2011 + .00000, .03779, .07877,
2012 + .60815, .27037, .72339, .04966, .00677,
2013 + .00000, .03754, .07760,
2014 + .59837, .26395, .68531, .04868, .00760,
2015 + .00007, .03698, .07516,
2016 + .58991, .25852, .65220, .04779, .00820,
2017 + .00095, .03646, .07313,
2018 + .58038, .25257, .61633, .04678, .00878,
2019 + .00205, .03584, .07091,
2020 + .57042, .24650, .58098, .04571, .00926,
2021 + .00288, .03515, .06862,
2022 + .56140, .24109, .55058, .04472, .00963,
2023 + .00354, .03450, .06660 /
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 + .55228, .23576, .52149, .04372, .00993,
2026 + .00412, .03382, .06462,
2027 + .54465, .23137, .49833, .04288, .01011,
2028 + .00451, .03323, .06299,
2029 + .53547, .22618, .47173, .04187, .01029,
2030 + .00494, .03251, .06106,
2031 + .52743, .22168, .44948, .04098, .01042,
2032 + .00528, .03187, .05941,
2033 + .52003, .21760, .42999, .04016, .01049,
2034 + .00553, .03127, .05792,
2035 + .51072, .21251, .40654, .03913, .01056,
2036 + .00581, .03052, .05608,
2037 + .50206, .20786, .38578, .03817, .01058,
2038 + .00604, .02982, .05440,
2039 + .49395, .20359, .36739, .03729, .01058,
2040 + .00621, .02916, .05286 /
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 + .48590, .19939, .34993, .03642, .01055,
2043 + .00634, .02850, .05136,
2044 + .47816, .19538, .33377, .03558, .01051,
2045 + .00646, .02787, .04992,
2046 + .47081, .19164, .31919, .03480, .01045,
2047 + .00654, .02728, .04859,
2048 + .46399, .18818, .30614, .03407, .01039,
2049 + .00660, .02672, .04737,
2050 + .45719, .18475, .29363, .03335, .01031,
2051 + .00665, .02616, .04619,
2052 + .45056, .18144, .28191, .03264, .01023,
2053 + .00668, .02562, .04505,
2054 + .44431, .17834, .27126, .03199, .01014,
2055 + .00670, .02512, .04399,
2056 + .43846, .17545, .26161, .03137, .01005,
2057 + .00671, .02465, .04301 /
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 + .43259, .17257, .25228, .03076, .00995,
2060 + .00670, .02417, .04205,
2061 + .42688, .16978, .24346, .03017, .00986,
2062 + .00670, .02372, .04111,
2063 + .42140, .16716, .23535, .02963, .00976,
2064 + .00668, .02328, .04023,
2065 + .41630, .16473, .22795, .02912, .00966,
2066 + .00667, .02287, .03942,
2067 + .41116, .16227, .22075, .02860, .00956,
2068 + .00664, .02248, .03861 /
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 + .69462, .31539, .84632, .04611, .00000,
2071 + .00000, .03241, .08018,
2072 + .68617, .30911, .82275, .04564, .00000,
2073 + .00000, .03235, .07813,
2074 + .67341, .30001, .78577, .04484, .00000,
2075 + .00000, .03215, .07517,
2076 + .66404, .29357, .75707, .04424, .00041,
2077 + .00000, .03194, .07307,
2078 + .65410, .28700, .72488, .04356, .00152,
2079 + .00000, .03165, .07097,
2080 + .64546, .28141, .69745, .04294, .00239,
2081 + .00000, .03136, .06919,
2082 + .63715, .27616, .67171, .04233, .00310,
2083 + .00000, .03105, .06749,
2084 + .62833, .27072, .64504, .04169, .00378,
2085 + .00000, .03070, .06571 /
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 + .62059, .26603, .62206, .04109, .00426,
2088 + .00000, .03036, .06422,
2089 + .61317, .26160, .60055, .04050, .00471,
2090 + .00000, .03001, .06280,
2091 + .60728, .25813, .58386, .04004, .00502,
2092 + .00000, .02972, .06169,
2093 + .59483, .25090, .54874, .03903, .00561,
2094 + .00006, .02910, .05941,
2095 + .58418, .24487, .51886, .03816, .00603,
2096 + .00069, .02854, .05751,
2097 + .57238, .23830, .48688, .03718, .00642,
2098 + .00149, .02790, .05545,
2099 + .56019, .23163, .45571, .03616, .00675,
2100 + .00208, .02721, .05336,
2101 + .54923, .22575, .42921, .03524, .00699,
2102 + .00255, .02656, .05154 /
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 + .53836, .21995, .40406, .03429, .00718,
2105 + .00295, .02591, .04978,
2106 + .52929, .21525, .38424, .03354, .00728,
2107 + .00322, .02536, .04832,
2108 + .51849, .20969, .36167, .03262, .00739,
2109 + .00351, .02470, .04662,
2110 + .50910, .20490, .34293, .03181, .00745,
2111 + .00374, .02413, .04517,
2112 + .50054, .20057, .32663, .03108, .00748,
2113 + .00391, .02360, .04388,
2114 + .48981, .19525, .30718, .03017, .00750,
2115 + .00409, .02293, .04229,
2116 + .47991, .19039, .29009, .02933, .00749,
2117 + .00423, .02231, .04085,
2118 + .47077, .18592, .27504, .02857, .00746,
2119 + .00434, .02173, .03954 /
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 + .46173, .18153, .26084, .02780, .00742,
2122 + .00442, .02117, .03829,
2123 + .45308, .17737, .24778, .02706, .00737,
2124 + .00449, .02063, .03710,
2125 + .44491, .17353, .23611, .02639, .00731,
2126 + .00454, .02013, .03598,
2127 + .43737, .16999, .22571, .02577, .00724,
2128 + .00457, .01966, .03496,
2129 + .42989, .16649, .21576, .02516, .00717,
2130 + .00459, .01920, .03397,
2131 + .42262, .16312, .20649, .02457, .00709,
2132 + .00460, .01875, .03303,
2133 + .41581, .15997, .19812, .02401, .00702,
2134 + .00460, .01832, .03218,
2135 + .40944, .15706, .19056, .02350, .00694,
2136 + .00460, .01793, .03138 /
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 + .40308, .15416, .18326, .02301, .00686,
2139 + .00459, .01755, .03059,
2140 + .39692, .15137, .17640, .02252, .00678,
2141 + .00457, .01718, .02983,
2142 + .39108, .14873, .17013, .02205, .00669,
2143 + .00455, .01682, .02912,
2144 + .38566, .14629, .16443, .02161, .00662,
2145 + .00453, .01650, .02848,
2146 + .38018, .14384, .15889, .02119, .00654,
2147 + .00451, .01617, .02783 /
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 + .70695, .30682, .73252, .03890, .00000,
2150 + .00000, .02678, .06565,
2151 + .69559, .29960, .70654, .03832, .00000,
2152 + .00000, .02660, .06363,
2153 + .67882, .28925, .66730, .03741, .00000,
2154 + .00000, .02621, .06077,
2155 + .66675, .28199, .63802, .03671, .00032,
2156 + .00000, .02590, .05879,
2157 + .65416, .27465, .60634, .03599, .00115,
2158 + .00000, .02551, .05680,
2159 + .64333, .26847, .57971, .03534, .00181,
2160 + .00000, .02517, .05510,
2161 + .63304, .26270, .55501, .03472, .00234,
2162 + .00000, .02482, .05353,
2163 + .62225, .25672, .52971, .03405, .00284,
2164 + .00000, .02442, .05192 /
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 + .61287, .25160, .50824, .03344, .00319,
2167 + .00000, .02404, .05056,
2168 + .60394, .24678, .48828, .03286, .00351,
2169 + .00000, .02368, .04928,
2170 + .59691, .24303, .47291, .03240, .00373,
2171 + .00000, .02340, .04828,
2172 + .58216, .23524, .44103, .03142, .00415,
2173 + .00005, .02278, .04623,
2174 + .56969, .22880, .41436, .03059, .00444,
2175 + .00051, .02224, .04454,
2176 + .55596, .22184, .38616, .02967, .00471,
2177 + .00108, .02163, .04273,
2178 + .54194, .21481, .35898, .02872, .00493,
2179 + .00151, .02098, .04092,
2180 + .52948, .20863, .33608, .02786, .00508,
2181 + .00184, .02040, .03934 /
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 + .51712, .20261, .31453, .02702, .00520,
2184 + .00212, .01981, .03781,
2185 + .50696, .19772, .29771, .02633, .00526,
2186 + .00231, .01932, .03659,
2187 + .49493, .19197, .27868, .02551, .00531,
2188 + .00251, .01874, .03516,
2189 + .48452, .18705, .26299, .02480, .00534,
2190 + .00266, .01824, .03393,
2191 + .47507, .18265, .24944, .02415, .00535,
2192 + .00278, .01778, .03284,
2193 + .46334, .17721, .23339, .02335, .00534,
2194 + .00290, .01720, .03152,
2195 + .45257, .17226, .21939, .02263, .00532,
2196 + .00299, .01667, .03033,
2197 + .44264, .16777, .20713, .02197, .00528,
2198 + .00305, .01619, .02924 /
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 + .43292, .16338, .19566, .02131, .00524,
2201 + .00310, .01571, .02820,
2202 + .42366, .15921, .18516, .02068, .00519,
2203 + .00314, .01526, .02723,
2204 + .41496, .15534, .17580, .02010, .00513,
2205 + .00316, .01484, .02636,
2206 + .40695, .15181, .16751, .01957, .00507,
2207 + .00318, .01445, .02555,
2208 + .39903, .14835, .15965, .01906, .00501,
2209 + .00318, .01407, .02476,
2210 + .39137, .14503, .15235, .01858, .00494,
2211 + .00318, .01370, .02400,
2212 + .38421, .14194, .14576, .01813, .00488,
2213 + .00318, .01336, .02330,
2214 + .37755, .13909, .13984, .01771, .00481,
2215 + .00317, .01305, .02267 /
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 + .37092, .13625, .13416, .01729, .00475,
2218 + .00316, .01273, .02205,
2219 + .36453, .13353, .12883, .01688, .00468,
2220 + .00314, .01243, .02145,
2221 + .35848, .13096, .12398, .01650, .00461,
2222 + .00312, .01216, .02089,
2223 + .35288, .12858, .11959, .01614, .00455,
2224 + .00310, .01190, .02038,
2225 + .34725, .12621, .11533, .01579, .00449,
2226 + .00308, .01164, .01987 /
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 + .70860, .29441, .63461, .03286, .00000,
2229 + .00000, .02194, .05265,
2230 + .69459, .28648, .60732, .03223, .00000,
2231 + .00000, .02163, .05081,
2232 + .67414, .27526, .56728, .03127, .00000,
2233 + .00000, .02116, .04817,
2234 + .65965, .26742, .53831, .03056, .00024,
2235 + .00000, .02078, .04637,
2236 + .64473, .25955, .50768, .02982, .00087,
2237 + .00000, .02037, .04458,
2238 + .63203, .25295, .48233, .02918, .00136,
2239 + .00000, .02000, .04307,
2240 + .62006, .24680, .45909, .02856, .00175,
2241 + .00000, .01963, .04169,
2242 + .60760, .24046, .43554, .02788, .00212,
2243 + .00000, .01922, .04030 /
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 + .59684, .23509, .41571, .02729, .00238,
2246 + .00000, .01887, .03910,
2247 + .58665, .23004, .39744, .02673, .00261,
2248 + .00000, .01853, .03798,
2249 + .57868, .22612, .38349, .02629, .00277,
2250 + .00000, .01825, .03713,
2251 + .56201, .21805, .35489, .02538, .00307,
2252 + .00004, .01767, .03536,
2253 + .54808, .21138, .33136, .02461, .00327,
2254 + .00037, .01717, .03392,
2255 + .53287, .20422, .30675, .02377, .00345,
2256 + .00079, .01661, .03238,
2257 + .51743, .19702, .28323, .02291, .00360,
2258 + .00109, .01604, .03086,
2259 + .50383, .19073, .26360, .02213, .00369,
2260 + .00133, .01553, .02954 /
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 + .49043, .18462, .24530, .02136, .00376,
2263 + .00153, .01502, .02828,
2264 + .47945, .17970, .23112, .02076, .00380,
2265 + .00166, .01459, .02726,
2266 + .46651, .17394, .21520, .02004, .00382,
2267 + .00179, .01410, .02608,
2268 + .45540, .16901, .20217, .01941, .00383,
2269 + .00190, .01367, .02508,
2270 + .44538, .16462, .19099, .01885, .00383,
2271 + .00197, .01329, .02421,
2272 + .43298, .15922, .17784, .01815, .00381,
2273 + .00205, .01280, .02316,
2274 + .42164, .15433, .16643, .01753, .00378,
2275 + .00211, .01236, .02221,
2276 + .41128, .14991, .15650, .01695, .00374,
2277 + .00215, .01196, .02134 /
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 + .40113, .14561, .14729, .01640, .00370,
2280 + .00218, .01158, .02051,
2281 + .39147, .14154, .13890, .01588, .00365,
2282 + .00220, .01121, .01974,
2283 + .38252, .13778, .13145, .01539, .00360,
2284 + .00221, .01087, .01904,
2285 + .37429, .13435, .12488, .01494, .00355,
2286 + .00222, .01056, .01840,
2287 + .36616, .13098, .11867, .01452, .00350,
2288 + .00222, .01026, .01778,
2289 + .35833, .12776, .11293, .01412, .00345,
2290 + .00221, .00997, .01719,
2291 + .35103, .12479, .10777, .01374, .00340,
2292 + .00220, .00970, .01666,
2293 + .34428, .12205, .10316, .01339, .00335,
2294 + .00219, .00944, .01617 /
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 + .33759, .11934, .09876, .01304, .00329,
2297 + .00218, .00919, .01569,
2298 + .33114, .11674, .09464, .01270, .00324,
2299 + .00216, .00895, .01523,
2300 + .32506, .11428, .09088, .01239, .00319,
2301 + .00215, .00874, .01481,
2302 + .31943, .11201, .08748, .01211, .00314,
2303 + .00213, .00854, .01442,
2304 + .31377, .10977, .08421, .01183, .00309,
2305 + .00211, .00834, .01403 /
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 + .70034, .27947, .54947, .02804, .00000,
2308 + .00000, .01756, .04120,
2309 + .68405, .27102, .52161, .02734, .00000,
2310 + .00000, .01724, .03960,
2311 + .66057, .25910, .48171, .02632, .00000,
2312 + .00000, .01676, .03733,
2313 + .64405, .25086, .45359, .02558, .00019,
2314 + .00000, .01639, .03579,
2315 + .62723, .24263, .42452, .02482, .00066,
2316 + .00000, .01599, .03426,
2317 + .61299, .23577, .40075, .02417, .00102,
2318 + .00000, .01565, .03299,
2319 + .59967, .22940, .37917, .02355, .00132,
2320 + .00000, .01531, .03182,
2321 + .58587, .22285, .35752, .02289, .00159,
2322 + .00000, .01494, .03065 /
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 + .57399, .21736, .33950, .02234, .00177,
2325 + .00000, .01461, .02965,
2326 + .56281, .21221, .32301, .02182, .00194,
2327 + .00000, .01431, .02872,
2328 + .55411, .20822, .31051, .02140, .00205,
2329 + .00000, .01406, .02801,
2330 + .53606, .20001, .28518, .02054, .00226,
2331 + .00003, .01354, .02655,
2332 + .52104, .19327, .26459, .01984, .00240,
2333 + .00027, .01311, .02535,
2334 + .50475, .18607, .24330, .01907, .00252,
2335 + .00057, .01263, .02410,
2336 + .48830, .17889, .22319, .01829, .00262,
2337 + .00079, .01214, .02287,
2338 + .47387, .17264, .20654, .01760, .00268,
2339 + .00096, .01171, .02181 /
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 + .45984, .16657, .19112, .01689, .00272,
2342 + .00110, .01126, .02082,
2343 + .44833, .16174, .17931, .01636, .00274,
2344 + .00119, .01092, .01998,
2345 + .43485, .15607, .16611, .01574, .00274,
2346 + .00128, .01050, .01905,
2347 + .42332, .15124, .15536, .01521, .00274,
2348 + .00136, .01014, .01827,
2349 + .41296, .14695, .14622, .01472, .00273,
2350 + .00140, .00983, .01757,
2351 + .40020, .14171, .13552, .01412, .00271,
2352 + .00146, .00946, .01674,
2353 + .38859, .13698, .12629, .01358, .00268,
2354 + .00149, .00910, .01600,
2355 + .37803, .13270, .11833, .01311, .00265,
2356 + .00152, .00877, .01533 /
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 + .36774, .12855, .11095, .01264, .00261,
2359 + .00153, .00847, .01469,
2360 + .35799, .12466, .10425, .01220, .00257,
2361 + .00154, .00818, .01409,
2362 + .34897, .12107, .09837, .01180, .00253,
2363 + .00155, .00791, .01356,
2364 + .34069, .11781, .09320, .01143, .00249,
2365 + .00155, .00765, .01307,
2366 + .33254, .11462, .08834, .01108, .00245,
2367 + .00154, .00740, .01260,
2368 + .32474, .11158, .08385, .01074, .00240,
2369 + .00154, .00717, .01216,
2370 + .31750, .10877, .07984, .01042, .00236,
2371 + .00153, .00697, .01174,
2372 + .31081, .10618, .07625, .01013, .00232,
2373 + .00152, .00678, .01137 /
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 + .30417, .10363, .07284, .00985, .00228,
2376 + .00151, .00659, .01100,
2377 + .29779, .10119, .06964, .00959, .00224,
2378 + .00149, .00640, .01066,
2379 + .29181, .09889, .06676, .00932, .00220,
2380 + .00148, .00623, .01035,
2381 + .28628, .09677, .06415, .00908, .00216,
2382 + .00147, .00608, .01007,
2383 + .28076, .09468, .06166, .00885, .00213,
2384 + .00145, .00592, .00978 /
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 + .68415, .26191, .47377, .02347, .00000,
2387 + .00000, .01409, .03182,
2388 + .66587, .25318, .44609, .02280, .00000,
2389 + .00000, .01376, .03043,
2390 + .63979, .24090, .40725, .02178, .00000,
2391 + .00000, .01328, .02852,
2392 + .62158, .23251, .38046, .02108, .00014,
2393 + .00000, .01292, .02722,
2394 + .60314, .22418, .35336, .02039, .00049,
2395 + .00000, .01253, .02593,
2396 + .58769, .21724, .33144, .01978, .00076,
2397 + .00000, .01220, .02488,
2398 + .57328, .21082, .31170, .01920, .00097,
2399 + .00000, .01189, .02391,
2400 + .55842, .20427, .29206, .01860, .00117,
2401 + .00000, .01156, .02292 /
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 + .54575, .19874, .27593, .01810, .00130,
2404 + .00000, .01128, .02212,
2405 + .53386, .19358, .26127, .01761, .00142,
2406 + .00000, .01100, .02138,
2407 + .52464, .18959, .25023, .01722, .00150,
2408 + .00000, .01077, .02081,
2409 + .50555, .18147, .22805, .01644, .00164,
2410 + .00002, .01032, .01965,
2411 + .48978, .17483, .21031, .01581, .00174,
2412 + .00020, .00995, .01870,
2413 + .47280, .16773, .19214, .01514, .00182,
2414 + .00041, .00955, .01768,
2415 + .45576, .16071, .17510, .01445, .00188,
2416 + .00057, .00913, .01670,
2417 + .44087, .15463, .16113, .01384, .00192,
2418 + .00069, .00876, .01588 /
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 + .42638, .14875, .14829, .01325, .00194,
2421 + .00078, .00841, .01509,
2422 + .41466, .14405, .13855, .01281, .00195,
2423 + .00084, .00812, .01444,
2424 + .40096, .13858, .12772, .01226, .00195,
2425 + .00091, .00780, .01371,
2426 + .38927, .13394, .11896, .01180, .00194,
2427 + .00096, .00752, .01311,
2428 + .37883, .12985, .11155, .01139, .00193,
2429 + .00099, .00725, .01257,
2430 + .36602, .12485, .10293, .01088, .00191,
2431 + .00102, .00693, .01194,
2432 + .35441, .12035, .09554, .01043, .00188,
2433 + .00105, .00664, .01138,
2434 + .34387, .11630, .08919, .01004, .00185,
2435 + .00106, .00639, .01086 /
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 + .33363, .11239, .08335, .00966, .00182,
2438 + .00107, .00615, .01038,
2439 + .32396, .10873, .07809, .00929, .00179,
2440 + .00108, .00591, .00994,
2441 + .31502, .10539, .07348, .00897, .00176,
2442 + .00107, .00570, .00952,
2443 + .30688, .10234, .06943, .00868, .00173,
2444 + .00107, .00551, .00915,
2445 + .29892, .09936, .06564, .00838, .00169,
2446 + .00107, .00532, .00880,
2447 + .29131, .09652, .06215, .00810, .00166,
2448 + .00106, .00515, .00847,
2449 + .28426, .09389, .05906, .00784, .00163,
2450 + .00105, .00499, .00819,
2451 + .27775, .09149, .05630, .00760, .00160,
2452 + .00105, .00484, .00792 /
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 + .27132, .08913, .05368, .00737, .00157,
2455 + .00104, .00470, .00764,
2456 + .26515, .08688, .05124, .00716, .00154,
2457 + .00103, .00456, .00738,
2458 + .25936, .08477, .04904, .00696, .00151,
2459 + .00101, .00443, .00714,
2460 + .25401, .08283, .04706, .00679, .00148,
2461 + .00100, .00431, .00693,
2462 + .24869, .08091, .04515, .00660, .00145,
2463 + .00099, .00419, .00672 /
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 + .66056, .24306, .40609, .01965, .00000,
2466 + .00000, .01110, .02399,
2467 + .64075, .23420, .37918, .01896, .00000,
2468 + .00000, .01079, .02288,
2469 + .61265, .22185, .34216, .01800, .00000,
2470 + .00000, .01033, .02133,
2471 + .59318, .21343, .31707, .01733, .00010,
2472 + .00000, .01001, .02027,
2473 + .57366, .20508, .29222, .01664, .00036,
2474 + .00000, .00968, .01925,
2475 + .55732, .19819, .27231, .01608, .00056,
2476 + .00000, .00938, .01841,
2477 + .54216, .19185, .25456, .01556, .00071,
2478 + .00000, .00910, .01764,
2479 + .52661, .18538, .23708, .01501, .00085,
2480 + .00000, .00881, .01687 /
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 + .51339, .17996, .22284, .01455, .00094,
2483 + .00000, .00859, .01620,
2484 + .50103, .17489, .20999, .01412, .00103,
2485 + .00000, .00837, .01560,
2486 + .49148, .17099, .20036, .01379, .00109,
2487 + .00000, .00817, .01515,
2488 + .47183, .16307, .18124, .01310, .00119,
2489 + .00002, .00779, .01424,
2490 + .45567, .15663, .16614, .01253, .00125,
2491 + .00014, .00747, .01352,
2492 + .43834, .14979, .15082, .01193, .00131,
2493 + .00029, .00713, .01275,
2494 + .42104, .14304, .13658, .01135, .00134,
2495 + .00041, .00678, .01199,
2496 + .40599, .13722, .12502, .01085, .00137,
2497 + .00049, .00649, .01135 /
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 + .39143, .13160, .11449, .01034, .00138,
2500 + .00056, .00621, .01073,
2501 + .37970, .12714, .10651, .00995, .00138,
2502 + .00060, .00599, .01026,
2503 + .36603, .12197, .09772, .00948, .00137,
2504 + .00064, .00572, .00972,
2505 + .35441, .11760, .09068, .00910, .00137,
2506 + .00067, .00548, .00927,
2507 + .34409, .11374, .08471, .00876, .00135,
2508 + .00069, .00528, .00887,
2509 + .33145, .10904, .07784, .00834, .00133,
2510 + .00072, .00503, .00839,
2511 + .32004, .10484, .07200, .00797, .00131,
2512 + .00073, .00480, .00797,
2513 + .30972, .10106, .06700, .00764, .00129,
2514 + .00074, .00461, .00759 /
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 + .29975, .09744, .06242, .00733, .00127,
2517 + .00074, .00442, .00722,
2518 + .29036, .09404, .05830, .00704, .00124,
2519 + .00074, .00425, .00688,
2520 + .28174, .09093, .05471, .00677, .00122,
2521 + .00074, .00408, .00659,
2522 + .27389, .08811, .05158, .00652, .00119,
2523 + .00074, .00393, .00633,
2524 + .26622, .08536, .04865, .00628, .00117,
2525 + .00074, .00379, .00606,
2526 + .25890, .08276, .04598, .00605, .00114,
2527 + .00073, .00366, .00582,
2528 + .25213, .08037, .04361, .00585, .00112,
2529 + .00072, .00352, .00561,
2530 + .24589, .07818, .04150, .00567, .00110,
2531 + .00072, .00341, .00541 /
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 + .23975, .07603, .03949, .00550, .00107,
2534 + .00071, .00331, .00521,
2535 + .23387, .07399, .03763, .00533, .00105,
2536 + .00070, .00321, .00503,
2537 + .22839, .07207, .03596, .00516, .00103,
2538 + .00069, .00311, .00486,
2539 + .22334, .07031, .03446, .00501, .00101,
2540 + .00068, .00302, .00471,
2541 + .21832, .06857, .03302, .00486, .00099,
2542 + .00067, .00293, .00456 /
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 + .63097, .22324, .34491, .01621, .00000,
2545 + .00000, .00867, .01779,
2546 + .60999, .21445, .31935, .01557, .00000,
2547 + .00000, .00841, .01688,
2548 + .58046, .20225, .28481, .01465, .00000,
2549 + .00000, .00798, .01567,
2550 + .56014, .19394, .26183, .01404, .00008,
2551 + .00000, .00770, .01484,
2552 + .53987, .18576, .23944, .01341, .00026,
2553 + .00000, .00739, .01406,
2554 + .52300, .17903, .22170, .01291, .00040,
2555 + .00000, .00715, .01338,
2556 + .50740, .17285, .20603, .01244, .00051,
2557 + .00000, .00691, .01278,
2558 + .49147, .16656, .19072, .01195, .00061,
2559 + .00000, .00665, .01220 /
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 + .47799, .16131, .17837, .01155, .00068,
2562 + .00000, .00645, .01170,
2563 + .46541, .15645, .16730, .01117, .00074,
2564 + .00000, .00626, .01124,
2565 + .45572, .15272, .15907, .01087, .00078,
2566 + .00000, .00611, .01088,
2567 + .43583, .14514, .14283, .01030, .00084,
2568 + .00001, .00581, .01017,
2569 + .41962, .13900, .13016, .00980, .00089,
2570 + .00010, .00555, .00962,
2571 + .40228, .13249, .11744, .00929, .00092,
2572 + .00021, .00527, .00905,
2573 + .38505, .12609, .10572, .00880, .00095,
2574 + .00029, .00500, .00847,
2575 + .37016, .12060, .09626, .00838, .00096,
2576 + .00034, .00475, .00798 /
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 + .35577, .11535, .08771, .00796, .00097,
2579 + .00039, .00450, .00755,
2580 + .34426, .11116, .08129, .00763, .00096,
2581 + .00042, .00433, .00719,
2582 + .33088, .10633, .07425, .00725, .00096,
2583 + .00045, .00413, .00678,
2584 + .31956, .10227, .06863, .00693, .00095,
2585 + .00047, .00395, .00644,
2586 + .30951, .09869, .06393, .00664, .00094,
2587 + .00048, .00380, .00614,
2588 + .29726, .09434, .05853, .00631, .00092,
2589 + .00050, .00362, .00579,
2590 + .28624, .09046, .05395, .00601, .00091,
2591 + .00050, .00345, .00549,
2592 + .27630, .08701, .05005, .00576, .00089,
2593 + .00051, .00329, .00522 /
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 + .26673, .08368, .04649, .00551, .00087,
2596 + .00051, .00315, .00495,
2597 + .25775, .08057, .04330, .00528, .00085,
2598 + .00051, .00302, .00470,
2599 + .24954, .07772, .04054, .00506, .00083,
2600 + .00051, .00289, .00449,
2601 + .24207, .07516, .03814, .00486, .00081,
2602 + .00051, .00278, .00431,
2603 + .23479, .07268, .03590, .00467, .00080,
2604 + .00050, .00268, .00412,
2605 + .22788, .07034, .03386, .00449, .00078,
2606 + .00050, .00258, .00395,
2607 + .22150, .06818, .03206, .00433, .00076,
2608 + .00049, .00248, .00380,
2609 + .21565, .06620, .03046, .00418, .00074,
2610 + .00049, .00239, .00366 /
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 + .20988, .06427, .02894, .00405, .00073,
2613 + .00048, .00231, .00351,
2614 + .20438, .06243, .02754, .00391, .00071,
2615 + .00048, .00223, .00337,
2616 + .19926, .06071, .02628, .00378, .00070,
2617 + .00047, .00216, .00326,
2618 + .19455, .05914, .02515, .00366, .00068,
2619 + .00046, .00210, .00316,
2620 + .18987, .05759, .02408, .00355, .00067,
2621 + .00046, .00203, .00305 /
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 + .59646, .20297, .28959, .01312, .00000,
2624 + .00000, .00671, .01297,
2625 + .57471, .19441, .26589, .01255, .00000,
2626 + .00000, .00646, .01226,
2627 + .54429, .18254, .23439, .01175, .00000,
2628 + .00000, .00612, .01129,
2629 + .52351, .17451, .21378, .01122, .00006,
2630 + .00000, .00584, .01066,
2631 + .50287, .16662, .19401, .01066, .00018,
2632 + .00000, .00560, .01005,
2633 + .48579, .16016, .17851, .01020, .00029,
2634 + .00000, .00539, .00957,
2635 + .47004, .15425, .16492, .00979, .00036,
2636 + .00000, .00519, .00912,
2637 + .45399, .14826, .15176, .00938, .00043,
2638 + .00000, .00499, .00865 /
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 + .44052, .14326, .14122, .00903, .00048,
2641 + .00000, .00482, .00828,
2642 + .42797, .13863, .13184, .00871, .00052,
2643 + .00000, .00466, .00793,
2644 + .41832, .13509, .12492, .00846, .00055,
2645 + .00000, .00455, .00767,
2646 + .39861, .12794, .11140, .00796, .00059,
2647 + .00001, .00429, .00714,
2648 + .38258, .12215, .10096, .00755, .00062,
2649 + .00007, .00408, .00673,
2650 + .36555, .11606, .09055, .00712, .00064,
2651 + .00015, .00386, .00631,
2652 + .34870, .11011, .08104, .00672, .00066,
2653 + .00020, .00364, .00589,
2654 + .33418, .10501, .07343, .00637, .00066,
2655 + .00024, .00347, .00552 /
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 + .32023, .10013, .06661, .00602, .00067,
2658 + .00027, .00328, .00520,
2659 + .30907, .09626, .06151, .00576, .00066,
2660 + .00029, .00314, .00495,
2661 + .29617, .09181, .05596, .00545, .00066,
2662 + .00031, .00298, .00466,
2663 + .28529, .08808, .05156, .00520, .00065,
2664 + .00032, .00284, .00442,
2665 + .27569, .08481, .04787, .00497, .00064,
2666 + .00033, .00272, .00420,
2667 + .26400, .08085, .04367, .00471, .00063,
2668 + .00034, .00257, .00395,
2669 + .25352, .07732, .04012, .00447, .00062,
2670 + .00034, .00245, .00373,
2671 + .24412, .07418, .03711, .00425, .00060,
2672 + .00035, .00233, .00353 /
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 + .23509, .07118, .03439, .00406, .00059,
2675 + .00035, .00223, .00334,
2676 + .22664, .06838, .03196, .00388, .00058,
2677 + .00035, .00213, .00317,
2678 + .21890, .06583, .02987, .00371, .00056,
2679 + .00035, .00204, .00303,
2680 + .21190, .06353, .02805, .00356, .00055,
2681 + .00034, .00195, .00289,
2682 + .20510, .06131, .02635, .00342, .00054,
2683 + .00034, .00186, .00276,
2684 + .19864, .05921, .02480, .00329, .00052,
2685 + .00034, .00179, .00263,
2686 + .19270, .05729, .02344, .00317, .00051,
2687 + .00033, .00173, .00252,
2688 + .18727, .05553, .02224, .00306, .00050,
2689 + .00033, .00167, .00242 /
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 + .18195, .05382, .02111, .00294, .00049,
2692 + .00032, .00160, .00233,
2693 + .17689, .05220, .02006, .00284, .00048,
2694 + .00032, .00154, .00225,
2695 + .17217, .05068, .01912, .00273, .00046,
2696 + .00032, .00149, .00216,
2697 + .16784, .04929, .01827, .00264, .00045,
2698 + .00031, .00144, .00209,
2699 + .16355, .04793, .01747, .00256, .00044,
2700 + .00031, .00139, .00201 /
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 + .55798, .18293, .23994, .01060, .00000,
2703 + .00000, .00506, .00920,
2704 + .53593, .17464, .21853, .01007, .00000,
2705 + .00000, .00484, .00869,
2706 + .50518, .16328, .19044, .00937, .00000,
2707 + .00000, .00455, .00796,
2708 + .48432, .15561, .17235, .00889, .00004,
2709 + .00000, .00435, .00747,
2710 + .46369, .14810, .15523, .00840, .00013,
2711 + .00000, .00413, .00704,
2712 + .44671, .14198, .14196, .00802, .00020,
2713 + .00000, .00396, .00667,
2714 + .43109, .13640, .13042, .00767, .00025,
2715 + .00000, .00382, .00632,
2716 + .41522, .13076, .11931, .00733, .00030,
2717 + .00000, .00367, .00598 /
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 + .40197, .12606, .11052, .00700, .00033,
2720 + .00000, .00352, .00573,
2721 + .38964, .12173, .10274, .00673, .00036,
2722 + .00000, .00339, .00549,
2723 + .38015, .11844, .09702, .00654, .00038,
2724 + .00000, .00329, .00529,
2725 + .36096, .11176, .08594, .00613, .00041,
2726 + .00001, .00309, .00491,
2727 + .34538, .10641, .07746, .00579, .00043,
2728 + .00005, .00293, .00461,
2729 + .32891, .10079, .06908, .00543, .00044,
2730 + .00010, .00276, .00430,
2731 + .31270, .09528, .06151, .00508, .00045,
2732 + .00014, .00260, .00399,
2733 + .29876, .09060, .05550, .00480, .00045,
2734 + .00016, .00246, .00375 /
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 + .28546, .08615, .05013, .00452, .00045,
2737 + .00019, .00233, .00351,
2738 + .27481, .08264, .04614, .00432, .00045,
2739 + .00020, .00222, .00333,
2740 + .26257, .07860, .04181, .00408, .00045,
2741 + .00021, .00210, .00312,
2742 + .25229, .07522, .03840, .00387, .00044,
2743 + .00022, .00199, .00295,
2744 + .24321, .07225, .03558, .00369, .00044,
2745 + .00023, .00190, .00282,
2746 + .23224, .06868, .03235, .00347, .00043,
2747 + .00023, .00180, .00264,
2748 + .22244, .06552, .02964, .00329, .00042,
2749 + .00023, .00170, .00247,
2750 + .21362, .06270, .02735, .00315, .00041,
2751 + .00024, .00161, .00234 /
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 + .20521, .06002, .02529, .00299, .00040,
2754 + .00024, .00153, .00221,
2755 + .19738, .05754, .02345, .00284, .00039,
2756 + .00024, .00146, .00210,
2757 + .19025, .05527, .02187, .00269, .00038,
2758 + .00023, .00140, .00200,
2759 + .18379, .05323, .02050, .00257, .00037,
2760 + .00023, .00134, .00190,
2761 + .17752, .05128, .01924, .00247, .00036,
2762 + .00023, .00128, .00181,
2763 + .17160, .04942, .01808, .00236, .00035,
2764 + .00023, .00122, .00173,
2765 + .16618, .04772, .01707, .00227, .00034,
2766 + .00022, .00117, .00166,
2767 + .16122, .04618, .01617, .00219, .00033,
2768 + .00022, .00113, .00159 /
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 + .15635, .04469, .01533, .00211, .00032,
2771 + .00022, .00109, .00151,
2772 + .15172, .04327, .01455, .00204, .00032,
2773 + .00021, .00105, .00145,
2774 + .14742, .04194, .01385, .00196, .00031,
2775 + .00021, .00101, .00140,
2776 + .14348, .04073, .01323, .00189, .00030,
2777 + .00021, .00098, .00136,
2778 + .13961, .03954, .01263, .00183, .00029,
2779 + .00020, .00095, .00131 /
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 + .51667, .16318, .19577, .00836, .00000,
2782 + .00000, .00378, .00644,
2783 + .49466, .15535, .17683, .00792, .00000,
2784 + .00000, .00359, .00604,
2785 + .46418, .14457, .15242, .00732, .00000,
2786 + .00000, .00334, .00551,
2787 + .44358, .13736, .13693, .00690, .00003,
2788 + .00000, .00317, .00515,
2789 + .42329, .13037, .12243, .00652, .00009,
2790 + .00000, .00301, .00481,
2791 + .40662, .12465, .11133, .00620, .00014,
2792 + .00000, .00287, .00455,
2793 + .39138, .11944, .10174, .00590, .00017,
2794 + .00000, .00275, .00431,
2795 + .37597, .11422, .09256, .00561, .00021,
2796 + .00000, .00263, .00406 /
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 + .36313, .10988, .08536, .00535, .00023,
2799 + .00000, .00251, .00387,
2800 + .35123, .10589, .07902, .00513, .00025,
2801 + .00000, .00241, .00369,
2802 + .34212, .10285, .07438, .00497, .00026,
2803 + .00000, .00233, .00355,
2804 + .32365, .09673, .06548, .00462, .00028,
2805 + .00001, .00218, .00330,
2806 + .30872, .09183, .05875, .00438, .00029,
2807 + .00003, .00206, .00308,
2808 + .29300, .08670, .05215, .00411, .00030,
2809 + .00007, .00193, .00285,
2810 + .27761, .08171, .04620, .00383, .00030,
2811 + .00009, .00181, .00265,
2812 + .26444, .07747, .04150, .00361, .00031,
2813 + .00011, .00172, .00247 /
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 + .25193, .07344, .03734, .00338, .00031,
2816 + .00013, .00162, .00231,
2817 + .24196, .07028, .03427, .00321, .00030,
2818 + .00013, .00154, .00219,
2819 + .23051, .06666, .03096, .00302, .00030,
2820 + .00014, .00144, .00205,
2821 + .22090, .06364, .02836, .00287, .00030,
2822 + .00015, .00136, .00192,
2823 + .21246, .06101, .02621, .00274, .00029,
2824 + .00015, .00130, .00182,
2825 + .20229, .05784, .02376, .00257, .00028,
2826 + .00016, .00122, .00171,
2827 + .19323, .05503, .02172, .00242, .00028,
2828 + .00016, .00115, .00161,
2829 + .18516, .05254, .02000, .00230, .00027,
2830 + .00016, .00109, .00152 /
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 + .17746, .05017, .01846, .00216, .00026,
2833 + .00016, .00104, .00143,
2834 + .17029, .04798, .01709, .00203, .00026,
2835 + .00016, .00099, .00134,
2836 + .16374, .04600, .01591, .00196, .00025,
2837 + .00016, .00094, .00127,
2838 + .15784, .04422, .01489, .00188, .00024,
2839 + .00015, .00090, .00121,
2840 + .15215, .04251, .01395, .00180, .00024,
2841 + .00015, .00086, .00115,
2842 + .14678, .04089, .01310, .00172, .00023,
2843 + .00015, .00082, .00110,
2844 + .14187, .03942, .01235, .00164, .00022,
2845 + .00015, .00079, .00104,
2846 + .13738, .03807, .01169, .00158, .00022,
2847 + .00015, .00076, .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 + .13300, .03677, .01107, .00152, .00021,
2850 + .00014, .00072, .00096,
2851 + .12884, .03553, .01050, .00146, .00021,
2852 + .00014, .00069, .00093,
2853 + .12498, .03439, .00999, .00141, .00020,
2854 + .00014, .00066, .00089,
2855 + .12146, .03336, .00953, .00136, .00020,
2856 + .00014, .00064, .00085,
2857 + .11798, .03234, .00909, .00131, .00019,
2858 + .00014, .00062, .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 + .47356, .14400, .15682, .00640, .00000,
2861 + .00000, .00280, .00444,
2862 + .45190, .13669, .14053, .00604, .00000,
2863 + .00000, .00265, .00413,
2864 + .42207, .12663, .11983, .00555, .00000,
2865 + .00000, .00245, .00376,
2866 + .40204, .11995, .10687, .00521, .00002,
2867 + .00000, .00232, .00351,
2868 + .38244, .11348, .09490, .00486, .00006,
2869 + .00000, .00218, .00328,
2870 + .36634, .10820, .08578, .00462, .00009,
2871 + .00000, .00207, .00309,
2872 + .35167, .10342, .07797, .00440, .00012,
2873 + .00000, .00198, .00291,
2874 + .33690, .09864, .07057, .00415, .00014,
2875 + .00000, .00188, .00275 /
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 + .32460, .09467, .06481, .00397, .00015,
2878 + .00000, .00180, .00260,
2879 + .31326, .09103, .05977, .00380, .00016,
2880 + .00000, .00173, .00247,
2881 + .30460, .08826, .05610, .00367, .00017,
2882 + .00000, .00168, .00237,
2883 + .28712, .08272, .04909, .00340, .00018,
2884 + .00000, .00156, .00219,
2885 + .27304, .07830, .04384, .00319, .00019,
2886 + .00002, .00146, .00205,
2887 + .25828, .07368, .03873, .00296, .00020,
2888 + .00005, .00136, .00191,
2889 + .24388, .06921, .03415, .00275, .00020,
2890 + .00006, .00128, .00176,
2891 + .23160, .06543, .03056, .00258, .00020,
2892 + .00007, .00120, .00164 /
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 + .21995, .06185, .02741, .00240, .00020,
2895 + .00008, .00111, .00153,
2896 + .21072, .05903, .02509, .00228, .00020,
2897 + .00009, .00106, .00145,
2898 + .20015, .05583, .02260, .00214, .00020,
2899 + .00009, .00100, .00135,
2900 + .19133, .05317, .02064, .00202, .00019,
2901 + .00010, .00094, .00126,
2902 + .18358, .05085, .01903, .00191, .00019,
2903 + .00010, .00090, .00121,
2904 + .17429, .04808, .01722, .00179, .00019,
2905 + .00010, .00084, .00113,
2906 + .16604, .04562, .01572, .00167, .00018,
2907 + .00010, .00079, .00105,
2908 + .15870, .04345, .01444, .00158, .00018,
2909 + .00010, .00075, .00098 /
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 + .15170, .04139, .01331, .00150, .00017,
2912 + .00010, .00071, .00093,
2913 + .14521, .03949, .01230, .00142, .00017,
2914 + .00010, .00067, .00089,
2915 + .13935, .03776, .01144, .00134, .00016,
2916 + .00010, .00064, .00083,
2917 + .13406, .03622, .01069, .00127, .00016,
2918 + .00010, .00061, .00079,
2919 + .12894, .03475, .01001, .00123, .00015,
2920 + .00010, .00059, .00075,
2921 + .12414, .03336, .00938, .00117, .00015,
2922 + .00010, .00056, .00071,
2923 + .11977, .03210, .00883, .00110, .00014,
2924 + .00010, .00053, .00068,
2925 + .11579, .03095, .00835, .00105, .00014,
2926 + .00010, .00050, .00066 /
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 + .11188, .02984, .00790, .00102, .00014,
2929 + .00009, .00048, .00063,
2930 + .10819, .02879, .00749, .00098, .00013,
2931 + .00009, .00046, .00061,
2932 + .10477, .02782, .00711, .00094, .00013,
2933 + .00009, .00045, .00058,
2934 + .10165, .02694, .00678, .00091, .00013,
2935 + .00009, .00043, .00056,
2936 + .09860, .02608, .00646, .00088, .00012,
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 + .42947, .12579, .12323, .00483, .00000,
2940 + .00000, .00204, .00299,
2941 + .40849, .11903, .10961, .00454, .00000,
2942 + .00000, .00192, .00277,
2943 + .37981, .10976, .09244, .00411, .00000,
2944 + .00000, .00176, .00252,
2945 + .36057, .10364, .08187, .00383, .00001,
2946 + .00000, .00167, .00236,
2947 + .34185, .09771, .07222, .00353, .00004,
2948 + .00000, .00157, .00222,
2949 + .32654, .09291, .06492, .00336, .00006,
2950 + .00000, .00149, .00207,
2951 + .31264, .08859, .05872, .00319, .00008,
2952 + .00000, .00142, .00193,
2953 + .29870, .08426, .05290, .00297, .00009,
2954 + .00000, .00136, .00181 /
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 + .28712, .08069, .04839, .00282, .00010,
2957 + .00000, .00129, .00174,
2958 + .27645, .07742, .04446, .00269, .00011,
2959 + .00000, .00123, .00166,
2960 + .26831, .07493, .04160, .00259, .00011,
2961 + .00000, .00118, .00160,
2962 + .25198, .06995, .03621, .00239, .00012,
2963 + .00000, .00110, .00147,
2964 + .23891, .06602, .03220, .00222, .00012,
2965 + .00002, .00103, .00137,
2966 + .22522, .06192, .02833, .00207, .00013,
2967 + .00003, .00097, .00126,
2968 + .21191, .05796, .02489, .00193, .00013,
2969 + .00004, .00091, .00115,
2970 + .20063, .05463, .02220, .00178, .00013,
2971 + .00005, .00085, .00108 /
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 + .18995, .05148, .01985, .00165, .00013,
2974 + .00006, .00079, .00100,
2975 + .18153, .04902, .01813, .00156, .00013,
2976 + .00006, .00075, .00095,
2977 + .17192, .04624, .01629, .00145, .00013,
2978 + .00006, .00070, .00088,
2979 + .16392, .04392, .01485, .00136, .00012,
2980 + .00006, .00066, .00082,
2981 + .15691, .04190, .01367, .00129, .00012,
2982 + .00007, .00063, .00077,
2983 + .14851, .03949, .01234, .00121, .00012,
2984 + .00007, .00058, .00072,
2985 + .14109, .03738, .01124, .00113, .00012,
2986 + .00007, .00054, .00068,
2987 + .13453, .03551, .01032, .00105, .00011,
2988 + .00007, .00051, .00064 /
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 + .12828, .03375, .00949, .00099, .00011,
2991 + .00007, .00049, .00060,
2992 + .12248, .03212, .00876, .00094, .00011,
2993 + .00007, .00047, .00056,
2994 + .11726, .03066, .00814, .00090, .00010,
2995 + .00007, .00044, .00053,
2996 + .11257, .02935, .00760, .00085, .00010,
2997 + .00007, .00042, .00050,
2998 + .10807, .02809, .00711, .00079, .00010,
2999 + .00007, .00040, .00048,
3000 + .10383, .02691, .00666, .00075, .00009,
3001 + .00006, .00038, .00046,
3002 + .09997, .02584, .00626, .00072, .00009,
3003 + .00006, .00036, .00043,
3004 + .09645, .02488, .00591, .00070, .00009,
3005 + .00006, .00035, .00041 /
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 + .09303, .02394, .00559, .00067, .00009,
3008 + .00006, .00033, .00040,
3009 + .08979, .02306, .00529, .00065, .00008,
3010 + .00006, .00032, .00038,
3011 + .08682, .02225, .00503, .00062, .00008,
3012 + .00006, .00031, .00036,
3013 + .08411, .02151, .00479, .00060, .00008,
3014 + .00006, .00030, .00034,
3015 + .08144, .02079, .00456, .00058, .00008,
3016 + .00006, .00029, .00033 /
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 + .38530, .10886, .09501, .00369, .00000,
3019 + .00000, .00137, .00193,
3020 + .36534, .10266, .08392, .00343, .00000,
3021 + .00000, .00128, .00180,
3022 + .33810, .09428, .07010, .00310, .00000,
3023 + .00000, .00118, .00161,
3024 + .31998, .08876, .06170, .00288, .00001,
3025 + .00000, .00111, .00148,
3026 + .30232, .08343, .05412, .00267, .00003,
3027 + .00000, .00104, .00138,
3028 + .28799, .07912, .04842, .00252, .00004,
3029 + .00000, .00098, .00129,
3030 + .27502, .07525, .04360, .00238, .00005,
3031 + .00000, .00093, .00121,
3032 + .26202, .07139, .03911, .00222, .00006,
3033 + .00000, .00087, .00114 /
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 + .25127, .06820, .03566, .00212, .00006,
3036 + .00000, .00082, .00108,
3037 + .24140, .06530, .03266, .00202, .00007,
3038 + .00000, .00079, .00103,
3039 + .23391, .06311, .03051, .00194, .00007,
3040 + .00000, .00076, .00097,
3041 + .21887, .05874, .02643, .00177, .00008,
3042 + .00000, .00070, .00088,
3043 + .20690, .05526, .02343, .00165, .00008,
3044 + .00001, .00066, .00082,
3045 + .19441, .05165, .02054, .00151, .00008,
3046 + .00002, .00061, .00077,
3047 + .18230, .04820, .01799, .00141, .00008,
3048 + .00003, .00056, .00071,
3049 + .17207, .04531, .01601, .00132, .00008,
3050 + .00003, .00052, .00065 /
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 + .16243, .04257, .01428, .00121, .00008,
3053 + .00004, .00049, .00061,
3054 + .15485, .04045, .01303, .00115, .00008,
3055 + .00004, .00046, .00057,
3056 + .14622, .03803, .01169, .00106, .00008,
3057 + .00004, .00043, .00053,
3058 + .13906, .03603, .01064, .00099, .00008,
3059 + .00004, .00040, .00050,
3060 + .13282, .03431, .00978, .00093, .00008,
3061 + .00004, .00038, .00047,
3062 + .12536, .03225, .00882, .00086, .00008,
3063 + .00004, .00035, .00044,
3064 + .11878, .03044, .00802, .00080, .00007,
3065 + .00004, .00033, .00041,
3066 + .11297, .02884, .00736, .00076, .00007,
3067 + .00004, .00031, .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 + .10745, .02734, .00676, .00072, .00007,
3070 + .00004, .00029, .00036,
3071 + .10236, .02597, .00624, .00068, .00007,
3072 + .00004, .00028, .00033,
3073 + .09776, .02474, .00579, .00065, .00007,
3074 + .00004, .00026, .00032,
3075 + .09365, .02364, .00540, .00061, .00006,
3076 + .00004, .00025, .00030,
3077 + .08973, .02258, .00504, .00058, .00006,
3078 + .00004, .00023, .00028,
3079 + .08603, .02160, .00472, .00055, .00006,
3080 + .00004, .00022, .00026,
3081 + .08266, .02070, .00444, .00052, .00006,
3082 + .00004, .00021, .00026,
3083 + .07961, .01989, .00419, .00050, .00006,
3084 + .00004, .00020, .00025 /
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 + .07667, .01911, .00396, .00049, .00005,
3087 + .00004, .00020, .00023,
3088 + .07389, .01837, .00374, .00047, .00005,
3089 + .00004, .00019, .00021,
3090 + .07132, .01770, .00355, .00045, .00005,
3091 + .00004, .00018, .00020,
3092 + .06899, .01709, .00338, .00042, .00005,
3093 + .00004, .00017, .00020,
3094 + .06670, .01649, .00322, .00040, .00005,
3095 + .00004, .00016, .00019 /
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 + .34158, .09284, .07135, .00257, .00000,
3098 + .00000, .00102, .00129,
3099 + .32282, .08727, .06260, .00239, .00000,
3100 + .00000, .00096, .00119,
3101 + .29736, .07979, .05184, .00212, .00000,
3102 + .00000, .00084, .00107,
3103 + .28043, .07487, .04534, .00198, .00001,
3104 + .00000, .00079, .00098,
3105 + .26408, .07013, .03955, .00185, .00002,
3106 + .00000, .00074, .00090,
3107 + .25089, .06633, .03524, .00172, .00002,
3108 + .00000, .00069, .00083,
3109 + .23895, .06293, .03162, .00161, .00003,
3110 + .00000, .00065, .00078,
3111 + .22698, .05955, .02825, .00152, .00004,
3112 + .00000, .00060, .00073 /
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 + .21714, .05677, .02567, .00144, .00004,
3115 + .00000, .00057, .00068,
3116 + .20813, .05424, .02345, .00137, .00004,
3117 + .00000, .00055, .00064,
3118 + .20131, .05231, .02185, .00132, .00004,
3119 + .00000, .00053, .00062,
3120 + .18767, .04851, .01886, .00120, .00005,
3121 + .00000, .00048, .00058,
3122 + .17683, .04550, .01668, .00111, .00005,
3123 + .00001, .00044, .00054,
3124 + .16560, .04240, .01458, .00102, .00005,
3125 + .00001, .00041, .00050,
3126 + .15476, .03943, .01274, .00093, .00005,
3127 + .00002, .00038, .00046,
3128 + .14560, .03694, .01131, .00087, .00005,
3129 + .00002, .00035, .00042 /
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 + .13700, .03461, .01007, .00080, .00005,
3132 + .00002, .00032, .00038,
3133 + .13029, .03281, .00918, .00075, .00005,
3134 + .00002, .00030, .00035,
3135 + .12265, .03076, .00822, .00070, .00005,
3136 + .00003, .00028, .00033,
3137 + .11631, .02906, .00747, .00066, .00005,
3138 + .00003, .00025, .00031,
3139 + .11083, .02761, .00686, .00062, .00005,
3140 + .00003, .00024, .00029,
3141 + .10429, .02588, .00618, .00057, .00005,
3142 + .00003, .00023, .00027,
3143 + .09853, .02436, .00562, .00054, .00005,
3144 + .00003, .00022, .00025,
3145 + .09344, .02303, .00515, .00052, .00004,
3146 + .00003, .00021, .00022 /
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 + .08867, .02178, .00472, .00048, .00004,
3149 + .00003, .00019, .00021,
3150 + .08428, .02064, .00435, .00044, .00004,
3151 + .00003, .00017, .00021,
3152 + .08031, .01961, .00403, .00042, .00004,
3153 + .00003, .00016, .00019,
3154 + .07677, .01869, .00376, .00040, .00004,
3155 + .00003, .00016, .00018,
3156 + .07339, .01782, .00351, .00038, .00004,
3157 + .00003, .00015, .00017,
3158 + .07021, .01701, .00329, .00036, .00004,
3159 + .00003, .00014, .00016,
3160 + .06733, .01627, .00309, .00035, .00004,
3161 + .00003, .00013, .00015,
3162 + .06473, .01561, .00291, .00033, .00003,
3163 + .00003, .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 + .06223, .01497, .00275, .00031, .00003,
3166 + .00002, .00012, .00014,
3167 + .05987, .01437, .00259, .00029, .00003,
3168 + .00002, .00012, .00013,
3169 + .05768, .01382, .00246, .00028, .00003,
3170 + .00002, .00011, .00013,
3171 + .05569, .01332, .00234, .00027, .00003,
3172 + .00002, .00011, .00012,
3173 + .05375, .01283, .00223, .00026, .00003,
3174 + .00002, .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 + .29916, .07821, .05229, .00175, .00000,
3177 + .00000, .00071, .00086,
3178 + .28178, .07329, .04558, .00163, .00000,
3179 + .00000, .00067, .00076,
3180 + .25829, .06668, .03742, .00146, .00000,
3181 + .00000, .00059, .00069,
3182 + .24279, .06238, .03256, .00134, .00000,
3183 + .00000, .00055, .00061,
3184 + .22785, .05825, .02825, .00124, .00001,
3185 + .00000, .00051, .00056,
3186 + .21583, .05493, .02507, .00114, .00001,
3187 + .00000, .00047, .00054,
3188 + .20499, .05196, .02242, .00106, .00002,
3189 + .00000, .00044, .00051,
3190 + .19417, .04903, .01997, .00100, .00002,
3191 + .00000, .00042, .00047 /
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 + .18532, .04663, .01810, .00093, .00002,
3194 + .00000, .00039, .00044,
3195 + .17723, .04445, .01650, .00088, .00003,
3196 + .00000, .00037, .00042,
3197 + .17109, .04280, .01535, .00085, .00003,
3198 + .00000, .00036, .00040,
3199 + .15887, .03955, .01321, .00077, .00003,
3200 + .00000, .00032, .00036,
3201 + .14921, .03698, .01164, .00071, .00003,
3202 + .00000, .00030, .00033,
3203 + .13923, .03433, .01016, .00066, .00003,
3204 + .00001, .00027, .00031,
3205 + .12965, .03181, .00886, .00059, .00003,
3206 + .00001, .00025, .00029,
3207 + .12161, .02971, .00786, .00054, .00003,
3208 + .00001, .00023, .00027 /
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 + .11404, .02776, .00699, .00051, .00003,
3211 + .00001, .00022, .00024,
3212 + .10817, .02623, .00636, .00048, .00003,
3213 + .00002, .00021, .00022,
3214 + .10153, .02451, .00569, .00044, .00003,
3215 + .00002, .00019, .00020,
3216 + .09604, .02311, .00517, .00040, .00003,
3217 + .00002, .00017, .00020,
3218 + .09126, .02189, .00474, .00038, .00003,
3219 + .00002, .00016, .00019,
3220 + .08561, .02046, .00427, .00036, .00003,
3221 + .00002, .00015, .00017,
3222 + .08066, .01921, .00387, .00033, .00003,
3223 + .00002, .00014, .00016,
3224 + .07630, .01811, .00355, .00030, .00003,
3225 + .00002, .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 + .07219, .01709, .00326, .00029, .00003,
3228 + .00002, .00013, .00014,
3229 + .06842, .01615, .00300, .00028, .00003,
3230 + .00002, .00011, .00012,
3231 + .06506, .01531, .00278, .00026, .00002,
3232 + .00002, .00011, .00011,
3233 + .06205, .01456, .00259, .00025, .00002,
3234 + .00002, .00010, .00010,
3235 + .05918, .01385, .00241, .00024, .00002,
3236 + .00002, .00010, .00010,
3237 + .05651, .01319, .00226, .00023, .00002,
3238 + .00002, .00009, .00010,
3239 + .05409, .01259, .00212, .00021, .00002,
3240 + .00002, .00009, .00010,
3241 + .05191, .01206, .00199, .00020, .00002,
3242 + .00002, .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 + .04982, .01154, .00188, .00018, .00002,
3245 + .00002, .00008, .00009,
3246 + .04784, .01106, .00177, .00017, .00002,
3247 + .00002, .00007, .00008,
3248 + .04601, .01061, .00168, .00016, .00002,
3249 + .00001, .00007, .00008,
3250 + .04435, .01021, .00160, .00016, .00002,
3251 + .00001, .00007, .00007,
3252 + .04272, .00983, .00152, .00016, .00002,
3253 + .00001, .00007, .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 + .25876, .06513, .03739, .00125, .00000,
3256 + .00000, .00043, .00051,
3257 + .24294, .06084, .03241, .00112, .00000,
3258 + .00000, .00040, .00047,
3259 + .22156, .05510, .02642, .00102, .00000,
3260 + .00000, .00036, .00042,
3261 + .20758, .05137, .02288, .00094, .00000,
3262 + .00000, .00034, .00037,
3263 + .19416, .04781, .01977, .00085, .00001,
3264 + .00000, .00030, .00034,
3265 + .18335, .04497, .01749, .00079, .00001,
3266 + .00000, .00028, .00031,
3267 + .17366, .04243, .01560, .00074, .00001,
3268 + .00000, .00027, .00029,
3269 + .16404, .03991, .01386, .00069, .00001,
3270 + .00000, .00025, .00028 /
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 + .15614, .03786, .01254, .00066, .00001,
3273 + .00000, .00023, .00026,
3274 + .14897, .03601, .01141, .00062, .00002,
3275 + .00000, .00021, .00024,
3276 + .14357, .03461, .01060, .00058, .00002,
3277 + .00000, .00020, .00023,
3278 + .13281, .03186, .00910, .00053, .00002,
3279 + .00000, .00019, .00021,
3280 + .12434, .02970, .00802, .00049, .00002,
3281 + .00000, .00018, .00019,
3282 + .11560, .02749, .00699, .00045, .00002,
3283 + .00001, .00016, .00017,
3284 + .10725, .02538, .00609, .00041, .00002,
3285 + .00001, .00014, .00016,
3286 + .10028, .02362, .00539, .00037, .00002,
3287 + .00001, .00013, .00015 /
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 + .09375, .02200, .00480, .00034, .00002,
3290 + .00001, .00012, .00014,
3291 + .08868, .02074, .00436, .00032, .00002,
3292 + .00001, .00011, .00012,
3293 + .08297, .01933, .00390, .00030, .00002,
3294 + .00001, .00010, .00011,
3295 + .07827, .01817, .00354, .00028, .00002,
3296 + .00001, .00009, .00011,
3297 + .07420, .01717, .00325, .00026, .00002,
3298 + .00001, .00009, .00011,
3299 + .06938, .01600, .00293, .00025, .00002,
3300 + .00001, .00008, .00010,
3301 + .06518, .01498, .00265, .00023, .00002,
3302 + .00001, .00007, .00009,
3303 + .06149, .01409, .00243, .00021, .00002,
3304 + .00001, .00007, .00008 /
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 + .05806, .01325, .00223, .00019, .00002,
3307 + .00001, .00007, .00007,
3308 + .05491, .01249, .00205, .00017, .00002,
3309 + .00001, .00007, .00007,
3310 + .05206, .01182, .00190, .00017, .00001,
3311 + .00001, .00006, .00007,
3312 + .04953, .01122, .00177, .00017, .00001,
3313 + .00001, .00006, .00006,
3314 + .04714, .01065, .00165, .00016, .00001,
3315 + .00001, .00005, .00005,
3316 + .04492, .01012, .00154, .00015, .00001,
3317 + .00001, .00005, .00005,
3318 + .04292, .00964, .00144, .00014, .00001,
3319 + .00001, .00005, .00005,
3320 + .04111, .00922, .00136, .00013, .00001,
3321 + .00001, .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 + .03936, .00880, .00128, .00012, .00001,
3324 + .00001, .00004, .00005,
3325 + .03772, .00842, .00121, .00011, .00001,
3326 + .00001, .00004, .00005,
3327 + .03622, .00807, .00114, .00011, .00001,
3328 + .00001, .00004, .00004,
3329 + .03486, .00775, .00108, .00010, .00001,
3330 + .00001, .00004, .00004,
3331 + .03354, .00744, .00103, .00010, .00001,
3332 + .00001, .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 + .22046, .05326, .02584, .00076, .00000,
3335 + .00000, .00031, .00034,
3336 + .20623, .04958, .02228, .00069, .00000,
3337 + .00000, .00029, .00030,
3338 + .18718, .04469, .01805, .00060, .00000,
3339 + .00000, .00026, .00026,
3340 + .17472, .04153, .01558, .00056, .00000,
3341 + .00000, .00023, .00024,
3342 + .16282, .03849, .01342, .00052, .00000,
3343 + .00000, .00022, .00023,
3344 + .15329, .03609, .01185, .00048, .00000,
3345 + .00000, .00020, .00021,
3346 + .14477, .03396, .01054, .00045, .00001,
3347 + .00000, .00018, .00019,
3348 + .13634, .03186, .00935, .00041, .00001,
3349 + .00000, .00017, .00017 /
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 + .12943, .03016, .00844, .00040, .00001,
3352 + .00000, .00016, .00017,
3353 + .12318, .02861, .00767, .00037, .00001,
3354 + .00000, .00015, .00017,
3355 + .11850, .02744, .00712, .00034, .00001,
3356 + .00000, .00014, .00016,
3357 + .10918, .02515, .00611, .00031, .00001,
3358 + .00000, .00013, .00013,
3359 + .10185, .02338, .00538, .00029, .00001,
3360 + .00000, .00012, .00011,
3361 + .09436, .02156, .00468, .00026, .00001,
3362 + .00000, .00011, .00011,
3363 + .08722, .01983, .00408, .00024, .00001,
3364 + .00000, .00010, .00010,
3365 + .08126, .01840, .00362, .00022, .00001,
3366 + .00000, .00009, .00009 /
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 + .07572, .01707, .00321, .00020, .00001,
3369 + .00001, .00009, .00009,
3370 + .07143, .01606, .00292, .00019, .00001,
3371 + .00001, .00008, .00007,
3372 + .06660, .01492, .00261, .00017, .00001,
3373 + .00001, .00007, .00006,
3374 + .06264, .01398, .00237, .00016, .00001,
3375 + .00001, .00006, .00006,
3376 + .05923, .01318, .00218, .00015, .00001,
3377 + .00001, .00006, .00006,
3378 + .05521, .01224, .00196, .00014, .00001,
3379 + .00001, .00005, .00006,
3380 + .05171, .01142, .00177, .00013, .00001,
3381 + .00001, .00005, .00006,
3382 + .04866, .01071, .00162, .00012, .00001,
3383 + .00001, .00005, .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 + .04580, .01005, .00149, .00011, .00001,
3386 + .00001, .00005, .00005,
3387 + .04318, .00945, .00137, .00010, .00001,
3388 + .00001, .00004, .00005,
3389 + .04085, .00892, .00126, .00009, .00001,
3390 + .00001, .00004, .00005,
3391 + .03879, .00844, .00118, .00009, .00001,
3392 + .00001, .00004, .00004,
3393 + .03683, .00800, .00110, .00008, .00001,
3394 + .00001, .00003, .00004,
3395 + .03501, .00758, .00102, .00008, .00001,
3396 + .00001, .00003, .00003,
3397 + .03337, .00721, .00096, .00007, .00001,
3398 + .00001, .00003, .00003,
3399 + .03190, .00688, .00090, .00007, .00001,
3400 + .00001, .00003, .00002 /
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 + .03048, .00656, .00085, .00007, .00001,
3403 + .00001, .00003, .00002,
3404 + .02915, .00626, .00080, .00007, .00001,
3405 + .00001, .00003, .00002,
3406 + .02794, .00599, .00076, .00006, .00001,
3407 + .00001, .00002, .00002,
3408 + .02685, .00574, .00072, .00005, .00001,
3409 + .00001, .00002, .00002,
3410 + .02578, .00550, .00068, .00005, .00001,
3411 + .00001, .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 + .15269, .03398, .01120, .00030, .00000,
3414 + .00000, .00010, .00012,
3415 + .14176, .03140, .00959, .00029, .00000,
3416 + .00000, .00010, .00010,
3417 + .12730, .02800, .00771, .00025, .00000,
3418 + .00000, .00009, .00010,
3419 + .11794, .02583, .00662, .00023, .00000,
3420 + .00000, .00008, .00008,
3421 + .10909, .02377, .00569, .00021, .00000,
3422 + .00000, .00007, .00007,
3423 + .10207, .02215, .00502, .00018, .00000,
3424 + .00000, .00006, .00007,
3425 + .09581, .02072, .00446, .00016, .00000,
3426 + .00000, .00006, .00006,
3427 + .08966, .01932, .00395, .00015, .00000,
3428 + .00000, .00005, .00006 /
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 + .08467, .01818, .00357, .00014, .00000,
3431 + .00000, .00005, .00005,
3432 + .08017, .01716, .00325, .00013, .00000,
3433 + .00000, .00005, .00005,
3434 + .07679, .01640, .00302, .00013, .00000,
3435 + .00000, .00005, .00005,
3436 + .07016, .01491, .00259, .00011, .00000,
3437 + .00000, .00004, .00004,
3438 + .06500, .01376, .00229, .00010, .00000,
3439 + .00000, .00004, .00004,
3440 + .05975, .01259, .00199, .00009, .00000,
3441 + .00000, .00004, .00004,
3442 + .05479, .01149, .00174, .00008, .00000,
3443 + .00000, .00004, .00003,
3444 + .05068, .01059, .00154, .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 + .04689, .00976, .00137, .00007, .00000,
3448 + .00000, .00003, .00003,
3449 + .04398, .00912, .00125, .00006, .00000,
3450 + .00000, .00002, .00002,
3451 + .04073, .00842, .00112, .00005, .00000,
3452 + .00000, .00002, .00002,
3453 + .03808, .00784, .00101, .00005, .00000,
3454 + .00000, .00002, .00003,
3455 + .03581, .00735, .00093, .00005, .00000,
3456 + .00000, .00002, .00002,
3457 + .03315, .00678, .00084, .00004, .00000,
3458 + .00000, .00002, .00002,
3459 + .03086, .00629, .00076, .00004, .00000,
3460 + .00000, .00002, .00002,
3461 + .02887, .00587, .00069, .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 + .02702, .00547, .00063, .00003, .00000,
3465 + .00000, .00002, .00002,
3466 + .02534, .00512, .00058, .00003, .00000,
3467 + .00000, .00001, .00001,
3468 + .02385, .00480, .00054, .00002, .00000,
3469 + .00000, .00001, .00001,
3470 + .02254, .00453, .00050, .00002, .00000,
3471 + .00000, .00001, .00001,
3472 + .02130, .00427, .00046, .00002, .00000,
3473 + .00000, .00001, .00001,
3474 + .02015, .00403, .00043, .00002, .00000,
3475 + .00000, .00001, .00001,
3476 + .01911, .00381, .00040, .00002, .00000,
3477 + .00000, .00001, .00001,
3478 + .01819, .00362, .00038, .00002, .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 + .01731, .00344, .00036, .00002, .00000,
3482 + .00000, .00001, .00001,
3483 + .01648, .00327, .00033, .00002, .00000,
3484 + .00000, .00001, .00001,
3485 + .01574, .00311, .00032, .00002, .00000,
3486 + .00000, .00001, .00001,
3487 + .01507, .00298, .00030, .00002, .00000,
3488 + .00000, .00001, .00001,
3489 + .01441, .00284, .00028, .00002, .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 + .09771, .01989, .00412, .00011, .00000,
3493 + .00000, .00003, .00004,
3494 + .09001, .01823, .00353, .00010, .00000,
3495 + .00000, .00003, .00003,
3496 + .07992, .01608, .00284, .00009, .00000,
3497 + .00000, .00002, .00002,
3498 + .07346, .01472, .00245, .00007, .00000,
3499 + .00000, .00002, .00002,
3500 + .06738, .01344, .00212, .00006, .00000,
3501 + .00000, .00002, .00002,
3502 + .06260, .01244, .00188, .00005, .00000,
3503 + .00000, .00002, .00002,
3504 + .05837, .01156, .00168, .00005, .00000,
3505 + .00000, .00002, .00002,
3506 + .05424, .01070, .00149, .00006, .00000,
3507 + .00000, .00001, .00001 /
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 + .05092, .01002, .00135, .00005, .00000,
3510 + .00000, .00001, .00001,
3511 + .04795, .00940, .00124, .00004, .00000,
3512 + .00000, .00001, .00001,
3513 + .04574, .00895, .00115, .00004, .00000,
3514 + .00000, .00001, .00001,
3515 + .04141, .00806, .00099, .00003, .00000,
3516 + .00000, .00001, .00001,
3517 + .03807, .00738, .00088, .00003, .00000,
3518 + .00000, .00001, .00001,
3519 + .03470, .00670, .00077, .00002, .00000,
3520 + .00000, .00001, .00001,
3521 + .03155, .00606, .00068, .00002, .00000,
3522 + .00000, .00001, .00001,
3523 + .02895, .00554, .00060, .00002, .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 + .02658, .00507, .00054, .00002, .00000,
3527 + .00000, .00001, .00001,
3528 + .02478, .00471, .00049, .00002, .00000,
3529 + .00000, .00001, .00001,
3530 + .02278, .00431, .00044, .00002, .00000,
3531 + .00000, .00001, .00001,
3532 + .02116, .00399, .00040, .00001, .00000,
3533 + .00000, .00001, .00001,
3534 + .01978, .00372, .00036, .00001, .00000,
3535 + .00000, .00000, .00001,
3536 + .01818, .00341, .00033, .00001, .00000,
3537 + .00000, .00001, .00001,
3538 + .01681, .00314, .00029, .00001, .00000,
3539 + .00000, .00001, .00000,
3540 + .01562, .00291, .00027, .00001, .00000,
3541 + .00000, .00001, .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 + .01452, .00270, .00025, .00001, .00000,
3544 + .00000, .00000, .00000,
3545 + .01354, .00251, .00022, .00001, .00000,
3546 + .00000, .00000, .00001,
3547 + .01267, .00234, .00021, .00001, .00000,
3548 + .00000, .00000, .00000,
3549 + .01191, .00220, .00019, .00001, .00000,
3550 + .00000, .00000, .00000,
3551 + .01119, .00206, .00018, .00001, .00000,
3552 + .00000, .00000, .00000,
3553 + .01053, .00193, .00017, .00001, .00000,
3554 + .00000, .00000, .00000,
3555 + .00994, .00182, .00015, .00001, .00000,
3556 + .00000, .00000, .00000,
3557 + .00942, .00172, .00014, .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 + .00892, .00163, .00014, .00001, .00000,
3561 + .00000, .00000, .00000,
3562 + .00846, .00154, .00013, .00001, .00000,
3563 + .00000, .00000, .00000,
3564 + .00805, .00146, .00012, .00000, .00000,
3565 + .00000, .00000, .00000,
3566 + .00767, .00139, .00011, .00000, .00000,
3567 + .00000, .00000, .00000,
3568 + .00731, .00132, .00011, .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 + .05636, .01038, .00123, .00004, .00000,
3572 + .00000, .00000, .00001,
3573 + .05146, .00944, .00107, .00003, .00000,
3574 + .00000, .00000, .00000,
3575 + .04511, .00822, .00088, .00003, .00000,
3576 + .00000, .00000, .00000,
3577 + .04109, .00746, .00077, .00002, .00000,
3578 + .00000, .00000, .00000,
3579 + .03734, .00675, .00068, .00002, .00000,
3580 + .00000, .00000, .00000,
3581 + .03442, .00620, .00061, .00002, .00000,
3582 + .00000, .00000, .00000,
3583 + .03187, .00572, .00055, .00001, .00000,
3584 + .00000, .00000, .00000,
3585 + .02939, .00525, .00049, .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 + .02741, .00489, .00045, .00001, .00000,
3589 + .00000, .00000, .00000,
3590 + .02565, .00456, .00041, .00001, .00000,
3591 + .00000, .00000, .00000,
3592 + .02434, .00431, .00039, .00001, .00000,
3593 + .00000, .00000, .00000,
3594 + .02180, .00385, .00034, .00001, .00000,
3595 + .00000, .00000, .00000,
3596 + .01987, .00349, .00030, .00001, .00000,
3597 + .00000, .00000, .00000,
3598 + .01794, .00314, .00027, .00001, .00000,
3599 + .00000, .00000, .00000,
3600 + .01615, .00282, .00023, .00001, .00000,
3601 + .00000, .00000, .00000,
3602 + .01471, .00255, .00021, .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 + .01339, .00232, .00019, .00001, .00000,
3606 + .00000, .00000, .00000,
3607 + .01239, .00214, .00017, .00001, .00000,
3608 + .00000, .00000, .00000,
3609 + .01129, .00194, .00015, .00001, .00000,
3610 + .00000, .00000, .00000,
3611 + .01042, .00178, .00014, .00000, .00000,
3612 + .00000, .00000, .00000,
3613 + .00967, .00165, .00012, .00000, .00000,
3614 + .00000, .00000, .00000,
3615 + .00881, .00150, .00011, .00000, .00000,
3616 + .00000, .00000, .00000,
3617 + .00808, .00137, .00010, .00000, .00000,
3618 + .00000, .00000, .00000,
3619 + .00746, .00126, .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 + .00689, .00116, .00008, .00000, .00000,
3623 + .00000, .00000, .00000,
3624 + .00638, .00107, .00008, .00000, .00000,
3625 + .00000, .00000, .00000,
3626 + .00593, .00100, .00007, .00000, .00000,
3627 + .00000, .00000, .00000,
3628 + .00554, .00093, .00006, .00000, .00000,
3629 + .00000, .00000, .00000,
3630 + .00517, .00086, .00006, .00000, .00000,
3631 + .00000, .00000, .00000,
3632 + .00484, .00081, .00006, .00000, .00000,
3633 + .00000, .00000, .00000,
3634 + .00455, .00076, .00005, .00000, .00000,
3635 + .00000, .00000, .00000,
3636 + .00429, .00071, .00005, .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 + .00404, .00067, .00004, .00000, .00000,
3640 + .00000, .00000, .00000,
3641 + .00381, .00063, .00004, .00000, .00000,
3642 + .00000, .00000, .00000,
3643 + .00361, .00060, .00004, .00000, .00000,
3644 + .00000, .00000, .00000,
3645 + .00342, .00056, .00004, .00000, .00000,
3646 + .00000, .00000, .00000,
3647 + .00325, .00053, .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 + .02796, .00458, .00028, .00000, .00000,
3651 + .00000, .00000, .00001,
3652 + .02527, .00412, .00025, .00000, .00000,
3653 + .00000, .00000, .00000,
3654 + .02182, .00354, .00022, .00000, .00000,
3655 + .00000, .00000, .00000,
3656 + .01966, .00318, .00020, .00000, .00000,
3657 + .00000, .00000, .00000,
3658 + .01769, .00284, .00018, .00000, .00000,
3659 + .00000, .00000, .00000,
3660 + .01616, .00259, .00016, .00000, .00000,
3661 + .00000, .00000, .00000,
3662 + .01483, .00237, .00015, .00000, .00000,
3663 + .00000, .00000, .00000,
3664 + .01355, .00216, .00014, .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 + .01254, .00199, .00013, .00000, .00000,
3668 + .00000, .00000, .00000,
3669 + .01165, .00185, .00012, .00000, .00000,
3670 + .00000, .00000, .00000,
3671 + .01100, .00174, .00011, .00000, .00000,
3672 + .00000, .00000, .00000,
3673 + .00973, .00153, .00010, .00000, .00000,
3674 + .00000, .00000, .00000,
3675 + .00878, .00138, .00009, .00000, .00000,
3676 + .00000, .00000, .00000,
3677 + .00784, .00122, .00008, .00000, .00000,
3678 + .00000, .00000, .00000,
3679 + .00698, .00109, .00007, .00000, .00000,
3680 + .00000, .00000, .00000,
3681 + .00629, .00097, .00006, .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, .00088, .00005, .00000, .00000,
3685 + .00000, .00000, .00000,
3686 + .00520, .00080, .00005, .00000, .00000,
3687 + .00000, .00000, .00000,
3688 + .00470, .00072, .00004, .00000, .00000,
3689 + .00000, .00000, .00000,
3690 + .00429, .00066, .00004, .00000, .00000,
3691 + .00000, .00000, .00000,
3692 + .00396, .00060, .00004, .00000, .00000,
3693 + .00000, .00000, .00000,
3694 + .00357, .00054, .00003, .00000, .00000,
3695 + .00000, .00000, .00000,
3696 + .00325, .00049, .00003, .00000, .00000,
3697 + .00000, .00000, .00000,
3698 + .00297, .00045, .00003, .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 + .00272, .00041, .00002, .00000, .00000,
3702 + .00000, .00000, .00000,
3703 + .00250, .00038, .00002, .00000, .00000,
3704 + .00000, .00000, .00000,
3705 + .00230, .00035, .00002, .00000, .00000,
3706 + .00000, .00000, .00000,
3707 + .00214, .00032, .00002, .00000, .00000,
3708 + .00000, .00000, .00000,
3709 + .00198, .00030, .00002, .00000, .00000,
3710 + .00000, .00000, .00000,
3711 + .00184, .00027, .00002, .00000, .00000,
3712 + .00000, .00000, .00000,
3713 + .00172, .00026, .00001, .00000, .00000,
3714 + .00000, .00000, .00000,
3715 + .00161, .00024, .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 + .00151, .00022, .00001, .00000, .00000,
3719 + .00000, .00000, .00000,
3720 + .00142, .00021, .00001, .00000, .00000,
3721 + .00000, .00000, .00000,
3722 + .00133, .00020, .00001, .00000, .00000,
3723 + .00000, .00000, .00000,
3724 + .00126, .00019, .00001, .00000, .00000,
3725 + .00000, .00000, .00000,
3726 + .00119, .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 + .00288, .00034, .00000, .00000, .00000,
3730 + .00000, .00000, .00000,
3731 + .00253, .00030, .00000, .00000, .00000,
3732 + .00000, .00000, .00000,
3733 + .00209, .00024, .00000, .00000, .00000,
3734 + .00000, .00000, .00000,
3735 + .00183, .00021, .00000, .00000, .00000,
3736 + .00000, .00000, .00000,
3737 + .00159, .00018, .00000, .00000, .00000,
3738 + .00000, .00000, .00000,
3739 + .00142, .00016, .00000, .00000, .00000,
3740 + .00000, .00000, .00000,
3741 + .00127, .00015, .00000, .00000, .00000,
3742 + .00000, .00000, .00000,
3743 + .00113, .00013, .00000, .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 + .00102, .00012, .00000, .00000, .00000,
3747 + .00000, .00000, .00000,
3748 + .00093, .00011, .00000, .00000, .00000,
3749 + .00000, .00000, .00000,
3750 + .00086, .00010, .00000, .00000, .00000,
3751 + .00000, .00000, .00000,
3752 + .00074, .00008, .00000, .00000, .00000,
3753 + .00000, .00000, .00000,
3754 + .00065, .00007, .00000, .00000, .00000,
3755 + .00000, .00000, .00000,
3756 + .00056, .00006, .00000, .00000, .00000,
3757 + .00000, .00000, .00000,
3758 + .00048, .00005, .00000, .00000, .00000,
3759 + .00000, .00000, .00000,
3760 + .00042, .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 + .00037, .00004, .00000, .00000, .00000,
3764 + .00000, .00000, .00000,
3765 + .00033, .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 + .00013, .00002, .00000, .00000, .00000,
3783 + .00000, .00000, .00000,
3784 + .00012, .00001, .00000, .00000, .00000,
3785 + .00000, .00000, .00000,
3786 + .00011, .00001, .00000, .00000, .00000,
3787 + .00000, .00000, .00000,
3788 + .00010, .00001, .00000, .00000, .00000,
3789 + .00000, .00000, .00000,
3790 + .00009, .00001, .00000, .00000, .00000,
3791 + .00000, .00000, .00000,
3792 + .00008, .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 + .00007, .00001, .00000, .00000, .00000,
3798 + .00000, .00000, .00000,
3799 + .00006, .00001, .00000, .00000, .00000,
3800 + .00000, .00000, .00000,
3801 + .00006, .00001, .00000, .00000, .00000,
3802 + .00000, .00000, .00000,
3803 + .00005, .00001, .00000, .00000, .00000,
3804 + .00000, .00000, .00000,
3805 + .00005, .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='cor07.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