2 subroutine sfmrs_99d5(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 + .00510, .00248, 1.15875, .80457, .00000,
12 + .00000, .43584, .81333,
13 + .00524, .00255, 2.44288, .85343, .00000,
14 + .00000, .48940, .86231,
15 + .00546, .00265, 4.94837, .95131, .02486,
16 + .00000, .59391, .96036,
17 + .00562, .00272, 7.22115, 1.04178, .14224,
18 + .00000, .68893, 1.05093,
19 + .00579, .00280, 10.19717, 1.15592, .27368,
20 + .00000, .80771, 1.16517,
21 + .00593, .00288, 13.26742, 1.27018, .39655,
22 + .00000, .92586, 1.27952,
23 + .00607, .00294, 16.70902, 1.39398, .52962,
24 + .00000, 1.05327, 1.40339,
25 + .00622, .00301, 20.93945, 1.54105, .68806,
26 + .00000, 1.20411, 1.55053 /
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 + .00635, .00308, 25.13928, 1.68250, .84135,
29 + .00000, 1.34872, 1.69203,
30 + .00648, .00314, 29.64337, 1.83218, 1.00083,
31 + .00000, 1.50141, 1.84177,
32 + .00657, .00319, 33.52577, 1.96017, 1.13539,
33 + .00000, 1.63173, 1.96979,
34 + .00678, .00330, 42.76441, 2.26157, 1.45403,
35 + .00000, 1.93798, 2.27127,
36 + .00698, .00340, 51.53056, 2.55293, 1.76125,
37 + .26005, 2.23338, 2.56268,
38 + .00720, .00352, 62.35968, 2.91409, 2.14030,
39 + .71494, 2.59892, 2.92390,
40 + .00743, .00363, 75.14676, 3.33200, 2.57737,
41 + 1.17566, 3.02127, 3.34187,
42 + .00764, .00374, 88.07106, 3.74884, 3.01230,
43 + 1.63594, 3.44202, 3.75874 /
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 + .00786, .00386, 102.44391, 4.20852, 3.49091,
46 + 2.13864, 3.90553, 4.21845,
47 + .00804, .00395, 115.38252, 4.62053, 3.91832,
48 + 2.58331, 4.32067, 4.63050,
49 + .00826, .00406, 132.28655, 5.15822, 4.47398,
50 + 3.15755, 4.86205, 5.16821,
51 + .00846, .00417, 148.42119, 5.67052, 5.00290,
52 + 3.70513, 5.37754, 5.68053,
53 + .00864, .00427, 164.27665, 6.17247, 5.52197,
54 + 4.24607, 5.88235, 6.18250,
55 + .00888, .00439, 185.62041, 6.85182, 6.22086,
56 + 4.96588, 6.56525, 6.86187,
57 + .00911, .00451, 207.01149, 7.53587, 6.92280,
58 + 5.68645, 7.25255, 7.54592,
59 + .00932, .00463, 228.33761, 8.21937, 7.62441,
60 + 6.40892, 7.93905, 8.22943 /
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 + .00954, .00474, 250.92066, 8.94537, 8.36958,
63 + 7.17732, 8.66797, 8.95544,
64 + .00975, .00486, 273.90762, 9.69278, 9.13297,
65 + 7.95706, 9.41819, 9.70285,
66 + .00996, .00498, 296.85894, 10.44070, 9.89808,
67 + 8.74257, 10.16871, 10.45077,
68 + .01015, .00508, 319.33918, 11.17892, 10.65183,
69 + 9.51399, 10.90934, 11.18899,
70 + .01035, .00518, 342.78744, 11.95423, 11.44270,
71 + 10.32281, 11.68703, 11.96430,
72 + .01055, .00529, 366.80706, 12.75245, 12.25693,
73 + 11.15631, 12.48756, 12.76253,
74 + .01073, .00540, 390.26199, 13.53974, 13.05827,
75 + 11.97372, 13.27700, 13.54981,
76 + .01092, .00549, 413.30719, 14.31630, 13.84915,
77 + 12.78213, 14.05557, 14.32636 /
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 + .01110, .00559, 437.09049, 15.12524, 14.67171,
80 + 13.62076, 14.86650, 15.13529,
81 + .01128, .00570, 461.30544, 15.95361, 15.51394,
82 + 14.47976, 15.69681, 15.96367,
83 + .01146, .00579, 485.02052, 16.77040, 16.34404,
84 + 15.32632, 16.51542, 16.78044,
85 + .01163, .00589, 507.94550, 17.56723, 17.15264,
86 + 16.14898, 17.31395, 17.57726,
87 + .01180, .00598, 532.01069, 18.40452, 18.00365,
88 + 17.01812, 18.15294, 18.41454 /
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 + .00710, .00350, 1.03862, .68956, .00000,
91 + .00000, .37314, .69479,
92 + .00731, .00359, 2.17310, .73291, .00000,
93 + .00000, .42021, .73821,
94 + .00761, .00373, 4.34499, .81724, .02183,
95 + .00000, .50978, .82263,
96 + .00782, .00384, 6.27929, .89357, .12073,
97 + .00000, .58972, .89901,
98 + .00805, .00396, 8.77439, .98858, .23013,
99 + .00000, .68839, .99409,
100 + .00825, .00407, 11.31317, 1.08263, .33113,
101 + .00000, .78548, 1.08818,
102 + .00844, .00416, 14.12580, 1.18362, .43950,
103 + .00000, .88933, 1.18921,
104 + .00865, .00427, 17.54414, 1.30264, .56738,
105 + .00000, 1.01128, 1.30827 /
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 + .00883, .00436, 20.90263, 1.41627, .69014,
108 + .00000, 1.12740, 1.42195,
109 + .00901, .00445, 24.47004, 1.53572, .81691,
110 + .00000, 1.24920, 1.54142,
111 + .00915, .00452, 27.51981, 1.63724, .92321,
112 + .00000, 1.35254, 1.64296,
113 + .00945, .00467, 34.69952, 1.87458, 1.17303,
114 + .00000, 1.59367, 1.88034,
115 + .00971, .00481, 41.42091, 2.10195, 1.41166,
116 + .20127, 1.82420, 2.10774,
117 + .01001, .00497, 49.61898, 2.38140, 1.70352,
118 + .55208, 2.10707, 2.38724,
119 + .01033, .00514, 59.17983, 2.70186, 2.03697,
120 + .90335, 2.43099, 2.70774,
121 + .01062, .00530, 68.73089, 3.01878, 2.36600,
122 + 1.25123, 2.75096, 3.02469 /
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 + .01091, .00545, 79.23797, 3.36554, 2.72520,
125 + 1.62803, 3.10071, 3.37148,
126 + .01117, .00558, 88.60517, 3.67414, 3.04371,
127 + 1.95885, 3.41172, 3.68009,
128 + .01147, .00574, 100.72617, 4.07398, 3.45481,
129 + 2.38290, 3.81444, 4.07995,
130 + .01174, .00590, 112.18709, 4.45226, 3.84345,
131 + 2.78445, 4.19521, 4.45826,
132 + .01200, .00603, 123.35974, 4.82067, 4.22261,
133 + 3.17883, 4.56584, 4.82668,
134 + .01232, .00621, 138.26267, 5.31583, 4.72957,
135 + 3.69979, 5.06375, 5.32186,
136 + .01263, .00637, 153.05795, 5.81083, 5.23514,
137 + 4.21752, 5.56129, 5.81687,
138 + .01291, .00653, 167.68606, 6.30227, 5.73732,
139 + 4.73343, 6.05505, 6.30833 /
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 + .01321, .00669, 183.05484, 6.82107, 6.26752,
142 + 5.27890, 6.57613, 6.82715,
143 + .01351, .00685, 198.56705, 7.35174, 6.80715,
144 + 5.82864, 7.10897, 7.35782,
145 + .01377, .00700, 213.94810, 7.87986, 7.34517,
146 + 6.37968, 7.63911, 7.88595,
147 + .01404, .00715, 228.90825, 8.39828, 7.87233,
148 + 6.91784, 8.15941, 8.40438,
149 + .01431, .00729, 244.40962, 8.93994, 8.42265,
150 + 7.47924, 8.70292, 8.94605,
151 + .01457, .00743, 260.19079, 9.49487, 8.98654,
152 + 8.05506, 9.25963, 9.50098,
153 + .01483, .00757, 275.50095, 10.03942, 9.53868,
154 + 8.61683, 9.80586, 10.04554,
155 + .01507, .00771, 290.46374, 10.57424, 10.08138,
156 + 9.17021, 10.34224, 10.58037 /
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 + .01532, .00785, 305.81536, 11.12882, 10.64325,
159 + 9.74160, 10.89836, 11.13495,
160 + .01557, .00799, 321.36373, 11.69433, 11.21619,
161 + 10.32451, 11.46538, 11.70046,
162 + .01580, .00812, 336.51235, 12.24962, 11.77860,
163 + 10.89667, 12.02209, 12.25576,
164 + .01603, .00824, 351.07943, 12.78911, 12.32420,
165 + 11.45036, 12.56293, 12.79526,
166 + .01627, .00837, 366.31234, 13.35414, 12.89667,
167 + 12.03371, 13.12927, 13.36029 /
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 + .00990, .00492, .93023, .59085, .00000,
170 + .00000, .31959, .59362,
171 + .01017, .00506, 1.93249, .62920, .00000,
172 + .00000, .36091, .63200,
173 + .01058, .00527, 3.81466, .70175, .01917,
174 + .00000, .43761, .70459,
175 + .01088, .00542, 5.45975, .76605, .10243,
176 + .00000, .50475, .76893,
177 + .01120, .00559, 7.54944, .84499, .19339,
178 + .00000, .58658, .84789,
179 + .01148, .00574, 9.64589, .92221, .27629,
180 + .00000, .66620, .92513,
181 + .01174, .00588, 11.94075, 1.00438, .36442,
182 + .00000, .75059, 1.00732,
183 + .01203, .00602, 14.69766, 1.10041, .46747,
184 + .00000, .84893, 1.10337 /
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 + .01228, .00616, 17.37765, 1.19141, .56561,
187 + .00000, .94187, 1.19438,
188 + .01252, .00629, 20.19652, 1.28639, .66622,
189 + .00000, 1.03868, 1.28939,
190 + .01271, .00639, 22.58607, 1.36664, .75004,
191 + .00000, 1.12035, 1.36964,
192 + .01313, .00661, 28.15013, 1.55283, .94552,
193 + .00000, 1.30951, 1.55587,
194 + .01349, .00681, 33.28788, 1.72959, 1.13048,
195 + .15514, 1.48872, 1.73264,
196 + .01391, .00703, 39.47154, 1.94496, 1.35471,
197 + .42547, 1.70675, 1.94803,
198 + .01434, .00726, 46.59206, 2.18968, 1.60852,
199 + .69304, 1.95414, 2.19277,
200 + .01474, .00748, 53.62043, 2.42962, 1.85680,
201 + .95570, 2.19644, 2.43274 /
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 + .01515, .00770, 61.26695, 2.69004, 2.12568,
204 + 1.23781, 2.45919, 2.69318,
205 + .01549, .00789, 68.01609, 2.92012, 2.36236,
206 + 1.48361, 2.69113, 2.92328,
207 + .01591, .00811, 76.66377, 3.21610, 2.66564,
208 + 1.79634, 2.98933, 3.21928,
209 + .01628, .00832, 84.76192, 3.49411, 2.95032,
210 + 2.09036, 3.26924, 3.49731,
211 + .01662, .00851, 92.59193, 3.76319, 3.22640,
212 + 2.37742, 3.54005, 3.76640,
213 + .01707, .00875, 102.93767, 4.12232, 3.59291,
214 + 2.75378, 3.90131, 4.12555,
215 + .01749, .00898, 113.10924, 4.47872, 3.95576,
216 + 3.12505, 4.25965, 4.48196,
217 + .01788, .00919, 123.08018, 4.83024, 4.31389,
218 + 3.49268, 4.61296, 4.83350 /
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 + .01828, .00942, 133.47171, 5.19904, 4.68971,
221 + 3.87903, 4.98351, 5.20232,
222 + .01867, .00963, 143.86815, 5.57379, 5.06965,
223 + 4.26566, 5.35994, 5.57708,
224 + .01905, .00985, 154.10395, 5.94467, 5.44645,
225 + 4.65122, 5.73237, 5.94797,
226 + .01941, .01004, 163.98741, 6.30670, 5.81359,
227 + 5.02563, 6.09585, 6.31002,
228 + .01977, .01024, 174.15869, 6.68297, 6.19485,
229 + 5.41416, 6.47355, 6.68631,
230 + .02012, .01045, 184.44794, 7.06653, 6.58363,
231 + 5.81078, 6.85849, 7.06988,
232 + .02047, .01063, 194.36186, 7.44097, 6.96232,
233 + 6.19563, 7.23421, 7.44433,
234 + .02080, .01082, 203.99855, 7.80712, 7.33297,
235 + 6.57319, 7.60157, 7.81050 /
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 + .02113, .01101, 213.82457, 8.18501, 7.71491,
238 + 6.96116, 7.98064, 8.18839,
239 + .02146, .01120, 223.72283, 8.56870, 8.10276,
240 + 7.35532, 8.36550, 8.57209,
241 + .02178, .01136, 233.31486, 8.94386, 8.48189,
242 + 7.74063, 8.74175, 8.94728,
243 + .02208, .01154, 242.48780, 9.30683, 8.84812,
244 + 8.11185, 9.10574, 9.31024,
245 + .02239, .01171, 252.04288, 9.68569, 9.23123,
246 + 8.50187, 9.48563, 9.68912 /
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 + .01199, .00602, .87158, .53974, .00000,
249 + .00000, .29201, .54150,
250 + .01233, .00618, 1.80373, .57542, .00000,
251 + .00000, .33028, .57720,
252 + .01282, .00644, 3.53451, .64177, .01779,
253 + .00000, .40026, .64357,
254 + .01318, .00664, 5.03046, .69988, .09302,
255 + .00000, .46085, .70170,
256 + .01358, .00684, 6.91342, .77061, .17460,
257 + .00000, .53410, .77245,
258 + .01391, .00701, 8.78656, .83931, .24841,
259 + .00000, .60488, .84116,
260 + .01424, .00719, 10.82228, .91203, .32641,
261 + .00000, .67954, .91389,
262 + .01458, .00737, 13.25099, .99657, .41714,
263 + .00000, .76608, .99846 /
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 + .01488, .00753, 15.59701, 1.07633, .50315,
266 + .00000, .84753, 1.07823,
267 + .01517, .00769, 18.05011, 1.15924, .59092,
268 + .00000, .93202, 1.16114,
269 + .01541, .00782, 20.11909, 1.22902, .66379,
270 + .00000, 1.00303, 1.23093,
271 + .01590, .00809, 24.90522, 1.39024, .83293,
272 + .00000, 1.16681, 1.39218,
273 + .01635, .00833, 29.28900, 1.54246, .99208,
274 + .13283, 1.32115, 1.54440,
275 + .01684, .00861, 34.52250, 1.72697, 1.18401,
276 + .36478, 1.50796, 1.72894,
277 + .01737, .00889, 40.50315, 1.93549, 1.40007,
278 + .59281, 1.71879, 1.93748,
279 + .01785, .00916, 46.36408, 2.13891, 1.61034,
280 + .81550, 1.92423, 2.14091 /
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 + .01834, .00942, 52.69814, 2.35863, 1.83697,
283 + 1.05348, 2.14596, 2.36065,
284 + .01875, .00965, 58.25545, 2.55192, 2.03559,
285 + 1.25990, 2.34086, 2.55396,
286 + .01925, .00993, 65.33386, 2.79950, 2.28900,
287 + 1.52137, 2.59035, 2.80156,
288 + .01970, .01018, 71.92415, 3.03107, 2.52587,
289 + 1.76614, 2.82355, 3.03315,
290 + .02011, .01040, 78.26498, 3.25439, 2.75477,
291 + 2.00428, 3.04835, 3.25648,
292 + .02064, .01070, 86.59539, 3.55119, 3.05735,
293 + 2.31512, 3.34698, 3.55330,
294 + .02115, .01098, 94.73757, 3.84445, 3.35561,
295 + 2.62039, 3.64192, 3.84659,
296 + .02161, .01124, 102.67831, 4.13258, 3.64886,
297 + 2.92152, 3.93158, 4.13473 /
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 + .02210, .01151, 110.91375, 4.43377, 3.95550,
300 + 3.23687, 4.23426, 4.43594,
301 + .02256, .01177, 119.10916, 4.73860, 4.26425,
302 + 3.55109, 4.54054, 4.74079,
303 + .02302, .01202, 127.14385, 5.03929, 4.56947,
304 + 3.86349, 4.84257, 5.04149,
305 + .02344, .01226, 134.86764, 5.33184, 4.86587,
306 + 4.16581, 5.13636, 5.33406,
307 + .02388, .01250, 142.78351, 5.63492, 5.17274,
308 + 4.47856, 5.44067, 5.63717,
309 + .02430, .01274, 150.76048, 5.94298, 5.48473,
310 + 4.79690, 5.74990, 5.94524,
311 + .02471, .01297, 158.41447, 6.24276, 5.78766,
312 + 5.10479, 6.05079, 6.24504,
313 + .02511, .01319, 165.83014, 6.53516, 6.08344,
314 + 5.40612, 6.34421, 6.53745 /
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 + .02550, .01341, 173.36306, 6.83607, 6.38734,
317 + 5.71485, 6.64615, 6.83839,
318 + .02589, .01363, 180.92657, 7.14083, 6.69518,
319 + 6.02774, 6.95191, 7.14316,
320 + .02627, .01384, 188.23205, 7.43806, 6.99535,
321 + 6.33282, 7.25008, 7.44041,
322 + .02663, .01405, 195.19448, 7.72489, 7.28456,
323 + 6.62599, 7.53779, 7.72725,
324 + .02700, .01425, 202.43064, 8.02372, 7.58657,
325 + 6.93351, 7.83751, 8.02610 /
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 + .01376, .00693, .83174, .50621, .00000,
328 + .00000, .27398, .50744,
329 + .01412, .00713, 1.71726, .54004, .00000,
330 + .00000, .31019, .54128,
331 + .01470, .00743, 3.34792, .60230, .01689,
332 + .00000, .37574, .60356,
333 + .01512, .00765, 4.74623, .65633, .08687,
334 + .00000, .43203, .65760,
335 + .01556, .00789, 6.49468, .72172, .16235,
336 + .00000, .49970, .72299,
337 + .01594, .00810, 8.22338, .78491, .23027,
338 + .00000, .56478, .78619,
339 + .01631, .00830, 10.09245, .85150, .30175,
340 + .00000, .63314, .85281,
341 + .01670, .00852, 12.31123, .92867, .38461,
342 + .00000, .71212, .92998 /
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 + .01706, .00870, 14.44466, 1.00123, .46288,
345 + .00000, .78621, 1.00256,
346 + .01738, .00888, 16.66602, 1.07643, .54250,
347 + .00000, .86284, 1.07776,
348 + .01765, .00903, 18.53266, 1.13956, .60842,
349 + .00000, .92710, 1.14090,
350 + .01822, .00933, 22.83041, 1.28496, .76096,
351 + .00000, 1.07480, 1.28631,
352 + .01872, .00962, 26.74438, 1.42169, .90390,
353 + .11874, 1.21345, 1.42306,
354 + .01929, .00992, 31.38915, 1.58685, 1.07566,
355 + .32674, 1.38068, 1.58824,
356 + .01990, .01026, 36.66785, 1.77276, 1.26824,
357 + .53022, 1.56867, 1.77417,
358 + .02045, .01056, 41.81406, 1.95345, 1.45498,
359 + .72820, 1.75120, 1.95487 /
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 + .02101, .01088, 47.34896, 2.14796, 1.65555,
362 + .93903, 1.94752, 2.14943,
363 + .02147, .01113, 52.18413, 2.31856, 1.83079,
364 + 1.12131, 2.11956, 2.32003,
365 + .02204, .01145, 58.31623, 2.53639, 2.05366,
366 + 1.35145, 2.33911, 2.53789,
367 + .02255, .01174, 64.00164, 2.73951, 2.26136,
368 + 1.56625, 2.54372, 2.74102,
369 + .02302, .01199, 69.45243, 2.93489, 2.46157,
370 + 1.77471, 2.74042, 2.93643,
371 + .02362, .01234, 76.58389, 3.19378, 2.72540,
372 + 2.04591, 3.00096, 3.19534,
373 + .02419, .01265, 83.52451, 3.44879, 2.98465,
374 + 2.31142, 3.25746, 3.45036,
375 + .02473, .01295, 90.26823, 3.69863, 3.23886,
376 + 2.57262, 3.50869, 3.70023 /
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 + .02528, .01325, 97.23781, 3.95910, 3.50399,
379 + 2.84545, 3.77051, 3.96072,
380 + .02581, .01355, 104.14633, 4.22198, 3.77015,
381 + 3.11645, 4.03469, 4.22363,
382 + .02631, .01385, 110.89855, 4.48068, 4.03267,
383 + 3.38529, 4.29459, 4.48234,
384 + .02680, .01411, 117.36865, 4.73177, 4.28699,
385 + 3.64483, 4.54679, 4.73345,
386 + .02729, .01439, 123.97963, 4.99132, 4.54970,
387 + 3.91271, 4.80744, 4.99302,
388 + .02778, .01466, 130.62317, 5.25455, 4.81624,
389 + 4.18481, 5.07173, 5.25627,
390 + .02824, .01493, 136.97819, 5.51014, 5.07445,
391 + 4.44735, 5.32832, 5.51189,
392 + .02868, .01517, 143.12088, 5.75897, 5.32611,
393 + 4.70386, 5.57808, 5.76074 /
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 + .02913, .01542, 149.34326, 6.01454, 5.58414,
396 + 4.96610, 5.83456, 6.01633,
397 + .02957, .01567, 155.57614, 6.27289, 5.84506,
398 + 5.23140, 6.09380, 6.27469,
399 + .03000, .01591, 161.58191, 6.52440, 6.09901,
400 + 5.48963, 6.34616, 6.52622,
401 + .03040, .01615, 167.29133, 6.76666, 6.34324,
402 + 5.73729, 6.58922, 6.76851,
403 + .03081, .01637, 173.21547, 7.01871, 6.59794,
404 + 5.99677, 6.84205, 7.02057 /
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 + .01528, .00774, .80189, .48166, .00000,
407 + .00000, .26082, .48253,
408 + .01571, .00797, 1.65286, .51414, .00000,
409 + .00000, .29548, .51501,
410 + .01634, .00831, 3.20981, .57335, .01624,
411 + .00000, .35778, .57424,
412 + .01680, .00856, 4.53685, .62440, .08237,
413 + .00000, .41093, .62529,
414 + .01729, .00882, 6.18754, .68588, .15341,
415 + .00000, .47453, .68679,
416 + .01772, .00905, 7.81177, .74505, .21706,
417 + .00000, .53547, .74599,
418 + .01813, .00927, 9.56071, .80724, .28385,
419 + .00000, .59929, .80818,
420 + .01857, .00951, 11.62875, .87908, .36103,
421 + .00000, .67282, .88003 /
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 + .01895, .00972, 13.61010, .94648, .43376,
424 + .00000, .74163, .94743,
425 + .01932, .00993, 15.66619, 1.01614, .50755,
426 + .00000, .81264, 1.01711,
427 + .01962, .01009, 17.38901, 1.07451, .56851,
428 + .00000, .87204, 1.07550,
429 + .02025, .01043, 21.34091, 1.20862, .70923,
430 + .00000, 1.00829, 1.20963,
431 + .02081, .01075, 24.92418, 1.33436, .84070,
432 + .10872, 1.13581, 1.33538,
433 + .02145, .01110, 29.15660, 1.48580, .99821,
434 + .29980, 1.28916, 1.48683,
435 + .02211, .01147, 33.94572, 1.65573, 1.17426,
436 + .48602, 1.46104, 1.65680,
437 + .02271, .01180, 38.59547, 1.82044, 1.34448,
438 + .66669, 1.62745, 1.82153 /
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 + .02334, .01215, 43.57749, 1.99729, 1.52682,
441 + .85854, 1.80596, 1.99840,
442 + .02385, .01244, 47.91467, 2.15200, 1.68574,
443 + 1.02399, 1.96201, 2.15313,
444 + .02448, .01280, 53.39663, 2.34908, 1.88738,
445 + 1.23238, 2.16068, 2.35023,
446 + .02505, .01311, 58.46244, 2.53242, 2.07483,
447 + 1.42640, 2.34539, 2.53360,
448 + .02557, .01340, 63.30567, 2.70841, 2.25516,
449 + 1.61432, 2.52261, 2.70960,
450 + .02622, .01377, 69.62133, 2.94105, 2.49224,
451 + 1.85820, 2.75677, 2.94227,
452 + .02686, .01412, 75.74732, 3.16964, 2.72462,
453 + 2.09635, 2.98676, 3.17089,
454 + .02745, .01445, 81.68210, 3.39312, 2.95199,
455 + 2.33015, 3.21151, 3.39440 /
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 + .02805, .01479, 87.79851, 3.62562, 3.18865,
458 + 2.57385, 3.44527, 3.62693,
459 + .02864, .01513, 93.84247, 3.85976, 3.42568,
460 + 2.81534, 3.68060, 3.86109,
461 + .02920, .01544, 99.73538, 4.08974, 3.65906,
462 + 3.05450, 3.91169, 4.09109,
463 + .02973, .01574, 105.36778, 4.31253, 3.88472,
464 + 3.28492, 4.13551, 4.31391,
465 + .03027, .01604, 111.10889, 4.54242, 4.11740,
466 + 3.52233, 4.36642, 4.54383,
467 + .03080, .01635, 116.86572, 4.77520, 4.35310,
468 + 3.76308, 4.60017, 4.77662,
469 + .03131, .01664, 122.35898, 5.00081, 4.58101,
470 + 3.99495, 4.82670, 5.00226,
471 + .03180, .01692, 127.65862, 5.22013, 4.80283,
472 + 4.22118, 5.04689, 5.22161 /
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 + .03229, .01718, 133.01532, 5.44503, 5.02990,
475 + 4.45208, 5.27262, 5.44652,
476 + .03278, .01746, 138.37084, 5.67204, 5.25918,
477 + 4.68535, 5.50047, 5.67356,
478 + .03325, .01773, 143.52128, 5.89274, 5.48202,
479 + 4.91206, 5.72195, 5.89428,
480 + .03370, .01798, 148.40790, 6.10501, 5.69602,
481 + 5.12918, 5.93496, 6.10657,
482 + .03415, .01824, 153.47189, 6.32562, 5.91897,
483 + 5.35644, 6.15629, 6.32721 /
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 + .02129, .01099, .71412, .41282, .00000,
486 + .00000, .22415, .41316,
487 + .02188, .01130, 1.46655, .44126, .00000,
488 + .00000, .25439, .44162,
489 + .02274, .01178, 2.81510, .49174, .01440,
490 + .00000, .30737, .49213,
491 + .02338, .01212, 3.94211, .53437, .06975,
492 + .00000, .35170, .53477,
493 + .02406, .01250, 5.32082, .58496, .12843,
494 + .00000, .40400, .58537,
495 + .02465, .01282, 6.65668, .63303, .18030,
496 + .00000, .45350, .63346,
497 + .02522, .01314, 8.07650, .68305, .23421,
498 + .00000, .50483, .68351,
499 + .02581, .01347, 9.73439, .74033, .29593,
500 + .00000, .56347, .74081 /
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 + .02634, .01377, 11.30458, .79364, .35361,
503 + .00000, .61792, .79413,
504 + .02685, .01405, 12.91661, .84833, .41169,
505 + .00000, .67368, .84884,
506 + .02725, .01428, 14.25491, .89386, .45936,
507 + .00000, .72006, .89439,
508 + .02812, .01477, 17.28851, .99767, .56852,
509 + .00000, .82557, .99823,
510 + .02890, .01520, 20.00138, 1.09407, .66953,
511 + .08179, .92341, 1.09467,
512 + .02976, .01569, 23.15555, 1.20914, .78944,
513 + .22825, 1.04002, 1.20978,
514 + .03067, .01620, 26.67521, 1.33705, .92218,
515 + .36928, 1.16947, 1.33772,
516 + .03150, .01667, 30.04775, 1.45991, 1.04935,
517 + .50487, 1.29368, 1.46062 /
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 + .03235, .01715, 33.61745, 1.59072, 1.18444,
520 + .64762, 1.42583, 1.59147,
521 + .03305, .01755, 36.69105, 1.70428, 1.30126,
522 + .76973, 1.54047, 1.70507,
523 + .03392, .01804, 40.53370, 1.84786, 1.44835,
524 + .92234, 1.68531, 1.84868,
525 + .03468, .01848, 44.04697, 1.98042, 1.58406,
526 + 1.06336, 1.81896, 1.98128,
527 + .03538, .01887, 47.37591, 2.10686, 1.71380,
528 + 1.19910, 1.94637, 2.10776,
529 + .03629, .01939, 51.67095, 2.27275, 1.88306,
530 + 1.37384, 2.11348, 2.27368,
531 + .03714, .01987, 55.79175, 2.43449, 2.04768,
532 + 1.54314, 2.27632, 2.43547,
533 + .03794, .02033, 59.74630, 2.59153, 2.20764,
534 + 1.70821, 2.43438, 2.59256 /
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 + .03875, .02079, 63.78553, 2.75385, 2.37307,
537 + 1.87917, 2.59769, 2.75492,
538 + .03954, .02124, 67.73639, 2.91615, 2.53754,
539 + 2.04728, 2.76093, 2.91725,
540 + .04030, .02168, 71.55868, 3.07462, 2.69856,
541 + 2.21284, 2.92029, 3.07577,
542 + .04102, .02209, 75.18152, 3.22723, 2.85331,
543 + 2.37138, 3.07372, 3.22842,
544 + .04174, .02251, 78.84567, 3.38383, 3.01198,
545 + 2.53379, 3.23111, 3.38504,
546 + .04246, .02291, 82.49369, 3.54153, 3.17185,
547 + 2.69763, 3.38960, 3.54279,
548 + .04315, .02330, 85.94668, 3.69351, 3.32556,
549 + 2.85448, 3.54231, 3.69482,
550 + .04380, .02368, 89.25805, 3.84059, 3.47449,
551 + 3.00685, 3.69008, 3.84193 /
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 + .04446, .02405, 92.58047, 3.99062, 3.62615,
554 + 3.16154, 3.84079, 3.99200,
555 + .04511, .02442, 95.88177, 4.14138, 3.77859,
556 + 3.31711, 3.99220, 4.14279,
557 + .04574, .02478, 99.03690, 4.28727, 3.92607,
558 + 3.46762, 4.13871, 4.28872,
559 + .04632, .02512, 102.01039, 4.42693, 4.06703,
560 + 3.61105, 4.27896, 4.42842,
561 + .04693, .02546, 105.07972, 4.57159, 4.21342,
562 + 3.76076, 4.42420, 4.57311 /
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 + .02982, .01567, .63294, .35426, .00000,
565 + .00000, .19331, .35480,
566 + .03060, .01611, 1.29913, .37895, .00000,
567 + .00000, .21951, .37952,
568 + .03176, .01674, 2.46697, .42163, .01286,
569 + .00000, .26427, .42225,
570 + .03263, .01723, 3.42298, .45691, .05890,
571 + .00000, .30099, .45758,
572 + .03355, .01775, 4.57195, .49815, .10705,
573 + .00000, .34367, .49887,
574 + .03434, .01819, 5.66711, .53684, .14903,
575 + .00000, .38355, .53761,
576 + .03511, .01863, 6.81507, .57671, .19222,
577 + .00000, .42451, .57750,
578 + .03593, .01910, 8.13771, .62194, .24122,
579 + .00000, .47087, .62278 /
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 + .03665, .01951, 9.37517, .66369, .28665,
582 + .00000, .51359, .66457,
583 + .03734, .01990, 10.63119, .70621, .33201,
584 + .00000, .55700, .70712,
585 + .03789, .02022, 11.66369, .74138, .36900,
586 + .00000, .59285, .74232,
587 + .03908, .02089, 13.97478, .82092, .45305,
588 + .00000, .67382, .82193,
589 + .04013, .02150, 16.01320, .89409, .53006,
590 + .06008, .74818, .89516,
591 + .04131, .02218, 18.34105, .98064, .62063,
592 + .17167, .83600, .98177,
593 + .04255, .02289, 20.90036, 1.07589, .71990,
594 + .27780, .93255, 1.07710,
595 + .04367, .02354, 23.31838, 1.16655, .81412,
596 + .37891, 1.02434, 1.16783 /
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 + .04483, .02420, 25.84459, 1.26225, .91333,
599 + .48441, 1.12114, 1.26359,
600 + .04578, .02475, 27.99411, 1.34468, .99845,
601 + .57392, 1.20447, 1.34609,
602 + .04695, .02543, 30.65001, 1.44808, 1.10476,
603 + .68488, 1.30892, 1.44956,
604 + .04799, .02603, 33.05062, 1.54281, 1.20209,
605 + .78662, 1.40456, 1.54435,
606 + .04894, .02658, 35.30357, 1.63256, 1.29453,
607 + .88393, 1.49513, 1.63416,
608 + .05016, .02728, 38.17687, 1.74941, 1.41416,
609 + 1.00815, 1.61299, 1.75109,
610 + .05131, .02795, 40.90115, 1.86242, 1.52954,
611 + 1.12749, 1.72692, 1.86417,
612 + .05240, .02857, 43.48892, 1.97136, 1.64089,
613 + 1.24307, 1.83671, 1.97318 /
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 + .05349, .02920, 46.10662, 2.08320, 1.75526,
616 + 1.36195, 1.94938, 2.08509,
617 + .05455, .02981, 48.63818, 2.19418, 1.86806,
618 + 1.47787, 2.06116, 2.19614,
619 + .05557, .03040, 51.06693, 2.30190, 1.97786,
620 + 1.59141, 2.16962, 2.30393,
621 + .05653, .03095, 53.34794, 2.40498, 2.08271,
622 + 1.69941, 2.27338, 2.40707,
623 + .05750, .03150, 55.63508, 2.51011, 2.18957,
624 + 1.80939, 2.37918, 2.51226,
625 + .05845, .03206, 57.89449, 2.61540, 2.29665,
626 + 1.91974, 2.48514, 2.61762,
627 + .05937, .03258, 60.01378, 2.71627, 2.39895,
628 + 2.02470, 2.58662, 2.71856,
629 + .06023, .03309, 62.03292, 2.81342, 2.49762,
630 + 2.12620, 2.68433, 2.81575 /
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 + .06112, .03359, 64.04207, 2.91196, 2.59752,
633 + 2.22864, 2.78345, 2.91436,
634 + .06198, .03409, 66.02483, 3.01051, 2.69747,
635 + 2.33119, 2.88255, 3.01296,
636 + .06281, .03456, 67.90659, 3.10541, 2.79370,
637 + 2.42992, 2.97797, 3.10792,
638 + .06360, .03501, 69.66651, 3.19581, 2.88520,
639 + 2.52351, 3.06886, 3.19837,
640 + .06441, .03547, 71.47571, 3.28912, 2.97993,
641 + 2.62091, 3.16266, 3.29174 /
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 + .03634, .01931, .58857, .32431, .00000,
644 + .00000, .17770, .32525,
645 + .03726, .01981, 1.20962, .34689, .00000,
646 + .00000, .20167, .34790,
647 + .03864, .02059, 2.28290, .38534, .01209,
648 + .00000, .24204, .38643,
649 + .03968, .02117, 3.15042, .41674, .05324,
650 + .00000, .27474, .41789,
651 + .04076, .02180, 4.18138, .45314, .09592,
652 + .00000, .31246, .45435,
653 + .04171, .02234, 5.15402, .48702, .13282,
654 + .00000, .34742, .48829,
655 + .04263, .02287, 6.16471, .52172, .17058,
656 + .00000, .38312, .52305,
657 + .04360, .02343, 7.31951, .56087, .21317,
658 + .00000, .42332, .56226 /
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 + .04446, .02392, 8.39171, .59684, .25245,
661 + .00000, .46017, .59828,
662 + .04529, .02441, 9.47224, .63330, .29152,
663 + .00000, .49745, .63480,
664 + .04596, .02479, 10.35501, .66335, .32323,
665 + .00000, .52812, .66490,
666 + .04737, .02562, 12.31554, .73099, .39498,
667 + .00000, .59708, .73263,
668 + .04863, .02634, 14.03063, .79286, .46033,
669 + .04934, .66004, .79458,
670 + .05004, .02716, 15.96627, .86564, .53677,
671 + .14409, .73401, .86746,
672 + .05152, .02802, 18.07457, .94528, .62005,
673 + .23354, .81482, .94720,
674 + .05287, .02880, 20.04892, 1.02065, .69864,
675 + .31828, .89124, 1.02265 /
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 + .05424, .02961, 22.09470, 1.09979, .78097,
678 + .40622, .97141, 1.10189,
679 + .05538, .03026, 23.82243, 1.16765, .85126,
680 + .48048, 1.04009, 1.16983,
681 + .05677, .03108, 25.94130, 1.25235, .93862,
682 + .57207, 1.12576, 1.25463,
683 + .05801, .03180, 27.84266, 1.32958, 1.01822,
684 + .65566, 1.20383, 1.33195,
685 + .05914, .03246, 29.61634, 1.40247, 1.09352,
686 + .73529, 1.27748, 1.40491,
687 + .06060, .03330, 31.86162, 1.49690, 1.19048,
688 + .83642, 1.37284, 1.49945,
689 + .06197, .03409, 33.97434, 1.58778, 1.28353,
690 + .93309, 1.46458, 1.59042,
691 + .06325, .03484, 35.96819, 1.67500, 1.37294,
692 + 1.02631, 1.55258, 1.67774 /
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 + .06454, .03559, 37.97270, 1.76417, 1.46438,
695 + 1.12179, 1.64253, 1.76700,
696 + .06580, .03631, 39.89688, 1.85224, 1.55414,
697 + 1.21443, 1.73134, 1.85515,
698 + .06701, .03701, 41.73313, 1.93740, 1.64118,
699 + 1.30484, 1.81719, 1.94040,
700 + .06815, .03767, 43.44735, 2.01858, 1.72398,
701 + 1.39051, 1.89900, 2.02166,
702 + .06929, .03833, 45.15654, 2.10105, 1.80804,
703 + 1.47739, 1.98211, 2.10423,
704 + .07042, .03898, 46.83656, 2.18339, 1.89200,
705 + 1.56430, 2.06506, 2.18664,
706 + .07150, .03960, 48.40290, 2.26196, 1.97190,
707 + 1.64662, 2.14420, 2.26529,
708 + .07252, .04019, 49.88898, 2.33740, 2.04873,
709 + 1.72601, 2.22017, 2.34080 /
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 + .07355, .04078, 51.35947, 2.41366, 2.12626,
712 + 1.80584, 2.29697, 2.41714,
713 + .07457, .04137, 52.80423, 2.48970, 2.20358,
714 + 1.88553, 2.37353, 2.49326,
715 + .07555, .04193, 54.16900, 2.56271, 2.27781,
716 + 1.96201, 2.44702, 2.56634,
717 + .07648, .04246, 55.43881, 2.63203, 2.34815,
718 + 2.03427, 2.51680, 2.63573,
719 + .07743, .04300, 56.74094, 2.70343, 2.42084,
720 + 2.10935, 2.58867, 2.70719 /
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 + .04181, .02235, .55966, .30459, .00000,
723 + .00000, .16759, .30606,
724 + .04284, .02293, 1.15081, .32575, .00000,
725 + .00000, .19004, .32727,
726 + .04439, .02383, 2.16126, .36137, .01158,
727 + .00000, .22747, .36299,
728 + .04555, .02449, 2.97011, .39023, .04948,
729 + .00000, .25756, .39192,
730 + .04679, .02521, 3.92331, .42344, .08854,
731 + .00000, .29201, .42522,
732 + .04787, .02583, 4.81562, .45420, .12213,
733 + .00000, .32380, .45605,
734 + .04891, .02643, 5.73684, .48558, .15634,
735 + .00000, .35612, .48749,
736 + .05001, .02708, 6.78287, .52083, .19478,
737 + .00000, .39235, .52281 /
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 + .05099, .02764, 7.74853, .55310, .23013,
740 + .00000, .42546, .55515,
741 + .05194, .02820, 8.71649, .58572, .26515,
742 + .00000, .45883, .58782,
743 + .05268, .02864, 9.50363, .61251, .29352,
744 + .00000, .48623, .61467,
745 + .05430, .02958, 11.24149, .67263, .35744,
746 + .00000, .54760, .67490,
747 + .05572, .03042, 12.75274, .72739, .41543,
748 + .04262, .60338, .72976,
749 + .05732, .03136, 14.44284, .79155, .48298,
750 + .12675, .66867, .79405,
751 + .05900, .03234, 16.27090, .86146, .55625,
752 + .20573, .73969, .86406,
753 + .06053, .03324, 17.97138, .92734, .62513,
754 + .28027, .80657, .93006 /
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 + .06209, .03415, 19.72252, .99626, .69699,
757 + .35733, .87647, .99910,
758 + .06339, .03491, 21.19308, 1.05514, .75812,
759 + .42214, .93612, 1.05807,
760 + .06496, .03582, 22.98638, 1.12837, .83382,
761 + .50180, 1.01028, 1.13141,
762 + .06635, .03665, 24.58679, 1.19491, .90256,
763 + .57424, 1.07763, 1.19805,
764 + .06764, .03740, 26.07290, 1.25752, .96740,
765 + .64307, 1.14096, 1.26076,
766 + .06928, .03835, 27.94355, 1.33836, 1.05057,
767 + .73014, 1.22267, 1.34171,
768 + .07082, .03924, 29.69357, 1.41584, 1.13008,
769 + .81305, 1.30099, 1.41932,
770 + .07228, .04009, 31.33696, 1.48998, 1.20624,
771 + .89274, 1.37587, 1.49355 /
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 + .07373, .04094, 32.98138, 1.56552, 1.28390,
774 + .97413, 1.45216, 1.56922,
775 + .07515, .04176, 34.55081, 1.63988, 1.35984,
776 + 1.05279, 1.52722, 1.64367,
777 + .07651, .04255, 36.04249, 1.71157, 1.43330,
778 + 1.12937, 1.59958, 1.71548,
779 + .07778, .04329, 37.42858, 1.77971, 1.50295,
780 + 1.20169, 1.66834, 1.78371,
781 + .07907, .04402, 38.80456, 1.84876, 1.57347,
782 + 1.27486, 1.73799, 1.85285,
783 + .08034, .04476, 40.15186, 1.91751, 1.64372,
784 + 1.34784, 1.80731, 1.92170,
785 + .08154, .04546, 41.40200, 1.98291, 1.71038,
786 + 1.41678, 1.87326, 1.98720,
787 + .08269, .04611, 42.58428, 2.04558, 1.77435,
788 + 1.48311, 1.93645, 2.04995 /
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 + .08385, .04678, 43.74900, 2.10877, 1.83872,
791 + 1.54965, 2.00015, 2.11322,
792 + .08499, .04744, 44.88939, 2.17162, 1.90278,
793 + 1.61590, 2.06350, 2.17616,
794 + .08607, .04806, 45.96268, 2.23182, 1.96413,
795 + 1.67936, 2.12418, 2.23645,
796 + .08711, .04865, 46.95713, 2.28886, 2.02213,
797 + 1.73915, 2.18166, 2.29356,
798 + .08817, .04926, 47.97505, 2.34751, 2.08198,
799 + 1.80120, 2.24076, 2.35230 /
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 + .04664, .02515, .53915, .29068, .00000,
802 + .00000, .16022, .29227,
803 + .04775, .02580, 1.10856, .31073, .00000,
804 + .00000, .18147, .31239,
805 + .04947, .02678, 2.07250, .34420, .01120,
806 + .00000, .21662, .34597,
807 + .05075, .02752, 2.83783, .37112, .04663,
808 + .00000, .24469, .37298,
809 + .05212, .02832, 3.73324, .40196, .08299,
810 + .00000, .27669, .40391,
811 + .05330, .02902, 4.56597, .43040, .11410,
812 + .00000, .30608, .43242,
813 + .05444, .02968, 5.42092, .45929, .14569,
814 + .00000, .33587, .46140,
815 + .05567, .03040, 6.38658, .49167, .18108,
816 + .00000, .36918, .49387 /
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 + .05675, .03104, 7.27378, .52125, .21352,
819 + .00000, .39952, .52352,
820 + .05780, .03165, 8.15909, .55103, .24559,
821 + .00000, .43005, .55339,
822 + .05862, .03214, 8.87626, .57547, .27150,
823 + .00000, .45504, .57788,
824 + .06040, .03319, 10.45185, .63013, .32973,
825 + .00000, .51087, .63267,
826 + .06197, .03411, 11.81510, .67975, .38237,
827 + .03786, .56146, .68240,
828 + .06374, .03515, 13.32837, .73770, .44351,
829 + .11428, .62047, .74049,
830 + .06560, .03624, 14.95547, .80061, .50957,
831 + .18571, .68445, .80353,
832 + .06728, .03723, 16.46059, .85970, .57146,
833 + .25290, .74448, .86275 /
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 + .06899, .03823, 18.00246, .92133, .63583,
836 + .32212, .80702, .92451,
837 + .07042, .03907, 19.29111, .97381, .69042,
838 + .38018, .86026, .97711,
839 + .07214, .04008, 20.85512, 1.03891, .75783,
840 + .45131, .92622, 1.04233,
841 + .07368, .04098, 22.24438, 1.09788, .81886,
842 + .51583, .98596, 1.10141,
843 + .07509, .04181, 23.52946, 1.15322, .87628,
844 + .57696, 1.04199, 1.15687,
845 + .07689, .04285, 25.13916, 1.22446, .94972,
846 + .65407, 1.11409, 1.22825,
847 + .07858, .04384, 26.63782, 1.29255, 1.01972,
848 + .72727, 1.18295, 1.29647,
849 + .08017, .04476, 28.03921, 1.35751, 1.08657,
850 + .79744, 1.24863, 1.36155 /
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 + .08176, .04568, 29.43574, 1.42355, 1.15457,
853 + .86892, 1.31537, 1.42771,
854 + .08331, .04658, 30.76205, 1.48833, 1.22086,
855 + .93779, 1.38082, 1.49261,
856 + .08480, .04744, 32.01839, 1.55066, 1.28483,
857 + 1.00468, 1.44379, 1.55506,
858 + .08619, .04824, 33.18126, 1.60976, 1.34535,
859 + 1.06771, 1.50347, 1.61427,
860 + .08759, .04905, 34.33115, 1.66950, 1.40647,
861 + 1.13131, 1.56379, 1.67411,
862 + .08898, .04984, 35.45319, 1.72884, 1.46724,
863 + 1.19463, 1.62369, 1.73356,
864 + .09028, .05060, 36.48999, 1.78517, 1.52475,
865 + 1.25429, 1.68054, 1.78999,
866 + .09153, .05131, 37.46785, 1.83903, 1.57985,
867 + 1.31159, 1.73491, 1.84395 /
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 + .09279, .05203, 38.42753, 1.89323, 1.63516,
870 + 1.36894, 1.78959, 1.89825,
871 + .09403, .05274, 39.36441, 1.94704, 1.69011,
872 + 1.42595, 1.84388, 1.95215,
873 + .09521, .05342, 40.24320, 1.99848, 1.74263,
874 + 1.48044, 1.89577, 2.00369,
875 + .09633, .05406, 41.05423, 2.04710, 1.79218,
876 + 1.53168, 1.94482, 2.05241,
877 + .09748, .05470, 41.88317, 2.09705, 1.84325,
878 + 1.58480, 1.99520, 2.10245 /
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 + .06558, .03634, .47695, .25235, .00000,
881 + .00000, .14044, .25510,
882 + .06706, .03722, .98524, .26896, .00000,
883 + .00000, .15806, .27182,
884 + .06935, .03859, 1.81732, .29600, .01017,
885 + .00000, .18653, .29902,
886 + .07108, .03962, 2.45988, .31732, .03855,
887 + .00000, .20883, .32048,
888 + .07293, .04072, 3.19338, .34140, .06728,
889 + .00000, .23391, .34470,
890 + .07453, .04168, 3.86051, .36332, .09150,
891 + .00000, .25665, .36674,
892 + .07608, .04261, 4.53281, .38538, .11585,
893 + .00000, .27947, .38892,
894 + .07775, .04360, 5.27878, .40986, .14287,
895 + .00000, .30474, .41354 /
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 + .07920, .04448, 5.95309, .43204, .16744,
898 + .00000, .32759, .43583,
899 + .08062, .04533, 6.61582, .45420, .19152,
900 + .00000, .35039, .45811,
901 + .08175, .04600, 7.14566, .47224, .21082,
902 + .00000, .36892, .47623,
903 + .08416, .04743, 8.29037, .51230, .25388,
904 + .00000, .40999, .51648,
905 + .08629, .04869, 9.26500, .54825, .29238,
906 + .02515, .44679, .55261,
907 + .08866, .05010, 10.31788, .58981, .33662,
908 + .08122, .48929, .59437,
909 + .09115, .05157, 11.42749, .63442, .38387,
910 + .13288, .53482, .63919,
911 + .09342, .05289, 12.43438, .67587, .42766,
912 + .18095, .57710, .68081 /
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 + .09570, .05423, 13.44754, .71864, .47272,
915 + .22997, .62068, .72377,
916 + .09760, .05535, 14.28049, .75472, .51058,
917 + .27067, .65743, .76001,
918 + .09991, .05669, 15.27475, .79903, .55686,
919 + .32008, .70251, .80452,
920 + .10194, .05788, 16.14381, .83879, .59835,
921 + .36445, .74295, .84444,
922 + .10381, .05896, 16.93708, .87580, .63709,
923 + .40617, .78057, .88160,
924 + .10618, .06033, 17.91383, .92296, .68613,
925 + .45826, .82851, .92897,
926 + .10840, .06162, 18.80742, .96757, .73238,
927 + .50719, .87382, .97376,
928 + .11048, .06281, 19.63074, 1.00975, .77616,
929 + .55369, .91664, 1.01611 /
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 + .11257, .06400, 20.43964, 1.05225, .82032,
932 + .60066, .95977, 1.05878,
933 + .11459, .06516, 21.19385, 1.09351, .86292,
934 + .64545, 1.00165, 1.10021,
935 + .11650, .06625, 21.89968, 1.13292, .90372,
936 + .68863, 1.04162, 1.13978,
937 + .11831, .06728, 22.54342, 1.16996, .94199,
938 + .72898, 1.07920, 1.17697,
939 + .12012, .06831, 23.17117, 1.20711, .98035,
940 + .76939, 1.11687, 1.21426,
941 + .12190, .06931, 23.77634, 1.24374, 1.01821,
942 + .80933, 1.15401, 1.25104,
943 + .12358, .07027, 24.32669, 1.27822, 1.05375,
944 + .84666, 1.18897, 1.28566,
945 + .12517, .07117, 24.84060, 1.31099, 1.08758,
946 + .88229, 1.22219, 1.31856 /
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 + .12677, .07206, 25.33740, 1.34370, 1.12129,
949 + .91769, 1.25535, 1.35141,
950 + .12835, .07294, 25.81693, 1.37597, 1.15457,
951 + .95266, 1.28807, 1.38381,
952 + .12985, .07379, 26.26122, 1.40662, 1.18617,
953 + .98588, 1.31913, 1.41458,
954 + .13127, .07458, 26.66518, 1.43538, 1.21576,
955 + 1.01689, 1.34828, 1.44345,
956 + .13271, .07539, 27.07608, 1.46480, 1.24616,
957 + 1.04891, 1.37810, 1.47299 /
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 + .09249, .05269, .42059, .22154, .00000,
960 + .00000, .12480, .22616,
961 + .09447, .05391, .87657, .23464, .00000,
962 + .00000, .13878, .23942,
963 + .09754, .05580, 1.59274, .25555, .00937,
964 + .00000, .16092, .26059,
965 + .09987, .05721, 2.12818, .27182, .03145,
966 + .00000, .17803, .27705,
967 + .10236, .05873, 2.72171, .28995, .05349,
968 + .00000, .19704, .29540,
969 + .10452, .06004, 3.24748, .30628, .07181,
970 + .00000, .21409, .31192,
971 + .10663, .06130, 3.76577, .32257, .09008,
972 + .00000, .23104, .32838,
973 + .10888, .06266, 4.32891, .34049, .11016,
974 + .00000, .24966, .34650 /
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 + .11086, .06385, 4.82833, .35657, .12827,
977 + .00000, .26635, .36276,
978 + .11277, .06499, 5.31040, .37254, .14586,
979 + .00000, .28288, .37890,
980 + .11428, .06589, 5.68982, .38544, .15988,
981 + .00000, .29622, .39194,
982 + .11753, .06780, 6.49354, .41384, .19084,
983 + .00000, .32553, .42062,
984 + .12037, .06948, 7.16564, .43904, .21821,
985 + .01526, .35151, .44607,
986 + .12354, .07133, 7.86675, .46787, .24932,
987 + .05536, .38116, .47517,
988 + .12683, .07324, 8.58793, .49839, .28213,
989 + .09175, .41255, .50599,
990 + .12982, .07496, 9.22712, .52642, .31216,
991 + .12521, .44132, .53428 /
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 + .13282, .07669, 9.85621, .55500, .34271,
994 + .15893, .47066, .56313,
995 + .13531, .07812, 10.36284, .57883, .36809,
996 + .18663, .49511, .58718,
997 + .13830, .07982, 10.95499, .60779, .39877,
998 + .21989, .52479, .61640,
999 + .14094, .08132, 11.46209, .63348, .42598,
1000 + .24944, .55111, .64232,
1001 + .14335, .08269, 11.91730, .65717, .45115,
1002 + .27699, .57538, .66622,
1003 + .14639, .08440, 12.46525, .68699, .48264,
1004 + .31097, .60592, .69631,
1005 + .14923, .08598, 12.95469, .71486, .51197,
1006 + .34252, .63444, .72441,
1007 + .15188, .08747, 13.39697, .74091, .53947,
1008 + .37221, .66110, .75070 /
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 + .15452, .08893, 13.82356, .76690, .56691,
1011 + .40191, .68771, .77693,
1012 + .15707, .09033, 14.21074, .79183, .59305,
1013 + .42987, .71321, .80207,
1014 + .15948, .09166, 14.56719, .81541, .61790,
1015 + .45663, .73733, .82585,
1016 + .16173, .09289, 14.88532, .83735, .64096,
1017 + .48139, .75977, .84798,
1018 + .16398, .09412, 15.18931, .85912, .66385,
1019 + .50595, .78206, .86995,
1020 + .16618, .09532, 15.47729, .88042, .68626,
1021 + .53003, .80385, .89143,
1022 + .16825, .09644, 15.73269, .90025, .70708,
1023 + .55232, .82414, .91143,
1024 + .17021, .09751, 15.96774, .91896, .72675,
1025 + .57345, .84327, .93030 /
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 + .17217, .09856, 16.18931, .93744, .74618,
1028 + .59425, .86221, .94896,
1029 + .17409, .09960, 16.39936, .95555, .76521,
1030 + .61465, .88073, .96721,
1031 + .17592, .10057, 16.59013, .97258, .78313,
1032 + .63388, .89817, .98441,
1033 + .17763, .10148, 16.75919, .98843, .79977,
1034 + .65167, .91439, 1.00039,
1035 + .17937, .10241, 16.93021, 1.00457, .81680,
1036 + .66999, .93091, 1.01666 /
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 + .11308, .06535, .39394, .20615, .00000,
1039 + .00000, .11732, .21236,
1040 + .11544, .06684, .82265, .21718, .00000,
1041 + .00000, .12914, .22359,
1042 + .11912, .06914, 1.47698, .23467, .00902,
1043 + .00000, .14778, .24141,
1044 + .12190, .07083, 1.95603, .24821, .02774,
1045 + .00000, .16213, .25520,
1046 + .12488, .07265, 2.47658, .26323, .04632,
1047 + .00000, .17796, .27050,
1048 + .12748, .07421, 2.92954, .27669, .06163,
1049 + .00000, .19211, .28420,
1050 + .12998, .07572, 3.36949, .29005, .07681,
1051 + .00000, .20611, .29779,
1052 + .13267, .07732, 3.84076, .30467, .09344,
1053 + .00000, .22141, .31267 /
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 + .13502, .07872, 4.25331, .31776, .10836,
1056 + .00000, .23507, .32597,
1057 + .13730, .08007, 4.64666, .33068, .12279,
1058 + .00000, .24853, .33910,
1059 + .13910, .08112, 4.95293, .34109, .13422,
1060 + .00000, .25936, .34967,
1061 + .14293, .08336, 5.59288, .36386, .15938,
1062 + .00000, .28301, .37280,
1063 + .14628, .08529, 6.12225, .38391, .18145,
1064 + .01060, .30383, .39317,
1065 + .14999, .08742, 6.66005, .40670, .20637,
1066 + .04311, .32744, .41629,
1067 + .15384, .08962, 7.20369, .43063, .23243,
1068 + .07232, .35221, .44057,
1069 + .15731, .09157, 7.67756, .45242, .25609,
1070 + .09898, .37473, .46267 /
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 + .16078, .09353, 8.13656, .47446, .27998,
1073 + .12565, .39752, .48502,
1074 + .16366, .09513, 8.50064, .49273, .29969,
1075 + .14740, .41639, .50355,
1076 + .16709, .09704, 8.91925, .51473, .32332,
1077 + .17333, .43911, .52585,
1078 + .17012, .09871, 9.27228, .53409, .34415,
1079 + .19622, .45910, .54549,
1080 + .17288, .10023, 9.58528, .55183, .36329,
1081 + .21743, .47742, .56348,
1082 + .17633, .10211, 9.95522, .57399, .38703,
1083 + .24338, .50028, .58593,
1084 + .17955, .10386, 10.27973, .59451, .40898,
1085 + .26730, .52147, .60674,
1086 + .18253, .10547, 10.56829, .61355, .42941,
1087 + .28966, .54112, .62604 /
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 + .18550, .10707, 10.84211, .63242, .44966,
1090 + .31188, .56059, .64516,
1091 + .18835, .10858, 11.08500, .65033, .46879,
1092 + .33263, .57909, .66332,
1093 + .19104, .11001, 11.30561, .66717, .48685,
1094 + .35238, .59647, .68038,
1095 + .19354, .11133, 11.49864, .68272, .50350,
1096 + .37052, .61253, .69615,
1097 + .19603, .11264, 11.67952, .69806, .51992,
1098 + .38842, .62838, .71170,
1099 + .19846, .11391, 11.84811, .71294, .53591,
1100 + .40587, .64376, .72679,
1101 + .20074, .11509, 11.99389, .72670, .55065,
1102 + .42191, .65798, .74073,
1103 + .20289, .11621, 12.12628, .73961, .56452,
1104 + .43705, .67132, .75381 /
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 + .20502, .11732, 12.24775, .75227, .57811,
1107 + .45186, .68442, .76665,
1108 + .20712, .11839, 12.36072, .76459, .59135,
1109 + .46631, .69718, .77915,
1110 + .20910, .11941, 12.46098, .77612, .60376,
1111 + .47986, .70911, .79084,
1112 + .21096, .12036, 12.54700, .78676, .61520,
1113 + .49232, .72013, .80163,
1114 + .21284, .12132, 12.63368, .79756, .62687,
1115 + .50512, .73132, .81257 /
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 + .13037, .07603, .38011, .19632, .00000,
1118 + .00000, .11265, .20392,
1119 + .13308, .07776, .79059, .20587, .00000,
1120 + .00000, .12296, .21372,
1121 + .13730, .08038, 1.40332, .22098, .00881,
1122 + .00000, .13918, .22924,
1123 + .14046, .08233, 1.84471, .23269, .02530,
1124 + .00000, .15167, .24126,
1125 + .14386, .08438, 2.31694, .24564, .04158,
1126 + .00000, .16543, .25454,
1127 + .14680, .08615, 2.72210, .25722, .05493,
1128 + .00000, .17768, .26640,
1129 + .14965, .08784, 3.11100, .26868, .06814,
1130 + .00000, .18977, .27814,
1131 + .15269, .08963, 3.52292, .28121, .08256,
1132 + .00000, .20296, .29095 /
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 + .15536, .09121, 3.87983, .29238, .09546,
1135 + .00000, .21469, .30237,
1136 + .15793, .09269, 4.21682, .30336, .10789,
1137 + .00000, .22621, .31361,
1138 + .15994, .09386, 4.47689, .31218, .11772,
1139 + .00000, .23546, .32263,
1140 + .16425, .09633, 5.01454, .33143, .13924,
1141 + .00000, .25559, .34228,
1142 + .16799, .09844, 5.45552, .34828, .15802,
1143 + .00773, .27320, .35948,
1144 + .17210, .10077, 5.89358, .36732, .17911,
1145 + .03552, .29306, .37891,
1146 + .17636, .10314, 6.33006, .38720, .20104,
1147 + .06032, .31378, .39917,
1148 + .18021, .10525, 6.70519, .40517, .22082,
1149 + .08282, .33250, .41749 /
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 + .18403, .10736, 7.06360, .42324, .24067,
1152 + .10519, .35132, .43591,
1153 + .18718, .10906, 7.34414, .43812, .25696,
1154 + .12335, .36681, .45107,
1155 + .19093, .11109, 7.66223, .45593, .27639,
1156 + .14488, .38535, .46923,
1157 + .19422, .11286, 7.92682, .47152, .29340,
1158 + .16377, .40158, .48510,
1159 + .19723, .11446, 8.15882, .48572, .30896,
1160 + .18120, .41636, .49957,
1161 + .20096, .11644, 8.42841, .50333, .32814,
1162 + .20241, .43470, .51751,
1163 + .20443, .11825, 8.66073, .51953, .34576,
1164 + .22183, .45156, .53401,
1165 + .20763, .11993, 8.86424, .53447, .36206,
1166 + .23989, .46712, .54922 /
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 + .21081, .12158, 9.05449, .54917, .37813,
1169 + .25775, .48243, .56419,
1170 + .21384, .12315, 9.21910, .56303, .39320,
1171 + .27431, .49688, .57831,
1172 + .21670, .12461, 9.36659, .57598, .40738,
1173 + .29002, .51039, .59150,
1174 + .21935, .12596, 9.49289, .58788, .42037,
1175 + .30437, .52280, .60362,
1176 + .22198, .12729, 9.60878, .59951, .43311,
1177 + .31846, .53496, .61547,
1178 + .22454, .12858, 9.71483, .61076, .44546,
1179 + .33214, .54671, .62693,
1180 + .22694, .12978, 9.80371, .62108, .45676,
1181 + .34463, .55751, .63744,
1182 + .22919, .13090, 9.88313, .63071, .46736,
1183 + .35639, .56758, .64726 /
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 + .23141, .13201, 9.95342, .64011, .47769,
1186 + .36782, .57741, .65682,
1187 + .23360, .13309, 10.01714, .64920, .48772,
1188 + .37895, .58695, .66609,
1189 + .23565, .13410, 10.07188, .65766, .49706,
1190 + .38934, .59582, .67471,
1191 + .23757, .13503, 10.11656, .66540, .50563,
1192 + .39884, .60395, .68262,
1193 + .23953, .13598, 10.16144, .67325, .51434,
1194 + .40857, .61220, .69062 /
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 + .14544, .08537, .37556, .18900, .00000,
1197 + .00000, .10923, .19775,
1198 + .14848, .08731, .77241, .19737, .00000,
1199 + .00000, .11836, .20645,
1200 + .15320, .09024, 1.35385, .21070, .00863,
1201 + .00000, .13276, .22026,
1202 + .15672, .09238, 1.76724, .22104, .02347,
1203 + .00000, .14386, .23095,
1204 + .16048, .09465, 2.20372, .23249, .03809,
1205 + .00000, .15610, .24278,
1206 + .16374, .09659, 2.57377, .24271, .05002,
1207 + .00000, .16699, .25333,
1208 + .16689, .09843, 2.92541, .25280, .06182,
1209 + .00000, .17773, .26375,
1210 + .17024, .10039, 3.29432, .26381, .07466,
1211 + .00000, .18940, .27510 /
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 + .17317, .10207, 3.61118, .27361, .08612,
1214 + .00000, .19977, .28517,
1215 + .17598, .10368, 3.90780, .28324, .09714,
1216 + .00000, .20994, .29507,
1217 + .17820, .10494, 4.13509, .29093, .10583,
1218 + .00000, .21806, .30299,
1219 + .18290, .10760, 4.60057, .30769, .12479,
1220 + .00000, .23570, .32020,
1221 + .18695, .10984, 4.97972, .32230, .14128,
1222 + .00572, .25108, .33520,
1223 + .19141, .11229, 5.34861, .33873, .15971,
1224 + .03022, .26834, .35204,
1225 + .19600, .11479, 5.71164, .35577, .17877,
1226 + .05195, .28625, .36951,
1227 + .20012, .11701, 6.01962, .37111, .19587,
1228 + .07156, .30234, .38523 /
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 + .20422, .11920, 6.31016, .38645, .21297,
1231 + .09099, .31845, .40095,
1232 + .20757, .12097, 6.53478, .39900, .22691,
1233 + .10667, .33162, .41380,
1234 + .21157, .12307, 6.78627, .41395, .24346,
1235 + .12518, .34731, .42911,
1236 + .21506, .12489, 6.99271, .42695, .25788,
1237 + .14136, .36097, .44243,
1238 + .21823, .12653, 7.17174, .43877, .27103,
1239 + .15624, .37337, .45451,
1240 + .22217, .12856, 7.37614, .45331, .28714,
1241 + .17423, .38865, .46940,
1242 + .22579, .13041, 7.54904, .46660, .30186,
1243 + .19064, .40263, .48300,
1244 + .22916, .13211, 7.69830, .47878, .31540,
1245 + .20581, .41543, .49547 /
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 + .23247, .13377, 7.83578, .49071, .32870,
1248 + .22076, .42799, .50768,
1249 + .23563, .13534, 7.95125, .50187, .34110,
1250 + .23457, .43976, .51909,
1251 + .23858, .13680, 8.05309, .51226, .35270,
1252 + .24759, .45070, .52973,
1253 + .24133, .13815, 8.13809, .52173, .36328,
1254 + .25944, .46071, .53942,
1255 + .24403, .13947, 8.21415, .53095, .37362,
1256 + .27103, .47045, .54886,
1257 + .24666, .14074, 8.28225, .53982, .38358,
1258 + .28223, .47984, .55795,
1259 + .24911, .14192, 8.33673, .54790, .39266,
1260 + .29242, .48839, .56621,
1261 + .25141, .14302, 8.38423, .55541, .40115,
1262 + .30198, .49637, .57390 /
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 + .25368, .14410, 8.42403, .56268, .40938,
1265 + .31124, .50408, .58135,
1266 + .25589, .14514, 8.45866, .56969, .41732,
1267 + .32020, .51153, .58852,
1268 + .25797, .14613, 8.48666, .57615, .42470,
1269 + .32855, .51843, .59515,
1270 + .25992, .14704, 8.50723, .58205, .43143,
1271 + .33615, .52472, .60120,
1272 + .26188, .14794, 8.52781, .58802, .43827,
1273 + .34393, .53109, .60730 /
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 + .17153, .10146, .38063, .17865, .00000,
1276 + .00000, .10458, .18963,
1277 + .17517, .10377, .75741, .18524, .00000,
1278 + .00000, .11192, .19664,
1279 + .18078, .10722, 1.29310, .19589, .00826,
1280 + .00000, .12367, .20792,
1281 + .18493, .10969, 1.66570, .20427, .02078,
1282 + .00000, .13281, .21676,
1283 + .18933, .11228, 2.05054, .21356, .03306,
1284 + .00000, .14292, .22651,
1285 + .19313, .11447, 2.37039, .22186, .04304,
1286 + .00000, .15190, .23521,
1287 + .19677, .11655, 2.66925, .23005, .05288,
1288 + .00000, .16075, .24380,
1289 + .20064, .11873, 2.97775, .23896, .06356,
1290 + .00000, .17033, .25310 /
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 + .20399, .12061, 3.23879, .24687, .07307,
1293 + .00000, .17884, .26134,
1294 + .20721, .12239, 3.47970, .25461, .08216,
1295 + .00000, .18713, .26940,
1296 + .20973, .12376, 3.66190, .26078, .08931,
1297 + .00000, .19374, .27583,
1298 + .21505, .12665, 4.02892, .27413, .10483,
1299 + .00000, .20803, .28971,
1300 + .21959, .12906, 4.32498, .28569, .11823,
1301 + .00297, .22037, .30170,
1302 + .22455, .13168, 4.60183, .29858, .13310,
1303 + .02306, .23414, .31506,
1304 + .22962, .13431, 4.86794, .31183, .14834,
1305 + .04069, .24828, .32878,
1306 + .23414, .13663, 5.08833, .32363, .16191,
1307 + .05648, .26089, .34100 /
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 + .23860, .13888, 5.29137, .33532, .17534,
1310 + .07200, .27337, .35310,
1311 + .24224, .14072, 5.44464, .34481, .18623,
1312 + .08445, .28352, .36291,
1313 + .24653, .14286, 5.61160, .35600, .19904,
1314 + .09903, .29547, .37447,
1315 + .25028, .14470, 5.74495, .36564, .21010,
1316 + .11167, .30579, .38443,
1317 + .25366, .14635, 5.85803, .37431, .22011,
1318 + .12321, .31508, .39338,
1319 + .25782, .14836, 5.98263, .38488, .23227,
1320 + .13708, .32641, .40430,
1321 + .26164, .15019, 6.08350, .39441, .24327,
1322 + .14960, .33664, .41414,
1323 + .26514, .15185, 6.16730, .40307, .25331,
1324 + .16111, .34596, .42308 /
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 + .26859, .15345, 6.24139, .41145, .26309,
1327 + .17235, .35500, .43174,
1328 + .27184, .15496, 6.29894, .41919, .27210,
1329 + .18263, .36335, .43973,
1330 + .27487, .15636, 6.34758, .42632, .28049,
1331 + .19229, .37107, .44709,
1332 + .27766, .15763, 6.38499, .43275, .28806,
1333 + .20100, .37805, .45373,
1334 + .28041, .15887, 6.41526, .43893, .29539,
1335 + .20946, .38477, .46011,
1336 + .28306, .16005, 6.43985, .44482, .30242,
1337 + .21759, .39120, .46620,
1338 + .28551, .16114, 6.45575, .45011, .30875,
1339 + .22492, .39698, .47167,
1340 + .28780, .16214, 6.46794, .45500, .31463,
1341 + .23176, .40233, .47671 /
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 + .29005, .16312, 6.47418, .45965, .32028,
1344 + .23834, .40745, .48153,
1345 + .29224, .16407, 6.47698, .46410, .32570,
1346 + .24467, .41236, .48613,
1347 + .29429, .16494, 6.47611, .46816, .33069,
1348 + .25052, .41685, .49032,
1349 + .29618, .16574, 6.47109, .47180, .33520,
1350 + .25582, .42089, .49409,
1351 + .29810, .16655, 6.46598, .47547, .33977,
1352 + .26122, .42497, .49789 /
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 + .20407, .12139, .41528, .16774, .00000,
1355 + .00000, .09968, .18159,
1356 + .20857, .12417, .77022, .17243, .00000,
1357 + .00000, .10514, .18687,
1358 + .21540, .12822, 1.25773, .18037, .00746,
1359 + .00000, .11424, .19566,
1360 + .22036, .13107, 1.58757, .18679, .01776,
1361 + .00000, .12149, .20266,
1362 + .22558, .13399, 1.91925, .19398, .02783,
1363 + .00000, .12954, .21044,
1364 + .23003, .13646, 2.18821, .20043, .03597,
1365 + .00000, .13672, .21738,
1366 + .23427, .13877, 2.43430, .20679, .04399,
1367 + .00000, .14377, .22420,
1368 + .23872, .14116, 2.68323, .21372, .05267,
1369 + .00000, .15142, .23159 /
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 + .24258, .14320, 2.88993, .21983, .06036,
1372 + .00000, .15817, .23810,
1373 + .24623, .14511, 3.07716, .22579, .06769,
1374 + .00000, .16474, .24444,
1375 + .24907, .14657, 3.21635, .23052, .07341,
1376 + .00000, .16995, .24946,
1377 + .25506, .14963, 3.49075, .24071, .08579,
1378 + .00000, .18112, .26024,
1379 + .26006, .15213, 3.70994, .24943, .09637,
1380 + .00037, .19069, .26943,
1381 + .26551, .15480, 3.90272, .25907, .10802,
1382 + .01643, .20126, .27958,
1383 + .27100, .15746, 4.08186, .26886, .11982,
1384 + .03037, .21199, .28984,
1385 + .27585, .15976, 4.22489, .27745, .13022,
1386 + .04274, .22144, .29886 /
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 + .28061, .16200, 4.35182, .28586, .14041,
1389 + .05477, .23068, .30767,
1390 + .28443, .16378, 4.44371, .29259, .14857,
1391 + .06434, .23811, .31473,
1392 + .28894, .16582, 4.53937, .30042, .15809,
1393 + .07545, .24675, .32292,
1394 + .29282, .16756, 4.61194, .30707, .16622,
1395 + .08500, .25411, .32988,
1396 + .29629, .16911, 4.67082, .31299, .17351,
1397 + .09364, .26067, .33606,
1398 + .30053, .17098, 4.73037, .32007, .18226,
1399 + .10392, .26855, .34346,
1400 + .30438, .17263, 4.77377, .32634, .19008,
1401 + .11310, .27557, .35002,
1402 + .30788, .17412, 4.80623, .33197, .19714,
1403 + .12147, .28187, .35588 /
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 + .31129, .17555, 4.83137, .33733, .20395,
1406 + .12958, .28790, .36147,
1407 + .31447, .17685, 4.84502, .34216, .21013,
1408 + .13691, .29337, .36651,
1409 + .31743, .17805, 4.85377, .34654, .21581,
1410 + .14372, .29836, .37109,
1411 + .32012, .17913, 4.85600, .35042, .22090,
1412 + .14982, .30281, .37515,
1413 + .32274, .18017, 4.85318, .35410, .22576,
1414 + .15569, .30704, .37898,
1415 + .32525, .18114, 4.84694, .35752, .23038,
1416 + .16129, .31102, .38255,
1417 + .32755, .18203, 4.83581, .36053, .23448,
1418 + .16628, .31453, .38569,
1419 + .32969, .18283, 4.82347, .36327, .23825,
1420 + .17090, .31773, .38854 /
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 + .33175, .18360, 4.80709, .36581, .24183,
1423 + .17531, .32075, .39119,
1424 + .33375, .18433, 4.78888, .36819, .24523,
1425 + .17952, .32359, .39367,
1426 + .33561, .18500, 4.76931, .37031, .24832,
1427 + .18338, .32616, .39589,
1428 + .33731, .18559, 4.74803, .37216, .25107,
1429 + .18683, .32842, .39782,
1430 + .33903, .18620, 4.72675, .37400, .25385,
1431 + .19033, .33068, .39975 /
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 + .24884, .14805, .51415, .15438, .00000,
1434 + .00000, .09339, .17293,
1435 + .25464, .15142, .83965, .15703, .00000,
1436 + .00000, .09696, .17639,
1437 + .26318, .15618, 1.26882, .16213, .00548,
1438 + .00000, .10336, .18257,
1439 + .26918, .15941, 1.54712, .16655, .01362,
1440 + .00000, .10872, .18770,
1441 + .27541, .16266, 1.81690, .17162, .02157,
1442 + .00000, .11476, .19345,
1443 + .28064, .16533, 2.02831, .17619, .02796,
1444 + .00000, .12015, .19860,
1445 + .28558, .16778, 2.21605, .18071, .03422,
1446 + .00000, .12546, .20364,
1447 + .29071, .17029, 2.40041, .18562, .04099,
1448 + .00000, .13120, .20909 /
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 + .29508, .17239, 2.54926, .18996, .04695,
1451 + .00000, .13623, .21385,
1452 + .29917, .17435, 2.68029, .19416, .05258,
1453 + .00000, .14109, .21843,
1454 + .30233, .17582, 2.77516, .19747, .05694,
1455 + .00000, .14493, .22203,
1456 + .30889, .17884, 2.95571, .20452, .06632,
1457 + .00000, .15307, .22967,
1458 + .31427, .18123, 3.09899, .21047, .07422,
1459 + -.00229, .15993, .23606,
1460 + .32001, .18374, 3.20999, .21693, .08281,
1461 + .00992, .16739, .24298,
1462 + .32571, .18616, 3.30646, .22335, .09138,
1463 + .02038, .17483, .24984,
1464 + .33067, .18822, 3.37768, .22888, .09881,
1465 + .02954, .18125, .25572 /
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 + .33545, .19015, 3.43520, .23416, .10599,
1468 + .03834, .18743, .26133,
1469 + .33926, .19165, 3.47254, .23829, .11166,
1470 + .04526, .19228, .26571,
1471 + .34365, .19335, 3.50578, .24298, .11815,
1472 + .05317, .19783, .27068,
1473 + .34737, .19476, 3.52633, .24687, .12362,
1474 + .05989, .20245, .27477,
1475 + .35067, .19598, 3.53969, .25025, .12846,
1476 + .06591, .20649, .27833,
1477 + .35463, .19740, 3.54604, .25417, .13417,
1478 + .07297, .21124, .28245,
1479 + .35814, .19862, 3.54353, .25753, .13918,
1480 + .07919, .21536, .28597,
1481 + .36129, .19969, 3.53587, .26043, .14361,
1482 + .08477, .21897, .28901 /
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 + .36432, .20068, 3.52366, .26310, .14782,
1485 + .09012, .22232, .29182,
1486 + .36708, .20154, 3.50464, .26540, .15157,
1487 + .09488, .22527, .29421,
1488 + .36959, .20231, 3.48440, .26743, .15496,
1489 + .09926, .22790, .29631,
1490 + .37186, .20296, 3.46182, .26913, .15793,
1491 + .10312, .23017, .29807,
1492 + .37401, .20356, 3.43632, .27065, .16072,
1493 + .10679, .23224, .29965,
1494 + .37605, .20411, 3.40948, .27201, .16332,
1495 + .11025, .23414, .30106,
1496 + .37786, .20458, 3.38110, .27311, .16558,
1497 + .11329, .23575, .30219,
1498 + .37952, .20499, 3.35353, .27407, .16764,
1499 + .11608, .23717, .30316 /
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 + .38110, .20535, 3.32360, .27488, .16953,
1502 + .11869, .23844, .30397,
1503 + .38260, .20568, 3.29316, .27558, .17129,
1504 + .12116, .23960, .30467,
1505 + .38397, .20596, 3.26317, .27615, .17287,
1506 + .12339, .24060, .30523,
1507 + .38518, .20618, 3.23341, .27656, .17423,
1508 + .12536, .24140, .30563,
1509 + .38640, .20641, 3.20384, .27696, .17559,
1510 + .12736, .24220, .30602 /
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 + .28583, .16945, .65207, .14221, .00000,
1513 + .00000, .08679, .16465,
1514 + .29282, .17325, .94707, .14368, .00000,
1515 + .00000, .08928, .16710,
1516 + .30285, .17845, 1.32742, .14713, .00273,
1517 + .00000, .09421, .17184,
1518 + .30975, .18185, 1.56296, .15036, .00966,
1519 + .00000, .09851, .17588,
1520 + .31675, .18521, 1.78398, .15418, .01643,
1521 + .00000, .10340, .18046,
1522 + .32257, .18793, 1.95182, .15766, .02183,
1523 + .00000, .10778, .18453,
1524 + .32795, .19039, 2.09667, .16110, .02710,
1525 + .00000, .11207, .18850,
1526 + .33348, .19286, 2.23487, .16482, .03275,
1527 + .00000, .11666, .19273 /
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 + .33812, .19488, 2.34340, .16808, .03770,
1530 + .00000, .12067, .19639,
1531 + .34246, .19673, 2.43612, .17121, .04234,
1532 + .00000, .12452, .19989,
1533 + .34576, .19810, 2.50126, .17365, .04592,
1534 + .00000, .12751, .20260,
1535 + .35251, .20086, 2.62022, .17882, .05352,
1536 + .00000, .13383, .20828,
1537 + .35793, .20297, 2.71514, .18309, .05985,
1538 + -.00403, .13905, .21292,
1539 + .36360, .20510, 2.77518, .18765, .06663,
1540 + .00589, .14465, .21784,
1541 + .36915, .20713, 2.82163, .19206, .07330,
1542 + .01430, .15011, .22256,
1543 + .37388, .20877, 2.85046, .19576, .07901,
1544 + .02158, .15474, .22650 /
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 + .37836, .21028, 2.86832, .19921, .08443,
1547 + .02848, .15908, .23014,
1548 + .38188, .21141, 2.87518, .20183, .08866,
1549 + .03385, .16244, .23292,
1550 + .38585, .21263, 2.87447, .20472, .09344,
1551 + .03994, .16617, .23594,
1552 + .38914, .21360, 2.86744, .20702, .09740,
1553 + .04505, .16921, .23833,
1554 + .39203, .21440, 2.85724, .20897, .10086,
1555 + .04957, .17183, .24035,
1556 + .39541, .21528, 2.83690, .21112, .10488,
1557 + .05482, .17481, .24257,
1558 + .39836, .21598, 2.81215, .21285, .10834,
1559 + .05938, .17729, .24433,
1560 + .40092, .21655, 2.78570, .21428, .11135,
1561 + .06343, .17939, .24575 /
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 + .40334, .21705, 2.75655, .21552, .11417,
1564 + .06728, .18130, .24698,
1565 + .40545, .21741, 2.72364, .21647, .11661,
1566 + .07064, .18288, .24788,
1567 + .40736, .21770, 2.69146, .21724, .11879,
1568 + .07371, .18424, .24861,
1569 + .40901, .21791, 2.65912, .21780, .12066,
1570 + .07639, .18535, .24913,
1571 + .41055, .21805, 2.62517, .21823, .12238,
1572 + .07889, .18631, .24948,
1573 + .41195, .21816, 2.59107, .21855, .12396,
1574 + .08124, .18713, .24972,
1575 + .41316, .21818, 2.55707, .21869, .12529,
1576 + .08327, .18776, .24979,
1577 + .41424, .21818, 2.52482, .21876, .12646,
1578 + .08511, .18828, .24978 /
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 + .41522, .21813, 2.49127, .21871, .12753,
1581 + .08682, .18868, .24965,
1582 + .41610, .21805, 2.45796, .21860, .12849,
1583 + .08840, .18899, .24944,
1584 + .41688, .21794, 2.42590, .21841, .12933,
1585 + .08983, .18920, .24915,
1586 + .41753, .21779, 2.39491, .21815, .13001,
1587 + .09106, .18931, .24879,
1588 + .41818, .21764, 2.36423, .21787, .13070,
1589 + .09230, .18942, .24842 /
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 + .34849, .20336, .94873, .11973, .00000,
1592 + .00000, .07363, .15022,
1593 + .35734, .20751, 1.17958, .12022, .00000,
1594 + .00000, .07535, .15172,
1595 + .36942, .21288, 1.46933, .12218, -.00319,
1596 + .00000, .07903, .15490,
1597 + .37731, .21620, 1.62926, .12428, .00258,
1598 + .00000, .08228, .15766,
1599 + .38512, .21931, 1.76971, .12674, .00816,
1600 + .00000, .08595, .16073,
1601 + .39138, .22171, 1.86920, .12899, .01253,
1602 + .00000, .08918, .16341,
1603 + .39704, .22379, 1.94948, .13116, .01674,
1604 + .00000, .09226, .16593,
1605 + .40270, .22580, 2.02063, .13348, .02117,
1606 + .00000, .09551, .16855 /
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 + .40735, .22737, 2.07239, .13548, .02496,
1609 + .00000, .09828, .17074,
1610 + .41154, .22875, 2.11271, .13733, .02847,
1611 + .00000, .10087, .17277,
1612 + .41468, .22973, 2.13814, .13876, .03113,
1613 + .00000, .10285, .17429,
1614 + .42092, .23157, 2.17716, .14165, .03667,
1615 + .00000, .10691, .17733,
1616 + .42565, .23282, 2.21113, .14392, .04116,
1617 + -.00597, .11012, .17967,
1618 + .43042, .23394, 2.20939, .14624, .04584,
1619 + .00121, .11344, .18199,
1620 + .43486, .23486, 2.19759, .14832, .05033,
1621 + .00721, .11653, .18400,
1622 + .43847, .23546, 2.17903, .14992, .05406,
1623 + .01228, .11902, .18551 /
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 + .44173, .23591, 2.15414, .15128, .05751,
1626 + .01700, .12122, .18674,
1627 + .44414, .23612, 2.12935, .15223, .06013,
1628 + .02060, .12284, .18753,
1629 + .44672, .23625, 2.09477, .15312, .06299,
1630 + .02460, .12453, .18822,
1631 + .44872, .23623, 2.06140, .15371, .06531,
1632 + .02790, .12580, .18860,
1633 + .45036, .23612, 2.02954, .15413, .06729,
1634 + .03077, .12682, .18882,
1635 + .45210, .23587, 1.98605, .15445, .06951,
1636 + .03403, .12786, .18883,
1637 + .45345, .23547, 1.94320, .15452, .07134,
1638 + .03681, .12860, .18862,
1639 + .45450, .23502, 1.90241, .15445, .07288,
1640 + .03922, .12914, .18828 /
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 + .45536, .23449, 1.86130, .15426, .07427,
1643 + .04146, .12952, .18781,
1644 + .45595, .23385, 1.81964, .15389, .07541,
1645 + .04337, .12971, .18715,
1646 + .45637, .23320, 1.78065, .15346, .07640,
1647 + .04510, .12980, .18645,
1648 + .45662, .23254, 1.74368, .15297, .07719,
1649 + .04656, .12977, .18566,
1650 + .45670, .23181, 1.70656, .15239, .07788,
1651 + .04791, .12965, .18478,
1652 + .45668, .23106, 1.67045, .15176, .07849,
1653 + .04914, .12945, .18385,
1654 + .45651, .23027, 1.63602, .15107, .07894,
1655 + .05017, .12917, .18288,
1656 + .45630, .22951, 1.60402, .15038, .07933,
1657 + .05109, .12885, .18192 /
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 + .45597, .22870, 1.57181, .14962, .07963,
1660 + .05192, .12846, .18088,
1661 + .45557, .22787, 1.54047, .14883, .07988,
1662 + .05268, .12803, .17982,
1663 + .45510, .22706, 1.51095, .14804, .08007,
1664 + .05333, .12757, .17877,
1665 + .45456, .22625, 1.48309, .14725, .08017,
1666 + .05388, .12709, .17773,
1667 + .45402, .22543, 1.45568, .14645, .08028,
1668 + .05443, .12660, .17668 /
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 + .40108, .22926, 1.21697, .09864, .00000,
1671 + .00000, .06057, .13598,
1672 + .41109, .23327, 1.37978, .09918, .00000,
1673 + .00000, .06241, .13726,
1674 + .42422, .23815, 1.58213, .10089, -.00842,
1675 + .00000, .06590, .13973,
1676 + .43241, .24094, 1.67494, .10259, -.00311,
1677 + .00000, .06878, .14175,
1678 + .44017, .24342, 1.74858, .10451, .00195,
1679 + .00000, .07187, .14386,
1680 + .44625, .24518, 1.79453, .10614, .00583,
1681 + .00000, .07446, .14560,
1682 + .45156, .24662, 1.82653, .10768, .00947,
1683 + .00000, .07687, .14717,
1684 + .45669, .24787, 1.84978, .10924, .01320,
1685 + .00000, .07932, .14870 /
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 + .46078, .24878, 1.86257, .11052, .01635,
1688 + .00000, .08135, .14990,
1689 + .46436, .24947, 1.86807, .11168, .01919,
1690 + .00000, .08317, .15094,
1691 + .46695, .24990, 1.86793, .11253, .02133,
1692 + .00000, .08454, .15166,
1693 + .47189, .25056, 1.85758, .11416, .02567,
1694 + .00000, .08724, .15297,
1695 + .47533, .25076, 1.85479, .11534, .02908,
1696 + -.00669, .08926, .15383,
1697 + .47856, .25070, 1.81866, .11642, .03257,
1698 + -.00117, .09125, .15450,
1699 + .48130, .25036, 1.77631, .11725, .03581,
1700 + .00339, .09299, .15484,
1701 + .48327, .24986, 1.73449, .11777, .03843,
1702 + .00716, .09426, .15490 /
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 + .48483, .24918, 1.68985, .11808, .04080,
1705 + .01063, .09529, .15469,
1706 + .48579, .24847, 1.65138, .11817, .04255,
1707 + .01321, .09597, .15438,
1708 + .48657, .24745, 1.60340, .11808, .04442,
1709 + .01605, .09656, .15377,
1710 + .48696, .24645, 1.56057, .11786, .04588,
1711 + .01834, .09692, .15308,
1712 + .48712, .24547, 1.52159, .11758, .04710,
1713 + .02031, .09715, .15233,
1714 + .48695, .24408, 1.47166, .11706, .04841,
1715 + .02250, .09724, .15121,
1716 + .48649, .24265, 1.42497, .11640, .04945,
1717 + .02434, .09714, .15002,
1718 + .48585, .24124, 1.38204, .11570, .05030,
1719 + .02590, .09694, .14882 /
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 + .48501, .23979, 1.34003, .11494, .05103,
1722 + .02734, .09666, .14753,
1723 + .48392, .23825, 1.29909, .11407, .05158,
1724 + .02853, .09623, .14615,
1725 + .48276, .23678, 1.26151, .11321, .05203,
1726 + .02959, .09579, .14480,
1727 + .48153, .23533, 1.22672, .11233, .05237,
1728 + .03047, .09529, .14348,
1729 + .48015, .23383, 1.19250, .11140, .05262,
1730 + .03126, .09473, .14208,
1731 + .47869, .23234, 1.15975, .11045, .05282,
1732 + .03196, .09414, .14070,
1733 + .47716, .23086, 1.12913, .10951, .05293,
1734 + .03255, .09352, .13933,
1735 + .47567, .22946, 1.10099, .10860, .05301,
1736 + .03306, .09291, .13803 /
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 + .47404, .22801, 1.07314, .10764, .05303,
1739 + .03350, .09226, .13668,
1740 + .47239, .22657, 1.04635, .10669, .05302,
1741 + .03390, .09158, .13531,
1742 + .47072, .22517, 1.02141, .10575, .05296,
1743 + .03422, .09092, .13402,
1744 + .46906, .22384, .99818, .10485, .05288,
1745 + .03449, .09025, .13275,
1746 + .46739, .22249, .97543, .10395, .05279,
1747 + .03475, .08959, .13149 /
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 + .44699, .24985, 1.41216, .08020, .00000,
1750 + .00000, .04908, .12287,
1751 + .45762, .25334, 1.50918, .08116, .00000,
1752 + .00000, .05132, .12408,
1753 + .47090, .25727, 1.63097, .08305, -.01204,
1754 + .00000, .05488, .12603,
1755 + .47874, .25928, 1.66701, .08464, -.00701,
1756 + .00000, .05756, .12744,
1757 + .48593, .26082, 1.68708, .08628, -.00232,
1758 + .00000, .06024, .12877,
1759 + .49126, .26178, 1.69197, .08757, .00122,
1760 + .00000, .06240, .12975,
1761 + .49574, .26238, 1.68840, .08872, .00446,
1762 + .00000, .06433, .13052,
1763 + .49988, .26273, 1.67771, .08981, .00771,
1764 + .00000, .06619, .13118 /
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 + .50302, .26284, 1.66388, .09066, .01037,
1767 + .00000, .06767, .13160,
1768 + .50562, .26276, 1.64641, .09136, .01276,
1769 + .00000, .06897, .13188,
1770 + .50740, .26258, 1.62994, .09183, .01452,
1771 + .00000, .06990, .13201,
1772 + .51049, .26192, 1.58920, .09267, .01803,
1773 + .00000, .07166, .13210,
1774 + .51225, .26101, 1.56427, .09319, .02072,
1775 + -.00667, .07289, .13189,
1776 + .51352, .25973, 1.50985, .09355, .02339,
1777 + -.00232, .07400, .13144,
1778 + .51418, .25815, 1.45251, .09367, .02583,
1779 + .00124, .07485, .13070,
1780 + .51426, .25652, 1.40028, .09355, .02775,
1781 + .00413, .07539, .12981 /
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 + .51387, .25472, 1.34785, .09327, .02945,
1784 + .00673, .07572, .12874,
1785 + .51318, .25313, 1.30475, .09294, .03067,
1786 + .00867, .07584, .12772,
1787 + .51200, .25106, 1.25318, .09237, .03194,
1788 + .01075, .07583, .12636,
1789 + .51066, .24912, 1.20867, .09177, .03292,
1790 + .01241, .07570, .12506,
1791 + .50924, .24730, 1.16911, .09114, .03370,
1792 + .01381, .07549, .12382,
1793 + .50707, .24489, 1.11995, .09024, .03452,
1794 + .01537, .07508, .12213,
1795 + .50474, .24253, 1.07521, .08930, .03513,
1796 + .01663, .07459, .12045,
1797 + .50237, .24028, 1.03487, .08837, .03561,
1798 + .01770, .07405, .11882 /
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 + .49984, .23801, .99608, .08739, .03600,
1801 + .01867, .07345, .11718,
1802 + .49712, .23569, .95910, .08635, .03626,
1803 + .01945, .07279, .11549,
1804 + .49444, .23349, .92559, .08534, .03645,
1805 + .02014, .07212, .11389,
1806 + .49177, .23141, .89502, .08438, .03657,
1807 + .02069, .07144, .11236,
1808 + .48896, .22927, .86533, .08338, .03664,
1809 + .02119, .07074, .11080,
1810 + .48616, .22716, .83720, .08238, .03667,
1811 + .02163, .07002, .10926,
1812 + .48336, .22512, .81126, .08140, .03664,
1813 + .02198, .06931, .10778,
1814 + .48067, .22320, .78760, .08048, .03659,
1815 + .02228, .06863, .10638 /
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 + .47787, .22124, .76442, .07953, .03650,
1818 + .02252, .06791, .10497,
1819 + .47506, .21932, .74230, .07859, .03639,
1820 + .02274, .06719, .10358,
1821 + .47232, .21747, .72188, .07769, .03626,
1822 + .02291, .06648, .10225,
1823 + .46965, .21571, .70299, .07684, .03613,
1824 + .02305, .06581, .10098,
1825 + .46696, .21395, .68459, .07598, .03598,
1826 + .02317, .06514, .09971 /
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 + .49700, .26908, 1.53791, .06144, .00000,
1829 + .00000, .03750, .10789,
1830 + .50720, .27156, 1.56482, .06297, .00000,
1831 + .00000, .04007, .10883,
1832 + .51919, .27378, 1.60280, .06522, -.01431,
1833 + .00000, .04368, .11003,
1834 + .52575, .27445, 1.58519, .06673, -.00967,
1835 + .00000, .04609, .11076,
1836 + .53129, .27463, 1.55691, .06814, -.00541,
1837 + .00000, .04835, .11121,
1838 + .53509, .27436, 1.52632, .06917, -.00226,
1839 + .00000, .05008, .11139,
1840 + .53800, .27379, 1.49338, .06998, .00054,
1841 + .00000, .05151, .11140,
1842 + .54034, .27295, 1.45574, .07070, .00328,
1843 + .00000, .05284, .11124 /
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 + .54186, .27202, 1.42165, .07120, .00549,
1846 + .00000, .05383, .11096,
1847 + .54288, .27095, 1.38738, .07155, .00743,
1848 + .00000, .05466, .11057,
1849 + .54335, .26998, 1.35947, .07177, .00883,
1850 + .00000, .05523, .11018,
1851 + .54366, .26772, 1.29889, .07206, .01157,
1852 + .00000, .05619, .10917,
1853 + .54300, .26546, 1.25924, .07208, .01360,
1854 + -.00604, .05679, .10816,
1855 + .54158, .26269, 1.19580, .07190, .01559,
1856 + -.00277, .05722, .10687,
1857 + .53944, .25963, 1.13245, .07155, .01735,
1858 + -.00012, .05743, .10531,
1859 + .53696, .25676, 1.07734, .07108, .01870,
1860 + .00199, .05744, .10378 /
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 + .53405, .25372, 1.02406, .07046, .01986,
1863 + .00387, .05727, .10215,
1864 + .53135, .25110, .98165, .06986, .02067,
1865 + .00524, .05704, .10072,
1866 + .52770, .24786, .93237, .06902, .02150,
1867 + .00670, .05664, .09891,
1868 + .52421, .24495, .89084, .06824, .02210,
1869 + .00784, .05621, .09726,
1870 + .52084, .24229, .85462, .06748, .02258,
1871 + .00880, .05576, .09573,
1872 + .51627, .23882, .81067, .06645, .02305,
1873 + .00983, .05511, .09373,
1874 + .51175, .23551, .77150, .06542, .02338,
1875 + .01067, .05440, .09186,
1876 + .50739, .23241, .73677, .06442, .02361,
1877 + .01135, .05371, .09009 /
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 + .50292, .22928, .70389, .06340, .02379,
1880 + .01197, .05301, .08832,
1881 + .49831, .22622, .67310, .06237, .02388,
1882 + .01246, .05224, .08658,
1883 + .49391, .22333, .64548, .06140, .02394,
1884 + .01288, .05151, .08494,
1885 + .48967, .22059, .62060, .06047, .02394,
1886 + .01322, .05081, .08342,
1887 + .48533, .21786, .59672, .05953, .02391,
1888 + .01351, .05008, .08187,
1889 + .48102, .21518, .57429, .05862, .02385,
1890 + .01375, .04937, .08037,
1891 + .47684, .21263, .55384, .05771, .02376,
1892 + .01394, .04867, .07896,
1893 + .47289, .21023, .53532, .05687, .02367,
1894 + .01410, .04801, .07764 /
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 + .46883, .20780, .51735, .05602, .02355,
1897 + .01423, .04735, .07631,
1898 + .46482, .20543, .50034, .05520, .02342,
1899 + .01434, .04668, .07502,
1900 + .46097, .20317, .48471, .05441, .02328,
1901 + .01442, .04605, .07379,
1902 + .45728, .20102, .47041, .05365, .02313,
1903 + .01447, .04544, .07263,
1904 + .45359, .19889, .45647, .05291, .02299,
1905 + .01453, .04484, .07149 /
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 + .54008, .28286, 1.54157, .04757, .00000,
1908 + .00000, .02911, .09470,
1909 + .54896, .28382, 1.51635, .04936, .00000,
1910 + .00000, .03175, .09527,
1911 + .55845, .28395, 1.49327, .05164, -.01457,
1912 + .00000, .03514, .09562,
1913 + .56296, .28311, 1.44096, .05305, -.01040,
1914 + .00000, .03724, .09558,
1915 + .56620, .28176, 1.38330, .05424, -.00663,
1916 + .00000, .03909, .09527,
1917 + .56794, .28019, 1.33249, .05501, -.00391,
1918 + .00000, .04038, .09485,
1919 + .56877, .27845, 1.28372, .05559, -.00152,
1920 + .00000, .04143, .09424,
1921 + .56894, .27635, 1.23261, .05602, .00076,
1922 + .00000, .04234, .09346 /
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 + .56857, .27436, 1.18907, .05628, .00256,
1925 + .00000, .04299, .09269,
1926 + .56771, .27232, 1.14770, .05644, .00412,
1927 + .00000, .04347, .09184,
1928 + .56675, .27060, 1.11542, .05647, .00524,
1929 + .00000, .04376, .09112,
1930 + .56400, .26676, 1.04851, .05637, .00737,
1931 + .00000, .04420, .08951,
1932 + .56072, .26325, 1.00395, .05613, .00893,
1933 + -.00515, .04439, .08800,
1934 + .55645, .25920, .94091, .05573, .01042,
1935 + -.00268, .04442, .08623,
1936 + .55144, .25483, .87985, .05512, .01170,
1937 + -.00071, .04426, .08430,
1938 + .54644, .25082, .82811, .05447, .01268,
1939 + .00086, .04397, .08247 /
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 + .54105, .24673, .77924, .05373, .01349,
1942 + .00222, .04358, .08058,
1943 + .53631, .24330, .74107, .05306, .01405,
1944 + .00321, .04318, .07900,
1945 + .53031, .23910, .69752, .05218, .01460,
1946 + .00424, .04262, .07707,
1947 + .52481, .23538, .66146, .05135, .01500,
1948 + .00505, .04207, .07534,
1949 + .51967, .23200, .63036, .05059, .01529,
1950 + .00571, .04154, .07378,
1951 + .51294, .22769, .59321, .04957, .01558,
1952 + .00642, .04082, .07179,
1953 + .50642, .22365, .56060, .04858, .01577,
1954 + .00699, .04009, .06996,
1955 + .50026, .21989, .53201, .04765, .01588,
1956 + .00744, .03939, .06825 /
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 + .49408, .21617, .50518, .04672, .01596,
1959 + .00784, .03867, .06657,
1960 + .48786, .21253, .48042, .04577, .01599,
1961 + .00817, .03795, .06495,
1962 + .48200, .20912, .45838, .04489, .01598,
1963 + .00843, .03728, .06344,
1964 + .47645, .20594, .43870, .04405, .01594,
1965 + .00864, .03663, .06202,
1966 + .47081, .20278, .41995, .04323, .01588,
1967 + .00882, .03598, .06064,
1968 + .46526, .19970, .40247, .04243, .01580,
1969 + .00897, .03534, .05929,
1970 + .45997, .19679, .38665, .04166, .01572,
1971 + .00908, .03471, .05805,
1972 + .45500, .19407, .37242, .04093, .01562,
1973 + .00917, .03414, .05688 /
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 + .44995, .19134, .35868, .04022, .01551,
1976 + .00924, .03356, .05572,
1977 + .44497, .18867, .34574, .03952, .01539,
1978 + .00929, .03299, .05459,
1979 + .44022, .18616, .33394, .03886, .01527,
1980 + .00933, .03245, .05354,
1981 + .43570, .18380, .32319, .03825, .01514,
1982 + .00935, .03194, .05253,
1983 + .43119, .18146, .31275, .03763, .01500,
1984 + .00936, .03144, .05155 /
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 + .57679, .29185, 1.45303, .03775, .00000,
1987 + .00000, .02327, .08290,
1988 + .58334, .29127, 1.39444, .03962, .00000,
1989 + .00000, .02569, .08278,
1990 + .58920, .28911, 1.33260, .04182, -.01353,
1991 + .00000, .02856, .08218,
1992 + .59103, .28674, 1.26198, .04297, -.00993,
1993 + .00000, .03026, .08154,
1994 + .59146, .28380, 1.19023, .04389, -.00671,
1995 + .00000, .03164, .08064,
1996 + .59077, .28094, 1.13078, .04444, -.00440,
1997 + .00000, .03258, .07971,
1998 + .58930, .27801, 1.07620, .04480, -.00243,
1999 + .00000, .03328, .07868,
2000 + .58703, .27474, 1.02102, .04503, -.00057,
2001 + .00000, .03383, .07750 /
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 + .58455, .27178, .97541, .04510, .00089,
2004 + .00000, .03419, .07642,
2005 + .58173, .26883, .93324, .04509, .00213,
2006 + .00000, .03440, .07530,
2007 + .57922, .26641, .90102, .04501, .00302,
2008 + .00000, .03452, .07440,
2009 + .57327, .26119, .83585, .04469, .00468,
2010 + .00000, .03464, .07243,
2011 + .56741, .25656, .79238, .04429, .00587,
2012 + -.00424, .03456, .07071,
2013 + .56037, .25134, .73478, .04374, .00700,
2014 + -.00238, .03438, .06875,
2015 + .55257, .24591, .68007, .04305, .00795,
2016 + -.00090, .03402, .06669,
2017 + .54517, .24096, .63456, .04235, .00866,
2018 + .00026, .03361, .06481 /
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 + .53745, .23598, .59223, .04157, .00925,
2021 + .00127, .03310, .06293,
2022 + .53089, .23189, .55960, .04089, .00964,
2023 + .00198, .03266, .06137,
2024 + .52275, .22694, .52287, .04003, .01002,
2025 + .00273, .03207, .05949,
2026 + .51546, .22261, .49279, .03925, .01029,
2027 + .00331, .03150, .05787,
2028 + .50874, .21870, .46709, .03851, .01048,
2029 + .00377, .03096, .05642,
2030 + .50009, .21376, .43674, .03757, .01066,
2031 + .00426, .03027, .05459,
2032 + .49191, .20915, .41037, .03668, .01077,
2033 + .00466, .02959, .05293,
2034 + .48425, .20493, .38744, .03584, .01083,
2035 + .00497, .02895, .05138 /
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 + .47659, .20081, .36610, .03503, .01087,
2038 + .00524, .02831, .04988,
2039 + .46906, .19679, .34656, .03422, .01086,
2040 + .00545, .02768, .04844,
2041 + .46200, .19306, .32929, .03345, .01083,
2042 + .00563, .02708, .04712,
2043 + .45535, .18959, .31398, .03275, .01078,
2044 + .00576, .02654, .04589,
2045 + .44871, .18615, .29948, .03203, .01072,
2046 + .00588, .02597, .04469,
2047 + .44226, .18281, .28604, .03133, .01065,
2048 + .00597, .02541, .04355,
2049 + .43608, .17969, .27392, .03069, .01057,
2050 + .00604, .02490, .04248,
2051 + .43030, .17679, .26304, .03010, .01048,
2052 + .00609, .02443, .04150 /
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 + .42449, .17388, .25263, .02950, .01039,
2055 + .00612, .02395, .04052,
2056 + .41882, .17105, .24285, .02892, .01029,
2057 + .00615, .02348, .03960,
2058 + .41345, .16840, .23398, .02838, .01019,
2059 + .00617, .02303, .03872,
2060 + .40835, .16592, .22593, .02785, .01010,
2061 + .00618, .02262, .03792,
2062 + .40330, .16347, .21815, .02734, .00999,
2063 + .00618, .02221, .03711 /
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 + .60704, .29679, 1.30635, .03111, .00000,
2066 + .00000, .01911, .07188,
2067 + .61064, .29444, 1.23046, .03276, .00000,
2068 + .00000, .02117, .07118,
2069 + .61224, .28978, 1.14872, .03449, -.01187,
2070 + .00000, .02348, .06989,
2071 + .61100, .28588, 1.07209, .03541, -.00885,
2072 + .00000, .02470, .06873,
2073 + .60821, .28146, .99710, .03607, -.00617,
2074 + .00000, .02572, .06738,
2075 + .60483, .27738, .93704, .03640, -.00427,
2076 + .00000, .02635, .06610,
2077 + .60090, .27336, .88320, .03655, -.00267,
2078 + .00000, .02678, .06482,
2079 + .59608, .26896, .82990, .03658, -.00117,
2080 + .00000, .02709, .06344 /
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 + .59147, .26509, .78665, .03651, -.00001,
2083 + .00000, .02725, .06219,
2084 + .58666, .26131, .74729, .03636, .00097,
2085 + .00000, .02732, .06097,
2086 + .58260, .25829, .71770, .03619, .00167,
2087 + .00000, .02731, .05999,
2088 + .57353, .25187, .65878, .03575, .00295,
2089 + .00000, .02720, .05790,
2090 + .56517, .24629, .61933, .03526, .00387,
2091 + -.00341, .02699, .05615,
2092 + .55547, .24014, .56934, .03464, .00472,
2093 + -.00201, .02663, .05424,
2094 + .54508, .23380, .52253, .03391, .00544,
2095 + -.00089, .02620, .05224,
2096 + .53552, .22813, .48408, .03319, .00595,
2097 + -.00004, .02575, .05044 /
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 + .52572, .22249, .44876, .03243, .00638,
2100 + .00071, .02524, .04869,
2101 + .51750, .21787, .42179, .03179, .00665,
2102 + .00122, .02479, .04726,
2103 + .50752, .21234, .39170, .03098, .00692,
2104 + .00177, .02422, .04558,
2105 + .49868, .20756, .36727, .03026, .00711,
2106 + .00218, .02369, .04411,
2107 + .49061, .20329, .34651, .02960, .00724,
2108 + .00251, .02322, .04282,
2109 + .48039, .19791, .32219, .02876, .00736,
2110 + .00287, .02258, .04123,
2111 + .47080, .19300, .30127, .02798, .00742,
2112 + .00314, .02198, .03975,
2113 + .46193, .18850, .28321, .02725, .00746,
2114 + .00336, .02143, .03841 /
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 + .45316, .18408, .26649, .02653, .00747,
2117 + .00355, .02088, .03713,
2118 + .44459, .17982, .25132, .02582, .00745,
2119 + .00369, .02035, .03592,
2120 + .43661, .17589, .23794, .02517, .00742,
2121 + .00381, .01984, .03481,
2122 + .42917, .17226, .22610, .02456, .00737,
2123 + .00390, .01937, .03380,
2124 + .42176, .16868, .21498, .02396, .00732,
2125 + .00397, .01890, .03281,
2126 + .41457, .16525, .20472, .02339, .00726,
2127 + .00403, .01844, .03188,
2128 + .40777, .16203, .19554, .02285, .00720,
2129 + .00407, .01801, .03100,
2130 + .40146, .15904, .18731, .02235, .00713,
2131 + .00410, .01763, .03020 /
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 + .39512, .15606, .17944, .02185, .00704,
2134 + .00412, .01724, .02941,
2135 + .38896, .15319, .17207, .02138, .00697,
2136 + .00413, .01686, .02865,
2137 + .38315, .15049, .16541, .02093, .00689,
2138 + .00414, .01650, .02794,
2139 + .37766, .14798, .15937, .02051, .00682,
2140 + .00414, .01617, .02729,
2141 + .37223, .14549, .15355, .02012, .00674,
2142 + .00413, .01584, .02664 /
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 + .63114, .29788, 1.13133, .02643, .00000,
2145 + .00000, .01607, .06163,
2146 + .63123, .29374, 1.05035, .02776, .00000,
2147 + .00000, .01771, .06043,
2148 + .62785, .28675, .96284, .02902, -.01004,
2149 + .00000, .01944, .05853,
2150 + .62323, .28138, .88832, .02960, -.00756,
2151 + .00000, .02034, .05710,
2152 + .61715, .27546, .81716, .02996, -.00538,
2153 + .00000, .02101, .05549,
2154 + .61095, .27032, .76130, .03012, -.00384,
2155 + .00000, .02137, .05402,
2156 + .60449, .26527, .71201, .03011, -.00256,
2157 + .00000, .02159, .05267,
2158 + .59713, .25990, .66394, .02998, -.00137,
2159 + .00000, .02169, .05121 /
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 + .59042, .25524, .62538, .02980, -.00045,
2162 + .00000, .02171, .04994,
2163 + .58368, .25073, .59065, .02956, .00031,
2164 + .00000, .02166, .04873,
2165 + .57816, .24719, .56479, .02934, .00086,
2166 + .00000, .02159, .04776,
2167 + .56608, .23975, .51395, .02879, .00185,
2168 + .00000, .02136, .04575,
2169 + .55537, .23346, .47990, .02824, .00255,
2170 + -.00271, .02107, .04410,
2171 + .54329, .22657, .43800, .02759, .00319,
2172 + -.00166, .02070, .04230,
2173 + .53058, .21956, .39914, .02687, .00373,
2174 + -.00082, .02024, .04047,
2175 + .51904, .21336, .36756, .02618, .00411,
2176 + -.00018, .01979, .03885 /
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 + .50748, .20721, .33872, .02548, .00442,
2179 + .00037, .01929, .03730,
2180 + .49790, .20225, .31688, .02489, .00463,
2181 + .00075, .01888, .03605,
2182 + .48634, .19637, .29271, .02414, .00482,
2183 + .00116, .01835, .03457,
2184 + .47624, .19130, .27323, .02349, .00495,
2185 + .00146, .01789, .03331,
2186 + .46709, .18679, .25679, .02291, .00504,
2187 + .00170, .01746, .03220,
2188 + .45555, .18120, .23767, .02220, .00512,
2189 + .00194, .01691, .03082,
2190 + .44492, .17603, .22124, .02150, .00515,
2191 + .00214, .01640, .02962,
2192 + .43514, .17135, .20717, .02086, .00518,
2193 + .00230, .01592, .02854 /
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 + .42550, .16685, .19420, .02025, .00518,
2196 + .00243, .01544, .02750,
2197 + .41623, .16250, .18248, .01963, .00516,
2198 + .00253, .01500, .02648,
2199 + .40761, .15850, .17219, .01908, .00513,
2200 + .00261, .01459, .02557,
2201 + .39957, .15482, .16320, .01858, .00509,
2202 + .00266, .01418, .02475,
2203 + .39164, .15121, .15473, .01808, .00504,
2204 + .00271, .01381, .02395,
2205 + .38401, .14774, .14694, .01760, .00500,
2206 + .00275, .01345, .02319,
2207 + .37681, .14452, .13998, .01715, .00494,
2208 + .00277, .01311, .02249,
2209 + .37011, .14155, .13379, .01674, .00488,
2210 + .00279, .01279, .02184 /
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 + .36345, .13862, .12788, .01634, .00483,
2213 + .00280, .01247, .02122,
2214 + .35699, .13578, .12239, .01594, .00477,
2215 + .00281, .01217, .02062,
2216 + .35093, .13312, .11742, .01558, .00471,
2217 + .00281, .01190, .02007,
2218 + .34526, .13064, .11293, .01524, .00465,
2219 + .00281, .01164, .01954,
2220 + .33965, .12820, .10862, .01489, .00459,
2221 + .00280, .01139, .01902 /
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 + .64909, .29544, .95067, .02283, .00000,
2224 + .00000, .01389, .05206,
2225 + .64521, .28956, .87300, .02380, .00000,
2226 + .00000, .01500, .05057,
2227 + .63633, .28052, .78903, .02475, -.00831,
2228 + .00000, .01618, .04820,
2229 + .62823, .27375, .72145, .02505, -.00631,
2230 + .00000, .01673, .04665,
2231 + .61867, .26659, .65788, .02517, -.00456,
2232 + .00000, .01711, .04497,
2233 + .60978, .26043, .60869, .02515, -.00333,
2234 + .00000, .01728, .04352,
2235 + .60083, .25451, .56573, .02500, -.00230,
2236 + .00000, .01735, .04215,
2237 + .59098, .24836, .52420, .02480, -.00136,
2238 + .00000, .01733, .04071 /
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 + .58220, .24310, .49123, .02457, -.00064,
2241 + .00000, .01726, .03946,
2242 + .57361, .23804, .46176, .02427, -.00004,
2243 + .00000, .01712, .03834,
2244 + .56671, .23409, .43996, .02402, .00038,
2245 + .00000, .01701, .03744,
2246 + .55196, .22586, .39747, .02341, .00115,
2247 + .00000, .01669, .03564,
2248 + .53920, .21899, .36897, .02286, .00169,
2249 + -.00214, .01637, .03415,
2250 + .52501, .21155, .33462, .02223, .00218,
2251 + -.00135, .01599, .03253,
2252 + .51036, .20405, .30303, .02153, .00258,
2253 + -.00071, .01555, .03093,
2254 + .49723, .19746, .27753, .02087, .00287,
2255 + -.00023, .01512, .02957 /
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 + .48415, .19106, .25440, .02021, .00310,
2258 + .00018, .01468, .02825,
2259 + .47347, .18588, .23702, .01966, .00325,
2260 + .00046, .01432, .02716,
2261 + .46068, .17981, .21791, .01901, .00338,
2262 + .00075, .01386, .02590,
2263 + .44959, .17459, .20256, .01842, .00348,
2264 + .00097, .01343, .02489,
2265 + .43967, .16994, .18965, .01790, .00355,
2266 + .00115, .01305, .02401,
2267 + .42728, .16423, .17472, .01723, .00359,
2268 + .00133, .01262, .02291,
2269 + .41582, .15905, .16203, .01665, .00362,
2270 + .00147, .01219, .02188,
2271 + .40537, .15437, .15117, .01611, .00363,
2272 + .00158, .01180, .02097 /
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 + .39520, .14983, .14119, .01560, .00362,
2275 + .00167, .01142, .02011,
2276 + .38539, .14552, .13222, .01508, .00361,
2277 + .00175, .01104, .01932,
2278 + .37636, .14157, .12441, .01461, .00358,
2279 + .00179, .01071, .01859,
2280 + .36800, .13793, .11756, .01419, .00355,
2281 + .00184, .01040, .01794,
2282 + .35978, .13437, .11117, .01377, .00351,
2283 + .00186, .01009, .01731,
2284 + .35193, .13097, .10530, .01336, .00348,
2285 + .00190, .00980, .01672,
2286 + .34454, .12781, .10008, .01298, .00343,
2287 + .00191, .00953, .01616,
2288 + .33769, .12493, .09544, .01264, .00339,
2289 + .00192, .00928, .01566 /
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 + .33089, .12207, .09102, .01230, .00334,
2292 + .00193, .00903, .01518,
2293 + .32431, .11934, .08691, .01201, .00330,
2294 + .00193, .00880, .01471,
2295 + .31817, .11679, .08321, .01171, .00325,
2296 + .00192, .00857, .01428,
2297 + .31242, .11440, .07991, .01143, .00321,
2298 + .00192, .00836, .01389,
2299 + .30675, .11206, .07671, .01115, .00316,
2300 + .00191, .00816, .01351 /
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 + .65950, .29101, .78030, .02104, .00000,
2303 + .00000, .01130, .04255,
2304 + .65164, .28346, .71038, .02153, .00000,
2305 + .00000, .01214, .04093,
2306 + .63761, .27217, .63503, .02180, -.00681,
2307 + .00000, .01300, .03868,
2308 + .62610, .26417, .57635, .02186, -.00520,
2309 + .00000, .01337, .03712,
2310 + .61326, .25587, .52181, .02170, -.00380,
2311 + .00000, .01359, .03556,
2312 + .60177, .24880, .47999, .02151, -.00282,
2313 + .00000, .01367, .03420,
2314 + .59050, .24220, .44373, .02123, -.00200,
2315 + .00000, .01366, .03295,
2316 + .57845, .23533, .40892, .02087, -.00126,
2317 + .00000, .01359, .03170 /
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 + .56793, .22947, .38148, .02052, -.00069,
2320 + .00000, .01346, .03064,
2321 + .55770, .22396, .35709, .02018, -.00023,
2322 + .00000, .01336, .02960,
2323 + .54959, .21970, .33912, .01988, .00011,
2324 + .00000, .01323, .02885,
2325 + .53249, .21087, .30436, .01926, .00071,
2326 + .00000, .01291, .02724,
2327 + .51793, .20360, .28106, .01872, .00112,
2328 + -.00169, .01263, .02592,
2329 + .50197, .19582, .25337, .01808, .00149,
2330 + -.00109, .01227, .02459,
2331 + .48573, .18801, .22807, .01740, .00179,
2332 + -.00061, .01184, .02330,
2333 + .47134, .18122, .20777, .01678, .00202,
2334 + -.00024, .01146, .02217 /
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 + .45712, .17465, .18953, .01617, .00219,
2337 + .00007, .01109, .02105,
2338 + .44560, .16937, .17586, .01566, .00230,
2339 + .00028, .01079, .02018,
2340 + .43194, .16320, .16089, .01507, .00240,
2341 + .00049, .01038, .01919,
2342 + .42018, .15794, .14891, .01455, .00246,
2343 + .00065, .01006, .01837,
2344 + .40968, .15331, .13891, .01407, .00251,
2345 + .00079, .00977, .01763,
2346 + .39663, .14763, .12742, .01353, .00254,
2347 + .00092, .00938, .01671,
2348 + .38474, .14250, .11768, .01300, .00255,
2349 + .00101, .00902, .01593,
2350 + .37394, .13786, .10938, .01254, .00256,
2351 + .00110, .00871, .01522 /
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 + .36344, .13342, .10181, .01209, .00255,
2354 + .00116, .00840, .01454,
2355 + .35335, .12921, .09502, .01167, .00253,
2356 + .00121, .00811, .01393,
2357 + .34411, .12537, .08912, .01128, .00251,
2358 + .00124, .00784, .01335,
2359 + .33568, .12185, .08397, .01093, .00248,
2360 + .00127, .00760, .01284,
2361 + .32737, .11843, .07919, .01056, .00246,
2362 + .00130, .00734, .01235,
2363 + .31938, .11517, .07482, .01022, .00242,
2364 + .00131, .00711, .01190,
2365 + .31196, .11215, .07094, .00992, .00239,
2366 + .00132, .00690, .01150,
2367 + .30513, .10937, .06749, .00963, .00236,
2368 + .00133, .00670, .01114 /
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 + .29839, .10664, .06424, .00935, .00233,
2371 + .00133, .00650, .01076,
2372 + .29190, .10403, .06122, .00907, .00229,
2373 + .00133, .00632, .01040,
2374 + .28583, .10161, .05852, .00882, .00226,
2375 + .00133, .00614, .01007,
2376 + .28015, .09936, .05607, .00859, .00223,
2377 + .00133, .00599, .00977,
2378 + .27456, .09714, .05375, .00836, .00219,
2379 + .00132, .00583, .00947 /
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 + .66474, .28289, .62750, .01850, .00000,
2382 + .00000, .00959, .03438,
2383 + .65265, .27386, .56732, .01870, .00000,
2384 + .00000, .01014, .03288,
2385 + .63304, .26091, .50282, .01874, -.00557,
2386 + .00000, .01064, .03069,
2387 + .61814, .25191, .45363, .01860, -.00428,
2388 + .00000, .01084, .02925,
2389 + .60216, .24267, .40809, .01837, -.00315,
2390 + .00000, .01093, .02777,
2391 + .58816, .23500, .37346, .01807, -.00237,
2392 + .00000, .01092, .02656,
2393 + .57474, .22783, .34359, .01775, -.00172,
2394 + .00000, .01087, .02545,
2395 + .56057, .22046, .31509, .01735, -.00113,
2396 + .00000, .01073, .02436 /
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 + .54840, .21426, .29266, .01699, -.00069,
2399 + .00000, .01059, .02346,
2400 + .53676, .20845, .27288, .01663, -.00032,
2401 + .00000, .01045, .02260,
2402 + .52757, .20397, .25836, .01635, -.00006,
2403 + .00000, .01031, .02192,
2404 + .50847, .19476, .23043, .01571, .00040,
2405 + .00000, .01001, .02060,
2406 + .49252, .18725, .21171, .01514, .00072,
2407 + -.00134, .00971, .01957,
2408 + .47517, .17931, .18967, .01455, .00101,
2409 + -.00088, .00939, .01844,
2410 + .45766, .17143, .16968, .01395, .00125,
2411 + -.00051, .00905, .01732,
2412 + .44228, .16459, .15373, .01340, .00140,
2413 + -.00024, .00874, .01639 /
2414 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
2415 + .42730, .15798, .13947, .01283, .00154,
2416 + .00000, .00841, .01550,
2417 + .41521, .15272, .12885, .01236, .00162,
2418 + .00015, .00811, .01487,
2419 + .40096, .14662, .11725, .01184, .00169,
2420 + .00031, .00779, .01407,
2421 + .38874, .14147, .10806, .01141, .00174,
2422 + .00044, .00753, .01338,
2423 + .37792, .13694, .10041, .01103, .00177,
2424 + .00053, .00728, .01276,
2425 + .36458, .13141, .09167, .01052, .00180,
2426 + .00063, .00695, .01212,
2427 + .35243, .12642, .08430, .01008, .00180,
2428 + .00070, .00668, .01149,
2429 + .34148, .12196, .07803, .00970, .00180,
2430 + .00076, .00644, .01094 /
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 + .33092, .11769, .07234, .00931, .00180,
2433 + .00080, .00618, .01043,
2434 + .32085, .11364, .06728, .00893, .00178,
2435 + .00084, .00594, .00995,
2436 + .31166, .10996, .06290, .00861, .00177,
2437 + .00087, .00572, .00952,
2438 + .30322, .10662, .05910, .00831, .00174,
2439 + .00088, .00554, .00912,
2440 + .29497, .10337, .05556, .00803, .00172,
2441 + .00090, .00534, .00876,
2442 + .28709, .10032, .05235, .00777, .00170,
2443 + .00091, .00514, .00842,
2444 + .27982, .09747, .04951, .00751, .00167,
2445 + .00091, .00498, .00811,
2446 + .27313, .09487, .04700, .00727, .00165,
2447 + .00092, .00483, .00781 /
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 + .26653, .09232, .04464, .00703, .00162,
2450 + .00092, .00468, .00754,
2451 + .26018, .08987, .04246, .00681, .00159,
2452 + .00092, .00454, .00728,
2453 + .25427, .08763, .04049, .00661, .00157,
2454 + .00092, .00441, .00703,
2455 + .24877, .08553, .03875, .00644, .00154,
2456 + .00091, .00429, .00680,
2457 + .24337, .08348, .03708, .00626, .00152,
2458 + .00091, .00416, .00659 /
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 + .66338, .27286, .49602, .01650, .00000,
2461 + .00000, .00774, .02701,
2462 + .64712, .26261, .44588, .01650, .00000,
2463 + .00000, .00815, .02554,
2464 + .62245, .24804, .39242, .01621, -.00457,
2465 + .00000, .00850, .02369,
2466 + .60437, .23826, .35190, .01597, -.00353,
2467 + .00000, .00857, .02243,
2468 + .58546, .22831, .31469, .01559, -.00263,
2469 + .00000, .00860, .02121,
2470 + .56935, .22006, .28646, .01520, -.00199,
2471 + .00000, .00856, .02025,
2472 + .55406, .21250, .26225, .01483, -.00147,
2473 + .00000, .00847, .01932,
2474 + .53812, .20478, .23925, .01443, -.00100,
2475 + .00000, .00838, .01836 /
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 + .52457, .19835, .22124, .01407, -.00065,
2478 + .00000, .00824, .01760,
2479 + .51172, .19233, .20540, .01371, -.00035,
2480 + .00000, .00809, .01691,
2481 + .50172, .18772, .19384, .01340, -.00015,
2482 + .00000, .00794, .01640,
2483 + .48102, .17836, .17173, .01277, .00021,
2484 + .00000, .00767, .01531,
2485 + .46392, .17081, .15687, .01229, .00046,
2486 + -.00106, .00745, .01443,
2487 + .44558, .16280, .13956, .01175, .00068,
2488 + -.00071, .00717, .01355,
2489 + .42719, .15492, .12397, .01117, .00086,
2490 + -.00042, .00686, .01271,
2491 + .41119, .14818, .11161, .01065, .00099,
2492 + -.00021, .00657, .01200 /
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 + .39572, .14171, .10063, .01013, .00108,
2495 + -.00004, .00630, .01133,
2496 + .38327, .13661, .09253, .00975, .00114,
2497 + .00008, .00608, .01076,
2498 + .36865, .13068, .08372, .00935, .00119,
2499 + .00020, .00582, .01012,
2500 + .35627, .12568, .07676, .00898, .00123,
2501 + .00029, .00559, .00960,
2502 + .34537, .12130, .07100, .00863, .00126,
2503 + .00036, .00538, .00917,
2504 + .33202, .11600, .06445, .00819, .00127,
2505 + .00043, .00514, .00863,
2506 + .31994, .11123, .05894, .00781, .00128,
2507 + .00049, .00492, .00817,
2508 + .30909, .10698, .05433, .00748, .00127,
2509 + .00053, .00471, .00776 /
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 + .29866, .10292, .05018, .00713, .00127,
2512 + .00056, .00451, .00737,
2513 + .28874, .09913, .04649, .00682, .00125,
2514 + .00058, .00431, .00702,
2515 + .27970, .09568, .04330, .00655, .00124,
2516 + .00060, .00415, .00671,
2517 + .27144, .09255, .04054, .00633, .00122,
2518 + .00061, .00399, .00641,
2519 + .26343, .08952, .03800, .00609, .00120,
2520 + .00062, .00385, .00613,
2521 + .25583, .08664, .03569, .00586, .00119,
2522 + .00063, .00371, .00589,
2523 + .24879, .08402, .03367, .00566, .00117,
2524 + .00063, .00357, .00565,
2525 + .24232, .08162, .03191, .00547, .00115,
2526 + .00064, .00346, .00541 /
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 + .23596, .07927, .03023, .00529, .00113,
2529 + .00064, .00335, .00522,
2530 + .22988, .07700, .02869, .00512, .00111,
2531 + .00064, .00323, .00503,
2532 + .22422, .07493, .02732, .00496, .00108,
2533 + .00063, .00314, .00486,
2534 + .21899, .07302, .02608, .00481, .00107,
2535 + .00063, .00304, .00468,
2536 + .21387, .07114, .02491, .00467, .00104,
2537 + .00062, .00295, .00453 /
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 + .65603, .26077, .38549, .01453, .00000,
2540 + .00000, .00618, .02058,
2541 + .63599, .24928, .34465, .01422, .00000,
2542 + .00000, .00644, .01950,
2543 + .60638, .23369, .30128, .01381, -.00377,
2544 + .00000, .00667, .01792,
2545 + .58558, .22319, .26839, .01347, -.00293,
2546 + .00000, .00678, .01687,
2547 + .56406, .21280, .23847, .01307, -.00219,
2548 + .00000, .00673, .01589,
2549 + .54602, .20424, .21582, .01268, -.00167,
2550 + .00000, .00667, .01506,
2551 + .52916, .19637, .19642, .01230, -.00125,
2552 + .00000, .00658, .01436,
2553 + .51178, .18847, .17816, .01188, -.00088,
2554 + .00000, .00644, .01362 /
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 + .49710, .18194, .16390, .01152, -.00060,
2557 + .00000, .00633, .01301,
2558 + .48336, .17586, .15145, .01116, -.00037,
2559 + .00000, .00620, .01244,
2560 + .47267, .17126, .14232, .01089, -.00021,
2561 + .00000, .00610, .01202,
2562 + .45078, .16191, .12492, .01034, .00008,
2563 + .00000, .00586, .01118,
2564 + .43295, .15438, .11348, .00987, .00028,
2565 + -.00083, .00564, .01052,
2566 + .41393, .14650, .10014, .00938, .00044,
2567 + -.00057, .00539, .00985,
2568 + .39508, .13882, .08818, .00885, .00059,
2569 + -.00035, .00513, .00920,
2570 + .37881, .13224, .07880, .00837, .00068,
2571 + -.00019, .00490, .00864 /
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 + .36307, .12598, .07051, .00797, .00075,
2574 + -.00006, .00470, .00808,
2575 + .35055, .12108, .06440, .00766, .00080,
2576 + .00003, .00452, .00767,
2577 + .33605, .11541, .05781, .00724, .00084,
2578 + .00012, .00431, .00722,
2579 + .32372, .11065, .05271, .00690, .00086,
2580 + .00019, .00411, .00684,
2581 + .31284, .10651, .04850, .00664, .00088,
2582 + .00024, .00393, .00650,
2583 + .29971, .10146, .04373, .00626, .00089,
2584 + .00029, .00376, .00612,
2585 + .28784, .09700, .03976, .00595, .00090,
2586 + .00033, .00357, .00577,
2587 + .27721, .09302, .03646, .00569, .00089,
2588 + .00036, .00341, .00545 /
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 + .26703, .08926, .03350, .00543, .00088,
2591 + .00038, .00327, .00515,
2592 + .25742, .08571, .03088, .00519, .00087,
2593 + .00040, .00312, .00489,
2594 + .24870, .08251, .02865, .00498, .00087,
2595 + .00041, .00299, .00466,
2596 + .24079, .07963, .02673, .00477, .00085,
2597 + .00042, .00286, .00444,
2598 + .23313, .07685, .02496, .00459, .00083,
2599 + .00043, .00275, .00423,
2600 + .22588, .07421, .02338, .00440, .00082,
2601 + .00043, .00264, .00405,
2602 + .21918, .07179, .02200, .00423, .00081,
2603 + .00043, .00255, .00388,
2604 + .21306, .06960, .02077, .00407, .00079,
2605 + .00044, .00245, .00372 /
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 + .20704, .06747, .01964, .00394, .00078,
2608 + .00044, .00238, .00358,
2609 + .20128, .06546, .01859, .00381, .00076,
2610 + .00043, .00229, .00343,
2611 + .19596, .06358, .01767, .00369, .00075,
2612 + .00044, .00221, .00330,
2613 + .19107, .06184, .01685, .00356, .00073,
2614 + .00043, .00214, .00317,
2615 + .18627, .06015, .01608, .00344, .00073,
2616 + .00043, .00208, .00305 /
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 + .64325, .24663, .29389, .01212, .00000,
2619 + .00000, .00493, .01544,
2620 + .61941, .23453, .26096, .01192, .00000,
2621 + .00000, .00513, .01450,
2622 + .58558, .21799, .22654, .01141, -.00313,
2623 + .00000, .00528, .01325,
2624 + .56224, .20717, .20025, .01109, -.00243,
2625 + .00000, .00525, .01246,
2626 + .53867, .19636, .17636, .01062, -.00182,
2627 + .00000, .00525, .01173,
2628 + .51906, .18767, .15834, .01025, -.00140,
2629 + .00000, .00518, .01113,
2630 + .50089, .17979, .14314, .00991, -.00107,
2631 + .00000, .00508, .01054,
2632 + .48232, .17191, .12880, .00954, -.00076,
2633 + .00000, .00498, .00996 /
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 + .46682, .16539, .11772, .00921, -.00054,
2636 + .00000, .00486, .00950,
2637 + .45239, .15932, .10806, .00889, -.00035,
2638 + .00000, .00477, .00908,
2639 + .44127, .15471, .10110, .00866, -.00022,
2640 + .00000, .00467, .00873,
2641 + .41862, .14551, .08780, .00819, .00000,
2642 + .00000, .00446, .00807,
2643 + .40030, .13823, .07916, .00778, .00015,
2644 + -.00066, .00426, .00756,
2645 + .38103, .13061, .06906, .00731, .00029,
2646 + -.00045, .00407, .00704,
2647 + .36203, .12319, .06011, .00686, .00039,
2648 + -.00028, .00387, .00654,
2649 + .34566, .11690, .05315, .00652, .00046,
2650 + -.00017, .00370, .00612 /
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 + .33002, .11097, .04710, .00616, .00052,
2653 + -.00006, .00351, .00572,
2654 + .31765, .10632, .04266, .00589, .00055,
2655 + .00000, .00334, .00542,
2656 + .30334, .10097, .03797, .00554, .00058,
2657 + .00007, .00317, .00508,
2658 + .29130, .09650, .03433, .00527, .00060,
2659 + .00012, .00303, .00479,
2660 + .28075, .09262, .03135, .00504, .00061,
2661 + .00016, .00290, .00453,
2662 + .26797, .08794, .02801, .00472, .00062,
2663 + .00020, .00274, .00426,
2664 + .25654, .08379, .02529, .00448, .00062,
2665 + .00022, .00259, .00400,
2666 + .24634, .08011, .02303, .00425, .00062,
2667 + .00024, .00248, .00379 /
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 + .23661, .07665, .02100, .00405, .00061,
2670 + .00026, .00234, .00360,
2671 + .22744, .07340, .01925, .00385, .00060,
2672 + .00027, .00225, .00339,
2673 + .21919, .07050, .01777, .00367, .00059,
2674 + .00028, .00216, .00320,
2675 + .21172, .06786, .01652, .00350, .00058,
2676 + .00029, .00206, .00304,
2677 + .20448, .06533, .01538, .00336, .00057,
2678 + .00029, .00196, .00289,
2679 + .19763, .06296, .01434, .00323, .00057,
2680 + .00030, .00187, .00274,
2681 + .19133, .06080, .01345, .00310, .00056,
2682 + .00030, .00179, .00263,
2683 + .18561, .05883, .01267, .00297, .00054,
2684 + .00030, .00173, .00252 /
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 + .18002, .05690, .01196, .00285, .00054,
2687 + .00030, .00166, .00242,
2688 + .17468, .05506, .01129, .00275, .00052,
2689 + .00029, .00161, .00233,
2690 + .16977, .05338, .01070, .00265, .00051,
2691 + .00029, .00156, .00224,
2692 + .16522, .05183, .01020, .00256, .00050,
2693 + .00029, .00150, .00216,
2694 + .16079, .05033, .00971, .00247, .00049,
2695 + .00029, .00145, .00209 /
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 + .62468, .23163, .21814, .01042, .00000,
2698 + .00000, .00352, .01107,
2699 + .59770, .21893, .19209, .01007, .00000,
2700 + .00000, .00378, .01034,
2701 + .56008, .20190, .16503, .00959, -.00259,
2702 + .00000, .00389, .00949,
2703 + .53482, .19081, .14424, .00919, -.00202,
2704 + .00000, .00395, .00892,
2705 + .50961, .17992, .12550, .00875, -.00152,
2706 + .00000, .00398, .00834,
2707 + .48881, .17117, .11161, .00834, -.00117,
2708 + .00000, .00391, .00790,
2709 + .46977, .16330, .09989, .00798, -.00090,
2710 + .00000, .00384, .00750,
2711 + .45044, .15545, .08891, .00767, -.00066,
2712 + .00000, .00372, .00711 /
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 + .43437, .14904, .08057, .00740, -.00048,
2715 + .00000, .00363, .00675,
2716 + .41955, .14319, .07330, .00708, -.00033,
2717 + .00000, .00356, .00638,
2718 + .40824, .13872, .06804, .00688, -.00022,
2719 + .00000, .00348, .00615,
2720 + .38527, .12980, .05826, .00644, -.00005,
2721 + .00000, .00329, .00568,
2722 + .36692, .12277, .05195, .00605, .00007,
2723 + -.00052, .00314, .00532,
2724 + .34765, .11549, .04456, .00567, .00018,
2725 + -.00035, .00299, .00495,
2726 + .32877, .10848, .03815, .00532, .00026,
2727 + -.00023, .00282, .00459,
2728 + .31267, .10256, .03322, .00504, .00031,
2729 + -.00013, .00267, .00425 /
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 + .29735, .09696, .02903, .00474, .00035,
2732 + -.00006, .00253, .00397,
2733 + .28538, .09258, .02596, .00444, .00038,
2734 + -.00001, .00242, .00375,
2735 + .27146, .08762, .02275, .00420, .00040,
2736 + .00004, .00229, .00351,
2737 + .25982, .08350, .02032, .00399, .00041,
2738 + .00007, .00217, .00329,
2739 + .24969, .07993, .01834, .00382, .00042,
2740 + .00010, .00207, .00310,
2741 + .23743, .07563, .01617, .00360, .00043,
2742 + .00013, .00196, .00289,
2743 + .22655, .07184, .01442, .00338, .00042,
2744 + .00015, .00185, .00271,
2745 + .21690, .06848, .01302, .00319, .00043,
2746 + .00017, .00175, .00255 /
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 + .20777, .06531, .01178, .00299, .00042,
2749 + .00018, .00166, .00241,
2750 + .19916, .06238, .01072, .00283, .00041,
2751 + .00018, .00157, .00227,
2752 + .19142, .05974, .00981, .00270, .00041,
2753 + .00019, .00150, .00214,
2754 + .18445, .05738, .00904, .00260, .00040,
2755 + .00020, .00143, .00205,
2756 + .17768, .05513, .00836, .00250, .00039,
2757 + .00019, .00136, .00194,
2758 + .17130, .05301, .00775, .00239, .00039,
2759 + .00020, .00131, .00185,
2760 + .16551, .05108, .00726, .00228, .00037,
2761 + .00020, .00125, .00176,
2762 + .16025, .04932, .00680, .00219, .00037,
2763 + .00020, .00121, .00166 /
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 + .15513, .04761, .00638, .00210, .00036,
2766 + .00020, .00117, .00160,
2767 + .15025, .04599, .00603, .00200, .00035,
2768 + .00019, .00112, .00152,
2769 + .14573, .04450, .00570, .00192, .00035,
2770 + .00020, .00108, .00146,
2771 + .14156, .04314, .00542, .00187, .00034,
2772 + .00020, .00105, .00140,
2773 + .13750, .04182, .00516, .00181, .00033,
2774 + .00019, .00100, .00135 /
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 + .60121, .21567, .15493, .00867, .00000,
2777 + .00000, .00252, .00757,
2778 + .57160, .20256, .13463, .00837, .00000,
2779 + .00000, .00267, .00716,
2780 + .53115, .18528, .11398, .00786, -.00214,
2781 + .00000, .00281, .00658,
2782 + .50428, .17420, .09802, .00750, -.00166,
2783 + .00000, .00283, .00619,
2784 + .47779, .16346, .08378, .00704, -.00125,
2785 + .00000, .00282, .00583,
2786 + .45619, .15488, .07329, .00683, -.00098,
2787 + .00000, .00278, .00541,
2788 + .43648, .14723, .06452, .00658, -.00075,
2789 + .00000, .00273, .00511,
2790 + .41680, .13956, .05653, .00622, -.00056,
2791 + .00000, .00267, .00483 /
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 + .40066, .13329, .05044, .00591, -.00041,
2794 + .00000, .00261, .00461,
2795 + .38566, .12760, .04524, .00566, -.00029,
2796 + .00000, .00253, .00440,
2797 + .37423, .12335, .04153, .00547, -.00021,
2798 + .00000, .00247, .00421,
2799 + .35129, .11487, .03464, .00512, -.00007,
2800 + .00000, .00234, .00386,
2801 + .33313, .10821, .03028, .00480, .00002,
2802 + -.00040, .00223, .00364,
2803 + .31419, .10136, .02527, .00444, .00010,
2804 + -.00027, .00211, .00338,
2805 + .29579, .09478, .02098, .00416, .00016,
2806 + -.00018, .00197, .00308,
2807 + .28023, .08925, .01774, .00388, .00020,
2808 + -.00011, .00187, .00288 /
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 + .26552, .08405, .01499, .00364, .00024,
2811 + -.00005, .00178, .00269,
2812 + .25389, .08004, .01310, .00346, .00025,
2813 + -.00002, .00168, .00252,
2814 + .24071, .07545, .01116, .00320, .00027,
2815 + .00002, .00157, .00235,
2816 + .22970, .07166, .00969, .00303, .00028,
2817 + .00004, .00149, .00220,
2818 + .22011, .06838, .00854, .00287, .00029,
2819 + .00007, .00143, .00207,
2820 + .20858, .06449, .00733, .00268, .00028,
2821 + .00008, .00133, .00193,
2822 + .19838, .06106, .00635, .00250, .00029,
2823 + .00010, .00125, .00182,
2824 + .18937, .05806, .00558, .00234, .00029,
2825 + .00011, .00119, .00171 /
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 + .18082, .05525, .00494, .00222, .00029,
2828 + .00012, .00113, .00157,
2829 + .17282, .05261, .00440, .00213, .00028,
2830 + .00012, .00107, .00147,
2831 + .16567, .05026, .00398, .00201, .00027,
2832 + .00013, .00102, .00139,
2833 + .15928, .04814, .00362, .00189, .00027,
2834 + .00014, .00097, .00132,
2835 + .15312, .04612, .00329, .00180, .00026,
2836 + .00013, .00093, .00127,
2837 + .14730, .04424, .00303, .00170, .00025,
2838 + .00013, .00088, .00120,
2839 + .14197, .04253, .00279, .00165, .00026,
2840 + .00014, .00085, .00114,
2841 + .13713, .04098, .00261, .00159, .00025,
2842 + .00013, .00080, .00110 /
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 + .13246, .03948, .00245, .00153, .00024,
2845 + .00013, .00077, .00104,
2846 + .12804, .03807, .00230, .00146, .00024,
2847 + .00014, .00074, .00099,
2848 + .12397, .03677, .00217, .00140, .00023,
2849 + .00014, .00070, .00094,
2850 + .12023, .03558, .00206, .00134, .00023,
2851 + .00013, .00068, .00091,
2852 + .11659, .03444, .00196, .00130, .00022,
2853 + .00013, .00066, .00087 /
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 + .57331, .19859, .10203, .00681, .00000,
2856 + .00000, .00177, .00510,
2857 + .54160, .18547, .08656, .00656, .00000,
2858 + .00000, .00195, .00485,
2859 + .49881, .16825, .07160, .00613, -.00175,
2860 + .00000, .00205, .00452,
2861 + .47094, .15736, .05969, .00589, -.00136,
2862 + .00000, .00210, .00423,
2863 + .44367, .14690, .04935, .00559, -.00102,
2864 + .00000, .00208, .00391,
2865 + .42175, .13848, .04188, .00527, -.00080,
2866 + .00000, .00206, .00375,
2867 + .40195, .13107, .03581, .00498, -.00062,
2868 + .00000, .00202, .00354,
2869 + .38213, .12378, .03030, .00471, -.00046,
2870 + .00000, .00196, .00333 /
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 + .36591, .11785, .02622, .00450, -.00035,
2873 + .00000, .00194, .00314,
2874 + .35103, .11248, .02279, .00431, -.00025,
2875 + .00000, .00185, .00300,
2876 + .33977, .10843, .02039, .00413, -.00020,
2877 + .00000, .00181, .00289,
2878 + .31725, .10042, .01608, .00379, -.00009,
2879 + .00000, .00171, .00268,
2880 + .29954, .09419, .01346, .00357, -.00001,
2881 + -.00030, .00162, .00249,
2882 + .28123, .08783, .01034, .00330, .00005,
2883 + -.00021, .00153, .00231,
2884 + .26358, .08176, .00778, .00303, .00009,
2885 + -.00014, .00144, .00212,
2886 + .24870, .07670, .00597, .00283, .00012,
2887 + -.00009, .00136, .00195 /
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 + .23467, .07197, .00451, .00263, .00015,
2890 + -.00005, .00126, .00182,
2891 + .22375, .06828, .00353, .00247, .00016,
2892 + -.00002, .00121, .00169,
2893 + .21122, .06417, .00261, .00232, .00017,
2894 + .00000, .00112, .00156,
2895 + .20085, .06076, .00193, .00217, .00019,
2896 + .00003, .00106, .00147,
2897 + .19190, .05782, .00145, .00205, .00019,
2898 + .00004, .00100, .00138,
2899 + .18117, .05432, .00094, .00193, .00019,
2900 + .00005, .00094, .00127,
2901 + .17174, .05126, .00060, .00181, .00019,
2902 + .00006, .00089, .00118,
2903 + .16343, .04859, .00034, .00170, .00019,
2904 + .00007, .00084, .00111 /
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 + .15560, .04609, .00014, .00159, .00018,
2907 + .00007, .00080, .00103,
2908 + .14835, .04375, .00002, .00148, .00018,
2909 + .00008, .00074, .00098,
2910 + .14185, .04168, -.00009, .00139, .00018,
2911 + .00008, .00070, .00093,
2912 + .13599, .03984, -.00016, .00133, .00018,
2913 + .00009, .00068, .00088,
2914 + .13038, .03810, -.00020, .00125, .00017,
2915 + .00009, .00064, .00083,
2916 + .12514, .03646, -.00023, .00120, .00016,
2917 + .00008, .00061, .00078,
2918 + .12036, .03498, -.00024, .00114, .00017,
2919 + .00009, .00059, .00073,
2920 + .11604, .03363, -.00023, .00110, .00016,
2921 + .00009, .00056, .00069 /
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 + .11185, .03233, -.00024, .00105, .00016,
2924 + .00009, .00053, .00067,
2925 + .10790, .03111, -.00022, .00099, .00015,
2926 + .00008, .00051, .00065,
2927 + .10426, .02999, -.00022, .00095, .00015,
2928 + .00008, .00049, .00063,
2929 + .10091, .02897, -.00019, .00092, .00015,
2930 + .00009, .00046, .00060,
2931 + .09767, .02798, -.00018, .00090, .00015,
2932 + .00009, .00044, .00057 /
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 + .54154, .18102, .05720, .00519, .00000,
2935 + .00000, .00123, .00338,
2936 + .50817, .16801, .04641, .00492, .00000,
2937 + .00000, .00137, .00328,
2938 + .46409, .15112, .03651, .00454, -.00141,
2939 + .00000, .00153, .00301,
2940 + .43570, .14053, .02835, .00426, -.00108,
2941 + .00000, .00158, .00288,
2942 + .40809, .13043, .02142, .00403, -.00082,
2943 + .00000, .00161, .00273,
2944 + .38603, .12248, .01665, .00379, -.00064,
2945 + .00000, .00154, .00266,
2946 + .36632, .11546, .01293, .00355, -.00050,
2947 + .00000, .00153, .00249,
2948 + .34677, .10852, .00964, .00334, -.00038,
2949 + .00000, .00150, .00234 /
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 + .33086, .10294, .00728, .00316, -.00028,
2952 + .00000, .00143, .00224,
2953 + .31636, .09790, .00545, .00297, -.00022,
2954 + .00000, .00139, .00214,
2955 + .30538, .09414, .00419, .00285, -.00017,
2956 + .00000, .00135, .00204,
2957 + .28359, .08674, .00200, .00264, -.00008,
2958 + .00000, .00128, .00184,
2959 + .26658, .08104, .00082, .00246, -.00003,
2960 + -.00022, .00122, .00170,
2961 + .24910, .07519, -.00066, .00226, .00002,
2962 + -.00015, .00116, .00157,
2963 + .23234, .06966, -.00177, .00206, .00005,
2964 + -.00011, .00107, .00147,
2965 + .21827, .06509, -.00246, .00192, .00007,
2966 + -.00007, .00100, .00136 /
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 + .20510, .06083, -.00290, .00180, .00009,
2969 + -.00004, .00094, .00122,
2970 + .19492, .05755, -.00312, .00166, .00010,
2971 + -.00002, .00086, .00117,
2972 + .18336, .05386, -.00336, .00153, .00011,
2973 + .00000, .00084, .00109,
2974 + .17380, .05083, -.00343, .00145, .00011,
2975 + .00001, .00079, .00101,
2976 + .16555, .04824, -.00343, .00138, .00012,
2977 + .00002, .00075, .00094,
2978 + .15580, .04516, -.00337, .00124, .00012,
2979 + .00003, .00069, .00088,
2980 + .14717, .04248, -.00326, .00115, .00012,
2981 + .00004, .00064, .00083,
2982 + .13958, .04013, -.00315, .00110, .00012,
2983 + .00004, .00060, .00076 /
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 + .13247, .03795, -.00299, .00103, .00012,
2986 + .00005, .00057, .00069,
2987 + .12592, .03595, -.00285, .00095, .00012,
2988 + .00005, .00053, .00068,
2989 + .12008, .03417, -.00270, .00089, .00012,
2990 + .00006, .00050, .00064,
2991 + .11482, .03257, -.00256, .00086, .00012,
2992 + .00006, .00047, .00059,
2993 + .10981, .03105, -.00242, .00083, .00011,
2994 + .00006, .00045, .00056,
2995 + .10515, .02964, -.00226, .00077, .00011,
2996 + .00005, .00043, .00053,
2997 + .10092, .02837, -.00213, .00072, .00010,
2998 + .00005, .00042, .00051,
2999 + .09710, .02724, -.00200, .00068, .00011,
3000 + .00006, .00039, .00048 /
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 + .09338, .02614, -.00187, .00065, .00010,
3003 + .00006, .00037, .00046,
3004 + .08988, .02509, -.00177, .00064, .00010,
3005 + .00006, .00036, .00042,
3006 + .08667, .02414, -.00165, .00062, .00010,
3007 + .00006, .00033, .00040,
3008 + .08377, .02329, -.00155, .00058, .00009,
3009 + .00006, .00032, .00039,
3010 + .08094, .02245, -.00146, .00055, .00009,
3011 + .00005, .00031, .00038 /
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 + .50674, .16426, .01871, .00442, .00000,
3014 + .00000, .00049, .00184,
3015 + .47247, .15154, .01201, .00422, .00000,
3016 + .00000, .00067, .00181,
3017 + .42775, .13523, .00682, .00383, -.00111,
3018 + .00000, .00083, .00176,
3019 + .39931, .12500, .00217, .00354, -.00086,
3020 + .00000, .00090, .00176,
3021 + .37196, .11543, -.00152, .00332, -.00065,
3022 + .00000, .00093, .00160,
3023 + .35026, .10792, -.00390, .00311, -.00050,
3024 + .00000, .00095, .00151,
3025 + .33097, .10128, -.00565, .00291, -.00039,
3026 + .00000, .00092, .00150,
3027 + .31198, .09481, -.00694, .00269, -.00029,
3028 + .00000, .00088, .00142 /
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 + .29653, .08963, -.00771, .00254, -.00023,
3031 + .00000, .00088, .00134,
3032 + .28246, .08501, -.00832, .00248, -.00017,
3033 + .00000, .00086, .00124,
3034 + .27199, .08153, -.00861, .00235, -.00014,
3035 + .00000, .00083, .00119,
3036 + .25129, .07472, -.00896, .00209, -.00007,
3037 + .00000, .00077, .00112,
3038 + .23517, .06948, -.00888, .00196, -.00003,
3039 + -.00016, .00073, .00103,
3040 + .21875, .06420, -.00904, .00178, .00000,
3041 + -.00012, .00070, .00096,
3042 + .20306, .05921, -.00896, .00163, .00003,
3043 + -.00008, .00065, .00088,
3044 + .19004, .05511, -.00874, .00151, .00004,
3045 + -.00005, .00061, .00080 /
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 + .17792, .05132, -.00846, .00137, .00005,
3048 + -.00003, .00057, .00076,
3049 + .16855, .04839, -.00810, .00128, .00006,
3050 + -.00002, .00053, .00070,
3051 + .15792, .04512, -.00767, .00119, .00006,
3052 + -.00001, .00051, .00064,
3053 + .14920, .04243, -.00727, .00110, .00007,
3054 + .00000, .00047, .00060,
3055 + .14173, .04014, -.00692, .00103, .00008,
3056 + .00001, .00044, .00059,
3057 + .13283, .03745, -.00641, .00094, .00008,
3058 + .00002, .00040, .00055,
3059 + .12504, .03513, -.00596, .00089, .00008,
3060 + .00002, .00038, .00048,
3061 + .11825, .03309, -.00555, .00083, .00007,
3062 + .00002, .00036, .00045 /
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 + .11190, .03121, -.00517, .00077, .00008,
3065 + .00003, .00032, .00044,
3066 + .10605, .02947, -.00480, .00073, .00007,
3067 + .00003, .00031, .00040,
3068 + .10085, .02792, -.00447, .00069, .00007,
3069 + .00003, .00029, .00036,
3070 + .09620, .02657, -.00420, .00065, .00007,
3071 + .00003, .00028, .00034,
3072 + .09179, .02527, -.00389, .00062, .00007,
3073 + .00004, .00026, .00032,
3074 + .08769, .02406, -.00362, .00058, .00007,
3075 + .00004, .00024, .00030,
3076 + .08396, .02298, -.00338, .00054, .00007,
3077 + .00004, .00023, .00029,
3078 + .08061, .02201, -.00318, .00054, .00006,
3079 + .00004, .00022, .00028 /
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 + .07736, .02108, -.00298, .00050, .00006,
3082 + .00004, .00021, .00027,
3083 + .07432, .02021, -.00278, .00047, .00006,
3084 + .00003, .00020, .00025,
3085 + .07154, .01941, -.00261, .00044, .00006,
3086 + .00003, .00020, .00023,
3087 + .06901, .01867, -.00245, .00044, .00006,
3088 + .00003, .00019, .00022,
3089 + .06657, .01798, -.00231, .00041, .00005,
3090 + .00003, .00018, .00021 /
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 + .46900, .14647, -.01308, .00309, .00000,
3093 + .00000, .00033, .00108,
3094 + .43454, .13429, -.01591, .00287, .00000,
3095 + .00000, .00050, .00117,
3096 + .38982, .11890, -.01684, .00268, -.00085,
3097 + .00000, .00059, .00117,
3098 + .36179, .10937, -.01836, .00247, -.00065,
3099 + .00000, .00065, .00112,
3100 + .33504, .10046, -.01931, .00230, -.00049,
3101 + .00000, .00070, .00105,
3102 + .31408, .09348, -.01956, .00214, -.00038,
3103 + .00000, .00069, .00098,
3104 + .29549, .08735, -.01947, .00199, -.00030,
3105 + .00000, .00067, .00096,
3106 + .27724, .08143, -.01911, .00186, -.00023,
3107 + .00000, .00064, .00093 /
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 + .26255, .07673, -.01870, .00176, -.00018,
3110 + .00000, .00064, .00086,
3111 + .24927, .07249, -.01820, .00166, -.00014,
3112 + .00000, .00063, .00084,
3113 + .23933, .06936, -.01770, .00161, -.00012,
3114 + .00000, .00059, .00079,
3115 + .21988, .06323, -.01663, .00147, -.00006,
3116 + .00000, .00055, .00071,
3117 + .20494, .05857, -.01560, .00132, -.00003,
3118 + -.00011, .00053, .00066,
3119 + .18964, .05388, -.01469, .00124, -.00001,
3120 + -.00008, .00047, .00061,
3121 + .17524, .04947, -.01371, .00111, .00001,
3122 + -.00006, .00045, .00055,
3123 + .16326, .04582, -.01278, .00103, .00001,
3124 + -.00004, .00042, .00051 /
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 + .15217, .04250, -.01185, .00095, .00003,
3127 + -.00002, .00038, .00046,
3128 + .14367, .03996, -.01113, .00091, .00003,
3129 + -.00002, .00036, .00044,
3130 + .13411, .03713, -.01023, .00080, .00004,
3131 + -.00001, .00033, .00039,
3132 + .12628, .03481, -.00949, .00073, .00004,
3133 + .00000, .00031, .00037,
3134 + .11957, .03284, -.00887, .00070, .00004,
3135 + .00000, .00028, .00035,
3136 + .11162, .03053, -.00812, .00065, .00005,
3137 + .00001, .00026, .00034,
3138 + .10473, .02851, -.00744, .00061, .00005,
3139 + .00001, .00025, .00030,
3140 + .09875, .02677, -.00686, .00057, .00004,
3141 + .00001, .00024, .00028 /
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 + .09316, .02517, -.00630, .00052, .00004,
3144 + .00001, .00021, .00026,
3145 + .08802, .02370, -.00580, .00046, .00005,
3146 + .00002, .00020, .00024,
3147 + .08348, .02241, -.00535, .00044, .00005,
3148 + .00002, .00018, .00021,
3149 + .07943, .02126, -.00495, .00042, .00004,
3150 + .00002, .00016, .00019,
3151 + .07559, .02017, -.00461, .00039, .00004,
3152 + .00002, .00015, .00019,
3153 + .07202, .01917, -.00428, .00037, .00004,
3154 + .00002, .00015, .00019,
3155 + .06881, .01825, -.00399, .00034, .00004,
3156 + .00002, .00014, .00019,
3157 + .06592, .01745, -.00372, .00032, .00004,
3158 + .00002, .00013, .00018 /
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 + .06314, .01667, -.00346, .00031, .00003,
3161 + .00002, .00013, .00016,
3162 + .06054, .01594, -.00324, .00031, .00003,
3163 + .00002, .00012, .00014,
3164 + .05815, .01528, -.00304, .00030, .00004,
3165 + .00003, .00012, .00013,
3166 + .05598, .01469, -.00285, .00027, .00004,
3167 + .00003, .00011, .00013,
3168 + .05389, .01411, -.00266, .00026, .00004,
3169 + .00003, .00010, .00012 /
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 + .42913, .12913, -.03879, .00199, .00000,
3172 + .00000, .00029, .00067,
3173 + .39489, .11771, -.03800, .00191, .00000,
3174 + .00000, .00039, .00071,
3175 + .35124, .10327, -.03490, .00172, -.00064,
3176 + .00000, .00044, .00076,
3177 + .32406, .09448, -.03390, .00162, -.00048,
3178 + .00000, .00048, .00077,
3179 + .29835, .08630, -.03233, .00150, -.00036,
3180 + .00000, .00047, .00071,
3181 + .27821, .07997, -.03082, .00142, -.00028,
3182 + .00000, .00048, .00066,
3183 + .26056, .07441, -.02934, .00136, -.00022,
3184 + .00000, .00047, .00065,
3185 + .24334, .06908, -.02763, .00126, -.00017,
3186 + .00000, .00046, .00060 /
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 + .22957, .06485, -.02615, .00118, -.00013,
3189 + .00000, .00043, .00058,
3190 + .21729, .06107, -.02472, .00107, -.00011,
3191 + .00000, .00040, .00054,
3192 + .20806, .05826, -.02366, .00103, -.00009,
3193 + .00000, .00040, .00052,
3194 + .19002, .05281, -.02144, .00093, -.00006,
3195 + .00000, .00039, .00048,
3196 + .17629, .04869, -.01966, .00084, -.00004,
3197 + -.00009, .00036, .00045,
3198 + .16238, .04458, -.01803, .00078, -.00002,
3199 + -.00006, .00035, .00040,
3200 + .14926, .04074, -.01634, .00069, .00000,
3201 + -.00004, .00030, .00036,
3202 + .13846, .03759, -.01497, .00063, .00001,
3203 + -.00002, .00028, .00034 /
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 + .12853, .03470, -.01365, .00058, .00001,
3206 + -.00002, .00026, .00032,
3207 + .12096, .03250, -.01263, .00051, .00002,
3208 + -.00001, .00025, .00030,
3209 + .11244, .03006, -.01150, .00048, .00002,
3210 + -.00001, .00023, .00028,
3211 + .10548, .02810, -.01054, .00046, .00003,
3212 + .00000, .00020, .00026,
3213 + .09957, .02644, -.00974, .00043, .00002,
3214 + .00000, .00019, .00023,
3215 + .09263, .02448, -.00881, .00039, .00002,
3216 + .00000, .00018, .00020,
3217 + .08659, .02279, -.00800, .00036, .00003,
3218 + .00001, .00016, .00019,
3219 + .08135, .02134, -.00733, .00034, .00003,
3220 + .00001, .00015, .00018 /
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 + .07648, .02000, -.00669, .00032, .00003,
3223 + .00001, .00014, .00016,
3224 + .07206, .01876, -.00612, .00029, .00002,
3225 + .00001, .00013, .00017,
3226 + .06813, .01768, -.00562, .00027, .00002,
3227 + .00001, .00013, .00015,
3228 + .06467, .01673, -.00518, .00025, .00002,
3229 + .00001, .00011, .00013,
3230 + .06138, .01585, -.00479, .00024, .00002,
3231 + .00001, .00010, .00011,
3232 + .05835, .01501, -.00442, .00021, .00002,
3233 + .00001, .00010, .00012,
3234 + .05560, .01427, -.00410, .00020, .00003,
3235 + .00002, .00009, .00012,
3236 + .05315, .01361, -.00382, .00019, .00003,
3237 + .00002, .00009, .00011 /
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 + .05080, .01298, -.00356, .00018, .00003,
3240 + .00002, .00009, .00011,
3241 + .04859, .01239, -.00331, .00016, .00003,
3242 + .00002, .00008, .00009,
3243 + .04658, .01184, -.00311, .00017, .00002,
3244 + .00002, .00008, .00009,
3245 + .04477, .01136, -.00291, .00015, .00002,
3246 + .00002, .00008, .00008,
3247 + .04302, .01089, -.00272, .00014, .00002,
3248 + .00002, .00007, .00008 /
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 + .38859, .11315, -.05971, .00170, .00000,
3251 + .00000, -.00001, .00023,
3252 + .35540, .10243, -.05561, .00155, .00000,
3253 + .00000, .00009, .00028,
3254 + .31326, .08919, -.04899, .00134, -.00046,
3255 + .00000, .00019, .00036,
3256 + .28725, .08117, -.04554, .00132, -.00035,
3257 + .00000, .00021, .00030,
3258 + .26290, .07363, -.04194, .00119, -.00026,
3259 + .00000, .00022, .00035,
3260 + .24405, .06790, -.03906, .00112, -.00021,
3261 + .00000, .00023, .00037,
3262 + .22759, .06292, -.03627, .00100, -.00017,
3263 + .00000, .00026, .00033,
3264 + .21161, .05814, -.03353, .00094, -.00012,
3265 + .00000, .00026, .00031 /
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 + .19887, .05438, -.03123, .00089, -.00010,
3268 + .00000, .00025, .00029,
3269 + .18748, .05102, -.02914, .00081, -.00008,
3270 + .00000, .00025, .00029,
3271 + .17901, .04856, -.02757, .00077, -.00006,
3272 + .00000, .00025, .00026,
3273 + .16257, .04378, -.02449, .00069, -.00004,
3274 + .00000, .00021, .00026,
3275 + .15010, .04021, -.02214, .00061, -.00003,
3276 + -.00006, .00019, .00024,
3277 + .13757, .03663, -.01994, .00056, -.00002,
3278 + -.00004, .00017, .00022,
3279 + .12587, .03328, -.01783, .00051, -.00001,
3280 + -.00003, .00016, .00019,
3281 + .11627, .03058, -.01610, .00046, .00000,
3282 + -.00002, .00016, .00019 /
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 + .10748, .02814, -.01453, .00041, .00001,
3285 + -.00001, .00015, .00016,
3286 + .10078, .02627, -.01332, .00038, .00001,
3287 + -.00001, .00012, .00016,
3288 + .09326, .02420, -.01201, .00038, .00001,
3289 + -.00001, .00011, .00014,
3290 + .08719, .02254, -.01095, .00035, .00002,
3291 + .00000, .00012, .00013,
3292 + .08206, .02113, -.01003, .00030, .00002,
3293 + .00000, .00010, .00011,
3294 + .07600, .01949, -.00898, .00029, .00001,
3295 + .00000, .00009, .00010,
3296 + .07082, .01808, -.00813, .00026, .00001,
3297 + .00000, .00009, .00011,
3298 + .06633, .01687, -.00738, .00022, .00001,
3299 + .00000, .00008, .00009 /
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 + .06218, .01575, -.00670, .00020, .00001,
3302 + .00000, .00007, .00009,
3303 + .05836, .01475, -.00611, .00019, .00001,
3304 + .00000, .00007, .00008,
3305 + .05502, .01386, -.00560, .00018, .00002,
3306 + .00001, .00007, .00008,
3307 + .05207, .01307, -.00516, .00018, .00002,
3308 + .00001, .00007, .00007,
3309 + .04929, .01234, -.00474, .00017, .00002,
3310 + .00001, .00006, .00007,
3311 + .04673, .01167, -.00436, .00015, .00002,
3312 + .00001, .00006, .00006,
3313 + .04443, .01106, -.00404, .00014, .00002,
3314 + .00001, .00006, .00006,
3315 + .04240, .01053, -.00373, .00013, .00002,
3316 + .00001, .00004, .00004 /
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 + .04042, .01002, -.00347, .00013, .00002,
3319 + .00001, .00004, .00004,
3320 + .03857, .00954, -.00322, .00013, .00001,
3321 + .00001, .00004, .00004,
3322 + .03689, .00911, -.00300, .00012, .00001,
3323 + .00001, .00003, .00004,
3324 + .03537, .00871, -.00281, .00012, .00001,
3325 + .00001, .00003, .00004,
3326 + .03393, .00834, -.00263, .00010, .00001,
3327 + .00001, .00003, .00004 /
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 + .34712, .09694, -.07404, .00085, .00000,
3330 + .00000, .00009, .00019,
3331 + .31525, .08725, -.06732, .00080, .00000,
3332 + .00000, .00014, .00028,
3333 + .27529, .07535, -.05789, .00081, -.00032,
3334 + .00000, .00019, .00025,
3335 + .25106, .06814, -.05262, .00073, -.00024,
3336 + .00000, .00020, .00025,
3337 + .22840, .06156, -.04754, .00067, -.00018,
3338 + .00000, .00019, .00027,
3339 + .21094, .05646, -.04337, .00058, -.00014,
3340 + .00000, .00020, .00024,
3341 + .19571, .05212, -.03977, .00058, -.00012,
3342 + .00000, .00019, .00022,
3343 + .18108, .04796, -.03623, .00055, -.00009,
3344 + .00000, .00017, .00021 /
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 + .16954, .04468, -.03344, .00051, -.00006,
3347 + .00000, .00016, .00020,
3348 + .15926, .04177, -.03094, .00047, -.00005,
3349 + .00000, .00016, .00021,
3350 + .15164, .03963, -.02905, .00043, -.00004,
3351 + .00000, .00015, .00020,
3352 + .13686, .03554, -.02545, .00038, -.00003,
3353 + .00000, .00015, .00019,
3354 + .12575, .03247, -.02281, .00037, -.00002,
3355 + -.00004, .00014, .00016,
3356 + .11465, .02942, -.02027, .00031, -.00001,
3357 + -.00003, .00013, .00015,
3358 + .10432, .02664, -.01792, .00028, .00000,
3359 + -.00001, .00012, .00014,
3360 + .09593, .02436, -.01603, .00026, .00000,
3361 + -.00001, .00011, .00012 /
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 + .08825, .02230, -.01429, .00023, .00000,
3364 + -.00001, .00009, .00011,
3365 + .08245, .02075, -.01301, .00021, .00001,
3366 + .00000, .00008, .00011,
3367 + .07599, .01903, -.01163, .00019, .00001,
3368 + .00000, .00007, .00010,
3369 + .07077, .01766, -.01051, .00017, .00000,
3370 + .00000, .00007, .00008,
3371 + .06637, .01651, -.00960, .00016, .00000,
3372 + .00000, .00007, .00009,
3373 + .06125, .01516, -.00854, .00015, .00000,
3374 + .00000, .00006, .00007,
3375 + .05682, .01401, -.00767, .00014, .00000,
3376 + .00000, .00006, .00006,
3377 + .05303, .01303, -.00694, .00012, .00001,
3378 + .00001, .00005, .00006 /
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 + .04953, .01213, -.00628, .00012, .00001,
3381 + .00001, .00005, .00006,
3382 + .04637, .01130, -.00570, .00011, .00001,
3383 + .00001, .00005, .00005,
3384 + .04358, .01060, -.00518, .00009, .00001,
3385 + .00001, .00005, .00005,
3386 + .04114, .00998, -.00474, .00008, .00001,
3387 + .00001, .00003, .00003,
3388 + .03883, .00939, -.00436, .00008, .00001,
3389 + .00001, .00003, .00003,
3390 + .03672, .00886, -.00401, .00008, .00001,
3391 + .00001, .00003, .00003,
3392 + .03482, .00837, -.00369, .00007, .00001,
3393 + .00001, .00003, .00003,
3394 + .03311, .00795, -.00342, .00007, .00001,
3395 + .00001, .00003, .00003 /
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 + .03150, .00754, -.00316, .00007, .00001,
3398 + .00001, .00003, .00003,
3399 + .02998, .00716, -.00294, .00007, .00001,
3400 + .00001, .00003, .00003,
3401 + .02863, .00682, -.00274, .00006, .00001,
3402 + .00001, .00003, .00003,
3403 + .02740, .00651, -.00255, .00006, .00001,
3404 + .00001, .00002, .00003,
3405 + .02622, .00623, -.00239, .00006, .00001,
3406 + .00001, .00002, .00003 /
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 + .26523, .06871, -.08706, .00039, .00000,
3409 + .00000, -.00004, .00002,
3410 + .23754, .06107, -.07665, .00042, .00000,
3411 + .00000, .00002, .00000,
3412 + .20358, .05173, -.06352, .00034, -.00014,
3413 + .00000, .00003, .00007,
3414 + .18337, .04624, -.05598, .00025, -.00011,
3415 + .00000, .00003, .00006,
3416 + .16470, .04122, -.04915, .00023, -.00008,
3417 + .00000, .00005, .00009,
3418 + .15052, .03746, -.04399, .00024, -.00006,
3419 + .00000, .00008, .00006,
3420 + .13834, .03424, -.03953, .00022, -.00005,
3421 + .00000, .00006, .00007,
3422 + .12675, .03122, -.03533, .00018, -.00004,
3423 + .00000, .00007, .00007 /
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 + .11765, .02883, -.03208, .00017, -.00003,
3426 + .00000, .00008, .00008,
3427 + .10964, .02676, -.02921, .00015, -.00003,
3428 + .00000, .00006, .00007,
3429 + .10377, .02524, -.02717, .00016, -.00003,
3430 + .00000, .00006, .00005,
3431 + .09252, .02235, -.02328, .00014, -.00002,
3432 + .00000, .00005, .00005,
3433 + .08415, .02023, -.02051, .00010, -.00002,
3434 + -.00002, .00005, .00005,
3435 + .07591, .01813, -.01789, .00011, -.00001,
3436 + -.00001, .00003, .00003,
3437 + .06832, .01623, -.01555, .00012, -.00001,
3438 + -.00001, .00003, .00003,
3439 + .06221, .01470, -.01367, .00009, -.00001,
3440 + -.00001, .00003, .00003 /
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 + .05668, .01334, -.01203, .00008, -.00001,
3443 + -.00001, .00004, .00004,
3444 + .05254, .01232, -.01084, .00009, -.00001,
3445 + -.00001, .00004, .00002,
3446 + .04801, .01120, -.00955, .00006, .00000,
3447 + .00000, .00003, .00002,
3448 + .04438, .01031, -.00856, .00006, .00000,
3449 + .00000, .00003, .00002,
3450 + .04132, .00957, -.00775, .00005, .00000,
3451 + .00000, .00003, .00003,
3452 + .03780, .00873, -.00684, .00005, .00000,
3453 + .00000, .00003, .00003,
3454 + .03480, .00800, -.00606, .00004, .00000,
3455 + .00000, .00003, .00001,
3456 + .03223, .00738, -.00542, .00004, .00000,
3457 + .00000, .00001, .00001 /
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 + .02990, .00682, -.00488, .00004, .00000,
3460 + .00000, .00001, .00003,
3461 + .02777, .00632, -.00437, .00004, .00000,
3462 + .00000, .00001, .00001,
3463 + .02594, .00589, -.00397, .00004, .00000,
3464 + .00000, .00001, .00001,
3465 + .02433, .00551, -.00361, .00004, .00000,
3466 + .00000, .00001, .00001,
3467 + .02284, .00515, -.00329, .00002, .00000,
3468 + .00000, .00001, .00001,
3469 + .02148, .00483, -.00300, .00002, .00000,
3470 + .00000, .00001, .00001,
3471 + .02025, .00454, -.00275, .00003, .00000,
3472 + .00000, .00001, .00001,
3473 + .01917, .00429, -.00254, .00003, .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 + .01815, .00406, -.00235, .00003, .00000,
3477 + .00000, .00001, .00001,
3478 + .01720, .00384, -.00217, .00003, .00000,
3479 + .00000, .00001, .00001,
3480 + .01635, .00363, -.00200, .00001, .00000,
3481 + .00000, .00001, .00001,
3482 + .01558, .00345, -.00187, .00001, .00000,
3483 + .00000, .00001, .00001,
3484 + .01484, .00328, -.00174, .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 + .18890, .04506, -.08179, .00014, .00000,
3488 + .00000, .00001, -.00001,
3489 + .16681, .03945, -.07027, .00007, .00000,
3490 + .00000, .00001, .00003,
3491 + .14005, .03282, -.05661, .00012, -.00005,
3492 + .00000, .00003, .00000,
3493 + .12441, .02896, -.04895, .00010, -.00004,
3494 + .00000, .00004, .00004,
3495 + .11030, .02549, -.04201, .00006, -.00003,
3496 + .00000, .00002, .00002,
3497 + .09967, .02291, -.03696, .00008, -.00002,
3498 + .00000, .00000, .00002,
3499 + .09066, .02076, -.03273, .00006, -.00002,
3500 + .00000, .00000, .00003,
3501 + .08219, .01871, -.02882, .00006, -.00001,
3502 + .00000, .00001, .00001 /
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 + .07561, .01713, -.02587, .00008, -.00001,
3505 + .00000, .00001, .00001,
3506 + .06985, .01575, -.02334, .00008, -.00001,
3507 + .00000, .00001, .00003,
3508 + .06568, .01478, -.02150, .00006, -.00001,
3509 + .00000, .00001, .00003,
3510 + .05781, .01292, -.01812, .00004, -.00001,
3511 + .00000, .00001, .00001,
3512 + .05201, .01157, -.01576, .00004, -.00001,
3513 + -.00001, .00001, .00001,
3514 + .04636, .01026, -.01353, .00002, .00000,
3515 + .00000, .00001, .00001,
3516 + .04126, .00907, -.01158, .00001, .00000,
3517 + .00000, .00001, .00001,
3518 + .03717, .00814, -.01006, .00001, .00000,
3519 + .00000, .00001, .00001 /
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 + .03353, .00730, -.00875, .00002, .00000,
3522 + .00000, .00001, .00001,
3523 + .03080, .00670, -.00783, .00003, .00000,
3524 + .00000, .00001, .00001,
3525 + .02787, .00603, -.00682, .00003, .00000,
3526 + .00000, .00000, .00001,
3527 + .02554, .00550, -.00604, .00003, .00000,
3528 + .00000, .00000, .00001,
3529 + .02361, .00507, -.00541, .00001, .00000,
3530 + .00000, .00000, .00000,
3531 + .02139, .00457, -.00471, .00001, .00000,
3532 + .00000, .00000, .00000,
3533 + .01952, .00415, -.00415, .00001, .00000,
3534 + .00000, .00000, .00000,
3535 + .01794, .00381, -.00369, .00001, .00000,
3536 + .00000, .00000, .00000 /
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 + .01650, .00349, -.00328, .00001, .00000,
3539 + .00000, .00000, .00000,
3540 + .01523, .00321, -.00293, .00001, .00000,
3541 + .00000, .00000, .00000,
3542 + .01412, .00297, -.00263, .00001, .00000,
3543 + .00000, .00000, .00000,
3544 + .01316, .00276, -.00239, .00001, .00000,
3545 + .00000, .00000, .00000,
3546 + .01228, .00256, -.00216, .00001, .00000,
3547 + .00000, .00000, .00000,
3548 + .01146, .00240, -.00196, .00001, .00000,
3549 + .00000, .00000, .00000,
3550 + .01075, .00224, -.00178, .00000, .00000,
3551 + .00000, .00000, .00000,
3552 + .01012, .00210, -.00163, .00000, .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 + .00954, .00197, -.00150, .00000, .00000,
3556 + .00000, .00000, .00000,
3557 + .00899, .00186, -.00138, .00000, .00000,
3558 + .00000, .00000, .00000,
3559 + .00849, .00175, -.00126, .00000, .00000,
3560 + .00000, .00000, .00000,
3561 + .00805, .00166, -.00117, .00000, .00000,
3562 + .00000, .00000, .00000,
3563 + .00764, .00157, -.00109, .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 + .12287, .02676, -.06462, .00009, .00000,
3567 + .00000, -.00003, .00000,
3568 + .10674, .02307, -.05436, .00006, .00000,
3569 + .00000, -.00002, -.00002,
3570 + .08770, .01879, -.04271, .00007, -.00001,
3571 + .00000, -.00001, -.00001,
3572 + .07675, .01634, -.03625, .00007, -.00001,
3573 + .00000, -.00001, -.00001,
3574 + .06706, .01420, -.03066, .00007, -.00001,
3575 + .00000, -.00001, -.00001,
3576 + .05986, .01261, -.02655, .00004, -.00001,
3577 + .00000, -.00001, -.00001,
3578 + .05382, .01128, -.02321, .00004, -.00001,
3579 + .00000, -.00001, -.00001,
3580 + .04822, .01006, -.02019, .00004, .00000,
3581 + .00000, .00000, .00000 /
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 + .04393, .00912, -.01789, .00002, .00000,
3584 + .00000, .00000, .00000,
3585 + .04022, .00832, -.01596, .00002, .00000,
3586 + .00000, .00000, .00000,
3587 + .03753, .00774, -.01460, .00002, .00000,
3588 + .00000, .00000, .00000,
3589 + .03252, .00666, -.01211, .00002, .00000,
3590 + .00000, .00000, .00000,
3591 + .02891, .00589, -.01039, .00002, .00000,
3592 + .00000, .00000, .00000,
3593 + .02543, .00516, -.00880, .00002, .00000,
3594 + .00000, .00000, .00000,
3595 + .02232, .00451, -.00742, .00000, .00000,
3596 + .00000, .00000, .00000,
3597 + .01989, .00400, -.00637, .00000, .00000,
3598 + .00000, .00000, .00000 /
3599 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/
3600 + .01773, .00356, -.00550, .00002, .00000,
3601 + .00000, .00000, .00000,
3602 + .01616, .00323, -.00484, .00000, .00000,
3603 + .00000, .00000, .00000,
3604 + .01444, .00287, -.00417, .00000, .00000,
3605 + .00000, .00000, .00000,
3606 + .01311, .00260, -.00367, .00000, .00000,
3607 + .00000, .00000, .00000,
3608 + .01201, .00238, -.00326, .00000, .00000,
3609 + .00000, .00000, .00000,
3610 + .01077, .00211, -.00281, .00000, .00000,
3611 + .00000, .00000, .00000,
3612 + .00973, .00191, -.00245, .00000, .00000,
3613 + .00000, .00000, .00000,
3614 + .00886, .00174, -.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 + .00808, .00157, -.00190, .00000, .00000,
3618 + .00000, .00000, .00000,
3619 + .00740, .00143, -.00168, .00000, .00000,
3620 + .00000, .00000, .00000,
3621 + .00681, .00132, -.00151, .00000, .00000,
3622 + .00000, .00000, .00000,
3623 + .00630, .00121, -.00136, .00000, .00000,
3624 + .00000, .00000, .00000,
3625 + .00583, .00113, -.00122, .00000, .00000,
3626 + .00000, .00000, .00000,
3627 + .00541, .00103, -.00110, .00000, .00000,
3628 + .00000, .00000, .00000,
3629 + .00504, .00097, -.00099, .00000, .00000,
3630 + .00000, .00000, .00000,
3631 + .00471, .00090, -.00090, .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 + .00442, .00085, -.00083, .00000, .00000,
3635 + .00000, .00000, .00000,
3636 + .00413, .00078, -.00075, .00000, .00000,
3637 + .00000, .00000, .00000,
3638 + .00389, .00074, -.00069, .00000, .00000,
3639 + .00000, .00000, .00000,
3640 + .00367, .00069, -.00064, .00000, .00000,
3641 + .00000, .00000, .00000,
3642 + .00346, .00065, -.00059, .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 + .07021, .01351, -.04236, -.00001, .00000,
3646 + .00000, -.00001, -.00001,
3647 + .05991, .01148, -.03512, .00002, .00000,
3648 + .00000, .00000, .00000,
3649 + .04804, .00918, -.02694, .00000, .00000,
3650 + .00000, .00000, .00000,
3651 + .04138, .00785, -.02248, .00000, .00000,
3652 + .00000, .00000, .00000,
3653 + .03550, .00673, -.01869, .00000, .00000,
3654 + .00000, .00000, .00000,
3655 + .03125, .00589, -.01598, .00000, .00000,
3656 + .00000, .00000, .00000,
3657 + .02773, .00523, -.01381, .00000, .00000,
3658 + .00000, .00000, .00000,
3659 + .02452, .00458, -.01184, .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 + .02207, .00413, -.01040, .00000, .00000,
3663 + .00000, .00000, .00000,
3664 + .01998, .00371, -.00916, .00000, .00000,
3665 + .00000, .00000, .00000,
3666 + .01849, .00346, -.00834, .00000, .00000,
3667 + .00000, .00000, .00000,
3668 + .01575, .00293, -.00682, .00000, .00000,
3669 + .00000, .00000, .00000,
3670 + .01380, .00254, -.00576, .00000, .00000,
3671 + .00000, .00000, .00000,
3672 + .01195, .00219, -.00479, .00000, .00000,
3673 + .00000, .00000, .00000,
3674 + .01032, .00189, -.00399, .00000, .00000,
3675 + .00000, .00000, .00000,
3676 + .00905, .00164, -.00336, .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 + .00797, .00144, -.00286, .00000, .00000,
3680 + .00000, .00000, .00000,
3681 + .00718, .00130, -.00252, .00000, .00000,
3682 + .00000, .00000, .00000,
3683 + .00634, .00114, -.00213, .00000, .00000,
3684 + .00000, .00000, .00000,
3685 + .00569, .00102, -.00186, .00000, .00000,
3686 + .00000, .00000, .00000,
3687 + .00517, .00092, -.00163, .00000, .00000,
3688 + .00000, .00000, .00000,
3689 + .00457, .00081, -.00139, .00000, .00000,
3690 + .00000, .00000, .00000,
3691 + .00409, .00073, -.00120, .00000, .00000,
3692 + .00000, .00000, .00000,
3693 + .00367, .00065, -.00104, .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 + .00332, .00058, -.00092, .00000, .00000,
3697 + .00000, .00000, .00000,
3698 + .00300, .00052, -.00079, .00000, .00000,
3699 + .00000, .00000, .00000,
3700 + .00274, .00049, -.00071, .00000, .00000,
3701 + .00000, .00000, .00000,
3702 + .00251, .00044, -.00063, .00000, .00000,
3703 + .00000, .00000, .00000,
3704 + .00231, .00040, -.00056, .00000, .00000,
3705 + .00000, .00000, .00000,
3706 + .00211, .00037, -.00049, .00000, .00000,
3707 + .00000, .00000, .00000,
3708 + .00196, .00034, -.00046, .00000, .00000,
3709 + .00000, .00000, .00000,
3710 + .00182, .00031, -.00041, .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 + .00169, .00029, -.00037, .00000, .00000,
3714 + .00000, .00000, .00000,
3715 + .00157, .00027, -.00033, .00000, .00000,
3716 + .00000, .00000, .00000,
3717 + .00147, .00026, -.00030, .00000, .00000,
3718 + .00000, .00000, .00000,
3719 + .00137, .00023, -.00027, .00000, .00000,
3720 + .00000, .00000, .00000,
3721 + .00130, .00022, -.00025, .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 + .01100, .00167, -.00840, .00000, .00000,
3725 + .00000, .00000, .00000,
3726 + .00890, .00135, -.00662, .00000, .00000,
3727 + .00000, .00000, .00000,
3728 + .00662, .00098, -.00472, .00000, .00000,
3729 + .00000, .00000, .00000,
3730 + .00542, .00080, -.00376, .00000, .00000,
3731 + .00000, .00000, .00000,
3732 + .00442, .00064, -.00297, .00000, .00000,
3733 + .00000, .00000, .00000,
3734 + .00373, .00054, -.00245, .00000, .00000,
3735 + .00000, .00000, .00000,
3736 + .00319, .00046, -.00203, .00000, .00000,
3737 + .00000, .00000, .00000,
3738 + .00270, .00039, -.00168, .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 + .00235, .00034, -.00143, .00000, .00000,
3742 + .00000, .00000, .00000,
3743 + .00206, .00031, -.00123, .00000, .00000,
3744 + .00000, .00000, .00000,
3745 + .00186, .00026, -.00108, .00000, .00000,
3746 + .00000, .00000, .00000,
3747 + .00150, .00021, -.00084, .00000, .00000,
3748 + .00000, .00000, .00000,
3749 + .00126, .00018, -.00069, .00000, .00000,
3750 + .00000, .00000, .00000,
3751 + .00104, .00016, -.00056, .00000, .00000,
3752 + .00000, .00000, .00000,
3753 + .00087, .00011, -.00044, .00000, .00000,
3754 + .00000, .00000, .00000,
3755 + .00074, .00011, -.00037, .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 + .00062, .00009, -.00030, .00000, .00000,
3759 + .00000, .00000, .00000,
3760 + .00054, .00007, -.00025, .00000, .00000,
3761 + .00000, .00000, .00000,
3762 + .00046, .00007, -.00021, .00000, .00000,
3763 + .00000, .00000, .00000,
3764 + .00040, .00005, -.00017, .00000, .00000,
3765 + .00000, .00000, .00000,
3766 + .00035, .00005, -.00015, .00000, .00000,
3767 + .00000, .00000, .00000,
3768 + .00030, .00005, -.00012, .00000, .00000,
3769 + .00000, .00000, .00000,
3770 + .00026, .00003, -.00010, .00000, .00000,
3771 + .00000, .00000, .00000,
3772 + .00023, .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 + .00019, .00003, -.00007, .00000, .00000,
3776 + .00000, .00000, .00000,
3777 + .00018, .00003, -.00007, .00000, .00000,
3778 + .00000, .00000, .00000,
3779 + .00016, .00001, -.00005, .00000, .00000,
3780 + .00000, .00000, .00000,
3781 + .00014, .00001, -.00005, .00000, .00000,
3782 + .00000, .00000, .00000,
3783 + .00013, .00001, -.00004, .00000, .00000,
3784 + .00000, .00000, .00000,
3785 + .00011, .00001, -.00004, .00000, .00000,
3786 + .00000, .00000, .00000,
3787 + .00010, .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 + .00008, .00001, -.00003, .00000, .00000,
3793 + .00000, .00000, .00000,
3794 + .00008, .00001, -.00002, .00000, .00000,
3795 + .00000, .00000, .00000,
3796 + .00007, .00001, -.00002, .00000, .00000,
3797 + .00000, .00000, .00000,
3798 + .00007, .00001, -.00002, .00000, .00000,
3799 + .00000, .00000, .00000,
3800 + .00005, .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='cor05dis.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