2 subroutine sfmrsc3(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 + .00258, .00689, 1.14806, .85861, .00000,
12 + .00000, .45800, .86391,
13 + .00277, .00697, 2.42849, .89638, .01185,
14 + .00000, .50017, .90214,
15 + .00304, .00710, 4.96211, .97683, .09806,
16 + .00000, .58693, .98325,
17 + .00325, .00720, 7.41708, 1.05385, .17636,
18 + .00000, .66842, 1.06073,
19 + .00346, .00730, 10.55312, 1.15475, .27666,
20 + .00000, .77390, 1.16211,
21 + .00365, .00738, 13.76159, 1.25869, .37864,
22 + .00000, .88168, 1.26644,
23 + .00383, .00747, 17.37161, 1.37239, .49342,
24 + .00000, .99898, 1.38050,
25 + .00402, .00756, 21.81108, 1.50921, .63369,
26 + .00000, 1.13954, 1.51770 /
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 + .00419, .00764, 26.12737, 1.64364, .76808,
29 + .00000, 1.27715, 1.65245,
30 + .00435, .00771, 30.75916, 1.78670, .91133,
31 + .00000, 1.42324, 1.79581,
32 + .00448, .00778, 34.81681, 1.90947, 1.03633,
33 + .00000, 1.54835, 1.91880,
34 + .00476, .00791, 44.32189, 2.20200, 1.32967,
35 + .02787, 1.84579, 2.21180,
36 + .00500, .00802, 53.50489, 2.48779, 1.61375,
37 + .43733, 2.13570, 2.49798,
38 + .00527, .00815, 65.12843, 2.84747, 1.97154,
39 + .92081, 2.49987, 2.85808,
40 + .00556, .00829, 78.79559, 3.26815, 2.38932,
41 + 1.40475, 2.92512, 3.27918,
42 + .00582, .00842, 92.61547, 3.69260, 2.81055,
43 + 1.87731, 3.35359, 3.70398 /
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 + .00609, .00855, 107.98018, 4.16443, 3.27920,
46 + 2.38844, 3.82939, 4.17615,
47 + .00631, .00866, 121.76965, 4.58990, 3.70076,
48 + 2.83574, 4.25808, 4.60189,
49 + .00659, .00879, 139.74814, 5.14769, 4.25285,
50 + 3.41330, 4.81970, 5.15999,
51 + .00683, .00891, 156.92575, 5.68184, 4.78295,
52 + 3.96611, 5.35716, 5.69441,
53 + .00705, .00902, 173.74388, 6.20658, 5.30457,
54 + 4.50763, 5.88488, 6.21939,
55 + .00734, .00916, 196.26759, 6.91735, 6.00896,
56 + 5.23028, 6.59935, 6.93043,
57 + .00761, .00929, 218.92592, 7.63631, 6.72304,
58 + 5.96296, 7.32172, 7.64965,
59 + .00787, .00942, 241.55801, 8.35747, 7.44128,
60 + 6.70091, 8.04601, 8.37103 /
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 + .00813, .00954, 265.05768, 9.11715, 8.19520,
63 + 7.46866, 8.80875, 9.13092,
64 + .00839, .00967, 289.35907, 9.90649, 8.98064,
65 + 8.27069, 9.60104, 9.92046,
66 + .00863, .00979, 313.45605, 10.69498, 9.76585,
67 + 9.07211, 10.39226, 10.70912,
68 + .00886, .00991, 336.88663, 11.47034, 10.53702,
69 + 9.85665, 11.17016, 11.48465,
70 + .00910, .01002, 361.59863, 12.29091, 11.35535,
71 + 10.69154, 11.99324, 12.30538,
72 + .00933, .01014, 386.39938, 13.12581, 12.18600,
73 + 11.53506, 12.83056, 13.14042,
74 + .00955, .01025, 411.12766, 13.96017, 13.01861,
75 + 12.38349, 13.66719, 13.97491,
76 + .00976, .01035, 434.83429, 14.77101, 13.82584,
77 + 13.20258, 14.48015, 14.78587 /
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 + .00998, .01046, 459.72943, 15.62518, 14.67805,
80 + 14.06937, 15.33643, 15.64015,
81 + .01019, .01057, 484.74979, 16.49272, 15.54287,
82 + 14.94731, 16.20602, 16.50780,
83 + .01040, .01067, 509.28992, 17.34928, 16.39721,
84 + 15.81470, 17.06452, 17.36445,
85 + .01059, .01077, 533.25323, 18.19009, 17.23674,
86 + 16.66779, 17.90714, 18.20536,
87 + .01079, .01087, 557.67255, 19.05720, 18.10114,
88 + 17.54373, 18.77607, 19.07255 /
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 + .00427, .00843, 1.06935, .73999, .00000,
91 + .00000, .39431, .74414,
92 + .00452, .00855, 2.22558, .77429, .01062,
93 + .00000, .43216, .77873,
94 + .00489, .00873, 4.46074, .84480, .08677,
95 + .00000, .50776, .84966,
96 + .00517, .00887, 6.58048, .91088, .15428,
97 + .00000, .57743, .91603,
98 + .00547, .00901, 9.23991, .99604, .23941,
99 + .00000, .66627, 1.00149,
100 + .00572, .00914, 11.91834, 1.08267, .32478,
101 + .00000, .75598, 1.08837,
102 + .00597, .00926, 14.89336, 1.17661, .41984,
103 + .00000, .85280, 1.18254,
104 + .00623, .00939, 18.50627, 1.28870, .53481,
105 + .00000, .96788, 1.29487 /
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 + .00646, .00950, 21.97669, 1.39785, .64387,
108 + .00000, 1.07958, 1.40423,
109 + .00668, .00961, 25.66308, 1.51321, .75920,
110 + .00000, 1.19733, 1.51977,
111 + .00685, .00970, 28.86595, 1.61165, .85918,
112 + .00000, 1.29765, 1.61836,
113 + .00723, .00988, 36.27455, 1.84419, 1.09159,
114 + .02278, 1.53409, 1.85120,
115 + .00756, .01004, 43.32248, 2.06903, 1.31421,
116 + .34461, 1.76221, 2.07629,
117 + .00793, .01022, 52.12724, 2.34931, 1.59176,
118 + .72130, 2.04606, 2.35684,
119 + .00832, .01041, 62.34169, 2.67382, 1.91247,
120 + 1.09285, 2.37418, 2.68162,
121 + .00867, .01059, 72.54090, 2.99811, 2.23269,
122 + 1.45170, 2.70166, 3.00614 /
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 + .00903, .01077, 83.75018, 3.35544, 2.58580,
125 + 1.83600, 3.06213, 3.36369,
126 + .00933, .01091, 93.70589, 3.67508, 2.90087,
127 + 2.16933, 3.38432, 3.68351,
128 + .00970, .01109, 106.55493, 4.09084, 3.31026,
129 + 2.59618, 3.80310, 4.09948,
130 + .01003, .01126, 118.71117, 4.48591, 3.70035,
131 + 3.00161, 4.20079, 4.49472,
132 + .01033, .01140, 130.51088, 4.87138, 4.08164,
133 + 3.39608, 4.58861, 4.88035,
134 + .01071, .01160, 146.16129, 5.38957, 4.59264,
135 + 3.91834, 5.10972, 5.39873,
136 + .01108, .01178, 161.75487, 5.90973, 5.10680,
137 + 4.44396, 5.63256, 5.91905,
138 + .01142, .01195, 177.19695, 6.42785, 5.62047,
139 + 4.96989, 6.15315, 6.43733 /
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 + .01177, .01212, 193.08632, 6.96979, 6.15584,
142 + 5.51299, 6.69750, 6.97941,
143 + .01211, .01229, 209.39034, 7.52934, 6.71017,
144 + 6.07703, 7.25937, 7.53909,
145 + .01244, .01245, 225.43550, 8.08486, 7.26103,
146 + 6.63731, 7.81705, 8.09474,
147 + .01275, .01260, 240.92027, 8.62790, 7.79885,
148 + 7.18250, 8.36208, 8.63789,
149 + .01306, .01276, 257.15128, 9.19964, 8.36674,
150 + 7.75999, 8.93580, 9.20974,
151 + .01337, .01291, 273.32095, 9.77802, 8.93985,
152 + 8.33993, 9.51609, 9.78822,
153 + .01366, .01306, 289.35507, 10.35332, 9.51178,
154 + 8.92088, 10.09318, 10.36362,
155 + .01394, .01320, 304.62338, 10.90949, 10.06333,
156 + 9.47863, 10.65102, 10.91988 /
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 + .01423, .01334, 320.57779, 11.49290, 10.64328,
159 + 10.06665, 11.23609, 11.50337,
160 + .01451, .01348, 336.51559, 12.08263, 11.22901,
161 + 10.65936, 11.82744, 12.09318,
162 + .01478, .01362, 352.06702, 12.66242, 11.80526,
163 + 11.24258, 12.40876, 12.67304,
164 + .01504, .01375, 367.18179, 13.22932, 12.36937,
165 + 11.81410, 12.97709, 13.24001,
166 + .01531, .01388, 382.49710, 13.81141, 12.94763,
167 + 12.39822, 13.56060, 13.82216 /
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 + .00670, .01031, .99732, .63735, .00000,
170 + .00000, .33949, .64069,
171 + .00705, .01049, 2.04110, .66840, .00952,
172 + .00000, .37342, .67191,
173 + .00757, .01075, 4.01147, .73015, .07678,
174 + .00000, .43927, .73390,
175 + .00795, .01094, 5.83946, .78681, .13496,
176 + .00000, .49882, .79073,
177 + .00835, .01114, 8.09089, .85861, .20716,
178 + .00000, .57358, .86271,
179 + .00870, .01132, 10.32220, .93070, .27854,
180 + .00000, .64814, .93495,
181 + .00904, .01149, 12.76816, 1.00816, .35717,
182 + .00000, .72791, 1.01255,
183 + .00940, .01167, 15.70073, 1.09979, .45127,
184 + .00000, .82192, 1.10431 /
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 + .00971, .01182, 18.48290, 1.18819, .53964,
187 + .00000, .91236, 1.19283,
188 + .01001, .01197, 21.40765, 1.28092, .63232,
189 + .00000, 1.00701, 1.28568,
190 + .01025, .01209, 23.92749, 1.35961, .71214,
191 + .00000, 1.08719, 1.36446,
192 + .01077, .01235, 29.68100, 1.54384, .89591,
193 + .01861, 1.27452, 1.54886,
194 + .01121, .01257, 35.06790, 1.72007, 1.06996,
195 + .27143, 1.45336, 1.72525,
196 + .01172, .01282, 41.70796, 1.93761, 1.28475,
197 + .56476, 1.67373, 1.94295,
198 + .01224, .01308, 49.30594, 2.18687, 1.53029,
199 + .84979, 1.92585, 2.19237,
200 + .01272, .01332, 56.79535, 2.43354, 1.77302,
201 + 1.12201, 2.17504, 2.43918 /
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 + .01321, .01357, 64.92997, 2.70291, 2.03826,
204 + 1.41060, 2.44689, 2.70869,
205 + .01362, .01377, 72.07808, 2.94189, 2.27299,
206 + 1.65864, 2.68788, 2.94778,
207 + .01411, .01401, 81.20795, 3.25025, 2.57554,
208 + 1.97359, 2.99862, 3.25627,
209 + .01455, .01423, 89.75897, 3.54097, 2.86160,
210 + 2.27039, 3.29140, 3.54710,
211 + .01496, .01443, 97.98599, 3.82266, 3.13929,
212 + 2.55715, 3.57494, 3.82889,
213 + .01548, .01469, 108.78947, 4.19843, 3.50858,
214 + 2.93375, 3.95301, 4.20478,
215 + .01597, .01493, 119.44830, 4.57269, 3.87732,
216 + 3.30992, 4.32938, 4.57915,
217 + .01643, .01516, 129.91092, 4.94287, 4.24319,
218 + 3.68378, 4.70149, 4.94943 /
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 + .01689, .01539, 140.57541, 5.32726, 4.62172,
221 + 4.06690, 5.08778, 5.33392,
222 + .01735, .01562, 151.43144, 5.72159, 5.01122,
223 + 4.46238, 5.48393, 5.72834,
224 + .01779, .01584, 162.03230, 6.11065, 5.39593,
225 + 4.85287, 5.87469, 6.11749,
226 + .01820, .01604, 172.18329, 6.48867, 5.76924,
227 + 5.23047, 6.25427, 6.49558,
228 + .01861, .01625, 182.75668, 6.88459, 6.16146,
229 + 5.62856, 6.65174, 6.89157,
230 + .01902, .01645, 193.20845, 7.28274, 6.55491,
231 + 6.02583, 7.05139, 7.28980,
232 + .01942, .01664, 203.51527, 7.67690, 6.94580,
233 + 6.42215, 7.44696, 7.68403,
234 + .01979, .01683, 213.26010, 8.05591, 7.32069,
235 + 6.80045, 7.82727, 8.06309 /
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 + .02017, .01702, 223.39165, 8.45177, 7.71329,
238 + 7.19778, 8.22444, 8.45902,
239 + .02055, .01720, 233.44849, 8.84998, 8.10785,
240 + 7.59625, 8.62391, 8.85728,
241 + .02091, .01738, 243.20926, 9.23978, 8.49439,
242 + 7.98672, 9.01491, 9.24714,
243 + .02125, .01755, 252.65016, 9.61939, 8.87132,
244 + 8.36794, 9.39565, 9.62681,
245 + .02160, .01772, 262.15836, 10.00741, 9.25593,
246 + 8.75569, 9.78479, 10.01487 /
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 + .00859, .01161, .95848, .58382, .00000,
249 + .00000, .31105, .58685,
250 + .00901, .01183, 1.94154, .61307, .00893,
251 + .00000, .34284, .61622,
252 + .00964, .01215, 3.77108, .67017, .07147,
253 + .00000, .40358, .67350,
254 + .01010, .01238, 5.44625, .72192, .12480,
255 + .00000, .45789, .72537,
256 + .01059, .01262, 7.48678, .78686, .19033,
257 + .00000, .52543, .79044,
258 + .01101, .01284, 9.48971, .85155, .25459,
259 + .00000, .59230, .85523,
260 + .01142, .01304, 11.66813, .92068, .32490,
261 + .00000, .66346, .92445,
262 + .01185, .01326, 14.26002, 1.00200, .40853,
263 + .00000, .74689, 1.00588 /
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 + .01222, .01344, 16.70078, 1.08003, .48660,
266 + .00000, .82670, 1.08399,
267 + .01259, .01363, 19.25074, 1.16152, .56807,
268 + .00000, .90987, 1.16556,
269 + .01288, .01377, 21.43669, 1.23043, .63797,
270 + .00000, .98009, 1.23454,
271 + .01349, .01408, 26.38913, 1.39089, .79796,
272 + .01653, 1.14328, 1.39513,
273 + .01403, .01435, 30.98164, 1.54341, .94849,
274 + .23597, 1.29807, 1.54776,
275 + .01463, .01465, 36.59739, 1.73057, 1.13310,
276 + .48926, 1.48771, 1.73503,
277 + .01526, .01496, 42.97072, 1.94369, 1.34281,
278 + .73322, 1.70332, 1.94827,
279 + .01583, .01525, 49.20474, 2.15337, 1.54889,
280 + .96465, 1.91521, 2.15806 /
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 + .01642, .01554, 55.92823, 2.38111, 1.77288,
283 + 1.20852, 2.14512, 2.38591,
284 + .01690, .01578, 61.79861, 2.58218, 1.97012,
285 + 1.41698, 2.34794, 2.58706,
286 + .01749, .01607, 69.24979, 2.84038, 2.22313,
287 + 1.68035, 2.60821, 2.84536,
288 + .01802, .01633, 76.18650, 3.08267, 2.46125,
289 + 1.92737, 2.85230, 3.08773,
290 + .01850, .01657, 82.82520, 3.31647, 2.69146,
291 + 2.16505, 3.08771, 3.32161,
292 + .01912, .01688, 91.49043, 3.62691, 2.99619,
293 + 2.47567, 3.40016, 3.63215,
294 + .01970, .01717, 99.98937, 3.93469, 3.29908,
295 + 2.78452, 3.70976, 3.94001,
296 + .02025, .01744, 108.28806, 4.23783, 3.59839,
297 + 3.09026, 4.01459, 4.24324 /
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 + .02080, .01771, 116.69842, 4.55125, 3.90669,
300 + 3.40211, 4.32966, 4.55673,
301 + .02134, .01798, 125.21895, 4.87154, 4.22275,
302 + 3.72288, 4.65153, 4.87709,
303 + .02186, .01823, 133.50034, 5.18639, 4.53378,
304 + 4.03844, 4.96785, 5.19201,
305 + .02235, .01848, 141.39267, 5.49119, 4.83451,
306 + 4.34245, 5.27401, 5.49687,
307 + .02284, .01872, 149.58260, 5.80943, 5.14952,
308 + 4.66205, 5.59360, 5.81518,
309 + .02332, .01896, 157.63989, 6.12833, 5.46438,
310 + 4.97978, 5.91380, 6.13414,
311 + .02379, .01919, 165.55927, 6.44316, 5.77636,
312 + 5.29598, 6.22985, 6.44902,
313 + .02423, .01941, 173.01379, 6.74489, 6.07457,
314 + 5.59674, 6.53272, 6.75081 /
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 + .02468, .01963, 180.74088, 7.05926, 6.38613,
317 + 5.91192, 6.84822, 7.06523,
318 + .02512, .01985, 188.38113, 7.37455, 6.69831,
319 + 6.22704, 7.16460, 7.38057,
320 + .02554, .02005, 195.77267, 7.68238, 7.00337,
321 + 6.53507, 7.47348, 7.68845,
322 + .02595, .02025, 202.90105, 7.98147, 7.30017,
323 + 6.83513, 7.77354, 7.98759,
324 + .02636, .02046, 210.05336, 8.28635, 7.60216,
325 + 7.13943, 8.07939, 8.29250 /
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 + .01019, .01264, .93254, .54846, .00000,
328 + .00000, .29233, .55137,
329 + .01067, .01288, 1.87465, .57647, .00854,
330 + .00000, .32269, .57947,
331 + .01139, .01325, 3.61006, .63048, .06793,
332 + .00000, .38003, .63361,
333 + .01192, .01351, 5.18404, .67900, .11805,
334 + .00000, .43090, .68223,
335 + .01248, .01380, 7.08612, .73945, .17922,
336 + .00000, .49373, .74277,
337 + .01296, .01404, 8.94021, .79932, .23883,
338 + .00000, .55560, .80273,
339 + .01342, .01427, 10.94537, .86304, .30377,
340 + .00000, .62118, .86653,
341 + .01392, .01452, 13.31800, .93772, .38065,
342 + .00000, .69779, .94129 /
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 + .01434, .01473, 15.54035, 1.00908, .45211,
345 + .00000, .77078, 1.01272,
346 + .01476, .01494, 17.85175, 1.08336, .52642,
347 + .00000, .84660, 1.08706,
348 + .01509, .01511, 19.82608, 1.14603, .58999,
349 + .00000, .91046, 1.14978,
350 + .01579, .01546, 24.27394, 1.29137, .73492,
351 + .01520, 1.05829, 1.29523,
352 + .01640, .01576, 28.36990, 1.42888, .87061,
353 + .21360, 1.19787, 1.43282,
354 + .01709, .01610, 33.34963, 1.59690, 1.03631,
355 + .44178, 1.36815, 1.60094,
356 + .01780, .01646, 38.96780, 1.78737, 1.22366,
357 + .66015, 1.56090, 1.79152,
358 + .01845, .01678, 44.43269, 1.97399, 1.40699,
359 + .86632, 1.74952, 1.97821 /
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 + .01912, .01711, 50.29672, 2.17589, 1.60547,
362 + 1.08262, 1.95340, 2.18021,
363 + .01967, .01738, 55.39304, 2.35352, 1.77963,
364 + 1.26680, 2.13262, 2.35791,
365 + .02034, .01772, 61.83253, 2.58084, 2.00227,
366 + 1.49864, 2.36183, 2.58531,
367 + .02093, .01801, 67.80136, 2.79344, 2.21111,
368 + 1.71535, 2.57605, 2.79798,
369 + .02148, .01828, 73.49202, 2.99797, 2.41242,
370 + 1.92324, 2.78206, 3.00258,
371 + .02218, .01863, 80.88731, 3.26866, 2.67801,
372 + 2.19397, 3.05456, 3.27335,
373 + .02283, .01896, 88.10972, 3.53613, 2.94113,
374 + 2.46229, 3.32369, 3.54089,
375 + .02346, .01926, 95.13513, 3.79879, 3.20036,
376 + 2.72714, 3.58788, 3.80362 /
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 + .02408, .01957, 102.22534, 4.06949, 3.46655,
379 + 2.99637, 3.86008, 4.07439,
380 + .02469, .01987, 109.38365, 4.34537, 3.73869,
381 + 3.27258, 4.13739, 4.35034,
382 + .02527, .02016, 116.31742, 4.61585, 4.00581,
383 + 3.54360, 4.40920, 4.62088,
384 + .02582, .02043, 122.90256, 4.87700, 4.26339,
385 + 3.80399, 4.67159, 4.88209,
386 + .02637, .02070, 129.71748, 5.14907, 4.53265,
387 + 4.07718, 4.94488, 5.15421,
388 + .02692, .02097, 136.39856, 5.42100, 4.80105,
389 + 4.34802, 5.21798, 5.42620,
390 + .02744, .02123, 142.94978, 5.68892, 5.06650,
391 + 4.61708, 5.48701, 5.69417,
392 + .02794, .02147, 149.09645, 5.94510, 5.31963,
393 + 4.87235, 5.74422, 5.95040 /
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 + .02844, .02172, 155.45416, 6.21151, 5.58362,
396 + 5.13943, 6.01166, 6.21686,
397 + .02894, .02197, 161.72232, 6.47814, 5.84757,
398 + 5.40587, 6.27929, 6.48354,
399 + .02941, .02220, 167.77206, 6.73799, 6.10504,
400 + 5.66584, 6.54007, 6.74343,
401 + .02987, .02242, 173.59416, 6.99002, 6.35512,
402 + 5.91868, 6.79299, 6.99550,
403 + .03033, .02265, 179.41945, 7.24641, 6.60904,
404 + 6.17454, 7.05026, 7.25193 /
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 + .01160, .01350, .91344, .52245, .00000,
407 + .00000, .27861, .52530,
408 + .01213, .01377, 1.82496, .54952, .00824,
409 + .00000, .30788, .55245,
410 + .01294, .01418, 3.49048, .60122, .06531,
411 + .00000, .36271, .60427,
412 + .01352, .01447, 4.98986, .64737, .11307,
413 + .00000, .41106, .65049,
414 + .01414, .01478, 6.79046, .70453, .17104,
415 + .00000, .47045, .70774,
416 + .01468, .01505, 8.53608, .76090, .22728,
417 + .00000, .52869, .76418,
418 + .01519, .01531, 10.41555, .82070, .28831,
419 + .00000, .59023, .82404,
420 + .01574, .01558, 12.62985, .89057, .36031,
421 + .00000, .66190, .89398 /
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 + .01621, .01582, 14.69517, .95712, .42701,
424 + .00000, .72997, .96059,
425 + .01667, .01605, 16.83572, 1.02622, .49618,
426 + .00000, .80051, 1.02974,
427 + .01704, .01623, 18.65894, 1.08440, .55522,
428 + .00000, .85981, 1.08797,
429 + .01782, .01662, 22.74818, 1.21892, .68939,
430 + .01423, .99665, 1.22258,
431 + .01849, .01696, 26.49324, 1.34572, .81454,
432 + .19768, 1.12539, 1.34946,
433 + .01925, .01733, 31.02574, 1.50015, .96683,
434 + .40807, 1.28192, 1.50397,
435 + .02004, .01773, 36.11561, 1.67459, 1.13840,
436 + .60839, 1.45848, 1.67850,
437 + .02076, .01808, 41.04498, 1.84493, 1.30573,
438 + .79682, 1.63069, 1.84892 /
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 + .02149, .01845, 46.31329, 2.02868, 1.48634,
441 + .99384, 1.81627, 2.03274,
442 + .02210, .01875, 50.87516, 2.18988, 1.64437,
443 + 1.16108, 1.97896, 2.19401,
444 + .02283, .01911, 56.61886, 2.39563, 1.84585,
445 + 1.37099, 2.18646, 2.39983,
446 + .02349, .01944, 61.92459, 2.58754, 2.03434,
447 + 1.56669, 2.37989, 2.59181,
448 + .02409, .01974, 66.96776, 2.77175, 2.21563,
449 + 1.75398, 2.56546, 2.77608,
450 + .02486, .02012, 73.49903, 3.01490, 2.45417,
451 + 1.99721, 2.81030, 3.01930,
452 + .02558, .02047, 79.85612, 3.25452, 2.68988,
453 + 2.23765, 3.05147, 3.25900,
454 + .02627, .02081, 86.02132, 3.48929, 2.92158,
455 + 2.47445, 3.28766, 3.49383 /
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 + .02695, .02115, 92.22269, 3.73065, 3.15889,
458 + 2.71452, 3.53041, 3.73526,
459 + .02762, .02148, 98.46655, 3.97611, 3.40101,
460 + 2.96031, 3.77719, 3.98077,
461 + .02826, .02179, 104.49836, 4.21624, 3.63817,
462 + 3.20100, 4.01857, 4.22097,
463 + .02886, .02209, 110.21112, 4.44763, 3.86638,
464 + 3.43174, 4.25110, 4.45241,
465 + .02947, .02239, 116.11056, 4.68827, 4.10453,
466 + 3.67344, 4.49287, 4.69310,
467 + .03007, .02268, 121.87805, 4.92829, 4.34144,
468 + 3.91254, 4.73399, 4.93318,
469 + .03064, .02296, 127.52287, 5.16441, 4.57541,
470 + 4.14975, 4.97114, 5.16935,
471 + .03118, .02323, 132.80536, 5.38976, 4.79807,
472 + 4.37434, 5.19744, 5.39474 /
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 + .03173, .02350, 138.25984, 5.62379, 5.02999,
475 + 4.60902, 5.43242, 5.62882,
476 + .03228, .02377, 143.62531, 5.85760, 5.26148,
477 + 4.84273, 5.66716, 5.86268,
478 + .03280, .02402, 148.79410, 6.08514, 5.48695,
479 + 5.07045, 5.89557, 6.09026,
480 + .03329, .02427, 153.76004, 6.30553, 5.70567,
481 + 5.29164, 6.11679, 6.31070,
482 + .03380, .02452, 158.71748, 6.52940, 5.92739,
483 + 5.51509, 6.34147, 6.53460 /
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 + .01713, .01660, .86075, .44884, .00000,
486 + .00000, .24001, .45186,
487 + .01789, .01698, 1.68349, .47313, .00739,
488 + .00000, .26613, .47621,
489 + .01900, .01753, 3.14801, .51821, .05779,
490 + .00000, .31380, .52137,
491 + .01982, .01794, 4.43534, .55763, .09887,
492 + .00000, .35504, .56085,
493 + .02068, .01837, 5.95061, .60559, .14789,
494 + .00000, .40485, .60888,
495 + .02142, .01873, 7.39420, .65222, .19474,
496 + .00000, .45301, .65556,
497 + .02213, .01909, 8.92655, .70118, .24499,
498 + .00000, .50341, .70457,
499 + .02288, .01946, 10.70712, .75783, .30361,
500 + .00000, .56154, .76128 /
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 + .02354, .01978, 12.34563, .81123, .35732,
503 + .00000, .61619, .81473,
504 + .02417, .02010, 14.02485, .86622, .41255,
505 + .00000, .67236, .86976,
506 + .02467, .02034, 15.44233, .91224, .45935,
507 + .00000, .71930, .91582,
508 + .02574, .02087, 18.57651, 1.01757, .56463,
509 + .01159, .82654, 1.02123,
510 + .02666, .02133, 21.39634, 1.11571, .66165,
511 + .15515, .92625, 1.11943,
512 + .02769, .02184, 24.75994, 1.23396, .77842,
513 + .31832, 1.04622, 1.23775,
514 + .02877, .02237, 28.48142, 1.36603, .90848,
515 + .47124, 1.18003, 1.36991,
516 + .02975, .02285, 32.03538, 1.49365, 1.03398,
517 + .61337, 1.30917, 1.49760 /
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 + .03074, .02334, 35.78537, 1.62998, 1.16813,
520 + .76037, 1.44700, 1.63401,
521 + .03156, .02374, 38.99463, 1.74855, 1.28447,
522 + .88393, 1.56677, 1.75263,
523 + .03256, .02423, 42.98937, 1.89856, 1.43152,
524 + 1.03761, 1.71821, 1.90271,
525 + .03345, .02467, 46.63905, 2.03733, 1.56796,
526 + 1.17967, 1.85821, 2.04154,
527 + .03426, .02507, 50.07476, 2.16954, 1.69822,
528 + 1.31462, 1.99154, 2.17382,
529 + .03529, .02557, 54.47460, 2.34262, 1.86817,
530 + 1.48831, 2.16597, 2.34697,
531 + .03626, .02605, 58.71094, 2.51177, 2.03475,
532 + 1.65861, 2.33639, 2.51620,
533 + .03718, .02650, 62.77994, 2.67627, 2.19729,
534 + 1.82513, 2.50203, 2.68076 /
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 + .03809, .02694, 66.82854, 2.84405, 2.36243,
537 + 1.99251, 2.67094, 2.84861,
538 + .03899, .02738, 70.86932, 3.01351, 2.52979,
539 + 2.16277, 2.84148, 3.01814,
540 + .03984, .02780, 74.73900, 3.17821, 2.69265,
541 + 2.32840, 3.00718, 3.18290,
542 + .04064, .02819, 78.37093, 3.33585, 2.84832,
543 + 2.48609, 3.16575, 3.34060,
544 + .04145, .02859, 82.09612, 3.49890, 3.00992,
545 + 2.65045, 3.32973, 3.50371,
546 + .04224, .02897, 85.70422, 3.66048, 3.16959,
547 + 2.81188, 3.49218, 3.66534,
548 + .04300, .02934, 89.21493, 3.81865, 3.32654,
549 + 2.97135, 3.65119, 3.82357,
550 + .04372, .02970, 92.47161, 3.96869, 3.47499,
551 + 3.12135, 3.80200, 3.97367 /
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 + .04444, .03005, 95.81638, 4.12382, 3.62895,
554 + 3.27746, 3.95791, 4.12886,
555 + .04516, .03040, 99.08143, 4.27797, 3.78178,
556 + 3.43204, 4.11281, 4.28306,
557 + .04585, .03073, 102.20765, 4.42729, 3.92995,
558 + 3.58197, 4.26283, 4.43243,
559 + .04650, .03105, 105.19489, 4.57131, 4.07310,
560 + 3.72703, 4.40752, 4.57650,
561 + .04716, .03138, 108.15430, 4.71684, 4.21744,
562 + 3.87275, 4.55371, 4.72208 /
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 + .02497, .02056, .82165, .38507, .00000,
565 + .00000, .20691, .38878,
566 + .02602, .02107, 1.56436, .40675, .00664,
567 + .00000, .23014, .41054,
568 + .02758, .02183, 2.84942, .44590, .05113,
569 + .00000, .27150, .44981,
570 + .02871, .02238, 3.95068, .47943, .08642,
571 + .00000, .30657, .48342,
572 + .02990, .02296, 5.21965, .51950, .12776,
573 + .00000, .34821, .52358,
574 + .03093, .02346, 6.40646, .55787, .16666,
575 + .00000, .38789, .56203,
576 + .03191, .02394, 7.64745, .59773, .20786,
577 + .00000, .42896, .60197,
578 + .03295, .02444, 9.06856, .64338, .25538,
579 + .00000, .47587, .64769 /
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 + .03385, .02488, 10.35772, .68593, .29842,
582 + .00000, .51947, .69031,
583 + .03472, .02531, 11.66333, .72937, .34227,
584 + .00000, .56391, .73381,
585 + .03541, .02564, 12.75502, .76548, .37916,
586 + .00000, .60080, .76998,
587 + .03687, .02635, 15.13235, .84728, .46124,
588 + .00941, .68421, .85189,
589 + .03813, .02697, 17.23071, .92254, .53593,
590 + .12123, .76081, .92724,
591 + .03954, .02766, 19.69551, 1.01220, .62480,
592 + .24716, .85194, 1.01702,
593 + .04100, .02837, 22.37996, 1.11117, .72259,
594 + .36323, .95237, 1.11610,
595 + .04233, .02902, 24.90566, 1.20575, .81590,
596 + .46977, 1.04824, 1.21078 /
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 + .04367, .02967, 27.53461, 1.30576, .91464,
599 + .57870, 1.14952, 1.31090,
600 + .04478, .03021, 29.75644, 1.39193, .99947,
601 + .66933, 1.23671, 1.39715,
602 + .04613, .03087, 32.48829, 1.49998, 1.10571,
603 + .78096, 1.34596, 1.50530,
604 + .04732, .03144, 34.95506, 1.59905, 1.20343,
605 + .88324, 1.44607, 1.60447,
606 + .04841, .03198, 37.25327, 1.69272, 1.29602,
607 + .97963, 1.54068, 1.69822,
608 + .04979, .03265, 40.16072, 1.81425, 1.41574,
609 + 1.10254, 1.66337, 1.81986,
610 + .05109, .03328, 42.92770, 1.93200, 1.53207,
611 + 1.22202, 1.78219, 1.93772,
612 + .05231, .03387, 45.55807, 2.04562, 1.64472,
613 + 1.33795, 1.89679, 2.05144 /
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 + .05353, .03446, 48.14392, 2.16054, 1.75819,
616 + 1.45343, 2.01265, 2.16645,
617 + .05472, .03504, 50.70055, 2.27578, 1.87238,
618 + 1.57010, 2.12881, 2.28179,
619 + .05584, .03559, 53.12588, 2.38701, 1.98273,
620 + 1.68281, 2.24088, 2.39310,
621 + .05690, .03610, 55.37930, 2.49271, 2.08745,
622 + 1.78933, 2.34738, 2.49889,
623 + .05797, .03662, 57.67388, 2.60143, 2.19556,
624 + 1.89977, 2.45687, 2.60770,
625 + .05902, .03713, 59.87297, 2.70840, 2.30162,
626 + 2.00742, 2.56459, 2.71475,
627 + .06002, .03762, 61.99949, 2.81259, 2.40537,
628 + 2.11328, 2.66949, 2.81903,
629 + .06096, .03807, 63.95244, 2.91078, 2.50283,
630 + 2.21215, 2.76834, 2.91729 /
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 + .06192, .03854, 65.94678, 3.01184, 2.60347,
633 + 2.31462, 2.87005, 3.01843,
634 + .06286, .03899, 67.87664, 3.11167, 2.70278,
635 + 2.41547, 2.97052, 3.11833,
636 + .06375, .03943, 69.71193, 3.20789, 2.79860,
637 + 2.51282, 3.06734, 3.21463,
638 + .06461, .03984, 71.45519, 3.30029, 2.89077,
639 + 2.60661, 3.16031, 3.30710,
640 + .06547, .04026, 73.16676, 3.39314, 2.98317,
641 + 2.70025, 3.25371, 3.40001 /
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 + .03100, .02341, .80823, .35188, .00000,
644 + .00000, .18980, .35625,
645 + .03228, .02403, 1.50773, .37210, .00623,
646 + .00000, .21146, .37658,
647 + .03416, .02494, 2.69614, .40806, .04759,
648 + .00000, .24944, .41270,
649 + .03554, .02560, 3.69850, .43847, .07984,
650 + .00000, .28128, .44324,
651 + .03698, .02629, 4.83830, .47443, .11720,
652 + .00000, .31868, .47931,
653 + .03821, .02689, 5.89210, .50854, .15199,
654 + .00000, .35399, .51353,
655 + .03939, .02746, 6.98372, .54374, .18858,
656 + .00000, .39032, .54884,
657 + .04065, .02807, 8.22249, .58379, .23047,
658 + .00000, .43153, .58900 /
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 + .04173, .02859, 9.33630, .62087, .26814,
661 + .00000, .46959, .62617,
662 + .04277, .02910, 10.45600, .65852, .30629,
663 + .00000, .50816, .66391,
664 + .04360, .02950, 11.38673, .68970, .33825,
665 + .00000, .54006, .69516,
666 + .04536, .03035, 13.39428, .75986, .40889,
667 + .00830, .61170, .76547,
668 + .04686, .03108, 15.14489, .82390, .47266,
669 + .10456, .67698, .82964,
670 + .04855, .03189, 17.18159, .89968, .54799,
671 + .21234, .75411, .90557,
672 + .05030, .03274, 19.37809, .98271, .63028,
673 + .31066, .83849, .98875,
674 + .05188, .03351, 21.42552, 1.06151, .70825,
675 + .40021, .91848, 1.06768 /
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 + .05348, .03428, 23.53855, 1.14432, .79024,
678 + .49114, 1.00247, 1.15063,
679 + .05480, .03492, 25.31027, 1.21525, .86028,
680 + .56630, 1.07435, 1.22168,
681 + .05639, .03570, 27.47192, 1.30369, .94750,
682 + .65833, 1.16391, 1.31026,
683 + .05780, .03638, 29.40938, 1.38435, 1.02729,
684 + .74220, 1.24553, 1.39104,
685 + .05910, .03701, 31.20271, 1.46025, 1.10252,
686 + .82084, 1.32230, 1.46705,
687 + .06073, .03780, 33.45379, 1.55818, 1.19928,
688 + .92054, 1.42131, 1.56513,
689 + .06226, .03854, 35.58032, 1.65257, 1.29279,
690 + 1.01695, 1.51668, 1.65965,
691 + .06370, .03924, 37.58868, 1.74320, 1.38291,
692 + 1.11005, 1.60822, 1.75041 /
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 + .06513, .03993, 39.54761, 1.83438, 1.47320,
695 + 1.20227, 1.70028, 1.84171,
696 + .06653, .04061, 41.47281, 1.92542, 1.56367,
697 + 1.29504, 1.79217, 1.93287,
698 + .06785, .04125, 43.28807, 2.01290, 1.65072,
699 + 1.38428, 1.88045, 2.02047,
700 + .06909, .04185, 44.96352, 2.09568, 1.73297,
701 + 1.46823, 1.96396, 2.10336,
702 + .07034, .04245, 46.66174, 2.18051, 1.81759,
703 + 1.55499, 2.04952, 2.18830,
704 + .07157, .04305, 48.27782, 2.26361, 1.90021,
705 + 1.63915, 2.13332, 2.27151,
706 + .07274, .04361, 49.83459, 2.34431, 1.98081,
707 + 1.72170, 2.21468, 2.35231,
708 + .07384, .04414, 51.25456, 2.42003, 2.05620,
709 + 1.79843, 2.29101, 2.42813 /
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 + .07495, .04468, 52.69943, 2.49775, 2.13384,
712 + 1.87777, 2.36935, 2.50595,
713 + .07604, .04521, 54.08931, 2.57424, 2.21016,
714 + 1.95555, 2.44643, 2.58254,
715 + .07709, .04571, 55.40521, 2.64775, 2.28357,
716 + 2.03040, 2.52050, 2.65613,
717 + .07808, .04619, 56.65030, 2.71814, 2.35400,
718 + 2.10233, 2.59142, 2.72661,
719 + .07908, .04667, 57.86508, 2.78861, 2.42435,
720 + 2.17387, 2.66241, 2.79717 /
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 + .03611, .02577, .80486, .33007, .00000,
723 + .00000, .17859, .33502,
724 + .03757, .02647, 1.47505, .34929, .00596,
725 + .00000, .19917, .35438,
726 + .03973, .02751, 2.59786, .38308, .04523,
727 + .00000, .23488, .38837,
728 + .04130, .02826, 3.53369, .41142, .07546,
729 + .00000, .26456, .41685,
730 + .04295, .02905, 4.58731, .44463, .11018,
731 + .00000, .29915, .45023,
732 + .04436, .02973, 5.55310, .47594, .14228,
733 + .00000, .33159, .48167,
734 + .04570, .03038, 6.54656, .50809, .17585,
735 + .00000, .36481, .51394,
736 + .04713, .03107, 7.66631, .54450, .21406,
737 + .00000, .40231, .55048 /
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 + .04837, .03166, 8.66645, .57803, .24825,
740 + .00000, .43677, .58413,
741 + .04955, .03224, 9.66634, .61194, .28273,
742 + .00000, .47156, .61816,
743 + .05049, .03269, 10.49384, .63994, .31152,
744 + .00000, .50025, .64624,
745 + .05248, .03365, 12.26589, .70263, .37482,
746 + .00758, .56435, .70912,
747 + .05419, .03448, 13.79702, .75954, .43163,
748 + .09390, .62244, .76619,
749 + .05610, .03540, 15.56563, .82653, .49840,
750 + .19014, .69071, .83336,
751 + .05808, .03636, 17.45902, .89952, .57092,
752 + .27726, .76499, .90653,
753 + .05987, .03722, 19.21159, .96843, .63929,
754 + .35615, .83504, .97562 /
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 + .06167, .03809, 21.00875, 1.04053, .71084,
757 + .43584, .90825, 1.04788,
758 + .06316, .03881, 22.50665, 1.10201, .77170,
759 + .50140, .97065, 1.10951,
760 + .06495, .03968, 24.32353, 1.17836, .84717,
761 + .58132, 1.04806, 1.18602,
762 + .06654, .04045, 25.94290, 1.24770, .91594,
763 + .65385, 1.11832, 1.25551,
764 + .06799, .04115, 27.43443, 1.31272, .98055,
765 + .72162, 1.18418, 1.32067,
766 + .06982, .04204, 29.29551, 1.39627, 1.06330,
767 + .80716, 1.26876, 1.40439,
768 + .07154, .04287, 31.04373, 1.47647, 1.14296,
769 + .88955, 1.34990, 1.48475,
770 + .07315, .04365, 32.68665, 1.55321, 1.21947,
771 + .96884, 1.42752, 1.56164 /
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 + .07475, .04442, 34.27938, 1.63011, 1.29580,
774 + 1.04704, 1.50526, 1.63869,
775 + .07631, .04518, 35.83756, 1.70663, 1.37204,
776 + 1.12547, 1.58260, 1.71536,
777 + .07779, .04589, 37.29990, 1.77993, 1.44516,
778 + 1.20068, 1.65666, 1.78880,
779 + .07918, .04656, 38.64263, 1.84906, 1.51402,
780 + 1.27118, 1.72648, 1.85805,
781 + .08057, .04724, 39.99887, 1.91972, 1.58468,
782 + 1.34386, 1.79785, 1.92884,
783 + .08194, .04790, 41.28231, 1.98870, 1.65345,
784 + 1.41411, 1.86750, 1.99795,
785 + .08324, .04852, 42.51507, 2.05554, 1.72037,
786 + 1.48288, 1.93497, 2.06490,
787 + .08446, .04911, 43.63335, 2.11805, 1.78277,
788 + 1.54659, 1.99807, 2.12754 /
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 + .08569, .04971, 44.76816, 2.18209, 1.84691,
791 + 1.61234, 2.06269, 2.19168,
792 + .08691, .05029, 45.85463, 2.24493, 1.90978,
793 + 1.67661, 2.12611, 2.25464,
794 + .08807, .05085, 46.87968, 2.30518, 1.97011,
795 + 1.73832, 2.18690, 2.31499,
796 + .08916, .05138, 47.84660, 2.36275, 2.02788,
797 + 1.79751, 2.24498, 2.37267,
798 + .09027, .05192, 48.78518, 2.42024, 2.08542,
799 + 1.85620, 2.30297, 2.43025 /
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 + .04070, .02791, .81012, .31435, .00000,
802 + .00000, .17033, .31960,
803 + .04233, .02869, 1.45724, .33280, .00576,
804 + .00000, .19006, .33821,
805 + .04472, .02984, 2.52946, .36494, .04346,
806 + .00000, .22401, .37057,
807 + .04646, .03068, 3.41454, .39170, .07217,
808 + .00000, .25204, .39750,
809 + .04827, .03156, 4.40274, .42286, .10492,
810 + .00000, .28449, .42883,
811 + .04983, .03232, 5.30215, .45207, .13501,
812 + .00000, .31478, .45819,
813 + .05131, .03304, 6.22190, .48195, .16633,
814 + .00000, .34566, .48821,
815 + .05289, .03380, 7.25273, .51565, .20182,
816 + .00000, .38041, .52206 /
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 + .05425, .03446, 8.16843, .54657, .23343,
819 + .00000, .41220, .55311,
820 + .05555, .03509, 9.07968, .57774, .26520,
821 + .00000, .44419, .58440,
822 + .05659, .03559, 9.83104, .60340, .29165,
823 + .00000, .47050, .61016,
824 + .05878, .03665, 11.43037, .66065, .34958,
825 + .00704, .52908, .66762,
826 + .06065, .03756, 12.80159, .71236, .40131,
827 + .08606, .58191, .71951,
828 + .06275, .03858, 14.37601, .77298, .46185,
829 + .17386, .64374, .78033,
830 + .06492, .03963, 16.05118, .83873, .52729,
831 + .25283, .71071, .84629,
832 + .06687, .04058, 17.59269, .90055, .58873,
833 + .32399, .77361, .90829 /
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 + .06884, .04154, 19.16495, .96497, .65278,
836 + .39556, .83908, .97290,
837 + .07047, .04233, 20.46893, 1.01971, .70706,
838 + .45421, .89468, 1.02780,
839 + .07243, .04328, 22.04251, 1.08745, .77414,
840 + .52544, .96343, 1.09572,
841 + .07416, .04412, 23.43849, 1.14878, .83506,
842 + .58987, 1.02563, 1.15721,
843 + .07574, .04489, 24.71906, 1.20610, .89213,
844 + .64990, 1.08375, 1.21469,
845 + .07773, .04586, 26.30879, 1.27952, .96497,
846 + .72538, 1.15814, 1.28829,
847 + .07960, .04676, 27.79498, 1.34975, 1.03486,
848 + .79785, 1.22926, 1.35870,
849 + .08135, .04761, 29.18575, 1.41675, 1.10179,
850 + .86740, 1.29709, 1.42587 /
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 + .08308, .04845, 30.52699, 1.48367, 1.16833,
853 + .93575, 1.36481, 1.49295,
854 + .08478, .04927, 31.83397, 1.55008, 1.23463,
855 + 1.00412, 1.43200, 1.55952,
856 + .08638, .05005, 33.05558, 1.61352, 1.29804,
857 + 1.06951, 1.49616, 1.62311,
858 + .08788, .05078, 34.17229, 1.67318, 1.35759,
859 + 1.13063, 1.55649, 1.68292,
860 + .08939, .05151, 35.29696, 1.73404, 1.41857,
861 + 1.19352, 1.61801, 1.74392,
862 + .09086, .05222, 36.35587, 1.79328, 1.47774,
863 + 1.25413, 1.67789, 1.80329,
864 + .09226, .05290, 37.37049, 1.85056, 1.53523,
865 + 1.31335, 1.73578, 1.86071,
866 + .09358, .05353, 38.28664, 1.90400, 1.58869,
867 + 1.36807, 1.78978, 1.91428 /
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 + .09491, .05418, 39.21431, 1.95864, 1.64354,
870 + 1.42445, 1.84498, 1.96904,
871 + .09622, .05481, 40.09851, 2.01214, 1.69717,
872 + 1.47943, 1.89902, 2.02266,
873 + .09747, .05541, 40.93009, 2.06333, 1.74856,
874 + 1.53212, 1.95073, 2.07397,
875 + .09865, .05598, 41.71250, 2.11217, 1.79767,
876 + 1.58258, 2.00005, 2.12292,
877 + .09984, .05656, 42.46859, 2.16081, 1.84647,
878 + 1.63249, 2.04917, 2.17167 /
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 + .05888, .03625, .85433, .27025, .00000,
881 + .00000, .14752, .27723,
882 + .06111, .03735, 1.43344, .28643, .00519,
883 + .00000, .16479, .29364,
884 + .06438, .03896, 2.35562, .31377, .03846,
885 + .00000, .19368, .32130,
886 + .06675, .04012, 3.09227, .33600, .06287,
887 + .00000, .21701, .34378,
888 + .06921, .04134, 3.89246, .36133, .09005,
889 + .00000, .24345, .36936,
890 + .07131, .04237, 4.60362, .38466, .11451,
891 + .00000, .26770, .39290,
892 + .07332, .04336, 5.31667, .40821, .13957,
893 + .00000, .29211, .41665,
894 + .07544, .04440, 6.10086, .43443, .16753,
895 + .00000, .31923, .44309 /
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 + .07726, .04530, 6.78478, .45815, .19207,
898 + .00000, .34371, .46699,
899 + .07900, .04616, 7.45492, .48180, .21644,
900 + .00000, .36808, .49082,
901 + .08038, .04684, 8.00072, .50112, .23653,
902 + .00000, .38796, .51029,
903 + .08330, .04828, 9.13882, .54364, .27994,
904 + .00556, .43163, .55310,
905 + .08579, .04951, 10.08880, .58145, .31808,
906 + .06501, .47041, .59116,
907 + .08855, .05087, 11.15766, .62514, .36206,
908 + .13028, .51515, .63513,
909 + .09141, .05227, 12.27158, .67182, .40888,
910 + .18774, .56289, .68209,
911 + .09397, .05353, 13.27634, .71509, .45221,
912 + .23870, .60709, .72561 /
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 + .09654, .05480, 14.28251, .75959, .49679,
915 + .28921, .65252, .77038,
916 + .09866, .05584, 15.10268, .79697, .53413,
917 + .33006, .69064, .80796,
918 + .10120, .05709, 16.07559, .84267, .57974,
919 + .37908, .73722, .85391,
920 + .10343, .05818, 16.92475, .88358, .62070,
921 + .42293, .77890, .89504,
922 + .10547, .05918, 17.69253, .92145, .65870,
923 + .46337, .81746, .93311,
924 + .10803, .06044, 18.62860, .96938, .70664,
925 + .51362, .86625, .98130,
926 + .11042, .06161, 19.48914, 1.01473, .75214,
927 + .56134, .91238, 1.02687,
928 + .11265, .06269, 20.28266, 1.05755, .79528,
929 + .60671, .95594, 1.06992 /
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 + .11485, .06377, 21.03331, 1.09984, .83769,
932 + .65076, .99893, 1.11242,
933 + .11700, .06482, 21.75478, 1.14142, .87957,
934 + .69446, 1.04120, 1.15421,
935 + .11902, .06580, 22.41942, 1.18079, .91927,
936 + .73588, 1.08121, 1.19377,
937 + .12091, .06672, 23.01684, 1.21744, .95620,
938 + .77423, 1.11845, 1.23061,
939 + .12280, .06764, 23.61230, 1.25458, .99376,
940 + .81343, 1.15618, 1.26793,
941 + .12464, .06854, 24.16234, 1.29036, 1.02983,
942 + .85083, 1.19252, 1.30388,
943 + .12639, .06939, 24.68501, 1.32475, 1.06469,
944 + .88718, 1.22745, 1.33844,
945 + .12803, .07018, 25.14795, 1.35652, 1.09678,
946 + .92043, 1.25972, 1.37037 /
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 + .12969, .07099, 25.61294, 1.38883, 1.12955,
949 + .95453, 1.29253, 1.40283,
950 + .13130, .07177, 26.04880, 1.42019, 1.16132,
951 + .98751, 1.32438, 1.43435,
952 + .13284, .07251, 26.45392, 1.45001, 1.19156,
953 + 1.01892, 1.35466, 1.46432,
954 + .13430, .07322, 26.83133, 1.47829, 1.22031,
955 + 1.04883, 1.38338, 1.49273,
956 + .13576, .07392, 27.18903, 1.50622, 1.24864,
957 + 1.07817, 1.41173, 1.52080 /
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 + .08500, .04872, .97827, .23408, .00000,
960 + .00000, .12881, .24349,
961 + .08803, .05025, 1.48832, .24818, .00474,
962 + .00000, .14385, .25792,
963 + .09243, .05249, 2.26106, .27113, .03422,
964 + .00000, .16813, .28135,
965 + .09561, .05409, 2.85548, .28929, .05486,
966 + .00000, .18724, .29986,
967 + .09890, .05576, 3.48234, .30948, .07717,
968 + .00000, .20839, .32040,
969 + .10170, .05717, 4.02447, .32769, .09675,
970 + .00000, .22739, .33891,
971 + .10436, .05851, 4.55571, .34579, .11643,
972 + .00000, .24624, .35729,
973 + .10715, .05992, 5.12735, .36564, .13799,
974 + .00000, .26687, .37744 /
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 + .10955, .06113, 5.61549, .38331, .15658,
977 + .00000, .28520, .39537,
978 + .11184, .06228, 6.08527, .40071, .17478,
979 + .00000, .30322, .41301,
980 + .11364, .06319, 6.46246, .41479, .18962,
981 + .00000, .31779, .42727,
982 + .11744, .06510, 7.22964, .44529, .22117,
983 + .00430, .34930, .45817,
984 + .12067, .06671, 7.84892, .47191, .24836,
985 + .04792, .37677, .48513,
986 + .12423, .06850, 8.52906, .50216, .27918,
987 + .09515, .40794, .51575,
988 + .12789, .07032, 9.22060, .53391, .31140,
989 + .13569, .44064, .54788,
990 + .13116, .07196, 9.82952, .56286, .34073,
991 + .17099, .47041, .57716 /
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 + .13443, .07358, 10.42578, .59218, .37047,
994 + .20540, .50056, .60682,
995 + .13710, .07490, 10.90136, .61646, .39502,
996 + .23281, .52551, .63137,
997 + .14030, .07649, 11.45348, .64574, .42461,
998 + .26525, .55557, .66096,
999 + .14310, .07787, 11.92562, .67160, .45084,
1000 + .29389, .58213, .68711,
1001 + .14564, .07913, 12.34475, .69527, .47490,
1002 + .32000, .60642, .71103,
1003 + .14882, .08069, 12.84331, .72479, .50485,
1004 + .35200, .63671, .74086,
1005 + .15177, .08214, 13.29172, .75236, .53290,
1006 + .38202, .66499, .76872,
1007 + .15452, .08348, 13.69738, .77810, .55921,
1008 + .41025, .69140, .79473 /
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 + .15721, .08480, 14.07051, .80315, .58472,
1011 + .43728, .71709, .82004,
1012 + .15982, .08608, 14.42247, .82751, .60965,
1013 + .46384, .74208, .84465,
1014 + .16227, .08727, 14.74013, .85032, .63304,
1015 + .48875, .76548, .86770,
1016 + .16455, .08838, 15.01855, .87131, .65454,
1017 + .51156, .78700, .88891,
1018 + .16684, .08948, 15.29223, .89239, .67624,
1019 + .53471, .80863, .91021,
1020 + .16904, .09055, 15.53716, .91245, .69683,
1021 + .55652, .82920, .93047,
1022 + .17113, .09156, 15.76738, .93159, .71659,
1023 + .57760, .84885, .94981,
1024 + .17308, .09250, 15.96453, .94906, .73458,
1025 + .59666, .86677, .96745 /
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 + .17504, .09344, 16.16038, .96670, .75282,
1028 + .61609, .88487, .98528,
1029 + .17695, .09436, 16.33860, .98364, .77034,
1030 + .63469, .90226, 1.00239,
1031 + .17876, .09522, 16.50102, .99961, .78689,
1032 + .65229, .91866, 1.01853,
1033 + .18047, .09604, 16.64990, 1.01465, .80251,
1034 + .66894, .93411, 1.03373,
1035 + .18217, .09686, 16.78572, 1.02934, .81774,
1036 + .68511, .94919, 1.04857 /
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 + .10533, .05891, 1.10223, .21636, .00000,
1039 + .00000, .11981, .22790,
1040 + .10892, .06076, 1.56312, .22924, .00449,
1041 + .00000, .13357, .24119,
1042 + .11412, .06344, 2.24426, .24971, .03187,
1043 + .00000, .15528, .26223,
1044 + .11787, .06536, 2.75570, .26561, .05045,
1045 + .00000, .17207, .27856,
1046 + .12173, .06734, 3.28477, .28301, .07013,
1047 + .00000, .19037, .29639,
1048 + .12500, .06902, 3.73447, .29849, .08711,
1049 + .00000, .20659, .31222,
1050 + .12810, .07060, 4.16847, .31371, .10395,
1051 + .00000, .22252, .32777,
1052 + .13136, .07225, 4.62881, .33023, .12218,
1053 + .00000, .23979, .34465 /
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 + .13414, .07367, 5.01655, .34479, .13771,
1056 + .00000, .25496, .35950,
1057 + .13679, .07501, 5.38520, .35899, .15277,
1058 + .00000, .26976, .37399,
1059 + .13888, .07606, 5.67833, .37041, .16496,
1060 + .00000, .28164, .38563,
1061 + .14325, .07827, 6.26422, .39490, .19059,
1062 + .00365, .30709, .41058,
1063 + .14695, .08014, 6.72568, .41600, .21239,
1064 + .03944, .32900, .43207,
1065 + .15103, .08218, 7.22413, .43972, .23683,
1066 + .07785, .35361, .45621,
1067 + .15519, .08426, 7.72233, .46431, .26207,
1068 + .11028, .37910, .48123,
1069 + .15890, .08612, 8.15352, .48647, .28480,
1070 + .13818, .40206, .50377 /
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 + .16259, .08795, 8.56906, .50870, .30761,
1073 + .16508, .42508, .52637,
1074 + .16561, .08944, 8.89536, .52692, .32626,
1075 + .18629, .44395, .54489,
1076 + .16919, .09121, 9.26798, .54869, .34854,
1077 + .21116, .46648, .56701,
1078 + .17232, .09275, 9.58166, .56774, .36813,
1079 + .23294, .48620, .58637,
1080 + .17516, .09415, 9.85616, .58504, .38596,
1081 + .25265, .50410, .60395,
1082 + .17869, .09587, 10.17645, .60640, .40794,
1083 + .27658, .52621, .62565,
1084 + .18196, .09746, 10.45935, .62616, .42837,
1085 + .29884, .54667, .64573,
1086 + .18498, .09893, 10.71122, .64446, .44737,
1087 + .31963, .56562, .66432 /
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 + .18794, .10036, 10.93740, .66209, .46562,
1090 + .33936, .58387, .68222,
1091 + .19080, .10175, 11.14726, .67910, .48334,
1092 + .35861, .60150, .69950,
1093 + .19348, .10303, 11.33310, .69491, .49984,
1094 + .37655, .61788, .71556,
1095 + .19596, .10422, 11.49211, .70933, .51489,
1096 + .39285, .63283, .73020,
1097 + .19843, .10540, 11.64655, .72372, .53000,
1098 + .40931, .64776, .74482,
1099 + .20081, .10654, 11.78022, .73728, .54421,
1100 + .42470, .66183, .75860,
1101 + .20307, .10761, 11.90469, .75017, .55779,
1102 + .43950, .67520, .77168,
1103 + .20516, .10860, 12.00716, .76180, .57004,
1104 + .45279, .68729, .78350 /
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 + .20726, .10959, 12.10788, .77350, .58242,
1107 + .46628, .69944, .79539,
1108 + .20930, .11055, 12.19632, .78464, .59422,
1109 + .47911, .71103, .80670,
1110 + .21123, .11146, 12.27507, .79508, .60530,
1111 + .49119, .72189, .81732,
1112 + .21305, .11231, 12.34584, .80486, .61572,
1113 + .50257, .73207, .82726,
1114 + .21485, .11316, 12.40695, .81432, .62579,
1115 + .51353, .74193, .83686 /
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 + .12267, .06800, 1.21449, .20537, .00000,
1118 + .00000, .11430, .21886,
1119 + .12670, .07009, 1.63724, .21734, .00430,
1120 + .00000, .12712, .23129,
1121 + .13253, .07312, 2.24916, .23602, .03016,
1122 + .00000, .14700, .25063,
1123 + .13672, .07528, 2.70033, .25034, .04729,
1124 + .00000, .16218, .26542,
1125 + .14102, .07749, 3.16042, .26581, .06515,
1126 + .00000, .17852, .28137,
1127 + .14466, .07935, 3.54632, .27941, .08035,
1128 + .00000, .19286, .29537,
1129 + .14809, .08111, 3.91441, .29269, .09529,
1130 + .00000, .20682, .30902,
1131 + .15169, .08295, 4.30052, .30699, .11129,
1132 + .00000, .22184, .32370 /
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 + .15476, .08451, 4.62230, .31947, .12480,
1135 + .00000, .23494, .33652,
1136 + .15768, .08598, 4.92535, .33158, .13780,
1137 + .00000, .24762, .34893,
1138 + .15998, .08714, 5.16451, .34126, .14827,
1139 + .00000, .25776, .35886,
1140 + .16477, .08956, 5.63561, .36185, .17008,
1141 + .00322, .27930, .37995,
1142 + .16881, .09159, 5.99890, .37942, .18846,
1143 + .03399, .29766, .39794,
1144 + .17326, .09381, 6.38600, .39899, .20887,
1145 + .06679, .31811, .41797,
1146 + .17778, .09606, 6.76756, .41909, .22976,
1147 + .09414, .33910, .43852,
1148 + .18180, .09805, 7.09309, .43704, .24841,
1149 + .11745, .35785, .45688 /
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 + .18577, .10001, 7.40254, .45490, .26698,
1152 + .13974, .37649, .47513,
1153 + .18901, .10160, 7.64219, .46942, .28205,
1154 + .15718, .39166, .48997,
1155 + .19286, .10348, 7.91191, .48663, .29993,
1156 + .17749, .40963, .50755,
1157 + .19620, .10511, 8.13582, .50159, .31554,
1158 + .19516, .42526, .52283,
1159 + .19923, .10658, 8.32924, .51508, .32967,
1160 + .21106, .43935, .53661,
1161 + .20298, .10839, 8.55067, .53161, .34696,
1162 + .23022, .45663, .55349,
1163 + .20644, .11005, 8.74293, .54678, .36291,
1164 + .24794, .47250, .56898,
1165 + .20964, .11158, 8.91150, .56074, .37767,
1166 + .26440, .48710, .58323 /
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 + .21275, .11307, 9.05896, .57406, .39174,
1169 + .27990, .50106, .59683,
1170 + .21575, .11449, 9.19349, .58684, .40532,
1171 + .29495, .51445, .60988,
1172 + .21855, .11581, 9.31022, .59864, .41789,
1173 + .30891, .52683, .62193,
1174 + .22113, .11703, 9.40723, .60931, .42929,
1175 + .32151, .53803, .63282,
1176 + .22371, .11824, 9.50019, .61992, .44068,
1177 + .33419, .54917, .64365,
1178 + .22618, .11939, 9.57723, .62982, .45131,
1179 + .34596, .55959, .65376,
1180 + .22851, .12047, 9.64822, .63919, .46144,
1181 + .35726, .56946, .66334,
1182 + .23067, .12147, 9.70347, .64758, .47052,
1183 + .36733, .57830, .67190 /
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 + .23283, .12247, 9.75706, .65598, .47965,
1186 + .37753, .58716, .68048,
1187 + .23492, .12343, 9.80146, .66391, .48831,
1188 + .38717, .59554, .68859,
1189 + .23690, .12433, 9.83948, .67131, .49640,
1190 + .39622, .60337, .69615,
1191 + .23875, .12518, 9.87251, .67821, .50398,
1192 + .40471, .61067, .70320,
1193 + .24059, .12602, 9.89797, .68482, .51125,
1194 + .41284, .61768, .70995 /
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 + .13812, .07635, 1.31339, .19762, .00000,
1197 + .00000, .11049, .21298,
1198 + .14252, .07864, 1.70355, .20883, .00413,
1199 + .00000, .12254, .22470,
1200 + .14887, .08194, 2.25872, .22609, .02873,
1201 + .00000, .14098, .24267,
1202 + .15342, .08428, 2.66206, .23916, .04471,
1203 + .00000, .15490, .25625,
1204 + .15808, .08668, 3.06864, .25313, .06116,
1205 + .00000, .16974, .27073,
1206 + .16200, .08869, 3.40590, .26531, .07501,
1207 + .00000, .18265, .28334,
1208 + .16571, .09058, 3.72450, .27710, .08850,
1209 + .00000, .19513, .29554,
1210 + .16958, .09255, 4.05565, .28973, .10285,
1211 + .00000, .20848, .30858 /
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 + .17288, .09421, 4.32914, .30068, .11487,
1214 + .00000, .22005, .31988,
1215 + .17601, .09579, 4.58469, .31124, .12637,
1216 + .00000, .23118, .33076,
1217 + .17847, .09703, 4.78511, .31965, .13558,
1218 + .00000, .24005, .33943,
1219 + .18358, .09959, 5.17473, .33741, .15464,
1220 + .00290, .25875, .35771,
1221 + .18789, .10173, 5.46935, .35243, .17057,
1222 + .03005, .27458, .37318,
1223 + .19260, .10407, 5.77957, .36904, .18813,
1224 + .05883, .29207, .39026,
1225 + .19739, .10642, 6.08159, .38597, .20597,
1226 + .08260, .30989, .40766,
1227 + .20163, .10850, 6.33590, .40096, .22177,
1228 + .10270, .32569, .42307 /
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 + .20581, .11054, 6.57460, .41578, .23740,
1231 + .12179, .34130, .43828,
1232 + .20921, .11219, 6.75699, .42774, .25002,
1233 + .13664, .35391, .45057,
1234 + .21323, .11413, 6.95953, .44183, .26490,
1235 + .15382, .36877, .46503,
1236 + .21672, .11581, 7.12540, .45399, .27781,
1237 + .16869, .38161, .47751,
1238 + .21987, .11731, 7.26680, .46490, .28944,
1239 + .18202, .39313, .48871,
1240 + .22375, .11915, 7.42550, .47817, .30359,
1241 + .19798, .40716, .50232,
1242 + .22733, .12084, 7.56082, .49027, .31657,
1243 + .21266, .41996, .51473,
1244 + .23063, .12239, 7.67755, .50132, .32852,
1245 + .22624, .43167, .52608 /
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 + .23383, .12389, 7.77628, .51179, .33983,
1248 + .23894, .44278, .53682,
1249 + .23691, .12532, 7.86472, .52179, .35070,
1250 + .25124, .45340, .54708,
1251 + .23977, .12664, 7.93972, .53095, .36071,
1252 + .26258, .46315, .55648,
1253 + .24240, .12785, 7.99953, .53918, .36974,
1254 + .27278, .47192, .56492,
1255 + .24502, .12905, 8.05581, .54732, .37873,
1256 + .28301, .48060, .57328,
1257 + .24752, .13018, 8.09950, .55486, .38706,
1258 + .29245, .48866, .58101,
1259 + .24989, .13126, 8.13920, .56197, .39499,
1260 + .30149, .49627, .58831,
1261 + .25206, .13223, 8.16709, .56827, .40203,
1262 + .30950, .50304, .59478 /
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 + .25424, .13321, 8.19350, .57457, .40911,
1265 + .31759, .50980, .60124,
1266 + .25634, .13415, 8.21287, .58046, .41577,
1267 + .32521, .51616, .60730,
1268 + .25832, .13503, 8.22795, .58593, .42198,
1269 + .33233, .52206, .61291,
1270 + .26018, .13585, 8.23982, .59101, .42778,
1271 + .33900, .52754, .61812,
1272 + .26201, .13665, 8.24543, .59581, .43330,
1273 + .34535, .53275, .62306 /
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 + .16539, .09158, 1.47476, .18702, .00000,
1276 + .00000, .10543, .20592,
1277 + .17039, .09417, 1.80967, .19696, .00384,
1278 + .00000, .11621, .21642,
1279 + .17755, .09786, 2.27321, .21192, .02630,
1280 + .00000, .13238, .23218,
1281 + .18266, .10046, 2.60229, .22305, .04047,
1282 + .00000, .14437, .24386,
1283 + .18787, .10311, 2.92778, .23473, .05476,
1284 + .00000, .15694, .25610,
1285 + .19224, .10531, 3.19313, .24478, .06659,
1286 + .00000, .16773, .26661,
1287 + .19635, .10738, 3.43985, .25440, .07797,
1288 + .00000, .17806, .27666,
1289 + .20063, .10952, 3.69241, .26459, .08992,
1290 + .00000, .18899, .28728 /
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 + .20425, .11132, 3.89794, .27333, .09980,
1293 + .00000, .19835, .29638,
1294 + .20768, .11302, 4.08738, .28167, .10917,
1295 + .00000, .20729, .30507,
1296 + .21037, .11434, 4.23438, .28826, .11662,
1297 + .00000, .21436, .31193,
1298 + .21594, .11707, 4.51337, .30204, .13186,
1299 + .00245, .22912, .32625,
1300 + .22060, .11934, 4.71651, .31353, .14442,
1301 + .02454, .24143, .33818,
1302 + .22568, .12179, 4.92585, .32608, .15811,
1303 + .04779, .25489, .35121,
1304 + .23081, .12425, 5.12508, .33868, .17185,
1305 + .06669, .26843, .36428,
1306 + .23533, .12639, 5.28869, .34971, .18387,
1307 + .08248, .28028, .37571 /
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 + .23976, .12849, 5.43854, .36046, .19565,
1310 + .09732, .29186, .38686,
1311 + .24334, .13016, 5.55003, .36904, .20506,
1312 + .10874, .30111, .39575,
1313 + .24756, .13212, 5.67008, .37902, .21604,
1314 + .12185, .31189, .40609,
1315 + .25120, .13381, 5.76544, .38755, .22549,
1316 + .13310, .32112, .41492,
1317 + .25447, .13531, 5.84434, .39513, .23393,
1318 + .14310, .32933, .42276,
1319 + .25848, .13713, 5.92874, .40420, .24408,
1320 + .15497, .33920, .43215,
1321 + .26216, .13879, 5.99735, .41238, .25332,
1322 + .16580, .34810, .44061,
1323 + .26553, .14030, 6.05391, .41977, .26174,
1324 + .17574, .35618, .44827 /
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 + .26877, .14174, 6.09755, .42666, .26963,
1327 + .18495, .36373, .45540,
1328 + .27188, .14311, 6.13411, .43316, .27715,
1329 + .19381, .37088, .46212,
1330 + .27476, .14437, 6.16225, .43906, .28403,
1331 + .20192, .37738, .46822,
1332 + .27738, .14551, 6.18100, .44427, .29015,
1333 + .20915, .38316, .47362,
1334 + .27999, .14663, 6.19715, .44940, .29622,
1335 + .21637, .38884, .47892,
1336 + .28246, .14769, 6.20500, .45404, .30179,
1337 + .22296, .39404, .48373,
1338 + .28480, .14868, 6.21128, .45840, .30705,
1339 + .22926, .39891, .48825,
1340 + .28692, .14957, 6.21057, .46219, .31167,
1341 + .23478, .40318, .49217 /
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 + .28904, .15046, 6.20878, .46595, .31630,
1344 + .24034, .40742, .49606,
1345 + .29108, .15130, 6.20236, .46940, .32060,
1346 + .24554, .41134, .49963,
1347 + .29298, .15209, 6.19397, .47257, .32458,
1348 + .25036, .41495, .50291,
1349 + .29477, .15282, 6.18450, .47547, .32828,
1350 + .25486, .41828, .50592,
1351 + .29652, .15353, 6.17076, .47817, .33176,
1352 + .25911, .42139, .50871 /
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 + .20079, .11200, 1.64019, .17677, .00000,
1355 + .00000, .10072, .20058,
1356 + .20642, .11485, 1.90809, .18513, .00346,
1357 + .00000, .10997, .20954,
1358 + .21444, .11886, 2.26690, .19741, .02323,
1359 + .00000, .12354, .22265,
1360 + .22012, .12168, 2.51504, .20635, .03534,
1361 + .00000, .13340, .23216,
1362 + .22589, .12451, 2.75524, .21556, .04728,
1363 + .00000, .14355, .24193,
1364 + .23069, .12685, 2.94697, .22334, .05699,
1365 + .00000, .15213, .25017,
1366 + .23518, .12902, 3.12189, .23070, .06620,
1367 + .00000, .16025, .25796,
1368 + .23985, .13126, 3.29768, .23839, .07574,
1369 + .00000, .16873, .26608 /
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 + .24378, .13313, 3.43808, .24489, .08351,
1372 + .00000, .17590, .27294,
1373 + .24747, .13488, 3.56530, .25104, .09081,
1374 + .00000, .18268, .27941,
1375 + .25035, .13624, 3.66274, .25586, .09657,
1376 + .00000, .18800, .28449,
1377 + .25630, .13902, 3.84113, .26578, .10820,
1378 + .00199, .19897, .29492,
1379 + .26124, .14130, 3.96332, .27391, .11764,
1380 + .01926, .20798, .30345,
1381 + .26658, .14374, 4.08514, .28264, .12779,
1382 + .03727, .21769, .31262,
1383 + .27192, .14616, 4.19714, .29126, .13783,
1384 + .05168, .22730, .32165,
1385 + .27659, .14825, 4.28545, .29867, .14650,
1386 + .06356, .23559, .32941 /
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 + .28115, .15026, 4.36289, .30578, .15489,
1389 + .07460, .24358, .33686,
1390 + .28480, .15185, 4.41742, .31137, .16151,
1391 + .08301, .24988, .34270,
1392 + .28907, .15370, 4.47257, .31775, .16916,
1393 + .09256, .25711, .34938,
1394 + .29272, .15526, 4.51355, .32312, .17566,
1395 + .10067, .26322, .35499,
1396 + .29598, .15664, 4.54509, .32782, .18141,
1397 + .10782, .26859, .35990,
1398 + .29994, .15830, 4.57389, .33333, .18825,
1399 + .11622, .27494, .36565,
1400 + .30354, .15979, 4.59372, .33821, .19439,
1401 + .12382, .28059, .37074,
1402 + .30682, .16113, 4.60719, .34255, .19995,
1403 + .13072, .28565, .37527 /
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 + .30995, .16238, 4.61179, .34649, .20506,
1406 + .13705, .29028, .37936,
1407 + .31292, .16356, 4.61240, .35013, .20990,
1408 + .14309, .29461, .38316,
1409 + .31565, .16463, 4.60892, .35337, .21427,
1410 + .14858, .29849, .38654,
1411 + .31812, .16558, 4.60061, .35616, .21811,
1412 + .15342, .30187, .38944,
1413 + .32055, .16651, 4.59068, .35886, .22190,
1414 + .15822, .30516, .39225,
1415 + .32283, .16737, 4.57579, .36123, .22530,
1416 + .16256, .30809, .39470,
1417 + .32497, .16817, 4.56108, .36342, .22851,
1418 + .16668, .31082, .39698,
1419 + .32690, .16887, 4.54302, .36524, .23128,
1420 + .17026, .31314, .39887 /
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 + .32882, .16957, 4.52433, .36703, .23403,
1423 + .17384, .31543, .40072,
1424 + .33064, .17021, 4.50308, .36860, .23655,
1425 + .17715, .31749, .40235,
1426 + .33234, .17081, 4.48156, .37000, .23886,
1427 + .18021, .31935, .40380,
1428 + .33392, .17136, 4.46035, .37126, .24098,
1429 + .18304, .32105, .40510,
1430 + .33544, .17187, 4.43638, .37235, .24294,
1431 + .18568, .32258, .40623 /
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 + .25160, .14178, 1.76492, .16524, .00000,
1434 + .00000, .09566, .19638,
1435 + .25788, .14473, 1.94915, .17146, .00290,
1436 + .00000, .10290, .20315,
1437 + .26674, .14886, 2.18475, .18034, .01903,
1438 + .00000, .11322, .21277,
1439 + .27294, .15170, 2.34248, .18663, .02862,
1440 + .00000, .12055, .21957,
1441 + .27917, .15452, 2.49081, .19296, .03785,
1442 + .00000, .12793, .22638,
1443 + .28431, .15681, 2.60583, .19820, .04521,
1444 + .00000, .13405, .23200,
1445 + .28909, .15893, 2.70809, .20307, .05208,
1446 + .00000, .13976, .23722,
1447 + .29400, .16108, 2.80822, .20807, .05910,
1448 + .00000, .14565, .24256 /
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 + .29810, .16285, 2.88587, .21223, .06473,
1451 + .00000, .15054, .24699,
1452 + .30193, .16448, 2.95436, .21608, .06995,
1453 + .00000, .15511, .25110,
1454 + .30491, .16574, 3.00576, .21908, .07403,
1455 + .00000, .15865, .25429,
1456 + .31098, .16828, 3.09335, .22512, .08215,
1457 + .00152, .16585, .26069,
1458 + .31595, .17031, 3.14509, .22995, .08863,
1459 + .01395, .17165, .26579,
1460 + .32127, .17246, 3.19281, .23500, .09548,
1461 + .02684, .17777, .27112,
1462 + .32652, .17453, 3.23302, .23985, .10214,
1463 + .03696, .18370, .27622,
1464 + .33104, .17628, 3.26093, .24389, .10781,
1465 + .04518, .18871, .28047 /
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 + .33539, .17793, 3.28167, .24767, .11320,
1468 + .05273, .19343, .28443,
1469 + .33884, .17921, 3.29294, .25055, .11740,
1470 + .05840, .19708, .28743,
1471 + .34280, .18065, 3.29987, .25373, .12217,
1472 + .06476, .20118, .29075,
1473 + .34616, .18184, 3.30132, .25633, .12617,
1474 + .07011, .20457, .29344,
1475 + .34913, .18287, 3.29908, .25853, .12967,
1476 + .07477, .20750, .29573,
1477 + .35266, .18405, 3.28985, .26100, .13376,
1478 + .08018, .21086, .29827,
1479 + .35582, .18509, 3.27706, .26309, .13737,
1480 + .08501, .21377, .30040,
1481 + .35866, .18600, 3.26232, .26488, .14059,
1482 + .08936, .21632, .30223 /
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 + .36130, .18681, 3.24274, .26637, .14350,
1485 + .09328, .21856, .30374,
1486 + .36378, .18754, 3.22159, .26770, .14620,
1487 + .09699, .22060, .30507,
1488 + .36603, .18819, 3.19948, .26880, .14861,
1489 + .10033, .22237, .30616,
1490 + .36801, .18873, 3.17598, .26965, .15068,
1491 + .10323, .22384, .30700,
1492 + .36996, .18924, 3.15182, .27044, .15270,
1493 + .10609, .22524, .30777,
1494 + .37172, .18969, 3.12540, .27103, .15447,
1495 + .10863, .22641, .30831,
1496 + .37337, .19009, 3.10033, .27155, .15612,
1497 + .11104, .22749, .30879,
1498 + .37481, .19041, 3.07441, .27186, .15751,
1499 + .11308, .22832, .30906 /
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 + .37623, .19072, 3.04831, .27215, .15887,
1502 + .11512, .22913, .30930,
1503 + .37754, .19098, 3.02120, .27232, .16008,
1504 + .11698, .22979, .30941,
1505 + .37874, .19121, 2.99490, .27241, .16117,
1506 + .11868, .23036, .30943,
1507 + .37984, .19141, 2.96974, .27245, .16215,
1508 + .12024, .23085, .30941,
1509 + .38086, .19156, 2.94304, .27237, .16303,
1510 + .12167, .23122, .30927 /
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 + .29652, .16766, 1.76359, .15602, .00000,
1513 + .00000, .09174, .19344,
1514 + .30308, .17048, 1.88891, .16054, .00243,
1515 + .00000, .09737, .19840,
1516 + .31223, .17434, 2.04221, .16684, .01570,
1517 + .00000, .10526, .20525,
1518 + .31859, .17697, 2.14236, .17122, .02347,
1519 + .00000, .11077, .20999,
1520 + .32490, .17952, 2.23414, .17554, .03083,
1521 + .00000, .11624, .21465,
1522 + .33005, .18158, 2.30340, .17906, .03663,
1523 + .00000, .12072, .21841,
1524 + .33481, .18344, 2.36351, .18228, .04199,
1525 + .00000, .12485, .22184,
1526 + .33966, .18530, 2.42089, .18554, .04742,
1527 + .00000, .12905, .22530 /
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 + .34368, .18680, 2.46394, .18819, .05173,
1530 + .00000, .13251, .22812,
1531 + .34740, .18818, 2.50071, .19062, .05570,
1532 + .00000, .13571, .23068,
1533 + .35026, .18924, 2.52768, .19249, .05878,
1534 + .00000, .13817, .23264,
1535 + .35605, .19130, 2.56855, .19619, .06485,
1536 + .00121, .14310, .23649,
1537 + .36074, .19291, 2.58574, .19904, .06963,
1538 + .01071, .14699, .23945,
1539 + .36566, .19455, 2.59818, .20195, .07463,
1540 + .02052, .15103, .24245,
1541 + .37045, .19609, 2.60525, .20465, .07943,
1542 + .02813, .15487, .24519,
1543 + .37452, .19735, 2.60618, .20680, .08347,
1544 + .03426, .15804, .24737 /
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 + .37837, .19849, 2.60237, .20874, .08727,
1547 + .03982, .16097, .24930,
1548 + .38136, .19934, 2.59546, .21015, .09019,
1549 + .04397, .16318, .25068,
1550 + .38476, .20024, 2.58283, .21162, .09347,
1551 + .04858, .16560, .25210,
1552 + .38758, .20095, 2.56881, .21275, .09620,
1553 + .05242, .16756, .25317,
1554 + .39003, .20153, 2.55384, .21366, .09856,
1555 + .05575, .16921, .25402,
1556 + .39288, .20216, 2.53084, .21456, .10127,
1557 + .05957, .17103, .25481,
1558 + .39537, .20266, 2.50688, .21525, .10363,
1559 + .06295, .17255, .25536,
1560 + .39757, .20306, 2.48299, .21577, .10571,
1561 + .06598, .17384, .25576 /
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 + .39955, .20335, 2.45605, .21606, .10756,
1564 + .06867, .17489, .25591,
1565 + .40137, .20359, 2.42876, .21625, .10925,
1566 + .07120, .17580, .25596,
1567 + .40298, .20376, 2.40191, .21633, .11073,
1568 + .07345, .17656, .25590,
1569 + .40434, .20385, 2.37514, .21627, .11198,
1570 + .07539, .17712, .25569,
1571 + .40564, .20393, 2.34819, .21617, .11319,
1572 + .07729, .17763, .25544,
1573 + .40678, .20392, 2.32004, .21593, .11421,
1574 + .07895, .17798, .25503,
1575 + .40782, .20390, 2.29357, .21568, .11516,
1576 + .08052, .17829, .25463,
1577 + .40868, .20382, 2.26731, .21531, .11593,
1578 + .08183, .17845, .25411 /
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 + .40951, .20373, 2.24110, .21493, .11667,
1581 + .08313, .17857, .25356,
1582 + .41022, .20359, 2.21453, .21447, .11731,
1583 + .08430, .17861, .25294,
1584 + .41085, .20344, 2.18908, .21399, .11787,
1585 + .08536, .17861, .25231,
1586 + .41141, .20328, 2.16498, .21351, .11837,
1587 + .08632, .17857, .25168,
1588 + .41187, .20307, 2.13995, .21295, .11878,
1589 + .08719, .17844, .25094 /
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 + .37568, .21057, 1.56740, .13935, .00000,
1592 + .00000, .08450, .18629,
1593 + .38206, .21265, 1.62461, .14142, .00176,
1594 + .00000, .08783, .18845,
1595 + .39071, .21538, 1.68832, .14424, .01107,
1596 + .00000, .09240, .19126,
1597 + .39658, .21714, 1.72845, .14612, .01645,
1598 + .00000, .09552, .19312,
1599 + .40228, .21876, 1.76341, .14790, .02147,
1600 + .00000, .09856, .19482,
1601 + .40684, .21997, 1.78820, .14928, .02538,
1602 + .00000, .10100, .19612,
1603 + .41096, .22102, 1.80849, .15050, .02896,
1604 + .00000, .10320, .19723,
1605 + .41507, .22202, 1.82652, .15169, .03255,
1606 + .00000, .10540, .19829 /
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 + .41838, .22276, 1.83849, .15262, .03536,
1609 + .00000, .10718, .19907,
1610 + .42138, .22339, 1.84748, .15342, .03792,
1611 + .00000, .10879, .19972,
1612 + .42367, .22385, 1.85344, .15402, .03990,
1613 + .00000, .11002, .20019,
1614 + .42815, .22463, 1.85590, .15509, .04374,
1615 + .00084, .11239, .20100,
1616 + .43161, .22513, 1.84686, .15581, .04672,
1617 + .00700, .11419, .20144,
1618 + .43511, .22553, 1.83355, .15645, .04979,
1619 + .01334, .11598, .20174,
1620 + .43834, .22576, 1.81726, .15690, .05269,
1621 + .01818, .11760, .20182,
1622 + .44094, .22584, 1.80000, .15713, .05508,
1623 + .02202, .11885, .20169 /
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 + .44326, .22578, 1.78045, .15722, .05729,
1626 + .02547, .11995, .20141,
1627 + .44497, .22564, 1.76248, .15717, .05896,
1628 + .02800, .12071, .20105,
1629 + .44675, .22534, 1.73872, .15697, .06080,
1630 + .03078, .12145, .20046,
1631 + .44811, .22501, 1.71651, .15670, .06229,
1632 + .03307, .12199, .19983,
1633 + .44921, .22464, 1.69531, .15638, .06356,
1634 + .03504, .12240, .19917,
1635 + .45031, .22406, 1.66660, .15583, .06498,
1636 + .03725, .12275, .19817,
1637 + .45114, .22343, 1.63874, .15523, .06619,
1638 + .03918, .12295, .19714,
1639 + .45178, .22279, 1.61223, .15459, .06723,
1640 + .04088, .12306, .19611 /
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 + .45216, .22205, 1.58441, .15385, .06811,
1643 + .04237, .12303, .19495,
1644 + .45241, .22129, 1.55707, .15307, .06890,
1645 + .04375, .12294, .19377,
1646 + .45253, .22052, 1.53097, .15228, .06956,
1647 + .04496, .12278, .19259,
1648 + .45248, .21973, 1.50582, .15146, .07010,
1649 + .04598, .12255, .19141,
1650 + .45238, .21893, 1.48084, .15062, .07060,
1651 + .04697, .12228, .19020,
1652 + .45210, .21807, 1.45567, .14972, .07098,
1653 + .04781, .12193, .18893,
1654 + .45181, .21726, 1.43220, .14886, .07133,
1655 + .04859, .12159, .18772,
1656 + .45139, .21643, 1.40951, .14799, .07158,
1657 + .04923, .12119, .18651 /
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 + .45095, .21559, 1.38702, .14710, .07181,
1660 + .04985, .12077, .18530,
1661 + .45041, .21473, 1.36465, .14618, .07199,
1662 + .05040, .12031, .18406,
1663 + .44984, .21388, 1.34347, .14529, .07212,
1664 + .05088, .11984, .18285,
1665 + .44926, .21307, 1.32358, .14443, .07223,
1666 + .05131, .11938, .18170,
1667 + .44857, .21221, 1.30327, .14353, .07228,
1668 + .05168, .11887, .18049 /
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 + .44473, .24386, 1.28592, .12337, .00000,
1671 + .00000, .07717, .17615,
1672 + .45013, .24487, 1.31605, .12399, .00134,
1673 + .00000, .07906, .17642,
1674 + .45725, .24598, 1.34699, .12475, .00830,
1675 + .00000, .08163, .17661,
1676 + .46193, .24655, 1.36616, .12520, .01230,
1677 + .00000, .08336, .17664,
1678 + .46626, .24695, 1.38210, .12558, .01602,
1679 + .00000, .08501, .17652,
1680 + .46962, .24712, 1.39253, .12582, .01889,
1681 + .00000, .08630, .17633,
1682 + .47255, .24716, 1.40032, .12599, .02151,
1683 + .00000, .08745, .17607,
1684 + .47537, .24709, 1.40633, .12611, .02411,
1685 + .00000, .08857, .17572 /
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 + .47754, .24691, 1.40915, .12615, .02613,
1688 + .00000, .08945, .17535,
1689 + .47941, .24667, 1.41011, .12613, .02796,
1690 + .00000, .09022, .17493,
1691 + .48079, .24645, 1.41009, .12610, .02937,
1692 + .00000, .09080, .17457,
1693 + .48329, .24579, 1.40273, .12592, .03207,
1694 + .00064, .09186, .17367,
1695 + .48503, .24506, 1.38832, .12561, .03415,
1696 + .00501, .09260, .17277,
1697 + .48658, .24410, 1.37016, .12518, .03625,
1698 + .00951, .09328, .17164,
1699 + .48775, .24296, 1.34982, .12460, .03820,
1700 + .01290, .09381, .17032,
1701 + .48847, .24179, 1.32981, .12397, .03979,
1702 + .01556, .09414, .16902 /
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 + .48890, .24052, 1.30830, .12325, .04124,
1705 + .01792, .09436, .16763,
1706 + .48901, .23938, 1.28936, .12258, .04231,
1707 + .01964, .09443, .16641,
1708 + .48885, .23793, 1.26519, .12169, .04346,
1709 + .02150, .09442, .16483,
1710 + .48851, .23658, 1.24316, .12085, .04438,
1711 + .02302, .09433, .16338,
1712 + .48805, .23529, 1.22254, .12004, .04515,
1713 + .02430, .09418, .16203,
1714 + .48718, .23355, 1.19528, .11893, .04598,
1715 + .02573, .09388, .16022,
1716 + .48618, .23187, 1.16932, .11784, .04667,
1717 + .02696, .09352, .15849,
1718 + .48510, .23026, 1.14498, .11678, .04724,
1719 + .02803, .09313, .15684 /
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 + .48377, .22859, 1.11989, .11567, .04769,
1722 + .02895, .09266, .15512,
1723 + .48237, .22692, 1.09550, .11455, .04808,
1724 + .02978, .09215, .15342,
1725 + .48093, .22532, 1.07248, .11347, .04839,
1726 + .03050, .09163, .15180,
1727 + .47943, .22376, 1.05056, .11242, .04862,
1728 + .03110, .09109, .15023,
1729 + .47788, .22220, 1.02895, .11136, .04882,
1730 + .03167, .09053, .14866,
1731 + .47618, .22062, 1.00742, .11027, .04894,
1732 + .03214, .08992, .14707,
1733 + .47457, .21912, .98745, .10925, .04905,
1734 + .03257, .08935, .14559,
1735 + .47289, .21766, .96836, .10825, .04909,
1736 + .03291, .08875, .14414 /
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 + .47119, .21620, .94953, .10725, .04912,
1739 + .03324, .08815, .14269,
1740 + .46942, .21473, .93097, .10624, .04911,
1741 + .03351, .08753, .14124,
1742 + .46769, .21331, .91351, .10527, .04908,
1743 + .03374, .08692, .13987,
1744 + .46603, .21198, .89719, .10435, .04904,
1745 + .03395, .08634, .13856,
1746 + .46425, .21060, .88066, .10339, .04896,
1747 + .03411, .08572, .13723 /
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 + .50528, .26906, 1.02241, .10802, .00000,
1750 + .00000, .06967, .16353,
1751 + .50914, .26884, 1.04632, .10781, .00109,
1752 + .00000, .07070, .16257,
1753 + .51395, .26814, 1.07099, .10743, .00665,
1754 + .00000, .07206, .16108,
1755 + .51690, .26743, 1.08614, .10712, .00983,
1756 + .00000, .07296, .15996,
1757 + .51941, .26650, 1.09843, .10675, .01277,
1758 + .00000, .07378, .15873,
1759 + .52117, .26553, 1.10608, .10637, .01502,
1760 + .00000, .07441, .15763,
1761 + .52255, .26452, 1.11137, .10598, .01705,
1762 + .00000, .07494, .15653,
1763 + .52373, .26336, 1.11493, .10554, .01907,
1764 + .00000, .07545, .15534 /
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 + .52446, .26225, 1.11583, .10513, .02062,
1767 + .00000, .07581, .15428,
1768 + .52494, .26112, 1.11508, .10469, .02201,
1769 + .00000, .07610, .15323,
1770 + .52523, .26019, 1.11379, .10433, .02307,
1771 + .00000, .07630, .15240,
1772 + .52538, .25810, 1.10482, .10350, .02510,
1773 + .00050, .07663, .15052,
1774 + .52511, .25617, 1.09037, .10272, .02662,
1775 + .00381, .07678, .14884,
1776 + .52442, .25390, 1.07233, .10176, .02815,
1777 + .00720, .07683, .14693,
1778 + .52329, .25143, 1.05222, .10069, .02955,
1779 + .00972, .07676, .14487,
1780 + .52194, .24912, 1.03264, .09967, .03066,
1781 + .01167, .07660, .14293 /
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 + .52027, .24674, 1.01181, .09861, .03165,
1784 + .01339, .07635, .14094,
1785 + .51868, .24471, .99365, .09766, .03236,
1786 + .01462, .07607, .13927,
1787 + .51651, .24215, .97069, .09646, .03312,
1788 + .01594, .07566, .13721,
1789 + .51442, .23987, .94997, .09538, .03370,
1790 + .01700, .07523, .13539,
1791 + .51235, .23776, .93074, .09438, .03418,
1792 + .01789, .07480, .13370,
1793 + .50946, .23504, .90559, .09306, .03466,
1794 + .01887, .07419, .13152,
1795 + .50660, .23245, .88185, .09180, .03505,
1796 + .01970, .07356, .12946,
1797 + .50382, .23001, .85976, .09061, .03535,
1798 + .02041, .07294, .12754 /
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 + .50081, .22754, .83725, .08938, .03556,
1801 + .02100, .07226, .12560,
1802 + .49779, .22512, .81552, .08817, .03573,
1803 + .02153, .07157, .12371,
1804 + .49485, .22283, .79515, .08703, .03586,
1805 + .02198, .07090, .12193,
1806 + .49196, .22063, .77593, .08592, .03591,
1807 + .02234, .07023, .12024,
1808 + .48906, .21845, .75707, .08482, .03595,
1809 + .02268, .06956, .11856,
1810 + .48603, .21628, .73845, .08373, .03593,
1811 + .02295, .06886, .11688,
1812 + .48316, .21424, .72127, .08271, .03591,
1813 + .02319, .06820, .11531,
1814 + .48033, .21228, .70496, .08172, .03585,
1815 + .02337, .06754, .11381 /
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 + .47748, .21033, .68895, .08073, .03578,
1818 + .02354, .06689, .11232,
1819 + .47460, .20838, .67327, .07974, .03568,
1820 + .02367, .06623, .11086,
1821 + .47184, .20653, .65859, .07880, .03557,
1822 + .02378, .06559, .10947,
1823 + .46920, .20478, .64493, .07792, .03546,
1824 + .02387, .06498, .10817,
1825 + .46644, .20300, .63119, .07702, .03532,
1826 + .02392, .06434, .10683 /
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 + .56968, .29085, .77506, .09007, .00000,
1829 + .00000, .06033, .14556,
1830 + .57112, .28899, .80237, .08938, .00091,
1831 + .00000, .06078, .14374,
1832 + .57228, .28600, .83157, .08836, .00544,
1833 + .00000, .06129, .14106,
1834 + .57259, .28366, .84886, .08760, .00800,
1835 + .00000, .06161, .13914,
1836 + .57237, .28105, .86237, .08679, .01033,
1837 + .00000, .06187, .13715,
1838 + .57174, .27873, .87040, .08607, .01209,
1839 + .00000, .06203, .13541,
1840 + .57087, .27644, .87570, .08538, .01367,
1841 + .00000, .06213, .13374,
1842 + .56970, .27398, .87894, .08464, .01520,
1843 + .00000, .06218, .13198 /
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 + .56842, .27175, .87928, .08395, .01637,
1846 + .00000, .06217, .13045,
1847 + .56698, .26957, .87786, .08327, .01740,
1848 + .00000, .06213, .12898,
1849 + .56576, .26784, .87599, .08274, .01819,
1850 + .00000, .06209, .12782,
1851 + .56273, .26410, .86627, .08158, .01965,
1852 + .00039, .06189, .12533,
1853 + .55977, .26080, .85195, .08051, .02073,
1854 + .00284, .06162, .12318,
1855 + .55614, .25706, .83407, .07929, .02178,
1856 + .00535, .06125, .12076,
1857 + .55202, .25314, .81409, .07799, .02272,
1858 + .00717, .06078, .11824,
1859 + .54802, .24956, .79476, .07678, .02343,
1860 + .00857, .06028, .11596 /
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 + .54377, .24594, .77439, .07554, .02405,
1863 + .00977, .05972, .11367,
1864 + .54005, .24295, .75680, .07449, .02448,
1865 + .01063, .05922, .11177,
1866 + .53535, .23928, .73484, .07321, .02491,
1867 + .01153, .05855, .10947,
1868 + .53109, .23605, .71524, .07206, .02523,
1869 + .01224, .05792, .10746,
1870 + .52710, .23310, .69722, .07099, .02547,
1871 + .01283, .05734, .10564,
1872 + .52184, .22934, .67395, .06963, .02568,
1873 + .01345, .05654, .10333,
1874 + .51679, .22584, .65225, .06835, .02583,
1875 + .01397, .05576, .10118,
1876 + .51201, .22260, .63226, .06716, .02593,
1877 + .01440, .05503, .09919 /
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 + .50706, .21935, .61215, .06596, .02596,
1880 + .01476, .05425, .09720,
1881 + .50219, .21620, .59292, .06480, .02596,
1882 + .01506, .05349, .09529,
1883 + .49755, .21324, .57507, .06370, .02594,
1884 + .01531, .05275, .09351,
1885 + .49309, .21046, .55840, .06266, .02588,
1886 + .01550, .05205, .09184,
1887 + .48863, .20770, .54214, .06164, .02580,
1888 + .01568, .05134, .09019,
1889 + .48414, .20498, .52626, .06062, .02569,
1890 + .01580, .05063, .08857,
1891 + .47992, .20245, .51167, .05967, .02558,
1892 + .01591, .04997, .08707,
1893 + .47584, .20003, .49799, .05876, .02545,
1894 + .01598, .04932, .08565 /
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 + .47176, .19763, .48464, .05787, .02531,
1897 + .01605, .04867, .08425,
1898 + .46769, .19526, .47165, .05698, .02516,
1899 + .01608, .04803, .08287,
1900 + .46380, .19303, .45956, .05614, .02500,
1901 + .01611, .04742, .08157,
1902 + .46013, .19094, .44838, .05535, .02485,
1903 + .01612, .04685, .08036,
1904 + .45635, .18881, .43724, .05456, .02468,
1905 + .01611, .04625, .07914 /
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 + .62178, .30339, .62837, .07391, .00000,
1908 + .00000, .05136, .12662,
1909 + .62038, .29996, .65964, .07308, .00079,
1910 + .00000, .05151, .12442,
1911 + .61744, .29475, .69237, .07186, .00468,
1912 + .00000, .05163, .12122,
1913 + .61480, .29088, .71055, .07099, .00683,
1914 + .00000, .05168, .11893,
1915 + .61154, .28675, .72362, .07004, .00875,
1916 + .00000, .05163, .11660,
1917 + .60838, .28315, .73054, .06921, .01017,
1918 + .00000, .05154, .11460,
1919 + .60512, .27970, .73440, .06841, .01142,
1920 + .00000, .05141, .11270,
1921 + .60147, .27604, .73579, .06755, .01263,
1922 + .00000, .05124, .11071 /
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 + .59806, .27285, .73430, .06679, .01352,
1925 + .00000, .05105, .10899,
1926 + .59462, .26976, .73107, .06606, .01431,
1927 + .00000, .05083, .10735,
1928 + .59184, .26733, .72775, .06549, .01489,
1929 + .00000, .05063, .10607,
1930 + .58563, .26213, .71538, .06421, .01596,
1931 + .00032, .05017, .10337,
1932 + .57996, .25768, .69950, .06309, .01672,
1933 + .00219, .04969, .10105,
1934 + .57341, .25272, .68010, .06182, .01744,
1935 + .00409, .04910, .09849,
1936 + .56637, .24760, .65879, .06049, .01805,
1937 + .00546, .04843, .09587,
1938 + .55982, .24300, .63863, .05926, .01850,
1939 + .00648, .04778, .09351 /
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 + .55308, .23843, .61778, .05803, .01886,
1942 + .00735, .04708, .09118,
1943 + .54738, .23465, .60008, .05700, .01910,
1944 + .00795, .04647, .08927,
1945 + .54035, .23012, .57838, .05575, .01931,
1946 + .00857, .04571, .08697,
1947 + .53410, .22616, .55930, .05465, .01945,
1948 + .00906, .04502, .08499,
1949 + .52837, .22257, .54196, .05363, .01954,
1950 + .00945, .04437, .08322,
1951 + .52094, .21806, .51995, .05236, .01958,
1952 + .00986, .04353, .08097,
1953 + .51394, .21389, .49971, .05117, .01958,
1954 + .01018, .04272, .07890,
1955 + .50742, .21007, .48128, .05008, .01956,
1956 + .01045, .04196, .07702 /
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 + .50078, .20627, .46302, .04899, .01948,
1959 + .01066, .04118, .07516,
1960 + .49433, .20261, .44575, .04793, .01939,
1961 + .01083, .04043, .07337,
1962 + .48826, .19919, .42989, .04694, .01928,
1963 + .01096, .03972, .07172,
1964 + .48247, .19600, .41525, .04602, .01916,
1965 + .01105, .03905, .07018,
1966 + .47673, .19287, .40107, .04511, .01903,
1967 + .01113, .03838, .06867,
1968 + .47102, .18980, .38738, .04422, .01887,
1969 + .01118, .03771, .06720,
1970 + .46569, .18694, .37488, .04339, .01872,
1971 + .01122, .03709, .06584,
1972 + .46059, .18424, .36327, .04260, .01856,
1973 + .01123, .03649, .06457 /
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 + .45552, .18156, .35199, .04183, .01840,
1976 + .01124, .03590, .06332,
1977 + .45049, .17895, .34112, .04107, .01822,
1978 + .01123, .03531, .06209,
1979 + .44571, .17649, .33107, .04036, .01805,
1980 + .01121, .03476, .06095,
1981 + .44122, .17419, .32184, .03969, .01789,
1982 + .01119, .03424, .05988,
1983 + .43666, .17187, .31269, .03901, .01771,
1984 + .01115, .03372, .05881 /
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 + .66183, .30812, .56250, .05971, .00000,
1987 + .00000, .04302, .10791,
1988 + .65737, .30328, .59310, .05893, .00071,
1989 + .00000, .04303, .10563,
1990 + .65004, .29611, .62267, .05777, .00410,
1991 + .00000, .04296, .10229,
1992 + .64431, .29092, .63743, .05692, .00593,
1993 + .00000, .04284, .09993,
1994 + .63795, .28546, .64617, .05599, .00752,
1995 + .00000, .04262, .09750,
1996 + .63218, .28079, .64907, .05519, .00868,
1997 + .00000, .04240, .09543,
1998 + .62652, .27635, .64901, .05441, .00969,
1999 + .00000, .04216, .09348,
2000 + .62039, .27169, .64630, .05357, .01063,
2001 + .00000, .04186, .09146 /
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 + .61490, .26768, .64138, .05283, .01132,
2004 + .00000, .04157, .08975,
2005 + .60950, .26385, .63499, .05211, .01191,
2006 + .00000, .04125, .08810,
2007 + .60521, .26085, .62926, .05155, .01235,
2008 + .00000, .04099, .08681,
2009 + .59591, .25449, .61251, .05032, .01312,
2010 + .00026, .04038, .08413,
2011 + .58767, .24914, .59383, .04926, .01364,
2012 + .00170, .03982, .08183,
2013 + .57839, .24322, .57185, .04806, .01412,
2014 + .00317, .03914, .07932,
2015 + .56868, .23716, .54847, .04679, .01451,
2016 + .00420, .03839, .07680,
2017 + .55981, .23179, .52697, .04565, .01477,
2018 + .00495, .03767, .07456 /
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 + .55082, .22650, .50528, .04451, .01495,
2021 + .00559, .03694, .07234,
2022 + .54334, .22218, .48728, .04357, .01506,
2023 + .00602, .03631, .07054,
2024 + .53428, .21702, .46565, .04242, .01513,
2025 + .00645, .03553, .06841,
2026 + .52630, .21255, .44696, .04143, .01515,
2027 + .00679, .03484, .06657,
2028 + .51903, .20854, .43023, .04053, .01515,
2029 + .00705, .03421, .06492,
2030 + .50976, .20352, .40936, .03939, .01509,
2031 + .00731, .03339, .06287,
2032 + .50113, .19892, .39048, .03834, .01501,
2033 + .00752, .03262, .06100,
2034 + .49315, .19471, .37350, .03738, .01491,
2035 + .00768, .03192, .05930 /
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 + .48515, .19055, .35695, .03641, .01478,
2038 + .00779, .03119, .05764,
2039 + .47742, .18658, .34146, .03550, .01465,
2040 + .00788, .03050, .05605,
2041 + .47016, .18290, .32735, .03466, .01450,
2042 + .00795, .02985, .05458,
2043 + .46333, .17948, .31449, .03387, .01435,
2044 + .00799, .02924, .05323,
2045 + .45660, .17612, .30213, .03309, .01419,
2046 + .00801, .02864, .05192,
2047 + .44994, .17286, .29035, .03234, .01402,
2048 + .00802, .02805, .05064,
2049 + .44373, .16984, .27965, .03164, .01385,
2050 + .00802, .02750, .04946,
2051 + .43785, .16699, .26983, .03098, .01369,
2052 + .00800, .02697, .04837 /
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 + .43204, .16418, .26033, .03033, .01352,
2055 + .00798, .02645, .04730,
2056 + .42630, .16145, .25125, .02971, .01335,
2057 + .00795, .02595, .04626,
2058 + .42088, .15888, .24292, .02913, .01319,
2059 + .00792, .02548, .04527,
2060 + .41579, .15649, .23529, .02858, .01303,
2061 + .00788, .02504, .04436,
2062 + .41066, .15408, .22781, .02802, .01286,
2063 + .00783, .02459, .04347 /
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 + .69011, .30639, .54930, .04754, .00000,
2066 + .00000, .03544, .09024,
2067 + .68256, .30030, .57361, .04687, .00063,
2068 + .00000, .03540, .08804,
2069 + .67085, .29146, .59314, .04585, .00357,
2070 + .00000, .03525, .08483,
2071 + .66211, .28513, .60038, .04509, .00513,
2072 + .00000, .03505, .08256,
2073 + .65271, .27855, .60145, .04424, .00644,
2074 + .00000, .03479, .08023,
2075 + .64444, .27299, .59811, .04350, .00738,
2076 + .00000, .03450, .07824,
2077 + .63648, .26775, .59244, .04279, .00818,
2078 + .00000, .03420, .07639,
2079 + .62801, .26229, .58418, .04202, .00891,
2080 + .00000, .03385, .07447 /
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 + .62056, .25763, .57487, .04133, .00944,
2083 + .00000, .03351, .07284,
2084 + .61335, .25321, .56464, .04068, .00988,
2085 + .00000, .03317, .07127,
2086 + .60766, .24977, .55611, .04016, .01019,
2087 + .00000, .03289, .07005,
2088 + .59544, .24259, .53445, .03906, .01074,
2089 + .00021, .03223, .06753,
2090 + .58493, .23652, .51265, .03808, .01108,
2091 + .00133, .03164, .06541,
2092 + .57323, .22989, .48799, .03699, .01139,
2093 + .00245, .03094, .06311,
2094 + .56111, .22320, .46265, .03586, .01161,
2095 + .00323, .03019, .06079,
2096 + .55020, .21730, .44003, .03485, .01173,
2097 + .00379, .02950, .05874 /
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 + .53931, .21151, .41777, .03383, .01180,
2100 + .00425, .02879, .05673,
2101 + .53035, .20681, .39971, .03299, .01182,
2102 + .00455, .02820, .05511,
2103 + .51956, .20124, .37842, .03199, .01181,
2104 + .00486, .02746, .05322,
2105 + .51013, .19646, .36035, .03113, .01176,
2106 + .00508, .02681, .05159,
2107 + .50160, .19219, .34444, .03036, .01170,
2108 + .00526, .02622, .05014,
2109 + .49085, .18689, .32492, .02939, .01159,
2110 + .00542, .02548, .04833,
2111 + .48092, .18203, .30751, .02849, .01146,
2112 + .00555, .02479, .04670,
2113 + .47180, .17762, .29205, .02767, .01133,
2114 + .00564, .02416, .04523 /
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 + .46268, .17331, .27722, .02688, .01118,
2117 + .00570, .02353, .04378,
2118 + .45393, .16921, .26347, .02612, .01102,
2119 + .00574, .02292, .04242,
2120 + .44579, .16541, .25109, .02542, .01087,
2121 + .00577, .02235, .04118,
2122 + .43820, .16189, .23993, .02476, .01071,
2123 + .00577, .02182, .04004,
2124 + .43073, .15846, .22929, .02411, .01055,
2125 + .00577, .02130, .03893,
2126 + .42341, .15511, .21926, .02348, .01038,
2127 + .00575, .02079, .03787,
2128 + .41660, .15202, .21021, .02291, .01023,
2129 + .00574, .02032, .03690,
2130 + .41017, .14915, .20197, .02238, .01007,
2131 + .00571, .01988, .03598 /
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 + .40382, .14633, .19404, .02186, .00991,
2134 + .00568, .01944, .03508,
2135 + .39760, .14358, .18653, .02135, .00976,
2136 + .00564, .01901, .03421,
2137 + .39177, .14100, .17967, .02087, .00961,
2138 + .00560, .01862, .03341,
2139 + .38631, .13861, .17344, .02042, .00947,
2140 + .00556, .01825, .03267,
2141 + .38079, .13621, .16737, .01998, .00932,
2142 + .00551, .01788, .03193 /
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 + .70717, .29929, .56250, .03727, .00000,
2145 + .00000, .02876, .07417,
2146 + .69660, .29220, .57622, .03674, .00055,
2147 + .00000, .02871, .07214,
2148 + .68074, .28195, .58096, .03587, .00306,
2149 + .00000, .02851, .06921,
2150 + .66914, .27471, .57827, .03521, .00436,
2151 + .00000, .02830, .06712,
2152 + .65687, .26729, .57000, .03448, .00543,
2153 + .00000, .02801, .06496,
2154 + .64626, .26106, .55947, .03385, .00618,
2155 + .00000, .02772, .06313,
2156 + .63616, .25523, .54760, .03322, .00680,
2157 + .00000, .02740, .06144,
2158 + .62554, .24919, .53351, .03254, .00736,
2159 + .00000, .02703, .05970 /
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 + .61633, .24406, .51983, .03194, .00775,
2162 + .00000, .02669, .05821,
2163 + .60749, .23921, .50591, .03136, .00807,
2164 + .00000, .02634, .05680,
2165 + .60057, .23546, .49476, .03091, .00829,
2166 + .00000, .02605, .05571,
2167 + .58590, .22763, .46869, .02992, .00867,
2168 + .00017, .02542, .05345,
2169 + .57337, .22111, .44430, .02906, .00889,
2170 + .00102, .02485, .05155,
2171 + .55956, .21406, .41764, .02812, .00907,
2172 + .00188, .02419, .04950,
2173 + .54543, .20697, .39110, .02714, .00917,
2174 + .00246, .02349, .04745,
2175 + .53283, .20075, .36805, .02628, .00921,
2176 + .00287, .02285, .04565 /
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 + .52035, .19469, .34583, .02543, .00921,
2179 + .00320, .02220, .04389,
2180 + .51015, .18980, .32819, .02472, .00918,
2181 + .00342, .02166, .04250,
2182 + .49796, .18405, .30777, .02388, .00911,
2183 + .00363, .02100, .04086,
2184 + .48741, .17913, .29072, .02316, .00903,
2185 + .00378, .02042, .03945,
2186 + .47792, .17476, .27592, .02250, .00894,
2187 + .00390, .01991, .03821,
2188 + .46607, .16930, .25805, .02168, .00881,
2189 + .00400, .01926, .03671,
2190 + .45515, .16438, .24233, .02094, .00867,
2191 + .00407, .01866, .03534,
2192 + .44516, .15994, .22852, .02028, .00853,
2193 + .00413, .01811, .03410 /
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 + .43529, .15558, .21547, .01963, .00837,
2196 + .00415, .01757, .03290,
2197 + .42587, .15145, .20350, .01901, .00822,
2198 + .00416, .01705, .03176,
2199 + .41714, .14766, .19284, .01845, .00807,
2200 + .00417, .01657, .03072,
2201 + .40902, .14415, .18330, .01791, .00792,
2202 + .00416, .01613, .02980,
2203 + .40107, .14074, .17427, .01738, .00778,
2204 + .00414, .01569, .02890,
2205 + .39329, .13745, .16586, .01689, .00763,
2206 + .00412, .01527, .02802,
2207 + .38609, .13443, .15831, .01644, .00749,
2208 + .00409, .01489, .02721,
2209 + .37934, .13161, .15149, .01602, .00735,
2210 + .00406, .01453, .02647 /
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 + .37268, .12885, .14497, .01560, .00722,
2213 + .00403, .01418, .02575,
2214 + .36618, .12617, .13884, .01520, .00708,
2215 + .00399, .01383, .02505,
2216 + .36008, .12367, .13328, .01484, .00695,
2217 + .00395, .01351, .02439,
2218 + .35440, .12135, .12824, .01450, .00683,
2219 + .00391, .01321, .02380,
2220 + .34871, .11903, .12335, .01414, .00671,
2221 + .00387, .01291, .02321 /
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 + .71368, .28788, .58174, .02877, .00000,
2224 + .00000, .02299, .05996,
2225 + .70028, .28001, .58264, .02835, .00047,
2226 + .00000, .02294, .05816,
2227 + .68049, .26879, .57074, .02768, .00257,
2228 + .00000, .02272, .05551,
2229 + .66625, .26091, .55756, .02715, .00363,
2230 + .00000, .02250, .05364,
2231 + .65140, .25287, .53990, .02654, .00448,
2232 + .00000, .02219, .05175,
2233 + .63873, .24616, .52250, .02600, .00506,
2234 + .00000, .02190, .05012,
2235 + .62676, .23992, .50496, .02547, .00554,
2236 + .00000, .02159, .04862,
2237 + .61427, .23349, .48576, .02489, .00597,
2238 + .00000, .02124, .04709 /
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 + .60351, .22807, .46840, .02439, .00625,
2241 + .00000, .02090, .04578,
2242 + .59327, .22297, .45151, .02390, .00648,
2243 + .00000, .02057, .04455,
2244 + .58530, .21904, .43830, .02351, .00663,
2245 + .00000, .02029, .04361,
2246 + .56852, .21089, .40910, .02268, .00688,
2247 + .00013, .01972, .04162,
2248 + .55433, .20411, .38321, .02197, .00701,
2249 + .00078, .01920, .03998,
2250 + .53884, .19681, .35569, .02117, .00711,
2251 + .00142, .01860, .03822,
2252 + .52312, .18953, .32896, .02035, .00714,
2253 + .00186, .01797, .03647,
2254 + .50921, .18319, .30627, .01963, .00713,
2255 + .00216, .01740, .03494 /
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 + .49553, .17703, .28488, .01892, .00709,
2258 + .00239, .01684, .03348,
2259 + .48440, .17210, .26818, .01833, .00703,
2260 + .00255, .01638, .03230,
2261 + .47120, .16632, .24918, .01766, .00694,
2262 + .00269, .01582, .03092,
2263 + .45984, .16138, .23352, .01706, .00684,
2264 + .00279, .01533, .02976,
2265 + .44970, .15700, .22006, .01650, .00675,
2266 + .00286, .01489, .02875,
2267 + .43700, .15164, .20410, .01587, .00661,
2268 + .00293, .01434, .02748,
2269 + .42543, .14678, .19025, .01528, .00648,
2270 + .00297, .01384, .02635,
2271 + .41493, .14239, .17822, .01474, .00634,
2272 + .00299, .01338, .02534 /
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 + .40460, .13812, .16696, .01421, .00620,
2275 + .00300, .01294, .02437,
2276 + .39475, .13410, .15674, .01373, .00606,
2277 + .00300, .01251, .02345,
2278 + .38564, .13041, .14771, .01330, .00593,
2279 + .00299, .01212, .02262,
2280 + .37725, .12702, .13974, .01286, .00580,
2281 + .00297, .01176, .02187,
2282 + .36907, .12372, .13223, .01242, .00568,
2283 + .00295, .01142, .02115,
2284 + .36110, .12055, .12527, .01204, .00555,
2285 + .00293, .01108, .02046,
2286 + .35374, .11764, .11906, .01169, .00543,
2287 + .00290, .01077, .01982,
2288 + .34683, .11494, .11351, .01137, .00532,
2289 + .00287, .01049, .01922 /
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 + .34005, .11230, .10822, .01106, .00520,
2292 + .00284, .01020, .01864,
2293 + .33344, .10975, .10329, .01075, .00509,
2294 + .00281, .00993, .01810,
2295 + .32727, .10737, .09884, .01046, .00499,
2296 + .00277, .00969, .01760,
2297 + .32153, .10517, .09483, .01020, .00489,
2298 + .00274, .00945, .01714,
2299 + .31579, .10299, .09097, .00994, .00479,
2300 + .00270, .00922, .01669 /
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 + .71006, .27348, .59370, .02215, .00000,
2303 + .00000, .01792, .04750,
2304 + .69414, .26505, .58155, .02182, .00039,
2305 + .00000, .01788, .04594,
2306 + .67101, .25305, .55370, .02124, .00211,
2307 + .00000, .01768, .04370,
2308 + .65448, .24475, .53098, .02081, .00296,
2309 + .00000, .01749, .04206,
2310 + .63746, .23630, .50519, .02027, .00363,
2311 + .00000, .01720, .04046,
2312 + .62303, .22930, .48216, .01981, .00408,
2313 + .00000, .01694, .03907,
2314 + .60949, .22283, .46013, .01937, .00444,
2315 + .00000, .01666, .03778,
2316 + .59545, .21620, .43704, .01889, .00475,
2317 + .00000, .01634, .03647 /
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 + .58346, .21061, .41715, .01847, .00495,
2320 + .00000, .01606, .03535,
2321 + .57210, .20537, .39833, .01805, .00510,
2322 + .00000, .01576, .03431,
2323 + .56330, .20134, .38390, .01771, .00521,
2324 + .00000, .01553, .03352,
2325 + .54480, .19308, .35316, .01705, .00536,
2326 + .00010, .01502, .03184,
2327 + .52935, .18623, .32699, .01645, .00544,
2328 + .00059, .01456, .03048,
2329 + .51261, .17888, .29979, .01577, .00547,
2330 + .00107, .01405, .02903,
2331 + .49573, .17159, .27391, .01509, .00546,
2332 + .00139, .01352, .02758,
2333 + .48088, .16528, .25240, .01450, .00543,
2334 + .00160, .01304, .02632 /
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 + .46636, .15919, .23247, .01391, .00536,
2337 + .00177, .01256, .02513,
2338 + .45463, .15431, .21713, .01345, .00530,
2339 + .00188, .01217, .02416,
2340 + .44076, .14865, .19995, .01291, .00520,
2341 + .00197, .01171, .02303,
2342 + .42887, .14384, .18599, .01245, .00511,
2343 + .00204, .01132, .02208,
2344 + .41829, .13957, .17413, .01203, .00502,
2345 + .00208, .01097, .02124,
2346 + .40521, .13435, .16022, .01149, .00489,
2347 + .00212, .01052, .02025,
2348 + .39330, .12966, .14829, .01102, .00477,
2349 + .00214, .01011, .01936,
2350 + .38249, .12545, .13803, .01059, .00465,
2351 + .00215, .00974, .01857 /
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 + .37196, .12136, .12855, .01019, .00453,
2354 + .00215, .00938, .01778,
2355 + .36196, .11751, .12000, .00980, .00441,
2356 + .00214, .00905, .01705,
2357 + .35275, .11400, .11250, .00945, .00430,
2358 + .00213, .00875, .01641,
2359 + .34424, .11079, .10595, .00914, .00419,
2360 + .00211, .00847, .01583,
2361 + .33595, .10768, .09981, .00884, .00409,
2362 + .00209, .00819, .01526,
2363 + .32795, .10470, .09419, .00855, .00399,
2364 + .00207, .00792, .01472,
2365 + .32059, .10196, .08920, .00828, .00389,
2366 + .00204, .00768, .01423,
2367 + .31373, .09942, .08475, .00802, .00380,
2368 + .00202, .00745, .01377 /
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 + .30701, .09694, .08052, .00777, .00371,
2371 + .00199, .00723, .01332,
2372 + .30048, .09455, .07661, .00754, .00362,
2373 + .00196, .00703, .01291,
2374 + .29440, .09233, .07310, .00732, .00354,
2375 + .00193, .00684, .01253,
2376 + .28875, .09029, .06995, .00712, .00346,
2377 + .00191, .00666, .01218,
2378 + .28310, .08826, .06692, .00693, .00338,
2379 + .00188, .00648, .01183 /
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 + .69798, .25614, .59069, .01652, .00000,
2382 + .00000, .01392, .03721,
2383 + .67983, .24739, .56699, .01628, .00032,
2384 + .00000, .01386, .03588,
2385 + .65375, .23502, .52573, .01585, .00168,
2386 + .00000, .01368, .03394,
2387 + .63530, .22650, .49546, .01548, .00234,
2388 + .00000, .01349, .03259,
2389 + .61638, .21793, .46362, .01510, .00285,
2390 + .00000, .01323, .03119,
2391 + .60054, .21081, .43668, .01472, .00318,
2392 + .00000, .01298, .03004,
2393 + .58575, .20426, .41176, .01435, .00345,
2394 + .00000, .01272, .02898,
2395 + .57046, .19760, .38642, .01397, .00367,
2396 + .00000, .01244, .02789 /
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 + .55746, .19203, .36525, .01364, .00381,
2399 + .00000, .01220, .02694,
2400 + .54521, .18682, .34565, .01332, .00392,
2401 + .00000, .01195, .02606,
2402 + .53575, .18281, .33082, .01306, .00399,
2403 + .00000, .01175, .02538,
2404 + .51616, .17455, .30019, .01248, .00408,
2405 + .00008, .01129, .02407,
2406 + .49981, .16779, .27483, .01200, .00411,
2407 + .00043, .01090, .02295,
2408 + .48211, .16059, .24900, .01150, .00412,
2409 + .00079, .01047, .02175,
2410 + .46442, .15350, .22492, .01098, .00409,
2411 + .00101, .01004, .02055,
2412 + .44897, .14737, .20523, .01051, .00404,
2413 + .00117, .00965, .01953 /
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 + .43395, .14147, .18725, .01004, .00397,
2416 + .00128, .00925, .01857,
2417 + .42186, .13679, .17363, .00969, .00391,
2418 + .00136, .00893, .01781,
2419 + .40769, .13134, .15854, .00925, .00382,
2420 + .00142, .00855, .01692,
2421 + .39558, .12673, .14641, .00887, .00373,
2422 + .00146, .00823, .01618,
2423 + .38481, .12267, .13622, .00856, .00366,
2424 + .00149, .00795, .01552,
2425 + .37155, .11771, .12442, .00817, .00355,
2426 + .00151, .00760, .01472,
2427 + .35956, .11326, .11439, .00783, .00344,
2428 + .00152, .00729, .01402,
2429 + .34875, .10928, .10585, .00751, .00335,
2430 + .00152, .00700, .01339 /
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 + .33822, .10544, .09804, .00718, .00325,
2433 + .00152, .00672, .01281,
2434 + .32827, .10184, .09105, .00688, .00315,
2435 + .00151, .00646, .01225,
2436 + .31914, .09857, .08498, .00663, .00306,
2437 + .00149, .00622, .01175,
2438 + .31074, .09558, .07970, .00639, .00298,
2439 + .00148, .00600, .01129,
2440 + .30258, .09269, .07478, .00617, .00290,
2441 + .00146, .00578, .01086,
2442 + .29476, .08992, .07032, .00594, .00282,
2443 + .00144, .00559, .01045,
2444 + .28757, .08738, .06636, .00572, .00274,
2445 + .00142, .00541, .01008,
2446 + .28086, .08505, .06286, .00554, .00267,
2447 + .00140, .00524, .00974 /
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 + .27429, .08278, .05955, .00537, .00260,
2450 + .00137, .00507, .00941,
2451 + .26793, .08060, .05650, .00521, .00253,
2452 + .00135, .00491, .00909,
2453 + .26202, .07858, .05377, .00506, .00247,
2454 + .00133, .00477, .00879,
2455 + .25656, .07671, .05133, .00492, .00241,
2456 + .00131, .00464, .00852,
2457 + .25114, .07486, .04900, .00476, .00235,
2458 + .00129, .00451, .00826 /
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 + .67791, .23718, .57073, .01220, .00000,
2461 + .00000, .01058, .02862,
2462 + .65793, .22834, .53796, .01203, .00025,
2463 + .00000, .01052, .02750,
2464 + .62943, .21591, .48694, .01172, .00130,
2465 + .00000, .01035, .02588,
2466 + .60948, .20734, .45165, .01142, .00181,
2467 + .00000, .01019, .02477,
2468 + .58918, .19877, .41614, .01109, .00219,
2469 + .00000, .00995, .02365,
2470 + .57223, .19173, .38718, .01081, .00243,
2471 + .00000, .00974, .02268,
2472 + .55650, .18527, .36105, .01052, .00262,
2473 + .00000, .00953, .02180,
2474 + .54036, .17869, .33507, .01021, .00278,
2475 + .00000, .00930, .02092 /
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 + .52670, .17319, .31379, .00995, .00288,
2478 + .00000, .00908, .02017,
2479 + .51389, .16807, .29446, .00968, .00294,
2480 + .00000, .00887, .01946,
2481 + .50403, .16415, .28002, .00947, .00299,
2482 + .00000, .00871, .01893,
2483 + .48360, .15617, .25076, .00905, .00304,
2484 + .00006, .00833, .01782,
2485 + .46670, .14962, .22719, .00866, .00305,
2486 + .00031, .00803, .01694,
2487 + .44854, .14268, .20357, .00824, .00303,
2488 + .00057, .00767, .01602,
2489 + .43046, .13588, .18188, .00785, .00300,
2490 + .00073, .00731, .01508,
2491 + .41475, .13004, .16443, .00750, .00295,
2492 + .00084, .00699, .01427 /
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 + .39954, .12445, .14873, .00715, .00289,
2495 + .00092, .00668, .01351,
2496 + .38739, .12000, .13698, .00687, .00283,
2497 + .00097, .00644, .01290,
2498 + .37313, .11485, .12410, .00655, .00275,
2499 + .00101, .00614, .01224,
2500 + .36104, .11052, .11387, .00627, .00268,
2501 + .00104, .00590, .01165,
2502 + .35038, .10672, .10533, .00603, .00262,
2503 + .00105, .00569, .01111,
2504 + .33727, .10210, .09554, .00573, .00253,
2505 + .00106, .00540, .01052,
2506 + .32544, .09796, .08731, .00545, .00245,
2507 + .00107, .00515, .01000,
2508 + .31479, .09426, .08036, .00521, .00237,
2509 + .00107, .00494, .00953 /
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 + .30447, .09072, .07406, .00500, .00229,
2512 + .00106, .00473, .00908,
2513 + .29475, .08741, .06845, .00479, .00222,
2514 + .00105, .00453, .00866,
2515 + .28589, .08439, .06360, .00458, .00215,
2516 + .00103, .00435, .00829,
2517 + .27777, .08165, .05943, .00440, .00208,
2518 + .00102, .00419, .00796,
2519 + .26988, .07900, .05557, .00423, .00202,
2520 + .00101, .00402, .00764,
2521 + .26232, .07649, .05208, .00408, .00196,
2522 + .00099, .00388, .00732,
2523 + .25537, .07420, .04900, .00395, .00190,
2524 + .00097, .00375, .00703,
2525 + .24895, .07209, .04629, .00381, .00185,
2526 + .00096, .00363, .00677 /
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 + .24267, .07004, .04374, .00367, .00180,
2529 + .00094, .00350, .00652,
2530 + .23662, .06806, .04141, .00355, .00175,
2531 + .00092, .00339, .00629,
2532 + .23101, .06623, .03933, .00343, .00170,
2533 + .00091, .00328, .00609,
2534 + .22582, .06454, .03747, .00332, .00166,
2535 + .00089, .00318, .00590,
2536 + .22068, .06288, .03570, .00321, .00162,
2537 + .00088, .00308, .00571 /
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 + .65096, .21717, .53475, .00884, .00000,
2540 + .00000, .00795, .02163,
2541 + .62958, .20838, .49592, .00873, .00019,
2542 + .00000, .00789, .02071,
2543 + .59938, .19604, .43921, .00843, .00098,
2544 + .00000, .00771, .01946,
2545 + .57838, .18759, .40141, .00821, .00136,
2546 + .00000, .00759, .01853,
2547 + .55703, .17926, .36471, .00797, .00164,
2548 + .00000, .00738, .01763,
2549 + .53938, .17239, .33547, .00773, .00181,
2550 + .00000, .00720, .01687,
2551 + .52306, .16610, .30962, .00752, .00194,
2552 + .00000, .00702, .01617,
2553 + .50637, .15975, .28436, .00729, .00205,
2554 + .00000, .00682, .01546 /
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 + .49231, .15447, .26401, .00710, .00212,
2557 + .00000, .00665, .01484,
2558 + .47916, .14956, .24579, .00690, .00216,
2559 + .00000, .00647, .01430,
2560 + .46907, .14582, .23233, .00674, .00218,
2561 + .00000, .00632, .01389,
2562 + .44828, .13818, .20553, .00642, .00221,
2563 + .00005, .00604, .01302,
2564 + .43118, .13198, .18440, .00613, .00221,
2565 + .00022, .00580, .01231,
2566 + .41288, .12542, .16352, .00583, .00219,
2567 + .00040, .00552, .01158,
2568 + .39479, .11901, .14464, .00552, .00215,
2569 + .00052, .00525, .01085,
2570 + .37915, .11353, .12966, .00525, .00210,
2571 + .00059, .00500, .01023 /
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 + .36405, .10830, .11633, .00499, .00205,
2574 + .00065, .00475, .00966,
2575 + .35201, .10416, .10644, .00480, .00200,
2576 + .00068, .00456, .00918,
2577 + .33800, .09940, .09574, .00455, .00194,
2578 + .00070, .00434, .00867,
2579 + .32617, .09539, .08731, .00434, .00189,
2580 + .00072, .00415, .00825,
2581 + .31577, .09187, .08033, .00414, .00183,
2582 + .00073, .00399, .00788,
2583 + .30298, .08763, .07244, .00393, .00177,
2584 + .00074, .00377, .00742,
2585 + .29151, .08385, .06584, .00374, .00170,
2586 + .00074, .00359, .00702,
2587 + .28124, .08048, .06028, .00358, .00164,
2588 + .00073, .00343, .00667 /
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 + .27128, .07727, .05532, .00343, .00159,
2591 + .00072, .00328, .00632,
2592 + .26197, .07426, .05093, .00327, .00153,
2593 + .00072, .00313, .00601,
2594 + .25353, .07151, .04715, .00310, .00148,
2595 + .00071, .00300, .00575,
2596 + .24579, .06905, .04392, .00297, .00143,
2597 + .00070, .00287, .00550,
2598 + .23828, .06668, .04093, .00287, .00138,
2599 + .00068, .00276, .00525,
2600 + .23112, .06442, .03825, .00275, .00134,
2601 + .00067, .00265, .00503,
2602 + .22457, .06236, .03589, .00264, .00130,
2603 + .00066, .00255, .00484,
2604 + .21848, .06048, .03383, .00256, .00126,
2605 + .00065, .00246, .00465 /
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 + .21254, .05865, .03189, .00249, .00122,
2608 + .00064, .00238, .00447,
2609 + .20685, .05690, .03012, .00241, .00119,
2610 + .00062, .00230, .00430,
2611 + .20159, .05529, .02854, .00232, .00115,
2612 + .00061, .00221, .00414,
2613 + .19675, .05381, .02714, .00224, .00112,
2614 + .00060, .00214, .00400,
2615 + .19196, .05233, .02582, .00217, .00109,
2616 + .00059, .00207, .00386 /
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 + .61836, .19649, .48592, .00619, .00000,
2619 + .00000, .00589, .01617,
2620 + .59601, .18795, .44408, .00614, .00015,
2621 + .00000, .00583, .01539,
2622 + .56460, .17601, .38562, .00592, .00072,
2623 + .00000, .00569, .01436,
2624 + .54282, .16794, .34780, .00580, .00099,
2625 + .00000, .00555, .01363,
2626 + .52100, .15988, .31189, .00560, .00119,
2627 + .00000, .00538, .01293,
2628 + .50297, .15331, .28387, .00541, .00131,
2629 + .00000, .00523, .01234,
2630 + .48636, .14732, .25948, .00525, .00140,
2631 + .00000, .00509, .01178,
2632 + .46945, .14128, .23601, .00509, .00148,
2633 + .00000, .00493, .01122 /
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 + .45528, .13628, .21742, .00493, .00152,
2636 + .00000, .00479, .01075,
2637 + .44207, .13165, .20093, .00479, .00154,
2638 + .00000, .00466, .01031,
2639 + .43194, .12813, .18883, .00469, .00156,
2640 + .00000, .00457, .00997,
2641 + .41120, .12096, .16518, .00443, .00157,
2642 + .00003, .00432, .00934,
2643 + .39420, .11516, .14684, .00423, .00156,
2644 + .00016, .00412, .00879,
2645 + .37616, .10905, .12895, .00399, .00154,
2646 + .00028, .00391, .00825,
2647 + .35834, .10311, .11301, .00376, .00150,
2648 + .00036, .00369, .00771,
2649 + .34301, .09805, .10051, .00358, .00147,
2650 + .00041, .00350, .00725 /
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 + .32833, .09322, .08949, .00338, .00143,
2653 + .00045, .00333, .00680,
2654 + .31664, .08944, .08140, .00323, .00139,
2655 + .00047, .00318, .00647,
2656 + .30310, .08509, .07274, .00306, .00134,
2657 + .00049, .00302, .00608,
2658 + .29167, .08146, .06597, .00292, .00130,
2659 + .00050, .00288, .00575,
2660 + .28163, .07828, .06040, .00280, .00126,
2661 + .00050, .00276, .00547,
2662 + .26940, .07443, .05414, .00266, .00121,
2663 + .00050, .00260, .00513,
2664 + .25848, .07102, .04896, .00252, .00116,
2665 + .00050, .00246, .00485,
2666 + .24873, .06799, .04465, .00238, .00112,
2667 + .00050, .00235, .00461 /
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 + .23934, .06511, .04082, .00227, .00108,
2670 + .00049, .00223, .00435,
2671 + .23054, .06243, .03744, .00217, .00104,
2672 + .00048, .00213, .00411,
2673 + .22253, .06000, .03455, .00208, .00100,
2674 + .00048, .00203, .00392,
2675 + .21528, .05780, .03209, .00198, .00097,
2676 + .00047, .00194, .00374,
2677 + .20828, .05569, .02983, .00188, .00094,
2678 + .00046, .00186, .00358,
2679 + .20158, .05370, .02781, .00181, .00090,
2680 + .00045, .00178, .00342,
2681 + .19546, .05189, .02603, .00175, .00087,
2682 + .00044, .00171, .00327,
2683 + .18983, .05022, .02449, .00168, .00085,
2684 + .00043, .00165, .00313 /
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 + .18436, .04860, .02304, .00162, .00082,
2687 + .00043, .00159, .00300,
2688 + .17912, .04706, .02173, .00156, .00080,
2689 + .00042, .00153, .00288,
2690 + .17428, .04564, .02056, .00150, .00077,
2691 + .00041, .00147, .00279,
2692 + .16981, .04434, .01953, .00145, .00075,
2693 + .00040, .00142, .00270,
2694 + .16539, .04306, .01855, .00140, .00073,
2695 + .00040, .00138, .00259 /
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 + .58090, .17609, .42878, .00441, .00000,
2698 + .00000, .00424, .01173,
2699 + .55805, .16784, .38669, .00435, .00011,
2700 + .00000, .00419, .01115,
2701 + .52612, .15644, .32977, .00415, .00052,
2702 + .00000, .00406, .01036,
2703 + .50409, .14877, .29374, .00406, .00071,
2704 + .00000, .00393, .00981,
2705 + .48214, .14112, .26030, .00391, .00084,
2706 + .00000, .00381, .00925,
2707 + .46406, .13495, .23465, .00377, .00093,
2708 + .00000, .00369, .00881,
2709 + .44749, .12934, .21259, .00364, .00099,
2710 + .00000, .00358, .00840,
2711 + .43069, .12369, .19161, .00352, .00104,
2712 + .00000, .00346, .00796 /
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 + .41666, .11900, .17517, .00340, .00106,
2715 + .00000, .00335, .00761,
2716 + .40360, .11470, .16077, .00329, .00108,
2717 + .00000, .00324, .00729,
2718 + .39361, .11143, .15031, .00322, .00109,
2719 + .00000, .00316, .00705,
2720 + .37333, .10479, .13013, .00301, .00109,
2721 + .00002, .00300, .00656,
2722 + .35671, .09947, .11470, .00289, .00108,
2723 + .00011, .00285, .00615,
2724 + .33914, .09388, .09985, .00273, .00106,
2725 + .00019, .00269, .00574,
2726 + .32191, .08845, .08675, .00256, .00103,
2727 + .00024, .00254, .00534,
2728 + .30714, .08385, .07660, .00243, .00100,
2729 + .00028, .00240, .00501 /
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 + .29305, .07949, .06774, .00229, .00097,
2732 + .00030, .00226, .00469,
2733 + .28193, .07605, .06129, .00218, .00094,
2734 + .00032, .00216, .00444,
2735 + .26903, .07212, .05444, .00206, .00091,
2736 + .00033, .00204, .00417,
2737 + .25818, .06886, .04914, .00197, .00088,
2738 + .00034, .00194, .00393,
2739 + .24868, .06603, .04481, .00189, .00085,
2740 + .00035, .00185, .00373,
2741 + .23717, .06261, .03997, .00178, .00081,
2742 + .00035, .00175, .00348,
2743 + .22692, .05956, .03600, .00167, .00078,
2744 + .00035, .00165, .00328,
2745 + .21779, .05687, .03270, .00158, .00075,
2746 + .00035, .00156, .00311 /
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 + .20903, .05433, .02978, .00150, .00072,
2749 + .00034, .00147, .00293,
2750 + .20084, .05197, .02724, .00143, .00069,
2751 + .00034, .00140, .00277,
2752 + .19341, .04983, .02507, .00138, .00067,
2753 + .00034, .00134, .00261,
2754 + .18668, .04791, .02323, .00132, .00064,
2755 + .00033, .00128, .00249,
2756 + .18022, .04608, .02154, .00126, .00062,
2757 + .00033, .00122, .00237,
2758 + .17408, .04432, .02003, .00120, .00060,
2759 + .00032, .00117, .00226,
2760 + .16848, .04273, .01872, .00116, .00058,
2761 + .00032, .00112, .00217,
2762 + .16335, .04128, .01758, .00110, .00056,
2763 + .00031, .00108, .00208 /
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 + .15836, .03989, .01652, .00105, .00054,
2766 + .00031, .00104, .00199,
2767 + .15356, .03856, .01556, .00102, .00053,
2768 + .00030, .00100, .00191,
2769 + .14913, .03734, .01471, .00098, .00051,
2770 + .00030, .00096, .00183,
2771 + .14507, .03622, .01395, .00095, .00050,
2772 + .00029, .00092, .00176,
2773 + .14109, .03513, .01324, .00092, .00049,
2774 + .00029, .00089, .00168 /
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 + .53998, .15591, .36745, .00300, .00000,
2777 + .00000, .00300, .00843,
2778 + .51705, .14813, .32740, .00292, .00008,
2779 + .00000, .00296, .00798,
2780 + .48504, .13750, .27465, .00285, .00036,
2781 + .00000, .00284, .00733,
2782 + .46318, .13031, .24188, .00276, .00049,
2783 + .00000, .00274, .00693,
2784 + .44143, .12321, .21201, .00267, .00058,
2785 + .00000, .00264, .00650,
2786 + .42360, .11750, .18937, .00259, .00064,
2787 + .00000, .00254, .00617,
2788 + .40734, .11231, .17016, .00250, .00068,
2789 + .00000, .00245, .00585,
2790 + .39092, .10711, .15213, .00241, .00071,
2791 + .00000, .00236, .00552 /
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 + .37723, .10283, .13815, .00234, .00072,
2794 + .00000, .00229, .00526,
2795 + .36456, .09888, .12600, .00227, .00073,
2796 + .00000, .00221, .00503,
2797 + .35492, .09589, .11723, .00220, .00074,
2798 + .00000, .00214, .00487,
2799 + .33530, .08987, .10047, .00206, .00074,
2800 + .00002, .00201, .00450,
2801 + .31936, .08503, .08788, .00197, .00073,
2802 + .00007, .00191, .00420,
2803 + .30256, .07998, .07587, .00188, .00071,
2804 + .00013, .00181, .00389,
2805 + .28617, .07510, .06540, .00176, .00069,
2806 + .00016, .00169, .00360,
2807 + .27218, .07097, .05737, .00165, .00067,
2808 + .00018, .00158, .00337 /
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 + .25886, .06706, .05043, .00155, .00065,
2811 + .00020, .00148, .00315,
2812 + .24838, .06402, .04541, .00147, .00063,
2813 + .00021, .00142, .00297,
2814 + .23630, .06054, .04012, .00139, .00060,
2815 + .00022, .00134, .00277,
2816 + .22617, .05764, .03606, .00132, .00058,
2817 + .00022, .00127, .00261,
2818 + .21732, .05512, .03277, .00127, .00056,
2819 + .00022, .00120, .00248,
2820 + .20664, .05211, .02911, .00119, .00054,
2821 + .00022, .00112, .00231,
2822 + .19716, .04945, .02612, .00112, .00052,
2823 + .00022, .00106, .00216,
2824 + .18875, .04711, .02365, .00106, .00050,
2825 + .00022, .00101, .00203 /
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 + .18069, .04487, .02148, .00099, .00048,
2828 + .00022, .00095, .00192,
2829 + .17320, .04281, .01959, .00093, .00046,
2830 + .00022, .00090, .00181,
2831 + .16643, .04098, .01800, .00089, .00045,
2832 + .00022, .00085, .00171,
2833 + .16030, .03931, .01664, .00085, .00043,
2834 + .00022, .00081, .00163,
2835 + .15441, .03772, .01540, .00082, .00042,
2836 + .00022, .00077, .00155,
2837 + .14882, .03622, .01431, .00079, .00040,
2838 + .00022, .00074, .00146,
2839 + .14375, .03487, .01335, .00076, .00039,
2840 + .00022, .00071, .00138,
2841 + .13911, .03363, .01252, .00073, .00038,
2842 + .00022, .00068, .00132 /
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 + .13461, .03243, .01175, .00069, .00037,
2845 + .00022, .00065, .00127,
2846 + .13031, .03129, .01105, .00067, .00036,
2847 + .00022, .00062, .00121,
2848 + .12635, .03025, .01044, .00064, .00035,
2849 + .00022, .00060, .00116,
2850 + .12271, .02930, .00989, .00062, .00035,
2851 + .00022, .00058, .00111,
2852 + .11913, .02836, .00938, .00060, .00034,
2853 + .00022, .00056, .00107 /
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 + .49645, .13643, .30580, .00197, .00000,
2856 + .00000, .00213, .00592,
2857 + .47374, .12922, .26945, .00192, .00005,
2858 + .00000, .00205, .00562,
2859 + .44231, .11937, .22253, .00185, .00024,
2860 + .00000, .00196, .00515,
2861 + .42091, .11275, .19391, .00180, .00033,
2862 + .00000, .00189, .00483,
2863 + .39975, .10627, .16818, .00174, .00039,
2864 + .00000, .00183, .00449,
2865 + .38250, .10104, .14894, .00168, .00043,
2866 + .00000, .00174, .00423,
2867 + .36679, .09631, .13279, .00161, .00046,
2868 + .00000, .00167, .00401,
2869 + .35097, .09159, .11777, .00154, .00048,
2870 + .00000, .00161, .00379 /
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 + .33787, .08770, .10624, .00149, .00049,
2873 + .00000, .00156, .00360,
2874 + .32576, .08414, .09632, .00143, .00049,
2875 + .00000, .00150, .00344,
2876 + .31655, .08145, .08921, .00139, .00049,
2877 + .00000, .00145, .00333,
2878 + .29789, .07604, .07578, .00130, .00049,
2879 + .00001, .00135, .00307,
2880 + .28278, .07173, .06580, .00126, .00049,
2881 + .00005, .00128, .00283,
2882 + .26692, .06725, .05639, .00119, .00047,
2883 + .00008, .00120, .00261,
2884 + .25155, .06291, .04827, .00111, .00046,
2885 + .00010, .00113, .00241,
2886 + .23850, .05925, .04208, .00103, .00045,
2887 + .00012, .00106, .00225 /
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 + .22612, .05581, .03677, .00096, .00043,
2890 + .00013, .00098, .00210,
2891 + .21636, .05315, .03299, .00093, .00042,
2892 + .00013, .00094, .00197,
2893 + .20520, .05010, .02902, .00086, .00041,
2894 + .00013, .00089, .00184,
2895 + .19588, .04757, .02597, .00081, .00039,
2896 + .00013, .00084, .00173,
2897 + .18776, .04540, .02351, .00079, .00038,
2898 + .00013, .00080, .00162,
2899 + .17797, .04278, .02081, .00074, .00037,
2900 + .00013, .00075, .00150,
2901 + .16934, .04048, .01862, .00069, .00036,
2902 + .00013, .00070, .00141,
2903 + .16171, .03845, .01682, .00063, .00034,
2904 + .00013, .00067, .00132 /
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 + .15440, .03655, .01524, .00060, .00033,
2907 + .00013, .00062, .00124,
2908 + .14761, .03479, .01387, .00057, .00032,
2909 + .00013, .00059, .00117,
2910 + .14150, .03320, .01272, .00055, .00031,
2911 + .00013, .00056, .00112,
2912 + .13600, .03178, .01174, .00052, .00031,
2913 + .00013, .00053, .00106,
2914 + .13073, .03044, .01085, .00049, .00030,
2915 + .00013, .00051, .00100,
2916 + .12574, .02916, .01007, .00046, .00029,
2917 + .00013, .00048, .00095,
2918 + .12121, .02801, .00939, .00044, .00028,
2919 + .00013, .00045, .00091,
2920 + .11707, .02697, .00880, .00043, .00028,
2921 + .00013, .00044, .00086 /
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 + .11306, .02596, .00825, .00042, .00027,
2924 + .00013, .00042, .00082,
2925 + .10926, .02500, .00776, .00040, .00027,
2926 + .00013, .00041, .00078,
2927 + .10576, .02412, .00732, .00038, .00026,
2928 + .00013, .00039, .00075,
2929 + .10256, .02333, .00693, .00037, .00026,
2930 + .00013, .00038, .00072,
2931 + .09940, .02255, .00656, .00036, .00025,
2932 + .00013, .00036, .00069 /
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 + .45140, .11804, .24734, .00125, .00000,
2935 + .00000, .00145, .00409,
2936 + .42926, .11141, .21561, .00126, .00004,
2937 + .00000, .00140, .00383,
2938 + .39887, .10242, .17547, .00117, .00016,
2939 + .00000, .00136, .00349,
2940 + .37832, .09641, .15135, .00110, .00021,
2941 + .00000, .00129, .00327,
2942 + .35797, .09055, .12997, .00106, .00025,
2943 + .00000, .00124, .00307,
2944 + .34149, .08584, .11419, .00102, .00028,
2945 + .00000, .00119, .00288,
2946 + .32657, .08159, .10105, .00097, .00029,
2947 + .00000, .00114, .00271,
2948 + .31158, .07737, .08896, .00093, .00031,
2949 + .00000, .00109, .00254 /
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 + .29916, .07391, .07979, .00091, .00032,
2952 + .00000, .00106, .00240,
2953 + .28776, .07074, .07194, .00086, .00032,
2954 + .00000, .00101, .00230,
2955 + .27914, .06835, .06634, .00082, .00032,
2956 + .00000, .00097, .00223,
2957 + .26164, .06357, .05586, .00078, .00032,
2958 + .00001, .00092, .00203,
2959 + .24759, .05974, .04820, .00073, .00032,
2960 + .00003, .00087, .00189,
2961 + .23286, .05580, .04102, .00069, .00032,
2962 + .00005, .00080, .00174,
2963 + .21864, .05203, .03488, .00064, .00032,
2964 + .00006, .00075, .00159,
2965 + .20661, .04885, .03026, .00060, .00031,
2966 + .00007, .00070, .00147 /
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 + .19522, .04588, .02632, .00056, .00031,
2969 + .00007, .00065, .00137,
2970 + .18633, .04355, .02352, .00052, .00030,
2971 + .00007, .00062, .00131,
2972 + .17616, .04093, .02060, .00049, .00029,
2973 + .00007, .00058, .00121,
2974 + .16769, .03877, .01838, .00047, .00028,
2975 + .00007, .00055, .00112,
2976 + .16034, .03689, .01661, .00045, .00028,
2977 + .00007, .00052, .00106,
2978 + .15153, .03467, .01466, .00040, .00027,
2979 + .00007, .00049, .00098,
2980 + .14375, .03272, .01308, .00037, .00026,
2981 + .00007, .00046, .00092,
2982 + .13687, .03101, .01180, .00035, .00026,
2983 + .00007, .00043, .00086 /
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 + .13034, .02938, .01067, .00035, .00025,
2986 + .00007, .00041, .00080,
2987 + .12431, .02789, .00969, .00033, .00024,
2988 + .00007, .00039, .00076,
2989 + .11890, .02656, .00887, .00030, .00024,
2990 + .00007, .00036, .00072,
2991 + .11402, .02538, .00818, .00029, .00023,
2992 + .00007, .00034, .00068,
2993 + .10936, .02425, .00756, .00028, .00023,
2994 + .00007, .00033, .00064,
2995 + .10496, .02318, .00701, .00026, .00022,
2996 + .00007, .00031, .00061,
2997 + .10098, .02222, .00652, .00024, .00022,
2998 + .00007, .00029, .00058,
2999 + .09735, .02136, .00611, .00023, .00022,
3000 + .00007, .00028, .00055 /
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 + .09384, .02052, .00573, .00023, .00021,
3003 + .00007, .00027, .00052,
3004 + .09051, .01973, .00538, .00022, .00021,
3005 + .00007, .00026, .00049,
3006 + .08745, .01901, .00507, .00022, .00021,
3007 + .00007, .00025, .00047,
3008 + .08466, .01835, .00480, .00021, .00021,
3009 + .00007, .00024, .00045,
3010 + .08193, .01770, .00455, .00020, .00020,
3011 + .00007, .00023, .00044 /
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 + .40572, .10103, .19461, .00093, .00000,
3014 + .00000, .00091, .00268,
3015 + .38465, .09505, .16802, .00086, .00002,
3016 + .00000, .00088, .00254,
3017 + .35564, .08699, .13493, .00084, .00010,
3018 + .00000, .00082, .00229,
3019 + .33616, .08161, .11535, .00080, .00013,
3020 + .00000, .00078, .00213,
3021 + .31701, .07640, .09816, .00074, .00016,
3022 + .00000, .00074, .00198,
3023 + .30153, .07222, .08561, .00073, .00017,
3024 + .00000, .00072, .00183,
3025 + .28753, .06848, .07528, .00071, .00018,
3026 + .00000, .00069, .00172,
3027 + .27352, .06475, .06584, .00068, .00019,
3028 + .00000, .00065, .00162 /
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 + .26200, .06171, .05873, .00064, .00019,
3031 + .00000, .00063, .00152,
3032 + .25143, .05893, .05271, .00062, .00020,
3033 + .00000, .00060, .00145,
3034 + .24343, .05684, .04844, .00060, .00020,
3035 + .00000, .00058, .00140,
3036 + .22730, .05266, .04049, .00057, .00019,
3037 + .00001, .00054, .00128,
3038 + .21439, .04936, .03474, .00054, .00019,
3039 + .00002, .00051, .00117,
3040 + .20095, .04594, .02941, .00049, .00019,
3041 + .00003, .00046, .00108,
3042 + .18801, .04268, .02488, .00046, .00019,
3043 + .00003, .00043, .00099,
3044 + .17709, .03995, .02148, .00043, .00019,
3045 + .00003, .00040, .00091 /
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 + .16681, .03741, .01861, .00040, .00019,
3048 + .00004, .00038, .00084,
3049 + .15877, .03544, .01659, .00040, .00019,
3050 + .00004, .00036, .00078,
3051 + .14966, .03320, .01449, .00036, .00019,
3052 + .00004, .00033, .00072,
3053 + .14210, .03136, .01291, .00033, .00019,
3054 + .00004, .00031, .00067,
3055 + .13554, .02978, .01164, .00033, .00019,
3056 + .00004, .00030, .00063,
3057 + .12771, .02790, .01025, .00029, .00019,
3058 + .00004, .00027, .00059,
3059 + .12081, .02625, .00913, .00027, .00019,
3060 + .00004, .00025, .00055,
3061 + .11474, .02482, .00822, .00026, .00019,
3062 + .00004, .00024, .00051 /
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 + .10899, .02347, .00743, .00025, .00019,
3065 + .00004, .00022, .00047,
3066 + .10369, .02223, .00675, .00024, .00019,
3067 + .00004, .00021, .00044,
3068 + .09894, .02112, .00617, .00023, .00019,
3069 + .00004, .00020, .00041,
3070 + .09468, .02013, .00569, .00021, .00018,
3071 + .00004, .00019, .00039,
3072 + .09062, .01919, .00525, .00020, .00018,
3073 + .00004, .00018, .00038,
3074 + .08680, .01831, .00487, .00019, .00018,
3075 + .00004, .00017, .00035,
3076 + .08334, .01753, .00453, .00019, .00018,
3077 + .00004, .00016, .00033,
3078 + .08019, .01681, .00424, .00018, .00018,
3079 + .00004, .00015, .00031 /
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 + .07716, .01613, .00397, .00018, .00018,
3082 + .00004, .00014, .00029,
3083 + .07429, .01548, .00373, .00017, .00018,
3084 + .00004, .00014, .00028,
3085 + .07166, .01489, .00352, .00016, .00018,
3086 + .00004, .00013, .00027,
3087 + .06926, .01435, .00333, .00015, .00018,
3088 + .00004, .00013, .00026,
3089 + .06692, .01382, .00315, .00014, .00018,
3090 + .00004, .00012, .00026 /
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 + .36021, .08505, .14828, .00048, .00000,
3093 + .00000, .00063, .00181,
3094 + .34026, .07978, .12683, .00047, .00001,
3095 + .00000, .00062, .00167,
3096 + .31313, .07263, .10056, .00044, .00006,
3097 + .00000, .00056, .00151,
3098 + .29494, .06794, .08521, .00041, .00008,
3099 + .00000, .00054, .00139,
3100 + .27708, .06338, .07189, .00043, .00009,
3101 + .00000, .00049, .00129,
3102 + .26277, .05973, .06230, .00039, .00010,
3103 + .00000, .00048, .00120,
3104 + .24987, .05648, .05445, .00037, .00010,
3105 + .00000, .00045, .00113,
3106 + .23700, .05327, .04733, .00036, .00011,
3107 + .00000, .00041, .00105 /
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 + .22645, .05064, .04200, .00034, .00011,
3110 + .00000, .00039, .00098,
3111 + .21678, .04825, .03752, .00034, .00011,
3112 + .00000, .00038, .00092,
3113 + .20947, .04645, .03437, .00033, .00011,
3114 + .00000, .00037, .00088,
3115 + .19481, .04289, .02854, .00032, .00011,
3116 + .00000, .00034, .00081,
3117 + .18316, .04006, .02436, .00028, .00011,
3118 + .00001, .00032, .00075,
3119 + .17103, .03715, .02051, .00027, .00011,
3120 + .00001, .00029, .00069,
3121 + .15942, .03439, .01727, .00026, .00011,
3122 + .00001, .00027, .00061,
3123 + .14966, .03208, .01487, .00023, .00011,
3124 + .00001, .00025, .00056 /
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 + .14050, .02994, .01284, .00022, .00011,
3127 + .00001, .00023, .00053,
3128 + .13341, .02829, .01142, .00020, .00011,
3129 + .00001, .00021, .00050,
3130 + .12535, .02642, .00995, .00018, .00011,
3131 + .00001, .00019, .00046,
3132 + .11868, .02489, .00884, .00017, .00011,
3133 + .00001, .00018, .00043,
3134 + .11290, .02358, .00796, .00018, .00011,
3135 + .00001, .00018, .00039,
3136 + .10603, .02203, .00701, .00017, .00011,
3137 + .00001, .00017, .00036,
3138 + .10001, .02067, .00624, .00016, .00011,
3139 + .00001, .00015, .00033,
3140 + .09474, .01948, .00561, .00015, .00011,
3141 + .00001, .00014, .00031 /
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 + .08976, .01837, .00507, .00014, .00011,
3144 + .00001, .00013, .00029,
3145 + .08517, .01736, .00460, .00013, .00011,
3146 + .00001, .00013, .00027,
3147 + .08108, .01645, .00420, .00013, .00011,
3148 + .00001, .00012, .00025,
3149 + .07741, .01565, .00387, .00012, .00011,
3150 + .00001, .00011, .00024,
3151 + .07391, .01490, .00358, .00012, .00011,
3152 + .00001, .00010, .00023,
3153 + .07063, .01418, .00331, .00011, .00011,
3154 + .00001, .00010, .00021,
3155 + .06768, .01354, .00308, .00011, .00011,
3156 + .00001, .00009, .00020,
3157 + .06501, .01296, .00289, .00010, .00011,
3158 + .00001, .00009, .00019 /
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 + .06244, .01241, .00270, .00009, .00011,
3161 + .00001, .00008, .00018,
3162 + .06000, .01189, .00254, .00009, .00011,
3163 + .00001, .00008, .00017,
3164 + .05778, .01142, .00239, .00009, .00011,
3165 + .00001, .00008, .00016,
3166 + .05575, .01099, .00226, .00008, .00011,
3167 + .00001, .00007, .00015,
3168 + .05377, .01057, .00214, .00008, .00011,
3169 + .00001, .00007, .00015 /
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 + .31569, .07066, .10957, .00025, .00000,
3172 + .00000, .00043, .00116,
3173 + .29716, .06605, .09288, .00026, .00001,
3174 + .00000, .00041, .00107,
3175 + .27210, .05987, .07275, .00022, .00003,
3176 + .00000, .00037, .00095,
3177 + .25536, .05581, .06112, .00023, .00004,
3178 + .00000, .00033, .00086,
3179 + .23903, .05185, .05119, .00024, .00005,
3180 + .00000, .00032, .00082,
3181 + .22598, .04874, .04408, .00021, .00005,
3182 + .00000, .00030, .00075,
3183 + .21428, .04595, .03830, .00019, .00005,
3184 + .00000, .00029, .00069,
3185 + .20263, .04320, .03310, .00018, .00006,
3186 + .00000, .00027, .00065 /
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 + .19307, .04096, .02924, .00019, .00005,
3189 + .00000, .00025, .00061,
3190 + .18437, .03894, .02601, .00018, .00005,
3191 + .00000, .00025, .00056,
3192 + .17783, .03742, .02375, .00018, .00005,
3193 + .00000, .00024, .00053,
3194 + .16471, .03441, .01961, .00017, .00005,
3195 + .00000, .00022, .00049,
3196 + .15433, .03203, .01667, .00015, .00005,
3197 + .00000, .00020, .00045,
3198 + .14361, .02959, .01397, .00014, .00005,
3199 + .00000, .00019, .00040,
3200 + .13335, .02729, .01172, .00013, .00005,
3201 + .00000, .00016, .00038,
3202 + .12475, .02538, .01006, .00013, .00005,
3203 + .00000, .00015, .00035 /
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 + .11672, .02361, .00868, .00012, .00005,
3206 + .00000, .00015, .00032,
3207 + .11049, .02224, .00770, .00012, .00005,
3208 + .00000, .00014, .00030,
3209 + .10348, .02070, .00670, .00010, .00005,
3210 + .00000, .00013, .00028,
3211 + .09770, .01945, .00595, .00010, .00005,
3212 + .00000, .00012, .00026,
3213 + .09271, .01838, .00535, .00009, .00005,
3214 + .00000, .00011, .00024,
3215 + .08680, .01711, .00471, .00008, .00005,
3216 + .00000, .00010, .00021,
3217 + .08163, .01601, .00419, .00008, .00005,
3218 + .00000, .00009, .00019,
3219 + .07709, .01506, .00376, .00008, .00005,
3220 + .00000, .00009, .00018 /
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 + .07285, .01416, .00340, .00007, .00005,
3223 + .00000, .00008, .00017,
3224 + .06895, .01334, .00308, .00006, .00005,
3225 + .00000, .00008, .00016,
3226 + .06547, .01262, .00282, .00007, .00005,
3227 + .00000, .00007, .00015,
3228 + .06236, .01197, .00260, .00006, .00005,
3229 + .00000, .00007, .00014,
3230 + .05941, .01136, .00240, .00006, .00005,
3231 + .00000, .00006, .00014,
3232 + .05665, .01080, .00222, .00006, .00005,
3233 + .00000, .00006, .00013,
3234 + .05417, .01029, .00207, .00006, .00005,
3235 + .00000, .00006, .00012,
3236 + .05192, .00983, .00194, .00006, .00005,
3237 + .00000, .00006, .00011 /
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 + .04976, .00939, .00181, .00006, .00005,
3240 + .00000, .00005, .00010,
3241 + .04773, .00898, .00170, .00006, .00005,
3242 + .00000, .00005, .00010,
3243 + .04588, .00861, .00160, .00005, .00005,
3244 + .00000, .00005, .00010,
3245 + .04419, .00827, .00152, .00005, .00005,
3246 + .00000, .00005, .00010,
3247 + .04255, .00794, .00143, .00004, .00005,
3248 + .00000, .00004, .00009 /
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 + .27304, .05794, .07854, .00019, .00000,
3251 + .00000, .00024, .00069,
3252 + .25615, .05397, .06602, .00017, .00000,
3253 + .00000, .00021, .00066,
3254 + .23333, .04869, .05114, .00018, .00002,
3255 + .00000, .00019, .00057,
3256 + .21819, .04521, .04265, .00017, .00002,
3257 + .00000, .00018, .00052,
3258 + .20351, .04188, .03546, .00018, .00003,
3259 + .00000, .00016, .00047,
3260 + .19183, .03924, .03036, .00014, .00003,
3261 + .00000, .00016, .00044,
3262 + .18137, .03689, .02625, .00011, .00003,
3263 + .00000, .00015, .00041,
3264 + .17099, .03457, .02258, .00011, .00003,
3265 + .00000, .00014, .00038 /
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 + .16251, .03271, .01988, .00013, .00003,
3268 + .00000, .00013, .00035,
3269 + .15481, .03102, .01763, .00013, .00003,
3270 + .00000, .00012, .00034,
3271 + .14903, .02974, .01605, .00012, .00003,
3272 + .00000, .00012, .00033,
3273 + .13747, .02725, .01320, .00012, .00003,
3274 + .00000, .00011, .00030,
3275 + .12837, .02527, .01118, .00009, .00003,
3276 + .00000, .00010, .00027,
3277 + .11899, .02327, .00934, .00009, .00003,
3278 + .00000, .00009, .00024,
3279 + .11006, .02138, .00782, .00009, .00003,
3280 + .00000, .00008, .00022,
3281 + .10263, .01982, .00670, .00007, .00003,
3282 + .00000, .00007, .00021 /
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 + .09573, .01837, .00577, .00007, .00003,
3285 + .00000, .00007, .00018,
3286 + .09038, .01727, .00512, .00007, .00003,
3287 + .00000, .00007, .00016,
3288 + .08433, .01602, .00445, .00007, .00003,
3289 + .00000, .00006, .00015,
3290 + .07938, .01501, .00395, .00007, .00003,
3291 + .00000, .00005, .00014,
3292 + .07515, .01415, .00356, .00006, .00003,
3293 + .00000, .00005, .00013,
3294 + .07013, .01313, .00313, .00006, .00003,
3295 + .00000, .00004, .00012,
3296 + .06575, .01225, .00278, .00005, .00003,
3297 + .00000, .00004, .00011,
3298 + .06193, .01148, .00250, .00005, .00003,
3299 + .00000, .00004, .00010 /
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 + .05835, .01077, .00226, .00005, .00003,
3302 + .00000, .00004, .00009,
3303 + .05507, .01012, .00205, .00005, .00003,
3304 + .00000, .00004, .00008,
3305 + .05216, .00955, .00188, .00006, .00003,
3306 + .00000, .00004, .00008,
3307 + .04959, .00904, .00173, .00005, .00003,
3308 + .00000, .00003, .00007,
3309 + .04715, .00856, .00160, .00004, .00003,
3310 + .00000, .00003, .00007,
3311 + .04486, .00812, .00148, .00004, .00003,
3312 + .00000, .00003, .00006,
3313 + .04281, .00772, .00138, .00004, .00003,
3314 + .00000, .00003, .00006,
3315 + .04094, .00736, .00129, .00004, .00003,
3316 + .00000, .00002, .00006 /
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 + .03916, .00702, .00121, .00004, .00003,
3319 + .00000, .00002, .00006,
3320 + .03749, .00670, .00113, .00004, .00003,
3321 + .00000, .00002, .00005,
3322 + .03596, .00641, .00107, .00004, .00003,
3323 + .00000, .00002, .00005,
3324 + .03458, .00615, .00101, .00004, .00003,
3325 + .00000, .00002, .00005,
3326 + .03324, .00589, .00095, .00003, .00003,
3327 + .00000, .00002, .00004 /
3328 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
3329 + .23240, .04657, .05419, .00007, .00000,
3330 + .00000, .00017, .00043,
3331 + .21725, .04323, .04520, .00005, .00000,
3332 + .00000, .00016, .00040,
3333 + .19688, .03880, .03466, .00006, .00000,
3334 + .00000, .00014, .00034,
3335 + .18342, .03590, .02870, .00007, .00000,
3336 + .00000, .00013, .00031,
3337 + .17043, .03313, .02370, .00006, .00000,
3338 + .00000, .00012, .00028,
3339 + .16013, .03093, .02018, .00004, .00000,
3340 + .00000, .00012, .00026,
3341 + .15093, .02900, .01737, .00004, .00000,
3342 + .00000, .00011, .00024,
3343 + .14183, .02710, .01489, .00004, .00000,
3344 + .00000, .00010, .00022 /
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 + .13444, .02556, .01306, .00004, .00000,
3347 + .00000, .00009, .00021,
3348 + .12773, .02418, .01155, .00004, .00000,
3349 + .00000, .00008, .00020,
3350 + .12270, .02314, .01050, .00004, .00000,
3351 + .00000, .00007, .00019,
3352 + .11272, .02111, .00860, .00005, .00000,
3353 + .00000, .00007, .00018,
3354 + .10487, .01951, .00727, .00004, .00000,
3355 + .00000, .00006, .00016,
3356 + .09683, .01790, .00606, .00003, .00000,
3357 + .00000, .00006, .00015,
3358 + .08921, .01638, .00507, .00002, .00000,
3359 + .00000, .00005, .00013,
3360 + .08289, .01512, .00434, .00002, .00000,
3361 + .00000, .00005, .00011 /
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 + .07702, .01397, .00373, .00003, .00000,
3364 + .00000, .00005, .00009,
3365 + .07251, .01310, .00331, .00003, .00000,
3366 + .00000, .00005, .00009,
3367 + .06743, .01211, .00288, .00004, .00000,
3368 + .00000, .00004, .00008,
3369 + .06329, .01131, .00256, .00003, .00000,
3370 + .00000, .00004, .00008,
3371 + .05977, .01063, .00230, .00001, .00000,
3372 + .00000, .00003, .00007,
3373 + .05558, .00984, .00203, .00002, .00000,
3374 + .00000, .00003, .00006,
3375 + .05194, .00915, .00181, .00002, .00000,
3376 + .00000, .00003, .00006,
3377 + .04877, .00855, .00163, .00002, .00000,
3378 + .00000, .00003, .00006 /
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 + .04582, .00800, .00147, .00002, .00000,
3381 + .00000, .00002, .00005,
3382 + .04314, .00749, .00133, .00002, .00000,
3383 + .00000, .00002, .00005,
3384 + .04076, .00705, .00122, .00002, .00000,
3385 + .00000, .00002, .00005,
3386 + .03864, .00666, .00112, .00002, .00000,
3387 + .00000, .00002, .00004,
3388 + .03664, .00629, .00104, .00002, .00000,
3389 + .00000, .00002, .00004,
3390 + .03478, .00595, .00096, .00002, .00000,
3391 + .00000, .00002, .00003,
3392 + .03311, .00565, .00090, .00002, .00000,
3393 + .00000, .00002, .00003,
3394 + .03161, .00537, .00084, .00001, .00000,
3395 + .00000, .00002, .00003 /
3396 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
3397 + .03018, .00511, .00078, .00001, .00000,
3398 + .00000, .00001, .00003,
3399 + .02883, .00487, .00074, .00001, .00000,
3400 + .00000, .00001, .00003,
3401 + .02760, .00465, .00069, .00001, .00000,
3402 + .00000, .00001, .00003,
3403 + .02649, .00445, .00066, .00001, .00000,
3404 + .00000, .00001, .00003,
3405 + .02542, .00426, .00062, .00001, .00000,
3406 + .00000, .00001, .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 + .16031, .02854, .02307, .00003, .00000,
3409 + .00000, .00004, .00014,
3410 + .14872, .02629, .01898, .00003, .00000,
3411 + .00000, .00004, .00011,
3412 + .13331, .02334, .01429, .00002, .00000,
3413 + .00000, .00004, .00010,
3414 + .12326, .02143, .01170, .00001, .00000,
3415 + .00000, .00003, .00009,
3416 + .11362, .01963, .00956, .00002, .00000,
3417 + .00000, .00003, .00007,
3418 + .10601, .01821, .00809, .00002, .00000,
3419 + .00000, .00003, .00007,
3420 + .09928, .01696, .00692, .00001, .00000,
3421 + .00000, .00002, .00007,
3422 + .09269, .01574, .00590, .00000, .00000,
3423 + .00000, .00002, .00008 /
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 + .08736, .01477, .00516, .00001, .00000,
3426 + .00000, .00002, .00006,
3427 + .08256, .01389, .00455, .00001, .00000,
3428 + .00000, .00002, .00006,
3429 + .07898, .01324, .00413, .00000, .00000,
3430 + .00000, .00002, .00005,
3431 + .07192, .01197, .00337, .00000, .00000,
3432 + .00000, .00002, .00004,
3433 + .06640, .01099, .00285, .00001, .00000,
3434 + .00000, .00002, .00004,
3435 + .06079, .01000, .00238, .00002, .00000,
3436 + .00000, .00002, .00004,
3437 + .05555, .00907, .00199, .00001, .00000,
3438 + .00000, .00002, .00003,
3439 + .05124, .00832, .00171, .00000, .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 + .04725, .00763, .00147, .00000, .00000,
3443 + .00000, .00001, .00003,
3444 + .04421, .00710, .00131, .00001, .00000,
3445 + .00000, .00001, .00002,
3446 + .04082, .00652, .00114, .00001, .00000,
3447 + .00000, .00001, .00002,
3448 + .03808, .00605, .00102, .00001, .00000,
3449 + .00000, .00001, .00003,
3450 + .03575, .00566, .00092, .00000, .00000,
3451 + .00000, .00001, .00003,
3452 + .03302, .00520, .00081, .00000, .00000,
3453 + .00000, .00001, .00002,
3454 + .03066, .00480, .00072, .00000, .00000,
3455 + .00000, .00001, .00002,
3456 + .02863, .00446, .00065, .00000, .00000,
3457 + .00000, .00001, .00002 /
3458 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
3459 + .02673, .00415, .00059, .00000, .00000,
3460 + .00000, .00001, .00002,
3461 + .02501, .00387, .00054, .00000, .00000,
3462 + .00000, .00001, .00001,
3463 + .02351, .00362, .00049, .00000, .00000,
3464 + .00000, .00001, .00002,
3465 + .02217, .00340, .00045, .00000, .00000,
3466 + .00000, .00001, .00001,
3467 + .02091, .00320, .00042, .00001, .00000,
3468 + .00000, .00001, .00001,
3469 + .01976, .00301, .00039, .00000, .00000,
3470 + .00000, .00001, .00001,
3471 + .01873, .00284, .00036, .00000, .00000,
3472 + .00000, .00001, .00001,
3473 + .01780, .00269, .00034, .00000, .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 + .01692, .00255, .00032, .00000, .00000,
3477 + .00000, .00001, .00001,
3478 + .01609, .00242, .00030, .00000, .00000,
3479 + .00000, .00000, .00001,
3480 + .01534, .00230, .00028, .00000, .00000,
3481 + .00000, .00000, .00001,
3482 + .01467, .00220, .00026, .00000, .00000,
3483 + .00000, .00000, .00001,
3484 + .01402, .00209, .00025, .00000, .00000,
3485 + .00000, .00000, .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 + .10182, .01590, .00817, .00001, .00000,
3488 + .00000, .00000, .00004,
3489 + .09370, .01453, .00665, .00000, .00000,
3490 + .00000, .00000, .00004,
3491 + .08299, .01275, .00496, .00002, .00000,
3492 + .00000, .00001, .00001,
3493 + .07608, .01161, .00404, .00001, .00000,
3494 + .00000, .00001, .00002,
3495 + .06954, .01054, .00329, .00001, .00000,
3496 + .00000, .00000, .00002,
3497 + .06441, .00971, .00278, .00001, .00000,
3498 + .00000, .00001, .00002,
3499 + .05990, .00898, .00238, .00001, .00000,
3500 + .00000, .00001, .00002,
3501 + .05552, .00828, .00203, .00001, .00000,
3502 + .00000, .00000, .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 + .05202, .00772, .00178, .00000, .00000,
3505 + .00000, .00000, .00001,
3506 + .04887, .00722, .00157, .00000, .00000,
3507 + .00000, .00000, .00001,
3508 + .04653, .00685, .00143, .00000, .00000,
3509 + .00000, .00000, .00001,
3510 + .04198, .00614, .00117, -.00001, .00000,
3511 + .00000, .00001, .00001,
3512 + .03845, .00559, .00100, .00000, .00000,
3513 + .00000, .00000, .00001,
3514 + .03489, .00504, .00084, .00000, .00000,
3515 + .00000, .00000, .00001,
3516 + .03159, .00453, .00071, .00000, .00000,
3517 + .00000, .00000, .00000,
3518 + .02889, .00412, .00061, .00000, .00000,
3519 + .00000, .00000, .00000 /
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 + .02644, .00375, .00053, .00000, .00000,
3522 + .00000, .00000, .00000,
3523 + .02458, .00347, .00047, .00000, .00000,
3524 + .00000, .00000, .00000,
3525 + .02252, .00316, .00041, .00000, .00000,
3526 + .00000, .00000, .00000,
3527 + .02086, .00292, .00037, .00000, .00000,
3528 + .00000, .00000, .00001,
3529 + .01946, .00271, .00034, .00000, .00000,
3530 + .00000, .00000, .00000,
3531 + .01783, .00247, .00030, .00000, .00000,
3532 + .00000, .00000, .00000,
3533 + .01644, .00227, .00027, .00000, .00000,
3534 + .00000, .00000, .00000,
3535 + .01525, .00209, .00024, .00000, .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 + .01415, .00193, .00022, .00000, .00000,
3539 + .00000, .00000, .00000,
3540 + .01316, .00179, .00020, .00000, .00000,
3541 + .00000, .00000, .00000,
3542 + .01229, .00166, .00018, .00000, .00000,
3543 + .00000, .00000, .00000,
3544 + .01153, .00156, .00017, .00000, .00000,
3545 + .00000, .00000, .00000,
3546 + .01082, .00145, .00015, .00000, .00000,
3547 + .00000, .00000, .00000,
3548 + .01016, .00136, .00014, .00000, .00000,
3549 + .00000, .00000, .00000,
3550 + .00958, .00128, .00013, .00000, .00000,
3551 + .00000, .00000, .00000,
3552 + .00907, .00121, .00012, .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 + .00858, .00114, .00012, .00000, .00000,
3556 + .00000, .00000, .00000,
3557 + .00812, .00108, .00011, .00000, .00000,
3558 + .00000, .00000, .00000,
3559 + .00771, .00102, .00010, .00000, .00000,
3560 + .00000, .00000, .00000,
3561 + .00735, .00097, .00010, .00000, .00000,
3562 + .00000, .00000, .00000,
3563 + .00699, .00092, .00009, .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 + .05802, .00781, .00228, .00001, .00000,
3567 + .00000, -.00001, .00000,
3568 + .05290, .00707, .00186, .00001, .00000,
3569 + .00000, -.00001, .00000,
3570 + .04625, .00612, .00139, .00001, .00000,
3571 + .00000, -.00001, .00000,
3572 + .04198, .00553, .00114, .00001, .00000,
3573 + .00000, -.00001, .00000,
3574 + .03802, .00497, .00094, .00000, .00000,
3575 + .00000, .00000, .00000,
3576 + .03493, .00454, .00080, .00000, .00000,
3577 + .00000, .00000, .00000,
3578 + .03224, .00417, .00069, .00000, .00000,
3579 + .00000, .00000, .00001,
3580 + .02964, .00381, .00059, .00000, .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 + .02757, .00353, .00052, .00000, .00000,
3584 + .00000, .00000, .00000,
3585 + .02573, .00328, .00047, .00000, .00000,
3586 + .00000, .00000, .00000,
3587 + .02438, .00310, .00043, .00000, .00000,
3588 + .00000, .00000, .00000,
3589 + .02175, .00275, .00036, .00000, .00000,
3590 + .00000, .00000, .00000,
3591 + .01975, .00248, .00031, .00000, .00000,
3592 + .00000, .00000, .00000,
3593 + .01775, .00221, .00026, .00000, .00000,
3594 + .00000, .00000, .00000,
3595 + .01590, .00197, .00022, .00000, .00000,
3596 + .00000, .00000, .00000,
3597 + .01441, .00177, .00019, .00000, .00000,
3598 + .00000, .00000, .00000 /
3599 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/
3600 + .01307, .00160, .00017, .00000, .00000,
3601 + .00000, .00000, .00000,
3602 + .01206, .00147, .00015, .00000, .00000,
3603 + .00000, .00000, .00000,
3604 + .01096, .00133, .00013, .00000, .00000,
3605 + .00000, .00000, .00000,
3606 + .01007, .00122, .00012, .00000, .00000,
3607 + .00000, .00000, .00000,
3608 + .00933, .00112, .00011, .00000, .00000,
3609 + .00000, .00000, .00000,
3610 + .00848, .00101, .00010, .00000, .00000,
3611 + .00000, .00000, .00000,
3612 + .00775, .00092, .00009, .00000, .00000,
3613 + .00000, .00000, .00000,
3614 + .00713, .00085, .00008, .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 + .00657, .00078, .00007, .00000, .00000,
3618 + .00000, .00000, .00000,
3619 + .00607, .00071, .00006, .00000, .00000,
3620 + .00000, .00000, .00000,
3621 + .00563, .00066, .00006, .00000, .00000,
3622 + .00000, .00000, .00000,
3623 + .00525, .00061, .00005, .00000, .00000,
3624 + .00000, .00000, .00000,
3625 + .00490, .00057, .00005, .00000, .00000,
3626 + .00000, .00000, .00000,
3627 + .00458, .00053, .00005, .00000, .00000,
3628 + .00000, .00000, .00000,
3629 + .00429, .00050, .00004, .00000, .00000,
3630 + .00000, .00000, .00000,
3631 + .00404, .00047, .00004, .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 + .00380, .00044, .00004, .00000, .00000,
3635 + .00000, .00000, .00000,
3636 + .00358, .00041, .00003, .00000, .00000,
3637 + .00000, .00000, .00000,
3638 + .00338, .00039, .00003, .00000, .00000,
3639 + .00000, .00000, .00000,
3640 + .00320, .00037, .00003, .00000, .00000,
3641 + .00000, .00000, .00000,
3642 + .00304, .00035, .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 + .02824, .00318, .00046, .00000, .00000,
3646 + .00000, .00000, .00000,
3647 + .02548, .00285, .00039, .00000, .00000,
3648 + .00000, .00000, .00000,
3649 + .02194, .00243, .00030, .00000, .00000,
3650 + .00000, .00000, .00000,
3651 + .01971, .00217, .00025, .00000, .00000,
3652 + .00000, .00000, .00000,
3653 + .01764, .00193, .00021, .00000, .00000,
3654 + .00000, .00000, .00000,
3655 + .01606, .00175, .00019, .00000, .00000,
3656 + .00000, .00000, .00000,
3657 + .01469, .00159, .00016, .00000, .00000,
3658 + .00000, .00000, .00000,
3659 + .01338, .00144, .00014, .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 + .01235, .00133, .00013, .00000, .00000,
3663 + .00000, .00000, .00000,
3664 + .01144, .00122, .00012, .00000, .00000,
3665 + .00000, .00000, .00000,
3666 + .01077, .00115, .00011, .00000, .00000,
3667 + .00000, .00000, .00000,
3668 + .00949, .00100, .00009, .00000, .00000,
3669 + .00000, .00000, .00000,
3670 + .00852, .00090, .00008, .00000, .00000,
3671 + .00000, .00000, .00000,
3672 + .00757, .00079, .00007, .00000, .00000,
3673 + .00000, .00000, .00000,
3674 + .00670, .00070, .00006, .00000, .00000,
3675 + .00000, .00000, .00000,
3676 + .00601, .00062, .00005, .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 + .00540, .00056, .00005, .00000, .00000,
3680 + .00000, .00000, .00000,
3681 + .00494, .00051, .00004, .00000, .00000,
3682 + .00000, .00000, .00000,
3683 + .00444, .00045, .00004, .00000, .00000,
3684 + .00000, .00000, .00000,
3685 + .00404, .00041, .00003, .00000, .00000,
3686 + .00000, .00000, .00000,
3687 + .00372, .00038, .00003, .00000, .00000,
3688 + .00000, .00000, .00000,
3689 + .00334, .00034, .00003, .00000, .00000,
3690 + .00000, .00000, .00000,
3691 + .00303, .00030, .00002, .00000, .00000,
3692 + .00000, .00000, .00000,
3693 + .00276, .00028, .00002, .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 + .00252, .00025, .00002, .00000, .00000,
3697 + .00000, .00000, .00000,
3698 + .00231, .00023, .00002, .00000, .00000,
3699 + .00000, .00000, .00000,
3700 + .00213, .00021, .00002, .00000, .00000,
3701 + .00000, .00000, .00000,
3702 + .00197, .00019, .00001, .00000, .00000,
3703 + .00000, .00000, .00000,
3704 + .00182, .00018, .00001, .00000, .00000,
3705 + .00000, .00000, .00000,
3706 + .00169, .00017, .00001, .00000, .00000,
3707 + .00000, .00000, .00000,
3708 + .00158, .00015, .00001, .00000, .00000,
3709 + .00000, .00000, .00000,
3710 + .00147, .00014, .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 + .00138, .00013, .00001, .00000, .00000,
3714 + .00000, .00000, .00000,
3715 + .00129, .00012, .00001, .00000, .00000,
3716 + .00000, .00000, .00000,
3717 + .00121, .00012, .00001, .00000, .00000,
3718 + .00000, .00000, .00000,
3719 + .00114, .00011, .00001, .00000, .00000,
3720 + .00000, .00000, .00000,
3721 + .00108, .00010, .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 + .00270, .00018, .00000, .00000, .00000,
3725 + .00000, .00000, .00000,
3726 + .00237, .00016, .00000, .00000, .00000,
3727 + .00000, .00000, .00000,
3728 + .00195, .00013, .00000, .00000, .00000,
3729 + .00000, .00000, .00000,
3730 + .00170, .00011, .00000, .00000, .00000,
3731 + .00000, .00000, .00000,
3732 + .00147, .00010, .00000, .00000, .00000,
3733 + .00000, .00000, .00000,
3734 + .00130, .00009, .00000, .00000, .00000,
3735 + .00000, .00000, .00000,
3736 + .00116, .00008, .00000, .00000, .00000,
3737 + .00000, .00000, .00000,
3738 + .00103, .00007, .00000, .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 + .00093, .00006, .00000, .00000, .00000,
3742 + .00000, .00000, .00000,
3743 + .00084, .00005, .00000, .00000, .00000,
3744 + .00000, .00000, .00000,
3745 + .00078, .00005, .00000, .00000, .00000,
3746 + .00000, .00000, .00000,
3747 + .00066, .00004, .00000, .00000, .00000,
3748 + .00000, .00000, .00000,
3749 + .00058, .00004, .00000, .00000, .00000,
3750 + .00000, .00000, .00000,
3751 + .00050, .00003, .00000, .00000, .00000,
3752 + .00000, .00000, .00000,
3753 + .00042, .00003, .00000, .00000, .00000,
3754 + .00000, .00000, .00000,
3755 + .00037, .00002, .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 + .00032, .00002, .00000, .00000, .00000,
3759 + .00000, .00000, .00000,
3760 + .00029, .00002, .00000, .00000, .00000,
3761 + .00000, .00000, .00000,
3762 + .00025, .00002, .00000, .00000, .00000,
3763 + .00000, .00000, .00000,
3764 + .00022, .00001, .00000, .00000, .00000,
3765 + .00000, .00000, .00000,
3766 + .00020, .00001, .00000, .00000, .00000,
3767 + .00000, .00000, .00000,
3768 + .00017, .00001, .00000, .00000, .00000,
3769 + .00000, .00000, .00000,
3770 + .00015, .00001, .00000, .00000, .00000,
3771 + .00000, .00000, .00000,
3772 + .00014, .00001, .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 + .00012, .00001, .00000, .00000, .00000,
3776 + .00000, .00000, .00000,
3777 + .00011, .00001, .00000, .00000, .00000,
3778 + .00000, .00000, .00000,
3779 + .00010, .00001, .00000, .00000, .00000,
3780 + .00000, .00000, .00000,
3781 + .00009, .00001, .00000, .00000, .00000,
3782 + .00000, .00000, .00000,
3783 + .00008, .00001, .00000, .00000, .00000,
3784 + .00000, .00000, .00000,
3785 + .00007, .00001, .00000, .00000, .00000,
3786 + .00000, .00000, .00000,
3787 + .00007, .00001, .00000, .00000, .00000,
3788 + .00000, .00000, .00000,
3789 + .00006, .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 + .00005, .00001, .00000, .00000, .00000,
3793 + .00000, .00000, .00000,
3794 + .00005, .00001, .00000, .00000, .00000,
3795 + .00000, .00000, .00000,
3796 + .00005, .00001, .00000, .00000, .00000,
3797 + .00000, .00000, .00000,
3798 + .00004, .00001, .00000, .00000, .00000,
3799 + .00000, .00000, .00000,
3800 + .00004, .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=3,file='mrschm3.dat',status='old')
3826 C read(3,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