2 subroutine sfmrs_99a4(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 + .00585, .00245, .82805, .91213, .00000,
17 + .00000, .48557, .92764,
18 + .00600, .00250, 2.18412, .94369, .00000,
19 + .00000, .52199, .95924,
20 + .00622, .00259, 4.68943, 1.00920, .00069,
21 + .00000, .59453, 1.02479,
22 + .00639, .00265, 6.93938, 1.07311, .06835,
23 + .00000, .66339, 1.08871,
24 + .00656, .00272, 9.74757, 1.15473, .17739,
25 + .00000, .75010, 1.17034,
26 + .00671, .00279, 12.59184, 1.24006, .26786,
27 + .00000, .83974, 1.25568,
28 + .00686, .00285, 15.71620, 1.33420, .36772,
29 + .00000, .93795, 1.34982,
30 + .00702, .00291, 19.58449, 1.44622, .49224,
31 + .00000, 1.05420, 1.46183 /
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 + .00715, .00297, 23.28337, 1.55743, .60663,
34 + .00000, 1.16904, 1.57302,
35 + .00729, .00303, 27.31465, 1.67482, .73243,
36 + .00000, 1.28987, 1.69039,
37 + .00740, .00307, 30.75279, 1.77656, .83779,
38 + .00000, 1.39430, 1.79211,
39 + .00763, .00317, 38.89783, 2.01817, 1.09094,
40 + .00044, 1.64153, 2.03368,
41 + .00783, .00326, 46.71848, 2.25432, 1.33851,
42 + .20964, 1.88239, 2.26978,
43 + .00805, .00336, 56.33112, 2.54970, 1.64744,
44 + .58858, 2.18290, 2.56510,
45 + .00829, .00347, 67.70467, 2.89625, 2.00887,
46 + .96709, 2.53467, 2.91158,
47 + .00851, .00357, 79.06387, 3.24413, 2.36632,
48 + 1.32884, 2.88718, 3.25939 /
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 + .00873, .00367, 91.73856, 3.63046, 2.76496,
51 + 1.74192, 3.27807, 3.64564,
52 + .00892, .00376, 103.26083, 3.97972, 3.12744,
53 + 2.12256, 3.63103, 3.99483,
54 + .00915, .00387, 118.29268, 4.43814, 3.59974,
55 + 2.60937, 4.09386, 4.45317,
56 + .00935, .00396, 132.58542, 4.87647, 4.04940,
57 + 3.06999, 4.53602, 4.89142,
58 + .00954, .00405, 146.74286, 5.30873, 4.49592,
59 + 3.53412, 4.97171, 5.32360,
60 + .00979, .00417, 165.77943, 5.89603, 5.09799,
61 + 4.15102, 5.56328, 5.91079,
62 + .01002, .00428, 184.94156, 6.49052, 5.70683,
63 + 4.77470, 6.16170, 6.50518,
64 + .01023, .00438, 204.19962, 7.08859, 6.32131,
65 + 5.40806, 6.76338, 7.10316 /
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 + .01045, .00449, 224.36107, 7.72214, 6.96849,
68 + 6.06894, 7.40046, 7.73661,
69 + .01067, .00459, 245.24771, 8.38133, 7.64269,
70 + 6.75944, 8.06304, 8.39570,
71 + .01088, .00469, 266.06628, 9.04202, 8.31842,
72 + 7.45167, 8.72689, 9.05629,
73 + .01108, .00479, 286.41031, 9.69417, 8.98339,
74 + 8.13010, 9.38196, 9.70835,
75 + .01128, .00489, 307.90686, 10.38523, 9.68943,
76 + 8.85283, 10.07590, 10.39931,
77 + .01148, .00498, 329.65781, 11.09263, 10.40965,
78 + 9.58659, 10.78610, 11.10662,
79 + .01167, .00508, 351.30969, 11.79904, 11.13017,
80 + 10.32282, 11.49512, 11.81294,
81 + .01185, .00517, 372.31799, 12.49127, 11.83462,
82 + 11.04050, 12.18979, 12.50509 /
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 + .01203, .00526, 394.25159, 13.21812, 12.57437,
85 + 11.79438, 12.91907, 13.23185,
86 + .01222, .00535, 416.63153, 13.96398, 13.33374,
87 + 12.56891, 13.66729, 13.97763,
88 + .01239, .00544, 438.38248, 14.69668, 14.07785,
89 + 13.32532, 14.40220, 14.71024,
90 + .01256, .00553, 459.91669, 15.42256, 14.81698,
91 + 14.07970, 15.13017, 15.43604,
92 + .01274, .00561, 481.80563, 16.17059, 15.57575,
93 + 14.85012, 15.88028, 16.18400 /
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 + .00791, .00333, .86020, .76857, .00000,
96 + .00000, .40852, .77754,
97 + .00811, .00342, 2.10394, .79885, .00000,
98 + .00000, .44255, .80784,
99 + .00842, .00354, 4.35009, .85865, .00063,
100 + .00000, .50775, .86766,
101 + .00865, .00364, 6.32141, .91497, .05932,
102 + .00000, .56788, .92399,
103 + .00889, .00375, 8.73984, .98557, .15327,
104 + .00000, .64237, .99459,
105 + .00910, .00384, 11.15188, 1.05812, .22995,
106 + .00000, .71823, 1.06714,
107 + .00930, .00393, 13.76694, 1.13722, .31380,
108 + .00000, .80045, 1.14624,
109 + .00951, .00402, 16.96573, 1.23063, .41746,
110 + .00000, .89710, 1.23964 /
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 + .00970, .00411, 19.98794, 1.32233, .51175,
113 + .00000, .99157, 1.33133,
114 + .00989, .00419, 23.25026, 1.41857, .61475,
115 + .00000, 1.09044, 1.42756,
116 + .01003, .00426, 26.00810, 1.50138, .70041,
117 + .00000, 1.17530, 1.51035,
118 + .01035, .00440, 32.46647, 1.69651, .90453,
119 + .00039, 1.37473, 1.70546,
120 + .01062, .00453, 38.58014, 1.88541, 1.10212,
121 + .16668, 1.56723, 1.89434,
122 + .01093, .00467, 45.99443, 2.11955, 1.34633,
123 + .46632, 1.80529, 2.12845,
124 + .01126, .00483, 54.65355, 2.39162, 1.62919,
125 + .76178, 2.08134, 2.40048,
126 + .01155, .00497, 63.19270, 2.66210, 1.90618,
127 + 1.04126, 2.35535, 2.67092 /
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 + .01186, .00511, 72.61507, 2.96001, 2.21248,
130 + 1.35777, 2.65674, 2.96879,
131 + .01211, .00524, 81.09736, 3.22739, 2.48895,
132 + 1.64727, 2.92695, 3.23613,
133 + .01242, .00539, 92.05191, 3.57561, 2.84632,
134 + 2.01442, 3.27852, 3.58430,
135 + .01270, .00552, 102.36368, 3.90599, 3.18389,
136 + 2.35901, 3.61181, 3.91463,
137 + .01295, .00565, 112.49475, 4.22976, 3.51703,
138 + 2.70420, 3.93820, 4.23836,
139 + .01328, .00581, 125.98730, 4.66633, 3.96278,
140 + 3.15930, 4.37803, 4.67488,
141 + .01359, .00596, 139.43782, 5.10490, 4.41012,
142 + 3.61591, 4.81959, 5.11339,
143 + .01389, .00611, 152.84148, 5.54316, 4.85865,
144 + 4.07666, 5.26060, 5.55161 /
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 + .01418, .00626, 166.75031, 6.00415, 5.32768,
147 + 4.55387, 5.72429, 6.01254,
148 + .01447, .00640, 181.04597, 6.48077, 5.81325,
149 + 5.04944, 6.20350, 6.48911,
150 + .01475, .00654, 195.18823, 6.95560, 6.29704,
151 + 5.54332, 6.68073, 6.96388,
152 + .01502, .00668, 208.90544, 7.42149, 6.77028,
153 + 6.02441, 7.14886, 7.42973,
154 + .01529, .00681, 223.30815, 7.91264, 7.27023,
155 + 6.53445, 7.64221, 7.92083,
156 + .01555, .00695, 237.77751, 8.41252, 7.77729,
157 + 7.04918, 8.14422, 8.42066,
158 + .01581, .00708, 252.09695, 8.90930, 8.28219,
159 + 7.56338, 8.64301, 8.91740,
160 + .01605, .00720, 265.90332, 9.39366, 8.77334,
161 + 8.06202, 9.12922, 9.40170 /
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 + .01630, .00733, 280.23837, 9.89993, 9.28681,
164 + 8.58352, 9.63735, 9.90793,
165 + .01654, .00745, 294.78558, 10.41713, 9.81160,
166 + 9.11705, 10.15635, 10.42509,
167 + .01678, .00757, 308.84103, 10.92281, 10.32340,
168 + 9.63553, 10.66373, 10.93073,
169 + .01700, .00769, 322.69809, 11.42199, 10.83008,
170 + 10.15106, 11.16451, 11.42987,
171 + .01723, .00781, 336.69937, 11.93400, 11.34770,
172 + 10.67484, 11.67810, 11.94183 /
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 + .01069, .00454, .89461, .64732, .00000,
175 + .00000, .34383, .65174,
176 + .01098, .00467, 2.02863, .67594, .00000,
177 + .00000, .37532, .68037,
178 + .01140, .00486, 4.03754, .73020, .00057,
179 + .00000, .43371, .73463,
180 + .01171, .00500, 5.76062, .77976, .05147,
181 + .00000, .48617, .78418,
182 + .01204, .00515, 7.83815, .84078, .13239,
183 + .00000, .55017, .84520,
184 + .01233, .00529, 9.87803, .90244, .19734,
185 + .00000, .61435, .90686,
186 + .01260, .00542, 12.06032, .96885, .26770,
187 + .00000, .68314, .97327,
188 + .01290, .00556, 14.69720, 1.04668, .35393,
189 + .00000, .76343, 1.05109 /
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 + .01316, .00568, 17.15815, 1.12220, .43156,
192 + .00000, .84106, 1.12660,
193 + .01341, .00580, 19.78888, 1.20098, .51580,
194 + .00000, .92184, 1.20537,
195 + .01361, .00590, 21.99280, 1.26825, .58535,
196 + .00000, .99067, 1.27264,
197 + .01404, .00611, 27.09359, 1.42551, .74968,
198 + .00035, 1.15119, 1.42989,
199 + .01442, .00629, 31.85233, 1.57625, .90712,
200 + .13246, 1.30465, 1.58061,
201 + .01484, .00650, 37.54441, 1.76133, 1.09981,
202 + .36926, 1.49270, 1.76567,
203 + .01528, .00672, 44.10455, 1.97424, 1.32072,
204 + .59974, 1.70863, 1.97857,
205 + .01568, .00692, 50.49009, 2.18380, 1.53485,
206 + .81549, 1.92086, 2.18811 /
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 + .01609, .00712, 57.45637, 2.41267, 1.76960,
209 + 1.05776, 2.15236, 2.41695,
210 + .01644, .00730, 63.66531, 2.61656, 1.97990,
211 + 1.27770, 2.35838, 2.62083,
212 + .01686, .00751, 71.60124, 2.87996, 2.24952,
213 + 1.55423, 2.62432, 2.88420,
214 + .01723, .00770, 78.99487, 3.12786, 2.50215,
215 + 1.81163, 2.87442, 3.13209,
216 + .01758, .00788, 86.19881, 3.36928, 2.74990,
217 + 2.06794, 3.11781, 3.37348,
218 + .01802, .00810, 95.69867, 3.69227, 3.07879,
219 + 2.40306, 3.44326, 3.69646,
220 + .01844, .00832, 105.07512, 4.01421, 3.40628,
221 + 2.73667, 3.76746, 4.01837,
222 + .01884, .00852, 114.33829, 4.33373, 3.73244,
223 + 3.07111, 4.08906, 4.33787 /
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 + .01924, .00873, 123.86313, 4.66740, 4.07101,
226 + 3.41485, 4.42476, 4.67151,
227 + .01963, .00893, 133.57368, 5.01015, 4.41930,
228 + 3.76959, 4.76946, 5.01424,
229 + .02000, .00912, 143.10623, 5.34951, 4.76419,
230 + 4.12100, 5.11064, 5.35358,
231 + .02036, .00931, 152.28104, 5.68045, 5.09948,
232 + 4.46112, 5.44326, 5.68450,
233 + .02072, .00950, 161.85223, 6.02749, 5.45190,
234 + 4.81997, 5.79197, 6.03153,
235 + .02107, .00968, 171.39592, 6.37862, 5.80719,
236 + 5.17987, 6.14471, 6.38264,
237 + .02141, .00986, 180.78500, 6.72589, 6.15931,
238 + 5.53778, 6.49349, 6.72989,
239 + .02174, .01003, 189.77789, 7.06269, 6.50003,
240 + 5.88299, 6.83170, 7.06667 /
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 + .02207, .01021, 199.06227, 7.41312, 6.85463,
243 + 6.24242, 7.18352, 7.41708,
244 + .02239, .01038, 208.43132, 7.76947, 7.21543,
245 + 6.60853, 7.54124, 7.77342,
246 + .02271, .01054, 217.42761, 8.11620, 7.56556,
247 + 6.96250, 7.88925, 8.12013,
248 + .02300, .01070, 226.25989, 8.45724, 7.91103,
249 + 7.31338, 8.23150, 8.46115,
250 + .02331, .01086, 235.12692, 8.80533, 8.26216,
251 + 7.66796, 8.58079, 8.80923 /
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 + .01276, .00544, .91625, .58535, .00000,
254 + .00000, .31095, .58789,
255 + .01310, .00560, 1.98743, .61287, .00000,
256 + .00000, .34093, .61541,
257 + .01361, .00585, 3.86701, .66401, .00054,
258 + .00000, .39559, .66654,
259 + .01399, .00603, 5.45765, .70994, .04736,
260 + .00000, .44400, .71247,
261 + .01438, .00622, 7.35592, .76594, .12149,
262 + .00000, .50255, .76847,
263 + .01473, .00638, 9.20256, .82198, .18041,
264 + .00000, .56073, .82451,
265 + .01506, .00655, 11.16252, .88192, .24387,
266 + .00000, .62269, .88444,
267 + .01542, .00672, 13.51359, .95182, .32126,
268 + .00000, .69469, .95434 /
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 + .01573, .00688, 15.69180, 1.01918, .39050,
271 + .00000, .76384, 1.02169,
272 + .01603, .00702, 18.00684, 1.08920, .46534,
273 + .00000, .83556, 1.09170,
274 + .01627, .00714, 19.93586, 1.14871, .52686,
275 + .00000, .89640, 1.15121,
276 + .01679, .00740, 24.36922, 1.28717, .67149,
277 + .00032, 1.03762, 1.28966,
278 + .01724, .00763, 28.46933, 1.41907, .80920,
279 + .11575, 1.17184, 1.42155,
280 + .01774, .00788, 33.33323, 1.58011, .97677,
281 + .32201, 1.33540, 1.58258,
282 + .01827, .00815, 38.89463, 1.76426, 1.16770,
283 + .52121, 1.52210, 1.76673,
284 + .01875, .00840, 44.26595, 1.94441, 1.35164,
285 + .70654, 1.70452, 1.94687 /
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 + .01924, .00865, 50.08607, 2.14016, 1.55227,
288 + .91360, 1.90249, 2.14260,
289 + .01966, .00886, 55.24268, 2.31377, 1.73119,
290 + 1.10073, 2.07791, 2.31621,
291 + .02016, .00912, 61.79272, 2.53697, 1.95946,
292 + 1.33481, 2.30326, 2.53939,
293 + .02060, .00935, 67.85748, 2.74603, 2.17232,
294 + 1.55162, 2.51417, 2.74844,
295 + .02102, .00957, 73.73756, 2.94885, 2.38028,
296 + 1.76674, 2.71867, 2.95126,
297 + .02154, .00984, 81.44552, 3.21893, 2.65504,
298 + 2.04661, 2.99083, 3.22133,
299 + .02204, .01011, 89.00803, 3.48687, 2.92736,
300 + 2.32391, 3.26068, 3.48926,
301 + .02251, .01035, 96.44079, 3.75173, 3.19748,
302 + 2.60083, 3.52729, 3.75411 /
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 + .02299, .01060, 104.04114, 4.02709, 3.47665,
305 + 2.88412, 3.80437, 4.02946,
306 + .02345, .01085, 111.75208, 4.30888, 3.76274,
307 + 3.17540, 4.08781, 4.31124,
308 + .02390, .01109, 119.28671, 4.58684, 4.04501,
309 + 3.46290, 4.36731, 4.58920,
310 + .02432, .01131, 126.50453, 4.85691, 4.31839,
311 + 3.74010, 4.63880, 4.85926,
312 + .02475, .01154, 134.00520, 5.13924, 4.60488,
313 + 4.03170, 4.92253, 5.14158,
314 + .02517, .01176, 141.45039, 5.42388, 4.89265,
315 + 4.32307, 5.20853, 5.42621,
316 + .02557, .01198, 148.74884, 5.70457, 5.17706,
317 + 4.61205, 5.49050, 5.70690,
318 + .02595, .01218, 155.71138, 5.97594, 5.45139,
319 + 4.88986, 5.76307, 5.97827 /
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 + .02634, .01239, 162.87488, 6.25752, 5.73611,
322 + 5.17835, 6.04582, 6.25984,
323 + .02673, .01260, 170.07930, 6.54308, 6.02504,
324 + 5.47142, 6.33254, 6.54540,
325 + .02710, .01280, 176.97073, 6.82011, 6.30459,
326 + 5.75390, 6.61065, 6.82242,
327 + .02745, .01299, 183.71989, 7.09202, 6.57988,
328 + 6.03341, 6.88359, 7.09433,
329 + .02781, .01318, 190.46852, 7.36873, 6.85881,
330 + 6.31494, 7.16131, 7.37103 /
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 + .01447, .00620, .93253, .54497, .00000,
333 + .00000, .28961, .54649,
334 + .01486, .00639, 1.95978, .57167, .00000,
335 + .00000, .31851, .57318,
336 + .01544, .00667, 3.75161, .62064, .00052,
337 + .00000, .37064, .62215,
338 + .01587, .00688, 5.25354, .66415, .04464,
339 + .00000, .41636, .66565,
340 + .01632, .00710, 7.03284, .71683, .11428,
341 + .00000, .47131, .71833,
342 + .01671, .00730, 8.75224, .76918, .16926,
343 + .00000, .52558, .77068,
344 + .01709, .00749, 10.56680, .82489, .22823,
345 + .00000, .58309, .82639,
346 + .01750, .00769, 12.73210, .88965, .29987,
347 + .00000, .64972, .89114 /
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 + .01785, .00787, 14.72766, .95173, .36369,
350 + .00000, .71340, .95322,
351 + .01820, .00805, 16.83979, 1.01610, .43247,
352 + .00000, .77928, 1.01758,
353 + .01847, .00819, 18.59291, 1.07063, .48884,
354 + .00000, .83499, 1.07211,
355 + .01906, .00848, 22.60170, 1.19703, .62088,
356 + .00030, .96386, 1.19851,
357 + .01957, .00875, 26.28588, 1.31693, .74604,
358 + .10516, 1.08582, 1.31840,
359 + .02014, .00904, 30.63028, 1.46272, .89770,
360 + .29212, 1.23385, 1.46418,
361 + .02074, .00935, 35.56943, 1.62869, 1.06974,
362 + .47168, 1.40210, 1.63016,
363 + .02129, .00964, 40.31294, 1.79035, 1.23477,
364 + .63798, 1.56576, 1.79181 /
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 + .02185, .00993, 45.42768, 1.96536, 1.41409,
367 + .82313, 1.74275, 1.96682,
368 + .02231, .01017, 49.93996, 2.12008, 1.57350,
369 + .98993, 1.89908, 2.12154,
370 + .02288, .01047, 55.64581, 2.31829, 1.77616,
371 + 1.19779, 2.09920, 2.31975,
372 + .02339, .01074, 60.90530, 2.50330, 1.96446,
373 + 1.38964, 2.28586, 2.50476,
374 + .02386, .01099, 65.98657, 2.68231, 2.14795,
375 + 1.57950, 2.46635, 2.68376,
376 + .02445, .01131, 72.61874, 2.91987, 2.38955,
377 + 1.82561, 2.70575, 2.92131,
378 + .02502, .01161, 79.09762, 3.15474, 2.62818,
379 + 2.06865, 2.94233, 3.15619,
380 + .02555, .01189, 85.44164, 3.38624, 2.86422,
381 + 2.31067, 3.17538, 3.38769 /
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 + .02609, .01218, 91.90258, 3.62616, 3.10738,
384 + 2.55744, 3.41683, 3.62761,
385 + .02661, .01246, 98.43453, 3.87099, 3.35588,
386 + 2.81049, 3.66312, 3.87244,
387 + .02711, .01273, 104.79581, 4.11187, 3.60042,
388 + 3.05958, 3.90536, 4.11332,
389 + .02759, .01298, 110.86877, 4.34527, 3.83663,
390 + 3.29910, 4.14003, 4.34673,
391 + .02807, .01324, 117.16215, 4.58873, 4.08362,
392 + 3.55053, 4.38474, 4.59019,
393 + .02855, .01350, 123.38805, 4.83355, 4.33106,
394 + 3.80108, 4.63076, 4.83500,
395 + .02900, .01375, 129.47572, 5.07447, 4.57512,
396 + 4.04909, 4.87281, 5.07593,
397 + .02943, .01398, 135.26607, 5.30686, 4.80999,
398 + 4.28695, 5.10626, 5.30832 /
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 + .02987, .01422, 141.20880, 5.54751, 5.05328,
401 + 4.53347, 5.34796, 5.54897,
402 + .03030, .01445, 147.17059, 5.79109, 5.29969,
403 + 4.78344, 5.59256, 5.79256,
404 + .03072, .01468, 152.85759, 6.02688, 5.53758,
405 + 5.02382, 5.82932, 6.02835,
406 + .03112, .01490, 158.41747, 6.25798, 5.77152,
407 + 5.26139, 6.06132, 6.25945,
408 + .03152, .01512, 163.96019, 6.49263, 6.00801,
409 + 5.50008, 6.29687, 6.49411 /
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 + .01595, .00685, .94584, .51556, .00000,
412 + .00000, .27412, .51645,
413 + .01638, .00707, 1.93945, .54161, .00000,
414 + .00000, .30219, .54249,
415 + .01703, .00739, 3.66539, .58894, .00051,
416 + .00000, .35241, .58982,
417 + .01750, .00763, 5.10137, .63064, .04263,
418 + .00000, .39614, .63151,
419 + .01800, .00788, 6.79277, .68087, .10898,
420 + .00000, .44845, .68174,
421 + .01844, .00810, 8.41874, .73052, .16107,
422 + .00000, .49986, .73139,
423 + .01886, .00831, 10.12704, .78315, .21676,
424 + .00000, .55413, .78401,
425 + .01930, .00854, 12.15722, .84416, .28422,
426 + .00000, .61686, .84502 /
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 + .01970, .00875, 14.02052, .90242, .34412,
429 + .00000, .67659, .90328,
430 + .02008, .00894, 15.98626, .96269, .40852,
431 + .00000, .73825, .96356,
432 + .02038, .00910, 17.61289, 1.01363, .46118,
433 + .00000, .79026, 1.01449,
434 + .02103, .00943, 21.31774, 1.13136, .58416,
435 + .00029, .91025, 1.13222,
436 + .02159, .00973, 24.70573, 1.24266, .70033,
437 + .09760, 1.02343, 1.24352,
438 + .02222, .01006, 28.68205, 1.37754, .84065,
439 + .27079, 1.16036, 1.37840,
440 + .02289, .01041, 33.18257, 1.53057, .99927,
441 + .43641, 1.31547, 1.53143,
442 + .02349, .01073, 37.48562, 1.67910, 1.15089,
443 + .58928, 1.46583, 1.67997 /
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 + .02411, .01105, 42.10761, 1.83944, 1.31517,
446 + .75899, 1.62798, 1.84030,
447 + .02462, .01133, 46.17150, 1.98083, 1.46084,
448 + .91149, 1.77083, 1.98170,
449 + .02525, .01166, 51.29216, 2.16146, 1.64551,
450 + 1.10099, 1.95321, 2.16233,
451 + .02581, .01196, 55.99561, 2.32960, 1.81663,
452 + 1.27539, 2.12285, 2.33048,
453 + .02632, .01224, 60.52699, 2.49193, 1.98303,
454 + 1.44765, 2.28654, 2.49281,
455 + .02698, .01259, 66.42126, 2.70679, 2.20153,
456 + 1.67031, 2.50309, 2.70768,
457 + .02760, .01292, 72.15972, 2.91867, 2.41678,
458 + 1.88959, 2.71650, 2.91956,
459 + .02818, .01324, 77.76231, 3.12701, 2.62920,
460 + 2.10749, 2.92627, 3.12791 /
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 + .02877, .01356, 83.44997, 3.34240, 2.84748,
463 + 2.32907, 3.14304, 3.34330,
464 + .02935, .01387, 89.18421, 3.56171, 3.07008,
465 + 2.55582, 3.36369, 3.56262,
466 + .02990, .01417, 94.75375, 3.77704, 3.28867,
467 + 2.77856, 3.58026, 3.77796,
468 + .03043, .01445, 100.05653, 3.98524, 3.49937,
469 + 2.99227, 3.78961, 3.98617,
470 + .03095, .01474, 105.53970, 4.20203, 3.71931,
471 + 3.21624, 4.00755, 4.20297,
472 + .03147, .01503, 110.94969, 4.41959, 3.93919,
473 + 3.43893, 4.22620, 4.42053,
474 + .03197, .01530, 116.22894, 4.63333, 4.15573,
475 + 3.65905, 4.44098, 4.63429,
476 + .03245, .01556, 121.23843, 4.83915, 4.36373,
477 + 3.86976, 4.64775, 4.84011 /
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 + .03293, .01582, 126.36973, 5.05193, 4.57887,
480 + 4.08780, 4.86150, 5.05291,
481 + .03340, .01608, 131.50752, 5.26698, 4.79643,
482 + 4.30857, 5.07748, 5.26797,
483 + .03386, .01633, 136.39740, 5.47481, 5.00610,
484 + 4.52049, 5.28619, 5.47580,
485 + .03429, .01657, 141.17151, 5.67825, 5.21207,
486 + 4.72972, 5.49045, 5.67925,
487 + .03473, .01681, 145.91943, 5.88447, 5.41991,
488 + 4.93954, 5.69750, 5.88548 /
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 + .02160, .00940, .99268, .43402, .00000,
491 + .00000, .23144, .43376,
492 + .02220, .00972, 1.88442, .45798, .00000,
493 + .00000, .25695, .45772,
494 + .02309, .01019, 3.41718, .50039, .00046,
495 + .00000, .30159, .50014,
496 + .02374, .01053, 4.66283, .53686, .03691,
497 + .00000, .33962, .53662,
498 + .02442, .01090, 6.10357, .58011, .09391,
499 + .00000, .38447, .57987,
500 + .02502, .01122, 7.46580, .62216, .13790,
501 + .00000, .42787, .62193,
502 + .02559, .01153, 8.87681, .66618, .18445,
503 + .00000, .47316, .66596,
504 + .02621, .01186, 10.53199, .71679, .24034,
505 + .00000, .52508, .71658 /
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 + .02674, .01215, 12.03121, .76451, .28942,
508 + .00000, .57392, .76431,
509 + .02726, .01244, 13.59656, .81356, .34181,
510 + .00000, .62403, .81336,
511 + .02768, .01266, 14.87931, .85465, .38432,
512 + .00000, .66595, .85446,
513 + .02856, .01314, 17.76418, .94879, .48271,
514 + .00026, .76181, .94862,
515 + .02933, .01356, 20.36065, 1.03680, .57463,
516 + .07726, .85126, 1.03665,
517 + .03019, .01403, 23.36214, 1.14235, .68449,
518 + .21357, .95837, 1.14222,
519 + .03109, .01453, 26.71107, 1.26078, .80732,
520 + .34216, 1.07838, 1.26067,
521 + .03191, .01498, 29.86769, 1.37445, .92345,
522 + .45954, 1.19344, 1.37436 /
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 + .03274, .01544, 33.21678, 1.49601, 1.04811,
525 + .58869, 1.31638, 1.49595,
526 + .03344, .01583, 36.12999, 1.60235, 1.15776,
527 + .70383, 1.42384, 1.60231,
528 + .03428, .01630, 39.75914, 1.73701, 1.29554,
529 + .84557, 1.55982, 1.73698,
530 + .03504, .01671, 43.05491, 1.86124, 1.42209,
531 + .97487, 1.68520, 1.86124,
532 + .03573, .01710, 46.20203, 1.98038, 1.54432,
533 + 1.10177, 1.80537, 1.98040,
534 + .03661, .01759, 50.25074, 2.13672, 1.70345,
535 + 1.26432, 1.96298, 2.13677,
536 + .03745, .01806, 54.14931, 2.28957, 1.85887,
537 + 1.42305, 2.11700, 2.28965,
538 + .03823, .01850, 57.92001, 2.43878, 2.01117,
539 + 1.57968, 2.26730, 2.43889 /
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 + .03902, .01894, 61.70839, 2.59181, 2.16639,
542 + 1.73760, 2.42137, 2.59194,
543 + .03980, .01937, 65.49379, 2.74654, 2.32360,
544 + 1.89813, 2.57712, 2.74671,
545 + .04053, .01979, 69.13922, 2.89745, 2.47696,
546 + 2.05478, 2.72898, 2.89765,
547 + .04123, .02018, 72.57928, 3.04239, 2.62378,
548 + 2.20403, 2.87478, 3.04261,
549 + .04193, .02057, 76.11152, 3.19246, 2.77620,
550 + 2.35962, 3.02572, 3.19271,
551 + .04263, .02096, 79.56623, 3.34207, 2.92757,
552 + 2.51326, 3.17617, 3.34235,
553 + .04329, .02133, 82.91580, 3.48831, 3.07589,
554 + 2.66438, 3.32319, 3.48862,
555 + .04392, .02169, 86.06965, 3.62831, 3.21753,
556 + 2.80818, 3.46391, 3.62864 /
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 + .04456, .02205, 89.27948, 3.77233, 3.36330,
559 + 2.95625, 3.60866, 3.77268,
560 + .04519, .02240, 92.47316, 3.91716, 3.51000,
561 + 3.10546, 3.75420, 3.91754,
562 + .04579, .02274, 95.49017, 4.05637, 3.65060,
563 + 3.24787, 3.89408, 4.05678,
564 + .04636, .02307, 98.42318, 4.19214, 3.78824,
565 + 3.38802, 4.03048, 4.19257,
566 + .04695, .02340, 101.31641, 4.32898, 3.92631,
567 + 3.52769, 4.16795, 4.32944 /
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 + .02932, .01300, 1.05378, .36594, .00000,
570 + .00000, .19615, .36558,
571 + .03014, .01346, 1.84862, .38777, .00000,
572 + .00000, .21920, .38743,
573 + .03136, .01415, 3.20353, .42554, .00042,
574 + .00000, .25872, .42524,
575 + .03225, .01465, 4.27808, .45730, .03187,
576 + .00000, .29171, .45703,
577 + .03319, .01518, 5.49737, .49439, .08070,
578 + .00000, .33005, .49415,
579 + .03401, .01565, 6.63041, .52987, .11771,
580 + .00000, .36659, .52966,
581 + .03479, .01609, 7.78660, .56655, .15647,
582 + .00000, .40426, .56636,
583 + .03563, .01657, 9.12441, .60834, .20257,
584 + .00000, .44708, .60818 /
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 + .03636, .01699, 10.31947, .64723, .24259,
587 + .00000, .48685, .64710,
588 + .03707, .01739, 11.55371, .68692, .28500,
589 + .00000, .52737, .68681,
590 + .03764, .01771, 12.55480, .71987, .31912,
591 + .00000, .56097, .71979,
592 + .03884, .01840, 14.77625, .79466, .39738,
593 + .00023, .63711, .79463,
594 + .03988, .01899, 16.74193, .86376, .46964,
595 + .06086, .70733, .86376,
596 + .04105, .01966, 18.97762, .94570, .55508,
597 + .16759, .79050, .94576,
598 + .04227, .02036, 21.43466, 1.03657, .64949,
599 + .26686, .88261, 1.03668,
600 + .04338, .02100, 23.71557, 1.12275, .73772,
601 + .35645, .96988, 1.12290 /
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 + .04451, .02165, 26.10416, 1.21401, .83151,
604 + .45410, 1.06222, 1.21422,
605 + .04545, .02219, 28.15833, 1.29316, .91331,
606 + .54043, 1.14225, 1.29341,
607 + .04659, .02284, 30.68624, 1.39244, 1.01514,
608 + .64569, 1.24257, 1.39275,
609 + .04760, .02343, 32.95407, 1.48319, 1.10780,
610 + .74081, 1.33421, 1.48354,
611 + .04853, .02396, 35.09937, 1.56960, 1.19668,
612 + .83355, 1.42143, 1.57000,
613 + .04972, .02465, 37.82643, 1.68194, 1.31132,
614 + .95120, 1.53477, 1.68240,
615 + .05083, .02529, 40.42141, 1.79080, 1.42230,
616 + 1.06506, 1.64455, 1.79131,
617 + .05188, .02590, 42.90634, 1.89625, 1.53022,
618 + 1.17661, 1.75085, 1.89682 /
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 + .05294, .02650, 45.37455, 2.00347, 1.63926,
621 + 1.28806, 1.85890, 2.00409,
622 + .05397, .02710, 47.81725, 2.11109, 1.74891,
623 + 1.40055, 1.96732, 2.11177,
624 + .05495, .02767, 50.14796, 2.21532, 1.85513,
625 + 1.50956, 2.07229, 2.21606,
626 + .05588, .02820, 52.32586, 2.31470, 1.95607,
627 + 1.61264, 2.17235, 2.31548,
628 + .05681, .02874, 54.54538, 2.41700, 2.06027,
629 + 1.71952, 2.27534, 2.41784,
630 + .05773, .02927, 56.69499, 2.51827, 2.16300,
631 + 1.82426, 2.37727, 2.51915,
632 + .05861, .02978, 58.76483, 2.61672, 2.26314,
633 + 1.92678, 2.47634, 2.61766,
634 + .05944, .03026, 60.69682, 2.71038, 2.35817,
635 + 2.02369, 2.57057, 2.71136 /
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 + .06028, .03074, 62.64938, 2.80623, 2.45546,
638 + 2.12298, 2.66699, 2.80725,
639 + .06111, .03123, 64.57862, 2.90212, 2.55286,
640 + 2.22252, 2.76344, 2.90319,
641 + .06191, .03168, 66.38567, 2.99373, 2.64566,
642 + 2.31692, 2.85558, 2.99485,
643 + .06266, .03212, 68.13473, 3.08276, 2.73618,
644 + 2.40954, 2.94511, 3.08392,
645 + .06343, .03256, 69.84355, 3.17192, 2.82639,
646 + 2.50120, 3.03477, 3.17313 /
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 + .03511, .01583, 1.10161, .33189, .00000,
649 + .00000, .17862, .33184,
650 + .03609, .01640, 1.84259, .35248, .00000,
651 + .00000, .20028, .35247,
652 + .03756, .01725, 3.09906, .38766, .00040,
653 + .00000, .23699, .38770,
654 + .03864, .01788, 4.08063, .41686, .02918,
655 + .00000, .26728, .41696,
656 + .03977, .01853, 5.18130, .45067, .07368,
657 + .00000, .30219, .45081,
658 + .04075, .01911, 6.19327, .48270, .10703,
659 + .00000, .33515, .48288,
660 + .04170, .01966, 7.21640, .51555, .14175,
661 + .00000, .36887, .51578,
662 + .04270, .02024, 8.39022, .55278, .18279,
663 + .00000, .40701, .55306 /
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 + .04358, .02076, 9.42985, .58715, .21818,
666 + .00000, .44215, .58747,
667 + .04443, .02125, 10.49632, .62207, .25551,
668 + .00000, .47781, .62243,
669 + .04511, .02165, 11.35586, .65090, .28539,
670 + .00000, .50722, .65130,
671 + .04655, .02249, 13.24729, .71596, .35354,
672 + .00021, .57347, .71643,
673 + .04779, .02322, 14.90317, .77563, .41601,
674 + .05271, .63413, .77616,
675 + .04919, .02404, 16.76731, .84590, .48938,
676 + .14483, .70548, .84650,
677 + .05064, .02489, 18.79683, .92325, .56988,
678 + .22976, .78393, .92393,
679 + .05197, .02567, 20.66291, .99607, .64456,
680 + .30586, .85771, .99682 /
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 + .05331, .02645, 22.60116, 1.07271, .72348,
683 + .38835, .93531, 1.07353,
684 + .05442, .02711, 24.25622, 1.13883, .79195,
685 + .46090, 1.00221, 1.13972,
686 + .05578, .02790, 26.27732, 1.22128, .87669,
687 + .54883, 1.08558, 1.22224,
688 + .05698, .02861, 28.07649, 1.29620, .95336,
689 + .62783, 1.16129, 1.29723,
690 + .05809, .02926, 29.76853, 1.36722, 1.02658,
691 + .70454, 1.23304, 1.36831,
692 + .05949, .03008, 31.90304, 1.45904, 1.12048,
693 + .80128, 1.32574, 1.46021,
694 + .06081, .03086, 33.91892, 1.54750, 1.21087,
695 + .89439, 1.41503, 1.54875,
696 + .06205, .03158, 35.83718, 1.63279, 1.29837,
697 + .98519, 1.50108, 1.63411 /
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 + .06330, .03231, 37.72853, 1.71905, 1.38630,
700 + 1.07541, 1.58807, 1.72044,
701 + .06452, .03303, 39.58887, 1.80523, 1.47432,
702 + 1.16607, 1.67497, 1.80670,
703 + .06567, .03370, 41.35348, 1.88834, 1.55922,
704 + 1.25355, 1.75874, 1.88988,
705 + .06676, .03434, 42.99184, 1.96721, 1.63952,
706 + 1.33588, 1.83822, 1.96881,
707 + .06786, .03499, 44.65360, 2.04811, 1.72214,
708 + 1.42096, 1.91974, 2.04979,
709 + .06894, .03562, 46.25261, 2.12784, 1.80322,
710 + 1.50395, 2.00005, 2.12958,
711 + .06997, .03622, 47.78556, 2.20509, 1.88200,
712 + 1.58493, 2.07786, 2.20690,
713 + .07095, .03679, 49.20809, 2.27829, 1.95645,
714 + 1.66116, 2.15158, 2.28016 /
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 + .07193, .03737, 50.63930, 2.35296, 2.03244,
717 + 1.73901, 2.22676, 2.35489,
718 + .07291, .03794, 52.04699, 2.42741, 2.10827,
719 + 1.81681, 2.30172, 2.42940,
720 + .07384, .03848, 53.35797, 2.49828, 2.18023,
721 + 1.89031, 2.37306, 2.50033,
722 + .07472, .03900, 54.62349, 2.56699, 2.25029,
723 + 1.96228, 2.44222, 2.56910,
724 + .07562, .03952, 55.85164, 2.63553, 2.31981,
725 + 2.03319, 2.51121, 2.63770 /
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 + .03993, .01828, 1.14442, .31028, .00000,
728 + .00000, .16751, .31054,
729 + .04106, .01895, 1.84862, .32999, .00000,
730 + .00000, .18820, .33031,
731 + .04274, .01994, 3.03681, .36338, .00038,
732 + .00000, .22300, .36378,
733 + .04397, .02067, 3.95475, .39085, .02737,
734 + .00000, .25147, .39131,
735 + .04526, .02143, 4.97502, .42244, .06895,
736 + .00000, .28407, .42297,
737 + .04638, .02210, 5.90573, .45215, .09987,
738 + .00000, .31464, .45274,
739 + .04745, .02273, 6.84025, .48247, .13191,
740 + .00000, .34575, .48311,
741 + .04860, .02342, 7.90560, .51668, .16962,
742 + .00000, .38081, .51739 /
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 + .04960, .02401, 8.84324, .54808, .20196,
745 + .00000, .41292, .54884,
746 + .05056, .02458, 9.80020, .57988, .23598,
747 + .00000, .44539, .58070,
748 + .05133, .02504, 10.56786, .60604, .26310,
749 + .00000, .47207, .60689,
750 + .05297, .02601, 12.24653, .66478, .32469,
751 + .00020, .53192, .66573,
752 + .05438, .02685, 13.70438, .71836, .38085,
753 + .04747, .58642, .71939,
754 + .05596, .02779, 15.33292, .78115, .44648,
755 + .13019, .65020, .78227,
756 + .05761, .02877, 17.09350, .84988, .51810,
757 + .20598, .71995, .85110,
758 + .05911, .02966, 18.70069, .91422, .58420,
759 + .27354, .78519, .91552 /
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 + .06062, .03056, 20.35981, .98163, .65373,
762 + .34645, .85348, .98303,
763 + .06188, .03131, 21.76896, 1.03956, .71383,
764 + .41034, .91214, 1.04104,
765 + .06341, .03222, 23.47976, 1.11148, .78788,
766 + .48743, .98491, 1.11305,
767 + .06477, .03302, 24.99380, 1.17655, .85458,
768 + .55639, 1.05072, 1.17820,
769 + .06602, .03376, 26.41142, 1.23803, .91809,
770 + .62314, 1.11287, 1.23976,
771 + .06760, .03470, 28.18935, 1.31717, .99919,
772 + .70697, 1.19284, 1.31900,
773 + .06908, .03558, 29.85886, 1.39309, 1.07693,
774 + .78731, 1.26953, 1.39502,
775 + .07048, .03641, 31.43998, 1.46604, 1.15193,
776 + .86540, 1.34319, 1.46806 /
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 + .07187, .03723, 32.99007, 1.53952, 1.22698,
779 + .94267, 1.41735, 1.54162,
780 + .07324, .03804, 34.50764, 1.61268, 1.30186,
781 + 1.02006, 1.49118, 1.61487,
782 + .07454, .03881, 35.94061, 1.68300, 1.37386,
783 + 1.09450, 1.56212, 1.68528,
784 + .07576, .03953, 37.26442, 1.74951, 1.44172,
785 + 1.16431, 1.62920, 1.75186,
786 + .07699, .04025, 38.60229, 1.81755, 1.51135,
787 + 1.23627, 1.69782, 1.81998,
788 + .07820, .04096, 39.88308, 1.88437, 1.57946,
789 + 1.30622, 1.76519, 1.88689,
790 + .07935, .04164, 41.10688, 1.94896, 1.64548,
791 + 1.37431, 1.83030, 1.95155,
792 + .08044, .04228, 42.23734, 2.00998, 1.70768,
793 + 1.43822, 1.89181, 2.01264 /
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 + .08154, .04293, 43.37069, 2.07207, 1.77100,
796 + 1.50333, 1.95438, 2.07480,
797 + .08263, .04357, 44.48148, 2.13382, 1.83406,
798 + 1.56825, 2.01661, 2.13663,
799 + .08366, .04418, 45.51118, 2.19244, 1.89371,
800 + 1.62939, 2.07568, 2.19532,
801 + .08465, .04476, 46.50328, 2.24918, 1.95170,
802 + 1.68918, 2.13284, 2.25213,
803 + .08565, .04534, 47.46075, 2.30560, 2.00906,
804 + 1.74789, 2.18968, 2.30862 /
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 + .04418, .02061, 1.19255, .29579, .00000,
807 + .00000, .15984, .29605,
808 + .04544, .02136, 1.87061, .31484, .00000,
809 + .00000, .17979, .31517,
810 + .04730, .02248, 3.00450, .34686, .00037,
811 + .00000, .21311, .34730,
812 + .04866, .02330, 3.87271, .37300, .02599,
813 + .00000, .24016, .37351,
814 + .05009, .02416, 4.83075, .40290, .06536,
815 + .00000, .27099, .40349,
816 + .05133, .02490, 5.69917, .43086, .09444,
817 + .00000, .29974, .43153,
818 + .05252, .02562, 6.56621, .45925, .12446,
819 + .00000, .32887, .45999,
820 + .05379, .02638, 7.54941, .49120, .15968,
821 + .00000, .36159, .49201 /
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 + .05489, .02704, 8.41028, .52037, .18974,
824 + .00000, .39142, .52125,
825 + .05596, .02768, 9.28517, .54984, .22128,
826 + .00000, .42151, .55078,
827 + .05681, .02819, 9.98430, .57399, .24635,
828 + .00000, .44615, .57499,
829 + .05862, .02928, 11.50508, .62805, .30308,
830 + .00019, .50123, .62916,
831 + .06017, .03021, 12.81686, .67714, .35458,
832 + .04359, .55117, .67834,
833 + .06191, .03125, 14.27268, .73442, .41452,
834 + .11939, .60937, .73573,
835 + .06373, .03234, 15.83749, .79684, .47965,
836 + .18847, .67274, .79827,
837 + .06538, .03333, 17.25729, .85501, .53948,
838 + .24977, .73173, .85654 /
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 + .06704, .03432, 18.71542, .91573, .60220,
841 + .31570, .79327, .91737,
842 + .06843, .03515, 19.94833, .96773, .65623,
843 + .37329, .84595, .96946,
844 + .07011, .03615, 21.43791, 1.03206, .72256,
845 + .44253, .91107, 1.03390,
846 + .07159, .03704, 22.74968, 1.09005, .78210,
847 + .50424, .96975, 1.09199,
848 + .07296, .03785, 23.97338, 1.14470, .83864,
849 + .56384, 1.02502, 1.14673,
850 + .07469, .03888, 25.50032, 1.21479, .91058,
851 + .63839, 1.09588, 1.21694,
852 + .07631, .03985, 26.92715, 1.28180, .97931,
853 + .70961, 1.16361, 1.28406,
854 + .07784, .04076, 28.27306, 1.34600, 1.04542,
855 + .77865, 1.22846, 1.34836 /
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 + .07936, .04166, 29.58644, 1.41043, 1.11135,
858 + .84671, 1.29354, 1.41290,
859 + .08085, .04255, 30.86698, 1.47442, 1.17696,
860 + .91471, 1.35815, 1.47698,
861 + .08227, .04339, 32.07132, 1.53574, 1.23987,
862 + .97993, 1.42006, 1.53840,
863 + .08360, .04417, 33.17906, 1.59358, 1.29899,
864 + 1.04092, 1.47843, 1.59633,
865 + .08494, .04497, 34.29516, 1.65262, 1.35953,
866 + 1.10366, 1.53801, 1.65546,
867 + .08625, .04574, 35.35898, 1.71043, 1.41857,
868 + 1.16447, 1.59634, 1.71337,
869 + .08750, .04648, 36.37265, 1.76620, 1.47569,
870 + 1.22356, 1.65260, 1.76922,
871 + .08869, .04718, 37.30511, 1.81875, 1.52937,
872 + 1.27887, 1.70561, 1.82186 /
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 + .08988, .04788, 38.23703, 1.87212, 1.58391,
875 + 1.33511, 1.75943, 1.87531,
876 + .09106, .04858, 39.14768, 1.92510, 1.63811,
877 + 1.39107, 1.81286, 1.92837,
878 + .09218, .04924, 39.98849, 1.97526, 1.68926,
879 + 1.44365, 1.86344, 1.97861,
880 + .09326, .04987, 40.79731, 2.02375, 1.73892,
881 + 1.49502, 1.91233, 2.02717,
882 + .09433, .05050, 41.57398, 2.07183, 1.78791,
883 + 1.54531, 1.96081, 2.07534 /
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 + .06077, .03029, 1.37819, .25669, .00000,
886 + .00000, .13935, .25749,
887 + .06250, .03137, 1.97207, .27369, .00000,
888 + .00000, .15707, .27461,
889 + .06509, .03297, 2.93758, .30157, .00034,
890 + .00000, .18600, .30267,
891 + .06696, .03414, 3.65611, .32378, .02197,
892 + .00000, .20895, .32501,
893 + .06893, .03535, 4.43040, .34874, .05494,
894 + .00000, .23466, .35011,
895 + .07062, .03640, 5.11799, .37164, .07877,
896 + .00000, .25820, .37313,
897 + .07225, .03741, 5.79178, .39456, .10306,
898 + .00000, .28172, .39617,
899 + .07399, .03848, 6.54247, .42005, .13123,
900 + .00000, .30784, .42178 /
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 + .07549, .03940, 7.18879, .44298, .15495,
903 + .00000, .33130, .44482,
904 + .07694, .04030, 7.83633, .46592, .17960,
905 + .00000, .35475, .46786,
906 + .07809, .04100, 8.34723, .48453, .19899,
907 + .00000, .37376, .48655,
908 + .08054, .04250, 9.43895, .52567, .24237,
909 + .00016, .41573, .52787,
910 + .08264, .04379, 10.35913, .56248, .28120,
911 + .03307, .45324, .56483,
912 + .08498, .04521, 11.35772, .60482, .32576,
913 + .09013, .49635, .60735,
914 + .08742, .04670, 12.41015, .65028, .37348,
915 + .14123, .54260, .65299,
916 + .08962, .04803, 13.34556, .69200, .41667,
917 + .18594, .58501, .69487 /
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 + .09184, .04937, 14.28948, .73501, .46140,
920 + .23347, .62870, .73804,
921 + .09368, .05049, 15.07551, .77144, .49952,
922 + .27456, .66570, .77461,
923 + .09590, .05183, 16.00917, .81595, .54577,
924 + .32335, .71088, .81930,
925 + .09786, .05300, 16.81729, .85560, .58678,
926 + .36634, .75111, .85909,
927 + .09966, .05408, 17.56173, .89263, .62540,
928 + .40751, .78866, .89625,
929 + .10193, .05544, 18.47445, .93954, .67394,
930 + .45839, .83623, .94334,
931 + .10406, .05671, 19.31280, .98387, .71978,
932 + .50645, .88117, .98783,
933 + .10605, .05790, 20.09261, 1.02592, .76346,
934 + .55262, .92379, 1.03003 /
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 + .10803, .05908, 20.84023, 1.06765, .80653,
937 + .59760, .96607, 1.07191,
938 + .10997, .06023, 21.55887, 1.10868, .84898,
939 + .64215, 1.00764, 1.11310,
940 + .11179, .06131, 22.22542, 1.14766, .88933,
941 + .68450, 1.04712, 1.15221,
942 + .11351, .06232, 22.82876, 1.18405, .92688,
943 + .72372, 1.08398, 1.18874,
944 + .11523, .06334, 23.43008, 1.22092, .96506,
945 + .76379, 1.12133, 1.22574,
946 + .11692, .06433, 23.99361, 1.25668, 1.00193,
947 + .80224, 1.15753, 1.26163,
948 + .11852, .06527, 24.52519, 1.29094, 1.03736,
949 + .83938, 1.19222, 1.29601,
950 + .12003, .06616, 25.00662, 1.32294, 1.07038,
951 + .87384, 1.22462, 1.32813 /
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 + .12155, .06705, 25.48233, 1.35521, 1.10370,
954 + .90864, 1.25729, 1.36051,
955 + .12305, .06792, 25.94188, 1.38702, 1.13658,
956 + .94306, 1.28950, 1.39244,
957 + .12447, .06875, 26.35930, 1.41688, 1.16736,
958 + .97512, 1.31973, 1.42242,
959 + .12583, .06954, 26.75877, 1.44562, 1.19712,
960 + 1.00632, 1.34883, 1.45127,
961 + .12719, .07033, 27.13444, 1.47386, 1.22620,
962 + 1.03658, 1.37742, 1.47961 /
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 + .08461, .04565, 1.65023, .22766, .00000,
965 + .00000, .12393, .22946,
966 + .08702, .04717, 2.15485, .24252, .00000,
967 + .00000, .13939, .24452,
968 + .09059, .04941, 2.94436, .26628, .00030,
969 + .00000, .16403, .26857,
970 + .09317, .05102, 3.51339, .28470, .01825,
971 + .00000, .18307, .28721,
972 + .09586, .05270, 4.11048, .30500, .04532,
973 + .00000, .20401, .30773,
974 + .09818, .05414, 4.62913, .32324, .06443,
975 + .00000, .22281, .32617,
976 + .10040, .05551, 5.12690, .34120, .08363,
977 + .00000, .24128, .34431,
978 + .10276, .05696, 5.67045, .36091, .10561,
979 + .00000, .26154, .36422 /
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 + .10479, .05821, 6.12979, .37834, .12381,
982 + .00000, .27943, .38182,
983 + .10675, .05941, 6.58246, .39559, .14254,
984 + .00000, .29713, .39924,
985 + .10829, .06036, 6.93444, .40942, .15710,
986 + .00000, .31130, .41319,
987 + .11157, .06236, 7.67076, .43957, .18925,
988 + .00014, .34219, .44362,
989 + .11438, .06406, 8.27411, .46609, .21756,
990 + .02436, .36933, .47037,
991 + .11749, .06594, 8.91092, .49610, .24954,
992 + .06605, .40003, .50065,
993 + .12071, .06787, 9.56653, .52777, .28322,
994 + .10266, .43240, .53259,
995 + .12360, .06961, 10.13493, .55632, .31318,
996 + .13415, .46158, .56139 /
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 + .12650, .07134, 10.69615, .58533, .34378,
999 + .16720, .49120, .59064,
1000 + .12890, .07276, 11.15478, .60959, .36955,
1001 + .19545, .51598, .61511,
1002 + .13179, .07447, 11.68785, .63881, .40038,
1003 + .22852, .54582, .64457,
1004 + .13432, .07597, 12.13928, .66446, .42734,
1005 + .25727, .57201, .67044,
1006 + .13664, .07733, 12.54875, .68817, .45248,
1007 + .28456, .59621, .69434,
1008 + .13955, .07904, 13.03908, .71778, .48363,
1009 + .31781, .62643, .72420,
1010 + .14226, .08062, 13.47918, .74537, .51266,
1011 + .34881, .65459, .75202,
1012 + .14480, .08209, 13.88115, .77124, .54003,
1013 + .37829, .68100, .77811 /
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 + .14730, .08354, 14.25682, .79655, .56664,
1016 + .40663, .70684, .80363,
1017 + .14974, .08495, 14.61107, .82117, .59260,
1018 + .43440, .73196, .82845,
1019 + .15204, .08627, 14.93344, .84429, .61701,
1020 + .46055, .75557, .85177,
1021 + .15418, .08750, 15.21814, .86562, .63946,
1022 + .48448, .77734, .87328,
1023 + .15633, .08873, 15.49767, .88704, .66211,
1024 + .50875, .79922, .89488,
1025 + .15842, .08991, 15.75271, .90756, .68371,
1026 + .53177, .82017, .91557,
1027 + .16040, .09104, 15.98995, .92705, .70433,
1028 + .55384, .84008, .93524,
1029 + .16226, .09209, 16.19935, .94506, .72333,
1030 + .57412, .85848, .95340 /
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 + .16412, .09315, 16.40260, .96307, .74235,
1033 + .59444, .87688, .97157,
1034 + .16596, .09418, 16.59534, .98068, .76098,
1035 + .61438, .89487, .98932,
1036 + .16769, .09515, 16.76525, .99702, .77823,
1037 + .63277, .91157, 1.00581,
1038 + .16934, .09608, 16.92694, 1.01267, .79484,
1039 + .65060, .92758, 1.02161,
1040 + .17098, .09699, 17.07285, 1.02785, .81086,
1041 + .66768, .94310, 1.03692 /
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 + .10348, .05852, 1.84257, .21423, .00000,
1044 + .00000, .11678, .21713,
1045 + .10640, .06034, 2.28806, .22773, .00000,
1046 + .00000, .13086, .23089,
1047 + .11070, .06301, 2.96814, .24897, .00028,
1048 + .00000, .15294, .25251,
1049 + .11379, .06492, 3.44825, .26516, .01614,
1050 + .00000, .16973, .26898,
1051 + .11702, .06691, 3.94344, .28277, .03992,
1052 + .00000, .18797, .28688,
1053 + .11979, .06860, 4.36764, .29839, .05645,
1054 + .00000, .20414, .30276,
1055 + .12243, .07020, 4.76931, .31361, .07290,
1056 + .00000, .21985, .31822,
1057 + .12523, .07190, 5.20221, .33016, .09157,
1058 + .00000, .23695, .33503 /
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 + .12763, .07335, 5.56365, .34464, .10687,
1061 + .00000, .25189, .34973,
1062 + .12995, .07475, 5.91598, .35888, .12252,
1063 + .00000, .26656, .36417,
1064 + .13177, .07584, 6.18734, .37019, .13459,
1065 + .00000, .27822, .37565,
1066 + .13563, .07814, 6.74661, .39465, .16102,
1067 + .00012, .30341, .40045,
1068 + .13891, .08010, 7.19556, .41591, .18403,
1069 + .02000, .32530, .42202,
1070 + .14254, .08224, 7.65967, .43973, .20977,
1071 + .05402, .34980, .44616,
1072 + .14628, .08444, 8.13003, .46456, .23658,
1073 + .08353, .37534, .47133,
1074 + .14963, .08640, 8.53020, .48669, .26016,
1075 + .10864, .39810, .49376 /
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 + .15298, .08834, 8.91928, .50894, .28403,
1078 + .13477, .42099, .51631,
1079 + .15574, .08994, 9.23300, .52740, .30397,
1080 + .15694, .43997, .53501,
1081 + .15905, .09185, 9.59177, .54942, .32760,
1082 + .18266, .46261, .55733,
1083 + .16194, .09351, 9.89010, .56855, .34808,
1084 + .20483, .48229, .57672,
1085 + .16458, .09502, 10.15756, .58611, .36705,
1086 + .22574, .50036, .59452,
1087 + .16789, .09689, 10.47187, .60783, .39034,
1088 + .25098, .52270, .61653,
1089 + .17096, .09863, 10.74875, .62786, .41185,
1090 + .27433, .54332, .63683,
1091 + .17382, .10024, 10.99798, .64650, .43198,
1092 + .29638, .56251, .65573 /
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 + .17664, .10181, 11.22562, .66455, .45138,
1095 + .31739, .58111, .67403,
1096 + .17937, .10334, 11.43673, .68197, .47016,
1097 + .33784, .59905, .69168,
1098 + .18193, .10476, 11.62556, .69820, .48770,
1099 + .35696, .61578, .70814,
1100 + .18431, .10608, 11.78840, .71304, .50370,
1101 + .37434, .63109, .72319,
1102 + .18670, .10739, 11.94616, .72786, .51975,
1103 + .39187, .64638, .73822,
1104 + .18901, .10866, 12.08597, .74192, .53493,
1105 + .40837, .66088, .75247,
1106 + .19120, .10985, 12.21430, .75520, .54935,
1107 + .42411, .67460, .76594,
1108 + .19324, .11096, 12.32433, .76736, .56254,
1109 + .43848, .68717, .77829 /
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 + .19529, .11207, 12.42908, .77946, .57567,
1112 + .45280, .69967, .79055,
1113 + .19729, .11316, 12.52641, .79120, .58845,
1114 + .46679, .71182, .80247,
1115 + .19918, .11417, 12.60909, .80201, .60021,
1116 + .47959, .72301, .81345,
1117 + .20098, .11514, 12.68750, .81234, .61149,
1118 + .49198, .73370, .82393,
1119 + .20276, .11609, 12.75421, .82223, .62228,
1120 + .50374, .74395, .83398 /
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 + .11994, .07000, 1.98764, .20607, .00000,
1123 + .00000, .11243, .21014,
1124 + .12326, .07204, 2.38739, .21852, .00000,
1125 + .00000, .12546, .22290,
1126 + .12816, .07502, 2.98630, .23785, .00026,
1127 + .00000, .14565, .24270,
1128 + .13166, .07715, 3.40225, .25240, .01466,
1129 + .00000, .16082, .25759,
1130 + .13531, .07935, 3.82555, .26809, .03612,
1131 + .00000, .17714, .27362,
1132 + .13843, .08122, 4.18436, .28187, .05087,
1133 + .00000, .19147, .28769,
1134 + .14140, .08299, 4.52064, .29517, .06545,
1135 + .00000, .20529, .30128,
1136 + .14454, .08485, 4.87943, .30956, .08189,
1137 + .00000, .22023, .31597 /
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 + .14724, .08644, 5.17614, .32203, .09526,
1140 + .00000, .23318, .32870,
1141 + .14983, .08797, 5.46293, .33423, .10886,
1142 + .00000, .24583, .34114,
1143 + .15186, .08916, 5.68212, .34387, .11929,
1144 + .00000, .25582, .35097,
1145 + .15616, .09166, 6.12838, .36455, .14198,
1146 + .00011, .27727, .37206,
1147 + .15980, .09377, 6.48037, .38238, .16158,
1148 + .01718, .29574, .39024,
1149 + .16381, .09609, 6.83772, .40218, .18333,
1150 + .04628, .31626, .41041,
1151 + .16794, .09845, 7.19511, .42264, .20579,
1152 + .07128, .33746, .43126,
1153 + .17162, .10054, 7.49433, .44070, .22538,
1154 + .09238, .35617, .44966 /
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 + .17529, .10261, 7.78133, .45872, .24506,
1157 + .11421, .37485, .46801,
1158 + .17831, .10431, 8.01003, .47357, .26141,
1159 + .13261, .39024, .48314,
1160 + .18192, .10632, 8.26767, .49114, .28064,
1161 + .15382, .40847, .50104,
1162 + .18506, .10807, 8.47843, .50628, .29719,
1163 + .17197, .42419, .51647,
1164 + .18792, .10965, 8.66543, .52010, .31244,
1165 + .18902, .43854, .53056,
1166 + .19149, .11161, 8.88103, .53705, .33103,
1167 + .20947, .45615, .54783,
1168 + .19480, .11342, 9.06741, .55257, .34808,
1169 + .22825, .47228, .56365,
1170 + .19787, .11509, 9.23280, .56691, .36395,
1171 + .24589, .48720, .57827 /
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 + .20088, .11671, 9.38021, .58068, .37912,
1174 + .26259, .50155, .59231,
1175 + .20380, .11828, 9.51445, .59388, .39373,
1176 + .27877, .51530, .60577,
1177 + .20652, .11974, 9.63226, .60610, .40730,
1178 + .29382, .52805, .61823,
1179 + .20905, .12109, 9.73099, .61719, .41960,
1180 + .30741, .53962, .62955,
1181 + .21158, .12242, 9.82518, .62821, .43188,
1182 + .32107, .55114, .64079,
1183 + .21402, .12371, 9.90558, .63857, .44342,
1184 + .33384, .56197, .65136,
1185 + .21632, .12492, 9.97818, .64831, .45433,
1186 + .34599, .57217, .66131,
1187 + .21847, .12604, 10.03789, .65717, .46425,
1188 + .35701, .58146, .67035 /
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 + .22061, .12715, 10.09317, .66593, .47409,
1191 + .36796, .59065, .67929,
1192 + .22271, .12824, 10.14295, .67439, .48362,
1193 + .37861, .59953, .68793,
1194 + .22468, .12925, 10.18257, .68211, .49233,
1195 + .38830, .60765, .69582,
1196 + .22655, .13021, 10.22004, .68947, .50067,
1197 + .39766, .61540, .70335,
1198 + .22840, .13115, 10.24835, .69645, .50859,
1199 + .40649, .62276, .71048 /
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 + .13488, .08049, 2.09845, .20026, .00000,
1202 + .00000, .10937, .20555,
1203 + .13856, .08270, 2.46010, .21182, .00000,
1204 + .00000, .12153, .21747,
1205 + .14395, .08592, 2.99390, .22958, .00025,
1206 + .00000, .14019, .23577,
1207 + .14780, .08821, 3.35959, .24283, .01349,
1208 + .00000, .15407, .24940,
1209 + .15179, .09057, 3.72755, .25699, .03317,
1210 + .00000, .16890, .26396,
1211 + .15521, .09257, 4.03681, .26934, .04657,
1212 + .00000, .18182, .27664,
1213 + .15844, .09445, 4.32414, .28118, .05973,
1214 + .00000, .19420, .28880,
1215 + .16186, .09643, 4.62816, .29392, .07450,
1216 + .00000, .20752, .30187 /
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 + .16479, .09812, 4.87751, .30488, .08643,
1219 + .00000, .21897, .31312,
1220 + .16760, .09973, 5.11680, .31555, .09852,
1221 + .00000, .23012, .32406,
1222 + .16980, .10099, 5.29848, .32394, .10775,
1223 + .00000, .23889, .33266,
1224 + .17444, .10363, 5.66441, .34185, .12772,
1225 + .00011, .25759, .35102,
1226 + .17837, .10584, 5.94842, .35717, .14485,
1227 + .01515, .27359, .36672,
1228 + .18267, .10826, 6.23178, .37407, .16375,
1229 + .04070, .29123, .38403,
1230 + .18709, .11072, 6.51178, .39140, .18313,
1231 + .06249, .30934, .40178,
1232 + .19102, .11288, 6.74262, .40656, .19990,
1233 + .08076, .32520, .41732 /
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 + .19493, .11503, 6.96126, .42159, .21666,
1236 + .09956, .34093, .43272,
1237 + .19814, .11678, 7.13354, .43391, .23051,
1238 + .11533, .35382, .44533,
1239 + .20196, .11885, 7.32456, .44839, .24671,
1240 + .13342, .36898, .46016,
1241 + .20528, .12063, 7.47838, .46078, .26057,
1242 + .14881, .38198, .47286,
1243 + .20830, .12225, 7.61350, .47203, .27329,
1244 + .16322, .39379, .48439,
1245 + .21205, .12424, 7.76596, .48572, .28869,
1246 + .18039, .40818, .49843,
1247 + .21551, .12606, 7.89509, .49817, .30274,
1248 + .19608, .42128, .51119,
1249 + .21872, .12775, 8.00787, .50961, .31575,
1250 + .21077, .43333, .52293 /
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 + .22186, .12938, 8.10539, .52052, .32812,
1253 + .22458, .44484, .53411,
1254 + .22489, .13095, 8.19226, .53090, .33997,
1255 + .23791, .45581, .54477,
1256 + .22772, .13241, 8.26664, .54047, .35092,
1257 + .25026, .46593, .55458,
1258 + .23033, .13374, 8.32652, .54908, .36079,
1259 + .26135, .47505, .56342,
1260 + .23294, .13507, 8.38248, .55759, .37061,
1261 + .27246, .48408, .57216,
1262 + .23545, .13634, 8.42757, .56554, .37978,
1263 + .28281, .49253, .58033,
1264 + .23782, .13753, 8.46729, .57298, .38843,
1265 + .29261, .50046, .58798,
1266 + .24001, .13863, 8.49754, .57970, .39625,
1267 + .30147, .50762, .59489 /
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 + .24220, .13972, 8.52404, .58630, .40396,
1270 + .31023, .51467, .60167,
1271 + .24434, .14078, 8.54633, .59264, .41142,
1272 + .31873, .52146, .60820,
1273 + .24634, .14176, 8.56129, .59838, .41818,
1274 + .32643, .52762, .61411,
1275 + .24824, .14270, 8.57542, .60384, .42466,
1276 + .33385, .53349, .61973,
1277 + .25011, .14360, 8.58218, .60897, .43076,
1278 + .34081, .53901, .62501 /
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 + .16191, .09940, 2.24869, .19197, .00000,
1281 + .00000, .10511, .19981,
1282 + .16614, .10184, 2.54873, .20204, .00000,
1283 + .00000, .11583, .21032,
1284 + .17232, .10538, 2.98135, .21728, .00023,
1285 + .00000, .13207, .22621,
1286 + .17672, .10787, 3.27104, .22847, .01172,
1287 + .00000, .14396, .23785,
1288 + .18126, .11042, 3.55702, .24029, .02868,
1289 + .00000, .15652, .25013,
1290 + .18511, .11258, 3.79391, .25046, .04007,
1291 + .00000, .16732, .26069,
1292 + .18875, .11460, 4.01083, .26012, .05116,
1293 + .00000, .17758, .27072,
1294 + .19260, .11672, 4.23723, .27040, .06350,
1295 + .00000, .18850, .28139 /
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 + .19586, .11851, 4.42027, .27917, .07337,
1298 + .00000, .19781, .29048,
1299 + .19900, .12022, 4.59385, .28763, .08330,
1300 + .00000, .20681, .29926,
1301 + .20145, .12155, 4.72408, .29423, .09083,
1302 + .00000, .21382, .30609,
1303 + .20659, .12432, 4.98109, .30818, .10698,
1304 + .00010, .22865, .32055,
1305 + .21091, .12663, 5.17429, .31997, .12070,
1306 + .01231, .24119, .33277,
1307 + .21563, .12913, 5.36038, .33283, .13567,
1308 + .03294, .25487, .34608,
1309 + .22046, .13166, 5.54018, .34584, .15086,
1310 + .05034, .26875, .35956,
1311 + .22471, .13387, 5.68381, .35706, .16385,
1312 + .06477, .28074, .37118 /
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 + .22893, .13604, 5.81632, .36807, .17672,
1315 + .07950, .29251, .38259,
1316 + .23238, .13781, 5.91829, .37699, .18727,
1317 + .09177, .30207, .39184,
1318 + .23646, .13988, 6.02747, .38735, .19948,
1319 + .10571, .31320, .40257,
1320 + .23999, .14165, 6.11172, .39611, .20982,
1321 + .11748, .32262, .41165,
1322 + .24318, .14325, 6.18395, .40400, .21926,
1323 + .12842, .33112, .41984,
1324 + .24714, .14520, 6.26128, .41347, .23056,
1325 + .14135, .34136, .42967,
1326 + .25077, .14698, 6.32305, .42196, .24077,
1327 + .15307, .35057, .43848,
1328 + .25411, .14861, 6.37458, .42969, .25016,
1329 + .16396, .35896, .44650 /
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 + .25736, .15018, 6.41482, .43695, .25899,
1332 + .17411, .36688, .45405,
1333 + .26049, .15168, 6.44785, .44378, .26738,
1334 + .18384, .37436, .46115,
1335 + .26339, .15306, 6.47340, .45000, .27507,
1336 + .19279, .38118, .46762,
1337 + .26606, .15431, 6.49018, .45551, .28194,
1338 + .20076, .38725, .47336,
1339 + .26871, .15555, 6.50406, .46092, .28873,
1340 + .20871, .39322, .47899,
1341 + .27124, .15673, 6.51073, .46588, .29501,
1342 + .21605, .39874, .48417,
1343 + .27363, .15782, 6.51493, .47050, .30090,
1344 + .22297, .40387, .48898,
1345 + .27583, .15883, 6.51396, .47459, .30616,
1346 + .22917, .40845, .49326 /
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 + .27802, .15982, 6.51033, .47858, .31133,
1349 + .23527, .41293, .49742,
1350 + .28015, .16077, 6.50415, .48236, .31628,
1351 + .24116, .41720, .50137,
1352 + .28213, .16166, 6.49397, .48572, .32073,
1353 + .24645, .42101, .50489,
1354 + .28400, .16249, 6.48439, .48891, .32498,
1355 + .25154, .42463, .50822,
1356 + .28583, .16329, 6.46969, .49182, .32893,
1357 + .25625, .42797, .51127 /
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 + .19807, .12414, 2.35770, .18306, .00000,
1360 + .00000, .10072, .19489,
1361 + .20290, .12675, 2.58841, .19134, .00000,
1362 + .00000, .10978, .20368,
1363 + .20991, .13049, 2.91223, .20367, .00020,
1364 + .00000, .12325, .21676,
1365 + .21486, .13310, 3.12268, .21257, .00981,
1366 + .00000, .13296, .22617,
1367 + .21995, .13576, 3.32527, .22183, .02388,
1368 + .00000, .14308, .23596,
1369 + .22425, .13799, 3.49017, .22969, .03319,
1370 + .00000, .15166, .24425,
1371 + .22829, .14007, 3.63842, .23706, .04216,
1372 + .00000, .15972, .25203,
1373 + .23254, .14224, 3.79054, .24482, .05206,
1374 + .00000, .16822, .26022 /
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 + .23612, .14406, 3.91094, .25135, .05988,
1377 + .00000, .17538, .26710,
1378 + .23955, .14578, 4.02343, .25760, .06770,
1379 + .00000, .18223, .27368,
1380 + .24222, .14711, 4.10643, .26242, .07358,
1381 + .00000, .18753, .27877,
1382 + .24779, .14987, 4.26515, .27250, .08608,
1383 + .00008, .19861, .28939,
1384 + .25245, .15214, 4.37823, .28089, .09656,
1385 + .00959, .20786, .29823,
1386 + .25749, .15459, 4.48042, .28992, .10787,
1387 + .02558, .21783, .30772,
1388 + .26259, .15704, 4.57549, .29890, .11921,
1389 + .03889, .22778, .31718,
1390 + .26708, .15915, 4.64671, .30650, .12878,
1391 + .04979, .23624, .32518 /
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 + .27148, .16120, 4.70892, .31383, .13816,
1394 + .06082, .24444, .33291,
1395 + .27507, .16286, 4.75439, .31969, .14577,
1396 + .06994, .25102, .33910,
1397 + .27927, .16478, 4.79887, .32640, .15449,
1398 + .08019, .25857, .34617,
1399 + .28287, .16641, 4.82947, .33196, .16179,
1400 + .08876, .26488, .35204,
1401 + .28612, .16787, 4.85393, .33692, .16840,
1402 + .09668, .27052, .35727,
1403 + .29011, .16963, 4.87484, .34274, .17623,
1404 + .10594, .27720, .36342,
1405 + .29374, .17121, 4.88694, .34787, .18321,
1406 + .11425, .28311, .36884,
1407 + .29707, .17264, 4.89405, .35246, .18957,
1408 + .12191, .28843, .37370 /
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 + .30028, .17400, 4.89382, .35665, .19547,
1411 + .12898, .29335, .37815,
1412 + .30333, .17528, 4.88946, .36053, .20102,
1413 + .13570, .29794, .38227,
1414 + .30615, .17645, 4.88167, .36400, .20607,
1415 + .14184, .30207, .38596,
1416 + .30872, .17750, 4.86969, .36700, .21051,
1417 + .14725, .30568, .38914,
1418 + .31126, .17853, 4.85593, .36990, .21488,
1419 + .15262, .30919, .39222,
1420 + .31366, .17948, 4.83805, .37247, .21886,
1421 + .15751, .31235, .39497,
1422 + .31592, .18037, 4.81991, .37482, .22256,
1423 + .16211, .31527, .39749,
1424 + .31798, .18117, 4.79967, .37684, .22583,
1425 + .16619, .31782, .39965 /
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 + .32002, .18195, 4.77773, .37877, .22901,
1428 + .17018, .32027, .40171,
1429 + .32198, .18269, 4.75469, .38055, .23204,
1430 + .17400, .32257, .40363,
1431 + .32379, .18336, 4.73022, .38206, .23471,
1432 + .17739, .32458, .40526,
1433 + .32551, .18400, 4.70728, .38350, .23726,
1434 + .18065, .32647, .40680,
1435 + .32715, .18459, 4.68104, .38471, .23957,
1436 + .18364, .32815, .40812 /
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 + .25158, .15884, 2.36595, .17123, .00000,
1439 + .00000, .09532, .18986,
1440 + .25698, .16143, 2.51748, .17725, .00000,
1441 + .00000, .10227, .19643,
1442 + .26476, .16511, 2.72244, .18603, .00017,
1443 + .00000, .11242, .20598,
1444 + .27019, .16764, 2.84946, .19223, .00761,
1445 + .00000, .11959, .21271,
1446 + .27573, .17018, 2.96679, .19857, .01844,
1447 + .00000, .12694, .21958,
1448 + .28037, .17228, 3.05961, .20384, .02548,
1449 + .00000, .13308, .22529,
1450 + .28470, .17422, 3.14055, .20871, .03218,
1451 + .00000, .13876, .23055,
1452 + .28921, .17623, 3.22143, .21377, .03950,
1453 + .00000, .14467, .23602 /
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 + .29300, .17789, 3.28301, .21794, .04521,
1456 + .00000, .14958, .24052,
1457 + .29659, .17945, 3.33899, .22188, .05087,
1458 + .00000, .15423, .24478,
1459 + .29936, .18064, 3.37878, .22488, .05508,
1460 + .00000, .15778, .24802,
1461 + .30511, .18307, 3.44981, .23105, .06395,
1462 + .00007, .16511, .25468,
1463 + .30986, .18505, 3.49364, .23608, .07129,
1464 + .00690, .17112, .26009,
1465 + .31494, .18713, 3.52536, .24136, .07909,
1466 + .01830, .17747, .26578,
1467 + .32003, .18917, 3.55092, .24648, .08680,
1468 + .02765, .18369, .27130,
1469 + .32442, .19090, 3.56434, .25067, .09320,
1470 + .03520, .18886, .27582 /
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 + .32871, .19254, 3.57177, .25461, .09939,
1473 + .04277, .19377, .28007,
1474 + .33216, .19383, 3.57418, .25769, .10436,
1475 + .04896, .19766, .28340,
1476 + .33614, .19531, 3.57079, .26110, .10996,
1477 + .05584, .20201, .28708,
1478 + .33951, .19653, 3.56252, .26382, .11459,
1479 + .06152, .20556, .29002,
1480 + .34253, .19760, 3.55296, .26620, .11874,
1481 + .06674, .20868, .29258,
1482 + .34617, .19885, 3.53506, .26887, .12357,
1483 + .07275, .21228, .29547,
1484 + .34943, .19994, 3.51417, .27110, .12781,
1485 + .07809, .21538, .29789,
1486 + .35240, .20091, 3.49252, .27303, .13164,
1487 + .08297, .21811, .29999 /
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 + .35520, .20179, 3.46688, .27468, .13512,
1490 + .08741, .22054, .30178,
1491 + .35784, .20260, 3.43981, .27614, .13836,
1492 + .09159, .22275, .30337,
1493 + .36024, .20331, 3.41247, .27736, .14125,
1494 + .09536, .22469, .30471,
1495 + .36238, .20392, 3.38437, .27833, .14376,
1496 + .09865, .22631, .30576,
1497 + .36448, .20451, 3.35556, .27922, .14619,
1498 + .10189, .22785, .30674,
1499 + .36643, .20502, 3.32511, .27991, .14836,
1500 + .10480, .22917, .30750,
1501 + .36824, .20548, 3.29590, .28050, .15037,
1502 + .10752, .23035, .30815,
1503 + .36985, .20587, 3.26680, .28092, .15210,
1504 + .10990, .23132, .30862 /
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 + .37143, .20624, 3.23691, .28126, .15375,
1507 + .11220, .23222, .30901,
1508 + .37293, .20658, 3.20695, .28153, .15531,
1509 + .11439, .23303, .30931,
1510 + .37429, .20685, 3.17726, .28166, .15665,
1511 + .11631, .23367, .30947,
1512 + .37557, .20711, 3.14954, .28178, .15792,
1513 + .11814, .23427, .30962,
1514 + .37676, .20732, 3.12003, .28175, .15903,
1515 + .11979, .23472, .30961 /
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 + .29968, .18771, 2.26408, .16048, .00000,
1518 + .00000, .09070, .18572,
1519 + .30529, .19007, 2.36389, .16481, .00000,
1520 + .00000, .09608, .19055,
1521 + .31331, .19337, 2.49412, .17103, .00015,
1522 + .00000, .10384, .19745,
1523 + .31884, .19560, 2.57046, .17535, .00610,
1524 + .00000, .10924, .20222,
1525 + .32443, .19783, 2.63748, .17970, .01471,
1526 + .00000, .11471, .20702,
1527 + .32908, .19964, 2.68871, .18326, .02025,
1528 + .00000, .11922, .21094,
1529 + .33337, .20128, 2.73159, .18650, .02548,
1530 + .00000, .12334, .21449,
1531 + .33782, .20296, 2.77303, .18981, .03114,
1532 + .00000, .12759, .21813 /
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 + .34152, .20432, 2.80259, .19249, .03553,
1535 + .00000, .13107, .22107,
1536 + .34502, .20558, 2.82846, .19500, .03985,
1537 + .00000, .13434, .22381,
1538 + .34768, .20654, 2.84571, .19688, .04304,
1539 + .00000, .13682, .22587,
1540 + .35316, .20845, 2.87193, .20068, .04972,
1541 + .00006, .14186, .23001,
1542 + .35764, .20996, 2.88157, .20371, .05518,
1543 + .00525, .14594, .23331,
1544 + .36238, .21152, 2.87986, .20680, .06094,
1545 + .01388, .15018, .23666,
1546 + .36706, .21299, 2.87333, .20971, .06655,
1547 + .02089, .15425, .23981,
1548 + .37103, .21419, 2.86115, .21199, .07116,
1549 + .02649, .15756, .24226 /
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 + .37484, .21529, 2.84503, .21404, .07558,
1552 + .03206, .16064, .24449,
1553 + .37788, .21613, 2.82942, .21560, .07909,
1554 + .03659, .16302, .24618,
1555 + .38133, .21705, 2.80659, .21723, .08302,
1556 + .04157, .16564, .24792,
1557 + .38421, .21776, 2.78334, .21844, .08621,
1558 + .04566, .16770, .24922,
1559 + .38676, .21837, 2.76106, .21946, .08906,
1560 + .04938, .16949, .25031,
1561 + .38976, .21903, 2.72935, .22049, .09233,
1562 + .05365, .17148, .25141,
1563 + .39239, .21956, 2.69733, .22126, .09517,
1564 + .05739, .17313, .25221,
1565 + .39475, .22001, 2.66643, .22186, .09770,
1566 + .06078, .17455, .25283 /
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 + .39692, .22035, 2.63337, .22226, .09996,
1569 + .06384, .17574, .25323,
1570 + .39892, .22064, 2.60013, .22253, .10204,
1571 + .06670, .17677, .25349,
1572 + .40071, .22086, 2.56795, .22268, .10389,
1573 + .06926, .17763, .25363,
1574 + .40226, .22100, 2.53648, .22268, .10545,
1575 + .07147, .17829, .25360,
1576 + .40376, .22110, 2.50485, .22263, .10696,
1577 + .07363, .17888, .25351,
1578 + .40510, .22115, 2.47265, .22244, .10827,
1579 + .07555, .17933, .25328,
1580 + .40632, .22117, 2.44218, .22222, .10947,
1581 + .07734, .17970, .25302,
1582 + .40737, .22115, 2.41267, .22192, .11049,
1583 + .07888, .17994, .25266 /
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 + .40837, .22109, 2.38283, .22156, .11145,
1586 + .08036, .18013, .25224,
1587 + .40930, .22102, 2.35334, .22116, .11233,
1588 + .08175, .18026, .25177,
1589 + .41009, .22090, 2.32473, .22069, .11307,
1590 + .08296, .18029, .25123,
1591 + .41084, .22079, 2.29808, .22025, .11377,
1592 + .08412, .18032, .25072,
1593 + .41147, .22062, 2.27038, .21970, .11435,
1594 + .08513, .18024, .25009 /
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 + .38456, .23304, 1.94393, .13999, .00000,
1597 + .00000, .08207, .17667,
1598 + .38983, .23461, 1.98584, .14207, .00000,
1599 + .00000, .08531, .17896,
1600 + .39719, .23669, 2.03554, .14499, .00012,
1601 + .00000, .08988, .18213,
1602 + .40216, .23802, 2.05948, .14694, .00414,
1603 + .00000, .09299, .18422,
1604 + .40709, .23927, 2.07615, .14885, .00994,
1605 + .00000, .09608, .18625,
1606 + .41109, .24023, 2.08681, .15035, .01362,
1607 + .00000, .09857, .18781,
1608 + .41471, .24104, 2.09340, .15164, .01706,
1609 + .00000, .10080, .18915,
1610 + .41841, .24183, 2.09803, .15293, .02075,
1611 + .00000, .10306, .19046 /
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 + .42140, .24241, 2.09846, .15390, .02357,
1614 + .00000, .10486, .19144,
1615 + .42419, .24292, 2.09741, .15479, .02634,
1616 + .00000, .10653, .19231,
1617 + .42627, .24327, 2.09483, .15542, .02836,
1618 + .00000, .10776, .19292,
1619 + .43045, .24390, 2.08323, .15661, .03253,
1620 + .00005, .11022, .19404,
1621 + .43373, .24430, 2.06573, .15748, .03591,
1622 + .00335, .11213, .19482,
1623 + .43708, .24460, 2.03919, .15826, .03941,
1624 + .00881, .11405, .19548,
1625 + .44025, .24476, 2.00992, .15887, .04278,
1626 + .01319, .11581, .19592,
1627 + .44278, .24478, 1.98062, .15919, .04549,
1628 + .01663, .11713, .19606 /
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 + .44510, .24469, 1.94971, .15937, .04805,
1631 + .02002, .11830, .19604,
1632 + .44687, .24454, 1.92343, .15943, .05005,
1633 + .02275, .11916, .19593,
1634 + .44876, .24425, 1.89013, .15934, .05226,
1635 + .02572, .12002, .19560,
1636 + .45021, .24391, 1.85958, .15913, .05402,
1637 + .02812, .12062, .19516,
1638 + .45143, .24356, 1.83156, .15888, .05557,
1639 + .03029, .12110, .19470,
1640 + .45273, .24300, 1.79486, .15841, .05731,
1641 + .03274, .12153, .19396,
1642 + .45373, .24239, 1.75990, .15787, .05879,
1643 + .03486, .12180, .19312,
1644 + .45455, .24176, 1.72729, .15730, .06009,
1645 + .03676, .12199, .19227 /
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 + .45514, .24106, 1.69406, .15661, .06121,
1648 + .03844, .12202, .19130,
1649 + .45560, .24032, 1.66165, .15588, .06222,
1650 + .04000, .12198, .19029,
1651 + .45592, .23958, 1.63111, .15512, .06309,
1652 + .04137, .12188, .18927,
1653 + .45607, .23883, 1.60211, .15435, .06380,
1654 + .04254, .12169, .18821,
1655 + .45615, .23806, 1.57338, .15355, .06447,
1656 + .04367, .12147, .18713,
1657 + .45608, .23724, 1.54493, .15269, .06503,
1658 + .04465, .12117, .18599,
1659 + .45597, .23644, 1.51833, .15186, .06554,
1660 + .04555, .12086, .18490,
1661 + .45576, .23564, 1.49313, .15102, .06593,
1662 + .04632, .12051, .18381 /
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 + .45549, .23481, 1.46798, .15015, .06629,
1665 + .04704, .12012, .18269,
1666 + .45515, .23397, 1.44342, .14927, .06661,
1667 + .04772, .11971, .18155,
1668 + .45473, .23314, 1.41999, .14839, .06685,
1669 + .04828, .11927, .18041,
1670 + .45434, .23236, 1.39826, .14757, .06709,
1671 + .04882, .11886, .17934,
1672 + .45381, .23151, 1.37610, .14668, .06724,
1673 + .04928, .11837, .17821 /
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 + .45726, .26601, 1.61094, .12083, .00000,
1676 + .00000, .07375, .16563,
1677 + .46147, .26655, 1.62718, .12163, .00000,
1678 + .00000, .07566, .16623,
1679 + .46720, .26712, 1.64273, .12269, .00009,
1680 + .00000, .07829, .16696,
1681 + .47093, .26735, 1.64570, .12335, .00298,
1682 + .00000, .08005, .16735,
1683 + .47450, .26745, 1.64319, .12394, .00713,
1684 + .00000, .08176, .16764,
1685 + .47730, .26742, 1.63880, .12435, .00973,
1686 + .00000, .08311, .16776,
1687 + .47973, .26729, 1.63240, .12465, .01216,
1688 + .00000, .08428, .16777,
1689 + .48215, .26708, 1.62424, .12492, .01474,
1690 + .00000, .08544, .16771 /
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 + .48399, .26680, 1.61496, .12505, .01669,
1693 + .00000, .08633, .16754,
1694 + .48566, .26648, 1.60518, .12514, .01860,
1695 + .00000, .08714, .16734,
1696 + .48684, .26617, 1.59640, .12516, .01999,
1697 + .00000, .08772, .16712,
1698 + .48908, .26541, 1.57385, .12511, .02283,
1699 + .00004, .08883, .16655,
1700 + .49067, .26463, 1.54966, .12497, .02510,
1701 + .00231, .08964, .16593,
1702 + .49210, .26366, 1.51836, .12470, .02743,
1703 + .00606, .09039, .16512,
1704 + .49327, .26251, 1.48534, .12429, .02965,
1705 + .00903, .09101, .16414,
1706 + .49396, .26132, 1.45419, .12377, .03141,
1707 + .01135, .09138, .16309 /
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 + .49441, .26005, 1.42236, .12316, .03304,
1710 + .01361, .09164, .16193,
1711 + .49462, .25894, 1.39592, .12260, .03432,
1712 + .01541, .09179, .16091,
1713 + .49460, .25752, 1.36337, .12183, .03569,
1714 + .01736, .09183, .15957,
1715 + .49437, .25617, 1.33429, .12107, .03677,
1716 + .01891, .09177, .15831,
1717 + .49406, .25491, 1.30799, .12034, .03771,
1718 + .02031, .09168, .15712,
1719 + .49340, .25323, 1.27428, .11933, .03874,
1720 + .02187, .09144, .15553,
1721 + .49256, .25158, 1.24273, .11832, .03960,
1722 + .02320, .09113, .15395,
1723 + .49167, .25002, 1.21367, .11735, .04034,
1724 + .02439, .09081, .15245 /
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 + .49058, .24836, 1.18455, .11631, .04096,
1727 + .02542, .09038, .15089,
1728 + .48938, .24672, 1.15648, .11526, .04150,
1729 + .02636, .08992, .14934,
1730 + .48814, .24515, 1.13031, .11425, .04195,
1731 + .02719, .08945, .14784,
1732 + .48682, .24362, 1.10576, .11326, .04231,
1733 + .02787, .08896, .14639,
1734 + .48545, .24208, 1.08161, .11226, .04264,
1735 + .02853, .08845, .14493,
1736 + .48396, .24051, 1.05798, .11123, .04289,
1737 + .02910, .08788, .14346,
1738 + .48251, .23902, 1.03600, .11024, .04310,
1739 + .02961, .08734, .14207,
1740 + .48104, .23758, 1.01536, .10929, .04326,
1741 + .03003, .08679, .14072 /
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 + .47949, .23612, .99490, .10833, .04339,
1744 + .03043, .08622, .13936,
1745 + .47792, .23467, .97505, .10738, .04350,
1746 + .03079, .08565, .13801,
1747 + .47632, .23325, .95627, .10644, .04356,
1748 + .03108, .08508, .13670,
1749 + .47483, .23192, .93890, .10556, .04361,
1750 + .03136, .08454, .13548,
1751 + .47319, .23053, .92136, .10465, .04362,
1752 + .03159, .08396, .13421 /
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 + .51910, .28953, 1.32577, .10355, .00000,
1755 + .00000, .06569, .15272,
1756 + .52180, .28896, 1.33125, .10362, .00000,
1757 + .00000, .06676, .15218,
1758 + .52524, .28793, 1.33310, .10366, .00008,
1759 + .00000, .06819, .15131,
1760 + .52729, .28702, 1.32828, .10362, .00224,
1761 + .00000, .06911, .15059,
1762 + .52910, .28595, 1.31912, .10351, .00534,
1763 + .00000, .06998, .14978,
1764 + .53036, .28490, 1.30966, .10335, .00728,
1765 + .00000, .07065, .14899,
1766 + .53130, .28381, 1.29906, .10313, .00907,
1767 + .00000, .07119, .14816,
1768 + .53212, .28262, 1.28692, .10286, .01097,
1769 + .00000, .07170, .14725 /
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 + .53257, .28149, 1.27484, .10258, .01239,
1772 + .00000, .07207, .14638,
1773 + .53289, .28036, 1.26266, .10227, .01378,
1774 + .00000, .07237, .14553,
1775 + .53302, .27941, 1.25230, .10199, .01478,
1776 + .00000, .07257, .14483,
1777 + .53298, .27732, 1.22752, .10134, .01682,
1778 + .00003, .07290, .14326,
1779 + .53263, .27544, 1.20289, .10072, .01843,
1780 + .00168, .07309, .14185,
1781 + .53193, .27324, 1.17250, .09996, .02008,
1782 + .00439, .07321, .14022,
1783 + .53088, .27084, 1.14086, .09909, .02162,
1784 + .00652, .07321, .13845,
1785 + .52954, .26858, 1.11158, .09820, .02283,
1786 + .00816, .07308, .13674 /
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 + .52797, .26624, 1.08207, .09726, .02394,
1789 + .00975, .07287, .13498,
1790 + .52652, .26427, 1.05779, .09646, .02479,
1791 + .01102, .07265, .13350,
1792 + .52452, .26183, 1.02826, .09542, .02570,
1793 + .01237, .07229, .13165,
1794 + .52254, .25960, 1.00217, .09445, .02640,
1795 + .01343, .07191, .12997,
1796 + .52066, .25756, .97873, .09356, .02700,
1797 + .01439, .07154, .12844,
1798 + .51801, .25489, .94903, .09237, .02764,
1799 + .01544, .07099, .12645,
1800 + .51535, .25235, .92148, .09122, .02816,
1801 + .01632, .07042, .12456,
1802 + .51277, .24997, .89628, .09014, .02861,
1803 + .01711, .06985, .12280 /
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 + .51000, .24753, .87128, .08902, .02896,
1806 + .01778, .06924, .12100,
1807 + .50719, .24514, .84734, .08792, .02926,
1808 + .01839, .06862, .11924,
1809 + .50446, .24287, .82515, .08686, .02950,
1810 + .01891, .06800, .11757,
1811 + .50174, .24071, .80450, .08585, .02967,
1812 + .01934, .06739, .11599,
1813 + .49899, .23856, .78428, .08484, .02983,
1814 + .01975, .06678, .11441,
1815 + .49617, .23639, .76463, .08382, .02993,
1816 + .02009, .06613, .11286,
1817 + .49348, .23435, .74644, .08285, .03001,
1818 + .02039, .06552, .11139,
1819 + .49083, .23240, .72946, .08193, .03006,
1820 + .02064, .06492, .11000 /
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 + .48811, .23044, .71270, .08101, .03009,
1823 + .02086, .06431, .10859,
1824 + .48540, .22851, .69651, .08009, .03010,
1825 + .02107, .06370, .10721,
1826 + .48275, .22664, .68129, .07921, .03007,
1827 + .02122, .06311, .10589,
1828 + .48026, .22490, .66724, .07839, .03005,
1829 + .02137, .06256, .10465,
1830 + .47762, .22309, .65314, .07754, .03000,
1831 + .02148, .06197, .10340 /
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 + .58222, .30836, 1.05309, .08494, .00000,
1834 + .00000, .05614, .13484,
1835 + .58262, .30643, 1.05373, .08457, .00000,
1836 + .00000, .05656, .13342,
1837 + .58269, .30342, 1.04968, .08397, .00006,
1838 + .00000, .05710, .13130,
1839 + .58230, .30112, 1.04191, .08349, .00164,
1840 + .00000, .05741, .12977,
1841 + .58156, .29864, 1.03058, .08296, .00391,
1842 + .00000, .05766, .12815,
1843 + .58059, .29643, 1.01950, .08248, .00531,
1844 + .00000, .05782, .12668,
1845 + .57945, .29423, 1.00769, .08196, .00660,
1846 + .00000, .05790, .12527,
1847 + .57809, .29186, .99450, .08138, .00795,
1848 + .00000, .05795, .12377 /
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 + .57663, .28975, .98184, .08085, .00896,
1851 + .00000, .05794, .12243,
1852 + .57513, .28769, .96927, .08032, .00994,
1853 + .00000, .05790, .12113,
1854 + .57383, .28602, .95878, .07988, .01064,
1855 + .00000, .05784, .12009,
1856 + .57077, .28244, .93451, .07893, .01205,
1857 + .00003, .05765, .11786,
1858 + .56787, .27932, .91133, .07807, .01315,
1859 + .00118, .05742, .11594,
1860 + .56439, .27578, .88351, .07707, .01426,
1861 + .00307, .05710, .11382,
1862 + .56048, .27205, .85477, .07600, .01529,
1863 + .00455, .05670, .11157,
1864 + .55661, .26863, .82850, .07497, .01607,
1865 + .00567, .05625, .10949 /
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 + .55254, .26514, .80224, .07389, .01678,
1868 + .00675, .05575, .10742,
1869 + .54908, .26225, .78080, .07298, .01732,
1870 + .00759, .05530, .10572,
1871 + .54466, .25873, .75496, .07186, .01788,
1872 + .00849, .05471, .10363,
1873 + .54057, .25560, .73233, .07086, .01831,
1874 + .00919, .05415, .10177,
1875 + .53679, .25276, .71214, .06995, .01866,
1876 + .00981, .05363, .10008,
1877 + .53181, .24912, .68679, .06875, .01903,
1878 + .01048, .05292, .09797,
1879 + .52701, .24568, .66348, .06760, .01931,
1880 + .01104, .05222, .09599,
1881 + .52247, .24249, .64230, .06654, .01954,
1882 + .01153, .05156, .09417 /
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 + .51777, .23930, .62147, .06547, .01972,
1885 + .01194, .05089, .09233,
1886 + .51313, .23618, .60166, .06442, .01985,
1887 + .01231, .05021, .09055,
1888 + .50871, .23325, .58343, .06344, .01995,
1889 + .01261, .04956, .08889,
1890 + .50445, .23048, .56658, .06249, .02001,
1891 + .01286, .04892, .08734,
1892 + .50018, .22773, .55017, .06155, .02005,
1893 + .01309, .04829, .08581,
1894 + .49588, .22502, .53433, .06062, .02006,
1895 + .01328, .04765, .08431,
1896 + .49180, .22247, .51974, .05976, .02006,
1897 + .01344, .04705, .08290,
1898 + .48789, .22006, .50621, .05894, .02003,
1899 + .01357, .04647, .08158 /
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 + .48393, .21764, .49292, .05812, .02000,
1902 + .01368, .04589, .08026,
1903 + .48002, .21527, .48015, .05731, .01996,
1904 + .01378, .04531, .07898,
1905 + .47624, .21299, .46821, .05654, .01989,
1906 + .01385, .04476, .07776,
1907 + .47270, .21087, .45723, .05582, .01983,
1908 + .01392, .04424, .07663,
1909 + .46903, .20871, .44627, .05508, .01975,
1910 + .01396, .04371, .07548 /
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 + .63052, .31778, .86197, .06962, .00000,
1913 + .00000, .04735, .11608,
1914 + .62838, .31457, .86048, .06907, .00000,
1915 + .00000, .04742, .11420,
1916 + .62475, .30975, .85382, .06821, .00005,
1917 + .00000, .04745, .11148,
1918 + .62174, .30619, .84484, .06755, .00125,
1919 + .00000, .04742, .10954,
1920 + .61830, .30244, .83271, .06685, .00297,
1921 + .00000, .04734, .10752,
1922 + .61506, .29915, .82101, .06622, .00402,
1923 + .00000, .04723, .10577,
1924 + .61175, .29596, .80878, .06559, .00497,
1925 + .00000, .04707, .10409,
1926 + .60812, .29258, .79529, .06491, .00597,
1927 + .00000, .04688, .10233 /
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 + .60475, .28960, .78253, .06429, .00671,
1930 + .00000, .04667, .10080,
1931 + .60142, .28673, .76998, .06368, .00742,
1932 + .00000, .04644, .09933,
1933 + .59867, .28446, .75963, .06319, .00792,
1934 + .00000, .04625, .09818,
1935 + .59265, .27960, .73616, .06213, .00893,
1936 + .00002, .04579, .09573,
1937 + .58728, .27543, .71433, .06121, .00970,
1938 + .00086, .04537, .09364,
1939 + .58108, .27082, .68868, .06018, .01047,
1940 + .00222, .04486, .09134,
1941 + .57444, .26601, .66235, .05905, .01117,
1942 + .00328, .04427, .08898,
1943 + .56820, .26161, .63852, .05801, .01170,
1944 + .00407, .04368, .08687 /
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 + .56179, .25723, .61489, .05695, .01216,
1947 + .00482, .04306, .08476,
1948 + .55643, .25363, .59576, .05607, .01251,
1949 + .00541, .04254, .08303,
1950 + .54979, .24928, .57291, .05498, .01286,
1951 + .00602, .04189, .08096,
1952 + .54381, .24545, .55307, .05402, .01311,
1953 + .00649, .04128, .07914,
1954 + .53834, .24199, .53547, .05316, .01332,
1955 + .00690, .04071, .07752,
1956 + .53130, .23760, .51355, .05204, .01352,
1957 + .00735, .03997, .07549,
1958 + .52459, .23352, .49358, .05099, .01367,
1959 + .00771, .03926, .07361,
1960 + .51833, .22976, .47556, .05003, .01379,
1961 + .00802, .03860, .07189 /
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 + .51201, .22599, .45799, .04904, .01386,
1964 + .00828, .03794, .07018,
1965 + .50583, .22235, .44139, .04809, .01390,
1966 + .00850, .03728, .06855,
1967 + .49999, .21897, .42620, .04721, .01393,
1968 + .00868, .03666, .06704,
1969 + .49441, .21579, .41227, .04638, .01392,
1970 + .00883, .03607, .06562,
1971 + .48886, .21265, .39878, .04556, .01391,
1972 + .00896, .03549, .06423,
1973 + .48335, .20956, .38585, .04475, .01388,
1974 + .00906, .03491, .06288,
1975 + .47817, .20667, .37400, .04399, .01384,
1976 + .00915, .03436, .06163,
1977 + .47323, .20395, .36307, .04328, .01378,
1978 + .00921, .03384, .06046 /
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 + .46826, .20125, .35239, .04257, .01372,
1981 + .00927, .03331, .05931,
1982 + .46339, .19861, .34218, .04188, .01366,
1983 + .00931, .03280, .05818,
1984 + .45871, .19610, .33268, .04122, .01358,
1985 + .00934, .03232, .05711,
1986 + .45435, .19376, .32397, .04062, .01352,
1987 + .00936, .03187, .05613,
1988 + .44987, .19138, .31533, .03999, .01343,
1989 + .00937, .03140, .05514 /
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 + .66498, .31968, .73047, .05725, .00000,
1992 + .00000, .03943, .09752,
1993 + .66021, .31535, .72678, .05661, .00000,
1994 + .00000, .03929, .09550,
1995 + .65280, .30896, .71727, .05567, .00005,
1996 + .00000, .03903, .09257,
1997 + .64715, .30433, .70675, .05498, .00097,
1998 + .00000, .03881, .09050,
1999 + .64102, .29950, .69342, .05423, .00230,
2000 + .00000, .03855, .08836,
2001 + .63552, .29531, .68083, .05357, .00310,
2002 + .00000, .03828, .08653,
2003 + .63010, .29129, .66789, .05291, .00383,
2004 + .00000, .03800, .08480,
2005 + .62429, .28707, .65380, .05221, .00458,
2006 + .00000, .03768, .08299 /
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 + .61905, .28340, .64075, .05157, .00513,
2009 + .00000, .03737, .08144,
2010 + .61397, .27989, .62803, .05096, .00565,
2011 + .00000, .03706, .07997,
2012 + .60986, .27711, .61765, .05046, .00602,
2013 + .00000, .03681, .07881,
2014 + .60104, .27123, .59460, .04941, .00674,
2015 + .00002, .03624, .07639,
2016 + .59336, .26624, .57368, .04851, .00730,
2017 + .00064, .03572, .07436,
2018 + .58471, .26075, .54961, .04750, .00784,
2019 + .00164, .03512, .07216,
2020 + .57559, .25511, .52514, .04643, .00832,
2021 + .00241, .03448, .06989,
2022 + .56721, .25000, .50326, .04543, .00867,
2023 + .00297, .03386, .06790 /
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 + .55874, .24494, .48179, .04443, .00897,
2026 + .00351, .03322, .06593,
2027 + .55173, .24082, .46453, .04361, .00920,
2028 + .00392, .03268, .06433,
2029 + .54317, .23587, .44411, .04262, .00941,
2030 + .00435, .03201, .06243,
2031 + .53553, .23155, .42654, .04175, .00956,
2032 + .00467, .03143, .06076,
2033 + .52862, .22767, .41107, .04097, .00968,
2034 + .00495, .03090, .05927,
2035 + .51984, .22276, .39200, .03995, .00979,
2036 + .00525, .03020, .05745,
2037 + .51159, .21823, .37479, .03900, .00986,
2038 + .00548, .02954, .05578,
2039 + .50394, .21407, .35937, .03813, .00990,
2040 + .00569, .02893, .05427 /
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 + .49625, .20997, .34443, .03727, .00992,
2043 + .00585, .02832, .05276,
2044 + .48880, .20602, .33043, .03645, .00992,
2045 + .00598, .02773, .05133,
2046 + .48180, .20235, .31773, .03569, .00990,
2047 + .00610, .02717, .05000,
2048 + .47521, .19890, .30617, .03497, .00987,
2049 + .00618, .02665, .04880,
2050 + .46868, .19551, .29502, .03425, .00983,
2051 + .00626, .02613, .04762,
2052 + .46224, .19221, .28441, .03355, .00978,
2053 + .00631, .02563, .04647,
2054 + .45621, .18913, .27472, .03291, .00973,
2055 + .00635, .02515, .04540,
2056 + .45050, .18624, .26585, .03231, .00967,
2057 + .00638, .02471, .04441 /
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 + .44479, .18337, .25720, .03170, .00960,
2060 + .00640, .02426, .04344,
2061 + .43921, .18058, .24898, .03112, .00953,
2062 + .00642, .02383, .04249,
2063 + .43388, .17795, .24137, .03057, .00946,
2064 + .00642, .02342, .04160,
2065 + .42892, .17550, .23441, .03006, .00939,
2066 + .00642, .02304, .04078,
2067 + .42387, .17302, .22756, .02954, .00931,
2068 + .00641, .02265, .03996 /
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 + .68660, .31561, .63789, .04729, .00000,
2071 + .00000, .03240, .08003,
2072 + .67928, .31031, .63124, .04664, .00000,
2073 + .00000, .03216, .07804,
2074 + .66825, .30259, .61795, .04568, .00004,
2075 + .00000, .03178, .07517,
2076 + .66006, .29707, .60530, .04497, .00076,
2077 + .00000, .03147, .07314,
2078 + .65139, .29135, .59020, .04422, .00180,
2079 + .00000, .03113, .07109,
2080 + .64378, .28643, .57631, .04355, .00242,
2081 + .00000, .03078, .06936,
2082 + .63638, .28175, .56239, .04290, .00297,
2083 + .00000, .03044, .06773,
2084 + .62855, .27686, .54746, .04221, .00354,
2085 + .00000, .03008, .06602 /
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 + .62162, .27262, .53393, .04158, .00395,
2088 + .00000, .02974, .06458,
2089 + .61495, .26859, .52089, .04099, .00433,
2090 + .00000, .02940, .06320,
2091 + .60962, .26543, .51040, .04052, .00460,
2092 + .00000, .02913, .06212,
2093 + .59830, .25877, .48759, .03951, .00513,
2094 + .00002, .02852, .05990,
2095 + .58858, .25316, .46740, .03864, .00553,
2096 + .00047, .02800, .05805,
2097 + .57776, .24704, .44463, .03768, .00590,
2098 + .00122, .02741, .05605,
2099 + .56653, .24077, .42178, .03668, .00623,
2100 + .00178, .02676, .05404,
2101 + .55627, .23520, .40155, .03578, .00647,
2102 + .00219, .02617, .05223 /
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 + .54602, .22968, .38199, .03487, .00667,
2105 + .00257, .02557, .05048,
2106 + .53762, .22519, .36643, .03412, .00681,
2107 + .00286, .02507, .04908,
2108 + .52749, .21983, .34814, .03323, .00694,
2109 + .00316, .02445, .04742,
2110 + .51853, .21518, .33262, .03244, .00702,
2111 + .00338, .02391, .04599,
2112 + .51046, .21103, .31904, .03173, .00708,
2113 + .00358, .02342, .04472,
2114 + .50024, .20582, .30246, .03084, .00713,
2115 + .00377, .02280, .04315,
2116 + .49075, .20102, .28760, .03002, .00715,
2117 + .00393, .02222, .04172,
2118 + .48202, .19663, .27439, .02926, .00716,
2119 + .00406, .02169, .04043 /
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 + .47331, .19232, .26175, .02850, .00714,
2122 + .00416, .02115, .03918,
2123 + .46490, .18820, .24998, .02779, .00712,
2124 + .00425, .02064, .03798,
2125 + .45704, .18440, .23935, .02713, .00709,
2126 + .00431, .02016, .03688,
2127 + .44970, .18085, .22975, .02651, .00704,
2128 + .00436, .01971, .03587,
2129 + .44246, .17735, .22055, .02590, .00700,
2130 + .00440, .01928, .03489,
2131 + .43534, .17395, .21185, .02531, .00694,
2132 + .00442, .01885, .03396,
2133 + .42869, .17080, .20396, .02477, .00689,
2134 + .00444, .01844, .03309,
2135 + .42244, .16785, .19676, .02426, .00683,
2136 + .00445, .01807, .03228 /
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 + .41621, .16494, .18978, .02375, .00676,
2139 + .00446, .01771, .03148,
2140 + .41015, .16211, .18317, .02326, .00670,
2141 + .00446, .01735, .03071,
2142 + .40440, .15944, .17710, .02280, .00663,
2143 + .00445, .01701, .03001,
2144 + .39905, .15697, .17156, .02237, .00657,
2145 + .00444, .01669, .02935,
2146 + .39361, .15447, .16613, .02194, .00650,
2147 + .00443, .01638, .02870 /
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 + .69653, .30677, .56827, .03923, .00000,
2150 + .00000, .02634, .06416,
2151 + .68683, .30068, .55820, .03857, .00000,
2152 + .00000, .02605, .06234,
2153 + .67242, .29188, .54066, .03759, .00003,
2154 + .00000, .02559, .05973,
2155 + .66192, .28564, .52562, .03689, .00060,
2156 + .00000, .02525, .05790,
2157 + .65093, .27924, .50855, .03616, .00140,
2158 + .00000, .02487, .05603,
2159 + .64142, .27374, .49336, .03551, .00188,
2160 + .00000, .02452, .05448,
2161 + .63227, .26856, .47846, .03488, .00230,
2162 + .00000, .02418, .05301,
2163 + .62263, .26318, .46275, .03421, .00273,
2164 + .00000, .02381, .05149 /
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 + .61421, .25853, .44885, .03362, .00303,
2167 + .00000, .02346, .05020,
2168 + .60615, .25413, .43560, .03306, .00332,
2169 + .00000, .02313, .04900,
2170 + .59977, .25068, .42506, .03261, .00352,
2171 + .00000, .02285, .04806,
2172 + .58628, .24349, .40262, .03167, .00390,
2173 + .00001, .02228, .04611,
2174 + .57481, .23746, .38324, .03086, .00418,
2175 + .00035, .02178, .04450,
2176 + .56219, .23090, .36179, .02996, .00445,
2177 + .00091, .02122, .04279,
2178 + .54916, .22427, .34053, .02906, .00467,
2179 + .00132, .02064, .04103,
2180 + .53742, .21837, .32205, .02822, .00482,
2181 + .00161, .02010, .03952 /
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 + .52576, .21258, .30432, .02741, .00495,
2184 + .00189, .01955, .03803,
2185 + .51625, .20789, .29034, .02675, .00503,
2186 + .00209, .01911, .03684,
2187 + .50488, .20228, .27415, .02594, .00511,
2188 + .00230, .01857, .03546,
2189 + .49490, .19746, .26051, .02525, .00515,
2190 + .00246, .01810, .03427,
2191 + .48594, .19318, .24866, .02463, .00518,
2192 + .00259, .01767, .03321,
2193 + .47468, .18784, .23436, .02385, .00519,
2194 + .00272, .01713, .03191,
2195 + .46426, .18294, .22167, .02313, .00519,
2196 + .00282, .01663, .03075,
2197 + .45472, .17848, .21047, .02248, .00518,
2198 + .00291, .01618, .02970 /
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 + .44530, .17410, .19984, .02182, .00515,
2201 + .00297, .01573, .02868,
2202 + .43623, .16993, .19001, .02121, .00511,
2203 + .00302, .01530, .02772,
2204 + .42779, .16609, .18118, .02065, .00507,
2205 + .00306, .01489, .02684,
2206 + .41993, .16252, .17328, .02013, .00503,
2207 + .00308, .01452, .02603,
2208 + .41220, .15903, .16574, .01963, .00498,
2209 + .00310, .01417, .02524,
2210 + .40466, .15565, .15865, .01914, .00493,
2211 + .00311, .01382, .02448,
2212 + .39762, .15253, .15223, .01868, .00487,
2213 + .00312, .01349, .02379,
2214 + .39104, .14961, .14643, .01826, .00482,
2215 + .00312, .01319, .02315 /
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 + .38451, .14672, .14084, .01784, .00477,
2218 + .00311, .01289, .02253,
2219 + .37815, .14393, .13557, .01744, .00471,
2220 + .00311, .01260, .02193,
2221 + .37213, .14132, .13074, .01706, .00465,
2222 + .00309, .01232, .02138,
2223 + .36654, .13889, .12635, .01672, .00460,
2224 + .00308, .01207, .02087,
2225 + .36091, .13646, .12207, .01636, .00454,
2226 + .00307, .01181, .02037 /
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 + .69596, .29417, .51063, .03256, .00000,
2229 + .00000, .02114, .05035,
2230 + .68405, .28751, .49726, .03192, .00000,
2231 + .00000, .02084, .04873,
2232 + .66661, .27792, .47573, .03099, .00003,
2233 + .00000, .02037, .04644,
2234 + .65406, .27117, .45857, .03032, .00047,
2235 + .00000, .02002, .04484,
2236 + .64106, .26426, .43988, .02962, .00109,
2237 + .00000, .01965, .04322,
2238 + .62988, .25838, .42367, .02900, .00145,
2239 + .00000, .01931, .04188,
2240 + .61921, .25286, .40813, .02840, .00177,
2241 + .00000, .01898, .04062,
2242 + .60803, .24714, .39197, .02777, .00209,
2243 + .00000, .01861, .03934 /
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 + .59834, .24225, .37795, .02723, .00232,
2246 + .00000, .01828, .03825,
2247 + .58911, .23762, .36475, .02671, .00253,
2248 + .00000, .01797, .03722,
2249 + .58186, .23399, .35439, .02629, .00267,
2250 + .00000, .01772, .03643,
2251 + .56661, .22646, .33268, .02542, .00294,
2252 + .00001, .01720, .03479,
2253 + .55374, .22020, .31434, .02468, .00314,
2254 + .00026, .01675, .03345,
2255 + .53965, .21343, .29444, .02388, .00333,
2256 + .00067, .01625, .03200,
2257 + .52524, .20661, .27496, .02308, .00348,
2258 + .00097, .01573, .03056,
2259 + .51239, .20055, .25827, .02233, .00358,
2260 + .00118, .01525, .02930 /
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 + .49968, .19460, .24242, .02160, .00366,
2263 + .00138, .01478, .02811,
2264 + .48937, .18982, .23005, .02102, .00371,
2265 + .00153, .01439, .02717,
2266 + .47709, .18420, .21589, .02029, .00374,
2267 + .00167, .01393, .02605,
2268 + .46637, .17935, .20407, .01969, .00376,
2269 + .00178, .01353, .02508,
2270 + .45679, .17504, .19388, .01916, .00377,
2271 + .00187, .01317, .02423,
2272 + .44482, .16970, .18165, .01848, .00377,
2273 + .00195, .01272, .02322,
2274 + .43379, .16483, .17093, .01787, .00375,
2275 + .00202, .01231, .02228,
2276 + .42374, .16041, .16155, .01732, .00373,
2277 + .00208, .01194, .02144 /
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 + .41384, .15609, .15270, .01678, .00370,
2280 + .00211, .01158, .02061,
2281 + .40439, .15197, .14457, .01626, .00366,
2282 + .00214, .01123, .01985,
2283 + .39564, .14817, .13733, .01576, .00362,
2284 + .00217, .01091, .01918,
2285 + .38751, .14468, .13088, .01532, .00358,
2286 + .00218, .01061, .01856,
2287 + .37953, .14127, .12475, .01490, .00354,
2288 + .00219, .01032, .01796,
2289 + .37177, .13800, .11903, .01450, .00349,
2290 + .00219, .01003, .01738,
2291 + .36456, .13497, .11388, .01413, .00345,
2292 + .00219, .00977, .01684,
2293 + .35784, .13214, .10925, .01378, .00340,
2294 + .00218, .00953, .01635 /
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 + .35118, .12935, .10480, .01343, .00336,
2297 + .00217, .00930, .01588,
2298 + .34473, .12666, .10061, .01309, .00331,
2299 + .00217, .00906, .01542,
2300 + .33865, .12415, .09681, .01279, .00326,
2301 + .00215, .00884, .01500,
2302 + .33302, .12183, .09335, .01251, .00322,
2303 + .00214, .00863, .01461,
2304 + .32736, .11949, .09000, .01221, .00317,
2305 + .00213, .00844, .01423 /
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 + .68573, .27907, .45865, .02728, .00000,
2308 + .00000, .01659, .03846,
2309 + .67197, .27196, .44245, .02666, .00000,
2310 + .00000, .01630, .03710,
2311 + .65198, .26180, .41766, .02572, .00002,
2312 + .00000, .01588, .03520,
2313 + .63773, .25469, .39895, .02505, .00036,
2314 + .00000, .01556, .03389,
2315 + .62305, .24745, .37926, .02438, .00084,
2316 + .00000, .01521, .03256,
2317 + .61054, .24131, .36251, .02376, .00111,
2318 + .00000, .01491, .03146,
2319 + .59864, .23558, .34677, .02320, .00135,
2320 + .00000, .01461, .03043,
2321 + .58623, .22967, .33064, .02262, .00159,
2322 + .00000, .01430, .02936 /
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 + .57557, .22461, .31687, .02211, .00176,
2325 + .00000, .01402, .02847,
2326 + .56545, .21985, .30405, .02162, .00191,
2327 + .00000, .01375, .02763,
2328 + .55750, .21615, .29412, .02123, .00201,
2329 + .00000, .01353, .02700,
2330 + .54090, .20848, .27366, .02042, .00221,
2331 + .00001, .01307, .02569,
2332 + .52697, .20212, .25670, .01976, .00235,
2333 + .00020, .01268, .02461,
2334 + .51180, .19528, .23856, .01905, .00247,
2335 + .00050, .01225, .02346,
2336 + .49645, .18841, .22105, .01831, .00257,
2337 + .00071, .01182, .02231,
2338 + .48279, .18232, .20624, .01766, .00264,
2339 + .00087, .01143, .02132 /
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 + .46937, .17643, .19235, .01701, .00268,
2342 + .00101, .01103, .02037,
2343 + .45852, .17171, .18160, .01649, .00271,
2344 + .00111, .01071, .01962,
2345 + .44563, .16613, .16936, .01589, .00273,
2346 + .00121, .01034, .01873,
2347 + .43449, .16135, .15926, .01535, .00273,
2348 + .00128, .01000, .01800,
2349 + .42457, .15711, .15061, .01487, .00273,
2350 + .00134, .00970, .01736,
2351 + .41221, .15186, .14037, .01430, .00272,
2352 + .00140, .00935, .01654,
2353 + .40087, .14710, .13145, .01379, .00270,
2354 + .00145, .00902, .01583,
2355 + .39057, .14281, .12368, .01332, .00267,
2356 + .00148, .00872, .01519 /
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 + .38046, .13864, .11642, .01287, .00264,
2359 + .00150, .00842, .01458,
2360 + .37086, .13467, .10979, .01242, .00261,
2361 + .00152, .00814, .01401,
2362 + .36203, .13102, .10393, .01201, .00257,
2363 + .00153, .00788, .01349,
2364 + .35379, .12767, .09872, .01166, .00254,
2365 + .00153, .00764, .01302,
2366 + .34571, .12442, .09380, .01133, .00250,
2367 + .00154, .00741, .01256,
2368 + .33794, .12128, .08924, .01100, .00246,
2369 + .00154, .00719, .01212,
2370 + .33075, .11839, .08514, .01069, .00242,
2371 + .00153, .00700, .01172,
2372 + .32405, .11571, .08148, .01041, .00239,
2373 + .00152, .00681, .01136 /
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 + .31743, .11307, .07797, .01012, .00235,
2376 + .00152, .00662, .01100,
2377 + .31103, .11053, .07468, .00985, .00231,
2378 + .00151, .00645, .01066,
2379 + .30502, .10816, .07170, .00959, .00228,
2380 + .00150, .00629, .01035,
2381 + .29947, .10597, .06899, .00936, .00224,
2382 + .00149, .00614, .01006,
2383 + .29390, .10376, .06638, .00912, .00221,
2384 + .00147, .00599, .00977 /
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 + .66775, .26144, .40819, .02246, .00000,
2387 + .00000, .01304, .02890,
2388 + .65239, .25411, .39003, .02187, .00000,
2389 + .00000, .01277, .02778,
2390 + .63024, .24366, .36328, .02101, .00002,
2391 + .00000, .01238, .02622,
2392 + .61460, .23637, .34385, .02038, .00027,
2393 + .00000, .01208, .02516,
2394 + .59858, .22897, .32388, .01974, .00063,
2395 + .00000, .01176, .02411,
2396 + .58493, .22278, .30726, .01921, .00084,
2397 + .00000, .01148, .02322,
2398 + .57207, .21699, .29188, .01869, .00101,
2399 + .00000, .01121, .02239,
2400 + .55875, .21101, .27632, .01815, .00119,
2401 + .00000, .01094, .02154 /
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 + .54732, .20594, .26324, .01769, .00131,
2404 + .00000, .01069, .02084,
2405 + .53651, .20117, .25119, .01725, .00142,
2406 + .00000, .01045, .02018,
2407 + .52806, .19747, .24196, .01692, .00149,
2408 + .00000, .01027, .01967,
2409 + .51047, .18984, .22312, .01623, .00163,
2410 + .00001, .00987, .01862,
2411 + .49583, .18352, .20776, .01564, .00172,
2412 + .00014, .00955, .01777,
2413 + .48003, .17674, .19164, .01499, .00181,
2414 + .00036, .00919, .01689,
2415 + .46403, .16998, .17624, .01434, .00187,
2416 + .00052, .00882, .01600,
2417 + .44987, .16405, .16337, .01379, .00191,
2418 + .00062, .00849, .01524 /
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 + .43603, .15828, .15140, .01324, .00194,
2421 + .00072, .00816, .01452,
2422 + .42490, .15368, .14220, .01280, .00195,
2423 + .00080, .00790, .01395,
2424 + .41171, .14831, .13188, .01229, .00196,
2425 + .00086, .00759, .01326,
2426 + .40040, .14366, .12345, .01183, .00196,
2427 + .00091, .00733, .01271,
2428 + .39036, .13955, .11626, .01142, .00195,
2429 + .00095, .00710, .01223,
2430 + .37786, .13453, .10778, .01096, .00193,
2431 + .00099, .00681, .01161,
2432 + .36645, .12999, .10046, .01054, .00191,
2433 + .00102, .00655, .01107,
2434 + .35612, .12591, .09413, .01015, .00189,
2435 + .00104, .00630, .01059 /
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 + .34605, .12192, .08827, .00977, .00186,
2438 + .00105, .00608, .01014,
2439 + .33649, .11817, .08295, .00942, .00184,
2440 + .00106, .00586, .00971,
2441 + .32770, .11474, .07826, .00911, .00181,
2442 + .00107, .00566, .00931,
2443 + .31959, .11158, .07412, .00881, .00178,
2444 + .00107, .00548, .00895,
2445 + .31168, .10849, .07022, .00852, .00175,
2446 + .00107, .00530, .00862,
2447 + .30405, .10555, .06663, .00825, .00172,
2448 + .00107, .00513, .00830,
2449 + .29700, .10283, .06343, .00799, .00169,
2450 + .00106, .00498, .00802,
2451 + .29047, .10033, .06056, .00775, .00166,
2452 + .00106, .00484, .00775 /
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 + .28403, .09788, .05781, .00752, .00163,
2455 + .00105, .00469, .00749,
2456 + .27782, .09552, .05525, .00730, .00160,
2457 + .00104, .00456, .00724,
2458 + .27197, .09331, .05295, .00711, .00157,
2459 + .00103, .00444, .00702,
2460 + .26657, .09128, .05087, .00693, .00155,
2461 + .00102, .00433, .00681,
2462 + .26119, .08925, .04886, .00674, .00152,
2463 + .00101, .00421, .00661 /
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 + .64264, .24261, .35860, .01847, .00000,
2466 + .00000, .01005, .02116,
2467 + .62604, .23518, .33942, .01790, .00000,
2468 + .00000, .00981, .02030,
2469 + .60230, .22461, .31200, .01707, .00002,
2470 + .00000, .00945, .01910,
2471 + .58561, .21729, .29268, .01649, .00020,
2472 + .00000, .00920, .01827,
2473 + .56857, .20992, .27324, .01592, .00047,
2474 + .00000, .00893, .01743,
2475 + .55417, .20375, .25731, .01544, .00062,
2476 + .00000, .00870, .01673,
2477 + .54066, .19798, .24276, .01497, .00075,
2478 + .00000, .00847, .01610,
2479 + .52671, .19207, .22820, .01449, .00087,
2480 + .00000, .00823, .01545 /
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 + .51479, .18704, .21618, .01407, .00096,
2483 + .00000, .00804, .01491,
2484 + .50357, .18234, .20516, .01368, .00104,
2485 + .00000, .00784, .01440,
2486 + .49482, .17869, .19678, .01337, .00109,
2487 + .00000, .00768, .01402,
2488 + .47667, .17121, .17991, .01277, .00118,
2489 + .00001, .00734, .01324,
2490 + .46162, .16506, .16638, .01227, .00125,
2491 + .00010, .00706, .01260,
2492 + .44546, .15849, .15237, .01170, .00131,
2493 + .00026, .00679, .01192,
2494 + .42918, .15196, .13910, .01116, .00135,
2495 + .00037, .00649, .01125,
2496 + .41484, .14625, .12815, .01069, .00137,
2497 + .00045, .00622, .01067 /
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 + .40087, .14072, .11809, .01023, .00138,
2500 + .00051, .00596, .01014,
2501 + .38968, .13632, .11042, .00986, .00139,
2502 + .00056, .00574, .00972,
2503 + .37657, .13116, .10185, .00943, .00139,
2504 + .00061, .00550, .00920,
2505 + .36527, .12677, .09491, .00905, .00139,
2506 + .00065, .00530, .00878,
2507 + .35526, .12290, .08903, .00872, .00138,
2508 + .00067, .00513, .00842,
2509 + .34292, .11815, .08215, .00831, .00136,
2510 + .00070, .00489, .00800,
2511 + .33170, .11387, .07627, .00796, .00134,
2512 + .00071, .00469, .00760,
2513 + .32156, .11002, .07120, .00766, .00132,
2514 + .00073, .00451, .00724 /
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 + .31167, .10630, .06653, .00737, .00130,
2517 + .00074, .00433, .00690,
2518 + .30234, .10279, .06231, .00708, .00128,
2519 + .00074, .00417, .00659,
2520 + .29382, .09958, .05861, .00680, .00126,
2521 + .00074, .00402, .00632,
2522 + .28595, .09665, .05536, .00656, .00123,
2523 + .00074, .00388, .00607,
2524 + .27828, .09381, .05232, .00634, .00121,
2525 + .00074, .00374, .00583,
2526 + .27092, .09109, .04953, .00613, .00119,
2527 + .00074, .00361, .00561,
2528 + .26413, .08859, .04703, .00594, .00116,
2529 + .00073, .00350, .00540,
2530 + .25786, .08628, .04482, .00575, .00114,
2531 + .00073, .00339, .00521 /
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 + .25170, .08402, .04271, .00556, .00112,
2534 + .00072, .00329, .00503,
2535 + .24576, .08185, .04075, .00538, .00110,
2536 + .00071, .00319, .00485,
2537 + .24019, .07984, .03899, .00523, .00108,
2538 + .00071, .00309, .00470,
2539 + .23506, .07798, .03740, .00509, .00106,
2540 + .00070, .00300, .00456,
2541 + .22996, .07613, .03587, .00494, .00104,
2542 + .00069, .00292, .00441 /
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 + .61183, .22282, .30971, .01493, .00000,
2545 + .00000, .00767, .01521,
2546 + .59434, .21544, .29046, .01442, .00000,
2547 + .00000, .00746, .01454,
2548 + .56944, .20497, .26368, .01368, .00001,
2549 + .00000, .00715, .01362,
2550 + .55205, .19775, .24528, .01317, .00015,
2551 + .00000, .00694, .01299,
2552 + .53439, .19052, .22704, .01265, .00034,
2553 + .00000, .00671, .01235,
2554 + .51954, .18448, .21228, .01221, .00045,
2555 + .00000, .00650, .01184,
2556 + .50563, .17885, .19900, .01182, .00054,
2557 + .00000, .00632, .01135,
2558 + .49130, .17309, .18583, .01142, .00063,
2559 + .00000, .00613, .01086 /
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 + .47914, .16823, .17503, .01104, .00069,
2562 + .00000, .00596, .01047,
2563 + .46772, .16369, .16524, .01069, .00075,
2564 + .00000, .00580, .01010,
2565 + .45885, .16017, .15788, .01044, .00078,
2566 + .00000, .00567, .00980,
2567 + .44050, .15297, .14322, .00992, .00085,
2568 + .00001, .00540, .00922,
2569 + .42533, .14709, .13159, .00950, .00089,
2570 + .00007, .00518, .00874,
2571 + .40911, .14082, .11966, .00904, .00093,
2572 + .00018, .00496, .00823,
2573 + .39288, .13457, .10854, .00857, .00095,
2574 + .00026, .00472, .00775,
2575 + .37866, .12915, .09946, .00818, .00097,
2576 + .00032, .00450, .00734 /
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 + .36488, .12393, .09114, .00780, .00097,
2579 + .00036, .00430, .00695,
2580 + .35387, .11978, .08485, .00748, .00098,
2581 + .00040, .00414, .00664,
2582 + .34093, .11496, .07789, .00711, .00097,
2583 + .00043, .00395, .00627,
2584 + .32988, .11084, .07228, .00682, .00097,
2585 + .00045, .00380, .00596,
2586 + .32013, .10722, .06755, .00656, .00096,
2587 + .00047, .00366, .00570,
2588 + .30813, .10278, .06208, .00625, .00095,
2589 + .00048, .00349, .00540,
2590 + .29726, .09881, .05741, .00596, .00093,
2591 + .00050, .00333, .00513,
2592 + .28748, .09525, .05340, .00571, .00091,
2593 + .00050, .00318, .00488 /
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 + .27797, .09182, .04975, .00547, .00090,
2596 + .00051, .00305, .00464,
2597 + .26902, .08859, .04646, .00524, .00088,
2598 + .00051, .00292, .00442,
2599 + .26085, .08565, .04358, .00503, .00086,
2600 + .00051, .00281, .00422,
2601 + .25335, .08297, .04108, .00485, .00084,
2602 + .00051, .00271, .00405,
2603 + .24606, .08037, .03873, .00467, .00083,
2604 + .00051, .00261, .00390,
2605 + .23907, .07789, .03659, .00449, .00081,
2606 + .00050, .00251, .00374,
2607 + .23265, .07562, .03469, .00433, .00079,
2608 + .00050, .00243, .00359,
2609 + .22671, .07353, .03300, .00419, .00078,
2610 + .00050, .00235, .00345 /
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 + .22089, .07149, .03140, .00406, .00076,
2613 + .00049, .00227, .00332,
2614 + .21531, .06953, .02991, .00393, .00075,
2615 + .00049, .00220, .00319,
2616 + .21009, .06771, .02857, .00381, .00073,
2617 + .00048, .00213, .00308,
2618 + .20530, .06603, .02736, .00370, .00072,
2619 + .00047, .00207, .00297,
2620 + .20051, .06438, .02621, .00360, .00070,
2621 + .00047, .00201, .00288 /
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 + .57637, .20263, .26242, .01185, .00000,
2624 + .00000, .00580, .01072,
2625 + .55835, .19540, .24405, .01139, .00000,
2626 + .00000, .00562, .01023,
2627 + .53274, .18525, .21887, .01077, .00001,
2628 + .00000, .00536, .00953,
2629 + .51499, .17826, .20192, .01032, .00011,
2630 + .00000, .00517, .00906,
2631 + .49707, .17125, .18540, .00986, .00024,
2632 + .00000, .00497, .00860,
2633 + .48202, .16543, .17222, .00950, .00032,
2634 + .00000, .00481, .00822,
2635 + .46798, .16003, .16046, .00916, .00039,
2636 + .00000, .00465, .00786,
2637 + .45358, .15453, .14890, .00882, .00045,
2638 + .00000, .00449, .00750 /
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 + .44138, .14989, .13952, .00851, .00049,
2641 + .00000, .00436, .00720,
2642 + .42997, .14556, .13108, .00823, .00053,
2643 + .00000, .00424, .00693,
2644 + .42114, .14220, .12478, .00801, .00055,
2645 + .00000, .00413, .00672,
2646 + .40293, .13537, .11233, .00758, .00059,
2647 + .00001, .00392, .00630,
2648 + .38797, .12981, .10260, .00722, .00062,
2649 + .00005, .00375, .00595,
2650 + .37203, .12390, .09273, .00682, .00065,
2651 + .00013, .00357, .00558,
2652 + .35608, .11805, .08358, .00646, .00066,
2653 + .00018, .00339, .00524,
2654 + .34223, .11299, .07618, .00612, .00067,
2655 + .00022, .00323, .00495 /
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 + .32881, .10812, .06947, .00581, .00067,
2658 + .00025, .00307, .00468,
2659 + .31812, .10426, .06442, .00557, .00067,
2660 + .00027, .00294, .00446,
2661 + .30562, .09979, .05887, .00529, .00067,
2662 + .00030, .00281, .00420,
2663 + .29499, .09599, .05443, .00505, .00066,
2664 + .00031, .00269, .00398,
2665 + .28564, .09266, .05071, .00484, .00066,
2666 + .00032, .00259, .00379,
2667 + .27414, .08861, .04643, .00460, .00065,
2668 + .00033, .00245, .00357,
2669 + .26379, .08497, .04279, .00437, .00063,
2670 + .00034, .00234, .00339,
2671 + .25450, .08171, .03970, .00416, .00062,
2672 + .00034, .00224, .00323 /
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 + .24548, .07859, .03689, .00399, .00061,
2675 + .00035, .00213, .00306,
2676 + .23703, .07566, .03436, .00381, .00060,
2677 + .00035, .00204, .00290,
2678 + .22936, .07299, .03216, .00363, .00058,
2679 + .00035, .00196, .00277,
2680 + .22231, .07056, .03024, .00349, .00057,
2681 + .00035, .00189, .00265,
2682 + .21548, .06821, .02846, .00336, .00056,
2683 + .00034, .00181, .00254,
2684 + .20895, .06599, .02683, .00323, .00055,
2685 + .00034, .00174, .00243,
2686 + .20296, .06395, .02539, .00310, .00053,
2687 + .00034, .00167, .00234,
2688 + .19744, .06208, .02412, .00299, .00052,
2689 + .00033, .00161, .00225 /
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 + .19205, .06025, .02291, .00288, .00051,
2692 + .00033, .00156, .00215,
2693 + .18688, .05850, .02180, .00278, .00050,
2694 + .00033, .00151, .00207,
2695 + .18205, .05688, .02080, .00269, .00049,
2696 + .00032, .00146, .00200,
2697 + .17762, .05539, .01990, .00261, .00048,
2698 + .00032, .00141, .00193,
2699 + .17320, .05393, .01904, .00254, .00047,
2700 + .00031, .00137, .00186 /
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 + .53724, .18271, .21799, .00939, .00000,
2703 + .00000, .00426, .00729,
2704 + .51901, .17573, .20110, .00899, .00000,
2705 + .00000, .00411, .00695,
2706 + .49327, .16596, .17832, .00842, .00001,
2707 + .00000, .00389, .00646,
2708 + .47547, .15927, .16325, .00804, .00008,
2709 + .00000, .00375, .00612,
2710 + .45756, .15258, .14877, .00767, .00017,
2711 + .00000, .00360, .00580,
2712 + .44263, .14704, .13732, .00734, .00022,
2713 + .00000, .00348, .00552,
2714 + .42877, .14192, .12721, .00703, .00027,
2715 + .00000, .00336, .00528,
2716 + .41457, .13671, .11736, .00672, .00031,
2717 + .00000, .00323, .00505 /
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 + .40256, .13233, .10944, .00648, .00034,
2720 + .00000, .00312, .00484,
2721 + .39133, .12826, .10236, .00625, .00037,
2722 + .00000, .00301, .00464,
2723 + .38266, .12513, .09711, .00608, .00038,
2724 + .00000, .00293, .00449,
2725 + .36490, .11876, .08682, .00572, .00041,
2726 + .00000, .00278, .00417,
2727 + .35034, .11357, .07886, .00543, .00043,
2728 + .00004, .00265, .00393,
2729 + .33486, .10807, .07087, .00513, .00044,
2730 + .00009, .00251, .00370,
2731 + .31953, .10267, .06353, .00483, .00045,
2732 + .00013, .00239, .00343,
2733 + .30622, .09799, .05764, .00455, .00046,
2734 + .00015, .00225, .00326 /
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 + .29338, .09350, .05233, .00431, .00046,
2737 + .00017, .00214, .00307,
2738 + .28319, .08996, .04835, .00412, .00046,
2739 + .00019, .00206, .00291,
2740 + .27132, .08587, .04402, .00390, .00045,
2741 + .00020, .00195, .00273,
2742 + .26121, .08242, .04058, .00372, .00045,
2743 + .00021, .00186, .00259,
2744 + .25233, .07940, .03771, .00356, .00044,
2745 + .00022, .00178, .00248,
2746 + .24155, .07572, .03442, .00335, .00044,
2747 + .00023, .00169, .00233,
2748 + .23182, .07243, .03163, .00318, .00043,
2749 + .00023, .00160, .00219,
2750 + .22309, .06950, .02926, .00303, .00042,
2751 + .00023, .00152, .00207 /
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 + .21469, .06670, .02712, .00289, .00041,
2754 + .00023, .00146, .00195,
2755 + .20681, .06407, .02521, .00276, .00040,
2756 + .00023, .00139, .00186,
2757 + .19965, .06167, .02356, .00265, .00039,
2758 + .00023, .00132, .00178,
2759 + .19313, .05951, .02213, .00254, .00038,
2760 + .00023, .00126, .00170,
2761 + .18683, .05742, .02079, .00242, .00037,
2762 + .00023, .00121, .00162,
2763 + .18085, .05544, .01957, .00231, .00036,
2764 + .00023, .00117, .00155,
2765 + .17538, .05363, .01849, .00221, .00035,
2766 + .00023, .00113, .00148,
2767 + .17032, .05197, .01754, .00213, .00035,
2768 + .00022, .00109, .00142 /
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 + .16537, .05036, .01665, .00205, .00034,
2771 + .00022, .00105, .00137,
2772 + .16064, .04882, .01582, .00197, .00033,
2773 + .00022, .00101, .00131,
2774 + .15624, .04740, .01508, .00191, .00032,
2775 + .00022, .00097, .00126,
2776 + .15220, .04610, .01441, .00185, .00032,
2777 + .00021, .00095, .00122,
2778 + .14819, .04481, .01378, .00180, .00031,
2779 + .00021, .00092, .00117 /
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 + .49563, .16304, .17717, .00725, .00000,
2782 + .00000, .00310, .00490,
2783 + .47754, .15642, .16221, .00691, .00000,
2784 + .00000, .00298, .00464,
2785 + .45204, .14721, .14237, .00644, .00001,
2786 + .00000, .00280, .00430,
2787 + .43449, .14092, .12943, .00613, .00005,
2788 + .00000, .00267, .00406,
2789 + .41693, .13464, .11711, .00583, .00012,
2790 + .00000, .00256, .00382,
2791 + .40232, .12945, .10749, .00556, .00015,
2792 + .00000, .00247, .00364,
2793 + .38879, .12466, .09907, .00533, .00018,
2794 + .00000, .00237, .00346,
2795 + .37498, .11979, .09091, .00510, .00021,
2796 + .00000, .00226, .00329 /
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 + .36336, .11573, .08440, .00490, .00023,
2799 + .00000, .00218, .00315,
2800 + .35254, .11196, .07862, .00470, .00025,
2801 + .00000, .00210, .00302,
2802 + .34419, .10907, .07436, .00455, .00026,
2803 + .00000, .00205, .00292,
2804 + .32711, .10319, .06607, .00427, .00028,
2805 + .00000, .00193, .00271,
2806 + .31317, .09841, .05972, .00404, .00029,
2807 + .00002, .00183, .00255,
2808 + .29841, .09338, .05339, .00380, .00030,
2809 + .00006, .00173, .00239,
2810 + .28382, .08845, .04763, .00359, .00031,
2811 + .00009, .00163, .00221,
2812 + .27121, .08420, .04303, .00338, .00031,
2813 + .00010, .00154, .00208 /
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 + .25910, .08014, .03893, .00319, .00031,
2816 + .00012, .00145, .00195,
2817 + .24951, .07694, .03588, .00304, .00031,
2818 + .00013, .00138, .00185,
2819 + .23839, .07325, .03254, .00285, .00030,
2820 + .00014, .00130, .00173,
2821 + .22897, .07013, .02992, .00271, .00030,
2822 + .00014, .00124, .00164,
2823 + .22073, .06741, .02774, .00258, .00030,
2824 + .00015, .00119, .00157,
2825 + .21067, .06411, .02525, .00244, .00029,
2826 + .00015, .00112, .00147,
2827 + .20167, .06118, .02316, .00231, .00028,
2828 + .00015, .00106, .00139,
2829 + .19364, .05857, .02138, .00220, .00028,
2830 + .00016, .00101, .00131 /
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 + .18593, .05607, .01979, .00208, .00027,
2833 + .00016, .00096, .00124,
2834 + .17870, .05375, .01836, .00198, .00026,
2835 + .00016, .00091, .00118,
2836 + .17215, .05165, .01713, .00189, .00026,
2837 + .00016, .00087, .00112,
2838 + .16619, .04975, .01606, .00181, .00025,
2839 + .00016, .00083, .00106,
2840 + .16043, .04792, .01507, .00174, .00025,
2841 + .00015, .00079, .00100,
2842 + .15498, .04618, .01417, .00166, .00024,
2843 + .00015, .00076, .00096,
2844 + .14999, .04459, .01338, .00159, .00023,
2845 + .00015, .00074, .00092,
2846 + .14542, .04314, .01268, .00152, .00023,
2847 + .00015, .00071, .00088 /
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 + .14096, .04174, .01202, .00146, .00022,
2850 + .00015, .00069, .00084,
2851 + .13669, .04040, .01141, .00141, .00022,
2852 + .00014, .00066, .00080,
2853 + .13273, .03915, .01087, .00136, .00021,
2854 + .00014, .00063, .00077,
2855 + .12909, .03801, .01038, .00132, .00021,
2856 + .00014, .00061, .00074,
2857 + .12551, .03690, .00991, .00128, .00020,
2858 + .00014, .00058, .00072 /
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 + .45245, .14400, .14068, .00543, .00000,
2861 + .00000, .00226, .00322,
2862 + .43473, .13780, .12791, .00514, .00000,
2863 + .00000, .00215, .00307,
2864 + .40991, .12919, .11115, .00477, .00001,
2865 + .00000, .00201, .00281,
2866 + .39288, .12334, .10037, .00454, .00003,
2867 + .00000, .00192, .00263,
2868 + .37588, .11752, .09023, .00430, .00008,
2869 + .00000, .00182, .00247,
2870 + .36187, .11271, .08236, .00407, .00010,
2871 + .00000, .00174, .00236,
2872 + .34888, .10831, .07553, .00388, .00012,
2873 + .00000, .00166, .00225,
2874 + .33564, .10385, .06897, .00370, .00014,
2875 + .00000, .00159, .00213 /
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 + .32455, .10011, .06378, .00354, .00015,
2878 + .00000, .00154, .00203,
2879 + .31422, .09665, .05919, .00340, .00016,
2880 + .00000, .00149, .00195,
2881 + .30625, .09400, .05582, .00330, .00017,
2882 + .00000, .00144, .00189,
2883 + .29008, .08864, .04931, .00306, .00018,
2884 + .00000, .00135, .00176,
2885 + .27695, .08431, .04437, .00287, .00019,
2886 + .00002, .00127, .00164,
2887 + .26307, .07976, .03949, .00269, .00020,
2888 + .00004, .00120, .00153,
2889 + .24942, .07531, .03508, .00251, .00020,
2890 + .00006, .00113, .00143,
2891 + .23761, .07150, .03159, .00238, .00020,
2892 + .00007, .00106, .00133 /
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 + .22635, .06787, .02848, .00224, .00020,
2895 + .00008, .00100, .00124,
2896 + .21749, .06500, .02617, .00212, .00020,
2897 + .00008, .00095, .00118,
2898 + .20726, .06171, .02368, .00196, .00020,
2899 + .00009, .00089, .00111,
2900 + .19857, .05894, .02173, .00186, .00020,
2901 + .00009, .00085, .00105,
2902 + .19098, .05653, .02010, .00177, .00019,
2903 + .00010, .00081, .00100,
2904 + .18178, .05364, .01825, .00166, .00019,
2905 + .00010, .00076, .00092,
2906 + .17355, .05105, .01671, .00157, .00018,
2907 + .00010, .00073, .00086,
2908 + .16621, .04876, .01541, .00150, .00018,
2909 + .00010, .00070, .00082 /
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 + .15921, .04658, .01423, .00142, .00018,
2912 + .00010, .00066, .00078,
2913 + .15267, .04455, .01319, .00134, .00017,
2914 + .00010, .00063, .00074,
2915 + .14676, .04270, .01229, .00127, .00017,
2916 + .00010, .00059, .00070,
2917 + .14139, .04105, .01151, .00122, .00016,
2918 + .00010, .00056, .00066,
2919 + .13622, .03947, .01079, .00116, .00016,
2920 + .00010, .00053, .00063,
2921 + .13131, .03796, .01013, .00111, .00015,
2922 + .00010, .00051, .00060,
2923 + .12684, .03659, .00956, .00106, .00015,
2924 + .00010, .00049, .00058,
2925 + .12276, .03534, .00905, .00102, .00015,
2926 + .00010, .00048, .00056 /
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 + .11878, .03413, .00857, .00098, .00014,
2929 + .00010, .00046, .00053,
2930 + .11499, .03298, .00813, .00094, .00014,
2931 + .00009, .00045, .00050,
2932 + .11149, .03192, .00774, .00090, .00014,
2933 + .00009, .00042, .00048,
2934 + .10828, .03095, .00739, .00086, .00013,
2935 + .00009, .00041, .00046,
2936 + .10512, .02999, .00705, .00084, .00013,
2937 + .00009, .00039, .00044 /
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 + .40867, .12593, .10912, .00400, .00000,
2940 + .00000, .00158, .00206,
2941 + .39160, .12018, .09854, .00375, .00000,
2942 + .00000, .00151, .00196,
2943 + .36777, .11220, .08482, .00344, .00000,
2944 + .00000, .00140, .00182,
2945 + .35149, .10682, .07611, .00325, .00002,
2946 + .00000, .00133, .00171,
2947 + .33531, .10150, .06801, .00306, .00005,
2948 + .00000, .00127, .00159,
2949 + .32196, .09712, .06177, .00288, .00007,
2950 + .00000, .00123, .00151,
2951 + .30967, .09311, .05640, .00273, .00008,
2952 + .00000, .00118, .00144,
2953 + .29718, .08905, .05127, .00259, .00009,
2954 + .00000, .00112, .00138 /
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 + .28673, .08567, .04724, .00247, .00010,
2957 + .00000, .00108, .00130,
2958 + .27703, .08255, .04370, .00236, .00011,
2959 + .00000, .00104, .00124,
2960 + .26959, .08017, .04111, .00227, .00011,
2961 + .00000, .00100, .00120,
2962 + .25447, .07534, .03614, .00212, .00012,
2963 + .00000, .00093, .00112,
2964 + .24224, .07145, .03239, .00198, .00012,
2965 + .00001, .00089, .00106,
2966 + .22942, .06737, .02872, .00182, .00013,
2967 + .00003, .00085, .00099,
2968 + .21680, .06342, .02541, .00169, .00013,
2969 + .00004, .00078, .00091,
2970 + .20595, .06004, .02282, .00161, .00013,
2971 + .00004, .00074, .00083 /
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 + .19561, .05683, .02052, .00151, .00013,
2974 + .00005, .00070, .00078,
2975 + .18748, .05431, .01883, .00143, .00013,
2976 + .00006, .00066, .00075,
2977 + .17811, .05141, .01700, .00132, .00013,
2978 + .00006, .00062, .00071,
2979 + .17022, .04899, .01557, .00125, .00013,
2980 + .00006, .00059, .00067,
2981 + .16335, .04688, .01438, .00119, .00012,
2982 + .00006, .00057, .00064,
2983 + .15503, .04436, .01304, .00111, .00012,
2984 + .00007, .00053, .00059,
2985 + .14762, .04212, .01192, .00105, .00012,
2986 + .00007, .00050, .00055,
2987 + .14104, .04014, .01098, .00099, .00011,
2988 + .00007, .00047, .00051 /
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 + .13480, .03824, .01013, .00092, .00011,
2991 + .00007, .00044, .00049,
2992 + .12898, .03648, .00937, .00086, .00011,
2993 + .00007, .00042, .00047,
2994 + .12371, .03490, .00872, .00082, .00011,
2995 + .00007, .00040, .00045,
2996 + .11893, .03348, .00817, .00078, .00010,
2997 + .00007, .00038, .00042,
2998 + .11434, .03213, .00765, .00075, .00010,
2999 + .00007, .00037, .00040,
3000 + .11000, .03085, .00718, .00072, .00010,
3001 + .00006, .00035, .00037,
3002 + .10606, .02968, .00677, .00068, .00010,
3003 + .00006, .00033, .00035,
3004 + .10246, .02862, .00641, .00065, .00009,
3005 + .00006, .00032, .00033 /
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 + .09897, .02758, .00606, .00061, .00009,
3008 + .00006, .00030, .00033,
3009 + .09565, .02661, .00575, .00058, .00009,
3010 + .00006, .00029, .00032,
3011 + .09257, .02571, .00546, .00057, .00009,
3012 + .00006, .00028, .00030,
3013 + .08976, .02489, .00521, .00056, .00008,
3014 + .00006, .00028, .00028,
3015 + .08701, .02408, .00497, .00053, .00008,
3016 + .00006, .00027, .00028 /
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 + .36506, .10907, .08271, .00298, .00000,
3019 + .00000, .00105, .00124,
3020 + .34884, .10383, .07425, .00280, .00000,
3021 + .00000, .00098, .00119,
3022 + .32633, .09659, .06341, .00255, .00000,
3023 + .00000, .00091, .00109,
3024 + .31103, .09170, .05662, .00240, .00001,
3025 + .00000, .00087, .00102,
3026 + .29585, .08690, .05033, .00225, .00003,
3027 + .00000, .00083, .00096,
3028 + .28337, .08295, .04553, .00212, .00004,
3029 + .00000, .00078, .00090,
3030 + .27189, .07934, .04142, .00202, .00005,
3031 + .00000, .00074, .00085,
3032 + .26027, .07571, .03751, .00191, .00006,
3033 + .00000, .00070, .00081 /
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 + .25060, .07270, .03446, .00181, .00006,
3036 + .00000, .00068, .00077,
3037 + .24164, .06993, .03179, .00173, .00007,
3038 + .00000, .00065, .00073,
3039 + .23477, .06781, .02986, .00167, .00007,
3040 + .00000, .00063, .00069,
3041 + .22087, .06353, .02616, .00155, .00008,
3042 + .00000, .00058, .00064,
3043 + .20966, .06010, .02339, .00144, .00008,
3044 + .00001, .00054, .00061,
3045 + .19792, .05651, .02067, .00135, .00008,
3046 + .00002, .00050, .00055,
3047 + .18645, .05303, .01825, .00125, .00008,
3048 + .00002, .00048, .00052,
3049 + .17662, .05005, .01636, .00117, .00008,
3050 + .00003, .00045, .00049 /
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 + .16729, .04725, .01468, .00108, .00008,
3053 + .00003, .00042, .00045,
3054 + .15998, .04507, .01345, .00102, .00008,
3055 + .00004, .00039, .00043,
3056 + .15158, .04254, .01213, .00093, .00008,
3057 + .00004, .00037, .00040,
3058 + .14452, .04044, .01110, .00088, .00008,
3059 + .00004, .00034, .00038,
3060 + .13837, .03863, .01024, .00084, .00008,
3061 + .00004, .00032, .00036,
3062 + .13093, .03646, .00928, .00081, .00008,
3063 + .00004, .00030, .00032,
3064 + .12437, .03453, .00847, .00075, .00007,
3065 + .00004, .00029, .00031,
3066 + .11857, .03282, .00780, .00070, .00007,
3067 + .00004, .00027, .00030 /
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 + .11305, .03120, .00719, .00066, .00007,
3070 + .00004, .00026, .00027,
3071 + .10790, .02971, .00665, .00062, .00007,
3072 + .00004, .00025, .00025,
3073 + .10325, .02837, .00619, .00060, .00007,
3074 + .00004, .00023, .00024,
3075 + .09906, .02717, .00579, .00057, .00007,
3076 + .00004, .00022, .00023,
3077 + .09506, .02602, .00542, .00055, .00006,
3078 + .00004, .00020, .00022,
3079 + .09128, .02493, .00508, .00052, .00006,
3080 + .00004, .00019, .00020,
3081 + .08785, .02394, .00479, .00049, .00006,
3082 + .00004, .00019, .00020,
3083 + .08472, .02305, .00453, .00047, .00006,
3084 + .00004, .00018, .00018 /
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 + .08168, .02218, .00428, .00046, .00006,
3087 + .00004, .00017, .00017,
3088 + .07880, .02136, .00406, .00044, .00006,
3089 + .00004, .00016, .00017,
3090 + .07616, .02061, .00386, .00042, .00005,
3091 + .00004, .00015, .00016,
3092 + .07374, .01992, .00368, .00040, .00005,
3093 + .00004, .00015, .00016,
3094 + .07137, .01925, .00350, .00038, .00005,
3095 + .00004, .00014, .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 + .32219, .09310, .06090, .00199, .00000,
3098 + .00000, .00075, .00080,
3099 + .30700, .08840, .05436, .00186, .00000,
3100 + .00000, .00071, .00075,
3101 + .28601, .08193, .04609, .00169, .00000,
3102 + .00000, .00064, .00069,
3103 + .27182, .07757, .04096, .00158, .00001,
3104 + .00000, .00060, .00065,
3105 + .25778, .07328, .03625, .00148, .00002,
3106 + .00000, .00057, .00061,
3107 + .24627, .06979, .03268, .00139, .00003,
3108 + .00000, .00054, .00058,
3109 + .23572, .06663, .02963, .00132, .00003,
3110 + .00000, .00051, .00054,
3111 + .22507, .06344, .02675, .00125, .00004,
3112 + .00000, .00048, .00050 /
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 + .21626, .06079, .02452, .00118, .00004,
3115 + .00000, .00046, .00047,
3116 + .20810, .05834, .02258, .00112, .00004,
3117 + .00000, .00044, .00045,
3118 + .20184, .05647, .02116, .00108, .00004,
3119 + .00000, .00042, .00044,
3120 + .18923, .05273, .01848, .00099, .00005,
3121 + .00000, .00039, .00042,
3122 + .17909, .04974, .01648, .00093, .00005,
3123 + .00000, .00037, .00038,
3124 + .16850, .04663, .01454, .00089, .00005,
3125 + .00001, .00035, .00034,
3126 + .15822, .04362, .01282, .00082, .00005,
3127 + .00002, .00032, .00032,
3128 + .14943, .04107, .01147, .00077, .00005,
3129 + .00002, .00029, .00030 /
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 + .14113, .03866, .01029, .00070, .00005,
3132 + .00002, .00027, .00027,
3133 + .13465, .03679, .00942, .00065, .00005,
3134 + .00002, .00026, .00025,
3135 + .12720, .03464, .00848, .00060, .00005,
3136 + .00002, .00023, .00025,
3137 + .12096, .03285, .00775, .00056, .00005,
3138 + .00003, .00022, .00024,
3139 + .11556, .03130, .00715, .00053, .00005,
3140 + .00003, .00021, .00022,
3141 + .10904, .02945, .00647, .00051, .00005,
3142 + .00003, .00020, .00019,
3143 + .10329, .02782, .00591, .00048, .00005,
3144 + .00003, .00018, .00018,
3145 + .09822, .02639, .00543, .00045, .00004,
3146 + .00003, .00017, .00017 /
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 + .09339, .02503, .00501, .00043, .00004,
3149 + .00003, .00016, .00016,
3150 + .08894, .02377, .00463, .00040, .00004,
3151 + .00003, .00016, .00015,
3152 + .08495, .02265, .00430, .00038, .00004,
3153 + .00003, .00015, .00014,
3154 + .08134, .02164, .00403, .00036, .00004,
3155 + .00003, .00014, .00013,
3156 + .07789, .02068, .00377, .00034, .00004,
3157 + .00003, .00013, .00012,
3158 + .07463, .01978, .00353, .00032, .00004,
3159 + .00003, .00012, .00012,
3160 + .07168, .01897, .00332, .00030, .00004,
3161 + .00003, .00012, .00011,
3162 + .06900, .01823, .00314, .00029, .00004,
3163 + .00003, .00011, .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 + .06641, .01751, .00297, .00027, .00003,
3166 + .00003, .00010, .00011,
3167 + .06396, .01683, .00281, .00026, .00003,
3168 + .00002, .00010, .00010,
3169 + .06170, .01621, .00267, .00025, .00003,
3170 + .00002, .00009, .00010,
3171 + .05965, .01565, .00255, .00024, .00003,
3172 + .00002, .00009, .00009,
3173 + .05764, .01509, .00243, .00023, .00003,
3174 + .00002, .00009, .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 + .28081, .07855, .04359, .00130, .00000,
3177 + .00000, .00051, .00050,
3178 + .26682, .07438, .03874, .00123, .00000,
3179 + .00000, .00048, .00047,
3180 + .24755, .06867, .03264, .00112, .00000,
3181 + .00000, .00044, .00041,
3182 + .23457, .06484, .02888, .00103, .00001,
3183 + .00000, .00041, .00039,
3184 + .22178, .06108, .02546, .00095, .00001,
3185 + .00000, .00038, .00037,
3186 + .21132, .05801, .02288, .00090, .00002,
3187 + .00000, .00035, .00035,
3188 + .20178, .05524, .02070, .00085, .00002,
3189 + .00000, .00033, .00034,
3190 + .19217, .05245, .01865, .00079, .00002,
3191 + .00000, .00032, .00032 /
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 + .18421, .05016, .01706, .00075, .00002,
3194 + .00000, .00030, .00030,
3195 + .17687, .04806, .01567, .00071, .00002,
3196 + .00000, .00029, .00028,
3197 + .17127, .04645, .01467, .00069, .00003,
3198 + .00000, .00028, .00026,
3199 + .16000, .04322, .01279, .00064, .00003,
3200 + .00000, .00026, .00024,
3201 + .15099, .04064, .01139, .00060, .00003,
3202 + .00000, .00024, .00023,
3203 + .14161, .03798, .01004, .00055, .00003,
3204 + .00001, .00022, .00023,
3205 + .13249, .03542, .00884, .00052, .00003,
3206 + .00001, .00021, .00019,
3207 + .12480, .03324, .00791, .00045, .00003,
3208 + .00001, .00019, .00019 /
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 + .11751, .03119, .00709, .00041, .00003,
3211 + .00001, .00017, .00018,
3212 + .11182, .02961, .00648, .00038, .00003,
3213 + .00001, .00016, .00018,
3214 + .10529, .02781, .00584, .00036, .00003,
3215 + .00002, .00016, .00015,
3216 + .09988, .02630, .00533, .00034, .00003,
3217 + .00002, .00015, .00014,
3218 + .09520, .02500, .00492, .00032, .00003,
3219 + .00002, .00014, .00013,
3220 + .08958, .02346, .00445, .00030, .00003,
3221 + .00002, .00013, .00012,
3222 + .08462, .02210, .00406, .00028, .00003,
3223 + .00002, .00012, .00011,
3224 + .08026, .02091, .00373, .00027, .00003,
3225 + .00002, .00012, .00010 /
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 + .07613, .01978, .00344, .00025, .00003,
3228 + .00002, .00011, .00010,
3229 + .07232, .01874, .00318, .00023, .00003,
3230 + .00002, .00010, .00009,
3231 + .06889, .01782, .00296, .00022, .00002,
3232 + .00002, .00009, .00009,
3233 + .06582, .01699, .00276, .00022, .00002,
3234 + .00002, .00009, .00008,
3235 + .06289, .01620, .00258, .00021, .00002,
3236 + .00002, .00009, .00007,
3237 + .06014, .01546, .00242, .00020, .00002,
3238 + .00002, .00008, .00007,
3239 + .05766, .01480, .00228, .00018, .00002,
3240 + .00002, .00008, .00007,
3241 + .05540, .01419, .00215, .00017, .00002,
3242 + .00002, .00007, .00006 /
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 + .05321, .01361, .00203, .00017, .00002,
3245 + .00002, .00007, .00006,
3246 + .05115, .01306, .00192, .00016, .00002,
3247 + .00002, .00006, .00005,
3248 + .04926, .01256, .00183, .00015, .00002,
3249 + .00002, .00006, .00005,
3250 + .04754, .01211, .00174, .00015, .00002,
3251 + .00001, .00006, .00005,
3252 + .04586, .01166, .00166, .00014, .00002,
3253 + .00001, .00005, .00005 /
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 + .24163, .06554, .03039, .00090, .00000,
3256 + .00000, .00030, .00029,
3257 + .22895, .06189, .02689, .00083, .00000,
3258 + .00000, .00028, .00026,
3259 + .21155, .05689, .02255, .00075, .00000,
3260 + .00000, .00025, .00023,
3261 + .19986, .05356, .01990, .00069, .00000,
3262 + .00000, .00023, .00022,
3263 + .18838, .05031, .01749, .00065, .00001,
3264 + .00000, .00022, .00021,
3265 + .17900, .04767, .01570, .00062, .00001,
3266 + .00000, .00020, .00019,
3267 + .17050, .04529, .01418, .00058, .00001,
3268 + .00000, .00019, .00018,
3269 + .16198, .04291, .01275, .00054, .00001,
3270 + .00000, .00019, .00016 /
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 + .15491, .04094, .01165, .00052, .00001,
3273 + .00000, .00018, .00015,
3274 + .14841, .03913, .01069, .00049, .00001,
3275 + .00000, .00017, .00015,
3276 + .14349, .03775, .01001, .00047, .00002,
3277 + .00000, .00015, .00015,
3278 + .13358, .03501, .00872, .00043, .00002,
3279 + .00000, .00014, .00014,
3280 + .12567, .03284, .00776, .00040, .00002,
3281 + .00000, .00013, .00013,
3282 + .11748, .03059, .00684, .00035, .00002,
3283 + .00000, .00012, .00012,
3284 + .10955, .02843, .00602, .00034, .00002,
3285 + .00001, .00012, .00011,
3286 + .10287, .02660, .00538, .00030, .00002,
3287 + .00001, .00011, .00010 /
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 + .09657, .02489, .00483, .00028, .00002,
3290 + .00001, .00010, .00009,
3291 + .09166, .02357, .00442, .00027, .00002,
3292 + .00001, .00009, .00009,
3293 + .08607, .02207, .00398, .00024, .00002,
3294 + .00001, .00008, .00008,
3295 + .08142, .02083, .00364, .00023, .00002,
3296 + .00001, .00008, .00008,
3297 + .07742, .01976, .00336, .00023, .00002,
3298 + .00001, .00007, .00007,
3299 + .07263, .01848, .00304, .00020, .00002,
3300 + .00001, .00007, .00006,
3301 + .06844, .01737, .00277, .00018, .00002,
3302 + .00001, .00006, .00006,
3303 + .06475, .01639, .00255, .00016, .00002,
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 + .06125, .01547, .00235, .00017, .00002,
3307 + .00001, .00005, .00005,
3308 + .05802, .01463, .00217, .00016, .00002,
3309 + .00001, .00005, .00004,
3310 + .05515, .01388, .00201, .00016, .00001,
3311 + .00001, .00005, .00004,
3312 + .05258, .01320, .00188, .00015, .00001,
3313 + .00001, .00005, .00004,
3314 + .05014, .01256, .00176, .00014, .00001,
3315 + .00001, .00004, .00004,
3316 + .04785, .01196, .00165, .00013, .00001,
3317 + .00001, .00004, .00003,
3318 + .04579, .01142, .00155, .00012, .00001,
3319 + .00001, .00004, .00003,
3320 + .04391, .01094, .00146, .00011, .00001,
3321 + .00001, .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 + .04211, .01047, .00138, .00010, .00001,
3324 + .00001, .00004, .00003,
3325 + .04041, .01003, .00131, .00010, .00001,
3326 + .00001, .00003, .00003,
3327 + .03885, .00963, .00124, .00010, .00001,
3328 + .00001, .00003, .00003,
3329 + .03743, .00927, .00118, .00009, .00001,
3330 + .00001, .00003, .00003,
3331 + .03605, .00891, .00112, .00009, .00001,
3332 + .00001, .00003, .00003 /
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 + .20472, .05367, .02041, .00052, .00000,
3335 + .00000, .00022, .00020,
3336 + .19339, .05053, .01802, .00048, .00000,
3337 + .00000, .00021, .00018,
3338 + .17791, .04629, .01505, .00043, .00000,
3339 + .00000, .00018, .00015,
3340 + .16757, .04345, .01325, .00040, .00000,
3341 + .00000, .00017, .00014,
3342 + .15745, .04068, .01163, .00036, .00000,
3343 + .00000, .00016, .00013,
3344 + .14923, .03845, .01043, .00034, .00001,
3345 + .00000, .00014, .00012,
3346 + .14178, .03643, .00941, .00032, .00001,
3347 + .00000, .00014, .00011,
3348 + .13432, .03442, .00846, .00030, .00001,
3349 + .00000, .00014, .00010 /
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 + .12816, .03277, .00773, .00028, .00001,
3352 + .00000, .00013, .00009,
3353 + .12251, .03125, .00709, .00027, .00001,
3354 + .00000, .00012, .00009,
3355 + .11821, .03011, .00664, .00026, .00001,
3356 + .00000, .00011, .00009,
3357 + .10965, .02782, .00578, .00023, .00001,
3358 + .00000, .00009, .00009,
3359 + .10284, .02601, .00515, .00021, .00001,
3360 + .00000, .00009, .00008,
3361 + .09579, .02415, .00454, .00020, .00001,
3362 + .00000, .00008, .00007,
3363 + .08902, .02236, .00400, .00019, .00001,
3364 + .00000, .00008, .00006,
3365 + .08331, .02086, .00358, .00016, .00001,
3366 + .00000, .00007, .00006 /
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 + .07795, .01947, .00321, .00015, .00001,
3369 + .00000, .00007, .00005,
3370 + .07380, .01839, .00294, .00015, .00001,
3371 + .00001, .00007, .00005,
3372 + .06910, .01716, .00265, .00013, .00001,
3373 + .00001, .00006, .00005,
3374 + .06519, .01615, .00243, .00012, .00001,
3375 + .00001, .00005, .00005,
3376 + .06182, .01528, .00224, .00012, .00001,
3377 + .00001, .00005, .00005,
3378 + .05780, .01425, .00203, .00012, .00001,
3379 + .00001, .00005, .00004,
3380 + .05429, .01335, .00185, .00011, .00001,
3381 + .00001, .00004, .00004,
3382 + .05123, .01257, .00170, .00010, .00001,
3383 + .00001, .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 + .04835, .01183, .00157, .00009, .00001,
3386 + .00001, .00004, .00003,
3387 + .04570, .01116, .00145, .00008, .00001,
3388 + .00001, .00003, .00003,
3389 + .04333, .01056, .00134, .00008, .00001,
3390 + .00001, .00003, .00003,
3391 + .04122, .01003, .00125, .00007, .00001,
3392 + .00001, .00003, .00003,
3393 + .03922, .00952, .00117, .00006, .00001,
3394 + .00001, .00003, .00002,
3395 + .03734, .00905, .00110, .00006, .00001,
3396 + .00001, .00003, .00002,
3397 + .03565, .00862, .00103, .00006, .00001,
3398 + .00001, .00003, .00003,
3399 + .03412, .00824, .00097, .00005, .00001,
3400 + .00001, .00002, .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 + .03265, .00787, .00092, .00005, .00001,
3403 + .00001, .00002, .00002,
3404 + .03127, .00753, .00087, .00005, .00001,
3405 + .00001, .00002, .00002,
3406 + .03002, .00721, .00082, .00005, .00001,
3407 + .00001, .00002, .00002,
3408 + .02888, .00693, .00078, .00004, .00001,
3409 + .00001, .00002, .00001,
3410 + .02776, .00665, .00074, .00004, .00001,
3411 + .00001, .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 + .14007, .03440, .00832, .00020, .00000,
3414 + .00000, .00007, .00005,
3415 + .13148, .03220, .00733, .00018, .00000,
3416 + .00000, .00006, .00005,
3417 + .11985, .02922, .00612, .00016, .00000,
3418 + .00000, .00005, .00005,
3419 + .11215, .02726, .00539, .00015, .00000,
3420 + .00000, .00005, .00005,
3421 + .10468, .02536, .00474, .00013, .00000,
3422 + .00000, .00004, .00004,
3423 + .09866, .02383, .00425, .00012, .00000,
3424 + .00000, .00004, .00004,
3425 + .09322, .02246, .00385, .00011, .00000,
3426 + .00000, .00004, .00004,
3427 + .08780, .02110, .00347, .00011, .00000,
3428 + .00000, .00004, .00003 /
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 + .08336, .01999, .00318, .00010, .00000,
3431 + .00000, .00003, .00003,
3432 + .07931, .01898, .00292, .00010, .00000,
3433 + .00000, .00003, .00003,
3434 + .07625, .01822, .00274, .00009, .00000,
3435 + .00000, .00003, .00003,
3436 + .07018, .01671, .00240, .00008, .00000,
3437 + .00000, .00003, .00003,
3438 + .06539, .01552, .00214, .00007, .00000,
3439 + .00000, .00003, .00003,
3440 + .06049, .01431, .00190, .00006, .00000,
3441 + .00000, .00002, .00002,
3442 + .05579, .01315, .00168, .00006, .00000,
3443 + .00000, .00002, .00002,
3444 + .05187, .01219, .00151, .00005, .00000,
3445 + .00000, .00002, .00002 /
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 + .04821, .01130, .00136, .00004, .00000,
3448 + .00000, .00002, .00002,
3449 + .04539, .01061, .00125, .00004, .00000,
3450 + .00000, .00002, .00002,
3451 + .04222, .00984, .00113, .00004, .00000,
3452 + .00000, .00002, .00002,
3453 + .03960, .00921, .00103, .00004, .00000,
3454 + .00000, .00002, .00002,
3455 + .03736, .00867, .00095, .00004, .00000,
3456 + .00000, .00002, .00001,
3457 + .03472, .00804, .00086, .00003, .00000,
3458 + .00000, .00002, .00001,
3459 + .03242, .00749, .00079, .00003, .00000,
3460 + .00000, .00001, .00001,
3461 + .03041, .00701, .00072, .00003, .00000,
3462 + .00000, .00001, .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 + .02853, .00656, .00066, .00003, .00000,
3465 + .00000, .00001, .00001,
3466 + .02683, .00615, .00061, .00002, .00000,
3467 + .00000, .00001, .00001,
3468 + .02532, .00580, .00057, .00002, .00000,
3469 + .00000, .00001, .00001,
3470 + .02397, .00548, .00053, .00001, .00000,
3471 + .00000, .00001, .00001,
3472 + .02269, .00518, .00050, .00002, .00000,
3473 + .00000, .00001, .00001,
3474 + .02151, .00490, .00046, .00002, .00000,
3475 + .00000, .00001, .00001,
3476 + .02044, .00465, .00043, .00002, .00000,
3477 + .00000, .00001, .00001,
3478 + .01948, .00442, .00041, .00002, .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 + .01857, .00421, .00038, .00002, .00000,
3482 + .00000, .00001, .00001,
3483 + .01771, .00401, .00036, .00002, .00000,
3484 + .00000, .00001, .00001,
3485 + .01693, .00383, .00034, .00001, .00000,
3486 + .00000, .00001, .00001,
3487 + .01623, .00366, .00033, .00001, .00000,
3488 + .00000, .00001, .00001,
3489 + .01555, .00350, .00031, .00001, .00000,
3490 + .00000, .00001, .00001 /
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 + .08837, .02025, .00285, .00006, .00000,
3493 + .00000, .00002, .00001,
3494 + .08240, .01883, .00253, .00006, .00000,
3495 + .00000, .00001, .00002,
3496 + .07437, .01693, .00214, .00005, .00000,
3497 + .00000, .00001, .00001,
3498 + .06910, .01568, .00191, .00005, .00000,
3499 + .00000, .00001, .00001,
3500 + .06403, .01449, .00169, .00005, .00000,
3501 + .00000, .00001, .00001,
3502 + .05997, .01353, .00154, .00004, .00000,
3503 + .00000, .00001, .00001,
3504 + .05633, .01268, .00140, .00004, .00000,
3505 + .00000, .00001, .00001,
3506 + .05274, .01184, .00127, .00004, .00000,
3507 + .00000, .00001, .00000 /
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 + .04982, .01116, .00117, .00003, .00000,
3510 + .00000, .00001, .00000,
3511 + .04717, .01054, .00109, .00002, .00000,
3512 + .00000, .00001, .00000,
3513 + .04517, .01008, .00102, .00002, .00000,
3514 + .00000, .00001, .00001,
3515 + .04121, .00917, .00090, .00002, .00000,
3516 + .00000, .00001, .00001,
3517 + .03812, .00846, .00081, .00002, .00000,
3518 + .00000, .00001, .00001,
3519 + .03498, .00774, .00073, .00002, .00000,
3520 + .00000, .00001, .00001,
3521 + .03202, .00706, .00065, .00001, .00000,
3522 + .00000, .00000, .00000,
3523 + .02955, .00650, .00058, .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 + .02726, .00598, .00053, .00002, .00000,
3527 + .00000, .00000, .00000,
3528 + .02551, .00558, .00048, .00002, .00000,
3529 + .00000, .00001, .00000,
3530 + .02356, .00514, .00044, .00002, .00000,
3531 + .00000, .00000, .00000,
3532 + .02196, .00478, .00040, .00001, .00000,
3533 + .00000, .00000, .00000,
3534 + .02061, .00448, .00037, .00001, .00000,
3535 + .00000, .00000, .00000,
3536 + .01902, .00412, .00034, .00001, .00000,
3537 + .00000, .00000, .00000,
3538 + .01764, .00381, .00031, .00001, .00000,
3539 + .00000, .00000, .00000,
3540 + .01645, .00355, .00028, .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 + .01534, .00330, .00026, .00001, .00000,
3544 + .00000, .00000, .00000,
3545 + .01433, .00308, .00024, .00001, .00000,
3546 + .00000, .00000, .00000,
3547 + .01345, .00289, .00022, .00001, .00000,
3548 + .00000, .00000, .00000,
3549 + .01267, .00271, .00020, .00000, .00000,
3550 + .00000, .00000, .00000,
3551 + .01193, .00255, .00019, .00001, .00000,
3552 + .00000, .00000, .00000,
3553 + .01125, .00240, .00018, .00001, .00000,
3554 + .00000, .00000, .00000,
3555 + .01065, .00227, .00017, .00001, .00000,
3556 + .00000, .00000, .00000,
3557 + .01011, .00215, .00016, .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 + .00959, .00204, .00015, .00000, .00000,
3561 + .00000, .00000, .00000,
3562 + .00911, .00193, .00014, .00000, .00000,
3563 + .00000, .00000, .00000,
3564 + .00867, .00184, .00013, .00000, .00000,
3565 + .00000, .00000, .00000,
3566 + .00828, .00175, .00012, .00000, .00000,
3567 + .00000, .00000, .00000,
3568 + .00790, .00167, .00012, .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 + .05011, .01065, .00079, .00002, .00000,
3572 + .00000, .00000, .00000,
3573 + .04637, .00983, .00072, .00003, .00000,
3574 + .00000, .00000, .00000,
3575 + .04139, .00874, .00063, .00002, .00000,
3576 + .00000, .00000, .00000,
3577 + .03816, .00804, .00058, .00002, .00000,
3578 + .00000, .00000, .00000,
3579 + .03508, .00737, .00052, .00002, .00000,
3580 + .00000, .00000, .00000,
3581 + .03264, .00684, .00048, .00001, .00000,
3582 + .00000, .00000, .00000,
3583 + .03046, .00637, .00045, .00001, .00000,
3584 + .00000, .00000, .00000,
3585 + .02831, .00590, .00041, .00001, .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 + .02658, .00553, .00038, .00001, .00000,
3589 + .00000, .00000, .00000,
3590 + .02502, .00520, .00036, .00001, .00000,
3591 + .00000, .00000, .00000,
3592 + .02385, .00495, .00034, .00001, .00000,
3593 + .00000, .00000, .00000,
3594 + .02156, .00446, .00030, .00001, .00000,
3595 + .00000, .00000, .00000,
3596 + .01978, .00408, .00028, .00001, .00000,
3597 + .00000, .00000, .00000,
3598 + .01800, .00370, .00025, .00001, .00000,
3599 + .00000, .00000, .00000,
3600 + .01632, .00334, .00022, .00001, .00000,
3601 + .00000, .00000, .00000,
3602 + .01494, .00305, .00020, .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 + .01368, .00279, .00018, .00000, .00000,
3606 + .00000, .00000, .00000,
3607 + .01272, .00259, .00017, .00000, .00000,
3608 + .00000, .00000, .00000,
3609 + .01165, .00236, .00015, .00000, .00000,
3610 + .00000, .00000, .00000,
3611 + .01079, .00218, .00014, .00000, .00000,
3612 + .00000, .00000, .00000,
3613 + .01006, .00203, .00013, .00000, .00000,
3614 + .00000, .00000, .00000,
3615 + .00920, .00186, .00011, .00000, .00000,
3616 + .00000, .00000, .00000,
3617 + .00847, .00171, .00010, .00000, .00000,
3618 + .00000, .00000, .00000,
3619 + .00785, .00158, .00010, .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 + .00727, .00146, .00009, .00000, .00000,
3623 + .00000, .00000, .00000,
3624 + .00675, .00135, .00008, .00000, .00000,
3625 + .00000, .00000, .00000,
3626 + .00629, .00126, .00007, .00000, .00000,
3627 + .00000, .00000, .00000,
3628 + .00589, .00118, .00007, .00000, .00000,
3629 + .00000, .00000, .00000,
3630 + .00552, .00110, .00006, .00000, .00000,
3631 + .00000, .00000, .00000,
3632 + .00518, .00103, .00006, .00000, .00000,
3633 + .00000, .00000, .00000,
3634 + .00487, .00097, .00006, .00000, .00000,
3635 + .00000, .00000, .00000,
3636 + .00460, .00091, .00005, .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 + .00434, .00086, .00005, .00000, .00000,
3640 + .00000, .00000, .00000,
3641 + .00410, .00081, .00005, .00000, .00000,
3642 + .00000, .00000, .00000,
3643 + .00389, .00077, .00004, .00000, .00000,
3644 + .00000, .00000, .00000,
3645 + .00370, .00073, .00004, .00000, .00000,
3646 + .00000, .00000, .00000,
3647 + .00351, .00069, .00004, .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 + .02434, .00474, .00016, -.00001, .00000,
3651 + .00000, .00000, .00000,
3652 + .02232, .00434, .00016, .00000, .00000,
3653 + .00000, .00000, .00000,
3654 + .01967, .00381, .00015, .00000, .00000,
3655 + .00000, .00000, .00000,
3656 + .01798, .00348, .00014, .00000, .00000,
3657 + .00000, .00000, .00000,
3658 + .01637, .00316, .00013, .00000, .00000,
3659 + .00000, .00000, .00000,
3660 + .01511, .00291, .00013, .00000, .00000,
3661 + .00000, .00000, .00000,
3662 + .01399, .00269, .00012, .00000, .00000,
3663 + .00000, .00000, .00000,
3664 + .01290, .00247, .00011, .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 + .01203, .00230, .00010, .00000, .00000,
3668 + .00000, .00000, .00000,
3669 + .01125, .00215, .00010, .00000, .00000,
3670 + .00000, .00000, .00000,
3671 + .01067, .00203, .00009, .00000, .00000,
3672 + .00000, .00000, .00000,
3673 + .00954, .00181, .00008, .00000, .00000,
3674 + .00000, .00000, .00000,
3675 + .00867, .00164, .00008, .00000, .00000,
3676 + .00000, .00000, .00000,
3677 + .00780, .00148, .00007, .00000, .00000,
3678 + .00000, .00000, .00000,
3679 + .00701, .00132, .00006, .00000, .00000,
3680 + .00000, .00000, .00000,
3681 + .00635, .00119, .00006, .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 + .00576, .00108, .00005, .00000, .00000,
3685 + .00000, .00000, .00000,
3686 + .00531, .00100, .00005, .00000, .00000,
3687 + .00000, .00000, .00000,
3688 + .00482, .00090, .00004, .00000, .00000,
3689 + .00000, .00000, .00000,
3690 + .00443, .00083, .00004, .00000, .00000,
3691 + .00000, .00000, .00000,
3692 + .00410, .00076, .00004, .00000, .00000,
3693 + .00000, .00000, .00000,
3694 + .00372, .00069, .00003, .00000, .00000,
3695 + .00000, .00000, .00000,
3696 + .00339, .00063, .00003, .00000, .00000,
3697 + .00000, .00000, .00000,
3698 + .00311, .00058, .00003, .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 + .00286, .00053, .00002, .00000, .00000,
3702 + .00000, .00000, .00000,
3703 + .00264, .00049, .00002, .00000, .00000,
3704 + .00000, .00000, .00000,
3705 + .00244, .00045, .00002, .00000, .00000,
3706 + .00000, .00000, .00000,
3707 + .00227, .00042, .00002, .00000, .00000,
3708 + .00000, .00000, .00000,
3709 + .00211, .00039, .00002, .00000, .00000,
3710 + .00000, .00000, .00000,
3711 + .00197, .00036, .00002, .00000, .00000,
3712 + .00000, .00000, .00000,
3713 + .00184, .00034, .00002, .00000, .00000,
3714 + .00000, .00000, .00000,
3715 + .00173, .00032, .00001, .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 + .00162, .00030, .00001, .00000, .00000,
3719 + .00000, .00000, .00000,
3720 + .00152, .00028, .00001, .00000, .00000,
3721 + .00000, .00000, .00000,
3722 + .00144, .00026, .00001, .00000, .00000,
3723 + .00000, .00000, .00000,
3724 + .00136, .00025, .00001, .00000, .00000,
3725 + .00000, .00000, .00000,
3726 + .00128, .00023, .00001, .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 + .00235, .00036, .00000, .00000, .00000,
3730 + .00000, .00000, .00000,
3731 + .00210, .00032, .00000, .00000, .00000,
3732 + .00000, .00000, .00000,
3733 + .00178, .00028, .00000, .00000, .00000,
3734 + .00000, .00000, .00000,
3735 + .00159, .00024, .00000, .00000, .00000,
3736 + .00000, .00000, .00000,
3737 + .00141, .00022, .00000, .00000, .00000,
3738 + .00000, .00000, .00000,
3739 + .00127, .00019, .00000, .00000, .00000,
3740 + .00000, .00000, .00000,
3741 + .00115, .00018, .00000, .00000, .00000,
3742 + .00000, .00000, .00000,
3743 + .00103, .00016, .00000, .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 + .00094, .00014, .00000, .00000, .00000,
3747 + .00000, .00000, .00000,
3748 + .00087, .00013, .00000, .00000, .00000,
3749 + .00000, .00000, .00000,
3750 + .00081, .00012, .00000, .00000, .00000,
3751 + .00000, .00000, .00000,
3752 + .00070, .00011, .00000, .00000, .00000,
3753 + .00000, .00000, .00000,
3754 + .00062, .00009, .00000, .00000, .00000,
3755 + .00000, .00000, .00000,
3756 + .00054, .00008, .00000, .00000, .00000,
3757 + .00000, .00000, .00000,
3758 + .00047, .00007, .00000, .00000, .00000,
3759 + .00000, .00000, .00000,
3760 + .00042, .00006, .00000, .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 + .00037, .00006, .00000, .00000, .00000,
3764 + .00000, .00000, .00000,
3765 + .00033, .00005, .00000, .00000, .00000,
3766 + .00000, .00000, .00000,
3767 + .00029, .00004, .00000, .00000, .00000,
3768 + .00000, .00000, .00000,
3769 + .00026, .00004, .00000, .00000, .00000,
3770 + .00000, .00000, .00000,
3771 + .00024, .00004, .00000, .00000, .00000,
3772 + .00000, .00000, .00000,
3773 + .00021, .00003, .00000, .00000, .00000,
3774 + .00000, .00000, .00000,
3775 + .00019, .00003, .00000, .00000, .00000,
3776 + .00000, .00000, .00000,
3777 + .00017, .00003, .00000, .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 + .00015, .00002, .00000, .00000, .00000,
3781 + .00000, .00000, .00000,
3782 + .00014, .00002, .00000, .00000, .00000,
3783 + .00000, .00000, .00000,
3784 + .00012, .00002, .00000, .00000, .00000,
3785 + .00000, .00000, .00000,
3786 + .00011, .00002, .00000, .00000, .00000,
3787 + .00000, .00000, .00000,
3788 + .00010, .00002, .00000, .00000, .00000,
3789 + .00000, .00000, .00000,
3790 + .00009, .00001, .00000, .00000, .00000,
3791 + .00000, .00000, .00000,
3792 + .00009, .00001, .00000, .00000, .00000,
3793 + .00000, .00000, .00000,
3794 + .00008, .00001, .00000, .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 + .00007, .00001, .00000, .00000, .00000,
3798 + .00000, .00000, .00000,
3799 + .00007, .00001, .00000, .00000, .00000,
3800 + .00000, .00000, .00000,
3801 + .00006, .00001, .00000, .00000, .00000,
3802 + .00000, .00000, .00000,
3803 + .00006, .00001, .00000, .00000, .00000,
3804 + .00000, .00000, .00000,
3805 + .00005, .00001, .00000, .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='cor04.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