2 subroutine sfmrs_98d3(x,qsq,upv,dnv,usea,dsea,str,chm,bot,glu)
4 #include "pdf/impdp.inc"
6 parameter(nx=49,nq=37,ntenth=23,np=8)
8 #include "pdf/expdp.inc"
9 + f(np,nx,nq+1),qq(nq),xx(nx),g(np),n0(np)
10 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,8)/
11 + .00526, .00297, 1.16049, .86935, .00000,
12 + .00000, .46536, .87868,
13 + .00539, .00301, 2.37849, .91018, .00000,
14 + .00000, .51028, .91968,
15 + .00559, .00310, 4.75177, .99293, .05118,
16 + .00000, .59893, 1.00266,
17 + .00575, .00316, 7.08549, 1.06988, .13260,
18 + .00000, .68009, 1.07976,
19 + .00591, .00322, 10.08262, 1.16909, .22394,
20 + .00000, .78366, 1.17914,
21 + .00605, .00328, 13.16594, 1.27014, .31745,
22 + .00000, .88838, 1.28032,
23 + .00617, .00334, 16.64571, 1.37980, .42351,
24 + .00000, 1.00150, 1.39009,
25 + .00632, .00340, 20.93648, 1.51085, .55326,
26 + .00000, 1.13616, 1.52126 /
27 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
28 + .00645, .00346, 25.12103, 1.63899, .67730,
29 + .00000, 1.26738, 1.64949,
30 + .00657, .00351, 29.62102, 1.77487, .81003,
31 + .00000, 1.40619, 1.78547,
32 + .00667, .00356, 33.56895, 1.89110, .92636,
33 + .00000, 1.52471, 1.90176,
34 + .00689, .00365, 43.11265, 2.16739, 1.19982,
35 + .00000, 1.80580, 2.17820,
36 + .00707, .00374, 51.92837, 2.43713, 1.46624,
37 + .35264, 2.07962, 2.44804,
38 + .00729, .00384, 63.44059, 2.77626, 1.80327,
39 + .74111, 2.42320, 2.78727,
40 + .00752, .00394, 76.97550, 3.17295, 2.19840,
41 + 1.15356, 2.82445, 3.18409,
42 + .00772, .00404, 90.67268, 3.57349, 2.59810,
43 + 1.57122, 3.22900, 3.58472 /
44 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
45 + .00793, .00414, 105.91420, 4.01909, 3.04390,
46 + 2.03529, 3.67857, 4.03039,
47 + .00812, .00423, 119.60698, 4.42142, 3.44547,
48 + 2.44853, 4.08415, 4.43280,
49 + .00833, .00433, 137.47890, 4.94971, 3.97211,
50 + 2.98841, 4.61630, 4.96115,
51 + .00854, .00442, 154.57337, 5.45638, 4.47886,
52 + 3.51043, 5.12630, 5.46788,
53 + .00872, .00451, 171.32662, 5.95487, 4.97839,
54 + 4.02538, 5.62781, 5.96642,
55 + .00895, .00462, 193.78992, 6.63159, 5.65355,
56 + 4.71466, 6.30830, 6.64320,
57 + .00917, .00473, 216.41166, 7.31753, 6.33949,
58 + 5.41691, 6.99769, 7.32918,
59 + .00939, .00483, 239.02831, 8.00686, 7.03092,
60 + 6.12726, 7.69021, 8.01856 /
61 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
62 + .00960, .00494, 262.53749, 8.73487, 7.75736,
63 + 6.86627, 8.42135, 8.74660,
64 + .00982, .00505, 286.86737, 9.49273, 8.51584,
65 + 7.64097, 9.18222, 9.50449,
66 + .01002, .00515, 311.01068, 10.25123, 9.27542,
67 + 8.41667, 9.94351, 10.26301,
68 + .01022, .00524, 334.50482, 10.99864, 10.02240,
69 + 9.17661, 10.69354, 11.01046,
70 + .01041, .00534, 359.29819, 11.79086, 10.81657,
71 + 9.98761, 11.48832, 11.80268,
72 + .01061, .00544, 384.19750, 12.59867, 11.62362,
73 + 10.80709, 12.29864, 12.61052,
74 + .01080, .00553, 409.03601, 13.40705, 12.43406,
75 + 11.63373, 13.10935, 13.41891,
76 + .01098, .00562, 432.86194, 14.19415, 13.22060,
77 + 12.43178, 13.89863, 14.20601 /
78 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
79 + .01116, .00571, 457.89291, 15.02430, 14.05227,
80 + 13.27819, 14.73096, 15.03618,
81 + .01134, .00581, 483.06147, 15.86894, 14.89726,
82 + 14.13615, 15.57772, 15.88082,
83 + .01152, .00589, 507.75656, 16.70405, 15.73308,
84 + 14.98495, 16.41482, 16.71592,
85 + .01169, .00598, 531.88018, 17.52474, 16.55543,
86 + 15.82106, 17.23739, 17.53664,
87 + .01186, .00606, 556.47298, 18.37237, 17.40295,
88 + 16.67981, 18.08689, 18.38427 /
89 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
90 + .00739, .00406, 1.06032, .74461, .00000,
91 + .00000, .39848, .75030,
92 + .00757, .00414, 2.15406, .78158, .00000,
93 + .00000, .43872, .78737,
94 + .00785, .00425, 4.24109, .85394, .04507,
95 + .00000, .51579, .85987,
96 + .00805, .00434, 6.25361, .91975, .11482,
97 + .00000, .58497, .92577,
98 + .00827, .00444, 8.79506, 1.00320, .19156,
99 + .00000, .67187, 1.00932,
100 + .00846, .00452, 11.37089, 1.08712, .26914,
101 + .00000, .75871, 1.09331,
102 + .00864, .00461, 14.24254, 1.17740, .35631,
103 + .00000, .85174, 1.18367,
104 + .00884, .00470, 17.74130, 1.28442, .46192,
105 + .00000, .96162, 1.29075 /
106 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
107 + .00902, .00478, 21.11382, 1.38817, .56199,
108 + .00000, 1.06780, 1.39456,
109 + .00919, .00485, 24.70504, 1.49746, .66829,
110 + .00000, 1.17941, 1.50391,
111 + .00932, .00491, 27.83058, 1.59046, .76091,
112 + .00000, 1.27422, 1.59696,
113 + .00961, .00505, 35.30250, 1.80972, .97680,
114 + .00000, 1.49728, 1.81630,
115 + .00987, .00517, 42.08791, 2.02173, 1.18499,
116 + .27585, 1.71249, 2.02838,
117 + .01016, .00532, 50.84763, 2.28589, 1.44596,
118 + .57690, 1.98017, 2.29262,
119 + .01048, .00547, 61.00877, 2.59200, 1.74896,
120 + .89272, 2.28984, 2.59879,
121 + .01076, .00560, 71.16336, 2.89829, 2.05272,
122 + 1.20957, 2.59929, 2.90514 /
123 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
124 + .01105, .00575, 82.33335, 3.23622, 2.38869,
125 + 1.55859, 2.94033, 3.24313,
126 + .01130, .00586, 92.26425, 3.53902, 2.68902,
127 + 1.86689, 3.24569, 3.54599,
128 + .01160, .00601, 105.09485, 3.93364, 3.07995,
129 + 2.26661, 3.64333, 3.94066,
130 + .01187, .00615, 117.24685, 4.30933, 3.45343,
131 + 2.65035, 4.02163, 4.31639,
132 + .01212, .00626, 129.05376, 4.67655, 3.81922,
133 + 3.02645, 4.39121, 4.68364,
134 + .01244, .00642, 144.73134, 5.17143, 4.31002,
135 + 3.52606, 4.88903, 5.17857,
136 + .01274, .00658, 160.36800, 5.66934, 4.80507,
137 + 4.03147, 5.38964, 5.67651,
138 + .01303, .00672, 175.86662, 6.16636, 5.30086,
139 + 4.53948, 5.88915, 6.17357 /
140 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
141 + .01332, .00686, 191.83005, 6.68764, 5.81812,
142 + 5.06411, 6.41286, 6.69488,
143 + .01361, .00701, 208.22159, 7.22693, 6.35498,
144 + 5.61092, 6.95450, 7.23420,
145 + .01388, .00715, 224.36421, 7.76344, 6.88950,
146 + 6.15529, 7.49320, 7.77073,
147 + .01415, .00728, 239.95375, 8.28903, 7.41209,
148 + 6.68541, 8.02083, 8.29635,
149 + .01441, .00742, 256.30322, 8.84330, 7.96503,
150 + 7.24859, 8.57710, 8.85064,
151 + .01468, .00755, 272.60004, 9.40527, 8.52368,
152 + 7.81422, 9.14101, 9.41263,
153 + .01493, .00768, 288.76733, 9.96504, 9.08230,
154 + 8.38253, 9.70261, 9.97242,
155 + .01517, .00780, 304.16949, 10.50722, 9.62155,
156 + 8.92813, 10.24650, 10.51462 /
157 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
158 + .01542, .00793, 320.26976, 11.07670, 10.18952,
159 + 9.50467, 10.81767, 11.08410,
160 + .01566, .00805, 336.35929, 11.65334, 10.76383,
161 + 10.08624, 11.39597, 11.66077,
162 + .01590, .00817, 352.06406, 12.22105, 11.32958,
163 + 10.65928, 11.96524, 12.22849,
164 + .01613, .00829, 367.33245, 12.77681, 11.88415,
165 + 11.22172, 12.52246, 12.78427,
166 + .01635, .00841, 382.80794, 13.34829, 12.45311,
167 + 11.79670, 13.09541, 13.35575 /
168 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
169 + .01037, .00554, .96801, .63775, .00000,
170 + .00000, .34158, .64094,
171 + .01061, .00566, 1.95018, .67105, .00000,
172 + .00000, .37752, .67430,
173 + .01099, .00583, 3.78460, .73419, .03986,
174 + .00000, .44441, .73751,
175 + .01126, .00597, 5.51883, .79037, .09951,
176 + .00000, .50327, .79373,
177 + .01157, .00611, 7.67139, .86042, .16388,
178 + .00000, .57608, .86383,
179 + .01182, .00623, 9.81998, .92995, .22814,
180 + .00000, .64792, .93340,
181 + .01208, .00635, 12.18552, 1.00408, .29963,
182 + .00000, .72423, 1.00758,
183 + .01235, .00648, 15.03253, 1.09122, .38543,
184 + .00000, .81364, 1.09476 /
185 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
186 + .01260, .00659, 17.74410, 1.17496, .46600,
187 + .00000, .89930, 1.17853,
188 + .01282, .00671, 20.60254, 1.26255, .55094,
189 + .00000, .98873, 1.26615,
190 + .01301, .00679, 23.07014, 1.33670, .62453,
191 + .00000, 1.06430, 1.34032,
192 + .01341, .00699, 28.90247, 1.51007, .79457,
193 + .00000, 1.24066, 1.51375,
194 + .01376, .00716, 34.10603, 1.67603, .95690,
195 + .21517, 1.40913, 1.67975,
196 + .01417, .00737, 40.74512, 1.88094, 1.15847,
197 + .44824, 1.61680, 1.88471,
198 + .01459, .00757, 48.34096, 2.11609, 1.39022,
199 + .68980, 1.85475, 2.11990,
200 + .01499, .00777, 55.83458, 2.34926, 1.62043,
201 + .92988, 2.09039, 2.35311 /
202 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
203 + .01538, .00797, 63.98077, 2.60434, 1.87291,
204 + 1.19202, 2.34792, 2.60824,
205 + .01571, .00813, 71.14592, 2.83114, 2.09687,
206 + 1.42170, 2.57670, 2.83507,
207 + .01613, .00834, 80.30681, 3.12447, 2.38618,
208 + 1.71718, 2.87239, 3.12843,
209 + .01649, .00853, 88.89582, 3.40164, 2.66053,
210 + 1.99878, 3.15160, 3.40563,
211 + .01683, .00869, 97.16726, 3.67078, 2.92751,
212 + 2.27298, 3.42258, 3.67481,
213 + .01726, .00892, 108.04004, 4.03078, 3.28305,
214 + 2.63438, 3.78486, 4.03484,
215 + .01768, .00913, 118.77759, 4.39028, 3.63905,
216 + 2.99734, 4.14646, 4.39436,
217 + .01807, .00933, 129.32628, 4.74669, 3.99323,
218 + 3.35981, 4.50481, 4.75082 /
219 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
220 + .01847, .00953, 140.08811, 5.11785, 4.36009,
221 + 3.73129, 4.87786, 5.12200,
222 + .01886, .00973, 151.05001, 5.49944, 4.73857,
223 + 4.11625, 5.26127, 5.50362,
224 + .01923, .00993, 161.76092, 5.87676, 5.11315,
225 + 4.49720, 5.64028, 5.88095,
226 + .01958, .01010, 172.02318, 6.24418, 5.47718,
227 + 4.86590, 6.00929, 6.24841,
228 + .01994, .01029, 182.71747, 6.62968, 5.86050,
229 + 5.25580, 6.39634, 6.63393,
230 + .02030, .01047, 193.29333, 7.01824, 6.24544,
231 + 5.64493, 6.78641, 7.02251,
232 + .02063, .01065, 203.72665, 7.40348, 6.62870,
233 + 6.03434, 7.17307, 7.40778,
234 + .02096, .01082, 213.59401, 7.77463, 6.99663,
235 + 6.40601, 7.54553, 7.77893 /
236 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
237 + .02129, .01099, 223.85621, 8.16280, 7.38263,
238 + 6.79731, 7.93501, 8.16713,
239 + .02162, .01117, 234.04552, 8.55394, 7.77101,
240 + 7.19003, 8.32743, 8.55829,
241 + .02194, .01133, 243.93732, 8.93737, 8.15200,
242 + 7.57540, 8.71209, 8.94174,
243 + .02224, .01149, 253.50720, 9.31125, 8.52404,
244 + 7.95223, 9.08709, 9.31564,
245 + .02254, .01165, 263.14712, 9.69394, 8.90397,
246 + 8.33560, 9.47091, 9.69834 /
247 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
248 + .01262, .00667, .91716, .58254, .00000,
249 + .00000, .31240, .58474,
250 + .01291, .00681, 1.83955, .61382, .00000,
251 + .00000, .34596, .61603,
252 + .01336, .00702, 3.54025, .67201, .03722,
253 + .00000, .40748, .67428,
254 + .01370, .00719, 5.12944, .72314, .09160,
255 + .00000, .46096, .72545,
256 + .01406, .00736, 7.08171, .78628, .14959,
257 + .00000, .52652, .78863,
258 + .01438, .00752, 9.01257, .84846, .20708,
259 + .00000, .59073, .85085,
260 + .01469, .00767, 11.12256, .91442, .27067,
261 + .00000, .65860, .91682,
262 + .01501, .00782, 13.64350, .99155, .34655,
263 + .00000, .73771, .99398 /
264 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
265 + .01529, .00796, 16.02726, 1.06528, .41742,
266 + .00000, .81312, 1.06773,
267 + .01558, .00811, 18.52504, 1.14208, .49182,
268 + .00000, .89152, 1.14456,
269 + .01580, .00822, 20.67081, 1.20689, .55606,
270 + .00000, .95758, 1.20939,
271 + .01628, .00845, 25.70813, 1.35768, .70374,
272 + .00000, 1.11096, 1.36021,
273 + .01671, .00867, 30.15511, 1.50116, .84386,
274 + .18566, 1.25665, 1.50372,
275 + .01719, .00891, 35.78878, 1.67737, 1.01692,
276 + .38619, 1.43525, 1.67996,
277 + .01770, .00917, 42.18121, 1.87841, 1.21474,
278 + .59253, 1.63872, 1.88105,
279 + .01817, .00940, 48.43898, 2.07668, 1.41017,
280 + .79646, 1.83914, 2.07936 /
281 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
282 + .01865, .00965, 55.19364, 2.29251, 1.62345,
283 + 1.01799, 2.05708, 2.29521,
284 + .01905, .00986, 61.09661, 2.48353, 1.81175,
285 + 1.21115, 2.24982, 2.48626,
286 + .01954, .01011, 68.59640, 2.72945, 2.05391,
287 + 1.45850, 2.49779, 2.73222,
288 + .01998, .01034, 75.58540, 2.96080, 2.28256,
289 + 1.69322, 2.73091, 2.96361,
290 + .02039, .01054, 82.28023, 3.18458, 2.50421,
291 + 1.92088, 2.95627, 3.18740,
292 + .02090, .01081, 91.02705, 3.48257, 2.79804,
293 + 2.21954, 3.25623, 3.48542,
294 + .02141, .01106, 99.61369, 3.77881, 3.09098,
295 + 2.51819, 3.55430, 3.78170,
296 + .02187, .01130, 108.00461, 4.07135, 3.38131,
297 + 2.81531, 3.84850, 4.07426 /
298 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
299 + .02234, .01155, 116.51531, 4.37469, 3.68070,
300 + 3.11841, 4.15348, 4.37764,
301 + .02280, .01179, 125.14249, 4.68539, 3.98847,
302 + 3.43141, 4.46576, 4.68838,
303 + .02325, .01202, 133.53215, 4.99152, 4.29200,
304 + 3.74007, 4.77335, 4.99452,
305 + .02368, .01224, 141.53172, 5.28855, 4.58591,
306 + 4.03769, 5.07174, 5.29159,
307 + .02410, .01246, 149.83642, 5.59925, 4.89452,
308 + 4.35156, 5.38377, 5.60230,
309 + .02452, .01269, 158.00917, 5.91131, 5.20331,
310 + 4.66363, 5.69714, 5.91439,
311 + .02493, .01290, 166.04497, 6.21987, 5.50996,
312 + 4.97518, 6.00691, 6.22298,
313 + .02532, .01310, 173.61090, 6.51616, 5.80336,
314 + 5.27148, 6.30435, 6.51930 /
315 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
316 + .02571, .01330, 181.45574, 6.82529, 6.11045,
317 + 5.58275, 6.61461, 6.82844,
318 + .02609, .01351, 189.21365, 7.13586, 6.41852,
319 + 5.89420, 6.92629, 7.13904,
320 + .02647, .01371, 196.72036, 7.43955, 6.71998,
321 + 6.19905, 7.23101, 7.44274,
322 + .02683, .01389, 203.96129, 7.73495, 7.01367,
323 + 6.49650, 7.52740, 7.73817,
324 + .02720, .01408, 211.22716, 8.03649, 7.31275,
325 + 6.79821, 7.82992, 8.03973 /
326 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
327 + .01450, .00760, .88239, .54635, .00000,
328 + .00000, .29336, .54803,
329 + .01483, .00776, 1.76472, .57620, .00000,
330 + .00000, .32531, .57790,
331 + .01534, .00800, 3.37634, .63108, .03551,
332 + .00000, .38323, .63281,
333 + .01574, .00820, 4.86986, .67886, .08641,
334 + .00000, .43317, .68063,
335 + .01615, .00840, 6.69096, .73748, .14024,
336 + .00000, .49398, .73926,
337 + .01651, .00858, 8.48022, .79487, .19331,
338 + .00000, .55324, .79667,
339 + .01685, .00875, 10.42495, .85551, .25177,
340 + .00000, .61562, .85734,
341 + .01722, .00895, 12.73617, .92618, .32127,
342 + .00000, .68808, .92803 /
343 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
344 + .01756, .00911, 14.91028, .99346, .38593,
345 + .00000, .75691, .99533,
346 + .01787, .00927, 17.17849, 1.06335, .45360,
347 + .00000, .82825, 1.06525,
348 + .01813, .00940, 19.12023, 1.12220, .51190,
349 + .00000, .88824, 1.12411,
350 + .01868, .00967, 23.65627, 1.25861, .64540,
351 + .00000, 1.02701, 1.26056,
352 + .01916, .00992, 27.63045, 1.38786, .77155,
353 + .16700, 1.15825, 1.38983,
354 + .01971, .01021, 32.63910, 1.54596, .92673,
355 + .34714, 1.31854, 1.54798,
356 + .02031, .01051, 38.28844, 1.72563, 1.10338,
357 + .53156, 1.50040, 1.72768,
358 + .02084, .01078, 43.78794, 1.90212, 1.27722,
359 + .71310, 1.67884, 1.90420 /
360 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
361 + .02138, .01105, 49.69376, 2.09356, 1.46626,
362 + .90959, 1.87219, 2.09567,
363 + .02183, .01130, 54.83082, 2.26242, 1.63262,
364 + 1.08032, 2.04262, 2.26457,
365 + .02240, .01158, 61.32779, 2.47913, 1.84585,
366 + 1.29822, 2.26118, 2.48131,
367 + .02290, .01185, 67.35575, 2.68235, 2.04657,
368 + 1.50436, 2.46600, 2.68455,
369 + .02336, .01208, 73.10775, 2.87837, 2.24061,
370 + 1.70375, 2.66345, 2.88060,
371 + .02395, .01239, 80.58939, 3.13856, 2.49700,
372 + 1.96442, 2.92542, 3.14083,
373 + .02451, .01268, 87.90243, 3.39640, 2.75182,
374 + 2.22429, 3.18491, 3.39871,
375 + .02504, .01295, 95.02138, 3.65028, 3.00365,
376 + 2.48211, 3.44030, 3.65262 /
377 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
378 + .02558, .01324, 102.21116, 3.91274, 3.26254,
379 + 2.74425, 3.70423, 3.91511,
380 + .02610, .01351, 109.47392, 4.18086, 3.52799,
381 + 3.01429, 3.97377, 4.18325,
382 + .02660, .01378, 116.51234, 4.44433, 3.78912,
383 + 3.27989, 4.23857, 4.44676,
384 + .02708, .01403, 123.19976, 4.69934, 4.04130,
385 + 3.53531, 4.49478, 4.70178,
386 + .02756, .01428, 130.12330, 4.96547, 4.30555,
387 + 3.80414, 4.76215, 4.96796,
388 + .02804, .01453, 136.91245, 5.23212, 4.56927,
389 + 4.07070, 5.02995, 5.23463,
390 + .02850, .01477, 143.57194, 5.49524, 4.83068,
391 + 4.33635, 5.29419, 5.49778,
392 + .02893, .01500, 149.82101, 5.74732, 5.08019,
393 + 4.58837, 5.54729, 5.74989 /
394 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
395 + .02938, .01524, 156.28645, 6.00985, 5.34090,
396 + 4.85269, 5.81084, 6.01244,
397 + .02982, .01547, 162.66139, 6.27304, 5.60188,
398 + 5.11657, 6.07503, 6.27565,
399 + .03025, .01570, 168.81509, 6.52992, 5.85680,
400 + 5.37441, 6.33285, 6.53256,
401 + .03064, .01590, 174.73829, 6.77937, 6.10475,
402 + 5.62558, 6.58320, 6.78204,
403 + .03106, .01612, 180.66459, 7.03350, 6.35672,
404 + 5.87980, 6.83820, 7.03619 /
405 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
406 + .01614, .00841, .85627, .51988, .00000,
407 + .00000, .27948, .52121,
408 + .01652, .00859, 1.70880, .54864, .00000,
409 + .00000, .31021, .55000,
410 + .01708, .00888, 3.25451, .60105, .03428,
411 + .00000, .36545, .60244,
412 + .01751, .00910, 4.67775, .64636, .08261,
413 + .00000, .41279, .64778,
414 + .01797, .00932, 6.40302, .70166, .13337,
415 + .00000, .47013, .70310,
416 + .01837, .00953, 8.08932, .75557, .18324,
417 + .00000, .52576, .75703,
418 + .01875, .00972, 9.91438, .81235, .23798,
419 + .00000, .58417, .81382,
420 + .01917, .00993, 12.07438, .87833, .30288,
421 + .00000, .65184, .87983 /
422 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
423 + .01953, .01011, 14.09795, .94097, .36306,
424 + .00000, .71591, .94250,
425 + .01989, .01029, 16.20186, 1.00589, .42591,
426 + .00000, .78217, 1.00743,
427 + .02016, .01044, 17.99799, 1.06045, .47994,
428 + .00000, .83780, 1.06201,
429 + .02077, .01075, 22.17786, 1.18657, .60334,
430 + .00000, .96612, 1.18816,
431 + .02132, .01102, 25.81852, 1.30567, .71955,
432 + .15368, 1.08709, 1.30729,
433 + .02193, .01134, 30.38808, 1.45093, .86207,
434 + .31940, 1.23437, 1.45258,
435 + .02257, .01167, 35.51790, 1.61545, 1.02379,
436 + .48837, 1.40094, 1.61714,
437 + .02316, .01198, 40.48962, 1.77658, 1.18246,
438 + .65421, 1.56389, 1.77831 /
439 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
440 + .02377, .01229, 45.80715, 1.95086, 1.35450,
441 + .83316, 1.73995, 1.95263,
442 + .02428, .01255, 50.41545, 2.10421, 1.50552,
443 + .98824, 1.89475, 2.10600,
444 + .02489, .01287, 56.22268, 2.30050, 1.69862,
445 + 1.18567, 2.09276, 2.30233,
446 + .02544, .01316, 61.59207, 2.48412, 1.87992,
447 + 1.37197, 2.27786, 2.48597,
448 + .02595, .01343, 66.70009, 2.66083, 2.05481,
449 + 1.55179, 2.45591, 2.66272,
450 + .02660, .01377, 73.32072, 2.89481, 2.28533,
451 + 1.78626, 2.69155, 2.89674,
452 + .02722, .01409, 79.77013, 3.12612, 2.51386,
453 + 2.01943, 2.92437, 3.12808,
454 + .02780, .01440, 86.02925, 3.35335, 2.73922,
455 + 2.25026, 3.15302, 3.35535 /
456 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
457 + .02839, .01471, 92.32933, 3.58769, 2.97033,
458 + 2.48436, 3.38872, 3.58973,
459 + .02898, .01501, 98.67576, 3.82660, 3.20682,
460 + 2.72502, 3.62894, 3.82866,
461 + .02953, .01530, 104.80936, 4.06088, 3.43898,
462 + 2.96126, 3.86446, 4.06298,
463 + .03005, .01558, 110.62066, 4.28717, 3.66274,
464 + 3.18797, 4.09189, 4.28930,
465 + .03059, .01587, 116.62414, 4.52296, 3.89683,
466 + 3.42622, 4.32879, 4.52512,
467 + .03111, .01615, 122.49429, 4.75870, 4.12995,
468 + 3.66192, 4.56562, 4.76089,
469 + .03161, .01641, 128.24145, 4.99098, 4.36071,
470 + 3.89652, 4.79893, 4.99321,
471 + .03210, .01667, 133.61995, 5.21310, 4.58054,
472 + 4.11862, 5.02200, 5.21536 /
473 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
474 + .03258, .01692, 139.17521, 5.44411, 4.80994,
475 + 4.35129, 5.25396, 5.44639,
476 + .03306, .01718, 144.63978, 5.67531, 5.03919,
477 + 4.58316, 5.48608, 5.67762,
478 + .03353, .01743, 149.90448, 5.90063, 5.26278,
479 + 4.80939, 5.71228, 5.90299,
480 + .03397, .01766, 154.96340, 6.11917, 5.47999,
481 + 5.02951, 5.93163, 6.12154,
482 + .03443, .01790, 160.01335, 6.34144, 5.70036,
483 + 5.25191, 6.15472, 6.34384 /
484 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
485 + .02258, .01162, .77937, .44579, .00000,
486 + .00000, .24104, .44673,
487 + .02309, .01188, 1.54628, .47128, .00000,
488 + .00000, .26816, .47225,
489 + .02387, .01228, 2.90354, .51644, .03094,
490 + .00000, .31564, .51744,
491 + .02447, .01258, 4.12814, .55469, .07194,
492 + .00000, .35555, .55572,
493 + .02509, .01291, 5.58491, .60060, .11411,
494 + .00000, .40314, .60165,
495 + .02564, .01319, 6.98513, .64476, .15501,
496 + .00000, .44871, .64585,
497 + .02616, .01346, 8.48009, .69084, .19951,
498 + .00000, .49612, .69195,
499 + .02674, .01376, 10.22600, .74391, .25174,
500 + .00000, .55056, .74505 /
501 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
502 + .02724, .01402, 11.84023, .79382, .29973,
503 + .00000, .60164, .79499,
504 + .02771, .01427, 13.50020, .84516, .34948,
505 + .00000, .65409, .84636,
506 + .02810, .01448, 14.90494, .88809, .39201,
507 + .00000, .69787, .88930,
508 + .02893, .01490, 18.13396, .98643, .48827,
509 + .00000, .79800, .98769,
510 + .02967, .01530, 20.89357, 1.07833, .57799,
511 + .11783, .89140, 1.07963,
512 + .03051, .01574, 24.31103, 1.18934, .68698,
513 + .24536, 1.00405, 1.19068,
514 + .03139, .01620, 28.08983, 1.31380, .80940,
515 + .37377, 1.13017, 1.31519,
516 + .03220, .01664, 31.70055, 1.43454, .92837,
517 + .49858, 1.25238, 1.43598 /
518 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
519 + .03302, .01707, 35.51259, 1.56398, 1.05626,
520 + .63206, 1.38326, 1.56547,
521 + .03371, .01744, 38.77704, 1.67695, 1.16760,
522 + .74675, 1.49740, 1.67848,
523 + .03455, .01788, 42.84318, 1.82041, 1.30881,
524 + .89155, 1.64224, 1.82198,
525 + .03530, .01828, 46.56106, 1.95355, 1.44038,
526 + 1.02716, 1.77658, 1.95518,
527 + .03599, .01865, 50.06337, 2.08081, 1.56644,
528 + 1.15715, 1.90491, 2.08248,
529 + .03687, .01912, 54.55126, 2.24798, 1.73126,
530 + 1.32524, 2.07342, 2.24971,
531 + .03771, .01957, 58.87520, 2.41193, 1.89340,
532 + 1.49111, 2.23860, 2.41371,
533 + .03850, .02000, 63.03067, 2.57187, 2.05218,
534 + 1.65419, 2.39966, 2.57370 /
535 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
536 + .03929, .02041, 67.16695, 2.73554, 2.21373,
537 + 1.81820, 2.56443, 2.73743,
538 + .04007, .02083, 71.29675, 2.90131, 2.37797,
539 + 1.98577, 2.73126, 2.90324,
540 + .04081, .02124, 75.25278, 3.06283, 2.53820,
541 + 2.14923, 2.89377, 3.06482,
542 + .04152, .02162, 78.96625, 3.21783, 2.69161,
543 + 2.30500, 3.04967, 3.21986,
544 + .04223, .02200, 82.77606, 3.37847, 2.85128,
545 + 2.46793, 3.21123, 3.38055,
546 + .04294, .02238, 86.46577, 3.53804, 3.00923,
547 + 2.62797, 3.37167, 3.54018,
548 + .04362, .02275, 90.05676, 3.69454, 3.16489,
549 + 2.78660, 3.52898, 3.69671,
550 + .04425, .02309, 93.38732, 3.84329, 3.31225,
551 + 2.93580, 3.67849, 3.84550 /
552 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
553 + .04490, .02345, 96.80846, 3.99730, 3.46539,
554 + 3.09148, 3.83327, 3.99957,
555 + .04555, .02379, 100.14743, 4.15062, 3.61758,
556 + 3.24575, 3.98734, 4.15294,
557 + .04616, .02413, 103.34422, 4.29937, 3.76536,
558 + 3.39561, 4.13677, 4.30172,
559 + .04675, .02445, 106.39903, 4.44301, 3.90833,
560 + 3.54083, 4.28107, 4.44540,
561 + .04735, .02476, 109.42443, 4.58836, 4.05260,
562 + 3.68672, 4.42708, 4.59080 /
563 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
564 + .03165, .01618, .70996, .38294, .00000,
565 + .00000, .20906, .38434,
566 + .03235, .01653, 1.40143, .40525, .00000,
567 + .00000, .23273, .40668,
568 + .03339, .01708, 2.59266, .44371, .02828,
569 + .00000, .27316, .44521,
570 + .03420, .01750, 3.64520, .47567, .06279,
571 + .00000, .30651, .47722,
572 + .03505, .01795, 4.87232, .51340, .09752,
573 + .00000, .34566, .51501,
574 + .03580, .01835, 6.03091, .54922, .13079,
575 + .00000, .38266, .55086,
576 + .03652, .01872, 7.25006, .58623, .16665,
577 + .00000, .42078, .58793,
578 + .03729, .01914, 8.65379, .62848, .20835,
579 + .00000, .46419, .63023 /
580 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
581 + .03797, .01950, 9.93349, .66785, .24630,
582 + .00000, .50455, .66964,
583 + .03863, .01986, 11.23416, .70805, .28535,
584 + .00000, .54567, .70989,
585 + .03916, .02013, 12.32460, .74147, .31855,
586 + .00000, .57981, .74335,
587 + .04029, .02074, 14.79855, .81735, .39304,
588 + .00000, .65721, .81931,
589 + .04129, .02128, 16.87150, .88750, .46174,
590 + .08880, .72862, .88953,
591 + .04243, .02190, 19.40021, .97142, .54438,
592 + .18632, .81390, .97352,
593 + .04363, .02254, 22.15135, 1.06452, .63626,
594 + .28325, .90841, 1.06671,
595 + .04472, .02314, 24.74038, 1.15397, .72467,
596 + .37653, .99908, 1.15625 /
597 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
598 + .04584, .02374, 27.43596, 1.24901, .81888,
599 + .47538, 1.09533, 1.25136,
600 + .04677, .02426, 29.71482, 1.33125, .90019,
601 + .55956, 1.17855, 1.33367,
602 + .04790, .02487, 32.51786, 1.43482, 1.00248,
603 + .66497, 1.28328, 1.43733,
604 + .04891, .02542, 35.05025, 1.53018, 1.09702,
605 + .76290, 1.37965, 1.53276,
606 + .04984, .02593, 37.41072, 1.62068, 1.18697,
607 + .85611, 1.47104, 1.62333,
608 + .05103, .02658, 40.39775, 1.73857, 1.30358,
609 + .97557, 1.59006, 1.74131,
610 + .05216, .02719, 43.24152, 1.85327, 1.41737,
611 + 1.09253, 1.70578, 1.85608,
612 + .05322, .02777, 45.94582, 1.96431, 1.52799,
613 + 1.20669, 1.81778, 1.96723 /
614 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
615 + .05428, .02836, 48.60441, 2.07705, 1.63961,
616 + 1.32051, 1.93144, 2.08004,
617 + .05533, .02893, 51.23333, 2.19045, 1.75234,
618 + 1.43604, 2.04573, 2.19352,
619 + .05633, .02947, 53.72730, 2.30020, 1.86159,
620 + 1.54798, 2.15631, 2.30335,
621 + .05726, .02999, 56.04410, 2.40481, 1.96544,
622 + 1.65390, 2.26168, 2.40802,
623 + .05822, .03051, 58.40336, 2.51263, 2.07297,
624 + 1.76411, 2.37026, 2.51592,
625 + .05915, .03102, 60.66346, 2.61899, 2.17859,
626 + 1.87157, 2.47735, 2.62235,
627 + .06005, .03151, 62.84924, 2.72277, 2.28218,
628 + 1.97761, 2.58183, 2.72621,
629 + .06091, .03198, 64.85541, 2.82080, 2.37960,
630 + 2.07665, 2.68050, 2.82430 /
631 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
632 + .06176, .03246, 66.90421, 2.92183, 2.48040,
633 + 2.17956, 2.78217, 2.92540,
634 + .06262, .03292, 68.88571, 3.02183, 2.57999,
635 + 2.28094, 2.88280, 3.02547,
636 + .06343, .03337, 70.76968, 3.11837, 2.67622,
637 + 2.37893, 2.97993, 3.12207,
638 + .06422, .03380, 72.55890, 3.21120, 2.76893,
639 + 2.47350, 3.07330, 3.21496,
640 + .06500, .03423, 74.31439, 3.30459, 2.86193,
641 + 2.56794, 3.16726, 3.30842 /
642 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
643 + .03857, .01968, .67459, .35086, .00000,
644 + .00000, .19302, .35288,
645 + .03939, .02010, 1.32646, .37130, .00000,
646 + .00000, .21473, .37338,
647 + .04063, .02076, 2.42973, .40607, .02699,
648 + .00000, .25129, .40823,
649 + .04159, .02128, 3.39209, .43462, .05803,
650 + .00000, .28111, .43685,
651 + .04261, .02182, 4.49998, .46804, .08883,
652 + .00000, .31583, .47035,
653 + .04350, .02229, 5.53426, .49951, .11815,
654 + .00000, .34840, .50188,
655 + .04437, .02276, 6.61271, .53186, .14958,
656 + .00000, .38177, .53431,
657 + .04529, .02326, 7.84342, .56861, .18592,
658 + .00000, .41957, .57111 /
659 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
660 + .04610, .02370, 8.95553, .60265, .21882,
661 + .00000, .45452, .60523,
662 + .04689, .02412, 10.07756, .63726, .25254,
663 + .00000, .48998, .63990,
664 + .04751, .02447, 11.01275, .66594, .28110,
665 + .00000, .51933, .66864,
666 + .04887, .02520, 13.11718, .73073, .34486,
667 + .00000, .58550, .73353,
668 + .05008, .02586, 14.85942, .79022, .40328,
669 + .07439, .64616, .79312,
670 + .05144, .02661, 16.96370, .86098, .47317,
671 + .15735, .71819, .86399,
672 + .05286, .02739, 19.22980, .93901, .55039,
673 + .23915, .79750, .94212,
674 + .05417, .02811, 21.34199, 1.01352, .62426,
675 + .31742, .87314, 1.01674 /
676 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
677 + .05550, .02884, 23.52178, 1.09225, .70253,
678 + .39989, .95299, 1.09559,
679 + .05660, .02945, 25.34961, 1.16004, .76976,
680 + .46976, 1.02169, 1.16347,
681 + .05796, .03019, 27.57995, 1.24499, .85389,
682 + .55679, 1.10770, 1.24852,
683 + .05916, .03086, 29.57962, 1.32281, .93129,
684 + .63727, 1.18645, 1.32645,
685 + .06027, .03146, 31.43106, 1.39634, 1.00459,
686 + .71352, 1.26082, 1.40007,
687 + .06167, .03224, 33.75507, 1.49165, 1.09915,
688 + .81074, 1.35717, 1.49550,
689 + .06301, .03298, 35.95083, 1.58391, 1.19094,
690 + .90545, 1.45037, 1.58786,
691 + .06426, .03367, 38.02486, 1.67284, 1.27980,
692 + .99749, 1.54018, 1.67689 /
693 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
694 + .06552, .03437, 40.04729, 1.76265, 1.36898,
695 + 1.08875, 1.63085, 1.76682,
696 + .06676, .03506, 42.03480, 1.85263, 1.45869,
697 + 1.18103, 1.72165, 1.85689,
698 + .06794, .03571, 43.90848, 1.93934, 1.54526,
699 + 1.27005, 1.80913, 1.94371,
700 + .06905, .03632, 45.63708, 2.02163, 1.62721,
701 + 1.35392, 1.89214, 2.02610,
702 + .07018, .03695, 47.38909, 2.10617, 1.71177,
703 + 1.44091, 1.97738, 2.11072,
704 + .07128, .03755, 49.05508, 2.18920, 1.79446,
705 + 1.52534, 2.06110, 2.19385,
706 + .07233, .03814, 50.65997, 2.26998, 1.87534,
707 + 1.60843, 2.14253, 2.27472,
708 + .07334, .03869, 52.12246, 2.34596, 1.95106,
709 + 1.68567, 2.21909, 2.35078 /
710 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
711 + .07435, .03925, 53.61056, 2.42406, 2.02921,
712 + 1.76575, 2.29779, 2.42896,
713 + .07534, .03980, 55.04086, 2.50108, 2.10614,
714 + 1.84434, 2.37539, 2.50606,
715 + .07631, .04033, 56.39451, 2.57520, 2.18025,
716 + 1.92007, 2.45007, 2.58027,
717 + .07721, .04083, 57.67489, 2.64628, 2.25146,
718 + 1.99297, 2.52165, 2.65141,
719 + .07813, .04134, 58.92292, 2.71754, 2.32263,
720 + 2.06548, 2.59343, 2.72276 /
721 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
722 + .04435, .02260, .65372, .32986, .00000,
723 + .00000, .18271, .33254,
724 + .04527, .02309, 1.27935, .34900, .00000,
725 + .00000, .20304, .35175,
726 + .04670, .02385, 2.32369, .38121, .02616,
727 + .00000, .23696, .38409,
728 + .04778, .02443, 3.22589, .40749, .05484,
729 + .00000, .26444, .41044,
730 + .04893, .02506, 4.25463, .43806, .08304,
731 + .00000, .29624, .44110,
732 + .04994, .02561, 5.20689, .46670, .10977,
733 + .00000, .32590, .46982,
734 + .05092, .02613, 6.19299, .49601, .13829,
735 + .00000, .35619, .49921,
736 + .05197, .02671, 7.31082, .52919, .17116,
737 + .00000, .39038, .53248 /
738 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
739 + .05289, .02722, 8.31420, .55982, .20080,
740 + .00000, .42185, .56318,
741 + .05378, .02771, 9.32099, .59084, .23109,
742 + .00000, .45368, .59428,
743 + .05450, .02810, 10.15643, .61651, .25669,
744 + .00000, .47998, .62001,
745 + .05603, .02895, 12.02493, .67424, .31362,
746 + .00000, .53902, .67786,
747 + .05739, .02971, 13.55782, .72701, .36554,
748 + .06525, .59289, .73076,
749 + .05894, .03055, 15.39530, .78950, .42739,
750 + .13902, .65659, .79338,
751 + .06056, .03146, 17.35894, .85810, .49541,
752 + .21132, .72640, .86211,
753 + .06204, .03228, 19.17596, .92332, .56022,
754 + .28022, .79270, .92745 /
755 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
756 + .06354, .03311, 21.03869, .99196, .62861,
757 + .35251, .86240, .99622,
758 + .06480, .03381, 22.59100, 1.05083, .68711,
759 + .41351, .92212, 1.05519,
760 + .06632, .03465, 24.47366, 1.12431, .76006,
761 + .48921, .99663, 1.12881,
762 + .06768, .03541, 26.15187, 1.19140, .82693,
763 + .55897, 1.06460, 1.19601,
764 + .06894, .03611, 27.69777, 1.25458, .89006,
765 + .62484, 1.12857, 1.25930,
766 + .07052, .03700, 29.62624, 1.33616, .97116,
767 + .70849, 1.21114, 1.34101,
768 + .07202, .03784, 31.43767, 1.41482, 1.04963,
769 + .78969, 1.29071, 1.41981,
770 + .07344, .03862, 33.13994, 1.49040, 1.12532,
771 + .86835, 1.36713, 1.49551 /
772 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
773 + .07486, .03941, 34.78934, 1.56645, 1.20099,
774 + .94601, 1.44399, 1.57167,
775 + .07625, .04019, 36.40263, 1.64237, 1.27688,
776 + 1.02431, 1.52071, 1.64772,
777 + .07757, .04092, 37.91614, 1.71533, 1.34989,
778 + 1.09962, 1.59441, 1.72080,
779 + .07881, .04160, 39.30491, 1.78435, 1.41877,
780 + 1.17033, 1.66410, 1.78992,
781 + .08007, .04231, 40.70744, 1.85506, 1.48968,
782 + 1.24350, 1.73549, 1.86074,
783 + .08131, .04300, 42.03327, 1.92428, 1.55878,
784 + 1.31425, 1.80536, 1.93007,
785 + .08249, .04366, 43.30667, 1.99148, 1.62623,
786 + 1.38376, 1.87318, 1.99737,
787 + .08360, .04427, 44.46044, 2.05448, 1.68917,
788 + 1.44817, 1.93675, 2.06047 /
789 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
790 + .08473, .04491, 45.63113, 2.11912, 1.75401,
791 + 1.51481, 2.00195, 2.12519,
792 + .08585, .04553, 46.75076, 2.18267, 1.81764,
793 + 1.58001, 2.06606, 2.18885,
794 + .08692, .04612, 47.80650, 2.24370, 1.87882,
795 + 1.64271, 2.12763, 2.24997,
796 + .08793, .04669, 48.80196, 2.30209, 1.93748,
797 + 1.70295, 2.18652, 2.30846,
798 + .08896, .04726, 49.76703, 2.36048, 1.99594,
799 + 1.76270, 2.24540, 2.36693 /
800 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
801 + .04944, .02529, .64242, .31488, .00000,
802 + .00000, .17512, .31777,
803 + .05045, .02584, 1.24884, .33298, .00000,
804 + .00000, .19434, .33597,
805 + .05201, .02669, 2.24909, .36327, .02548,
806 + .00000, .22622, .36637,
807 + .05321, .02734, 3.10610, .38781, .05239,
808 + .00000, .25189, .39101,
809 + .05449, .02804, 4.07541, .41624, .07865,
810 + .00000, .28147, .41955,
811 + .05560, .02865, 4.96625, .44275, .10343,
812 + .00000, .30897, .44617,
813 + .05668, .02924, 5.88337, .46983, .12982,
814 + .00000, .33695, .47333,
815 + .05784, .02988, 6.91713, .50038, .16014,
816 + .00000, .36844, .50398 /
817 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
818 + .05885, .03045, 7.83994, .52849, .18739,
819 + .00000, .39735, .53218,
820 + .05983, .03099, 8.76158, .55691, .21517,
821 + .00000, .42653, .56068,
822 + .06063, .03143, 9.52354, .58037, .23859,
823 + .00000, .45058, .58421,
824 + .06232, .03237, 11.21900, .63298, .29055,
825 + .00000, .50443, .63696,
826 + .06382, .03321, 12.59930, .68088, .33776,
827 + .05871, .55337, .68499,
828 + .06552, .03416, 14.24354, .73741, .39379,
829 + .12577, .61104, .74167,
830 + .06730, .03515, 15.98932, .79922, .45520,
831 + .19122, .67400, .80364,
832 + .06893, .03607, 17.59496, .85778, .51348,
833 + .25335, .73358, .86235 /
834 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
835 + .07058, .03698, 19.23187, .91920, .57478,
836 + .31832, .79601, .92391,
837 + .07196, .03776, 20.58870, .97172, .62706,
838 + .37296, .84934, .97655,
839 + .07363, .03870, 22.22598, 1.03707, .69204,
840 + .44056, .91566, 1.04205,
841 + .07512, .03953, 23.67832, 1.09655, .75142,
842 + .50266, .97597, 1.10166,
843 + .07649, .04029, 25.01025, 1.15241, .80733,
844 + .56116, 1.03258, 1.15764,
845 + .07823, .04127, 26.66302, 1.22431, .87894,
846 + .63520, 1.10543, 1.22970,
847 + .07988, .04219, 28.20787, 1.29342, .94799,
848 + .70683, 1.17541, 1.29896,
849 + .08142, .04306, 29.65332, 1.35963, 1.01443,
850 + .77604, 1.24241, 1.36530 /
851 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
852 + .08296, .04391, 31.04623, 1.42605, 1.08063,
853 + .84415, 1.30959, 1.43185,
854 + .08449, .04476, 32.40317, 1.49217, 1.14686,
855 + .91265, 1.37648, 1.49811,
856 + .08593, .04557, 33.67089, 1.55555, 1.21039,
857 + .97835, 1.44056, 1.56162,
858 + .08728, .04633, 34.82858, 1.61534, 1.27018,
859 + 1.03988, 1.50099, 1.62152,
860 + .08865, .04709, 35.99412, 1.67648, 1.33161,
861 + 1.10342, 1.56276, 1.68278,
862 + .08999, .04784, 37.09023, 1.73614, 1.39129,
863 + 1.16469, 1.62306, 1.74257,
864 + .09128, .04855, 38.14041, 1.79396, 1.44944,
865 + 1.22477, 1.68147, 1.80051,
866 + .09249, .04923, 39.08700, 1.84803, 1.50357,
867 + 1.28029, 1.73608, 1.85468 /
868 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
869 + .09372, .04992, 40.04522, 1.90341, 1.55923,
870 + 1.33764, 1.79200, 1.91016,
871 + .09493, .05059, 40.95741, 1.95771, 1.61373,
872 + 1.39363, 1.84684, 1.96458,
873 + .09608, .05124, 41.81473, 2.00977, 1.66603,
874 + 1.44737, 1.89939, 2.01673,
875 + .09719, .05184, 42.62095, 2.05949, 1.71609,
876 + 1.49891, 1.94959, 2.06655,
877 + .09830, .05246, 43.39875, 2.10909, 1.76587,
878 + 1.54991, 1.99967, 2.11625 /
879 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
880 + .06930, .03606, .62343, .27340, .00000,
881 + .00000, .15474, .27793,
882 + .07066, .03683, 1.17495, .28827, .00000,
883 + .00000, .17055, .29291,
884 + .07276, .03801, 2.04776, .31268, .02349,
885 + .00000, .19632, .31750,
886 + .07437, .03892, 2.77489, .33216, .04527,
887 + .00000, .21677, .33713,
888 + .07610, .03990, 3.57516, .35444, .06600,
889 + .00000, .24004, .35957,
890 + .07760, .04075, 4.29293, .37499, .08536,
891 + .00000, .26142, .38026,
892 + .07905, .04158, 5.01740, .39578, .10582,
893 + .00000, .28300, .40119,
894 + .08062, .04247, 5.81854, .41906, .12911,
895 + .00000, .30709, .42460 /
896 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
897 + .08199, .04325, 6.52033, .44028, .14984,
898 + .00000, .32900, .44595,
899 + .08332, .04401, 7.21027, .46157, .17081,
900 + .00000, .35094, .46736,
901 + .08438, .04462, 7.77364, .47903, .18840,
902 + .00000, .36892, .48493,
903 + .08667, .04592, 9.00559, .51784, .22701,
904 + .00000, .40880, .52395,
905 + .08869, .04707, 9.98316, .55274, .26168,
906 + .04096, .44459, .55904,
907 + .09097, .04837, 11.12161, .59346, .30237,
908 + .09033, .48631, .59997,
909 + .09334, .04972, 12.30386, .63745, .34642,
910 + .13778, .53130, .64418,
911 + .09552, .05096, 13.36855, .67863, .38774,
912 + .18229, .57337, .68556 /
913 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
914 + .09771, .05220, 14.43315, .72136, .43071,
915 + .22832, .61697, .72848,
916 + .09953, .05324, 15.29961, .75750, .46699,
917 + .26662, .65383, .76481,
918 + .10175, .05450, 16.32649, .80201, .51161,
919 + .31351, .69919, .80952,
920 + .10370, .05561, 17.22194, .84211, .55199,
921 + .35617, .74002, .84980,
922 + .10551, .05663, 18.03078, .87944, .58967,
923 + .39599, .77803, .88730,
924 + .10779, .05791, 19.01549, .92697, .63740,
925 + .44584, .82637, .93504,
926 + .10994, .05913, 19.91984, .97217, .68296,
927 + .49360, .87234, .98043,
928 + .11196, .06027, 20.75303, 1.01507, .72639,
929 + .53932, .91595, 1.02353 /
930 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
931 + .11396, .06139, 21.53971, 1.05763, .76919,
932 + .58380, .95919, 1.06627,
933 + .11592, .06250, 22.29504, 1.09964, .81164,
934 + .62817, 1.00186, 1.10846,
935 + .11778, .06354, 22.99003, 1.13954, .85202,
936 + .67038, 1.04239, 1.14853,
937 + .11953, .06451, 23.61337, 1.17684, .88965,
938 + .70951, 1.08025, 1.18598,
939 + .12128, .06551, 24.23417, 1.21470, .92806,
940 + .74968, 1.11870, 1.22401,
941 + .12301, .06647, 24.80623, 1.25129, .96502,
942 + .78802, 1.15584, 1.26075,
943 + .12464, .06738, 25.34955, 1.28654, 1.00082,
944 + .82542, 1.19161, 1.29614,
945 + .12618, .06824, 25.82921, 1.31918, 1.03383,
946 + .85966, 1.22474, 1.32893 /
947 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
948 + .12775, .06911, 26.31068, 1.35242, 1.06759,
949 + .89483, 1.25848, 1.36232,
950 + .12927, .06996, 26.76088, 1.38476, 1.10039,
951 + .92890, 1.29129, 1.39479,
952 + .13074, .07078, 27.17870, 1.41555, 1.13166,
953 + .96140, 1.32252, 1.42571,
954 + .13213, .07154, 27.56750, 1.44477, 1.16141,
955 + .99239, 1.35219, 1.45506,
956 + .13352, .07232, 27.93477, 1.47369, 1.19076,
957 + 1.02280, 1.38153, 1.48411 /
958 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
959 + .09721, .05193, .65544, .23919, .00000,
960 + .00000, .13798, .24613,
961 + .09905, .05300, 1.15535, .25077, .00000,
962 + .00000, .15038, .25789,
963 + .10187, .05465, 1.90921, .26962, .02118,
964 + .00000, .17037, .27701,
965 + .10405, .05592, 2.51677, .28450, .03838,
966 + .00000, .18609, .29210,
967 + .10637, .05727, 3.16448, .30137, .05431,
968 + .00000, .20382, .30921,
969 + .10838, .05844, 3.72915, .31678, .06906,
970 + .00000, .21996, .32481,
971 + .11034, .05958, 4.28592, .33227, .08454,
972 + .00000, .23612, .34049,
973 + .11246, .06080, 4.88790, .34945, .10201,
974 + .00000, .25401, .35789 /
975 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
976 + .11429, .06187, 5.40360, .36499, .11739,
977 + .00000, .27015, .37359,
978 + .11607, .06290, 5.90123, .38044, .13284,
979 + .00000, .28618, .38923,
980 + .11750, .06373, 6.30161, .39306, .14571,
981 + .00000, .29925, .40198,
982 + .12053, .06548, 7.15950, .42079, .17368,
983 + .00000, .32792, .43001,
984 + .12321, .06702, 7.82010, .44539, .19845,
985 + .02663, .35331, .45488,
986 + .12622, .06875, 8.56678, .47373, .22716,
987 + .06210, .38253, .48352,
988 + .12934, .07054, 9.32147, .50392, .25781,
989 + .09561, .41361, .51401,
990 + .13219, .07216, 9.98362, .53182, .28617,
991 + .12662, .44229, .54216 /
992 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
993 + .13505, .07379, 10.62980, .56037, .31530,
994 + .15827, .47165, .57100,
995 + .13742, .07514, 11.14363, .58425, .33959,
996 + .18429, .49615, .59510,
997 + .14027, .07675, 11.73858, .61327, .36911,
998 + .21578, .52594, .62440,
999 + .14280, .07818, 12.24615, .63913, .39551,
1000 + .24411, .55245, .65049,
1001 + .14511, .07948, 12.69566, .66293, .41989,
1002 + .27027, .57685, .67452,
1003 + .14802, .08112, 13.22854, .69284, .45038,
1004 + .30261, .60752, .70470,
1005 + .15075, .08265, 13.70652, .72093, .47914,
1006 + .33324, .63630, .73306,
1007 + .15330, .08408, 14.13794, .74731, .50626,
1008 + .36225, .66332, .75966 /
1009 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
1010 + .15581, .08548, 14.53311, .77311, .53264,
1011 + .39011, .68975, .78569,
1012 + .15828, .08684, 14.90490, .79831, .55853,
1013 + .41763, .71555, .81112,
1014 + .16061, .08813, 15.23940, .82199, .58291,
1015 + .44354, .73981, .83501,
1016 + .16276, .08933, 15.53118, .84386, .60539,
1017 + .46732, .76220, .85708,
1018 + .16495, .09053, 15.81742, .86588, .62814,
1019 + .49153, .78476, .87930,
1020 + .16706, .09169, 16.07237, .88689, .64976,
1021 + .51436, .80628, .90050,
1022 + .16908, .09280, 16.31174, .90698, .67058,
1023 + .53650, .82686, .92078,
1024 + .17096, .09383, 16.51513, .92537, .68954,
1025 + .55653, .84570, .93933 /
1026 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
1027 + .17285, .09487, 16.71682, .94397, .70883,
1028 + .57700, .86475, .95810,
1029 + .17472, .09587, 16.89936, .96187, .72736,
1030 + .59662, .88309, .97616,
1031 + .17648, .09684, 17.06519, .97876, .74489,
1032 + .61520, .90041, .99321,
1033 + .17816, .09774, 17.21664, .99469, .76147,
1034 + .63280, .91673, 1.00928,
1035 + .17982, .09865, 17.35343, 1.01027, .77764,
1036 + .64990, .93270, 1.02500 /
1037 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
1038 + .11845, .06434, .71161, .22133, .00000,
1039 + .00000, .12914, .23022,
1040 + .12065, .06565, 1.18115, .23104, .00000,
1041 + .00000, .13958, .24015,
1042 + .12402, .06765, 1.86661, .24683, .01932,
1043 + .00000, .15647, .25630,
1044 + .12662, .06918, 2.40604, .25929, .03414,
1045 + .00000, .16970, .26900,
1046 + .12937, .07081, 2.96966, .27334, .04760,
1047 + .00000, .18455, .28335,
1048 + .13177, .07222, 3.45168, .28613, .06003,
1049 + .00000, .19802, .29639,
1050 + .13410, .07358, 3.91950, .29893, .07301,
1051 + .00000, .21144, .30942,
1052 + .13660, .07503, 4.41771, .31306, .08760,
1053 + .00000, .22626, .32381 /
1054 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
1055 + .13876, .07630, 4.83817, .32577, .10035,
1056 + .00000, .23953, .33675,
1057 + .14087, .07752, 5.23872, .33837, .11310,
1058 + .00000, .25266, .34955,
1059 + .14255, .07850, 5.55778, .34860, .12368,
1060 + .00000, .26332, .35995,
1061 + .14613, .08056, 6.23202, .37095, .14651,
1062 + .00000, .28656, .38266,
1063 + .14925, .08235, 6.74096, .39060, .16654,
1064 + .01953, .30697, .40262,
1065 + .15275, .08436, 7.30311, .41304, .18956,
1066 + .04838, .33025, .42541,
1067 + .15638, .08642, 7.86018, .43673, .21391,
1068 + .07533, .35479, .44945,
1069 + .15967, .08828, 8.33961, .45840, .23625,
1070 + .10004, .37723, .47145 /
1071 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
1072 + .16296, .09015, 8.79929, .48040, .25900,
1073 + .12507, .39998, .49376,
1074 + .16568, .09167, 9.15853, .49863, .27780,
1075 + .14547, .41883, .51227,
1076 + .16896, .09351, 9.56681, .52062, .30046,
1077 + .16995, .44155, .53456,
1078 + .17184, .09512, 9.90919, .54003, .32058,
1079 + .19181, .46161, .55424,
1080 + .17447, .09658, 10.20778, .55779, .33902,
1081 + .21187, .47994, .57224,
1082 + .17776, .09840, 10.55430, .57987, .36189,
1083 + .23645, .50275, .59464,
1084 + .18083, .10010, 10.85898, .60044, .38328,
1085 + .25955, .52399, .61549,
1086 + .18370, .10168, 11.12914, .61960, .40330,
1087 + .28127, .54378, .63491 /
1088 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
1089 + .18653, .10321, 11.36962, .63816, .42259,
1090 + .30194, .56295, .65373,
1091 + .18927, .10471, 11.59208, .65615, .44141,
1092 + .32224, .58152, .67197,
1093 + .19185, .10611, 11.78835, .67293, .45899,
1094 + .34121, .59885, .68897,
1095 + .19425, .10741, 11.95459, .68827, .47506,
1096 + .35848, .61472, .70453,
1097 + .19666, .10871, 12.11535, .70364, .49126,
1098 + .37600, .63061, .72011,
1099 + .19898, .10996, 12.25316, .71815, .50652,
1100 + .39237, .64563, .73484,
1101 + .20119, .11115, 12.38122, .73197, .52114,
1102 + .40819, .65992, .74885,
1103 + .20325, .11224, 12.48521, .74449, .53434,
1104 + .42238, .67289, .76155 /
1105 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
1106 + .20532, .11335, 12.58715, .75710, .54772,
1107 + .43683, .68594, .77433,
1108 + .20734, .11442, 12.67544, .76914, .56047,
1109 + .45057, .69840, .78652,
1110 + .20925, .11543, 12.75336, .78042, .57248,
1111 + .46353, .71009, .79797,
1112 + .21107, .11639, 12.82286, .79100, .58377,
1113 + .47575, .72107, .80870,
1114 + .21286, .11734, 12.88136, .80124, .59469,
1115 + .48753, .73170, .81910 /
1116 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
1117 + .13624, .07490, .77836, .20927, .00000,
1118 + .00000, .12293, .21984,
1119 + .13874, .07642, 1.22257, .21771, .00000,
1120 + .00000, .13208, .22856,
1121 + .14259, .07872, 1.85832, .23149, .01758,
1122 + .00000, .14689, .24273,
1123 + .14554, .08047, 2.34885, .24233, .03085,
1124 + .00000, .15849, .25391,
1125 + .14865, .08231, 2.85350, .25457, .04274,
1126 + .00000, .17150, .26648,
1127 + .15136, .08390, 3.27882, .26567, .05368,
1128 + .00000, .18323, .27784,
1129 + .15398, .08544, 3.68647, .27673, .06509,
1130 + .00000, .19491, .28918,
1131 + .15680, .08708, 4.11548, .28892, .07783,
1132 + .00000, .20775, .30167 /
1133 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
1134 + .15924, .08848, 4.47327, .29983, .08893,
1135 + .00000, .21922, .31284,
1136 + .16160, .08985, 4.81067, .31060, .09997,
1137 + .00000, .23052, .32385,
1138 + .16347, .09093, 5.07728, .31932, .10911,
1139 + .00000, .23966, .33277,
1140 + .16747, .09323, 5.63456, .33829, .12872,
1141 + .00000, .25950, .35215,
1142 + .17093, .09521, 6.04867, .35483, .14581,
1143 + .01498, .27678, .36903,
1144 + .17482, .09740, 6.49652, .37361, .16531,
1145 + .03972, .29638, .38819,
1146 + .17882, .09966, 6.93309, .39326, .18578,
1147 + .06262, .31688, .40825,
1148 + .18243, .10168, 7.30273, .41112, .20442,
1149 + .08348, .33547, .42646 /
1150 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
1151 + .18605, .10369, 7.65166, .42911, .22328,
1152 + .10446, .35422, .44480,
1153 + .18902, .10534, 7.92008, .44393, .23877,
1154 + .12145, .36964, .45989,
1155 + .19258, .10730, 8.22014, .46167, .25733,
1156 + .14173, .38809, .47796,
1157 + .19571, .10902, 8.46788, .47721, .27368,
1158 + .15971, .40428, .49381,
1159 + .19856, .11058, 8.68079, .49134, .28859,
1160 + .17614, .41899, .50820,
1161 + .20211, .11251, 8.92262, .50879, .30695,
1162 + .19612, .43715, .52597,
1163 + .20542, .11430, 9.13114, .52492, .32400,
1164 + .21477, .45395, .54240,
1165 + .20849, .11595, 9.31284, .53984, .33988,
1166 + .23223, .46949, .55759 /
1167 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
1168 + .21149, .11756, 9.46966, .55418, .35506,
1169 + .24873, .48444, .57219,
1170 + .21442, .11912, 9.61196, .56798, .36978,
1171 + .26483, .49883, .58625,
1172 + .21716, .12057, 9.73460, .58076, .38346,
1173 + .27981, .51218, .59928,
1174 + .21969, .12191, 9.83487, .59237, .39588,
1175 + .29337, .52430, .61111,
1176 + .22223, .12325, 9.93030, .60394, .40834,
1177 + .30705, .53639, .62289,
1178 + .22467, .12453, 10.00786, .61477, .42000,
1179 + .31977, .54771, .63393,
1180 + .22699, .12575, 10.07906, .62505, .43113,
1181 + .33202, .55846, .64439,
1182 + .22914, .12686, 10.13286, .63427, .44111,
1183 + .34293, .56813, .65379 /
1184 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
1185 + .23131, .12798, 10.18474, .64352, .45117,
1186 + .35399, .57782, .66322,
1187 + .23340, .12906, 10.22632, .65226, .46073,
1188 + .36448, .58700, .67214,
1189 + .23538, .13009, 10.26110, .66043, .46966,
1190 + .37430, .59558, .68046,
1191 + .23726, .13104, 10.29067, .66806, .47804,
1192 + .38355, .60360, .68823,
1193 + .23911, .13199, 10.31156, .67536, .48610,
1194 + .39240, .61130, .69569 /
1195 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
1196 + .15177, .08422, .84814, .19985, .00000,
1197 + .00000, .11790, .21186,
1198 + .15455, .08592, 1.27037, .20738, .00000,
1199 + .00000, .12611, .21969,
1200 + .15881, .08847, 1.86615, .21968, .01592,
1201 + .00000, .13941, .23249,
1202 + .16206, .09040, 2.31792, .22938, .02806,
1203 + .00000, .14984, .24255,
1204 + .16550, .09243, 2.77675, .24030, .03882,
1205 + .00000, .16151, .25384,
1206 + .16848, .09417, 3.15866, .25019, .04871,
1207 + .00000, .17203, .26404,
1208 + .17136, .09585, 3.52091, .26003, .05899,
1209 + .00000, .18247, .27418,
1210 + .17444, .09764, 3.89835, .27083, .07044,
1211 + .00000, .19391, .28532 /
1212 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
1213 + .17711, .09918, 4.21003, .28046, .08036,
1214 + .00000, .20410, .29524,
1215 + .17967, .10065, 4.50133, .28994, .09020,
1216 + .00000, .21409, .30498,
1217 + .18173, .10183, 4.72994, .29760, .09832,
1218 + .00000, .22216, .31286,
1219 + .18606, .10429, 5.20339, .31417, .11567,
1220 + .00000, .23960, .32988,
1221 + .18981, .10641, 5.55069, .32854, .13069,
1222 + .01171, .25470, .34462,
1223 + .19399, .10874, 5.91865, .34473, .14773,
1224 + .03356, .27171, .36123,
1225 + .19830, .11113, 6.27197, .36158, .16551,
1226 + .05365, .28940, .37849,
1227 + .20216, .11326, 6.56664, .37678, .18159,
1228 + .07183, .30535, .39407 /
1229 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
1230 + .20602, .11538, 6.84075, .39201, .19778,
1231 + .09003, .32132, .40966,
1232 + .20918, .11711, 7.04833, .40445, .21099,
1233 + .10468, .33438, .42240,
1234 + .21296, .11915, 7.27675, .41926, .22672,
1235 + .12207, .34992, .43757,
1236 + .21626, .12093, 7.46238, .43218, .24053,
1237 + .13743, .36348, .45079,
1238 + .21927, .12254, 7.61951, .44386, .25304,
1239 + .15137, .37573, .46274,
1240 + .22300, .12453, 7.79378, .45816, .26836,
1241 + .16826, .39076, .47739,
1242 + .22646, .12637, 7.94096, .47130, .28251,
1243 + .18393, .40457, .49083,
1244 + .22967, .12806, 8.06683, .48338, .29562,
1245 + .19854, .41727, .50319 /
1246 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
1247 + .23281, .12970, 8.17154, .49490, .30806,
1248 + .21224, .42940, .51497,
1249 + .23583, .13128, 8.26418, .50592, .32008,
1250 + .22558, .44102, .52626,
1251 + .23867, .13275, 8.34142, .51606, .33119,
1252 + .23792, .45171, .53663,
1253 + .24128, .13409, 8.40159, .52522, .34122,
1254 + .24903, .46139, .54601,
1255 + .24389, .13544, 8.45760, .53431, .35125,
1256 + .26022, .47099, .55530,
1257 + .24640, .13671, 8.49921, .54273, .36056,
1258 + .27055, .47991, .56393,
1259 + .24879, .13792, 8.53667, .55069, .36943,
1260 + .28046, .48835, .57208,
1261 + .25097, .13903, 8.56108, .55777, .37732,
1262 + .28925, .49587, .57933 /
1263 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
1264 + .25317, .14014, 8.58379, .56485, .38526,
1265 + .29814, .50340, .58658,
1266 + .25529, .14120, 8.59843, .57150, .39275,
1267 + .30652, .51048, .59339,
1268 + .25730, .14220, 8.60851, .57767, .39974,
1269 + .31435, .51707, .59971,
1270 + .25920, .14314, 8.61542, .58339, .40626,
1271 + .32169, .52320, .60558,
1272 + .26106, .14406, 8.61534, .58883, .41249,
1273 + .32869, .52902, .61117 /
1274 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
1275 + .17858, .10041, .98207, .18567, .00000,
1276 + .00000, .11004, .20035,
1277 + .18187, .10241, 1.36693, .19190, .00000,
1278 + .00000, .11692, .20699,
1279 + .18687, .10541, 1.89872, .20215, .01279,
1280 + .00000, .12815, .21782,
1281 + .19064, .10763, 2.28962, .21024, .02340,
1282 + .00000, .13697, .22635,
1283 + .19462, .10995, 2.67838, .21934, .03264,
1284 + .00000, .14682, .23590,
1285 + .19804, .11193, 2.99546, .22754, .04109,
1286 + .00000, .15564, .24448,
1287 + .20134, .11383, 3.29099, .23565, .04982,
1288 + .00000, .16437, .25296,
1289 + .20485, .11583, 3.59370, .24454, .05950,
1290 + .00000, .17389, .26222 /
1291 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
1292 + .20787, .11755, 3.83938, .25241, .06782,
1293 + .00000, .18231, .27041,
1294 + .21079, .11918, 4.06556, .26010, .07603,
1295 + .00000, .19053, .27841,
1296 + .21311, .12047, 4.24100, .26629, .08277,
1297 + .00000, .19714, .28485,
1298 + .21798, .12318, 4.59850, .27958, .09704,
1299 + .00000, .21130, .29863,
1300 + .22214, .12546, 4.85492, .29095, .10927,
1301 + .00718, .22341, .31042,
1302 + .22676, .12798, 5.11559, .30366, .12300,
1303 + .02513, .23695, .32356,
1304 + .23148, .13052, 5.35892, .31671, .13718,
1305 + .04145, .25085, .33707,
1306 + .23570, .13277, 5.55589, .32835, .14987,
1307 + .05607, .26325, .34910 /
1308 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
1309 + .23990, .13499, 5.73370, .33986, .16251,
1310 + .07057, .27553, .36101,
1311 + .24331, .13678, 5.86388, .34919, .17272,
1312 + .08214, .28548, .37064,
1313 + .24736, .13890, 6.00225, .36015, .18478,
1314 + .09576, .29718, .38196,
1315 + .25089, .14073, 6.11083, .36961, .19525,
1316 + .10767, .30727, .39172,
1317 + .25407, .14237, 6.19951, .37806, .20468,
1318 + .11842, .31633, .40046,
1319 + .25801, .14438, 6.29199, .38831, .21609,
1320 + .13130, .32730, .41102,
1321 + .26164, .14622, 6.36565, .39759, .22653,
1322 + .14315, .33727, .42060,
1323 + .26499, .14790, 6.42519, .40604, .23612,
1324 + .15411, .34636, .42932 /
1325 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
1326 + .26823, .14951, 6.46879, .41396, .24511,
1327 + .16429, .35489, .43749,
1328 + .27135, .15107, 6.50405, .42146, .25372,
1329 + .17413, .36300, .44524,
1330 + .27425, .15249, 6.52970, .42830, .26161,
1331 + .18316, .37040, .45229,
1332 + .27691, .15379, 6.54474, .43436, .26867,
1333 + .19123, .37699, .45855,
1334 + .27957, .15508, 6.55672, .44033, .27567,
1335 + .19928, .38349, .46472,
1336 + .28208, .15628, 6.55882, .44578, .28210,
1337 + .20666, .38944, .47035,
1338 + .28447, .15743, 6.55947, .45090, .28818,
1339 + .21370, .39504, .47562,
1340 + .28665, .15846, 6.55249, .45535, .29354,
1341 + .21989, .39994, .48022 /
1342 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
1343 + .28883, .15949, 6.54430, .45978, .29890,
1344 + .22612, .40481, .48479,
1345 + .29093, .16047, 6.53089, .46386, .30390,
1346 + .23194, .40933, .48901,
1347 + .29290, .16139, 6.51552, .46761, .30853,
1348 + .23735, .41350, .49288,
1349 + .29475, .16225, 6.49930, .47105, .31282,
1350 + .24239, .41734, .49644,
1351 + .29657, .16307, 6.47816, .47425, .31687,
1352 + .24715, .42094, .49975 /
1353 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
1354 + .21207, .12073, 1.16511, .16984, .00000,
1355 + .00000, .10070, .18800,
1356 + .21603, .12311, 1.50237, .17486, .00000,
1357 + .00000, .10639, .19354,
1358 + .22196, .12660, 1.95892, .18321, .00853,
1359 + .00000, .11574, .20263,
1360 + .22637, .12914, 2.28047, .18980, .01773,
1361 + .00000, .12308, .20975,
1362 + .23099, .13177, 2.59232, .19718, .02558,
1363 + .00000, .13123, .21767,
1364 + .23495, .13399, 2.84033, .20378, .03271,
1365 + .00000, .13848, .22471,
1366 + .23874, .13609, 3.06646, .21029, .04002,
1367 + .00000, .14562, .23163,
1368 + .24275, .13830, 3.29318, .21735, .04805,
1369 + .00000, .15334, .23912 /
1370 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
1371 + .24617, .14017, 3.47303, .22355, .05489,
1372 + .00000, .16010, .24568,
1373 + .24943, .14194, 3.63531, .22955, .06158,
1374 + .00000, .16665, .25202,
1375 + .25203, .14333, 3.75928, .23436, .06703,
1376 + .00000, .17189, .25709,
1377 + .25743, .14622, 4.00645, .24456, .07848,
1378 + .00000, .18299, .26782,
1379 + .26201, .14861, 4.17870, .25315, .08814,
1380 + .00291, .19236, .27684,
1381 + .26703, .15121, 4.34155, .26260, .09887,
1382 + .01728, .20267, .28676,
1383 + .27212, .15382, 4.48666, .27215, .10977,
1384 + .03017, .21310, .29676,
1385 + .27663, .15610, 4.59818, .28054, .11941,
1386 + .04158, .22227, .30553 /
1387 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
1388 + .28106, .15831, 4.69343, .28872, .12889,
1389 + .05276, .23124, .31408,
1390 + .28465, .16009, 4.75880, .29523, .13647,
1391 + .06159, .23838, .32088,
1392 + .28887, .16214, 4.82266, .30275, .14528,
1393 + .07186, .24669, .32874,
1394 + .29252, .16391, 4.86848, .30916, .15286,
1395 + .08077, .25375, .33542,
1396 + .29578, .16549, 4.90239, .31481, .15961,
1397 + .08871, .26000, .34131,
1398 + .29979, .16738, 4.93076, .32150, .16767,
1399 + .09814, .26745, .34828,
1400 + .30345, .16909, 4.94798, .32746, .17494,
1401 + .10672, .27411, .35449,
1402 + .30679, .17065, 4.95756, .33280, .18154,
1403 + .11457, .28009, .36005 /
1404 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
1405 + .31000, .17211, 4.95612, .33768, .18765,
1406 + .12178, .28561, .36514,
1407 + .31306, .17350, 4.94991, .34224, .19343,
1408 + .12868, .29079, .36988,
1409 + .31588, .17476, 4.93908, .34629, .19867,
1410 + .13495, .29542, .37411,
1411 + .31844, .17589, 4.92277, .34981, .20329,
1412 + .14050, .29947, .37777,
1413 + .32098, .17700, 4.90460, .35322, .20783,
1414 + .14600, .30341, .38131,
1415 + .32336, .17803, 4.88068, .35624, .21193,
1416 + .15097, .30695, .38445,
1417 + .32561, .17900, 4.85745, .35903, .21579,
1418 + .15569, .31023, .38737,
1419 + .32763, .17985, 4.83058, .36139, .21913,
1420 + .15979, .31303, .38981 /
1421 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
1422 + .32965, .18070, 4.80308, .36370, .22244,
1423 + .16388, .31580, .39221,
1424 + .33157, .18150, 4.77282, .36574, .22549,
1425 + .16768, .31830, .39434,
1426 + .33336, .18222, 4.74265, .36758, .22828,
1427 + .17117, .32055, .39625,
1428 + .33503, .18290, 4.71325, .36924, .23084,
1429 + .17440, .32261, .39797,
1430 + .33664, .18355, 4.68073, .37070, .23321,
1431 + .17741, .32446, .39949 /
1432 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
1433 + .25809, .14836, 1.41197, .15033, .00000,
1434 + .00000, .08863, .17397,
1435 + .26296, .15117, 1.68179, .15427, .00000,
1436 + .00000, .09330, .17855,
1437 + .27012, .15520, 2.04054, .16081, .00256,
1438 + .00000, .10095, .18597,
1439 + .27535, .15804, 2.27607, .16594, .01040,
1440 + .00000, .10688, .19170,
1441 + .28072, .16093, 2.49644, .17161, .01698,
1442 + .00000, .11338, .19794,
1443 + .28528, .16333, 2.66520, .17661, .02284,
1444 + .00000, .11908, .20341,
1445 + .28959, .16559, 2.81413, .18148, .02878,
1446 + .00000, .12462, .20871,
1447 + .29409, .16792, 2.95860, .18670, .03521,
1448 + .00000, .13056, .21436 /
1449 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
1450 + .29792, .16985, 3.06883, .19120, .04060,
1451 + .00000, .13566, .21921,
1452 + .30153, .17166, 3.16491, .19551, .04581,
1453 + .00000, .14057, .22385,
1454 + .30437, .17308, 3.23643, .19892, .05002,
1455 + .00000, .14443, .22751,
1456 + .31024, .17595, 3.37387, .20602, .05870,
1457 + .00000, .15250, .23510,
1458 + .31509, .17828, 3.46472, .21184, .06590,
1459 + -.00115, .15915, .24130,
1460 + .32035, .18075, 3.53574, .21811, .07374,
1461 + .00973, .16631, .24795,
1462 + .32559, .18318, 3.59127, .22428, .08157,
1463 + .01934, .17340, .25447,
1464 + .33017, .18526, 3.62695, .22955, .08835,
1465 + .02770, .17949, .26004 /
1466 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
1467 + .33461, .18724, 3.65088, .23455, .09489,
1468 + .03576, .18530, .26531,
1469 + .33815, .18878, 3.66126, .23843, .10004,
1470 + .04204, .18986, .26938,
1471 + .34225, .19055, 3.66395, .24279, .10593,
1472 + .04924, .19500, .27395,
1473 + .34575, .19202, 3.65963, .24638, .11089,
1474 + .05539, .19928, .27772,
1475 + .34886, .19330, 3.65067, .24948, .11526,
1476 + .06082, .20300, .28095,
1477 + .35257, .19482, 3.63044, .25300, .12037,
1478 + .06716, .20729, .28462,
1479 + .35591, .19616, 3.60618, .25603, .12489,
1480 + .07283, .21103, .28776,
1481 + .35894, .19733, 3.58005, .25865, .12893,
1482 + .07797, .21430, .29048 /
1483 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
1484 + .36176, .19839, 3.54755, .26092, .13258,
1485 + .08261, .21721, .29281,
1486 + .36443, .19937, 3.51365, .26294, .13597,
1487 + .08698, .21986, .29489,
1488 + .36685, .20024, 3.47927, .26465, .13900,
1489 + .09092, .22216, .29666,
1490 + .36899, .20099, 3.44387, .26605, .14161,
1491 + .09434, .22408, .29807,
1492 + .37111, .20172, 3.40787, .26736, .14414,
1493 + .09770, .22591, .29938,
1494 + .37303, .20234, 3.36946, .26837, .14636,
1495 + .10069, .22745, .30042,
1496 + .37483, .20293, 3.33325, .26929, .14843,
1497 + .10350, .22885, .30134,
1498 + .37641, .20340, 3.29667, .26996, .15016,
1499 + .10589, .22997, .30199 /
1500 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
1501 + .37798, .20387, 3.26007, .27058, .15187,
1502 + .10827, .23104, .30260,
1503 + .37943, .20428, 3.22266, .27103, .15338,
1504 + .11043, .23194, .30304,
1505 + .38075, .20466, 3.18670, .27139, .15475,
1506 + .11240, .23270, .30336,
1507 + .38197, .20498, 3.15257, .27166, .15598,
1508 + .11421, .23336, .30360,
1509 + .38311, .20526, 3.11689, .27180, .15708,
1510 + .11586, .23388, .30369 /
1511 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
1512 + .29619, .17083, 1.59616, .13464, .00000,
1513 + .00000, .07869, .16287,
1514 + .30184, .17392, 1.80830, .13803, .00000,
1515 + .00000, .08288, .16696,
1516 + .31004, .17824, 2.08848, .14357, -.00213,
1517 + .00000, .08959, .17343,
1518 + .31584, .18122, 2.25842, .14785, .00489,
1519 + .00000, .09472, .17829,
1520 + .32175, .18420, 2.41171, .15249, .01072,
1521 + .00000, .10024, .18348,
1522 + .32670, .18663, 2.52435, .15649, .01582,
1523 + .00000, .10500, .18793,
1524 + .33133, .18886, 2.62028, .16032, .02092,
1525 + .00000, .10956, .19217,
1526 + .33613, .19114, 2.70980, .16438, .02636,
1527 + .00000, .11437, .19662 /
1528 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
1529 + .34013, .19301, 2.77472, .16783, .03086,
1530 + .00000, .11844, .20036,
1531 + .34389, .19475, 2.82869, .17107, .03518,
1532 + .00000, .12229, .20387,
1533 + .34682, .19607, 2.86750, .17361, .03861,
1534 + .00000, .12531, .20661,
1535 + .35281, .19872, 2.93796, .17880, .04562,
1536 + .00000, .13150, .21219,
1537 + .35764, .20080, 2.98062, .18295, .05133,
1538 + -.00333, .13649, .21658,
1539 + .36280, .20297, 2.99913, .18729, .05745,
1540 + .00540, .14175, .22116,
1541 + .36786, .20503, 3.00525, .19143, .06344,
1542 + .01301, .14684, .22552,
1543 + .37222, .20673, 3.00055, .19485, .06856,
1544 + .01955, .15109, .22910 /
1545 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
1546 + .37638, .20831, 2.98757, .19800, .07342,
1547 + .02577, .15507, .23238,
1548 + .37962, .20953, 2.97069, .20036, .07718,
1549 + .03055, .15811, .23482,
1550 + .38334, .21085, 2.94380, .20293, .08142,
1551 + .03598, .16146, .23744,
1552 + .38644, .21194, 2.91604, .20496, .08495,
1553 + .04057, .16418, .23950,
1554 + .38914, .21284, 2.88776, .20665, .08800,
1555 + .04457, .16647, .24118,
1556 + .39233, .21384, 2.84676, .20843, .09150,
1557 + .04918, .16903, .24297,
1558 + .39513, .21469, 2.80554, .20988, .09456,
1559 + .05327, .17118, .24438,
1560 + .39760, .21541, 2.76544, .21106, .09725,
1561 + .05692, .17300, .24551 /
1562 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
1563 + .39987, .21599, 2.72196, .21195, .09962,
1564 + .06018, .17452, .24633,
1565 + .40194, .21650, 2.67876, .21268, .10179,
1566 + .06321, .17585, .24698,
1567 + .40379, .21692, 2.63707, .21321, .10368,
1568 + .06591, .17695, .24742,
1569 + .40537, .21725, 2.59647, .21353, .10529,
1570 + .06823, .17780, .24764,
1571 + .40688, .21754, 2.55602, .21379, .10682,
1572 + .07049, .17857, .24780,
1573 + .40823, .21774, 2.51484, .21386, .10812,
1574 + .07246, .17913, .24773,
1575 + .40946, .21789, 2.47644, .21388, .10931,
1576 + .07431, .17962, .24765,
1577 + .41048, .21798, 2.43909, .21374, .11029,
1578 + .07586, .17991, .24739 /
1579 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
1580 + .41149, .21805, 2.40207, .21356, .11123,
1581 + .07738, .18017, .24709,
1582 + .41235, .21807, 2.36514, .21328, .11203,
1583 + .07874, .18030, .24668,
1584 + .41313, .21806, 2.33016, .21295, .11273,
1585 + .07997, .18037, .24623,
1586 + .41383, .21802, 2.29731, .21261, .11335,
1587 + .08109, .18040, .24576,
1588 + .41442, .21792, 2.26372, .21215, .11387,
1589 + .08209, .18031, .24517 /
1590 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
1591 + .36036, .20671, 1.79975, .11071, .00000,
1592 + .00000, .06388, .14718,
1593 + .36708, .20994, 1.91973, .11354, .00000,
1594 + .00000, .06758, .15058,
1595 + .37640, .21426, 2.07997, .11790, -.00840,
1596 + .00000, .07325, .15561,
1597 + .38281, .21705, 2.15632, .12107, -.00242,
1598 + .00000, .07735, .15917,
1599 + .38909, .21976, 2.21754, .12437, .00249,
1600 + .00000, .08157, .16276,
1601 + .39422, .22188, 2.25600, .12711, .00665,
1602 + .00000, .08509, .16570,
1603 + .39893, .22375, 2.28414, .12964, .01069,
1604 + .00000, .08835, .16839,
1605 + .40369, .22561, 2.30553, .13221, .01489,
1606 + .00000, .09169, .17110 /
1607 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
1608 + .40758, .22707, 2.31582, .13431, .01829,
1609 + .00000, .09446, .17326,
1610 + .41115, .22835, 2.32029, .13622, .02148,
1611 + .00000, .09698, .17521,
1612 + .41390, .22931, 2.32147, .13765, .02398,
1613 + .00000, .09892, .17668,
1614 + .41929, .23113, 2.31703, .14050, .02897,
1615 + .00000, .10275, .17950,
1616 + .42345, .23242, 2.30743, .14262, .03290,
1617 + -.00524, .10568, .18151,
1618 + .42773, .23362, 2.27265, .14468, .03701,
1619 + .00087, .10865, .18344,
1620 + .43175, .23466, 2.23075, .14649, .04090,
1621 + .00609, .11136, .18506,
1622 + .43504, .23540, 2.18861, .14783, .04414,
1623 + .01048, .11352, .18620 /
1624 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
1625 + .43804, .23597, 2.14327, .14892, .04712,
1626 + .01457, .11541, .18706,
1627 + .44026, .23633, 2.10363, .14964, .04938,
1628 + .01766, .11675, .18756,
1629 + .44264, .23662, 2.05372, .15028, .05184,
1630 + .02109, .11813, .18790,
1631 + .44455, .23675, 2.00892, .15066, .05384,
1632 + .02394, .11916, .18802,
1633 + .44612, .23676, 1.96755, .15088, .05552,
1634 + .02637, .11996, .18800,
1635 + .44777, .23666, 1.91399, .15093, .05739,
1636 + .02914, .12072, .18770,
1637 + .44907, .23645, 1.86391, .15082, .05898,
1638 + .03154, .12125, .18722,
1639 + .45013, .23619, 1.81762, .15061, .06032,
1640 + .03363, .12163, .18666 /
1641 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
1642 + .45093, .23577, 1.77098, .15020, .06145,
1643 + .03546, .12179, .18592,
1644 + .45157, .23532, 1.72623, .14972, .06245,
1645 + .03714, .12186, .18509,
1646 + .45203, .23481, 1.68453, .14916, .06329,
1647 + .03860, .12182, .18420,
1648 + .45229, .23426, 1.64550, .14855, .06397,
1649 + .03983, .12168, .18327,
1650 + .45247, .23367, 1.60733, .14789, .06459,
1651 + .04101, .12148, .18229,
1652 + .45245, .23302, 1.56997, .14713, .06507,
1653 + .04201, .12116, .18121,
1654 + .45241, .23239, 1.53552, .14639, .06550,
1655 + .04293, .12084, .18015,
1656 + .45219, .23172, 1.50308, .14562, .06581,
1657 + .04369, .12044, .17907 /
1658 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
1659 + .45193, .23104, 1.47125, .14484, .06609,
1660 + .04441, .12001, .17796,
1661 + .45158, .23031, 1.44024, .14398, .06630,
1662 + .04505, .11953, .17681,
1663 + .45119, .22957, 1.41128, .14314, .06647,
1664 + .04562, .11904, .17569,
1665 + .45076, .22887, 1.38438, .14233, .06660,
1666 + .04612, .11856, .17461,
1667 + .45021, .22812, 1.35744, .14146, .06666,
1668 + .04654, .11800, .17344 /
1669 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
1670 + .41360, .23414, 1.85033, .09270, .00000,
1671 + .00000, .05327, .13514,
1672 + .42078, .23712, 1.90314, .09520, .00000,
1673 + .00000, .05668, .13782,
1674 + .43045, .24086, 1.97823, .09879, -.01159,
1675 + .00000, .06156, .14158,
1676 + .43673, .24312, 1.99360, .10125, -.00639,
1677 + .00000, .06493, .14403,
1678 + .44281, .24518, 1.99725, .10367, -.00211,
1679 + .00000, .06826, .14636,
1680 + .44760, .24669, 1.99143, .10556, .00141,
1681 + .00000, .07093, .14812,
1682 + .45187, .24795, 1.98055, .10725, .00474,
1683 + .00000, .07334, .14965,
1684 + .45607, .24909, 1.96423, .10888, .00811,
1685 + .00000, .07571, .15108 /
1686 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
1687 + .45938, .24992, 1.94541, .11015, .01081,
1688 + .00000, .07759, .15213,
1689 + .46232, .25059, 1.92440, .11125, .01329,
1690 + .00000, .07926, .15301,
1691 + .46453, .25104, 1.90670, .11206, .01520,
1692 + .00000, .08051, .15362,
1693 + .46870, .25174, 1.86629, .11352, .01894,
1694 + .00000, .08291, .15462,
1695 + .47166, .25202, 1.83264, .11447, .02183,
1696 + -.00558, .08465, .15512,
1697 + .47448, .25209, 1.77624, .11526, .02478,
1698 + -.00109, .08629, .15540,
1699 + .47690, .25192, 1.71666, .11580, .02750,
1700 + .00271, .08766, .15536,
1701 + .47867, .25158, 1.66226, .11606, .02970,
1702 + .00584, .08865, .15507 /
1703 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
1704 + .48010, .25106, 1.60762, .11613, .03169,
1705 + .00871, .08944, .15458,
1706 + .48098, .25051, 1.56250, .11604, .03314,
1707 + .01084, .08992, .15399,
1708 + .48171, .24968, 1.50840, .11575, .03471,
1709 + .01318, .09029, .15314,
1710 + .48210, .24884, 1.46162, .11537, .03596,
1711 + .01510, .09048, .15224,
1712 + .48226, .24799, 1.41970, .11495, .03697,
1713 + .01671, .09058, .15130,
1714 + .48213, .24677, 1.36742, .11424, .03807,
1715 + .01851, .09050, .14996,
1716 + .48175, .24554, 1.31987, .11348, .03897,
1717 + .02005, .09031, .14860,
1718 + .48121, .24433, 1.27683, .11271, .03970,
1719 + .02137, .09003, .14727 /
1720 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
1721 + .48041, .24298, 1.23473, .11181, .04029,
1722 + .02251, .08964, .14580,
1723 + .47947, .24161, 1.19499, .11088, .04079,
1724 + .02354, .08919, .14433,
1725 + .47846, .24026, 1.15861, .10994, .04119,
1726 + .02441, .08870, .14290,
1727 + .47731, .23892, 1.12520, .10901, .04148,
1728 + .02513, .08816, .14148,
1729 + .47609, .23757, 1.09284, .10806, .04175,
1730 + .02582, .08761, .14006,
1731 + .47471, .23616, 1.06177, .10706, .04192,
1732 + .02639, .08698, .13858,
1733 + .47336, .23482, 1.03328, .10612, .04206,
1734 + .02691, .08639, .13720,
1735 + .47192, .23349, 1.00694, .10516, .04213,
1736 + .02731, .08577, .13583 /
1737 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
1738 + .47046, .23216, .98125, .10421, .04219,
1739 + .02771, .08515, .13446,
1740 + .46890, .23080, .95652, .10324, .04219,
1741 + .02803, .08449, .13307,
1742 + .46735, .22948, .93361, .10231, .04218,
1743 + .02832, .08385, .13175,
1744 + .46585, .22822, .91250, .10142, .04215,
1745 + .02857, .08323, .13049,
1746 + .46423, .22691, .89158, .10049, .04208,
1747 + .02877, .08257, .12919 /
1748 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
1749 + .45939, .25569, 1.80046, .07893, .00000,
1750 + .00000, .04560, .12494,
1751 + .46663, .25810, 1.80562, .08111, .00000,
1752 + .00000, .04863, .12691,
1753 + .47589, .26091, 1.82124, .08402, -.01276,
1754 + .00000, .05278, .12936,
1755 + .48167, .26240, 1.79756, .08590, -.00824,
1756 + .00000, .05548, .13082,
1757 + .48699, .26356, 1.76599, .08761, -.00452,
1758 + .00000, .05807, .13202,
1759 + .49102, .26428, 1.73409, .08888, -.00153,
1760 + .00000, .06005, .13282,
1761 + .49445, .26477, 1.70119, .08995, .00123,
1762 + .00000, .06178, .13340,
1763 + .49768, .26509, 1.66443, .09093, .00399,
1764 + .00000, .06342, .13382 /
1765 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
1766 + .50008, .26518, 1.63052, .09164, .00617,
1767 + .00000, .06468, .13399,
1768 + .50210, .26511, 1.59687, .09218, .00814,
1769 + .00000, .06577, .13405,
1770 + .50356, .26499, 1.57018, .09255, .00963,
1771 + .00000, .06655, .13403,
1772 + .50603, .26445, 1.51345, .09311, .01253,
1773 + .00000, .06795, .13375,
1774 + .50743, .26367, 1.46970, .09335, .01471,
1775 + -.00530, .06886, .13322,
1776 + .50844, .26256, 1.40655, .09340, .01689,
1777 + -.00191, .06965, .13238,
1778 + .50895, .26116, 1.34284, .09321, .01886,
1779 + .00093, .07022, .13130,
1780 + .50896, .25970, 1.28685, .09286, .02042,
1781 + .00323, .07052, .13014 /
1782 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
1783 + .50857, .25810, 1.23233, .09237, .02182,
1784 + .00532, .07065, .12882,
1785 + .50794, .25666, 1.18854, .09185, .02282,
1786 + .00685, .07063, .12763,
1787 + .50683, .25477, 1.13730, .09111, .02386,
1788 + .00852, .07047, .12607,
1789 + .50560, .25300, 1.09389, .09038, .02467,
1790 + .00986, .07023, .12460,
1791 + .50429, .25134, 1.05564, .08963, .02532,
1792 + .01098, .06993, .12321,
1793 + .50225, .24911, 1.00888, .08861, .02600,
1794 + .01221, .06945, .12136,
1795 + .50012, .24692, .96705, .08758, .02654,
1796 + .01324, .06892, .11958,
1797 + .49800, .24482, .92971, .08656, .02698,
1798 + .01413, .06836, .11788 /
1799 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
1800 + .49558, .24264, .89378, .08550, .02730,
1801 + .01488, .06772, .11614,
1802 + .49309, .24048, .86026, .08442, .02756,
1803 + .01554, .06706, .11440,
1804 + .49061, .23839, .82990, .08339, .02775,
1805 + .01610, .06641, .11275,
1806 + .48811, .23639, .80236, .08238, .02787,
1807 + .01655, .06575, .11117,
1808 + .48555, .23438, .77586, .08136, .02797,
1809 + .01698, .06507, .10959,
1810 + .48285, .23234, .75071, .08034, .02802,
1811 + .01733, .06437, .10802,
1812 + .48028, .23041, .72780, .07936, .02805,
1813 + .01764, .06371, .10654,
1814 + .47771, .22854, .70682, .07842, .02803,
1815 + .01788, .06304, .10511 /
1816 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
1817 + .47511, .22667, .68645, .07748, .02801,
1818 + .01811, .06237, .10370,
1819 + .47244, .22480, .66701, .07654, .02794,
1820 + .01829, .06170, .10230,
1821 + .46985, .22301, .64910, .07565, .02788,
1822 + .01844, .06104, .10096,
1823 + .46737, .22132, .63266, .07479, .02780,
1824 + .01858, .06043, .09972,
1825 + .46479, .21955, .61651, .07391, .02770,
1826 + .01867, .05978, .09845 /
1827 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
1828 + .50783, .27546, 1.65703, .06573, .00000,
1829 + .00000, .03842, .11288,
1830 + .51430, .27689, 1.62392, .06751, .00000,
1831 + .00000, .04095, .11387,
1832 + .52207, .27807, 1.59187, .06967, -.01256,
1833 + .00000, .04419, .11483,
1834 + .52645, .27838, 1.54037, .07097, -.00880,
1835 + .00000, .04620, .11515,
1836 + .53020, .27826, 1.48495, .07204, -.00569,
1837 + .00000, .04800, .11523,
1838 + .53276, .27786, 1.43643, .07275, -.00326,
1839 + .00000, .04932, .11507,
1840 + .53471, .27726, 1.39032, .07327, -.00107,
1841 + .00000, .05040, .11476,
1842 + .53632, .27644, 1.34206, .07368, .00109,
1843 + .00000, .05140, .11427 /
1844 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
1845 + .53727, .27552, 1.30044, .07387, .00277,
1846 + .00000, .05211, .11373,
1847 + .53785, .27453, 1.26093, .07398, .00426,
1848 + .00000, .05267, .11309,
1849 + .53813, .27368, 1.23044, .07400, .00539,
1850 + .00000, .05305, .11253,
1851 + .53810, .27157, 1.16783, .07389, .00752,
1852 + .00000, .05364, .11118,
1853 + .53728, .26947, 1.12111, .07359, .00910,
1854 + -.00455, .05394, .10985,
1855 + .53582, .26691, 1.05931, .07309, .01063,
1856 + -.00213, .05408, .10822,
1857 + .53373, .26406, .99892, .07240, .01200,
1858 + -.00011, .05403, .10640,
1859 + .53138, .26136, .94730, .07166, .01306,
1860 + .00150, .05383, .10463 /
1861 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
1862 + .52863, .25853, .89818, .07084, .01398,
1863 + .00294, .05352, .10275,
1864 + .52609, .25607, .85954, .07009, .01463,
1865 + .00399, .05320, .10117,
1866 + .52267, .25299, .81523, .06908, .01530,
1867 + .00511, .05269, .09922,
1868 + .51943, .25023, .77827, .06815, .01581,
1869 + .00601, .05220, .09747,
1870 + .51630, .24767, .74617, .06728, .01619,
1871 + .00673, .05170, .09586,
1872 + .51203, .24435, .70758, .06611, .01660,
1873 + .00753, .05099, .09379,
1874 + .50784, .24118, .67355, .06499, .01690,
1875 + .00820, .05029, .09183,
1876 + .50379, .23820, .64354, .06392, .01712,
1877 + .00875, .04960, .09003 /
1878 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
1879 + .49950, .23517, .61505, .06283, .01728,
1880 + .00922, .04889, .08817,
1881 + .49523, .23221, .58875, .06176, .01740,
1882 + .00963, .04817, .08640,
1883 + .49110, .22941, .56517, .06073, .01748,
1884 + .00996, .04747, .08474,
1885 + .48707, .22675, .54400, .05977, .01751,
1886 + .01023, .04680, .08317,
1887 + .48303, .22409, .52377, .05881, .01753,
1888 + .01048, .04612, .08162,
1889 + .47892, .22142, .50476, .05785, .01751,
1890 + .01068, .04543, .08012,
1891 + .47505, .21891, .48753, .05695, .01749,
1892 + .01085, .04478, .07872,
1893 + .47123, .21654, .47189, .05609, .01744,
1894 + .01098, .04415, .07738 /
1895 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
1896 + .46739, .21417, .45675, .05524, .01739,
1897 + .01110, .04354, .07605,
1898 + .46356, .21183, .44241, .05439, .01731,
1899 + .01120, .04293, .07476,
1900 + .45990, .20959, .42928, .05360, .01723,
1901 + .01127, .04234, .07352,
1902 + .45640, .20749, .41727, .05285, .01715,
1903 + .01134, .04179, .07239,
1904 + .45278, .20535, .40556, .05211, .01705,
1905 + .01138, .04122, .07122 /
1906 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
1907 + .54817, .28901, 1.46660, .05581, .00000,
1908 + .00000, .03303, .10115,
1909 + .55323, .28911, 1.41242, .05711, .00000,
1910 + .00000, .03504, .10126,
1911 + .55861, .28843, 1.35395, .05859, -.01138,
1912 + .00000, .03747, .10093,
1913 + .56110, .28736, 1.29011, .05933, -.00829,
1914 + .00000, .03885, .10044,
1915 + .56281, .28580, 1.22529, .05986, -.00575,
1916 + .00000, .04006, .09966,
1917 + .56349, .28423, 1.17132, .06013, -.00379,
1918 + .00000, .04086, .09878,
1919 + .56363, .28252, 1.12162, .06026, -.00206,
1920 + .00000, .04148, .09783,
1921 + .56329, .28053, 1.07111, .06026, -.00038,
1922 + .00000, .04198, .09673 /
1923 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
1924 + .56254, .27864, 1.02882, .06015, .00092,
1925 + .00000, .04230, .09569,
1926 + .56149, .27670, .98959, .05996, .00205,
1927 + .00000, .04250, .09462,
1928 + .56049, .27510, .95972, .05976, .00290,
1929 + .00000, .04262, .09376,
1930 + .55766, .27154, .89969, .05923, .00448,
1931 + .00000, .04271, .09180,
1932 + .55448, .26821, .85556, .05861, .00563,
1933 + -.00373, .04261, .09003,
1934 + .55041, .26436, .80013, .05781, .00674,
1935 + -.00197, .04237, .08799,
1936 + .54566, .26022, .74700, .05689, .00771,
1937 + -.00052, .04198, .08579,
1938 + .54097, .25638, .70244, .05597, .00845,
1939 + .00062, .04155, .08378 /
1940 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
1941 + .53592, .25245, .66071, .05500, .00907,
1942 + .00162, .04104, .08173,
1943 + .53148, .24917, .62834, .05415, .00951,
1944 + .00235, .04054, .08005,
1945 + .52589, .24511, .59170, .05307, .00995,
1946 + .00313, .03990, .07800,
1947 + .52077, .24151, .56154, .05209, .01027,
1948 + .00373, .03930, .07620,
1949 + .51594, .23823, .53555, .05120, .01052,
1950 + .00422, .03874, .07458,
1951 + .50958, .23402, .50470, .05006, .01076,
1952 + .00475, .03799, .07251,
1953 + .50349, .23009, .47779, .04897, .01094,
1954 + .00520, .03726, .07060,
1955 + .49775, .22641, .45427, .04795, .01107,
1956 + .00556, .03658, .06885 /
1957 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
1958 + .49181, .22275, .43218, .04692, .01115,
1959 + .00586, .03587, .06713,
1960 + .48597, .21918, .41192, .04595, .01121,
1961 + .00612, .03517, .06547,
1962 + .48040, .21585, .39385, .04503, .01123,
1963 + .00633, .03453, .06391,
1964 + .47508, .21269, .37778, .04417, .01124,
1965 + .00650, .03391, .06248,
1966 + .46978, .20957, .36250, .04331, .01123,
1967 + .00665, .03329, .06107,
1968 + .46444, .20649, .34823, .04245, .01120,
1969 + .00677, .03267, .05972,
1970 + .45943, .20363, .33532, .04167, .01116,
1971 + .00687, .03209, .05846,
1972 + .45461, .20090, .32370, .04093, .01111,
1973 + .00695, .03155, .05728 /
1974 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
1975 + .44981, .19819, .31252, .04020, .01106,
1976 + .00702, .03102, .05610,
1977 + .44502, .19553, .30197, .03948, .01099,
1978 + .00707, .03049, .05496,
1979 + .44047, .19302, .29232, .03880, .01092,
1980 + .00711, .02998, .05391,
1981 + .43618, .19065, .28355, .03817, .01085,
1982 + .00714, .02950, .05292,
1983 + .43180, .18826, .27504, .03751, .01077,
1984 + .00716, .02903, .05195 /
1985 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
1986 + .58112, .29709, 1.26025, .04808, .00000,
1987 + .00000, .02876, .08961,
1988 + .58411, .29587, 1.19698, .04898, .00000,
1989 + .00000, .03021, .08890,
1990 + .58635, .29324, 1.12665, .04985, -.00979,
1991 + .00000, .03184, .08759,
1992 + .58655, .29078, 1.06021, .05018, -.00731,
1993 + .00000, .03276, .08637,
1994 + .58573, .28785, .99486, .05030, -.00526,
1995 + .00000, .03342, .08496,
1996 + .58430, .28511, .94184, .05023, -.00370,
1997 + .00000, .03383, .08363,
1998 + .58242, .28231, .89400, .05006, -.00235,
1999 + .00000, .03408, .08231,
2000 + .57996, .27921, .84619, .04978, -.00104,
2001 + .00000, .03424, .08085 /
2002 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
2003 + .57739, .27640, .80694, .04944, -.00005,
2004 + .00000, .03428, .07953,
2005 + .57457, .27361, .77106, .04907, .00082,
2006 + .00000, .03424, .07823,
2007 + .57220, .27137, .74401, .04874, .00145,
2008 + .00000, .03419, .07718,
2009 + .56655, .26644, .69030, .04796, .00263,
2010 + .00000, .03393, .07495,
2011 + .56098, .26205, .65136, .04720, .00348,
2012 + -.00298, .03362, .07297,
2013 + .55436, .25705, .60399, .04624, .00428,
2014 + -.00170, .03317, .07079,
2015 + .54704, .25182, .55927, .04522, .00498,
2016 + -.00065, .03263, .06852,
2017 + .54010, .24706, .52226, .04424, .00551,
2018 + .00017, .03208, .06648 /
2019 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
2020 + .53291, .24223, .48804, .04321, .00594,
2021 + .00089, .03146, .06446,
2022 + .52679, .23822, .46180, .04233, .00624,
2023 + .00139, .03094, .06284,
2024 + .51912, .23341, .43233, .04129, .00654,
2025 + .00193, .03028, .06086,
2026 + .51227, .22918, .40828, .04038, .00676,
2027 + .00235, .02968, .05914,
2028 + .50595, .22534, .38771, .03954, .00692,
2029 + .00270, .02912, .05760,
2030 + .49778, .22048, .36358, .03845, .00708,
2031 + .00306, .02840, .05570,
2032 + .49005, .21598, .34266, .03746, .00719,
2033 + .00336, .02771, .05396,
2034 + .48282, .21184, .32445, .03656, .00726,
2035 + .00360, .02707, .05238 /
2036 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
2037 + .47551, .20768, .30754, .03562, .00731,
2038 + .00380, .02644, .05084,
2039 + .46839, .20370, .29209, .03474, .00733,
2040 + .00397, .02582, .04938,
2041 + .46165, .19998, .27840, .03393, .00734,
2042 + .00411, .02525, .04801,
2043 + .45529, .19651, .26630, .03316, .00734,
2044 + .00422, .02471, .04676,
2045 + .44899, .19309, .25483, .03241, .00732,
2046 + .00431, .02417, .04555,
2047 + .44270, .18974, .24417, .03168, .00729,
2048 + .00439, .02365, .04438,
2049 + .43683, .18663, .23457, .03101, .00725,
2050 + .00445, .02317, .04331,
2051 + .43122, .18369, .22596, .03038, .00721,
2052 + .00450, .02270, .04231 /
2053 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
2054 + .42566, .18077, .21769, .02976, .00717,
2055 + .00454, .02226, .04133,
2056 + .42018, .17793, .20993, .02915, .00711,
2057 + .00456, .02182, .04037,
2058 + .41498, .17525, .20286, .02857, .00706,
2059 + .00459, .02141, .03948,
2060 + .41010, .17274, .19644, .02804, .00701,
2061 + .00461, .02102, .03866,
2062 + .40514, .17022, .19022, .02751, .00694,
2063 + .00461, .02063, .03785 /
2064 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
2065 + .60682, .30064, 1.05689, .04197, .00000,
2066 + .00000, .02509, .07811,
2067 + .60732, .29802, .99231, .04247, .00000,
2068 + .00000, .02606, .07683,
2069 + .60600, .29333, .91976, .04274, -.00813,
2070 + .00000, .02706, .07480,
2071 + .60359, .28952, .85652, .04271, -.00616,
2072 + .00000, .02755, .07321,
2073 + .60011, .28525, .79549, .04249, -.00454,
2074 + .00000, .02784, .07147,
2075 + .59642, .28139, .74699, .04216, -.00332,
2076 + .00000, .02794, .06990,
2077 + .59242, .27759, .70373, .04180, -.00227,
2078 + .00000, .02797, .06835,
2079 + .58773, .27346, .66116, .04133, -.00127,
2080 + .00000, .02790, .06670 /
2081 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
2082 + .58332, .26979, .62664, .04084, -.00052,
2083 + .00000, .02777, .06527,
2084 + .57877, .26622, .59542, .04034, .00014,
2085 + .00000, .02759, .06390,
2086 + .57503, .26340, .57206, .03992, .00061,
2087 + .00000, .02741, .06282,
2088 + .56657, .25732, .52618, .03899, .00150,
2089 + .00000, .02701, .06049,
2090 + .55875, .25200, .49319, .03811, .00213,
2091 + -.00233, .02657, .05855,
2092 + .54970, .24606, .45404, .03713, .00272,
2093 + -.00140, .02603, .05641,
2094 + .54000, .23993, .41751, .03607, .00322,
2095 + -.00064, .02541, .05422,
2096 + .53103, .23441, .38759, .03509, .00359,
2097 + -.00006, .02482, .05231 /
2098 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
2099 + .52187, .22890, .36015, .03411, .00390,
2100 + .00046, .02423, .05042,
2101 + .51416, .22439, .33929, .03329, .00412,
2102 + .00083, .02371, .04891,
2103 + .50477, .21897, .31610, .03230, .00432,
2104 + .00120, .02307, .04712,
2105 + .49645, .21428, .29730, .03144, .00447,
2106 + .00150, .02250, .04559,
2107 + .48883, .21005, .28136, .03068, .00457,
2108 + .00173, .02199, .04420,
2109 + .47915, .20471, .26267, .02969, .00468,
2110 + .00199, .02133, .04254,
2111 + .47007, .19981, .24663, .02879, .00476,
2112 + .00220, .02073, .04104,
2113 + .46165, .19534, .23278, .02798, .00480,
2114 + .00235, .02017, .03966 /
2115 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
2116 + .45323, .19089, .21992, .02717, .00483,
2117 + .00249, .01962, .03834,
2118 + .44508, .18666, .20826, .02640, .00484,
2119 + .00261, .01909, .03708,
2120 + .43745, .18272, .19799, .02569, .00484,
2121 + .00270, .01861, .03591,
2122 + .43027, .17907, .18894, .02504, .00483,
2123 + .00277, .01814, .03487,
2124 + .42319, .17546, .18036, .02441, .00481,
2125 + .00283, .01769, .03386,
2126 + .41621, .17197, .17246, .02378, .00479,
2127 + .00289, .01726, .03289,
2128 + .40971, .16875, .16537, .02321, .00476,
2129 + .00292, .01685, .03199,
2130 + .40354, .16571, .15902, .02268, .00473,
2131 + .00295, .01648, .03117 /
2132 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
2133 + .39743, .16272, .15294, .02217, .00469,
2134 + .00297, .01610, .03035,
2135 + .39143, .15981, .14725, .02165, .00466,
2136 + .00300, .01574, .02958,
2137 + .38580, .15707, .14207, .02117, .00461,
2138 + .00300, .01540, .02888,
2139 + .38051, .15452, .13738, .02072, .00457,
2140 + .00301, .01509, .02821,
2141 + .37518, .15196, .13285, .02029, .00453,
2142 + .00301, .01478, .02755 /
2143 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
2144 + .62563, .30006, .86708, .03683, .00000,
2145 + .00000, .02185, .06706,
2146 + .62348, .29592, .80613, .03684, .00000,
2147 + .00000, .02244, .06549,
2148 + .61823, .28928, .73734, .03663, -.00658,
2149 + .00000, .02295, .06303,
2150 + .61302, .28423, .68042, .03635, -.00505,
2151 + .00000, .02312, .06122,
2152 + .60679, .27864, .62642, .03587, -.00378,
2153 + .00000, .02314, .05929,
2154 + .60076, .27380, .58404, .03538, -.00284,
2155 + .00000, .02306, .05763,
2156 + .59461, .26911, .54672, .03485, -.00202,
2157 + .00000, .02291, .05602,
2158 + .58775, .26410, .51030, .03423, -.00126,
2159 + .00000, .02271, .05435 /
2160 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
2161 + .58146, .25975, .48113, .03367, -.00069,
2162 + .00000, .02246, .05293,
2163 + .57522, .25553, .45493, .03311, -.00020,
2164 + .00000, .02221, .05156,
2165 + .57019, .25221, .43547, .03265, .00015,
2166 + .00000, .02199, .05052,
2167 + .55910, .24515, .39764, .03167, .00081,
2168 + .00000, .02144, .04831,
2169 + .54919, .23909, .37044, .03079, .00127,
2170 + -.00181, .02096, .04647,
2171 + .53793, .23241, .33888, .02979, .00170,
2172 + -.00113, .02041, .04450,
2173 + .52609, .22559, .30973, .02876, .00207,
2174 + -.00057, .01979, .04250,
2175 + .51531, .21952, .28608, .02784, .00234,
2176 + -.00015, .01922, .04078 /
2177 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
2178 + .50447, .21352, .26460, .02690, .00256,
2179 + .00021, .01864, .03911,
2180 + .49544, .20867, .24836, .02616, .00271,
2181 + .00048, .01816, .03774,
2182 + .48455, .20284, .23038, .02525, .00286,
2183 + .00074, .01757, .03620,
2184 + .47502, .19783, .21590, .02448, .00297,
2185 + .00096, .01708, .03487,
2186 + .46636, .19334, .20368, .02381, .00304,
2187 + .00112, .01664, .03368,
2188 + .45540, .18777, .18950, .02295, .00311,
2189 + .00130, .01605, .03225,
2190 + .44526, .18265, .17734, .02217, .00316,
2191 + .00144, .01553, .03098,
2192 + .43595, .17798, .16689, .02145, .00319,
2193 + .00155, .01506, .02981 /
2194 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
2195 + .42667, .17338, .15729, .02075, .00320,
2196 + .00165, .01459, .02871,
2197 + .41777, .16901, .14858, .02009, .00321,
2198 + .00173, .01415, .02768,
2199 + .40947, .16499, .14092, .01949, .00321,
2200 + .00179, .01374, .02673,
2201 + .40172, .16127, .13420, .01894, .00320,
2202 + .00184, .01335, .02588,
2203 + .39410, .15763, .12788, .01839, .00319,
2204 + .00188, .01298, .02507,
2205 + .38664, .15412, .12204, .01789, .00317,
2206 + .00192, .01263, .02426,
2207 + .37970, .15086, .11683, .01741, .00315,
2208 + .00194, .01232, .02353,
2209 + .37317, .14782, .11218, .01696, .00313,
2210 + .00196, .01200, .02285 /
2211 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
2212 + .36673, .14483, .10772, .01652, .00310,
2213 + .00198, .01170, .02221,
2214 + .36043, .14194, .10355, .01613, .00307,
2215 + .00199, .01141, .02158,
2216 + .35450, .13924, .09978, .01575, .00304,
2217 + .00199, .01115, .02098,
2218 + .34896, .13672, .09637, .01541, .00302,
2219 + .00199, .01091, .02043,
2220 + .34342, .13421, .09307, .01505, .00298,
2221 + .00199, .01065, .01992 /
2222 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
2223 + .63796, .29564, .69626, .03204, .00000,
2224 + .00000, .01904, .05684,
2225 + .63280, .29019, .64176, .03186, .00000,
2226 + .00000, .01929, .05502,
2227 + .62332, .28184, .58016, .03136, -.00523,
2228 + .00000, .01936, .05238,
2229 + .61530, .27566, .53123, .03086, -.00405,
2230 + .00000, .01930, .05046,
2231 + .60622, .26903, .48521, .03023, -.00306,
2232 + .00000, .01914, .04850,
2233 + .59789, .26334, .44961, .02964, -.00235,
2234 + .00000, .01890, .04684,
2235 + .58965, .25788, .41850, .02904, -.00172,
2236 + .00000, .01865, .04529,
2237 + .58069, .25215, .38840, .02838, -.00115,
2238 + .00000, .01834, .04369 /
2239 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
2240 + .57268, .24719, .36444, .02779, -.00072,
2241 + .00000, .01805, .04234,
2242 + .56483, .24245, .34317, .02720, -.00036,
2243 + .00000, .01773, .04106,
2244 + .55860, .23877, .32741, .02676, -.00008,
2245 + .00000, .01746, .04008,
2246 + .54511, .23100, .29697, .02577, .00041,
2247 + .00000, .01693, .03803,
2248 + .53333, .22435, .27527, .02490, .00074,
2249 + -.00139, .01644, .03642,
2250 + .52013, .21715, .25041, .02397, .00107,
2251 + -.00089, .01586, .03465,
2252 + .50644, .20985, .22764, .02301, .00133,
2253 + -.00049, .01530, .03291,
2254 + .49414, .20342, .20931, .02216, .00152,
2255 + -.00019, .01478, .03140 /
2256 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
2257 + .48187, .19712, .19274, .02133, .00169,
2258 + .00008, .01426, .02995,
2259 + .47181, .19200, .18030, .02066, .00179,
2260 + .00027, .01384, .02881,
2261 + .45975, .18597, .16664, .01984, .00189,
2262 + .00046, .01333, .02748,
2263 + .44927, .18080, .15568, .01914, .00197,
2264 + .00061, .01289, .02637,
2265 + .43983, .17617, .14648, .01853, .00203,
2266 + .00073, .01249, .02541,
2267 + .42796, .17046, .13585, .01777, .00208,
2268 + .00085, .01201, .02423,
2269 + .41706, .16527, .12676, .01712, .00211,
2270 + .00095, .01157, .02317,
2271 + .40706, .16057, .11900, .01653, .00213,
2272 + .00104, .01117, .02222 /
2273 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
2274 + .39722, .15596, .11188, .01594, .00214,
2275 + .00110, .01080, .02129,
2276 + .38783, .15159, .10546, .01538, .00215,
2277 + .00115, .01045, .02044,
2278 + .37912, .14757, .09986, .01486, .00214,
2279 + .00119, .01011, .01967,
2280 + .37102, .14390, .09493, .01440, .00214,
2281 + .00123, .00979, .01899,
2282 + .36307, .14030, .09031, .01395, .00212,
2283 + .00125, .00948, .01835,
2284 + .35532, .13686, .08605, .01351, .00212,
2285 + .00128, .00921, .01770,
2286 + .34816, .13369, .08224, .01312, .00210,
2287 + .00130, .00894, .01713,
2288 + .34147, .13071, .07886, .01276, .00208,
2289 + .00131, .00870, .01661 /
2290 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
2291 + .33488, .12779, .07564, .01240, .00207,
2292 + .00132, .00847, .01610,
2293 + .32845, .12496, .07263, .01206, .00204,
2294 + .00132, .00824, .01561,
2295 + .32243, .12233, .06991, .01175, .00202,
2296 + .00132, .00802, .01516,
2297 + .31681, .11991, .06744, .01147, .00201,
2298 + .00133, .00783, .01474,
2299 + .31118, .11747, .06508, .01118, .00199,
2300 + .00133, .00763, .01434 /
2301 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
2302 + .64286, .28898, .54704, .02865, .00000,
2303 + .00000, .01593, .04680,
2304 + .63473, .28228, .50026, .02815, .00000,
2305 + .00000, .01594, .04503,
2306 + .62127, .27227, .44742, .02728, -.00410,
2307 + .00000, .01586, .04243,
2308 + .61064, .26496, .40659, .02653, -.00319,
2309 + .00000, .01567, .04071,
2310 + .59888, .25742, .36870, .02576, -.00244,
2311 + .00000, .01541, .03887,
2312 + .58850, .25090, .33963, .02505, -.00188,
2313 + .00000, .01513, .03738,
2314 + .57834, .24482, .31443, .02438, -.00141,
2315 + .00000, .01484, .03598,
2316 + .56744, .23849, .29024, .02369, -.00099,
2317 + .00000, .01450, .03453 /
2318 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
2319 + .55794, .23305, .27121, .02306, -.00067,
2320 + .00000, .01422, .03327,
2321 + .54872, .22789, .25430, .02247, -.00039,
2322 + .00000, .01393, .03214,
2323 + .54144, .22386, .24187, .02199, -.00019,
2324 + .00000, .01369, .03129,
2325 + .52586, .21550, .21803, .02102, .00017,
2326 + .00000, .01317, .02956,
2327 + .51244, .20852, .20119, .02021, .00042,
2328 + -.00105, .01272, .02812,
2329 + .49766, .20095, .18208, .01931, .00065,
2330 + -.00070, .01223, .02660,
2331 + .48253, .19334, .16465, .01842, .00085,
2332 + -.00040, .01171, .02513,
2333 + .46903, .18670, .15075, .01765, .00099,
2334 + -.00018, .01124, .02386 /
2335 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
2336 + .45566, .18023, .13829, .01692, .00111,
2337 + .00001, .01080, .02264,
2338 + .44481, .17501, .12897, .01628, .00118,
2339 + .00015, .01046, .02169,
2340 + .43189, .16888, .11876, .01556, .00126,
2341 + .00029, .01002, .02063,
2342 + .42071, .16365, .11063, .01497, .00132,
2343 + .00039, .00965, .01973,
2344 + .41067, .15905, .10384, .01446, .00135,
2345 + .00047, .00933, .01892,
2346 + .39821, .15335, .09602, .01382, .00139,
2347 + .00057, .00893, .01795,
2348 + .38679, .14820, .08939, .01323, .00141,
2349 + .00063, .00856, .01710,
2350 + .37637, .14357, .08371, .01272, .00143,
2351 + .00069, .00823, .01635 /
2352 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
2353 + .36622, .13903, .07854, .01222, .00144,
2354 + .00073, .00792, .01565,
2355 + .35655, .13475, .07388, .01176, .00144,
2356 + .00077, .00764, .01499,
2357 + .34759, .13085, .06983, .01135, .00144,
2358 + .00080, .00738, .01438,
2359 + .33934, .12728, .06627, .01096, .00143,
2360 + .00082, .00714, .01384,
2361 + .33130, .12379, .06296, .01058, .00143,
2362 + .00084, .00690, .01331,
2363 + .32347, .12045, .05991, .01024, .00142,
2364 + .00086, .00668, .01282,
2365 + .31624, .11737, .05720, .00992, .00140,
2366 + .00087, .00648, .01238,
2367 + .30952, .11452, .05478, .00962, .00139,
2368 + .00088, .00629, .01198 /
2369 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
2370 + .30293, .11174, .05250, .00932, .00138,
2371 + .00089, .00610, .01158,
2372 + .29651, .10905, .05037, .00904, .00137,
2373 + .00089, .00592, .01120,
2374 + .29051, .10656, .04843, .00879, .00136,
2375 + .00090, .00575, .01085,
2376 + .28494, .10425, .04670, .00856, .00133,
2377 + .00089, .00561, .01053,
2378 + .27938, .10197, .04502, .00833, .00132,
2379 + .00089, .00545, .01023 /
2380 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
2381 + .64238, .27871, .41815, .02467, .00000,
2382 + .00000, .01357, .03841,
2383 + .63117, .27099, .37955, .02402, .00000,
2384 + .00000, .01346, .03664,
2385 + .61365, .25964, .33612, .02300, -.00316,
2386 + .00000, .01317, .03423,
2387 + .60033, .25159, .30333, .02225, -.00248,
2388 + .00000, .01288, .03254,
2389 + .58610, .24324, .27312, .02143, -.00191,
2390 + .00000, .01253, .03091,
2391 + .57357, .23633, .25017, .02078, -.00150,
2392 + .00000, .01220, .02950,
2393 + .56169, .22976, .23043, .02011, -.00114,
2394 + .00000, .01189, .02822,
2395 + .54918, .22291, .21162, .01938, -.00082,
2396 + .00000, .01159, .02695 /
2397 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
2398 + .53823, .21718, .19692, .01880, -.00058,
2399 + .00000, .01127, .02591,
2400 + .52774, .21174, .18397, .01823, -.00038,
2401 + .00000, .01097, .02496,
2402 + .51955, .20753, .17449, .01779, -.00023,
2403 + .00000, .01073, .02422,
2404 + .50224, .19883, .15639, .01688, .00003,
2405 + .00000, .01025, .02269,
2406 + .48751, .19167, .14366, .01615, .00022,
2407 + -.00080, .00984, .02149,
2408 + .47142, .18391, .12930, .01535, .00039,
2409 + -.00054, .00940, .02024,
2410 + .45510, .17621, .11633, .01456, .00053,
2411 + -.00033, .00896, .01902,
2412 + .44067, .16951, .10606, .01388, .00064,
2413 + -.00016, .00857, .01798 /
2414 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
2415 + .42654, .16302, .09690, .01321, .00072,
2416 + -.00003, .00818, .01699,
2417 + .41509, .15781, .09009, .01271, .00078,
2418 + .00007, .00786, .01625,
2419 + .40155, .15179, .08269, .01211, .00084,
2420 + .00017, .00751, .01534,
2421 + .38995, .14665, .07682, .01159, .00087,
2422 + .00024, .00722, .01461,
2423 + .37964, .14207, .07195, .01113, .00090,
2424 + .00031, .00694, .01400,
2425 + .36681, .13651, .06633, .01059, .00093,
2426 + .00037, .00663, .01323,
2427 + .35515, .13150, .06161, .01012, .00094,
2428 + .00042, .00635, .01255,
2429 + .34462, .12700, .05761, .00969, .00096,
2430 + .00046, .00609, .01194 /
2431 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
2432 + .33433, .12266, .05394, .00928, .00096,
2433 + .00049, .00582, .01138,
2434 + .32455, .11858, .05066, .00891, .00096,
2435 + .00052, .00558, .01087,
2436 + .31556, .11483, .04780, .00859, .00096,
2437 + .00054, .00538, .01039,
2438 + .30733, .11143, .04532, .00827, .00096,
2439 + .00055, .00519, .00996,
2440 + .29933, .10813, .04300, .00796, .00096,
2441 + .00057, .00501, .00955,
2442 + .29157, .10497, .04088, .00768, .00095,
2443 + .00058, .00483, .00919,
2444 + .28443, .10208, .03899, .00741, .00094,
2445 + .00058, .00466, .00887,
2446 + .27783, .09940, .03732, .00717, .00093,
2447 + .00059, .00452, .00855 /
2448 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
2449 + .27137, .09677, .03573, .00693, .00093,
2450 + .00060, .00439, .00824,
2451 + .26508, .09426, .03425, .00672, .00092,
2452 + .00060, .00425, .00795,
2453 + .25924, .09194, .03291, .00652, .00090,
2454 + .00060, .00412, .00768,
2455 + .25382, .08979, .03171, .00634, .00090,
2456 + .00060, .00400, .00745,
2457 + .24844, .08765, .03055, .00615, .00088,
2458 + .00059, .00389, .00722 /
2459 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
2460 + .63550, .26662, .30921, .02132, .00000,
2461 + .00000, .01128, .03079,
2462 + .62159, .25783, .27855, .02052, .00000,
2463 + .00000, .01107, .02924,
2464 + .60025, .24545, .24438, .01938, -.00242,
2465 + .00000, .01065, .02707,
2466 + .58449, .23679, .21885, .01864, -.00191,
2467 + .00000, .01034, .02558,
2468 + .56802, .22787, .19559, .01783, -.00148,
2469 + .00000, .01002, .02409,
2470 + .55383, .22048, .17810, .01713, -.00117,
2471 + .00000, .00969, .02292,
2472 + .54037, .21360, .16317, .01648, -.00091,
2473 + .00000, .00938, .02187,
2474 + .52627, .20654, .14905, .01585, -.00067,
2475 + .00000, .00905, .02079 /
2476 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
2477 + .51420, .20058, .13805, .01531, -.00049,
2478 + .00000, .00881, .01985,
2479 + .50272, .19498, .12847, .01477, -.00034,
2480 + .00000, .00853, .01904,
2481 + .49382, .19066, .12148, .01434, -.00023,
2482 + .00000, .00832, .01845,
2483 + .47510, .18180, .10822, .01350, -.00004,
2484 + .00000, .00789, .01723,
2485 + .45942, .17456, .09896, .01281, .00010,
2486 + -.00060, .00753, .01625,
2487 + .44234, .16681, .08858, .01210, .00022,
2488 + -.00042, .00715, .01523,
2489 + .42520, .15915, .07925, .01145, .00033,
2490 + -.00026, .00676, .01422,
2491 + .41017, .15254, .07192, .01089, .00041,
2492 + -.00014, .00645, .01334 /
2493 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
2494 + .39555, .14616, .06546, .01034, .00046,
2495 + -.00005, .00615, .01252,
2496 + .38377, .14109, .06067, .00989, .00050,
2497 + .00002, .00590, .01194,
2498 + .36997, .13517, .05550, .00933, .00055,
2499 + .00010, .00558, .01129,
2500 + .35817, .13018, .05140, .00891, .00057,
2501 + .00015, .00533, .01072,
2502 + .34764, .12582, .04799, .00857, .00060,
2503 + .00020, .00513, .01021,
2504 + .33480, .12046, .04414, .00810, .00062,
2505 + .00025, .00487, .00962,
2506 + .32316, .11569, .04089, .00772, .00063,
2507 + .00028, .00465, .00909,
2508 + .31260, .11143, .03816, .00740, .00064,
2509 + .00031, .00445, .00862 /
2510 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
2511 + .30245, .10728, .03568, .00703, .00064,
2512 + .00033, .00426, .00819,
2513 + .29284, .10342, .03347, .00672, .00064,
2514 + .00034, .00406, .00778,
2515 + .28398, .09992, .03156, .00645, .00065,
2516 + .00036, .00388, .00742,
2517 + .27590, .09671, .02991, .00619, .00064,
2518 + .00037, .00374, .00711,
2519 + .26805, .09363, .02834, .00595, .00064,
2520 + .00038, .00360, .00683,
2521 + .26052, .09068, .02693, .00572, .00064,
2522 + .00039, .00346, .00654,
2523 + .25362, .08799, .02567, .00552, .00063,
2524 + .00040, .00334, .00626,
2525 + .24720, .08552, .02456, .00533, .00062,
2526 + .00039, .00323, .00604 /
2527 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
2528 + .24094, .08310, .02349, .00514, .00062,
2529 + .00040, .00312, .00583,
2530 + .23490, .08079, .02251, .00497, .00061,
2531 + .00040, .00302, .00562,
2532 + .22929, .07866, .02164, .00481, .00061,
2533 + .00040, .00293, .00541,
2534 + .22412, .07669, .02083, .00467, .00060,
2535 + .00040, .00284, .00523,
2536 + .21898, .07474, .02008, .00452, .00059,
2537 + .00040, .00275, .00506 /
2538 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
2539 + .62335, .25229, .21821, .01796, .00000,
2540 + .00000, .00928, .02447,
2541 + .60659, .24297, .19493, .01720, .00000,
2542 + .00000, .00899, .02306,
2543 + .58173, .22985, .16922, .01616, -.00183,
2544 + .00000, .00855, .02111,
2545 + .56401, .22063, .15027, .01533, -.00145,
2546 + .00000, .00826, .01983,
2547 + .54538, .21146, .13318, .01460, -.00113,
2548 + .00000, .00794, .01854,
2549 + .52977, .20374, .12043, .01395, -.00090,
2550 + .00000, .00763, .01756,
2551 + .51512, .19665, .10961, .01332, -.00071,
2552 + .00000, .00734, .01670,
2553 + .49990, .18944, .09949, .01265, -.00054,
2554 + .00000, .00704, .01585 /
2555 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
2556 + .48687, .18342, .09172, .01215, -.00040,
2557 + .00000, .00677, .01511,
2558 + .47456, .17783, .08492, .01174, -.00030,
2559 + .00000, .00657, .01441,
2560 + .46501, .17355, .07999, .01142, -.00022,
2561 + .00000, .00643, .01385,
2562 + .44522, .16475, .07082, .01070, -.00007,
2563 + .00000, .00608, .01282,
2564 + .42885, .15753, .06439, .01015, .00003,
2565 + -.00045, .00574, .01203,
2566 + .41123, .14986, .05721, .00953, .00012,
2567 + -.00032, .00540, .01125,
2568 + .39365, .14238, .05086, .00889, .00019,
2569 + -.00021, .00508, .01048,
2570 + .37836, .13595, .04591, .00836, .00025,
2571 + -.00013, .00482, .00984 /
2572 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
2573 + .36351, .12979, .04157, .00791, .00030,
2574 + -.00005, .00455, .00924,
2575 + .35162, .12492, .03839, .00755, .00033,
2576 + .00000, .00437, .00875,
2577 + .33767, .11930, .03494, .00718, .00036,
2578 + .00005, .00414, .00819,
2579 + .32589, .11457, .03229, .00683, .00037,
2580 + .00008, .00393, .00773,
2581 + .31555, .11040, .03008, .00650, .00039,
2582 + .00012, .00374, .00735,
2583 + .30280, .10536, .02760, .00614, .00041,
2584 + .00016, .00356, .00690,
2585 + .29133, .10085, .02552, .00581, .00041,
2586 + .00018, .00338, .00651,
2587 + .28104, .09681, .02377, .00554, .00042,
2588 + .00020, .00323, .00617 /
2589 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
2590 + .27105, .09300, .02220, .00528, .00042,
2591 + .00022, .00306, .00584,
2592 + .26171, .08940, .02079, .00503, .00042,
2593 + .00023, .00292, .00555,
2594 + .25324, .08614, .01958, .00479, .00043,
2595 + .00024, .00279, .00528,
2596 + .24544, .08320, .01855, .00459, .00043,
2597 + .00025, .00268, .00504,
2598 + .23790, .08035, .01761, .00440, .00043,
2599 + .00026, .00257, .00480,
2600 + .23069, .07765, .01671, .00422, .00043,
2601 + .00027, .00247, .00460,
2602 + .22408, .07519, .01594, .00407, .00042,
2603 + .00027, .00237, .00441,
2604 + .21799, .07292, .01525, .00391, .00042,
2605 + .00028, .00230, .00423 /
2606 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
2607 + .21204, .07073, .01461, .00377, .00041,
2608 + .00027, .00221, .00406,
2609 + .20633, .06862, .01400, .00364, .00042,
2610 + .00028, .00213, .00391,
2611 + .20103, .06667, .01346, .00351, .00041,
2612 + .00028, .00206, .00378,
2613 + .19616, .06489, .01298, .00340, .00040,
2614 + .00028, .00198, .00364,
2615 + .19136, .06313, .01251, .00326, .00040,
2616 + .00029, .00193, .00352 /
2617 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
2618 + .60576, .23659, .14316, .01483, .00000,
2619 + .00000, .00767, .01911,
2620 + .58659, .22675, .12658, .01408, .00000,
2621 + .00000, .00732, .01790,
2622 + .55894, .21288, .10858, .01300, -.00138,
2623 + .00000, .00690, .01633,
2624 + .53922, .20356, .09514, .01238, -.00110,
2625 + .00000, .00661, .01520,
2626 + .51914, .19415, .08338, .01162, -.00086,
2627 + .00000, .00622, .01421,
2628 + .50223, .18643, .07463, .01106, -.00069,
2629 + .00000, .00596, .01340,
2630 + .48649, .17934, .06736, .01056, -.00056,
2631 + .00000, .00570, .01263,
2632 + .47030, .17214, .06061, .01005, -.00043,
2633 + .00000, .00547, .01185 /
2634 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
2635 + .45665, .16614, .05544, .00958, -.00034,
2636 + .00000, .00525, .01131,
2637 + .44385, .16057, .05103, .00915, -.00025,
2638 + .00000, .00505, .01079,
2639 + .43397, .15634, .04784, .00886, -.00019,
2640 + .00000, .00486, .01038,
2641 + .41347, .14771, .04190, .00830, -.00009,
2642 + .00000, .00455, .00959,
2643 + .39679, .14070, .03787, .00777, -.00001,
2644 + -.00034, .00432, .00893,
2645 + .37885, .13337, .03330, .00728, .00006,
2646 + -.00024, .00406, .00826,
2647 + .36104, .12618, .02931, .00677, .00012,
2648 + -.00016, .00379, .00767,
2649 + .34569, .12001, .02625, .00636, .00015,
2650 + -.00011, .00357, .00719 /
2651 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
2652 + .33096, .11416, .02358, .00596, .00019,
2653 + -.00006, .00337, .00672,
2654 + .31922, .10955, .02165, .00565, .00022,
2655 + -.00001, .00321, .00633,
2656 + .30551, .10424, .01961, .00533, .00024,
2657 + .00002, .00303, .00591,
2658 + .29392, .09978, .01806, .00507, .00026,
2659 + .00005, .00287, .00557,
2660 + .28374, .09588, .01678, .00482, .00026,
2661 + .00006, .00275, .00529,
2662 + .27139, .09120, .01534, .00452, .00028,
2663 + .00009, .00259, .00494,
2664 + .26026, .08705, .01416, .00429, .00028,
2665 + .00011, .00245, .00463,
2666 + .25029, .08335, .01318, .00409, .00028,
2667 + .00012, .00232, .00438 /
2668 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
2669 + .24082, .07979, .01231, .00384, .00029,
2670 + .00013, .00220, .00415,
2671 + .23189, .07650, .01156, .00363, .00029,
2672 + .00014, .00209, .00391,
2673 + .22375, .07354, .01091, .00348, .00030,
2674 + .00015, .00199, .00370,
2675 + .21633, .07085, .01034, .00333, .00030,
2676 + .00016, .00192, .00353,
2677 + .20920, .06827, .00981, .00319, .00030,
2678 + .00016, .00184, .00337,
2679 + .20237, .06584, .00935, .00305, .00030,
2680 + .00017, .00176, .00320,
2681 + .19615, .06363, .00892, .00294, .00030,
2682 + .00017, .00169, .00306,
2683 + .19045, .06159, .00855, .00282, .00029,
2684 + .00017, .00163, .00294 /
2685 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
2686 + .18490, .05960, .00822, .00269, .00030,
2687 + .00018, .00156, .00281,
2688 + .17958, .05771, .00790, .00260, .00029,
2689 + .00018, .00151, .00270,
2690 + .17466, .05598, .00761, .00249, .00029,
2691 + .00018, .00145, .00260,
2692 + .17012, .05438, .00735, .00242, .00029,
2693 + .00019, .00140, .00251,
2694 + .16561, .05283, .00710, .00234, .00029,
2695 + .00019, .00135, .00242 /
2696 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
2697 + .58337, .22003, .08221, .01229, .00000,
2698 + .00000, .00601, .01456,
2699 + .56213, .20989, .07130, .01158, .00000,
2700 + .00000, .00578, .01354,
2701 + .53196, .19581, .05999, .01059, -.00103,
2702 + .00000, .00536, .01226,
2703 + .51094, .18628, .05147, .00992, -.00083,
2704 + .00000, .00504, .01144,
2705 + .48952, .17690, .04405, .00927, -.00065,
2706 + .00000, .00478, .01063,
2707 + .47183, .16917, .03875, .00875, -.00054,
2708 + .00000, .00458, .00993,
2709 + .45543, .16214, .03434, .00829, -.00043,
2710 + .00000, .00436, .00934,
2711 + .43862, .15510, .03038, .00783, -.00034,
2712 + .00000, .00412, .00878 /
2713 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
2714 + .42452, .14921, .02743, .00748, -.00027,
2715 + .00000, .00395, .00831,
2716 + .41135, .14380, .02490, .00716, -.00021,
2717 + .00000, .00378, .00788,
2718 + .40123, .13969, .02311, .00689, -.00016,
2719 + .00000, .00365, .00757,
2720 + .38064, .13133, .01992, .00634, -.00009,
2721 + .00000, .00339, .00696,
2722 + .36374, .12466, .01779, .00596, -.00004,
2723 + -.00026, .00320, .00645,
2724 + .34581, .11765, .01523, .00553, .00001,
2725 + -.00019, .00299, .00599,
2726 + .32817, .11082, .01308, .00517, .00006,
2727 + -.00013, .00278, .00552,
2728 + .31304, .10503, .01149, .00484, .00009,
2729 + -.00008, .00262, .00511 /
2730 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
2731 + .29857, .09952, .01018, .00452, .00011,
2732 + -.00005, .00246, .00477,
2733 + .28706, .09523, .00927, .00429, .00013,
2734 + -.00002, .00231, .00449,
2735 + .27378, .09031, .00829, .00401, .00015,
2736 + .00000, .00218, .00419,
2737 + .26264, .08619, .00757, .00377, .00016,
2738 + .00002, .00207, .00395,
2739 + .25288, .08261, .00702, .00355, .00017,
2740 + .00003, .00196, .00373,
2741 + .24101, .07829, .00639, .00333, .00018,
2742 + .00004, .00185, .00348,
2743 + .23044, .07448, .00591, .00314, .00019,
2744 + .00005, .00174, .00324,
2745 + .22103, .07113, .00554, .00296, .00020,
2746 + .00006, .00163, .00303 /
2747 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
2748 + .21198, .06791, .00517, .00280, .00021,
2749 + .00007, .00155, .00286,
2750 + .20354, .06493, .00486, .00266, .00021,
2751 + .00007, .00148, .00272,
2752 + .19591, .06225, .00461, .00252, .00022,
2753 + .00008, .00140, .00258,
2754 + .18899, .05985, .00440, .00241, .00022,
2755 + .00008, .00134, .00245,
2756 + .18234, .05753, .00422, .00230, .00023,
2757 + .00009, .00128, .00232,
2758 + .17600, .05535, .00404, .00220, .00023,
2759 + .00009, .00123, .00220,
2760 + .17021, .05338, .00389, .00211, .00023,
2761 + .00009, .00119, .00209,
2762 + .16492, .05157, .00377, .00202, .00023,
2763 + .00010, .00113, .00200 /
2764 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
2765 + .15979, .04982, .00365, .00195, .00023,
2766 + .00010, .00110, .00191,
2767 + .15487, .04815, .00354, .00187, .00023,
2768 + .00010, .00105, .00183,
2769 + .15034, .04662, .00345, .00180, .00023,
2770 + .00010, .00101, .00176,
2771 + .14619, .04521, .00336, .00174, .00023,
2772 + .00011, .00096, .00170,
2773 + .14210, .04383, .00328, .00167, .00023,
2774 + .00011, .00093, .00164 /
2775 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
2776 + .55681, .20259, .03314, .00996, .00000,
2777 + .00000, .00471, .01095,
2778 + .53390, .19236, .02714, .00934, .00000,
2779 + .00000, .00442, .01018,
2780 + .50177, .17838, .02159, .00848, -.00076,
2781 + .00000, .00404, .00912,
2782 + .47975, .16894, .01710, .00787, -.00062,
2783 + .00000, .00380, .00845,
2784 + .45745, .15967, .01328, .00738, -.00049,
2785 + .00000, .00358, .00781,
2786 + .43915, .15217, .01071, .00694, -.00040,
2787 + .00000, .00339, .00728,
2788 + .42236, .14538, .00876, .00653, -.00033,
2789 + .00000, .00319, .00682,
2790 + .40531, .13852, .00705, .00615, -.00026,
2791 + .00000, .00299, .00638 /
2792 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
2793 + .39104, .13289, .00585, .00586, -.00021,
2794 + .00000, .00287, .00598,
2795 + .37782, .12771, .00488, .00558, -.00017,
2796 + .00000, .00275, .00564,
2797 + .36772, .12377, .00423, .00535, -.00014,
2798 + .00000, .00266, .00537,
2799 + .34708, .11584, .00320, .00491, -.00008,
2800 + .00000, .00245, .00494,
2801 + .33040, .10953, .00255, .00461, -.00005,
2802 + -.00019, .00226, .00460,
2803 + .31282, .10293, .00163, .00428, -.00001,
2804 + -.00014, .00212, .00420,
2805 + .29561, .09654, .00100, .00394, .00002,
2806 + -.00010, .00197, .00384,
2807 + .28092, .09118, .00057, .00368, .00004,
2808 + -.00007, .00184, .00356 /
2809 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
2810 + .26693, .08612, .00026, .00343, .00005,
2811 + -.00005, .00171, .00331,
2812 + .25589, .08215, .00011, .00324, .00007,
2813 + -.00003, .00163, .00310,
2814 + .24322, .07759, -.00001, .00302, .00008,
2815 + -.00002, .00151, .00287,
2816 + .23260, .07384, -.00006, .00284, .00009,
2817 + -.00001, .00143, .00269,
2818 + .22330, .07059, -.00012, .00271, .00010,
2819 + .00000, .00136, .00253,
2820 + .21204, .06671, -.00008, .00255, .00011,
2821 + .00001, .00125, .00234,
2822 + .20210, .06325, -.00006, .00237, .00011,
2823 + .00001, .00118, .00220,
2824 + .19335, .06020, -.00003, .00222, .00012,
2825 + .00002, .00113, .00207 /
2826 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
2827 + .18488, .05732, .00005, .00209, .00013,
2828 + .00003, .00105, .00194,
2829 + .17704, .05467, .00011, .00195, .00013,
2830 + .00003, .00099, .00181,
2831 + .17002, .05227, .00017, .00185, .00013,
2832 + .00003, .00094, .00170,
2833 + .16361, .05013, .00023, .00175, .00014,
2834 + .00004, .00089, .00161,
2835 + .15745, .04809, .00027, .00169, .00014,
2836 + .00004, .00086, .00154,
2837 + .15163, .04616, .00033, .00160, .00014,
2838 + .00004, .00082, .00146,
2839 + .14634, .04440, .00039, .00153, .00014,
2840 + .00004, .00077, .00140,
2841 + .14152, .04281, .00043, .00147, .00015,
2842 + .00005, .00074, .00133 /
2843 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
2844 + .13686, .04127, .00047, .00140, .00015,
2845 + .00005, .00072, .00127,
2846 + .13239, .03981, .00051, .00134, .00015,
2847 + .00005, .00068, .00123,
2848 + .12829, .03847, .00055, .00129, .00015,
2849 + .00005, .00065, .00117,
2850 + .12452, .03725, .00058, .00125, .00015,
2851 + .00005, .00063, .00113,
2852 + .12082, .03605, .00062, .00120, .00015,
2853 + .00005, .00060, .00108 /
2854 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
2855 + .52651, .18456, -.00557, .00779, .00000,
2856 + .00000, .00368, .00818,
2857 + .50243, .17437, -.00734, .00719, .00000,
2858 + .00000, .00347, .00754,
2859 + .46892, .16061, -.00799, .00647, -.00057,
2860 + .00000, .00310, .00672,
2861 + .44615, .15151, -.00931, .00601, -.00046,
2862 + .00000, .00290, .00621,
2863 + .42346, .14250, -.01014, .00562, -.00037,
2864 + .00000, .00273, .00566,
2865 + .40491, .13528, -.01037, .00527, -.00031,
2866 + .00000, .00251, .00526,
2867 + .38802, .12875, -.01049, .00495, -.00025,
2868 + .00000, .00238, .00491,
2869 + .37099, .12225, -.01047, .00462, -.00020,
2870 + .00000, .00227, .00458 /
2871 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
2872 + .35678, .11695, -.01026, .00437, -.00016,
2873 + .00000, .00215, .00426,
2874 + .34364, .11204, -.00996, .00414, -.00014,
2875 + .00000, .00202, .00403,
2876 + .33365, .10831, -.00966, .00395, -.00012,
2877 + .00000, .00193, .00387,
2878 + .31348, .10089, -.00918, .00361, -.00008,
2879 + .00000, .00180, .00353,
2880 + .29723, .09501, -.00853, .00334, -.00005,
2881 + -.00014, .00168, .00325,
2882 + .28015, .08892, -.00817, .00311, -.00003,
2883 + -.00010, .00155, .00296,
2884 + .26362, .08306, -.00770, .00285, -.00001,
2885 + -.00008, .00142, .00272,
2886 + .24957, .07812, -.00723, .00262, .00000,
2887 + -.00006, .00132, .00253 /
2888 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
2889 + .23625, .07347, -.00675, .00243, .00002,
2890 + -.00004, .00123, .00235,
2891 + .22581, .06987, -.00633, .00229, .00003,
2892 + -.00003, .00117, .00219,
2893 + .21381, .06581, -.00581, .00213, .00003,
2894 + -.00003, .00108, .00200,
2895 + .20380, .06244, -.00539, .00201, .00004,
2896 + -.00002, .00103, .00186,
2897 + .19514, .05951, -.00500, .00188, .00005,
2898 + -.00001, .00097, .00175,
2899 + .18467, .05603, -.00454, .00175, .00005,
2900 + -.00001, .00091, .00163,
2901 + .17545, .05296, -.00414, .00164, .00006,
2902 + .00000, .00084, .00152,
2903 + .16731, .05024, -.00377, .00153, .00006,
2904 + .00000, .00078, .00143 /
2905 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
2906 + .15957, .04770, -.00343, .00143, .00007,
2907 + .00001, .00076, .00131,
2908 + .15237, .04537, -.00311, .00135, .00007,
2909 + .00001, .00071, .00123,
2910 + .14586, .04328, -.00283, .00128, .00007,
2911 + .00001, .00067, .00116,
2912 + .14005, .04141, -.00260, .00121, .00008,
2913 + .00002, .00063, .00111,
2914 + .13450, .03964, -.00238, .00115, .00008,
2915 + .00002, .00060, .00105,
2916 + .12921, .03796, -.00215, .00110, .00008,
2917 + .00002, .00056, .00099,
2918 + .12443, .03643, -.00196, .00106, .00008,
2919 + .00002, .00054, .00095,
2920 + .12008, .03504, -.00179, .00100, .00008,
2921 + .00002, .00052, .00090 /
2922 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
2923 + .11590, .03372, -.00164, .00094, .00008,
2924 + .00002, .00050, .00087,
2925 + .11190, .03247, -.00149, .00090, .00009,
2926 + .00003, .00047, .00082,
2927 + .10821, .03133, -.00136, .00086, .00009,
2928 + .00003, .00046, .00079,
2929 + .10484, .03028, -.00123, .00083, .00009,
2930 + .00003, .00044, .00075,
2931 + .10154, .02925, -.00113, .00081, .00009,
2932 + .00003, .00043, .00073 /
2933 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
2934 + .49322, .16639, -.03510, .00581, .00000,
2935 + .00000, .00283, .00605,
2936 + .46828, .15642, -.03353, .00536, .00000,
2937 + .00000, .00264, .00557,
2938 + .43395, .14311, -.03032, .00479, -.00041,
2939 + .00000, .00238, .00492,
2940 + .41096, .13431, -.02887, .00441, -.00034,
2941 + .00000, .00224, .00447,
2942 + .38823, .12575, -.02724, .00398, -.00028,
2943 + .00000, .00206, .00413,
2944 + .36977, .11887, -.02580, .00372, -.00023,
2945 + .00000, .00195, .00381,
2946 + .35296, .11272, -.02438, .00349, -.00020,
2947 + .00000, .00185, .00353,
2948 + .33609, .10664, -.02285, .00327, -.00016,
2949 + .00000, .00172, .00323 /
2950 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
2951 + .32221, .10164, -.02158, .00306, -.00014,
2952 + .00000, .00162, .00307,
2953 + .30943, .09709, -.02036, .00285, -.00012,
2954 + .00000, .00155, .00291,
2955 + .29974, .09365, -.01944, .00273, -.00010,
2956 + .00000, .00147, .00279,
2957 + .28016, .08681, -.01757, .00246, -.00008,
2958 + .00000, .00134, .00254,
2959 + .26455, .08141, -.01605, .00228, -.00006,
2960 + -.00010, .00124, .00235,
2961 + .24829, .07587, -.01475, .00210, -.00004,
2962 + -.00008, .00116, .00213,
2963 + .23258, .07055, -.01343, .00191, -.00003,
2964 + -.00007, .00107, .00194,
2965 + .21933, .06611, -.01228, .00174, -.00002,
2966 + -.00006, .00098, .00177 /
2967 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
2968 + .20684, .06197, -.01123, .00161, -.00001,
2969 + -.00005, .00091, .00162,
2970 + .19706, .05876, -.01040, .00152, .00000,
2971 + -.00004, .00085, .00150,
2972 + .18590, .05511, -.00946, .00140, .00000,
2973 + -.00004, .00081, .00140,
2974 + .17665, .05210, -.00871, .00131, .00001,
2975 + -.00003, .00074, .00133,
2976 + .16863, .04952, -.00805, .00124, .00001,
2977 + -.00003, .00071, .00123,
2978 + .15905, .04646, -.00729, .00113, .00002,
2979 + -.00002, .00066, .00115,
2980 + .15060, .04379, -.00663, .00107, .00002,
2981 + -.00002, .00061, .00106,
2982 + .14313, .04145, -.00603, .00100, .00002,
2983 + -.00002, .00057, .00097 /
2984 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
2985 + .13612, .03923, -.00552, .00094, .00003,
2986 + -.00001, .00053, .00092,
2987 + .12963, .03719, -.00504, .00087, .00003,
2988 + -.00001, .00051, .00088,
2989 + .12379, .03538, -.00460, .00082, .00003,
2990 + -.00001, .00048, .00081,
2991 + .11855, .03376, -.00424, .00077, .00003,
2992 + -.00001, .00045, .00078,
2993 + .11355, .03222, -.00389, .00072, .00003,
2994 + -.00001, .00043, .00073,
2995 + .10885, .03080, -.00359, .00068, .00004,
2996 + .00000, .00040, .00069,
2997 + .10459, .02950, -.00331, .00065, .00004,
2998 + .00000, .00039, .00065,
2999 + .10074, .02834, -.00307, .00062, .00004,
3000 + .00000, .00037, .00062 /
3001 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
3002 + .09704, .02721, -.00284, .00057, .00004,
3003 + .00000, .00036, .00058,
3004 + .09349, .02614, -.00263, .00056, .00004,
3005 + .00000, .00033, .00056,
3006 + .09023, .02517, -.00245, .00055, .00004,
3007 + .00000, .00032, .00054,
3008 + .08725, .02429, -.00228, .00054, .00004,
3009 + .00000, .00031, .00051,
3010 + .08435, .02342, -.00212, .00052, .00004,
3011 + .00000, .00030, .00048 /
3012 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
3013 + .45760, .14914, -.05786, .00485, .00000,
3014 + .00000, .00188, .00418,
3015 + .43226, .13959, -.05350, .00451, .00000,
3016 + .00000, .00175, .00373,
3017 + .39810, .12677, -.04712, .00382, -.00031,
3018 + .00000, .00159, .00337,
3019 + .37520, .11848, -.04364, .00359, -.00025,
3020 + .00000, .00147, .00300,
3021 + .35275, .11039, -.04009, .00321, -.00020,
3022 + .00000, .00134, .00277,
3023 + .33460, .10398, -.03718, .00294, -.00017,
3024 + .00000, .00124, .00260,
3025 + .31821, .09826, -.03454, .00272, -.00015,
3026 + .00000, .00116, .00241,
3027 + .30190, .09259, -.03196, .00251, -.00013,
3028 + .00000, .00111, .00221 /
3029 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
3030 + .28848, .08798, -.02980, .00236, -.00011,
3031 + .00000, .00102, .00207,
3032 + .27616, .08379, -.02789, .00225, -.00010,
3033 + .00000, .00096, .00194,
3034 + .26687, .08065, -.02647, .00217, -.00009,
3035 + .00000, .00095, .00181,
3036 + .24825, .07435, -.02361, .00196, -.00007,
3037 + .00000, .00086, .00164,
3038 + .23348, .06949, -.02146, .00185, -.00006,
3039 + -.00008, .00078, .00150,
3040 + .21819, .06449, -.01940, .00166, -.00005,
3041 + -.00007, .00072, .00135,
3042 + .20351, .05973, -.01746, .00149, -.00004,
3043 + -.00006, .00066, .00123,
3044 + .19116, .05574, -.01585, .00137, -.00003,
3045 + -.00005, .00060, .00114 /
3046 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
3047 + .17955, .05204, -.01435, .00126, -.00002,
3048 + -.00004, .00055, .00104,
3049 + .17056, .04920, -.01325, .00118, -.00002,
3050 + -.00004, .00053, .00097,
3051 + .16033, .04600, -.01200, .00109, -.00001,
3052 + -.00003, .00050, .00089,
3053 + .15187, .04336, -.01099, .00103, -.00001,
3054 + -.00003, .00046, .00082,
3055 + .14457, .04110, -.01016, .00096, -.00001,
3056 + -.00003, .00042, .00079,
3057 + .13591, .03842, -.00913, .00087, .00000,
3058 + -.00002, .00038, .00071,
3059 + .12826, .03608, -.00827, .00081, .00000,
3060 + -.00002, .00036, .00064,
3061 + .12152, .03405, -.00756, .00077, .00000,
3062 + -.00002, .00034, .00061 /
3063 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
3064 + .11526, .03214, -.00690, .00069, .00000,
3065 + -.00002, .00033, .00056,
3066 + .10946, .03040, -.00629, .00064, .00001,
3067 + -.00001, .00030, .00052,
3068 + .10424, .02885, -.00579, .00062, .00001,
3069 + -.00001, .00028, .00050,
3070 + .09960, .02747, -.00535, .00059, .00001,
3071 + -.00001, .00027, .00046,
3072 + .09518, .02615, -.00492, .00056, .00001,
3073 + -.00001, .00026, .00042,
3074 + .09101, .02493, -.00454, .00053, .00001,
3075 + -.00001, .00025, .00040,
3076 + .08726, .02384, -.00420, .00050, .00001,
3077 + -.00001, .00023, .00039,
3078 + .08388, .02284, -.00392, .00047, .00001,
3079 + -.00001, .00022, .00037 /
3080 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
3081 + .08062, .02188, -.00362, .00044, .00001,
3082 + -.00001, .00021, .00034,
3083 + .07752, .02098, -.00338, .00042, .00001,
3084 + -.00001, .00020, .00033,
3085 + .07468, .02017, -.00314, .00041, .00001,
3086 + -.00001, .00019, .00031,
3087 + .07211, .01943, -.00295, .00040, .00001,
3088 + -.00001, .00017, .00030,
3089 + .06959, .01870, -.00275, .00038, .00001,
3090 + -.00001, .00016, .00029 /
3091 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
3092 + .42004, .13136, -.07348, .00332, .00000,
3093 + .00000, .00147, .00304,
3094 + .39484, .12235, -.06697, .00302, .00000,
3095 + .00000, .00136, .00273,
3096 + .36079, .11042, -.05816, .00270, -.00022,
3097 + .00000, .00122, .00236,
3098 + .33830, .10271, -.05307, .00250, -.00019,
3099 + .00000, .00110, .00215,
3100 + .31661, .09529, -.04814, .00222, -.00016,
3101 + .00000, .00096, .00196,
3102 + .29914, .08938, -.04425, .00204, -.00014,
3103 + .00000, .00091, .00180,
3104 + .28344, .08414, -.04084, .00190, -.00012,
3105 + .00000, .00087, .00166,
3106 + .26779, .07900, -.03744, .00177, -.00011,
3107 + .00000, .00080, .00151 /
3108 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
3109 + .25504, .07482, -.03475, .00167, -.00010,
3110 + .00000, .00076, .00142,
3111 + .24338, .07105, -.03229, .00156, -.00009,
3112 + .00000, .00070, .00133,
3113 + .23461, .06824, -.03050, .00149, -.00008,
3114 + .00000, .00066, .00128,
3115 + .21718, .06265, -.02698, .00132, -.00007,
3116 + .00000, .00059, .00112,
3117 + .20344, .05831, -.02433, .00120, -.00006,
3118 + -.00006, .00054, .00102,
3119 + .18926, .05385, -.02186, .00110, -.00005,
3120 + -.00005, .00051, .00090,
3121 + .17569, .04965, -.01953, .00100, -.00004,
3122 + -.00004, .00046, .00083,
3123 + .16438, .04618, -.01766, .00092, -.00003,
3124 + -.00003, .00042, .00076 /
3125 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
3126 + .15385, .04294, -.01593, .00084, -.00003,
3127 + -.00003, .00039, .00071,
3128 + .14567, .04047, -.01462, .00079, -.00003,
3129 + -.00003, .00036, .00064,
3130 + .13643, .03768, -.01317, .00071, -.00002,
3131 + -.00002, .00032, .00060,
3132 + .12880, .03540, -.01201, .00066, -.00002,
3133 + -.00002, .00030, .00056,
3134 + .12225, .03347, -.01103, .00063, -.00002,
3135 + -.00002, .00027, .00050,
3136 + .11452, .03116, -.00993, .00055, -.00002,
3137 + -.00002, .00026, .00047,
3138 + .10773, .02918, -.00899, .00050, -.00001,
3139 + -.00001, .00024, .00045,
3140 + .10176, .02745, -.00818, .00048, -.00001,
3141 + -.00001, .00023, .00039 /
3142 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
3143 + .09616, .02583, -.00744, .00046, -.00001,
3144 + -.00001, .00020, .00037,
3145 + .09105, .02436, -.00680, .00043, -.00001,
3146 + -.00001, .00019, .00035,
3147 + .08649, .02306, -.00623, .00041, -.00001,
3148 + -.00001, .00018, .00032,
3149 + .08242, .02189, -.00575, .00038, -.00001,
3150 + -.00001, .00017, .00031,
3151 + .07856, .02080, -.00529, .00036, -.00001,
3152 + -.00001, .00016, .00030,
3153 + .07495, .01978, -.00489, .00034, -.00001,
3154 + -.00001, .00014, .00027,
3155 + .07171, .01887, -.00452, .00032, -.00001,
3156 + -.00001, .00014, .00025,
3157 + .06876, .01804, -.00420, .00030, -.00001,
3158 + -.00001, .00013, .00024 /
3159 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
3160 + .06593, .01725, -.00392, .00031, -.00001,
3161 + -.00001, .00013, .00023,
3162 + .06326, .01650, -.00365, .00030, .00000,
3163 + .00000, .00012, .00022,
3164 + .06083, .01583, -.00340, .00027, .00000,
3165 + .00000, .00012, .00020,
3166 + .05862, .01522, -.00317, .00026, .00000,
3167 + .00000, .00011, .00019,
3168 + .05650, .01463, -.00296, .00025, .00000,
3169 + .00000, .00010, .00017 /
3170 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
3171 + .38093, .11432, -.08319, .00229, .00000,
3172 + .00000, .00114, .00208,
3173 + .35630, .10595, -.07524, .00207, .00000,
3174 + .00000, .00103, .00191,
3175 + .32338, .09498, -.06472, .00172, -.00016,
3176 + .00000, .00089, .00171,
3177 + .30184, .08794, -.05856, .00155, -.00013,
3178 + .00000, .00081, .00157,
3179 + .28084, .08120, -.05269, .00149, -.00011,
3180 + .00000, .00079, .00133,
3181 + .26423, .07584, -.04809, .00138, -.00010,
3182 + .00000, .00070, .00123,
3183 + .24939, .07112, -.04403, .00126, -.00009,
3184 + .00000, .00063, .00113,
3185 + .23472, .06651, -.04017, .00115, -.00008,
3186 + .00000, .00057, .00107 /
3187 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
3188 + .22281, .06280, -.03706, .00107, -.00007,
3189 + .00000, .00055, .00095,
3190 + .21197, .05945, -.03433, .00100, -.00006,
3191 + .00000, .00052, .00089,
3192 + .20384, .05697, -.03233, .00096, -.00006,
3193 + .00000, .00049, .00084,
3194 + .18767, .05202, -.02844, .00086, -.00005,
3195 + .00000, .00045, .00076,
3196 + .17509, .04820, -.02555, .00074, -.00004,
3197 + -.00004, .00042, .00071,
3198 + .16213, .04432, -.02275, .00068, -.00003,
3199 + -.00003, .00036, .00063,
3200 + .14981, .04069, -.02022, .00064, -.00003,
3201 + -.00003, .00032, .00056,
3202 + .13959, .03769, -.01813, .00057, -.00002,
3203 + -.00002, .00030, .00050 /
3204 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
3205 + .13011, .03492, -.01627, .00051, -.00002,
3206 + -.00002, .00027, .00046,
3207 + .12280, .03281, -.01489, .00047, -.00002,
3208 + -.00002, .00024, .00044,
3209 + .11453, .03043, -.01337, .00044, -.00002,
3210 + -.00002, .00023, .00040,
3211 + .10778, .02850, -.01218, .00042, -.00001,
3212 + -.00001, .00022, .00037,
3213 + .10201, .02684, -.01116, .00036, -.00001,
3214 + -.00001, .00021, .00036,
3215 + .09513, .02492, -.00999, .00037, -.00001,
3216 + -.00001, .00019, .00030,
3217 + .08918, .02326, -.00901, .00033, -.00001,
3218 + -.00001, .00016, .00027,
3219 + .08402, .02180, -.00816, .00029, -.00001,
3220 + -.00001, .00015, .00026 /
3221 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
3222 + .07915, .02046, -.00743, .00028, -.00001,
3223 + -.00001, .00015, .00024,
3224 + .07471, .01924, -.00678, .00027, -.00001,
3225 + -.00001, .00014, .00022,
3226 + .07078, .01816, -.00620, .00024, -.00001,
3227 + -.00001, .00013, .00021,
3228 + .06728, .01720, -.00570, .00023, -.00001,
3229 + -.00001, .00011, .00020,
3230 + .06395, .01629, -.00524, .00022, .00000,
3231 + .00000, .00010, .00019,
3232 + .06086, .01546, -.00483, .00020, .00000,
3233 + .00000, .00010, .00017,
3234 + .05809, .01470, -.00447, .00020, .00000,
3235 + .00000, .00010, .00016,
3236 + .05558, .01404, -.00415, .00019, .00000,
3237 + .00000, .00009, .00015 /
3238 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
3239 + .05320, .01339, -.00386, .00018, .00000,
3240 + .00000, .00009, .00013,
3241 + .05094, .01278, -.00358, .00017, .00000,
3242 + .00000, .00008, .00012,
3243 + .04890, .01225, -.00335, .00015, .00000,
3244 + .00000, .00008, .00012,
3245 + .04705, .01175, -.00314, .00014, .00000,
3246 + .00000, .00008, .00013,
3247 + .04522, .01127, -.00295, .00014, .00000,
3248 + .00000, .00008, .00012 /
3249 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
3250 + .34227, .09877, -.08929, .00175, .00000,
3251 + .00000, .00067, .00138,
3252 + .31833, .09109, -.08016, .00159, .00000,
3253 + .00000, .00059, .00127,
3254 + .28683, .08108, -.06839, .00140, -.00011,
3255 + .00000, .00049, .00104,
3256 + .26638, .07472, -.06139, .00124, -.00009,
3257 + .00000, .00047, .00090,
3258 + .24677, .06866, -.05483, .00108, -.00008,
3259 + .00000, .00040, .00081,
3260 + .23112, .06388, -.04977, .00099, -.00007,
3261 + .00000, .00038, .00075,
3262 + .21730, .05969, -.04544, .00092, -.00006,
3263 + .00000, .00035, .00069,
3264 + .20372, .05560, -.04127, .00086, -.00005,
3265 + .00000, .00032, .00062 /
3266 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
3267 + .19267, .05230, -.03797, .00080, -.00005,
3268 + .00000, .00031, .00060,
3269 + .18272, .04934, -.03502, .00073, -.00004,
3270 + .00000, .00030, .00056,
3271 + .17528, .04711, -.03284, .00069, -.00004,
3272 + .00000, .00028, .00051,
3273 + .16053, .04284, -.02874, .00062, -.00003,
3274 + .00000, .00024, .00047,
3275 + .14908, .03956, -.02573, .00059, -.00003,
3276 + -.00003, .00022, .00041,
3277 + .13739, .03621, -.02282, .00053, -.00002,
3278 + -.00002, .00020, .00038,
3279 + .12641, .03307, -.02014, .00045, -.00002,
3280 + -.00002, .00018, .00034,
3281 + .11733, .03050, -.01804, .00040, -.00002,
3282 + -.00002, .00016, .00032 /
3283 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
3284 + .10890, .02813, -.01611, .00037, -.00001,
3285 + -.00001, .00015, .00029,
3286 + .10241, .02634, -.01468, .00034, -.00001,
3287 + -.00001, .00014, .00026,
3288 + .09516, .02435, -.01313, .00033, -.00001,
3289 + -.00001, .00013, .00021,
3290 + .08923, .02273, -.01190, .00030, -.00001,
3291 + -.00001, .00011, .00020,
3292 + .08420, .02135, -.01087, .00028, -.00001,
3293 + -.00001, .00010, .00019,
3294 + .07824, .01974, -.00972, .00026, -.00001,
3295 + -.00001, .00010, .00018,
3296 + .07308, .01835, -.00875, .00023, -.00001,
3297 + -.00001, .00009, .00017,
3298 + .06863, .01716, -.00794, .00021, -.00001,
3299 + -.00001, .00009, .00017 /
3300 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
3301 + .06447, .01604, -.00718, .00019, -.00001,
3302 + -.00001, .00008, .00014,
3303 + .06066, .01505, -.00653, .00018, .00000,
3304 + .00000, .00007, .00013,
3305 + .05732, .01416, -.00597, .00017, .00000,
3306 + .00000, .00007, .00012,
3307 + .05433, .01338, -.00549, .00016, .00000,
3308 + .00000, .00007, .00012,
3309 + .05150, .01265, -.00503, .00016, .00000,
3310 + .00000, .00005, .00010,
3311 + .04890, .01196, -.00463, .00014, .00000,
3312 + .00000, .00005, .00010,
3313 + .04659, .01136, -.00428, .00012, .00000,
3314 + .00000, .00006, .00010,
3315 + .04447, .01081, -.00398, .00013, .00000,
3316 + .00000, .00006, .00009 /
3317 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
3318 + .04243, .01029, -.00369, .00013, .00000,
3319 + .00000, .00004, .00009,
3320 + .04054, .00981, -.00344, .00013, .00000,
3321 + .00000, .00004, .00008,
3322 + .03883, .00937, -.00320, .00012, .00000,
3323 + .00000, .00005, .00008,
3324 + .03729, .00898, -.00300, .00012, .00000,
3325 + .00000, .00005, .00007,
3326 + .03578, .00859, -.00280, .00011, .00000,
3327 + .00000, .00003, .00007 /
3328 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
3329 + .30297, .08349, -.09057, .00100, .00000,
3330 + .00000, .00055, .00102,
3331 + .28042, .07664, -.08080, .00087, .00000,
3332 + .00000, .00049, .00086,
3333 + .25065, .06779, -.06850, .00083, -.00008,
3334 + .00000, .00042, .00070,
3335 + .23160, .06215, -.06121, .00076, -.00006,
3336 + .00000, .00037, .00066,
3337 + .21346, .05677, -.05436, .00065, -.00005,
3338 + .00000, .00033, .00059,
3339 + .19912, .05264, -.04914, .00058, -.00005,
3340 + .00000, .00030, .00054,
3341 + .18642, .04900, -.04464, .00053, -.00004,
3342 + .00000, .00029, .00049,
3343 + .17401, .04546, -.04035, .00050, -.00004,
3344 + .00000, .00028, .00041 /
3345 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
3346 + .16400, .04264, -.03696, .00048, -.00003,
3347 + .00000, .00023, .00040,
3348 + .15500, .04009, -.03397, .00044, -.00003,
3349 + .00000, .00021, .00037,
3350 + .14829, .03822, -.03182, .00041, -.00003,
3351 + .00000, .00021, .00034,
3352 + .13510, .03454, -.02767, .00034, -.00002,
3353 + .00000, .00019, .00031,
3354 + .12493, .03173, -.02469, .00032, -.00002,
3355 + -.00002, .00019, .00028,
3356 + .11461, .02891, -.02178, .00028, -.00002,
3357 + -.00002, .00015, .00026,
3358 + .10489, .02628, -.01912, .00024, -.00001,
3359 + -.00001, .00013, .00024,
3360 + .09690, .02413, -.01702, .00023, -.00001,
3361 + -.00001, .00013, .00019 /
3362 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
3363 + .08954, .02218, -.01514, .00022, -.00001,
3364 + -.00001, .00011, .00018,
3365 + .08391, .02069, -.01375, .00021, -.00001,
3366 + -.00001, .00010, .00017,
3367 + .07764, .01905, -.01224, .00017, -.00001,
3368 + -.00001, .00009, .00017,
3369 + .07256, .01772, -.01106, .00016, -.00001,
3370 + -.00001, .00009, .00015,
3371 + .06823, .01660, -.01007, .00014, -.00001,
3372 + -.00001, .00007, .00014,
3373 + .06315, .01529, -.00897, .00015, .00000,
3374 + .00000, .00007, .00011,
3375 + .05877, .01415, -.00803, .00014, .00000,
3376 + .00000, .00006, .00009,
3377 + .05499, .01318, -.00726, .00012, .00000,
3378 + .00000, .00006, .00009 /
3379 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
3380 + .05148, .01230, -.00656, .00011, .00000,
3381 + .00000, .00004, .00010,
3382 + .04829, .01149, -.00594, .00009, .00000,
3383 + .00000, .00004, .00008,
3384 + .04548, .01079, -.00542, .00009, .00000,
3385 + .00000, .00005, .00007,
3386 + .04300, .01015, -.00497, .00008, .00000,
3387 + .00000, .00005, .00007,
3388 + .04068, .00957, -.00456, .00007, .00000,
3389 + .00000, .00005, .00007,
3390 + .03852, .00903, -.00419, .00007, .00000,
3391 + .00000, .00005, .00007,
3392 + .03657, .00855, -.00386, .00007, .00000,
3393 + .00000, .00003, .00007,
3394 + .03483, .00813, -.00358, .00007, .00000,
3395 + .00000, .00003, .00006 /
3396 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
3397 + .03318, .00772, -.00331, .00006, .00000,
3398 + .00000, .00003, .00006,
3399 + .03163, .00734, -.00308, .00006, .00000,
3400 + .00000, .00003, .00005,
3401 + .03023, .00699, -.00285, .00006, .00000,
3402 + .00000, .00002, .00005,
3403 + .02896, .00668, -.00267, .00006, .00000,
3404 + .00000, .00002, .00005,
3405 + .02774, .00639, -.00249, .00005, .00000,
3406 + .00000, .00002, .00005 /
3407 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
3408 + .22739, .05738, -.08412, .00047, .00000,
3409 + .00000, .00019, .00034,
3410 + .20817, .05210, -.07428, .00040, .00000,
3411 + .00000, .00017, .00032,
3412 + .18333, .04537, -.06217, .00035, -.00003,
3413 + .00000, .00015, .00030,
3414 + .16758, .04117, -.05490, .00030, -.00003,
3415 + .00000, .00014, .00025,
3416 + .15281, .03722, -.04823, .00023, -.00002,
3417 + .00000, .00013, .00022,
3418 + .14120, .03419, -.04322, .00024, -.00002,
3419 + .00000, .00012, .00020,
3420 + .13109, .03155, -.03893, .00022, -.00002,
3421 + .00000, .00010, .00019,
3422 + .12131, .02901, -.03487, .00015, -.00002,
3423 + .00000, .00009, .00020 /
3424 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
3425 + .11346, .02703, -.03174, .00016, -.00001,
3426 + .00000, .00009, .00017,
3427 + .10647, .02523, -.02900, .00017, -.00001,
3428 + .00000, .00009, .00016,
3429 + .10131, .02393, -.02696, .00016, -.00001,
3430 + .00000, .00006, .00013,
3431 + .09125, .02138, -.02319, .00013, -.00001,
3432 + .00000, .00005, .00012,
3433 + .08360, .01947, -.02049, .00010, -.00001,
3434 + -.00001, .00005, .00010,
3435 + .07589, .01756, -.01791, .00010, -.00001,
3436 + -.00001, .00005, .00010,
3437 + .06874, .01581, -.01555, .00009, -.00001,
3438 + -.00001, .00004, .00008,
3439 + .06293, .01438, -.01372, .00008, .00000,
3440 + .00000, .00004, .00006 /
3441 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
3442 + .05764, .01310, -.01213, .00008, .00000,
3443 + .00000, .00004, .00007,
3444 + .05366, .01213, -.01093, .00006, .00000,
3445 + .00000, .00004, .00005,
3446 + .04921, .01107, -.00967, .00008, .00000,
3447 + .00000, .00002, .00005,
3448 + .04562, .01022, -.00866, .00007, .00000,
3449 + .00000, .00002, .00005,
3450 + .04263, .00951, -.00785, .00007, .00000,
3451 + .00000, .00002, .00004,
3452 + .03915, .00869, -.00693, .00004, .00000,
3453 + .00000, .00003, .00004,
3454 + .03615, .00798, -.00618, .00004, .00000,
3455 + .00000, .00003, .00004,
3456 + .03359, .00740, -.00555, .00004, .00000,
3457 + .00000, .00003, .00004 /
3458 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
3459 + .03122, .00684, -.00498, .00004, .00000,
3460 + .00000, .00003, .00002,
3461 + .02909, .00634, -.00450, .00004, .00000,
3462 + .00000, .00003, .00003,
3463 + .02723, .00592, -.00406, .00004, .00000,
3464 + .00000, .00001, .00002,
3465 + .02560, .00555, -.00371, .00002, .00000,
3466 + .00000, .00001, .00003,
3467 + .02408, .00520, -.00339, .00002, .00000,
3468 + .00000, .00001, .00003,
3469 + .02266, .00487, -.00310, .00002, .00000,
3470 + .00000, .00001, .00003,
3471 + .02140, .00459, -.00284, .00002, .00000,
3472 + .00000, .00001, .00003,
3473 + .02029, .00434, -.00262, .00002, .00000,
3474 + .00000, .00001, .00001 /
3475 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/
3476 + .01924, .00411, -.00241, .00001, .00000,
3477 + .00000, .00001, .00001,
3478 + .01825, .00389, -.00223, .00001, .00000,
3479 + .00000, .00001, .00001,
3480 + .01736, .00368, -.00208, .00001, .00000,
3481 + .00000, .00001, .00001,
3482 + .01656, .00352, -.00193, .00001, .00000,
3483 + .00000, .00001, .00001,
3484 + .01579, .00333, -.00180, .00001, .00000,
3485 + .00000, .00001, .00001 /
3486 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/
3487 + .15899, .03629, -.06919, .00013, .00000,
3488 + .00000, .00006, .00014,
3489 + .14383, .03259, -.06056, .00015, .00000,
3490 + .00000, .00006, .00014,
3491 + .12462, .02795, -.04985, .00007, -.00001,
3492 + .00000, .00006, .00008,
3493 + .11264, .02507, -.04361, .00009, -.00001,
3494 + .00000, .00003, .00009,
3495 + .10145, .02243, -.03794, .00009, -.00001,
3496 + .00000, .00006, .00006,
3497 + .09287, .02041, -.03365, .00007, -.00001,
3498 + .00000, .00004, .00006,
3499 + .08541, .01866, -.03006, .00008, -.00001,
3500 + .00000, .00004, .00004,
3501 + .07825, .01701, -.02669, .00010, -.00001,
3502 + .00000, .00001, .00002 /
3503 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
3504 + .07266, .01570, -.02411, .00008, -.00001,
3505 + .00000, .00001, .00002,
3506 + .06769, .01457, -.02190, .00006, .00000,
3507 + .00000, .00001, .00003,
3508 + .06403, .01373, -.02031, .00004, .00000,
3509 + .00000, .00003, .00005,
3510 + .05694, .01213, -.01727, .00006, .00000,
3511 + .00000, .00002, .00003,
3512 + .05164, .01093, -.01511, .00004, .00000,
3513 + .00000, .00002, .00003,
3514 + .04638, .00976, -.01306, .00002, .00000,
3515 + .00000, .00002, .00003,
3516 + .04155, .00868, -.01125, .00002, .00000,
3517 + .00000, .00002, .00003,
3518 + .03765, .00782, -.00983, .00002, .00000,
3519 + .00000, .00002, .00003 /
3520 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
3521 + .03416, .00706, -.00858, .00001, .00000,
3522 + .00000, .00002, .00002,
3523 + .03154, .00649, -.00770, .00002, .00000,
3524 + .00000, .00002, .00002,
3525 + .02865, .00586, -.00674, .00001, .00000,
3526 + .00000, .00001, .00001,
3527 + .02637, .00537, -.00601, .00001, .00000,
3528 + .00000, .00001, .00001,
3529 + .02445, .00496, -.00540, .00001, .00000,
3530 + .00000, .00001, .00001,
3531 + .02224, .00449, -.00471, .00001, .00000,
3532 + .00000, .00000, .00001,
3533 + .02037, .00409, -.00418, .00001, .00000,
3534 + .00000, .00000, .00001,
3535 + .01878, .00376, -.00373, .00001, .00000,
3536 + .00000, .00000, .00001 /
3537 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
3538 + .01733, .00345, -.00332, .00001, .00000,
3539 + .00000, .00000, .00001,
3540 + .01602, .00318, -.00297, .00001, .00000,
3541 + .00000, .00000, .00000,
3542 + .01489, .00295, -.00269, .00001, .00000,
3543 + .00000, .00000, .00001,
3544 + .01392, .00274, -.00243, .00001, .00000,
3545 + .00000, .00000, .00000,
3546 + .01300, .00256, -.00222, .00001, .00000,
3547 + .00000, .00000, .00000,
3548 + .01217, .00239, -.00201, .00001, .00000,
3549 + .00000, .00000, .00000,
3550 + .01143, .00223, -.00184, .00001, .00000,
3551 + .00000, .00000, .00000,
3552 + .01077, .00209, -.00169, .00001, .00000,
3553 + .00000, .00000, .00000 /
3554 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/
3555 + .01016, .00197, -.00154, .00001, .00000,
3556 + .00000, .00000, .00000,
3557 + .00959, .00186, -.00143, .00001, .00000,
3558 + .00000, .00000, .00000,
3559 + .00908, .00176, -.00131, .00000, .00000,
3560 + .00000, .00000, .00000,
3561 + .00863, .00166, -.00122, .00000, .00000,
3562 + .00000, .00000, .00000,
3563 + .00819, .00157, -.00113, .00000, .00000,
3564 + .00000, .00000, .00000 /
3565 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/
3566 + .10129, .02069, -.05053, .00010, .00000,
3567 + .00000, -.00001, .00002,
3568 + .09047, .01836, -.04363, .00007, .00000,
3569 + .00000, -.00003, .00002,
3570 + .07696, .01543, -.03541, .00007, .00000,
3571 + .00000, .00000, .00000,
3572 + .06872, .01369, -.03066, .00004, .00000,
3573 + .00000, .00000, .00002,
3574 + .06109, .01209, -.02636, .00004, .00000,
3575 + .00000, .00000, .00002,
3576 + .05533, .01090, -.02320, .00004, .00000,
3577 + .00000, .00000, .00002,
3578 + .05039, .00987, -.02052, .00002, .00000,
3579 + .00000, .00000, .00002,
3580 + .04571, .00891, -.01808, .00002, .00000,
3581 + .00000, .00000, .00002 /
3582 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
3583 + .04204, .00814, -.01619, .00002, .00000,
3584 + .00000, .00000, .00002,
3585 + .03881, .00750, -.01457, .00002, .00000,
3586 + .00000, .00000, .00000,
3587 + .03647, .00702, -.01342, .00002, .00000,
3588 + .00000, .00000, .00000,
3589 + .03201, .00611, -.01128, .00002, .00000,
3590 + .00000, .00000, .00000,
3591 + .02869, .00544, -.00977, .00002, .00000,
3592 + .00000, .00000, .00000,
3593 + .02545, .00480, -.00836, .00002, .00000,
3594 + .00000, .00000, .00000,
3595 + .02251, .00423, -.00712, .00002, .00000,
3596 + .00000, .00000, .00000,
3597 + .02018, .00377, -.00616, .00002, .00000,
3598 + .00000, .00000, .00000 /
3599 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/
3600 + .01811, .00336, -.00534, .00002, .00000,
3601 + .00000, .00000, .00000,
3602 + .01656, .00305, -.00473, .00002, .00000,
3603 + .00000, .00000, .00000,
3604 + .01490, .00274, -.00410, .00000, .00000,
3605 + .00000, .00000, .00000,
3606 + .01358, .00248, -.00362, .00000, .00000,
3607 + .00000, .00000, .00000,
3608 + .01249, .00228, -.00325, .00002, .00000,
3609 + .00000, .00000, .00000,
3610 + .01124, .00205, -.00282, .00002, .00000,
3611 + .00000, .00000, .00000,
3612 + .01020, .00184, -.00247, .00000, .00000,
3613 + .00000, .00000, .00000,
3614 + .00933, .00167, -.00217, .00000, .00000,
3615 + .00000, .00000, .00000 /
3616 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/
3617 + .00852, .00153, -.00192, .00000, .00000,
3618 + .00000, .00000, .00000,
3619 + .00783, .00140, -.00172, .00000, .00000,
3620 + .00000, .00000, .00000,
3621 + .00721, .00129, -.00153, .00000, .00000,
3622 + .00000, .00000, .00000,
3623 + .00669, .00119, -.00138, .00000, .00000,
3624 + .00000, .00000, .00000,
3625 + .00620, .00110, -.00124, .00000, .00000,
3626 + .00000, .00000, .00000,
3627 + .00577, .00102, -.00113, .00000, .00000,
3628 + .00000, .00000, .00000,
3629 + .00538, .00095, -.00102, .00000, .00000,
3630 + .00000, .00000, .00000,
3631 + .00504, .00089, -.00094, .00000, .00000,
3632 + .00000, .00000, .00000 /
3633 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=33,37)/
3634 + .00472, .00083, -.00085, .00000, .00000,
3635 + .00000, .00000, .00000,
3636 + .00444, .00077, -.00078, .00000, .00000,
3637 + .00000, .00000, .00000,
3638 + .00418, .00073, -.00071, .00000, .00000,
3639 + .00000, .00000, .00000,
3640 + .00395, .00069, -.00067, .00000, .00000,
3641 + .00000, .00000, .00000,
3642 + .00372, .00064, -.00061, .00000, .00000,
3643 + .00000, .00000, .00000 /
3644 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/
3645 + .05655, .00999, -.03160, .00000, .00000,
3646 + .00000, .00000, .00000,
3647 + .04979, .00877, -.02707, .00000, .00000,
3648 + .00000, .00003, .00000,
3649 + .04149, .00727, -.02164, .00000, .00000,
3650 + .00000, .00000, .00002,
3651 + .03651, .00634, -.01844, .00000, .00000,
3652 + .00000, .00000, .00000,
3653 + .03199, .00551, -.01566, .00000, .00000,
3654 + .00000, .00000, .00000,
3655 + .02861, .00492, -.01363, .00000, .00000,
3656 + .00000, .00000, .00000,
3657 + .02577, .00443, -.01198, .00000, .00000,
3658 + .00000, .00000, .00000,
3659 + .02307, .00392, -.01041, .00000, .00000,
3660 + .00000, .00000, .00000 /
3661 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=9,16)/
3662 + .02100, .00358, -.00927, .00000, .00000,
3663 + .00000, .00000, .00000,
3664 + .01920, .00324, -.00826, .00000, .00000,
3665 + .00000, .00000, .00000,
3666 + .01791, .00302, -.00757, .00000, .00000,
3667 + .00000, .00000, .00000,
3668 + .01545, .00259, -.00625, .00000, .00000,
3669 + .00000, .00000, .00000,
3670 + .01366, .00228, -.00535, .00000, .00000,
3671 + .00000, .00000, .00000,
3672 + .01195, .00198, -.00451, .00000, .00000,
3673 + .00000, .00000, .00000,
3674 + .01041, .00170, -.00378, .00000, .00000,
3675 + .00000, .00000, .00000,
3676 + .00922, .00150, -.00324, .00000, .00000,
3677 + .00000, .00000, .00000 /
3678 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=17,24)/
3679 + .00816, .00134, -.00278, .00000, .00000,
3680 + .00000, .00000, .00000,
3681 + .00738, .00120, -.00243, .00000, .00000,
3682 + .00000, .00000, .00000,
3683 + .00656, .00107, -.00210, .00000, .00000,
3684 + .00000, .00000, .00000,
3685 + .00592, .00095, -.00183, .00000, .00000,
3686 + .00000, .00000, .00000,
3687 + .00538, .00085, -.00161, .00000, .00000,
3688 + .00000, .00000, .00000,
3689 + .00479, .00077, -.00139, .00000, .00000,
3690 + .00000, .00000, .00000,
3691 + .00429, .00069, -.00120, .00000, .00000,
3692 + .00000, .00000, .00000,
3693 + .00388, .00061, -.00106, .00000, .00000,
3694 + .00000, .00000, .00000 /
3695 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/
3696 + .00352, .00055, -.00092, .00000, .00000,
3697 + .00000, .00000, .00000,
3698 + .00319, .00050, -.00082, .00000, .00000,
3699 + .00000, .00000, .00000,
3700 + .00292, .00046, -.00072, .00000, .00000,
3701 + .00000, .00000, .00000,
3702 + .00268, .00043, -.00064, .00000, .00000,
3703 + .00000, .00000, .00000,
3704 + .00246, .00038, -.00057, .00000, .00000,
3705 + .00000, .00000, .00000,
3706 + .00227, .00036, -.00052, .00000, .00000,
3707 + .00000, .00000, .00000,
3708 + .00211, .00033, -.00047, .00000, .00000,
3709 + .00000, .00000, .00000,
3710 + .00197, .00030, -.00042, .00000, .00000,
3711 + .00000, .00000, .00000 /
3712 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/
3713 + .00183, .00028, -.00038, .00000, .00000,
3714 + .00000, .00000, .00000,
3715 + .00170, .00026, -.00035, .00000, .00000,
3716 + .00000, .00000, .00000,
3717 + .00159, .00024, -.00031, .00000, .00000,
3718 + .00000, .00000, .00000,
3719 + .00149, .00023, -.00029, .00000, .00000,
3720 + .00000, .00000, .00000,
3721 + .00140, .00022, -.00026, .00000, .00000,
3722 + .00000, .00000, .00000 /
3723 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/
3724 + .00825, .00104, -.00578, .00000, .00000,
3725 + .00000, .00000, .00000,
3726 + .00695, .00086, -.00474, .00000, .00000,
3727 + .00000, .00000, .00000,
3728 + .00544, .00067, -.00358, .00000, .00000,
3729 + .00000, .00000, .00000,
3730 + .00459, .00057, -.00294, .00000, .00000,
3731 + .00000, .00000, .00000,
3732 + .00385, .00048, -.00240, .00000, .00000,
3733 + .00000, .00000, .00000,
3734 + .00332, .00039, -.00202, .00000, .00000,
3735 + .00000, .00000, .00000,
3736 + .00288, .00034, -.00170, .00000, .00000,
3737 + .00000, .00000, .00000,
3738 + .00249, .00031, -.00144, .00000, .00000,
3739 + .00000, .00000, .00000 /
3740 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/
3741 + .00219, .00026, -.00124, .00000, .00000,
3742 + .00000, .00000, .00000,
3743 + .00195, .00023, -.00108, .00000, .00000,
3744 + .00000, .00000, .00000,
3745 + .00178, .00021, -.00097, .00000, .00000,
3746 + .00000, .00000, .00000,
3747 + .00147, .00018, -.00078, .00000, .00000,
3748 + .00000, .00000, .00000,
3749 + .00125, .00015, -.00065, .00000, .00000,
3750 + .00000, .00000, .00000,
3751 + .00104, .00013, -.00052, .00000, .00000,
3752 + .00000, .00000, .00000,
3753 + .00088, .00011, -.00042, .00000, .00000,
3754 + .00000, .00000, .00000,
3755 + .00074, .00009, -.00035, .00000, .00000,
3756 + .00000, .00000, .00000 /
3757 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/
3758 + .00064, .00007, -.00029, .00000, .00000,
3759 + .00000, .00000, .00000,
3760 + .00056, .00007, -.00025, .00000, .00000,
3761 + .00000, .00000, .00000,
3762 + .00048, .00005, -.00020, .00000, .00000,
3763 + .00000, .00000, .00000,
3764 + .00041, .00005, -.00017, .00000, .00000,
3765 + .00000, .00000, .00000,
3766 + .00037, .00005, -.00015, .00000, .00000,
3767 + .00000, .00000, .00000,
3768 + .00032, .00003, -.00012, .00000, .00000,
3769 + .00000, .00000, .00000,
3770 + .00027, .00003, -.00010, .00000, .00000,
3771 + .00000, .00000, .00000,
3772 + .00024, .00003, -.00009, .00000, .00000,
3773 + .00000, .00000, .00000 /
3774 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
3775 + .00021, .00003, -.00008, .00000, .00000,
3776 + .00000, .00000, .00000,
3777 + .00019, .00001, -.00006, .00000, .00000,
3778 + .00000, .00000, .00000,
3779 + .00017, .00001, -.00006, .00000, .00000,
3780 + .00000, .00000, .00000,
3781 + .00016, .00001, -.00005, .00000, .00000,
3782 + .00000, .00000, .00000,
3783 + .00014, .00001, -.00004, .00000, .00000,
3784 + .00000, .00000, .00000,
3785 + .00012, .00001, -.00004, .00000, .00000,
3786 + .00000, .00000, .00000,
3787 + .00011, .00001, -.00003, .00000, .00000,
3788 + .00000, .00000, .00000,
3789 + .00010, .00001, -.00003, .00000, .00000,
3790 + .00000, .00000, .00000 /
3791 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
3792 + .00009, .00001, -.00003, .00000, .00000,
3793 + .00000, .00000, .00000,
3794 + .00008, .00001, -.00002, .00000, .00000,
3795 + .00000, .00000, .00000,
3796 + .00008, .00001, -.00002, .00000, .00000,
3797 + .00000, .00000, .00000,
3798 + .00007, .00001, -.00002, .00000, .00000,
3799 + .00000, .00000, .00000,
3800 + .00007, .00001, -.00002, .00000, .00000,
3801 + .00000, .00000, .00000 /
3802 data xx/1d-5,2d-5,4d-5,6d-5,8d-5,
3803 . 1d-4,2d-4,4d-4,6d-4,8d-4,
3804 . 1d-3,2d-3,4d-3,6d-3,8d-3,
3805 . 1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2,
3806 . .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0,
3807 . .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0,
3808 . .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0,
3810 data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1,
3811 . 1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2,
3812 . 1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4,
3813 . 1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6,
3814 . 1.8d6,3.2d6,5.6d6,1d7/
3815 data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/
3816 data n0/3,4,5,9,9,9,9,9/
3817 DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
3822 if(init.ne.0) goto 10
3823 C open(unit=1,file='ft11d.dat',status='old')
3826 C read(1,50)f(1,n,m),f(2,n,m),f(3,n,m),f(4,n,m),
3827 C . f(5,n,m),f(7,n,m),f(6,n,m),f(8,n,m)
3828 c notation: 1=uval 2=val 3=glue 4=usea 5=chm 6=str 7=btm 8=dsea
3830 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i)
3833 xx(j)= log10(xx(j)/xx(ntenth))+xx(ntenth)
3835 if(i.eq.5.or.i.eq.7) goto 31
3837 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k)
3845 if(x.lt.xmin) x=xmin
3846 if(x.gt.xmax) x=xmax
3847 if(qsq.lt.qsqmin) qsq=qsqmin
3848 if(qsq.gt.qsqmax) qsq=qsqmax
3850 if(x.lt.xx(ntenth)) xxx= log10(x/xx(ntenth))+xx(ntenth)
3853 if(xxx.gt.xx(n+1)) goto 70
3854 a=(xxx-xx(n))/(xx(n+1)-xx(n))
3857 if(qsq.gt.qq(m+1)) goto 80
3858 b=(qsq-qq(m))/(qq(m+1)-qq(m))
3860 g(i)=(ONED-a)*(ONED-b)*f(i,n,m) + (ONED-a)*b*f(i,n,m+1)
3861 . + a*(ONED-b)*f(i,n+1,m) + a*b*f(i,n+1,m+1)
3862 if(n.ge.ntenth) goto 65
3863 if(i.eq.5.or.i.eq.7) goto 65
3864 fac=(ONED-b)*f(i,ntenth,m)+b*f(i,ntenth,m+1)
3865 g(i)=fac*10d0**(g(i)-fac)
3867 g(i)=g(i)*(ONED-x)**n0(i)
git://git.uio.no / u / mrichter / AliRoot.git / blob