2 subroutine sfmrs_99a12(x,qsq,upv,dnv,usea,dsea,str,chm,bot,glu)
4 #include "pdf/impdp.inc"
6 parameter(nx=49,nq=37,ntenth=23,np=8)
8 #include "pdf/expdp.inc"
9 + f(np,nx,nq+1),qq(nq),xx(nx),g(np),n0(np)
10 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,8)/
11 + .00515, .00191, 1.11860, .90463, .00000,
12 + .00000, .48175, .91662,
13 + .00531, .00198, 2.39185, .93942, .00000,
14 + .00000, .52193, .95147,
15 + .00555, .00208, 4.89753, 1.01576, .00000,
16 + .00000, .60592, 1.02788,
17 + .00572, .00216, 7.23869, 1.08961, .04539,
18 + .00000, .68510, 1.10177,
19 + .00590, .00225, 10.06430, 1.18522, .15603,
20 + .00000, .78610, 1.19741,
21 + .00606, .00232, 12.97936, 1.28391, .26195,
22 + .00000, .88932, 1.29613,
23 + .00622, .00240, 16.25096, 1.39123, .37881,
24 + .00000, 1.00087, 1.40346,
25 + .00638, .00248, 20.26498, 1.51964, .52048,
26 + .00000, 1.13368, 1.53189 /
27 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
28 + .00653, .00254, 24.17605, 1.64565, .65309,
29 + .00000, 1.26342, 1.65790,
30 + .00667, .00261, 28.37500, 1.77949, .79429,
31 + .00000, 1.40079, 1.79174,
32 + .00678, .00267, 32.05324, 1.89403, .91753,
33 + .00000, 1.51807, 1.90628,
34 + .00702, .00278, 40.56970, 2.16685, 1.20469,
35 + .02266, 1.79659, 2.17909,
36 + .00722, .00288, 48.58288, 2.43104, 1.48024,
37 + .34642, 2.06552, 2.44327,
38 + .00746, .00300, 58.70207, 2.76186, 1.82555,
39 + .74505, 2.40151, 2.77407,
40 + .00770, .00312, 70.61198, 3.14639, 2.22608,
41 + 1.16391, 2.79127, 3.15858,
42 + .00793, .00323, 82.65894, 3.53230, 2.62739,
43 + 1.58378, 3.18180, 3.54447 /
44 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
45 + .00816, .00335, 96.07996, 3.95985, 3.07176,
46 + 2.04681, 3.61388, 3.97198,
47 + .00835, .00345, 108.15657, 4.34444, 3.46950,
48 + 2.45656, 4.00215, 4.35653,
49 + .00858, .00357, 123.95258, 4.84792, 3.98841,
50 + 2.98905, 4.51000, 4.85998,
51 + .00879, .00368, 139.08627, 5.32931, 4.48526,
52 + 3.50125, 4.99516, 5.34134,
53 + .00899, .00378, 153.94434, 5.80172, 4.97297,
54 + 4.00435, 5.47096, 5.81370,
55 + .00923, .00390, 173.93205, 6.44198, 5.62988,
56 + 4.67547, 6.11543, 6.45391,
57 + .00947, .00403, 194.11009, 7.08948, 6.29474,
58 + 5.35656, 6.76679, 7.10136,
59 + .00969, .00414, 214.32675, 7.73874, 6.96260,
60 + 6.04310, 7.41959, 7.75058 /
61 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
62 + .00992, .00426, 235.42511, 8.42417, 7.66294,
63 + 6.75593, 8.10849, 8.43595,
64 + .01014, .00438, 257.30655, 9.13652, 8.39223,
65 + 7.50121, 8.82417, 9.14826,
66 + .01035, .00449, 279.07556, 9.84867, 9.12102,
67 + 8.24588, 9.53940, 9.86035,
68 + .01055, .00459, 300.32693, 10.55035, 9.83690,
69 + 8.97452, 10.24395, 10.56199,
70 + .01076, .00470, 322.79166, 11.29302, 10.59640,
71 + 9.75056, 10.98943, 11.30461,
72 + .01096, .00481, 345.43198, 12.05075, 11.36793,
73 + 10.53431, 11.74990, 12.06229,
74 + .01116, .00491, 368.04791, 12.80791, 12.14119,
75 + 11.32343, 12.50960, 12.81940,
76 + .01134, .00501, 389.81564, 13.54586, 12.89170,
77 + 12.08523, 13.24994, 13.55731 /
78 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
79 + .01153, .00511, 412.71667, 14.32341, 13.68411,
80 + 12.89208, 14.02985, 14.33482,
81 + .01172, .00521, 435.80719, 15.11483, 14.48903,
82 + 13.70972, 14.82358, 15.12619,
83 + .01190, .00531, 458.50980, 15.89711, 15.28465,
84 + 14.51808, 15.60803, 15.90843,
85 + .01207, .00540, 480.72339, 16.66569, 16.06683,
86 + 15.31373, 16.37863, 16.67696,
87 + .01225, .00549, 503.43262, 17.46037, 16.87332,
88 + 16.13122, 17.17534, 17.47160 /
89 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
90 + .00697, .00267, 1.04247, .76551, .00000,
91 + .00000, .40715, .77242,
92 + .00719, .00278, 2.18894, .79783, .00000,
93 + .00000, .44369, .80476,
94 + .00753, .00293, 4.39703, .86542, .00000,
95 + .00000, .51728, .87240,
96 + .00777, .00305, 6.41926, .92911, .03862,
97 + .00000, .58513, .93611,
98 + .00803, .00318, 8.81928, 1.01012, .13228,
99 + .00000, .67034, 1.01713,
100 + .00825, .00329, 11.25971, 1.09261, .22082,
101 + .00000, .75636, 1.09964,
102 + .00846, .00339, 13.96599, 1.18153, .31755,
103 + .00000, .84857, 1.18856,
104 + .00869, .00350, 17.24763, 1.28704, .43379,
105 + .00000, .95750, 1.29408 /
106 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
107 + .00889, .00360, 20.40882, 1.38967, .54160,
108 + .00000, 1.06302, 1.39671,
109 + .00908, .00370, 23.77011, 1.49792, .65558,
110 + .00000, 1.17401, 1.50496,
111 + .00924, .00378, 26.69160, 1.59008, .75449,
112 + .00000, 1.26830, 1.59713,
113 + .00957, .00395, 33.37648, 1.80777, .98295,
114 + .01851, 1.49040, 1.81481,
115 + .00985, .00409, 39.57725, 2.01658, 1.20000,
116 + .27298, 1.70289, 2.02362,
117 + .01017, .00426, 47.31119, 2.27575, 1.46952,
118 + .58437, 1.96605, 2.28278,
119 + .01051, .00443, 56.29833, 2.57418, 1.77911,
120 + .90776, 2.26852, 2.58120,
121 + .01082, .00459, 65.28069, 2.87104, 2.08652,
122 + 1.22894, 2.56894, 2.87805 /
123 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
124 + .01113, .00475, 75.17767, 3.19723, 2.42407,
125 + 1.58008, 2.89863, 3.20423,
126 + .01140, .00489, 83.99490, 3.48843, 2.72389,
127 + 1.88832, 3.19267, 3.49541,
128 + .01172, .00506, 95.41535, 3.86681, 3.11211,
129 + 2.28583, 3.57442, 3.87378,
130 + .01200, .00521, 106.25360, 4.22597, 3.48115,
131 + 2.66543, 3.93648, 4.23292,
132 + .01227, .00535, 116.80604, 4.57615, 3.84110,
133 + 3.03590, 4.28927, 4.58309,
134 + .01261, .00553, 130.86890, 5.04730, 4.32232,
135 + 3.52630, 4.76366, 5.05421,
136 + .01293, .00570, 144.93398, 5.52030, 4.80588,
137 + 4.02043, 5.23963, 5.52719,
138 + .01323, .00586, 158.90825, 5.99145, 5.28849,
139 + 4.51536, 5.71351, 5.99832 /
140 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
141 + .01353, .00602, 173.36311, 6.48540, 5.79100,
142 + 5.02545, 6.21013, 6.49225,
143 + .01383, .00619, 188.24060, 6.99563, 6.31119,
144 + 5.55570, 6.72292, 7.00246,
145 + .01412, .00634, 202.93250, 7.50270, 6.82802,
146 + 6.08246, 7.23236, 7.50950,
147 + .01439, .00649, 217.16971, 7.99941, 7.33272,
148 + 6.59479, 7.73127, 8.00619,
149 + .01467, .00664, 232.12834, 8.52251, 7.86564,
150 + 7.13798, 8.25655, 8.52928,
151 + .01494, .00678, 247.09474, 9.05319, 8.40385,
152 + 7.68324, 8.78933, 9.05993,
153 + .01520, .00693, 261.96417, 9.58106, 8.94098,
154 + 8.23008, 9.31917, 9.58779,
155 + .01545, .00706, 276.18063, 10.09289, 9.45955,
156 + 8.75503, 9.83283, 10.09959 /
157 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
158 + .01570, .00720, 291.06381, 10.62995, 10.00494,
159 + 9.30899, 10.37171, 10.63663,
160 + .01596, .00734, 305.98074, 11.17402, 10.55631,
161 + 9.86765, 10.91755, 11.18068,
162 + .01620, .00747, 320.57196, 11.70955, 11.09909,
163 + 10.41774, 11.45476, 11.71620,
164 + .01643, .00759, 334.78259, 12.23368, 11.63072,
165 + 10.95724, 11.98045, 12.24031,
166 + .01666, .00772, 349.22876, 12.77324, 12.17643,
167 + 11.50896, 12.52158, 12.77986 /
168 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
169 + .00943, .00375, .97256, .64749, .00000,
170 + .00000, .34420, .65089,
171 + .00975, .00390, 2.00449, .67726, .00000,
172 + .00000, .37726, .68066,
173 + .01021, .00413, 3.94891, .73698, .00000,
174 + .00000, .44166, .74039,
175 + .01055, .00431, 5.69364, .79186, .03286,
176 + .00000, .49979, .79529,
177 + .01091, .00449, 7.72898, .86046, .11212,
178 + .00000, .57166, .86389,
179 + .01122, .00465, 9.76817, .92936, .18610,
180 + .00000, .64330, .93280,
181 + .01152, .00480, 12.00198, 1.00296, .26612,
182 + .00000, .71945, 1.00640,
183 + .01183, .00496, 14.67843, 1.08954, .36142,
184 + .00000, .80868, 1.09299 /
185 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
186 + .01211, .00511, 17.22665, 1.17298, .44900,
187 + .00000, .89436, 1.17642,
188 + .01238, .00525, 19.90962, 1.26036, .54090,
189 + .00000, .98385, 1.26380,
190 + .01259, .00536, 22.22300, 1.33436, .62020,
191 + .00000, 1.05950, 1.33781,
192 + .01304, .00560, 27.45266, 1.50762, .80172,
193 + .01511, 1.23617, 1.51107,
194 + .01344, .00580, 32.23278, 1.67219, .97244,
195 + .21501, 1.40357, 1.67564,
196 + .01388, .00604, 38.11961, 1.87460, 1.18244,
197 + .45812, 1.60904, 1.87805,
198 + .01434, .00629, 44.87164, 2.10542, 1.42130,
199 + .70764, 1.84297, 2.10887,
200 + .01477, .00651, 51.53778, 2.33295, 1.65627,
201 + .95312, 2.07323, 2.33639 /
202 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
203 + .01520, .00674, 58.80032, 2.58085, 1.91210,
204 + 1.21914, 2.32382, 2.58429,
205 + .01555, .00694, 65.20455, 2.80044, 2.13755,
206 + 1.45076, 2.54558, 2.80388,
207 + .01599, .00717, 73.41675, 3.08360, 2.42722,
208 + 1.74711, 2.83132, 3.08704,
209 + .01638, .00739, 81.13496, 3.35038, 2.70055,
210 + 2.02802, 3.10032, 3.35382,
211 + .01674, .00758, 88.58572, 3.60878, 2.96540,
212 + 2.30037, 3.36072, 3.61222,
213 + .01720, .00783, 98.41943, 3.95384, 3.31680,
214 + 2.65805, 3.70825, 3.95727,
215 + .01764, .00807, 108.16090, 4.29767, 3.66731,
216 + 3.01582, 4.05435, 4.30110,
217 + .01805, .00830, 117.75685, 4.63786, 4.01484,
218 + 3.37184, 4.39662, 4.64129 /
219 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
220 + .01846, .00852, 127.59196, 4.99196, 4.37405,
221 + 3.73596, 4.75276, 4.99539,
222 + .01887, .00875, 137.63580, 5.35546, 4.74367,
223 + 4.11226, 5.11822, 5.35889,
224 + .01925, .00896, 147.47906, 5.71454, 5.10871,
225 + 4.48386, 5.47911, 5.71796,
226 + .01962, .00916, 156.94484, 6.06418, 5.46303,
227 + 4.84303, 5.83043, 6.06760,
228 + .01999, .00937, 166.82872, 6.43054, 5.83536,
229 + 5.22210, 6.19845, 6.43396,
230 + .02036, .00957, 176.64261, 6.80001, 6.20912,
231 + 5.60020, 6.56953, 6.80343,
232 + .02071, .00977, 186.33946, 7.16587, 6.58055,
233 + 5.97788, 6.93688, 7.16928,
234 + .02104, .00995, 195.54559, 7.51868, 6.93713,
235 + 6.33833, 7.29110, 7.52210 /
236 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
237 + .02138, .01014, 205.13533, 7.88737, 7.31070,
238 + 6.71730, 7.66117, 7.89078,
239 + .02172, .01033, 214.68669, 8.25903, 7.68650,
240 + 7.09755, 8.03419, 8.26245,
241 + .02204, .01051, 223.98032, 8.62332, 8.05490,
242 + 7.47042, 8.39976, 8.62673,
243 + .02235, .01068, 232.98787, 8.97845, 8.41438,
244 + 7.83477, 8.75608, 8.98187,
245 + .02266, .01085, 242.09029, 9.34238, 8.78164,
246 + 8.20556, 9.12120, 9.34580 /
247 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
248 + .01126, .00457, .93471, .58695, .00000,
249 + .00000, .31205, .58890,
250 + .01164, .00476, 1.90488, .61521, .00000,
251 + .00000, .34318, .61717,
252 + .01221, .00506, 3.70923, .67069, .00000,
253 + .00000, .40270, .67265,
254 + .01262, .00527, 5.30864, .72098, .02988,
255 + .00000, .45580, .72295,
256 + .01305, .00550, 7.15535, .78320, .10175,
257 + .00000, .52084, .78517,
258 + .01343, .00569, 8.98923, .84518, .16833,
259 + .00000, .58518, .84715,
260 + .01379, .00588, 10.98352, .91102, .23992,
261 + .00000, .65323, .91300,
262 + .01417, .00609, 13.35597, .98809, .32473,
263 + .00000, .73258, .99007 /
264 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
265 + .01451, .00626, 15.59898, 1.06194, .40223,
266 + .00000, .80836, 1.06392,
267 + .01483, .00644, 17.94675, 1.13894, .48322,
268 + .00000, .88718, 1.14093,
269 + .01509, .00657, 19.96152, 1.20395, .55285,
270 + .00000, .95361, 1.20594,
271 + .01564, .00687, 24.48316, 1.35534, .71139,
272 + .01341, 1.10792, 1.35733,
273 + .01611, .00712, 28.57969, 1.49830, .85961,
274 + .18691, 1.25330, 1.50030,
275 + .01664, .00741, 33.58651, 1.67315, 1.04091,
276 + .39716, 1.43079, 1.67515,
277 + .01720, .00772, 39.28451, 1.87140, 1.24591,
278 + .61145, 1.63169, 1.87340,
279 + .01771, .00799, 44.86890, 2.06575, 1.44647,
280 + .82109, 1.82838, 2.06776 /
281 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
282 + .01823, .00828, 50.91201, 2.27643, 1.66372,
283 + 1.04709, 2.04137, 2.27845,
284 + .01866, .00851, 56.20821, 2.46219, 1.85426,
285 + 1.24289, 2.22899, 2.46421,
286 + .01918, .00880, 62.95894, 2.70062, 2.09796,
287 + 1.49225, 2.46962, 2.70265,
288 + .01965, .00906, 69.26672, 2.92426, 2.32689,
289 + 1.72758, 2.69516, 2.92630,
290 + .02008, .00930, 75.32494, 3.14003, 2.54785,
291 + 1.95484, 2.91263, 3.14207,
292 + .02063, .00960, 83.27407, 3.42686, 2.83969,
293 + 2.25188, 3.20157, 3.42891,
294 + .02115, .00989, 91.10364, 3.71140, 3.12950,
295 + 2.54771, 3.48805, 3.71346,
296 + .02164, .01017, 98.77679, 3.99180, 3.41572,
297 + 2.84095, 3.77023, 3.99386 /
298 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
299 + .02213, .01044, 106.59731, 4.28241, 3.71025,
300 + 3.13947, 4.06257, 4.28447,
301 + .02262, .01071, 114.54664, 4.57964, 4.01223,
302 + 3.44689, 4.36146, 4.58171,
303 + .02308, .01097, 122.30146, 4.87218, 4.30941,
304 + 3.74939, 4.65556, 4.87426,
305 + .02352, .01121, 129.72435, 5.15601, 4.59681,
306 + 4.04069, 4.94082, 5.15810,
307 + .02396, .01146, 137.44640, 5.45253, 4.89796,
308 + 4.34727, 5.23875, 5.45463,
309 + .02439, .01171, 145.07800, 5.75051, 5.19915,
310 + 4.65190, 5.53809, 5.75261,
311 + .02481, .01194, 152.59410, 6.04477, 5.49770,
312 + 4.95547, 5.83364, 6.04688,
313 + .02521, .01216, 159.69885, 6.32762, 5.78336,
314 + 5.24417, 6.11768, 6.32974 /
315 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
316 + .02561, .01239, 167.07774, 6.62247, 6.08193,
317 + 5.54702, 6.41371, 6.62459,
318 + .02601, .01261, 174.39903, 6.91883, 6.38139,
319 + 5.84997, 6.71122, 6.92096,
320 + .02639, .01283, 181.49994, 7.20856, 6.67422,
321 + 6.14631, 7.00204, 7.21070,
322 + .02676, .01304, 188.36246, 7.49035, 6.95931,
323 + 6.43524, 7.28485, 7.49250,
324 + .02713, .01324, 195.27145, 7.77833, 7.24975,
325 + 6.72839, 7.57385, 7.78049 /
326 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
327 + .01277, .00526, .90932, .54741, .00000,
328 + .00000, .29113, .54857,
329 + .01321, .00549, 1.83788, .57460, .00000,
330 + .00000, .32092, .57577,
331 + .01386, .00583, 3.54869, .62722, .00000,
332 + .00000, .37719, .62840,
333 + .01433, .00608, 5.05191, .67447, .02793,
334 + .00000, .42698, .67566,
335 + .01483, .00635, 6.77472, .73251, .09497,
336 + .00000, .48756, .73370,
337 + .01526, .00658, 8.47467, .78999, .15673,
338 + .00000, .54717, .79118,
339 + .01567, .00680, 10.31361, .85081, .22287,
340 + .00000, .60998, .85201,
341 + .01611, .00704, 12.49003, .92174, .30092,
342 + .00000, .68296, .92294 /
343 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
344 + .01649, .00724, 14.53733, .98943, .37196,
345 + .00000, .75239, .99063,
346 + .01686, .00744, 16.67118, 1.05978, .44597,
347 + .00000, .82438, 1.06099,
348 + .01716, .00760, 18.49613, 1.11905, .50944,
349 + .00000, .88491, 1.12026,
350 + .01778, .00794, 22.57033, 1.25651, .65341,
351 + .01233, 1.02501, 1.25773,
352 + .01832, .00824, 26.23789, 1.38577, .78741,
353 + .16919, 1.15644, 1.38700,
354 + .01893, .00857, 30.69591, 1.54324, .95068,
355 + .35880, 1.31628, 1.54448,
356 + .01957, .00893, 35.74089, 1.72103, 1.13449,
357 + .55109, 1.49645, 1.72228,
358 + .02015, .00925, 40.65915, 1.89463, 1.31361,
359 + .73845, 1.67215, 1.89589 /
360 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
361 + .02074, .00957, 45.95553, 2.08215, 1.50693,
362 + .93967, 1.86173, 2.08342,
363 + .02123, .00985, 50.57674, 2.24692, 1.67590,
364 + 1.11340, 2.02816, 2.24820,
365 + .02182, .01018, 56.44152, 2.45771, 1.89129,
366 + 1.33389, 2.24092, 2.45900,
367 + .02236, .01048, 61.89856, 2.65480, 2.09299,
368 + 1.54133, 2.43971, 2.65610,
369 + .02285, .01075, 67.12031, 2.84441, 2.28713,
370 + 1.74108, 2.63084, 2.84572,
371 + .02347, .01110, 73.94298, 3.09564, 2.54267,
372 + 2.00127, 2.88397, 3.09697,
373 + .02406, .01143, 80.63518, 3.34407, 2.79565,
374 + 2.25958, 3.13413, 3.34541,
375 + .02462, .01174, 87.16942, 3.58817, 3.04477,
376 + 2.51492, 3.37982, 3.58953 /
377 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
378 + .02517, .01206, 93.80210, 3.84038, 3.30032,
379 + 2.77398, 3.63358, 3.84175,
380 + .02572, .01237, 100.52126, 4.09765, 3.56165,
381 + 3.04010, 3.89234, 4.09903,
382 + .02625, .01266, 107.05423, 4.35021, 3.81816,
383 + 3.30128, 4.14628, 4.35160,
384 + .02674, .01294, 113.28632, 4.59461, 4.06557,
385 + 3.55210, 4.39195, 4.59602,
386 + .02724, .01322, 119.75238, 4.84938, 4.32429,
387 + 3.81557, 4.64799, 4.85080,
388 + .02773, .01350, 126.12086, 5.10474, 4.58236,
389 + 4.07663, 4.90457, 5.10618,
390 + .02820, .01377, 132.37833, 5.35644, 4.83770,
391 + 4.33634, 5.15742, 5.35790,
392 + .02865, .01402, 138.27441, 5.59781, 5.08142,
393 + 4.58268, 5.39984, 5.59927 /
394 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
395 + .02911, .01428, 144.38498, 5.84896, 5.33572,
396 + 4.84070, 5.65206, 5.85044,
397 + .02956, .01454, 150.43063, 6.10087, 5.59023,
398 + 5.09823, 5.90499, 6.10236,
399 + .02999, .01478, 156.28064, 6.34669, 5.83865,
400 + 5.34968, 6.15179, 6.34820,
401 + .03040, .01502, 161.92247, 6.58538, 6.08012,
402 + 5.59446, 6.39138, 6.58690,
403 + .03082, .01525, 167.58688, 6.82881, 6.32560,
404 + 5.84228, 6.63572, 6.83035 /
405 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
406 + .01408, .00587, .89054, .51855, .00000,
407 + .00000, .27590, .51924,
408 + .01457, .00613, 1.78804, .54493, .00000,
409 + .00000, .30468, .54562,
410 + .01529, .00652, 3.42946, .59542, .00000,
411 + .00000, .35855, .59612,
412 + .01582, .00680, 4.86176, .64043, .02650,
413 + .00000, .40591, .64113,
414 + .01637, .00710, 6.49375, .69540, .09001,
415 + .00000, .46324, .69612,
416 + .01685, .00736, 8.09601, .74961, .14827,
417 + .00000, .51941, .75033,
418 + .01731, .00761, 9.82215, .80679, .21045,
419 + .00000, .57842, .80751,
420 + .01779, .00787, 11.85679, .87327, .28362,
421 + .00000, .64680, .87400 /
422 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
423 + .01822, .00811, 13.76315, .93651, .35001,
424 + .00000, .71164, .93725,
425 + .01863, .00833, 15.74349, 1.00208, .41900,
426 + .00000, .77872, 1.00283,
427 + .01895, .00851, 17.43262, 1.05722, .47805,
428 + .00000, .83502, 1.05797,
429 + .01965, .00889, 21.18804, 1.18471, .61160,
430 + .01154, .96494, 1.18547,
431 + .02025, .00923, 24.55158, 1.30419, .73548,
432 + .15657, 1.08643, 1.30497,
433 + .02092, .00960, 28.62248, 1.44929, .88594,
434 + .33154, 1.23370, 1.45008,
435 + .02163, .00999, 33.20899, 1.61257, 1.05478,
436 + .50828, 1.39918, 1.61338,
437 + .02227, .01035, 37.66171, 1.77152, 1.21878,
438 + .67996, 1.56005, 1.77234 /
439 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
440 + .02292, .01072, 42.43841, 1.94271, 1.39528,
441 + .86379, 1.73313, 1.94354,
442 + .02346, .01102, 46.59162, 2.09273, 1.54914,
443 + 1.02207, 1.88469, 2.09358,
444 + .02412, .01139, 51.84443, 2.28416, 1.74475,
445 + 1.22242, 2.07793, 2.28503,
446 + .02471, .01172, 56.71589, 2.46269, 1.92747,
447 + 1.41044, 2.25802, 2.46358,
448 + .02525, .01203, 61.36382, 2.63407, 2.10295,
449 + 1.59109, 2.43080, 2.63497,
450 + .02594, .01242, 67.41640, 2.86056, 2.33333,
451 + 1.82577, 2.65902, 2.86148,
452 + .02659, .01279, 73.33390, 3.08396, 2.56083,
453 + 2.05818, 2.88401, 3.08490,
454 + .02720, .01313, 79.09486, 3.30298, 2.78437,
455 + 2.28740, 3.10449, 3.30394 /
456 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
457 + .02782, .01348, 84.92371, 3.52871, 3.01309,
458 + 2.51936, 3.33164, 3.52969,
459 + .02842, .01383, 90.81282, 3.75849, 3.24651,
460 + 2.75716, 3.56279, 3.75948,
461 + .02900, .01415, 96.52387, 3.98360, 3.47516,
462 + 2.99007, 3.78917, 3.98462,
463 + .02954, .01446, 101.95706, 4.20099, 3.69524,
464 + 3.21327, 4.00773, 4.20203,
465 + .03009, .01478, 107.58254, 4.42723, 3.92501,
466 + 3.44736, 4.23513, 4.42829,
467 + .03063, .01508, 113.10788, 4.65354, 4.15372,
468 + 3.67880, 4.46255, 4.65461,
469 + .03115, .01538, 118.52700, 4.87625, 4.37970,
470 + 3.90873, 4.68632, 4.87734,
471 + .03164, .01566, 123.62015, 5.08943, 4.59496,
472 + 4.12639, 4.90047, 5.09054 /
473 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
474 + .03214, .01595, 128.88962, 5.31095, 4.81928,
475 + 4.35407, 5.12296, 5.31207,
476 + .03264, .01623, 134.09149, 5.53275, 5.04340,
477 + 4.58092, 5.34570, 5.53389,
478 + .03311, .01650, 139.11565, 5.74889, 5.26184,
479 + 4.80212, 5.56273, 5.75005,
480 + .03356, .01676, 143.95311, 5.95847, 5.47390,
481 + 5.01717, 5.77315, 5.95965,
482 + .03402, .01702, 148.79900, 6.17189, 5.68913,
483 + 5.23451, 5.98740, 6.17309 /
484 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
485 + .01909, .00828, .83807, .43823, .00000,
486 + .00000, .23373, .43807,
487 + .01977, .00866, 1.64556, .46209, .00000,
488 + .00000, .25950, .46195,
489 + .02078, .00923, 3.08768, .50639, .00000,
490 + .00000, .30648, .50627,
491 + .02151, .00964, 4.31858, .54503, .02249,
492 + .00000, .34698, .54493,
493 + .02228, .01007, 5.69514, .59143, .07610,
494 + .00000, .39523, .59135,
495 + .02294, .01045, 7.02508, .63652, .12464,
496 + .00000, .44187, .63646,
497 + .02357, .01081, 8.43908, .68363, .17591,
498 + .00000, .49043, .68359,
499 + .02425, .01119, 10.08444, .73789, .23567,
500 + .00000, .54617, .73787 /
501 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
502 + .02483, .01152, 11.60656, .78897, .28936,
503 + .00000, .59851, .78896,
504 + .02540, .01185, 13.17104, .84151, .34473,
505 + .00000, .65224, .84152,
506 + .02585, .01210, 14.49413, .88543, .39183,
507 + .00000, .69708, .88546,
508 + .02680, .01265, 17.39697, .98601, .49733,
509 + .00939, .79956, .98607,
510 + .02763, .01312, 19.95484, 1.07925, .59415,
511 + .12286, .89436, 1.07934,
512 + .02855, .01366, 23.00819, 1.19135, .71057,
513 + .25892, 1.00816, 1.19147,
514 + .02952, .01421, 26.39984, 1.31616, .83982,
515 + .39466, 1.13469, 1.31633,
516 + .03040, .01472, 29.64888, 1.43646, .96414,
517 + .52521, 1.25650, 1.43666 /
518 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
519 + .03129, .01523, 33.09179, 1.56484, 1.09669,
520 + .66370, 1.38636, 1.56508,
521 + .03203, .01566, 36.05181, 1.67640, 1.21127,
522 + .78189, 1.49910, 1.67667,
523 + .03293, .01618, 39.75450, 1.81756, 1.35572,
524 + .93026, 1.64168, 1.81787,
525 + .03372, .01664, 43.15216, 1.94816, 1.48958,
526 + 1.06839, 1.77349, 1.94850,
527 + .03446, .01707, 46.36381, 2.07264, 1.61722,
528 + 1.20017, 1.89906, 2.07301,
529 + .03539, .01761, 50.50092, 2.23580, 1.78341,
530 + 1.36989, 2.06356, 2.23622,
531 + .03627, .01812, 54.50340, 2.39545, 1.94622,
532 + 1.53665, 2.22444, 2.39590,
533 + .03710, .01860, 58.36371, 2.55083, 2.10507,
534 + 1.69998, 2.38096, 2.55133 /
535 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
536 + .03793, .01908, 62.22844, 2.70972, 2.26627,
537 + 1.86385, 2.54096, 2.71026,
538 + .03875, .01955, 66.09988, 2.87039, 2.42973,
539 + 2.03079, 2.70268, 2.87097,
540 + .03952, .02000, 69.82244, 3.02677, 2.58881,
541 + 2.19325, 2.86005, 3.02739,
542 + .04025, .02043, 73.33282, 3.17680, 2.74091,
543 + 2.34786, 3.01098, 3.17745,
544 + .04099, .02086, 76.94306, 3.33210, 2.89889,
545 + 2.50921, 3.16719, 3.33279,
546 + .04172, .02128, 80.45716, 3.48642, 3.05506,
547 + 2.66760, 3.32237, 3.48714,
548 + .04241, .02168, 83.88371, 3.63758, 3.20869,
549 + 2.82431, 3.47435, 3.63834,
550 + .04307, .02206, 87.07677, 3.78138, 3.35410,
551 + 2.97165, 3.61891, 3.78218 /
552 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
553 + .04373, .02245, 90.36282, 3.93016, 3.50501,
554 + 3.12520, 3.76844, 3.93099,
555 + .04439, .02283, 93.58252, 4.07833, 3.65494,
556 + 3.27730, 3.91734, 4.07920,
557 + .04502, .02320, 96.67362, 4.22205, 3.80042,
558 + 3.42494, 4.06175, 4.22294,
559 + .04562, .02355, 99.63385, 4.36082, 3.94107,
560 + 3.56791, 4.20118, 4.36176,
561 + .04623, .02390, 102.57716, 4.50141, 4.08305,
562 + 3.71159, 4.34240, 4.50237 /
563 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
564 + .02595, .01175, .79730, .37062, .00000,
565 + .00000, .19852, .37044,
566 + .02690, .01231, 1.52392, .39205, .00000,
567 + .00000, .22150, .39191,
568 + .02830, .01314, 2.78871, .43074, .00000,
569 + .00000, .26234, .43065,
570 + .02932, .01373, 3.84318, .46379, .01904,
571 + .00000, .29690, .46375,
572 + .03038, .01436, 4.99933, .50280, .06415,
573 + .00000, .33741, .50281,
574 + .03129, .01490, 6.09748, .54016, .10445,
575 + .00000, .37602, .54021,
576 + .03217, .01542, 7.24885, .57880, .14656,
577 + .00000, .41582, .57889,
578 + .03310, .01597, 8.57045, .62286, .19517,
579 + .00000, .46108, .62300 /
580 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
581 + .03391, .01645, 9.77671, .66389, .23840,
582 + .00000, .50313, .66407,
583 + .03469, .01691, 11.00267, .70574, .28262,
584 + .00000, .54593, .70596,
585 + .03531, .01728, 12.03019, .74052, .32000,
586 + .00000, .58145, .74077,
587 + .03663, .01806, 14.25292, .81931, .40289,
588 + .00761, .66178, .81963,
589 + .03776, .01873, 16.17751, .89153, .47811,
590 + .09596, .73526, .89190,
591 + .03903, .01948, 18.44142, .97743, .56761,
592 + .20123, .82253, .97788,
593 + .04035, .02026, 20.91859, 1.07202, .66588,
594 + .30492, .91849, 1.07253,
595 + .04155, .02097, 23.25810, 1.16222, .75941,
596 + .40361, 1.00991, 1.16280 /
597 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
598 + .04276, .02169, 25.70501, 1.25756, .85818,
599 + .50729, 1.10644, 1.25821,
600 + .04377, .02229, 27.78354, 1.33966, .94279,
601 + .59498, 1.18950, 1.34037,
602 + .04499, .02301, 30.35303, 1.44263, 1.04853,
603 + .70407, 1.29361, 1.44341,
604 + .04607, .02366, 32.68432, 1.53709, 1.14569,
605 + .80480, 1.38905, 1.53794,
606 + .04707, .02424, 34.86613, 1.62646, 1.23766,
607 + .90019, 1.47930, 1.62736,
608 + .04833, .02499, 37.64373, 1.74258, 1.35634,
609 + 1.02193, 1.59650, 1.74355,
610 + .04952, .02570, 40.30076, 1.85523, 1.47163,
611 + 1.14056, 1.71015, 1.85628,
612 + .05063, .02636, 42.83784, 1.96405, 1.58328,
613 + 1.25589, 1.81989, 1.96517 /
614 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
615 + .05175, .02702, 45.34848, 2.07439, 1.69560,
616 + 1.37056, 1.93112, 2.07557,
617 + .05284, .02766, 47.84043, 2.18518, 1.80872,
618 + 1.48661, 2.04277, 2.18643,
619 + .05388, .02828, 50.21461, 2.29228, 1.91806,
620 + 1.59876, 2.15067, 2.29359,
621 + .05486, .02886, 52.43157, 2.39430, 2.02184,
622 + 1.70472, 2.25342, 2.39568,
623 + .05585, .02944, 54.69545, 2.49933, 2.12907,
624 + 1.81473, 2.35918, 2.50077,
625 + .05682, .03001, 56.87657, 2.60295, 2.23428,
626 + 1.92189, 2.46350, 2.60445,
627 + .05774, .03056, 58.99041, 2.70395, 2.33731,
628 + 2.02745, 2.56517, 2.70551,
629 + .05862, .03107, 60.94112, 2.79940, 2.43415,
630 + 2.12599, 2.66123, 2.80101 /
631 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
632 + .05950, .03159, 62.93736, 2.89771, 2.53423,
633 + 2.22826, 2.76016, 2.89938,
634 + .06038, .03211, 64.87665, 2.99504, 2.63306,
635 + 2.32896, 2.85808, 2.99677,
636 + .06121, .03260, 66.72620, 3.08899, 2.72850,
637 + 2.42622, 2.95259, 3.09077,
638 + .06201, .03306, 68.48701, 3.17931, 2.82037,
639 + 2.52002, 3.04344, 3.18114,
640 + .06281, .03354, 70.22265, 3.27028, 2.91256,
641 + 2.61370, 3.13494, 3.27216 /
642 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
643 + .03111, .01450, .78138, .33646, .00000,
644 + .00000, .18082, .33655,
645 + .03227, .01520, 1.46454, .35651, .00000,
646 + .00000, .20225, .35666,
647 + .03397, .01623, 2.63428, .39214, .00000,
648 + .00000, .23981, .39238,
649 + .03520, .01697, 3.59525, .42222, .01722,
650 + .00000, .27123, .42253,
651 + .03649, .01774, 4.63595, .45737, .05791,
652 + .00000, .30772, .45775,
653 + .03759, .01841, 5.61400, .49073, .09394,
654 + .00000, .34220, .49118,
655 + .03865, .01905, 6.63056, .52502, .13136,
656 + .00000, .37753, .52552,
657 + .03978, .01973, 7.78757, .56389, .17430,
658 + .00000, .41747, .56446 /
659 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
660 + .04076, .02032, 8.83476, .59984, .21225,
661 + .00000, .45434, .60047,
662 + .04170, .02089, 9.89163, .63632, .25087,
663 + .00000, .49167, .63700,
664 + .04245, .02134, 10.77249, .66652, .28340,
665 + .00000, .52253, .66724,
666 + .04403, .02230, 12.66118, .73450, .35508,
667 + .00671, .59189, .73533,
668 + .04539, .02311, 14.27852, .79637, .41968,
669 + .08272, .65489, .79727,
670 + .04692, .02403, 16.16363, .86947, .49605,
671 + .17295, .72923, .87048,
672 + .04850, .02498, 18.20696, .94941, .57933,
673 + .26113, .81041, .95051,
674 + .04994, .02585, 20.11963, 1.02515, .65808,
675 + .34453, .88724, 1.02634 /
676 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
677 + .05139, .02672, 22.10375, 1.10472, .74076,
678 + .43162, .96789, 1.10601,
679 + .05259, .02744, 23.77642, 1.17286, .81119,
680 + .50486, 1.03689, 1.17422,
681 + .05405, .02832, 25.82881, 1.25785, .89872,
682 + .59550, 1.12291, 1.25931,
683 + .05534, .02909, 27.67772, 1.33542, .97874,
684 + .67876, 1.20136, 1.33696,
685 + .05653, .02980, 29.39721, 1.40845, 1.05413,
686 + .75724, 1.27519, 1.41007,
687 + .05803, .03070, 31.56986, 1.50283, 1.15089,
688 + .85684, 1.37056, 1.50456,
689 + .05945, .03155, 33.63335, 1.59392, 1.24439,
690 + .95339, 1.46255, 1.59574,
691 + .06077, .03234, 35.59126, 1.68150, 1.33453,
692 + 1.04684, 1.55096, 1.68340 /
693 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
694 + .06210, .03313, 37.51412, 1.76982, 1.42471,
695 + 1.13923, 1.64009, 1.77181,
696 + .06339, .03390, 39.41160, 1.85813, 1.51515,
697 + 1.23235, 1.72918, 1.86021,
698 + .06462, .03463, 41.20873, 1.94313, 1.60219,
699 + 1.32196, 1.81490, 1.94529,
700 + .06578, .03532, 42.87613, 2.02374, 1.68444,
701 + 1.40623, 1.89618, 2.02598,
702 + .06694, .03601, 44.57117, 2.10644, 1.76914,
703 + 1.49344, 1.97955, 2.10876,
704 + .06809, .03669, 46.19319, 2.18766, 1.85187,
705 + 1.57799, 2.06141, 2.19006,
706 + .06918, .03734, 47.75922, 2.26660, 1.93264,
707 + 1.66106, 2.14095, 2.26907,
708 + .07021, .03795, 49.19485, 2.34087, 2.00823,
709 + 1.73825, 2.21578, 2.34342 /
710 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
711 + .07125, .03856, 50.65880, 2.41717, 2.08614,
712 + 1.81816, 2.29264, 2.41979,
713 + .07227, .03917, 52.07293, 2.49242, 2.16279,
714 + 1.89653, 2.36844, 2.49511,
715 + .07325, .03975, 53.41577, 2.56484, 2.23658,
716 + 1.97201, 2.44137, 2.56760,
717 + .07419, .04030, 54.68932, 2.63427, 2.30743,
718 + 2.04461, 2.51128, 2.63709,
719 + .07513, .04085, 55.93709, 2.70394, 2.37825,
720 + 2.11683, 2.58144, 2.70683 /
721 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
722 + .03544, .01690, .77516, .31455, .00000,
723 + .00000, .16948, .31492,
724 + .03677, .01772, 1.42899, .33364, .00000,
725 + .00000, .18985, .33409,
726 + .03873, .01891, 2.53455, .36719, .00000,
727 + .00000, .22519, .36775,
728 + .04014, .01978, 3.43279, .39527, .01601,
729 + .00000, .25451, .39592,
730 + .04161, .02068, 4.39661, .42785, .05376,
731 + .00000, .28833, .42859,
732 + .04288, .02145, 5.29524, .45857, .08698,
733 + .00000, .32009, .45939,
734 + .04409, .02220, 6.22317, .49000, .12132,
735 + .00000, .35249, .49090,
736 + .04538, .02298, 7.27262, .52547, .16055,
737 + .00000, .38896, .52645 /
738 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
739 + .04650, .02366, 8.21653, .55812, .19506,
740 + .00000, .42246, .55917,
741 + .04757, .02432, 9.16418, .59112, .23006,
742 + .00000, .45625, .59224,
743 + .04843, .02484, 9.95073, .61836, .25945,
744 + .00000, .48411, .61954,
745 + .05024, .02594, 11.62599, .67939, .32393,
746 + .00612, .54643, .68069,
747 + .05179, .02689, 13.04862, .73464, .38174,
748 + .07425, .60274, .73604,
749 + .05352, .02794, 14.69537, .79961, .44975,
750 + .15490, .66886, .80113,
751 + .05532, .02903, 16.46778, .87028, .52355,
752 + .23325, .74069, .87192,
753 + .05695, .03002, 18.11574, .93692, .59301,
754 + .30702, .80836, .93867 /
755 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
756 + .05860, .03102, 19.81475, 1.00661, .66561,
757 + .38372, .87906, 1.00848,
758 + .05997, .03185, 21.23887, 1.06604, .72719,
759 + .44794, .93930, 1.06801,
760 + .06162, .03284, 22.97646, 1.13988, .80342,
761 + .52710, 1.01410, 1.14196,
762 + .06308, .03372, 24.53336, 1.20699, .87283,
763 + .59954, 1.08205, 1.20917,
764 + .06442, .03453, 25.97441, 1.26997, .93802,
765 + .66760, 1.14578, 1.27225,
766 + .06612, .03555, 27.78477, 1.35103, 1.02132,
767 + .75361, 1.22776, 1.35342,
768 + .06771, .03651, 29.49487, 1.42895, 1.10152,
769 + .83667, 1.30653, 1.43145,
770 + .06921, .03741, 31.10970, 1.50360, 1.17856,
771 + .91679, 1.38197, 1.50621 /
772 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
773 + .07070, .03830, 32.68634, 1.57859, 1.25533,
774 + .99567, 1.45772, 1.58131,
775 + .07216, .03917, 34.23527, 1.65332, 1.33207,
776 + 1.07493, 1.53319, 1.65615,
777 + .07354, .04000, 35.69566, 1.72503, 1.40570,
778 + 1.15096, 1.60558, 1.72795,
779 + .07484, .04077, 37.04387, 1.79280, 1.47504,
780 + 1.22221, 1.67399, 1.79581,
781 + .07615, .04155, 38.40977, 1.86215, 1.54627,
782 + 1.29579, 1.74398, 1.86527,
783 + .07743, .04231, 39.70981, 1.93004, 1.61559,
784 + 1.36685, 1.81246, 1.93324,
785 + .07865, .04304, 40.96140, 1.99586, 1.68314,
786 + 1.43654, 1.87886, 1.99915,
787 + .07980, .04372, 42.10275, 2.05760, 1.74613,
788 + 1.50106, 1.94113, 2.06098 /
789 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
790 + .08097, .04441, 43.26353, 2.12089, 1.81095,
791 + 1.56774, 2.00496, 2.12436,
792 + .08212, .04509, 44.37968, 2.18314, 1.87452,
793 + 1.63295, 2.06772, 2.18668,
794 + .08321, .04574, 45.43599, 2.24290, 1.93559,
795 + 1.69561, 2.12797, 2.24653,
796 + .08425, .04635, 46.43482, 2.30008, 1.99411,
797 + 1.75576, 2.18562, 2.30378,
798 + .08530, .04697, 47.40864, 2.35731, 2.05243,
799 + 1.81542, 2.24329, 2.36108 /
800 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
801 + .03929, .01915, .77703, .29942, .00000,
802 + .00000, .16146, .29983,
803 + .04077, .02007, 1.40849, .31777, .00000,
804 + .00000, .18099, .31828,
805 + .04295, .02142, 2.46522, .34973, .00000,
806 + .00000, .21461, .35038,
807 + .04453, .02240, 3.31594, .37629, .01510,
808 + .00000, .24233, .37704,
809 + .04617, .02341, 4.22171, .40691, .05061,
810 + .00000, .27411, .40777,
811 + .04758, .02427, 5.06062, .43565, .08172,
812 + .00000, .30381, .43661,
813 + .04893, .02510, 5.92212, .46494, .11375,
814 + .00000, .33400, .46599,
815 + .05036, .02599, 6.89127, .49787, .15021,
816 + .00000, .36787, .49902 /
817 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
818 + .05160, .02675, 7.75841, .52806, .18217,
819 + .00000, .39886, .52930,
820 + .05279, .02748, 8.62515, .55848, .21448,
821 + .00000, .43002, .55980,
822 + .05374, .02806, 9.34204, .58354, .24155,
823 + .00000, .45566, .58492,
824 + .05574, .02929, 10.86053, .63946, .30072,
825 + .00568, .51277, .64099,
826 + .05746, .03033, 12.14089, .68986, .35355,
827 + .06801, .56417, .69151,
828 + .05937, .03150, 13.61435, .74891, .41546,
829 + .14163, .62428, .75069,
830 + .06136, .03272, 15.19092, .81285, .48235,
831 + .21282, .68932, .81478,
832 + .06316, .03381, 16.64857, .87291, .54506,
833 + .27958, .75033, .87496 /
834 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
835 + .06498, .03491, 18.14355, .93548, .61037,
836 + .34874, .81385, .93767,
837 + .06648, .03582, 19.39073, .98867, .66558,
838 + .40645, .86780, .99096,
839 + .06830, .03692, 20.90516, 1.05451, .73369,
840 + .47734, .93454, 1.05694,
841 + .06991, .03789, 22.25584, 1.11417, .79553,
842 + .54203, .99499, 1.11672,
843 + .07138, .03878, 23.50086, 1.16999, .85342,
844 + .60262, 1.05151, 1.17265,
845 + .07324, .03990, 25.05754, 1.24160, .92716,
846 + .67893, 1.12399, 1.24439,
847 + .07499, .04095, 26.52138, 1.31020, .99792,
848 + .75240, 1.19339, 1.31313,
849 + .07663, .04194, 27.89814, 1.37574, 1.06571,
850 + .82307, 1.25967, 1.37879 /
851 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
852 + .07826, .04291, 29.23520, 1.44135, 1.13302,
853 + .89240, 1.32600, 1.44452,
854 + .07985, .04386, 30.54384, 1.50657, 1.20014,
855 + .96189, 1.39191, 1.50985,
856 + .08136, .04476, 31.77293, 1.56898, 1.26436,
857 + 1.02838, 1.45497, 1.57237,
858 + .08278, .04561, 32.90271, 1.62779, 1.32467,
859 + 1.09050, 1.51438, 1.63129,
860 + .08420, .04645, 34.04403, 1.68786, 1.38651,
861 + 1.15454, 1.57504, 1.69147,
862 + .08560, .04728, 35.12527, 1.74648, 1.44650,
863 + 1.21620, 1.63424, 1.75019,
864 + .08693, .04807, 36.16378, 1.80322, 1.50487,
865 + 1.27656, 1.69152, 1.80703,
866 + .08818, .04881, 37.10635, 1.85630, 1.55915,
867 + 1.33230, 1.74510, 1.86020 /
868 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
869 + .08945, .04956, 38.06282, 1.91062, 1.61490,
870 + 1.38981, 1.79992, 1.91462,
871 + .09070, .05030, 38.97885, 1.96391, 1.66946,
872 + 1.44591, 1.85370, 1.96800,
873 + .09189, .05100, 39.84321, 2.01497, 1.72177,
874 + 1.49973, 1.90523, 2.01916,
875 + .09302, .05166, 40.65842, 2.06375, 1.77180,
876 + 1.55130, 1.95445, 2.06802,
877 + .09416, .05233, 41.44955, 2.11244, 1.82156,
878 + 1.60233, 2.00357, 2.11679 /
879 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
880 + .05446, .02855, .80348, .25812, .00000,
881 + .00000, .13976, .25915,
882 + .05655, .02988, 1.36883, .27424, .00000,
883 + .00000, .15687, .27543,
884 + .05961, .03182, 2.28143, .30151, .00000,
885 + .00000, .18552, .30294,
886 + .06182, .03321, 2.99377, .32368, .01250,
887 + .00000, .20864, .32528,
888 + .06410, .03464, 3.73292, .34874, .04170,
889 + .00000, .23467, .35052,
890 + .06606, .03587, 4.40244, .37187, .06687,
891 + .00000, .25861, .37381,
892 + .06794, .03704, 5.07746, .39515, .09246,
893 + .00000, .28265, .39724,
894 + .06992, .03827, 5.82346, .42102, .12126,
895 + .00000, .30930, .42326 /
896 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
897 + .07163, .03933, 6.47934, .44443, .14618,
898 + .00000, .33338, .44681,
899 + .07327, .04035, 7.12537, .46778, .17114,
900 + .00000, .35735, .47028,
901 + .07457, .04115, 7.65349, .48685, .19189,
902 + .00000, .37691, .48946,
903 + .07731, .04285, 8.75111, .52890, .23669,
904 + .00447, .41997, .53172,
905 + .07965, .04428, 9.65441, .56625, .27613,
906 + .05125, .45816, .56926,
907 + .08225, .04587, 10.67371, .60942, .32176,
908 + .10610, .50225, .61265,
909 + .08494, .04752, 11.74264, .65552, .37039,
910 + .15830, .54928, .65896,
911 + .08737, .04899, 12.71214, .69825, .41538,
912 + .20664, .59282, .70188 /
913 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
914 + .08981, .05047, 13.68897, .74222, .46168,
915 + .25612, .63761, .74605,
916 + .09182, .05169, 14.49043, .77915, .50037,
917 + .29694, .67520, .78315,
918 + .09425, .05315, 15.44767, .82437, .54757,
919 + .34653, .72120, .82856,
920 + .09639, .05443, 16.28812, .86490, .58997,
921 + .39132, .76240, .86926,
922 + .09834, .05560, 17.05211, .90245, .62930,
923 + .43289, .80057, .90697,
924 + .10080, .05707, 17.99090, .95008, .67882,
925 + .48463, .84895, .95479,
926 + .10310, .05844, 18.85958, .99521, .72583,
927 + .53394, .89478, 1.00011,
928 + .10525, .05972, 19.66506, 1.03790, .77044,
929 + .58093, .93812, 1.04298 /
930 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
931 + .10739, .06098, 20.43300, 1.08015, .81423,
932 + .62649, .98101, 1.08540,
933 + .10947, .06220, 21.17466, 1.12177, .85752,
934 + .67178, 1.02324, 1.12719,
935 + .11143, .06336, 21.86164, 1.16124, .89858,
936 + .71473, 1.06328, 1.16682,
937 + .11326, .06443, 22.48302, 1.19808, .93676,
938 + .75449, 1.10065, 1.20381,
939 + .11511, .06551, 23.10444, 1.23544, .97565,
940 + .79520, 1.13854, 1.24131,
941 + .11690, .06656, 23.68260, 1.27154, 1.01299,
942 + .83400, 1.17514, 1.27755,
943 + .11862, .06756, 24.23339, 1.30627, 1.04913,
944 + .87179, 1.21036, 1.31242,
945 + .12022, .06849, 24.72426, 1.33844, 1.08240,
946 + .90634, 1.24297, 1.34472 /
947 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
948 + .12184, .06943, 25.21845, 1.37118, 1.11640,
949 + .94181, 1.27617, 1.37759,
950 + .12343, .07035, 25.68434, 1.40303, 1.14940,
951 + .97613, 1.30846, 1.40957,
952 + .12494, .07122, 26.11907, 1.43336, 1.18083,
953 + 1.00884, 1.33920, 1.44002,
954 + .12637, .07205, 26.52517, 1.46215, 1.21074,
955 + 1.04003, 1.36839, 1.46893,
956 + .12781, .07287, 26.91218, 1.49065, 1.24021,
957 + 1.07061, 1.39728, 1.49754 /
958 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
959 + .07677, .04359, .88587, .22604, .00000,
960 + .00000, .12277, .22826,
961 + .07973, .04547, 1.38563, .24002, .00000,
962 + .00000, .13759, .24250,
963 + .08404, .04818, 2.15814, .26289, .00000,
964 + .00000, .16165, .26576,
965 + .08713, .05011, 2.74022, .28102, .01019,
966 + .00000, .18061, .28416,
967 + .09030, .05209, 3.32704, .30110, .03381,
968 + .00000, .20153, .30452,
969 + .09301, .05377, 3.84523, .31929, .05382,
970 + .00000, .22042, .32295,
971 + .09560, .05536, 4.35669, .33734, .07387,
972 + .00000, .23913, .34122,
973 + .09832, .05703, 4.91048, .35712, .09613,
974 + .00000, .25960, .36125 /
975 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
976 + .10066, .05846, 5.38763, .37476, .11513,
977 + .00000, .27783, .37909,
978 + .10290, .05983, 5.84963, .39214, .13395,
979 + .00000, .29576, .39668,
980 + .10467, .06090, 6.22220, .40622, .14946,
981 + .00000, .31028, .41092,
982 + .10838, .06315, 6.97908, .43681, .18248,
983 + .00344, .34177, .44183,
984 + .11152, .06504, 7.58371, .46354, .21109,
985 + .03765, .36925, .46883,
986 + .11501, .06713, 8.25011, .49395, .24370,
987 + .07743, .40049, .49956,
988 + .11859, .06926, 8.93215, .52590, .27791,
989 + .11461, .43328, .53182,
990 + .12181, .07117, 9.53643, .55505, .30909,
991 + .14855, .46318, .56125 /
992 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
993 + .12502, .07306, 10.13223, .58462, .34073,
994 + .18281, .49348, .59109,
995 + .12767, .07461, 10.61094, .60913, .36682,
996 + .21072, .51859, .61583,
997 + .13083, .07646, 11.17095, .63873, .39825,
998 + .24419, .54891, .64571,
999 + .13361, .07807, 11.65308, .66492, .42614,
1000 + .27407, .57573, .67214,
1001 + .13614, .07954, 12.08371, .68892, .45172,
1002 + .30151, .60030, .69636,
1003 + .13930, .08136, 12.60056, .71892, .48350,
1004 + .33522, .63101, .72663,
1005 + .14225, .08305, 13.06878, .74700, .51331,
1006 + .36696, .65973, .75496,
1007 + .14499, .08462, 13.49496, .77326, .54128,
1008 + .39689, .68661, .78146 /
1009 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
1010 + .14770, .08616, 13.89084, .79887, .56836,
1011 + .42551, .71281, .80730,
1012 + .15032, .08765, 14.26642, .82383, .59486,
1013 + .45370, .73835, .83249,
1014 + .15279, .08904, 14.60765, .84725, .61974,
1015 + .48016, .76231, .85611,
1016 + .15509, .09033, 14.90894, .86884, .64260,
1017 + .50438, .78440, .87789,
1018 + .15739, .09162, 15.20620, .89056, .66572,
1019 + .52900, .80663, .89981,
1020 + .15962, .09286, 15.47498, .91127, .68764,
1021 + .55217, .82782, .92070,
1022 + .16173, .09404, 15.72837, .93106, .70871,
1023 + .57461, .84807, .94067,
1024 + .16371, .09513, 15.94728, .94916, .72788,
1025 + .59489, .86660, .95894 /
1026 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
1027 + .16570, .09623, 16.16535, .96746, .74736,
1028 + .61559, .88534, .97741,
1029 + .16764, .09730, 16.36548, .98508, .76606,
1030 + .63541, .90337, .99518,
1031 + .16948, .09831, 16.54889, 1.00171, .78374,
1032 + .65417, .92041, 1.01197,
1033 + .17122, .09927, 16.71767, 1.01739, .80045,
1034 + .67195, .93648, 1.02780,
1035 + .17296, .10022, 16.87316, 1.03273, .81674,
1036 + .68919, .95219, 1.04328 /
1037 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
1038 + .09480, .05629, .96861, .21076, .00000,
1039 + .00000, .11476, .21424,
1040 + .09842, .05855, 1.42563, .22347, .00000,
1041 + .00000, .12827, .22729,
1042 + .10367, .06179, 2.11509, .24384, .00000,
1043 + .00000, .14978, .24815,
1044 + .10741, .06409, 2.62269, .25972, .00895,
1045 + .00000, .16647, .26439,
1046 + .11124, .06642, 3.12497, .27709, .02962,
1047 + .00000, .18464, .28211,
1048 + .11449, .06839, 3.56125, .29262, .04692,
1049 + .00000, .20085, .29795,
1050 + .11759, .07025, 3.98582, .30789, .06409,
1051 + .00000, .21677, .31351,
1052 + .12084, .07221, 4.43935, .32448, .08300,
1053 + .00000, .23404, .33040 /
1054 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
1055 + .12363, .07387, 4.82495, .33913, .09898,
1056 + .00000, .24926, .34531,
1057 + .12629, .07545, 5.19407, .35346, .11469,
1058 + .00000, .26412, .35988,
1059 + .12839, .07669, 5.48907, .36499, .12757,
1060 + .00000, .27609, .37161,
1061 + .13278, .07928, 6.07883, .38980, .15473,
1062 + .00292, .30179, .39682,
1063 + .13647, .08144, 6.53980, .41124, .17803,
1064 + .03096, .32398, .41860,
1065 + .14055, .08380, 7.03966, .43540, .20432,
1066 + .06339, .34895, .44313,
1067 + .14473, .08622, 7.54267, .46048, .23160,
1068 + .09336, .37486, .46859,
1069 + .14846, .08836, 7.98088, .48313, .25623,
1070 + .12045, .39825, .49157 /
1071 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
1072 + .15218, .09048, 8.40615, .50587, .28098,
1073 + .14755, .42174, .51465,
1074 + .15523, .09221, 8.74256, .52455, .30123,
1075 + .16944, .44102, .53360,
1076 + .15886, .09426, 9.13012, .54690, .32539,
1077 + .19548, .46409, .55628,
1078 + .16204, .09604, 9.45880, .56651, .34666,
1079 + .21855, .48432, .57616,
1080 + .16493, .09765, 9.74832, .58433, .36604,
1081 + .23958, .50272, .59424,
1082 + .16852, .09965, 10.08963, .60640, .38988,
1083 + .26519, .52550, .61662,
1084 + .17186, .10149, 10.39363, .62686, .41205,
1085 + .28912, .54661, .63737,
1086 + .17495, .10319, 10.66623, .64584, .43271,
1087 + .31153, .56622, .65663 /
1088 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
1089 + .17798, .10484, 10.91364, .66417, .45252,
1090 + .33276, .58514, .67521,
1091 + .18092, .10644, 11.14490, .68189, .47178,
1092 + .35353, .60345, .69319,
1093 + .18367, .10793, 11.35151, .69839, .48972,
1094 + .37290, .62050, .70993,
1095 + .18622, .10930, 11.52981, .71347, .50608,
1096 + .39049, .63608, .72522,
1097 + .18878, .11067, 11.70373, .72855, .52254,
1098 + .40830, .65168, .74052,
1099 + .19124, .11198, 11.85636, .74278, .53800,
1100 + .42491, .66640, .75496,
1101 + .19357, .11322, 11.99902, .75632, .55281,
1102 + .44094, .68041, .76869,
1103 + .19574, .11436, 12.11831, .76858, .56616,
1104 + .45530, .69311, .78113 /
1105 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
1106 + .19791, .11551, 12.23604, .78093, .57967,
1107 + .46991, .70590, .79366,
1108 + .20003, .11662, 12.34077, .79270, .59254,
1109 + .48380, .71811, .80561,
1110 + .20204, .11767, 12.43482, .80375, .60465,
1111 + .49688, .72957, .81682,
1112 + .20393, .11865, 12.51985, .81411, .61604,
1113 + .50922, .74032, .82734,
1114 + .20581, .11963, 12.59451, .82416, .62705,
1115 + .52111, .75074, .83754 /
1116 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
1117 + .11076, .06769, 1.04567, .20133, .00000,
1118 + .00000, .10987, .20611,
1119 + .11493, .07023, 1.46950, .21310, .00000,
1120 + .00000, .12244, .21829,
1121 + .12093, .07385, 2.09799, .23168, .00000,
1122 + .00000, .14216, .23746,
1123 + .12520, .07641, 2.55261, .24600, .00812,
1124 + .00000, .15729, .25220,
1125 + .12955, .07900, 2.99596, .26148, .02680,
1126 + .00000, .17359, .26810,
1127 + .13323, .08117, 3.37627, .27521, .04229,
1128 + .00000, .18800, .28218,
1129 + .13673, .08323, 3.74234, .28861, .05756,
1130 + .00000, .20205, .29592,
1131 + .14040, .08537, 4.12930, .30306, .07425,
1132 + .00000, .21718, .31072 /
1133 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
1134 + .14353, .08719, 4.45489, .31573, .08827,
1135 + .00000, .23042, .32368,
1136 + .14651, .08891, 4.76377, .32803, .10197,
1137 + .00000, .24328, .33627,
1138 + .14886, .09026, 5.00887, .33790, .11315,
1139 + .00000, .25358, .34636,
1140 + .15376, .09306, 5.49252, .35896, .13655,
1141 + .00257, .27554, .36787,
1142 + .15787, .09539, 5.86368, .37700, .15647,
1143 + .02670, .29435, .38630,
1144 + .16238, .09794, 6.26071, .39716, .17877,
1145 + .05448, .31534, .40688,
1146 + .16700, .10052, 6.65466, .41791, .20172,
1147 + .07993, .33693, .42805,
1148 + .17111, .10280, 6.99305, .43648, .22228,
1149 + .10276, .35626, .44699 /
1150 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
1151 + .17519, .10505, 7.31705, .45499, .24280,
1152 + .12544, .37553, .46587,
1153 + .17852, .10687, 7.56992, .47007, .25947,
1154 + .14364, .39124, .48125,
1155 + .18248, .10903, 7.85721, .48798, .27922,
1156 + .16516, .40988, .49952,
1157 + .18593, .11089, 8.09765, .50358, .29650,
1158 + .18411, .42613, .51543,
1159 + .18905, .11257, 8.30685, .51768, .31215,
1160 + .20129, .44081, .52980,
1161 + .19293, .11464, 8.54915, .53498, .33127,
1162 + .22207, .45884, .54744,
1163 + .19652, .11655, 8.76156, .55090, .34893,
1164 + .24136, .47545, .56368,
1165 + .19984, .11830, 8.94935, .56558, .36530,
1166 + .25933, .49076, .57864 /
1167 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
1168 + .20308, .12000, 9.11574, .57963, .38086,
1169 + .27624, .50542, .59296,
1170 + .20621, .12163, 9.26894, .59313, .39591,
1171 + .29269, .51952, .60673,
1172 + .20913, .12314, 9.40339, .60561, .40986,
1173 + .30796, .53257, .61946,
1174 + .21183, .12453, 9.51647, .61693, .42249,
1175 + .32174, .54441, .63100,
1176 + .21453, .12591, 9.62544, .62819, .43514,
1177 + .33564, .55621, .64250,
1178 + .21711, .12723, 9.71766, .63873, .44694,
1179 + .34852, .56725, .65324,
1180 + .21957, .12848, 9.80306, .64871, .45820,
1181 + .36090, .57772, .66343,
1182 + .22183, .12962, 9.87133, .65767, .46828,
1183 + .37192, .58714, .67258 /
1184 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
1185 + .22411, .13076, 9.93796, .66667, .47845,
1186 + .38311, .59658, .68175,
1187 + .22631, .13186, 9.99460, .67517, .48808,
1188 + .39368, .60553, .69043,
1189 + .22839, .13290, 10.04397, .68311, .49709,
1190 + .40360, .61389, .69854,
1191 + .23036, .13387, 10.08745, .69051, .50554,
1192 + .41292, .62170, .70610,
1193 + .23230, .13482, 10.12261, .69763, .51365,
1194 + .42184, .62921, .71337 /
1195 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
1196 + .12543, .07816, 1.11475, .19460, .00000,
1197 + .00000, .10646, .20073,
1198 + .13005, .08092, 1.51125, .20561, .00000,
1199 + .00000, .11829, .21221,
1200 + .13669, .08484, 2.09086, .22278, .00000,
1201 + .00000, .13662, .23005,
1202 + .14140, .08759, 2.50405, .23589, .00750,
1203 + .00000, .15054, .24362,
1204 + .14618, .09036, 2.90211, .24994, .02468,
1205 + .00000, .16543, .25814,
1206 + .15022, .09268, 3.24004, .26229, .03883,
1207 + .00000, .17849, .27088,
1208 + .15405, .09487, 3.56238, .27428, .05269,
1209 + .00000, .19114, .28324,
1210 + .15805, .09715, 3.90016, .28713, .06777,
1211 + .00000, .20469, .29648 /
1212 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
1213 + .16146, .09907, 4.18194, .29833, .08034,
1214 + .00000, .21648, .30801,
1215 + .16470, .10089, 4.44711, .30915, .09258,
1216 + .00000, .22787, .31914,
1217 + .16725, .10232, 4.65622, .31779, .10253,
1218 + .00000, .23696, .32802,
1219 + .17255, .10526, 5.06433, .33612, .12323,
1220 + .00232, .25622, .34684,
1221 + .17697, .10769, 5.37234, .35170, .14073,
1222 + .02365, .27258, .36285,
1223 + .18183, .11034, 5.69781, .36899, .16020,
1224 + .04813, .29073, .38058,
1225 + .18677, .11302, 6.01668, .38665, .18011,
1226 + .07038, .30927, .39870,
1227 + .19116, .11538, 6.28704, .40235, .19782,
1228 + .09022, .32575, .41479 /
1229 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
1230 + .19550, .11769, 6.54269, .41788, .21539,
1231 + .10983, .34207, .43072,
1232 + .19903, .11956, 6.73986, .43046, .22958,
1233 + .12547, .35528, .44361,
1234 + .20323, .12176, 6.96067, .44529, .24630,
1235 + .14387, .37087, .45881,
1236 + .20687, .12366, 7.14308, .45813, .26085,
1237 + .15999, .38438, .47197,
1238 + .21016, .12536, 7.29991, .46966, .27397,
1239 + .17454, .39652, .48380,
1240 + .21422, .12745, 7.47826, .48373, .28989,
1241 + .19204, .41134, .49821,
1242 + .21798, .12937, 7.63209, .49657, .30451,
1243 + .20820, .42489, .51137,
1244 + .22144, .13112, 7.76618, .50834, .31800,
1245 + .22319, .43731, .52344 /
1246 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
1247 + .22481, .13282, 7.88176, .51952, .33074,
1248 + .23721, .44913, .53490,
1249 + .22806, .13444, 7.98629, .53020, .34300,
1250 + .25080, .46043, .54585,
1251 + .23108, .13594, 8.07600, .54001, .35430,
1252 + .26335, .47083, .55592,
1253 + .23386, .13731, 8.14908, .54885, .36448,
1254 + .27461, .48020, .56497,
1255 + .23663, .13867, 8.21849, .55760, .37465,
1256 + .28594, .48950, .57396,
1257 + .23928, .13996, 8.27428, .56572, .38406,
1258 + .29638, .49814, .58228,
1259 + .24179, .14118, 8.32534, .57338, .39303,
1260 + .30639, .50631, .59015,
1261 + .24410, .14228, 8.36335, .58020, .40099,
1262 + .31525, .51359, .59715 /
1263 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
1264 + .24642, .14339, 8.39982, .58701, .40901,
1265 + .32422, .52087, .60414,
1266 + .24866, .14446, 8.42838, .59341, .41656,
1267 + .33265, .52773, .61071,
1268 + .25077, .14545, 8.45183, .59935, .42359,
1269 + .34054, .53410, .61682,
1270 + .25275, .14638, 8.47137, .60487, .43017,
1271 + .34793, .54003, .62249,
1272 + .25471, .14729, 8.48404, .61011, .43643,
1273 + .35496, .54569, .62788 /
1274 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
1275 + .15228, .09713, 1.23256, .18511, .00000,
1276 + .00000, .10182, .19400,
1277 + .15765, .10018, 1.58412, .19490, .00000,
1278 + .00000, .11247, .20434,
1279 + .16532, .10449, 2.08643, .20988, .00000,
1280 + .00000, .12869, .22010,
1281 + .17071, .10749, 2.43618, .22112, .00658,
1282 + .00000, .14081, .23188,
1283 + .17616, .11049, 2.76631, .23301, .02158,
1284 + .00000, .15359, .24431,
1285 + .18075, .11299, 3.04189, .24333, .03379,
1286 + .00000, .16466, .25508,
1287 + .18508, .11534, 3.30082, .25325, .04563,
1288 + .00000, .17529, .26541,
1289 + .18958, .11776, 3.56822, .26377, .05839,
1290 + .00000, .18657, .27637 /
1291 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
1292 + .19341, .11980, 3.78801, .27284, .06893,
1293 + .00000, .19627, .28581,
1294 + .19703, .12172, 3.99218, .28153, .07911,
1295 + .00000, .20557, .29485,
1296 + .19986, .12322, 4.15156, .28843, .08733,
1297 + .00000, .21295, .30201,
1298 + .20574, .12629, 4.45607, .30290, .10429,
1299 + .00197, .22841, .31703,
1300 + .21061, .12881, 4.67877, .31505, .11846,
1301 + .01944, .24140, .32963,
1302 + .21594, .13154, 4.90894, .32837, .13407,
1303 + .03938, .25564, .34343,
1304 + .22132, .13427, 5.12923, .34180, .14984,
1305 + .05729, .27001, .35735,
1306 + .22607, .13666, 5.31145, .35358, .16373,
1307 + .07310, .28263, .36955 /
1308 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
1309 + .23075, .13899, 5.47959, .36510, .17738,
1310 + .08859, .29498, .38147,
1311 + .23453, .14086, 5.60593, .37432, .18829,
1312 + .10084, .30489, .39103,
1313 + .23900, .14304, 5.74357, .38506, .20102,
1314 + .11511, .31644, .40215,
1315 + .24286, .14491, 5.85412, .39426, .21200,
1316 + .12752, .32634, .41167,
1317 + .24632, .14657, 5.94656, .40244, .22182,
1318 + .13865, .33517, .42014,
1319 + .25059, .14861, 6.04732, .41227, .23362,
1320 + .15189, .34580, .43032,
1321 + .25450, .15045, 6.13074, .42115, .24435,
1322 + .16403, .35542, .43950,
1323 + .25809, .15213, 6.20070, .42919, .25417,
1324 + .17520, .36416, .44784 /
1325 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
1326 + .26156, .15373, 6.25651, .43670, .26333,
1327 + .18554, .37235, .45562,
1328 + .26489, .15525, 6.30448, .44381, .27208,
1329 + .19550, .38011, .46299,
1330 + .26797, .15665, 6.34288, .45026, .28009,
1331 + .20462, .38718, .46968,
1332 + .27079, .15792, 6.37051, .45597, .28722,
1333 + .21275, .39347, .47560,
1334 + .27359, .15917, 6.39528, .46159, .29430,
1335 + .22087, .39966, .48143,
1336 + .27626, .16034, 6.41057, .46670, .30078,
1337 + .22828, .40533, .48673,
1338 + .27877, .16145, 6.42374, .47150, .30692,
1339 + .23537, .41066, .49172,
1340 + .28106, .16244, 6.42876, .47569, .31231,
1341 + .24157, .41533, .49607 /
1342 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
1343 + .28335, .16343, 6.43258, .47985, .31771,
1344 + .24782, .41999, .50040,
1345 + .28555, .16437, 6.43107, .48368, .32274,
1346 + .25366, .42430, .50438,
1347 + .28762, .16524, 6.42700, .48720, .32739,
1348 + .25908, .42826, .50803,
1349 + .28955, .16606, 6.42138, .49043, .33172,
1350 + .26413, .43192, .51140,
1351 + .29145, .16685, 6.41090, .49343, .33578,
1352 + .26889, .43535, .51452 /
1353 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
1354 + .18875, .12210, 1.36786, .17529, .00000,
1355 + .00000, .09728, .18838,
1356 + .19493, .12537, 1.66593, .18365, .00000,
1357 + .00000, .10660, .19736,
1358 + .20368, .12994, 2.08093, .19615, .00000,
1359 + .00000, .12048, .21074,
1360 + .20979, .13309, 2.36186, .20536, .00563,
1361 + .00000, .13066, .22055,
1362 + .21592, .13620, 2.62024, .21495, .01838,
1363 + .00000, .14123, .23072,
1364 + .22105, .13879, 2.83162, .22313, .02862,
1365 + .00000, .15025, .23940,
1366 + .22585, .14119, 3.02659, .23091, .03843,
1367 + .00000, .15880, .24762,
1368 + .23083, .14366, 3.22430, .23906, .04890,
1369 + .00000, .16778, .25623 /
1370 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
1371 + .23504, .14572, 3.38374, .24599, .05744,
1372 + .00000, .17542, .26355,
1373 + .23900, .14764, 3.52939, .25256, .06562,
1374 + .00000, .18265, .27048,
1375 + .24209, .14914, 3.64163, .25774, .07219,
1376 + .00000, .18835, .27593,
1377 + .24845, .15218, 3.84964, .26844, .08557,
1378 + .00162, .20015, .28719,
1379 + .25368, .15464, 3.99452, .27730, .09660,
1380 + .01544, .20992, .29650,
1381 + .25935, .15728, 4.13930, .28685, .10860,
1382 + .03112, .22047, .30653,
1383 + .26503, .15989, 4.27297, .29631, .12058,
1384 + .04501, .23095, .31646,
1385 + .27002, .16215, 4.37920, .30447, .13099,
1386 + .05714, .24002, .32502 /
1387 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
1388 + .27488, .16433, 4.47321, .31232, .14109,
1389 + .06888, .24877, .33327,
1390 + .27878, .16605, 4.54048, .31850, .14908,
1391 + .07807, .25569, .33975,
1392 + .28335, .16805, 4.60966, .32558, .15829,
1393 + .08868, .26365, .34717,
1394 + .28728, .16974, 4.66210, .33154, .16615,
1395 + .09782, .27038, .35343,
1396 + .29079, .17123, 4.70340, .33677, .17311,
1397 + .10593, .27630, .35892,
1398 + .29505, .17302, 4.74331, .34292, .18136,
1399 + .11549, .28330, .36537,
1400 + .29894, .17462, 4.77249, .34836, .18878,
1401 + .12416, .28955, .37109,
1402 + .30248, .17607, 4.79393, .35323, .19549,
1403 + .13208, .29514, .37619 /
1404 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
1405 + .30586, .17742, 4.80535, .35764, .20166,
1406 + .13931, .30028, .38083,
1407 + .30908, .17870, 4.81198, .36174, .20750,
1408 + .14622, .30508, .38514,
1409 + .31205, .17985, 4.81352, .36539, .21278,
1410 + .15249, .30938, .38899,
1411 + .31473, .18088, 4.80908, .36854, .21743,
1412 + .15802, .31313, .39230,
1413 + .31738, .18189, 4.80272, .37160, .22200,
1414 + .16351, .31680, .39551,
1415 + .31987, .18282, 4.79049, .37427, .22611,
1416 + .16846, .32005, .39833,
1417 + .32221, .18368, 4.77817, .37676, .22999,
1418 + .17316, .32309, .40096,
1419 + .32432, .18444, 4.76165, .37883, .23334,
1420 + .17723, .32568, .40314 /
1421 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
1422 + .32643, .18520, 4.74439, .38087, .23667,
1423 + .18131, .32823, .40529,
1424 + .32843, .18589, 4.72408, .38267, .23973,
1425 + .18508, .33053, .40720,
1426 + .33029, .18654, 4.70323, .38429, .24253,
1427 + .18855, .33262, .40891,
1428 + .33202, .18713, 4.68245, .38574, .24510,
1429 + .19177, .33452, .41045,
1430 + .33370, .18768, 4.65842, .38700, .24748,
1431 + .19476, .33623, .41179 /
1432 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
1433 + .24354, .15734, 1.51173, .16311, .00000,
1434 + .00000, .09205, .18313,
1435 + .25050, .16060, 1.74166, .16962, .00000,
1436 + .00000, .09966, .19029,
1437 + .26027, .16509, 2.05124, .17910, .00000,
1438 + .00000, .11072, .20064,
1439 + .26702, .16814, 2.25279, .18591, .00457,
1440 + .00000, .11863, .20805,
1441 + .27370, .17112, 2.43102, .19285, .01481,
1442 + .00000, .12669, .21555,
1443 + .27924, .17354, 2.57261, .19865, .02289,
1444 + .00000, .13342, .22181,
1445 + .28439, .17577, 2.69983, .20406, .03054,
1446 + .00000, .13972, .22764,
1447 + .28968, .17803, 2.82545, .20965, .03857,
1448 + .00000, .14623, .23364 /
1449 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
1450 + .29411, .17990, 2.92367, .21430, .04505,
1451 + .00000, .15167, .23864,
1452 + .29824, .18162, 3.01097, .21865, .05117,
1453 + .00000, .15676, .24330,
1454 + .30146, .18294, 3.07689, .22203, .05605,
1455 + .00000, .16073, .24692,
1456 + .30799, .18560, 3.19218, .22889, .06583,
1457 + .00126, .16879, .25425,
1458 + .31330, .18770, 3.26445, .23442, .07377,
1459 + .01144, .17533, .26016,
1460 + .31897, .18990, 3.33144, .24025, .08227,
1461 + .02291, .18225, .26636,
1462 + .32458, .19204, 3.38808, .24586, .09061,
1463 + .03290, .18898, .27233,
1464 + .32943, .19384, 3.42824, .25056, .09773,
1465 + .04149, .19466, .27732 /
1466 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
1467 + .33411, .19554, 3.45919, .25495, .10454,
1468 + .04970, .20002, .28198,
1469 + .33781, .19685, 3.47745, .25831, .10983,
1470 + .05604, .20417, .28555,
1471 + .34209, .19833, 3.49118, .26203, .11585,
1472 + .06326, .20883, .28949,
1473 + .34572, .19956, 3.49751, .26506, .12091,
1474 + .06941, .21269, .29271,
1475 + .34892, .20061, 3.49890, .26765, .12532,
1476 + .07481, .21600, .29544,
1477 + .35274, .20183, 3.49275, .27055, .13046,
1478 + .08108, .21981, .29851,
1479 + .35618, .20288, 3.48192, .27301, .13500,
1480 + .08670, .22311, .30112,
1481 + .35927, .20381, 3.46836, .27512, .13906,
1482 + .09176, .22599, .30335 /
1483 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
1484 + .36216, .20463, 3.44891, .27690, .14271,
1485 + .09631, .22852, .30523,
1486 + .36487, .20538, 3.42740, .27848, .14610,
1487 + .10061, .23083, .30689,
1488 + .36733, .20604, 3.40443, .27981, .14913,
1489 + .10448, .23283, .30828,
1490 + .36950, .20659, 3.37961, .28084, .15172,
1491 + .10782, .23448, .30936,
1492 + .37164, .20711, 3.35395, .28181, .15426,
1493 + .11112, .23607, .31037,
1494 + .37358, .20755, 3.32548, .28253, .15647,
1495 + .11404, .23738, .31112,
1496 + .37541, .20796, 3.29841, .28317, .15855,
1497 + .11680, .23859, .31179,
1498 + .37700, .20827, 3.27016, .28358, .16028,
1499 + .11914, .23953, .31222 /
1500 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
1501 + .37858, .20858, 3.24168, .28396, .16199,
1502 + .12147, .24043, .31261,
1503 + .38005, .20883, 3.21199, .28420, .16351,
1504 + .12359, .24117, .31285,
1505 + .38140, .20905, 3.18313, .28436, .16488,
1506 + .12552, .24181, .31301,
1507 + .38263, .20924, 3.15546, .28446, .16613,
1508 + .12729, .24235, .31310,
1509 + .38378, .20939, 3.12598, .28442, .16723,
1510 + .12890, .24276, .31304 /
1511 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
1512 + .29336, .18680, 1.58371, .15266, .00000,
1513 + .00000, .08777, .17922,
1514 + .30065, .18979, 1.76177, .15774, .00000,
1515 + .00000, .09406, .18487,
1516 + .31073, .19384, 1.99454, .16496, .00000,
1517 + .00000, .10298, .19284,
1518 + .31765, .19653, 2.14082, .17003, .00381,
1519 + .00000, .10927, .19841,
1520 + .32439, .19912, 2.26471, .17513, .01231,
1521 + .00000, .11555, .20394,
1522 + .32993, .20119, 2.36043, .17930, .01893,
1523 + .00000, .12072, .20847,
1524 + .33504, .20306, 2.44416, .18312, .02512,
1525 + .00000, .12549, .21261,
1526 + .34025, .20494, 2.52450, .18700, .03156,
1527 + .00000, .13036, .21680 /
1528 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
1529 + .34456, .20646, 2.58510, .19018, .03669,
1530 + .00000, .13437, .22022,
1531 + .34856, .20783, 2.63718, .19310, .04151,
1532 + .00000, .13807, .22335,
1533 + .35165, .20888, 2.67556, .19535, .04531,
1534 + .00000, .14093, .22576,
1535 + .35784, .21093, 2.73705, .19981, .05287,
1536 + .00102, .14666, .23052,
1537 + .36281, .21250, 2.76845, .20332, .05891,
1538 + .00894, .15121, .23424,
1539 + .36804, .21410, 2.79286, .20691, .06530,
1540 + .01782, .15594, .23805,
1541 + .37313, .21559, 2.80859, .21024, .07149,
1542 + .02545, .16042, .24156,
1543 + .37747, .21681, 2.81472, .21293, .07670,
1544 + .03194, .16412, .24438 /
1545 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
1546 + .38160, .21790, 2.81410, .21535, .08161,
1547 + .03808, .16754, .24690,
1548 + .38480, .21871, 2.80846, .21712, .08538,
1549 + .04276, .17011, .24873,
1550 + .38844, .21957, 2.79581, .21897, .08962,
1551 + .04806, .17292, .25065,
1552 + .39148, .22024, 2.78085, .22041, .09313,
1553 + .05251, .17518, .25213,
1554 + .39411, .22079, 2.76439, .22158, .09616,
1555 + .05639, .17708, .25331,
1556 + .39719, .22135, 2.73843, .22275, .09963,
1557 + .06085, .17917, .25447,
1558 + .39990, .22180, 2.71106, .22366, .10265,
1559 + .06479, .18091, .25536,
1560 + .40230, .22215, 2.68356, .22436, .10531,
1561 + .06832, .18238, .25603 /
1562 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
1563 + .40445, .22239, 2.65242, .22480, .10765,
1564 + .07144, .18356, .25643,
1565 + .40644, .22258, 2.62081, .22512, .10980,
1566 + .07437, .18459, .25668,
1567 + .40819, .22272, 2.58963, .22529, .11168,
1568 + .07697, .18543, .25679,
1569 + .40969, .22276, 2.55848, .22531, .11326,
1570 + .07920, .18605, .25672,
1571 + .41115, .22279, 2.52712, .22527, .11479,
1572 + .08138, .18662, .25660,
1573 + .41241, .22273, 2.49445, .22506, .11608,
1574 + .08327, .18699, .25630,
1575 + .41357, .22267, 2.46376, .22484, .11728,
1576 + .08505, .18732, .25600,
1577 + .41453, .22254, 2.43330, .22449, .11825,
1578 + .08654, .18748, .25555 /
1579 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
1580 + .41547, .22241, 2.40291, .22412, .11919,
1581 + .08801, .18761, .25509,
1582 + .41629, .22223, 2.37218, .22366, .12000,
1583 + .08932, .18763, .25452,
1584 + .41701, .22204, 2.34280, .22317, .12072,
1585 + .09050, .18760, .25393,
1586 + .41765, .22183, 2.31499, .22268, .12135,
1587 + .09158, .18753, .25333,
1588 + .41820, .22158, 2.28614, .22208, .12187,
1589 + .09254, .18736, .25262 /
1590 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
1591 + .38221, .23327, 1.59627, .13352, .00000,
1592 + .00000, .07988, .17112,
1593 + .38914, .23528, 1.70094, .13652, .00000,
1594 + .00000, .08416, .17434,
1595 + .39847, .23789, 1.82972, .14060, .00000,
1596 + .00000, .09004, .17862,
1597 + .40470, .23950, 1.90420, .14336, .00278,
1598 + .00000, .09403, .18150,
1599 + .41065, .24094, 1.96018, .14600, .00890,
1600 + .00000, .09792, .18421,
1601 + .41541, .24202, 1.99999, .14808, .01358,
1602 + .00000, .10103, .18631,
1603 + .41971, .24293, 2.03209, .14992, .01789,
1604 + .00000, .10383, .18815,
1605 + .42399, .24380, 2.06003, .15172, .02231,
1606 + .00000, .10661, .18991 /
1607 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
1608 + .42745, .24442, 2.07810, .15312, .02577,
1609 + .00000, .10883, .19126,
1610 + .43059, .24494, 2.09122, .15434, .02897,
1611 + .00000, .11084, .19242,
1612 + .43298, .24531, 2.09969, .15525, .03147,
1613 + .00000, .11236, .19327,
1614 + .43761, .24590, 2.10449, .15696, .03636,
1615 + .00072, .11530, .19481,
1616 + .44116, .24623, 2.09486, .15818, .04019,
1617 + .00592, .11754, .19586,
1618 + .44475, .24644, 2.07800, .15928, .04416,
1619 + .01172, .11976, .19676,
1620 + .44806, .24649, 2.05546, .16016, .04791,
1621 + .01661, .12173, .19738,
1622 + .45073, .24640, 2.03103, .16072, .05100,
1623 + .02069, .12326, .19770 /
1624 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
1625 + .45313, .24619, 2.00327, .16109, .05386,
1626 + .02449, .12457, .19780,
1627 + .45487, .24593, 1.97782, .16124, .05600,
1628 + .02734, .12547, .19770,
1629 + .45670, .24549, 1.94463, .16123, .05835,
1630 + .03051, .12635, .19739,
1631 + .45812, .24503, 1.91395, .16110, .06025,
1632 + .03314, .12698, .19698,
1633 + .45927, .24454, 1.88494, .16089, .06185,
1634 + .03540, .12745, .19651,
1635 + .46040, .24381, 1.84621, .16044, .06364,
1636 + .03794, .12784, .19569,
1637 + .46126, .24306, 1.80912, .15989, .06515,
1638 + .04016, .12805, .19481,
1639 + .46193, .24229, 1.77420, .15931, .06644,
1640 + .04211, .12816, .19390 /
1641 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
1642 + .46234, .24143, 1.73808, .15857, .06753,
1643 + .04379, .12809, .19283,
1644 + .46262, .24055, 1.70291, .15780, .06850,
1645 + .04535, .12795, .19172,
1646 + .46275, .23968, 1.66964, .15700, .06932,
1647 + .04670, .12774, .19061,
1648 + .46270, .23879, 1.63795, .15617, .06997,
1649 + .04784, .12745, .18947,
1650 + .46260, .23789, 1.60664, .15531, .07058,
1651 + .04893, .12712, .18830,
1652 + .46233, .23694, 1.57542, .15438, .07105,
1653 + .04985, .12669, .18705,
1654 + .46204, .23604, 1.54643, .15348, .07147,
1655 + .05071, .12627, .18586,
1656 + .46162, .23512, 1.51871, .15256, .07178,
1657 + .05140, .12579, .18466 /
1658 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
1659 + .46117, .23420, 1.49134, .15163, .07206,
1660 + .05208, .12530, .18344,
1661 + .46062, .23324, 1.46435, .15067, .07228,
1662 + .05266, .12476, .18220,
1663 + .46004, .23232, 1.43893, .14974, .07245,
1664 + .05317, .12421, .18098,
1665 + .45945, .23143, 1.41517, .14884, .07258,
1666 + .05363, .12368, .17983,
1667 + .45875, .23049, 1.39108, .14787, .07265,
1668 + .05401, .12308, .17861 /
1669 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
1670 + .45898, .26729, 1.51365, .11599, .00000,
1671 + .00000, .07222, .16119,
1672 + .46463, .26807, 1.57129, .11761, .00000,
1673 + .00000, .07508, .16255,
1674 + .47197, .26884, 1.63627, .11970, .00000,
1675 + .00000, .07886, .16420,
1676 + .47668, .26917, 1.66884, .12103, .00209,
1677 + .00000, .08136, .16519,
1678 + .48101, .26927, 1.68661, .12223, .00666,
1679 + .00000, .08373, .16599,
1680 + .48431, .26922, 1.69605, .12311, .01011,
1681 + .00000, .08556, .16649,
1682 + .48718, .26905, 1.70096, .12382, .01324,
1683 + .00000, .08716, .16684,
1684 + .48995, .26877, 1.70210, .12446, .01642,
1685 + .00000, .08870, .16708 /
1686 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
1687 + .49206, .26842, 1.69903, .12489, .01888,
1688 + .00000, .08989, .16716,
1689 + .49388, .26801, 1.69338, .12521, .02113,
1690 + .00000, .09092, .16712,
1691 + .49522, .26765, 1.68776, .12543, .02287,
1692 + .00000, .09169, .16704,
1693 + .49759, .26673, 1.66717, .12571, .02623,
1694 + .00053, .09309, .16670,
1695 + .49919, .26577, 1.64057, .12578, .02882,
1696 + .00417, .09408, .16623,
1697 + .50057, .26458, 1.60769, .12568, .03146,
1698 + .00820, .09498, .16551,
1699 + .50158, .26320, 1.57139, .12540, .03391,
1700 + .01155, .09567, .16457,
1701 + .50216, .26185, 1.53688, .12499, .03589,
1702 + .01430, .09610, .16356 /
1703 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
1704 + .50245, .26038, 1.50098, .12445, .03768,
1705 + .01684, .09638, .16240,
1706 + .50245, .25909, 1.47039, .12390, .03900,
1707 + .01872, .09650, .16134,
1708 + .50216, .25744, 1.43263, .12312, .04042,
1709 + .02078, .09648, .15994,
1710 + .50170, .25593, 1.39918, .12236, .04154,
1711 + .02247, .09637, .15863,
1712 + .50113, .25451, 1.36856, .12160, .04247,
1713 + .02391, .09620, .15737,
1714 + .50012, .25262, 1.32933, .12054, .04347,
1715 + .02550, .09585, .15566,
1716 + .49898, .25078, 1.29285, .11948, .04429,
1717 + .02686, .09543, .15400,
1718 + .49779, .24903, 1.25925, .11844, .04497,
1719 + .02804, .09498, .15242 /
1720 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
1721 + .49634, .24721, 1.22557, .11732, .04551,
1722 + .02905, .09442, .15074,
1723 + .49483, .24542, 1.19330, .11620, .04597,
1724 + .02996, .09384, .14908,
1725 + .49328, .24370, 1.16330, .11511, .04634,
1726 + .03073, .09324, .14748,
1727 + .49167, .24202, 1.13527, .11403, .04661,
1728 + .03137, .09261, .14594,
1729 + .49003, .24034, 1.10785, .11295, .04684,
1730 + .03198, .09197, .14440,
1731 + .48822, .23865, 1.08104, .11185, .04700,
1732 + .03248, .09129, .14282,
1733 + .48650, .23705, 1.05632, .11081, .04713,
1734 + .03294, .09064, .14134,
1735 + .48473, .23550, 1.03306, .10978, .04719,
1736 + .03329, .08997, .13990 /
1737 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
1738 + .48294, .23394, 1.01023, .10875, .04724,
1739 + .03362, .08930, .13846,
1740 + .48108, .23236, .98800, .10771, .04724,
1741 + .03390, .08860, .13702,
1742 + .47927, .23086, .96722, .10671, .04722,
1743 + .03414, .08793, .13566,
1744 + .47752, .22943, .94793, .10576, .04718,
1745 + .03435, .08729, .13436,
1746 + .47566, .22796, .92861, .10478, .04710,
1747 + .03451, .08660, .13302 /
1748 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
1749 + .52475, .29179, 1.38959, .10021, .00000,
1750 + .00000, .06472, .14944,
1751 + .52854, .29122, 1.41690, .10095, .00000,
1752 + .00000, .06654, .14944,
1753 + .53309, .29009, 1.44226, .10176, .00000,
1754 + .00000, .06888, .14916,
1755 + .53576, .28908, 1.44977, .10222, .00160,
1756 + .00000, .07037, .14881,
1757 + .53794, .28783, 1.44567, .10256, .00509,
1758 + .00000, .07172, .14832,
1759 + .53940, .28661, 1.43826, .10272, .00769,
1760 + .00000, .07272, .14776,
1761 + .54051, .28538, 1.42853, .10277, .01004,
1762 + .00000, .07355, .14713,
1763 + .54140, .28399, 1.41570, .10274, .01239,
1764 + .00000, .07431, .14639 /
1765 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
1766 + .54189, .28269, 1.40198, .10264, .01419,
1767 + .00000, .07486, .14564,
1768 + .54214, .28138, 1.38713, .10247, .01583,
1769 + .00000, .07530, .14486,
1770 + .54225, .28032, 1.37479, .10231, .01709,
1771 + .00000, .07561, .14422,
1772 + .54202, .27794, 1.34295, .10184, .01949,
1773 + .00041, .07610, .14274,
1774 + .54140, .27580, 1.30985, .10133, .02131,
1775 + .00304, .07637, .14136,
1776 + .54035, .27330, 1.27159, .10063, .02314,
1777 + .00595, .07652, .13973,
1778 + .53886, .27062, 1.23140, .09979, .02481,
1779 + .00834, .07650, .13791,
1780 + .53719, .26812, 1.19474, .09893, .02614,
1781 + .01028, .07636, .13618 /
1782 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
1783 + .53525, .26554, 1.15784, .09798, .02732,
1784 + .01205, .07610, .13438,
1785 + .53342, .26334, 1.12730, .09713, .02817,
1786 + .01335, .07580, .13282,
1787 + .53095, .26063, 1.09051, .09604, .02907,
1788 + .01476, .07535, .13089,
1789 + .52860, .25821, 1.05856, .09504, .02976,
1790 + .01590, .07489, .12914,
1791 + .52633, .25597, 1.02979, .09409, .03032,
1792 + .01686, .07442, .12753,
1793 + .52318, .25309, .99369, .09282, .03090,
1794 + .01791, .07374, .12543,
1795 + .52005, .25036, .96064, .09161, .03137,
1796 + .01879, .07305, .12344,
1797 + .51704, .24780, .93060, .09045, .03174,
1798 + .01955, .07237, .12159 /
1799 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
1800 + .51382, .24519, .90098, .08924, .03200,
1801 + .02017, .07163, .11970,
1802 + .51060, .24264, .87291, .08805, .03221,
1803 + .02074, .07088, .11786,
1804 + .50747, .24022, .84708, .08692, .03237,
1805 + .02122, .07015, .11612,
1806 + .50439, .23792, .82322, .08583, .03246,
1807 + .02159, .06944, .11446,
1808 + .50129, .23563, .80002, .08475, .03254,
1809 + .02195, .06872, .11281,
1810 + .49809, .23335, .77761, .08366, .03255,
1811 + .02223, .06797, .11118,
1812 + .49506, .23121, .75703, .08263, .03256,
1813 + .02248, .06726, .10966,
1814 + .49209, .22915, .73788, .08164, .03251,
1815 + .02267, .06657, .10820 /
1816 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
1817 + .48910, .22709, .71916, .08066, .03246,
1818 + .02285, .06588, .10674,
1819 + .48607, .22505, .70108, .07968, .03239,
1820 + .02298, .06517, .10531,
1821 + .48316, .22311, .68428, .07875, .03230,
1822 + .02309, .06450, .10395,
1823 + .48039, .22128, .66875, .07788, .03221,
1824 + .02319, .06386, .10268,
1825 + .47750, .21941, .65330, .07697, .03209,
1826 + .02325, .06320, .10138 /
1827 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
1828 + .59247, .31176, 1.21813, .08313, .00000,
1829 + .00000, .05576, .13295,
1830 + .59335, .30958, 1.22252, .08318, .00000,
1831 + .00000, .05670, .13177,
1832 + .59374, .30610, 1.21888, .08307, .00000,
1833 + .00000, .05782, .12990,
1834 + .59343, .30347, 1.20890, .08290, .00118,
1835 + .00000, .05848, .12850,
1836 + .59255, .30062, 1.19044, .08262, .00372,
1837 + .00000, .05903, .12695,
1838 + .59140, .29807, 1.17236, .08228, .00560,
1839 + .00000, .05937, .12558,
1840 + .59005, .29558, 1.15369, .08190, .00727,
1841 + .00000, .05961, .12421,
1842 + .58838, .29290, 1.13268, .08145, .00893,
1843 + .00000, .05979, .12272 /
1844 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
1845 + .58666, .29052, 1.11310, .08098, .01019,
1846 + .00000, .05984, .12142,
1847 + .58482, .28819, 1.09350, .08050, .01133,
1848 + .00000, .05985, .12011,
1849 + .58329, .28635, 1.07783, .08012, .01219,
1850 + .00000, .05983, .11905,
1851 + .57964, .28237, 1.04134, .07920, .01382,
1852 + .00030, .05968, .11680,
1853 + .57619, .27890, 1.00678, .07835, .01504,
1854 + .00211, .05945, .11486,
1855 + .57204, .27498, .96820, .07732, .01624,
1856 + .00412, .05909, .11266,
1857 + .56738, .27091, .92888, .07620, .01732,
1858 + .00574, .05863, .11033,
1859 + .56292, .26719, .89397, .07514, .01815,
1860 + .00705, .05812, .10819 /
1861 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
1862 + .55825, .26343, .85959, .07402, .01888,
1863 + .00822, .05753, .10604,
1864 + .55420, .26031, .83168, .07306, .01939,
1865 + .00908, .05701, .10425,
1866 + .54913, .25650, .79867, .07185, .01992,
1867 + .00999, .05632, .10208,
1868 + .54453, .25316, .77042, .07078, .02031,
1869 + .01072, .05568, .10016,
1870 + .54023, .25013, .74530, .06980, .02062,
1871 + .01132, .05507, .09841,
1872 + .53460, .24623, .71428, .06852, .02092,
1873 + .01197, .05424, .09621,
1874 + .52923, .24261, .68626, .06731, .02114,
1875 + .01251, .05344, .09416,
1876 + .52415, .23927, .66106, .06618, .02131,
1877 + .01297, .05269, .09227 /
1878 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
1879 + .51893, .23589, .63654, .06504, .02140,
1880 + .01334, .05190, .09037,
1881 + .51381, .23262, .61350, .06392, .02147,
1882 + .01366, .05113, .08854,
1883 + .50893, .22955, .59250, .06288, .02150,
1884 + .01392, .05040, .08684,
1885 + .50424, .22667, .57331, .06187, .02150,
1886 + .01413, .04969, .08525,
1887 + .49957, .22381, .55478, .06088, .02148,
1888 + .01432, .04898, .08369,
1889 + .49487, .22100, .53702, .05990, .02142,
1890 + .01446, .04826, .08215,
1891 + .49045, .21837, .52080, .05899, .02136,
1892 + .01458, .04760, .08072,
1893 + .48619, .21586, .50583, .05813, .02128,
1894 + .01466, .04695, .07937 /
1895 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
1896 + .48193, .21337, .49127, .05727, .02119,
1897 + .01474, .04631, .07803,
1898 + .47768, .21092, .47730, .05642, .02109,
1899 + .01479, .04567, .07672,
1900 + .47363, .20860, .46439, .05561, .02098,
1901 + .01483, .04507, .07549,
1902 + .46980, .20643, .45251, .05485, .02087,
1903 + .01486, .04450, .07434,
1904 + .46588, .20423, .44078, .05409, .02074,
1905 + .01486, .04392, .07318 /
1906 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
1907 + .64487, .32232, 1.05312, .06894, .00000,
1908 + .00000, .04743, .11549,
1909 + .64259, .31859, 1.04467, .06859, .00000,
1910 + .00000, .04781, .11362,
1911 + .63842, .31297, 1.02550, .06794, .00000,
1912 + .00000, .04817, .11087,
1913 + .63493, .30887, 1.00676, .06743, .00088,
1914 + .00000, .04833, .10885,
1915 + .63085, .30455, .98177, .06682, .00276,
1916 + .00000, .04839, .10681,
1917 + .62701, .30079, .95918, .06624, .00415,
1918 + .00000, .04835, .10501,
1919 + .62313, .29720, .93701, .06565, .00537,
1920 + .00000, .04826, .10327,
1921 + .61883, .29341, .91310, .06499, .00657,
1922 + .00000, .04810, .10144 /
1923 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
1924 + .61489, .29009, .89177, .06438, .00747,
1925 + .00000, .04790, .09985,
1926 + .61095, .28689, .87101, .06377, .00827,
1927 + .00000, .04768, .09832,
1928 + .60780, .28439, .85471, .06329, .00888,
1929 + .00000, .04750, .09711,
1930 + .60080, .27905, .81832, .06220, .01001,
1931 + .00023, .04702, .09456,
1932 + .59460, .27449, .78542, .06122, .01084,
1933 + .00151, .04655, .09243,
1934 + .58745, .26944, .74943, .06011, .01165,
1935 + .00293, .04596, .09004,
1936 + .57983, .26423, .71337, .05893, .01237,
1937 + .00406, .04529, .08758,
1938 + .57280, .25953, .68186, .05782, .01291,
1939 + .00496, .04464, .08538 /
1940 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
1941 + .56563, .25484, .65129, .05669, .01337,
1942 + .00576, .04395, .08319,
1943 + .55956, .25099, .62679, .05574, .01368,
1944 + .00634, .04335, .08140,
1945 + .55210, .24638, .59813, .05459, .01399,
1946 + .00694, .04260, .07926,
1947 + .54550, .24234, .57387, .05357, .01422,
1948 + .00743, .04192, .07740,
1949 + .53945, .23868, .55250, .05263, .01439,
1950 + .00782, .04129, .07573,
1951 + .53166, .23406, .52638, .05144, .01454,
1952 + .00823, .04046, .07364,
1953 + .52433, .22979, .50301, .05033, .01464,
1954 + .00857, .03968, .07172,
1955 + .51750, .22588, .48216, .04931, .01470,
1956 + .00886, .03894, .06997 /
1957 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
1958 + .51058, .22197, .46210, .04828, .01472,
1959 + .00908, .03820, .06822,
1960 + .50387, .21822, .44337, .04729, .01471,
1961 + .00927, .03748, .06656,
1962 + .49754, .21471, .42640, .04637, .01469,
1963 + .00942, .03680, .06502,
1964 + .49154, .21144, .41102, .04549, .01464,
1965 + .00953, .03616, .06360,
1966 + .48559, .20821, .39624, .04463, .01459,
1967 + .00963, .03552, .06221,
1968 + .47968, .20504, .38219, .04379, .01451,
1969 + .00970, .03489, .06085,
1970 + .47415, .20209, .36940, .04301, .01443,
1971 + .00976, .03430, .05959,
1972 + .46887, .19931, .35767, .04227, .01434,
1973 + .00979, .03375, .05841 /
1974 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
1975 + .46362, .19656, .34631, .04153, .01425,
1976 + .00982, .03320, .05724,
1977 + .45843, .19386, .33546, .04082, .01415,
1978 + .00983, .03265, .05611,
1979 + .45350, .19132, .32549, .04014, .01404,
1980 + .00983, .03213, .05505,
1981 + .44887, .18894, .31634, .03951, .01394,
1982 + .00983, .03165, .05407,
1983 + .44415, .18653, .30736, .03888, .01383,
1984 + .00981, .03116, .05309 /
1985 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
1986 + .68293, .32538, .90558, .05729, .00000,
1987 + .00000, .03987, .09808,
1988 + .67735, .32030, .89011, .05673, .00000,
1989 + .00000, .03988, .09589,
1990 + .66854, .31281, .86292, .05583, .00000,
1991 + .00000, .03977, .09269,
1992 + .66185, .30745, .84007, .05515, .00067,
1993 + .00000, .03961, .09045,
1994 + .65455, .30192, .81264, .05440, .00208,
1995 + .00000, .03940, .08815,
1996 + .64804, .29716, .78864, .05372, .00311,
1997 + .00000, .03914, .08620,
1998 + .64170, .29265, .76565, .05304, .00402,
1999 + .00000, .03885, .08436,
2000 + .63489, .28792, .74139, .05230, .00490,
2001 + .00000, .03852, .08245 /
2002 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
2003 + .62886, .28382, .72022, .05163, .00555,
2004 + .00000, .03821, .08080,
2005 + .62295, .27992, .69994, .05097, .00613,
2006 + .00000, .03787, .07924,
2007 + .61828, .27687, .68417, .05045, .00656,
2008 + .00000, .03759, .07802,
2009 + .60815, .27048, .64989, .04934, .00737,
2010 + .00017, .03695, .07548,
2011 + .59942, .26506, .61977, .04836, .00795,
2012 + .00109, .03638, .07336,
2013 + .58960, .25910, .58728, .04725, .00850,
2014 + .00211, .03572, .07104,
2015 + .57931, .25303, .55513, .04610, .00898,
2016 + .00292, .03499, .06869,
2017 + .56997, .24762, .52737, .04505, .00934,
2018 + .00355, .03430, .06661 /
2019 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
2020 + .56060, .24225, .50073, .04398, .00963,
2021 + .00411, .03361, .06457,
2022 + .55281, .23787, .47959, .04309, .00983,
2023 + .00451, .03301, .06291,
2024 + .54334, .23266, .45509, .04204, .01001,
2025 + .00492, .03227, .06094,
2026 + .53503, .22814, .43451, .04112, .01014,
2027 + .00524, .03162, .05926,
2028 + .52749, .22405, .41650, .04028, .01023,
2029 + .00551, .03103, .05775,
2030 + .51791, .21895, .39473, .03921, .01029,
2031 + .00578, .03027, .05588,
2032 + .50899, .21426, .37537, .03822, .01033,
2033 + .00600, .02956, .05419,
2034 + .50075, .20996, .35821, .03732, .01034,
2035 + .00617, .02890, .05265 /
2036 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
2037 + .49249, .20572, .34184, .03641, .01032,
2038 + .00631, .02824, .05114,
2039 + .48452, .20166, .32665, .03556, .01029,
2040 + .00642, .02761, .04970,
2041 + .47705, .19789, .31296, .03476, .01024,
2042 + .00651, .02702, .04837,
2043 + .47003, .19439, .30063, .03403, .01018,
2044 + .00657, .02646, .04714,
2045 + .46311, .19095, .28884, .03330, .01012,
2046 + .00662, .02592, .04595,
2047 + .45629, .18758, .27769, .03258, .01004,
2048 + .00665, .02538, .04480,
2049 + .44995, .18447, .26758, .03191, .00996,
2050 + .00668, .02489, .04375,
2051 + .44393, .18153, .25836, .03129, .00988,
2052 + .00668, .02442, .04276 /
2053 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
2054 + .43796, .17864, .24946, .03068, .00979,
2055 + .00669, .02395, .04179,
2056 + .43208, .17581, .24101, .03008, .00970,
2057 + .00668, .02350, .04085,
2058 + .42652, .17316, .23326, .02953, .00961,
2059 + .00667, .02307, .03998,
2060 + .42132, .17069, .22618, .02901, .00952,
2061 + .00665, .02267, .03917,
2062 + .41607, .16820, .21925, .02848, .00943,
2063 + .00663, .02227, .03837 /
2064 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
2065 + .70766, .32249, .77820, .04779, .00000,
2066 + .00000, .03310, .08149,
2067 + .69891, .31619, .75893, .04709, .00000,
2068 + .00000, .03291, .07924,
2069 + .68560, .30712, .72783, .04605, .00000,
2070 + .00000, .03254, .07599,
2071 + .67583, .30073, .70337, .04530, .00051,
2072 + .00000, .03224, .07371,
2073 + .66555, .29416, .67551, .04447, .00158,
2074 + .00000, .03186, .07147,
2075 + .65656, .28858, .65162, .04374, .00236,
2076 + .00000, .03150, .06956,
2077 + .64794, .28332, .62909, .04303, .00303,
2078 + .00000, .03113, .06777,
2079 + .63882, .27785, .60563, .04227, .00368,
2080 + .00000, .03072, .06593 /
2081 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
2082 + .63085, .27315, .58545, .04159, .00416,
2083 + .00000, .03034, .06438,
2084 + .62315, .26871, .56635, .04094, .00458,
2085 + .00000, .02996, .06290,
2086 + .61708, .26527, .55161, .04044, .00490,
2087 + .00000, .02965, .06175,
2088 + .60424, .25802, .52013, .03934, .00547,
2089 + .00013, .02899, .05938,
2090 + .59327, .25198, .49304, .03840, .00587,
2091 + .00080, .02840, .05744,
2092 + .58109, .24537, .46418, .03736, .00626,
2093 + .00154, .02773, .05533,
2094 + .56855, .23867, .43593, .03628, .00658,
2095 + .00212, .02702, .05320,
2096 + .55728, .23275, .41176, .03531, .00682,
2097 + .00257, .02637, .05135 /
2098 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
2099 + .54604, .22694, .38876, .03434, .00701,
2100 + .00297, .02571, .04954,
2101 + .53681, .22221, .37065, .03355, .00713,
2102 + .00324, .02516, .04808,
2103 + .52573, .21658, .34983, .03257, .00723,
2104 + .00352, .02449, .04639,
2105 + .51607, .21174, .33248, .03174, .00730,
2106 + .00374, .02391, .04493,
2107 + .50734, .20741, .31741, .03100, .00734,
2108 + .00392, .02338, .04362,
2109 + .49634, .20201, .29929, .03007, .00736,
2110 + .00410, .02271, .04203,
2111 + .48618, .19708, .28331, .02922, .00736,
2112 + .00424, .02209, .04058,
2113 + .47684, .19260, .26924, .02846, .00735,
2114 + .00435, .02153, .03925 /
2115 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
2116 + .46756, .18818, .25588, .02769, .00731,
2117 + .00443, .02096, .03799,
2118 + .45867, .18396, .24356, .02695, .00727,
2119 + .00450, .02042, .03679,
2120 + .45041, .18005, .23253, .02625, .00721,
2121 + .00455, .01993, .03570,
2122 + .44267, .17645, .22262, .02562, .00716,
2123 + .00458, .01946, .03469,
2124 + .43505, .17293, .21319, .02501, .00709,
2125 + .00461, .01901, .03370,
2126 + .42759, .16949, .20435, .02441, .00702,
2127 + .00462, .01856, .03278,
2128 + .42066, .16631, .19636, .02386, .00695,
2129 + .00462, .01815, .03193,
2130 + .41413, .16334, .18911, .02335, .00688,
2131 + .00462, .01776, .03112 /
2132 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
2133 + .40768, .16042, .18212, .02285, .00680,
2134 + .00461, .01737, .03033,
2135 + .40136, .15756, .17551, .02235, .00672,
2136 + .00460, .01701, .02958,
2137 + .39542, .15489, .16946, .02189, .00665,
2138 + .00458, .01667, .02888,
2139 + .38988, .15240, .16395, .02146, .00657,
2140 + .00456, .01635, .02823,
2141 + .38428, .14992, .15859, .02103, .00650,
2142 + .00454, .01603, .02759 /
2143 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
2144 + .72023, .31480, .66992, .03994, .00000,
2145 + .00000, .02719, .06631,
2146 + .70842, .30756, .64866, .03921, .00000,
2147 + .00000, .02690, .06414,
2148 + .69097, .29717, .61583, .03810, .00000,
2149 + .00000, .02640, .06107,
2150 + .67842, .28991, .59102, .03729, .00039,
2151 + .00000, .02601, .05898,
2152 + .66540, .28255, .56373, .03644, .00121,
2153 + .00000, .02556, .05692,
2154 + .65416, .27635, .54067, .03571, .00179,
2155 + .00000, .02517, .05516,
2156 + .64350, .27054, .51917, .03500, .00230,
2157 + .00000, .02477, .05353,
2158 + .63234, .26451, .49706, .03425, .00278,
2159 + .00000, .02434, .05187 /
2160 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
2161 + .62270, .25936, .47826, .03360, .00313,
2162 + .00000, .02396, .05046,
2163 + .61346, .25451, .46058, .03297, .00344,
2164 + .00000, .02358, .04913,
2165 + .60623, .25076, .44702, .03249, .00367,
2166 + .00000, .02329, .04811,
2167 + .59101, .24295, .41854, .03146, .00408,
2168 + .00010, .02263, .04602,
2169 + .57819, .23645, .39444, .03059, .00437,
2170 + .00059, .02208, .04431,
2171 + .56409, .22941, .36900, .02961, .00463,
2172 + .00113, .02146, .04249,
2173 + .54966, .22232, .34434, .02863, .00485,
2174 + .00155, .02080, .04066,
2175 + .53682, .21610, .32345, .02776, .00500,
2176 + .00187, .02021, .03906 /
2177 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
2178 + .52413, .21000, .30370, .02690, .00512,
2179 + .00215, .01962, .03752,
2180 + .51377, .20509, .28825, .02620, .00519,
2181 + .00234, .01914, .03627,
2182 + .50140, .19927, .27066, .02535, .00525,
2183 + .00254, .01856, .03483,
2184 + .49071, .19427, .25610, .02463, .00528,
2185 + .00269, .01805, .03362,
2186 + .48109, .18981, .24353, .02399, .00530,
2187 + .00281, .01759, .03254,
2188 + .46905, .18431, .22852, .02318, .00530,
2189 + .00293, .01701, .03123,
2190 + .45802, .17929, .21536, .02244, .00528,
2191 + .00302, .01650, .03004,
2192 + .44795, .17472, .20383, .02176, .00525,
2193 + .00309, .01603, .02897 /
2194 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
2195 + .43798, .17026, .19299, .02111, .00521,
2196 + .00314, .01555, .02793,
2197 + .42846, .16601, .18303, .02048, .00516,
2198 + .00318, .01511, .02697,
2199 + .41964, .16209, .17413, .01990, .00511,
2200 + .00320, .01469, .02610,
2201 + .41144, .15848, .16621, .01938, .00506,
2202 + .00322, .01430, .02529,
2203 + .40339, .15496, .15869, .01887, .00500,
2204 + .00323, .01392, .02451,
2205 + .39555, .15155, .15166, .01838, .00494,
2206 + .00323, .01357, .02375,
2207 + .38830, .14841, .14533, .01793, .00488,
2208 + .00322, .01325, .02305,
2209 + .38150, .14547, .13962, .01749, .00482,
2210 + .00321, .01293, .02243 /
2211 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
2212 + .37480, .14259, .13413, .01706, .00476,
2213 + .00320, .01262, .02182,
2214 + .36825, .13979, .12896, .01666, .00469,
2215 + .00319, .01233, .02123,
2216 + .36210, .13718, .12425, .01629, .00463,
2217 + .00317, .01205, .02068,
2218 + .35637, .13475, .11996, .01595, .00457,
2219 + .00315, .01179, .02017,
2220 + .35060, .13233, .11581, .01560, .00451,
2221 + .00313, .01153, .01967 /
2222 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
2223 + .72182, .30332, .57821, .03339, .00000,
2224 + .00000, .02210, .05289,
2225 + .70723, .29535, .55595, .03264, .00000,
2226 + .00000, .02173, .05094,
2227 + .68602, .28400, .52257, .03152, .00000,
2228 + .00000, .02118, .04819,
2229 + .67095, .27614, .49814, .03075, .00030,
2230 + .00000, .02076, .04631,
2231 + .65552, .26821, .47195, .02994, .00092,
2232 + .00000, .02032, .04445,
2233 + .64237, .26154, .45007, .02922, .00137,
2234 + .00000, .01992, .04292,
2235 + .62999, .25534, .42989, .02854, .00174,
2236 + .00000, .01953, .04151,
2237 + .61709, .24894, .40933, .02783, .00210,
2238 + .00000, .01911, .04007 /
2239 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
2240 + .60602, .24351, .39200, .02722, .00236,
2241 + .00000, .01874, .03885,
2242 + .59549, .23840, .37585, .02664, .00259,
2243 + .00000, .01839, .03772,
2244 + .58730, .23446, .36354, .02618, .00275,
2245 + .00000, .01811, .03685,
2246 + .57018, .22629, .33797, .02523, .00305,
2247 + .00008, .01751, .03508,
2248 + .55586, .21956, .31669, .02444, .00325,
2249 + .00044, .01701, .03362,
2250 + .54020, .21230, .29443, .02358, .00343,
2251 + .00083, .01646, .03207,
2252 + .52436, .20500, .27303, .02269, .00358,
2253 + .00114, .01588, .03056,
2254 + .51038, .19861, .25503, .02190, .00368,
2255 + .00137, .01537, .02925 /
2256 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
2257 + .49663, .19241, .23817, .02113, .00375,
2258 + .00157, .01486, .02798,
2259 + .48545, .18744, .22512, .02052, .00380,
2260 + .00170, .01444, .02698,
2261 + .47220, .18155, .21032, .01979, .00382,
2262 + .00184, .01394, .02580,
2263 + .46080, .17652, .19814, .01916, .00384,
2264 + .00194, .01351, .02482,
2265 + .45060, .17206, .18767, .01860, .00384,
2266 + .00202, .01314, .02396,
2267 + .43791, .16655, .17529, .01790, .00382,
2268 + .00210, .01267, .02290,
2269 + .42631, .16155, .16449, .01727, .00380,
2270 + .00216, .01223, .02195,
2271 + .41577, .15703, .15508, .01672, .00377,
2272 + .00220, .01183, .02111 /
2273 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
2274 + .40541, .15262, .14629, .01616, .00373,
2275 + .00223, .01145, .02029,
2276 + .39556, .14845, .13824, .01563, .00368,
2277 + .00225, .01109, .01952,
2278 + .38645, .14463, .13109, .01516, .00364,
2279 + .00226, .01076, .01882,
2280 + .37802, .14111, .12475, .01472, .00359,
2281 + .00227, .01046, .01819,
2282 + .36979, .13767, .11876, .01430, .00354,
2283 + .00227, .01016, .01757,
2284 + .36179, .13436, .11319, .01389, .00349,
2285 + .00227, .00986, .01700,
2286 + .35441, .13132, .10818, .01351, .00344,
2287 + .00226, .00959, .01649,
2288 + .34751, .12849, .10369, .01315, .00339,
2289 + .00225, .00935, .01599 /
2290 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
2291 + .34074, .12571, .09939, .01281, .00334,
2292 + .00224, .00912, .01551,
2293 + .33414, .12302, .09535, .01247, .00329,
2294 + .00222, .00889, .01505,
2295 + .32797, .12051, .09168, .01216, .00324,
2296 + .00221, .00867, .01463,
2297 + .32223, .11818, .08834, .01188, .00319,
2298 + .00219, .00847, .01425,
2299 + .31648, .11587, .08512, .01160, .00314,
2300 + .00217, .00827, .01387 /
2301 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
2302 + .71325, .28931, .50013, .02813, .00000,
2303 + .00000, .01755, .04121,
2304 + .69629, .28076, .47740, .02736, .00000,
2305 + .00000, .01721, .03952,
2306 + .67189, .26870, .44432, .02626, .00000,
2307 + .00000, .01669, .03716,
2308 + .65477, .26038, .42055, .02548, .00023,
2309 + .00000, .01630, .03556,
2310 + .63738, .25203, .39572, .02466, .00071,
2311 + .00000, .01589, .03402,
2312 + .62269, .24505, .37520, .02397, .00104,
2313 + .00000, .01552, .03275,
2314 + .60890, .23860, .35642, .02333, .00133,
2315 + .00000, .01516, .03156,
2316 + .59460, .23200, .33745, .02267, .00159,
2317 + .00000, .01480, .03035 /
2318 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
2319 + .58243, .22639, .32164, .02210, .00179,
2320 + .00000, .01446, .02936,
2321 + .57090, .22114, .30703, .02157, .00195,
2322 + .00000, .01415, .02842,
2323 + .56195, .21710, .29595, .02115, .00207,
2324 + .00000, .01390, .02769,
2325 + .54339, .20878, .27319, .02029, .00228,
2326 + .00006, .01339, .02624,
2327 + .52799, .20194, .25454, .01956, .00242,
2328 + .00032, .01296, .02506,
2329 + .51129, .19458, .23515, .01875, .00255,
2330 + .00062, .01249, .02382,
2331 + .49445, .18725, .21668, .01797, .00264,
2332 + .00084, .01200, .02259,
2333 + .47963, .18088, .20132, .01730, .00271,
2334 + .00100, .01157, .02153 /
2335 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
2336 + .46516, .17470, .18702, .01663, .00275,
2337 + .00114, .01114, .02053,
2338 + .45351, .16972, .17600, .01607, .00278,
2339 + .00124, .01079, .01976,
2340 + .43972, .16392, .16361, .01544, .00279,
2341 + .00133, .01038, .01883,
2342 + .42789, .15898, .15349, .01491, .00279,
2343 + .00140, .01003, .01804,
2344 + .41737, .15460, .14484, .01444, .00278,
2345 + .00146, .00973, .01736,
2346 + .40435, .14921, .13466, .01386, .00276,
2347 + .00151, .00935, .01652,
2348 + .39250, .14435, .12584, .01333, .00273,
2349 + .00154, .00900, .01579,
2350 + .38175, .13998, .11819, .01285, .00270,
2351 + .00157, .00868, .01513 /
2352 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
2353 + .37125, .13571, .11107, .01238, .00267,
2354 + .00159, .00837, .01451,
2355 + .36131, .13168, .10461, .01195, .00263,
2356 + .00160, .00808, .01392,
2357 + .35217, .12800, .09890, .01155, .00259,
2358 + .00160, .00782, .01338,
2359 + .34373, .12461, .09386, .01118, .00255,
2360 + .00160, .00758, .01291,
2361 + .33550, .12132, .08911, .01082, .00251,
2362 + .00160, .00735, .01245,
2363 + .32754, .11817, .08470, .01047, .00247,
2364 + .00160, .00712, .01202,
2365 + .32021, .11527, .08076, .01016, .00243,
2366 + .00159, .00691, .01162,
2367 + .31337, .11258, .07723, .00988, .00239,
2368 + .00158, .00672, .01125 /
2369 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
2370 + .30667, .10995, .07385, .00961, .00235,
2371 + .00157, .00654, .01089,
2372 + .30017, .10741, .07070, .00935, .00231,
2373 + .00155, .00636, .01055,
2374 + .29410, .10506, .06784, .00910, .00227,
2375 + .00154, .00620, .01023,
2376 + .28847, .10287, .06526, .00887, .00223,
2377 + .00153, .00604, .00994,
2378 + .28285, .10069, .06278, .00865, .00220,
2379 + .00151, .00589, .00965 /
2380 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
2381 + .69653, .27268, .43234, .02327, .00000,
2382 + .00000, .01399, .03163,
2383 + .67751, .26381, .40975, .02256, .00000,
2384 + .00000, .01365, .03020,
2385 + .65044, .25132, .37734, .02150, .00000,
2386 + .00000, .01313, .02829,
2387 + .63156, .24279, .35464, .02078, .00017,
2388 + .00000, .01275, .02697,
2389 + .61259, .23425, .33135, .02003, .00053,
2390 + .00000, .01237, .02570,
2391 + .59663, .22716, .31231, .01941, .00079,
2392 + .00000, .01206, .02462,
2393 + .58174, .22061, .29506, .01883, .00100,
2394 + .00000, .01174, .02365,
2395 + .56641, .21391, .27778, .01822, .00119,
2396 + .00000, .01140, .02269 /
2397 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
2398 + .55342, .20826, .26347, .01771, .00133,
2399 + .00000, .01112, .02186,
2400 + .54115, .20300, .25036, .01724, .00145,
2401 + .00000, .01085, .02110,
2402 + .53165, .19897, .24048, .01688, .00154,
2403 + .00000, .01065, .02051,
2404 + .51211, .19061, .22041, .01609, .00169,
2405 + .00005, .01019, .01938,
2406 + .49593, .18383, .20415, .01547, .00179,
2407 + .00024, .00983, .01843,
2408 + .47851, .17657, .18743, .01478, .00187,
2409 + .00045, .00942, .01745,
2410 + .46108, .16934, .17163, .01409, .00194,
2411 + .00061, .00900, .01650,
2412 + .44583, .16309, .15858, .01350, .00198,
2413 + .00073, .00865, .01566 /
2414 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
2415 + .43098, .15707, .14654, .01295, .00200,
2416 + .00083, .00831, .01486,
2417 + .41904, .15226, .13732, .01250, .00201,
2418 + .00089, .00803, .01422,
2419 + .40504, .14661, .12703, .01195, .00201,
2420 + .00096, .00770, .01353,
2421 + .39310, .14183, .11868, .01149, .00201,
2422 + .00101, .00741, .01295,
2423 + .38248, .13761, .11158, .01109, .00200,
2424 + .00104, .00716, .01244,
2425 + .36940, .13244, .10326, .01061, .00198,
2426 + .00107, .00686, .01178,
2427 + .35757, .12778, .09611, .01017, .00195,
2428 + .00110, .00658, .01122,
2429 + .34689, .12360, .08996, .00977, .00193,
2430 + .00111, .00633, .01072 /
2431 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
2432 + .33647, .11955, .08424, .00938, .00189,
2433 + .00112, .00609, .01026,
2434 + .32662, .11574, .07907, .00902, .00186,
2435 + .00113, .00586, .00981,
2436 + .31758, .11226, .07453, .00872, .00183,
2437 + .00113, .00565, .00941,
2438 + .30930, .10907, .07053, .00842, .00180,
2439 + .00113, .00546, .00904,
2440 + .30125, .10598, .06678, .00813, .00177,
2441 + .00112, .00528, .00869,
2442 + .29348, .10302, .06332, .00786, .00173,
2443 + .00112, .00511, .00837,
2444 + .28633, .10031, .06023, .00761, .00170,
2445 + .00111, .00496, .00808,
2446 + .27970, .09779, .05748, .00738, .00167,
2447 + .00110, .00481, .00780 /
2448 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
2449 + .27321, .09534, .05485, .00715, .00164,
2450 + .00109, .00466, .00753,
2451 + .26693, .09297, .05241, .00694, .00161,
2452 + .00108, .00452, .00729,
2453 + .26109, .09078, .05020, .00675, .00158,
2454 + .00107, .00439, .00707,
2455 + .25568, .08875, .04821, .00657, .00155,
2456 + .00106, .00427, .00687,
2457 + .25028, .08674, .04629, .00639, .00152,
2458 + .00104, .00416, .00666 /
2459 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
2460 + .67226, .25470, .37318, .01921, .00000,
2461 + .00000, .01094, .02376,
2462 + .65164, .24566, .35098, .01854, .00000,
2463 + .00000, .01064, .02261,
2464 + .62249, .23301, .31975, .01755, .00000,
2465 + .00000, .01018, .02105,
2466 + .60231, .22441, .29831, .01692, .00013,
2467 + .00000, .00985, .01998,
2468 + .58220, .21582, .27668, .01622, .00040,
2469 + .00000, .00952, .01897,
2470 + .56535, .20871, .25921, .01565, .00059,
2471 + .00000, .00924, .01815,
2472 + .54975, .20216, .24350, .01511, .00075,
2473 + .00000, .00897, .01739,
2474 + .53374, .19549, .22790, .01455, .00089,
2475 + .00000, .00869, .01662 /
2476 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
2477 + .52017, .18992, .21511, .01411, .00099,
2478 + .00000, .00845, .01598,
2479 + .50745, .18472, .20349, .01369, .00108,
2480 + .00000, .00822, .01539,
2481 + .49766, .18073, .19479, .01336, .00114,
2482 + .00000, .00803, .01494,
2483 + .47749, .17258, .17722, .01269, .00124,
2484 + .00004, .00765, .01407,
2485 + .46096, .16595, .16320, .01215, .00131,
2486 + .00017, .00735, .01333,
2487 + .44320, .15889, .14889, .01157, .00137,
2488 + .00033, .00704, .01255,
2489 + .42550, .15191, .13549, .01100, .00141,
2490 + .00044, .00670, .01180,
2491 + .41013, .14587, .12453, .01050, .00143,
2492 + .00053, .00640, .01118 /
2493 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
2494 + .39526, .14005, .11449, .01002, .00145,
2495 + .00060, .00612, .01059,
2496 + .38333, .13542, .10684, .00964, .00145,
2497 + .00064, .00591, .01012,
2498 + .36940, .13004, .09834, .00918, .00145,
2499 + .00069, .00565, .00958,
2500 + .35755, .12550, .09150, .00880, .00144,
2501 + .00072, .00542, .00914,
2502 + .34706, .12149, .08572, .00847, .00143,
2503 + .00074, .00522, .00875,
2504 + .33422, .11659, .07898, .00805, .00141,
2505 + .00076, .00497, .00828,
2506 + .32260, .11221, .07322, .00769, .00139,
2507 + .00078, .00476, .00785,
2508 + .31213, .10829, .06829, .00738, .00137,
2509 + .00079, .00457, .00746 /
2510 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
2511 + .30197, .10449, .06375, .00708, .00134,
2512 + .00079, .00438, .00712,
2513 + .29241, .10092, .05966, .00679, .00131,
2514 + .00079, .00421, .00681,
2515 + .28368, .09766, .05607, .00653, .00129,
2516 + .00079, .00405, .00653,
2517 + .27569, .09470, .05292, .00629, .00126,
2518 + .00079, .00390, .00627,
2519 + .26795, .09185, .04996, .00606, .00124,
2520 + .00079, .00375, .00602,
2521 + .26051, .08911, .04726, .00584, .00121,
2522 + .00078, .00363, .00578,
2523 + .25368, .08660, .04486, .00564, .00119,
2524 + .00077, .00352, .00556,
2525 + .24732, .08429, .04273, .00548, .00116,
2526 + .00077, .00341, .00535 /
2527 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
2528 + .24112, .08204, .04070, .00532, .00114,
2529 + .00076, .00330, .00514,
2530 + .23516, .07988, .03881, .00514, .00112,
2531 + .00075, .00319, .00497,
2532 + .22964, .07787, .03710, .00497, .00110,
2533 + .00074, .00309, .00481,
2534 + .22454, .07602, .03557, .00481, .00107,
2535 + .00073, .00300, .00467,
2536 + .21945, .07419, .03410, .00468, .00105,
2537 + .00072, .00291, .00452 /
2538 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
2539 + .64184, .23569, .32068, .01565, .00000,
2540 + .00000, .00847, .01754,
2541 + .62000, .22664, .29921, .01505, .00000,
2542 + .00000, .00821, .01661,
2543 + .58941, .21403, .26962, .01416, .00000,
2544 + .00000, .00781, .01539,
2545 + .56848, .20540, .24963, .01352, .00010,
2546 + .00000, .00754, .01460,
2547 + .54760, .19693, .22985, .01290, .00030,
2548 + .00000, .00727, .01381,
2549 + .53014, .19001, .21398, .01244, .00044,
2550 + .00000, .00703, .01314,
2551 + .51407, .18361, .19985, .01198, .00055,
2552 + .00000, .00679, .01255,
2553 + .49769, .17709, .18596, .01149, .00066,
2554 + .00000, .00654, .01199 /
2555 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
2556 + .48387, .17166, .17468, .01110, .00073,
2557 + .00000, .00634, .01151,
2558 + .47094, .16662, .16447, .01075, .00079,
2559 + .00000, .00615, .01104,
2560 + .46100, .16276, .15685, .01049, .00083,
2561 + .00000, .00600, .01068,
2562 + .44070, .15485, .14169, .00991, .00090,
2563 + .00003, .00570, .01001,
2564 + .42412, .14847, .12970, .00943, .00095,
2565 + .00013, .00545, .00947,
2566 + .40636, .14171, .11761, .00895, .00099,
2567 + .00024, .00520, .00889,
2568 + .38877, .13504, .10638, .00846, .00102,
2569 + .00032, .00493, .00834,
2570 + .37357, .12930, .09724, .00803, .00103,
2571 + .00038, .00469, .00788 /
2572 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
2573 + .35893, .12378, .08892, .00762, .00104,
2574 + .00043, .00446, .00746,
2575 + .34724, .11942, .08265, .00730, .00104,
2576 + .00046, .00429, .00709,
2577 + .33359, .11437, .07574, .00696, .00103,
2578 + .00049, .00409, .00668,
2579 + .32203, .11010, .07020, .00665, .00102,
2580 + .00051, .00392, .00635,
2581 + .31186, .10635, .06553, .00636, .00101,
2582 + .00052, .00376, .00608,
2583 + .29941, .10178, .06012, .00604, .00100,
2584 + .00054, .00358, .00573,
2585 + .28820, .09770, .05552, .00576, .00098,
2586 + .00055, .00341, .00543,
2587 + .27814, .09406, .05160, .00551, .00096,
2588 + .00055, .00326, .00516 /
2589 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
2590 + .26843, .09056, .04801, .00527, .00094,
2591 + .00055, .00312, .00489,
2592 + .25931, .08728, .04479, .00505, .00092,
2593 + .00055, .00299, .00465,
2594 + .25100, .08428, .04197, .00485, .00090,
2595 + .00055, .00287, .00444,
2596 + .24341, .08157, .03952, .00465, .00088,
2597 + .00055, .00276, .00425,
2598 + .23608, .07895, .03723, .00446, .00086,
2599 + .00055, .00266, .00408,
2600 + .22904, .07644, .03514, .00430, .00084,
2601 + .00054, .00255, .00391,
2602 + .22259, .07416, .03329, .00415, .00082,
2603 + .00053, .00246, .00375,
2604 + .21663, .07206, .03165, .00401, .00080,
2605 + .00053, .00238, .00361 /
2606 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
2607 + .21081, .07002, .03009, .00388, .00079,
2608 + .00052, .00230, .00348,
2609 + .20523, .06805, .02864, .00375, .00077,
2610 + .00051, .00222, .00336,
2611 + .20007, .06623, .02734, .00363, .00075,
2612 + .00051, .00214, .00324,
2613 + .19531, .06456, .02617, .00352, .00074,
2614 + .00050, .00208, .00314,
2615 + .19059, .06290, .02505, .00341, .00072,
2616 + .00049, .00202, .00303 /
2617 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
2618 + .60639, .21611, .27368, .01250, .00000,
2619 + .00000, .00651, .01274,
2620 + .58383, .20716, .25329, .01197, .00000,
2621 + .00000, .00627, .01204,
2622 + .55238, .19479, .22570, .01118, .00000,
2623 + .00000, .00594, .01109,
2624 + .53092, .18642, .20735, .01067, .00007,
2625 + .00000, .00572, .01046,
2626 + .50966, .17822, .18945, .01013, .00022,
2627 + .00000, .00546, .00987,
2628 + .49207, .17144, .17531, .00970, .00032,
2629 + .00000, .00525, .00939,
2630 + .47587, .16526, .16280, .00931, .00040,
2631 + .00000, .00507, .00894,
2632 + .45937, .15902, .15055, .00892, .00048,
2633 + .00000, .00488, .00850 /
2634 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
2635 + .44554, .15380, .14072, .00859, .00053,
2636 + .00000, .00471, .00814,
2637 + .43266, .14897, .13189, .00829, .00057,
2638 + .00000, .00456, .00780,
2639 + .42279, .14527, .12534, .00806, .00060,
2640 + .00000, .00445, .00752,
2641 + .40268, .13776, .11240, .00756, .00065,
2642 + .00002, .00420, .00705,
2643 + .38634, .13169, .10231, .00716, .00068,
2644 + .00009, .00400, .00665,
2645 + .36892, .12528, .09219, .00676, .00071,
2646 + .00017, .00379, .00623,
2647 + .35173, .11900, .08288, .00638, .00072,
2648 + .00023, .00358, .00582,
2649 + .33693, .11361, .07536, .00604, .00073,
2650 + .00027, .00341, .00548 /
2651 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
2652 + .32272, .10847, .06857, .00571, .00073,
2653 + .00030, .00324, .00514,
2654 + .31139, .10441, .06349, .00548, .00073,
2655 + .00032, .00310, .00488,
2656 + .29825, .09971, .05789, .00519, .00073,
2657 + .00034, .00294, .00460,
2658 + .28718, .09575, .05344, .00494, .00072,
2659 + .00036, .00280, .00437,
2660 + .27746, .09229, .04972, .00473, .00071,
2661 + .00037, .00268, .00416,
2662 + .26561, .08808, .04544, .00447, .00069,
2663 + .00038, .00255, .00391,
2664 + .25497, .08433, .04181, .00425, .00068,
2665 + .00038, .00243, .00369,
2666 + .24544, .08100, .03872, .00404, .00067,
2667 + .00038, .00231, .00350 /
2668 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
2669 + .23630, .07778, .03593, .00385, .00065,
2670 + .00038, .00220, .00332,
2671 + .22774, .07479, .03342, .00366, .00064,
2672 + .00038, .00211, .00315,
2673 + .21995, .07210, .03125, .00350, .00062,
2674 + .00038, .00202, .00300,
2675 + .21283, .06964, .02936, .00337, .00061,
2676 + .00038, .00194, .00286,
2677 + .20595, .06727, .02761, .00326, .00059,
2678 + .00038, .00186, .00273,
2679 + .19943, .06502, .02599, .00311, .00058,
2680 + .00037, .00179, .00262,
2681 + .19348, .06296, .02456, .00298, .00056,
2682 + .00037, .00172, .00253,
2683 + .18797, .06107, .02331, .00287, .00055,
2684 + .00036, .00165, .00242 /
2685 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
2686 + .18262, .05924, .02213, .00277, .00054,
2687 + .00036, .00159, .00231,
2688 + .17746, .05749, .02103, .00267, .00052,
2689 + .00035, .00153, .00222,
2690 + .17270, .05586, .02004, .00258, .00051,
2691 + .00035, .00148, .00215,
2692 + .16831, .05437, .01915, .00250, .00050,
2693 + .00034, .00144, .00208,
2694 + .16400, .05290, .01831, .00241, .00049,
2695 + .00034, .00139, .00201 /
2696 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
2697 + .56692, .19656, .23160, .00999, .00000,
2698 + .00000, .00486, .00898,
2699 + .54405, .18785, .21260, .00950, .00000,
2700 + .00000, .00467, .00848,
2701 + .51233, .17588, .18729, .00881, .00000,
2702 + .00000, .00440, .00778,
2703 + .49080, .16780, .17076, .00835, .00005,
2704 + .00000, .00420, .00736,
2705 + .46959, .15992, .15483, .00792, .00016,
2706 + .00000, .00403, .00688,
2707 + .45209, .15345, .14238, .00754, .00023,
2708 + .00000, .00386, .00654,
2709 + .43606, .14754, .13146, .00720, .00029,
2710 + .00000, .00371, .00622,
2711 + .41980, .14158, .12087, .00687, .00034,
2712 + .00000, .00357, .00589 /
2713 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
2714 + .40618, .13666, .11243, .00661, .00038,
2715 + .00000, .00344, .00563,
2716 + .39356, .13208, .10489, .00635, .00041,
2717 + .00000, .00331, .00539,
2718 + .38393, .12859, .09932, .00614, .00043,
2719 + .00000, .00321, .00521,
2720 + .36432, .12153, .08843, .00575, .00046,
2721 + .00002, .00302, .00483,
2722 + .34845, .11585, .08003, .00544, .00048,
2723 + .00006, .00288, .00454,
2724 + .33160, .10988, .07167, .00512, .00050,
2725 + .00012, .00271, .00424,
2726 + .31508, .10403, .06406, .00478, .00051,
2727 + .00016, .00255, .00396,
2728 + .30092, .09903, .05796, .00450, .00051,
2729 + .00019, .00242, .00373 /
2730 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
2731 + .28734, .09428, .05248, .00425, .00051,
2732 + .00021, .00229, .00349,
2733 + .27658, .09055, .04840, .00406, .00051,
2734 + .00023, .00219, .00330,
2735 + .26412, .08625, .04395, .00385, .00050,
2736 + .00024, .00207, .00309,
2737 + .25365, .08264, .04042, .00366, .00050,
2738 + .00025, .00196, .00293,
2739 + .24449, .07947, .03748, .00348, .00049,
2740 + .00026, .00187, .00279,
2741 + .23339, .07563, .03413, .00327, .00048,
2742 + .00026, .00177, .00262,
2743 + .22345, .07223, .03130, .00309, .00047,
2744 + .00026, .00168, .00246,
2745 + .21456, .06922, .02891, .00295, .00046,
2746 + .00027, .00160, .00232 /
2747 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
2748 + .20603, .06632, .02673, .00281, .00045,
2749 + .00026, .00152, .00221,
2750 + .19808, .06362, .02480, .00267, .00044,
2751 + .00026, .00145, .00210,
2752 + .19090, .06120, .02313, .00254, .00042,
2753 + .00026, .00138, .00199,
2754 + .18436, .05900, .02168, .00243, .00041,
2755 + .00026, .00133, .00190,
2756 + .17806, .05689, .02034, .00231, .00040,
2757 + .00026, .00127, .00181,
2758 + .17208, .05487, .01912, .00221, .00039,
2759 + .00025, .00121, .00173,
2760 + .16663, .05303, .01804, .00212, .00038,
2761 + .00025, .00116, .00165,
2762 + .16158, .05136, .01709, .00205, .00037,
2763 + .00025, .00112, .00158 /
2764 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
2765 + .15667, .04974, .01619, .00198, .00036,
2766 + .00024, .00108, .00151,
2767 + .15199, .04819, .01537, .00191, .00035,
2768 + .00024, .00105, .00145,
2769 + .14768, .04676, .01462, .00184, .00035,
2770 + .00023, .00101, .00140,
2771 + .14371, .04544, .01396, .00178, .00034,
2772 + .00023, .00098, .00135,
2773 + .13978, .04415, .01333, .00172, .00033,
2774 + .00023, .00095, .00130 /
2775 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
2776 + .52469, .17710, .19385, .00775, .00000,
2777 + .00000, .00361, .00627,
2778 + .50185, .16878, .17650, .00737, .00000,
2779 + .00000, .00344, .00587,
2780 + .47036, .15734, .15372, .00680, .00000,
2781 + .00000, .00322, .00538,
2782 + .44914, .14971, .13907, .00643, .00004,
2783 + .00000, .00305, .00504,
2784 + .42830, .14222, .12517, .00606, .00011,
2785 + .00000, .00290, .00473,
2786 + .41119, .13613, .11438, .00577, .00016,
2787 + .00000, .00279, .00445,
2788 + .39556, .13058, .10501, .00550, .00020,
2789 + .00000, .00266, .00422,
2790 + .37975, .12499, .09601, .00522, .00024,
2791 + .00000, .00253, .00400 /
2792 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
2793 + .36656, .12039, .08888, .00501, .00027,
2794 + .00000, .00243, .00382,
2795 + .35437, .11613, .08254, .00481, .00029,
2796 + .00000, .00234, .00364,
2797 + .34507, .11288, .07787, .00465, .00030,
2798 + .00000, .00227, .00350,
2799 + .32626, .10630, .06886, .00432, .00032,
2800 + .00001, .00213, .00325,
2801 + .31111, .10106, .06198, .00407, .00034,
2802 + .00004, .00202, .00305,
2803 + .29510, .09555, .05519, .00382, .00035,
2804 + .00008, .00190, .00284,
2805 + .27942, .09020, .04904, .00358, .00035,
2806 + .00011, .00178, .00262,
2807 + .26603, .08564, .04416, .00337, .00036,
2808 + .00013, .00168, .00245 /
2809 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
2810 + .25328, .08130, .03981, .00317, .00035,
2811 + .00015, .00158, .00230,
2812 + .24321, .07789, .03658, .00301, .00035,
2813 + .00016, .00151, .00216,
2814 + .23161, .07397, .03309, .00282, .00035,
2815 + .00016, .00142, .00203,
2816 + .22186, .07070, .03033, .00267, .00034,
2817 + .00017, .00134, .00193,
2818 + .21333, .06786, .02804, .00255, .00034,
2819 + .00018, .00128, .00183,
2820 + .20301, .06442, .02543, .00241, .00033,
2821 + .00018, .00120, .00171,
2822 + .19386, .06137, .02325, .00227, .00032,
2823 + .00018, .00114, .00160,
2824 + .18574, .05866, .02141, .00214, .00031,
2825 + .00018, .00108, .00150 /
2826 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
2827 + .17791, .05608, .01975, .00203, .00030,
2828 + .00018, .00102, .00143,
2829 + .17063, .05369, .01828, .00193, .00029,
2830 + .00018, .00097, .00135,
2831 + .16407, .05153, .01701, .00184, .00029,
2832 + .00018, .00092, .00128,
2833 + .15812, .04958, .01591, .00176, .00028,
2834 + .00018, .00089, .00121,
2835 + .15241, .04771, .01490, .00167, .00027,
2836 + .00017, .00085, .00115,
2837 + .14699, .04594, .01398, .00160, .00026,
2838 + .00017, .00082, .00109,
2839 + .14206, .04433, .01316, .00153, .00026,
2840 + .00017, .00078, .00104,
2841 + .13753, .04285, .01245, .00146, .00025,
2842 + .00017, .00075, .00100 /
2843 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
2844 + .13314, .04142, .01178, .00140, .00024,
2845 + .00016, .00071, .00097,
2846 + .12894, .04006, .01116, .00135, .00024,
2847 + .00016, .00069, .00092,
2848 + .12506, .03882, .01061, .00131, .00023,
2849 + .00016, .00066, .00088,
2850 + .12150, .03768, .01011, .00127, .00023,
2851 + .00015, .00064, .00085,
2852 + .11801, .03654, .00965, .00122, .00022,
2853 + .00015, .00062, .00082 /
2854 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
2855 + .48052, .15809, .16001, .00589, .00000,
2856 + .00000, .00265, .00430,
2857 + .45813, .15018, .14448, .00555, .00000,
2858 + .00000, .00251, .00403,
2859 + .42739, .13940, .12440, .00510, .00000,
2860 + .00000, .00234, .00366,
2861 + .40674, .13221, .11168, .00477, .00003,
2862 + .00000, .00219, .00345,
2863 + .38657, .12525, .09977, .00451, .00008,
2864 + .00000, .00210, .00319,
2865 + .37011, .11955, .09060, .00426, .00011,
2866 + .00000, .00200, .00302,
2867 + .35511, .11439, .08269, .00404, .00014,
2868 + .00000, .00191, .00286,
2869 + .33997, .10922, .07514, .00382, .00017,
2870 + .00000, .00181, .00270 /
2871 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
2872 + .32743, .10495, .06922, .00362, .00018,
2873 + .00000, .00174, .00257,
2874 + .31582, .10101, .06400, .00346, .00020,
2875 + .00000, .00167, .00245,
2876 + .30698, .09802, .06019, .00335, .00021,
2877 + .00000, .00163, .00237,
2878 + .28915, .09201, .05286, .00311, .00022,
2879 + .00001, .00152, .00219,
2880 + .27486, .08722, .04731, .00293, .00023,
2881 + .00003, .00143, .00203,
2882 + .25986, .08221, .04189, .00273, .00024,
2883 + .00006, .00134, .00188,
2884 + .24521, .07735, .03701, .00253, .00024,
2885 + .00008, .00125, .00175,
2886 + .23274, .07322, .03317, .00236, .00024,
2887 + .00009, .00117, .00164 /
2888 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
2889 + .22092, .06930, .02977, .00220, .00024,
2890 + .00010, .00110, .00153,
2891 + .21159, .06624, .02725, .00210, .00024,
2892 + .00011, .00104, .00145,
2893 + .20088, .06273, .02455, .00197, .00023,
2894 + .00011, .00097, .00135,
2895 + .19193, .05981, .02243, .00185, .00023,
2896 + .00012, .00092, .00126,
2897 + .18414, .05728, .02068, .00176, .00023,
2898 + .00012, .00089, .00120,
2899 + .17472, .05423, .01869, .00165, .00022,
2900 + .00012, .00084, .00111,
2901 + .16638, .05152, .01704, .00155, .00021,
2902 + .00012, .00079, .00105,
2903 + .15901, .04911, .01565, .00144, .00021,
2904 + .00012, .00074, .00099 /
2905 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
2906 + .15191, .04686, .01440, .00139, .00020,
2907 + .00012, .00070, .00093,
2908 + .14535, .04476, .01329, .00132, .00020,
2909 + .00012, .00067, .00087,
2910 + .13947, .04286, .01234, .00124, .00019,
2911 + .00012, .00064, .00083,
2912 + .13414, .04116, .01153, .00117, .00018,
2913 + .00012, .00061, .00079,
2914 + .12902, .03954, .01077, .00111, .00018,
2915 + .00012, .00057, .00075,
2916 + .12417, .03799, .01009, .00107, .00017,
2917 + .00011, .00055, .00071,
2918 + .11976, .03659, .00949, .00103, .00017,
2919 + .00011, .00053, .00068,
2920 + .11572, .03531, .00896, .00099, .00016,
2921 + .00011, .00051, .00065 /
2922 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
2923 + .11181, .03408, .00847, .00095, .00016,
2924 + .00011, .00048, .00063,
2925 + .10810, .03290, .00801, .00090, .00016,
2926 + .00011, .00046, .00060,
2927 + .10470, .03182, .00761, .00085, .00015,
2928 + .00010, .00044, .00058,
2929 + .10157, .03084, .00724, .00082, .00015,
2930 + .00010, .00043, .00056,
2931 + .09848, .02987, .00690, .00079, .00014,
2932 + .00010, .00041, .00053 /
2933 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
2934 + .43555, .13979, .13014, .00435, .00000,
2935 + .00000, .00192, .00289,
2936 + .41388, .13239, .11650, .00408, .00000,
2937 + .00000, .00181, .00270,
2938 + .38424, .12235, .09917, .00371, .00000,
2939 + .00000, .00167, .00247,
2940 + .36451, .11566, .08833, .00345, .00002,
2941 + .00000, .00158, .00229,
2942 + .34526, .10921, .07831, .00323, .00005,
2943 + .00000, .00150, .00213,
2944 + .32963, .10396, .07067, .00302, .00008,
2945 + .00000, .00143, .00203,
2946 + .31539, .09922, .06415, .00286, .00010,
2947 + .00000, .00136, .00193,
2948 + .30106, .09449, .05797, .00271, .00011,
2949 + .00000, .00129, .00182 /
2950 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
2951 + .28927, .09059, .05315, .00257, .00012,
2952 + .00000, .00124, .00171,
2953 + .27837, .08701, .04892, .00245, .00013,
2954 + .00000, .00119, .00163,
2955 + .27008, .08429, .04584, .00236, .00014,
2956 + .00000, .00115, .00158,
2957 + .25350, .07884, .03999, .00217, .00015,
2958 + .00001, .00106, .00147,
2959 + .24024, .07451, .03561, .00201, .00015,
2960 + .00002, .00100, .00136,
2961 + .22633, .07000, .03136, .00187, .00016,
2962 + .00004, .00094, .00124,
2963 + .21283, .06563, .02756, .00173, .00016,
2964 + .00005, .00088, .00115,
2965 + .20140, .06194, .02458, .00160, .00016,
2966 + .00006, .00082, .00109 /
2967 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
2968 + .19057, .05845, .02197, .00149, .00016,
2969 + .00007, .00077, .00101,
2970 + .18205, .05575, .02004, .00143, .00016,
2971 + .00007, .00073, .00094,
2972 + .17233, .05265, .01800, .00132, .00015,
2973 + .00007, .00068, .00088,
2974 + .16421, .05007, .01640, .00124, .00015,
2975 + .00008, .00064, .00083,
2976 + .15714, .04785, .01507, .00119, .00015,
2977 + .00008, .00061, .00078,
2978 + .14869, .04517, .01358, .00109, .00014,
2979 + .00008, .00058, .00072,
2980 + .14121, .04280, .01234, .00102, .00014,
2981 + .00008, .00054, .00069,
2982 + .13458, .04071, .01131, .00096, .00014,
2983 + .00008, .00051, .00066 /
2984 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
2985 + .12828, .03874, .01038, .00091, .00013,
2986 + .00008, .00049, .00061,
2987 + .12244, .03692, .00957, .00086, .00013,
2988 + .00008, .00046, .00057,
2989 + .11719, .03528, .00887, .00082, .00012,
2990 + .00008, .00044, .00054,
2991 + .11246, .03381, .00827, .00078, .00012,
2992 + .00008, .00042, .00051,
2993 + .10794, .03240, .00771, .00074, .00012,
2994 + .00008, .00040, .00049,
2995 + .10368, .03107, .00721, .00070, .00011,
2996 + .00007, .00038, .00046,
2997 + .09983, .02987, .00677, .00066, .00011,
2998 + .00007, .00036, .00044,
2999 + .09628, .02878, .00639, .00063, .00011,
3000 + .00007, .00034, .00042 /
3001 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
3002 + .09285, .02773, .00603, .00061, .00010,
3003 + .00007, .00033, .00040,
3004 + .08960, .02673, .00570, .00059, .00010,
3005 + .00007, .00032, .00038,
3006 + .08662, .02582, .00540, .00056, .00010,
3007 + .00007, .00030, .00036,
3008 + .08390, .02498, .00514, .00054, .00009,
3009 + .00007, .00029, .00035,
3010 + .08123, .02416, .00489, .00052, .00009,
3011 + .00007, .00028, .00033 /
3012 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
3013 + .39043, .12259, .10422, .00329, .00000,
3014 + .00000, .00129, .00185,
3015 + .36980, .11576, .09258, .00309, .00000,
3016 + .00000, .00121, .00172,
3017 + .34179, .10652, .07795, .00276, .00000,
3018 + .00000, .00111, .00155,
3019 + .32314, .10041, .06893, .00259, .00001,
3020 + .00000, .00106, .00144,
3021 + .30503, .09453, .06067, .00242, .00004,
3022 + .00000, .00098, .00136,
3023 + .29038, .08975, .05444, .00228, .00005,
3024 + .00000, .00092, .00126,
3025 + .27715, .08545, .04917, .00214, .00006,
3026 + .00000, .00088, .00118,
3027 + .26389, .08116, .04421, .00199, .00008,
3028 + .00000, .00084, .00111 /
3029 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
3030 + .25290, .07765, .04035, .00190, .00008,
3031 + .00000, .00080, .00107,
3032 + .24282, .07442, .03699, .00180, .00009,
3033 + .00000, .00076, .00102,
3034 + .23521, .07198, .03456, .00173, .00009,
3035 + .00000, .00073, .00097,
3036 + .21994, .06709, .02998, .00159, .00010,
3037 + .00000, .00067, .00090,
3038 + .20779, .06323, .02657, .00148, .00010,
3039 + .00001, .00063, .00084,
3040 + .19511, .05922, .02328, .00137, .00010,
3041 + .00003, .00059, .00077,
3042 + .18285, .05536, .02037, .00127, .00011,
3043 + .00003, .00055, .00070,
3044 + .17249, .05211, .01810, .00119, .00011,
3045 + .00004, .00051, .00063 /
3046 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
3047 + .16272, .04905, .01612, .00111, .00010,
3048 + .00004, .00048, .00058,
3049 + .15508, .04665, .01466, .00104, .00010,
3050 + .00005, .00045, .00056,
3051 + .14636, .04394, .01312, .00097, .00010,
3052 + .00005, .00042, .00051,
3053 + .13913, .04169, .01192, .00090, .00010,
3054 + .00005, .00040, .00048,
3055 + .13287, .03973, .01093, .00084, .00010,
3056 + .00005, .00037, .00047,
3057 + .12533, .03741, .00983, .00079, .00009,
3058 + .00005, .00034, .00043,
3059 + .11869, .03537, .00891, .00074, .00009,
3060 + .00005, .00032, .00041,
3061 + .11286, .03357, .00815, .00068, .00009,
3062 + .00005, .00031, .00039 /
3063 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
3064 + .10729, .03186, .00747, .00066, .00009,
3065 + .00005, .00028, .00036,
3066 + .10216, .03030, .00687, .00063, .00008,
3067 + .00005, .00027, .00033,
3068 + .09758, .02890, .00635, .00059, .00008,
3069 + .00005, .00025, .00030,
3070 + .09345, .02763, .00591, .00056, .00008,
3071 + .00005, .00024, .00029,
3072 + .08951, .02643, .00551, .00053, .00007,
3073 + .00005, .00023, .00028,
3074 + .08579, .02530, .00514, .00051, .00007,
3075 + .00005, .00022, .00027,
3076 + .08242, .02428, .00482, .00049, .00007,
3077 + .00005, .00020, .00025,
3078 + .07936, .02336, .00454, .00046, .00007,
3079 + .00005, .00020, .00024 /
3080 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
3081 + .07642, .02247, .00428, .00043, .00007,
3082 + .00005, .00019, .00023,
3083 + .07363, .02162, .00404, .00041, .00006,
3084 + .00004, .00018, .00022,
3085 + .07106, .02084, .00383, .00039, .00006,
3086 + .00004, .00017, .00021,
3087 + .06872, .02014, .00364, .00038, .00006,
3088 + .00004, .00016, .00020,
3089 + .06642, .01945, .00346, .00036, .00006,
3090 + .00004, .00016, .00019 /
3091 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
3092 + .34594, .10607, .08162, .00223, .00000,
3093 + .00000, .00092, .00125,
3094 + .32657, .09984, .07196, .00206, .00000,
3095 + .00000, .00086, .00116,
3096 + .30032, .09147, .05994, .00187, .00000,
3097 + .00000, .00078, .00105,
3098 + .28298, .08597, .05264, .00173, .00001,
3099 + .00000, .00074, .00095,
3100 + .26623, .08066, .04601, .00163, .00002,
3101 + .00000, .00069, .00087,
3102 + .25270, .07640, .04105, .00152, .00003,
3103 + .00000, .00065, .00081,
3104 + .24049, .07256, .03688, .00143, .00004,
3105 + .00000, .00061, .00076,
3106 + .22831, .06874, .03298, .00135, .00005,
3107 + .00000, .00057, .00072 /
3108 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
3109 + .21829, .06560, .02997, .00129, .00005,
3110 + .00000, .00054, .00068,
3111 + .20912, .06273, .02737, .00121, .00006,
3112 + .00000, .00052, .00066,
3113 + .20220, .06057, .02551, .00115, .00006,
3114 + .00000, .00050, .00065,
3115 + .18835, .05629, .02198, .00106, .00006,
3116 + .00000, .00045, .00056,
3117 + .17738, .05289, .01939, .00098, .00007,
3118 + .00001, .00042, .00053,
3119 + .16599, .04935, .01692, .00091, .00007,
3120 + .00002, .00039, .00048,
3121 + .15502, .04598, .01474, .00083, .00007,
3122 + .00002, .00036, .00045,
3123 + .14576, .04316, .01304, .00077, .00007,
3124 + .00003, .00033, .00042 /
3125 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
3126 + .13708, .04050, .01157, .00072, .00007,
3127 + .00003, .00031, .00039,
3128 + .13032, .03843, .01050, .00067, .00007,
3129 + .00003, .00030, .00037,
3130 + .12263, .03608, .00937, .00062, .00006,
3131 + .00003, .00028, .00033,
3132 + .11625, .03415, .00849, .00058, .00006,
3133 + .00003, .00026, .00031,
3134 + .11074, .03249, .00777, .00054, .00006,
3135 + .00003, .00024, .00028,
3136 + .10414, .03050, .00696, .00050, .00006,
3137 + .00003, .00022, .00027,
3138 + .09835, .02876, .00630, .00048, .00006,
3139 + .00003, .00021, .00025,
3140 + .09326, .02723, .00575, .00045, .00006,
3141 + .00003, .00020, .00022 /
3142 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
3143 + .08846, .02578, .00526, .00041, .00005,
3144 + .00003, .00018, .00021,
3145 + .08403, .02445, .00483, .00039, .00005,
3146 + .00003, .00017, .00020,
3147 + .08004, .02327, .00446, .00038, .00005,
3148 + .00003, .00016, .00019,
3149 + .07650, .02221, .00415, .00036, .00005,
3150 + .00003, .00015, .00018,
3151 + .07313, .02120, .00386, .00033, .00005,
3152 + .00003, .00014, .00017,
3153 + .06994, .02025, .00360, .00031, .00005,
3154 + .00003, .00014, .00016,
3155 + .06706, .01940, .00337, .00030, .00004,
3156 + .00003, .00013, .00014,
3157 + .06445, .01863, .00317, .00029, .00004,
3158 + .00003, .00013, .00014 /
3159 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
3160 + .06195, .01788, .00299, .00028, .00004,
3161 + .00003, .00012, .00013,
3162 + .05957, .01718, .00282, .00027, .00004,
3163 + .00003, .00012, .00013,
3164 + .05739, .01654, .00266, .00025, .00004,
3165 + .00003, .00011, .00013,
3166 + .05541, .01596, .00253, .00024, .00004,
3167 + .00003, .00010, .00012,
3168 + .05348, .01538, .00240, .00023, .00004,
3169 + .00003, .00010, .00012 /
3170 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
3171 + .30269, .09082, .06266, .00151, .00000,
3172 + .00000, .00064, .00081,
3173 + .28477, .08522, .05478, .00141, .00000,
3174 + .00000, .00060, .00074,
3175 + .26066, .07771, .04516, .00123, .00000,
3176 + .00000, .00054, .00066,
3177 + .24476, .07278, .03937, .00113, .00001,
3178 + .00000, .00051, .00061,
3179 + .22948, .06808, .03418, .00105, .00001,
3180 + .00000, .00047, .00057,
3181 + .21717, .06430, .03032, .00099, .00002,
3182 + .00000, .00044, .00053,
3183 + .20611, .06090, .02709, .00093, .00003,
3184 + .00000, .00041, .00050,
3185 + .19510, .05753, .02411, .00086, .00003,
3186 + .00000, .00038, .00047 /
3187 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
3188 + .18606, .05478, .02183, .00084, .00003,
3189 + .00000, .00037, .00043,
3190 + .17785, .05227, .01986, .00078, .00004,
3191 + .00000, .00035, .00041,
3192 + .17168, .05038, .01845, .00073, .00004,
3193 + .00000, .00034, .00039,
3194 + .15928, .04664, .01582, .00066, .00004,
3195 + .00000, .00030, .00037,
3196 + .14950, .04369, .01390, .00063, .00004,
3197 + .00001, .00029, .00033,
3198 + .13940, .04065, .01207, .00057, .00004,
3199 + .00001, .00026, .00030,
3200 + .12971, .03774, .01046, .00052, .00004,
3201 + .00001, .00024, .00028,
3202 + .12158, .03531, .00923, .00049, .00004,
3203 + .00002, .00022, .00026 /
3204 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
3205 + .11397, .03303, .00816, .00044, .00004,
3206 + .00002, .00021, .00024,
3207 + .10807, .03127, .00739, .00041, .00004,
3208 + .00002, .00019, .00021,
3209 + .10135, .02927, .00657, .00039, .00004,
3210 + .00002, .00018, .00020,
3211 + .09581, .02762, .00594, .00037, .00004,
3212 + .00002, .00017, .00019,
3213 + .09104, .02621, .00543, .00034, .00004,
3214 + .00002, .00015, .00018,
3215 + .08537, .02453, .00486, .00031, .00004,
3216 + .00002, .00015, .00016,
3217 + .08039, .02306, .00439, .00029, .00004,
3218 + .00002, .00014, .00015,
3219 + .07602, .02179, .00400, .00027, .00003,
3220 + .00002, .00013, .00015 /
3221 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
3222 + .07192, .02057, .00365, .00025, .00003,
3223 + .00002, .00012, .00013,
3224 + .06815, .01946, .00335, .00023, .00003,
3225 + .00002, .00011, .00013,
3226 + .06478, .01848, .00309, .00022, .00003,
3227 + .00002, .00011, .00013,
3228 + .06175, .01760, .00286, .00021, .00003,
3229 + .00002, .00010, .00012,
3230 + .05887, .01677, .00266, .00021, .00003,
3231 + .00002, .00010, .00011,
3232 + .05620, .01599, .00248, .00020, .00003,
3233 + .00002, .00009, .00010,
3234 + .05380, .01528, .00232, .00018, .00003,
3235 + .00002, .00008, .00010,
3236 + .05160, .01465, .00218, .00017, .00003,
3237 + .00002, .00008, .00009 /
3238 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
3239 + .04950, .01404, .00205, .00016, .00003,
3240 + .00002, .00007, .00009,
3241 + .04750, .01346, .00193, .00015, .00002,
3242 + .00002, .00007, .00008,
3243 + .04568, .01293, .00183, .00015, .00002,
3244 + .00002, .00007, .00008,
3245 + .04402, .01246, .00173, .00015, .00002,
3246 + .00002, .00007, .00007,
3247 + .04242, .01199, .00164, .00014, .00002,
3248 + .00002, .00006, .00007 /
3249 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
3250 + .26157, .07697, .04706, .00107, .00000,
3251 + .00000, .00039, .00048,
3252 + .24530, .07198, .04087, .00096, .00000,
3253 + .00000, .00036, .00045,
3254 + .22337, .06534, .03334, .00086, .00000,
3255 + .00000, .00032, .00040,
3256 + .20901, .06098, .02887, .00082, .00000,
3257 + .00000, .00030, .00036,
3258 + .19527, .05687, .02490, .00074, .00001,
3259 + .00000, .00028, .00033,
3260 + .18427, .05355, .02199, .00069, .00001,
3261 + .00000, .00026, .00031,
3262 + .17442, .05059, .01957, .00063, .00002,
3263 + .00000, .00024, .00029,
3264 + .16465, .04766, .01733, .00058, .00002,
3265 + .00000, .00023, .00027 /
3266 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
3267 + .15662, .04529, .01563, .00055, .00002,
3268 + .00000, .00021, .00024,
3269 + .14934, .04312, .01417, .00052, .00002,
3270 + .00000, .00020, .00023,
3271 + .14387, .04148, .01313, .00049, .00002,
3272 + .00000, .00019, .00023,
3273 + .13296, .03825, .01120, .00045, .00002,
3274 + .00000, .00017, .00022,
3275 + .12441, .03573, .00981, .00042, .00002,
3276 + .00000, .00016, .00019,
3277 + .11559, .03312, .00848, .00039, .00003,
3278 + .00001, .00015, .00017,
3279 + .10717, .03064, .00733, .00035, .00003,
3280 + .00001, .00014, .00016,
3281 + .10014, .02858, .00645, .00032, .00003,
3282 + .00001, .00013, .00014 /
3283 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
3284 + .09356, .02666, .00569, .00030, .00002,
3285 + .00001, .00011, .00013,
3286 + .08847, .02518, .00514, .00029, .00002,
3287 + .00001, .00011, .00012,
3288 + .08272, .02350, .00456, .00026, .00002,
3289 + .00001, .00010, .00011,
3290 + .07799, .02212, .00412, .00024, .00002,
3291 + .00001, .00009, .00010,
3292 + .07390, .02095, .00375, .00024, .00002,
3293 + .00001, .00009, .00009,
3294 + .06908, .01954, .00335, .00021, .00002,
3295 + .00001, .00008, .00009,
3296 + .06487, .01832, .00302, .00020, .00002,
3297 + .00001, .00007, .00008,
3298 + .06119, .01726, .00275, .00018, .00002,
3299 + .00001, .00007, .00008 /
3300 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
3301 + .05773, .01626, .00251, .00017, .00002,
3302 + .00001, .00006, .00007,
3303 + .05456, .01535, .00229, .00016, .00002,
3304 + .00001, .00005, .00006,
3305 + .05174, .01454, .00211, .00015, .00002,
3306 + .00001, .00006, .00006,
3307 + .04922, .01382, .00196, .00014, .00002,
3308 + .00001, .00005, .00006,
3309 + .04683, .01314, .00182, .00014, .00002,
3310 + .00001, .00005, .00006,
3311 + .04460, .01250, .00169, .00013, .00002,
3312 + .00001, .00005, .00006,
3313 + .04260, .01192, .00158, .00012, .00002,
3314 + .00001, .00005, .00005,
3315 + .04079, .01141, .00149, .00011, .00002,
3316 + .00001, .00004, .00005 /
3317 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
3318 + .03906, .01091, .00139, .00010, .00002,
3319 + .00001, .00004, .00005,
3320 + .03742, .01044, .00131, .00010, .00001,
3321 + .00001, .00004, .00004,
3322 + .03593, .01002, .00124, .00009, .00001,
3323 + .00001, .00004, .00004,
3324 + .03457, .00964, .00118, .00009, .00001,
3325 + .00001, .00003, .00004,
3326 + .03325, .00926, .00111, .00009, .00001,
3327 + .00001, .00003, .00004 /
3328 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
3329 + .22266, .06415, .03435, .00062, .00000,
3330 + .00000, .00028, .00032,
3331 + .20801, .05981, .02960, .00058, .00000,
3332 + .00000, .00024, .00028,
3333 + .18847, .05403, .02391, .00051, .00000,
3334 + .00000, .00023, .00026,
3335 + .17572, .05026, .02057, .00048, .00000,
3336 + .00000, .00022, .00024,
3337 + .16362, .04668, .01764, .00042, .00001,
3338 + .00000, .00020, .00023,
3339 + .15391, .04384, .01550, .00039, .00001,
3340 + .00000, .00019, .00020,
3341 + .14523, .04130, .01373, .00037, .00001,
3342 + .00000, .00018, .00019,
3343 + .13665, .03880, .01210, .00034, .00001,
3344 + .00000, .00016, .00018 /
3345 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
3346 + .12967, .03677, .01087, .00032, .00001,
3347 + .00000, .00014, .00017,
3348 + .12334, .03493, .00983, .00030, .00001,
3349 + .00000, .00014, .00015,
3350 + .11858, .03355, .00908, .00028, .00001,
3351 + .00000, .00013, .00014,
3352 + .10917, .03081, .00771, .00026, .00001,
3353 + .00000, .00012, .00013,
3354 + .10180, .02868, .00673, .00023, .00001,
3355 + .00000, .00011, .00012,
3356 + .09423, .02650, .00580, .00020, .00001,
3357 + .00000, .00010, .00011,
3358 + .08701, .02443, .00500, .00020, .00001,
3359 + .00001, .00009, .00010,
3360 + .08101, .02271, .00439, .00019, .00001,
3361 + .00001, .00008, .00009 /
3362 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
3363 + .07545, .02111, .00386, .00016, .00001,
3364 + .00001, .00008, .00009,
3365 + .07115, .01989, .00348, .00015, .00001,
3366 + .00001, .00007, .00008,
3367 + .06629, .01850, .00308, .00015, .00001,
3368 + .00001, .00007, .00007,
3369 + .06232, .01737, .00278, .00014, .00001,
3370 + .00001, .00006, .00006,
3371 + .05892, .01640, .00253, .00013, .00001,
3372 + .00001, .00006, .00006,
3373 + .05490, .01525, .00226, .00011, .00001,
3374 + .00001, .00005, .00005,
3375 + .05139, .01426, .00203, .00011, .00001,
3376 + .00001, .00005, .00005,
3377 + .04832, .01340, .00184, .00010, .00001,
3378 + .00001, .00005, .00004 /
3379 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
3380 + .04546, .01259, .00168, .00009, .00001,
3381 + .00001, .00005, .00004,
3382 + .04286, .01185, .00154, .00009, .00001,
3383 + .00001, .00004, .00004,
3384 + .04055, .01120, .00141, .00007, .00001,
3385 + .00001, .00003, .00004,
3386 + .03849, .01062, .00131, .00007, .00001,
3387 + .00001, .00003, .00004,
3388 + .03654, .01007, .00121, .00006, .00001,
3389 + .00001, .00003, .00003,
3390 + .03472, .00956, .00113, .00006, .00001,
3391 + .00001, .00003, .00003,
3392 + .03308, .00910, .00105, .00005, .00001,
3393 + .00001, .00003, .00003,
3394 + .03161, .00869, .00099, .00005, .00001,
3395 + .00001, .00003, .00003 /
3396 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
3397 + .03021, .00830, .00093, .00005, .00001,
3398 + .00001, .00003, .00003,
3399 + .02888, .00792, .00087, .00005, .00001,
3400 + .00001, .00003, .00003,
3401 + .02767, .00759, .00082, .00005, .00001,
3402 + .00001, .00002, .00002,
3403 + .02658, .00728, .00078, .00005, .00001,
3404 + .00001, .00002, .00002,
3405 + .02552, .00699, .00074, .00005, .00001,
3406 + .00001, .00002, .00002 /
3407 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
3408 + .15389, .04274, .01679, .00026, .00000,
3409 + .00000, .00010, .00010,
3410 + .14271, .03956, .01427, .00021, .00000,
3411 + .00000, .00009, .00009,
3412 + .12789, .03538, .01132, .00020, .00000,
3413 + .00000, .00008, .00008,
3414 + .11837, .03267, .00962, .00017, .00000,
3415 + .00000, .00007, .00008,
3416 + .10934, .03013, .00816, .00016, .00000,
3417 + .00000, .00006, .00007,
3418 + .10220, .02812, .00711, .00014, .00000,
3419 + .00000, .00006, .00006,
3420 + .09585, .02634, .00625, .00012, .00000,
3421 + .00000, .00006, .00006,
3422 + .08961, .02459, .00547, .00012, .00000,
3423 + .00000, .00005, .00006 /
3424 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
3425 + .08457, .02318, .00489, .00012, .00000,
3426 + .00000, .00005, .00005,
3427 + .08001, .02190, .00440, .00011, .00000,
3428 + .00000, .00005, .00005,
3429 + .07661, .02095, .00405, .00011, .00000,
3430 + .00000, .00004, .00004,
3431 + .06997, .01909, .00342, .00007, .00000,
3432 + .00000, .00004, .00005,
3433 + .06476, .01764, .00296, .00007, .00000,
3434 + .00000, .00003, .00004,
3435 + .05948, .01618, .00254, .00007, .00000,
3436 + .00000, .00003, .00004,
3437 + .05449, .01480, .00218, .00006, .00000,
3438 + .00000, .00003, .00004,
3439 + .05038, .01366, .00191, .00006, .00000,
3440 + .00000, .00003, .00003 /
3441 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
3442 + .04659, .01262, .00168, .00005, .00000,
3443 + .00000, .00003, .00003,
3444 + .04367, .01182, .00151, .00005, .00000,
3445 + .00000, .00002, .00003,
3446 + .04041, .01092, .00133, .00005, .00000,
3447 + .00000, .00002, .00003,
3448 + .03776, .01019, .00120, .00004, .00000,
3449 + .00000, .00002, .00003,
3450 + .03552, .00957, .00109, .00003, .00000,
3451 + .00000, .00002, .00002,
3452 + .03285, .00885, .00097, .00004, .00000,
3453 + .00000, .00002, .00002,
3454 + .03056, .00822, .00087, .00003, .00000,
3455 + .00000, .00001, .00002,
3456 + .02859, .00768, .00079, .00002, .00000,
3457 + .00000, .00001, .00002 /
3458 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
3459 + .02673, .00717, .00072, .00002, .00000,
3460 + .00000, .00001, .00002,
3461 + .02505, .00672, .00065, .00003, .00000,
3462 + .00000, .00001, .00002,
3463 + .02357, .00631, .00060, .00003, .00000,
3464 + .00000, .00001, .00001,
3465 + .02226, .00596, .00055, .00002, .00000,
3466 + .00000, .00001, .00001,
3467 + .02104, .00562, .00051, .00001, .00000,
3468 + .00000, .00001, .00002,
3469 + .01990, .00531, .00047, .00002, .00000,
3470 + .00000, .00001, .00001,
3471 + .01887, .00504, .00044, .00002, .00000,
3472 + .00000, .00001, .00001,
3473 + .01796, .00479, .00041, .00002, .00000,
3474 + .00000, .00001, .00001 /
3475 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/
3476 + .01708, .00456, .00039, .00002, .00000,
3477 + .00000, .00001, .00001,
3478 + .01627, .00433, .00036, .00001, .00000,
3479 + .00000, .00001, .00001,
3480 + .01553, .00413, .00034, .00001, .00000,
3481 + .00000, .00001, .00001,
3482 + .01486, .00395, .00032, .00001, .00000,
3483 + .00000, .00001, .00001,
3484 + .01422, .00378, .00031, .00001, .00000,
3485 + .00000, .00001, .00001 /
3486 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/
3487 + .09825, .02637, .00708, .00009, .00000,
3488 + .00000, .00003, .00002,
3489 + .09036, .02422, .00595, .00008, .00000,
3490 + .00000, .00002, .00002,
3491 + .08007, .02141, .00465, .00007, .00000,
3492 + .00000, .00002, .00002,
3493 + .07348, .01962, .00392, .00006, .00000,
3494 + .00000, .00002, .00003,
3495 + .06732, .01796, .00330, .00005, .00000,
3496 + .00000, .00002, .00002,
3497 + .06248, .01664, .00286, .00005, .00000,
3498 + .00000, .00001, .00002,
3499 + .05822, .01548, .00250, .00004, .00000,
3500 + .00000, .00001, .00002,
3501 + .05406, .01436, .00218, .00004, .00000,
3502 + .00000, .00001, .00002 /
3503 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
3504 + .05071, .01346, .00194, .00004, .00000,
3505 + .00000, .00001, .00002,
3506 + .04771, .01265, .00174, .00004, .00000,
3507 + .00000, .00001, .00001,
3508 + .04548, .01205, .00160, .00004, .00000,
3509 + .00000, .00001, .00001,
3510 + .04113, .01088, .00134, .00003, .00000,
3511 + .00000, .00001, .00001,
3512 + .03781, .00999, .00116, .00002, .00000,
3513 + .00000, .00001, .00001,
3514 + .03442, .00908, .00100, .00002, .00000,
3515 + .00000, .00001, .00001,
3516 + .03125, .00824, .00085, .00003, .00000,
3517 + .00000, .00001, .00001,
3518 + .02868, .00755, .00075, .00002, .00000,
3519 + .00000, .00001, .00001 /
3520 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
3521 + .02632, .00692, .00065, .00001, .00000,
3522 + .00000, .00000, .00001,
3523 + .02451, .00644, .00059, .00001, .00000,
3524 + .00000, .00000, .00001,
3525 + .02251, .00591, .00052, .00001, .00000,
3526 + .00000, .00000, .00001,
3527 + .02090, .00548, .00047, .00001, .00000,
3528 + .00000, .00000, .00001,
3529 + .01953, .00512, .00042, .00001, .00000,
3530 + .00000, .00001, .00000,
3531 + .01795, .00469, .00037, .00001, .00000,
3532 + .00000, .00000, .00000,
3533 + .01658, .00433, .00034, .00001, .00000,
3534 + .00000, .00000, .00000,
3535 + .01541, .00402, .00030, .00001, .00000,
3536 + .00000, .00000, .00000 /
3537 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
3538 + .01432, .00374, .00028, .00001, .00000,
3539 + .00000, .00000, .00000,
3540 + .01334, .00348, .00025, .00001, .00000,
3541 + .00000, .00000, .00000,
3542 + .01247, .00325, .00023, .00001, .00000,
3543 + .00000, .00000, .00000,
3544 + .01172, .00305, .00021, .00001, .00000,
3545 + .00000, .00000, .00000,
3546 + .01101, .00286, .00020, .00001, .00000,
3547 + .00000, .00000, .00000,
3548 + .01036, .00269, .00018, .00000, .00000,
3549 + .00000, .00000, .00000,
3550 + .00979, .00254, .00017, .00000, .00000,
3551 + .00000, .00000, .00000,
3552 + .00927, .00241, .00016, .00000, .00000,
3553 + .00000, .00000, .00000 /
3554 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/
3555 + .00878, .00228, .00015, .00000, .00000,
3556 + .00000, .00000, .00000,
3557 + .00832, .00216, .00014, .00001, .00000,
3558 + .00000, .00000, .00000,
3559 + .00791, .00205, .00013, .00000, .00000,
3560 + .00000, .00000, .00000,
3561 + .00754, .00195, .00012, .00000, .00000,
3562 + .00000, .00000, .00000,
3563 + .00718, .00186, .00011, .00000, .00000,
3564 + .00000, .00000, .00000 /
3565 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/
3566 + .05651, .01470, .00245, .00003, .00000,
3567 + .00000, .00000, .00000,
3568 + .05152, .01338, .00205, .00002, .00000,
3569 + .00000, -.00001, .00000,
3570 + .04505, .01168, .00159, .00002, .00000,
3571 + .00000, .00000, .00000,
3572 + .04098, .01061, .00133, .00002, .00000,
3573 + .00000, .00000, .00000,
3574 + .03720, .00962, .00112, .00002, .00000,
3575 + .00000, .00000, .00000,
3576 + .03425, .00885, .00097, .00001, .00000,
3577 + .00000, .00000, .00000,
3578 + .03167, .00817, .00085, .00001, .00000,
3579 + .00000, .00000, .00000,
3580 + .02918, .00752, .00074, .00001, .00000,
3581 + .00000, .00000, .00000 /
3582 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
3583 + .02719, .00701, .00066, .00002, .00000,
3584 + .00000, .00000, .00000,
3585 + .02541, .00655, .00059, .00002, .00000,
3586 + .00000, .00000, .00000,
3587 + .02410, .00620, .00054, .00002, .00000,
3588 + .00000, .00000, .00000,
3589 + .02158, .00555, .00046, .00001, .00000,
3590 + .00000, .00000, .00000,
3591 + .01965, .00505, .00040, .00001, .00000,
3592 + .00000, .00000, .00000,
3593 + .01773, .00455, .00034, .00001, .00000,
3594 + .00000, .00000, .00000,
3595 + .01595, .00409, .00029, .00001, .00000,
3596 + .00000, .00000, .00000,
3597 + .01451, .00371, .00025, .00000, .00000,
3598 + .00000, .00000, .00000 /
3599 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/
3600 + .01320, .00337, .00022, .00000, .00000,
3601 + .00000, .00000, .00000,
3602 + .01221, .00312, .00020, .00000, .00000,
3603 + .00000, .00000, .00000,
3604 + .01112, .00284, .00018, .00000, .00000,
3605 + .00000, .00000, .00000,
3606 + .01024, .00261, .00016, .00000, .00000,
3607 + .00000, .00000, .00000,
3608 + .00951, .00242, .00014, .00000, .00000,
3609 + .00000, .00000, .00000,
3610 + .00866, .00221, .00013, .00000, .00000,
3611 + .00000, .00000, .00000,
3612 + .00794, .00202, .00011, .00000, .00000,
3613 + .00000, .00000, .00000,
3614 + .00732, .00186, .00010, .00000, .00000,
3615 + .00000, .00000, .00000 /
3616 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/
3617 + .00676, .00172, .00009, .00000, .00000,
3618 + .00000, .00000, .00000,
3619 + .00625, .00159, .00008, .00000, .00000,
3620 + .00000, .00000, .00000,
3621 + .00581, .00148, .00008, .00000, .00000,
3622 + .00000, .00000, .00000,
3623 + .00543, .00138, .00007, .00000, .00000,
3624 + .00000, .00000, .00000,
3625 + .00507, .00129, .00007, .00000, .00000,
3626 + .00000, .00000, .00000,
3627 + .00474, .00120, .00006, .00000, .00000,
3628 + .00000, .00000, .00000,
3629 + .00445, .00113, .00006, .00000, .00000,
3630 + .00000, .00000, .00000,
3631 + .00420, .00106, .00005, .00000, .00000,
3632 + .00000, .00000, .00000 /
3633 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=33,37)/
3634 + .00395, .00100, .00005, .00000, .00000,
3635 + .00000, .00000, .00000,
3636 + .00373, .00094, .00005, .00000, .00000,
3637 + .00000, .00000, .00000,
3638 + .00353, .00089, .00004, .00000, .00000,
3639 + .00000, .00000, .00000,
3640 + .00335, .00085, .00004, .00000, .00000,
3641 + .00000, .00000, .00000,
3642 + .00317, .00080, .00004, .00000, .00000,
3643 + .00000, .00000, .00000 /
3644 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/
3645 + .02795, .00704, .00064, .00000, .00000,
3646 + .00000, .00000, .00000,
3647 + .02520, .00634, .00054, .00000, .00000,
3648 + .00000, .00000, .00000,
3649 + .02171, .00546, .00042, .00000, .00000,
3650 + .00000, .00000, .00000,
3651 + .01954, .00491, .00035, .00000, .00000,
3652 + .00000, .00000, .00000,
3653 + .01755, .00440, .00030, .00000, .00000,
3654 + .00000, .00000, .00000,
3655 + .01601, .00401, .00026, .00000, .00000,
3656 + .00000, .00000, .00000,
3657 + .01468, .00368, .00023, .00000, .00000,
3658 + .00000, .00000, .00000,
3659 + .01339, .00335, .00020, .00000, .00000,
3660 + .00000, .00000, .00000 /
3661 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=9,16)/
3662 + .01239, .00310, .00018, .00000, .00000,
3663 + .00000, .00000, .00000,
3664 + .01150, .00288, .00016, .00000, .00000,
3665 + .00000, .00000, .00000,
3666 + .01084, .00271, .00015, .00000, .00000,
3667 + .00000, .00000, .00000,
3668 + .00959, .00240, .00013, .00000, .00000,
3669 + .00000, .00000, .00000,
3670 + .00865, .00216, .00011, .00000, .00000,
3671 + .00000, .00000, .00000,
3672 + .00771, .00192, .00009, .00000, .00000,
3673 + .00000, .00000, .00000,
3674 + .00686, .00171, .00008, .00000, .00000,
3675 + .00000, .00000, .00000,
3676 + .00617, .00154, .00007, .00000, .00000,
3677 + .00000, .00000, .00000 /
3678 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=17,24)/
3679 + .00556, .00138, .00006, .00000, .00000,
3680 + .00000, .00000, .00000,
3681 + .00510, .00127, .00006, .00000, .00000,
3682 + .00000, .00000, .00000,
3683 + .00460, .00114, .00005, .00000, .00000,
3684 + .00000, .00000, .00000,
3685 + .00420, .00104, .00004, .00000, .00000,
3686 + .00000, .00000, .00000,
3687 + .00387, .00096, .00004, .00000, .00000,
3688 + .00000, .00000, .00000,
3689 + .00349, .00087, .00004, .00000, .00000,
3690 + .00000, .00000, .00000,
3691 + .00317, .00079, .00003, .00000, .00000,
3692 + .00000, .00000, .00000,
3693 + .00290, .00072, .00003, .00000, .00000,
3694 + .00000, .00000, .00000 /
3695 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/
3696 + .00265, .00066, .00003, .00000, .00000,
3697 + .00000, .00000, .00000,
3698 + .00244, .00060, .00002, .00000, .00000,
3699 + .00000, .00000, .00000,
3700 + .00225, .00056, .00002, .00000, .00000,
3701 + .00000, .00000, .00000,
3702 + .00208, .00052, .00002, .00000, .00000,
3703 + .00000, .00000, .00000,
3704 + .00193, .00048, .00002, .00000, .00000,
3705 + .00000, .00000, .00000,
3706 + .00180, .00044, .00002, .00000, .00000,
3707 + .00000, .00000, .00000,
3708 + .00167, .00041, .00002, .00000, .00000,
3709 + .00000, .00000, .00000,
3710 + .00157, .00039, .00001, .00000, .00000,
3711 + .00000, .00000, .00000 /
3712 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/
3713 + .00147, .00036, .00001, .00000, .00000,
3714 + .00000, .00000, .00000,
3715 + .00138, .00034, .00001, .00000, .00000,
3716 + .00000, .00000, .00000,
3717 + .00130, .00032, .00001, .00000, .00000,
3718 + .00000, .00000, .00000,
3719 + .00122, .00030, .00001, .00000, .00000,
3720 + .00000, .00000, .00000,
3721 + .00115, .00028, .00001, .00000, .00000,
3722 + .00000, .00000, .00000 /
3723 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/
3724 + .00285, .00068, .00001, .00000, .00000,
3725 + .00000, .00000, .00000,
3726 + .00249, .00059, .00001, .00000, .00000,
3727 + .00000, .00000, .00000,
3728 + .00205, .00049, .00001, .00000, .00000,
3729 + .00000, .00000, .00000,
3730 + .00179, .00043, .00001, .00000, .00000,
3731 + .00000, .00000, .00000,
3732 + .00156, .00037, .00001, .00000, .00000,
3733 + .00000, .00000, .00000,
3734 + .00139, .00033, .00001, .00000, .00000,
3735 + .00000, .00000, .00000,
3736 + .00124, .00030, .00001, .00000, .00000,
3737 + .00000, .00000, .00000,
3738 + .00110, .00026, .00001, .00000, .00000,
3739 + .00000, .00000, .00000 /
3740 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/
3741 + .00100, .00024, .00001, .00000, .00000,
3742 + .00000, .00000, .00000,
3743 + .00091, .00022, .00001, .00000, .00000,
3744 + .00000, .00000, .00000,
3745 + .00084, .00020, .00000, .00000, .00000,
3746 + .00000, .00000, .00000,
3747 + .00072, .00017, .00000, .00000, .00000,
3748 + .00000, .00000, .00000,
3749 + .00063, .00015, .00000, .00000, .00000,
3750 + .00000, .00000, .00000,
3751 + .00054, .00013, .00000, .00000, .00000,
3752 + .00000, .00000, .00000,
3753 + .00047, .00011, .00000, .00000, .00000,
3754 + .00000, .00000, .00000,
3755 + .00041, .00010, .00000, .00000, .00000,
3756 + .00000, .00000, .00000 /
3757 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/
3758 + .00036, .00009, .00000, .00000, .00000,
3759 + .00000, .00000, .00000,
3760 + .00032, .00008, .00000, .00000, .00000,
3761 + .00000, .00000, .00000,
3762 + .00028, .00007, .00000, .00000, .00000,
3763 + .00000, .00000, .00000,
3764 + .00025, .00006, .00000, .00000, .00000,
3765 + .00000, .00000, .00000,
3766 + .00022, .00005, .00000, .00000, .00000,
3767 + .00000, .00000, .00000,
3768 + .00020, .00005, .00000, .00000, .00000,
3769 + .00000, .00000, .00000,
3770 + .00017, .00004, .00000, .00000, .00000,
3771 + .00000, .00000, .00000,
3772 + .00016, .00004, .00000, .00000, .00000,
3773 + .00000, .00000, .00000 /
3774 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
3775 + .00014, .00003, .00000, .00000, .00000,
3776 + .00000, .00000, .00000,
3777 + .00012, .00003, .00000, .00000, .00000,
3778 + .00000, .00000, .00000,
3779 + .00011, .00003, .00000, .00000, .00000,
3780 + .00000, .00000, .00000,
3781 + .00010, .00003, .00000, .00000, .00000,
3782 + .00000, .00000, .00000,
3783 + .00009, .00002, .00000, .00000, .00000,
3784 + .00000, .00000, .00000,
3785 + .00008, .00002, .00000, .00000, .00000,
3786 + .00000, .00000, .00000,
3787 + .00008, .00002, .00000, .00000, .00000,
3788 + .00000, .00000, .00000,
3789 + .00007, .00002, .00000, .00000, .00000,
3790 + .00000, .00000, .00000 /
3791 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
3792 + .00007, .00002, .00000, .00000, .00000,
3793 + .00000, .00000, .00000,
3794 + .00006, .00002, .00000, .00000, .00000,
3795 + .00000, .00000, .00000,
3796 + .00006, .00001, .00000, .00000, .00000,
3797 + .00000, .00000, .00000,
3798 + .00005, .00001, .00000, .00000, .00000,
3799 + .00000, .00000, .00000,
3800 + .00005, .00001, .00000, .00000, .00000,
3801 + .00000, .00000, .00000 /
3802 data xx/1d-5,2d-5,4d-5,6d-5,8d-5,
3803 . 1d-4,2d-4,4d-4,6d-4,8d-4,
3804 . 1d-3,2d-3,4d-3,6d-3,8d-3,
3805 . 1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2,
3806 . .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0,
3807 . .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0,
3808 . .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0,
3810 data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1,
3811 . 1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2,
3812 . 1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4,
3813 . 1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6,
3814 . 1.8d6,3.2d6,5.6d6,1d7/
3815 data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/
3816 data n0/3,4,5,9,9,9,9,9/
3817 DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
3822 if(init.ne.0) goto 10
3823 C open(unit=1,file='cor12.dat',status='old')
3826 C read(1,50)f(1,n,m),f(2,n,m),f(3,n,m),f(4,n,m),
3827 C . f(5,n,m),f(7,n,m),f(6,n,m),f(8,n,m)
3828 c notation: 1=uval 2=val 3=glue 4=usea 5=chm 6=str 7=btm 8=dsea
3830 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i)
3833 xx(j)= log10(xx(j)/xx(ntenth))+xx(ntenth)
3835 if(i.eq.5.or.i.eq.7) goto 31
3837 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k)
3845 if(x.lt.xmin) x=xmin
3846 if(x.gt.xmax) x=xmax
3847 if(qsq.lt.qsqmin) qsq=qsqmin
3848 if(qsq.gt.qsqmax) qsq=qsqmax
3850 if(x.lt.xx(ntenth)) xxx= log10(x/xx(ntenth))+xx(ntenth)
3853 if(xxx.gt.xx(n+1)) goto 70
3854 a=(xxx-xx(n))/(xx(n+1)-xx(n))
3857 if(qsq.gt.qq(m+1)) goto 80
3858 b=(qsq-qq(m))/(qq(m+1)-qq(m))
3860 g(i)= (ONED-a)*(ONED-b)*f(i,n,m) + (ONED-a)*b*f(i,n,m+1)
3861 . + a*(ONED-b)*f(i,n+1,m) + a*b*f(i,n+1,m+1)
3862 if(n.ge.ntenth) goto 65
3863 if(i.eq.5.or.i.eq.7) goto 65
3864 fac=(ONED-b)*f(i,ntenth,m)+b*f(i,ntenth,m+1)
3865 g(i)=fac*10d0**(g(i)-fac)
3867 g(i)=g(i)*(ONED-x)**n0(i)
git://git.uio.no / u / mrichter / AliRoot.git / blob