2 subroutine sfmrs_98a1(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 + .00561, .00197, 1.10471, .90600, .00000,
12 + .00000, .48249, .91923,
13 + .00578, .00203, 2.36773, .94053, .00000,
14 + .00000, .52228, .95384,
15 + .00602, .00212, 4.85065, 1.01613, .03353,
16 + .00000, .60536, 1.02952,
17 + .00620, .00220, 7.24471, 1.08931, .11230,
18 + .00000, .68380, 1.10274,
19 + .00639, .00227, 10.29794, 1.18627, .20172,
20 + .00000, .78613, 1.19974,
21 + .00656, .00234, 13.42391, 1.28676, .29456,
22 + .00000, .89113, 1.30026,
23 + .00671, .00241, 16.94081, 1.39695, .40086,
24 + .00000, 1.00554, 1.41047,
25 + .00688, .00248, 21.26545, 1.52977, .53187,
26 + .00000, 1.14272, 1.54330 /
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 + .00703, .00254, 25.47171, 1.66063, .65795,
29 + .00000, 1.27728, 1.67416,
30 + .00718, .00260, 29.98664, 1.80007, .79345,
31 + .00000, 1.42023, 1.81361,
32 + .00729, .00265, 33.94270, 1.91972, .91255,
33 + .00000, 1.54261, 1.93325,
34 + .00754, .00276, 43.25138, 2.20531, 1.19366,
35 + .02232, 1.83388, 2.21884,
36 + .00775, .00286, 52.29885, 2.48517, 1.46846,
37 + .34284, 2.11850, 2.49868,
38 + .00799, .00297, 63.74070, 2.83776, 1.81685,
39 + .74324, 2.47627, 2.85124,
40 + .00824, .00308, 77.17352, 3.25071, 2.22591,
41 + 1.16993, 2.89446, 3.26415,
42 + .00848, .00319, 90.75123, 3.66780, 2.63998,
43 + 1.60230, 3.31617, 3.68120 /
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 + .00871, .00330, 105.84562, 4.13171, 3.10183,
46 + 2.08276, 3.78462, 4.14507,
47 + .00891, .00339, 119.39506, 4.55033, 3.51777,
48 + 2.51062, 4.20692, 4.56364,
49 + .00915, .00350, 137.06960, 5.09943, 4.06291,
50 + 3.06933, 4.76038, 5.11268,
51 + .00937, .00360, 153.96635, 5.62542, 4.58697,
52 + 3.60897, 5.29015, 5.63862,
53 + .00957, .00370, 170.51894, 6.14230, 5.10305,
54 + 4.14077, 5.81041, 6.15545,
55 + .00982, .00382, 192.70662, 6.84285, 5.79974,
56 + 4.85192, 6.51515, 6.85592,
57 + .01007, .00394, 215.04366, 7.55173, 6.50652,
58 + 5.57537, 7.22789, 7.56473,
59 + .01029, .00405, 237.36935, 8.26299, 7.21796,
60 + 6.30608, 7.94268, 8.27592 /
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 + .01053, .00416, 260.57272, 9.01277, 7.96432,
63 + 7.06533, 8.69592, 9.02563,
64 + .01075, .00427, 284.58243, 9.79204, 8.74248,
65 + 7.86004, 9.47850, 9.80483,
66 + .01097, .00438, 308.40543, 10.57068, 9.52067,
67 + 8.65469, 10.26023, 10.58341,
68 + .01118, .00448, 331.58652, 11.33677, 10.28490,
69 + 9.43216, 11.02917, 11.34943,
70 + .01139, .00458, 356.04791, 12.14770, 11.09644,
71 + 10.26084, 11.84290, 12.16029,
72 + .01160, .00468, 380.61456, 12.97325, 11.91995,
73 + 11.09709, 12.67118, 12.98578,
74 + .01180, .00478, 405.12000, 13.79840, 12.74602,
75 + 11.93965, 13.49886, 13.81086,
76 + .01199, .00488, 428.62674, 14.60066, 13.54674,
77 + 12.75214, 14.30350, 14.61306 /
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 + .01218, .00497, 453.32101, 15.44594, 14.39258,
80 + 13.61299, 15.15113, 15.45827,
81 + .01238, .00507, 478.15240, 16.30483, 15.25098,
82 + 14.48462, 16.01231, 16.31710,
83 + .01256, .00516, 502.51834, 17.15307, 16.09923,
84 + 15.34610, 16.86271, 17.16528,
85 + .01274, .00525, 526.31989, 17.98590, 16.93307,
86 + 16.19394, 17.69755, 17.99805,
87 + .01292, .00534, 550.58600, 18.84514, 17.79156,
88 + 17.06390, 18.55881, 18.85723 /
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 + .00753, .00271, 1.03309, .76815, .00000,
91 + .00000, .40841, .77580,
92 + .00776, .00281, 2.17036, .80012, .00000,
93 + .00000, .44453, .80781,
94 + .00810, .00295, 4.35702, .86694, .02905,
95 + .00000, .51723, .87467,
96 + .00835, .00306, 6.42141, .92994, .09674,
97 + .00000, .58437, .93769,
98 + .00862, .00317, 9.00923, 1.01187, .17212,
99 + .00000, .67051, 1.01965,
100 + .00885, .00327, 11.61842, 1.09563, .24944,
101 + .00000, .75779, 1.10341,
102 + .00907, .00337, 14.51723, 1.18662, .33708,
103 + .00000, .85209, 1.19442,
104 + .00930, .00347, 18.03845, 1.29538, .44407,
105 + .00000, .96425, 1.30318 /
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 + .00951, .00357, 21.42296, 1.40156, .54607,
108 + .00000, 1.07333, 1.40937,
109 + .00970, .00366, 25.01979, 1.51391, .65488,
110 + .00000, 1.18841, 1.52171,
111 + .00986, .00373, 28.14594, 1.60980, .74993,
112 + .00000, 1.28642, 1.61760,
113 + .01020, .00389, 35.41249, 1.83670, .97229,
114 + .01814, 1.51775, 1.84450,
115 + .01049, .00402, 42.37106, 2.05680, 1.18739,
116 + .26843, 1.74155, 2.06459,
117 + .01082, .00418, 51.05703, 2.33152, 1.45746,
118 + .57898, 2.02030, 2.33929,
119 + .01117, .00434, 61.11814, 2.65009, 1.77136,
120 + .90590, 2.34293, 2.65785,
121 + .01149, .00450, 71.16084, 2.96887, 2.08612,
122 + 1.23397, 2.66529, 2.97660 /
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 + .01181, .00465, 82.19777, 3.32037, 2.43417,
125 + 1.59526, 3.02031, 3.32808,
126 + .01208, .00478, 92.00263, 3.63506, 2.74512,
127 + 1.91435, 3.33785, 3.64274,
128 + .01241, .00494, 104.66382, 4.04464, 3.14953,
129 + 2.32772, 3.75081, 4.05229,
130 + .01271, .00509, 116.64974, 4.43401, 3.53540,
131 + 2.72403, 4.14310, 4.44164,
132 + .01298, .00522, 128.29099, 4.81409, 3.91289,
133 + 3.11200, 4.52579, 4.82169,
134 + .01333, .00539, 143.74535, 5.32535, 4.41867,
135 + 3.62678, 5.04030, 5.33292,
136 + .01366, .00556, 159.15561, 5.83881, 4.92799,
137 + 4.14666, 5.55674, 5.84634,
138 + .01397, .00571, 174.42664, 6.35047, 5.43728,
139 + 4.66836, 6.07113, 6.35797 /
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 + .01428, .00587, 190.15471, 6.88604, 5.96775,
142 + 5.20637, 6.60938, 6.89351,
143 + .01459, .00602, 206.30344, 7.43919, 6.51749,
144 + 5.76624, 7.16509, 7.44663,
145 + .01488, .00617, 222.20613, 7.98857, 7.06401,
146 + 6.32278, 7.71684, 7.99597,
147 + .01516, .00631, 237.56445, 8.52590, 7.59755,
148 + 6.86401, 8.25637, 8.53327,
149 + .01544, .00646, 253.67119, 9.09177, 8.16138,
150 + 7.43825, 8.82442, 9.09911,
151 + .01572, .00660, 269.72839, 9.66455, 8.73020,
152 + 8.01419, 9.39930, 9.67185,
153 + .01599, .00674, 285.65811, 10.23440, 9.29832,
154 + 8.59216, 9.97111, 10.24167,
155 + .01625, .00687, 300.83502, 10.78556, 9.84607,
156 + 9.14638, 10.52411, 10.79280 /
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 + .01650, .00700, 316.69989, 11.36384, 10.42240,
159 + 9.73143, 11.10421, 11.37105,
160 + .01676, .00713, 332.55670, 11.94862, 11.00450,
161 + 10.32092, 11.69076, 11.95580,
162 + .01701, .00726, 348.03583, 12.52372, 11.57735,
163 + 10.90119, 12.26753, 12.53087,
164 + .01725, .00738, 363.08539, 13.08618, 12.13837,
165 + 11.47021, 12.83155, 13.09331,
166 + .01749, .00750, 378.34149, 13.66394, 12.71339,
167 + 12.05136, 13.41087, 13.67104 /
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 + .01011, .00374, .96718, .65095, .00000,
170 + .00000, .34580, .65472,
171 + .01043, .00388, 1.99070, .68033, .00000,
172 + .00000, .37843, .68411,
173 + .01091, .00410, 3.91487, .73926, .02517,
174 + .00000, .44199, .74306,
175 + .01125, .00426, 5.69270, .79347, .08332,
176 + .00000, .49943, .79727,
177 + .01162, .00443, 7.88244, .86266, .14684,
178 + .00000, .57192, .86647,
179 + .01194, .00457, 10.05591, .93240, .21118,
180 + .00000, .64441, .93621,
181 + .01224, .00472, 12.43985, 1.00746, .28338,
182 + .00000, .72205, 1.01128,
183 + .01256, .00487, 15.29970, 1.09638, .37065,
184 + .00000, .81362, 1.10020 /
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 + .01285, .00501, 18.01539, 1.18237, .45308,
187 + .00000, .90186, 1.18619,
188 + .01312, .00514, 20.87217, 1.27268, .54033,
189 + .00000, .99430, 1.27650,
190 + .01334, .00524, 23.33471, 1.34934, .61609,
191 + .00000, 1.07262, 1.35316,
192 + .01380, .00547, 28.98742, 1.52912, .79170,
193 + .01473, 1.25583, 1.53294,
194 + .01421, .00567, 34.31840, 1.70168, .95977,
195 + .21007, 1.43126, 1.70550,
196 + .01466, .00589, 40.88451, 1.91500, 1.16872,
197 + .45080, 1.64768, 1.91881,
198 + .01514, .00613, 48.38616, 2.15985, 1.40908,
199 + .70111, 1.89568, 2.16365,
200 + .01557, .00634, 55.77837, 2.40252, 1.64778,
201 + .94981, 2.14111, 2.40631 /
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 + .01602, .00657, 63.80739, 2.66775, 1.90939,
204 + 1.22122, 2.40905, 2.67154,
205 + .01638, .00675, 70.86452, 2.90328, 2.14124,
206 + 1.45889, 2.64678, 2.90706,
207 + .01683, .00698, 79.88329, 3.20740, 2.44038,
208 + 1.76431, 2.95351, 3.21117,
209 + .01723, .00718, 88.33579, 3.49430, 2.72364,
210 + 2.05491, 3.24264, 3.49806,
211 + .01760, .00737, 96.47317, 3.77243, 2.99888,
212 + 2.33748, 3.52279, 3.77618,
213 + .01807, .00761, 107.16874, 4.14370, 3.36482,
214 + 2.70939, 3.89655, 4.14744,
215 + .01852, .00784, 117.72968, 4.51370, 3.73055,
216 + 3.08220, 4.26884, 4.51743,
217 + .01894, .00806, 128.10362, 4.87985, 4.09379,
218 + 3.45383, 4.63708, 4.88357 /
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 + .01936, .00828, 138.68785, 5.26033, 4.46936,
221 + 3.83413, 5.01962, 5.26405,
222 + .01978, .00849, 149.46895, 5.65081, 4.85618,
223 + 4.22752, 5.41206, 5.65451,
224 + .02017, .00870, 160.00351, 6.03624, 5.23841,
225 + 4.61622, 5.79931, 6.03993,
226 + .02055, .00890, 170.09836, 6.41092, 5.60929,
227 + 4.99187, 6.17568, 6.41461,
228 + .02093, .00910, 180.61845, 6.80349, 5.99931,
229 + 5.38856, 6.56992, 6.80717,
230 + .02131, .00929, 191.02507, 7.19849, 6.39039,
231 + 5.78391, 6.96652, 7.20216,
232 + .02166, .00948, 201.29182, 7.58963, 6.77930,
233 + 6.17905, 7.35918, 7.59330,
234 + .02201, .00966, 211.00383, 7.96592, 7.15217,
235 + 6.55574, 7.73687, 7.96957 /
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 + .02235, .00985, 221.10471, 8.35904, 7.54294,
238 + 6.95188, 8.13139, 8.36269,
239 + .02270, .01003, 231.13649, 8.75464, 7.93567,
240 + 7.34903, 8.52834, 8.75828,
241 + .02303, .01020, 240.87697, 9.14201, 8.32055,
242 + 7.73834, 8.91699, 9.14565,
243 + .02334, .01037, 250.30145, 9.51937, 8.69603,
244 + 8.11869, 9.29555, 9.52300,
245 + .02366, .01054, 259.79730, 9.90523, 9.07909,
246 + 8.50525, 9.68260, 9.90885 /
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 + .01201, .00452, .93144, .59072, .00000,
249 + .00000, .31378, .59289,
250 + .01240, .00470, 1.89359, .61858, .00000,
251 + .00000, .34448, .62076,
252 + .01298, .00497, 3.67831, .67328, .02314,
253 + .00000, .40319, .67546,
254 + .01340, .00517, 5.30621, .72290, .07633,
255 + .00000, .45562, .72508,
256 + .01384, .00538, 7.29032, .78555, .13378,
257 + .00000, .52114, .78774,
258 + .01422, .00557, 9.24132, .84817, .19154,
259 + .00000, .58614, .85036,
260 + .01459, .00575, 11.36494, .91519, .25597,
261 + .00000, .65538, .91738,
262 + .01498, .00594, 13.89359, .99415, .33339,
263 + .00000, .73664, .99635 /
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 + .01532, .00611, 16.27741, 1.07008, .40611,
266 + .00000, .81451, 1.07227,
267 + .01565, .00627, 18.76988, 1.14946, .48273,
268 + .00000, .89573, 1.15166,
269 + .01592, .00640, 20.90785, 1.21663, .54901,
270 + .00000, .96433, 1.21883,
271 + .01648, .00668, 25.77876, 1.37328, .70184,
272 + .01304, 1.12394, 1.37548,
273 + .01696, .00693, 30.33041, 1.52269, .84717,
274 + .18194, 1.27582, 1.52489,
275 + .01751, .00720, 35.89206, 1.70632, 1.02679,
276 + .38925, 1.46212, 1.70852,
277 + .01808, .00749, 42.19401, 1.91581, 1.23215,
278 + .60325, 1.67431, 1.91801,
279 + .01861, .00776, 48.35643, 2.12224, 1.43491,
280 + .81463, 1.88312, 2.12444 /
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 + .01914, .00803, 55.00278, 2.34667, 1.65597,
283 + 1.04405, 2.10988, 2.34887,
284 + .01958, .00826, 60.80730, 2.54501, 1.85093,
285 + 1.24394, 2.31010, 2.54721,
286 + .02012, .00854, 68.17922, 2.79989, 2.10129,
287 + 1.49957, 2.56721, 2.80209,
288 + .02059, .00879, 75.04684, 3.03923, 2.33727,
289 + 1.74171, 2.80847, 3.04143,
290 + .02104, .00902, 81.62362, 3.27031, 2.56566,
291 + 1.97619, 3.04128, 3.27251,
292 + .02160, .00932, 90.21609, 3.57736, 2.86791,
293 + 2.28334, 3.35046, 3.57956,
294 + .02213, .00959, 98.65054, 3.88196, 3.16862,
295 + 2.58986, 3.65702, 3.88416,
296 + .02263, .00986, 106.89218, 4.18214, 3.46608,
297 + 2.89420, 3.95899, 4.18435 /
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 + .02313, .01013, 115.25281, 4.49272, 3.77228,
300 + 3.20418, 4.27132, 4.49493,
301 + .02363, .01039, 123.72848, 4.81025, 4.08649,
302 + 3.52369, 4.59054, 4.81246,
303 + .02410, .01064, 131.97169, 5.12252, 4.39585,
304 + 3.83826, 4.90437, 5.12474,
305 + .02455, .01088, 139.83319, 5.42499, 4.69493,
306 + 4.14112, 5.20828, 5.42721,
307 + .02500, .01112, 147.99515, 5.74092, 5.00852,
308 + 4.46005, 5.52563, 5.74314,
309 + .02544, .01136, 156.03061, 6.05767, 5.32182,
310 + 4.77669, 5.84376, 6.05990,
311 + .02587, .01158, 163.93205, 6.37048, 5.63257,
312 + 5.09239, 6.15786, 6.37271,
313 + .02628, .01180, 171.37337, 6.67041, 5.92951,
314 + 5.39229, 6.45899, 6.67264 /
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 + .02669, .01202, 179.08960, 6.98298, 6.23996,
317 + 5.70697, 6.77276, 6.98522,
318 + .02709, .01224, 186.72308, 7.29659, 6.55104,
319 + 6.02148, 7.08753, 7.29884,
320 + .02748, .01245, 194.11092, 7.60289, 6.85513,
321 + 6.32902, 7.39492, 7.60514,
322 + .02785, .01265, 201.23827, 7.90058, 7.15112,
323 + 6.62882, 7.69363, 7.90283,
324 + .02823, .01286, 208.39236, 8.20412, 7.45223,
325 + 6.93261, 7.99820, 8.20638 /
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 + .01358, .00517, .90746, .55133, .00000,
328 + .00000, .29292, .55263,
329 + .01402, .00538, 1.82824, .57812, .00000,
330 + .00000, .32229, .57942,
331 + .01468, .00570, 3.51983, .62997, .02180,
332 + .00000, .37778, .63128,
333 + .01516, .00594, 5.04854, .67656, .07173,
334 + .00000, .42691, .67787,
335 + .01567, .00618, 6.89770, .73494, .12521,
336 + .00000, .48788, .73625,
337 + .01611, .00640, 8.70376, .79293, .17869,
338 + .00000, .54802, .79425,
339 + .01653, .00661, 10.65883, .85474, .23810,
340 + .00000, .61184, .85606,
341 + .01698, .00684, 12.97433, .92730, .30919,
342 + .00000, .68647, .92862 /
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 + .01737, .00703, 15.14581, .99676, .37570,
345 + .00000, .75769, .99808,
346 + .01774, .00722, 17.40632, 1.06916, .44554,
347 + .00000, .83174, 1.07048,
348 + .01804, .00738, 19.33850, 1.13027, .50581,
349 + .00000, .89414, 1.13160,
350 + .01868, .00770, 23.71672, 1.27223, .64421,
351 + .01196, 1.03876, 1.27356,
352 + .01924, .00799, 27.78081, 1.40700, .77522,
353 + .16425, 1.17576, 1.40834,
354 + .01986, .00831, 32.71822, 1.57194, .93647,
355 + .35065, 1.34311, 1.57329,
356 + .02051, .00865, 38.27973, 1.75929, 1.12000,
357 + .54205, 1.53288, 1.76064,
358 + .02111, .00896, 43.68794, 1.94313, 1.30047,
359 + .73033, 1.71886, 1.94449 /
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 + .02171, .00927, 49.49134, 2.14224, 1.49647,
362 + .93387, 1.92007, 2.14361,
363 + .02221, .00954, 54.53625, 2.31759, 1.66873,
364 + 1.11057, 2.09710, 2.31896,
365 + .02283, .00986, 60.91462, 2.54216, 1.88918,
366 + 1.33577, 2.32367, 2.54354,
367 + .02337, .01015, 66.83087, 2.75233, 2.09630,
368 + 1.54837, 2.53557, 2.75372,
369 + .02387, .01041, 72.47507, 2.95466, 2.29617,
370 + 1.75367, 2.73945, 2.95606,
371 + .02451, .01075, 79.81692, 3.22261, 2.55979,
372 + 2.02165, 3.00932, 3.22402,
373 + .02511, .01107, 86.99306, 3.48755, 2.82122,
374 + 2.28821, 3.27601, 3.48897,
375 + .02568, .01138, 93.97863, 3.74788, 3.07908,
376 + 2.55213, 3.53794, 3.74930 /
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 + .02625, .01168, 101.03549, 4.01637, 3.34366,
379 + 2.82003, 3.80800, 4.01780,
380 + .02681, .01198, 108.16467, 4.29012, 3.61445,
381 + 3.09546, 4.08326, 4.29157,
382 + .02734, .01227, 115.07483, 4.55863, 3.88037,
383 + 3.36593, 4.35317, 4.56009,
384 + .02785, .01254, 121.64210, 4.81803, 4.13676,
385 + 3.62561, 4.61386, 4.81950,
386 + .02836, .01282, 128.44205, 5.08838, 4.40504,
387 + 3.89853, 4.88548, 5.08986,
388 + .02886, .01309, 135.11304, 5.35873, 4.67235,
389 + 4.16873, 5.15706, 5.36022,
390 + .02934, .01335, 141.65729, 5.62518, 4.93699,
391 + 4.43767, 5.42468, 5.62669,
392 + .02980, .01360, 147.80029, 5.88007, 5.18925,
393 + 4.69247, 5.68063, 5.88158 /
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 + .03026, .01385, 154.15656, 6.14522, 5.45255,
396 + 4.95943, 5.94685, 6.14674,
397 + .03072, .01410, 160.42653, 6.41068, 5.71580,
398 + 5.22563, 6.21335, 6.41222,
399 + .03116, .01434, 166.48042, 6.66947, 5.97268,
400 + 5.48547, 6.47312, 6.67102,
401 + .03158, .01457, 172.30847, 6.92056, 6.22230,
402 + 5.73837, 6.72513, 6.92212,
403 + .03200, .01480, 178.14191, 7.17608, 6.47571,
404 + 5.99406, 6.98156, 7.17765 /
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 + .01493, .00574, .88973, .52256, .00000,
407 + .00000, .27773, .52332,
408 + .01543, .00598, 1.77962, .54853, .00000,
409 + .00000, .30609, .54930,
410 + .01616, .00634, 3.40212, .59826, .02081,
411 + .00000, .35919, .59903,
412 + .01669, .00661, 4.85772, .64261, .06834,
413 + .00000, .40591, .64339,
414 + .01726, .00689, 6.60803, .69787, .11893,
415 + .00000, .46356, .69865,
416 + .01774, .00714, 8.30848, .75250, .16931,
417 + .00000, .52018, .75328,
418 + .01821, .00737, 10.14129, .81054, .22508,
419 + .00000, .58007, .81133,
420 + .01871, .00763, 12.30287, .87845, .29161,
421 + .00000, .64991, .87925 /
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 + .01914, .00785, 14.32166, .94326, .35364,
424 + .00000, .71634, .94406,
425 + .01956, .00806, 16.41601, 1.01064, .41862,
426 + .00000, .78524, 1.01144,
427 + .01989, .00824, 18.20122, 1.06740, .47458,
428 + .00000, .84319, 1.06821,
429 + .02060, .00860, 22.22913, 1.19885, .60269,
430 + .01118, .97710, 1.19967,
431 + .02121, .00892, 25.94849, 1.32319, .72353,
432 + .15168, 1.10349, 1.32402,
433 + .02190, .00929, 30.44667, 1.47486, .87177,
434 + .32329, 1.25739, 1.47570,
435 + .02262, .00966, 35.48980, 1.64654, 1.03990,
436 + .49878, 1.43131, 1.64739,
437 + .02328, .01001, 40.37254, 1.81445, 1.20470,
438 + .67084, 1.60119, 1.81532 /
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 + .02395, .01037, 45.59117, 1.99577, 1.38314,
441 + .85627, 1.78444, 1.99665,
442 + .02450, .01066, 50.11121, 2.15501, 1.53954,
443 + 1.01680, 1.94524, 2.15590,
444 + .02518, .01102, 55.80572, 2.35840, 1.73916,
445 + 1.22082, 2.15047, 2.35931,
446 + .02578, .01134, 61.06963, 2.54826, 1.92622,
447 + 1.41295, 2.34191, 2.54918,
448 + .02633, .01164, 66.07640, 2.73061, 2.10633,
449 + 1.59805, 2.52569, 2.73154,
450 + .02703, .01202, 72.56657, 2.97148, 2.34326,
451 + 1.83900, 2.76831, 2.97243,
452 + .02770, .01238, 78.88902, 3.20902, 2.57762,
453 + 2.07807, 3.00747, 3.20998,
454 + .02832, .01271, 85.02518, 3.44188, 2.80826,
455 + 2.31425, 3.24181, 3.44286 /
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 + .02895, .01305, 91.20335, 3.68145, 3.04431,
458 + 2.55334, 3.48282, 3.68244,
459 + .02957, .01339, 97.42794, 3.92519, 3.28540,
460 + 2.79867, 3.72795, 3.92621,
461 + .03015, .01371, 103.44499, 4.16377, 3.52166,
462 + 3.03908, 3.96781, 4.16481,
463 + .03071, .01401, 109.14778, 4.39378, 3.74899,
464 + 3.26940, 4.19900, 4.39483,
465 + .03127, .01432, 115.03999, 4.63308, 3.98647,
466 + 3.51108, 4.43948, 4.63415,
467 + .03182, .01462, 120.80424, 4.87190, 4.22258,
468 + 3.74983, 4.67943, 4.87298,
469 + .03235, .01491, 126.44851, 5.10692, 4.45601,
470 + 3.98715, 4.91551, 5.10802,
471 + .03285, .01518, 131.73289, 5.33130, 4.67808,
472 + 4.21153, 5.14088, 5.33242 /
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 + .03336, .01546, 137.19148, 5.56440, 4.90956,
475 + 4.44632, 5.37496, 5.56554,
476 + .03386, .01574, 142.56342, 5.79738, 5.14061,
477 + 4.68003, 5.60889, 5.79853,
478 + .03434, .01600, 147.74062, 6.02417, 5.36573,
479 + 4.90784, 5.83659, 6.02534,
480 + .03480, .01626, 152.71625, 6.24392, 5.58423,
481 + 5.12928, 6.05718, 6.24510,
482 + .03526, .01651, 157.68529, 6.46719, 5.80566,
483 + 5.35278, 6.28128, 6.46839 /
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 + .02008, .00797, .84033, .44233, .00000,
486 + .00000, .23560, .44214,
487 + .02077, .00833, 1.64061, .46580, .00000,
488 + .00000, .26098, .46562,
489 + .02178, .00886, 3.06466, .50937, .01799,
490 + .00000, .30724, .50922,
491 + .02252, .00926, 4.31277, .54739, .05875,
492 + .00000, .34714, .54725,
493 + .02330, .00967, 5.78532, .59389, .10126,
494 + .00000, .39554, .59377,
495 + .02397, .01003, 7.19188, .63918, .14304,
496 + .00000, .44241, .63908,
497 + .02461, .01037, 8.68714, .68681, .18881,
498 + .00000, .49151, .68672,
499 + .02530, .01074, 10.42709, .74200, .24283,
500 + .00000, .54822, .74193 /
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 + .02589, .01106, 12.03085, .79411, .29271,
503 + .00000, .60161, .79406,
504 + .02647, .01137, 13.67645, .84783, .34453,
505 + .00000, .65655, .84780,
506 + .02693, .01162, 15.06682, .89283, .38887,
507 + .00000, .70248, .89281,
508 + .02790, .01215, 18.16119, .99597, .48940,
509 + .00905, .80757, .99598,
510 + .02874, .01261, 20.97062, 1.09241, .58314,
511 + .11825, .90562, 1.09245,
512 + .02968, .01313, 24.31951, 1.20881, .69694,
513 + .25073, 1.02377, 1.20888,
514 + .03067, .01367, 28.01839, 1.33909, .82459,
515 + .38446, 1.15581, 1.33920,
516 + .03157, .01416, 31.54977, 1.46520, .94842,
517 + .51420, 1.28346, 1.46534 /
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 + .03247, .01467, 35.27606, 1.60008, 1.08124,
520 + .65269, 1.41986, 1.60026,
521 + .03323, .01508, 38.46587, 1.71749, 1.19664,
522 + .77149, 1.53849, 1.71770,
523 + .03415, .01559, 42.43884, 1.86618, 1.34267,
524 + .92118, 1.68862, 1.86643,
525 + .03496, .01604, 46.07128, 2.00382, 1.47840,
526 + 1.06100, 1.82750, 2.00410,
527 + .03571, .01646, 49.49306, 2.13506, 1.60814,
528 + 1.19473, 1.95986, 2.13537,
529 + .03666, .01699, 53.87927, 2.30697, 1.77738,
530 + 1.36730, 2.13314, 2.30732,
531 + .03756, .01749, 58.10613, 2.47511, 1.94344,
532 + 1.53715, 2.30254, 2.47551,
533 + .03840, .01796, 62.16907, 2.63872, 2.10568,
534 + 1.70374, 2.46732, 2.63916 /
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 + .03924, .01844, 66.21565, 2.80571, 2.27037,
537 + 1.87096, 2.63543, 2.80619,
538 + .04007, .01890, 70.25707, 2.97447, 2.43748,
539 + 2.04144, 2.80527, 2.97498,
540 + .04086, .01934, 74.12991, 3.13855, 2.60017,
541 + 2.20740, 2.97036, 3.13911,
542 + .04160, .01976, 77.76720, 3.29569, 2.75566,
543 + 2.36530, 3.12842, 3.29629,
544 + .04235, .02018, 81.49979, 3.45830, 2.91724,
545 + 2.53017, 3.29195, 3.45894,
546 + .04309, .02060, 85.11754, 3.61951, 3.07681,
547 + 2.69188, 3.45404, 3.62018,
548 + .04380, .02100, 88.63921, 3.77739, 3.23384,
549 + 2.85193, 3.61275, 3.77809,
550 + .04446, .02137, 91.90739, 3.92720, 3.38229,
551 + 3.00226, 3.76333, 3.92794 /
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 + .04514, .02175, 95.26519, 4.08215, 3.53640,
554 + 3.15893, 3.91905, 4.08293,
555 + .04581, .02213, 98.54448, 4.23617, 3.68935,
556 + 3.31401, 4.07382, 4.23699,
557 + .04645, .02249, 101.68561, 4.38542, 3.83771,
558 + 3.46447, 4.22376, 4.38626,
559 + .04706, .02284, 104.68798, 4.52941, 3.98110,
560 + 3.61015, 4.36842, 4.53029,
561 + .04767, .02318, 107.66338, 4.67496, 4.12565,
562 + 3.75635, 4.51462, 4.67587 /
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 + .02708, .01116, .80246, .37459, .00000,
565 + .00000, .20034, .37436,
566 + .02803, .01169, 1.52211, .39565, .00000,
567 + .00000, .22294, .39546,
568 + .02943, .01248, 2.76949, .43366, .01553,
569 + .00000, .26313, .43352,
570 + .03046, .01305, 3.83596, .46612, .05039,
571 + .00000, .29712, .46603,
572 + .03153, .01365, 5.06918, .50511, .08601,
573 + .00000, .33765, .50506,
574 + .03246, .01418, 6.22619, .54249, .12054,
575 + .00000, .37632, .54249,
576 + .03334, .01468, 7.43833, .58139, .15795,
577 + .00000, .41641, .58143,
578 + .03429, .01521, 8.82899, .62600, .20163,
579 + .00000, .46226, .62608 /
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 + .03511, .01568, 10.09306, .66765, .24154,
582 + .00000, .50495, .66777,
583 + .03590, .01612, 11.37511, .71022, .28266,
584 + .00000, .54850, .71038,
585 + .03652, .01648, 12.44831, .74565, .31760,
586 + .00000, .58469, .74584,
587 + .03786, .01724, 14.80219, .82599, .39603,
588 + .00730, .66661, .82625,
589 + .03901, .01790, 16.90095, .90019, .46829,
590 + .09175, .74211, .90051,
591 + .04030, .01864, 19.36457, .98875, .55505,
592 + .19350, .83208, .98913,
593 + .04164, .01941, 22.04278, 1.08670, .65126,
594 + .29483, .93147, 1.08716,
595 + .04287, .02011, 24.56185, 1.18048, .74357,
596 + .39208, 1.02650, 1.18100 /
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 + .04410, .02081, 27.18393, 1.27977, .84161,
599 + .49484, 1.12701, 1.28036,
600 + .04512, .02140, 29.40049, 1.36540, .92601,
601 + .58216, 1.21364, 1.36605,
602 + .04637, .02212, 32.12756, 1.47286, 1.03185,
603 + .69119, 1.32227, 1.47358,
604 + .04747, .02275, 34.59180, 1.57148, 1.12939,
605 + .79216, 1.42189, 1.57227,
606 + .04848, .02333, 36.88927, 1.66479, 1.22192,
607 + .88801, 1.51611, 1.66563,
608 + .04976, .02407, 39.79858, 1.78593, 1.34154,
609 + 1.01054, 1.63836, 1.78685,
610 + .05097, .02477, 42.56972, 1.90339, 1.45791,
611 + 1.13014, 1.75685, 1.90439,
612 + .05210, .02542, 45.20610, 2.01681, 1.57075,
613 + 1.24657, 1.87122, 2.01788 /
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 + .05323, .02607, 47.80038, 2.13159, 1.68430,
616 + 1.36237, 1.98691, 2.13272,
617 + .05434, .02671, 50.36703, 2.24676, 1.79872,
618 + 1.47964, 2.10295, 2.24796,
619 + .05539, .02732, 52.80343, 2.35796, 1.90935,
620 + 1.59301, 2.21498, 2.35923,
621 + .05638, .02789, 55.06860, 2.46370, 2.01432,
622 + 1.70008, 2.32147, 2.46503,
623 + .05738, .02847, 57.37626, 2.57251, 2.12282,
624 + 1.81130, 2.43103, 2.57390,
625 + .05837, .02904, 59.58937, 2.67960, 2.22917,
626 + 1.91954, 2.53884, 2.68106,
627 + .05930, .02958, 61.73043, 2.78397, 2.33335,
628 + 2.02621, 2.64389, 2.78549,
629 + .06019, .03009, 63.69740, 2.88235, 2.43116,
630 + 2.12567, 2.74289, 2.88392 /
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 + .06108, .03061, 65.70678, 2.98364, 2.53225,
633 + 2.22892, 2.84481, 2.98527,
634 + .06197, .03112, 67.65197, 3.08373, 2.63199,
635 + 2.33048, 2.94551, 3.08542,
636 + .06281, .03161, 69.50253, 3.18023, 2.72827,
637 + 2.42855, 3.04259, 3.18198,
638 + .06362, .03207, 71.26080, 3.27293, 2.82092,
639 + 2.52310, 3.13583, 3.27473,
640 + .06443, .03254, 72.98759, 3.36610, 2.91377,
641 + 2.61740, 3.22953, 3.36795 /
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 + .03233, .01369, .78827, .34027, .00000,
644 + .00000, .18256, .34033,
645 + .03348, .01435, 1.46449, .35995, .00000,
646 + .00000, .20363, .36008,
647 + .03518, .01533, 2.61709, .39494, .01422,
648 + .00000, .24057, .39515,
649 + .03642, .01604, 3.58730, .42445, .04598,
650 + .00000, .27145, .42473,
651 + .03771, .01680, 4.69528, .45951, .07802,
652 + .00000, .30789, .45986,
653 + .03883, .01744, 5.72321, .49282, .10882,
654 + .00000, .34235, .49323,
655 + .03990, .01807, 6.79040, .52725, .14197,
656 + .00000, .37786, .52772,
657 + .04104, .01873, 8.00400, .56649, .18042,
658 + .00000, .41820, .56702 /
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 + .04203, .01930, 9.09760, .60287, .21532,
661 + .00000, .45552, .60346,
662 + .04298, .01986, 10.19877, .63985, .25110,
663 + .00000, .49338, .64050,
664 + .04373, .02030, 11.11526, .67050, .28138,
665 + .00000, .52472, .67120,
666 + .04533, .02123, 13.10713, .73958, .34890,
667 + .00641, .59521, .74037,
668 + .04672, .02204, 14.86296, .80287, .41067,
669 + .07879, .65968, .80375,
670 + .04826, .02295, 16.90434, .87789, .48433,
671 + .16561, .73598, .87886,
672 + .04987, .02389, 19.10159, .96027, .56541,
673 + .25137, .81965, .96134,
674 + .05133, .02474, 21.14904, 1.03860, .64271,
675 + .33313, .89911, 1.03977 /
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 + .05281, .02561, 23.26204, 1.12102, .72430,
678 + .41898, .98264, 1.12228,
679 + .05403, .02632, 25.03414, 1.19169, .79413,
680 + .49151, 1.05420, 1.19303,
681 + .05551, .02719, 27.19753, 1.27988, .88122,
682 + .58156, 1.14345, 1.28132,
683 + .05682, .02796, 29.13803, 1.36038, .96105,
684 + .66453, 1.22486, 1.36190,
685 + .05802, .02866, 30.93543, 1.43618, 1.03643,
686 + .74291, 1.30148, 1.43778,
687 + .05955, .02956, 33.19375, 1.53404, 1.13334,
688 + .84255, 1.40036, 1.53575,
689 + .06098, .03039, 35.32897, 1.62843, 1.22712,
690 + .93930, 1.49569, 1.63023,
691 + .06232, .03118, 37.34712, 1.71914, 1.31763,
692 + 1.03305, 1.58725, 1.72103 /
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 + .06366, .03197, 39.31748, 1.81044, 1.40821,
695 + 1.12576, 1.67938, 1.81242,
696 + .06497, .03274, 41.25521, 1.90165, 1.49910,
697 + 1.21926, 1.77139, 1.90372,
698 + .06622, .03346, 43.08339, 1.98934, 1.58660,
699 + 1.30926, 1.85982, 1.99149,
700 + .06739, .03415, 44.77184, 2.07235, 1.66925,
701 + 1.39387, 1.94352, 2.07458,
702 + .06857, .03484, 46.48406, 2.15746, 1.75439,
703 + 1.48148, 2.02932, 2.15978,
704 + .06972, .03551, 48.11451, 2.24087, 1.83746,
705 + 1.56634, 2.11338, 2.24327,
706 + .07082, .03616, 49.68582, 2.32190, 1.91860,
707 + 1.64973, 2.19503, 2.32437,
708 + .07186, .03676, 51.11943, 2.39795, 1.99445,
709 + 1.72714, 2.27166, 2.40050 /
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 + .07291, .03738, 52.57870, 2.47604, 2.07264,
712 + 1.80729, 2.35033, 2.47867,
713 + .07395, .03798, 53.98299, 2.55292, 2.14949,
714 + 1.88582, 2.42776, 2.55562,
715 + .07494, .03856, 55.31301, 2.62682, 2.22344,
716 + 1.96143, 2.50218, 2.62958,
717 + .07588, .03911, 56.57180, 2.69760, 2.29442,
718 + 2.03414, 2.57347, 2.70044,
719 + .07683, .03966, 57.80016, 2.76848, 2.36529,
720 + 2.10638, 2.64484, 2.77138 /
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 + .03671, .01589, .78335, .31820, .00000,
723 + .00000, .17114, .31856,
724 + .03804, .01667, 1.43022, .33693, .00000,
725 + .00000, .19116, .33737,
726 + .03998, .01782, 2.51874, .36986, .01334,
727 + .00000, .22590, .37041,
728 + .04140, .01865, 3.42436, .39739, .04303,
729 + .00000, .25471, .39803,
730 + .04288, .01953, 4.44895, .42983, .07270,
731 + .00000, .28844, .43057,
732 + .04416, .02028, 5.39161, .46045, .10105,
733 + .00000, .32013, .46127,
734 + .04538, .02101, 6.36363, .49195, .13141,
735 + .00000, .35262, .49285,
736 + .04668, .02178, 7.46176, .52768, .16646,
737 + .00000, .38939, .52866 /
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 + .04781, .02244, 8.44492, .56064, .19812,
740 + .00000, .42322, .56169,
741 + .04889, .02309, 9.42955, .59401, .23044,
742 + .00000, .45741, .59513,
743 + .04975, .02360, 10.24552, .62159, .25772,
744 + .00000, .48563, .62277,
745 + .05158, .02468, 12.00681, .68344, .31827,
746 + .00584, .54880, .68473,
747 + .05315, .02561, 13.54606, .73978, .37335,
748 + .07052, .60624, .74118,
749 + .05491, .02666, 15.32280, .80623, .43871,
750 + .14787, .67388, .80775,
751 + .05674, .02774, 17.22101, .87879, .51028,
752 + .22381, .74766, .88043,
753 + .05840, .02872, 18.97739, .94744, .57816,
754 + .29585, .81736, .94920 /
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 + .06007, .02972, 20.77837, 1.01934, .64949,
757 + .37116, .89030, 1.02121,
758 + .06145, .03054, 22.27977, 1.08072, .71029,
759 + .43449, .95253, 1.08269,
760 + .06313, .03153, 24.10194, 1.15700, .78579,
761 + .51282, 1.02981, 1.15909,
762 + .06461, .03241, 25.72724, 1.22635, .85473,
763 + .58470, 1.10002, 1.22854,
764 + .06597, .03321, 27.22529, 1.29142, .91960,
765 + .65237, 1.16586, 1.29371,
766 + .06768, .03423, 29.09624, 1.37509, 1.00265,
767 + .73803, 1.25049, 1.37750,
768 + .06930, .03518, 30.85527, 1.45546, 1.08271,
769 + .82087, 1.33174, 1.45799,
770 + .07081, .03608, 32.50962, 1.53242, 1.15970,
771 + .90088, 1.40951, 1.53505 /
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 + .07232, .03697, 34.11497, 1.60958, 1.23644,
774 + .97967, 1.48745, 1.61232,
775 + .07379, .03784, 35.68650, 1.68640, 1.31319,
776 + 1.05888, 1.56503, 1.68925,
777 + .07519, .03866, 37.16227, 1.76002, 1.38685,
778 + 1.13489, 1.63936, 1.76297,
779 + .07650, .03943, 38.51814, 1.82948, 1.45619,
780 + 1.20610, 1.70947, 1.83253,
781 + .07782, .04021, 39.88832, 1.90052, 1.52745,
782 + 1.27965, 1.78116, 1.90366,
783 + .07911, .04097, 41.18573, 1.96989, 1.59673,
784 + 1.35064, 1.85115, 1.97313,
785 + .08035, .04170, 42.43249, 2.03714, 1.66425,
786 + 1.42027, 1.91899, 2.04046,
787 + .08151, .04238, 43.56369, 2.10005, 1.72716,
788 + 1.48467, 1.98245, 2.10346 /
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 + .08269, .04307, 44.71201, 2.16451, 1.79189,
791 + 1.55123, 2.04746, 2.16801,
792 + .08384, .04375, 45.81179, 2.22779, 1.85533,
793 + 1.61627, 2.11127, 2.23138,
794 + .08495, .04440, 46.84977, 2.28848, 1.91624,
795 + 1.67874, 2.17246, 2.29215,
796 + .08600, .04502, 47.82915, 2.34649, 1.97458,
797 + 1.73870, 2.23095, 2.35024,
798 + .08706, .04563, 48.77991, 2.40442, 2.03266,
799 + 1.79809, 2.28934, 2.40824 /
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 + .04060, .01799, .78674, .30289, .00000,
802 + .00000, .16303, .30329,
803 + .04207, .01887, 1.41105, .32089, .00000,
804 + .00000, .18223, .32138,
805 + .04424, .02016, 2.45070, .35223, .01267,
806 + .00000, .21527, .35287,
807 + .04582, .02111, 3.30734, .37826, .04080,
808 + .00000, .24248, .37900,
809 + .04747, .02210, 4.26889, .40873, .06868,
810 + .00000, .27415, .40958,
811 + .04889, .02295, 5.14742, .43733, .09519,
812 + .00000, .30374, .43827,
813 + .05025, .02376, 6.04814, .46663, .12347,
814 + .00000, .33398, .46767,
815 + .05169, .02462, 7.06014, .49974, .15599,
816 + .00000, .36806, .50088 /
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 + .05294, .02537, 7.96131, .53016, .18525,
819 + .00000, .39929, .53139,
820 + .05414, .02609, 8.85977, .56087, .21503,
821 + .00000, .43076, .56218,
822 + .05509, .02666, 9.60167, .58618, .24009,
823 + .00000, .45667, .58756,
824 + .05711, .02787, 11.19382, .64272, .29552,
825 + .00541, .51445, .64424,
826 + .05885, .02891, 12.57521, .69399, .34571,
827 + .06445, .56675, .69563,
828 + .06080, .03007, 14.16015, .75420, .40502,
829 + .13488, .62808, .75598,
830 + .06281, .03128, 15.84293, .81966, .46968,
831 + .20367, .69467, .82159,
832 + .06464, .03237, 17.39080, .88133, .53077,
833 + .26866, .75734, .88339 /
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 + .06648, .03347, 18.96938, .94568, .59471,
836 + .33634, .82266, .94787,
837 + .06800, .03438, 20.27868, 1.00042, .64901,
838 + .39307, .87819, 1.00272,
839 + .06985, .03548, 21.86003, 1.06820, .71623,
840 + .46297, .94691, 1.07064,
841 + .07147, .03644, 23.26394, 1.12962, .77740,
842 + .52692, 1.00914, 1.13219,
843 + .07296, .03733, 24.55252, 1.18709, .83480,
844 + .58695, 1.06733, 1.18977,
845 + .07485, .03845, 26.15343, 1.26073, .90803,
846 + .66267, 1.14187, 1.26354,
847 + .07661, .03950, 27.65143, 1.33123, .97839,
848 + .73567, 1.21319, 1.33417,
849 + .07827, .04048, 29.05442, 1.39853, 1.04587,
850 + .80597, 1.28127, 1.40160 /
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 + .07992, .04146, 30.40873, 1.46579, 1.11289,
853 + .87495, 1.34926, 1.46898,
854 + .08153, .04241, 31.72937, 1.53257, 1.17975,
855 + .94414, 1.41676, 1.53588,
856 + .08305, .04331, 32.96459, 1.59640, 1.24375,
857 + 1.01035, 1.48125, 1.59982,
858 + .08448, .04416, 34.09420, 1.65644, 1.30382,
859 + 1.07220, 1.54191, 1.65997,
860 + .08592, .04501, 35.23233, 1.71772, 1.36543,
861 + 1.13596, 1.60381, 1.72137,
862 + .08733, .04584, 36.30480, 1.77738, 1.42515,
863 + 1.19731, 1.66406, 1.78114,
864 + .08867, .04663, 37.33294, 1.83512, 1.48327,
865 + 1.25740, 1.72235, 1.83897,
866 + .08994, .04737, 38.26123, 1.88898, 1.53726,
867 + 1.31281, 1.77673, 1.89293 /
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 + .09121, .04812, 39.20142, 1.94408, 1.59271,
870 + 1.37000, 1.83236, 1.94813,
871 + .09247, .04886, 40.09787, 1.99804, 1.64694,
872 + 1.42574, 1.88682, 2.00219,
873 + .09367, .04957, 40.94124, 2.04969, 1.69890,
874 + 1.47918, 1.93894, 2.05392,
875 + .09481, .05023, 41.73490, 2.09897, 1.74860,
876 + 1.53039, 1.98868, 2.10330,
877 + .09595, .05090, 42.50183, 2.14806, 1.79794,
878 + 1.58099, 2.03821, 2.15247 /
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 + .05584, .02678, .81719, .26098, .00000,
881 + .00000, .14104, .26202,
882 + .05792, .02807, 1.37475, .27677, .00000,
883 + .00000, .15783, .27797,
884 + .06095, .02995, 2.26990, .30348, .01076,
885 + .00000, .18594, .30491,
886 + .06315, .03131, 2.98375, .32514, .03440,
887 + .00000, .20859, .32674,
888 + .06545, .03273, 3.76455, .34998, .05727,
889 + .00000, .23444, .35176,
890 + .06742, .03394, 4.46156, .37289, .07865,
891 + .00000, .25818, .37482,
892 + .06930, .03510, 5.16264, .39605, .10116,
893 + .00000, .28213, .39814,
894 + .07129, .03632, 5.93600, .42190, .12670,
895 + .00000, .30879, .42415 /
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 + .07301, .03737, 6.61240, .44533, .14938,
898 + .00000, .33291, .44772,
899 + .07466, .03838, 7.27662, .46873, .17222,
900 + .00000, .35695, .47124,
901 + .07596, .03918, 7.81855, .48787, .19129,
902 + .00000, .37659, .49048,
903 + .07873, .04087, 8.95910, .53004, .23292,
904 + .00423, .41982, .53289,
905 + .08109, .04231, 9.92439, .56771, .27005,
906 + .04822, .45836, .57074,
907 + .08373, .04391, 11.00955, .61132, .31333,
908 + .10026, .50293, .61457,
909 + .08645, .04557, 12.13756, .65804, .35984,
910 + .15024, .55062, .66151,
911 + .08891, .04706, 13.15445, .70144, .40318,
912 + .19683, .59488, .70511 /
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 + .09138, .04855, 14.17247, .74615, .44797,
915 + .24474, .64043, .75002,
916 + .09342, .04977, 15.00223, .78374, .48558,
917 + .28443, .67870, .78777,
918 + .09587, .05124, 15.98729, .82975, .53159,
919 + .33278, .72551, .83398,
920 + .09803, .05254, 16.84766, .87097, .57302,
921 + .37654, .76744, .87538,
922 + .10000, .05372, 17.62598, .90917, .61152,
923 + .41724, .80627, .91374,
924 + .10248, .05520, 18.57553, .95754, .66007,
925 + .46797, .85543, .96231,
926 + .10481, .05659, 19.44923, 1.00334, .70622,
927 + .51637, .90195, 1.00830,
928 + .10698, .05788, 20.25551, 1.04663, .75005,
929 + .56255, .94592, 1.05177 /
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 + .10912, .05915, 21.01887, 1.08939, .79309,
932 + .60732, .98933, 1.09470,
933 + .11122, .06039, 21.75303, 1.13147, .83565,
934 + .65185, 1.03204, 1.13695,
935 + .11320, .06156, 22.42978, 1.17132, .87603,
936 + .69410, 1.07248, 1.17697,
937 + .11504, .06264, 23.03823, 1.20844, .91357,
938 + .73318, 1.11015, 1.21424,
939 + .11690, .06374, 23.64490, 1.24607, .95181,
940 + .77322, 1.14832, 1.25201,
941 + .11871, .06480, 24.20573, 1.28232, .98851,
942 + .81134, 1.18510, 1.28842,
943 + .12043, .06581, 24.73889, 1.31720, 1.02401,
944 + .84848, 1.22048, 1.32343,
945 + .12204, .06675, 25.21092, 1.34942, 1.05668,
946 + .88241, 1.25316, 1.35579 /
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 + .12367, .06770, 25.68515, 1.38220, 1.09007,
949 + .91724, 1.28641, 1.38870,
950 + .12526, .06863, 26.12973, 1.41402, 1.12244,
951 + .95091, 1.31868, 1.42065,
952 + .12678, .06951, 26.54305, 1.44429, 1.15326,
953 + .98300, 1.34938, 1.45104,
954 + .12822, .07035, 26.92812, 1.47300, 1.18258,
955 + 1.01358, 1.37849, 1.47987,
956 + .12966, .07119, 27.29297, 1.50135, 1.21144,
957 + 1.04353, 1.40725, 1.50834 /
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 + .07814, .04101, .90128, .22819, .00000,
960 + .00000, .12369, .23041,
961 + .08106, .04285, 1.39289, .24185, .00000,
962 + .00000, .13821, .24433,
963 + .08532, .04552, 2.14724, .26418, .00905,
964 + .00000, .16175, .26705,
965 + .08839, .04743, 2.72646, .28184, .02871,
966 + .00000, .18027, .28498,
967 + .09158, .04942, 3.34241, .30164, .04719,
968 + .00000, .20094, .30507,
969 + .09430, .05110, 3.87785, .31954, .06415,
970 + .00000, .21956, .32321,
971 + .09689, .05270, 4.40463, .33737, .08174,
972 + .00000, .23809, .34128,
973 + .09963, .05438, 4.97356, .35699, .10139,
974 + .00000, .25843, .36114 /
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 + .10197, .05582, 5.46100, .37451, .11857,
977 + .00000, .27655, .37886,
978 + .10422, .05719, 5.93131, .39178, .13567,
979 + .00000, .29439, .39634,
980 + .10599, .05827, 6.30971, .40578, .14981,
981 + .00000, .30885, .41050,
982 + .10972, .06054, 7.08776, .43619, .18023,
983 + .00324, .34019, .44124,
984 + .11291, .06247, 7.72666, .46286, .20689,
985 + .03516, .36764, .46819,
986 + .11643, .06460, 8.42757, .49325, .23749,
987 + .07258, .39889, .49889,
988 + .12006, .06677, 9.13776, .52524, .26981,
989 + .10783, .43176, .53121,
990 + .12331, .06872, 9.76241, .55449, .29946,
991 + .14019, .46179, .56074 /
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 + .12656, .07065, 10.37371, .58417, .32967,
994 + .17300, .49224, .59071,
995 + .12923, .07224, 10.86131, .60878, .35469,
996 + .19980, .51747, .61556,
997 + .13242, .07412, 11.42742, .63849, .38490,
998 + .23204, .54793, .64555,
999 + .13522, .07577, 11.91173, .66477, .41177,
1000 + .26088, .57486, .67208,
1001 + .13777, .07727, 12.34186, .68884, .43645,
1002 + .28740, .59952, .69637,
1003 + .14095, .07914, 12.85398, .71889, .46717,
1004 + .32002, .63030, .72669,
1005 + .14392, .08087, 13.31479, .74698, .49599,
1006 + .35076, .65906, .75504,
1007 + .14668, .08247, 13.73179, .77322, .52307,
1008 + .37978, .68594, .78152 /
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 + .14940, .08404, 14.11582, .79877, .54930,
1011 + .40753, .71210, .80731,
1012 + .15204, .08556, 14.47819, .82364, .57497,
1013 + .43487, .73756, .83240,
1014 + .15452, .08699, 14.80534, .84694, .59907,
1015 + .46055, .76142, .85591,
1016 + .15682, .08831, 15.09186, .86838, .62122,
1017 + .48403, .78338, .87755,
1018 + .15913, .08963, 15.37349, .88993, .64361,
1019 + .50792, .80545, .89930,
1020 + .16136, .09090, 15.62590, .91043, .66484,
1021 + .53039, .82644, .91999,
1022 + .16348, .09211, 15.86327, .93001, .68524,
1023 + .55215, .84650, .93975,
1024 + .16546, .09323, 16.06632, .94786, .70379,
1025 + .57179, .86480, .95777 /
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 + .16745, .09435, 16.26802, .96591, .72263,
1028 + .59184, .88329, .97598,
1029 + .16940, .09545, 16.45149, .98324, .74071,
1030 + .61104, .90106, .99348,
1031 + .17124, .09648, 16.61867, .99959, .75780,
1032 + .62919, .91782, 1.00998,
1033 + .17298, .09746, 16.77188, 1.01499, .77395,
1034 + .64639, .93361, 1.02553,
1035 + .17472, .09843, 16.91154, 1.03002, .78967,
1036 + .66306, .94903, 1.04070 /
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 + .09608, .05314, .98317, .21247, .00000,
1039 + .00000, .11546, .21595,
1040 + .09965, .05537, 1.43084, .22486, .00000,
1041 + .00000, .12866, .22869,
1042 + .10483, .05858, 2.10160, .24470, .00813,
1043 + .00000, .14967, .24902,
1044 + .10854, .06088, 2.60406, .26013, .02565,
1045 + .00000, .16592, .26480,
1046 + .11239, .06325, 3.12879, .27718, .04182,
1047 + .00000, .18382, .28222,
1048 + .11566, .06524, 3.57716, .29240, .05647,
1049 + .00000, .19974, .29775,
1050 + .11876, .06713, 4.01189, .30742, .07151,
1051 + .00000, .21543, .31306,
1052 + .12202, .06911, 4.47493, .32379, .08814,
1053 + .00000, .23249, .32973 /
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 + .12481, .07080, 4.86632, .33825, .10254,
1056 + .00000, .24755, .34446,
1057 + .12748, .07240, 5.23947, .35240, .11676,
1058 + .00000, .26226, .35886,
1059 + .12958, .07367, 5.53687, .36380, .12844,
1060 + .00000, .27410, .37046,
1061 + .13399, .07630, 6.13871, .38831, .15333,
1062 + .00274, .29953, .39537,
1063 + .13773, .07853, 6.62223, .40955, .17490,
1064 + .02879, .32155, .41697,
1065 + .14185, .08097, 7.14371, .43350, .19938,
1066 + .05914, .34634, .44129,
1067 + .14608, .08345, 7.66270, .45842, .22497,
1068 + .08738, .37213, .46660,
1069 + .14985, .08566, 8.11124, .48096, .24819,
1070 + .11304, .39544, .48948 /
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 + .15361, .08785, 8.54303, .50359, .27162,
1073 + .13882, .41885, .51246,
1074 + .15668, .08963, 8.88178, .52219, .29086,
1075 + .15969, .43806, .53133,
1076 + .16034, .09174, 9.26870, .54442, .31388,
1077 + .18458, .46104, .55390,
1078 + .16354, .09358, 9.59458, .56392, .33417,
1079 + .20666, .48119, .57368,
1080 + .16645, .09524, 9.87988, .58163, .35269,
1081 + .22683, .49949, .59165,
1082 + .17006, .09730, 10.21283, .60353, .37551,
1083 + .25141, .52212, .61387,
1084 + .17341, .09920, 10.50707, .62380, .39675,
1085 + .27440, .54308, .63444,
1086 + .17652, .10095, 10.76916, .64259, .41655,
1087 + .29594, .56250, .65350 /
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 + .17956, .10266, 11.00433, .66070, .43555,
1090 + .31636, .58123, .67187,
1091 + .18251, .10431, 11.22277, .67819, .45402,
1092 + .33634, .59932, .68962,
1093 + .18527, .10585, 11.41642, .69444, .47124,
1094 + .35498, .61614, .70611,
1095 + .18782, .10726, 11.58188, .70926, .48693,
1096 + .37190, .63149, .72115,
1097 + .19038, .10867, 11.74253, .72408, .50272,
1098 + .38903, .64683, .73619,
1099 + .19284, .11003, 11.88151, .73803, .51755,
1100 + .40501, .66129, .75035,
1101 + .19517, .11131, 12.01095, .75130, .53175,
1102 + .42042, .67504, .76382,
1103 + .19733, .11249, 12.11747, .76327, .54454,
1104 + .43422, .68747, .77597 /
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 + .19951, .11367, 12.22217, .77532, .55748,
1107 + .44826, .69997, .78820,
1108 + .20162, .11482, 12.31399, .78679, .56981,
1109 + .46160, .71188, .79985,
1110 + .20362, .11590, 12.39568, .79754, .58140,
1111 + .47416, .72305, .81077,
1112 + .20551, .11692, 12.46902, .80761, .59231,
1113 + .48600, .73352, .82100,
1114 + .20738, .11792, 12.53212, .81735, .60283,
1115 + .49740, .74366, .83089 /
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 + .11193, .06410, 1.05668, .20272, .00000,
1118 + .00000, .11040, .20752,
1119 + .11603, .06663, 1.47094, .21417, .00000,
1120 + .00000, .12267, .21938,
1121 + .12195, .07025, 2.08040, .23223, .00750,
1122 + .00000, .14189, .23802,
1123 + .12618, .07283, 2.52838, .24610, .02356,
1124 + .00000, .15658, .25231,
1125 + .13055, .07548, 2.98989, .26126, .03817,
1126 + .00000, .17258, .26790,
1127 + .13425, .07770, 3.37908, .27466, .05129,
1128 + .00000, .18669, .28165,
1129 + .13776, .07980, 3.75219, .28778, .06465,
1130 + .00000, .20048, .29512,
1131 + .14143, .08199, 4.14534, .30197, .07931,
1132 + .00000, .21538, .30967 /
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 + .14457, .08385, 4.47412, .31442, .09190,
1135 + .00000, .22843, .32242,
1136 + .14756, .08561, 4.78468, .32652, .10426,
1137 + .00000, .24110, .33481,
1138 + .14991, .08700, 5.03040, .33622, .11436,
1139 + .00000, .25125, .34474,
1140 + .15483, .08988, 5.52112, .35692, .13572,
1141 + .00241, .27288, .36590,
1142 + .15898, .09229, 5.90825, .37470, .15406,
1143 + .02475, .29144, .38407,
1144 + .16355, .09494, 6.31994, .39456, .17472,
1145 + .05066, .31217, .40436,
1146 + .16822, .09762, 6.72360, .41505, .19611,
1147 + .07453, .33354, .42528,
1148 + .17237, .09999, 7.06730, .43341, .21537,
1149 + .09606, .35268, .44402 /
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 + .17648, .10232, 7.39351, .45171, .23467,
1152 + .11752, .37177, .46270,
1153 + .17983, .10422, 7.64580, .46662, .25039,
1154 + .13478, .38732, .47791,
1155 + .18382, .10646, 7.92970, .48432, .26907,
1156 + .15524, .40578, .49597,
1157 + .18729, .10840, 8.16545, .49972, .28544,
1158 + .17327, .42184, .51168,
1159 + .19044, .11014, 8.36915, .51362, .30028,
1160 + .18965, .43635, .52587,
1161 + .19433, .11230, 8.60233, .53067, .31845,
1162 + .20948, .45416, .54327,
1163 + .19793, .11427, 8.80485, .54633, .33524,
1164 + .22790, .47052, .55925,
1165 + .20126, .11610, 8.98249, .56075, .35081,
1166 + .24508, .48559, .57396 /
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 + .20450, .11786, 9.13764, .57453, .36562,
1169 + .26123, .50000, .58801,
1170 + .20764, .11956, 9.27933, .58775, .37995,
1171 + .27697, .51384, .60150,
1172 + .21056, .12113, 9.40241, .59995, .39323,
1173 + .29157, .52663, .61396,
1174 + .21326, .12258, 9.50448, .61099, .40525,
1175 + .30475, .53821, .62522,
1176 + .21596, .12401, 9.60224, .62197, .41730,
1177 + .31803, .54973, .63643,
1178 + .21854, .12538, 9.68317, .63222, .42853,
1179 + .33034, .56050, .64689,
1180 + .22099, .12668, 9.75777, .64193, .43925,
1181 + .34218, .57071, .65681,
1182 + .22324, .12787, 9.81575, .65061, .44883,
1183 + .35271, .57985, .66567 /
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 + .22551, .12906, 9.87197, .65931, .45850,
1186 + .36340, .58901, .67456,
1187 + .22770, .13020, 9.91845, .66752, .46766,
1188 + .37349, .59768, .68295,
1189 + .22978, .13128, 9.95818, .67518, .47622,
1190 + .38296, .60577, .69078,
1191 + .23173, .13229, 9.99263, .68232, .48425,
1192 + .39186, .61332, .69808,
1193 + .23366, .13328, 10.01898, .68916, .49194,
1194 + .40037, .62057, .70507 /
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 + .12647, .07424, 1.12138, .19576, .00000,
1197 + .00000, .10687, .20190,
1198 + .13101, .07700, 1.50810, .20645, .00000,
1199 + .00000, .11838, .21306,
1200 + .13755, .08094, 2.06849, .22310, .00701,
1201 + .00000, .13622, .23038,
1202 + .14223, .08373, 2.47401, .23576, .02197,
1203 + .00000, .14972, .24351,
1204 + .14703, .08659, 2.88719, .24947, .03542,
1205 + .00000, .16430, .25770,
1206 + .15108, .08898, 3.23184, .26149, .04740,
1207 + .00000, .17704, .27012,
1208 + .15492, .09123, 3.55915, .27319, .05951,
1209 + .00000, .18942, .28219,
1210 + .15893, .09357, 3.90094, .28577, .07272,
1211 + .00000, .20272, .29517 /
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 + .16234, .09555, 4.18414, .29672, .08400,
1214 + .00000, .21429, .30646,
1215 + .16558, .09743, 4.44961, .30732, .09501,
1216 + .00000, .22547, .31737,
1217 + .16813, .09890, 4.65839, .31579, .10397,
1218 + .00000, .23440, .32608,
1219 + .17345, .10195, 5.07049, .33373, .12280,
1220 + .00217, .25329, .34452,
1221 + .17793, .10449, 5.39029, .34900, .13885,
1222 + .02187, .26938, .36023,
1223 + .18284, .10727, 5.72608, .36596, .15680,
1224 + .04463, .28722, .37764,
1225 + .18784, .11007, 6.05104, .38330, .17526,
1226 + .06544, .30548, .39545,
1227 + .19226, .11253, 6.32397, .39873, .19177,
1228 + .08408, .32171, .41128 /
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 + .19664, .11496, 6.57949, .41400, .20819,
1231 + .10256, .33779, .42695,
1232 + .20020, .11691, 6.77448, .42636, .22150,
1233 + .11733, .35081, .43964,
1234 + .20442, .11921, 6.99079, .44093, .23722,
1235 + .13474, .36617, .45459,
1236 + .20808, .12120, 7.16794, .45353, .25092,
1237 + .15002, .37946, .46751,
1238 + .21138, .12299, 7.31899, .46484, .26329,
1239 + .16383, .39140, .47912,
1240 + .21546, .12517, 7.48838, .47861, .27832,
1241 + .18045, .40594, .49324,
1242 + .21923, .12718, 7.63284, .49117, .29213,
1243 + .19581, .41922, .50613,
1244 + .22270, .12902, 7.75750, .50267, .30488,
1245 + .21007, .43139, .51792 /
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 + .22606, .13079, 7.86300, .51356, .31693,
1248 + .22340, .44293, .52909,
1249 + .22931, .13249, 7.95740, .52395, .32853,
1250 + .23634, .45397, .53976,
1251 + .23233, .13406, 8.03727, .53348, .33923,
1252 + .24828, .46410, .54955,
1253 + .23511, .13549, 8.10101, .54204, .34886,
1254 + .25900, .47321, .55833,
1255 + .23787, .13691, 8.16099, .55051, .35847,
1256 + .26978, .48224, .56704,
1257 + .24051, .13827, 8.20740, .55835, .36738,
1258 + .27971, .49062, .57508,
1259 + .24301, .13954, 8.24954, .56575, .37585,
1260 + .28924, .49853, .58268,
1261 + .24531, .14070, 8.27918, .57231, .38338,
1262 + .29766, .50556, .58942 /
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 + .24762, .14186, 8.30726, .57886, .39096,
1265 + .30619, .51259, .59616,
1266 + .24984, .14298, 8.32764, .58499, .39808,
1267 + .31421, .51920, .60247,
1268 + .25193, .14402, 8.34336, .59068, .40473,
1269 + .32171, .52533, .60832,
1270 + .25390, .14500, 8.35573, .59596, .41094,
1271 + .32873, .53103, .61375,
1272 + .25584, .14596, 8.36156, .60096, .41685,
1273 + .33541, .53645, .61890 /
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 + .15303, .09276, 1.22913, .18594, .00000,
1276 + .00000, .10205, .19485,
1277 + .15830, .09585, 1.57078, .19540, .00000,
1278 + .00000, .11239, .20487,
1279 + .16585, .10023, 2.05397, .20987, .00629,
1280 + .00000, .12811, .22011,
1281 + .17121, .10331, 2.39485, .22069, .01959,
1282 + .00000, .13982, .23147,
1283 + .17669, .10644, 2.73603, .23223, .03134,
1284 + .00000, .15228, .24357,
1285 + .18129, .10905, 3.01554, .24220, .04166,
1286 + .00000, .16303, .25400,
1287 + .18562, .11149, 3.27692, .25182, .05200,
1288 + .00000, .17338, .26404,
1289 + .19014, .11402, 3.54582, .26206, .06315,
1290 + .00000, .18438, .27472 /
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 + .19396, .11615, 3.76526, .27088, .07257,
1293 + .00000, .19385, .28391,
1294 + .19758, .11815, 3.96817, .27933, .08168,
1295 + .00000, .20293, .29272,
1296 + .20042, .11971, 4.12608, .28604, .08906,
1297 + .00000, .21013, .29970,
1298 + .20632, .12294, 4.43129, .30010, .10439,
1299 + .00183, .22521, .31431,
1300 + .21125, .12561, 4.66107, .31191, .11730,
1301 + .01792, .23789, .32659,
1302 + .21663, .12850, 4.89682, .32486, .13158,
1303 + .03638, .25179, .34003,
1304 + .22207, .13140, 5.11934, .33793, .14609,
1305 + .05305, .26583, .35359,
1306 + .22686, .13393, 5.30140, .34941, .15892,
1307 + .06783, .27817, .36550 /
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 + .23157, .13640, 5.46748, .36062, .17156,
1310 + .08233, .29024, .37714,
1311 + .23538, .13837, 5.59075, .36959, .18170,
1312 + .09383, .29991, .38644,
1313 + .23986, .14069, 5.72328, .38005, .19355,
1314 + .10725, .31120, .39728,
1315 + .24373, .14267, 5.82855, .38899, .20379,
1316 + .11893, .32087, .40654,
1317 + .24721, .14444, 5.91567, .39692, .21295,
1318 + .12941, .32947, .41477,
1319 + .25148, .14659, 6.00879, .40645, .22398,
1320 + .14191, .33982, .42465,
1321 + .25540, .14854, 6.08449, .41503, .23401,
1322 + .15336, .34917, .43356,
1323 + .25899, .15033, 6.14689, .42281, .24319,
1324 + .16392, .35765, .44162 /
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 + .26245, .15202, 6.19480, .43004, .25177,
1327 + .17368, .36558, .44913,
1328 + .26577, .15364, 6.23507, .43687, .25996,
1329 + .18309, .37308, .45622,
1330 + .26884, .15513, 6.26623, .44306, .26746,
1331 + .19171, .37991, .46265,
1332 + .27164, .15647, 6.28700, .44854, .27413,
1333 + .19939, .38597, .46834,
1334 + .27443, .15780, 6.30489, .45392, .28076,
1335 + .20707, .39193, .47392,
1336 + .27707, .15905, 6.31370, .45879, .28682,
1337 + .21407, .39737, .47899,
1338 + .27956, .16022, 6.32078, .46336, .29256,
1339 + .22076, .40247, .48374,
1340 + .28183, .16128, 6.32012, .46732, .29760,
1341 + .22662, .40694, .48787 /
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 + .28410, .16233, 6.31827, .47126, .30265,
1344 + .23253, .41138, .49197,
1345 + .28628, .16333, 6.31152, .47488, .30735,
1346 + .23804, .41549, .49574,
1347 + .28833, .16426, 6.30268, .47819, .31170,
1348 + .24316, .41926, .49919,
1349 + .29024, .16513, 6.29261, .48124, .31574,
1350 + .24794, .42275, .50237,
1351 + .29211, .16597, 6.27779, .48405, .31954,
1352 + .25243, .42600, .50531 /
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 + .18904, .11743, 1.34864, .17582, .00000,
1355 + .00000, .09736, .18894,
1356 + .19509, .12079, 1.63714, .18386, .00000,
1357 + .00000, .10636, .19760,
1358 + .20371, .12550, 2.03390, .19587, .00551,
1359 + .00000, .11976, .21049,
1360 + .20978, .12879, 2.30537, .20468, .01706,
1361 + .00000, .12956, .21990,
1362 + .21595, .13210, 2.57136, .21391, .02705,
1363 + .00000, .13980, .22974,
1364 + .22108, .13484, 2.78460, .22177, .03570,
1365 + .00000, .14850, .23809,
1366 + .22590, .13738, 2.98025, .22925, .04425,
1367 + .00000, .15679, .24603,
1368 + .23089, .14000, 3.17781, .23711, .05337,
1369 + .00000, .16549, .25436 /
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 + .23510, .14218, 3.33590, .24379, .06097,
1372 + .00000, .17289, .26143,
1373 + .23906, .14423, 3.47956, .25013, .06826,
1374 + .00000, .17991, .26813,
1375 + .24215, .14582, 3.58989, .25512, .07411,
1376 + .00000, .18544, .27340,
1377 + .24852, .14906, 3.79684, .26544, .08613,
1378 + .00150, .19686, .28428,
1379 + .25382, .15172, 3.94557, .27395, .09611,
1380 + .01419, .20632, .29326,
1381 + .25956, .15457, 4.09303, .28313, .10700,
1382 + .02865, .21653, .30293,
1383 + .26529, .15739, 4.22685, .29223, .11791,
1384 + .04151, .22669, .31251,
1385 + .27030, .15983, 4.33170, .30009, .12742,
1386 + .05278, .23547, .32077 /
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 + .27520, .16218, 4.42315, .30764, .13668,
1389 + .06372, .24396, .32872,
1390 + .27912, .16404, 4.48742, .31358, .14402,
1391 + .07229, .25065, .33497,
1392 + .28371, .16620, 4.55232, .32037, .15250,
1393 + .08220, .25834, .34212,
1394 + .28764, .16802, 4.60056, .32609, .15974,
1395 + .09074, .26484, .34813,
1396 + .29114, .16964, 4.63771, .33109, .16615,
1397 + .09833, .27055, .35340,
1398 + .29541, .17157, 4.67199, .33697, .17377,
1399 + .10729, .27731, .35957,
1400 + .29928, .17331, 4.69574, .34216, .18062,
1401 + .11541, .28331, .36504,
1402 + .30281, .17488, 4.71204, .34678, .18682,
1403 + .12283, .28869, .36991 /
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 + .30617, .17635, 4.71831, .35096, .19252,
1406 + .12961, .29360, .37431,
1407 + .30937, .17773, 4.71992, .35484, .19792,
1408 + .13610, .29819, .37839,
1409 + .31231, .17898, 4.71674, .35828, .20280,
1410 + .14198, .30230, .38203,
1411 + .31496, .18010, 4.70823, .36124, .20709,
1412 + .14717, .30587, .38514,
1413 + .31759, .18120, 4.69794, .36411, .21131,
1414 + .15232, .30935, .38816,
1415 + .32004, .18221, 4.68187, .36660, .21511,
1416 + .15697, .31244, .39080,
1417 + .32236, .18315, 4.66594, .36892, .21869,
1418 + .16138, .31531, .39325,
1419 + .32444, .18397, 4.64631, .37083, .22178,
1420 + .16520, .31775, .39528 /
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 + .32652, .18479, 4.62600, .37271, .22485,
1423 + .16903, .32015, .39727,
1424 + .32848, .18556, 4.60286, .37436, .22766,
1425 + .17257, .32231, .39902,
1426 + .33031, .18627, 4.57940, .37584, .23024,
1427 + .17583, .32426, .40058,
1428 + .33201, .18692, 4.55628, .37716, .23261,
1429 + .17885, .32603, .40198,
1430 + .33365, .18753, 4.53010, .37829, .23480,
1431 + .18165, .32762, .40320 /
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 + .24302, .15283, 1.46886, .16339, .00000,
1434 + .00000, .09201, .18347,
1435 + .24987, .15626, 1.69062, .16961, .00000,
1436 + .00000, .09933, .19032,
1437 + .25946, .16102, 1.98432, .17865, .00460,
1438 + .00000, .10994, .20023,
1439 + .26617, .16428, 2.17701, .18510, .01412,
1440 + .00000, .11752, .20729,
1441 + .27289, .16752, 2.36034, .19172, .02215,
1442 + .00000, .12527, .21447,
1443 + .27845, .17016, 2.50275, .19722, .02897,
1444 + .00000, .13173, .22045,
1445 + .28361, .17259, 2.62990, .20237, .03561,
1446 + .00000, .13778, .22602,
1447 + .28891, .17506, 2.75481, .20769, .04259,
1448 + .00000, .14405, .23176 /
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 + .29335, .17709, 2.85167, .21212, .04832,
1451 + .00000, .14928, .23655,
1452 + .29749, .17897, 2.93723, .21626, .05375,
1453 + .00000, .15417, .24101,
1454 + .30070, .18043, 3.00158, .21948, .05807,
1455 + .00000, .15798, .24447,
1456 + .30725, .18334, 3.11566, .22600, .06680,
1457 + .00117, .16573, .25146,
1458 + .31260, .18568, 3.19005, .23124, .07390,
1459 + .01049, .17199, .25707,
1460 + .31834, .18814, 3.25840, .23673, .08153,
1461 + .02103, .17862, .26296,
1462 + .32401, .19053, 3.31488, .24203, .08904,
1463 + .03024, .18506, .26861,
1464 + .32888, .19254, 3.35404, .24646, .09547,
1465 + .03818, .19051, .27334 /
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 + .33357, .19445, 3.38335, .25060, .10162,
1468 + .04578, .19564, .27776,
1469 + .33729, .19592, 3.39983, .25375, .10642,
1470 + .05165, .19960, .28111,
1471 + .34156, .19758, 3.41102, .25724, .11187,
1472 + .05836, .20404, .28482,
1473 + .34518, .19895, 3.41496, .26008, .11646,
1474 + .06407, .20771, .28784,
1475 + .34837, .20014, 3.41412, .26249, .12047,
1476 + .06909, .21088, .29040,
1477 + .35218, .20152, 3.40518, .26517, .12513,
1478 + .07492, .21448, .29325,
1479 + .35558, .20272, 3.39170, .26744, .12926,
1480 + .08014, .21760, .29566,
1481 + .35864, .20378, 3.37566, .26939, .13294,
1482 + .08485, .22033, .29772 /
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 + .36149, .20472, 3.35378, .27100, .13624,
1485 + .08909, .22271, .29943,
1486 + .36417, .20558, 3.33005, .27243, .13932,
1487 + .09310, .22487, .30093,
1488 + .36660, .20633, 3.30516, .27361, .14206,
1489 + .09669, .22674, .30217,
1490 + .36873, .20697, 3.27871, .27452, .14442,
1491 + .09981, .22828, .30313,
1492 + .37082, .20758, 3.25153, .27536, .14671,
1493 + .10289, .22974, .30401,
1494 + .37273, .20810, 3.22166, .27596, .14872,
1495 + .10561, .23095, .30464,
1496 + .37451, .20857, 3.19331, .27651, .15059,
1497 + .10818, .23206, .30520,
1498 + .37607, .20896, 3.16409, .27682, .15215,
1499 + .11036, .23291, .30553 /
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 + .37760, .20934, 3.13469, .27711, .15369,
1502 + .11254, .23372, .30582,
1503 + .37902, .20965, 3.10425, .27726, .15506,
1504 + .11451, .23438, .30596,
1505 + .38032, .20993, 3.07476, .27734, .15629,
1506 + .11631, .23494, .30603,
1507 + .38151, .21017, 3.04657, .27737, .15741,
1508 + .11797, .23542, .30604,
1509 + .38262, .21037, 3.01672, .27726, .15839,
1510 + .11947, .23576, .30591 /
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 + .29206, .18299, 1.52277, .15287, .00000,
1513 + .00000, .08770, .17948,
1514 + .29921, .18621, 1.69443, .15767, .00000,
1515 + .00000, .09372, .18487,
1516 + .30913, .19060, 1.91428, .16452, .00392,
1517 + .00000, .10227, .19244,
1518 + .31598, .19357, 2.05299, .16929, .01197,
1519 + .00000, .10826, .19771,
1520 + .32279, .19647, 2.18125, .17408, .01864,
1521 + .00000, .11428, .20297,
1522 + .32834, .19879, 2.27783, .17800, .02422,
1523 + .00000, .11921, .20724,
1524 + .33347, .20090, 2.36172, .18159, .02960,
1525 + .00000, .12377, .21116,
1526 + .33871, .20301, 2.44178, .18525, .03519,
1527 + .00000, .12843, .21512 /
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 + .34302, .20472, 2.50164, .18824, .03972,
1530 + .00000, .13226, .21835,
1531 + .34701, .20628, 2.55273, .19099, .04396,
1532 + .00000, .13580, .22132,
1533 + .35010, .20747, 2.59021, .19310, .04732,
1534 + .00000, .13854, .22359,
1535 + .35631, .20981, 2.65134, .19727, .05402,
1536 + .00095, .14400, .22807,
1537 + .36133, .21164, 2.68466, .20052, .05940,
1538 + .00819, .14831, .23154,
1539 + .36663, .21351, 2.71057, .20383, .06509,
1540 + .01635, .15280, .23506,
1541 + .37177, .21526, 2.72667, .20690, .07061,
1542 + .02337, .15705, .23831,
1543 + .37612, .21669, 2.73260, .20937, .07526,
1544 + .02935, .16055, .24091 /
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 + .38025, .21798, 2.73149, .21158, .07966,
1547 + .03502, .16378, .24322,
1548 + .38345, .21895, 2.72505, .21319, .08304,
1549 + .03935, .16620, .24489,
1550 + .38708, .21998, 2.71142, .21486, .08683,
1551 + .04424, .16885, .24661,
1552 + .39010, .22080, 2.69552, .21615, .08997,
1553 + .04837, .17097, .24793,
1554 + .39271, .22148, 2.67811, .21717, .09269,
1555 + .05196, .17275, .24896,
1556 + .39575, .22220, 2.65100, .21819, .09579,
1557 + .05608, .17469, .24996,
1558 + .39841, .22278, 2.62264, .21895, .09849,
1559 + .05974, .17629, .25069,
1560 + .40077, .22325, 2.59430, .21952, .10087,
1561 + .06301, .17764, .25123 /
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 + .40288, .22361, 2.56241, .21985, .10295,
1564 + .06590, .17873, .25150,
1565 + .40482, .22390, 2.53014, .22006, .10487,
1566 + .06862, .17966, .25164,
1567 + .40653, .22411, 2.49843, .22014, .10654,
1568 + .07103, .18041, .25165,
1569 + .40798, .22423, 2.46694, .22007, .10795,
1570 + .07310, .18096, .25149,
1571 + .40938, .22433, 2.43530, .21995, .10930,
1572 + .07512, .18145, .25128,
1573 + .41059, .22434, 2.40250, .21967, .11044,
1574 + .07688, .18175, .25090,
1575 + .41171, .22434, 2.37172, .21938, .11149,
1576 + .07853, .18201, .25052,
1577 + .41262, .22427, 2.34132, .21897, .11234,
1578 + .07991, .18212, .25001 /
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 + .41351, .22419, 2.31104, .21855, .11317,
1581 + .08128, .18220, .24948,
1582 + .41427, .22406, 2.28048, .21804, .11387,
1583 + .08250, .18218, .24886,
1584 + .41495, .22391, 2.25132, .21750, .11449,
1585 + .08360, .18210, .24821,
1586 + .41555, .22375, 2.22378, .21696, .11504,
1587 + .08460, .18200, .24756,
1588 + .41605, .22354, 2.19532, .21633, .11549,
1589 + .08549, .18179, .24681 /
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 + .37941, .23172, 1.51558, .13374, .00000,
1592 + .00000, .07987, .17139,
1593 + .38620, .23405, 1.61749, .13655, .00000,
1594 + .00000, .08396, .17441,
1595 + .39538, .23707, 1.73896, .14037, .00295,
1596 + .00000, .08956, .17844,
1597 + .40158, .23900, 1.80891, .14291, .00894,
1598 + .00000, .09335, .18109,
1599 + .40759, .24080, 1.86923, .14535, .01377,
1600 + .00000, .09706, .18359,
1601 + .41239, .24213, 1.91087, .14724, .01773,
1602 + .00000, .10000, .18550,
1603 + .41672, .24329, 1.94426, .14891, .02148,
1604 + .00000, .10265, .18717,
1605 + .42103, .24438, 1.97321, .15054, .02531,
1606 + .00000, .10529, .18877 /
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 + .42450, .24521, 1.99180, .15181, .02835,
1609 + .00000, .10740, .18998,
1610 + .42764, .24591, 2.00531, .15292, .03117,
1611 + .00000, .10929, .19102,
1612 + .43003, .24641, 2.01403, .15374, .03337,
1613 + .00000, .11073, .19179,
1614 + .43469, .24727, 2.02015, .15524, .03768,
1615 + .00067, .11349, .19312,
1616 + .43828, .24783, 2.01272, .15627, .04105,
1617 + .00545, .11557, .19397,
1618 + .44191, .24827, 1.99794, .15718, .04455,
1619 + .01078, .11761, .19467,
1620 + .44525, .24854, 1.97695, .15787, .04786,
1621 + .01528, .11943, .19510,
1622 + .44792, .24862, 1.95356, .15828, .05058,
1623 + .01904, .12082, .19525 /
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 + .45031, .24856, 1.92661, .15851, .05309,
1626 + .02254, .12201, .19519,
1627 + .45204, .24841, 1.90181, .15855, .05497,
1628 + .02518, .12282, .19498,
1629 + .45383, .24811, 1.86923, .15843, .05703,
1630 + .02810, .12360, .19454,
1631 + .45520, .24776, 1.83904, .15821, .05869,
1632 + .03053, .12415, .19401,
1633 + .45630, .24736, 1.81046, .15791, .06009,
1634 + .03262, .12455, .19343,
1635 + .45740, .24672, 1.77234, .15736, .06165,
1636 + .03497, .12484, .19251,
1637 + .45822, .24603, 1.73585, .15673, .06295,
1638 + .03701, .12498, .19153,
1639 + .45883, .24534, 1.70153, .15608, .06407,
1640 + .03881, .12502, .19054 /
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 + .45917, .24454, 1.66609, .15528, .06499,
1643 + .04036, .12490, .18940,
1644 + .45939, .24371, 1.63160, .15444, .06581,
1645 + .04179, .12471, .18822,
1646 + .45947, .24287, 1.59899, .15359, .06651,
1647 + .04304, .12445, .18704,
1648 + .45937, .24202, 1.56800, .15271, .06705,
1649 + .04409, .12412, .18584,
1650 + .45921, .24115, 1.53743, .15181, .06755,
1651 + .04510, .12375, .18462,
1652 + .45888, .24021, 1.50700, .15084, .06794,
1653 + .04595, .12329, .18333,
1654 + .45854, .23932, 1.47876, .14992, .06828,
1655 + .04674, .12285, .18211,
1656 + .45807, .23842, 1.45181, .14898, .06852,
1657 + .04738, .12235, .18088 /
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 + .45757, .23751, 1.42521, .14803, .06874,
1660 + .04800, .12184, .17963,
1661 + .45696, .23657, 1.39902, .14704, .06889,
1662 + .04854, .12127, .17836,
1663 + .45633, .23565, 1.37438, .14609, .06900,
1664 + .04901, .12071, .17712,
1665 + .45569, .23477, 1.35136, .14517, .06909,
1666 + .04944, .12016, .17594,
1667 + .45495, .23383, 1.32808, .14420, .06912,
1668 + .04979, .11956, .17470 /
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 + .45482, .26850, 1.42982, .11631, .00000,
1671 + .00000, .07230, .16153,
1672 + .46038, .26959, 1.48757, .11781, .00000,
1673 + .00000, .07503, .16277,
1674 + .46764, .27077, 1.54953, .11973, .00229,
1675 + .00000, .07866, .16426,
1676 + .47236, .27138, 1.57986, .12092, .00687,
1677 + .00000, .08102, .16509,
1678 + .47674, .27179, 1.60229, .12198, .01051,
1679 + .00000, .08326, .16573,
1680 + .48010, .27195, 1.61429, .12272, .01343,
1681 + .00000, .08498, .16609,
1682 + .48302, .27198, 1.62122, .12331, .01617,
1683 + .00000, .08647, .16632,
1684 + .48582, .27190, 1.62419, .12383, .01894,
1685 + .00000, .08792, .16645 /
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 + .48795, .27170, 1.62249, .12417, .02111,
1688 + .00000, .08903, .16642,
1689 + .48978, .27143, 1.61799, .12441, .02309,
1690 + .00000, .08999, .16629,
1691 + .49112, .27118, 1.61320, .12457, .02462,
1692 + .00000, .09070, .16614,
1693 + .49351, .27044, 1.59479, .12471, .02757,
1694 + .00050, .09198, .16564,
1695 + .49514, .26964, 1.57046, .12464, .02984,
1696 + .00386, .09286, .16501,
1697 + .49655, .26859, 1.53985, .12441, .03216,
1698 + .00759, .09363, .16413,
1699 + .49757, .26733, 1.50547, .12398, .03429,
1700 + .01068, .09420, .16304,
1701 + .49814, .26606, 1.47241, .12346, .03601,
1702 + .01323, .09455, .16189 /
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 + .49840, .26467, 1.43782, .12282, .03756,
1705 + .01557, .09475, .16061,
1706 + .49837, .26343, 1.40824, .12219, .03870,
1707 + .01731, .09479, .15945,
1708 + .49804, .26182, 1.37162, .12132, .03991,
1709 + .01922, .09470, .15795,
1710 + .49755, .26034, 1.33912, .12049, .04087,
1711 + .02078, .09453, .15656,
1712 + .49694, .25894, 1.30937, .11968, .04165,
1713 + .02210, .09431, .15523,
1714 + .49587, .25705, 1.27123, .11854, .04249,
1715 + .02356, .09389, .15344,
1716 + .49467, .25522, 1.23577, .11742, .04316,
1717 + .02482, .09343, .15171,
1718 + .49342, .25346, 1.20314, .11633, .04372,
1719 + .02591, .09294, .15006 /
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 + .49191, .25164, 1.17045, .11518, .04415,
1722 + .02683, .09235, .14833,
1723 + .49033, .24983, 1.13917, .11402, .04451,
1724 + .02766, .09173, .14662,
1725 + .48872, .24808, 1.11010, .11289, .04480,
1726 + .02838, .09110, .14498,
1727 + .48706, .24639, 1.08298, .11180, .04499,
1728 + .02897, .09046, .14340,
1729 + .48535, .24469, 1.05646, .11070, .04516,
1730 + .02953, .08980, .14182,
1731 + .48351, .24295, 1.03057, .10956, .04525,
1732 + .02998, .08909, .14022,
1733 + .48176, .24132, 1.00670, .10849, .04533,
1734 + .03039, .08842, .13872,
1735 + .47994, .23973, .98428, .10745, .04534,
1736 + .03072, .08775, .13726 /
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 + .47810, .23814, .96230, .10641, .04534,
1739 + .03103, .08706, .13581,
1740 + .47619, .23654, .94090, .10536, .04531,
1741 + .03128, .08636, .13435,
1742 + .47433, .23500, .92093, .10436, .04525,
1743 + .03150, .08568, .13296,
1744 + .47254, .23355, .90240, .10341, .04519,
1745 + .03169, .08503, .13165,
1746 + .47063, .23204, .88385, .10242, .04508,
1747 + .03184, .08435, .13030 /
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 + .51948, .29576, 1.31301, .10061, .00000,
1750 + .00000, .06487, .14982,
1751 + .52324, .29545, 1.34230, .10127, .00000,
1752 + .00000, .06663, .14978,
1753 + .52776, .29466, 1.36730, .10201, .00180,
1754 + .00000, .06888, .14940,
1755 + .53049, .29384, 1.37408, .10237, .00539,
1756 + .00000, .07029, .14897,
1757 + .53276, .29280, 1.37453, .10260, .00819,
1758 + .00000, .07157, .14833,
1759 + .53425, .29176, 1.36987, .10268, .01042,
1760 + .00000, .07248, .14767,
1761 + .53540, .29066, 1.36236, .10266, .01248,
1762 + .00000, .07324, .14694,
1763 + .53634, .28938, 1.35158, .10255, .01454,
1764 + .00000, .07395, .14610 /
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 + .53686, .28816, 1.33946, .10237, .01613,
1767 + .00000, .07444, .14528,
1768 + .53714, .28691, 1.32600, .10214, .01758,
1769 + .00000, .07483, .14443,
1770 + .53726, .28590, 1.31467, .10193, .01868,
1771 + .00000, .07511, .14373,
1772 + .53706, .28361, 1.28506, .10136, .02079,
1773 + .00038, .07552, .14212,
1774 + .53648, .28150, 1.25397, .10074, .02238,
1775 + .00283, .07570, .14063,
1776 + .53541, .27904, 1.21768, .09994, .02397,
1777 + .00554, .07575, .13884,
1778 + .53391, .27637, 1.17920, .09899, .02541,
1779 + .00776, .07564, .13689,
1780 + .53223, .27384, 1.14390, .09804, .02655,
1781 + .00957, .07543, .13506 /
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 + .53026, .27122, 1.10825, .09701, .02756,
1784 + .01121, .07511, .13315,
1785 + .52837, .26902, 1.07867, .09611, .02827,
1786 + .01241, .07475, .13151,
1787 + .52586, .26626, 1.04299, .09495, .02902,
1788 + .01371, .07425, .12949,
1789 + .52347, .26378, 1.01198, .09388, .02959,
1790 + .01477, .07374, .12768,
1791 + .52114, .26150, .98407, .09288, .03004,
1792 + .01565, .07323, .12601,
1793 + .51793, .25853, .94903, .09156, .03050,
1794 + .01661, .07250, .12384,
1795 + .51476, .25571, .91698, .09029, .03086,
1796 + .01743, .07177, .12181,
1797 + .51171, .25308, .88785, .08909, .03113,
1798 + .01812, .07106, .11990 /
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 + .50842, .25040, .85917, .08785, .03132,
1801 + .01870, .07029, .11796,
1802 + .50514, .24777, .83201, .08664, .03146,
1803 + .01922, .06952, .11608,
1804 + .50197, .24526, .80703, .08548, .03155,
1805 + .01965, .06877, .11431,
1806 + .49885, .24289, .78400, .08437, .03159,
1807 + .01999, .06803, .11263,
1808 + .49571, .24053, .76163, .08327, .03161,
1809 + .02032, .06730, .11095,
1810 + .49246, .23816, .74005, .08217, .03157,
1811 + .02057, .06654, .10930,
1812 + .48940, .23594, .72025, .08113, .03154,
1813 + .02080, .06582, .10776,
1814 + .48637, .23382, .70183, .08014, .03146,
1815 + .02097, .06512, .10627 /
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 + .48334, .23171, .68385, .07915, .03138,
1818 + .02113, .06442, .10480,
1819 + .48027, .22959, .66648, .07816, .03128,
1820 + .02125, .06371, .10336,
1821 + .47733, .22758, .65036, .07722, .03117,
1822 + .02135, .06303, .10201,
1823 + .47454, .22568, .63548, .07633, .03105,
1824 + .02143, .06238, .10073,
1825 + .47162, .22375, .62070, .07543, .03091,
1826 + .02148, .06172, .09942 /
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 + .58613, .31884, 1.15812, .08361, .00000,
1829 + .00000, .05598, .13337,
1830 + .58707, .31681, 1.16546, .08365, .00000,
1831 + .00000, .05691, .13218,
1832 + .58753, .31352, 1.16299, .08350, .00136,
1833 + .00000, .05800, .13029,
1834 + .58733, .31097, 1.15301, .08326, .00405,
1835 + .00000, .05861, .12885,
1836 + .58654, .30816, 1.13840, .08292, .00613,
1837 + .00000, .05911, .12721,
1838 + .58546, .30564, 1.12271, .08253, .00775,
1839 + .00000, .05942, .12572,
1840 + .58416, .30317, 1.10596, .08210, .00923,
1841 + .00000, .05962, .12428,
1842 + .58254, .30049, 1.08671, .08159, .01070,
1843 + .00000, .05975, .12273 /
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 + .58085, .29809, 1.06847, .08109, .01182,
1846 + .00000, .05978, .12134,
1847 + .57905, .29573, 1.05002, .08057, .01282,
1848 + .00000, .05975, .11998,
1849 + .57755, .29386, 1.03520, .08013, .01358,
1850 + .00000, .05971, .11891,
1851 + .57394, .28979, 1.00038, .07914, .01501,
1852 + .00029, .05950, .11655,
1853 + .57047, .28623, .96714, .07820, .01607,
1854 + .00199, .05920, .11449,
1855 + .56628, .28220, .92987, .07710, .01710,
1856 + .00388, .05877, .11216,
1857 + .56163, .27795, .89167, .07589, .01802,
1858 + .00540, .05824, .10971,
1859 + .55715, .27409, .85765, .07474, .01872,
1860 + .00662, .05768, .10749 /
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 + .55241, .27020, .82412, .07357, .01932,
1863 + .00771, .05704, .10525,
1864 + .54833, .26693, .79687, .07256, .01974,
1865 + .00850, .05647, .10340,
1866 + .54321, .26297, .76463, .07130, .02015,
1867 + .00934, .05573, .10115,
1868 + .53857, .25948, .73706, .07018, .02045,
1869 + .01002, .05505, .09919,
1870 + .53423, .25630, .71257, .06915, .02068,
1871 + .01058, .05441, .09740,
1872 + .52854, .25224, .68234, .06783, .02089,
1873 + .01117, .05355, .09513,
1874 + .52312, .24846, .65506, .06658, .02104,
1875 + .01167, .05272, .09303,
1876 + .51800, .24495, .63054, .06542, .02114,
1877 + .01208, .05194, .09109 /
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 + .51272, .24143, .60675, .06425, .02117,
1880 + .01242, .05113, .08917,
1881 + .50755, .23802, .58443, .06311, .02118,
1882 + .01271, .05033, .08732,
1883 + .50264, .23482, .56410, .06203, .02117,
1884 + .01295, .04958, .08559,
1885 + .49792, .23180, .54553, .06101, .02112,
1886 + .01313, .04885, .08398,
1887 + .49322, .22882, .52760, .06001, .02106,
1888 + .01330, .04813, .08239,
1889 + .48850, .22587, .51049, .05901, .02097,
1890 + .01342, .04740, .08084,
1891 + .48407, .22311, .49488, .05808, .02088,
1892 + .01353, .04673, .07940,
1893 + .47977, .22049, .48049, .05721, .02077,
1894 + .01360, .04608, .07803 /
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 + .47548, .21790, .46650, .05634, .02066,
1897 + .01367, .04544, .07669,
1898 + .47121, .21534, .45309, .05548, .02053,
1899 + .01371, .04480, .07537,
1900 + .46715, .21292, .44071, .05467, .02040,
1901 + .01374, .04418, .07414,
1902 + .46332, .21064, .42932, .05391, .02028,
1903 + .01376, .04361, .07298,
1904 + .45939, .20833, .41809, .05314, .02013,
1905 + .01376, .04302, .07183 /
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 + .63786, .33189, 1.01236, .06944, .00000,
1908 + .00000, .04767, .11590,
1909 + .63570, .32819, 1.00680, .06911, .00000,
1910 + .00000, .04807, .11405,
1911 + .63170, .32258, .98886, .06847, .00105,
1912 + .00000, .04844, .11130,
1913 + .62835, .31842, .96998, .06794, .00310,
1914 + .00000, .04859, .10928,
1915 + .62436, .31398, .94771, .06729, .00466,
1916 + .00000, .04862, .10712,
1917 + .62059, .31012, .92673, .06667, .00586,
1918 + .00000, .04856, .10524,
1919 + .61678, .30640, .90581, .06604, .00695,
1920 + .00000, .04845, .10346,
1921 + .61255, .30246, .88300, .06533, .00802,
1922 + .00000, .04827, .10159 /
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 + .60867, .29902, .86248, .06468, .00882,
1925 + .00000, .04805, .09995,
1926 + .60478, .29571, .84239, .06403, .00954,
1927 + .00000, .04780, .09837,
1928 + .60165, .29310, .82656, .06351, .01007,
1929 + .00000, .04759, .09714,
1930 + .59470, .28752, .79105, .06235, .01107,
1931 + .00022, .04705, .09453,
1932 + .58845, .28273, .75867, .06133, .01178,
1933 + .00143, .04653, .09226,
1934 + .58127, .27740, .72321, .06014, .01247,
1935 + .00278, .04590, .08976,
1936 + .57362, .27188, .68762, .05886, .01306,
1937 + .00385, .04516, .08723,
1938 + .56653, .26694, .65649, .05770, .01350,
1939 + .00469, .04445, .08495 /
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 + .55928, .26201, .62629, .05653, .01386,
1942 + .00544, .04373, .08268,
1943 + .55320, .25793, .60210, .05553, .01411,
1944 + .00597, .04308, .08085,
1945 + .54570, .25304, .57386, .05432, .01433,
1946 + .00654, .04229, .07864,
1947 + .53905, .24879, .54998, .05327, .01449,
1948 + .00698, .04157, .07673,
1949 + .53295, .24493, .52898, .05231, .01459,
1950 + .00735, .04091, .07502,
1951 + .52511, .24006, .50335, .05107, .01468,
1952 + .00772, .04006, .07288,
1953 + .51775, .23556, .48048, .04993, .01472,
1954 + .00803, .03925, .07091,
1955 + .51089, .23143, .46010, .04888, .01473,
1956 + .00829, .03850, .06912 /
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 + .50393, .22732, .44052, .04782, .01470,
1959 + .00848, .03774, .06735,
1960 + .49719, .22337, .42228, .04680, .01465,
1961 + .00865, .03701, .06566,
1962 + .49085, .21967, .40581, .04585, .01459,
1963 + .00879, .03632, .06411,
1964 + .48483, .21622, .39090, .04496, .01451,
1965 + .00889, .03566, .06267,
1966 + .47886, .21283, .37659, .04409, .01443,
1967 + .00897, .03500, .06126,
1968 + .47294, .20950, .36301, .04324, .01432,
1969 + .00903, .03436, .05989,
1970 + .46740, .20640, .35067, .04245, .01422,
1971 + .00908, .03377, .05862,
1972 + .46212, .20347, .33938, .04169, .01411,
1973 + .00910, .03320, .05744 /
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 + .45688, .20058, .32845, .04094, .01399,
1976 + .00912, .03264, .05627,
1977 + .45168, .19775, .31804, .04022, .01387,
1978 + .00913, .03209, .05514,
1979 + .44675, .19508, .30846, .03955, .01375,
1980 + .00913, .03157, .05407,
1981 + .44213, .19259, .29969, .03891, .01364,
1982 + .00912, .03108, .05308,
1983 + .43743, .19006, .29109, .03827, .01351,
1984 + .00910, .03059, .05211 /
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 + .67560, .33672, .88325, .05778, .00000,
1987 + .00000, .04011, .09845,
1988 + .67025, .33150, .86992, .05725, .00000,
1989 + .00000, .04016, .09630,
1990 + .66169, .32385, .84315, .05640, .00081,
1991 + .00000, .04009, .09312,
1992 + .65516, .31829, .81960, .05570, .00239,
1993 + .00000, .03995, .09086,
1994 + .64798, .31245, .79356, .05490, .00358,
1995 + .00000, .03970, .08850,
1996 + .64155, .30745, .77027, .05418, .00449,
1997 + .00000, .03943, .08651,
1998 + .63528, .30270, .74773, .05347, .00530,
1999 + .00000, .03914, .08462,
2000 + .62853, .29773, .72380, .05270, .00609,
2001 + .00000, .03879, .08265 /
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 + .62253, .29343, .70285, .05200, .00667,
2004 + .00000, .03844, .08096,
2005 + .61667, .28932, .68271, .05131, .00719,
2006 + .00000, .03808, .07937,
2007 + .61203, .28611, .66702, .05078, .00757,
2008 + .00000, .03778, .07812,
2009 + .60195, .27932, .63278, .04961, .00827,
2010 + .00017, .03711, .07550,
2011 + .59317, .27353, .60252, .04856, .00876,
2012 + .00105, .03649, .07330,
2013 + .58327, .26719, .56989, .04739, .00922,
2014 + .00202, .03578, .07089,
2015 + .57292, .26072, .53763, .04617, .00961,
2016 + .00279, .03499, .06846,
2017 + .56354, .25495, .50981, .04506, .00989,
2018 + .00338, .03426, .06631 /
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 + .55411, .24924, .48315, .04395, .01011,
2021 + .00391, .03353, .06421,
2022 + .54625, .24459, .46201, .04304, .01025,
2023 + .00428, .03290, .06249,
2024 + .53673, .23904, .43762, .04194, .01036,
2025 + .00466, .03212, .06048,
2026 + .52839, .23423, .41720, .04098, .01044,
2027 + .00496, .03145, .05876,
2028 + .52083, .22990, .39939, .04009, .01048,
2029 + .00520, .03083, .05723,
2030 + .51121, .22448, .37785, .03899, .01049,
2031 + .00544, .03005, .05531,
2032 + .50226, .21951, .35878, .03798, .01048,
2033 + .00564, .02932, .05357,
2034 + .49397, .21498, .34192, .03705, .01045,
2035 + .00580, .02864, .05200 /
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 + .48570, .21048, .32588, .03613, .01039,
2038 + .00591, .02796, .05047,
2039 + .47772, .20618, .31103, .03525, .01032,
2040 + .00601, .02731, .04902,
2041 + .47025, .20221, .29771, .03443, .01025,
2042 + .00609, .02670, .04768,
2043 + .46323, .19852, .28572, .03368, .01016,
2044 + .00614, .02614, .04644,
2045 + .45630, .19489, .27426, .03294, .01007,
2046 + .00618, .02559, .04523,
2047 + .44949, .19134, .26346, .03221, .00997,
2048 + .00620, .02504, .04408,
2049 + .44315, .18805, .25368, .03154, .00988,
2050 + .00622, .02453, .04302,
2051 + .43713, .18497, .24481, .03091, .00978,
2052 + .00622, .02405, .04204 /
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 + .43116, .18194, .23624, .03029, .00967,
2055 + .00622, .02358, .04107,
2056 + .42530, .17898, .22812, .02968, .00957,
2057 + .00621, .02312, .04013,
2058 + .41979, .17619, .22069, .02911, .00946,
2059 + .00620, .02269, .03925,
2060 + .41462, .17360, .21390, .02858, .00936,
2061 + .00618, .02229, .03844,
2062 + .40937, .17098, .20728, .02806, .00926,
2063 + .00615, .02188, .03763 /
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 + .70037, .33485, .77167, .04823, .00000,
2066 + .00000, .03334, .08179,
2067 + .69188, .32832, .75347, .04758, .00000,
2068 + .00000, .03319, .07957,
2069 + .67894, .31887, .72157, .04658, .00064,
2070 + .00000, .03287, .07637,
2071 + .66938, .31213, .69560, .04582, .00186,
2072 + .00000, .03256, .07411,
2073 + .65918, .30512, .66788, .04496, .00278,
2074 + .00000, .03218, .07181,
2075 + .65026, .29919, .64383, .04420, .00346,
2076 + .00000, .03181, .06985,
2077 + .64170, .29360, .62102, .04346, .00407,
2078 + .00000, .03143, .06803,
2079 + .63263, .28780, .59719, .04267, .00465,
2080 + .00000, .03099, .06616 /
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 + .62469, .28283, .57665, .04199, .00508,
2083 + .00000, .03059, .06454,
2084 + .61704, .27809, .55721, .04131, .00545,
2085 + .00000, .03020, .06304,
2086 + .61104, .27440, .54222, .04077, .00573,
2087 + .00000, .02989, .06187,
2088 + .59819, .26668, .51011, .03964, .00622,
2089 + .00013, .02917, .05945,
2090 + .58715, .26018, .48235, .03864, .00656,
2091 + .00077, .02855, .05743,
2092 + .57489, .25307, .45283, .03753, .00687,
2093 + .00149, .02783, .05525,
2094 + .56226, .24589, .42404, .03639, .00712,
2095 + .00204, .02708, .05305,
2096 + .55092, .23956, .39949, .03537, .00729,
2097 + .00246, .02640, .05113 /
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 + .53963, .23333, .37621, .03436, .00742,
2100 + .00283, .02570, .04928,
2101 + .53033, .22829, .35795, .03354, .00750,
2102 + .00309, .02512, .04777,
2103 + .51919, .22229, .33705, .03254, .00756,
2104 + .00335, .02443, .04602,
2105 + .50950, .21712, .31969, .03168, .00758,
2106 + .00355, .02382, .04454,
2107 + .50074, .21250, .30465, .03091, .00759,
2108 + .00371, .02327, .04322,
2109 + .48971, .20678, .28662, .02995, .00756,
2110 + .00387, .02258, .04157,
2111 + .47953, .20154, .27079, .02907, .00752,
2112 + .00400, .02194, .04011,
2113 + .47019, .19676, .25690, .02826, .00748,
2114 + .00410, .02136, .03879 /
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 + .46090, .19210, .24379, .02747, .00741,
2117 + .00417, .02078, .03750,
2118 + .45199, .18765, .23174, .02672, .00734,
2119 + .00422, .02023, .03628,
2120 + .44372, .18352, .22096, .02603, .00726,
2121 + .00426, .01972, .03517,
2122 + .43598, .17971, .21133, .02540, .00718,
2123 + .00429, .01924, .03416,
2124 + .42836, .17599, .20216, .02478, .00710,
2125 + .00430, .01877, .03317,
2126 + .42093, .17238, .19358, .02416, .00701,
2127 + .00431, .01832, .03223,
2128 + .41404, .16903, .18584, .02360, .00693,
2129 + .00431, .01790, .03136,
2130 + .40753, .16590, .17885, .02307, .00684,
2131 + .00430, .01751, .03057 /
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 + .40110, .16282, .17214, .02256, .00675,
2134 + .00429, .01712, .02978,
2135 + .39482, .15984, .16580, .02206, .00666,
2136 + .00428, .01675, .02902,
2137 + .38891, .15705, .16002, .02159, .00658,
2138 + .00426, .01640, .02831,
2139 + .38339, .15445, .15474, .02116, .00649,
2140 + .00424, .01608, .02766,
2141 + .37781, .15184, .14960, .02073, .00641,
2142 + .00421, .01575, .02702 /
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 + .71328, .32749, .67582, .04034, .00000,
2145 + .00000, .02740, .06656,
2146 + .70181, .31989, .65448, .03963, .00000,
2147 + .00000, .02714, .06444,
2148 + .68477, .30898, .61959, .03855, .00050,
2149 + .00000, .02668, .06145,
2150 + .67243, .30129, .59250, .03775, .00145,
2151 + .00000, .02630, .05934,
2152 + .65946, .29336, .56431, .03688, .00215,
2153 + .00000, .02586, .05720,
2154 + .64828, .28672, .54031, .03613, .00267,
2155 + .00000, .02546, .05540,
2156 + .63769, .28049, .51790, .03540, .00313,
2157 + .00000, .02505, .05374,
2158 + .62658, .27404, .49483, .03462, .00356,
2159 + .00000, .02460, .05206 /
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 + .61697, .26854, .47524, .03394, .00388,
2162 + .00000, .02421, .05063,
2163 + .60775, .26337, .45687, .03330, .00415,
2164 + .00000, .02381, .04927,
2165 + .60053, .25937, .44279, .03281, .00434,
2166 + .00000, .02350, .04822,
2167 + .58531, .25099, .41323, .03171, .00469,
2168 + .00010, .02283, .04609,
2169 + .57240, .24398, .38810, .03079, .00493,
2170 + .00057, .02224, .04432,
2171 + .55817, .23639, .36167, .02978, .00514,
2172 + .00110, .02157, .04241,
2173 + .54364, .22876, .33622, .02876, .00530,
2174 + .00150, .02088, .04052,
2175 + .53073, .22207, .31476, .02784, .00540,
2176 + .00180, .02026, .03888 /
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 + .51797, .21555, .29460, .02693, .00547,
2179 + .00206, .01965, .03729,
2180 + .50756, .21026, .27892, .02619, .00551,
2181 + .00224, .01914, .03603,
2182 + .49514, .20405, .26113, .02532, .00552,
2183 + .00242, .01853, .03457,
2184 + .48441, .19873, .24645, .02457, .00552,
2185 + .00256, .01800, .03333,
2186 + .47478, .19397, .23380, .02389, .00551,
2187 + .00267, .01752, .03224,
2188 + .46274, .18809, .21882, .02306, .00547,
2189 + .00277, .01693, .03090,
2190 + .45168, .18275, .20577, .02230, .00543,
2191 + .00285, .01640, .02969,
2192 + .44157, .17792, .19437, .02162, .00537,
2193 + .00291, .01591, .02861 /
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 + .43158, .17322, .18368, .02097, .00531,
2196 + .00295, .01542, .02754,
2197 + .42207, .16873, .17390, .02033, .00524,
2198 + .00298, .01496, .02656,
2199 + .41329, .16457, .16523, .01973, .00517,
2200 + .00300, .01454, .02569,
2201 + .40511, .16077, .15750, .01918, .00510,
2202 + .00301, .01415, .02488,
2203 + .39709, .15708, .15016, .01866, .00503,
2204 + .00302, .01377, .02409,
2205 + .38928, .15350, .14337, .01815, .00495,
2206 + .00301, .01340, .02334,
2207 + .38206, .15020, .13727, .01768, .00488,
2208 + .00300, .01305, .02266,
2209 + .37527, .14712, .13176, .01725, .00481,
2210 + .00299, .01273, .02203 /
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 + .36858, .14409, .12647, .01683, .00474,
2213 + .00298, .01243, .02141,
2214 + .36206, .14116, .12151, .01643, .00466,
2215 + .00296, .01213, .02082,
2216 + .35594, .13843, .11701, .01605, .00460,
2217 + .00294, .01185, .02027,
2218 + .35025, .13590, .11292, .01570, .00453,
2219 + .00292, .01160, .01977,
2220 + .34456, .13336, .10895, .01533, .00446,
2221 + .00290, .01134, .01927 /
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 + .71545, .31575, .59310, .03370, .00000,
2224 + .00000, .02227, .05311,
2225 + .70123, .30733, .56971, .03299, .00000,
2226 + .00000, .02195, .05119,
2227 + .68049, .29533, .53317, .03192, .00039,
2228 + .00000, .02143, .04848,
2229 + .66563, .28696, .50583, .03113, .00113,
2230 + .00000, .02102, .04661,
2231 + .65025, .27836, .47787, .03027, .00167,
2232 + .00000, .02057, .04473,
2233 + .63712, .27120, .45450, .02955, .00206,
2234 + .00000, .02016, .04316,
2235 + .62477, .26453, .43293, .02886, .00240,
2236 + .00000, .01976, .04171,
2237 + .61190, .25766, .41097, .02813, .00273,
2238 + .00000, .01933, .04024 /
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 + .60085, .25184, .39258, .02750, .00295,
2241 + .00000, .01896, .03900,
2242 + .59035, .24637, .37551, .02690, .00315,
2243 + .00000, .01859, .03783,
2244 + .58218, .24214, .36253, .02644, .00329,
2245 + .00000, .01831, .03693,
2246 + .56503, .23337, .33556, .02545, .00354,
2247 + .00008, .01768, .03513,
2248 + .55056, .22609, .31306, .02462, .00370,
2249 + .00043, .01715, .03362,
2250 + .53479, .21824, .28965, .02370, .00384,
2251 + .00081, .01655, .03204,
2252 + .51883, .21039, .26734, .02278, .00394,
2253 + .00110, .01593, .03047,
2254 + .50473, .20354, .24873, .02195, .00400,
2255 + .00132, .01540, .02913 /
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 + .49090, .19688, .23141, .02115, .00403,
2258 + .00150, .01487, .02783,
2259 + .47968, .19153, .21801, .02051, .00405,
2260 + .00163, .01444, .02680,
2261 + .46637, .18526, .20295, .01975, .00404,
2262 + .00175, .01393, .02559,
2263 + .45493, .17991, .19065, .01910, .00403,
2264 + .00185, .01349, .02458,
2265 + .44469, .17515, .18015, .01853, .00401,
2266 + .00192, .01311, .02370,
2267 + .43199, .16930, .16773, .01780, .00397,
2268 + .00199, .01260, .02264,
2269 + .42038, .16401, .15699, .01716, .00392,
2270 + .00204, .01215, .02168,
2271 + .40981, .15925, .14768, .01659, .00387,
2272 + .00207, .01176, .02081 /
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 + .39947, .15459, .13901, .01602, .00381,
2275 + .00209, .01136, .01998,
2276 + .38961, .15019, .13111, .01549, .00375,
2277 + .00211, .01099, .01921,
2278 + .38051, .14618, .12412, .01500, .00369,
2279 + .00212, .01065, .01851,
2280 + .37210, .14248, .11795, .01457, .00363,
2281 + .00212, .01034, .01788,
2282 + .36389, .13888, .11213, .01415, .00357,
2283 + .00212, .01003, .01726,
2284 + .35594, .13540, .10676, .01371, .00351,
2285 + .00211, .00974, .01669,
2286 + .34861, .13220, .10195, .01331, .00345,
2287 + .00210, .00947, .01617,
2288 + .34173, .12925, .09761, .01296, .00339,
2289 + .00209, .00922, .01568 /
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 + .33497, .12636, .09346, .01262, .00334,
2292 + .00208, .00898, .01520,
2293 + .32841, .12355, .08959, .01229, .00328,
2294 + .00206, .00874, .01474,
2295 + .32229, .12093, .08608, .01199, .00322,
2296 + .00204, .00852, .01431,
2297 + .31660, .11850, .08291, .01170, .00317,
2298 + .00203, .00832, .01393,
2299 + .31089, .11610, .07985, .01142, .00312,
2300 + .00201, .00812, .01356 /
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 + .70762, .30098, .52096, .02841, .00000,
2303 + .00000, .01770, .04132,
2304 + .69108, .29191, .49623, .02765, .00000,
2305 + .00000, .01738, .03972,
2306 + .66718, .27912, .45898, .02658, .00030,
2307 + .00000, .01689, .03740,
2308 + .65027, .27021, .43192, .02578, .00088,
2309 + .00000, .01651, .03582,
2310 + .63287, .26116, .40474, .02495, .00129,
2311 + .00000, .01609, .03424,
2312 + .61816, .25366, .38234, .02425, .00159,
2313 + .00000, .01573, .03291,
2314 + .60437, .24672, .36190, .02360, .00185,
2315 + .00000, .01537, .03170,
2316 + .59009, .23960, .34133, .02293, .00208,
2317 + .00000, .01498, .03047 /
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 + .57795, .23359, .32430, .02233, .00225,
2320 + .00000, .01465, .02945,
2321 + .56645, .22795, .30862, .02176, .00239,
2322 + .00000, .01432, .02852,
2323 + .55753, .22360, .29677, .02132, .00249,
2324 + .00000, .01406, .02780,
2325 + .53891, .21466, .27246, .02042, .00266,
2326 + .00006, .01353, .02631,
2327 + .52332, .20728, .25254, .01968, .00277,
2328 + .00032, .01307, .02507,
2329 + .50644, .19934, .23202, .01884, .00286,
2330 + .00060, .01257, .02379,
2331 + .48944, .19145, .21259, .01802, .00292,
2332 + .00081, .01205, .02254,
2333 + .47453, .18461, .19654, .01731, .00296,
2334 + .00097, .01160, .02145 /
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 + .45999, .17800, .18176, .01662, .00297,
2337 + .00110, .01115, .02041,
2338 + .44823, .17270, .17047, .01606, .00297,
2339 + .00119, .01079, .01961,
2340 + .43439, .16651, .15783, .01541, .00296,
2341 + .00127, .01037, .01865,
2342 + .42255, .16126, .14756, .01485, .00294,
2343 + .00133, .01002, .01785,
2344 + .41200, .15662, .13886, .01435, .00291,
2345 + .00138, .00969, .01717,
2346 + .39889, .15094, .12865, .01377, .00287,
2347 + .00143, .00929, .01633,
2348 + .38703, .14579, .11988, .01322, .00283,
2349 + .00146, .00894, .01559,
2350 + .37633, .14115, .11231, .01270, .00278,
2351 + .00148, .00861, .01494 /
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 + .36584, .13667, .10531, .01224, .00273,
2354 + .00149, .00831, .01429,
2355 + .35591, .13245, .09898, .01180, .00268,
2356 + .00150, .00801, .01370,
2357 + .34677, .12859, .09342, .01138, .00263,
2358 + .00150, .00773, .01318,
2359 + .33832, .12507, .08852, .01103, .00258,
2360 + .00150, .00749, .01270,
2361 + .33009, .12166, .08390, .01069, .00253,
2362 + .00149, .00725, .01222,
2363 + .32217, .11837, .07965, .01035, .00248,
2364 + .00148, .00702, .01177,
2365 + .31489, .11535, .07585, .01003, .00244,
2366 + .00147, .00681, .01137,
2367 + .30810, .11255, .07247, .00974, .00239,
2368 + .00146, .00662, .01099 /
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 + .30144, .10981, .06924, .00947, .00235,
2371 + .00145, .00644, .01063,
2372 + .29498, .10717, .06624, .00920, .00230,
2373 + .00144, .00626, .01030,
2374 + .28897, .10471, .06353, .00895, .00226,
2375 + .00142, .00608, .00999,
2376 + .28339, .10245, .06108, .00871, .00222,
2377 + .00141, .00592, .00971,
2378 + .27781, .10020, .05872, .00849, .00218,
2379 + .00139, .00577, .00943 /
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 + .69183, .28316, .45656, .02349, .00000,
2382 + .00000, .01409, .03173,
2383 + .67324, .27374, .43119, .02279, .00000,
2384 + .00000, .01379, .03035,
2385 + .64667, .26047, .39414, .02175, .00023,
2386 + .00000, .01331, .02845,
2387 + .62800, .25133, .36787, .02103, .00067,
2388 + .00000, .01295, .02713,
2389 + .60892, .24210, .34180, .02028, .00098,
2390 + .00000, .01255, .02583,
2391 + .59295, .23443, .32068, .01962, .00121,
2392 + .00000, .01220, .02478,
2393 + .57806, .22738, .30162, .01902, .00140,
2394 + .00000, .01189, .02379,
2395 + .56270, .22019, .28263, .01841, .00157,
2396 + .00000, .01156, .02278 /
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 + .54967, .21416, .26705, .01789, .00169,
2399 + .00000, .01126, .02195,
2400 + .53741, .20851, .25284, .01739, .00179,
2401 + .00000, .01097, .02118,
2402 + .52795, .20416, .24217, .01700, .00187,
2403 + .00000, .01075, .02060,
2404 + .50828, .19525, .22057, .01621, .00198,
2405 + .00005, .01030, .01941,
2406 + .49195, .18789, .20306, .01554, .00206,
2407 + .00023, .00992, .01843,
2408 + .47434, .18006, .18521, .01483, .00211,
2409 + .00044, .00949, .01741,
2410 + .45670, .17232, .16854, .01413, .00215,
2411 + .00059, .00905, .01643,
2412 + .44134, .16562, .15491, .01350, .00217,
2413 + .00070, .00867, .01560 /
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 + .42645, .15917, .14242, .01289, .00217,
2416 + .00079, .00831, .01479,
2417 + .41441, .15408, .13294, .01242, .00216,
2418 + .00085, .00802, .01414,
2419 + .40032, .14810, .12242, .01189, .00214,
2420 + .00091, .00767, .01341,
2421 + .38832, .14304, .11394, .01143, .00212,
2422 + .00095, .00738, .01280,
2423 + .37770, .13857, .10679, .01100, .00210,
2424 + .00099, .00713, .01227,
2425 + .36457, .13313, .09846, .01049, .00206,
2426 + .00101, .00681, .01164,
2427 + .35270, .12825, .09136, .01006, .00202,
2428 + .00103, .00653, .01107,
2429 + .34200, .12387, .08527, .00967, .00199,
2430 + .00105, .00627, .01055 /
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 + .33157, .11962, .07966, .00929, .00194,
2433 + .00105, .00603, .01008,
2434 + .32175, .11564, .07461, .00893, .00190,
2435 + .00105, .00580, .00964,
2436 + .31276, .11201, .07018, .00858, .00186,
2437 + .00105, .00558, .00925,
2438 + .30450, .10870, .06631, .00828, .00182,
2439 + .00105, .00539, .00888,
2440 + .29646, .10550, .06269, .00800, .00179,
2441 + .00104, .00521, .00852,
2442 + .28873, .10243, .05937, .00773, .00175,
2443 + .00103, .00503, .00820,
2444 + .28162, .09962, .05642, .00748, .00171,
2445 + .00103, .00487, .00790,
2446 + .27503, .09702, .05379, .00725, .00168,
2447 + .00102, .00472, .00763 /
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 + .26858, .09449, .05128, .00702, .00164,
2450 + .00101, .00458, .00737,
2451 + .26234, .09206, .04896, .00681, .00161,
2452 + .00100, .00444, .00711,
2453 + .25652, .08981, .04686, .00662, .00157,
2454 + .00098, .00431, .00688,
2455 + .25114, .08773, .04497, .00644, .00154,
2456 + .00097, .00419, .00667,
2457 + .24580, .08566, .04316, .00626, .00151,
2458 + .00096, .00408, .00647 /
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 + .66859, .26370, .39867, .01937, .00000,
2461 + .00000, .01102, .02383,
2462 + .64840, .25408, .37326, .01870, .00000,
2463 + .00000, .01074, .02273,
2464 + .61975, .24065, .33704, .01774, .00018,
2465 + .00000, .01030, .02120,
2466 + .59981, .23139, .31195, .01706, .00051,
2467 + .00000, .00999, .02016,
2468 + .57948, .22216, .28742, .01639, .00075,
2469 + .00000, .00966, .01909,
2470 + .56256, .21453, .26782, .01581, .00091,
2471 + .00000, .00936, .01825,
2472 + .54689, .20751, .25027, .01526, .00105,
2473 + .00000, .00908, .01748,
2474 + .53082, .20037, .23292, .01470, .00118,
2475 + .00000, .00879, .01670 /
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 + .51726, .19439, .21890, .01423, .00126,
2478 + .00000, .00855, .01604,
2479 + .50451, .18882, .20620, .01379, .00134,
2480 + .00000, .00831, .01546,
2481 + .49469, .18457, .19671, .01346, .00139,
2482 + .00000, .00811, .01502,
2483 + .47444, .17585, .17769, .01276, .00147,
2484 + .00004, .00773, .01408,
2485 + .45767, .16872, .16253, .01220, .00151,
2486 + .00017, .00741, .01332,
2487 + .43969, .16113, .14722, .01159, .00155,
2488 + .00032, .00706, .01255,
2489 + .42183, .15365, .13305, .01097, .00157,
2490 + .00043, .00673, .01178,
2491 + .40632, .14722, .12156, .01045, .00157,
2492 + .00051, .00643, .01113 /
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 + .39131, .14106, .11113, .00996, .00157,
2495 + .00057, .00613, .01052,
2496 + .37927, .13617, .10326, .00958, .00156,
2497 + .00061, .00590, .01005,
2498 + .36527, .13050, .09461, .00910, .00154,
2499 + .00065, .00562, .00950,
2500 + .35338, .12571, .08767, .00871, .00152,
2501 + .00068, .00538, .00904,
2502 + .34286, .12150, .08183, .00838, .00150,
2503 + .00070, .00518, .00864,
2504 + .32992, .11639, .07512, .00797, .00147,
2505 + .00072, .00494, .00816,
2506 + .31828, .11180, .06942, .00761, .00144,
2507 + .00073, .00472, .00774,
2508 + .30783, .10769, .06455, .00729, .00141,
2509 + .00074, .00452, .00736 /
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 + .29770, .10375, .06008, .00697, .00137,
2512 + .00074, .00433, .00701,
2513 + .28818, .10005, .05609, .00668, .00134,
2514 + .00074, .00414, .00669,
2515 + .27947, .09670, .05262, .00641, .00131,
2516 + .00074, .00398, .00640,
2517 + .27149, .09364, .04958, .00618, .00128,
2518 + .00073, .00384, .00613,
2519 + .26375, .09069, .04675, .00596, .00125,
2520 + .00073, .00370, .00587,
2521 + .25634, .08788, .04417, .00573, .00122,
2522 + .00072, .00357, .00563,
2523 + .24956, .08531, .04188, .00551, .00119,
2524 + .00071, .00344, .00542,
2525 + .24324, .08294, .03985, .00534, .00117,
2526 + .00070, .00333, .00523 /
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 + .23707, .08063, .03792, .00518, .00114,
2529 + .00069, .00322, .00504,
2530 + .23114, .07842, .03613, .00502, .00112,
2531 + .00069, .00312, .00486,
2532 + .22564, .07636, .03453, .00486, .00109,
2533 + .00068, .00302, .00470,
2534 + .22057, .07447, .03308, .00472, .00107,
2535 + .00067, .00294, .00454,
2536 + .21553, .07261, .03169, .00458, .00105,
2537 + .00066, .00285, .00439 /
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 + .63927, .24297, .34590, .01575, .00000,
2540 + .00000, .00853, .01759,
2541 + .61788, .23336, .32102, .01514, .00000,
2542 + .00000, .00829, .01671,
2543 + .58776, .21997, .28632, .01424, .00013,
2544 + .00000, .00791, .01553,
2545 + .56686, .21088, .26273, .01366, .00038,
2546 + .00000, .00763, .01471,
2547 + .54575, .20176, .24010, .01305, .00056,
2548 + .00000, .00735, .01390,
2549 + .52830, .19427, .22214, .01252, .00068,
2550 + .00000, .00710, .01325,
2551 + .51215, .18742, .20624, .01205, .00078,
2552 + .00000, .00687, .01265,
2553 + .49564, .18049, .19072, .01157, .00087,
2554 + .00000, .00662, .01205 /
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 + .48176, .17468, .17826, .01118, .00093,
2557 + .00000, .00640, .01157,
2558 + .46880, .16930, .16708, .01080, .00098,
2559 + .00000, .00621, .01111,
2560 + .45886, .16520, .15878, .01051, .00102,
2561 + .00000, .00607, .01074,
2562 + .43839, .15681, .14229, .00994, .00107,
2563 + .00003, .00576, .01002,
2564 + .42158, .14996, .12928, .00944, .00110,
2565 + .00012, .00550, .00947,
2566 + .40360, .14273, .11627, .00891, .00112,
2567 + .00023, .00522, .00889,
2568 + .38580, .13565, .10437, .00840, .00113,
2569 + .00031, .00494, .00833,
2570 + .37040, .12959, .09480, .00798, .00113,
2571 + .00036, .00470, .00784 /
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 + .35557, .12379, .08617, .00759, .00112,
2574 + .00041, .00447, .00736,
2575 + .34379, .11920, .07973, .00726, .00111,
2576 + .00044, .00428, .00702,
2577 + .33007, .11388, .07268, .00690, .00110,
2578 + .00046, .00407, .00662,
2579 + .31844, .10942, .06707, .00659, .00108,
2580 + .00048, .00389, .00628,
2581 + .30819, .10552, .06238, .00631, .00106,
2582 + .00050, .00373, .00599,
2583 + .29574, .10077, .05701, .00596, .00104,
2584 + .00051, .00353, .00564,
2585 + .28452, .09653, .05247, .00567, .00101,
2586 + .00051, .00336, .00534,
2587 + .27443, .09276, .04862, .00542, .00099,
2588 + .00051, .00322, .00507 /
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 + .26473, .08915, .04511, .00519, .00096,
2591 + .00051, .00308, .00480,
2592 + .25563, .08577, .04198, .00495, .00094,
2593 + .00051, .00295, .00457,
2594 + .24734, .08271, .03926, .00473, .00092,
2595 + .00051, .00282, .00437,
2596 + .23977, .07992, .03691, .00454, .00089,
2597 + .00051, .00271, .00418,
2598 + .23244, .07724, .03472, .00437, .00087,
2599 + .00050, .00260, .00400,
2600 + .22545, .07469, .03273, .00420, .00085,
2601 + .00050, .00250, .00382,
2602 + .21906, .07237, .03096, .00403, .00083,
2603 + .00049, .00241, .00367,
2604 + .21313, .07023, .02940, .00390, .00081,
2605 + .00048, .00233, .00353 /
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 + .20736, .06815, .02793, .00376, .00079,
2608 + .00048, .00224, .00340,
2609 + .20181, .06616, .02657, .00364, .00077,
2610 + .00047, .00217, .00327,
2611 + .19668, .06432, .02534, .00353, .00076,
2612 + .00046, .00210, .00314,
2613 + .19194, .06264, .02425, .00343, .00074,
2614 + .00046, .00204, .00303,
2615 + .18726, .06097, .02321, .00332, .00072,
2616 + .00045, .00197, .00293 /
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 + .60492, .22159, .29752, .01259, .00000,
2619 + .00000, .00655, .01276,
2620 + .58275, .21216, .27367, .01203, .00000,
2621 + .00000, .00634, .01210,
2622 + .55171, .19909, .24117, .01125, .00010,
2623 + .00000, .00601, .01119,
2624 + .53027, .19025, .21944, .01076, .00028,
2625 + .00000, .00578, .01054,
2626 + .50878, .18140, .19877, .01023, .00041,
2627 + .00000, .00553, .00995,
2628 + .49107, .17419, .18265, .00978, .00050,
2629 + .00000, .00533, .00945,
2630 + .47476, .16761, .16850, .00938, .00057,
2631 + .00000, .00514, .00898,
2632 + .45814, .16097, .15477, .00899, .00063,
2633 + .00000, .00495, .00852 /
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 + .44425, .15543, .14386, .00862, .00068,
2636 + .00000, .00477, .00817,
2637 + .43132, .15030, .13416, .00830, .00071,
2638 + .00000, .00462, .00784,
2639 + .42142, .14638, .12700, .00805, .00073,
2640 + .00000, .00451, .00758,
2641 + .40106, .13845, .11293, .00760, .00077,
2642 + .00002, .00423, .00706,
2643 + .38445, .13201, .10195, .00718, .00079,
2644 + .00009, .00404, .00664,
2645 + .36678, .12523, .09107, .00675, .00080,
2646 + .00016, .00382, .00620,
2647 + .34936, .11861, .08119, .00634, .00081,
2648 + .00021, .00360, .00578,
2649 + .33438, .11295, .07332, .00599, .00080,
2650 + .00025, .00341, .00543 /
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 + .32003, .10756, .06630, .00565, .00080,
2653 + .00028, .00322, .00511,
2654 + .30862, .10332, .06110, .00540, .00079,
2655 + .00030, .00308, .00484,
2656 + .29540, .09842, .05544, .00511, .00077,
2657 + .00032, .00292, .00455,
2658 + .28425, .09432, .05095, .00486, .00076,
2659 + .00034, .00279, .00432,
2660 + .27445, .09074, .04721, .00464, .00074,
2661 + .00035, .00267, .00411,
2662 + .26253, .08641, .04295, .00439, .00072,
2663 + .00036, .00252, .00385,
2664 + .25188, .08255, .03938, .00416, .00071,
2665 + .00036, .00239, .00363,
2666 + .24237, .07912, .03637, .00395, .00069,
2667 + .00036, .00229, .00343 /
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 + .23318, .07586, .03364, .00377, .00067,
2670 + .00037, .00217, .00325,
2671 + .22460, .07282, .03122, .00360, .00065,
2672 + .00036, .00207, .00308,
2673 + .21682, .07005, .02913, .00344, .00063,
2674 + .00036, .00198, .00293,
2675 + .20974, .06755, .02732, .00330, .00062,
2676 + .00036, .00190, .00280,
2677 + .20291, .06515, .02564, .00316, .00060,
2678 + .00036, .00182, .00269,
2679 + .19641, .06287, .02411, .00302, .00059,
2680 + .00035, .00175, .00257,
2681 + .19048, .06080, .02276, .00290, .00057,
2682 + .00035, .00168, .00246,
2683 + .18499, .05890, .02158, .00280, .00056,
2684 + .00034, .00162, .00235 /
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 + .17965, .05706, .02046, .00269, .00054,
2687 + .00034, .00155, .00225,
2688 + .17454, .05530, .01944, .00260, .00053,
2689 + .00033, .00150, .00216,
2690 + .16982, .05368, .01852, .00251, .00052,
2691 + .00033, .00146, .00208,
2692 + .16548, .05219, .01769, .00243, .00051,
2693 + .00033, .00141, .00200,
2694 + .16118, .05072, .01691, .00234, .00050,
2695 + .00032, .00136, .00194 /
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 + .56657, .20021, .25342, .01000, .00000,
2698 + .00000, .00490, .00903,
2699 + .54401, .19109, .23104, .00954, .00000,
2700 + .00000, .00472, .00851,
2701 + .51259, .17853, .20108, .00885, .00007,
2702 + .00000, .00444, .00787,
2703 + .49113, .17001, .18145, .00838, .00021,
2704 + .00000, .00425, .00742,
2705 + .46962, .16159, .16296, .00794, .00030,
2706 + .00000, .00406, .00697,
2707 + .45195, .15474, .14873, .00757, .00036,
2708 + .00000, .00390, .00659,
2709 + .43576, .14849, .13635, .00723, .00041,
2710 + .00000, .00375, .00627,
2711 + .41934, .14220, .12446, .00688, .00045,
2712 + .00000, .00359, .00595 /
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 + .40560, .13703, .11507, .00662, .00049,
2715 + .00000, .00347, .00565,
2716 + .39287, .13224, .10677, .00636, .00051,
2717 + .00000, .00335, .00540,
2718 + .38317, .12858, .10068, .00616, .00053,
2719 + .00000, .00326, .00521,
2720 + .36334, .12114, .08883, .00576, .00055,
2721 + .00001, .00305, .00483,
2722 + .34722, .11515, .07968, .00541, .00056,
2723 + .00006, .00288, .00456,
2724 + .33008, .10888, .07071, .00508, .00057,
2725 + .00011, .00272, .00425,
2726 + .31331, .10276, .06266, .00475, .00057,
2727 + .00015, .00256, .00394,
2728 + .29896, .09755, .05629, .00446, .00056,
2729 + .00018, .00242, .00369 /
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 + .28523, .09262, .05063, .00421, .00056,
2732 + .00020, .00229, .00345,
2733 + .27436, .08875, .04644, .00401, .00055,
2734 + .00021, .00217, .00327,
2735 + .26183, .08430, .04193, .00378, .00054,
2736 + .00022, .00204, .00306,
2737 + .25130, .08058, .03839, .00359, .00053,
2738 + .00023, .00194, .00289,
2739 + .24206, .07734, .03546, .00342, .00052,
2740 + .00024, .00186, .00274,
2741 + .23085, .07343, .03215, .00323, .00050,
2742 + .00024, .00175, .00256,
2743 + .22086, .06997, .02938, .00305, .00049,
2744 + .00024, .00166, .00240,
2745 + .21198, .06691, .02704, .00289, .00048,
2746 + .00024, .00158, .00228 /
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 + .20351, .06397, .02494, .00272, .00046,
2749 + .00024, .00150, .00217,
2750 + .19556, .06125, .02308, .00258, .00045,
2751 + .00024, .00142, .00205,
2752 + .18831, .05882, .02148, .00248, .00044,
2753 + .00024, .00135, .00195,
2754 + .18179, .05661, .02011, .00237, .00043,
2755 + .00024, .00130, .00185,
2756 + .17552, .05449, .01883, .00227, .00042,
2757 + .00024, .00125, .00175,
2758 + .16955, .05247, .01768, .00216, .00041,
2759 + .00024, .00120, .00167,
2760 + .16411, .05064, .01667, .00206, .00040,
2761 + .00024, .00115, .00161,
2762 + .15909, .04898, .01578, .00199, .00039,
2763 + .00024, .00110, .00154 /
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 + .15421, .04736, .01494, .00192, .00038,
2766 + .00024, .00106, .00147,
2767 + .14955, .04583, .01416, .00185, .00037,
2768 + .00024, .00101, .00141,
2769 + .14525, .04442, .01347, .00178, .00037,
2770 + .00024, .00097, .00135,
2771 + .14131, .04312, .01285, .00172, .00036,
2772 + .00024, .00094, .00130,
2773 + .13742, .04185, .01227, .00167, .00035,
2774 + .00024, .00091, .00125 /
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 + .52539, .17896, .21321, .00774, .00000,
2777 + .00000, .00362, .00633,
2778 + .50280, .17031, .19267, .00736, .00000,
2779 + .00000, .00346, .00593,
2780 + .47155, .15843, .16571, .00681, .00005,
2781 + .00000, .00325, .00543,
2782 + .45029, .15042, .14826, .00645, .00015,
2783 + .00000, .00309, .00509,
2784 + .42910, .14252, .13210, .00607, .00021,
2785 + .00000, .00293, .00478,
2786 + .41181, .13608, .11973, .00577, .00025,
2787 + .00000, .00280, .00452,
2788 + .39599, .13026, .10909, .00550, .00029,
2789 + .00000, .00268, .00427,
2790 + .37999, .12442, .09896, .00523, .00032,
2791 + .00000, .00256, .00402 /
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 + .36672, .11960, .09101, .00499, .00034,
2794 + .00000, .00246, .00382,
2795 + .35442, .11515, .08404, .00478, .00036,
2796 + .00000, .00236, .00364,
2797 + .34505, .11177, .07895, .00462, .00037,
2798 + .00000, .00228, .00351,
2799 + .32595, .10496, .06912, .00432, .00039,
2800 + .00001, .00214, .00326,
2801 + .31044, .09948, .06166, .00408, .00040,
2802 + .00004, .00202, .00304,
2803 + .29417, .09373, .05438, .00380, .00041,
2804 + .00008, .00189, .00282,
2805 + .27826, .08817, .04788, .00352, .00041,
2806 + .00010, .00177, .00261,
2807 + .26466, .08346, .04278, .00330, .00040,
2808 + .00012, .00167, .00244 /
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 + .25175, .07901, .03829, .00310, .00040,
2811 + .00013, .00157, .00228,
2812 + .24153, .07552, .03501, .00295, .00039,
2813 + .00014, .00149, .00215,
2814 + .22979, .07153, .03148, .00278, .00039,
2815 + .00015, .00140, .00200,
2816 + .21998, .06820, .02871, .00263, .00038,
2817 + .00015, .00132, .00188,
2818 + .21142, .06531, .02643, .00250, .00037,
2819 + .00015, .00126, .00178,
2820 + .20102, .06185, .02387, .00236, .00036,
2821 + .00015, .00118, .00166,
2822 + .19181, .05878, .02174, .00222, .00035,
2823 + .00015, .00111, .00156,
2824 + .18366, .05606, .01996, .00208, .00035,
2825 + .00015, .00105, .00147 /
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 + .17585, .05347, .01837, .00197, .00034,
2828 + .00015, .00100, .00139,
2829 + .16858, .05108, .01696, .00186, .00033,
2830 + .00015, .00095, .00132,
2831 + .16200, .04892, .01574, .00177, .00032,
2832 + .00015, .00090, .00125,
2833 + .15604, .04699, .01470, .00170, .00032,
2834 + .00015, .00086, .00119,
2835 + .15032, .04514, .01374, .00164, .00031,
2836 + .00015, .00083, .00113,
2837 + .14492, .04339, .01288, .00155, .00031,
2838 + .00015, .00079, .00107,
2839 + .14001, .04181, .01212, .00147, .00030,
2840 + .00015, .00076, .00102,
2841 + .13548, .04036, .01146, .00142, .00029,
2842 + .00015, .00072, .00097 /
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 + .13110, .03897, .01083, .00137, .00029,
2845 + .00015, .00069, .00092,
2846 + .12692, .03763, .01026, .00132, .00028,
2847 + .00015, .00067, .00089,
2848 + .12308, .03641, .00975, .00127, .00028,
2849 + .00015, .00064, .00085,
2850 + .11955, .03529, .00929, .00122, .00028,
2851 + .00015, .00062, .00082,
2852 + .11608, .03419, .00885, .00118, .00027,
2853 + .00015, .00059, .00079 /
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 + .48216, .15833, .17673, .00586, .00000,
2856 + .00000, .00267, .00430,
2857 + .45993, .15020, .15834, .00554, .00000,
2858 + .00000, .00255, .00405,
2859 + .42934, .13909, .13452, .00509, .00004,
2860 + .00000, .00237, .00370,
2861 + .40859, .13162, .11937, .00480, .00010,
2862 + .00000, .00223, .00348,
2863 + .38810, .12426, .10548, .00449, .00015,
2864 + .00000, .00212, .00326,
2865 + .37137, .11833, .09494, .00425, .00017,
2866 + .00000, .00202, .00307,
2867 + .35615, .11298, .08597, .00402, .00020,
2868 + .00000, .00193, .00289,
2869 + .34083, .10762, .07750, .00380, .00022,
2870 + .00000, .00184, .00271 /
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 + .32811, .10321, .07090, .00364, .00023,
2873 + .00000, .00176, .00258,
2874 + .31635, .09914, .06515, .00349, .00025,
2875 + .00000, .00169, .00245,
2876 + .30742, .09606, .06099, .00338, .00025,
2877 + .00000, .00164, .00235,
2878 + .28937, .08988, .05302, .00309, .00026,
2879 + .00001, .00151, .00220,
2880 + .27476, .08492, .04700, .00289, .00027,
2881 + .00003, .00142, .00205,
2882 + .25941, .07974, .04119, .00269, .00027,
2883 + .00005, .00133, .00189,
2884 + .24450, .07475, .03605, .00249, .00027,
2885 + .00007, .00125, .00174,
2886 + .23183, .07053, .03205, .00233, .00027,
2887 + .00008, .00117, .00162 /
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 + .21980, .06656, .02854, .00219, .00027,
2890 + .00008, .00109, .00151,
2891 + .21036, .06348, .02599, .00208, .00027,
2892 + .00009, .00103, .00142,
2893 + .19956, .05994, .02328, .00194, .00027,
2894 + .00009, .00097, .00131,
2895 + .19054, .05699, .02116, .00182, .00027,
2896 + .00009, .00092, .00123,
2897 + .18266, .05445, .01943, .00173, .00027,
2898 + .00009, .00088, .00117,
2899 + .17319, .05139, .01749, .00160, .00027,
2900 + .00009, .00082, .00110,
2901 + .16480, .04870, .01588, .00150, .00027,
2902 + .00009, .00077, .00103,
2903 + .15738, .04635, .01453, .00143, .00027,
2904 + .00009, .00073, .00096 /
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 + .15030, .04410, .01333, .00134, .00026,
2907 + .00009, .00068, .00091,
2908 + .14373, .04202, .01228, .00126, .00026,
2909 + .00009, .00065, .00086,
2910 + .13783, .04016, .01139, .00120, .00026,
2911 + .00009, .00062, .00082,
2912 + .13248, .03850, .01062, .00114, .00025,
2913 + .00009, .00059, .00078,
2914 + .12735, .03691, .00990, .00109, .00025,
2915 + .00009, .00055, .00074,
2916 + .12251, .03541, .00926, .00103, .00025,
2917 + .00009, .00053, .00069,
2918 + .11811, .03405, .00870, .00099, .00024,
2919 + .00009, .00051, .00065,
2920 + .11409, .03281, .00821, .00095, .00024,
2921 + .00009, .00048, .00062 /
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 + .11021, .03161, .00776, .00091, .00024,
2924 + .00009, .00046, .00060,
2925 + .10651, .03047, .00734, .00087, .00023,
2926 + .00009, .00045, .00057,
2927 + .10312, .02943, .00696, .00083, .00023,
2928 + .00009, .00043, .00055,
2929 + .10001, .02848, .00663, .00080, .00023,
2930 + .00009, .00042, .00053,
2931 + .09694, .02755, .00631, .00077, .00023,
2932 + .00009, .00039, .00051 /
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 + .43787, .13862, .14424, .00437, .00000,
2935 + .00000, .00191, .00289,
2936 + .41637, .13103, .12811, .00408, .00000,
2937 + .00000, .00183, .00272,
2938 + .38687, .12078, .10752, .00372, .00002,
2939 + .00000, .00167, .00248,
2940 + .36697, .11390, .09463, .00348, .00007,
2941 + .00000, .00159, .00232,
2942 + .34737, .10718, .08291, .00320, .00010,
2943 + .00000, .00149, .00219,
2944 + .33144, .10177, .07415, .00302, .00012,
2945 + .00000, .00144, .00203,
2946 + .31697, .09690, .06674, .00286, .00013,
2947 + .00000, .00138, .00191,
2948 + .30244, .09205, .05978, .00270, .00015,
2949 + .00000, .00130, .00181 /
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 + .29047, .08806, .05441, .00255, .00015,
2952 + .00000, .00124, .00173,
2953 + .27944, .08440, .04976, .00243, .00016,
2954 + .00000, .00119, .00165,
2955 + .27105, .08164, .04641, .00234, .00017,
2956 + .00000, .00115, .00159,
2957 + .25416, .07611, .04006, .00215, .00017,
2958 + .00001, .00107, .00145,
2959 + .24056, .07167, .03531, .00200, .00017,
2960 + .00002, .00101, .00134,
2961 + .22633, .06706, .03076, .00185, .00017,
2962 + .00003, .00094, .00125,
2963 + .21253, .06264, .02678, .00172, .00017,
2964 + .00004, .00087, .00115,
2965 + .20087, .05893, .02369, .00160, .00017,
2966 + .00005, .00081, .00108 /
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 + .18988, .05543, .02100, .00147, .00017,
2969 + .00005, .00076, .00101,
2970 + .18127, .05271, .01905, .00138, .00017,
2971 + .00005, .00072, .00095,
2972 + .17141, .04962, .01700, .00128, .00017,
2973 + .00005, .00067, .00089,
2974 + .16322, .04707, .01541, .00121, .00017,
2975 + .00005, .00064, .00083,
2976 + .15610, .04486, .01410, .00115, .00017,
2977 + .00005, .00061, .00076,
2978 + .14758, .04223, .01265, .00106, .00017,
2979 + .00005, .00057, .00071,
2980 + .14004, .03991, .01146, .00099, .00017,
2981 + .00005, .00054, .00067,
2982 + .13336, .03787, .01047, .00093, .00017,
2983 + .00005, .00051, .00064 /
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 + .12705, .03594, .00958, .00087, .00017,
2986 + .00005, .00047, .00060,
2987 + .12121, .03417, .00881, .00081, .00017,
2988 + .00005, .00044, .00057,
2989 + .11595, .03258, .00815, .00076, .00017,
2990 + .00005, .00042, .00054,
2991 + .11121, .03116, .00758, .00073, .00017,
2992 + .00005, .00040, .00050,
2993 + .10667, .02981, .00706, .00070, .00017,
2994 + .00005, .00038, .00047,
2995 + .10241, .02854, .00660, .00066, .00017,
2996 + .00005, .00037, .00045,
2997 + .09855, .02739, .00619, .00062, .00017,
2998 + .00005, .00035, .00043,
2999 + .09503, .02635, .00584, .00059, .00017,
3000 + .00005, .00033, .00041 /
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 + .09163, .02534, .00550, .00057, .00017,
3003 + .00005, .00032, .00039,
3004 + .08839, .02439, .00520, .00054, .00017,
3005 + .00005, .00030, .00038,
3006 + .08541, .02351, .00493, .00052, .00017,
3007 + .00005, .00029, .00036,
3008 + .08270, .02271, .00469, .00050, .00017,
3009 + .00005, .00028, .00035,
3010 + .08004, .02194, .00446, .00049, .00017,
3011 + .00005, .00027, .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 + .39348, .12014, .11587, .00328, .00000,
3014 + .00000, .00126, .00188,
3015 + .37293, .11324, .10209, .00307, .00000,
3016 + .00000, .00120, .00175,
3017 + .34493, .10390, .08472, .00276, .00002,
3018 + .00000, .00111, .00158,
3019 + .32612, .09769, .07400, .00257, .00004,
3020 + .00000, .00107, .00146,
3021 + .30758, .09166, .06435, .00241, .00006,
3022 + .00000, .00099, .00136,
3023 + .29264, .08678, .05718, .00225, .00008,
3024 + .00000, .00094, .00130,
3025 + .27913, .08241, .05117, .00212, .00009,
3026 + .00000, .00088, .00122,
3027 + .26560, .07807, .04558, .00201, .00009,
3028 + .00000, .00083, .00112 /
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 + .25448, .07452, .04131, .00190, .00010,
3031 + .00000, .00079, .00106,
3032 + .24427, .07126, .03762, .00180, .00010,
3033 + .00000, .00076, .00101,
3034 + .23654, .06879, .03497, .00172, .00010,
3035 + .00000, .00073, .00097,
3036 + .22094, .06391, .02998, .00157, .00010,
3037 + .00000, .00066, .00090,
3038 + .20845, .06000, .02630, .00147, .00010,
3039 + .00001, .00063, .00082,
3040 + .19543, .05597, .02278, .00137, .00010,
3041 + .00002, .00059, .00074,
3042 + .18291, .05210, .01973, .00126, .00010,
3043 + .00002, .00054, .00069,
3044 + .17237, .04886, .01738, .00116, .00010,
3045 + .00002, .00050, .00065 /
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 + .16244, .04583, .01536, .00106, .00010,
3048 + .00002, .00046, .00061,
3049 + .15466, .04348, .01390, .00100, .00010,
3050 + .00002, .00045, .00056,
3051 + .14581, .04081, .01235, .00094, .00010,
3052 + .00002, .00041, .00053,
3053 + .13849, .03861, .01116, .00088, .00010,
3054 + .00002, .00038, .00050,
3055 + .13217, .03672, .01020, .00081, .00010,
3056 + .00002, .00036, .00047,
3057 + .12456, .03445, .00913, .00076, .00010,
3058 + .00002, .00033, .00043,
3059 + .11785, .03248, .00825, .00072, .00010,
3060 + .00002, .00031, .00040,
3061 + .11194, .03075, .00751, .00068, .00010,
3062 + .00002, .00030, .00037 /
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 + .10639, .02912, .00687, .00063, .00010,
3065 + .00002, .00027, .00035,
3066 + .10125, .02761, .00630, .00059, .00010,
3067 + .00002, .00026, .00033,
3068 + .09664, .02627, .00582, .00055, .00010,
3069 + .00002, .00025, .00031,
3070 + .09250, .02508, .00541, .00052, .00010,
3071 + .00002, .00023, .00029,
3072 + .08855, .02395, .00503, .00050, .00010,
3073 + .00002, .00021, .00027,
3074 + .08482, .02288, .00469, .00048, .00010,
3075 + .00002, .00020, .00025,
3076 + .08145, .02191, .00440, .00047, .00010,
3077 + .00002, .00019, .00024,
3078 + .07840, .02104, .00414, .00045, .00010,
3079 + .00002, .00019, .00023 /
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 + .07546, .02020, .00390, .00043, .00010,
3082 + .00002, .00018, .00022,
3083 + .07268, .01941, .00368, .00040, .00010,
3084 + .00002, .00017, .00021,
3085 + .07013, .01869, .00349, .00038, .00010,
3086 + .00002, .00016, .00020,
3087 + .06780, .01803, .00331, .00036, .00010,
3088 + .00002, .00016, .00020,
3089 + .06550, .01739, .00315, .00035, .00010,
3090 + .00002, .00015, .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 + .34948, .10262, .09107, .00223, .00000,
3093 + .00000, .00092, .00125,
3094 + .33014, .09642, .07956, .00206, .00000,
3095 + .00000, .00087, .00117,
3096 + .30386, .08806, .06527, .00186, .00001,
3097 + .00000, .00079, .00106,
3098 + .28629, .08253, .05658, .00174, .00003,
3099 + .00000, .00074, .00098,
3100 + .26913, .07714, .04883, .00161, .00004,
3101 + .00000, .00068, .00090,
3102 + .25530, .07285, .04314, .00150, .00004,
3103 + .00000, .00065, .00083,
3104 + .24283, .06901, .03839, .00141, .00005,
3105 + .00000, .00062, .00077,
3106 + .23038, .06519, .03400, .00133, .00005,
3107 + .00000, .00058, .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 + .22016, .06207, .03067, .00126, .00006,
3110 + .00000, .00054, .00069,
3111 + .21083, .05923, .02781, .00119, .00006,
3112 + .00000, .00051, .00065,
3113 + .20378, .05709, .02577, .00115, .00006,
3114 + .00000, .00049, .00062,
3115 + .18964, .05282, .02196, .00104, .00006,
3116 + .00000, .00046, .00057,
3117 + .17836, .04943, .01916, .00096, .00006,
3118 + .00000, .00043, .00053,
3119 + .16664, .04595, .01652, .00089, .00006,
3120 + .00000, .00039, .00048,
3121 + .15537, .04263, .01423, .00082, .00006,
3122 + .00000, .00036, .00044,
3123 + .14592, .03985, .01249, .00076, .00006,
3124 + .00000, .00033, .00041 /
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 + .13707, .03726, .01099, .00069, .00006,
3127 + .00000, .00030, .00039,
3128 + .13017, .03526, .00992, .00066, .00006,
3129 + .00000, .00029, .00035,
3130 + .12236, .03300, .00879, .00060, .00006,
3131 + .00000, .00027, .00032,
3132 + .11588, .03114, .00792, .00057, .00006,
3133 + .00000, .00025, .00029,
3134 + .11027, .02955, .00722, .00055, .00006,
3135 + .00000, .00023, .00028,
3136 + .10363, .02764, .00645, .00049, .00006,
3137 + .00000, .00022, .00026,
3138 + .09780, .02598, .00581, .00045, .00006,
3139 + .00000, .00020, .00024,
3140 + .09266, .02453, .00528, .00043, .00006,
3141 + .00000, .00019, .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 + .08782, .02317, .00482, .00040, .00006,
3144 + .00000, .00018, .00021,
3145 + .08336, .02192, .00441, .00037, .00006,
3146 + .00000, .00017, .00020,
3147 + .07937, .02081, .00407, .00036, .00006,
3148 + .00000, .00015, .00019,
3149 + .07580, .01981, .00378, .00034, .00006,
3150 + .00000, .00014, .00018,
3151 + .07240, .01887, .00351, .00032, .00006,
3152 + .00000, .00013, .00018,
3153 + .06922, .01800, .00327, .00030, .00006,
3154 + .00000, .00013, .00016,
3155 + .06636, .01721, .00306, .00029, .00006,
3156 + .00000, .00012, .00015,
3157 + .06374, .01650, .00288, .00028, .00006,
3158 + .00000, .00012, .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 + .06123, .01581, .00271, .00027, .00006,
3161 + .00000, .00011, .00013,
3162 + .05885, .01516, .00255, .00025, .00006,
3163 + .00000, .00011, .00013,
3164 + .05669, .01456, .00242, .00024, .00006,
3165 + .00000, .00010, .00012,
3166 + .05472, .01403, .00229, .00023, .00006,
3167 + .00000, .00010, .00012,
3168 + .05279, .01351, .00218, .00022, .00006,
3169 + .00000, .00010, .00011 /
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 + .30669, .08660, .07011, .00148, .00000,
3172 + .00000, .00065, .00081,
3173 + .28869, .08109, .06075, .00141, .00000,
3174 + .00000, .00060, .00074,
3175 + .26442, .07372, .04929, .00124, .00001,
3176 + .00000, .00053, .00067,
3177 + .24831, .06885, .04240, .00113, .00002,
3178 + .00000, .00050, .00063,
3179 + .23258, .06414, .03631, .00104, .00002,
3180 + .00000, .00047, .00059,
3181 + .21997, .06038, .03189, .00097, .00002,
3182 + .00000, .00044, .00054,
3183 + .20862, .05704, .02822, .00092, .00002,
3184 + .00000, .00041, .00050,
3185 + .19733, .05373, .02486, .00087, .00002,
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 + .18810, .05103, .02232, .00083, .00002,
3189 + .00000, .00037, .00044,
3190 + .17971, .04858, .02016, .00077, .00002,
3191 + .00000, .00035, .00042,
3192 + .17340, .04674, .01862, .00072, .00002,
3193 + .00000, .00033, .00040,
3194 + .16068, .04308, .01578, .00067, .00002,
3195 + .00000, .00031, .00036,
3196 + .15066, .04018, .01370, .00060, .00002,
3197 + .00000, .00028, .00034,
3198 + .14026, .03722, .01175, .00054, .00002,
3199 + .00000, .00025, .00030,
3200 + .13028, .03440, .01008, .00050, .00002,
3201 + .00000, .00024, .00027,
3202 + .12194, .03205, .00881, .00046, .00002,
3203 + .00000, .00022, .00025 /
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 + .11417, .02987, .00773, .00042, .00002,
3206 + .00000, .00020, .00024,
3207 + .10815, .02819, .00696, .00039, .00002,
3208 + .00000, .00019, .00022,
3209 + .10133, .02630, .00615, .00036, .00002,
3210 + .00000, .00018, .00020,
3211 + .09570, .02475, .00553, .00033, .00002,
3212 + .00000, .00017, .00019,
3213 + .09086, .02341, .00503, .00031, .00002,
3214 + .00000, .00016, .00018,
3215 + .08508, .02184, .00448, .00030, .00002,
3216 + .00000, .00014, .00016,
3217 + .08004, .02047, .00403, .00028, .00002,
3218 + .00000, .00013, .00015,
3219 + .07564, .01928, .00365, .00026, .00002,
3220 + .00000, .00013, .00014 /
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 + .07150, .01816, .00333, .00024, .00002,
3223 + .00000, .00012, .00013,
3224 + .06770, .01714, .00305, .00022, .00002,
3225 + .00000, .00011, .00013,
3226 + .06432, .01623, .00281, .00021, .00002,
3227 + .00000, .00010, .00012,
3228 + .06129, .01542, .00260, .00019, .00002,
3229 + .00000, .00009, .00011,
3230 + .05841, .01465, .00241, .00018, .00002,
3231 + .00000, .00009, .00011,
3232 + .05571, .01394, .00225, .00018, .00002,
3233 + .00000, .00008, .00010,
3234 + .05328, .01331, .00210, .00018, .00002,
3235 + .00000, .00008, .00009,
3236 + .05109, .01273, .00197, .00017, .00002,
3237 + .00000, .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 + .04899, .01217, .00186, .00016, .00002,
3240 + .00000, .00007, .00009,
3241 + .04700, .01165, .00175, .00015, .00002,
3242 + .00000, .00007, .00008,
3243 + .04518, .01118, .00165, .00014, .00002,
3244 + .00000, .00006, .00008,
3245 + .04354, .01075, .00156, .00013, .00002,
3246 + .00000, .00006, .00007,
3247 + .04193, .01033, .00148, .00012, .00002,
3248 + .00000, .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 + .26578, .07222, .05286, .00106, .00000,
3251 + .00000, .00039, .00048,
3252 + .24937, .06739, .04545, .00098, .00000,
3253 + .00000, .00036, .00044,
3254 + .22728, .06099, .03648, .00086, .00000,
3255 + .00000, .00033, .00038,
3256 + .21267, .05676, .03115, .00080, .00001,
3257 + .00000, .00031, .00036,
3258 + .19850, .05269, .02650, .00071, .00001,
3259 + .00000, .00028, .00035,
3260 + .18718, .04946, .02314, .00066, .00001,
3261 + .00000, .00027, .00031,
3262 + .17705, .04659, .02037, .00061, .00001,
3263 + .00000, .00025, .00029,
3264 + .16700, .04376, .01785, .00056, .00001,
3265 + .00000, .00022, .00028 /
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 + .15878, .04147, .01597, .00055, .00001,
3268 + .00000, .00021, .00025,
3269 + .15131, .03938, .01437, .00052, .00001,
3270 + .00000, .00020, .00024,
3271 + .14570, .03781, .01324, .00049, .00001,
3272 + .00000, .00019, .00023,
3273 + .13451, .03471, .01114, .00045, .00001,
3274 + .00000, .00018, .00020,
3275 + .12566, .03228, .00964, .00041, .00001,
3276 + .00000, .00016, .00018,
3277 + .11653, .02979, .00824, .00038, .00001,
3278 + .00000, .00015, .00017,
3279 + .10785, .02743, .00704, .00035, .00001,
3280 + .00000, .00014, .00016,
3281 + .10062, .02548, .00614, .00032, .00001,
3282 + .00000, .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 + .09389, .02367, .00537, .00030, .00001,
3285 + .00000, .00011, .00012,
3286 + .08872, .02227, .00482, .00027, .00001,
3287 + .00000, .00010, .00012,
3288 + .08283, .02072, .00425, .00025, .00001,
3289 + .00000, .00010, .00011,
3290 + .07801, .01944, .00381, .00024, .00001,
3291 + .00000, .00009, .00011,
3292 + .07390, .01835, .00346, .00022, .00001,
3293 + .00000, .00008, .00010,
3294 + .06899, .01706, .00308, .00020, .00001,
3295 + .00000, .00008, .00009,
3296 + .06472, .01595, .00277, .00018, .00001,
3297 + .00000, .00007, .00008,
3298 + .06100, .01498, .00251, .00017, .00001,
3299 + .00000, .00006, .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 + .05749, .01407, .00228, .00016, .00001,
3302 + .00000, .00006, .00007,
3303 + .05429, .01324, .00208, .00015, .00001,
3304 + .00000, .00005, .00006,
3305 + .05145, .01251, .00192, .00014, .00001,
3306 + .00000, .00005, .00005,
3307 + .04892, .01186, .00178, .00013, .00001,
3308 + .00000, .00005, .00005,
3309 + .04654, .01125, .00165, .00012, .00001,
3310 + .00000, .00005, .00006,
3311 + .04429, .01068, .00153, .00011, .00001,
3312 + .00000, .00005, .00005,
3313 + .04227, .01017, .00143, .00011, .00001,
3314 + .00000, .00004, .00005,
3315 + .04045, .00971, .00134, .00011, .00001,
3316 + .00000, .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 + .03870, .00927, .00126, .00011, .00001,
3319 + .00000, .00004, .00004,
3320 + .03707, .00886, .00118, .00010, .00001,
3321 + .00000, .00004, .00004,
3322 + .03558, .00848, .00112, .00009, .00001,
3323 + .00000, .00004, .00004,
3324 + .03423, .00814, .00106, .00009, .00001,
3325 + .00000, .00003, .00004,
3326 + .03291, .00781, .00100, .00008, .00001,
3327 + .00000, .00003, .00003 /
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 + .22693, .05913, .03870, .00062, .00000,
3330 + .00000, .00028, .00033,
3331 + .21215, .05500, .03302, .00058, .00000,
3332 + .00000, .00025, .00029,
3333 + .19239, .04949, .02623, .00051, .00000,
3334 + .00000, .00022, .00027,
3335 + .17935, .04592, .02224, .00048, .00000,
3336 + .00000, .00020, .00024,
3337 + .16678, .04246, .01879, .00044, .00000,
3338 + .00000, .00019, .00022,
3339 + .15679, .03975, .01631, .00038, .00000,
3340 + .00000, .00018, .00020,
3341 + .14785, .03733, .01429, .00035, .00000,
3342 + .00000, .00016, .00018,
3343 + .13901, .03495, .01247, .00033, .00000,
3344 + .00000, .00015, .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 + .13184, .03303, .01111, .00031, .00000,
3347 + .00000, .00014, .00016,
3348 + .12532, .03129, .00996, .00029, .00000,
3349 + .00000, .00013, .00016,
3350 + .12042, .02999, .00915, .00028, .00000,
3351 + .00000, .00013, .00015,
3352 + .11073, .02742, .00767, .00025, .00000,
3353 + .00000, .00011, .00014,
3354 + .10309, .02541, .00660, .00022, .00000,
3355 + .00000, .00010, .00013,
3356 + .09524, .02336, .00562, .00021, .00000,
3357 + .00000, .00010, .00011,
3358 + .08779, .02143, .00479, .00020, .00000,
3359 + .00000, .00009, .00009,
3360 + .08162, .01983, .00416, .00019, .00000,
3361 + .00000, .00008, .00008 /
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 + .07589, .01836, .00363, .00017, .00000,
3364 + .00000, .00008, .00008,
3365 + .07150, .01723, .00325, .00015, .00000,
3366 + .00000, .00007, .00008,
3367 + .06654, .01597, .00286, .00014, .00000,
3368 + .00000, .00006, .00007,
3369 + .06248, .01494, .00257, .00013, .00000,
3370 + .00000, .00006, .00006,
3371 + .05902, .01407, .00233, .00011, .00000,
3372 + .00000, .00005, .00006,
3373 + .05492, .01304, .00206, .00010, .00000,
3374 + .00000, .00005, .00006,
3375 + .05135, .01215, .00185, .00010, .00000,
3376 + .00000, .00005, .00005,
3377 + .04825, .01138, .00168, .00010, .00000,
3378 + .00000, .00004, .00005 /
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 + .04538, .01066, .00152, .00008, .00000,
3381 + .00000, .00004, .00005,
3382 + .04274, .01001, .00139, .00007, .00000,
3383 + .00000, .00004, .00004,
3384 + .04040, .00943, .00128, .00006, .00000,
3385 + .00000, .00003, .00004,
3386 + .03831, .00892, .00118, .00006, .00000,
3387 + .00000, .00003, .00004,
3388 + .03634, .00844, .00109, .00006, .00000,
3389 + .00000, .00003, .00003,
3390 + .03451, .00799, .00102, .00006, .00000,
3391 + .00000, .00003, .00003,
3392 + .03287, .00760, .00095, .00006, .00000,
3393 + .00000, .00003, .00002,
3394 + .03139, .00724, .00089, .00006, .00000,
3395 + .00000, .00003, .00002 /
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 + .02997, .00689, .00083, .00006, .00000,
3398 + .00000, .00003, .00002,
3399 + .02865, .00657, .00078, .00005, .00000,
3400 + .00000, .00003, .00002,
3401 + .02744, .00628, .00074, .00005, .00000,
3402 + .00000, .00002, .00002,
3403 + .02635, .00602, .00070, .00004, .00000,
3404 + .00000, .00002, .00002,
3405 + .02529, .00577, .00066, .00004, .00000,
3406 + .00000, .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 + .15792, .03780, .01908, .00027, .00000,
3409 + .00000, .00010, .00011,
3410 + .14657, .03489, .01603, .00023, .00000,
3411 + .00000, .00008, .00010,
3412 + .13150, .03107, .01248, .00019, .00000,
3413 + .00000, .00007, .00008,
3414 + .12168, .02860, .01044, .00017, .00000,
3415 + .00000, .00007, .00008,
3416 + .11226, .02626, .00871, .00015, .00000,
3417 + .00000, .00006, .00007,
3418 + .10481, .02442, .00749, .00014, .00000,
3419 + .00000, .00006, .00007,
3420 + .09822, .02278, .00651, .00013, .00000,
3421 + .00000, .00005, .00007,
3422 + .09176, .02119, .00563, .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 + .08655, .01992, .00498, .00010, .00000,
3426 + .00000, .00005, .00005,
3427 + .08184, .01878, .00444, .00010, .00000,
3428 + .00000, .00004, .00005,
3429 + .07832, .01792, .00406, .00010, .00000,
3430 + .00000, .00004, .00005,
3431 + .07139, .01624, .00338, .00008, .00000,
3432 + .00000, .00004, .00005,
3433 + .06596, .01494, .00289, .00008, .00000,
3434 + .00000, .00003, .00004,
3435 + .06046, .01363, .00245, .00007, .00000,
3436 + .00000, .00003, .00003,
3437 + .05528, .01240, .00207, .00006, .00000,
3438 + .00000, .00003, .00003,
3439 + .05101, .01139, .00180, .00006, .00000,
3440 + .00000, .00002, .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 + .04710, .01047, .00156, .00006, .00000,
3443 + .00000, .00002, .00003,
3444 + .04410, .00977, .00140, .00005, .00000,
3445 + .00000, .00002, .00003,
3446 + .04076, .00899, .00122, .00005, .00000,
3447 + .00000, .00002, .00002,
3448 + .03804, .00836, .00110, .00004, .00000,
3449 + .00000, .00002, .00002,
3450 + .03573, .00783, .00099, .00003, .00000,
3451 + .00000, .00002, .00002,
3452 + .03301, .00721, .00088, .00004, .00000,
3453 + .00000, .00002, .00002,
3454 + .03067, .00667, .00079, .00004, .00000,
3455 + .00000, .00001, .00001,
3456 + .02866, .00621, .00071, .00002, .00000,
3457 + .00000, .00001, .00001 /
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 + .02678, .00578, .00064, .00002, .00000,
3460 + .00000, .00001, .00001,
3461 + .02508, .00540, .00059, .00002, .00000,
3462 + .00000, .00001, .00001,
3463 + .02358, .00506, .00054, .00002, .00000,
3464 + .00000, .00001, .00001,
3465 + .02226, .00476, .00050, .00002, .00000,
3466 + .00000, .00001, .00001,
3467 + .02101, .00448, .00046, .00001, .00000,
3468 + .00000, .00001, .00001,
3469 + .01986, .00423, .00042, .00002, .00000,
3470 + .00000, .00001, .00001,
3471 + .01883, .00400, .00040, .00002, .00000,
3472 + .00000, .00001, .00001,
3473 + .01790, .00379, .00037, .00001, .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 + .01703, .00360, .00035, .00001, .00000,
3477 + .00000, .00001, .00001,
3478 + .01620, .00342, .00033, .00001, .00000,
3479 + .00000, .00001, .00001,
3480 + .01546, .00325, .00031, .00001, .00000,
3481 + .00000, .00001, .00001,
3482 + .01478, .00311, .00029, .00001, .00000,
3483 + .00000, .00001, .00001,
3484 + .01414, .00296, .00027, .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 + .10171, .02214, .00812, .00007, .00000,
3488 + .00000, .00002, .00003,
3489 + .09361, .02028, .00674, .00008, .00000,
3490 + .00000, .00002, .00003,
3491 + .08300, .01787, .00516, .00007, .00000,
3492 + .00000, .00002, .00001,
3493 + .07619, .01631, .00427, .00006, .00000,
3494 + .00000, .00002, .00001,
3495 + .06968, .01485, .00353, .00005, .00000,
3496 + .00000, .00001, .00002,
3497 + .06460, .01370, .00301, .00005, .00000,
3498 + .00000, .00001, .00001,
3499 + .06014, .01271, .00260, .00004, .00000,
3500 + .00000, .00001, .00001,
3501 + .05579, .01174, .00224, .00003, .00000,
3502 + .00000, .00001, .00001 /
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 + .05230, .01097, .00197, .00003, .00000,
3505 + .00000, .00001, .00001,
3506 + .04917, .01027, .00175, .00003, .00000,
3507 + .00000, .00001, .00001,
3508 + .04684, .00976, .00160, .00003, .00000,
3509 + .00000, .00001, .00001,
3510 + .04230, .00877, .00132, .00002, .00000,
3511 + .00000, .00001, .00001,
3512 + .03878, .00801, .00113, .00002, .00000,
3513 + .00000, .00001, .00001,
3514 + .03523, .00724, .00095, .00002, .00000,
3515 + .00000, .00001, .00001,
3516 + .03192, .00653, .00080, .00002, .00000,
3517 + .00000, .00001, .00001,
3518 + .02923, .00595, .00070, .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 + .02677, .00543, .00060, .00001, .00000,
3522 + .00000, .00000, .00001,
3523 + .02491, .00503, .00054, .00002, .00000,
3524 + .00000, .00000, .00001,
3525 + .02284, .00460, .00047, .00001, .00000,
3526 + .00000, .00000, .00001,
3527 + .02117, .00425, .00042, .00001, .00000,
3528 + .00000, .00000, .00001,
3529 + .01976, .00395, .00038, .00001, .00000,
3530 + .00000, .00000, .00000,
3531 + .01813, .00361, .00034, .00001, .00000,
3532 + .00000, .00000, .00000,
3533 + .01672, .00332, .00030, .00001, .00000,
3534 + .00000, .00000, .00000,
3535 + .01552, .00307, .00027, .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 + .01441, .00284, .00025, .00001, .00000,
3539 + .00000, .00000, .00000,
3540 + .01342, .00264, .00022, .00001, .00000,
3541 + .00000, .00000, .00000,
3542 + .01254, .00246, .00020, .00001, .00000,
3543 + .00000, .00000, .00000,
3544 + .01177, .00230, .00019, .00001, .00000,
3545 + .00000, .00000, .00000,
3546 + .01105, .00215, .00017, .00001, .00000,
3547 + .00000, .00000, .00000,
3548 + .01039, .00202, .00016, .00001, .00000,
3549 + .00000, .00000, .00000,
3550 + .00980, .00190, .00015, .00000, .00000,
3551 + .00000, .00000, .00000,
3552 + .00928, .00180, .00014, .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, .00170, .00013, .00000, .00000,
3556 + .00000, .00000, .00000,
3557 + .00832, .00160, .00012, .00000, .00000,
3558 + .00000, .00000, .00000,
3559 + .00791, .00152, .00011, .00000, .00000,
3560 + .00000, .00000, .00000,
3561 + .00753, .00144, .00011, .00000, .00000,
3562 + .00000, .00000, .00000,
3563 + .00717, .00137, .00010, .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 + .05910, .01157, .00285, .00002, .00000,
3567 + .00000, .00000, .00001,
3568 + .05391, .01051, .00234, .00002, .00000,
3569 + .00000, .00000, .00000,
3570 + .04718, .00913, .00177, .00002, .00000,
3571 + .00000, .00000, .00001,
3572 + .04291, .00826, .00146, .00002, .00000,
3573 + .00000, .00000, .00000,
3574 + .03887, .00745, .00120, .00002, .00000,
3575 + .00000, .00000, .00000,
3576 + .03575, .00682, .00102, .00001, .00000,
3577 + .00000, .00000, .00000,
3578 + .03303, .00628, .00088, .00001, .00000,
3579 + .00000, .00000, .00000,
3580 + .03040, .00576, .00075, .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 + .02830, .00534, .00066, .00001, .00000,
3584 + .00000, .00000, .00000,
3585 + .02643, .00497, .00059, .00001, .00000,
3586 + .00000, .00000, .00000,
3587 + .02506, .00470, .00054, .00001, .00000,
3588 + .00000, .00000, .00000,
3589 + .02239, .00418, .00044, .00001, .00000,
3590 + .00000, .00000, .00000,
3591 + .02034, .00378, .00038, .00001, .00000,
3592 + .00000, .00000, .00000,
3593 + .01830, .00338, .00032, .00001, .00000,
3594 + .00000, .00000, .00000,
3595 + .01642, .00302, .00027, .00001, .00000,
3596 + .00000, .00000, .00000,
3597 + .01490, .00273, .00023, .00001, .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 + .01352, .00247, .00020, .00001, .00000,
3601 + .00000, .00000, .00000,
3602 + .01249, .00227, .00018, .00001, .00000,
3603 + .00000, .00000, .00000,
3604 + .01136, .00206, .00016, .00000, .00000,
3605 + .00000, .00000, .00000,
3606 + .01045, .00189, .00014, .00000, .00000,
3607 + .00000, .00000, .00000,
3608 + .00969, .00174, .00013, .00000, .00000,
3609 + .00000, .00000, .00000,
3610 + .00881, .00158, .00011, .00000, .00000,
3611 + .00000, .00000, .00000,
3612 + .00807, .00144, .00010, .00000, .00000,
3613 + .00000, .00000, .00000,
3614 + .00743, .00132, .00009, .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 + .00685, .00122, .00008, .00000, .00000,
3618 + .00000, .00000, .00000,
3619 + .00633, .00112, .00007, .00000, .00000,
3620 + .00000, .00000, .00000,
3621 + .00588, .00104, .00007, .00000, .00000,
3622 + .00000, .00000, .00000,
3623 + .00548, .00097, .00006, .00000, .00000,
3624 + .00000, .00000, .00000,
3625 + .00512, .00090, .00006, .00000, .00000,
3626 + .00000, .00000, .00000,
3627 + .00478, .00084, .00005, .00000, .00000,
3628 + .00000, .00000, .00000,
3629 + .00449, .00078, .00005, .00000, .00000,
3630 + .00000, .00000, .00000,
3631 + .00423, .00074, .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 + .00398, .00069, .00004, .00000, .00000,
3635 + .00000, .00000, .00000,
3636 + .00375, .00065, .00004, .00000, .00000,
3637 + .00000, .00000, .00000,
3638 + .00355, .00061, .00004, .00000, .00000,
3639 + .00000, .00000, .00000,
3640 + .00336, .00058, .00004, .00000, .00000,
3641 + .00000, .00000, .00000,
3642 + .00319, .00055, .00003, .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 + .02959, .00510, .00076, .00000, .00000,
3646 + .00000, .00000, .00000,
3647 + .02671, .00459, .00062, .00000, .00000,
3648 + .00000, .00000, .00000,
3649 + .02303, .00393, .00047, .00000, .00000,
3650 + .00000, .00000, .00000,
3651 + .02072, .00352, .00039, .00000, .00000,
3652 + .00000, .00000, .00000,
3653 + .01857, .00314, .00032, .00000, .00000,
3654 + .00000, .00000, .00000,
3655 + .01691, .00285, .00027, .00000, .00000,
3656 + .00000, .00000, .00000,
3657 + .01549, .00260, .00024, .00000, .00000,
3658 + .00000, .00000, .00000,
3659 + .01412, .00236, .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 + .01305, .00217, .00018, .00000, .00000,
3663 + .00000, .00000, .00000,
3664 + .01209, .00201, .00016, .00000, .00000,
3665 + .00000, .00000, .00000,
3666 + .01140, .00189, .00015, .00000, .00000,
3667 + .00000, .00000, .00000,
3668 + .01006, .00166, .00012, .00000, .00000,
3669 + .00000, .00000, .00000,
3670 + .00904, .00148, .00010, .00000, .00000,
3671 + .00000, .00000, .00000,
3672 + .00804, .00131, .00009, .00000, .00000,
3673 + .00000, .00000, .00000,
3674 + .00713, .00116, .00007, .00000, .00000,
3675 + .00000, .00000, .00000,
3676 + .00640, .00104, .00006, .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 + .00575, .00093, .00006, .00000, .00000,
3680 + .00000, .00000, .00000,
3681 + .00527, .00085, .00005, .00000, .00000,
3682 + .00000, .00000, .00000,
3683 + .00474, .00076, .00004, .00000, .00000,
3684 + .00000, .00000, .00000,
3685 + .00433, .00069, .00004, .00000, .00000,
3686 + .00000, .00000, .00000,
3687 + .00398, .00063, .00004, .00000, .00000,
3688 + .00000, .00000, .00000,
3689 + .00358, .00057, .00003, .00000, .00000,
3690 + .00000, .00000, .00000,
3691 + .00325, .00051, .00003, .00000, .00000,
3692 + .00000, .00000, .00000,
3693 + .00297, .00047, .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 + .00271, .00043, .00002, .00000, .00000,
3697 + .00000, .00000, .00000,
3698 + .00249, .00039, .00002, .00000, .00000,
3699 + .00000, .00000, .00000,
3700 + .00229, .00036, .00002, .00000, .00000,
3701 + .00000, .00000, .00000,
3702 + .00212, .00033, .00002, .00000, .00000,
3703 + .00000, .00000, .00000,
3704 + .00196, .00031, .00002, .00000, .00000,
3705 + .00000, .00000, .00000,
3706 + .00182, .00028, .00001, .00000, .00000,
3707 + .00000, .00000, .00000,
3708 + .00170, .00026, .00001, .00000, .00000,
3709 + .00000, .00000, .00000,
3710 + .00159, .00025, .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 + .00149, .00023, .00001, .00000, .00000,
3714 + .00000, .00000, .00000,
3715 + .00139, .00021, .00001, .00000, .00000,
3716 + .00000, .00000, .00000,
3717 + .00131, .00020, .00001, .00000, .00000,
3718 + .00000, .00000, .00000,
3719 + .00124, .00019, .00001, .00000, .00000,
3720 + .00000, .00000, .00000,
3721 + .00117, .00018, .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 + .00314, .00038, .00001, .00000, .00000,
3725 + .00000, .00000, .00000,
3726 + .00275, .00033, .00001, .00000, .00000,
3727 + .00000, .00000, .00000,
3728 + .00227, .00027, .00001, .00000, .00000,
3729 + .00000, .00000, .00000,
3730 + .00198, .00023, .00001, .00000, .00000,
3731 + .00000, .00000, .00000,
3732 + .00172, .00020, .00001, .00000, .00000,
3733 + .00000, .00000, .00000,
3734 + .00152, .00018, .00001, .00000, .00000,
3735 + .00000, .00000, .00000,
3736 + .00136, .00016, .00001, .00000, .00000,
3737 + .00000, .00000, .00000,
3738 + .00121, .00014, .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 + .00109, .00013, .00001, .00000, .00000,
3742 + .00000, .00000, .00000,
3743 + .00099, .00011, .00000, .00000, .00000,
3744 + .00000, .00000, .00000,
3745 + .00092, .00011, .00000, .00000, .00000,
3746 + .00000, .00000, .00000,
3747 + .00078, .00009, .00000, .00000, .00000,
3748 + .00000, .00000, .00000,
3749 + .00068, .00008, .00000, .00000, .00000,
3750 + .00000, .00000, .00000,
3751 + .00058, .00007, .00000, .00000, .00000,
3752 + .00000, .00000, .00000,
3753 + .00050, .00006, .00000, .00000, .00000,
3754 + .00000, .00000, .00000,
3755 + .00044, .00005, .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 + .00038, .00004, .00000, .00000, .00000,
3759 + .00000, .00000, .00000,
3760 + .00034, .00004, .00000, .00000, .00000,
3761 + .00000, .00000, .00000,
3762 + .00030, .00003, .00000, .00000, .00000,
3763 + .00000, .00000, .00000,
3764 + .00026, .00003, .00000, .00000, .00000,
3765 + .00000, .00000, .00000,
3766 + .00024, .00003, .00000, .00000, .00000,
3767 + .00000, .00000, .00000,
3768 + .00021, .00002, .00000, .00000, .00000,
3769 + .00000, .00000, .00000,
3770 + .00018, .00002, .00000, .00000, .00000,
3771 + .00000, .00000, .00000,
3772 + .00016, .00002, .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 + .00015, .00002, .00000, .00000, .00000,
3776 + .00000, .00000, .00000,
3777 + .00013, .00002, .00000, .00000, .00000,
3778 + .00000, .00000, .00000,
3779 + .00012, .00001, .00000, .00000, .00000,
3780 + .00000, .00000, .00000,
3781 + .00011, .00001, .00000, .00000, .00000,
3782 + .00000, .00000, .00000,
3783 + .00010, .00001, .00000, .00000, .00000,
3784 + .00000, .00000, .00000,
3785 + .00009, .00001, .00000, .00000, .00000,
3786 + .00000, .00000, .00000,
3787 + .00008, .00001, .00000, .00000, .00000,
3788 + .00000, .00000, .00000,
3789 + .00007, .00001, .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, .00001, .00000, .00000, .00000,
3793 + .00000, .00000, .00000,
3794 + .00006, .00001, .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='ft08a.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