2 subroutine sfmrs_98d4(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 #if defined(CERNLIB_DOUBLE)
11 #if defined(CERNLIB_SINGLE)
14 + f(np,nx,nq+1),qq(nq),xx(nx),g(np),n0(np)
15 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,8)/
16 + .00698, .00251, .88556, .91935, .00000,
17 + .00000, .49519, .93530,
18 + .00710, .00255, 2.20147, .95777, .00000,
19 + .00000, .53804, .97377,
20 + .00728, .00262, 4.71566, 1.03279, .02460,
21 + .00000, .61954, 1.04885,
22 + .00742, .00267, 7.11384, 1.10377, .08875,
23 + .00000, .69517, 1.11984,
24 + .00757, .00273, 10.20922, 1.19330, .19199,
25 + .00000, .78953, 1.20941,
26 + .00770, .00278, 13.32316, 1.28527, .27945,
27 + .00000, .88560, 1.30139,
28 + .00783, .00282, 16.76203, 1.38627, .37669,
29 + .00000, .99046, 1.40239,
30 + .00796, .00289, 21.03727, 1.50595, .49886,
31 + .00000, 1.11419, 1.52207 /
32 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
33 + .00808, .00293, 25.11884, 1.62393, .61156,
34 + .00000, 1.23565, 1.64004,
35 + .00819, .00298, 29.57321, 1.74809, .73599,
36 + .00000, 1.36309, 1.76416,
37 + .00829, .00302, 33.36941, 1.85534, .84047,
38 + .00000, 1.47294, 1.87142,
39 + .00849, .00309, 42.46137, 2.10917, 1.09239,
40 + .00000, 1.73220, 2.12520,
41 + .00867, .00318, 51.31673, 2.35743, 1.34050,
42 + .23603, 1.98506, 2.37342,
43 + .00888, .00326, 62.49759, 2.66934, 1.65284,
44 + .61818, 2.30201, 2.68527,
45 + .00909, .00336, 75.62744, 3.03548, 2.02013,
46 + 1.00154, 2.67329, 3.05133,
47 + .00929, .00344, 88.72832, 3.40502, 2.38613,
48 + 1.37074, 3.04740, 3.42081 /
49 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
50 + .00949, .00353, 103.31912, 3.81619, 2.79627,
51 + 1.79472, 3.46307, 3.83189,
52 + .00967, .00360, 116.56249, 4.18871, 3.17091,
53 + 2.18727, 3.83925, 4.20432,
54 + .00988, .00370, 133.78267, 4.67852, 3.66076,
55 + 2.69119, 4.33343, 4.69404,
56 + .01006, .00379, 150.09960, 5.14745, 4.12851,
57 + 3.16954, 4.80614, 5.16288,
58 + .01024, .00386, 166.23614, 5.61076, 4.59465,
59 + 3.65323, 5.27285, 5.62610,
60 + .01047, .00396, 187.84217, 6.24059, 5.22434,
61 + 4.29751, 5.90692, 6.25582,
62 + .01068, .00406, 209.51164, 6.87872, 5.86259,
63 + 4.95049, 6.54896, 6.89384,
64 + .01089, .00416, 231.23135, 7.52157, 6.50849,
65 + 5.61530, 7.19539, 7.53659 /
66 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
67 + .01109, .00425, 253.87271, 8.20241, 7.18931,
68 + 6.30977, 7.87975, 8.21730,
69 + .01130, .00434, 277.25840, 8.91129, 7.89978,
70 + 7.03659, 8.59200, 8.92607,
71 + .01149, .00444, 300.49609, 9.62211, 8.61285,
72 + 7.76622, 9.30596, 9.63678,
73 + .01168, .00452, 323.12004, 10.32343, 9.31482,
74 + 8.48171, 10.01020, 10.33801,
75 + .01187, .00462, 346.96810, 11.06707, 10.06121,
76 + 9.24489, 10.75671, 11.08154,
77 + .01206, .00470, 371.01025, 11.82767, 10.82248,
78 + 10.01977, 11.52010, 11.84203,
79 + .01224, .00478, 394.89020, 12.58755, 11.58492,
80 + 10.79802, 12.28258, 12.60181,
81 + .01241, .00487, 417.98318, 13.33166, 12.33026,
82 + 11.55666, 13.02913, 13.34583 /
83 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
84 + .01259, .00496, 442.03332, 14.11295, 13.11329,
85 + 12.35389, 13.81283, 14.12701,
86 + .01276, .00504, 466.51597, 14.91457, 13.91742,
87 + 13.17330, 14.61680, 14.92853,
88 + .01294, .00512, 490.23905, 15.70121, 14.70493,
89 + 13.97322, 15.40566, 15.71508,
90 + .01310, .00520, 513.69315, 16.48099, 15.48806,
91 + 14.77169, 16.18752, 16.49478,
92 + .01327, .00528, 537.44993, 17.28326, 16.29097,
93 + 15.58635, 16.99187, 17.29696 /
94 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
95 + .00947, .00352, .90840, .77770, .00000,
96 + .00000, .41970, .78700,
97 + .00964, .00358, 2.12700, .81373, .00000,
98 + .00000, .45912, .82305,
99 + .00989, .00368, 4.38499, .88140, .02336,
100 + .00000, .53174, .89074,
101 + .01008, .00375, 6.48739, .94335, .07876,
102 + .00000, .59725, .95270,
103 + .01028, .00384, 9.15045, 1.02006, .16726,
104 + .00000, .67765, 1.02941,
105 + .01046, .00392, 11.78607, 1.09757, .24084,
106 + .00000, .75828, 1.10693,
107 + .01063, .00398, 14.65637, 1.18167, .32183,
108 + .00000, .84534, 1.19103,
109 + .01081, .00406, 18.17908, 1.28059, .42269,
110 + .00000, .94734, 1.28994 /
111 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
112 + .01097, .00413, 21.50043, 1.37703, .51474,
113 + .00000, 1.04643, 1.38638,
114 + .01114, .00420, 25.08867, 1.47794, .61571,
115 + .00000, 1.14985, 1.48727,
116 + .01126, .00426, 28.11869, 1.56452, .69989,
117 + .00000, 1.23840, 1.57384,
118 + .01153, .00437, 35.28887, 1.76784, .90117,
119 + .00000, 1.44586, 1.77713,
120 + .01177, .00449, 42.16826, 1.96480, 1.09736,
121 + .18645, 1.64633, 1.97407,
122 + .01205, .00461, 50.73494, 2.20999, 1.34193,
123 + .48595, 1.89535, 2.21922,
124 + .01235, .00474, 60.65686, 2.49504, 1.62663,
125 + .78236, 2.18431, 2.50423,
126 + .01262, .00487, 70.42491, 2.77995, 1.90750,
127 + 1.06481, 2.47269, 2.78910 /
128 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
129 + .01290, .00499, 81.17699, 3.09436, 2.21959,
130 + 1.38649, 2.79052, 3.10345,
131 + .01313, .00510, 90.83652, 3.37712, 2.50255,
132 + 1.68213, 3.07608, 3.38618,
133 + .01342, .00523, 103.26487, 3.74604, 2.86960,
134 + 2.05843, 3.44830, 3.75503,
135 + .01367, .00535, 114.91869, 4.09647, 3.21732,
136 + 2.41275, 3.80161, 4.10542,
137 + .01391, .00546, 126.34620, 4.44052, 3.56170,
138 + 2.76893, 4.14826, 4.44942,
139 + .01421, .00561, 141.49588, 4.90471, 4.02336,
140 + 3.23954, 4.61566, 4.91355,
141 + .01450, .00575, 156.53875, 5.37142, 4.48773,
142 + 3.71288, 5.08534, 5.38019,
143 + .01477, .00587, 171.48505, 5.83840, 4.95457,
144 + 4.19173, 5.55505, 5.84711 /
145 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
146 + .01505, .00601, 186.92437, 6.32951, 5.44316,
147 + 4.68826, 6.04884, 6.33816,
148 + .01533, .00614, 202.74222, 6.83758, 5.94985,
149 + 5.20475, 6.55948, 6.84618,
150 + .01559, .00626, 218.33928, 7.34396, 6.45536,
151 + 5.72020, 7.06825, 7.35249,
152 + .01584, .00640, 233.40875, 7.84058, 6.95003,
153 + 6.22257, 7.56709, 7.84906,
154 + .01610, .00652, 249.19123, 8.36443, 7.47335,
155 + 6.75585, 8.09313, 8.37285,
156 + .01635, .00664, 264.98600, 8.89714, 8.00402,
157 + 7.29409, 8.62797, 8.90550,
158 + .01659, .00676, 280.58117, 9.42678, 8.53306,
159 + 7.83229, 9.15960, 9.43509,
160 + .01682, .00687, 295.56584, 9.94280, 9.04758,
161 + 8.35420, 9.67747, 9.95105 /
162 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
163 + .01706, .00699, 311.08375, 10.48212, 9.58572,
164 + 8.90027, 10.21864, 10.49032,
165 + .01729, .00710, 326.79366, 11.03299, 10.13596,
166 + 9.45914, 10.77130, 11.04113,
167 + .01752, .00721, 341.92526, 11.57103, 10.67226,
168 + 10.00206, 11.31104, 11.57913,
169 + .01774, .00733, 356.82244, 12.10243, 11.20377,
170 + 10.54233, 11.84402, 12.11047,
171 + .01796, .00743, 371.81968, 12.64661, 11.74608,
172 + 11.09075, 12.38979, 12.65461 /
173 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
174 + .01285, .00492, .93389, .65854, .00000,
175 + .00000, .35676, .66326,
176 + .01307, .00502, 2.05560, .69183, .00000,
177 + .00000, .39263, .69654,
178 + .01341, .00516, 4.07752, .75240, .02242,
179 + .00000, .45696, .75710,
180 + .01367, .00528, 5.91632, .80624, .07013,
181 + .00000, .51352, .81095,
182 + .01394, .00539, 8.20181, .87177, .14583,
183 + .00000, .58185, .87647,
184 + .01419, .00550, 10.42664, .93692, .20757,
185 + .00000, .64938, .94163,
186 + .01442, .00561, 12.81537, 1.00679, .27487,
187 + .00000, .72149, 1.01148,
188 + .01468, .00573, 15.70895, 1.08832, .35793,
189 + .00000, .80535, 1.09300 /
190 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
191 + .01489, .00583, 18.40249, 1.16695, .43294,
192 + .00000, .88598, 1.17161,
193 + .01511, .00593, 21.28272, 1.24872, .51467,
194 + .00000, .96966, 1.25338,
195 + .01528, .00601, 23.69209, 1.31838, .58232,
196 + .00000, 1.04081, 1.32302,
197 + .01565, .00618, 29.32409, 1.48070, .74272,
198 + .00000, 1.20625, 1.48533,
199 + .01599, .00634, 34.64545, 1.63641, .89745,
200 + .14666, 1.36461, 1.64101,
201 + .01636, .00652, 41.17772, 1.82839, 1.08844,
202 + .38115, 1.55948, 1.83297,
203 + .01676, .00670, 48.63742, 2.04940, 1.30850,
204 + .61006, 1.78345, 2.05396,
205 + .01713, .00687, 55.88083, 2.26810, 1.52340,
206 + .82584, 2.00477, 2.27264 /
207 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
208 + .01750, .00705, 63.75892, 2.50741, 1.76013,
209 + 1.06956, 2.24666, 2.51193,
210 + .01782, .00721, 70.76263, 2.72105, 1.97317,
211 + 1.29188, 2.46240, 2.72555,
212 + .01821, .00740, 79.67664, 2.99756, 2.24728,
213 + 1.57241, 2.74139, 3.00202,
214 + .01854, .00757, 87.94570, 3.25812, 2.50486,
215 + 1.83438, 3.00412, 3.26255,
216 + .01886, .00773, 95.98434, 3.51232, 2.75838,
217 + 2.09617, 3.26026, 3.51673,
218 + .01928, .00793, 106.53264, 3.85262, 3.09558,
219 + 2.43920, 3.60299, 3.85699,
220 + .01967, .00812, 116.89896, 4.19210, 3.43213,
221 + 2.78154, 3.94470, 4.19644,
222 + .02004, .00830, 127.10710, 4.52947, 3.76820,
223 + 3.12563, 4.28412, 4.53379 /
224 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
225 + .02041, .00849, 137.55272, 4.88171, 4.11736,
226 + 3.47969, 4.63837, 4.88599,
227 + .02078, .00867, 148.16557, 5.24375, 4.47718,
228 + 3.84573, 5.00235, 5.24801,
229 + .02114, .00885, 158.54770, 5.60236, 4.83396,
230 + 4.20880, 5.36276, 5.60659,
231 + .02147, .00903, 168.49906, 5.95191, 5.18093,
232 + 4.56044, 5.71397, 5.95612,
233 + .02181, .00919, 178.85248, 6.31867, 5.54616,
234 + 4.93190, 6.08239, 6.32286,
235 + .02214, .00937, 189.13491, 6.68946, 5.91429,
236 + 5.30450, 6.45477, 6.69362,
237 + .02247, .00953, 199.22609, 7.05629, 6.27957,
238 + 5.67539, 6.82310, 7.06042,
239 + .02277, .00969, 208.85662, 7.41183, 6.63296,
240 + 6.03313, 7.18003, 7.41593 /
241 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
242 + .02309, .00985, 218.77248, 7.78169, 7.00090,
243 + 6.40576, 7.55129, 7.78578,
244 + .02341, .01001, 228.75375, 8.15775, 7.37542,
245 + 6.78546, 7.92871, 8.16182,
246 + .02370, .01016, 238.30689, 8.52327, 7.73866,
247 + 7.15244, 8.29550, 8.52732,
248 + .02399, .01031, 247.67208, 8.88297, 8.09746,
249 + 7.51653, 8.65640, 8.88700,
250 + .02428, .01046, 257.03849, 9.24954, 8.46169,
251 + 7.88412, 9.02415, 9.25354 /
252 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
253 + .01534, .00599, .95020, .59794, .00000,
254 + .00000, .32500, .60076,
255 + .01561, .00611, 2.01559, .62949, .00000,
256 + .00000, .35878, .63232,
257 + .01601, .00629, 3.90825, .68602, .02201,
258 + .00000, .41852, .68883,
259 + .01633, .00643, 5.60650, .73551, .06565,
260 + .00000, .47032, .73832,
261 + .01666, .00659, 7.69388, .79516, .13463,
262 + .00000, .53235, .79794,
263 + .01694, .00672, 9.70600, .85391, .19027,
264 + .00000, .59312, .85670,
265 + .01723, .00686, 11.84814, .91649, .25055,
266 + .00000, .65760, .91926,
267 + .01752, .00699, 14.42292, .98918, .32458,
268 + .00000, .73229, .99193 /
269 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
270 + .01780, .00712, 16.80147, 1.05881, .39103,
271 + .00000, .80362, 1.06157,
272 + .01805, .00725, 19.32933, 1.13100, .46314,
273 + .00000, .87743, 1.13375,
274 + .01826, .00734, 21.43208, 1.19222, .52257,
275 + .00000, .93991, 1.19497,
276 + .01870, .00755, 26.31147, 1.33422, .66281,
277 + .00000, 1.08457, 1.33695,
278 + .01910, .00775, 30.88033, 1.46963, .79726,
279 + .12706, 1.22221, 1.47234,
280 + .01955, .00797, 36.44018, 1.63566, .96225,
281 + .33009, 1.39069, 1.63835,
282 + .02003, .00820, 42.73610, 1.82566, 1.15122,
283 + .52670, 1.58320, 1.82834,
284 + .02047, .00843, 48.79899, 2.01256, 1.33464,
285 + .71089, 1.77230, 2.01522 /
286 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
287 + .02092, .00864, 55.34597, 2.21603, 1.53569,
288 + .91788, 1.97797, 2.21868,
289 + .02129, .00883, 61.12998, 2.39689, 1.71579,
290 + 1.10586, 2.16059, 2.39951,
291 + .02175, .00906, 68.44372, 2.62984, 1.94641,
292 + 1.34185, 2.39565, 2.63245,
293 + .02216, .00926, 75.18453, 2.84832, 2.16210,
294 + 1.56116, 2.61596, 2.85091,
295 + .02254, .00946, 81.70376, 3.06066, 2.37360,
296 + 1.77954, 2.82995, 3.06325,
297 + .02304, .00971, 90.20541, 3.34362, 2.65358,
298 + 2.06426, 3.11494, 3.34619,
299 + .02350, .00994, 98.50871, 3.62458, 2.93174,
300 + 2.34710, 3.39779, 3.62713,
301 + .02394, .01017, 106.64163, 3.90266, 3.20840,
302 + 2.63030, 3.67761, 3.90520 /
303 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
304 + .02438, .01039, 114.91626, 4.19176, 3.49458,
305 + 2.92035, 3.96839, 4.19427,
306 + .02482, .01062, 123.28115, 4.48775, 3.78837,
307 + 3.21912, 4.26602, 4.49026,
308 + .02524, .01083, 131.42528, 4.77986, 4.07863,
309 + 3.51439, 4.55964, 4.78235,
310 + .02564, .01103, 139.19379, 5.06354, 4.35987,
311 + 3.79928, 4.84474, 5.06603,
312 + .02604, .01125, 147.24423, 5.36027, 4.65501,
313 + 4.09935, 5.14285, 5.36274,
314 + .02644, .01145, 155.20204, 5.65918, 4.95143,
315 + 4.39923, 5.44311, 5.66164,
316 + .02682, .01165, 162.98349, 5.95406, 5.24474,
317 + 4.69694, 5.73925, 5.95650,
318 + .02718, .01185, 170.37903, 6.23895, 5.52759,
319 + 4.98315, 6.02532, 6.24140 /
320 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
321 + .02756, .01203, 177.96699, 6.53452, 5.82130,
322 + 5.28048, 6.32206, 6.53695,
323 + .02792, .01223, 185.57861, 6.83421, 6.11946,
324 + 5.58265, 6.62290, 6.83664,
325 + .02827, .01242, 192.83545, 7.12466, 6.40778,
326 + 5.87381, 6.91442, 7.12708,
327 + .02861, .01260, 199.93193, 7.40986, 6.69201,
328 + 6.16214, 7.20064, 7.41228,
329 + .02895, .01278, 206.99998, 7.69965, 6.97965,
330 + 6.45230, 7.49144, 7.70206 /
331 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
332 + .01740, .00689, .96260, .55858, .00000,
333 + .00000, .30454, .56039,
334 + .01771, .00703, 1.98827, .58889, .00000,
335 + .00000, .33681, .59068,
336 + .01817, .00725, 3.79299, .64260, .02178,
337 + .00000, .39340, .64438,
338 + .01852, .00742, 5.39723, .68914, .06268,
339 + .00000, .44200, .69091,
340 + .01889, .00759, 7.35337, .74486, .12721,
341 + .00000, .49986, .74663,
342 + .01923, .00775, 9.22573, .79942, .17884,
343 + .00000, .55620, .80117,
344 + .01955, .00790, 11.20697, .85723, .23455,
345 + .00000, .61571, .85897,
346 + .01988, .00807, 13.57506, .92417, .30271,
347 + .00000, .68443, .92590 /
348 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
349 + .02018, .00822, 15.75063, .98801, .36362,
350 + .00000, .74978, .98974,
351 + .02048, .00835, 18.05269, 1.05400, .42955,
352 + .00000, .81722, 1.05572,
353 + .02071, .00847, 19.95980, 1.10981, .48371,
354 + .00000, .87415, 1.11152,
355 + .02122, .00872, 24.36196, 1.23882, .61109,
356 + .00000, 1.00552, 1.24052,
357 + .02167, .00895, 28.45761, 1.36131, .73269,
358 + .11452, 1.13002, 1.36300,
359 + .02219, .00921, 33.40994, 1.51090, .88128,
360 + .29776, 1.28178, 1.51258,
361 + .02273, .00947, 38.98385, 1.68137, 1.05074,
362 + .47416, 1.45447, 1.68304,
363 + .02322, .00972, 44.31934, 1.84833, 1.21450,
364 + .63867, 1.62339, 1.84998 /
365 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
366 + .02373, .00998, 50.05112, 2.02945, 1.39335,
367 + .82291, 1.80644, 2.03109,
368 + .02416, .01019, 55.09209, 2.18992, 1.55307,
369 + .98970, 1.96849, 2.19155,
370 + .02468, .01046, 61.43618, 2.39589, 1.75687,
371 + 1.19831, 2.17634, 2.39753,
372 + .02514, .01070, 67.25590, 2.58844, 1.94683,
373 + 1.39149, 2.37051, 2.59006,
374 + .02558, .01091, 72.86348, 2.77506, 2.13260,
375 + 1.58337, 2.55859, 2.77668,
376 + .02613, .01121, 80.14339, 3.02290, 2.37771,
377 + 1.83267, 2.80826, 3.02452,
378 + .02665, .01147, 87.22150, 3.26819, 2.62039,
379 + 2.07947, 3.05521, 3.26980,
380 + .02715, .01174, 94.12769, 3.51025, 2.86109,
381 + 2.32592, 3.29881, 3.51185 /
382 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
383 + .02766, .01199, 101.12481, 3.76112, 3.10928,
384 + 2.57748, 3.55118, 3.76271,
385 + .02815, .01225, 108.17257, 4.01727, 3.36338,
386 + 2.83593, 3.80876, 4.01885,
387 + .02862, .01250, 115.01054, 4.26937, 3.61377,
388 + 3.09068, 4.06222, 4.27096,
389 + .02907, .01273, 121.51010, 4.51357, 3.85574,
390 + 3.33580, 4.30767, 4.51515,
391 + .02952, .01297, 128.22649, 4.76842, 4.10910,
392 + 3.59343, 4.56374, 4.77001,
393 + .02997, .01321, 134.84254, 5.02449, 4.36292,
394 + 3.85021, 4.82102, 5.02608,
395 + .03040, .01344, 141.29508, 5.27658, 4.61355,
396 + 4.10464, 5.07423, 5.27816,
397 + .03081, .01365, 147.40906, 5.51959, 4.85470,
398 + 4.34867, 5.31828, 5.52117 /
399 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
400 + .03123, .01388, 153.66601, 5.77120, 5.10462,
401 + 4.60169, 5.57093, 5.77277,
402 + .03164, .01409, 159.92671, 6.02582, 5.35785,
403 + 4.85835, 5.82657, 6.02739,
404 + .03204, .01431, 165.87830, 6.27206, 5.60219,
405 + 5.10510, 6.07376, 6.27364,
406 + .03242, .01451, 171.68816, 6.51349, 5.84271,
407 + 5.34914, 6.31608, 6.51508,
408 + .03281, .01471, 177.45690, 6.75827, 6.08559,
409 + 5.59414, 6.56176, 6.75985 /
410 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
411 + .01919, .00769, .97316, .52998, .00000,
412 + .00000, .28968, .53113,
413 + .01953, .00785, 1.96817, .55930, .00000,
414 + .00000, .32081, .56043,
415 + .02003, .00809, 3.70678, .61085, .02163,
416 + .00000, .37501, .61197,
417 + .02043, .00828, 5.24118, .65520, .06049,
418 + .00000, .42125, .65631,
419 + .02084, .00848, 7.10055, .70803, .12174,
420 + .00000, .47603, .70913,
421 + .02120, .00865, 8.87047, .75949, .17042,
422 + .00000, .52914, .76059,
423 + .02155, .00883, 10.73437, .81383, .22279,
424 + .00000, .58504, .81492,
425 + .02193, .00901, 12.95249, .87658, .28669,
426 + .00000, .64941, .87767 /
427 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
428 + .02227, .00918, 14.98151, .93622, .34359,
429 + .00000, .71043, .93729,
430 + .02259, .00934, 17.12106, .99775, .40505,
431 + .00000, .77328, .99882,
432 + .02284, .00947, 18.88790, 1.04965, .45544,
433 + .00000, .82622, 1.05073,
434 + .02341, .00975, 22.94942, 1.16934, .57359,
435 + .00000, .94805, 1.17040,
436 + .02391, .01000, 26.70956, 1.28259, .68599,
437 + .10551, 1.06314, 1.28365,
438 + .02447, .01028, 31.23335, 1.42046, .82292,
439 + .27467, 1.20301, 1.42150,
440 + .02507, .01059, 36.30060, 1.57706, .97855,
441 + .43679, 1.36163, 1.57810,
442 + .02561, .01086, 41.12811, 1.72990, 1.12844,
443 + .58744, 1.51628, 1.73094 /
444 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
445 + .02618, .01116, 46.29318, 1.89525, 1.29167,
446 + .75569, 1.68339, 1.89629,
447 + .02665, .01140, 50.81962, 2.04138, 1.43709,
448 + .90765, 1.83097, 2.04242,
449 + .02722, .01170, 56.49492, 2.22847, 1.62213,
450 + 1.09714, 2.01976, 2.22950,
451 + .02773, .01196, 61.68185, 2.40286, 1.79415,
452 + 1.27215, 2.19563, 2.40389,
453 + .02820, .01220, 66.66518, 2.57154, 1.96201,
454 + 1.44563, 2.36565, 2.57257,
455 + .02882, .01252, 73.11161, 2.79498, 2.18292,
456 + 1.67039, 2.59074, 2.79601,
457 + .02939, .01283, 79.35715, 3.01552, 2.40107,
458 + 1.89233, 2.81281, 3.01656,
459 + .02993, .01311, 85.43242, 3.23268, 2.61695,
460 + 2.11345, 3.03137, 3.23371 /
461 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
462 + .03049, .01341, 91.56720, 3.45717, 2.83900,
463 + 2.33859, 3.25725, 3.45821,
464 + .03103, .01369, 97.72875, 3.68591, 3.06585,
465 + 2.56939, 3.48730, 3.68694,
466 + .03155, .01397, 103.69051, 3.91056, 3.28894,
467 + 2.79644, 3.71319, 3.91162,
468 + .03204, .01423, 109.34129, 4.12772, 3.50406,
469 + 3.01443, 3.93149, 4.12877,
470 + .03254, .01449, 115.16732, 4.35396, 3.72893,
471 + 3.24317, 4.15885, 4.35500,
472 + .03303, .01475, 120.89064, 4.58082, 3.95375,
473 + 3.47067, 4.38679, 4.58187,
474 + .03351, .01501, 126.46100, 4.80378, 4.17540,
475 + 3.69575, 4.61078, 4.80484,
476 + .03396, .01525, 131.72613, 5.01832, 4.38827,
477 + 3.91122, 4.82628, 5.01940 /
478 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
479 + .03441, .01549, 137.10351, 5.24013, 4.60854,
480 + 4.13429, 5.04904, 5.24120,
481 + .03487, .01574, 142.47343, 5.46423, 4.83140,
482 + 4.36024, 5.27406, 5.46532,
483 + .03530, .01597, 147.56646, 5.68061, 5.04607,
484 + 4.57708, 5.49130, 5.68169,
485 + .03572, .01620, 152.53127, 5.89250, 5.25715,
486 + 4.79132, 5.70403, 5.89360,
487 + .03614, .01642, 157.44872, 6.10695, 5.46991,
488 + 5.00599, 5.91930, 6.10806 /
489 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
490 + .02603, .01086, 1.01009, .45122, .00000,
491 + .00000, .24935, .45124,
492 + .02649, .01108, 1.91135, .47737, .00000,
493 + .00000, .27689, .47738,
494 + .02717, .01142, 3.45576, .52237, .02134,
495 + .00000, .32394, .52238,
496 + .02771, .01169, 4.78910, .56026, .05431,
497 + .00000, .36328, .56028,
498 + .02827, .01198, 6.37308, .60475, .10615,
499 + .00000, .40928, .60476,
500 + .02876, .01224, 7.85460, .64746, .14651,
501 + .00000, .45326, .64748,
502 + .02924, .01248, 9.39112, .69206, .18953,
503 + .00000, .49904, .69206,
504 + .02975, .01275, 11.19422, .74316, .24158,
505 + .00000, .55140, .74317 /
506 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
507 + .03020, .01298, 12.82090, .79118, .28745,
508 + .00000, .60048, .79120,
509 + .03064, .01321, 14.51742, .84043, .33665,
510 + .00000, .65074, .84045,
511 + .03099, .01339, 15.90414, .88166, .37670,
512 + .00000, .69276, .88169,
513 + .03175, .01378, 19.04989, .97597, .46985,
514 + .00000, .78872, .97601,
515 + .03242, .01414, 21.91717, 1.06429, .55755,
516 + .08086, .87844, 1.06434,
517 + .03319, .01455, 25.30955, 1.17072, .66330,
518 + .21245, .98640, 1.17078,
519 + .03400, .01498, 29.05163, 1.29036, .78223,
520 + .33675, 1.10758, 1.29043,
521 + .03474, .01537, 32.56262, 1.40587, .89556,
522 + .45099, 1.22446, 1.40596 /
523 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
524 + .03549, .01577, 36.27034, 1.52972, 1.01790,
525 + .57752, 1.34966, 1.52984,
526 + .03612, .01612, 39.48284, 1.63835, 1.12604,
527 + .69091, 1.45939, 1.63848,
528 + .03689, .01654, 43.46248, 1.77621, 1.26245,
529 + .83102, 1.59855, 1.77635,
530 + .03759, .01690, 47.05636, 1.90364, 1.38820,
531 + .95929, 1.72710, 1.90380,
532 + .03822, .01725, 50.47710, 2.02607, 1.51011,
533 + 1.08567, 1.85055, 2.02626,
534 + .03904, .01770, 54.85124, 2.18691, 1.66918,
535 + 1.24794, 2.01264, 2.18711,
536 + .03981, .01812, 59.04058, 2.34434, 1.82499,
537 + 1.40685, 2.17125, 2.34458,
538 + .04053, .01852, 63.07602, 2.49825, 1.97808,
539 + 1.56410, 2.32622, 2.49851 /
540 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
541 + .04127, .01892, 67.10698, 2.65612, 2.13431,
542 + 1.72287, 2.48514, 2.65640,
543 + .04199, .01932, 71.11814, 2.81587, 2.29284,
544 + 1.88456, 2.64588, 2.81617,
545 + .04269, .01970, 74.96491, 2.97175, 2.44772,
546 + 2.04258, 2.80269, 2.97208,
547 + .04334, .02006, 78.57750, 3.12141, 2.59607,
548 + 2.19325, 2.95322, 3.12176,
549 + .04400, .02043, 82.27520, 3.27647, 2.75031,
550 + 2.35054, 3.10913, 3.27685,
551 + .04466, .02079, 85.87477, 3.43096, 2.90350,
552 + 2.50589, 3.26446, 3.43137,
553 + .04529, .02114, 89.35501, 3.58202, 3.05378,
554 + 2.65887, 3.41628, 3.58244,
555 + .04588, .02147, 92.61811, 3.72654, 3.19727,
556 + 2.80443, 3.56154, 3.72699 /
557 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
558 + .04648, .02181, 95.92887, 3.87521, 3.34503,
559 + 2.95441, 3.71092, 3.87568,
560 + .04709, .02214, 99.21345, 4.02469, 3.49380,
561 + 3.10559, 3.86111, 4.02519,
562 + .04767, .02246, 102.30475, 4.16824, 3.63632,
563 + 3.24985, 4.00532, 4.16876,
564 + .04821, .02276, 105.30516, 4.30828, 3.77597,
565 + 3.39194, 4.14599, 4.30883,
566 + .04877, .02308, 108.25174, 4.44925, 3.91592,
567 + 3.53343, 4.28758, 4.44982 /
568 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
569 + .03541, .01539, 1.06041, .38625, .00000,
570 + .00000, .21670, .38625,
571 + .03602, .01571, 1.87110, .40916, .00000,
572 + .00000, .24072, .40917,
573 + .03694, .01620, 3.23676, .44774, .02121,
574 + .00000, .28092, .44777,
575 + .03765, .01657, 4.39029, .47965, .04882,
576 + .00000, .31399, .47970,
577 + .03841, .01698, 5.73227, .51663, .09229,
578 + .00000, .35216, .51670,
579 + .03906, .01734, 6.96441, .55169, .12540,
580 + .00000, .38823, .55178,
581 + .03971, .01768, 8.22176, .58788, .16040,
582 + .00000, .42537, .58799,
583 + .04041, .01806, 9.67555, .62906, .20239,
584 + .00000, .46753, .62920 /
585 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
586 + .04101, .01839, 10.96798, .66733, .23900,
587 + .00000, .50664, .66748,
588 + .04160, .01872, 12.30027, .70634, .27805,
589 + .00000, .54646, .70653,
590 + .04207, .01898, 13.37748, .73877, .30960,
591 + .00000, .57950, .73896,
592 + .04309, .01953, 15.78689, .81232, .38237,
593 + .00000, .65435, .81255,
594 + .04400, .02004, 17.94928, .88046, .45016,
595 + .06031, .72361, .88072,
596 + .04503, .02061, 20.45939, .96174, .53107,
597 + .16196, .80609, .96205,
598 + .04611, .02122, 23.18346, 1.05213, .62111,
599 + .25658, .89770, 1.05249,
600 + .04710, .02177, 25.69765, 1.13843, .70598,
601 + .34257, .98507, 1.13883 /
602 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
603 + .04811, .02234, 28.31592, 1.23013, .79674,
604 + .43698, 1.07784, 1.23057,
605 + .04895, .02281, 30.55709, 1.30990, .87634,
606 + .52092, 1.15847, 1.31038,
607 + .04999, .02340, 33.29758, 1.41025, .97586,
608 + .62367, 1.25984, 1.41077,
609 + .05091, .02391, 35.74056, 1.50217, 1.06679,
610 + .71690, 1.35265, 1.50275,
611 + .05176, .02440, 38.04292, 1.58991, 1.15436,
612 + .80818, 1.44119, 1.59051,
613 + .05285, .02502, 40.94998, 1.70414, 1.26761,
614 + .92427, 1.55642, 1.70480,
615 + .05388, .02560, 43.69962, 1.81500, 1.37758,
616 + 1.03699, 1.66819, 1.81572,
617 + .05486, .02615, 46.32066, 1.92257, 1.48485,
618 + 1.14773, 1.77659, 1.92334 /
619 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
620 + .05583, .02671, 48.90752, 2.03200, 1.59339,
621 + 1.25857, 1.88684, 2.03282,
622 + .05680, .02726, 51.45585, 2.14194, 1.70275,
623 + 1.37066, 1.99757, 2.14280,
624 + .05770, .02779, 53.87621, 2.24847, 1.80889,
625 + 1.47948, 2.10485, 2.24939,
626 + .05858, .02828, 56.12585, 2.35005, 1.90981,
627 + 1.58245, 2.20711, 2.35101,
628 + .05946, .02879, 58.41067, 2.45468, 2.01416,
629 + 1.68938, 2.31242, 2.45569,
630 + .06032, .02928, 60.61204, 2.55821, 2.11708,
631 + 1.79423, 2.41660, 2.55927,
632 + .06115, .02976, 62.72524, 2.65890, 2.21750,
633 + 1.89694, 2.51791, 2.66000,
634 + .06194, .03021, 64.68849, 2.75464, 2.31281,
635 + 1.99407, 2.61423, 2.75580 /
636 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
637 + .06273, .03067, 66.66591, 2.85263, 2.41044,
638 + 2.09363, 2.71278, 2.85382,
639 + .06353, .03112, 68.61366, 2.95064, 2.50825,
640 + 2.19349, 2.81134, 2.95187,
641 + .06427, .03155, 70.43039, 3.04420, 2.60138,
642 + 2.28818, 2.90544, 3.04549,
643 + .06500, .03197, 72.18600, 3.13515, 2.69233,
644 + 2.38116, 2.99688, 3.13647,
645 + .06573, .03239, 73.89249, 3.22613, 2.78289,
646 + 2.47312, 3.08836, 3.22750 /
647 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
648 + .04243, .01892, 1.10339, .35385, .00000,
649 + .00000, .20063, .35424,
650 + .04315, .01930, 1.86313, .37484, .00000,
651 + .00000, .22260, .37526,
652 + .04424, .01990, 3.13005, .40973, .02105,
653 + .00000, .25894, .41019,
654 + .04508, .02037, 4.18617, .43834, .04573,
655 + .00000, .28857, .43884,
656 + .04598, .02086, 5.39888, .47128, .08471,
657 + .00000, .32257, .47182,
658 + .04676, .02130, 6.49969, .50227, .11401,
659 + .00000, .35446, .50285,
660 + .04752, .02172, 7.61170, .53410, .14482,
661 + .00000, .38712, .53471,
662 + .04834, .02219, 8.88562, .57015, .18164,
663 + .00000, .42405, .57080 /
664 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
665 + .04906, .02259, 10.00788, .60345, .21352,
666 + .00000, .45809, .60413,
667 + .04976, .02298, 11.15634, .63728, .24743,
668 + .00000, .49263, .63799,
669 + .05032, .02330, 12.07866, .66525, .27469,
670 + .00000, .52116, .66600,
671 + .05153, .02399, 14.12356, .72844, .33730,
672 + .00000, .58549, .72924,
673 + .05261, .02460, 15.94223, .78661, .39525,
674 + .04980, .64464, .78746,
675 + .05383, .02530, 18.02675, .85555, .46400,
676 + .13677, .71466, .85647,
677 + .05511, .02603, 20.26598, .93174, .54002,
678 + .21701, .79192, .93271,
679 + .05628, .02671, 22.31131, 1.00398, .61119,
680 + .28942, .86512, 1.00502 /
681 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
682 + .05749, .02739, 24.42272, 1.08031, .68690,
683 + .36851, .94239, 1.08141,
684 + .05849, .02798, 26.21628, 1.14638, .75296,
685 + .43850, 1.00924, 1.14754,
686 + .05971, .02869, 28.39140, 1.22905, .83512,
687 + .52368, 1.09282, 1.23027,
688 + .06080, .02931, 30.31443, 1.30437, .90977,
689 + .60055, 1.16893, 1.30565,
690 + .06181, .02990, 32.11552, 1.37594, .98137,
691 + .67550, 1.24122, 1.37729,
692 + .06310, .03064, 34.37125, 1.46865, 1.07347,
693 + .77030, 1.33481, 1.47007,
694 + .06430, .03135, 36.48783, 1.55813, 1.16242,
695 + .86185, 1.42512, 1.55962,
696 + .06546, .03202, 38.49206, 1.64457, 1.24881,
697 + .95141, 1.51230, 1.64612 /
698 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
699 + .06660, .03269, 40.45473, 1.73205, 1.33576,
700 + 1.04056, 1.60051, 1.73367,
701 + .06773, .03335, 42.37568, 1.81954, 1.42301,
702 + 1.13034, 1.68871, 1.82123,
703 + .06882, .03398, 44.18885, 1.90397, 1.50729,
704 + 1.21711, 1.77380, 1.90572,
705 + .06984, .03457, 45.86268, 1.98411, 1.58710,
706 + 1.29888, 1.85455, 1.98593,
707 + .07087, .03517, 47.55424, 2.06638, 1.66933,
708 + 1.38348, 1.93743, 2.06825,
709 + .07188, .03577, 49.17286, 2.14741, 1.75007,
710 + 1.46606, 2.01905, 2.14936,
711 + .07285, .03633, 50.71957, 2.22597, 1.82862,
712 + 1.54672, 2.09816, 2.22798,
713 + .07377, .03687, 52.14766, 2.30039, 1.90286,
714 + 1.62269, 2.17309, 2.30245 /
715 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
716 + .07471, .03741, 53.57920, 2.37630, 1.97869,
717 + 1.70031, 2.24951, 2.37841,
718 + .07564, .03795, 54.98258, 2.45198, 2.05440,
719 + 1.77792, 2.32570, 2.45416,
720 + .07652, .03848, 56.28358, 2.52396, 2.12623,
721 + 1.85124, 2.39817, 2.52620,
722 + .07736, .03896, 57.53744, 2.59378, 2.19621,
723 + 1.92308, 2.46843, 2.59607,
724 + .07822, .03947, 58.74735, 2.66335, 2.26562,
725 + 1.99384, 2.53843, 2.66569 /
726 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
727 + .04825, .02190, 1.14665, .33265, .00000,
728 + .00000, .19018, .33358,
729 + .04904, .02235, 1.87136, .35227, .00000,
730 + .00000, .21070, .35322,
731 + .05029, .02303, 3.06981, .38465, .02072,
732 + .00000, .24438, .38566,
733 + .05123, .02356, 4.05899, .41105, .04342,
734 + .00000, .27172, .41209,
735 + .05224, .02414, 5.18374, .44130, .07939,
736 + .00000, .30296, .44240,
737 + .05312, .02465, 6.19610, .46966, .10617,
738 + .00000, .33211, .47079,
739 + .05399, .02514, 7.21111, .49863, .13423,
740 + .00000, .36186, .49981,
741 + .05491, .02567, 8.36586, .53136, .16767,
742 + .00000, .39539, .53258 /
743 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
744 + .05572, .02613, 9.37630, .56145, .19651,
745 + .00000, .42617, .56270,
746 + .05651, .02659, 10.40470, .59195, .22707,
747 + .00000, .45731, .59325,
748 + .05714, .02696, 11.22647, .61709, .25158,
749 + .00000, .48296, .61842,
750 + .05851, .02775, 13.03639, .67367, .30768,
751 + .00000, .54060, .67506,
752 + .05973, .02846, 14.63567, .72549, .35935,
753 + .04303, .59333, .72696,
754 + .06110, .02927, 16.45065, .78665, .42040,
755 + .12067, .65548, .78819,
756 + .06255, .03012, 18.38550, .85390, .48756,
757 + .19181, .72372, .85553,
758 + .06388, .03089, 20.13900, .91736, .55013,
759 + .25570, .78805, .91905 /
760 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
761 + .06522, .03168, 21.93722, .98411, .61643,
762 + .32521, .85569, .98588,
763 + .06636, .03234, 23.45601, 1.04169, .67407,
764 + .38651, .91398, 1.04354,
765 + .06774, .03316, 25.28641, 1.11344, .74547,
766 + .46080, .98656, 1.11535,
767 + .06896, .03388, 26.89455, 1.17853, .81007,
768 + .52755, 1.05239, 1.18053,
769 + .07009, .03454, 28.39370, 1.24020, .87185,
770 + .59246, 1.11473, 1.24226,
771 + .07154, .03540, 30.25958, 1.31975, .95100,
772 + .67422, 1.19510, 1.32191,
773 + .07290, .03619, 31.99971, 1.39624, 1.02714,
774 + .75286, 1.27233, 1.39847,
775 + .07419, .03696, 33.63918, 1.46985, 1.10083,
776 + .82953, 1.34664, 1.47216 /
777 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
778 + .07548, .03772, 35.23492, 1.54407, 1.17473,
779 + .90555, 1.42155, 1.54646,
780 + .07675, .03847, 36.78904, 1.61805, 1.24861,
781 + .98186, 1.49619, 1.62053,
782 + .07796, .03918, 38.24897, 1.68922, 1.31979,
783 + 1.05538, 1.56797, 1.69176,
784 + .07910, .03986, 39.58952, 1.75655, 1.38696,
785 + 1.12443, 1.63587, 1.75917,
786 + .08025, .04054, 40.93916, 1.82547, 1.45598,
787 + 1.19569, 1.70536, 1.82817,
788 + .08139, .04121, 42.22353, 1.89315, 1.52352,
789 + 1.26502, 1.77359, 1.89592,
790 + .08247, .04185, 43.44661, 1.95860, 1.58908,
791 + 1.33257, 1.83955, 1.96144,
792 + .08350, .04246, 44.57035, 2.02040, 1.65087,
793 + 1.39602, 1.90184, 2.02331 /
794 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
795 + .08454, .04307, 45.69261, 2.08330, 1.71380,
796 + 1.46067, 1.96522, 2.08628,
797 + .08558, .04369, 46.78868, 2.14586, 1.77651,
798 + 1.52518, 2.02825, 2.14890,
799 + .08656, .04427, 47.79974, 2.20520, 1.83583,
800 + 1.58594, 2.08803, 2.20830,
801 + .08750, .04482, 48.77231, 2.26264, 1.89354,
802 + 1.64539, 2.14590, 2.26582,
803 + .08845, .04538, 49.70517, 2.31971, 1.95060,
804 + 1.70376, 2.20338, 2.32294 /
805 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
806 + .05332, .02466, 1.19836, .31825, .00000,
807 + .00000, .18265, .31919,
808 + .05419, .02516, 1.89820, .33680, .00000,
809 + .00000, .20202, .33779,
810 + .05556, .02593, 3.04230, .36727, .02020,
811 + .00000, .23371, .36833,
812 + .05660, .02653, 3.97887, .39201, .04143,
813 + .00000, .25930, .39312,
814 + .05771, .02717, 5.03518, .42026, .07517,
815 + .00000, .28843, .42142,
816 + .05869, .02774, 5.97948, .44662, .10007,
817 + .00000, .31555, .44784,
818 + .05963, .02829, 6.92041, .47347, .12612,
819 + .00000, .34311, .47475,
820 + .06065, .02888, 7.98471, .50374, .15706,
821 + .00000, .37411, .50507 /
822 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
823 + .06154, .02941, 8.91093, .53146, .18364,
824 + .00000, .40245, .53285,
825 + .06241, .02991, 9.84928, .55950, .21178,
826 + .00000, .43109, .56093,
827 + .06311, .03033, 10.59599, .58255, .23427,
828 + .00000, .45461, .58402,
829 + .06461, .03120, 12.23155, .63428, .28561,
830 + .00000, .50732, .63584,
831 + .06595, .03199, 13.66921, .68149, .33271,
832 + .03814, .55536, .68312,
833 + .06747, .03289, 15.28721, .73698, .38815,
834 + .10895, .61177, .73871,
835 + .06906, .03384, 17.00113, .79776, .44892,
836 + .17350, .67347, .79958,
837 + .07051, .03470, 18.54419, .85485, .50528,
838 + .23121, .73139, .85678 /
839 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
840 + .07199, .03557, 20.11789, .91473, .56480,
841 + .29381, .79206, .91674,
842 + .07323, .03631, 21.44072, .96621, .61639,
843 + .34883, .84421, .96829,
844 + .07473, .03720, 23.02659, 1.03014, .68008,
845 + .41529, .90892, 1.03232,
846 + .07608, .03800, 24.41249, 1.08794, .73752,
847 + .47480, .96740, 1.09021,
848 + .07732, .03874, 25.69942, 1.14257, .79230,
849 + .53254, 1.02265, 1.14491,
850 + .07890, .03968, 27.29276, 1.21279, .86225,
851 + .60499, 1.09363, 1.21523,
852 + .08039, .04057, 28.77091, 1.28007, .92932,
853 + .67446, 1.16161, 1.28262,
854 + .08180, .04140, 30.15760, 1.34464, .99404,
855 + .74200, 1.22684, 1.34728 /
856 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
857 + .08321, .04224, 31.50027, 1.40952, 1.05874,
858 + .80874, 1.29237, 1.41226,
859 + .08459, .04306, 32.80249, 1.47403, 1.12325,
860 + .87556, 1.35749, 1.47687,
861 + .08591, .04384, 34.02078, 1.53592, 1.18523,
862 + .93978, 1.41995, 1.53884,
863 + .08715, .04459, 35.13428, 1.59430, 1.24356,
864 + .99991, 1.47887, 1.59730,
865 + .08840, .04533, 36.25171, 1.65392, 1.30337,
866 + 1.06184, 1.53903, 1.65702,
867 + .08964, .04607, 37.30992, 1.71232, 1.36174,
868 + 1.12192, 1.59794, 1.71549,
869 + .09082, .04676, 38.31461, 1.76867, 1.41828,
870 + 1.18036, 1.65477, 1.77192,
871 + .09194, .04743, 39.23384, 1.82175, 1.47143,
872 + 1.23509, 1.70831, 1.82508 /
873 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
874 + .09307, .04810, 40.14898, 1.87566, 1.52548,
875 + 1.29077, 1.76267, 1.87907,
876 + .09419, .04876, 41.03977, 1.92917, 1.57920,
877 + 1.34621, 1.81663, 1.93266,
878 + .09526, .04939, 41.85760, 1.97980, 1.62992,
879 + 1.39831, 1.86767, 1.98337,
880 + .09628, .05000, 42.64302, 2.02876, 1.67919,
881 + 1.44923, 1.91704, 2.03240,
882 + .09730, .05060, 43.39228, 2.07726, 1.72778,
883 + 1.49907, 1.96593, 2.08097 /
884 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
885 + .07290, .03581, 1.39998, .27825, .00000,
886 + .00000, .16166, .28008,
887 + .07407, .03650, 2.01741, .29353, .00000,
888 + .00000, .17760, .29544,
889 + .07589, .03761, 2.99325, .31833, .01768,
890 + .00000, .20333, .32035,
891 + .07729, .03845, 3.77059, .33818, .03466,
892 + .00000, .22386, .34027,
893 + .07878, .03936, 4.62427, .36062, .06199,
894 + .00000, .24702, .36282,
895 + .08009, .04015, 5.37070, .38133, .08164,
896 + .00000, .26833, .38361,
897 + .08136, .04092, 6.09938, .40222, .10201,
898 + .00000, .28978, .40458,
899 + .08273, .04177, 6.90784, .42558, .12605,
900 + .00000, .31373, .42803 /
901 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
902 + .08392, .04250, 7.59885, .44674, .14644,
903 + .00000, .33539, .44927,
904 + .08509, .04321, 8.28823, .46801, .16788,
905 + .00000, .35713, .47060,
906 + .08602, .04378, 8.82935, .48534, .18489,
907 + .00000, .37485, .48800,
908 + .08804, .04501, 9.99262, .52387, .22333,
909 + .00000, .41417, .52667,
910 + .08982, .04610, 10.99919, .55860, .25816,
911 + .02445, .44957, .56152,
912 + .09184, .04733, 12.09705, .59891, .29866,
913 + .07702, .49064, .60197,
914 + .09396, .04862, 13.23526, .64248, .34246,
915 + .12410, .53497, .64570,
916 + .09589, .04980, 14.23712, .68287, .38255,
917 + .16562, .57602, .68621 /
918 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
919 + .09785, .05099, 15.23966, .72471, .42438,
920 + .21017, .61854, .72820,
921 + .09949, .05199, 16.06861, .76033, .46031,
922 + .24896, .65471, .76395,
923 + .10148, .05321, 17.04426, .80407, .50415,
924 + .29526, .69910, .80783,
925 + .10325, .05427, 17.88114, .84316, .54323,
926 + .33624, .73876, .84705,
927 + .10488, .05526, 18.64787, .87978, .58021,
928 + .37569, .77590, .88379,
929 + .10694, .05651, 19.57928, .92633, .62687,
930 + .42462, .82309, .93049,
931 + .10889, .05769, 20.42748, .97042, .67113,
932 + .47102, .86778, .97473,
933 + .11072, .05879, 21.21138, 1.01234, .71345,
934 + .51574, .91024, 1.01677 /
935 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
936 + .11255, .05990, 21.95592, 1.05399, .75529,
937 + .55943, .95244, 1.05856,
938 + .11435, .06098, 22.66710, 1.09502, .79663,
939 + .60278, .99399, 1.09973,
940 + .11606, .06201, 23.32259, 1.13401, .83599,
941 + .64409, 1.03349, 1.13886,
942 + .11765, .06296, 23.91131, 1.17045, .87269,
943 + .68240, 1.07039, 1.17542,
944 + .11927, .06393, 24.49530, 1.20740, .91006,
945 + .72160, 1.10779, 1.21249,
946 + .12085, .06488, 25.03810, 1.24323, .94618,
947 + .75925, 1.14407, 1.24845,
948 + .12236, .06578, 25.54796, 1.27757, .98094,
949 + .79565, 1.17883, 1.28291,
950 + .12378, .06663, 26.00651, 1.30966, 1.01335,
951 + .82946, 1.21131, 1.31509 /
952 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
953 + .12523, .06748, 26.45740, 1.34201, 1.04608,
954 + .86362, 1.24405, 1.34755,
955 + .12665, .06834, 26.89085, 1.37389, 1.07840,
956 + .89742, 1.27633, 1.37955,
957 + .12800, .06913, 27.28154, 1.40382, 1.10867,
958 + .92893, 1.30661, 1.40958,
959 + .12929, .06990, 27.65484, 1.43262, 1.13794,
960 + .95959, 1.33577, 1.43848,
961 + .13059, .07066, 28.00256, 1.46089, 1.16655,
962 + .98934, 1.36438, 1.46685 /
963 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
964 + .10010, .05241, 1.70025, .24481, .00000,
965 + .00000, .14238, .24807,
966 + .10167, .05340, 2.22696, .25698, .00000,
967 + .00000, .15506, .26035,
968 + .10412, .05495, 3.02873, .27657, .01274,
969 + .00000, .17541, .28011,
970 + .10599, .05613, 3.64445, .29205, .02606,
971 + .00000, .19146, .29575,
972 + .10800, .05739, 4.30078, .30940, .04781,
973 + .00000, .20939, .31324,
974 + .10976, .05849, 4.86103, .32520, .06299,
975 + .00000, .22570, .32918,
976 + .11146, .05956, 5.39543, .34099, .07861,
977 + .00000, .24194, .34509,
978 + .11329, .06071, 5.97547, .35849, .09687,
979 + .00000, .25994, .36273 /
980 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
981 + .11489, .06171, 6.46137, .37414, .11213,
982 + .00000, .27602, .37852,
983 + .11646, .06269, 6.93756, .38976, .12808,
984 + .00000, .29204, .39426,
985 + .11769, .06347, 7.30554, .40237, .14059,
986 + .00000, .30497, .40697,
987 + .12038, .06513, 8.07933, .43011, .16858,
988 + .00000, .33338, .43492,
989 + .12275, .06659, 8.74006, .45472, .19357,
990 + .01283, .35858, .45972,
991 + .12541, .06824, 9.42882, .48290, .22221,
992 + .05079, .38740, .48812,
993 + .12821, .06996, 10.12502, .51289, .25272,
994 + .08415, .41806, .51834,
995 + .13074, .07151, 10.72079, .54024, .28019,
996 + .11311, .44600, .54589 /
997 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
998 + .13329, .07307, 11.30323, .56820, .30850,
999 + .14381, .47455, .57406,
1000 + .13543, .07438, 11.77512, .59172, .33252,
1001 + .17022, .49856, .59776,
1002 + .13801, .07594, 12.31730, .62020, .36145,
1003 + .20133, .52763, .62646,
1004 + .14028, .07733, 12.77122, .64532, .38690,
1005 + .22852, .55326, .65177,
1006 + .14239, .07859, 13.18013, .66862, .41075,
1007 + .25445, .57702, .67523,
1008 + .14504, .08019, 13.66384, .69781, .44045,
1009 + .28618, .60680, .70465,
1010 + .14752, .08168, 14.09347, .72510, .46825,
1011 + .31589, .63464, .73215,
1012 + .14986, .08307, 14.48279, .75075, .49455,
1013 + .34422, .66080, .75798 /
1014 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
1015 + .15218, .08445, 14.84224, .77589, .52021,
1016 + .37155, .68646, .78333,
1017 + .15444, .08580, 15.17825, .80038, .54530,
1018 + .39839, .71144, .80800,
1019 + .15657, .08706, 15.48132, .82341, .56895,
1020 + .42372, .73492, .83121,
1021 + .15858, .08825, 15.74590, .84467, .59076,
1022 + .44695, .75662, .85265,
1023 + .16059, .08944, 16.00402, .86605, .61277,
1024 + .47053, .77843, .87419,
1025 + .16256, .09059, 16.23642, .88651, .63380,
1026 + .49293, .79933, .89482,
1027 + .16443, .09169, 16.45127, .90598, .65390,
1028 + .51443, .81919, .91444,
1029 + .16618, .09272, 16.63883, .92396, .67244,
1030 + .53419, .83755, .93257 /
1031 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
1032 + .16796, .09374, 16.81956, .94194, .69102,
1033 + .55403, .85591, .95071,
1034 + .16970, .09476, 16.98959, .95951, .70922,
1035 + .57350, .87386, .96843,
1036 + .17135, .09571, 17.13740, .97583, .72609,
1037 + .59146, .89053, .98487,
1038 + .17292, .09662, 17.27787, .99145, .74235,
1039 + .60888, .90649, 1.00062,
1040 + .17449, .09752, 17.40208, 1.00659, .75804,
1041 + .62559, .92196, 1.01590 /
1042 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
1043 + .12069, .06551, 1.91577, .22634, .00000,
1044 + .00000, .13075, .23089,
1045 + .12257, .06673, 2.38005, .23687, .00000,
1046 + .00000, .14174, .24156,
1047 + .12550, .06861, 3.07352, .25373, .00849,
1048 + .00000, .15930, .25867,
1049 + .12772, .07003, 3.59137, .26696, .01997,
1050 + .00000, .17306, .27208,
1051 + .13012, .07155, 4.13291, .28167, .03882,
1052 + .00000, .18830, .28699,
1053 + .13220, .07288, 4.58826, .29497, .05177,
1054 + .00000, .20207, .30046,
1055 + .13422, .07415, 5.01621, .30814, .06499,
1056 + .00000, .21568, .31381,
1057 + .13640, .07552, 5.47409, .32267, .08034,
1058 + .00000, .23067, .32851 /
1059 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
1060 + .13829, .07671, 5.85261, .33555, .09305,
1061 + .00000, .24396, .34156,
1062 + .14014, .07785, 6.21923, .34833, .10627,
1063 + .00000, .25713, .35451,
1064 + .14160, .07877, 6.49954, .35859, .11657,
1065 + .00000, .26769, .36490,
1066 + .14475, .08073, 7.07988, .38099, .13944,
1067 + .00000, .29074, .38756,
1068 + .14753, .08244, 7.57354, .40064, .15964,
1069 + .00694, .31096, .40746,
1070 + .15065, .08435, 8.06869, .42294, .18259,
1071 + .03781, .33389, .43003,
1072 + .15389, .08633, 8.56017, .44641, .20678,
1073 + .06463, .35801, .45379,
1074 + .15683, .08811, 8.97225, .46757, .22833,
1075 + .08767, .37976, .47521 /
1076 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
1077 + .15979, .08990, 9.36793, .48900, .25033,
1078 + .11188, .40178, .49691,
1079 + .16226, .09138, 9.68367, .50689, .26887,
1080 + .13257, .42015, .51501,
1081 + .16522, .09317, 10.04007, .52835, .29098,
1082 + .15670, .44219, .53673,
1083 + .16783, .09471, 10.33245, .54709, .31027,
1084 + .17763, .46145, .55570,
1085 + .17023, .09615, 10.59243, .56436, .32823,
1086 + .19746, .47919, .57318,
1087 + .17325, .09792, 10.89335, .58578, .35038,
1088 + .22151, .50120, .59486,
1089 + .17607, .09958, 11.15481, .60561, .37095,
1090 + .24385, .52158, .61494,
1091 + .17871, .10112, 11.38777, .62410, .39026,
1092 + .26500, .54060, .63368 /
1093 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
1094 + .18132, .10264, 11.59698, .64206, .40893,
1095 + .28523, .55907, .65186,
1096 + .18386, .10413, 11.78873, .65940, .42706,
1097 + .30497, .57692, .66943,
1098 + .18626, .10551, 11.95816, .67560, .44403,
1099 + .32346, .59359, .68583,
1100 + .18850, .10679, 12.10193, .69042, .45955,
1101 + .34031, .60885, .70085,
1102 + .19075, .10809, 12.23999, .70522, .47515,
1103 + .35732, .62410, .71585,
1104 + .19292, .10933, 12.35974, .71927, .48992,
1105 + .37336, .63858, .73009,
1106 + .19500, .11050, 12.46863, .73255, .50396,
1107 + .38867, .65227, .74354,
1108 + .19694, .11160, 12.56016, .74471, .51682,
1109 + .40266, .66483, .75588 /
1110 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
1111 + .19888, .11270, 12.64618, .75680, .52964,
1112 + .41662, .67732, .76813,
1113 + .20079, .11379, 12.72483, .76855, .54214,
1114 + .43026, .68945, .78004,
1115 + .20259, .11479, 12.78946, .77936, .55364,
1116 + .44277, .70062, .79101,
1117 + .20431, .11576, 12.85070, .78967, .56468,
1118 + .45486, .71129, .80147,
1119 + .20601, .11670, 12.90032, .79957, .57525,
1120 + .46637, .72153, .81152 /
1121 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
1122 + .13796, .07674, 2.07876, .21346, .00000,
1123 + .00000, .12213, .21921,
1124 + .14010, .07814, 2.49376, .22290, .00000,
1125 + .00000, .13203, .22885,
1126 + .14343, .08028, 3.10677, .23800, .00486,
1127 + .00000, .14780, .24423,
1128 + .14596, .08191, 3.55330, .24974, .01519,
1129 + .00000, .16004, .25619,
1130 + .14867, .08363, 4.01335, .26273, .03214,
1131 + .00000, .17355, .26943,
1132 + .15102, .08511, 4.39576, .27439, .04365,
1133 + .00000, .18567, .28130,
1134 + .15329, .08655, 4.75104, .28587, .05532,
1135 + .00000, .19758, .29299,
1136 + .15575, .08808, 5.12705, .29845, .06880,
1137 + .00000, .21064, .30580 /
1138 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
1139 + .15787, .08940, 5.43464, .30954, .07989,
1140 + .00000, .22212, .31709,
1141 + .15995, .09069, 5.72983, .32049, .09136,
1142 + .00000, .23346, .32823,
1143 + .16160, .09170, 5.95362, .32923, .10026,
1144 + .00000, .24252, .33712,
1145 + .16512, .09387, 6.41112, .34821, .11989,
1146 + .00000, .26215, .35642,
1147 + .16821, .09575, 6.80045, .36472, .13710,
1148 + .00321, .27924, .37322,
1149 + .17168, .09785, 7.17653, .38330, .15649,
1150 + .02961, .29845, .39211,
1151 + .17527, .10000, 7.54424, .40269, .17676,
1152 + .05236, .31851, .41184,
1153 + .17850, .10194, 7.84691, .42001, .19466,
1154 + .07173, .33643, .42946 /
1155 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
1156 + .18176, .10387, 8.13311, .43742, .21282,
1157 + .09197, .35444, .44717,
1158 + .18447, .10547, 8.35843, .45185, .22802,
1159 + .10916, .36938, .46186,
1160 + .18771, .10737, 8.60836, .46903, .24603,
1161 + .12908, .38717, .47934,
1162 + .19056, .10904, 8.80950, .48393, .26163,
1163 + .14624, .40260, .49449,
1164 + .19318, .11056, 8.98625, .49756, .27607,
1165 + .16241, .41673, .50836,
1166 + .19645, .11244, 9.18611, .51435, .29377,
1167 + .18190, .43412, .52545,
1168 + .19950, .11419, 9.35586, .52977, .31009,
1169 + .19989, .45012, .54114,
1170 + .20235, .11582, 9.50451, .54406, .32533,
1171 + .21683, .46495, .55569 /
1172 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
1173 + .20514, .11741, 9.63385, .55782, .33995,
1174 + .23292, .47925, .56970,
1175 + .20787, .11895, 9.74971, .57102, .35408,
1176 + .24855, .49297, .58315,
1177 + .21044, .12039, 9.84957, .58326, .36723,
1178 + .26312, .50571, .59562,
1179 + .21281, .12172, 9.93104, .59439, .37918,
1180 + .27630, .51730, .60696,
1181 + .21520, .12304, 10.00771, .60543, .39112,
1182 + .28956, .52882, .61821,
1183 + .21751, .12432, 10.07061, .61584, .40238,
1184 + .30200, .53968, .62882,
1185 + .21970, .12553, 10.12647, .62563, .41303,
1186 + .31383, .54991, .63881,
1187 + .22174, .12665, 10.17051, .63453, .42274,
1188 + .32458, .55921, .64788 /
1189 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
1190 + .22378, .12777, 10.21007, .64332, .43236,
1191 + .33527, .56842, .65686,
1192 + .22579, .12886, 10.24434, .65181, .44169,
1193 + .34566, .57732, .66552,
1194 + .22768, .12988, 10.26922, .65958, .45024,
1195 + .35514, .58546, .67345,
1196 + .22948, .13085, 10.29275, .66696, .45842,
1197 + .36429, .59322, .68099,
1198 + .23125, .13181, 10.30734, .67397, .46620,
1199 + .37294, .60060, .68816 /
1200 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
1201 + .15303, .08668, 2.20431, .20329, .00000,
1202 + .00000, .11513, .21012,
1203 + .15542, .08824, 2.57773, .21198, .00000,
1204 + .00000, .12425, .21904,
1205 + .15911, .09062, 3.12585, .22580, .00182,
1206 + .00000, .13874, .23321,
1207 + .16190, .09239, 3.51603, .23647, .01131,
1208 + .00000, .14992, .24415,
1209 + .16488, .09427, 3.91317, .24821, .02686,
1210 + .00000, .16218, .25617,
1211 + .16747, .09590, 4.24005, .25867, .03733,
1212 + .00000, .17311, .26688,
1213 + .16998, .09746, 4.54087, .26892, .04789,
1214 + .00000, .18380, .27737,
1215 + .17266, .09912, 4.85637, .28011, .06002,
1216 + .00000, .19547, .28881 /
1217 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
1218 + .17499, .10056, 5.11209, .28991, .06995,
1219 + .00000, .20567, .29884,
1220 + .17726, .10195, 5.35565, .29954, .08018,
1221 + .00000, .21570, .30869,
1222 + .17906, .10304, 5.53895, .30719, .08807,
1223 + .00000, .22366, .31652,
1224 + .18290, .10537, 5.90950, .32371, .10540,
1225 + .00000, .24087, .33341,
1226 + .18625, .10737, 6.22588, .33798, .12049,
1227 + .00065, .25574, .34800,
1228 + .18999, .10960, 6.51991, .35391, .13737,
1229 + .02386, .27233, .36429,
1230 + .19386, .11189, 6.80347, .37044, .15490,
1231 + .04375, .28954, .38118,
1232 + .19733, .11392, 7.03274, .38507, .17029,
1233 + .06059, .30480, .39615 /
1234 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
1235 + .20083, .11594, 7.24632, .39968, .18579,
1236 + .07806, .32004, .41110,
1237 + .20371, .11761, 7.41229, .41173, .19870,
1238 + .09283, .33261, .42341,
1239 + .20718, .11961, 7.59303, .42596, .21390,
1240 + .10985, .34748, .43797,
1241 + .21021, .12132, 7.73555, .43822, .22701,
1242 + .12444, .36029, .45051,
1243 + .21297, .12290, 7.85928, .44938, .23908,
1244 + .13813, .37197, .46194,
1245 + .21643, .12484, 7.99547, .46304, .25379,
1246 + .15453, .38628, .47591,
1247 + .21964, .12664, 8.10806, .47549, .26727,
1248 + .16960, .39933, .48866,
1249 + .22264, .12830, 8.20464, .48694, .27980,
1250 + .18373, .41136, .50039 /
1251 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
1252 + .22557, .12992, 8.28516, .49790, .29174,
1253 + .19706, .42288, .51161,
1254 + .22842, .13149, 8.35509, .50837, .30324,
1255 + .20997, .43388, .52233,
1256 + .23109, .13294, 8.41327, .51801, .31388,
1257 + .22195, .44405, .53222,
1258 + .23356, .13428, 8.45789, .52670, .32350,
1259 + .23273, .45323, .54113,
1260 + .23603, .13561, 8.49851, .53530, .33308,
1261 + .24354, .46231, .54995,
1262 + .23842, .13688, 8.52832, .54332, .34207,
1263 + .25364, .47083, .55820,
1264 + .24068, .13809, 8.55350, .55085, .35053,
1265 + .26320, .47881, .56592,
1266 + .24278, .13920, 8.57027, .55764, .35821,
1267 + .27186, .48603, .57290 /
1268 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
1269 + .24488, .14031, 8.58335, .56432, .36580,
1270 + .28044, .49315, .57976,
1271 + .24693, .14138, 8.59265, .57074, .37312,
1272 + .28876, .49998, .58636,
1273 + .24885, .14238, 8.59558, .57655, .37980,
1274 + .29631, .50620, .59234,
1275 + .25069, .14334, 8.59838, .58207, .38618,
1276 + .30358, .51211, .59801,
1277 + .25248, .14427, 8.59390, .58726, .39220,
1278 + .31042, .51768, .60335 /
1279 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
1280 + .17921, .10402, 2.37399, .18792, .00000,
1281 + .00000, .10431, .19688,
1282 + .18201, .10583, 2.67968, .19555, .00000,
1283 + .00000, .11240, .20482,
1284 + .18632, .10856, 3.12664, .20755, -.00298,
1285 + .00000, .12511, .21727,
1286 + .18956, .11058, 3.43121, .21670, .00538,
1287 + .00000, .13477, .22675,
1288 + .19302, .11272, 3.73486, .22663, .01893,
1289 + .00000, .14529, .23705,
1290 + .19600, .11455, 3.98087, .23539, .02794,
1291 + .00000, .15454, .24612,
1292 + .19887, .11629, 4.20362, .24388, .03695,
1293 + .00000, .16351, .25491,
1294 + .20194, .11815, 4.43378, .25308, .04720,
1295 + .00000, .17322, .26443 /
1296 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
1297 + .20458, .11974, 4.61730, .26105, .05552,
1298 + .00000, .18162, .27266,
1299 + .20716, .12127, 4.78985, .26882, .06401,
1300 + .00000, .18982, .28071,
1301 + .20920, .12246, 4.91797, .27495, .07052,
1302 + .00000, .19629, .28704,
1303 + .21353, .12499, 5.17154, .28806, .08470,
1304 + .00000, .21014, .30059,
1305 + .21727, .12716, 5.39100, .29921, .09690,
1306 + -.00265, .22195, .31212,
1307 + .22142, .12954, 5.57845, .31153, .11040,
1308 + .01623, .23499, .32486,
1309 + .22571, .13196, 5.75415, .32414, .12428,
1310 + .03225, .24835, .33788,
1311 + .22952, .13411, 5.89078, .33515, .13630,
1312 + .04565, .26005, .34928 /
1313 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
1314 + .23335, .13623, 6.01413, .34602, .14831,
1315 + .05945, .27161, .36051,
1316 + .23649, .13796, 6.10723, .35487, .15822,
1317 + .07102, .28105, .36968,
1318 + .24023, .14000, 6.20393, .36524, .16978,
1319 + .08424, .29209, .38040,
1320 + .24348, .14177, 6.27618, .37404, .17965,
1321 + .09547, .30152, .38952,
1322 + .24646, .14337, 6.33696, .38200, .18867,
1323 + .10594, .31003, .39776,
1324 + .25014, .14534, 6.39875, .39160, .19957,
1325 + .11838, .32033, .40770,
1326 + .25354, .14713, 6.44537, .40024, .20944,
1327 + .12969, .32963, .41665,
1328 + .25670, .14878, 6.48251, .40810, .21856,
1329 + .14023, .33813, .42481 /
1330 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
1331 + .25978, .15038, 6.50837, .41552, .22717,
1332 + .15010, .34617, .43251,
1333 + .26274, .15191, 6.52734, .42253, .23538,
1334 + .15958, .35377, .43978,
1335 + .26551, .15332, 6.53965, .42890, .24293,
1336 + .16832, .36071, .44641,
1337 + .26806, .15462, 6.54423, .43457, .24969,
1338 + .17613, .36692, .45230,
1339 + .27060, .15590, 6.54608, .44014, .25638,
1340 + .18391, .37301, .45808,
1341 + .27304, .15711, 6.54110, .44525, .26259,
1342 + .19111, .37865, .46341,
1343 + .27534, .15825, 6.53441, .45000, .26842,
1344 + .19791, .38390, .46835,
1345 + .27746, .15929, 6.52344, .45422, .27365,
1346 + .20403, .38858, .47276 /
1347 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
1348 + .27958, .16033, 6.50996, .45833, .27879,
1349 + .21005, .39317, .47705,
1350 + .28163, .16132, 6.49434, .46223, .28372,
1351 + .21585, .39753, .48112,
1352 + .28356, .16225, 6.47551, .46571, .28816,
1353 + .22108, .40144, .48476,
1354 + .28538, .16312, 6.45785, .46901, .29240,
1355 + .22610, .40515, .48821,
1356 + .28715, .16397, 6.43530, .47202, .29636,
1357 + .23078, .40859, .49137 /
1358 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
1359 + .21214, .12581, 2.49771, .17148, .00000,
1360 + .00000, .09277, .18345,
1361 + .21549, .12792, 2.72695, .17807, .00000,
1362 + .00000, .09987, .19043,
1363 + .22059, .13104, 3.06424, .18823, -.00778,
1364 + .00000, .11082, .20118,
1365 + .22438, .13331, 3.27957, .19581, -.00051,
1366 + .00000, .11900, .20920,
1367 + .22838, .13568, 3.48863, .20395, .01100,
1368 + .00000, .12778, .21778,
1369 + .23183, .13769, 3.65459, .21099, .01860,
1370 + .00000, .13539, .22521,
1371 + .23512, .13960, 3.80168, .21773, .02611,
1372 + .00000, .14268, .23232,
1373 + .23862, .14162, 3.95083, .22495, .03454,
1374 + .00000, .15048, .23991 /
1375 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
1376 + .24163, .14333, 4.06690, .23111, .04131,
1377 + .00000, .15715, .24641,
1378 + .24455, .14496, 4.17422, .23707, .04816,
1379 + .00000, .16360, .25268,
1380 + .24682, .14624, 4.25232, .24172, .05336,
1381 + .00000, .16864, .25757,
1382 + .25166, .14891, 4.40192, .25155, .06459,
1383 + .00000, .17930, .26791,
1384 + .25579, .15115, 4.53617, .25975, .07411,
1385 + -.00518, .18825, .27654,
1386 + .26035, .15360, 4.63301, .26868, .08453,
1387 + .00963, .19800, .28594,
1388 + .26501, .15607, 4.71937, .27765, .09507,
1389 + .02207, .20783, .29537,
1390 + .26912, .15821, 4.78069, .28536, .10408,
1391 + .03237, .21632, .30349 /
1392 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
1393 + .27320, .16032, 4.83189, .29283, .11299,
1394 + .04285, .22457, .31136,
1395 + .27655, .16203, 4.86770, .29885, .12027,
1396 + .05155, .23123, .31771,
1397 + .28050, .16403, 4.90007, .30576, .12866,
1398 + .06141, .23892, .32499,
1399 + .28390, .16571, 4.91949, .31155, .13575,
1400 + .06970, .24540, .33109,
1401 + .28699, .16724, 4.93359, .31670, .14217,
1402 + .07737, .25119, .33654,
1403 + .29079, .16909, 4.94124, .32281, .14984,
1404 + .08639, .25807, .34298,
1405 + .29426, .17076, 4.94103, .32820, .15672,
1406 + .09452, .26420, .34868,
1407 + .29746, .17229, 4.93681, .33303, .16299,
1408 + .10202, .26972, .35380 /
1409 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
1410 + .30056, .17374, 4.92544, .33750, .16885,
1411 + .10898, .27486, .35852,
1412 + .30352, .17511, 4.91051, .34162, .17439,
1413 + .11561, .27966, .36290,
1414 + .30625, .17637, 4.89304, .34532, .17943,
1415 + .12166, .28398, .36683,
1416 + .30876, .17750, 4.87227, .34854, .18390,
1417 + .12704, .28777, .37024,
1418 + .31123, .17861, 4.84994, .35164, .18828,
1419 + .13235, .29146, .37355,
1420 + .31359, .17964, 4.82400, .35441, .19231,
1421 + .13724, .29482, .37651,
1422 + .31580, .18060, 4.79844, .35695, .19605,
1423 + .14181, .29790, .37922,
1424 + .31782, .18147, 4.77150, .35914, .19937,
1425 + .14589, .30059, .38157 /
1426 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
1427 + .31981, .18232, 4.74306, .36124, .20261,
1428 + .14987, .30319, .38381,
1429 + .32175, .18315, 4.71390, .36318, .20570,
1430 + .15370, .30564, .38590,
1431 + .32353, .18388, 4.68396, .36485, .20843,
1432 + .15711, .30778, .38770,
1433 + .32522, .18459, 4.65597, .36642, .21104,
1434 + .16037, .30979, .38939,
1435 + .32685, .18524, 4.62486, .36778, .21343,
1436 + .16338, .31160, .39085 /
1437 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
1438 + .25793, .15533, 2.50896, .15297, .00000,
1439 + .00000, .08049, .17002,
1440 + .26202, .15771, 2.65160, .15832, .00000,
1441 + .00000, .08648, .17588,
1442 + .26810, .16119, 2.86836, .16633, -.01196,
1443 + .00000, .09549, .18465,
1444 + .27254, .16366, 2.99069, .17212, -.00588,
1445 + .00000, .10203, .19096,
1446 + .27720, .16620, 3.10419, .17820, .00340,
1447 + .00000, .10890, .19759,
1448 + .28115, .16833, 3.19123, .18335, .00950,
1449 + .00000, .11473, .20319,
1450 + .28489, .17031, 3.26556, .18819, .01541,
1451 + .00000, .12023, .20844,
1452 + .28886, .17239, 3.33861, .19327, .02196,
1453 + .00000, .12602, .21395 /
1454 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
1455 + .29222, .17412, 3.39257, .19753, .02714,
1456 + .00000, .13089, .21858,
1457 + .29546, .17577, 3.44089, .20158, .03233,
1458 + .00000, .13554, .22299,
1459 + .29796, .17702, 3.47446, .20469, .03624,
1460 + .00000, .13912, .22636,
1461 + .30324, .17964, 3.53367, .21116, .04454,
1462 + .00000, .14658, .23337,
1463 + .30767, .18179, 3.59426, .21642, .05145,
1464 + -.00673, .15273, .23907,
1465 + .31248, .18410, 3.61710, .22201, .05890,
1466 + .00407, .15928, .24512,
1467 + .31736, .18635, 3.63219, .22749, .06633,
1468 + .01306, .16575, .25106,
1469 + .32159, .18828, 3.63569, .23205, .07258,
1470 + .02040, .17119, .25598 /
1471 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
1472 + .32573, .19014, 3.63290, .23636, .07865,
1473 + .02777, .17641, .26066,
1474 + .32909, .19162, 3.62682, .23975, .08356,
1475 + .03382, .18055, .26433,
1476 + .33301, .19330, 3.61324, .24353, .08913,
1477 + .04059, .18521, .26844,
1478 + .33633, .19471, 3.59624, .24660, .09377,
1479 + .04622, .18905, .27177,
1480 + .33932, .19596, 3.57889, .24929, .09794,
1481 + .05139, .19244, .27469,
1482 + .34293, .19742, 3.55138, .25233, .10284,
1483 + .05738, .19636, .27799,
1484 + .34619, .19871, 3.52179, .25493, .10716,
1485 + .06272, .19977, .28081,
1486 + .34916, .19986, 3.49235, .25718, .11106,
1487 + .06760, .20279, .28326 /
1488 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
1489 + .35197, .20092, 3.45947, .25914, .11465,
1490 + .07208, .20550, .28542,
1491 + .35463, .20189, 3.42566, .26090, .11800,
1492 + .07630, .20797, .28733,
1493 + .35706, .20276, 3.39225, .26239, .12101,
1494 + .08011, .21015, .28896,
1495 + .35924, .20351, 3.35884, .26360, .12363,
1496 + .08346, .21199, .29030,
1497 + .36138, .20423, 3.32495, .26473, .12618,
1498 + .08674, .21376, .29155,
1499 + .36335, .20487, 3.28979, .26565, .12848,
1500 + .08972, .21528, .29256,
1501 + .36519, .20547, 3.25629, .26645, .13060,
1502 + .09250, .21666, .29345,
1503 + .36684, .20597, 3.22350, .26707, .13244,
1504 + .09493, .21781, .29413 /
1505 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
1506 + .36845, .20645, 3.19014, .26760, .13423,
1507 + .09731, .21888, .29473,
1508 + .37000, .20689, 3.15694, .26804, .13590,
1509 + .09956, .21985, .29523,
1510 + .37138, .20726, 3.12438, .26834, .13736,
1511 + .10154, .22064, .29557,
1512 + .37270, .20762, 3.09402, .26862, .13873,
1513 + .10343, .22139, .29588,
1514 + .37392, .20792, 3.06212, .26874, .13996,
1515 + .10514, .22198, .29604 /
1516 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
1517 + .29633, .17922, 2.40078, .13989, .00000,
1518 + .00000, .07288, .16150,
1519 + .30100, .18173, 2.48793, .14423, .00000,
1520 + .00000, .07799, .16644,
1521 + .30788, .18533, 2.62796, .15058, -.01331,
1522 + .00000, .08551, .17364,
1523 + .31278, .18782, 2.69508, .15504, -.00810,
1524 + .00000, .09085, .17868,
1525 + .31787, .19036, 2.75362, .15963, -.00039,
1526 + .00000, .09636, .18386,
1527 + .32216, .19245, 2.79642, .16346, .00467,
1528 + .00000, .10097, .18815,
1529 + .32618, .19436, 2.83079, .16696, .00951,
1530 + .00000, .10525, .19210,
1531 + .33040, .19634, 2.86295, .17060, .01479,
1532 + .00000, .10970, .19618 /
1533 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
1534 + .33392, .19797, 2.88435, .17360, .01896,
1535 + .00000, .11339, .19953,
1536 + .33728, .19950, 2.90232, .17643, .02308,
1537 + .00000, .11688, .20268,
1538 + .33989, .20066, 2.91330, .17855, .02616,
1539 + .00000, .11953, .20506,
1540 + .34530, .20302, 2.92791, .18291, .03265,
1541 + .00000, .12501, .20991,
1542 + .34975, .20491, 2.95182, .18636, .03799,
1543 + -.00687, .12942, .21373,
1544 + .35453, .20687, 2.94099, .18994, .04367,
1545 + .00147, .13405, .21770,
1546 + .35928, .20877, 2.92478, .19334, .04926,
1547 + .00837, .13854, .22147,
1548 + .36334, .21033, 2.90381, .19608, .05392,
1549 + .01395, .14224, .22450 /
1550 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
1551 + .36726, .21179, 2.87915, .19859, .05839,
1552 + .01950, .14571, .22727,
1553 + .37041, .21293, 2.85668, .20049, .06198,
1554 + .02402, .14841, .22939,
1555 + .37401, .21418, 2.82583, .20256, .06602,
1556 + .02905, .15141, .23167,
1557 + .37704, .21519, 2.79577, .20415, .06933,
1558 + .03318, .15382, .23343,
1559 + .37972, .21605, 2.76753, .20550, .07228,
1560 + .03695, .15591, .23492,
1561 + .38291, .21702, 2.72878, .20693, .07571,
1562 + .04129, .15828, .23649,
1563 + .38571, .21783, 2.69054, .20807, .07871,
1564 + .04512, .16027, .23775,
1565 + .38822, .21852, 2.65417, .20899, .08139,
1566 + .04860, .16197, .23877 /
1567 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
1568 + .39054, .21912, 2.61605, .20970, .08383,
1569 + .05176, .16345, .23954,
1570 + .39269, .21964, 2.57824, .21027, .08607,
1571 + .05471, .16476, .24014,
1572 + .39462, .22006, 2.54206, .21069, .08806,
1573 + .05736, .16587, .24059,
1574 + .39631, .22039, 2.50711, .21093, .08977,
1575 + .05966, .16676, .24086,
1576 + .39795, .22068, 2.47219, .21112, .09142,
1577 + .06190, .16758, .24106,
1578 + .39941, .22090, 2.43702, .21115, .09290,
1579 + .06393, .16824, .24108,
1580 + .40075, .22107, 2.40389, .21114, .09424,
1581 + .06580, .16879, .24105,
1582 + .40191, .22118, 2.37214, .21103, .09539,
1583 + .06742, .16923, .24091 /
1584 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
1585 + .40302, .22127, 2.34021, .21086, .09648,
1586 + .06900, .16959, .24070,
1587 + .40406, .22132, 2.30881, .21062, .09750,
1588 + .07048, .16989, .24044,
1589 + .40495, .22132, 2.27854, .21031, .09837,
1590 + .07177, .17007, .24009,
1591 + .40579, .22131, 2.25040, .21002, .09919,
1592 + .07300, .17024, .23975,
1593 + .40651, .22124, 2.22138, .20962, .09989,
1594 + .07409, .17030, .23930 /
1595 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
1596 + .36168, .21654, 2.05869, .12094, .00000,
1597 + .00000, .06417, .15161,
1598 + .36703, .21897, 2.08654, .12362, .00000,
1599 + .00000, .06781, .15487,
1600 + .37470, .22230, 2.14361, .12738, -.01275,
1601 + .00000, .07300, .15938,
1602 + .37999, .22448, 2.15628, .12990, -.00884,
1603 + .00000, .07656, .16237,
1604 + .38535, .22661, 2.16252, .13241, -.00330,
1605 + .00000, .08013, .16531,
1606 + .38976, .22830, 2.16422, .13440, .00034,
1607 + .00000, .08305, .16764,
1608 + .39381, .22981, 2.16246, .13619, .00377,
1609 + .00000, .08570, .16971,
1610 + .39798, .23132, 2.15852, .13799, .00746,
1611 + .00000, .08841, .17177 /
1612 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
1613 + .40139, .23249, 2.15189, .13940, .01032,
1614 + .00000, .09059, .17338,
1615 + .40460, .23356, 2.14423, .14069, .01314,
1616 + .00000, .09262, .17484,
1617 + .40704, .23435, 2.13663, .14163, .01521,
1618 + .00000, .09414, .17590,
1619 + .41196, .23585, 2.11581, .14347, .01954,
1620 + .00000, .09719, .17794,
1621 + .41584, .23693, 2.10940, .14483, .02303,
1622 + -.00609, .09957, .17941,
1623 + .41988, .23795, 2.07544, .14614, .02670,
1624 + -.00063, .10198, .18080,
1625 + .42373, .23883, 2.03867, .14727, .03026,
1626 + .00386, .10423, .18195,
1627 + .42689, .23944, 2.00307, .14804, .03316,
1628 + .00745, .10598, .18272 /
1629 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
1630 + .42982, .23992, 1.96616, .14866, .03592,
1631 + .01097, .10758, .18329,
1632 + .43209, .24021, 1.93518, .14905, .03810,
1633 + .01380, .10877, .18363,
1634 + .43457, .24046, 1.89653, .14935, .04050,
1635 + .01691, .11002, .18384,
1636 + .43650, .24053, 1.86162, .14949, .04246,
1637 + .01945, .11094, .18384,
1638 + .43816, .24055, 1.82990, .14953, .04418,
1639 + .02174, .11170, .18377,
1640 + .43998, .24045, 1.78890, .14943, .04614,
1641 + .02433, .11248, .18348,
1642 + .44147, .24023, 1.75020, .14919, .04782,
1643 + .02660, .11307, .18305,
1644 + .44272, .23995, 1.71437, .14889, .04930,
1645 + .02863, .11352, .18255 /
1646 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
1647 + .44374, .23956, 1.67826, .14847, .05060,
1648 + .03044, .11383, .18192,
1649 + .44459, .23912, 1.64327, .14797, .05179,
1650 + .03212, .11404, .18121,
1651 + .44527, .23862, 1.61050, .14744, .05283,
1652 + .03362, .11415, .18047,
1653 + .44574, .23811, 1.57963, .14687, .05370,
1654 + .03489, .11416, .17968,
1655 + .44613, .23755, 1.54918, .14625, .05454,
1656 + .03613, .11412, .17883,
1657 + .44636, .23693, 1.51923, .14556, .05524,
1658 + .03722, .11400, .17792,
1659 + .44652, .23632, 1.49130, .14489, .05588,
1660 + .03822, .11386, .17702,
1661 + .44655, .23569, 1.46497, .14421, .05641,
1662 + .03908, .11366, .17611 /
1663 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
1664 + .44651, .23502, 1.43880, .14348, .05691,
1665 + .03990, .11342, .17515,
1666 + .44640, .23433, 1.41333, .14275, .05734,
1667 + .04066, .11314, .17418,
1668 + .44619, .23363, 1.38914, .14199, .05771,
1669 + .04131, .11282, .17321,
1670 + .44598, .23296, 1.36675, .14128, .05806,
1671 + .04194, .11252, .17230,
1672 + .44563, .23224, 1.34403, .14051, .05833,
1673 + .04247, .11216, .17129 /
1674 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
1675 + .41625, .24416, 1.70870, .10591, .00000,
1676 + .00000, .05862, .14403,
1677 + .42180, .24616, 1.71259, .10733, .00000,
1678 + .00000, .06108, .14578,
1679 + .42949, .24877, 1.73423, .10924, -.01084,
1680 + .00000, .06451, .14803,
1681 + .43458, .25035, 1.72725, .11047, -.00788,
1682 + .00000, .06679, .14942,
1683 + .43964, .25180, 1.71549, .11163, -.00376,
1684 + .00000, .06906, .15071,
1685 + .44367, .25287, 1.70346, .11252, -.00105,
1686 + .00000, .07087, .15165,
1687 + .44729, .25374, 1.69013, .11325, .00147,
1688 + .00000, .07247, .15240,
1689 + .45095, .25455, 1.67501, .11395, .00416,
1690 + .00000, .07407, .15308 /
1691 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
1692 + .45382, .25510, 1.66005, .11448, .00626,
1693 + .00000, .07535, .15354,
1694 + .45647, .25557, 1.64504, .11493, .00828,
1695 + .00000, .07651, .15389,
1696 + .45842, .25584, 1.63231, .11522, .00978,
1697 + .00000, .07736, .15412,
1698 + .46224, .25626, 1.60252, .11574, .01286,
1699 + .00000, .07903, .15442,
1700 + .46504, .25637, 1.58709, .11602, .01533,
1701 + -.00511, .08028, .15445,
1702 + .46778, .25633, 1.54973, .11619, .01790,
1703 + -.00126, .08149, .15430,
1704 + .47023, .25606, 1.51079, .11621, .02035,
1705 + .00190, .08256, .15396,
1706 + .47201, .25562, 1.47458, .11606, .02234,
1707 + .00439, .08331, .15346 /
1708 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
1709 + .47353, .25502, 1.43803, .11579, .02420,
1710 + .00683, .08395, .15281,
1711 + .47458, .25445, 1.40795, .11551, .02566,
1712 + .00877, .08438, .15218,
1713 + .47552, .25362, 1.37129, .11507, .02725,
1714 + .01088, .08477, .15128,
1715 + .47609, .25278, 1.33887, .11457, .02853,
1716 + .01260, .08500, .15038,
1717 + .47648, .25195, 1.30974, .11407, .02963,
1718 + .01412, .08514, .14951,
1719 + .47668, .25075, 1.27273, .11334, .03089,
1720 + .01585, .08519, .14831,
1721 + .47660, .24953, 1.23838, .11257, .03194,
1722 + .01733, .08515, .14706,
1723 + .47638, .24833, 1.20692, .11182, .03285,
1724 + .01864, .08504, .14586 /
1725 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
1726 + .47590, .24702, 1.17563, .11098, .03365,
1727 + .01982, .08483, .14457,
1728 + .47529, .24569, 1.14567, .11012, .03435,
1729 + .02088, .08457, .14325,
1730 + .47457, .24439, 1.11786, .10927, .03496,
1731 + .02182, .08428, .14197,
1732 + .47371, .24310, 1.09192, .10843, .03546,
1733 + .02261, .08394, .14071,
1734 + .47279, .24178, 1.06651, .10757, .03593,
1735 + .02338, .08358, .13943,
1736 + .47173, .24042, 1.04177, .10668, .03631,
1737 + .02404, .08317, .13813,
1738 + .47066, .23911, 1.01884, .10581, .03664,
1739 + .02464, .08275, .13689,
1740 + .46951, .23783, .99740, .10498, .03692,
1741 + .02516, .08231, .13568 /
1742 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
1743 + .46830, .23652, .97622, .10411, .03716,
1744 + .02563, .08185, .13445,
1745 + .46703, .23521, .95573, .10326, .03736,
1746 + .02607, .08138, .13322,
1747 + .46572, .23392, .93641, .10242, .03753,
1748 + .02644, .08091, .13203,
1749 + .46448, .23270, .91858, .10163, .03768,
1750 + .02679, .08046, .13089,
1751 + .46309, .23142, .90064, .10079, .03777,
1752 + .02708, .07996, .12973 /
1753 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
1754 + .46309, .26497, 1.41335, .09263, .00000,
1755 + .00000, .05375, .13601,
1756 + .46842, .26637, 1.40865, .09316, .00000,
1757 + .00000, .05531, .13649,
1758 + .47555, .26796, 1.41591, .09381, -.00907,
1759 + .00000, .05741, .13699,
1760 + .48003, .26877, 1.40283, .09420, -.00679,
1761 + .00000, .05880, .13712,
1762 + .48432, .26937, 1.38593, .09453, -.00363,
1763 + .00000, .06016, .13713,
1764 + .48765, .26966, 1.37011, .09472, -.00156,
1765 + .00000, .06121, .13706,
1766 + .49048, .26981, 1.35374, .09485, .00038,
1767 + .00000, .06212, .13685,
1768 + .49323, .26983, 1.33581, .09494, .00242,
1769 + .00000, .06303, .13654 /
1770 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
1771 + .49531, .26966, 1.31896, .09492, .00401,
1772 + .00000, .06372, .13622,
1773 + .49713, .26941, 1.30243, .09490, .00554,
1774 + .00000, .06434, .13583,
1775 + .49837, .26917, 1.28878, .09483, .00666,
1776 + .00000, .06476, .13547,
1777 + .50065, .26842, 1.25788, .09463, .00896,
1778 + .00000, .06557, .13462,
1779 + .50206, .26753, 1.24012, .09435, .01080,
1780 + -.00435, .06614, .13375,
1781 + .50318, .26634, 1.20432, .09393, .01269,
1782 + -.00148, .06665, .13265,
1783 + .50386, .26492, 1.16746, .09342, .01448,
1784 + .00086, .06702, .13139,
1785 + .50404, .26343, 1.13372, .09283, .01592,
1786 + .00269, .06721, .13011 /
1787 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
1788 + .50387, .26181, 1.10002, .09216, .01725,
1789 + .00447, .06732, .12873,
1790 + .50352, .26041, 1.07253, .09157, .01828,
1791 + .00588, .06733, .12755,
1792 + .50277, .25856, 1.03940, .09078, .01940,
1793 + .00740, .06726, .12602,
1794 + .50184, .25684, 1.01037, .09002, .02029,
1795 + .00862, .06710, .12464,
1796 + .50085, .25520, .98443, .08931, .02106,
1797 + .00971, .06693, .12335,
1798 + .49928, .25302, .95183, .08832, .02190,
1799 + .01092, .06662, .12162,
1800 + .49755, .25090, .92182, .08737, .02260,
1801 + .01196, .06625, .11997,
1802 + .49578, .24887, .89454, .08643, .02320,
1803 + .01286, .06586, .11842 /
1804 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
1805 + .49377, .24678, .86766, .08547, .02371,
1806 + .01366, .06541, .11681,
1807 + .49165, .24468, .84205, .08451, .02416,
1808 + .01439, .06495, .11522,
1809 + .48954, .24265, .81844, .08359, .02454,
1810 + .01502, .06448, .11371,
1811 + .48739, .24069, .79659, .08268, .02483,
1812 + .01555, .06399, .11226,
1813 + .48518, .23872, .77529, .08177, .02510,
1814 + .01604, .06349, .11081,
1815 + .48283, .23674, .75468, .08085, .02532,
1816 + .01647, .06296, .10937,
1817 + .48057, .23485, .73565, .07998, .02550,
1818 + .01686, .06244, .10800,
1819 + .47832, .23304, .71798, .07913, .02564,
1820 + .01718, .06192, .10670 /
1821 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
1822 + .47601, .23120, .70060, .07828, .02576,
1823 + .01748, .06140, .10538,
1824 + .47366, .22937, .68386, .07743, .02585,
1825 + .01775, .06087, .10409,
1826 + .47131, .22761, .66817, .07662, .02592,
1827 + .01798, .06034, .10284,
1828 + .46911, .22596, .65374, .07586, .02597,
1829 + .01819, .05985, .10168,
1830 + .46675, .22425, .63929, .07507, .02599,
1831 + .01835, .05933, .10049 /
1832 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
1833 + .51210, .28287, 1.13677, .07764, .00000,
1834 + .00000, .04754, .12398,
1835 + .51654, .28328, 1.12926, .07755, .00000,
1836 + .00000, .04829, .12328,
1837 + .52210, .28339, 1.12970, .07735, -.00743,
1838 + .00000, .04933, .12214,
1839 + .52530, .28306, 1.11502, .07715, -.00571,
1840 + .00000, .04999, .12121,
1841 + .52813, .28246, 1.09698, .07692, -.00334,
1842 + .00000, .05062, .12017,
1843 + .53006, .28178, 1.08037, .07669, -.00177,
1844 + .00000, .05107, .11919,
1845 + .53156, .28091, 1.06341, .07643, -.00033,
1846 + .00000, .05146, .11823,
1847 + .53282, .27987, 1.04504, .07611, .00120,
1848 + .00000, .05182, .11717 /
1849 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
1850 + .53354, .27884, 1.02807, .07582, .00238,
1851 + .00000, .05207, .11618,
1852 + .53404, .27775, 1.01155, .07550, .00350,
1853 + .00000, .05228, .11522,
1854 + .53424, .27680, .99805, .07522, .00433,
1855 + .00000, .05240, .11445,
1856 + .53423, .27461, .96807, .07460, .00602,
1857 + .00000, .05262, .11273,
1858 + .53358, .27250, .94955, .07400, .00735,
1859 + -.00362, .05270, .11117,
1860 + .53240, .27001, .91646, .07326, .00871,
1861 + -.00153, .05269, .10938,
1862 + .53072, .26721, .88263, .07244, .00999,
1863 + .00016, .05259, .10748,
1864 + .52872, .26455, .85199, .07163, .01100,
1865 + .00149, .05241, .10570 /
1866 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
1867 + .52638, .26175, .82173, .07075, .01192,
1868 + .00275, .05214, .10389,
1869 + .52424, .25938, .79721, .07001, .01263,
1870 + .00375, .05188, .10238,
1871 + .52131, .25644, .76790, .06910, .01338,
1872 + .00481, .05150, .10051,
1873 + .51847, .25376, .74248, .06823, .01397,
1874 + .00566, .05112, .09883,
1875 + .51576, .25130, .71993, .06743, .01448,
1876 + .00641, .05075, .09731,
1877 + .51201, .24807, .69187, .06639, .01501,
1878 + .00722, .05022, .09533,
1879 + .50830, .24499, .66627, .06538, .01546,
1880 + .00792, .04969, .09350,
1881 + .50470, .24211, .64318, .06443, .01583,
1882 + .00853, .04916, .09179 /
1883 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
1884 + .50086, .23919, .62061, .06347, .01613,
1885 + .00905, .04859, .09007,
1886 + .49702, .23632, .59928, .06251, .01639,
1887 + .00952, .04801, .08838,
1888 + .49330, .23359, .57977, .06160, .01660,
1889 + .00992, .04746, .08681,
1890 + .48966, .23098, .56184, .06073, .01675,
1891 + .01025, .04690, .08535,
1892 + .48596, .22839, .54447, .05987, .01689,
1893 + .01056, .04634, .08388,
1894 + .48221, .22581, .52779, .05900, .01699,
1895 + .01082, .04578, .08245,
1896 + .47862, .22338, .51248, .05819, .01708,
1897 + .01106, .04525, .08108,
1898 + .47513, .22107, .49835, .05742, .01713,
1899 + .01125, .04473, .07981 /
1900 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
1901 + .47157, .21874, .48453, .05665, .01717,
1902 + .01142, .04420, .07853,
1903 + .46806, .21644, .47128, .05589, .01719,
1904 + .01157, .04368, .07729,
1905 + .46463, .21425, .45893, .05513, .01719,
1906 + .01169, .04318, .07611,
1907 + .46141, .21220, .44759, .05445, .01718,
1908 + .01180, .04270, .07502,
1909 + .45804, .21008, .43634, .05375, .01716,
1910 + .01189, .04221, .07389 /
1911 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
1912 + .55211, .29378, .94569, .06444, .00000,
1913 + .00000, .04106, .11015,
1914 + .55513, .29311, .93698, .06407, .00000,
1915 + .00000, .04139, .10869,
1916 + .55842, .29158, .93383, .06351, -.00644,
1917 + .00000, .04178, .10653,
1918 + .55989, .29006, .91830, .06306, -.00507,
1919 + .00000, .04203, .10495,
1920 + .56085, .28821, .89961, .06260, -.00319,
1921 + .00000, .04226, .10328,
1922 + .56112, .28645, .88248, .06218, -.00195,
1923 + .00000, .04240, .10183,
1924 + .56096, .28461, .86518, .06176, -.00080,
1925 + .00000, .04250, .10042,
1926 + .56047, .28254, .84656, .06128, .00039,
1927 + .00000, .04256, .09893 /
1928 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
1929 + .55966, .28061, .82949, .06085, .00131,
1930 + .00000, .04257, .09764,
1931 + .55867, .27868, .81300, .06041, .00219,
1932 + .00000, .04256, .09638,
1933 + .55768, .27709, .79962, .06006, .00284,
1934 + .00000, .04255, .09537,
1935 + .55513, .27358, .77034, .05928, .00412,
1936 + .00000, .04240, .09323,
1937 + .55233, .27036, .75152, .05857, .00513,
1938 + -.00309, .04220, .09138,
1939 + .54876, .26663, .72049, .05772, .00616,
1940 + -.00150, .04195, .08930,
1941 + .54458, .26269, .68902, .05682, .00710,
1942 + -.00022, .04161, .08714,
1943 + .54036, .25898, .66088, .05596, .00783,
1944 + .00076, .04123, .08515 /
1945 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
1946 + .53584, .25519, .63332, .05505, .00850,
1947 + .00170, .04080, .08319,
1948 + .53193, .25204, .61118, .05429, .00901,
1949 + .00244, .04042, .08157,
1950 + .52687, .24819, .58498, .05338, .00954,
1951 + .00321, .03992, .07959,
1952 + .52221, .24473, .56249, .05252, .00994,
1953 + .00382, .03943, .07786,
1954 + .51788, .24156, .54268, .05173, .01028,
1955 + .00435, .03899, .07632,
1956 + .51215, .23750, .51826, .05071, .01064,
1957 + .00494, .03837, .07436,
1958 + .50656, .23370, .49620, .04975, .01092,
1959 + .00542, .03778, .07254,
1960 + .50127, .23017, .47641, .04886, .01115,
1961 + .00583, .03721, .07087 /
1962 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
1963 + .49585, .22660, .45729, .04796, .01133,
1964 + .00619, .03661, .06921,
1965 + .49045, .22315, .43937, .04707, .01148,
1966 + .00650, .03604, .06761,
1967 + .48529, .21991, .42307, .04624, .01160,
1968 + .00677, .03548, .06613,
1969 + .48035, .21684, .40822, .04545, .01168,
1970 + .00698, .03495, .06475,
1971 + .47542, .21378, .39391, .04466, .01174,
1972 + .00718, .03440, .06340,
1973 + .47044, .21078, .38024, .04390, .01178,
1974 + .00734, .03387, .06205,
1975 + .46572, .20797, .36778, .04320, .01181,
1976 + .00749, .03337, .06081,
1977 + .46121, .20531, .35637, .04251, .01182,
1978 + .00760, .03288, .05965 /
1979 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
1980 + .45668, .20265, .34526, .04181, .01181,
1981 + .00770, .03240, .05850,
1982 + .45219, .20005, .33468, .04114, .01180,
1983 + .00779, .03191, .05739,
1984 + .44784, .19757, .32486, .04052, .01178,
1985 + .00786, .03146, .05633,
1986 + .44377, .19525, .31589, .03993, .01175,
1987 + .00792, .03102, .05535,
1988 + .43959, .19289, .30704, .03932, .01171,
1989 + .00796, .03058, .05438 /
1990 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
1991 + .58364, .29902, .81447, .05322, .00000,
1992 + .00000, .03464, .09524,
1993 + .58490, .29714, .80374, .05275, .00000,
1994 + .00000, .03470, .09341,
1995 + .58547, .29393, .79657, .05209, -.00585,
1996 + .00000, .03479, .09074,
1997 + .58485, .29126, .77926, .05160, -.00469,
1998 + .00000, .03482, .08883,
1999 + .58359, .28825, .75904, .05108, -.00313,
2000 + .00000, .03480, .08687,
2001 + .58195, .28551, .74077, .05063, -.00210,
2002 + .00000, .03477, .08517,
2003 + .57998, .28276, .72254, .05017, -.00116,
2004 + .00000, .03471, .08358,
2005 + .57757, .27974, .70316, .04968, -.00018,
2006 + .00000, .03460, .08193 /
2007 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
2008 + .57512, .27699, .68570, .04923, .00057,
2009 + .00000, .03449, .08047,
2010 + .57255, .27431, .66897, .04877, .00127,
2011 + .00000, .03435, .07909,
2012 + .57031, .27216, .65551, .04839, .00179,
2013 + .00000, .03423, .07803,
2014 + .56514, .26747, .62657, .04759, .00282,
2015 + .00000, .03394, .07575,
2016 + .56016, .26330, .60733, .04687, .00361,
2017 + -.00267, .03364, .07381,
2018 + .55419, .25857, .57784, .04602, .00440,
2019 + -.00143, .03326, .07166,
2020 + .54762, .25361, .54826, .04512, .00512,
2021 + -.00044, .03282, .06951,
2022 + .54130, .24905, .52222, .04428, .00568,
2023 + .00033, .03234, .06756 /
2024 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
2025 + .53470, .24447, .49695, .04342, .00617,
2026 + .00103, .03186, .06563,
2027 + .52910, .24069, .47686, .04270, .00654,
2028 + .00159, .03143, .06405,
2029 + .52214, .23609, .45335, .04181, .00692,
2030 + .00216, .03087, .06218,
2031 + .51583, .23202, .43339, .04099, .00720,
2032 + .00261, .03038, .06055,
2033 + .51003, .22834, .41594, .04026, .00743,
2034 + .00300, .02992, .05909,
2035 + .50248, .22368, .39461, .03934, .00767,
2036 + .00342, .02931, .05726,
2037 + .49530, .21933, .37555, .03845, .00786,
2038 + .00377, .02873, .05559,
2039 + .48857, .21532, .35861, .03763, .00801,
2040 + .00406, .02819, .05407 /
2041 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
2042 + .48173, .21132, .34241, .03684, .00812,
2043 + .00431, .02763, .05255,
2044 + .47504, .20745, .32730, .03604, .00820,
2045 + .00453, .02708, .05112,
2046 + .46873, .20383, .31367, .03529, .00826,
2047 + .00471, .02657, .04982,
2048 + .46271, .20046, .30136, .03459, .00830,
2049 + .00485, .02607, .04860,
2050 + .45671, .19714, .28957, .03390, .00832,
2051 + .00498, .02559, .04740,
2052 + .45075, .19386, .27841, .03323, .00833,
2053 + .00508, .02510, .04623,
2054 + .44517, .19080, .26825, .03260, .00832,
2055 + .00517, .02466, .04517,
2056 + .43985, .18793, .25902, .03200, .00831,
2057 + .00524, .02423, .04417 /
2058 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
2059 + .43452, .18506, .25008, .03141, .00829,
2060 + .00530, .02380, .04318,
2061 + .42928, .18228, .24160, .03083, .00826,
2062 + .00535, .02339, .04222,
2063 + .42427, .17964, .23379, .03029, .00822,
2064 + .00538, .02298, .04133,
2065 + .41957, .17719, .22668, .02978, .00819,
2066 + .00542, .02261, .04052,
2067 + .41478, .17469, .21972, .02927, .00813,
2068 + .00543, .02223, .03969 /
2069 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
2070 + .60729, .29936, .72013, .04385, .00000,
2071 + .00000, .02855, .08022,
2072 + .60638, .29641, .70622, .04344, .00000,
2073 + .00000, .02853, .07823,
2074 + .60380, .29161, .69401, .04282, -.00544,
2075 + .00000, .02848, .07543,
2076 + .60096, .28781, .67407, .04234, -.00442,
2077 + .00000, .02841, .07347,
2078 + .59736, .28367, .65163, .04182, -.00309,
2079 + .00000, .02832, .07147,
2080 + .59376, .27999, .63175, .04138, -.00221,
2081 + .00000, .02822, .06976,
2082 + .58990, .27640, .61236, .04093, -.00140,
2083 + .00000, .02808, .06815,
2084 + .58552, .27255, .59201, .04045, -.00059,
2085 + .00000, .02792, .06647 /
2086 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
2087 + .58141, .26909, .57405, .03998, .00004,
2088 + .00000, .02775, .06506,
2089 + .57725, .26576, .55697, .03954, .00063,
2090 + .00000, .02758, .06372,
2091 + .57377, .26311, .54343, .03919, .00105,
2092 + .00000, .02741, .06267,
2093 + .56607, .25739, .51481, .03840, .00189,
2094 + .00000, .02704, .06046,
2095 + .55899, .25240, .49537, .03770, .00252,
2096 + -.00231, .02670, .05862,
2097 + .55074, .24687, .46733, .03690, .00314,
2098 + -.00133, .02627, .05661,
2099 + .54192, .24113, .43959, .03606, .00369,
2100 + -.00055, .02578, .05456,
2101 + .53365, .23590, .41555, .03525, .00412,
2102 + .00004, .02532, .05274 /
2103 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
2104 + .52519, .23069, .39253, .03443, .00449,
2105 + .00060, .02482, .05098,
2106 + .51812, .22643, .37439, .03375, .00476,
2107 + .00102, .02439, .04958,
2108 + .50947, .22127, .35342, .03291, .00504,
2109 + .00146, .02386, .04789,
2110 + .50169, .21678, .33579, .03218, .00524,
2111 + .00180, .02339, .04643,
2112 + .49459, .21275, .32052, .03153, .00541,
2113 + .00209, .02294, .04512,
2114 + .48553, .20764, .30204, .03067, .00556,
2115 + .00239, .02239, .04353,
2116 + .47700, .20293, .28570, .02987, .00568,
2117 + .00264, .02186, .04207,
2118 + .46906, .19862, .27131, .02915, .00577,
2119 + .00285, .02136, .04074 /
2120 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
2121 + .46111, .19432, .25764, .02843, .00585,
2122 + .00303, .02086, .03944,
2123 + .45335, .19021, .24504, .02773, .00589,
2124 + .00317, .02037, .03821,
2125 + .44607, .18641, .23374, .02709, .00591,
2126 + .00329, .01991, .03708,
2127 + .43923, .18284, .22360, .02648, .00592,
2128 + .00339, .01948, .03605,
2129 + .43244, .17933, .21393, .02587, .00593,
2130 + .00348, .01906, .03505,
2131 + .42575, .17592, .20488, .02529, .00592,
2132 + .00355, .01865, .03408,
2133 + .41946, .17275, .19670, .02474, .00590,
2134 + .00360, .01826, .03319,
2135 + .41353, .16977, .18930, .02424, .00587,
2136 + .00364, .01789, .03236 /
2137 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
2138 + .40762, .16683, .18215, .02375, .00585,
2139 + .00368, .01753, .03154,
2140 + .40184, .16396, .17542, .02326, .00582,
2141 + .00371, .01717, .03076,
2142 + .39635, .16124, .16925, .02277, .00577,
2143 + .00372, .01683, .03004,
2144 + .39122, .15873, .16367, .02233, .00574,
2145 + .00374, .01652, .02938,
2146 + .38601, .15621, .15820, .02191, .00569,
2147 + .00374, .01621, .02871 /
2148 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
2149 + .62325, .29569, .64567, .03622, .00000,
2150 + .00000, .02302, .06581,
2151 + .62011, .29160, .62798, .03584, .00000,
2152 + .00000, .02301, .06395,
2153 + .61422, .28527, .61038, .03527, -.00508,
2154 + .00000, .02295, .06126,
2155 + .60900, .28051, .58766, .03485, -.00415,
2156 + .00000, .02289, .05935,
2157 + .60296, .27542, .56293, .03441, -.00300,
2158 + .00000, .02279, .05743,
2159 + .59736, .27093, .54160, .03396, -.00223,
2160 + .00000, .02265, .05587,
2161 + .59164, .26658, .52125, .03351, -.00154,
2162 + .00000, .02250, .05438,
2163 + .58534, .26198, .50018, .03302, -.00085,
2164 + .00000, .02233, .05285 /
2165 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
2166 + .57959, .25794, .48183, .03260, -.00031,
2167 + .00000, .02214, .05157,
2168 + .57391, .25406, .46471, .03218, .00017,
2169 + .00000, .02194, .05033,
2170 + .56931, .25096, .45131, .03183, .00052,
2171 + .00000, .02176, .04937,
2172 + .55920, .24443, .42332, .03107, .00120,
2173 + .00000, .02139, .04738,
2174 + .55014, .23885, .40414, .03039, .00172,
2175 + -.00198, .02106, .04571,
2176 + .53984, .23266, .37786, .02965, .00221,
2177 + -.00120, .02063, .04391,
2178 + .52901, .22628, .35225, .02885, .00265,
2179 + -.00058, .02013, .04212,
2180 + .51904, .22057, .33034, .02810, .00298,
2181 + -.00011, .01969, .04053 /
2182 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
2183 + .50894, .21492, .30961, .02736, .00326,
2184 + .00032, .01923, .03899,
2185 + .50060, .21033, .29350, .02675, .00346,
2186 + .00064, .01885, .03772,
2187 + .49049, .20481, .27504, .02597, .00366,
2188 + .00097, .01836, .03629,
2189 + .48152, .20003, .25970, .02530, .00380,
2190 + .00122, .01793, .03505,
2191 + .47339, .19576, .24649, .02471, .00392,
2192 + .00144, .01753, .03395,
2193 + .46308, .19042, .23072, .02395, .00403,
2194 + .00167, .01704, .03257,
2195 + .45345, .18552, .21692, .02326, .00411,
2196 + .00185, .01656, .03134,
2197 + .44458, .18102, .20486, .02263, .00416,
2198 + .00199, .01611, .03023 /
2199 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
2200 + .43574, .17659, .19352, .02198, .00420,
2201 + .00212, .01567, .02917,
2202 + .42722, .17236, .18315, .02137, .00422,
2203 + .00222, .01524, .02818,
2204 + .41926, .16845, .17390, .02079, .00423,
2205 + .00231, .01485, .02727,
2206 + .41178, .16484, .16567, .02027, .00423,
2207 + .00238, .01449, .02641,
2208 + .40439, .16129, .15788, .01977, .00422,
2209 + .00243, .01414, .02558,
2210 + .39718, .15787, .15060, .01927, .00420,
2211 + .00247, .01380, .02479,
2212 + .39043, .15468, .14407, .01883, .00419,
2213 + .00251, .01347, .02406,
2214 + .38410, .15169, .13819, .01838, .00415,
2215 + .00253, .01317, .02340 /
2216 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
2217 + .37782, .14872, .13255, .01794, .00413,
2218 + .00255, .01286, .02278,
2219 + .37169, .14586, .12726, .01753, .00409,
2220 + .00257, .01257, .02216,
2221 + .36586, .14319, .12246, .01716, .00405,
2222 + .00257, .01230, .02156,
2223 + .36044, .14071, .11810, .01682, .00402,
2224 + .00258, .01205, .02100,
2225 + .35498, .13821, .11386, .01646, .00399,
2226 + .00259, .01179, .02048 /
2227 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
2228 + .63221, .28827, .57969, .02975, .00000,
2229 + .00000, .01844, .05277,
2230 + .62658, .28328, .55860, .02952, .00000,
2231 + .00000, .01843, .05101,
2232 + .61721, .27573, .53608, .02910, -.00468,
2233 + .00000, .01834, .04858,
2234 + .60965, .27009, .51112, .02872, -.00385,
2235 + .00000, .01825, .04692,
2236 + .60129, .26410, .48479, .02827, -.00284,
2237 + .00000, .01814, .04525,
2238 + .59367, .25898, .46257, .02789, -.00216,
2239 + .00000, .01800, .04385,
2240 + .58612, .25408, .44172, .02750, -.00157,
2241 + .00000, .01783, .04252,
2242 + .57794, .24892, .42048, .02708, -.00098,
2243 + .00000, .01763, .04114 /
2244 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
2245 + .57066, .24443, .40237, .02667, -.00053,
2246 + .00000, .01745, .03999,
2247 + .56356, .24014, .38560, .02627, -.00013,
2248 + .00000, .01726, .03891,
2249 + .55784, .23674, .37261, .02595, .00017,
2250 + .00000, .01711, .03808,
2251 + .54553, .22961, .34598, .02525, .00073,
2252 + .00000, .01672, .03635,
2253 + .53477, .22354, .32755, .02465, .00114,
2254 + -.00168, .01638, .03492,
2255 + .52269, .21687, .30337, .02395, .00154,
2256 + -.00105, .01599, .03338,
2257 + .51012, .21011, .28019, .02318, .00188,
2258 + -.00057, .01556, .03187,
2259 + .49866, .20412, .26061, .02252, .00213,
2260 + -.00019, .01517, .03051 /
2261 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
2262 + .48724, .19819, .24239, .02183, .00235,
2263 + .00014, .01475, .02921,
2264 + .47789, .19339, .22833, .02125, .00250,
2265 + .00039, .01439, .02819,
2266 + .46655, .18768, .21237, .02059, .00265,
2267 + .00064, .01396, .02699,
2268 + .45665, .18274, .19930, .01999, .00275,
2269 + .00083, .01359, .02596,
2270 + .44776, .17835, .18815, .01944, .00283,
2271 + .00099, .01326, .02505,
2272 + .43646, .17292, .17493, .01881, .00290,
2273 + .00115, .01281, .02394,
2274 + .42604, .16795, .16347, .01819, .00296,
2275 + .00129, .01240, .02295,
2276 + .41650, .16341, .15354, .01762, .00299,
2277 + .00140, .01203, .02205 /
2278 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
2279 + .40705, .15899, .14429, .01706, .00301,
2280 + .00148, .01167, .02120,
2281 + .39798, .15475, .13587, .01653, .00302,
2282 + .00156, .01132, .02041,
2283 + .38955, .15084, .12845, .01603, .00302,
2284 + .00162, .01099, .01969,
2285 + .38171, .14722, .12188, .01558, .00300,
2286 + .00165, .01068, .01903,
2287 + .37401, .14370, .11568, .01514, .00300,
2288 + .00170, .01038, .01839,
2289 + .36646, .14031, .10995, .01473, .00297,
2290 + .00172, .01010, .01777,
2291 + .35943, .13718, .10483, .01434, .00296,
2292 + .00175, .00984, .01721,
2293 + .35287, .13427, .10024, .01399, .00293,
2294 + .00176, .00960, .01668 /
2295 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
2296 + .34637, .13140, .09588, .01364, .00291,
2297 + .00177, .00936, .01615,
2298 + .34005, .12864, .09179, .01330, .00288,
2299 + .00178, .00912, .01566,
2300 + .33409, .12605, .08809, .01297, .00285,
2301 + .00179, .00891, .01522,
2302 + .32856, .12363, .08474, .01266, .00282,
2303 + .00179, .00871, .01483,
2304 + .32299, .12123, .08152, .01237, .00279,
2305 + .00178, .00849, .01443 /
2306 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
2307 + .63344, .27892, .51650, .02535, .00000,
2308 + .00000, .01397, .04076,
2309 + .62553, .27299, .49259, .02502, .00000,
2310 + .00000, .01406, .03939,
2311 + .61292, .26422, .46621, .02452, -.00422,
2312 + .00000, .01410, .03738,
2313 + .60314, .25784, .43997, .02415, -.00348,
2314 + .00000, .01404, .03599,
2315 + .59252, .25118, .41293, .02373, -.00261,
2316 + .00000, .01396, .03460,
2317 + .58310, .24551, .39053, .02333, -.00202,
2318 + .00000, .01388, .03339,
2319 + .57393, .24011, .36993, .02295, -.00151,
2320 + .00000, .01374, .03230,
2321 + .56416, .23443, .34919, .02250, -.00100,
2322 + .00000, .01359, .03117 /
2323 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
2324 + .55555, .22951, .33186, .02206, -.00063,
2325 + .00000, .01343, .03023,
2326 + .54724, .22487, .31591, .02165, -.00029,
2327 + .00000, .01329, .02936,
2328 + .54059, .22124, .30373, .02134, -.00005,
2329 + .00000, .01314, .02865,
2330 + .52643, .21365, .27905, .02067, .00040,
2331 + .00000, .01282, .02723,
2332 + .51417, .20728, .26196, .02007, .00073,
2333 + -.00139, .01252, .02605,
2334 + .50057, .20034, .24033, .01942, .00105,
2335 + -.00090, .01218, .02480,
2336 + .48661, .19331, .21982, .01873, .00132,
2337 + -.00051, .01185, .02355,
2338 + .47405, .18709, .20281, .01808, .00151,
2339 + -.00022, .01146, .02249 /
2340 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
2341 + .46156, .18102, .18712, .01746, .00168,
2342 + .00004, .01112, .02145,
2343 + .45139, .17614, .17513, .01696, .00179,
2344 + .00023, .01084, .02061,
2345 + .43920, .17041, .16172, .01633, .00190,
2346 + .00042, .01047, .01964,
2347 + .42858, .16545, .15078, .01582, .00197,
2348 + .00055, .01015, .01884,
2349 + .41908, .16105, .14154, .01534, .00203,
2350 + .00068, .00986, .01814,
2351 + .40721, .15560, .13074, .01474, .00208,
2352 + .00080, .00949, .01729,
2353 + .39626, .15065, .12144, .01421, .00211,
2354 + .00089, .00916, .01650,
2355 + .38624, .14618, .11343, .01374, .00213,
2356 + .00097, .00887, .01580 /
2357 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
2358 + .37643, .14180, .10607, .01324, .00215,
2359 + .00104, .00857, .01515,
2360 + .36705, .13767, .09940, .01278, .00214,
2361 + .00108, .00829, .01454,
2362 + .35836, .13386, .09357, .01236, .00214,
2363 + .00113, .00803, .01396,
2364 + .35031, .13037, .08843, .01198, .00213,
2365 + .00115, .00779, .01345,
2366 + .34240, .12697, .08363, .01161, .00212,
2367 + .00118, .00755, .01295,
2368 + .33475, .12371, .07920, .01126, .00210,
2369 + .00120, .00733, .01246,
2370 + .32762, .12069, .07526, .01096, .00208,
2371 + .00122, .00713, .01202,
2372 + .32099, .11789, .07176, .01066, .00205,
2373 + .00122, .00693, .01162 /
2374 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
2375 + .31442, .11514, .06845, .01037, .00204,
2376 + .00123, .00674, .01125,
2377 + .30808, .11249, .06534, .01010, .00201,
2378 + .00123, .00655, .01089,
2379 + .30215, .11001, .06256, .00981, .00199,
2380 + .00124, .00638, .01057,
2381 + .29665, .10772, .06004, .00957, .00197,
2382 + .00124, .00621, .01027,
2383 + .29113, .10544, .05764, .00931, .00194,
2384 + .00123, .00606, .00997 /
2385 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
2386 + .62890, .26634, .45213, .02090, .00000,
2387 + .00000, .01083, .03108,
2388 + .61861, .25975, .42684, .02067, .00000,
2389 + .00000, .01090, .02991,
2390 + .60280, .25010, .39825, .02026, -.00373,
2391 + .00000, .01093, .02830,
2392 + .59088, .24314, .37190, .01991, -.00307,
2393 + .00000, .01091, .02716,
2394 + .57823, .23597, .34530, .01949, -.00233,
2395 + .00000, .01087, .02599,
2396 + .56719, .22986, .32371, .01911, -.00182,
2397 + .00000, .01078, .02503,
2398 + .55651, .22412, .30412, .01872, -.00140,
2399 + .00000, .01068, .02416,
2400 + .54524, .21818, .28465, .01831, -.00097,
2401 + .00000, .01052, .02324 /
2402 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
2403 + .53538, .21305, .26860, .01797, -.00067,
2404 + .00000, .01038, .02245,
2405 + .52597, .20822, .25402, .01759, -.00039,
2406 + .00000, .01023, .02173,
2407 + .51854, .20441, .24297, .01727, -.00020,
2408 + .00000, .01010, .02121,
2409 + .50274, .19660, .22086, .01665, .00017,
2410 + .00000, .00984, .02006,
2411 + .48927, .19010, .20549, .01613, .00044,
2412 + -.00113, .00959, .01910,
2413 + .47451, .18301, .18667, .01552, .00069,
2414 + -.00075, .00927, .01814,
2415 + .45946, .17590, .16911, .01490, .00090,
2416 + -.00045, .00894, .01716,
2417 + .44597, .16971, .15470, .01433, .00105,
2418 + -.00022, .00863, .01632 /
2419 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
2420 + .43271, .16364, .14155, .01376, .00117,
2421 + -.00003, .00833, .01552,
2422 + .42197, .15878, .13161, .01331, .00126,
2423 + .00012, .00808, .01489,
2424 + .40918, .15309, .12063, .01279, .00134,
2425 + .00026, .00779, .01413,
2426 + .39811, .14821, .11181, .01234, .00139,
2427 + .00036, .00753, .01347,
2428 + .38825, .14389, .10434, .01195, .00143,
2429 + .00045, .00731, .01291,
2430 + .37598, .13860, .09572, .01143, .00147,
2431 + .00055, .00701, .01226,
2432 + .36477, .13379, .08837, .01098, .00149,
2433 + .00061, .00673, .01166,
2434 + .35458, .12946, .08212, .01056, .00150,
2435 + .00067, .00649, .01112 /
2436 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
2437 + .34458, .12525, .07640, .01015, .00150,
2438 + .00071, .00625, .01064,
2439 + .33506, .12128, .07126, .00978, .00150,
2440 + .00075, .00603, .01017,
2441 + .32631, .11764, .06677, .00944, .00150,
2442 + .00078, .00584, .00975,
2443 + .31823, .11431, .06288, .00913, .00149,
2444 + .00080, .00564, .00936,
2445 + .31033, .11108, .05926, .00883, .00148,
2446 + .00082, .00545, .00898,
2447 + .30269, .10799, .05595, .00853, .00146,
2448 + .00082, .00528, .00862,
2449 + .29562, .10515, .05299, .00827, .00145,
2450 + .00084, .00511, .00829,
2451 + .28908, .10251, .05040, .00802, .00143,
2452 + .00084, .00495, .00801 /
2453 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
2454 + .28265, .09993, .04794, .00778, .00141,
2455 + .00084, .00481, .00774,
2456 + .27643, .09744, .04566, .00754, .00139,
2457 + .00084, .00466, .00748,
2458 + .27060, .09511, .04361, .00732, .00137,
2459 + .00084, .00453, .00724,
2460 + .26520, .09298, .04177, .00711, .00136,
2461 + .00084, .00440, .00702,
2462 + .25979, .09086, .04002, .00692, .00134,
2463 + .00084, .00429, .00679 /
2464 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
2465 + .61802, .25229, .38693, .01755, .00000,
2466 + .00000, .00811, .02289,
2467 + .60562, .24509, .36144, .01729, .00000,
2468 + .00000, .00821, .02202,
2469 + .58695, .23468, .33240, .01683, -.00321,
2470 + .00000, .00830, .02076,
2471 + .57318, .22731, .30707, .01646, -.00264,
2472 + .00000, .00829, .01994,
2473 + .55868, .21973, .28204, .01606, -.00202,
2474 + .00000, .00822, .01908,
2475 + .54617, .21339, .26201, .01570, -.00159,
2476 + .00000, .00819, .01830,
2477 + .53423, .20742, .24406, .01534, -.00123,
2478 + .00000, .00808, .01762,
2479 + .52171, .20126, .22642, .01494, -.00089,
2480 + .00000, .00796, .01694 /
2481 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
2482 + .51091, .19602, .21207, .01458, -.00064,
2483 + .00000, .00785, .01632,
2484 + .50059, .19108, .19916, .01425, -.00042,
2485 + .00000, .00772, .01577,
2486 + .49245, .18726, .18954, .01397, -.00026,
2487 + .00000, .00761, .01534,
2488 + .47545, .17934, .17047, .01339, .00004,
2489 + .00000, .00738, .01443,
2490 + .46109, .17279, .15715, .01290, .00024,
2491 + -.00091, .00719, .01370,
2492 + .44541, .16577, .14128, .01238, .00043,
2493 + -.00062, .00693, .01293,
2494 + .42959, .15875, .12665, .01181, .00060,
2495 + -.00038, .00669, .01217,
2496 + .41557, .15258, .11484, .01131, .00072,
2497 + -.00021, .00644, .01154 /
2498 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
2499 + .40181, .14664, .10424, .01081, .00081,
2500 + -.00006, .00618, .01093,
2501 + .39073, .14193, .09627, .01043, .00087,
2502 + .00005, .00597, .01044,
2503 + .37762, .13636, .08754, .00996, .00092,
2504 + .00015, .00572, .00992,
2505 + .36635, .13164, .08057, .00957, .00096,
2506 + .00023, .00551, .00945,
2507 + .35633, .12747, .07478, .00922, .00099,
2508 + .00029, .00532, .00905,
2509 + .34393, .12237, .06812, .00880, .00102,
2510 + .00037, .00509, .00854,
2511 + .33266, .11777, .06251, .00841, .00103,
2512 + .00041, .00489, .00809,
2513 + .32247, .11364, .05774, .00806, .00104,
2514 + .00045, .00471, .00769 /
2515 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
2516 + .31254, .10966, .05344, .00773, .00105,
2517 + .00049, .00451, .00732,
2518 + .30312, .10592, .04962, .00743, .00104,
2519 + .00051, .00432, .00698,
2520 + .29445, .10251, .04630, .00715, .00104,
2521 + .00053, .00417, .00666,
2522 + .28650, .09938, .04344, .00688, .00103,
2523 + .00054, .00402, .00638,
2524 + .27876, .09635, .04077, .00662, .00102,
2525 + .00056, .00389, .00613,
2526 + .27130, .09346, .03837, .00639, .00101,
2527 + .00056, .00375, .00588,
2528 + .26440, .09081, .03625, .00618, .00099,
2529 + .00057, .00361, .00566,
2530 + .25804, .08837, .03439, .00599, .00098,
2531 + .00057, .00350, .00544 /
2532 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
2533 + .25178, .08597, .03261, .00578, .00097,
2534 + .00057, .00339, .00525,
2535 + .24576, .08369, .03100, .00559, .00096,
2536 + .00058, .00328, .00505,
2537 + .24012, .08155, .02954, .00543, .00094,
2538 + .00057, .00318, .00488,
2539 + .23492, .07958, .02825, .00528, .00093,
2540 + .00057, .00308, .00472,
2541 + .22975, .07764, .02701, .00513, .00091,
2542 + .00057, .00300, .00455 /
2543 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
2544 + .60181, .23656, .32153, .01456, .00000,
2545 + .00000, .00600, .01646,
2546 + .58742, .22899, .29719, .01431, .00000,
2547 + .00000, .00614, .01579,
2548 + .56609, .21818, .26934, .01389, -.00270,
2549 + .00000, .00624, .01484,
2550 + .55068, .21055, .24604, .01351, -.00221,
2551 + .00000, .00628, .01420,
2552 + .53470, .20275, .22343, .01307, -.00170,
2553 + .00000, .00624, .01357,
2554 + .52093, .19625, .20556, .01276, -.00135,
2555 + .00000, .00614, .01308,
2556 + .50800, .19018, .18981, .01241, -.00106,
2557 + .00000, .00608, .01255,
2558 + .49453, .18395, .17450, .01203, -.00078,
2559 + .00000, .00599, .01201 /
2560 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
2561 + .48291, .17867, .16222, .01169, -.00058,
2562 + .00000, .00589, .01158,
2563 + .47191, .17374, .15123, .01139, -.00040,
2564 + .00000, .00579, .01117,
2565 + .46332, .16996, .14307, .01115, -.00027,
2566 + .00000, .00570, .01082,
2567 + .44540, .16210, .12720, .01062, -.00004,
2568 + .00000, .00551, .01016,
2569 + .43043, .15562, .11613, .01018, .00012,
2570 + -.00071, .00532, .00965,
2571 + .41420, .14871, .10324, .00971, .00026,
2572 + -.00049, .00511, .00910,
2573 + .39786, .14186, .09154, .00924, .00038,
2574 + -.00031, .00489, .00854,
2575 + .38353, .13592, .08220, .00879, .00047,
2576 + -.00018, .00470, .00805 /
2577 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
2578 + .36954, .13020, .07390, .00837, .00055,
2579 + -.00007, .00451, .00761,
2580 + .35834, .12565, .06775, .00805, .00059,
2581 + .00000, .00434, .00724,
2582 + .34519, .12037, .06107, .00766, .00063,
2583 + .00008, .00415, .00682,
2584 + .33391, .11587, .05580, .00733, .00066,
2585 + .00014, .00400, .00648,
2586 + .32394, .11192, .05145, .00704, .00068,
2587 + .00019, .00386, .00618,
2588 + .31167, .10711, .04650, .00668, .00070,
2589 + .00025, .00366, .00582,
2590 + .30052, .10278, .04239, .00639, .00071,
2591 + .00028, .00349, .00550,
2592 + .29047, .09891, .03894, .00614, .00072,
2593 + .00031, .00335, .00520 /
2594 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
2595 + .28078, .09520, .03585, .00584, .00071,
2596 + .00032, .00321, .00493,
2597 + .27161, .09170, .03311, .00557, .00071,
2598 + .00034, .00308, .00469,
2599 + .26321, .08851, .03077, .00534, .00070,
2600 + .00035, .00295, .00449,
2601 + .25550, .08564, .02874, .00513, .00071,
2602 + .00037, .00284, .00429,
2603 + .24801, .08284, .02687, .00494, .00070,
2604 + .00038, .00274, .00410,
2605 + .24086, .08017, .02520, .00475, .00069,
2606 + .00038, .00263, .00392,
2607 + .23429, .07774, .02373, .00457, .00067,
2608 + .00038, .00254, .00377,
2609 + .22823, .07550, .02244, .00440, .00067,
2610 + .00039, .00245, .00363 /
2611 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
2612 + .22228, .07331, .02127, .00424, .00066,
2613 + .00039, .00236, .00349,
2614 + .21655, .07122, .02016, .00410, .00065,
2615 + .00039, .00229, .00335,
2616 + .21119, .06929, .01919, .00397, .00064,
2617 + .00039, .00220, .00324,
2618 + .20624, .06750, .01832, .00385, .00063,
2619 + .00038, .00214, .00313,
2620 + .20136, .06575, .01750, .00373, .00063,
2621 + .00039, .00206, .00301 /
2622 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
2623 + .58057, .21967, .25773, .01178, .00000,
2624 + .00000, .00457, .01154,
2625 + .56445, .21184, .23558, .01152, .00000,
2626 + .00000, .00463, .01116,
2627 + .54100, .20077, .21020, .01111, -.00221,
2628 + .00000, .00470, .01054,
2629 + .52422, .19304, .18981, .01078, -.00181,
2630 + .00000, .00470, .01004,
2631 + .50694, .18522, .17024, .01043, -.00139,
2632 + .00000, .00468, .00955,
2633 + .49237, .17867, .15502, .01011, -.00111,
2634 + .00000, .00461, .00918,
2635 + .47859, .17264, .14179, .00979, -.00088,
2636 + .00000, .00454, .00881,
2637 + .46433, .16648, .12905, .00946, -.00067,
2638 + .00000, .00447, .00842 /
2639 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
2640 + .45220, .16127, .11895, .00917, -.00050,
2641 + .00000, .00437, .00810,
2642 + .44075, .15643, .11001, .00889, -.00037,
2643 + .00000, .00430, .00779,
2644 + .43184, .15269, .10341, .00869, -.00026,
2645 + .00000, .00423, .00754,
2646 + .41335, .14504, .09063, .00824, -.00009,
2647 + .00000, .00408, .00706,
2648 + .39805, .13879, .08193, .00786, .00003,
2649 + -.00055, .00395, .00667,
2650 + .38157, .13214, .07192, .00744, .00014,
2651 + -.00039, .00380, .00622,
2652 + .36515, .12559, .06289, .00705, .00024,
2653 + -.00025, .00359, .00582,
2654 + .35071, .11993, .05589, .00669, .00030,
2655 + -.00016, .00342, .00549 /
2656 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
2657 + .33675, .11449, .04968, .00635, .00035,
2658 + -.00008, .00326, .00518,
2659 + .32563, .11019, .04512, .00607, .00039,
2660 + -.00002, .00315, .00493,
2661 + .31266, .10520, .04026, .00577, .00042,
2662 + .00004, .00301, .00461,
2663 + .30152, .10099, .03647, .00550, .00044,
2664 + .00009, .00288, .00436,
2665 + .29171, .09732, .03338, .00526, .00046,
2666 + .00012, .00276, .00415,
2667 + .27976, .09284, .02989, .00500, .00047,
2668 + .00016, .00263, .00387,
2669 + .26897, .08882, .02702, .00472, .00048,
2670 + .00019, .00250, .00367,
2671 + .25929, .08524, .02465, .00448, .00048,
2672 + .00020, .00238, .00349 /
2673 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
2674 + .24995, .08183, .02254, .00425, .00048,
2675 + .00023, .00227, .00331,
2676 + .24115, .07863, .02069, .00405, .00048,
2677 + .00024, .00216, .00314,
2678 + .23312, .07571, .01913, .00389, .00048,
2679 + .00025, .00206, .00297,
2680 + .22576, .07307, .01777, .00374, .00048,
2681 + .00026, .00199, .00284,
2682 + .21864, .07055, .01657, .00359, .00047,
2683 + .00027, .00190, .00271,
2684 + .21186, .06814, .01548, .00345, .00046,
2685 + .00026, .00183, .00259,
2686 + .20564, .06593, .01455, .00330, .00046,
2687 + .00027, .00175, .00246,
2688 + .19990, .06390, .01373, .00318, .00045,
2689 + .00027, .00170, .00236 /
2690 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
2691 + .19429, .06194, .01296, .00307, .00045,
2692 + .00028, .00165, .00226,
2693 + .18892, .06007, .01225, .00296, .00044,
2694 + .00028, .00159, .00217,
2695 + .18393, .05832, .01164, .00286, .00044,
2696 + .00028, .00154, .00210,
2697 + .17934, .05673, .01108, .00278, .00043,
2698 + .00028, .00149, .00204,
2699 + .17479, .05516, .01059, .00268, .00042,
2700 + .00028, .00144, .00196 /
2701 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
2702 + .55487, .20248, .19727, .00968, .00000,
2703 + .00000, .00318, .00783,
2704 + .53735, .19458, .17808, .00943, .00000,
2705 + .00000, .00333, .00749,
2706 + .51214, .18338, .15638, .00900, -.00176,
2707 + .00000, .00337, .00709,
2708 + .49436, .17566, .13924, .00867, -.00144,
2709 + .00000, .00339, .00681,
2710 + .47619, .16790, .12305, .00835, -.00112,
2711 + .00000, .00339, .00647,
2712 + .46090, .16148, .11070, .00807, -.00089,
2713 + .00000, .00336, .00617,
2714 + .44664, .15552, .10008, .00775, -.00072,
2715 + .00000, .00332, .00594,
2716 + .43197, .14947, .08994, .00742, -.00054,
2717 + .00000, .00327, .00572 /
2718 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
2719 + .41945, .14444, .08206, .00721, -.00042,
2720 + .00000, .00320, .00548,
2721 + .40775, .13974, .07514, .00699, -.00031,
2722 + .00000, .00312, .00526,
2723 + .39872, .13612, .07011, .00678, -.00023,
2724 + .00000, .00306, .00507,
2725 + .38005, .12878, .06046, .00639, -.00009,
2726 + .00000, .00293, .00471,
2727 + .36465, .12281, .05393, .00606, .00000,
2728 + -.00042, .00283, .00445,
2729 + .34817, .11646, .04652, .00573, .00008,
2730 + -.00029, .00269, .00421,
2731 + .33181, .11026, .04000, .00539, .00015,
2732 + -.00020, .00258, .00389,
2733 + .31768, .10492, .03497, .00508, .00020,
2734 + -.00013, .00244, .00367 /
2735 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
2736 + .30401, .09982, .03062, .00479, .00024,
2737 + -.00007, .00231, .00345,
2738 + .29314, .09582, .02745, .00457, .00027,
2739 + -.00002, .00221, .00327,
2740 + .28050, .09121, .02414, .00432, .00028,
2741 + .00001, .00211, .00304,
2742 + .26978, .08731, .02161, .00410, .00030,
2743 + .00005, .00200, .00288,
2744 + .26037, .08391, .01954, .00391, .00031,
2745 + .00007, .00192, .00274,
2746 + .24885, .07978, .01727, .00369, .00032,
2747 + .00009, .00181, .00257,
2748 + .23853, .07611, .01546, .00347, .00033,
2749 + .00012, .00173, .00241,
2750 + .22931, .07286, .01394, .00329, .00033,
2751 + .00013, .00165, .00228 /
2752 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
2753 + .22040, .06976, .01264, .00314, .00033,
2754 + .00014, .00156, .00213,
2755 + .21207, .06686, .01151, .00299, .00033,
2756 + .00015, .00149, .00201,
2757 + .20453, .06424, .01055, .00284, .00033,
2758 + .00016, .00142, .00192,
2759 + .19766, .06186, .00978, .00269, .00032,
2760 + .00016, .00136, .00183,
2761 + .19103, .05958, .00905, .00257, .00033,
2762 + .00017, .00130, .00175,
2763 + .18467, .05742, .00843, .00247, .00032,
2764 + .00017, .00125, .00165,
2765 + .17884, .05547, .00788, .00239, .00032,
2766 + .00018, .00120, .00157,
2767 + .17352, .05367, .00740, .00230, .00032,
2768 + .00018, .00116, .00151 /
2769 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
2770 + .16834, .05192, .00698, .00221, .00031,
2771 + .00018, .00110, .00145,
2772 + .16338, .05025, .00660, .00213, .00031,
2773 + .00019, .00105, .00138,
2774 + .15879, .04872, .00625, .00204, .00031,
2775 + .00019, .00102, .00132,
2776 + .15457, .04731, .00595, .00197, .00030,
2777 + .00019, .00099, .00127,
2778 + .15038, .04593, .00567, .00191, .00030,
2779 + .00019, .00096, .00122 /
2780 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
2781 + .52539, .18482, .14163, .00778, .00000,
2782 + .00000, .00230, .00506,
2783 + .50687, .17694, .12598, .00754, .00000,
2784 + .00000, .00237, .00489,
2785 + .48046, .16589, .10845, .00716, -.00137,
2786 + .00000, .00238, .00465,
2787 + .46193, .15835, .09487, .00689, -.00112,
2788 + .00000, .00241, .00444,
2789 + .44313, .15083, .08225, .00661, -.00088,
2790 + .00000, .00242, .00422,
2791 + .42753, .14456, .07278, .00631, -.00070,
2792 + .00000, .00239, .00411,
2793 + .41297, .13885, .06476, .00609, -.00056,
2794 + .00000, .00233, .00391,
2795 + .39805, .13307, .05729, .00588, -.00043,
2796 + .00000, .00227, .00367 /
2797 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
2798 + .38550, .12824, .05145, .00565, -.00034,
2799 + .00000, .00225, .00351,
2800 + .37379, .12377, .04642, .00543, -.00026,
2801 + .00000, .00219, .00338,
2802 + .36475, .12033, .04281, .00525, -.00020,
2803 + .00000, .00214, .00330,
2804 + .34616, .11334, .03601, .00490, -.00010,
2805 + .00000, .00203, .00308,
2806 + .33099, .10772, .03150, .00465, -.00003,
2807 + -.00031, .00195, .00287,
2808 + .31484, .10180, .02638, .00439, .00003,
2809 + -.00022, .00186, .00266,
2810 + .29892, .09602, .02200, .00408, .00009,
2811 + -.00015, .00175, .00247,
2812 + .28512, .09106, .01870, .00385, .00012,
2813 + -.00010, .00165, .00233 /
2814 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
2815 + .27192, .08634, .01588, .00363, .00015,
2816 + -.00006, .00158, .00218,
2817 + .26147, .08266, .01389, .00345, .00017,
2818 + -.00003, .00151, .00205,
2819 + .24934, .07843, .01185, .00325, .00019,
2820 + -.00001, .00144, .00192,
2821 + .23914, .07488, .01035, .00305, .00021,
2822 + .00002, .00136, .00180,
2823 + .23020, .07177, .00914, .00290, .00022,
2824 + .00003, .00128, .00171,
2825 + .21932, .06802, .00785, .00272, .00024,
2826 + .00005, .00120, .00161,
2827 + .20957, .06471, .00683, .00257, .00025,
2828 + .00006, .00114, .00152,
2829 + .20088, .06179, .00601, .00244, .00025,
2830 + .00007, .00109, .00144 /
2831 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
2832 + .19258, .05896, .00533, .00231, .00025,
2833 + .00007, .00103, .00136,
2834 + .18482, .05636, .00476, .00219, .00025,
2835 + .00008, .00098, .00128,
2836 + .17779, .05405, .00430, .00209, .00025,
2837 + .00008, .00092, .00121,
2838 + .17141, .05194, .00393, .00200, .00025,
2839 + .00009, .00088, .00113,
2840 + .16526, .04992, .00359, .00190, .00025,
2841 + .00009, .00085, .00107,
2842 + .15945, .04801, .00332, .00181, .00025,
2843 + .00010, .00080, .00102,
2844 + .15414, .04627, .00309, .00172, .00025,
2845 + .00010, .00077, .00097,
2846 + .14927, .04468, .00288, .00165, .00024,
2847 + .00010, .00075, .00093 /
2848 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
2849 + .14451, .04314, .00269, .00159, .00024,
2850 + .00010, .00072, .00089,
2851 + .13998, .04167, .00254, .00154, .00024,
2852 + .00011, .00069, .00085,
2853 + .13582, .04034, .00242, .00147, .00024,
2854 + .00011, .00066, .00081,
2855 + .13200, .03912, .00229, .00141, .00024,
2856 + .00011, .00064, .00078,
2857 + .12821, .03790, .00221, .00135, .00023,
2858 + .00011, .00062, .00074 /
2859 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
2860 + .49284, .16686, .09237, .00592, .00000,
2861 + .00000, .00166, .00330,
2862 + .47359, .15913, .08040, .00571, .00000,
2863 + .00000, .00172, .00321,
2864 + .44631, .14848, .06714, .00544, -.00104,
2865 + .00000, .00177, .00303,
2866 + .42746, .14119, .05716, .00521, -.00085,
2867 + .00000, .00174, .00289,
2868 + .40848, .13392, .04807, .00494, -.00067,
2869 + .00000, .00171, .00279,
2870 + .39270, .12798, .04134, .00475, -.00053,
2871 + .00000, .00167, .00266,
2872 + .37810, .12257, .03571, .00457, -.00043,
2873 + .00000, .00167, .00252,
2874 + .36325, .11710, .03053, .00437, -.00033,
2875 + .00000, .00165, .00239 /
2876 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
2877 + .35083, .11255, .02666, .00420, -.00027,
2878 + .00000, .00160, .00228,
2879 + .33928, .10835, .02336, .00403, -.00021,
2880 + .00000, .00155, .00218,
2881 + .33038, .10512, .02103, .00389, -.00016,
2882 + .00000, .00151, .00212,
2883 + .31220, .09859, .01671, .00360, -.00009,
2884 + .00000, .00142, .00201,
2885 + .29746, .09335, .01395, .00335, -.00004,
2886 + -.00022, .00136, .00191,
2887 + .28189, .08786, .01078, .00311, .00000,
2888 + -.00016, .00132, .00180,
2889 + .26648, .08256, .00822, .00295, .00005,
2890 + -.00011, .00124, .00162,
2891 + .25328, .07804, .00638, .00276, .00007,
2892 + -.00008, .00117, .00151 /
2893 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
2894 + .24071, .07376, .00486, .00257, .00009,
2895 + -.00005, .00109, .00141,
2896 + .23082, .07041, .00384, .00241, .00011,
2897 + -.00003, .00104, .00133,
2898 + .21932, .06658, .00284, .00229, .00012,
2899 + -.00002, .00098, .00125,
2900 + .20969, .06336, .00213, .00217, .00013,
2901 + -.00001, .00094, .00118,
2902 + .20131, .06058, .00161, .00206, .00014,
2903 + .00000, .00089, .00111,
2904 + .19119, .05725, .00108, .00190, .00015,
2905 + .00001, .00084, .00102,
2906 + .18215, .05431, .00071, .00179, .00016,
2907 + .00002, .00079, .00095,
2908 + .17410, .05169, .00047, .00169, .00016,
2909 + .00002, .00073, .00089 /
2910 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
2911 + .16642, .04924, .00022, .00161, .00017,
2912 + .00003, .00071, .00084,
2913 + .15930, .04695, .00009, .00150, .00017,
2914 + .00003, .00066, .00079,
2915 + .15290, .04487, -.00002, .00140, .00018,
2916 + .00004, .00064, .00076,
2917 + .14707, .04301, -.00009, .00133, .00018,
2918 + .00004, .00060, .00073,
2919 + .14147, .04125, -.00014, .00126, .00018,
2920 + .00004, .00057, .00070,
2921 + .13617, .03957, -.00018, .00121, .00019,
2922 + .00005, .00055, .00065,
2923 + .13136, .03807, -.00019, .00117, .00019,
2924 + .00005, .00053, .00060,
2925 + .12696, .03669, -.00020, .00110, .00019,
2926 + .00005, .00051, .00057 /
2927 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
2928 + .12268, .03536, -.00019, .00105, .00018,
2929 + .00005, .00048, .00056,
2930 + .11860, .03409, -.00018, .00101, .00018,
2931 + .00005, .00046, .00054,
2932 + .11482, .03293, -.00015, .00097, .00018,
2933 + .00005, .00044, .00051,
2934 + .11137, .03188, -.00014, .00094, .00019,
2935 + .00006, .00042, .00049,
2936 + .10801, .03084, -.00013, .00091, .00019,
2937 + .00006, .00040, .00048 /
2938 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
2939 + .45776, .14923, .04997, .00451, .00000,
2940 + .00000, .00126, .00203,
2941 + .43805, .14180, .04170, .00431, .00000,
2942 + .00000, .00128, .00202,
2943 + .41052, .13151, .03297, .00399, -.00078,
2944 + .00000, .00131, .00194,
2945 + .39165, .12454, .02627, .00378, -.00063,
2946 + .00000, .00131, .00189,
2947 + .37271, .11769, .02035, .00356, -.00050,
2948 + .00000, .00130, .00181,
2949 + .35713, .11211, .01611, .00339, -.00040,
2950 + .00000, .00127, .00171,
2951 + .34281, .10699, .01276, .00318, -.00032,
2952 + .00000, .00123, .00166,
2953 + .32828, .10185, .00978, .00296, -.00026,
2954 + .00000, .00120, .00159 /
2955 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
2956 + .31607, .09763, .00754, .00289, -.00021,
2957 + .00000, .00116, .00151,
2958 + .30476, .09373, .00572, .00279, -.00016,
2959 + .00000, .00113, .00143,
2960 + .29611, .09076, .00449, .00269, -.00014,
2961 + .00000, .00112, .00139,
2962 + .27856, .08476, .00231, .00248, -.00008,
2963 + .00000, .00105, .00130,
2964 + .26444, .07999, .00103, .00231, -.00005,
2965 + -.00016, .00100, .00121,
2966 + .24957, .07501, -.00047, .00213, -.00002,
2967 + -.00012, .00094, .00111,
2968 + .23501, .07019, -.00164, .00198, .00000,
2969 + -.00009, .00089, .00106,
2970 + .22255, .06609, -.00235, .00185, .00002,
2971 + -.00007, .00085, .00099 /
2972 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
2973 + .21074, .06224, -.00284, .00172, .00004,
2974 + -.00005, .00080, .00093,
2975 + .20149, .05926, -.00310, .00161, .00005,
2976 + -.00004, .00075, .00088,
2977 + .19089, .05582, -.00330, .00147, .00006,
2978 + -.00003, .00071, .00082,
2979 + .18197, .05299, -.00341, .00138, .00007,
2980 + -.00002, .00067, .00077,
2981 + .17422, .05053, -.00343, .00132, .00007,
2982 + -.00002, .00063, .00073,
2983 + .16488, .04756, -.00338, .00122, .00008,
2984 + -.00001, .00059, .00068,
2985 + .15658, .04498, -.00330, .00115, .00008,
2986 + -.00001, .00057, .00062,
2987 + .14924, .04271, -.00323, .00110, .00009,
2988 + .00000, .00055, .00058 /
2989 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
2990 + .14227, .04057, -.00305, .00102, .00009,
2991 + .00000, .00050, .00053,
2992 + .13581, .03857, -.00290, .00096, .00010,
2993 + .00001, .00047, .00050,
2994 + .12999, .03679, -.00276, .00090, .00010,
2995 + .00001, .00046, .00048,
2996 + .12474, .03518, -.00262, .00085, .00010,
2997 + .00001, .00044, .00047,
2998 + .11971, .03365, -.00247, .00081, .00010,
2999 + .00001, .00040, .00046,
3000 + .11497, .03221, -.00233, .00075, .00010,
3001 + .00001, .00038, .00043,
3002 + .11066, .03092, -.00219, .00071, .00011,
3003 + .00002, .00037, .00041,
3004 + .10672, .02975, -.00205, .00069, .00011,
3005 + .00002, .00034, .00037 /
3006 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
3007 + .10289, .02862, -.00194, .00067, .00011,
3008 + .00002, .00033, .00035,
3009 + .09928, .02756, -.00183, .00065, .00011,
3010 + .00002, .00032, .00033,
3011 + .09597, .02656, -.00172, .00062, .00011,
3012 + .00002, .00031, .00032,
3013 + .09296, .02566, -.00161, .00058, .00011,
3014 + .00002, .00030, .00031,
3015 + .08998, .02478, -.00152, .00056, .00011,
3016 + .00002, .00029, .00030 /
3017 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
3018 + .42105, .13266, .01474, .00369, .00000,
3019 + .00000, .00062, .00110,
3020 + .40144, .12556, .00985, .00349, .00000,
3021 + .00000, .00071, .00107,
3022 + .37414, .11587, .00518, .00320, -.00056,
3023 + .00000, .00076, .00102,
3024 + .35553, .10933, .00154, .00297, -.00046,
3025 + .00000, .00078, .00100,
3026 + .33699, .10289, -.00153, .00277, -.00036,
3027 + .00000, .00075, .00097,
3028 + .32170, .09768, -.00366, .00271, -.00029,
3029 + .00000, .00075, .00093,
3030 + .30775, .09293, -.00518, .00260, -.00024,
3031 + .00000, .00075, .00087,
3032 + .29369, .08820, -.00642, .00245, -.00019,
3033 + .00000, .00074, .00084 /
3034 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
3035 + .28204, .08428, -.00719, .00230, -.00015,
3036 + .00000, .00070, .00084,
3037 + .27130, .08071, -.00777, .00216, -.00013,
3038 + .00000, .00068, .00084,
3039 + .26308, .07797, -.00809, .00206, -.00010,
3040 + .00000, .00065, .00082,
3041 + .24639, .07251, -.00857, .00191, -.00007,
3042 + .00000, .00063, .00077,
3043 + .23298, .06821, -.00868, .00181, -.00005,
3044 + -.00011, .00061, .00071,
3045 + .21898, .06376, -.00888, .00169, -.00003,
3046 + -.00009, .00057, .00063,
3047 + .20541, .05941, -.00878, .00154, -.00001,
3048 + -.00007, .00051, .00058,
3049 + .19389, .05575, -.00860, .00140, .00000,
3050 + -.00006, .00049, .00053 /
3051 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
3052 + .18299, .05233, -.00833, .00129, .00001,
3053 + -.00005, .00046, .00050,
3054 + .17447, .04966, -.00807, .00121, .00002,
3055 + -.00004, .00045, .00048,
3056 + .16465, .04665, -.00767, .00115, .00003,
3057 + -.00003, .00041, .00044,
3058 + .15647, .04415, -.00730, .00109, .00003,
3059 + -.00003, .00039, .00041,
3060 + .14941, .04199, -.00694, .00102, .00004,
3061 + -.00002, .00038, .00037,
3062 + .14092, .03941, -.00648, .00095, .00004,
3063 + -.00002, .00034, .00035,
3064 + .13348, .03715, -.00605, .00086, .00005,
3065 + -.00001, .00030, .00034,
3066 + .12692, .03517, -.00564, .00076, .00005,
3067 + -.00001, .00028, .00033 /
3068 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
3069 + .12062, .03331, -.00528, .00074, .00005,
3070 + -.00001, .00028, .00031,
3071 + .11479, .03159, -.00493, .00072, .00005,
3072 + -.00001, .00026, .00028,
3073 + .10958, .03006, -.00460, .00069, .00006,
3074 + .00000, .00026, .00025,
3075 + .10492, .02868, -.00431, .00065, .00006,
3076 + .00000, .00024, .00024,
3077 + .10046, .02739, -.00403, .00061, .00006,
3078 + .00000, .00023, .00023,
3079 + .09627, .02617, -.00376, .00056, .00006,
3080 + .00000, .00022, .00022,
3081 + .09246, .02506, -.00352, .00053, .00006,
3082 + .00000, .00021, .00021,
3083 + .08902, .02407, -.00331, .00050, .00006,
3084 + .00000, .00020, .00020 /
3085 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
3086 + .08567, .02310, -.00310, .00049, .00006,
3087 + .00000, .00017, .00019,
3088 + .08250, .02219, -.00290, .00047, .00006,
3089 + .00000, .00017, .00018,
3090 + .07961, .02136, -.00273, .00045, .00006,
3091 + .00000, .00016, .00016,
3092 + .07697, .02060, -.00257, .00043, .00006,
3093 + .00000, .00016, .00016,
3094 + .07437, .01986, -.00242, .00041, .00006,
3095 + .00000, .00015, .00015 /
3096 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
3097 + .38307, .11593, -.01285, .00247, .00000,
3098 + .00000, .00057, .00062,
3099 + .36365, .10933, -.01472, .00236, .00000,
3100 + .00000, .00059, .00064,
3101 + .33688, .10028, -.01586, .00221, -.00039,
3102 + .00000, .00058, .00069,
3103 + .31881, .09427, -.01697, .00208, -.00032,
3104 + .00000, .00055, .00068,
3105 + .30090, .08837, -.01765, .00195, -.00025,
3106 + .00000, .00053, .00063,
3107 + .28631, .08362, -.01789, .00181, -.00021,
3108 + .00000, .00052, .00061,
3109 + .27309, .07933, -.01788, .00168, -.00017,
3110 + .00000, .00050, .00058,
3111 + .25978, .07505, -.01768, .00155, -.00014,
3112 + .00000, .00050, .00055 /
3113 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
3114 + .24868, .07154, -.01736, .00151, -.00012,
3115 + .00000, .00049, .00051,
3116 + .23847, .06833, -.01696, .00145, -.00010,
3117 + .00000, .00048, .00048,
3118 + .23071, .06590, -.01661, .00140, -.00009,
3119 + .00000, .00046, .00048,
3120 + .21513, .06102, -.01574, .00128, -.00007,
3121 + .00000, .00042, .00045,
3122 + .20277, .05717, -.01491, .00117, -.00005,
3123 + -.00008, .00038, .00042,
3124 + .18981, .05320, -.01412, .00108, -.00004,
3125 + -.00007, .00037, .00035,
3126 + .17723, .04940, -.01332, .00102, -.00002,
3127 + -.00005, .00039, .00035,
3128 + .16666, .04622, -.01249, .00094, -.00002,
3129 + -.00005, .00034, .00033 /
3130 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
3131 + .15670, .04321, -.01163, .00086, -.00001,
3132 + -.00004, .00030, .00030,
3133 + .14893, .04089, -.01097, .00080, .00000,
3134 + -.00003, .00028, .00030,
3135 + .14008, .03828, -.01019, .00075, .00000,
3136 + -.00003, .00025, .00029,
3137 + .13273, .03612, -.00949, .00069, .00000,
3138 + -.00003, .00024, .00025,
3139 + .12640, .03428, -.00889, .00066, .00001,
3140 + -.00002, .00023, .00022,
3141 + .11883, .03207, -.00817, .00059, .00001,
3142 + -.00002, .00022, .00021,
3143 + .11215, .03013, -.00753, .00055, .00001,
3144 + -.00002, .00021, .00020,
3145 + .10629, .02844, -.00699, .00053, .00002,
3146 + -.00001, .00020, .00019 /
3147 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
3148 + .10074, .02686, -.00643, .00050, .00002,
3149 + -.00001, .00018, .00016,
3150 + .09563, .02541, -.00594, .00046, .00002,
3151 + -.00001, .00016, .00015,
3152 + .09107, .02411, -.00553, .00043, .00002,
3153 + -.00001, .00015, .00017,
3154 + .08699, .02296, -.00514, .00041, .00002,
3155 + -.00001, .00014, .00016,
3156 + .08308, .02186, -.00478, .00039, .00002,
3157 + -.00001, .00014, .00015,
3158 + .07943, .02084, -.00445, .00037, .00002,
3159 + -.00001, .00013, .00013,
3160 + .07615, .01991, -.00414, .00033, .00002,
3161 + -.00001, .00012, .00012,
3162 + .07315, .01908, -.00387, .00032, .00002,
3163 + -.00001, .00012, .00011 /
3164 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
3165 + .07026, .01828, -.00362, .00031, .00002,
3166 + -.00001, .00011, .00011,
3167 + .06751, .01753, -.00338, .00029, .00002,
3168 + -.00001, .00011, .00010,
3169 + .06501, .01684, -.00318, .00028, .00003,
3170 + .00000, .00010, .00010,
3171 + .06272, .01622, -.00300, .00027, .00003,
3172 + .00000, .00010, .00010,
3173 + .06050, .01561, -.00281, .00026, .00003,
3174 + .00000, .00010, .00009 /
3175 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
3176 + .34433, .10009, -.03319, .00163, .00000,
3177 + .00000, .00043, .00041,
3178 + .32557, .09401, -.03250, .00151, .00000,
3179 + .00000, .00044, .00043,
3180 + .29989, .08579, -.03068, .00136, -.00027,
3181 + .00000, .00042, .00045,
3182 + .28260, .08034, -.02978, .00129, -.00022,
3183 + .00000, .00043, .00042,
3184 + .26556, .07503, -.02867, .00125, -.00017,
3185 + .00000, .00040, .00041,
3186 + .25182, .07076, -.02752, .00116, -.00015,
3187 + .00000, .00040, .00036,
3188 + .23931, .06689, -.02635, .00110, -.00012,
3189 + .00000, .00039, .00037,
3190 + .22680, .06305, -.02507, .00104, -.00010,
3191 + .00000, .00038, .00037 /
3192 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
3193 + .21650, .05995, -.02394, .00098, -.00009,
3194 + .00000, .00037, .00035,
3195 + .20707, .05710, -.02282, .00093, -.00008,
3196 + .00000, .00035, .00033,
3197 + .19994, .05495, -.02195, .00089, -.00007,
3198 + .00000, .00034, .00030,
3199 + .18553, .05065, -.02010, .00081, -.00005,
3200 + .00000, .00030, .00030,
3201 + .17414, .04729, -.01862, .00074, -.00004,
3202 + -.00005, .00029, .00027,
3203 + .16238, .04383, -.01721, .00066, -.00003,
3204 + -.00004, .00028, .00024,
3205 + .15104, .04052, -.01577, .00059, -.00003,
3206 + -.00004, .00025, .00023,
3207 + .14148, .03773, -.01452, .00054, -.00002,
3208 + -.00003, .00022, .00024 /
3209 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
3210 + .13249, .03518, -.01334, .00050, -.00002,
3211 + -.00003, .00021, .00022,
3212 + .12552, .03322, -.01239, .00048, -.00001,
3213 + -.00002, .00019, .00019,
3214 + .11767, .03098, -.01136, .00044, -.00001,
3215 + -.00002, .00019, .00017,
3216 + .11115, .02913, -.01048, .00041, -.00001,
3217 + -.00002, .00018, .00016,
3218 + .10553, .02754, -.00975, .00038, .00000,
3219 + -.00001, .00017, .00016,
3220 + .09884, .02569, -.00885, .00035, .00000,
3221 + -.00001, .00015, .00014,
3222 + .09297, .02407, -.00810, .00034, .00000,
3223 + -.00001, .00014, .00013,
3224 + .08784, .02266, -.00743, .00031, .00000,
3225 + -.00001, .00013, .00012 /
3226 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
3227 + .08300, .02132, -.00682, .00030, .00000,
3228 + -.00001, .00012, .00012,
3229 + .07857, .02012, -.00626, .00028, .00000,
3230 + -.00001, .00012, .00010,
3231 + .07465, .01904, -.00579, .00025, .00000,
3232 + -.00001, .00011, .00009,
3233 + .07113, .01809, -.00536, .00022, .00000,
3234 + -.00001, .00011, .00008,
3235 + .06778, .01718, -.00497, .00021, .00000,
3236 + -.00001, .00010, .00008,
3237 + .06462, .01634, -.00461, .00020, .00001,
3238 + .00000, .00009, .00008,
3239 + .06177, .01559, -.00429, .00021, .00001,
3240 + .00000, .00009, .00008,
3241 + .05921, .01490, -.00400, .00019, .00001,
3242 + .00000, .00008, .00008 /
3243 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
3244 + .05678, .01424, -.00375, .00018, .00001,
3245 + .00000, .00008, .00008,
3246 + .05448, .01362, -.00350, .00017, .00001,
3247 + .00000, .00008, .00007,
3248 + .05234, .01307, -.00328, .00016, .00001,
3249 + .00000, .00007, .00007,
3250 + .05042, .01256, -.00307, .00016, .00001,
3251 + .00000, .00007, .00006,
3252 + .04854, .01207, -.00289, .00015, .00001,
3253 + .00000, .00007, .00006 /
3254 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
3255 + .30638, .08583, -.04789, .00127, .00000,
3256 + .00000, .00020, .00018,
3257 + .28845, .08032, -.04516, .00120, .00000,
3258 + .00000, .00020, .00017,
3259 + .26407, .07288, -.04096, .00109, -.00018,
3260 + .00000, .00020, .00016,
3261 + .24786, .06795, -.03847, .00101, -.00015,
3262 + .00000, .00019, .00017,
3263 + .23197, .06316, -.03589, .00091, -.00012,
3264 + .00000, .00020, .00019,
3265 + .21914, .05938, -.03378, .00087, -.00010,
3266 + .00000, .00022, .00017,
3267 + .20759, .05597, -.03172, .00080, -.00009,
3268 + .00000, .00019, .00017,
3269 + .19607, .05258, -.02961, .00073, -.00007,
3270 + .00000, .00017, .00017 /
3271 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
3272 + .18657, .04983, -.02787, .00071, -.00006,
3273 + .00000, .00019, .00014,
3274 + .17793, .04733, -.02625, .00066, -.00006,
3275 + .00000, .00018, .00013,
3276 + .17141, .04543, -.02500, .00061, -.00005,
3277 + .00000, .00017, .00014,
3278 + .15833, .04169, -.02255, .00057, -.00004,
3279 + .00000, .00016, .00014,
3280 + .14802, .03878, -.02065, .00053, -.00003,
3281 + -.00003, .00016, .00014,
3282 + .13739, .03578, -.01876, .00048, -.00003,
3283 + -.00003, .00013, .00014,
3284 + .12725, .03296, -.01695, .00043, -.00002,
3285 + -.00002, .00011, .00012,
3286 + .11876, .03060, -.01544, .00040, -.00002,
3287 + -.00002, .00012, .00008 /
3288 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
3289 + .11080, .02840, -.01403, .00037, -.00002,
3290 + -.00002, .00011, .00009,
3291 + .10467, .02673, -.01297, .00035, -.00001,
3292 + -.00001, .00010, .00009,
3293 + .09774, .02484, -.01176, .00031, -.00001,
3294 + -.00001, .00009, .00007,
3295 + .09203, .02329, -.01078, .00030, -.00001,
3296 + -.00001, .00009, .00006,
3297 + .08713, .02197, -.00995, .00029, -.00001,
3298 + -.00001, .00007, .00005,
3299 + .08134, .02041, -.00900, .00024, -.00001,
3300 + -.00001, .00008, .00007,
3301 + .07624, .01907, -.00818, .00023, -.00001,
3302 + -.00001, .00007, .00005,
3303 + .07179, .01788, -.00746, .00023, -.00001,
3304 + -.00001, .00005, .00006 /
3305 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
3306 + .06766, .01679, -.00683, .00021, -.00001,
3307 + -.00001, .00005, .00006,
3308 + .06387, .01579, -.00626, .00020, .00000,
3309 + .00000, .00006, .00006,
3310 + .06051, .01491, -.00574, .00017, .00000,
3311 + .00000, .00004, .00004,
3312 + .05749, .01413, -.00531, .00017, .00000,
3313 + .00000, .00004, .00004,
3314 + .05462, .01338, -.00491, .00017, .00000,
3315 + .00000, .00004, .00004,
3316 + .05198, .01270, -.00454, .00014, .00000,
3317 + .00000, .00004, .00005,
3318 + .04961, .01209, -.00421, .00013, .00000,
3319 + .00000, .00004, .00003,
3320 + .04745, .01152, -.00391, .00011, .00000,
3321 + .00000, .00004, .00003 /
3322 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
3323 + .04537, .01100, -.00366, .00012, .00000,
3324 + .00000, .00005, .00003,
3325 + .04343, .01050, -.00340, .00012, .00000,
3326 + .00000, .00003, .00003,
3327 + .04167, .01005, -.00319, .00010, .00000,
3328 + .00000, .00003, .00002,
3329 + .04008, .00964, -.00299, .00010, .00000,
3330 + .00000, .00003, .00002,
3331 + .03851, .00925, -.00281, .00009, .00000,
3332 + .00000, .00003, .00002 /
3333 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
3334 + .26857, .07200, -.05627, .00063, .00000,
3335 + .00000, .00022, .00018,
3336 + .25174, .06709, -.05215, .00063, .00000,
3337 + .00000, .00022, .00017,
3338 + .22908, .06056, -.04641, .00060, -.00011,
3339 + .00000, .00021, .00014,
3340 + .21411, .05625, -.04288, .00056, -.00009,
3341 + .00000, .00021, .00014,
3342 + .19952, .05208, -.03940, .00052, -.00008,
3343 + .00000, .00020, .00015,
3344 + .18783, .04877, -.03651, .00043, -.00007,
3345 + .00000, .00018, .00015,
3346 + .17726, .04581, -.03390, .00043, -.00006,
3347 + .00000, .00016, .00013,
3348 + .16674, .04291, -.03132, .00042, -.00005,
3349 + .00000, .00015, .00011 /
3350 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
3351 + .15819, .04055, -.02923, .00039, -.00004,
3352 + .00000, .00014, .00011,
3353 + .15040, .03840, -.02729, .00036, -.00004,
3354 + .00000, .00013, .00011,
3355 + .14453, .03679, -.02586, .00034, -.00003,
3356 + .00000, .00013, .00011,
3357 + .13287, .03361, -.02302, .00031, -.00003,
3358 + .00000, .00012, .00009,
3359 + .12374, .03114, -.02091, .00028, -.00002,
3360 + -.00002, .00011, .00009,
3361 + .11438, .02860, -.01877, .00024, -.00002,
3362 + -.00002, .00009, .00008,
3363 + .10543, .02624, -.01681, .00021, -.00002,
3364 + -.00002, .00009, .00008,
3365 + .09795, .02426, -.01520, .00022, -.00001,
3366 + -.00001, .00008, .00007 /
3367 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
3368 + .09106, .02243, -.01370, .00020, -.00001,
3369 + -.00001, .00008, .00005,
3370 + .08574, .02104, -.01258, .00018, -.00001,
3371 + -.00001, .00007, .00006,
3372 + .07975, .01948, -.01134, .00018, -.00001,
3373 + -.00001, .00006, .00006,
3374 + .07483, .01821, -.01034, .00016, -.00001,
3375 + -.00001, .00006, .00005,
3376 + .07063, .01713, -.00951, .00015, -.00001,
3377 + -.00001, .00006, .00005,
3378 + .06565, .01586, -.00854, .00015, -.00001,
3379 + -.00001, .00005, .00005,
3380 + .06134, .01475, -.00771, .00014, .00000,
3381 + .00000, .00005, .00003,
3382 + .05759, .01380, -.00702, .00014, .00000,
3383 + .00000, .00004, .00003 /
3384 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
3385 + .05411, .01291, -.00639, .00011, .00000,
3386 + .00000, .00005, .00003,
3387 + .05093, .01212, -.00583, .00010, .00000,
3388 + .00000, .00003, .00003,
3389 + .04810, .01140, -.00533, .00008, .00000,
3390 + .00000, .00003, .00003,
3391 + .04558, .01077, -.00492, .00008, .00000,
3392 + .00000, .00003, .00003,
3393 + .04322, .01018, -.00453, .00007, .00000,
3394 + .00000, .00003, .00003,
3395 + .04100, .00963, -.00417, .00007, .00000,
3396 + .00000, .00003, .00002,
3397 + .03902, .00914, -.00386, .00007, .00000,
3398 + .00000, .00003, .00002,
3399 + .03725, .00870, -.00360, .00007, .00000,
3400 + .00000, .00003, .00002 /
3401 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
3402 + .03554, .00829, -.00334, .00006, .00000,
3403 + .00000, .00002, .00003,
3404 + .03394, .00790, -.00311, .00006, .00000,
3405 + .00000, .00002, .00003,
3406 + .03248, .00753, -.00290, .00006, .00000,
3407 + .00000, .00002, .00002,
3408 + .03116, .00722, -.00273, .00006, .00000,
3409 + .00000, .00002, .00002,
3410 + .02990, .00690, -.00255, .00005, .00000,
3411 + .00000, .00002, .00002 /
3412 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
3413 + .19750, .04877, -.06000, .00030, .00000,
3414 + .00000, .00005, .00002,
3415 + .18354, .04507, -.05451, .00027, .00000,
3416 + .00000, .00005, .00004,
3417 + .16487, .04015, -.04726, .00026, -.00004,
3418 + .00000, .00005, .00004,
3419 + .15271, .03698, -.04273, .00021, -.00003,
3420 + .00000, .00006, .00004,
3421 + .14100, .03393, -.03842, .00015, -.00003,
3422 + .00000, .00006, .00004,
3423 + .13166, .03153, -.03505, .00016, -.00002,
3424 + .00000, .00004, .00002,
3425 + .12335, .02940, -.03213, .00016, -.00002,
3426 + .00000, .00005, .00005,
3427 + .11519, .02734, -.02931, .00015, -.00002,
3428 + .00000, .00006, .00005 /
3429 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
3430 + .10857, .02565, -.02694, .00012, -.00002,
3431 + .00000, .00003, .00003,
3432 + .10258, .02415, -.02492, .00012, -.00001,
3433 + .00000, .00003, .00003,
3434 + .09808, .02303, -.02340, .00013, -.00001,
3435 + .00000, .00003, .00001,
3436 + .08923, .02083, -.02051, .00013, -.00001,
3437 + .00000, .00003, .00002,
3438 + .08238, .01914, -.01836, .00011, -.00001,
3439 + -.00001, .00002, .00002,
3440 + .07544, .01743, -.01628, .00009, -.00001,
3441 + -.00001, .00004, .00002,
3442 + .06892, .01582, -.01437, .00008, -.00001,
3443 + -.00001, .00004, .00002,
3444 + .06349, .01451, -.01282, .00007, .00000,
3445 + .00000, .00003, .00003 /
3446 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
3447 + .05852, .01332, -.01144, .00007, .00000,
3448 + .00000, .00003, .00003,
3449 + .05474, .01241, -.01038, .00005, .00000,
3450 + .00000, .00003, .00001,
3451 + .05051, .01139, -.00927, .00005, .00000,
3452 + .00000, .00003, .00001,
3453 + .04706, .01057, -.00838, .00005, .00000,
3454 + .00000, .00003, .00001,
3455 + .04414, .00989, -.00764, .00004, .00000,
3456 + .00000, .00003, .00001,
3457 + .04072, .00908, -.00680, .00004, .00000,
3458 + .00000, .00001, .00001,
3459 + .03778, .00839, -.00609, .00004, .00000,
3460 + .00000, .00001, .00001,
3461 + .03522, .00779, -.00551, .00004, .00000,
3462 + .00000, .00003, .00001 /
3463 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
3464 + .03285, .00726, -.00497, .00004, .00000,
3465 + .00000, .00001, .00001,
3466 + .03072, .00675, -.00450, .00002, .00000,
3467 + .00000, .00001, .00001,
3468 + .02884, .00632, -.00410, .00002, .00000,
3469 + .00000, .00001, .00001,
3470 + .02719, .00593, -.00376, .00002, .00000,
3471 + .00000, .00001, .00001,
3472 + .02563, .00559, -.00346, .00003, .00000,
3473 + .00000, .00001, .00001,
3474 + .02420, .00525, -.00317, .00003, .00000,
3475 + .00000, .00001, .00001,
3476 + .02291, .00496, -.00292, .00003, .00000,
3477 + .00000, .00001, .00001,
3478 + .02176, .00470, -.00271, .00003, .00000,
3479 + .00000, .00001, .00001 /
3480 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/
3481 + .02067, .00446, -.00250, .00001, .00000,
3482 + .00000, .00001, .00001,
3483 + .01964, .00423, -.00231, .00001, .00000,
3484 + .00000, .00001, .00001,
3485 + .01872, .00401, -.00216, .00001, .00000,
3486 + .00000, .00001, .00001,
3487 + .01789, .00383, -.00201, .00001, .00000,
3488 + .00000, .00001, .00000,
3489 + .01709, .00366, -.00187, .00001, .00000,
3490 + .00000, .00001, .00000 /
3491 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/
3492 + .13492, .03043, -.05175, .00009, .00000,
3493 + .00000, .00000, .00003,
3494 + .12421, .02786, -.04638, .00009, .00000,
3495 + .00000, .00003, .00001,
3496 + .11004, .02451, -.03947, .00010, -.00001,
3497 + .00000, .00001, -.00001,
3498 + .10094, .02236, -.03524, .00008, -.00001,
3499 + .00000, .00001, .00001,
3500 + .09229, .02033, -.03127, .00007, -.00001,
3501 + .00000, .00001, .00001,
3502 + .08546, .01875, -.02824, .00006, -.00001,
3503 + .00000, .00001, .00001,
3504 + .07943, .01735, -.02558, .00004, -.00001,
3505 + .00000, .00001, .00001,
3506 + .07359, .01598, -.02303, .00002, -.00001,
3507 + .00000, -.00001, .00001 /
3508 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
3509 + .06884, .01490, -.02107, .00004, -.00001,
3510 + .00000, .00001, .00001,
3511 + .06460, .01394, -.01932, .00004, .00000,
3512 + .00000, .00001, .00001,
3513 + .06147, .01323, -.01804, .00002, .00000,
3514 + .00000, .00001, .00001,
3515 + .05532, .01184, -.01560, .00002, .00000,
3516 + .00000, .00001, .00001,
3517 + .05060, .01078, -.01383, .00002, .00000,
3518 + .00000, .00001, .00001,
3519 + .04587, .00971, -.01211, .00003, .00000,
3520 + .00000, .00000, .00001,
3521 + .04143, .00874, -.01056, .00003, .00000,
3522 + .00000, .00000, .00001,
3523 + .03786, .00794, -.00930, .00001, .00000,
3524 + .00000, .00000, .00000 /
3525 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
3526 + .03458, .00722, -.00822, .00001, .00000,
3527 + .00000, .00000, .00000,
3528 + .03210, .00669, -.00743, .00003, .00000,
3529 + .00000, .00000, .00000,
3530 + .02937, .00608, -.00656, .00001, .00000,
3531 + .00000, .00000, .00000,
3532 + .02715, .00561, -.00589, .00001, .00000,
3533 + .00000, .00000, .00000,
3534 + .02530, .00520, -.00533, .00001, .00000,
3535 + .00000, .00000, .00000,
3536 + .02313, .00473, -.00469, .00001, .00000,
3537 + .00000, .00000, .00000,
3538 + .02128, .00434, -.00418, .00001, .00000,
3539 + .00000, .00000, .00000,
3540 + .01971, .00401, -.00376, .00001, .00000,
3541 + .00000, .00000, .00000 /
3542 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
3543 + .01826, .00369, -.00337, .00001, .00000,
3544 + .00000, .00000, .00000,
3545 + .01695, .00342, -.00303, .00001, .00000,
3546 + .00000, .00000, .00000,
3547 + .01581, .00318, -.00274, .00001, .00000,
3548 + .00000, .00000, .00000,
3549 + .01481, .00298, -.00250, .00001, .00000,
3550 + .00000, .00000, .00000,
3551 + .01388, .00279, -.00227, .00000, .00000,
3552 + .00000, .00000, .00000,
3553 + .01302, .00261, -.00207, .00000, .00000,
3554 + .00000, .00000, .00000,
3555 + .01227, .00244, -.00190, .00000, .00000,
3556 + .00000, .00000, .00000,
3557 + .01158, .00230, -.00174, .00000, .00000,
3558 + .00000, .00000, .00000 /
3559 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/
3560 + .01094, .00217, -.00161, .00001, .00000,
3561 + .00000, .00000, .00000,
3562 + .01035, .00205, -.00149, .00001, .00000,
3563 + .00000, .00000, .00000,
3564 + .00982, .00194, -.00138, .00000, .00000,
3565 + .00000, .00000, .00000,
3566 + .00934, .00184, -.00129, .00000, .00000,
3567 + .00000, .00000, .00000,
3568 + .00888, .00175, -.00119, .00000, .00000,
3569 + .00000, .00000, .00000 /
3570 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/
3571 + .08382, .01710, -.03810, .00007, .00000,
3572 + .00000, .00000, .00000,
3573 + .07634, .01551, -.03374, .00004, .00000,
3574 + .00000, .00000, .00000,
3575 + .06666, .01344, -.02828, .00002, .00000,
3576 + .00000, .00000, .00000,
3577 + .06050, .01213, -.02495, .00002, .00000,
3578 + .00000, .00000, .00000,
3579 + .05468, .01091, -.02190, .00004, .00000,
3580 + .00000, .00000, .00000,
3581 + .05016, .00996, -.01955, .00002, .00000,
3582 + .00000, .00000, .00000,
3583 + .04622, .00915, -.01757, .00002, .00000,
3584 + .00000, .00000, .00000,
3585 + .04241, .00835, -.01569, .00002, .00000,
3586 + .00000, .00000, .00000 /
3587 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
3588 + .03937, .00773, -.01423, .00002, .00000,
3589 + .00000, .00000, .00000,
3590 + .03667, .00718, -.01295, .00002, .00000,
3591 + .00000, .00000, .00000,
3592 + .03466, .00677, -.01201, .00002, .00000,
3593 + .00000, .00000, .00000,
3594 + .03081, .00599, -.01028, .00002, .00000,
3595 + .00000, .00000, .00000,
3596 + .02791, .00539, -.00902, .00002, .00000,
3597 + .00000, .00000, .00000,
3598 + .02501, .00481, -.00779, .00000, .00000,
3599 + .00000, .00000, .00000,
3600 + .02234, .00427, -.00671, .00000, .00000,
3601 + .00000, .00000, .00000,
3602 + .02021, .00386, -.00587, .00000, .00000,
3603 + .00000, .00000, .00000 /
3604 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/
3605 + .01827, .00346, -.00513, .00000, .00000,
3606 + .00000, .00000, .00000,
3607 + .01683, .00317, -.00459, .00000, .00000,
3608 + .00000, .00000, .00000,
3609 + .01522, .00286, -.00402, .00000, .00000,
3610 + .00000, .00000, .00000,
3611 + .01397, .00262, -.00358, .00000, .00000,
3612 + .00000, .00000, .00000,
3613 + .01291, .00241, -.00322, .00000, .00000,
3614 + .00000, .00000, .00000,
3615 + .01169, .00217, -.00280, .00000, .00000,
3616 + .00000, .00000, .00000,
3617 + .01066, .00197, -.00248, .00000, .00000,
3618 + .00000, .00000, .00000,
3619 + .00979, .00181, -.00221, .00000, .00000,
3620 + .00000, .00000, .00000 /
3621 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/
3622 + .00900, .00165, -.00197, .00000, .00000,
3623 + .00000, .00000, .00000,
3624 + .00828, .00152, -.00175, .00000, .00000,
3625 + .00000, .00000, .00000,
3626 + .00767, .00141, -.00158, .00000, .00000,
3627 + .00000, .00000, .00000,
3628 + .00714, .00130, -.00144, .00000, .00000,
3629 + .00000, .00000, .00000,
3630 + .00665, .00121, -.00130, .00000, .00000,
3631 + .00000, .00000, .00000,
3632 + .00619, .00113, -.00117, .00000, .00000,
3633 + .00000, .00000, .00000,
3634 + .00579, .00105, -.00107, .00000, .00000,
3635 + .00000, .00000, .00000,
3636 + .00544, .00099, -.00098, .00000, .00000,
3637 + .00000, .00000, .00000 /
3638 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=33,37)/
3639 + .00511, .00092, -.00089, .00000, .00000,
3640 + .00000, .00000, .00000,
3641 + .00481, .00087, -.00083, .00000, .00000,
3642 + .00000, .00000, .00000,
3643 + .00453, .00082, -.00076, .00000, .00000,
3644 + .00000, .00000, .00000,
3645 + .00429, .00077, -.00070, .00000, .00000,
3646 + .00000, .00000, .00000,
3647 + .00406, .00073, -.00065, .00000, .00000,
3648 + .00000, .00000, .00000 /
3649 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/
3650 + .04540, .00816, -.02357, .00000, .00000,
3651 + .00000, .00000, .00000,
3652 + .04087, .00730, -.02065, .00000, .00000,
3653 + .00000, .00000, .00000,
3654 + .03507, .00625, -.01708, .00000, .00000,
3655 + .00000, .00000, .00000,
3656 + .03144, .00559, -.01491, .00000, .00000,
3657 + .00000, .00000, .00000,
3658 + .02807, .00497, -.01293, .00000, .00000,
3659 + .00000, .00000, .00000,
3660 + .02546, .00449, -.01144, .00000, .00000,
3661 + .00000, .00000, .00000,
3662 + .02322, .00409, -.01019, .00000, .00000,
3663 + .00000, .00000, .00000,
3664 + .02106, .00369, -.00899, .00000, .00000,
3665 + .00000, .00000, .00000 /
3666 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=9,16)/
3667 + .01937, .00337, -.00807, .00000, .00000,
3668 + .00000, .00000, .00000,
3669 + .01789, .00313, -.00732, .00000, .00000,
3670 + .00000, .00000, .00000,
3671 + .01681, .00291, -.00673, .00000, .00000,
3672 + .00000, .00000, .00000,
3673 + .01474, .00255, -.00569, .00000, .00000,
3674 + .00000, .00000, .00000,
3675 + .01316, .00226, -.00492, .00000, .00000,
3676 + .00000, .00000, .00000,
3677 + .01164, .00201, -.00422, .00000, .00000,
3678 + .00000, .00000, .00000,
3679 + .01027, .00176, -.00360, .00000, .00000,
3680 + .00000, .00000, .00000,
3681 + .00916, .00156, -.00310, .00000, .00000,
3682 + .00000, .00000, .00000 /
3683 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=17,24)/
3684 + .00819, .00139, -.00268, .00000, .00000,
3685 + .00000, .00000, .00000,
3686 + .00747, .00127, -.00238, .00000, .00000,
3687 + .00000, .00000, .00000,
3688 + .00669, .00112, -.00206, .00000, .00000,
3689 + .00000, .00000, .00000,
3690 + .00606, .00102, -.00181, .00000, .00000,
3691 + .00000, .00000, .00000,
3692 + .00555, .00093, -.00161, .00000, .00000,
3693 + .00000, .00000, .00000,
3694 + .00497, .00083, -.00139, .00000, .00000,
3695 + .00000, .00000, .00000,
3696 + .00448, .00075, -.00122, .00000, .00000,
3697 + .00000, .00000, .00000,
3698 + .00408, .00067, -.00108, .00000, .00000,
3699 + .00000, .00000, .00000 /
3700 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/
3701 + .00371, .00061, -.00095, .00000, .00000,
3702 + .00000, .00000, .00000,
3703 + .00338, .00055, -.00083, .00000, .00000,
3704 + .00000, .00000, .00000,
3705 + .00310, .00051, -.00074, .00000, .00000,
3706 + .00000, .00000, .00000,
3707 + .00287, .00048, -.00068, .00000, .00000,
3708 + .00000, .00000, .00000,
3709 + .00265, .00043, -.00060, .00000, .00000,
3710 + .00000, .00000, .00000,
3711 + .00245, .00040, -.00054, .00000, .00000,
3712 + .00000, .00000, .00000,
3713 + .00227, .00038, -.00049, .00000, .00000,
3714 + .00000, .00000, .00000,
3715 + .00212, .00035, -.00045, .00000, .00000,
3716 + .00000, .00000, .00000 /
3717 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/
3718 + .00198, .00032, -.00041, .00000, .00000,
3719 + .00000, .00000, .00000,
3720 + .00184, .00029, -.00037, .00000, .00000,
3721 + .00000, .00000, .00000,
3722 + .00173, .00028, -.00034, .00000, .00000,
3723 + .00000, .00000, .00000,
3724 + .00162, .00027, -.00031, .00000, .00000,
3725 + .00000, .00000, .00000,
3726 + .00154, .00024, -.00029, .00000, .00000,
3727 + .00000, .00000, .00000 /
3728 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/
3729 + .00603, .00081, -.00401, .00000, .00000,
3730 + .00000, .00000, .00000,
3731 + .00523, .00071, -.00340, .00000, .00000,
3732 + .00000, .00000, .00000,
3733 + .00426, .00057, -.00267, .00000, .00000,
3734 + .00000, .00000, .00000,
3735 + .00369, .00048, -.00226, .00000, .00000,
3736 + .00000, .00000, .00000,
3737 + .00316, .00042, -.00189, .00000, .00000,
3738 + .00000, .00000, .00000,
3739 + .00278, .00037, -.00163, .00000, .00000,
3740 + .00000, .00000, .00000,
3741 + .00246, .00032, -.00141, .00000, .00000,
3742 + .00000, .00000, .00000,
3743 + .00217, .00029, -.00122, .00000, .00000,
3744 + .00000, .00000, .00000 /
3745 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/
3746 + .00195, .00026, -.00108, .00000, .00000,
3747 + .00000, .00000, .00000,
3748 + .00175, .00022, -.00094, .00000, .00000,
3749 + .00000, .00000, .00000,
3750 + .00161, .00022, -.00086, .00000, .00000,
3751 + .00000, .00000, .00000,
3752 + .00135, .00017, -.00069, .00000, .00000,
3753 + .00000, .00000, .00000,
3754 + .00117, .00015, -.00058, .00000, .00000,
3755 + .00000, .00000, .00000,
3756 + .00099, .00013, -.00048, .00000, .00000,
3757 + .00000, .00000, .00000,
3758 + .00083, .00011, -.00039, .00000, .00000,
3759 + .00000, .00000, .00000,
3760 + .00073, .00009, -.00033, .00000, .00000,
3761 + .00000, .00000, .00000 /
3762 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/
3763 + .00062, .00009, -.00028, .00000, .00000,
3764 + .00000, .00000, .00000,
3765 + .00055, .00007, -.00023, .00000, .00000,
3766 + .00000, .00000, .00000,
3767 + .00047, .00007, -.00020, .00000, .00000,
3768 + .00000, .00000, .00000,
3769 + .00042, .00005, -.00017, .00000, .00000,
3770 + .00000, .00000, .00000,
3771 + .00038, .00005, -.00015, .00000, .00000,
3772 + .00000, .00000, .00000,
3773 + .00033, .00005, -.00013, .00000, .00000,
3774 + .00000, .00000, .00000,
3775 + .00028, .00003, -.00010, .00000, .00000,
3776 + .00000, .00000, .00000,
3777 + .00025, .00003, -.00009, .00000, .00000,
3778 + .00000, .00000, .00000 /
3779 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
3780 + .00022, .00003, -.00008, .00000, .00000,
3781 + .00000, .00000, .00000,
3782 + .00020, .00003, -.00007, .00000, .00000,
3783 + .00000, .00000, .00000,
3784 + .00018, .00003, -.00006, .00000, .00000,
3785 + .00000, .00000, .00000,
3786 + .00015, .00001, -.00005, .00000, .00000,
3787 + .00000, .00000, .00000,
3788 + .00014, .00001, -.00004, .00000, .00000,
3789 + .00000, .00000, .00000,
3790 + .00012, .00001, -.00004, .00000, .00000,
3791 + .00000, .00000, .00000,
3792 + .00012, .00001, -.00004, .00000, .00000,
3793 + .00000, .00000, .00000,
3794 + .00011, .00001, -.00003, .00000, .00000,
3795 + .00000, .00000, .00000 /
3796 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
3797 + .00009, .00001, -.00003, .00000, .00000,
3798 + .00000, .00000, .00000,
3799 + .00009, .00001, -.00003, .00000, .00000,
3800 + .00000, .00000, .00000,
3801 + .00008, .00001, -.00002, .00000, .00000,
3802 + .00000, .00000, .00000,
3803 + .00008, .00001, -.00002, .00000, .00000,
3804 + .00000, .00000, .00000,
3805 + .00006, .00001, -.00002, .00000, .00000,
3806 + .00000, .00000, .00000 /
3807 data xx/1d-5,2d-5,4d-5,6d-5,8d-5,
3808 . 1d-4,2d-4,4d-4,6d-4,8d-4,
3809 . 1d-3,2d-3,4d-3,6d-3,8d-3,
3810 . 1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2,
3811 . .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0,
3812 . .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0,
3813 . .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0,
3815 data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1,
3816 . 1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2,
3817 . 1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4,
3818 . 1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6,
3819 . 1.8d6,3.2d6,5.6d6,1d7/
3820 data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/
3821 data n0/3,4,5,9,9,9,9,9/
3822 DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
3827 if(init.ne.0) goto 10
3828 C open(unit=1,file='ft24d.dat',status='old')
3831 C read(1,50)f(1,n,m),f(2,n,m),f(3,n,m),f(4,n,m),
3832 C . f(5,n,m),f(7,n,m),f(6,n,m),f(8,n,m)
3833 c notation: 1=uval 2=val 3=glue 4=usea 5=chm 6=str 7=btm 8=dsea
3835 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i)
3838 xx(j)= log10(xx(j)/xx(ntenth))+xx(ntenth)
3840 if(i.eq.5.or.i.eq.7) goto 31
3842 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k)
3850 if(x.lt.xmin) x=xmin
3851 if(x.gt.xmax) x=xmax
3852 if(qsq.lt.qsqmin) qsq=qsqmin
3853 if(qsq.gt.qsqmax) qsq=qsqmax
3855 if(x.lt.xx(ntenth)) xxx= log10(x/xx(ntenth))+xx(ntenth)
3858 if(xxx.gt.xx(n+1)) goto 70
3859 a=(xxx-xx(n))/(xx(n+1)-xx(n))
3862 if(qsq.gt.qq(m+1)) goto 80
3863 b=(qsq-qq(m))/(qq(m+1)-qq(m))
3865 g(i)=(ONED-a)*(ONED-b)*f(i,n,m) + (ONED-a)*b*f(i,n,m+1)
3866 . + a*(ONED-b)*f(i,n+1,m) + a*b*f(i,n+1,m+1)
3867 if(n.ge.ntenth) goto 65
3868 if(i.eq.5.or.i.eq.7) goto 65
3869 fac=(ONED-b)*f(i,ntenth,m)+b*f(i,ntenth,m+1)
3870 g(i)=fac*10d0**(g(i)-fac)
3872 g(i)=g(i)*(ONED-x)**n0(i)
git://git.uio.no / u / mrichter / AliRoot.git / blob