2 subroutine sfmrs_99d8(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 + .00643, .00286, 1.15222, .86448, .00000,
12 + .00000, .51878, .87640,
13 + .00657, .00291, 2.39078, .90505, .00000,
14 + .00000, .56352, .91702,
15 + .00676, .00299, 4.81464, .98865, .01960,
16 + .00000, .65313, 1.00069,
17 + .00691, .00306, 7.12570, 1.06666, .06910,
18 + .00000, .73535, 1.07873,
19 + .00707, .00312, 9.93371, 1.16515, .18281,
20 + .00000, .83813, 1.17724,
21 + .00720, .00318, 12.84175, 1.26534, .29061,
22 + .00000, .94195, 1.27745,
23 + .00733, .00324, 16.11380, 1.37328, .40858,
24 + .00000, 1.05329, 1.38540,
25 + .00747, .00331, 20.13676, 1.50140, .55059,
26 + .00000, 1.18494, 1.51352 /
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 + .00760, .00336, 24.06347, 1.62621, .68269,
29 + .00000, 1.31277, 1.63833,
30 + .00772, .00342, 28.28434, 1.75811, .82268,
31 + .00000, 1.44753, 1.77023,
32 + .00781, .00346, 31.98470, 1.87059, .94450,
33 + .00000, 1.56225, 1.88271,
34 + .00802, .00356, 40.80279, 2.13739, 1.22712,
35 + .00000, 1.83367, 2.14948,
36 + .00820, .00365, 48.61885, 2.39474, 1.49733,
37 + .36278, 2.09491, 2.40681,
38 + .00841, .00375, 58.85320, 2.71616, 1.83505,
39 + .75384, 2.42059, 2.72820,
40 + .00863, .00385, 70.90311, 3.08901, 2.22586,
41 + 1.16298, 2.79773, 3.10100,
42 + .00883, .00395, 83.09480, 3.46271, 2.61679,
43 + 1.57247, 3.17524, 3.47465 /
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 + .00904, .00405, 96.67834, 3.87646, 3.04925,
46 + 2.02361, 3.59274, 3.88835,
47 + .00921, .00414, 108.90162, 4.24856, 3.43610,
48 + 2.42247, 3.96788, 4.26041,
49 + .00942, .00424, 124.88783, 4.73576, 3.94069,
50 + 2.94066, 4.45870, 4.74754,
51 + .00962, .00434, 140.20116, 5.20176, 4.42387,
52 + 3.43919, 4.92782, 5.21350,
53 + .00980, .00444, 155.23244, 5.65931, 4.89828,
54 + 3.92900, 5.38817, 5.67099,
55 + .01003, .00455, 175.45062, 6.27990, 5.53750,
56 + 4.58244, 6.01226, 6.29151,
57 + .01024, .00466, 195.85530, 6.90812, 6.18488,
58 + 5.24606, 6.64368, 6.91965,
59 + .01044, .00476, 216.29272, 7.53865, 6.83565,
60 + 5.91550, 7.27715, 7.55013 /
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 + .01066, .00487, 237.61427, 8.20504, 7.51859,
63 + 6.61095, 7.94643, 8.21645,
64 + .01086, .00497, 259.72109, 8.89833, 8.23034,
65 + 7.33870, 8.64247, 8.90967,
66 + .01106, .00507, 281.70819, 9.59215, 8.94219,
67 + 8.06645, 9.33886, 9.60343,
68 + .01125, .00518, 303.16472, 10.27655, 9.64206,
69 + 8.77907, 10.02562, 10.28775,
70 + .01144, .00527, 325.84004, 11.00155, 10.38514,
71 + 9.53869, 10.75297, 11.01271,
72 + .01163, .00537, 348.68738, 11.74213, 11.14064,
73 + 10.30642, 11.49581, 11.75321,
74 + .01181, .00547, 371.50490, 12.48273, 11.89834,
75 + 11.08002, 12.23854, 12.49375,
76 + .01199, .00556, 393.46053, 13.20528, 12.63442,
77 + 11.82739, 12.96307, 13.21625 /
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 + .01217, .00565, 416.55420, 13.96716, 13.41206,
80 + 12.61949, 13.72689, 13.97806,
81 + .01234, .00574, 439.83066, 14.74342, 14.20266,
82 + 13.42280, 14.50506, 14.75426,
83 + .01251, .00584, 462.70915, 15.51136, 14.98465,
84 + 14.21752, 15.27480, 15.52214,
85 + .01268, .00592, 485.09098, 16.26634, 15.75391,
86 + 15.00025, 16.03147, 16.27707,
87 + .01284, .00601, 507.96722, 17.04761, 16.54765,
88 + 15.80501, 16.81441, 17.05829 /
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 + .00875, .00395, 1.06318, .73355, .00000,
91 + .00000, .43957, .74056,
92 + .00892, .00403, 2.18022, .77089, .00000,
93 + .00000, .48013, .77793,
94 + .00919, .00415, 4.31768, .84462, .01790,
95 + .00000, .55848, .85169,
96 + .00939, .00424, 6.31648, .91168, .05987,
97 + .00000, .62880, .91877,
98 + .00961, .00434, 8.70451, .99489, .15588,
99 + .00000, .71529, 1.00199,
100 + .00979, .00442, 11.14190, 1.07839, .24575,
101 + .00000, .80157, 1.08549,
102 + .00997, .00451, 13.85153, 1.16755, .34311,
103 + .00000, .89335, 1.17466,
104 + .01016, .00460, 17.14387, 1.27252, .45929,
105 + .00000, 1.00103, 1.27964 /
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 + .01033, .00468, 20.32083, 1.37389, .56636,
108 + .00000, 1.10472, 1.38100,
109 + .01050, .00476, 23.70281, 1.48030, .67906,
110 + .00000, 1.21331, 1.48740,
111 + .01063, .00483, 26.64444, 1.57060, .77657,
112 + .00000, 1.30532, 1.57769,
113 + .01091, .00496, 33.57933, 1.78301, 1.00087,
114 + .00000, 1.52128, 1.79011,
115 + .01116, .00509, 39.62250, 1.98606, 1.21328,
116 + .28557, 1.72732, 1.99315,
117 + .01145, .00523, 47.45151, 2.23751, 1.47638,
118 + .59056, 1.98201, 2.24457,
119 + .01175, .00538, 56.55169, 2.52654, 1.77800,
120 + .90598, 2.27433, 2.53358,
121 + .01203, .00552, 65.64864, 2.81377, 2.07708,
122 + 1.21884, 2.56448, 2.82080 /
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 + .01232, .00567, 75.67214, 3.12927, 2.40528,
125 + 1.56063, 2.88284, 3.13626,
126 + .01255, .00578, 84.60175, 3.41093, 2.69667,
127 + 1.86045, 3.16684, 3.41791,
128 + .01284, .00593, 96.16601, 3.77707, 3.07397,
129 + 2.24705, 3.53573, 3.78401,
130 + .01309, .00606, 107.13814, 4.12481, 3.43274,
131 + 2.61639, 3.88585, 4.13172,
132 + .01334, .00619, 117.81814, 4.46409, 3.78283,
133 + 2.97700, 4.22729, 4.47098,
134 + .01365, .00635, 132.04842, 4.92102, 4.25111,
135 + 3.45446, 4.68687, 4.92787,
136 + .01395, .00650, 146.27591, 5.38024, 4.72206,
137 + 3.93599, 5.14855, 5.38706,
138 + .01422, .00665, 160.40663, 5.83819, 5.19249,
139 + 4.41874, 5.60875, 5.84497 /
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 + .01450, .00680, 175.01796, 6.31889, 5.68275,
142 + 4.91659, 6.09164, 6.32564,
143 + .01478, .00695, 190.05157, 6.81598, 6.19075,
144 + 5.43465, 6.59085, 6.82270,
145 + .01505, .00709, 204.89275, 7.31056, 6.69592,
146 + 5.94976, 7.08740, 7.31726,
147 + .01530, .00721, 219.26903, 7.79562, 7.18971,
148 + 6.45117, 7.57428, 7.80228,
149 + .01556, .00736, 234.36911, 8.30693, 7.71156,
150 + 6.98329, 8.08738, 8.31356,
151 + .01581, .00749, 249.47288, 8.82629, 8.23907,
152 + 7.51786, 8.60848, 8.83288,
153 + .01606, .00762, 264.47498, 9.34335, 8.76591,
154 + 8.05441, 9.12715, 9.34992,
155 + .01629, .00774, 278.81402, 9.84520, 9.27502,
156 + 8.56991, 9.63053, 9.85175 /
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 + .01653, .00787, 293.82190, 10.37220, 9.81081,
159 + 9.11429, 10.15903, 10.37871,
160 + .01676, .00799, 308.85804, 10.90663, 10.35296,
161 + 9.66372, 10.69493, 10.91311,
162 + .01699, .00811, 323.56141, 11.43314, 10.88704,
163 + 10.20511, 11.22281, 11.43959,
164 + .01721, .00823, 337.87843, 11.94878, 11.41048,
165 + 10.73641, 11.73974, 11.95521,
166 + .01743, .00835, 352.42892, 12.48005, 11.94819,
167 + 11.28016, 12.27230, 12.48646 /
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 + .01187, .00545, .98016, .62266, .00000,
170 + .00000, .37302, .62628,
171 + .01212, .00557, 1.98744, .65676, .00000,
172 + .00000, .40960, .66039,
173 + .01249, .00574, 3.87117, .72154, .01652,
174 + .00000, .47793, .72518,
175 + .01276, .00588, 5.59853, .77907, .05201,
176 + .00000, .53795, .78270,
177 + .01306, .00602, 7.62684, .84921, .13298,
178 + .00000, .61062, .85285,
179 + .01332, .00614, 9.66645, .91865, .20776,
180 + .00000, .68219, .92229,
181 + .01356, .00626, 11.90606, .99215, .28800,
182 + .00000, .75767, .99578,
183 + .01382, .00640, 14.59464, 1.07793, .38288,
184 + .00000, .84552, 1.08156 /
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 + .01406, .00651, 17.15863, 1.16003, .46953,
187 + .00000, .92939, 1.16366,
188 + .01429, .00663, 19.86114, 1.24562, .56007,
189 + .00000, 1.01664, 1.24925,
190 + .01446, .00671, 22.19295, 1.31788, .63798,
191 + .00000, 1.09021, 1.32151,
192 + .01484, .00692, 27.63007, 1.48646, .81565,
193 + .00000, 1.26148, 1.49007,
194 + .01520, .00709, 32.28506, 1.64610, .98226,
195 + .22420, 1.42339, 1.64971,
196 + .01558, .00730, 38.25023, 1.84207, 1.18678,
197 + .46185, 1.62181, 1.84567,
198 + .01599, .00751, 45.09329, 2.06524, 1.41902,
199 + .70476, 1.84749, 2.06884,
200 + .01636, .00770, 51.84985, 2.28512, 1.64727,
201 + .94351, 2.06957, 2.28869 /
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 + .01675, .00791, 59.21041, 2.52467, 1.89567,
204 + 1.20211, 2.31128, 2.52823,
205 + .01707, .00807, 65.70031, 2.73694, 2.11454,
206 + 1.42715, 2.52532, 2.74050,
207 + .01747, .00829, 74.02059, 3.01084, 2.39585,
208 + 1.71514, 2.80130, 3.01438,
209 + .01782, .00846, 81.83791, 3.26909, 2.66143,
210 + 1.98831, 3.06137, 3.27263,
211 + .01815, .00864, 89.38195, 3.51948, 2.91894,
212 + 2.25332, 3.31337, 3.52301,
213 + .01857, .00886, 99.33618, 3.85422, 3.26084,
214 + 2.60150, 3.65013, 3.85774,
215 + .01896, .00907, 109.19308, 4.18822, 3.60224,
216 + 2.95016, 3.98598, 4.19172,
217 + .01934, .00928, 118.89874, 4.51910, 3.94107,
218 + 3.29750, 4.31855, 4.52259 /
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 + .01971, .00948, 128.84197, 4.86398, 4.29165,
221 + 3.65300, 4.66510, 4.86746,
222 + .02009, .00968, 138.99248, 5.21846, 4.65278,
223 + 4.02081, 5.02118, 5.22194,
224 + .02046, .00987, 148.93655, 5.56907, 5.00982,
225 + 4.38441, 5.37327, 5.57253,
226 + .02079, .01006, 158.49521, 5.91090, 5.35672,
227 + 4.73617, 5.71648, 5.91436,
228 + .02113, .01024, 168.47246, 6.26944, 5.72161,
229 + 5.10778, 6.07637, 6.27289,
230 + .02148, .01043, 178.37605, 6.63150, 6.08826,
231 + 5.47878, 6.43975, 6.63494,
232 + .02181, .01061, 188.15859, 6.99035, 6.45292,
233 + 5.84970, 6.79982, 6.99377,
234 + .02212, .01078, 197.44295, 7.33677, 6.80335,
235 + 6.20400, 7.14740, 7.34020 /
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 + .02243, .01096, 207.11174, 7.69907, 7.17072,
238 + 6.57678, 7.51083, 7.70248,
239 + .02275, .01112, 216.73795, 8.06469, 7.54064,
240 + 6.95115, 7.87757, 8.06811,
241 + .02306, .01129, 226.10107, 8.42337, 7.90354,
242 + 7.31851, 8.23729, 8.42678,
243 + .02335, .01144, 235.17419, 8.77328, 8.25788,
244 + 7.67773, 8.58818, 8.77667,
245 + .02364, .01161, 244.34017, 9.13217, 8.62019,
246 + 8.04357, 8.94806, 9.13557 /
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 + .01419, .00658, .93406, .56596, .00000,
249 + .00000, .33925, .56819,
250 + .01449, .00672, 1.88230, .59815, .00000,
251 + .00000, .37358, .60038,
252 + .01493, .00695, 3.63130, .65808, .01588,
253 + .00000, .43655, .66030,
254 + .01527, .00711, 5.21676, .71059, .04799,
255 + .00000, .49118, .71281,
256 + .01562, .00728, 7.05928, .77398, .12120,
257 + .00000, .55673, .77619,
258 + .01592, .00744, 8.89557, .83623, .18828,
259 + .00000, .62081, .83845,
260 + .01622, .00760, 10.89709, .90175, .25985,
261 + .00000, .68805, .90397,
262 + .01655, .00776, 13.28256, .97788, .34405,
263 + .00000, .76593, .98009 /
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 + .01682, .00790, 15.54149, 1.05033, .42052,
266 + .00000, .83988, 1.05254,
267 + .01709, .00805, 17.90836, 1.12554, .50008,
268 + .00000, .91651, 1.12775,
269 + .01731, .00815, 19.94075, 1.18887, .56833,
270 + .00000, .98095, 1.19107,
271 + .01777, .00840, 24.64894, 1.33582, .72315,
272 + .00000, 1.13021, 1.33803,
273 + .01818, .00862, 28.63723, 1.47423, .86752,
274 + .19422, 1.27054, 1.47643,
275 + .01865, .00886, 33.71456, 1.64325, 1.04379,
276 + .39947, 1.44165, 1.64544,
277 + .01914, .00913, 39.49338, 1.83468, 1.24281,
278 + .60777, 1.63520, 1.83687,
279 + .01959, .00936, 45.15702, 2.02229, 1.43738,
280 + .81143, 1.82468, 2.02448 /
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 + .02006, .00960, 51.28501, 2.22571, 1.64811,
283 + 1.03092, 2.02995, 2.22789,
284 + .02044, .00981, 56.65475, 2.40517, 1.83296,
285 + 1.22103, 2.21089, 2.40735,
286 + .02091, .01007, 63.49725, 2.63570, 2.06946,
287 + 1.46320, 2.44319, 2.63788,
288 + .02134, .01029, 69.88848, 2.85216, 2.29179,
289 + 1.69193, 2.66119, 2.85433,
290 + .02172, .01050, 76.02458, 3.06121, 2.50656,
291 + 1.91300, 2.87161, 3.06339,
292 + .02222, .01077, 84.07352, 3.33948, 2.79046,
293 + 2.20211, 3.15159, 3.34165,
294 + .02270, .01103, 91.99775, 3.61593, 3.07271,
295 + 2.49037, 3.42961, 3.61810,
296 + .02315, .01127, 99.76008, 3.88873, 3.35179,
297 + 2.77648, 3.70386, 3.89092 /
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 + .02360, .01152, 107.66784, 4.17190, 3.63930,
300 + 3.06798, 3.98843, 4.17408,
301 + .02404, .01176, 115.70248, 4.46190, 3.93441,
302 + 3.36854, 4.27977, 4.46407,
303 + .02447, .01199, 123.53740, 4.74770, 4.22517,
304 + 3.66462, 4.56684, 4.74988,
305 + .02487, .01221, 131.03342, 5.02537, 4.50667,
306 + 3.95002, 4.84567, 5.02754,
307 + .02528, .01244, 138.82866, 5.31576, 4.80192,
308 + 4.25069, 5.13720, 5.31794,
309 + .02569, .01265, 146.52992, 5.60798, 5.09753,
310 + 4.54976, 5.43055, 5.61016,
311 + .02608, .01287, 154.11222, 5.89683, 5.39080,
312 + 4.84805, 5.72042, 5.89901,
313 + .02645, .01307, 161.27705, 6.17479, 5.67169,
314 + 5.13198, 5.99937, 6.17698 /
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 + .02683, .01328, 168.71624, 6.46477, 5.96550,
317 + 5.43008, 6.29032, 6.46696,
318 + .02720, .01349, 176.09401, 6.75657, 6.26046,
319 + 5.72852, 6.58306, 6.75877,
320 + .02756, .01369, 183.24711, 7.04211, 6.54911,
321 + 6.02068, 6.86947, 7.04430,
322 + .02791, .01388, 190.15851, 7.32002, 6.83031,
323 + 6.30573, 7.14822, 7.32221,
324 + .02826, .01407, 197.11478, 7.60428, 7.11703,
325 + 6.59518, 7.43331, 7.60648 /
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 + .01611, .00752, .90246, .52903, .00000,
328 + .00000, .31739, .53050,
329 + .01645, .00770, 1.81102, .55987, .00000,
330 + .00000, .35014, .56133,
331 + .01695, .00796, 3.47008, .61651, .01549,
332 + .00000, .40950, .61796,
333 + .01733, .00815, 4.96181, .66565, .04537,
334 + .00000, .46059, .66711,
335 + .01773, .00836, 6.68243, .72459, .11349,
336 + .00000, .52147, .72606,
337 + .01808, .00853, 8.38620, .78217, .17556,
338 + .00000, .58066, .78362,
339 + .01841, .00872, 10.23342, .84253, .24151,
340 + .00000, .64255, .84397,
341 + .01878, .00890, 12.42358, .91238, .31881,
342 + .00000, .71398, .91383 /
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 + .01911, .00907, 14.48697, .97863, .38873,
345 + .00000, .78156, .98007,
346 + .01940, .00922, 16.63972, 1.04719, .46128,
347 + .00000, .85140, 1.04863,
348 + .01966, .00936, 18.48188, 1.10477, .52335,
349 + .00000, .90998, 1.10622,
350 + .02018, .00963, 22.72926, 1.23797, .66368,
351 + .00000, 1.04523, 1.23942,
352 + .02065, .00989, 26.29988, 1.36292, .79399,
353 + .17519, 1.17189, 1.36437,
354 + .02118, .01017, 30.82371, 1.51492, .95250,
355 + .36007, 1.32576, 1.51636,
356 + .02175, .01047, 35.94329, 1.68640, 1.13074,
357 + .54679, 1.49913, 1.68785,
358 + .02226, .01074, 40.93400, 1.85384, 1.30434,
359 + .72864, 1.66824, 1.85529 /
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 + .02279, .01103, 46.30739, 2.03476, 1.49170,
362 + .92391, 1.85079, 2.03621,
363 + .02323, .01127, 50.99477, 2.19384, 1.65550,
364 + 1.09247, 2.01122, 2.19530,
365 + .02375, .01156, 56.94157, 2.39757, 1.86442,
366 + 1.30649, 2.21652, 2.39903,
367 + .02423, .01182, 62.47265, 2.58828, 2.06023,
368 + 1.50804, 2.40858, 2.58975,
369 + .02467, .01205, 67.76313, 2.77196, 2.24886,
370 + 1.70229, 2.59349, 2.77343,
371 + .02525, .01236, 74.67324, 3.01569, 2.49741,
372 + 1.95549, 2.83874, 3.01717,
373 + .02579, .01266, 81.44786, 3.25708, 2.74377,
374 + 2.20719, 3.08153, 3.25856,
375 + .02629, .01293, 88.05928, 3.49462, 2.98668,
376 + 2.45631, 3.32035, 3.49611 /
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 + .02680, .01322, 94.76694, 3.74044, 3.23616,
379 + 2.70931, 3.56742, 3.74194,
380 + .02731, .01349, 101.55899, 3.99152, 3.49158,
381 + 2.96953, 3.81971, 3.99303,
382 + .02779, .01376, 108.16011, 4.23837, 3.74260,
383 + 3.22522, 4.06766, 4.23988,
384 + .02824, .01402, 114.45400, 4.47757, 3.98500,
385 + 3.47103, 4.30790, 4.47908,
386 + .02871, .01427, 120.98164, 4.72718, 4.23874,
387 + 3.72951, 4.55855, 4.72872,
388 + .02916, .01453, 127.40816, 4.97776, 4.49211,
389 + 3.98588, 4.81011, 4.97930,
390 + .02960, .01477, 133.72064, 5.22496, 4.74303,
391 + 4.24117, 5.05824, 5.22652,
392 + .03002, .01500, 139.66640, 5.46229, 4.98278,
393 + 4.48356, 5.29644, 5.46386 /
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 + .03044, .01524, 145.82655, 5.70947, 5.23313,
396 + 4.73763, 5.54447, 5.71103,
397 + .03087, .01547, 151.91845, 5.95767, 5.48394,
398 + 4.99145, 5.79351, 5.95924,
399 + .03127, .01570, 157.81112, 6.20009, 5.72893,
400 + 5.23948, 6.03671, 6.20167,
401 + .03167, .01591, 163.49261, 6.43563, 5.96723,
402 + 5.48109, 6.27301, 6.43723,
403 + .03205, .01613, 169.19511, 6.67610, 6.20970,
404 + 5.72590, 6.51421, 6.67771 /
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 + .01777, .00837, .87890, .50212, .00000,
407 + .00000, .30149, .50310,
408 + .01814, .00855, 1.75787, .53192, .00000,
409 + .00000, .33306, .53289,
410 + .01870, .00884, 3.35024, .58608, .01523,
411 + .00000, .38973, .58704,
412 + .01913, .00906, 4.77294, .63277, .04346,
413 + .00000, .43820, .63373,
414 + .01957, .00929, 6.40442, .68845, .10783,
415 + .00000, .49565, .68942,
416 + .01995, .00949, 8.01172, .74259, .16626,
417 + .00000, .55130, .74356,
418 + .02033, .00969, 9.74706, .79920, .22812,
419 + .00000, .60929, .80016,
420 + .02074, .00990, 11.79614, .86452, .30043,
421 + .00000, .67608, .86549 /
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 + .02108, .01009, 13.71888, .92627, .36564,
424 + .00000, .73907, .92725,
425 + .02143, .01027, 15.71813, .99004, .43314,
426 + .00000, .80401, .99102,
427 + .02170, .01041, 17.42432, 1.04353, .49079,
428 + .00000, .85840, 1.04450,
429 + .02228, .01073, 21.34360, 1.16686, .62075,
430 + .00000, .98361, 1.16784,
431 + .02280, .01100, 24.61922, 1.28220, .74106,
432 + .16160, 1.10052, 1.28317,
433 + .02339, .01133, 28.75345, 1.42210, .88696,
434 + .33203, 1.24214, 1.42308,
435 + .02401, .01166, 33.41104, 1.57943, 1.05051,
436 + .50349, 1.40121, 1.58043,
437 + .02458, .01196, 37.93226, 1.73261, 1.20932,
438 + .66998, 1.55592, 1.73361 /
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 + .02516, .01228, 42.78128, 1.89768, 1.38026,
441 + .84826, 1.72249, 1.89869,
442 + .02564, .01255, 46.99626, 2.04247, 1.52933,
443 + 1.00175, 1.86850, 2.04348,
444 + .02623, .01287, 52.32520, 2.22742, 1.71897,
445 + 1.19614, 2.05490, 2.22845,
446 + .02676, .01315, 57.26507, 2.40013, 1.89629,
447 + 1.37876, 2.22886, 2.40117,
448 + .02725, .01342, 61.97616, 2.56613, 2.06676,
449 + 1.55440, 2.39598, 2.56719,
450 + .02786, .01377, 68.10868, 2.78586, 2.29079,
451 + 1.78274, 2.61710, 2.78692,
452 + .02846, .01409, 74.10114, 3.00295, 2.51232,
453 + 2.00918, 2.83548, 3.00403,
454 + .02902, .01440, 79.93205, 3.21611, 2.73028,
455 + 2.23283, 3.04980, 3.21720 /
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 + .02958, .01471, 85.82845, 3.43617, 2.95358,
458 + 2.45937, 3.27101, 3.43726,
459 + .03013, .01502, 91.78300, 3.66049, 3.18176,
460 + 2.69193, 3.49644, 3.66160,
461 + .03067, .01532, 97.55480, 3.88058, 3.40557,
462 + 2.92000, 3.71756, 3.88170,
463 + .03117, .01559, 103.04301, 4.09342, 3.62123,
464 + 3.13878, 3.93135, 4.09457,
465 + .03168, .01588, 108.72296, 4.31519, 3.84664,
466 + 3.36850, 4.15405, 4.31635,
467 + .03218, .01616, 114.29958, 4.53735, 4.07126,
468 + 3.59586, 4.37711, 4.53851,
469 + .03266, .01643, 119.76706, 4.75619, 4.29339,
470 + 3.82196, 4.59681, 4.75738,
471 + .03312, .01668, 124.90359, 4.96592, 4.50522,
472 + 4.03618, 4.80733, 4.96712 /
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 + .03359, .01694, 130.21648, 5.18403, 4.72614,
475 + 4.26048, 5.02623, 5.18525,
476 + .03405, .01720, 135.45855, 5.40269, 4.94707,
477 + 4.48414, 5.24565, 5.40392,
478 + .03449, .01744, 140.51964, 5.61596, 5.16259,
479 + 4.70240, 5.45964, 5.61720,
480 + .03491, .01769, 145.39116, 5.82291, 5.37197,
481 + 4.91477, 5.66728, 5.82417,
482 + .03535, .01792, 150.26982, 6.03384, 5.58464,
483 + 5.12957, 5.87888, 6.03511 /
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 + .02418, .01165, .80921, .42769, .00000,
486 + .00000, .25804, .42786,
487 + .02468, .01191, 1.60297, .45424, .00000,
488 + .00000, .28599, .45441,
489 + .02545, .01232, 3.00427, .50110, .01464,
490 + .00000, .33482, .50128,
491 + .02603, .01263, 4.23150, .54065, .03815,
492 + .00000, .37576, .54086,
493 + .02663, .01296, 5.61252, .58710, .09200,
494 + .00000, .42360, .58730,
495 + .02716, .01325, 6.95100, .63166, .14021,
496 + .00000, .46932, .63186,
497 + .02767, .01352, 8.37683, .67780, .19075,
498 + .00000, .51655, .67802,
499 + .02822, .01382, 10.03848, .73060, .24933,
500 + .00000, .57049, .73083 /
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 + .02870, .01408, 11.57767, .78003, .30164,
503 + .00000, .62089, .78029,
504 + .02917, .01434, 13.16092, .83072, .35540,
505 + .00000, .67247, .83098,
506 + .02954, .01454, 14.50038, .87300, .40106,
507 + .00000, .71547, .87327,
508 + .03033, .01498, 17.54107, .96965, .50309,
509 + .00000, .81359, .96995,
510 + .03104, .01537, 20.03454, 1.05916, .59661,
511 + .12484, .90431, 1.05947,
512 + .03184, .01581, 23.14238, 1.16674, .70898,
513 + .25686, 1.01321, 1.16708,
514 + .03267, .01628, 26.59351, 1.28654, .83369,
515 + .38807, 1.13436, 1.28691,
516 + .03344, .01671, 29.89845, 1.40210, .95367,
517 + .51429, 1.25110, 1.40249 /
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 + .03423, .01714, 33.39904, 1.52558, 1.08170,
520 + .64826, 1.37574, 1.52599,
521 + .03488, .01751, 36.40739, 1.63301, 1.19246,
522 + .76264, 1.48413, 1.63346,
523 + .03568, .01796, 40.16851, 1.76919, 1.33224,
524 + .90634, 1.62142, 1.76967,
525 + .03639, .01836, 43.61773, 1.89540, 1.46196,
526 + 1.04034, 1.74858, 1.89590,
527 + .03705, .01874, 46.87627, 2.01590, 1.58583,
528 + 1.16835, 1.86995, 2.01642,
529 + .03789, .01921, 51.07156, 2.17414, 1.74732,
530 + 1.33338, 2.02925, 2.17469,
531 + .03869, .01966, 55.12760, 2.32927, 1.90579,
532 + 1.49580, 2.18538, 2.32987,
533 + .03944, .02008, 59.03703, 2.48056, 2.06066,
534 + 1.65516, 2.33757, 2.48119 /
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 + .04020, .02051, 62.94842, 2.63555, 2.21806,
537 + 1.81523, 2.49344, 2.63621,
538 + .04094, .02094, 66.86430, 2.79253, 2.37791,
539 + 1.97857, 2.65127, 2.79323,
540 + .04165, .02134, 70.62756, 2.94558, 2.53369,
541 + 2.13773, 2.80511, 2.94632,
542 + .04232, .02172, 74.17406, 3.09265, 2.68285,
543 + 2.28939, 2.95291, 3.09342,
544 + .04300, .02210, 77.81965, 3.24508, 2.83794,
545 + 2.44786, 3.10606, 3.24587,
546 + .04367, .02249, 81.36630, 3.39680, 2.99148,
547 + 2.60362, 3.25849, 3.39763,
548 + .04432, .02285, 84.82322, 3.54557, 3.14265,
549 + 2.75788, 3.40791, 3.54643,
550 + .04492, .02320, 88.04302, 3.68728, 3.28591,
551 + 2.90308, 3.55024, 3.68817 /
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 + .04555, .02355, 91.35551, 3.83404, 3.43472,
554 + 3.05452, 3.69760, 3.83496,
555 + .04616, .02390, 94.59918, 3.98038, 3.58272,
556 + 3.20469, 3.84453, 3.98133,
557 + .04675, .02424, 97.71190, 4.12246, 3.72645,
558 + 3.35059, 3.98717, 4.12344,
559 + .04732, .02455, 100.69183, 4.25976, 3.86552,
560 + 3.49198, 4.12500, 4.26078,
561 + .04788, .02488, 103.65378, 4.39899, 4.00603,
562 + 3.63419, 4.26475, 4.40004 /
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 + .03304, .01633, .74753, .36589, .00000,
565 + .00000, .22264, .36615,
566 + .03372, .01669, 1.46580, .38916, .00000,
567 + .00000, .24703, .38945,
568 + .03475, .01725, 2.69797, .42916, .01437,
569 + .00000, .28864, .42949,
570 + .03552, .01769, 3.75516, .46231, .03366,
571 + .00000, .32291, .46267,
572 + .03634, .01814, 4.92105, .50066, .07834,
573 + .00000, .36239, .50105,
574 + .03706, .01854, 6.03143, .53696, .11781,
575 + .00000, .39963, .53737,
576 + .03774, .01892, 7.19745, .57421, .15879,
577 + .00000, .43777, .57466,
578 + .03848, .01934, 8.53743, .61647, .20585,
579 + .00000, .48094, .61696 /
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 + .03912, .01971, 9.76166, .65568, .24749,
582 + .00000, .52093, .65618,
583 + .03975, .02006, 11.00653, .69557, .28997,
584 + .00000, .56155, .69611,
585 + .04026, .02035, 12.05006, .72867, .32585,
586 + .00000, .59522, .72923,
587 + .04133, .02096, 14.38938, .80368, .40533,
588 + .00000, .67141, .80429,
589 + .04228, .02150, 16.27009, .87246, .47746,
590 + .09490, .74117, .87312,
591 + .04336, .02212, 18.58128, .95434, .56329,
592 + .19653, .82412, .95506,
593 + .04450, .02277, 21.10852, 1.04462, .65760,
594 + .29626, .91547, 1.04540,
595 + .04553, .02337, 23.49380, 1.13087, .74746,
596 + .39129, 1.00269, 1.13171 /
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 + .04659, .02397, 25.98678, 1.22223, .84252,
599 + .49126, 1.09498, 1.22311,
600 + .04746, .02448, 28.10305, 1.30108, .92405,
601 + .57587, 1.17458, 1.30200,
602 + .04854, .02510, 30.71721, 1.40019, 1.02612,
603 + .68130, 1.27460, 1.40118,
604 + .04950, .02564, 33.08708, 1.49133, 1.12009,
605 + .77885, 1.36651, 1.49237,
606 + .05039, .02616, 35.30330, 1.57774, 1.20921,
607 + .87139, 1.45362, 1.57883,
608 + .05151, .02680, 38.12267, 1.69029, 1.32443,
609 + .98967, 1.56703, 1.69144,
610 + .05257, .02743, 40.81733, 1.79976, 1.43658,
611 + 1.10517, 1.67730, 1.80097,
612 + .05359, .02800, 43.38827, 1.90572, 1.54541,
613 + 1.21769, 1.78400, 1.90701 /
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 + .05459, .02859, 45.93026, 2.01343, 1.65510,
616 + 1.32973, 1.89242, 2.01477,
617 + .05559, .02917, 48.45150, 2.12179, 1.76576,
618 + 1.44332, 2.00146, 2.12319,
619 + .05653, .02972, 50.85191, 2.22674, 1.87291,
620 + 1.55329, 2.10705, 2.22819,
621 + .05743, .03023, 53.09165, 2.32690, 1.97477,
622 + 1.65732, 2.20780, 2.32841,
623 + .05833, .03076, 55.37741, 2.43015, 2.08015,
624 + 1.76549, 2.31165, 2.43172,
625 + .05923, .03127, 57.57817, 2.53222, 2.18372,
626 + 1.87101, 2.41428, 2.53385,
627 + .06009, .03176, 59.71002, 2.63182, 2.28524,
628 + 1.97507, 2.51443, 2.63351,
629 + .06090, .03223, 61.67610, 2.72611, 2.38081,
630 + 2.07234, 2.60919, 2.72783 /
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 + .06171, .03270, 63.68723, 2.82330, 2.47965,
633 + 2.17338, 2.70688, 2.82508,
634 + .06253, .03318, 65.63965, 2.91966, 2.57737,
635 + 2.27296, 2.80373, 2.92149,
636 + .06331, .03363, 67.50075, 3.01277, 2.67184,
637 + 2.36926, 2.89729, 3.01465,
638 + .06405, .03405, 69.27191, 3.10236, 2.76284,
639 + 2.46220, 2.98731, 3.10429,
640 + .06481, .03448, 71.01684, 3.19270, 2.85425,
641 + 2.55510, 3.07808, 3.19468 /
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 + .03972, .01993, .71841, .33499, .00000,
644 + .00000, .20522, .33564,
645 + .04052, .02037, 1.39671, .35631, .00000,
646 + .00000, .22756, .35701,
647 + .04173, .02105, 2.53874, .39249, .01431,
648 + .00000, .26517, .39325,
649 + .04265, .02158, 3.50634, .42216, .03131,
650 + .00000, .29586, .42297,
651 + .04363, .02213, 4.55998, .45621, .07116,
652 + .00000, .33092, .45707,
653 + .04446, .02261, 5.55246, .48821, .10607,
654 + .00000, .36377, .48911,
655 + .04528, .02307, 6.58532, .52088, .14211,
656 + .00000, .39724, .52182,
657 + .04617, .02358, 7.76193, .55775, .18329,
658 + .00000, .43493, .55875 /
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 + .04693, .02402, 8.82764, .59176, .21952,
661 + .00000, .46965, .59281,
662 + .04768, .02446, 9.90353, .62624, .25635,
663 + .00000, .50478, .62730,
664 + .04828, .02480, 10.80024, .65474, .28734,
665 + .00000, .53381, .65586,
666 + .04956, .02555, 12.79474, .71902, .35563,
667 + .00000, .59914, .72020,
668 + .05070, .02620, 14.37897, .77760, .41724,
669 + .07993, .65861, .77886,
670 + .05198, .02695, 16.30771, .84695, .49015,
671 + .16672, .72894, .84829,
672 + .05332, .02773, 18.39639, .92295, .56977,
673 + .25124, .80591, .92436,
674 + .05456, .02845, 20.34977, .99514, .64522,
675 + .33134, .87897, .99664 /
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 + .05580, .02918, 22.37424, 1.07121, .72457,
678 + .41511, .95588, 1.07277,
679 + .05686, .02979, 24.07948, 1.13651, .79230,
680 + .48565, 1.02188, 1.13815,
681 + .05813, .03054, 26.16988, 1.21822, .87666,
682 + .57312, 1.10438, 1.21994,
683 + .05926, .03120, 28.05117, 1.29297, .95396,
684 + .65367, 1.17985, 1.29476,
685 + .06032, .03182, 29.79919, 1.36355, 1.02695,
686 + .72975, 1.25106, 1.36541,
687 + .06166, .03260, 32.00589, 1.45501, 1.12082,
688 + .82647, 1.34331, 1.45696,
689 + .06292, .03334, 34.09962, 1.54354, 1.21177,
690 + .92047, 1.43256, 1.54557,
691 + .06411, .03403, 36.08439, 1.62886, 1.29962,
692 + 1.01164, 1.51856, 1.63097 /
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 + .06530, .03473, 38.03167, 1.71514, 1.38772,
695 + 1.10195, 1.60549, 1.71733,
696 + .06648, .03541, 39.95163, 1.80158, 1.47623,
697 + 1.19315, 1.69256, 1.80385,
698 + .06759, .03607, 41.76858, 1.88497, 1.56158,
699 + 1.28107, 1.77653, 1.88731,
700 + .06865, .03668, 43.45288, 1.96421, 1.64237,
701 + 1.36388, 1.85631, 1.96662,
702 + .06972, .03730, 45.16395, 2.04564, 1.72569,
703 + 1.44972, 1.93827, 2.04812,
704 + .07077, .03792, 46.79997, 2.12577, 1.80720,
705 + 1.53306, 2.01893, 2.12833,
706 + .07177, .03850, 48.37869, 2.20374, 1.88688,
707 + 1.61504, 2.09739, 2.20637,
708 + .07273, .03905, 49.82491, 2.27723, 1.96156,
709 + 1.69132, 2.17134, 2.27993 /
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 + .07369, .03962, 51.29900, 2.35282, 2.03862,
712 + 1.77037, 2.24736, 2.35557,
713 + .07464, .04017, 52.72172, 2.42746, 2.11452,
714 + 1.84800, 2.32246, 2.43029,
715 + .07556, .04070, 54.07193, 2.49938, 2.18766,
716 + 1.92283, 2.39480, 2.50226,
717 + .07642, .04121, 55.35192, 2.56839, 2.25795,
718 + 1.99487, 2.46421, 2.57134,
719 + .07730, .04171, 56.60523, 2.63774, 2.32828,
720 + 2.06661, 2.53394, 2.64074 /
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 + .04527, .02295, .70455, .31485, .00000,
723 + .00000, .19407, .31602,
724 + .04618, .02346, 1.35601, .33483, .00000,
725 + .00000, .21498, .33603,
726 + .04753, .02424, 2.43722, .36839, .01425,
727 + .00000, .24989, .36967,
728 + .04858, .02484, 3.34466, .39574, .02971,
729 + .00000, .27817, .39708,
730 + .04967, .02546, 4.32335, .42697, .06634,
731 + .00000, .31034, .42837,
732 + .05062, .02602, 5.23768, .45616, .09823,
733 + .00000, .34030, .45761,
734 + .05154, .02656, 6.18277, .48585, .13103,
735 + .00000, .37074, .48735,
736 + .05254, .02714, 7.25233, .51923, .16840,
737 + .00000, .40489, .52079 /
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 + .05341, .02765, 8.21483, .54992, .20111,
740 + .00000, .43623, .55153,
741 + .05426, .02815, 9.18128, .58091, .23428,
742 + .00000, .46783, .58258,
743 + .05493, .02855, 9.98334, .60649, .26214,
744 + .00000, .49389, .60819,
745 + .05639, .02940, 11.75683, .66394, .32328,
746 + .00000, .55233, .66573,
747 + .05766, .03015, 13.15284, .71606, .37820,
748 + .07038, .60529, .71794,
749 + .05912, .03101, 14.84024, .77752, .44293,
750 + .14776, .66765, .77950,
751 + .06064, .03190, 16.65433, .84457, .51330,
752 + .22270, .73562, .84664,
753 + .06203, .03272, 18.33925, .90799, .57968,
754 + .29340, .79985, .91015 /
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 + .06344, .03356, 20.07442, .97453, .64926,
757 + .36708, .86718, .97679,
758 + .06464, .03426, 21.52743, 1.03146, .70840,
759 + .42888, .92475, 1.03379,
760 + .06607, .03511, 23.29835, 1.10241, .78180,
761 + .50520, .99647, 1.10483,
762 + .06736, .03587, 24.88332, 1.16710, .84882,
763 + .57526, 1.06182, 1.16961,
764 + .06854, .03656, 26.34888, 1.22798, .91190,
765 + .64121, 1.12330, 1.23056,
766 + .07004, .03745, 28.18815, 1.30657, .99271,
767 + .72473, 1.20263, 1.30926,
768 + .07147, .03828, 29.92359, 1.38235, 1.07072,
769 + .80561, 1.27910, 1.38514,
770 + .07280, .03907, 31.56065, 1.45515, 1.14584,
771 + .88381, 1.35254, 1.45804 /
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 + .07415, .03986, 33.15723, 1.52849, 1.22086,
774 + .96095, 1.42648, 1.53147,
775 + .07547, .04064, 34.72426, 1.60175, 1.29602,
776 + 1.03863, 1.50034, 1.60482,
777 + .07673, .04138, 36.20041, 1.67219, 1.36827,
778 + 1.11328, 1.57133, 1.67535,
779 + .07791, .04207, 37.56183, 1.73892, 1.43644,
780 + 1.18337, 1.63856, 1.74216,
781 + .07911, .04278, 38.94010, 1.80731, 1.50657,
782 + 1.25585, 1.70748, 1.81063,
783 + .08029, .04346, 40.25070, 1.87441, 1.57496,
784 + 1.32598, 1.77506, 1.87781,
785 + .08141, .04412, 41.51173, 1.93954, 1.64166,
786 + 1.39482, 1.84066, 1.94303,
787 + .08248, .04474, 42.66075, 2.00075, 1.70397,
788 + 1.45867, 1.90230, 2.00431 /
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 + .08355, .04537, 43.82874, 2.06355, 1.76815,
791 + 1.52473, 1.96555, 2.06720,
792 + .08462, .04599, 44.95082, 2.12543, 1.83119,
793 + 1.58939, 2.02783, 2.12915,
794 + .08564, .04659, 46.01202, 2.18490, 1.89180,
795 + 1.65160, 2.08770, 2.18869,
796 + .08661, .04716, 47.01502, 2.24185, 1.94993,
797 + 1.71137, 2.14504, 2.24572,
798 + .08759, .04772, 47.99223, 2.29892, 2.00795,
799 + 1.77073, 2.20247, 2.30285 /
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 + .05014, .02573, .70115, .30110, .00000,
802 + .00000, .18614, .30235,
803 + .05113, .02629, 1.33225, .32000, .00000,
804 + .00000, .20591, .32131,
805 + .05263, .02717, 2.36736, .35156, .01414,
806 + .00000, .23869, .35296,
807 + .05378, .02784, 3.22925, .37715, .02843,
808 + .00000, .26514, .37860,
809 + .05497, .02854, 4.15141, .40623, .06262,
810 + .00000, .29510, .40776,
811 + .05603, .02916, 5.00692, .43331, .09227,
812 + .00000, .32291, .43492,
813 + .05705, .02976, 5.88622, .46078, .12266,
814 + .00000, .35106, .46245,
815 + .05815, .03041, 6.87582, .49158, .15718,
816 + .00000, .38258, .49332 /
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 + .05910, .03097, 7.76155, .51980, .18733,
819 + .00000, .41140, .52161,
820 + .06003, .03153, 8.64692, .54824, .21780,
821 + .00000, .44041, .55011,
822 + .06078, .03197, 9.37904, .57167, .24335,
823 + .00000, .46428, .57358,
824 + .06238, .03292, 10.98997, .62413, .29926,
825 + .00000, .51766, .62614,
826 + .06379, .03376, 12.24847, .67157, .34931,
827 + .06349, .56588, .67367,
828 + .06539, .03470, 13.76061, .72730, .40810,
829 + .13400, .62246, .72951,
830 + .06707, .03569, 15.37634, .78787, .47178,
831 + .20198, .68388, .79020,
832 + .06860, .03661, 16.86836, .84497, .53164,
833 + .26590, .74175, .84741 /
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 + .07016, .03753, 18.39670, .90468, .59416,
836 + .33227, .80220, .90723,
837 + .07146, .03829, 19.67014, .95561, .64715,
838 + .38777, .85373, .95825,
839 + .07304, .03923, 21.21469, 1.01888, .71271,
840 + .45612, .91773, 1.02163,
841 + .07445, .04007, 22.59069, 1.07641, .77239,
842 + .51865, .97588, 1.07926,
843 + .07574, .04083, 23.85780, 1.13039, .82842,
844 + .57738, 1.03043, 1.13333,
845 + .07740, .04180, 25.44001, 1.19986, .89998,
846 + .65151, 1.10060, 1.20293,
847 + .07895, .04272, 26.92583, 1.26665, .96882,
848 + .72307, 1.16803, 1.26983,
849 + .08042, .04359, 28.32152, 1.33064, 1.03496,
850 + .79209, 1.23261, 1.33392 /
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 + .08189, .04445, 29.67583, 1.39489, 1.10078,
853 + .85994, 1.29745, 1.39827,
854 + .08333, .04530, 30.99989, 1.45890, 1.16657,
855 + .92810, 1.36201, 1.46239,
856 + .08471, .04610, 32.24219, 1.52029, 1.22965,
857 + .99345, 1.42393, 1.52388,
858 + .08599, .04686, 33.38314, 1.57828, 1.28899,
859 + 1.05461, 1.48242, 1.58197,
860 + .08730, .04763, 34.53496, 1.63761, 1.34993,
861 + 1.11776, 1.54223, 1.64140,
862 + .08858, .04837, 35.62465, 1.69565, 1.40917,
863 + 1.17866, 1.60072, 1.69953,
864 + .08981, .04909, 36.67056, 1.75189, 1.46688,
865 + 1.23838, 1.65741, 1.75585,
866 + .09097, .04977, 37.61897, 1.80459, 1.52063,
867 + 1.29359, 1.71053, 1.80865 /
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 + .09214, .05045, 38.58083, 1.85859, 1.57591,
870 + 1.35062, 1.76493, 1.86273,
871 + .09330, .05113, 39.50105, 1.91165, 1.63008,
872 + 1.40634, 1.81840, 1.91588,
873 + .09441, .05178, 40.36874, 1.96255, 1.68206,
874 + 1.45983, 1.86969, 1.96688,
875 + .09545, .05238, 41.18675, 2.01123, 1.73183,
876 + 1.51113, 1.91872, 2.01562,
877 + .09652, .05300, 41.98034, 2.05989, 1.78138,
878 + 1.56197, 1.96773, 2.06436 /
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 + .06907, .03686, .70980, .26378, .00000,
881 + .00000, .16516, .26604,
882 + .07038, .03765, 1.28197, .27928, .00000,
883 + .00000, .18137, .28163,
884 + .07239, .03887, 2.18255, .30477, .01358,
885 + .00000, .20786, .30724,
886 + .07394, .03980, 2.91232, .32514, .02448,
887 + .00000, .22896, .32773,
888 + .07555, .04078, 3.67240, .34808, .05174,
889 + .00000, .25260, .35077,
890 + .07696, .04164, 4.36119, .36920, .07507,
891 + .00000, .27432, .37199,
892 + .07834, .04247, 5.05557, .39042, .09875,
893 + .00000, .29612, .39332,
894 + .07983, .04337, 5.82266, .41403, .12543,
895 + .00000, .32033, .41704 /
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 + .08113, .04416, 6.49684, .43547, .14849,
898 + .00000, .34227, .43858,
899 + .08239, .04493, 7.16051, .45691, .17163,
900 + .00000, .36419, .46011,
901 + .08339, .04554, 7.70268, .47447, .19093,
902 + .00000, .38212, .47773,
903 + .08555, .04684, 8.87618, .51341, .23274,
904 + .00000, .42185, .51685,
905 + .08744, .04798, 9.77000, .54824, .26976,
906 + .04470, .45734, .55182,
907 + .08959, .04927, 10.82094, .58871, .31276,
908 + .09693, .49852, .59245,
909 + .09184, .05062, 11.92068, .63218, .35878,
910 + .14653, .54272, .63609,
911 + .09389, .05185, 12.91626, .67267, .40156,
912 + .19266, .58387, .67675 /
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 + .09596, .05308, 13.91757, .71457, .44576,
915 + .24004, .62642, .71881,
916 + .09769, .05412, 14.73766, .74993, .48284,
917 + .27926, .66231, .75431,
918 + .09979, .05536, 15.71556, .79343, .52824,
919 + .32705, .70642, .79796,
920 + .10166, .05647, 16.57279, .83258, .56918,
921 + .37038, .74611, .83726,
922 + .10337, .05749, 17.35097, .86899, .60727,
923 + .41071, .78302, .87381,
924 + .10554, .05877, 18.30550, .91536, .65539,
925 + .46107, .83000, .92035,
926 + .10759, .05997, 19.18710, .95948, .70124,
927 + .50921, .87469, .96463,
928 + .10951, .06111, 20.00326, 1.00135, .74488,
929 + .55523, .91709, 1.00666 /
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 + .11142, .06223, 20.78037, 1.04295, .78784,
932 + .59996, .95920, 1.04840,
933 + .11330, .06333, 21.52983, 1.08403, .83042,
934 + .64455, 1.00077, 1.08963,
935 + .11509, .06437, 22.22305, 1.12309, .87090,
936 + .68693, 1.04030, 1.12884,
937 + .11676, .06534, 22.84931, 1.15965, .90863,
938 + .72623, 1.07729, 1.16553,
939 + .11844, .06632, 23.47507, 1.19679, .94712,
940 + .76655, 1.11487, 1.20281,
941 + .12010, .06728, 24.05615, 1.23276, .98419,
942 + .80507, 1.15127, 1.23892,
943 + .12168, .06820, 24.60926, 1.26743, 1.02007,
944 + .84261, 1.18633, 1.27371,
945 + .12316, .06905, 25.10145, 1.29961, 1.05320,
946 + .87702, 1.21887, 1.30600 /
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 + .12465, .06992, 25.59667, 1.33240, 1.08708,
949 + .91237, 1.25203, 1.33891,
950 + .12613, .07077, 26.06279, 1.36435, 1.12002,
951 + .94663, 1.28435, 1.37098,
952 + .12754, .07157, 26.49730, 1.39481, 1.15142,
953 + .97932, 1.31516, 1.40156,
954 + .12888, .07234, 26.90297, 1.42377, 1.18134,
955 + 1.01051, 1.34444, 1.43062,
956 + .13023, .07310, 27.28923, 1.45247, 1.21086,
957 + 1.04115, 1.37347, 1.45943 /
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 + .09566, .05323, .78122, .23410, .00000,
960 + .00000, .14820, .23800,
961 + .09743, .05433, 1.29555, .24622, .00000,
962 + .00000, .16091, .25025,
963 + .10016, .05602, 2.06723, .26595, .01211,
964 + .00000, .18150, .27020,
965 + .10223, .05732, 2.67221, .28161, .02001,
966 + .00000, .19776, .28602,
967 + .10442, .05866, 3.28351, .29910, .04121,
968 + .00000, .21587, .30369,
969 + .10633, .05984, 3.82263, .31504, .05910,
970 + .00000, .23233, .31979,
971 + .10818, .06098, 4.35393, .33094, .07711,
972 + .00000, .24872, .33586,
973 + .11019, .06221, 4.92833, .34849, .09722,
974 + .00000, .26679, .35357 /
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 + .11194, .06327, 5.42267, .36428, .11442,
977 + .00000, .28302, .36950,
978 + .11363, .06431, 5.90060, .37992, .13155,
979 + .00000, .29910, .38530,
980 + .11499, .06514, 6.28546, .39268, .14574,
981 + .00000, .31218, .39816,
982 + .11789, .06688, 7.10286, .42067, .17619,
983 + .00000, .34087, .42641,
984 + .12041, .06841, 7.70732, .44540, .20281,
985 + .02928, .36618, .45135,
986 + .12326, .07011, 8.39782, .47378, .23336,
987 + .06699, .39520, .47997,
988 + .12624, .07188, 9.10247, .50383, .26561,
989 + .10223, .42593, .51027,
990 + .12894, .07348, 9.72500, .53147, .29520,
991 + .13458, .45415, .53814 /
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 + .13167, .07510, 10.33696, .55971, .32540,
994 + .16740, .48298, .56662,
995 + .13393, .07642, 10.82744, .58326, .35044,
996 + .19425, .50702, .59036,
997 + .13667, .07802, 11.39987, .61186, .38073,
998 + .22660, .53620, .61920,
999 + .13909, .07943, 11.89153, .63732, .40774,
1000 + .25561, .56216, .64485,
1001 + .14131, .08073, 12.32972, .66075, .43262,
1002 + .28234, .58606, .66848,
1003 + .14411, .08233, 12.85444, .69021, .46366,
1004 + .31531, .61608, .69818,
1005 + .14673, .08384, 13.32864, .71789, .49289,
1006 + .34648, .64430, .72609,
1007 + .14919, .08526, 13.75936, .74389, .52041,
1008 + .37596, .67080, .75229 /
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 + .15162, .08665, 14.15842, .76936, .54716,
1011 + .40426, .69676, .77796,
1012 + .15400, .08799, 14.53625, .79425, .57342,
1013 + .43220, .72213, .80307,
1014 + .15625, .08927, 14.87881, .81769, .59812,
1015 + .45848, .74601, .82669,
1016 + .15834, .09045, 15.18063, .83936, .62090,
1017 + .48261, .76810, .84854,
1018 + .16046, .09164, 15.47805, .86119, .64397,
1019 + .50719, .79036, .87055,
1020 + .16252, .09279, 15.74610, .88209, .66590,
1021 + .53038, .81166, .89162,
1022 + .16447, .09388, 15.99851, .90209, .68700,
1023 + .55285, .83204, .91178,
1024 + .16630, .09491, 16.21587, .92042, .70626,
1025 + .57322, .85073, .93027 /
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 + .16816, .09593, 16.43215, .93899, .72584,
1028 + .59402, .86966, .94900,
1029 + .16997, .09694, 16.63032, .95689, .74468,
1030 + .61399, .88792, .96704,
1031 + .17169, .09789, 16.81175, .97382, .76251,
1032 + .63290, .90518, .98412,
1033 + .17332, .09879, 16.97844, .98980, .77938,
1034 + .65083, .92148, 1.00023,
1035 + .17495, .09968, 17.13138, 1.00546, .79586,
1036 + .66827, .93747, 1.01603 /
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 + .11594, .06600, .86701, .21852, .00000,
1039 + .00000, .13905, .22385,
1040 + .11807, .06734, 1.34243, .22875, .00000,
1041 + .00000, .14984, .23428,
1042 + .12132, .06939, 2.03813, .24538, .01049,
1043 + .00000, .16725, .25118,
1044 + .12382, .07094, 2.57084, .25854, .01686,
1045 + .00000, .18098, .26456,
1046 + .12643, .07257, 3.09852, .27319, .03493,
1047 + .00000, .19622, .27945,
1048 + .12871, .07397, 3.55576, .28648, .05006,
1049 + .00000, .21001, .29293,
1050 + .13093, .07533, 3.99967, .29967, .06519,
1051 + .00000, .22368, .30632,
1052 + .13332, .07679, 4.47273, .31415, .08203,
1053 + .00000, .23865, .32102 /
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 + .13540, .07804, 4.87420, .32711, .09631,
1056 + .00000, .25204, .33416,
1057 + .13740, .07927, 5.25767, .33990, .11049,
1058 + .00000, .26523, .34713,
1059 + .13903, .08023, 5.56352, .35026, .12218,
1060 + .00000, .27592, .35765,
1061 + .14245, .08228, 6.20488, .37289, .14708,
1062 + .00000, .29923, .38058,
1063 + .14542, .08404, 6.67006, .39270, .16868,
1064 + .02157, .31962, .40065,
1065 + .14877, .08601, 7.18932, .41525, .19327,
1066 + .05230, .34280, .42350,
1067 + .15224, .08804, 7.70981, .43891, .21900,
1068 + .08071, .36711, .44747,
1069 + .15538, .08986, 8.16171, .46046, .24241,
1070 + .10658, .38926, .46931 /
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 + .15855, .09170, 8.59875, .48230, .26609,
1073 + .13262, .41169, .49143,
1074 + .16117, .09320, 8.94336, .50036, .28558,
1075 + .15375, .43024, .50972,
1076 + .16432, .09500, 9.33916, .52212, .30897,
1077 + .17902, .45257, .53176,
1078 + .16710, .09659, 9.67379, .54132, .32966,
1079 + .20151, .47229, .55122,
1080 + .16965, .09802, 9.96770, .55888, .34861,
1081 + .22211, .49031, .56899,
1082 + .17283, .09982, 10.31305, .58073, .37202,
1083 + .24730, .51274, .59113,
1084 + .17582, .10148, 10.61974, .60110, .39389,
1085 + .27092, .53366, .61176,
1086 + .17861, .10304, 10.89401, .62008, .41436,
1087 + .29313, .55314, .63099 /
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 + .18135, .10455, 11.14190, .63850, .43406,
1090 + .31427, .57205, .64964,
1091 + .18403, .10603, 11.37297, .65637, .45327,
1092 + .33499, .59042, .66775,
1093 + .18655, .10741, 11.57878, .67307, .47122,
1094 + .35438, .60757, .68466,
1095 + .18890, .10868, 11.75593, .68839, .48765,
1096 + .37204, .62330, .70017,
1097 + .19126, .10996, 11.92847, .70372, .50420,
1098 + .38993, .63908, .71572,
1099 + .19353, .11119, 12.07912, .71826, .51979,
1100 + .40667, .65403, .73045,
1101 + .19570, .11236, 12.21973, .73211, .53474,
1102 + .42285, .66827, .74448,
1103 + .19772, .11344, 12.33654, .74469, .54826,
1104 + .43738, .68122, .75723 /
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 + .19976, .11453, 12.45163, .75736, .56195,
1107 + .45217, .69426, .77008,
1108 + .20174, .11558, 12.55351, .76948, .57504,
1109 + .46627, .70675, .78236,
1110 + .20362, .11658, 12.64471, .78088, .58735,
1111 + .47956, .71849, .79392,
1112 + .20541, .11753, 12.72698, .79159, .59896,
1113 + .49212, .72953, .80476,
1114 + .20719, .11846, 12.79871, .80198, .61019,
1115 + .50423, .74024, .81531 /
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 + .13301, .07683, .95252, .20787, .00000,
1118 + .00000, .13254, .21450,
1119 + .13544, .07840, 1.39686, .21685, .00000,
1120 + .00000, .14204, .22371,
1121 + .13917, .08075, 2.03673, .23141, .00883,
1122 + .00000, .15737, .23862,
1123 + .14201, .08252, 2.51719, .24292, .01425,
1124 + .00000, .16945, .25039,
1125 + .14497, .08434, 2.98587, .25571, .03029,
1126 + .00000, .18283, .26348,
1127 + .14756, .08592, 3.38653, .26728, .04364,
1128 + .00000, .19487, .27528,
1129 + .15008, .08744, 3.77100, .27871, .05695,
1130 + .00000, .20679, .28696,
1131 + .15278, .08908, 4.17619, .29123, .07168,
1132 + .00000, .21979, .29971 /
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 + .15513, .09049, 4.51630, .30236, .08413,
1135 + .00000, .23136, .31107,
1136 + .15741, .09183, 4.83808, .31331, .09641,
1137 + .00000, .24272, .32224,
1138 + .15922, .09292, 5.09278, .32216, .10652,
1139 + .00000, .25189, .33125,
1140 + .16306, .09517, 5.62156, .34137, .12794,
1141 + .00000, .27179, .35083,
1142 + .16639, .09711, 5.99943, .35808, .14640,
1143 + .01661, .28908, .36784,
1144 + .17010, .09925, 6.41243, .37696, .16728,
1145 + .04297, .30861, .38707,
1146 + .17396, .10146, 6.82026, .39663, .18898,
1147 + .06716, .32896, .40710,
1148 + .17744, .10344, 7.16914, .41443, .20858,
1149 + .08903, .34735, .42521 /
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 + .18093, .10540, 7.50183, .43232, .22829,
1152 + .11091, .36584, .44342,
1153 + .18380, .10702, 7.76045, .44701, .24440,
1154 + .12856, .38105, .45838,
1155 + .18726, .10895, 8.05318, .46460, .26361,
1156 + .14953, .39922, .47629,
1157 + .19030, .11062, 8.29721, .48002, .28052,
1158 + .16811, .41518, .49197,
1159 + .19307, .11214, 8.50881, .49403, .29591,
1160 + .18503, .42966, .50623,
1161 + .19654, .11404, 8.75284, .51135, .31480,
1162 + .20558, .44757, .52386,
1163 + .19976, .11579, 8.96592, .52736, .33234,
1164 + .22476, .46416, .54016,
1165 + .20278, .11741, 9.15365, .54220, .34866,
1166 + .24268, .47952, .55525 /
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 + .20573, .11899, 9.31902, .55648, .36425,
1169 + .25961, .49430, .56979,
1170 + .20860, .12052, 9.47071, .57025, .37936,
1171 + .27614, .50857, .58380,
1172 + .21128, .12194, 9.60323, .58303, .39342,
1173 + .29151, .52183, .59681,
1174 + .21378, .12326, 9.71420, .59465, .40620,
1175 + .30544, .53389, .60867,
1176 + .21629, .12458, 9.82090, .60626, .41902,
1177 + .31950, .54594, .62048,
1178 + .21871, .12583, 9.91042, .61716, .43101,
1179 + .33258, .55727, .63158,
1180 + .22100, .12702, 9.99315, .62750, .44248,
1181 + .34517, .56802, .64211,
1182 + .22313, .12810, 10.05848, .63681, .45278,
1183 + .35641, .57771, .65160 /
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 + .22527, .12920, 10.12207, .64616, .46317,
1186 + .36782, .58746, .66113,
1187 + .22734, .13027, 10.17555, .65505, .47303,
1188 + .37863, .59671, .67018,
1189 + .22932, .13127, 10.22182, .66335, .48228,
1190 + .38878, .60537, .67865,
1191 + .23117, .13221, 10.26234, .67111, .49096,
1192 + .39833, .61347, .68656,
1193 + .23301, .13314, 10.29441, .67858, .49931,
1194 + .40749, .62127, .69419 /
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 + .14791, .08638, 1.03375, .19940, .00000,
1197 + .00000, .12720, .20719,
1198 + .15064, .08811, 1.45185, .20745, .00000,
1199 + .00000, .13577, .21550,
1200 + .15480, .09073, 2.04660, .22052, .00721,
1201 + .00000, .14961, .22898,
1202 + .15795, .09266, 2.48551, .23085, .01197,
1203 + .00000, .16049, .23963,
1204 + .16124, .09467, 2.90819, .24232, .02656,
1205 + .00000, .17254, .25141,
1206 + .16410, .09640, 3.26556, .25263, .03863,
1207 + .00000, .18334, .26200,
1208 + .16688, .09807, 3.60515, .26281, .05062,
1209 + .00000, .19400, .27246,
1210 + .16984, .09983, 3.95973, .27390, .06386,
1211 + .00000, .20559, .28384 /
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 + .17243, .10135, 4.25456, .28374, .07499,
1214 + .00000, .21587, .29393,
1215 + .17492, .10282, 4.53129, .29337, .08595,
1216 + .00000, .22592, .30381,
1217 + .17690, .10397, 4.74897, .30113, .09493,
1218 + .00000, .23402, .31176,
1219 + .18110, .10640, 5.19702, .31792, .11390,
1220 + .00000, .25151, .32895,
1221 + .18472, .10846, 5.51312, .33243, .13015,
1222 + .01306, .26661, .34381,
1223 + .18875, .11073, 5.85186, .34872, .14842,
1224 + .03634, .28358, .36048,
1225 + .19290, .11306, 6.18187, .36558, .16730,
1226 + .05756, .30113, .37773,
1227 + .19665, .11514, 6.46026, .38074, .18426,
1228 + .07665, .31691, .39323 /
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 + .20040, .11720, 6.72230, .39589, .20122,
1231 + .09565, .33268, .40872,
1232 + .20348, .11888, 6.92331, .40826, .21500,
1233 + .11089, .34557, .42138,
1234 + .20717, .12088, 7.14745, .42297, .23137,
1235 + .12893, .36090, .43643,
1236 + .21040, .12262, 7.33181, .43579, .24569,
1237 + .14482, .37426, .44956,
1238 + .21334, .12419, 7.48973, .44738, .25866,
1239 + .15923, .38635, .46140,
1240 + .21700, .12613, 7.66826, .46161, .27450,
1241 + .17664, .40120, .47596,
1242 + .22040, .12792, 7.82136, .47469, .28912,
1243 + .19281, .41485, .48933,
1244 + .22356, .12958, 7.95410, .48673, .30265,
1245 + .20784, .42743, .50165 /
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 + .22665, .13118, 8.06763, .49822, .31551,
1248 + .22197, .43945, .51341,
1249 + .22965, .13271, 8.16986, .50926, .32793,
1250 + .23572, .45101, .52470,
1251 + .23245, .13415, 8.25716, .51943, .33941,
1252 + .24845, .46168, .53512,
1253 + .23505, .13546, 8.32750, .52864, .34978,
1254 + .25991, .47133, .54453,
1255 + .23764, .13677, 8.39397, .53777, .36015,
1256 + .27144, .48092, .55389,
1257 + .24012, .13803, 8.44657, .54629, .36981,
1258 + .28213, .48989, .56262,
1259 + .24249, .13920, 8.49457, .55433, .37900,
1260 + .29236, .49836, .57086,
1261 + .24467, .14028, 8.52943, .56153, .38722,
1262 + .30147, .50594, .57823 /
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 + .24687, .14136, 8.56273, .56871, .39548,
1265 + .31068, .51353, .58559,
1266 + .24899, .14241, 8.58797, .57549, .40328,
1267 + .31937, .52070, .59255,
1268 + .25100, .14338, 8.60816, .58180, .41056,
1269 + .32750, .52737, .59901,
1270 + .25290, .14431, 8.62465, .58766, .41737,
1271 + .33513, .53358, .60503,
1272 + .25477, .14520, 8.63427, .59325, .42389,
1273 + .34242, .53953, .61077 /
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 + .17385, .10291, 1.17722, .18636, .00000,
1276 + .00000, .11875, .19635,
1277 + .17708, .10496, 1.55086, .19311, .00000,
1278 + .00000, .12603, .20345,
1279 + .18200, .10799, 2.07369, .20409, .00422,
1280 + .00000, .13779, .21496,
1281 + .18570, .11022, 2.44777, .21274, .00814,
1282 + .00000, .14703, .22400,
1283 + .18953, .11249, 2.80028, .22232, .02072,
1284 + .00000, .15723, .23399,
1285 + .19285, .11444, 3.09302, .23090, .03103,
1286 + .00000, .16632, .24290,
1287 + .19606, .11631, 3.36680, .23930, .04122,
1288 + .00000, .17523, .25163,
1289 + .19949, .11828, 3.64823, .24841, .05240,
1290 + .00000, .18488, .26109 /
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 + .20244, .11997, 3.87860, .25643, .06172,
1293 + .00000, .19337, .26941,
1294 + .20529, .12158, 4.09181, .26422, .07085,
1295 + .00000, .20162, .27751,
1296 + .20755, .12284, 4.25774, .27049, .07832,
1297 + .00000, .20823, .28399,
1298 + .21230, .12549, 4.59452, .28391, .09392,
1299 + .00000, .22240, .29789,
1300 + .21634, .12770, 4.82699, .29540, .10718,
1301 + .00816, .23452, .30975,
1302 + .22083, .13013, 5.06592, .30816, .12196,
1303 + .02727, .24801, .32295,
1304 + .22545, .13259, 5.29296, .32120, .13707,
1305 + .04452, .26179, .33644,
1306 + .22957, .13477, 5.47955, .33280, .15050,
1307 + .05988, .27405, .34842 /
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 + .23368, .13692, 5.65066, .34426, .16382,
1310 + .07504, .28619, .36027,
1311 + .23704, .13865, 5.77828, .35352, .17454,
1312 + .08710, .29600, .36983,
1313 + .24102, .14070, 5.91633, .36442, .18716,
1314 + .10126, .30755, .38108,
1315 + .24450, .14247, 6.02651, .37381, .19811,
1316 + .11363, .31754, .39079,
1317 + .24766, .14406, 6.11809, .38223, .20795,
1318 + .12478, .32648, .39949,
1319 + .25155, .14601, 6.21680, .39243, .21986,
1320 + .13814, .33733, .41003,
1321 + .25516, .14779, 6.29772, .40169, .23074,
1322 + .15042, .34721, .41960,
1323 + .25850, .14942, 6.36499, .41013, .24073,
1324 + .16177, .35623, .42832 /
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 + .26173, .15099, 6.41762, .41807, .25012,
1327 + .17233, .36474, .43653,
1328 + .26485, .15249, 6.46225, .42561, .25912,
1329 + .18253, .37283, .44433,
1330 + .26775, .15387, 6.49729, .43249, .26737,
1331 + .19191, .38023, .45145,
1332 + .27043, .15511, 6.52150, .43864, .27476,
1333 + .20029, .38685, .45781,
1334 + .27308, .15637, 6.54280, .44468, .28210,
1335 + .20867, .39338, .46406,
1336 + .27562, .15754, 6.55450, .45022, .28886,
1337 + .21637, .39939, .46980,
1338 + .27801, .15865, 6.56427, .45543, .29526,
1339 + .22371, .40505, .47519,
1340 + .28021, .15965, 6.56590, .46000, .30091,
1341 + .23017, .41002, .47994 /
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 + .28242, .16065, 6.56632, .46454, .30658,
1344 + .23669, .41498, .48464,
1345 + .28454, .16160, 6.56144, .46875, .31187,
1346 + .24279, .41960, .48902,
1347 + .28654, .16248, 6.55420, .47262, .31678,
1348 + .24847, .42387, .49304,
1349 + .28841, .16331, 6.54560, .47620, .32134,
1350 + .25376, .42781, .49675,
1351 + .29025, .16412, 6.53209, .47954, .32565,
1352 + .25876, .43151, .50022 /
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 + .20649, .12357, 1.35202, .17145, .00000,
1355 + .00000, .10879, .18442,
1356 + .21044, .12596, 1.67059, .17700, .00000,
1357 + .00000, .11491, .19044,
1358 + .21635, .12947, 2.11054, .18597, .00038,
1359 + .00000, .12477, .20010,
1360 + .22071, .13199, 2.41232, .19303, .00363,
1361 + .00000, .13247, .20764,
1362 + .22521, .13456, 2.68902, .20080, .01430,
1363 + .00000, .14091, .21591,
1364 + .22908, .13673, 2.91383, .20767, .02298,
1365 + .00000, .14837, .22322,
1366 + .23281, .13878, 3.12000, .21437, .03147,
1367 + .00000, .15563, .23031,
1368 + .23674, .14093, 3.32793, .22157, .04071,
1369 + .00000, .16341, .23792 /
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 + .24013, .14275, 3.49473, .22783, .04835,
1372 + .00000, .17019, .24454,
1373 + .24336, .14448, 3.64632, .23389, .05577,
1374 + .00000, .17674, .25093,
1375 + .24593, .14584, 3.76264, .23870, .06181,
1376 + .00000, .18195, .25601,
1377 + .25127, .14862, 3.99436, .24894, .07432,
1378 + .00000, .19302, .26678,
1379 + .25575, .15092, 4.14973, .25755, .08482,
1380 + .00367, .20234, .27583,
1381 + .26069, .15341, 4.29850, .26700, .09638,
1382 + .01891, .21257, .28575,
1383 + .26572, .15590, 4.43437, .27652, .10806,
1384 + .03251, .22290, .29573,
1385 + .27017, .15808, 4.54120, .28484, .11832,
1386 + .04448, .23196, .30446 /
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 + .27457, .16021, 4.63474, .29295, .12837,
1389 + .05617, .24080, .31296,
1390 + .27813, .16191, 4.70073, .29940, .13639,
1391 + .06540, .24784, .31973,
1392 + .28234, .16389, 4.76778, .30687, .14571,
1393 + .07611, .25604, .32757,
1394 + .28598, .16558, 4.81780, .31323, .15372,
1395 + .08539, .26301, .33423,
1396 + .28925, .16709, 4.85644, .31885, .16084,
1397 + .09367, .26919, .34010,
1398 + .29327, .16890, 4.89257, .32552, .16935,
1399 + .10350, .27658, .34711,
1400 + .29694, .17054, 4.91780, .33149, .17705,
1401 + .11244, .28321, .35336,
1402 + .30032, .17204, 4.93528, .33683, .18405,
1403 + .12064, .28918, .35897 /
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 + .30355, .17344, 4.94252, .34176, .19053,
1406 + .12818, .29471, .36414,
1407 + .30665, .17476, 4.94497, .34637, .19668,
1408 + .13539, .29989, .36898,
1409 + .30953, .17598, 4.94248, .35048, .20227,
1410 + .14198, .30456, .37330,
1411 + .31212, .17706, 4.93426, .35407, .20719,
1412 + .14778, .30865, .37707,
1413 + .31471, .17813, 4.92417, .35756, .21206,
1414 + .15357, .31266, .38074,
1415 + .31715, .17911, 4.90814, .36067, .21647,
1416 + .15881, .31625, .38401,
1417 + .31944, .18003, 4.89227, .36356, .22063,
1418 + .16379, .31962, .38705,
1419 + .32151, .18085, 4.87237, .36602, .22425,
1420 + .16813, .32250, .38963 /
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 + .32359, .18166, 4.85177, .36842, .22784,
1423 + .17247, .32535, .39217,
1424 + .32557, .18241, 4.82810, .37058, .23115,
1425 + .17650, .32794, .39446,
1426 + .32742, .18311, 4.80405, .37253, .23420,
1427 + .18021, .33029, .39652,
1428 + .32915, .18375, 4.78035, .37429, .23700,
1429 + .18366, .33244, .39839,
1430 + .33082, .18436, 4.75348, .37587, .23961,
1431 + .18688, .33439, .40007 /
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 + .25192, .15141, 1.55250, .15275, .00000,
1434 + .00000, .09625, .17061,
1435 + .25684, .15423, 1.79822, .15711, .00000,
1436 + .00000, .10130, .17558,
1437 + .26406, .15822, 2.13524, .16408, -.00448,
1438 + .00000, .10931, .18342,
1439 + .26928, .16100, 2.35126, .16945, -.00172,
1440 + .00000, .11547, .18941,
1441 + .27460, .16379, 2.54098, .17534, .00705,
1442 + .00000, .12214, .19587,
1443 + .27913, .16611, 2.69046, .18046, .01410,
1444 + .00000, .12793, .20148,
1445 + .28342, .16828, 2.82372, .18537, .02090,
1446 + .00000, .13350, .20685,
1447 + .28792, .17050, 2.95427, .19058, .02822,
1448 + .00000, .13941, .21252 /
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 + .29174, .17237, 3.05560, .19505, .03420,
1451 + .00000, .14446, .21736,
1452 + .29537, .17411, 3.14495, .19930, .03995,
1453 + .00000, .14929, .22198,
1454 + .29821, .17547, 3.21204, .20265, .04458,
1455 + .00000, .15309, .22560,
1456 + .30407, .17823, 3.34146, .20967, .05406,
1457 + .00000, .16104, .23316,
1458 + .30891, .18041, 3.42374, .21544, .06188,
1459 + -.00045, .16761, .23936,
1460 + .31414, .18274, 3.48939, .22162, .07036,
1461 + .01100, .17467, .24599,
1462 + .31939, .18504, 3.54337, .22769, .07879,
1463 + .02109, .18164, .25249,
1464 + .32397, .18700, 3.58036, .23287, .08607,
1465 + .02983, .18762, .25803 /
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 + .32844, .18886, 3.60759, .23779, .09311,
1468 + .03827, .19334, .26329,
1469 + .33202, .19031, 3.62227, .24162, .09863,
1470 + .04483, .19781, .26737,
1471 + .33619, .19197, 3.63134, .24592, .10496,
1472 + .05237, .20290, .27197,
1473 + .33974, .19335, 3.63336, .24949, .11031,
1474 + .05881, .20714, .27577,
1475 + .34289, .19457, 3.63066, .25257, .11502,
1476 + .06450, .21082, .27905,
1477 + .34669, .19598, 3.61917, .25609, .12053,
1478 + .07115, .21510, .28281,
1479 + .35012, .19722, 3.60325, .25914, .12545,
1480 + .07714, .21885, .28605,
1481 + .35323, .19832, 3.58491, .26179, .12986,
1482 + .08254, .22214, .28886 /
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 + .35616, .19931, 3.56063, .26410, .13386,
1485 + .08745, .22507, .29132,
1486 + .35892, .20023, 3.53453, .26618, .13760,
1487 + .09210, .22777, .29354,
1488 + .36143, .20105, 3.50735, .26798, .14094,
1489 + .09627, .23013, .29544,
1490 + .36368, .20175, 3.47860, .26945, .14384,
1491 + .09993, .23211, .29700,
1492 + .36588, .20241, 3.44912, .27082, .14667,
1493 + .10352, .23402, .29847,
1494 + .36790, .20299, 3.41684, .27194, .14918,
1495 + .10673, .23564, .29965,
1496 + .36980, .20352, 3.38625, .27295, .15152,
1497 + .10976, .23713, .30073,
1498 + .37146, .20397, 3.35478, .27371, .15350,
1499 + .11234, .23832, .30153 /
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 + .37312, .20440, 3.32316, .27442, .15545,
1502 + .11491, .23947, .30228,
1503 + .37466, .20477, 3.29040, .27497, .15722,
1504 + .11727, .24045, .30285,
1505 + .37607, .20510, 3.25868, .27542, .15880,
1506 + .11942, .24129, .30332,
1507 + .37739, .20540, 3.22840, .27579, .16025,
1508 + .12139, .24205, .30370,
1509 + .37862, .20564, 3.19636, .27601, .16155,
1510 + .12320, .24265, .30395 /
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 + .28993, .17390, 1.67237, .13783, .00000,
1513 + .00000, .08641, .15987,
1514 + .29572, .17694, 1.86071, .14143, .00000,
1515 + .00000, .09084, .16421,
1516 + .30405, .18118, 2.12009, .14709, -.00776,
1517 + .00000, .09772, .17087,
1518 + .30993, .18406, 2.27464, .15139, -.00521,
1519 + .00000, .10289, .17584,
1520 + .31585, .18688, 2.40410, .15602, .00235,
1521 + .00000, .10843, .18112,
1522 + .32081, .18919, 2.50291, .15999, .00835,
1523 + .00000, .11316, .18559,
1524 + .32547, .19132, 2.58842, .16376, .01410,
1525 + .00000, .11764, .18981,
1526 + .33029, .19349, 2.66955, .16769, .02019,
1527 + .00000, .12233, .19419 /
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 + .33434, .19526, 2.72995, .17101, .02513,
1530 + .00000, .12630, .19788,
1531 + .33815, .19690, 2.78121, .17412, .02984,
1532 + .00000, .13003, .20133,
1533 + .34112, .19817, 2.81863, .17656, .03360,
1534 + .00000, .13295, .20400,
1535 + .34717, .20065, 2.88772, .18155, .04121,
1536 + .00000, .13896, .20949,
1537 + .35202, .20258, 2.92797, .18556, .04741,
1538 + -.00256, .14382, .21388,
1539 + .35723, .20457, 2.94761, .18977, .05405,
1540 + .00656, .14896, .21844,
1541 + .36236, .20649, 2.95775, .19379, .06055,
1542 + .01450, .15392, .22278,
1543 + .36678, .20806, 2.95847, .19713, .06609,
1544 + .02132, .15808, .22639 /
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 + .37102, .20952, 2.95219, .20020, .07137,
1547 + .02782, .16199, .22971,
1548 + .37436, .21063, 2.94162, .20250, .07548,
1549 + .03284, .16497, .23218,
1550 + .37817, .21185, 2.92302, .20503, .08011,
1551 + .03853, .16827, .23488,
1552 + .38138, .21283, 2.90282, .20706, .08399,
1553 + .04336, .17097, .23701,
1554 + .38419, .21365, 2.88160, .20872, .08735,
1555 + .04757, .17327, .23879,
1556 + .38751, .21456, 2.84965, .21054, .09124,
1557 + .05244, .17584, .24071,
1558 + .39044, .21531, 2.81674, .21203, .09466,
1559 + .05679, .17804, .24227,
1560 + .39305, .21595, 2.78419, .21325, .09769,
1561 + .06068, .17990, .24355 /
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 + .39543, .21648, 2.74811, .21420, .10039,
1564 + .06416, .18148, .24453,
1565 + .39765, .21692, 2.71184, .21499, .10288,
1566 + .06743, .18287, .24533,
1567 + .39964, .21727, 2.67641, .21560, .10508,
1568 + .07035, .18403, .24594,
1569 + .40134, .21754, 2.64137, .21600, .10695,
1570 + .07286, .18495, .24632,
1571 + .40298, .21778, 2.60625, .21635, .10875,
1572 + .07531, .18579, .24664,
1573 + .40443, .21793, 2.56997, .21650, .11032,
1574 + .07748, .18644, .24674,
1575 + .40578, .21806, 2.53598, .21662, .11176,
1576 + .07950, .18700, .24680,
1577 + .40693, .21811, 2.50250, .21656, .11295,
1578 + .08121, .18738, .24671 /
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 + .40805, .21814, 2.46918, .21648, .11412,
1581 + .08290, .18772, .24657,
1582 + .40904, .21812, 2.43566, .21628, .11513,
1583 + .08441, .18793, .24632,
1584 + .40993, .21806, 2.40371, .21604, .11603,
1585 + .08579, .18807, .24601,
1586 + .41072, .21799, 2.37355, .21577, .11684,
1587 + .08705, .18816, .24568,
1588 + .41143, .21788, 2.34240, .21540, .11754,
1589 + .08818, .18815, .24523 /
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 + .35490, .20929, 1.74707, .11463, .00000,
1592 + .00000, .07231, .14506,
1593 + .36182, .21242, 1.85276, .11724, .00000,
1594 + .00000, .07590, .14837,
1595 + .37148, .21653, 2.00327, .12112, -.01129,
1596 + .00000, .08121, .15317,
1597 + .37798, .21920, 2.07690, .12398, -.00893,
1598 + .00000, .08505, .15653,
1599 + .38440, .22169, 2.12979, .12697, -.00298,
1600 + .00000, .08903, .16000,
1601 + .38963, .22365, 2.16607, .12942, .00169,
1602 + .00000, .09233, .16282,
1603 + .39443, .22539, 2.19429, .13169, .00607,
1604 + .00000, .09538, .16538,
1605 + .39931, .22708, 2.21771, .13399, .01062,
1606 + .00000, .09848, .16795 /
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 + .40331, .22842, 2.23143, .13585, .01426,
1609 + .00000, .10103, .17002,
1610 + .40697, .22959, 2.24019, .13755, .01767,
1611 + .00000, .10338, .17188,
1612 + .40980, .23047, 2.24514, .13886, .02036,
1613 + .00000, .10517, .17329,
1614 + .41536, .23209, 2.24977, .14143, .02572,
1615 + .00000, .10879, .17604,
1616 + .41965, .23319, 2.24623, .14338, .02998,
1617 + -.00433, .11159, .17807,
1618 + .42405, .23423, 2.22100, .14530, .03445,
1619 + .00197, .11442, .18004,
1620 + .42823, .23511, 2.18989, .14698, .03873,
1621 + .00738, .11704, .18173,
1622 + .43166, .23572, 2.15787, .14827, .04230,
1623 + .01194, .11912, .18296 /
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 + .43481, .23618, 2.12272, .14935, .04563,
1626 + .01622, .12098, .18393,
1627 + .43719, .23645, 2.09135, .15005, .04816,
1628 + .01946, .12231, .18455,
1629 + .43975, .23662, 2.05113, .15071, .05098,
1630 + .02310, .12370, .18505,
1631 + .44180, .23667, 2.01454, .15112, .05328,
1632 + .02613, .12475, .18533,
1633 + .44350, .23664, 1.98035, .15139, .05523,
1634 + .02873, .12558, .18543,
1635 + .44535, .23643, 1.93531, .15150, .05745,
1636 + .03170, .12638, .18534,
1637 + .44687, .23614, 1.89262, .15147, .05933,
1638 + .03429, .12698, .18508,
1639 + .44811, .23581, 1.85272, .15134, .06097,
1640 + .03658, .12742, .18471 /
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 + .44909, .23534, 1.81185, .15102, .06238,
1643 + .03859, .12767, .18417,
1644 + .44990, .23482, 1.77228, .15063, .06365,
1645 + .04044, .12781, .18353,
1646 + .45051, .23428, 1.73509, .15018, .06474,
1647 + .04207, .12785, .18284,
1648 + .45091, .23370, 1.69984, .14967, .06564,
1649 + .04344, .12775, .18207,
1650 + .45124, .23307, 1.66515, .14911, .06648,
1651 + .04477, .12762, .18126,
1652 + .45139, .23239, 1.63077, .14844, .06717,
1653 + .04591, .12738, .18036,
1654 + .45148, .23173, 1.59893, .14779, .06779,
1655 + .04696, .12712, .17947,
1656 + .45140, .23102, 1.56862, .14710, .06827,
1657 + .04784, .12679, .17855 /
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 + .45130, .23032, 1.53878, .14639, .06873,
1660 + .04868, .12642, .17759,
1661 + .45107, .22956, 1.50943, .14563, .06910,
1662 + .04943, .12600, .17658,
1663 + .45079, .22882, 1.48186, .14488, .06942,
1664 + .05009, .12558, .17559,
1665 + .45049, .22809, 1.45614, .14413, .06968,
1666 + .05068, .12514, .17464,
1667 + .45005, .22732, 1.43017, .14334, .06988,
1668 + .05119, .12463, .17361 /
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 + .40948, .23594, 1.69917, .09659, .00000,
1671 + .00000, .06231, .13389,
1672 + .41697, .23872, 1.75120, .09847, .00000,
1673 + .00000, .06522, .13623,
1674 + .42700, .24221, 1.83187, .10115, -.01238,
1675 + .00000, .06932, .13940,
1676 + .43352, .24427, 1.85748, .10302, -.01020,
1677 + .00000, .07221, .14149,
1678 + .43976, .24609, 1.86678, .10493, -.00534,
1679 + .00000, .07511, .14356,
1680 + .44469, .24741, 1.86873, .10645, -.00157,
1681 + .00000, .07743, .14515,
1682 + .44909, .24851, 1.86642, .10781, .00191,
1683 + .00000, .07953, .14651,
1684 + .45343, .24952, 1.86000, .10912, .00547,
1685 + .00000, .08162, .14778 /
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 + .45690, .25019, 1.85040, .11014, .00828,
1688 + .00000, .08328, .14872,
1689 + .45999, .25073, 1.83851, .11102, .01089,
1690 + .00000, .08477, .14952,
1691 + .46230, .25110, 1.82807, .11167, .01292,
1692 + .00000, .08588, .15010,
1693 + .46667, .25162, 1.80306, .11292, .01693,
1694 + .00000, .08805, .15107,
1695 + .46980, .25174, 1.78009, .11375, .02005,
1696 + -.00467, .08965, .15165,
1697 + .47281, .25167, 1.73735, .11447, .02328,
1698 + -.00005, .09119, .15202,
1699 + .47543, .25138, 1.69138, .11498, .02631,
1700 + .00387, .09251, .15213,
1701 + .47740, .25093, 1.64854, .11525, .02880,
1702 + .00714, .09348, .15201 /
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 + .47902, .25031, 1.60473, .11535, .03107,
1705 + .01015, .09426, .15168,
1706 + .48006, .24968, 1.56795, .11531, .03278,
1707 + .01242, .09475, .15126,
1708 + .48101, .24878, 1.52310, .11509, .03464,
1709 + .01493, .09517, .15060,
1710 + .48160, .24788, 1.48373, .11480, .03613,
1711 + .01699, .09542, .14989,
1712 + .48193, .24697, 1.44802, .11444, .03738,
1713 + .01874, .09555, .14915,
1714 + .48203, .24569, 1.40271, .11386, .03876,
1715 + .02072, .09553, .14805,
1716 + .48186, .24441, 1.36092, .11321, .03991,
1717 + .02242, .09540, .14691,
1718 + .48153, .24314, 1.32265, .11255, .04089,
1719 + .02389, .09520, .14578 /
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 + .48089, .24177, 1.28460, .11178, .04171,
1722 + .02518, .09487, .14452,
1723 + .48014, .24038, 1.24834, .11096, .04242,
1724 + .02634, .09450, .14325,
1725 + .47928, .23901, 1.21478, .11015, .04302,
1726 + .02734, .09406, .14200,
1727 + .47829, .23765, 1.18359, .10932, .04348,
1728 + .02818, .09359, .14075,
1729 + .47723, .23628, 1.15320, .10848, .04391,
1730 + .02898, .09309, .13948,
1731 + .47600, .23486, 1.12362, .10758, .04423,
1732 + .02965, .09253, .13816,
1733 + .47481, .23350, 1.09641, .10672, .04453,
1734 + .03026, .09199, .13692,
1735 + .47350, .23217, 1.07093, .10585, .04473,
1736 + .03076, .09140, .13569 /
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 + .47217, .23083, 1.04597, .10499, .04492,
1739 + .03124, .09081, .13445,
1740 + .47072, .22946, 1.02175, .10410, .04504,
1741 + .03164, .09019, .13319,
1742 + .46931, .22814, .99917, .10324, .04513,
1743 + .03200, .08958, .13198,
1744 + .46790, .22688, .97826, .10242, .04520,
1745 + .03230, .08899, .13083,
1746 + .46640, .22556, .95736, .10155, .04522,
1747 + .03256, .08836, .12963 /
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 + .45679, .25655, 1.59119, .08197, .00000,
1750 + .00000, .05462, .12431,
1751 + .46437, .25873, 1.60834, .08328, .00000,
1752 + .00000, .05693, .12569,
1753 + .47406, .26120, 1.64372, .08508, -.01226,
1754 + .00000, .06006, .12736,
1755 + .48005, .26247, 1.64048, .08628, -.01027,
1756 + .00000, .06216, .12836,
1757 + .48557, .26341, 1.62478, .08745, -.00625,
1758 + .00000, .06421, .12927,
1759 + .48976, .26395, 1.60767, .08834, -.00316,
1760 + .00000, .06581, .12985,
1761 + .49337, .26426, 1.58895, .08907, -.00035,
1762 + .00000, .06722, .13027,
1763 + .49680, .26440, 1.56692, .08976, .00251,
1764 + .00000, .06857, .13058 /
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 + .49935, .26438, 1.54552, .09025, .00475,
1767 + .00000, .06961, .13071,
1768 + .50152, .26420, 1.52353, .09065, .00679,
1769 + .00000, .07051, .13072,
1770 + .50308, .26400, 1.50574, .09092, .00838,
1771 + .00000, .07118, .13069,
1772 + .50583, .26328, 1.46714, .09134, .01147,
1773 + .00000, .07240, .13044,
1774 + .50738, .26239, 1.43597, .09154, .01384,
1775 + -.00452, .07324, .13002,
1776 + .50862, .26116, 1.38742, .09160, .01625,
1777 + -.00102, .07398, .12935,
1778 + .50938, .25966, 1.33731, .09147, .01849,
1779 + .00193, .07451, .12847,
1780 + .50960, .25814, 1.29233, .09119, .02031,
1781 + .00437, .07482, .12751 /
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 + .50943, .25648, 1.24765, .09081, .02194,
1784 + .00659, .07496, .12641,
1785 + .50898, .25500, 1.21106, .09040, .02315,
1786 + .00825, .07500, .12539,
1787 + .50810, .25306, 1.16747, .08978, .02444,
1788 + .01005, .07488, .12406,
1789 + .50707, .25127, 1.12994, .08916, .02547,
1790 + .01153, .07469, .12281,
1791 + .50592, .24958, 1.09641, .08855, .02632,
1792 + .01277, .07445, .12160,
1793 + .50415, .24729, 1.05465, .08767, .02723,
1794 + .01415, .07404, .12001,
1795 + .50224, .24509, 1.01672, .08679, .02798,
1796 + .01533, .07357, .11844,
1797 + .50025, .24301, .98245, .08594, .02860,
1798 + .01634, .07306, .11692 /
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 + .49802, .24083, .94890, .08501, .02910,
1801 + .01720, .07248, .11535,
1802 + .49569, .23868, .91726, .08406, .02952,
1803 + .01798, .07188, .11380,
1804 + .49335, .23661, .88829, .08316, .02987,
1805 + .01864, .07125, .11231,
1806 + .49100, .23460, .86167, .08225, .03012,
1807 + .01918, .07064, .11087,
1808 + .48860, .23259, .83587, .08136, .03034,
1809 + .01969, .07001, .10943,
1810 + .48605, .23055, .81106, .08042, .03050,
1811 + .02012, .06933, .10800,
1812 + .48361, .22863, .78836, .07955, .03063,
1813 + .02049, .06868, .10665,
1814 + .48115, .22677, .76730, .07869, .03071,
1815 + .02079, .06805, .10533 /
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 + .47866, .22490, .74679, .07782, .03077,
1818 + .02108, .06741, .10402,
1819 + .47611, .22303, .72702, .07696, .03079,
1820 + .02132, .06675, .10272,
1821 + .47363, .22125, .70870, .07613, .03079,
1822 + .02152, .06610, .10148,
1823 + .47125, .21956, .69181, .07535, .03077,
1824 + .02169, .06549, .10031,
1825 + .46874, .21783, .67505, .07454, .03073,
1826 + .02183, .06486, .09910 /
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 + .50727, .27497, 1.42585, .06698, .00000,
1829 + .00000, .04671, .11246,
1830 + .51400, .27614, 1.41655, .06783, .00000,
1831 + .00000, .04832, .11274,
1832 + .52218, .27696, 1.41695, .06889, -.01136,
1833 + .00000, .05049, .11285,
1834 + .52683, .27702, 1.39346, .06955, -.00960,
1835 + .00000, .05185, .11275,
1836 + .53077, .27671, 1.36115, .07018, -.00639,
1837 + .00000, .05314, .11254,
1838 + .53351, .27615, 1.33176, .07059, -.00393,
1839 + .00000, .05411, .11223,
1840 + .53562, .27543, 1.30291, .07089, -.00172,
1841 + .00000, .05492, .11179,
1842 + .53739, .27448, 1.27173, .07114, .00048,
1843 + .00000, .05566, .11122 /
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 + .53849, .27347, 1.24378, .07124, .00220,
1846 + .00000, .05619, .11065,
1847 + .53922, .27237, 1.21651, .07129, .00376,
1848 + .00000, .05662, .11004,
1849 + .53961, .27145, 1.19508, .07128, .00495,
1850 + .00000, .05691, .10951,
1851 + .53982, .26925, 1.15026, .07116, .00725,
1852 + .00000, .05739, .10828,
1853 + .53922, .26705, 1.11578, .07092, .00899,
1854 + -.00402, .05765, .10713,
1855 + .53798, .26446, 1.06696, .07057, .01075,
1856 + -.00146, .05778, .10570,
1857 + .53613, .26160, 1.01798, .07004, .01234,
1858 + .00068, .05775, .10408,
1859 + .53403, .25886, .97505, .06946, .01360,
1860 + .00241, .05761, .10254 /
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 + .53151, .25600, .93328, .06880, .01474,
1863 + .00399, .05735, .10092,
1864 + .52915, .25354, .89974, .06818, .01555,
1865 + .00515, .05704, .09954,
1866 + .52595, .25049, .86044, .06737, .01641,
1867 + .00640, .05660, .09781,
1868 + .52290, .24774, .82709, .06662, .01708,
1869 + .00741, .05615, .09625,
1870 + .51994, .24518, .79767, .06589, .01763,
1871 + .00826, .05570, .09481,
1872 + .51587, .24189, .76161, .06492, .01820,
1873 + .00918, .05504, .09294,
1874 + .51184, .23876, .72929, .06397, .01866,
1875 + .00996, .05439, .09118,
1876 + .50795, .23582, .70041, .06305, .01902,
1877 + .01061, .05375, .08952 /
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 + .50382, .23283, .67250, .06211, .01930,
1880 + .01116, .05306, .08784,
1881 + .49969, .22989, .64644, .06117, .01953,
1882 + .01166, .05237, .08623,
1883 + .49572, .22712, .62278, .06028, .01971,
1884 + .01207, .05170, .08470,
1885 + .49181, .22448, .60126, .05942, .01982,
1886 + .01240, .05104, .08323,
1887 + .48787, .22185, .58055, .05857, .01992,
1888 + .01270, .05038, .08179,
1889 + .48384, .21925, .56081, .05773, .01998,
1890 + .01295, .04969, .08037,
1891 + .48003, .21680, .54285, .05692, .02001,
1892 + .01318, .04905, .07903,
1893 + .47632, .21445, .52633, .05614, .02002,
1894 + .01335, .04844, .07778 /
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 + .47261, .21210, .51033, .05536, .02001,
1897 + .01350, .04782, .07653,
1898 + .46886, .20978, .49502, .05458, .01997,
1899 + .01362, .04720, .07530,
1900 + .46526, .20757, .48091, .05385, .01993,
1901 + .01373, .04660, .07415,
1902 + .46182, .20549, .46796, .05316, .01988,
1903 + .01381, .04604, .07307,
1904 + .45828, .20339, .45521, .05246, .01981,
1905 + .01388, .04546, .07195 /
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 + .54947, .28715, 1.25561, .05491, .00000,
1908 + .00000, .03992, .10043,
1909 + .55480, .28698, 1.23146, .05544, .00000,
1910 + .00000, .04106, .09981,
1911 + .56048, .28597, 1.21177, .05605, -.01019,
1912 + .00000, .04243, .09874,
1913 + .56315, .28470, 1.17816, .05638, -.00865,
1914 + .00000, .04329, .09785,
1915 + .56504, .28300, 1.13831, .05664, -.00605,
1916 + .00000, .04408, .09685,
1917 + .56591, .28127, 1.10385, .05675, -.00408,
1918 + .00000, .04462, .09590,
1919 + .56622, .27947, 1.07112, .05680, -.00232,
1920 + .00000, .04503, .09492,
1921 + .56601, .27739, 1.03678, .05677, -.00059,
1922 + .00000, .04538, .09384 /
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 + .56541, .27543, 1.00698, .05665, .00076,
1925 + .00000, .04558, .09285,
1926 + .56447, .27344, .97857, .05651, .00197,
1927 + .00000, .04571, .09184,
1928 + .56354, .27184, .95656, .05638, .00288,
1929 + .00000, .04579, .09100,
1930 + .56096, .26818, .91135, .05599, .00463,
1931 + .00000, .04582, .08924,
1932 + .55798, .26489, .87725, .05557, .00595,
1933 + -.00347, .04574, .08765,
1934 + .55415, .26104, .83155, .05500, .00725,
1935 + -.00156, .04552, .08584,
1936 + .54963, .25694, .78645, .05431, .00842,
1937 + .00003, .04520, .08389,
1938 + .54514, .25316, .74756, .05362, .00933,
1939 + .00131, .04481, .08211 /
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 + .54033, .24927, .71026, .05286, .01013,
1942 + .00245, .04433, .08031,
1943 + .53606, .24603, .68069, .05219, .01070,
1944 + .00328, .04389, .07880,
1945 + .53061, .24205, .64641, .05136, .01130,
1946 + .00418, .04330, .07694,
1947 + .52564, .23853, .61765, .05058, .01176,
1948 + .00489, .04276, .07531,
1949 + .52094, .23531, .59254, .04986, .01211,
1950 + .00548, .04222, .07382,
1951 + .51476, .23116, .56210, .04890, .01249,
1952 + .00612, .04151, .07194,
1953 + .50884, .22729, .53504, .04799, .01277,
1954 + .00665, .04081, .07020,
1955 + .50322, .22369, .51106, .04711, .01300,
1956 + .00710, .04016, .06859 /
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 + .49743, .22008, .48814, .04623, .01316,
1959 + .00746, .03946, .06698,
1960 + .49171, .21658, .46688, .04538, .01329,
1961 + .00778, .03879, .06542,
1962 + .48625, .21329, .44773, .04458, .01338,
1963 + .00806, .03813, .06398,
1964 + .48102, .21020, .43046, .04382, .01343,
1965 + .00827, .03751, .06263,
1966 + .47578, .20714, .41394, .04307, .01346,
1967 + .00846, .03688, .06130,
1968 + .47054, .20412, .39832, .04230, .01346,
1969 + .00860, .03626, .06001,
1970 + .46562, .20129, .38415, .04158, .01347,
1971 + .00874, .03569, .05881,
1972 + .46086, .19861, .37121, .04091, .01344,
1973 + .00884, .03513, .05768 /
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 + .45612, .19593, .35872, .04023, .01341,
1976 + .00893, .03457, .05657,
1977 + .45138, .19332, .34684, .03957, .01335,
1978 + .00899, .03402, .05548,
1979 + .44688, .19086, .33595, .03895, .01330,
1980 + .00905, .03350, .05445,
1981 + .44262, .18855, .32598, .03837, .01324,
1982 + .00908, .03301, .05350,
1983 + .43825, .18621, .31622, .03779, .01316,
1984 + .00911, .03250, .05253 /
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 + .58396, .29401, 1.09519, .04531, .00000,
1987 + .00000, .03395, .08802,
1988 + .58715, .29251, 1.06312, .04565, .00000,
1989 + .00000, .03463, .08679,
1990 + .58962, .28956, 1.03210, .04596, -.00901,
1991 + .00000, .03550, .08489,
1992 + .58992, .28697, .99396, .04611, -.00767,
1993 + .00000, .03596, .08346,
1994 + .58928, .28395, .95154, .04616, -.00554,
1995 + .00000, .03636, .08197,
1996 + .58801, .28111, .91573, .04612, -.00394,
1997 + .00000, .03660, .08065,
1998 + .58626, .27826, .88229, .04602, -.00251,
1999 + .00000, .03675, .07936,
2000 + .58390, .27514, .84784, .04585, -.00114,
2001 + .00000, .03683, .07797 /
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 + .58140, .27233, .81851, .04566, -.00007,
2004 + .00000, .03683, .07670,
2005 + .57870, .26952, .79091, .04541, .00089,
2006 + .00000, .03677, .07550,
2007 + .57644, .26724, .76971, .04517, .00161,
2008 + .00000, .03669, .07458,
2009 + .57096, .26235, .72669, .04465, .00296,
2010 + .00000, .03648, .07255,
2011 + .56561, .25802, .69476, .04412, .00397,
2012 + -.00296, .03621, .07081,
2013 + .55919, .25313, .65337, .04348, .00495,
2014 + -.00151, .03582, .06888,
2015 + .55210, .24800, .61306, .04274, .00583,
2016 + -.00030, .03533, .06686,
2017 + .54538, .24333, .57873, .04201, .00650,
2018 + .00065, .03483, .06503 /
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 + .53835, .23864, .54616, .04125, .00708,
2021 + .00150, .03430, .06321,
2022 + .53232, .23475, .52055, .04060, .00750,
2023 + .00212, .03381, .06172,
2024 + .52485, .23003, .49121, .03979, .00792,
2025 + .00277, .03318, .05993,
2026 + .51816, .22589, .46679, .03904, .00823,
2027 + .00329, .03262, .05837,
2028 + .51195, .22212, .44564, .03835, .00848,
2029 + .00371, .03210, .05696,
2030 + .50391, .21738, .42020, .03747, .00873,
2031 + .00416, .03140, .05522,
2032 + .49630, .21299, .39781, .03664, .00892,
2033 + .00454, .03072, .05361,
2034 + .48919, .20893, .37811, .03588, .00906,
2035 + .00484, .03010, .05211 /
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 + .48196, .20488, .35943, .03509, .00914,
2038 + .00509, .02946, .05066,
2039 + .47491, .20098, .34222, .03433, .00922,
2040 + .00531, .02883, .04929,
2041 + .46824, .19734, .32683, .03361, .00926,
2042 + .00549, .02824, .04803,
2043 + .46194, .19394, .31300, .03293, .00928,
2044 + .00563, .02770, .04684,
2045 + .45569, .19059, .29984, .03227, .00928,
2046 + .00575, .02715, .04567,
2047 + .44947, .18732, .28750, .03161, .00927,
2048 + .00585, .02660, .04455,
2049 + .44364, .18428, .27635, .03099, .00924,
2050 + .00592, .02610, .04352,
2051 + .43809, .18140, .26622, .03041, .00921,
2052 + .00599, .02561, .04255 /
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 + .43258, .17854, .25646, .02984, .00917,
2055 + .00603, .02514, .04160,
2056 + .42710, .17574, .24724, .02929, .00912,
2057 + .00607, .02467, .04068,
2058 + .42191, .17312, .23882, .02876, .00906,
2059 + .00609, .02423, .03982,
2060 + .41704, .17066, .23115, .02827, .00901,
2061 + .00611, .02382, .03902,
2062 + .41210, .16819, .22367, .02777, .00894,
2063 + .00612, .02340, .03823 /
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 + .61093, .29640, .94968, .03764, .00000,
2066 + .00000, .02848, .07554,
2067 + .61159, .29352, .91355, .03782, .00000,
2068 + .00000, .02896, .07396,
2069 + .61036, .28856, .87649, .03797, -.00792,
2070 + .00000, .02942, .07158,
2071 + .60803, .28464, .83697, .03796, -.00674,
2072 + .00000, .02964, .06990,
2073 + .60466, .28035, .79455, .03790, -.00498,
2074 + .00000, .02980, .06818,
2075 + .60106, .27648, .75933, .03776, -.00366,
2076 + .00000, .02984, .06670,
2077 + .59715, .27269, .72686, .03754, -.00251,
2078 + .00000, .02984, .06530,
2079 + .59259, .26859, .69385, .03726, -.00139,
2080 + .00000, .02975, .06380 /
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 + .58824, .26496, .66608, .03699, -.00053,
2083 + .00000, .02964, .06250,
2084 + .58375, .26144, .64022, .03671, .00023,
2085 + .00000, .02949, .06122,
2086 + .58005, .25864, .62051, .03647, .00080,
2087 + .00000, .02934, .06024,
2088 + .57180, .25264, .58081, .03587, .00186,
2089 + .00000, .02899, .05819,
2090 + .56412, .24749, .55168, .03533, .00264,
2091 + -.00249, .02864, .05644,
2092 + .55527, .24172, .51495, .03464, .00340,
2093 + -.00137, .02818, .05456,
2094 + .54577, .23577, .47957, .03388, .00406,
2095 + -.00045, .02764, .05262,
2096 + .53697, .23039, .44974, .03318, .00456,
2097 + .00027, .02712, .05091 /
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 + .52796, .22504, .42166, .03245, .00499,
2100 + .00091, .02657, .04923,
2101 + .52039, .22066, .39981, .03185, .00529,
2102 + .00136, .02610, .04784,
2103 + .51113, .21541, .37499, .03108, .00559,
2104 + .00185, .02549, .04621,
2105 + .50292, .21083, .35451, .03038, .00582,
2106 + .00223, .02495, .04480,
2107 + .49540, .20671, .33686, .02977, .00599,
2108 + .00253, .02446, .04353,
2109 + .48579, .20154, .31583, .02896, .00616,
2110 + .00286, .02380, .04200,
2111 + .47682, .19676, .29744, .02821, .00627,
2112 + .00312, .02320, .04059,
2113 + .46851, .19238, .28138, .02750, .00637,
2114 + .00334, .02264, .03932 /
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 + .46013, .18808, .26623, .02681, .00642,
2117 + .00351, .02207, .03806,
2118 + .45203, .18396, .25238, .02615, .00645,
2119 + .00366, .02153, .03688,
2120 + .44443, .18011, .24006, .02554, .00648,
2121 + .00378, .02102, .03580,
2122 + .43728, .17654, .22911, .02495, .00647,
2123 + .00387, .02054, .03479,
2124 + .43022, .17303, .21870, .02438, .00646,
2125 + .00395, .02007, .03382,
2126 + .42326, .16963, .20896, .02383, .00643,
2127 + .00401, .01961, .03287,
2128 + .41676, .16648, .20019, .02332, .00641,
2129 + .00406, .01920, .03199,
2130 + .41062, .16352, .19230, .02281, .00638,
2131 + .00410, .01880, .03120 /
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 + .40453, .16059, .18475, .02232, .00633,
2134 + .00412, .01839, .03043,
2135 + .39853, .15773, .17763, .02186, .00629,
2136 + .00415, .01800, .02967,
2137 + .39287, .15506, .17114, .02142, .00624,
2138 + .00416, .01763, .02897,
2139 + .38757, .15257, .16523, .02103, .00619,
2140 + .00416, .01730, .02831,
2141 + .38220, .15008, .15951, .02062, .00614,
2142 + .00416, .01696, .02765 /
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 + .63072, .29480, .81924, .03148, .00000,
2145 + .00000, .02363, .06346,
2146 + .62853, .29051, .78155, .03157, .00000,
2147 + .00000, .02394, .06169,
2148 + .62323, .28372, .74160, .03155, -.00692,
2149 + .00000, .02417, .05921,
2150 + .61808, .27857, .70246, .03145, -.00589,
2151 + .00000, .02425, .05745,
2152 + .61193, .27307, .66155, .03122, -.00442,
2153 + .00000, .02430, .05571,
2154 + .60598, .26827, .62798, .03104, -.00333,
2155 + .00000, .02424, .05418,
2156 + .59988, .26365, .59744, .03081, -.00238,
2157 + .00000, .02413, .05274,
2158 + .59306, .25874, .56662, .03052, -.00147,
2159 + .00000, .02397, .05124 /
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 + .58687, .25444, .54098, .03017, -.00078,
2162 + .00000, .02381, .04998,
2163 + .58066, .25030, .51732, .02982, -.00017,
2164 + .00000, .02359, .04881,
2165 + .57565, .24703, .49943, .02956, .00028,
2166 + .00000, .02339, .04789,
2167 + .56471, .24014, .46365, .02893, .00112,
2168 + .00000, .02300, .04596,
2169 + .55498, .23426, .43758, .02836, .00174,
2170 + -.00208, .02259, .04439,
2171 + .54388, .22781, .40544, .02771, .00232,
2172 + -.00122, .02212, .04264,
2173 + .53224, .22122, .37477, .02698, .00282,
2174 + -.00051, .02158, .04090,
2175 + .52162, .21536, .34917, .02630, .00321,
2176 + .00004, .02107, .03935 /
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 + .51089, .20958, .32534, .02564, .00352,
2179 + .00052, .02055, .03782,
2180 + .50199, .20484, .30693, .02505, .00375,
2181 + .00088, .02009, .03664,
2182 + .49121, .19920, .28613, .02436, .00397,
2183 + .00123, .01955, .03523,
2184 + .48176, .19436, .26913, .02374, .00413,
2185 + .00151, .01906, .03402,
2186 + .47319, .19001, .25458, .02316, .00424,
2187 + .00173, .01860, .03294,
2188 + .46232, .18460, .23734, .02246, .00436,
2189 + .00197, .01804, .03160,
2190 + .45225, .17964, .22237, .02181, .00444,
2191 + .00216, .01751, .03040,
2192 + .44298, .17510, .20938, .02119, .00450,
2193 + .00232, .01703, .02933 /
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 + .43373, .17066, .19730, .02057, .00453,
2196 + .00243, .01654, .02828,
2197 + .42483, .16643, .18625, .02000, .00455,
2198 + .00254, .01607, .02732,
2199 + .41652, .16252, .17645, .01949, .00455,
2200 + .00262, .01565, .02642,
2201 + .40877, .15891, .16779, .01899, .00454,
2202 + .00268, .01525, .02560,
2203 + .40113, .15539, .15962, .01851, .00452,
2204 + .00273, .01485, .02479,
2205 + .39370, .15194, .15201, .01803, .00450,
2206 + .00277, .01448, .02404,
2207 + .38678, .14875, .14523, .01758, .00447,
2208 + .00280, .01412, .02334,
2209 + .38024, .14579, .13910, .01718, .00444,
2210 + .00282, .01379, .02269 /
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 + .37378, .14289, .13326, .01678, .00441,
2213 + .00284, .01347, .02204,
2214 + .36745, .14006, .12778, .01639, .00436,
2215 + .00285, .01315, .02144,
2216 + .36151, .13742, .12280, .01603, .00432,
2217 + .00285, .01285, .02089,
2218 + .35596, .13496, .11831, .01569, .00428,
2219 + .00285, .01257, .02037,
2220 + .35038, .13250, .11397, .01535, .00424,
2221 + .00285, .01231, .01986 /
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 + .64379, .28945, .70229, .02624, .00000,
2224 + .00000, .01952, .05231,
2225 + .63838, .28400, .66470, .02630, .00000,
2226 + .00000, .01966, .05054,
2227 + .62876, .27557, .62403, .02623, -.00601,
2228 + .00000, .01971, .04806,
2229 + .62069, .26937, .58648, .02613, -.00510,
2230 + .00000, .01970, .04631,
2231 + .61164, .26293, .54799, .02593, -.00388,
2232 + .00000, .01959, .04465,
2233 + .60338, .25733, .51683, .02566, -.00298,
2234 + .00000, .01947, .04321,
2235 + .59517, .25201, .48864, .02539, -.00219,
2236 + .00000, .01931, .04187,
2237 + .58621, .24644, .46048, .02506, -.00145,
2238 + .00000, .01911, .04049 /
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 + .57827, .24157, .43726, .02475, -.00089,
2241 + .00000, .01890, .03934,
2242 + .57047, .23693, .41601, .02440, -.00040,
2243 + .00000, .01867, .03827,
2244 + .56426, .23333, .40000, .02410, -.00003,
2245 + .00000, .01849, .03744,
2246 + .55084, .22578, .36835, .02352, .00064,
2247 + .00000, .01805, .03567,
2248 + .53922, .21944, .34537, .02295, .00112,
2249 + -.00172, .01766, .03428,
2250 + .52624, .21248, .31767, .02232, .00157,
2251 + -.00105, .01720, .03275,
2252 + .51276, .20543, .29146, .02164, .00196,
2253 + -.00051, .01670, .03126,
2254 + .50060, .19923, .26982, .02100, .00226,
2255 + -.00008, .01622, .02995 /
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 + .48845, .19316, .24981, .02037, .00250,
2258 + .00029, .01575, .02866,
2259 + .47845, .18826, .23447, .01986, .00266,
2260 + .00055, .01534, .02763,
2261 + .46649, .18244, .21732, .01921, .00281,
2262 + .00081, .01487, .02642,
2263 + .45607, .17742, .20336, .01865, .00293,
2264 + .00102, .01444, .02542,
2265 + .44666, .17296, .19144, .01816, .00301,
2266 + .00118, .01405, .02455,
2267 + .43485, .16745, .17752, .01753, .00310,
2268 + .00136, .01357, .02345,
2269 + .42397, .16244, .16552, .01696, .00315,
2270 + .00150, .01312, .02245,
2271 + .41401, .15790, .15512, .01643, .00319,
2272 + .00161, .01272, .02157 /
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 + .40418, .15341, .14552, .01590, .00321,
2275 + .00170, .01231, .02075,
2276 + .39477, .14918, .13681, .01541, .00321,
2277 + .00177, .01193, .01996,
2278 + .38604, .14528, .12915, .01498, .00321,
2279 + .00182, .01158, .01922,
2280 + .37791, .14171, .12240, .01455, .00320,
2281 + .00187, .01125, .01855,
2282 + .36995, .13823, .11604, .01414, .00318,
2283 + .00190, .01093, .01791,
2284 + .36220, .13486, .11018, .01373, .00315,
2285 + .00192, .01062, .01733,
2286 + .35503, .13174, .10494, .01337, .00313,
2287 + .00195, .01032, .01679,
2288 + .34829, .12885, .10027, .01303, .00310,
2289 + .00195, .01005, .01629 /
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 + .34165, .12602, .09580, .01270, .00307,
2292 + .00196, .00980, .01579,
2293 + .33518, .12328, .09163, .01237, .00304,
2294 + .00197, .00954, .01533,
2295 + .32913, .12071, .08788, .01206, .00301,
2296 + .00197, .00931, .01489,
2297 + .32348, .11833, .08448, .01179, .00297,
2298 + .00196, .00910, .01448,
2299 + .31782, .11597, .08121, .01153, .00294,
2300 + .00196, .00889, .01408 /
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 + .64887, .28228, .59755, .02292, .00000,
2303 + .00000, .01532, .04155,
2304 + .64053, .27554, .56094, .02284, .00000,
2305 + .00000, .01547, .03996,
2306 + .62680, .26550, .52093, .02252, -.00519,
2307 + .00000, .01554, .03779,
2308 + .61599, .25835, .48558, .02229, -.00439,
2309 + .00000, .01550, .03628,
2310 + .60444, .25088, .45008, .02190, -.00337,
2311 + .00000, .01540, .03487,
2312 + .59399, .24463, .42155, .02162, -.00261,
2313 + .00000, .01528, .03362,
2314 + .58387, .23869, .39602, .02128, -.00197,
2315 + .00000, .01513, .03246,
2316 + .57305, .23251, .37076, .02089, -.00136,
2317 + .00000, .01493, .03128 /
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 + .56344, .22731, .35016, .02058, -.00090,
2320 + .00000, .01472, .03024,
2321 + .55422, .22231, .33139, .02022, -.00050,
2322 + .00000, .01451, .02930,
2323 + .54697, .21838, .31738, .01991, -.00021,
2324 + .00000, .01434, .02861,
2325 + .53147, .21034, .28980, .01927, .00032,
2326 + .00000, .01397, .02713,
2327 + .51828, .20360, .26993, .01873, .00071,
2328 + -.00141, .01360, .02596,
2329 + .50369, .19635, .24637, .01810, .00106,
2330 + -.00088, .01319, .02471,
2331 + .48864, .18907, .22435, .01748, .00136,
2332 + -.00046, .01275, .02342,
2333 + .47524, .18268, .20629, .01691, .00158,
2334 + -.00014, .01237, .02232 /
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 + .46203, .17645, .18977, .01631, .00176,
2337 + .00014, .01197, .02128,
2338 + .45124, .17145, .17718, .01582, .00188,
2339 + .00034, .01160, .02047,
2340 + .43837, .16554, .16319, .01524, .00200,
2341 + .00054, .01119, .01951,
2342 + .42726, .16052, .15190, .01476, .00208,
2343 + .00069, .01084, .01869,
2344 + .41726, .15606, .14239, .01432, .00214,
2345 + .00082, .01052, .01795,
2346 + .40486, .15054, .13128, .01377, .00220,
2347 + .00095, .01012, .01708,
2348 + .39348, .14555, .12181, .01326, .00223,
2349 + .00104, .00976, .01630,
2350 + .38310, .14105, .11367, .01279, .00225,
2351 + .00112, .00941, .01562 /
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 + .37288, .13670, .10615, .01235, .00227,
2354 + .00118, .00909, .01497,
2355 + .36318, .13256, .09939, .01192, .00227,
2356 + .00123, .00878, .01435,
2357 + .35425, .12878, .09347, .01152, .00226,
2358 + .00127, .00849, .01379,
2359 + .34596, .12530, .08828, .01117, .00225,
2360 + .00130, .00822, .01329,
2361 + .33786, .12192, .08344, .01082, .00224,
2362 + .00133, .00795, .01281,
2363 + .33001, .11868, .07898, .01049, .00221,
2364 + .00134, .00772, .01233,
2365 + .32275, .11570, .07500, .01019, .00219,
2366 + .00135, .00750, .01191,
2367 + .31596, .11293, .07148, .00990, .00217,
2368 + .00136, .00728, .01153 /
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 + .30931, .11023, .06815, .00961, .00214,
2371 + .00136, .00706, .01115,
2372 + .30282, .10761, .06503, .00936, .00212,
2373 + .00136, .00686, .01080,
2374 + .29678, .10519, .06221, .00912, .00209,
2375 + .00136, .00669, .01045,
2376 + .29117, .10294, .05968, .00891, .00206,
2377 + .00136, .00652, .01015,
2378 + .28559, .10069, .05726, .00867, .00204,
2379 + .00135, .00635, .00985 /
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 + .64850, .27148, .50191, .01924, .00000,
2382 + .00000, .01232, .03269,
2383 + .63699, .26377, .46732, .01917, .00000,
2384 + .00000, .01240, .03125,
2385 + .61903, .25258, .42921, .01886, -.00443,
2386 + .00000, .01240, .02935,
2387 + .60564, .24462, .39682, .01848, -.00373,
2388 + .00000, .01231, .02813,
2389 + .59137, .23665, .36474, .01821, -.00288,
2390 + .00000, .01220, .02680,
2391 + .57895, .22986, .33922, .01787, -.00226,
2392 + .00000, .01207, .02576,
2393 + .56702, .22354, .31661, .01754, -.00173,
2394 + .00000, .01190, .02479,
2395 + .55442, .21700, .29444, .01718, -.00124,
2396 + .00000, .01168, .02378 /
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 + .54357, .21138, .27643, .01678, -.00086,
2399 + .00000, .01151, .02298,
2400 + .53310, .20611, .26023, .01644, -.00054,
2401 + .00000, .01130, .02221,
2402 + .52489, .20206, .24814, .01617, -.00031,
2403 + .00000, .01114, .02161,
2404 + .50764, .19370, .22474, .01558, .00011,
2405 + .00000, .01078, .02037,
2406 + .49305, .18689, .20784, .01511, .00041,
2407 + -.00114, .01047, .01937,
2408 + .47710, .17948, .18820, .01454, .00069,
2409 + -.00074, .01012, .01833,
2410 + .46094, .17209, .16997, .01396, .00092,
2411 + -.00041, .00974, .01733,
2412 + .44664, .16568, .15521, .01343, .00109,
2413 + -.00016, .00938, .01645 /
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 + .43259, .15948, .14181, .01291, .00122,
2416 + .00004, .00901, .01562,
2417 + .42124, .15447, .13170, .01249, .00132,
2418 + .00020, .00875, .01494,
2419 + .40779, .14866, .12058, .01196, .00140,
2420 + .00034, .00841, .01417,
2421 + .39621, .14371, .11165, .01152, .00147,
2422 + .00046, .00812, .01353,
2423 + .38586, .13933, .10415, .01114, .00150,
2424 + .00055, .00783, .01302,
2425 + .37305, .13397, .09547, .01068, .00154,
2426 + .00064, .00751, .01232,
2427 + .36141, .12913, .08811, .01025, .00157,
2428 + .00071, .00721, .01172,
2429 + .35086, .12476, .08181, .00987, .00158,
2430 + .00077, .00693, .01121 /
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 + .34056, .12056, .07608, .00949, .00159,
2433 + .00082, .00667, .01067,
2434 + .33078, .11661, .07095, .00912, .00159,
2435 + .00085, .00641, .01020,
2436 + .32180, .11301, .06648, .00881, .00158,
2437 + .00088, .00618, .00977,
2438 + .31351, .10971, .06258, .00851, .00157,
2439 + .00090, .00598, .00937,
2440 + .30545, .10650, .05893, .00823, .00156,
2441 + .00092, .00578, .00900,
2442 + .29766, .10343, .05563, .00796, .00154,
2443 + .00093, .00558, .00865,
2444 + .29049, .10061, .05269, .00770, .00152,
2445 + .00093, .00540, .00834,
2446 + .28381, .09800, .05010, .00748, .00150,
2447 + .00093, .00524, .00804 /
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 + .27727, .09546, .04762, .00726, .00149,
2450 + .00094, .00508, .00776,
2451 + .27094, .09302, .04534, .00704, .00147,
2452 + .00094, .00494, .00750,
2453 + .26504, .09075, .04329, .00683, .00145,
2454 + .00094, .00479, .00727,
2455 + .25958, .08865, .04145, .00664, .00143,
2456 + .00094, .00465, .00705,
2457 + .25413, .08658, .03969, .00648, .00140,
2458 + .00092, .00453, .00683 /
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 + .64145, .25905, .41499, .01647, .00000,
2461 + .00000, .00959, .02489,
2462 + .62704, .25049, .38305, .01626, .00000,
2463 + .00000, .00965, .02379,
2464 + .60527, .23827, .34777, .01585, -.00375,
2465 + .00000, .00965, .02223,
2466 + .58936, .22980, .31865, .01559, -.00315,
2467 + .00000, .00957, .02117,
2468 + .57284, .22131, .29032, .01523, -.00244,
2469 + .00000, .00946, .02011,
2470 + .55875, .21411, .26799, .01484, -.00192,
2471 + .00000, .00935, .01927,
2472 + .54531, .20747, .24837, .01449, -.00149,
2473 + .00000, .00921, .01848,
2474 + .53118, .20071, .22927, .01413, -.00109,
2475 + .00000, .00903, .01767 /
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 + .51910, .19497, .21398, .01379, -.00079,
2478 + .00000, .00884, .01702,
2479 + .50762, .18959, .20029, .01344, -.00053,
2480 + .00000, .00867, .01641,
2481 + .49868, .18546, .19017, .01317, -.00035,
2482 + .00000, .00855, .01592,
2483 + .47999, .17698, .17060, .01265, -.00001,
2484 + .00000, .00824, .01494,
2485 + .46447, .17005, .15664, .01217, .00022,
2486 + -.00092, .00796, .01416,
2487 + .44763, .16267, .14062, .01162, .00044,
2488 + -.00060, .00763, .01338,
2489 + .43065, .15534, .12594, .01107, .00062,
2490 + -.00035, .00731, .01260,
2491 + .41579, .14898, .11411, .01060, .00074,
2492 + -.00017, .00703, .01192 /
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 + .40130, .14284, .10351, .01012, .00084,
2495 + -.00001, .00677, .01124,
2496 + .38955, .13801, .09558, .00977, .00091,
2497 + .00011, .00652, .01074,
2498 + .37577, .13234, .08688, .00935, .00098,
2499 + .00022, .00622, .01017,
2500 + .36398, .12754, .07998, .00898, .00102,
2501 + .00030, .00598, .00969,
2502 + .35350, .12335, .07423, .00867, .00105,
2503 + .00037, .00578, .00924,
2504 + .34065, .11820, .06763, .00825, .00108,
2505 + .00044, .00551, .00871,
2506 + .32899, .11359, .06208, .00788, .00110,
2507 + .00049, .00527, .00826,
2508 + .31844, .10948, .05739, .00755, .00111,
2509 + .00053, .00505, .00784 /
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 + .30824, .10546, .05309, .00722, .00111,
2512 + .00056, .00485, .00749,
2513 + .29857, .10173, .04929, .00694, .00110,
2514 + .00059, .00465, .00714,
2515 + .28968, .09835, .04602, .00669, .00110,
2516 + .00060, .00447, .00680,
2517 + .28156, .09525, .04318, .00645, .00109,
2518 + .00062, .00431, .00651,
2519 + .27368, .09225, .04053, .00620, .00108,
2520 + .00063, .00415, .00624,
2521 + .26607, .08939, .03813, .00601, .00107,
2522 + .00064, .00401, .00599,
2523 + .25910, .08678, .03602, .00582, .00106,
2524 + .00064, .00387, .00575,
2525 + .25264, .08438, .03416, .00562, .00104,
2526 + .00065, .00374, .00554 /
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 + .24635, .08203, .03241, .00542, .00103,
2529 + .00065, .00361, .00533,
2530 + .24025, .07977, .03080, .00524, .00101,
2531 + .00064, .00350, .00514,
2532 + .23459, .07768, .02934, .00508, .00099,
2533 + .00064, .00339, .00498,
2534 + .22934, .07575, .02807, .00492, .00098,
2535 + .00064, .00329, .00482,
2536 + .22414, .07386, .02683, .00478, .00096,
2537 + .00063, .00319, .00466 /
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 + .62876, .24476, .33557, .01389, .00000,
2540 + .00000, .00738, .01855,
2541 + .61160, .23555, .30687, .01365, .00000,
2542 + .00000, .00741, .01771,
2543 + .58621, .22268, .27519, .01329, -.00313,
2544 + .00000, .00742, .01646,
2545 + .56833, .21373, .24972, .01289, -.00261,
2546 + .00000, .00740, .01562,
2547 + .54987, .20491, .22531, .01252, -.00203,
2548 + .00000, .00728, .01485,
2549 + .53417, .19759, .20632, .01216, -.00161,
2550 + .00000, .00713, .01420,
2551 + .51945, .19081, .18978, .01183, -.00126,
2552 + .00000, .00700, .01359,
2553 + .50419, .18389, .17381, .01147, -.00094,
2554 + .00000, .00687, .01295 /
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 + .49120, .17810, .16110, .01116, -.00069,
2557 + .00000, .00674, .01240,
2558 + .47892, .17270, .14983, .01085, -.00049,
2559 + .00000, .00660, .01192,
2560 + .46941, .16857, .14158, .01060, -.00035,
2561 + .00000, .00647, .01155,
2562 + .44977, .16007, .12574, .01006, -.00008,
2563 + .00000, .00624, .01080,
2564 + .43357, .15324, .11451, .00963, .00010,
2565 + -.00073, .00598, .01024,
2566 + .41604, .14602, .10183, .00920, .00026,
2567 + -.00049, .00571, .00961,
2568 + .39860, .13886, .09028, .00873, .00040,
2569 + -.00030, .00547, .00898,
2570 + .38343, .13272, .08115, .00830, .00049,
2571 + -.00016, .00523, .00845 /
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 + .36868, .12685, .07298, .00791, .00058,
2574 + -.00003, .00497, .00797,
2575 + .35682, .12218, .06694, .00761, .00063,
2576 + .00005, .00479, .00757,
2577 + .34295, .11678, .06039, .00725, .00067,
2578 + .00013, .00456, .00714,
2579 + .33125, .11223, .05524, .00692, .00070,
2580 + .00019, .00437, .00678,
2581 + .32094, .10820, .05097, .00662, .00073,
2582 + .00025, .00423, .00647,
2583 + .30812, .10336, .04613, .00632, .00074,
2584 + .00029, .00400, .00607,
2585 + .29661, .09902, .04209, .00603, .00076,
2586 + .00033, .00381, .00573,
2587 + .28631, .09515, .03869, .00576, .00077,
2588 + .00037, .00365, .00544 /
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 + .27632, .09143, .03561, .00550, .00077,
2591 + .00039, .00349, .00516,
2592 + .26693, .08795, .03291, .00525, .00076,
2593 + .00040, .00334, .00491,
2594 + .25836, .08479, .03059, .00503, .00076,
2595 + .00042, .00320, .00469,
2596 + .25053, .08194, .02860, .00484, .00075,
2597 + .00042, .00307, .00449,
2598 + .24295, .07920, .02676, .00464, .00074,
2599 + .00043, .00295, .00429,
2600 + .23567, .07658, .02509, .00447, .00073,
2601 + .00043, .00283, .00410,
2602 + .22898, .07419, .02362, .00431, .00072,
2603 + .00044, .00273, .00393,
2604 + .22283, .07198, .02236, .00417, .00071,
2605 + .00044, .00264, .00377 /
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 + .21685, .06984, .02118, .00403, .00070,
2608 + .00043, .00254, .00362,
2609 + .21108, .06779, .02006, .00389, .00069,
2610 + .00044, .00246, .00348,
2611 + .20574, .06590, .01908, .00376, .00068,
2612 + .00044, .00237, .00336,
2613 + .20081, .06416, .01821, .00364, .00067,
2614 + .00043, .00230, .00324,
2615 + .19591, .06245, .01738, .00352, .00065,
2616 + .00043, .00223, .00313 /
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 + .61063, .22901, .26336, .01146, .00000,
2619 + .00000, .00570, .01359,
2620 + .59114, .21930, .23829, .01118, .00000,
2621 + .00000, .00578, .01295,
2622 + .56280, .20591, .21096, .01073, -.00257,
2623 + .00000, .00574, .01203,
2624 + .54292, .19688, .18936, .01044, -.00214,
2625 + .00000, .00571, .01138,
2626 + .52290, .18792, .16901, .01006, -.00166,
2627 + .00000, .00560, .01076,
2628 + .50601, .18050, .15336, .00977, -.00132,
2629 + .00000, .00548, .01022,
2630 + .49032, .17371, .13981, .00944, -.00104,
2631 + .00000, .00537, .00979,
2632 + .47419, .16681, .12690, .00909, -.00079,
2633 + .00000, .00523, .00932 /
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 + .46051, .16109, .11674, .00882, -.00060,
2636 + .00000, .00512, .00890,
2637 + .44768, .15575, .10777, .00857, -.00044,
2638 + .00000, .00498, .00853,
2639 + .43777, .15169, .10121, .00836, -.00033,
2640 + .00000, .00486, .00825,
2641 + .41748, .14345, .08884, .00787, -.00012,
2642 + .00000, .00464, .00770,
2643 + .40088, .13683, .08017, .00751, .00002,
2644 + -.00056, .00449, .00724,
2645 + .38309, .12983, .07045, .00712, .00015,
2646 + -.00038, .00427, .00679,
2647 + .36547, .12297, .06175, .00672, .00025,
2648 + -.00024, .00405, .00635,
2649 + .35022, .11712, .05489, .00639, .00032,
2650 + -.00014, .00385, .00597 /
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 + .33551, .11153, .04891, .00608, .00038,
2653 + -.00004, .00366, .00557,
2654 + .32382, .10713, .04447, .00581, .00042,
2655 + .00002, .00354, .00528,
2656 + .31018, .10202, .03976, .00549, .00045,
2657 + .00008, .00335, .00497,
2658 + .29864, .09774, .03610, .00522, .00048,
2659 + .00012, .00317, .00472,
2660 + .28851, .09402, .03306, .00498, .00050,
2661 + .00016, .00303, .00450,
2662 + .27615, .08950, .02970, .00469, .00050,
2663 + .00019, .00288, .00420,
2664 + .26503, .08547, .02689, .00445, .00052,
2665 + .00022, .00275, .00396,
2666 + .25507, .08189, .02451, .00425, .00052,
2667 + .00024, .00262, .00377 /
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 + .24546, .07850, .02246, .00405, .00052,
2670 + .00026, .00249, .00353,
2671 + .23647, .07533, .02066, .00388, .00051,
2672 + .00027, .00238, .00332,
2673 + .22832, .07245, .01909, .00370, .00051,
2674 + .00027, .00227, .00316,
2675 + .22086, .06984, .01777, .00355, .00051,
2676 + .00028, .00217, .00303,
2677 + .21366, .06733, .01658, .00340, .00050,
2678 + .00029, .00208, .00289,
2679 + .20680, .06495, .01550, .00327, .00050,
2680 + .00029, .00200, .00275,
2681 + .20053, .06279, .01454, .00314, .00049,
2682 + .00030, .00192, .00264,
2683 + .19476, .06081, .01372, .00303, .00048,
2684 + .00029, .00186, .00253 /
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 + .18915, .05889, .01297, .00292, .00048,
2687 + .00030, .00178, .00243,
2688 + .18377, .05706, .01228, .00280, .00046,
2689 + .00029, .00172, .00232,
2690 + .17878, .05538, .01165, .00270, .00045,
2691 + .00029, .00165, .00222,
2692 + .17420, .05383, .01110, .00261, .00045,
2693 + .00029, .00160, .00214,
2694 + .16964, .05229, .01058, .00254, .00044,
2695 + .00029, .00155, .00208 /
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 + .58760, .21262, .19831, .00959, .00000,
2698 + .00000, .00420, .00952,
2699 + .56587, .20272, .17735, .00930, .00000,
2700 + .00000, .00425, .00909,
2701 + .53514, .18909, .15458, .00883, -.00208,
2702 + .00000, .00428, .00845,
2703 + .51385, .17995, .13705, .00851, -.00172,
2704 + .00000, .00419, .00800,
2705 + .49262, .17094, .12059, .00817, -.00134,
2706 + .00000, .00414, .00760,
2707 + .47488, .16361, .10814, .00789, -.00107,
2708 + .00000, .00409, .00719,
2709 + .45853, .15690, .09753, .00757, -.00084,
2710 + .00000, .00399, .00686,
2711 + .44184, .15013, .08747, .00725, -.00064,
2712 + .00000, .00386, .00655 /
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 + .42772, .14454, .07969, .00705, -.00050,
2715 + .00000, .00377, .00622,
2716 + .41461, .13937, .07292, .00676, -.00037,
2717 + .00000, .00368, .00594,
2718 + .40457, .13542, .06802, .00654, -.00029,
2719 + .00000, .00358, .00575,
2720 + .38390, .12747, .05885, .00622, -.00012,
2721 + .00000, .00343, .00531,
2722 + .36724, .12117, .05244, .00587, -.00002,
2723 + -.00044, .00325, .00501,
2724 + .34954, .11450, .04534, .00553, .00007,
2725 + -.00030, .00308, .00469,
2726 + .33209, .10800, .03909, .00518, .00015,
2727 + -.00019, .00293, .00434,
2728 + .31708, .10248, .03431, .00485, .00020,
2729 + -.00012, .00277, .00408 /
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 + .30270, .09725, .03008, .00458, .00025,
2732 + -.00004, .00263, .00384,
2733 + .29126, .09314, .02708, .00435, .00028,
2734 + .00000, .00250, .00364,
2735 + .27802, .08840, .02391, .00413, .00030,
2736 + .00004, .00236, .00338,
2737 + .26685, .08446, .02143, .00394, .00032,
2738 + .00007, .00226, .00317,
2739 + .25704, .08102, .01945, .00376, .00033,
2740 + .00010, .00215, .00301,
2741 + .24518, .07688, .01723, .00354, .00034,
2742 + .00012, .00205, .00282,
2743 + .23458, .07320, .01544, .00335, .00035,
2744 + .00015, .00194, .00265,
2745 + .22514, .06993, .01397, .00317, .00035,
2746 + .00016, .00184, .00248 /
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 + .21604, .06685, .01267, .00301, .00035,
2749 + .00017, .00174, .00235,
2750 + .20755, .06398, .01156, .00288, .00035,
2751 + .00018, .00166, .00222,
2752 + .19986, .06139, .01063, .00275, .00034,
2753 + .00019, .00158, .00210,
2754 + .19292, .05903, .00985, .00262, .00034,
2755 + .00019, .00152, .00200,
2756 + .18625, .05678, .00912, .00250, .00033,
2757 + .00019, .00147, .00190,
2758 + .17986, .05467, .00850, .00238, .00033,
2759 + .00020, .00139, .00181,
2760 + .17404, .05277, .00796, .00227, .00032,
2761 + .00019, .00133, .00172,
2762 + .16871, .05099, .00749, .00218, .00032,
2763 + .00020, .00128, .00165 /
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 + .16353, .04927, .00704, .00209, .00032,
2766 + .00020, .00123, .00159,
2767 + .15856, .04765, .00665, .00202, .00031,
2768 + .00019, .00117, .00153,
2769 + .15395, .04614, .00631, .00195, .00031,
2770 + .00020, .00113, .00146,
2771 + .14974, .04477, .00600, .00188, .00030,
2772 + .00020, .00109, .00142,
2773 + .14560, .04343, .00572, .00182, .00029,
2774 + .00019, .00105, .00136 /
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 + .56010, .19561, .14031, .00792, .00000,
2777 + .00000, .00303, .00651,
2778 + .53685, .18560, .12350, .00761, .00000,
2779 + .00000, .00311, .00622,
2780 + .50422, .17207, .10569, .00717, -.00165,
2781 + .00000, .00309, .00575,
2782 + .48198, .16300, .09199, .00688, -.00136,
2783 + .00000, .00308, .00542,
2784 + .45992, .15421, .07952, .00652, -.00106,
2785 + .00000, .00301, .00513,
2786 + .44170, .14702, .07015, .00625, -.00085,
2787 + .00000, .00293, .00491,
2788 + .42491, .14053, .06225, .00603, -.00068,
2789 + .00000, .00286, .00466,
2790 + .40784, .13401, .05497, .00578, -.00052,
2791 + .00000, .00276, .00438 /
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 + .39367, .12862, .04932, .00555, -.00041,
2794 + .00000, .00268, .00420,
2795 + .38045, .12369, .04448, .00533, -.00031,
2796 + .00000, .00259, .00403,
2797 + .37034, .11993, .04103, .00515, -.00025,
2798 + .00000, .00252, .00389,
2799 + .34994, .11233, .03466, .00476, -.00012,
2800 + .00000, .00243, .00359,
2801 + .33346, .10635, .03030, .00452, -.00004,
2802 + -.00033, .00232, .00337,
2803 + .31597, .10016, .02549, .00430, .00003,
2804 + -.00023, .00219, .00310,
2805 + .29893, .09410, .02136, .00401, .00008,
2806 + -.00015, .00204, .00289,
2807 + .28437, .08897, .01822, .00377, .00013,
2808 + -.00009, .00193, .00271 /
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 + .27043, .08412, .01557, .00356, .00016,
2811 + -.00005, .00183, .00251,
2812 + .25946, .08032, .01373, .00337, .00018,
2813 + -.00001, .00174, .00237,
2814 + .24685, .07601, .01177, .00315, .00020,
2815 + .00002, .00164, .00221,
2816 + .23624, .07240, .01032, .00297, .00021,
2817 + .00005, .00155, .00208,
2818 + .22696, .06924, .00917, .00284, .00022,
2819 + .00006, .00147, .00197,
2820 + .21573, .06549, .00794, .00266, .00023,
2821 + .00008, .00138, .00184,
2822 + .20577, .06219, .00694, .00251, .00023,
2823 + .00010, .00131, .00172,
2824 + .19691, .05926, .00616, .00237, .00023,
2825 + .00011, .00123, .00161 /
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 + .18846, .05647, .00550, .00222, .00023,
2828 + .00012, .00117, .00151,
2829 + .18059, .05390, .00492, .00211, .00024,
2830 + .00012, .00111, .00142,
2831 + .17348, .05155, .00446, .00199, .00023,
2832 + .00012, .00107, .00135,
2833 + .16702, .04949, .00408, .00191, .00023,
2834 + .00013, .00101, .00129,
2835 + .16084, .04751, .00373, .00183, .00022,
2836 + .00013, .00097, .00123,
2837 + .15497, .04564, .00346, .00175, .00022,
2838 + .00013, .00091, .00116,
2839 + .14964, .04394, .00322, .00167, .00022,
2840 + .00013, .00087, .00112,
2841 + .14478, .04238, .00301, .00160, .00021,
2842 + .00013, .00085, .00106 /
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 + .14005, .04087, .00282, .00153, .00021,
2845 + .00013, .00081, .00100,
2846 + .13553, .03944, .00266, .00148, .00021,
2847 + .00014, .00078, .00095,
2848 + .13136, .03814, .00254, .00142, .00020,
2849 + .00013, .00075, .00091,
2850 + .12754, .03695, .00241, .00138, .00020,
2851 + .00013, .00071, .00087,
2852 + .12379, .03579, .00231, .00132, .00019,
2853 + .00013, .00069, .00084 /
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 + .52912, .17786, .08960, .00616, .00000,
2856 + .00000, .00227, .00442,
2857 + .50456, .16803, .07706, .00594, .00000,
2858 + .00000, .00228, .00420,
2859 + .47056, .15475, .06413, .00553, -.00129,
2860 + .00000, .00226, .00395,
2861 + .44777, .14597, .05414, .00529, -.00105,
2862 + .00000, .00223, .00371,
2863 + .42525, .13747, .04521, .00507, -.00082,
2864 + .00000, .00220, .00350,
2865 + .40677, .13063, .03870, .00484, -.00066,
2866 + .00000, .00215, .00332,
2867 + .38995, .12441, .03337, .00458, -.00052,
2868 + .00000, .00209, .00315,
2869 + .37298, .11818, .02851, .00434, -.00041,
2870 + .00000, .00201, .00301 /
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 + .35880, .11312, .02486, .00415, -.00032,
2873 + .00000, .00194, .00282,
2874 + .34570, .10843, .02175, .00401, -.00025,
2875 + .00000, .00190, .00269,
2876 + .33574, .10491, .01956, .00387, -.00020,
2877 + .00000, .00184, .00260,
2878 + .31564, .09785, .01568, .00359, -.00010,
2879 + .00000, .00172, .00243,
2880 + .29964, .09229, .01311, .00336, -.00005,
2881 + -.00024, .00164, .00225,
2882 + .28283, .08651, .01022, .00311, .00000,
2883 + -.00017, .00155, .00211,
2884 + .26643, .08093, .00786, .00290, .00004,
2885 + -.00012, .00146, .00195,
2886 + .25249, .07624, .00614, .00271, .00007,
2887 + -.00007, .00138, .00180 /
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 + .23928, .07184, .00475, .00251, .00010,
2890 + -.00003, .00129, .00168,
2891 + .22885, .06839, .00381, .00241, .00011,
2892 + -.00002, .00123, .00159,
2893 + .21687, .06448, .00289, .00225, .00013,
2894 + .00001, .00115, .00147,
2895 + .20692, .06124, .00226, .00211, .00013,
2896 + .00002, .00109, .00137,
2897 + .19828, .05843, .00176, .00197, .00014,
2898 + .00003, .00103, .00131,
2899 + .18785, .05505, .00126, .00185, .00014,
2900 + .00005, .00097, .00120,
2901 + .17860, .05209, .00089, .00173, .00015,
2902 + .00006, .00092, .00112,
2903 + .17040, .04950, .00065, .00163, .00015,
2904 + .00007, .00086, .00106 /
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 + .16261, .04703, .00044, .00155, .00015,
2907 + .00008, .00081, .00099,
2908 + .15539, .04477, .00027, .00145, .00015,
2909 + .00008, .00076, .00095,
2910 + .14888, .04275, .00016, .00138, .00015,
2911 + .00008, .00073, .00091,
2912 + .14302, .04093, .00010, .00131, .00015,
2913 + .00008, .00070, .00084,
2914 + .13740, .03920, .00004, .00124, .00014,
2915 + .00008, .00066, .00079,
2916 + .13209, .03756, .00001, .00118, .00014,
2917 + .00008, .00063, .00076,
2918 + .12728, .03608, -.00002, .00112, .00014,
2919 + .00009, .00061, .00073,
2920 + .12286, .03474, -.00003, .00109, .00014,
2921 + .00009, .00057, .00068 /
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 + .11859, .03345, -.00001, .00104, .00013,
2924 + .00008, .00055, .00065,
2925 + .11454, .03221, -.00002, .00100, .00013,
2926 + .00008, .00053, .00062,
2927 + .11084, .03107, -.00001, .00094, .00013,
2928 + .00008, .00051, .00061,
2929 + .10744, .03005, -.00001, .00089, .00013,
2930 + .00009, .00049, .00059,
2931 + .10411, .02906, .00000, .00086, .00013,
2932 + .00009, .00047, .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 + .49497, .16027, .04643, .00459, .00000,
2935 + .00000, .00166, .00295,
2936 + .46952, .15069, .03786, .00446, .00000,
2937 + .00000, .00171, .00283,
2938 + .43487, .13776, .02968, .00414, -.00099,
2939 + .00000, .00172, .00261,
2940 + .41179, .12931, .02337, .00388, -.00080,
2941 + .00000, .00164, .00249,
2942 + .38929, .12124, .01776, .00360, -.00063,
2943 + .00000, .00165, .00236,
2944 + .37084, .11472, .01379, .00348, -.00051,
2945 + .00000, .00159, .00226,
2946 + .35414, .10887, .01066, .00332, -.00041,
2947 + .00000, .00156, .00213,
2948 + .33745, .10305, .00790, .00313, -.00031,
2949 + .00000, .00154, .00199 /
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 + .32361, .09831, .00598, .00295, -.00025,
2952 + .00000, .00146, .00192,
2953 + .31093, .09398, .00434, .00278, -.00019,
2954 + .00000, .00141, .00183,
2955 + .30132, .09069, .00327, .00266, -.00016,
2956 + .00000, .00138, .00176,
2957 + .28183, .08418, .00143, .00249, -.00010,
2958 + .00000, .00131, .00165,
2959 + .26646, .07910, .00034, .00230, -.00005,
2960 + -.00018, .00122, .00155,
2961 + .25044, .07382, -.00095, .00212, -.00001,
2962 + -.00012, .00115, .00143,
2963 + .23489, .06878, -.00190, .00198, .00001,
2964 + -.00009, .00108, .00131,
2965 + .22170, .06456, -.00248, .00186, .00004,
2966 + -.00005, .00101, .00122 /
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 + .20926, .06060, -.00290, .00173, .00005,
2969 + -.00004, .00095, .00115,
2970 + .19958, .05751, -.00309, .00163, .00007,
2971 + -.00001, .00089, .00108,
2972 + .18854, .05402, -.00325, .00150, .00008,
2973 + .00000, .00085, .00099,
2974 + .17933, .05114, -.00329, .00139, .00009,
2975 + .00001, .00080, .00094,
2976 + .17132, .04866, -.00329, .00131, .00009,
2977 + .00003, .00075, .00088,
2978 + .16172, .04572, -.00324, .00123, .00009,
2979 + .00003, .00071, .00081,
2980 + .15326, .04312, -.00312, .00115, .00009,
2981 + .00004, .00066, .00075,
2982 + .14581, .04086, -.00303, .00106, .00010,
2983 + .00005, .00064, .00071 /
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 + .13871, .03872, -.00287, .00101, .00010,
2986 + .00005, .00058, .00066,
2987 + .13215, .03676, -.00273, .00095, .00009,
2988 + .00005, .00054, .00063,
2989 + .12630, .03499, -.00257, .00089, .00010,
2990 + .00006, .00052, .00058,
2991 + .12104, .03342, -.00244, .00084, .00010,
2992 + .00005, .00050, .00056,
2993 + .11602, .03192, -.00230, .00079, .00009,
2994 + .00005, .00047, .00054,
2995 + .11126, .03052, -.00216, .00076, .00009,
2996 + .00005, .00045, .00050,
2997 + .10698, .02926, -.00203, .00073, .00009,
2998 + .00005, .00042, .00046,
2999 + .10305, .02812, -.00189, .00069, .00009,
3000 + .00006, .00040, .00045 /
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 + .09927, .02701, -.00179, .00067, .00009,
3003 + .00006, .00039, .00043,
3004 + .09570, .02596, -.00169, .00064, .00009,
3005 + .00006, .00036, .00042,
3006 + .09243, .02502, -.00158, .00060, .00008,
3007 + .00006, .00035, .00040,
3008 + .08944, .02414, -.00147, .00057, .00008,
3009 + .00005, .00034, .00038,
3010 + .08650, .02330, -.00139, .00055, .00008,
3011 + .00005, .00033, .00037 /
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 + .45845, .14360, .00990, .00403, .00000,
3014 + .00000, .00098, .00158,
3015 + .43304, .13431, .00523, .00363, .00000,
3016 + .00000, .00101, .00163,
3017 + .39822, .12200, .00141, .00345, -.00074,
3018 + .00000, .00104, .00151,
3019 + .37536, .11406, -.00193, .00321, -.00060,
3020 + .00000, .00104, .00150,
3021 + .35310, .10646, -.00450, .00302, -.00047,
3022 + .00000, .00103, .00137,
3023 + .33517, .10031, -.00608, .00278, -.00037,
3024 + .00000, .00100, .00131,
3025 + .31898, .09486, -.00726, .00260, -.00030,
3026 + .00000, .00096, .00127,
3027 + .30276, .08951, -.00819, .00242, -.00024,
3028 + .00000, .00091, .00124 /
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 + .28938, .08509, -.00877, .00236, -.00019,
3031 + .00000, .00091, .00115,
3032 + .27715, .08109, -.00908, .00223, -.00015,
3033 + .00000, .00088, .00108,
3034 + .26793, .07809, -.00925, .00213, -.00012,
3035 + .00000, .00083, .00107,
3036 + .24941, .07214, -.00939, .00197, -.00008,
3037 + .00000, .00079, .00098,
3038 + .23493, .06752, -.00925, .00183, -.00004,
3039 + -.00013, .00076, .00089,
3040 + .21986, .06276, -.00923, .00168, -.00002,
3041 + -.00009, .00070, .00081,
3042 + .20533, .05827, -.00904, .00154, .00000,
3043 + -.00007, .00064, .00074,
3044 + .19314, .05448, -.00878, .00142, .00002,
3045 + -.00004, .00062, .00070 /
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 + .18167, .05093, -.00837, .00130, .00003,
3048 + -.00003, .00057, .00066,
3049 + .17270, .04823, -.00805, .00123, .00004,
3050 + -.00001, .00053, .00061,
3051 + .16251, .04514, -.00762, .00114, .00005,
3052 + .00000, .00052, .00056,
3053 + .15411, .04261, -.00722, .00107, .00005,
3054 + .00001, .00049, .00054,
3055 + .14684, .04042, -.00682, .00098, .00005,
3056 + .00001, .00045, .00052,
3057 + .13812, .03785, -.00636, .00091, .00006,
3058 + .00002, .00041, .00048,
3059 + .13047, .03559, -.00592, .00085, .00006,
3060 + .00002, .00039, .00045,
3061 + .12377, .03362, -.00552, .00081, .00006,
3062 + .00003, .00035, .00042 /
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 + .11745, .03176, -.00512, .00075, .00006,
3065 + .00003, .00033, .00038,
3066 + .11161, .03006, -.00475, .00069, .00006,
3067 + .00003, .00031, .00035,
3068 + .10636, .02856, -.00445, .00066, .00006,
3069 + .00003, .00030, .00034,
3070 + .10165, .02723, -.00414, .00064, .00006,
3071 + .00004, .00028, .00031,
3072 + .09718, .02595, -.00386, .00061, .00006,
3073 + .00004, .00026, .00029,
3074 + .09300, .02475, -.00361, .00057, .00006,
3075 + .00004, .00025, .00028,
3076 + .08922, .02367, -.00338, .00054, .00006,
3077 + .00004, .00024, .00027,
3078 + .08578, .02270, -.00317, .00053, .00006,
3079 + .00004, .00023, .00025 /
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 + .08246, .02178, -.00296, .00052, .00005,
3082 + .00003, .00023, .00023,
3083 + .07933, .02089, -.00277, .00048, .00005,
3084 + .00003, .00022, .00022,
3085 + .07648, .02009, -.00258, .00046, .00005,
3086 + .00003, .00019, .00021,
3087 + .07388, .01936, -.00245, .00043, .00005,
3088 + .00003, .00020, .00021,
3089 + .07134, .01865, -.00230, .00041, .00005,
3090 + .00003, .00018, .00020 /
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 + .42010, .12633, -.01904, .00272, .00000,
3093 + .00000, .00076, .00115,
3094 + .39458, .11768, -.02028, .00265, .00000,
3095 + .00000, .00078, .00102,
3096 + .36042, .10621, -.02017, .00234, -.00054,
3097 + .00000, .00081, .00098,
3098 + .33806, .09883, -.02070, .00218, -.00043,
3099 + .00000, .00077, .00096,
3100 + .31656, .09179, -.02078, .00204, -.00034,
3101 + .00000, .00074, .00089,
3102 + .29927, .08620, -.02061, .00189, -.00027,
3103 + .00000, .00072, .00088,
3104 + .28368, .08126, -.02023, .00178, -.00022,
3105 + .00000, .00070, .00083,
3106 + .26814, .07635, -.01960, .00170, -.00017,
3107 + .00000, .00066, .00077 /
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 + .25554, .07237, -.01905, .00160, -.00014,
3110 + .00000, .00065, .00075,
3111 + .24397, .06876, -.01840, .00153, -.00012,
3112 + .00000, .00062, .00070,
3113 + .23523, .06608, -.01786, .00150, -.00009,
3114 + .00000, .00060, .00065,
3115 + .21801, .06076, -.01664, .00132, -.00006,
3116 + .00000, .00054, .00062,
3117 + .20448, .05667, -.01560, .00123, -.00004,
3118 + -.00009, .00052, .00057,
3119 + .19048, .05248, -.01464, .00115, -.00002,
3120 + -.00006, .00047, .00053,
3121 + .17714, .04845, -.01358, .00103, -.00001,
3122 + -.00005, .00041, .00048,
3123 + .16598, .04512, -.01266, .00094, .00000,
3124 + -.00004, .00041, .00045 /
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 + .15550, .04207, -.01178, .00087, .00001,
3127 + -.00002, .00039, .00042,
3128 + .14735, .03970, -.01103, .00084, .00002,
3129 + -.00001, .00036, .00038,
3130 + .13814, .03703, -.01018, .00077, .00003,
3131 + .00000, .00033, .00035,
3132 + .13056, .03484, -.00946, .00072, .00003,
3133 + .00000, .00030, .00033,
3134 + .12403, .03296, -.00886, .00070, .00003,
3135 + .00000, .00030, .00032,
3136 + .11626, .03075, -.00810, .00064, .00004,
3137 + .00001, .00027, .00028,
3138 + .10949, .02882, -.00743, .00058, .00003,
3139 + .00001, .00026, .00026,
3140 + .10357, .02714, -.00685, .00052, .00003,
3141 + .00001, .00024, .00025 /
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 + .09794, .02557, -.00629, .00049, .00004,
3144 + .00002, .00021, .00023,
3145 + .09280, .02414, -.00581, .00047, .00004,
3146 + .00002, .00020, .00022,
3147 + .08821, .02286, -.00538, .00044, .00004,
3148 + .00002, .00019, .00020,
3149 + .08412, .02173, -.00500, .00041, .00004,
3150 + .00002, .00017, .00019,
3151 + .08022, .02068, -.00465, .00040, .00003,
3152 + .00002, .00018, .00018,
3153 + .07659, .01967, -.00430, .00038, .00003,
3154 + .00002, .00017, .00017,
3155 + .07332, .01877, -.00401, .00035, .00003,
3156 + .00002, .00015, .00015,
3157 + .07034, .01796, -.00375, .00033, .00003,
3158 + .00002, .00014, .00015 /
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 + .06749, .01720, -.00350, .00032, .00003,
3161 + .00002, .00013, .00014,
3162 + .06479, .01648, -.00328, .00031, .00003,
3163 + .00002, .00013, .00013,
3164 + .06234, .01582, -.00309, .00029, .00003,
3165 + .00002, .00013, .00012,
3166 + .06010, .01521, -.00290, .00028, .00004,
3167 + .00003, .00012, .00012,
3168 + .05793, .01462, -.00271, .00026, .00003,
3169 + .00003, .00012, .00011 /
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 + .38063, .10994, -.04082, .00175, .00000,
3172 + .00000, .00057, .00071,
3173 + .35559, .10187, -.03916, .00169, .00000,
3174 + .00000, .00059, .00070,
3175 + .32244, .09132, -.03581, .00152, -.00039,
3176 + .00000, .00057, .00071,
3177 + .30091, .08457, -.03412, .00146, -.00031,
3178 + .00000, .00057, .00062,
3179 + .28037, .07822, -.03227, .00139, -.00024,
3180 + .00000, .00055, .00058,
3181 + .26394, .07316, -.03058, .00128, -.00019,
3182 + .00000, .00052, .00057,
3183 + .24926, .06867, -.02889, .00117, -.00016,
3184 + .00000, .00049, .00055,
3185 + .23476, .06430, -.02717, .00110, -.00012,
3186 + .00000, .00048, .00051 /
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 + .22292, .06076, -.02570, .00105, -.00010,
3189 + .00000, .00046, .00047,
3190 + .21217, .05757, -.02433, .00098, -.00008,
3191 + .00000, .00044, .00045,
3192 + .20411, .05519, -.02327, .00094, -.00007,
3193 + .00000, .00044, .00042,
3194 + .18815, .05051, -.02111, .00083, -.00004,
3195 + .00000, .00038, .00042,
3196 + .17577, .04689, -.01942, .00078, -.00003,
3197 + -.00006, .00035, .00040,
3198 + .16306, .04321, -.01775, .00069, -.00002,
3199 + -.00005, .00033, .00036,
3200 + .15090, .03975, -.01615, .00064, .00000,
3201 + -.00003, .00033, .00032,
3202 + .14078, .03688, -.01479, .00059, .00000,
3203 + -.00002, .00029, .00030 /
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 + .13139, .03424, -.01353, .00054, .00001,
3206 + -.00001, .00026, .00028,
3207 + .12413, .03220, -.01251, .00052, .00001,
3208 + -.00001, .00025, .00024,
3209 + .11595, .02991, -.01140, .00046, .00002,
3210 + .00000, .00022, .00024,
3211 + .10923, .02805, -.01049, .00042, .00002,
3212 + .00000, .00021, .00023,
3213 + .10344, .02649, -.00969, .00039, .00002,
3214 + .00000, .00018, .00020,
3215 + .09661, .02461, -.00879, .00036, .00002,
3216 + .00001, .00017, .00019,
3217 + .09065, .02300, -.00801, .00034, .00002,
3218 + .00001, .00016, .00018,
3219 + .08545, .02159, -.00734, .00032, .00002,
3220 + .00001, .00015, .00017 /
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 + .08060, .02027, -.00673, .00030, .00002,
3223 + .00001, .00014, .00017,
3224 + .07615, .01909, -.00617, .00027, .00002,
3225 + .00001, .00014, .00015,
3226 + .07217, .01804, -.00568, .00026, .00002,
3227 + .00001, .00013, .00013,
3228 + .06864, .01709, -.00525, .00025, .00002,
3229 + .00001, .00013, .00012,
3230 + .06529, .01621, -.00487, .00024, .00002,
3231 + .00001, .00012, .00012,
3232 + .06217, .01539, -.00450, .00023, .00002,
3233 + .00001, .00012, .00012,
3234 + .05938, .01465, -.00418, .00022, .00003,
3235 + .00002, .00010, .00010,
3236 + .05685, .01399, -.00390, .00021, .00002,
3237 + .00002, .00010, .00010 /
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 + .05442, .01337, -.00364, .00019, .00002,
3240 + .00002, .00010, .00009,
3241 + .05214, .01278, -.00339, .00018, .00002,
3242 + .00002, .00009, .00009,
3243 + .05008, .01224, -.00316, .00017, .00002,
3244 + .00002, .00008, .00008,
3245 + .04819, .01175, -.00297, .00015, .00002,
3246 + .00002, .00008, .00008,
3247 + .04635, .01127, -.00279, .00016, .00002,
3248 + .00002, .00008, .00006 /
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 + .34115, .09501, -.05713, .00146, .00000,
3251 + .00000, .00027, .00032,
3252 + .31719, .08757, -.05302, .00134, .00000,
3253 + .00000, .00026, .00034,
3254 + .28538, .07797, -.04696, .00128, -.00027,
3255 + .00000, .00029, .00032,
3256 + .26519, .07188, -.04343, .00109, -.00022,
3257 + .00000, .00026, .00030,
3258 + .24577, .06612, -.04000, .00103, -.00016,
3259 + .00000, .00026, .00033,
3260 + .23043, .06163, -.03717, .00094, -.00014,
3261 + .00000, .00028, .00029,
3262 + .21679, .05767, -.03462, .00090, -.00011,
3263 + .00000, .00029, .00026,
3264 + .20336, .05377, -.03209, .00084, -.00008,
3265 + .00000, .00029, .00025 /
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 + .19245, .05062, -.02991, .00077, -.00007,
3268 + .00000, .00026, .00024,
3269 + .18257, .04781, -.02798, .00074, -.00006,
3270 + .00000, .00023, .00024,
3271 + .17520, .04574, -.02657, .00072, -.00005,
3272 + .00000, .00023, .00024,
3273 + .16071, .04161, -.02370, .00063, -.00003,
3274 + .00000, .00023, .00020,
3275 + .14953, .03849, -.02152, .00055, -.00003,
3276 + -.00005, .00021, .00020,
3277 + .13805, .03532, -.01943, .00051, -.00002,
3278 + -.00003, .00017, .00020,
3279 + .12719, .03233, -.01744, .00047, -.00001,
3280 + -.00002, .00017, .00019,
3281 + .11820, .02989, -.01579, .00044, .00000,
3282 + -.00001, .00014, .00016 /
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 + .10987, .02765, -.01428, .00040, .00000,
3285 + -.00001, .00013, .00013,
3286 + .10344, .02592, -.01316, .00037, .00000,
3287 + -.00001, .00013, .00015,
3288 + .09626, .02398, -.01188, .00035, .00000,
3289 + -.00001, .00013, .00013,
3290 + .09037, .02242, -.01085, .00032, .00001,
3291 + .00000, .00011, .00012,
3292 + .08532, .02110, -.00999, .00032, .00001,
3293 + .00000, .00012, .00010,
3294 + .07940, .01954, -.00897, .00026, .00001,
3295 + .00000, .00010, .00009,
3296 + .07424, .01818, -.00813, .00025, .00001,
3297 + .00000, .00009, .00009,
3298 + .06976, .01703, -.00741, .00025, .00001,
3299 + .00000, .00008, .00008 /
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 + .06558, .01593, -.00676, .00022, .00001,
3302 + .00000, .00008, .00008,
3303 + .06176, .01496, -.00618, .00021, .00001,
3304 + .00000, .00007, .00008,
3305 + .05839, .01410, -.00567, .00020, .00002,
3306 + .00001, .00007, .00007,
3307 + .05539, .01334, -.00523, .00018, .00002,
3308 + .00001, .00007, .00006,
3309 + .05258, .01260, -.00480, .00015, .00002,
3310 + .00001, .00005, .00006,
3311 + .04995, .01194, -.00446, .00016, .00002,
3312 + .00001, .00006, .00006,
3313 + .04759, .01134, -.00412, .00014, .00002,
3314 + .00001, .00006, .00006,
3315 + .04547, .01081, -.00384, .00013, .00001,
3316 + .00001, .00006, .00006 /
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 + .04344, .01030, -.00355, .00013, .00001,
3319 + .00001, .00004, .00004,
3320 + .04152, .00983, -.00330, .00011, .00001,
3321 + .00001, .00004, .00004,
3322 + .03978, .00940, -.00309, .00012, .00001,
3323 + .00001, .00004, .00004,
3324 + .03821, .00900, -.00289, .00012, .00001,
3325 + .00001, .00005, .00003,
3326 + .03669, .00862, -.00271, .00010, .00001,
3327 + .00001, .00003, .00005 /
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 + .30126, .08031, -.06697, .00087, .00000,
3330 + .00000, .00027, .00027,
3331 + .27867, .07372, -.06107, .00078, .00000,
3332 + .00000, .00028, .00021,
3333 + .24906, .06515, -.05309, .00066, -.00018,
3334 + .00000, .00024, .00027,
3335 + .23013, .05977, -.04843, .00064, -.00015,
3336 + .00000, .00024, .00027,
3337 + .21235, .05475, -.04384, .00053, -.00012,
3338 + .00000, .00024, .00021,
3339 + .19821, .05079, -.04027, .00051, -.00009,
3340 + .00000, .00022, .00021,
3341 + .18568, .04734, -.03712, .00049, -.00007,
3342 + .00000, .00022, .00021,
3343 + .17342, .04398, -.03399, .00048, -.00006,
3344 + .00000, .00022, .00018 /
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 + .16358, .04129, -.03145, .00043, -.00005,
3347 + .00000, .00019, .00017,
3348 + .15470, .03888, -.02920, .00039, -.00004,
3349 + .00000, .00018, .00017,
3350 + .14807, .03709, -.02752, .00036, -.00004,
3351 + .00000, .00017, .00015,
3352 + .13504, .03357, -.02426, .00033, -.00003,
3353 + .00000, .00014, .00017,
3354 + .12506, .03092, -.02184, .00031, -.00002,
3355 + -.00003, .00013, .00014,
3356 + .11493, .02825, -.01950, .00028, -.00001,
3357 + -.00002, .00013, .00012,
3358 + .10538, .02575, -.01736, .00025, -.00001,
3359 + -.00001, .00012, .00012,
3360 + .09751, .02369, -.01559, .00024, -.00001,
3361 + -.00001, .00011, .00011 /
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 + .09024, .02182, -.01399, .00021, .00000,
3364 + .00000, .00011, .00010,
3365 + .08470, .02038, -.01280, .00020, .00000,
3366 + .00000, .00009, .00010,
3367 + .07849, .01880, -.01147, .00017, .00000,
3368 + .00000, .00008, .00008,
3369 + .07342, .01751, -.01042, .00016, .00000,
3370 + .00000, .00008, .00007,
3371 + .06912, .01643, -.00955, .00016, .00000,
3372 + .00000, .00007, .00007,
3373 + .06407, .01515, -.00855, .00014, .00000,
3374 + .00000, .00007, .00007,
3375 + .05969, .01405, -.00768, .00012, .00000,
3376 + .00000, .00006, .00006,
3377 + .05588, .01311, -.00698, .00012, .00001,
3378 + .00001, .00006, .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 + .05238, .01224, -.00633, .00011, .00001,
3381 + .00001, .00005, .00006,
3382 + .04918, .01145, -.00575, .00009, .00001,
3383 + .00001, .00005, .00005,
3384 + .04635, .01077, -.00527, .00010, .00001,
3385 + .00001, .00005, .00003,
3386 + .04386, .01014, -.00484, .00008, .00001,
3387 + .00001, .00005, .00003,
3388 + .04152, .00957, -.00445, .00008, .00001,
3389 + .00001, .00005, .00003,
3390 + .03933, .00904, -.00409, .00007, .00001,
3391 + .00001, .00003, .00003,
3392 + .03738, .00857, -.00379, .00007, .00001,
3393 + .00001, .00003, .00003,
3394 + .03561, .00815, -.00352, .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 + .03394, .00775, -.00327, .00007, .00001,
3398 + .00001, .00003, .00003,
3399 + .03237, .00737, -.00304, .00007, .00001,
3400 + .00001, .00003, .00003,
3401 + .03095, .00703, -.00283, .00006, .00001,
3402 + .00001, .00003, .00003,
3403 + .02968, .00672, -.00264, .00006, .00001,
3404 + .00001, .00002, .00003,
3405 + .02843, .00643, -.00247, .00006, .00001,
3406 + .00001, .00002, .00002 /
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 + .22537, .05519, -.07243, .00030, .00000,
3409 + .00000, .00007, .00008,
3410 + .20606, .05012, -.06472, .00033, .00000,
3411 + .00000, .00006, .00013,
3412 + .18128, .04368, -.05476, .00029, -.00007,
3413 + .00000, .00010, .00005,
3414 + .16574, .03966, -.04881, .00027, -.00006,
3415 + .00000, .00009, .00005,
3416 + .15128, .03592, -.04339, .00023, -.00005,
3417 + .00000, .00011, .00007,
3418 + .13994, .03307, -.03920, .00023, -.00004,
3419 + .00000, .00009, .00007,
3420 + .13003, .03058, -.03553, .00021, -.00003,
3421 + .00000, .00008, .00006,
3422 + .12046, .02814, -.03200, .00017, -.00003,
3423 + .00000, .00005, .00006 /
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 + .11277, .02622, -.02929, .00016, -.00002,
3426 + .00000, .00005, .00006,
3427 + .10590, .02451, -.02687, .00014, -.00002,
3428 + .00000, .00006, .00004,
3429 + .10081, .02327, -.02511, .00014, -.00002,
3430 + .00000, .00005, .00005,
3431 + .09091, .02084, -.02178, .00014, -.00001,
3432 + .00000, .00005, .00005,
3433 + .08345, .01902, -.01935, .00010, -.00001,
3434 + -.00001, .00005, .00005,
3435 + .07593, .01721, -.01701, .00010, -.00001,
3436 + -.00001, .00005, .00003,
3437 + .06893, .01553, -.01490, .00009, -.00001,
3438 + -.00001, .00003, .00003,
3439 + .06320, .01417, -.01319, .00008, -.00001,
3440 + -.00001, .00004, .00004 /
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 + .05798, .01293, -.01172, .00008, -.00001,
3443 + -.00001, .00004, .00002,
3444 + .05404, .01200, -.01062, .00007, .00000,
3445 + .00000, .00004, .00003,
3446 + .04966, .01098, -.00942, .00007, .00000,
3447 + .00000, .00003, .00003,
3448 + .04612, .01014, -.00847, .00005, .00000,
3449 + .00000, .00003, .00003,
3450 + .04313, .00946, -.00768, .00005, .00000,
3451 + .00000, .00002, .00003,
3452 + .03963, .00866, -.00682, .00004, .00000,
3453 + .00000, .00003, .00003,
3454 + .03666, .00797, -.00609, .00004, .00000,
3455 + .00000, .00003, .00003,
3456 + .03409, .00739, -.00548, .00004, .00000,
3457 + .00000, .00003, .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 + .03171, .00684, -.00493, .00004, .00000,
3460 + .00000, .00001, .00003,
3461 + .02958, .00636, -.00445, .00004, .00000,
3462 + .00000, .00001, .00001,
3463 + .02773, .00594, -.00404, .00002, .00000,
3464 + .00000, .00001, .00001,
3465 + .02609, .00557, -.00369, .00002, .00000,
3466 + .00000, .00001, .00001,
3467 + .02454, .00522, -.00337, .00002, .00000,
3468 + .00000, .00001, .00001,
3469 + .02312, .00491, -.00308, .00002, .00000,
3470 + .00000, .00001, .00001,
3471 + .02185, .00463, -.00285, .00003, .00000,
3472 + .00000, .00001, .00001,
3473 + .02073, .00438, -.00263, .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 + .01967, .00414, -.00243, .00002, .00000,
3477 + .00000, .00001, .00001,
3478 + .01867, .00392, -.00224, .00001, .00000,
3479 + .00000, .00001, .00001,
3480 + .01778, .00373, -.00208, .00001, .00000,
3481 + .00000, .00001, .00001,
3482 + .01697, .00356, -.00194, .00001, .00000,
3483 + .00000, .00001, .00001,
3484 + .01619, .00338, -.00182, .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 + .15664, .03502, -.06396, .00015, .00000,
3488 + .00000, .00003, -.00002,
3489 + .14167, .03144, -.05623, .00010, .00000,
3490 + .00000, .00004, .00001,
3491 + .12257, .02696, -.04665, .00012, -.00003,
3492 + .00000, .00002, .00002,
3493 + .11084, .02421, -.04097, .00008, -.00002,
3494 + .00000, .00003, .00005,
3495 + .09999, .02171, -.03581, .00008, -.00002,
3496 + .00000, .00001, .00003,
3497 + .09164, .01978, -.03193, .00008, -.00001,
3498 + .00000, .00001, .00001,
3499 + .08438, .01812, -.02864, .00008, -.00001,
3500 + .00000, .00001, .00001,
3501 + .07740, .01655, -.02555, .00008, -.00001,
3502 + .00000, .00003, .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 + .07190, .01531, -.02315, .00006, -.00001,
3505 + .00000, .00003, .00001,
3506 + .06703, .01421, -.02106, .00006, -.00001,
3507 + .00000, .00001, .00001,
3508 + .06346, .01340, -.01953, .00004, -.00001,
3509 + .00000, .00001, .00001,
3510 + .05652, .01186, -.01668, .00004, .00000,
3511 + .00000, .00001, .00001,
3512 + .05138, .01073, -.01468, .00004, .00000,
3513 + .00000, .00001, .00001,
3514 + .04625, .00959, -.01275, .00004, .00000,
3515 + .00000, .00001, .00001,
3516 + .04152, .00856, -.01100, .00002, .00000,
3517 + .00000, .00001, .00001,
3518 + .03770, .00774, -.00965, .00002, .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 + .03428, .00701, -.00846, .00001, .00000,
3522 + .00000, .00000, .00001,
3523 + .03170, .00646, -.00760, .00001, .00000,
3524 + .00000, .00000, .00000,
3525 + .02886, .00584, -.00667, .00001, .00000,
3526 + .00000, .00000, .00000,
3527 + .02658, .00538, -.00596, .00001, .00000,
3528 + .00000, .00000, .00000,
3529 + .02468, .00496, -.00537, .00001, .00000,
3530 + .00000, .00001, .00000,
3531 + .02249, .00450, -.00471, .00001, .00000,
3532 + .00000, .00000, .00000,
3533 + .02063, .00411, -.00418, .00001, .00000,
3534 + .00000, .00000, .00000,
3535 + .01904, .00378, -.00373, .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 + .01758, .00348, -.00333, .00001, .00000,
3539 + .00000, .00000, .00000,
3540 + .01628, .00321, -.00299, .00001, .00000,
3541 + .00000, .00000, .00000,
3542 + .01515, .00298, -.00270, .00001, .00000,
3543 + .00000, .00000, .00000,
3544 + .01416, .00278, -.00245, .00001, .00000,
3545 + .00000, .00000, .00000,
3546 + .01324, .00259, -.00222, .00001, .00000,
3547 + .00000, .00000, .00000,
3548 + .01241, .00242, -.00203, .00001, .00000,
3549 + .00000, .00000, .00000,
3550 + .01167, .00227, -.00185, .00000, .00000,
3551 + .00000, .00000, .00000,
3552 + .01100, .00213, -.00170, .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 + .01038, .00200, -.00157, .00001, .00000,
3556 + .00000, .00000, .00000,
3557 + .00980, .00189, -.00145, .00001, .00000,
3558 + .00000, .00000, .00000,
3559 + .00929, .00179, -.00134, .00001, .00000,
3560 + .00000, .00000, .00000,
3561 + .00882, .00169, -.00124, .00001, .00000,
3562 + .00000, .00000, .00000,
3563 + .00838, .00160, -.00114, .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 + .09927, .02001, -.04826, .00007, .00000,
3567 + .00000, -.00001, .00001,
3568 + .08860, .01775, -.04180, .00007, .00000,
3569 + .00000, -.00001, -.00001,
3570 + .07533, .01495, -.03397, .00002, -.00001,
3571 + .00000, -.00001, -.00001,
3572 + .06723, .01328, -.02947, .00004, -.00001,
3573 + .00000, -.00001, -.00001,
3574 + .05992, .01176, -.02545, .00004, .00000,
3575 + .00000, .00000, .00000,
3576 + .05432, .01061, -.02241, .00002, .00000,
3577 + .00000, .00000, .00000,
3578 + .04952, .00962, -.01989, .00002, .00000,
3579 + .00000, .00000, .00000,
3580 + .04498, .00870, -.01756, .00002, .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 + .04141, .00798, -.01577, .00002, .00000,
3584 + .00000, .00000, .00000,
3585 + .03826, .00733, -.01421, .00002, .00000,
3586 + .00000, .00000, .00000,
3587 + .03597, .00689, -.01310, .00002, .00000,
3588 + .00000, .00000, .00000,
3589 + .03163, .00602, -.01106, .00002, .00000,
3590 + .00000, .00000, .00000,
3591 + .02842, .00538, -.00961, .00002, .00000,
3592 + .00000, .00000, .00000,
3593 + .02529, .00475, -.00824, .00002, .00000,
3594 + .00000, .00000, .00000,
3595 + .02242, .00419, -.00704, .00002, .00000,
3596 + .00000, .00000, .00000,
3597 + .02015, .00375, -.00611, .00002, .00000,
3598 + .00000, .00000, .00000 /
3599 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/
3600 + .01812, .00336, -.00530, .00000, .00000,
3601 + .00000, .00000, .00000,
3602 + .01661, .00306, -.00470, .00000, .00000,
3603 + .00000, .00000, .00000,
3604 + .01496, .00275, -.00409, .00000, .00000,
3605 + .00000, .00000, .00000,
3606 + .01366, .00249, -.00362, .00000, .00000,
3607 + .00000, .00000, .00000,
3608 + .01260, .00230, -.00324, .00000, .00000,
3609 + .00000, .00000, .00000,
3610 + .01136, .00206, -.00282, .00000, .00000,
3611 + .00000, .00000, .00000,
3612 + .01031, .00187, -.00247, .00000, .00000,
3613 + .00000, .00000, .00000,
3614 + .00943, .00170, -.00219, .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 + .00863, .00156, -.00194, .00000, .00000,
3618 + .00000, .00000, .00000,
3619 + .00794, .00142, -.00173, .00000, .00000,
3620 + .00000, .00000, .00000,
3621 + .00734, .00131, -.00156, .00000, .00000,
3622 + .00000, .00000, .00000,
3623 + .00680, .00121, -.00140, .00000, .00000,
3624 + .00000, .00000, .00000,
3625 + .00632, .00112, -.00127, .00000, .00000,
3626 + .00000, .00000, .00000,
3627 + .00588, .00104, -.00114, .00000, .00000,
3628 + .00000, .00000, .00000,
3629 + .00549, .00097, -.00104, .00000, .00000,
3630 + .00000, .00000, .00000,
3631 + .00515, .00091, -.00095, .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 + .00483, .00084, -.00086, .00000, .00000,
3635 + .00000, .00000, .00000,
3636 + .00454, .00079, -.00080, .00000, .00000,
3637 + .00000, .00000, .00000,
3638 + .00427, .00075, -.00073, .00000, .00000,
3639 + .00000, .00000, .00000,
3640 + .00404, .00070, -.00068, .00000, .00000,
3641 + .00000, .00000, .00000,
3642 + .00382, .00066, -.00062, .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 + .05502, .00971, -.03053, .00000, .00000,
3646 + .00000, .00000, .00000,
3647 + .04842, .00852, -.02614, .00000, .00000,
3648 + .00000, .00000, .00000,
3649 + .04032, .00705, -.02089, .00000, .00000,
3650 + .00000, .00000, .00000,
3651 + .03548, .00617, -.01786, .00000, .00000,
3652 + .00000, .00000, .00000,
3653 + .03116, .00539, -.01520, .00000, .00000,
3654 + .00000, .00000, .00000,
3655 + .02792, .00483, -.01329, .00000, .00000,
3656 + .00000, .00000, .00000,
3657 + .02515, .00430, -.01162, .00000, .00000,
3658 + .00000, .00000, .00000,
3659 + .02257, .00386, -.01017, .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 + .02056, .00352, -.00906, .00000, .00000,
3663 + .00000, .00000, .00000,
3664 + .01882, .00321, -.00808, .00000, .00000,
3665 + .00000, .00000, .00000,
3666 + .01757, .00300, -.00741, .00000, .00000,
3667 + .00000, .00000, .00000,
3668 + .01520, .00255, -.00614, .00000, .00000,
3669 + .00000, .00000, .00000,
3670 + .01348, .00226, -.00528, .00000, .00000,
3671 + .00000, .00000, .00000,
3672 + .01182, .00198, -.00446, .00000, .00000,
3673 + .00000, .00000, .00000,
3674 + .01033, .00172, -.00375, .00000, .00000,
3675 + .00000, .00000, .00000,
3676 + .00916, .00152, -.00322, .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 + .00814, .00134, -.00277, .00000, .00000,
3680 + .00000, .00000, .00000,
3681 + .00738, .00122, -.00244, .00000, .00000,
3682 + .00000, .00000, .00000,
3683 + .00657, .00108, -.00210, .00000, .00000,
3684 + .00000, .00000, .00000,
3685 + .00593, .00096, -.00184, .00000, .00000,
3686 + .00000, .00000, .00000,
3687 + .00541, .00088, -.00162, .00000, .00000,
3688 + .00000, .00000, .00000,
3689 + .00482, .00078, -.00140, .00000, .00000,
3690 + .00000, .00000, .00000,
3691 + .00433, .00070, -.00122, .00000, .00000,
3692 + .00000, .00000, .00000,
3693 + .00392, .00063, -.00106, .00000, .00000,
3694 + .00000, .00000, .00000 /
3695 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/
3696 + .00356, .00056, -.00093, .00000, .00000,
3697 + .00000, .00000, .00000,
3698 + .00323, .00052, -.00082, .00000, .00000,
3699 + .00000, .00000, .00000,
3700 + .00296, .00047, -.00073, .00000, .00000,
3701 + .00000, .00000, .00000,
3702 + .00272, .00044, -.00065, .00000, .00000,
3703 + .00000, .00000, .00000,
3704 + .00250, .00040, -.00058, .00000, .00000,
3705 + .00000, .00000, .00000,
3706 + .00231, .00037, -.00052, .00000, .00000,
3707 + .00000, .00000, .00000,
3708 + .00215, .00034, -.00048, .00000, .00000,
3709 + .00000, .00000, .00000,
3710 + .00200, .00031, -.00043, .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 + .00187, .00030, -.00039, .00000, .00000,
3714 + .00000, .00000, .00000,
3715 + .00174, .00027, -.00036, .00000, .00000,
3716 + .00000, .00000, .00000,
3717 + .00163, .00026, -.00032, .00000, .00000,
3718 + .00000, .00000, .00000,
3719 + .00153, .00023, -.00030, .00000, .00000,
3720 + .00000, .00000, .00000,
3721 + .00143, .00022, -.00027, .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 + .00785, .00104, -.00553, .00000, .00000,
3725 + .00000, .00000, .00000,
3726 + .00662, .00086, -.00454, .00000, .00000,
3727 + .00000, .00000, .00000,
3728 + .00518, .00067, -.00342, .00000, .00000,
3729 + .00000, .00000, .00000,
3730 + .00438, .00057, -.00282, .00000, .00000,
3731 + .00000, .00000, .00000,
3732 + .00367, .00048, -.00230, .00000, .00000,
3733 + .00000, .00000, .00000,
3734 + .00317, .00039, -.00193, .00000, .00000,
3735 + .00000, .00000, .00000,
3736 + .00277, .00036, -.00166, .00000, .00000,
3737 + .00000, .00000, .00000,
3738 + .00238, .00031, -.00139, .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 + .00211, .00026, -.00120, .00000, .00000,
3742 + .00000, .00000, .00000,
3743 + .00189, .00023, -.00105, .00000, .00000,
3744 + .00000, .00000, .00000,
3745 + .00172, .00021, -.00095, .00000, .00000,
3746 + .00000, .00000, .00000,
3747 + .00142, .00018, -.00076, .00000, .00000,
3748 + .00000, .00000, .00000,
3749 + .00122, .00015, -.00063, .00000, .00000,
3750 + .00000, .00000, .00000,
3751 + .00102, .00013, -.00052, .00000, .00000,
3752 + .00000, .00000, .00000,
3753 + .00086, .00011, -.00042, .00000, .00000,
3754 + .00000, .00000, .00000,
3755 + .00074, .00009, -.00035, .00000, .00000,
3756 + .00000, .00000, .00000 /
3757 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/
3758 + .00062, .00007, -.00028, .00000, .00000,
3759 + .00000, .00000, .00000,
3760 + .00056, .00007, -.00025, .00000, .00000,
3761 + .00000, .00000, .00000,
3762 + .00047, .00005, -.00020, .00000, .00000,
3763 + .00000, .00000, .00000,
3764 + .00041, .00005, -.00017, .00000, .00000,
3765 + .00000, .00000, .00000,
3766 + .00037, .00005, -.00015, .00000, .00000,
3767 + .00000, .00000, .00000,
3768 + .00032, .00003, -.00012, .00000, .00000,
3769 + .00000, .00000, .00000,
3770 + .00027, .00003, -.00010, .00000, .00000,
3771 + .00000, .00000, .00000,
3772 + .00024, .00003, -.00009, .00000, .00000,
3773 + .00000, .00000, .00000 /
3774 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
3775 + .00022, .00003, -.00008, .00000, .00000,
3776 + .00000, .00000, .00000,
3777 + .00019, .00003, -.00007, .00000, .00000,
3778 + .00000, .00000, .00000,
3779 + .00017, .00001, -.00006, .00000, .00000,
3780 + .00000, .00000, .00000,
3781 + .00016, .00001, -.00005, .00000, .00000,
3782 + .00000, .00000, .00000,
3783 + .00014, .00001, -.00004, .00000, .00000,
3784 + .00000, .00000, .00000,
3785 + .00012, .00001, -.00004, .00000, .00000,
3786 + .00000, .00000, .00000,
3787 + .00011, .00001, -.00003, .00000, .00000,
3788 + .00000, .00000, .00000,
3789 + .00010, .00001, -.00003, .00000, .00000,
3790 + .00000, .00000, .00000 /
3791 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
3792 + .00009, .00001, -.00003, .00000, .00000,
3793 + .00000, .00000, .00000,
3794 + .00008, .00001, -.00002, .00000, .00000,
3795 + .00000, .00000, .00000,
3796 + .00008, .00001, -.00002, .00000, .00000,
3797 + .00000, .00000, .00000,
3798 + .00007, .00001, -.00002, .00000, .00000,
3799 + .00000, .00000, .00000,
3800 + .00007, .00001, -.00002, .00000, .00000,
3801 + .00000, .00000, .00000 /
3802 data xx/1d-5,2d-5,4d-5,6d-5,8d-5,
3803 . 1d-4,2d-4,4d-4,6d-4,8d-4,
3804 . 1d-3,2d-3,4d-3,6d-3,8d-3,
3805 . 1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2,
3806 . .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0,
3807 . .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0,
3808 . .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0,
3810 data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1,
3811 . 1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2,
3812 . 1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4,
3813 . 1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6,
3814 . 1.8d6,3.2d6,5.6d6,1d7/
3815 data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/
3816 data n0/3,4,5,9,9,9,9,9/
3817 DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
3822 if(init.ne.0) goto 10
3823 C open(unit=1,file='cor08dis.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