2 subroutine sfmrs_98d1(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 + .00683, .00255, 1.14248, .89678, .00000,
12 + .00000, .48136, .90979,
13 + .00696, .00260, 2.37364, .93682, .00000,
14 + .00000, .52607, .94992,
15 + .00716, .00267, 4.77966, 1.01920, .05296,
16 + .00000, .61519, 1.03241,
17 + .00731, .00274, 7.14584, 1.09626, .13577,
18 + .00000, .69703, 1.10951,
19 + .00747, .00280, 10.17991, 1.19595, .22838,
20 + .00000, .80164, 1.20926,
21 + .00761, .00286, 13.29848, 1.29764, .32302,
22 + .00000, .90748, 1.31099,
23 + .00774, .00292, 16.81583, 1.40804, .43022,
24 + .00000, 1.02178, 1.42141,
25 + .00788, .00298, 21.14979, 1.53997, .56122,
26 + .00000, 1.15777, 1.55337 /
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 + .00801, .00303, 25.37242, 1.66901, .68635,
29 + .00000, 1.29025, 1.68242,
30 + .00814, .00308, 29.91010, 1.80582, .82015,
31 + .00000, 1.43035, 1.81925,
32 + .00824, .00313, 33.88895, 1.92280, .93735,
33 + .00000, 1.54989, 1.93622,
34 + .00845, .00322, 43.49775, 2.20080, 1.21267,
35 + .00000, 1.83323, 2.21423,
36 + .00864, .00331, 52.36374, 2.47207, 1.48066,
37 + .35504, 2.10902, 2.48549,
38 + .00886, .00341, 63.93034, 2.81291, 1.81943,
39 + .74582, 2.45479, 2.82631,
40 + .00908, .00351, 77.51489, 3.21134, 2.21630,
41 + 1.16032, 2.85823, 3.22471,
42 + .00930, .00361, 91.24940, 3.61335, 2.61746,
43 + 1.57978, 3.26466, 3.62668 /
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 + .00951, .00371, 106.51928, 4.06031, 3.06460,
46 + 2.04553, 3.71599, 4.07361,
47 + .00969, .00379, 120.22600, 4.46370, 3.46718,
48 + 2.46003, 4.12292, 4.47695,
49 + .00991, .00389, 138.10390, 4.99305, 3.99485,
50 + 3.00127, 4.65648, 5.00626,
51 + .01011, .00399, 155.19197, 5.50045, 4.50232,
52 + 3.52432, 5.16753, 5.51361,
53 + .01029, .00408, 171.92858, 5.99943, 5.00233,
54 + 4.04005, 5.66979, 6.01254,
55 + .01052, .00419, 194.35722, 6.67651, 5.67781,
56 + 4.72999, 6.35093, 6.68955,
57 + .01075, .00430, 216.92970, 7.36245, 6.36372,
58 + 5.43257, 7.04062, 7.37542,
59 + .01095, .00440, 239.48357, 8.05148, 7.05483,
60 + 6.14295, 7.73308, 8.06438 /
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 + .01118, .00450, 262.91627, 8.77890, 7.78064,
63 + 6.88165, 8.46386, 8.79173,
64 + .01138, .00461, 287.15531, 9.53581, 8.53816,
65 + 7.65572, 9.22399, 9.54857,
66 + .01159, .00471, 311.19806, 10.29302, 9.29648,
67 + 8.43050, 9.98423, 10.30573,
68 + .01178, .00480, 334.58537, 11.03900, 10.04200,
69 + 9.18926, 10.73299, 11.05164,
70 + .01198, .00489, 359.25729, 11.82941, 10.83438,
71 + 9.99878, 11.52614, 11.84199,
72 + .01218, .00499, 384.02712, 12.63516, 11.63932,
73 + 10.81646, 12.33456, 12.64767,
74 + .01237, .00508, 408.72876, 13.44120, 12.44742,
75 + 11.64105, 13.14307, 13.45364,
76 + .01255, .00518, 432.41628, 14.22584, 13.23152,
77 + 12.43692, 13.93005, 14.23823 /
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 + .01273, .00526, 457.29456, 15.05321, 14.06041,
80 + 13.28082, 14.75972, 15.06553,
81 + .01291, .00536, 482.30382, 15.89478, 14.90237,
82 + 14.13601, 15.60354, 15.90704,
83 + .01309, .00544, 506.83829, 16.72663, 15.73501,
84 + 14.98188, 16.43750, 16.73883,
85 + .01326, .00553, 530.79916, 17.54396, 16.55406,
86 + 15.81493, 17.25681, 17.55610,
87 + .01343, .00561, 555.22107, 18.38805, 17.39804,
88 + 16.67038, 18.10288, 18.40014 /
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 + .00922, .00356, 1.05676, .76150, .00000,
91 + .00000, .40864, .76912,
92 + .00940, .00364, 2.16642, .79824, .00000,
93 + .00000, .44905, .80590,
94 + .00967, .00375, 4.28584, .87074, .04679,
95 + .00000, .52680, .87845,
96 + .00988, .00384, 6.32817, .93683, .11774,
97 + .00000, .59664, .94457,
98 + .01011, .00393, 8.90216, 1.02078, .19554,
99 + .00000, .68442, 1.02855,
100 + .01030, .00402, 11.50757, 1.10525, .27406,
101 + .00000, .77211, 1.11302,
102 + .01049, .00410, 14.40934, 1.19609, .36213,
103 + .00000, .86600, 1.20389,
104 + .01068, .00419, 17.94115, 1.30377, .46873,
105 + .00000, .97681, 1.31157 /
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 + .01086, .00427, 21.34164, 1.40815, .56962,
108 + .00000, 1.08388, 1.41596,
109 + .01102, .00435, 24.95946, 1.51806, .67672,
110 + .00000, 1.19633, 1.52586,
111 + .01116, .00441, 28.10599, 1.61155, .76998,
112 + .00000, 1.29179, 1.61936,
113 + .01145, .00455, 35.61971, 1.83189, .98717,
114 + .00000, 1.51628, 1.83970,
115 + .01171, .00466, 42.43411, 2.04479, 1.19644,
116 + .27748, 1.73268, 2.05260,
117 + .01200, .00481, 51.22197, 2.30991, 1.45852,
118 + .58004, 2.00163, 2.31770,
119 + .01231, .00495, 61.40428, 2.61690, 1.76257,
120 + .89711, 2.31248, 2.62468,
121 + .01260, .00509, 71.56979, 2.92388, 2.06713,
122 + 1.21498, 2.62288, 2.93164 /
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 + .01289, .00523, 82.74184, 3.26235, 2.40379,
125 + 1.56488, 2.96472, 3.27009,
126 + .01313, .00534, 92.66600, 3.56551, 2.70454,
127 + 1.87377, 3.27061, 3.57322,
128 + .01343, .00549, 105.47923, 3.96035, 3.09583,
129 + 2.27402, 3.66870, 3.96803,
130 + .01371, .00563, 117.60623, 4.33604, 3.46942,
131 + 2.65805, 4.04721, 4.34370,
132 + .01395, .00574, 129.38152, 4.70311, 3.83516,
133 + 3.03427, 4.41680, 4.71075,
134 + .01427, .00590, 145.00910, 5.19754, 4.32563,
135 + 3.53374, 4.91436, 5.20514,
136 + .01458, .00606, 160.58634, 5.69477, 4.82011,
137 + 4.03878, 5.41448, 5.70233,
138 + .01486, .00619, 176.01726, 6.19089, 5.31512,
139 + 4.54620, 5.91324, 6.19842 /
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 + .01515, .00634, 191.90399, 6.71102, 5.83133,
142 + 5.06995, 6.43598, 6.71853,
143 + .01544, .00648, 208.20962, 7.24891, 6.36690,
144 + 5.61565, 6.97636, 7.25639,
145 + .01571, .00662, 224.26102, 7.78384, 6.89995,
146 + 6.15872, 7.51359, 7.79127,
147 + .01597, .00675, 239.75736, 8.30775, 7.42092,
148 + 6.68738, 8.03964, 8.31515,
149 + .01623, .00689, 256.00373, 8.86005, 7.97201,
150 + 7.24888, 8.59407, 8.86743,
151 + .01649, .00702, 272.19416, 9.41988, 8.52861,
152 + 7.81260, 9.15596, 9.42722,
153 + .01674, .00715, 288.25150, 9.97734, 9.08501,
154 + 8.37885, 9.71533, 9.98465,
155 + .01699, .00728, 303.54469, 10.51721, 9.62203,
156 + 8.92234, 10.25700, 10.52449 /
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 + .01722, .00740, 319.52703, 11.08410, 10.18750,
159 + 9.49653, 10.82566, 11.09134,
160 + .01747, .00752, 335.49624, 11.65798, 10.75917,
161 + 10.07559, 11.40127, 11.66519,
162 + .01771, .00764, 351.08097, 12.22284, 11.32219,
163 + 10.64603, 11.96778, 12.23003,
164 + .01793, .00776, 366.22956, 12.77571, 11.87398,
165 + 11.20582, 12.52217, 12.78288,
166 + .01816, .00787, 381.58149, 13.34420, 12.44003,
167 + 11.77800, 13.09219, 13.35133 /
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 + .01246, .00496, .97674, .64677, .00000,
170 + .00000, .34746, .65068,
171 + .01270, .00507, 1.97670, .68023, .00000,
172 + .00000, .38376, .68415,
173 + .01308, .00525, 3.84229, .74380, .04154,
174 + .00000, .45144, .74774,
175 + .01336, .00538, 5.60349, .80037, .10223,
176 + .00000, .51091, .80430,
177 + .01367, .00552, 7.78432, .87090, .16746,
178 + .00000, .58444, .87485,
179 + .01393, .00563, 9.95730, .94089, .23247,
180 + .00000, .65693, .94483,
181 + .01418, .00576, 12.34646, 1.01548, .30467,
182 + .00000, .73387, 1.01943,
183 + .01445, .00588, 15.21809, 1.10312, .39123,
184 + .00000, .82394, 1.10706 /
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 + .01469, .00600, 17.94948, 1.18729, .47240,
187 + .00000, .91019, 1.19124,
188 + .01492, .00611, 20.82581, 1.27529, .55792,
189 + .00000, 1.00016, 1.27924,
190 + .01511, .00620, 23.30677, 1.34976, .63197,
191 + .00000, 1.07617, 1.35370,
192 + .01550, .00639, 29.16341, 1.52378, .80290,
193 + .00000, 1.25339, 1.52772,
194 + .01586, .00657, 34.38099, 1.69024, .96591,
195 + .21621, 1.42254, 1.69418,
196 + .01625, .00676, 41.03029, 1.89564, 1.16816,
197 + .45024, 1.63086, 1.89956,
198 + .01668, .00698, 48.62865, 2.13116, 1.40048,
199 + .69251, 1.86937, 2.13507,
200 + .01706, .00716, 56.11684, 2.36453, 1.63106,
201 + .93309, 2.10536, 2.36843 /
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 + .01747, .00737, 64.24952, 2.61969, 1.88377,
204 + 1.19560, 2.36310, 2.62359,
205 + .01779, .00753, 71.39673, 2.84644, 2.10780,
206 + 1.42545, 2.59195, 2.85033,
207 + .01820, .00774, 80.52854, 3.13953, 2.39703,
208 + 1.72096, 2.88753, 3.14340,
209 + .01856, .00792, 89.08436, 3.41633, 2.67116,
210 + 2.00243, 3.16647, 3.42019,
211 + .01890, .00809, 97.31863, 3.68499, 2.93778,
212 + 2.27638, 3.43707, 3.68884,
213 + .01933, .00831, 108.13760, 4.04418, 3.29267,
214 + 2.63724, 3.79865, 4.04802,
215 + .01974, .00852, 118.81576, 4.40270, 3.64783,
216 + 2.99948, 4.15938, 4.40652,
217 + .02013, .00872, 129.30044, 4.75800, 4.00103,
218 + 3.36107, 4.51670, 4.76181 /
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 + .02051, .00892, 139.99302, 5.12786, 4.36671,
221 + 3.73148, 4.88855, 5.13167,
222 + .02090, .00912, 150.87995, 5.50797, 4.74384,
223 + 4.11518, 5.27055, 5.51176,
224 + .02126, .00931, 161.51359, 5.88369, 5.11695,
225 + 4.49476, 5.64804, 5.88747,
226 + .02162, .00950, 171.69925, 6.24947, 5.47943,
227 + 4.86201, 6.01546, 6.25324,
228 + .02197, .00968, 182.31024, 6.63313, 5.86102,
229 + 5.25027, 6.40074, 6.63690,
230 + .02233, .00986, 192.80248, 7.01974, 6.24411,
231 + 5.63763, 6.78891, 7.02349,
232 + .02265, .01004, 203.15047, 7.40293, 6.62542,
233 + 6.02517, 7.17357, 7.40668,
234 + .02298, .01021, 212.93555, 7.77206, 6.99142,
235 + 6.39499, 7.54407, 7.77579 /
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 + .02330, .01038, 223.10958, 8.15802, 7.37530,
238 + 6.78424, 7.93140, 8.16175,
239 + .02363, .01055, 233.21051, 8.54686, 7.76148,
240 + 7.17484, 8.32155, 8.55057,
241 + .02394, .01071, 243.01528, 8.92794, 8.14025,
242 + 7.55804, 8.70388, 8.93165,
243 + .02424, .01087, 252.49950, 9.29946, 8.51004,
244 + 7.93270, 9.07657, 9.30316,
245 + .02454, .01103, 262.05238, 9.67975, 8.88764,
246 + 8.31380, 9.45802, 9.68344 /
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 + .01484, .00603, .93231, .58802, .00000,
249 + .00000, .31635, .59042,
250 + .01514, .00617, 1.87321, .61957, .00000,
251 + .00000, .35037, .62197,
252 + .01559, .00638, 3.60413, .67831, .03887,
253 + .00000, .41265, .68070,
254 + .01594, .00655, 5.21856, .72986, .09419,
255 + .00000, .46672, .73224,
256 + .01629, .00672, 7.19662, .79347, .15295,
257 + .00000, .53293, .79587,
258 + .01660, .00688, 9.14908, .85608, .21108,
259 + .00000, .59770, .85846,
260 + .01691, .00703, 11.27931, .92243, .27528,
261 + .00000, .66607, .92482,
262 + .01723, .00718, 13.82059, .99998, .35180,
263 + .00000, .74572, 1.00237 /
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 + .01752, .00732, 16.22016, 1.07407, .42318,
266 + .00000, .82160, 1.07645,
267 + .01780, .00746, 18.73164, 1.15119, .49805,
268 + .00000, .90042, 1.15358,
269 + .01803, .00757, 20.88719, 1.21626, .56265,
270 + .00000, .96681, 1.21864,
271 + .01850, .00780, 25.94089, 1.36752, .71102,
272 + .00000, 1.12082, 1.36990,
273 + .01892, .00802, 30.39526, 1.51135, .85167,
274 + .18644, 1.26696, 1.51372,
275 + .01941, .00826, 36.03149, 1.68785, 1.02520,
276 + .38766, 1.44597, 1.69021,
277 + .01991, .00851, 42.41887, 1.88907, 1.22338,
278 + .59448, 1.64974, 1.89143,
279 + .02038, .00875, 48.66497, 2.08737, 1.41899,
280 + .79871, 1.85030, 2.08973 /
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 + .02086, .00899, 55.40066, 2.30310, 1.63232,
283 + 1.02040, 2.06824, 2.30545,
284 + .02125, .00920, 61.28202, 2.49394, 1.82055,
285 + 1.21356, 2.26087, 2.49629,
286 + .02174, .00945, 68.74944, 2.73947, 2.06248,
287 + 1.46076, 2.50853, 2.74182,
288 + .02216, .00968, 75.70352, 2.97035, 2.29076,
289 + 1.69520, 2.74124, 2.97269,
290 + .02257, .00989, 82.36072, 3.19355, 2.51195,
291 + 1.92248, 2.96609, 3.19588,
292 + .02308, .01016, 91.05467, 3.49064, 2.80505,
293 + 2.22048, 3.26523, 3.49297,
294 + .02357, .01040, 99.58462, 3.78586, 3.09708,
295 + 2.51832, 3.56234, 3.78819,
296 + .02403, .01065, 107.91574, 4.07726, 3.38638,
297 + 2.81450, 3.85546, 4.07960 /
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 + .02449, .01090, 116.36311, 4.37931, 3.68460,
300 + 3.11650, 4.15920, 4.38165,
301 + .02495, .01114, 124.92283, 4.68859, 3.99105,
302 + 3.42825, 4.47011, 4.69092,
303 + .02538, .01137, 133.24413, 4.99319, 4.29317,
304 + 3.73558, 4.77621, 4.99552,
305 + .02580, .01159, 141.17660, 5.28868, 4.58563,
306 + 4.03182, 5.07310, 5.29102,
307 + .02622, .01181, 149.40916, 5.59768, 4.89261,
308 + 4.34414, 5.38347, 5.60001,
309 + .02663, .01204, 157.51051, 5.90795, 5.19971,
310 + 4.65458, 5.69509, 5.91029,
311 + .02703, .01224, 165.47410, 6.21466, 5.50459,
312 + 4.96441, 6.00305, 6.21700,
313 + .02742, .01245, 172.97081, 6.50915, 5.79627,
314 + 5.25905, 6.29871, 6.51149 /
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 + .02780, .01265, 180.74219, 6.81631, 6.10146,
317 + 5.56847, 6.60703, 6.81865,
318 + .02818, .01286, 188.42736, 7.12485, 6.40759,
319 + 5.87803, 6.91670, 7.12720,
320 + .02854, .01305, 195.86292, 7.42647, 6.70709,
321 + 6.18098, 7.21938, 7.42882,
322 + .02889, .01324, 203.03434, 7.71984, 6.99883,
323 + 6.47653, 7.51374, 7.72219,
324 + .02925, .01344, 210.23007, 8.01930, 7.29589,
325 + 6.77627, 7.81421, 8.02165 /
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 + .01681, .00693, .90184, .54972, .00000,
328 + .00000, .29617, .55130,
329 + .01714, .00709, 1.80308, .57991, .00000,
330 + .00000, .32861, .58147,
331 + .01765, .00734, 3.44413, .63537, .03715,
332 + .00000, .38729, .63694,
333 + .01804, .00754, 4.96164, .68359, .08891,
334 + .00000, .43778, .68515,
335 + .01846, .00773, 6.80684, .74266, .14342,
336 + .00000, .49919, .74422,
337 + .01882, .00791, 8.61578, .80045, .19707,
338 + .00000, .55892, .80201,
339 + .01916, .00808, 10.57851, .86145, .25608,
340 + .00000, .62175, .86300,
341 + .01954, .00827, 12.90731, .93250, .32615,
342 + .00000, .69470, .93405 /
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 + .01986, .00843, 15.09468, 1.00010, .39125,
345 + .00000, .76391, 1.00164,
346 + .02017, .00859, 17.37395, 1.07026, .45932,
347 + .00000, .83559, 1.07180,
348 + .02042, .00872, 19.32323, 1.12933, .51793,
349 + .00000, .89585, 1.13087,
350 + .02097, .00899, 23.87091, 1.26612, .65201,
351 + .00000, 1.03511, 1.26766,
352 + .02146, .00924, 27.84845, 1.39563, .77857,
353 + .16760, 1.16670, 1.39717,
354 + .02200, .00952, 32.85529, 1.55393, .93411,
355 + .34829, 1.32727, 1.55548,
356 + .02258, .00982, 38.49543, 1.73367, 1.11099,
357 + .53304, 1.50929, 1.73521,
358 + .02311, .01010, 43.97991, 1.91011, 1.28492,
359 + .71478, 1.68775, 1.91165 /
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 + .02364, .01037, 49.86403, 2.10136, 1.47390,
362 + .91130, 1.88099, 2.10291,
363 + .02409, .01061, 54.97785, 2.26998, 1.64011,
364 + 1.08195, 2.05121, 2.27153,
365 + .02465, .01090, 61.44124, 2.48624, 1.85303,
366 + 1.29962, 2.26937, 2.48779,
367 + .02514, .01116, 67.43393, 2.68893, 2.05332,
368 + 1.50539, 2.47371, 2.69048,
369 + .02559, .01139, 73.14878, 2.88434, 2.24685,
370 + 1.70435, 2.67061, 2.88590,
371 + .02618, .01170, 80.57918, 3.14360, 2.50245,
372 + 1.96431, 2.93171, 3.14517,
373 + .02672, .01199, 87.83808, 3.40042, 2.75634,
374 + 2.22333, 3.19021, 3.40200,
375 + .02725, .01228, 94.90071, 3.65320, 3.00715,
376 + 2.48020, 3.44452, 3.65476 /
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 + .02777, .01255, 102.03175, 3.91440, 3.26489,
379 + 2.74126, 3.70724, 3.91598,
380 + .02828, .01282, 109.23240, 4.18114, 3.52906,
381 + 3.01007, 3.97543, 4.18273,
382 + .02878, .01309, 116.20854, 4.44317, 3.78883,
383 + 3.27439, 4.23882, 4.44477,
384 + .02925, .01334, 122.83542, 4.69672, 4.03964,
385 + 3.52849, 4.49362, 4.69832,
386 + .02972, .01360, 129.69437, 4.96128, 4.30238,
387 + 3.79587, 4.75940, 4.96289,
388 + .03019, .01385, 136.42004, 5.22626, 4.56452,
389 + 4.06090, 5.02558, 5.22788,
390 + .03064, .01409, 143.01565, 5.48768, 4.82428,
391 + 4.32496, 5.28813, 5.48931,
392 + .03107, .01433, 149.20409, 5.73811, 5.07220,
393 + 4.57542, 5.53959, 5.73974 /
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 + .03150, .01456, 155.60541, 5.99884, 5.33119,
396 + 4.83807, 5.80136, 6.00048,
397 + .03193, .01479, 161.91731, 6.26020, 5.59039,
398 + 5.10022, 6.06373, 6.26185,
399 + .03234, .01502, 168.00971, 6.51521, 5.84354,
400 + 5.35633, 6.31970, 6.51688,
401 + .03274, .01523, 173.87313, 6.76284, 6.08972,
402 + 5.60579, 6.56822, 6.76451,
403 + .03314, .01545, 179.73974, 7.01512, 6.33988,
404 + 5.85823, 6.82138, 7.01679 /
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 + .01850, .00772, .87911, .52180, .00000,
407 + .00000, .28151, .52283,
408 + .01888, .00791, 1.75074, .55095, .00000,
409 + .00000, .31274, .55198,
410 + .01945, .00818, 3.32522, .60396, .03589,
411 + .00000, .36872, .60498,
412 + .01988, .00840, 4.77148, .64971, .08503,
413 + .00000, .41659, .65073,
414 + .02034, .00863, 6.51950, .70546, .13643,
415 + .00000, .47449, .70647,
416 + .02073, .00883, 8.22404, .75974, .18683,
417 + .00000, .53057, .76075,
418 + .02112, .00902, 10.06544, .81687, .24208,
419 + .00000, .58938, .81788,
420 + .02153, .00923, 12.24102, .88319, .30748,
421 + .00000, .65747, .88422 /
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 + .02189, .00941, 14.27598, .94612, .36806,
424 + .00000, .72188, .94714,
425 + .02224, .00958, 16.38909, 1.01128, .43125,
426 + .00000, .78844, 1.01230,
427 + .02252, .00974, 18.19122, 1.06603, .48556,
428 + .00000, .84429, 1.06705,
429 + .02312, .01004, 22.37931, 1.19248, .60945,
430 + .00000, .97302, 1.19351,
431 + .02365, .01031, 26.02078, 1.31178, .72600,
432 + .15415, 1.09424, 1.31281,
433 + .02426, .01064, 30.58562, 1.45717, .86880,
434 + .32032, 1.24172, 1.45820,
435 + .02489, .01096, 35.70351, 1.62171, 1.03067,
436 + .48955, 1.40838, 1.62275,
437 + .02548, .01127, 40.65819, 1.78273, 1.18935,
438 + .65549, 1.57127, 1.78378 /
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 + .02607, .01159, 45.95246, 1.95679, 1.36128,
441 + .83441, 1.74716, 1.95784,
442 + .02656, .01184, 50.53668, 2.10985, 1.51210,
443 + .98936, 1.90170, 2.11091,
444 + .02718, .01217, 56.30993, 2.30565, 1.70482,
445 + 1.18648, 2.09926, 2.30673,
446 + .02772, .01245, 61.64425, 2.48872, 1.88566,
447 + 1.37239, 2.28384, 2.48980,
448 + .02821, .01272, 66.71582, 2.66482, 2.06002,
449 + 1.55174, 2.46131, 2.66591,
450 + .02885, .01307, 73.28676, 2.89789, 2.28973,
451 + 1.78547, 2.69606, 2.89899,
452 + .02946, .01339, 79.68433, 3.12818, 2.51733,
453 + 2.01778, 2.92791, 3.12929,
454 + .03003, .01369, 85.89010, 3.35433, 2.74168,
455 + 2.24767, 3.15548, 3.35545 /
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 + .03061, .01400, 92.13495, 3.58746, 2.97166,
458 + 2.48069, 3.39000, 3.58859,
459 + .03118, .01432, 98.42350, 3.82504, 3.20691,
460 + 2.72018, 3.62892, 3.82619,
461 + .03171, .01461, 104.49936, 4.05795, 3.43777,
462 + 2.95519, 3.86307, 4.05912,
463 + .03223, .01489, 110.25502, 4.28287, 3.66022,
464 + 3.18063, 4.08913, 4.28405,
465 + .03275, .01517, 116.19939, 4.51715, 3.89287,
466 + 3.41748, 4.32456, 4.51835,
467 + .03326, .01545, 122.01174, 4.75135, 4.12450,
468 + 3.65175, 4.55986, 4.75255,
469 + .03376, .01572, 127.70104, 4.98205, 4.35372,
470 + 3.88486, 4.79158, 4.98327,
471 + .03423, .01597, 133.02506, 5.20263, 4.57206,
472 + 4.10551, 5.01312, 5.20387 /
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 + .03470, .01623, 138.52283, 5.43198, 4.79985,
475 + 4.33661, 5.24343, 5.43323,
476 + .03517, .01649, 143.93106, 5.66149, 5.02746,
477 + 4.56688, 5.47386, 5.66275,
478 + .03562, .01674, 149.14146, 5.88511, 5.24942,
479 + 4.79153, 5.69837, 5.88639,
480 + .03606, .01698, 154.14748, 6.10196, 5.46501,
481 + 5.01006, 5.91604, 6.10325,
482 + .03649, .01722, 159.14484, 6.32254, 5.68371,
483 + 5.23083, 6.13742, 6.32384 /
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 + .02504, .01087, .81205, .44440, .00000,
486 + .00000, .24132, .44456,
487 + .02555, .01113, 1.59843, .47032, .00000,
488 + .00000, .26890, .47048,
489 + .02632, .01152, 2.98214, .51608, .03246,
490 + .00000, .31703, .51625,
491 + .02690, .01183, 4.22666, .55475, .07411,
492 + .00000, .35739, .55493,
493 + .02753, .01215, 5.70213, .60106, .11677,
494 + .00000, .40540, .60125,
495 + .02807, .01244, 7.11639, .64553, .15807,
496 + .00000, .45131, .64573,
497 + .02858, .01270, 8.62294, .69189, .20292,
498 + .00000, .49900, .69209,
499 + .02915, .01300, 10.37881, .74524, .25550,
500 + .00000, .55374, .74546 /
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 + .02963, .01326, 11.99942, .79536, .30376,
503 + .00000, .60503, .79559,
504 + .03011, .01351, 13.66362, .84687, .35373,
505 + .00000, .65767, .84712,
506 + .03049, .01371, 15.07024, .88993, .39642,
507 + .00000, .70158, .89018,
508 + .03130, .01415, 18.29892, .98847, .49297,
509 + .00000, .80192, .98873,
510 + .03203, .01454, 21.05306, 1.08045, .58283,
511 + .11794, .89541, 1.08074,
512 + .03284, .01499, 24.45901, 1.19147, .69190,
513 + .24569, 1.00807, 1.19178,
514 + .03371, .01545, 28.22006, 1.31582, .81427,
515 + .37414, 1.13409, 1.31616,
516 + .03450, .01588, 31.80972, 1.43636, .93309,
517 + .49887, 1.25608, 1.43673 /
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 + .03529, .01633, 35.59590, 1.56551, 1.06072,
520 + .63217, 1.38667, 1.56591,
521 + .03597, .01669, 38.83550, 1.67814, 1.17175,
522 + .74660, 1.50047, 1.67856,
523 + .03679, .01714, 42.86838, 1.82108, 1.31249,
524 + .89100, 1.64478, 1.82153,
525 + .03752, .01754, 46.55340, 1.95367, 1.44355,
526 + 1.02615, 1.77855, 1.95415,
527 + .03819, .01791, 50.02276, 2.08035, 1.56904,
528 + 1.15563, 1.90630, 2.08085,
529 + .03905, .01839, 54.46717, 2.24667, 1.73304,
530 + 1.32296, 2.07393, 2.24720,
531 + .03986, .01884, 58.74714, 2.40971, 1.89430,
532 + 1.48801, 2.23819, 2.41029,
533 + .04063, .01926, 62.85846, 2.56868, 2.05213,
534 + 1.65019, 2.39829, 2.56929 /
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 + .04140, .01970, 66.95046, 2.73132, 2.21266,
537 + 1.81325, 2.56200, 2.73197,
538 + .04216, .02012, 71.03473, 2.89598, 2.37582,
539 + 1.97978, 2.72770, 2.89665,
540 + .04288, .02052, 74.94631, 3.05636, 2.53493,
541 + 2.14216, 2.88906, 3.05707,
542 + .04357, .02090, 78.61778, 3.21024, 2.68723,
543 + 2.29687, 3.04382, 3.21099,
544 + .04426, .02129, 82.38362, 3.36968, 2.84571,
545 + 2.45864, 3.20416, 3.37046,
546 + .04495, .02168, 86.03136, 3.52804, 3.00245,
547 + 2.61752, 3.36337, 3.52885,
548 + .04561, .02205, 89.58076, 3.68328, 3.15686,
549 + 2.77495, 3.51942, 3.68412,
550 + .04622, .02239, 92.87278, 3.83084, 3.30303,
551 + 2.92300, 3.66772, 3.83171 /
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 + .04686, .02274, 96.25383, 3.98359, 3.45491,
554 + 3.07744, 3.82122, 3.98450,
555 + .04748, .02310, 99.55418, 4.13562, 3.60583,
556 + 3.23049, 3.97398, 4.13657,
557 + .04808, .02343, 102.71423, 4.28310, 3.75235,
558 + 3.37911, 4.12213, 4.28406,
559 + .04866, .02376, 105.73362, 4.42549, 3.89408,
560 + 3.52313, 4.26517, 4.42649,
561 + .04923, .02408, 108.72441, 4.56960, 4.03710,
562 + 3.66780, 4.40992, 4.57063 /
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 + .03402, .01538, .75313, .37985, .00000,
565 + .00000, .20843, .38009,
566 + .03470, .01574, 1.46394, .40252, .00000,
567 + .00000, .23245, .40279,
568 + .03573, .01630, 2.67888, .44151, .02970,
569 + .00000, .27337, .44181,
570 + .03652, .01672, 3.74807, .47381, .06468,
571 + .00000, .30705, .47414,
572 + .03735, .01717, 4.98984, .51188, .09974,
573 + .00000, .34652, .51224,
574 + .03808, .01758, 6.15844, .54794, .13328,
575 + .00000, .38375, .54834,
576 + .03877, .01796, 7.38486, .58517, .16937,
577 + .00000, .42207, .58560,
578 + .03953, .01837, 8.79364, .62764, .21127,
579 + .00000, .46568, .62810 /
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 + .04019, .01874, 10.07555, .66717, .24938,
582 + .00000, .50616, .66765,
583 + .04083, .01908, 11.37637, .70749, .28856,
584 + .00000, .54738, .70800,
585 + .04133, .01937, 12.46548, .74101, .32184,
586 + .00000, .58161, .74155,
587 + .04244, .01998, 14.93274, .81700, .39644,
588 + .00000, .65907, .81760,
589 + .04341, .02053, 16.99594, .88718, .46514,
590 + .08860, .73047, .88782,
591 + .04452, .02116, 19.50888, .97105, .54771,
592 + .18616, .81567, .97174,
593 + .04567, .02181, 22.23912, 1.06401, .63942,
594 + .28299, .90999, 1.06477,
595 + .04674, .02241, 24.80559, 1.15324, .72759,
596 + .37610, 1.00040, 1.15405 /
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 + .04782, .02301, 27.47514, 1.24797, .82144,
599 + .47467, 1.09628, 1.24883,
600 + .04871, .02353, 29.73024, 1.32988, .90241,
601 + .55856, 1.17915, 1.33080,
602 + .04982, .02416, 32.50265, 1.43297, 1.00418,
603 + .66352, 1.28336, 1.43395,
604 + .05079, .02471, 35.00581, 1.52784, 1.09821,
605 + .76098, 1.37919, 1.52888,
606 + .05169, .02522, 37.33783, 1.61783, 1.18760,
607 + .85369, 1.47004, 1.61891,
608 + .05284, .02588, 40.28842, 1.73499, 1.30344,
609 + .97244, 1.58827, 1.73614,
610 + .05393, .02651, 43.09636, 1.84891, 1.41642,
611 + 1.08865, 1.70318, 1.85013,
612 + .05495, .02709, 45.76557, 1.95918, 1.52622,
613 + 1.20204, 1.81436, 1.96046 /
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 + .05598, .02768, 48.38987, 2.07107, 1.63696,
616 + 1.31503, 1.92713, 2.07241,
617 + .05699, .02826, 50.98425, 2.18359, 1.74877,
618 + 1.42969, 2.04048, 2.18498,
619 + .05795, .02881, 53.44514, 2.29244, 1.85707,
620 + 1.54073, 2.15014, 2.29390,
621 + .05886, .02933, 55.73137, 2.39617, 1.96003,
622 + 1.64579, 2.25460, 2.39768,
623 + .05978, .02986, 58.05911, 2.50307, 2.06659,
624 + 1.75507, 2.36222, 2.50463,
625 + .06070, .03039, 60.28976, 2.60849, 2.17123,
626 + 1.86160, 2.46834, 2.61012,
627 + .06156, .03089, 62.44673, 2.71135, 2.27385,
628 + 1.96671, 2.57186, 2.71304,
629 + .06239, .03136, 64.42687, 2.80849, 2.37035,
630 + 2.06486, 2.66960, 2.81022 /
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 + .06321, .03184, 66.44884, 2.90860, 2.47018,
633 + 2.16685, 2.77032, 2.91038,
634 + .06404, .03231, 68.40499, 3.00766, 2.56880,
635 + 2.26729, 2.86998, 3.00950,
636 + .06483, .03277, 70.26507, 3.10327, 2.66410,
637 + 2.36438, 2.96615, 3.10517,
638 + .06559, .03320, 72.03166, 3.19520, 2.75588,
639 + 2.45806, 3.05861, 3.19714,
640 + .06635, .03364, 73.76551, 3.28772, 2.84797,
641 + 2.55160, 3.15165, 3.28971 /
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 + .04077, .01890, .72568, .34742, .00000,
644 + .00000, .19215, .34806,
645 + .04156, .01933, 1.39645, .36816, .00000,
646 + .00000, .21413, .36886,
647 + .04278, .01999, 2.52146, .40337, .02829,
648 + .00000, .25108, .40411,
649 + .04371, .02050, 3.49835, .43221, .05970,
650 + .00000, .28116, .43301,
651 + .04469, .02106, 4.61829, .46593, .09076,
652 + .00000, .31613, .46678,
653 + .04555, .02153, 5.66016, .49762, .12027,
654 + .00000, .34888, .49851,
655 + .04638, .02201, 6.74338, .53017, .15186,
656 + .00000, .38242, .53110,
657 + .04728, .02251, 7.97643, .56710, .18835,
658 + .00000, .42036, .56808 /
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 + .04806, .02295, 9.08846, .60127, .22134,
661 + .00000, .45540, .60230,
662 + .04882, .02339, 10.20855, .63598, .25513,
663 + .00000, .49093, .63706,
664 + .04943, .02373, 11.14080, .66474, .28374,
665 + .00000, .52032, .66585,
666 + .05073, .02447, 13.23542, .72962, .34751,
667 + .00000, .58652, .73080,
668 + .05190, .02514, 14.96610, .78912, .40590,
669 + .07402, .64713, .79038,
670 + .05320, .02590, 17.05290, .85982, .47566,
671 + .15694, .71904, .86115,
672 + .05458, .02669, 19.29711, .93769, .55263,
673 + .23859, .79813, .93911,
674 + .05583, .02742, 21.38655, 1.01199, .62622,
675 + .31664, .87350, 1.01349 /
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 + .05712, .02816, 23.54092, 1.09043, .70413,
678 + .39881, .95300, 1.09201,
679 + .05819, .02878, 25.34611, 1.15792, .77099,
680 + .46837, 1.02133, 1.15956,
681 + .05949, .02953, 27.54783, 1.24242, .85461,
682 + .55495, 1.10684, 1.24415,
683 + .06064, .03021, 29.52077, 1.31980, .93148,
684 + .63496, 1.18509, 1.32160,
685 + .06171, .03082, 31.34658, 1.39287, 1.00426,
686 + .71074, 1.25895, 1.39474,
687 + .06308, .03162, 33.63831, 1.48751, 1.09808,
688 + .80729, 1.35458, 1.48948,
689 + .06436, .03236, 35.80283, 1.57909, 1.18913,
690 + .90131, 1.44706, 1.58114,
691 + .06557, .03307, 37.84672, 1.66734, 1.27722,
692 + .99264, 1.53612, 1.66946 /
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 + .06678, .03378, 39.84016, 1.75643, 1.36561,
695 + 1.08316, 1.62601, 1.75864,
696 + .06797, .03448, 41.79887, 1.84564, 1.45449,
697 + 1.17465, 1.71599, 1.84792,
698 + .06912, .03513, 43.64527, 1.93159, 1.54023,
699 + 1.26289, 1.80266, 1.93395,
700 + .07019, .03576, 45.34904, 2.01315, 1.62139,
701 + 1.34601, 1.88489, 2.01558,
702 + .07127, .03639, 47.07566, 2.09689, 1.70511,
703 + 1.43220, 1.96930, 2.09941,
704 + .07233, .03701, 48.71831, 2.17916, 1.78695,
705 + 1.51583, 2.05220, 2.18174,
706 + .07335, .03761, 50.30052, 2.25916, 1.86699,
707 + 1.59812, 2.13281, 2.26182,
708 + .07431, .03816, 51.74282, 2.33440, 1.94194,
709 + 1.67463, 2.20861, 2.33713 /
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 + .07529, .03873, 53.21024, 2.41174, 2.01928,
712 + 1.75393, 2.28651, 2.41454,
713 + .07626, .03929, 54.62133, 2.48799, 2.09540,
714 + 1.83173, 2.36330, 2.49086,
715 + .07718, .03983, 55.95706, 2.56138, 2.16872,
716 + 1.90671, 2.43719, 2.56430,
717 + .07806, .04034, 57.22064, 2.63173, 2.23916,
718 + 1.97888, 2.50803, 2.63472,
719 + .07895, .04086, 58.45273, 2.70228, 2.30958,
720 + 2.05067, 2.57907, 2.70533 /
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 + .04635, .02184, .71280, .32625, .00000,
723 + .00000, .18170, .32743,
724 + .04726, .02234, 1.35669, .34566, .00000,
725 + .00000, .20225, .34688,
726 + .04861, .02311, 2.42102, .37830, .02731,
727 + .00000, .23649, .37957,
728 + .04966, .02369, 3.33596, .40484, .05632,
729 + .00000, .26420, .40619,
730 + .05077, .02433, 4.37466, .43568, .08471,
731 + .00000, .29621, .43709,
732 + .05174, .02488, 5.33261, .46452, .11158,
733 + .00000, .32603, .46599,
734 + .05267, .02543, 6.32161, .49403, .14023,
735 + .00000, .35644, .49555,
736 + .05369, .02601, 7.43975, .52739, .17321,
737 + .00000, .39076, .52897 /
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 + .05457, .02651, 8.44145, .55814, .20292,
740 + .00000, .42231, .55976,
741 + .05543, .02702, 9.44484, .58927, .23324,
742 + .00000, .45419, .59094,
743 + .05612, .02742, 10.27622, .61500, .25886,
744 + .00000, .48052, .61672,
745 + .05759, .02827, 12.13290, .67283, .31575,
746 + .00000, .53957, .67462,
747 + .05890, .02903, 13.65307, .72560, .36759,
748 + .06476, .59337, .72749,
749 + .06038, .02991, 15.47205, .78803, .42927,
750 + .13843, .65693, .79002,
751 + .06194, .03081, 17.41332, .85648, .49704,
752 + .21057, .72652, .85855,
753 + .06337, .03165, 19.20768, .92149, .56153,
754 + .27922, .79253, .92367 /
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 + .06481, .03250, 21.04560, .98985, .62953,
757 + .35120, .86188, .99212,
758 + .06601, .03321, 22.57620, 1.04843, .68767,
759 + .41187, .92127, 1.05079,
760 + .06748, .03407, 24.43181, 1.12151, .76011,
761 + .48714, .99529, 1.12397,
762 + .06879, .03484, 26.08508, 1.18819, .82647,
763 + .55644, 1.06279, 1.19072,
764 + .07000, .03554, 27.60738, 1.25094, .88909,
765 + .62186, 1.12628, 1.25356,
766 + .07152, .03645, 29.50645, 1.33192, .96950,
767 + .70488, 1.20818, 1.33465,
768 + .07297, .03729, 31.28981, 1.40997, 1.04726,
769 + .78542, 1.28708, 1.41281,
770 + .07433, .03810, 32.96527, 1.48493, 1.12223,
771 + .86341, 1.36280, 1.48785 /
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 + .07569, .03890, 34.58923, 1.56033, 1.19717,
774 + .94040, 1.43895, 1.56334,
775 + .07703, .03969, 36.17743, 1.63557, 1.27229,
776 + 1.01798, 1.51493, 1.63869,
777 + .07831, .04044, 37.66745, 1.70785, 1.34454,
778 + 1.09258, 1.58789, 1.71106,
779 + .07950, .04114, 39.03505, 1.77621, 1.41270,
780 + 1.16261, 1.65688, 1.77951,
781 + .08072, .04185, 40.41610, 1.84624, 1.48286,
782 + 1.23506, 1.72754, 1.84962,
783 + .08190, .04255, 41.72243, 1.91479, 1.55121,
784 + 1.30512, 1.79668, 1.91826,
785 + .08305, .04322, 42.97705, 1.98132, 1.61790,
786 + 1.37392, 1.86378, 1.98486,
787 + .08412, .04385, 44.11425, 2.04369, 1.68015,
788 + 1.43766, 1.92668, 2.04731 /
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 + .08522, .04449, 45.26807, 2.10766, 1.74427,
791 + 1.50361, 1.99118, 2.11136,
792 + .08629, .04512, 46.37219, 2.17056, 1.80720,
793 + 1.56814, 2.05460, 2.17434,
794 + .08733, .04573, 47.41363, 2.23095, 1.86769,
795 + 1.63019, 2.11548, 2.23481,
796 + .08831, .04631, 48.39576, 2.28873, 1.92568,
797 + 1.68980, 2.17372, 2.29267,
798 + .08930, .04688, 49.34834, 2.34653, 1.98349,
799 + 1.74892, 2.23196, 2.35053 /
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 + .05125, .02456, .71092, .31156, .00000,
802 + .00000, .17415, .31281,
803 + .05223, .02511, 1.33426, .32992, .00000,
804 + .00000, .19356, .33122,
805 + .05373, .02596, 2.35260, .36056, .02649,
806 + .00000, .22571, .36196,
807 + .05489, .02663, 3.22058, .38538, .05368,
808 + .00000, .25159, .38684,
809 + .05611, .02734, 4.19788, .41406, .08009,
810 + .00000, .28136, .41560,
811 + .05718, .02796, 5.09271, .44078, .10499,
812 + .00000, .30897, .44237,
813 + .05821, .02856, 6.01106, .46802, .13147,
814 + .00000, .33707, .46969,
815 + .05932, .02921, 7.04344, .49873, .16187,
816 + .00000, .36867, .50047 /
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 + .06030, .02978, 7.96317, .52696, .18917,
819 + .00000, .39764, .52876,
820 + .06124, .03034, 8.88016, .55547, .21696,
821 + .00000, .42685, .55734,
822 + .06200, .03078, 9.63718, .57898, .24039,
823 + .00000, .45092, .58090,
824 + .06362, .03174, 11.31910, .63167, .29228,
825 + .00000, .50475, .63369,
826 + .06506, .03259, 12.68586, .67956, .33937,
827 + .05811, .55361, .68168,
828 + .06670, .03355, 14.31087, .73602, .39522,
829 + .12508, .61112, .73825,
830 + .06841, .03456, 16.03401, .79768, .45633,
831 + .19032, .67384, .80003,
832 + .06997, .03549, 17.61711, .85603, .51429,
833 + .25218, .73314, .85849 /
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 + .07156, .03643, 19.22963, .91719, .57520,
836 + .31683, .79522, .91976,
837 + .07288, .03721, 20.56551, .96943, .62710,
838 + .37116, .84821, .97209,
839 + .07450, .03817, 22.17705, 1.03438, .69158,
840 + .43832, .91405, 1.03715,
841 + .07592, .03901, 23.60599, 1.09345, .75046,
842 + .49998, .97390, 1.09635,
843 + .07724, .03979, 24.91609, 1.14892, .80588,
844 + .55803, 1.03005, 1.15190,
845 + .07892, .04078, 26.54169, 1.22026, .87682,
846 + .63146, 1.10226, 1.22336,
847 + .08049, .04172, 28.06084, 1.28880, .94520,
848 + .70248, 1.17158, 1.29201,
849 + .08199, .04259, 29.48201, 1.35442, 1.01096,
850 + .77106, 1.23796, 1.35775 /
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 + .08348, .04348, 30.85211, 1.42024, 1.07647,
853 + .83853, 1.30447, 1.42367,
854 + .08494, .04434, 32.18676, 1.48575, 1.14197,
855 + .90636, 1.37067, 1.48929,
856 + .08633, .04516, 33.43379, 1.54851, 1.20481,
857 + .97141, 1.43408, 1.55215,
858 + .08763, .04593, 34.57295, 1.60770, 1.26393,
859 + 1.03231, 1.49386, 1.61144,
860 + .08896, .04671, 35.71982, 1.66821, 1.32466,
861 + 1.09519, 1.55497, 1.67206,
862 + .09025, .04747, 36.79928, 1.72727, 1.38365,
863 + 1.15581, 1.61460, 1.73122,
864 + .09149, .04820, 37.83349, 1.78449, 1.44114,
865 + 1.21527, 1.67235, 1.78852,
866 + .09267, .04889, 38.76622, 1.83799, 1.49464,
867 + 1.27019, 1.72635, 1.84211 /
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 + .09385, .04958, 39.71040, 1.89277, 1.54964,
870 + 1.32693, 1.78165, 1.89698,
871 + .09502, .05027, 40.60980, 1.94651, 1.60351,
872 + 1.38231, 1.83587, 1.95082,
873 + .09614, .05093, 41.45538, 1.99801, 1.65519,
874 + 1.43547, 1.88783, 2.00239,
875 + .09721, .05155, 42.25066, 2.04719, 1.70466,
876 + 1.48645, 1.93746, 2.05167,
877 + .09827, .05218, 43.01838, 2.09627, 1.75385,
878 + 1.53690, 1.98696, 2.10081 /
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 + .07021, .03548, .72397, .27143, .00000,
881 + .00000, .15398, .27371,
882 + .07152, .03626, 1.28775, .28647, .00000,
883 + .00000, .16988, .28883,
884 + .07352, .03746, 2.17157, .31116, .02387,
885 + .00000, .19579, .31366,
886 + .07506, .03839, 2.90319, .33085, .04580,
887 + .00000, .21636, .33345,
888 + .07671, .03938, 3.70464, .35334, .06660,
889 + .00000, .23975, .35606,
890 + .07815, .04025, 4.42079, .37405, .08600,
891 + .00000, .26120, .37687,
892 + .07954, .04109, 5.14118, .39498, .10648,
893 + .00000, .28284, .39791,
894 + .08104, .04200, 5.93563, .41838, .12978,
895 + .00000, .30697, .42142 /
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 + .08235, .04279, 6.63028, .43968, .15049,
898 + .00000, .32889, .44282,
899 + .08363, .04356, 7.31205, .46103, .17142,
900 + .00000, .35082, .46425,
901 + .08464, .04418, 7.86790, .47854, .18896,
902 + .00000, .36879, .48184,
903 + .08684, .04551, 9.08194, .51736, .22743,
904 + .00000, .40858, .52084,
905 + .08877, .04668, 10.04390, .55223, .26192,
906 + .04009, .44425, .55585,
907 + .09096, .04800, 11.16157, .59285, .30235,
908 + .08928, .48577, .59664,
909 + .09324, .04939, 12.32102, .63667, .34607,
910 + .13647, .53049, .64064,
911 + .09533, .05065, 13.36432, .67764, .38704,
912 + .18069, .57227, .68177 /
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 + .09744, .05192, 14.40688, .72010, .42962,
915 + .22639, .61552, .72440,
916 + .09920, .05297, 15.25520, .75599, .46553,
917 + .26438, .65205, .76043,
918 + .10133, .05425, 16.26058, .80016, .50967,
919 + .31086, .69697, .80476,
920 + .10322, .05539, 17.13721, .83991, .54959,
921 + .35311, .73739, .84467,
922 + .10496, .05642, 17.92903, .87690, .58683,
923 + .39255, .77498, .88180,
924 + .10716, .05774, 18.89334, .92397, .63397,
925 + .44187, .82279, .92904,
926 + .10924, .05898, 19.77910, .96871, .67896,
927 + .48911, .86822, .97395,
928 + .11119, .06014, 20.59525, 1.01115, .72183,
929 + .53433, .91131, 1.01655 /
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 + .11312, .06128, 21.36656, 1.05325, .76407,
932 + .57830, .95402, 1.05880,
933 + .11502, .06241, 22.10732, 1.09479, .80595,
934 + .62215, .99616, 1.10049,
935 + .11682, .06348, 22.78921, 1.13424, .84579,
936 + .66386, 1.03617, 1.14009,
937 + .11851, .06446, 23.40131, 1.17109, .88292,
938 + .70253, 1.07355, 1.17708,
939 + .12021, .06548, 24.01101, 1.20851, .92081,
940 + .74222, 1.11149, 1.21463,
941 + .12188, .06645, 24.57368, 1.24467, .95727,
942 + .78010, 1.14816, 1.25094,
943 + .12347, .06739, 25.10819, 1.27950, .99257,
944 + .81704, 1.18347, 1.28588,
945 + .12496, .06826, 25.58059, 1.31176, 1.02514,
946 + .85087, 1.21616, 1.31827 /
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 + .12648, .06914, 26.05487, 1.34460, 1.05845,
949 + .88562, 1.24946, 1.35124,
950 + .12796, .07001, 26.49885, 1.37655, 1.09081,
951 + .91928, 1.28184, 1.38331,
952 + .12938, .07084, 26.91121, 1.40698, 1.12165,
953 + .95139, 1.31269, 1.41385,
954 + .13073, .07162, 27.29508, 1.43587, 1.15101,
955 + .98201, 1.34196, 1.44285,
956 + .13208, .07241, 27.65817, 1.46445, 1.17997,
957 + 1.01206, 1.37094, 1.47154 /
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 + .09677, .05164, .79789, .23907, .00000,
960 + .00000, .13729, .24300,
961 + .09851, .05273, 1.30353, .25080, .00000,
962 + .00000, .14974, .25486,
963 + .10120, .05442, 2.05821, .26989, .02049,
964 + .00000, .16985, .27418,
965 + .10328, .05570, 2.66074, .28497, .03780,
966 + .00000, .18567, .28942,
967 + .10550, .05709, 3.30111, .30202, .05375,
968 + .00000, .20347, .30666,
969 + .10743, .05829, 3.85741, .31756, .06851,
970 + .00000, .21963, .32236,
971 + .10931, .05945, 4.40406, .33313, .08398,
972 + .00000, .23582, .33810,
973 + .11134, .06070, 4.99360, .35041, .10141,
974 + .00000, .25373, .35554 /
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 + .11310, .06179, 5.49806, .36599, .11674,
977 + .00000, .26984, .37126,
978 + .11482, .06284, 5.98412, .38147, .13211,
979 + .00000, .28582, .38690,
980 + .11619, .06368, 6.37465, .39409, .14491,
981 + .00000, .29885, .39963,
982 + .11911, .06547, 7.21091, .42179, .17268,
983 + .00000, .32737, .42759,
984 + .12170, .06704, 7.85469, .44630, .19722,
985 + .02549, .35259, .45232,
986 + .12459, .06881, 8.58014, .47450, .22565,
987 + .06074, .38157, .48076,
988 + .12762, .07063, 9.31291, .50448, .25593,
989 + .09395, .41235, .51101,
990 + .13037, .07229, 9.95559, .53213, .28394,
991 + .12467, .44073, .53890 /
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 + .13314, .07394, 10.58284, .56042, .31268,
994 + .15601, .46972, .56743,
995 + .13544, .07532, 11.08192, .58404, .33662,
996 + .18173, .49391, .59125,
997 + .13821, .07696, 11.65989, .61274, .36571,
998 + .21285, .52331, .62019,
999 + .14066, .07842, 12.15313, .63828, .39171,
1000 + .24082, .54945, .64595,
1001 + .14291, .07975, 12.59024, .66178, .41571,
1002 + .26666, .57350, .66964,
1003 + .14573, .08142, 13.10929, .69129, .44573,
1004 + .29858, .60369, .69939,
1005 + .14838, .08298, 13.57516, .71902, .47401,
1006 + .32878, .63204, .72735,
1007 + .15086, .08443, 13.99579, .74502, .50069,
1008 + .35740, .65864, .75356 /
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 + .15332, .08586, 14.38207, .77046, .52664,
1011 + .38487, .68466, .77922,
1012 + .15572, .08725, 14.74580, .79530, .55211,
1013 + .41201, .71005, .80426,
1014 + .15799, .08856, 15.07347, .81865, .57609,
1015 + .43757, .73393, .82780,
1016 + .16010, .08978, 15.35968, .84021, .59820,
1017 + .46101, .75598, .84954,
1018 + .16222, .09101, 15.64060, .86191, .62059,
1019 + .48490, .77817, .87143,
1020 + .16428, .09219, 15.89158, .88263, .64188,
1021 + .50743, .79936, .89233,
1022 + .16625, .09332, 16.12737, .90244, .66236,
1023 + .52927, .81962, .91230,
1024 + .16809, .09436, 16.32837, .92056, .68104,
1025 + .54904, .83817, .93058 /
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 + .16995, .09541, 16.52783, .93889, .70002,
1028 + .56923, .85693, .94907,
1029 + .17177, .09645, 16.70872, .95654, .71828,
1030 + .58861, .87499, .96687,
1031 + .17350, .09742, 16.87323, .97321, .73555,
1032 + .60694, .89205, .98369,
1033 + .17513, .09835, 17.02377, .98893, .75190,
1034 + .62434, .90814, .99954,
1035 + .17677, .09927, 17.16044, 1.00430, .76784,
1036 + .64123, .92389, 1.01505 /
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 + .11694, .06431, .88334, .22211, .00000,
1039 + .00000, .12820, .22748,
1040 + .11903, .06565, 1.34885, .23203, .00000,
1041 + .00000, .13875, .23759,
1042 + .12226, .06769, 2.02721, .24811, .01785,
1043 + .00000, .15578, .25396,
1044 + .12474, .06926, 2.55514, .26075, .03275,
1045 + .00000, .16910, .26681,
1046 + .12740, .07093, 3.10532, .27498, .04625,
1047 + .00000, .18405, .28129,
1048 + .12971, .07236, 3.57459, .28789, .05868,
1049 + .00000, .19754, .29440,
1050 + .13194, .07375, 4.02863, .30076, .07165,
1051 + .00000, .21098, .30748,
1052 + .13435, .07524, 4.51113, .31497, .08617,
1053 + .00000, .22578, .32190 /
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 + .13645, .07653, 4.91815, .32770, .09886,
1056 + .00000, .23902, .33482,
1057 + .13848, .07778, 5.30543, .34028, .11152,
1058 + .00000, .25208, .34760,
1059 + .14011, .07878, 5.61351, .35050, .12201,
1060 + .00000, .26268, .35797,
1061 + .14357, .08088, 6.26481, .37277, .14461,
1062 + .00000, .28575, .38054,
1063 + .14660, .08272, 6.75665, .39229, .16441,
1064 + .01830, .30596, .40035,
1065 + .15000, .08476, 7.29780, .41455, .18713,
1066 + .04689, .32897, .42291,
1067 + .15353, .08686, 7.83420, .43799, .21113,
1068 + .07354, .35319, .44667,
1069 + .15672, .08875, 8.29608, .45942, .23312,
1070 + .09797, .37531, .46839 /
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 + .15994, .09066, 8.73919, .48112, .25548,
1073 + .12268, .39772, .49039,
1074 + .16259, .09221, 9.08568, .49911, .27398,
1075 + .14281, .41626, .50861,
1076 + .16578, .09407, 9.48016, .52077, .29625,
1077 + .16695, .43860, .53057,
1078 + .16859, .09571, 9.81135, .53989, .31600,
1079 + .18849, .45832, .54994,
1080 + .17117, .09720, 10.10047, .55735, .33411,
1081 + .20825, .47633, .56763,
1082 + .17439, .09906, 10.43668, .57909, .35656,
1083 + .23246, .49873, .58964,
1084 + .17739, .10079, 10.73278, .59931, .37756,
1085 + .25521, .51959, .61014,
1086 + .18020, .10239, 10.99575, .61814, .39720,
1087 + .27659, .53900, .62921 /
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 + .18297, .10396, 11.23069, .63638, .41615,
1090 + .29696, .55783, .64769,
1091 + .18566, .10548, 11.44829, .65406, .43462,
1092 + .31694, .57607, .66561,
1093 + .18820, .10692, 11.64059, .67054, .45190,
1094 + .33564, .59308, .68232,
1095 + .19055, .10823, 11.80419, .68563, .46769,
1096 + .35266, .60867, .69761,
1097 + .19292, .10955, 11.96269, .70075, .48361,
1098 + .36992, .62427, .71293,
1099 + .19520, .11083, 12.09904, .71504, .49862,
1100 + .38608, .63904, .72742,
1101 + .19737, .11203, 12.22586, .72864, .51300,
1102 + .40167, .65309, .74121,
1103 + .19939, .11315, 12.32951, .74095, .52600,
1104 + .41568, .66585, .75369 /
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 + .20144, .11426, 12.43124, .75336, .53916,
1107 + .42994, .67868, .76627,
1108 + .20342, .11536, 12.51988, .76521, .55172,
1109 + .44351, .69094, .77829,
1110 + .20531, .11638, 12.59843, .77632, .56355,
1111 + .45631, .70245, .78956,
1112 + .20710, .11736, 12.66872, .78674, .57469,
1113 + .46838, .71326, .80014,
1114 + .20887, .11831, 12.72855, .79685, .58547,
1115 + .48004, .72375, .81039 /
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 + .13389, .07512, .96563, .21062, .00000,
1118 + .00000, .12173, .21733,
1119 + .13629, .07667, 1.39984, .21932, .00000,
1120 + .00000, .13105, .22625,
1121 + .13998, .07902, 2.02208, .23341, .01553,
1122 + .00000, .14604, .24067,
1123 + .14280, .08080, 2.49623, .24446, .02888,
1124 + .00000, .15774, .25199,
1125 + .14581, .08269, 2.98313, .25686, .04081,
1126 + .00000, .17081, .26468,
1127 + .14843, .08431, 3.39260, .26805, .05176,
1128 + .00000, .18259, .27612,
1129 + .15097, .08588, 3.78402, .27918, .06313,
1130 + .00000, .19427, .28750,
1131 + .15369, .08756, 4.19529, .29141, .07582,
1132 + .00000, .20709, .29999 /
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 + .15606, .08900, 4.53829, .30232, .08684,
1135 + .00000, .21851, .31113,
1136 + .15835, .09039, 4.86149, .31306, .09779,
1137 + .00000, .22973, .32209,
1138 + .16018, .09150, 5.11664, .32175, .10683,
1139 + .00000, .23880, .33096,
1140 + .16406, .09384, 5.65048, .34059, .12620,
1141 + .00000, .25843, .35017,
1142 + .16744, .09585, 6.04781, .35699, .14305,
1143 + .01374, .27550, .36687,
1144 + .17122, .09809, 6.47553, .37553, .16226,
1145 + .03820, .29482, .38578,
1146 + .17515, .10039, 6.89289, .39493, .18238,
1147 + .06080, .31499, .40554,
1148 + .17868, .10244, 7.24667, .41251, .20068,
1149 + .08137, .33326, .42344 /
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 + .18221, .10449, 7.58104, .43021, .21919,
1152 + .10204, .35167, .44147,
1153 + .18512, .10617, 7.83861, .44476, .23438,
1154 + .11877, .36679, .45628,
1155 + .18862, .10817, 8.12727, .46217, .25256,
1156 + .13873, .38489, .47401,
1157 + .19168, .10992, 8.36603, .47743, .26860,
1158 + .15643, .40074, .48955,
1159 + .19449, .11149, 8.57159, .49128, .28321,
1160 + .17258, .41515, .50366,
1161 + .19798, .11346, 8.80576, .50838, .30121,
1162 + .19224, .43296, .52109,
1163 + .20123, .11527, 9.00823, .52419, .31792,
1164 + .21058, .44940, .53719,
1165 + .20426, .11696, 9.18513, .53880, .33349,
1166 + .22776, .46462, .55207 /
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 + .20722, .11860, 9.33865, .55286, .34837,
1169 + .24398, .47926, .56638,
1170 + .21011, .12019, 9.47828, .56639, .36282,
1171 + .25984, .49337, .58016,
1172 + .21280, .12166, 9.59897, .57892, .37625,
1173 + .27459, .50645, .59294,
1174 + .21531, .12302, 9.69836, .59031, .38845,
1175 + .28795, .51834, .60453,
1176 + .21782, .12437, 9.79324, .60166, .40070,
1177 + .30143, .53020, .61610,
1178 + .22023, .12567, 9.87096, .61231, .41217,
1179 + .31398, .54133, .62694,
1180 + .22253, .12691, 9.94242, .62239, .42311,
1181 + .32604, .55189, .63723,
1182 + .22465, .12804, 9.99718, .63146, .43294,
1183 + .33682, .56138, .64647 /
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 + .22679, .12918, 10.05012, .64054, .44286,
1186 + .34776, .57090, .65573,
1187 + .22886, .13027, 10.09320, .64914, .45228,
1188 + .35811, .57994, .66451,
1189 + .23084, .13131, 10.12963, .65718, .46110,
1190 + .36784, .58839, .67271,
1191 + .23269, .13228, 10.16092, .66468, .46937,
1192 + .37698, .59628, .68037,
1193 + .23453, .13324, 10.18395, .67190, .47733,
1194 + .38576, .60388, .68773 /
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 + .14869, .08464, 1.04273, .20161, .00000,
1197 + .00000, .11648, .20945,
1198 + .15136, .08638, 1.45048, .20942, .00000,
1199 + .00000, .12488, .21754,
1200 + .15546, .08900, 2.02742, .22207, .01343,
1201 + .00000, .13841, .23060,
1202 + .15861, .09097, 2.45893, .23197, .02567,
1203 + .00000, .14896, .24082,
1204 + .16194, .09305, 2.89677, .24305, .03649,
1205 + .00000, .16072, .25223,
1206 + .16483, .09483, 3.26070, .25302, .04638,
1207 + .00000, .17126, .26249,
1208 + .16764, .09654, 3.60515, .26290, .05662,
1209 + .00000, .18168, .27265,
1210 + .17063, .09836, 3.96358, .27372, .06799,
1211 + .00000, .19309, .28377 /
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 + .17323, .09992, 4.25963, .28333, .07784,
1214 + .00000, .20320, .29364,
1215 + .17573, .10144, 4.53633, .29276, .08758,
1216 + .00000, .21311, .30332,
1217 + .17773, .10263, 4.75337, .30038, .09560,
1218 + .00000, .22111, .31112,
1219 + .18197, .10515, 5.20354, .31679, .11270,
1220 + .00000, .23832, .32794,
1221 + .18565, .10729, 5.53460, .33095, .12748,
1222 + .01050, .25319, .34248,
1223 + .18974, .10968, 5.88350, .34691, .14422,
1224 + .03205, .26991, .35882,
1225 + .19397, .11211, 6.21926, .36346, .16166,
1226 + .05184, .28726, .37577,
1227 + .19776, .11427, 6.49979, .37837, .17743,
1228 + .06974, .30288, .39103 /
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 + .20156, .11643, 6.76110, .39328, .19327,
1231 + .08764, .31852, .40630,
1232 + .20467, .11818, 6.95955, .40547, .20621,
1233 + .10204, .33129, .41879,
1234 + .20840, .12026, 7.17860, .41996, .22161,
1235 + .11913, .34649, .43362,
1236 + .21166, .12207, 7.35712, .43258, .23511,
1237 + .13421, .35974, .44654,
1238 + .21462, .12371, 7.50864, .44399, .24738,
1239 + .14792, .37171, .45822,
1240 + .21831, .12572, 7.67748, .45797, .26237,
1241 + .16450, .38640, .47253,
1242 + .22174, .12759, 7.82061, .47081, .27623,
1243 + .17991, .39989, .48567,
1244 + .22492, .12931, 7.94346, .48261, .28907,
1245 + .19426, .41232, .49775 /
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 + .22801, .13097, 8.04643, .49387, .30128,
1248 + .20775, .42417, .50927,
1249 + .23102, .13258, 8.13798, .50465, .31307,
1250 + .22088, .43556, .52032,
1251 + .23383, .13407, 8.21484, .51457, .32397,
1252 + .23302, .44604, .53049,
1253 + .23643, .13543, 8.27541, .52353, .33383,
1254 + .24397, .45551, .53966,
1255 + .23902, .13678, 8.33210, .53241, .34368,
1256 + .25499, .46491, .54877,
1257 + .24150, .13808, 8.37497, .54067, .35286,
1258 + .26519, .47368, .55723,
1259 + .24386, .13931, 8.41373, .54848, .36158,
1260 + .27497, .48196, .56523,
1261 + .24604, .14042, 8.43997, .55543, .36938,
1262 + .28366, .48936, .57236 /
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 + .24824, .14154, 8.46462, .56238, .37722,
1265 + .29245, .49676, .57950,
1266 + .25035, .14263, 8.48152, .56891, .38461,
1267 + .30074, .50375, .58620,
1268 + .25235, .14364, 8.49389, .57498, .39153,
1269 + .30851, .51024, .59243,
1270 + .25423, .14459, 8.50310, .58062, .39799,
1271 + .31578, .51627, .59822,
1272 + .25609, .14553, 8.50565, .58599, .40416,
1273 + .32272, .52204, .60373 /
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 + .17436, .10123, 1.17639, .18799, .00000,
1276 + .00000, .10826, .19806,
1277 + .17755, .10328, 1.53956, .19454, .00000,
1278 + .00000, .11541, .20498,
1279 + .18241, .10634, 2.04442, .20518, .00982,
1280 + .00000, .12692, .21613,
1281 + .18609, .10860, 2.40981, .21347, .02050,
1282 + .00000, .13588, .22482,
1283 + .18997, .11097, 2.77344, .22270, .02980,
1284 + .00000, .14580, .23448,
1285 + .19332, .11299, 3.06995, .23094, .03825,
1286 + .00000, .15464, .24307,
1287 + .19655, .11492, 3.34599, .23908, .04695,
1288 + .00000, .16335, .25154,
1289 + .20001, .11697, 3.62871, .24793, .05653,
1290 + .00000, .17280, .26075 /
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 + .20297, .11871, 3.85847, .25574, .06477,
1293 + .00000, .18113, .26886,
1294 + .20583, .12037, 4.07015, .26334, .07286,
1295 + .00000, .18924, .27676,
1296 + .20810, .12168, 4.23435, .26944, .07949,
1297 + .00000, .19575, .28310,
1298 + .21291, .12444, 4.56991, .28250, .09351,
1299 + .00000, .20965, .29663,
1300 + .21702, .12676, 4.81186, .29364, .10550,
1301 + .00612, .22153, .30818,
1302 + .22158, .12931, 5.05619, .30604, .11895,
1303 + .02375, .23475, .32102,
1304 + .22626, .13190, 5.28512, .31877, .13281,
1305 + .03977, .24831, .33419,
1306 + .23044, .13418, 5.47108, .33009, .14521,
1307 + .05412, .26040, .34592 /
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 + .23459, .13644, 5.63957, .34129, .15755,
1310 + .06832, .27235, .35751,
1311 + .23798, .13825, 5.76373, .35034, .16754,
1312 + .07967, .28202, .36687,
1313 + .24200, .14040, 5.89618, .36100, .17931,
1314 + .09301, .29342, .37789,
1315 + .24550, .14225, 6.00058, .37018, .18955,
1316 + .10469, .30326, .38738,
1317 + .24867, .14391, 6.08633, .37838, .19876,
1318 + .11522, .31207, .39586,
1319 + .25259, .14595, 6.17688, .38832, .20994,
1320 + .12787, .32275, .40615,
1321 + .25622, .14780, 6.24960, .39733, .22015,
1322 + .13950, .33247, .41548,
1323 + .25956, .14951, 6.30884, .40554, .22954,
1324 + .15027, .34132, .42397 /
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 + .26279, .15114, 6.35311, .41324, .23838,
1327 + .16029, .34967, .43194,
1328 + .26591, .15270, 6.38963, .42054, .24684,
1329 + .16997, .35759, .43950,
1330 + .26881, .15415, 6.41706, .42718, .25461,
1331 + .17886, .36483, .44639,
1332 + .27147, .15545, 6.43413, .43311, .26156,
1333 + .18682, .37130, .45252,
1334 + .27413, .15675, 6.44827, .43893, .26847,
1335 + .19478, .37766, .45855,
1336 + .27665, .15798, 6.45325, .44425, .27482,
1337 + .20207, .38351, .46407,
1338 + .27904, .15913, 6.45673, .44923, .28084,
1339 + .20904, .38900, .46924,
1340 + .28122, .16017, 6.45255, .45359, .28615,
1341 + .21517, .39384, .47377 /
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 + .28340, .16121, 6.44720, .45793, .29148,
1344 + .22136, .39865, .47827,
1345 + .28551, .16220, 6.43697, .46194, .29645,
1346 + .22714, .40313, .48244,
1347 + .28750, .16313, 6.42484, .46562, .30106,
1348 + .23252, .40724, .48626,
1349 + .28935, .16399, 6.41168, .46901, .30535,
1350 + .23755, .41105, .48979,
1351 + .29117, .16483, 6.39372, .47217, .30940,
1352 + .24229, .41463, .49308 /
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 + .20667, .12203, 1.33559, .17284, .00000,
1355 + .00000, .09878, .18591,
1356 + .21053, .12446, 1.64406, .17823, .00000,
1357 + .00000, .10480, .19178,
1358 + .21637, .12801, 2.06639, .18694, .00542,
1359 + .00000, .11446, .20119,
1360 + .22072, .13060, 2.35877, .19369, .01465,
1361 + .00000, .12193, .20843,
1362 + .22528, .13327, 2.64312, .20113, .02256,
1363 + .00000, .13012, .21640,
1364 + .22917, .13553, 2.86965, .20772, .02967,
1365 + .00000, .13735, .22341,
1366 + .23292, .13766, 3.07631, .21417, .03692,
1367 + .00000, .14442, .23027,
1368 + .23688, .13991, 3.28381, .22112, .04484,
1369 + .00000, .15203, .23765 /
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 + .24028, .14180, 3.44895, .22719, .05157,
1372 + .00000, .15867, .24407,
1373 + .24353, .14360, 3.59828, .23305, .05814,
1374 + .00000, .16509, .25027,
1375 + .24610, .14502, 3.71250, .23773, .06348,
1376 + .00000, .17021, .25521,
1377 + .25147, .14793, 3.94146, .24763, .07466,
1378 + .00000, .18101, .26565,
1379 + .25604, .15036, 4.10228, .25592, .08410,
1380 + .00218, .19012, .27439,
1381 + .26105, .15299, 4.25345, .26503, .09455,
1382 + .01620, .20011, .28397,
1383 + .26613, .15562, 4.38912, .27421, .10518,
1384 + .02878, .21021, .29364,
1385 + .27063, .15793, 4.49418, .28227, .11456,
1386 + .03992, .21908, .30210 /
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 + .27508, .16016, 4.58469, .29012, .12380,
1389 + .05084, .22776, .31035,
1390 + .27866, .16195, 4.64739, .29636, .13119,
1391 + .05946, .23468, .31691,
1392 + .28290, .16404, 4.70962, .30359, .13981,
1393 + .06951, .24271, .32451,
1394 + .28656, .16582, 4.75498, .30973, .14721,
1395 + .07821, .24956, .33095,
1396 + .28984, .16741, 4.78915, .31514, .15381,
1397 + .08599, .25561, .33665,
1398 + .29387, .16931, 4.81912, .32158, .16172,
1399 + .09524, .26286, .34339,
1400 + .29754, .17104, 4.83855, .32731, .16887,
1401 + .10366, .26933, .34942,
1402 + .30092, .17260, 4.85065, .33244, .17536,
1403 + .11137, .27517, .35482 /
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 + .30414, .17408, 4.85247, .33715, .18138,
1406 + .11847, .28056, .35977,
1407 + .30723, .17547, 4.84969, .34154, .18711,
1408 + .12529, .28561, .36438,
1409 + .31008, .17674, 4.84231, .34547, .19230,
1410 + .13148, .29016, .36852,
1411 + .31266, .17788, 4.82980, .34888, .19689,
1412 + .13697, .29415, .37210,
1413 + .31523, .17900, 4.81555, .35220, .20141,
1414 + .14242, .29804, .37559,
1415 + .31764, .18003, 4.79554, .35513, .20551,
1416 + .14737, .30154, .37868,
1417 + .31992, .18100, 4.77596, .35785, .20937,
1418 + .15206, .30478, .38156,
1419 + .32197, .18185, 4.75286, .36014, .21273,
1420 + .15615, .30758, .38398 /
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 + .32403, .18269, 4.72914, .36240, .21607,
1423 + .16025, .31033, .38636,
1424 + .32597, .18349, 4.70266, .36441, .21914,
1425 + .16405, .31283, .38849,
1426 + .32779, .18423, 4.67609, .36623, .22196,
1427 + .16755, .31509, .39040,
1428 + .32949, .18491, 4.65007, .36786, .22456,
1429 + .17080, .31716, .39212,
1430 + .33112, .18555, 4.62099, .36930, .22698,
1431 + .17383, .31904, .39367 /
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 + .25155, .15024, 1.51242, .15445, .00000,
1434 + .00000, .08719, .17248,
1435 + .25639, .15309, 1.74950, .15868, .00000,
1436 + .00000, .09215, .17731,
1437 + .26350, .15719, 2.07040, .16542, .00007,
1438 + .00000, .10001, .18493,
1439 + .26871, .16006, 2.27742, .17056, .00784,
1440 + .00000, .10599, .19069,
1441 + .27407, .16299, 2.47242, .17615, .01439,
1442 + .00000, .11244, .19685,
1443 + .27862, .16542, 2.62254, .18100, .02018,
1444 + .00000, .11805, .20222,
1445 + .28293, .16770, 2.75553, .18570, .02600,
1446 + .00000, .12346, .20737,
1447 + .28744, .17004, 2.88514, .19069, .03227,
1448 + .00000, .12922, .21282 /
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 + .29129, .17200, 2.98479, .19497, .03753,
1451 + .00000, .13415, .21750,
1452 + .29493, .17383, 3.07214, .19905, .04260,
1453 + .00000, .13886, .22194,
1454 + .29778, .17527, 3.13747, .20227, .04669,
1455 + .00000, .14257, .22544,
1456 + .30368, .17816, 3.26437, .20898, .05512,
1457 + .00000, .15033, .23268,
1458 + .30856, .18050, 3.34944, .21447, .06209,
1459 + -.00132, .15669, .23859,
1460 + .31386, .18298, 3.41622, .22033, .06969,
1461 + .00919, .16356, .24492,
1462 + .31918, .18543, 3.46979, .22611, .07730,
1463 + .01850, .17036, .25112,
1464 + .32379, .18750, 3.50544, .23104, .08389,
1465 + .02660, .17620, .25641 /
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 + .32829, .18950, 3.53060, .23573, .09027,
1468 + .03443, .18179, .26144,
1469 + .33188, .19105, 3.54324, .23936, .09530,
1470 + .04053, .18615, .26532,
1471 + .33604, .19282, 3.54942, .24346, .10107,
1472 + .04756, .19112, .26970,
1473 + .33960, .19429, 3.54874, .24683, .10596,
1474 + .05357, .19526, .27331,
1475 + .34275, .19557, 3.54357, .24974, .11026,
1476 + .05888, .19887, .27641,
1477 + .34655, .19708, 3.52899, .25305, .11531,
1478 + .06510, .20304, .27996,
1479 + .34996, .19840, 3.51020, .25591, .11981,
1480 + .07069, .20669, .28301,
1481 + .35304, .19958, 3.48924, .25840, .12384,
1482 + .07575, .20991, .28565 /
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 + .35594, .20064, 3.46243, .26054, .12749,
1485 + .08034, .21278, .28794,
1486 + .35867, .20162, 3.43399, .26247, .13092,
1487 + .08470, .21541, .28999,
1488 + .36117, .20247, 3.40474, .26411, .13398,
1489 + .08861, .21770, .29173,
1490 + .36336, .20322, 3.37425, .26545, .13664,
1491 + .09203, .21964, .29315,
1492 + .36552, .20393, 3.34315, .26670, .13922,
1493 + .09540, .22148, .29447,
1494 + .36751, .20455, 3.30947, .26769, .14151,
1495 + .09840, .22306, .29553,
1496 + .36937, .20511, 3.27764, .26860, .14364,
1497 + .10123, .22450, .29648,
1498 + .37101, .20559, 3.24519, .26924, .14545,
1499 + .10366, .22566, .29717 /
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 + .37262, .20606, 3.21265, .26985, .14723,
1502 + .10608, .22677, .29781,
1503 + .37412, .20645, 3.17919, .27031, .14883,
1504 + .10828, .22772, .29828,
1505 + .37550, .20681, 3.14691, .27067, .15027,
1506 + .11029, .22855, .29866,
1507 + .37676, .20713, 3.11615, .27096, .15159,
1508 + .11215, .22927, .29895,
1509 + .37795, .20740, 3.08376, .27110, .15277,
1510 + .11385, .22986, .29910 /
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 + .28906, .17315, 1.61443, .14006, .00000,
1513 + .00000, .07829, .16229,
1514 + .29475, .17627, 1.79601, .14351, .00000,
1515 + .00000, .08264, .16652,
1516 + .30295, .18063, 2.04135, .14899, -.00354,
1517 + .00000, .08938, .17297,
1518 + .30880, .18364, 2.18817, .15306, .00329,
1519 + .00000, .09442, .17772,
1520 + .31477, .18663, 2.32211, .15742, .00899,
1521 + .00000, .09976, .18272,
1522 + .31973, .18907, 2.42165, .16116, .01395,
1523 + .00000, .10432, .18696,
1524 + .32441, .19132, 2.50715, .16471, .01887,
1525 + .00000, .10867, .19097,
1526 + .32928, .19361, 2.58779, .16843, .02411,
1527 + .00000, .11324, .19514 /
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 + .33334, .19548, 2.64720, .17157, .02845,
1530 + .00000, .11710, .19865,
1531 + .33714, .19722, 2.69723, .17454, .03258,
1532 + .00000, .12074, .20195,
1533 + .34012, .19855, 2.73356, .17684, .03589,
1534 + .00000, .12360, .20451,
1535 + .34618, .20121, 2.80119, .18156, .04265,
1536 + .00000, .12945, .20972,
1537 + .35111, .20329, 2.84338, .18531, .04815,
1538 + -.00306, .13414, .21383,
1539 + .35637, .20544, 2.86434, .18923, .05406,
1540 + .00532, .13913, .21811,
1541 + .36155, .20749, 2.87462, .19298, .05988,
1542 + .01264, .14396, .22218,
1543 + .36599, .20920, 2.87486, .19609, .06486,
1544 + .01895, .14801, .22555 /
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 + .37024, .21077, 2.86777, .19895, .06961,
1547 + .02497, .15182, .22863,
1548 + .37357, .21197, 2.85625, .20110, .07331,
1549 + .02962, .15473, .23094,
1550 + .37738, .21327, 2.83640, .20343, .07749,
1551 + .03490, .15797, .23342,
1552 + .38058, .21433, 2.81503, .20528, .08099,
1553 + .03939, .16061, .23541,
1554 + .38337, .21523, 2.79267, .20681, .08404,
1555 + .04331, .16285, .23703,
1556 + .38664, .21622, 2.75936, .20846, .08756,
1557 + .04785, .16538, .23875,
1558 + .38954, .21705, 2.72533, .20979, .09065,
1559 + .05190, .16751, .24014,
1560 + .39212, .21774, 2.69186, .21087, .09338,
1561 + .05552, .16933, .24126 /
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 + .39446, .21832, 2.65497, .21169, .09581,
1564 + .05876, .17089, .24210,
1565 + .39663, .21881, 2.61799, .21236, .09806,
1566 + .06181, .17225, .24277,
1567 + .39856, .21921, 2.58200, .21286, .10004,
1568 + .06453, .17339, .24326,
1569 + .40022, .21951, 2.54660, .21317, .10173,
1570 + .06688, .17430, .24353,
1571 + .40182, .21978, 2.51120, .21341, .10335,
1572 + .06917, .17513, .24373,
1573 + .40323, .21995, 2.47482, .21347, .10475,
1574 + .07119, .17576, .24374,
1575 + .40454, .22010, 2.44080, .21349, .10603,
1576 + .07307, .17631, .24372,
1577 + .40563, .22017, 2.40742, .21336, .10710,
1578 + .07467, .17669, .24353 /
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 + .40670, .22022, 2.37426, .21322, .10814,
1581 + .07625, .17703, .24331,
1582 + .40763, .22022, 2.34095, .21296, .10904,
1583 + .07767, .17725, .24298,
1584 + .40848, .22019, 2.30928, .21266, .10985,
1585 + .07896, .17740, .24260,
1586 + .40923, .22014, 2.27944, .21233, .11057,
1587 + .08013, .17750, .24220,
1588 + .40988, .22004, 2.24873, .21191, .11118,
1589 + .08118, .17749, .24168 /
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 + .35315, .20948, 1.66939, .11793, .00000,
1592 + .00000, .06581, .14860,
1593 + .35997, .21273, 1.77198, .12038, .00000,
1594 + .00000, .06931, .15176,
1595 + .36943, .21706, 1.91301, .12408, -.00759,
1596 + .00000, .07451, .15632,
1597 + .37592, .21986, 1.98162, .12672, -.00203,
1598 + .00000, .07825, .15949,
1599 + .38237, .22256, 2.03894, .12944, .00256,
1600 + .00000, .08209, .16268,
1601 + .38762, .22464, 2.07696, .13168, .00645,
1602 + .00000, .08527, .16527,
1603 + .39245, .22651, 2.10628, .13375, .01022,
1604 + .00000, .08823, .16763,
1605 + .39732, .22833, 2.13048, .13585, .01415,
1606 + .00000, .09125, .16998 /
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 + .40131, .22978, 2.14453, .13757, .01734,
1609 + .00000, .09374, .17188,
1610 + .40497, .23106, 2.15345, .13914, .02035,
1611 + .00000, .09603, .17360,
1612 + .40779, .23200, 2.15848, .14033, .02271,
1613 + .00000, .09780, .17490,
1614 + .41338, .23378, 2.16352, .14266, .02745,
1615 + .00000, .10130, .17738,
1616 + .41768, .23503, 2.16175, .14438, .03121,
1617 + -.00439, .10401, .17916,
1618 + .42211, .23620, 2.13848, .14605, .03517,
1619 + .00140, .10676, .18087,
1620 + .42629, .23719, 2.10875, .14751, .03897,
1621 + .00639, .10931, .18231,
1622 + .42972, .23790, 2.07763, .14860, .04214,
1623 + .01060, .11134, .18333 /
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 + .43287, .23843, 2.04311, .14949, .04510,
1626 + .01455, .11316, .18411,
1627 + .43521, .23875, 2.01224, .15006, .04735,
1628 + .01756, .11447, .18457,
1629 + .43773, .23900, 1.97258, .15055, .04984,
1630 + .02091, .11584, .18489,
1631 + .43974, .23911, 1.93641, .15085, .05188,
1632 + .02372, .11688, .18500,
1633 + .44140, .23911, 1.90259, .15099, .05361,
1634 + .02614, .11771, .18497,
1635 + .44320, .23895, 1.85813, .15098, .05558,
1636 + .02890, .11852, .18471,
1637 + .44466, .23869, 1.81602, .15082, .05724,
1638 + .03130, .11911, .18432,
1639 + .44584, .23838, 1.77674, .15058, .05868,
1640 + .03342, .11956, .18383 /
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 + .44674, .23794, 1.73659, .15017, .05991,
1643 + .03528, .11982, .18317,
1644 + .44748, .23745, 1.69776, .14969, .06102,
1645 + .03700, .11998, .18243,
1646 + .44805, .23691, 1.66126, .14916, .06198,
1647 + .03851, .12003, .18164,
1648 + .44838, .23634, 1.62680, .14856, .06275,
1649 + .03979, .11997, .18078,
1650 + .44865, .23573, 1.59294, .14792, .06347,
1651 + .04102, .11986, .17989,
1652 + .44872, .23503, 1.55942, .14720, .06407,
1653 + .04208, .11965, .17890,
1654 + .44875, .23437, 1.52840, .14651, .06460,
1655 + .04306, .11943, .17795,
1656 + .44862, .23367, 1.49895, .14576, .06501,
1657 + .04387, .11912, .17696 /
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 + .44846, .23295, 1.46995, .14500, .06540,
1660 + .04466, .11880, .17594,
1661 + .44817, .23220, 1.44151, .14419, .06570,
1662 + .04535, .11840, .17489,
1663 + .44783, .23145, 1.41482, .14340, .06595,
1664 + .04596, .11800, .17384,
1665 + .44746, .23072, 1.38995, .14262, .06617,
1666 + .04652, .11759, .17283,
1667 + .44699, .22994, 1.36487, .14179, .06633,
1668 + .04700, .11713, .17176 /
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 + .40692, .23711, 1.61787, .10063, .00000,
1671 + .00000, .05701, .13812,
1672 + .41429, .24007, 1.66958, .10232, .00000,
1673 + .00000, .05984, .14024,
1674 + .42419, .24376, 1.74446, .10478, -.00918,
1675 + .00000, .06391, .14318,
1676 + .43067, .24599, 1.76732, .10647, -.00455,
1677 + .00000, .06670, .14506,
1678 + .43691, .24800, 1.78127, .10814, -.00072,
1679 + .00000, .06949, .14685,
1680 + .44188, .24946, 1.78566, .10944, .00244,
1681 + .00000, .07175, .14819,
1682 + .44630, .25067, 1.78521, .11059, .00545,
1683 + .00000, .07378, .14935,
1684 + .45065, .25178, 1.78037, .11173, .00855,
1685 + .00000, .07581, .15045 /
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 + .45409, .25257, 1.77188, .11261, .01104,
1688 + .00000, .07744, .15125,
1689 + .45717, .25321, 1.76095, .11337, .01334,
1690 + .00000, .07891, .15189,
1691 + .45946, .25364, 1.75117, .11393, .01512,
1692 + .00000, .08001, .15233,
1693 + .46383, .25428, 1.72765, .11493, .01865,
1694 + .00000, .08213, .15305,
1695 + .46696, .25451, 1.70643, .11556, .02141,
1696 + -.00457, .08369, .15338,
1697 + .46997, .25452, 1.66585, .11606, .02426,
1698 + -.00031, .08519, .15351,
1699 + .47257, .25429, 1.62170, .11636, .02693,
1700 + .00332, .08648, .15340,
1701 + .47451, .25389, 1.58029, .11645, .02912,
1702 + .00634, .08744, .15306 /
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 + .47608, .25332, 1.53777, .11639, .03112,
1705 + .00913, .08822, .15255,
1706 + .47710, .25271, 1.50197, .11622, .03263,
1707 + .01124, .08871, .15198,
1708 + .47797, .25182, 1.45828, .11586, .03425,
1709 + .01356, .08913, .15115,
1710 + .47850, .25094, 1.41991, .11545, .03556,
1711 + .01547, .08939, .15030,
1712 + .47877, .25006, 1.38511, .11501, .03664,
1713 + .01709, .08953, .14944,
1714 + .47878, .24878, 1.34097, .11429, .03785,
1715 + .01892, .08954, .14819,
1716 + .47853, .24749, 1.30028, .11354, .03884,
1717 + .02050, .08945, .14693,
1718 + .47812, .24620, 1.26309, .11277, .03967,
1719 + .02186, .08929, .14569 /
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 + .47742, .24482, 1.22614, .11192, .04037,
1722 + .02305, .08899, .14433,
1723 + .47659, .24342, 1.19099, .11103, .04097,
1724 + .02412, .08864, .14296,
1725 + .47565, .24203, 1.15849, .11013, .04147,
1726 + .02505, .08825, .14161,
1727 + .47459, .24066, 1.12833, .10925, .04186,
1728 + .02584, .08782, .14029,
1729 + .47346, .23927, 1.09895, .10834, .04221,
1730 + .02658, .08735, .13895,
1731 + .47217, .23781, 1.07042, .10738, .04246,
1732 + .02719, .08682, .13757,
1733 + .47092, .23644, 1.04420, .10647, .04269,
1734 + .02775, .08631, .13627,
1735 + .46955, .23508, 1.01966, .10556, .04284,
1736 + .02822, .08578, .13498 /
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 + .46815, .23371, .99567, .10466, .04297,
1739 + .02866, .08523, .13369,
1740 + .46665, .23232, .97240, .10373, .04306,
1741 + .02903, .08465, .13238,
1742 + .46517, .23097, .95074, .10284, .04311,
1743 + .02936, .08408, .13113,
1744 + .46372, .22970, .93069, .10198, .04315,
1745 + .02965, .08353, .12993,
1746 + .46215, .22835, .91068, .10109, .04313,
1747 + .02989, .08295, .12870 /
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 + .45354, .25867, 1.51599, .08637, .00000,
1750 + .00000, .05019, .12877,
1751 + .46102, .26101, 1.53458, .08748, .00000,
1752 + .00000, .05242, .12997,
1753 + .47058, .26374, 1.56677, .08906, -.00957,
1754 + .00000, .05553, .13136,
1755 + .47657, .26514, 1.56223, .09007, -.00565,
1756 + .00000, .05761, .13215,
1757 + .48212, .26625, 1.55094, .09100, -.00243,
1758 + .00000, .05962, .13276,
1759 + .48628, .26694, 1.53636, .09171, .00020,
1760 + .00000, .06116, .13315,
1761 + .48988, .26738, 1.51967, .09229, .00266,
1762 + .00000, .06253, .13337,
1763 + .49329, .26763, 1.49952, .09279, .00516,
1764 + .00000, .06388, .13348 /
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 + .49586, .26765, 1.47953, .09314, .00713,
1767 + .00000, .06491, .13346,
1768 + .49803, .26753, 1.45877, .09340, .00896,
1769 + .00000, .06581, .13334,
1770 + .49958, .26736, 1.44190, .09358, .01035,
1771 + .00000, .06648, .13318,
1772 + .50227, .26675, 1.40503, .09380, .01309,
1773 + .00000, .06770, .13269,
1774 + .50387, .26588, 1.37534, .09381, .01518,
1775 + -.00437, .06852, .13206,
1776 + .50505, .26470, 1.32878, .09366, .01731,
1777 + -.00112, .06924, .13115,
1778 + .50574, .26325, 1.28045, .09333, .01928,
1779 + .00163, .06977, .13003,
1780 + .50591, .26172, 1.23688, .09291, .02087,
1781 + .00389, .07009, .12888 /
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 + .50569, .26003, 1.19353, .09236, .02231,
1784 + .00596, .07027, .12760,
1785 + .50515, .25855, 1.15802, .09183, .02335,
1786 + .00749, .07029, .12644,
1787 + .50419, .25660, 1.11564, .09109, .02448,
1788 + .00917, .07022, .12495,
1789 + .50309, .25478, 1.07919, .09036, .02536,
1790 + .01054, .07006, .12356,
1791 + .50187, .25306, 1.04663, .08964, .02607,
1792 + .01168, .06984, .12225,
1793 + .49998, .25075, 1.00613, .08865, .02685,
1794 + .01296, .06945, .12049,
1795 + .49797, .24851, .96938, .08767, .02749,
1796 + .01406, .06901, .11882,
1797 + .49594, .24637, .93619, .08671, .02799,
1798 + .01498, .06855, .11721 /
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 + .49360, .24416, .90376, .08569, .02841,
1801 + .01579, .06801, .11554,
1802 + .49120, .24195, .87320, .08468, .02875,
1803 + .01651, .06745, .11390,
1804 + .48882, .23981, .84526, .08370, .02902,
1805 + .01712, .06688, .11234,
1806 + .48639, .23777, .81962, .08274, .02921,
1807 + .01761, .06629, .11084,
1808 + .48392, .23572, .79481, .08178, .02938,
1809 + .01809, .06571, .10932,
1810 + .48128, .23363, .77098, .08080, .02948,
1811 + .01848, .06508, .10782,
1812 + .47878, .23167, .74920, .07987, .02957,
1813 + .01883, .06447, .10642,
1814 + .47625, .22978, .72901, .07898, .02960,
1815 + .01911, .06387, .10504 /
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 + .47371, .22789, .70936, .07808, .02962,
1818 + .01937, .06327, .10368,
1819 + .47109, .22597, .69044, .07718, .02961,
1820 + .01958, .06265, .10234,
1821 + .46856, .22415, .67292, .07631, .02959,
1822 + .01977, .06204, .10107,
1823 + .46615, .22241, .65680, .07549, .02955,
1824 + .01993, .06146, .09987,
1825 + .46359, .22064, .64083, .07465, .02948,
1826 + .02005, .06087, .09863 /
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 + .50329, .27821, 1.36492, .07142, .00000,
1829 + .00000, .04303, .11684,
1830 + .50999, .27954, 1.35799, .07209, .00000,
1831 + .00000, .04465, .11691,
1832 + .51809, .28060, 1.35707, .07294, -.00926,
1833 + .00000, .04681, .11677,
1834 + .52275, .28078, 1.33303, .07340, -.00605,
1835 + .00000, .04817, .11650,
1836 + .52669, .28058, 1.30441, .07381, -.00340,
1837 + .00000, .04947, .11601,
1838 + .52942, .28013, 1.27732, .07404, -.00129,
1839 + .00000, .05044, .11545,
1840 + .53153, .27949, 1.25027, .07419, .00066,
1841 + .00000, .05125, .11483,
1842 + .53330, .27859, 1.22073, .07427, .00262,
1843 + .00000, .05199, .11410 /
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 + .53437, .27762, 1.19405, .07425, .00416,
1846 + .00000, .05253, .11338,
1847 + .53510, .27654, 1.16791, .07418, .00555,
1848 + .00000, .05297, .11262,
1849 + .53550, .27563, 1.14730, .07408, .00661,
1850 + .00000, .05329, .11201,
1851 + .53565, .27344, 1.10405, .07378, .00866,
1852 + .00000, .05381, .11053,
1853 + .53499, .27127, 1.07047, .07337, .01021,
1854 + -.00387, .05406, .10916,
1855 + .53367, .26864, 1.02313, .07281, .01175,
1856 + -.00147, .05419, .10751,
1857 + .53177, .26570, .97543, .07212, .01315,
1858 + .00053, .05421, .10568,
1859 + .52957, .26292, .93360, .07138, .01426,
1860 + .00216, .05409, .10397 /
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 + .52695, .26002, .89293, .07059, .01523,
1863 + .00362, .05384, .10219,
1864 + .52450, .25750, .86023, .06987, .01594,
1865 + .00470, .05357, .10067,
1866 + .52122, .25437, .82195, .06893, .01668,
1867 + .00587, .05316, .09879,
1868 + .51809, .25155, .78951, .06806, .01724,
1869 + .00681, .05274, .09712,
1870 + .51503, .24894, .76092, .06723, .01770,
1871 + .00760, .05232, .09557,
1872 + .51086, .24555, .72593, .06616, .01817,
1873 + .00845, .05171, .09357,
1874 + .50675, .24234, .69459, .06511, .01854,
1875 + .00917, .05110, .09170,
1876 + .50277, .23932, .66662, .06412, .01884,
1877 + .00978, .05049, .08995 /
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 + .49855, .23625, .63966, .06310, .01904,
1880 + .01029, .04985, .08819,
1881 + .49434, .23324, .61451, .06210, .01921,
1882 + .01074, .04919, .08649,
1883 + .49028, .23040, .59173, .06113, .01934,
1884 + .01112, .04856, .08488,
1885 + .48632, .22769, .57103, .06021, .01942,
1886 + .01143, .04793, .08338,
1887 + .48233, .22500, .55111, .05930, .01947,
1888 + .01171, .04731, .08188,
1889 + .47826, .22231, .53220, .05838, .01949,
1890 + .01194, .04666, .08041,
1891 + .47442, .21979, .51501, .05752, .01949,
1892 + .01214, .04607, .07904,
1893 + .47064, .21738, .49922, .05671, .01946,
1894 + .01229, .04548, .07773 /
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 + .46685, .21498, .48390, .05590, .01943,
1897 + .01244, .04490, .07645,
1898 + .46305, .21261, .46929, .05509, .01937,
1899 + .01255, .04432, .07518,
1900 + .45941, .21035, .45583, .05432, .01930,
1901 + .01264, .04374, .07399,
1902 + .45596, .20821, .44348, .05360, .01924,
1903 + .01272, .04321, .07287,
1904 + .45240, .20605, .43134, .05286, .01915,
1905 + .01278, .04266, .07175 /
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 + .54494, .29137, 1.21121, .05917, .00000,
1908 + .00000, .03677, .10437,
1909 + .55019, .29143, 1.18951, .05953, .00000,
1910 + .00000, .03793, .10356,
1911 + .55588, .29060, 1.16916, .05988, -.00860,
1912 + .00000, .03939, .10228,
1913 + .55862, .28940, 1.13495, .06007, -.00594,
1914 + .00000, .04030, .10122,
1915 + .56048, .28778, 1.09780, .06014, -.00375,
1916 + .00000, .04109, .09998,
1917 + .56135, .28611, 1.06498, .06010, -.00202,
1918 + .00000, .04165, .09882,
1919 + .56165, .28431, 1.03348, .06000, -.00044,
1920 + .00000, .04210, .09768,
1921 + .56146, .28223, 1.00029, .05981, .00112,
1922 + .00000, .04247, .09644 /
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 + .56084, .28027, .97136, .05959, .00234,
1925 + .00000, .04270, .09531,
1926 + .55989, .27829, .94371, .05934, .00344,
1927 + .00000, .04286, .09416,
1928 + .55895, .27665, .92225, .05910, .00425,
1929 + .00000, .04296, .09326,
1930 + .55632, .27297, .87801, .05852, .00584,
1931 + .00000, .04302, .09130,
1932 + .55325, .26959, .84435, .05796, .00700,
1933 + -.00335, .04297, .08950,
1934 + .54931, .26565, .79948, .05722, .00815,
1935 + -.00154, .04281, .08747,
1936 + .54470, .26141, .75519, .05634, .00917,
1937 + -.00004, .04249, .08537,
1938 + .54011, .25752, .71699, .05552, .00997,
1939 + .00116, .04212, .08343 /
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 + .53515, .25354, .68040, .05464, .01066,
1942 + .00224, .04171, .08144,
1943 + .53083, .25017, .65140, .05386, .01115,
1944 + .00301, .04128, .07983,
1945 + .52529, .24606, .61788, .05288, .01165,
1946 + .00386, .04075, .07785,
1947 + .52022, .24245, .58980, .05202, .01203,
1948 + .00452, .04022, .07611,
1949 + .51545, .23911, .56529, .05122, .01232,
1950 + .00508, .03971, .07453,
1951 + .50918, .23485, .53562, .05015, .01262,
1952 + .00566, .03904, .07255,
1953 + .50316, .23086, .50937, .04915, .01284,
1954 + .00615, .03838, .07070,
1955 + .49745, .22717, .48612, .04822, .01301,
1956 + .00657, .03775, .06901 /
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 + .49155, .22346, .46395, .04726, .01312,
1959 + .00690, .03710, .06732,
1960 + .48577, .21986, .44342, .04633, .01320,
1961 + .00720, .03647, .06570,
1962 + .48027, .21647, .42497, .04546, .01325,
1963 + .00745, .03586, .06421,
1964 + .47499, .21328, .40836, .04463, .01327,
1965 + .00765, .03526, .06281,
1966 + .46970, .21013, .39249, .04381, .01327,
1967 + .00781, .03466, .06144,
1968 + .46441, .20703, .37749, .04302, .01324,
1969 + .00795, .03407, .06011,
1970 + .45943, .20413, .36392, .04227, .01322,
1971 + .00808, .03353, .05886,
1972 + .45465, .20137, .35156, .04154, .01317,
1973 + .00816, .03300, .05770 /
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 + .44988, .19864, .33963, .04083, .01311,
1976 + .00824, .03247, .05655,
1977 + .44512, .19596, .32830, .04014, .01304,
1978 + .00830, .03195, .05543,
1979 + .44058, .19342, .31790, .03949, .01297,
1980 + .00835, .03146, .05438,
1981 + .43631, .19105, .30842, .03887, .01290,
1982 + .00838, .03099, .05339,
1983 + .43195, .18863, .29914, .03825, .01281,
1984 + .00840, .03052, .05243 /
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 + .57900, .29911, 1.06667, .04913, .00000,
1987 + .00000, .03116, .09146,
1988 + .58223, .29775, 1.03645, .04931, .00000,
1989 + .00000, .03194, .09008,
1990 + .58474, .29499, 1.00474, .04948, -.00785,
1991 + .00000, .03291, .08793,
1992 + .58510, .29242, .96565, .04946, -.00562,
1993 + .00000, .03348, .08636,
1994 + .58448, .28939, .92483, .04933, -.00378,
1995 + .00000, .03391, .08464,
1996 + .58319, .28655, .88984, .04915, -.00234,
1997 + .00000, .03419, .08317,
1998 + .58144, .28368, .85702, .04892, -.00105,
1999 + .00000, .03439, .08172,
2000 + .57908, .28051, .82310, .04862, .00022,
2001 + .00000, .03452, .08016 /
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 + .57660, .27763, .79419, .04828, .00119,
2004 + .00000, .03456, .07882,
2005 + .57389, .27478, .76693, .04793, .00207,
2006 + .00000, .03454, .07752,
2007 + .57158, .27250, .74599, .04765, .00272,
2008 + .00000, .03448, .07648,
2009 + .56604, .26749, .70336, .04697, .00395,
2010 + .00000, .03432, .07427,
2011 + .56061, .26299, .67136, .04629, .00485,
2012 + -.00286, .03407, .07237,
2013 + .55406, .25794, .63026, .04548, .00572,
2014 + -.00148, .03373, .07025,
2015 + .54682, .25264, .59026, .04459, .00649,
2016 + -.00033, .03327, .06808,
2017 + .53998, .24780, .55625, .04374, .00708,
2018 + .00057, .03280, .06612 /
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 + .53286, .24293, .52404, .04285, .00758,
2021 + .00138, .03231, .06418,
2022 + .52674, .23890, .49879, .04211, .00793,
2023 + .00196, .03185, .06257,
2024 + .51914, .23404, .46995, .04118, .00828,
2025 + .00258, .03124, .06067,
2026 + .51233, .22977, .44600, .04036, .00854,
2027 + .00306, .03071, .05903,
2028 + .50607, .22588, .42528, .03957, .00873,
2029 + .00345, .03020, .05757,
2030 + .49795, .22096, .40044, .03859, .00892,
2031 + .00387, .02955, .05571,
2032 + .49027, .21642, .37863, .03768, .00906,
2033 + .00422, .02892, .05402,
2034 + .48306, .21225, .35948, .03683, .00915,
2035 + .00450, .02832, .05248 /
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 + .47578, .20806, .34139, .03597, .00921,
2038 + .00473, .02771, .05098,
2039 + .46869, .20404, .32474, .03515, .00924,
2040 + .00493, .02711, .04955,
2041 + .46198, .20031, .30989, .03437, .00925,
2042 + .00509, .02655, .04822,
2043 + .45562, .19683, .29660, .03366, .00924,
2044 + .00522, .02604, .04698,
2045 + .44931, .19338, .28395, .03295, .00922,
2046 + .00533, .02552, .04578,
2047 + .44306, .19000, .27209, .03225, .00918,
2048 + .00541, .02500, .04463,
2049 + .43722, .18686, .26139, .03160, .00915,
2050 + .00549, .02452, .04356,
2051 + .43163, .18390, .25172, .03099, .00909,
2052 + .00553, .02406, .04258 /
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 + .42607, .18099, .24242, .03039, .00903,
2055 + .00558, .02361, .04161,
2056 + .42059, .17814, .23364, .02979, .00897,
2057 + .00561, .02316, .04066,
2058 + .41541, .17544, .22563, .02923, .00890,
2059 + .00564, .02275, .03977,
2060 + .41054, .17294, .21833, .02871, .00883,
2061 + .00565, .02236, .03895,
2062 + .40558, .17039, .21124, .02820, .00876,
2063 + .00565, .02196, .03814 /
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 + .60574, .30222, .93488, .04098, .00000,
2066 + .00000, .02605, .07836,
2067 + .60651, .29940, .89991, .04104, .00000,
2068 + .00000, .02659, .07664,
2069 + .60538, .29461, .86160, .04103, -.00707,
2070 + .00000, .02724, .07410,
2071 + .60311, .29069, .82054, .04092, -.00520,
2072 + .00000, .02757, .07229,
2073 + .59977, .28630, .77858, .04068, -.00363,
2074 + .00000, .02780, .07041,
2075 + .59619, .28236, .74352, .04039, -.00244,
2076 + .00000, .02790, .06877,
2077 + .59226, .27849, .71111, .04008, -.00137,
2078 + .00000, .02794, .06723,
2079 + .58766, .27433, .67807, .03970, -.00033,
2080 + .00000, .02790, .06561 /
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 + .58326, .27065, .65025, .03936, .00046,
2083 + .00000, .02782, .06417,
2084 + .57877, .26702, .62434, .03896, .00116,
2085 + .00000, .02772, .06285,
2086 + .57511, .26414, .60463, .03861, .00169,
2087 + .00000, .02762, .06180,
2088 + .56675, .25797, .56483, .03790, .00266,
2089 + .00000, .02729, .05960,
2090 + .55898, .25260, .53525, .03720, .00337,
2091 + -.00242, .02697, .05774,
2092 + .54998, .24658, .49836, .03637, .00404,
2093 + -.00134, .02654, .05572,
2094 + .54035, .24039, .46295, .03548, .00462,
2095 + -.00046, .02605, .05363,
2096 + .53142, .23484, .43315, .03465, .00506,
2097 + .00023, .02556, .05179 /
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 + .52229, .22929, .40523, .03381, .00542,
2100 + .00083, .02503, .05001,
2101 + .51461, .22476, .38358, .03312, .00568,
2102 + .00127, .02457, .04853,
2103 + .50524, .21929, .35903, .03224, .00594,
2104 + .00173, .02401, .04681,
2105 + .49696, .21454, .33885, .03147, .00611,
2106 + .00208, .02349, .04535,
2107 + .48937, .21026, .32149, .03077, .00624,
2108 + .00236, .02302, .04404,
2109 + .47967, .20493, .30087, .02989, .00636,
2110 + .00267, .02241, .04238,
2111 + .47061, .20001, .28291, .02907, .00644,
2112 + .00292, .02183, .04092,
2113 + .46222, .19548, .26727, .02831, .00650,
2114 + .00312, .02131, .03959 /
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 + .45379, .19105, .25261, .02755, .00652,
2117 + .00328, .02077, .03829,
2118 + .44563, .18680, .23922, .02684, .00653,
2119 + .00341, .02025, .03705,
2120 + .43801, .18284, .22732, .02618, .00652,
2121 + .00352, .01977, .03592,
2122 + .43082, .17917, .21674, .02557, .00650,
2123 + .00361, .01931, .03489,
2124 + .42371, .17557, .20674, .02496, .00647,
2125 + .00367, .01886, .03388,
2126 + .41675, .17207, .19740, .02436, .00643,
2127 + .00373, .01843, .03292,
2128 + .41026, .16882, .18903, .02381, .00639,
2129 + .00377, .01802, .03203,
2130 + .40410, .16576, .18150, .02328, .00634,
2131 + .00380, .01764, .03122 /
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 + .39800, .16276, .17430, .02278, .00628,
2134 + .00382, .01725, .03041,
2135 + .39202, .15984, .16752, .02228, .00622,
2136 + .00384, .01689, .02963,
2137 + .38637, .15711, .16136, .02181, .00617,
2138 + .00385, .01655, .02890,
2139 + .38108, .15455, .15576, .02138, .00611,
2140 + .00386, .01623, .02824,
2141 + .37572, .15199, .15032, .02096, .00605,
2142 + .00385, .01590, .02758 /
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 + .62544, .30117, .81557, .03435, .00000,
2145 + .00000, .02148, .06567,
2146 + .62343, .29693, .77820, .03431, .00000,
2147 + .00000, .02188, .06383,
2148 + .61830, .29019, .73639, .03414, -.00634,
2149 + .00000, .02230, .06125,
2150 + .61327, .28500, .69516, .03393, -.00474,
2151 + .00000, .02250, .05939,
2152 + .60707, .27936, .65386, .03363, -.00342,
2153 + .00000, .02259, .05748,
2154 + .60110, .27446, .61979, .03331, -.00240,
2155 + .00000, .02261, .05584,
2156 + .59502, .26970, .58872, .03295, -.00151,
2157 + .00000, .02256, .05432,
2158 + .58823, .26463, .55743, .03251, -.00065,
2159 + .00000, .02244, .05278 /
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 + .58202, .26019, .53139, .03210, .00000,
2162 + .00000, .02232, .05144,
2163 + .57578, .25595, .50739, .03170, .00057,
2164 + .00000, .02215, .05015,
2165 + .57073, .25264, .48923, .03139, .00098,
2166 + .00000, .02200, .04915,
2167 + .55969, .24551, .45300, .03060, .00176,
2168 + .00000, .02166, .04710,
2169 + .54984, .23939, .42620, .02991, .00233,
2170 + -.00203, .02130, .04539,
2171 + .53859, .23267, .39359, .02914, .00285,
2172 + -.00119, .02085, .04352,
2173 + .52676, .22580, .36265, .02831, .00330,
2174 + -.00050, .02035, .04165,
2175 + .51600, .21970, .33695, .02754, .00362,
2176 + .00002, .01987, .04001 /
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 + .50515, .21370, .31307, .02675, .00390,
2179 + .00049, .01938, .03841,
2180 + .49615, .20877, .29473, .02609, .00408,
2181 + .00081, .01895, .03713,
2182 + .48525, .20295, .27409, .02531, .00425,
2183 + .00115, .01843, .03566,
2184 + .47572, .19792, .25724, .02462, .00438,
2185 + .00142, .01795, .03440,
2186 + .46708, .19339, .24286, .02398, .00447,
2187 + .00163, .01752, .03328,
2188 + .45615, .18776, .22595, .02321, .00455,
2189 + .00185, .01698, .03190,
2190 + .44602, .18262, .21135, .02248, .00461,
2191 + .00203, .01649, .03065,
2192 + .43667, .17795, .19870, .02183, .00463,
2193 + .00217, .01603, .02954 /
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 + .42735, .17340, .18693, .02120, .00464,
2196 + .00228, .01556, .02843,
2197 + .41844, .16902, .17624, .02057, .00463,
2198 + .00237, .01511, .02741,
2199 + .41017, .16494, .16681, .01998, .00461,
2200 + .00244, .01471, .02651,
2201 + .40242, .16121, .15848, .01943, .00459,
2202 + .00250, .01432, .02567,
2203 + .39479, .15759, .15059, .01891, .00456,
2204 + .00255, .01395, .02485,
2205 + .38732, .15406, .14333, .01841, .00452,
2206 + .00258, .01359, .02406,
2207 + .38039, .15081, .13685, .01794, .00448,
2208 + .00260, .01324, .02335,
2209 + .37386, .14776, .13102, .01751, .00444,
2210 + .00262, .01292, .02270 /
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 + .36740, .14475, .12545, .01709, .00440,
2213 + .00264, .01262, .02205,
2214 + .36109, .14185, .12024, .01669, .00434,
2215 + .00264, .01232, .02144,
2216 + .35514, .13914, .11553, .01630, .00430,
2217 + .00264, .01204, .02087,
2218 + .34961, .13662, .11127, .01595, .00425,
2219 + .00264, .01179, .02034,
2220 + .34407, .13409, .10716, .01557, .00420,
2221 + .00264, .01152, .01982 /
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 + .63854, .29627, .70726, .02857, .00000,
2224 + .00000, .01760, .05403,
2225 + .63340, .29078, .66913, .02857, .00000,
2226 + .00000, .01787, .05217,
2227 + .62403, .28233, .62597, .02839, -.00564,
2228 + .00000, .01812, .04962,
2229 + .61604, .27610, .58585, .02817, -.00427,
2230 + .00000, .01820, .04785,
2231 + .60703, .26939, .54620, .02782, -.00313,
2232 + .00000, .01821, .04606,
2233 + .59872, .26364, .51400, .02749, -.00228,
2234 + .00000, .01814, .04455,
2235 + .59053, .25814, .48493, .02713, -.00153,
2236 + .00000, .01803, .04314,
2237 + .58159, .25236, .45590, .02669, -.00082,
2238 + .00000, .01788, .04170 /
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 + .57358, .24737, .43208, .02629, -.00029,
2241 + .00000, .01772, .04047,
2242 + .56575, .24262, .41030, .02590, .00018,
2243 + .00000, .01753, .03928,
2244 + .55952, .23890, .39392, .02559, .00052,
2245 + .00000, .01739, .03837,
2246 + .54605, .23105, .36145, .02486, .00115,
2247 + .00000, .01699, .03657,
2248 + .53423, .22442, .33764, .02421, .00159,
2249 + -.00168, .01664, .03505,
2250 + .52103, .21719, .30926, .02347, .00200,
2251 + -.00103, .01620, .03345,
2252 + .50737, .20986, .28264, .02269, .00234,
2253 + -.00050, .01571, .03183,
2254 + .49507, .20340, .26074, .02196, .00259,
2255 + -.00009, .01529, .03046 /
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 + .48281, .19706, .24063, .02124, .00279,
2258 + .00026, .01484, .02911,
2259 + .47275, .19193, .22522, .02065, .00293,
2260 + .00051, .01447, .02803,
2261 + .46065, .18588, .20812, .01994, .00306,
2262 + .00077, .01401, .02676,
2263 + .45015, .18069, .19427, .01933, .00315,
2264 + .00097, .01361, .02571,
2265 + .44067, .17605, .18255, .01879, .00321,
2266 + .00112, .01326, .02478,
2267 + .42884, .17032, .16884, .01807, .00327,
2268 + .00129, .01277, .02367,
2269 + .41791, .16512, .15709, .01745, .00329,
2270 + .00141, .01234, .02265,
2271 + .40789, .16043, .14698, .01690, .00331,
2272 + .00151, .01196, .02173 /
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 + .39804, .15582, .13766, .01633, .00330,
2275 + .00158, .01157, .02085,
2276 + .38859, .15145, .12923, .01580, .00329,
2277 + .00165, .01120, .02003,
2278 + .37983, .14746, .12180, .01531, .00327,
2279 + .00170, .01087, .01929,
2280 + .37171, .14377, .11530, .01488, .00325,
2281 + .00174, .01056, .01862,
2282 + .36376, .14017, .10920, .01446, .00322,
2283 + .00177, .01025, .01797,
2284 + .35603, .13669, .10361, .01401, .00319,
2285 + .00179, .00995, .01737,
2286 + .34888, .13348, .09864, .01360, .00316,
2287 + .00181, .00968, .01682,
2288 + .34215, .13053, .09416, .01324, .00312,
2289 + .00182, .00943, .01630 /
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 + .33553, .12763, .08991, .01290, .00309,
2292 + .00183, .00918, .01579,
2293 + .32909, .12480, .08597, .01256, .00305,
2294 + .00183, .00894, .01530,
2295 + .32306, .12217, .08241, .01226, .00300,
2296 + .00182, .00872, .01484,
2297 + .31746, .11972, .07920, .01196, .00297,
2298 + .00183, .00851, .01444,
2299 + .31182, .11730, .07611, .01167, .00293,
2300 + .00182, .00831, .01405 /
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 + .64381, .28939, .60888, .02475, .00000,
2303 + .00000, .01364, .04278,
2304 + .63577, .28256, .57097, .02455, .00000,
2305 + .00000, .01388, .04128,
2306 + .62232, .27250, .52782, .02425, -.00497,
2307 + .00000, .01416, .03899,
2308 + .61170, .26514, .48961, .02389, -.00379,
2309 + .00000, .01424, .03747,
2310 + .60004, .25745, .45239, .02345, -.00282,
2311 + .00000, .01425, .03592,
2312 + .58961, .25097, .42252, .02307, -.00209,
2313 + .00000, .01422, .03457,
2314 + .57944, .24486, .39582, .02268, -.00146,
2315 + .00000, .01411, .03336,
2316 + .56856, .23847, .36947, .02224, -.00088,
2317 + .00000, .01395, .03212 /
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 + .55906, .23300, .34802, .02180, -.00044,
2320 + .00000, .01380, .03108,
2321 + .54983, .22782, .32857, .02136, -.00006,
2322 + .00000, .01362, .03014,
2323 + .54254, .22378, .31408, .02102, .00021,
2324 + .00000, .01347, .02940,
2325 + .52696, .21540, .28551, .02030, .00071,
2326 + .00000, .01313, .02785,
2327 + .51353, .20842, .26477, .01970, .00107,
2328 + -.00138, .01281, .02656,
2329 + .49871, .20081, .24052, .01896, .00139,
2330 + -.00087, .01244, .02522,
2331 + .48352, .19318, .21793, .01822, .00165,
2332 + -.00046, .01202, .02391,
2333 + .46999, .18652, .19953, .01758, .00185,
2334 + -.00014, .01164, .02274 /
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 + .45663, .18005, .18281, .01694, .00200,
2337 + .00013, .01124, .02163,
2338 + .44572, .17481, .17018, .01641, .00210,
2339 + .00032, .01092, .02079,
2340 + .43276, .16868, .15622, .01577, .00220,
2341 + .00051, .01054, .01976,
2342 + .42159, .16346, .14500, .01522, .00226,
2343 + .00065, .01021, .01890,
2344 + .41155, .15884, .13559, .01473, .00230,
2345 + .00077, .00989, .01817,
2346 + .39899, .15316, .12463, .01417, .00233,
2347 + .00089, .00950, .01726,
2348 + .38757, .14798, .11534, .01360, .00235,
2349 + .00098, .00916, .01647,
2350 + .37723, .14331, .10741, .01307, .00236,
2351 + .00106, .00884, .01578 /
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 + .36703, .13879, .10012, .01260, .00235,
2354 + .00111, .00854, .01507,
2355 + .35733, .13453, .09359, .01215, .00234,
2356 + .00116, .00824, .01443,
2357 + .34837, .13062, .08790, .01172, .00232,
2358 + .00119, .00795, .01387,
2359 + .34005, .12706, .08291, .01137, .00230,
2360 + .00122, .00771, .01336,
2361 + .33193, .12360, .07826, .01102, .00227,
2362 + .00123, .00746, .01284,
2363 + .32410, .12026, .07401, .01067, .00224,
2364 + .00124, .00723, .01235,
2365 + .31690, .11719, .07022, .01034, .00222,
2366 + .00125, .00701, .01192,
2367 + .31016, .11435, .06689, .01004, .00219,
2368 + .00126, .00682, .01151 /
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 + .30354, .11156, .06370, .00976, .00217,
2371 + .00127, .00663, .01112,
2372 + .29711, .10887, .06076, .00948, .00213,
2373 + .00127, .00645, .01077,
2374 + .29113, .10636, .05812, .00922, .00210,
2375 + .00126, .00626, .01044,
2376 + .28556, .10406, .05575, .00897, .00207,
2377 + .00126, .00609, .01014,
2378 + .27998, .10176, .05348, .00874, .00204,
2379 + .00125, .00594, .00984 /
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 + .64372, .27876, .51765, .02066, .00000,
2382 + .00000, .01080, .03356,
2383 + .63253, .27098, .48110, .02050, .00000,
2384 + .00000, .01104, .03217,
2385 + .61498, .25957, .43952, .02012, -.00432,
2386 + .00000, .01123, .03027,
2387 + .60163, .25151, .40399, .01980, -.00332,
2388 + .00000, .01127, .02894,
2389 + .58736, .24315, .36975, .01939, -.00250,
2390 + .00000, .01121, .02765,
2391 + .57495, .23606, .34267, .01896, -.00188,
2392 + .00000, .01112, .02658,
2393 + .56302, .22949, .31868, .01857, -.00136,
2394 + .00000, .01103, .02555,
2395 + .55038, .22271, .29525, .01815, -.00088,
2396 + .00000, .01090, .02448 /
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 + .53940, .21698, .27635, .01777, -.00052,
2399 + .00000, .01074, .02360,
2400 + .52891, .21155, .25941, .01737, -.00021,
2401 + .00000, .01056, .02277,
2402 + .52071, .20732, .24681, .01705, .00002,
2403 + .00000, .01043, .02215,
2404 + .50332, .19863, .22229, .01639, .00041,
2405 + .00000, .01014, .02089,
2406 + .48861, .19137, .20450, .01579, .00070,
2407 + -.00113, .00986, .01984,
2408 + .47249, .18362, .18411, .01516, .00094,
2409 + -.00073, .00952, .01874,
2410 + .45610, .17591, .16536, .01452, .00115,
2411 + -.00041, .00914, .01769,
2412 + .44168, .16919, .15027, .01391, .00130,
2413 + -.00017, .00880, .01680 /
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 + .42757, .16269, .13666, .01331, .00142,
2416 + .00004, .00848, .01591,
2417 + .41605, .15757, .12648, .01284, .00149,
2418 + .00018, .00821, .01519,
2419 + .40246, .15150, .11528, .01233, .00156,
2420 + .00033, .00788, .01439,
2421 + .39082, .14636, .10637, .01187, .00160,
2422 + .00043, .00760, .01372,
2423 + .38048, .14180, .09894, .01142, .00164,
2424 + .00053, .00736, .01314,
2425 + .36762, .13624, .09040, .01090, .00165,
2426 + .00060, .00704, .01245,
2427 + .35593, .13126, .08319, .01046, .00166,
2428 + .00067, .00676, .01183,
2429 + .34536, .12677, .07708, .01006, .00167,
2430 + .00073, .00650, .01125 /
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 + .33501, .12241, .07151, .00967, .00166,
2433 + .00077, .00625, .01074,
2434 + .32524, .11832, .06655, .00929, .00165,
2435 + .00080, .00602, .01026,
2436 + .31628, .11459, .06225, .00893, .00163,
2437 + .00082, .00579, .00983,
2438 + .30802, .11119, .05852, .00861, .00161,
2439 + .00084, .00559, .00942,
2440 + .29997, .10789, .05506, .00831, .00160,
2441 + .00085, .00541, .00903,
2442 + .29222, .10473, .05190, .00804, .00158,
2443 + .00086, .00522, .00868,
2444 + .28507, .10184, .04911, .00778, .00155,
2445 + .00087, .00506, .00835,
2446 + .27844, .09916, .04666, .00753, .00153,
2447 + .00087, .00490, .00806 /
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 + .27195, .09655, .04432, .00729, .00151,
2450 + .00088, .00475, .00777,
2451 + .26566, .09405, .04220, .00706, .00149,
2452 + .00088, .00461, .00749,
2453 + .25978, .09173, .04027, .00687, .00145,
2454 + .00086, .00447, .00724,
2455 + .25434, .08959, .03855, .00668, .00143,
2456 + .00086, .00434, .00702,
2457 + .24894, .08745, .03691, .00649, .00141,
2458 + .00086, .00423, .00680 /
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 + .63712, .26637, .43346, .01746, .00000,
2461 + .00000, .00826, .02550,
2462 + .62304, .25767, .39910, .01723, .00000,
2463 + .00000, .00847, .02443,
2464 + .60166, .24525, .35997, .01685, -.00371,
2465 + .00000, .00863, .02288,
2466 + .58601, .23643, .32766, .01645, -.00287,
2467 + .00000, .00869, .02185,
2468 + .56938, .22760, .29694, .01607, -.00216,
2469 + .00000, .00868, .02072,
2470 + .55511, .22018, .27295, .01569, -.00166,
2471 + .00000, .00859, .01985,
2472 + .54165, .21328, .25189, .01527, -.00123,
2473 + .00000, .00849, .01905,
2474 + .52758, .20619, .23145, .01483, -.00082,
2475 + .00000, .00836, .01822 /
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 + .51551, .20022, .21522, .01443, -.00054,
2478 + .00000, .00825, .01750,
2479 + .50396, .19463, .20072, .01406, -.00028,
2480 + .00000, .00810, .01688,
2481 + .49496, .19034, .19002, .01379, -.00010,
2482 + .00000, .00794, .01643,
2483 + .47621, .18150, .16941, .01314, .00022,
2484 + .00000, .00768, .01540,
2485 + .46042, .17426, .15459, .01265, .00043,
2486 + -.00091, .00744, .01456,
2487 + .44332, .16650, .13781, .01208, .00063,
2488 + -.00060, .00715, .01371,
2489 + .42617, .15882, .12261, .01147, .00079,
2490 + -.00035, .00688, .01286,
2491 + .41114, .15218, .11049, .01095, .00090,
2492 + -.00016, .00661, .01214 /
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 + .39647, .14582, .09966, .01045, .00099,
2495 + -.00001, .00633, .01147,
2496 + .38461, .14076, .09161, .01007, .00105,
2497 + .00010, .00612, .01094,
2498 + .37078, .13488, .08293, .00956, .00110,
2499 + .00021, .00584, .01033,
2500 + .35898, .12991, .07604, .00916, .00113,
2501 + .00029, .00560, .00981,
2502 + .34849, .12552, .07030, .00882, .00115,
2503 + .00035, .00540, .00936,
2504 + .33552, .12021, .06381, .00839, .00117,
2505 + .00042, .00516, .00883,
2506 + .32382, .11542, .05837, .00802, .00117,
2507 + .00046, .00494, .00836,
2508 + .31330, .11113, .05380, .00768, .00117,
2509 + .00050, .00473, .00793 /
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 + .30307, .10702, .04967, .00733, .00116,
2512 + .00053, .00453, .00754,
2513 + .29344, .10316, .04601, .00702, .00115,
2514 + .00055, .00433, .00719,
2515 + .28461, .09967, .04287, .00674, .00114,
2516 + .00057, .00416, .00686,
2517 + .27650, .09647, .04014, .00649, .00113,
2518 + .00058, .00402, .00656,
2519 + .26863, .09340, .03763, .00626, .00111,
2520 + .00059, .00387, .00627,
2521 + .26109, .09047, .03537, .00601, .00109,
2522 + .00059, .00374, .00601,
2523 + .25418, .08778, .03339, .00578, .00107,
2524 + .00059, .00360, .00578,
2525 + .24773, .08531, .03163, .00559, .00106,
2526 + .00059, .00348, .00557 /
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 + .24143, .08290, .02998, .00543, .00104,
2529 + .00059, .00337, .00536,
2530 + .23538, .08060, .02845, .00525, .00103,
2531 + .00060, .00326, .00516,
2532 + .22976, .07845, .02712, .00508, .00101,
2533 + .00060, .00315, .00499,
2534 + .22458, .07648, .02591, .00493, .00099,
2535 + .00059, .00307, .00481,
2536 + .21943, .07455, .02475, .00478, .00098,
2537 + .00059, .00297, .00465 /
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 + .62490, .25199, .35548, .01457, .00000,
2540 + .00000, .00622, .01896,
2541 + .60811, .24261, .32406, .01435, .00000,
2542 + .00000, .00644, .01810,
2543 + .58332, .22931, .28844, .01386, -.00315,
2544 + .00000, .00661, .01695,
2545 + .56544, .22020, .25967, .01352, -.00244,
2546 + .00000, .00663, .01615,
2547 + .54685, .21097, .23285, .01311, -.00185,
2548 + .00000, .00663, .01529,
2549 + .53117, .20330, .21209, .01270, -.00143,
2550 + .00000, .00656, .01462,
2551 + .51639, .19624, .19403, .01233, -.00107,
2552 + .00000, .00648, .01400,
2553 + .50107, .18907, .17678, .01192, -.00075,
2554 + .00000, .00635, .01336 /
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 + .48800, .18301, .16315, .01162, -.00051,
2557 + .00000, .00622, .01284,
2558 + .47567, .17740, .15115, .01127, -.00031,
2559 + .00000, .00610, .01232,
2560 + .46615, .17312, .14233, .01101, -.00016,
2561 + .00000, .00601, .01190,
2562 + .44636, .16429, .12546, .01046, .00008,
2563 + .00000, .00581, .01109,
2564 + .42995, .15709, .11341, .00998, .00026,
2565 + -.00072, .00559, .01048,
2566 + .41225, .14948, .09998, .00945, .00041,
2567 + -.00048, .00536, .00985,
2568 + .39457, .14201, .08796, .00893, .00053,
2569 + -.00029, .00511, .00922,
2570 + .37916, .13561, .07851, .00851, .00062,
2571 + -.00015, .00489, .00866 /
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 + .36424, .12948, .07016, .00811, .00068,
2574 + -.00003, .00467, .00811,
2575 + .35236, .12461, .06402, .00776, .00072,
2576 + .00005, .00449, .00773,
2577 + .33846, .11897, .05742, .00738, .00076,
2578 + .00012, .00428, .00728,
2579 + .32663, .11424, .05230, .00705, .00079,
2580 + .00019, .00409, .00689,
2581 + .31617, .11010, .04805, .00675, .00080,
2582 + .00024, .00393, .00656,
2583 + .30347, .10506, .04329, .00636, .00081,
2584 + .00028, .00372, .00616,
2585 + .29197, .10056, .03933, .00605, .00081,
2586 + .00031, .00354, .00583,
2587 + .28160, .09656, .03603, .00578, .00081,
2588 + .00033, .00340, .00552 /
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 + .27164, .09274, .03307, .00553, .00080,
2591 + .00035, .00325, .00521,
2592 + .26228, .08915, .03046, .00527, .00080,
2593 + .00037, .00312, .00495,
2594 + .25374, .08591, .02824, .00502, .00080,
2595 + .00039, .00298, .00473,
2596 + .24594, .08296, .02637, .00482, .00078,
2597 + .00040, .00286, .00452,
2598 + .23837, .08012, .02463, .00463, .00077,
2599 + .00040, .00274, .00431,
2600 + .23115, .07743, .02307, .00445, .00076,
2601 + .00041, .00263, .00411,
2602 + .22455, .07498, .02171, .00427, .00075,
2603 + .00041, .00254, .00394,
2604 + .21843, .07272, .02051, .00412, .00073,
2605 + .00040, .00245, .00379 /
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 + .21247, .07052, .01939, .00397, .00072,
2608 + .00041, .00236, .00364,
2609 + .20673, .06842, .01837, .00384, .00070,
2610 + .00040, .00228, .00350,
2611 + .20143, .06648, .01747, .00372, .00070,
2612 + .00040, .00220, .00335,
2613 + .19652, .06471, .01667, .00362, .00068,
2614 + .00040, .00214, .00323,
2615 + .19169, .06295, .01592, .00350, .00067,
2616 + .00040, .00207, .00312 /
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 + .60738, .23602, .28361, .01185, .00000,
2619 + .00000, .00473, .01383,
2620 + .58819, .22618, .25567, .01156, .00000,
2621 + .00000, .00493, .01326,
2622 + .56040, .21240, .22435, .01113, -.00262,
2623 + .00000, .00506, .01235,
2624 + .54056, .20309, .19964, .01089, -.00204,
2625 + .00000, .00510, .01167,
2626 + .52037, .19364, .17677, .01050, -.00155,
2627 + .00000, .00506, .01109,
2628 + .50348, .18593, .15934, .01013, -.00120,
2629 + .00000, .00501, .01057,
2630 + .48770, .17886, .14442, .00980, -.00092,
2631 + .00000, .00493, .01005,
2632 + .47144, .17171, .13017, .00948, -.00066,
2633 + .00000, .00485, .00954 /
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 + .45776, .16569, .11914, .00910, -.00046,
2636 + .00000, .00472, .00919,
2637 + .44492, .16012, .10945, .00880, -.00031,
2638 + .00000, .00463, .00883,
2639 + .43502, .15586, .10243, .00855, -.00020,
2640 + .00000, .00456, .00854,
2641 + .41448, .14727, .08906, .00814, .00000,
2642 + .00000, .00433, .00795,
2643 + .39768, .14030, .07965, .00772, .00014,
2644 + -.00056, .00419, .00746,
2645 + .37971, .13296, .06932, .00727, .00025,
2646 + -.00039, .00400, .00696,
2647 + .36188, .12580, .06015, .00684, .00035,
2648 + -.00025, .00379, .00648,
2649 + .34646, .11967, .05304, .00648, .00041,
2650 + -.00014, .00360, .00608 /
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 + .33166, .11383, .04687, .00610, .00047,
2653 + -.00005, .00341, .00572,
2654 + .31986, .10924, .04238, .00583, .00050,
2655 + .00001, .00328, .00540,
2656 + .30613, .10393, .03761, .00552, .00052,
2657 + .00007, .00312, .00507,
2658 + .29453, .09949, .03390, .00525, .00054,
2659 + .00012, .00298, .00481,
2660 + .28433, .09562, .03091, .00500, .00055,
2661 + .00016, .00285, .00456,
2662 + .27190, .09095, .02755, .00473, .00055,
2663 + .00019, .00270, .00426,
2664 + .26079, .08678, .02481, .00448, .00056,
2665 + .00021, .00255, .00401,
2666 + .25085, .08308, .02258, .00424, .00056,
2667 + .00023, .00245, .00377 /
2668 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
2669 + .24122, .07958, .02058, .00406, .00056,
2670 + .00026, .00232, .00356,
2671 + .23225, .07631, .01885, .00387, .00055,
2672 + .00026, .00221, .00337,
2673 + .22412, .07333, .01739, .00369, .00054,
2674 + .00027, .00212, .00320,
2675 + .21671, .07064, .01615, .00353, .00054,
2676 + .00028, .00203, .00305,
2677 + .20956, .06807, .01502, .00338, .00053,
2678 + .00029, .00194, .00293,
2679 + .20276, .06563, .01400, .00323, .00052,
2680 + .00028, .00186, .00279,
2681 + .19655, .06342, .01313, .00310, .00051,
2682 + .00029, .00178, .00267,
2683 + .19081, .06139, .01238, .00298, .00050,
2684 + .00028, .00172, .00254 /
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 + .18523, .05942, .01169, .00286, .00049,
2687 + .00029, .00164, .00243,
2688 + .17989, .05754, .01106, .00276, .00048,
2689 + .00028, .00159, .00233,
2690 + .17495, .05582, .01048, .00266, .00048,
2691 + .00029, .00155, .00224,
2692 + .17042, .05423, .00998, .00258, .00047,
2693 + .00029, .00149, .00215,
2694 + .16593, .05267, .00953, .00247, .00046,
2695 + .00028, .00144, .00208 /
2696 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
2697 + .58486, .21944, .21815, .00978, .00000,
2698 + .00000, .00338, .00964,
2699 + .56360, .20927, .19416, .00955, .00000,
2700 + .00000, .00356, .00921,
2701 + .53326, .19524, .16755, .00907, -.00215,
2702 + .00000, .00367, .00869,
2703 + .51222, .18573, .14697, .00870, -.00167,
2704 + .00000, .00371, .00828,
2705 + .49078, .17632, .12815, .00837, -.00127,
2706 + .00000, .00371, .00782,
2707 + .47293, .16867, .11412, .00806, -.00100,
2708 + .00000, .00368, .00742,
2709 + .45646, .16165, .10216, .00775, -.00077,
2710 + .00000, .00362, .00710,
2711 + .43963, .15458, .09097, .00741, -.00056,
2712 + .00000, .00354, .00678 /
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 + .42541, .14879, .08231, .00718, -.00040,
2715 + .00000, .00348, .00643,
2716 + .41220, .14343, .07483, .00692, -.00028,
2717 + .00000, .00341, .00615,
2718 + .40212, .13932, .06942, .00672, -.00019,
2719 + .00000, .00335, .00593,
2720 + .38139, .13094, .05939, .00630, -.00004,
2721 + .00000, .00317, .00548,
2722 + .36457, .12426, .05238, .00591, .00006,
2723 + -.00044, .00302, .00520,
2724 + .34654, .11730, .04471, .00557, .00016,
2725 + -.00030, .00288, .00485,
2726 + .32887, .11050, .03808, .00522, .00023,
2727 + -.00019, .00273, .00448,
2728 + .31373, .10471, .03302, .00490, .00027,
2729 + -.00011, .00260, .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 + .29918, .09924, .02867, .00462, .00031,
2732 + -.00005, .00247, .00390,
2733 + .28766, .09496, .02555, .00440, .00033,
2734 + -.00001, .00234, .00370,
2735 + .27437, .09004, .02232, .00414, .00036,
2736 + .00004, .00220, .00345,
2737 + .26318, .08593, .01983, .00393, .00037,
2738 + .00007, .00210, .00325,
2739 + .25335, .08236, .01786, .00374, .00038,
2740 + .00010, .00201, .00308,
2741 + .24143, .07806, .01572, .00353, .00038,
2742 + .00012, .00189, .00286,
2743 + .23080, .07426, .01399, .00332, .00038,
2744 + .00013, .00180, .00267,
2745 + .22135, .07091, .01255, .00315, .00039,
2746 + .00015, .00171, .00254 /
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 + .21236, .06769, .01133, .00295, .00038,
2749 + .00016, .00162, .00241,
2750 + .20391, .06472, .01029, .00280, .00038,
2751 + .00017, .00153, .00227,
2752 + .19620, .06208, .00940, .00269, .00038,
2753 + .00018, .00145, .00215,
2754 + .18928, .05968, .00868, .00256, .00037,
2755 + .00018, .00140, .00203,
2756 + .18264, .05737, .00802, .00244, .00037,
2757 + .00019, .00135, .00192,
2758 + .17630, .05518, .00745, .00232, .00036,
2759 + .00019, .00129, .00183,
2760 + .17053, .05320, .00696, .00221, .00036,
2761 + .00020, .00123, .00176,
2762 + .16522, .05140, .00653, .00214, .00035,
2763 + .00020, .00118, .00168 /
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 + .16005, .04965, .00615, .00206, .00034,
2766 + .00020, .00114, .00160,
2767 + .15512, .04801, .00581, .00198, .00034,
2768 + .00021, .00108, .00153,
2769 + .15056, .04649, .00551, .00190, .00034,
2770 + .00021, .00103, .00146,
2771 + .14640, .04509, .00524, .00184, .00033,
2772 + .00021, .00100, .00141,
2773 + .14229, .04373, .00499, .00178, .00032,
2774 + .00021, .00097, .00135 /
2775 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
2776 + .55833, .20183, .15903, .00780, .00000,
2777 + .00000, .00235, .00672,
2778 + .53531, .19167, .13940, .00762, .00000,
2779 + .00000, .00247, .00636,
2780 + .50302, .17772, .11785, .00724, -.00174,
2781 + .00000, .00263, .00594,
2782 + .48089, .16838, .10132, .00697, -.00134,
2783 + .00000, .00266, .00562,
2784 + .45853, .15918, .08666, .00665, -.00103,
2785 + .00000, .00264, .00533,
2786 + .44022, .15164, .07574, .00638, -.00081,
2787 + .00000, .00260, .00509,
2788 + .42334, .14484, .06665, .00613, -.00063,
2789 + .00000, .00256, .00483,
2790 + .40617, .13803, .05829, .00586, -.00046,
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 + .39192, .13241, .05193, .00559, -.00035,
2794 + .00000, .00245, .00434,
2795 + .37866, .12725, .04650, .00536, -.00025,
2796 + .00000, .00238, .00414,
2797 + .36854, .12332, .04262, .00518, -.00018,
2798 + .00000, .00231, .00400,
2799 + .34780, .11543, .03537, .00489, -.00006,
2800 + .00000, .00222, .00371,
2801 + .33103, .10915, .03050, .00464, .00003,
2802 + -.00033, .00212, .00346,
2803 + .31346, .10257, .02519, .00431, .00010,
2804 + -.00023, .00200, .00321,
2805 + .29623, .09623, .02074, .00398, .00015,
2806 + -.00016, .00188, .00297,
2807 + .28147, .09087, .01740, .00373, .00018,
2808 + -.00010, .00179, .00278 /
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 + .26747, .08583, .01458, .00350, .00022,
2811 + -.00005, .00169, .00259,
2812 + .25637, .08187, .01268, .00332, .00023,
2813 + -.00002, .00161, .00244,
2814 + .24361, .07736, .01069, .00313, .00026,
2815 + .00002, .00151, .00226,
2816 + .23297, .07362, .00923, .00296, .00026,
2817 + .00003, .00142, .00212,
2818 + .22369, .07037, .00808, .00280, .00027,
2819 + .00005, .00136, .00200,
2820 + .21241, .06650, .00686, .00265, .00027,
2821 + .00006, .00127, .00186,
2822 + .20243, .06307, .00592, .00249, .00027,
2823 + .00007, .00120, .00174,
2824 + .19362, .06003, .00519, .00231, .00028,
2825 + .00008, .00113, .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 + .18518, .05715, .00455, .00219, .00028,
2828 + .00009, .00108, .00154,
2829 + .17734, .05450, .00404, .00206, .00028,
2830 + .00010, .00103, .00146,
2831 + .17023, .05211, .00363, .00196, .00027,
2832 + .00010, .00097, .00138,
2833 + .16381, .04998, .00328, .00188, .00028,
2834 + .00011, .00092, .00131,
2835 + .15765, .04794, .00297, .00181, .00027,
2836 + .00011, .00090, .00124,
2837 + .15185, .04601, .00273, .00170, .00028,
2838 + .00012, .00085, .00117,
2839 + .14658, .04428, .00252, .00161, .00027,
2840 + .00012, .00082, .00112,
2841 + .14172, .04269, .00237, .00155, .00026,
2842 + .00012, .00077, .00106 /
2843 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
2844 + .13702, .04118, .00222, .00150, .00026,
2845 + .00012, .00074, .00100,
2846 + .13255, .03971, .00208, .00144, .00026,
2847 + .00013, .00072, .00097,
2848 + .12844, .03838, .00197, .00138, .00026,
2849 + .00013, .00068, .00092,
2850 + .12466, .03717, .00188, .00133, .00026,
2851 + .00013, .00066, .00089,
2852 + .12096, .03597, .00179, .00128, .00025,
2853 + .00013, .00063, .00085 /
2854 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
2855 + .52787, .18385, .10688, .00603, .00000,
2856 + .00000, .00172, .00440,
2857 + .50356, .17381, .09145, .00588, .00000,
2858 + .00000, .00183, .00426,
2859 + .46993, .16009, .07498, .00556, -.00137,
2860 + .00000, .00194, .00401,
2861 + .44706, .15098, .06261, .00533, -.00107,
2862 + .00000, .00191, .00385,
2863 + .42440, .14199, .05165, .00508, -.00081,
2864 + .00000, .00194, .00365,
2865 + .40579, .13479, .04380, .00484, -.00065,
2866 + .00000, .00190, .00348,
2867 + .38883, .12831, .03738, .00459, -.00050,
2868 + .00000, .00186, .00330,
2869 + .37174, .12183, .03158, .00435, -.00038,
2870 + .00000, .00183, .00309 /
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 + .35748, .11652, .02720, .00420, -.00029,
2873 + .00000, .00178, .00295,
2874 + .34428, .11162, .02358, .00404, -.00021,
2875 + .00000, .00174, .00280,
2876 + .33427, .10793, .02105, .00393, -.00016,
2877 + .00000, .00170, .00268,
2878 + .31404, .10055, .01651, .00357, -.00007,
2879 + .00000, .00158, .00254,
2880 + .29776, .09471, .01342, .00334, -.00001,
2881 + -.00025, .00150, .00238,
2882 + .28066, .08863, .01016, .00311, .00004,
2883 + -.00018, .00142, .00218,
2884 + .26408, .08279, .00750, .00286, .00008,
2885 + -.00012, .00135, .00200,
2886 + .24998, .07787, .00562, .00268, .00011,
2887 + -.00008, .00128, .00186 /
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 + .23658, .07327, .00410, .00253, .00014,
2890 + -.00005, .00119, .00172,
2891 + .22609, .06972, .00307, .00240, .00016,
2892 + -.00002, .00112, .00162,
2893 + .21413, .06564, .00212, .00223, .00017,
2894 + -.00001, .00106, .00148,
2895 + .20414, .06224, .00147, .00208, .00019,
2896 + .00001, .00101, .00139,
2897 + .19541, .05934, .00095, .00197, .00020,
2898 + .00002, .00096, .00133,
2899 + .18495, .05584, .00050, .00182, .00021,
2900 + .00003, .00090, .00125,
2901 + .17570, .05278, .00017, .00170, .00022,
2902 + .00004, .00084, .00116,
2903 + .16755, .05013, -.00009, .00162, .00022,
2904 + .00004, .00079, .00107 /
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 + .15976, .04759, -.00025, .00151, .00022,
2907 + .00005, .00074, .00102,
2908 + .15255, .04524, -.00036, .00142, .00022,
2909 + .00005, .00071, .00096,
2910 + .14610, .04316, -.00045, .00135, .00023,
2911 + .00006, .00068, .00091,
2912 + .14025, .04130, -.00049, .00127, .00022,
2913 + .00006, .00064, .00087,
2914 + .13465, .03952, -.00051, .00121, .00022,
2915 + .00006, .00060, .00082,
2916 + .12938, .03785, -.00051, .00114, .00023,
2917 + .00007, .00057, .00076,
2918 + .12459, .03634, -.00050, .00110, .00022,
2919 + .00007, .00055, .00071,
2920 + .12022, .03497, -.00048, .00105, .00022,
2921 + .00007, .00052, .00068 /
2922 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
2923 + .11601, .03364, -.00045, .00100, .00022,
2924 + .00007, .00049, .00066,
2925 + .11200, .03238, -.00042, .00096, .00021,
2926 + .00007, .00049, .00062,
2927 + .10834, .03124, -.00041, .00091, .00022,
2928 + .00008, .00046, .00060,
2929 + .10498, .03019, -.00038, .00088, .00022,
2930 + .00008, .00045, .00058,
2931 + .10167, .02917, -.00034, .00084, .00022,
2932 + .00008, .00042, .00055 /
2933 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
2934 + .49420, .16579, .06179, .00455, .00000,
2935 + .00000, .00124, .00286,
2936 + .46922, .15583, .05071, .00432, .00000,
2937 + .00000, .00137, .00282,
2938 + .43484, .14258, .03935, .00408, -.00107,
2939 + .00000, .00138, .00269,
2940 + .41175, .13379, .03072, .00388, -.00082,
2941 + .00000, .00140, .00259,
2942 + .38903, .12524, .02340, .00355, -.00063,
2943 + .00000, .00140, .00251,
2944 + .37048, .11842, .01831, .00340, -.00050,
2945 + .00000, .00142, .00231,
2946 + .35362, .11230, .01422, .00324, -.00040,
2947 + .00000, .00142, .00219,
2948 + .33670, .10624, .01060, .00306, -.00029,
2949 + .00000, .00136, .00212 /
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 + .32278, .10127, .00806, .00289, -.00024,
2952 + .00000, .00132, .00205,
2953 + .30995, .09674, .00597, .00277, -.00018,
2954 + .00000, .00128, .00196,
2955 + .30019, .09335, .00455, .00268, -.00013,
2956 + .00000, .00125, .00189,
2957 + .28063, .08655, .00221, .00246, -.00007,
2958 + .00000, .00119, .00171,
2959 + .26501, .08118, .00070, .00229, -.00003,
2960 + -.00018, .00113, .00159,
2961 + .24871, .07562, -.00091, .00211, .00001,
2962 + -.00013, .00106, .00150,
2963 + .23291, .07034, -.00206, .00196, .00004,
2964 + -.00009, .00099, .00137,
2965 + .21960, .06592, -.00281, .00183, .00006,
2966 + -.00006, .00092, .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 + .20709, .06178, -.00331, .00167, .00008,
2969 + -.00004, .00087, .00119,
2970 + .19732, .05857, -.00358, .00156, .00009,
2971 + -.00003, .00082, .00113,
2972 + .18614, .05494, -.00374, .00144, .00010,
2973 + -.00002, .00076, .00105,
2974 + .17689, .05196, -.00381, .00136, .00011,
2975 + -.00001, .00073, .00097,
2976 + .16885, .04939, -.00380, .00130, .00012,
2977 + .00000, .00070, .00088,
2978 + .15927, .04635, -.00375, .00119, .00013,
2979 + .00001, .00065, .00082,
2980 + .15082, .04367, -.00363, .00110, .00013,
2981 + .00001, .00062, .00077,
2982 + .14335, .04132, -.00349, .00103, .00014,
2983 + .00002, .00058, .00074 /
2984 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
2985 + .13630, .03911, -.00333, .00096, .00014,
2986 + .00002, .00053, .00069,
2987 + .12980, .03710, -.00315, .00089, .00014,
2988 + .00002, .00050, .00065,
2989 + .12396, .03529, -.00298, .00084, .00015,
2990 + .00003, .00047, .00062,
2991 + .11871, .03368, -.00283, .00080, .00015,
2992 + .00003, .00045, .00057,
2993 + .11368, .03216, -.00267, .00077, .00015,
2994 + .00003, .00043, .00053,
2995 + .10899, .03073, -.00252, .00072, .00015,
2996 + .00003, .00042, .00051,
2997 + .10474, .02944, -.00236, .00067, .00016,
2998 + .00004, .00039, .00049,
2999 + .10087, .02827, -.00221, .00063, .00016,
3000 + .00004, .00037, .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 + .09714, .02714, -.00209, .00061, .00016,
3003 + .00004, .00036, .00044,
3004 + .09359, .02609, -.00196, .00058, .00016,
3005 + .00004, .00033, .00043,
3006 + .09032, .02511, -.00184, .00056, .00016,
3007 + .00004, .00032, .00040,
3008 + .08736, .02422, -.00173, .00054, .00016,
3009 + .00004, .00031, .00039,
3010 + .08447, .02336, -.00163, .00053, .00016,
3011 + .00004, .00030, .00037 /
3012 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
3013 + .45850, .14855, .02327, .00380, .00000,
3014 + .00000, .00054, .00167,
3015 + .43313, .13903, .01626, .00363, .00000,
3016 + .00000, .00067, .00164,
3017 + .39875, .12632, .00968, .00330, -.00080,
3018 + .00000, .00079, .00157,
3019 + .37583, .11803, .00453, .00310, -.00063,
3020 + .00000, .00088, .00149,
3021 + .35320, .11007, .00036, .00295, -.00048,
3022 + .00000, .00087, .00144,
3023 + .33504, .10362, -.00240, .00276, -.00038,
3024 + .00000, .00086, .00145,
3025 + .31866, .09790, -.00435, .00260, -.00030,
3026 + .00000, .00082, .00138,
3027 + .30229, .09226, -.00591, .00248, -.00024,
3028 + .00000, .00080, .00126 /
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 + .28889, .08769, -.00693, .00233, -.00018,
3031 + .00000, .00079, .00120,
3032 + .27658, .08349, -.00768, .00221, -.00014,
3033 + .00000, .00078, .00115,
3034 + .26729, .08033, -.00807, .00210, -.00012,
3035 + .00000, .00076, .00111,
3036 + .24857, .07416, -.00865, .00191, -.00007,
3037 + .00000, .00068, .00104,
3038 + .23377, .06928, -.00881, .00180, -.00004,
3039 + -.00013, .00067, .00094,
3040 + .21841, .06429, -.00910, .00167, -.00002,
3041 + -.00010, .00065, .00085,
3042 + .20373, .05953, -.00910, .00153, .00000,
3043 + -.00008, .00059, .00080,
3044 + .19141, .05558, -.00894, .00139, .00002,
3045 + -.00006, .00055, .00076 /
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 + .17983, .05190, -.00864, .00127, .00003,
3048 + -.00005, .00051, .00071,
3049 + .17078, .04907, -.00832, .00119, .00004,
3050 + -.00004, .00051, .00065,
3051 + .16052, .04586, -.00793, .00112, .00005,
3052 + -.00003, .00046, .00062,
3053 + .15208, .04323, -.00754, .00104, .00006,
3054 + -.00002, .00042, .00059,
3055 + .14482, .04099, -.00715, .00094, .00006,
3056 + -.00002, .00040, .00055,
3057 + .13608, .03830, -.00665, .00089, .00007,
3058 + -.00001, .00036, .00050,
3059 + .12840, .03599, -.00621, .00084, .00007,
3060 + -.00001, .00034, .00046,
3061 + .12167, .03397, -.00581, .00079, .00008,
3062 + .00000, .00033, .00042 /
3063 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
3064 + .11538, .03207, -.00539, .00073, .00008,
3065 + .00000, .00030, .00040,
3066 + .10956, .03031, -.00502, .00068, .00008,
3067 + .00000, .00029, .00037,
3068 + .10436, .02877, -.00468, .00063, .00008,
3069 + .00000, .00028, .00035,
3070 + .09970, .02740, -.00437, .00059, .00009,
3071 + .00001, .00026, .00033,
3072 + .09527, .02611, -.00408, .00057, .00009,
3073 + .00001, .00023, .00030,
3074 + .09109, .02488, -.00381, .00054, .00009,
3075 + .00001, .00022, .00028,
3076 + .08732, .02377, -.00356, .00053, .00009,
3077 + .00001, .00021, .00027,
3078 + .08393, .02279, -.00335, .00051, .00009,
3079 + .00001, .00021, .00026 /
3080 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
3081 + .08066, .02183, -.00314, .00048, .00009,
3082 + .00001, .00020, .00024,
3083 + .07758, .02094, -.00294, .00045, .00009,
3084 + .00001, .00018, .00023,
3085 + .07476, .02014, -.00276, .00042, .00009,
3086 + .00001, .00017, .00022,
3087 + .07218, .01939, -.00260, .00040, .00009,
3088 + .00001, .00017, .00022,
3089 + .06964, .01868, -.00244, .00039, .00009,
3090 + .00001, .00016, .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 + .42066, .13085, -.00769, .00258, .00000,
3093 + .00000, .00043, .00106,
3094 + .39544, .12191, -.01104, .00237, .00000,
3095 + .00000, .00054, .00110,
3096 + .36140, .11002, -.01342, .00223, -.00060,
3097 + .00000, .00060, .00108,
3098 + .33890, .10235, -.01553, .00214, -.00046,
3099 + .00000, .00062, .00102,
3100 + .31707, .09492, -.01687, .00200, -.00036,
3101 + .00000, .00059, .00095,
3102 + .29953, .08908, -.01751, .00187, -.00029,
3103 + .00000, .00061, .00090,
3104 + .28379, .08388, -.01779, .00176, -.00023,
3105 + .00000, .00061, .00084,
3106 + .26814, .07875, -.01776, .00166, -.00018,
3107 + .00000, .00059, .00080 /
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 + .25534, .07460, -.01753, .00156, -.00014,
3110 + .00000, .00055, .00079,
3111 + .24370, .07084, -.01719, .00148, -.00011,
3112 + .00000, .00052, .00074,
3113 + .23492, .06802, -.01689, .00145, -.00010,
3114 + .00000, .00051, .00071,
3115 + .21746, .06245, -.01607, .00129, -.00006,
3116 + .00000, .00049, .00066,
3117 + .20369, .05811, -.01525, .00120, -.00004,
3118 + -.00010, .00048, .00062,
3119 + .18948, .05369, -.01450, .00111, -.00002,
3120 + -.00008, .00044, .00056,
3121 + .17590, .04952, -.01361, .00102, -.00001,
3122 + -.00007, .00040, .00052,
3123 + .16457, .04604, -.01277, .00094, .00001,
3124 + -.00005, .00037, .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 + .15400, .04283, -.01190, .00084, .00001,
3127 + -.00005, .00033, .00046,
3128 + .14579, .04037, -.01119, .00081, .00002,
3129 + -.00004, .00033, .00041,
3130 + .13655, .03760, -.01034, .00073, .00003,
3131 + -.00003, .00030, .00037,
3132 + .12892, .03534, -.00963, .00069, .00003,
3133 + -.00003, .00028, .00033,
3134 + .12232, .03342, -.00902, .00067, .00004,
3135 + -.00002, .00025, .00032,
3136 + .11458, .03112, -.00825, .00058, .00004,
3137 + -.00002, .00025, .00030,
3138 + .10780, .02913, -.00759, .00053, .00004,
3139 + -.00002, .00022, .00028,
3140 + .10184, .02740, -.00701, .00051, .00004,
3141 + -.00002, .00021, .00025 /
3142 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
3143 + .09626, .02579, -.00646, .00047, .00005,
3144 + -.00001, .00020, .00024,
3145 + .09113, .02432, -.00597, .00043, .00005,
3146 + -.00001, .00019, .00023,
3147 + .08655, .02302, -.00552, .00042, .00005,
3148 + -.00001, .00017, .00022,
3149 + .08248, .02185, -.00513, .00040, .00005,
3150 + -.00001, .00015, .00020,
3151 + .07861, .02076, -.00476, .00037, .00005,
3152 + -.00001, .00014, .00020,
3153 + .07500, .01976, -.00443, .00034, .00005,
3154 + -.00001, .00014, .00018,
3155 + .07177, .01884, -.00413, .00033, .00005,
3156 + -.00001, .00013, .00017,
3157 + .06881, .01803, -.00385, .00032, .00005,
3158 + -.00001, .00013, .00016 /
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 + .06599, .01724, -.00360, .00031, .00005,
3161 + -.00001, .00012, .00014,
3162 + .06331, .01649, -.00337, .00028, .00005,
3163 + -.00001, .00012, .00014,
3164 + .06090, .01581, -.00315, .00027, .00006,
3165 + .00000, .00011, .00013,
3166 + .05870, .01521, -.00298, .00026, .00006,
3167 + .00000, .00011, .00013,
3168 + .05655, .01462, -.00279, .00025, .00006,
3169 + .00000, .00011, .00012 /
3170 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
3171 + .38163, .11392, -.03159, .00160, .00000,
3172 + .00000, .00038, .00068,
3173 + .35676, .10561, -.03175, .00162, .00000,
3174 + .00000, .00042, .00067,
3175 + .32372, .09469, -.03037, .00146, -.00043,
3176 + .00000, .00042, .00069,
3177 + .30219, .08765, -.02997, .00132, -.00033,
3178 + .00000, .00044, .00068,
3179 + .28126, .08093, -.02916, .00126, -.00026,
3180 + .00000, .00046, .00065,
3181 + .26460, .07561, -.02811, .00119, -.00021,
3182 + .00000, .00044, .00061,
3183 + .24967, .07094, -.02700, .00115, -.00018,
3184 + .00000, .00042, .00057,
3185 + .23492, .06635, -.02572, .00110, -.00014,
3186 + .00000, .00041, .00054 /
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 + .22295, .06263, -.02455, .00104, -.00012,
3189 + .00000, .00041, .00052,
3190 + .21215, .05929, -.02339, .00095, -.00010,
3191 + .00000, .00040, .00050,
3192 + .20406, .05681, -.02248, .00088, -.00009,
3193 + .00000, .00037, .00048,
3194 + .18780, .05190, -.02058, .00083, -.00006,
3195 + .00000, .00036, .00043,
3196 + .17526, .04808, -.01906, .00073, -.00005,
3197 + -.00007, .00033, .00042,
3198 + .16233, .04424, -.01753, .00065, -.00004,
3199 + -.00006, .00028, .00036,
3200 + .14997, .04060, -.01603, .00060, -.00002,
3201 + -.00004, .00028, .00032,
3202 + .13971, .03760, -.01473, .00055, -.00002,
3203 + -.00004, .00026, .00030 /
3204 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
3205 + .13022, .03484, -.01352, .00049, -.00001,
3206 + -.00003, .00024, .00030,
3207 + .12290, .03273, -.01255, .00046, -.00001,
3208 + -.00003, .00023, .00026,
3209 + .11467, .03037, -.01145, .00042, .00000,
3210 + -.00002, .00021, .00024,
3211 + .10790, .02845, -.01054, .00038, .00000,
3212 + -.00002, .00020, .00023,
3213 + .10210, .02680, -.00978, .00036, .00000,
3214 + -.00002, .00019, .00021,
3215 + .09521, .02488, -.00885, .00035, .00001,
3216 + -.00001, .00016, .00019,
3217 + .08925, .02321, -.00808, .00033, .00001,
3218 + -.00001, .00015, .00018,
3219 + .08406, .02177, -.00742, .00030, .00001,
3220 + -.00001, .00016, .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 + .07921, .02043, -.00679, .00028, .00001,
3223 + -.00001, .00014, .00015,
3224 + .07477, .01921, -.00623, .00025, .00001,
3225 + -.00001, .00013, .00016,
3226 + .07085, .01813, -.00574, .00024, .00001,
3227 + -.00001, .00012, .00014,
3228 + .06734, .01717, -.00530, .00022, .00001,
3229 + -.00001, .00010, .00013,
3230 + .06401, .01626, -.00490, .00020, .00001,
3231 + -.00001, .00010, .00013,
3232 + .06090, .01543, -.00453, .00021, .00002,
3233 + .00000, .00009, .00012,
3234 + .05812, .01470, -.00422, .00021, .00002,
3235 + .00000, .00009, .00010,
3236 + .05562, .01402, -.00394, .00019, .00002,
3237 + .00000, .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 + .05323, .01337, -.00366, .00018, .00002,
3240 + .00000, .00008, .00011,
3241 + .05097, .01277, -.00341, .00017, .00002,
3242 + .00000, .00008, .00009,
3243 + .04890, .01223, -.00319, .00016, .00002,
3244 + .00000, .00006, .00009,
3245 + .04705, .01174, -.00300, .00014, .00002,
3246 + .00000, .00007, .00008,
3247 + .04524, .01126, -.00281, .00013, .00002,
3248 + .00000, .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 + .34259, .09848, -.04979, .00136, .00000,
3251 + .00000, .00010, .00026,
3252 + .31873, .09080, -.04723, .00127, .00000,
3253 + .00000, .00016, .00030,
3254 + .28710, .08092, -.04277, .00113, -.00031,
3255 + .00000, .00022, .00028,
3256 + .26665, .07451, -.04041, .00106, -.00024,
3257 + .00000, .00024, .00032,
3258 + .24697, .06846, -.03770, .00092, -.00019,
3259 + .00000, .00023, .00035,
3260 + .23137, .06369, -.03539, .00089, -.00015,
3261 + .00000, .00024, .00031,
3262 + .21754, .05953, -.03325, .00082, -.00012,
3263 + .00000, .00024, .00030,
3264 + .20393, .05546, -.03096, .00074, -.00010,
3265 + .00000, .00020, .00030 /
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 + .19285, .05220, -.02909, .00075, -.00009,
3268 + .00000, .00020, .00027,
3269 + .18286, .04925, -.02733, .00070, -.00007,
3270 + .00000, .00021, .00026,
3271 + .17542, .04705, -.02597, .00065, -.00006,
3272 + .00000, .00019, .00025,
3273 + .16065, .04276, -.02332, .00060, -.00005,
3274 + .00000, .00020, .00021,
3275 + .14921, .03947, -.02126, .00055, -.00004,
3276 + -.00005, .00018, .00019,
3277 + .13750, .03614, -.01926, .00050, -.00003,
3278 + -.00004, .00016, .00019,
3279 + .12647, .03301, -.01736, .00045, -.00002,
3280 + -.00003, .00016, .00019,
3281 + .11735, .03046, -.01575, .00041, -.00001,
3282 + -.00002, .00015, .00017 /
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 + .10892, .02811, -.01424, .00038, -.00001,
3285 + -.00002, .00012, .00013,
3286 + .10249, .02631, -.01312, .00034, -.00001,
3287 + -.00002, .00011, .00013,
3288 + .09520, .02433, -.01187, .00031, .00000,
3289 + -.00001, .00012, .00013,
3290 + .08928, .02271, -.01088, .00030, .00000,
3291 + -.00001, .00010, .00013,
3292 + .08426, .02133, -.01002, .00028, .00000,
3293 + -.00001, .00009, .00012,
3294 + .07830, .01972, -.00900, .00025, .00000,
3295 + -.00001, .00009, .00010,
3296 + .07315, .01834, -.00815, .00022, .00000,
3297 + -.00001, .00008, .00009,
3298 + .06868, .01715, -.00743, .00021, .00000,
3299 + -.00001, .00007, .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 + .06448, .01604, -.00677, .00020, .00000,
3302 + -.00001, .00007, .00008,
3303 + .06068, .01503, -.00617, .00019, .00000,
3304 + -.00001, .00005, .00007,
3305 + .05732, .01414, -.00566, .00017, .00001,
3306 + .00000, .00006, .00005,
3307 + .05435, .01336, -.00522, .00016, .00001,
3308 + .00000, .00006, .00005,
3309 + .05156, .01263, -.00483, .00014, .00001,
3310 + .00000, .00006, .00007,
3311 + .04894, .01196, -.00445, .00013, .00001,
3312 + .00000, .00006, .00006,
3313 + .04659, .01135, -.00412, .00013, .00001,
3314 + .00000, .00004, .00006,
3315 + .04448, .01081, -.00384, .00013, .00001,
3316 + .00000, .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 + .04246, .01029, -.00357, .00013, .00001,
3319 + .00000, .00004, .00005,
3320 + .04058, .00981, -.00333, .00012, .00001,
3321 + .00000, .00004, .00005,
3322 + .03887, .00937, -.00311, .00010, .00001,
3323 + .00000, .00005, .00005,
3324 + .03733, .00897, -.00291, .00011, .00001,
3325 + .00000, .00003, .00005,
3326 + .03582, .00859, -.00272, .00009, .00001,
3327 + .00000, .00003, .00003 /
3328 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
3329 + .30320, .08327, -.06134, .00067, .00000,
3330 + .00000, .00014, .00024,
3331 + .28056, .07646, -.05673, .00068, .00000,
3332 + .00000, .00016, .00022,
3333 + .25091, .06757, -.05010, .00063, -.00021,
3334 + .00000, .00017, .00027,
3335 + .23178, .06200, -.04615, .00062, -.00017,
3336 + .00000, .00016, .00024,
3337 + .21358, .05665, -.04224, .00058, -.00013,
3338 + .00000, .00019, .00023,
3339 + .19928, .05253, -.03898, .00048, -.00011,
3340 + .00000, .00018, .00021,
3341 + .18658, .04890, -.03605, .00045, -.00009,
3342 + .00000, .00017, .00018,
3343 + .17413, .04537, -.03319, .00043, -.00007,
3344 + .00000, .00016, .00021 /
3345 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
3346 + .16413, .04255, -.03084, .00041, -.00006,
3347 + .00000, .00015, .00019,
3348 + .15511, .04002, -.02871, .00038, -.00005,
3349 + .00000, .00014, .00019,
3350 + .14837, .03815, -.02711, .00036, -.00005,
3351 + .00000, .00015, .00018,
3352 + .13518, .03449, -.02400, .00033, -.00004,
3353 + .00000, .00012, .00016,
3354 + .12500, .03170, -.02168, .00028, -.00003,
3355 + -.00003, .00012, .00016,
3356 + .11464, .02888, -.01941, .00027, -.00002,
3357 + -.00002, .00012, .00014,
3358 + .10491, .02626, -.01726, .00026, -.00002,
3359 + -.00002, .00010, .00010,
3360 + .09692, .02412, -.01553, .00024, -.00002,
3361 + -.00002, .00010, .00009 /
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 + .08956, .02217, -.01394, .00021, -.00001,
3364 + -.00001, .00010, .00009,
3365 + .08397, .02068, -.01275, .00019, -.00001,
3366 + -.00001, .00008, .00009,
3367 + .07769, .01904, -.01144, .00017, -.00001,
3368 + -.00001, .00007, .00008,
3369 + .07259, .01771, -.01038, .00016, -.00001,
3370 + -.00001, .00007, .00007,
3371 + .06828, .01659, -.00951, .00014, -.00001,
3372 + -.00001, .00006, .00007,
3373 + .06320, .01528, -.00850, .00012, -.00001,
3374 + -.00001, .00006, .00007,
3375 + .05881, .01416, -.00767, .00012, -.00001,
3376 + -.00001, .00006, .00006,
3377 + .05501, .01319, -.00697, .00013, .00000,
3378 + .00000, .00005, .00006 /
3379 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
3380 + .05153, .01230, -.00633, .00010, .00000,
3381 + .00000, .00005, .00006,
3382 + .04834, .01149, -.00574, .00008, .00000,
3383 + .00000, .00005, .00005,
3384 + .04553, .01078, -.00523, .00007, .00000,
3385 + .00000, .00003, .00005,
3386 + .04303, .01016, -.00481, .00007, .00000,
3387 + .00000, .00003, .00005,
3388 + .04068, .00958, -.00443, .00007, .00000,
3389 + .00000, .00003, .00003,
3390 + .03851, .00903, -.00406, .00007, .00000,
3391 + .00000, .00003, .00003,
3392 + .03658, .00857, -.00375, .00007, .00000,
3393 + .00000, .00003, .00002,
3394 + .03484, .00814, -.00349, .00007, .00000,
3395 + .00000, .00003, .00002 /
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 + .03318, .00772, -.00324, .00007, .00000,
3398 + .00000, .00003, .00002,
3399 + .03164, .00734, -.00301, .00006, .00000,
3400 + .00000, .00003, .00002,
3401 + .03024, .00700, -.00279, .00006, .00000,
3402 + .00000, .00002, .00002,
3403 + .02898, .00669, -.00261, .00005, .00000,
3404 + .00000, .00002, .00002,
3405 + .02775, .00640, -.00244, .00005, .00000,
3406 + .00000, .00002, .00002 /
3407 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
3408 + .22745, .05731, -.06998, .00038, .00000,
3409 + .00000, .00005, .00006,
3410 + .20826, .05203, -.06275, .00029, .00000,
3411 + .00000, .00003, .00006,
3412 + .18341, .04530, -.05349, .00023, -.00009,
3413 + .00000, .00004, .00008,
3414 + .16766, .04111, -.04799, .00021, -.00007,
3415 + .00000, .00006, .00009,
3416 + .15282, .03721, -.04277, .00019, -.00005,
3417 + .00000, .00006, .00007,
3418 + .14124, .03420, -.03876, .00018, -.00004,
3419 + .00000, .00007, .00009,
3420 + .13111, .03154, -.03521, .00018, -.00004,
3421 + .00000, .00005, .00009,
3422 + .12132, .02901, -.03184, .00017, -.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 + .11351, .02702, -.02914, .00013, -.00003,
3426 + .00000, .00006, .00006,
3427 + .10653, .02526, -.02679, .00013, -.00002,
3428 + .00000, .00004, .00006,
3429 + .10136, .02394, -.02506, .00013, -.00002,
3430 + .00000, .00005, .00006,
3431 + .09129, .02139, -.02174, .00011, -.00001,
3432 + .00000, .00005, .00007,
3433 + .08360, .01947, -.01932, .00011, -.00001,
3434 + -.00001, .00003, .00005,
3435 + .07592, .01758, -.01697, .00009, -.00001,
3436 + -.00001, .00003, .00003,
3437 + .06877, .01582, -.01486, .00008, -.00001,
3438 + -.00001, .00003, .00003,
3439 + .06294, .01440, -.01315, .00008, -.00001,
3440 + -.00001, .00002, .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 + .05767, .01311, -.01170, .00008, -.00001,
3443 + -.00001, .00003, .00004,
3444 + .05365, .01215, -.01056, .00006, .00000,
3445 + .00000, .00003, .00004,
3446 + .04923, .01108, -.00938, .00007, .00000,
3447 + .00000, .00003, .00002,
3448 + .04566, .01023, -.00843, .00005, .00000,
3449 + .00000, .00003, .00002,
3450 + .04266, .00953, -.00767, .00004, .00000,
3451 + .00000, .00003, .00003,
3452 + .03914, .00871, -.00679, .00005, .00000,
3453 + .00000, .00003, .00003,
3454 + .03615, .00800, -.00605, .00005, .00000,
3455 + .00000, .00001, .00001,
3456 + .03360, .00740, -.00543, .00002, .00000,
3457 + .00000, .00001, .00001 /
3458 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
3459 + .03123, .00685, -.00489, .00002, .00000,
3460 + .00000, .00001, .00001,
3461 + .02910, .00636, -.00440, .00002, .00000,
3462 + .00000, .00001, .00001,
3463 + .02724, .00593, -.00400, .00002, .00000,
3464 + .00000, .00001, .00001,
3465 + .02561, .00555, -.00366, .00002, .00000,
3466 + .00000, .00001, .00001,
3467 + .02408, .00520, -.00333, .00001, .00000,
3468 + .00000, .00001, .00001,
3469 + .02267, .00489, -.00307, .00002, .00000,
3470 + .00000, .00001, .00001,
3471 + .02142, .00461, -.00282, .00003, .00000,
3472 + .00000, .00001, .00001,
3473 + .02030, .00435, -.00260, .00001, .00000,
3474 + .00000, .00001, .00001 /
3475 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/
3476 + .01925, .00412, -.00240, .00001, .00000,
3477 + .00000, .00001, .00001,
3478 + .01825, .00390, -.00222, .00001, .00000,
3479 + .00000, .00001, .00001,
3480 + .01737, .00369, -.00206, .00001, .00000,
3481 + .00000, .00001, .00001,
3482 + .01656, .00353, -.00192, .00001, .00000,
3483 + .00000, .00001, .00001,
3484 + .01581, .00334, -.00179, .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 + .15900, .03632, -.06326, .00008, .00000,
3488 + .00000, -.00001, .00000,
3489 + .14383, .03262, -.05585, .00011, .00000,
3490 + .00000, .00000, .00003,
3491 + .12456, .02800, -.04644, .00010, -.00003,
3492 + .00000, .00002, -.00003,
3493 + .11262, .02512, -.04094, .00008, -.00002,
3494 + .00000, .00002, .00000,
3495 + .10144, .02248, -.03583, .00006, -.00002,
3496 + .00000, .00000, .00003,
3497 + .09286, .02044, -.03200, .00008, -.00002,
3498 + .00000, .00001, .00001,
3499 + .08544, .01872, -.02871, .00006, -.00001,
3500 + .00000, .00001, .00001,
3501 + .07832, .01705, -.02559, .00004, -.00001,
3502 + .00000, .00001, .00001 /
3503 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
3504 + .07269, .01576, -.02321, .00004, -.00001,
3505 + .00000, .00001, .00001,
3506 + .06770, .01460, -.02112, .00004, -.00001,
3507 + .00000, .00001, .00001,
3508 + .06402, .01376, -.01960, .00004, -.00001,
3509 + .00000, .00001, .00001,
3510 + .05697, .01216, -.01675, .00002, -.00001,
3511 + .00000, .00001, .00001,
3512 + .05166, .01097, -.01472, .00002, .00000,
3513 + .00000, .00001, .00001,
3514 + .04639, .00979, -.01277, .00002, .00000,
3515 + .00000, .00001, .00001,
3516 + .04154, .00872, -.01102, .00002, .00000,
3517 + .00000, .00001, .00001,
3518 + .03766, .00785, -.00965, .00002, .00000,
3519 + .00000, .00001, .00001 /
3520 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
3521 + .03416, .00709, -.00845, .00001, .00000,
3522 + .00000, .00000, .00001,
3523 + .03155, .00651, -.00758, .00002, .00000,
3524 + .00000, .00000, .00001,
3525 + .02866, .00590, -.00666, .00001, .00000,
3526 + .00000, .00000, .00001,
3527 + .02637, .00540, -.00594, .00001, .00000,
3528 + .00000, .00000, .00001,
3529 + .02444, .00498, -.00534, .00001, .00000,
3530 + .00000, .00000, .00000,
3531 + .02225, .00451, -.00468, .00001, .00000,
3532 + .00000, .00000, .00000,
3533 + .02036, .00412, -.00414, .00001, .00000,
3534 + .00000, .00000, .00000,
3535 + .01878, .00378, -.00370, .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 + .01732, .00347, -.00330, .00001, .00000,
3539 + .00000, .00000, .00000,
3540 + .01604, .00321, -.00297, .00001, .00000,
3541 + .00000, .00000, .00000,
3542 + .01490, .00297, -.00267, .00001, .00000,
3543 + .00000, .00000, .00000,
3544 + .01392, .00276, -.00242, .00001, .00000,
3545 + .00000, .00000, .00000,
3546 + .01300, .00257, -.00220, .00001, .00000,
3547 + .00000, .00000, .00000,
3548 + .01217, .00240, -.00200, .00001, .00000,
3549 + .00000, .00000, .00000,
3550 + .01143, .00225, -.00182, .00000, .00000,
3551 + .00000, .00000, .00000,
3552 + .01078, .00212, -.00168, .00000, .00000,
3553 + .00000, .00000, .00000 /
3554 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/
3555 + .01016, .00199, -.00154, .00000, .00000,
3556 + .00000, .00000, .00000,
3557 + .00959, .00187, -.00142, .00000, .00000,
3558 + .00000, .00000, .00000,
3559 + .00909, .00177, -.00132, .00000, .00000,
3560 + .00000, .00000, .00000,
3561 + .00863, .00167, -.00121, .00000, .00000,
3562 + .00000, .00000, .00000,
3563 + .00819, .00158, -.00113, .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 + .10131, .02076, -.04854, .00004, .00000,
3567 + .00000, -.00002, .00001,
3568 + .09049, .01843, -.04214, .00004, .00000,
3569 + .00000, -.00001, -.00001,
3570 + .07696, .01551, -.03440, .00004, -.00001,
3571 + .00000, -.00001, .00002,
3572 + .06871, .01375, -.02983, .00004, -.00001,
3573 + .00000, -.00001, -.00001,
3574 + .06109, .01216, -.02573, .00004, -.00001,
3575 + .00000, -.00001, -.00001,
3576 + .05534, .01094, -.02267, .00002, .00000,
3577 + .00000, .00000, .00000,
3578 + .05040, .00992, -.02012, .00002, .00000,
3579 + .00000, .00000, .00000,
3580 + .04572, .00896, -.01777, .00002, .00000,
3581 + .00000, .00000, .00000 /
3582 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
3583 + .04204, .00819, -.01593, .00002, .00000,
3584 + .00000, .00000, .00000,
3585 + .03882, .00753, -.01437, .00002, .00000,
3586 + .00000, .00000, .00000,
3587 + .03648, .00705, -.01324, .00002, .00000,
3588 + .00000, .00000, .00000,
3589 + .03202, .00615, -.01117, .00002, .00000,
3590 + .00000, .00000, .00000,
3591 + .02870, .00549, -.00969, .00002, .00000,
3592 + .00000, .00000, .00000,
3593 + .02546, .00483, -.00830, .00002, .00000,
3594 + .00000, .00000, .00000,
3595 + .02253, .00425, -.00707, .00002, .00000,
3596 + .00000, .00000, .00000,
3597 + .02019, .00379, -.00613, .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 + .01811, .00339, -.00531, .00002, .00000,
3601 + .00000, .00000, .00000,
3602 + .01657, .00308, -.00472, .00002, .00000,
3603 + .00000, .00000, .00000,
3604 + .01491, .00276, -.00409, .00000, .00000,
3605 + .00000, .00000, .00000,
3606 + .01359, .00251, -.00361, .00000, .00000,
3607 + .00000, .00000, .00000,
3608 + .01250, .00229, -.00322, .00000, .00000,
3609 + .00000, .00000, .00000,
3610 + .01125, .00206, -.00281, .00000, .00000,
3611 + .00000, .00000, .00000,
3612 + .01021, .00186, -.00246, .00000, .00000,
3613 + .00000, .00000, .00000,
3614 + .00933, .00168, -.00217, .00000, .00000,
3615 + .00000, .00000, .00000 /
3616 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/
3617 + .00853, .00154, -.00193, .00000, .00000,
3618 + .00000, .00000, .00000,
3619 + .00783, .00141, -.00171, .00000, .00000,
3620 + .00000, .00000, .00000,
3621 + .00722, .00130, -.00153, .00000, .00000,
3622 + .00000, .00000, .00000,
3623 + .00669, .00120, -.00138, .00000, .00000,
3624 + .00000, .00000, .00000,
3625 + .00622, .00111, -.00124, .00000, .00000,
3626 + .00000, .00000, .00000,
3627 + .00577, .00103, -.00113, .00000, .00000,
3628 + .00000, .00000, .00000,
3629 + .00539, .00095, -.00102, .00000, .00000,
3630 + .00000, .00000, .00000,
3631 + .00506, .00090, -.00093, .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 + .00474, .00083, -.00086, .00000, .00000,
3635 + .00000, .00000, .00000,
3636 + .00444, .00078, -.00078, .00000, .00000,
3637 + .00000, .00000, .00000,
3638 + .00419, .00073, -.00072, .00000, .00000,
3639 + .00000, .00000, .00000,
3640 + .00395, .00069, -.00066, .00000, .00000,
3641 + .00000, .00000, .00000,
3642 + .00373, .00065, -.00061, .00000, .00000,
3643 + .00000, .00000, .00000 /
3644 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/
3645 + .05657, .01006, -.03116, .00000, .00000,
3646 + .00000, .00000, .00000,
3647 + .04981, .00884, -.02671, .00000, .00000,
3648 + .00000, .00000, .00000,
3649 + .04151, .00731, -.02138, .00000, .00000,
3650 + .00000, .00000, .00000,
3651 + .03653, .00642, -.01831, .00000, .00000,
3652 + .00000, .00000, .00000,
3653 + .03201, .00559, -.01556, .00000, .00000,
3654 + .00000, .00000, .00000,
3655 + .02862, .00497, -.01355, .00000, .00000,
3656 + .00000, .00000, .00000,
3657 + .02577, .00445, -.01188, .00000, .00000,
3658 + .00000, .00000, .00000,
3659 + .02308, .00397, -.01036, .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 + .02102, .00359, -.00920, .00000, .00000,
3663 + .00000, .00000, .00000,
3664 + .01920, .00330, -.00824, .00000, .00000,
3665 + .00000, .00000, .00000,
3666 + .01791, .00304, -.00751, .00000, .00000,
3667 + .00000, .00000, .00000,
3668 + .01547, .00262, -.00625, .00000, .00000,
3669 + .00000, .00000, .00000,
3670 + .01368, .00229, -.00535, .00000, .00000,
3671 + .00000, .00000, .00000,
3672 + .01196, .00199, -.00451, .00000, .00000,
3673 + .00000, .00000, .00000,
3674 + .01042, .00173, -.00379, .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 + .00816, .00136, -.00278, .00000, .00000,
3680 + .00000, .00000, .00000,
3681 + .00739, .00122, -.00244, .00000, .00000,
3682 + .00000, .00000, .00000,
3683 + .00656, .00108, -.00210, .00000, .00000,
3684 + .00000, .00000, .00000,
3685 + .00593, .00096, -.00184, .00000, .00000,
3686 + .00000, .00000, .00000,
3687 + .00539, .00087, -.00161, .00000, .00000,
3688 + .00000, .00000, .00000,
3689 + .00479, .00078, -.00139, .00000, .00000,
3690 + .00000, .00000, .00000,
3691 + .00431, .00069, -.00121, .00000, .00000,
3692 + .00000, .00000, .00000,
3693 + .00390, .00063, -.00105, .00000, .00000,
3694 + .00000, .00000, .00000 /
3695 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/
3696 + .00352, .00056, -.00092, .00000, .00000,
3697 + .00000, .00000, .00000,
3698 + .00321, .00050, -.00081, .00000, .00000,
3699 + .00000, .00000, .00000,
3700 + .00292, .00047, -.00072, .00000, .00000,
3701 + .00000, .00000, .00000,
3702 + .00268, .00043, -.00064, .00000, .00000,
3703 + .00000, .00000, .00000,
3704 + .00246, .00040, -.00057, .00000, .00000,
3705 + .00000, .00000, .00000,
3706 + .00227, .00036, -.00052, .00000, .00000,
3707 + .00000, .00000, .00000,
3708 + .00211, .00033, -.00047, .00000, .00000,
3709 + .00000, .00000, .00000,
3710 + .00197, .00031, -.00043, .00000, .00000,
3711 + .00000, .00000, .00000 /
3712 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/
3713 + .00183, .00028, -.00038, .00000, .00000,
3714 + .00000, .00000, .00000,
3715 + .00170, .00026, -.00035, .00000, .00000,
3716 + .00000, .00000, .00000,
3717 + .00159, .00024, -.00031, .00000, .00000,
3718 + .00000, .00000, .00000,
3719 + .00150, .00023, -.00029, .00000, .00000,
3720 + .00000, .00000, .00000,
3721 + .00141, .00022, -.00026, .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 + .00827, .00107, -.00581, .00000, .00000,
3725 + .00000, .00000, .00000,
3726 + .00698, .00089, -.00478, .00000, .00000,
3727 + .00000, .00000, .00000,
3728 + .00547, .00069, -.00361, .00000, .00000,
3729 + .00000, .00000, .00000,
3730 + .00461, .00057, -.00296, .00000, .00000,
3731 + .00000, .00000, .00000,
3732 + .00387, .00048, -.00242, .00000, .00000,
3733 + .00000, .00000, .00000,
3734 + .00332, .00042, -.00203, .00000, .00000,
3735 + .00000, .00000, .00000,
3736 + .00290, .00036, -.00173, .00000, .00000,
3737 + .00000, .00000, .00000,
3738 + .00251, .00031, -.00146, .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 + .00221, .00028, -.00126, .00000, .00000,
3742 + .00000, .00000, .00000,
3743 + .00197, .00023, -.00110, .00000, .00000,
3744 + .00000, .00000, .00000,
3745 + .00180, .00023, -.00099, .00000, .00000,
3746 + .00000, .00000, .00000,
3747 + .00147, .00018, -.00078, .00000, .00000,
3748 + .00000, .00000, .00000,
3749 + .00125, .00015, -.00065, .00000, .00000,
3750 + .00000, .00000, .00000,
3751 + .00104, .00013, -.00052, .00000, .00000,
3752 + .00000, .00000, .00000,
3753 + .00088, .00011, -.00042, .00000, .00000,
3754 + .00000, .00000, .00000,
3755 + .00075, .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='ft08d.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