2 subroutine sfmrs_99d2(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 + .00619, .00334, 1.13786, .86234, .00000,
12 + .00000, .46469, .87437,
13 + .00632, .00339, 2.37876, .90355, .00000,
14 + .00000, .51050, .91570,
15 + .00653, .00347, 4.80638, .98783, .02013,
16 + .00000, .60138, 1.00013,
17 + .00669, .00353, 7.12053, 1.06616, .06963,
18 + .00000, .68437, 1.07856,
19 + .00685, .00360, 9.93135, 1.16478, .18334,
20 + .00000, .78771, 1.17727,
21 + .00699, .00366, 12.84094, 1.26493, .29108,
22 + .00000, .89183, 1.27748,
23 + .00713, .00371, 16.11355, 1.37273, .40895,
24 + .00000, 1.00337, 1.38534,
25 + .00728, .00378, 20.13553, 1.50062, .55078,
26 + .00000, 1.13515, 1.51329 /
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 + .00741, .00383, 24.05930, 1.62508, .68265,
29 + .00000, 1.26291, 1.63778,
30 + .00753, .00389, 28.27508, 1.75655, .82238,
31 + .00000, 1.39753, 1.76929,
32 + .00764, .00394, 31.96971, 1.86867, .94394,
33 + .00000, 1.51209, 1.88143,
34 + .00785, .00403, 40.76901, 2.13441, 1.22586,
35 + .00000, 1.78292, 2.14721,
36 + .00804, .00412, 48.56265, 2.39063, 1.49529,
37 + .36184, 2.04340, 2.40344,
38 + .00826, .00422, 58.76112, 2.71050, 1.83188,
39 + .75173, 2.36793, 2.72334,
40 + .00849, .00432, 70.76091, 3.08140, 2.22120,
41 + 1.15943, 2.74355, 3.09425,
42 + .00870, .00442, 82.89420, 3.45302, 2.61049,
43 + 1.56733, 3.11935, 3.46586 /
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 + .00891, .00452, 96.40415, 3.86434, 3.04095,
46 + 2.01650, 3.53477, 3.87718,
47 + .00910, .00460, 108.55438, 4.23413, 3.42588,
48 + 2.41350, 3.90790, 4.24695,
49 + .00931, .00471, 124.43776, 4.71815, 3.92777,
50 + 2.92905, 4.39588, 4.73095,
51 + .00952, .00480, 139.64568, 5.18099, 4.40820,
52 + 3.42489, 4.86215, 5.19377,
53 + .00970, .00489, 154.56745, 5.63530, 4.87979,
54 + 3.91191, 5.31955, 5.64806,
55 + .00994, .00501, 174.62801, 6.25134, 5.51496,
56 + 4.56139, 5.93942, 6.26406,
57 + .01016, .00511, 194.86507, 6.87478, 6.15803,
58 + 5.22077, 6.56636, 6.88745,
59 + .01037, .00523, 215.12691, 7.50036, 6.80429,
60 + 5.88576, 7.19516, 7.51300 /
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 + .01059, .00533, 236.25763, 8.16136, 7.48228,
63 + 6.57633, 7.85932, 8.17396,
64 + .01080, .00543, 258.15919, 8.84888, 8.18869,
65 + 7.29879, 8.54987, 8.86143,
66 + .01101, .00553, 279.93542, 9.53673, 8.89501,
67 + 8.02106, 9.24054, 9.54923,
68 + .01119, .00563, 301.18219, 10.21510, 9.58927,
69 + 8.72813, 9.92152, 10.22756,
70 + .01139, .00573, 323.63042, 10.93363, 10.32625,
71 + 9.48169, 10.64263, 10.94605,
72 + .01159, .00583, 346.24279, 11.66745, 11.07540,
73 + 10.24313, 11.37894, 11.67982,
74 + .01178, .00592, 368.82064, 12.40122, 11.82661,
75 + 11.01026, 12.11504, 12.41356,
76 + .01195, .00601, 390.53981, 13.11697, 12.55625,
77 + 11.75125, 12.83296, 13.12926 /
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 + .01213, .00610, 413.37991, 13.87159, 13.32698,
80 + 12.53647, 13.58974, 13.88383,
81 + .01232, .00620, 436.40005, 14.64032, 14.11040,
82 + 13.33266, 14.36058, 14.65252,
83 + .01249, .00628, 459.02458, 15.40071, 14.88516,
84 + 14.12020, 15.12294, 15.41286,
85 + .01266, .00637, 481.15437, 16.14818, 15.64721,
86 + 14.89574, 15.87226, 16.16029,
87 + .01284, .00645, 503.77110, 16.92158, 16.43344,
88 + 15.69301, 16.64750, 16.93365 /
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 + .00850, .00450, 1.05641, .73590, .00000,
91 + .00000, .39644, .74305,
92 + .00869, .00458, 2.17782, .77371, .00000,
93 + .00000, .43782, .78092,
94 + .00897, .00470, 4.32133, .84793, .01844,
95 + .00000, .51717, .85522,
96 + .00918, .00479, 6.32445, .91522, .06041,
97 + .00000, .58807, .92257,
98 + .00940, .00489, 8.71580, .99852, .15642,
99 + .00000, .67501, 1.00592,
100 + .00959, .00498, 11.15470, 1.08199, .24621,
101 + .00000, .76156, 1.08941,
102 + .00978, .00506, 13.86431, 1.17105, .34345,
103 + .00000, .85351, 1.17851,
104 + .00998, .00515, 17.15455, 1.27583, .45944,
105 + .00000, .96130, 1.28332 /
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 + .01016, .00523, 20.32735, 1.37693, .56629,
108 + .00000, 1.06495, 1.38444,
109 + .01033, .00531, 23.70297, 1.48299, .67870,
110 + .00000, 1.17344, 1.49053,
111 + .01047, .00537, 26.63771, 1.57299, .77594,
112 + .00000, 1.26534, 1.58054,
113 + .01076, .00551, 33.55165, 1.78457, .99953,
114 + .00000, 1.48084, 1.79214,
115 + .01102, .00563, 39.57118, 1.98671, 1.21116,
116 + .28460, 1.68626, 1.99429,
117 + .01132, .00577, 47.36411, 2.23690, 1.47318,
118 + .58846, 1.94005, 2.24449,
119 + .01163, .00592, 56.41582, 2.52436, 1.77340,
120 + .90249, 2.23115, 2.53196,
121 + .01192, .00606, 65.45810, 2.80991, 2.07097,
122 + 1.21385, 2.51992, 2.81752 /
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 + .01220, .00620, 75.41493, 3.12344, 2.39736,
125 + 1.55383, 2.83663, 3.13104,
126 + .01245, .00633, 84.28009, 3.40326, 2.68705,
127 + 1.85197, 3.11900, 3.41085,
128 + .01275, .00647, 95.75571, 3.76685, 3.06200,
129 + 2.23625, 3.48565, 3.77443,
130 + .01301, .00661, 106.63883, 4.11206, 3.41841,
131 + 2.60325, 3.83350, 4.11965,
132 + .01327, .00672, 117.22799, 4.44880, 3.76608,
133 + 2.96145, 4.17261, 4.45637,
134 + .01358, .00688, 131.33049, 4.90214, 4.23099,
135 + 3.43557, 4.62891, 4.90970,
136 + .01388, .00704, 145.42463, 5.35763, 4.69838,
137 + 3.91357, 5.08710, 5.36517,
138 + .01416, .00718, 159.41785, 5.81173, 5.16512,
139 + 4.39265, 5.54369, 5.81925 /
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 + .01445, .00732, 173.88257, 6.28827, 5.65141,
142 + 4.88656, 6.02268, 6.29578,
143 + .01474, .00747, 188.76082, 6.78096, 6.15513,
144 + 5.40037, 6.51770, 6.78844,
145 + .01502, .00761, 203.44475, 7.27102, 6.65595,
146 + 5.91114, 7.00993, 7.27849,
147 + .01528, .00774, 217.66666, 7.75155, 7.14537,
148 + 6.40821, 7.49248, 7.75900,
149 + .01554, .00788, 232.60134, 8.25802, 7.66249,
150 + 6.93561, 8.00094, 8.26545,
151 + .01580, .00801, 247.53686, 8.77237, 8.18514,
152 + 7.46535, 8.51721, 8.77977,
153 + .01605, .00814, 262.36869, 9.28436, 8.70704,
154 + 7.99697, 9.03100, 9.29174,
155 + .01629, .00826, 276.54222, 9.78123, 9.21130,
156 + 8.50765, 9.52955, 9.78860 /
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 + .01654, .00838, 291.37405, 10.30294, 9.74192,
159 + 9.04687, 10.05293, 10.31028,
160 + .01677, .00851, 306.23416, 10.83192, 10.27874,
161 + 9.59099, 10.58353, 10.83924,
162 + .01701, .00863, 320.76441, 11.35298, 10.80749,
163 + 10.12706, 11.10612, 11.36029,
164 + .01722, .00874, 334.91088, 11.86324, 11.32566,
165 + 10.65311, 11.61781, 11.87052,
166 + .01745, .00887, 349.28818, 12.38892, 11.85791,
167 + 11.19141, 12.14492, 12.39618 /
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 + .01166, .00607, .97977, .62829, .00000,
170 + .00000, .33882, .63201,
171 + .01192, .00618, 1.99303, .66271, .00000,
172 + .00000, .37602, .66647,
173 + .01230, .00636, 3.88435, .72783, .01710,
174 + .00000, .44511, .73161,
175 + .01258, .00650, 5.61674, .78551, .05257,
176 + .00000, .50558, .78932,
177 + .01288, .00664, 7.64850, .85570, .13352,
178 + .00000, .57859, .85953,
179 + .01315, .00676, 9.68931, .92510, .20821,
180 + .00000, .65036, .92894,
181 + .01341, .00688, 11.92827, .99848, .28831,
182 + .00000, .72597, 1.00234,
183 + .01368, .00702, 14.61377, 1.08410, .38299,
184 + .00000, .81391, 1.08797 /
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 + .01391, .00714, 17.17268, 1.16596, .46940,
187 + .00000, .89773, 1.16983,
188 + .01415, .00724, 19.86793, 1.25126, .55966,
189 + .00000, .98489, 1.25514,
190 + .01434, .00734, 22.19212, 1.32327, .63730,
191 + .00000, 1.05836, 1.32715,
192 + .01473, .00753, 27.60731, 1.49112, .81427,
193 + .00000, 1.22922, 1.49502,
194 + .01509, .00771, 32.23869, 1.65000, .98014,
195 + .22323, 1.39061, 1.65390,
196 + .01548, .00791, 38.16901, 1.84492, 1.18365,
197 + .45980, 1.58829, 1.84882,
198 + .01591, .00811, 44.96677, 2.06680, 1.41461,
199 + .70143, 1.81295, 2.07070,
200 + .01629, .00831, 51.67381, 2.28527, 1.64150,
201 + .93882, 2.03388, 2.28918 /
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 + .01669, .00851, 58.97549, 2.52320, 1.88831,
204 + 1.19583, 2.27424, 2.52712,
205 + .01701, .00867, 65.40990, 2.73395, 2.10570,
206 + 1.41939, 2.48695, 2.73787,
207 + .01742, .00888, 73.65533, 3.00579, 2.38499,
208 + 1.70538, 2.76113, 3.00971,
209 + .01778, .00907, 81.39891, 3.26203, 2.64856,
210 + 1.97655, 3.01938, 3.26594,
211 + .01812, .00924, 88.86880, 3.51037, 2.90405,
212 + 2.23954, 3.26953, 3.51428,
213 + .01855, .00946, 98.72115, 3.84228, 3.24317,
214 + 2.58495, 3.60369, 3.84619,
215 + .01896, .00967, 108.47353, 4.17335, 3.58166,
216 + 2.93072, 3.93683, 4.17725,
217 + .01934, .00986, 118.07307, 4.50122, 3.91752,
218 + 3.27508, 4.26660, 4.50512 /
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 + .01973, .01006, 127.90530, 4.84291, 4.26494,
221 + 3.62744, 4.61014, 4.84681,
222 + .02011, .01027, 137.93974, 5.19402, 4.62272,
223 + 3.99190, 4.96303, 5.19792,
224 + .02048, .01045, 147.76792, 5.54119, 4.97636,
225 + 4.35210, 5.31186, 5.54508,
226 + .02082, .01064, 157.21446, 5.87961, 5.31990,
227 + 4.70051, 5.65181, 5.88350,
228 + .02118, .01082, 167.07300, 6.23452, 5.68116,
229 + 5.06850, 6.00825, 6.23839,
230 + .02153, .01101, 176.85741, 6.59287, 6.04414,
231 + 5.43584, 6.36806, 6.59674,
232 + .02186, .01118, 186.52064, 6.94797, 6.40506,
233 + 5.80303, 6.72453, 6.95184,
234 + .02218, .01135, 195.69053, 7.29076, 6.75187,
235 + 6.15373, 7.06861, 7.29462 /
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 + .02251, .01151, 205.23851, 7.64920, 7.11542,
238 + 6.52268, 7.42832, 7.65305,
239 + .02283, .01169, 214.74522, 8.01089, 7.48142,
240 + 6.89314, 7.79125, 8.01474,
241 + .02314, .01185, 223.99207, 8.36565, 7.84043,
242 + 7.25662, 8.14720, 8.36951,
243 + .02343, .01200, 232.95179, 8.71172, 8.19095,
244 + 7.61202, 8.49436, 8.71558,
245 + .02373, .01216, 242.00345, 9.06666, 8.54933,
246 + 7.97394, 8.85039, 9.07050 /
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 + .01402, .00724, .93702, .57303, .00000,
249 + .00000, .30948, .57533,
250 + .01433, .00739, 1.89200, .60548, .00000,
251 + .00000, .34432, .60779,
252 + .01478, .00761, 3.64922, .66566, .01647,
253 + .00000, .40793, .66800,
254 + .01513, .00777, 5.23994, .71827, .04855,
255 + .00000, .46294, .72062,
256 + .01548, .00795, 7.08584, .78168, .12172,
257 + .00000, .52877, .78404,
258 + .01580, .00810, 8.92306, .84387, .18872,
259 + .00000, .59301, .84623,
260 + .01611, .00825, 10.92354, .90929, .26014,
261 + .00000, .66035, .91166,
262 + .01643, .00842, 13.30541, .98524, .34413,
263 + .00000, .73827, .98761 /
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 + .01672, .00856, 15.55879, 1.05746, .42034,
266 + .00000, .81218, 1.05984,
267 + .01700, .00870, 17.91802, 1.13241, .49963,
268 + .00000, .88871, 1.13479,
269 + .01722, .00881, 19.94257, 1.19548, .56761,
270 + .00000, .95303, 1.19786,
271 + .01770, .00904, 24.62850, 1.34178, .72175,
272 + .00000, 1.10192, 1.34417,
273 + .01811, .00926, 28.59366, 1.47948, .86541,
274 + .19327, 1.24178, 1.48187,
275 + .01860, .00951, 33.63734, 1.64753, 1.04071,
276 + .39747, 1.41218, 1.64993,
277 + .01910, .00976, 39.37315, 1.83778, 1.23854,
278 + .60458, 1.60480, 1.84017,
279 + .01956, .01000, 44.99047, 2.02413, 1.43185,
280 + .80697, 1.79326, 2.02653 /
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 + .02004, .01024, 51.06425, 2.22610, 1.64110,
283 + 1.02497, 1.99729, 2.22851,
284 + .02043, .01044, 56.38349, 2.40420, 1.82459,
285 + 1.21373, 2.17708, 2.40661,
286 + .02091, .01070, 63.15875, 2.63291, 2.05925,
287 + 1.45407, 2.40777, 2.63532,
288 + .02135, .01091, 69.48442, 2.84757, 2.27979,
289 + 1.68101, 2.62415, 2.84998,
290 + .02175, .01112, 75.55523, 3.05482, 2.49276,
291 + 1.90027, 2.83295, 3.05724,
292 + .02226, .01139, 83.51546, 3.33063, 2.77416,
293 + 2.18690, 3.11066, 3.33304,
294 + .02274, .01165, 91.34958, 3.60453, 3.05387,
295 + 2.47264, 3.38633, 3.60696,
296 + .02320, .01188, 99.02140, 3.87473, 3.33034,
297 + 2.75612, 3.65815, 3.87716 /
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 + .02366, .01212, 106.83535, 4.15514, 3.61510,
300 + 3.04488, 3.94015, 4.15758,
301 + .02411, .01236, 114.77276, 4.44225, 3.90731,
302 + 3.34254, 4.22877, 4.44468,
303 + .02455, .01259, 122.51145, 4.72513, 4.19514,
304 + 3.63570, 4.51306, 4.72756,
305 + .02496, .01281, 129.91498, 4.99992, 4.47375,
306 + 3.91822, 4.78916, 5.00236,
307 + .02538, .01304, 137.61287, 5.28724, 4.76593,
308 + 4.21582, 5.07778, 5.28969,
309 + .02579, .01325, 145.21747, 5.57634, 5.05842,
310 + 4.51177, 5.36812, 5.57878,
311 + .02619, .01346, 152.70347, 5.86206, 5.34856,
312 + 4.80692, 5.65501, 5.86451,
313 + .02656, .01366, 159.77653, 6.13699, 5.62642,
314 + 5.08784, 5.93104, 6.13945 /
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 + .02695, .01387, 167.11944, 6.42378, 5.91701,
317 + 5.38272, 6.21892, 6.42623,
318 + .02733, .01407, 174.40283, 6.71232, 6.20872,
319 + 5.67793, 6.50852, 6.71478,
320 + .02770, .01426, 181.46441, 6.99463, 6.49415,
321 + 5.96687, 6.79184, 6.99710,
322 + .02805, .01445, 188.28698, 7.26939, 6.77219,
323 + 6.24877, 7.06753, 7.27186,
324 + .02840, .01464, 195.15441, 7.55042, 7.05570,
325 + 6.53500, 7.34949, 7.55290 /
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 + .01596, .00821, .90775, .53692, .00000,
328 + .00000, .29041, .53845,
329 + .01632, .00838, 1.82350, .56797, .00000,
330 + .00000, .32363, .56952,
331 + .01684, .00864, 3.49114, .62483, .01609,
332 + .00000, .38356, .62636,
333 + .01722, .00883, 4.98816, .67406, .04591,
334 + .00000, .43496, .67562,
335 + .01763, .00903, 6.71204, .73301, .11399,
336 + .00000, .49609, .73457,
337 + .01799, .00921, 8.41655, .79049, .17597,
338 + .00000, .55541, .79205,
339 + .01835, .00939, 10.26243, .85074, .24176,
340 + .00000, .61737, .85230,
341 + .01872, .00956, 12.44859, .92042, .31884,
342 + .00000, .68884, .92198 /
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 + .01904, .00973, 14.50616, .98644, .38852,
345 + .00000, .75636, .98800,
346 + .01936, .00990, 16.65102, 1.05474, .46080,
347 + .00000, .82610, 1.05630,
348 + .01961, .01002, 18.48518, 1.11209, .52261,
349 + .00000, .88457, 1.11365,
350 + .02015, .01030, 22.71035, 1.24465, .66227,
351 + .00000, 1.01944, 1.24622,
352 + .02064, .01055, 26.25823, 1.36891, .79189,
353 + .17425, 1.14564, 1.37049,
354 + .02118, .01083, 30.74934, 1.52002, .94947,
355 + .35812, 1.29885, 1.52160,
356 + .02175, .01112, 35.82764, 1.69038, 1.12657,
357 + .54369, 1.47135, 1.69198,
358 + .02227, .01139, 40.77438, 1.85664, 1.29897,
359 + .72433, 1.63948, 1.85823 /
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 + .02280, .01168, 46.09679, 2.03621, 1.48494,
362 + .91821, 1.82090, 2.03781,
363 + .02325, .01191, 50.73712, 2.19405, 1.64748,
364 + 1.08551, 1.98023, 2.19565,
365 + .02380, .01220, 56.62178, 2.39609, 1.85470,
366 + 1.29784, 2.18406, 2.39771,
367 + .02430, .01246, 62.09268, 2.58515, 2.04883,
368 + 1.49771, 2.37465, 2.58677,
369 + .02475, .01269, 67.32369, 2.76719, 2.23580,
370 + 1.69029, 2.55807, 2.76881,
371 + .02532, .01300, 74.15369, 3.00866, 2.48206,
372 + 1.94122, 2.80127, 3.01031,
373 + .02586, .01328, 80.84748, 3.24774, 2.72609,
374 + 2.19059, 3.04192, 3.24940,
375 + .02639, .01356, 87.37820, 3.48293, 2.96664,
376 + 2.43735, 3.27855, 3.48458 /
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 + .02691, .01384, 94.00283, 3.72627, 3.21362,
379 + 2.68786, 3.52332, 3.72794,
380 + .02743, .01411, 100.70937, 3.97478, 3.46644,
381 + 2.94547, 3.77318, 3.97645,
382 + .02792, .01437, 107.22629, 4.21900, 3.71483,
383 + 3.19855, 4.01866, 4.22069,
384 + .02838, .01462, 113.43986, 4.45564, 3.95466,
385 + 3.44179, 4.25647, 4.45733,
386 + .02885, .01487, 119.88318, 4.70255, 4.20566,
387 + 3.69753, 4.50453, 4.70425,
388 + .02932, .01512, 126.22676, 4.95037, 4.45626,
389 + 3.95115, 4.75347, 4.95208,
390 + .02976, .01536, 132.45672, 5.19480, 4.70441,
391 + 4.20366, 4.99896, 5.19653,
392 + .03019, .01559, 138.32442, 5.42949, 4.94149,
393 + 4.44338, 5.23462, 5.43123 /
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 + .03062, .01582, 144.40301, 5.67385, 5.18903,
396 + 4.69464, 5.47995, 5.67559,
397 + .03105, .01604, 150.41518, 5.91921, 5.43698,
398 + 4.94562, 5.72626, 5.92096,
399 + .03146, .01627, 156.23084, 6.15883, 5.67917,
400 + 5.19084, 5.96677, 6.16060,
401 + .03186, .01647, 161.83795, 6.39165, 5.91472,
402 + 5.42971, 6.20043, 6.39342,
403 + .03225, .01669, 167.46649, 6.62931, 6.15439,
404 + 5.67173, 6.43893, 6.63110 /
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 + .01767, .00905, .88594, .51057, .00000,
407 + .00000, .27654, .51159,
408 + .01805, .00924, 1.77242, .54056, .00000,
409 + .00000, .30852, .54159,
410 + .01862, .00953, 3.37356, .59490, .01582,
411 + .00000, .36571, .59593,
412 + .01906, .00974, 4.80159, .64164, .04398,
413 + .00000, .41445, .64267,
414 + .01951, .00998, 6.43620, .69730, .10832,
415 + .00000, .47212, .69834,
416 + .01991, .01018, 8.04402, .75137, .16664,
417 + .00000, .52788, .75240,
418 + .02030, .01037, 9.77778, .80784, .22834,
419 + .00000, .58593, .80889,
420 + .02071, .01059, 11.82261, .87298, .30044,
421 + .00000, .65272, .87403 /
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 + .02106, .01077, 13.73931, .93452, .36541,
424 + .00000, .71565, .93557,
425 + .02141, .01095, 15.73053, .99803, .43263,
426 + .00000, .78047, .99908,
427 + .02170, .01109, 17.42864, 1.05127, .49002,
428 + .00000, .83474, 1.05233,
429 + .02229, .01140, 21.32583, 1.17400, .61933,
430 + .00000, .95960, 1.17506,
431 + .02282, .01168, 24.57900, 1.28868, .73896,
432 + .16065, 1.07606, 1.28975,
433 + .02342, .01199, 28.68127, 1.42771, .88396,
434 + .33011, 1.21703, 1.42879,
435 + .02406, .01231, 33.29894, 1.58399, 1.04641,
436 + .50047, 1.37527, 1.58507,
437 + .02463, .01262, 37.77800, 1.73605, 1.20408,
438 + .66580, 1.52906, 1.73713 /
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 + .02523, .01293, 42.57849, 1.89982, 1.37370,
441 + .84276, 1.69455, 1.90094,
442 + .02571, .01319, 46.74903, 2.04343, 1.52156,
443 + .99504, 1.83953, 2.04455,
444 + .02631, .01351, 52.01961, 2.22681, 1.70959,
445 + 1.18783, 2.02454, 2.22793,
446 + .02685, .01379, 56.90329, 2.39797, 1.88534,
447 + 1.36888, 2.19713, 2.39911,
448 + .02735, .01406, 61.55911, 2.56243, 2.05424,
449 + 1.54296, 2.36287, 2.56359,
450 + .02799, .01440, 67.61767, 2.78008, 2.27615,
451 + 1.76918, 2.58208, 2.78124,
452 + .02860, .01472, 73.53593, 2.99502, 2.49552,
453 + 1.99346, 2.79848, 2.99620,
454 + .02916, .01502, 79.29307, 3.20600, 2.71129,
455 + 2.21491, 3.01078, 3.20720 /
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 + .02973, .01533, 85.11418, 3.42379, 2.93228,
458 + 2.43916, 3.22987, 3.42500,
459 + .03030, .01563, 90.99143, 3.64573, 3.15806,
460 + 2.66932, 3.45306, 3.64696,
461 + .03083, .01591, 96.68750, 3.86343, 3.37945,
462 + 2.89497, 3.67192, 3.86467,
463 + .03135, .01619, 102.10384, 4.07394, 3.59276,
464 + 3.11141, 3.88351, 4.07519,
465 + .03187, .01647, 107.70868, 4.29323, 3.81567,
466 + 3.33862, 4.10387, 4.29450,
467 + .03238, .01675, 113.21157, 4.51289, 4.03777,
468 + 3.56347, 4.32455, 4.51417,
469 + .03287, .01701, 118.60595, 4.72923, 4.25738,
470 + 3.78705, 4.54185, 4.73053,
471 + .03333, .01726, 123.67385, 4.93655, 4.46680,
472 + 3.99887, 4.75007, 4.93786 /
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 + .03381, .01752, 128.91504, 5.15214, 4.68517,
475 + 4.22061, 4.96656, 5.15347,
476 + .03428, .01777, 134.08727, 5.36825, 4.90354,
477 + 4.44173, 5.18353, 5.36958,
478 + .03473, .01802, 139.08139, 5.57900, 5.11654,
479 + 4.65747, 5.39511, 5.58035,
480 + .03516, .01825, 143.88826, 5.78350, 5.32344,
481 + 4.86737, 5.60038, 5.78487,
482 + .03560, .01848, 148.70296, 5.99194, 5.53362,
483 + 5.07967, 5.80958, 5.99332 /
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 + .02424, .01235, .82158, .43743, .00000,
486 + .00000, .23852, .43763,
487 + .02476, .01261, 1.62366, .46409, .00000,
488 + .00000, .26675, .46428,
489 + .02554, .01302, 3.03401, .51100, .01523,
490 + .00000, .31592, .51121,
491 + .02612, .01332, 4.26638, .55056, .03864,
492 + .00000, .35704, .55077,
493 + .02674, .01365, 5.64994, .59692, .09242,
494 + .00000, .40500, .59715,
495 + .02728, .01392, 6.98824, .64136, .14050,
496 + .00000, .45076, .64159,
497 + .02780, .01420, 8.41170, .68736, .19088,
498 + .00000, .49800, .68760,
499 + .02835, .01450, 10.06826, .73994, .24922,
500 + .00000, .55188, .74021 /
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 + .02884, .01476, 11.60082, .78917, .30129,
503 + .00000, .60220, .78943,
504 + .02932, .01501, 13.17565, .83958, .35478,
505 + .00000, .65365, .83986,
506 + .02970, .01520, 14.50688, .88164, .40020,
507 + .00000, .69651, .88192,
508 + .03051, .01564, 17.52588, .97772, .50162,
509 + .00000, .79425, .97802,
510 + .03123, .01602, 19.99824, 1.06663, .59452,
511 + .12390, .88456, 1.06696,
512 + .03204, .01646, 23.07673, 1.17343, .70608,
513 + .25505, .99287, 1.17378,
514 + .03290, .01691, 26.49221, 1.29230, .82982,
515 + .38528, 1.11327, 1.29268,
516 + .03368, .01734, 29.76044, 1.40689, .94881,
517 + .51051, 1.22922, 1.40729 /
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 + .03447, .01777, 33.21984, 1.52928, 1.07571,
520 + .64335, 1.35292, 1.52970,
521 + .03514, .01813, 36.19120, 1.63573, 1.18544,
522 + .75671, 1.46045, 1.63618,
523 + .03595, .01857, 39.90472, 1.77061, 1.32389,
524 + .89909, 1.59660, 1.77109,
525 + .03668, .01896, 43.30892, 1.89555, 1.45232,
526 + 1.03180, 1.72264, 1.89605,
527 + .03734, .01933, 46.52389, 2.01478, 1.57491,
528 + 1.15852, 1.84287, 2.01532,
529 + .03820, .01979, 50.66206, 2.17135, 1.73471,
530 + 1.32187, 2.00066, 2.17192,
531 + .03900, .02023, 54.66186, 2.32479, 1.89146,
532 + 1.48257, 2.15523, 2.32540,
533 + .03976, .02065, 58.51624, 2.47437, 2.04460,
534 + 1.64020, 2.30584, 2.47501 /
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 + .04054, .02107, 62.37242, 2.62760, 2.20021,
537 + 1.79849, 2.46008, 2.62827,
538 + .04129, .02148, 66.23250, 2.78277, 2.35821,
539 + 1.95998, 2.61622, 2.78347,
540 + .04202, .02188, 69.94185, 2.93399, 2.51217,
541 + 2.11732, 2.76835, 2.93473,
542 + .04270, .02225, 73.43796, 3.07930, 2.65954,
543 + 2.26721, 2.91449, 3.08007,
544 + .04338, .02262, 77.03154, 3.22989, 2.81277,
545 + 2.42382, 3.06591, 3.23069,
546 + .04407, .02300, 80.52806, 3.37976, 2.96444,
547 + 2.57772, 3.21657, 3.38059,
548 + .04472, .02336, 83.93574, 3.52669, 3.11377,
549 + 2.73013, 3.36426, 3.52755,
550 + .04533, .02370, 87.11002, 3.66666, 3.25527,
551 + 2.87357, 3.50493, 3.66756 /
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 + .04596, .02404, 90.37541, 3.81159, 3.40224,
554 + 3.02318, 3.65056, 3.81251,
555 + .04658, .02439, 93.57388, 3.95610, 3.54840,
556 + 3.17152, 3.79574, 3.95706,
557 + .04718, .02471, 96.64364, 4.09639, 3.69034,
558 + 3.31562, 3.93667, 4.09739,
559 + .04775, .02503, 99.58265, 4.23197, 3.82766,
560 + 3.45527, 4.07285, 4.23298,
561 + .04833, .02535, 102.50464, 4.36945, 3.96642,
562 + 3.59574, 4.21093, 4.37050 /
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 + .03335, .01698, .76577, .37641, .00000,
565 + .00000, .20747, .37670,
566 + .03404, .01734, 1.49295, .39969, .00000,
567 + .00000, .23203, .40000,
568 + .03509, .01790, 2.73394, .43963, .01494,
569 + .00000, .27380, .43998,
570 + .03587, .01832, 3.79568, .47269, .03409,
571 + .00000, .30814, .47306,
572 + .03670, .01876, 4.96318, .51089, .07866,
573 + .00000, .34763, .51130,
574 + .03743, .01916, 6.07247, .54704, .11797,
575 + .00000, .38485, .54748,
576 + .03812, .01953, 7.23520, .58411, .15875,
577 + .00000, .42293, .58459,
578 + .03888, .01994, 8.56918, .62614, .20558,
579 + .00000, .46600, .62664 /
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 + .03953, .02030, 9.78620, .66510, .24697,
582 + .00000, .50585, .66563,
583 + .04018, .02065, 11.02230, .70474, .28920,
584 + .00000, .54632, .70529,
585 + .04069, .02093, 12.05752, .73760, .32484,
586 + .00000, .57985, .73819,
587 + .04178, .02152, 14.37568, .81206, .40375,
588 + .00000, .65565, .81270,
589 + .04275, .02206, 16.23678, .88029, .47532,
590 + .09394, .72500, .88097,
591 + .04385, .02266, 18.52123, .96147, .56044,
592 + .19480, .80741, .96220,
593 + .04499, .02330, 21.01695, 1.05091, .65390,
594 + .29369, .89810, 1.05171,
595 + .04604, .02388, 23.37062, 1.13634, .74290,
596 + .38786, .98461, 1.13718 /
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 + .04712, .02446, 25.82898, 1.22675, .83700,
599 + .48687, 1.07609, 1.22766,
600 + .04801, .02496, 27.91486, 1.30475, .91769,
601 + .57065, 1.15497, 1.30571,
602 + .04909, .02557, 30.49070, 1.40278, 1.01865,
603 + .67499, 1.25403, 1.40380,
604 + .05007, .02611, 32.82503, 1.49289, 1.11158,
605 + .77150, 1.34502, 1.49395,
606 + .05096, .02660, 35.00742, 1.57828, 1.19967,
607 + .86301, 1.43121, 1.57939,
608 + .05210, .02724, 37.78339, 1.68948, 1.31353,
609 + .97995, 1.54341, 1.69066,
610 + .05318, .02784, 40.43612, 1.79761, 1.42433,
611 + 1.09409, 1.65245, 1.79885,
612 + .05420, .02842, 42.96671, 1.90224, 1.53181,
613 + 1.20526, 1.75793, 1.90355 /
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 + .05522, .02898, 45.46907, 2.00859, 1.64014,
616 + 1.31595, 1.86509, 2.00995,
617 + .05623, .02955, 47.95087, 2.11556, 1.74940,
618 + 1.42816, 1.97285, 2.11699,
619 + .05718, .03008, 50.31388, 2.21912, 1.85517,
620 + 1.53675, 2.07716, 2.22062,
621 + .05809, .03058, 52.51929, 2.31797, 1.95572,
622 + 1.63948, 2.17668, 2.31952,
623 + .05901, .03110, 54.76996, 2.41986, 2.05971,
624 + 1.74626, 2.27924, 2.42146,
625 + .05990, .03159, 56.93763, 2.52057, 2.16193,
626 + 1.85043, 2.38060, 2.52222,
627 + .06077, .03208, 59.03729, 2.61883, 2.26210,
628 + 1.95315, 2.47948, 2.62054,
629 + .06159, .03254, 60.97421, 2.71184, 2.35640,
630 + 2.04916, 2.57307, 2.71361 /
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 + .06242, .03300, 62.95548, 2.80773, 2.45393,
633 + 2.14889, 2.66951, 2.80954,
634 + .06324, .03345, 64.87976, 2.90280, 2.55036,
635 + 2.24719, 2.76514, 2.90466,
636 + .06402, .03390, 66.71449, 2.99465, 2.64357,
637 + 2.34224, 2.85751, 2.99657,
638 + .06477, .03431, 68.46072, 3.08302, 2.73335,
639 + 2.43395, 2.94639, 3.08499,
640 + .06553, .03474, 70.18190, 3.17215, 2.82357,
641 + 2.52567, 3.03601, 3.17418 /
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 + .04021, .02051, .74112, .34575, .00000,
644 + .00000, .19214, .34647,
645 + .04103, .02095, 1.42850, .36702, .00000,
646 + .00000, .21456, .36778,
647 + .04226, .02162, 2.57886, .40305, .01484,
648 + .00000, .25225, .40386,
649 + .04320, .02212, 3.55035, .43259, .03167,
650 + .00000, .28293, .43344,
651 + .04419, .02266, 4.60480, .46647, .07137,
652 + .00000, .31797, .46738,
653 + .04504, .02313, 5.59549, .49828, .10611,
654 + .00000, .35076, .49924,
655 + .04588, .02359, 6.62437, .53074, .14195,
656 + .00000, .38413, .53176,
657 + .04677, .02408, 7.79433, .56736, .18290,
658 + .00000, .42170, .56843 /
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 + .04755, .02452, 8.85243, .60114, .21888,
661 + .00000, .45626, .60224,
662 + .04831, .02494, 9.91933, .63534, .25544,
663 + .00000, .49123, .63649,
664 + .04891, .02527, 10.80764, .66363, .28621,
665 + .00000, .52010, .66481,
666 + .05022, .02600, 12.78127, .72736, .35396,
667 + .00000, .58505, .72861,
668 + .05137, .02664, 14.34675, .78542, .41505,
669 + .07895, .64411, .78675,
670 + .05267, .02737, 16.25021, .85410, .48729,
671 + .16502, .71391, .85551,
672 + .05404, .02814, 18.30962, .92933, .56613,
673 + .24877, .79024, .93081,
674 + .05528, .02883, 20.23419, 1.00075, .64078,
675 + .32808, .86265, 1.00231 /
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 + .05656, .02954, 22.22754, 1.07594, .71928,
678 + .41101, .93883, 1.07759,
679 + .05761, .03014, 23.90585, 1.14050, .78625,
680 + .48080, 1.00416, 1.14222,
681 + .05890, .03087, 25.96272, 1.22121, .86963,
682 + .56730, 1.08582, 1.22302,
683 + .06005, .03152, 27.81328, 1.29505, .94600,
684 + .64693, 1.16047, 1.29692,
685 + .06111, .03211, 29.53240, 1.36473, 1.01809,
686 + .72211, 1.23087, 1.36667,
687 + .06246, .03288, 31.70252, 1.45502, 1.11078,
688 + .81766, 1.32206, 1.45705,
689 + .06374, .03360, 33.76138, 1.54236, 1.20055,
690 + .91050, 1.41024, 1.54449,
691 + .06494, .03427, 35.71287, 1.62653, 1.28726,
692 + 1.00053, 1.49517, 1.62873 /
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 + .06615, .03495, 37.62798, 1.71165, 1.37419,
695 + 1.08968, 1.58103, 1.71393,
696 + .06733, .03562, 39.51626, 1.79690, 1.46151,
697 + 1.17969, 1.66701, 1.79927,
698 + .06846, .03626, 41.30348, 1.87912, 1.54570,
699 + 1.26646, 1.74991, 1.88156,
700 + .06952, .03686, 42.96086, 1.95725, 1.62540,
701 + 1.34819, 1.82866, 1.95978,
702 + .07059, .03746, 44.64462, 2.03753, 1.70757,
703 + 1.43289, 1.90954, 2.04012,
704 + .07165, .03806, 46.25525, 2.11653, 1.78796,
705 + 1.51512, 1.98915, 2.11920,
706 + .07267, .03863, 47.80944, 2.19339, 1.86654,
707 + 1.59600, 2.06657, 2.19614,
708 + .07362, .03918, 49.23377, 2.26586, 1.94019,
709 + 1.67126, 2.13957, 2.26867 /
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 + .07460, .03972, 50.68551, 2.34036, 2.01618,
712 + 1.74925, 2.21459, 2.34324,
713 + .07556, .04026, 52.08755, 2.41395, 2.09103,
714 + 1.82583, 2.28869, 2.41690,
715 + .07647, .04078, 53.41852, 2.48485, 2.16317,
716 + 1.89966, 2.36007, 2.48786,
717 + .07735, .04128, 54.68049, 2.55289, 2.23247,
718 + 1.97073, 2.42855, 2.55596,
719 + .07824, .04177, 55.91693, 2.62126, 2.30186,
720 + 2.04153, 2.49738, 2.62439 /
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 + .04592, .02346, .73141, .32567, .00000,
723 + .00000, .18227, .32694,
724 + .04683, .02395, 1.39189, .34553, .00000,
725 + .00000, .20321, .34686,
726 + .04822, .02472, 2.48080, .37892, .01473,
727 + .00000, .23811, .38031,
728 + .04929, .02531, 3.39141, .40610, .03000,
729 + .00000, .26637, .40756,
730 + .05039, .02592, 4.37018, .43714, .06645,
731 + .00000, .29848, .43866,
732 + .05137, .02646, 5.28205, .46614, .09817,
733 + .00000, .32837, .46771,
734 + .05231, .02698, 6.22257, .49561, .13077,
735 + .00000, .35868, .49723,
736 + .05331, .02755, 7.28495, .52874, .16789,
737 + .00000, .39269, .53043 /
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 + .05420, .02805, 8.23948, .55917, .20037,
740 + .00000, .42387, .56091,
741 + .05506, .02853, 9.19674, .58991, .23328,
742 + .00000, .45530, .59170,
743 + .05574, .02892, 9.99031, .61526, .26091,
744 + .00000, .48120, .61709,
745 + .05722, .02975, 11.74312, .67216, .32152,
746 + .00000, .53924, .67410,
747 + .05852, .03047, 13.12092, .72379, .37594,
748 + .06940, .59181, .72579,
749 + .05999, .03131, 14.78406, .78460, .44003,
750 + .14609, .65365, .78671,
751 + .06152, .03219, 16.57042, .85091, .50967,
752 + .22030, .72100, .85312,
753 + .06293, .03298, 18.22839, .91360, .57533,
754 + .29028, .78461, .91590 /
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 + .06437, .03379, 19.93482, .97934, .64409,
757 + .36315, .85126, .98173,
758 + .06557, .03447, 21.36319, 1.03555, .70253,
759 + .42425, .90822, 1.03803,
760 + .06702, .03530, 23.10374, 1.10559, .77503,
761 + .49970, .97913, 1.10817,
762 + .06831, .03604, 24.66118, 1.16942, .84120,
763 + .56891, 1.04372, 1.17209,
764 + .06950, .03672, 26.10101, 1.22948, .90346,
765 + .63405, 1.10446, 1.23223,
766 + .07103, .03759, 27.90810, 1.30699, .98322,
767 + .71653, 1.18282, 1.30985,
768 + .07245, .03839, 29.61311, 1.38172, 1.06017,
769 + .79636, 1.25834, 1.38468,
770 + .07380, .03916, 31.22143, 1.45348, 1.13425,
771 + .87353, 1.33081, 1.45654 /
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 + .07516, .03993, 32.79052, 1.52577, 1.20824,
774 + .94965, 1.40382, 1.52893,
775 + .07649, .04069, 34.33072, 1.59797, 1.28235,
776 + 1.02629, 1.47669, 1.60121,
777 + .07775, .04141, 35.78190, 1.66738, 1.35358,
778 + 1.09993, 1.54673, 1.67072,
779 + .07895, .04208, 37.12089, 1.73313, 1.42078,
780 + 1.16907, 1.61307, 1.73656,
781 + .08015, .04277, 38.47661, 1.80051, 1.48991,
782 + 1.24055, 1.68103, 1.80403,
783 + .08134, .04344, 39.76649, 1.86662, 1.55732,
784 + 1.30971, 1.74771, 1.87022,
785 + .08246, .04408, 41.00760, 1.93079, 1.62307,
786 + 1.37761, 1.81241, 1.93447,
787 + .08354, .04469, 42.13908, 1.99111, 1.68450,
788 + 1.44058, 1.87322, 1.99487 /
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 + .08463, .04530, 43.28928, 2.05299, 1.74776,
791 + 1.50572, 1.93560, 2.05682,
792 + .08570, .04591, 44.39505, 2.11394, 1.80991,
793 + 1.56951, 1.99705, 2.11788,
794 + .08671, .04649, 45.44124, 2.17254, 1.86966,
795 + 1.63086, 2.05610, 2.17655,
796 + .08769, .04705, 46.43027, 2.22866, 1.92697,
797 + 1.68981, 2.11265, 2.23274,
798 + .08868, .04760, 47.39459, 2.28491, 1.98417,
799 + 1.74836, 2.16932, 2.28905 /
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 + .05091, .02617, .73280, .31194, .00000,
802 + .00000, .17520, .31329,
803 + .05192, .02672, 1.37248, .33071, .00000,
804 + .00000, .19496, .33211,
805 + .05345, .02757, 2.41426, .36204, .01455,
806 + .00000, .22770, .36353,
807 + .05461, .02822, 3.27845, .38744, .02864,
808 + .00000, .25409, .38900,
809 + .05583, .02891, 4.19980, .41631, .06265,
810 + .00000, .28395, .41796,
811 + .05690, .02951, 5.05217, .44320, .09212,
812 + .00000, .31167, .44491,
813 + .05793, .03010, 5.92626, .47045, .12230,
814 + .00000, .33970, .47222,
815 + .05905, .03072, 6.90809, .50099, .15658,
816 + .00000, .37106, .50285 /
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 + .06002, .03128, 7.78546, .52897, .18648,
819 + .00000, .39972, .53088,
820 + .06096, .03181, 8.66136, .55714, .21671,
821 + .00000, .42854, .55913,
822 + .06172, .03225, 9.38486, .58034, .24204,
823 + .00000, .45226, .58237,
824 + .06334, .03316, 10.97518, .63228, .29743,
825 + .00000, .50525, .63441,
826 + .06477, .03398, 12.21584, .67921, .34699,
827 + .06249, .55307, .68146,
828 + .06638, .03490, 13.70448, .73433, .40517,
829 + .13234, .60915, .73669,
830 + .06807, .03586, 15.29370, .79419, .46814,
831 + .19962, .67000, .79666,
832 + .06963, .03675, 16.76018, .85059, .52731,
833 + .26286, .72726, .85318 /
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 + .07119, .03765, 18.26153, .90954, .58908,
836 + .32848, .78707, .91224,
837 + .07250, .03840, 19.51207, .95980, .64141,
838 + .38333, .83802, .96259,
839 + .07410, .03931, 21.02874, 1.02222, .70612,
840 + .45084, .90126, 1.02513,
841 + .07552, .04012, 22.37958, 1.07895, .76501,
842 + .51260, .95870, 1.08196,
843 + .07682, .04087, 23.62325, 1.13216, .82028,
844 + .57057, 1.01256, 1.13527,
845 + .07848, .04181, 25.17638, 1.20064, .89085,
846 + .64374, 1.08185, 1.20388,
847 + .08005, .04271, 26.63512, 1.26645, .95873,
848 + .71434, 1.14839, 1.26980,
849 + .08152, .04355, 28.00562, 1.32947, 1.02392,
850 + .78242, 1.21210, 1.33293 /
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 + .08301, .04440, 29.33596, 1.39277, 1.08881,
853 + .84935, 1.27606, 1.39634,
854 + .08445, .04522, 30.63678, 1.45582, 1.15364,
855 + .91656, 1.33975, 1.45950,
856 + .08583, .04600, 31.85758, 1.51627, 1.21579,
857 + .98099, 1.40080, 1.52006,
858 + .08713, .04674, 32.97902, 1.57339, 1.27427,
859 + 1.04130, 1.45849, 1.57728,
860 + .08843, .04749, 34.11114, 1.63181, 1.33432,
861 + 1.10356, 1.51746, 1.63579,
862 + .08972, .04823, 35.18344, 1.68896, 1.39269,
863 + 1.16361, 1.57514, 1.69304,
864 + .09096, .04892, 36.21277, 1.74433, 1.44955,
865 + 1.22248, 1.63102, 1.74851,
866 + .09211, .04959, 37.14690, 1.79624, 1.50252,
867 + 1.27692, 1.68340, 1.80051 /
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 + .09329, .05025, 38.09441, 1.84941, 1.55699,
870 + 1.33315, 1.73705, 1.85377,
871 + .09446, .05091, 39.00154, 1.90167, 1.61037,
872 + 1.38809, 1.78977, 1.90612,
873 + .09557, .05154, 39.85720, 1.95181, 1.66159,
874 + 1.44082, 1.84035, 1.95635,
875 + .09662, .05214, 40.66408, 1.99974, 1.71065,
876 + 1.49143, 1.88869, 2.00436,
877 + .09769, .05273, 41.44735, 2.04768, 1.75950,
878 + 1.54156, 1.93703, 2.05238 /
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 + .07028, .03697, .76121, .27432, .00000,
881 + .00000, .15625, .27677,
882 + .07161, .03774, 1.33972, .28961, .00000,
883 + .00000, .17234, .29214,
884 + .07365, .03891, 2.24311, .31477, .01366,
885 + .00000, .19866, .31746,
886 + .07521, .03982, 2.97177, .33493, .02435,
887 + .00000, .21963, .33772,
888 + .07684, .04077, 3.72778, .35762, .05141,
889 + .00000, .24314, .36054,
890 + .07827, .04159, 4.41087, .37851, .07453,
891 + .00000, .26471, .38154,
892 + .07966, .04241, 5.09780, .39953, .09800,
893 + .00000, .28638, .40265,
894 + .08116, .04328, 5.85511, .42288, .12444,
895 + .00000, .31040, .42611 /
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 + .08246, .04405, 6.51964, .44406, .14727,
898 + .00000, .33217, .44740,
899 + .08373, .04479, 7.17298, .46525, .17017,
900 + .00000, .35390, .46868,
901 + .08475, .04539, 7.70610, .48260, .18927,
902 + .00000, .37167, .48611,
903 + .08692, .04665, 8.85910, .52106, .23061,
904 + .00000, .41102, .52474,
905 + .08883, .04777, 9.73613, .55542, .26719,
906 + .04364, .44614, .55927,
907 + .09098, .04902, 10.76564, .59535, .30965,
908 + .09529, .48688, .59935,
909 + .09324, .05032, 11.84225, .63818, .35507,
910 + .14431, .53054, .64236,
911 + .09528, .05152, 12.81636, .67807, .39726,
912 + .18986, .57118, .68242 /
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 + .09737, .05273, 13.79572, .71931, .44082,
915 + .23662, .61316, .72383,
916 + .09910, .05374, 14.59778, .75411, .47736,
917 + .27529, .64857, .75878,
918 + .10121, .05495, 15.55441, .79690, .52207,
919 + .32242, .69206, .80174,
920 + .10307, .05603, 16.39300, .83539, .56238,
921 + .36513, .73118, .84038,
922 + .10479, .05702, 17.15427, .87120, .59988,
923 + .40488, .76754, .87633,
924 + .10695, .05828, 18.08849, .91678, .64724,
925 + .45449, .81383, .92208,
926 + .10900, .05945, 18.95179, .96013, .69235,
927 + .50191, .85782, .96561,
928 + .11093, .06056, 19.75138, 1.00127, .73528,
929 + .54723, .89958, 1.00690 /
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 + .11284, .06165, 20.51337, 1.04214, .77755,
932 + .59129, .94103, 1.04793,
933 + .11472, .06273, 21.24858, 1.08251, .81944,
934 + .63519, .98197, 1.08845,
935 + .11650, .06374, 21.92900, 1.12088, .85926,
936 + .67693, 1.02088, 1.12697,
937 + .11816, .06469, 22.54410, 1.15680, .89638,
938 + .71563, 1.05730, 1.16303,
939 + .11985, .06565, 23.15880, 1.19329, .93425,
940 + .75534, 1.09428, 1.19967,
941 + .12150, .06658, 23.73067, 1.22866, .97072,
942 + .79327, 1.13013, 1.23516,
943 + .12307, .06748, 24.27517, 1.26271, 1.00603,
944 + .83026, 1.16463, 1.26934,
945 + .12455, .06832, 24.76044, 1.29434, 1.03863,
946 + .86414, 1.19670, 1.30110 /
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 + .12605, .06916, 25.24882, 1.32656, 1.07198,
949 + .89897, 1.22935, 1.33346,
950 + .12752, .06999, 25.70909, 1.35798, 1.10440,
951 + .93272, 1.26118, 1.36499,
952 + .12893, .07079, 26.13845, 1.38793, 1.13533,
953 + .96494, 1.29153, 1.39506,
954 + .13026, .07154, 26.53952, 1.41640, 1.16478,
955 + .99568, 1.32038, 1.42364,
956 + .13160, .07229, 26.92195, 1.44464, 1.19387,
957 + 1.02589, 1.34899, 1.45199 /
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 + .09728, .05280, .86724, .24373, .00000,
960 + .00000, .14019, .24795,
961 + .09907, .05386, 1.38238, .25564, .00000,
962 + .00000, .15276, .25999,
963 + .10180, .05550, 2.15070, .27506, .01148,
964 + .00000, .17314, .27965,
965 + .10389, .05676, 2.74900, .29050, .01922,
966 + .00000, .18928, .29526,
967 + .10608, .05807, 3.35133, .30777, .04024,
968 + .00000, .20724, .31271,
969 + .10799, .05921, 3.88107, .32350, .05795,
970 + .00000, .22356, .32861,
971 + .10986, .06032, 4.40182, .33919, .07577,
972 + .00000, .23982, .34446,
973 + .11186, .06151, 4.96365, .35649, .09566,
974 + .00000, .25771, .36194 /
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 + .11360, .06254, 5.44654, .37205, .11266,
977 + .00000, .27377, .37765,
978 + .11530, .06355, 5.91288, .38747, .12957,
979 + .00000, .28967, .39322,
980 + .11666, .06435, 6.28800, .40002, .14359,
981 + .00000, .30260, .40590,
982 + .11956, .06606, 7.08430, .42757, .17362,
983 + .00000, .33093, .43370,
984 + .12208, .06755, 7.67300, .45188, .19985,
985 + .02812, .35591, .45823,
986 + .12492, .06921, 8.34380, .47974, .22993,
987 + .06533, .38452, .48634,
988 + .12788, .07093, 9.02806, .50923, .26166,
989 + .10007, .41477, .51611,
990 + .13058, .07250, 9.63254, .53634, .29075,
991 + .13193, .44256, .54345 /
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 + .13329, .07407, 10.22698, .56402, .32043,
994 + .16426, .47090, .57137,
995 + .13554, .07537, 10.70375, .58709, .34502,
996 + .19067, .49453, .59463,
997 + .13826, .07693, 11.26047, .61512, .37477,
998 + .22249, .52322, .62290,
999 + .14068, .07831, 11.73891, .64003, .40128,
1000 + .25102, .54872, .64804,
1001 + .14288, .07958, 12.16563, .66296, .42571,
1002 + .27732, .57218, .67117,
1003 + .14566, .08116, 12.67717, .69180, .45617,
1004 + .30973, .60167, .70024,
1005 + .14826, .08264, 13.13993, .71889, .48485,
1006 + .34035, .62937, .72756,
1007 + .15071, .08402, 13.56065, .74432, .51186,
1008 + .36933, .65537, .75322 /
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 + .15313, .08539, 13.95131, .76925, .53812,
1011 + .39716, .68087, .77836,
1012 + .15549, .08671, 14.32160, .79363, .56388,
1013 + .42461, .70580, .80293,
1014 + .15772, .08796, 14.65780, .81655, .58814,
1015 + .45047, .72924, .82606,
1016 + .15981, .08913, 14.95447, .83777, .61051,
1017 + .47420, .75093, .84746,
1018 + .16191, .09030, 15.24698, .85914, .63315,
1019 + .49837, .77280, .86902,
1020 + .16394, .09142, 15.51163, .87962, .65470,
1021 + .52119, .79373, .88966,
1022 + .16588, .09251, 15.76104, .89920, .67545,
1023 + .54331, .81376, .90941,
1024 + .16769, .09351, 15.97635, .91718, .69437,
1025 + .56335, .83215, .92755 /
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 + .16953, .09452, 16.19072, .93536, .71362,
1028 + .58383, .85076, .94589,
1029 + .17133, .09551, 16.38761, .95291, .73217,
1030 + .60351, .86873, .96360,
1031 + .17304, .09644, 16.56812, .96952, .74971,
1032 + .62214, .88572, .98035,
1033 + .17466, .09733, 16.73423, .98519, .76631,
1034 + .63981, .90176, .99616,
1035 + .17628, .09821, 16.88728, 1.00057, .78254,
1036 + .65700, .91751, 1.01167 /
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 + .11775, .06513, .97933, .22722, .00000,
1039 + .00000, .13099, .23296,
1040 + .11988, .06643, 1.44969, .23729, .00000,
1041 + .00000, .14167, .24323,
1042 + .12314, .06844, 2.13671, .25367, .00924,
1043 + .00000, .15895, .25990,
1044 + .12562, .06994, 2.65830, .26664, .01551,
1045 + .00000, .17257, .27310,
1046 + .12823, .07151, 3.17313, .28110, .03343,
1047 + .00000, .18769, .28781,
1048 + .13051, .07288, 3.61812, .29419, .04841,
1049 + .00000, .20135, .30112,
1050 + .13272, .07420, 4.04909, .30719, .06338,
1051 + .00000, .21489, .31433,
1052 + .13509, .07561, 4.50756, .32144, .08001,
1053 + .00000, .22970, .32880 /
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 + .13716, .07685, 4.89629, .33418, .09411,
1056 + .00000, .24293, .34174,
1057 + .13917, .07803, 5.26727, .34674, .10809,
1058 + .00000, .25596, .35448,
1059 + .14078, .07899, 5.56289, .35693, .11961,
1060 + .00000, .26651, .36481,
1061 + .14418, .08099, 6.18286, .37912, .14414,
1062 + .00000, .28947, .38733,
1063 + .14713, .08271, 6.63269, .39852, .16538,
1064 + .02034, .30954, .40701,
1065 + .15044, .08463, 7.13326, .42059, .18955,
1066 + .05061, .33233, .42938,
1067 + .15390, .08662, 7.63507, .44371, .21480,
1068 + .07857, .35621, .45283,
1069 + .15702, .08842, 8.07096, .46477, .23775,
1070 + .10400, .37795, .47419 /
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 + .16016, .09021, 8.49292, .48609, .26098,
1073 + .12960, .39994, .49579,
1074 + .16275, .09168, 8.82599, .50372, .28008,
1075 + .15035, .41813, .51366,
1076 + .16588, .09345, 9.20889, .52495, .30299,
1077 + .17517, .44002, .53517,
1078 + .16864, .09501, 9.53302, .54367, .32326,
1079 + .19725, .45933, .55415,
1080 + .17116, .09642, 9.81817, .56078, .34182,
1081 + .21748, .47698, .57149,
1082 + .17431, .09819, 10.15402, .58210, .36475,
1083 + .24220, .49896, .59309,
1084 + .17728, .09983, 10.45277, .60195, .38618,
1085 + .26540, .51944, .61320,
1086 + .18004, .10136, 10.72036, .62045, .40623,
1087 + .28721, .53852, .63195 /
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 + .18275, .10286, 10.96325, .63841, .42554,
1090 + .30796, .55707, .65016,
1091 + .18540, .10431, 11.19002, .65586, .44437,
1092 + .32832, .57506, .66783,
1093 + .18789, .10567, 11.39241, .67213, .46197,
1094 + .34736, .59187, .68433,
1095 + .19021, .10693, 11.56702, .68708, .47809,
1096 + .36471, .60730, .69947,
1097 + .19255, .10820, 11.73724, .70206, .49432,
1098 + .38229, .62278, .71466,
1099 + .19480, .10941, 11.88694, .71626, .50964,
1100 + .39877, .63746, .72906,
1101 + .19694, .11057, 12.02685, .72978, .52432,
1102 + .41468, .65144, .74277,
1103 + .19894, .11163, 12.14363, .74207, .53761,
1104 + .42899, .66416, .75523 /
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 + .20096, .11271, 12.25881, .75446, .55108,
1107 + .44357, .67699, .76780,
1108 + .20292, .11376, 12.36138, .76633, .56395,
1109 + .45746, .68928, .77983,
1110 + .20479, .11474, 12.45356, .77749, .57608,
1111 + .47056, .70084, .79114,
1112 + .20656, .11568, 12.53695, .78797, .58750,
1113 + .48294, .71170, .80177,
1114 + .20831, .11660, 12.61031, .79816, .59859,
1115 + .49491, .72227, .81211 /
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 + .13489, .07563, 1.08295, .21573, .00000,
1118 + .00000, .12419, .22286,
1119 + .13731, .07714, 1.51821, .22458, .00000,
1120 + .00000, .13365, .23195,
1121 + .14103, .07942, 2.14467, .23896, .00707,
1122 + .00000, .14890, .24670,
1123 + .14385, .08113, 2.61025, .25033, .01245,
1124 + .00000, .16090, .25833,
1125 + .14680, .08291, 3.06281, .26295, .02837,
1126 + .00000, .17419, .27127,
1127 + .14936, .08445, 3.44895, .27434, .04159,
1128 + .00000, .18613, .28291,
1129 + .15187, .08594, 3.81868, .28560, .05475,
1130 + .00000, .19792, .29440,
1131 + .15455, .08754, 4.20773, .29789, .06930,
1132 + .00000, .21078, .30696 /
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 + .15688, .08891, 4.53416, .30882, .08157,
1135 + .00000, .22220, .31811,
1136 + .15914, .09024, 4.84281, .31955, .09367,
1137 + .00000, .23340, .32907,
1138 + .16093, .09129, 5.08696, .32821, .10363,
1139 + .00000, .24243, .33791,
1140 + .16474, .09351, 5.59417, .34701, .12470,
1141 + .00000, .26200, .35707,
1142 + .16804, .09541, 5.95707, .36332, .14282,
1143 + .01536, .27898, .37370,
1144 + .17171, .09752, 6.35212, .38174, .16330,
1145 + .04128, .29816, .39248,
1146 + .17552, .09968, 6.74261, .40089, .18455,
1147 + .06504, .31808, .41199,
1148 + .17897, .10163, 7.07700, .41820, .20374,
1149 + .08651, .33608, .42963 /
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 + .18244, .10357, 7.39636, .43560, .22304,
1152 + .10799, .35418, .44736,
1153 + .18528, .10516, 7.64508, .44989, .23879,
1154 + .12529, .36904, .46191,
1155 + .18869, .10706, 7.92706, .46699, .25758,
1156 + .14587, .38682, .47932,
1157 + .19170, .10871, 8.16261, .48196, .27412,
1158 + .16409, .40241, .49458,
1159 + .19444, .11022, 8.36732, .49557, .28916,
1160 + .18066, .41657, .50844,
1161 + .19787, .11209, 8.60426, .51239, .30765,
1162 + .20083, .43408, .52557,
1163 + .20105, .11382, 8.81171, .52795, .32480,
1164 + .21963, .45029, .54142,
1165 + .20402, .11542, 8.99495, .54235, .34076,
1166 + .23720, .46529, .55609 /
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 + .20694, .11699, 9.15736, .55624, .35603,
1169 + .25382, .47978, .57022,
1170 + .20977, .11850, 9.30673, .56962, .37085,
1171 + .27005, .49375, .58386,
1172 + .21243, .11992, 9.43769, .58205, .38463,
1173 + .28516, .50672, .59652,
1174 + .21490, .12121, 9.54782, .59337, .39716,
1175 + .29884, .51855, .60806,
1176 + .21738, .12251, 9.65389, .60467, .40972,
1177 + .31265, .53037, .61957,
1178 + .21976, .12376, 9.74392, .61529, .42151,
1179 + .32552, .54149, .63039,
1180 + .22202, .12494, 9.82732, .62537, .43277,
1181 + .33791, .55205, .64066,
1182 + .22411, .12604, 9.89382, .63446, .44290,
1183 + .34898, .56158, .64993 /
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 + .22624, .12713, 9.95872, .64358, .45313,
1186 + .36022, .57115, .65923,
1187 + .22829, .12818, 10.01398, .65225, .46285,
1188 + .37090, .58027, .66808,
1189 + .23023, .12918, 10.06220, .66036, .47196,
1190 + .38091, .58881, .67634,
1191 + .23206, .13012, 10.10473, .66795, .48052,
1192 + .39034, .59679, .68408,
1193 + .23388, .13105, 10.13922, .67527, .48877,
1194 + .39941, .60450, .69155 /
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 + .14980, .08485, 1.17674, .20651, .00000,
1197 + .00000, .11853, .21485,
1198 + .15250, .08654, 1.58176, .21450, .00000,
1199 + .00000, .12710, .22313,
1200 + .15663, .08908, 2.15891, .22744, .00505,
1201 + .00000, .14093, .23652,
1202 + .15975, .09098, 2.57973, .23765, .00983,
1203 + .00000, .15178, .24705,
1204 + .16302, .09294, 2.98356, .24897, .02432,
1205 + .00000, .16375, .25871,
1206 + .16586, .09463, 3.32457, .25914, .03628,
1207 + .00000, .17448, .26917,
1208 + .16860, .09625, 3.64803, .26915, .04814,
1209 + .00000, .18502, .27946,
1210 + .17155, .09798, 3.98536, .28002, .06121,
1211 + .00000, .19649, .29063 /
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 + .17410, .09947, 4.26586, .28966, .07217,
1214 + .00000, .20661, .30053,
1215 + .17656, .10092, 4.52906, .29908, .08295,
1216 + .00000, .21651, .31020,
1217 + .17854, .10205, 4.73600, .30666, .09179,
1218 + .00000, .22447, .31798,
1219 + .18268, .10443, 5.16258, .32303, .11041,
1220 + .00000, .24165, .33475,
1221 + .18625, .10646, 5.46416, .33715, .12635,
1222 + .01182, .25645, .34923,
1223 + .19023, .10870, 5.78560, .35298, .14425,
1224 + .03468, .27306, .36545,
1225 + .19434, .11100, 6.09945, .36935, .16271,
1226 + .05550, .29022, .38220,
1227 + .19804, .11305, 6.36480, .38405, .17928,
1228 + .07421, .30563, .39725 /
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 + .20174, .11509, 6.61500, .39872, .19585,
1231 + .09282, .32102, .41228,
1232 + .20478, .11675, 6.80743, .41070, .20931,
1233 + .10775, .33360, .42455,
1234 + .20842, .11873, 7.02279, .42494, .22529,
1235 + .12542, .34856, .43912,
1236 + .21161, .12046, 7.20037, .43735, .23927,
1237 + .14098, .36159, .45182,
1238 + .21451, .12201, 7.35280, .44856, .25195,
1239 + .15509, .37338, .46331,
1240 + .21812, .12394, 7.52605, .46233, .26742,
1241 + .17215, .38787, .47740,
1242 + .22149, .12571, 7.67525, .47500, .28172,
1243 + .18799, .40120, .49037,
1244 + .22461, .12736, 7.80512, .48665, .29495,
1245 + .20273, .41348, .50229 /
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 + .22765, .12894, 7.91721, .49779, .30754,
1248 + .21660, .42525, .51370,
1249 + .23061, .13048, 8.01857, .50849, .31970,
1250 + .23009, .43655, .52466,
1251 + .23338, .13191, 8.10560, .51835, .33096,
1252 + .24258, .44699, .53477,
1253 + .23594, .13322, 8.17646, .52729, .34114,
1254 + .25385, .45645, .54392,
1255 + .23848, .13453, 8.24376, .53615, .35132,
1256 + .26519, .46586, .55300,
1257 + .24095, .13577, 8.29781, .54444, .36081,
1258 + .27570, .47467, .56149,
1259 + .24328, .13694, 8.34731, .55227, .36985,
1260 + .28579, .48299, .56952,
1261 + .24543, .13802, 8.38415, .55927, .37793,
1262 + .29476, .49045, .57669 /
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 + .24759, .13910, 8.41954, .56628, .38608,
1265 + .30385, .49793, .58387,
1266 + .24970, .14015, 8.44728, .57289, .39378,
1267 + .31244, .50500, .59066,
1268 + .25167, .14113, 8.47008, .57906, .40098,
1269 + .32048, .51160, .59698,
1270 + .25353, .14204, 8.48917, .58479, .40770,
1271 + .32802, .51774, .60286,
1272 + .25538, .14294, 8.50172, .59027, .41415,
1273 + .33524, .52364, .60849 /
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 + .17563, .10089, 1.33170, .19223, .00000,
1276 + .00000, .10947, .20292,
1277 + .17883, .10289, 1.68537, .19905, .00000,
1278 + .00000, .11687, .21009,
1279 + .18369, .10585, 2.18350, .21002, .00153,
1280 + .00000, .12874, .22162,
1281 + .18733, .10803, 2.53451, .21861, .00558,
1282 + .00000, .13801, .23061,
1283 + .19111, .11027, 2.86423, .22808, .01807,
1284 + .00000, .14818, .24051,
1285 + .19440, .11218, 3.13805, .23651, .02830,
1286 + .00000, .15719, .24929,
1287 + .19757, .11402, 3.39384, .24475, .03837,
1288 + .00000, .16602, .25788,
1289 + .20094, .11597, 3.65673, .25366, .04939,
1290 + .00000, .17553, .26713 /
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 + .20386, .11762, 3.87219, .26147, .05857,
1293 + .00000, .18389, .27526,
1294 + .20666, .11921, 4.07176, .26906, .06754,
1295 + .00000, .19199, .28313,
1296 + .20889, .12046, 4.22709, .27513, .07485,
1297 + .00000, .19848, .28944,
1298 + .21358, .12309, 4.54308, .28814, .09015,
1299 + .00000, .21234, .30293,
1300 + .21757, .12527, 4.76227, .29923, .10310,
1301 + .00703, .22417, .31441,
1302 + .22199, .12768, 4.98590, .31155, .11753,
1303 + .02573, .23731, .32715,
1304 + .22654, .13013, 5.19920, .32411, .13225,
1305 + .04259, .25073, .34017,
1306 + .23061, .13229, 5.37528, .33526, .14536,
1307 + .05761, .26267, .35171 /
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 + .23466, .13443, 5.53743, .34629, .15833,
1310 + .07242, .27447, .36311,
1311 + .23796, .13616, 5.65882, .35519, .16879,
1312 + .08422, .28401, .37232,
1313 + .24189, .13820, 5.79102, .36567, .18108,
1314 + .09805, .29524, .38314,
1315 + .24532, .13997, 5.89715, .37469, .19176,
1316 + .11014, .30495, .39249,
1317 + .24842, .14155, 5.98592, .38278, .20136,
1318 + .12104, .31366, .40084,
1319 + .25227, .14350, 6.08231, .39258, .21298,
1320 + .13410, .32423, .41098,
1321 + .25583, .14528, 6.16206, .40150, .22362,
1322 + .14614, .33387, .42020,
1323 + .25911, .14692, 6.22899, .40962, .23340,
1324 + .15726, .34268, .42861 /
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 + .26229, .14848, 6.28240, .41727, .24260,
1327 + .16762, .35100, .43653,
1328 + .26536, .14999, 6.32828, .42455, .25141,
1329 + .17763, .35892, .44405,
1330 + .26822, .15138, 6.36499, .43120, .25952,
1331 + .18684, .36617, .45092,
1332 + .27085, .15264, 6.39135, .43713, .26678,
1333 + .19509, .37267, .45707,
1334 + .27347, .15390, 6.41498, .44298, .27402,
1335 + .20335, .37909, .46313,
1336 + .27597, .15507, 6.42965, .44835, .28067,
1337 + .21093, .38501, .46870,
1338 + .27833, .15619, 6.44233, .45340, .28700,
1339 + .21819, .39059, .47392,
1340 + .28049, .15719, 6.44703, .45784, .29260,
1341 + .22459, .39553, .47852 /
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 + .28267, .15820, 6.45057, .46226, .29820,
1344 + .23103, .40044, .48310,
1345 + .28475, .15916, 6.44909, .46636, .30346,
1346 + .23708, .40502, .48737,
1347 + .28673, .16006, 6.44523, .47015, .30834,
1348 + .24271, .40927, .49129,
1349 + .28857, .16090, 6.43989, .47364, .31288,
1350 + .24797, .41320, .49491,
1351 + .29038, .16171, 6.42983, .47692, .31719,
1352 + .25296, .41692, .49831 /
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 + .20797, .12099, 1.49850, .17617, .00000,
1355 + .00000, .09902, .19001,
1356 + .21184, .12335, 1.78978, .18187, .00000,
1357 + .00000, .10539, .19619,
1358 + .21766, .12680, 2.19744, .19095, -.00254,
1359 + .00000, .11546, .20598,
1360 + .22196, .12930, 2.47181, .19797, .00093,
1361 + .00000, .12321, .21351,
1362 + .22639, .13182, 2.72266, .20565, .01153,
1363 + .00000, .13166, .22168,
1364 + .23021, .13397, 2.92699, .21238, .02012,
1365 + .00000, .13907, .22886,
1366 + .23386, .13601, 3.11451, .21891, .02850,
1367 + .00000, .14624, .23577,
1368 + .23773, .13814, 3.30389, .22589, .03757,
1369 + .00000, .15389, .24317 /
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 + .24106, .13996, 3.45623, .23194, .04507,
1372 + .00000, .16054, .24957,
1373 + .24424, .14168, 3.59503, .23777, .05234,
1374 + .00000, .16694, .25574,
1375 + .24677, .14303, 3.70169, .24240, .05823,
1376 + .00000, .17203, .26064,
1377 + .25202, .14581, 3.91531, .25220, .07043,
1378 + .00000, .18279, .27096,
1379 + .25643, .14810, 4.05967, .26044, .08065,
1380 + .00283, .19184, .27963,
1381 + .26129, .15059, 4.19670, .26944, .09189,
1382 + .01765, .20177, .28910,
1383 + .26624, .15309, 4.32289, .27849, .10324,
1384 + .03089, .21178, .29861,
1385 + .27062, .15529, 4.42298, .28641, .11322,
1386 + .04255, .22054, .30693 /
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 + .27495, .15742, 4.51137, .29412, .12299,
1389 + .05393, .22910, .31502,
1390 + .27846, .15913, 4.57453, .30025, .13079,
1391 + .06292, .23594, .32146,
1392 + .28259, .16113, 4.63935, .30735, .13986,
1393 + .07336, .24388, .32891,
1394 + .28618, .16283, 4.68846, .31341, .14766,
1395 + .08241, .25066, .33525,
1396 + .28940, .16435, 4.72718, .31875, .15461,
1397 + .09049, .25668, .34086,
1398 + .29335, .16619, 4.76448, .32511, .16293,
1399 + .10009, .26388, .34754,
1400 + .29698, .16785, 4.79170, .33080, .17047,
1401 + .10885, .27036, .35350,
1402 + .30030, .16936, 4.81166, .33592, .17734,
1403 + .11688, .27620, .35887 /
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 + .30348, .17078, 4.82212, .34063, .18371,
1406 + .12428, .28162, .36381,
1407 + .30654, .17214, 4.82808, .34504, .18978,
1408 + .13138, .28673, .36844,
1409 + .30936, .17337, 4.82928, .34900, .19530,
1410 + .13787, .29134, .37259,
1411 + .31192, .17447, 4.82483, .35246, .20018,
1412 + .14360, .29541, .37623,
1413 + .31447, .17556, 4.81860, .35584, .20501,
1414 + .14933, .29939, .37977,
1415 + .31686, .17656, 4.80678, .35885, .20941,
1416 + .15453, .30300, .38293,
1417 + .31913, .17751, 4.79491, .36165, .21356,
1418 + .15947, .30636, .38586,
1419 + .32116, .17835, 4.77905, .36405, .21717,
1420 + .16379, .30927, .38838 /
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 + .32321, .17918, 4.76254, .36640, .22077,
1423 + .16811, .31215, .39085,
1424 + .32515, .17995, 4.74303, .36852, .22412,
1425 + .17214, .31477, .39308,
1426 + .32698, .18068, 4.72298, .37043, .22719,
1427 + .17587, .31717, .39509,
1428 + .32868, .18134, 4.70301, .37217, .23003,
1429 + .17932, .31936, .39692,
1430 + .33032, .18197, 4.67981, .37372, .23268,
1431 + .18255, .32138, .39856 /
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 + .25271, .14829, 1.64588, .15682, .00000,
1434 + .00000, .08666, .17574,
1435 + .25754, .15107, 1.85876, .16136, .00000,
1436 + .00000, .09201, .18093,
1437 + .26463, .15505, 2.15792, .16842, -.00689,
1438 + .00000, .10027, .18884,
1439 + .26977, .15783, 2.34534, .17373, -.00385,
1440 + .00000, .10648, .19475,
1441 + .27499, .16063, 2.50976, .17946, .00479,
1442 + .00000, .11311, .20106,
1443 + .27942, .16295, 2.64029, .18440, .01171,
1444 + .00000, .11882, .20648,
1445 + .28364, .16513, 2.75718, .18910, .01836,
1446 + .00000, .12428, .21163,
1447 + .28806, .16737, 2.87234, .19403, .02548,
1448 + .00000, .13003, .21702 /
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 + .29183, .16924, 2.96240, .19826, .03129,
1451 + .00000, .13495, .22161,
1452 + .29539, .17101, 3.04238, .20227, .03687,
1453 + .00000, .13961, .22596,
1454 + .29818, .17238, 3.10272, .20541, .04136,
1455 + .00000, .14329, .22936,
1456 + .30395, .17515, 3.22060, .21197, .05052,
1457 + .00000, .15095, .23645,
1458 + .30870, .17738, 3.29643, .21736, .05809,
1459 + -.00071, .15726, .24225,
1460 + .31385, .17974, 3.35702, .22314, .06628,
1461 + .01032, .16407, .24843,
1462 + .31902, .18207, 3.40824, .22878, .07444,
1463 + .02005, .17078, .25450,
1464 + .32353, .18407, 3.44449, .23362, .08150,
1465 + .02851, .17656, .25966 /
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 + .32794, .18597, 3.47239, .23821, .08832,
1468 + .03667, .18210, .26457,
1469 + .33145, .18747, 3.48880, .24178, .09370,
1470 + .04304, .18644, .26837,
1471 + .33554, .18917, 3.50093, .24581, .09987,
1472 + .05036, .19138, .27266,
1473 + .33905, .19060, 3.50638, .24915, .10511,
1474 + .05663, .19552, .27622,
1475 + .34216, .19185, 3.50741, .25203, .10972,
1476 + .06218, .19914, .27928,
1477 + .34590, .19331, 3.50132, .25535, .11516,
1478 + .06868, .20337, .28280,
1479 + .34927, .19461, 3.49093, .25823, .12002,
1480 + .07456, .20708, .28586,
1481 + .35233, .19575, 3.47805, .26075, .12438,
1482 + .07987, .21037, .28851 /
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 + .35522, .19678, 3.45953, .26294, .12838,
1485 + .08472, .21332, .29083,
1486 + .35795, .19774, 3.43916, .26494, .13213,
1487 + .08932, .21606, .29294,
1488 + .36042, .19860, 3.41756, .26667, .13550,
1489 + .09348, .21847, .29476,
1490 + .36263, .19934, 3.39411, .26810, .13843,
1491 + .09711, .22052, .29625,
1492 + .36479, .20005, 3.36989, .26944, .14130,
1493 + .10070, .22249, .29766,
1494 + .36680, .20066, 3.34287, .27053, .14386,
1495 + .10392, .22422, .29881,
1496 + .36867, .20123, 3.31717, .27154, .14626,
1497 + .10696, .22580, .29986,
1498 + .37031, .20171, 3.29032, .27229, .14831,
1499 + .10958, .22708, .30064 /
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 + .37194, .20218, 3.26327, .27301, .15033,
1502 + .11219, .22833, .30138,
1503 + .37345, .20259, 3.23499, .27359, .15218,
1504 + .11459, .22942, .30196,
1505 + .37486, .20295, 3.20747, .27405, .15385,
1506 + .11678, .23039, .30244,
1507 + .37615, .20327, 3.18108, .27445, .15538,
1508 + .11880, .23124, .30284,
1509 + .37737, .20355, 3.15285, .27471, .15676,
1510 + .12066, .23197, .30310 /
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 + .29001, .17047, 1.68866, .14231, .00000,
1513 + .00000, .07801, .16556,
1514 + .29567, .17353, 1.84498, .14601, .00000,
1515 + .00000, .08266, .16997,
1516 + .30384, .17779, 2.06756, .15159, -.00902,
1517 + .00000, .08962, .17653,
1518 + .30962, .18071, 2.19749, .15571, -.00627,
1519 + .00000, .09474, .18129,
1520 + .31543, .18356, 2.30666, .16008, .00105,
1521 + .00000, .10016, .18626,
1522 + .32031, .18591, 2.39129, .16377, .00685,
1523 + .00000, .10474, .19044,
1524 + .32490, .18807, 2.46535, .16723, .01238,
1525 + .00000, .10905, .19435,
1526 + .32965, .19027, 2.53649, .17083, .01823,
1527 + .00000, .11354, .19838 /
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 + .33363, .19208, 2.59035, .17386, .02297,
1530 + .00000, .11733, .20175,
1531 + .33737, .19375, 2.63677, .17671, .02749,
1532 + .00000, .12088, .20489,
1533 + .34029, .19506, 2.67104, .17891, .03108,
1534 + .00000, .12367, .20732,
1535 + .34625, .19761, 2.73601, .18344, .03838,
1536 + .00000, .12939, .21232,
1537 + .35104, .19959, 2.77500, .18707, .04432,
1538 + -.00230, .13404, .21628,
1539 + .35617, .20166, 2.79632, .19089, .05070,
1540 + .00641, .13895, .22041,
1541 + .36122, .20363, 2.81001, .19455, .05697,
1542 + .01402, .14372, .22436,
1543 + .36558, .20528, 2.81523, .19757, .06233,
1544 + .02057, .14775, .22761 /
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 + .36976, .20680, 2.81448, .20038, .06748,
1547 + .02684, .15154, .23060,
1548 + .37306, .20798, 2.80919, .20249, .07147,
1549 + .03168, .15446, .23285,
1550 + .37682, .20925, 2.79762, .20480, .07602,
1551 + .03720, .15774, .23530,
1552 + .37998, .21030, 2.78396, .20667, .07984,
1553 + .04190, .16042, .23726,
1554 + .38276, .21118, 2.76891, .20822, .08317,
1555 + .04602, .16272, .23890,
1556 + .38603, .21215, 2.74510, .20992, .08706,
1557 + .05081, .16534, .24067,
1558 + .38894, .21297, 2.71990, .21131, .09049,
1559 + .05508, .16760, .24209,
1560 + .39152, .21366, 2.69453, .21247, .09354,
1561 + .05893, .16952, .24328 /
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 + .39388, .21425, 2.66565, .21340, .09630,
1564 + .06241, .17122, .24419,
1565 + .39606, .21475, 2.63627, .21417, .09885,
1566 + .06567, .17272, .24495,
1567 + .39801, .21517, 2.60722, .21477, .10111,
1568 + .06859, .17401, .24552,
1569 + .39971, .21548, 2.57808, .21518, .10307,
1570 + .07113, .17505, .24589,
1571 + .40135, .21576, 2.54873, .21553, .10495,
1572 + .07361, .17603, .24621,
1573 + .40278, .21596, 2.51794, .21572, .10661,
1574 + .07582, .17681, .24633,
1575 + .40412, .21614, 2.48901, .21587, .10815,
1576 + .07789, .17753, .24640,
1577 + .40524, .21623, 2.46014, .21586, .10943,
1578 + .07965, .17805, .24633 /
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 + .40635, .21630, 2.43133, .21583, .11070,
1581 + .08140, .17853, .24621,
1582 + .40734, .21632, 2.40210, .21569, .11182,
1583 + .08299, .17890, .24600,
1584 + .40821, .21631, 2.37411, .21550, .11282,
1585 + .08442, .17919, .24574,
1586 + .40901, .21629, 2.34759, .21529, .11373,
1587 + .08573, .17943, .24544,
1588 + .40970, .21621, 2.31991, .21498, .11454,
1589 + .08693, .17956, .24503 /
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 + .35364, .20585, 1.60397, .12100, .00000,
1592 + .00000, .06708, .15259,
1593 + .36044, .20905, 1.69004, .12329, .00000,
1594 + .00000, .07051, .15554,
1595 + .36995, .21328, 1.81802, .12661, -.01004,
1596 + .00000, .07549, .15969,
1597 + .37637, .21602, 1.88197, .12899, -.00774,
1598 + .00000, .07904, .16252,
1599 + .38269, .21860, 1.93001, .13144, -.00225,
1600 + .00000, .08267, .16543,
1601 + .38785, .22064, 1.96501, .13348, .00206,
1602 + .00000, .08568, .16775,
1603 + .39259, .22246, 1.99374, .13533, .00611,
1604 + .00000, .08848, .16985,
1605 + .39740, .22424, 2.01933, .13721, .01034,
1606 + .00000, .09131, .17193 /
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 + .40136, .22564, 2.03648, .13874, .01372,
1609 + .00000, .09366, .17361,
1610 + .40499, .22688, 2.04945, .14013, .01691,
1611 + .00000, .09583, .17512,
1612 + .40778, .22780, 2.05815, .14119, .01942,
1613 + .00000, .09750, .17627,
1614 + .41328, .22956, 2.07222, .14332, .02447,
1615 + .00000, .10087, .17848,
1616 + .41751, .23076, 2.07643, .14493, .02850,
1617 + -.00335, .10351, .18012,
1618 + .42188, .23191, 2.06319, .14652, .03277,
1619 + .00258, .10624, .18171,
1620 + .42601, .23290, 2.04495, .14794, .03689,
1621 + .00771, .10877, .18305,
1622 + .42943, .23361, 2.02469, .14903, .04037,
1623 + .01207, .11084, .18404 /
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 + .43257, .23416, 2.00132, .14992, .04364,
1626 + .01618, .11272, .18480,
1627 + .43492, .23450, 1.97961, .15053, .04614,
1628 + .01932, .11411, .18526,
1629 + .43749, .23476, 1.95081, .15108, .04894,
1630 + .02285, .11557, .18563,
1631 + .43952, .23489, 1.92390, .15144, .05127,
1632 + .02582, .11672, .18582,
1633 + .44122, .23493, 1.89827, .15167, .05326,
1634 + .02839, .11765, .18586,
1635 + .44308, .23482, 1.86364, .15178, .05554,
1636 + .03134, .11864, .18571,
1637 + .44459, .23461, 1.83017, .15177, .05751,
1638 + .03394, .11941, .18542,
1639 + .44582, .23435, 1.79844, .15166, .05923,
1640 + .03624, .12002, .18505 /
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 + .44679, .23398, 1.76527, .15140, .06075,
1643 + .03829, .12045, .18451,
1644 + .44760, .23352, 1.73275, .15106, .06212,
1645 + .04019, .12079, .18390,
1646 + .44825, .23303, 1.70179, .15066, .06333,
1647 + .04187, .12101, .18324,
1648 + .44866, .23250, 1.67206, .15019, .06433,
1649 + .04330, .12110, .18251,
1650 + .44901, .23194, 1.64261, .14970, .06528,
1651 + .04468, .12117, .18174,
1652 + .44916, .23130, 1.61301, .14911, .06608,
1653 + .04589, .12111, .18087,
1654 + .44927, .23069, 1.58546, .14853, .06682,
1655 + .04701, .12103, .18005,
1656 + .44920, .23004, 1.55888, .14791, .06741,
1657 + .04794, .12086, .17917 /
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 + .44910, .22937, 1.53260, .14726, .06798,
1660 + .04886, .12067, .17827,
1661 + .44888, .22867, 1.50650, .14657, .06846,
1662 + .04967, .12043, .17732,
1663 + .44862, .22796, 1.48186, .14588, .06887,
1664 + .05039, .12015, .17637,
1665 + .44832, .22729, 1.45875, .14521, .06924,
1666 + .05105, .11987, .17547,
1667 + .44791, .22654, 1.43520, .14448, .06953,
1668 + .05162, .11952, .17450 /
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 + .40713, .23289, 1.43519, .10469, .00000,
1671 + .00000, .05998, .14283,
1672 + .41455, .23579, 1.48542, .10585, .00000,
1673 + .00000, .06236, .14433,
1674 + .42446, .23946, 1.56401, .10750, -.00927,
1675 + .00000, .06573, .14636,
1676 + .43093, .24165, 1.59669, .10868, -.00742,
1677 + .00000, .06809, .14766,
1678 + .43708, .24362, 1.61680, .10991, -.00316,
1679 + .00000, .07052, .14894,
1680 + .44198, .24505, 1.62959, .11088, .00016,
1681 + .00000, .07248, .14992,
1682 + .44637, .24624, 1.63844, .11174, .00325,
1683 + .00000, .07426, .15073,
1684 + .45071, .24734, 1.64440, .11261, .00645,
1685 + .00000, .07606, .15149 /
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 + .45415, .24813, 1.64602, .11326, .00900,
1688 + .00000, .07752, .15204,
1689 + .45722, .24877, 1.64512, .11386, .01138,
1690 + .00000, .07886, .15247,
1691 + .45952, .24918, 1.64336, .11430, .01325,
1692 + .00000, .07988, .15278,
1693 + .46390, .24985, 1.63688, .11512, .01697,
1694 + .00000, .08186, .15330,
1695 + .46701, .25010, 1.62749, .11569, .01991,
1696 + -.00345, .08339, .15353,
1697 + .47004, .25014, 1.60239, .11615, .02299,
1698 + .00089, .08491, .15359,
1699 + .47268, .24996, 1.57375, .11646, .02593,
1700 + .00462, .08626, .15346,
1701 + .47465, .24962, 1.54572, .11660, .02837,
1702 + .00774, .08729, .15316 /
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 + .47630, .24912, 1.51589, .11663, .03065,
1705 + .01067, .08817, .15272,
1706 + .47737, .24856, 1.48994, .11653, .03237,
1707 + .01289, .08878, .15222,
1708 + .47834, .24776, 1.45728, .11630, .03427,
1709 + .01535, .08936, .15149,
1710 + .47894, .24695, 1.42789, .11600, .03582,
1711 + .01741, .08976, .15075,
1712 + .47930, .24612, 1.40070, .11567, .03714,
1713 + .01917, .09004, .15000,
1714 + .47941, .24494, 1.36523, .11512, .03862,
1715 + .02117, .09025, .14890,
1716 + .47929, .24373, 1.33181, .11453, .03987,
1717 + .02291, .09034, .14779,
1718 + .47900, .24253, 1.30075, .11391, .04096,
1719 + .02444, .09035, .14670 /
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 + .47841, .24121, 1.26913, .11320, .04187,
1722 + .02577, .09022, .14549,
1723 + .47769, .23988, 1.23862, .11244, .04270,
1724 + .02700, .09005, .14426,
1725 + .47686, .23858, 1.20999, .11169, .04341,
1726 + .02807, .08982, .14306,
1727 + .47591, .23728, 1.18296, .11093, .04398,
1728 + .02897, .08953, .14185,
1729 + .47488, .23596, 1.15644, .11015, .04450,
1730 + .02982, .08921, .14063,
1731 + .47367, .23459, 1.13019, .10933, .04492,
1732 + .03056, .08883, .13939,
1733 + .47249, .23330, 1.10595, .10853, .04531,
1734 + .03124, .08844, .13819,
1735 + .47122, .23200, 1.08290, .10773, .04560,
1736 + .03179, .08802, .13700 /
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 + .46992, .23068, 1.06025, .10693, .04586,
1739 + .03232, .08759, .13581,
1740 + .46852, .22935, 1.03801, .10609, .04607,
1741 + .03278, .08711, .13461,
1742 + .46712, .22807, 1.01715, .10528, .04624,
1743 + .03318, .08665, .13345,
1744 + .46576, .22684, .99774, .10451, .04638,
1745 + .03355, .08618, .13234,
1746 + .46428, .22556, .97814, .10369, .04647,
1747 + .03386, .08568, .13118 /
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 + .45364, .25409, 1.26120, .09089, .00000,
1750 + .00000, .05419, .13351,
1751 + .46116, .25641, 1.29355, .09116, .00000,
1752 + .00000, .05568, .13377,
1753 + .47082, .25914, 1.34629, .09166, -.00826,
1754 + .00000, .05781, .13396,
1755 + .47682, .26053, 1.36380, .09203, -.00678,
1756 + .00000, .05930, .13404,
1757 + .48232, .26165, 1.37076, .09246, -.00340,
1758 + .00000, .06083, .13411,
1759 + .48651, .26232, 1.37302, .09279, -.00077,
1760 + .00000, .06208, .13407,
1761 + .49013, .26277, 1.37252, .09306, .00167,
1762 + .00000, .06320, .13395,
1763 + .49356, .26305, 1.36930, .09331, .00419,
1764 + .00000, .06432, .13376 /
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 + .49614, .26310, 1.36370, .09349, .00618,
1767 + .00000, .06520, .13352,
1768 + .49834, .26302, 1.35640, .09361, .00804,
1769 + .00000, .06598, .13324,
1770 + .49991, .26289, 1.34987, .09369, .00950,
1771 + .00000, .06657, .13298,
1772 + .50268, .26234, 1.33404, .09380, .01237,
1773 + .00000, .06774, .13234,
1774 + .50431, .26154, 1.31881, .09378, .01462,
1775 + -.00336, .06858, .13167,
1776 + .50560, .26045, 1.28940, .09367, .01695,
1777 + -.00002, .06934, .13082,
1778 + .50640, .25908, 1.25728, .09342, .01916,
1779 + .00282, .06998, .12976,
1780 + .50669, .25766, 1.22694, .09310, .02097,
1781 + .00518, .07043, .12870 /
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 + .50658, .25609, 1.19557, .09267, .02264,
1784 + .00738, .07075, .12753,
1785 + .50619, .25468, 1.16897, .09225, .02389,
1786 + .00902, .07091, .12649,
1787 + .50534, .25285, 1.13617, .09166, .02525,
1788 + .01085, .07099, .12516,
1789 + .50436, .25113, 1.10717, .09107, .02634,
1790 + .01235, .07098, .12392,
1791 + .50327, .24951, 1.08069, .09049, .02727,
1792 + .01363, .07092, .12273,
1793 + .50155, .24731, 1.04678, .08966, .02827,
1794 + .01505, .07073, .12117,
1795 + .49968, .24518, 1.01531, .08883, .02912,
1796 + .01630, .07046, .11964,
1797 + .49777, .24316, .98638, .08803, .02983,
1798 + .01736, .07017, .11818 /
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 + .49560, .24102, .95738, .08715, .03042,
1801 + .01829, .06978, .11667,
1802 + .49334, .23891, .92964, .08626, .03094,
1803 + .01914, .06936, .11518,
1804 + .49105, .23689, .90390, .08540, .03137,
1805 + .01986, .06892, .11374,
1806 + .48874, .23493, .87985, .08455, .03170,
1807 + .02045, .06845, .11234,
1808 + .48638, .23295, .85638, .08370, .03200,
1809 + .02101, .06798, .11096,
1810 + .48389, .23095, .83342, .08280, .03222,
1811 + .02149, .06746, .10956,
1812 + .48151, .22905, .81232, .08196, .03242,
1813 + .02192, .06696, .10825,
1814 + .47908, .22723, .79246, .08115, .03255,
1815 + .02226, .06643, .10698 /
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 + .47662, .22541, .77302, .08033, .03268,
1818 + .02260, .06591, .10570,
1819 + .47410, .22358, .75410, .07950, .03275,
1820 + .02287, .06537, .10443,
1821 + .47166, .22182, .73647, .07870, .03280,
1822 + .02311, .06484, .10321,
1823 + .46932, .22015, .72013, .07794, .03283,
1824 + .02332, .06433, .10207,
1825 + .46686, .21843, .70374, .07714, .03283,
1826 + .02349, .06379, .10091 /
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 + .50349, .27345, 1.08358, .07559, .00000,
1829 + .00000, .04719, .12054,
1830 + .51028, .27481, 1.10480, .07529, .00000,
1831 + .00000, .04791, .11954,
1832 + .51850, .27589, 1.14032, .07494, -.00736,
1833 + .00000, .04899, .11816,
1834 + .52321, .27609, 1.14785, .07478, -.00619,
1835 + .00000, .04978, .11717,
1836 + .52722, .27593, 1.14612, .07469, -.00353,
1837 + .00000, .05062, .11620,
1838 + .52998, .27552, 1.14132, .07462, -.00146,
1839 + .00000, .05129, .11532,
1840 + .53216, .27492, 1.13444, .07454, .00044,
1841 + .00000, .05188, .11444,
1842 + .53402, .27406, 1.12496, .07440, .00240,
1843 + .00000, .05248, .11350 /
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 + .53518, .27316, 1.11441, .07425, .00395,
1846 + .00000, .05292, .11266,
1847 + .53595, .27215, 1.10273, .07409, .00538,
1848 + .00000, .05332, .11182,
1849 + .53640, .27130, 1.09297, .07398, .00649,
1850 + .00000, .05359, .11113,
1851 + .53671, .26923, 1.07082, .07364, .00868,
1852 + .00000, .05411, .10968,
1853 + .53617, .26717, 1.05164, .07330, .01037,
1854 + -.00318, .05444, .10837,
1855 + .53502, .26468, 1.01987, .07283, .01210,
1856 + -.00066, .05471, .10684,
1857 + .53328, .26190, .98609, .07227, .01373,
1858 + .00147, .05486, .10519,
1859 + .53124, .25927, .95502, .07168, .01503,
1860 + .00322, .05488, .10362 /
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 + .52881, .25649, .92357, .07102, .01622,
1863 + .00483, .05480, .10201,
1864 + .52654, .25409, .89733, .07041, .01710,
1865 + .00603, .05467, .10066,
1866 + .52342, .25111, .86561, .06963, .01803,
1867 + .00734, .05443, .09897,
1868 + .52043, .24842, .83797, .06891, .01878,
1869 + .00841, .05415, .09745,
1870 + .51756, .24590, .81305, .06821, .01939,
1871 + .00931, .05386, .09605,
1872 + .51357, .24266, .78167, .06727, .02005,
1873 + .01031, .05343, .09423,
1874 + .50963, .23957, .75292, .06637, .02058,
1875 + .01115, .05296, .09251,
1876 + .50581, .23668, .72679, .06550, .02103,
1877 + .01188, .05248, .09090 /
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 + .50176, .23372, .70096, .06459, .02137,
1880 + .01248, .05195, .08928,
1881 + .49772, .23082, .67654, .06368, .02166,
1882 + .01303, .05140, .08770,
1883 + .49381, .22805, .65410, .06280, .02188,
1884 + .01349, .05085, .08623,
1885 + .48996, .22543, .63335, .06196, .02205,
1886 + .01387, .05031, .08483,
1887 + .48607, .22284, .61327, .06113, .02219,
1888 + .01421, .04976, .08343,
1889 + .48211, .22024, .59383, .06029, .02228,
1890 + .01450, .04920, .08203,
1891 + .47837, .21781, .57607, .05949, .02236,
1892 + .01476, .04866, .08072,
1893 + .47470, .21546, .55952, .05872, .02239,
1894 + .01496, .04813, .07948 /
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 + .47102, .21314, .54341, .05795, .02240,
1897 + .01514, .04759, .07826,
1898 + .46732, .21083, .52787, .05718, .02239,
1899 + .01529, .04704, .07704,
1900 + .46375, .20864, .51347, .05644, .02237,
1901 + .01541, .04652, .07590,
1902 + .46037, .20658, .50020, .05576, .02234,
1903 + .01551, .04602, .07483,
1904 + .45686, .20448, .48700, .05506, .02228,
1905 + .01559, .04549, .07374 /
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 + .54550, .28659, .95885, .06206, .00000,
1908 + .00000, .04006, .10624,
1909 + .55087, .28664, .97260, .06153, .00000,
1910 + .00000, .04039, .10452,
1911 + .55669, .28586, .99668, .06090, -.00699,
1912 + .00000, .04092, .10212,
1913 + .55951, .28475, .99695, .06055, -.00600,
1914 + .00000, .04135, .10051,
1915 + .56148, .28321, .98874, .06025, -.00377,
1916 + .00000, .04179, .09895,
1917 + .56244, .28162, .97857, .05999, -.00206,
1918 + .00000, .04219, .09764,
1919 + .56285, .27991, .96690, .05972, -.00048,
1920 + .00000, .04250, .09640,
1921 + .56278, .27792, .95273, .05945, .00111,
1922 + .00000, .04278, .09508 /
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 + .56222, .27606, .93853, .05921, .00238,
1925 + .00000, .04301, .09389,
1926 + .56137, .27415, .92370, .05895, .00353,
1927 + .00000, .04317, .09276,
1928 + .56054, .27256, .91160, .05872, .00442,
1929 + .00000, .04329, .09187,
1930 + .55805, .26906, .88494, .05824, .00617,
1931 + .00000, .04345, .09000,
1932 + .55522, .26579, .86319, .05774, .00749,
1933 + -.00302, .04350, .08842,
1934 + .55150, .26203, .82994, .05715, .00883,
1935 + -.00104, .04350, .08662,
1936 + .54713, .25801, .79541, .05645, .01007,
1937 + .00062, .04337, .08470,
1938 + .54277, .25426, .76428, .05576, .01105,
1939 + .00197, .04318, .08297 /
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 + .53804, .25043, .73327, .05504, .01193,
1942 + .00320, .04290, .08121,
1943 + .53388, .24722, .70784, .05441, .01257,
1944 + .00410, .04261, .07974,
1945 + .52854, .24329, .67754, .05359, .01324,
1946 + .00508, .04223, .07794,
1947 + .52366, .23978, .65151, .05283, .01376,
1948 + .00587, .04185, .07637,
1949 + .51909, .23656, .62832, .05211, .01417,
1950 + .00652, .04145, .07495,
1951 + .51298, .23248, .59949, .05120, .01461,
1952 + .00724, .04090, .07311,
1953 + .50711, .22863, .57340, .05032, .01496,
1954 + .00784, .04036, .07142,
1955 + .50157, .22505, .54997, .04947, .01522,
1956 + .00834, .03981, .06986 /
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 + .49583, .22145, .52711, .04861, .01542,
1959 + .00876, .03924, .06830,
1960 + .49018, .21796, .50569, .04777, .01558,
1961 + .00913, .03867, .06678,
1962 + .48481, .21468, .48616, .04696, .01570,
1963 + .00944, .03811, .06538,
1964 + .47964, .21158, .46832, .04618, .01577,
1965 + .00967, .03757, .06405,
1966 + .47448, .20853, .45114, .04540, .01583,
1967 + .00990, .03703, .06277,
1968 + .46929, .20549, .43471, .04464, .01584,
1969 + .01007, .03648, .06149,
1970 + .46442, .20266, .41978, .04392, .01585,
1971 + .01023, .03596, .06031,
1972 + .45970, .19999, .40599, .04324, .01582,
1973 + .01034, .03546, .05919 /
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 + .45498, .19734, .39262, .04257, .01580,
1976 + .01044, .03494, .05807,
1977 + .45028, .19473, .37983, .04190, .01575,
1978 + .01052, .03444, .05699,
1979 + .44582, .19226, .36805, .04126, .01569,
1980 + .01057, .03396, .05597,
1981 + .44161, .18993, .35725, .04066, .01562,
1982 + .01062, .03350, .05502,
1983 + .43729, .18758, .34659, .04004, .01555,
1984 + .01065, .03303, .05407 /
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 + .57998, .29446, .87718, .05037, .00000,
1987 + .00000, .03308, .09113,
1988 + .58334, .29312, .88339, .04985, .00000,
1989 + .00000, .03318, .08905,
1990 + .58605, .29035, .89663, .04922, -.00696,
1991 + .00000, .03349, .08626,
1992 + .58652, .28786, .88948, .04889, -.00603,
1993 + .00000, .03374, .08440,
1994 + .58606, .28494, .87465, .04858, -.00408,
1995 + .00000, .03404, .08260,
1996 + .58486, .28226, .85925, .04834, -.00259,
1997 + .00000, .03425, .08105,
1998 + .58322, .27949, .84302, .04808, -.00123,
1999 + .00000, .03443, .07961,
2000 + .58102, .27642, .82453, .04776, .00013,
2001 + .00000, .03456, .07815 /
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 + .57870, .27361, .80700, .04745, .00120,
2004 + .00000, .03463, .07693,
2005 + .57610, .27085, .78934, .04716, .00217,
2006 + .00000, .03469, .07572,
2007 + .57385, .26865, .77526, .04693, .00291,
2008 + .00000, .03471, .07475,
2009 + .56852, .26384, .74491, .04639, .00434,
2010 + .00000, .03472, .07275,
2011 + .56333, .25955, .72104, .04588, .00542,
2012 + -.00284, .03462, .07108,
2013 + .55705, .25470, .68684, .04526, .00650,
2014 + -.00125, .03445, .06922,
2015 + .55010, .24959, .65203, .04455, .00746,
2016 + .00008, .03419, .06730,
2017 + .54347, .24496, .62120, .04388, .00822,
2018 + .00115, .03388, .06558 /
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 + .53657, .24027, .59104, .04314, .00889,
2021 + .00211, .03352, .06385,
2022 + .53064, .23639, .56673, .04252, .00936,
2023 + .00280, .03318, .06242,
2024 + .52329, .23168, .53812, .04171, .00985,
2025 + .00355, .03273, .06071,
2026 + .51668, .22757, .51385, .04098, .01022,
2027 + .00414, .03229, .05922,
2028 + .51054, .22381, .49247, .04033, .01051,
2029 + .00463, .03186, .05788,
2030 + .50262, .21905, .46625, .03945, .01080,
2031 + .00516, .03130, .05619,
2032 + .49511, .21463, .44283, .03861, .01102,
2033 + .00559, .03074, .05464,
2034 + .48806, .21056, .42200, .03784, .01119,
2035 + .00595, .03021, .05320 /
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 + .48090, .20651, .40190, .03706, .01130,
2038 + .00624, .02965, .05179,
2039 + .47394, .20260, .38325, .03629, .01138,
2040 + .00649, .02911, .05044,
2041 + .46738, .19893, .36643, .03554, .01144,
2042 + .00670, .02860, .04920,
2043 + .46111, .19554, .35119, .03485, .01145,
2044 + .00686, .02809, .04802,
2045 + .45488, .19220, .33660, .03418, .01145,
2046 + .00700, .02759, .04688,
2047 + .44870, .18890, .32278, .03351, .01144,
2048 + .00711, .02710, .04576,
2049 + .44294, .18583, .31029, .03288, .01140,
2050 + .00720, .02662, .04474,
2051 + .43740, .18294, .29885, .03229, .01136,
2052 + .00727, .02618, .04377 /
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 + .43190, .18009, .28783, .03169, .01132,
2055 + .00733, .02572, .04282,
2056 + .42647, .17729, .27734, .03111, .01124,
2057 + .00736, .02528, .04190,
2058 + .42133, .17465, .26774, .03057, .01118,
2059 + .00739, .02486, .04103,
2060 + .41648, .17217, .25897, .03006, .01111,
2061 + .00741, .02447, .04023,
2062 + .41158, .16969, .25040, .02954, .01103,
2063 + .00742, .02405, .03943 /
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 + .60728, .29771, .82308, .04042, .00000,
2066 + .00000, .02639, .07601,
2067 + .60821, .29487, .82042, .04002, .00000,
2068 + .00000, .02653, .07397,
2069 + .60719, .29013, .82191, .03963, -.00705,
2070 + .00000, .02681, .07113,
2071 + .60503, .28630, .80686, .03938, -.00610,
2072 + .00000, .02706, .06926,
2073 + .60181, .28214, .78516, .03914, -.00434,
2074 + .00000, .02729, .06747,
2075 + .59843, .27827, .76455, .03890, -.00300,
2076 + .00000, .02745, .06600,
2077 + .59466, .27452, .74395, .03865, -.00180,
2078 + .00000, .02756, .06459,
2079 + .59019, .27049, .72137, .03838, -.00060,
2080 + .00000, .02766, .06312 /
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 + .58593, .26691, .70093, .03812, .00033,
2083 + .00000, .02767, .06189,
2084 + .58159, .26339, .68089, .03782, .00116,
2085 + .00000, .02768, .06071,
2086 + .57801, .26059, .66515, .03757, .00179,
2087 + .00000, .02768, .05980,
2088 + .56987, .25465, .63200, .03704, .00298,
2089 + .00000, .02756, .05790,
2090 + .56237, .24947, .60654, .03655, .00388,
2091 + -.00264, .02742, .05632,
2092 + .55369, .24368, .57204, .03592, .00475,
2093 + -.00134, .02716, .05459,
2094 + .54436, .23770, .53756, .03521, .00552,
2095 + -.00025, .02685, .05281,
2096 + .53566, .23233, .50760, .03456, .00611,
2097 + .00059, .02651, .05120 /
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 + .52675, .22698, .47876, .03389, .00662,
2100 + .00135, .02613, .04959,
2101 + .51928, .22258, .45583, .03330, .00698,
2102 + .00190, .02578, .04830,
2103 + .51011, .21730, .42928, .03256, .00734,
2104 + .00247, .02532, .04675,
2105 + .50198, .21272, .40701, .03188, .00760,
2106 + .00293, .02489, .04543,
2107 + .49454, .20858, .38755, .03126, .00781,
2108 + .00330, .02448, .04424,
2109 + .48505, .20337, .36404, .03045, .00801,
2110 + .00369, .02395, .04276,
2111 + .47614, .19857, .34330, .02970, .00814,
2112 + .00400, .02343, .04138,
2113 + .46786, .19419, .32504, .02900, .00824,
2114 + .00426, .02294, .04013 /
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 + .45956, .18985, .30761, .02829, .00830,
2117 + .00446, .02243, .03890,
2118 + .45152, .18569, .29156, .02761, .00834,
2119 + .00464, .02194, .03775,
2120 + .44399, .18182, .27724, .02697, .00835,
2121 + .00478, .02148, .03667,
2122 + .43688, .17822, .26435, .02638, .00834,
2123 + .00489, .02103, .03569,
2124 + .42985, .17470, .25212, .02579, .00833,
2125 + .00498, .02059, .03472,
2126 + .42296, .17126, .24063, .02519, .00829,
2127 + .00505, .02015, .03380,
2128 + .41653, .16807, .23028, .02463, .00824,
2129 + .00510, .01974, .03296,
2130 + .41039, .16509, .22092, .02413, .00818,
2131 + .00513, .01935, .03215 /
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 + .40432, .16215, .21193, .02365, .00813,
2134 + .00517, .01896, .03134,
2135 + .39834, .15928, .20342, .02317, .00807,
2136 + .00518, .01859, .03058,
2137 + .39273, .15657, .19566, .02270, .00799,
2138 + .00519, .01822, .02988,
2139 + .38746, .15406, .18863, .02228, .00792,
2140 + .00519, .01789, .02922,
2141 + .38213, .15155, .18180, .02183, .00785,
2142 + .00518, .01756, .02856 /
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 + .62762, .29676, .78180, .03205, .00000,
2145 + .00000, .02033, .06172,
2146 + .62560, .29261, .76948, .03192, .00000,
2147 + .00000, .02063, .05983,
2148 + .62066, .28584, .75869, .03168, -.00707,
2149 + .00000, .02104, .05737,
2150 + .61566, .28078, .73590, .03155, -.00609,
2151 + .00000, .02130, .05567,
2152 + .60975, .27528, .70767, .03134, -.00447,
2153 + .00000, .02160, .05405,
2154 + .60394, .27049, .68237, .03117, -.00325,
2155 + .00000, .02175, .05270,
2156 + .59800, .26589, .65793, .03098, -.00217,
2157 + .00000, .02185, .05143,
2158 + .59134, .26098, .63203, .03074, -.00112,
2159 + .00000, .02192, .05010 /
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 + .58525, .25667, .60932, .03049, -.00030,
2162 + .00000, .02195, .04898,
2163 + .57915, .25253, .58759, .03023, .00041,
2164 + .00000, .02191, .04792,
2165 + .57424, .24928, .57073, .03000, .00095,
2166 + .00000, .02186, .04710,
2167 + .56343, .24238, .53589, .02951, .00197,
2168 + .00000, .02176, .04536,
2169 + .55379, .23652, .50965, .02903, .00271,
2170 + -.00240, .02157, .04395,
2171 + .54285, .23005, .47566, .02846, .00342,
2172 + -.00133, .02131, .04239,
2173 + .53134, .22342, .44234, .02782, .00405,
2174 + -.00045, .02097, .04080,
2175 + .52084, .21750, .41388, .02719, .00452,
2176 + .00023, .02064, .03940 /
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 + .51024, .21163, .38690, .02653, .00491,
2179 + .00084, .02027, .03803,
2180 + .50141, .20688, .36572, .02598, .00518,
2181 + .00126, .01993, .03691,
2182 + .49072, .20123, .34148, .02531, .00545,
2183 + .00171, .01950, .03557,
2184 + .48134, .19634, .32145, .02470, .00563,
2185 + .00205, .01910, .03442,
2186 + .47283, .19193, .30415, .02414, .00578,
2187 + .00233, .01873, .03339,
2188 + .46201, .18649, .28347, .02346, .00591,
2189 + .00263, .01824, .03208,
2190 + .45199, .18149, .26540, .02281, .00600,
2191 + .00286, .01777, .03094,
2192 + .44278, .17691, .24963, .02219, .00606,
2193 + .00305, .01732, .02993 /
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 + .43360, .17240, .23480, .02156, .00609,
2196 + .00320, .01688, .02891,
2197 + .42475, .16814, .22126, .02097, .00609,
2198 + .00332, .01644, .02796,
2199 + .41649, .16422, .20923, .02042, .00609,
2200 + .00341, .01604, .02708,
2201 + .40878, .16055, .19852, .01991, .00607,
2202 + .00348, .01566, .02626,
2203 + .40121, .15696, .18840, .01940, .00603,
2204 + .00354, .01531, .02545,
2205 + .39376, .15351, .17898, .01891, .00599,
2206 + .00358, .01493, .02471,
2207 + .38685, .15031, .17055, .01846, .00594,
2208 + .00361, .01458, .02401,
2209 + .38035, .14733, .16298, .01803, .00589,
2210 + .00363, .01425, .02337 /
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 + .37392, .14438, .15574, .01761, .00583,
2213 + .00364, .01393, .02275,
2214 + .36760, .14152, .14897, .01720, .00577,
2215 + .00364, .01361, .02213,
2216 + .36167, .13885, .14281, .01683, .00571,
2217 + .00364, .01332, .02155,
2218 + .35614, .13636, .13723, .01648, .00564,
2219 + .00364, .01306, .02102,
2220 + .35057, .13386, .13184, .01612, .00559,
2221 + .00363, .01278, .02050 /
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 + .64129, .29199, .74191, .02493, .00000,
2224 + .00000, .01531, .04899,
2225 + .63618, .28653, .72031, .02505, .00000,
2226 + .00000, .01574, .04735,
2227 + .62676, .27821, .69797, .02515, -.00693,
2228 + .00000, .01623, .04517,
2229 + .61892, .27200, .66837, .02511, -.00594,
2230 + .00000, .01652, .04378,
2231 + .61009, .26552, .63477, .02505, -.00445,
2232 + .00000, .01680, .04241,
2233 + .60197, .25992, .60577, .02497, -.00333,
2234 + .00000, .01698, .04120,
2235 + .59390, .25457, .57857, .02484, -.00237,
2236 + .00000, .01706, .04010,
2237 + .58511, .24893, .55040, .02463, -.00143,
2238 + .00000, .01712, .03898 /
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 + .57723, .24409, .52634, .02445, -.00072,
2241 + .00000, .01713, .03800,
2242 + .56953, .23944, .50371, .02419, -.00009,
2243 + .00000, .01711, .03709,
2244 + .56341, .23578, .48643, .02396, .00037,
2245 + .00000, .01705, .03640,
2246 + .55019, .22813, .45127, .02349, .00122,
2247 + .00000, .01690, .03495,
2248 + .53867, .22176, .42518, .02308, .00185,
2249 + -.00213, .01676, .03367,
2250 + .52575, .21478, .39258, .02255, .00243,
2251 + -.00126, .01652, .03234,
2252 + .51235, .20769, .36121, .02196, .00293,
2253 + -.00054, .01619, .03100,
2254 + .50030, .20143, .33484, .02140, .00330,
2255 + .00001, .01586, .02982 /
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 + .48826, .19529, .31018, .02080, .00361,
2258 + .00049, .01550, .02867,
2259 + .47833, .19032, .29110, .02034, .00381,
2260 + .00082, .01521, .02769,
2261 + .46642, .18442, .26957, .01972, .00401,
2262 + .00117, .01483, .02659,
2263 + .45606, .17937, .25192, .01919, .00416,
2264 + .00144, .01448, .02565,
2265 + .44670, .17488, .23684, .01869, .00426,
2266 + .00165, .01415, .02479,
2267 + .43492, .16930, .21904, .01809, .00434,
2268 + .00186, .01372, .02376,
2269 + .42411, .16420, .20363, .01751, .00439,
2270 + .00203, .01332, .02281,
2271 + .41423, .15958, .19028, .01696, .00443,
2272 + .00217, .01295, .02198 /
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 + .40441, .15509, .17788, .01644, .00443,
2275 + .00227, .01257, .02117,
2276 + .39501, .15083, .16663, .01595, .00443,
2277 + .00236, .01221, .02039,
2278 + .38630, .14688, .15674, .01550, .00442,
2279 + .00243, .01188, .01965,
2280 + .37822, .14325, .14801, .01505, .00438,
2281 + .00247, .01157, .01902,
2282 + .37031, .13970, .13981, .01462, .00436,
2283 + .00251, .01125, .01840,
2284 + .36256, .13631, .13224, .01423, .00431,
2285 + .00253, .01094, .01779,
2286 + .35538, .13317, .12551, .01386, .00427,
2287 + .00256, .01067, .01723,
2288 + .34867, .13024, .11949, .01348, .00422,
2289 + .00256, .01040, .01675 /
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 + .34207, .12737, .11375, .01311, .00417,
2292 + .00256, .01012, .01627,
2293 + .33561, .12459, .10841, .01278, .00412,
2294 + .00257, .00987, .01580,
2295 + .32956, .12200, .10358, .01248, .00407,
2296 + .00256, .00965, .01535,
2297 + .32393, .11959, .09924, .01220, .00402,
2298 + .00255, .00942, .01492,
2299 + .31826, .11721, .09507, .01190, .00396,
2300 + .00253, .00921, .01453 /
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 + .64702, .28526, .69720, .02020, .00000,
2303 + .00000, .01056, .03717,
2304 + .63893, .27848, .66737, .02035, .00000,
2305 + .00000, .01114, .03604,
2306 + .62551, .26837, .63493, .02041, -.00661,
2307 + .00000, .01185, .03448,
2308 + .61494, .26115, .60003, .02041, -.00561,
2309 + .00000, .01226, .03338,
2310 + .60340, .25377, .56261, .02040, -.00425,
2311 + .00000, .01261, .03226,
2312 + .59321, .24738, .53134, .02027, -.00325,
2313 + .00000, .01280, .03137,
2314 + .58321, .24140, .50258, .02010, -.00238,
2315 + .00000, .01295, .03052,
2316 + .57246, .23519, .47348, .01990, -.00157,
2317 + .00000, .01304, .02959 /
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 + .56309, .22983, .44903, .01968, -.00095,
2320 + .00000, .01306, .02882,
2321 + .55394, .22480, .42639, .01946, -.00041,
2322 + .00000, .01305, .02807,
2323 + .54668, .22089, .40931, .01930, -.00002,
2324 + .00000, .01302, .02746,
2325 + .53133, .21276, .37506, .01884, .00071,
2326 + .00000, .01291, .02627,
2327 + .51823, .20597, .35004, .01840, .00121,
2328 + -.00185, .01276, .02530,
2329 + .50368, .19861, .31976, .01790, .00169,
2330 + -.00113, .01256, .02421,
2331 + .48875, .19124, .29105, .01737, .00210,
2332 + -.00055, .01228, .02309,
2333 + .47545, .18476, .26731, .01686, .00238,
2334 + -.00012, .01203, .02211 /
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 + .46231, .17846, .24544, .01631, .00262,
2337 + .00026, .01173, .02117,
2338 + .45156, .17337, .22864, .01584, .00278,
2339 + .00052, .01145, .02049,
2340 + .43874, .16742, .20994, .01532, .00293,
2341 + .00079, .01112, .01957,
2342 + .42766, .16233, .19479, .01486, .00303,
2343 + .00099, .01082, .01879,
2344 + .41773, .15778, .18194, .01444, .00310,
2345 + .00115, .01052, .01815,
2346 + .40532, .15222, .16692, .01388, .00316,
2347 + .00131, .01019, .01731,
2348 + .39395, .14720, .15409, .01338, .00319,
2349 + .00144, .00986, .01657,
2350 + .38358, .14266, .14311, .01294, .00321,
2351 + .00154, .00952, .01590 /
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 + .37341, .13824, .13296, .01251, .00321,
2354 + .00161, .00923, .01523,
2355 + .36373, .13404, .12387, .01209, .00319,
2356 + .00167, .00894, .01461,
2357 + .35479, .13021, .11590, .01168, .00318,
2358 + .00172, .00867, .01407,
2359 + .34651, .12668, .10892, .01133, .00314,
2360 + .00174, .00842, .01358,
2361 + .33842, .12326, .10240, .01099, .00312,
2362 + .00177, .00817, .01309,
2363 + .33057, .11996, .09646, .01065, .00308,
2364 + .00179, .00792, .01264,
2365 + .32331, .11694, .09117, .01035, .00304,
2366 + .00179, .00769, .01221,
2367 + .31655, .11413, .08647, .01006, .00301,
2368 + .00180, .00749, .01183 /
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 + .30992, .11140, .08203, .00977, .00296,
2371 + .00180, .00728, .01145,
2372 + .30346, .10875, .07792, .00949, .00291,
2373 + .00179, .00709, .01108,
2374 + .29743, .10629, .07423, .00924, .00287,
2375 + .00179, .00690, .01074,
2376 + .29182, .10401, .07092, .00900, .00283,
2377 + .00177, .00672, .01043,
2378 + .28619, .10175, .06773, .00878, .00279,
2379 + .00177, .00656, .01014 /
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 + .64736, .27469, .64317, .01552, .00000,
2382 + .00000, .00732, .02786,
2383 + .63606, .26694, .60715, .01580, .00000,
2384 + .00000, .00800, .02702,
2385 + .61840, .25560, .56724, .01605, -.00611,
2386 + .00000, .00875, .02585,
2387 + .60514, .24762, .52913, .01611, -.00515,
2388 + .00000, .00915, .02507,
2389 + .59105, .23950, .48990, .01612, -.00394,
2390 + .00000, .00946, .02428,
2391 + .57878, .23262, .45782, .01603, -.00304,
2392 + .00000, .00969, .02357,
2393 + .56698, .22619, .42889, .01592, -.00230,
2394 + .00000, .00983, .02288,
2395 + .55449, .21957, .40007, .01577, -.00159,
2396 + .00000, .00991, .02215 /
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 + .54361, .21398, .37631, .01558, -.00105,
2399 + .00000, .00995, .02153,
2400 + .53320, .20865, .35464, .01537, -.00060,
2401 + .00000, .00994, .02093,
2402 + .52506, .20452, .33838, .01520, -.00027,
2403 + .00000, .00993, .02049,
2404 + .50784, .19610, .30634, .01482, .00033,
2405 + .00000, .00981, .01949,
2406 + .49338, .18914, .28317, .01443, .00075,
2407 + -.00156, .00966, .01873,
2408 + .47755, .18164, .25585, .01399, .00114,
2409 + -.00099, .00948, .01788,
2410 + .46144, .17416, .23036, .01351, .00146,
2411 + -.00053, .00927, .01698,
2412 + .44719, .16766, .20959, .01305, .00168,
2413 + -.00018, .00902, .01621 /
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 + .43322, .16131, .19065, .01259, .00187,
2416 + .00011, .00875, .01550,
2417 + .42188, .15627, .17633, .01221, .00199,
2418 + .00031, .00854, .01488,
2419 + .40841, .15038, .16052, .01177, .00210,
2420 + .00052, .00826, .01417,
2421 + .39684, .14538, .14784, .01137, .00217,
2422 + .00067, .00802, .01358,
2423 + .38655, .14094, .13720, .01099, .00223,
2424 + .00079, .00779, .01305,
2425 + .37380, .13551, .12491, .01054, .00226,
2426 + .00091, .00750, .01241,
2427 + .36217, .13059, .11451, .01014, .00229,
2428 + .00100, .00722, .01182,
2429 + .35163, .12619, .10565, .00978, .00229,
2430 + .00107, .00698, .01130 /
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 + .34130, .12192, .09759, .00939, .00228,
2433 + .00112, .00673, .01082,
2434 + .33153, .11790, .09040, .00903, .00227,
2435 + .00116, .00650, .01037,
2436 + .32257, .11422, .08413, .00870, .00226,
2437 + .00120, .00626, .00997,
2438 + .31429, .11088, .07870, .00842, .00223,
2439 + .00122, .00606, .00958,
2440 + .30624, .10764, .07365, .00813, .00220,
2441 + .00123, .00587, .00920,
2442 + .29842, .10453, .06906, .00786, .00218,
2443 + .00125, .00568, .00886,
2444 + .29122, .10168, .06501, .00762, .00214,
2445 + .00125, .00550, .00856,
2446 + .28454, .09904, .06146, .00739, .00210,
2447 + .00124, .00534, .00827 /
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 + .27801, .09645, .05809, .00716, .00208,
2450 + .00125, .00518, .00798,
2451 + .27169, .09398, .05501, .00694, .00204,
2452 + .00124, .00503, .00772,
2453 + .26580, .09167, .05225, .00673, .00200,
2454 + .00123, .00489, .00747,
2455 + .26034, .08955, .04977, .00654, .00198,
2456 + .00123, .00475, .00724,
2457 + .25488, .08745, .04743, .00636, .00194,
2458 + .00122, .00461, .00702 /
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 + .64107, .26238, .58013, .01212, .00000,
2461 + .00000, .00465, .02006,
2462 + .62686, .25367, .54022, .01244, .00000,
2463 + .00000, .00537, .01959,
2464 + .60525, .24129, .49568, .01274, -.00549,
2465 + .00000, .00617, .01885,
2466 + .58945, .23275, .45647, .01286, -.00459,
2467 + .00000, .00661, .01824,
2468 + .57318, .22406, .41731, .01283, -.00352,
2469 + .00000, .00694, .01773,
2470 + .55904, .21688, .38601, .01277, -.00276,
2471 + .00000, .00714, .01718,
2472 + .54568, .21015, .35815, .01267, -.00210,
2473 + .00000, .00729, .01666,
2474 + .53174, .20321, .33078, .01249, -.00150,
2475 + .00000, .00741, .01614 /
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 + .51970, .19736, .30857, .01233, -.00105,
2478 + .00000, .00742, .01570,
2479 + .50827, .19191, .28857, .01213, -.00067,
2480 + .00000, .00742, .01527,
2481 + .49936, .18773, .27373, .01194, -.00040,
2482 + .00000, .00741, .01491,
2483 + .48079, .17907, .24479, .01155, .00009,
2484 + .00000, .00733, .01422,
2485 + .46530, .17206, .22398, .01123, .00043,
2486 + -.00129, .00721, .01360,
2487 + .44846, .16457, .20015, .01082, .00074,
2488 + -.00083, .00706, .01294,
2489 + .43149, .15716, .17823, .01042, .00099,
2490 + -.00048, .00686, .01227,
2491 + .41661, .15074, .16058, .01005, .00117,
2492 + -.00020, .00667, .01166 /
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 + .40209, .14455, .14472, .00964, .00131,
2495 + .00002, .00647, .01107,
2496 + .39040, .13959, .13285, .00932, .00140,
2497 + .00017, .00627, .01064,
2498 + .37665, .13386, .11988, .00894, .00148,
2499 + .00033, .00605, .01007,
2500 + .36488, .12900, .10960, .00860, .00154,
2501 + .00045, .00585, .00962,
2502 + .35443, .12472, .10102, .00829, .00157,
2503 + .00054, .00567, .00924,
2504 + .34155, .11950, .09122, .00791, .00159,
2505 + .00062, .00542, .00878,
2506 + .32989, .11482, .08302, .00756, .00161,
2507 + .00069, .00522, .00835,
2508 + .31938, .11062, .07609, .00725, .00161,
2509 + .00074, .00503, .00795 /
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 + .30913, .10658, .06986, .00697, .00161,
2512 + .00078, .00483, .00756,
2513 + .29945, .10280, .06430, .00671, .00160,
2514 + .00081, .00465, .00722,
2515 + .29057, .09936, .05953, .00644, .00158,
2516 + .00083, .00448, .00692,
2517 + .28245, .09623, .05543, .00619, .00156,
2518 + .00084, .00432, .00664,
2519 + .27455, .09319, .05164, .00596, .00154,
2520 + .00085, .00417, .00635,
2521 + .26694, .09028, .04821, .00575, .00152,
2522 + .00086, .00403, .00610,
2523 + .25996, .08765, .04520, .00556, .00149,
2524 + .00086, .00389, .00587,
2525 + .25348, .08520, .04258, .00539, .00146,
2526 + .00086, .00377, .00565 /
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 + .24717, .08283, .04012, .00521, .00144,
2529 + .00086, .00366, .00543,
2530 + .24106, .08054, .03785, .00505, .00141,
2531 + .00086, .00354, .00525,
2532 + .23537, .07842, .03585, .00490, .00139,
2533 + .00085, .00342, .00507,
2534 + .23012, .07649, .03405, .00475, .00136,
2535 + .00084, .00332, .00491,
2536 + .22492, .07456, .03237, .00459, .00133,
2537 + .00083, .00322, .00476 /
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 + .62890, .24813, .50932, .00938, .00000,
2540 + .00000, .00276, .01400,
2541 + .61189, .23878, .46806, .00973, .00000,
2542 + .00000, .00347, .01379,
2543 + .58686, .22561, .42184, .00998, -.00479,
2544 + .00000, .00429, .01334,
2545 + .56895, .21656, .38358, .01002, -.00398,
2546 + .00000, .00469, .01305,
2547 + .55061, .20755, .34632, .01004, -.00306,
2548 + .00000, .00499, .01269,
2549 + .53496, .20010, .31693, .00999, -.00241,
2550 + .00000, .00520, .01236,
2551 + .52027, .19323, .29124, .00988, -.00186,
2552 + .00000, .00532, .01202,
2553 + .50509, .18619, .26632, .00972, -.00135,
2554 + .00000, .00540, .01164 /
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 + .49220, .18029, .24639, .00952, -.00099,
2557 + .00000, .00547, .01128,
2558 + .47991, .17484, .22855, .00939, -.00067,
2559 + .00000, .00547, .01094,
2560 + .47037, .17066, .21544, .00929, -.00045,
2561 + .00000, .00543, .01067,
2562 + .45079, .16205, .19026, .00893, -.00006,
2563 + .00000, .00539, .01013,
2564 + .43457, .15511, .17234, .00865, .00021,
2565 + -.00104, .00529, .00968,
2566 + .41716, .14772, .15223, .00829, .00046,
2567 + -.00068, .00516, .00919,
2568 + .39968, .14044, .13396, .00794, .00065,
2569 + -.00041, .00500, .00871,
2570 + .38441, .13423, .11945, .00763, .00079,
2571 + -.00020, .00485, .00827 /
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 + .36967, .12829, .10658, .00732, .00090,
2574 + -.00003, .00470, .00779,
2575 + .35787, .12354, .09706, .00703, .00096,
2576 + .00008, .00454, .00745,
2577 + .34405, .11805, .08677, .00669, .00103,
2578 + .00020, .00436, .00708,
2579 + .33230, .11342, .07867, .00642, .00107,
2580 + .00029, .00421, .00673,
2581 + .32192, .10936, .07199, .00618, .00109,
2582 + .00036, .00406, .00643,
2583 + .30912, .10443, .06446, .00587, .00111,
2584 + .00042, .00387, .00609,
2585 + .29763, .10003, .05820, .00560, .00112,
2586 + .00047, .00372, .00576,
2587 + .28731, .09612, .05296, .00537, .00111,
2588 + .00050, .00357, .00545 /
2589 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
2590 + .27727, .09235, .04829, .00514, .00111,
2591 + .00053, .00342, .00520,
2592 + .26787, .08883, .04418, .00491, .00111,
2593 + .00055, .00329, .00495,
2594 + .25931, .08564, .04068, .00469, .00109,
2595 + .00057, .00315, .00472,
2596 + .25145, .08273, .03767, .00452, .00107,
2597 + .00057, .00304, .00452,
2598 + .24384, .07994, .03494, .00434, .00106,
2599 + .00058, .00291, .00432,
2600 + .23657, .07728, .03247, .00417, .00104,
2601 + .00058, .00281, .00413,
2602 + .22991, .07485, .03031, .00401, .00102,
2603 + .00058, .00271, .00397,
2604 + .22374, .07262, .02844, .00387, .00100,
2605 + .00058, .00262, .00382 /
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 + .21772, .07044, .02668, .00374, .00098,
2608 + .00058, .00252, .00369,
2609 + .21192, .06838, .02510, .00361, .00096,
2610 + .00058, .00244, .00356,
2611 + .20656, .06645, .02369, .00348, .00095,
2612 + .00058, .00235, .00343,
2613 + .20161, .06469, .02245, .00337, .00092,
2614 + .00057, .00228, .00331,
2615 + .19669, .06298, .02128, .00327, .00091,
2616 + .00057, .00221, .00319 /
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 + .61155, .23208, .43366, .00687, .00000,
2619 + .00000, .00156, .00959,
2620 + .59193, .22239, .39335, .00725, .00000,
2621 + .00000, .00225, .00950,
2622 + .56381, .20867, .34827, .00749, -.00407,
2623 + .00000, .00291, .00941,
2624 + .54404, .19946, .31257, .00763, -.00336,
2625 + .00000, .00332, .00915,
2626 + .52405, .19035, .27857, .00762, -.00259,
2627 + .00000, .00361, .00895,
2628 + .50724, .18279, .25224, .00756, -.00204,
2629 + .00000, .00380, .00871,
2630 + .49158, .17588, .22944, .00749, -.00158,
2631 + .00000, .00389, .00848,
2632 + .47545, .16888, .20763, .00736, -.00118,
2633 + .00000, .00395, .00822 /
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 + .46176, .16308, .19038, .00724, -.00088,
2636 + .00000, .00398, .00797,
2637 + .44895, .15765, .17516, .00708, -.00063,
2638 + .00000, .00399, .00775,
2639 + .43908, .15348, .16403, .00696, -.00045,
2640 + .00000, .00399, .00757,
2641 + .41871, .14513, .14293, .00673, -.00013,
2642 + .00000, .00395, .00711,
2643 + .40212, .13841, .12800, .00648, .00008,
2644 + -.00082, .00387, .00679,
2645 + .38436, .13127, .11160, .00621, .00027,
2646 + -.00055, .00378, .00644,
2647 + .36676, .12430, .09698, .00589, .00041,
2648 + -.00034, .00364, .00606,
2649 + .35151, .11837, .08556, .00561, .00052,
2650 + -.00018, .00351, .00573 /
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 + .33676, .11270, .07547, .00536, .00060,
2653 + -.00005, .00337, .00542,
2654 + .32504, .10821, .06805, .00516, .00065,
2655 + .00003, .00327, .00518,
2656 + .31138, .10305, .06016, .00490, .00070,
2657 + .00012, .00313, .00491,
2658 + .29981, .09873, .05408, .00467, .00073,
2659 + .00019, .00301, .00465,
2660 + .28961, .09495, .04912, .00449, .00074,
2661 + .00023, .00288, .00443,
2662 + .27718, .09037, .04355, .00424, .00075,
2663 + .00027, .00275, .00415,
2664 + .26604, .08630, .03896, .00403, .00076,
2665 + .00031, .00262, .00393,
2666 + .25608, .08267, .03517, .00384, .00076,
2667 + .00034, .00250, .00374 /
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 + .24647, .07920, .03180, .00367, .00076,
2670 + .00036, .00238, .00354,
2671 + .23746, .07598, .02889, .00350, .00075,
2672 + .00037, .00229, .00336,
2673 + .22926, .07307, .02641, .00334, .00074,
2674 + .00038, .00220, .00319,
2675 + .22179, .07043, .02432, .00321, .00073,
2676 + .00039, .00212, .00305,
2677 + .21456, .06790, .02241, .00309, .00072,
2678 + .00040, .00202, .00291,
2679 + .20769, .06550, .02072, .00295, .00071,
2680 + .00040, .00194, .00278,
2681 + .20140, .06332, .01927, .00282, .00068,
2682 + .00039, .00187, .00265,
2683 + .19563, .06129, .01801, .00271, .00067,
2684 + .00039, .00179, .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 + .19001, .05933, .01684, .00260, .00066,
2687 + .00039, .00173, .00247,
2688 + .18461, .05749, .01578, .00250, .00064,
2689 + .00039, .00166, .00237,
2690 + .17958, .05580, .01484, .00242, .00064,
2691 + .00039, .00161, .00227,
2692 + .17496, .05423, .01403, .00234, .00062,
2693 + .00038, .00155, .00218,
2694 + .17041, .05269, .01327, .00227, .00060,
2695 + .00037, .00150, .00210 /
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 + .58880, .21558, .35634, .00540, .00000,
2698 + .00000, .00059, .00609,
2699 + .56734, .20534, .31890, .00562, .00000,
2700 + .00000, .00118, .00627,
2701 + .53654, .19157, .27724, .00586, -.00336,
2702 + .00000, .00190, .00618,
2703 + .51541, .18221, .24542, .00585, -.00275,
2704 + .00000, .00224, .00619,
2705 + .49410, .17311, .21576, .00589, -.00212,
2706 + .00000, .00248, .00603,
2707 + .47639, .16562, .19312, .00586, -.00168,
2708 + .00000, .00262, .00590,
2709 + .46001, .15881, .17374, .00574, -.00131,
2710 + .00000, .00272, .00578,
2711 + .44325, .15195, .15539, .00561, -.00098,
2712 + .00000, .00278, .00563 /
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 + .42920, .14622, .14109, .00553, -.00075,
2715 + .00000, .00282, .00544,
2716 + .41608, .14096, .12864, .00540, -.00055,
2717 + .00000, .00282, .00527,
2718 + .40600, .13696, .11962, .00525, -.00041,
2719 + .00000, .00281, .00517,
2720 + .38536, .12888, .10262, .00505, -.00016,
2721 + .00000, .00282, .00485,
2722 + .36869, .12243, .09079, .00483, .00000,
2723 + -.00063, .00276, .00463,
2724 + .35087, .11570, .07800, .00464, .00014,
2725 + -.00043, .00268, .00435,
2726 + .33336, .10913, .06673, .00439, .00026,
2727 + -.00027, .00255, .00411,
2728 + .31834, .10351, .05804, .00415, .00034,
2729 + -.00015, .00245, .00391 /
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 + .30388, .09821, .05051, .00393, .00039,
2732 + -.00006, .00235, .00367,
2733 + .29242, .09402, .04505, .00378, .00043,
2734 + .00001, .00228, .00347,
2735 + .27920, .08922, .03932, .00355, .00046,
2736 + .00006, .00218, .00328,
2737 + .26803, .08522, .03492, .00338, .00049,
2738 + .00011, .00209, .00312,
2739 + .25817, .08174, .03138, .00325, .00050,
2740 + .00015, .00199, .00298,
2741 + .24628, .07753, .02742, .00308, .00051,
2742 + .00019, .00190, .00278,
2743 + .23566, .07381, .02423, .00290, .00051,
2744 + .00021, .00181, .00262,
2745 + .22617, .07052, .02164, .00275, .00051,
2746 + .00023, .00173, .00248 /
2747 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
2748 + .21707, .06737, .01940, .00260, .00050,
2749 + .00023, .00164, .00234,
2750 + .20857, .06444, .01746, .00247, .00050,
2751 + .00025, .00155, .00223,
2752 + .20085, .06182, .01582, .00235, .00050,
2753 + .00026, .00148, .00212,
2754 + .19387, .05945, .01447, .00224, .00049,
2755 + .00026, .00141, .00202,
2756 + .18714, .05716, .01325, .00213, .00047,
2757 + .00026, .00136, .00193,
2758 + .18074, .05502, .01216, .00204, .00047,
2759 + .00026, .00131, .00182,
2760 + .17488, .05308, .01122, .00197, .00046,
2761 + .00026, .00125, .00174,
2762 + .16950, .05131, .01043, .00191, .00045,
2763 + .00026, .00120, .00166 /
2764 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
2765 + .16427, .04958, .00972, .00184, .00044,
2766 + .00026, .00115, .00160,
2767 + .15927, .04794, .00906, .00178, .00043,
2768 + .00026, .00111, .00153,
2769 + .15467, .04643, .00848, .00170, .00042,
2770 + .00025, .00108, .00147,
2771 + .15043, .04506, .00799, .00165, .00041,
2772 + .00026, .00103, .00141,
2773 + .14626, .04369, .00752, .00160, .00040,
2774 + .00025, .00100, .00136 /
2775 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
2776 + .56194, .19812, .28057, .00403, .00000,
2777 + .00000, -.00002, .00374,
2778 + .53859, .18805, .24739, .00428, .00000,
2779 + .00000, .00055, .00390,
2780 + .50594, .17421, .21086, .00446, -.00270,
2781 + .00000, .00113, .00400,
2782 + .48364, .16501, .18390, .00457, -.00220,
2783 + .00000, .00140, .00395,
2784 + .46164, .15600, .15913, .00448, -.00170,
2785 + .00000, .00163, .00397,
2786 + .44331, .14875, .14046, .00448, -.00134,
2787 + .00000, .00173, .00391,
2788 + .42650, .14215, .12476, .00443, -.00106,
2789 + .00000, .00181, .00380,
2790 + .40950, .13549, .11008, .00431, -.00080,
2791 + .00000, .00188, .00368 /
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 + .39528, .13001, .09876, .00419, -.00062,
2794 + .00000, .00192, .00359,
2795 + .38206, .12496, .08902, .00406, -.00046,
2796 + .00000, .00193, .00350,
2797 + .37196, .12113, .08203, .00396, -.00035,
2798 + .00000, .00194, .00341,
2799 + .35129, .11346, .06908, .00386, -.00017,
2800 + .00000, .00187, .00324,
2801 + .33480, .10741, .06013, .00366, -.00004,
2802 + -.00048, .00185, .00306,
2803 + .31735, .10109, .05062, .00347, .00007,
2804 + -.00032, .00177, .00289,
2805 + .30030, .09493, .04235, .00326, .00015,
2806 + -.00021, .00172, .00273,
2807 + .28571, .08971, .03611, .00306, .00021,
2808 + -.00012, .00165, .00260 /
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 + .27176, .08480, .03080, .00290, .00025,
2811 + -.00005, .00158, .00243,
2812 + .26073, .08097, .02702, .00277, .00028,
2813 + -.00001, .00151, .00230,
2814 + .24800, .07658, .02310, .00263, .00031,
2815 + .00004, .00144, .00215,
2816 + .23735, .07292, .02012, .00250, .00032,
2817 + .00007, .00139, .00202,
2818 + .22808, .06974, .01780, .00235, .00033,
2819 + .00009, .00133, .00192,
2820 + .21678, .06595, .01523, .00224, .00033,
2821 + .00011, .00126, .00179,
2822 + .20674, .06259, .01320, .00212, .00034,
2823 + .00013, .00119, .00169,
2824 + .19786, .05961, .01159, .00201, .00033,
2825 + .00014, .00111, .00161 /
2826 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
2827 + .18940, .05680, .01019, .00188, .00033,
2828 + .00015, .00107, .00151,
2829 + .18151, .05420, .00901, .00178, .00033,
2830 + .00016, .00102, .00143,
2831 + .17434, .05187, .00806, .00169, .00032,
2832 + .00016, .00096, .00135,
2833 + .16786, .04977, .00725, .00162, .00032,
2834 + .00017, .00093, .00127,
2835 + .16162, .04778, .00653, .00157, .00031,
2836 + .00017, .00089, .00120,
2837 + .15573, .04587, .00594, .00150, .00031,
2838 + .00017, .00085, .00113,
2839 + .15037, .04416, .00543, .00143, .00030,
2840 + .00017, .00080, .00109,
2841 + .14548, .04259, .00499, .00137, .00030,
2842 + .00017, .00077, .00104 /
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 + .14075, .04108, .00459, .00131, .00029,
2845 + .00017, .00075, .00100,
2846 + .13623, .03964, .00425, .00124, .00028,
2847 + .00017, .00072, .00097,
2848 + .13206, .03832, .00395, .00118, .00027,
2849 + .00016, .00070, .00092,
2850 + .12823, .03711, .00370, .00114, .00027,
2851 + .00017, .00067, .00089,
2852 + .12445, .03594, .00348, .00111, .00026,
2853 + .00016, .00064, .00085 /
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 + .53108, .18018, .20910, .00285, .00000,
2856 + .00000, -.00018, .00216,
2857 + .50652, .17015, .18129, .00307, .00000,
2858 + .00000, .00020, .00243,
2859 + .47254, .15653, .15109, .00321, -.00212,
2860 + .00000, .00066, .00256,
2861 + .44961, .14764, .12931, .00326, -.00171,
2862 + .00000, .00090, .00254,
2863 + .42692, .13906, .10965, .00334, -.00132,
2864 + .00000, .00106, .00253,
2865 + .40854, .13198, .09508, .00326, -.00105,
2866 + .00000, .00118, .00252,
2867 + .39170, .12566, .08299, .00316, -.00083,
2868 + .00000, .00125, .00249,
2869 + .37460, .11937, .07186, .00307, -.00063,
2870 + .00000, .00129, .00245 /
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 + .36037, .11421, .06343, .00303, -.00049,
2873 + .00000, .00131, .00237,
2874 + .34726, .10946, .05623, .00295, -.00037,
2875 + .00000, .00132, .00229,
2876 + .33732, .10586, .05114, .00287, -.00030,
2877 + .00000, .00132, .00225,
2878 + .31720, .09868, .04183, .00267, -.00016,
2879 + .00000, .00130, .00216,
2880 + .30119, .09302, .03556, .00251, -.00007,
2881 + -.00036, .00127, .00205,
2882 + .28426, .08716, .02892, .00238, .00002,
2883 + -.00024, .00125, .00192,
2884 + .26774, .08154, .02337, .00227, .00008,
2885 + -.00016, .00120, .00179,
2886 + .25369, .07682, .01920, .00217, .00012,
2887 + -.00010, .00114, .00167 /
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 + .24040, .07236, .01576, .00206, .00015,
2890 + -.00005, .00107, .00157,
2891 + .23000, .06885, .01334, .00192, .00017,
2892 + -.00002, .00105, .00149,
2893 + .21805, .06485, .01093, .00178, .00019,
2894 + .00002, .00099, .00142,
2895 + .20804, .06157, .00918, .00166, .00020,
2896 + .00004, .00094, .00134,
2897 + .19932, .05876, .00778, .00160, .00021,
2898 + .00005, .00090, .00125,
2899 + .18884, .05536, .00633, .00147, .00021,
2900 + .00007, .00085, .00117,
2901 + .17952, .05238, .00522, .00139, .00021,
2902 + .00008, .00080, .00109,
2903 + .17125, .04976, .00435, .00136, .00022,
2904 + .00009, .00076, .00100 /
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 + .16345, .04725, .00363, .00125, .00022,
2907 + .00010, .00072, .00096,
2908 + .15618, .04496, .00302, .00118, .00021,
2909 + .00010, .00070, .00092,
2910 + .14962, .04292, .00256, .00114, .00021,
2911 + .00011, .00067, .00086,
2912 + .14375, .04108, .00219, .00107, .00020,
2913 + .00010, .00063, .00081,
2914 + .13815, .03932, .00188, .00100, .00020,
2915 + .00011, .00060, .00078,
2916 + .13281, .03767, .00163, .00095, .00019,
2917 + .00011, .00056, .00075,
2918 + .12795, .03619, .00142, .00090, .00019,
2919 + .00011, .00054, .00071,
2920 + .12353, .03484, .00125, .00087, .00019,
2921 + .00011, .00052, .00068 /
2922 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
2923 + .11926, .03354, .00111, .00084, .00018,
2924 + .00011, .00050, .00065,
2925 + .11517, .03230, .00099, .00080, .00018,
2926 + .00011, .00047, .00061,
2927 + .11143, .03116, .00090, .00077, .00017,
2928 + .00010, .00045, .00059,
2929 + .10800, .03014, .00082, .00073, .00017,
2930 + .00010, .00044, .00057,
2931 + .10464, .02912, .00076, .00071, .00016,
2932 + .00010, .00042, .00054 /
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 + .49707, .16213, .14449, .00197, .00000,
2935 + .00000, -.00030, .00121,
2936 + .47174, .15230, .12251, .00208, .00000,
2937 + .00000, .00011, .00139,
2938 + .43690, .13920, .09908, .00217, -.00162,
2939 + .00000, .00046, .00160,
2940 + .41375, .13064, .08257, .00220, -.00130,
2941 + .00000, .00061, .00167,
2942 + .39121, .12236, .06792, .00216, -.00100,
2943 + .00000, .00076, .00169,
2944 + .37274, .11578, .05733, .00211, -.00080,
2945 + .00000, .00084, .00171,
2946 + .35598, .10985, .04864, .00209, -.00063,
2947 + .00000, .00090, .00170,
2948 + .33914, .10393, .04086, .00204, -.00049,
2949 + .00000, .00094, .00166 /
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 + .32525, .09909, .03504, .00195, -.00038,
2952 + .00000, .00096, .00163,
2953 + .31245, .09469, .03017, .00190, -.00029,
2954 + .00000, .00097, .00159,
2955 + .30271, .09137, .02674, .00187, -.00023,
2956 + .00000, .00096, .00155,
2957 + .28330, .08478, .02074, .00175, -.00013,
2958 + .00000, .00094, .00141,
2959 + .26789, .07964, .01672, .00164, -.00006,
2960 + -.00025, .00092, .00134,
2961 + .25178, .07429, .01254, .00154, -.00001,
2962 + -.00018, .00090, .00130,
2963 + .23616, .06918, .00915, .00144, .00003,
2964 + -.00012, .00087, .00121,
2965 + .22293, .06491, .00673, .00137, .00007,
2966 + -.00007, .00084, .00111 /
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 + .21041, .06091, .00483, .00130, .00009,
2969 + -.00004, .00079, .00103,
2970 + .20066, .05780, .00357, .00120, .00010,
2971 + -.00002, .00074, .00099,
2972 + .18954, .05428, .00229, .00112, .00012,
2973 + .00001, .00070, .00095,
2974 + .18028, .05137, .00144, .00106, .00012,
2975 + .00002, .00067, .00089,
2976 + .17225, .04884, .00079, .00101, .00013,
2977 + .00003, .00064, .00085,
2978 + .16261, .04586, .00020, .00092, .00013,
2979 + .00004, .00059, .00078,
2980 + .15411, .04325, -.00024, .00085, .00013,
2981 + .00005, .00056, .00074,
2982 + .14660, .04095, -.00053, .00080, .00014,
2983 + .00006, .00053, .00068 /
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 + .13951, .03880, -.00077, .00076, .00013,
2986 + .00006, .00051, .00064,
2987 + .13293, .03682, -.00093, .00072, .00013,
2988 + .00007, .00047, .00061,
2989 + .12701, .03506, -.00101, .00067, .00013,
2990 + .00006, .00044, .00058,
2991 + .12171, .03347, -.00107, .00064, .00013,
2992 + .00007, .00041, .00055,
2993 + .11664, .03198, -.00110, .00061, .00013,
2994 + .00007, .00040, .00051,
2995 + .11186, .03057, -.00112, .00059, .00012,
2996 + .00007, .00038, .00048,
2997 + .10754, .02930, -.00111, .00057, .00012,
2998 + .00007, .00035, .00046,
2999 + .10363, .02813, -.00109, .00053, .00011,
3000 + .00006, .00034, .00044 /
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 + .09986, .02702, -.00107, .00049, .00012,
3003 + .00007, .00033, .00042,
3004 + .09625, .02597, -.00103, .00047, .00011,
3005 + .00007, .00032, .00039,
3006 + .09295, .02502, -.00101, .00045, .00011,
3007 + .00007, .00031, .00038,
3008 + .08993, .02415, -.00096, .00044, .00011,
3009 + .00007, .00030, .00035,
3010 + .08699, .02331, -.00093, .00042, .00010,
3011 + .00007, .00029, .00034 /
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 + .46103, .14495, .08766, .00165, .00000,
3014 + .00000, -.00056, .00048,
3015 + .43518, .13560, .07156, .00176, .00000,
3016 + .00000, -.00024, .00065,
3017 + .40027, .12310, .05501, .00186, -.00120,
3018 + .00000, .00009, .00075,
3019 + .37727, .11499, .04339, .00184, -.00096,
3020 + .00000, .00023, .00089,
3021 + .35501, .10722, .03357, .00178, -.00074,
3022 + .00000, .00033, .00093,
3023 + .33691, .10107, .02654, .00175, -.00059,
3024 + .00000, .00045, .00091,
3025 + .32060, .09556, .02098, .00172, -.00046,
3026 + .00000, .00050, .00085,
3027 + .30434, .09007, .01609, .00166, -.00035,
3028 + .00000, .00053, .00084 /
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 + .29098, .08561, .01259, .00158, -.00028,
3031 + .00000, .00052, .00086,
3032 + .27867, .08158, .00972, .00152, -.00022,
3033 + .00000, .00052, .00087,
3034 + .26933, .07857, .00774, .00149, -.00018,
3035 + .00000, .00052, .00086,
3036 + .25078, .07253, .00447, .00139, -.00010,
3037 + .00000, .00053, .00082,
3038 + .23616, .06786, .00234, .00132, -.00006,
3039 + -.00018, .00053, .00079,
3040 + .22101, .06306, .00025, .00125, -.00002,
3041 + -.00013, .00051, .00070,
3042 + .20648, .05848, -.00135, .00113, .00001,
3043 + -.00009, .00048, .00067,
3044 + .19423, .05462, -.00238, .00101, .00003,
3045 + -.00006, .00046, .00066 /
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 + .18269, .05106, -.00312, .00094, .00005,
3048 + -.00003, .00043, .00064,
3049 + .17369, .04833, -.00357, .00091, .00006,
3050 + -.00001, .00041, .00059,
3051 + .16343, .04522, -.00387, .00085, .00007,
3052 + .00000, .00040, .00053,
3053 + .15497, .04269, -.00403, .00080, .00008,
3054 + .00001, .00038, .00048,
3055 + .14765, .04051, -.00408, .00074, .00007,
3056 + .00001, .00036, .00044,
3057 + .13887, .03789, -.00411, .00071, .00008,
3058 + .00002, .00034, .00042,
3059 + .13119, .03561, -.00402, .00067, .00008,
3060 + .00003, .00032, .00040,
3061 + .12446, .03364, -.00392, .00061, .00008,
3062 + .00003, .00030, .00040 /
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 + .11807, .03178, -.00378, .00059, .00009,
3065 + .00004, .00027, .00036,
3066 + .11221, .03008, -.00361, .00055, .00008,
3067 + .00004, .00025, .00032,
3068 + .10696, .02856, -.00344, .00051, .00008,
3069 + .00004, .00024, .00031,
3070 + .10226, .02720, -.00328, .00048, .00008,
3071 + .00004, .00023, .00029,
3072 + .09779, .02592, -.00314, .00045, .00008,
3073 + .00005, .00023, .00028,
3074 + .09357, .02471, -.00297, .00043, .00008,
3075 + .00005, .00021, .00027,
3076 + .08977, .02363, -.00282, .00040, .00008,
3077 + .00005, .00020, .00026,
3078 + .08629, .02266, -.00265, .00039, .00007,
3079 + .00004, .00018, .00023 /
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 + .08295, .02173, -.00251, .00038, .00007,
3082 + .00004, .00017, .00022,
3083 + .07980, .02085, -.00238, .00037, .00007,
3084 + .00004, .00017, .00021,
3085 + .07692, .02003, -.00226, .00036, .00006,
3086 + .00004, .00016, .00020,
3087 + .07430, .01930, -.00215, .00033, .00006,
3088 + .00004, .00017, .00020,
3089 + .07174, .01860, -.00203, .00032, .00006,
3090 + .00004, .00015, .00019 /
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 + .42243, .12742, .04035, .00102, .00000,
3093 + .00000, -.00036, .00019,
3094 + .39677, .11855, .02998, .00110, .00000,
3095 + .00000, -.00017, .00033,
3096 + .36242, .10695, .01970, .00116, -.00087,
3097 + .00000, .00006, .00045,
3098 + .34006, .09943, .01267, .00114, -.00069,
3099 + .00000, .00016, .00049,
3100 + .31834, .09231, .00692, .00111, -.00053,
3101 + .00000, .00021, .00059,
3102 + .30092, .08661, .00300, .00113, -.00041,
3103 + .00000, .00028, .00059,
3104 + .28530, .08160, .00006, .00107, -.00033,
3105 + .00000, .00030, .00060,
3106 + .26977, .07666, -.00233, .00100, -.00025,
3107 + .00000, .00031, .00059 /
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 + .25700, .07266, -.00396, .00100, -.00021,
3110 + .00000, .00032, .00058,
3111 + .24537, .06904, -.00519, .00099, -.00016,
3112 + .00000, .00032, .00055,
3113 + .23661, .06631, -.00594, .00096, -.00013,
3114 + .00000, .00034, .00052,
3115 + .21928, .06094, -.00715, .00087, -.00009,
3116 + .00000, .00035, .00051,
3117 + .20571, .05679, -.00769, .00082, -.00005,
3118 + -.00013, .00036, .00047,
3119 + .19166, .05253, -.00824, .00074, -.00002,
3120 + -.00009, .00033, .00047,
3121 + .17816, .04851, -.00849, .00071, .00000,
3122 + -.00006, .00031, .00044,
3123 + .16689, .04519, -.00846, .00067, .00002,
3124 + -.00004, .00029, .00040 /
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 + .15637, .04209, -.00830, .00062, .00002,
3127 + -.00002, .00029, .00037,
3128 + .14820, .03970, -.00812, .00059, .00003,
3129 + -.00001, .00027, .00035,
3130 + .13895, .03702, -.00778, .00056, .00004,
3131 + .00000, .00025, .00033,
3132 + .13132, .03481, -.00746, .00051, .00004,
3133 + .00000, .00024, .00032,
3134 + .12475, .03292, -.00710, .00049, .00005,
3135 + .00001, .00022, .00030,
3136 + .11699, .03069, -.00666, .00042, .00004,
3137 + .00001, .00019, .00027,
3138 + .11016, .02876, -.00625, .00038, .00005,
3139 + .00002, .00018, .00026,
3140 + .10416, .02709, -.00586, .00037, .00005,
3141 + .00002, .00017, .00024 /
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 + .09852, .02551, -.00548, .00036, .00004,
3144 + .00002, .00016, .00021,
3145 + .09334, .02407, -.00512, .00034, .00005,
3146 + .00003, .00017, .00020,
3147 + .08874, .02280, -.00479, .00031, .00005,
3148 + .00003, .00015, .00021,
3149 + .08461, .02167, -.00449, .00030, .00005,
3150 + .00003, .00014, .00018,
3151 + .08069, .02060, -.00420, .00029, .00005,
3152 + .00003, .00013, .00015,
3153 + .07702, .01960, -.00392, .00028, .00004,
3154 + .00002, .00012, .00015,
3155 + .07372, .01870, -.00367, .00026, .00004,
3156 + .00002, .00012, .00014,
3157 + .07073, .01789, -.00346, .00025, .00004,
3158 + .00002, .00012, .00014 /
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 + .06787, .01711, -.00326, .00025, .00004,
3161 + .00002, .00011, .00013,
3162 + .06514, .01639, -.00305, .00023, .00004,
3163 + .00002, .00011, .00012,
3164 + .06268, .01572, -.00287, .00022, .00003,
3165 + .00002, .00010, .00012,
3166 + .06043, .01513, -.00270, .00020, .00004,
3167 + .00003, .00009, .00011,
3168 + .05826, .01454, -.00255, .00019, .00004,
3169 + .00003, .00009, .00011 /
3170 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
3171 + .38274, .11060, .00303, .00046, .00000,
3172 + .00000, -.00024, .00007,
3173 + .35763, .10247, -.00270, .00061, .00000,
3174 + .00000, -.00006, .00021,
3175 + .32439, .09174, -.00719, .00060, -.00061,
3176 + .00000, .00006, .00030,
3177 + .30278, .08492, -.01043, .00059, -.00048,
3178 + .00000, .00017, .00035,
3179 + .28200, .07850, -.01279, .00068, -.00037,
3180 + .00000, .00022, .00033,
3181 + .26548, .07342, -.01413, .00067, -.00029,
3182 + .00000, .00022, .00035,
3183 + .25066, .06887, -.01487, .00066, -.00024,
3184 + .00000, .00023, .00035,
3185 + .23605, .06443, -.01533, .00065, -.00018,
3186 + .00000, .00024, .00035 /
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 + .22426, .06086, -.01546, .00056, -.00015,
3189 + .00000, .00025, .00036,
3190 + .21345, .05763, -.01540, .00054, -.00011,
3191 + .00000, .00025, .00035,
3192 + .20532, .05524, -.01529, .00055, -.00009,
3193 + .00000, .00025, .00035,
3194 + .18920, .05051, -.01481, .00053, -.00006,
3195 + .00000, .00026, .00034,
3196 + .17677, .04688, -.01420, .00050, -.00004,
3197 + -.00008, .00023, .00032,
3198 + .16401, .04319, -.01358, .00043, -.00002,
3199 + -.00006, .00023, .00031,
3200 + .15181, .03969, -.01281, .00038, -.00001,
3201 + -.00004, .00020, .00029,
3202 + .14160, .03682, -.01210, .00038, .00000,
3203 + -.00003, .00020, .00027 /
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 + .13214, .03416, -.01131, .00036, .00001,
3206 + -.00002, .00019, .00025,
3207 + .12486, .03209, -.01067, .00031, .00002,
3208 + -.00001, .00018, .00024,
3209 + .11663, .02983, -.00989, .00028, .00002,
3210 + -.00001, .00017, .00021,
3211 + .10987, .02797, -.00924, .00027, .00003,
3212 + .00000, .00016, .00019,
3213 + .10407, .02638, -.00864, .00026, .00003,
3214 + .00000, .00015, .00017,
3215 + .09719, .02450, -.00793, .00024, .00002,
3216 + .00000, .00014, .00016,
3217 + .09118, .02288, -.00732, .00023, .00003,
3218 + .00001, .00012, .00017,
3219 + .08596, .02147, -.00677, .00021, .00003,
3220 + .00001, .00013, .00015 /
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 + .08105, .02016, -.00624, .00021, .00003,
3223 + .00001, .00012, .00014,
3224 + .07656, .01898, -.00576, .00019, .00003,
3225 + .00001, .00010, .00013,
3226 + .07259, .01793, -.00534, .00018, .00003,
3227 + .00001, .00010, .00011,
3228 + .06905, .01698, -.00495, .00016, .00002,
3229 + .00001, .00010, .00012,
3230 + .06570, .01610, -.00459, .00014, .00002,
3231 + .00001, .00009, .00012,
3232 + .06254, .01529, -.00427, .00014, .00002,
3233 + .00001, .00008, .00010,
3234 + .05970, .01456, -.00399, .00016, .00002,
3235 + .00001, .00008, .00009,
3236 + .05715, .01390, -.00374, .00015, .00003,
3237 + .00002, .00008, .00009 /
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 + .05473, .01327, -.00348, .00014, .00003,
3240 + .00002, .00007, .00008,
3241 + .05245, .01267, -.00326, .00012, .00003,
3242 + .00002, .00007, .00008,
3243 + .05036, .01214, -.00307, .00011, .00003,
3244 + .00002, .00007, .00008,
3245 + .04846, .01164, -.00288, .00011, .00003,
3246 + .00002, .00005, .00008,
3247 + .04662, .01117, -.00271, .00011, .00002,
3248 + .00002, .00006, .00007 /
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 + .34328, .09538, -.02607, .00053, .00000,
3251 + .00000, -.00029, -.00016,
3252 + .31919, .08788, -.02734, .00047, .00000,
3253 + .00000, -.00020, -.00001,
3254 + .28728, .07811, -.02718, .00054, -.00041,
3255 + .00000, -.00005, .00006,
3256 + .26678, .07199, -.02728, .00053, -.00033,
3257 + .00000, -.00001, .00014,
3258 + .24729, .06617, -.02684, .00055, -.00025,
3259 + .00000, .00004, .00015,
3260 + .23192, .06161, -.02614, .00049, -.00019,
3261 + .00000, .00007, .00014,
3262 + .21821, .05759, -.02527, .00043, -.00016,
3263 + .00000, .00009, .00018,
3264 + .20466, .05367, -.02425, .00043, -.00013,
3265 + .00000, .00010, .00022 /
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 + .19368, .05054, -.02321, .00044, -.00010,
3268 + .00000, .00010, .00017,
3269 + .18375, .04771, -.02223, .00042, -.00008,
3270 + .00000, .00013, .00016,
3271 + .17633, .04559, -.02140, .00040, -.00006,
3272 + .00000, .00015, .00016,
3273 + .16170, .04151, -.01964, .00036, -.00004,
3274 + .00000, .00011, .00017,
3275 + .15039, .03837, -.01818, .00034, -.00003,
3276 + -.00006, .00008, .00017,
3277 + .13885, .03519, -.01682, .00033, -.00002,
3278 + -.00004, .00010, .00015,
3279 + .12796, .03219, -.01541, .00031, -.00001,
3280 + -.00003, .00011, .00015,
3281 + .11888, .02975, -.01413, .00028, .00000,
3282 + -.00002, .00009, .00013 /
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 + .11050, .02749, -.01295, .00027, .00000,
3285 + -.00002, .00009, .00012,
3286 + .10407, .02577, -.01202, .00024, .00001,
3287 + -.00001, .00008, .00009,
3288 + .09682, .02383, -.01097, .00023, .00001,
3289 + -.00001, .00009, .00010,
3290 + .09089, .02226, -.01009, .00022, .00001,
3291 + -.00001, .00007, .00009,
3292 + .08584, .02095, -.00937, .00020, .00002,
3293 + .00000, .00008, .00009,
3294 + .07986, .01938, -.00847, .00017, .00002,
3295 + .00000, .00006, .00007,
3296 + .07467, .01804, -.00771, .00016, .00001,
3297 + .00000, .00006, .00006,
3298 + .07016, .01690, -.00707, .00016, .00001,
3299 + .00000, .00005, .00006 /
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 + .06595, .01581, -.00648, .00015, .00001,
3302 + .00000, .00005, .00005,
3303 + .06213, .01482, -.00593, .00014, .00001,
3304 + .00000, .00004, .00005,
3305 + .05874, .01397, -.00547, .00012, .00001,
3306 + .00000, .00006, .00005,
3307 + .05573, .01321, -.00505, .00012, .00002,
3308 + .00001, .00004, .00006,
3309 + .05287, .01249, -.00469, .00012, .00002,
3310 + .00001, .00004, .00006,
3311 + .05023, .01182, -.00433, .00011, .00002,
3312 + .00001, .00004, .00004,
3313 + .04786, .01122, -.00402, .00010, .00002,
3314 + .00001, .00004, .00004,
3315 + .04573, .01069, -.00374, .00008, .00002,
3316 + .00001, .00003, .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 + .04368, .01019, -.00349, .00008, .00002,
3319 + .00001, .00003, .00004,
3320 + .04176, .00972, -.00325, .00008, .00002,
3321 + .00001, .00003, .00003,
3322 + .04001, .00928, -.00305, .00008, .00002,
3323 + .00001, .00003, .00003,
3324 + .03842, .00889, -.00286, .00008, .00001,
3325 + .00001, .00003, .00003,
3326 + .03688, .00852, -.00267, .00008, .00001,
3327 + .00001, .00002, .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 + .30329, .08032, -.04591, .00013, .00000,
3330 + .00000, -.00010, .00001,
3331 + .28048, .07365, -.04387, .00022, .00000,
3332 + .00000, -.00004, .00000,
3333 + .25068, .06505, -.03999, .00017, -.00027,
3334 + .00000, .00003, .00006,
3335 + .23159, .05967, -.03780, .00022, -.00021,
3336 + .00000, .00005, .00009,
3337 + .21367, .05462, -.03541, .00023, -.00016,
3338 + .00000, .00008, .00010,
3339 + .19938, .05067, -.03326, .00027, -.00013,
3340 + .00000, .00009, .00010,
3341 + .18680, .04720, -.03118, .00026, -.00010,
3342 + .00000, .00008, .00010,
3343 + .17450, .04380, -.02904, .00023, -.00008,
3344 + .00000, .00010, .00009 /
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 + .16459, .04108, -.02725, .00020, -.00007,
3347 + .00000, .00010, .00012,
3348 + .15563, .03866, -.02560, .00017, -.00006,
3349 + .00000, .00009, .00014,
3350 + .14896, .03688, -.02437, .00017, -.00004,
3351 + .00000, .00008, .00013,
3352 + .13587, .03337, -.02181, .00017, -.00003,
3353 + .00000, .00007, .00012,
3354 + .12582, .03072, -.01989, .00017, -.00002,
3355 + -.00004, .00007, .00012,
3356 + .11562, .02804, -.01797, .00016, -.00001,
3357 + -.00003, .00007, .00009,
3358 + .10600, .02555, -.01616, .00015, .00000,
3359 + -.00001, .00008, .00008,
3360 + .09808, .02349, -.01464, .00014, .00000,
3361 + -.00001, .00006, .00008 /
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 + .09078, .02163, -.01324, .00012, .00000,
3364 + -.00001, .00007, .00008,
3365 + .08520, .02020, -.01216, .00011, .00001,
3366 + .00000, .00005, .00007,
3367 + .07895, .01861, -.01098, .00010, .00001,
3368 + .00000, .00006, .00007,
3369 + .07386, .01733, -.01003, .00010, .00001,
3370 + .00000, .00006, .00006,
3371 + .06950, .01625, -.00918, .00010, .00000,
3372 + .00000, .00004, .00005,
3373 + .06441, .01498, -.00828, .00010, .00000,
3374 + .00000, .00005, .00006,
3375 + .06001, .01388, -.00747, .00008, .00000,
3376 + .00000, .00005, .00004,
3377 + .05620, .01295, -.00680, .00008, .00000,
3378 + .00000, .00003, .00005 /
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 + .05267, .01209, -.00619, .00007, .00001,
3381 + .00001, .00003, .00003,
3382 + .04946, .01131, -.00564, .00006, .00001,
3383 + .00001, .00003, .00003,
3384 + .04663, .01061, -.00517, .00005, .00001,
3385 + .00001, .00003, .00005,
3386 + .04411, .01001, -.00476, .00005, .00001,
3387 + .00001, .00003, .00003,
3388 + .04174, .00944, -.00437, .00005, .00001,
3389 + .00001, .00002, .00003,
3390 + .03954, .00892, -.00404, .00005, .00001,
3391 + .00001, .00002, .00003,
3392 + .03758, .00845, -.00373, .00003, .00001,
3393 + .00001, .00002, .00003,
3394 + .03582, .00803, -.00347, .00003, .00001,
3395 + .00001, .00002, .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 + .03413, .00762, -.00322, .00003, .00001,
3398 + .00001, .00002, .00003,
3399 + .03254, .00725, -.00299, .00003, .00001,
3400 + .00001, .00002, .00003,
3401 + .03111, .00692, -.00279, .00003, .00001,
3402 + .00001, .00002, .00002,
3403 + .02983, .00662, -.00260, .00003, .00001,
3404 + .00001, .00001, .00002,
3405 + .02858, .00632, -.00244, .00003, .00001,
3406 + .00001, .00001, .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 + .22669, .05484, -.06416, .00011, .00000,
3409 + .00000, -.00006, -.00001,
3410 + .20737, .04978, -.05801, .00007, .00000,
3411 + .00000, -.00005, .00000,
3412 + .18238, .04329, -.04983, .00010, -.00010,
3413 + .00000, -.00001, .00002,
3414 + .16676, .03927, -.04493, .00014, -.00008,
3415 + .00000, -.00001, -.00001,
3416 + .15221, .03558, -.04028, .00010, -.00006,
3417 + .00000, -.00001, .00002,
3418 + .14085, .03270, -.03659, .00003, -.00005,
3419 + .00000, .00000, .00004,
3420 + .13085, .03021, -.03343, .00004, -.00004,
3421 + .00000, .00003, .00005,
3422 + .12114, .02782, -.03035, .00007, -.00003,
3423 + .00000, .00001, .00004 /
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 + .11341, .02590, -.02791, .00008, -.00003,
3426 + .00000, .00003, .00004,
3427 + .10648, .02422, -.02572, .00008, -.00003,
3428 + .00000, .00003, .00002,
3429 + .10137, .02297, -.02411, .00007, -.00002,
3430 + .00000, .00002, .00003,
3431 + .09144, .02056, -.02100, .00006, -.00002,
3432 + .00000, .00003, .00003,
3433 + .08391, .01876, -.01872, .00004, -.00001,
3434 + -.00001, .00003, .00002,
3435 + .07634, .01695, -.01653, .00005, -.00001,
3436 + -.00001, .00001, .00002,
3437 + .06929, .01528, -.01453, .00003, -.00001,
3438 + -.00001, .00002, .00002,
3439 + .06355, .01393, -.01292, .00003, -.00001,
3440 + -.00001, .00003, .00002 /
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 + .05829, .01271, -.01150, .00004, -.00001,
3443 + -.00001, .00003, .00003,
3444 + .05433, .01179, -.01043, .00002, -.00001,
3445 + -.00001, .00003, .00003,
3446 + .04991, .01077, -.00927, .00002, .00000,
3447 + .00000, .00001, .00003,
3448 + .04634, .00996, -.00834, .00002, .00000,
3449 + .00000, .00001, .00001,
3450 + .04334, .00928, -.00762, .00003, .00000,
3451 + .00000, .00003, .00003,
3452 + .03982, .00848, -.00674, .00002, .00000,
3453 + .00000, .00001, .00003,
3454 + .03682, .00781, -.00603, .00002, .00000,
3455 + .00000, .00001, .00003,
3456 + .03426, .00723, -.00543, .00002, .00000,
3457 + .00000, .00001, .00001 /
3458 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
3459 + .03187, .00670, -.00490, .00001, .00000,
3460 + .00000, .00001, .00001,
3461 + .02973, .00623, -.00442, .00001, .00000,
3462 + .00000, .00001, .00001,
3463 + .02786, .00581, -.00402, .00001, .00000,
3464 + .00000, .00001, .00001,
3465 + .02621, .00544, -.00367, .00001, .00000,
3466 + .00000, .00001, .00001,
3467 + .02464, .00510, -.00335, .00001, .00000,
3468 + .00000, .00001, .00001,
3469 + .02323, .00479, -.00308, .00001, .00000,
3470 + .00000, .00001, .00001,
3471 + .02196, .00452, -.00283, .00001, .00000,
3472 + .00000, .00001, .00001,
3473 + .02082, .00427, -.00262, .00001, .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 + .01976, .00404, -.00243, .00001, .00000,
3477 + .00000, .00001, .00001,
3478 + .01876, .00383, -.00224, .00001, .00000,
3479 + .00000, .00001, .00001,
3480 + .01786, .00364, -.00209, .00001, .00000,
3481 + .00000, .00001, .00001,
3482 + .01704, .00347, -.00194, .00001, .00000,
3483 + .00000, .00001, .00001,
3484 + .01626, .00330, -.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 + .15763, .03446, -.06131, .00000, .00000,
3488 + .00000, -.00004, -.00004,
3489 + .14247, .03090, -.05417, .00003, .00000,
3490 + .00000, -.00002, -.00002,
3491 + .12327, .02648, -.04512, .00002, -.00003,
3492 + .00000, -.00003, -.00001,
3493 + .11145, .02376, -.03986, .00003, -.00003,
3494 + .00000, .00000, .00001,
3495 + .10054, .02127, -.03495, .00001, -.00002,
3496 + .00000, .00000, .00002,
3497 + .09214, .01938, -.03126, .00003, -.00002,
3498 + .00000, .00000, .00000,
3499 + .08482, .01774, -.02808, .00003, -.00001,
3500 + .00000, .00001, .00001,
3501 + .07779, .01619, -.02507, .00004, -.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 + .07227, .01497, -.02275, .00002, -.00001,
3505 + .00000, -.00001, .00001,
3506 + .06736, .01388, -.02072, .00002, -.00001,
3507 + .00000, -.00001, .00001,
3508 + .06374, .01309, -.01925, .00003, -.00001,
3509 + .00000, -.00001, -.00001,
3510 + .05680, .01157, -.01648, .00000, -.00001,
3511 + .00000, .00001, .00001,
3512 + .05161, .01045, -.01451, .00002, .00000,
3513 + .00000, .00001, .00000,
3514 + .04647, .00936, -.01263, .00001, .00000,
3515 + .00000, .00001, .00000,
3516 + .04172, .00835, -.01091, .00001, .00000,
3517 + .00000, .00000, .00000,
3518 + .03789, .00754, -.00960, .00001, .00000,
3519 + .00000, .00000, .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 + .03443, .00682, -.00842, .00001, .00000,
3522 + .00000, .00000, .00000,
3523 + .03181, .00627, -.00755, .00001, .00000,
3524 + .00000, .00000, .00000,
3525 + .02897, .00568, -.00664, .00001, .00000,
3526 + .00000, .00000, .00000,
3527 + .02669, .00521, -.00593, .00001, .00000,
3528 + .00000, .00000, .00000,
3529 + .02479, .00481, -.00534, .00000, .00000,
3530 + .00000, .00000, .00000,
3531 + .02257, .00437, -.00470, .00001, .00000,
3532 + .00000, .00000, .00000,
3533 + .02069, .00399, -.00416, .00001, .00000,
3534 + .00000, .00000, .00000,
3535 + .01910, .00366, -.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 + .01764, .00336, -.00331, .00000, .00000,
3539 + .00000, .00000, .00000,
3540 + .01634, .00311, -.00298, .00000, .00000,
3541 + .00000, .00000, .00000,
3542 + .01521, .00289, -.00269, .00000, .00000,
3543 + .00000, .00000, .00000,
3544 + .01421, .00269, -.00244, .00001, .00000,
3545 + .00000, .00000, .00000,
3546 + .01329, .00251, -.00222, .00001, .00000,
3547 + .00000, .00000, .00000,
3548 + .01244, .00234, -.00202, .00000, .00000,
3549 + .00000, .00000, .00000,
3550 + .01170, .00219, -.00185, .00000, .00000,
3551 + .00000, .00000, .00000,
3552 + .01104, .00206, -.00170, .00000, .00000,
3553 + .00000, .00000, .00000 /
3554 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/
3555 + .01042, .00193, -.00156, .00000, .00000,
3556 + .00000, .00000, .00000,
3557 + .00984, .00182, -.00144, .00000, .00000,
3558 + .00000, .00000, .00000,
3559 + .00932, .00172, -.00133, .00000, .00000,
3560 + .00000, .00000, .00000,
3561 + .00886, .00164, -.00123, .00000, .00000,
3562 + .00000, .00000, .00000,
3563 + .00841, .00155, -.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 + .09971, .01946, -.04762, .00004, .00000,
3567 + .00000, -.00002, -.00002,
3568 + .08898, .01723, -.04132, .00004, .00000,
3569 + .00000, -.00001, -.00001,
3570 + .07560, .01450, -.03366, .00004, -.00001,
3571 + .00000, -.00001, -.00001,
3572 + .06750, .01286, -.02916, .00002, -.00001,
3573 + .00000, -.00001, -.00003,
3574 + .06013, .01138, -.02521, .00002, -.00001,
3575 + .00000, -.00001, -.00001,
3576 + .05451, .01025, -.02226, .00002, .00000,
3577 + .00000, .00000, .00000,
3578 + .04971, .00930, -.01976, .00002, .00000,
3579 + .00000, .00000, .00000,
3580 + .04514, .00841, -.01747, .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 + .04153, .00769, -.01567, .00002, .00000,
3584 + .00000, .00000, .00000,
3585 + .03839, .00707, -.01414, .00002, .00000,
3586 + .00000, .00000, .00000,
3587 + .03612, .00663, -.01303, .00000, .00000,
3588 + .00000, .00000, .00000,
3589 + .03174, .00579, -.01101, .00002, .00000,
3590 + .00000, .00000, .00000,
3591 + .02851, .00518, -.00958, .00002, .00000,
3592 + .00000, .00000, .00000,
3593 + .02536, .00457, -.00820, .00000, .00000,
3594 + .00000, .00000, .00000,
3595 + .02251, .00404, -.00701, .00000, .00000,
3596 + .00000, .00000, .00000,
3597 + .02020, .00361, -.00607, .00000, .00000,
3598 + .00000, .00000, .00000 /
3599 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/
3600 + .01817, .00321, -.00527, .00000, .00000,
3601 + .00000, .00000, .00000,
3602 + .01666, .00294, -.00470, .00000, .00000,
3603 + .00000, .00000, .00000,
3604 + .01500, .00264, -.00409, .00000, .00000,
3605 + .00000, .00000, .00000,
3606 + .01369, .00239, -.00361, .00000, .00000,
3607 + .00000, .00000, .00000,
3608 + .01261, .00220, -.00323, .00000, .00000,
3609 + .00000, .00000, .00000,
3610 + .01137, .00197, -.00281, .00000, .00000,
3611 + .00000, .00000, .00000,
3612 + .01034, .00178, -.00246, .00000, .00000,
3613 + .00000, .00000, .00000,
3614 + .00946, .00163, -.00219, .00000, .00000,
3615 + .00000, .00000, .00000 /
3616 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/
3617 + .00866, .00149, -.00194, .00000, .00000,
3618 + .00000, .00000, .00000,
3619 + .00796, .00136, -.00173, .00000, .00000,
3620 + .00000, .00000, .00000,
3621 + .00734, .00125, -.00155, .00000, .00000,
3622 + .00000, .00000, .00000,
3623 + .00682, .00116, -.00139, .00000, .00000,
3624 + .00000, .00000, .00000,
3625 + .00633, .00107, -.00126, .00000, .00000,
3626 + .00000, .00000, .00000,
3627 + .00589, .00099, -.00114, .00000, .00000,
3628 + .00000, .00000, .00000,
3629 + .00550, .00093, -.00104, .00000, .00000,
3630 + .00000, .00000, .00000,
3631 + .00515, .00086, -.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 + .00483, .00081, -.00086, .00000, .00000,
3635 + .00000, .00000, .00000,
3636 + .00454, .00075, -.00079, .00000, .00000,
3637 + .00000, .00000, .00000,
3638 + .00429, .00072, -.00073, .00000, .00000,
3639 + .00000, .00000, .00000,
3640 + .00404, .00067, -.00067, .00000, .00000,
3641 + .00000, .00000, .00000,
3642 + .00382, .00063, -.00061, .00000, .00000,
3643 + .00000, .00000, .00000 /
3644 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/
3645 + .05518, .00932, -.03043, .00000, .00000,
3646 + .00000, .00000, .00000,
3647 + .04858, .00814, -.02601, -.00003, .00000,
3648 + .00000, .00000, .00000,
3649 + .04041, .00674, -.02081, .00000, .00000,
3650 + .00000, .00000, .00000,
3651 + .03557, .00591, -.01780, .00000, .00000,
3652 + .00000, .00000, .00000,
3653 + .03122, .00514, -.01513, .00000, .00000,
3654 + .00000, .00000, .00000,
3655 + .02796, .00457, -.01318, .00000, .00000,
3656 + .00000, .00000, .00000,
3657 + .02519, .00412, -.01158, .00000, .00000,
3658 + .00000, .00000, .00000,
3659 + .02261, .00368, -.01013, .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 + .02059, .00333, -.00900, .00000, .00000,
3663 + .00000, .00000, .00000,
3664 + .01884, .00304, -.00804, .00000, .00000,
3665 + .00000, .00000, .00000,
3666 + .01758, .00283, -.00737, .00000, .00000,
3667 + .00000, .00000, .00000,
3668 + .01521, .00242, -.00612, .00000, .00000,
3669 + .00000, .00000, .00000,
3670 + .01349, .00215, -.00526, .00000, .00000,
3671 + .00000, .00000, .00000,
3672 + .01183, .00187, -.00444, .00000, .00000,
3673 + .00000, .00000, .00000,
3674 + .01034, .00163, -.00374, .00000, .00000,
3675 + .00000, .00000, .00000,
3676 + .00917, .00144, -.00322, .00000, .00000,
3677 + .00000, .00000, .00000 /
3678 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=17,24)/
3679 + .00813, .00127, -.00274, .00000, .00000,
3680 + .00000, .00000, .00000,
3681 + .00738, .00116, -.00243, .00000, .00000,
3682 + .00000, .00000, .00000,
3683 + .00657, .00101, -.00208, .00000, .00000,
3684 + .00000, .00000, .00000,
3685 + .00593, .00091, -.00182, .00000, .00000,
3686 + .00000, .00000, .00000,
3687 + .00541, .00084, -.00162, .00000, .00000,
3688 + .00000, .00000, .00000,
3689 + .00483, .00074, -.00140, .00000, .00000,
3690 + .00000, .00000, .00000,
3691 + .00433, .00066, -.00120, .00000, .00000,
3692 + .00000, .00000, .00000,
3693 + .00392, .00058, -.00105, .00000, .00000,
3694 + .00000, .00000, .00000 /
3695 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/
3696 + .00356, .00052, -.00093, .00000, .00000,
3697 + .00000, .00000, .00000,
3698 + .00323, .00049, -.00082, .00000, .00000,
3699 + .00000, .00000, .00000,
3700 + .00296, .00044, -.00073, .00000, .00000,
3701 + .00000, .00000, .00000,
3702 + .00272, .00040, -.00064, .00000, .00000,
3703 + .00000, .00000, .00000,
3704 + .00250, .00037, -.00057, .00000, .00000,
3705 + .00000, .00000, .00000,
3706 + .00231, .00034, -.00051, .00000, .00000,
3707 + .00000, .00000, .00000,
3708 + .00215, .00031, -.00047, .00000, .00000,
3709 + .00000, .00000, .00000,
3710 + .00200, .00029, -.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, .00027, -.00038, .00000, .00000,
3714 + .00000, .00000, .00000,
3715 + .00174, .00026, -.00035, .00000, .00000,
3716 + .00000, .00000, .00000,
3717 + .00161, .00023, -.00032, .00000, .00000,
3718 + .00000, .00000, .00000,
3719 + .00153, .00022, -.00029, .00000, .00000,
3720 + .00000, .00000, .00000,
3721 + .00143, .00020, -.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 + .00777, .00093, -.00541, .00000, .00000,
3725 + .00000, .00000, .00000,
3726 + .00654, .00078, -.00445, .00000, .00000,
3727 + .00000, .00000, .00000,
3728 + .00513, .00059, -.00335, .00000, .00000,
3729 + .00000, .00000, .00000,
3730 + .00433, .00049, -.00275, .00000, .00000,
3731 + .00000, .00000, .00000,
3732 + .00364, .00043, -.00226, .00000, .00000,
3733 + .00000, .00000, .00000,
3734 + .00315, .00037, -.00191, .00000, .00000,
3735 + .00000, .00000, .00000,
3736 + .00275, .00032, -.00162, .00000, .00000,
3737 + .00000, .00000, .00000,
3738 + .00236, .00026, -.00136, .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 + .00209, .00024, -.00118, .00000, .00000,
3742 + .00000, .00000, .00000,
3743 + .00187, .00021, -.00104, .00000, .00000,
3744 + .00000, .00000, .00000,
3745 + .00170, .00019, -.00093, .00000, .00000,
3746 + .00000, .00000, .00000,
3747 + .00140, .00016, -.00074, .00000, .00000,
3748 + .00000, .00000, .00000,
3749 + .00120, .00014, -.00061, .00000, .00000,
3750 + .00000, .00000, .00000,
3751 + .00101, .00011, -.00050, .00000, .00000,
3752 + .00000, .00000, .00000,
3753 + .00084, .00009, -.00040, .00000, .00000,
3754 + .00000, .00000, .00000,
3755 + .00072, .00007, -.00033, .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, .00005, -.00023, .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, .00003, -.00014, .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, .00001, -.00006, .00000, .00000,
3778 + .00000, .00000, .00000,
3779 + .00017, .00001, -.00006, .00000, .00000,
3780 + .00000, .00000, .00000,
3781 + .00016, .00001, -.00005, .00000, .00000,
3782 + .00000, .00000, .00000,
3783 + .00014, .00001, -.00004, .00000, .00000,
3784 + .00000, .00000, .00000,
3785 + .00012, .00001, -.00004, .00000, .00000,
3786 + .00000, .00000, .00000,
3787 + .00011, .00001, -.00003, .00000, .00000,
3788 + .00000, .00000, .00000,
3789 + .00010, .00001, -.00003, .00000, .00000,
3790 + .00000, .00000, .00000 /
3791 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
3792 + .00009, .00001, -.00003, .00000, .00000,
3793 + .00000, .00000, .00000,
3794 + .00008, .00001, -.00002, .00000, .00000,
3795 + .00000, .00000, .00000,
3796 + .00008, .00001, -.00002, .00000, .00000,
3797 + .00000, .00000, .00000,
3798 + .00007, .00001, -.00002, .00000, .00000,
3799 + .00000, .00000, .00000,
3800 + .00007, .00001, -.00002, .00000, .00000,
3801 + .00000, .00000, .00000 /
3802 data xx/1d-5,2d-5,4d-5,6d-5,8d-5,
3803 . 1d-4,2d-4,4d-4,6d-4,8d-4,
3804 . 1d-3,2d-3,4d-3,6d-3,8d-3,
3805 . 1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2,
3806 . .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0,
3807 . .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0,
3808 . .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0,
3810 data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1,
3811 . 1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2,
3812 . 1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4,
3813 . 1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6,
3814 . 1.8d6,3.2d6,5.6d6,1d7/
3815 data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/
3816 data n0/3,4,5,9,9,9,9,9/
3817 DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
3822 if(init.ne.0) goto 10
3823 C open(unit=1,file='cor02dis.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