2 subroutine sfmrs_99d11(x,qsq,upv,dnv,usea,dsea,str,chm,bot,glu)
4 #include "pdf/impdp.inc"
6 parameter(nx=49,nq=37,ntenth=23,np=8)
8 #include "pdf/expdp.inc"
9 + f(np,nx,nq+1),qq(nq),xx(nx),g(np),n0(np)
10 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,8)/
11 + .00643, .00286, 1.14446, .88535, .00000,
12 + .00000, .47531, .89745,
13 + .00656, .00291, 2.37217, .92504, .00000,
14 + .00000, .51979, .93722,
15 + .00675, .00299, 4.68859, 1.00687, .06115,
16 + .00000, .60845, 1.01914,
17 + .00690, .00306, 6.85114, 1.08200, .15939,
18 + .00000, .68839, 1.09432,
19 + .00706, .00312, 9.65336, 1.17892, .26390,
20 + .00000, .79027, 1.19129,
21 + .00719, .00318, 12.52149, 1.27669, .36740,
22 + .00000, .89222, 1.28910,
23 + .00732, .00324, 15.75260, 1.38241, .48220,
24 + .00000, 1.00186, 1.39484,
25 + .00747, .00330, 19.73471, 1.50833, .61997,
26 + .00000, 1.13186, 1.52079 /
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 + .00758, .00336, 23.61896, 1.63105, .74972,
29 + .00000, 1.25806, 1.64352,
30 + .00770, .00341, 27.79681, 1.76091, .88701,
31 + .00000, 1.39121, 1.77340,
32 + .00780, .00346, 31.46172, 1.87174, 1.00625,
33 + .00000, 1.50460, 1.88422,
34 + .00801, .00356, 40.19745, 2.13484, 1.28392,
35 + .00000, 1.77307, 2.14734,
36 + .00819, .00365, 47.94481, 2.38893, 1.54993,
37 + .35871, 2.03164, 2.40142,
38 + .00840, .00375, 58.09385, 2.70650, 1.88252,
39 + .74530, 2.35410, 2.71898,
40 + .00861, .00385, 70.04822, 3.07516, 2.26773,
41 + 1.15010, 2.72773, 3.08763,
42 + .00882, .00395, 82.14747, 3.44491, 2.65335,
43 + 1.55548, 3.10188, 3.45736 /
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 + .00903, .00405, 95.63206, 3.85452, 3.08015,
46 + 2.00230, 3.51580, 3.86694,
47 + .00920, .00413, 107.76947, 4.22306, 3.46230,
48 + 2.39751, 3.88786, 4.23545,
49 + .00941, .00424, 123.64727, 4.70582, 3.96109,
50 + 2.91113, 4.37480, 4.71817,
51 + .00960, .00433, 138.86093, 5.16774, 4.43881,
52 + 3.40545, 4.84033, 5.18007,
53 + .00979, .00443, 153.79768, 5.62142, 4.90798,
54 + 3.89126, 5.29725, 5.63371,
55 + .01001, .00454, 173.89207, 6.23698, 5.54072,
56 + 4.53956, 5.91686, 6.24923,
57 + .01023, .00466, 194.17670, 6.86031, 6.18165,
58 + 5.19815, 6.54389, 6.87249,
59 + .01043, .00476, 214.49835, 7.48609, 6.82597,
60 + 5.86268, 7.17309, 7.49825 /
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 + .01065, .00486, 235.70280, 8.14767, 7.50275,
63 + 6.55320, 7.83800, 8.15978,
64 + .01085, .00497, 257.69163, 8.83610, 8.20807,
65 + 7.27593, 8.52962, 8.84815,
66 + .01105, .00507, 279.56451, 9.52519, 8.91367,
67 + 7.99880, 9.22170, 9.53720,
68 + .01123, .00517, 300.91295, 10.20506, 9.60768,
69 + 8.70677, 9.90431, 10.21701,
70 + .01142, .00527, 323.47764, 10.92539, 10.34451,
71 + 9.46155, 10.62737, 10.93730,
72 + .01162, .00536, 346.21507, 11.66127, 11.09406,
73 + 10.22452, 11.36588, 11.67314,
74 + .01180, .00546, 368.92585, 12.39730, 11.84573,
75 + 10.99343, 12.10437, 12.40911,
76 + .01198, .00555, 390.78066, 13.11557, 12.57629,
77 + 11.73637, 12.82493, 13.12733 /
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 + .01215, .00565, 413.77109, 13.87305, 13.34807,
80 + 12.52388, 13.58470, 13.88477,
81 + .01233, .00573, 436.94658, 14.64485, 14.13291,
82 + 13.32262, 14.35872, 14.65652,
83 + .01250, .00582, 459.72822, 15.40844, 14.90930,
84 + 14.11291, 15.12440, 15.42007,
85 + .01266, .00591, 482.01725, 16.15924, 15.67308,
86 + 14.89134, 15.87716, 16.17082,
87 + .01283, .00600, 504.79942, 16.93635, 16.46147,
88 + 15.69178, 16.65622, 16.94788 /
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 + .00873, .00394, 1.05603, .75097, .00000,
91 + .00000, .40316, .75806,
92 + .00892, .00402, 2.16348, .78758, .00000,
93 + .00000, .44348, .79472,
94 + .00918, .00414, 4.20749, .85983, .05384,
95 + .00000, .52101, .86700,
96 + .00938, .00423, 6.07932, .92455, .13815,
97 + .00000, .58945, .93175,
98 + .00960, .00433, 8.46498, 1.00651, .22629,
99 + .00000, .67525, 1.01375,
100 + .00978, .00442, 10.87119, 1.08808, .31260,
101 + .00000, .76004, 1.09532,
102 + .00996, .00450, 13.54926, 1.17548, .40745,
103 + .00000, .85047, 1.18274,
104 + .01015, .00460, 16.81091, 1.27873, .52027,
105 + .00000, .95686, 1.28601 /
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 + .01032, .00468, 19.95607, 1.37847, .62558,
108 + .00000, 1.05927, 1.38575,
109 + .01049, .00476, 23.30626, 1.48329, .73623,
110 + .00000, 1.16663, 1.49058,
111 + .01062, .00482, 26.22195, 1.57230, .83177,
112 + .00000, 1.25763, 1.57960,
113 + .01090, .00495, 33.09720, 1.78191, 1.05241,
114 + .00000, 1.47135, 1.78921,
115 + .01115, .00509, 39.09176, 1.98248, 1.26175,
116 + .28252, 1.67537, 1.98978,
117 + .01143, .00523, 46.86115, 2.23105, 1.52116,
118 + .58419, 1.92769, 2.23834,
119 + .01174, .00537, 55.89554, 2.51698, 1.81880,
120 + .89641, 2.21744, 2.52427,
121 + .01201, .00551, 64.92972, 2.80133, 2.11413,
122 + 1.20626, 2.50515, 2.80860 /
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 + .01229, .00566, 74.88704, 3.11381, 2.43838,
125 + 1.54493, 2.82096, 3.12108,
126 + .01253, .00577, 83.75978, 3.39291, 2.72655,
127 + 1.84214, 3.10276, 3.40017,
128 + .01282, .00593, 95.25328, 3.75588, 3.09993,
129 + 2.22552, 3.46892, 3.76312,
130 + .01308, .00605, 106.16109, 4.10073, 3.45502,
131 + 2.59190, 3.81654, 4.10795,
132 + .01332, .00618, 116.78076, 4.43730, 3.80158,
133 + 2.94972, 4.15560, 4.44450,
134 + .01363, .00635, 130.93309, 4.89072, 4.26560,
135 + 3.42364, 4.61212, 4.89790,
136 + .01392, .00649, 145.08583, 5.34657, 4.73232,
137 + 3.90173, 5.07082, 5.35374,
138 + .01420, .00664, 159.14525, 5.80128, 5.19855,
139 + 4.38115, 5.52813, 5.80842 /
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 + .01449, .00679, 173.68530, 6.27871, 5.68486,
142 + 4.87569, 6.00812, 6.28582,
143 + .01477, .00694, 188.64797, 6.77253, 6.18876,
144 + 5.39040, 6.50440, 6.77961,
145 + .01503, .00707, 203.42125, 7.26396, 6.68995,
146 + 5.90227, 6.99811, 7.27102,
147 + .01528, .00720, 217.73390, 7.74601, 7.18008,
148 + 6.40064, 7.48228, 7.75305,
149 + .01554, .00734, 232.76927, 8.25425, 7.69799,
150 + 6.92960, 7.99261, 8.26127,
151 + .01579, .00747, 247.80967, 8.77053, 8.22184,
152 + 7.46108, 8.51091, 8.77754,
153 + .01604, .00761, 262.75084, 9.28460, 8.74495,
154 + 7.99463, 9.02688, 9.29159,
155 + .01627, .00773, 277.03271, 9.78370, 9.25069,
156 + 8.50729, 9.52773, 9.79065 /
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 + .01651, .00786, 291.98255, 10.30787, 9.78290,
159 + 9.04875, 10.05367, 10.31481,
160 + .01674, .00798, 306.96229, 10.83946, 10.32157,
161 + 9.59528, 10.58696, 10.84637,
162 + .01697, .00810, 321.61232, 11.36319, 10.85228,
163 + 10.13388, 11.11231, 11.37009,
164 + .01719, .00822, 335.87805, 11.87619, 11.37244,
165 + 10.66251, 11.62682, 11.88307,
166 + .01740, .00834, 350.37756, 12.40486, 11.90698,
167 + 11.20356, 12.15698, 12.41172 /
168 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
169 + .01187, .00544, .97357, .63721, .00000,
170 + .00000, .34250, .64086,
171 + .01211, .00555, 1.97239, .67068, .00000,
172 + .00000, .37884, .67434,
173 + .01247, .00573, 3.77488, .73422, .04761,
174 + .00000, .44649, .73791,
175 + .01275, .00587, 5.39372, .78986, .11986,
176 + .00000, .50499, .79355,
177 + .01305, .00600, 7.42228, .85904, .19408,
178 + .00000, .57712, .86273,
179 + .01329, .00614, 9.43772, .92694, .26591,
180 + .00000, .64749, .93063,
181 + .01354, .00626, 11.65326, .99903, .34415,
182 + .00000, .72192, 1.00274,
183 + .01381, .00638, 14.31911, 1.08348, .43637,
184 + .00000, .80877, 1.08718 /
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 + .01403, .00650, 16.85960, 1.16432, .52166,
187 + .00000, .89165, 1.16802,
188 + .01426, .00662, 19.53891, 1.24868, .61064,
189 + .00000, .97797, 1.25237,
190 + .01444, .00671, 21.85201, 1.31995, .68704,
191 + .00000, 1.05076, 1.32366,
192 + .01483, .00691, 27.24656, 1.48640, .86195,
193 + .00000, 1.22034, 1.49009,
194 + .01517, .00708, 31.86776, 1.64418, 1.02632,
195 + .22193, 1.38075, 1.64787,
196 + .01556, .00728, 37.79199, 1.83799, 1.22816,
197 + .45711, 1.57744, 1.84169,
198 + .01597, .00750, 44.59061, 2.05889, 1.45752,
199 + .69766, 1.80124, 2.06258,
200 + .01635, .00769, 51.30546, 2.27664, 1.68310,
201 + .93422, 2.02157, 2.28033 /
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 + .01673, .00790, 58.62266, 2.51403, 1.92874,
204 + 1.19059, 2.26148, 2.51771,
205 + .01705, .00806, 65.07582, 2.72447, 2.14538,
206 + 1.41378, 2.47396, 2.72814,
207 + .01745, .00827, 73.35094, 2.99612, 2.42399,
208 + 1.69949, 2.74805, 2.99979,
209 + .01780, .00845, 81.12773, 3.25235, 2.68707,
210 + 1.97060, 3.00639, 3.25602,
211 + .01813, .00863, 88.63420, 3.50084, 2.94219,
212 + 2.23367, 3.25678, 3.50451,
213 + .01855, .00885, 98.54063, 3.83317, 3.28127,
214 + 2.57943, 3.59145, 3.83684,
215 + .01894, .00906, 108.35231, 4.16486, 3.61987,
216 + 2.92574, 3.92531, 4.16851,
217 + .01932, .00927, 118.01532, 4.49354, 3.95594,
218 + 3.27084, 4.25596, 4.49718 /
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 + .01969, .00947, 127.91659, 4.83623, 4.30399,
221 + 3.62413, 4.60061, 4.83988,
222 + .02007, .00967, 138.02579, 5.18854, 4.66249,
223 + 3.98973, 4.95478, 5.19218,
224 + .02042, .00986, 147.93081, 5.53706, 5.01698,
225 + 4.35120, 5.30502, 5.54069,
226 + .02077, .01005, 157.45325, 5.87692, 5.36158,
227 + 4.70098, 5.64650, 5.88055,
228 + .02111, .01023, 167.39429, 6.23346, 5.72400,
229 + 5.07055, 6.00461, 6.23708,
230 + .02146, .01042, 177.26260, 6.59354, 6.08838,
231 + 5.43957, 6.36623, 6.59715,
232 + .02179, .01060, 187.01181, 6.95045, 6.45070,
233 + 5.80856, 6.72459, 6.95407,
234 + .02209, .01077, 196.26510, 7.29513, 6.79908,
235 + 6.16107, 7.07061, 7.29875 /
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 + .02241, .01093, 205.90277, 7.65564, 7.16427,
238 + 6.53202, 7.43245, 7.65925,
239 + .02272, .01110, 215.49898, 8.01949, 7.53209,
240 + 6.90457, 7.79759, 8.02309,
241 + .02303, .01127, 224.83391, 8.37644, 7.89296,
242 + 7.27021, 8.15576, 8.38003,
243 + .02332, .01143, 233.88043, 8.72470, 8.24532,
244 + 7.62777, 8.50518, 8.72830,
245 + .02361, .01159, 243.02012, 9.08198, 8.60576,
246 + 7.99197, 8.86360, 9.08557 /
247 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
248 + .01419, .00657, .92776, .57905, .00000,
249 + .00000, .31173, .58130,
250 + .01448, .00672, 1.86816, .61067, .00000,
251 + .00000, .34582, .61290,
252 + .01491, .00694, 3.54235, .66950, .04444,
253 + .00000, .40815, .67174,
254 + .01525, .00711, 5.02891, .72032, .11039,
255 + .00000, .46146, .72257,
256 + .01559, .00728, 6.87283, .78289, .17741,
257 + .00000, .52655, .78513,
258 + .01591, .00744, 8.68840, .84379, .24186,
259 + .00000, .58958, .84604,
260 + .01621, .00758, 10.66950, .90811, .31168,
261 + .00000, .65590, .91036,
262 + .01652, .00775, 13.03604, .98307, .39352,
263 + .00000, .73293, .98531 /
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 + .01680, .00789, 15.27542, 1.05443, .46883,
266 + .00000, .80604, 1.05668,
267 + .01706, .00804, 17.62314, 1.12860, .54706,
268 + .00000, .88187, 1.13084,
269 + .01728, .00814, 19.64023, 1.19108, .61400,
270 + .00000, .94564, 1.19332,
271 + .01775, .00839, 24.31375, 1.33622, .76649,
272 + .00000, 1.09348, 1.33847,
273 + .01816, .00860, 28.27499, 1.47305, .90896,
274 + .19233, 1.23256, 1.47530,
275 + .01862, .00885, 33.31983, 1.64027, 1.08299,
276 + .39549, 1.40222, 1.64251,
277 + .01912, .00910, 39.06370, 1.82980, 1.27963,
278 + .60184, 1.59424, 1.83203,
279 + .01957, .00935, 44.69486, 2.01566, 1.47201,
280 + .80369, 1.78228, 2.01790 /
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 + .02003, .00959, 50.78944, 2.21729, 1.68046,
283 + 1.02133, 1.98607, 2.21954,
284 + .02041, .00979, 56.13104, 2.39525, 1.86348,
285 + 1.20992, 2.16577, 2.39749,
286 + .02089, .01005, 62.93931, 2.62396, 2.09783,
287 + 1.45024, 2.39655, 2.62620,
288 + .02130, .01028, 69.30013, 2.83876, 2.31814,
289 + 1.67731, 2.61315, 2.84101,
290 + .02169, .01049, 75.40816, 3.04629, 2.53101,
291 + 1.89682, 2.82229, 3.04854,
292 + .02219, .01075, 83.42176, 3.32264, 2.81265,
293 + 2.18398, 3.10063, 3.32488,
294 + .02267, .01102, 91.31287, 3.59725, 3.09272,
295 + 2.47040, 3.37708, 3.59950,
296 + .02312, .01125, 99.04431, 3.86831, 3.36961,
297 + 2.75472, 3.64982, 3.87056 /
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 + .02357, .01150, 106.92179, 4.14975, 3.65516,
300 + 3.04448, 3.93291, 4.15200,
301 + .02401, .01175, 114.92701, 4.43804, 3.94823,
302 + 3.34332, 4.22278, 4.44029,
303 + .02443, .01198, 122.73427, 4.72222, 4.23702,
304 + 3.63774, 4.50843, 4.72448,
305 + .02484, .01220, 130.20485, 4.99836, 4.51675,
306 + 3.92160, 4.78594, 5.00062,
307 + .02525, .01242, 137.97483, 5.28720, 4.81011,
308 + 4.22071, 5.07613, 5.28947,
309 + .02566, .01264, 145.65180, 5.57790, 5.10400,
310 + 4.51825, 5.36813, 5.58017,
311 + .02605, .01286, 153.21122, 5.86527, 5.39550,
312 + 4.81507, 5.65672, 5.86754,
313 + .02642, .01306, 160.35487, 6.14190, 5.67485,
314 + 5.09764, 5.93448, 6.14418 /
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 + .02679, .01327, 167.77302, 6.43052, 5.96701,
317 + 5.39435, 6.22426, 6.43281,
318 + .02717, .01348, 175.13079, 6.72098, 6.26039,
319 + 5.69143, 6.51580, 6.72326,
320 + .02753, .01367, 182.26524, 7.00520, 6.54752,
321 + 5.98228, 6.80107, 7.00750,
322 + .02787, .01386, 189.15919, 7.28187, 6.82726,
323 + 6.26609, 7.07872, 7.28418,
324 + .02822, .01405, 196.09812, 7.56493, 7.11261,
325 + 6.55431, 7.36275, 7.56724 /
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 + .01610, .00752, .89637, .54118, .00000,
328 + .00000, .29179, .54266,
329 + .01643, .00769, 1.79747, .57148, .00000,
330 + .00000, .32432, .57295,
331 + .01693, .00794, 3.38605, .62710, .04238,
332 + .00000, .38310, .62856,
333 + .01731, .00813, 4.78514, .67474, .10415,
334 + .00000, .43296, .67621,
335 + .01771, .00834, 6.50792, .73292, .16646,
336 + .00000, .49343, .73440,
337 + .01806, .00852, 8.19316, .78926, .22609,
338 + .00000, .55168, .79074,
339 + .01840, .00870, 10.02226, .84853, .29044,
340 + .00000, .61272, .84999,
341 + .01875, .00889, 12.19584, .91735, .36559,
342 + .00000, .68340, .91882 /
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 + .01907, .00906, 14.24214, .98260, .43448,
345 + .00000, .75024, .98408,
346 + .01938, .00921, 16.37824, 1.05023, .50582,
347 + .00000, .81936, 1.05170,
348 + .01964, .00935, 18.20716, 1.10707, .56672,
349 + .00000, .87736, 1.10853,
350 + .02016, .00962, 22.42468, 1.23865, .70496,
351 + .00000, 1.01134, 1.24012,
352 + .02063, .00987, 25.97236, 1.36219, .83360,
353 + .17354, 1.13690, 1.36367,
354 + .02116, .01016, 30.46877, 1.51262, .99011,
355 + .35657, 1.28951, 1.51409,
356 + .02172, .01046, 35.55909, 1.68242, 1.16626,
357 + .54156, 1.46154, 1.68390,
358 + .02223, .01073, 40.52279, 1.84833, 1.33794,
359 + .72184, 1.62940, 1.84981 /
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 + .02276, .01102, 45.86854, 2.02768, 1.52332,
362 + .91550, 1.81069, 2.02918,
363 + .02319, .01126, 50.53285, 2.18547, 1.68554,
364 + 1.08274, 1.97003, 2.18697,
365 + .02373, .01154, 56.45174, 2.38763, 1.89261,
366 + 1.29518, 2.17404, 2.38913,
367 + .02421, .01180, 61.95820, 2.57692, 2.08668,
368 + 1.49529, 2.36493, 2.57842,
369 + .02464, .01204, 67.22610, 2.75929, 2.27368,
370 + 1.68821, 2.54873, 2.76081,
371 + .02522, .01235, 74.10799, 3.00138, 2.52031,
372 + 1.93974, 2.79260, 3.00290,
373 + .02575, .01264, 80.85629, 3.24122, 2.76481,
374 + 2.18987, 3.03407, 3.24274,
375 + .02626, .01292, 87.44339, 3.47728, 3.00588,
376 + 2.43750, 3.27164, 3.47881 /
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 + .02677, .01320, 94.12738, 3.72164, 3.25370,
379 + 2.68903, 3.51747, 3.72318,
380 + .02727, .01348, 100.89659, 3.97130, 3.50741,
381 + 2.94779, 3.76854, 3.97285,
382 + .02776, .01375, 107.47630, 4.21678, 3.75679,
383 + 3.20211, 4.01533, 4.21834,
384 + .02821, .01400, 113.75072, 4.45471, 3.99773,
385 + 3.44665, 4.25447, 4.45628,
386 + .02868, .01425, 120.25905, 4.70305, 4.24988,
387 + 3.70382, 4.50403, 4.70463,
388 + .02913, .01451, 126.66725, 4.95236, 4.50185,
389 + 3.95894, 4.75449, 4.95395,
390 + .02957, .01475, 132.96256, 5.19835, 4.75130,
391 + 4.21302, 5.00157, 5.19995,
392 + .02999, .01498, 138.89246, 5.43458, 4.98979,
393 + 4.45429, 5.23883, 5.43619 /
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 + .03041, .01522, 145.03704, 5.68064, 5.23879,
396 + 4.70723, 5.48590, 5.68227,
397 + .03083, .01545, 151.11426, 5.92774, 5.48831,
398 + 4.95993, 5.73396, 5.92937,
399 + .03124, .01567, 156.99319, 6.16910, 5.73208,
400 + 5.20690, 5.97625, 6.17074,
401 + .03163, .01589, 162.66194, 6.40365, 5.96918,
402 + 5.44751, 6.21168, 6.40530,
403 + .03201, .01611, 168.35186, 6.64314, 6.21053,
404 + 5.69132, 6.45203, 6.64479 /
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 + .01776, .00835, .87298, .51358, .00000,
407 + .00000, .27730, .51456,
408 + .01813, .00854, 1.74479, .54287, .00000,
409 + .00000, .30865, .54384,
410 + .01868, .00882, 3.26984, .59608, .04089,
411 + .00000, .36478, .59705,
412 + .01910, .00905, 4.60465, .64135, .09957,
413 + .00000, .41209, .64232,
414 + .01955, .00928, 6.23873, .69635, .15842,
415 + .00000, .46919, .69732,
416 + .01993, .00948, 7.82907, .74935, .21454,
417 + .00000, .52394, .75032,
418 + .02031, .00968, 9.54791, .80493, .27492,
419 + .00000, .58119, .80592,
420 + .02071, .00989, 11.58209, .86931, .34522,
421 + .00000, .64726, .87029 /
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, .01008, 13.48946, .93016, .40947,
424 + .00000, .70956, .93114,
425 + .02140, .01026, 15.47382, .99307, .47586,
426 + .00000, .77384, .99405,
427 + .02167, .01040, 17.16821, 1.04586, .53243,
428 + .00000, .82770, 1.04685,
429 + .02226, .01072, 21.06100, 1.16772, .66047,
430 + .00000, .95178, 1.16871,
431 + .02277, .01099, 24.31646, 1.28179, .77925,
432 + .16011, 1.06769, 1.28278,
433 + .02337, .01130, 28.42670, 1.42025, .92334,
434 + .32887, 1.20817, 1.42124,
435 + .02398, .01165, 33.05889, 1.57607, 1.08499,
436 + .49877, 1.36604, 1.57709,
437 + .02455, .01195, 37.55680, 1.72788, 1.24207,
438 + .66384, 1.51963, 1.72890 /
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 + .02512, .01226, 42.38211, 1.89155, 1.41121,
441 + .84067, 1.68507, 1.89257,
442 + .02561, .01253, 46.57739, 2.03518, 1.55887,
443 + .99299, 1.83013, 2.03621,
444 + .02620, .01285, 51.88260, 2.21872, 1.74685,
445 + 1.18596, 2.01538, 2.21977,
446 + .02672, .01313, 56.80166, 2.39018, 1.92263,
447 + 1.36731, 2.18830, 2.39124,
448 + .02721, .01340, 61.49380, 2.55503, 2.09163,
449 + 1.54177, 2.35448, 2.55609,
450 + .02783, .01375, 67.60276, 2.77331, 2.31398,
451 + 1.76863, 2.57438, 2.77439,
452 + .02842, .01407, 73.57335, 2.98903, 2.53387,
453 + 1.99370, 2.79161, 2.99012,
454 + .02898, .01438, 79.38411, 3.20089, 2.75021,
455 + 2.21603, 3.00485, 3.20200 /
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 + .02954, .01469, 85.26112, 3.41968, 2.97206,
458 + 2.44129, 3.22499, 3.42080,
459 + .03010, .01500, 91.19704, 3.64276, 3.19874,
460 + 2.67259, 3.44936, 3.64389,
461 + .03063, .01530, 96.95153, 3.86166, 3.42111,
462 + 2.89947, 3.66947, 3.86281,
463 + .03113, .01557, 102.42401, 4.07341, 3.63551,
464 + 3.11715, 3.88234, 4.07458,
465 + .03164, .01586, 108.08861, 4.29407, 3.85953,
466 + 3.34573, 4.10409, 4.29524,
467 + .03214, .01614, 113.65060, 4.51513, 4.08293,
468 + 3.57200, 4.32623, 4.51633,
469 + .03262, .01641, 119.10445, 4.73294, 4.30381,
470 + 3.79706, 4.54504, 4.73414,
471 + .03308, .01666, 124.22854, 4.94172, 4.51456,
472 + 4.01033, 4.75475, 4.94294 /
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 + .03355, .01692, 129.52917, 5.15889, 4.73431,
475 + 4.23365, 4.97285, 5.16013,
476 + .03401, .01718, 134.75967, 5.37661, 4.95415,
477 + 4.45638, 5.19146, 5.37786,
478 + .03445, .01742, 139.81027, 5.58896, 5.16863,
479 + 4.67374, 5.40467, 5.59023,
480 + .03487, .01766, 144.67207, 5.79507, 5.37697,
481 + 4.88525, 5.61157, 5.79636,
482 + .03531, .01790, 149.54116, 6.00519, 5.58870,
483 + 5.09921, 5.82248, 6.00648 /
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 + .02417, .01164, .80374, .43728, .00000,
486 + .00000, .23770, .43745,
487 + .02467, .01190, 1.59118, .46340, .00000,
488 + .00000, .26544, .46358,
489 + .02542, .01231, 2.93418, .50948, .03679,
490 + .00000, .31381, .50966,
491 + .02600, .01262, 4.08659, .54791, .08669,
492 + .00000, .35387, .54811,
493 + .02660, .01294, 5.47142, .59382, .13579,
494 + .00000, .40143, .59403,
495 + .02713, .01322, 6.79718, .63749, .18207,
496 + .00000, .44646, .63769,
497 + .02763, .01350, 8.21086, .68284, .23143,
498 + .00000, .49310, .68306,
499 + .02819, .01380, 9.86202, .73490, .28837,
500 + .00000, .54649, .73513 /
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 + .02866, .01406, 11.39038, .78365, .33993,
503 + .00000, .59638, .78389,
504 + .02912, .01432, 12.96327, .83369, .39281,
505 + .00000, .64747, .83393,
506 + .02949, .01452, 14.29469, .87544, .43763,
507 + .00000, .69008, .87571,
508 + .03029, .01496, 17.31755, .97099, .53817,
509 + .00000, .78735, .97128,
510 + .03100, .01534, 19.79784, 1.05955, .63053,
511 + .12378, .87735, 1.05986,
512 + .03179, .01579, 22.89036, 1.16607, .74152,
513 + .25456, .98543, 1.16640,
514 + .03264, .01626, 26.32562, 1.28479, .86481,
515 + .38464, 1.10573, 1.28514,
516 + .03340, .01669, 29.61629, 1.39936, .98350,
517 + .50984, 1.22170, 1.39974 /
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 + .03418, .01712, 33.10270, 1.52185, 1.11023,
520 + .64279, 1.34556, 1.52226,
521 + .03484, .01749, 36.09943, 1.62848, 1.21995,
522 + .75634, 1.45330, 1.62891,
523 + .03563, .01794, 39.84688, 1.76369, 1.35856,
524 + .89906, 1.58983, 1.76415,
525 + .03634, .01834, 43.28434, 1.88903, 1.48717,
526 + 1.03218, 1.71631, 1.88952,
527 + .03700, .01871, 46.53235, 2.00874, 1.61001,
528 + 1.15938, 1.83703, 2.00925,
529 + .03784, .01918, 50.71486, 2.16600, 1.77034,
530 + 1.32343, 1.99556, 2.16656,
531 + .03863, .01963, 54.75934, 2.32023, 1.92768,
532 + 1.48493, 2.15096, 2.32081,
533 + .03939, .02005, 58.65833, 2.47065, 2.08143,
534 + 1.64342, 2.30245, 2.47128 /
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 + .04015, .02048, 62.55994, 2.62483, 2.23786,
537 + 1.80266, 2.45767, 2.62548,
538 + .04089, .02091, 66.46664, 2.78101, 2.39670,
539 + 1.96518, 2.61485, 2.78170,
540 + .04159, .02131, 70.22150, 2.93331, 2.55154,
541 + 2.12358, 2.76807, 2.93402,
542 + .04227, .02168, 73.76060, 3.07968, 2.69985,
543 + 2.27454, 2.91531, 3.08043,
544 + .04295, .02207, 77.39920, 3.23142, 2.85406,
545 + 2.43231, 3.06791, 3.23220,
546 + .04362, .02246, 80.93934, 3.38247, 3.00681,
547 + 2.58740, 3.21978, 3.38328,
548 + .04427, .02282, 84.39031, 3.53060, 3.15716,
549 + 2.74101, 3.36868, 3.53143,
550 + .04487, .02317, 87.60490, 3.67174, 3.29973,
551 + 2.88563, 3.51054, 3.67261 /
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 + .04550, .02352, 90.91236, 3.81793, 3.44781,
554 + 3.03649, 3.65745, 3.81883,
555 + .04610, .02387, 94.15145, 3.96371, 3.59513,
556 + 3.18610, 3.80393, 3.96464,
557 + .04669, .02421, 97.26017, 4.10525, 3.73820,
558 + 3.33146, 3.94613, 4.10621,
559 + .04726, .02452, 100.23656, 4.24206, 3.87662,
560 + 3.47233, 4.08355, 4.24305,
561 + .04783, .02485, 103.19506, 4.38082, 4.01656,
562 + 3.61406, 4.22292, 4.38183 /
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 + .03303, .01632, .74244, .37397, .00000,
565 + .00000, .20545, .37423,
566 + .03370, .01668, 1.45515, .39687, .00000,
567 + .00000, .22968, .39715,
568 + .03472, .01724, 2.63690, .43624, .03346,
569 + .00000, .27092, .43657,
570 + .03548, .01765, 3.63061, .46852, .07555,
571 + .00000, .30449, .46887,
572 + .03629, .01812, 4.80116, .50645, .11616,
573 + .00000, .34376, .50684,
574 + .03700, .01851, 5.90222, .54206, .15402,
575 + .00000, .38047, .54246,
576 + .03769, .01890, 7.05955, .57870, .19402,
577 + .00000, .41816, .57914,
578 + .03843, .01932, 8.39245, .62040, .23976,
579 + .00000, .46093, .62087 /
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 + .03908, .01968, 9.60933, .65907, .28080,
582 + .00000, .50052, .65958,
583 + .03970, .02003, 10.84731, .69848, .32258,
584 + .00000, .54078, .69901,
585 + .04020, .02031, 11.88558, .73119, .35779,
586 + .00000, .57418, .73175,
587 + .04128, .02094, 14.21342, .80538, .43610,
588 + .00000, .64975, .80598,
589 + .04223, .02147, 16.08599, .87347, .50731,
590 + .09416, .71900, .87412,
591 + .04331, .02208, 18.38802, .95458, .59210,
592 + .19489, .80138, .95529,
593 + .04443, .02274, 20.90602, 1.04408, .68533,
594 + .29381, .89214, 1.04484,
595 + .04547, .02334, 23.28322, 1.12964, .77421,
596 + .38811, .97883, 1.13045 /
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 + .04653, .02394, 25.76838, 1.22030, .86828,
599 + .48736, 1.07059, 1.22117,
600 + .04741, .02444, 27.87840, 1.29859, .94907,
601 + .57140, 1.14977, 1.29950,
602 + .04848, .02506, 30.48541, 1.39704, 1.05026,
603 + .67616, 1.24928, 1.39801,
604 + .04943, .02561, 32.84933, 1.48759, 1.14345,
605 + .77312, 1.34075, 1.48863,
606 + .05032, .02613, 35.06037, 1.57348, 1.23182,
607 + .86512, 1.42746, 1.57455,
608 + .05145, .02677, 37.87367, 1.68538, 1.34620,
609 + .98274, 1.54039, 1.68653,
610 + .05251, .02739, 40.56305, 1.79426, 1.45755,
611 + 1.09763, 1.65020, 1.79546,
612 + .05352, .02797, 43.12941, 1.89968, 1.56560,
613 + 1.20959, 1.75648, 1.90095 /
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 + .05453, .02855, 45.66726, 2.00687, 1.67462,
616 + 1.32109, 1.86450, 2.00819,
617 + .05552, .02913, 48.18482, 2.11472, 1.78459,
618 + 1.43418, 1.97317, 2.11610,
619 + .05647, .02968, 50.58205, 2.21919, 1.89109,
620 + 1.54367, 2.07840, 2.22063,
621 + .05736, .03019, 52.81912, 2.31893, 1.99239,
622 + 1.64727, 2.17883, 2.32043,
623 + .05827, .03072, 55.10254, 2.42177, 2.09717,
624 + 1.75501, 2.28235, 2.42331,
625 + .05916, .03123, 57.30125, 2.52343, 2.20021,
626 + 1.86011, 2.38469, 2.52503,
627 + .06002, .03172, 59.43138, 2.62265, 2.30119,
628 + 1.96379, 2.48454, 2.62431,
629 + .06082, .03219, 61.39607, 2.71660, 2.39630,
630 + 2.06071, 2.57906, 2.71830 /
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 + .06164, .03266, 63.40602, 2.81346, 2.49466,
633 + 2.16140, 2.67651, 2.81521,
634 + .06245, .03313, 65.35750, 2.90950, 2.59195,
635 + 2.26066, 2.77311, 2.91130,
636 + .06324, .03359, 67.21790, 3.00230, 2.68598,
637 + 2.35665, 2.86646, 3.00416,
638 + .06398, .03401, 68.98856, 3.09161, 2.77659,
639 + 2.44931, 2.95627, 3.09351,
640 + .06473, .03444, 70.73311, 3.18169, 2.86764,
641 + 2.54194, 3.04685, 3.18364 /
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 + .03971, .01991, .71353, .34231, .00000,
644 + .00000, .18961, .34297,
645 + .04049, .02036, 1.38668, .36330, .00000,
646 + .00000, .21178, .36401,
647 + .04169, .02103, 2.48247, .39893, .03178,
648 + .00000, .24909, .39969,
649 + .04259, .02154, 3.39253, .42786, .06967,
650 + .00000, .27919, .42867,
651 + .04357, .02210, 4.45118, .46157, .10580,
652 + .00000, .31408, .46241,
653 + .04441, .02258, 5.43606, .49295, .13925,
654 + .00000, .34648, .49385,
655 + .04523, .02304, 6.46192, .52511, .17443,
656 + .00000, .37955, .52604,
657 + .04610, .02355, 7.63308, .56150, .21444,
658 + .00000, .41692, .56248 /
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 + .04688, .02399, 8.69308, .59508, .25014,
661 + .00000, .45131, .59610,
662 + .04761, .02442, 9.76368, .62912, .28635,
663 + .00000, .48614, .63020,
664 + .04822, .02477, 10.65643, .65731, .31676,
665 + .00000, .51493, .65842,
666 + .04949, .02550, 12.64237, .72090, .38403,
667 + .00000, .57976, .72208,
668 + .05063, .02616, 14.22070, .77891, .44485,
669 + .07935, .63881, .78015,
670 + .05192, .02691, 16.14298, .84764, .51685,
671 + .16540, .70867, .84896,
672 + .05326, .02769, 18.22529, .92299, .59555,
673 + .24926, .78517, .92440,
674 + .05449, .02841, 20.17323, .99463, .67016,
675 + .32876, .85782, .99611 /
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 + .05574, .02914, 22.19256, 1.07012, .74867,
678 + .41195, .93432, 1.07169,
679 + .05679, .02975, 23.89377, 1.13499, .81576,
680 + .48204, .99999, 1.13661,
681 + .05806, .03050, 25.97969, 1.21615, .89939,
682 + .56896, 1.08211, 1.21786,
683 + .05919, .03116, 27.85735, 1.29046, .97602,
684 + .64904, 1.15724, 1.29224,
685 + .06025, .03177, 29.60231, 1.36063, 1.04839,
686 + .72469, 1.22816, 1.36247,
687 + .06157, .03255, 31.80557, 1.45160, 1.14158,
688 + .82091, 1.32004, 1.45353,
689 + .06284, .03329, 33.89643, 1.53966, 1.23186,
690 + .91444, 1.40895, 1.54167,
691 + .06404, .03399, 35.87880, 1.62456, 1.31907,
692 + 1.00519, 1.49465, 1.62665 /
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 + .06523, .03468, 37.82408, 1.71044, 1.40662,
695 + 1.09508, 1.58129, 1.71262,
696 + .06640, .03537, 39.74236, 1.79652, 1.49457,
697 + 1.18589, 1.66809, 1.79877,
698 + .06751, .03602, 41.55799, 1.87955, 1.57939,
699 + 1.27345, 1.75181, 1.88187,
700 + .06857, .03663, 43.24131, 1.95848, 1.65973,
701 + 1.35594, 1.83137, 1.96087,
702 + .06964, .03725, 44.95167, 2.03959, 1.74257,
703 + 1.44147, 1.91311, 2.04206,
704 + .07069, .03787, 46.58717, 2.11943, 1.82366,
705 + 1.52451, 1.99356, 2.12197,
706 + .07169, .03846, 48.16558, 2.19712, 1.90291,
707 + 1.60621, 2.07183, 2.19972,
708 + .07265, .03900, 49.61165, 2.27039, 1.97724,
709 + 1.68224, 2.14562, 2.27306 /
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 + .07360, .03956, 51.08580, 2.34572, 2.05391,
712 + 1.76104, 2.22149, 2.34846,
713 + .07456, .04012, 52.50875, 2.42014, 2.12947,
714 + 1.83844, 2.29643, 2.42294,
715 + .07548, .04065, 53.85932, 2.49185, 2.20228,
716 + 1.91306, 2.36863, 2.49471,
717 + .07634, .04116, 55.13978, 2.56066, 2.27225,
718 + 1.98490, 2.43790, 2.56358,
719 + .07722, .04166, 56.39362, 2.62983, 2.34231,
720 + 2.05645, 2.50752, 2.63281 /
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 + .04525, .02294, .69982, .32170, .00000,
723 + .00000, .17947, .32286,
724 + .04614, .02344, 1.34639, .34136, .00000,
725 + .00000, .20022, .34257,
726 + .04749, .02421, 2.38415, .37444, .03063,
727 + .00000, .23484, .37572,
728 + .04851, .02480, 3.23805, .40113, .06570,
729 + .00000, .26261, .40247,
730 + .04960, .02543, 4.22197, .43205, .09881,
731 + .00000, .29463, .43344,
732 + .05055, .02599, 5.12976, .46069, .12938,
733 + .00000, .32419, .46214,
734 + .05147, .02652, 6.06894, .48992, .16138,
735 + .00000, .35429, .49142,
736 + .05247, .02710, 7.13406, .52288, .19767,
737 + .00000, .38815, .52445 /
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 + .05334, .02762, 8.09189, .55318, .22991,
740 + .00000, .41920, .55478,
741 + .05418, .02811, 9.05409, .58379, .26251,
742 + .00000, .45054, .58546,
743 + .05486, .02851, 9.85295, .60909, .28983,
744 + .00000, .47639, .61079,
745 + .05631, .02936, 11.61959, .66594, .35005,
746 + .00000, .53440, .66773,
747 + .05759, .03011, 13.01109, .71757, .40426,
748 + .06991, .58700, .71944,
749 + .05904, .03097, 14.69365, .77848, .46817,
750 + .14664, .64897, .78044,
751 + .06057, .03186, 16.50305, .84498, .53770,
752 + .22100, .71653, .84703,
753 + .06196, .03268, 18.18406, .90792, .60334,
754 + .29119, .78042, .91006 /
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 + .06337, .03352, 19.91563, .97398, .67217,
757 + .36437, .84740, .97623,
758 + .06455, .03421, 21.36586, 1.03053, .73075,
759 + .42578, .90471, 1.03285,
760 + .06599, .03506, 23.13378, 1.10103, .80350,
761 + .50165, .97610, 1.10344,
762 + .06728, .03582, 24.71644, 1.16534, .86992,
763 + .57130, 1.04118, 1.16784,
764 + .06845, .03651, 26.18009, 1.22587, .93246,
765 + .63691, 1.10242, 1.22845,
766 + .06996, .03740, 28.01733, 1.30405, 1.01267,
767 + .72000, 1.18146, 1.30673,
768 + .07139, .03823, 29.75120, 1.37946, 1.09009,
769 + .80049, 1.25766, 1.38223,
770 + .07272, .03902, 31.38701, 1.45192, 1.16465,
771 + .87833, 1.33086, 1.45479 /
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 + .07406, .03981, 32.98270, 1.52493, 1.23920,
774 + .95515, 1.40459, 1.52790,
775 + .07538, .04058, 34.54912, 1.59788, 1.31388,
776 + 1.03251, 1.47824, 1.60094,
777 + .07664, .04133, 36.02488, 1.66805, 1.38568,
778 + 1.10688, 1.54904, 1.67119,
779 + .07782, .04202, 37.38615, 1.73453, 1.45345,
780 + 1.17671, 1.61611, 1.73775,
781 + .07902, .04272, 38.76451, 1.80267, 1.52317,
782 + 1.24893, 1.68486, 1.80598,
783 + .08020, .04340, 40.07532, 1.86953, 1.59119,
784 + 1.31882, 1.75229, 1.87292,
785 + .08132, .04407, 41.33674, 1.93445, 1.65752,
786 + 1.38745, 1.81774, 1.93792,
787 + .08239, .04469, 42.48623, 1.99547, 1.71955,
788 + 1.45110, 1.87928, 1.99902 /
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 + .08346, .04532, 43.65487, 2.05810, 1.78340,
791 + 1.51696, 1.94241, 2.06172,
792 + .08452, .04594, 44.77770, 2.11979, 1.84614,
793 + 1.58145, 2.00459, 2.12350,
794 + .08555, .04653, 45.83975, 2.17910, 1.90648,
795 + 1.64349, 2.06436, 2.18288,
796 + .08652, .04710, 46.84366, 2.23590, 1.96434,
797 + 1.70311, 2.12160, 2.23975,
798 + .08749, .04767, 47.82180, 2.29283, 2.02211,
799 + 1.76231, 2.17896, 2.29675 /
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 + .05012, .02572, .69649, .30762, .00000,
802 + .00000, .17225, .30886,
803 + .05110, .02628, 1.32290, .32622, .00000,
804 + .00000, .19187, .32753,
805 + .05257, .02714, 2.31676, .35733, .02968,
806 + .00000, .22440, .35872,
807 + .05370, .02779, 3.12821, .38232, .06258,
808 + .00000, .25039, .38377,
809 + .05491, .02850, 4.05573, .41112, .09346,
810 + .00000, .28020, .41265,
811 + .05595, .02912, 4.90552, .43771, .12184,
812 + .00000, .30765, .43930,
813 + .05697, .02971, 5.77966, .46476, .15151,
814 + .00000, .33548, .46641,
815 + .05807, .03036, 6.76555, .49518, .18503,
816 + .00000, .36674, .49690 /
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 + .05903, .03093, 7.64736, .52305, .21472,
819 + .00000, .39531, .52483,
820 + .05996, .03148, 8.52916, .55115, .24467,
821 + .00000, .42409, .55299,
822 + .06071, .03192, 9.25863, .57432, .26972,
823 + .00000, .44777, .57621,
824 + .06231, .03287, 10.86397, .62624, .32478,
825 + .00000, .50077, .62824,
826 + .06371, .03371, 12.11891, .67323, .37418,
827 + .06309, .54866, .67532,
828 + .06531, .03465, 13.62734, .72847, .43222,
829 + .13302, .60489, .73068,
830 + .06699, .03564, 15.23948, .78856, .49512,
831 + .20048, .66598, .79087,
832 + .06851, .03656, 16.72858, .84523, .55431,
833 + .26395, .72353, .84766 /
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 + .07008, .03748, 18.25438, .90453, .61615,
836 + .32988, .78370, .90706,
837 + .07137, .03824, 19.52585, .95512, .66864,
838 + .38504, .83501, .95775,
839 + .07295, .03918, 21.06853, 1.01802, .73360,
840 + .45299, .89873, 1.02074,
841 + .07436, .04001, 22.44310, 1.07521, .79275,
842 + .51518, .95665, 1.07804,
843 + .07565, .04078, 23.70895, 1.12890, .84829,
844 + .57360, 1.01100, 1.13182,
845 + .07730, .04175, 25.28997, 1.19802, .91930,
846 + .64736, 1.08093, 1.20106,
847 + .07886, .04267, 26.77506, 1.26448, .98764,
848 + .71860, 1.14814, 1.26764,
849 + .08032, .04353, 28.17045, 1.32816, 1.05326,
850 + .78731, 1.21252, 1.33143 /
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 + .08179, .04439, 29.52444, 1.39215, 1.11867,
853 + .85489, 1.27718, 1.39551,
854 + .08323, .04524, 30.84848, 1.45591, 1.18401,
855 + .92277, 1.34158, 1.45938,
856 + .08461, .04604, 32.09092, 1.51706, 1.24669,
857 + .98787, 1.40336, 1.52063,
858 + .08589, .04680, 33.23203, 1.57485, 1.30569,
859 + 1.04883, 1.46171, 1.57852,
860 + .08720, .04757, 34.38416, 1.63397, 1.36627,
861 + 1.11176, 1.52139, 1.63773,
862 + .08848, .04831, 35.47455, 1.69181, 1.42521,
863 + 1.17248, 1.57977, 1.69567,
864 + .08971, .04903, 36.52132, 1.74788, 1.48257,
865 + 1.23200, 1.63636, 1.75183,
866 + .09087, .04971, 37.47067, 1.80044, 1.53607,
867 + 1.28706, 1.68939, 1.80447 /
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 + .09204, .05039, 38.43360, 1.85428, 1.59106,
870 + 1.34393, 1.74371, 1.85840,
871 + .09319, .05106, 39.35494, 1.90721, 1.64497,
872 + 1.39950, 1.79710, 1.91140,
873 + .09430, .05171, 40.22374, 1.95798, 1.69672,
874 + 1.45286, 1.84832, 1.96227,
875 + .09535, .05232, 41.04288, 2.00654, 1.74625,
876 + 1.50405, 1.89728, 2.01090,
877 + .09641, .05294, 41.83752, 2.05508, 1.79560,
878 + 1.55476, 1.94624, 2.05953 /
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 + .06904, .03684, .70544, .26940, .00000,
881 + .00000, .15317, .27166,
882 + .07033, .03762, 1.27345, .28468, .00000,
883 + .00000, .16925, .28702,
884 + .07232, .03882, 2.13903, .30984, .02673,
885 + .00000, .19556, .31231,
886 + .07383, .03974, 2.82719, .32980, .05339,
887 + .00000, .21634, .33238,
888 + .07545, .04073, 3.59284, .35252, .07785,
889 + .00000, .23990, .35520,
890 + .07687, .04158, 4.27810, .37326, .10012,
891 + .00000, .26134, .37605,
892 + .07824, .04241, 4.96942, .39418, .12323,
893 + .00000, .28292, .39707,
894 + .07973, .04331, 5.73468, .41751, .14910,
895 + .00000, .30694, .42050 /
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 + .08102, .04409, 6.40681, .43869, .17180,
898 + .00000, .32870, .44178,
899 + .08228, .04486, 7.06872, .45988, .19453,
900 + .00000, .35045, .46308,
901 + .08329, .04547, 7.60964, .47725, .21344,
902 + .00000, .36825, .48052,
903 + .08545, .04677, 8.78057, .51582, .25458,
904 + .00000, .40773, .51926,
905 + .08734, .04791, 9.67307, .55035, .29108,
906 + .04447, .44301, .55392,
907 + .08948, .04921, 10.72290, .59049, .33350,
908 + .09630, .48398, .59422,
909 + .09173, .05055, 11.82172, .63362, .37894,
910 + .14556, .52795, .63753,
911 + .09377, .05178, 12.81673, .67383, .42120,
912 + .19138, .56892, .67789 /
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 + .09584, .05302, 13.81772, .71546, .46489,
915 + .23847, .61129, .71968,
916 + .09757, .05405, 14.63767, .75062, .50158,
917 + .27746, .64704, .75497,
918 + .09967, .05530, 15.61579, .79385, .54654,
919 + .32500, .69101, .79838,
920 + .10154, .05641, 16.47336, .83279, .58709,
921 + .36811, .73058, .83747,
922 + .10324, .05742, 17.25186, .86902, .62482,
923 + .40825, .76737, .87384,
924 + .10542, .05870, 18.20704, .91519, .67255,
925 + .45838, .81424, .92017,
926 + .10746, .05991, 19.08953, .95911, .71802,
927 + .50632, .85881, .96425,
928 + .10939, .06104, 19.90674, 1.00081, .76130,
929 + .55217, .90112, 1.00610 /
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 + .11130, .06216, 20.68488, 1.04225, .80396,
932 + .59674, .94315, 1.04770,
933 + .11318, .06325, 21.43549, 1.08319, .84623,
934 + .64118, .98467, 1.08878,
935 + .11496, .06429, 22.12986, 1.12213, .88642,
936 + .68342, 1.02413, 1.12786,
937 + .11663, .06527, 22.75723, 1.15857, .92391,
938 + .72261, 1.06108, 1.16444,
939 + .11832, .06625, 23.38416, 1.19560, .96214,
940 + .76281, 1.09860, 1.20161,
941 + .11996, .06721, 23.96663, 1.23148, .99898,
942 + .80122, 1.13496, 1.23761,
943 + .12154, .06812, 24.52115, 1.26605, 1.03465,
944 + .83867, 1.17000, 1.27231,
945 + .12302, .06898, 25.01474, 1.29816, 1.06759,
946 + .87300, 1.20252, 1.30454 /
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 + .12452, .06984, 25.51142, 1.33087, 1.10128,
949 + .90827, 1.23566, 1.33737,
950 + .12600, .07069, 25.97900, 1.36276, 1.13403,
951 + .94246, 1.26798, 1.36937,
952 + .12740, .07149, 26.41491, 1.39315, 1.16527,
953 + .97508, 1.29876, 1.39989,
954 + .12875, .07226, 26.82194, 1.42205, 1.19503,
955 + 1.00623, 1.32804, 1.42890,
956 + .13009, .07303, 27.20949, 1.45071, 1.22441,
957 + 1.03681, 1.35706, 1.45765 /
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 + .09563, .05321, .77712, .23907, .00000,
960 + .00000, .13766, .24297,
961 + .09737, .05430, 1.28784, .25100, .00000,
962 + .00000, .15027, .25504,
963 + .10005, .05597, 2.03031, .27053, .02309,
964 + .00000, .17076, .27477,
965 + .10210, .05723, 2.60169, .28592, .04417,
966 + .00000, .18683, .29032,
967 + .10428, .05859, 3.21855, .30325, .06302,
968 + .00000, .20487, .30783,
969 + .10619, .05976, 3.75591, .31892, .08006,
970 + .00000, .22114, .32366,
971 + .10805, .06090, 4.28582, .33460, .09759,
972 + .00000, .23738, .33950,
973 + .11005, .06213, 4.85976, .35195, .11706,
974 + .00000, .25532, .35701 /
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 + .11179, .06320, 5.35336, .36754, .13397,
977 + .00000, .27143, .37276,
978 + .11349, .06422, 5.83079, .38304, .15077,
979 + .00000, .28740, .38839,
980 + .11485, .06506, 6.21541, .39566, .16465,
981 + .00000, .30040, .40113,
982 + .11774, .06680, 7.03232, .42340, .19457,
983 + .00000, .32893, .42911,
984 + .12027, .06832, 7.63689, .44791, .22079,
985 + .02917, .35412, .45384,
986 + .12312, .07002, 8.32786, .47607, .25088,
987 + .06662, .38301, .48224,
988 + .12609, .07179, 9.03310, .50590, .28268,
989 + .10163, .41360, .51233,
990 + .12879, .07340, 9.65633, .53335, .31188,
991 + .13379, .44174, .54002 /
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 + .13152, .07500, 10.26926, .56141, .34169,
994 + .16643, .47046, .56831,
995 + .13378, .07634, 10.76065, .58483, .36643,
996 + .19313, .49444, .59192,
997 + .13651, .07793, 11.33423, .61330, .39639,
998 + .22533, .52357, .62062,
999 + .13893, .07934, 11.82700, .63864, .42310,
1000 + .25420, .54947, .64616,
1001 + .14115, .08063, 12.26634, .66196, .44772,
1002 + .28083, .57332, .66967,
1003 + .14394, .08225, 12.79269, .69129, .47845,
1004 + .31366, .60330, .69924,
1005 + .14657, .08376, 13.26835, .71886, .50740,
1006 + .34471, .63148, .72704,
1007 + .14903, .08517, 13.70037, .74475, .53466,
1008 + .37410, .65795, .75315 /
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 + .15146, .08655, 14.10098, .77015, .56118,
1011 + .40231, .68390, .77874,
1012 + .15384, .08791, 14.48035, .79498, .58720,
1013 + .43016, .70926, .80377,
1014 + .15608, .08917, 14.82437, .81833, .61171,
1015 + .45640, .73313, .82731,
1016 + .15818, .09037, 15.12755, .83996, .63430,
1017 + .48046, .75522, .84912,
1018 + .16029, .09155, 15.42637, .86175, .65717,
1019 + .50498, .77750, .87109,
1020 + .16235, .09271, 15.69580, .88260, .67894,
1021 + .52812, .79881, .89211,
1022 + .16431, .09380, 15.94958, .90255, .69989,
1023 + .55056, .81919, .91222,
1024 + .16613, .09482, 16.16837, .92085, .71901,
1025 + .57088, .83791, .93068 /
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 + .16799, .09584, 16.38617, .93938, .73844,
1028 + .59165, .85686, .94937,
1029 + .16980, .09685, 16.58555, .95725, .75715,
1030 + .61158, .87513, .96740,
1031 + .17153, .09779, 16.76800, .97416, .77486,
1032 + .63047, .89242, .98444,
1033 + .17316, .09869, 16.93572, .99011, .79160,
1034 + .64838, .90874, 1.00053,
1035 + .17479, .09959, 17.08986, 1.00575, .80798,
1036 + .66580, .92475, 1.01631 /
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 + .11591, .06597, .86312, .22319, .00000,
1039 + .00000, .12921, .22852,
1040 + .11801, .06730, 1.33520, .23328, .00000,
1041 + .00000, .13991, .23879,
1042 + .12121, .06933, 2.00494, .24974, .02030,
1043 + .00000, .15727, .25554,
1044 + .12365, .07086, 2.50845, .26271, .03843,
1045 + .00000, .17088, .26871,
1046 + .12627, .07248, 3.04160, .27722, .05441,
1047 + .00000, .18606, .28346,
1048 + .12855, .07387, 3.49794, .29028, .06876,
1049 + .00000, .19968, .29672,
1050 + .13077, .07524, 3.94114, .30330, .08349,
1051 + .00000, .21323, .30993,
1052 + .13316, .07669, 4.41429, .31761, .09976,
1053 + .00000, .22813, .32447 /
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 + .13523, .07795, 4.81560, .33043, .11378,
1056 + .00000, .24141, .33746,
1057 + .13725, .07916, 5.19911, .34308, .12766,
1058 + .00000, .25453, .35030,
1059 + .13886, .08013, 5.50515, .35334, .13908,
1060 + .00000, .26516, .36071,
1061 + .14228, .08219, 6.14683, .37577, .16353,
1062 + .00000, .28835, .38343,
1063 + .14526, .08395, 6.61262, .39541, .18477,
1064 + .02152, .30865, .40336,
1065 + .14859, .08591, 7.13294, .41779, .20896,
1066 + .05205, .33175, .42602,
1067 + .15207, .08794, 7.65467, .44127, .23430,
1068 + .08029, .35598, .44983,
1069 + .15521, .08977, 8.10775, .46270, .25736,
1070 + .10601, .37807, .47154 /
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 + .15838, .09160, 8.54605, .48441, .28071,
1073 + .13190, .40045, .49352,
1074 + .16099, .09310, 8.89187, .50236, .29994,
1075 + .15293, .41895, .51172,
1076 + .16415, .09491, 9.28900, .52401, .32304,
1077 + .17809, .44125, .53364,
1078 + .16693, .09648, 9.62491, .54313, .34348,
1079 + .20049, .46095, .55300,
1080 + .16947, .09793, 9.92018, .56060, .36219,
1081 + .22101, .47895, .57070,
1082 + .17265, .09971, 10.26708, .58238, .38535,
1083 + .24611, .50138, .59276,
1084 + .17564, .10139, 10.57529, .60268, .40698,
1085 + .26965, .52229, .61331,
1086 + .17842, .10294, 10.85108, .62159, .42722,
1087 + .29180, .54177, .63247 /
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 + .18117, .10446, 11.10053, .63995, .44672,
1090 + .31287, .56070, .65106,
1091 + .18386, .10593, 11.33318, .65778, .46573,
1092 + .33354, .57907, .66912,
1093 + .18637, .10731, 11.54053, .67442, .48351,
1094 + .35288, .59624, .68598,
1095 + .18871, .10859, 11.71885, .68969, .49977,
1096 + .37050, .61199, .70146,
1097 + .19107, .10987, 11.89247, .70499, .51615,
1098 + .38835, .62778, .71697,
1099 + .19334, .11110, 12.04423, .71950, .53161,
1100 + .40508, .64275, .73166,
1101 + .19551, .11227, 12.18590, .73331, .54642,
1102 + .42123, .65702, .74566,
1103 + .19754, .11334, 12.30395, .74588, .55982,
1104 + .43574, .67001, .75840 /
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 + .19957, .11443, 12.42034, .75854, .57338,
1107 + .45051, .68309, .77123,
1108 + .20157, .11549, 12.52337, .77064, .58635,
1109 + .46460, .69561, .78351,
1110 + .20345, .11649, 12.61560, .78203, .59856,
1111 + .47788, .70739, .79505,
1112 + .20523, .11743, 12.69890, .79272, .61005,
1113 + .49042, .71845, .80588,
1114 + .20700, .11837, 12.77177, .80310, .62120,
1115 + .50252, .72921, .81641 /
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 + .13297, .07682, .94876, .21235, .00000,
1118 + .00000, .12313, .21899,
1119 + .13536, .07835, 1.39005, .22120, .00000,
1120 + .00000, .13256, .22806,
1121 + .13902, .08067, 2.00619, .23565, .01785,
1122 + .00000, .14787, .24284,
1123 + .14181, .08240, 2.46044, .24700, .03405,
1124 + .00000, .15985, .25446,
1125 + .14479, .08424, 2.93443, .25968, .04816,
1126 + .00000, .17319, .26743,
1127 + .14739, .08582, 3.33469, .27105, .06080,
1128 + .00000, .18510, .27904,
1129 + .14991, .08734, 3.71891, .28232, .07373,
1130 + .00000, .19692, .29055,
1131 + .15261, .08897, 4.12452, .29470, .08794,
1132 + .00000, .20985, .30318 /
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 + .15494, .09037, 4.46481, .30570, .10015,
1135 + .00000, .22135, .31441,
1136 + .15722, .09173, 4.78690, .31655, .11217,
1137 + .00000, .23264, .32545,
1138 + .15903, .09281, 5.04201, .32531, .12203,
1139 + .00000, .24178, .33439,
1140 + .16288, .09507, 5.57161, .34435, .14303,
1141 + .00000, .26159, .35378,
1142 + .16620, .09699, 5.95028, .36092, .16117,
1143 + .01660, .27882, .37067,
1144 + .16992, .09914, 6.36459, .37966, .18169,
1145 + .04280, .29828, .38975,
1146 + .17376, .10136, 6.77391, .39920, .20302,
1147 + .06683, .31858, .40964,
1148 + .17725, .10333, 7.12417, .41686, .22230,
1149 + .08858, .33693, .42763 /
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 + .18074, .10530, 7.45823, .43466, .24172,
1152 + .11035, .35540, .44574,
1153 + .18362, .10691, 7.71816, .44928, .25759,
1154 + .12791, .37057, .46062,
1155 + .18707, .10883, 8.01231, .46678, .27654,
1156 + .14881, .38875, .47843,
1157 + .19011, .11052, 8.25769, .48212, .29321,
1158 + .16730, .40469, .49405,
1159 + .19288, .11204, 8.47061, .49607, .30839,
1160 + .18416, .41918, .50825,
1161 + .19635, .11394, 8.71617, .51332, .32704,
1162 + .20465, .43711, .52580,
1163 + .19957, .11568, 8.93074, .52928, .34437,
1164 + .22376, .45370, .54206,
1165 + .20258, .11731, 9.11993, .54406, .36047,
1166 + .24163, .46907, .55710 /
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 + .20554, .11889, 9.28679, .55829, .37589,
1169 + .25853, .48389, .57158,
1170 + .20840, .12042, 9.43995, .57202, .39083,
1171 + .27502, .49818, .58556,
1172 + .21109, .12185, 9.57386, .58476, .40471,
1173 + .29036, .51145, .59854,
1174 + .21359, .12316, 9.68591, .59636, .41735,
1175 + .30427, .52356, .61035,
1176 + .21610, .12447, 9.79364, .60794, .43001,
1177 + .31830, .53564, .62214,
1178 + .21851, .12573, 9.88415, .61881, .44188,
1179 + .33136, .54700, .63322,
1180 + .22080, .12692, 9.96786, .62913, .45321,
1181 + .34393, .55778, .64373,
1182 + .22293, .12802, 10.03425, .63844, .46340,
1183 + .35516, .56752, .65321 /
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 + .22507, .12912, 10.09896, .64777, .47367,
1186 + .36655, .57730, .66273,
1187 + .22715, .13017, 10.15345, .65665, .48343,
1188 + .37735, .58659, .67177,
1189 + .22912, .13118, 10.20063, .66494, .49258,
1190 + .38750, .59529, .68022,
1191 + .23098, .13213, 10.24203, .67269, .50116,
1192 + .39705, .60342, .68813,
1193 + .23283, .13305, 10.27507, .68015, .50943,
1194 + .40621, .61128, .69573 /
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 + .14787, .08636, 1.03013, .20376, .00000,
1197 + .00000, .11810, .21153,
1198 + .15056, .08807, 1.44540, .21168, .00000,
1199 + .00000, .12661, .21973,
1200 + .15465, .09064, 2.01816, .22467, .01562,
1201 + .00000, .14044, .23311,
1202 + .15774, .09255, 2.43307, .23487, .03043,
1203 + .00000, .15127, .24363,
1204 + .16104, .09457, 2.86095, .24622, .04321,
1205 + .00000, .16328, .25530,
1206 + .16390, .09629, 3.21825, .25637, .05462,
1207 + .00000, .17397, .26572,
1208 + .16668, .09795, 3.55791, .26641, .06625,
1209 + .00000, .18454, .27604,
1210 + .16964, .09972, 3.91312, .27737, .07900,
1211 + .00000, .19608, .28731 /
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 + .17223, .10125, 4.20838, .28710, .08990,
1214 + .00000, .20630, .29728,
1215 + .17472, .10270, 4.48557, .29663, .10061,
1216 + .00000, .21630, .30705,
1217 + .17671, .10386, 4.70366, .30433, .10937,
1218 + .00000, .22437, .31494,
1219 + .18090, .10629, 5.15288, .32096, .12793,
1220 + .00000, .24179, .33198,
1221 + .18451, .10835, 5.46997, .33535, .14389,
1222 + .01306, .25685, .34671,
1223 + .18854, .11062, 5.81005, .35152, .16182,
1224 + .03620, .27378, .36326,
1225 + .19270, .11295, 6.14157, .36826, .18036,
1226 + .05730, .29129, .38039,
1227 + .19645, .11502, 6.42140, .38332, .19703,
1228 + .07629, .30705, .39580 /
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 + .20020, .11709, 6.68492, .39838, .21371,
1231 + .09520, .32281, .41121,
1232 + .20327, .11878, 6.88721, .41068, .22728,
1233 + .11038, .33570, .42379,
1234 + .20696, .12077, 7.11282, .42532, .24339,
1235 + .12834, .35103, .43876,
1236 + .21018, .12251, 7.29856, .43809, .25750,
1237 + .14417, .36440, .45182,
1238 + .21313, .12409, 7.45784, .44962, .27026,
1239 + .15852, .37649, .46361,
1240 + .21679, .12602, 7.63773, .46379, .28589,
1241 + .17589, .39137, .47811,
1242 + .22020, .12782, 7.79218, .47682, .30030,
1243 + .19200, .40505, .49144,
1244 + .22336, .12948, 7.92629, .48881, .31364,
1245 + .20701, .41765, .50372 /
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 + .22645, .13107, 8.04126, .50027, .32632,
1248 + .22110, .42972, .51544,
1249 + .22945, .13261, 8.14479, .51127, .33857,
1250 + .23481, .44131, .52670,
1251 + .23225, .13405, 8.23318, .52142, .34990,
1252 + .24752, .45200, .53708,
1253 + .23484, .13537, 8.30471, .53059, .36014,
1254 + .25896, .46169, .54648,
1255 + .23744, .13668, 8.37244, .53970, .37038,
1256 + .27049, .47132, .55581,
1257 + .23993, .13792, 8.42607, .54820, .37990,
1258 + .28114, .48032, .56452,
1259 + .24230, .13912, 8.47504, .55624, .38898,
1260 + .29138, .48885, .57275,
1261 + .24448, .14019, 8.51068, .56342, .39708,
1262 + .30047, .49647, .58010 /
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 + .24668, .14128, 8.54474, .57061, .40523,
1265 + .30968, .50411, .58746,
1266 + .24880, .14231, 8.57086, .57737, .41292,
1267 + .31836, .51132, .59441,
1268 + .25081, .14329, 8.59198, .58367, .42011,
1269 + .32649, .51803, .60087,
1270 + .25271, .14421, 8.60930, .58952, .42683,
1271 + .33412, .52429, .60687,
1272 + .25458, .14512, 8.61964, .59511, .43327,
1273 + .34140, .53028, .61261 /
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 + .17380, .10289, 1.17383, .19053, .00000,
1276 + .00000, .11010, .20052,
1277 + .17699, .10491, 1.54500, .19718, .00000,
1278 + .00000, .11733, .20752,
1279 + .18184, .10789, 2.04842, .20810, .01172,
1280 + .00000, .12911, .21897,
1281 + .18547, .11009, 2.40178, .21667, .02459,
1282 + .00000, .13833, .22792,
1283 + .18931, .11237, 2.75922, .22617, .03553,
1284 + .00000, .14850, .23781,
1285 + .19263, .11432, 3.05230, .23459, .04524,
1286 + .00000, .15751, .24658,
1287 + .19584, .11619, 3.32645, .24288, .05511,
1288 + .00000, .16637, .25520,
1289 + .19926, .11816, 3.60877, .25189, .06585,
1290 + .00000, .17597, .26455 /
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 + .20221, .11984, 3.83981, .25981, .07497,
1293 + .00000, .18441, .27278,
1294 + .20507, .12145, 4.05373, .26753, .08386,
1295 + .00000, .19264, .28080,
1296 + .20734, .12273, 4.22029, .27373, .09112,
1297 + .00000, .19924, .28721,
1298 + .21207, .12537, 4.55828, .28704, .10638,
1299 + .00000, .21337, .30099,
1300 + .21613, .12758, 4.79196, .29842, .11935,
1301 + .00819, .22546, .31276,
1302 + .22062, .13001, 5.03240, .31107, .13382,
1303 + .02719, .23893, .32586,
1304 + .22523, .13247, 5.26104, .32403, .14862,
1305 + .04433, .25271, .33924,
1306 + .22935, .13466, 5.44913, .33555, .16180,
1307 + .05963, .26498, .35114 /
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 + .23346, .13681, 5.62171, .34694, .17486,
1310 + .07472, .27713, .36292,
1311 + .23682, .13854, 5.75061, .35614, .18539,
1312 + .08673, .28695, .37244,
1313 + .24081, .14059, 5.88999, .36699, .19778,
1314 + .10084, .29853, .38363,
1315 + .24429, .14236, 6.00142, .37633, .20853,
1316 + .11317, .30853, .39329,
1317 + .24745, .14395, 6.09428, .38470, .21819,
1318 + .12428, .31750, .40194,
1319 + .25135, .14590, 6.19438, .39485, .22989,
1320 + .13759, .32840, .41243,
1321 + .25496, .14769, 6.27659, .40407, .24059,
1322 + .14985, .33832, .42196,
1323 + .25829, .14931, 6.34505, .41247, .25041,
1324 + .16117, .34738, .43066 /
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 + .26152, .15088, 6.39871, .42039, .25965,
1327 + .17172, .35593, .43884,
1328 + .26464, .15238, 6.44436, .42791, .26849,
1329 + .18190, .36408, .44661,
1330 + .26756, .15377, 6.48038, .43477, .27660,
1331 + .19126, .37152, .45371,
1332 + .27023, .15503, 6.50551, .44089, .28386,
1333 + .19963, .37819, .46004,
1334 + .27288, .15627, 6.52769, .44691, .29107,
1335 + .20801, .38477, .46628,
1336 + .27542, .15745, 6.54031, .45244, .29772,
1337 + .21569, .39082, .47200,
1338 + .27783, .15855, 6.55096, .45761, .30401,
1339 + .22303, .39653, .47738,
1340 + .28002, .15956, 6.55332, .46218, .30956,
1341 + .22949, .40155, .48210 /
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 + .28222, .16056, 6.55448, .46672, .31512,
1344 + .23601, .40656, .48681,
1345 + .28435, .16151, 6.55034, .47092, .32032,
1346 + .24211, .41123, .49116,
1347 + .28635, .16241, 6.54381, .47477, .32514,
1348 + .24777, .41554, .49518,
1349 + .28823, .16323, 6.53581, .47834, .32961,
1350 + .25307, .41952, .49887,
1351 + .29007, .16404, 6.52277, .48168, .33385,
1352 + .25808, .42328, .50235 /
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 + .20645, .12353, 1.34903, .17544, .00000,
1355 + .00000, .10055, .18840,
1356 + .21034, .12592, 1.66553, .18090, .00000,
1357 + .00000, .10665, .19433,
1358 + .21616, .12938, 2.08875, .18987, .00692,
1359 + .00000, .11657, .20398,
1360 + .22046, .13186, 2.37308, .19688, .01792,
1361 + .00000, .12429, .21148,
1362 + .22497, .13444, 2.65435, .20456, .02716,
1363 + .00000, .13271, .21966,
1364 + .22885, .13660, 2.87991, .21131, .03530,
1365 + .00000, .14011, .22683,
1366 + .23257, .13866, 3.08677, .21791, .04349,
1367 + .00000, .14733, .23384,
1368 + .23651, .14081, 3.29569, .22502, .05235,
1369 + .00000, .15510, .24136 /
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 + .23989, .14263, 3.46328, .23122, .05980,
1372 + .00000, .16187, .24791,
1373 + .24312, .14435, 3.61571, .23720, .06702,
1374 + .00000, .16840, .25423,
1375 + .24568, .14571, 3.73275, .24197, .07286,
1376 + .00000, .17361, .25926,
1377 + .25104, .14850, 3.96583, .25209, .08505,
1378 + .00000, .18468, .26993,
1379 + .25552, .15080, 4.12249, .26064, .09530,
1380 + .00371, .19401, .27891,
1381 + .26045, .15329, 4.27273, .27001, .10659,
1382 + .01887, .20426, .28873,
1383 + .26547, .15580, 4.41015, .27944, .11798,
1384 + .03239, .21460, .29864,
1385 + .26994, .15797, 4.51841, .28769, .12802,
1386 + .04432, .22368, .30730 /
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 + .27434, .16011, 4.61330, .29575, .13784,
1389 + .05597, .23255, .31575,
1390 + .27790, .16181, 4.68046, .30216, .14568,
1391 + .06516, .23962, .32248,
1392 + .28212, .16379, 4.74869, .30958, .15479,
1393 + .07583, .24786, .33026,
1394 + .28576, .16548, 4.79973, .31589, .16262,
1395 + .08509, .25489, .33687,
1396 + .28903, .16698, 4.83936, .32147, .16958,
1397 + .09334, .26111, .34273,
1398 + .29305, .16881, 4.87661, .32811, .17791,
1399 + .10314, .26856, .34968,
1400 + .29673, .17045, 4.90301, .33405, .18544,
1401 + .11207, .27523, .35591,
1402 + .30010, .17194, 4.92165, .33937, .19228,
1403 + .12025, .28126, .36149 /
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 + .30336, .17335, 4.92984, .34426, .19862,
1406 + .12778, .28684, .36663,
1407 + .30646, .17468, 4.93321, .34883, .20463,
1408 + .13498, .29209, .37142,
1409 + .30933, .17589, 4.93161, .35293, .21008,
1410 + .14155, .29682, .37574,
1411 + .31193, .17699, 4.92402, .35651, .21490,
1412 + .14736, .30098, .37949,
1413 + .31452, .17805, 4.91452, .35997, .21965,
1414 + .15314, .30504, .38314,
1415 + .31696, .17904, 4.89913, .36306, .22396,
1416 + .15838, .30868, .38640,
1417 + .31926, .17996, 4.88389, .36594, .22801,
1418 + .16337, .31209, .38943,
1419 + .32134, .18077, 4.86456, .36838, .23153,
1420 + .16770, .31503, .39200 /
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 + .32343, .18159, 4.84453, .37078, .23503,
1423 + .17204, .31794, .39453,
1424 + .32540, .18235, 4.82146, .37293, .23826,
1425 + .17607, .32058, .39679,
1426 + .32726, .18305, 4.79797, .37486, .24122,
1427 + .17978, .32299, .39884,
1428 + .32898, .18370, 4.77476, .37661, .24395,
1429 + .18323, .32518, .40070,
1430 + .33065, .18431, 4.74825, .37819, .24648,
1431 + .18645, .32718, .40236 /
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 + .25186, .15138, 1.55003, .15656, .00000,
1434 + .00000, .08849, .17441,
1435 + .25673, .15418, 1.79422, .16085, .00000,
1436 + .00000, .09352, .17930,
1437 + .26386, .15812, 2.11760, .16781, .00093,
1438 + .00000, .10163, .18714,
1439 + .26900, .16087, 2.31969, .17319, .01007,
1440 + .00000, .10784, .19311,
1441 + .27435, .16365, 2.51349, .17898, .01764,
1442 + .00000, .11453, .19950,
1443 + .27886, .16598, 2.66392, .18400, .02421,
1444 + .00000, .12031, .20501,
1445 + .28316, .16816, 2.79804, .18884, .03076,
1446 + .00000, .12586, .21029,
1447 + .28766, .17040, 2.92967, .19397, .03775,
1448 + .00000, .13177, .21590 /
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 + .29149, .17226, 3.03186, .19837, .04355,
1451 + .00000, .13685, .22068,
1452 + .29511, .17401, 3.12208, .20258, .04912,
1453 + .00000, .14168, .22524,
1454 + .29796, .17537, 3.18984, .20589, .05359,
1455 + .00000, .14549, .22883,
1456 + .30384, .17811, 3.32066, .21282, .06278,
1457 + .00000, .15347, .23630,
1458 + .30866, .18031, 3.40416, .21852, .07038,
1459 + -.00040, .16007, .24242,
1460 + .31390, .18265, 3.47116, .22464, .07862,
1461 + .01100, .16718, .24898,
1462 + .31915, .18494, 3.52655, .23064, .08681,
1463 + .02103, .17420, .25542,
1464 + .32375, .18690, 3.56474, .23577, .09388,
1465 + .02974, .18025, .26091 /
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 + .32823, .18877, 3.59309, .24064, .10071,
1468 + .03814, .18601, .26612,
1469 + .33181, .19023, 3.60867, .24443, .10608,
1470 + .04469, .19055, .27016,
1471 + .33597, .19190, 3.61876, .24869, .11223,
1472 + .05221, .19569, .27472,
1473 + .33953, .19328, 3.62169, .25221, .11742,
1474 + .05863, .19999, .27848,
1475 + .34269, .19449, 3.61986, .25526, .12199,
1476 + .06431, .20373, .28172,
1477 + .34650, .19591, 3.60930, .25874, .12735,
1478 + .07094, .20808, .28544,
1479 + .34993, .19717, 3.59423, .26175, .13212,
1480 + .07691, .21190, .28865,
1481 + .35306, .19827, 3.57669, .26437, .13638,
1482 + .08232, .21526, .29144 /
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 + .35599, .19927, 3.55304, .26664, .14026,
1485 + .08722, .21828, .29387,
1486 + .35876, .20018, 3.52759, .26870, .14387,
1487 + .09186, .22104, .29606,
1488 + .36127, .20101, 3.50109, .27047, .14711,
1489 + .09604, .22346, .29793,
1490 + .36352, .20170, 3.47284, .27192, .14991,
1491 + .09969, .22550, .29946,
1492 + .36573, .20237, 3.44379, .27328, .15264,
1493 + .10328, .22748, .30091,
1494 + .36775, .20295, 3.41200, .27437, .15505,
1495 + .10649, .22915, .30207,
1496 + .36965, .20350, 3.38187, .27536, .15730,
1497 + .10951, .23070, .30313,
1498 + .37133, .20393, 3.35077, .27610, .15920,
1499 + .11211, .23195, .30391 /
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 + .37299, .20437, 3.31950, .27680, .16107,
1502 + .11468, .23316, .30464,
1503 + .37454, .20474, 3.28711, .27734, .16276,
1504 + .11704, .23420, .30522,
1505 + .37596, .20507, 3.25576, .27776, .16427,
1506 + .11918, .23511, .30567,
1507 + .37727, .20537, 3.22581, .27812, .16565,
1508 + .12116, .23591, .30605,
1509 + .37851, .20562, 3.19404, .27832, .16688,
1510 + .12298, .23655, .30627 /
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 + .28989, .17386, 1.67044, .14144, .00000,
1513 + .00000, .07901, .16350,
1514 + .29563, .17690, 1.85760, .14499, .00000,
1515 + .00000, .08346, .16779,
1516 + .30384, .18109, 2.10545, .15068, -.00318,
1517 + .00000, .09046, .17445,
1518 + .30965, .18393, 2.24851, .15499, .00475,
1519 + .00000, .09573, .17942,
1520 + .31558, .18677, 2.38155, .15955, .01127,
1521 + .00000, .10128, .18461,
1522 + .32053, .18909, 2.48142, .16343, .01687,
1523 + .00000, .10601, .18900,
1524 + .32520, .19121, 2.56782, .16712, .02237,
1525 + .00000, .11052, .19315,
1526 + .33004, .19338, 2.64999, .17099, .02819,
1527 + .00000, .11523, .19747 /
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 + .33409, .19517, 2.71125, .17425, .03297,
1530 + .00000, .11921, .20110,
1531 + .33789, .19682, 2.76331, .17731, .03751,
1532 + .00000, .12299, .20450,
1533 + .34088, .19807, 2.80137, .17970, .04113,
1534 + .00000, .12592, .20714,
1535 + .34692, .20057, 2.87184, .18462, .04849,
1536 + .00000, .13198, .21256,
1537 + .35181, .20250, 2.91306, .18858, .05449,
1538 + -.00252, .13690, .21688,
1539 + .35701, .20450, 2.93398, .19273, .06091,
1540 + .00656, .14211, .22138,
1541 + .36215, .20641, 2.94533, .19668, .06719,
1542 + .01448, .14714, .22567,
1543 + .36658, .20800, 2.94706, .19995, .07255,
1544 + .02127, .15137, .22921 /
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 + .37082, .20947, 2.94174, .20298, .07765,
1547 + .02775, .15535, .23246,
1548 + .37416, .21059, 2.93193, .20525, .08161,
1549 + .03274, .15839, .23490,
1550 + .37799, .21179, 2.91424, .20772, .08609,
1551 + .03843, .16179, .23756,
1552 + .38121, .21277, 2.89478, .20969, .08983,
1553 + .04324, .16456, .23966,
1554 + .38403, .21360, 2.87417, .21134, .09307,
1555 + .04745, .16692, .24142,
1556 + .38735, .21451, 2.84289, .21312, .09682,
1557 + .05232, .16959, .24330,
1558 + .39029, .21528, 2.81066, .21457, .10011,
1559 + .05666, .17185, .24482,
1560 + .39292, .21593, 2.77876, .21576, .10301,
1561 + .06054, .17380, .24605 /
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 + .39529, .21646, 2.74319, .21668, .10559,
1564 + .06402, .17544, .24699,
1565 + .39752, .21691, 2.70742, .21746, .10799,
1566 + .06729, .17691, .24777,
1567 + .39950, .21727, 2.67243, .21803, .11008,
1568 + .07020, .17814, .24835,
1569 + .40122, .21753, 2.63778, .21841, .11186,
1570 + .07271, .17912, .24872,
1571 + .40287, .21777, 2.60305, .21872, .11358,
1572 + .07517, .18004, .24901,
1573 + .40435, .21792, 2.56712, .21885, .11505,
1574 + .07733, .18075, .24910,
1575 + .40572, .21805, 2.53347, .21892, .11642,
1576 + .07936, .18138, .24915,
1577 + .40685, .21810, 2.50027, .21886, .11753,
1578 + .08106, .18181, .24904 /
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 + .40797, .21813, 2.46724, .21876, .11862,
1581 + .08275, .18220, .24887,
1582 + .40897, .21812, 2.43396, .21855, .11958,
1583 + .08428, .18248, .24860,
1584 + .40986, .21807, 2.40225, .21828, .12041,
1585 + .08566, .18268, .24827,
1586 + .41067, .21800, 2.37231, .21800, .12116,
1587 + .08691, .18282, .24792,
1588 + .41137, .21789, 2.34135, .21762, .12180,
1589 + .08804, .18287, .24745 /
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 + .35485, .20927, 1.74584, .11798, .00000,
1592 + .00000, .06552, .14842,
1593 + .36175, .21240, 1.85088, .12053, .00000,
1594 + .00000, .06915, .15167,
1595 + .37129, .21648, 1.99301, .12443, -.00789,
1596 + .00000, .07462, .15648,
1597 + .37773, .21911, 2.05821, .12731, -.00156,
1598 + .00000, .07857, .15986,
1599 + .38415, .22162, 2.11379, .13020, .00362,
1600 + .00000, .08261, .16326,
1601 + .38939, .22359, 2.15117, .13260, .00795,
1602 + .00000, .08595, .16601,
1603 + .39420, .22532, 2.18027, .13480, .01213,
1604 + .00000, .08905, .16850,
1605 + .39907, .22703, 2.20456, .13703, .01646,
1606 + .00000, .09222, .17100 /
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 + .40308, .22836, 2.21904, .13886, .01997,
1609 + .00000, .09482, .17300,
1610 + .40676, .22954, 2.22850, .14051, .02325,
1611 + .00000, .09722, .17482,
1612 + .40959, .23042, 2.23398, .14177, .02582,
1613 + .00000, .09906, .17620,
1614 + .41517, .23205, 2.23965, .14427, .03098,
1615 + .00000, .10275, .17888,
1616 + .41946, .23317, 2.23693, .14615, .03508,
1617 + -.00428, .10564, .18085,
1618 + .42388, .23422, 2.21266, .14802, .03937,
1619 + .00199, .10858, .18275,
1620 + .42807, .23510, 2.18250, .14964, .04348,
1621 + .00738, .11129, .18437,
1622 + .43152, .23571, 2.15122, .15087, .04691,
1623 + .01193, .11347, .18555 /
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 + .43469, .23618, 2.11672, .15189, .05009,
1626 + .01619, .11541, .18651,
1627 + .43707, .23644, 2.08588, .15255, .05252,
1628 + .01943, .11683, .18707,
1629 + .43965, .23662, 2.04630, .15316, .05520,
1630 + .02305, .11830, .18751,
1631 + .44171, .23668, 2.01019, .15354, .05738,
1632 + .02607, .11943, .18774,
1633 + .44343, .23665, 1.97641, .15376, .05924,
1634 + .02867, .12033, .18782,
1635 + .44529, .23646, 1.93188, .15383, .06134,
1636 + .03164, .12125, .18768,
1637 + .44681, .23618, 1.88962, .15376, .06312,
1638 + .03423, .12193, .18739,
1639 + .44806, .23584, 1.85012, .15357, .06467,
1640 + .03652, .12245, .18698 /
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 + .44904, .23539, 1.80960, .15324, .06599,
1643 + .03853, .12278, .18641,
1644 + .44985, .23488, 1.77034, .15282, .06717,
1645 + .04038, .12301, .18574,
1646 + .45049, .23434, 1.73339, .15234, .06818,
1647 + .04201, .12311, .18502,
1648 + .45090, .23374, 1.69838, .15179, .06900,
1649 + .04339, .12310, .18422,
1650 + .45125, .23313, 1.66392, .15119, .06978,
1651 + .04472, .12304, .18338,
1652 + .45140, .23244, 1.62976, .15050, .07040,
1653 + .04585, .12287, .18244,
1654 + .45151, .23178, 1.59811, .14984, .07097,
1655 + .04692, .12269, .18152,
1656 + .45143, .23108, 1.56794, .14912, .07138,
1657 + .04778, .12241, .18057 /
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 + .45134, .23037, 1.53824, .14838, .07179,
1660 + .04862, .12210, .17959,
1661 + .45111, .22962, 1.50903, .14759, .07211,
1662 + .04938, .12174, .17857,
1663 + .45083, .22889, 1.48160, .14682, .07237,
1664 + .05004, .12135, .17756,
1665 + .45053, .22817, 1.45601, .14606, .07259,
1666 + .05063, .12097, .17659,
1667 + .45011, .22740, 1.43014, .14524, .07274,
1668 + .05114, .12052, .17553 /
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 + .40943, .23593, 1.69849, .09970, .00000,
1671 + .00000, .05605, .13698,
1672 + .41690, .23871, 1.75012, .10151, .00000,
1673 + .00000, .05905, .13927,
1674 + .42684, .24217, 1.82437, .10421, -.00978,
1675 + .00000, .06336, .14246,
1676 + .43329, .24422, 1.84361, .10608, -.00459,
1677 + .00000, .06639, .14456,
1678 + .43954, .24607, 1.85512, .10792, -.00033,
1679 + .00000, .06936, .14656,
1680 + .44448, .24740, 1.85805, .10937, .00317,
1681 + .00000, .07176, .14805,
1682 + .44891, .24851, 1.85655, .11065, .00648,
1683 + .00000, .07391, .14934,
1684 + .45329, .24949, 1.85086, .11190, .00986,
1685 + .00000, .07607, .15057 /
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 + .45676, .25018, 1.84187, .11286, .01257,
1688 + .00000, .07781, .15147,
1689 + .45986, .25074, 1.83053, .11369, .01508,
1690 + .00000, .07937, .15223,
1691 + .46218, .25110, 1.82053, .11431, .01701,
1692 + .00000, .08052, .15275,
1693 + .46657, .25164, 1.79624, .11547, .02084,
1694 + .00000, .08281, .15365,
1695 + .46971, .25176, 1.77399, .11624, .02383,
1696 + -.00465, .08451, .15417,
1697 + .47273, .25171, 1.73198, .11690, .02692,
1698 + -.00004, .08616, .15447,
1699 + .47538, .25142, 1.68666, .11734, .02982,
1700 + .00388, .08759, .15452,
1701 + .47735, .25097, 1.64438, .11755, .03218,
1702 + .00713, .08866, .15433 /
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 + .47899, .25037, 1.60111, .11760, .03434,
1705 + .01014, .08955, .15395,
1706 + .48005, .24975, 1.56470, .11752, .03596,
1707 + .01241, .09011, .15350,
1708 + .48102, .24884, 1.52026, .11725, .03771,
1709 + .01491, .09063, .15279,
1710 + .48161, .24793, 1.48126, .11690, .03912,
1711 + .01696, .09096, .15205,
1712 + .48195, .24706, 1.44584, .11652, .04030,
1713 + .01872, .09117, .15127,
1714 + .48205, .24578, 1.40087, .11590, .04158,
1715 + .02068, .09127, .15012,
1716 + .48189, .24450, 1.35936, .11522, .04265,
1717 + .02239, .09123, .14895,
1718 + .48157, .24325, 1.32136, .11451, .04356,
1719 + .02387, .09111, .14777 /
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 + .48096, .24187, 1.28353, .11368, .04430,
1722 + .02514, .09088, .14647,
1723 + .48022, .24048, 1.24747, .11284, .04494,
1724 + .02631, .09058, .14516,
1725 + .47937, .23911, 1.21408, .11200, .04547,
1726 + .02731, .09023, .14388,
1727 + .47839, .23777, 1.18304, .11114, .04588,
1728 + .02815, .08983, .14260,
1729 + .47735, .23641, 1.15279, .11026, .04626,
1730 + .02895, .08940, .14130,
1731 + .47612, .23499, 1.12333, .10933, .04654,
1732 + .02963, .08889, .13996,
1733 + .47493, .23364, 1.09624, .10845, .04677,
1734 + .03024, .08841, .13868,
1735 + .47363, .23229, 1.07084, .10756, .04693,
1736 + .03073, .08788, .13743 /
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 + .47230, .23095, 1.04599, .10667, .04707,
1739 + .03121, .08736, .13616,
1740 + .47088, .22959, 1.02183, .10576, .04715,
1741 + .03161, .08679, .13487,
1742 + .46946, .22827, .99934, .10487, .04721,
1743 + .03197, .08623, .13364,
1744 + .46808, .22701, .97848, .10403, .04724,
1745 + .03228, .08568, .13247,
1746 + .46656, .22569, .95765, .10315, .04723,
1747 + .03254, .08510, .13125 /
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 + .45675, .25656, 1.59078, .08483, .00000,
1750 + .00000, .04891, .12718,
1751 + .46430, .25875, 1.60786, .08607, .00000,
1752 + .00000, .05129, .12848,
1753 + .47394, .26120, 1.63826, .08785, -.01025,
1754 + .00000, .05465, .13014,
1755 + .47991, .26245, 1.63012, .08904, -.00592,
1756 + .00000, .05689, .13118,
1757 + .48544, .26342, 1.61618, .09014, -.00238,
1758 + .00000, .05906, .13198,
1759 + .48965, .26397, 1.59983, .09096, .00050,
1760 + .00000, .06075, .13249,
1761 + .49327, .26430, 1.58174, .09165, .00318,
1762 + .00000, .06225, .13284,
1763 + .49669, .26447, 1.56033, .09228, .00589,
1764 + .00000, .06370, .13309 /
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 + .49929, .26443, 1.53944, .09270, .00803,
1767 + .00000, .06481, .13319,
1768 + .50147, .26426, 1.51790, .09305, .00999,
1769 + .00000, .06578, .13317,
1770 + .50305, .26404, 1.50044, .09328, .01151,
1771 + .00000, .06651, .13309,
1772 + .50577, .26337, 1.46253, .09364, .01446,
1773 + .00000, .06785, .13275,
1774 + .50739, .26248, 1.43183, .09378, .01672,
1775 + -.00449, .06880, .13226,
1776 + .50865, .26125, 1.38382, .09376, .01903,
1777 + -.00100, .06966, .13154,
1778 + .50942, .25975, 1.33424, .09354, .02115,
1779 + .00194, .07031, .13059,
1780 + .50965, .25824, 1.28967, .09323, .02286,
1781 + .00436, .07070, .12958 /
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 + .50950, .25659, 1.24537, .09279, .02441,
1784 + .00659, .07098, .12842,
1785 + .50909, .25508, 1.20909, .09231, .02554,
1786 + .00824, .07109, .12737,
1787 + .50820, .25318, 1.16580, .09166, .02675,
1788 + .01004, .07108, .12598,
1789 + .50717, .25140, 1.12852, .09102, .02770,
1790 + .01151, .07097, .12468,
1791 + .50606, .24970, 1.09518, .09036, .02848,
1792 + .01275, .07080, .12345,
1793 + .50427, .24745, 1.05367, .08944, .02932,
1794 + .01413, .07050, .12178,
1795 + .50236, .24526, 1.01594, .08851, .03001,
1796 + .01531, .07012, .12016,
1797 + .50042, .24315, .98184, .08761, .03056,
1798 + .01633, .06970, .11863 /
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 + .49817, .24099, .94845, .08664, .03101,
1801 + .01719, .06919, .11703,
1802 + .49587, .23884, .91694, .08567, .03138,
1803 + .01796, .06866, .11544,
1804 + .49355, .23676, .88808, .08472, .03168,
1805 + .01863, .06813, .11390,
1806 + .49120, .23475, .86153, .08379, .03188,
1807 + .01917, .06757, .11244,
1808 + .48882, .23273, .83582, .08285, .03206,
1809 + .01968, .06700, .11098,
1810 + .48627, .23070, .81110, .08189, .03218,
1811 + .02011, .06639, .10951,
1812 + .48384, .22879, .78849, .08099, .03227,
1813 + .02048, .06580, .10812,
1814 + .48138, .22694, .76749, .08011, .03231,
1815 + .02079, .06522, .10678 /
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 + .47889, .22508, .74702, .07923, .03234,
1818 + .02107, .06463, .10544,
1819 + .47634, .22321, .72730, .07834, .03232,
1820 + .02131, .06402, .10412,
1821 + .47387, .22143, .70904, .07749, .03230,
1822 + .02151, .06342, .10286,
1823 + .47148, .21974, .69218, .07669, .03225,
1824 + .02169, .06286, .10167,
1825 + .46898, .21801, .67546, .07585, .03218,
1826 + .02183, .06227, .10044 /
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 + .50728, .27496, 1.42574, .06949, .00000,
1829 + .00000, .04164, .11501,
1830 + .51401, .27615, 1.41647, .07029, .00000,
1831 + .00000, .04339, .11521,
1832 + .52212, .27706, 1.41323, .07133, -.00986,
1833 + .00000, .04576, .11530,
1834 + .52676, .27711, 1.38616, .07198, -.00639,
1835 + .00000, .04730, .11519,
1836 + .53074, .27678, 1.35510, .07251, -.00352,
1837 + .00000, .04870, .11493,
1838 + .53349, .27624, 1.32641, .07286, -.00125,
1839 + .00000, .04977, .11452,
1840 + .53563, .27552, 1.29804, .07310, .00086,
1841 + .00000, .05066, .11405,
1842 + .53743, .27457, 1.26729, .07327, .00296,
1843 + .00000, .05150, .11346 /
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 + .53854, .27356, 1.23975, .07334, .00460,
1846 + .00000, .05212, .11281,
1847 + .53930, .27247, 1.21284, .07333, .00610,
1848 + .00000, .05264, .11213,
1849 + .53971, .27155, 1.19168, .07328, .00723,
1850 + .00000, .05300, .11157,
1851 + .53993, .26935, 1.14734, .07311, .00942,
1852 + .00000, .05360, .11028,
1853 + .53935, .26719, 1.11322, .07280, .01108,
1854 + -.00401, .05396, .10906,
1855 + .53814, .26460, 1.06479, .07237, .01274,
1856 + -.00146, .05421, .10756,
1857 + .53631, .26174, 1.01615, .07179, .01425,
1858 + .00068, .05430, .10590,
1859 + .53422, .25901, .97353, .07115, .01544,
1860 + .00242, .05425, .10430 /
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 + .53173, .25614, .93204, .07043, .01649,
1863 + .00399, .05410, .10262,
1864 + .52936, .25371, .89868, .06978, .01725,
1865 + .00514, .05389, .10119,
1866 + .52617, .25067, .85959, .06892, .01805,
1867 + .00640, .05355, .09941,
1868 + .52313, .24793, .82641, .06813, .01868,
1869 + .00741, .05318, .09781,
1870 + .52016, .24540, .79714, .06739, .01917,
1871 + .00825, .05280, .09631,
1872 + .51610, .24209, .76123, .06635, .01968,
1873 + .00917, .05225, .09440,
1874 + .51210, .23895, .72903, .06536, .02009,
1875 + .00995, .05168, .09260,
1876 + .50822, .23602, .70023, .06441, .02041,
1877 + .01061, .05111, .09091 /
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 + .50412, .23302, .67241, .06343, .02065,
1880 + .01116, .05050, .08921,
1881 + .50001, .23009, .64642, .06245, .02084,
1882 + .01165, .04988, .08755,
1883 + .49601, .22733, .62283, .06153, .02098,
1884 + .01207, .04926, .08597,
1885 + .49211, .22469, .60138, .06065, .02105,
1886 + .01239, .04866, .08449,
1887 + .48818, .22207, .58073, .05977, .02112,
1888 + .01270, .04806, .08302,
1889 + .48417, .21945, .56105, .05888, .02114,
1890 + .01295, .04744, .08156,
1891 + .48037, .21700, .54311, .05806, .02115,
1892 + .01318, .04685, .08022,
1893 + .47667, .21466, .52664, .05725, .02113,
1894 + .01335, .04628, .07894 /
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 + .47296, .21231, .51067, .05646, .02109,
1897 + .01351, .04570, .07767,
1898 + .46920, .20998, .49538, .05566, .02103,
1899 + .01363, .04512, .07642,
1900 + .46561, .20778, .48128, .05490, .02097,
1901 + .01373, .04457, .07525,
1902 + .46219, .20570, .46835, .05419, .02090,
1903 + .01381, .04404, .07414,
1904 + .45865, .20359, .45561, .05347, .02081,
1905 + .01388, .04350, .07300 /
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 + .54945, .28721, 1.25567, .05717, .00000,
1908 + .00000, .03548, .10263,
1909 + .55476, .28709, 1.23165, .05764, .00000,
1910 + .00000, .03671, .10198,
1911 + .56054, .28605, 1.20917, .05818, -.00907,
1912 + .00000, .03838, .10091,
1913 + .56325, .28482, 1.17285, .05846, -.00623,
1914 + .00000, .03940, .10003,
1915 + .56513, .28313, 1.13401, .05866, -.00390,
1916 + .00000, .04031, .09893,
1917 + .56599, .28144, 1.10009, .05870, -.00206,
1918 + .00000, .04094, .09791,
1919 + .56632, .27964, 1.06774, .05870, -.00038,
1920 + .00000, .04145, .09688,
1921 + .56615, .27758, 1.03377, .05862, .00126,
1922 + .00000, .04188, .09572 /
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 + .56556, .27561, 1.00428, .05847, .00255,
1925 + .00000, .04217, .09467,
1926 + .56465, .27363, .97611, .05827, .00370,
1927 + .00000, .04239, .09363,
1928 + .56374, .27200, .95430, .05809, .00458,
1929 + .00000, .04251, .09278,
1930 + .56115, .26841, .90948, .05763, .00625,
1931 + .00000, .04270, .09090,
1932 + .55820, .26511, .87563, .05715, .00749,
1933 + -.00346, .04271, .08927,
1934 + .55441, .26125, .83021, .05651, .00871,
1935 + -.00156, .04262, .08740,
1936 + .54993, .25714, .78538, .05575, .00981,
1937 + .00003, .04240, .08542,
1938 + .54545, .25337, .74671, .05501, .01067,
1939 + .00130, .04211, .08357 /
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 + .54062, .24949, .70958, .05421, .01142,
1942 + .00245, .04173, .08171,
1943 + .53636, .24626, .68013, .05352, .01195,
1944 + .00329, .04138, .08015,
1945 + .53096, .24227, .64601, .05262, .01249,
1946 + .00418, .04089, .07824,
1947 + .52600, .23872, .61739, .05180, .01290,
1948 + .00489, .04042, .07657,
1949 + .52135, .23549, .59233, .05104, .01322,
1950 + .00548, .03994, .07506,
1951 + .51516, .23137, .56198, .05003, .01355,
1952 + .00612, .03931, .07315,
1953 + .50923, .22751, .53502, .04909, .01380,
1954 + .00665, .03869, .07136,
1955 + .50363, .22392, .51114, .04821, .01399,
1956 + .00709, .03809, .06969 /
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 + .49780, .22032, .48826, .04730, .01412,
1959 + .00747, .03747, .06804,
1960 + .49208, .21682, .46704, .04643, .01422,
1961 + .00779, .03685, .06646,
1962 + .48663, .21353, .44793, .04559, .01428,
1963 + .00806, .03625, .06499,
1964 + .48140, .21044, .43068, .04478, .01431,
1965 + .00827, .03569, .06363,
1966 + .47618, .20739, .41419, .04400, .01431,
1967 + .00846, .03511, .06228,
1968 + .47096, .20435, .39859, .04322, .01429,
1969 + .00861, .03453, .06097,
1970 + .46604, .20152, .38445, .04248, .01426,
1971 + .00874, .03399, .05975,
1972 + .46127, .19885, .37154, .04179, .01421,
1973 + .00883, .03347, .05859 /
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 + .45651, .19620, .35907, .04110, .01416,
1976 + .00893, .03296, .05744,
1977 + .45177, .19357, .34720, .04044, .01409,
1978 + .00899, .03244, .05633,
1979 + .44727, .19110, .33630, .03979, .01402,
1980 + .00904, .03195, .05530,
1981 + .44303, .18878, .32634, .03919, .01395,
1982 + .00909, .03149, .05433,
1983 + .43867, .18644, .31659, .03858, .01386,
1984 + .00911, .03104, .05335 /
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 + .58402, .29403, 1.09536, .04723, .00000,
1987 + .00000, .03007, .09000,
1988 + .58722, .29258, 1.06342, .04750, .00000,
1989 + .00000, .03096, .08867,
1990 + .58973, .28970, 1.03041, .04778, -.00815,
1991 + .00000, .03200, .08675,
1992 + .59010, .28716, .99017, .04790, -.00582,
1993 + .00000, .03265, .08530,
1994 + .58948, .28414, .94851, .04786, -.00391,
1995 + .00000, .03315, .08376,
1996 + .58821, .28133, .91309, .04778, -.00241,
1997 + .00000, .03350, .08236,
1998 + .58650, .27848, .87998, .04762, -.00105,
1999 + .00000, .03374, .08100,
2000 + .58419, .27532, .84584, .04738, .00026,
2001 + .00000, .03392, .07958 /
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 + .58174, .27251, .81669, .04712, .00129,
2004 + .00000, .03400, .07830,
2005 + .57903, .26972, .78931, .04684, .00220,
2006 + .00000, .03402, .07704,
2007 + .57673, .26748, .76827, .04659, .00288,
2008 + .00000, .03401, .07605,
2009 + .57128, .26260, .72549, .04601, .00417,
2010 + .00000, .03391, .07394,
2011 + .56595, .25828, .69376, .04543, .00512,
2012 + -.00295, .03374, .07215,
2013 + .55954, .25339, .65259, .04472, .00605,
2014 + -.00150, .03346, .07016,
2015 + .55246, .24826, .61250, .04394, .00686,
2016 + -.00030, .03308, .06808,
2017 + .54573, .24360, .57830, .04318, .00750,
2018 + .00066, .03268, .06620 /
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 + .53873, .23891, .54582, .04237, .00803,
2021 + .00150, .03222, .06434,
2022 + .53276, .23499, .52033, .04168, .00841,
2023 + .00212, .03180, .06281,
2024 + .52527, .23027, .49108, .04082, .00879,
2025 + .00277, .03127, .06097,
2026 + .51856, .22615, .46674, .04005, .00908,
2027 + .00329, .03076, .05938,
2028 + .51239, .22241, .44563, .03932, .00930,
2029 + .00371, .03028, .05795,
2030 + .50437, .21764, .42025, .03839, .00951,
2031 + .00416, .02965, .05617,
2032 + .49678, .21323, .39791, .03752, .00966,
2033 + .00453, .02906, .05453,
2034 + .48965, .20916, .37828, .03673, .00977,
2035 + .00484, .02849, .05302 /
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 + .48243, .20511, .35963, .03591, .00984,
2038 + .00509, .02791, .05154,
2039 + .47540, .20121, .34244, .03512, .00989,
2040 + .00531, .02734, .05014,
2041 + .46877, .19757, .32706, .03438, .00991,
2042 + .00549, .02680, .04883,
2043 + .46245, .19418, .31327, .03367, .00991,
2044 + .00563, .02629, .04763,
2045 + .45617, .19086, .30013, .03299, .00989,
2046 + .00575, .02578, .04644,
2047 + .44994, .18757, .28779, .03231, .00986,
2048 + .00585, .02528, .04530,
2049 + .44413, .18452, .27666, .03169, .00982,
2050 + .00592, .02481, .04424,
2051 + .43856, .18164, .26654, .03110, .00976,
2052 + .00598, .02436, .04325 /
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 + .43304, .17878, .25680, .03052, .00971,
2055 + .00603, .02392, .04228,
2056 + .42757, .17600, .24757, .02994, .00965,
2057 + .00608, .02349, .04133,
2058 + .42237, .17338, .23913, .02941, .00958,
2059 + .00610, .02307, .04046,
2060 + .41749, .17093, .23146, .02891, .00951,
2061 + .00612, .02269, .03964,
2062 + .41256, .16846, .22399, .02839, .00943,
2063 + .00613, .02230, .03883 /
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 + .61097, .29648, .94985, .03930, .00000,
2066 + .00000, .02518, .07724,
2067 + .61174, .29355, .91398, .03940, .00000,
2068 + .00000, .02575, .07563,
2069 + .61056, .28877, .87535, .03951, -.00725,
2070 + .00000, .02646, .07319,
2071 + .60831, .28489, .83423, .03946, -.00532,
2072 + .00000, .02685, .07148,
2073 + .60495, .28061, .79241, .03935, -.00373,
2074 + .00000, .02712, .06968,
2075 + .60140, .27673, .75753, .03910, -.00250,
2076 + .00000, .02725, .06817,
2077 + .59752, .27294, .72530, .03886, -.00140,
2078 + .00000, .02734, .06670,
2079 + .59296, .26886, .69249, .03855, -.00033,
2080 + .00000, .02736, .06513 /
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 + .58861, .26524, .66492, .03824, .00049,
2083 + .00000, .02733, .06375,
2084 + .58414, .26171, .63920, .03790, .00121,
2085 + .00000, .02726, .06246,
2086 + .58048, .25891, .61959, .03761, .00176,
2087 + .00000, .02717, .06146,
2088 + .57219, .25294, .58015, .03697, .00277,
2089 + .00000, .02691, .05934,
2090 + .56460, .24774, .55115, .03637, .00351,
2091 + -.00248, .02665, .05757,
2092 + .55577, .24196, .51454, .03565, .00421,
2093 + -.00137, .02628, .05563,
2094 + .54628, .23601, .47928, .03486, .00483,
2095 + -.00045, .02584, .05364,
2096 + .53750, .23065, .44955, .03410, .00530,
2097 + .00027, .02540, .05188 /
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 + .52851, .22530, .42160, .03332, .00570,
2100 + .00091, .02490, .05016,
2101 + .52094, .22091, .39982, .03268, .00597,
2102 + .00136, .02449, .04875,
2103 + .51167, .21566, .37503, .03186, .00624,
2104 + .00185, .02396, .04707,
2105 + .50347, .21109, .35456, .03115, .00644,
2106 + .00223, .02350, .04565,
2107 + .49595, .20696, .33695, .03051, .00659,
2108 + .00253, .02305, .04436,
2109 + .48637, .20178, .31598, .02965, .00673,
2110 + .00286, .02245, .04278,
2111 + .47738, .19701, .29762, .02888, .00683,
2112 + .00312, .02191, .04133,
2113 + .46904, .19266, .28156, .02818, .00690,
2114 + .00334, .02140, .04002 /
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 + .46068, .18834, .26645, .02745, .00693,
2117 + .00351, .02089, .03873,
2118 + .45258, .18421, .25262, .02677, .00694,
2119 + .00366, .02039, .03753,
2120 + .44498, .18036, .24033, .02612, .00695,
2121 + .00379, .01992, .03643,
2122 + .43785, .17680, .22936, .02553, .00693,
2123 + .00388, .01947, .03540,
2124 + .43080, .17330, .21895, .02492, .00690,
2125 + .00395, .01903, .03442,
2126 + .42384, .16987, .20921, .02435, .00686,
2127 + .00401, .01861, .03347,
2128 + .41733, .16671, .20046, .02382, .00683,
2129 + .00407, .01820, .03259,
2130 + .41117, .16375, .19257, .02332, .00678,
2131 + .00410, .01783, .03176 /
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 + .40506, .16083, .18500, .02283, .00672,
2134 + .00413, .01747, .03097,
2135 + .39907, .15798, .17788, .02235, .00667,
2136 + .00415, .01711, .03019,
2137 + .39341, .15530, .17141, .02190, .00661,
2138 + .00416, .01677, .02946,
2139 + .38811, .15281, .16552, .02149, .00655,
2140 + .00416, .01645, .02879,
2141 + .38274, .15031, .15980, .02107, .00649,
2142 + .00417, .01614, .02812 /
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 + .63081, .29486, .81947, .03284, .00000,
2145 + .00000, .02082, .06494,
2146 + .62871, .29059, .78203, .03292, .00000,
2147 + .00000, .02124, .06309,
2148 + .62351, .28395, .74086, .03286, -.00641,
2149 + .00000, .02169, .06056,
2150 + .61851, .27885, .70053, .03268, -.00480,
2151 + .00000, .02192, .05882,
2152 + .61235, .27334, .66011, .03245, -.00346,
2153 + .00000, .02207, .05698,
2154 + .60641, .26858, .62677, .03221, -.00244,
2155 + .00000, .02213, .05538,
2156 + .60032, .26395, .59640, .03190, -.00153,
2157 + .00000, .02209, .05391,
2158 + .59355, .25903, .56574, .03153, -.00066,
2159 + .00000, .02202, .05239 /
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 + .58735, .25472, .54026, .03118, -.00001,
2162 + .00000, .02191, .05108,
2163 + .58116, .25060, .51671, .03081, .00057,
2164 + .00000, .02176, .04986,
2165 + .57615, .24736, .49886, .03052, .00101,
2166 + .00000, .02162, .04890,
2167 + .56523, .24045, .46328, .02985, .00181,
2168 + .00000, .02130, .04690,
2169 + .55553, .23458, .43729, .02923, .00239,
2170 + -.00207, .02098, .04529,
2171 + .54447, .22813, .40526, .02851, .00293,
2172 + -.00122, .02060, .04350,
2173 + .53282, .22152, .37470, .02775, .00340,
2174 + -.00051, .02014, .04172,
2175 + .52218, .21566, .34918, .02705, .00376,
2176 + .00005, .01970, .04013 /
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 + .51144, .20991, .32537, .02634, .00405,
2179 + .00053, .01925, .03857,
2180 + .50258, .20514, .30700, .02572, .00426,
2181 + .00088, .01885, .03736,
2182 + .49180, .19951, .28628, .02499, .00445,
2183 + .00123, .01836, .03590,
2184 + .48233, .19466, .26927, .02435, .00459,
2185 + .00151, .01793, .03465,
2186 + .47374, .19030, .25471, .02376, .00469,
2187 + .00173, .01752, .03355,
2188 + .46285, .18489, .23750, .02305, .00478,
2189 + .00197, .01701, .03219,
2190 + .45280, .17992, .22257, .02236, .00484,
2191 + .00216, .01653, .03097,
2192 + .44357, .17537, .20961, .02170, .00489,
2193 + .00232, .01610, .02986 /
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 + .43429, .17094, .19750, .02109, .00490,
2196 + .00244, .01564, .02880,
2197 + .42537, .16671, .18646, .02051, .00490,
2198 + .00255, .01521, .02779,
2199 + .41707, .16280, .17669, .01997, .00489,
2200 + .00262, .01481, .02688,
2201 + .40931, .15918, .16803, .01946, .00487,
2202 + .00269, .01444, .02604,
2203 + .40167, .15565, .15987, .01896, .00484,
2204 + .00273, .01408, .02523,
2205 + .39422, .15221, .15227, .01848, .00480,
2206 + .00277, .01372, .02445,
2207 + .38731, .14902, .14545, .01804, .00477,
2208 + .00281, .01338, .02374,
2209 + .38077, .14605, .13933, .01760, .00473,
2210 + .00283, .01309, .02309 /
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 + .37431, .14313, .13349, .01718, .00469,
2213 + .00285, .01279, .02244,
2214 + .36799, .14030, .12802, .01677, .00464,
2215 + .00285, .01249, .02183,
2216 + .36204, .13765, .12306, .01640, .00459,
2217 + .00285, .01221, .02126,
2218 + .35650, .13519, .11856, .01605, .00454,
2219 + .00285, .01194, .02074,
2220 + .35092, .13272, .11422, .01569, .00449,
2221 + .00285, .01169, .02022 /
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 + .64382, .28958, .70259, .02745, .00000,
2224 + .00000, .01719, .05343,
2225 + .63858, .28412, .66518, .02745, .00000,
2226 + .00000, .01744, .05167,
2227 + .62915, .27579, .62367, .02731, -.00563,
2228 + .00000, .01769, .04918,
2229 + .62120, .26974, .58516, .02719, -.00427,
2230 + .00000, .01778, .04741,
2231 + .61215, .26327, .54703, .02690, -.00315,
2232 + .00000, .01782, .04567,
2233 + .60393, .25767, .51602, .02660, -.00229,
2234 + .00000, .01775, .04421,
2235 + .59577, .25233, .48799, .02627, -.00155,
2236 + .00000, .01765, .04283,
2237 + .58686, .24671, .45995, .02590, -.00083,
2238 + .00000, .01752, .04142 /
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 + .57893, .24185, .43686, .02552, -.00029,
2241 + .00000, .01737, .04024,
2242 + .57113, .23722, .41570, .02517, .00017,
2243 + .00000, .01719, .03913,
2244 + .56491, .23361, .39976, .02488, .00052,
2245 + .00000, .01705, .03825,
2246 + .55151, .22607, .36819, .02423, .00115,
2247 + .00000, .01672, .03646,
2248 + .53985, .21975, .34530, .02366, .00161,
2249 + -.00172, .01641, .03499,
2250 + .52682, .21283, .31767, .02299, .00203,
2251 + -.00105, .01602, .03341,
2252 + .51333, .20580, .29153, .02227, .00239,
2253 + -.00051, .01558, .03187,
2254 + .50117, .19961, .26990, .02162, .00267,
2255 + -.00008, .01516, .03051 /
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 + .48901, .19351, .24991, .02098, .00289,
2258 + .00029, .01476, .02918,
2259 + .47901, .18860, .23459, .02044, .00303,
2260 + .00055, .01442, .02812,
2261 + .46706, .18275, .21744, .01976, .00317,
2262 + .00081, .01397, .02694,
2263 + .45667, .17771, .20351, .01916, .00327,
2264 + .00103, .01356, .02593,
2265 + .44731, .17326, .19165, .01861, .00334,
2266 + .00119, .01320, .02503,
2267 + .43548, .16773, .17772, .01798, .00341,
2268 + .00136, .01279, .02390,
2269 + .42458, .16271, .16572, .01739, .00345,
2270 + .00150, .01238, .02289,
2271 + .41460, .15816, .15538, .01685, .00347,
2272 + .00162, .01199, .02200 /
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 + .40476, .15369, .14576, .01631, .00347,
2275 + .00169, .01162, .02113,
2276 + .39536, .14945, .13703, .01580, .00347,
2277 + .00177, .01127, .02033,
2278 + .38664, .14554, .12937, .01532, .00345,
2279 + .00183, .01094, .01961,
2280 + .37852, .14196, .12259, .01488, .00344,
2281 + .00187, .01063, .01894,
2282 + .37057, .13846, .11623, .01445, .00341,
2283 + .00190, .01033, .01830,
2284 + .36279, .13509, .11037, .01405, .00338,
2285 + .00193, .01005, .01768,
2286 + .35559, .13199, .10515, .01369, .00335,
2287 + .00195, .00978, .01711,
2288 + .34884, .12909, .10047, .01334, .00331,
2289 + .00196, .00952, .01660 /
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 + .34219, .12626, .09601, .01300, .00327,
2292 + .00197, .00928, .01609,
2293 + .33573, .12351, .09183, .01266, .00323,
2294 + .00197, .00905, .01562,
2295 + .32967, .12094, .08806, .01234, .00320,
2296 + .00197, .00884, .01518,
2297 + .32403, .11857, .08465, .01205, .00316,
2298 + .00197, .00863, .01477,
2299 + .31837, .11620, .08137, .01176, .00312,
2300 + .00197, .00843, .01436 /
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 + .64901, .28234, .59782, .02387, .00000,
2303 + .00000, .01339, .04256,
2304 + .64085, .27560, .56140, .02375, .00000,
2305 + .00000, .01363, .04094,
2306 + .62727, .26578, .52081, .02343, -.00488,
2307 + .00000, .01384, .03870,
2308 + .61667, .25868, .48473, .02313, -.00375,
2309 + .00000, .01395, .03721,
2310 + .60499, .25130, .44944, .02276, -.00280,
2311 + .00000, .01397, .03564,
2312 + .59459, .24501, .42111, .02241, -.00209,
2313 + .00000, .01389, .03436,
2314 + .58447, .23910, .39567, .02204, -.00147,
2315 + .00000, .01380, .03318,
2316 + .57362, .23294, .37050, .02162, -.00089,
2317 + .00000, .01367, .03196 /
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 + .56411, .22767, .34995, .02124, -.00045,
2320 + .00000, .01353, .03093,
2321 + .55492, .22263, .33126, .02085, -.00007,
2322 + .00000, .01338, .02997,
2323 + .54768, .21872, .31727, .02051, .00020,
2324 + .00000, .01324, .02925,
2325 + .53213, .21068, .28978, .01990, .00071,
2326 + .00000, .01290, .02772,
2327 + .51898, .20394, .26998, .01929, .00107,
2328 + -.00140, .01261, .02652,
2329 + .50437, .19663, .24648, .01861, .00140,
2330 + -.00089, .01227, .02525,
2331 + .48936, .18934, .22449, .01792, .00168,
2332 + -.00046, .01187, .02399,
2333 + .47597, .18296, .20644, .01734, .00189,
2334 + -.00014, .01153, .02285 /
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 + .46268, .17677, .18991, .01674, .00205,
2337 + .00015, .01119, .02173,
2338 + .45192, .17175, .17732, .01621, .00216,
2339 + .00034, .01086, .02091,
2340 + .43904, .16584, .16338, .01563, .00226,
2341 + .00054, .01049, .01993,
2342 + .42789, .16081, .15213, .01512, .00233,
2343 + .00069, .01017, .01908,
2344 + .41790, .15634, .14259, .01470, .00238,
2345 + .00082, .00988, .01832,
2346 + .40549, .15083, .13148, .01409, .00243,
2347 + .00095, .00952, .01744,
2348 + .39409, .14584, .12198, .01357, .00245,
2349 + .00104, .00919, .01664,
2350 + .38369, .14136, .11382, .01311, .00246,
2351 + .00112, .00889, .01593 /
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 + .37347, .13696, .10633, .01267, .00246,
2354 + .00119, .00857, .01527,
2355 + .36377, .13281, .09957, .01224, .00245,
2356 + .00124, .00828, .01463,
2357 + .35484, .12901, .09367, .01181, .00244,
2358 + .00127, .00800, .01407,
2359 + .34656, .12554, .08847, .01143, .00242,
2360 + .00130, .00776, .01355,
2361 + .33845, .12217, .08359, .01106, .00240,
2362 + .00133, .00754, .01307,
2363 + .33059, .11891, .07913, .01072, .00237,
2364 + .00134, .00731, .01258,
2365 + .32333, .11591, .07517, .01040, .00235,
2366 + .00135, .00709, .01215,
2367 + .31655, .11315, .07164, .01013, .00232,
2368 + .00136, .00690, .01175 /
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 + .30988, .11043, .06827, .00985, .00228,
2371 + .00136, .00671, .01138,
2372 + .30340, .10782, .06516, .00958, .00226,
2373 + .00137, .00653, .01100,
2374 + .29733, .10538, .06236, .00934, .00223,
2375 + .00136, .00635, .01066,
2376 + .29170, .10313, .05984, .00910, .00219,
2377 + .00136, .00620, .01035,
2378 + .28611, .10090, .05743, .00886, .00216,
2379 + .00135, .00603, .01005 /
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 + .64864, .27157, .50220, .02004, .00000,
2382 + .00000, .01070, .03353,
2383 + .63727, .26391, .46782, .01985, .00000,
2384 + .00000, .01090, .03209,
2385 + .61961, .25281, .42925, .01953, -.00420,
2386 + .00000, .01106, .03012,
2387 + .60635, .24503, .39627, .01924, -.00326,
2388 + .00000, .01107, .02883,
2389 + .59206, .23703, .36435, .01886, -.00246,
2390 + .00000, .01101, .02751,
2391 + .57967, .23024, .33898, .01848, -.00187,
2392 + .00000, .01095, .02642,
2393 + .56780, .22383, .31645, .01810, -.00136,
2394 + .00000, .01084, .02543,
2395 + .55524, .21724, .29433, .01767, -.00089,
2396 + .00000, .01068, .02442 /
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 + .54429, .21172, .27643, .01732, -.00053,
2399 + .00000, .01053, .02353,
2400 + .53380, .20650, .26022, .01697, -.00022,
2401 + .00000, .01038, .02273,
2402 + .52559, .20245, .24820, .01665, -.00001,
2403 + .00000, .01027, .02212,
2404 + .50831, .19410, .22481, .01605, .00040,
2405 + .00000, .00998, .02083,
2406 + .49378, .18722, .20794, .01552, .00068,
2407 + -.00114, .00969, .01986,
2408 + .47784, .17980, .18828, .01495, .00094,
2409 + -.00074, .00938, .01880,
2410 + .46168, .17241, .17012, .01433, .00116,
2411 + -.00041, .00906, .01775,
2412 + .44738, .16599, .15539, .01379, .00131,
2413 + -.00016, .00874, .01682 /
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 + .43329, .15978, .14199, .01326, .00144,
2416 + .00005, .00843, .01596,
2417 + .42190, .15479, .13186, .01280, .00151,
2418 + .00019, .00817, .01531,
2419 + .40842, .14896, .12075, .01228, .00159,
2420 + .00035, .00785, .01451,
2421 + .39686, .14400, .11181, .01184, .00165,
2422 + .00046, .00760, .01384,
2423 + .38655, .13960, .10433, .01142, .00168,
2424 + .00055, .00735, .01327,
2425 + .37372, .13422, .09564, .01093, .00171,
2426 + .00064, .00705, .01260,
2427 + .36209, .12937, .08828, .01048, .00172,
2428 + .00071, .00677, .01199,
2429 + .35154, .12503, .08198, .01007, .00173,
2430 + .00077, .00652, .01145 /
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 + .34120, .12082, .07625, .00970, .00173,
2433 + .00082, .00628, .01091,
2434 + .33142, .11686, .07112, .00934, .00172,
2435 + .00085, .00604, .01042,
2436 + .32244, .11324, .06665, .00900, .00171,
2437 + .00088, .00584, .00998,
2438 + .31412, .10993, .06274, .00871, .00169,
2439 + .00090, .00564, .00957,
2440 + .30602, .10672, .05910, .00844, .00168,
2441 + .00092, .00546, .00919,
2442 + .29821, .10366, .05577, .00814, .00166,
2443 + .00093, .00528, .00884,
2444 + .29103, .10083, .05281, .00788, .00163,
2445 + .00093, .00513, .00852,
2446 + .28435, .09822, .05022, .00764, .00161,
2447 + .00093, .00497, .00823 /
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 + .27782, .09567, .04777, .00739, .00159,
2450 + .00094, .00482, .00795,
2451 + .27149, .09322, .04547, .00718, .00157,
2452 + .00094, .00467, .00768,
2453 + .26561, .09095, .04341, .00696, .00154,
2454 + .00094, .00454, .00743,
2455 + .26014, .08885, .04157, .00676, .00151,
2456 + .00093, .00442, .00720,
2457 + .25466, .08677, .03980, .00659, .00149,
2458 + .00093, .00430, .00698 /
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 + .64167, .25911, .41528, .01713, .00000,
2461 + .00000, .00826, .02556,
2462 + .62731, .25069, .38351, .01690, .00000,
2463 + .00000, .00845, .02436,
2464 + .60582, .23861, .34791, .01649, -.00358,
2465 + .00000, .00857, .02281,
2466 + .59018, .23024, .31841, .01613, -.00278,
2467 + .00000, .00859, .02174,
2468 + .57368, .22161, .29014, .01573, -.00212,
2469 + .00000, .00852, .02068,
2470 + .55956, .21445, .26790, .01532, -.00163,
2471 + .00000, .00844, .01984,
2472 + .54609, .20783, .24838, .01494, -.00122,
2473 + .00000, .00836, .01900,
2474 + .53200, .20108, .22934, .01458, -.00083,
2475 + .00000, .00824, .01811 /
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 + .51993, .19534, .21403, .01421, -.00054,
2478 + .00000, .00812, .01744,
2479 + .50844, .18995, .20037, .01384, -.00030,
2480 + .00000, .00798, .01679,
2481 + .49950, .18579, .19025, .01356, -.00012,
2482 + .00000, .00787, .01629,
2483 + .48077, .17729, .17074, .01301, .00019,
2484 + .00000, .00759, .01533,
2485 + .46528, .17035, .15676, .01247, .00042,
2486 + -.00092, .00738, .01455,
2487 + .44841, .16297, .14078, .01191, .00062,
2488 + -.00060, .00710, .01371,
2489 + .43141, .15563, .12607, .01136, .00079,
2490 + -.00035, .00681, .01291,
2491 + .41650, .14929, .11428, .01088, .00090,
2492 + -.00017, .00655, .01222 /
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 + .40198, .14316, .10367, .01040, .00100,
2495 + -.00001, .00630, .01154,
2496 + .39026, .13829, .09573, .01003, .00106,
2497 + .00011, .00609, .01099,
2498 + .37650, .13262, .08706, .00955, .00112,
2499 + .00022, .00584, .01038,
2500 + .36468, .12785, .08014, .00919, .00115,
2501 + .00030, .00562, .00989,
2502 + .35415, .12363, .07436, .00889, .00118,
2503 + .00037, .00543, .00946,
2504 + .34125, .11846, .06778, .00847, .00120,
2505 + .00044, .00517, .00892,
2506 + .32958, .11383, .06224, .00809, .00121,
2507 + .00049, .00495, .00845,
2508 + .31905, .10969, .05752, .00775, .00121,
2509 + .00053, .00477, .00803 /
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 + .30884, .10570, .05323, .00742, .00121,
2512 + .00057, .00456, .00765,
2513 + .29917, .10197, .04941, .00711, .00120,
2514 + .00059, .00437, .00730,
2515 + .29024, .09856, .04614, .00686, .00119,
2516 + .00061, .00423, .00696,
2517 + .28210, .09545, .04329, .00660, .00118,
2518 + .00062, .00407, .00667,
2519 + .27420, .09245, .04065, .00636, .00116,
2520 + .00063, .00393, .00639,
2521 + .26660, .08958, .03826, .00612, .00115,
2522 + .00064, .00378, .00614,
2523 + .25964, .08696, .03614, .00592, .00113,
2524 + .00065, .00364, .00591,
2525 + .25318, .08455, .03427, .00571, .00112,
2526 + .00065, .00354, .00569 /
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 + .24685, .08221, .03250, .00553, .00110,
2529 + .00065, .00342, .00548,
2530 + .24076, .07995, .03088, .00535, .00107,
2531 + .00064, .00332, .00527,
2532 + .23509, .07785, .02942, .00520, .00106,
2533 + .00064, .00322, .00509,
2534 + .22984, .07592, .02812, .00505, .00105,
2535 + .00064, .00313, .00491,
2536 + .22464, .07403, .02690, .00490, .00102,
2537 + .00063, .00304, .00474 /
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 + .62884, .24499, .33581, .01444, .00000,
2540 + .00000, .00634, .01907,
2541 + .61187, .23576, .30722, .01418, .00000,
2542 + .00000, .00646, .01821,
2543 + .58692, .22297, .27541, .01374, -.00300,
2544 + .00000, .00660, .01690,
2545 + .56924, .21413, .24967, .01332, -.00234,
2546 + .00000, .00658, .01612,
2547 + .55070, .20530, .22531, .01293, -.00180,
2548 + .00000, .00656, .01525,
2549 + .53500, .19796, .20640, .01258, -.00140,
2550 + .00000, .00650, .01452,
2551 + .52031, .19118, .18989, .01220, -.00106,
2552 + .00000, .00641, .01391,
2553 + .50509, .18425, .17395, .01177, -.00075,
2554 + .00000, .00627, .01331 /
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 + .49207, .17844, .16129, .01146, -.00051,
2557 + .00000, .00617, .01272,
2558 + .47976, .17301, .15001, .01114, -.00032,
2559 + .00000, .00605, .01224,
2560 + .47023, .16886, .14173, .01090, -.00018,
2561 + .00000, .00592, .01189,
2562 + .45062, .16039, .12588, .01030, .00007,
2563 + .00000, .00571, .01115,
2564 + .43433, .15360, .11468, .00991, .00024,
2565 + -.00073, .00551, .01049,
2566 + .41680, .14633, .10198, .00947, .00040,
2567 + -.00049, .00529, .00983,
2568 + .39934, .13916, .09045, .00897, .00052,
2569 + -.00029, .00507, .00921,
2570 + .38413, .13301, .08126, .00854, .00061,
2571 + -.00016, .00486, .00869 /
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 + .36933, .12714, .07312, .00812, .00069,
2574 + -.00003, .00465, .00818,
2575 + .35749, .12246, .06707, .00781, .00073,
2576 + .00005, .00449, .00776,
2577 + .34365, .11702, .06052, .00742, .00077,
2578 + .00013, .00429, .00735,
2579 + .33190, .11245, .05535, .00708, .00080,
2580 + .00019, .00409, .00699,
2581 + .32152, .10845, .05109, .00679, .00082,
2582 + .00025, .00393, .00665,
2583 + .30877, .10360, .04626, .00644, .00083,
2584 + .00029, .00375, .00623,
2585 + .29727, .09926, .04219, .00615, .00083,
2586 + .00033, .00359, .00589,
2587 + .28693, .09538, .03877, .00589, .00083,
2588 + .00036, .00343, .00559 /
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 + .27692, .09166, .03573, .00560, .00084,
2591 + .00039, .00329, .00528,
2592 + .26751, .08817, .03303, .00536, .00082,
2593 + .00040, .00314, .00502,
2594 + .25895, .08501, .03068, .00514, .00082,
2595 + .00042, .00302, .00479,
2596 + .25108, .08214, .02869, .00493, .00081,
2597 + .00042, .00289, .00459,
2598 + .24348, .07939, .02683, .00474, .00080,
2599 + .00043, .00278, .00440,
2600 + .23621, .07676, .02517, .00455, .00078,
2601 + .00043, .00267, .00421,
2602 + .22955, .07436, .02370, .00438, .00077,
2603 + .00044, .00259, .00403,
2604 + .22336, .07215, .02243, .00425, .00076,
2605 + .00044, .00250, .00387 /
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 + .21733, .07001, .02122, .00411, .00074,
2608 + .00044, .00242, .00372,
2609 + .21156, .06797, .02012, .00397, .00074,
2610 + .00044, .00233, .00357,
2611 + .20622, .06607, .01916, .00383, .00073,
2612 + .00044, .00226, .00342,
2613 + .20129, .06433, .01829, .00370, .00071,
2614 + .00043, .00218, .00330,
2615 + .19637, .06261, .01745, .00360, .00069,
2616 + .00043, .00212, .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 + .61099, .22898, .26358, .01176, .00000,
2619 + .00000, .00492, .01408,
2620 + .59154, .21941, .23877, .01151, .00000,
2621 + .00000, .00502, .01335,
2622 + .56352, .20622, .21123, .01109, -.00248,
2623 + .00000, .00506, .01245,
2624 + .54396, .19726, .18937, .01077, -.00194,
2625 + .00000, .00513, .01173,
2626 + .52387, .18822, .16913, .01034, -.00149,
2627 + .00000, .00502, .01112,
2628 + .50693, .18087, .15343, .01005, -.00117,
2629 + .00000, .00498, .01055,
2630 + .49120, .17410, .13988, .00974, -.00089,
2631 + .00000, .00489, .01007,
2632 + .47504, .16720, .12697, .00939, -.00065,
2633 + .00000, .00477, .00960 /
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 + .46137, .16143, .11683, .00905, -.00047,
2636 + .00000, .00468, .00923,
2637 + .44855, .15609, .10789, .00875, -.00031,
2638 + .00000, .00456, .00884,
2639 + .43868, .15203, .10133, .00852, -.00020,
2640 + .00000, .00450, .00852,
2641 + .41831, .14374, .08895, .00809, .00000,
2642 + .00000, .00429, .00794,
2643 + .40168, .13710, .08032, .00772, .00012,
2644 + -.00057, .00412, .00747,
2645 + .38394, .13010, .07058, .00727, .00025,
2646 + -.00038, .00396, .00699,
2647 + .36628, .12326, .06189, .00688, .00033,
2648 + -.00025, .00376, .00650,
2649 + .35098, .11739, .05508, .00653, .00040,
2650 + -.00014, .00358, .00610 /
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 + .33632, .11175, .04903, .00618, .00046,
2653 + -.00004, .00343, .00574,
2654 + .32455, .10734, .04458, .00590, .00049,
2655 + .00002, .00329, .00546,
2656 + .31087, .10226, .03986, .00561, .00052,
2657 + .00008, .00311, .00511,
2658 + .29932, .09799, .03619, .00535, .00054,
2659 + .00012, .00296, .00484,
2660 + .28916, .09423, .03316, .00512, .00056,
2661 + .00016, .00286, .00459,
2662 + .27676, .08970, .02976, .00482, .00056,
2663 + .00019, .00273, .00431,
2664 + .26563, .08568, .02696, .00457, .00057,
2665 + .00023, .00258, .00407,
2666 + .25566, .08211, .02462, .00435, .00057,
2667 + .00024, .00245, .00384 /
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 + .24602, .07869, .02254, .00416, .00057,
2670 + .00026, .00234, .00363,
2671 + .23701, .07551, .02072, .00396, .00056,
2672 + .00027, .00225, .00344,
2673 + .22881, .07263, .01916, .00380, .00055,
2674 + .00028, .00215, .00325,
2675 + .22136, .07001, .01785, .00363, .00055,
2676 + .00028, .00205, .00310,
2677 + .21415, .06750, .01664, .00348, .00054,
2678 + .00029, .00197, .00297,
2679 + .20729, .06513, .01556, .00334, .00053,
2680 + .00029, .00189, .00282,
2681 + .20103, .06298, .01462, .00320, .00053,
2682 + .00030, .00181, .00268,
2683 + .19524, .06098, .01379, .00308, .00051,
2684 + .00030, .00175, .00258 /
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 + .18961, .05904, .01301, .00297, .00051,
2687 + .00030, .00168, .00248,
2688 + .18420, .05721, .01230, .00287, .00050,
2689 + .00030, .00162, .00239,
2690 + .17920, .05551, .01169, .00277, .00048,
2691 + .00029, .00156, .00230,
2692 + .17460, .05395, .01116, .00267, .00048,
2693 + .00030, .00151, .00221,
2694 + .17009, .05244, .01063, .00257, .00047,
2695 + .00029, .00147, .00213 /
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 + .58761, .21284, .19856, .01001, .00000,
2698 + .00000, .00354, .00981,
2699 + .56619, .20293, .17764, .00965, .00000,
2700 + .00000, .00364, .00940,
2701 + .53585, .18940, .15487, .00914, -.00201,
2702 + .00000, .00377, .00866,
2703 + .51490, .18032, .13707, .00877, -.00158,
2704 + .00000, .00375, .00829,
2705 + .49355, .17135, .12070, .00844, -.00122,
2706 + .00000, .00374, .00777,
2707 + .47586, .16399, .10827, .00809, -.00096,
2708 + .00000, .00367, .00741,
2709 + .45946, .15727, .09767, .00780, -.00075,
2710 + .00000, .00360, .00706,
2711 + .44270, .15048, .08770, .00747, -.00055,
2712 + .00000, .00353, .00669 /
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 + .42866, .14484, .07990, .00717, -.00040,
2715 + .00000, .00343, .00643,
2716 + .41546, .13967, .07307, .00693, -.00029,
2717 + .00000, .00335, .00616,
2718 + .40534, .13575, .06816, .00674, -.00020,
2719 + .00000, .00328, .00593,
2720 + .38469, .12782, .05902, .00635, -.00005,
2721 + .00000, .00314, .00546,
2722 + .36802, .12146, .05257, .00600, .00005,
2723 + -.00044, .00302, .00514,
2724 + .35028, .11480, .04548, .00566, .00014,
2725 + -.00030, .00288, .00478,
2726 + .33279, .10828, .03924, .00532, .00021,
2727 + -.00019, .00272, .00446,
2728 + .31776, .10274, .03440, .00500, .00026,
2729 + -.00011, .00258, .00419 /
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 + .30332, .09748, .03020, .00471, .00031,
2732 + -.00004, .00244, .00396,
2733 + .29187, .09336, .02720, .00451, .00033,
2734 + .00000, .00233, .00372,
2735 + .27866, .08863, .02397, .00423, .00035,
2736 + .00005, .00221, .00347,
2737 + .26750, .08468, .02153, .00400, .00036,
2738 + .00007, .00212, .00325,
2739 + .25768, .08124, .01953, .00384, .00037,
2740 + .00010, .00203, .00308,
2741 + .24577, .07706, .01731, .00361, .00038,
2742 + .00013, .00190, .00290,
2743 + .23514, .07337, .01552, .00341, .00039,
2744 + .00015, .00181, .00273,
2745 + .22568, .07011, .01405, .00323, .00038,
2746 + .00016, .00172, .00258 /
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 + .21661, .06702, .01275, .00305, .00038,
2749 + .00017, .00164, .00243,
2750 + .20813, .06414, .01163, .00290, .00038,
2751 + .00018, .00155, .00229,
2752 + .20043, .06155, .01069, .00277, .00037,
2753 + .00019, .00148, .00216,
2754 + .19344, .05919, .00989, .00265, .00037,
2755 + .00019, .00142, .00207,
2756 + .18673, .05694, .00916, .00252, .00036,
2757 + .00019, .00136, .00198,
2758 + .18032, .05481, .00854, .00242, .00036,
2759 + .00020, .00131, .00187,
2760 + .17449, .05288, .00799, .00231, .00035,
2761 + .00019, .00125, .00179,
2762 + .16914, .05112, .00752, .00223, .00035,
2763 + .00020, .00121, .00171 /
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 + .16393, .04942, .00709, .00214, .00034,
2766 + .00020, .00115, .00162,
2767 + .15896, .04778, .00670, .00205, .00033,
2768 + .00019, .00111, .00155,
2769 + .15437, .04628, .00634, .00199, .00033,
2770 + .00020, .00108, .00149,
2771 + .15015, .04492, .00603, .00192, .00032,
2772 + .00020, .00103, .00144,
2773 + .14598, .04357, .00575, .00185, .00031,
2774 + .00019, .00100, .00139 /
2775 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
2776 + .56049, .19563, .14049, .00809, .00000,
2777 + .00000, .00258, .00676,
2778 + .53728, .18572, .12386, .00780, .00000,
2779 + .00000, .00264, .00647,
2780 + .50501, .17228, .10594, .00740, -.00161,
2781 + .00000, .00271, .00597,
2782 + .48299, .16339, .09214, .00706, -.00126,
2783 + .00000, .00269, .00569,
2784 + .46078, .15461, .07961, .00679, -.00097,
2785 + .00000, .00267, .00532,
2786 + .44250, .14738, .07024, .00648, -.00077,
2787 + .00000, .00263, .00510,
2788 + .42573, .14089, .06240, .00620, -.00061,
2789 + .00000, .00257, .00485,
2790 + .40866, .13440, .05509, .00593, -.00045,
2791 + .00000, .00250, .00457 /
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 + .39442, .12898, .04942, .00573, -.00034,
2794 + .00000, .00248, .00433,
2795 + .38124, .12398, .04459, .00548, -.00025,
2796 + .00000, .00240, .00415,
2797 + .37117, .12018, .04116, .00527, -.00019,
2798 + .00000, .00234, .00402,
2799 + .35063, .11265, .03473, .00495, -.00007,
2800 + .00000, .00223, .00371,
2801 + .33418, .10666, .03042, .00467, .00001,
2802 + -.00033, .00211, .00346,
2803 + .31675, .10040, .02562, .00437, .00008,
2804 + -.00023, .00199, .00322,
2805 + .29971, .09434, .02143, .00407, .00013,
2806 + -.00015, .00190, .00299,
2807 + .28512, .08919, .01832, .00379, .00017,
2808 + -.00009, .00180, .00279 /
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 + .27121, .08433, .01567, .00357, .00019,
2811 + -.00005, .00170, .00260,
2812 + .26015, .08056, .01376, .00342, .00022,
2813 + -.00001, .00161, .00245,
2814 + .24745, .07620, .01184, .00322, .00023,
2815 + .00002, .00153, .00227,
2816 + .23683, .07258, .01037, .00305, .00024,
2817 + .00005, .00146, .00214,
2818 + .22753, .06943, .00923, .00290, .00025,
2819 + .00006, .00138, .00202,
2820 + .21628, .06566, .00797, .00271, .00026,
2821 + .00008, .00130, .00190,
2822 + .20629, .06235, .00698, .00256, .00026,
2823 + .00010, .00123, .00176,
2824 + .19742, .05943, .00620, .00242, .00026,
2825 + .00011, .00116, .00164 /
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 + .18891, .05664, .00552, .00230, .00026,
2828 + .00012, .00110, .00155,
2829 + .18101, .05405, .00495, .00218, .00025,
2830 + .00012, .00104, .00147,
2831 + .17389, .05172, .00450, .00207, .00025,
2832 + .00012, .00099, .00140,
2833 + .16745, .04964, .00412, .00196, .00025,
2834 + .00013, .00094, .00132,
2835 + .16129, .04764, .00378, .00184, .00024,
2836 + .00013, .00090, .00125,
2837 + .15539, .04578, .00349, .00178, .00023,
2838 + .00013, .00087, .00118,
2839 + .15003, .04408, .00323, .00172, .00024,
2840 + .00013, .00084, .00112,
2841 + .14515, .04252, .00303, .00164, .00023,
2842 + .00013, .00080, .00108 /
2843 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
2844 + .14045, .04101, .00284, .00155, .00022,
2845 + .00013, .00076, .00104,
2846 + .13593, .03957, .00269, .00149, .00021,
2847 + .00013, .00072, .00099,
2848 + .13176, .03825, .00255, .00143, .00022,
2849 + .00013, .00070, .00095,
2850 + .12793, .03705, .00243, .00139, .00021,
2851 + .00013, .00068, .00091,
2852 + .12416, .03588, .00232, .00133, .00021,
2853 + .00013, .00066, .00088 /
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 + .52931, .17803, .08978, .00632, .00000,
2856 + .00000, .00190, .00460,
2857 + .50487, .16826, .07729, .00612, .00000,
2858 + .00000, .00200, .00432,
2859 + .47139, .15506, .06431, .00565, -.00126,
2860 + .00000, .00196, .00414,
2861 + .44870, .14639, .05431, .00542, -.00099,
2862 + .00000, .00199, .00388,
2863 + .42614, .13784, .04537, .00518, -.00076,
2864 + .00000, .00197, .00364,
2865 + .40767, .13095, .03896, .00494, -.00061,
2866 + .00000, .00190, .00341,
2867 + .39080, .12473, .03356, .00470, -.00048,
2868 + .00000, .00186, .00326,
2869 + .37380, .11850, .02860, .00445, -.00036,
2870 + .00000, .00183, .00312 /
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 + .35962, .11342, .02496, .00426, -.00028,
2873 + .00000, .00175, .00297,
2874 + .34651, .10874, .02187, .00409, -.00021,
2875 + .00000, .00170, .00282,
2876 + .33655, .10520, .01968, .00396, -.00016,
2877 + .00000, .00165, .00272,
2878 + .31640, .09810, .01578, .00367, -.00008,
2879 + .00000, .00159, .00252,
2880 + .30034, .09255, .01317, .00347, -.00001,
2881 + -.00024, .00152, .00232,
2882 + .28352, .08677, .01026, .00321, .00003,
2883 + -.00017, .00145, .00215,
2884 + .26709, .08116, .00791, .00297, .00007,
2885 + -.00012, .00135, .00200,
2886 + .25309, .07647, .00618, .00280, .00010,
2887 + -.00007, .00127, .00188 /
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 + .23983, .07205, .00480, .00259, .00012,
2890 + -.00004, .00119, .00175,
2891 + .22944, .06858, .00389, .00243, .00013,
2892 + -.00002, .00112, .00164,
2893 + .21751, .06467, .00294, .00226, .00015,
2894 + .00001, .00106, .00151,
2895 + .20753, .06142, .00227, .00214, .00015,
2896 + .00002, .00101, .00142,
2897 + .19882, .05860, .00175, .00202, .00016,
2898 + .00004, .00097, .00135,
2899 + .18831, .05523, .00128, .00190, .00016,
2900 + .00005, .00092, .00124,
2901 + .17905, .05226, .00092, .00178, .00016,
2902 + .00006, .00086, .00116,
2903 + .17088, .04964, .00066, .00167, .00017,
2904 + .00007, .00082, .00108 /
2905 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
2906 + .16307, .04718, .00045, .00156, .00017,
2907 + .00008, .00076, .00105,
2908 + .15583, .04492, .00030, .00147, .00016,
2909 + .00008, .00073, .00097,
2910 + .14934, .04289, .00017, .00138, .00017,
2911 + .00009, .00070, .00092,
2912 + .14347, .04105, .00011, .00131, .00016,
2913 + .00008, .00066, .00087,
2914 + .13783, .03931, .00006, .00125, .00015,
2915 + .00008, .00063, .00082,
2916 + .13249, .03766, .00001, .00119, .00015,
2917 + .00008, .00059, .00079,
2918 + .12764, .03618, .00000, .00113, .00015,
2919 + .00009, .00056, .00075,
2920 + .12322, .03483, -.00001, .00110, .00015,
2921 + .00009, .00054, .00070 /
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 + .11894, .03354, -.00001, .00107, .00014,
2924 + .00008, .00052, .00067,
2925 + .11488, .03232, -.00001, .00102, .00014,
2926 + .00008, .00049, .00065,
2927 + .11115, .03119, .00000, .00097, .00013,
2928 + .00008, .00047, .00062,
2929 + .10775, .03016, .00000, .00093, .00014,
2930 + .00009, .00045, .00060,
2931 + .10439, .02915, .00002, .00090, .00014,
2932 + .00009, .00044, .00057 /
2933 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
2934 + .49516, .16033, .04652, .00481, .00000,
2935 + .00000, .00139, .00306,
2936 + .46997, .15073, .03808, .00454, .00000,
2937 + .00000, .00147, .00299,
2938 + .43558, .13801, .02985, .00429, -.00097,
2939 + .00000, .00154, .00271,
2940 + .41279, .12967, .02337, .00405, -.00076,
2941 + .00000, .00147, .00262,
2942 + .39017, .12155, .01783, .00377, -.00059,
2943 + .00000, .00146, .00247,
2944 + .37180, .11503, .01384, .00355, -.00047,
2945 + .00000, .00146, .00235,
2946 + .35510, .10918, .01070, .00336, -.00037,
2947 + .00000, .00142, .00223,
2948 + .33830, .10335, .00799, .00320, -.00028,
2949 + .00000, .00138, .00209 /
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 + .32441, .09860, .00600, .00305, -.00022,
2952 + .00000, .00135, .00199,
2953 + .31165, .09424, .00438, .00290, -.00017,
2954 + .00000, .00131, .00190,
2955 + .30199, .09094, .00333, .00277, -.00013,
2956 + .00000, .00127, .00184,
2957 + .28251, .08442, .00148, .00259, -.00007,
2958 + .00000, .00117, .00171,
2959 + .26716, .07931, .00033, .00238, -.00003,
2960 + -.00018, .00113, .00162,
2961 + .25109, .07403, -.00090, .00220, .00001,
2962 + -.00012, .00106, .00147,
2963 + .23553, .06897, -.00187, .00203, .00003,
2964 + -.00009, .00098, .00137,
2965 + .22234, .06473, -.00246, .00189, .00006,
2966 + -.00005, .00093, .00128 /
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 + .20988, .06078, -.00287, .00177, .00007,
2969 + -.00004, .00089, .00116,
2970 + .20021, .05771, -.00310, .00164, .00009,
2971 + -.00001, .00084, .00110,
2972 + .18907, .05419, -.00323, .00154, .00009,
2973 + .00000, .00079, .00102,
2974 + .17979, .05131, -.00328, .00146, .00010,
2975 + .00001, .00074, .00096,
2976 + .17173, .04882, -.00326, .00137, .00010,
2977 + .00003, .00070, .00090,
2978 + .16217, .04586, -.00322, .00127, .00010,
2979 + .00003, .00066, .00084,
2980 + .15369, .04327, -.00312, .00117, .00010,
2981 + .00004, .00062, .00079,
2982 + .14621, .04100, -.00301, .00110, .00010,
2983 + .00004, .00059, .00074 /
2984 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
2985 + .13913, .03885, -.00288, .00104, .00011,
2986 + .00005, .00056, .00067,
2987 + .13256, .03687, -.00273, .00099, .00010,
2988 + .00005, .00052, .00062,
2989 + .12666, .03511, -.00257, .00094, .00011,
2990 + .00006, .00048, .00059,
2991 + .12138, .03354, -.00243, .00088, .00010,
2992 + .00005, .00047, .00057,
2993 + .11634, .03204, -.00228, .00083, .00010,
2994 + .00005, .00045, .00053,
2995 + .11159, .03063, -.00214, .00077, .00009,
2996 + .00005, .00042, .00051,
2997 + .10731, .02937, -.00202, .00072, .00009,
2998 + .00005, .00040, .00049,
2999 + .10337, .02822, -.00191, .00071, .00010,
3000 + .00006, .00038, .00046 /
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 + .09958, .02711, -.00179, .00069, .00009,
3003 + .00006, .00037, .00044,
3004 + .09598, .02606, -.00167, .00065, .00009,
3005 + .00006, .00036, .00041,
3006 + .09270, .02511, -.00158, .00062, .00009,
3007 + .00006, .00034, .00040,
3008 + .08971, .02423, -.00146, .00058, .00009,
3009 + .00005, .00032, .00038,
3010 + .08676, .02339, -.00136, .00056, .00008,
3011 + .00005, .00031, .00036 /
3012 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
3013 + .45883, .14361, .00992, .00408, .00000,
3014 + .00000, .00077, .00174,
3015 + .43330, .13447, .00538, .00382, .00000,
3016 + .00000, .00076, .00176,
3017 + .39904, .12228, .00159, .00344, -.00072,
3018 + .00000, .00084, .00162,
3019 + .37634, .11439, -.00175, .00326, -.00057,
3020 + .00000, .00092, .00151,
3021 + .35404, .10674, -.00435, .00307, -.00044,
3022 + .00000, .00089, .00143,
3023 + .33599, .10063, -.00603, .00289, -.00036,
3024 + .00000, .00089, .00137,
3025 + .31973, .09517, -.00724, .00271, -.00028,
3026 + .00000, .00086, .00131,
3027 + .30351, .08976, -.00813, .00250, -.00022,
3028 + .00000, .00083, .00128 /
3029 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
3030 + .29016, .08536, -.00874, .00239, -.00017,
3031 + .00000, .00081, .00122,
3032 + .27790, .08134, -.00906, .00229, -.00013,
3033 + .00000, .00078, .00115,
3034 + .26861, .07833, -.00923, .00222, -.00010,
3035 + .00000, .00077, .00109,
3036 + .25017, .07236, -.00935, .00196, -.00006,
3037 + .00000, .00070, .00103,
3038 + .23556, .06774, -.00921, .00186, -.00003,
3039 + -.00013, .00067, .00094,
3040 + .22047, .06298, -.00923, .00171, -.00001,
3041 + -.00009, .00065, .00086,
3042 + .20591, .05843, -.00902, .00158, .00001,
3043 + -.00007, .00059, .00078,
3044 + .19366, .05465, -.00874, .00147, .00003,
3045 + -.00004, .00056, .00071 /
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 + .18217, .05111, -.00837, .00134, .00004,
3048 + -.00003, .00053, .00067,
3049 + .17318, .04838, -.00805, .00128, .00005,
3050 + -.00001, .00050, .00062,
3051 + .16297, .04529, -.00759, .00117, .00006,
3052 + .00000, .00045, .00060,
3053 + .15453, .04275, -.00719, .00109, .00006,
3054 + .00001, .00043, .00056,
3055 + .14724, .04057, -.00683, .00103, .00006,
3056 + .00001, .00043, .00051,
3057 + .13854, .03797, -.00634, .00094, .00007,
3058 + .00002, .00039, .00048,
3059 + .13087, .03569, -.00591, .00088, .00006,
3060 + .00002, .00037, .00044,
3061 + .12410, .03371, -.00553, .00085, .00007,
3062 + .00003, .00034, .00044 /
3063 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
3064 + .11776, .03187, -.00512, .00077, .00007,
3065 + .00003, .00031, .00040,
3066 + .11191, .03018, -.00476, .00072, .00006,
3067 + .00003, .00029, .00037,
3068 + .10665, .02867, -.00444, .00070, .00006,
3069 + .00003, .00029, .00033,
3070 + .10197, .02731, -.00415, .00066, .00007,
3071 + .00004, .00028, .00031,
3072 + .09753, .02602, -.00387, .00061, .00007,
3073 + .00004, .00027, .00030,
3074 + .09333, .02482, -.00361, .00058, .00006,
3075 + .00004, .00026, .00028,
3076 + .08952, .02374, -.00338, .00056, .00006,
3077 + .00004, .00023, .00027,
3078 + .08608, .02276, -.00316, .00053, .00006,
3079 + .00004, .00022, .00025 /
3080 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
3081 + .08276, .02184, -.00297, .00051, .00006,
3082 + .00003, .00021, .00024,
3083 + .07963, .02096, -.00277, .00048, .00005,
3084 + .00003, .00020, .00023,
3085 + .07675, .02015, -.00260, .00046, .00005,
3086 + .00003, .00018, .00022,
3087 + .07414, .01942, -.00246, .00043, .00005,
3088 + .00003, .00019, .00022,
3089 + .07157, .01871, -.00230, .00042, .00005,
3090 + .00003, .00017, .00021 /
3091 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
3092 + .42036, .12644, -.01892, .00279, .00000,
3093 + .00000, .00061, .00113,
3094 + .39508, .11780, -.02013, .00267, .00000,
3095 + .00000, .00064, .00106,
3096 + .36111, .10643, -.02013, .00244, -.00053,
3097 + .00000, .00070, .00106,
3098 + .33908, .09914, -.02064, .00221, -.00042,
3099 + .00000, .00066, .00101,
3100 + .31737, .09210, -.02082, .00209, -.00032,
3101 + .00000, .00066, .00099,
3102 + .30007, .08644, -.02064, .00196, -.00026,
3103 + .00000, .00062, .00096,
3104 + .28447, .08144, -.02026, .00185, -.00021,
3105 + .00000, .00063, .00089,
3106 + .26894, .07656, -.01969, .00176, -.00016,
3107 + .00000, .00063, .00082 /
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 + .25620, .07258, -.01902, .00166, -.00013,
3110 + .00000, .00058, .00078,
3111 + .24464, .06898, -.01836, .00155, -.00011,
3112 + .00000, .00056, .00074,
3113 + .23595, .06631, -.01784, .00149, -.00008,
3114 + .00000, .00054, .00070,
3115 + .21864, .06097, -.01663, .00135, -.00005,
3116 + .00000, .00048, .00063,
3117 + .20507, .05684, -.01556, .00124, -.00003,
3118 + -.00009, .00047, .00059,
3119 + .19111, .05261, -.01466, .00113, -.00001,
3120 + -.00006, .00043, .00058,
3121 + .17772, .04861, -.01366, .00106, .00000,
3122 + -.00005, .00040, .00053,
3123 + .16647, .04528, -.01271, .00098, .00001,
3124 + -.00004, .00038, .00048 /
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 + .15597, .04221, -.01178, .00088, .00002,
3127 + -.00002, .00036, .00043,
3128 + .14782, .03984, -.01106, .00083, .00003,
3129 + -.00001, .00034, .00041,
3130 + .13856, .03715, -.01021, .00079, .00004,
3131 + .00000, .00032, .00038,
3132 + .13094, .03495, -.00948, .00075, .00003,
3133 + .00000, .00029, .00036,
3134 + .12441, .03309, -.00886, .00070, .00003,
3135 + .00000, .00027, .00034,
3136 + .11665, .03085, -.00808, .00063, .00004,
3137 + .00001, .00026, .00029,
3138 + .10983, .02892, -.00742, .00057, .00004,
3139 + .00001, .00023, .00027,
3140 + .10387, .02724, -.00685, .00054, .00004,
3141 + .00001, .00022, .00023 /
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 + .09826, .02567, -.00631, .00050, .00004,
3144 + .00002, .00021, .00024,
3145 + .09310, .02423, -.00582, .00046, .00004,
3146 + .00002, .00019, .00023,
3147 + .08850, .02295, -.00540, .00044, .00004,
3148 + .00002, .00018, .00023,
3149 + .08438, .02182, -.00500, .00043, .00004,
3150 + .00002, .00016, .00020,
3151 + .08048, .02074, -.00466, .00042, .00004,
3152 + .00002, .00015, .00019,
3153 + .07683, .01974, -.00432, .00039, .00004,
3154 + .00002, .00014, .00018,
3155 + .07356, .01884, -.00402, .00037, .00003,
3156 + .00002, .00014, .00015,
3157 + .07058, .01804, -.00376, .00034, .00003,
3158 + .00002, .00013, .00015 /
3159 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
3160 + .06773, .01726, -.00352, .00032, .00003,
3161 + .00002, .00013, .00014,
3162 + .06503, .01653, -.00329, .00029, .00003,
3163 + .00002, .00012, .00014,
3164 + .06256, .01586, -.00308, .00028, .00003,
3165 + .00002, .00012, .00013,
3166 + .06032, .01525, -.00290, .00027, .00004,
3167 + .00003, .00011, .00013,
3168 + .05814, .01468, -.00273, .00026, .00004,
3169 + .00003, .00011, .00013 /
3170 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
3171 + .38075, .11001, -.04077, .00182, .00000,
3172 + .00000, .00047, .00078,
3173 + .35594, .10197, -.03918, .00173, .00000,
3174 + .00000, .00054, .00078,
3175 + .32308, .09152, -.03573, .00160, -.00038,
3176 + .00000, .00047, .00071,
3177 + .30188, .08486, -.03413, .00148, -.00030,
3178 + .00000, .00051, .00066,
3179 + .28123, .07842, -.03234, .00139, -.00024,
3180 + .00000, .00050, .00066,
3181 + .26470, .07342, -.03058, .00128, -.00018,
3182 + .00000, .00048, .00060,
3183 + .24997, .06895, -.02892, .00120, -.00015,
3184 + .00000, .00043, .00057,
3185 + .23543, .06452, -.02720, .00112, -.00011,
3186 + .00000, .00040, .00055 /
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 + .22359, .06097, -.02577, .00107, -.00009,
3189 + .00000, .00041, .00051,
3190 + .21284, .05776, -.02440, .00101, -.00007,
3191 + .00000, .00042, .00047,
3192 + .20478, .05533, -.02334, .00095, -.00006,
3193 + .00000, .00042, .00047,
3194 + .18869, .05065, -.02116, .00088, -.00004,
3195 + .00000, .00040, .00043,
3196 + .17630, .04703, -.01943, .00081, -.00003,
3197 + -.00006, .00034, .00040,
3198 + .16353, .04336, -.01776, .00074, -.00002,
3199 + -.00005, .00030, .00036,
3200 + .15136, .03988, -.01614, .00067, -.00001,
3201 + -.00004, .00028, .00034,
3202 + .14126, .03701, -.01482, .00061, .00000,
3203 + -.00002, .00028, .00030 /
3204 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
3205 + .13185, .03434, -.01353, .00055, .00001,
3206 + -.00001, .00025, .00029,
3207 + .12455, .03232, -.01254, .00050, .00001,
3208 + -.00001, .00024, .00027,
3209 + .11634, .03003, -.01143, .00046, .00002,
3210 + .00000, .00021, .00026,
3211 + .10960, .02817, -.01052, .00044, .00002,
3212 + .00000, .00020, .00022,
3213 + .10378, .02658, -.00975, .00041, .00002,
3214 + .00000, .00019, .00022,
3215 + .09692, .02470, -.00884, .00039, .00003,
3216 + .00001, .00018, .00020,
3217 + .09094, .02307, -.00806, .00037, .00003,
3218 + .00001, .00017, .00018,
3219 + .08572, .02167, -.00736, .00034, .00002,
3220 + .00001, .00015, .00016 /
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 + .08084, .02036, -.00674, .00031, .00002,
3223 + .00001, .00014, .00015,
3224 + .07638, .01917, -.00616, .00029, .00002,
3225 + .00001, .00013, .00014,
3226 + .07244, .01810, -.00569, .00026, .00002,
3227 + .00001, .00013, .00013,
3228 + .06889, .01716, -.00526, .00025, .00002,
3229 + .00001, .00012, .00013,
3230 + .06551, .01628, -.00486, .00024, .00002,
3231 + .00001, .00012, .00011,
3232 + .06239, .01546, -.00451, .00023, .00002,
3233 + .00001, .00010, .00012,
3234 + .05960, .01471, -.00418, .00020, .00003,
3235 + .00002, .00009, .00012,
3236 + .05707, .01405, -.00390, .00019, .00003,
3237 + .00002, .00009, .00010 /
3238 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
3239 + .05463, .01342, -.00363, .00018, .00002,
3240 + .00002, .00008, .00010,
3241 + .05235, .01282, -.00338, .00018, .00002,
3242 + .00002, .00008, .00009,
3243 + .05026, .01228, -.00318, .00017, .00002,
3244 + .00002, .00008, .00009,
3245 + .04837, .01180, -.00300, .00016, .00002,
3246 + .00002, .00008, .00009,
3247 + .04653, .01132, -.00279, .00014, .00002,
3248 + .00002, .00007, .00008 /
3249 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
3250 + .34133, .09508, -.05705, .00153, .00000,
3251 + .00000, .00018, .00031,
3252 + .31756, .08772, -.05305, .00136, .00000,
3253 + .00000, .00024, .00034,
3254 + .28607, .07819, -.04698, .00127, -.00027,
3255 + .00000, .00025, .00036,
3256 + .26593, .07215, -.04358, .00121, -.00021,
3257 + .00000, .00027, .00032,
3258 + .24656, .06636, -.04003, .00104, -.00017,
3259 + .00000, .00023, .00032,
3260 + .23117, .06185, -.03722, .00097, -.00013,
3261 + .00000, .00022, .00030,
3262 + .21748, .05785, -.03466, .00090, -.00010,
3263 + .00000, .00024, .00028,
3264 + .20400, .05393, -.03212, .00085, -.00008,
3265 + .00000, .00025, .00028 /
3266 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
3267 + .19306, .05078, -.03002, .00081, -.00007,
3268 + .00000, .00023, .00028,
3269 + .18319, .04796, -.02800, .00074, -.00006,
3270 + .00000, .00020, .00025,
3271 + .17580, .04587, -.02658, .00071, -.00005,
3272 + .00000, .00019, .00025,
3273 + .16125, .04179, -.02377, .00062, -.00002,
3274 + .00000, .00019, .00025,
3275 + .14997, .03864, -.02159, .00060, -.00002,
3276 + -.00005, .00017, .00022,
3277 + .13848, .03546, -.01948, .00053, -.00001,
3278 + -.00003, .00016, .00019,
3279 + .12763, .03247, -.01748, .00045, .00000,
3280 + -.00002, .00015, .00018,
3281 + .11861, .03000, -.01580, .00042, .00001,
3282 + -.00001, .00012, .00016 /
3283 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
3284 + .11021, .02773, -.01432, .00041, .00001,
3285 + -.00001, .00013, .00015,
3286 + .10376, .02601, -.01316, .00040, .00000,
3287 + -.00001, .00012, .00014,
3288 + .09658, .02408, -.01188, .00034, .00000,
3289 + -.00001, .00011, .00013,
3290 + .09068, .02252, -.01087, .00031, .00001,
3291 + .00000, .00010, .00013,
3292 + .08565, .02118, -.00999, .00029, .00001,
3293 + .00000, .00010, .00010,
3294 + .07969, .01962, -.00900, .00026, .00001,
3295 + .00000, .00009, .00010,
3296 + .07452, .01825, -.00813, .00023, .00001,
3297 + .00000, .00007, .00009,
3298 + .07003, .01708, -.00742, .00022, .00001,
3299 + .00000, .00008, .00009 /
3300 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
3301 + .06583, .01600, -.00677, .00022, .00001,
3302 + .00000, .00006, .00008,
3303 + .06199, .01502, -.00620, .00021, .00001,
3304 + .00000, .00007, .00008,
3305 + .05861, .01415, -.00567, .00019, .00002,
3306 + .00001, .00005, .00007,
3307 + .05561, .01338, -.00522, .00018, .00002,
3308 + .00001, .00005, .00007,
3309 + .05278, .01266, -.00484, .00017, .00002,
3310 + .00001, .00006, .00007,
3311 + .05014, .01198, -.00446, .00015, .00002,
3312 + .00001, .00006, .00006,
3313 + .04778, .01139, -.00415, .00016, .00002,
3314 + .00001, .00006, .00006,
3315 + .04563, .01086, -.00385, .00014, .00002,
3316 + .00001, .00004, .00006 /
3317 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
3318 + .04359, .01034, -.00357, .00013, .00001,
3319 + .00001, .00004, .00006,
3320 + .04167, .00986, -.00334, .00013, .00001,
3321 + .00001, .00005, .00006,
3322 + .03994, .00943, -.00311, .00012, .00001,
3323 + .00001, .00005, .00004,
3324 + .03836, .00903, -.00290, .00010, .00001,
3325 + .00001, .00003, .00004,
3326 + .03683, .00866, -.00273, .00010, .00001,
3327 + .00001, .00003, .00004 /
3328 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
3329 + .30157, .08032, -.06695, .00083, .00000,
3330 + .00000, .00026, .00029,
3331 + .27897, .07377, -.06110, .00080, .00000,
3332 + .00000, .00024, .00026,
3333 + .24963, .06530, -.05317, .00069, -.00018,
3334 + .00000, .00023, .00029,
3335 + .23097, .05999, -.04853, .00063, -.00014,
3336 + .00000, .00023, .00027,
3337 + .21299, .05494, -.04396, .00059, -.00011,
3338 + .00000, .00021, .00023,
3339 + .19881, .05097, -.04035, .00056, -.00009,
3340 + .00000, .00020, .00022,
3341 + .18628, .04751, -.03718, .00053, -.00007,
3342 + .00000, .00018, .00021,
3343 + .17402, .04413, -.03400, .00048, -.00006,
3344 + .00000, .00016, .00019 /
3345 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
3346 + .16412, .04142, -.03149, .00043, -.00005,
3347 + .00000, .00015, .00019,
3348 + .15520, .03901, -.02923, .00042, -.00004,
3349 + .00000, .00016, .00018,
3350 + .14853, .03722, -.02759, .00041, -.00004,
3351 + .00000, .00015, .00017,
3352 + .13547, .03371, -.02430, .00036, -.00003,
3353 + .00000, .00014, .00014,
3354 + .12551, .03103, -.02191, .00032, -.00002,
3355 + -.00003, .00013, .00015,
3356 + .11536, .02834, -.01955, .00028, -.00001,
3357 + -.00002, .00012, .00013,
3358 + .10577, .02583, -.01739, .00025, -.00001,
3359 + -.00001, .00012, .00011,
3360 + .09787, .02379, -.01563, .00024, -.00001,
3361 + -.00001, .00011, .00011 /
3362 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
3363 + .09061, .02190, -.01401, .00021, .00000,
3364 + .00000, .00009, .00010,
3365 + .08505, .02046, -.01283, .00020, .00000,
3366 + .00000, .00010, .00008,
3367 + .07877, .01887, -.01150, .00019, .00000,
3368 + .00000, .00008, .00008,
3369 + .07368, .01758, -.01045, .00018, .00000,
3370 + .00000, .00007, .00008,
3371 + .06937, .01648, -.00956, .00016, .00000,
3372 + .00000, .00007, .00007,
3373 + .06429, .01521, -.00855, .00015, .00000,
3374 + .00000, .00006, .00006,
3375 + .05990, .01411, -.00770, .00013, .00000,
3376 + .00000, .00006, .00006,
3377 + .05612, .01317, -.00700, .00012, .00001,
3378 + .00001, .00006, .00006 /
3379 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
3380 + .05258, .01229, -.00634, .00011, .00001,
3381 + .00001, .00004, .00005,
3382 + .04937, .01150, -.00578, .00009, .00001,
3383 + .00001, .00005, .00005,
3384 + .04653, .01080, -.00529, .00009, .00001,
3385 + .00001, .00005, .00005,
3386 + .04402, .01019, -.00486, .00010, .00001,
3387 + .00001, .00005, .00004,
3388 + .04166, .00961, -.00445, .00008, .00001,
3389 + .00001, .00003, .00003,
3390 + .03947, .00907, -.00410, .00008, .00001,
3391 + .00001, .00003, .00003,
3392 + .03752, .00861, -.00379, .00007, .00001,
3393 + .00001, .00003, .00003,
3394 + .03576, .00817, -.00352, .00007, .00001,
3395 + .00001, .00003, .00003 /
3396 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
3397 + .03407, .00777, -.00327, .00007, .00001,
3398 + .00001, .00003, .00003,
3399 + .03249, .00739, -.00304, .00007, .00001,
3400 + .00001, .00002, .00003,
3401 + .03109, .00706, -.00283, .00006, .00001,
3402 + .00001, .00002, .00003,
3403 + .02980, .00674, -.00266, .00006, .00001,
3404 + .00001, .00002, .00003,
3405 + .02854, .00645, -.00248, .00006, .00001,
3406 + .00001, .00002, .00003 /
3407 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
3408 + .22544, .05528, -.07256, .00041, .00000,
3409 + .00000, .00006, .00007,
3410 + .20629, .05020, -.06474, .00033, .00000,
3411 + .00000, .00008, .00008,
3412 + .18177, .04378, -.05481, .00031, -.00007,
3413 + .00000, .00008, .00004,
3414 + .16639, .03983, -.04897, .00029, -.00006,
3415 + .00000, .00007, .00005,
3416 + .15183, .03608, -.04346, .00023, -.00005,
3417 + .00000, .00007, .00007,
3418 + .14051, .03318, -.03929, .00019, -.00004,
3419 + .00000, .00009, .00009,
3420 + .13054, .03067, -.03563, .00017, -.00003,
3421 + .00000, .00008, .00009,
3422 + .12088, .02826, -.03214, .00018, -.00003,
3423 + .00000, .00006, .00008 /
3424 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
3425 + .11319, .02633, -.02941, .00017, -.00002,
3426 + .00000, .00006, .00006,
3427 + .10629, .02462, -.02701, .00017, -.00002,
3428 + .00000, .00006, .00006,
3429 + .10119, .02336, -.02520, .00015, -.00002,
3430 + .00000, .00005, .00005,
3431 + .09126, .02093, -.02185, .00014, -.00001,
3432 + .00000, .00005, .00005,
3433 + .08376, .01910, -.01942, .00013, -.00001,
3434 + -.00001, .00005, .00003,
3435 + .07622, .01728, -.01707, .00011, -.00001,
3436 + -.00001, .00003, .00005,
3437 + .06919, .01559, -.01494, .00009, -.00001,
3438 + -.00001, .00003, .00005,
3439 + .06344, .01422, -.01324, .00009, -.00001,
3440 + -.00001, .00004, .00004 /
3441 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
3442 + .05819, .01300, -.01173, .00009, -.00001,
3443 + -.00001, .00004, .00002,
3444 + .05424, .01205, -.01061, .00008, .00000,
3445 + .00000, .00002, .00002,
3446 + .04986, .01102, -.00941, .00006, .00000,
3447 + .00000, .00002, .00002,
3448 + .04632, .01019, -.00850, .00005, .00000,
3449 + .00000, .00003, .00002,
3450 + .04330, .00950, -.00770, .00005, .00000,
3451 + .00000, .00002, .00002,
3452 + .03979, .00869, -.00682, .00005, .00000,
3453 + .00000, .00002, .00002,
3454 + .03679, .00801, -.00612, .00005, .00000,
3455 + .00000, .00003, .00003,
3456 + .03422, .00742, -.00550, .00004, .00000,
3457 + .00000, .00003, .00003 /
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 + .03185, .00688, -.00495, .00004, .00000,
3460 + .00000, .00003, .00001,
3461 + .02971, .00639, -.00446, .00004, .00000,
3462 + .00000, .00001, .00001,
3463 + .02783, .00596, -.00405, .00004, .00000,
3464 + .00000, .00001, .00001,
3465 + .02619, .00560, -.00371, .00002, .00000,
3466 + .00000, .00001, .00003,
3467 + .02465, .00525, -.00340, .00002, .00000,
3468 + .00000, .00001, .00003,
3469 + .02322, .00494, -.00310, .00002, .00000,
3470 + .00000, .00001, .00001,
3471 + .02194, .00465, -.00285, .00002, .00000,
3472 + .00000, .00001, .00001,
3473 + .02082, .00441, -.00264, .00002, .00000,
3474 + .00000, .00001, .00001 /
3475 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/
3476 + .01975, .00416, -.00245, .00003, .00000,
3477 + .00000, .00001, .00001,
3478 + .01875, .00394, -.00226, .00003, .00000,
3479 + .00000, .00001, .00001,
3480 + .01786, .00375, -.00210, .00001, .00000,
3481 + .00000, .00001, .00001,
3482 + .01704, .00357, -.00196, .00001, .00000,
3483 + .00000, .00001, .00001,
3484 + .01625, .00340, -.00182, .00001, .00000,
3485 + .00000, .00001, .00001 /
3486 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/
3487 + .15683, .03505, -.06398, .00008, .00000,
3488 + .00000, .00001, .00003,
3489 + .14187, .03149, -.05631, .00010, .00000,
3490 + .00000, .00001, .00004,
3491 + .12296, .02704, -.04676, .00010, -.00003,
3492 + .00000, .00002, .00005,
3493 + .11130, .02432, -.04113, .00008, -.00002,
3494 + .00000, .00003, .00005,
3495 + .10042, .02180, -.03596, .00008, -.00002,
3496 + .00000, .00003, .00003,
3497 + .09200, .01987, -.03203, .00008, -.00001,
3498 + .00000, .00001, .00001,
3499 + .08473, .01821, -.02870, .00008, -.00001,
3500 + .00000, .00001, -.00001,
3501 + .07776, .01663, -.02560, .00006, -.00001,
3502 + .00000, .00001, .00000 /
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 + .07223, .01538, -.02321, .00004, -.00001,
3505 + .00000, .00001, .00001,
3506 + .06733, .01426, -.02110, .00004, -.00001,
3507 + .00000, .00001, .00001,
3508 + .06372, .01345, -.01959, .00004, -.00001,
3509 + .00000, .00001, .00001,
3510 + .05676, .01192, -.01674, .00004, .00000,
3511 + .00000, .00001, .00001,
3512 + .05161, .01077, -.01471, .00002, .00000,
3513 + .00000, .00001, .00001,
3514 + .04645, .00965, -.01278, .00002, .00000,
3515 + .00000, .00001, .00001,
3516 + .04171, .00862, -.01106, .00003, .00000,
3517 + .00000, .00001, .00001,
3518 + .03787, .00778, -.00968, .00002, .00000,
3519 + .00000, .00001, .00001 /
3520 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
3521 + .03442, .00703, -.00850, .00002, .00000,
3522 + .00000, .00001, .00001,
3523 + .03183, .00648, -.00765, .00003, .00000,
3524 + .00000, .00001, .00001,
3525 + .02898, .00588, -.00673, .00003, .00000,
3526 + .00000, .00001, .00001,
3527 + .02670, .00538, -.00599, .00001, .00000,
3528 + .00000, .00000, .00001,
3529 + .02480, .00498, -.00541, .00001, .00000,
3530 + .00000, .00001, .00001,
3531 + .02258, .00452, -.00475, .00001, .00000,
3532 + .00000, .00001, .00001,
3533 + .02071, .00412, -.00419, .00001, .00000,
3534 + .00000, .00000, .00000,
3535 + .01914, .00380, -.00375, .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 + .01766, .00349, -.00335, .00001, .00000,
3539 + .00000, .00000, .00000,
3540 + .01635, .00323, -.00300, .00001, .00000,
3541 + .00000, .00000, .00000,
3542 + .01523, .00299, -.00271, .00001, .00000,
3543 + .00000, .00000, .00000,
3544 + .01423, .00280, -.00247, .00001, .00000,
3545 + .00000, .00000, .00000,
3546 + .01331, .00260, -.00223, .00001, .00000,
3547 + .00000, .00000, .00000,
3548 + .01246, .00243, -.00204, .00001, .00000,
3549 + .00000, .00000, .00000,
3550 + .01171, .00228, -.00186, .00001, .00000,
3551 + .00000, .00000, .00000,
3552 + .01106, .00214, -.00172, .00001, .00000,
3553 + .00000, .00000, .00000 /
3554 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/
3555 + .01043, .00201, -.00157, .00000, .00000,
3556 + .00000, .00000, .00000,
3557 + .00986, .00190, -.00145, .00000, .00000,
3558 + .00000, .00000, .00000,
3559 + .00933, .00180, -.00134, .00000, .00000,
3560 + .00000, .00000, .00000,
3561 + .00887, .00170, -.00124, .00000, .00000,
3562 + .00000, .00000, .00000,
3563 + .00843, .00162, -.00115, .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 + .09934, .02003, -.04829, .00010, .00000,
3567 + .00000, -.00001, -.00001,
3568 + .08870, .01780, -.04180, .00007, .00000,
3569 + .00000, -.00001, -.00004,
3570 + .07555, .01501, -.03410, .00004, -.00001,
3571 + .00000, -.00001, -.00001,
3572 + .06756, .01333, -.02958, .00004, -.00001,
3573 + .00000, -.00001, -.00001,
3574 + .06017, .01180, -.02553, .00004, .00000,
3575 + .00000, .00000, .00000,
3576 + .05456, .01066, -.02252, .00004, .00000,
3577 + .00000, .00000, .00000,
3578 + .04974, .00966, -.01998, .00002, .00000,
3579 + .00000, .00000, .00002,
3580 + .04517, .00873, -.01764, .00002, .00000,
3581 + .00000, .00000, .00002 /
3582 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
3583 + .04158, .00800, -.01580, .00002, .00000,
3584 + .00000, .00000, .00000,
3585 + .03845, .00738, -.01427, .00002, .00000,
3586 + .00000, .00000, .00000,
3587 + .03614, .00691, -.01315, .00002, .00000,
3588 + .00000, .00000, .00000,
3589 + .03180, .00605, -.01111, .00002, .00000,
3590 + .00000, .00000, .00000,
3591 + .02858, .00541, -.00966, .00002, .00000,
3592 + .00000, .00000, .00000,
3593 + .02541, .00478, -.00828, .00002, .00000,
3594 + .00000, .00000, .00000,
3595 + .02255, .00421, -.00706, .00000, .00000,
3596 + .00000, .00000, .00000,
3597 + .02025, .00377, -.00614, .00002, .00000,
3598 + .00000, .00000, .00000 /
3599 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/
3600 + .01821, .00337, -.00533, .00002, .00000,
3601 + .00000, .00000, .00000,
3602 + .01669, .00308, -.00473, .00000, .00000,
3603 + .00000, .00000, .00000,
3604 + .01503, .00276, -.00411, .00000, .00000,
3605 + .00000, .00000, .00000,
3606 + .01372, .00252, -.00364, .00000, .00000,
3607 + .00000, .00000, .00000,
3608 + .01265, .00231, -.00326, .00000, .00000,
3609 + .00000, .00000, .00000,
3610 + .01141, .00207, -.00283, .00000, .00000,
3611 + .00000, .00000, .00000,
3612 + .01037, .00188, -.00249, .00000, .00000,
3613 + .00000, .00000, .00000,
3614 + .00948, .00171, -.00220, .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 + .00869, .00156, -.00195, .00000, .00000,
3618 + .00000, .00000, .00000,
3619 + .00798, .00143, -.00174, .00000, .00000,
3620 + .00000, .00000, .00000,
3621 + .00737, .00131, -.00156, .00000, .00000,
3622 + .00000, .00000, .00000,
3623 + .00684, .00121, -.00140, .00000, .00000,
3624 + .00000, .00000, .00000,
3625 + .00635, .00113, -.00127, .00000, .00000,
3626 + .00000, .00000, .00000,
3627 + .00592, .00104, -.00115, .00000, .00000,
3628 + .00000, .00000, .00000,
3629 + .00553, .00097, -.00105, .00000, .00000,
3630 + .00000, .00000, .00000,
3631 + .00518, .00091, -.00095, .00000, .00000,
3632 + .00000, .00000, .00000 /
3633 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=33,37)/
3634 + .00485, .00085, -.00087, .00000, .00000,
3635 + .00000, .00000, .00000,
3636 + .00456, .00080, -.00080, .00000, .00000,
3637 + .00000, .00000, .00000,
3638 + .00429, .00075, -.00073, .00000, .00000,
3639 + .00000, .00000, .00000,
3640 + .00405, .00071, -.00068, .00000, .00000,
3641 + .00000, .00000, .00000,
3642 + .00384, .00066, -.00062, .00000, .00000,
3643 + .00000, .00000, .00000 /
3644 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/
3645 + .05510, .00971, -.03058, .00000, .00000,
3646 + .00000, .00000, .00000,
3647 + .04852, .00852, -.02623, .00000, .00000,
3648 + .00000, .00000, .00002,
3649 + .04048, .00710, -.02099, .00000, .00000,
3650 + .00000, .00000, .00000,
3651 + .03568, .00621, -.01795, .00000, .00000,
3652 + .00000, .00000, .00000,
3653 + .03133, .00543, -.01530, .00000, .00000,
3654 + .00000, .00000, .00000,
3655 + .02805, .00483, -.01331, .00000, .00000,
3656 + .00000, .00000, .00000,
3657 + .02528, .00434, -.01169, .00000, .00000,
3658 + .00000, .00000, .00000,
3659 + .02270, .00388, -.01022, .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 + .02068, .00351, -.00907, .00000, .00000,
3663 + .00000, .00000, .00000,
3664 + .01894, .00323, -.00814, .00000, .00000,
3665 + .00000, .00000, .00000,
3666 + .01765, .00299, -.00742, .00000, .00000,
3667 + .00000, .00000, .00000,
3668 + .01529, .00257, -.00617, .00000, .00000,
3669 + .00000, .00000, .00000,
3670 + .01356, .00228, -.00531, .00000, .00000,
3671 + .00000, .00000, .00000,
3672 + .01190, .00198, -.00449, .00000, .00000,
3673 + .00000, .00000, .00000,
3674 + .01039, .00173, -.00378, .00000, .00000,
3675 + .00000, .00000, .00000,
3676 + .00921, .00153, -.00324, .00000, .00000,
3677 + .00000, .00000, .00000 /
3678 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=17,24)/
3679 + .00818, .00136, -.00278, .00000, .00000,
3680 + .00000, .00000, .00000,
3681 + .00741, .00122, -.00245, .00000, .00000,
3682 + .00000, .00000, .00000,
3683 + .00660, .00110, -.00211, .00000, .00000,
3684 + .00000, .00000, .00000,
3685 + .00597, .00098, -.00185, .00000, .00000,
3686 + .00000, .00000, .00000,
3687 + .00543, .00088, -.00162, .00000, .00000,
3688 + .00000, .00000, .00000,
3689 + .00485, .00080, -.00141, .00000, .00000,
3690 + .00000, .00000, .00000,
3691 + .00436, .00070, -.00122, .00000, .00000,
3692 + .00000, .00000, .00000,
3693 + .00395, .00064, -.00107, .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 + .00357, .00056, -.00093, .00000, .00000,
3697 + .00000, .00000, .00000,
3698 + .00326, .00052, -.00083, .00000, .00000,
3699 + .00000, .00000, .00000,
3700 + .00297, .00049, -.00074, .00000, .00000,
3701 + .00000, .00000, .00000,
3702 + .00274, .00044, -.00066, .00000, .00000,
3703 + .00000, .00000, .00000,
3704 + .00253, .00040, -.00059, .00000, .00000,
3705 + .00000, .00000, .00000,
3706 + .00232, .00037, -.00052, .00000, .00000,
3707 + .00000, .00000, .00000,
3708 + .00216, .00034, -.00048, .00000, .00000,
3709 + .00000, .00000, .00000,
3710 + .00202, .00031, -.00044, .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 + .00188, .00030, -.00040, .00000, .00000,
3714 + .00000, .00000, .00000,
3715 + .00175, .00027, -.00036, .00000, .00000,
3716 + .00000, .00000, .00000,
3717 + .00164, .00026, -.00033, .00000, .00000,
3718 + .00000, .00000, .00000,
3719 + .00154, .00024, -.00030, .00000, .00000,
3720 + .00000, .00000, .00000,
3721 + .00144, .00022, -.00027, .00000, .00000,
3722 + .00000, .00000, .00000 /
3723 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/
3724 + .00785, .00104, -.00553, .00000, .00000,
3725 + .00000, .00000, .00000,
3726 + .00662, .00086, -.00454, .00000, .00000,
3727 + .00000, .00000, .00000,
3728 + .00520, .00067, -.00344, .00000, .00000,
3729 + .00000, .00000, .00000,
3730 + .00440, .00057, -.00284, .00000, .00000,
3731 + .00000, .00000, .00000,
3732 + .00369, .00048, -.00232, .00000, .00000,
3733 + .00000, .00000, .00000,
3734 + .00319, .00042, -.00196, .00000, .00000,
3735 + .00000, .00000, .00000,
3736 + .00279, .00036, -.00167, .00000, .00000,
3737 + .00000, .00000, .00000,
3738 + .00241, .00031, -.00140, .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 + .00213, .00028, -.00122, .00000, .00000,
3742 + .00000, .00000, .00000,
3743 + .00189, .00023, -.00105, .00000, .00000,
3744 + .00000, .00000, .00000,
3745 + .00174, .00023, -.00097, .00000, .00000,
3746 + .00000, .00000, .00000,
3747 + .00144, .00018, -.00077, .00000, .00000,
3748 + .00000, .00000, .00000,
3749 + .00122, .00015, -.00063, .00000, .00000,
3750 + .00000, .00000, .00000,
3751 + .00102, .00013, -.00052, .00000, .00000,
3752 + .00000, .00000, .00000,
3753 + .00086, .00011, -.00042, .00000, .00000,
3754 + .00000, .00000, .00000,
3755 + .00074, .00009, -.00035, .00000, .00000,
3756 + .00000, .00000, .00000 /
3757 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/
3758 + .00064, .00007, -.00029, .00000, .00000,
3759 + .00000, .00000, .00000,
3760 + .00056, .00007, -.00025, .00000, .00000,
3761 + .00000, .00000, .00000,
3762 + .00048, .00005, -.00020, .00000, .00000,
3763 + .00000, .00000, .00000,
3764 + .00041, .00005, -.00017, .00000, .00000,
3765 + .00000, .00000, .00000,
3766 + .00037, .00005, -.00015, .00000, .00000,
3767 + .00000, .00000, .00000,
3768 + .00032, .00003, -.00012, .00000, .00000,
3769 + .00000, .00000, .00000,
3770 + .00027, .00003, -.00010, .00000, .00000,
3771 + .00000, .00000, .00000,
3772 + .00024, .00003, -.00009, .00000, .00000,
3773 + .00000, .00000, .00000 /
3774 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
3775 + .00022, .00003, -.00008, .00000, .00000,
3776 + .00000, .00000, .00000,
3777 + .00019, .00003, -.00007, .00000, .00000,
3778 + .00000, .00000, .00000,
3779 + .00017, .00001, -.00006, .00000, .00000,
3780 + .00000, .00000, .00000,
3781 + .00016, .00001, -.00005, .00000, .00000,
3782 + .00000, .00000, .00000,
3783 + .00014, .00001, -.00004, .00000, .00000,
3784 + .00000, .00000, .00000,
3785 + .00012, .00001, -.00004, .00000, .00000,
3786 + .00000, .00000, .00000,
3787 + .00011, .00001, -.00003, .00000, .00000,
3788 + .00000, .00000, .00000,
3789 + .00010, .00001, -.00003, .00000, .00000,
3790 + .00000, .00000, .00000 /
3791 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
3792 + .00009, .00001, -.00003, .00000, .00000,
3793 + .00000, .00000, .00000,
3794 + .00008, .00001, -.00002, .00000, .00000,
3795 + .00000, .00000, .00000,
3796 + .00008, .00001, -.00002, .00000, .00000,
3797 + .00000, .00000, .00000,
3798 + .00007, .00001, -.00002, .00000, .00000,
3799 + .00000, .00000, .00000,
3800 + .00007, .00001, -.00002, .00000, .00000,
3801 + .00000, .00000, .00000 /
3802 data xx/1d-5,2d-5,4d-5,6d-5,8d-5,
3803 . 1d-4,2d-4,4d-4,6d-4,8d-4,
3804 . 1d-3,2d-3,4d-3,6d-3,8d-3,
3805 . 1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2,
3806 . .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0,
3807 . .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0,
3808 . .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0,
3810 data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1,
3811 . 1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2,
3812 . 1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4,
3813 . 1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6,
3814 . 1.8d6,3.2d6,5.6d6,1d7/
3815 data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/
3816 data n0/3,4,5,9,9,9,9,9/
3817 DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
3822 if(init.ne.0) goto 10
3823 C open(unit=1,file='cor11dis.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