2 subroutine sfmrs_99a2(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 + .00497, .00272, 1.10631, .87038, .00000,
17 + .00000, .46509, .88262,
18 + .00514, .00279, 2.37972, .90598, .00000,
19 + .00000, .50585, .91833,
20 + .00539, .00289, 4.88777, .98332, .00000,
21 + .00000, .59051, .99581,
22 + .00558, .00296, 7.23091, 1.05778, .04540,
23 + .00000, .67007, 1.07035,
24 + .00577, .00304, 10.05866, 1.15386, .15609,
25 + .00000, .77130, 1.16651,
26 + .00594, .00311, 12.97519, 1.25282, .26204,
27 + .00000, .87457, 1.26552,
28 + .00610, .00318, 16.24774, 1.36032, .37892,
29 + .00000, .98611, 1.37307,
30 + .00628, .00326, 20.26178, 1.48888, .52058,
31 + .00000, 1.11885, 1.50168 /
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 + .00643, .00332, 24.17125, 1.61488, .65315,
34 + .00000, 1.24839, 1.62770,
35 + .00657, .00339, 28.36697, 1.74862, .79427,
36 + .00000, 1.38549, 1.76147,
37 + .00669, .00344, 32.04142, 1.86307, .91742,
38 + .00000, 1.50254, 1.87594,
39 + .00694, .00355, 40.54470, 2.13544, 1.20427,
40 + .02263, 1.78032, 2.14834,
41 + .00715, .00365, 48.54019, 2.39901, 1.47939,
42 + .34594, 2.04838, 2.41192,
43 + .00740, .00376, 58.63090, 2.72890, 1.82403,
44 + .74388, 2.38316, 2.74182,
45 + .00765, .00388, 70.50028, 3.11216, 2.22358,
46 + 1.16181, 2.77136, 3.12508,
47 + .00788, .00399, 82.49915, 3.49661, 2.62372,
48 + 1.58056, 3.16017, 3.50952 /
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 + .00812, .00410, 95.85857, 3.92237, 3.06660,
51 + 2.04215, 3.59020, 3.93527,
52 + .00832, .00419, 107.87370, 4.30518, 3.46285,
53 + 2.45047, 3.97648, 4.31806,
54 + .00856, .00431, 123.58195, 4.80613, 3.97962,
55 + 2.98090, 4.48153, 4.81898,
56 + .00878, .00441, 138.62471, 5.28496, 4.47423,
57 + 3.49092, 4.96391, 5.29779,
58 + .00898, .00451, 153.38724, 5.75471, 4.95960,
59 + 3.99172, 5.43685, 5.76751,
60 + .00924, .00464, 173.23834, 6.39110, 5.61307,
61 + 4.65950, 6.07719, 6.40386,
62 + .00948, .00475, 193.26999, 7.03451, 6.27423,
63 + 5.33697, 6.72421, 7.04722,
64 + .00971, .00487, 213.33212, 7.67951, 6.93817,
65 + 6.01964, 7.37253, 7.69219 /
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 + .00994, .00498, 234.26096, 8.36018, 7.63416,
68 + 6.72821, 8.05644, 8.37281,
69 + .01017, .00509, 255.95996, 9.06742, 8.35872,
70 + 7.46882, 8.76679, 9.08000,
71 + .01039, .00520, 277.54135, 9.77425, 9.08257,
72 + 8.20862, 9.47651, 9.78678,
73 + .01059, .00531, 298.60437, 10.47053, 9.79344,
74 + 8.93230, 10.17546, 10.48302,
75 + .01080, .00541, 320.86453, 11.20738, 10.54747,
76 + 9.70291, 10.91495, 11.21983,
77 + .01101, .00552, 343.29434, 11.95900, 11.31324,
78 + 10.48097, 11.66911, 11.97139,
79 + .01121, .00562, 365.69553, 12.70998, 12.08058,
80 + 11.26423, 12.42247, 12.72233,
81 + .01140, .00571, 387.25101, 13.44168, 12.82522,
82 + 12.02022, 13.15639, 13.45398 /
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 + .01159, .00581, 409.92413, 14.21256, 13.61129,
85 + 12.82078, 13.92947, 14.22482,
86 + .01179, .00591, 432.78207, 14.99709, 14.40965,
87 + 13.63191, 14.71615, 15.00930,
88 + .01197, .00600, 455.25241, 15.77249, 15.19865,
89 + 14.43369, 15.49356, 15.78465,
90 + .01215, .00609, 477.23602, 16.53419, 15.97423,
91 + 15.22276, 16.25714, 16.54631,
92 + .01233, .00618, 499.70901, 17.32157, 16.77381,
93 + 16.03338, 17.04641, 17.33365 /
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 + .00679, .00363, 1.03840, .74150, .00000,
96 + .00000, .39551, .74868,
97 + .00703, .00373, 2.18801, .77444, .00000,
98 + .00000, .43249, .78168,
99 + .00738, .00388, 4.40202, .84285, .00000,
100 + .00000, .50662, .85016,
101 + .00763, .00399, 6.42818, .90705, .03865,
102 + .00000, .57481, .91441,
103 + .00790, .00411, 8.83149, .98849, .13239,
104 + .00000, .66025, .99590,
105 + .00813, .00421, 11.27380, 1.07125, .22097,
106 + .00000, .74637, 1.07868,
107 + .00835, .00431, 13.98081, 1.16037, .31771,
108 + .00000, .83864, 1.16784,
109 + .00859, .00442, 17.26159, 1.26606, .43392,
110 + .00000, .94758, 1.27355 /
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 + .00880, .00451, 20.42008, 1.36873, .54167,
113 + .00000, 1.05301, 1.37624,
114 + .00900, .00461, 23.77684, 1.47695, .65554,
115 + .00000, 1.16383, 1.48448,
116 + .00916, .00468, 26.69324, 1.56908, .75433,
117 + .00000, 1.25799, 1.57662,
118 + .00950, .00484, 33.36218, 1.78647, .98241,
119 + .01848, 1.47957, 1.79403,
120 + .00980, .00498, 39.54324, 1.99484, 1.19899,
121 + .27243, 1.69142, 2.00241,
122 + .01013, .00514, 47.24720, 2.25330, 1.46778,
123 + .58306, 1.95368, 2.26088,
124 + .01048, .00531, 56.19357, 2.55074, 1.77638,
125 + .90547, 2.25494, 2.55832,
126 + .01080, .00546, 65.12936, 2.84644, 2.08264,
127 + 1.22552, 2.55401, 2.85403 /
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 + .01112, .00562, 74.96897, 3.17120, 2.41878,
130 + 1.57525, 2.88209, 3.17878,
131 + .01139, .00576, 83.73049, 3.46099, 2.71721,
132 + 1.88213, 3.17455, 3.46856,
133 + .01172, .00592, 95.07364, 3.83736, 3.10348,
134 + 2.27773, 3.55410, 3.84492,
135 + .01201, .00607, 105.83356, 4.19448, 3.47052,
136 + 2.65536, 3.91396, 4.20204,
137 + .01229, .00620, 116.30534, 4.54257, 3.82840,
138 + 3.02377, 4.26451, 4.55011,
139 + .01263, .00637, 130.25548, 5.01068, 4.30667,
140 + 3.51125, 4.73568, 5.01821,
141 + .01296, .00654, 144.20216, 5.48048, 4.78709,
142 + 4.00228, 5.20827, 5.48799,
143 + .01327, .00670, 158.05371, 5.94832, 5.26642,
144 + 4.49395, 5.67868, 5.95581 /
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 + .01358, .00685, 172.37700, 6.43861, 5.76536,
147 + 5.00051, 6.17148, 6.44608,
148 + .01389, .00701, 187.11490, 6.94493, 6.28170,
149 + 5.52694, 6.68021, 6.95238,
150 + .01419, .00716, 201.66525, 7.44797, 6.79457,
151 + 6.04976, 7.18547, 7.45540,
152 + .01447, .00730, 215.76253, 7.94061, 7.29530,
153 + 6.55814, 7.68019, 7.94803,
154 + .01475, .00745, 230.57080, 8.45936, 7.82392,
155 + 7.09704, 8.20098, 8.46676,
156 + .01503, .00759, 245.38493, 8.98550, 8.35766,
157 + 7.63787, 8.72909, 8.99287,
158 + .01529, .00773, 260.10025, 9.50881, 8.89024,
159 + 8.18017, 9.25424, 9.51616,
160 + .01555, .00786, 274.16693, 10.01606, 9.40433,
161 + 8.70068, 9.76321, 10.02339 /
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 + .01581, .00799, 288.89059, 10.54827, 9.94492,
164 + 9.24987, 10.29713, 10.55558,
165 + .01606, .00812, 303.64664, 11.08735, 10.49137,
166 + 9.80362, 10.83786, 11.09464,
167 + .01631, .00825, 318.07877, 11.61793, 11.02923,
168 + 10.34880, 11.37001, 11.62520,
169 + .01654, .00837, 332.13293, 12.13714, 11.55598,
170 + 10.88343, 11.89068, 12.14439,
171 + .01678, .00850, 346.42035, 12.67153, 12.09662,
172 + 11.43012, 12.42653, 12.67876 /
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 + .00928, .00483, .97583, .63144, .00000,
175 + .00000, .33643, .63503,
176 + .00961, .00498, 2.01314, .66171, .00000,
177 + .00000, .36986, .66533,
178 + .01009, .00520, 3.96590, .72210, .00000,
179 + .00000, .43471, .72575,
180 + .01044, .00537, 5.71569, .77743, .03290,
181 + .00000, .49315, .78111,
182 + .01081, .00554, 7.75479, .84641, .11226,
183 + .00000, .56524, .85011,
184 + .01113, .00569, 9.79576, .91556, .18627,
185 + .00000, .63700, .91927,
186 + .01144, .00584, 12.02979, .98935, .26630,
187 + .00000, .71323, .99308,
188 + .01177, .00600, 14.70443, 1.07611, .36156,
189 + .00000, .80251, 1.07985 /
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 + .01205, .00614, 17.24896, 1.15960, .44906,
192 + .00000, .88813, 1.16335,
193 + .01233, .00627, 19.92633, 1.24698, .54084,
194 + .00000, .97752, 1.25074,
195 + .01255, .00638, 22.23370, 1.32097, .62000,
196 + .00000, 1.05308, 1.32473,
197 + .01301, .00661, 27.44574, 1.49400, .80111,
198 + .01508, 1.22935, 1.49778,
199 + .01342, .00681, 32.20534, 1.65822, .97134,
200 + .21443, 1.39625, 1.66201,
201 + .01387, .00704, 38.06226, 1.86005, 1.18062,
202 + .45677, 1.60100, 1.86384,
203 + .01435, .00727, 44.77505, 2.09006, 1.41851,
204 + .70533, 1.83395, 2.09385,
205 + .01478, .00749, 51.39793, 2.31663, 1.65241,
206 + .94973, 2.06311, 2.32043 /
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 + .01523, .00772, 58.60865, 2.56335, 1.90693,
209 + 1.21445, 2.31238, 2.56716,
210 + .01559, .00790, 64.96388, 2.78178, 2.13113,
211 + 1.44482, 2.53287, 2.78559,
212 + .01604, .00813, 73.10967, 3.06331, 2.41907,
213 + 1.73946, 2.81684, 3.06712,
214 + .01644, .00834, 80.76193, 3.32844, 2.69065,
215 + 2.01864, 3.08407, 3.33225,
216 + .01681, .00853, 88.14594, 3.58515, 2.95372,
217 + 2.28921, 3.34267, 3.58896,
218 + .01728, .00877, 97.88839, 3.92780, 3.30263,
219 + 2.64441, 3.68766, 3.93161,
220 + .01773, .00900, 107.53593, 4.26911, 3.65052,
221 + 2.99958, 4.03112, 4.27292,
222 + .01815, .00921, 117.03607, 4.60670, 3.99535,
223 + 3.35291, 4.37068, 4.61051 /
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 + .01857, .00943, 126.77041, 4.95798, 4.35166,
226 + 3.71416, 4.72387, 4.96178,
227 + .01898, .00965, 136.70889, 5.31848, 4.71820,
228 + 4.08738, 5.08622, 5.32229,
229 + .01938, .00985, 146.44682, 5.67449, 5.08011,
230 + 4.45585, 5.44394, 5.67829,
231 + .01975, .01005, 155.81017, 6.02106, 5.43132,
232 + 4.81193, 5.79209, 6.02486,
233 + .02013, .01025, 165.58516, 6.38415, 5.80031,
234 + 5.18765, 6.15675, 6.38794,
235 + .02051, .01045, 175.29036, 6.75026, 6.17065,
236 + 5.56235, 6.52437, 6.75405,
237 + .02086, .01063, 184.87825, 7.11274, 6.53860,
238 + 5.93657, 6.88826, 7.11653,
239 + .02120, .01081, 193.97990, 7.46222, 6.89181,
240 + 6.29367, 7.23906, 7.46600 /
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 + .02155, .01099, 203.45938, 7.82736, 7.26179,
243 + 6.66905, 7.60551, 7.83114,
244 + .02189, .01118, 212.90094, 8.19543, 7.63394,
245 + 7.04566, 7.97485, 8.19921,
246 + .02222, .01135, 222.08696, 8.55615, 7.99872,
247 + 7.41491, 8.33678, 8.55993,
248 + .02253, .01151, 230.98996, 8.90777, 8.35462,
249 + 7.77569, 8.68952, 8.91155,
250 + .02285, .01168, 239.98708, 9.26804, 8.71821,
251 + 8.14282, 9.05091, 9.27181 /
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 + .01114, .00572, .94195, .57468, .00000,
254 + .00000, .30613, .57676,
255 + .01154, .00591, 1.91852, .60339, .00000,
256 + .00000, .33758, .60549,
257 + .01212, .00619, 3.73217, .65948, .00000,
258 + .00000, .39753, .66161,
259 + .01255, .00639, 5.33699, .71018, .02993,
260 + .00000, .45091, .71232,
261 + .01299, .00661, 7.18746, .77275, .10190,
262 + .00000, .51616, .77490,
263 + .01338, .00680, 9.02291, .83496, .16851,
264 + .00000, .58063, .83712,
265 + .01375, .00698, 11.01702, .90099, .24011,
266 + .00000, .64876, .90316,
267 + .01414, .00718, 13.38707, .97822, .32487,
268 + .00000, .72815, .98040 /
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 + .01449, .00735, 15.62585, 1.05212, .40228,
271 + .00000, .80389, 1.05431,
272 + .01482, .00752, 17.96751, 1.12913, .48313,
273 + .00000, .88262, 1.13132,
274 + .01508, .00765, 19.97586, 1.19412, .55262,
275 + .00000, .94896, 1.19631,
276 + .01565, .00793, 24.47928, 1.34530, .71075,
277 + .01338, 1.10293, 1.34751,
278 + .01613, .00818, 28.55520, 1.48793, .85848,
279 + .18634, 1.24786, 1.49015,
280 + .01668, .00846, 33.53263, 1.66225, 1.03907,
281 + .39583, 1.42468, 1.66448,
282 + .01725, .00875, 39.19286, 1.85975, 1.24314,
283 + .60918, 1.62470, 1.86198,
284 + .01777, .00902, 44.73631, 2.05323, 1.44267,
285 + .81779, 1.82040, 2.05547 /
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 + .01830, .00929, 50.73115, 2.26285, 1.65868,
288 + 1.04255, 2.03220, 2.26510,
289 + .01874, .00952, 55.98237, 2.44756, 1.84806,
290 + 1.23720, 2.21868, 2.44982,
291 + .01928, .00980, 62.67283, 2.68454, 2.09015,
292 + 1.48497, 2.45774, 2.68680,
293 + .01976, .01004, 68.92151, 2.90671, 2.31749,
294 + 1.71871, 2.68171, 2.90898,
295 + .02020, .01027, 74.92051, 3.12098, 2.53684,
296 + 1.94435, 2.89760, 3.12326,
297 + .02076, .01057, 82.78966, 3.40570, 2.82642,
298 + 2.23916, 3.18431, 3.40798,
299 + .02129, .01085, 90.53770, 3.68804, 3.11390,
300 + 2.53267, 3.46848, 3.69033,
301 + .02179, .01111, 98.12856, 3.96617, 3.39773,
302 + 2.82351, 3.74830, 3.96847 /
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 + .02229, .01137, 105.86349, 4.25434, 3.68972,
305 + 3.11950, 4.03812, 4.25665,
306 + .02278, .01163, 113.72402, 4.54899, 3.98901,
307 + 3.42424, 4.33434, 4.55130,
308 + .02326, .01188, 121.39097, 4.83891, 4.28347,
309 + 3.72403, 4.62572, 4.84123,
310 + .02370, .01212, 128.72888, 5.12015, 4.56818,
311 + 4.01265, 4.90831, 5.12247,
312 + .02415, .01236, 136.36130, 5.41390, 4.86647,
313 + 4.31636, 5.20340, 5.41623,
314 + .02459, .01259, 143.90433, 5.70905, 5.16474,
315 + 4.61809, 5.49983, 5.71138,
316 + .02502, .01282, 151.33212, 6.00048, 5.46036,
317 + 4.91872, 5.79247, 6.00282,
318 + .02542, .01303, 158.35289, 6.28055, 5.74317,
319 + 5.20459, 6.07367, 6.28290 /
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 + .02583, .01325, 165.64360, 6.57246, 6.03872,
322 + 5.50443, 6.36670, 6.57481,
323 + .02624, .01347, 172.87773, 6.86584, 6.33513,
324 + 5.80434, 6.66117, 6.86820,
325 + .02663, .01367, 179.89362, 7.15264, 6.62494,
326 + 6.09766, 6.94900, 7.15501,
327 + .02700, .01387, 186.67384, 7.43155, 6.90706,
328 + 6.38364, 7.22887, 7.43393,
329 + .02737, .01407, 193.50090, 7.71654, 7.19447,
330 + 6.67377, 7.51482, 7.71893 /
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 + .01268, .00645, .91927, .53747, .00000,
333 + .00000, .28635, .53873,
334 + .01314, .00667, 1.85483, .56509, .00000,
335 + .00000, .31644, .56637,
336 + .01381, .00700, 3.57545, .61830, .00000,
337 + .00000, .37313, .61958,
338 + .01429, .00724, 5.08420, .66593, .02798,
339 + .00000, .42318, .66723,
340 + .01480, .00749, 6.81067, .72430, .09512,
341 + .00000, .48397, .72561,
342 + .01524, .00771, 8.51197, .78200, .15692,
343 + .00000, .54370, .78331,
344 + .01567, .00793, 10.35041, .84300, .22305,
345 + .00000, .60658, .84432,
346 + .01612, .00815, 12.52400, .91407, .30105,
347 + .00000, .67961, .91540 /
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 + .01651, .00835, 14.56671, .98181, .37200,
350 + .00000, .74899, .98314,
351 + .01689, .00855, 16.69413, 1.05216, .44587,
352 + .00000, .82090, 1.05350,
353 + .01719, .00870, 18.51241, 1.11140, .50920,
354 + .00000, .88135, 1.11274,
355 + .01783, .00903, 22.56811, 1.24866, .65274,
356 + .01229, 1.02111, 1.25002,
357 + .01839, .00932, 26.21512, 1.37760, .78626,
358 + .16862, 1.15212, 1.37897,
359 + .01901, .00964, 30.64430, 1.53457, .94883,
360 + .35748, 1.31133, 1.53595,
361 + .01966, .00997, 35.65268, 1.71164, 1.13174,
362 + .54886, 1.49067, 1.71304,
363 + .02025, .01028, 40.53175, 1.88443, 1.30987,
364 + .73523, 1.66544, 1.88583 /
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 + .02085, .01060, 45.78246, 2.07094, 1.50200,
367 + .93527, 1.85391, 2.07236,
368 + .02135, .01086, 50.36147, 2.23474, 1.66987,
369 + 1.10790, 2.01928, 2.23616,
370 + .02196, .01118, 56.17024, 2.44418, 1.88376,
371 + 1.32690, 2.23059, 2.44562,
372 + .02251, .01147, 61.57271, 2.63991, 2.08396,
373 + 1.53284, 2.42793, 2.64136,
374 + .02301, .01173, 66.74027, 2.82814, 2.27659,
375 + 1.73108, 2.61761, 2.82960,
376 + .02364, .01207, 73.49034, 3.07744, 2.53005,
377 + 1.98921, 2.86870, 3.07892,
378 + .02424, .01238, 80.10910, 3.32386, 2.78088,
379 + 2.24538, 3.11677, 3.32536,
380 + .02481, .01269, 86.56970, 3.56592, 3.02782,
381 + 2.49853, 3.36032, 3.56742 /
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 + .02538, .01299, 93.12634, 3.81593, 3.28105,
384 + 2.75529, 3.61181, 3.81745,
385 + .02594, .01329, 99.76711, 4.07088, 3.53994,
386 + 3.01897, 3.86817, 4.07241,
387 + .02647, .01357, 106.22301, 4.32109, 3.79399,
388 + 3.27771, 4.11969, 4.32264,
389 + .02697, .01384, 112.38109, 4.56317, 4.03900,
390 + 3.52613, 4.36298, 4.56473,
391 + .02748, .01411, 118.76931, 4.81549, 4.29516,
392 + 3.78703, 4.61649, 4.81706,
393 + .02798, .01438, 125.06142, 5.06836, 4.55062,
394 + 4.04551, 4.87051, 5.06994,
395 + .02846, .01464, 131.24292, 5.31755, 4.80335,
396 + 4.30260, 5.12079, 5.31915,
397 + .02892, .01488, 137.06738, 5.55648, 5.04455,
398 + 4.54644, 5.36072, 5.55809 /
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 + .02938, .01513, 143.10297, 5.80506, 5.29620,
401 + 4.80181, 5.61030, 5.80668,
402 + .02983, .01537, 149.07483, 6.05437, 5.54802,
403 + 5.05666, 5.86059, 6.05600,
404 + .03027, .01561, 154.85329, 6.29764, 5.79380,
405 + 5.30547, 6.10478, 6.29929,
406 + .03069, .01583, 160.42607, 6.53382, 6.03268,
407 + 5.54767, 6.34182, 6.53548,
408 + .03111, .01606, 166.02213, 6.77467, 6.27552,
409 + 5.79286, 6.58353, 6.77634 /
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 + .01403, .00708, .90255, .51026, .00000,
412 + .00000, .27193, .51101,
413 + .01453, .00733, 1.80746, .53705, .00000,
414 + .00000, .30100, .53781,
415 + .01527, .00770, 3.45897, .58810, .00000,
416 + .00000, .35527, .58887,
417 + .01581, .00797, 4.89683, .63347, .02655,
418 + .00000, .40288, .63425,
419 + .01638, .00826, 6.53235, .68876, .09016,
420 + .00000, .46040, .68955,
421 + .01687, .00851, 8.13576, .74318, .14846,
422 + .00000, .51669, .74397,
423 + .01734, .00875, 9.86111, .80052, .21063,
424 + .00000, .57577, .80133,
425 + .01784, .00901, 11.89261, .86713, .28374,
426 + .00000, .64419, .86795 /
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 + .01827, .00923, 13.79410, .93042, .35004,
429 + .00000, .70899, .93124,
430 + .01869, .00945, 15.76777, .99598, .41888,
431 + .00000, .77598, .99681,
432 + .01903, .00962, 17.45008, 1.05108, .47779,
433 + .00000, .83220, 1.05192,
434 + .01974, .00999, 21.18684, 1.17838, .61092,
435 + .01151, .96180, 1.17923,
436 + .02035, .01031, 24.52995, 1.29755, .73432,
437 + .15601, 1.08287, 1.29841,
438 + .02104, .01067, 28.57247, 1.44215, .88409,
439 + .33024, 1.22954, 1.44303,
440 + .02176, .01104, 33.12336, 1.60475, 1.05204,
441 + .50610, 1.39422, 1.60564,
442 + .02241, .01139, 37.53828, 1.76291, 1.21509,
443 + .67681, 1.55421, 1.76381 /
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 + .02308, .01174, 42.27129, 1.93313, 1.39045,
446 + .85951, 1.72623, 1.93406,
447 + .02363, .01203, 46.38445, 2.08223, 1.54325,
448 + 1.01673, 1.87678, 2.08317,
449 + .02430, .01239, 51.58443, 2.27239, 1.73742,
450 + 1.21566, 2.06865, 2.27334,
451 + .02490, .01271, 56.40479, 2.44964, 1.91872,
452 + 1.40226, 2.24739, 2.45061,
453 + .02545, .01300, 61.00217, 2.61972, 2.09277,
454 + 1.58149, 2.41880, 2.62071,
455 + .02615, .01338, 66.98750, 2.84442, 2.32120,
456 + 1.81423, 2.64513, 2.84542,
457 + .02682, .01373, 72.83736, 3.06595, 2.54669,
458 + 2.04463, 2.86818, 3.06698,
459 + .02744, .01406, 78.53085, 3.28306, 2.76819,
460 + 2.27181, 3.08667, 3.28411 /
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 + .02806, .01440, 84.29057, 3.50677, 2.99475,
463 + 2.50163, 3.31172, 3.50783,
464 + .02868, .01473, 90.10869, 3.73441, 3.22592,
465 + 2.73718, 3.54066, 3.73550,
466 + .02926, .01504, 95.75011, 3.95737, 3.45231,
467 + 2.96783, 3.76482, 3.95847,
468 + .02982, .01534, 101.11699, 4.17264, 3.67018,
469 + 3.18883, 3.98121, 4.17376,
470 + .03038, .01564, 106.67287, 4.39664, 3.89761,
471 + 3.42056, 4.20631, 4.39778,
472 + .03093, .01594, 112.13026, 4.62068, 4.12394,
473 + 3.64964, 4.43140, 4.62183,
474 + .03145, .01622, 117.48192, 4.84113, 4.34753,
475 + 3.87720, 4.65284, 4.84230,
476 + .03195, .01649, 122.51188, 5.05209, 4.56051,
477 + 4.09258, 4.86473, 5.05328 /
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 + .03246, .01677, 127.71547, 5.27129, 4.78242,
480 + 4.31786, 5.08485, 5.27250,
481 + .03296, .01704, 132.85260, 5.49076, 5.00411,
482 + 4.54230, 5.30521, 5.49198,
483 + .03344, .01730, 137.81444, 5.70460, 5.22018,
484 + 4.76111, 5.51990, 5.70584,
485 + .03390, .01755, 142.59163, 5.91194, 5.42991,
486 + 4.97384, 5.72803, 5.91320,
487 + .03436, .01780, 147.37839, 6.12305, 5.64277,
488 + 5.18882, 5.93992, 6.12432 /
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 + .01919, .00950, .85645, .43420, .00000,
491 + .00000, .23186, .43403,
492 + .01989, .00986, 1.67228, .45844, .00000,
493 + .00000, .25790, .45828,
494 + .02092, .01041, 3.12485, .50323, .00000,
495 + .00000, .30523, .50309,
496 + .02166, .01080, 4.36101, .54219, .02254,
497 + .00000, .34595, .54207,
498 + .02244, .01122, 5.74040, .58885, .07625,
499 + .00000, .39438, .58875,
500 + .02312, .01157, 7.07066, .63412, .12481,
501 + .00000, .44111, .63403,
502 + .02377, .01192, 8.48293, .68135, .17606,
503 + .00000, .48971, .68128,
504 + .02445, .01229, 10.12407, .73569, .23575,
505 + .00000, .54547, .73565 /
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 + .02505, .01261, 11.64052, .78679, .28934,
508 + .00000, .59776, .78676,
509 + .02563, .01292, 13.19767, .83929, .34455,
510 + .00000, .65139, .83928,
511 + .02609, .01316, 14.51352, .88317, .39150,
512 + .00000, .69614, .88317,
513 + .02706, .01369, 17.39745, .98352, .49659,
514 + .00936, .79829, .98356,
515 + .02790, .01414, 19.93550, 1.07645, .59294,
516 + .12232, .89271, 1.07652,
517 + .02884, .01465, 22.96224, 1.18808, .70871,
518 + .25768, 1.00595, 1.18818,
519 + .02983, .01518, 26.32152, 1.31226, .83715,
520 + .39261, 1.13176, 1.31240,
521 + .03072, .01567, 29.53714, 1.43185, .96060,
522 + .52230, 1.25278, 1.43202 /
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 + .03162, .01616, 32.94241, 1.55939, 1.09215,
525 + .65979, 1.38171, 1.55959,
526 + .03238, .01657, 35.86867, 1.67015, 1.20580,
527 + .77707, 1.49360, 1.67038,
528 + .03329, .01707, 39.52776, 1.81023, 1.34902,
529 + .92422, 1.63502, 1.81050,
530 + .03410, .01751, 42.88403, 1.93976, 1.48168,
531 + 1.06116, 1.76570, 1.94006,
532 + .03484, .01792, 46.05547, 2.06316, 1.60814,
533 + 1.19175, 1.89014, 2.06350,
534 + .03579, .01844, 50.14011, 2.22486, 1.77273,
535 + 1.35989, 2.05311, 2.22524,
536 + .03668, .01893, 54.09083, 2.38300, 1.93391,
537 + 1.52502, 2.21243, 2.38343,
538 + .03752, .01939, 57.90030, 2.53688, 2.09112,
539 + 1.68672, 2.36738, 2.53734 /
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 + .03837, .01985, 61.71398, 2.69418, 2.25062,
542 + 1.84890, 2.52573, 2.69468,
543 + .03919, .02030, 65.53378, 2.85320, 2.41232,
544 + 2.01409, 2.68576, 2.85374,
545 + .03998, .02074, 69.20650, 3.00793, 2.56966,
546 + 2.17481, 2.84143, 3.00851,
547 + .04072, .02114, 72.67004, 3.15635, 2.72006,
548 + 2.32773, 2.99071, 3.15696,
549 + .04146, .02155, 76.23181, 3.30997, 2.87626,
550 + 2.48731, 3.14519, 3.31062,
551 + .04220, .02196, 79.69936, 3.46260, 3.03066,
552 + 2.64394, 3.29864, 3.46329,
553 + .04290, .02235, 83.08017, 3.61209, 3.18252,
554 + 2.79888, 3.44891, 3.61281,
555 + .04356, .02271, 86.23109, 3.75428, 3.32625,
556 + 2.94455, 3.59182, 3.75504 /
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 + .04424, .02308, 89.47361, 3.90138, 3.47540,
559 + 3.09634, 3.73964, 3.90217,
560 + .04490, .02345, 92.65116, 4.04787, 3.62358,
561 + 3.24670, 3.88682, 4.04870,
562 + .04554, .02380, 95.70200, 4.18995, 3.76735,
563 + 3.39263, 4.02956, 4.19082,
564 + .04615, .02414, 98.62387, 4.32714, 3.90634,
565 + 3.53395, 4.16737, 4.32803,
566 + .04676, .02448, 101.53013, 4.46610, 4.04665,
567 + 3.67597, 4.30694, 4.46703 /
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 + .02630, .01285, .82265, .36983, .00000,
570 + .00000, .19827, .36963,
571 + .02727, .01338, 1.55803, .39161, .00000,
572 + .00000, .22150, .39144,
573 + .02870, .01417, 2.83272, .43073, .00000,
574 + .00000, .26267, .43062,
575 + .02973, .01474, 3.89157, .46405, .01908,
576 + .00000, .29741, .46398,
577 + .03081, .01533, 5.04935, .50327, .06428,
578 + .00000, .33805, .50325,
579 + .03174, .01585, 6.14666, .54076, .10458,
580 + .00000, .37672, .54078,
581 + .03263, .01634, 7.29514, .57947, .14665,
582 + .00000, .41653, .57954,
583 + .03358, .01687, 8.61135, .62357, .19518,
584 + .00000, .46177, .62368 /
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 + .03440, .01733, 9.81110, .66458, .23828,
587 + .00000, .50374, .66473,
588 + .03520, .01777, 11.02912, .70637, .28235,
589 + .00000, .54643, .70655,
590 + .03583, .01812, 12.04907, .74106, .31957,
591 + .00000, .58184, .74128,
592 + .03716, .01886, 14.25288, .81960, .40204,
593 + .00758, .66182, .81989,
594 + .03831, .01950, 16.15846, .89149, .47682,
595 + .09544, .73491, .89184,
596 + .03960, .02022, 18.39773, .97693, .56571,
597 + .20007, .82165, .97734,
598 + .04093, .02097, 20.84586, 1.07090, .66323,
599 + .30302, .91694, 1.07139,
600 + .04215, .02165, 23.15623, 1.16046, .75598,
601 + .40094, 1.00765, 1.16101 /
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 + .04338, .02233, 25.57114, 1.25503, .85388,
604 + .50375, 1.10335, 1.25566,
605 + .04440, .02290, 27.62164, 1.33643, .93769,
606 + .59065, 1.18566, 1.33711,
607 + .04563, .02360, 30.15571, 1.43847, 1.04237,
608 + .69871, 1.28878, 1.43922,
609 + .04673, .02421, 32.45405, 1.53203, 1.13853,
610 + .79845, 1.38327, 1.53284,
611 + .04773, .02477, 34.60437, 1.62050, 1.22952,
612 + .89286, 1.47258, 1.62137,
613 + .04901, .02549, 37.34178, 1.73541, 1.34689,
614 + 1.01331, 1.58853, 1.73636,
615 + .05021, .02616, 39.95994, 1.84686, 1.46087,
616 + 1.13063, 1.70093, 1.84788,
617 + .05134, .02680, 42.45953, 1.95447, 1.57122,
618 + 1.24467, 1.80941, 1.95556 /
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 + .05246, .02743, 44.93328, 2.06356, 1.68222,
621 + 1.35803, 1.91935, 2.06472,
622 + .05357, .02805, 47.38851, 2.17308, 1.79397,
623 + 1.47273, 2.02969, 2.17431,
624 + .05461, .02864, 49.72786, 2.27891, 1.90198,
625 + 1.58356, 2.13629, 2.28021,
626 + .05560, .02919, 51.91273, 2.37972, 2.00449,
627 + 1.68825, 2.23780, 2.38108,
628 + .05660, .02975, 54.14371, 2.48349, 2.11038,
629 + 1.79693, 2.34226, 2.48491,
630 + .05757, .03029, 56.29396, 2.58586, 2.21429,
631 + 1.90279, 2.44530, 2.58734,
632 + .05850, .03082, 58.37774, 2.68563, 2.31601,
633 + 2.00706, 2.54571, 2.68717,
634 + .05939, .03131, 60.30131, 2.77991, 2.41164,
635 + 2.10440, 2.64058, 2.78151 /
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, .03181, 62.26973, 2.87701, 2.51045,
638 + 2.20541, 2.73826, 2.87867,
639 + .06116, .03230, 64.18266, 2.97315, 2.60803,
640 + 2.30486, 2.83497, 2.97486,
641 + .06200, .03278, 66.00740, 3.06594, 2.70226,
642 + 2.40093, 2.92830, 3.06771,
643 + .06280, .03322, 67.74481, 3.15514, 2.79296,
644 + 2.49356, 3.01801, 3.15696,
645 + .06361, .03368, 69.45829, 3.24499, 2.88399,
646 + 2.58609, 3.10836, 3.24687 /
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 + .03167, .01544, .81164, .33722, .00000,
649 + .00000, .18135, .33733,
650 + .03285, .01610, 1.50350, .35759, .00000,
651 + .00000, .20302, .35776,
652 + .03458, .01708, 2.68231, .39362, .00000,
653 + .00000, .24089, .39388,
654 + .03583, .01778, 3.64677, .42394, .01726,
655 + .00000, .27247, .42426,
656 + .03714, .01852, 4.68812, .45926, .05801,
657 + .00000, .30906, .45966,
658 + .03826, .01915, 5.66447, .49272, .09404,
659 + .00000, .34358, .49318,
660 + .03934, .01976, 6.67731, .52705, .13141,
661 + .00000, .37890, .52758,
662 + .04048, .02041, 7.82813, .56592, .17425,
663 + .00000, .41880, .56652 /
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 + .04147, .02097, 8.86827, .60183, .21206,
666 + .00000, .45556, .60248,
667 + .04243, .02151, 9.91683, .63822, .25052,
668 + .00000, .49277, .63893,
669 + .04318, .02194, 10.78993, .66833, .28288,
670 + .00000, .52351, .66908,
671 + .04479, .02285, 12.65970, .73602, .35415,
672 + .00668, .59251, .73687,
673 + .04617, .02363, 14.25856, .79755, .41831,
674 + .08221, .65511, .79849,
675 + .04771, .02451, 16.12019, .87018, .49409,
676 + .17182, .72892, .87122,
677 + .04931, .02542, 18.13638, .94953, .57666,
678 + .25930, .80944, .95066,
679 + .05076, .02624, 20.02231, 1.02464, .65468,
680 + .34198, .88559, 1.02587 /
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 + .05223, .02707, 21.97753, 1.10348, .73654,
683 + .42827, .96547, 1.10481,
684 + .05344, .02776, 23.62524, 1.17097, .80624,
685 + .50079, 1.03377, 1.17238,
686 + .05491, .02860, 25.64651, 1.25510, .89282,
687 + .59049, 1.11889, 1.25661,
688 + .05622, .02934, 27.46683, 1.33184, .97193,
689 + .67286, 1.19647, 1.33343,
690 + .05741, .03002, 29.15933, 1.40407, 1.04645,
691 + .75047, 1.26946, 1.40574,
692 + .05893, .03088, 31.29795, 1.49738, 1.14205,
693 + .84893, 1.36371, 1.49915,
694 + .06035, .03169, 33.32899, 1.58739, 1.23440,
695 + .94435, 1.45459, 1.58927,
696 + .06169, .03244, 35.25591, 1.67391, 1.32341,
697 + 1.03668, 1.54190, 1.67587 /
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 + .06302, .03320, 37.14875, 1.76116, 1.41245,
700 + 1.12794, 1.62992, 1.76321,
701 + .06432, .03394, 39.01664, 1.84836, 1.50172,
702 + 1.21990, 1.71787, 1.85051,
703 + .06556, .03464, 40.78600, 1.93228, 1.58763,
704 + 1.30839, 1.80249, 1.93451,
705 + .06672, .03530, 42.42818, 2.01186, 1.66881,
706 + 1.39160, 1.88271, 2.01418,
707 + .06789, .03596, 44.09756, 2.09350, 1.75239,
708 + 1.47771, 1.96498, 2.09590,
709 + .06904, .03661, 45.69580, 2.17368, 1.83402,
710 + 1.56118, 2.04578, 2.17616,
711 + .07014, .03723, 47.23884, 2.25159, 1.91372,
712 + 1.64318, 2.12427, 2.25415,
713 + .07117, .03782, 48.65408, 2.32491, 1.98831,
714 + 1.71938, 2.19813, 2.32754 /
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 + .07222, .03841, 50.09723, 2.40021, 2.06519,
717 + 1.79826, 2.27397, 2.40292,
718 + .07325, .03899, 51.49192, 2.47449, 2.14082,
719 + 1.87562, 2.34877, 2.47727,
720 + .07423, .03955, 52.81660, 2.54597, 2.21364,
721 + 1.95013, 2.42074, 2.54882,
722 + .07517, .04008, 54.07318, 2.61450, 2.28354,
723 + 2.02180, 2.48973, 2.61741,
724 + .07612, .04061, 55.30518, 2.68327, 2.35344,
725 + 2.09311, 2.55897, 2.68625 /
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 + .03618, .01768, .80963, .31630, .00000,
728 + .00000, .17051, .31672,
729 + .03753, .01845, 1.47192, .33569, .00000,
730 + .00000, .19111, .33620,
731 + .03951, .01959, 2.58562, .36961, .00000,
732 + .00000, .22673, .37024,
733 + .04095, .02041, 3.48651, .39790, .01605,
734 + .00000, .25620, .39862,
735 + .04244, .02126, 4.45011, .43062, .05383,
736 + .00000, .29011, .43144,
737 + .04373, .02200, 5.34630, .46142, .08704,
738 + .00000, .32189, .46232,
739 + .04496, .02270, 6.26984, .49287, .12132,
740 + .00000, .35426, .49385,
741 + .04626, .02345, 7.31247, .52832, .16044,
742 + .00000, .39066, .52939 /
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 + .04739, .02410, 8.24890, .56090, .19481,
745 + .00000, .42405, .56204,
746 + .04848, .02472, 9.18795, .59380, .22964,
747 + .00000, .45770, .59501,
748 + .04934, .02522, 9.96658, .62093, .25886,
749 + .00000, .48543, .62220,
750 + .05117, .02627, 11.62293, .68165, .32292,
751 + .00609, .54737, .68305,
752 + .05274, .02716, 13.02743, .73655, .38029,
753 + .07375, .60328, .73805,
754 + .05449, .02817, 14.65152, .80104, .44773,
755 + .15379, .66887, .80267,
756 + .05630, .02921, 16.39811, .87113, .52084,
757 + .23147, .74006, .87288,
758 + .05795, .03015, 18.02099, .93715, .58960,
759 + .30455, .80706, .93902 /
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 + .05961, .03110, 19.69320, 1.00615, .66142,
762 + .38048, .87702, 1.00813,
763 + .06099, .03189, 21.09443, 1.06495, .72231,
764 + .44403, .93661, 1.06704,
765 + .06265, .03284, 22.80375, 1.13797, .79765,
766 + .52232, 1.01055, 1.14018,
767 + .06412, .03369, 24.33494, 1.20431, .86623,
768 + .59394, 1.07768, 1.20662,
769 + .06547, .03446, 25.75193, 1.26654, .93061,
770 + .66120, 1.14063, 1.26895,
771 + .06718, .03544, 27.53231, 1.34660, 1.01286,
772 + .74617, 1.22158, 1.34913,
773 + .06878, .03635, 29.21405, 1.42354, 1.09201,
774 + .82820, 1.29934, 1.42619,
775 + .07028, .03721, 30.80203, 1.49723, 1.16803,
776 + .90731, 1.37378, 1.49999 /
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 + .07178, .03806, 32.35299, 1.57124, 1.24377,
779 + .98518, 1.44853, 1.57411,
780 + .07325, .03890, 33.87680, 1.64499, 1.31947,
781 + 1.06341, 1.52298, 1.64796,
782 + .07463, .03969, 35.31384, 1.71573, 1.39210,
783 + 1.13845, 1.59438, 1.71881,
784 + .07594, .04043, 36.64101, 1.78259, 1.46048,
785 + 1.20877, 1.66185, 1.78577,
786 + .07725, .04118, 37.98569, 1.85100, 1.53073,
787 + 1.28137, 1.73087, 1.85428,
788 + .07854, .04191, 39.26630, 1.91797, 1.59910,
789 + 1.35149, 1.79843, 1.92134,
790 + .07976, .04261, 40.49918, 1.98290, 1.66571,
791 + 1.42025, 1.86391, 1.98636,
792 + .08092, .04327, 41.62417, 2.04381, 1.72784,
793 + 1.48392, 1.92533, 2.04736 /
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 + .08209, .04393, 42.76834, 2.10624, 1.79176,
796 + 1.54972, 1.98827, 2.10987,
797 + .08324, .04458, 43.86916, 2.16764, 1.85447,
798 + 1.61407, 2.05018, 2.17137,
799 + .08433, .04520, 44.91127, 2.22660, 1.91470,
800 + 1.67590, 2.10961, 2.23041,
801 + .08538, .04580, 45.89693, 2.28301, 1.97242,
802 + 1.73526, 2.16646, 2.28690,
803 + .08643, .04639, 46.85872, 2.33947, 2.02996,
804 + 1.79415, 2.22336, 2.34343 /
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 + .04016, .01980, .81609, .30199, .00000,
807 + .00000, .16289, .30246,
808 + .04167, .02067, 1.45541, .32063, .00000,
809 + .00000, .18265, .32119,
810 + .04388, .02195, 2.51895, .35292, .00000,
811 + .00000, .21653, .35363,
812 + .04547, .02287, 3.37133, .37966, .01512,
813 + .00000, .24437, .38048,
814 + .04713, .02383, 4.27592, .41040, .05067,
815 + .00000, .27621, .41134,
816 + .04856, .02466, 5.11162, .43919, .08175,
817 + .00000, .30592, .44023,
818 + .04992, .02545, 5.96805, .46848, .11370,
819 + .00000, .33607, .46961,
820 + .05137, .02628, 6.92975, .50137, .15004,
821 + .00000, .36985, .50261 /
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 + .05262, .02701, 7.78895, .53148, .18184,
824 + .00000, .40071, .53280,
825 + .05382, .02770, 8.64680, .56178, .21398,
826 + .00000, .43172, .56320,
827 + .05478, .02826, 9.35563, .58672, .24088,
828 + .00000, .45721, .58820,
829 + .05680, .02942, 10.85508, .64232, .29962,
830 + .00565, .51395, .64394,
831 + .05853, .03042, 12.11753, .69236, .35201,
832 + .06751, .56494, .69412,
833 + .06046, .03154, 13.56903, .75092, .41336,
834 + .14053, .62453, .75282,
835 + .06246, .03269, 15.12083, .81428, .47958,
836 + .21106, .68893, .81632,
837 + .06428, .03374, 16.55465, .87373, .54161,
838 + .27716, .74930, .87591 /
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 + .06610, .03479, 18.02445, .93563, .60618,
841 + .34558, .81211, .93795,
842 + .06761, .03566, 19.25017, .98821, .66073,
843 + .40265, .86542, .99064,
844 + .06944, .03671, 20.73854, 1.05328, .72800,
845 + .47272, .93135, 1.05584,
846 + .07106, .03764, 22.06580, 1.11220, .78904,
847 + .53663, .99102, 1.11489,
848 + .07253, .03849, 23.28910, 1.16731, .84618,
849 + .59647, 1.04681, 1.17011,
850 + .07440, .03956, 24.81865, 1.23798, .91893,
851 + .67182, 1.11832, 1.24093,
852 + .07616, .04057, 26.25704, 1.30567, .98872,
853 + .74433, 1.18678, 1.30875,
854 + .07780, .04151, 27.60992, 1.37032, 1.05557,
855 + .81407, 1.25214, 1.37352 /
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 + .07944, .04245, 28.92475, 1.43504, 1.12194,
858 + .88248, 1.31755, 1.43836,
859 + .08103, .04336, 30.21170, 1.49935, 1.18811,
860 + .95103, 1.38253, 1.50280,
861 + .08255, .04422, 31.42066, 1.56087, 1.25142,
862 + 1.01662, 1.44468, 1.56444,
863 + .08397, .04503, 32.53237, 1.61886, 1.31087,
864 + 1.07790, 1.50326, 1.62254,
865 + .08539, .04585, 33.65549, 1.67808, 1.37182,
866 + 1.14106, 1.56305, 1.68187,
867 + .08679, .04665, 34.72039, 1.73588, 1.43096,
868 + 1.20188, 1.62140, 1.73977,
869 + .08813, .04740, 35.74324, 1.79181, 1.48849,
870 + 1.26142, 1.67786, 1.79581,
871 + .08938, .04812, 36.67242, 1.84414, 1.54200,
872 + 1.31640, 1.73068, 1.84824 /
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 + .09065, .04884, 37.61539, 1.89769, 1.59697,
875 + 1.37313, 1.78472, 1.90189,
876 + .09190, .04955, 38.51896, 1.95023, 1.65076,
877 + 1.42848, 1.83774, 1.95453,
878 + .09309, .05022, 39.37180, 2.00059, 1.70233,
879 + 1.48156, 1.88855, 2.00498,
880 + .09422, .05086, 40.17644, 2.04868, 1.75167,
881 + 1.53245, 1.93707, 2.05316,
882 + .09536, .05150, 40.95825, 2.09671, 1.80074,
883 + 1.58280, 1.98551, 2.10127 /
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 + .05585, .02856, .86037, .26286, .00000,
886 + .00000, .14228, .26404,
887 + .05796, .02982, 1.43084, .27921, .00000,
888 + .00000, .15956, .28055,
889 + .06104, .03165, 2.34533, .30670, .00000,
890 + .00000, .18838, .30830,
891 + .06326, .03298, 3.05569, .32896, .01250,
892 + .00000, .21156, .33073,
893 + .06555, .03434, 3.79030, .35405, .04167,
894 + .00000, .23758, .35601,
895 + .06752, .03550, 4.45400, .37715, .06677,
896 + .00000, .26145, .37927,
897 + .06940, .03662, 5.12166, .40037, .09224,
898 + .00000, .28540, .40264,
899 + .07139, .03779, 5.85813, .42612, .12087,
900 + .00000, .31190, .42855 /
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 + .07310, .03881, 6.50476, .44938, .14562,
903 + .00000, .33581, .45196,
904 + .07475, .03978, 7.14096, .47256, .17037,
905 + .00000, .35959, .47527,
906 + .07605, .04055, 7.66052, .49148, .19094,
907 + .00000, .37898, .49430,
908 + .07880, .04216, 8.73899, .53313, .23529,
909 + .00444, .42161, .53618,
910 + .08114, .04354, 9.62520, .57008, .27430,
911 + .05075, .45937, .57333,
912 + .08374, .04506, 10.62444, .61275, .31938,
913 + .10502, .50293, .61621,
914 + .08644, .04663, 11.67171, .65826, .36738,
915 + .15662, .54934, .66194,
916 + .08886, .04805, 12.62115, .70040, .41176,
917 + .20436, .59228, .70428 /
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 + .09130, .04947, 13.57749, .74373, .45739,
920 + .25319, .63640, .74782,
921 + .09331, .05064, 14.36206, .78012, .49552,
922 + .29345, .67344, .78438,
923 + .09574, .05204, 15.29941, .82465, .54200,
924 + .34235, .71872, .82911,
925 + .09787, .05328, 16.12249, .86453, .58375,
926 + .38650, .75927, .86917,
927 + .09982, .05440, 16.87079, .90149, .62246,
928 + .42746, .79682, .90629,
929 + .10227, .05582, 17.79066, .94834, .67119,
930 + .47844, .84441, .95334,
931 + .10457, .05714, 18.64212, .99272, .71744,
932 + .52700, .88948, .99792,
933 + .10672, .05837, 19.43190, 1.03471, .76133,
934 + .57328, .93211, 1.04008 /
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 + .10884, .05958, 20.18582, 1.07626, .80441,
937 + .61815, .97428, 1.08181,
938 + .11091, .06077, 20.91420, 1.11719, .84700,
939 + .66275, 1.01581, 1.12291,
940 + .11287, .06188, 21.58919, 1.15599, .88739,
941 + .70506, 1.05518, 1.16188,
942 + .11469, .06292, 22.20026, 1.19222, .92496,
943 + .74421, 1.09193, 1.19826,
944 + .11653, .06397, 22.81151, 1.22896, .96322,
945 + .78431, 1.12919, 1.23516,
946 + .11832, .06498, 23.38105, 1.26447, .99998,
947 + .82253, 1.16520, 1.27081,
948 + .12002, .06595, 23.92372, 1.29862, 1.03553,
949 + .85976, 1.19983, 1.30510,
950 + .12162, .06685, 24.40809, 1.33027, 1.06829,
951 + .89380, 1.23193, 1.33689 /
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 + .12323, .06776, 24.89588, 1.36248, 1.10177,
954 + .92876, 1.26459, 1.36924,
955 + .12481, .06865, 25.35619, 1.39383, 1.13426,
956 + .96258, 1.29637, 1.40071,
957 + .12632, .06950, 25.78596, 1.42368, 1.16522,
958 + .99483, 1.32663, 1.43069,
959 + .12774, .07030, 26.18771, 1.45202, 1.19468,
960 + 1.02558, 1.35537, 1.45915,
961 + .12917, .07110, 26.57134, 1.48009, 1.22372,
962 + 1.05574, 1.38382, 1.48733 /
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 + .07868, .04251, .97178, .23266, .00000,
965 + .00000, .12624, .23515,
966 + .08164, .04430, 1.47116, .24678, .00000,
967 + .00000, .14117, .24954,
968 + .08594, .04689, 2.23810, .26972, .00000,
969 + .00000, .16527, .27288,
970 + .08902, .04875, 2.81292, .28783, .01016,
971 + .00000, .18420, .29127,
972 + .09218, .05064, 3.39068, .30782, .03369,
973 + .00000, .20501, .31155,
974 + .09488, .05225, 3.89968, .32587, .05356,
975 + .00000, .22375, .32985,
976 + .09746, .05378, 4.40090, .34375, .07345,
977 + .00000, .24229, .34797,
978 + .10017, .05539, 4.94262, .36332, .09549,
979 + .00000, .26254, .36779 /
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 + .10249, .05676, 5.40899, .38074, .11428,
982 + .00000, .28054, .38542,
983 + .10472, .05808, 5.86008, .39788, .13286,
984 + .00000, .29823, .40277,
985 + .10648, .05911, 6.22348, .41175, .14817,
986 + .00000, .31253, .41681,
987 + .11018, .06128, 6.96104, .44185, .18071,
988 + .00340, .34352, .44724,
989 + .11330, .06311, 7.54927, .46812, .20888,
990 + .03715, .37054, .47379,
991 + .11676, .06512, 8.19735, .49797, .24095,
992 + .07635, .40122, .50396,
993 + .12032, .06718, 8.86066, .52930, .27456,
994 + .11297, .43339, .53562,
995 + .12352, .06903, 9.44835, .55787, .30518,
996 + .14636, .46270, .56447 /
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 + .12671, .07087, 10.02786, .58683, .33623,
999 + .18006, .49240, .59372,
1000 + .12933, .07237, 10.49381, .61082, .36183,
1001 + .20748, .51700, .61794,
1002 + .13247, .07416, 11.03925, .63979, .39266,
1003 + .24038, .54669, .64719,
1004 + .13523, .07573, 11.50912, .66541, .42000,
1005 + .26974, .57294, .67306,
1006 + .13773, .07716, 11.92907, .68888, .44509,
1007 + .29670, .59699, .69676,
1008 + .14087, .07893, 12.43376, .71824, .47625,
1009 + .32981, .62705, .72639,
1010 + .14379, .08058, 12.89141, .74570, .50548,
1011 + .36098, .65517, .75411,
1012 + .14651, .08211, 13.30834, .77138, .53291,
1013 + .39038, .68147, .78004 /
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 + .14919, .08361, 13.69650, .79645, .55947,
1016 + .41851, .70714, .80534,
1017 + .15179, .08506, 14.06512, .82088, .58547,
1018 + .44620, .73216, .82999,
1019 + .15423, .08642, 14.40045, .84379, .60988,
1020 + .47221, .75562, .85312,
1021 + .15651, .08769, 14.69704, .86493, .63233,
1022 + .49602, .77727, .87446,
1023 + .15879, .08895, 14.98985, .88619, .65502,
1024 + .52024, .79905, .89592,
1025 + .16099, .09016, 15.25549, .90649, .67655,
1026 + .54304, .81983, .91640,
1027 + .16309, .09132, 15.50607, .92588, .69726,
1028 + .56512, .83970, .93597,
1029 + .16504, .09239, 15.72301, .94363, .71610,
1030 + .58508, .85788, .95389 /
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 + .16701, .09347, 15.93920, .96157, .73525,
1033 + .60546, .87627, .97200,
1034 + .16893, .09452, 16.13824, .97885, .75366,
1035 + .62500, .89399, .98945,
1036 + .17076, .09551, 16.32100, .99518, .77106,
1037 + .64349, .91072, 1.00593,
1038 + .17248, .09645, 16.48938, 1.01057, .78751,
1039 + .66101, .92650, 1.02147,
1040 + .17420, .09738, 16.64503, 1.02564, .80356,
1041 + .67802, .94196, 1.03668 /
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 + .09696, .05430, 1.07530, .21824, .00000,
1044 + .00000, .11866, .22210,
1045 + .10056, .05647, 1.52653, .23099, .00000,
1046 + .00000, .13221, .23521,
1047 + .10576, .05960, 2.20446, .25130, .00000,
1048 + .00000, .15366, .25603,
1049 + .10947, .06181, 2.70099, .26707, .00890,
1050 + .00000, .17023, .27216,
1051 + .11327, .06406, 3.19085, .28424, .02941,
1052 + .00000, .18821, .28971,
1053 + .11650, .06597, 3.61552, .29955, .04653,
1054 + .00000, .20422, .30534,
1055 + .11957, .06777, 4.02789, .31459, .06349,
1056 + .00000, .21990, .32067,
1057 + .12279, .06966, 4.46771, .33088, .08214,
1058 + .00000, .23687, .33727 /
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 + .12555, .07128, 4.84153, .34525, .09787,
1061 + .00000, .25182, .35191,
1062 + .12819, .07281, 5.19906, .35928, .11333,
1063 + .00000, .26640, .36619,
1064 + .13027, .07402, 5.48452, .37057, .12598,
1065 + .00000, .27812, .37767,
1066 + .13461, .07653, 6.05489, .39482, .15265,
1067 + .00288, .30327, .40234,
1068 + .13827, .07863, 6.50008, .41575, .17548,
1069 + .03044, .32496, .42362,
1070 + .14230, .08094, 6.98276, .43931, .20124,
1071 + .06230, .34935, .44755,
1072 + .14644, .08329, 7.46867, .46375, .22794,
1073 + .09171, .37464, .47238,
1074 + .15014, .08539, 7.89232, .48580, .25203,
1075 + .11828, .39745, .49478 /
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 + .15382, .08746, 8.30384, .50794, .27624,
1078 + .14486, .42035, .51726,
1079 + .15682, .08915, 8.62972, .52612, .29604,
1080 + .16631, .43915, .53572,
1081 + .16042, .09116, 9.00551, .54787, .31966,
1082 + .19184, .46163, .55779,
1083 + .16356, .09291, 9.32459, .56694, .34045,
1084 + .21444, .48135, .57715,
1085 + .16641, .09449, 9.60606, .58428, .35940,
1086 + .23506, .49928, .59475,
1087 + .16996, .09645, 9.93866, .60576, .38271,
1088 + .26016, .52148, .61654,
1089 + .17326, .09826, 10.23544, .62566, .40440,
1090 + .28362, .54207, .63674,
1091 + .17632, .09994, 10.50199, .64414, .42462,
1092 + .30560, .56118, .65549 /
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 + .17931, .10157, 10.74483, .66199, .44401,
1095 + .32643, .57966, .67361,
1096 + .18221, .10314, 10.97214, .67927, .46287,
1097 + .34682, .59753, .69113,
1098 + .18493, .10461, 11.17556, .69534, .48045,
1099 + .36584, .61418, .70745,
1100 + .18745, .10596, 11.35169, .71005, .49650,
1101 + .38312, .62941, .72237,
1102 + .18997, .10732, 11.52371, .72477, .51264,
1103 + .40061, .64466, .73731,
1104 + .19240, .10861, 11.67565, .73867, .52782,
1105 + .41695, .65907, .75142,
1106 + .19470, .10984, 11.81783, .75189, .54236,
1107 + .43272, .67278, .76484,
1108 + .19684, .11097, 11.93712, .76387, .55548,
1109 + .44686, .68522, .77700 /
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 + .19899, .11211, 12.05493, .77594, .56876,
1112 + .46125, .69775, .78925,
1113 + .20108, .11322, 12.16033, .78747, .58143,
1114 + .47494, .70972, .80095,
1115 + .20306, .11425, 12.25532, .79829, .59336,
1116 + .48784, .72097, .81194,
1117 + .20493, .11523, 12.34145, .80845, .60458,
1118 + .50002, .73153, .82225,
1119 + .20678, .11620, 12.41778, .81830, .61544,
1120 + .51176, .74178, .83226 /
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 + .11301, .06493, 1.16557, .20925, .00000,
1123 + .00000, .11399, .21453,
1124 + .11713, .06739, 1.58011, .22098, .00000,
1125 + .00000, .12653, .22668,
1126 + .12307, .07090, 2.19209, .23938, .00000,
1127 + .00000, .14609, .24569,
1128 + .12729, .07339, 2.63254, .25349, .00804,
1129 + .00000, .16102, .26022,
1130 + .13159, .07590, 3.06086, .26869, .02650,
1131 + .00000, .17706, .27587,
1132 + .13523, .07802, 3.42774, .28213, .04177,
1133 + .00000, .19120, .28967,
1134 + .13869, .08002, 3.78019, .29523, .05679,
1135 + .00000, .20496, .30310,
1136 + .14232, .08212, 4.15228, .30932, .07319,
1137 + .00000, .21975, .31755 /
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 + .14541, .08389, 4.46541, .32166, .08693,
1140 + .00000, .23268, .33019,
1141 + .14836, .08558, 4.76228, .33363, .10035,
1142 + .00000, .24522, .34245,
1143 + .15068, .08690, 4.99766, .34321, .11129,
1144 + .00000, .25525, .35226,
1145 + .15551, .08964, 5.46199, .36366, .13418,
1146 + .00253, .27662, .37317,
1147 + .15957, .09193, 5.81788, .38116, .15363,
1148 + .02617, .29490, .39106,
1149 + .16403, .09443, 6.19869, .40069, .17539,
1150 + .05337, .31530, .41102,
1151 + .16858, .09696, 6.57695, .42078, .19778,
1152 + .07827, .33627, .43153,
1153 + .17264, .09921, 6.90231, .43875, .21783,
1154 + .10060, .35503, .44988 /
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 + .17667, .10143, 7.21433, .45666, .23784,
1157 + .12279, .37372, .46817,
1158 + .17995, .10323, 7.45827, .47125, .25408,
1159 + .14058, .38896, .48306,
1160 + .18385, .10536, 7.73589, .48859, .27334,
1161 + .16163, .40706, .50075,
1162 + .18726, .10720, 7.96866, .50368, .29019,
1163 + .18016, .42283, .51616,
1164 + .19034, .10887, 8.17162, .51732, .30546,
1165 + .19696, .43708, .53008,
1166 + .19417, .11092, 8.40754, .53408, .32412,
1167 + .21730, .45460, .54717,
1168 + .19770, .11281, 8.61491, .54950, .34136,
1169 + .23619, .47073, .56291,
1170 + .20097, .11455, 8.79872, .56372, .35735,
1171 + .25379, .48561, .57742 /
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 + .20417, .11624, 8.96251, .57735, .37257,
1174 + .27036, .49989, .59132,
1175 + .20725, .11786, 9.11366, .59045, .38730,
1176 + .28650, .51362, .60469,
1177 + .21013, .11937, 9.24670, .60257, .40096,
1178 + .30149, .52633, .61706,
1179 + .21280, .12075, 9.35920, .61357, .41334,
1180 + .31502, .53788, .62829,
1181 + .21546, .12213, 9.46784, .62453, .42574,
1182 + .32867, .54940, .63947,
1183 + .21801, .12345, 9.56074, .63479, .43733,
1184 + .34134, .56019, .64994,
1185 + .22042, .12469, 9.64695, .64452, .44839,
1186 + .35353, .57043, .65987,
1187 + .22265, .12584, 9.71638, .65326, .45831,
1188 + .36439, .57964, .66879 /
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 + .22490, .12698, 9.78426, .66202, .46832,
1191 + .37541, .58888, .67774,
1192 + .22707, .12808, 9.84262, .67033, .47780,
1193 + .38585, .59766, .68623,
1194 + .22912, .12912, 9.89386, .67809, .48669,
1195 + .39564, .60587, .69415,
1196 + .23105, .13010, 9.93929, .68534, .49503,
1197 + .40485, .61354, .70156,
1198 + .23296, .13106, 9.97684, .69231, .50304,
1199 + .41368, .62092, .70868 /
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 + .12767, .07473, 1.24300, .20274, .00000,
1202 + .00000, .11068, .20947,
1203 + .13223, .07742, 1.62686, .21363, .00000,
1204 + .00000, .12240, .22084,
1205 + .13879, .08124, 2.18573, .23050, .00000,
1206 + .00000, .14048, .23839,
1207 + .14343, .08394, 2.58222, .24331, .00739,
1208 + .00000, .15414, .25168,
1209 + .14815, .08665, 2.96315, .25700, .02431,
1210 + .00000, .16869, .26585,
1211 + .15214, .08893, 3.28631, .26901, .03819,
1212 + .00000, .18143, .27826,
1213 + .15591, .09107, 3.59402, .28064, .05177,
1214 + .00000, .19375, .29027,
1215 + .15986, .09331, 3.91614, .29308, .06652,
1216 + .00000, .20692, .30310 /
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 + .16322, .09520, 4.18493, .30391, .07879,
1219 + .00000, .21836, .31426,
1220 + .16641, .09700, 4.43791, .31436, .09073,
1221 + .00000, .22940, .32502,
1222 + .16893, .09840, 4.63734, .32269, .10043,
1223 + .00000, .23820, .33360,
1224 + .17415, .10130, 5.02634, .34036, .12060,
1225 + .00228, .25684, .35177,
1226 + .17851, .10371, 5.31957, .35538, .13763,
1227 + .02310, .27267, .36721,
1228 + .18330, .10633, 5.62969, .37202, .15657,
1229 + .04700, .29021, .38430,
1230 + .18817, .10898, 5.93421, .38902, .17592,
1231 + .06871, .30813, .40175,
1232 + .19249, .11132, 6.19298, .40412, .19314,
1233 + .08807, .32405, .41725 /
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 + .19677, .11362, 6.43815, .41906, .21023,
1236 + .10720, .33981, .43259,
1237 + .20025, .11548, 6.62758, .43116, .22402,
1238 + .12246, .35258, .44501,
1239 + .20438, .11767, 6.84055, .44544, .24029,
1240 + .14042, .36766, .45965,
1241 + .20797, .11957, 7.01695, .45780, .25445,
1242 + .15616, .38072, .47233,
1243 + .21120, .12127, 7.16898, .46891, .26723,
1244 + .17037, .39247, .48373,
1245 + .21521, .12336, 7.34273, .48246, .28274,
1246 + .18747, .40682, .49763,
1247 + .21891, .12527, 7.49313, .49486, .29701,
1248 + .20328, .41995, .51035,
1249 + .22232, .12704, 7.62462, .50622, .31017,
1250 + .21795, .43200, .52200 /
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 + .22563, .12873, 7.73899, .51702, .32262,
1253 + .23168, .44347, .53308,
1254 + .22883, .13036, 7.84291, .52735, .33462,
1255 + .24501, .45446, .54368,
1256 + .23181, .13187, 7.93266, .53685, .34570,
1257 + .25732, .46458, .55343,
1258 + .23455, .13325, 8.00640, .54541, .35568,
1259 + .26839, .47371, .56222,
1260 + .23727, .13462, 8.07669, .55390, .36565,
1261 + .27952, .48278, .57093,
1262 + .23989, .13592, 8.13397, .56179, .37491,
1263 + .28980, .49122, .57903,
1264 + .24236, .13714, 8.18656, .56924, .38372,
1265 + .29966, .49920, .58668,
1266 + .24463, .13826, 8.22652, .57587, .39157,
1267 + .30840, .50632, .59349 /
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 + .24691, .13938, 8.26506, .58251, .39948,
1270 + .31725, .51346, .60030,
1271 + .24912, .14046, 8.29601, .58875, .40693,
1272 + .32559, .52018, .60672,
1273 + .25119, .14147, 8.32191, .59456, .41389,
1274 + .33339, .52645, .61268,
1275 + .25314, .14241, 8.34394, .59995, .42039,
1276 + .34071, .53228, .61823,
1277 + .25507, .14334, 8.35953, .60509, .42660,
1278 + .34769, .53785, .62351 /
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 + .15435, .09263, 1.36579, .19332, .00000,
1281 + .00000, .10604, .20299,
1282 + .15963, .09564, 1.69911, .20284, .00000,
1283 + .00000, .11646, .21306,
1284 + .16718, .09989, 2.17408, .21731, .00000,
1285 + .00000, .13223, .22832,
1286 + .17249, .10287, 2.50335, .22812, .00643,
1287 + .00000, .14397, .23967,
1288 + .17785, .10584, 2.81342, .23952, .02106,
1289 + .00000, .15631, .25162,
1290 + .18237, .10832, 3.07237, .24939, .03293,
1291 + .00000, .16697, .26195,
1292 + .18663, .11065, 3.31543, .25886, .04443,
1293 + .00000, .17720, .27184,
1294 + .19106, .11307, 3.56637, .26890, .05681,
1295 + .00000, .18802, .28231 /
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 + .19482, .11510, 3.77293, .27754, .06702,
1298 + .00000, .19734, .29132,
1299 + .19838, .11702, 3.96497, .28581, .07688,
1300 + .00000, .20625, .29993,
1301 + .20117, .11851, 4.11490, .29237, .08483,
1302 + .00000, .21332, .30676,
1303 + .20695, .12159, 4.40145, .30613, .10124,
1304 + .00192, .22813, .32107,
1305 + .21174, .12411, 4.61095, .31769, .11494,
1306 + .01887, .24057, .33307,
1307 + .21697, .12685, 4.82778, .33036, .13003,
1308 + .03823, .25421, .34621,
1309 + .22227, .12960, 5.03606, .34312, .14528,
1310 + .05562, .26797, .35946,
1311 + .22695, .13200, 5.20915, .35432, .15873,
1312 + .07098, .28007, .37108 /
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 + .23155, .13435, 5.36957, .36529, .17194,
1315 + .08603, .29192, .38245,
1316 + .23527, .13623, 5.49045, .37406, .18251,
1317 + .09794, .30142, .39155,
1318 + .23966, .13844, 5.62298, .38431, .19486,
1319 + .11183, .31252, .40216,
1320 + .24345, .14033, 5.73009, .39308, .20553,
1321 + .12391, .32205, .41126,
1322 + .24686, .14202, 5.82023, .40089, .21507,
1323 + .13475, .33055, .41935,
1324 + .25106, .14408, 5.91909, .41029, .22656,
1325 + .14768, .34080, .42909,
1326 + .25491, .14596, 6.00164, .41879, .23702,
1327 + .15954, .35009, .43790,
1328 + .25844, .14767, 6.07151, .42650, .24661,
1329 + .17047, .35855, .44590 /
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 + .26185, .14930, 6.12828, .43371, .25558,
1332 + .18060, .36648, .45337,
1333 + .26512, .15086, 6.17762, .44054, .26415,
1334 + .19037, .37401, .46045,
1335 + .26815, .15230, 6.21777, .44676, .27201,
1336 + .19933, .38088, .46689,
1337 + .27093, .15359, 6.24755, .45227, .27902,
1338 + .20733, .38700, .47262,
1339 + .27368, .15488, 6.27464, .45771, .28600,
1340 + .21533, .39305, .47826,
1341 + .27630, .15608, 6.29286, .46266, .29239,
1342 + .22265, .39859, .48340,
1343 + .27877, .15722, 6.30888, .46732, .29846,
1344 + .22965, .40381, .48823,
1345 + .28102, .15824, 6.31684, .47138, .30381,
1346 + .23580, .40840, .49245 /
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 + .28328, .15926, 6.32363, .47543, .30916,
1349 + .24199, .41297, .49665,
1350 + .28544, .16023, 6.32539, .47916, .31417,
1351 + .24779, .41721, .50054,
1352 + .28748, .16114, 6.32461, .48260, .31881,
1353 + .25318, .42113, .50411,
1354 + .28938, .16198, 6.32216, .48576, .32312,
1355 + .25821, .42476, .50740,
1356 + .29124, .16280, 6.31505, .48871, .32720,
1357 + .26297, .42817, .51047 /
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 + .19033, .11648, 1.48770, .18316, .00000,
1360 + .00000, .10127, .19724,
1361 + .19639, .11975, 1.76180, .19104, .00000,
1362 + .00000, .11018, .20574,
1363 + .20499, .12434, 2.14322, .20278, .00000,
1364 + .00000, .12339, .21835,
1365 + .21100, .12752, 2.40063, .21140, .00542,
1366 + .00000, .13304, .22757,
1367 + .21702, .13066, 2.63697, .22036, .01768,
1368 + .00000, .14305, .23710,
1369 + .22206, .13327, 2.83079, .22800, .02751,
1370 + .00000, .15158, .24523,
1371 + .22678, .13570, 3.00968, .23525, .03692,
1372 + .00000, .15967, .25291,
1373 + .23167, .13820, 3.19134, .24284, .04695,
1374 + .00000, .16814, .26096 /
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 + .23580, .14030, 3.33827, .24930, .05514,
1377 + .00000, .17535, .26779,
1378 + .23969, .14226, 3.47276, .25542, .06298,
1379 + .00000, .18218, .27427,
1380 + .24273, .14378, 3.57650, .26024, .06927,
1381 + .00000, .18756, .27936,
1382 + .24897, .14687, 3.76922, .27022, .08210,
1383 + .00157, .19871, .28988,
1384 + .25411, .14939, 3.90364, .27848, .09269,
1385 + .01487, .20794, .29858,
1386 + .25968, .15209, 4.03854, .28740, .10422,
1387 + .02998, .21794, .30797,
1388 + .26527, .15477, 4.16403, .29624, .11574,
1389 + .04339, .22788, .31727,
1390 + .27016, .15710, 4.26461, .30388, .12577,
1391 + .05510, .23649, .32530 /
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 + .27494, .15934, 4.35438, .31125, .13552,
1394 + .06646, .24482, .33304,
1395 + .27878, .16112, 4.41930, .31705, .14324,
1396 + .07537, .25142, .33914,
1397 + .28327, .16319, 4.48686, .32371, .15217,
1398 + .08567, .25901, .34613,
1399 + .28713, .16494, 4.53881, .32934, .15980,
1400 + .09455, .26545, .35203,
1401 + .29057, .16649, 4.58040, .33428, .16657,
1402 + .10245, .27114, .35722,
1403 + .29477, .16835, 4.62176, .34011, .17462,
1404 + .11178, .27788, .36334,
1405 + .29859, .17003, 4.65303, .34528, .18188,
1406 + .12026, .28391, .36877,
1407 + .30207, .17154, 4.67691, .34991, .18847,
1408 + .12801, .28933, .37363 /
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 + .30539, .17296, 4.69149, .35412, .19455,
1411 + .13512, .29431, .37805,
1412 + .30856, .17431, 4.70151, .35805, .20032,
1413 + .14192, .29898, .38218,
1414 + .31147, .17553, 4.70659, .36156, .20555,
1415 + .14812, .30319, .38586,
1416 + .31411, .17661, 4.70585, .36459, .21016,
1417 + .15358, .30687, .38905,
1418 + .31672, .17768, 4.70330, .36755, .21471,
1419 + .15903, .31047, .39215,
1420 + .31916, .17866, 4.69513, .37015, .21883,
1421 + .16395, .31370, .39488,
1422 + .32147, .17958, 4.68665, .37257, .22272,
1423 + .16863, .31671, .39742,
1424 + .32354, .18040, 4.67403, .37461, .22608,
1425 + .17270, .31929, .39956 /
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 + .32561, .18120, 4.66070, .37661, .22944,
1428 + .17678, .32184, .40166,
1429 + .32757, .18195, 4.64431, .37839, .23254,
1430 + .18056, .32415, .40353,
1431 + .32941, .18265, 4.62718, .37998, .23538,
1432 + .18406, .32625, .40521,
1433 + .33112, .18328, 4.60993, .38142, .23801,
1434 + .18730, .32817, .40673,
1435 + .33277, .18389, 4.58947, .38268, .24045,
1436 + .19032, .32991, .40806 /
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 + .24406, .15077, 1.57748, .16994, .00000,
1439 + .00000, .09542, .19114,
1440 + .25090, .15413, 1.77948, .17574, .00000,
1441 + .00000, .10241, .19758,
1442 + .26049, .15877, 2.05243, .18419, .00000,
1443 + .00000, .11255, .20686,
1444 + .26712, .16193, 2.23024, .19025, .00430,
1445 + .00000, .11981, .21349,
1446 + .27368, .16502, 2.38745, .19644, .01393,
1447 + .00000, .12720, .22022,
1448 + .27912, .16754, 2.51330, .20163, .02154,
1449 + .00000, .13339, .22585,
1450 + .28418, .16987, 2.62682, .20647, .02874,
1451 + .00000, .13918, .23109,
1452 + .28938, .17223, 2.73945, .21146, .03632,
1453 + .00000, .14517, .23648 /
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 + .29373, .17418, 2.82823, .21564, .04243,
1456 + .00000, .15020, .24098,
1457 + .29780, .17599, 2.90761, .21955, .04823,
1458 + .00000, .15490, .24518,
1459 + .30095, .17739, 2.96778, .22259, .05285,
1460 + .00000, .15857, .24844,
1461 + .30737, .18017, 3.07382, .22878, .06214,
1462 + .00121, .16606, .25508,
1463 + .31258, .18240, 3.14080, .23380, .06971,
1464 + .01091, .17215, .26044,
1465 + .31816, .18474, 3.20394, .23910, .07783,
1466 + .02187, .17863, .26608,
1467 + .32368, .18702, 3.25861, .24421, .08583,
1468 + .03144, .18494, .27153,
1469 + .32845, .18895, 3.29858, .24852, .09269,
1470 + .03970, .19030, .27610 /
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 + .33305, .19077, 3.33065, .25256, .09927,
1473 + .04762, .19539, .28039,
1474 + .33669, .19219, 3.35079, .25566, .10442,
1475 + .05376, .19934, .28367,
1476 + .34090, .19379, 3.36767, .25911, .11029,
1477 + .06078, .20379, .28732,
1478 + .34447, .19513, 3.37743, .26194, .11524,
1479 + .06676, .20749, .29031,
1480 + .34762, .19628, 3.38247, .26436, .11958,
1481 + .07204, .21070, .29286,
1482 + .35139, .19762, 3.38158, .26709, .12467,
1483 + .07819, .21440, .29573,
1484 + .35476, .19880, 3.37607, .26942, .12918,
1485 + .08372, .21763, .29818,
1486 + .35780, .19983, 3.36771, .27144, .13323,
1487 + .08872, .22047, .30029 /
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 + .36065, .20075, 3.35369, .27314, .13690,
1490 + .09324, .22298, .30207,
1491 + .36333, .20160, 3.33766, .27468, .14034,
1492 + .09753, .22529, .30367,
1493 + .36574, .20235, 3.32008, .27598, .14341,
1494 + .10139, .22731, .30502,
1495 + .36789, .20299, 3.30036, .27701, .14607,
1496 + .10475, .22900, .30608,
1497 + .36999, .20360, 3.27976, .27797, .14867,
1498 + .10807, .23062, .30707,
1499 + .37192, .20412, 3.25626, .27870, .15097,
1500 + .11103, .23200, .30782,
1501 + .37372, .20460, 3.23380, .27937, .15313,
1502 + .11383, .23327, .30850,
1503 + .37529, .20499, 3.20996, .27981, .15495,
1504 + .11622, .23427, .30894 /
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 + .37684, .20538, 3.18584, .28023, .15675,
1507 + .11861, .23524, .30935,
1508 + .37828, .20571, 3.16039, .28052, .15838,
1509 + .12079, .23606, .30962,
1510 + .37961, .20599, 3.13550, .28072, .15985,
1511 + .12278, .23678, .30981,
1512 + .38083, .20624, 3.11153, .28087, .16119,
1513 + .12461, .23740, .30994,
1514 + .38197, .20645, 3.08570, .28089, .16239,
1515 + .12629, .23790, .30993 /
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 + .29280, .18008, 1.57825, .15831, .00000,
1518 + .00000, .09047, .18610,
1519 + .29995, .18325, 1.72940, .16255, .00000,
1520 + .00000, .09602, .19086,
1521 + .30987, .18754, 1.92892, .16861, .00000,
1522 + .00000, .10392, .19762,
1523 + .31665, .19043, 2.05503, .17291, .00352,
1524 + .00000, .10949, .20236,
1525 + .32329, .19318, 2.16242, .17722, .01136,
1526 + .00000, .11511, .20709,
1527 + .32875, .19541, 2.24657, .18078, .01750,
1528 + .00000, .11975, .21097,
1529 + .33378, .19743, 2.32090, .18405, .02326,
1530 + .00000, .12404, .21453,
1531 + .33891, .19946, 2.39301, .18739, .02927,
1532 + .00000, .12843, .21814 /
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 + .34314, .20111, 2.44831, .19014, .03408,
1535 + .00000, .13207, .22110,
1536 + .34707, .20261, 2.49649, .19268, .03861,
1537 + .00000, .13544, .22381,
1538 + .35011, .20377, 2.53234, .19463, .04219,
1539 + .00000, .13806, .22590,
1540 + .35622, .20601, 2.59122, .19854, .04934,
1541 + .00097, .14332, .23008,
1542 + .36110, .20775, 2.62285, .20163, .05510,
1543 + .00848, .14754, .23335,
1544 + .36626, .20954, 2.64930, .20482, .06122,
1545 + .01693, .15194, .23670,
1546 + .37128, .21122, 2.66868, .20781, .06718,
1547 + .02423, .15616, .23983,
1548 + .37556, .21260, 2.67927, .21023, .07224,
1549 + .03048, .15967, .24235 /
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 + .37962, .21385, 2.68406, .21243, .07705,
1552 + .03641, .16293, .24461,
1553 + .38279, .21480, 2.68342, .21404, .08076,
1554 + .04097, .16541, .24626,
1555 + .38638, .21581, 2.67751, .21576, .08495,
1556 + .04613, .16815, .24800,
1557 + .38937, .21662, 2.66880, .21711, .08845,
1558 + .05051, .17037, .24935,
1559 + .39198, .21729, 2.65823, .21820, .09149,
1560 + .05434, .17225, .25045,
1561 + .39502, .21800, 2.64003, .21933, .09500,
1562 + .05875, .17435, .25155,
1563 + .39770, .21858, 2.61996, .22021, .09809,
1564 + .06268, .17613, .25237,
1565 + .40007, .21906, 2.59924, .22090, .10082,
1566 + .06621, .17763, .25301 /
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 + .40220, .21944, 2.57493, .22138, .10326,
1569 + .06937, .17891, .25340,
1570 + .40416, .21974, 2.54985, .22173, .10551,
1571 + .07233, .18002, .25367,
1572 + .40590, .21997, 2.52473, .22195, .10750,
1573 + .07498, .18095, .25380,
1574 + .40740, .22011, 2.49919, .22201, .10920,
1575 + .07726, .18166, .25377,
1576 + .40884, .22023, 2.47332, .22203, .11084,
1577 + .07950, .18233, .25370,
1578 + .41008, .22027, 2.44586, .22190, .11226,
1579 + .08147, .18281, .25346,
1580 + .41123, .22030, 2.41996, .22176, .11358,
1581 + .08332, .18325, .25320,
1582 + .41218, .22026, 2.39389, .22149, .11466,
1583 + .08488, .18352, .25282 /
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 + .41311, .22020, 2.36779, .22120, .11573,
1586 + .08643, .18376, .25241,
1587 + .41393, .22009, 2.34115, .22082, .11666,
1588 + .08783, .18390, .25192,
1589 + .41464, .21997, 2.31555, .22041, .11749,
1590 + .08909, .18398, .25140,
1591 + .41529, .21984, 2.29121, .22000, .11824,
1592 + .09024, .18402, .25087,
1593 + .41583, .21965, 2.26568, .21949, .11889,
1594 + .09128, .18396, .25023 /
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 + .37965, .22768, 1.44969, .13699, .00000,
1597 + .00000, .08138, .17552,
1598 + .38647, .22998, 1.53813, .13913, .00000,
1599 + .00000, .08488, .17781,
1600 + .39573, .23294, 1.65047, .14209, .00000,
1601 + .00000, .08978, .18093,
1602 + .40187, .23483, 1.71754, .14415, .00251,
1603 + .00000, .09317, .18302,
1604 + .40775, .23653, 1.77004, .14615, .00806,
1605 + .00000, .09650, .18505,
1606 + .41246, .23782, 1.80925, .14776, .01235,
1607 + .00000, .09920, .18662,
1608 + .41671, .23894, 1.84227, .14919, .01633,
1609 + .00000, .10166, .18800,
1610 + .42097, .24001, 1.87257, .15060, .02044,
1611 + .00000, .10412, .18933 /
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 + .42441, .24080, 1.89400, .15171, .02368,
1614 + .00000, .10612, .19035,
1615 + .42752, .24148, 1.91117, .15269, .02671,
1616 + .00000, .10794, .19124,
1617 + .42989, .24196, 1.92320, .15343, .02909,
1618 + .00000, .10933, .19190,
1619 + .43448, .24282, 1.93727, .15484, .03378,
1620 + .00069, .11205, .19308,
1621 + .43800, .24335, 1.93696, .15586, .03749,
1622 + .00564, .11416, .19389,
1623 + .44157, .24378, 1.93114, .15680, .04138,
1624 + .01119, .11629, .19458,
1625 + .44488, .24406, 1.92045, .15756, .04510,
1626 + .01592, .11822, .19504,
1627 + .44755, .24416, 1.90689, .15807, .04821,
1628 + .01991, .11975, .19526 /
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 + .44994, .24413, 1.89006, .15841, .05111,
1631 + .02365, .12110, .19529,
1632 + .45169, .24401, 1.87364, .15857, .05331,
1633 + .02649, .12206, .19517,
1634 + .45353, .24374, 1.85103, .15860, .05575,
1635 + .02966, .12303, .19487,
1636 + .45494, .24342, 1.82939, .15852, .05776,
1637 + .03231, .12376, .19449,
1638 + .45608, .24307, 1.80839, .15837, .05947,
1639 + .03460, .12432, .19404,
1640 + .45725, .24248, 1.77942, .15801, .06140,
1641 + .03720, .12485, .19330,
1642 + .45813, .24185, 1.75100, .15758, .06306,
1643 + .03949, .12522, .19249,
1644 + .45880, .24122, 1.72377, .15710, .06450,
1645 + .04151, .12547, .19166 /
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 + .45922, .24049, 1.69491, .15649, .06574,
1648 + .04328, .12556, .19068,
1649 + .45951, .23971, 1.66640, .15583, .06686,
1650 + .04493, .12558, .18967,
1651 + .45968, .23892, 1.63904, .15514, .06783,
1652 + .04637, .12552, .18865,
1653 + .45966, .23812, 1.61256, .15441, .06862,
1654 + .04759, .12536, .18760,
1655 + .45959, .23731, 1.58621, .15367, .06937,
1656 + .04877, .12518, .18653,
1657 + .45934, .23643, 1.55953, .15285, .06998,
1658 + .04979, .12489, .18538,
1659 + .45908, .23560, 1.53463, .15206, .07054,
1660 + .05073, .12461, .18430,
1661 + .45867, .23475, 1.51045, .15125, .07097,
1662 + .05150, .12425, .18319 /
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 + .45824, .23389, 1.48648, .15042, .07139,
1665 + .05227, .12388, .18207,
1666 + .45771, .23300, 1.46257, .14956, .07172,
1667 + .05293, .12347, .18091,
1668 + .45716, .23213, 1.43992, .14872, .07200,
1669 + .05352, .12304, .17978,
1670 + .45659, .23130, 1.41863, .14791, .07224,
1671 + .05405, .12262, .17871,
1672 + .45591, .23041, 1.39684, .14704, .07241,
1673 + .05450, .12213, .17757 /
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 + .45489, .26380, 1.26402, .11770, .00000,
1676 + .00000, .07277, .16328,
1677 + .46053, .26487, 1.32047, .11862, .00000,
1678 + .00000, .07500, .16387,
1679 + .46785, .26607, 1.38969, .11985, .00000,
1680 + .00000, .07804, .16458,
1681 + .47256, .26667, 1.42871, .12068, .00190,
1682 + .00000, .08011, .16499,
1683 + .47686, .26706, 1.45610, .12146, .00607,
1684 + .00000, .08213, .16531,
1685 + .48017, .26721, 1.47518, .12203, .00927,
1686 + .00000, .08372, .16548,
1687 + .48307, .26724, 1.49005, .12250, .01221,
1688 + .00000, .08513, .16554,
1689 + .48586, .26717, 1.50236, .12293, .01523,
1690 + .00000, .08652, .16553 /
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 + .48799, .26699, 1.50946, .12321, .01759,
1693 + .00000, .08762, .16542,
1694 + .48982, .26674, 1.51379, .12344, .01977,
1695 + .00000, .08860, .16525,
1696 + .49117, .26649, 1.51609, .12359, .02148,
1697 + .00000, .08933, .16509,
1698 + .49358, .26580, 1.51263, .12378, .02481,
1699 + .00052, .09070, .16462,
1700 + .49520, .26504, 1.50076, .12383, .02741,
1701 + .00405, .09172, .16408,
1702 + .49664, .26404, 1.48384, .12374, .03011,
1703 + .00801, .09268, .16333,
1704 + .49771, .26285, 1.46332, .12349, .03265,
1705 + .01134, .09348, .16240,
1706 + .49833, .26166, 1.44231, .12315, .03474,
1707 + .01411, .09403, .16143 /
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 + .49867, .26035, 1.41925, .12271, .03667,
1710 + .01669, .09444, .16035,
1711 + .49871, .25917, 1.39866, .12225, .03810,
1712 + .01862, .09468, .15935,
1713 + .49848, .25766, 1.37218, .12159, .03967,
1714 + .02075, .09483, .15805,
1715 + .49807, .25626, 1.34798, .12094, .04093,
1716 + .02252, .09487, .15684,
1717 + .49755, .25493, 1.32530, .12030, .04200,
1718 + .02403, .09484, .15568,
1719 + .49660, .25314, 1.29526, .11938, .04317,
1720 + .02572, .09467, .15410,
1721 + .49553, .25140, 1.26664, .11846, .04415,
1722 + .02719, .09443, .15257,
1723 + .49439, .24974, 1.23980, .11755, .04499,
1724 + .02847, .09415, .15111 /
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 + .49300, .24799, 1.21217, .11657, .04567,
1727 + .02957, .09375, .14956,
1728 + .49154, .24626, 1.18532, .11557, .04628,
1729 + .03058, .09332, .14802,
1730 + .49004, .24460, 1.15997, .11460, .04679,
1731 + .03145, .09287, .14654,
1732 + .48848, .24298, 1.13587, .11364, .04718,
1733 + .03217, .09238, .14509,
1734 + .48687, .24136, 1.11211, .11268, .04754,
1735 + .03286, .09187, .14364,
1736 + .48512, .23971, 1.08845, .11168, .04780,
1737 + .03344, .09131, .14218,
1738 + .48345, .23816, 1.06653, .11073, .04804,
1739 + .03397, .09077, .14080,
1740 + .48173, .23663, 1.04557, .10979, .04820,
1741 + .03439, .09021, .13944 /
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 + .47999, .23510, 1.02492, .10886, .04834,
1744 + .03480, .08964, .13809,
1745 + .47817, .23356, 1.00456, .10790, .04843,
1746 + .03514, .08904, .13674,
1747 + .47640, .23209, .98541, .10698, .04850,
1748 + .03544, .08846, .13544,
1749 + .47469, .23069, .96753, .10611, .04854,
1750 + .03571, .08789, .13421,
1751 + .47287, .22925, .94942, .10520, .04853,
1752 + .03592, .08729, .13294 /
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 + .51966, .29071, 1.08639, .10059, .00000,
1755 + .00000, .06456, .14952,
1756 + .52349, .29042, 1.12685, .10082, .00000,
1757 + .00000, .06597, .14900,
1758 + .52812, .28967, 1.17464, .10111, .00000,
1759 + .00000, .06786, .14810,
1760 + .53086, .28888, 1.19997, .10127, .00150,
1761 + .00000, .06911, .14743,
1762 + .53310, .28787, 1.21550, .10138, .00478,
1763 + .00000, .07030, .14668,
1764 + .53461, .28685, 1.22505, .10142, .00728,
1765 + .00000, .07122, .14596,
1766 + .53578, .28578, 1.23139, .10139, .00956,
1767 + .00000, .07201, .14521,
1768 + .53675, .28455, 1.23527, .10130, .01188,
1769 + .00000, .07277, .14437 /
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 + .53729, .28338, 1.23571, .10117, .01368,
1772 + .00000, .07333, .14358,
1773 + .53760, .28219, 1.23409, .10100, .01534,
1774 + .00000, .07380, .14279,
1775 + .53775, .28123, 1.23193, .10085, .01663,
1776 + .00000, .07414, .14214,
1777 + .53763, .27903, 1.22081, .10044, .01912,
1778 + .00041, .07476, .14069,
1779 + .53710, .27701, 1.20439, .10000, .02104,
1780 + .00306, .07515, .13938,
1781 + .53614, .27466, 1.18335, .09942, .02300,
1782 + .00603, .07543, .13785,
1783 + .53476, .27210, 1.15943, .09871, .02483,
1784 + .00849, .07559, .13615,
1785 + .53320, .26970, 1.13612, .09799, .02631,
1786 + .01052, .07562, .13454 /
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 + .53135, .26721, 1.11142, .09718, .02765,
1789 + .01239, .07554, .13286,
1790 + .52960, .26509, 1.09003, .09646, .02864,
1791 + .01377, .07538, .13142,
1792 + .52721, .26246, 1.06321, .09552, .02969,
1793 + .01529, .07510, .12964,
1794 + .52494, .26009, 1.03916, .09464, .03052,
1795 + .01653, .07479, .12803,
1796 + .52275, .25791, 1.01696, .09381, .03122,
1797 + .01758, .07447, .12653,
1798 + .51970, .25506, .98814, .09269, .03195,
1799 + .01873, .07397, .12459,
1800 + .51667, .25237, .96111, .09160, .03255,
1801 + .01973, .07343, .12274,
1802 + .51374, .24985, .93606, .09057, .03305,
1803 + .02058, .07290, .12101 /
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 + .51061, .24726, .91069, .08948, .03343,
1806 + .02130, .07229, .11924,
1807 + .50747, .24473, .88628, .08840, .03376,
1808 + .02196, .07167, .11752,
1809 + .50440, .24234, .86347, .08737, .03402,
1810 + .02251, .07105, .11588,
1811 + .50139, .24005, .84201, .08637, .03420,
1812 + .02295, .07043, .11431,
1813 + .49836, .23777, .82099, .08538, .03436,
1814 + .02337, .06981, .11276,
1815 + .49525, .23548, .80030, .08436, .03445,
1816 + .02372, .06915, .11121,
1817 + .49231, .23333, .78122, .08340, .03453,
1818 + .02403, .06853, .10977,
1819 + .48937, .23128, .76317, .08249, .03455,
1820 + .02426, .06790, .10838 /
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 + .48643, .22924, .74546, .08157, .03457,
1823 + .02449, .06728, .10699,
1824 + .48345, .22721, .72815, .08065, .03455,
1825 + .02467, .06664, .10562,
1826 + .48060, .22527, .71196, .07977, .03451,
1827 + .02482, .06603, .10431,
1828 + .47788, .22343, .69692, .07894, .03446,
1829 + .02495, .06544, .10309,
1830 + .47505, .22155, .68179, .07808, .03438,
1831 + .02504, .06483, .10185 /
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 + .58672, .31364, .91010, .08230, .00000,
1834 + .00000, .05498, .13107,
1835 + .58775, .31165, .94077, .08216, .00000,
1836 + .00000, .05577, .12967,
1837 + .58831, .30842, .97495, .08185, .00000,
1838 + .00000, .05678, .12762,
1839 + .58815, .30594, .99146, .08161, .00117,
1840 + .00000, .05742, .12614,
1841 + .58742, .30321, .99938, .08132, .00372,
1842 + .00000, .05800, .12461,
1843 + .58638, .30077, 1.00267, .08103, .00564,
1844 + .00000, .05841, .12325,
1845 + .58514, .29837, 1.00332, .08071, .00737,
1846 + .00000, .05873, .12193,
1847 + .58360, .29576, 1.00155, .08031, .00912,
1848 + .00000, .05901, .12052 /
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 + .58199, .29345, .99749, .07992, .01046,
1851 + .00000, .05918, .11927,
1852 + .58024, .29117, .99188, .07952, .01169,
1853 + .00000, .05930, .11805,
1854 + .57879, .28937, .98673, .07921, .01263,
1855 + .00000, .05936, .11707,
1856 + .57532, .28545, .97061, .07845, .01443,
1857 + .00032, .05940, .11501,
1858 + .57199, .28203, .95150, .07775, .01580,
1859 + .00225, .05934, .11322,
1860 + .56797, .27816, .92820, .07690, .01717,
1861 + .00441, .05919, .11119,
1862 + .56349, .27409, .90262, .07595, .01843,
1863 + .00617, .05892, .10905,
1864 + .55917, .27039, .87845, .07503, .01942,
1865 + .00761, .05859, .10708 /
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 + .55462, .26664, .85345, .07406, .02030,
1868 + .00891, .05817, .10510,
1869 + .55071, .26350, .83223, .07321, .02094,
1870 + .00987, .05778, .10346,
1871 + .54574, .25970, .80616, .07216, .02159,
1872 + .01090, .05724, .10144,
1873 + .54125, .25634, .78315, .07121, .02210,
1874 + .01173, .05672, .09966,
1875 + .53708, .25326, .76219, .07031, .02251,
1876 + .01243, .05622, .09805,
1877 + .53157, .24936, .73546, .06915, .02292,
1878 + .01318, .05554, .09597,
1879 + .52630, .24571, .71073, .06805, .02324,
1880 + .01381, .05486, .09404,
1881 + .52134, .24233, .68807, .06701, .02350,
1882 + .01435, .05420, .09225 /
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 + .51622, .23892, .66545, .06595, .02367,
1885 + .01478, .05350, .09046,
1886 + .51120, .23562, .64392, .06490, .02380,
1887 + .01517, .05280, .08873,
1888 + .50643, .23250, .62400, .06390, .02388,
1889 + .01549, .05212, .08713,
1890 + .50182, .22957, .60548, .06295, .02392,
1891 + .01574, .05147, .08562,
1892 + .49722, .22669, .58747, .06202, .02395,
1893 + .01597, .05081, .08412,
1894 + .49259, .22383, .56994, .06109, .02393,
1895 + .01615, .05015, .08263,
1896 + .48826, .22116, .55386, .06022, .02391,
1897 + .01631, .04953, .08125,
1898 + .48406, .21861, .53880, .05938, .02385,
1899 + .01642, .04892, .07994 /
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 + .47987, .21609, .52410, .05855, .02378,
1902 + .01652, .04831, .07865,
1903 + .47569, .21360, .50986, .05772, .02369,
1904 + .01659, .04770, .07738,
1905 + .47170, .21124, .49663, .05693, .02360,
1906 + .01664, .04712, .07619,
1907 + .46793, .20903, .48440, .05620, .02351,
1908 + .01668, .04657, .07507,
1909 + .46405, .20679, .47220, .05546, .02339,
1910 + .01670, .04600, .07394 /
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 + .63907, .32670, .79046, .06724, .00000,
1913 + .00000, .04623, .11225,
1914 + .63699, .32303, .81484, .06694, .00000,
1915 + .00000, .04668, .11045,
1916 + .63308, .31749, .83974, .06641, .00000,
1917 + .00000, .04720, .10781,
1918 + .62978, .31344, .85002, .06601, .00094,
1919 + .00000, .04750, .10595,
1920 + .62589, .30914, .85233, .06554, .00299,
1921 + .00000, .04772, .10406,
1922 + .62220, .30539, .85094, .06509, .00451,
1923 + .00000, .04786, .10243,
1924 + .61848, .30179, .84733, .06462, .00587,
1925 + .00000, .04792, .10088,
1926 + .61436, .29797, .84132, .06410, .00722,
1927 + .00000, .04792, .09924 /
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 + .61055, .29464, .83389, .06363, .00825,
1930 + .00000, .04788, .09779,
1931 + .60675, .29142, .82529, .06314, .00917,
1932 + .00000, .04779, .09640,
1933 + .60371, .28887, .81793, .06274, .00988,
1934 + .00000, .04771, .09531,
1935 + .59690, .28350, .79813, .06187, .01122,
1936 + .00025, .04745, .09301,
1937 + .59087, .27887, .77708, .06105, .01221,
1938 + .00170, .04715, .09108,
1939 + .58392, .27374, .75224, .06012, .01319,
1940 + .00332, .04677, .08892,
1941 + .57650, .26844, .72566, .05909, .01407,
1942 + .00462, .04628, .08667,
1943 + .56963, .26367, .70112, .05812, .01474,
1944 + .00566, .04578, .08466 /
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 + .56259, .25890, .67622, .05713, .01533,
1947 + .00660, .04522, .08265,
1948 + .55666, .25499, .65546, .05630, .01574,
1949 + .00727, .04472, .08098,
1950 + .54936, .25028, .63037, .05525, .01615,
1951 + .00799, .04409, .07898,
1952 + .54289, .24615, .60854, .05431, .01645,
1953 + .00856, .04351, .07724,
1954 + .53696, .24241, .58890, .05344, .01668,
1955 + .00903, .04295, .07568,
1956 + .52928, .23772, .56420, .05235, .01690,
1957 + .00953, .04221, .07369,
1958 + .52206, .23336, .54164, .05131, .01706,
1959 + .00994, .04150, .07187,
1960 + .51535, .22935, .52120, .05034, .01716,
1961 + .01028, .04082, .07020 /
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 + .50854, .22535, .50108, .04936, .01721,
1964 + .01055, .04012, .06854,
1965 + .50192, .22151, .48210, .04842, .01723,
1966 + .01078, .03944, .06694,
1967 + .49570, .21792, .46470, .04752, .01723,
1968 + .01097, .03879, .06547,
1969 + .48978, .21456, .44869, .04667, .01720,
1970 + .01110, .03817, .06409,
1971 + .48392, .21126, .43322, .04582, .01716,
1972 + .01123, .03756, .06275,
1973 + .47809, .20800, .41833, .04500, .01708,
1974 + .01131, .03694, .06143,
1975 + .47265, .20497, .40475, .04423, .01701,
1976 + .01139, .03636, .06021,
1977 + .46742, .20213, .39215, .04350, .01691,
1978 + .01143, .03581, .05906 /
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 + .46222, .19932, .37990, .04279, .01682,
1981 + .01146, .03525, .05792,
1982 + .45708, .19656, .36813, .04208, .01671,
1983 + .01148, .03471, .05681,
1984 + .45222, .19395, .35725, .04141, .01660,
1985 + .01148, .03419, .05577,
1986 + .44765, .19150, .34725, .04078, .01648,
1987 + .01148, .03370, .05481,
1988 + .44299, .18904, .33735, .04014, .01636,
1989 + .01146, .03320, .05384 /
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 + .67747, .33165, .71676, .05502, .00000,
1992 + .00000, .03843, .09399,
1993 + .67216, .32648, .73463, .05466, .00000,
1994 + .00000, .03865, .09206,
1995 + .66369, .31887, .75009, .05405, .00000,
1996 + .00000, .03888, .08927,
1997 + .65722, .31343, .75396, .05360, .00077,
1998 + .00000, .03897, .08731,
1999 + .65018, .30777, .75047, .05306, .00244,
2000 + .00000, .03900, .08533,
2001 + .64385, .30293, .74433, .05258, .00366,
2002 + .00000, .03895, .08361,
2003 + .63768, .29832, .73650, .05208, .00474,
2004 + .00000, .03886, .08199,
2005 + .63106, .29348, .72638, .05151, .00580,
2006 + .00000, .03871, .08031 /
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 + .62519, .28928, .71575, .05098, .00660,
2009 + .00000, .03853, .07889,
2010 + .61943, .28528, .70438, .05046, .00731,
2011 + .00000, .03834, .07751,
2012 + .61485, .28216, .69499, .05005, .00785,
2013 + .00000, .03817, .07641,
2014 + .60496, .27560, .67185, .04914, .00884,
2015 + .00020, .03777, .07413,
2016 + .59641, .27004, .64906, .04833, .00957,
2017 + .00131, .03736, .07223,
2018 + .58678, .26392, .62290, .04739, .01028,
2019 + .00253, .03685, .07013,
2020 + .57670, .25766, .59559, .04638, .01089,
2021 + .00351, .03627, .06799,
2022 + .56753, .25210, .57092, .04546, .01135,
2023 + .00428, .03570, .06609 /
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 + .55830, .24659, .54634, .04450, .01174,
2026 + .00496, .03510, .06420,
2027 + .55062, .24209, .52623, .04371, .01200,
2028 + .00544, .03458, .06265,
2029 + .54133, .23671, .50226, .04272, .01224,
2030 + .00594, .03393, .06082,
2031 + .53316, .23206, .48169, .04185, .01242,
2032 + .00634, .03334, .05923,
2033 + .52571, .22786, .46339, .04107, .01254,
2034 + .00666, .03278, .05781,
2035 + .51627, .22260, .44071, .04005, .01264,
2036 + .00700, .03207, .05604,
2037 + .50747, .21776, .42026, .03910, .01269,
2038 + .00726, .03139, .05442,
2039 + .49933, .21334, .40193, .03824, .01272,
2040 + .00748, .03076, .05293 /
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 + .49116, .20897, .38410, .03737, .01270,
2043 + .00764, .03011, .05148,
2044 + .48330, .20478, .36744, .03653, .01267,
2045 + .00778, .02949, .05009,
2046 + .47596, .20087, .35233, .03573, .01262,
2047 + .00788, .02891, .04882,
2048 + .46901, .19727, .33854, .03499, .01255,
2049 + .00796, .02835, .04763,
2050 + .46215, .19374, .32529, .03427, .01247,
2051 + .00802, .02780, .04647,
2052 + .45540, .19027, .31267, .03356, .01238,
2053 + .00805, .02726, .04534,
2054 + .44913, .18706, .30122, .03290, .01228,
2055 + .00808, .02675, .04431,
2056 + .44315, .18404, .29069, .03228, .01218,
2057 + .00809, .02627, .04334 /
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 + .43723, .18107, .28050, .03166, .01208,
2060 + .00809, .02579, .04238,
2061 + .43141, .17816, .27077, .03106, .01196,
2062 + .00808, .02532, .04146,
2063 + .42592, .17543, .26183, .03050, .01185,
2064 + .00806, .02488, .04059,
2065 + .42077, .17287, .25365, .02998, .01174,
2066 + .00804, .02447, .03979,
2067 + .41557, .17031, .24562, .02944, .01162,
2068 + .00801, .02404, .03899 /
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 + .70292, .32990, .67361, .04508, .00000,
2071 + .00000, .03153, .07703,
2072 + .69443, .32342, .68365, .04470, .00000,
2073 + .00000, .03165, .07517,
2074 + .68150, .31405, .68823, .04409, .00000,
2075 + .00000, .03170, .07246,
2076 + .67199, .30744, .68504, .04361, .00064,
2077 + .00000, .03168, .07057,
2078 + .66193, .30068, .67520, .04305, .00200,
2079 + .00000, .03159, .06867,
2080 + .65318, .29487, .66414, .04253, .00298,
2081 + .00000, .03145, .06707,
2082 + .64475, .28944, .65204, .04201, .00384,
2083 + .00000, .03127, .06554,
2084 + .63579, .28380, .63785, .04145, .00468,
2085 + .00000, .03106, .06394 /
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 + .62797, .27896, .62417, .04094, .00530,
2088 + .00000, .03082, .06258,
2089 + .62044, .27434, .61024, .04041, .00584,
2090 + .00000, .03058, .06129,
2091 + .61452, .27074, .59903, .03999, .00625,
2092 + .00000, .03038, .06029,
2093 + .60187, .26327, .57300, .03910, .00699,
2094 + .00016, .02989, .05820,
2095 + .59108, .25700, .54876, .03832, .00753,
2096 + .00101, .02945, .05646,
2097 + .57912, .25014, .52169, .03741, .00803,
2098 + .00194, .02890, .05457,
2099 + .56677, .24320, .49406, .03645, .00845,
2100 + .00268, .02830, .05265,
2101 + .55566, .23706, .46960, .03558, .00876,
2102 + .00324, .02774, .05094 /
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 + .54457, .23103, .44568, .03471, .00901,
2105 + .00374, .02716, .04925,
2106 + .53546, .22613, .42642, .03398, .00917,
2107 + .00409, .02666, .04790,
2108 + .52450, .22032, .40383, .03309, .00931,
2109 + .00444, .02604, .04629,
2110 + .51495, .21532, .38468, .03230, .00939,
2111 + .00472, .02549, .04492,
2112 + .50632, .21084, .36779, .03159, .00945,
2113 + .00494, .02498, .04369,
2114 + .49546, .20525, .34719, .03068, .00948,
2115 + .00516, .02434, .04217,
2116 + .48541, .20014, .32884, .02985, .00947,
2117 + .00533, .02373, .04078,
2118 + .47617, .19550, .31256, .02909, .00945,
2119 + .00547, .02316, .03952 /
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 + .46699, .19093, .29689, .02832, .00940,
2122 + .00556, .02259, .03829,
2123 + .45818, .18657, .28239, .02759, .00934,
2124 + .00564, .02205, .03713,
2125 + .44998, .18254, .26936, .02692, .00926,
2126 + .00569, .02154, .03606,
2127 + .44230, .17880, .25757, .02629, .00918,
2128 + .00573, .02106, .03508,
2129 + .43475, .17515, .24632, .02568, .00910,
2130 + .00575, .02059, .03411,
2131 + .42738, .17160, .23570, .02506, .00900,
2132 + .00576, .02012, .03320,
2133 + .42053, .16832, .22611, .02449, .00890,
2134 + .00576, .01969, .03237,
2135 + .41403, .16526, .21738, .02397, .00880,
2136 + .00575, .01928, .03157 /
2137 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
2138 + .40762, .16225, .20897, .02347, .00870,
2139 + .00574, .01888, .03078,
2140 + .40134, .15931, .20099, .02298, .00860,
2141 + .00571, .01849, .03003,
2142 + .39545, .15655, .19367, .02251, .00849,
2143 + .00569, .01812, .02934,
2144 + .38994, .15399, .18703, .02208, .00839,
2145 + .00566, .01778, .02869,
2146 + .38438, .15143, .18056, .02163, .00829,
2147 + .00562, .01744, .02804 /
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 + .71644, .32265, .64661, .03693, .00000,
2150 + .00000, .02555, .06187,
2151 + .70487, .31515, .64776, .03658, .00000,
2152 + .00000, .02562, .06014,
2153 + .68782, .30430, .64065, .03593, .00000,
2154 + .00000, .02558, .05772,
2155 + .67550, .29676, .63012, .03544, .00052,
2156 + .00000, .02548, .05601,
2157 + .66276, .28905, .61391, .03486, .00163,
2158 + .00000, .02535, .05430,
2159 + .65173, .28257, .59808, .03435, .00242,
2160 + .00000, .02516, .05285,
2161 + .64126, .27652, .58196, .03385, .00310,
2162 + .00000, .02494, .05148,
2163 + .63027, .27025, .56411, .03329, .00375,
2164 + .00000, .02469, .05006 /
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 + .62077, .26490, .54782, .03279, .00423,
2167 + .00000, .02445, .04885,
2168 + .61166, .25985, .53177, .03229, .00464,
2169 + .00000, .02418, .04771,
2170 + .60455, .25593, .51910, .03189, .00495,
2171 + .00000, .02395, .04683,
2172 + .58954, .24780, .49093, .03105, .00550,
2173 + .00013, .02348, .04498,
2174 + .57686, .24106, .46581, .03031, .00589,
2175 + .00078, .02303, .04346,
2176 + .56292, .23374, .43846, .02948, .00624,
2177 + .00149, .02251, .04181,
2178 + .54868, .22637, .41112, .02861, .00654,
2179 + .00204, .02193, .04014,
2180 + .53601, .21987, .38738, .02780, .00674,
2181 + .00245, .02141, .03869 /
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 + .52348, .21351, .36455, .02699, .00689,
2184 + .00282, .02087, .03728,
2185 + .51322, .20840, .34640, .02633, .00698,
2186 + .00306, .02042, .03613,
2187 + .50098, .20236, .32540, .02554, .00705,
2188 + .00331, .01986, .03478,
2189 + .49039, .19718, .30785, .02485, .00708,
2190 + .00350, .01937, .03362,
2191 + .48087, .19255, .29258, .02422, .00710,
2192 + .00365, .01893, .03259,
2193 + .46892, .18685, .27415, .02346, .00708,
2194 + .00380, .01836, .03130,
2195 + .45796, .18165, .25791, .02275, .00705,
2196 + .00391, .01783, .03016,
2197 + .44797, .17691, .24363, .02209, .00700,
2198 + .00399, .01733, .02916 /
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 + .43808, .17227, .23009, .02143, .00694,
2201 + .00405, .01685, .02816,
2202 + .42862, .16789, .21764, .02081, .00686,
2203 + .00409, .01638, .02722,
2204 + .41984, .16387, .20653, .02024, .00679,
2205 + .00411, .01595, .02636,
2206 + .41169, .16013, .19656, .01971, .00671,
2207 + .00412, .01555, .02556,
2208 + .40372, .15648, .18711, .01919, .00662,
2209 + .00413, .01518, .02478,
2210 + .39592, .15297, .17826, .01869, .00653,
2211 + .00412, .01479, .02405,
2212 + .38870, .14973, .17031, .01823, .00644,
2213 + .00411, .01443, .02337,
2214 + .38193, .14671, .16314, .01780, .00635,
2215 + .00409, .01409, .02275 /
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 + .37526, .14374, .15626, .01737, .00626,
2218 + .00407, .01376, .02215,
2219 + .36873, .14085, .14979, .01696, .00617,
2220 + .00404, .01344, .02155,
2221 + .36261, .13816, .14389, .01659, .00608,
2222 + .00401, .01315, .02099,
2223 + .35691, .13566, .13854, .01624, .00599,
2224 + .00399, .01288, .02048,
2225 + .35119, .13315, .13334, .01588, .00591,
2226 + .00395, .01260, .01998 /
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 + .71907, .31104, .62471, .03020, .00000,
2229 + .00000, .02048, .04874,
2230 + .70474, .30269, .61674, .02985, .00000,
2231 + .00000, .02050, .04722,
2232 + .68385, .29082, .59811, .02924, .00000,
2233 + .00000, .02039, .04507,
2234 + .66906, .28256, .58068, .02874, .00042,
2235 + .00000, .02025, .04361,
2236 + .65386, .27425, .55874, .02821, .00131,
2237 + .00000, .02006, .04213,
2238 + .64090, .26727, .53876, .02772, .00194,
2239 + .00000, .01986, .04086,
2240 + .62868, .26077, .51931, .02724, .00247,
2241 + .00000, .01963, .03968,
2242 + .61594, .25408, .49858, .02671, .00298,
2243 + .00000, .01937, .03847 /
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 + .60500, .24842, .48032, .02625, .00334,
2246 + .00000, .01912, .03743,
2247 + .59460, .24308, .46279, .02577, .00366,
2248 + .00000, .01887, .03646,
2249 + .58651, .23894, .44919, .02539, .00389,
2250 + .00000, .01865, .03572,
2251 + .56958, .23041, .41993, .02460, .00429,
2252 + .00010, .01818, .03418,
2253 + .55541, .22339, .39469, .02394, .00457,
2254 + .00059, .01778, .03287,
2255 + .53991, .21581, .36775, .02318, .00482,
2256 + .00113, .01731, .03149,
2257 + .52420, .20822, .34136, .02240, .00501,
2258 + .00154, .01679, .03011,
2259 + .51033, .20158, .31884, .02169, .00514,
2260 + .00185, .01631, .02890 /
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 + .49670, .19512, .29749, .02097, .00523,
2263 + .00211, .01583, .02774,
2264 + .48561, .18993, .28078, .02041, .00527,
2265 + .00228, .01544, .02679,
2266 + .47246, .18382, .26173, .01971, .00530,
2267 + .00246, .01496, .02569,
2268 + .46114, .17861, .24597, .01912, .00531,
2269 + .00259, .01454, .02476,
2270 + .45100, .17399, .23237, .01858, .00530,
2271 + .00269, .01416, .02393,
2272 + .43836, .16829, .21618, .01792, .00526,
2273 + .00278, .01368, .02292,
2274 + .42684, .16311, .20204, .01731, .00521,
2275 + .00285, .01324, .02200,
2276 + .41637, .15843, .18970, .01674, .00516,
2277 + .00290, .01283, .02119 /
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 + .40605, .15389, .17815, .01620, .00509,
2280 + .00293, .01243, .02040,
2281 + .39622, .14959, .16761, .01569, .00502,
2282 + .00295, .01205, .01965,
2283 + .38715, .14562, .15827, .01523, .00495,
2284 + .00296, .01171, .01895,
2285 + .37877, .14198, .14998, .01478, .00487,
2286 + .00296, .01139, .01834,
2287 + .37059, .13843, .14215, .01435, .00480,
2288 + .00295, .01106, .01775,
2289 + .36261, .13503, .13490, .01395, .00472,
2290 + .00294, .01075, .01717,
2291 + .35524, .13190, .12841, .01358, .00464,
2292 + .00293, .01047, .01663,
2293 + .34837, .12898, .12257, .01321, .00456,
2294 + .00290, .01020, .01617 /
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 + .34162, .12612, .11700, .01285, .00449,
2297 + .00288, .00993, .01571,
2298 + .33504, .12335, .11178, .01252, .00441,
2299 + .00286, .00968, .01526,
2300 + .32888, .12078, .10706, .01222, .00434,
2301 + .00283, .00945, .01483,
2302 + .32316, .11839, .10279, .01194, .00427,
2303 + .00280, .00923, .01443,
2304 + .31741, .11602, .09866, .01165, .00420,
2305 + .00277, .00902, .01405 /
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 + .71154, .29640, .60066, .02494, .00000,
2308 + .00000, .01602, .03742,
2309 + .69483, .28741, .58411, .02454, .00000,
2310 + .00000, .01601, .03619,
2311 + .67079, .27468, .55518, .02387, .00000,
2312 + .00000, .01590, .03444,
2313 + .65389, .26594, .53187, .02338, .00034,
2314 + .00000, .01577, .03321,
2315 + .63667, .25721, .50529, .02287, .00105,
2316 + .00000, .01558, .03197,
2317 + .62215, .24988, .48222, .02237, .00154,
2318 + .00000, .01538, .03095,
2319 + .60851, .24311, .46044, .02189, .00196,
2320 + .00000, .01518, .02999,
2321 + .59436, .23618, .43782, .02139, .00234,
2322 + .00000, .01494, .02898 /
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 + .58233, .23031, .41839, .02094, .00262,
2325 + .00000, .01471, .02814,
2326 + .57090, .22483, .40010, .02051, .00285,
2327 + .00000, .01448, .02734,
2328 + .56202, .22061, .38609, .02019, .00302,
2329 + .00000, .01429, .02671,
2330 + .54360, .21194, .35675, .01947, .00332,
2331 + .00008, .01388, .02544,
2332 + .52832, .20479, .33222, .01884, .00351,
2333 + .00045, .01351, .02443,
2334 + .51171, .19712, .30647, .01816, .00368,
2335 + .00086, .01310, .02331,
2336 + .49496, .18950, .28165, .01748, .00381,
2337 + .00116, .01266, .02218,
2338 + .48026, .18286, .26083, .01686, .00388,
2339 + .00138, .01227, .02120 /
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 + .46591, .17643, .24141, .01623, .00393,
2342 + .00157, .01187, .02027,
2343 + .45431, .17127, .22634, .01571, .00395,
2344 + .00169, .01152, .01958,
2345 + .44059, .16526, .20936, .01513, .00395,
2346 + .00181, .01112, .01869,
2347 + .42883, .16014, .19547, .01463, .00394,
2348 + .00190, .01077, .01794,
2349 + .41836, .15559, .18361, .01418, .00392,
2350 + .00197, .01044, .01732,
2351 + .40538, .15003, .16960, .01360, .00388,
2352 + .00203, .01007, .01652,
2353 + .39356, .14502, .15751, .01309, .00382,
2354 + .00207, .00971, .01581,
2355 + .38284, .14051, .14707, .01264, .00377,
2356 + .00210, .00936, .01517 /
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 + .37237, .13612, .13738, .01220, .00371,
2359 + .00211, .00905, .01454,
2360 + .36244, .13197, .12861, .01177, .00364,
2361 + .00212, .00875, .01396,
2362 + .35331, .12818, .12088, .01137, .00358,
2363 + .00212, .00847, .01345,
2364 + .34488, .12470, .11407, .01102, .00351,
2365 + .00211, .00822, .01298,
2366 + .33667, .12133, .10768, .01068, .00345,
2367 + .00210, .00797, .01252,
2368 + .32871, .11808, .10180, .01035, .00338,
2369 + .00209, .00772, .01209,
2370 + .32137, .11511, .09655, .01005, .00332,
2371 + .00207, .00749, .01169,
2372 + .31455, .11235, .09187, .00977, .00326,
2373 + .00205, .00729, .01133 /
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 + .30787, .10966, .08741, .00949, .00319,
2376 + .00203, .00709, .01097,
2377 + .30138, .10706, .08327, .00922, .00313,
2378 + .00201, .00690, .01063,
2379 + .29533, .10464, .07954, .00897, .00307,
2380 + .00199, .00671, .01031,
2381 + .28970, .10241, .07618, .00874, .00302,
2382 + .00196, .00654, .01002,
2383 + .28407, .10019, .07294, .00853, .00296,
2384 + .00194, .00638, .00974 /
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 + .69592, .27867, .56989, .02012, .00000,
2387 + .00000, .01256, .02838,
2388 + .67712, .26932, .54608, .01974, .00000,
2389 + .00000, .01253, .02736,
2390 + .65032, .25618, .50896, .01913, .00000,
2391 + .00000, .01239, .02591,
2392 + .63166, .24720, .48129, .01867, .00027,
2393 + .00000, .01224, .02492,
2394 + .61283, .23824, .45157, .01818, .00082,
2395 + .00000, .01203, .02395,
2396 + .59699, .23081, .42655, .01773, .00120,
2397 + .00000, .01185, .02311,
2398 + .58223, .22394, .40347, .01731, .00151,
2399 + .00000, .01166, .02232,
2400 + .56702, .21693, .38001, .01686, .00180,
2401 + .00000, .01144, .02151 /
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 + .55408, .21106, .36032, .01646, .00201,
2404 + .00000, .01124, .02083,
2405 + .54190, .20554, .34206, .01607, .00218,
2406 + .00000, .01103, .02019,
2407 + .53249, .20130, .32822, .01577, .00230,
2408 + .00000, .01087, .01971,
2409 + .51300, .19266, .29987, .01515, .00251,
2410 + .00006, .01050, .01868,
2411 + .49693, .18559, .27672, .01461, .00265,
2412 + .00034, .01017, .01788,
2413 + .47960, .17803, .25279, .01402, .00276,
2414 + .00063, .00982, .01701,
2415 + .46222, .17054, .23009, .01343, .00284,
2416 + .00085, .00946, .01612,
2417 + .44703, .16406, .21132, .01290, .00288,
2418 + .00102, .00912, .01536 /
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 + .43227, .15778, .19400, .01238, .00291,
2421 + .00115, .00878, .01465,
2422 + .42040, .15279, .18074, .01196, .00291,
2423 + .00123, .00851, .01406,
2424 + .40641, .14698, .16595, .01148, .00290,
2425 + .00132, .00818, .01338,
2426 + .39447, .14206, .15398, .01106, .00288,
2427 + .00138, .00790, .01282,
2428 + .38389, .13771, .14383, .01067, .00286,
2429 + .00142, .00765, .01232,
2430 + .37085, .13239, .13200, .01021, .00281,
2431 + .00146, .00733, .01172,
2432 + .35903, .12759, .12188, .00980, .00277,
2433 + .00148, .00704, .01117,
2434 + .34835, .12329, .11320, .00944, .00272,
2435 + .00150, .00679, .01068 /
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 + .33793, .11913, .10520, .00906, .00266,
2438 + .00150, .00654, .01023,
2439 + .32809, .11522, .09801, .00871, .00261,
2440 + .00150, .00630, .00981,
2441 + .31909, .11165, .09173, .00839, .00256,
2442 + .00150, .00607, .00943,
2443 + .31080, .10840, .08623, .00811, .00250,
2444 + .00149, .00587, .00907,
2445 + .30275, .10525, .08109, .00783, .00245,
2446 + .00148, .00568, .00872,
2447 + .29496, .10223, .07638, .00757, .00240,
2448 + .00147, .00549, .00840,
2449 + .28779, .09946, .07220, .00734, .00234,
2450 + .00145, .00532, .00812,
2451 + .28115, .09690, .06850, .00712, .00229,
2452 + .00143, .00516, .00785 /
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 + .27466, .09439, .06499, .00690, .00225,
2455 + .00142, .00501, .00758,
2456 + .26838, .09199, .06175, .00669, .00220,
2457 + .00140, .00486, .00734,
2458 + .26254, .08975, .05884, .00649, .00215,
2459 + .00138, .00472, .00711,
2460 + .25713, .08770, .05622, .00631, .00211,
2461 + .00136, .00459, .00690,
2462 + .25173, .08566, .05372, .00614, .00206,
2463 + .00134, .00446, .00669 /
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 + .67268, .25932, .53146, .01620, .00000,
2466 + .00000, .00965, .02104,
2467 + .65226, .24976, .50216, .01583, .00000,
2468 + .00000, .00960, .02025,
2469 + .62332, .23646, .45933, .01525, .00000,
2470 + .00000, .00946, .01911,
2471 + .60330, .22743, .42895, .01484, .00021,
2472 + .00000, .00933, .01830,
2473 + .58330, .21844, .39764, .01437, .00063,
2474 + .00000, .00914, .01755,
2475 + .56650, .21106, .37193, .01398, .00091,
2476 + .00000, .00897, .01688,
2477 + .55095, .20424, .34866, .01360, .00115,
2478 + .00000, .00880, .01626,
2479 + .53502, .19727, .32541, .01318, .00137,
2480 + .00000, .00862, .01564 /
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 + .52154, .19144, .30621, .01283, .00152,
2483 + .00000, .00844, .01512,
2484 + .50888, .18603, .28867, .01249, .00164,
2485 + .00000, .00826, .01463,
2486 + .49912, .18189, .27552, .01222, .00173,
2487 + .00000, .00812, .01425,
2488 + .47906, .17339, .24896, .01166, .00187,
2489 + .00005, .00782, .01349,
2490 + .46257, .16651, .22769, .01121, .00197,
2491 + .00025, .00755, .01285,
2492 + .44486, .15919, .20606, .01070, .00204,
2493 + .00047, .00726, .01218,
2494 + .42720, .15197, .18584, .01021, .00209,
2495 + .00062, .00695, .01152,
2496 + .41185, .14575, .16932, .00978, .00211,
2497 + .00074, .00668, .01093 /
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 + .39698, .13978, .15427, .00935, .00212,
2500 + .00083, .00642, .01036,
2501 + .38509, .13500, .14288, .00900, .00212,
2502 + .00089, .00619, .00994,
2503 + .37117, .12948, .13026, .00860, .00210,
2504 + .00095, .00593, .00942,
2505 + .35932, .12481, .12015, .00825, .00208,
2506 + .00099, .00571, .00899,
2507 + .34883, .12070, .11166, .00795, .00205,
2508 + .00102, .00551, .00863,
2509 + .33595, .11569, .10183, .00757, .00201,
2510 + .00104, .00525, .00820,
2511 + .32434, .11120, .09350, .00723, .00197,
2512 + .00105, .00504, .00780,
2513 + .31390, .10718, .08641, .00693, .00193,
2514 + .00106, .00485, .00743 /
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 + .30374, .10331, .07994, .00666, .00189,
2517 + .00106, .00465, .00708,
2518 + .29417, .09969, .07415, .00640, .00185,
2519 + .00106, .00447, .00677,
2520 + .28542, .09639, .06911, .00614, .00180,
2521 + .00105, .00430, .00649,
2522 + .27741, .09339, .06474, .00591, .00176,
2523 + .00104, .00415, .00623,
2524 + .26964, .09048, .06067, .00569, .00172,
2525 + .00103, .00400, .00597,
2526 + .26216, .08770, .05696, .00549, .00168,
2527 + .00102, .00386, .00574,
2528 + .25531, .08517, .05369, .00531, .00164,
2529 + .00101, .00373, .00553,
2530 + .24896, .08283, .05081, .00515, .00160,
2531 + .00100, .00361, .00533 /
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 + .24277, .08055, .04808, .00498, .00156,
2534 + .00098, .00351, .00513,
2535 + .23678, .07836, .04556, .00483, .00152,
2536 + .00097, .00339, .00496,
2537 + .23121, .07633, .04331, .00468, .00149,
2538 + .00095, .00328, .00480,
2539 + .22607, .07447, .04129, .00454, .00146,
2540 + .00094, .00318, .00465,
2541 + .22098, .07262, .03937, .00440, .00142,
2542 + .00092, .00309, .00451 /
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 + .64318, .23871, .48568, .01285, .00000,
2545 + .00000, .00734, .01533,
2546 + .62151, .22919, .45298, .01251, .00000,
2547 + .00000, .00728, .01472,
2548 + .59109, .21597, .40701, .01196, .00000,
2549 + .00000, .00715, .01383,
2550 + .57019, .20701, .37558, .01156, .00015,
2551 + .00000, .00702, .01324,
2552 + .54935, .19819, .34422, .01116, .00047,
2553 + .00000, .00685, .01265,
2554 + .53199, .19093, .31896, .01082, .00068,
2555 + .00000, .00671, .01216,
2556 + .51596, .18428, .29644, .01048, .00086,
2557 + .00000, .00655, .01170,
2558 + .49960, .17752, .27426, .01012, .00102,
2559 + .00000, .00638, .01123 /
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 + .48586, .17188, .25623, .00980, .00112,
2562 + .00000, .00625, .01081,
2563 + .47295, .16666, .23990, .00953, .00121,
2564 + .00000, .00610, .01043,
2565 + .46302, .16267, .22774, .00933, .00127,
2566 + .00000, .00597, .01014,
2567 + .44275, .15452, .20366, .00886, .00137,
2568 + .00004, .00574, .00954,
2569 + .42616, .14794, .18473, .00848, .00143,
2570 + .00018, .00552, .00907,
2571 + .40846, .14094, .16570, .00806, .00148,
2572 + .00034, .00528, .00857,
2573 + .39087, .13407, .14813, .00765, .00151,
2574 + .00045, .00503, .00809,
2575 + .37562, .12820, .13394, .00730, .00152,
2576 + .00053, .00482, .00766 /
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 + .36094, .12259, .12116, .00697, .00152,
2579 + .00059, .00462, .00722,
2580 + .34925, .11812, .11156, .00668, .00151,
2581 + .00063, .00444, .00690,
2582 + .33561, .11295, .10105, .00634, .00150,
2583 + .00067, .00424, .00655,
2584 + .32405, .10860, .09269, .00607, .00148,
2585 + .00070, .00407, .00623,
2586 + .31385, .10478, .08571, .00584, .00145,
2587 + .00072, .00391, .00595,
2588 + .30134, .10014, .07773, .00554, .00142,
2589 + .00073, .00372, .00563,
2590 + .29012, .09600, .07100, .00528, .00139,
2591 + .00074, .00356, .00533,
2592 + .28006, .09231, .06530, .00506, .00135,
2593 + .00074, .00341, .00506 /
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 + .27030, .08876, .06016, .00484, .00132,
2596 + .00074, .00326, .00483,
2597 + .26116, .08544, .05557, .00463, .00129,
2598 + .00073, .00313, .00460,
2599 + .25284, .08243, .05161, .00442, .00125,
2600 + .00073, .00300, .00439,
2601 + .24522, .07969, .04819, .00426, .00122,
2602 + .00072, .00289, .00421,
2603 + .23784, .07705, .04502, .00410, .00119,
2604 + .00071, .00277, .00403,
2605 + .23079, .07454, .04215, .00394, .00116,
2606 + .00070, .00267, .00386,
2607 + .22434, .07224, .03962, .00379, .00113,
2608 + .00069, .00258, .00371,
2609 + .21837, .07013, .03740, .00366, .00110,
2610 + .00068, .00249, .00358 /
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 + .21254, .06807, .03530, .00354, .00107,
2613 + .00067, .00240, .00346,
2614 + .20693, .06611, .03338, .00342, .00104,
2615 + .00066, .00232, .00334,
2616 + .20174, .06429, .03166, .00330, .00102,
2617 + .00065, .00224, .00322,
2618 + .19695, .06262, .03013, .00320, .00099,
2619 + .00064, .00217, .00311,
2620 + .19219, .06099, .02869, .00311, .00097,
2621 + .00063, .00211, .00300 /
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 + .60860, .21740, .43435, .00997, .00000,
2624 + .00000, .00553, .01100,
2625 + .58610, .20808, .40015, .00966, .00000,
2626 + .00000, .00547, .01053,
2627 + .55473, .19517, .35358, .00917, .00000,
2628 + .00000, .00532, .00989,
2629 + .53332, .18649, .32264, .00885, .00011,
2630 + .00000, .00522, .00941,
2631 + .51208, .17798, .29250, .00850, .00034,
2632 + .00000, .00508, .00897,
2633 + .49450, .17097, .26864, .00820, .00050,
2634 + .00000, .00496, .00859,
2635 + .47833, .16458, .24764, .00792, .00063,
2636 + .00000, .00482, .00825,
2637 + .46185, .15812, .22720, .00762, .00074,
2638 + .00000, .00468, .00790 /
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 + .44802, .15276, .21078, .00738, .00081,
2641 + .00000, .00456, .00759,
2642 + .43515, .14777, .19610, .00713, .00087,
2643 + .00000, .00444, .00732,
2644 + .42529, .14395, .18526, .00694, .00092,
2645 + .00000, .00435, .00712,
2646 + .40510, .13628, .16401, .00660, .00099,
2647 + .00003, .00416, .00664,
2648 + .38873, .13009, .14756, .00628, .00103,
2649 + .00013, .00399, .00630,
2650 + .37128, .12353, .13122, .00596, .00106,
2651 + .00024, .00381, .00593,
2652 + .35409, .11712, .11634, .00562, .00107,
2653 + .00032, .00361, .00557,
2654 + .33927, .11165, .10448, .00532, .00107,
2655 + .00037, .00344, .00526 /
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 + .32499, .10643, .09386, .00506, .00107,
2658 + .00042, .00327, .00496,
2659 + .31367, .10230, .08594, .00485, .00106,
2660 + .00044, .00315, .00473,
2661 + .30052, .09754, .07737, .00459, .00105,
2662 + .00047, .00300, .00448,
2663 + .28940, .09355, .07061, .00437, .00103,
2664 + .00049, .00287, .00425,
2665 + .27960, .09006, .06502, .00420, .00101,
2666 + .00050, .00274, .00405,
2667 + .26769, .08583, .05863, .00397, .00098,
2668 + .00050, .00261, .00380,
2669 + .25702, .08206, .05330, .00377, .00096,
2670 + .00051, .00248, .00360,
2671 + .24748, .07870, .04882, .00359, .00093,
2672 + .00051, .00236, .00343 /
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 + .23829, .07548, .04479, .00343, .00091,
2675 + .00051, .00225, .00325,
2676 + .22968, .07249, .04123, .00327, .00088,
2677 + .00050, .00216, .00309,
2678 + .22184, .06979, .03816, .00312, .00086,
2679 + .00050, .00207, .00294,
2680 + .21470, .06733, .03553, .00300, .00083,
2681 + .00049, .00199, .00281,
2682 + .20780, .06497, .03309, .00289, .00081,
2683 + .00049, .00190, .00269,
2684 + .20123, .06273, .03090, .00276, .00079,
2685 + .00048, .00183, .00257,
2686 + .19522, .06069, .02898, .00265, .00076,
2687 + .00047, .00176, .00246,
2688 + .18970, .05880, .02730, .00255, .00074,
2689 + .00046, .00169, .00238 /
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 + .18432, .05697, .02572, .00245, .00072,
2692 + .00045, .00163, .00229,
2693 + .17915, .05524, .02427, .00236, .00070,
2694 + .00045, .00157, .00220,
2695 + .17435, .05365, .02298, .00228, .00069,
2696 + .00044, .00152, .00211,
2697 + .16993, .05218, .02184, .00221, .00067,
2698 + .00043, .00147, .00203,
2699 + .16557, .05073, .02076, .00215, .00065,
2700 + .00042, .00142, .00196 /
2701 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
2702 + .56981, .19617, .37998, .00776, .00000,
2703 + .00000, .00404, .00766,
2704 + .54702, .18709, .34605, .00745, .00000,
2705 + .00000, .00397, .00736,
2706 + .51525, .17475, .30101, .00704, .00000,
2707 + .00000, .00388, .00683,
2708 + .49375, .16642, .27176, .00673, .00008,
2709 + .00000, .00378, .00652,
2710 + .47248, .15831, .24383, .00645, .00025,
2711 + .00000, .00366, .00618,
2712 + .45496, .15167, .22207, .00621, .00036,
2713 + .00000, .00355, .00591,
2714 + .43890, .14563, .20312, .00596, .00045,
2715 + .00000, .00345, .00567,
2716 + .42260, .13954, .18486, .00571, .00053,
2717 + .00000, .00334, .00542 /
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 + .40900, .13447, .17039, .00552, .00058,
2720 + .00000, .00325, .00519,
2721 + .39636, .12980, .15757, .00532, .00062,
2722 + .00000, .00315, .00499,
2723 + .38669, .12625, .14817, .00515, .00065,
2724 + .00000, .00308, .00485,
2725 + .36699, .11908, .12996, .00487, .00070,
2726 + .00002, .00294, .00452,
2727 + .35109, .11332, .11605, .00461, .00072,
2728 + .00009, .00281, .00427,
2729 + .33417, .10729, .10239, .00437, .00074,
2730 + .00017, .00267, .00399,
2731 + .31758, .10139, .09007, .00411, .00075,
2732 + .00022, .00251, .00375,
2733 + .30337, .09635, .08034, .00387, .00075,
2734 + .00026, .00238, .00355 /
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 + .28973, .09158, .07171, .00366, .00074,
2737 + .00029, .00226, .00333,
2738 + .27893, .08781, .06534, .00350, .00073,
2739 + .00031, .00217, .00315,
2740 + .26647, .08348, .05850, .00329, .00072,
2741 + .00032, .00206, .00297,
2742 + .25596, .07986, .05314, .00313, .00071,
2743 + .00033, .00197, .00282,
2744 + .24671, .07671, .04873, .00300, .00069,
2745 + .00034, .00187, .00269,
2746 + .23552, .07289, .04372, .00284, .00067,
2747 + .00035, .00178, .00252,
2748 + .22553, .06951, .03957, .00268, .00065,
2749 + .00035, .00169, .00238,
2750 + .21661, .06651, .03611, .00255, .00063,
2751 + .00035, .00161, .00225 /
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 + .20806, .06363, .03300, .00241, .00061,
2754 + .00034, .00153, .00213,
2755 + .20006, .06096, .03028, .00229, .00059,
2756 + .00034, .00145, .00203,
2757 + .19280, .05856, .02795, .00218, .00058,
2758 + .00034, .00138, .00193,
2759 + .18622, .05638, .02596, .00208, .00056,
2760 + .00033, .00132, .00184,
2761 + .17988, .05428, .02413, .00199, .00054,
2762 + .00033, .00127, .00176,
2763 + .17384, .05231, .02248, .00191, .00053,
2764 + .00032, .00122, .00167,
2765 + .16832, .05052, .02103, .00184, .00051,
2766 + .00031, .00117, .00160,
2767 + .16324, .04888, .01978, .00178, .00050,
2768 + .00031, .00112, .00153 /
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 + .15831, .04728, .01860, .00172, .00048,
2771 + .00030, .00108, .00147,
2772 + .15359, .04576, .01753, .00166, .00047,
2773 + .00030, .00104, .00141,
2774 + .14924, .04436, .01657, .00159, .00046,
2775 + .00029, .00101, .00136,
2776 + .14523, .04308, .01572, .00154, .00044,
2777 + .00029, .00097, .00131,
2778 + .14128, .04181, .01492, .00150, .00043,
2779 + .00028, .00094, .00126 /
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 + .52814, .17509, .32484, .00585, .00000,
2782 + .00000, .00291, .00527,
2783 + .50528, .16655, .29266, .00561, .00000,
2784 + .00000, .00286, .00503,
2785 + .47374, .15483, .25083, .00526, .00000,
2786 + .00000, .00276, .00467,
2787 + .45243, .14701, .22425, .00505, .00006,
2788 + .00000, .00267, .00440,
2789 + .43155, .13938, .19926, .00479, .00017,
2790 + .00000, .00258, .00419,
2791 + .41437, .13319, .18001, .00460, .00025,
2792 + .00000, .00249, .00400,
2793 + .39868, .12756, .16345, .00442, .00031,
2794 + .00000, .00241, .00381,
2795 + .38283, .12189, .14767, .00422, .00037,
2796 + .00000, .00233, .00362 /
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 + .36963, .11721, .13526, .00405, .00040,
2799 + .00000, .00226, .00347,
2800 + .35740, .11289, .12438, .00389, .00043,
2801 + .00000, .00219, .00334,
2802 + .34807, .10961, .11645, .00377, .00045,
2803 + .00000, .00214, .00323,
2804 + .32910, .10302, .10122, .00357, .00048,
2805 + .00002, .00200, .00302,
2806 + .31388, .09776, .08976, .00336, .00050,
2807 + .00006, .00191, .00283,
2808 + .29779, .09225, .07861, .00316, .00051,
2809 + .00012, .00180, .00265,
2810 + .28206, .08688, .06864, .00296, .00051,
2811 + .00015, .00170, .00248,
2812 + .26861, .08232, .06085, .00278, .00051,
2813 + .00018, .00161, .00234 /
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 + .25577, .07801, .05401, .00263, .00050,
2816 + .00020, .00152, .00219,
2817 + .24563, .07463, .04900, .00250, .00050,
2818 + .00021, .00145, .00207,
2819 + .23393, .07075, .04363, .00236, .00049,
2820 + .00022, .00137, .00194,
2821 + .22413, .06751, .03946, .00224, .00048,
2822 + .00023, .00131, .00183,
2823 + .21558, .06469, .03605, .00212, .00047,
2824 + .00023, .00125, .00173,
2825 + .20517, .06131, .03221, .00201, .00045,
2826 + .00023, .00118, .00162,
2827 + .19591, .05831, .02905, .00190, .00044,
2828 + .00023, .00111, .00153,
2829 + .18770, .05565, .02642, .00181, .00042,
2830 + .00023, .00104, .00145 /
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 + .17987, .05312, .02408, .00170, .00041,
2833 + .00023, .00100, .00137,
2834 + .17256, .05078, .02203, .00161, .00040,
2835 + .00023, .00095, .00130,
2836 + .16592, .04868, .02028, .00154, .00038,
2837 + .00022, .00090, .00123,
2838 + .15991, .04678, .01879, .00147, .00037,
2839 + .00022, .00087, .00116,
2840 + .15413, .04497, .01742, .00142, .00036,
2841 + .00022, .00083, .00110,
2842 + .14865, .04324, .01620, .00136, .00035,
2843 + .00021, .00079, .00104,
2844 + .14366, .04168, .01514, .00130, .00034,
2845 + .00021, .00075, .00100,
2846 + .13910, .04025, .01421, .00125, .00033,
2847 + .00020, .00072, .00096 /
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 + .13469, .03887, .01335, .00120, .00032,
2850 + .00020, .00070, .00092,
2851 + .13046, .03755, .01256, .00114, .00031,
2852 + .00020, .00067, .00089,
2853 + .12656, .03634, .01186, .00109, .00030,
2854 + .00019, .00065, .00085,
2855 + .12298, .03523, .01124, .00105, .00029,
2856 + .00019, .00063, .00082,
2857 + .11944, .03415, .01066, .00102, .00028,
2858 + .00018, .00060, .00079 /
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 + .48440, .15460, .27111, .00429, .00000,
2861 + .00000, .00211, .00356,
2862 + .46193, .14656, .24178, .00409, .00000,
2863 + .00000, .00204, .00341,
2864 + .43106, .13561, .20430, .00380, .00000,
2865 + .00000, .00195, .00315,
2866 + .41033, .12836, .18089, .00361, .00004,
2867 + .00000, .00188, .00296,
2868 + .39001, .12134, .15926, .00346, .00012,
2869 + .00000, .00180, .00279,
2870 + .37349, .11559, .14277, .00328, .00017,
2871 + .00000, .00175, .00266,
2872 + .35842, .11041, .12871, .00312, .00021,
2873 + .00000, .00169, .00254,
2874 + .34318, .10523, .11546, .00297, .00025,
2875 + .00000, .00162, .00242 /
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 + .33053, .10096, .10513, .00286, .00027,
2878 + .00000, .00156, .00231,
2879 + .31886, .09703, .09613, .00275, .00029,
2880 + .00000, .00151, .00221,
2881 + .30999, .09405, .08962, .00266, .00030,
2882 + .00000, .00147, .00214,
2883 + .29210, .08807, .07725, .00245, .00032,
2884 + .00001, .00138, .00200,
2885 + .27776, .08330, .06804, .00229, .00033,
2886 + .00004, .00131, .00188,
2887 + .26262, .07833, .05917, .00215, .00034,
2888 + .00008, .00125, .00175,
2889 + .24784, .07354, .05133, .00202, .00034,
2890 + .00010, .00117, .00162,
2891 + .23525, .06949, .04523, .00192, .00034,
2892 + .00012, .00110, .00151 /
2893 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
2894 + .22331, .06566, .03992, .00182, .00033,
2895 + .00013, .00103, .00141,
2896 + .21395, .06264, .03605, .00170, .00033,
2897 + .00014, .00099, .00134,
2898 + .20319, .05919, .03195, .00158, .00032,
2899 + .00015, .00093, .00127,
2900 + .19417, .05634, .02879, .00148, .00031,
2901 + .00015, .00088, .00120,
2902 + .18630, .05388, .02620, .00142, .00031,
2903 + .00015, .00084, .00112,
2904 + .17682, .05091, .02332, .00131, .00029,
2905 + .00015, .00079, .00105,
2906 + .16838, .04829, .02096, .00124, .00028,
2907 + .00015, .00074, .00098,
2908 + .16088, .04598, .01901, .00120, .00028,
2909 + .00015, .00070, .00091 /
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 + .15378, .04377, .01728, .00112, .00027,
2912 + .00015, .00067, .00087,
2913 + .14716, .04174, .01576, .00106, .00026,
2914 + .00015, .00064, .00083,
2915 + .14117, .03992, .01448, .00102, .00025,
2916 + .00015, .00061, .00078,
2917 + .13580, .03828, .01339, .00096, .00024,
2918 + .00014, .00058, .00074,
2919 + .13066, .03671, .01239, .00090, .00023,
2920 + .00014, .00055, .00071,
2921 + .12576, .03523, .01151, .00086, .00022,
2922 + .00014, .00052, .00068,
2923 + .12130, .03390, .01074, .00082, .00022,
2924 + .00014, .00050, .00065,
2925 + .11723, .03268, .01007, .00079, .00021,
2926 + .00013, .00048, .00062 /
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 + .11330, .03150, .00945, .00076, .00020,
2929 + .00013, .00046, .00059,
2930 + .10953, .03038, .00888, .00073, .00020,
2931 + .00013, .00044, .00056,
2932 + .10607, .02935, .00837, .00070, .00019,
2933 + .00012, .00042, .00054,
2934 + .10290, .02842, .00793, .00067, .00019,
2935 + .00012, .00041, .00052,
2936 + .09979, .02749, .00751, .00065, .00018,
2937 + .00012, .00039, .00050 /
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 + .43962, .13504, .22091, .00310, .00000,
2940 + .00000, .00146, .00237,
2941 + .41785, .12759, .19506, .00292, .00000,
2942 + .00000, .00144, .00224,
2943 + .38805, .11753, .16258, .00269, .00000,
2944 + .00000, .00137, .00207,
2945 + .36818, .11086, .14264, .00253, .00003,
2946 + .00000, .00130, .00197,
2947 + .34886, .10440, .12443, .00237, .00008,
2948 + .00000, .00125, .00186,
2949 + .33307, .09922, .11073, .00224, .00011,
2950 + .00000, .00121, .00177,
2951 + .31874, .09453, .09917, .00214, .00014,
2952 + .00000, .00117, .00168,
2953 + .30434, .08983, .08836, .00203, .00016,
2954 + .00000, .00112, .00159 /
2955 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
2956 + .29245, .08597, .08001, .00192, .00018,
2957 + .00000, .00108, .00153,
2958 + .28147, .08244, .07278, .00184, .00019,
2959 + .00000, .00104, .00147,
2960 + .27311, .07977, .06756, .00179, .00020,
2961 + .00000, .00101, .00142,
2962 + .25640, .07443, .05776, .00165, .00021,
2963 + .00001, .00095, .00129,
2964 + .24302, .07020, .05056, .00154, .00022,
2965 + .00003, .00090, .00121,
2966 + .22901, .06578, .04369, .00143, .00022,
2967 + .00005, .00085, .00114,
2968 + .21540, .06153, .03765, .00132, .00022,
2969 + .00007, .00080, .00106,
2970 + .20384, .05795, .03301, .00124, .00022,
2971 + .00008, .00076, .00098 /
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 + .19288, .05459, .02899, .00117, .00022,
2974 + .00009, .00071, .00091,
2975 + .18431, .05196, .02609, .00109, .00021,
2976 + .00009, .00067, .00087,
2977 + .17450, .04897, .02303, .00102, .00021,
2978 + .00010, .00063, .00082,
2979 + .16632, .04649, .02068, .00096, .00020,
2980 + .00010, .00060, .00077,
2981 + .15921, .04433, .01877, .00091, .00020,
2982 + .00010, .00057, .00073,
2983 + .15065, .04176, .01665, .00084, .00019,
2984 + .00010, .00053, .00068,
2985 + .14308, .03950, .01491, .00078, .00018,
2986 + .00010, .00050, .00064,
2987 + .13638, .03751, .01349, .00073, .00018,
2988 + .00010, .00047, .00060 /
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 + .13003, .03563, .01223, .00070, .00017,
2991 + .00010, .00045, .00056,
2992 + .12413, .03390, .01114, .00066, .00016,
2993 + .00010, .00042, .00053,
2994 + .11881, .03235, .01021, .00062, .00016,
2995 + .00009, .00039, .00051,
2996 + .11403, .03095, .00943, .00059, .00015,
2997 + .00009, .00037, .00048,
2998 + .10945, .02963, .00872, .00056, .00015,
2999 + .00009, .00036, .00045,
3000 + .10512, .02838, .00808, .00054, .00014,
3001 + .00009, .00034, .00043,
3002 + .10120, .02725, .00753, .00052, .00014,
3003 + .00009, .00032, .00041,
3004 + .09764, .02621, .00706, .00049, .00013,
3005 + .00008, .00031, .00039 /
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 + .09420, .02522, .00661, .00046, .00013,
3008 + .00008, .00030, .00037,
3009 + .09091, .02428, .00621, .00044, .00012,
3010 + .00008, .00029, .00035,
3011 + .08789, .02342, .00585, .00042, .00012,
3012 + .00008, .00028, .00034,
3013 + .08513, .02264, .00554, .00041, .00012,
3014 + .00008, .00027, .00032,
3015 + .08243, .02188, .00524, .00039, .00011,
3016 + .00008, .00026, .00031 /
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 + .39472, .11676, .17586, .00226, .00000,
3019 + .00000, .00094, .00151,
3020 + .37389, .11000, .15384, .00214, .00000,
3021 + .00000, .00091, .00142,
3022 + .34562, .10087, .12665, .00198, .00000,
3023 + .00000, .00087, .00127,
3024 + .32685, .09484, .11015, .00185, .00002,
3025 + .00000, .00083, .00122,
3026 + .30864, .08904, .09534, .00173, .00005,
3027 + .00000, .00078, .00115,
3028 + .29384, .08439, .08428, .00165, .00007,
3029 + .00000, .00077, .00107,
3030 + .28046, .08020, .07501, .00157, .00009,
3031 + .00000, .00074, .00099,
3032 + .26708, .07601, .06641, .00148, .00011,
3033 + .00000, .00070, .00093 /
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 + .25605, .07258, .05986, .00140, .00012,
3036 + .00000, .00066, .00090,
3037 + .24588, .06946, .05419, .00134, .00012,
3038 + .00000, .00063, .00087,
3039 + .23815, .06711, .05013, .00130, .00013,
3040 + .00000, .00061, .00084,
3041 + .22273, .06238, .04256, .00120, .00014,
3042 + .00001, .00058, .00078,
3043 + .21044, .05866, .03705, .00113, .00014,
3044 + .00002, .00055, .00073,
3045 + .19764, .05480, .03183, .00105, .00014,
3046 + .00003, .00051, .00066,
3047 + .18528, .05109, .02729, .00096, .00014,
3048 + .00004, .00047, .00062,
3049 + .17483, .04796, .02382, .00087, .00014,
3050 + .00005, .00044, .00059 /
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 + .16496, .04504, .02084, .00081, .00014,
3053 + .00006, .00041, .00056,
3054 + .15724, .04278, .01869, .00078, .00013,
3055 + .00006, .00039, .00052,
3056 + .14841, .04020, .01644, .00073, .00013,
3057 + .00006, .00037, .00047,
3058 + .14109, .03808, .01472, .00069, .00013,
3059 + .00006, .00035, .00043,
3060 + .13474, .03625, .01333, .00064, .00012,
3061 + .00006, .00033, .00040,
3062 + .12711, .03404, .01179, .00061, .00012,
3063 + .00006, .00031, .00038,
3064 + .12040, .03211, .01055, .00057, .00011,
3065 + .00006, .00029, .00036,
3066 + .11449, .03043, .00952, .00053, .00011,
3067 + .00006, .00027, .00035 /
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 + .10887, .02884, .00862, .00051, .00011,
3070 + .00006, .00025, .00032,
3071 + .10369, .02737, .00783, .00048, .00010,
3072 + .00006, .00023, .00029,
3073 + .09905, .02606, .00718, .00045, .00010,
3074 + .00006, .00022, .00028,
3075 + .09487, .02488, .00662, .00042, .00010,
3076 + .00006, .00021, .00026,
3077 + .09089, .02377, .00611, .00040, .00009,
3078 + .00006, .00021, .00025,
3079 + .08712, .02271, .00566, .00038, .00009,
3080 + .00006, .00019, .00024,
3081 + .08372, .02177, .00527, .00036, .00009,
3082 + .00006, .00018, .00023,
3083 + .08060, .02091, .00493, .00035, .00008,
3084 + .00005, .00017, .00021 /
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 + .07760, .02009, .00462, .00034, .00008,
3087 + .00005, .00016, .00020,
3088 + .07476, .01931, .00434, .00033, .00008,
3089 + .00005, .00016, .00019,
3090 + .07216, .01859, .00408, .00032, .00007,
3091 + .00005, .00015, .00018,
3092 + .06979, .01794, .00386, .00030, .00007,
3093 + .00005, .00015, .00018,
3094 + .06747, .01731, .00365, .00029, .00007,
3095 + .00005, .00014, .00017 /
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 + .35011, .09948, .13601, .00149, .00000,
3098 + .00000, .00068, .00098,
3099 + .33055, .09339, .11795, .00140, .00000,
3100 + .00000, .00064, .00092,
3101 + .30412, .08525, .09593, .00127, .00000,
3102 + .00000, .00060, .00083,
3103 + .28666, .07989, .08276, .00118, .00001,
3104 + .00000, .00057, .00077,
3105 + .26972, .07477, .07106, .00111, .00003,
3106 + .00000, .00053, .00074,
3107 + .25606, .07064, .06243, .00106, .00005,
3108 + .00000, .00051, .00069,
3109 + .24374, .06695, .05525, .00099, .00006,
3110 + .00000, .00048, .00066,
3111 + .23144, .06329, .04863, .00092, .00007,
3112 + .00000, .00045, .00062 /
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 + .22132, .06030, .04361, .00088, .00007,
3115 + .00000, .00043, .00059,
3116 + .21204, .05758, .03930, .00085, .00008,
3117 + .00000, .00041, .00055,
3118 + .20502, .05552, .03623, .00082, .00008,
3119 + .00000, .00040, .00052,
3120 + .19104, .05143, .03056, .00075, .00008,
3121 + .00000, .00038, .00049,
3122 + .17995, .04821, .02647, .00070, .00009,
3123 + .00001, .00036, .00045,
3124 + .16842, .04488, .02261, .00063, .00009,
3125 + .00002, .00033, .00043,
3126 + .15728, .04170, .01928, .00059, .00009,
3127 + .00003, .00030, .00040,
3128 + .14791, .03905, .01677, .00056, .00009,
3129 + .00003, .00028, .00036 /
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 + .13912, .03656, .01462, .00052, .00008,
3132 + .00004, .00027, .00033,
3133 + .13227, .03463, .01307, .00049, .00008,
3134 + .00004, .00025, .00031,
3135 + .12447, .03245, .01147, .00046, .00008,
3136 + .00004, .00023, .00029,
3137 + .11801, .03064, .01024, .00043, .00008,
3138 + .00004, .00022, .00028,
3139 + .11242, .02909, .00926, .00041, .00008,
3140 + .00004, .00020, .00026,
3141 + .10578, .02724, .00817, .00036, .00007,
3142 + .00004, .00018, .00024,
3143 + .09992, .02563, .00729, .00033, .00007,
3144 + .00004, .00017, .00023,
3145 + .09475, .02423, .00657, .00032, .00007,
3146 + .00004, .00016, .00021 /
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 + .08987, .02290, .00594, .00031, .00006,
3149 + .00004, .00015, .00019,
3150 + .08537, .02168, .00540, .00029, .00006,
3151 + .00004, .00015, .00018,
3152 + .08136, .02060, .00494, .00027, .00006,
3153 + .00004, .00014, .00018,
3154 + .07775, .01963, .00455, .00026, .00006,
3155 + .00004, .00013, .00016,
3156 + .07431, .01871, .00420, .00025, .00006,
3157 + .00004, .00012, .00014,
3158 + .07108, .01785, .00389, .00024, .00005,
3159 + .00003, .00011, .00014,
3160 + .06816, .01707, .00362, .00023, .00005,
3161 + .00003, .00011, .00013,
3162 + .06551, .01637, .00338, .00022, .00005,
3163 + .00003, .00011, .00013 /
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 + .06297, .01569, .00316, .00022, .00005,
3166 + .00003, .00010, .00012,
3167 + .06055, .01506, .00297, .00020, .00005,
3168 + .00003, .00010, .00011,
3169 + .05835, .01447, .00279, .00019, .00004,
3170 + .00003, .00009, .00011,
3171 + .05634, .01395, .00264, .00018, .00004,
3172 + .00003, .00008, .00010,
3173 + .05439, .01343, .00250, .00017, .00004,
3174 + .00003, .00008, .00010 /
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 + .30682, .08369, .10241, .00094, .00000,
3177 + .00000, .00046, .00062,
3178 + .28870, .07833, .08806, .00089, .00000,
3179 + .00000, .00044, .00059,
3180 + .26433, .07113, .07077, .00078, .00000,
3181 + .00000, .00040, .00053,
3182 + .24825, .06645, .06060, .00072, .00001,
3183 + .00000, .00039, .00050,
3184 + .23276, .06199, .05163, .00071, .00002,
3185 + .00000, .00037, .00045,
3186 + .22033, .05842, .04507, .00066, .00003,
3187 + .00000, .00034, .00042,
3188 + .20912, .05520, .03965, .00062, .00003,
3189 + .00000, .00032, .00040,
3190 + .19797, .05202, .03470, .00059, .00004,
3191 + .00000, .00030, .00038 /
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 + .18890, .04944, .03097, .00053, .00004,
3194 + .00000, .00029, .00036,
3195 + .18056, .04709, .02780, .00050, .00005,
3196 + .00000, .00028, .00034,
3197 + .17426, .04533, .02555, .00049, .00005,
3198 + .00000, .00027, .00033,
3199 + .16170, .04183, .02141, .00046, .00005,
3200 + .00000, .00025, .00031,
3201 + .15182, .03909, .01847, .00043, .00005,
3202 + .00001, .00022, .00029,
3203 + .14161, .03627, .01571, .00038, .00005,
3204 + .00001, .00021, .00027,
3205 + .13179, .03357, .01334, .00034, .00005,
3206 + .00002, .00019, .00025,
3207 + .12352, .03133, .01155, .00033, .00005,
3208 + .00002, .00018, .00023 /
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 + .11580, .02924, .01004, .00031, .00005,
3211 + .00002, .00017, .00021,
3212 + .10983, .02761, .00896, .00027, .00005,
3213 + .00002, .00016, .00020,
3214 + .10303, .02580, .00784, .00025, .00005,
3215 + .00002, .00015, .00018,
3216 + .09742, .02430, .00699, .00024, .00005,
3217 + .00002, .00014, .00016,
3218 + .09258, .02302, .00631, .00023, .00005,
3219 + .00002, .00013, .00015,
3220 + .08681, .02149, .00556, .00021, .00004,
3221 + .00002, .00012, .00014,
3222 + .08175, .02016, .00496, .00020, .00004,
3223 + .00002, .00011, .00014,
3224 + .07732, .01900, .00446, .00019, .00004,
3225 + .00002, .00011, .00013 /
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 + .07314, .01791, .00403, .00018, .00004,
3228 + .00002, .00010, .00012,
3229 + .06931, .01692, .00366, .00017, .00004,
3230 + .00002, .00009, .00011,
3231 + .06590, .01604, .00334, .00016, .00004,
3232 + .00002, .00009, .00010,
3233 + .06284, .01524, .00308, .00014, .00003,
3234 + .00002, .00009, .00010,
3235 + .05994, .01449, .00284, .00013, .00003,
3236 + .00002, .00008, .00010,
3237 + .05720, .01380, .00263, .00013, .00003,
3238 + .00002, .00007, .00009,
3239 + .05473, .01318, .00244, .00014, .00003,
3240 + .00002, .00007, .00008,
3241 + .05250, .01261, .00228, .00013, .00003,
3242 + .00002, .00007, .00008 /
3243 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
3244 + .05037, .01207, .00214, .00012, .00003,
3245 + .00002, .00006, .00007,
3246 + .04836, .01155, .00200, .00011, .00003,
3247 + .00002, .00006, .00007,
3248 + .04652, .01109, .00188, .00010, .00003,
3249 + .00002, .00006, .00007,
3250 + .04484, .01066, .00178, .00010, .00003,
3251 + .00002, .00005, .00007,
3252 + .04320, .01025, .00168, .00010, .00002,
3253 + .00002, .00005, .00006 /
3254 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
3255 + .26553, .06958, .07505, .00067, .00000,
3256 + .00000, .00027, .00035,
3257 + .24902, .06489, .06401, .00059, .00000,
3258 + .00000, .00024, .00033,
3259 + .22683, .05864, .05089, .00054, .00000,
3260 + .00000, .00023, .00029,
3261 + .21228, .05461, .04326, .00051, .00000,
3262 + .00000, .00021, .00028,
3263 + .19837, .05075, .03659, .00048, .00001,
3264 + .00000, .00020, .00026,
3265 + .18724, .04768, .03177, .00043, .00002,
3266 + .00000, .00019, .00023,
3267 + .17725, .04494, .02782, .00039, .00002,
3268 + .00000, .00018, .00023,
3269 + .16731, .04223, .02423, .00037, .00002,
3270 + .00000, .00017, .00023 /
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 + .15920, .04004, .02153, .00036, .00002,
3273 + .00000, .00016, .00020,
3274 + .15181, .03805, .01926, .00034, .00003,
3275 + .00000, .00016, .00019,
3276 + .14625, .03655, .01766, .00032, .00003,
3277 + .00000, .00016, .00018,
3278 + .13521, .03361, .01472, .00029, .00003,
3279 + .00000, .00013, .00017,
3280 + .12651, .03131, .01264, .00027, .00003,
3281 + .00000, .00011, .00016,
3282 + .11756, .02895, .01072, .00026, .00003,
3283 + .00001, .00011, .00014,
3284 + .10902, .02670, .00907, .00024, .00003,
3285 + .00001, .00011, .00013,
3286 + .10186, .02484, .00784, .00022, .00003,
3287 + .00001, .00009, .00012 /
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 + .09519, .02311, .00680, .00021, .00003,
3290 + .00001, .00009, .00011,
3291 + .09004, .02178, .00606, .00019, .00003,
3292 + .00001, .00008, .00009,
3293 + .08419, .02027, .00529, .00018, .00003,
3294 + .00001, .00008, .00009,
3295 + .07938, .01904, .00471, .00017, .00003,
3296 + .00001, .00007, .00008,
3297 + .07525, .01800, .00425, .00016, .00003,
3298 + .00001, .00007, .00008,
3299 + .07034, .01675, .00374, .00014, .00003,
3300 + .00001, .00006, .00007,
3301 + .06605, .01567, .00333, .00013, .00002,
3302 + .00001, .00006, .00006,
3303 + .06230, .01474, .00300, .00013, .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 + .05878, .01386, .00270, .00012, .00002,
3307 + .00001, .00005, .00005,
3308 + .05557, .01305, .00245, .00011, .00002,
3309 + .00001, .00004, .00005,
3310 + .05271, .01234, .00224, .00010, .00002,
3311 + .00001, .00005, .00005,
3312 + .05015, .01171, .00207, .00010, .00002,
3313 + .00001, .00004, .00005,
3314 + .04772, .01111, .00190, .00010, .00002,
3315 + .00001, .00004, .00005,
3316 + .04546, .01055, .00176, .00009, .00002,
3317 + .00001, .00004, .00004,
3318 + .04342, .01005, .00164, .00008, .00002,
3319 + .00001, .00004, .00004,
3320 + .04158, .00960, .00153, .00007, .00002,
3321 + .00001, .00003, .00004 /
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 + .03981, .00917, .00143, .00007, .00002,
3324 + .00001, .00003, .00004,
3325 + .03814, .00877, .00134, .00007, .00002,
3326 + .00001, .00003, .00003,
3327 + .03662, .00840, .00126, .00007, .00002,
3328 + .00001, .00003, .00003,
3329 + .03523, .00806, .00119, .00007, .00001,
3330 + .00001, .00003, .00003,
3331 + .03388, .00774, .00113, .00007, .00001,
3332 + .00001, .00002, .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 + .22629, .05674, .05312, .00036, .00000,
3335 + .00000, .00020, .00026,
3336 + .21145, .05273, .04496, .00034, .00000,
3337 + .00000, .00018, .00021,
3338 + .19165, .04743, .03538, .00028, .00000,
3339 + .00000, .00016, .00019,
3340 + .17871, .04401, .02985, .00028, .00000,
3341 + .00000, .00015, .00017,
3342 + .16643, .04077, .02509, .00025, .00001,
3343 + .00000, .00014, .00016,
3344 + .15655, .03819, .02167, .00024, .00001,
3345 + .00000, .00013, .00015,
3346 + .14774, .03590, .01888, .00023, .00001,
3347 + .00000, .00012, .00014,
3348 + .13904, .03363, .01637, .00021, .00001,
3349 + .00000, .00012, .00012 /
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 + .13197, .03179, .01450, .00019, .00001,
3352 + .00000, .00011, .00013,
3353 + .12553, .03014, .01292, .00017, .00001,
3354 + .00000, .00010, .00013,
3355 + .12070, .02891, .01181, .00016, .00002,
3356 + .00000, .00009, .00012,
3357 + .11114, .02646, .00981, .00015, .00002,
3358 + .00000, .00008, .00011,
3359 + .10364, .02457, .00840, .00014, .00002,
3360 + .00000, .00008, .00010,
3361 + .09595, .02263, .00709, .00013, .00002,
3362 + .00000, .00007, .00008,
3363 + .08862, .02080, .00599, .00012, .00002,
3364 + .00001, .00007, .00007,
3365 + .08253, .01928, .00516, .00011, .00002,
3366 + .00001, .00006, .00007 /
3367 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
3368 + .07686, .01788, .00447, .00010, .00002,
3369 + .00001, .00006, .00007,
3370 + .07250, .01680, .00398, .00009, .00002,
3371 + .00001, .00005, .00006,
3372 + .06757, .01559, .00348, .00008, .00002,
3373 + .00001, .00005, .00006,
3374 + .06353, .01460, .00309, .00008, .00002,
3375 + .00001, .00005, .00005,
3376 + .06005, .01376, .00279, .00008, .00001,
3377 + .00001, .00004, .00005,
3378 + .05595, .01277, .00245, .00008, .00001,
3379 + .00001, .00004, .00005,
3380 + .05238, .01190, .00218, .00007, .00001,
3381 + .00001, .00004, .00004,
3382 + .04927, .01116, .00196, .00007, .00001,
3383 + .00001, .00003, .00004 /
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 + .04637, .01047, .00177, .00006, .00001,
3386 + .00001, .00003, .00003,
3387 + .04372, .00984, .00161, .00005, .00001,
3388 + .00001, .00003, .00003,
3389 + .04137, .00927, .00147, .00004, .00001,
3390 + .00001, .00003, .00004,
3391 + .03926, .00878, .00135, .00004, .00001,
3392 + .00001, .00003, .00003,
3393 + .03727, .00831, .00125, .00004, .00001,
3394 + .00001, .00002, .00003,
3395 + .03542, .00788, .00115, .00004, .00001,
3396 + .00001, .00002, .00003,
3397 + .03376, .00749, .00107, .00003, .00001,
3398 + .00001, .00002, .00003,
3399 + .03226, .00714, .00100, .00003, .00001,
3400 + .00001, .00002, .00003 /
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 + .03082, .00680, .00094, .00003, .00001,
3403 + .00001, .00002, .00003,
3404 + .02946, .00649, .00088, .00003, .00001,
3405 + .00001, .00002, .00003,
3406 + .02823, .00621, .00082, .00003, .00001,
3407 + .00001, .00002, .00002,
3408 + .02712, .00595, .00078, .00003, .00001,
3409 + .00001, .00001, .00002,
3410 + .02604, .00570, .00073, .00003, .00001,
3411 + .00001, .00001, .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 + .15682, .03598, .02406, .00015, .00000,
3414 + .00000, .00006, .00008,
3415 + .14545, .03320, .02007, .00012, .00000,
3416 + .00000, .00005, .00007,
3417 + .13037, .02954, .01549, .00012, .00000,
3418 + .00000, .00004, .00006,
3419 + .12068, .02719, .01291, .00012, .00000,
3420 + .00000, .00004, .00004,
3421 + .11152, .02500, .01073, .00009, .00000,
3422 + .00000, .00003, .00005,
3423 + .10426, .02326, .00919, .00006, .00000,
3424 + .00000, .00003, .00005,
3425 + .09779, .02173, .00795, .00006, .00000,
3426 + .00000, .00004, .00005,
3427 + .09142, .02024, .00684, .00007, .00000,
3428 + .00000, .00003, .00004 /
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 + .08629, .01903, .00603, .00007, .00000,
3431 + .00000, .00003, .00004,
3432 + .08165, .01795, .00535, .00007, .00000,
3433 + .00000, .00003, .00003,
3434 + .07819, .01714, .00487, .00006, .00000,
3435 + .00000, .00002, .00003,
3436 + .07139, .01556, .00403, .00005, .00000,
3437 + .00000, .00003, .00003,
3438 + .06610, .01435, .00344, .00004, .00000,
3439 + .00000, .00003, .00002,
3440 + .06072, .01311, .00290, .00004, .00000,
3441 + .00000, .00002, .00002,
3442 + .05564, .01195, .00244, .00003, .00000,
3443 + .00000, .00002, .00002,
3444 + .05145, .01100, .00210, .00003, .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 + .04757, .01013, .00182, .00003, .00000,
3448 + .00000, .00002, .00002,
3449 + .04461, .00946, .00162, .00002, .00000,
3450 + .00000, .00002, .00002,
3451 + .04129, .00872, .00141, .00002, .00000,
3452 + .00000, .00001, .00002,
3453 + .03858, .00812, .00126, .00002, .00000,
3454 + .00000, .00001, .00001,
3455 + .03628, .00761, .00113, .00002, .00000,
3456 + .00000, .00002, .00002,
3457 + .03356, .00701, .00100, .00002, .00000,
3458 + .00000, .00001, .00002,
3459 + .03122, .00650, .00089, .00002, .00000,
3460 + .00000, .00001, .00002,
3461 + .02921, .00606, .00080, .00002, .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 + .02732, .00565, .00072, .00001, .00000,
3465 + .00000, .00001, .00001,
3466 + .02561, .00528, .00066, .00001, .00000,
3467 + .00000, .00001, .00001,
3468 + .02411, .00495, .00060, .00001, .00000,
3469 + .00000, .00001, .00001,
3470 + .02277, .00466, .00055, .00001, .00000,
3471 + .00000, .00001, .00001,
3472 + .02150, .00439, .00051, .00001, .00000,
3473 + .00000, .00001, .00001,
3474 + .02034, .00414, .00047, .00001, .00000,
3475 + .00000, .00001, .00001,
3476 + .01930, .00392, .00044, .00001, .00000,
3477 + .00000, .00001, .00001,
3478 + .01836, .00372, .00041, .00001, .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 + .01748, .00353, .00038, .00001, .00000,
3482 + .00000, .00001, .00001,
3483 + .01664, .00336, .00036, .00001, .00000,
3484 + .00000, .00001, .00001,
3485 + .01589, .00320, .00033, .00001, .00000,
3486 + .00000, .00001, .00001,
3487 + .01520, .00306, .00032, .00001, .00000,
3488 + .00000, .00001, .00001,
3489 + .01454, .00292, .00030, .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 + .10043, .02088, .00919, .00004, .00000,
3493 + .00000, .00001, .00001,
3494 + .09238, .01910, .00758, .00004, .00000,
3495 + .00000, .00001, .00001,
3496 + .08185, .01681, .00577, .00004, .00000,
3497 + .00000, .00000, .00001,
3498 + .07515, .01535, .00477, .00003, .00000,
3499 + .00000, .00001, .00001,
3500 + .06886, .01399, .00394, .00002, .00000,
3501 + .00000, .00001, .00002,
3502 + .06392, .01293, .00336, .00003, .00000,
3503 + .00000, .00001, .00001,
3504 + .05955, .01200, .00290, .00003, .00000,
3505 + .00000, .00001, .00001,
3506 + .05529, .01110, .00249, .00003, .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 + .05188, .01038, .00219, .00002, .00000,
3510 + .00000, .00000, .00001,
3511 + .04882, .00973, .00194, .00002, .00000,
3512 + .00000, .00000, .00001,
3513 + .04654, .00925, .00177, .00002, .00000,
3514 + .00000, .00000, .00000,
3515 + .04210, .00832, .00146, .00001, .00000,
3516 + .00000, .00001, .00001,
3517 + .03868, .00761, .00125, .00002, .00000,
3518 + .00000, .00001, .00000,
3519 + .03524, .00690, .00105, .00001, .00000,
3520 + .00000, .00001, .00000,
3521 + .03201, .00624, .00089, .00001, .00000,
3522 + .00000, .00000, .00000,
3523 + .02937, .00570, .00077, .00001, .00000,
3524 + .00000, .00000, .00001 /
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 + .02695, .00521, .00067, .00001, .00000,
3527 + .00000, .00000, .00000,
3528 + .02510, .00483, .00060, .00001, .00000,
3529 + .00000, .00000, .00000,
3530 + .02306, .00442, .00052, .00001, .00000,
3531 + .00000, .00000, .00000,
3532 + .02141, .00409, .00047, .00001, .00000,
3533 + .00000, .00000, .00000,
3534 + .02002, .00381, .00042, .00000, .00000,
3535 + .00000, .00000, .00000,
3536 + .01838, .00349, .00037, .00001, .00000,
3537 + .00000, .00000, .00000,
3538 + .01698, .00321, .00033, .00001, .00000,
3539 + .00000, .00000, .00000,
3540 + .01578, .00297, .00030, .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 + .01467, .00275, .00027, .00000, .00000,
3544 + .00000, .00000, .00000,
3545 + .01367, .00256, .00024, .00000, .00000,
3546 + .00000, .00000, .00000,
3547 + .01279, .00239, .00022, .00000, .00000,
3548 + .00000, .00000, .00000,
3549 + .01201, .00224, .00021, .00001, .00000,
3550 + .00000, .00000, .00000,
3551 + .01129, .00210, .00019, .00001, .00000,
3552 + .00000, .00000, .00000,
3553 + .01062, .00197, .00017, .00000, .00000,
3554 + .00000, .00000, .00000,
3555 + .01003, .00185, .00016, .00000, .00000,
3556 + .00000, .00000, .00000,
3557 + .00950, .00175, .00015, .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 + .00900, .00165, .00014, .00000, .00000,
3561 + .00000, .00000, .00000,
3562 + .00853, .00156, .00013, .00000, .00000,
3563 + .00000, .00000, .00000,
3564 + .00811, .00148, .00012, .00000, .00000,
3565 + .00000, .00000, .00000,
3566 + .00773, .00141, .00012, .00000, .00000,
3567 + .00000, .00000, .00000,
3568 + .00736, .00134, .00011, .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 + .05793, .01078, .00282, .00002, .00000,
3572 + .00000, .00000, .00000,
3573 + .05281, .00977, .00232, .00001, .00000,
3574 + .00000, .00000, .00000,
3575 + .04618, .00848, .00176, .00002, .00000,
3576 + .00000, .00000, .00000,
3577 + .04201, .00768, .00145, .00001, .00000,
3578 + .00000, .00000, -.00001,
3579 + .03814, .00694, .00120, .00001, .00000,
3580 + .00000, .00000, .00000,
3581 + .03512, .00636, .00102, .00001, .00000,
3582 + .00000, .00000, .00000,
3583 + .03249, .00586, .00089, .00001, .00000,
3584 + .00000, .00000, .00000,
3585 + .02994, .00538, .00076, .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 + .02789, .00499, .00067, .00001, .00000,
3589 + .00000, .00000, .00000,
3590 + .02608, .00465, .00060, .00001, .00000,
3591 + .00000, .00000, .00000,
3592 + .02475, .00440, .00055, .00000, .00000,
3593 + .00000, .00000, .00000,
3594 + .02215, .00392, .00046, .00001, .00000,
3595 + .00000, .00000, .00000,
3596 + .02017, .00356, .00039, .00001, .00000,
3597 + .00000, .00000, .00000,
3598 + .01820, .00319, .00033, .00000, .00000,
3599 + .00000, .00000, .00000,
3600 + .01638, .00286, .00028, .00000, .00000,
3601 + .00000, .00000, .00000,
3602 + .01489, .00259, .00025, .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 + .01355, .00234, .00022, .00000, .00000,
3606 + .00000, .00000, .00000,
3607 + .01254, .00216, .00019, .00000, .00000,
3608 + .00000, .00000, .00000,
3609 + .01142, .00196, .00017, .00000, .00000,
3610 + .00000, .00000, .00000,
3611 + .01052, .00180, .00015, .00000, .00000,
3612 + .00000, .00000, .00000,
3613 + .00977, .00167, .00014, .00000, .00000,
3614 + .00000, .00000, .00000,
3615 + .00890, .00151, .00012, .00000, .00000,
3616 + .00000, .00000, .00000,
3617 + .00816, .00138, .00011, .00000, .00000,
3618 + .00000, .00000, .00000,
3619 + .00753, .00127, .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 + .00695, .00117, .00009, .00000, .00000,
3623 + .00000, .00000, .00000,
3624 + .00643, .00108, .00008, .00000, .00000,
3625 + .00000, .00000, .00000,
3626 + .00597, .00100, .00007, .00000, .00000,
3627 + .00000, .00000, .00000,
3628 + .00558, .00093, .00007, .00000, .00000,
3629 + .00000, .00000, .00000,
3630 + .00521, .00087, .00006, .00000, .00000,
3631 + .00000, .00000, .00000,
3632 + .00488, .00081, .00006, .00000, .00000,
3633 + .00000, .00000, .00000,
3634 + .00458, .00076, .00005, .00000, .00000,
3635 + .00000, .00000, .00000,
3636 + .00431, .00071, .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 + .00406, .00067, .00005, .00000, .00000,
3640 + .00000, .00000, .00000,
3641 + .00383, .00063, .00004, .00000, .00000,
3642 + .00000, .00000, .00000,
3643 + .00363, .00060, .00004, .00000, .00000,
3644 + .00000, .00000, .00000,
3645 + .00344, .00056, .00004, .00000, .00000,
3646 + .00000, .00000, .00000,
3647 + .00326, .00053, .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 + .02873, .00468, .00064, .00000, .00000,
3651 + .00000, .00000, .00000,
3652 + .02593, .00420, .00053, -.00001, .00000,
3653 + .00000, .00000, .00000,
3654 + .02233, .00359, .00041, .00000, .00000,
3655 + .00000, .00000, .00000,
3656 + .02010, .00322, .00034, .00000, .00000,
3657 + .00000, .00000, .00000,
3658 + .01805, .00288, .00029, .00000, .00000,
3659 + .00000, .00000, .00000,
3660 + .01647, .00261, .00025, .00000, .00000,
3661 + .00000, .00000, .00000,
3662 + .01510, .00239, .00022, .00000, .00000,
3663 + .00000, .00000, .00000,
3664 + .01379, .00217, .00019, .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 + .01275, .00200, .00017, .00000, .00000,
3668 + .00000, .00000, .00000,
3669 + .01183, .00185, .00015, .00000, .00000,
3670 + .00000, .00000, .00000,
3671 + .01116, .00174, .00014, .00000, .00000,
3672 + .00000, .00000, .00000,
3673 + .00987, .00153, .00012, .00000, .00000,
3674 + .00000, .00000, .00000,
3675 + .00890, .00138, .00010, .00000, .00000,
3676 + .00000, .00000, .00000,
3677 + .00794, .00122, .00009, .00000, .00000,
3678 + .00000, .00000, .00000,
3679 + .00706, .00108, .00008, .00000, .00000,
3680 + .00000, .00000, .00000,
3681 + .00636, .00097, .00007, .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 + .00572, .00087, .00006, .00000, .00000,
3685 + .00000, .00000, .00000,
3686 + .00525, .00080, .00005, .00000, .00000,
3687 + .00000, .00000, .00000,
3688 + .00474, .00071, .00005, .00000, .00000,
3689 + .00000, .00000, .00000,
3690 + .00433, .00065, .00004, .00000, .00000,
3691 + .00000, .00000, .00000,
3692 + .00399, .00060, .00004, .00000, .00000,
3693 + .00000, .00000, .00000,
3694 + .00360, .00054, .00003, .00000, .00000,
3695 + .00000, .00000, .00000,
3696 + .00327, .00049, .00003, .00000, .00000,
3697 + .00000, .00000, .00000,
3698 + .00299, .00044, .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 + .00274, .00040, .00002, .00000, .00000,
3702 + .00000, .00000, .00000,
3703 + .00251, .00037, .00002, .00000, .00000,
3704 + .00000, .00000, .00000,
3705 + .00232, .00034, .00002, .00000, .00000,
3706 + .00000, .00000, .00000,
3707 + .00215, .00031, .00002, .00000, .00000,
3708 + .00000, .00000, .00000,
3709 + .00199, .00029, .00002, .00000, .00000,
3710 + .00000, .00000, .00000,
3711 + .00185, .00027, .00002, .00000, .00000,
3712 + .00000, .00000, .00000,
3713 + .00173, .00025, .00001, .00000, .00000,
3714 + .00000, .00000, .00000,
3715 + .00162, .00023, .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 + .00151, .00022, .00001, .00000, .00000,
3719 + .00000, .00000, .00000,
3720 + .00142, .00021, .00001, .00000, .00000,
3721 + .00000, .00000, .00000,
3722 + .00133, .00019, .00001, .00000, .00000,
3723 + .00000, .00000, .00000,
3724 + .00126, .00018, .00001, .00000, .00000,
3725 + .00000, .00000, .00000,
3726 + .00119, .00017, .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 + .00295, .00033, .00001, .00000, .00000,
3730 + .00000, .00000, .00000,
3731 + .00258, .00029, .00001, .00000, .00000,
3732 + .00000, .00000, .00000,
3733 + .00213, .00023, .00001, .00000, .00000,
3734 + .00000, .00000, .00000,
3735 + .00186, .00020, .00001, .00000, .00000,
3736 + .00000, .00000, .00000,
3737 + .00162, .00018, .00001, .00000, .00000,
3738 + .00000, .00000, .00000,
3739 + .00144, .00016, .00001, .00000, .00000,
3740 + .00000, .00000, .00000,
3741 + .00129, .00014, .00001, .00000, .00000,
3742 + .00000, .00000, .00000,
3743 + .00114, .00012, .00001, .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 + .00103, .00011, .00000, .00000, .00000,
3747 + .00000, .00000, .00000,
3748 + .00094, .00010, .00000, .00000, .00000,
3749 + .00000, .00000, .00000,
3750 + .00087, .00009, .00000, .00000, .00000,
3751 + .00000, .00000, .00000,
3752 + .00074, .00008, .00000, .00000, .00000,
3753 + .00000, .00000, .00000,
3754 + .00065, .00007, .00000, .00000, .00000,
3755 + .00000, .00000, .00000,
3756 + .00056, .00006, .00000, .00000, .00000,
3757 + .00000, .00000, .00000,
3758 + .00048, .00005, .00000, .00000, .00000,
3759 + .00000, .00000, .00000,
3760 + .00042, .00004, .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, .00004, .00000, .00000, .00000,
3764 + .00000, .00000, .00000,
3765 + .00033, .00003, .00000, .00000, .00000,
3766 + .00000, .00000, .00000,
3767 + .00029, .00003, .00000, .00000, .00000,
3768 + .00000, .00000, .00000,
3769 + .00026, .00003, .00000, .00000, .00000,
3770 + .00000, .00000, .00000,
3771 + .00023, .00002, .00000, .00000, .00000,
3772 + .00000, .00000, .00000,
3773 + .00020, .00002, .00000, .00000, .00000,
3774 + .00000, .00000, .00000,
3775 + .00018, .00002, .00000, .00000, .00000,
3776 + .00000, .00000, .00000,
3777 + .00016, .00002, .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 + .00014, .00002, .00000, .00000, .00000,
3781 + .00000, .00000, .00000,
3782 + .00013, .00001, .00000, .00000, .00000,
3783 + .00000, .00000, .00000,
3784 + .00012, .00001, .00000, .00000, .00000,
3785 + .00000, .00000, .00000,
3786 + .00011, .00001, .00000, .00000, .00000,
3787 + .00000, .00000, .00000,
3788 + .00010, .00001, .00000, .00000, .00000,
3789 + .00000, .00000, .00000,
3790 + .00009, .00001, .00000, .00000, .00000,
3791 + .00000, .00000, .00000,
3792 + .00008, .00001, .00000, .00000, .00000,
3793 + .00000, .00000, .00000,
3794 + .00007, .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 + .00006, .00001, .00000, .00000, .00000,
3800 + .00000, .00000, .00000,
3801 + .00006, .00001, .00000, .00000, .00000,
3802 + .00000, .00000, .00000,
3803 + .00005, .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='cor02.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