2 subroutine sfmrs_99d10(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 + .00644, .00286, 1.15921, .88630, .00000,
12 + .00000, .47638, .89841,
13 + .00657, .00291, 2.40762, .92722, .00000,
14 + .00000, .52217, .93940,
15 + .00677, .00300, 4.86269, 1.01168, .01974,
16 + .00000, .61359, 1.02395,
17 + .00692, .00306, 7.27698, 1.09045, .02401,
18 + .00000, .69728, 1.10277,
19 + .00707, .00313, 10.27009, 1.19170, .05075,
20 + .00000, .80353, 1.20408,
21 + .00720, .00318, 13.20634, 1.29316, .17049,
22 + .00000, .90916, 1.30556,
23 + .00734, .00324, 16.50387, 1.40290, .30737,
24 + .00000, 1.02282, 1.41534,
25 + .00748, .00331, 20.57943, 1.53355, .45373,
26 + .00000, 1.15754, 1.54601 /
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 + .00761, .00337, 24.54548, 1.66008, .58832,
29 + .00000, 1.28755, 1.67255,
30 + .00773, .00342, 28.80896, 1.79382, .73158,
31 + .00000, 1.42459, 1.80631,
32 + .00782, .00347, 32.54614, 1.90791, .85644,
33 + .00000, 1.54124, 1.92039,
34 + .00803, .00357, 41.44735, 2.17811, 1.14458,
35 + .00000, 1.81679, 2.19060,
36 + .00821, .00365, 49.33257, 2.43853, 1.41937,
37 + .36708, 2.08170, 2.45102,
38 + .00842, .00376, 59.65310, 2.76356, 1.76270,
39 + .76286, 2.41162, 2.77604,
40 + .00864, .00387, 71.79965, 3.14034, 2.15960,
41 + 1.17656, 2.79336, 3.15280,
42 + .00884, .00396, 84.08485, 3.51778, 2.55634,
43 + 1.59038, 3.17519, 3.53022 /
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 + .00905, .00406, 97.76816, 3.93547, 2.99497,
46 + 2.04602, 3.59720, 3.94788,
47 + .00923, .00414, 110.07838, 4.31095, 3.38688,
48 + 2.44869, 3.97620, 4.32335,
49 + .00944, .00425, 126.17461, 4.80242, 3.89766,
50 + 2.97160, 4.47184, 4.81477,
51 + .00964, .00434, 141.58936, 5.27234, 4.38674,
52 + 3.47452, 4.94536, 5.28466,
53 + .00981, .00444, 156.71695, 5.73356, 4.86682,
54 + 3.96848, 5.40983, 5.74585,
55 + .01004, .00456, 177.06027, 6.35902, 5.51296,
56 + 4.62725, 6.03932, 6.37125,
57 + .01025, .00467, 197.58642, 6.99196, 6.16724,
58 + 5.29607, 6.67598, 7.00415,
59 + .01047, .00477, 218.14121, 7.62706, 6.82495,
60 + 5.97059, 7.31447, 7.63921 /
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 + .01067, .00488, 239.58248, 8.29814, 7.51443,
63 + 6.67114, 7.98889, 8.31023,
64 + .01087, .00498, 261.80860, 8.99615, 8.23303,
65 + 7.40406, 8.69010, 9.00820,
66 + .01108, .00508, 283.91061, 9.69455, 8.95158,
67 + 8.13683, 9.39146, 9.70655,
68 + .01127, .00518, 305.47799, 10.38335, 9.65762,
69 + 8.85422, 10.08302, 10.39530,
70 + .01145, .00528, 328.26726, 11.11291, 10.40737,
71 + 9.61879, 10.81529, 11.12481,
72 + .01164, .00538, 351.22649, 11.85802, 11.16915,
73 + 10.39142, 11.56303, 11.86987,
74 + .01183, .00548, 374.15233, 12.60304, 11.93334,
75 + 11.16985, 12.31052, 12.61485,
76 + .01200, .00556, 396.20929, 13.32985, 12.67524,
77 + 11.92178, 13.03961, 13.34159 /
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 + .01218, .00566, 419.40595, 14.09609, 13.45915,
80 + 12.71862, 13.80814, 14.10780,
81 + .01236, .00575, 442.78589, 14.87669, 14.25583,
82 + 13.52662, 14.59096, 14.88834,
83 + .01253, .00584, 465.76421, 15.64879, 15.04377,
84 + 14.32590, 15.36515, 15.66041,
85 + .01269, .00593, 488.24113, 16.40782, 15.81886,
86 + 15.11304, 16.12613, 16.41940,
87 + .01286, .00602, 511.21274, 17.19330, 16.61826,
88 + 15.92222, 16.91356, 17.20483 /
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.06964, .75187, .00000,
91 + .00000, .40415, .75898,
92 + .00893, .00403, 2.19535, .78957, .00000,
93 + .00000, .44561, .79671,
94 + .00920, .00415, 4.35972, .86402, .01802,
95 + .00000, .52547, .87121,
96 + .00940, .00424, 6.44656, .93172, .02149,
97 + .00000, .59698, .93893,
98 + .00962, .00434, 8.99044, 1.01714, .04392,
99 + .00000, .68625, 1.02438,
100 + .00981, .00443, 11.44899, 1.10164, .14346,
101 + .00000, .77397, 1.10890,
102 + .00999, .00452, 14.17711, 1.19223, .25664,
103 + .00000, .86759, 1.19950,
104 + .01017, .00461, 17.50962, 1.29921, .37624,
105 + .00000, .97769, 1.30648 /
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 + .01034, .00469, 20.71570, 1.40191, .48524,
108 + .00000, 1.08308, 1.40919,
109 + .01052, .00477, 24.12906, 1.50974, .60046,
110 + .00000, 1.19344, 1.51702,
111 + .01064, .00483, 27.09760, 1.60127, .70031,
112 + .00000, 1.28695, 1.60857,
113 + .01093, .00497, 34.09254, 1.81629, .92877,
114 + .00000, 1.50608, 1.82359,
115 + .01118, .00510, 40.18456, 2.02165, 1.14454,
116 + .28878, 1.71488, 2.02895,
117 + .01147, .00524, 48.07370, 2.27579, 1.41175,
118 + .59731, 1.97278, 2.28308,
119 + .01177, .00539, 57.24030, 2.56773, 1.71775,
120 + .91609, 2.26852, 2.57501,
121 + .01205, .00552, 66.40055, 2.85768, 2.02096,
122 + 1.23211, 2.56186, 2.86495 /
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 + .01233, .00567, 76.49078, 3.17602, 2.35350,
125 + 1.57714, 2.88351, 3.18328,
126 + .01256, .00579, 85.47780, 3.46011, 2.64840,
127 + 1.87969, 3.17030, 3.46736,
128 + .01285, .00594, 97.11393, 3.82927, 3.02994,
129 + 2.26964, 3.54265, 3.83650,
130 + .01311, .00608, 108.15137, 4.17975, 3.39272,
131 + 2.64206, 3.89591, 4.18697,
132 + .01335, .00620, 118.89272, 4.52160, 3.74664,
133 + 3.00557, 4.24024, 4.52880,
134 + .01366, .00636, 133.20189, 4.98188, 4.21951,
135 + 3.48671, 4.70361, 4.98905,
136 + .01396, .00651, 147.50503, 5.44433, 4.69501,
137 + 3.97180, 5.16891, 5.45150,
138 + .01423, .00666, 161.70784, 5.90538, 5.17001,
139 + 4.45800, 5.63257, 5.91251 /
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 + .01452, .00681, 176.39184, 6.38923, 5.66448,
142 + 4.95928, 6.11897, 6.39634,
143 + .01480, .00696, 191.49708, 6.88948, 6.17687,
144 + 5.48079, 6.62167, 6.89656,
145 + .01507, .00710, 206.40661, 7.38708, 6.68631,
146 + 5.99923, 7.12156, 7.39415,
147 + .01532, .00723, 220.84823, 7.87504, 7.18400,
148 + 6.50378, 7.61164, 7.88209,
149 + .01557, .00737, 236.01473, 8.38934, 7.71004,
150 + 7.03912, 8.12802, 8.39636,
151 + .01583, .00750, 251.18331, 8.91163, 8.24145,
152 + 7.57688, 8.65233, 8.91863,
153 + .01608, .00763, 266.24741, 9.43153, 8.77233,
154 + 8.11654, 9.17412, 9.43851,
155 + .01631, .00775, 280.64375, 9.93611, 9.28500,
156 + 8.63496, 9.68045, 9.94306 /
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 + .01655, .00788, 295.70942, 10.46589, 9.82462,
159 + 9.18236, 10.21199, 10.47283,
160 + .01678, .00800, 310.80340, 11.00307, 10.37047,
161 + 9.73477, 10.75087, 11.00998,
162 + .01701, .00813, 325.56158, 11.53219, 10.90814,
163 + 10.27902, 11.28160, 11.53908,
164 + .01723, .00825, 339.93023, 12.05035, 11.43510,
165 + 10.81309, 11.80128, 12.05723,
166 + .01745, .00836, 354.53256, 12.58425, 11.97617,
167 + 11.35957, 12.33667, 12.59110 /
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, .98611, .63807, .00000,
170 + .00000, .34343, .64172,
171 + .01212, .00557, 2.00106, .67247, .00000,
172 + .00000, .38075, .67614,
173 + .01250, .00574, 3.90794, .73789, .01663,
174 + .00000, .45034, .74157,
175 + .01277, .00588, 5.71032, .79594, .01935,
176 + .00000, .51134, .79963,
177 + .01307, .00603, 7.86979, .86786, .03807,
178 + .00000, .58622, .87155,
179 + .01333, .00615, 9.92496, .93808, .12069,
180 + .00000, .65892, .94177,
181 + .01358, .00627, 12.17764, 1.01270, .21417,
182 + .00000, .73586, 1.01639,
183 + .01384, .00641, 14.89659, 1.10006, .31176,
184 + .00000, .82563, 1.10376 /
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 + .01407, .00653, 17.48186, 1.18319, .39990,
187 + .00000, .91082, 1.18689,
188 + .01430, .00663, 20.20714, 1.26987, .49241,
189 + .00000, .99943, 1.27357,
190 + .01448, .00673, 22.55831, 1.34308, .57214,
191 + .00000, 1.07416, 1.34678,
192 + .01487, .00693, 28.03826, 1.51362, .75295,
193 + .00000, 1.24784, 1.51732,
194 + .01521, .00711, 32.72708, 1.67499, .92208,
195 + .22658, 1.41184, 1.67870,
196 + .01560, .00731, 38.73340, 1.87295, 1.12962,
197 + .46687, 1.61267, 1.87665,
198 + .01601, .00752, 45.62123, 2.09826, 1.36506,
199 + .71224, 1.84088, 2.10195,
200 + .01639, .00771, 52.41979, 2.32010, 1.59627,
201 + .95329, 2.06529, 2.32378 /
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 + .01677, .00792, 59.82397, 2.56169, 1.84776,
204 + 1.21423, 2.30941, 2.56537,
205 + .01709, .00809, 66.35098, 2.77568, 2.06910,
206 + 1.44123, 2.52544, 2.77935,
207 + .01749, .00830, 74.71708, 3.05170, 2.35333,
208 + 1.73158, 2.80389, 3.05537,
209 + .01784, .00848, 82.57549, 3.31187, 2.62167,
210 + 2.00691, 3.06617, 3.31554,
211 + .01817, .00866, 90.15766, 3.56403, 2.88178,
212 + 2.27392, 3.32021, 3.56769,
213 + .01859, .00888, 100.16024, 3.90106, 3.22676,
214 + 2.62463, 3.65960, 3.90472,
215 + .01899, .00908, 110.06274, 4.23724, 3.57118,
216 + 2.97572, 3.99794, 4.24090,
217 + .01937, .00929, 119.81132, 4.57020, 3.91305,
218 + 3.32538, 4.33288, 4.57384 /
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 + .01975, .00950, 129.79740, 4.91717, 4.26636,
221 + 3.68317, 4.68179, 4.92082,
222 + .02012, .00969, 139.98956, 5.27374, 4.63035,
223 + 4.05328, 5.04022, 5.27737,
224 + .02048, .00988, 149.97282, 5.62632, 4.99012,
225 + 4.41906, 5.39453, 5.62995,
226 + .02082, .01007, 159.56854, 5.97003, 5.33950,
227 + 4.77287, 5.73985, 5.97365,
228 + .02117, .01026, 169.58317, 6.33049, 5.70707,
229 + 5.14658, 6.10189, 6.33411,
230 + .02151, .01044, 179.52271, 6.69442, 6.07614,
231 + 5.51962, 6.46736, 6.69804,
232 + .02184, .01062, 189.33952, 7.05508, 6.44332,
233 + 5.89252, 6.82944, 7.05868,
234 + .02215, .01080, 198.65490, 7.40322, 6.79593,
235 + 6.24868, 7.17893, 7.40682 /
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 + .02247, .01097, 208.35473, 7.76725, 7.16567,
238 + 6.62336, 7.54429, 7.77085,
239 + .02279, .01114, 218.01134, 8.13458, 7.53784,
240 + 6.99958, 7.91292, 8.13818,
241 + .02309, .01130, 227.40339, 8.49487, 7.90292,
242 + 7.36873, 8.27443, 8.49848,
243 + .02338, .01146, 236.50350, 8.84634, 8.25940,
244 + 7.72966, 8.62705, 8.84994,
245 + .02367, .01162, 245.69586, 9.20684, 8.62371,
246 + 8.09718, 8.98869, 9.21043 /
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 + .01420, .00658, .93972, .57988, .00000,
249 + .00000, .31261, .58213,
250 + .01449, .00673, 1.89510, .61236, .00000,
251 + .00000, .34760, .61460,
252 + .01494, .00695, 3.66528, .67287, .01597,
253 + .00000, .41171, .67511,
254 + .01528, .00712, 5.31902, .72583, .01828,
255 + .00000, .46719, .72808,
256 + .01564, .00730, 7.27999, .79077, .03505,
257 + .00000, .53470, .79302,
258 + .01595, .00745, 9.12915, .85370, .10908,
259 + .00000, .59974, .85595,
260 + .01624, .00761, 11.14117, .92021, .19257,
261 + .00000, .66824, .92245,
262 + .01655, .00778, 13.55232, .99769, .27913,
263 + .00000, .74778, .99993 /
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 + .01684, .00792, 15.82880, 1.07102, .35690,
266 + .00000, .82288, 1.07326,
267 + .01711, .00806, 18.21441, 1.14718, .43817,
268 + .00000, .90068, 1.14941,
269 + .01733, .00817, 20.26268, 1.21130, .50799,
270 + .00000, .96611, 1.21354,
271 + .01779, .00841, 25.00559, 1.35992, .66549,
272 + .00000, 1.11742, 1.36217,
273 + .01820, .00863, 29.02098, 1.49980, .81199,
274 + .19622, 1.25953, 1.50203,
275 + .01868, .00887, 34.13096, 1.67047, .99081,
276 + .40367, 1.43266, 1.67271,
277 + .01916, .00914, 39.94489, 1.86367, 1.19250,
278 + .61404, 1.62833, 1.86591,
279 + .01962, .00937, 45.64119, 2.05291, 1.38954,
280 + .81961, 1.81976, 2.05515 /
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 + .02008, .00962, 51.80277, 2.25800, 1.60281,
283 + 1.04101, 2.02701, 2.26025,
284 + .02047, .00983, 57.20083, 2.43886, 1.78967,
285 + 1.23272, 2.20961, 2.44110,
286 + .02094, .01008, 64.07807, 2.67110, 2.02855,
287 + 1.47682, 2.44392, 2.67336,
288 + .02136, .01030, 70.50017, 2.88910, 2.25311,
289 + 1.70730, 2.66371, 2.89135,
290 + .02176, .01052, 76.66462, 3.09957, 2.46998,
291 + 1.92998, 2.87579, 3.10182,
292 + .02225, .01078, 84.74927, 3.37966, 2.75632,
293 + 2.22111, 3.15787, 3.38191,
294 + .02272, .01105, 92.70690, 3.65785, 3.04099,
295 + 2.51131, 3.43790, 3.66011,
296 + .02317, .01128, 100.50042, 3.93229, 3.32247,
297 + 2.79926, 3.71401, 3.93454 /
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 + .02363, .01153, 108.43895, 4.21709, 3.61211,
300 + 3.09256, 4.00046, 4.21935,
301 + .02407, .01178, 116.50323, 4.50870, 3.90945,
302 + 3.39491, 4.29365, 4.51096,
303 + .02450, .01201, 124.36579, 4.79604, 4.20234,
304 + 3.69270, 4.58246, 4.79830,
305 + .02491, .01223, 131.88777, 5.07516, 4.48574,
306 + 3.97968, 4.86294, 5.07742,
307 + .02531, .01245, 139.70894, 5.36702, 4.78306,
308 + 4.28198, 5.15615, 5.36929,
309 + .02572, .01268, 147.43514, 5.66067, 5.08052,
310 + 4.58260, 5.45110, 5.66293,
311 + .02612, .01289, 155.04083, 5.95088, 5.37573,
312 + 4.88242, 5.74254, 5.95316,
313 + .02648, .01310, 162.22683, 6.23014, 5.65826,
314 + 5.16775, 6.02294, 6.23242 /
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 + .02686, .01330, 169.68690, 6.52144, 5.95385,
317 + 5.46729, 6.31536, 6.52373,
318 + .02723, .01351, 177.08502, 6.81451, 6.25051,
319 + 5.76715, 6.60954, 6.81681,
320 + .02760, .01371, 184.25737, 7.10124, 6.54079,
321 + 6.06065, 6.89731, 7.10354,
322 + .02794, .01390, 191.18652, 7.38031, 6.82360,
323 + 6.34698, 7.17735, 7.38261,
324 + .02829, .01409, 198.15988, 7.66577, 7.11180,
325 + 6.63769, 7.46377, 7.66807 /
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, .00753, .90796, .54197, .00000,
328 + .00000, .29265, .54345,
329 + .01646, .00770, 1.82327, .57310, .00000,
330 + .00000, .32602, .57457,
331 + .01696, .00797, 3.50225, .63026, .01558,
332 + .00000, .38642, .63174,
333 + .01735, .00816, 5.05775, .67985, .01759,
334 + .00000, .43830, .68133,
335 + .01775, .00837, 6.88852, .74021, .03307,
336 + .00000, .50093, .74167,
337 + .01810, .00855, 8.60351, .79837, .10150,
338 + .00000, .56101, .79984,
339 + .01845, .00873, 10.45964, .85961, .17853,
340 + .00000, .62403, .86108,
341 + .01881, .00891, 12.67249, .93070, .25797,
342 + .00000, .69698, .93217 /
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 + .01913, .00908, 14.75115, .99773, .32908,
345 + .00000, .76558, .99920,
346 + .01944, .00925, 16.92014, 1.06713, .40317,
347 + .00000, .83646, 1.06859,
348 + .01968, .00937, 18.77601, 1.12543, .46667,
349 + .00000, .89593, 1.12690,
350 + .02021, .00966, 23.05325, 1.26011, .60941,
351 + .00000, 1.03302, 1.26158,
352 + .02068, .00991, 26.64686, 1.38634, .74161,
353 + .17695, 1.16126, 1.38782,
354 + .02122, .01019, 31.19819, 1.53981, .90238,
355 + .36378, 1.31692, 1.54129,
356 + .02177, .01049, 36.34717, 1.71284, 1.08298,
357 + .55230, 1.49216, 1.71431,
358 + .02228, .01076, 41.36501, 1.88169, 1.25874,
359 + .73581, 1.66295, 1.88317 /
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 + .02281, .01105, 46.76607, 2.06405, 1.44834,
362 + .93277, 1.84725, 2.06554,
363 + .02325, .01129, 51.47665, 2.22435, 1.61389,
364 + 1.10270, 2.00910, 2.22584,
365 + .02379, .01157, 57.45177, 2.42956, 1.82487,
366 + 1.31839, 2.21615, 2.43105,
367 + .02426, .01183, 63.00780, 2.62157, 2.02260,
368 + 1.52144, 2.40977, 2.62308,
369 + .02471, .01208, 68.32113, 2.80646, 2.21305,
370 + 1.71708, 2.59609, 2.80797,
371 + .02528, .01238, 75.25975, 3.05175, 2.46369,
372 + 1.97201, 2.84316, 3.05326,
373 + .02582, .01268, 82.06081, 3.29459, 2.71209,
374 + 2.22534, 3.08764, 3.29612,
375 + .02632, .01296, 88.69679, 3.53351, 2.95705,
376 + 2.47602, 3.32806, 3.53504 /
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 + .02683, .01324, 95.42850, 3.78069, 3.20832,
379 + 2.73053, 3.57670, 3.78222,
380 + .02734, .01351, 102.24357, 4.03313, 3.46563,
381 + 2.99227, 3.83056, 4.03468,
382 + .02782, .01378, 108.86595, 4.28123, 3.71844,
383 + 3.24939, 4.07998, 4.28280,
384 + .02828, .01404, 115.17984, 4.52163, 3.96242,
385 + 3.49651, 4.32159, 4.52320,
386 + .02875, .01429, 121.72715, 4.77248, 4.21789,
387 + 3.75634, 4.57363, 4.77406,
388 + .02920, .01455, 128.17264, 5.02422, 4.47279,
389 + 4.01400, 4.82654, 5.02581,
390 + .02964, .01479, 134.50280, 5.27254, 4.72532,
391 + 4.27055, 5.07595, 5.27414,
392 + .03006, .01502, 140.46421, 5.51094, 4.96642,
393 + 4.51409, 5.31535, 5.51254 /
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 + .03048, .01526, 146.63986, 5.75917, 5.21825,
396 + 4.76934, 5.56460, 5.76079,
397 + .03091, .01549, 152.74671, 6.00839, 5.47044,
398 + 5.02431, 5.81481, 6.01002,
399 + .03131, .01571, 158.65339, 6.25179, 5.71678,
400 + 5.27343, 6.05913, 6.25343,
401 + .03170, .01593, 164.34764, 6.48828, 5.95639,
402 + 5.51609, 6.29648, 6.48992,
403 + .03209, .01615, 170.06252, 6.72970, 6.20006,
404 + 5.76192, 6.53877, 6.73136 /
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, .88425, .51437, .00000,
407 + .00000, .27813, .51534,
408 + .01815, .00855, 1.76971, .54443, .00000,
409 + .00000, .31029, .54541,
410 + .01872, .00885, 3.38104, .59911, .01531,
411 + .00000, .36795, .60008,
412 + .01915, .00907, 4.86420, .64620, .01708,
413 + .00000, .41713, .64717,
414 + .01960, .00931, 6.59965, .70318, .03161,
415 + .00000, .47623, .70415,
416 + .01999, .00951, 8.21699, .75788, .09597,
417 + .00000, .53268, .75884,
418 + .02035, .00971, 9.96017, .81529, .16830,
419 + .00000, .59174, .81626,
420 + .02076, .00992, 12.02985, .88175, .24260,
421 + .00000, .65990, .88273 /
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 + .02112, .01010, 13.96625, .94424, .30890,
424 + .00000, .72383, .94521,
425 + .02146, .01028, 15.98002, 1.00877, .37784,
426 + .00000, .78974, 1.00975,
427 + .02173, .01043, 17.69841, 1.06290, .43681,
428 + .00000, .84494, 1.06389,
429 + .02232, .01074, 21.64418, 1.18759, .56899,
430 + .00000, .97183, 1.18857,
431 + .02284, .01103, 24.93999, 1.30408, .69104,
432 + .16318, 1.09019, 1.30508,
433 + .02342, .01134, 29.09822, 1.44531, .83899,
434 + .33538, 1.23342, 1.44631,
435 + .02405, .01168, 33.78132, 1.60404, 1.00469,
436 + .50848, 1.39418, 1.60504,
437 + .02461, .01199, 38.32592, 1.75849, 1.16547,
438 + .67647, 1.55043, 1.75951 /
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 + .02519, .01229, 43.19866, 1.92485, 1.33842,
441 + .85625, 1.71856, 1.92587,
442 + .02567, .01256, 47.43348, 2.07071, 1.48906,
443 + 1.01097, 1.86585, 2.07175,
444 + .02626, .01289, 52.78640, 2.25697, 1.68055,
445 + 1.20685, 2.05381, 2.25802,
446 + .02679, .01318, 57.74733, 2.43085, 1.85961,
447 + 1.39081, 2.22915, 2.43190,
448 + .02728, .01344, 62.47764, 2.59792, 2.03168,
449 + 1.56767, 2.39754, 2.59898,
450 + .02791, .01379, 68.63394, 2.81900, 2.25757,
451 + 1.79753, 2.62025, 2.82008,
452 + .02850, .01411, 74.64829, 3.03736, 2.48092,
453 + 2.02542, 2.84013, 3.03846,
454 + .02905, .01442, 80.49935, 3.25171, 2.70069,
455 + 2.25044, 3.05586, 3.25282 /
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 + .02962, .01473, 86.41550, 3.47297, 2.92557,
458 + 2.47831, 3.27846, 3.47409,
459 + .03017, .01504, 92.38881, 3.69846, 3.15540,
460 + 2.71219, 3.50524, 3.69960,
461 + .03071, .01534, 98.17788, 3.91965, 3.38076,
462 + 2.94148, 3.72764, 3.92080,
463 + .03121, .01561, 103.68221, 4.13353, 3.59783,
464 + 3.16142, 3.94263, 4.13470,
465 + .03172, .01590, 109.37799, 4.35634, 3.82473,
466 + 3.39229, 4.16653, 4.35752,
467 + .03222, .01618, 114.96969, 4.57950, 4.05067,
468 + 3.62075, 4.39076, 4.58069,
469 + .03271, .01645, 120.45120, 4.79930, 4.27421,
470 + 3.84794, 4.61156, 4.80051,
471 + .03316, .01671, 125.60004, 5.00992, 4.48719,
472 + 4.06315, 4.82312, 5.01115 /
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 + .03363, .01697, 130.92490, 5.22894, 4.70939,
475 + 4.28846, 5.04306, 5.23018,
476 + .03409, .01722, 136.17852, 5.44847, 4.93152,
477 + 4.51311, 5.26349, 5.44973,
478 + .03454, .01747, 141.25046, 5.66255, 5.14820,
479 + 4.73230, 5.47842, 5.66383,
480 + .03496, .01771, 146.13185, 5.87029, 5.35868,
481 + 4.94554, 5.68696, 5.87158,
482 + .03540, .01795, 151.01980, 6.08204, 5.57239,
483 + 5.16121, 5.89950, 6.08333 /
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 + .02419, .01165, .81414, .43800, .00000,
486 + .00000, .23846, .43817,
487 + .02470, .01193, 1.61363, .46478, .00000,
488 + .00000, .26689, .46497,
489 + .02548, .01233, 3.03118, .51208, .01470,
490 + .00000, .31653, .51227,
491 + .02606, .01265, 4.30967, .55196, .01574,
492 + .00000, .35806, .55216,
493 + .02667, .01298, 5.77773, .59942, .02751,
494 + .00000, .40718, .59962,
495 + .02720, .01327, 7.12310, .64439, .08052,
496 + .00000, .45352, .64461,
497 + .02771, .01354, 8.55386, .69117, .13983,
498 + .00000, .50158, .69139,
499 + .02826, .01384, 10.23060, .74484, .19997,
500 + .00000, .55659, .74507 /
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 + .02874, .01410, 11.77924, .79483, .25316,
503 + .00000, .60772, .79507,
504 + .02920, .01436, 13.37247, .84608, .30807,
505 + .00000, .66004, .84634,
506 + .02957, .01457, 14.72028, .88886, .35477,
507 + .00000, .70365, .88912,
508 + .03037, .01500, 17.77885, .98651, .45854,
509 + .00000, .80303, .98681,
510 + .03107, .01540, 20.28536, 1.07688, .55339,
511 + .12597, .89482, 1.07719,
512 + .03188, .01584, 23.40845, 1.18542, .66733,
513 + .25930, 1.00493, 1.18574,
514 + .03271, .01631, 26.87546, 1.30621, .79367,
515 + .39170, 1.12731, 1.30657,
516 + .03348, .01674, 30.19462, 1.42266, .91512,
517 + .51900, 1.24516, 1.42305 /
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 + .03427, .01718, 33.70937, 1.54705, 1.04464,
520 + .65403, 1.37091, 1.54746,
521 + .03492, .01754, 36.72932, 1.65523, 1.15654,
522 + .76928, 1.48020, 1.65568,
523 + .03572, .01799, 40.50425, 1.79231, 1.29767,
524 + .91403, 1.61859, 1.79278,
525 + .03644, .01839, 43.96534, 1.91930, 1.42862,
526 + 1.04894, 1.74672, 1.91980,
527 + .03709, .01877, 47.23445, 2.04049, 1.55365,
528 + 1.17779, 1.86893, 2.04102,
529 + .03794, .01924, 51.44261, 2.19964, 1.71645,
530 + 1.34384, 2.02934, 2.20020,
531 + .03874, .01969, 55.51021, 2.35561, 1.87619,
532 + 1.50724, 2.18647, 2.35620,
533 + .03949, .02011, 59.43000, 2.50766, 2.03231,
534 + 1.66749, 2.33959, 2.50828 /
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 + .04025, .02054, 63.35131, 2.66340, 2.19079,
537 + 1.82843, 2.49638, 2.66407,
538 + .04099, .02096, 67.27637, 2.82113, 2.35176,
539 + 1.99262, 2.65510, 2.82182,
540 + .04170, .02137, 71.04786, 2.97487, 2.50859,
541 + 2.15256, 2.80977, 2.97559,
542 + .04237, .02175, 74.60186, 3.12257, 2.65866,
543 + 2.30495, 2.95833, 3.12332,
544 + .04305, .02213, 78.25466, 3.27564, 2.81477,
545 + 2.46416, 3.11225, 3.27642,
546 + .04373, .02252, 81.80811, 3.42796, 2.96916,
547 + 2.62060, 3.26540, 3.42878,
548 + .04437, .02288, 85.27114, 3.57730, 3.12125,
549 + 2.77552, 3.41551, 3.57815,
550 + .04498, .02323, 88.49607, 3.71955, 3.26526,
551 + 2.92133, 3.55848, 3.72043 /
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 + .04561, .02359, 91.81332, 3.86683, 3.41488,
554 + 3.07338, 3.70648, 3.86774,
555 + .04622, .02393, 95.06154, 4.01368, 3.56365,
556 + 3.22415, 3.85402, 4.01462,
557 + .04681, .02427, 98.17837, 4.15624, 3.70812,
558 + 3.37060, 3.99723, 4.15720,
559 + .04737, .02458, 101.16196, 4.29398, 3.84789,
560 + 3.51251, 4.13560, 4.29498,
561 + .04794, .02491, 104.12711, 4.43368, 3.98903,
562 + 3.65522, 4.27591, 4.43470 /
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 + .03305, .01633, .75212, .37461, .00000,
565 + .00000, .20613, .37487,
566 + .03374, .01670, 1.47542, .39809, .00000,
567 + .00000, .23095, .39838,
568 + .03478, .01727, 2.72150, .43845, .01442,
569 + .00000, .27322, .43878,
570 + .03557, .01771, 3.82201, .47184, .01467,
571 + .00000, .30794, .47220,
572 + .03640, .01816, 5.06053, .51096, .02395,
573 + .00000, .34840, .51134,
574 + .03710, .01856, 6.17534, .54757, .06727,
575 + .00000, .38611, .54799,
576 + .03779, .01895, 7.34408, .58531, .11556,
577 + .00000, .42490, .58575,
578 + .03853, .01937, 8.69479, .62824, .16389,
579 + .00000, .46890, .62872 /
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 + .03918, .01974, 9.92529, .66785, .20622,
582 + .00000, .50942, .66836,
583 + .03981, .02009, 11.17674, .70817, .24962,
584 + .00000, .55061, .70871,
585 + .04031, .02038, 12.22572, .74165, .28633,
586 + .00000, .58475, .74220,
587 + .04139, .02099, 14.57653, .81739, .36718,
588 + .00000, .66188, .81799,
589 + .04234, .02154, 16.46521, .88678, .44034,
590 + .09567, .73244, .88743,
591 + .04342, .02216, 18.78547, .96935, .52740,
592 + .19826, .81626, .97006,
593 + .04455, .02280, 21.32188, 1.06032, .62295,
594 + .29885, .90851, 1.06110,
595 + .04559, .02340, 23.71514, 1.14721, .71394,
596 + .39466, .99651, 1.14804 /
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 + .04664, .02401, 26.21585, 1.23919, .81011,
599 + .49537, 1.08959, 1.24006,
600 + .04753, .02451, 28.33830, 1.31853, .89251,
601 + .58059, 1.16983, 1.31946,
602 + .04860, .02513, 30.95964, 1.41825, .99557,
603 + .68674, 1.27060, 1.41923,
604 + .04957, .02569, 33.33548, 1.50990, 1.09046,
605 + .78492, 1.36318, 1.51094,
606 + .05045, .02620, 35.55685, 1.59677, 1.18042,
607 + .87802, 1.45087, 1.59786,
608 + .05157, .02685, 38.38230, 1.70990, 1.29656,
609 + .99698, 1.56501, 1.71105,
610 + .05264, .02746, 41.08218, 1.81990, 1.40963,
611 + 1.11311, 1.67595, 1.82110,
612 + .05366, .02804, 43.65758, 1.92635, 1.51935,
613 + 1.22621, 1.78326, 1.92762 /
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 + .05466, .02863, 46.20367, 2.03453, 1.62980,
616 + 1.33881, 1.89227, 2.03585,
617 + .05566, .02921, 48.72850, 2.14333, 1.74124,
618 + 1.45295, 2.00189, 2.14472,
619 + .05660, .02976, 51.13197, 2.24869, 1.84912,
620 + 1.56341, 2.10800, 2.25014,
621 + .05750, .03028, 53.37441, 2.34922, 1.95162,
622 + 1.66790, 2.20923, 2.35072,
623 + .05841, .03080, 55.66261, 2.45286, 2.05768,
624 + 1.77651, 2.31355, 2.45441,
625 + .05931, .03131, 57.86554, 2.55528, 2.16183,
626 + 1.88244, 2.41663, 2.55689,
627 + .06016, .03181, 59.99917, 2.65520, 2.26397,
628 + 1.98691, 2.51719, 2.65687,
629 + .06097, .03227, 61.96654, 2.74978, 2.36003,
630 + 2.08453, 2.61234, 2.75149 /
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 + .06179, .03274, 63.97870, 2.84727, 2.45941,
633 + 2.18592, 2.71042, 2.84903,
634 + .06260, .03322, 65.93201, 2.94391, 2.55764,
635 + 2.28586, 2.80762, 2.94572,
636 + .06339, .03367, 67.79377, 3.03727, 2.65258,
637 + 2.38247, 2.90152, 3.03914,
638 + .06413, .03410, 69.56535, 3.12710, 2.74406,
639 + 2.47571, 2.99186, 3.12901,
640 + .06488, .03453, 71.31043, 3.21769, 2.83589,
641 + 2.56891, 3.08295, 3.21965 /
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 + .03974, .01994, .72282, .34291, .00000,
644 + .00000, .19024, .34356,
645 + .04055, .02038, 1.40579, .36444, .00000,
646 + .00000, .21297, .36513,
647 + .04178, .02107, 2.56049, .40092, .01435,
648 + .00000, .25116, .40169,
649 + .04271, .02161, 3.56725, .43079, .01412,
650 + .00000, .28223, .43160,
651 + .04368, .02217, 4.68602, .46549, .02203,
652 + .00000, .31812, .46635,
653 + .04453, .02264, 5.68174, .49775, .06031,
654 + .00000, .35138, .49865,
655 + .04535, .02312, 6.71629, .53083, .10293,
656 + .00000, .38540, .53178,
657 + .04622, .02361, 7.90152, .56828, .14522,
658 + .00000, .42380, .56926 /
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 + .04700, .02406, 8.97201, .60263, .18206,
661 + .00000, .45898, .60367,
662 + .04774, .02450, 10.05289, .63745, .21969,
663 + .00000, .49457, .63853,
664 + .04835, .02484, 10.95372, .66626, .25141,
665 + .00000, .52399, .66739,
666 + .04962, .02558, 12.95670, .73115, .32090,
667 + .00000, .59013, .73234,
668 + .05076, .02625, 14.54675, .79024, .38342,
669 + .08053, .65025, .79149,
670 + .05204, .02698, 16.48184, .86015, .45738,
671 + .16811, .72129, .86149,
672 + .05340, .02777, 18.57678, .93672, .53808,
673 + .25335, .79901, .93813,
674 + .05462, .02850, 20.53550, 1.00941, .61448,
675 + .33407, .87272, 1.01090 /
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 + .05589, .02922, 22.56501, 1.08597, .69479,
678 + .41845, .95027, 1.08753,
679 + .05693, .02983, 24.27419, 1.15167, .76325,
680 + .48949, 1.01678, 1.15330,
681 + .05821, .03058, 26.36907, 1.23383, .84844,
682 + .57752, 1.09989, 1.23555,
683 + .05935, .03124, 28.25396, 1.30900, .92651,
684 + .65856, 1.17588, 1.31079,
685 + .06039, .03186, 30.00499, 1.37993, 1.00021,
686 + .73508, 1.24755, 1.38179,
687 + .06173, .03264, 32.21513, 1.47183, 1.09486,
688 + .83234, 1.34038, 1.47378,
689 + .06300, .03338, 34.31164, 1.56075, 1.18657,
690 + .92683, 1.43015, 1.56278,
691 + .06419, .03408, 36.29862, 1.64644, 1.27516,
692 + 1.01846, 1.51661, 1.64853 /
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 + .06538, .03478, 38.24785, 1.73305, 1.36387,
695 + 1.10918, 1.60399, 1.73524,
696 + .06656, .03547, 40.16936, 1.81983, 1.45302,
697 + 1.20079, 1.69150, 1.82210,
698 + .06768, .03611, 41.98753, 1.90351, 1.53897,
699 + 1.28908, 1.77587, 1.90584,
700 + .06873, .03673, 43.67280, 1.98302, 1.62028,
701 + 1.37223, 1.85601, 1.98543,
702 + .06981, .03735, 45.38465, 2.06472, 1.70415,
703 + 1.45840, 1.93833, 2.06719,
704 + .07086, .03797, 47.02125, 2.14509, 1.78613,
705 + 1.54205, 2.01931, 2.14764,
706 + .07186, .03856, 48.60032, 2.22329, 1.86631,
707 + 1.62432, 2.09809, 2.22591,
708 + .07282, .03910, 50.04653, 2.29700, 1.94140,
709 + 1.70087, 2.17232, 2.29967 /
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 + .07378, .03967, 51.52039, 2.37276, 2.01888,
712 + 1.78018, 2.24863, 2.37551,
713 + .07473, .04022, 52.94282, 2.44760, 2.09518,
714 + 1.85804, 2.32397, 2.45041,
715 + .07565, .04075, 54.29262, 2.51968, 2.16870,
716 + 1.93310, 2.39655, 2.52256,
717 + .07652, .04126, 55.57205, 2.58886, 2.23936,
718 + 2.00536, 2.46619, 2.59180,
719 + .07741, .04177, 56.82463, 2.65836, 2.31002,
720 + 2.07730, 2.53615, 2.66136 /
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 + .04529, .02296, .70884, .32227, .00000,
723 + .00000, .18006, .32344,
724 + .04620, .02348, 1.36472, .34242, .00000,
725 + .00000, .20133, .34364,
726 + .04757, .02426, 2.45779, .37628, .01428,
727 + .00000, .23676, .37756,
728 + .04864, .02487, 3.40160, .40381, .01370,
729 + .00000, .26538, .40516,
730 + .04974, .02551, 4.44050, .43559, .02069,
731 + .00000, .29829, .43699,
732 + .05068, .02606, 5.35729, .46501, .05567,
733 + .00000, .32862, .46647,
734 + .05162, .02661, 6.30339, .49507, .09456,
735 + .00000, .35955, .49658,
736 + .05262, .02719, 7.38027, .52896, .13291,
737 + .00000, .39433, .53053 /
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 + .05348, .02770, 8.34661, .55995, .16621,
740 + .00000, .42607, .56156,
741 + .05433, .02819, 9.31708, .59125, .20010,
742 + .00000, .45810, .59292,
743 + .05501, .02859, 10.12240, .61711, .22862,
744 + .00000, .48451, .61881,
745 + .05646, .02944, 11.90269, .67507, .29084,
746 + .00000, .54364, .67687,
747 + .05774, .03019, 13.30308, .72765, .34659,
748 + .07089, .59717, .72952,
749 + .05920, .03106, 14.99522, .78959, .41228,
750 + .14896, .66018, .79156,
751 + .06072, .03195, 16.81389, .85711, .48361,
752 + .22450, .72876, .85918,
753 + .06211, .03277, 18.50262, .92096, .55085,
754 + .29574, .79356, .92311 /
755 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
756 + .06354, .03361, 20.24130, .98792, .62128,
757 + .36994, .86144, .99016,
758 + .06472, .03431, 21.69699, 1.04517, .68108,
759 + .43216, .91946, 1.04750,
760 + .06616, .03516, 23.47085, 1.11651, .75522,
761 + .50896, .99168, 1.11894,
762 + .06744, .03592, 25.05812, 1.18154, .82292,
763 + .57944, 1.05748, 1.18404,
764 + .06862, .03661, 26.52553, 1.24270, .88662,
765 + .64576, 1.11934, 1.24528,
766 + .07014, .03750, 28.36678, 1.32164, .96813,
767 + .72973, 1.19915, 1.32434,
768 + .07156, .03833, 30.10370, 1.39775, 1.04680,
769 + .81101, 1.27605, 1.40054,
770 + .07289, .03913, 31.74181, 1.47084, 1.12256,
771 + .88958, 1.34987, 1.47372 /
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 + .07424, .03991, 33.33921, 1.54446, 1.19813,
774 + .96707, 1.42421, 1.54743,
775 + .07556, .04069, 34.90677, 1.61796, 1.27384,
776 + 1.04508, 1.49841, 1.62104,
777 + .07682, .04143, 36.38318, 1.68865, 1.34662,
778 + 1.12004, 1.56973, 1.69180,
779 + .07801, .04213, 37.74469, 1.75558, 1.41523,
780 + 1.19040, 1.63726, 1.75882,
781 + .07921, .04282, 39.12288, 1.82418, 1.48584,
782 + 1.26314, 1.70646, 1.82750,
783 + .08039, .04351, 40.43328, 1.89145, 1.55462,
784 + 1.33351, 1.77430, 1.89487,
785 + .08151, .04418, 41.69398, 1.95676, 1.62176,
786 + 1.40259, 1.84015, 1.96025,
787 + .08258, .04480, 42.84239, 2.01812, 1.68442,
788 + 1.46664, 1.90202, 2.02169 /
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 + .08365, .04543, 44.00960, 2.08108, 1.74897,
791 + 1.53290, 1.96548, 2.08472,
792 + .08472, .04605, 45.13085, 2.14309, 1.81235,
793 + 1.59776, 2.02798, 2.14680,
794 + .08575, .04665, 46.19116, 2.20268, 1.87329,
795 + 1.66014, 2.08803, 2.20647,
796 + .08672, .04722, 47.19318, 2.25975, 1.93174,
797 + 1.72007, 2.14553, 2.26360,
798 + .08769, .04778, 48.16921, 2.31694, 1.99002,
799 + 1.77958, 2.20316, 2.32087 /
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 + .05015, .02574, .70533, .30816, .00000,
802 + .00000, .17282, .30941,
803 + .05116, .02631, 1.34069, .32723, .00000,
804 + .00000, .19292, .32854,
805 + .05268, .02720, 2.38704, .35907, .01416,
806 + .00000, .22620, .36045,
807 + .05383, .02788, 3.28315, .38479, .01332,
808 + .00000, .25296, .38625,
809 + .05505, .02858, 4.26166, .41439, .01963,
810 + .00000, .28357, .41592,
811 + .05610, .02920, 5.11912, .44168, .05213,
812 + .00000, .31171, .44328,
813 + .05712, .02981, 5.99898, .46947, .08824,
814 + .00000, .34031, .47114,
815 + .05822, .03045, 6.99492, .50074, .12368,
816 + .00000, .37241, .50248 /
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 + .05918, .03102, 7.88386, .52924, .15436,
819 + .00000, .40160, .53103,
820 + .06012, .03158, 8.77255, .55795, .18551,
821 + .00000, .43099, .55981,
822 + .06087, .03202, 9.50732, .58161, .21167,
823 + .00000, .45517, .58352,
824 + .06247, .03297, 11.12389, .63454, .26858,
825 + .00000, .50917, .63655,
826 + .06388, .03381, 12.38577, .68238, .31939,
827 + .06392, .55790, .68448,
828 + .06548, .03475, 13.90154, .73853, .37906,
829 + .13505, .61505, .74075,
830 + .06716, .03574, 15.52078, .79953, .44362,
831 + .20357, .67704, .80186,
832 + .06870, .03666, 17.01565, .85700, .50426,
833 + .26796, .73540, .85944 /
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 + .07025, .03758, 18.54650, .91707, .56757,
836 + .33480, .79634, .91962,
837 + .07155, .03835, 19.82182, .96829, .62116,
838 + .39066, .84826, .97093,
839 + .07314, .03929, 21.36821, 1.03189, .68738,
840 + .45943, .91270, 1.03464,
841 + .07454, .04012, 22.74554, 1.08970, .74769,
842 + .52233, .97123, 1.09254,
843 + .07585, .04089, 24.01369, 1.14394, .80428,
844 + .58138, 1.02612, 1.14687,
845 + .07750, .04186, 25.59698, 1.21371, .87645,
846 + .65589, 1.09671, 1.21677,
847 + .07905, .04278, 27.08358, 1.28077, .94590,
848 + .72780, 1.16452, 1.28394,
849 + .08052, .04365, 28.47983, 1.34499, 1.01261,
850 + .79714, 1.22943, 1.34827 /
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 + .08199, .04451, 29.83414, 1.40947, 1.07891,
853 + .86527, 1.29458, 1.41285,
854 + .08343, .04536, 31.15809, 1.47368, 1.14520,
855 + .93372, 1.35946, 1.47717,
856 + .08481, .04616, 32.40022, 1.53527, 1.20874,
857 + .99931, 1.42165, 1.53886,
858 + .08609, .04692, 33.54046, 1.59343, 1.26848,
859 + 1.06071, 1.48038, 1.59712,
860 + .08741, .04769, 34.69123, 1.65292, 1.32985,
861 + 1.12407, 1.54043, 1.65670,
862 + .08868, .04844, 35.78031, 1.71110, 1.38945,
863 + 1.18519, 1.59915, 1.71498,
864 + .08992, .04916, 36.82553, 1.76747, 1.44753,
865 + 1.24508, 1.65603, 1.77144,
866 + .09108, .04984, 37.77323, 1.82030, 1.50159,
867 + 1.30047, 1.70934, 1.82435 /
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 + .09224, .05051, 38.73423, 1.87441, 1.55720,
870 + 1.35767, 1.76393, 1.87856,
871 + .09341, .05119, 39.65346, 1.92758, 1.61167,
872 + 1.41354, 1.81757, 1.93181,
873 + .09452, .05184, 40.52009, 1.97859, 1.66393,
874 + 1.46716, 1.86901, 1.98289,
875 + .09557, .05245, 41.33694, 2.02733, 1.71398,
876 + 1.51860, 1.91818, 2.03172,
877 + .09663, .05307, 42.12898, 2.07608, 1.76378,
878 + 1.56956, 1.96732, 2.08054 /
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 + .06909, .03687, .71374, .26986, .00000,
881 + .00000, .15364, .27212,
882 + .07041, .03767, 1.28968, .28551, .00000,
883 + .00000, .17013, .28786,
884 + .07245, .03890, 2.19968, .31120, .01358,
885 + .00000, .19700, .31369,
886 + .07402, .03985, 2.95763, .33168, .01194,
887 + .00000, .21831, .33427,
888 + .07566, .04085, 3.76333, .35496, .01628,
889 + .00000, .24241, .35766,
890 + .07707, .04170, 4.45264, .37622, .04182,
891 + .00000, .26438, .37902,
892 + .07844, .04254, 5.14643, .39769, .07017,
893 + .00000, .28651, .40060,
894 + .07994, .04344, 5.91732, .42163, .09758,
895 + .00000, .31115, .42465 /
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 + .08123, .04422, 6.59303, .44326, .12107,
898 + .00000, .33336, .44638,
899 + .08249, .04499, 7.25828, .46490, .14476,
900 + .00000, .35554, .46810,
901 + .08350, .04560, 7.80166, .48262, .16453,
902 + .00000, .37370, .48590,
903 + .08567, .04691, 8.97774, .52190, .20712,
904 + .00000, .41388, .52534,
905 + .08756, .04805, 9.87269, .55699, .24474,
906 + .04494, .44972, .56057,
907 + .08971, .04934, 10.92466, .59775, .28842,
908 + .09760, .49131, .60149,
909 + .09196, .05069, 12.02525, .64148, .33513,
910 + .14758, .53590, .64540,
911 + .09401, .05192, 13.02133, .68222, .37850,
912 + .19402, .57738, .68630 /
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 + .09608, .05316, 14.02284, .72434, .42329,
915 + .24171, .62025, .72858,
916 + .09781, .05419, 14.84294, .75988, .46082,
917 + .28116, .65639, .76426,
918 + .09992, .05544, 15.82061, .80357, .50673,
919 + .32923, .70080, .80812,
920 + .10178, .05654, 16.67743, .84288, .54811,
921 + .37278, .74074, .84758,
922 + .10349, .05756, 17.45510, .87944, .58662,
923 + .41331, .77786, .88427,
924 + .10567, .05885, 18.40882, .92598, .63521,
925 + .46391, .82511, .93098,
926 + .10772, .06005, 19.28956, .97024, .68149,
927 + .51226, .87002, .97540,
928 + .10964, .06118, 20.10479, 1.01224, .72555,
929 + .55846, .91262, 1.01756 /
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 + .11156, .06231, 20.88066, 1.05395, .76887,
932 + .60338, .95493, 1.05941,
933 + .11344, .06341, 21.62884, 1.09514, .81180,
934 + .64812, .99669, 1.10076,
935 + .11523, .06445, 22.32083, 1.13429, .85261,
936 + .69064, 1.03637, 1.14005,
937 + .11690, .06542, 22.94561, 1.17093, .89062,
938 + .73007, 1.07351, 1.17682,
939 + .11858, .06640, 23.56967, 1.20813, .92943,
940 + .77052, 1.11122, 1.21417,
941 + .12024, .06736, 24.14937, 1.24418, .96674,
942 + .80914, 1.14774, 1.25034,
943 + .12182, .06828, 24.70114, 1.27889, 1.00290,
944 + .84679, 1.18291, 1.28518,
945 + .12330, .06913, 25.19207, 1.31112, 1.03623,
946 + .88127, 1.21556, 1.31752 /
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 + .12480, .07000, 25.68593, 1.34395, 1.07034,
949 + .91670, 1.24882, 1.35047,
950 + .12627, .07085, 26.15066, 1.37594, 1.10350,
951 + .95105, 1.28123, 1.38258,
952 + .12768, .07165, 26.58376, 1.40643, 1.13510,
953 + .98380, 1.31212, 1.41318,
954 + .12902, .07242, 26.98799, 1.43541, 1.16520,
955 + 1.01505, 1.34147, 1.44226,
956 + .13037, .07319, 27.37267, 1.46413, 1.19489,
957 + 1.04574, 1.37057, 1.47110 /
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 + .09569, .05325, .78494, .23943, .00000,
960 + .00000, .13805, .24334,
961 + .09748, .05437, 1.30253, .25166, .00000,
962 + .00000, .15097, .25571,
963 + .10024, .05607, 2.08198, .27156, .01209,
964 + .00000, .17184, .27582,
965 + .10234, .05738, 2.70968, .28726, .00975,
966 + .00000, .18825, .29169,
967 + .10455, .05875, 3.35711, .30495, .01240,
968 + .00000, .20665, .30956,
969 + .10647, .05992, 3.89564, .32099, .03200,
970 + .00000, .22329, .32576,
971 + .10833, .06106, 4.42562, .33707, .05375,
972 + .00000, .23993, .34200,
973 + .11033, .06230, 5.00191, .35485, .07444,
974 + .00000, .25830, .35994 /
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 + .11208, .06337, 5.49649, .37077, .09198,
977 + .00000, .27472, .37600,
978 + .11377, .06439, 5.97475, .38656, .10955,
979 + .00000, .29100, .39194,
980 + .11514, .06523, 6.35987, .39942, .12411,
981 + .00000, .30424, .40491,
982 + .11803, .06698, 7.17777, .42762, .15518,
983 + .00000, .33324, .43336,
984 + .12057, .06850, 7.78203, .45251, .18225,
985 + .02937, .35880, .45847,
986 + .12342, .07020, 8.47200, .48107, .21333,
987 + .06738, .38809, .48727,
988 + .12639, .07197, 9.17579, .51129, .24611,
989 + .10287, .41907, .51775,
990 + .12910, .07357, 9.79730, .53908, .27616,
991 + .13542, .44752, .54576 /
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 + .13183, .07518, 10.40822, .56743, .30681,
994 + .16844, .47656, .57435,
995 + .13409, .07652, 10.89796, .59108, .33219,
996 + .19543, .50076, .59819,
997 + .13683, .07811, 11.46919, .61980, .36287,
998 + .22795, .53013, .62714,
999 + .13925, .07952, 11.95961, .64534, .39022,
1000 + .25710, .55625, .65289,
1001 + .14147, .08081, 12.39660, .66885, .41541,
1002 + .28395, .58028, .67659,
1003 + .14427, .08243, 12.91979, .69838, .44680,
1004 + .31705, .61047, .70636,
1005 + .14689, .08394, 13.39242, .72612, .47636,
1006 + .34834, .63882, .73433,
1007 + .14935, .08535, 13.82152, .75217, .50420,
1008 + .37793, .66544, .76059 /
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 + .15179, .08673, 14.21894, .77769, .53120,
1011 + .40632, .69151, .78631,
1012 + .15417, .08809, 14.59514, .80263, .55772,
1013 + .43434, .71699, .81145,
1014 + .15641, .08937, 14.93616, .82609, .58268,
1015 + .46071, .74096, .83510,
1016 + .15852, .09055, 15.23656, .84779, .60566,
1017 + .48490, .76313, .85698,
1018 + .16062, .09174, 15.53250, .86965, .62895,
1019 + .50953, .78548, .87903,
1020 + .16268, .09289, 15.79904, .89056, .65107,
1021 + .53277, .80684, .90010,
1022 + .16464, .09398, 16.04998, .91055, .67238,
1023 + .55530, .82728, .92027,
1024 + .16648, .09500, 16.26621, .92890, .69179,
1025 + .57569, .84603, .93877 /
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 + .16832, .09602, 16.48139, .94747, .71154,
1028 + .59653, .86502, .95748,
1029 + .17013, .09703, 16.67809, .96537, .73053,
1030 + .61653, .88332, .97554,
1031 + .17186, .09798, 16.85788, .98228, .74852,
1032 + .63547, .90062, .99259,
1033 + .17349, .09887, 17.02311, .99824, .76553,
1034 + .65343, .91695, 1.00870,
1035 + .17512, .09978, 17.17478, 1.01391, .78213,
1036 + .67088, .93297, 1.02449 /
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 + .11598, .06601, .87050, .22350, .00000,
1039 + .00000, .12954, .22883,
1040 + .11812, .06737, 1.34894, .23383, .00000,
1041 + .00000, .14049, .23935,
1042 + .12142, .06946, 2.05151, .25059, .01045,
1043 + .00000, .15816, .25638,
1044 + .12394, .07103, 2.60395, .26375, .00780,
1045 + .00000, .17199, .26979,
1046 + .12660, .07267, 3.16272, .27854, .00966,
1047 + .00000, .18746, .28481,
1048 + .12888, .07407, 3.61894, .29191, .02623,
1049 + .00000, .20138, .29839,
1050 + .13110, .07543, 4.06120, .30524, .04464,
1051 + .00000, .21526, .31191,
1052 + .13349, .07689, 4.53524, .31991, .06197,
1053 + .00000, .23048, .32680 /
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 + .13556, .07814, 4.93646, .33296, .07656,
1056 + .00000, .24402, .34003,
1057 + .13759, .07937, 5.31975, .34585, .09111,
1058 + .00000, .25737, .35310,
1059 + .13919, .08034, 5.62546, .35631, .10313,
1060 + .00000, .26819, .36370,
1061 + .14262, .08238, 6.26646, .37909, .12858,
1062 + .00000, .29175, .38680,
1063 + .14560, .08414, 6.73084, .39903, .15058,
1064 + .02162, .31234, .40700,
1065 + .14895, .08612, 7.24899, .42170, .17563,
1066 + .05257, .33573, .42997,
1067 + .15242, .08814, 7.76825, .44548, .20181,
1068 + .08117, .36025, .45406,
1069 + .15556, .08997, 8.21887, .46713, .22561,
1070 + .10719, .38257, .47600 /
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 + .15874, .09180, 8.65455, .48906, .24969,
1073 + .13337, .40517, .49821,
1074 + .16135, .09330, 8.99813, .50718, .26946,
1075 + .15461, .42383, .51656,
1076 + .16450, .09511, 9.39226, .52901, .29319,
1077 + .18001, .44632, .53867,
1078 + .16729, .09669, 9.72532, .54827, .31418,
1079 + .20260, .46616, .55817,
1080 + .16983, .09813, 10.01788, .56586, .33339,
1081 + .22328, .48428, .57599,
1082 + .17302, .09992, 10.36163, .58776, .35710,
1083 + .24857, .50684, .59817,
1084 + .17601, .10158, 10.66658, .60816, .37926,
1085 + .27228, .52785, .61883,
1086 + .17880, .10314, 10.93906, .62716, .39999,
1087 + .29456, .54743, .63808 /
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 + .18154, .10466, 11.18562, .64561, .41992,
1090 + .31575, .56644, .65676,
1091 + .18422, .10613, 11.41536, .66350, .43935,
1092 + .33654, .58488, .67488,
1093 + .18674, .10751, 11.61990, .68020, .45751,
1094 + .35596, .60209, .69179,
1095 + .18908, .10879, 11.79555, .69550, .47412,
1096 + .37366, .61788, .70730,
1097 + .19144, .11006, 11.96645, .71085, .49085,
1098 + .39158, .63371, .72285,
1099 + .19372, .11129, 12.11573, .72537, .50662,
1100 + .40837, .64872, .73757,
1101 + .19588, .11246, 12.25505, .73922, .52174,
1102 + .42457, .66300, .75160,
1103 + .19791, .11355, 12.37075, .75179, .53540,
1104 + .43913, .67599, .76434 /
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 + .19994, .11464, 12.48474, .76444, .54924,
1107 + .45394, .68907, .77717,
1108 + .20192, .11569, 12.58539, .77655, .56245,
1109 + .46805, .70160, .78944,
1110 + .20381, .11668, 12.67538, .78793, .57489,
1111 + .48135, .71337, .80098,
1112 + .20559, .11763, 12.75653, .79862, .58662,
1113 + .49392, .72443, .81181,
1114 + .20737, .11855, 12.82723, .80899, .59797,
1115 + .50604, .73518, .82233 /
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 + .13305, .07687, .95593, .21263, .00000,
1118 + .00000, .12342, .21927,
1119 + .13550, .07843, 1.40303, .22167, .00000,
1120 + .00000, .13308, .22855,
1121 + .13927, .08081, 2.04909, .23634, .00879,
1122 + .00000, .14862, .24357,
1123 + .14214, .08259, 2.54728, .24786, .00602,
1124 + .00000, .16077, .25535,
1125 + .14517, .08444, 3.04367, .26075, .00740,
1126 + .00000, .17433, .26853,
1127 + .14776, .08602, 3.44307, .27237, .02203,
1128 + .00000, .18650, .28039,
1129 + .15027, .08755, 3.82572, .28393, .03830,
1130 + .00000, .19859, .29218,
1131 + .15297, .08918, 4.23136, .29659, .05348,
1132 + .00000, .21181, .30510 /
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 + .15533, .09059, 4.57094, .30781, .06620,
1135 + .00000, .22352, .31653,
1136 + .15759, .09194, 4.89228, .31884, .07883,
1137 + .00000, .23501, .32778,
1138 + .15941, .09303, 5.14662, .32776, .08923,
1139 + .00000, .24430, .33687,
1140 + .16326, .09528, 5.67462, .34710, .11115,
1141 + .00000, .26441, .35657,
1142 + .16658, .09721, 6.05142, .36390, .12998,
1143 + .01663, .28187, .37369,
1144 + .17030, .09936, 6.46302, .38289, .15128,
1145 + .04317, .30158, .39302,
1146 + .17416, .10157, 6.86941, .40264, .17338,
1147 + .06750, .32210, .41312,
1148 + .17763, .10355, 7.21686, .42050, .19334,
1149 + .08950, .34064, .43130 /
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 + .18114, .10552, 7.54803, .43846, .21340,
1152 + .11150, .35928, .44957,
1153 + .18400, .10713, 7.80553, .45319, .22978,
1154 + .12923, .37458, .46458,
1155 + .18747, .10905, 8.09654, .47084, .24929,
1156 + .15031, .39289, .48253,
1157 + .19050, .11073, 8.33903, .48629, .26647,
1158 + .16896, .40894, .49826,
1159 + .19327, .11226, 8.54928, .50032, .28209,
1160 + .18594, .42351, .51254,
1161 + .19673, .11415, 8.79169, .51766, .30125,
1162 + .20657, .44153, .53019,
1163 + .19996, .11590, 9.00308, .53370, .31905,
1164 + .22580, .45820, .54650,
1165 + .20298, .11752, 9.18913, .54854, .33561,
1166 + .24378, .47362, .56161 /
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 + .20593, .11910, 9.35321, .56282, .35140,
1169 + .26075, .48849, .57614,
1170 + .20880, .12062, 9.50361, .57659, .36673,
1171 + .27733, .50282, .59016,
1172 + .21148, .12205, 9.63492, .58936, .38098,
1173 + .29274, .51613, .60317,
1174 + .21399, .12336, 9.74455, .60098, .39391,
1175 + .30669, .52825, .61500,
1176 + .21649, .12467, 9.84979, .61257, .40691,
1177 + .32078, .54034, .62680,
1178 + .21890, .12592, 9.93808, .62345, .41905,
1179 + .33388, .55172, .63789,
1180 + .22119, .12711, 10.01967, .63378, .43067,
1181 + .34648, .56251, .64841,
1182 + .22332, .12821, 10.08400, .64308, .44109,
1183 + .35773, .57224, .65789 /
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 + .22546, .12931, 10.14660, .65241, .45161,
1186 + .36915, .58200, .66739,
1187 + .22754, .13037, 10.19902, .66127, .46161,
1188 + .37998, .59129, .67643,
1189 + .22950, .13138, 10.24425, .66955, .47097,
1190 + .39013, .59998, .68486,
1191 + .23136, .13231, 10.28382, .67729, .47976,
1192 + .39970, .60810, .69275,
1193 + .23321, .13324, 10.31502, .68473, .48822,
1194 + .40886, .61594, .70035 /
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 + .14796, .08640, 1.03703, .20400, .00000,
1197 + .00000, .11838, .21179,
1198 + .15071, .08815, 1.45769, .21211, .00000,
1199 + .00000, .12707, .22018,
1200 + .15490, .09079, 2.05814, .22527, .00716,
1201 + .00000, .14110, .23374,
1202 + .15810, .09276, 2.51327, .23558, .00436,
1203 + .00000, .15205, .24436,
1204 + .16145, .09478, 2.96118, .24711, .00546,
1205 + .00000, .16423, .25623,
1206 + .16431, .09652, 3.31708, .25748, .01869,
1207 + .00000, .17516, .26688,
1208 + .16707, .09819, 3.65478, .26776, .03341,
1209 + .00000, .18597, .27743,
1210 + .17005, .09996, 4.00948, .27899, .04705,
1211 + .00000, .19777, .28894 /
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 + .17263, .10147, 4.30364, .28888, .05845,
1214 + .00000, .20816, .29911,
1215 + .17513, .10293, 4.57972, .29859, .06973,
1216 + .00000, .21833, .30905,
1217 + .17712, .10409, 4.79688, .30641, .07898,
1218 + .00000, .22653, .31706,
1219 + .18132, .10652, 5.24399, .32330, .09840,
1220 + .00000, .24421, .33435,
1221 + .18493, .10857, 5.55893, .33789, .11500,
1222 + .01305, .25947, .34928,
1223 + .18895, .11085, 5.89603, .35427, .13366,
1224 + .03649, .27659, .36604,
1225 + .19312, .11318, 6.22440, .37120, .15293,
1226 + .05784, .29431, .38336,
1227 + .19686, .11526, 6.50134, .38639, .17022,
1228 + .07704, .31020, .39892 /
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 + .20062, .11731, 6.76184, .40159, .18750,
1231 + .09612, .32610, .41445,
1232 + .20369, .11900, 6.96152, .41399, .20154,
1233 + .11145, .33908, .42713,
1234 + .20737, .12099, 7.18406, .42874, .21818,
1235 + .12956, .35452, .44221,
1236 + .21061, .12273, 7.36701, .44158, .23275,
1237 + .14551, .36798, .45535,
1238 + .21355, .12430, 7.52362, .45319, .24594,
1239 + .15997, .38015, .46721,
1240 + .21721, .12624, 7.70060, .46742, .26203,
1241 + .17745, .39507, .48177,
1242 + .22061, .12803, 7.85217, .48049, .27689,
1243 + .19366, .40880, .49515,
1244 + .22377, .12968, 7.98345, .49253, .29065,
1245 + .20875, .42146, .50747 /
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 + .22686, .13128, 8.09573, .50402, .30369,
1248 + .22291, .43355, .51923,
1249 + .22986, .13282, 8.19658, .51505, .31629,
1250 + .23668, .44516, .53051,
1251 + .23266, .13425, 8.28239, .52521, .32795,
1252 + .24943, .45588, .54091,
1253 + .23526, .13557, 8.35158, .53439, .33849,
1254 + .26092, .46558, .55032,
1255 + .23784, .13688, 8.41699, .54351, .34902,
1256 + .27247, .47522, .55965,
1257 + .24033, .13812, 8.46859, .55200, .35882,
1258 + .28317, .48421, .56835,
1259 + .24269, .13931, 8.51565, .56004, .36815,
1260 + .29342, .49272, .57657,
1261 + .24487, .14038, 8.54953, .56720, .37647,
1262 + .30253, .50034, .58392 /
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 + .24706, .14146, 8.58181, .57439, .38487,
1265 + .31175, .50797, .59128,
1266 + .24919, .14250, 8.60610, .58114, .39278,
1267 + .32045, .51516, .59820,
1268 + .25120, .14348, 8.62542, .58742, .40017,
1269 + .32858, .52186, .60464,
1270 + .25309, .14439, 8.64108, .59325, .40709,
1271 + .33621, .52810, .61063,
1272 + .25496, .14529, 8.64986, .59882, .41370,
1273 + .34349, .53407, .61635 /
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 + .17389, .10294, 1.18026, .19073, .00000,
1276 + .00000, .11031, .20071,
1277 + .17715, .10500, 1.55613, .19754, .00000,
1278 + .00000, .11771, .20789,
1279 + .18213, .10806, 2.08392, .20856, .00417,
1280 + .00000, .12963, .21946,
1281 + .18587, .11031, 2.47199, .21718, .00144,
1282 + .00000, .13892, .22847,
1283 + .18976, .11262, 2.84619, .22679, .00224,
1284 + .00000, .14920, .23848,
1285 + .19307, .11458, 3.13729, .23541, .01354,
1286 + .00000, .15840, .24744,
1287 + .19629, .11643, 3.40905, .24389, .02611,
1288 + .00000, .16745, .25625,
1289 + .19972, .11840, 3.69014, .25310, .03766,
1290 + .00000, .17726, .26581 /
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 + .20267, .12009, 3.91969, .26117, .04723,
1293 + .00000, .18585, .27417,
1294 + .20551, .12170, 4.13213, .26902, .05665,
1295 + .00000, .19420, .28232,
1296 + .20778, .12297, 4.29741, .27532, .06435,
1297 + .00000, .20090, .28886,
1298 + .21252, .12561, 4.63275, .28883, .08038,
1299 + .00000, .21524, .30282,
1300 + .21658, .12782, 4.86410, .30035, .09394,
1301 + .00813, .22748, .31474,
1302 + .22107, .13025, 5.10139, .31317, .10907,
1303 + .02736, .24110, .32798,
1304 + .22568, .13271, 5.32672, .32625, .12451,
1305 + .04470, .25503, .34151,
1306 + .22980, .13489, 5.51182, .33788, .13824,
1307 + .06014, .26740, .35352 /
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 + .23391, .13704, 5.68139, .34936, .15185,
1310 + .07538, .27964, .36539,
1311 + .23726, .13877, 5.80770, .35864, .16280,
1312 + .08749, .28953, .37497,
1313 + .24124, .14082, 5.94430, .36954, .17567,
1314 + .10171, .30118, .38624,
1315 + .24474, .14258, 6.05322, .37895, .18684,
1316 + .11413, .31123, .39595,
1317 + .24788, .14417, 6.14364, .38735, .19688,
1318 + .12531, .32024, .40463,
1319 + .25178, .14612, 6.24079, .39754, .20900,
1320 + .13870, .33117, .41516,
1321 + .25538, .14789, 6.32034, .40679, .22010,
1322 + .15102, .34113, .42472,
1323 + .25872, .14952, 6.38642, .41522, .23029,
1324 + .16240, .35021, .43343 /
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 + .26195, .15108, 6.43768, .42315, .23986,
1327 + .17299, .35878, .44164,
1328 + .26507, .15258, 6.48110, .43067, .24903,
1329 + .18321, .36693, .44941,
1330 + .26796, .15396, 6.51513, .43753, .25744,
1331 + .19261, .37438, .45651,
1332 + .27062, .15522, 6.53839, .44364, .26497,
1333 + .20099, .38103, .46284,
1334 + .27329, .15646, 6.55870, .44967, .27245,
1335 + .20939, .38761, .46907,
1336 + .27582, .15763, 6.56956, .45518, .27934,
1337 + .21709, .39365, .47478,
1338 + .27822, .15873, 6.57855, .46035, .28587,
1339 + .22444, .39933, .48014,
1340 + .28041, .15973, 6.57939, .46490, .29163,
1341 + .23091, .40436, .48485 /
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 + .28262, .16073, 6.57903, .46940, .29741,
1344 + .23743, .40934, .48953,
1345 + .28474, .16167, 6.57342, .47359, .30281,
1346 + .24353, .41400, .49388,
1347 + .28673, .16257, 6.56552, .47744, .30781,
1348 + .24920, .41829, .49787,
1349 + .28861, .16340, 6.55628, .48099, .31247,
1350 + .25450, .42225, .50156,
1351 + .29044, .16419, 6.54211, .48431, .31687,
1352 + .25950, .42599, .50499 /
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 + .20654, .12359, 1.35471, .17560, .00000,
1355 + .00000, .10073, .18857,
1356 + .21052, .12601, 1.67516, .18117, .00000,
1357 + .00000, .10695, .19462,
1358 + .21648, .12954, 2.11921, .19019, .00032,
1359 + .00000, .11694, .20434,
1360 + .22089, .13209, 2.43278, .19719, -.00212,
1361 + .00000, .12467, .21183,
1362 + .22548, .13469, 2.72762, .20494, -.00145,
1363 + .00000, .13318, .22009,
1364 + .22935, .13686, 2.95068, .21185, .00805,
1365 + .00000, .14073, .22741,
1366 + .23307, .13890, 3.15490, .21860, .01857,
1367 + .00000, .14810, .23457,
1368 + .23700, .14106, 3.36218, .22587, .02814,
1369 + .00000, .15603, .24225 /
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 + .24038, .14287, 3.52799, .23216, .03600,
1372 + .00000, .16290, .24891,
1373 + .24362, .14460, 3.67868, .23825, .04369,
1374 + .00000, .16954, .25532,
1375 + .24617, .14596, 3.79431, .24309, .04993,
1376 + .00000, .17483, .26043,
1377 + .25152, .14875, 4.02457, .25337, .06281,
1378 + .00000, .18603, .27124,
1379 + .25600, .15104, 4.17870, .26202, .07358,
1380 + .00362, .19547, .28032,
1381 + .26093, .15352, 4.32583, .27150, .08545,
1382 + .01895, .20583, .29025,
1383 + .26595, .15601, 4.46011, .28102, .09743,
1384 + .03262, .21627, .30025,
1385 + .27041, .15819, 4.56547, .28935, .10796,
1386 + .04465, .22543, .30899 /
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 + .27479, .16033, 4.65748, .29747, .11828,
1389 + .05641, .23435, .31749,
1390 + .27836, .16202, 4.72248, .30392, .12648,
1391 + .06566, .24147, .32425,
1392 + .28257, .16399, 4.78803, .31139, .13603,
1393 + .07642, .24976, .33208,
1394 + .28620, .16568, 4.83684, .31772, .14424,
1395 + .08573, .25681, .33874,
1396 + .28948, .16719, 4.87460, .32332, .15153,
1397 + .09403, .26305, .34460,
1398 + .29348, .16900, 4.90930, .32998, .16025,
1399 + .10389, .27051, .35158,
1400 + .29716, .17064, 4.93339, .33592, .16813,
1401 + .11285, .27721, .35780,
1402 + .30052, .17213, 4.94998, .34124, .17530,
1403 + .12106, .28323, .36339 /
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 + .30376, .17352, 4.95625, .34614, .18194,
1406 + .12861, .28881, .36853,
1407 + .30686, .17485, 4.95774, .35070, .18824,
1408 + .13583, .29406, .37333,
1409 + .30972, .17606, 4.95434, .35480, .19396,
1410 + .14242, .29877, .37762,
1411 + .31233, .17714, 4.94531, .35836, .19902,
1412 + .14824, .30293, .38137,
1413 + .31491, .17820, 4.93444, .36182, .20402,
1414 + .15403, .30697, .38502,
1415 + .31734, .17918, 4.91764, .36491, .20855,
1416 + .15929, .31062, .38826,
1417 + .31964, .18009, 4.90106, .36776, .21282,
1418 + .16427, .31402, .39127,
1419 + .32171, .18091, 4.88058, .37018, .21652,
1420 + .16860, .31693, .39383 /
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 + .32377, .18172, 4.85944, .37256, .22022,
1423 + .17294, .31981, .39633,
1424 + .32574, .18248, 4.83529, .37469, .22363,
1425 + .17697, .32244, .39858,
1426 + .32759, .18317, 4.81079, .37661, .22677,
1427 + .18068, .32481, .40061,
1428 + .32931, .18382, 4.78665, .37835, .22966,
1429 + .18412, .32699, .40245,
1430 + .33098, .18443, 4.75927, .37990, .23235,
1431 + .18734, .32897, .40408 /
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 + .25196, .15143, 1.55471, .15666, .00000,
1434 + .00000, .08860, .17451,
1435 + .25692, .15426, 1.80181, .16102, .00000,
1436 + .00000, .09375, .17951,
1437 + .26421, .15827, 2.14196, .16799, -.00454,
1438 + .00000, .10188, .18736,
1439 + .26950, .16109, 2.36738, .17330, -.00640,
1440 + .00000, .10806, .19328,
1441 + .27489, .16391, 2.57154, .17913, -.00565,
1442 + .00000, .11477, .19970,
1443 + .27940, .16622, 2.71927, .18425, .00204,
1444 + .00000, .12066, .20532,
1445 + .28369, .16840, 2.85065, .18921, .01049,
1446 + .00000, .12634, .21072,
1447 + .28819, .17062, 2.98033, .19445, .01810,
1448 + .00000, .13236, .21642 /
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 + .29201, .17249, 3.08063, .19894, .02427,
1451 + .00000, .13750, .22128,
1452 + .29562, .17424, 3.16906, .20321, .03024,
1453 + .00000, .14240, .22590,
1454 + .29848, .17559, 3.23542, .20658, .03505,
1455 + .00000, .14628, .22954,
1456 + .30434, .17833, 3.36338, .21360, .04484,
1457 + .00000, .15435, .23711,
1458 + .30915, .18053, 3.44455, .21937, .05290,
1459 + -.00050, .16102, .24332,
1460 + .31437, .18285, 3.50878, .22556, .06165,
1461 + .01101, .16819, .24994,
1462 + .31962, .18514, 3.56133, .23162, .07035,
1463 + .02114, .17528, .25641,
1464 + .32420, .18708, 3.59703, .23678, .07785,
1465 + .02993, .18136, .26195 /
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 + .32868, .18894, 3.62309, .24168, .08511,
1468 + .03840, .18717, .26719,
1469 + .33225, .19040, 3.63683, .24549, .09079,
1470 + .04498, .19170, .27126,
1471 + .33640, .19205, 3.64475, .24977, .09731,
1472 + .05254, .19688, .27583,
1473 + .33994, .19344, 3.64577, .25331, .10284,
1474 + .05900, .20119, .27960,
1475 + .34309, .19465, 3.64220, .25637, .10769,
1476 + .06470, .20493, .28285,
1477 + .34689, .19605, 3.62975, .25986, .11339,
1478 + .07137, .20930, .28658,
1479 + .35031, .19729, 3.61298, .26287, .11846,
1480 + .07736, .21311, .28979,
1481 + .35343, .19839, 3.59393, .26548, .12302,
1482 + .08279, .21646, .29256 /
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 + .35633, .19938, 3.56894, .26776, .12715,
1485 + .08770, .21947, .29499,
1486 + .35908, .20029, 3.54214, .26980, .13103,
1487 + .09235, .22222, .29716,
1488 + .36160, .20110, 3.51430, .27156, .13450,
1489 + .09653, .22463, .29902,
1490 + .36384, .20178, 3.48493, .27298, .13750,
1491 + .10018, .22667, .30055,
1492 + .36603, .20245, 3.45484, .27433, .14044,
1493 + .10378, .22863, .30197,
1494 + .36804, .20303, 3.42206, .27542, .14305,
1495 + .10699, .23030, .30313,
1496 + .36993, .20357, 3.39103, .27640, .14549,
1497 + .11001, .23183, .30416,
1498 + .37160, .20400, 3.35914, .27711, .14756,
1499 + .11260, .23306, .30492 /
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 + .37325, .20443, 3.32710, .27780, .14959,
1502 + .11517, .23425, .30566,
1503 + .37479, .20479, 3.29398, .27832, .15144,
1504 + .11753, .23527, .30621,
1505 + .37621, .20512, 3.26193, .27874, .15310,
1506 + .11967, .23617, .30665,
1507 + .37750, .20542, 3.23136, .27908, .15462,
1508 + .12164, .23694, .30699,
1509 + .37873, .20566, 3.19902, .27927, .15599,
1510 + .12344, .23758, .30720 /
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 + .29002, .17390, 1.67416, .14152, .00000,
1513 + .00000, .07912, .16358,
1514 + .29580, .17699, 1.86361, .14513, .00000,
1515 + .00000, .08363, .16792,
1516 + .30418, .18124, 2.12531, .15078, -.00781,
1517 + .00000, .09063, .17458,
1518 + .31012, .18415, 2.28764, .15501, -.00913,
1519 + .00000, .09583, .17946,
1520 + .31613, .18700, 2.42911, .15956, -.00821,
1521 + .00000, .10140, .18466,
1522 + .32108, .18931, 2.52631, .16354, -.00168,
1523 + .00000, .10623, .18914,
1524 + .32572, .19143, 2.61006, .16731, .00543,
1525 + .00000, .11082, .19338,
1526 + .33055, .19359, 2.69023, .17126, .01180,
1527 + .00000, .11561, .19779 /
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 + .33460, .19537, 2.74970, .17457, .01690,
1530 + .00000, .11966, .20148,
1531 + .33841, .19700, 2.80008, .17769, .02180,
1532 + .00000, .12347, .20492,
1533 + .34138, .19825, 2.83682, .18013, .02572,
1534 + .00000, .12645, .20760,
1535 + .34741, .20074, 2.90454, .18512, .03361,
1536 + .00000, .13259, .21307,
1537 + .35227, .20265, 2.94382, .18912, .04002,
1538 + -.00262, .13755, .21743,
1539 + .35746, .20465, 2.96218, .19330, .04689,
1540 + .00655, .14280, .22199,
1541 + .36259, .20655, 2.97104, .19730, .05362,
1542 + .01453, .14786, .22631,
1543 + .36700, .20812, 2.97068, .20060, .05937,
1544 + .02138, .15213, .22987 /
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 + .37123, .20958, 2.96337, .20365, .06484,
1547 + .02790, .15613, .23315,
1548 + .37455, .21069, 2.95200, .20594, .06908,
1549 + .03292, .15919, .23560,
1550 + .37835, .21191, 2.93249, .20842, .07390,
1551 + .03864, .16259, .23826,
1552 + .38156, .21288, 2.91151, .21041, .07792,
1553 + .04347, .16536, .24037,
1554 + .38437, .21369, 2.88959, .21206, .08141,
1555 + .04769, .16772, .24213,
1556 + .38767, .21460, 2.85684, .21382, .08547,
1557 + .05259, .17038, .24399,
1558 + .39059, .21534, 2.82324, .21526, .08903,
1559 + .05694, .17264, .24550,
1560 + .39320, .21598, 2.79005, .21645, .09218,
1561 + .06083, .17457, .24673 /
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 + .39557, .21649, 2.75343, .21737, .09501,
1564 + .06432, .17622, .24768,
1565 + .39777, .21694, 2.71665, .21812, .09761,
1566 + .06758, .17768, .24845,
1567 + .39974, .21730, 2.68077, .21870, .09991,
1568 + .07050, .17891, .24902,
1569 + .40144, .21755, 2.64529, .21907, .10188,
1570 + .07302, .17988, .24937,
1571 + .40309, .21778, 2.60974, .21937, .10377,
1572 + .07547, .18078, .24965,
1573 + .40455, .21792, 2.57310, .21947, .10543,
1574 + .07763, .18147, .24973,
1575 + .40591, .21804, 2.53879, .21954, .10695,
1576 + .07966, .18208, .24976,
1577 + .40702, .21809, 2.50501, .21947, .10822,
1578 + .08136, .18250, .24963 /
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 + .40813, .21812, 2.47143, .21936, .10946,
1581 + .08305, .18288, .24945,
1582 + .40912, .21810, 2.43763, .21913, .11055,
1583 + .08457, .18315, .24916,
1584 + .40999, .21804, 2.40544, .21886, .11152,
1585 + .08594, .18334, .24882,
1586 + .41078, .21797, 2.37507, .21857, .11239,
1587 + .08719, .18347, .24844,
1588 + .41148, .21786, 2.34371, .21816, .11315,
1589 + .08831, .18349, .24797 /
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 + .35494, .20932, 1.74816, .11803, .00000,
1592 + .00000, .06558, .14848,
1593 + .36191, .21245, 1.85447, .12061, .00000,
1594 + .00000, .06926, .15176,
1595 + .37159, .21657, 2.00649, .12446, -.01133,
1596 + .00000, .07471, .15649,
1597 + .37818, .21924, 2.08579, .12720, -.01179,
1598 + .00000, .07858, .15978,
1599 + .38466, .22176, 2.14736, .13009, -.01061,
1600 + .00000, .08261, .16314,
1601 + .38989, .22372, 2.18231, .13253, -.00558,
1602 + .00000, .08599, .16594,
1603 + .39467, .22545, 2.20909, .13479, -.00020,
1604 + .00000, .08914, .16851,
1605 + .39954, .22714, 2.23162, .13708, .00456,
1606 + .00000, .09237, .17106 /
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 + .40352, .22848, 2.24461, .13894, .00834,
1609 + .00000, .09500, .17310,
1610 + .40718, .22964, 2.25262, .14062, .01191,
1611 + .00000, .09743, .17495,
1612 + .41000, .23050, 2.25699, .14190, .01472,
1613 + .00000, .09930, .17634,
1614 + .41556, .23212, 2.26045, .14444, .02030,
1615 + .00000, .10304, .17906,
1616 + .41981, .23323, 2.25609, .14636, .02473,
1617 + -.00437, .10595, .18104,
1618 + .42421, .23426, 2.22989, .14825, .02939,
1619 + .00196, .10892, .18297,
1620 + .42836, .23512, 2.19789, .14990, .03385,
1621 + .00739, .11164, .18462,
1622 + .43179, .23573, 2.16508, .15114, .03759,
1623 + .01197, .11383, .18581 /
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 + .43493, .23618, 2.12916, .15217, .04106,
1626 + .01625, .11578, .18675,
1627 + .43728, .23643, 2.09718, .15284, .04371,
1628 + .01951, .11719, .18733,
1629 + .43985, .23660, 2.05635, .15344, .04665,
1630 + .02314, .11869, .18780,
1631 + .44189, .23664, 2.01925, .15382, .04906,
1632 + .02617, .11982, .18802,
1633 + .44358, .23661, 1.98459, .15404, .05113,
1634 + .02879, .12072, .18809,
1635 + .44543, .23640, 1.93903, .15412, .05345,
1636 + .03176, .12162, .18793,
1637 + .44692, .23611, 1.89586, .15404, .05546,
1638 + .03436, .12230, .18763,
1639 + .44815, .23576, 1.85556, .15386, .05720,
1640 + .03665, .12282, .18723 /
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 + .44911, .23530, 1.81436, .15351, .05870,
1643 + .03866, .12314, .18663,
1644 + .44992, .23478, 1.77448, .15307, .06006,
1645 + .04052, .12335, .18596,
1646 + .45053, .23422, 1.73696, .15259, .06122,
1647 + .04213, .12344, .18523,
1648 + .45092, .23362, 1.70147, .15203, .06219,
1649 + .04352, .12343, .18442,
1650 + .45123, .23301, 1.66655, .15143, .06311,
1651 + .04485, .12336, .18358,
1652 + .45137, .23232, 1.63197, .15074, .06387,
1653 + .04599, .12318, .18262,
1654 + .45145, .23165, 1.59995, .15005, .06456,
1655 + .04703, .12298, .18171,
1656 + .45138, .23095, 1.56945, .14933, .06510,
1657 + .04790, .12269, .18074 /
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 + .45126, .23023, 1.53943, .14858, .06562,
1660 + .04875, .12239, .17975,
1661 + .45102, .22947, 1.50993, .14779, .06604,
1662 + .04949, .12202, .17871,
1663 + .45074, .22873, 1.48224, .14701, .06641,
1664 + .05015, .12163, .17770,
1665 + .45043, .22800, 1.45642, .14624, .06672,
1666 + .05073, .12124, .17672,
1667 + .44999, .22722, 1.43033, .14542, .06696,
1668 + .05125, .12077, .17566 /
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 + .40953, .23594, 1.69985, .09972, .00000,
1671 + .00000, .05610, .13701,
1672 + .41707, .23873, 1.75213, .10153, .00000,
1673 + .00000, .05913, .13931,
1674 + .42709, .24222, 1.83382, .10415, -.01241,
1675 + .00000, .06337, .14240,
1676 + .43368, .24428, 1.86368, .10593, -.01235,
1677 + .00000, .06631, .14440,
1678 + .43997, .24611, 1.87955, .10772, -.01104,
1679 + .00000, .06928, .14634,
1680 + .44486, .24744, 1.88046, .10922, -.00702,
1681 + .00000, .07172, .14788,
1682 + .44925, .24853, 1.87699, .11056, -.00279,
1683 + .00000, .07393, .14921,
1684 + .45361, .24950, 1.86976, .11184, .00095,
1685 + .00000, .07612, .15047 /
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 + .45706, .25019, 1.85954, .11282, .00388,
1688 + .00000, .07788, .15140,
1689 + .46013, .25072, 1.84705, .11369, .00661,
1690 + .00000, .07944, .15217,
1691 + .46242, .25109, 1.83614, .11433, .00874,
1692 + .00000, .08063, .15273,
1693 + .46681, .25159, 1.81023, .11550, .01292,
1694 + .00000, .08293, .15366,
1695 + .46989, .25172, 1.78667, .11630, .01619,
1696 + -.00470, .08464, .15417,
1697 + .47288, .25165, 1.74316, .11698, .01956,
1698 + -.00007, .08631, .15450,
1699 + .47547, .25134, 1.69643, .11744, .02273,
1700 + .00387, .08777, .15455,
1701 + .47743, .25088, 1.65302, .11765, .02534,
1702 + .00714, .08883, .15436 /
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 + .47905, .25025, 1.60868, .11770, .02774,
1705 + .01017, .08973, .15400,
1706 + .48009, .24960, 1.57148, .11761, .02953,
1707 + .01243, .09030, .15356,
1708 + .48101, .24869, 1.52618, .11736, .03150,
1709 + .01495, .09081, .15283,
1710 + .48158, .24779, 1.48646, .11702, .03308,
1711 + .01701, .09115, .15208,
1712 + .48190, .24690, 1.45043, .11664, .03442,
1713 + .01877, .09136, .15129,
1714 + .48196, .24561, 1.40476, .11600, .03589,
1715 + .02075, .09144, .15016,
1716 + .48180, .24432, 1.36264, .11531, .03713,
1717 + .02245, .09140, .14897,
1718 + .48145, .24306, 1.32412, .11459, .03818,
1719 + .02392, .09128, .14779 /
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 + .48082, .24166, 1.28584, .11377, .03907,
1722 + .02520, .09103, .14650,
1723 + .48005, .24026, 1.24935, .11292, .03986,
1724 + .02637, .09072, .14518,
1725 + .47918, .23890, 1.21562, .11206, .04052,
1726 + .02738, .09037, .14389,
1727 + .47818, .23754, 1.18428, .11120, .04105,
1728 + .02821, .08995, .14261,
1729 + .47711, .23616, 1.15372, .11032, .04154,
1730 + .02901, .08952, .14129,
1731 + .47587, .23473, 1.12401, .10938, .04191,
1732 + .02968, .08901, .13995,
1733 + .47466, .23338, 1.09669, .10849, .04225,
1734 + .03030, .08852, .13868,
1735 + .47336, .23204, 1.07109, .10761, .04249,
1736 + .03078, .08800, .13742 /
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 + .47202, .23068, 1.04605, .10671, .04273,
1739 + .03126, .08747, .13615,
1740 + .47059, .22931, 1.02173, .10580, .04289,
1741 + .03166, .08689, .13485,
1742 + .46915, .22799, .99908, .10491, .04303,
1743 + .03202, .08633, .13362,
1744 + .46775, .22673, .97810, .10406, .04313,
1745 + .03232, .08578, .13245,
1746 + .46622, .22542, .95714, .10317, .04319,
1747 + .03258, .08519, .13122 /
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 + .45685, .25653, 1.59151, .08481, .00000,
1750 + .00000, .04894, .12717,
1751 + .46440, .25872, 1.60881, .08608, .00000,
1752 + .00000, .05136, .12848,
1753 + .47412, .26117, 1.64478, .08779, -.01228,
1754 + .00000, .05465, .13006,
1755 + .48017, .26243, 1.64487, .08886, -.01192,
1756 + .00000, .05682, .13094,
1757 + .48570, .26340, 1.63429, .08993, -.01061,
1758 + .00000, .05895, .13171,
1759 + .48988, .26392, 1.61628, .09079, -.00733,
1760 + .00000, .06068, .13225,
1761 + .49347, .26422, 1.59659, .09150, -.00393,
1762 + .00000, .06219, .13266,
1763 + .49686, .26437, 1.57392, .09215, -.00094,
1764 + .00000, .06365, .13293 /
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 + .49940, .26432, 1.55200, .09261, .00140,
1767 + .00000, .06479, .13302,
1768 + .50157, .26415, 1.52955, .09296, .00354,
1769 + .00000, .06580, .13300,
1770 + .50313, .26392, 1.51140, .09321, .00521,
1771 + .00000, .06653, .13293,
1772 + .50580, .26323, 1.47207, .09360, .00843,
1773 + .00000, .06790, .13263,
1774 + .50738, .26230, 1.44039, .09374, .01092,
1775 + -.00454, .06884, .13217,
1776 + .50861, .26106, 1.39124, .09374, .01346,
1777 + -.00103, .06971, .13145,
1778 + .50934, .25957, 1.34063, .09354, .01582,
1779 + .00194, .07036, .13050,
1780 + .50953, .25803, 1.29521, .09323, .01772,
1781 + .00436, .07078, .12950 /
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 + .50935, .25636, 1.25012, .09279, .01945,
1784 + .00660, .07103, .12835,
1785 + .50890, .25486, 1.21325, .09233, .02073,
1786 + .00825, .07115, .12728,
1787 + .50799, .25292, 1.16932, .09167, .02212,
1788 + .01007, .07114, .12590,
1789 + .50694, .25114, 1.13153, .09101, .02321,
1790 + .01154, .07105, .12460,
1791 + .50579, .24943, 1.09778, .09036, .02412,
1792 + .01278, .07089, .12336,
1793 + .50400, .24714, 1.05578, .08943, .02511,
1794 + .01416, .07056, .12171,
1795 + .50207, .24495, 1.01764, .08850, .02592,
1796 + .01534, .07017, .12009,
1797 + .50007, .24287, .98318, .08760, .02661,
1798 + .01635, .06975, .11854 /
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 + .49782, .24068, .94946, .08663, .02717,
1801 + .01722, .06925, .11693,
1802 + .49549, .23852, .91768, .08565, .02765,
1803 + .01799, .06872, .11534,
1804 + .49315, .23645, .88860, .08471, .02803,
1805 + .01865, .06816, .11382,
1806 + .49079, .23444, .86187, .08378, .02834,
1807 + .01920, .06760, .11236,
1808 + .48838, .23241, .83600, .08283, .02860,
1809 + .01970, .06702, .11090,
1810 + .48582, .23038, .81109, .08187, .02881,
1811 + .02013, .06641, .10942,
1812 + .48337, .22846, .78831, .08096, .02898,
1813 + .02050, .06583, .10803,
1814 + .48091, .22659, .76718, .08007, .02909,
1815 + .02081, .06524, .10669 /
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 + .47841, .22473, .74661, .07920, .02919,
1818 + .02109, .06464, .10535,
1819 + .47585, .22287, .72678, .07831, .02924,
1820 + .02133, .06403, .10401,
1821 + .47335, .22109, .70842, .07746, .02927,
1822 + .02153, .06343, .10274,
1823 + .47097, .21940, .69149, .07666, .02929,
1824 + .02170, .06288, .10154,
1825 + .46846, .21766, .67471, .07583, .02927,
1826 + .02183, .06228, .10032 /
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 + .50725, .27498, 1.42597, .06951, .00000,
1829 + .00000, .04166, .11495,
1830 + .51407, .27607, 1.41663, .07027, .00000,
1831 + .00000, .04341, .11520,
1832 + .52220, .27692, 1.41734, .07125, -.01137,
1833 + .00000, .04574, .11519,
1834 + .52684, .27697, 1.39633, .07182, -.01082,
1835 + .00000, .04717, .11497,
1836 + .53079, .27662, 1.36781, .07232, -.00957,
1837 + .00000, .04857, .11464,
1838 + .53350, .27606, 1.33777, .07268, -.00699,
1839 + .00000, .04966, .11426,
1840 + .53562, .27531, 1.30816, .07294, -.00435,
1841 + .00000, .05059, .11379,
1842 + .53737, .27434, 1.27643, .07314, -.00203,
1843 + .00000, .05145, .11318 /
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 + .53846, .27333, 1.24810, .07320, -.00024,
1846 + .00000, .05208, .11259,
1847 + .53917, .27223, 1.22049, .07320, .00140,
1848 + .00000, .05259, .11194,
1849 + .53957, .27128, 1.19877, .07318, .00265,
1850 + .00000, .05296, .11139,
1851 + .53975, .26906, 1.15342, .07300, .00506,
1852 + .00000, .05359, .11009,
1853 + .53912, .26689, 1.11856, .07272, .00689,
1854 + -.00404, .05395, .10888,
1855 + .53785, .26429, 1.06933, .07230, .00873,
1856 + -.00148, .05420, .10740,
1857 + .53596, .26144, 1.01995, .07173, .01041,
1858 + .00067, .05430, .10572,
1859 + .53382, .25869, .97672, .07111, .01176,
1860 + .00241, .05427, .10412 /
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 + .53130, .25583, .93470, .07038, .01296,
1863 + .00399, .05411, .10246,
1864 + .52893, .25337, .90093, .06974, .01383,
1865 + .00515, .05389, .10103,
1866 + .52570, .25032, .86142, .06888, .01476,
1867 + .00640, .05354, .09924,
1868 + .52262, .24758, .82790, .06810, .01549,
1869 + .00742, .05317, .09764,
1870 + .51965, .24503, .79833, .06732, .01608,
1871 + .00825, .05279, .09618,
1872 + .51558, .24171, .76212, .06631, .01671,
1873 + .00919, .05224, .09426,
1874 + .51156, .23857, .72965, .06530, .01721,
1875 + .00996, .05167, .09245,
1876 + .50767, .23561, .70065, .06435, .01764,
1877 + .01062, .05110, .09077 /
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 + .50353, .23262, .67262, .06336, .01796,
1880 + .01117, .05049, .08906,
1881 + .49939, .22968, .64648, .06240, .01823,
1882 + .01166, .04985, .08739,
1883 + .49539, .22691, .62274, .06148, .01845,
1884 + .01208, .04925, .08583,
1885 + .49148, .22426, .60118, .06059, .01859,
1886 + .01240, .04865, .08435,
1887 + .48755, .22163, .58043, .05970, .01873,
1888 + .01271, .04805, .08288,
1889 + .48353, .21902, .56064, .05882, .01881,
1890 + .01295, .04742, .08142,
1891 + .47972, .21658, .54263, .05798, .01888,
1892 + .01318, .04683, .08008,
1893 + .47597, .21423, .52608, .05718, .01891,
1894 + .01335, .04625, .07879 /
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 + .47223, .21190, .51002, .05641, .01893,
1897 + .01351, .04567, .07751,
1898 + .46847, .20956, .49470, .05560, .01892,
1899 + .01363, .04510, .07626,
1900 + .46489, .20736, .48057, .05483, .01890,
1901 + .01373, .04454, .07509,
1902 + .46148, .20528, .46760, .05412, .01887,
1903 + .01381, .04402, .07399,
1904 + .45793, .20317, .45483, .05340, .01882,
1905 + .01387, .04347, .07288 /
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, .28712, 1.25556, .05715, .00000,
1908 + .00000, .03549, .10262,
1909 + .55470, .28700, 1.23132, .05763, .00000,
1910 + .00000, .03676, .10191,
1911 + .56041, .28591, 1.21177, .05809, -.01020,
1912 + .00000, .03834, .10072,
1913 + .56313, .28456, 1.18000, .05828, -.00956,
1914 + .00000, .03931, .09972,
1915 + .56496, .28284, 1.14303, .05846, -.00842,
1916 + .00000, .04017, .09862,
1917 + .56578, .28112, 1.10807, .05853, -.00636,
1918 + .00000, .04082, .09763,
1919 + .56607, .27930, 1.07470, .05852, -.00427,
1920 + .00000, .04135, .09663,
1921 + .56589, .27720, 1.03995, .05843, -.00244,
1922 + .00000, .04179, .09551 /
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 + .56524, .27524, 1.00987, .05832, -.00104,
1925 + .00000, .04210, .09444,
1926 + .56429, .27325, .98119, .05814, .00023,
1927 + .00000, .04233, .09339,
1928 + .56336, .27162, .95897, .05796, .00119,
1929 + .00000, .04245, .09255,
1930 + .56071, .26802, .91337, .05753, .00303,
1931 + .00000, .04262, .09070,
1932 + .55772, .26468, .87899, .05706, .00440,
1933 + -.00349, .04266, .08906,
1934 + .55386, .26084, .83299, .05643, .00578,
1935 + -.00157, .04257, .08720,
1936 + .54935, .25672, .78762, .05566, .00702,
1937 + .00002, .04235, .08522,
1938 + .54485, .25293, .74851, .05492, .00799,
1939 + .00130, .04205, .08339 /
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 + .53998, .24907, .71100, .05414, .00884,
1942 + .00245, .04169, .08153,
1943 + .53570, .24581, .68127, .05344, .00946,
1944 + .00328, .04134, .07999,
1945 + .53028, .24181, .64688, .05254, .01011,
1946 + .00418, .04084, .07808,
1947 + .52530, .23827, .61802, .05172, .01061,
1948 + .00490, .04036, .07640,
1949 + .52058, .23507, .59280, .05098, .01100,
1950 + .00548, .03991, .07488,
1951 + .51439, .23094, .56220, .04997, .01142,
1952 + .00613, .03927, .07296,
1953 + .50846, .22705, .53508, .04901, .01175,
1954 + .00665, .03865, .07118,
1955 + .50284, .22346, .51104, .04813, .01200,
1956 + .00710, .03804, .06955 /
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 + .49702, .21984, .48809, .04722, .01220,
1959 + .00746, .03742, .06790,
1960 + .49130, .21635, .46676, .04634, .01236,
1961 + .00778, .03681, .06632,
1962 + .48583, .21305, .44758, .04550, .01248,
1963 + .00805, .03621, .06484,
1964 + .48059, .20997, .43026, .04470, .01256,
1965 + .00826, .03564, .06347,
1966 + .47536, .20691, .41370, .04393, .01262,
1967 + .00845, .03506, .06211,
1968 + .47009, .20389, .39805, .04314, .01265,
1969 + .00861, .03449, .06080,
1970 + .46516, .20106, .38387, .04241, .01266,
1971 + .00874, .03396, .05959,
1972 + .46043, .19836, .37092, .04171, .01266,
1973 + .00884, .03344, .05844 /
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 + .45570, .19570, .35843, .04100, .01264,
1976 + .00892, .03292, .05730,
1977 + .45096, .19309, .34652, .04032, .01262,
1978 + .00899, .03241, .05620,
1979 + .44644, .19061, .33561, .03969, .01258,
1980 + .00904, .03190, .05516,
1981 + .44218, .18829, .32564, .03910, .01253,
1982 + .00908, .03144, .05419,
1983 + .43781, .18595, .31586, .03850, .01248,
1984 + .00911, .03098, .05322 /
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 + .58391, .29399, 1.09505, .04721, .00000,
1987 + .00000, .03008, .08998,
1988 + .58707, .29247, 1.06282, .04752, .00000,
1989 + .00000, .03094, .08858,
1990 + .58951, .28943, 1.03188, .04771, -.00902,
1991 + .00000, .03194, .08660,
1992 + .58974, .28682, .99514, .04776, -.00836,
1993 + .00000, .03254, .08502,
1994 + .58906, .28374, .95493, .04772, -.00732,
1995 + .00000, .03302, .08343,
1996 + .58777, .28089, .91872, .04763, -.00565,
1997 + .00000, .03339, .08204,
1998 + .58599, .27806, .88483, .04747, -.00399,
1999 + .00000, .03364, .08071,
2000 + .58361, .27493, .85003, .04725, -.00252,
2001 + .00000, .03383, .07929 /
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 + .58113, .27207, .82048, .04700, -.00141,
2004 + .00000, .03390, .07803,
2005 + .57841, .26926, .79265, .04673, -.00041,
2006 + .00000, .03393, .07680,
2007 + .57608, .26703, .77131, .04648, .00034,
2008 + .00000, .03394, .07581,
2009 + .57062, .26209, .72794, .04589, .00177,
2010 + .00000, .03384, .07374,
2011 + .56525, .25777, .69585, .04533, .00282,
2012 + -.00297, .03367, .07195,
2013 + .55881, .25288, .65426, .04464, .00386,
2014 + -.00151, .03339, .06997,
2015 + .55168, .24775, .61372, .04386, .00479,
2016 + -.00031, .03301, .06789,
2017 + .54493, .24309, .57922, .04309, .00551,
2018 + .00065, .03261, .06603 /
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 + .53791, .23837, .54651, .04226, .00614,
2021 + .00150, .03217, .06417,
2022 + .53190, .23448, .52081, .04159, .00659,
2023 + .00212, .03175, .06262,
2024 + .52440, .22975, .49138, .04073, .00705,
2025 + .00277, .03120, .06081,
2026 + .51770, .22561, .46691, .03993, .00740,
2027 + .00329, .03071, .05923,
2028 + .51152, .22184, .44569, .03922, .00767,
2029 + .00371, .03024, .05779,
2030 + .50343, .21712, .42018, .03832, .00795,
2031 + .00416, .02961, .05600,
2032 + .49582, .21272, .39773, .03746, .00817,
2033 + .00454, .02902, .05435,
2034 + .48871, .20865, .37798, .03665, .00834,
2035 + .00484, .02845, .05285 /
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 + .48151, .20459, .35927, .03582, .00845,
2038 + .00509, .02786, .05139,
2039 + .47444, .20071, .34203, .03502, .00855,
2040 + .00531, .02728, .04998,
2041 + .46775, .19710, .32658, .03431, .00861,
2042 + .00548, .02675, .04868,
2043 + .46143, .19370, .31275, .03362, .00865,
2044 + .00562, .02624, .04747,
2045 + .45517, .19036, .29958, .03293, .00868,
2046 + .00575, .02573, .04629,
2047 + .44895, .18708, .28722, .03224, .00868,
2048 + .00584, .02523, .04515,
2049 + .44314, .18403, .27605, .03162, .00868,
2050 + .00592, .02476, .04410,
2051 + .43757, .18115, .26592, .03103, .00866,
2052 + .00598, .02431, .04311 /
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 + .43203, .17832, .25617, .03045, .00863,
2055 + .00602, .02387, .04214,
2056 + .42657, .17552, .24695, .02988, .00859,
2057 + .00606, .02343, .04121,
2058 + .42139, .17288, .23851, .02933, .00855,
2059 + .00609, .02303, .04034,
2060 + .41652, .17043, .23084, .02882, .00851,
2061 + .00611, .02264, .03954,
2062 + .41158, .16796, .22335, .02830, .00845,
2063 + .00611, .02225, .03872 /
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 + .61088, .29635, .94951, .03930, .00000,
2066 + .00000, .02516, .07717,
2067 + .61154, .29338, .91323, .03937, .00000,
2068 + .00000, .02575, .07555,
2069 + .61016, .28846, .87610, .03943, -.00791,
2070 + .00000, .02641, .07304,
2071 + .60777, .28444, .83760, .03933, -.00726,
2072 + .00000, .02673, .07127,
2073 + .60434, .28006, .79693, .03916, -.00633,
2074 + .00000, .02700, .06941,
2075 + .60070, .27624, .76135, .03900, -.00496,
2076 + .00000, .02718, .06787,
2077 + .59676, .27246, .72856, .03877, -.00361,
2078 + .00000, .02728, .06638,
2079 + .59216, .26834, .69529, .03845, -.00244,
2080 + .00000, .02731, .06481 /
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 + .58782, .26469, .66735, .03813, -.00155,
2083 + .00000, .02727, .06351,
2084 + .58331, .26116, .64133, .03780, -.00076,
2085 + .00000, .02717, .06223,
2086 + .57961, .25839, .62147, .03754, -.00016,
2087 + .00000, .02708, .06122,
2088 + .57129, .25240, .58161, .03690, .00097,
2089 + .00000, .02686, .05907,
2090 + .56364, .24721, .55230, .03629, .00179,
2091 + -.00249, .02659, .05735,
2092 + .55479, .24142, .51541, .03556, .00259,
2093 + -.00137, .02623, .05541,
2094 + .54530, .23545, .47989, .03476, .00329,
2095 + -.00045, .02580, .05343,
2096 + .53648, .23009, .44994, .03403, .00383,
2097 + .00027, .02535, .05169 /
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 + .52744, .22476, .42180, .03326, .00429,
2100 + .00091, .02486, .04996,
2101 + .51987, .22037, .39990, .03261, .00462,
2102 + .00136, .02444, .04857,
2103 + .51060, .21511, .37501, .03180, .00495,
2104 + .00185, .02392, .04689,
2105 + .50239, .21054, .35446, .03109, .00520,
2106 + .00222, .02343, .04547,
2107 + .49490, .20641, .33677, .03042, .00539,
2108 + .00253, .02298, .04421,
2109 + .48527, .20126, .31568, .02959, .00559,
2110 + .00286, .02239, .04260,
2111 + .47628, .19649, .29726, .02883, .00573,
2112 + .00312, .02185, .04116,
2113 + .46795, .19212, .28117, .02811, .00585,
2114 + .00334, .02135, .03986 /
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 + .45955, .18781, .26604, .02740, .00592,
2117 + .00351, .02083, .03858,
2118 + .45145, .18369, .25217, .02672, .00598,
2119 + .00366, .02034, .03738,
2120 + .44387, .17986, .23982, .02606, .00601,
2121 + .00378, .01987, .03626,
2122 + .43674, .17629, .22884, .02547, .00602,
2123 + .00387, .01944, .03524,
2124 + .42970, .17278, .21845, .02486, .00602,
2125 + .00394, .01899, .03427,
2126 + .42273, .16938, .20872, .02429, .00602,
2127 + .00401, .01856, .03331,
2128 + .41622, .16625, .19996, .02377, .00601,
2129 + .00406, .01815, .03244,
2130 + .41005, .16329, .19206, .02327, .00598,
2131 + .00409, .01779, .03162 /
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 + .40395, .16036, .18448, .02278, .00596,
2134 + .00412, .01743, .03082,
2135 + .39795, .15750, .17734, .02229, .00592,
2136 + .00414, .01706, .03007,
2137 + .39232, .15482, .17086, .02184, .00588,
2138 + .00415, .01672, .02935,
2139 + .38704, .15232, .16496, .02142, .00584,
2140 + .00415, .01640, .02869,
2141 + .38168, .14983, .15924, .02100, .00579,
2142 + .00416, .01609, .02804 /
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 + .63068, .29472, .81901, .03285, .00000,
2145 + .00000, .02083, .06486,
2146 + .62841, .29040, .78115, .03289, .00000,
2147 + .00000, .02125, .06303,
2148 + .62299, .28353, .74110, .03275, -.00691,
2149 + .00000, .02165, .06045,
2150 + .61775, .27833, .70282, .03255, -.00628,
2151 + .00000, .02182, .05858,
2152 + .61147, .27276, .66321, .03230, -.00544,
2153 + .00000, .02199, .05668,
2154 + .60552, .26794, .62944, .03204, -.00432,
2155 + .00000, .02201, .05515,
2156 + .59941, .26332, .59857, .03175, -.00322,
2157 + .00000, .02199, .05369,
2158 + .59256, .25843, .56756, .03140, -.00227,
2159 + .00000, .02192, .05218 /
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 + .58634, .25412, .54177, .03106, -.00155,
2162 + .00000, .02182, .05089,
2163 + .58012, .24997, .51801, .03071, -.00091,
2164 + .00000, .02168, .04965,
2165 + .57510, .24673, .50001, .03043, -.00043,
2166 + .00000, .02156, .04868,
2167 + .56417, .23980, .46409, .02973, .00045,
2168 + .00000, .02124, .04673,
2169 + .55439, .23397, .43790, .02915, .00109,
2170 + -.00209, .02092, .04509,
2171 + .54330, .22754, .40565, .02844, .00171,
2172 + -.00122, .02054, .04332,
2173 + .53165, .22093, .37490, .02767, .00225,
2174 + -.00051, .02008, .04152,
2175 + .52104, .21505, .34923, .02698, .00266,
2176 + .00004, .01965, .03995 /
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 + .51031, .20926, .32532, .02627, .00301,
2179 + .00052, .01919, .03841,
2180 + .50139, .20454, .30687, .02566, .00326,
2181 + .00087, .01880, .03718,
2182 + .49061, .19894, .28604, .02491, .00350,
2183 + .00123, .01830, .03574,
2184 + .48116, .19410, .26897, .02427, .00368,
2185 + .00151, .01787, .03451,
2186 + .47255, .18976, .25440, .02370, .00381,
2187 + .00173, .01745, .03341,
2188 + .46169, .18431, .23715, .02296, .00394,
2189 + .00196, .01695, .03207,
2190 + .45162, .17935, .22220, .02228, .00404,
2191 + .00215, .01646, .03086,
2192 + .44231, .17484, .20921, .02167, .00412,
2193 + .00231, .01602, .02975 /
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 + .43310, .17039, .19709, .02102, .00416,
2196 + .00243, .01559, .02870,
2197 + .42423, .16615, .18604, .02042, .00420,
2198 + .00254, .01516, .02769,
2199 + .41597, .16223, .17624, .01987, .00421,
2200 + .00261, .01475, .02679,
2201 + .40822, .15863, .16755, .01937, .00421,
2202 + .00268, .01438, .02595,
2203 + .40058, .15510, .15937, .01887, .00421,
2204 + .00274, .01403, .02513,
2205 + .39309, .15168, .15179, .01840, .00420,
2206 + .00277, .01368, .02436,
2207 + .38614, .14852, .14500, .01795, .00418,
2208 + .00280, .01334, .02366,
2209 + .37964, .14554, .13890, .01752, .00416,
2210 + .00282, .01303, .02300 /
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 + .37323, .14261, .13306, .01709, .00413,
2213 + .00284, .01273, .02237,
2214 + .36691, .13978, .12758, .01669, .00410,
2215 + .00284, .01243, .02174,
2216 + .36095, .13715, .12262, .01632, .00406,
2217 + .00284, .01215, .02118,
2218 + .35541, .13471, .11812, .01598, .00403,
2219 + .00284, .01191, .02065,
2220 + .34981, .13225, .11378, .01565, .00399,
2221 + .00284, .01164, .02011 /
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 + .64362, .28945, .70203, .02742, .00000,
2224 + .00000, .01718, .05344,
2225 + .63822, .28387, .66425, .02742, .00000,
2226 + .00000, .01742, .05162,
2227 + .62844, .27540, .62349, .02730, -.00601,
2228 + .00000, .01765, .04899,
2229 + .62026, .26912, .58651, .02708, -.00540,
2230 + .00000, .01772, .04722,
2231 + .61109, .26258, .54913, .02680, -.00465,
2232 + .00000, .01768, .04543,
2233 + .60279, .25701, .51776, .02651, -.00373,
2234 + .00000, .01765, .04396,
2235 + .59460, .25167, .48929, .02619, -.00284,
2236 + .00000, .01758, .04263,
2237 + .58568, .24603, .46097, .02580, -.00205,
2238 + .00000, .01743, .04124 /
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 + .57763, .24124, .43770, .02547, -.00147,
2241 + .00000, .01730, .04003,
2242 + .56981, .23662, .41638, .02512, -.00095,
2243 + .00000, .01714, .03890,
2244 + .56360, .23299, .40035, .02483, -.00058,
2245 + .00000, .01698, .03804,
2246 + .55019, .22545, .36855, .02414, .00013,
2247 + .00000, .01667, .03629,
2248 + .53861, .21908, .34551, .02355, .00064,
2249 + -.00172, .01633, .03485,
2250 + .52560, .21214, .31773, .02291, .00112,
2251 + -.00105, .01595, .03328,
2252 + .51206, .20515, .29150, .02218, .00153,
2253 + -.00051, .01551, .03173,
2254 + .49987, .19897, .26977, .02154, .00185,
2255 + -.00008, .01512, .03039 /
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 + .48773, .19290, .24971, .02088, .00211,
2258 + .00029, .01472, .02907,
2259 + .47779, .18794, .23435, .02033, .00229,
2260 + .00054, .01435, .02804,
2261 + .46583, .18211, .21719, .01966, .00247,
2262 + .00082, .01390, .02683,
2263 + .45541, .17711, .20320, .01908, .00260,
2264 + .00102, .01351, .02581,
2265 + .44603, .17266, .19126, .01856, .00270,
2266 + .00119, .01318, .02490,
2267 + .43419, .16716, .17731, .01791, .00279,
2268 + .00136, .01273, .02379,
2269 + .42332, .16215, .16530, .01732, .00286,
2270 + .00150, .01232, .02279,
2271 + .41340, .15758, .15495, .01676, .00291,
2272 + .00161, .01195, .02190 /
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 + .40356, .15313, .14534, .01624, .00294,
2275 + .00170, .01157, .02104,
2276 + .39415, .14890, .13662, .01573, .00296,
2277 + .00177, .01122, .02025,
2278 + .38542, .14502, .12894, .01526, .00296,
2279 + .00182, .01088, .01953,
2280 + .37731, .14144, .12218, .01483, .00296,
2281 + .00186, .01059, .01885,
2282 + .36935, .13797, .11583, .01443, .00295,
2283 + .00189, .01031, .01818,
2284 + .36161, .13460, .10997, .01401, .00293,
2285 + .00192, .01002, .01758,
2286 + .35445, .13150, .10474, .01363, .00292,
2287 + .00194, .00976, .01702,
2288 + .34772, .12862, .10006, .01327, .00290,
2289 + .00195, .00952, .01650 /
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 + .34109, .12579, .09561, .01294, .00287,
2292 + .00196, .00928, .01599,
2293 + .33462, .12304, .09144, .01260, .00285,
2294 + .00196, .00903, .01551,
2295 + .32856, .12048, .08768, .01230, .00282,
2296 + .00196, .00881, .01508,
2297 + .32291, .11811, .08428, .01201, .00279,
2298 + .00196, .00859, .01468,
2299 + .31727, .11574, .08103, .01172, .00277,
2300 + .00196, .00839, .01428 /
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 + .64879, .28216, .59729, .02385, .00000,
2303 + .00000, .01340, .04253,
2304 + .64041, .27533, .56049, .02369, .00000,
2305 + .00000, .01363, .04090,
2306 + .62643, .26530, .52032, .02337, -.00518,
2307 + .00000, .01386, .03857,
2308 + .61551, .25805, .48550, .02304, -.00462,
2309 + .00000, .01389, .03700,
2310 + .60371, .25056, .45080, .02263, -.00395,
2311 + .00000, .01385, .03550,
2312 + .59335, .24426, .42210, .02226, -.00318,
2313 + .00000, .01380, .03425,
2314 + .58320, .23836, .39643, .02190, -.00245,
2315 + .00000, .01373, .03304,
2316 + .57230, .23221, .37109, .02150, -.00182,
2317 + .00000, .01362, .03179 /
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 + .56283, .22688, .35039, .02111, -.00134,
2320 + .00000, .01346, .03080,
2321 + .55362, .22188, .33159, .02072, -.00093,
2322 + .00000, .01329, .02986,
2323 + .54634, .21799, .31748, .02039, -.00062,
2324 + .00000, .01318, .02914,
2325 + .53080, .20997, .28985, .01978, -.00006,
2326 + .00000, .01285, .02760,
2327 + .51755, .20329, .26994, .01922, .00035,
2328 + -.00141, .01259, .02636,
2329 + .50290, .19605, .24635, .01858, .00072,
2330 + -.00088, .01225, .02505,
2331 + .48793, .18876, .22425, .01790, .00104,
2332 + -.00046, .01185, .02379,
2333 + .47459, .18235, .20617, .01727, .00128,
2334 + -.00014, .01148, .02270 /
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 + .46139, .17611, .18960, .01665, .00148,
2337 + .00014, .01111, .02165,
2338 + .45059, .17110, .17702, .01615, .00161,
2339 + .00034, .01081, .02081,
2340 + .43768, .16524, .16302, .01558, .00175,
2341 + .00054, .01046, .01981,
2342 + .42654, .16024, .15174, .01506, .00184,
2343 + .00069, .01013, .01898,
2344 + .41656, .15576, .14221, .01460, .00191,
2345 + .00081, .00984, .01828,
2346 + .40417, .15026, .13113, .01404, .00198,
2347 + .00094, .00947, .01737,
2348 + .39281, .14527, .12164, .01352, .00202,
2349 + .00104, .00914, .01656,
2350 + .38245, .14080, .11348, .01304, .00205,
2351 + .00112, .00884, .01585 /
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 + .37226, .13642, .10596, .01259, .00207,
2354 + .00118, .00854, .01520,
2355 + .36258, .13229, .09921, .01213, .00208,
2356 + .00123, .00825, .01457,
2357 + .35367, .12851, .09329, .01170, .00208,
2358 + .00127, .00798, .01402,
2359 + .34535, .12503, .08813, .01135, .00208,
2360 + .00129, .00773, .01349,
2361 + .33721, .12167, .08327, .01103, .00207,
2362 + .00132, .00750, .01299,
2363 + .32938, .11843, .07882, .01067, .00206,
2364 + .00133, .00726, .01252,
2365 + .32217, .11543, .07486, .01035, .00204,
2366 + .00135, .00705, .01209,
2367 + .31537, .11268, .07134, .01007, .00202,
2368 + .00136, .00686, .01169 /
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 + .30870, .10999, .06799, .00981, .00200,
2371 + .00135, .00667, .01130,
2372 + .30224, .10738, .06488, .00954, .00198,
2373 + .00136, .00649, .01094,
2374 + .29621, .10496, .06206, .00928, .00196,
2375 + .00136, .00631, .01062,
2376 + .29061, .10271, .05954, .00904, .00194,
2377 + .00135, .00616, .01031,
2378 + .28502, .10047, .05712, .00882, .00191,
2379 + .00135, .00599, .01001 /
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 + .64838, .27136, .50165, .02002, .00000,
2382 + .00000, .01072, .03350,
2383 + .63676, .26364, .46691, .01985, .00000,
2384 + .00000, .01091, .03201,
2385 + .61864, .25238, .42865, .01949, -.00443,
2386 + .00000, .01100, .03003,
2387 + .60503, .24439, .39656, .01916, -.00391,
2388 + .00000, .01102, .02865,
2389 + .59062, .23625, .36511, .01876, -.00332,
2390 + .00000, .01097, .02733,
2391 + .57815, .22952, .33956, .01841, -.00269,
2392 + .00000, .01090, .02622,
2393 + .56623, .22319, .31683, .01804, -.00210,
2394 + .00000, .01078, .02524,
2395 + .55365, .21663, .29454, .01764, -.00158,
2396 + .00000, .01062, .02424 /
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 + .54274, .21108, .27654, .01727, -.00119,
2399 + .00000, .01048, .02339,
2400 + .53226, .20581, .26026, .01690, -.00085,
2401 + .00000, .01034, .02260,
2402 + .52407, .20172, .24817, .01661, -.00062,
2403 + .00000, .01021, .02199,
2404 + .50676, .19342, .22462, .01601, -.00017,
2405 + .00000, .00992, .02073,
2406 + .49225, .18654, .20774, .01547, .00014,
2407 + -.00114, .00965, .01973,
2408 + .47636, .17915, .18809, .01487, .00044,
2409 + -.00074, .00934, .01867,
2410 + .46017, .17180, .16987, .01426, .00068,
2411 + -.00041, .00901, .01764,
2412 + .44588, .16539, .15508, .01371, .00087,
2413 + -.00017, .00870, .01675 /
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 + .43186, .15916, .14168, .01316, .00101,
2416 + .00004, .00839, .01589,
2417 + .42049, .15417, .13156, .01271, .00112,
2418 + .00020, .00813, .01524,
2419 + .40706, .14835, .12043, .01219, .00121,
2420 + .00034, .00784, .01443,
2421 + .39550, .14342, .11146, .01176, .00129,
2422 + .00046, .00759, .01377,
2423 + .38516, .13907, .10395, .01138, .00134,
2424 + .00055, .00733, .01319,
2425 + .37240, .13369, .09528, .01089, .00139,
2426 + .00065, .00702, .01251,
2427 + .36077, .12886, .08792, .01045, .00141,
2428 + .00071, .00675, .01191,
2429 + .35021, .12451, .08166, .01006, .00144,
2430 + .00078, .00649, .01137 /
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 + .33992, .12030, .07591, .00967, .00145,
2433 + .00081, .00626, .01085,
2434 + .33017, .11634, .07079, .00929, .00145,
2435 + .00085, .00602, .01037,
2436 + .32119, .11275, .06631, .00896, .00146,
2437 + .00088, .00581, .00992,
2438 + .31294, .10945, .06242, .00865, .00145,
2439 + .00090, .00562, .00953,
2440 + .30488, .10624, .05882, .00835, .00144,
2441 + .00091, .00544, .00916,
2442 + .29707, .10319, .05549, .00809, .00143,
2443 + .00092, .00526, .00881,
2444 + .28988, .10039, .05253, .00785, .00142,
2445 + .00093, .00510, .00849,
2446 + .28321, .09778, .04995, .00761, .00140,
2447 + .00093, .00494, .00819 /
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 + .27670, .09524, .04749, .00737, .00139,
2450 + .00094, .00479, .00791,
2451 + .27038, .09280, .04521, .00715, .00137,
2452 + .00094, .00465, .00764,
2453 + .26449, .09053, .04318, .00695, .00136,
2454 + .00094, .00451, .00738,
2455 + .25904, .08844, .04135, .00677, .00134,
2456 + .00093, .00440, .00714,
2457 + .25359, .08638, .03959, .00658, .00132,
2458 + .00092, .00427, .00692 /
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 + .64137, .25891, .41470, .01710, .00000,
2461 + .00000, .00828, .02555,
2462 + .62670, .25042, .38260, .01694, .00000,
2463 + .00000, .00843, .02431,
2464 + .60478, .23809, .34719, .01646, -.00374,
2465 + .00000, .00855, .02270,
2466 + .58883, .22941, .31836, .01599, -.00327,
2467 + .00000, .00853, .02170,
2468 + .57202, .22090, .29047, .01564, -.00276,
2469 + .00000, .00848, .02053,
2470 + .55788, .21376, .26810, .01527, -.00224,
2471 + .00000, .00839, .01968,
2472 + .54447, .20711, .24842, .01488, -.00176,
2473 + .00000, .00831, .01887,
2474 + .53041, .20032, .22931, .01449, -.00134,
2475 + .00000, .00819, .01803 /
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 + .51832, .19462, .21397, .01412, -.00103,
2478 + .00000, .00808, .01731,
2479 + .50687, .18922, .20023, .01376, -.00077,
2480 + .00000, .00794, .01669,
2481 + .49795, .18508, .19009, .01345, -.00057,
2482 + .00000, .00781, .01621,
2483 + .47923, .17658, .17051, .01290, -.00022,
2484 + .00000, .00756, .01525,
2485 + .46374, .16966, .15651, .01241, .00002,
2486 + -.00092, .00732, .01448,
2487 + .44688, .16230, .14046, .01187, .00025,
2488 + -.00060, .00705, .01366,
2489 + .42991, .15498, .12576, .01132, .00045,
2490 + -.00035, .00679, .01281,
2491 + .41504, .14865, .11396, .01085, .00058,
2492 + -.00017, .00654, .01210 /
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 + .40054, .14257, .10336, .01037, .00069,
2495 + -.00001, .00626, .01143,
2496 + .38883, .13772, .09539, .00998, .00077,
2497 + .00011, .00606, .01090,
2498 + .37505, .13206, .08672, .00953, .00085,
2499 + .00022, .00580, .01034,
2500 + .36329, .12729, .07982, .00915, .00089,
2501 + .00030, .00557, .00986,
2502 + .35287, .12309, .07410, .00879, .00093,
2503 + .00036, .00538, .00939,
2504 + .34001, .11794, .06750, .00838, .00096,
2505 + .00044, .00514, .00888,
2506 + .32834, .11333, .06192, .00803, .00099,
2507 + .00049, .00493, .00841,
2508 + .31780, .10921, .05724, .00770, .00100,
2509 + .00053, .00474, .00797 /
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 + .30754, .10523, .05300, .00738, .00101,
2512 + .00056, .00453, .00760,
2513 + .29788, .10151, .04920, .00709, .00101,
2514 + .00058, .00435, .00724,
2515 + .28907, .09810, .04593, .00680, .00101,
2516 + .00060, .00418, .00693,
2517 + .28097, .09502, .04308, .00653, .00101,
2518 + .00062, .00404, .00664,
2519 + .27313, .09202, .04042, .00629, .00100,
2520 + .00063, .00391, .00635,
2521 + .26554, .08917, .03803, .00608, .00099,
2522 + .00064, .00376, .00610,
2523 + .25857, .08657, .03591, .00588, .00098,
2524 + .00064, .00363, .00586,
2525 + .25212, .08417, .03407, .00569, .00097,
2526 + .00064, .00352, .00564 /
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 + .24581, .08183, .03231, .00550, .00096,
2529 + .00065, .00341, .00543,
2530 + .23974, .07958, .03070, .00531, .00094,
2531 + .00064, .00331, .00522,
2532 + .23409, .07749, .02925, .00515, .00093,
2533 + .00064, .00320, .00504,
2534 + .22886, .07557, .02796, .00501, .00092,
2535 + .00064, .00311, .00488,
2536 + .22365, .07368, .02673, .00487, .00090,
2537 + .00063, .00301, .00471 /
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 + .62850, .24477, .33533, .01442, .00000,
2540 + .00000, .00630, .01907,
2541 + .61130, .23542, .30646, .01414, .00000,
2542 + .00000, .00646, .01818,
2543 + .58587, .22240, .27464, .01364, -.00312,
2544 + .00000, .00656, .01689,
2545 + .56762, .21346, .24945, .01327, -.00270,
2546 + .00000, .00655, .01600,
2547 + .54896, .20449, .22534, .01287, -.00227,
2548 + .00000, .00655, .01512,
2549 + .53331, .19714, .20635, .01249, -.00185,
2550 + .00000, .00645, .01448,
2551 + .51857, .19040, .18974, .01216, -.00146,
2552 + .00000, .00634, .01382,
2553 + .50330, .18352, .17372, .01179, -.00112,
2554 + .00000, .00626, .01316 /
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 + .49036, .17770, .16102, .01142, -.00087,
2557 + .00000, .00613, .01267,
2558 + .47811, .17229, .14974, .01107, -.00066,
2559 + .00000, .00602, .01217,
2560 + .46863, .16815, .14145, .01083, -.00050,
2561 + .00000, .00593, .01178,
2562 + .44895, .15973, .12562, .01030, -.00023,
2563 + .00000, .00570, .01101,
2564 + .43274, .15294, .11441, .00987, -.00005,
2565 + -.00073, .00549, .01040,
2566 + .41530, .14570, .10166, .00939, .00013,
2567 + -.00049, .00528, .00976,
2568 + .39783, .13856, .09013, .00890, .00028,
2569 + -.00030, .00504, .00916,
2570 + .38261, .13242, .08101, .00845, .00038,
2571 + -.00016, .00482, .00865 /
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 + .36788, .12654, .07285, .00805, .00047,
2574 + -.00003, .00463, .00815,
2575 + .35608, .12186, .06682, .00775, .00052,
2576 + .00005, .00444, .00775,
2577 + .34228, .11650, .06029, .00736, .00057,
2578 + .00013, .00425, .00729,
2579 + .33058, .11195, .05512, .00702, .00061,
2580 + .00019, .00408, .00690,
2581 + .32025, .10794, .05084, .00673, .00064,
2582 + .00025, .00393, .00659,
2583 + .30748, .10310, .04602, .00641, .00066,
2584 + .00029, .00373, .00619,
2585 + .29600, .09878, .04196, .00612, .00068,
2586 + .00033, .00356, .00585,
2587 + .28570, .09491, .03857, .00585, .00070,
2588 + .00036, .00341, .00554 /
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 + .27572, .09122, .03552, .00559, .00070,
2591 + .00039, .00326, .00525,
2592 + .26634, .08775, .03283, .00533, .00069,
2593 + .00040, .00313, .00499,
2594 + .25777, .08459, .03051, .00511, .00070,
2595 + .00041, .00300, .00477,
2596 + .24997, .08174, .02851, .00490, .00069,
2597 + .00042, .00288, .00456,
2598 + .24241, .07899, .02670, .00469, .00068,
2599 + .00043, .00275, .00436,
2600 + .23514, .07637, .02504, .00452, .00068,
2601 + .00043, .00266, .00416,
2602 + .22849, .07399, .02358, .00436, .00067,
2603 + .00043, .00257, .00398,
2604 + .22236, .07178, .02230, .00421, .00066,
2605 + .00044, .00248, .00384 /
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 + .21640, .06963, .02110, .00405, .00065,
2608 + .00043, .00239, .00369,
2609 + .21063, .06760, .01999, .00392, .00064,
2610 + .00044, .00231, .00356,
2611 + .20527, .06572, .01901, .00380, .00064,
2612 + .00044, .00223, .00343,
2613 + .20032, .06400, .01815, .00368, .00062,
2614 + .00043, .00216, .00331,
2615 + .19546, .06228, .01732, .00356, .00061,
2616 + .00042, .00209, .00320 /
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 + .61044, .22893, .26313, .01187, .00000,
2619 + .00000, .00488, .01398,
2620 + .59074, .21923, .23794, .01152, .00000,
2621 + .00000, .00505, .01329,
2622 + .56227, .20570, .21048, .01107, -.00257,
2623 + .00000, .00508, .01234,
2624 + .54228, .19652, .18902, .01072, -.00220,
2625 + .00000, .00509, .01165,
2626 + .52195, .18753, .16896, .01033, -.00184,
2627 + .00000, .00496, .01103,
2628 + .50509, .18016, .15324, .01003, -.00149,
2629 + .00000, .00494, .01043,
2630 + .48941, .17338, .13971, .00968, -.00119,
2631 + .00000, .00487, .00996,
2632 + .47329, .16649, .12676, .00930, -.00092,
2633 + .00000, .00475, .00952 /
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 + .45963, .16076, .11663, .00903, -.00073,
2636 + .00000, .00463, .00909,
2637 + .44677, .15543, .10762, .00878, -.00056,
2638 + .00000, .00454, .00871,
2639 + .43688, .15137, .10106, .00854, -.00044,
2640 + .00000, .00446, .00843,
2641 + .41661, .14311, .08869, .00806, -.00022,
2642 + .00000, .00426, .00786,
2643 + .40008, .13648, .08000, .00765, -.00008,
2644 + -.00056, .00411, .00744,
2645 + .38233, .12952, .07031, .00723, .00005,
2646 + -.00038, .00390, .00696,
2647 + .36473, .12268, .06160, .00683, .00017,
2648 + -.00024, .00372, .00649,
2649 + .34951, .11683, .05477, .00649, .00024,
2650 + -.00014, .00357, .00607 /
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 + .33483, .11125, .04878, .00615, .00031,
2653 + -.00004, .00341, .00569,
2654 + .32316, .10685, .04437, .00587, .00035,
2655 + .00002, .00327, .00539,
2656 + .30952, .10176, .03965, .00557, .00039,
2657 + .00008, .00310, .00509,
2658 + .29799, .09751, .03598, .00530, .00041,
2659 + .00012, .00297, .00481,
2660 + .28786, .09379, .03297, .00507, .00044,
2661 + .00016, .00286, .00453,
2662 + .27552, .08928, .02957, .00479, .00046,
2663 + .00020, .00269, .00427,
2664 + .26441, .08527, .02678, .00454, .00047,
2665 + .00022, .00256, .00402,
2666 + .25445, .08170, .02445, .00434, .00048,
2667 + .00025, .00244, .00380 /
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 + .24486, .07831, .02239, .00414, .00047,
2670 + .00026, .00233, .00358,
2671 + .23590, .07514, .02058, .00396, .00047,
2672 + .00027, .00223, .00338,
2673 + .22779, .07226, .01904, .00375, .00047,
2674 + .00027, .00213, .00323,
2675 + .22034, .06965, .01771, .00360, .00046,
2676 + .00028, .00204, .00310,
2677 + .21313, .06714, .01649, .00346, .00046,
2678 + .00029, .00197, .00297,
2679 + .20629, .06478, .01542, .00333, .00046,
2680 + .00029, .00189, .00282,
2681 + .20003, .06261, .01447, .00321, .00046,
2682 + .00030, .00182, .00268,
2683 + .19429, .06064, .01366, .00307, .00045,
2684 + .00029, .00175, .00257 /
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 + .18871, .05873, .01291, .00294, .00044,
2687 + .00030, .00167, .00247,
2688 + .18333, .05689, .01222, .00283, .00043,
2689 + .00029, .00162, .00237,
2690 + .17837, .05521, .01161, .00272, .00042,
2691 + .00029, .00157, .00228,
2692 + .17379, .05367, .01105, .00263, .00042,
2693 + .00029, .00153, .00219,
2694 + .16925, .05215, .01053, .00256, .00041,
2695 + .00029, .00147, .00211 /
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 + .58734, .21253, .19813, .00991, .00000,
2698 + .00000, .00358, .00983,
2699 + .56556, .20258, .17696, .00960, .00000,
2700 + .00000, .00368, .00937,
2701 + .53455, .18892, .15422, .00912, -.00208,
2702 + .00000, .00371, .00866,
2703 + .51316, .17967, .13665, .00873, -.00177,
2704 + .00000, .00371, .00824,
2705 + .49170, .17055, .12048, .00840, -.00147,
2706 + .00000, .00371, .00771,
2707 + .47403, .16321, .10804, .00803, -.00120,
2708 + .00000, .00364, .00738,
2709 + .45766, .15655, .09741, .00772, -.00095,
2710 + .00000, .00357, .00705,
2711 + .44090, .14982, .08740, .00742, -.00074,
2712 + .00000, .00348, .00668 /
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 + .42685, .14422, .07960, .00715, -.00059,
2715 + .00000, .00340, .00639,
2716 + .41376, .13903, .07282, .00688, -.00046,
2717 + .00000, .00332, .00609,
2718 + .40370, .13508, .06788, .00667, -.00037,
2719 + .00000, .00328, .00587,
2720 + .38307, .12718, .05872, .00632, -.00020,
2721 + .00000, .00313, .00544,
2722 + .36647, .12084, .05231, .00595, -.00010,
2723 + -.00044, .00300, .00513,
2724 + .34879, .11421, .04523, .00561, .00000,
2725 + -.00030, .00287, .00476,
2726 + .33135, .10772, .03899, .00525, .00009,
2727 + -.00019, .00272, .00444,
2728 + .31634, .10221, .03418, .00495, .00015,
2729 + -.00012, .00258, .00417 /
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 + .30191, .09701, .03000, .00468, .00020,
2732 + -.00004, .00245, .00389,
2733 + .29055, .09289, .02699, .00445, .00023,
2734 + .00000, .00232, .00369,
2735 + .27736, .08817, .02381, .00417, .00026,
2736 + .00004, .00221, .00346,
2737 + .26625, .08423, .02136, .00396, .00027,
2738 + .00007, .00210, .00326,
2739 + .25650, .08078, .01936, .00379, .00029,
2740 + .00010, .00201, .00310,
2741 + .24457, .07666, .01716, .00360, .00030,
2742 + .00012, .00192, .00287,
2743 + .23399, .07301, .01538, .00339, .00031,
2744 + .00015, .00180, .00269,
2745 + .22460, .06976, .01390, .00320, .00031,
2746 + .00016, .00171, .00256 /
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 + .21556, .06665, .01261, .00303, .00031,
2749 + .00017, .00162, .00242,
2750 + .20708, .06378, .01151, .00287, .00032,
2751 + .00018, .00155, .00229,
2752 + .19940, .06118, .01058, .00277, .00032,
2753 + .00018, .00148, .00216,
2754 + .19246, .05886, .00980, .00263, .00032,
2755 + .00019, .00142, .00204,
2756 + .18579, .05663, .00908, .00251, .00031,
2757 + .00019, .00136, .00194,
2758 + .17939, .05452, .00845, .00241, .00031,
2759 + .00020, .00130, .00185,
2760 + .17357, .05260, .00792, .00231, .00030,
2761 + .00019, .00124, .00176,
2762 + .16823, .05085, .00744, .00222, .00030,
2763 + .00020, .00120, .00169 /
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 + .16307, .04914, .00701, .00213, .00029,
2766 + .00020, .00117, .00161,
2767 + .15811, .04751, .00662, .00205, .00029,
2768 + .00019, .00112, .00155,
2769 + .15354, .04603, .00628, .00197, .00029,
2770 + .00020, .00107, .00149,
2771 + .14934, .04465, .00600, .00189, .00028,
2772 + .00019, .00102, .00144,
2773 + .14519, .04332, .00569, .00184, .00027,
2774 + .00019, .00099, .00139 /
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 + .56000, .19547, .14010, .00809, .00000,
2777 + .00000, .00258, .00676,
2778 + .53651, .18549, .12325, .00784, .00000,
2779 + .00000, .00259, .00644,
2780 + .50373, .17177, .10531, .00735, -.00165,
2781 + .00000, .00267, .00603,
2782 + .48122, .16273, .09170, .00707, -.00139,
2783 + .00000, .00266, .00562,
2784 + .45892, .15382, .07934, .00667, -.00115,
2785 + .00000, .00265, .00534,
2786 + .44068, .14667, .07005, .00642, -.00094,
2787 + .00000, .00258, .00506,
2788 + .42396, .14019, .06215, .00615, -.00074,
2789 + .00000, .00255, .00481,
2790 + .40698, .13364, .05479, .00586, -.00058,
2791 + .00000, .00250, .00456 /
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 + .39278, .12832, .04920, .00565, -.00046,
2794 + .00000, .00244, .00428,
2795 + .37959, .12339, .04439, .00544, -.00037,
2796 + .00000, .00238, .00405,
2797 + .36950, .11965, .04094, .00526, -.00029,
2798 + .00000, .00231, .00391,
2799 + .34906, .11207, .03455, .00490, -.00018,
2800 + .00000, .00218, .00367,
2801 + .33262, .10611, .03022, .00463, -.00009,
2802 + -.00033, .00209, .00343,
2803 + .31523, .09990, .02543, .00435, -.00002,
2804 + -.00023, .00200, .00317,
2805 + .29826, .09384, .02131, .00404, .00004,
2806 + -.00015, .00189, .00292,
2807 + .28376, .08873, .01820, .00378, .00009,
2808 + -.00009, .00178, .00273 /
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 + .26988, .08388, .01553, .00356, .00012,
2811 + -.00005, .00167, .00258,
2812 + .25889, .08008, .01367, .00338, .00015,
2813 + -.00001, .00158, .00245,
2814 + .24620, .07578, .01172, .00320, .00017,
2815 + .00002, .00150, .00227,
2816 + .23560, .07219, .01026, .00303, .00018,
2817 + .00005, .00143, .00213,
2818 + .22636, .06907, .00911, .00288, .00019,
2819 + .00006, .00135, .00202,
2820 + .21519, .06530, .00790, .00269, .00020,
2821 + .00008, .00127, .00187,
2822 + .20523, .06199, .00693, .00253, .00021,
2823 + .00009, .00120, .00175,
2824 + .19638, .05907, .00614, .00240, .00021,
2825 + .00011, .00117, .00163 /
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 + .18795, .05630, .00548, .00226, .00021,
2828 + .00011, .00110, .00154,
2829 + .18011, .05372, .00491, .00213, .00022,
2830 + .00012, .00103, .00146,
2831 + .17300, .05141, .00444, .00203, .00021,
2832 + .00012, .00099, .00139,
2833 + .16657, .04933, .00406, .00193, .00021,
2834 + .00013, .00094, .00133,
2835 + .16039, .04735, .00371, .00185, .00021,
2836 + .00013, .00092, .00124,
2837 + .15455, .04548, .00343, .00176, .00020,
2838 + .00013, .00087, .00119,
2839 + .14925, .04378, .00320, .00168, .00020,
2840 + .00013, .00084, .00113,
2841 + .14439, .04223, .00299, .00161, .00020,
2842 + .00013, .00079, .00108 /
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 + .13967, .04075, .00280, .00155, .00019,
2845 + .00013, .00076, .00104,
2846 + .13516, .03933, .00263, .00149, .00020,
2847 + .00014, .00073, .00099,
2848 + .13100, .03802, .00251, .00143, .00019,
2849 + .00013, .00069, .00096,
2850 + .12719, .03684, .00239, .00138, .00019,
2851 + .00013, .00067, .00091,
2852 + .12345, .03566, .00229, .00132, .00018,
2853 + .00013, .00064, .00089 /
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 + .52888, .17786, .08951, .00632, .00000,
2856 + .00000, .00186, .00459,
2857 + .50416, .16796, .07686, .00608, .00000,
2858 + .00000, .00192, .00438,
2859 + .47002, .15457, .06380, .00571, -.00129,
2860 + .00000, .00201, .00404,
2861 + .44696, .14576, .05398, .00542, -.00108,
2862 + .00000, .00195, .00379,
2863 + .42425, .13715, .04513, .00516, -.00088,
2864 + .00000, .00195, .00357,
2865 + .40583, .13028, .03867, .00489, -.00072,
2866 + .00000, .00190, .00341,
2867 + .38900, .12407, .03332, .00467, -.00057,
2868 + .00000, .00186, .00325,
2869 + .37201, .11788, .02839, .00444, -.00045,
2870 + .00000, .00182, .00307 /
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 + .35790, .11281, .02477, .00423, -.00037,
2873 + .00000, .00175, .00295,
2874 + .34485, .10815, .02166, .00406, -.00029,
2875 + .00000, .00170, .00281,
2876 + .33489, .10462, .01951, .00392, -.00024,
2877 + .00000, .00167, .00270,
2878 + .31489, .09758, .01563, .00363, -.00014,
2879 + .00000, .00157, .00248,
2880 + .29889, .09205, .01303, .00342, -.00008,
2881 + -.00024, .00151, .00229,
2882 + .28206, .08627, .01015, .00320, -.00003,
2883 + -.00017, .00143, .00212,
2884 + .26570, .08071, .00783, .00298, .00001,
2885 + -.00012, .00132, .00198,
2886 + .25179, .07602, .00610, .00278, .00005,
2887 + -.00007, .00125, .00185 /
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 + .23861, .07161, .00470, .00257, .00008,
2890 + -.00003, .00119, .00172,
2891 + .22822, .06822, .00377, .00246, .00009,
2892 + -.00002, .00115, .00158,
2893 + .21633, .06428, .00286, .00227, .00011,
2894 + .00001, .00107, .00148,
2895 + .20641, .06104, .00221, .00212, .00011,
2896 + .00002, .00101, .00140,
2897 + .19774, .05826, .00173, .00202, .00012,
2898 + .00003, .00096, .00131,
2899 + .18729, .05489, .00122, .00191, .00013,
2900 + .00005, .00089, .00121,
2901 + .17808, .05195, .00087, .00177, .00013,
2902 + .00006, .00085, .00114,
2903 + .16993, .04936, .00060, .00166, .00014,
2904 + .00007, .00081, .00108 /
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 + .16215, .04690, .00040, .00157, .00014,
2907 + .00008, .00076, .00103,
2908 + .15492, .04465, .00025, .00148, .00014,
2909 + .00008, .00073, .00096,
2910 + .14843, .04263, .00016, .00141, .00014,
2911 + .00008, .00070, .00090,
2912 + .14259, .04080, .00009, .00134, .00014,
2913 + .00008, .00066, .00084,
2914 + .13701, .03906, .00004, .00125, .00013,
2915 + .00008, .00062, .00080,
2916 + .13170, .03743, -.00001, .00121, .00014,
2917 + .00009, .00060, .00076,
2918 + .12687, .03596, -.00003, .00116, .00013,
2919 + .00009, .00057, .00073,
2920 + .12250, .03462, -.00004, .00110, .00013,
2921 + .00009, .00054, .00069 /
2922 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
2923 + .11828, .03333, -.00003, .00103, .00013,
2924 + .00008, .00052, .00067,
2925 + .11422, .03212, -.00003, .00098, .00012,
2926 + .00008, .00049, .00063,
2927 + .11048, .03099, -.00003, .00096, .00012,
2928 + .00008, .00048, .00061,
2929 + .10707, .02997, -.00002, .00094, .00012,
2930 + .00009, .00046, .00059,
2931 + .10375, .02897, .00001, .00090, .00012,
2932 + .00009, .00044, .00055 /
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 + .49464, .16019, .04623, .00483, .00000,
2935 + .00000, .00141, .00306,
2936 + .46916, .15055, .03767, .00462, .00000,
2937 + .00000, .00145, .00292,
2938 + .43437, .13754, .02949, .00420, -.00099,
2939 + .00000, .00150, .00272,
2940 + .41103, .12906, .02312, .00394, -.00082,
2941 + .00000, .00148, .00263,
2942 + .38831, .12088, .01769, .00368, -.00067,
2943 + .00000, .00146, .00244,
2944 + .36996, .11442, .01375, .00351, -.00055,
2945 + .00000, .00142, .00233,
2946 + .35333, .10858, .01060, .00334, -.00043,
2947 + .00000, .00139, .00221,
2948 + .33662, .10277, .00783, .00316, -.00034,
2949 + .00000, .00136, .00208 /
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 + .32274, .09803, .00590, .00304, -.00028,
2952 + .00000, .00132, .00197,
2953 + .31003, .09371, .00428, .00288, -.00022,
2954 + .00000, .00128, .00189,
2955 + .30043, .09044, .00318, .00276, -.00018,
2956 + .00000, .00124, .00185,
2957 + .28108, .08394, .00142, .00251, -.00012,
2958 + .00000, .00119, .00169,
2959 + .26574, .07886, .00027, .00237, -.00007,
2960 + -.00018, .00112, .00156,
2961 + .24976, .07360, -.00096, .00216, -.00003,
2962 + -.00012, .00105, .00146,
2963 + .23428, .06857, -.00195, .00200, .00001,
2964 + -.00008, .00099, .00136,
2965 + .22113, .06435, -.00252, .00186, .00003,
2966 + -.00005, .00094, .00126 /
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 + .20874, .06039, -.00290, .00172, .00004,
2969 + -.00004, .00088, .00117,
2970 + .19905, .05732, -.00309, .00161, .00006,
2971 + -.00001, .00082, .00110,
2972 + .18797, .05388, -.00326, .00152, .00007,
2973 + .00000, .00078, .00099,
2974 + .17876, .05100, -.00328, .00143, .00007,
2975 + .00001, .00074, .00093,
2976 + .17080, .04852, -.00328, .00133, .00008,
2977 + .00003, .00069, .00089,
2978 + .16122, .04557, -.00323, .00124, .00008,
2979 + .00003, .00065, .00082,
2980 + .15279, .04298, -.00312, .00116, .00008,
2981 + .00004, .00061, .00077,
2982 + .14535, .04072, -.00301, .00110, .00009,
2983 + .00005, .00058, .00074 /
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 + .13831, .03859, -.00288, .00102, .00009,
2986 + .00005, .00055, .00069,
2987 + .13178, .03663, -.00274, .00096, .00008,
2988 + .00005, .00052, .00064,
2989 + .12592, .03489, -.00258, .00090, .00009,
2990 + .00006, .00048, .00060,
2991 + .12066, .03331, -.00243, .00086, .00009,
2992 + .00005, .00046, .00056,
2993 + .11567, .03182, -.00230, .00081, .00008,
2994 + .00005, .00044, .00054,
2995 + .11093, .03042, -.00216, .00078, .00008,
2996 + .00005, .00041, .00051,
2997 + .10663, .02918, -.00203, .00074, .00008,
2998 + .00005, .00040, .00047,
2999 + .10272, .02804, -.00192, .00071, .00009,
3000 + .00006, .00038, .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 + .09895, .02693, -.00179, .00067, .00008,
3003 + .00006, .00037, .00042,
3004 + .09539, .02589, -.00168, .00064, .00008,
3005 + .00006, .00034, .00041,
3006 + .09212, .02495, -.00159, .00062, .00008,
3007 + .00006, .00033, .00039,
3008 + .08914, .02408, -.00148, .00060, .00008,
3009 + .00005, .00032, .00038,
3010 + .08623, .02323, -.00138, .00056, .00007,
3011 + .00005, .00031, .00036 /
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 + .45839, .14350, .00974, .00403, .00000,
3014 + .00000, .00075, .00177,
3015 + .43264, .13417, .00506, .00379, .00000,
3016 + .00000, .00081, .00175,
3017 + .39779, .12183, .00119, .00344, -.00074,
3018 + .00000, .00086, .00166,
3019 + .37457, .11379, -.00203, .00329, -.00061,
3020 + .00000, .00087, .00157,
3021 + .35220, .10608, -.00450, .00302, -.00049,
3022 + .00000, .00088, .00147,
3023 + .33421, .10004, -.00616, .00289, -.00040,
3024 + .00000, .00090, .00134,
3025 + .31806, .09459, -.00736, .00273, -.00032,
3026 + .00000, .00087, .00129,
3027 + .30194, .08918, -.00821, .00249, -.00026,
3028 + .00000, .00080, .00128 /
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 + .28865, .08481, -.00879, .00234, -.00021,
3031 + .00000, .00080, .00123,
3032 + .27645, .08083, -.00909, .00223, -.00016,
3033 + .00000, .00076, .00114,
3034 + .26722, .07785, -.00925, .00217, -.00014,
3035 + .00000, .00075, .00107,
3036 + .24881, .07192, -.00940, .00195, -.00009,
3037 + .00000, .00071, .00101,
3038 + .23431, .06731, -.00923, .00180, -.00006,
3039 + -.00013, .00068, .00094,
3040 + .21925, .06257, -.00921, .00167, -.00003,
3041 + -.00010, .00062, .00087,
3042 + .20471, .05806, -.00904, .00157, -.00001,
3043 + -.00007, .00059, .00079,
3044 + .19250, .05429, -.00876, .00147, .00001,
3045 + -.00004, .00055, .00073 /
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 + .18106, .05078, -.00837, .00134, .00002,
3048 + -.00003, .00052, .00068,
3049 + .17217, .04807, -.00805, .00124, .00003,
3050 + -.00001, .00050, .00063,
3051 + .16201, .04498, -.00759, .00115, .00004,
3052 + .00000, .00045, .00059,
3053 + .15361, .04246, -.00722, .00108, .00005,
3054 + .00001, .00044, .00057,
3055 + .14638, .04028, -.00686, .00101, .00005,
3056 + .00001, .00043, .00053,
3057 + .13774, .03772, -.00634, .00090, .00005,
3058 + .00002, .00038, .00050,
3059 + .13010, .03547, -.00590, .00085, .00005,
3060 + .00002, .00035, .00046,
3061 + .12335, .03350, -.00553, .00084, .00006,
3062 + .00003, .00035, .00044 /
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 + .11704, .03166, -.00513, .00077, .00006,
3065 + .00003, .00032, .00040,
3066 + .11124, .02996, -.00475, .00070, .00005,
3067 + .00003, .00030, .00037,
3068 + .10604, .02846, -.00444, .00067, .00005,
3069 + .00003, .00028, .00036,
3070 + .10136, .02712, -.00416, .00063, .00006,
3071 + .00004, .00027, .00034,
3072 + .09689, .02585, -.00386, .00060, .00006,
3073 + .00004, .00024, .00031,
3074 + .09271, .02466, -.00360, .00057, .00006,
3075 + .00004, .00023, .00029,
3076 + .08893, .02359, -.00337, .00057, .00005,
3077 + .00004, .00022, .00027,
3078 + .08551, .02263, -.00315, .00053, .00005,
3079 + .00003, .00021, .00026 /
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 + .08221, .02170, -.00295, .00050, .00005,
3082 + .00003, .00021, .00024,
3083 + .07909, .02082, -.00276, .00048, .00005,
3084 + .00003, .00020, .00023,
3085 + .07625, .02001, -.00259, .00045, .00005,
3086 + .00003, .00019, .00022,
3087 + .07365, .01929, -.00245, .00044, .00005,
3088 + .00003, .00017, .00022,
3089 + .07111, .01857, -.00229, .00041, .00004,
3090 + .00003, .00017, .00021 /
3091 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
3092 + .42002, .12628, -.01913, .00273, .00000,
3093 + .00000, .00060, .00121,
3094 + .39431, .11757, -.02032, .00265, .00000,
3095 + .00000, .00061, .00113,
3096 + .35981, .10608, -.02022, .00245, -.00054,
3097 + .00000, .00067, .00100,
3098 + .33742, .09858, -.02075, .00222, -.00044,
3099 + .00000, .00064, .00101,
3100 + .31559, .09149, -.02087, .00208, -.00035,
3101 + .00000, .00065, .00099,
3102 + .29837, .08595, -.02059, .00192, -.00029,
3103 + .00000, .00064, .00091,
3104 + .28285, .08098, -.02016, .00181, -.00023,
3105 + .00000, .00060, .00084,
3106 + .26738, .07610, -.01964, .00174, -.00019,
3107 + .00000, .00061, .00079 /
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 + .25475, .07215, -.01902, .00165, -.00015,
3110 + .00000, .00058, .00074,
3111 + .24324, .06855, -.01840, .00156, -.00012,
3112 + .00000, .00057, .00072,
3113 + .23458, .06585, -.01791, .00148, -.00010,
3114 + .00000, .00055, .00074,
3115 + .21733, .06059, -.01664, .00136, -.00007,
3116 + .00000, .00049, .00064,
3117 + .20384, .05647, -.01560, .00126, -.00005,
3118 + -.00009, .00045, .00061,
3119 + .18991, .05227, -.01468, .00117, -.00002,
3120 + -.00006, .00045, .00055,
3121 + .17658, .04830, -.01363, .00107, -.00001,
3122 + -.00005, .00042, .00048,
3123 + .16542, .04499, -.01267, .00096, .00001,
3124 + -.00003, .00038, .00047 /
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 + .15499, .04192, -.01177, .00089, .00001,
3127 + -.00002, .00034, .00045,
3128 + .14686, .03957, -.01106, .00087, .00002,
3129 + -.00001, .00032, .00041,
3130 + .13770, .03691, -.01018, .00079, .00003,
3131 + .00000, .00030, .00037,
3132 + .13013, .03473, -.00944, .00072, .00002,
3133 + .00000, .00028, .00035,
3134 + .12363, .03285, -.00882, .00070, .00002,
3135 + .00000, .00027, .00032,
3136 + .11590, .03064, -.00806, .00063, .00003,
3137 + .00001, .00024, .00030,
3138 + .10913, .02872, -.00741, .00058, .00003,
3139 + .00001, .00023, .00027,
3140 + .10321, .02706, -.00684, .00053, .00003,
3141 + .00001, .00021, .00026 /
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 + .09763, .02548, -.00630, .00050, .00004,
3144 + .00002, .00020, .00024,
3145 + .09250, .02406, -.00582, .00048, .00004,
3146 + .00002, .00019, .00023,
3147 + .08792, .02279, -.00538, .00045, .00003,
3148 + .00002, .00018, .00021,
3149 + .08385, .02166, -.00500, .00043, .00003,
3150 + .00002, .00016, .00020,
3151 + .07996, .02060, -.00465, .00041, .00003,
3152 + .00002, .00017, .00019,
3153 + .07632, .01960, -.00432, .00038, .00003,
3154 + .00002, .00016, .00018,
3155 + .07308, .01872, -.00402, .00035, .00003,
3156 + .00002, .00014, .00017,
3157 + .07010, .01791, -.00376, .00034, .00003,
3158 + .00002, .00013, .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 + .06725, .01713, -.00351, .00033, .00003,
3161 + .00002, .00013, .00014,
3162 + .06458, .01641, -.00328, .00031, .00003,
3163 + .00002, .00012, .00014,
3164 + .06214, .01574, -.00307, .00028, .00003,
3165 + .00002, .00011, .00015,
3166 + .05992, .01513, -.00288, .00025, .00003,
3167 + .00003, .00011, .00013,
3168 + .05774, .01456, -.00271, .00025, .00003,
3169 + .00003, .00011, .00013 /
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 + .38029, .10988, -.04082, .00187, .00000,
3172 + .00000, .00050, .00070,
3173 + .35525, .10180, -.03920, .00173, .00000,
3174 + .00000, .00052, .00071,
3175 + .32201, .09115, -.03584, .00154, -.00038,
3176 + .00000, .00051, .00070,
3177 + .30024, .08438, -.03411, .00150, -.00031,
3178 + .00000, .00052, .00062,
3179 + .27955, .07794, -.03225, .00138, -.00025,
3180 + .00000, .00049, .00062,
3181 + .26313, .07289, -.03052, .00128, -.00020,
3182 + .00000, .00047, .00062,
3183 + .24848, .06846, -.02891, .00119, -.00016,
3184 + .00000, .00046, .00060,
3185 + .23398, .06411, -.02716, .00114, -.00013,
3186 + .00000, .00041, .00053 /
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 + .22222, .06055, -.02571, .00107, -.00011,
3189 + .00000, .00041, .00051,
3190 + .21150, .05737, -.02431, .00100, -.00008,
3191 + .00000, .00039, .00048,
3192 + .20347, .05500, -.02321, .00094, -.00007,
3193 + .00000, .00039, .00043,
3194 + .18756, .05033, -.02109, .00085, -.00005,
3195 + .00000, .00038, .00043,
3196 + .17523, .04672, -.01933, .00076, -.00004,
3197 + -.00006, .00034, .00038,
3198 + .16251, .04306, -.01769, .00070, -.00002,
3199 + -.00004, .00030, .00036,
3200 + .15039, .03961, -.01607, .00064, -.00001,
3201 + -.00003, .00028, .00032,
3202 + .14031, .03676, -.01477, .00060, .00000,
3203 + -.00002, .00026, .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 + .13095, .03412, -.01350, .00055, .00001,
3206 + -.00001, .00025, .00028,
3207 + .12375, .03208, -.01249, .00050, .00000,
3208 + -.00001, .00022, .00027,
3209 + .11559, .02981, -.01138, .00044, .00001,
3210 + .00000, .00021, .00026,
3211 + .10888, .02795, -.01046, .00042, .00001,
3212 + .00000, .00020, .00023,
3213 + .10308, .02637, -.00969, .00042, .00001,
3214 + .00000, .00019, .00021,
3215 + .09630, .02453, -.00879, .00038, .00002,
3216 + .00001, .00018, .00019,
3217 + .09036, .02292, -.00800, .00034, .00002,
3218 + .00001, .00017, .00018,
3219 + .08515, .02152, -.00733, .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 + .08030, .02021, -.00672, .00031, .00002,
3223 + .00001, .00014, .00016,
3224 + .07587, .01901, -.00615, .00029, .00002,
3225 + .00001, .00013, .00014,
3226 + .07193, .01796, -.00566, .00026, .00002,
3227 + .00001, .00011, .00014,
3228 + .06840, .01703, -.00523, .00024, .00002,
3229 + .00001, .00012, .00013,
3230 + .06507, .01616, -.00484, .00023, .00002,
3231 + .00001, .00010, .00011,
3232 + .06197, .01534, -.00446, .00021, .00001,
3233 + .00001, .00009, .00012,
3234 + .05918, .01460, -.00416, .00020, .00002,
3235 + .00002, .00009, .00012,
3236 + .05666, .01395, -.00388, .00019, .00002,
3237 + .00002, .00009, .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 + .05425, .01331, -.00362, .00018, .00002,
3240 + .00002, .00008, .00010,
3241 + .05196, .01272, -.00338, .00018, .00002,
3242 + .00002, .00008, .00009,
3243 + .04987, .01219, -.00315, .00018, .00002,
3244 + .00002, .00008, .00008,
3245 + .04798, .01171, -.00296, .00018, .00002,
3246 + .00002, .00007, .00008,
3247 + .04617, .01124, -.00279, .00017, .00002,
3248 + .00002, .00007, .00008 /
3249 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
3250 + .34090, .09493, -.05716, .00149, .00000,
3251 + .00000, .00019, .00041,
3252 + .31685, .08746, -.05308, .00137, .00000,
3253 + .00000, .00026, .00038,
3254 + .28500, .07784, -.04692, .00126, -.00027,
3255 + .00000, .00023, .00034,
3256 + .26451, .07170, -.04351, .00118, -.00022,
3257 + .00000, .00025, .00034,
3258 + .24506, .06588, -.04000, .00103, -.00017,
3259 + .00000, .00023, .00035,
3260 + .22976, .06139, -.03716, .00097, -.00014,
3261 + .00000, .00024, .00030,
3262 + .21615, .05744, -.03456, .00089, -.00011,
3263 + .00000, .00024, .00028,
3264 + .20276, .05358, -.03197, .00081, -.00009,
3265 + .00000, .00023, .00028 /
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 + .19184, .05045, -.02986, .00077, -.00008,
3268 + .00000, .00022, .00028,
3269 + .18199, .04763, -.02797, .00074, -.00006,
3270 + .00000, .00023, .00025,
3271 + .17464, .04554, -.02651, .00071, -.00005,
3272 + .00000, .00022, .00024,
3273 + .16010, .04147, -.02366, .00068, -.00003,
3274 + .00000, .00020, .00020,
3275 + .14898, .03836, -.02150, .00060, -.00002,
3276 + -.00004, .00019, .00020,
3277 + .13758, .03520, -.01943, .00053, -.00002,
3278 + -.00003, .00018, .00019,
3279 + .12676, .03222, -.01741, .00047, -.00001,
3280 + -.00002, .00016, .00019,
3281 + .11777, .02978, -.01574, .00044, .00000,
3282 + -.00001, .00013, .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 + .10946, .02754, -.01424, .00040, .00000,
3285 + -.00001, .00014, .00013,
3286 + .10308, .02581, -.01311, .00037, .00000,
3287 + -.00001, .00012, .00014,
3288 + .09589, .02389, -.01184, .00036, .00000,
3289 + -.00001, .00011, .00013,
3290 + .09003, .02234, -.01082, .00034, .00001,
3291 + .00000, .00010, .00012,
3292 + .08503, .02102, -.00995, .00029, .00001,
3293 + .00000, .00008, .00012,
3294 + .07913, .01946, -.00895, .00026, .00001,
3295 + .00000, .00007, .00011,
3296 + .07399, .01812, -.00810, .00025, .00001,
3297 + .00000, .00007, .00009,
3298 + .06949, .01696, -.00740, .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 + .06534, .01588, -.00674, .00022, .00001,
3302 + .00000, .00007, .00007,
3303 + .06155, .01491, -.00615, .00021, .00001,
3304 + .00000, .00007, .00007,
3305 + .05819, .01404, -.00564, .00019, .00002,
3306 + .00001, .00007, .00007,
3307 + .05519, .01328, -.00521, .00018, .00002,
3308 + .00001, .00005, .00007,
3309 + .05237, .01256, -.00481, .00017, .00002,
3310 + .00001, .00006, .00007,
3311 + .04974, .01189, -.00443, .00017, .00002,
3312 + .00001, .00006, .00006,
3313 + .04739, .01130, -.00411, .00015, .00001,
3314 + .00001, .00006, .00006,
3315 + .04530, .01077, -.00382, .00014, .00001,
3316 + .00001, .00006, .00004 /
3317 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
3318 + .04329, .01026, -.00355, .00013, .00001,
3319 + .00001, .00004, .00004,
3320 + .04137, .00978, -.00330, .00012, .00001,
3321 + .00001, .00004, .00004,
3322 + .03964, .00935, -.00309, .00012, .00001,
3323 + .00001, .00004, .00004,
3324 + .03807, .00897, -.00290, .00012, .00001,
3325 + .00001, .00003, .00005,
3326 + .03654, .00859, -.00271, .00012, .00001,
3327 + .00001, .00003, .00003 /
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 + .30118, .08024, -.06690, .00080, .00000,
3330 + .00000, .00024, .00029,
3331 + .27842, .07364, -.06115, .00078, .00000,
3332 + .00000, .00023, .00029,
3333 + .24858, .06506, -.05308, .00071, -.00018,
3334 + .00000, .00023, .00026,
3335 + .22962, .05964, -.04841, .00062, -.00014,
3336 + .00000, .00024, .00025,
3337 + .21160, .05457, -.04374, .00053, -.00012,
3338 + .00000, .00020, .00022,
3339 + .19747, .05064, -.04020, .00055, -.00010,
3340 + .00000, .00020, .00022,
3341 + .18502, .04717, -.03705, .00054, -.00007,
3342 + .00000, .00020, .00021,
3343 + .17284, .04381, -.03392, .00049, -.00006,
3344 + .00000, .00018, .00019 /
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 + .16303, .04113, -.03139, .00043, -.00005,
3347 + .00000, .00017, .00019,
3348 + .15418, .03871, -.02909, .00039, -.00004,
3349 + .00000, .00014, .00018,
3350 + .14757, .03692, -.02744, .00037, -.00003,
3351 + .00000, .00013, .00018,
3352 + .13455, .03345, -.02418, .00036, -.00003,
3353 + .00000, .00012, .00015,
3354 + .12461, .03081, -.02181, .00032, -.00002,
3355 + -.00003, .00013, .00014,
3356 + .11452, .02813, -.01947, .00028, -.00001,
3357 + -.00002, .00012, .00014,
3358 + .10500, .02564, -.01730, .00025, -.00001,
3359 + -.00001, .00011, .00012,
3360 + .09716, .02360, -.01554, .00024, -.00001,
3361 + -.00001, .00009, .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 + .08994, .02172, -.01395, .00021, .00000,
3364 + .00000, .00008, .00011,
3365 + .08439, .02031, -.01274, .00020, .00000,
3366 + .00000, .00008, .00008,
3367 + .07819, .01873, -.01145, .00019, .00000,
3368 + .00000, .00008, .00008,
3369 + .07315, .01745, -.01038, .00016, .00000,
3370 + .00000, .00007, .00007,
3371 + .06887, .01636, -.00952, .00015, .00000,
3372 + .00000, .00007, .00007,
3373 + .06382, .01508, -.00850, .00015, .00000,
3374 + .00000, .00006, .00006,
3375 + .05947, .01400, -.00768, .00014, .00000,
3376 + .00000, .00006, .00006,
3377 + .05571, .01306, -.00695, .00011, .00001,
3378 + .00001, .00004, .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 + .05218, .01219, -.00631, .00011, .00001,
3381 + .00001, .00005, .00005,
3382 + .04898, .01141, -.00574, .00011, .00001,
3383 + .00001, .00005, .00005,
3384 + .04616, .01071, -.00526, .00011, .00001,
3385 + .00001, .00005, .00005,
3386 + .04369, .01010, -.00483, .00010, .00001,
3387 + .00001, .00005, .00003,
3388 + .04135, .00953, -.00443, .00008, .00001,
3389 + .00001, .00003, .00003,
3390 + .03916, .00901, -.00408, .00008, .00001,
3391 + .00001, .00003, .00003,
3392 + .03721, .00854, -.00378, .00008, .00001,
3393 + .00001, .00003, .00003,
3394 + .03547, .00811, -.00350, .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 + .03381, .00772, -.00325, .00007, .00001,
3398 + .00001, .00003, .00003,
3399 + .03224, .00734, -.00301, .00006, .00001,
3400 + .00001, .00003, .00003,
3401 + .03084, .00699, -.00282, .00006, .00001,
3402 + .00001, .00003, .00003,
3403 + .02955, .00669, -.00262, .00006, .00001,
3404 + .00001, .00002, .00002,
3405 + .02831, .00639, -.00245, .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 + .22514, .05518, -.07241, .00038, .00000,
3409 + .00000, .00004, .00006,
3410 + .20584, .05007, -.06469, .00033, .00000,
3411 + .00000, .00007, .00009,
3412 + .18100, .04358, -.05465, .00025, -.00007,
3413 + .00000, .00008, .00008,
3414 + .16531, .03953, -.04870, .00025, -.00006,
3415 + .00000, .00004, .00008,
3416 + .15062, .03581, -.04326, .00027, -.00005,
3417 + .00000, .00007, .00007,
3418 + .13939, .03293, -.03901, .00023, -.00004,
3419 + .00000, .00004, .00008,
3420 + .12954, .03044, -.03540, .00019, -.00003,
3421 + .00000, .00006, .00008,
3422 + .11998, .02803, -.03194, .00016, -.00003,
3423 + .00000, .00006, .00008 /
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 + .11232, .02612, -.02923, .00017, -.00002,
3426 + .00000, .00006, .00006,
3427 + .10546, .02443, -.02682, .00015, -.00002,
3428 + .00000, .00006, .00006,
3429 + .10038, .02318, -.02506, .00015, -.00002,
3430 + .00000, .00005, .00007,
3431 + .09056, .02077, -.02171, .00012, -.00001,
3432 + .00000, .00005, .00007,
3433 + .08309, .01895, -.01929, .00013, -.00001,
3434 + -.00001, .00003, .00005,
3435 + .07561, .01713, -.01695, .00011, -.00001,
3436 + -.00001, .00003, .00003,
3437 + .06865, .01547, -.01484, .00009, -.00001,
3438 + -.00001, .00003, .00003,
3439 + .06295, .01411, -.01315, .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 + .05774, .01288, -.01165, .00008, -.00001,
3443 + -.00001, .00004, .00002,
3444 + .05380, .01196, -.01058, .00008, .00000,
3445 + .00000, .00004, .00003,
3446 + .04944, .01094, -.00935, .00005, .00000,
3447 + .00000, .00002, .00002,
3448 + .04593, .01011, -.00842, .00005, .00000,
3449 + .00000, .00002, .00002,
3450 + .04295, .00941, -.00767, .00005, .00000,
3451 + .00000, .00003, .00003,
3452 + .03947, .00862, -.00680, .00005, .00000,
3453 + .00000, .00003, .00003,
3454 + .03649, .00794, -.00606, .00004, .00000,
3455 + .00000, .00003, .00001,
3456 + .03395, .00735, -.00545, .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 + .03158, .00681, -.00490, .00004, .00000,
3460 + .00000, .00001, .00001,
3461 + .02946, .00634, -.00443, .00004, .00000,
3462 + .00000, .00001, .00001,
3463 + .02760, .00592, -.00402, .00002, .00000,
3464 + .00000, .00001, .00001,
3465 + .02597, .00555, -.00368, .00002, .00000,
3466 + .00000, .00001, .00001,
3467 + .02444, .00520, -.00336, .00002, .00000,
3468 + .00000, .00001, .00001,
3469 + .02303, .00489, -.00308, .00002, .00000,
3470 + .00000, .00001, .00001,
3471 + .02176, .00461, -.00284, .00003, .00000,
3472 + .00000, .00001, .00001,
3473 + .02064, .00436, -.00262, .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 + .01957, .00413, -.00242, .00003, .00000,
3477 + .00000, .00001, .00001,
3478 + .01858, .00391, -.00224, .00002, .00000,
3479 + .00000, .00001, .00001,
3480 + .01769, .00372, -.00207, .00001, .00000,
3481 + .00000, .00001, .00001,
3482 + .01689, .00353, -.00193, .00001, .00000,
3483 + .00000, .00001, .00001,
3484 + .01612, .00336, -.00181, .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 + .15654, .03501, -.06399, .00015, .00000,
3488 + .00000, .00003, .00001,
3489 + .14148, .03140, -.05619, .00012, .00000,
3490 + .00000, -.00001, .00004,
3491 + .12234, .02690, -.04655, .00011, -.00003,
3492 + .00000, .00002, .00002,
3493 + .11048, .02414, -.04084, .00011, -.00002,
3494 + .00000, .00003, .00000,
3495 + .09955, .02161, -.03565, .00010, -.00002,
3496 + .00000, .00001, -.00001,
3497 + .09124, .01969, -.03184, .00008, -.00001,
3498 + .00000, .00003, .00003,
3499 + .08401, .01805, -.02856, .00008, -.00001,
3500 + .00000, .00001, .00003,
3501 + .07710, .01647, -.02543, .00006, -.00001,
3502 + .00000, .00001, .00001 /
3503 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
3504 + .07163, .01524, -.02304, .00004, -.00001,
3505 + .00000, .00001, .00001,
3506 + .06676, .01414, -.02095, .00004, -.00001,
3507 + .00000, .00001, .00001,
3508 + .06318, .01335, -.01946, .00004, -.00001,
3509 + .00000, .00001, .00001,
3510 + .05630, .01181, -.01663, .00004, .00000,
3511 + .00000, .00001, .00001,
3512 + .05117, .01068, -.01461, .00002, .00000,
3513 + .00000, .00001, .00001,
3514 + .04604, .00956, -.01270, .00003, .00000,
3515 + .00000, .00001, .00001,
3516 + .04133, .00852, -.01097, .00003, .00000,
3517 + .00000, .00001, .00001,
3518 + .03755, .00770, -.00961, .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 + .03413, .00697, -.00844, .00002, .00000,
3522 + .00000, .00001, .00001,
3523 + .03156, .00642, -.00757, .00003, .00000,
3524 + .00000, .00000, .00000,
3525 + .02872, .00582, -.00664, .00001, .00000,
3526 + .00000, .00001, .00001,
3527 + .02647, .00534, -.00595, .00001, .00000,
3528 + .00000, .00001, .00001,
3529 + .02457, .00494, -.00534, .00001, .00000,
3530 + .00000, .00000, .00000,
3531 + .02238, .00448, -.00469, .00001, .00000,
3532 + .00000, .00000, .00000,
3533 + .02053, .00409, -.00415, .00001, .00000,
3534 + .00000, .00000, .00000,
3535 + .01896, .00377, -.00372, .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 + .01750, .00347, -.00332, .00001, .00000,
3539 + .00000, .00000, .00000,
3540 + .01621, .00319, -.00297, .00001, .00000,
3541 + .00000, .00000, .00000,
3542 + .01509, .00297, -.00269, .00001, .00000,
3543 + .00000, .00000, .00000,
3544 + .01410, .00276, -.00244, .00001, .00000,
3545 + .00000, .00000, .00000,
3546 + .01318, .00258, -.00221, .00001, .00000,
3547 + .00000, .00000, .00000,
3548 + .01235, .00241, -.00202, .00001, .00000,
3549 + .00000, .00000, .00000,
3550 + .01161, .00226, -.00184, .00000, .00000,
3551 + .00000, .00000, .00000,
3552 + .01096, .00212, -.00169, .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 + .01034, .00200, -.00156, .00000, .00000,
3556 + .00000, .00000, .00000,
3557 + .00976, .00188, -.00144, .00001, .00000,
3558 + .00000, .00000, .00000,
3559 + .00924, .00178, -.00133, .00001, .00000,
3560 + .00000, .00000, .00000,
3561 + .00877, .00169, -.00123, .00001, .00000,
3562 + .00000, .00000, .00000,
3563 + .00834, .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 + .09919, .02000, -.04821, .00007, .00000,
3567 + .00000, -.00001, -.00001,
3568 + .08848, .01772, -.04172, .00004, .00000,
3569 + .00000, -.00001, -.00001,
3570 + .07509, .01492, -.03393, .00007, -.00001,
3571 + .00000, -.00001, -.00001,
3572 + .06700, .01324, -.02938, .00004, -.00001,
3573 + .00000, -.00001, -.00001,
3574 + .05963, .01170, -.02534, .00002, .00000,
3575 + .00000, .00000, .00002,
3576 + .05406, .01056, -.02231, .00002, .00000,
3577 + .00000, .00000, .00000,
3578 + .04928, .00957, -.01979, .00002, .00000,
3579 + .00000, .00000, .00000,
3580 + .04476, .00866, -.01748, .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 + .04119, .00793, -.01567, .00002, .00000,
3584 + .00000, .00000, .00000,
3585 + .03808, .00730, -.01415, .00002, .00000,
3586 + .00000, .00000, .00000,
3587 + .03580, .00685, -.01304, .00002, .00000,
3588 + .00000, .00000, .00000,
3589 + .03148, .00599, -.01100, .00002, .00000,
3590 + .00000, .00000, .00000,
3591 + .02830, .00535, -.00958, .00002, .00000,
3592 + .00000, .00000, .00000,
3593 + .02517, .00472, -.00819, .00000, .00000,
3594 + .00000, .00000, .00000,
3595 + .02232, .00418, -.00699, .00000, .00000,
3596 + .00000, .00000, .00000,
3597 + .02005, .00374, -.00608, .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 + .01803, .00334, -.00528, .00002, .00000,
3601 + .00000, .00000, .00000,
3602 + .01652, .00305, -.00469, .00000, .00000,
3603 + .00000, .00000, .00000,
3604 + .01490, .00273, -.00409, .00002, .00000,
3605 + .00000, .00000, .00000,
3606 + .01360, .00248, -.00360, .00000, .00000,
3607 + .00000, .00000, .00000,
3608 + .01252, .00229, -.00323, .00000, .00000,
3609 + .00000, .00000, .00000,
3610 + .01130, .00206, -.00281, .00000, .00000,
3611 + .00000, .00000, .00000,
3612 + .01026, .00185, -.00246, .00000, .00000,
3613 + .00000, .00000, .00000,
3614 + .00938, .00168, -.00217, .00000, .00000,
3615 + .00000, .00000, .00000 /
3616 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/
3617 + .00860, .00154, -.00193, .00000, .00000,
3618 + .00000, .00000, .00000,
3619 + .00789, .00142, -.00172, .00000, .00000,
3620 + .00000, .00000, .00000,
3621 + .00729, .00130, -.00154, .00000, .00000,
3622 + .00000, .00000, .00000,
3623 + .00677, .00120, -.00139, .00000, .00000,
3624 + .00000, .00000, .00000,
3625 + .00629, .00112, -.00126, .00000, .00000,
3626 + .00000, .00000, .00000,
3627 + .00584, .00104, -.00113, .00000, .00000,
3628 + .00000, .00000, .00000,
3629 + .00547, .00096, -.00104, .00000, .00000,
3630 + .00000, .00000, .00000,
3631 + .00513, .00090, -.00094, .00000, .00000,
3632 + .00000, .00000, .00000 /
3633 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=33,37)/
3634 + .00481, .00084, -.00086, .00000, .00000,
3635 + .00000, .00000, .00000,
3636 + .00452, .00079, -.00080, .00000, .00000,
3637 + .00000, .00000, .00000,
3638 + .00425, .00074, -.00072, .00000, .00000,
3639 + .00000, .00000, .00000,
3640 + .00402, .00070, -.00067, .00000, .00000,
3641 + .00000, .00000, .00000,
3642 + .00379, .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 + .05495, .00974, -.03053, .00000, .00000,
3646 + .00000, .00000, .00000,
3647 + .04834, .00850, -.02609, .00000, .00000,
3648 + .00000, .00000, .00000,
3649 + .04022, .00703, -.02084, .00000, .00000,
3650 + .00000, .00000, .00000,
3651 + .03535, .00613, -.01778, .00000, .00000,
3652 + .00000, .00000, .00000,
3653 + .03099, .00535, -.01511, .00000, .00000,
3654 + .00000, .00000, .00000,
3655 + .02777, .00481, -.01322, .00000, .00000,
3656 + .00000, .00000, .00000,
3657 + .02502, .00431, -.01160, .00000, .00000,
3658 + .00000, .00000, .00000,
3659 + .02243, .00383, -.01009, .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 + .02046, .00351, -.00901, .00000, .00000,
3663 + .00000, .00000, .00000,
3664 + .01872, .00319, -.00804, .00000, .00000,
3665 + .00000, .00000, .00000,
3666 + .01748, .00297, -.00737, .00000, .00000,
3667 + .00000, .00000, .00000,
3668 + .01510, .00255, -.00610, .00000, .00000,
3669 + .00000, .00000, .00000,
3670 + .01341, .00224, -.00525, .00000, .00000,
3671 + .00000, .00000, .00000,
3672 + .01177, .00196, -.00444, .00000, .00000,
3673 + .00000, .00000, .00000,
3674 + .01028, .00170, -.00373, .00000, .00000,
3675 + .00000, .00000, .00000,
3676 + .00911, .00150, -.00320, .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 + .00808, .00134, -.00275, .00000, .00000,
3680 + .00000, .00000, .00000,
3681 + .00733, .00120, -.00242, .00000, .00000,
3682 + .00000, .00000, .00000,
3683 + .00653, .00108, -.00209, .00000, .00000,
3684 + .00000, .00000, .00000,
3685 + .00590, .00096, -.00183, .00000, .00000,
3686 + .00000, .00000, .00000,
3687 + .00539, .00087, -.00161, .00000, .00000,
3688 + .00000, .00000, .00000,
3689 + .00480, .00078, -.00140, .00000, .00000,
3690 + .00000, .00000, .00000,
3691 + .00431, .00070, -.00121, .00000, .00000,
3692 + .00000, .00000, .00000,
3693 + .00391, .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 + .00354, .00056, -.00093, .00000, .00000,
3697 + .00000, .00000, .00000,
3698 + .00322, .00050, -.00081, .00000, .00000,
3699 + .00000, .00000, .00000,
3700 + .00295, .00047, -.00073, .00000, .00000,
3701 + .00000, .00000, .00000,
3702 + .00271, .00043, -.00065, .00000, .00000,
3703 + .00000, .00000, .00000,
3704 + .00249, .00040, -.00058, .00000, .00000,
3705 + .00000, .00000, .00000,
3706 + .00230, .00037, -.00052, .00000, .00000,
3707 + .00000, .00000, .00000,
3708 + .00214, .00034, -.00048, .00000, .00000,
3709 + .00000, .00000, .00000,
3710 + .00199, .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 + .00185, .00028, -.00039, .00000, .00000,
3714 + .00000, .00000, .00000,
3715 + .00172, .00027, -.00035, .00000, .00000,
3716 + .00000, .00000, .00000,
3717 + .00161, .00026, -.00032, .00000, .00000,
3718 + .00000, .00000, .00000,
3719 + .00153, .00023, -.00030, .00000, .00000,
3720 + .00000, .00000, .00000,
3721 + .00142, .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, .00101, -.00551, .00000, .00000,
3725 + .00000, .00000, .00000,
3726 + .00660, .00086, -.00453, .00000, .00000,
3727 + .00000, .00000, .00000,
3728 + .00515, .00067, -.00341, .00000, .00000,
3729 + .00000, .00000, .00000,
3730 + .00435, .00057, -.00281, .00000, .00000,
3731 + .00000, .00000, .00000,
3732 + .00364, .00048, -.00229, .00000, .00000,
3733 + .00000, .00000, .00000,
3734 + .00315, .00039, -.00192, .00000, .00000,
3735 + .00000, .00000, .00000,
3736 + .00275, .00034, -.00164, .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 + .00187, .00023, -.00104, .00000, .00000,
3744 + .00000, .00000, .00000,
3745 + .00170, .00021, -.00094, .00000, .00000,
3746 + .00000, .00000, .00000,
3747 + .00142, .00018, -.00076, .00000, .00000,
3748 + .00000, .00000, .00000,
3749 + .00120, .00015, -.00062, .00000, .00000,
3750 + .00000, .00000, .00000,
3751 + .00101, .00013, -.00051, .00000, .00000,
3752 + .00000, .00000, .00000,
3753 + .00086, .00011, -.00042, .00000, .00000,
3754 + .00000, .00000, .00000,
3755 + .00072, .00009, -.00034, .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 + .00054, .00007, -.00024, .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 + .00036, .00005, -.00015, .00000, .00000,
3767 + .00000, .00000, .00000,
3768 + .00031, .00003, -.00012, .00000, .00000,
3769 + .00000, .00000, .00000,
3770 + .00027, .00003, -.00010, .00000, .00000,
3771 + .00000, .00000, .00000,
3772 + .00024, .00003, -.00009, .00000, .00000,
3773 + .00000, .00000, .00000 /
3774 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
3775 + .00021, .00003, -.00008, .00000, .00000,
3776 + .00000, .00000, .00000,
3777 + .00019, .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='cor10dis.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