2 subroutine sfmrs_98a2(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 + .00510, .00251, 1.10688, .90346, .00000,
17 + .00000, .48165, .91695,
18 + .00527, .00258, 2.36364, .93734, .00000,
19 + .00000, .52101, .95094,
20 + .00553, .00267, 4.83473, 1.01202, .03326,
21 + .00000, .60348, 1.02576,
22 + .00572, .00275, 7.21821, 1.08454, .11146,
23 + .00000, .68145, 1.09837,
24 + .00592, .00282, 10.25881, 1.18080, .20031,
25 + .00000, .78327, 1.19470,
26 + .00609, .00289, 13.37211, 1.28065, .29262,
27 + .00000, .88779, 1.29461,
28 + .00625, .00296, 16.87478, 1.39018, .39834,
29 + .00000, 1.00167, 1.40418,
30 + .00643, .00303, 21.18184, 1.52224, .52868,
31 + .00000, 1.13823, 1.53628 /
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 + .00659, .00310, 25.37047, 1.65236, .65413,
34 + .00000, 1.27217, 1.66643,
35 + .00673, .00316, 29.86588, 1.79103, .78895,
36 + .00000, 1.41445, 1.80512,
37 + .00685, .00321, 33.80442, 1.91001, .90745,
38 + .00000, 1.53624, 1.92412,
39 + .00711, .00332, 43.06942, 2.19400, 1.18715,
40 + .02223, 1.82605, 2.20812,
41 + .00733, .00342, 52.07138, 2.47224, 1.46053,
42 + .34113, 2.10916, 2.48636,
43 + .00758, .00353, 63.45149, 2.82272, 1.80706,
44 + .73948, 2.46494, 2.83684,
45 + .00784, .00364, 76.80630, 3.23311, 2.21384,
46 + 1.16389, 2.88068, 3.24721,
47 + .00808, .00375, 90.29980, 3.64752, 2.62552,
48 + 1.59385, 3.29980, 3.66160 /
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 + .00832, .00386, 105.29520, 4.10834, 3.08458,
51 + 2.07153, 3.76524, 4.12239,
52 + .00853, .00396, 118.75182, 4.52408, 3.49791,
53 + 2.49680, 4.18471, 4.53810,
54 + .00878, .00407, 136.29903, 5.06927, 4.03950,
55 + 3.05200, 4.73433, 5.08324,
56 + .00900, .00417, 153.06889, 5.59142, 4.56004,
57 + 3.58814, 5.26029, 5.60535,
58 + .00920, .00427, 169.49274, 6.10444, 5.07255,
59 + 4.11637, 5.77673, 6.11833,
60 + .00947, .00439, 191.50041, 6.79957, 5.76425,
61 + 4.82259, 6.47609, 6.81339,
62 + .00972, .00451, 213.65015, 7.50284, 6.46582,
63 + 5.54086, 7.18325, 7.51660,
64 + .00995, .00462, 235.78360, 8.20836, 7.17187,
65 + 6.26618, 7.89232, 8.22206 /
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 + .01019, .00474, 258.77975, 8.95189, 7.91241,
68 + 7.01966, 8.63933, 8.96552,
69 + .01042, .00485, 282.57089, 9.72455, 8.68435,
70 + 7.80818, 9.41530, 9.73811,
71 + .01065, .00496, 306.17310, 10.49648, 9.45620,
72 + 8.59649, 10.19032, 10.50998,
73 + .01086, .00506, 329.13446, 11.25586, 10.21407,
74 + 9.36765, 10.95255, 11.26929,
75 + .01108, .00516, 353.35953, 12.05957, 11.01873,
76 + 10.18948, 11.75906, 12.07293,
77 + .01129, .00527, 377.68521, 12.87768, 11.83519,
78 + 11.01869, 12.57989, 12.89097,
79 + .01149, .00537, 401.94644, 13.69528, 12.65410,
80 + 11.85407, 13.40002, 13.70851,
81 + .01169, .00546, 425.21692, 14.49012, 13.44773,
82 + 12.65951, 14.19722, 14.50328 /
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 + .01189, .00556, 449.66071, 15.32748, 14.28599,
85 + 13.51282, 15.03693, 15.34058,
86 + .01208, .00566, 474.23663, 16.17825, 15.13665,
87 + 14.37672, 15.88998, 16.19130,
88 + .01227, .00575, 498.34888, 17.01844, 15.97717,
89 + 15.23050, 16.73230, 17.03142,
90 + .01245, .00584, 521.90094, 17.84327, 16.80334,
91 + 16.07067, 17.55914, 17.85620,
92 + .01264, .00593, 545.91125, 18.69417, 17.65384,
93 + 16.93269, 18.41204, 18.70704 /
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 + .00696, .00337, 1.03458, .76573, .00000,
96 + .00000, .40748, .77358,
97 + .00720, .00346, 2.16835, .79731, .00000,
98 + .00000, .44334, .80523,
99 + .00755, .00361, 4.34798, .86355, .02886,
100 + .00000, .51564, .87155,
101 + .00781, .00372, 6.40551, .92612, .09612,
102 + .00000, .58246, .93417,
103 + .00809, .00383, 8.98451, 1.00757, .17108,
104 + .00000, .66823, 1.01566,
105 + .00832, .00394, 11.58427, 1.09086, .24798,
106 + .00000, .75514, 1.09899,
107 + .00855, .00404, 14.47203, 1.18138, .33518,
108 + .00000, .84903, 1.18953,
109 + .00879, .00414, 17.97907, 1.28957, .44162,
110 + .00000, .96071, 1.29775 /
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 + .00901, .00424, 21.34900, 1.39519, .54312,
113 + .00000, 1.06928, 1.40338,
114 + .00921, .00433, 24.92942, 1.50694, .65137,
115 + .00000, 1.18382, 1.51514,
116 + .00937, .00440, 28.04069, 1.60231, .74593,
117 + .00000, 1.28136, 1.61053,
118 + .00972, .00456, 35.26984, 1.82795, .96712,
119 + .01806, 1.51151, 1.83618,
120 + .01003, .00470, 42.18938, 2.04677, 1.18104,
121 + .26700, 1.73409, 2.05500,
122 + .01037, .00486, 50.82276, 2.31981, 1.44957,
123 + .57582, 2.01122, 2.32804,
124 + .01072, .00502, 60.81812, 2.63634, 1.76159,
125 + .90084, 2.33187, 2.64457,
126 + .01105, .00518, 70.79073, 2.95299, 2.07437,
127 + 1.22689, 2.65215, 2.96121 /
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 + .01138, .00533, 81.74635, 3.30205, 2.42014,
130 + 1.58588, 3.00477, 3.31026,
131 + .01166, .00546, 91.47599, 3.61447, 2.72897,
132 + 1.90284, 3.32007, 3.62266,
133 + .01200, .00563, 104.03548, 4.02099, 3.13052,
134 + 2.31336, 3.73000, 4.02916,
135 + .01230, .00577, 115.92147, 4.40738, 3.51358,
136 + 2.70685, 4.11932, 4.41553,
137 + .01258, .00591, 127.46274, 4.78446, 3.88823,
138 + 3.09197, 4.49904, 4.79259,
139 + .01294, .00608, 142.77927, 5.29157, 4.39009,
140 + 3.60285, 5.00941, 5.29967,
141 + .01327, .00624, 158.04828, 5.80076, 4.89535,
142 + 4.11866, 5.52158, 5.80882,
143 + .01359, .00640, 173.17590, 6.30808, 5.40048,
144 + 4.63617, 6.03164, 6.31612 /
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 + .01391, .00656, 188.75221, 6.83897, 5.92651,
147 + 5.16975, 6.56520, 6.84697,
148 + .01423, .00671, 204.74258, 7.38720, 6.47154,
149 + 5.72492, 7.11600, 7.39517,
150 + .01453, .00686, 220.48721, 7.93162, 7.01329,
151 + 6.27668, 7.66279, 7.93956,
152 + .01481, .00700, 235.69031, 8.46402, 7.54210,
153 + 6.81318, 8.19739, 8.47193,
154 + .01510, .00715, 251.63194, 9.02464, 8.10085,
155 + 7.38233, 8.76017, 9.03251,
156 + .01539, .00729, 267.52240, 9.59203, 8.66449,
157 + 7.95310, 9.32966, 9.59987,
158 + .01566, .00743, 283.28485, 10.15645, 9.22739,
159 + 8.52582, 9.89604, 10.16427,
160 + .01592, .00756, 298.30212, 10.70231, 9.77001,
161 + 9.07493, 10.44372, 10.71009 /
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 + .01619, .00769, 313.99866, 11.27496, 10.34089,
164 + 9.65453, 11.01818, 11.28272,
165 + .01645, .00783, 329.68579, 11.85404, 10.91746,
166 + 10.23849, 11.59901, 11.86176,
167 + .01670, .00795, 344.99789, 12.42349, 11.48484,
168 + 10.81328, 12.17012, 12.43119,
169 + .01694, .00808, 359.88419, 12.98037, 12.04044,
170 + 11.37688, 12.72855, 12.98804,
171 + .01719, .00820, 374.97501, 13.55235, 12.60986,
172 + 11.95245, 13.30207, 13.55999 /
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 + .00950, .00452, .96820, .64872, .00000,
175 + .00000, .34484, .65263,
176 + .00983, .00466, 1.99060, .67790, .00000,
177 + .00000, .37734, .68184,
178 + .01032, .00488, 3.91161, .73651, .02503,
179 + .00000, .44066, .74049,
180 + .01067, .00504, 5.68545, .79046, .08287,
181 + .00000, .49790, .79446,
182 + .01105, .00521, 7.86921, .85935, .14607,
183 + .00000, .57013, .86336,
184 + .01138, .00536, 10.03565, .92877, .21010,
185 + .00000, .64234, .93279,
186 + .01169, .00551, 12.41090, 1.00348, .28195,
187 + .00000, .71966, 1.00752,
188 + .01203, .00566, 15.25913, 1.09198, .36879,
189 + .00000, .81085, 1.09603 /
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 + .01232, .00580, 17.96255, 1.17755, .45080,
192 + .00000, .89870, 1.18161,
193 + .01260, .00593, 20.80536, 1.26740, .53760,
194 + .00000, .99069, 1.27146,
195 + .01282, .00604, 23.25513, 1.34366, .61296,
196 + .00000, 1.06863, 1.34773,
197 + .01330, .00626, 28.87563, 1.52244, .78760,
198 + .01466, 1.25087, 1.52652,
199 + .01371, .00646, 34.17313, 1.69398, .95469,
200 + .20887, 1.42530, 1.69807,
201 + .01418, .00669, 40.69452, 1.90596, 1.16235,
202 + .44816, 1.64042, 1.91005,
203 + .01467, .00692, 48.14097, 2.14919, 1.40115,
204 + .69687, 1.88681, 2.15328,
205 + .01512, .00714, 55.47519, 2.39017, 1.63823,
206 + .94392, 2.13056, 2.39426 /
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 + .01557, .00737, 63.43791, 2.65347, 1.89798,
209 + 1.21343, 2.39658, 2.65755,
210 + .01595, .00755, 70.43452, 2.88722, 2.12811,
211 + 1.44937, 2.63253, 2.89129,
212 + .01641, .00778, 79.37270, 3.18895, 2.42495,
213 + 1.75249, 2.93687, 3.19302,
214 + .01682, .00798, 87.74705, 3.47352, 2.70597,
215 + 2.04083, 3.22368, 3.47759,
216 + .01719, .00817, 95.80730, 3.74935, 2.97897,
217 + 2.32113, 3.50152, 3.75341,
218 + .01767, .00841, 106.39835, 4.11743, 3.34184,
219 + 2.68998, 3.87210, 4.12149,
220 + .01813, .00864, 116.85361, 4.48418, 3.70443,
221 + 3.05962, 4.24113, 4.48823,
222 + .01856, .00886, 127.12174, 4.84705, 4.06447,
223 + 3.42803, 4.60609, 4.85110 /
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 + .01899, .00908, 137.59564, 5.22404, 4.43666,
226 + 3.80494, 4.98512, 5.22808,
227 + .01942, .00930, 148.26306, 5.61087, 4.81993,
228 + 4.19478, 5.37391, 5.61490,
229 + .01982, .00950, 158.68562, 5.99265, 5.19860,
230 + 4.57989, 5.75750, 5.99666,
231 + .02020, .00970, 168.67183, 6.36374, 5.56598,
232 + 4.95203, 6.13027, 6.36775,
233 + .02059, .00990, 179.07739, 6.75249, 5.95225,
234 + 5.34497, 6.52067, 6.75649,
235 + .02097, .01009, 189.37038, 7.14361, 6.33957,
236 + 5.73654, 6.91339, 7.14760,
237 + .02134, .01028, 199.52374, 7.53087, 6.72468,
238 + 6.12786, 7.30215, 7.53486,
239 + .02169, .01046, 209.12880, 7.90339, 7.09388,
240 + 6.50087, 7.67605, 7.90736 /
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 + .02204, .01064, 219.11787, 8.29254, 7.48075,
243 + 6.89312, 8.06659, 8.29651,
244 + .02239, .01083, 229.03833, 8.68413, 7.86956,
245 + 7.28633, 8.45952, 8.68809,
246 + .02273, .01100, 238.67024, 9.06756, 8.25057,
247 + 7.67177, 8.84422, 9.07152,
248 + .02305, .01117, 247.98935, 9.44105, 8.62226,
249 + 8.04830, 9.21889, 9.44500,
250 + .02337, .01134, 257.37970, 9.82293, 9.00142,
251 + 8.43097, 9.60195, 9.82687 /
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 + .01139, .00537, .93233, .58863, .00000,
254 + .00000, .31284, .59089,
255 + .01179, .00555, 1.89458, .61638, .00000,
256 + .00000, .34346, .61866,
257 + .01238, .00582, 3.67802, .67088, .02303,
258 + .00000, .40202, .67318,
259 + .01281, .00602, 5.30327, .72032, .07597,
260 + .00000, .45430, .72263,
261 + .01327, .00624, 7.28271, .78275, .13315,
262 + .00000, .51960, .78507,
263 + .01366, .00642, 9.22776, .84512, .19064,
264 + .00000, .58437, .84745,
265 + .01404, .00661, 11.34374, .91185, .25476,
266 + .00000, .65334, .91419,
267 + .01444, .00680, 13.86195, .99047, .33181,
268 + .00000, .73427, .99282 /
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 + .01479, .00697, 16.23459, 1.06604, .40415,
271 + .00000, .81179, 1.06839,
272 + .01513, .00713, 18.71426, 1.14503, .48037,
273 + .00000, .89262, 1.14738,
274 + .01540, .00726, 20.84049, 1.21185, .54630,
275 + .00000, .96087, 1.21421,
276 + .01598, .00754, 25.68183, 1.36763, .69825,
277 + .01298, 1.11963, 1.37000,
278 + .01647, .00779, 30.20284, 1.51615, .84270,
279 + .18086, 1.27062, 1.51852,
280 + .01704, .00807, 35.72382, 1.69861, 1.02117,
281 + .38688, 1.45576, 1.70098,
282 + .01762, .00836, 41.97604, 1.90668, 1.22512,
283 + .59944, 1.66652, 1.90906,
284 + .01816, .00863, 48.08667, 2.11163, 1.42644,
285 + .80934, 1.87385, 2.11401 /
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 + .01870, .00890, 54.67430, 2.33438, 1.64585,
288 + 1.03707, 2.09892, 2.33676,
289 + .01915, .00913, 60.42571, 2.53116, 1.83929,
290 + 1.23543, 2.29759, 2.53355,
291 + .01970, .00941, 67.72749, 2.78398, 2.08763,
292 + 1.48904, 2.55262, 2.78637,
293 + .02019, .00965, 74.52772, 3.02131, 2.32166,
294 + 1.72919, 2.79187, 3.02371,
295 + .02064, .00988, 81.03848, 3.25041, 2.54810,
296 + 1.96171, 3.02269, 3.25281,
297 + .02121, .01018, 89.54232, 3.55474, 2.84769,
298 + 2.26620, 3.32913, 3.55714,
299 + .02176, .01046, 97.88802, 3.85657, 3.14570,
300 + 2.56999, 3.63291, 3.85898,
301 + .02227, .01072, 106.04147, 4.15398, 3.44043,
302 + 2.87157, 3.93210, 4.15639 /
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 + .02278, .01099, 114.31097, 4.46162, 3.74375,
305 + 3.17867, 4.24148, 4.46403,
306 + .02329, .01125, 122.69340, 4.77609, 4.05496,
307 + 3.49518, 4.55762, 4.77850,
308 + .02377, .01150, 130.84538, 5.08532, 4.36133,
309 + 3.80673, 4.86839, 5.08773,
310 + .02422, .01173, 138.61922, 5.38480, 4.65748,
311 + 4.10664, 5.16930, 5.38722,
312 + .02468, .01197, 146.68935, 5.69757, 4.96795,
313 + 4.42244, 5.48348, 5.70000,
314 + .02514, .01221, 154.63420, 6.01113, 5.27812,
315 + 4.73595, 5.79841, 6.01356,
316 + .02557, .01244, 162.44595, 6.32075, 5.58574,
317 + 5.04849, 6.10930, 6.32318,
318 + .02598, .01265, 169.80338, 6.61761, 5.87965,
319 + 5.34536, 6.40734, 6.62005 /
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 + .02640, .01287, 177.43217, 6.92695, 6.18691,
322 + 5.65685, 6.71786, 6.92939,
323 + .02682, .01309, 184.97922, 7.23732, 6.49479,
324 + 5.96815, 7.02937, 7.23976,
325 + .02721, .01330, 192.28329, 7.54044, 6.79574,
326 + 6.27254, 7.33357, 7.54288,
327 + .02759, .01350, 199.32956, 7.83500, 7.08867,
328 + 6.56925, 7.62915, 7.83746,
329 + .02798, .01370, 206.40331, 8.13536, 7.38663,
330 + 6.86989, 7.93052, 8.13782 /
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 + .01296, .00607, .90834, .54935, .00000,
333 + .00000, .29201, .55072,
334 + .01342, .00628, 1.83002, .57609, .00000,
335 + .00000, .32133, .57746,
336 + .01410, .00660, 3.52151, .62782, .02170,
337 + .00000, .37672, .62920,
338 + .01459, .00684, 5.04838, .67428, .07141,
339 + .00000, .42573, .67567,
340 + .01511, .00709, 6.89364, .73248, .12466,
341 + .00000, .48651, .73388,
342 + .01556, .00731, 8.69440, .79026, .17790,
343 + .00000, .54645, .79167,
344 + .01599, .00752, 10.64246, .85183, .23704,
345 + .00000, .61004, .85325,
346 + .01645, .00774, 12.94822, .92408, .30778,
347 + .00000, .68436, .92550 /
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 + .01685, .00794, 15.10919, .99322, .37395,
350 + .00000, .75526, .99465,
351 + .01724, .00813, 17.35764, 1.06527, .44342,
352 + .00000, .82895, 1.06670,
353 + .01754, .00829, 19.27873, 1.12607, .50335,
354 + .00000, .89103, 1.12750,
355 + .01820, .00861, 23.62908, 1.26724, .64094,
356 + .01190, 1.03487, 1.26868,
357 + .01877, .00890, 27.66440, 1.40120, .77113,
358 + .16324, 1.17104, 1.40265,
359 + .01940, .00922, 32.56380, 1.56507, .93131,
360 + .34845, 1.33732, 1.56653,
361 + .02007, .00956, 38.07914, 1.75112, 1.11355,
362 + .53853, 1.52579, 1.75259,
363 + .02068, .00987, 43.43961, 1.93362, 1.29268,
364 + .72543, 1.71041, 1.93510 /
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 + .02129, .01018, 49.18917, 2.13121, 1.48717,
367 + .92743, 1.91007, 2.13269,
368 + .02181, .01044, 54.18570, 2.30515, 1.65804,
369 + 1.10272, 2.08570, 2.30664,
370 + .02243, .01076, 60.50067, 2.52785, 1.87665,
371 + 1.32607, 2.31038, 2.52936,
372 + .02299, .01105, 66.35643, 2.73622, 2.08199,
373 + 1.53688, 2.52046, 2.73774,
374 + .02350, .01131, 71.94156, 2.93678, 2.28009,
375 + 1.74039, 2.72255, 2.93830,
376 + .02415, .01165, 79.20473, 3.20229, 2.54133,
377 + 2.00597, 2.98997, 3.20383,
378 + .02476, .01197, 86.30258, 3.46477, 2.80033,
379 + 2.27008, 3.25418, 3.46631,
380 + .02534, .01227, 93.21075, 3.72263, 3.05575,
381 + 2.53153, 3.51363, 3.72418 /
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 + .02592, .01258, 100.18820, 3.98852, 3.31777,
384 + 2.79687, 3.78107, 3.99008,
385 + .02650, .01288, 107.23663, 4.25958, 3.58590,
386 + 3.06963, 4.05362, 4.26116,
387 + .02704, .01316, 114.06824, 4.52542, 3.84917,
388 + 3.33743, 4.32084, 4.52700,
389 + .02755, .01343, 120.56041, 4.78220, 4.10298,
390 + 3.59452, 4.57889, 4.78380,
391 + .02807, .01371, 127.28187, 5.04979, 4.36852,
392 + 3.86469, 4.84775, 5.05140,
393 + .02858, .01398, 133.87613, 5.31737, 4.63309,
394 + 4.13214, 5.11653, 5.31899,
395 + .02907, .01423, 140.34460, 5.58106, 4.89501,
396 + 4.39833, 5.38136, 5.58269,
397 + .02954, .01448, 146.41722, 5.83328, 5.14464,
398 + 4.65051, 5.63465, 5.83492 /
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 + .03001, .01473, 152.70030, 6.09564, 5.40517,
401 + 4.91469, 5.89806, 6.09730,
402 + .03048, .01498, 158.89832, 6.35831, 5.66566,
403 + 5.17812, 6.16176, 6.35998,
404 + .03092, .01521, 164.88275, 6.61438, 5.91983,
405 + 5.43524, 6.41879, 6.61606,
406 + .03135, .01544, 170.64380, 6.86280, 6.16682,
407 + 5.68548, 6.66811, 6.86449,
408 + .03178, .01567, 176.41138, 7.11560, 6.41754,
409 + 5.93849, 6.92181, 7.11730 /
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 + .01433, .00668, .89066, .52068, .00000,
412 + .00000, .27685, .52149,
413 + .01484, .00692, 1.78203, .54664, .00000,
414 + .00000, .30519, .54745,
415 + .01559, .00728, 3.40526, .59629, .02072,
416 + .00000, .35822, .59712,
417 + .01614, .00755, 4.85959, .64055, .06806,
418 + .00000, .40483, .64138,
419 + .01671, .00783, 6.60651, .69566, .11844,
420 + .00000, .46232, .69650,
421 + .01721, .00808, 8.30209, .75011, .16860,
422 + .00000, .51876, .75095,
423 + .01769, .00832, 10.12832, .80793, .22412,
424 + .00000, .57844, .80879,
425 + .01820, .00857, 12.28064, .87558, .29032,
426 + .00000, .64799, .87643 /
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 + .01864, .00879, 14.28939, .94009, .35203,
429 + .00000, .71412, .94096,
430 + .01907, .00901, 16.37219, 1.00714, .41666,
431 + .00000, .78269, 1.00801,
432 + .01941, .00918, 18.14678, 1.06362, .47230,
433 + .00000, .84035, 1.06449,
434 + .02013, .00955, 22.14805, 1.19434, .59965,
435 + .01112, .97351, 1.19523,
436 + .02076, .00987, 25.83997, 1.31792, .71972,
437 + .15074, 1.09913, 1.31882,
438 + .02147, .01023, 30.30208, 1.46860, .86694,
439 + .32121, 1.25202, 1.46952,
440 + .02220, .01060, 35.30166, 1.63907, 1.03386,
441 + .49546, 1.42471, 1.64000,
442 + .02287, .01095, 40.13959, 1.80574, 1.19740,
443 + .66623, 1.59333, 1.80668 /
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 + .02355, .01130, 45.30795, 1.98565, 1.37442,
446 + .85021, 1.77514, 1.98660,
447 + .02412, .01159, 49.78305, 2.14358, 1.52953,
448 + 1.00943, 1.93462, 2.14455,
449 + .02481, .01195, 55.41895, 2.34525, 1.72743,
450 + 1.21173, 2.13811, 2.34623,
451 + .02542, .01227, 60.62719, 2.53345, 1.91284,
452 + 1.40219, 2.32788, 2.53444,
453 + .02599, .01257, 65.57992, 2.71417, 2.09132,
454 + 1.58563, 2.51000, 2.71517,
455 + .02670, .01294, 71.99842, 2.95280, 2.32605,
456 + 1.82437, 2.75037, 2.95382,
457 + .02738, .01330, 78.24995, 3.18809, 2.55818,
458 + 2.06120, 2.98726, 3.18913,
459 + .02802, .01363, 84.31629, 3.41870, 2.78658,
460 + 2.29511, 3.21933, 3.41976 /
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 + .02866, .01397, 90.42320, 3.65591, 3.02030,
463 + 2.53186, 3.45796, 3.65699,
464 + .02928, .01430, 96.57562, 3.89722, 3.25896,
465 + 2.77476, 3.70063, 3.89831,
466 + .02988, .01462, 102.52283, 4.13338, 3.49282,
467 + 3.01274, 3.93806, 4.13449,
468 + .03045, .01492, 108.15910, 4.36103, 3.71781,
469 + 3.24072, 4.16687, 4.36215,
470 + .03102, .01522, 113.98200, 4.59785, 3.95281,
471 + 3.47992, 4.40485, 4.59900,
472 + .03158, .01552, 119.67897, 4.83418, 4.18647,
473 + 3.71620, 4.64229, 4.83534,
474 + .03212, .01581, 125.25694, 5.06672, 4.41744,
475 + 3.95103, 4.87588, 5.06790,
476 + .03262, .01608, 130.47989, 5.28873, 4.63716,
477 + 4.17306, 5.09886, 5.28993 /
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 + .03314, .01635, 135.87483, 5.51935, 4.86617,
480 + 4.40537, 5.33044, 5.52056,
481 + .03365, .01663, 141.18457, 5.74985, 5.09475,
482 + 4.63661, 5.56188, 5.75107,
483 + .03414, .01689, 146.30185, 5.97422, 5.31747,
484 + 4.86199, 5.78714, 5.97546,
485 + .03461, .01714, 151.22002, 6.19161, 5.53361,
486 + 5.08107, 6.00535, 6.19287,
487 + .03508, .01739, 156.13257, 6.41248, 5.75267,
488 + 5.30219, 6.22705, 6.41375 /
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 + .01958, .00901, .84185, .44083, .00000,
491 + .00000, .23487, .44064,
492 + .02029, .00937, 1.64525, .46436, .00000,
493 + .00000, .26029, .46419,
494 + .02132, .00990, 3.07215, .50799, .01794,
495 + .00000, .30656, .50783,
496 + .02208, .01029, 4.32030, .54600, .05857,
497 + .00000, .34641, .54585,
498 + .02287, .01070, 5.79070, .59243, .10092,
499 + .00000, .39472, .59230,
500 + .02356, .01106, 7.19337, .63761, .14253,
501 + .00000, .44145, .63750,
502 + .02422, .01140, 8.68304, .68510, .18810,
503 + .00000, .49039, .68500,
504 + .02492, .01177, 10.41489, .74009, .24186,
505 + .00000, .54687, .74001 /
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 + .02552, .01209, 12.00979, .79198, .29146,
508 + .00000, .60002, .79192,
509 + .02611, .01240, 13.64518, .84546, .34299,
510 + .00000, .65468, .84541,
511 + .02658, .01264, 15.02618, .89022, .38706,
512 + .00000, .70037, .89019,
513 + .02757, .01317, 18.09723, .99279, .48694,
514 + .00900, .80484, .99279,
515 + .02843, .01362, 20.88297, 1.08862, .58004,
516 + .11746, .90225, 1.08865,
517 + .02939, .01414, 24.20120, 1.20422, .69299,
518 + .24899, 1.01957, 1.20428,
519 + .03040, .01467, 27.86374, 1.33354, .81963,
520 + .38169, 1.15061, 1.33363,
521 + .03131, .01516, 31.35843, 1.45866, .94242,
522 + .51038, 1.27724, 1.45878 /
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 + .03224, .01566, 35.04423, 1.59241, 1.07409,
525 + .64768, 1.41247, 1.59257,
526 + .03300, .01607, 38.19844, 1.70880, 1.18844,
527 + .76543, 1.53006, 1.70899,
528 + .03394, .01657, 42.12572, 1.85614, 1.33310,
529 + .91374, 1.67881, 1.85637,
530 + .03477, .01702, 45.71547, 1.99250, 1.46752,
531 + 1.05224, 1.81638, 1.99276,
532 + .03553, .01743, 49.09644, 2.12248, 1.59598,
533 + 1.18468, 1.94745, 2.12278,
534 + .03649, .01795, 53.42940, 2.29269, 1.76352,
535 + 1.35552, 2.11901, 2.29303,
536 + .03741, .01845, 57.60442, 2.45913, 1.92786,
537 + 1.52365, 2.28668, 2.45951,
538 + .03826, .01891, 61.61715, 2.62107, 2.08839,
539 + 1.68852, 2.44975, 2.62149 /
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 + .03912, .01938, 65.61336, 2.78631, 2.25134,
542 + 1.85398, 2.61609, 2.78677,
543 + .03996, .01983, 69.60441, 2.95327, 2.41664,
544 + 2.02264, 2.78411, 2.95377,
545 + .04076, .02027, 73.42921, 3.11560, 2.57755,
546 + 2.18682, 2.94742, 3.11614,
547 + .04152, .02068, 77.02151, 3.27104, 2.73133,
548 + 2.34301, 3.10376, 3.27162,
549 + .04228, .02110, 80.70769, 3.43188, 2.89112,
550 + 2.50608, 3.26549, 3.43249,
551 + .04303, .02151, 84.28116, 3.59132, 3.04892,
552 + 2.66601, 3.42580, 3.59197,
553 + .04374, .02190, 87.75956, 3.74745, 3.20421,
554 + 2.82429, 3.58274, 3.74814,
555 + .04442, .02227, 90.98846, 3.89561, 3.35099,
556 + 2.97295, 3.73165, 3.89633 /
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 + .04511, .02264, 94.30584, 4.04884, 3.50336,
559 + 3.12789, 3.88562, 4.04960,
560 + .04578, .02301, 97.54615, 4.20115, 3.65460,
561 + 3.28124, 4.03867, 4.20195,
562 + .04643, .02337, 100.65018, 4.34874, 3.80129,
563 + 3.43003, 4.18694, 4.34957,
564 + .04705, .02371, 103.61729, 4.49113, 3.94307,
565 + 3.57408, 4.32998, 4.49199,
566 + .04768, .02405, 106.55864, 4.63506, 4.08600,
567 + 3.71866, 4.47454, 4.63595 /
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 + .02681, .01227, .80568, .37361, .00000,
570 + .00000, .19988, .37338,
571 + .02778, .01279, 1.52978, .39479, .00000,
572 + .00000, .22256, .39459,
573 + .02921, .01357, 2.78141, .43293, .01550,
574 + .00000, .26281, .43278,
575 + .03026, .01413, 3.84866, .46543, .05029,
576 + .00000, .29680, .46533,
577 + .03136, .01473, 5.08032, .50441, .08578,
578 + .00000, .33727, .50435,
579 + .03230, .01524, 6.23392, .54174, .12017,
580 + .00000, .37584, .54172,
581 + .03321, .01574, 7.44100, .58054, .15742,
582 + .00000, .41581, .58057,
583 + .03417, .01626, 8.82425, .62501, .20088,
584 + .00000, .46147, .62508 /
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 + .03500, .01672, 10.08023, .66649, .24056,
587 + .00000, .50396, .66660,
588 + .03581, .01716, 11.35304, .70887, .28142,
589 + .00000, .54728, .70901,
590 + .03645, .01751, 12.41782, .74411, .31614,
591 + .00000, .58327, .74429,
592 + .03781, .01826, 14.75104, .82399, .39401,
593 + .00725, .66467, .82423,
594 + .03898, .01891, 16.82924, .89769, .46572,
595 + .09109, .73964, .89800,
596 + .04029, .01963, 19.26673, .98560, .55176,
597 + .19204, .82892, .98597,
598 + .04166, .02039, 21.91466, 1.08278, .64712,
599 + .29251, .92748, 1.08322,
600 + .04290, .02107, 24.40378, 1.17576, .73858,
601 + .38889, 1.02167, 1.17627 /
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 + .04415, .02177, 26.99344, 1.27415, .83568,
604 + .49069, 1.12125, 1.27473,
605 + .04519, .02235, 29.18198, 1.35898, .91923,
606 + .57716, 1.20704, 1.35962,
607 + .04646, .02305, 31.87381, 1.46539, 1.02397,
608 + .68509, 1.31458, 1.46610,
609 + .04757, .02367, 34.30567, 1.56301, 1.12047,
610 + .78502, 1.41318, 1.56378,
611 + .04860, .02424, 36.57265, 1.65535, 1.21200,
612 + .87985, 1.50640, 1.65619,
613 + .04990, .02497, 39.44299, 1.77520, 1.33030,
614 + 1.00107, 1.62733, 1.77612,
615 + .05112, .02565, 42.17688, 1.89139, 1.44536,
616 + 1.11934, 1.74451, 1.89238,
617 + .05227, .02629, 44.77767, 2.00356, 1.55691,
618 + 1.23447, 1.85759, 2.00462 /
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 + .05342, .02693, 47.33707, 2.11705, 1.66915,
621 + 1.34896, 1.97196, 2.11818,
622 + .05454, .02756, 49.86937, 2.23091, 1.78223,
623 + 1.46489, 2.08668, 2.23211,
624 + .05561, .02815, 52.27351, 2.34085, 1.89156,
625 + 1.57695, 2.19740, 2.34211,
626 + .05661, .02871, 54.50906, 2.44537, 1.99529,
627 + 1.68278, 2.30266, 2.44670,
628 + .05762, .02928, 56.78650, 2.55292, 2.10250,
629 + 1.79271, 2.41093, 2.55431,
630 + .05862, .02983, 58.97137, 2.65878, 2.20760,
631 + 1.89969, 2.51749, 2.66024,
632 + .05957, .03037, 61.08510, 2.76193, 2.31054,
633 + 2.00511, 2.62129, 2.76345,
634 + .06046, .03087, 63.02779, 2.85916, 2.40718,
635 + 2.10341, 2.71914, 2.86074 /
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 + .06137, .03137, 65.01241, 2.95927, 2.50707,
638 + 2.20545, 2.81985, 2.96091,
639 + .06226, .03187, 66.93423, 3.05820, 2.60563,
640 + 2.30582, 2.91937, 3.05990,
641 + .06312, .03235, 68.76286, 3.15359, 2.70077,
642 + 2.40275, 3.01532, 3.15535,
643 + .06393, .03281, 70.50058, 3.24522, 2.79233,
644 + 2.49620, 3.10747, 3.24703,
645 + .06475, .03326, 72.20791, 3.33731, 2.88409,
646 + 2.58942, 3.20008, 3.33917 /
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 + .03226, .01480, .79340, .33971, .00000,
649 + .00000, .18233, .33980,
650 + .03344, .01545, 1.47468, .35954, .00000,
651 + .00000, .20350, .35968,
652 + .03517, .01641, 2.63195, .39467, .01420,
653 + .00000, .24052, .39491,
654 + .03644, .01712, 3.60307, .42425, .04590,
655 + .00000, .27142, .42455,
656 + .03776, .01785, 4.70951, .45932, .07784,
657 + .00000, .30782, .45969,
658 + .03890, .01849, 5.73408, .49259, .10851,
659 + .00000, .34219, .49303,
660 + .03999, .01910, 6.79627, .52694, .14151,
661 + .00000, .37758, .52744,
662 + .04115, .01975, 8.00263, .56606, .17976,
663 + .00000, .41777, .56663 /
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 + .04216, .02031, 9.08842, .60229, .21445,
666 + .00000, .45490, .60292,
667 + .04312, .02085, 10.18075, .63910, .24999,
668 + .00000, .49256, .63978,
669 + .04389, .02129, 11.08923, .66959, .28006,
670 + .00000, .52371, .67032,
671 + .04552, .02220, 13.06171, .73825, .34707,
672 + .00637, .59373, .73907,
673 + .04693, .02299, 14.79852, .80110, .40833,
674 + .07818, .65771, .80201,
675 + .04850, .02388, 16.81607, .87554, .48133,
676 + .16428, .73339, .87655,
677 + .05013, .02480, 18.98611, .95723, .56166,
678 + .24927, .81632, .95834,
679 + .05162, .02564, 21.00700, 1.03485, .63819,
680 + .33025, .89503, 1.03606 /
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 + .05311, .02648, 23.09164, 1.11648, .71893,
683 + .41525, .97773, 1.11779,
684 + .05435, .02718, 24.83951, 1.18645, .78801,
685 + .48702, 1.04856, 1.18784,
686 + .05585, .02803, 26.97281, 1.27373, .87414,
687 + .57612, 1.13686, 1.27522,
688 + .05718, .02878, 28.88595, 1.35337, .95307,
689 + .65818, 1.21738, 1.35494,
690 + .05840, .02947, 30.65785, 1.42834, 1.02758,
691 + .73569, 1.29314, 1.43000,
692 + .05994, .03035, 32.88402, 1.52511, 1.12335,
693 + .83419, 1.39089, 1.52687,
694 + .06139, .03117, 34.98886, 1.61842, 1.21601,
695 + .92982, 1.48510, 1.62028,
696 + .06275, .03194, 36.97830, 1.70807, 1.30542,
697 + 1.02246, 1.57558, 1.71003 /
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 + .06411, .03270, 38.92092, 1.79830, 1.39490,
700 + 1.11407, 1.66661, 1.80035,
701 + .06543, .03345, 40.83160, 1.88843, 1.48467,
702 + 1.20646, 1.75751, 1.89057,
703 + .06669, .03417, 42.63470, 1.97507, 1.57109,
704 + 1.29538, 1.84487, 1.97730,
705 + .06787, .03483, 44.30035, 2.05709, 1.65272,
706 + 1.37897, 1.92755, 2.05940,
707 + .06906, .03551, 45.98953, 2.14118, 1.73680,
708 + 1.46552, 2.01231, 2.14358,
709 + .07023, .03617, 47.59882, 2.22359, 1.81885,
710 + 1.54935, 2.09534, 2.22606,
711 + .07134, .03680, 49.14977, 2.30364, 1.89899,
712 + 1.63173, 2.17599, 2.30619,
713 + .07239, .03739, 50.56557, 2.37878, 1.97390,
714 + 1.70821, 2.25169, 2.38141 /
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 + .07345, .03799, 52.00680, 2.45593, 2.05112,
717 + 1.78739, 2.32940, 2.45864,
718 + .07450, .03858, 53.39434, 2.53189, 2.12703,
719 + 1.86498, 2.40589, 2.53467,
720 + .07550, .03915, 54.70881, 2.60491, 2.20009,
721 + 1.93969, 2.47942, 2.60776,
722 + .07645, .03969, 55.95307, 2.67486, 2.27021,
723 + 2.01153, 2.54985, 2.67778,
724 + .07741, .04023, 57.16805, 2.74490, 2.34022,
725 + 2.08292, 2.62037, 2.74789 /
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 + .03683, .01699, .79050, .31802, .00000,
728 + .00000, .17112, .31844,
729 + .03818, .01775, 1.44273, .33691, .00000,
730 + .00000, .19124, .33740,
731 + .04017, .01887, 2.53600, .36999, .01333,
732 + .00000, .22608, .37061,
733 + .04161, .01969, 3.44244, .39760, .04297,
734 + .00000, .25490, .39830,
735 + .04313, .02055, 4.46535, .43006, .07254,
736 + .00000, .28860, .43086,
737 + .04443, .02129, 5.40455, .46065, .10078,
738 + .00000, .32022, .46153,
739 + .04567, .02200, 6.37151, .49208, .13099,
740 + .00000, .35261, .49305,
741 + .04700, .02275, 7.46240, .52770, .16584,
742 + .00000, .38923, .52875 /
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 + .04814, .02340, 8.43786, .56052, .19730,
745 + .00000, .42288, .56165,
746 + .04924, .02403, 9.41385, .59373, .22940,
747 + .00000, .45688, .59493,
748 + .05012, .02452, 10.22204, .62116, .25648,
749 + .00000, .48492, .62242,
750 + .05197, .02558, 11.96471, .68261, .31654,
751 + .00580, .54764, .68399,
752 + .05357, .02649, 13.48592, .73854, .37114,
753 + .06994, .60464, .74003,
754 + .05535, .02751, 15.24031, .80445, .43589,
755 + .14663, .67170, .80606,
756 + .05721, .02857, 17.11329, .87637, .50674,
757 + .22185, .74478, .87812,
758 + .05889, .02953, 18.84533, .94437, .57392,
759 + .29317, .81380, .94623 /
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 + .06058, .03050, 20.62056, 1.01555, .64446,
762 + .36768, .88598, 1.01753,
763 + .06198, .03130, 22.10015, 1.07629, .70457,
764 + .43034, .94753, 1.07837,
765 + .06368, .03227, 23.89551, 1.15175, .77920,
766 + .50779, 1.02394, 1.15395,
767 + .06518, .03313, 25.49667, 1.22032, .84732,
768 + .57885, 1.09334, 1.22263,
769 + .06655, .03391, 26.97237, 1.28465, .91140,
770 + .64573, 1.15842, 1.28706,
771 + .06829, .03490, 28.81545, 1.36733, .99343,
772 + .73037, 1.24203, 1.36987,
773 + .06992, .03584, 30.54838, 1.44675, 1.07249,
774 + .81222, 1.32229, 1.44941,
775 + .07145, .03671, 32.17829, 1.52278, 1.14851,
776 + .89125, 1.39910, 1.52555 /
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 + .07297, .03758, 33.76029, 1.59900, 1.22427,
779 + .96907, 1.47607, 1.60188,
780 + .07446, .03843, 35.30925, 1.67488, 1.30005,
781 + 1.04730, 1.55269, 1.67787,
782 + .07587, .03923, 36.76426, 1.74759, 1.37276,
783 + 1.12237, 1.62608, 1.75068,
784 + .07719, .03999, 38.10149, 1.81619, 1.44121,
785 + 1.19269, 1.69531, 1.81938,
786 + .07852, .04075, 39.45295, 1.88635, 1.51155,
787 + 1.26533, 1.76609, 1.88964,
788 + .07983, .04149, 40.73337, 1.95486, 1.57995,
789 + 1.33543, 1.83521, 1.95825,
790 + .08107, .04220, 41.96386, 2.02127, 1.64662,
791 + 1.40420, 1.90219, 2.02475,
792 + .08225, .04287, 43.08107, 2.08341, 1.70873,
793 + 1.46781, 1.96485, 2.08698 /
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 + .08343, .04354, 44.21530, 2.14707, 1.77263,
796 + 1.53355, 2.02905, 2.15073,
797 + .08460, .04421, 45.30216, 2.20958, 1.83528,
798 + 1.59779, 2.09207, 2.21333,
799 + .08571, .04484, 46.32824, 2.26953, 1.89543,
800 + 1.65950, 2.15251, 2.27337,
801 + .08677, .04544, 47.29662, 2.32684, 1.95305,
802 + 1.71874, 2.21027, 2.33076,
803 + .08783, .04604, 48.23743, 2.38408, 2.01041,
804 + 1.77742, 2.26796, 2.38807 /
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 + .04086, .01907, .79624, .30324, .00000,
807 + .00000, .16327, .30369,
808 + .04236, .01993, 1.42580, .32138, .00000,
809 + .00000, .18257, .32193,
810 + .04457, .02119, 2.46985, .35289, .01266,
811 + .00000, .21570, .35359,
812 + .04618, .02212, 3.32701, .37899, .04074,
813 + .00000, .24293, .37979,
814 + .04786, .02308, 4.28656, .40947, .06853,
815 + .00000, .27457, .41040,
816 + .04930, .02391, 5.16138, .43804, .09493,
817 + .00000, .30409, .43906,
818 + .05069, .02470, 6.05687, .46728, .12307,
819 + .00000, .33423, .46840,
820 + .05215, .02555, 7.06151, .50029, .15540,
821 + .00000, .36816, .50151 /
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 + .05342, .02627, 7.95497, .53058, .18446,
824 + .00000, .39923, .53189,
825 + .05464, .02698, 8.84487, .56112, .21402,
826 + .00000, .43051, .56252,
827 + .05560, .02753, 9.57911, .58629, .23889,
828 + .00000, .45625, .58776,
829 + .05765, .02871, 11.15322, .64245, .29385,
830 + .00537, .51359, .64406,
831 + .05942, .02973, 12.51726, .69333, .34358,
832 + .06390, .56546, .69507,
833 + .06138, .03086, 14.08090, .75303, .40230,
834 + .13369, .62624, .75492,
835 + .06343, .03204, 15.73993, .81788, .46629,
836 + .20180, .69218, .81992,
837 + .06528, .03310, 17.26513, .87894, .52671,
838 + .26612, .75419, .88112 /
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 + .06714, .03418, 18.81994, .94261, .58991,
841 + .33306, .81880, .94493,
842 + .06868, .03506, 20.10936, .99675, .64358,
843 + .38914, .87371, .99918,
844 + .07054, .03613, 21.66627, 1.06378, .70998,
845 + .45823, .94163, 1.06635,
846 + .07218, .03708, 23.04830, 1.12448, .77039,
847 + .52142, 1.00311, 1.12718,
848 + .07369, .03794, 24.31679, 1.18127, .82707,
849 + .58073, 1.06060, 1.18408,
850 + .07559, .03904, 25.89298, 1.25401, .89936,
851 + .65551, 1.13421, 1.25696,
852 + .07737, .04006, 27.36810, 1.32364, .96881,
853 + .72760, 1.20463, 1.32673,
854 + .07904, .04102, 28.74986, 1.39010, 1.03540,
855 + .79702, 1.27183, 1.39332 /
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 + .08070, .04197, 30.08396, 1.45651, 1.10154,
858 + .86513, 1.33895, 1.45985,
859 + .08233, .04290, 31.38519, 1.52244, 1.16752,
860 + .93343, 1.40558, 1.52591,
861 + .08386, .04378, 32.60262, 1.58546, 1.23067,
862 + .99880, 1.46924, 1.58905,
863 + .08530, .04461, 33.71660, 1.64474, 1.28995,
864 + 1.05986, 1.52911, 1.64844,
865 + .08675, .04544, 34.83917, 1.70523, 1.35074,
866 + 1.12281, 1.59020, 1.70905,
867 + .08817, .04625, 35.89747, 1.76414, 1.40969,
868 + 1.18339, 1.64968, 1.76807,
869 + .08952, .04702, 36.91204, 1.82114, 1.46704,
870 + 1.24271, 1.70722, 1.82517,
871 + .09079, .04774, 37.82885, 1.87433, 1.52033,
872 + 1.29743, 1.76091, 1.87846 /
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 + .09208, .04848, 38.75751, 1.92873, 1.57507,
875 + 1.35390, 1.81582, 1.93296,
876 + .09334, .04920, 39.64379, 1.98201, 1.62859,
877 + 1.40894, 1.86959, 1.98634,
878 + .09455, .04988, 40.47801, 2.03302, 1.67990,
879 + 1.46173, 1.92106, 2.03744,
880 + .09569, .05053, 41.26328, 2.08170, 1.72896,
881 + 1.51231, 1.97017, 2.08621,
882 + .09684, .05119, 42.02265, 2.13020, 1.77770,
883 + 1.56230, 2.01911, 2.13480 /
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 + .05670, .02767, .83825, .26293, .00000,
886 + .00000, .14210, .26410,
887 + .05880, .02893, 1.40049, .27887, .00000,
888 + .00000, .15899, .28020,
889 + .06187, .03075, 2.29836, .30573, .01075,
890 + .00000, .18719, .30731,
891 + .06409, .03208, 3.01127, .32745, .03436,
892 + .00000, .20986, .32921,
893 + .06642, .03346, 3.78864, .35230, .05714,
894 + .00000, .23566, .35424,
895 + .06841, .03463, 4.48086, .37516, .07842,
896 + .00000, .25933, .37727,
897 + .07031, .03576, 5.17583, .39825, .10079,
898 + .00000, .28317, .40052,
899 + .07232, .03695, 5.94117, .42399, .12615,
900 + .00000, .30969, .42642 /
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 + .07405, .03797, 6.60961, .44729, .14864,
903 + .00000, .33364, .44985,
904 + .07571, .03896, 7.26531, .47053, .17128,
905 + .00000, .35750, .47323,
906 + .07703, .03974, 7.79982, .48952, .19016,
907 + .00000, .37698, .49233,
908 + .07981, .04138, 8.92354, .53134, .23137,
909 + .00420, .41981, .53439,
910 + .08219, .04278, 9.87332, .56864, .26809,
911 + .04773, .45795, .57189,
912 + .08485, .04434, 10.94011, .61180, .31085,
913 + .09921, .50203, .61526,
914 + .08759, .04595, 12.04837, .65799, .35677,
915 + .14861, .54915, .66168,
916 + .09006, .04740, 13.04704, .70087, .39954,
917 + .19464, .59285, .70476 /
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 + .09254, .04885, 14.04655, .74501, .44372,
920 + .24194, .63781, .74911,
921 + .09459, .05005, 14.86127, .78210, .48080,
922 + .28111, .67556, .78637,
923 + .09705, .05148, 15.82840, .82749, .52616,
924 + .32881, .72173, .83197,
925 + .09922, .05275, 16.67317, .86814, .56699,
926 + .37198, .76306, .87280,
927 + .10120, .05390, 17.43751, .90580, .60492,
928 + .41212, .80133, .91063,
929 + .10369, .05534, 18.37045, .95349, .65275,
930 + .46215, .84978, .95852,
931 + .10602, .05669, 19.22924, .99862, .69821,
932 + .50987, .89562, 1.00385,
933 + .10819, .05795, 20.02208, 1.04129, .74139,
934 + .55539, .93894, 1.04670 /
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 + .11035, .05919, 20.77321, 1.08343, .78379,
937 + .59954, .98171, 1.08902,
938 + .11245, .06040, 21.49594, 1.12490, .82572,
939 + .64344, 1.02380, 1.13066,
940 + .11443, .06154, 22.16257, 1.16417, .86550,
941 + .68510, 1.06364, 1.17010,
942 + .11628, .06260, 22.76255, 1.20076, .90249,
943 + .72364, 1.10077, 1.20685,
944 + .11814, .06367, 23.36099, 1.23784, .94017,
945 + .76312, 1.13838, 1.24408,
946 + .11995, .06470, 23.91473, 1.27359, .97634,
947 + .80073, 1.17464, 1.27998,
948 + .12167, .06569, 24.44121, 1.30797, 1.01134,
949 + .83737, 1.20951, 1.31450,
950 + .12328, .06661, 24.90805, 1.33974, 1.04355,
951 + .87084, 1.24173, 1.34641 /
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 + .12491, .06754, 25.37720, 1.37207, 1.07647,
954 + .90521, 1.27451, 1.37887,
955 + .12651, .06844, 25.81766, 1.40346, 1.10840,
956 + .93845, 1.30635, 1.41040,
957 + .12803, .06931, 26.22753, 1.43332, 1.13881,
958 + .97012, 1.33663, 1.44038,
959 + .12947, .07012, 26.60959, 1.46165, 1.16773,
960 + 1.00032, 1.36535, 1.46883,
961 + .13091, .07094, 26.97212, 1.48964, 1.19622,
962 + 1.02991, 1.39374, 1.49694 /
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 + .07965, .04146, .94767, .23204, .00000,
965 + .00000, .12574, .23450,
966 + .08259, .04324, 1.44160, .24584, .00000,
967 + .00000, .14036, .24857,
968 + .08686, .04583, 2.19454, .26828, .00905,
969 + .00000, .16397, .27141,
970 + .08994, .04770, 2.76961, .28596, .02868,
971 + .00000, .18248, .28937,
972 + .09314, .04963, 3.37930, .30571, .04707,
973 + .00000, .20307, .30942,
974 + .09587, .05126, 3.90787, .32352, .06392,
975 + .00000, .22159, .32749,
976 + .09846, .05282, 4.42676, .34125, .08136,
977 + .00000, .23998, .34545,
978 + .10120, .05445, 4.98612, .36071, .10082,
979 + .00000, .26014, .36517 /
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 + .10355, .05585, 5.46474, .37806, .11782,
982 + .00000, .27808, .38273,
983 + .10579, .05719, 5.92603, .39515, .13471,
984 + .00000, .29573, .40003,
985 + .10757, .05825, 6.29680, .40899, .14867,
986 + .00000, .31001, .41403,
987 + .11130, .06046, 7.05849, .43900, .17868,
988 + .00320, .34093, .44439,
989 + .11448, .06233, 7.68299, .46530, .20495,
990 + .03472, .36800, .47097,
991 + .11800, .06441, 8.36756, .49523, .23507,
992 + .07163, .39877, .50123,
993 + .12163, .06653, 9.06110, .52671, .26687,
994 + .10638, .43111, .53304,
995 + .12487, .06843, 9.67111, .55547, .29602,
996 + .13826, .46063, .56209 /
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 + .12812, .07031, 10.26807, .58463, .32571,
999 + .17056, .49055, .59155,
1000 + .13078, .07186, 10.74430, .60881, .35029,
1001 + .19694, .51535, .61596,
1002 + .13396, .07370, 11.29764, .63798, .37996,
1003 + .22866, .54525, .64542,
1004 + .13676, .07531, 11.77131, .66378, .40634,
1005 + .25703, .57169, .67147,
1006 + .13930, .07678, 12.19223, .68740, .43058,
1007 + .28312, .59590, .69532,
1008 + .14248, .07860, 12.69383, .71690, .46075,
1009 + .31521, .62612, .72511,
1010 + .14543, .08029, 13.14566, .74446, .48906,
1011 + .34545, .65436, .75293,
1012 + .14819, .08185, 13.55497, .77021, .51566,
1013 + .37400, .68073, .77893 /
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 + .15089, .08339, 13.93240, .79530, .54142,
1016 + .40131, .70643, .80424,
1017 + .15352, .08488, 14.28894, .81972, .56665,
1018 + .42822, .73144, .82889,
1019 + .15599, .08627, 14.61126, .84259, .59034,
1020 + .45350, .75487, .85199,
1021 + .15828, .08756, 14.89436, .86365, .61212,
1022 + .47663, .77645, .87325,
1023 + .16058, .08885, 15.17292, .88482, .63414,
1024 + .50015, .79814, .89461,
1025 + .16281, .09010, 15.42290, .90497, .65502,
1026 + .52229, .81878, .91495,
1027 + .16492, .09128, 15.65806, .92421, .67510,
1028 + .54374, .83851, .93438,
1029 + .16689, .09237, 15.85999, .94178, .69337,
1030 + .56311, .85652, .95212 /
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 + .16887, .09348, 16.06073, .95953, .71193,
1033 + .58289, .87472, .97004,
1034 + .17080, .09455, 16.24388, .97659, .72975,
1035 + .60183, .89222, .98727,
1036 + .17263, .09556, 16.41109, .99269, .74660,
1037 + .61975, .90873, 1.00352,
1038 + .17437, .09652, 16.56449, 1.00786, .76252,
1039 + .63673, .92429, 1.01884,
1040 + .17610, .09747, 16.70474, 1.02267, .77803,
1041 + .65321, .93949, 1.03379 /
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 + .09795, .05315, 1.05261, .21739, .00000,
1044 + .00000, .11807, .22122,
1045 + .10152, .05532, 1.49895, .22987, .00000,
1046 + .00000, .13135, .23406,
1047 + .10668, .05845, 2.16398, .24975, .00812,
1048 + .00000, .15237, .25445,
1049 + .11039, .06069, 2.65930, .26515, .02559,
1050 + .00000, .16858, .27020,
1051 + .11423, .06299, 3.17507, .28209, .04165,
1052 + .00000, .18635, .28753,
1053 + .11749, .06493, 3.61462, .29718, .05617,
1054 + .00000, .20213, .30293,
1055 + .12058, .06678, 4.03981, .31203, .07104,
1056 + .00000, .21764, .31808,
1057 + .12383, .06871, 4.49182, .32819, .08747,
1058 + .00000, .23449, .33456 /
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 + .12661, .07035, 4.87341, .34244, .10167,
1061 + .00000, .24933, .34908,
1062 + .12927, .07192, 5.23695, .35637, .11567,
1063 + .00000, .26381, .36326,
1064 + .13136, .07315, 5.52649, .36758, .12716,
1065 + .00000, .27546, .37468,
1066 + .13575, .07572, 6.11162, .39165, .15163,
1067 + .00270, .30044, .39916,
1068 + .13947, .07789, 6.58113, .41249, .17280,
1069 + .02836, .32205, .42036,
1070 + .14358, .08028, 7.08724, .43595, .19682,
1071 + .05822, .34636, .44420,
1072 + .14778, .08270, 7.59104, .46035, .22190,
1073 + .08598, .37162, .46899,
1074 + .15154, .08486, 8.02662, .48239, .24465,
1075 + .11119, .39443, .49138 /
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 + .15527, .08700, 8.44607, .50452, .26760,
1078 + .13650, .41734, .51386,
1079 + .15832, .08874, 8.77542, .52269, .28643,
1080 + .15700, .43613, .53231,
1081 + .16196, .09081, 9.15206, .54442, .30897,
1082 + .18143, .45861, .55437,
1083 + .16515, .09261, 9.46960, .56346, .32884,
1084 + .20311, .47831, .57371,
1085 + .16803, .09424, 9.74787, .58076, .34697,
1086 + .22291, .49620, .59127,
1087 + .17162, .09625, 10.07316, .60216, .36933,
1088 + .24705, .51834, .61299,
1089 + .17495, .09811, 10.36125, .62197, .39014,
1090 + .26963, .53884, .63310,
1091 + .17804, .09983, 10.61837, .64033, .40954,
1092 + .29079, .55785, .65174 /
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 + .18106, .10150, 10.84967, .65803, .42817,
1095 + .31086, .57618, .66971,
1096 + .18399, .10312, 11.06486, .67514, .44629,
1097 + .33050, .59389, .68708,
1098 + .18673, .10463, 11.25606, .69104, .46319,
1099 + .34883, .61037, .70322,
1100 + .18926, .10601, 11.42000, .70555, .47860,
1101 + .36549, .62541, .71795,
1102 + .19180, .10740, 11.57940, .72006, .49410,
1103 + .38234, .64046, .73268,
1104 + .19424, .10873, 11.71805, .73373, .50868,
1105 + .39808, .65465, .74656,
1106 + .19656, .10999, 11.84732, .74673, .52264,
1107 + .41327, .66814, .75976,
1108 + .19870, .11114, 11.95431, .75848, .53524,
1109 + .42688, .68035, .77169 /
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 + .20086, .11231, 12.05961, .77030, .54798,
1112 + .44072, .69263, .78370,
1113 + .20296, .11343, 12.15247, .78156, .56013,
1114 + .45390, .70434, .79514,
1115 + .20495, .11450, 12.23537, .79212, .57156,
1116 + .46630, .71533, .80587,
1117 + .20682, .11550, 12.31001, .80202, .58232,
1118 + .47801, .72564, .81592,
1119 + .20868, .11648, 12.37476, .81161, .59271,
1120 + .48928, .73563, .82566 /
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 + .11398, .06372, 1.14489, .20831, .00000,
1123 + .00000, .11337, .21355,
1124 + .11806, .06618, 1.55489, .21980, .00000,
1125 + .00000, .12567, .22546,
1126 + .12395, .06971, 2.15438, .23782, .00747,
1127 + .00000, .14484, .24408,
1128 + .12816, .07223, 2.59237, .25159, .02345,
1129 + .00000, .15944, .25828,
1130 + .13251, .07481, 3.04241, .26658, .03793,
1131 + .00000, .17527, .27371,
1132 + .13619, .07698, 3.42099, .27979, .05089,
1133 + .00000, .18918, .28728,
1134 + .13967, .07902, 3.78308, .29270, .06405,
1135 + .00000, .20276, .30054,
1136 + .14332, .08116, 4.16391, .30664, .07848,
1137 + .00000, .21741, .31484 /
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 + .14644, .08298, 4.48209, .31883, .09085,
1140 + .00000, .23020, .32734,
1141 + .14940, .08471, 4.78247, .33068, .10298,
1142 + .00000, .24262, .33948,
1143 + .15174, .08606, 5.01996, .34016, .11288,
1144 + .00000, .25256, .34919,
1145 + .15663, .08888, 5.49370, .36037, .13380,
1146 + .00237, .27371, .36988,
1147 + .16075, .09124, 5.86700, .37771, .15174,
1148 + .02431, .29183, .38761,
1149 + .16529, .09383, 6.26391, .39706, .17193,
1150 + .04973, .31206, .40739,
1151 + .16992, .09645, 6.65335, .41700, .19283,
1152 + .07315, .33289, .42777,
1153 + .17403, .09878, 6.98525, .43485, .21164,
1154 + .09424, .35155, .44601 /
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 + .17812, .10107, 7.30052, .45264, .23048,
1157 + .11527, .37014, .46418,
1158 + .18144, .10292, 7.54469, .46714, .24583,
1159 + .13218, .38528, .47898,
1160 + .18539, .10512, 7.81998, .48435, .26407,
1161 + .15222, .40327, .49655,
1162 + .18884, .10702, 8.04896, .49932, .28005,
1163 + .16989, .41892, .51184,
1164 + .19195, .10874, 8.24713, .51283, .29455,
1165 + .18594, .43306, .52564,
1166 + .19582, .11085, 8.47458, .52941, .31231,
1167 + .20538, .45041, .54257,
1168 + .19939, .11279, 8.67275, .54465, .32873,
1169 + .22345, .46637, .55812,
1170 + .20268, .11458, 8.84707, .55869, .34395,
1171 + .24030, .48107, .57245 /
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 + .20590, .11632, 8.99998, .57210, .35846,
1174 + .25617, .49513, .58614,
1175 + .20901, .11798, 9.14001, .58497, .37250,
1176 + .27163, .50864, .59929,
1177 + .21191, .11953, 9.26210, .59687, .38551,
1178 + .28598, .52114, .61143,
1179 + .21458, .12095, 9.36395, .60764, .39731,
1180 + .29894, .53246, .62243,
1181 + .21725, .12237, 9.46171, .61836, .40914,
1182 + .31202, .54374, .63338,
1183 + .21981, .12372, 9.54343, .62838, .42018,
1184 + .32415, .55429, .64361,
1185 + .22223, .12499, 9.61889, .63786, .43072,
1186 + .33582, .56429, .65330,
1187 + .22447, .12616, 9.67825, .64636, .44016,
1188 + .34621, .57326, .66198 /
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 + .22672, .12733, 9.73596, .65487, .44969,
1191 + .35675, .58226, .67068,
1192 + .22890, .12846, 9.78428, .66292, .45872,
1193 + .36673, .59078, .67891,
1194 + .23095, .12952, 9.82594, .67043, .46717,
1195 + .37609, .59874, .68658,
1196 + .23288, .13052, 9.86233, .67743, .47510,
1197 + .38490, .60617, .69375,
1198 + .23479, .13150, 9.89092, .68415, .48271,
1199 + .39332, .61331, .70062 /
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 + .12860, .07349, 1.22458, .20176, .00000,
1202 + .00000, .11005, .20845,
1203 + .13311, .07619, 1.60399, .21244, .00000,
1204 + .00000, .12156, .21960,
1205 + .13960, .08004, 2.15040, .22897, .00697,
1206 + .00000, .13927, .23680,
1207 + .14424, .08276, 2.54333, .24147, .02180,
1208 + .00000, .15262, .24977,
1209 + .14901, .08555, 2.94278, .25495, .03508,
1210 + .00000, .16697, .26374,
1211 + .15303, .08789, 3.27521, .26672, .04687,
1212 + .00000, .17948, .27592,
1213 + .15683, .09009, 3.59022, .27816, .05877,
1214 + .00000, .19162, .28774,
1215 + .16081, .09239, 3.91864, .29043, .07172,
1216 + .00000, .20462, .30041 /
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 + .16419, .09433, 4.19065, .30110, .08276,
1219 + .00000, .21591, .31142,
1220 + .16741, .09616, 4.44544, .31141, .09351,
1221 + .00000, .22681, .32204,
1222 + .16993, .09760, 4.64564, .31963, .10227,
1223 + .00000, .23551, .33051,
1224 + .17521, .10059, 5.04059, .33704, .12064,
1225 + .00213, .25389, .34843,
1226 + .17965, .10309, 5.34671, .35185, .13629,
1227 + .02143, .26953, .36367,
1228 + .18452, .10581, 5.66830, .36826, .15377,
1229 + .04370, .28685, .38054,
1230 + .18946, .10856, 5.97983, .38504, .17175,
1231 + .06405, .30457, .39779,
1232 + .19385, .11098, 6.24189, .39996, .18782,
1233 + .08227, .32032, .41312 /
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 + .19819, .11336, 6.48775, .41473, .20381,
1236 + .10034, .33592, .42829,
1237 + .20171, .11528, 6.67570, .42668, .21677,
1238 + .11478, .34855, .44056,
1239 + .20588, .11754, 6.88474, .44077, .23208,
1240 + .13181, .36345, .45503,
1241 + .20951, .11950, 7.05631, .45296, .24543,
1242 + .14675, .37635, .46755,
1243 + .21278, .12125, 7.20293, .46390, .25748,
1244 + .16026, .38794, .47878,
1245 + .21682, .12341, 7.36815, .47723, .27215,
1246 + .17654, .40206, .49246,
1247 + .22055, .12538, 7.50958, .48939, .28564,
1248 + .19159, .41498, .50495,
1249 + .22398, .12720, 7.63202, .50053, .29809,
1250 + .20557, .42681, .51639 /
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 + .22731, .12894, 7.73660, .51110, .30988,
1253 + .21865, .43806, .52724,
1254 + .23053, .13061, 7.83056, .52119, .32124,
1255 + .23135, .44881, .53760,
1256 + .23352, .13216, 7.91052, .53045, .33172,
1257 + .24309, .45869, .54711,
1258 + .23627, .13358, 7.97493, .53877, .34117,
1259 + .25364, .46759, .55566,
1260 + .23901, .13498, 8.03579, .54702, .35062,
1261 + .26425, .47642, .56413,
1262 + .24162, .13632, 8.08381, .55466, .35938,
1263 + .27404, .48461, .57198,
1264 + .24409, .13758, 8.12758, .56187, .36772,
1265 + .28344, .49235, .57939,
1266 + .24637, .13872, 8.15917, .56827, .37514,
1267 + .29177, .49925, .58597 /
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 + .24865, .13987, 8.18927, .57467, .38261,
1270 + .30019, .50615, .59255,
1271 + .25085, .14097, 8.21198, .58067, .38966,
1272 + .30813, .51264, .59873,
1273 + .25292, .14200, 8.23010, .58623, .39623,
1274 + .31555, .51867, .60445,
1275 + .25487, .14297, 8.24485, .59140, .40237,
1276 + .32252, .52427, .60977,
1277 + .25679, .14392, 8.25337, .59631, .40824,
1278 + .32915, .52962, .61482 /
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 + .15514, .09137, 1.35182, .19235, .00000,
1281 + .00000, .10542, .20195,
1282 + .16036, .09440, 1.68040, .20168, .00000,
1283 + .00000, .11565, .21183,
1284 + .16782, .09869, 2.14243, .21585, .00620,
1285 + .00000, .13111, .22678,
1286 + .17313, .10171, 2.46629, .22638, .01929,
1287 + .00000, .14256, .23786,
1288 + .17855, .10479, 2.78996, .23756, .03079,
1289 + .00000, .15469, .24960,
1290 + .18310, .10735, 3.05477, .24721, .04087,
1291 + .00000, .16513, .25970,
1292 + .18738, .10974, 3.30191, .25648, .05093,
1293 + .00000, .17516, .26940,
1294 + .19185, .11223, 3.55585, .26633, .06178,
1295 + .00000, .18580, .27969 /
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 + .19564, .11432, 3.76324, .27480, .07092,
1298 + .00000, .19495, .28854,
1299 + .19922, .11629, 3.95495, .28292, .07976,
1300 + .00000, .20371, .29700,
1301 + .20203, .11783, 4.10404, .28935, .08691,
1302 + .00000, .21065, .30370,
1303 + .20786, .12100, 4.39230, .30281, .10177,
1304 + .00179, .22517, .31772,
1305 + .21274, .12363, 4.60908, .31412, .11427,
1306 + .01745, .23738, .32949,
1307 + .21805, .12648, 4.83184, .32650, .12809,
1308 + .03542, .25075, .34236,
1309 + .22343, .12934, 5.04258, .33899, .14214,
1310 + .05165, .26426, .35535,
1311 + .22817, .13184, 5.21559, .34996, .15456,
1312 + .06603, .27612, .36674 /
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 + .23282, .13427, 5.37403, .36069, .16681,
1315 + .08015, .28774, .37787,
1316 + .23659, .13623, 5.49189, .36927, .17663,
1317 + .09135, .29706, .38679,
1318 + .24103, .13851, 5.61942, .37927, .18814,
1319 + .10443, .30794, .39718,
1320 + .24486, .14047, 5.72125, .38783, .19809,
1321 + .11583, .31726, .40606,
1322 + .24830, .14222, 5.80594, .39544, .20700,
1323 + .12607, .32556, .41396,
1324 + .25252, .14435, 5.89697, .40458, .21773,
1325 + .13828, .33556, .42344,
1326 + .25639, .14628, 5.97169, .41283, .22752,
1327 + .14949, .34461, .43200,
1328 + .25994, .14805, 6.03393, .42031, .23649,
1329 + .15983, .35283, .43976 /
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 + .26336, .14973, 6.08278, .42727, .24489,
1332 + .16941, .36053, .44700,
1333 + .26664, .15133, 6.12429, .43386, .25292,
1334 + .17865, .36782, .45384,
1335 + .26968, .15281, 6.15697, .43984, .26027,
1336 + .18714, .37446, .46005,
1337 + .27245, .15414, 6.17974, .44514, .26684,
1338 + .19471, .38038, .46556,
1339 + .27521, .15547, 6.19983, .45035, .27336,
1340 + .20228, .38620, .47097,
1341 + .27782, .15670, 6.21122, .45508, .27935,
1342 + .20920, .39152, .47589,
1343 + .28028, .15787, 6.22080, .45952, .28503,
1344 + .21582, .39653, .48051,
1345 + .28253, .15892, 6.22299, .46338, .29002,
1346 + .22163, .40092, .48453 /
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 + .28478, .15997, 6.22406, .46723, .29503,
1349 + .22749, .40528, .48853,
1350 + .28693, .16096, 6.22031, .47076, .29971,
1351 + .23297, .40933, .49221,
1352 + .28895, .16189, 6.21438, .47400, .30404,
1353 + .23807, .41306, .49559,
1354 + .29084, .16275, 6.20713, .47698, .30807,
1355 + .24282, .41650, .49870,
1356 + .29269, .16359, 6.19537, .47975, .31187,
1357 + .24731, .41972, .50158 /
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 + .19086, .11527, 1.47891, .18225, .00000,
1360 + .00000, .10069, .19622,
1361 + .19684, .11858, 1.74728, .18998, .00000,
1362 + .00000, .10942, .20457,
1363 + .20534, .12322, 2.11455, .20145, .00536,
1364 + .00000, .12234, .21691,
1365 + .21134, .12647, 2.36442, .20981, .01655,
1366 + .00000, .13174, .22587,
1367 + .21742, .12974, 2.60930, .21855, .02619,
1368 + .00000, .14154, .23520,
1369 + .22250, .13244, 2.80560, .22596, .03452,
1370 + .00000, .14984, .24310,
1371 + .22726, .13495, 2.98556, .23300, .04274,
1372 + .00000, .15773, .25060,
1373 + .23218, .13754, 3.16730, .24040, .05150,
1374 + .00000, .16601, .25845 /
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 + .23634, .13970, 3.31305, .24668, .05880,
1377 + .00000, .17304, .26512,
1378 + .24025, .14172, 3.44563, .25263, .06579,
1379 + .00000, .17971, .27143,
1380 + .24331, .14329, 3.54747, .25731, .07140,
1381 + .00000, .18496, .27638,
1382 + .24961, .14651, 3.73872, .26698, .08294,
1383 + .00146, .19580, .28661,
1384 + .25484, .14915, 3.87616, .27497, .09251,
1385 + .01370, .20478, .29505,
1386 + .26050, .15197, 4.01306, .28358, .10297,
1387 + .02767, .21448, .30414,
1388 + .26617, .15477, 4.13805, .29213, .11347,
1389 + .04012, .22414, .31315,
1390 + .27113, .15720, 4.23661, .29951, .12263,
1391 + .05102, .23250, .32093 /
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 + .27596, .15953, 4.32322, .30662, .13157,
1394 + .06162, .24059, .32842,
1395 + .27984, .16139, 4.38474, .31221, .13866,
1396 + .06993, .24698, .33432,
1397 + .28436, .16353, 4.44749, .31862, .14688,
1398 + .07957, .25434, .34107,
1399 + .28825, .16535, 4.49473, .32402, .15390,
1400 + .08788, .26057, .34676,
1401 + .29171, .16696, 4.53169, .32876, .16014,
1402 + .09529, .26605, .35174,
1403 + .29592, .16889, 4.56688, .33433, .16757,
1404 + .10403, .27255, .35761,
1405 + .29975, .17063, 4.59218, .33927, .17427,
1406 + .11199, .27835, .36281,
1407 + .30324, .17220, 4.61039, .34368, .18035,
1408 + .11927, .28355, .36745 /
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 + .30656, .17366, 4.61941, .34768, .18597,
1411 + .12594, .28833, .37166,
1412 + .30973, .17504, 4.62403, .35139, .19129,
1413 + .13233, .29279, .37557,
1414 + .31263, .17630, 4.62401, .35470, .19612,
1415 + .13815, .29680, .37905,
1416 + .31526, .17742, 4.61873, .35755, .20038,
1417 + .14328, .30030, .38204,
1418 + .31786, .17852, 4.61173, .36031, .20458,
1419 + .14839, .30371, .38496,
1420 + .32029, .17953, 4.59932, .36273, .20838,
1421 + .15301, .30675, .38751,
1422 + .32257, .18048, 4.58689, .36498, .21197,
1423 + .15742, .30960, .38989,
1424 + .32463, .18131, 4.57069, .36686, .21507,
1425 + .16123, .31202, .39186 /
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 + .32668, .18214, 4.55382, .36870, .21817,
1428 + .16507, .31442, .39381,
1429 + .32862, .18291, 4.53424, .37033, .22102,
1430 + .16862, .31658, .39552,
1431 + .33043, .18362, 4.51423, .37178, .22364,
1432 + .17189, .31854, .39706,
1433 + .33212, .18428, 4.49437, .37308, .22605,
1434 + .17494, .32033, .39844,
1435 + .33374, .18490, 4.47158, .37422, .22829,
1436 + .17778, .32194, .39965 /
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 + .24408, .14976, 1.57208, .16917, .00000,
1439 + .00000, .09490, .19024,
1440 + .25083, .15318, 1.76661, .17483, .00000,
1441 + .00000, .10173, .19653,
1442 + .26031, .15790, 2.02373, .18303, .00434,
1443 + .00000, .11160, .20556,
1444 + .26692, .16115, 2.19180, .18885, .01332,
1445 + .00000, .11862, .21196,
1446 + .27357, .16439, 2.35236, .19481, .02089,
1447 + .00000, .12579, .21848,
1448 + .27906, .16702, 2.47760, .19977, .02732,
1449 + .00000, .13177, .22389,
1450 + .28415, .16944, 2.58966, .20441, .03358,
1451 + .00000, .13736, .22894,
1452 + .28939, .17191, 2.70012, .20921, .04016,
1453 + .00000, .14316, .23414 /
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 + .29377, .17394, 2.78633, .21322, .04557,
1456 + .00000, .14801, .23847,
1457 + .29785, .17582, 2.86282, .21696, .05070,
1458 + .00000, .15255, .24251,
1459 + .30103, .17727, 2.92051, .21986, .05479,
1460 + .00000, .15609, .24565,
1461 + .30751, .18019, 3.02347, .22576, .06307,
1462 + .00112, .16329, .25201,
1463 + .31281, .18254, 3.09086, .23050, .06983,
1464 + .01001, .16913, .25710,
1465 + .31848, .18501, 3.15362, .23551, .07711,
1466 + .02009, .17533, .26247,
1467 + .32407, .18741, 3.20649, .24034, .08430,
1468 + .02893, .18137, .26763,
1469 + .32890, .18944, 3.24411, .24439, .09049,
1470 + .03657, .18650, .27196 /
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 + .33355, .19135, 3.27330, .24819, .09644,
1473 + .04391, .19136, .27601,
1474 + .33722, .19284, 3.29069, .25109, .10109,
1475 + .04960, .19512, .27911,
1476 + .34145, .19452, 3.30407, .25432, .10641,
1477 + .05611, .19937, .28254,
1478 + .34503, .19591, 3.31062, .25696, .11090,
1479 + .06167, .20288, .28533,
1480 + .34819, .19711, 3.31263, .25921, .11484,
1481 + .06658, .20592, .28772,
1482 + .35196, .19851, 3.30794, .26173, .11945,
1483 + .07230, .20943, .29039,
1484 + .35533, .19974, 3.29893, .26387, .12355,
1485 + .07745, .21247, .29265,
1486 + .35836, .20081, 3.28738, .26571, .12723,
1487 + .08211, .21514, .29458 /
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 + .36118, .20178, 3.27041, .26726, .13056,
1490 + .08632, .21750, .29620,
1491 + .36383, .20266, 3.25161, .26864, .13368,
1492 + .09031, .21965, .29764,
1493 + .36623, .20343, 3.23151, .26978, .13646,
1494 + .09391, .22152, .29884,
1495 + .36835, .20409, 3.20961, .27068, .13888,
1496 + .09704, .22309, .29976,
1497 + .37042, .20473, 3.18692, .27151, .14124,
1498 + .10014, .22459, .30061,
1499 + .37231, .20527, 3.16158, .27213, .14332,
1500 + .10290, .22584, .30124,
1501 + .37408, .20577, 3.13747, .27268, .14527,
1502 + .10551, .22700, .30181,
1503 + .37562, .20617, 3.11224, .27303, .14691,
1504 + .10774, .22791, .30216 /
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 + .37714, .20657, 3.08679, .27336, .14854,
1507 + .10996, .22879, .30247,
1508 + .37855, .20690, 3.06019, .27355, .15001,
1509 + .11200, .22952, .30265,
1510 + .37984, .20720, 3.03429, .27366, .15134,
1511 + .11385, .23014, .30274,
1512 + .38102, .20746, 3.00944, .27373, .15254,
1513 + .11557, .23069, .30278,
1514 + .38213, .20767, 2.98293, .27368, .15363,
1515 + .11713, .23111, .30270 /
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 + .29230, .17936, 1.57052, .15768, .00000,
1518 + .00000, .09001, .18532,
1519 + .29936, .18260, 1.71305, .16177, .00000,
1520 + .00000, .09539, .18995,
1521 + .30917, .18700, 1.89604, .16760, .00361,
1522 + .00000, .10303, .19647,
1523 + .31593, .18999, 2.01155, .17167, .01101,
1524 + .00000, .10838, .20099,
1525 + .32267, .19291, 2.11959, .17575, .01716,
1526 + .00000, .11378, .20550,
1527 + .32817, .19524, 2.20177, .17910, .02233,
1528 + .00000, .11821, .20918,
1529 + .33325, .19737, 2.27373, .18218, .02731,
1530 + .00000, .12232, .21256,
1531 + .33842, .19950, 2.34307, .18532, .03251,
1532 + .00000, .12653, .21598 /
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 + .34268, .20123, 2.39561, .18791, .03675,
1535 + .00000, .13001, .21879,
1536 + .34664, .20281, 2.44099, .19029, .04073,
1537 + .00000, .13324, .22136,
1538 + .34970, .20402, 2.47456, .19212, .04388,
1539 + .00000, .13573, .22334,
1540 + .35586, .20640, 2.53033, .19576, .05021,
1541 + .00090, .14074, .22725,
1542 + .36083, .20826, 2.56173, .19861, .05532,
1543 + .00776, .14473, .23028,
1544 + .36607, .21017, 2.58744, .20153, .06077,
1545 + .01551, .14889, .23337,
1546 + .37116, .21196, 2.60530, .20426, .06608,
1547 + .02223, .15286, .23625,
1548 + .37549, .21343, 2.61419, .20646, .07060,
1549 + .02798, .15617, .23856 /
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 + .37958, .21477, 2.61705, .20845, .07490,
1552 + .03346, .15924, .24061,
1553 + .38277, .21576, 2.61471, .20991, .07822,
1554 + .03767, .16157, .24211,
1555 + .38637, .21684, 2.60665, .21144, .08197,
1556 + .04244, .16413, .24367,
1557 + .38936, .21770, 2.59605, .21263, .08511,
1558 + .04649, .16621, .24486,
1559 + .39195, .21841, 2.58378, .21359, .08784,
1560 + .05003, .16796, .24581,
1561 + .39498, .21917, 2.56353, .21455, .09099,
1562 + .05412, .16990, .24674,
1563 + .39763, .21978, 2.54168, .21529, .09376,
1564 + .05776, .17154, .24742,
1565 + .39996, .22030, 2.51941, .21585, .09621,
1566 + .06104, .17293, .24792 /
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 + .40207, .22069, 2.49368, .21620, .09840,
1569 + .06396, .17407, .24819,
1570 + .40400, .22101, 2.46735, .21644, .10042,
1571 + .06671, .17508, .24834,
1572 + .40570, .22126, 2.44116, .21656, .10220,
1573 + .06917, .17591, .24837,
1574 + .40715, .22142, 2.41477, .21654, .10371,
1575 + .07128, .17654, .24826,
1576 + .40856, .22155, 2.38811, .21646, .10518,
1577 + .07337, .17711, .24809,
1578 + .40975, .22159, 2.36011, .21625, .10644,
1579 + .07519, .17752, .24776,
1580 + .41086, .22163, 2.33375, .21604, .10762,
1581 + .07692, .17789, .24743,
1582 + .41177, .22159, 2.30736, .21571, .10858,
1583 + .07836, .17809, .24698 /
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 + .41265, .22154, 2.28097, .21535, .10952,
1586 + .07980, .17827, .24651,
1587 + .41342, .22143, 2.25415, .21492, .11035,
1588 + .08110, .17836, .24595,
1589 + .41409, .22131, 2.22843, .21447, .11109,
1590 + .08227, .17839, .24537,
1591 + .41469, .22117, 2.20404, .21400, .11175,
1592 + .08335, .17839, .24479,
1593 + .41519, .22099, 2.17862, .21345, .11231,
1594 + .08431, .17828, .24411 /
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 + .37818, .22765, 1.42724, .13662, .00000,
1597 + .00000, .08104, .17502,
1598 + .38494, .23004, 1.50693, .13860, .00000,
1599 + .00000, .08439, .17718,
1600 + .39407, .23315, 1.60429, .14135, .00261,
1601 + .00000, .08904, .18006,
1602 + .40024, .23515, 1.66188, .14320, .00793,
1603 + .00000, .09223, .18198,
1604 + .40623, .23699, 1.71355, .14501, .01228,
1605 + .00000, .09538, .18380,
1606 + .41099, .23840, 1.75080, .14643, .01587,
1607 + .00000, .09790, .18520,
1608 + .41530, .23962, 1.78185, .14769, .01931,
1609 + .00000, .10021, .18643,
1610 + .41962, .24077, 1.81014, .14893, .02285,
1611 + .00000, .10252, .18761 /
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 + .42306, .24165, 1.82985, .14991, .02570,
1614 + .00000, .10440, .18850,
1615 + .42619, .24240, 1.84542, .15078, .02835,
1616 + .00000, .10610, .18926,
1617 + .42859, .24294, 1.85620, .15142, .03043,
1618 + .00000, .10740, .18983,
1619 + .43323, .24389, 1.86897, .15261, .03455,
1620 + .00064, .10993, .19081,
1621 + .43682, .24452, 1.86896, .15345, .03783,
1622 + .00516, .11187, .19143,
1623 + .44045, .24503, 1.86343, .15420, .04126,
1624 + .01025, .11382, .19192,
1625 + .44380, .24538, 1.85273, .15478, .04455,
1626 + .01459, .11559, .19220,
1627 + .44648, .24554, 1.83904, .15513, .04729,
1628 + .01825, .11698, .19225 /
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 + .44888, .24556, 1.82201, .15532, .04986,
1631 + .02169, .11819, .19215,
1632 + .45061, .24546, 1.80536, .15537, .05181,
1633 + .02430, .11905, .19191,
1634 + .45243, .24522, 1.78254, .15528, .05397,
1635 + .02722, .11992, .19148,
1636 + .45382, .24492, 1.76078, .15511, .05574,
1637 + .02967, .12056, .19099,
1638 + .45494, .24457, 1.73971, .15487, .05726,
1639 + .03178, .12104, .19045,
1640 + .45605, .24401, 1.71069, .15442, .05896,
1641 + .03418, .12148, .18960,
1642 + .45688, .24339, 1.68231, .15389, .06043,
1643 + .03629, .12177, .18871,
1644 + .45752, .24275, 1.65518, .15333, .06170,
1645 + .03816, .12195, .18780 /
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 + .45789, .24200, 1.62652, .15265, .06278,
1648 + .03979, .12198, .18676,
1649 + .45812, .24122, 1.59828, .15193, .06377,
1650 + .04131, .12194, .18568,
1651 + .45821, .24043, 1.57124, .15120, .06462,
1652 + .04264, .12183, .18460,
1653 + .45814, .23963, 1.54513, .15043, .06530,
1654 + .04377, .12163, .18350,
1655 + .45800, .23880, 1.51918, .14965, .06595,
1656 + .04487, .12141, .18239,
1657 + .45769, .23791, 1.49297, .14879, .06648,
1658 + .04581, .12109, .18121,
1659 + .45736, .23707, 1.46855, .14798, .06696,
1660 + .04668, .12078, .18008,
1661 + .45692, .23620, 1.44490, .14714, .06732,
1662 + .04740, .12041, .17895 /
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 + .45644, .23532, 1.42148, .14629, .06767,
1665 + .04810, .12002, .17780,
1666 + .45585, .23442, 1.39817, .14541, .06794,
1667 + .04871, .11958, .17662,
1668 + .45523, .23354, 1.37611, .14456, .06818,
1669 + .04926, .11914, .17548,
1670 + .45461, .23270, 1.35540, .14374, .06838,
1671 + .04975, .11870, .17438,
1672 + .45388, .23179, 1.33425, .14286, .06851,
1673 + .05018, .11821, .17323 /
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 + .45261, .26452, 1.22292, .11757, .00000,
1676 + .00000, .07257, .16306,
1677 + .45820, .26570, 1.27274, .11833, .00000,
1678 + .00000, .07465, .16354,
1679 + .46547, .26703, 1.33113, .11938, .00200,
1680 + .00000, .07749, .16407,
1681 + .47021, .26775, 1.36350, .12004, .00605,
1682 + .00000, .07941, .16432,
1683 + .47463, .26825, 1.39117, .12064, .00934,
1684 + .00000, .08126, .16446,
1685 + .47800, .26850, 1.40977, .12106, .01202,
1686 + .00000, .08272, .16448,
1687 + .48095, .26862, 1.42417, .12141, .01457,
1688 + .00000, .08401, .16442,
1689 + .48378, .26862, 1.43604, .12171, .01717,
1690 + .00000, .08529, .16429 /
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 + .48593, .26849, 1.44285, .12189, .01925,
1693 + .00000, .08629, .16408,
1694 + .48779, .26828, 1.44695, .12202, .02117,
1695 + .00000, .08719, .16382,
1696 + .48915, .26808, 1.44910, .12210, .02266,
1697 + .00000, .08786, .16359,
1698 + .49159, .26745, 1.44617, .12214, .02560,
1699 + .00048, .08910, .16296,
1700 + .49327, .26673, 1.43564, .12204, .02789,
1701 + .00372, .09000, .16227,
1702 + .49472, .26579, 1.42014, .12181, .03027,
1703 + .00736, .09082, .16137,
1704 + .49579, .26463, 1.40082, .12144, .03251,
1705 + .01042, .09150, .16029,
1706 + .49641, .26344, 1.38075, .12098, .03435,
1707 + .01297, .09195, .15921 /
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 + .49673, .26213, 1.35854, .12043, .03604,
1710 + .01534, .09228, .15801,
1711 + .49673, .26096, 1.33863, .11990, .03731,
1712 + .01712, .09245, .15693,
1713 + .49645, .25944, 1.31293, .11916, .03868,
1714 + .01909, .09253, .15553,
1715 + .49599, .25803, 1.28939, .11845, .03979,
1716 + .02072, .09252, .15424,
1717 + .49542, .25669, 1.26730, .11776, .04072,
1718 + .02211, .09244, .15302,
1719 + .49440, .25487, 1.23806, .11678, .04173,
1720 + .02367, .09222, .15137,
1721 + .49326, .25310, 1.21021, .11580, .04259,
1722 + .02502, .09194, .14978,
1723 + .49205, .25141, 1.18409, .11485, .04331,
1724 + .02620, .09161, .14828 /
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 + .49060, .24964, 1.15723, .11383, .04389,
1727 + .02722, .09118, .14668,
1728 + .48906, .24788, 1.13115, .11281, .04441,
1729 + .02814, .09072, .14510,
1730 + .48750, .24619, 1.10655, .11182, .04483,
1731 + .02895, .09025, .14359,
1732 + .48587, .24454, 1.08320, .11083, .04516,
1733 + .02961, .08974, .14212,
1734 + .48420, .24288, 1.06018, .10985, .04546,
1735 + .03025, .08921, .14066,
1736 + .48238, .24120, 1.03731, .10883, .04567,
1737 + .03078, .08863, .13916,
1738 + .48065, .23963, 1.01611, .10788, .04586,
1739 + .03128, .08809, .13776,
1740 + .47887, .23807, .99589, .10693, .04598,
1741 + .03166, .08752, .13640 /
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 + .47707, .23651, .97597, .10599, .04608,
1744 + .03204, .08694, .13504,
1745 + .47519, .23494, .95636, .10503, .04614,
1746 + .03235, .08634, .13368,
1747 + .47335, .23345, .93793, .10411, .04617,
1748 + .03263, .08575, .13237,
1749 + .47159, .23203, .92074, .10324, .04618,
1750 + .03288, .08519, .13114,
1751 + .46971, .23055, .90335, .10233, .04616,
1752 + .03307, .08459, .12986 /
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 + .51676, .29217, 1.02954, .10064, .00000,
1755 + .00000, .06450, .14959,
1756 + .52054, .29201, 1.06655, .10078, .00000,
1757 + .00000, .06579, .14895,
1758 + .52521, .29135, 1.10842, .10088, .00161,
1759 + .00000, .06752, .14796,
1760 + .52797, .29070, 1.13033, .10092, .00486,
1761 + .00000, .06865, .14715,
1762 + .53032, .28975, 1.14795, .10090, .00746,
1763 + .00000, .06971, .14625,
1764 + .53190, .28879, 1.15867, .10081, .00957,
1765 + .00000, .07053, .14540,
1766 + .53312, .28777, 1.16603, .10068, .01156,
1767 + .00000, .07124, .14455,
1768 + .53412, .28659, 1.17097, .10050, .01358,
1769 + .00000, .07190, .14362 /
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 + .53469, .28546, 1.17233, .10030, .01518,
1772 + .00000, .07239, .14275,
1773 + .53502, .28429, 1.17158, .10006, .01664,
1774 + .00000, .07281, .14188,
1775 + .53518, .28334, 1.17010, .09986, .01777,
1776 + .00000, .07312, .14118,
1777 + .53507, .28116, 1.16080, .09934, .01998,
1778 + .00038, .07363, .13960,
1779 + .53454, .27916, 1.14639, .09880, .02167,
1780 + .00283, .07392, .13817,
1781 + .53358, .27678, 1.12739, .09811, .02340,
1782 + .00556, .07412, .13650,
1783 + .53217, .27420, 1.10527, .09730, .02501,
1784 + .00784, .07420, .13469,
1785 + .53057, .27177, 1.08339, .09648, .02631,
1786 + .00972, .07416, .13298 /
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 + .52867, .26924, 1.06000, .09561, .02748,
1789 + .01144, .07402, .13122,
1790 + .52686, .26709, 1.03959, .09483, .02834,
1791 + .01272, .07381, .12972,
1792 + .52442, .26441, 1.01390, .09382, .02925,
1793 + .01412, .07349, .12786,
1794 + .52208, .26200, .99080, .09290, .02998,
1795 + .01527, .07314, .12619,
1796 + .51981, .25978, .96944, .09204, .03057,
1797 + .01624, .07278, .12465,
1798 + .51667, .25689, .94166, .09087, .03119,
1799 + .01730, .07224, .12265,
1800 + .51357, .25414, .91559, .08975, .03170,
1801 + .01822, .07168, .12076,
1802 + .51058, .25156, .89142, .08869, .03211,
1803 + .01901, .07112, .11899 /
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 + .50736, .24891, .86695, .08757, .03242,
1806 + .01967, .07049, .11719,
1807 + .50414, .24633, .84341, .08648, .03269,
1808 + .02027, .06985, .11544,
1809 + .50100, .24389, .82141, .08543, .03289,
1810 + .02077, .06923, .11378,
1811 + .49793, .24156, .80076, .08442, .03302,
1812 + .02118, .06860, .11220,
1813 + .49483, .23923, .78053, .08342, .03313,
1814 + .02158, .06796, .11064,
1815 + .49162, .23691, .76065, .08239, .03318,
1816 + .02188, .06730, .10908,
1817 + .48860, .23474, .74233, .08143, .03323,
1818 + .02217, .06667, .10763,
1819 + .48562, .23265, .72499, .08051, .03322,
1820 + .02238, .06604, .10623 /
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 + .48263, .23056, .70799, .07959, .03320,
1823 + .02259, .06541, .10484,
1824 + .47960, .22848, .69140, .07867, .03316,
1825 + .02275, .06477, .10346,
1826 + .47668, .22650, .67590, .07779, .03310,
1827 + .02289, .06417, .10216,
1828 + .47391, .22464, .66150, .07697, .03303,
1829 + .02300, .06359, .10093,
1830 + .47103, .22272, .64706, .07611, .03293,
1831 + .02309, .06298, .09969 /
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 + .58326, .31599, .84191, .08254, .00000,
1834 + .00000, .05507, .13145,
1835 + .58433, .31406, .87318, .08230, .00000,
1836 + .00000, .05576, .13002,
1837 + .58496, .31095, .90699, .08191, .00129,
1838 + .00000, .05669, .12786,
1839 + .58485, .30854, .92350, .08160, .00389,
1840 + .00000, .05725, .12629,
1841 + .58421, .30583, .93546, .08120, .00594,
1842 + .00000, .05776, .12465,
1843 + .58323, .30341, .94146, .08081, .00758,
1844 + .00000, .05809, .12320,
1845 + .58202, .30102, .94445, .08042, .00912,
1846 + .00000, .05835, .12179,
1847 + .58050, .29843, .94496, .07997, .01066,
1848 + .00000, .05858, .12028 /
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 + .57889, .29611, .94272, .07955, .01185,
1851 + .00000, .05870, .11897,
1852 + .57716, .29383, .93871, .07910, .01294,
1853 + .00000, .05878, .11770,
1854 + .57572, .29201, .93477, .07873, .01378,
1855 + .00000, .05882, .11670,
1856 + .57224, .28806, .92121, .07790, .01538,
1857 + .00030, .05879, .11452,
1858 + .56889, .28457, .90432, .07711, .01659,
1859 + .00210, .05867, .11263,
1860 + .56482, .28061, .88319, .07618, .01780,
1861 + .00411, .05845, .11050,
1862 + .56027, .27646, .85951, .07514, .01889,
1863 + .00576, .05811, .10827,
1864 + .55588, .27268, .83681, .07416, .01975,
1865 + .00709, .05772, .10622 /
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 + .55123, .26887, .81311, .07315, .02052,
1868 + .00831, .05727, .10416,
1869 + .54721, .26569, .79289, .07228, .02106,
1870 + .00919, .05685, .10243,
1871 + .54217, .26179, .76790, .07118, .02161,
1872 + .01014, .05628, .10036,
1873 + .53760, .25835, .74581, .07018, .02203,
1874 + .01091, .05573, .09854,
1875 + .53334, .25521, .72565, .06927, .02237,
1876 + .01155, .05521, .09687,
1877 + .52773, .25121, .69990, .06807, .02270,
1878 + .01225, .05449, .09477,
1879 + .52237, .24748, .67607, .06694, .02295,
1880 + .01283, .05378, .09280,
1881 + .51733, .24403, .65423, .06588, .02313,
1882 + .01332, .05312, .09098 /
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 + .51211, .24054, .63244, .06479, .02325,
1885 + .01372, .05240, .08917,
1886 + .50701, .23716, .61170, .06374, .02333,
1887 + .01407, .05170, .08742,
1888 + .50215, .23399, .59253, .06274, .02338,
1889 + .01437, .05101, .08578,
1890 + .49748, .23101, .57473, .06178, .02338,
1891 + .01459, .05035, .08425,
1892 + .49283, .22806, .55741, .06084, .02336,
1893 + .01480, .04968, .08274,
1894 + .48814, .22514, .54057, .05990, .02331,
1895 + .01496, .04901, .08125,
1896 + .48375, .22242, .52514, .05902, .02326,
1897 + .01510, .04839, .07987,
1898 + .47949, .21983, .51074, .05818, .02318,
1899 + .01520, .04778, .07856 /
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 + .47524, .21726, .49669, .05734, .02309,
1902 + .01529, .04717, .07726,
1903 + .47101, .21472, .48307, .05652, .02298,
1904 + .01535, .04656, .07600,
1905 + .46698, .21231, .47042, .05574, .02287,
1906 + .01539, .04597, .07481,
1907 + .46318, .21006, .45874, .05500, .02276,
1908 + .01543, .04542, .07369,
1909 + .45927, .20777, .44710, .05425, .02262,
1910 + .01544, .04486, .07256 /
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 + .63532, .32980, .72109, .06763, .00000,
1913 + .00000, .04645, .11287,
1914 + .63330, .32623, .74915, .06728, .00000,
1915 + .00000, .04685, .11104,
1916 + .62954, .32074, .77757, .06669, .00108,
1917 + .00000, .04734, .10838,
1918 + .62632, .31670, .78997, .06624, .00323,
1919 + .00000, .04759, .10647,
1920 + .62249, .31237, .79734, .06569, .00490,
1921 + .00000, .04775, .10448,
1922 + .61883, .30860, .79936, .06520, .00622,
1923 + .00000, .04784, .10275,
1924 + .61512, .30497, .79862, .06469, .00744,
1925 + .00000, .04786, .10112,
1926 + .61100, .30112, .79531, .06413, .00864,
1927 + .00000, .04784, .09940 /
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 + .60722, .29773, .78992, .06360, .00956,
1930 + .00000, .04776, .09793,
1931 + .60342, .29447, .78307, .06308, .01039,
1932 + .00000, .04765, .09650,
1933 + .60035, .29191, .77700, .06266, .01102,
1934 + .00000, .04754, .09537,
1935 + .59354, .28641, .75968, .06171, .01221,
1936 + .00024, .04724, .09300,
1937 + .58741, .28169, .74053, .06085, .01308,
1938 + .00161, .04689, .09095,
1939 + .58034, .27645, .71750, .05985, .01394,
1940 + .00313, .04645, .08867,
1941 + .57281, .27100, .69244, .05876, .01469,
1942 + .00435, .04591, .08635,
1943 + .56583, .26610, .66906, .05774, .01527,
1944 + .00533, .04537, .08426 /
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 + .55868, .26123, .64521, .05670, .01576,
1947 + .00620, .04478, .08218,
1948 + .55264, .25722, .62522, .05583, .01609,
1949 + .00683, .04425, .08046,
1950 + .54524, .25237, .60100, .05474, .01641,
1951 + .00749, .04357, .07842,
1952 + .53868, .24814, .57988, .05377, .01665,
1953 + .00802, .04296, .07665,
1954 + .53265, .24431, .56086, .05288, .01682,
1955 + .00846, .04239, .07505,
1956 + .52487, .23950, .53696, .05175, .01697,
1957 + .00891, .04163, .07301,
1958 + .51756, .23505, .51513, .05069, .01707,
1959 + .00928, .04090, .07115,
1960 + .51077, .23095, .49535, .04970, .01712,
1961 + .00960, .04021, .06944 /
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 + .50386, .22687, .47591, .04871, .01713,
1964 + .00984, .03950, .06775,
1965 + .49717, .22294, .45758, .04775, .01711,
1966 + .01005, .03880, .06615,
1967 + .49088, .21926, .44080, .04684, .01707,
1968 + .01021, .03814, .06466,
1969 + .48490, .21583, .42539, .04598, .01700,
1970 + .01033, .03751, .06327,
1971 + .47897, .21246, .41051, .04514, .01693,
1972 + .01044, .03689, .06190,
1973 + .47308, .20916, .39621, .04430, .01683,
1974 + .01052, .03626, .06058,
1975 + .46758, .20608, .38317, .04353, .01673,
1976 + .01058, .03567, .05935,
1977 + .46233, .20317, .37112, .04279, .01661,
1978 + .01061, .03511, .05821 /
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 + .45712, .20029, .35941, .04205, .01650,
1981 + .01064, .03456, .05707,
1982 + .45195, .19747, .34815, .04134, .01637,
1983 + .01065, .03401, .05596,
1984 + .44704, .19483, .33775, .04067, .01624,
1985 + .01065, .03350, .05491,
1986 + .44243, .19236, .32820, .04004, .01611,
1987 + .01064, .03301, .05394,
1988 + .43774, .18985, .31878, .03941, .01598,
1989 + .01062, .03252, .05297 /
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 + .67366, .33539, .65451, .05548, .00000,
1992 + .00000, .03872, .09481,
1993 + .66849, .33025, .67784, .05510, .00000,
1994 + .00000, .03895, .09288,
1995 + .66018, .32270, .69870, .05450, .00092,
1996 + .00000, .03917, .09005,
1997 + .65380, .31724, .70559, .05400, .00273,
1998 + .00000, .03924, .08805,
1999 + .64676, .31149, .70716, .05344, .00411,
2000 + .00000, .03922, .08597,
2001 + .64045, .30657, .70437, .05289, .00518,
2002 + .00000, .03915, .08420,
2003 + .63428, .30189, .69926, .05236, .00616,
2004 + .00000, .03903, .08254,
2005 + .62765, .29698, .69159, .05178, .00711,
2006 + .00000, .03885, .08080 /
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 + .62173, .29273, .68275, .05123, .00783,
2009 + .00000, .03866, .07930,
2010 + .61596, .28865, .67288, .05069, .00847,
2011 + .00000, .03845, .07787,
2012 + .61140, .28546, .66457, .05025, .00894,
2013 + .00000, .03827, .07675,
2014 + .60147, .27873, .64337, .04927, .00982,
2015 + .00019, .03782, .07441,
2016 + .59276, .27302, .62188, .04841, .01046,
2017 + .00125, .03737, .07241,
2018 + .58299, .26672, .59694, .04740, .01106,
2019 + .00241, .03682, .07023,
2020 + .57276, .26028, .57063, .04634, .01158,
2021 + .00333, .03619, .06800,
2022 + .56345, .25457, .54669, .04538, .01195,
2023 + .00406, .03558, .06601 /
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 + .55408, .24892, .52275, .04438, .01226,
2026 + .00469, .03494, .06407,
2027 + .54630, .24428, .50311, .04354, .01245,
2028 + .00514, .03440, .06248,
2029 + .53686, .23876, .47972, .04253, .01263,
2030 + .00561, .03371, .06060,
2031 + .52858, .23398, .45965, .04164, .01274,
2032 + .00598, .03309, .05898,
2033 + .52106, .22967, .44179, .04081, .01282,
2034 + .00627, .03252, .05752,
2035 + .51149, .22429, .41969, .03977, .01286,
2036 + .00658, .03178, .05570,
2037 + .50258, .21934, .39979, .03881, .01286,
2038 + .00682, .03109, .05404,
2039 + .49436, .21482, .38197, .03793, .01284,
2040 + .00701, .03045, .05251 /
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 + .48613, .21034, .36466, .03703, .01279,
2043 + .00716, .02979, .05105,
2044 + .47819, .20606, .34853, .03617, .01272,
2045 + .00728, .02915, .04965,
2046 + .47076, .20210, .33392, .03537, .01263,
2047 + .00737, .02855, .04835,
2048 + .46377, .19840, .32063, .03463, .01253,
2049 + .00743, .02798, .04714,
2050 + .45689, .19477, .30787, .03390, .01243,
2051 + .00748, .02743, .04597,
2052 + .45010, .19125, .29574, .03317, .01231,
2053 + .00751, .02687, .04484,
2054 + .44377, .18799, .28474, .03250, .01220,
2055 + .00753, .02635, .04380,
2056 + .43776, .18491, .27465, .03187, .01208,
2057 + .00753, .02587, .04283 /
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 + .43181, .18189, .26490, .03125, .01196,
2060 + .00753, .02539, .04187,
2061 + .42597, .17893, .25562, .03065, .01182,
2062 + .00751, .02491, .04094,
2063 + .42046, .17615, .24710, .03007, .01170,
2064 + .00749, .02447, .04007,
2065 + .41531, .17356, .23931, .02954, .01158,
2066 + .00747, .02405, .03926,
2067 + .41008, .17095, .23167, .02901, .01145,
2068 + .00743, .02364, .03845 /
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 + .69923, .33414, .62406, .04559, .00000,
2071 + .00000, .03187, .07795,
2072 + .69086, .32773, .64000, .04524, .00000,
2073 + .00000, .03201, .07608,
2074 + .67819, .31832, .65024, .04461, .00078,
2075 + .00000, .03210, .07339,
2076 + .66876, .31166, .64982, .04412, .00231,
2077 + .00000, .03208, .07145,
2078 + .65868, .30473, .64430, .04355, .00345,
2079 + .00000, .03195, .06947,
2080 + .64989, .29883, .63592, .04300, .00432,
2081 + .00000, .03179, .06781,
2082 + .64143, .29329, .62591, .04246, .00511,
2083 + .00000, .03160, .06623,
2084 + .63246, .28752, .61356, .04186, .00586,
2085 + .00000, .03136, .06459 /
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 + .62461, .28257, .60113, .04132, .00641,
2088 + .00000, .03111, .06320,
2089 + .61705, .27786, .58822, .04078, .00690,
2090 + .00000, .03085, .06186,
2091 + .61111, .27419, .57774, .04035, .00726,
2092 + .00000, .03064, .06081,
2093 + .59837, .26650, .55289, .03941, .00791,
2094 + .00016, .03011, .05867,
2095 + .58741, .26003, .52929, .03857, .00837,
2096 + .00097, .02962, .05684,
2097 + .57524, .25298, .50273, .03762, .00878,
2098 + .00187, .02905, .05483,
2099 + .56269, .24582, .47551, .03662, .00912,
2100 + .00256, .02841, .05283,
2101 + .55142, .23950, .45141, .03569, .00936,
2102 + .00310, .02781, .05107 /
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 + .54018, .23329, .42781, .03477, .00954,
2105 + .00356, .02720, .04933,
2106 + .53095, .22824, .40878, .03400, .00965,
2107 + .00389, .02666, .04794,
2108 + .51985, .22229, .38645, .03308, .00973,
2109 + .00422, .02602, .04627,
2110 + .51019, .21715, .36758, .03227, .00976,
2111 + .00447, .02544, .04485,
2112 + .50147, .21254, .35101, .03154, .00977,
2113 + .00467, .02491, .04359,
2114 + .49047, .20682, .33083, .03061, .00975,
2115 + .00487, .02423, .04203,
2116 + .48033, .20159, .31287, .02975, .00970,
2117 + .00502, .02360, .04062,
2118 + .47104, .19683, .29696, .02896, .00964,
2119 + .00514, .02303, .03934 /
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 + .46179, .19214, .28175, .02818, .00955,
2122 + .00523, .02244, .03809,
2123 + .45291, .18769, .26767, .02744, .00946,
2124 + .00529, .02188, .03691,
2125 + .44462, .18360, .25503, .02675, .00936,
2126 + .00534, .02135, .03583,
2127 + .43691, .17978, .24365, .02611, .00926,
2128 + .00536, .02086, .03483,
2129 + .42935, .17604, .23282, .02547, .00915,
2130 + .00538, .02039, .03386,
2131 + .42192, .17243, .22261, .02486, .00903,
2132 + .00538, .01992, .03293,
2133 + .41503, .16909, .21340, .02430, .00892,
2134 + .00538, .01949, .03206,
2135 + .40851, .16598, .20504, .02378, .00880,
2136 + .00536, .01908, .03125 /
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 + .40206, .16292, .19699, .02328, .00868,
2139 + .00535, .01867, .03046,
2140 + .39578, .15993, .18938, .02277, .00856,
2141 + .00532, .01827, .02970,
2142 + .38988, .15712, .18243, .02229, .00845,
2143 + .00529, .01790, .02900,
2144 + .38437, .15451, .17611, .02185, .00834,
2145 + .00526, .01755, .02836,
2146 + .37882, .15190, .16995, .02139, .00823,
2147 + .00523, .01721, .02772 /
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 + .71298, .32732, .61260, .03749, .00000,
2150 + .00000, .02594, .06278,
2151 + .70167, .31975, .61906, .03713, .00000,
2152 + .00000, .02603, .06109,
2153 + .68483, .30890, .61654, .03651, .00066,
2154 + .00000, .02603, .05866,
2155 + .67258, .30127, .60784, .03604, .00194,
2156 + .00000, .02594, .05691,
2157 + .65971, .29339, .59466, .03546, .00288,
2158 + .00000, .02577, .05514,
2159 + .64865, .28676, .58057, .03493, .00358,
2160 + .00000, .02557, .05363,
2161 + .63814, .28054, .56571, .03439, .00420,
2162 + .00000, .02535, .05222,
2163 + .62712, .27410, .54886, .03379, .00478,
2164 + .00000, .02508, .05077 /
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 + .61756, .26864, .53319, .03326, .00521,
2167 + .00000, .02482, .04952,
2168 + .60841, .26347, .51758, .03276, .00558,
2169 + .00000, .02454, .04833,
2170 + .60126, .25946, .50521, .03236, .00585,
2171 + .00000, .02431, .04740,
2172 + .58611, .25111, .47741, .03146, .00632,
2173 + .00013, .02378, .04551,
2174 + .57324, .24412, .45233, .03067, .00665,
2175 + .00075, .02330, .04391,
2176 + .55908, .23653, .42492, .02977, .00693,
2177 + .00144, .02274, .04219,
2178 + .54464, .22890, .39753, .02884, .00714,
2179 + .00196, .02212, .04047,
2180 + .53177, .22222, .37377, .02801, .00729,
2181 + .00236, .02157, .03893 /
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 + .51901, .21571, .35093, .02719, .00738,
2184 + .00270, .02100, .03743,
2185 + .50863, .21044, .33286, .02650, .00742,
2186 + .00293, .02051, .03626,
2187 + .49626, .20421, .31199, .02567, .00744,
2188 + .00316, .01992, .03487,
2189 + .48555, .19888, .29459, .02495, .00744,
2190 + .00333, .01941, .03368,
2191 + .47593, .19415, .27949, .02430, .00741,
2192 + .00347, .01894, .03262,
2193 + .46391, .18827, .26133, .02348, .00735,
2194 + .00360, .01835, .03133,
2195 + .45286, .18294, .24538, .02275, .00728,
2196 + .00369, .01780, .03016,
2197 + .44274, .17812, .23140, .02209, .00721,
2198 + .00376, .01730, .02909 /
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 + .43280, .17338, .21821, .02141, .00711,
2201 + .00381, .01680, .02807,
2202 + .42330, .16889, .20612, .02077, .00701,
2203 + .00384, .01632, .02712,
2204 + .41449, .16476, .19534, .02019, .00691,
2205 + .00386, .01588, .02625,
2206 + .40630, .16096, .18572, .01965, .00681,
2207 + .00387, .01547, .02544,
2208 + .39827, .15725, .17660, .01913, .00670,
2209 + .00387, .01508, .02465,
2210 + .39046, .15366, .16811, .01862, .00660,
2211 + .00385, .01469, .02390,
2212 + .38324, .15035, .16049, .01815, .00649,
2213 + .00384, .01433, .02322,
2214 + .37645, .14727, .15362, .01770, .00639,
2215 + .00382, .01399, .02258 /
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 + .36977, .14426, .14704, .01727, .00629,
2218 + .00380, .01366, .02196,
2219 + .36324, .14132, .14086, .01685, .00618,
2220 + .00377, .01333, .02136,
2221 + .35712, .13859, .13525, .01647, .00608,
2222 + .00374, .01303, .02081,
2223 + .35142, .13605, .13017, .01611, .00599,
2224 + .00371, .01276, .02029,
2225 + .34570, .13352, .12525, .01576, .00590,
2226 + .00367, .01247, .01979 /
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 + .71599, .31599, .60668, .03076, .00000,
2229 + .00000, .02088, .04959,
2230 + .70188, .30760, .60266, .03045, .00000,
2231 + .00000, .02092, .04810,
2232 + .68127, .29563, .58683, .02986, .00055,
2233 + .00000, .02085, .04599,
2234 + .66654, .28724, .56998, .02936, .00160,
2235 + .00000, .02072, .04449,
2236 + .65121, .27867, .54952, .02883, .00236,
2237 + .00000, .02052, .04293,
2238 + .63817, .27150, .53023, .02830, .00292,
2239 + .00000, .02031, .04164,
2240 + .62588, .26483, .51115, .02779, .00341,
2241 + .00000, .02007, .04043,
2242 + .61306, .25798, .49059, .02724, .00386,
2243 + .00000, .01978, .03917 /
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 + .60205, .25216, .47234, .02674, .00418,
2246 + .00000, .01953, .03810,
2247 + .59159, .24668, .45473, .02626, .00446,
2248 + .00000, .01925, .03709,
2249 + .58346, .24245, .44104, .02588, .00466,
2250 + .00000, .01903, .03630,
2251 + .56637, .23365, .41141, .02504, .00500,
2252 + .00010, .01855, .03470,
2253 + .55192, .22638, .38570, .02433, .00522,
2254 + .00058, .01809, .03334,
2255 + .53620, .21851, .35824, .02352, .00541,
2256 + .00110, .01757, .03190,
2257 + .52025, .21066, .33145, .02269, .00554,
2258 + .00149, .01701, .03045,
2259 + .50615, .20383, .30868, .02195, .00561,
2260 + .00178, .01652, .02918 /
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 + .49233, .19717, .28716, .02120, .00566,
2263 + .00203, .01602, .02796,
2264 + .48112, .19179, .27036, .02059, .00567,
2265 + .00219, .01559, .02701,
2266 + .46781, .18552, .25128, .01987, .00565,
2267 + .00235, .01508, .02586,
2268 + .45636, .18017, .23556, .01925, .00562,
2269 + .00247, .01463, .02488,
2270 + .44615, .17542, .22206, .01868, .00558,
2271 + .00256, .01424, .02403,
2272 + .43343, .16956, .20605, .01799, .00551,
2273 + .00264, .01373, .02299,
2274 + .42182, .16425, .19214, .01736, .00543,
2275 + .00270, .01326, .02207,
2276 + .41127, .15946, .18007, .01678, .00535,
2277 + .00274, .01284, .02124 /
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 + .40090, .15480, .16880, .01622, .00526,
2280 + .00276, .01243, .02040,
2281 + .39105, .15040, .15855, .01570, .00516,
2282 + .00278, .01205, .01963,
2283 + .38194, .14638, .14950, .01521, .00507,
2284 + .00278, .01168, .01894,
2285 + .37352, .14267, .14150, .01476, .00498,
2286 + .00278, .01135, .01831,
2287 + .36530, .13906, .13397, .01432, .00489,
2288 + .00277, .01102, .01770,
2289 + .35732, .13560, .12700, .01391, .00479,
2290 + .00275, .01070, .01711,
2291 + .34995, .13241, .12077, .01353, .00470,
2292 + .00273, .01042, .01657,
2293 + .34307, .12943, .11519, .01317, .00462,
2294 + .00271, .01015, .01608 /
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 + .33631, .12652, .10987, .01282, .00453,
2297 + .00269, .00988, .01561,
2298 + .32973, .12371, .10491, .01248, .00444,
2299 + .00266, .00963, .01515,
2300 + .32357, .12110, .10043, .01217, .00436,
2301 + .00264, .00939, .01472,
2302 + .31786, .11868, .09638, .01188, .00429,
2303 + .00261, .00917, .01433,
2304 + .31215, .11626, .09249, .01158, .00421,
2305 + .00258, .00895, .01395 /
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 + .70897, .30146, .59731, .02547, .00000,
2308 + .00000, .01639, .03822,
2309 + .69250, .29240, .58303, .02511, .00000,
2310 + .00000, .01644, .03700,
2311 + .66870, .27959, .55474, .02447, .00045,
2312 + .00000, .01635, .03526,
2313 + .65185, .27068, .53066, .02398, .00131,
2314 + .00000, .01621, .03404,
2315 + .63449, .26164, .50408, .02342, .00192,
2316 + .00000, .01602, .03276,
2317 + .61979, .25414, .48066, .02294, .00235,
2318 + .00000, .01581, .03166,
2319 + .60603, .24718, .45840, .02245, .00273,
2320 + .00000, .01559, .03066,
2321 + .59178, .24005, .43519, .02192, .00308,
2322 + .00000, .01534, .02963 /
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 + .57962, .23406, .41527, .02147, .00332,
2325 + .00000, .01510, .02873,
2326 + .56815, .22840, .39649, .02100, .00352,
2327 + .00000, .01485, .02791,
2328 + .55927, .22402, .38211, .02063, .00366,
2329 + .00000, .01466, .02729,
2330 + .54064, .21507, .35187, .01988, .00390,
2331 + .00008, .01420, .02596,
2332 + .52506, .20766, .32646, .01923, .00405,
2333 + .00044, .01382, .02486,
2334 + .50817, .19972, .29989, .01851, .00417,
2335 + .00084, .01337, .02368,
2336 + .49118, .19182, .27445, .01776, .00424,
2337 + .00113, .01289, .02252,
2338 + .47627, .18495, .25319, .01710, .00428,
2339 + .00134, .01246, .02151 /
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 + .46171, .17832, .23342, .01646, .00429,
2342 + .00151, .01202, .02053,
2343 + .44994, .17304, .21823, .01595, .00427,
2344 + .00163, .01167, .01974,
2345 + .43609, .16683, .20118, .01531, .00424,
2346 + .00174, .01125, .01885,
2347 + .42423, .16155, .18729, .01478, .00420,
2348 + .00182, .01089, .01808,
2349 + .41364, .15688, .17548, .01432, .00415,
2350 + .00188, .01057, .01739,
2351 + .40058, .15117, .16162, .01372, .00408,
2352 + .00193, .01015, .01659,
2353 + .38868, .14603, .14973, .01320, .00400,
2354 + .00196, .00977, .01586,
2355 + .37788, .14141, .13951, .01274, .00393,
2356 + .00199, .00943, .01519 /
2357 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
2358 + .36737, .13691, .13003, .01228, .00385,
2359 + .00199, .00909, .01457,
2360 + .35741, .13268, .12148, .01184, .00376,
2361 + .00200, .00878, .01398,
2362 + .34825, .12881, .11399, .01142, .00368,
2363 + .00199, .00850, .01345,
2364 + .33980, .12526, .10742, .01105, .00361,
2365 + .00198, .00823, .01297,
2366 + .33157, .12182, .10127, .01069, .00353,
2367 + .00197, .00797, .01251,
2368 + .32363, .11853, .09565, .01036, .00345,
2369 + .00195, .00772, .01207,
2370 + .31631, .11551, .09064, .01005, .00338,
2371 + .00194, .00749, .01167,
2372 + .30949, .11271, .08618, .00976, .00331,
2373 + .00192, .00728, .01129 /
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 + .30280, .10997, .08194, .00948, .00324,
2376 + .00189, .00708, .01092,
2377 + .29632, .10732, .07800, .00921, .00317,
2378 + .00187, .00687, .01058,
2379 + .29028, .10486, .07445, .00896, .00310,
2380 + .00185, .00668, .01027,
2381 + .28468, .10258, .07126, .00872, .00304,
2382 + .00183, .00651, .00998,
2383 + .27911, .10033, .06822, .00848, .00298,
2384 + .00180, .00635, .00969 /
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 + .69385, .28382, .57888, .02061, .00000,
2387 + .00000, .01290, .02909,
2388 + .67528, .27439, .55557, .02028, .00000,
2389 + .00000, .01289, .02808,
2390 + .64874, .26110, .51696, .01969, .00036,
2391 + .00000, .01278, .02666,
2392 + .63009, .25192, .48725, .01924, .00104,
2393 + .00000, .01265, .02564,
2394 + .61104, .24265, .45623, .01872, .00151,
2395 + .00000, .01245, .02460,
2396 + .59504, .23499, .43005, .01826, .00185,
2397 + .00000, .01226, .02373,
2398 + .58017, .22790, .40584, .01781, .00213,
2399 + .00000, .01205, .02292,
2400 + .56485, .22066, .38122, .01732, .00239,
2401 + .00000, .01181, .02210 /
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 + .55181, .21461, .36060, .01692, .00257,
2404 + .00000, .01160, .02137,
2405 + .53951, .20896, .34154, .01653, .00271,
2406 + .00000, .01138, .02069,
2407 + .53001, .20462, .32712, .01623, .00282,
2408 + .00000, .01120, .02017,
2409 + .51033, .19567, .29750, .01555, .00298,
2410 + .00006, .01079, .01913,
2411 + .49397, .18830, .27321, .01496, .00308,
2412 + .00033, .01047, .01826,
2413 + .47636, .18043, .24829, .01431, .00315,
2414 + .00062, .01008, .01735,
2415 + .45868, .17268, .22486, .01369, .00319,
2416 + .00083, .00968, .01641,
2417 + .44324, .16600, .20558, .01315, .00320,
2418 + .00099, .00931, .01560 /
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 + .42828, .15952, .18789, .01260, .00319,
2421 + .00111, .00895, .01485,
2422 + .41628, .15435, .17444, .01215, .00317,
2423 + .00119, .00866, .01424,
2424 + .40217, .14836, .15952, .01163, .00313,
2425 + .00127, .00832, .01355,
2426 + .39012, .14330, .14753, .01119, .00308,
2427 + .00132, .00802, .01296,
2428 + .37943, .13882, .13743, .01081, .00304,
2429 + .00136, .00774, .01245,
2430 + .36629, .13336, .12571, .01034, .00297,
2431 + .00139, .00742, .01181,
2432 + .35441, .12845, .11573, .00989, .00291,
2433 + .00141, .00712, .01125,
2434 + .34370, .12404, .10721, .00948, .00284,
2435 + .00142, .00685, .01076 /
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 + .33321, .11979, .09941, .00912, .00277,
2438 + .00142, .00658, .01029,
2439 + .32334, .11581, .09243, .00876, .00270,
2440 + .00142, .00633, .00985,
2441 + .31433, .11217, .08636, .00843, .00264,
2442 + .00141, .00611, .00946,
2443 + .30604, .10884, .08106, .00813, .00258,
2444 + .00140, .00590, .00910,
2445 + .29799, .10562, .07613, .00783, .00251,
2446 + .00139, .00569, .00875,
2447 + .29021, .10256, .07164, .00757, .00245,
2448 + .00137, .00550, .00842,
2449 + .28307, .09975, .06766, .00734, .00239,
2450 + .00136, .00533, .00812,
2451 + .27643, .09714, .06414, .00712, .00234,
2452 + .00134, .00517, .00784 /
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 + .26993, .09461, .06081, .00691, .00228,
2455 + .00132, .00501, .00756,
2456 + .26367, .09216, .05773, .00670, .00223,
2457 + .00130, .00486, .00731,
2458 + .25785, .08990, .05497, .00650, .00218,
2459 + .00128, .00472, .00707,
2460 + .25246, .08782, .05250, .00632, .00213,
2461 + .00127, .00459, .00686,
2462 + .24708, .08575, .05014, .00614, .00208,
2463 + .00125, .00446, .00666 /
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 + .67114, .26443, .54986, .01667, .00000,
2466 + .00000, .00995, .02162,
2467 + .65099, .25474, .51946, .01631, .00000,
2468 + .00000, .00993, .02086,
2469 + .62225, .24130, .47329, .01577, .00028,
2470 + .00000, .00981, .01972,
2471 + .60227, .23204, .43984, .01532, .00081,
2472 + .00000, .00969, .01893,
2473 + .58197, .22271, .40623, .01485, .00117,
2474 + .00000, .00950, .01811,
2475 + .56505, .21504, .37872, .01442, .00143,
2476 + .00000, .00932, .01743,
2477 + .54935, .20800, .35385, .01402, .00164,
2478 + .00000, .00914, .01679,
2479 + .53323, .20085, .32905, .01360, .00183,
2480 + .00000, .00893, .01613 /
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 + .51961, .19486, .30866, .01323, .00196,
2483 + .00000, .00873, .01558,
2484 + .50682, .18929, .29007, .01288, .00206,
2485 + .00000, .00855, .01505,
2486 + .49696, .18503, .27616, .01261, .00213,
2487 + .00000, .00841, .01464,
2488 + .47666, .17626, .24815, .01203, .00224,
2489 + .00005, .00808, .01381,
2490 + .45987, .16909, .22570, .01153, .00230,
2491 + .00024, .00778, .01317,
2492 + .44184, .16147, .20300, .01100, .00234,
2493 + .00046, .00747, .01245,
2494 + .42391, .15397, .18198, .01047, .00236,
2495 + .00061, .00714, .01175,
2496 + .40833, .14752, .16495, .01001, .00236,
2497 + .00072, .00684, .01113 /
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 + .39327, .14134, .14954, .00956, .00234,
2500 + .00081, .00655, .01054,
2501 + .38123, .13643, .13792, .00919, .00231,
2502 + .00086, .00632, .01009,
2503 + .36718, .13072, .12521, .00873, .00227,
2504 + .00091, .00604, .00958,
2505 + .35523, .12591, .11508, .00837, .00223,
2506 + .00094, .00581, .00914,
2507 + .34465, .12168, .10660, .00807, .00219,
2508 + .00097, .00560, .00874,
2509 + .33168, .11655, .09687, .00768, .00214,
2510 + .00099, .00534, .00825,
2511 + .32000, .11196, .08867, .00734, .00208,
2512 + .00100, .00511, .00784,
2513 + .30949, .10786, .08172, .00703, .00203,
2514 + .00100, .00490, .00748 /
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 + .29930, .10389, .07540, .00673, .00197,
2517 + .00100, .00469, .00714,
2518 + .28972, .10018, .06978, .00644, .00192,
2519 + .00100, .00450, .00681,
2520 + .28098, .09680, .06493, .00618, .00187,
2521 + .00099, .00433, .00651,
2522 + .27297, .09373, .06073, .00595, .00182,
2523 + .00098, .00417, .00626,
2524 + .26520, .09077, .05683, .00573, .00177,
2525 + .00097, .00401, .00602,
2526 + .25773, .08795, .05330, .00553, .00172,
2527 + .00095, .00387, .00577,
2528 + .25089, .08538, .05019, .00535, .00168,
2529 + .00094, .00374, .00554,
2530 + .24457, .08300, .04744, .00517, .00163,
2531 + .00093, .00362, .00535 /
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 + .23841, .08068, .04486, .00499, .00159,
2534 + .00091, .00350, .00516,
2535 + .23245, .07845, .04249, .00483, .00155,
2536 + .00090, .00339, .00497,
2537 + .22691, .07640, .04038, .00468, .00151,
2538 + .00088, .00328, .00480,
2539 + .22180, .07452, .03849, .00455, .00148,
2540 + .00087, .00319, .00464,
2541 + .21674, .07265, .03669, .00441, .00144,
2542 + .00086, .00309, .00449 /
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 + .64221, .24370, .51047, .01327, .00000,
2545 + .00000, .00760, .01581,
2546 + .62080, .23402, .47525, .01293, .00000,
2547 + .00000, .00756, .01523,
2548 + .59058, .22060, .42456, .01239, .00022,
2549 + .00000, .00745, .01436,
2550 + .56965, .21145, .38940, .01200, .00062,
2551 + .00000, .00731, .01375,
2552 + .54850, .20227, .35505, .01157, .00089,
2553 + .00000, .00716, .01312,
2554 + .53094, .19477, .32755, .01123, .00108,
2555 + .00000, .00701, .01257,
2556 + .51472, .18789, .30312, .01088, .00123,
2557 + .00000, .00684, .01208,
2558 + .49816, .18092, .27917, .01050, .00137,
2559 + .00000, .00666, .01159 /
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 + .48427, .17510, .25978, .01018, .00146,
2562 + .00000, .00651, .01115,
2563 + .47127, .16969, .24237, .00987, .00153,
2564 + .00000, .00635, .01076,
2565 + .46128, .16556, .22946, .00964, .00158,
2566 + .00000, .00621, .01048,
2567 + .44070, .15716, .20380, .00916, .00165,
2568 + .00004, .00595, .00983,
2569 + .42383, .15029, .18367, .00873, .00169,
2570 + .00018, .00572, .00933,
2571 + .40574, .14303, .16361, .00829, .00171,
2572 + .00033, .00544, .00881,
2573 + .38784, .13591, .14527, .00787, .00171,
2574 + .00044, .00518, .00827,
2575 + .37242, .12981, .13060, .00748, .00170,
2576 + .00051, .00496, .00781 /
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 + .35758, .12399, .11748, .00709, .00168,
2579 + .00057, .00474, .00738,
2580 + .34570, .11937, .10771, .00683, .00166,
2581 + .00061, .00455, .00704,
2582 + .33191, .11405, .09710, .00649, .00162,
2583 + .00064, .00434, .00664,
2584 + .32026, .10957, .08872, .00619, .00159,
2585 + .00067, .00415, .00632,
2586 + .30999, .10564, .08175, .00592, .00156,
2587 + .00068, .00399, .00604,
2588 + .29744, .10088, .07384, .00561, .00151,
2589 + .00069, .00379, .00570,
2590 + .28615, .09663, .06722, .00534, .00147,
2591 + .00070, .00361, .00539,
2592 + .27602, .09286, .06165, .00511, .00142,
2593 + .00070, .00346, .00512 /
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 + .26628, .08922, .05664, .00486, .00138,
2596 + .00070, .00330, .00488,
2597 + .25713, .08583, .05221, .00464, .00134,
2598 + .00069, .00315, .00465,
2599 + .24877, .08276, .04840, .00446, .00130,
2600 + .00068, .00302, .00443,
2601 + .24116, .07997, .04512, .00429, .00126,
2602 + .00067, .00291, .00424,
2603 + .23381, .07727, .04209, .00412, .00123,
2604 + .00067, .00281, .00406,
2605 + .22676, .07471, .03937, .00396, .00119,
2606 + .00066, .00269, .00390,
2607 + .22031, .07237, .03697, .00382, .00116,
2608 + .00065, .00258, .00375,
2609 + .21435, .07025, .03487, .00369, .00113,
2610 + .00063, .00249, .00360 /
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 + .20853, .06818, .03289, .00357, .00110,
2613 + .00062, .00240, .00345,
2614 + .20296, .06619, .03108, .00345, .00107,
2615 + .00061, .00232, .00331,
2616 + .19781, .06435, .02947, .00333, .00104,
2617 + .00060, .00225, .00319,
2618 + .19306, .06265, .02804, .00322, .00101,
2619 + .00059, .00218, .00308,
2620 + .18835, .06097, .02669, .00311, .00099,
2621 + .00058, .00211, .00299 /
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 + .60818, .22220, .46268, .01033, .00000,
2624 + .00000, .00575, .01139,
2625 + .58592, .21272, .42497, .01002, .00000,
2626 + .00000, .00569, .01094,
2627 + .55473, .19961, .37273, .00956, .00016,
2628 + .00000, .00557, .01028,
2629 + .53322, .19073, .33767, .00923, .00046,
2630 + .00000, .00548, .00978,
2631 + .51168, .18182, .30416, .00884, .00066,
2632 + .00000, .00531, .00933,
2633 + .49384, .17457, .27784, .00855, .00079,
2634 + .00000, .00519, .00892,
2635 + .47745, .16796, .25481, .00825, .00090,
2636 + .00000, .00506, .00855,
2637 + .46078, .16129, .23254, .00794, .00100,
2638 + .00000, .00491, .00818 /
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 + .44682, .15572, .21479, .00768, .00106,
2641 + .00000, .00478, .00787,
2642 + .43380, .15058, .19900, .00742, .00111,
2643 + .00000, .00464, .00759,
2644 + .42384, .14666, .18738, .00721, .00114,
2645 + .00000, .00453, .00737,
2646 + .40344, .13868, .16464, .00682, .00119,
2647 + .00003, .00431, .00689,
2648 + .38671, .13223, .14709, .00650, .00121,
2649 + .00013, .00413, .00650,
2650 + .36893, .12541, .12980, .00613, .00122,
2651 + .00023, .00393, .00611,
2652 + .35142, .11876, .11421, .00578, .00122,
2653 + .00031, .00373, .00573,
2654 + .33636, .11308, .10189, .00548, .00120,
2655 + .00036, .00355, .00539 /
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 + .32192, .10767, .09099, .00519, .00119,
2658 + .00040, .00338, .00508,
2659 + .31048, .10339, .08295, .00495, .00117,
2660 + .00043, .00323, .00484,
2661 + .29718, .09849, .07429, .00468, .00114,
2662 + .00045, .00307, .00455,
2663 + .28594, .09439, .06750, .00447, .00111,
2664 + .00047, .00293, .00431,
2665 + .27607, .09079, .06191, .00429, .00108,
2666 + .00048, .00281, .00411,
2667 + .26409, .08645, .05561, .00405, .00105,
2668 + .00048, .00265, .00387,
2669 + .25339, .08258, .05038, .00383, .00102,
2670 + .00048, .00252, .00366,
2671 + .24383, .07914, .04599, .00364, .00098,
2672 + .00048, .00242, .00347 /
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 + .23459, .07586, .04210, .00348, .00095,
2675 + .00048, .00230, .00329,
2676 + .22596, .07280, .03866, .00332, .00092,
2677 + .00047, .00219, .00312,
2678 + .21815, .07004, .03571, .00316, .00089,
2679 + .00047, .00209, .00296,
2680 + .21103, .06753, .03320, .00302, .00087,
2681 + .00046, .00200, .00284,
2682 + .20416, .06513, .03088, .00289, .00084,
2683 + .00045, .00191, .00272,
2684 + .19761, .06284, .02880, .00276, .00081,
2685 + .00045, .00184, .00260,
2686 + .19164, .06076, .02698, .00265, .00079,
2687 + .00044, .00177, .00249,
2688 + .18612, .05885, .02539, .00255, .00077,
2689 + .00043, .00171, .00239 /
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 + .18076, .05701, .02391, .00246, .00075,
2692 + .00042, .00165, .00229,
2693 + .17560, .05525, .02255, .00238, .00072,
2694 + .00042, .00159, .00220,
2695 + .17083, .05364, .02135, .00231, .00070,
2696 + .00041, .00153, .00211,
2697 + .16644, .05216, .02028, .00224, .00069,
2698 + .00040, .00148, .00203,
2699 + .16213, .05068, .01927, .00217, .00067,
2700 + .00040, .00143, .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 + .56988, .20075, .40938, .00807, .00000,
2703 + .00000, .00421, .00796,
2704 + .54722, .19156, .37134, .00778, .00000,
2705 + .00000, .00416, .00764,
2706 + .51565, .17895, .32022, .00736, .00012,
2707 + .00000, .00406, .00714,
2708 + .49402, .17040, .28674, .00706, .00033,
2709 + .00000, .00395, .00681,
2710 + .47245, .16192, .25534, .00672, .00048,
2711 + .00000, .00384, .00650,
2712 + .45467, .15504, .23111, .00647, .00057,
2713 + .00000, .00373, .00619,
2714 + .43840, .14876, .21015, .00622, .00065,
2715 + .00000, .00363, .00591,
2716 + .42193, .14243, .19012, .00595, .00071,
2717 + .00000, .00353, .00564 /
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 + .40813, .13722, .17437, .00574, .00076,
2720 + .00000, .00342, .00540,
2721 + .39533, .13239, .16050, .00555, .00079,
2722 + .00000, .00331, .00519,
2723 + .38555, .12872, .15038, .00540, .00081,
2724 + .00000, .00323, .00502,
2725 + .36558, .12129, .13078, .00508, .00084,
2726 + .00002, .00306, .00469,
2727 + .34934, .11526, .11586, .00480, .00085,
2728 + .00009, .00292, .00442,
2729 + .33216, .10894, .10136, .00450, .00085,
2730 + .00016, .00277, .00415,
2731 + .31528, .10281, .08844, .00422, .00085,
2732 + .00021, .00262, .00387,
2733 + .30080, .09760, .07834, .00398, .00084,
2734 + .00025, .00248, .00364 /
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 + .28699, .09264, .06947, .00375, .00082,
2737 + .00028, .00234, .00343,
2738 + .27605, .08876, .06301, .00360, .00081,
2739 + .00030, .00224, .00324,
2740 + .26342, .08431, .05610, .00339, .00078,
2741 + .00031, .00211, .00305,
2742 + .25283, .08058, .05072, .00321, .00076,
2743 + .00032, .00200, .00288,
2744 + .24357, .07733, .04632, .00306, .00074,
2745 + .00033, .00192, .00273,
2746 + .23229, .07341, .04140, .00289, .00072,
2747 + .00034, .00181, .00256,
2748 + .22223, .06994, .03733, .00274, .00069,
2749 + .00034, .00171, .00242,
2750 + .21326, .06687, .03395, .00261, .00067,
2751 + .00034, .00163, .00230 /
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 + .20474, .06393, .03096, .00245, .00065,
2754 + .00034, .00155, .00217,
2755 + .19675, .06121, .02834, .00232, .00062,
2756 + .00033, .00148, .00205,
2757 + .18947, .05876, .02611, .00223, .00060,
2758 + .00033, .00141, .00194,
2759 + .18290, .05655, .02421, .00214, .00058,
2760 + .00033, .00135, .00185,
2761 + .17658, .05443, .02246, .00205, .00057,
2762 + .00033, .00129, .00176,
2763 + .17056, .05241, .02091, .00196, .00055,
2764 + .00032, .00123, .00167,
2765 + .16507, .05058, .01954, .00187, .00053,
2766 + .00032, .00118, .00160,
2767 + .16003, .04892, .01836, .00180, .00052,
2768 + .00031, .00114, .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 + .15514, .04731, .01726, .00173, .00050,
2771 + .00031, .00109, .00147,
2772 + .15045, .04576, .01626, .00166, .00049,
2773 + .00031, .00105, .00141,
2774 + .14613, .04434, .01536, .00161, .00048,
2775 + .00030, .00102, .00135,
2776 + .14217, .04304, .01457, .00155, .00046,
2777 + .00030, .00098, .00130,
2778 + .13827, .04176, .01383, .00149, .00045,
2779 + .00029, .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 + .52867, .17936, .35345, .00611, .00000,
2782 + .00000, .00305, .00551,
2783 + .50600, .17065, .31690, .00587, .00000,
2784 + .00000, .00300, .00526,
2785 + .47457, .15870, .26893, .00552, .00008,
2786 + .00000, .00290, .00491,
2787 + .45319, .15064, .23822, .00527, .00023,
2788 + .00000, .00282, .00465,
2789 + .43184, .14272, .20986, .00503, .00033,
2790 + .00000, .00272, .00438,
2791 + .41442, .13625, .18833, .00481, .00040,
2792 + .00000, .00263, .00420,
2793 + .39850, .13040, .16990, .00462, .00045,
2794 + .00000, .00254, .00400,
2795 + .38242, .12454, .15246, .00442, .00050,
2796 + .00000, .00246, .00378 /
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 + .36907, .11968, .13890, .00424, .00053,
2799 + .00000, .00237, .00361,
2800 + .35668, .11523, .12706, .00408, .00055,
2801 + .00000, .00229, .00346,
2802 + .34722, .11185, .11847, .00396, .00057,
2803 + .00000, .00223, .00335,
2804 + .32805, .10501, .10210, .00369, .00058,
2805 + .00001, .00210, .00315,
2806 + .31246, .09948, .08976, .00350, .00059,
2807 + .00006, .00200, .00295,
2808 + .29605, .09372, .07787, .00328, .00059,
2809 + .00011, .00188, .00274,
2810 + .28003, .08816, .06740, .00307, .00058,
2811 + .00015, .00177, .00254,
2812 + .26635, .08343, .05932, .00289, .00057,
2813 + .00017, .00167, .00237 /
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 + .25335, .07896, .05229, .00271, .00056,
2816 + .00019, .00158, .00224,
2817 + .24310, .07547, .04719, .00257, .00055,
2818 + .00020, .00150, .00212,
2819 + .23128, .07146, .04179, .00242, .00053,
2820 + .00021, .00141, .00199,
2821 + .22138, .06812, .03761, .00229, .00052,
2822 + .00021, .00134, .00187,
2823 + .21275, .06523, .03421, .00219, .00050,
2824 + .00022, .00127, .00177,
2825 + .20232, .06174, .03044, .00205, .00049,
2826 + .00022, .00120, .00165,
2827 + .19305, .05866, .02734, .00193, .00047,
2828 + .00022, .00113, .00155,
2829 + .18482, .05594, .02479, .00183, .00046,
2830 + .00022, .00107, .00147 /
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 + .17695, .05337, .02253, .00173, .00044,
2833 + .00022, .00101, .00137,
2834 + .16961, .05098, .02057, .00164, .00043,
2835 + .00022, .00096, .00130,
2836 + .16297, .04883, .01890, .00157, .00041,
2837 + .00022, .00092, .00124,
2838 + .15697, .04690, .01748, .00150, .00040,
2839 + .00022, .00087, .00118,
2840 + .15121, .04505, .01619, .00144, .00039,
2841 + .00022, .00083, .00111,
2842 + .14579, .04329, .01504, .00137, .00038,
2843 + .00022, .00079, .00106,
2844 + .14086, .04169, .01404, .00130, .00037,
2845 + .00022, .00076, .00102,
2846 + .13631, .04024, .01318, .00125, .00036,
2847 + .00022, .00073, .00097 /
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 + .13190, .03885, .01237, .00120, .00035,
2850 + .00022, .00070, .00092,
2851 + .12770, .03752, .01163, .00115, .00034,
2852 + .00022, .00067, .00088,
2853 + .12383, .03630, .01098, .00111, .00034,
2854 + .00022, .00064, .00085,
2855 + .12029, .03518, .01041, .00107, .00033,
2856 + .00022, .00062, .00082,
2857 + .11679, .03408, .00986, .00103, .00032,
2858 + .00022, .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 + .48533, .15855, .29750, .00450, .00000,
2861 + .00000, .00221, .00373,
2862 + .46299, .15037, .26384, .00431, .00000,
2863 + .00000, .00215, .00356,
2864 + .43222, .13919, .22054, .00399, .00006,
2865 + .00000, .00206, .00333,
2866 + .41135, .13169, .19335, .00379, .00016,
2867 + .00000, .00200, .00313,
2868 + .39066, .12434, .16862, .00362, .00023,
2869 + .00000, .00191, .00296,
2870 + .37385, .11838, .15002, .00343, .00027,
2871 + .00000, .00186, .00281,
2872 + .35853, .11299, .13429, .00326, .00031,
2873 + .00000, .00179, .00268,
2874 + .34309, .10759, .11957, .00311, .00034,
2875 + .00000, .00171, .00256 /
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 + .33029, .10315, .10822, .00298, .00036,
2878 + .00000, .00165, .00244,
2879 + .31847, .09909, .09840, .00286, .00038,
2880 + .00000, .00160, .00232,
2881 + .30948, .09603, .09133, .00277, .00039,
2882 + .00000, .00156, .00223,
2883 + .29124, .08983, .07799, .00258, .00040,
2884 + .00001, .00146, .00207,
2885 + .27654, .08484, .06806, .00242, .00041,
2886 + .00004, .00138, .00194,
2887 + .26111, .07964, .05861, .00226, .00041,
2888 + .00007, .00130, .00181,
2889 + .24611, .07464, .05036, .00210, .00041,
2890 + .00010, .00122, .00168,
2891 + .23335, .07041, .04404, .00196, .00040,
2892 + .00011, .00114, .00157 /
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 + .22123, .06644, .03859, .00185, .00039,
2895 + .00012, .00107, .00146,
2896 + .21174, .06335, .03467, .00175, .00038,
2897 + .00013, .00102, .00138,
2898 + .20083, .05981, .03055, .00164, .00037,
2899 + .00013, .00095, .00128,
2900 + .19174, .05687, .02738, .00154, .00036,
2901 + .00013, .00090, .00121,
2902 + .18385, .05430, .02482, .00144, .00035,
2903 + .00013, .00086, .00115,
2904 + .17428, .05125, .02200, .00137, .00034,
2905 + .00013, .00081, .00108,
2906 + .16583, .04857, .01969, .00129, .00033,
2907 + .00013, .00076, .00101,
2908 + .15837, .04621, .01779, .00120, .00032,
2909 + .00013, .00072, .00094 /
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 + .15123, .04396, .01613, .00114, .00032,
2912 + .00013, .00067, .00089,
2913 + .14462, .04188, .01469, .00107, .00031,
2914 + .00013, .00064, .00085,
2915 + .13868, .04003, .01347, .00101, .00030,
2916 + .00013, .00061, .00080,
2917 + .13329, .03836, .01244, .00096, .00029,
2918 + .00013, .00058, .00076,
2919 + .12813, .03676, .01150, .00092, .00029,
2920 + .00013, .00054, .00072,
2921 + .12325, .03526, .01067, .00088, .00028,
2922 + .00013, .00053, .00068,
2923 + .11882, .03390, .00994, .00085, .00027,
2924 + .00013, .00051, .00064,
2925 + .11477, .03266, .00932, .00081, .00027,
2926 + .00013, .00049, .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 + .11086, .03147, .00873, .00078, .00026,
2929 + .00013, .00046, .00060,
2930 + .10714, .03033, .00821, .00074, .00026,
2931 + .00013, .00044, .00058,
2932 + .10373, .02929, .00774, .00071, .00025,
2933 + .00013, .00043, .00056,
2934 + .10060, .02835, .00733, .00068, .00025,
2935 + .00013, .00041, .00054,
2936 + .09751, .02742, .00694, .00066, .00025,
2937 + .00013, .00039, .00051 /
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 + .44093, .13866, .24421, .00324, .00000,
2940 + .00000, .00154, .00249,
2941 + .41925, .13105, .21429, .00308, .00000,
2942 + .00000, .00149, .00237,
2943 + .38953, .12073, .17655, .00285, .00004,
2944 + .00000, .00144, .00219,
2945 + .36950, .11386, .15325, .00266, .00011,
2946 + .00000, .00139, .00207,
2947 + .34970, .10712, .13231, .00253, .00015,
2948 + .00000, .00133, .00197,
2949 + .33363, .10170, .11679, .00240, .00018,
2950 + .00000, .00129, .00185,
2951 + .31907, .09681, .10379, .00227, .00020,
2952 + .00000, .00125, .00175,
2953 + .30445, .09194, .09174, .00214, .00022,
2954 + .00000, .00120, .00167 /
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 + .29240, .08794, .08254, .00204, .00024,
2957 + .00000, .00114, .00160,
2958 + .28129, .08427, .07463, .00194, .00025,
2959 + .00000, .00110, .00153,
2960 + .27286, .08149, .06897, .00186, .00025,
2961 + .00000, .00107, .00147,
2962 + .25582, .07594, .05837, .00172, .00026,
2963 + .00001, .00100, .00136,
2964 + .24214, .07150, .05061, .00161, .00026,
2965 + .00003, .00094, .00128,
2966 + .22780, .06689, .04327, .00149, .00027,
2967 + .00005, .00088, .00119,
2968 + .21392, .06246, .03693, .00137, .00027,
2969 + .00006, .00082, .00110,
2970 + .20218, .05874, .03212, .00128, .00027,
2971 + .00007, .00077, .00103 /
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 + .19109, .05525, .02799, .00119, .00027,
2974 + .00007, .00072, .00096,
2975 + .18245, .05254, .02505, .00111, .00027,
2976 + .00007, .00068, .00090,
2977 + .17248, .04945, .02197, .00105, .00027,
2978 + .00008, .00065, .00083,
2979 + .16421, .04690, .01962, .00100, .00026,
2980 + .00007, .00061, .00078,
2981 + .15707, .04469, .01774, .00093, .00026,
2982 + .00007, .00058, .00074,
2983 + .14848, .04205, .01566, .00086, .00026,
2984 + .00008, .00054, .00069,
2985 + .14089, .03973, .01398, .00080, .00026,
2986 + .00008, .00051, .00064,
2987 + .13419, .03769, .01261, .00075, .00025,
2988 + .00008, .00049, .00061 /
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 + .12781, .03577, .01140, .00071, .00024,
2991 + .00008, .00046, .00057,
2992 + .12191, .03400, .01036, .00067, .00024,
2993 + .00008, .00043, .00054,
2994 + .11662, .03242, .00948, .00063, .00023,
2995 + .00008, .00041, .00050,
2996 + .11185, .03100, .00874, .00060, .00023,
2997 + .00008, .00039, .00047,
2998 + .10729, .02965, .00807, .00058, .00023,
2999 + .00008, .00037, .00044,
3000 + .10299, .02839, .00748, .00055, .00022,
3001 + .00008, .00035, .00042,
3002 + .09910, .02724, .00696, .00053, .00022,
3003 + .00008, .00033, .00041,
3004 + .09555, .02620, .00652, .00050, .00021,
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 + .09214, .02519, .00610, .00047, .00021,
3008 + .00008, .00030, .00038,
3009 + .08888, .02424, .00573, .00045, .00021,
3010 + .00008, .00029, .00036,
3011 + .08590, .02337, .00540, .00043, .00021,
3012 + .00008, .00028, .00034,
3013 + .08317, .02258, .00511, .00042, .00021,
3014 + .00008, .00027, .00032,
3015 + .08049, .02180, .00484, .00040, .00020,
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 + .39621, .12002, .19565, .00244, .00000,
3019 + .00000, .00099, .00157,
3020 + .37553, .11311, .17002, .00226, .00000,
3021 + .00000, .00096, .00149,
3022 + .34729, .10375, .13823, .00209, .00002,
3023 + .00000, .00091, .00139,
3024 + .32836, .09752, .11891, .00195, .00007,
3025 + .00000, .00089, .00128,
3026 + .30969, .09146, .10172, .00184, .00010,
3027 + .00000, .00085, .00118,
3028 + .29462, .08658, .08915, .00173, .00011,
3029 + .00000, .00082, .00114,
3030 + .28101, .08220, .07871, .00164, .00013,
3031 + .00000, .00078, .00109,
3032 + .26740, .07784, .06911, .00155, .00014,
3033 + .00000, .00074, .00103 /
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 + .25618, .07429, .06183, .00146, .00015,
3036 + .00000, .00071, .00098,
3037 + .24589, .07104, .05564, .00139, .00015,
3038 + .00000, .00068, .00094,
3039 + .23809, .06858, .05124, .00133, .00016,
3040 + .00000, .00066, .00091,
3041 + .22240, .06368, .04303, .00124, .00016,
3042 + .00000, .00061, .00082,
3043 + .20980, .05977, .03707, .00118, .00016,
3044 + .00002, .00057, .00077,
3045 + .19670, .05574, .03149, .00109, .00016,
3046 + .00003, .00054, .00072,
3047 + .18407, .05188, .02673, .00100, .00016,
3048 + .00003, .00050, .00066,
3049 + .17344, .04865, .02313, .00093, .00016,
3050 + .00004, .00045, .00061 /
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 + .16345, .04561, .02007, .00085, .00016,
3053 + .00004, .00042, .00057,
3054 + .15561, .04326, .01791, .00081, .00016,
3055 + .00004, .00040, .00054,
3056 + .14669, .04060, .01566, .00076, .00016,
3057 + .00004, .00038, .00049,
3058 + .13931, .03841, .01394, .00072, .00016,
3059 + .00004, .00036, .00045,
3060 + .13293, .03652, .01258, .00067, .00016,
3061 + .00004, .00034, .00043,
3062 + .12527, .03426, .01108, .00061, .00016,
3063 + .00004, .00031, .00041,
3064 + .11855, .03229, .00986, .00057, .00016,
3065 + .00004, .00029, .00037,
3066 + .11264, .03056, .00887, .00053, .00016,
3067 + .00004, .00028, .00034 /
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 + .10700, .02893, .00801, .00051, .00016,
3070 + .00004, .00026, .00032,
3071 + .10182, .02744, .00727, .00048, .00016,
3072 + .00004, .00025, .00030,
3073 + .09718, .02610, .00665, .00046, .00016,
3074 + .00004, .00023, .00028,
3075 + .09302, .02491, .00612, .00043, .00016,
3076 + .00004, .00021, .00027,
3077 + .08905, .02378, .00565, .00040, .00016,
3078 + .00004, .00020, .00025,
3079 + .08530, .02271, .00523, .00039, .00016,
3080 + .00004, .00019, .00024,
3081 + .08191, .02175, .00486, .00038, .00016,
3082 + .00004, .00018, .00023,
3083 + .07885, .02088, .00455, .00035, .00016,
3084 + .00004, .00017, .00022 /
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 + .07590, .02004, .00426, .00033, .00016,
3087 + .00004, .00016, .00021,
3088 + .07309, .01925, .00400, .00031, .00016,
3089 + .00004, .00015, .00020,
3090 + .07051, .01854, .00377, .00030, .00016,
3091 + .00004, .00015, .00019,
3092 + .06816, .01788, .00356, .00029, .00016,
3093 + .00004, .00014, .00018,
3094 + .06587, .01724, .00337, .00028, .00016,
3095 + .00004, .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 + .35192, .10235, .15221, .00156, .00000,
3098 + .00000, .00072, .00105,
3099 + .33237, .09614, .13104, .00150, .00000,
3100 + .00000, .00068, .00097,
3101 + .30591, .08779, .10517, .00134, .00001,
3102 + .00000, .00065, .00089,
3103 + .28820, .08224, .08969, .00127, .00004,
3104 + .00000, .00062, .00084,
3105 + .27091, .07687, .07607, .00119, .00006,
3106 + .00000, .00057, .00079,
3107 + .25696, .07256, .06620, .00112, .00007,
3108 + .00000, .00053, .00073,
3109 + .24438, .06872, .05807, .00106, .00008,
3110 + .00000, .00051, .00068,
3111 + .23186, .06491, .05066, .00100, .00008,
3112 + .00000, .00050, .00063 /
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 + .22161, .06178, .04510, .00094, .00009,
3115 + .00000, .00047, .00061,
3116 + .21220, .05893, .04038, .00089, .00009,
3117 + .00000, .00045, .00059,
3118 + .20507, .05679, .03704, .00086, .00009,
3119 + .00000, .00042, .00056,
3120 + .19081, .05254, .03088, .00081, .00009,
3121 + .00000, .00040, .00052,
3122 + .17942, .04917, .02646, .00075, .00009,
3123 + .00001, .00038, .00048,
3124 + .16765, .04570, .02235, .00068, .00009,
3125 + .00001, .00035, .00043,
3126 + .15631, .04237, .01886, .00063, .00009,
3127 + .00001, .00032, .00039,
3128 + .14679, .03960, .01625, .00059, .00009,
3129 + .00001, .00030, .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 + .13787, .03702, .01405, .00054, .00009,
3132 + .00001, .00027, .00034,
3133 + .13095, .03502, .01250, .00050, .00009,
3134 + .00001, .00025, .00033,
3135 + .12307, .03276, .01089, .00046, .00009,
3136 + .00001, .00024, .00031,
3137 + .11655, .03090, .00968, .00043, .00009,
3138 + .00001, .00023, .00029,
3139 + .11091, .02932, .00871, .00041, .00009,
3140 + .00001, .00021, .00027,
3141 + .10421, .02742, .00765, .00038, .00009,
3142 + .00001, .00020, .00025,
3143 + .09833, .02577, .00680, .00035, .00009,
3144 + .00001, .00018, .00023,
3145 + .09316, .02433, .00611, .00033, .00009,
3146 + .00001, .00016, .00022 /
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 + .08829, .02297, .00552, .00031, .00009,
3149 + .00001, .00016, .00020,
3150 + .08380, .02173, .00500, .00030, .00009,
3151 + .00001, .00015, .00018,
3152 + .07978, .02063, .00457, .00029, .00009,
3153 + .00001, .00014, .00016,
3154 + .07619, .01964, .00420, .00027, .00009,
3155 + .00001, .00013, .00015,
3156 + .07279, .01871, .00387, .00025, .00009,
3157 + .00001, .00013, .00015,
3158 + .06957, .01784, .00358, .00024, .00009,
3159 + .00001, .00012, .00014,
3160 + .06667, .01705, .00333, .00024, .00009,
3161 + .00001, .00011, .00014,
3162 + .06405, .01634, .00312, .00022, .00009,
3163 + .00001, .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 + .06153, .01565, .00291, .00021, .00009,
3166 + .00001, .00010, .00012,
3167 + .05914, .01501, .00273, .00020, .00009,
3168 + .00001, .00009, .00012,
3169 + .05696, .01442, .00257, .00019, .00009,
3170 + .00001, .00009, .00011,
3171 + .05497, .01389, .00243, .00018, .00009,
3172 + .00001, .00008, .00011,
3173 + .05304, .01337, .00230, .00017, .00009,
3174 + .00001, .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 + .30873, .08622, .11518, .00101, .00000,
3177 + .00000, .00049, .00067,
3178 + .29062, .08072, .09828, .00094, .00000,
3179 + .00000, .00047, .00062,
3180 + .26617, .07335, .07788, .00086, .00001,
3181 + .00000, .00043, .00056,
3182 + .24990, .06850, .06585, .00079, .00002,
3183 + .00000, .00039, .00054,
3184 + .23409, .06377, .05540, .00072, .00003,
3185 + .00000, .00038, .00050,
3186 + .22136, .06003, .04789, .00068, .00004,
3187 + .00000, .00035, .00046,
3188 + .20993, .05668, .04175, .00064, .00004,
3189 + .00000, .00033, .00044,
3190 + .19858, .05337, .03619, .00060, .00004,
3191 + .00000, .00032, .00042 /
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 + .18928, .05069, .03206, .00058, .00004,
3194 + .00000, .00030, .00039,
3195 + .18080, .04826, .02858, .00055, .00004,
3196 + .00000, .00029, .00036,
3197 + .17442, .04643, .02612, .00053, .00004,
3198 + .00000, .00028, .00034,
3199 + .16167, .04276, .02164, .00048, .00004,
3200 + .00000, .00026, .00033,
3201 + .15154, .03988, .01845, .00043, .00004,
3202 + .00000, .00024, .00030,
3203 + .14104, .03693, .01551, .00040, .00004,
3204 + .00000, .00022, .00027,
3205 + .13100, .03412, .01302, .00037, .00004,
3206 + .00000, .00020, .00024,
3207 + .12262, .03178, .01118, .00034, .00004,
3208 + .00000, .00019, .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 + .11479, .02961, .00963, .00031, .00004,
3211 + .00000, .00018, .00022,
3212 + .10872, .02794, .00855, .00029, .00004,
3213 + .00000, .00017, .00020,
3214 + .10185, .02605, .00743, .00027, .00004,
3215 + .00000, .00015, .00018,
3216 + .09619, .02451, .00659, .00025, .00004,
3217 + .00000, .00014, .00017,
3218 + .09132, .02319, .00592, .00023, .00004,
3219 + .00000, .00013, .00016,
3220 + .08552, .02162, .00520, .00022, .00004,
3221 + .00000, .00012, .00014,
3222 + .08045, .02026, .00461, .00021, .00004,
3223 + .00000, .00011, .00013,
3224 + .07601, .01908, .00414, .00019, .00004,
3225 + .00000, .00010, .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 + .07184, .01796, .00373, .00018, .00004,
3228 + .00000, .00010, .00012,
3229 + .06801, .01695, .00338, .00017, .00004,
3230 + .00000, .00009, .00011,
3231 + .06460, .01605, .00309, .00016, .00004,
3232 + .00000, .00008, .00010,
3233 + .06156, .01525, .00284, .00015, .00004,
3234 + .00000, .00008, .00010,
3235 + .05867, .01449, .00261, .00014, .00004,
3236 + .00000, .00008, .00010,
3237 + .05597, .01378, .00242, .00013, .00004,
3238 + .00000, .00007, .00009,
3239 + .05354, .01315, .00225, .00012, .00004,
3240 + .00000, .00007, .00009,
3241 + .05132, .01258, .00210, .00012, .00004,
3242 + .00000, .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 + .04919, .01203, .00196, .00012, .00004,
3245 + .00000, .00006, .00008,
3246 + .04719, .01151, .00184, .00011, .00004,
3247 + .00000, .00006, .00007,
3248 + .04538, .01104, .00173, .00011, .00004,
3249 + .00000, .00006, .00007,
3250 + .04372, .01062, .00164, .00010, .00004,
3251 + .00000, .00005, .00006,
3252 + .04210, .01020, .00155, .00010, .00004,
3253 + .00000, .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 + .26750, .07176, .08479, .00070, .00000,
3256 + .00000, .00028, .00039,
3257 + .25091, .06697, .07173, .00067, .00000,
3258 + .00000, .00027, .00036,
3259 + .22869, .06054, .05618, .00059, .00000,
3260 + .00000, .00024, .00032,
3261 + .21393, .05635, .04714, .00058, .00001,
3262 + .00000, .00023, .00029,
3263 + .19969, .05229, .03934, .00050, .00001,
3264 + .00000, .00021, .00027,
3265 + .18829, .04906, .03381, .00046, .00001,
3266 + .00000, .00019, .00026,
3267 + .17807, .04620, .02932, .00043, .00001,
3268 + .00000, .00019, .00024,
3269 + .16793, .04338, .02528, .00041, .00001,
3270 + .00000, .00018, .00022 /
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 + .15968, .04109, .02228, .00038, .00001,
3273 + .00000, .00017, .00021,
3274 + .15216, .03901, .01978, .00036, .00001,
3275 + .00000, .00016, .00020,
3276 + .14651, .03746, .01803, .00034, .00001,
3277 + .00000, .00016, .00019,
3278 + .13524, .03437, .01486, .00032, .00001,
3279 + .00000, .00014, .00018,
3280 + .12632, .03196, .01262, .00030, .00001,
3281 + .00000, .00012, .00016,
3282 + .11713, .02948, .01056, .00028, .00001,
3283 + .00000, .00011, .00015,
3284 + .10840, .02714, .00884, .00025, .00001,
3285 + .00000, .00011, .00014,
3286 + .10113, .02520, .00757, .00023, .00001,
3287 + .00000, .00010, .00013 /
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 + .09436, .02340, .00650, .00022, .00001,
3290 + .00000, .00010, .00012,
3291 + .08914, .02203, .00576, .00020, .00001,
3292 + .00000, .00008, .00011,
3293 + .08324, .02048, .00500, .00017, .00001,
3294 + .00000, .00007, .00010,
3295 + .07839, .01921, .00443, .00017, .00001,
3296 + .00000, .00007, .00009,
3297 + .07421, .01813, .00398, .00017, .00001,
3298 + .00000, .00007, .00008,
3299 + .06929, .01685, .00349, .00015, .00001,
3300 + .00000, .00006, .00008,
3301 + .06499, .01575, .00310, .00014, .00001,
3302 + .00000, .00006, .00007,
3303 + .06122, .01479, .00278, .00014, .00001,
3304 + .00000, .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 + .05773, .01389, .00250, .00012, .00001,
3307 + .00000, .00005, .00007,
3308 + .05452, .01307, .00227, .00011, .00001,
3309 + .00000, .00005, .00006,
3310 + .05167, .01235, .00207, .00010, .00001,
3311 + .00000, .00004, .00005,
3312 + .04911, .01170, .00190, .00010, .00001,
3313 + .00000, .00004, .00005,
3314 + .04668, .01110, .00175, .00011, .00001,
3315 + .00000, .00004, .00005,
3316 + .04445, .01053, .00162, .00009, .00001,
3317 + .00000, .00004, .00004,
3318 + .04244, .01002, .00150, .00008, .00001,
3319 + .00000, .00003, .00004,
3320 + .04061, .00957, .00141, .00008, .00001,
3321 + .00000, .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 + .03885, .00913, .00131, .00008, .00001,
3324 + .00000, .00003, .00004,
3325 + .03719, .00873, .00123, .00008, .00001,
3326 + .00000, .00003, .00004,
3327 + .03569, .00836, .00116, .00007, .00001,
3328 + .00000, .00003, .00003,
3329 + .03433, .00802, .00110, .00007, .00001,
3330 + .00000, .00002, .00003,
3331 + .03300, .00770, .00104, .00007, .00001,
3332 + .00000, .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 + .22829, .05861, .06027, .00037, .00000,
3335 + .00000, .00022, .00025,
3336 + .21338, .05450, .05055, .00036, .00000,
3337 + .00000, .00019, .00023,
3338 + .19345, .04905, .03917, .00033, .00000,
3339 + .00000, .00017, .00020,
3340 + .18039, .04546, .03261, .00029, .00000,
3341 + .00000, .00016, .00020,
3342 + .16772, .04205, .02702, .00026, .00000,
3343 + .00000, .00015, .00018,
3344 + .15761, .03933, .02308, .00025, .00000,
3345 + .00000, .00014, .00017,
3346 + .14860, .03693, .01990, .00024, .00000,
3347 + .00000, .00013, .00015,
3348 + .13972, .03458, .01708, .00023, .00000,
3349 + .00000, .00012, .00013 /
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 + .13250, .03266, .01499, .00020, .00000,
3352 + .00000, .00012, .00013,
3353 + .12594, .03093, .01327, .00019, .00000,
3354 + .00000, .00011, .00012,
3355 + .12102, .02964, .01206, .00019, .00000,
3356 + .00000, .00010, .00012,
3357 + .11126, .02709, .00988, .00017, .00000,
3358 + .00000, .00008, .00011,
3359 + .10355, .02510, .00836, .00015, .00000,
3360 + .00000, .00009, .00010,
3361 + .09565, .02307, .00697, .00014, .00000,
3362 + .00000, .00008, .00009,
3363 + .08818, .02115, .00582, .00013, .00000,
3364 + .00000, .00007, .00007,
3365 + .08198, .01957, .00497, .00012, .00000,
3366 + .00000, .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 + .07622, .01811, .00427, .00011, .00000,
3369 + .00000, .00005, .00007,
3370 + .07179, .01700, .00377, .00009, .00000,
3371 + .00000, .00006, .00007,
3372 + .06681, .01575, .00327, .00009, .00000,
3373 + .00000, .00005, .00006,
3374 + .06273, .01473, .00290, .00008, .00000,
3375 + .00000, .00005, .00005,
3376 + .05923, .01386, .00260, .00007, .00000,
3377 + .00000, .00004, .00005,
3378 + .05510, .01284, .00228, .00008, .00000,
3379 + .00000, .00004, .00005,
3380 + .05153, .01196, .00202, .00007, .00000,
3381 + .00000, .00004, .00004,
3382 + .04843, .01120, .00181, .00007, .00000,
3383 + .00000, .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 + .04552, .01049, .00163, .00006, .00000,
3386 + .00000, .00003, .00004,
3387 + .04287, .00984, .00148, .00005, .00000,
3388 + .00000, .00003, .00004,
3389 + .04052, .00928, .00135, .00005, .00000,
3390 + .00000, .00003, .00004,
3391 + .03842, .00877, .00124, .00005, .00000,
3392 + .00000, .00003, .00003,
3393 + .03644, .00830, .00114, .00005, .00000,
3394 + .00000, .00002, .00002,
3395 + .03461, .00786, .00106, .00004, .00000,
3396 + .00000, .00002, .00002,
3397 + .03298, .00746, .00098, .00004, .00000,
3398 + .00000, .00002, .00002,
3399 + .03149, .00711, .00092, .00004, .00000,
3400 + .00000, .00002, .00002 /
3401 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
3402 + .03007, .00677, .00086, .00003, .00000,
3403 + .00000, .00002, .00002,
3404 + .02873, .00646, .00081, .00003, .00000,
3405 + .00000, .00002, .00002,
3406 + .02751, .00617, .00076, .00003, .00000,
3407 + .00000, .00002, .00002,
3408 + .02641, .00591, .00071, .00003, .00000,
3409 + .00000, .00002, .00002,
3410 + .02535, .00566, .00068, .00003, .00000,
3411 + .00000, .00002, .00002 /
3412 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
3413 + .15864, .03725, .02747, .00015, .00000,
3414 + .00000, .00005, .00007,
3415 + .14720, .03438, .02269, .00013, .00000,
3416 + .00000, .00006, .00007,
3417 + .13202, .03061, .01722, .00012, .00000,
3418 + .00000, .00005, .00006,
3419 + .12215, .02816, .01414, .00011, .00000,
3420 + .00000, .00004, .00006,
3421 + .11268, .02584, .01156, .00009, .00000,
3422 + .00000, .00003, .00005,
3423 + .10520, .02401, .00978, .00008, .00000,
3424 + .00000, .00003, .00005,
3425 + .09856, .02241, .00837, .00008, .00000,
3426 + .00000, .00003, .00005,
3427 + .09206, .02084, .00712, .00007, .00000,
3428 + .00000, .00003, .00005 /
3429 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
3430 + .08683, .01958, .00622, .00006, .00000,
3431 + .00000, .00003, .00004,
3432 + .08210, .01844, .00547, .00006, .00000,
3433 + .00000, .00003, .00003,
3434 + .07856, .01760, .00496, .00006, .00000,
3435 + .00000, .00003, .00003,
3436 + .07158, .01595, .00404, .00006, .00000,
3437 + .00000, .00003, .00003,
3438 + .06615, .01467, .00340, .00004, .00000,
3439 + .00000, .00002, .00003,
3440 + .06062, .01337, .00283, .00004, .00000,
3441 + .00000, .00002, .00003,
3442 + .05542, .01216, .00235, .00004, .00000,
3443 + .00000, .00002, .00003,
3444 + .05114, .01117, .00201, .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 + .04721, .01027, .00172, .00003, .00000,
3448 + .00000, .00001, .00002,
3449 + .04420, .00958, .00153, .00003, .00000,
3450 + .00000, .00001, .00002,
3451 + .04083, .00881, .00132, .00003, .00000,
3452 + .00000, .00002, .00002,
3453 + .03811, .00819, .00117, .00003, .00000,
3454 + .00000, .00002, .00002,
3455 + .03579, .00766, .00105, .00002, .00000,
3456 + .00000, .00001, .00001,
3457 + .03307, .00705, .00093, .00002, .00000,
3458 + .00000, .00001, .00001,
3459 + .03072, .00653, .00082, .00002, .00000,
3460 + .00000, .00001, .00001,
3461 + .02870, .00608, .00074, .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 + .02681, .00566, .00066, .00002, .00000,
3465 + .00000, .00001, .00001,
3466 + .02511, .00528, .00060, .00001, .00000,
3467 + .00000, .00001, .00001,
3468 + .02361, .00495, .00055, .00001, .00000,
3469 + .00000, .00001, .00001,
3470 + .02228, .00466, .00051, .00001, .00000,
3471 + .00000, .00001, .00001,
3472 + .02102, .00438, .00047, .00001, .00000,
3473 + .00000, .00001, .00001,
3474 + .01987, .00413, .00043, .00001, .00000,
3475 + .00000, .00001, .00001,
3476 + .01884, .00391, .00040, .00001, .00000,
3477 + .00000, .00001, .00001,
3478 + .01791, .00370, .00037, .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 + .01703, .00351, .00035, .00001, .00000,
3482 + .00000, .00001, .00001,
3483 + .01620, .00333, .00033, .00001, .00000,
3484 + .00000, .00001, .00001,
3485 + .01546, .00317, .00031, .00001, .00000,
3486 + .00000, .00001, .00001,
3487 + .01479, .00303, .00029, .00001, .00000,
3488 + .00000, .00001, .00001,
3489 + .01414, .00289, .00027, .00001, .00000,
3490 + .00000, .00000, .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 + .10189, .02167, .01055, .00005, .00000,
3493 + .00000, .00001, .00002,
3494 + .09377, .01985, .00860, .00005, .00000,
3495 + .00000, .00000, .00001,
3496 + .08314, .01746, .00643, .00005, .00000,
3497 + .00000, .00001, .00001,
3498 + .07631, .01594, .00522, .00003, .00000,
3499 + .00000, .00000, .00001,
3500 + .06979, .01450, .00424, .00003, .00000,
3501 + .00000, .00000, .00001,
3502 + .06468, .01338, .00357, .00003, .00000,
3503 + .00000, .00001, .00001,
3504 + .06019, .01240, .00304, .00003, .00000,
3505 + .00000, .00001, .00001,
3506 + .05583, .01145, .00257, .00002, .00000,
3507 + .00000, .00001, .00001 /
3508 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
3509 + .05233, .01069, .00224, .00002, .00000,
3510 + .00000, .00000, .00001,
3511 + .04919, .01002, .00197, .00001, .00000,
3512 + .00000, .00000, .00001,
3513 + .04687, .00952, .00179, .00001, .00000,
3514 + .00000, .00001, .00001,
3515 + .04231, .00855, .00145, .00002, .00000,
3516 + .00000, .00001, .00001,
3517 + .03877, .00780, .00123, .00002, .00000,
3518 + .00000, .00000, .00001,
3519 + .03522, .00705, .00102, .00001, .00000,
3520 + .00000, .00000, .00001,
3521 + .03193, .00635, .00085, .00001, .00000,
3522 + .00000, .00000, .00000,
3523 + .02923, .00579, .00073, .00001, .00000,
3524 + .00000, .00000, .00000 /
3525 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
3526 + .02675, .00528, .00063, .00001, .00000,
3527 + .00000, .00000, .00001,
3528 + .02490, .00489, .00056, .00001, .00000,
3529 + .00000, .00000, .00000,
3530 + .02283, .00447, .00049, .00001, .00000,
3531 + .00000, .00000, .00000,
3532 + .02116, .00412, .00043, .00001, .00000,
3533 + .00000, .00000, .00000,
3534 + .01975, .00384, .00039, .00000, .00000,
3535 + .00000, .00000, .00000,
3536 + .01810, .00351, .00034, .00001, .00000,
3537 + .00000, .00000, .00000,
3538 + .01670, .00322, .00030, .00001, .00000,
3539 + .00000, .00000, .00000,
3540 + .01550, .00298, .00027, .00000, .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 + .01439, .00276, .00025, .00000, .00000,
3544 + .00000, .00000, .00000,
3545 + .01339, .00256, .00022, .00001, .00000,
3546 + .00000, .00000, .00000,
3547 + .01251, .00238, .00020, .00001, .00000,
3548 + .00000, .00000, .00000,
3549 + .01174, .00223, .00019, .00001, .00000,
3550 + .00000, .00000, .00000,
3551 + .01103, .00209, .00017, .00000, .00000,
3552 + .00000, .00000, .00000,
3553 + .01037, .00196, .00016, .00000, .00000,
3554 + .00000, .00000, .00000,
3555 + .00978, .00184, .00015, .00000, .00000,
3556 + .00000, .00000, .00000,
3557 + .00926, .00174, .00014, .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 + .00876, .00164, .00013, .00000, .00000,
3561 + .00000, .00000, .00000,
3562 + .00830, .00155, .00012, .00000, .00000,
3563 + .00000, .00000, .00000,
3564 + .00788, .00147, .00011, .00000, .00000,
3565 + .00000, .00000, .00000,
3566 + .00751, .00140, .00011, .00000, .00000,
3567 + .00000, .00000, .00000,
3568 + .00715, .00133, .00010, .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 + .05902, .01122, .00325, .00002, .00000,
3572 + .00000, .00000, .00000,
3573 + .05382, .01018, .00263, .00002, .00000,
3574 + .00000, .00000, .00001,
3575 + .04709, .00885, .00195, .00002, .00000,
3576 + .00000, -.00001, .00000,
3577 + .04281, .00800, .00158, .00002, .00000,
3578 + .00000, .00000, .00000,
3579 + .03879, .00721, .00128, .00001, .00000,
3580 + .00000, .00000, .00000,
3581 + .03568, .00660, .00108, .00000, .00000,
3582 + .00000, .00000, .00000,
3583 + .03296, .00607, .00092, .00000, .00000,
3584 + .00000, .00000, .00000,
3585 + .03032, .00556, .00078, .00000, .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 + .02823, .00516, .00069, .00000, .00000,
3589 + .00000, .00000, .00000,
3590 + .02636, .00480, .00060, .00000, .00000,
3591 + .00000, .00000, .00000,
3592 + .02498, .00454, .00055, .00001, .00000,
3593 + .00000, .00000, .00000,
3594 + .02232, .00403, .00045, .00000, .00000,
3595 + .00000, .00000, .00000,
3596 + .02027, .00365, .00038, .00000, .00000,
3597 + .00000, .00000, .00000,
3598 + .01823, .00326, .00032, .00000, .00000,
3599 + .00000, .00000, .00000,
3600 + .01635, .00291, .00027, .00000, .00000,
3601 + .00000, .00000, .00000,
3602 + .01484, .00263, .00023, .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 + .01347, .00238, .00020, .00000, .00000,
3606 + .00000, .00000, .00000,
3607 + .01244, .00219, .00018, .00000, .00000,
3608 + .00000, .00000, .00000,
3609 + .01131, .00198, .00016, .00000, .00000,
3610 + .00000, .00000, .00000,
3611 + .01040, .00182, .00014, .00000, .00000,
3612 + .00000, .00000, .00000,
3613 + .00964, .00168, .00013, .00000, .00000,
3614 + .00000, .00000, .00000,
3615 + .00877, .00152, .00011, .00000, .00000,
3616 + .00000, .00000, .00000,
3617 + .00802, .00139, .00010, .00000, .00000,
3618 + .00000, .00000, .00000,
3619 + .00739, .00127, .00009, .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 + .00681, .00117, .00008, .00000, .00000,
3623 + .00000, .00000, .00000,
3624 + .00629, .00108, .00007, .00000, .00000,
3625 + .00000, .00000, .00000,
3626 + .00584, .00100, .00007, .00000, .00000,
3627 + .00000, .00000, .00000,
3628 + .00545, .00093, .00006, .00000, .00000,
3629 + .00000, .00000, .00000,
3630 + .00509, .00086, .00006, .00000, .00000,
3631 + .00000, .00000, .00000,
3632 + .00476, .00080, .00005, .00000, .00000,
3633 + .00000, .00000, .00000,
3634 + .00446, .00075, .00005, .00000, .00000,
3635 + .00000, .00000, .00000,
3636 + .00420, .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 + .00395, .00066, .00004, .00000, .00000,
3640 + .00000, .00000, .00000,
3641 + .00373, .00062, .00004, .00000, .00000,
3642 + .00000, .00000, .00000,
3643 + .00352, .00059, .00004, .00000, .00000,
3644 + .00000, .00000, .00000,
3645 + .00334, .00056, .00003, .00000, .00000,
3646 + .00000, .00000, .00000,
3647 + .00317, .00053, .00003, .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 + .02940, .00489, .00074, .00000, .00000,
3651 + .00000, .00000, .00000,
3652 + .02654, .00439, .00060, .00000, .00000,
3653 + .00000, .00000, .00000,
3654 + .02288, .00376, .00045, .00000, .00000,
3655 + .00000, .00000, .00000,
3656 + .02058, .00336, .00037, .00000, .00000,
3657 + .00000, .00000, .00000,
3658 + .01844, .00300, .00030, .00000, .00000,
3659 + .00000, .00000, .00000,
3660 + .01679, .00272, .00026, .00000, .00000,
3661 + .00000, .00000, .00000,
3662 + .01537, .00248, .00022, .00000, .00000,
3663 + .00000, .00000, .00000,
3664 + .01401, .00225, .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 + .01295, .00207, .00017, .00000, .00000,
3668 + .00000, .00000, .00000,
3669 + .01200, .00191, .00015, .00000, .00000,
3670 + .00000, .00000, .00000,
3671 + .01130, .00180, .00014, .00000, .00000,
3672 + .00000, .00000, .00000,
3673 + .00997, .00158, .00012, .00000, .00000,
3674 + .00000, .00000, .00000,
3675 + .00897, .00141, .00010, .00000, .00000,
3676 + .00000, .00000, .00000,
3677 + .00797, .00125, .00008, .00000, .00000,
3678 + .00000, .00000, .00000,
3679 + .00707, .00110, .00007, .00000, .00000,
3680 + .00000, .00000, .00000,
3681 + .00635, .00099, .00006, .00000, .00000,
3682 + .00000, .00000, .00000 /
3683 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=17,24)/
3684 + .00570, .00088, .00005, .00000, .00000,
3685 + .00000, .00000, .00000,
3686 + .00522, .00080, .00005, .00000, .00000,
3687 + .00000, .00000, .00000,
3688 + .00470, .00072, .00004, .00000, .00000,
3689 + .00000, .00000, .00000,
3690 + .00428, .00066, .00004, .00000, .00000,
3691 + .00000, .00000, .00000,
3692 + .00394, .00060, .00003, .00000, .00000,
3693 + .00000, .00000, .00000,
3694 + .00354, .00054, .00003, .00000, .00000,
3695 + .00000, .00000, .00000,
3696 + .00321, .00049, .00003, .00000, .00000,
3697 + .00000, .00000, .00000,
3698 + .00293, .00044, .00002, .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 + .00268, .00040, .00002, .00000, .00000,
3702 + .00000, .00000, .00000,
3703 + .00246, .00037, .00002, .00000, .00000,
3704 + .00000, .00000, .00000,
3705 + .00227, .00034, .00002, .00000, .00000,
3706 + .00000, .00000, .00000,
3707 + .00210, .00031, .00002, .00000, .00000,
3708 + .00000, .00000, .00000,
3709 + .00194, .00029, .00002, .00000, .00000,
3710 + .00000, .00000, .00000,
3711 + .00180, .00027, .00001, .00000, .00000,
3712 + .00000, .00000, .00000,
3713 + .00168, .00025, .00001, .00000, .00000,
3714 + .00000, .00000, .00000,
3715 + .00157, .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 + .00147, .00022, .00001, .00000, .00000,
3719 + .00000, .00000, .00000,
3720 + .00138, .00020, .00001, .00000, .00000,
3721 + .00000, .00000, .00000,
3722 + .00130, .00019, .00001, .00000, .00000,
3723 + .00000, .00000, .00000,
3724 + .00122, .00018, .00001, .00000, .00000,
3725 + .00000, .00000, .00000,
3726 + .00115, .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 + .00307, .00035, .00001, .00000, .00000,
3730 + .00000, .00000, .00000,
3731 + .00268, .00030, .00001, .00000, .00000,
3732 + .00000, .00000, .00000,
3733 + .00221, .00025, .00001, .00000, .00000,
3734 + .00000, .00000, .00000,
3735 + .00193, .00021, .00001, .00000, .00000,
3736 + .00000, .00000, .00000,
3737 + .00167, .00019, .00001, .00000, .00000,
3738 + .00000, .00000, .00000,
3739 + .00148, .00016, .00001, .00000, .00000,
3740 + .00000, .00000, .00000,
3741 + .00132, .00015, .00001, .00000, .00000,
3742 + .00000, .00000, .00000,
3743 + .00118, .00013, .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 + .00106, .00012, .00001, .00000, .00000,
3747 + .00000, .00000, .00000,
3748 + .00096, .00010, .00001, .00000, .00000,
3749 + .00000, .00000, .00000,
3750 + .00089, .00010, .00000, .00000, .00000,
3751 + .00000, .00000, .00000,
3752 + .00076, .00008, .00000, .00000, .00000,
3753 + .00000, .00000, .00000,
3754 + .00066, .00007, .00000, .00000, .00000,
3755 + .00000, .00000, .00000,
3756 + .00057, .00006, .00000, .00000, .00000,
3757 + .00000, .00000, .00000,
3758 + .00049, .00005, .00000, .00000, .00000,
3759 + .00000, .00000, .00000,
3760 + .00042, .00005, .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, .00004, .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 + .00011, .00001, .00000, .00000, .00000,
3785 + .00000, .00000, .00000,
3786 + .00010, .00001, .00000, .00000, .00000,
3787 + .00000, .00000, .00000,
3788 + .00009, .00001, .00000, .00000, .00000,
3789 + .00000, .00000, .00000,
3790 + .00008, .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='ft09a.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