]> git.uio.no Git - u/mrichter/AliRoot.git/blame - PDF/spdf/sfmrs_99a10.F
git://git.uio.no / u / mrichter / AliRoot.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Default shish-kebab geometry for EMCAL
[u/mrichter/AliRoot.git] / PDF / spdf / sfmrs_99a10.F
CommitLineData
21886bb6 1#include "pdf/pilot.h"
2 subroutine sfmrs_99a10(x,qsq,upv,dnv,usea,dsea,str,chm,bot,glu)
3C
4#include "pdf/impdp.inc"
5C
6 parameter(nx=49,nq=37,ntenth=23,np=8)
7C
7ef50f50 8#if defined(CERNLIB_DOUBLE)
9 DOUBLE PRECISION
10#endif
11#if defined(CERNLIB_SINGLE)
12 REAL
13#endif
21886bb6 14 + f(np,nx,nq+1),qq(nq),xx(nx),g(np),n0(np)
15 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,8)/
16 + .00525, .00225, 1.12228, .89535, .00000,
17 + .00000, .47745, .90766,
18 + .00541, .00231, 2.40311, .93067, .00000,
19 + .00000, .51822, .94304,
20 + .00565, .00242, 4.93807, 1.00814, .00000,
21 + .00000, .60340, 1.02058,
22 + .00583, .00249, 7.38439, 1.08284, .00000,
23 + .00000, .68349, 1.09532,
24 + .00601, .00257, 10.39913, 1.18129, .02346,
25 + .00000, .78739, 1.19382,
26 + .00617, .00264, 13.34146, 1.28159, .14145,
27 + .00000, .89221, 1.29413,
28 + .00633, .00271, 16.63801, 1.39105, .27736,
29 + .00000, 1.00591, 1.40362,
30 + .00649, .00279, 20.70532, 1.52237, .42355,
31 + .00000, 1.14161, 1.53495 /
32 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
33 + .00664, .00286, 24.65690, 1.65043, .55883,
34 + .00000, 1.27340, 1.66302,
35 + .00678, .00292, 28.90014, 1.78644, .70347,
36 + .00000, 1.41292, 1.79903,
37 + .00689, .00297, 32.61700, 1.90285, .82992,
38 + .00000, 1.53207, 1.91544,
39 + .00713, .00309, 41.21872, 2.17968, 1.12298,
40 + .02293, 1.81458, 2.19227,
41 + .00733, .00318, 49.30855, 2.44747, 1.40347,
42 + .35118, 2.08709, 2.46004,
43 + .00757, .00330, 59.52070, 2.78254, 1.75486,
44 + .75502, 2.42730, 2.79510,
45 + .00781, .00342, 71.53603, 3.17173, 2.16203,
46 + 1.17899, 2.82168, 3.18426,
47 + .00804, .00353, 83.68587, 3.56207, 2.56968,
48 + 1.60372, 3.21660, 3.57457 /
49 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
50 + .00827, .00364, 97.21748, 3.99429, 3.02080,
51 + 2.07185, 3.65332, 4.00676,
52 + .00846, .00373, 109.39142, 4.38289, 3.42412,
53 + 2.48593, 4.04557, 4.39534,
54 + .00870, .00385, 125.31087, 4.89143, 3.94990,
55 + 3.02384, 4.55843, 4.90383,
56 + .00891, .00395, 140.55878, 5.37749, 4.45329,
57 + 3.54107, 5.04822, 5.38985,
58 + .00910, .00405, 155.52542, 5.85430, 4.94729,
59 + 4.04895, 5.52839, 5.86663,
60 + .00935, .00418, 175.65685, 6.50033, 5.61193,
61 + 4.72622, 6.17858, 6.51260,
62 + .00958, .00430, 195.97507, 7.15348, 6.28451,
63 + 5.41334, 6.83555, 7.16570,
64 + .00981, .00441, 216.32759, 7.80824, 6.96013,
65 + 6.10577, 7.49380, 7.82042 /
66 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
67 + .01003, .00453, 237.56422, 8.49924, 7.66784,
68 + 6.82455, 8.18823, 8.51136,
69 + .01025, .00464, 259.58493, 9.21725, 8.40484,
70 + 7.57587, 8.90952, 9.22932,
71 + .01047, .00475, 281.48926, 9.93490, 9.14117,
72 + 8.32642, 9.63021, 9.94692,
73 + .01067, .00485, 302.87012, 10.64187, 9.86407,
74 + 9.06067, 10.34000, 10.65384,
75 + .01087, .00496, 325.46841, 11.39003, 10.63113,
76 + 9.84255, 11.09093, 11.40195,
77 + .01107, .00507, 348.24216, 12.15321, 11.40980,
78 + 10.63207, 11.85681, 12.16508,
79 + .01127, .00517, 370.98849, 12.91572, 12.19038,
80 + 11.42689, 12.62183, 12.92754,
81 + .01145, .00526, 392.87900, 13.65874, 12.94753,
82 + 12.19407, 13.36718, 13.67050 /
83 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
84 + .01164, .00536, 415.90585, 14.44152, 13.74703,
85 + 13.00650, 14.15229, 14.45324,
86 + .01183, .00546, 439.12079, 15.23818, 14.55892,
87 + 13.82971, 14.95122, 15.24985,
88 + .01201, .00555, 461.94223, 16.02556, 15.36135,
89 + 14.64348, 15.74072, 16.03719,
90 + .01218, .00565, 484.27039, 16.79906, 16.15020,
91 + 15.44438, 16.51622, 16.81065,
92 + .01236, .00574, 507.09567, 17.59878, 16.96319,
93 + 16.26715, 17.31792, 17.61032 /
94 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
95 + .00708, .00307, 1.04676, .75836, .00000,
96 + .00000, .40387, .76549,
97 + .00731, .00317, 2.20061, .79119, .00000,
98 + .00000, .44095, .79835,
99 + .00764, .00332, 4.43490, .85978, .00000,
100 + .00000, .51556, .86698,
101 + .00789, .00343, 6.54747, .92421, .00000,
102 + .00000, .58419, .93143,
103 + .00815, .00355, 9.10738, 1.00755, .01993,
104 + .00000, .67176, 1.01479,
105 + .00837, .00366, 11.56874, 1.09135, .11828,
106 + .00000, .75907, 1.09861,
107 + .00859, .00376, 14.29358, 1.18201, .23096,
108 + .00000, .85302, 1.18928,
109 + .00881, .00387, 17.61647, 1.28988, .35077,
110 + .00000, .96428, 1.29715 /
111 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
112 + .00901, .00397, 20.80819, 1.39414, .46066,
113 + .00000, 1.07143, 1.40142,
114 + .00921, .00406, 24.20262, 1.50411, .57732,
115 + .00000, 1.18412, 1.51139,
116 + .00936, .00413, 27.15274, 1.59776, .67871,
117 + .00000, 1.27989, 1.60505,
118 + .00969, .00430, 33.89999, 1.81859, .91164,
119 + .01872, 1.50510, 1.82587,
120 + .00998, .00444, 40.15580, 2.03018, 1.13236,
121 + .27660, 1.72034, 2.03746,
122 + .01030, .00460, 47.95551, 2.29261, 1.40635,
123 + .59191, 1.98673, 2.29988,
124 + .01064, .00477, 57.01614, 2.59456, 1.72076,
125 + .91910, 2.29268, 2.60182,
126 + .01095, .00492, 66.06915, 2.89472, 2.03270,
127 + 1.24385, 2.59638, 2.90197 /
128 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
129 + .01126, .00508, 76.04121, 3.22437, 2.37505,
130 + 1.59869, 2.92949, 3.23160,
131 + .01152, .00522, 84.92364, 3.51851, 2.67877,
132 + 1.91006, 3.22644, 3.52573,
133 + .01184, .00538, 96.42598, 3.90056, 3.07173,
134 + 2.31143, 3.61182, 3.90776,
135 + .01213, .00553, 107.33889, 4.26306, 3.44524,
136 + 2.69458, 3.97720, 4.27025,
137 + .01239, .00567, 117.96153, 4.61639, 3.80947,
138 + 3.06840, 4.33310, 4.62356,
139 + .01273, .00584, 132.11644, 5.09161, 4.29587,
140 + 3.56307, 4.81152, 5.09875,
141 + .01305, .00601, 146.27019, 5.56855, 4.78456,
142 + 4.06135, 5.29140, 5.57568,
143 + .01335, .00617, 160.32941, 6.04352, 5.27231,
144 + 4.56030, 5.76906, 6.05062 /
145 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
146 + .01366, .00633, 174.86993, 6.54130, 5.77961,
147 + 5.07441, 6.26947, 6.54838,
148 + .01396, .00649, 189.83273, 7.05538, 6.30480,
149 + 5.60872, 6.78607, 7.06243,
150 + .01425, .00664, 204.60663, 7.56616, 6.82648,
151 + 6.13940, 7.29920, 7.57319,
152 + .01452, .00678, 218.92163, 8.06642, 7.33565,
153 + 6.65543, 7.80163, 8.07343,
154 + .01479, .00693, 233.95966, 8.59319, 7.87338,
155 + 7.20246, 8.33054, 8.60018,
156 + .01507, .00707, 249.00482, 9.12747, 8.41606,
157 + 7.75149, 8.86689, 9.13444,
158 + .01533, .00721, 263.95044, 9.65888, 8.95780,
159 + 8.30201, 9.40023, 9.66582,
160 + .01558, .00734, 278.23807, 10.17401, 9.48047,
161 + 8.83043, 9.91716, 10.18093 /
162 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
163 + .01583, .00748, 293.19366, 10.71448, 10.03024,
164 + 9.38798, 10.45942, 10.72138,
165 + .01608, .00761, 308.18170, 11.26193, 10.58589,
166 + 9.95019, 11.00862, 11.26881,
167 + .01632, .00774, 322.84000, 11.80074, 11.13283,
168 + 10.50371, 11.54907, 11.80760,
169 + .01655, .00787, 337.11465, 12.32802, 11.66853,
170 + 11.04652, 12.07789, 12.33486,
171 + .01679, .00799, 351.62543, 12.87079, 12.21815,
172 + 11.60155, 12.62219, 12.87761 /
173 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
174 + .00955, .00419, .97736, .64207, .00000,
175 + .00000, .34173, .64559,
176 + .00987, .00434, 2.01640, .67231, .00000,
177 + .00000, .37528, .67584,
178 + .01034, .00456, 3.98421, .73292, .00000,
179 + .00000, .44057, .73647,
180 + .01068, .00473, 5.80641, .78845, .00000,
181 + .00000, .49937, .79201,
182 + .01104, .00491, 7.97670, .85896, .01692,
183 + .00000, .57315, .86252,
184 + .01135, .00506, 10.03171, .92892, .09886,
185 + .00000, .64583, .93249,
186 + .01165, .00521, 12.27906, 1.00393, .19225,
187 + .00000, .72338, 1.00750,
188 + .01197, .00537, 14.98715, 1.09241, .29039,
189 + .00000, .81448, 1.09599 /
190 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
191 + .01224, .00551, 17.55810, 1.17715, .37960,
192 + .00000, .90145, 1.18073,
193 + .01251, .00564, 20.26553, 1.26589, .47361,
194 + .00000, .99228, 1.26947,
195 + .01273, .00575, 22.59988, 1.34107, .55485,
196 + .00000, 1.06909, 1.34465,
197 + .01318, .00599, 27.87453, 1.51676, .73977,
198 + .01528, 1.24816, 1.52035,
199 + .01357, .00619, 32.69355, 1.68348, .91325,
200 + .21775, 1.41768, 1.68707,
201 + .01402, .00642, 38.62614, 1.88836, 1.12657,
202 + .46382, 1.62560, 1.89195,
203 + .01448, .00666, 45.42850, 2.12183, 1.36896,
204 + .71614, 1.86214, 2.12541,
205 + .01490, .00688, 52.14231, 2.35181, 1.60722,
206 + .96424, 2.09482, 2.35539 /
207 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
208 + .01533, .00711, 59.45475, 2.60226, 1.86648,
209 + 1.23295, 2.34792, 2.60583,
210 + .01569, .00730, 65.90182, 2.82399, 2.09467,
211 + 1.46680, 2.57180, 2.82756,
212 + .01613, .00753, 74.16721, 3.10979, 2.38764,
213 + 1.76589, 2.86014, 3.11336,
214 + .01652, .00773, 81.93324, 3.37895, 2.66407,
215 + 2.04931, 3.13150, 3.38252,
216 + .01688, .00793, 89.42848, 3.63958, 2.93186,
217 + 2.32400, 3.39409, 3.64314,
218 + .01734, .00817, 99.31969, 3.98748, 3.28675,
219 + 2.68462, 3.74444, 3.99105,
220 + .01778, .00840, 109.11588, 4.33405, 3.64070,
221 + 3.04524, 4.09325, 4.33761,
222 + .01819, .00862, 118.76360, 4.67686, 3.99166,
223 + 3.40399, 4.43811, 4.68041 /
224 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
225 + .01860, .00885, 128.65027, 5.03356, 4.35400,
226 + 3.77081, 4.79682, 5.03712,
227 + .01900, .00906, 138.74493, 5.39967, 4.72688,
228 + 4.14981, 5.16485, 5.40322,
229 + .01939, .00927, 148.63646, 5.76123, 5.09506,
230 + 4.52400, 5.52820, 5.76478,
231 + .01976, .00947, 158.14757, 6.11323, 5.45224,
232 + 4.88561, 5.88185, 6.11677,
233 + .02013, .00967, 168.07722, 6.48201, 5.82766,
234 + 5.26717, 6.25226, 6.48555,
235 + .02050, .00987, 177.93613, 6.85384, 6.20423,
236 + 5.64771, 6.62567, 6.85738,
237 + .02085, .01006, 187.67624, 7.22200, 6.57856,
238 + 6.02776, 6.99530, 7.22553,
239 + .02118, .01025, 196.92212, 7.57695, 6.93768,
240 + 6.39043, 7.35163, 7.58048 /
241 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
242 + .02152, .01043, 206.55217, 7.94781, 7.31398,
243 + 6.77167, 7.72386, 7.95134,
244 + .02186, .01062, 216.14240, 8.32164, 7.69241,
245 + 7.15415, 8.09902, 8.32517,
246 + .02218, .01079, 225.47247, 8.68800, 8.06336,
247 + 7.52917, 8.46663, 8.69153,
248 + .02249, .01096, 234.51477, 9.04512, 8.42533,
249 + 7.89559, 8.82493, 9.04865,
250 + .02280, .01113, 243.65152, 9.41106, 8.79495,
251 + 8.26842, 9.19203, 9.41458 /
252 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
253 + .01139, .00503, .93976, .58238, .00000,
254 + .00000, .30999, .58441,
255 + .01177, .00522, 1.91686, .61110, .00000,
256 + .00000, .34157, .61313,
257 + .01234, .00550, 3.74307, .66741, .00000,
258 + .00000, .40193, .66945,
259 + .01276, .00571, 5.41321, .71829, .00000,
260 + .00000, .45562, .72034,
261 + .01320, .00593, 7.38202, .78220, .01537,
262 + .00000, .52236, .78425,
263 + .01357, .00612, 9.22923, .84512, .08900,
264 + .00000, .58762, .84718,
265 + .01393, .00631, 11.23462, .91222, .17264,
266 + .00000, .65689, .91427,
267 + .01431, .00651, 13.63402, .99095, .25994,
268 + .00000, .73788, .99301 /
269 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
270 + .01465, .00668, 15.89602, 1.06594, .33887,
271 + .00000, .81478, 1.06800,
272 + .01497, .00685, 18.26413, 1.14413, .42168,
273 + .00000, .89476, 1.14619,
274 + .01523, .00698, 20.29624, 1.21015, .49300,
275 + .00000, .96219, 1.21222,
276 + .01578, .00727, 24.85473, 1.36364, .65446,
277 + .01356, 1.11857, 1.36572,
278 + .01625, .00752, 28.98272, 1.50844, .80502,
279 + .18925, 1.26576, 1.51051,
280 + .01679, .00780, 34.02618, 1.68539, .98913,
281 + .40199, 1.44532, 1.68747,
282 + .01734, .00810, 39.76410, 1.88587, 1.19709,
283 + .61863, 1.64842, 1.88796,
284 + .01785, .00837, 45.38597, 2.08228, 1.40038,
285 + .83045, 1.84714, 2.08437 /
286 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
287 + .01837, .00865, 51.46790, 2.29508, 1.62046,
288 + 1.05866, 2.06221, 2.29718,
289 + .01880, .00888, 56.79725, 2.48261, 1.81326,
290 + 1.25631, 2.25157, 2.48471,
291 + .01933, .00916, 63.58873, 2.72321, 2.05964,
292 + 1.50791, 2.49434, 2.72532,
293 + .01979, .00941, 69.93290, 2.94881, 2.29108,
294 + 1.74527, 2.72181, 2.95092,
295 + .02023, .00965, 76.02460, 3.16638, 2.51442,
296 + 1.97442, 2.94106, 3.16849,
297 + .02077, .00994, 84.01689, 3.45551, 2.80904,
298 + 2.27383, 3.23227, 3.45763,
299 + .02129, .01023, 91.88715, 3.74225, 3.10160,
300 + 2.57192, 3.52092, 3.74438,
301 + .02178, .01049, 99.59846, 4.02474, 3.39054,
302 + 2.86733, 3.80515, 4.02687 /
303 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
304 + .02228, .01076, 107.45668, 4.31742, 3.68753,
305 + 3.16798, 4.09954, 4.31956,
306 + .02276, .01103, 115.44278, 4.61670, 3.99206,
307 + 3.47752, 4.40046, 4.61884,
308 + .02322, .01128, 123.23236, 4.91120, 4.29169,
309 + 3.78205, 4.69648, 4.91335,
310 + .02366, .01152, 130.68756, 5.19688, 4.58130,
311 + 4.07524, 4.98356, 5.19903,
312 + .02410, .01176, 138.44206, 5.49528, 4.88483,
313 + 4.38375, 5.28336, 5.49744,
314 + .02454, .01200, 146.10555, 5.79509, 5.18818,
315 + 4.69026, 5.58451, 5.79725,
316 + .02496, .01223, 153.65193, 6.09112, 5.48897,
317 + 4.99566, 5.88180, 6.09330,
318 + .02535, .01245, 160.78462, 6.37562, 5.77655,
319 + 5.28604, 6.16747, 6.37780 /
320 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
321 + .02575, .01267, 168.19147, 6.67214, 6.07719,
322 + 5.59063, 6.46515, 6.67433,
323 + .02615, .01289, 175.53937, 6.97014, 6.37864,
324 + 5.89528, 6.76429, 6.97234,
325 + .02654, .01311, 182.66512, 7.26145, 6.67339,
326 + 6.19325, 7.05666, 7.26365,
327 + .02690, .01331, 189.55107, 7.54475, 6.96035,
328 + 6.48373, 7.34096, 7.54696,
329 + .02727, .01351, 196.48325, 7.83425, 7.25254,
330 + 6.77843, 7.63145, 7.83646 /
331 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
332 + .01290, .00573, .91453, .54337, .00000,
333 + .00000, .28933, .54459,
334 + .01335, .00595, 1.84989, .57102, .00000,
335 + .00000, .31955, .57224,
336 + .01400, .00629, 3.58151, .62443, .00000,
337 + .00000, .37661, .62566,
338 + .01448, .00653, 5.15101, .67224, .00000,
339 + .00000, .42696, .67348,
340 + .01497, .00679, 6.98749, .73184, .01436,
341 + .00000, .48909, .73307,
342 + .01540, .00701, 8.69919, .79018, .08258,
343 + .00000, .54954, .79142,
344 + .01582, .00723, 10.54770, .85214, .15992,
345 + .00000, .61346, .85339,
346 + .01626, .00746, 12.74810, .92459, .24024,
347 + .00000, .68794, .92584 /
348 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
349 + .01664, .00766, 14.81205, .99331, .31258,
350 + .00000, .75837, .99456,
351 + .01701, .00786, 16.96367, 1.06474, .38825,
352 + .00000, .83141, 1.06599,
353 + .01730, .00801, 18.80372, 1.12491, .45324,
354 + .00000, .89284, 1.12617,
355 + .01793, .00835, 22.90975, 1.26427, .59984,
356 + .01246, 1.03480, 1.26554,
357 + .01847, .00864, 26.60425, 1.39517, .73593,
358 + .17127, 1.16784, 1.39645,
359 + .01908, .00896, 31.09339, 1.55451, .90169,
360 + .36309, 1.32952, 1.55580,
361 + .01971, .00931, 36.17203, 1.73428, 1.08812,
362 + .55744, 1.51163, 1.73557,
363 + .02029, .00962, 41.12167, 1.90970, 1.26965,
364 + .74672, 1.68911, 1.91100 /
365 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
366 + .02088, .00994, 46.45036, 2.09906, 1.46545,
367 + .94988, 1.88051, 2.10038,
368 + .02137, .01021, 51.09896, 2.26538, 1.63639,
369 + 1.12520, 2.04846, 2.26670,
370 + .02197, .01053, 56.99728, 2.47806, 1.85411,
371 + 1.34763, 2.26308, 2.47939,
372 + .02250, .01082, 62.48400, 2.67683, 2.05798,
373 + 1.55682, 2.46353, 2.67818,
374 + .02299, .01109, 67.73302, 2.86800, 2.25416,
375 + 1.75819, 2.65619, 2.86935,
376 + .02362, .01143, 74.59054, 3.12121, 2.51209,
377 + 2.02041, 2.91126, 3.12257,
378 + .02421, .01176, 81.31540, 3.37151, 2.76740,
379 + 2.28065, 3.16327, 3.37289,
380 + .02476, .01206, 87.88012, 3.61740, 3.01885,
381 + 2.53782, 3.41072, 3.61879 /
382 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
383 + .02532, .01237, 94.54267, 3.87136, 3.27647,
384 + 2.79868, 3.66620, 3.87276,
385 + .02587, .01267, 101.29082, 4.13036, 3.53995,
386 + 3.06659, 3.92667, 4.13178,
387 + .02639, .01296, 107.85107, 4.38456, 3.79852,
388 + 3.32947, 4.18223, 4.38599,
389 + .02689, .01324, 114.10844, 4.63050, 4.04778,
390 + 3.58187, 4.42942, 4.63194,
391 + .02739, .01351, 120.59962, 4.88685, 4.30850,
392 + 3.84695, 4.68701, 4.88831,
393 + .02788, .01379, 126.99264, 5.14374, 4.56835,
394 + 4.10956, 4.94510, 5.14521,
395 + .02835, .01405, 133.27339, 5.39691, 4.82555,
396 + 4.37078, 5.19939, 5.39839,
397 + .02880, .01430, 139.19069, 5.63963, 5.07085,
398 + 4.61852, 5.44315, 5.64112 /
399 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
400 + .02925, .01455, 145.32248, 5.89217, 5.32687,
401 + 4.87796, 5.69673, 5.89367,
402 + .02970, .01480, 151.38820, 6.14542, 5.58301,
403 + 5.13688, 5.95100, 6.14694,
404 + .03013, .01504, 157.25691, 6.39254, 5.83301,
405 + 5.38966, 6.19907, 6.39407,
406 + .03054, .01527, 162.91612, 6.63246, 6.07601,
407 + 5.63571, 6.43988, 6.63400,
408 + .03096, .01550, 168.59784, 6.87713, 6.32292,
409 + 5.88478, 6.68544, 6.87869 /
410 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
411 + .01421, .00634, .89586, .51491, .00000,
412 + .00000, .27429, .51563,
413 + .01471, .00659, 1.80006, .54172, .00000,
414 + .00000, .30349, .54245,
415 + .01544, .00697, 3.46150, .59298, .00000,
416 + .00000, .35811, .59371,
417 + .01597, .00725, 4.95680, .63853, .00000,
418 + .00000, .40599, .63926,
419 + .01652, .00754, 6.69629, .69496, .01361,
420 + .00000, .46477, .69570,
421 + .01700, .00779, 8.30917, .74997, .07792,
422 + .00000, .52172, .75071,
423 + .01745, .00804, 10.04378, .80821, .15068,
424 + .00000, .58177, .80896,
425 + .01794, .00830, 12.10030, .87611, .22596,
426 + .00000, .65153, .87687 /
427 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
428 + .01837, .00852, 14.02164, .94031, .29355,
429 + .00000, .71731, .94107,
430 + .01878, .00874, 16.01795, 1.00687, .36409,
431 + .00000, .78536, 1.00764,
432 + .01910, .00892, 17.72059, 1.06284, .42455,
433 + .00000, .84249, 1.06362,
434 + .01980, .00929, 21.50437, 1.19208, .56052,
435 + .01166, .97411, 1.19287,
436 + .02040, .00962, 24.89169, 1.31306, .68633,
437 + .15847, 1.09707, 1.31386,
438 + .02107, .00998, 28.98990, 1.45987, .83906,
439 + .33545, 1.24602, 1.46068,
440 + .02178, .01037, 33.60579, 1.62495, 1.01028,
441 + .51407, 1.41325, 1.62577,
442 + .02242, .01072, 38.08572, 1.78554, 1.17647,
443 + .68747, 1.57574, 1.78638 /
444 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
445 + .02307, .01107, 42.89031, 1.95840, 1.35521,
446 + .87304, 1.75046, 1.95925,
447 + .02361, .01137, 47.06711, 2.10981, 1.51084,
448 + 1.03275, 1.90338, 2.11068,
449 + .02427, .01174, 52.34855, 2.30293, 1.70854,
450 + 1.23484, 2.09828, 2.30381,
451 + .02486, .01206, 57.24530, 2.48297, 1.89321,
452 + 1.42441, 2.27985, 2.48386,
453 + .02540, .01236, 61.91633, 2.65573, 2.07051,
454 + 1.60650, 2.45399, 2.65664,
455 + .02609, .01274, 67.99828, 2.88397, 2.30301,
456 + 1.84297, 2.68393, 2.88490,
457 + .02674, .01310, 73.94312, 3.10903, 2.53258,
458 + 2.07708, 2.91056, 3.10998,
459 + .02735, .01344, 79.72946, 3.32961, 2.75817,
460 + 2.30792, 3.13257, 3.33058 /
461 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
462 + .02797, .01378, 85.58313, 3.55689, 2.98871,
463 + 2.54145, 3.36124, 3.55787,
464 + .02857, .01412, 91.49623, 3.78818, 3.22402,
465 + 2.78081, 3.59387, 3.78918,
466 + .02915, .01444, 97.22963, 4.01473, 3.45448,
467 + 3.01520, 3.82167, 4.01575,
468 + .02969, .01474, 102.68355, 4.23346, 3.67618,
469 + 3.23977, 4.04155, 4.23450,
470 + .03024, .01505, 108.32943, 4.46107, 3.90769,
471 + 3.47525, 4.27029, 4.46213,
472 + .03078, .01535, 113.87471, 4.68869, 4.13795,
473 + 3.70803, 4.49901, 4.68976,
474 + .03130, .01564, 119.31264, 4.91268, 4.36554,
475 + 3.93927, 4.72403, 4.91377,
476 + .03179, .01592, 124.42277, 5.12702, 4.58216,
477 + 4.15812, 4.93933, 5.12813 /
478 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
479 + .03229, .01620, 129.70924, 5.34972, 4.80796,
480 + 4.38703, 5.16298, 5.35085,
481 + .03278, .01647, 134.92703, 5.57268, 5.03348,
482 + 4.61507, 5.38687, 5.57383,
483 + .03326, .01674, 139.96600, 5.78992, 5.25329,
484 + 4.83739, 5.60498, 5.79109,
485 + .03371, .01699, 144.81709, 6.00056, 5.46666,
486 + 5.05352, 5.81644, 6.00174,
487 + .03417, .01725, 149.67650, 6.21503, 5.68311,
488 + 5.27193, 6.03172, 6.21622 /
489 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
490 + .01923, .00871, .84367, .43567, .00000,
491 + .00000, .23264, .43550,
492 + .01992, .00909, 1.65750, .45994, .00000,
493 + .00000, .25879, .45979,
494 + .02093, .00964, 3.11732, .50492, .00000,
495 + .00000, .30642, .50479,
496 + .02166, .01005, 4.40189, .54403, .00000,
497 + .00000, .34737, .54391,
498 + .02243, .01047, 5.86864, .59161, .01153,
499 + .00000, .39679, .59151,
500 + .02309, .01084, 7.20615, .63735, .06496,
501 + .00000, .44404, .63727,
502 + .02373, .01119, 8.62575, .68531, .12509,
503 + .00000, .49342, .68524,
504 + .02440, .01156, 10.28732, .74069, .18653,
505 + .00000, .55026, .74064 /
506 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
507 + .02499, .01189, 11.82007, .79252, .24119,
508 + .00000, .60333, .79249,
509 + .02555, .01221, 13.39576, .84583, .29779,
510 + .00000, .65780, .84582,
511 + .02600, .01246, 14.72825, .89041, .34601,
512 + .00000, .70328, .89041,
513 + .02696, .01299, 17.65043, .99232, .45341,
514 + .00949, .80705, .99236,
515 + .02778, .01346, 20.22408, 1.08670, .55171,
516 + .12429, .90296, 1.08676,
517 + .02871, .01398, 23.29516, 1.20008, .66987,
518 + .26184, 1.01801, 1.20017,
519 + .02967, .01452, 26.70554, 1.32622, .80092,
520 + .39895, 1.14583, 1.32635,
521 + .03055, .01502, 29.97158, 1.44771, .92687,
522 + .53075, 1.26880, 1.44788 /
523 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
524 + .03144, .01552, 33.43157, 1.57730, 1.06109,
525 + .67048, 1.39983, 1.57750,
526 + .03218, .01594, 36.40583, 1.68984, 1.17695,
527 + .78969, 1.51354, 1.69008,
528 + .03308, .01645, 40.12552, 1.83220, 1.32291,
529 + .93927, 1.65727, 1.83247,
530 + .03388, .01690, 43.53792, 1.96384, 1.45816,
531 + 1.07848, 1.79011, 1.96415,
532 + .03461, .01732, 46.76278, 2.08927, 1.58711,
533 + 1.21125, 1.91660, 2.08961,
534 + .03555, .01785, 50.91646, 2.25363, 1.75479,
535 + 1.38218, 2.08228, 2.25401,
536 + .03643, .01835, 54.93406, 2.41439, 1.91903,
537 + 1.55008, 2.24425, 2.41481,
538 + .03726, .01882, 58.80806, 2.57082, 2.07930,
539 + 1.71448, 2.40179, 2.57128 /
540 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
541 + .03809, .01929, 62.68601, 2.73072, 2.24174,
542 + 1.87938, 2.56277, 2.73122,
543 + .03890, .01975, 66.56994, 2.89238, 2.40648,
544 + 2.04734, 2.72546, 2.89291,
545 + .03967, .02020, 70.30402, 3.04969, 2.56677,
546 + 2.21074, 2.88374, 3.05026,
547 + .04040, .02061, 73.82474, 3.20057, 2.71993,
548 + 2.36622, 3.03551, 3.20118,
549 + .04114, .02103, 77.44503, 3.35674, 2.87907,
550 + 2.52846, 3.19256, 3.35738,
551 + .04187, .02145, 80.96884, 3.51189, 3.03625,
552 + 2.68769, 3.34856, 3.51257,
553 + .04256, .02184, 84.40439, 3.66384, 3.19093,
554 + 2.84520, 3.50131, 3.66456,
555 + .04322, .02222, 87.60541, 3.80836, 3.33721,
556 + 2.99328, 3.64657, 3.80911 /
557 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
558 + .04389, .02260, 90.89925, 3.95787, 3.48907,
559 + 3.14757, 3.79681, 3.95865,
560 + .04454, .02297, 94.12605, 4.10674, 3.63990,
561 + 3.30040, 3.94640, 4.10756,
562 + .04517, .02333, 97.22351, 4.25113, 3.78624,
563 + 3.44872, 4.09146, 4.25197,
564 + .04577, .02367, 100.18954, 4.39053, 3.92772,
565 + 3.59234, 4.23150, 4.39141,
566 + .04638, .02402, 103.13859, 4.53174, 4.07045,
567 + 3.73664, 4.37334, 4.53265 /
568 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
569 + .02608, .01207, .80311, .36902, .00000,
570 + .00000, .19789, .36881,
571 + .02704, .01262, 1.53565, .39083, .00000,
572 + .00000, .22121, .39066,
573 + .02845, .01343, 2.81595, .43011, .00000,
574 + .00000, .26262, .43000,
575 + .02947, .01402, 3.91590, .46356, .00000,
576 + .00000, .29755, .46349,
577 + .03054, .01463, 5.14732, .50353, .00974,
578 + .00000, .33899, .50350,
579 + .03145, .01516, 6.25057, .54140, .05397,
580 + .00000, .37808, .54142,
581 + .03233, .01567, 7.40527, .58071, .10348,
582 + .00000, .41853, .58077,
583 + .03326, .01621, 8.73857, .62566, .15345,
584 + .00000, .46465, .62577 /
585 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
586 + .03407, .01668, 9.95205, .66728, .19745,
587 + .00000, .50725, .66742,
588 + .03485, .01713, 11.18557, .70972, .24266,
589 + .00000, .55063, .70990,
590 + .03547, .01749, 12.21937, .74500, .28093,
591 + .00000, .58663, .74521,
592 + .03679, .01825, 14.45469, .82481, .36532,
593 + .00769, .66793, .82508,
594 + .03792, .01891, 16.38918, .89787, .44169,
595 + .09702, .74223, .89820,
596 + .03918, .01965, 18.66395, .98472, .53253,
597 + .20339, .83041, .98512,
598 + .04050, .02041, 21.15230, 1.08026, .63217,
599 + .30807, .92730, 1.08074,
600 + .04170, .02111, 23.50172, 1.17133, .72694,
601 + .40766, 1.01955, 1.17187 /
602 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
603 + .04291, .02182, 25.95836, 1.26752, .82696,
604 + .51222, 1.11690, 1.26812,
605 + .04392, .02240, 28.04485, 1.35031, .91253,
606 + .60061, 1.20063, 1.35097,
607 + .04514, .02311, 30.62366, 1.45411, 1.01937,
608 + .71054, 1.30553, 1.45484,
609 + .04623, .02374, 32.96280, 1.54928, 1.11755,
610 + .81201, 1.40167, 1.55008,
611 + .04722, .02432, 35.15145, 1.63929, 1.21046,
612 + .90806, 1.49254, 1.64015,
613 + .04848, .02505, 37.93750, 1.75621, 1.33019,
614 + 1.03061, 1.61051, 1.75713,
615 + .04967, .02574, 40.60201, 1.86960, 1.44650,
616 + 1.14998, 1.72488, 1.87059,
617 + .05079, .02639, 43.14568, 1.97910, 1.55915,
618 + 1.26601, 1.83527, 1.98016 /
619 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
620 + .05190, .02704, 45.66245, 2.09009, 1.67233,
621 + 1.38134, 1.94713, 2.09121,
622 + .05300, .02768, 48.16002, 2.20151, 1.78633,
623 + 1.49804, 2.05939, 2.20270,
624 + .05403, .02828, 50.53921, 2.30919, 1.89650,
625 + 1.61079, 2.16785, 2.31045,
626 + .05501, .02885, 52.76058, 2.41174, 2.00101,
627 + 1.71729, 2.27112, 2.41306,
628 + .05600, .02942, 55.02855, 2.51731, 2.10901,
629 + 1.82784, 2.37739, 2.51868,
630 + .05697, .02998, 57.21357, 2.62143, 2.21490,
631 + 1.93551, 2.48220, 2.62287,
632 + .05789, .03052, 59.33088, 2.72291, 2.31863,
633 + 2.04157, 2.58433, 2.72441,
634 + .05876, .03102, 61.28451, 2.81879, 2.41605,
635 + 2.14055, 2.68080, 2.82034 /
636 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
637 + .05965, .03153, 63.28346, 2.91753, 2.51675,
638 + 2.24326, 2.78015, 2.91914,
639 + .06052, .03204, 65.22508, 3.01527, 2.61616,
640 + 2.34438, 2.87847, 3.01693,
641 + .06136, .03252, 67.07655, 3.10960, 2.71215,
642 + 2.44204, 2.97335, 3.11132,
643 + .06215, .03298, 68.83904, 3.20028, 2.80456,
644 + 2.53621, 3.06455, 3.20205,
645 + .06295, .03345, 70.57619, 3.29161, 2.89723,
646 + 2.63025, 3.15639, 3.29343 /
647 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
648 + .03125, .01471, .78728, .33541, .00000,
649 + .00000, .18046, .33548,
650 + .03241, .01539, 1.47607, .35581, .00000,
651 + .00000, .20221, .35594,
652 + .03412, .01640, 2.66008, .39199, .00000,
653 + .00000, .24028, .39222,
654 + .03536, .01714, 3.66217, .42243, .00000,
655 + .00000, .27204, .42272,
656 + .03665, .01790, 4.77032, .45841, .00880,
657 + .00000, .30933, .45877,
658 + .03776, .01855, 5.75224, .49222, .04829,
659 + .00000, .34423, .49264,
660 + .03882, .01918, 6.77103, .52709, .09236,
661 + .00000, .38012, .52758,
662 + .03994, .01984, 7.93750, .56673, .13648,
663 + .00000, .42080, .56727 /
664 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
665 + .04092, .02042, 8.99029, .60318, .17511,
666 + .00000, .45813, .60378,
667 + .04186, .02098, 10.05298, .64016, .21461,
668 + .00000, .49595, .64082,
669 + .04261, .02142, 10.93865, .67078, .24791,
670 + .00000, .52722, .67149,
671 + .04419, .02235, 12.83681, .73962, .32089,
672 + .00677, .59740, .74042,
673 + .04555, .02316, 14.46139, .80219, .38649,
674 + .08360, .66107, .80307,
675 + .04707, .02405, 16.35427, .87608, .46401,
676 + .17474, .73616, .87706,
677 + .04866, .02499, 18.40549, .95681, .54847,
678 + .26374, .81810, .95788,
679 + .05009, .02584, 20.32501, 1.03325, .62828,
680 + .34787, .89561, 1.03441 /
681 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
682 + .05155, .02669, 22.31572, 1.11351, .71201,
683 + .43567, .97691, 1.11476,
684 + .05275, .02740, 23.99372, 1.18220, .78324,
685 + .50948, 1.04645, 1.18353,
686 + .05421, .02826, 26.05224, 1.26785, .87170,
687 + .60078, 1.13309, 1.26928,
688 + .05550, .02902, 27.90619, 1.34598, .95257,
689 + .68462, 1.21208, 1.34749,
690 + .05668, .02972, 29.62998, 1.41952, 1.02875,
691 + .76362, 1.28640, 1.42111,
692 + .05818, .03060, 31.80782, 1.51452, 1.12637,
693 + .86385, 1.38236, 1.51621,
694 + .05960, .03143, 33.87578, 1.60618, 1.22072,
695 + .96098, 1.47490, 1.60796,
696 + .06092, .03221, 35.83751, 1.69428, 1.31167,
697 + 1.05497, 1.56381, 1.69614 /
698 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
699 + .06224, .03299, 37.76382, 1.78309, 1.40255,
700 + 1.14786, 1.65341, 1.78505,
701 + .06354, .03375, 39.66434, 1.87187, 1.49370,
702 + 1.24147, 1.74295, 1.87392,
703 + .06477, .03446, 41.46411, 1.95731, 1.58142,
704 + 1.33153, 1.82910, 1.95943,
705 + .06592, .03514, 43.13371, 2.03831, 1.66425,
706 + 1.41620, 1.91075, 2.04051,
707 + .06709, .03582, 44.83072, 2.12141, 1.74957,
708 + 1.50382, 1.99450, 2.12369,
709 + .06823, .03649, 46.45452, 2.20300, 1.83283,
710 + 1.58875, 2.07671, 2.20536,
711 + .06932, .03713, 48.02207, 2.28228, 1.91416,
712 + 1.67217, 2.15659, 2.28472,
713 + .07035, .03772, 49.45889, 2.35687, 1.99021,
714 + 1.74968, 2.23172, 2.35937 /
715 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
716 + .07139, .03833, 50.92385, 2.43347, 2.06861,
717 + 1.82991, 2.30887, 2.43605,
718 + .07241, .03893, 52.33867, 2.50901, 2.14572,
719 + 1.90858, 2.38494, 2.51166,
720 + .07339, .03950, 53.68195, 2.58170, 2.21994,
721 + 1.98434, 2.45813, 2.58442,
722 + .07433, .04004, 54.95578, 2.65139, 2.29121,
723 + 2.05721, 2.52829, 2.65417,
724 + .07527, .04059, 56.20375, 2.72131, 2.36240,
725 + 2.12968, 2.59868, 2.72415 /
726 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
727 + .03557, .01701, .78110, .31390, .00000,
728 + .00000, .16931, .31426,
729 + .03691, .01781, 1.44034, .33332, .00000,
730 + .00000, .18998, .33376,
731 + .03887, .01898, 2.55929, .36739, .00000,
732 + .00000, .22580, .36794,
733 + .04030, .01984, 3.49571, .39580, .00000,
734 + .00000, .25543, .39645,
735 + .04178, .02072, 4.52177, .42913, .00817,
736 + .00000, .28998, .42986,
737 + .04304, .02148, 5.42346, .46025, .04454,
738 + .00000, .32211, .46107,
739 + .04426, .02221, 6.35293, .49221, .08503,
740 + .00000, .35501, .49310,
741 + .04555, .02298, 7.41043, .52836, .12533,
742 + .00000, .39214, .52934 /
743 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
744 + .04666, .02365, 8.35890, .56146, .16047,
745 + .00000, .42605, .56250,
746 + .04774, .02429, 9.31130, .59490, .19626,
747 + .00000, .46028, .59602,
748 + .04859, .02480, 10.10174, .62252, .22636,
749 + .00000, .48850, .62369,
750 + .05040, .02588, 11.78455, .68430, .29201,
751 + .00618, .55153, .68559,
752 + .05194, .02680, 13.21281, .74017, .35072,
753 + .07502, .60842, .74156,
754 + .05368, .02784, 14.86551, .80582, .41978,
755 + .15646, .67520, .80733,
756 + .05548, .02891, 16.64384, .87717, .49463,
757 + .23552, .74768, .87880,
758 + .05711, .02988, 18.29688, .94441, .56502,
759 + .30991, .81592, .94615 /
760 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
761 + .05876, .03086, 20.00068, 1.01469, .63856,
762 + .38722, .88718, 1.01654,
763 + .06012, .03167, 21.42863, 1.07459, .70085,
764 + .45193, .94788, 1.07654,
765 + .06177, .03265, 23.17052, 1.14898, .77790,
766 + .53164, 1.02320, 1.15104,
767 + .06323, .03352, 24.73088, 1.21657, .84806,
768 + .60458, 1.09160, 1.21873,
769 + .06457, .03431, 26.17481, 1.27997, .91393,
770 + .67307, 1.15573, 1.28222,
771 + .06627, .03531, 27.98859, 1.36153, .99800,
772 + .75960, 1.23820, 1.36391,
773 + .06786, .03625, 29.70154, 1.43992, 1.07893,
774 + .84314, 1.31742, 1.44241,
775 + .06935, .03714, 31.31868, 1.51500, 1.15668,
776 + .92370, 1.39326, 1.51759 /
777 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
778 + .07084, .03801, 32.89736, 1.59039, 1.23405,
779 + 1.00299, 1.46940, 1.59309,
780 + .07230, .03887, 34.44798, 1.66550, 1.31141,
781 + 1.08265, 1.54523, 1.66831,
782 + .07368, .03968, 35.90975, 1.73756, 1.38562,
783 + 1.15904, 1.61796, 1.74046,
784 + .07498, .04045, 37.25903, 1.80564, 1.45545,
785 + 1.23062, 1.68666, 1.80864,
786 + .07629, .04121, 38.62578, 1.87531, 1.52722,
787 + 1.30452, 1.75695, 1.87840,
788 + .07757, .04196, 39.92655, 1.94348, 1.59699,
789 + 1.37588, 1.82571, 1.94667,
790 + .07879, .04268, 41.17870, 2.00958, 1.66502,
791 + 1.44585, 1.89237, 2.01285,
792 + .07994, .04335, 42.32035, 2.07156, 1.72840,
793 + 1.51062, 1.95487, 2.07492 /
794 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
795 + .08110, .04403, 43.48128, 2.13509, 1.79363,
796 + 1.57756, 2.01892, 2.13853,
797 + .08225, .04470, 44.59736, 2.19756, 1.85759,
798 + 1.64300, 2.08190, 2.20108,
799 + .08335, .04534, 45.65340, 2.25753, 1.91903,
800 + 1.70588, 2.14235, 2.26113,
801 + .08439, .04595, 46.65189, 2.31491, 1.97790,
802 + 1.76623, 2.20017, 2.31858,
803 + .08543, .04655, 47.62526, 2.37232, 2.03653,
804 + 1.82609, 2.25803, 2.37607 /
805 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
806 + .03941, .01919, .78296, .29917, .00000,
807 + .00000, .16148, .29957,
808 + .04091, .02009, 1.41963, .31783, .00000,
809 + .00000, .18130, .31833,
810 + .04310, .02142, 2.48903, .35028, .00000,
811 + .00000, .21537, .35091,
812 + .04468, .02238, 3.37566, .37714, .00000,
813 + .00000, .24338, .37788,
814 + .04633, .02337, 4.33970, .40846, .00770,
815 + .00000, .27583, .40931,
816 + .04774, .02422, 5.18106, .43756, .04172,
817 + .00000, .30587, .43851,
818 + .04909, .02504, 6.04357, .46732, .07952,
819 + .00000, .33651, .46836,
820 + .05052, .02590, 7.01971, .50088, .11697,
821 + .00000, .37098, .50202 /
822 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
823 + .05176, .02665, 7.89069, .53148, .14951,
824 + .00000, .40234, .53270,
825 + .05295, .02737, 8.76142, .56230, .18255,
826 + .00000, .43389, .56361,
827 + .05390, .02794, 9.48153, .58769, .21027,
828 + .00000, .45984, .58906,
829 + .05590, .02914, 11.00616, .64429, .27052,
830 + .00574, .51760, .64580,
831 + .05761, .03017, 12.29099, .69525, .32417,
832 + .06870, .56952, .69688,
833 + .05953, .03131, 13.76914, .75489, .38704,
834 + .14303, .63021, .75666,
835 + .06152, .03250, 15.35035, .81944, .45489,
836 + .21484, .69582, .82135,
837 + .06332, .03358, 16.81192, .88002, .51845,
838 + .28215, .75734, .88206 /
839 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
840 + .06513, .03466, 18.31051, .94311, .58461,
841 + .35184, .82135, .94528,
842 + .06663, .03556, 19.56041, .99670, .64047,
843 + .40997, .87568, .99898,
844 + .06845, .03664, 21.07775, 1.06302, .70931,
845 + .48136, .94288, 1.06543,
846 + .07005, .03759, 22.43083, 1.12309, .77182,
847 + .54646, 1.00371, 1.12561,
848 + .07153, .03847, 23.67800, 1.17928, .83033,
849 + .60743, 1.06058, 1.18191,
850 + .07339, .03957, 25.23697, 1.25131, .90475,
851 + .68419, 1.13347, 1.25409,
852 + .07513, .04060, 26.70254, 1.32032, .97616,
853 + .75806, 1.20326, 1.32322,
854 + .07677, .04157, 28.08057, 1.38622, 1.04458,
855 + .82911, 1.26988, 1.38924 /
856 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
857 + .07840, .04253, 29.41881, 1.45217, 1.11242,
858 + .89878, 1.33653, 1.45531,
859 + .07999, .04347, 30.72837, 1.51770, 1.18009,
860 + .96861, 1.40275, 1.52096,
861 + .08150, .04435, 31.95821, 1.58040, 1.24483,
862 + 1.03540, 1.46608, 1.58377,
863 + .08291, .04518, 33.08833, 1.63947, 1.30557,
864 + 1.09780, 1.52574, 1.64295,
865 + .08434, .04602, 34.22974, 1.69979, 1.36788,
866 + 1.16210, 1.58664, 1.70338,
867 + .08573, .04684, 35.31110, 1.75865, 1.42827,
868 + 1.22401, 1.64606, 1.76234,
869 + .08707, .04762, 36.34955, 1.81561, 1.48705,
870 + 1.28460, 1.70355, 1.81940,
871 + .08832, .04835, 37.29206, 1.86888, 1.54167,
872 + 1.34055, 1.75731, 1.87276 /
873 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
874 + .08958, .04908, 38.24831, 1.92339, 1.59779,
875 + 1.39826, 1.81232, 1.92737,
876 + .09083, .04981, 39.16380, 1.97686, 1.65269,
877 + 1.45456, 1.86627, 1.98093,
878 + .09202, .05050, 40.02744, 2.02810, 1.70531,
879 + 1.50854, 1.91796, 2.03225,
880 + .09315, .05116, 40.84192, 2.07702, 1.75566,
881 + 1.56028, 1.96732, 2.08126,
882 + .09428, .05182, 41.63239, 2.12586, 1.80568,
883 + 1.61146, 2.01657, 2.13018 /
884 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
885 + .05456, .02827, .80937, .25901, .00000,
886 + .00000, .14033, .26003,
887 + .05666, .02958, 1.37925, .27539, .00000,
888 + .00000, .15767, .27657,
889 + .05974, .03149, 2.30233, .30305, .00000,
890 + .00000, .18669, .30447,
891 + .06197, .03287, 3.04403, .32545, .00000,
892 + .00000, .21003, .32704,
893 + .06427, .03429, 3.83014, .35103, .00635,
894 + .00000, .23655, .35280,
895 + .06622, .03549, 4.50051, .37442, .03379,
896 + .00000, .26073, .37634,
897 + .06809, .03664, 5.17521, .39805, .06408,
898 + .00000, .28510, .40012,
899 + .07008, .03785, 5.92540, .42437, .09365,
900 + .00000, .31219, .42660 /
901 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
902 + .07178, .03889, 6.58322, .44806, .11904,
903 + .00000, .33653, .45043,
904 + .07342, .03989, 7.23123, .47169, .14457,
905 + .00000, .36076, .47418,
906 + .07472, .04068, 7.76093, .49100, .16582,
907 + .00000, .38055, .49360,
908 + .07747, .04235, 8.86133, .53351, .21145,
909 + .00451, .42405, .53632,
910 + .07980, .04376, 9.76637, .57123, .25153,
911 + .05173, .46259, .57423,
912 + .08240, .04533, 10.78734, .61481, .29788,
913 + .10706, .50706, .61801,
914 + .08509, .04695, 11.85777, .66130, .34723,
915 + .15968, .55447, .66472,
916 + .08752, .04840, 12.82840, .70436, .39286,
917 + .20838, .59833, .70797 /
918 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
919 + .08995, .04986, 13.80609, .74865, .43978,
920 + .25820, .64342, .75246,
921 + .09196, .05106, 14.60804, .78584, .47895,
922 + .29929, .68125, .78981,
923 + .09439, .05250, 15.56565, .83134, .52669,
924 + .34919, .72752, .83551,
925 + .09652, .05376, 16.40630, .87211, .56957,
926 + .39424, .76895, .87645,
927 + .09847, .05492, 17.17041, .90988, .60934,
928 + .43603, .80732, .91438,
929 + .10093, .05637, 18.10909, .95775, .65935,
930 + .48805, .85594, .96245,
931 + .10323, .05772, 18.97738, 1.00310, .70682,
932 + .53759, .90198, 1.00798,
933 + .10538, .05898, 19.78228, 1.04600, .75189,
934 + .58480, .94551, 1.05105 /
935 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
936 + .10751, .06023, 20.54962, 1.08843, .79605,
937 + .63056, .98857, 1.09365,
938 + .10959, .06144, 21.29057, 1.13022, .83972,
939 + .67604, 1.03096, 1.13561,
940 + .11155, .06258, 21.97678, 1.16984, .88113,
941 + .71916, 1.07114, 1.17539,
942 + .11338, .06364, 22.59724, 1.20681, .91961,
943 + .75906, 1.10863, 1.21250,
944 + .11522, .06471, 23.21758, 1.24429, .95883,
945 + .79992, 1.14664, 1.25014,
946 + .11702, .06575, 23.79474, 1.28050, .99645,
947 + .83885, 1.18335, 1.28649,
948 + .11873, .06674, 24.34449, 1.31533, 1.03287,
949 + .87676, 1.21866, 1.32146,
950 + .12033, .06766, 24.83438, 1.34759, 1.06637,
951 + .91141, 1.25136, 1.35384 /
952 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
953 + .12195, .06859, 25.32753, 1.38042, 1.10062,
954 + .94698, 1.28464, 1.38680,
955 + .12353, .06950, 25.79220, 1.41235, 1.13385,
956 + .98140, 1.31700, 1.41886,
957 + .12504, .07036, 26.22563, 1.44274, 1.16549,
958 + 1.01419, 1.34781, 1.44937,
959 + .12647, .07118, 26.63048, 1.47160, 1.19560,
960 + 1.04545, 1.37706, 1.47834,
961 + .12791, .07200, 27.01632, 1.50015, 1.22526,
962 + 1.07611, 1.40600, 1.50701 /
963 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
964 + .07683, .04284, .89165, .22802, .00000,
965 + .00000, .12386, .23021,
966 + .07981, .04470, 1.39515, .24219, .00000,
967 + .00000, .13886, .24465,
968 + .08415, .04738, 2.17596, .26534, .00000,
969 + .00000, .16318, .26818,
970 + .08726, .04931, 2.78138, .28363, .00000,
971 + .00000, .18230, .28674,
972 + .09046, .05127, 3.40509, .30405, .00516,
973 + .00000, .20356, .30745,
974 + .09317, .05292, 3.92287, .32240, .02690,
975 + .00000, .22260, .32604,
976 + .09575, .05449, 4.43303, .34068, .05071,
977 + .00000, .24153, .34455,
978 + .09847, .05615, 4.98884, .36077, .07357,
979 + .00000, .26230, .36487 /
980 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
981 + .10081, .05756, 5.46652, .37859, .09293,
982 + .00000, .28070, .38290,
983 + .10304, .05890, 5.92908, .39615, .11220,
984 + .00000, .29881, .40066,
985 + .10481, .05997, 6.30208, .41038, .12809,
986 + .00000, .31347, .41504,
987 + .10852, .06219, 7.05958, .44124, .16175,
988 + .00347, .34523, .44623,
989 + .11166, .06406, 7.66416, .46819, .19084,
990 + .03796, .37293, .47346,
991 + .11514, .06612, 8.33031, .49885, .22400,
992 + .07805, .40440, .50442,
993 + .11872, .06823, 9.01198, .53102, .25874,
994 + .11550, .43741, .53691,
995 + .12194, .07011, 9.61570, .56036, .29040,
996 + .14966, .46748, .56652 /
997 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
998 + .12515, .07199, 10.21072, .59010, .32250,
999 + .18413, .49796, .59654,
1000 + .12778, .07353, 10.68889, .61474, .34895,
1001 + .21219, .52321, .62141,
1002 + .13095, .07536, 11.24799, .64449, .38077,
1003 + .24585, .55366, .65143,
1004 + .13372, .07696, 11.72915, .67080, .40901,
1005 + .27589, .58060, .67798,
1006 + .13624, .07841, 12.15880, .69490, .43492,
1007 + .30346, .60527, .70230,
1008 + .13941, .08022, 12.67449, .72502, .46706,
1009 + .33731, .63610, .73270,
1010 + .14235, .08190, 13.14147, .75319, .49720,
1011 + .36918, .66492, .76112,
1012 + .14509, .08346, 13.56634, .77953, .52550,
1013 + .39923, .69187, .78770 /
1014 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
1015 + .14779, .08498, 13.96089, .80522, .55284,
1016 + .42796, .71815, .81361,
1017 + .15041, .08646, 14.33510, .83025, .57962,
1018 + .45624, .74376, .83886,
1019 + .15287, .08785, 14.67500, .85372, .60475,
1020 + .48278, .76777, .86254,
1021 + .15517, .08913, 14.97512, .87536, .62783,
1022 + .50707, .78991, .88438,
1023 + .15746, .09041, 15.27119, .89712, .65118,
1024 + .53176, .81219, .90634,
1025 + .15969, .09165, 15.53860, .91787, .67329,
1026 + .55499, .83341, .92726,
1027 + .16180, .09282, 15.79061, .93768, .69457,
1028 + .57749, .85370, .94726,
1029 + .16378, .09391, 16.00841, .95581, .71391,
1030 + .59781, .87225, .96555 /
1031 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
1032 + .16576, .09500, 16.22535, .97414, .73356,
1033 + .61855, .89102, .98404,
1034 + .16770, .09607, 16.42417, .99176, .75242,
1035 + .63842, .90907, 1.00183,
1036 + .16954, .09707, 16.60621, 1.00840, .77026,
1037 + .65721, .92611, 1.01861,
1038 + .17128, .09802, 16.77372, 1.02408, .78712,
1039 + .67502, .94218, 1.03445,
1040 + .17301, .09897, 16.92801, 1.03944, .80354,
1041 + .69229, .95791, 1.04994 /
1042 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
1043 + .09485, .05516, .97419, .21325, .00000,
1044 + .00000, .11609, .21668,
1045 + .09849, .05740, 1.43445, .22610, .00000,
1046 + .00000, .12974, .22988,
1047 + .10376, .06063, 2.13097, .24668, .00000,
1048 + .00000, .15146, .25095,
1049 + .10753, .06292, 2.65865, .26267, .00000,
1050 + .00000, .16826, .26731,
1051 + .11140, .06525, 3.19242, .28029, .00453,
1052 + .00000, .18670, .28529,
1053 + .11465, .06720, 3.62775, .29594, .02328,
1054 + .00000, .20302, .30124,
1055 + .11774, .06904, 4.05063, .31138, .04373,
1056 + .00000, .21911, .31696,
1057 + .12099, .07098, 4.50518, .32819, .06315,
1058 + .00000, .23659, .33408 /
1059 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
1060 + .12377, .07262, 4.89073, .34296, .07944,
1061 + .00000, .25194, .34911,
1062 + .12643, .07419, 5.25980, .35741, .09554,
1063 + .00000, .26693, .36380,
1064 + .12852, .07542, 5.55473, .36905, .10875,
1065 + .00000, .27899, .37563,
1066 + .13290, .07798, 6.14416, .39405, .13646,
1067 + .00294, .30489, .40104,
1068 + .13659, .08012, 6.60446, .41565, .16016,
1069 + .03120, .32723, .42297,
1070 + .14067, .08248, 7.10331, .43995, .18692,
1071 + .06386, .35235, .44764,
1072 + .14484, .08487, 7.60527, .46518, .21466,
1073 + .09402, .37842, .47325,
1074 + .14857, .08700, 8.04250, .48794, .23969,
1075 + .12127, .40193, .49635 /
1076 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
1077 + .15229, .08911, 8.46667, .51080, .26484,
1078 + .14852, .42553, .51954,
1079 + .15532, .09083, 8.80225, .52955, .28538,
1080 + .17053, .44489, .53856,
1081 + .15895, .09287, 9.18841, .55199, .30988,
1082 + .19670, .46805, .56132,
1083 + .16213, .09465, 9.51575, .57166, .33145,
1084 + .21987, .48836, .58127,
1085 + .16501, .09625, 9.80406, .58954, .35110,
1086 + .24099, .50681, .59940,
1087 + .16859, .09824, 10.14396, .61166, .37524,
1088 + .26671, .52965, .62184,
1089 + .17193, .10007, 10.44646, .63216, .39770,
1090 + .29072, .55082, .64263,
1091 + .17502, .10177, 10.71752, .65118, .41863,
1092 + .31320, .57046, .66192 /
1093 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
1094 + .17804, .10342, 10.96373, .66954, .43867,
1095 + .33450, .58943, .68054,
1096 + .18098, .10501, 11.19376, .68729, .45815,
1097 + .35534, .60777, .69854,
1098 + .18373, .10650, 11.39914, .70381, .47631,
1099 + .37476, .62484, .71529,
1100 + .18627, .10787, 11.57618, .71889, .49286,
1101 + .39240, .64044, .73059,
1102 + .18882, .10923, 11.74877, .73398, .50951,
1103 + .41024, .65605, .74590,
1104 + .19128, .11054, 11.90024, .74821, .52514,
1105 + .42689, .67079, .76034,
1106 + .19360, .11178, 12.04179, .76176, .54012,
1107 + .44295, .68481, .77408,
1108 + .19577, .11293, 12.15999, .77402, .55361,
1109 + .45734, .69751, .78652 /
1110 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
1111 + .19794, .11408, 12.27660, .78635, .56727,
1112 + .47197, .71029, .79904,
1113 + .20005, .11519, 12.38010, .79812, .58028,
1114 + .48588, .72250, .81098,
1115 + .20205, .11623, 12.47294, .80916, .59252,
1116 + .49898, .73396, .82219,
1117 + .20394, .11722, 12.55687, .81952, .60404,
1118 + .51134, .74471, .83270,
1119 + .20582, .11819, 12.63059, .82955, .61516,
1120 + .52323, .75513, .84288 /
1121 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
1122 + .11079, .06624, 1.05102, .20408, .00000,
1123 + .00000, .11132, .20881,
1124 + .11498, .06877, 1.47766, .21596, .00000,
1125 + .00000, .12401, .22111,
1126 + .12101, .07239, 2.11233, .23470, .00000,
1127 + .00000, .14390, .24044,
1128 + .12531, .07495, 2.58482, .24910, .00000,
1129 + .00000, .15911, .25525,
1130 + .12971, .07754, 3.05610, .26478, .00410,
1131 + .00000, .17562, .27136,
1132 + .13339, .07970, 3.43513, .27858, .02087,
1133 + .00000, .19011, .28551,
1134 + .13688, .08174, 3.79930, .29211, .03910,
1135 + .00000, .20429, .29937,
1136 + .14054, .08387, 4.18670, .30673, .05625,
1137 + .00000, .21960, .31434 /
1138 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
1139 + .14367, .08568, 4.51192, .31948, .07055,
1140 + .00000, .23294, .32739,
1141 + .14664, .08739, 4.82043, .33188, .08459,
1142 + .00000, .24589, .34007,
1143 + .14899, .08874, 5.06520, .34182, .09606,
1144 + .00000, .25627, .35023,
1145 + .15388, .09152, 5.54804, .36301, .11996,
1146 + .00259, .27838, .37188,
1147 + .15798, .09384, 5.91822, .38116, .14024,
1148 + .02689, .29729, .39041,
1149 + .16249, .09638, 6.31395, .40142, .16296,
1150 + .05485, .31839, .41109,
1151 + .16710, .09895, 6.70658, .42226, .18633,
1152 + .08045, .34010, .43235,
1153 + .17120, .10123, 7.04377, .44090, .20725,
1154 + .10341, .35951, .45137 /
1155 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
1156 + .17528, .10347, 7.36649, .45948, .22812,
1157 + .12622, .37886, .47031,
1158 + .17859, .10529, 7.61839, .47460, .24505,
1159 + .14450, .39461, .48574,
1160 + .18255, .10744, 7.90420, .49257, .26510,
1161 + .16612, .41332, .50405,
1162 + .18599, .10931, 8.14325, .50820, .28265,
1163 + .18514, .42961, .51999,
1164 + .18911, .11099, 8.35123, .52232, .29854,
1165 + .20239, .44433, .53439,
1166 + .19298, .11306, 8.59209, .53965, .31793,
1167 + .22325, .46240, .55206,
1168 + .19656, .11497, 8.80300, .55559, .33585,
1169 + .24260, .47903, .56830,
1170 + .19988, .11672, 8.98930, .57028, .35246,
1171 + .26063, .49436, .58328 /
1172 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
1173 + .20311, .11842, 9.15452, .58433, .36823,
1174 + .27758, .50904, .59760,
1175 + .20624, .12005, 9.30653, .59783, .38349,
1176 + .29409, .52315, .61137,
1177 + .20915, .12157, 9.43980, .61031, .39763,
1178 + .30939, .53621, .62410,
1179 + .21185, .12296, 9.55172, .62161, .41042,
1180 + .32320, .54805, .63563,
1181 + .21454, .12435, 9.65948, .63287, .42325,
1182 + .33712, .55984, .64711,
1183 + .21712, .12567, 9.75064, .64339, .43520,
1184 + .35003, .57089, .65785,
1185 + .21957, .12692, 9.83505, .65337, .44662,
1186 + .36243, .58136, .66803,
1187 + .22183, .12807, 9.90233, .66231, .45683,
1188 + .37347, .59076, .67716 /
1189 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
1190 + .22410, .12922, 9.96795, .67128, .46713,
1191 + .38467, .60019, .68631,
1192 + .22630, .13032, 10.02354, .67977, .47689,
1193 + .39526, .60913, .69498,
1194 + .22837, .13137, 10.07186, .68769, .48602,
1195 + .40518, .61748, .70306,
1196 + .23033, .13234, 10.11441, .69508, .49458,
1197 + .41452, .62528, .71061,
1198 + .23227, .13330, 10.14875, .70217, .50280,
1199 + .42344, .63278, .71786 /
1200 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
1201 + .12544, .07644, 1.11978, .19749, .00000,
1202 + .00000, .10797, .20356,
1203 + .13009, .07920, 1.51877, .20859, .00000,
1204 + .00000, .11989, .21513,
1205 + .13676, .08312, 2.10383, .22588, .00000,
1206 + .00000, .13837, .23308,
1207 + .14151, .08589, 2.53325, .23903, .00000,
1208 + .00000, .15236, .24670,
1209 + .14634, .08867, 2.95663, .25323, .00378,
1210 + .00000, .16741, .26138,
1211 + .15037, .09099, 3.29309, .26564, .01908,
1212 + .00000, .18053, .27418,
1213 + .15418, .09317, 3.61345, .27772, .03566,
1214 + .00000, .19329, .28663,
1215 + .15818, .09544, 3.95131, .29071, .05115,
1216 + .00000, .20699, .30000 /
1217 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
1218 + .16158, .09735, 4.23243, .30196, .06399,
1219 + .00000, .21885, .31159,
1220 + .16482, .09917, 4.49706, .31285, .07655,
1221 + .00000, .23031, .32278,
1222 + .16737, .10059, 4.70575, .32154, .08676,
1223 + .00000, .23946, .33171,
1224 + .17265, .10353, 5.11278, .33996, .10792,
1225 + .00234, .25883, .35063,
1226 + .17707, .10596, 5.41959, .35562, .12576,
1227 + .02381, .27528, .36670,
1228 + .18191, .10861, 5.74361, .37298, .14561,
1229 + .04844, .29351, .38451,
1230 + .18685, .11129, 6.06104, .39070, .16590,
1231 + .07081, .31213, .40268,
1232 + .19123, .11365, 6.33015, .40643, .18394,
1233 + .09076, .32866, .41882 /
1234 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
1235 + .19557, .11596, 6.58452, .42200, .20184,
1236 + .11046, .34503, .43478,
1237 + .19909, .11784, 6.78042, .43460, .21627,
1238 + .12618, .35828, .44769,
1239 + .20327, .12004, 6.99979, .44946, .23327,
1240 + .14465, .37391, .46292,
1241 + .20691, .12195, 7.18097, .46231, .24807,
1242 + .16083, .38745, .47609,
1243 + .21019, .12366, 7.33673, .47386, .26141,
1244 + .17544, .39962, .48792,
1245 + .21425, .12576, 7.51375, .48792, .27758,
1246 + .19300, .41444, .50233,
1247 + .21800, .12768, 7.66619, .50076, .29244,
1248 + .20921, .42800, .51550,
1249 + .22145, .12945, 7.79886, .51253, .30615,
1250 + .22425, .44045, .52757 /
1251 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
1252 + .22481, .13115, 7.91326, .52369, .31908,
1253 + .23830, .45226, .53901,
1254 + .22805, .13278, 8.01657, .53436, .33153,
1255 + .25192, .46356, .54995,
1256 + .23107, .13429, 8.10505, .54416, .34302,
1257 + .26450, .47396, .56000,
1258 + .23385, .13567, 8.17711, .55297, .35336,
1259 + .27579, .48333, .56904,
1260 + .23661, .13704, 8.24553, .56171, .36368,
1261 + .28713, .49262, .57800,
1262 + .23926, .13834, 8.30040, .56980, .37324,
1263 + .29759, .50125, .58631,
1264 + .24176, .13957, 8.35060, .57745, .38235,
1265 + .30762, .50941, .59415,
1266 + .24406, .14068, 8.38767, .58424, .39043,
1267 + .31649, .51668, .60113 /
1268 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
1269 + .24637, .14180, 8.42319, .59104, .39858,
1270 + .32546, .52395, .60811,
1271 + .24861, .14287, 8.45078, .59741, .40624,
1272 + .33391, .53079, .61465,
1273 + .25071, .14388, 8.47329, .60332, .41339,
1274 + .34180, .53714, .62072,
1275 + .25269, .14482, 8.49199, .60881, .42007,
1276 + .34919, .54306, .62637,
1277 + .25464, .14574, 8.50393, .61402, .42644,
1278 + .35623, .54869, .63173 /
1279 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
1280 + .15226, .09499, 1.23678, .18807, .00000,
1281 + .00000, .10334, .19687,
1282 + .15765, .09806, 1.59034, .19791, .00000,
1283 + .00000, .11407, .20727,
1284 + .16536, .10239, 2.09716, .21294, .00000,
1285 + .00000, .13038, .22309,
1286 + .17080, .10543, 2.46073, .22419, .00000,
1287 + .00000, .14254, .23488,
1288 + .17631, .10847, 2.81240, .23617, .00331,
1289 + .00000, .15543, .24740,
1290 + .18088, .11098, 3.08632, .24651, .01649,
1291 + .00000, .16654, .25819,
1292 + .18520, .11332, 3.34317, .25647, .03070,
1293 + .00000, .17724, .26857,
1294 + .18970, .11575, 3.61018, .26708, .04383,
1295 + .00000, .18861, .27961 /
1296 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
1297 + .19351, .11780, 3.82916, .27618, .05460,
1298 + .00000, .19837, .28907,
1299 + .19712, .11973, 4.03258, .28490, .06507,
1300 + .00000, .20771, .29814,
1301 + .19996, .12123, 4.19136, .29182, .07353,
1302 + .00000, .21512, .30534,
1303 + .20581, .12432, 4.49450, .30634, .09089,
1304 + .00198, .23065, .32039,
1305 + .21068, .12685, 4.71605, .31852, .10536,
1306 + .01955, .24369, .33302,
1307 + .21599, .12960, 4.94472, .33187, .12131,
1308 + .03960, .25798, .34685,
1309 + .22136, .13235, 5.16345, .34531, .13742,
1310 + .05761, .27239, .36078,
1311 + .22610, .13476, 5.34439, .35710, .15160,
1312 + .07350, .28504, .37299 /
1313 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
1314 + .23077, .13711, 5.51126, .36862, .16553,
1315 + .08906, .29742, .38492,
1316 + .23454, .13899, 5.63640, .37784, .17666,
1317 + .10135, .30733, .39446,
1318 + .23899, .14119, 5.77270, .38857, .18964,
1319 + .11568, .31890, .40558,
1320 + .24285, .14308, 5.88215, .39776, .20084,
1321 + .12813, .32881, .41509,
1322 + .24631, .14476, 5.97364, .40592, .21086,
1323 + .13929, .33764, .42354,
1324 + .25056, .14682, 6.07299, .41573, .22288,
1325 + .15258, .34827, .43370,
1326 + .25446, .14868, 6.15519, .42458, .23383,
1327 + .16475, .35789, .44287,
1328 + .25805, .15038, 6.22412, .43260, .24384,
1329 + .17595, .36663, .45118 /
1330 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
1331 + .26151, .15200, 6.27874, .44009, .25318,
1332 + .18631, .37481, .45894,
1333 + .26483, .15355, 6.32566, .44716, .26211,
1334 + .19629, .38256, .46627,
1335 + .26790, .15497, 6.36319, .45358, .27027,
1336 + .20544, .38961, .47293,
1337 + .27071, .15626, 6.38996, .45926, .27755,
1338 + .21357, .39588, .47883,
1339 + .27351, .15753, 6.41384, .46486, .28477,
1340 + .22171, .40207, .48463,
1341 + .27616, .15872, 6.42837, .46994, .29138,
1342 + .22913, .40771, .48991,
1343 + .27867, .15984, 6.44083, .47471, .29765,
1344 + .23622, .41302, .49486,
1345 + .28095, .16085, 6.44508, .47886, .30315,
1346 + .24243, .41768, .49918 /
1347 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
1348 + .28324, .16186, 6.44811, .48298, .30867,
1349 + .24869, .42230, .50346,
1350 + .28544, .16281, 6.44590, .48678, .31381,
1351 + .25453, .42660, .50742,
1352 + .28750, .16371, 6.44122, .49027, .31856,
1353 + .25995, .43055, .51105,
1354 + .28943, .16454, 6.43501, .49348, .32298,
1355 + .26501, .43420, .51439,
1356 + .29132, .16534, 6.42393, .49645, .32714,
1357 + .26977, .43761, .51748 /
1358 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
1359 + .18867, .11955, 1.37062, .17811, .00000,
1360 + .00000, .09871, .19108,
1361 + .19488, .12286, 1.67020, .18647, .00000,
1362 + .00000, .10807, .20007,
1363 + .20367, .12749, 2.08876, .19898, .00000,
1364 + .00000, .12200, .21346,
1365 + .20983, .13071, 2.38117, .20816, .00000,
1366 + .00000, .13219, .22324,
1367 + .21604, .13390, 2.65745, .21776, .00283,
1368 + .00000, .14283, .23345,
1369 + .22115, .13651, 2.86707, .22594, .01387,
1370 + .00000, .15186, .24210,
1371 + .22594, .13893, 3.06003, .23372, .02570,
1372 + .00000, .16045, .25034,
1373 + .23091, .14143, 3.25713, .24191, .03648,
1374 + .00000, .16949, .25899 /
1375 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
1376 + .23510, .14351, 3.41569, .24884, .04524,
1377 + .00000, .17714, .26631,
1378 + .23905, .14546, 3.56049, .25542, .05367,
1379 + .00000, .18440, .27324,
1380 + .24213, .14698, 3.67204, .26059, .06044,
1381 + .00000, .19012, .27869,
1382 + .24848, .15006, 3.87871, .27130, .07417,
1383 + .00163, .20195, .28996,
1384 + .25369, .15256, 4.02238, .28015, .08548,
1385 + .01552, .21174, .29926,
1386 + .25934, .15524, 4.16578, .28969, .09778,
1387 + .03128, .22231, .30927,
1388 + .26501, .15789, 4.29808, .29913, .11005,
1389 + .04524, .23281, .31919,
1390 + .26998, .16019, 4.40306, .30727, .12072,
1391 + .05741, .24189, .32774 /
1392 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
1393 + .27482, .16242, 4.49580, .31510, .13108,
1394 + .06921, .25064, .33595,
1395 + .27872, .16417, 4.56216, .32126, .13925,
1396 + .07843, .25755, .34241,
1397 + .28328, .16620, 4.63015, .32831, .14869,
1398 + .08908, .26551, .34981,
1399 + .28719, .16793, 4.68164, .33424, .15675,
1400 + .09824, .27223, .35605,
1401 + .29069, .16946, 4.72220, .33944, .16388,
1402 + .10638, .27814, .36151,
1403 + .29494, .17129, 4.76098, .34556, .17233,
1404 + .11597, .28514, .36793,
1405 + .29881, .17293, 4.78920, .35097, .17994,
1406 + .12466, .29137, .37361,
1407 + .30234, .17442, 4.80984, .35579, .18683,
1408 + .13259, .29695, .37868 /
1409 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
1410 + .30571, .17580, 4.82041, .36017, .19316,
1411 + .13983, .30207, .38328,
1412 + .30892, .17711, 4.82617, .36423, .19916,
1413 + .14675, .30686, .38756,
1414 + .31188, .17831, 4.82686, .36785, .20458,
1415 + .15304, .31114, .39136,
1416 + .31456, .17936, 4.82176, .37096, .20935,
1417 + .15857, .31488, .39464,
1418 + .31720, .18040, 4.81478, .37398, .21406,
1419 + .16407, .31852, .39783,
1420 + .31968, .18135, 4.80186, .37663, .21829,
1421 + .16903, .32176, .40062,
1422 + .32202, .18224, 4.78889, .37908, .22229,
1423 + .17374, .32479, .40321,
1424 + .32412, .18303, 4.77185, .38112, .22573,
1425 + .17781, .32735, .40537 /
1426 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
1427 + .32621, .18381, 4.75409, .38313, .22917,
1428 + .18189, .32988, .40749,
1429 + .32820, .18454, 4.73326, .38490, .23232,
1430 + .18566, .33217, .40936,
1431 + .33006, .18520, 4.71187, .38648, .23522,
1432 + .18913, .33423, .41104,
1433 + .33179, .18582, 4.69062, .38790, .23788,
1434 + .19234, .33611, .41255,
1435 + .33346, .18640, 4.66615, .38914, .24034,
1436 + .19533, .33780, .41386 /
1437 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
1438 + .24335, .15453, 1.51187, .16544, .00000,
1439 + .00000, .09321, .18530,
1440 + .25035, .15789, 1.74288, .17193, .00000,
1441 + .00000, .10085, .19244,
1442 + .26016, .16250, 2.05510, .18136, .00000,
1443 + .00000, .11191, .20276,
1444 + .26697, .16566, 2.26579, .18810, .00000,
1445 + .00000, .11981, .21010,
1446 + .27373, .16875, 2.45808, .19501, .00229,
1447 + .00000, .12789, .21759,
1448 + .27924, .17123, 2.59811, .20077, .01100,
1449 + .00000, .13462, .22381,
1450 + .28437, .17352, 2.72358, .20617, .02027,
1451 + .00000, .14094, .22963,
1452 + .28965, .17584, 2.84847, .21175, .02859,
1453 + .00000, .14747, .23563 /
1454 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
1455 + .29406, .17776, 2.94590, .21639, .03524,
1456 + .00000, .15291, .24061,
1457 + .29818, .17953, 3.03244, .22072, .04158,
1458 + .00000, .15800, .24525,
1459 + .30139, .18089, 3.09776, .22409, .04663,
1460 + .00000, .16198, .24886,
1461 + .30790, .18362, 3.21191, .23092, .05672,
1462 + .00126, .17005, .25617,
1463 + .31317, .18579, 3.28312, .23643, .06489,
1464 + .01149, .17659, .26205,
1465 + .31882, .18807, 3.34904, .24222, .07365,
1466 + .02301, .18351, .26822,
1467 + .32442, .19028, 3.40453, .24779, .08225,
1468 + .03304, .19023, .27414,
1469 + .32925, .19214, 3.44373, .25245, .08959,
1470 + .04167, .19591, .27911 /
1471 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
1472 + .33392, .19390, 3.47390, .25680, .09662,
1473 + .04991, .20127, .28374,
1474 + .33761, .19527, 3.49144, .26013, .10208,
1475 + .05627, .20540, .28728,
1476 + .34187, .19681, 3.50432, .26381, .10829,
1477 + .06352, .21005, .29119,
1478 + .34548, .19809, 3.50991, .26681, .11352,
1479 + .06968, .21389, .29437,
1480 + .34867, .19920, 3.51064, .26937, .11809,
1481 + .07510, .21719, .29708,
1482 + .35248, .20047, 3.50379, .27223, .12340,
1483 + .08138, .22099, .30012,
1484 + .35590, .20158, 3.49231, .27465, .12811,
1485 + .08701, .22427, .30269,
1486 + .35899, .20256, 3.47816, .27672, .13232,
1487 + .09209, .22713, .30488 /
1488 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
1489 + .36185, .20343, 3.45808, .27847, .13610,
1490 + .09665, .22965, .30673,
1491 + .36455, .20422, 3.43599, .28001, .13964,
1492 + .10096, .23194, .30835,
1493 + .36701, .20492, 3.41251, .28130, .14279,
1494 + .10482, .23392, .30971,
1495 + .36918, .20550, 3.38720, .28230, .14549,
1496 + .10817, .23556, .31077,
1497 + .37130, .20606, 3.36106, .28323, .14814,
1498 + .11148, .23713, .31175,
1499 + .37324, .20654, 3.33211, .28392, .15046,
1500 + .11440, .23843, .31247,
1501 + .37506, .20699, 3.30459, .28454, .15264,
1502 + .11716, .23962, .31311,
1503 + .37665, .20733, 3.27596, .28492, .15446,
1504 + .11950, .24054, .31351 /
1505 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
1506 + .37822, .20767, 3.24710, .28528, .15625,
1507 + .12183, .24142, .31389,
1508 + .37968, .20795, 3.21704, .28549, .15786,
1509 + .12395, .24215, .31410,
1510 + .38102, .20820, 3.18783, .28562, .15931,
1511 + .12588, .24277, .31423,
1512 + .38224, .20842, 3.15986, .28570, .16063,
1513 + .12765, .24330, .31429,
1514 + .38339, .20859, 3.13010, .28563, .16180,
1515 + .12925, .24369, .31421 /
1516 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
1517 + .29308, .18412, 1.58144, .15445, .00000,
1518 + .00000, .08865, .18084,
1519 + .30037, .18725, 1.76041, .15949, .00000,
1520 + .00000, .09494, .18644,
1521 + .31050, .19146, 1.99539, .16664, .00000,
1522 + .00000, .10387, .19435,
1523 + .31745, .19430, 2.14925, .17165, .00000,
1524 + .00000, .11012, .19985,
1525 + .32430, .19702, 2.28496, .17667, .00192,
1526 + .00000, .11641, .20535,
1527 + .32981, .19917, 2.37939, .18080, .00904,
1528 + .00000, .12157, .20983,
1529 + .33489, .20112, 2.46164, .18460, .01659,
1530 + .00000, .12635, .21396,
1531 + .34008, .20308, 2.54130, .18847, .02329,
1532 + .00000, .13122, .21815 /
1533 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
1534 + .34438, .20467, 2.60128, .19162, .02858,
1535 + .00000, .13523, .22155,
1536 + .34836, .20611, 2.65277, .19452, .03358,
1537 + .00000, .13893, .22466,
1538 + .35144, .20721, 2.69068, .19675, .03754,
1539 + .00000, .14179, .22705,
1540 + .35761, .20935, 2.75129, .20118, .04536,
1541 + .00102, .14752, .23178,
1542 + .36255, .21100, 2.78197, .20465, .05162,
1543 + .00898, .15207, .23547,
1544 + .36776, .21270, 2.80552, .20820, .05824,
1545 + .01790, .15679, .23924,
1546 + .37284, .21428, 2.82038, .21150, .06465,
1547 + .02556, .16126, .24272,
1548 + .37716, .21557, 2.82582, .21415, .07006,
1549 + .03207, .16496, .24551 /
1550 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
1551 + .38126, .21674, 2.82457, .21654, .07517,
1552 + .03823, .16837, .24801,
1553 + .38445, .21761, 2.81834, .21828, .07909,
1554 + .04293, .17093, .24981,
1555 + .38807, .21855, 2.80511, .22010, .08350,
1556 + .04824, .17373, .25170,
1557 + .39110, .21928, 2.78965, .22151, .08716,
1558 + .05271, .17598, .25315,
1559 + .39373, .21987, 2.77272, .22265, .09032,
1560 + .05660, .17787, .25431,
1561 + .39679, .22051, 2.74624, .22378, .09395,
1562 + .06107, .17994, .25544,
1563 + .39948, .22101, 2.71835, .22464, .09712,
1564 + .06503, .18166, .25629,
1565 + .40186, .22142, 2.69034, .22531, .09991,
1566 + .06856, .18311, .25693 /
1567 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
1568 + .40400, .22172, 2.65878, .22573, .10238,
1569 + .07169, .18429, .25730,
1570 + .40598, .22196, 2.62677, .22602, .10465,
1571 + .07462, .18531, .25754,
1572 + .40773, .22213, 2.59522, .22617, .10664,
1573 + .07723, .18614, .25763,
1574 + .40923, .22221, 2.56371, .22616, .10832,
1575 + .07946, .18675, .25754,
1576 + .41067, .22227, 2.53197, .22609, .10994,
1577 + .08164, .18730, .25740,
1578 + .41193, .22225, 2.49896, .22585, .11133,
1579 + .08353, .18766, .25708,
1580 + .41310, .22222, 2.46795, .22560, .11261,
1581 + .08532, .18797, .25675,
1582 + .41404, .22213, 2.43721, .22524, .11366,
1583 + .08680, .18811, .25629 /
1584 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
1585 + .41497, .22203, 2.40655, .22485, .11468,
1586 + .08827, .18823, .25580,
1587 + .41578, .22188, 2.37555, .22436, .11556,
1588 + .08958, .18824, .25521,
1589 + .41649, .22171, 2.34592, .22385, .11634,
1590 + .09076, .18820, .25459,
1591 + .41713, .22153, 2.31789, .22334, .11704,
1592 + .09184, .18812, .25397,
1593 + .41768, .22131, 2.28883, .22272, .11763,
1594 + .09279, .18794, .25325 /
1595 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
1596 + .38163, .23154, 1.59060, .13435, .00000,
1597 + .00000, .08028, .17178,
1598 + .38858, .23372, 1.69617, .13730, .00000,
1599 + .00000, .08456, .17495,
1600 + .39795, .23651, 1.82702, .14131, .00000,
1601 + .00000, .09042, .17919,
1602 + .40424, .23829, 1.90746, .14399, .00000,
1603 + .00000, .09439, .18200,
1604 + .41026, .23989, 1.97220, .14659, .00141,
1605 + .00000, .09827, .18467,
1606 + .41499, .24107, 2.01125, .14863, .00644,
1607 + .00000, .10136, .18674,
1608 + .41926, .24208, 2.04248, .15045, .01175,
1609 + .00000, .10416, .18857,
1610 + .42354, .24303, 2.07012, .15223, .01637,
1611 + .00000, .10696, .19033 /
1612 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
1613 + .42698, .24374, 2.08789, .15361, .01996,
1614 + .00000, .10918, .19166,
1615 + .43010, .24432, 2.10070, .15481, .02332,
1616 + .00000, .11118, .19281,
1617 + .43248, .24474, 2.10891, .15571, .02594,
1618 + .00000, .11271, .19366,
1619 + .43709, .24544, 2.11326, .15738, .03105,
1620 + .00072, .11565, .19519,
1621 + .44061, .24586, 2.10317, .15858, .03505,
1622 + .00595, .11789, .19621,
1623 + .44418, .24616, 2.08588, .15967, .03921,
1624 + .01178, .12011, .19710,
1625 + .44748, .24630, 2.06292, .16052, .04314,
1626 + .01668, .12208, .19771,
1627 + .45014, .24629, 2.03810, .16106, .04640,
1628 + .02078, .12360, .19801 /
1629 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
1630 + .45252, .24615, 2.00994, .16141, .04940,
1631 + .02459, .12491, .19809,
1632 + .45425, .24593, 1.98419, .16154, .05166,
1633 + .02746, .12580, .19799,
1634 + .45608, .24556, 1.95062, .16152, .05415,
1635 + .03064, .12669, .19768,
1636 + .45748, .24515, 1.91962, .16137, .05617,
1637 + .03328, .12732, .19725,
1638 + .45860, .24472, 1.89031, .16114, .05789,
1639 + .03555, .12778, .19676,
1640 + .45974, .24404, 1.85122, .16067, .05979,
1641 + .03810, .12815, .19593,
1642 + .46060, .24332, 1.81379, .16011, .06142,
1643 + .04032, .12836, .19504,
1644 + .46125, .24260, 1.77855, .15951, .06282,
1645 + .04227, .12846, .19412 /
1646 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
1647 + .46165, .24178, 1.74216, .15876, .06400,
1648 + .04396, .12839, .19303,
1649 + .46193, .24093, 1.70671, .15796, .06506,
1650 + .04552, .12824, .19191,
1651 + .46206, .24008, 1.67316, .15715, .06596,
1652 + .04687, .12802, .19079,
1653 + .46201, .23921, 1.64122, .15630, .06668,
1654 + .04801, .12772, .18963,
1655 + .46190, .23834, 1.60967, .15543, .06737,
1656 + .04911, .12738, .18845,
1657 + .46163, .23741, 1.57824, .15448, .06791,
1658 + .05003, .12695, .18719,
1659 + .46134, .23652, 1.54905, .15357, .06841,
1660 + .05088, .12653, .18600,
1661 + .46092, .23562, 1.52112, .15264, .06877,
1662 + .05157, .12604, .18478 /
1663 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
1664 + .46047, .23471, 1.49355, .15170, .06912,
1665 + .05225, .12554, .18356,
1666 + .45991, .23377, 1.46636, .15073, .06938,
1667 + .05283, .12499, .18230,
1668 + .45933, .23286, 1.44077, .14978, .06960,
1669 + .05334, .12444, .18109,
1670 + .45875, .23198, 1.41685, .14887, .06978,
1671 + .05379, .12390, .17993,
1672 + .45804, .23105, 1.39260, .14790, .06989,
1673 + .05418, .12329, .17870 /
1674 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
1675 + .45813, .26692, 1.50687, .11608, .00000,
1676 + .00000, .07227, .16118,
1677 + .46381, .26784, 1.56554, .11766, .00000,
1678 + .00000, .07513, .16254,
1679 + .47116, .26882, 1.63267, .11971, .00000,
1680 + .00000, .07890, .16415,
1681 + .47594, .26927, 1.67006, .12099, .00000,
1682 + .00000, .08139, .16510,
1683 + .48031, .26951, 1.69473, .12215, .00107,
1684 + .00000, .08376, .16587,
1685 + .48358, .26954, 1.70388, .12302, .00478,
1686 + .00000, .08559, .16636,
1687 + .48644, .26945, 1.70831, .12373, .00867,
1688 + .00000, .08720, .16671,
1689 + .48921, .26924, 1.70932, .12436, .01202,
1690 + .00000, .08875, .16696 /
1691 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
1692 + .49131, .26896, 1.70620, .12477, .01459,
1693 + .00000, .08995, .16703,
1694 + .49311, .26860, 1.70043, .12509, .01696,
1695 + .00000, .09098, .16700,
1696 + .49443, .26829, 1.69470, .12531, .01880,
1697 + .00000, .09175, .16694,
1698 + .49680, .26744, 1.67390, .12558, .02235,
1699 + .00054, .09316, .16660,
1700 + .49837, .26655, 1.64707, .12565, .02508,
1701 + .00419, .09415, .16612,
1702 + .49974, .26543, 1.61392, .12556, .02787,
1703 + .00824, .09505, .16541,
1704 + .50073, .26411, 1.57733, .12527, .03047,
1705 + .01161, .09576, .16446,
1706 + .50131, .26280, 1.54253, .12485, .03258,
1707 + .01438, .09619, .16344 /
1708 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
1709 + .50160, .26137, 1.50635, .12430, .03450,
1710 + .01693, .09648, .16229,
1711 + .50159, .26010, 1.47552, .12374, .03591,
1712 + .01881, .09659, .16124,
1713 + .50130, .25848, 1.43748, .12296, .03744,
1714 + .02089, .09657, .15983,
1715 + .50084, .25700, 1.40376, .12219, .03865,
1716 + .02258, .09647, .15852,
1717 + .50027, .25560, 1.37290, .12144, .03967,
1718 + .02402, .09630, .15726,
1719 + .49926, .25371, 1.33337, .12036, .04076,
1720 + .02562, .09594, .15557,
1721 + .49813, .25189, 1.29660, .11929, .04167,
1722 + .02699, .09552, .15390,
1723 + .49693, .25017, 1.26274, .11825, .04243,
1724 + .02817, .09507, .15231 /
1725 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
1726 + .49549, .24834, 1.22880, .11712, .04304,
1727 + .02917, .09451, .15063,
1728 + .49397, .24655, 1.19629, .11600, .04358,
1729 + .03009, .09392, .14897,
1730 + .49242, .24483, 1.16606, .11490, .04401,
1731 + .03087, .09332, .14738,
1732 + .49081, .24316, 1.13782, .11383, .04434,
1733 + .03150, .09269, .14583,
1734 + .48916, .24148, 1.11019, .11275, .04464,
1735 + .03211, .09206, .14427,
1736 + .48737, .23977, 1.08318, .11163, .04484,
1737 + .03261, .09136, .14270,
1738 + .48566, .23817, 1.05828, .11058, .04502,
1739 + .03307, .09071, .14123,
1740 + .48390, .23660, 1.03484, .10955, .04512,
1741 + .03341, .09004, .13979 /
1742 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
1743 + .48212, .23503, 1.01185, .10852, .04522,
1744 + .03375, .08937, .13835,
1745 + .48027, .23345, .98945, .10748, .04526,
1746 + .03403, .08867, .13690,
1747 + .47845, .23195, .96853, .10648, .04528,
1748 + .03427, .08799, .13553,
1749 + .47670, .23052, .94911, .10553, .04528,
1750 + .03447, .08734, .13423,
1751 + .47483, .22904, .92965, .10455, .04524,
1752 + .03463, .08665, .13289 /
1753 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
1754 + .52365, .29286, 1.38353, .09977, .00000,
1755 + .00000, .06454, .14903,
1756 + .52744, .29241, 1.41207, .10050, .00000,
1757 + .00000, .06638, .14904,
1758 + .53202, .29140, 1.43947, .10131, .00000,
1759 + .00000, .06873, .14876,
1760 + .53474, .29047, 1.45099, .10173, .00000,
1761 + .00000, .07021, .14840,
1762 + .53695, .28931, 1.45250, .10205, .00083,
1763 + .00000, .07156, .14788,
1764 + .53840, .28815, 1.44501, .10222, .00363,
1765 + .00000, .07257, .14732,
1766 + .53950, .28694, 1.43502, .10228, .00656,
1767 + .00000, .07342, .14672,
1768 + .54039, .28559, 1.42216, .10227, .00906,
1769 + .00000, .07419, .14599 /
1770 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
1771 + .54086, .28433, 1.40843, .10217, .01096,
1772 + .00000, .07475, .14525,
1773 + .54111, .28305, 1.39354, .10200, .01269,
1774 + .00000, .07521, .14448,
1775 + .54122, .28200, 1.38114, .10185, .01404,
1776 + .00000, .07553, .14384,
1777 + .54097, .27967, 1.34914, .10140, .01658,
1778 + .00041, .07604, .14238,
1779 + .54036, .27753, 1.31585, .10089, .01852,
1780 + .00306, .07631, .14103,
1781 + .53931, .27505, 1.27734, .10021, .02048,
1782 + .00599, .07647, .13941,
1783 + .53783, .27238, 1.23688, .09937, .02227,
1784 + .00839, .07646, .13760,
1785 + .53616, .26987, 1.19995, .09852, .02370,
1786 + .01034, .07632, .13589 /
1787 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
1788 + .53422, .26729, 1.16277, .09758, .02498,
1789 + .01213, .07606, .13410,
1790 + .53240, .26509, 1.13198, .09674, .02591,
1791 + .01343, .07578, .13254,
1792 + .52993, .26237, 1.09490, .09565, .02690,
1793 + .01485, .07533, .13061,
1794 + .52758, .25994, 1.06268, .09465, .02766,
1795 + .01599, .07488, .12888,
1796 + .52531, .25769, 1.03368, .09370, .02829,
1797 + .01695, .07441, .12727,
1798 + .52219, .25475, .99726, .09243, .02895,
1799 + .01800, .07373, .12519,
1800 + .51909, .25200, .96393, .09121, .02947,
1801 + .01889, .07304, .12321,
1802 + .51607, .24943, .93362, .09006, .02991,
1803 + .01965, .07236, .12136 /
1804 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
1805 + .51286, .24679, .90374, .08886, .03023,
1806 + .02028, .07162, .11947,
1807 + .50964, .24422, .87543, .08768, .03050,
1808 + .02084, .07088, .11763,
1809 + .50651, .24179, .84938, .08656, .03070,
1810 + .02132, .07014, .11589,
1811 + .50345, .23946, .82532, .08547, .03084,
1812 + .02170, .06942, .11424,
1813 + .50037, .23713, .80194, .08438, .03095,
1814 + .02205, .06869, .11261,
1815 + .49718, .23482, .77933, .08329, .03101,
1816 + .02233, .06794, .11097,
1817 + .49417, .23265, .75858, .08227, .03106,
1818 + .02258, .06724, .10945,
1819 + .49120, .23056, .73927, .08128, .03105,
1820 + .02277, .06655, .10799 /
1821 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
1822 + .48821, .22848, .72040, .08031, .03104,
1823 + .02294, .06585, .10654,
1824 + .48519, .22642, .70217, .07933, .03099,
1825 + .02308, .06515, .10510,
1826 + .48228, .22446, .68523, .07841, .03093,
1827 + .02319, .06447, .10374,
1828 + .47952, .22261, .66958, .07754, .03087,
1829 + .02328, .06384, .10246,
1830 + .47664, .22071, .65402, .07664, .03077,
1831 + .02333, .06317, .10116 /
1832 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
1833 + .59107, .31451, 1.21478, .08232, .00000,
1834 + .00000, .05543, .13229,
1835 + .59201, .31232, 1.22037, .08238, .00000,
1836 + .00000, .05639, .13116,
1837 + .59239, .30888, 1.21854, .08228, .00000,
1838 + .00000, .05754, .12931,
1839 + .59211, .30625, 1.21169, .08211, .00000,
1840 + .00000, .05819, .12789,
1841 + .59126, .30336, 1.19745, .08183, .00062,
1842 + .00000, .05874, .12636,
1843 + .59012, .30080, 1.17935, .08152, .00264,
1844 + .00000, .05910, .12500,
1845 + .58878, .29829, 1.16048, .08116, .00475,
1846 + .00000, .05937, .12365,
1847 + .58711, .29559, 1.13941, .08073, .00653,
1848 + .00000, .05957, .12219 /
1849 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
1850 + .58540, .29319, 1.11978, .08029, .00786,
1851 + .00000, .05965, .12089,
1852 + .58357, .29084, 1.10009, .07982, .00908,
1853 + .00000, .05967, .11961,
1854 + .58205, .28897, 1.08433, .07944, .01001,
1855 + .00000, .05966, .11859,
1856 + .57843, .28493, 1.04759, .07855, .01175,
1857 + .00030, .05953, .11636,
1858 + .57498, .28142, 1.01277, .07772, .01306,
1859 + .00213, .05931, .11444,
1860 + .57082, .27747, .97388, .07673, .01436,
1861 + .00415, .05896, .11226,
1862 + .56618, .27334, .93421, .07563, .01553,
1863 + .00579, .05851, .10994,
1864 + .56175, .26956, .89895, .07458, .01645,
1865 + .00710, .05802, .10782 /
1866 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
1867 + .55709, .26574, .86423, .07347, .01725,
1868 + .00828, .05745, .10569,
1869 + .55307, .26256, .83602, .07253, .01782,
1870 + .00914, .05692, .10391,
1871 + .54800, .25870, .80267, .07135, .01841,
1872 + .01005, .05623, .10174,
1873 + .54341, .25530, .77412, .07030, .01886,
1874 + .01079, .05559, .09984,
1875 + .53914, .25220, .74874, .06931, .01922,
1876 + .01139, .05498, .09812,
1877 + .53354, .24824, .71739, .06805, .01957,
1878 + .01205, .05417, .09592,
1879 + .52819, .24455, .68906, .06684, .01984,
1880 + .01259, .05338, .09388,
1881 + .52315, .24112, .66358, .06571, .02006,
1882 + .01304, .05262, .09201 /
1883 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
1884 + .51794, .23769, .63879, .06457, .02020,
1885 + .01341, .05184, .09012,
1886 + .51283, .23436, .61553, .06347, .02030,
1887 + .01373, .05106, .08830,
1888 + .50797, .23124, .59432, .06243, .02037,
1889 + .01400, .05033, .08661,
1890 + .50330, .22829, .57493, .06144, .02039,
1891 + .01420, .04962, .08502,
1892 + .49865, .22538, .55621, .06046, .02041,
1893 + .01439, .04892, .08345,
1894 + .49396, .22251, .53827, .05949, .02038,
1895 + .01452, .04820, .08191,
1896 + .48956, .21984, .52188, .05858, .02035,
1897 + .01465, .04754, .08049,
1898 + .48529, .21729, .50677, .05772, .02029,
1899 + .01473, .04689, .07914 /
1900 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
1901 + .48104, .21476, .49207, .05688, .02023,
1902 + .01481, .04625, .07780,
1903 + .47681, .21225, .47798, .05602, .02014,
1904 + .01485, .04562, .07650,
1905 + .47280, .20988, .46496, .05521, .02006,
1906 + .01489, .04501, .07528,
1907 + .46900, .20766, .45298, .05446, .01997,
1908 + .01491, .04444, .07414,
1909 + .46508, .20541, .44114, .05370, .01986,
1910 + .01491, .04385, .07299 /
1911 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
1912 + .64332, .32634, 1.05341, .06793, .00000,
1913 + .00000, .04704, .11483,
1914 + .64103, .32255, 1.04591, .06764, .00000,
1915 + .00000, .04745, .11297,
1916 + .63689, .31679, 1.02809, .06703, .00000,
1917 + .00000, .04784, .11024,
1918 + .63343, .31257, 1.01163, .06651, .00000,
1919 + .00000, .04802, .10825,
1920 + .62935, .30813, .98972, .06594, .00047,
1921 + .00000, .04808, .10618,
1922 + .62551, .30430, .96700, .06539, .00195,
1923 + .00000, .04807, .10441,
1924 + .62166, .30063, .94455, .06482, .00351,
1925 + .00000, .04800, .10272,
1926 + .61740, .29674, .92044, .06418, .00480,
1927 + .00000, .04786, .10094 /
1928 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
1929 + .61348, .29335, .89895, .06361, .00576,
1930 + .00000, .04769, .09936,
1931 + .60957, .29008, .87799, .06302, .00663,
1932 + .00000, .04748, .09785,
1933 + .60643, .28751, .86150, .06254, .00729,
1934 + .00000, .04729, .09666,
1935 + .59946, .28207, .82472, .06150, .00851,
1936 + .00023, .04683, .09415,
1937 + .59327, .27740, .79141, .06057, .00941,
1938 + .00152, .04638, .09201,
1939 + .58617, .27222, .75499, .05948, .01030,
1940 + .00295, .04581, .08966,
1941 + .57860, .26687, .71847, .05830, .01109,
1942 + .00409, .04515, .08723,
1943 + .57159, .26207, .68654, .05722, .01169,
1944 + .00500, .04450, .08506 /
1945 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
1946 + .56442, .25729, .65555, .05613, .01220,
1947 + .00581, .04382, .08289,
1948 + .55838, .25335, .63070, .05520, .01256,
1949 + .00638, .04323, .08112,
1950 + .55099, .24859, .60167, .05406, .01292,
1951 + .00699, .04248, .07898,
1952 + .54442, .24445, .57709, .05305, .01319,
1953 + .00748, .04180, .07713,
1954 + .53836, .24073, .55545, .05214, .01339,
1955 + .00787, .04118, .07546,
1956 + .53059, .23602, .52896, .05096, .01358,
1957 + .00829, .04036, .07338,
1958 + .52330, .23164, .50529, .04986, .01372,
1959 + .00862, .03958, .07147,
1960 + .51652, .22762, .48418, .04885, .01381,
1961 + .00891, .03885, .06973 /
1962 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
1963 + .50963, .22362, .46386, .04783, .01386,
1964 + .00912, .03811, .06799,
1965 + .50294, .21978, .44490, .04686, .01389,
1966 + .00931, .03740, .06634,
1967 + .49662, .21619, .42773, .04594, .01389,
1968 + .00946, .03672, .06480,
1969 + .49064, .21285, .41216, .04508, .01387,
1970 + .00957, .03608, .06338,
1971 + .48471, .20955, .39720, .04424, .01384,
1972 + .00967, .03544, .06198,
1973 + .47881, .20631, .38300, .04340, .01378,
1974 + .00974, .03481, .06063,
1975 + .47331, .20329, .37009, .04263, .01372,
1976 + .00980, .03423, .05939,
1977 + .46807, .20043, .35825, .04189, .01365,
1978 + .00983, .03367, .05821 /
1979 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
1980 + .46286, .19761, .34678, .04115, .01357,
1981 + .00985, .03312, .05705,
1982 + .45768, .19485, .33583, .04044, .01349,
1983 + .00986, .03257, .05593,
1984 + .45277, .19224, .32575, .03978, .01340,
1985 + .00986, .03204, .05488,
1986 + .44815, .18981, .31651, .03916, .01331,
1987 + .00986, .03155, .05390,
1988 + .44344, .18736, .30744, .03854, .01321,
1989 + .00984, .03107, .05292 /
1990 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
1991 + .68130, .33021, .90952, .05625, .00000,
1992 + .00000, .03948, .09749,
1993 + .67575, .32494, .89460, .05576, .00000,
1994 + .00000, .03953, .09529,
1995 + .66694, .31718, .86815, .05491, .00000,
1996 + .00000, .03944, .09216,
1997 + .66022, .31164, .84684, .05426, .00000,
1998 + .00000, .03931, .08990,
1999 + .65294, .30586, .82150, .05353, .00036,
2000 + .00000, .03909, .08761,
2001 + .64648, .30096, .79718, .05288, .00147,
2002 + .00000, .03887, .08568,
2003 + .64017, .29633, .77376, .05223, .00262,
2004 + .00000, .03861, .08387,
2005 + .63338, .29147, .74913, .05152, .00358,
2006 + .00000, .03830, .08199 /
2007 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
2008 + .62738, .28725, .72765, .05088, .00428,
2009 + .00000, .03798, .08038,
2010 + .62150, .28323, .70704, .05026, .00491,
2011 + .00000, .03765, .07884,
2012 + .61683, .28011, .69101, .04976, .00538,
2013 + .00000, .03739, .07763,
2014 + .60681, .27348, .65615, .04867, .00626,
2015 + .00017, .03678, .07512,
2016 + .59810, .26792, .62555, .04773, .00689,
2017 + .00110, .03622, .07302,
2018 + .58831, .26180, .59252, .04666, .00750,
2019 + .00213, .03556, .07073,
2020 + .57807, .25555, .55981, .04554, .00804,
2021 + .00294, .03484, .06839,
2022 + .56878, .24999, .53157, .04451, .00844,
2023 + .00358, .03417, .06633 /
2024 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
2025 + .55944, .24447, .50447, .04346, .00878,
2026 + .00414, .03348, .06430,
2027 + .55168, .23998, .48294, .04261, .00901,
2028 + .00454, .03289, .06264,
2029 + .54226, .23460, .45805, .04157, .00923,
2030 + .00495, .03216, .06070,
2031 + .53401, .22995, .43716, .04064, .00939,
2032 + .00528, .03152, .05903,
2033 + .52652, .22575, .41890, .03981, .00950,
2034 + .00554, .03093, .05753,
2035 + .51693, .22054, .39676, .03878, .00960,
2036 + .00581, .03017, .05566,
2037 + .50804, .21573, .37711, .03782, .00966,
2038 + .00603, .02947, .05396,
2039 + .49984, .21132, .35970, .03693, .00970,
2040 + .00620, .02882, .05242 /
2041 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
2042 + .49163, .20696, .34310, .03603, .00970,
2043 + .00634, .02816, .05093,
2044 + .48368, .20280, .32769, .03518, .00969,
2045 + .00645, .02752, .04950,
2046 + .47622, .19896, .31382, .03441, .00966,
2047 + .00653, .02693, .04818,
2048 + .46923, .19536, .30133, .03368, .00962,
2049 + .00659, .02638, .04696,
2050 + .46234, .19183, .28939, .03295, .00958,
2051 + .00665, .02583, .04578,
2052 + .45555, .18839, .27811, .03224, .00951,
2053 + .00667, .02530, .04463,
2054 + .44923, .18520, .26789, .03159, .00945,
2055 + .00669, .02480, .04358,
2056 + .44322, .18220, .25859, .03098, .00938,
2057 + .00670, .02433, .04259 /
2058 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
2059 + .43727, .17925, .24960, .03038, .00931,
2060 + .00670, .02387, .04163,
2061 + .43142, .17635, .24106, .02979, .00922,
2062 + .00669, .02341, .04070,
2063 + .42590, .17362, .23323, .02923, .00914,
2064 + .00668, .02299, .03984,
2065 + .42073, .17109, .22608, .02871, .00907,
2066 + .00667, .02259, .03904,
2067 + .41550, .16854, .21908, .02818, .00898,
2068 + .00664, .02219, .03823 /
2069 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
2070 + .70607, .32762, .78522, .04681, .00000,
2071 + .00000, .03275, .08098,
2072 + .69732, .32107, .76606, .04616, .00000,
2073 + .00000, .03259, .07877,
2074 + .68400, .31163, .73502, .04520, .00000,
2075 + .00000, .03225, .07555,
2076 + .67425, .30490, .71139, .04445, .00000,
2077 + .00000, .03194, .07332,
2078 + .66393, .29802, .68480, .04366, .00028,
2079 + .00000, .03159, .07103,
2080 + .65498, .29228, .66041, .04298, .00111,
2081 + .00000, .03126, .06915,
2082 + .64640, .28686, .63731, .04231, .00198,
2083 + .00000, .03092, .06738,
2084 + .63732, .28120, .61332, .04158, .00269,
2085 + .00000, .03053, .06555 /
2086 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
2087 + .62941, .27634, .59272, .04093, .00320,
2088 + .00000, .03016, .06403,
2089 + .62175, .27174, .57318, .04031, .00366,
2090 + .00000, .02978, .06257,
2091 + .61573, .26818, .55809, .03983, .00401,
2092 + .00000, .02948, .06143,
2093 + .60293, .26071, .52595, .03877, .00464,
2094 + .00013, .02884, .05907,
2095 + .59201, .25446, .49828, .03786, .00509,
2096 + .00081, .02826, .05716,
2097 + .57991, .24764, .46879, .03684, .00552,
2098 + .00156, .02761, .05506,
2099 + .56743, .24073, .43995, .03578, .00588,
2100 + .00214, .02691, .05295,
2101 + .55621, .23463, .41529, .03484, .00615,
2102 + .00259, .02626, .05112 /
2103 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
2104 + .54501, .22864, .39182, .03390, .00637,
2105 + .00299, .02560, .04932,
2106 + .53581, .22377, .37336, .03312, .00652,
2107 + .00326, .02506, .04788,
2108 + .52477, .21800, .35216, .03218, .00665,
2109 + .00355, .02440, .04617,
2110 + .51515, .21303, .33449, .03137, .00674,
2111 + .00376, .02381, .04473,
2112 + .50647, .20857, .31916, .03063, .00680,
2113 + .00394, .02328, .04345,
2114 + .49550, .20305, .30072, .02972, .00685,
2115 + .00412, .02261, .04184,
2116 + .48538, .19798, .28448, .02889, .00687,
2117 + .00426, .02200, .04040,
2118 + .47609, .19336, .27019, .02812, .00688,
2119 + .00437, .02144, .03910 /
2120 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
2121 + .46684, .18883, .25664, .02736, .00686,
2122 + .00445, .02088, .03783,
2123 + .45798, .18451, .24415, .02664, .00683,
2124 + .00451, .02035, .03664,
2125 + .44974, .18052, .23296, .02596, .00679,
2126 + .00456, .01985, .03554,
2127 + .44204, .17682, .22296, .02534, .00674,
2128 + .00459, .01939, .03454,
2129 + .43447, .17319, .21344, .02472, .00669,
2130 + .00461, .01893, .03358,
2131 + .42703, .16969, .20448, .02414, .00663,
2132 + .00462, .01848, .03264,
2133 + .42012, .16646, .19639, .02360, .00658,
2134 + .00463, .01806, .03178,
2135 + .41360, .16342, .18905, .02309, .00651,
2136 + .00462, .01768, .03098 /
2137 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
2138 + .40717, .16042, .18199, .02259, .00645,
2139 + .00461, .01731, .03020,
2140 + .40087, .15750, .17532, .02210, .00638,
2141 + .00460, .01694, .02946,
2142 + .39496, .15477, .16923, .02164, .00631,
2143 + .00458, .01659, .02876,
2144 + .38944, .15223, .16368, .02122, .00625,
2145 + .00456, .01627, .02812,
2146 + .38386, .14970, .15827, .02080, .00617,
2147 + .00454, .01595, .02748 /
2148 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
2149 + .71878, .31979, .67911, .03907, .00000,
2150 + .00000, .02690, .06594,
2151 + .70696, .31222, .65749, .03839, .00000,
2152 + .00000, .02663, .06379,
2153 + .68949, .30136, .62412, .03734, .00000,
2154 + .00000, .02615, .06077,
2155 + .67691, .29374, .59961, .03656, .00000,
2156 + .00000, .02576, .05867,
2157 + .66383, .28600, .57296, .03575, .00022,
2158 + .00000, .02536, .05655,
2159 + .65268, .27956, .54923, .03505, .00084,
2160 + .00000, .02497, .05483,
2161 + .64209, .27354, .52705, .03438, .00150,
2162 + .00000, .02459, .05323,
2163 + .63096, .26732, .50426, .03367, .00203,
2164 + .00000, .02417, .05158 /
2165 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
2166 + .62135, .26201, .48492, .03305, .00241,
2167 + .00000, .02380, .05019,
2168 + .61215, .25698, .46678, .03245, .00275,
2169 + .00000, .02343, .04888,
2170 + .60496, .25309, .45288, .03199, .00300,
2171 + .00000, .02314, .04786,
2172 + .58984, .24500, .42363, .03097, .00345,
2173 + .00010, .02250, .04581,
2174 + .57706, .23831, .39892, .03013, .00377,
2175 + .00059, .02195, .04411,
2176 + .56301, .23106, .37286, .02920, .00407,
2177 + .00114, .02134, .04228,
2178 + .54866, .22374, .34761, .02823, .00432,
2179 + .00156, .02069, .04046,
2180 + .53590, .21731, .32622, .02738, .00450,
2181 + .00188, .02011, .03888 /
2182 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
2183 + .52327, .21103, .30605, .02654, .00465,
2184 + .00216, .01953, .03734,
2185 + .51295, .20596, .29031, .02584, .00474,
2186 + .00235, .01905, .03612,
2187 + .50064, .19999, .27235, .02501, .00482,
2188 + .00255, .01846, .03470,
2189 + .48999, .19487, .25751, .02430, .00487,
2190 + .00270, .01796, .03349,
2191 + .48040, .19030, .24470, .02367, .00490,
2192 + .00282, .01750, .03241,
2193 + .46842, .18462, .22943, .02288, .00491,
2194 + .00293, .01694, .03110,
2195 + .45742, .17947, .21606, .02216, .00491,
2196 + .00302, .01641, .02992,
2197 + .44735, .17480, .20436, .02151, .00490,
2198 + .00309, .01594, .02885 /
2199 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
2200 + .43744, .17022, .19336, .02085, .00487,
2201 + .00314, .01548, .02783,
2202 + .42797, .16587, .18326, .02023, .00484,
2203 + .00318, .01503, .02686,
2204 + .41920, .16187, .17424, .01966, .00480,
2205 + .00320, .01461, .02599,
2206 + .41101, .15819, .16621, .01915, .00475,
2207 + .00322, .01423, .02518,
2208 + .40298, .15460, .15859, .01865, .00470,
2209 + .00323, .01387, .02439,
2210 + .39515, .15113, .15150, .01817, .00465,
2211 + .00322, .01351, .02365,
2212 + .38790, .14793, .14512, .01772, .00460,
2213 + .00322, .01317, .02297,
2214 + .38114, .14492, .13936, .01729, .00455,
2215 + .00321, .01286, .02234 /
2216 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
2217 + .37448, .14197, .13382, .01686, .00449,
2218 + .00320, .01256, .02173,
2219 + .36795, .13912, .12861, .01646, .00444,
2220 + .00318, .01226, .02113,
2221 + .36181, .13647, .12386, .01609, .00438,
2222 + .00316, .01198, .02059,
2223 + .35610, .13401, .11955, .01575, .00433,
2224 + .00314, .01173, .02008,
2225 + .35036, .13154, .11537, .01542, .00427,
2226 + .00312, .01147, .01957 /
2227 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
2228 + .72055, .30780, .58849, .03267, .00000,
2229 + .00000, .02187, .05263,
2230 + .70596, .29943, .56552, .03197, .00000,
2231 + .00000, .02153, .05068,
2232 + .68471, .28756, .53122, .03094, .00000,
2233 + .00000, .02100, .04792,
2234 + .66961, .27927, .50659, .03017, .00000,
2235 + .00000, .02059, .04606,
2236 + .65410, .27093, .48058, .02938, .00017,
2237 + .00000, .02012, .04420,
2238 + .64102, .26404, .45794, .02870, .00064,
2239 + .00000, .01974, .04268,
2240 + .62871, .25760, .43697, .02805, .00113,
2241 + .00000, .01937, .04129,
2242 + .61588, .25096, .41564, .02737, .00153,
2243 + .00000, .01896, .03986 /
2244 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
2245 + .60483, .24536, .39777, .02679, .00181,
2246 + .00000, .01861, .03865,
2247 + .59436, .24007, .38114, .02623, .00206,
2248 + .00000, .01826, .03752,
2249 + .58622, .23597, .36847, .02579, .00224,
2250 + .00000, .01798, .03666,
2251 + .56915, .22757, .34214, .02486, .00257,
2252 + .00008, .01741, .03490,
2253 + .55493, .22060, .32028, .02408, .00280,
2254 + .00044, .01691, .03347,
2255 + .53937, .21310, .29744, .02325, .00301,
2256 + .00084, .01636, .03192,
2257 + .52357, .20561, .27550, .02238, .00318,
2258 + .00114, .01578, .03041,
2259 + .50961, .19906, .25709, .02162, .00330,
2260 + .00137, .01528, .02911 /
2261 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
2262 + .49591, .19268, .23987, .02087, .00339,
2263 + .00157, .01479, .02784,
2264 + .48482, .18752, .22651, .02026, .00345,
2265 + .00170, .01437, .02685,
2266 + .47163, .18149, .21143, .01954, .00349,
2267 + .00184, .01387, .02569,
2268 + .46026, .17634, .19901, .01892, .00352,
2269 + .00194, .01344, .02471,
2270 + .45011, .17177, .18832, .01837, .00353,
2271 + .00202, .01307, .02385,
2272 + .43744, .16615, .17571, .01769, .00353,
2273 + .00210, .01259, .02279,
2274 + .42588, .16105, .16476, .01708, .00352,
2275 + .00216, .01216, .02184,
2276 + .41539, .15643, .15523, .01651, .00350,
2277 + .00220, .01178, .02099 /
2278 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
2279 + .40506, .15193, .14631, .01598, .00347,
2280 + .00223, .01139, .02018,
2281 + .39523, .14767, .13817, .01546, .00344,
2282 + .00225, .01103, .01943,
2283 + .38616, .14377, .13094, .01498, .00340,
2284 + .00226, .01069, .01875,
2285 + .37775, .14018, .12454, .01455, .00336,
2286 + .00226, .01039, .01811,
2287 + .36953, .13670, .11849, .01415, .00332,
2288 + .00226, .01011, .01748,
2289 + .36157, .13334, .11287, .01374, .00327,
2290 + .00226, .00982, .01691,
2291 + .35422, .13024, .10783, .01336, .00323,
2292 + .00225, .00956, .01638,
2293 + .34733, .12737, .10330, .01301, .00319,
2294 + .00224, .00932, .01589 /
2295 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
2296 + .34056, .12455, .09897, .01268, .00314,
2297 + .00223, .00908, .01541,
2298 + .33397, .12182, .09489, .01235, .00310,
2299 + .00221, .00884, .01496,
2300 + .32781, .11928, .09119, .01205, .00305,
2301 + .00219, .00862, .01455,
2302 + .32208, .11692, .08784, .01177, .00301,
2303 + .00218, .00841, .01417,
2304 + .31636, .11457, .08462, .01149, .00297,
2305 + .00216, .00821, .01379 /
2306 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
2307 + .71226, .29290, .51066, .02759, .00000,
2308 + .00000, .01739, .04101,
2309 + .69530, .28394, .48695, .02686, .00000,
2310 + .00000, .01706, .03932,
2311 + .67084, .27132, .45246, .02580, .00000,
2312 + .00000, .01655, .03697,
2313 + .65365, .26257, .42832, .02503, .00000,
2314 + .00000, .01616, .03539,
2315 + .63615, .25381, .40330, .02424, .00013,
2316 + .00000, .01573, .03384,
2317 + .62153, .24660, .38197, .02358, .00049,
2318 + .00000, .01538, .03258,
2319 + .60781, .23993, .36245, .02296, .00086,
2320 + .00000, .01504, .03139,
2321 + .59357, .23309, .34278, .02233, .00115,
2322 + .00000, .01469, .03018 /
2323 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
2324 + .58149, .22728, .32642, .02177, .00136,
2325 + .00000, .01436, .02920,
2326 + .57004, .22185, .31131, .02123, .00154,
2327 + .00000, .01405, .02828,
2328 + .56115, .21766, .29987, .02081, .00168,
2329 + .00000, .01382, .02758,
2330 + .54262, .20912, .27641, .02000, .00191,
2331 + .00006, .01330, .02611,
2332 + .52726, .20208, .25722, .01930, .00208,
2333 + .00032, .01289, .02493,
2334 + .51059, .19454, .23732, .01854, .00222,
2335 + .00062, .01242, .02368,
2336 + .49382, .18701, .21839, .01777, .00234,
2337 + .00084, .01193, .02247,
2338 + .47911, .18045, .20265, .01708, .00242,
2339 + .00100, .01149, .02144 /
2340 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
2341 + .46473, .17410, .18804, .01641, .00248,
2342 + .00114, .01106, .02044,
2343 + .45309, .16902, .17681, .01588, .00251,
2344 + .00124, .01072, .01966,
2345 + .43933, .16310, .16417, .01527, .00254,
2346 + .00133, .01033, .01872,
2347 + .42754, .15807, .15386, .01474, .00255,
2348 + .00140, .00998, .01795,
2349 + .41704, .15359, .14509, .01427, .00255,
2350 + .00145, .00967, .01729,
2351 + .40408, .14809, .13475, .01370, .00254,
2352 + .00150, .00928, .01645,
2353 + .39228, .14313, .12581, .01318, .00252,
2354 + .00154, .00894, .01570,
2355 + .38157, .13868, .11807, .01271, .00250,
2356 + .00157, .00863, .01504 /
2357 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
2358 + .37110, .13434, .11087, .01226, .00247,
2359 + .00158, .00833, .01443,
2360 + .36118, .13025, .10434, .01181, .00244,
2361 + .00159, .00804, .01385,
2362 + .35208, .12652, .09857, .01139, .00241,
2363 + .00160, .00777, .01333,
2364 + .34363, .12309, .09349, .01104, .00238,
2365 + .00159, .00753, .01284,
2366 + .33538, .11977, .08870, .01072, .00234,
2367 + .00159, .00730, .01238,
2368 + .32745, .11658, .08427, .01038, .00231,
2369 + .00158, .00707, .01194,
2370 + .32015, .11364, .08030, .01007, .00227,
2371 + .00158, .00686, .01154,
2372 + .31331, .11093, .07676, .00980, .00223,
2373 + .00157, .00667, .01117 /
2374 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
2375 + .30660, .10828, .07338, .00954, .00220,
2376 + .00155, .00649, .01081,
2377 + .30011, .10572, .07022, .00928, .00216,
2378 + .00154, .00631, .01047,
2379 + .29406, .10334, .06735, .00903, .00213,
2380 + .00153, .00614, .01017,
2381 + .28845, .10113, .06476, .00880, .00210,
2382 + .00151, .00599, .00988,
2383 + .28285, .09894, .06226, .00858, .00206,
2384 + .00150, .00583, .00960 /
2385 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
2386 + .69586, .27517, .44233, .02289, .00000,
2387 + .00000, .01386, .03151,
2388 + .67680, .26590, .41853, .02220, .00000,
2389 + .00000, .01354, .03007,
2390 + .64967, .25286, .38463, .02119, .00000,
2391 + .00000, .01303, .02813,
2392 + .63075, .24387, .36129, .02046, .00000,
2393 + .00000, .01267, .02682,
2394 + .61159, .23495, .33762, .01975, .00010,
2395 + .00000, .01229, .02551,
2396 + .59568, .22765, .31783, .01915, .00036,
2397 + .00000, .01197, .02446,
2398 + .58087, .22089, .29986, .01858, .00064,
2399 + .00000, .01165, .02351,
2400 + .56561, .21398, .28190, .01800, .00086,
2401 + .00000, .01132, .02255 /
2402 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
2403 + .55267, .20818, .26714, .01750, .00101,
2404 + .00000, .01104, .02174,
2405 + .54047, .20273, .25359, .01702, .00115,
2406 + .00000, .01078, .02100,
2407 + .53105, .19853, .24337, .01665, .00124,
2408 + .00000, .01057, .02043,
2409 + .51151, .19003, .22267, .01592, .00141,
2410 + .00005, .01013, .01927,
2411 + .49544, .18305, .20596, .01529, .00152,
2412 + .00024, .00976, .01834,
2413 + .47809, .17561, .18883, .01462, .00163,
2414 + .00045, .00936, .01736,
2415 + .46068, .16824, .17265, .01395, .00170,
2416 + .00061, .00896, .01640,
2417 + .44548, .16185, .15931, .01337, .00176,
2418 + .00072, .00860, .01558 /
2419 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
2420 + .43071, .15568, .14704, .01280, .00179,
2421 + .00082, .00825, .01479,
2422 + .41883, .15075, .13766, .01234, .00181,
2423 + .00089, .00797, .01419,
2424 + .40488, .14502, .12719, .01181, .00182,
2425 + .00095, .00765, .01346,
2426 + .39296, .14017, .11870, .01137, .00183,
2427 + .00100, .00738, .01286,
2428 + .38237, .13590, .11149, .01099, .00182,
2429 + .00103, .00712, .01233,
2430 + .36934, .13064, .10307, .01051, .00181,
2431 + .00107, .00681, .01171,
2432 + .35752, .12592, .09584, .01008, .00179,
2433 + .00109, .00654, .01116,
2434 + .34683, .12168, .08962, .00970, .00177,
2435 + .00111, .00628, .01066 /
2436 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
2437 + .33645, .11758, .08386, .00932, .00175,
2438 + .00111, .00605, .01019,
2439 + .32664, .11373, .07866, .00896, .00172,
2440 + .00112, .00582, .00975,
2441 + .31764, .11023, .07409, .00864, .00170,
2442 + .00112, .00561, .00935,
2443 + .30938, .10702, .07008, .00834, .00167,
2444 + .00112, .00543, .00899,
2445 + .30134, .10390, .06632, .00805, .00164,
2446 + .00111, .00525, .00865,
2447 + .29356, .10094, .06285, .00780, .00161,
2448 + .00110, .00508, .00833,
2449 + .28640, .09822, .05974, .00757, .00159,
2450 + .00110, .00492, .00803,
2451 + .27978, .09569, .05699, .00734, .00156,
2452 + .00109, .00477, .00776 /
2453 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
2454 + .27331, .09322, .05436, .00711, .00153,
2455 + .00108, .00463, .00750,
2456 + .26704, .09085, .05191, .00690, .00150,
2457 + .00107, .00449, .00725,
2458 + .26121, .08865, .04971, .00671, .00148,
2459 + .00106, .00436, .00701,
2460 + .25581, .08662, .04772, .00654, .00145,
2461 + .00104, .00425, .00679,
2462 + .25042, .08462, .04581, .00636, .00143,
2463 + .00103, .00413, .00659 /
2464 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
2465 + .67193, .25595, .38198, .01898, .00000,
2466 + .00000, .01085, .02366,
2467 + .65124, .24652, .35853, .01834, .00000,
2468 + .00000, .01055, .02250,
2469 + .62205, .23331, .32580, .01737, .00000,
2470 + .00000, .01011, .02094,
2471 + .60185, .22424, .30367, .01666, .00000,
2472 + .00000, .00978, .01993,
2473 + .58146, .21536, .28155, .01603, .00008,
2474 + .00000, .00945, .01885,
2475 + .56470, .20806, .26338, .01548, .00027,
2476 + .00000, .00916, .01804,
2477 + .54915, .20134, .24707, .01496, .00048,
2478 + .00000, .00890, .01728,
2479 + .53317, .19451, .23091, .01444, .00064,
2480 + .00000, .00863, .01651 /
2481 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
2482 + .51968, .18880, .21769, .01399, .00075,
2483 + .00000, .00840, .01586,
2484 + .50704, .18345, .20566, .01356, .00084,
2485 + .00000, .00817, .01528,
2486 + .49730, .17936, .19666, .01322, .00091,
2487 + .00000, .00799, .01484,
2488 + .47718, .17101, .17864, .01258, .00103,
2489 + .00004, .00762, .01396,
2490 + .46072, .16423, .16426, .01204, .00111,
2491 + .00017, .00731, .01325,
2492 + .44302, .15704, .14961, .01146, .00118,
2493 + .00033, .00698, .01250,
2494 + .42539, .14992, .13593, .01089, .00124,
2495 + .00044, .00666, .01175,
2496 + .41007, .14378, .12476, .01040, .00127,
2497 + .00052, .00638, .01111 /
2498 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
2499 + .39524, .13790, .11454, .00992, .00129,
2500 + .00059, .00609, .01051,
2501 + .38335, .13322, .10677, .00954, .00130,
2502 + .00064, .00587, .01004,
2503 + .36943, .12778, .09818, .00910, .00131,
2504 + .00068, .00560, .00953,
2505 + .35761, .12319, .09125, .00872, .00130,
2506 + .00071, .00537, .00909,
2507 + .34717, .11915, .08541, .00838, .00130,
2508 + .00073, .00518, .00868,
2509 + .33432, .11421, .07862, .00799, .00128,
2510 + .00076, .00494, .00822,
2511 + .32271, .10979, .07280, .00765, .00127,
2512 + .00077, .00473, .00780,
2513 + .31226, .10584, .06782, .00734, .00125,
2514 + .00078, .00454, .00741 /
2515 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
2516 + .30211, .10203, .06326, .00704, .00123,
2517 + .00078, .00434, .00707,
2518 + .29257, .09846, .05916, .00676, .00121,
2519 + .00078, .00417, .00675,
2520 + .28387, .09520, .05558, .00649, .00119,
2521 + .00078, .00401, .00647,
2522 + .27590, .09224, .05243, .00624, .00117,
2523 + .00078, .00387, .00621,
2524 + .26818, .08937, .04948, .00601, .00115,
2525 + .00078, .00374, .00595,
2526 + .26073, .08664, .04678, .00581, .00112,
2527 + .00077, .00360, .00572,
2528 + .25389, .08415, .04437, .00562, .00110,
2529 + .00076, .00348, .00550,
2530 + .24757, .08184, .04225, .00544, .00108,
2531 + .00075, .00337, .00530 /
2532 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
2533 + .24139, .07960, .04023, .00526, .00106,
2534 + .00075, .00327, .00511,
2535 + .23544, .07744, .03834, .00509, .00104,
2536 + .00074, .00317, .00492,
2537 + .22991, .07544, .03664, .00494, .00102,
2538 + .00073, .00307, .00476,
2539 + .22479, .07360, .03512, .00480, .00100,
2540 + .00072, .00298, .00461,
2541 + .21970, .07178, .03366, .00467, .00098,
2542 + .00071, .00289, .00446 /
2543 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
2544 + .64184, .23562, .32795, .01552, .00000,
2545 + .00000, .00841, .01746,
2546 + .62004, .22613, .30530, .01489, .00000,
2547 + .00000, .00815, .01658,
2548 + .58936, .21304, .27420, .01401, .00000,
2549 + .00000, .00776, .01535,
2550 + .56820, .20415, .25357, .01342, .00000,
2551 + .00000, .00748, .01451,
2552 + .54710, .19536, .23330, .01283, .00006,
2553 + .00000, .00721, .01370,
2554 + .52978, .18822, .21688, .01234, .00020,
2555 + .00000, .00696, .01307,
2556 + .51376, .18169, .20225, .01190, .00035,
2557 + .00000, .00673, .01248,
2558 + .49739, .17506, .18787, .01144, .00047,
2559 + .00000, .00651, .01189 /
2560 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
2561 + .48365, .16950, .17624, .01104, .00055,
2562 + .00000, .00630, .01142,
2563 + .47079, .16434, .16574, .01067, .00062,
2564 + .00000, .00612, .01097,
2565 + .46091, .16040, .15793, .01040, .00067,
2566 + .00000, .00598, .01062,
2567 + .44064, .15240, .14238, .00983, .00075,
2568 + .00003, .00567, .00994,
2569 + .42409, .14594, .13014, .00937, .00080,
2570 + .00012, .00542, .00940,
2571 + .40641, .13908, .11779, .00888, .00085,
2572 + .00023, .00516, .00883,
2573 + .38886, .13233, .10635, .00840, .00089,
2574 + .00031, .00489, .00829,
2575 + .37367, .12653, .09708, .00797, .00091,
2576 + .00037, .00466, .00783 /
2577 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
2578 + .35903, .12099, .08868, .00758, .00092,
2579 + .00042, .00445, .00739,
2580 + .34736, .11658, .08234, .00728, .00092,
2581 + .00045, .00426, .00704,
2582 + .33375, .11152, .07536, .00692, .00092,
2583 + .00048, .00406, .00664,
2584 + .32224, .10724, .06975, .00660, .00092,
2585 + .00050, .00389, .00630,
2586 + .31211, .10347, .06505, .00633, .00091,
2587 + .00052, .00374, .00602,
2588 + .29964, .09891, .05964, .00603, .00090,
2589 + .00053, .00355, .00567,
2590 + .28844, .09484, .05503, .00575, .00089,
2591 + .00054, .00338, .00537,
2592 + .27841, .09119, .05109, .00550, .00088,
2593 + .00054, .00324, .00510 /
2594 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
2595 + .26871, .08771, .04751, .00526, .00086,
2596 + .00055, .00310, .00484,
2597 + .25960, .08444, .04429, .00503, .00084,
2598 + .00055, .00297, .00461,
2599 + .25129, .08146, .04149, .00482, .00083,
2600 + .00054, .00285, .00441,
2601 + .24372, .07876, .03904, .00463, .00081,
2602 + .00054, .00274, .00423,
2603 + .23639, .07616, .03676, .00444, .00079,
2604 + .00054, .00262, .00405,
2605 + .22935, .07369, .03468, .00428, .00078,
2606 + .00053, .00253, .00387,
2607 + .22291, .07143, .03284, .00413, .00076,
2608 + .00052, .00245, .00371,
2609 + .21698, .06934, .03120, .00399, .00074,
2610 + .00052, .00236, .00358 /
2611 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
2612 + .21121, .06731, .02965, .00384, .00073,
2613 + .00051, .00228, .00345,
2614 + .20563, .06538, .02821, .00372, .00071,
2615 + .00051, .00220, .00333,
2616 + .20045, .06360, .02692, .00361, .00070,
2617 + .00050, .00213, .00321,
2618 + .19567, .06196, .02576, .00350, .00068,
2619 + .00049, .00206, .00310,
2620 + .19096, .06033, .02465, .00339, .00067,
2621 + .00048, .00200, .00300 /
2622 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
2623 + .60678, .21464, .27927, .01249, .00000,
2624 + .00000, .00648, .01266,
2625 + .58418, .20538, .25777, .01191, .00000,
2626 + .00000, .00626, .01198,
2627 + .55261, .19259, .22891, .01114, .00000,
2628 + .00000, .00591, .01105,
2629 + .53100, .18395, .20997, .01062, .00000,
2630 + .00000, .00568, .01041,
2631 + .50952, .17549, .19168, .01010, .00004,
2632 + .00000, .00541, .00981,
2633 + .49197, .16863, .17706, .00969, .00015,
2634 + .00000, .00523, .00930,
2635 + .47583, .16235, .16415, .00929, .00025,
2636 + .00000, .00505, .00887,
2637 + .45940, .15599, .15158, .00888, .00034,
2638 + .00000, .00485, .00845 /
2639 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
2640 + .44561, .15071, .14150, .00857, .00039,
2641 + .00000, .00468, .00807,
2642 + .43275, .14581, .13244, .00828, .00044,
2643 + .00000, .00453, .00773,
2644 + .42290, .14207, .12572, .00804, .00048,
2645 + .00000, .00442, .00748,
2646 + .40282, .13450, .11251, .00756, .00054,
2647 + .00002, .00417, .00698,
2648 + .38652, .12839, .10224, .00716, .00057,
2649 + .00009, .00398, .00660,
2650 + .36913, .12197, .09197, .00675, .00060,
2651 + .00017, .00376, .00618,
2652 + .35198, .11566, .08253, .00636, .00063,
2653 + .00022, .00356, .00577,
2654 + .33721, .11027, .07495, .00603, .00064,
2655 + .00026, .00339, .00542 /
2656 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
2657 + .32300, .10513, .06813, .00571, .00065,
2658 + .00030, .00322, .00509,
2659 + .31174, .10107, .06301, .00545, .00065,
2660 + .00032, .00308, .00484,
2661 + .29862, .09638, .05741, .00517, .00065,
2662 + .00034, .00292, .00457,
2663 + .28755, .09245, .05294, .00492, .00064,
2664 + .00035, .00279, .00433,
2665 + .27783, .08901, .04920, .00471, .00064,
2666 + .00036, .00268, .00410,
2667 + .26599, .08484, .04492, .00446, .00063,
2668 + .00037, .00253, .00386,
2669 + .25536, .08113, .04130, .00423, .00062,
2670 + .00037, .00240, .00365,
2671 + .24585, .07782, .03822, .00404, .00061,
2672 + .00038, .00229, .00346 /
2673 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
2674 + .23669, .07467, .03544, .00386, .00059,
2675 + .00038, .00219, .00327,
2676 + .22812, .07172, .03295, .00369, .00058,
2677 + .00038, .00209, .00310,
2678 + .22036, .06904, .03079, .00351, .00057,
2679 + .00037, .00200, .00296,
2680 + .21325, .06661, .02890, .00337, .00055,
2681 + .00037, .00192, .00284,
2682 + .20638, .06428, .02715, .00324, .00054,
2683 + .00037, .00185, .00273,
2684 + .19984, .06207, .02556, .00312, .00053,
2685 + .00036, .00178, .00260,
2686 + .19386, .06005, .02415, .00301, .00052,
2687 + .00036, .00171, .00247,
2688 + .18837, .05820, .02290, .00289, .00051,
2689 + .00035, .00165, .00238 /
2690 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
2691 + .18303, .05641, .02173, .00277, .00049,
2692 + .00035, .00158, .00229,
2693 + .17789, .05469, .02064, .00267, .00048,
2694 + .00034, .00153, .00220,
2695 + .17314, .05311, .01968, .00257, .00047,
2696 + .00034, .00148, .00212,
2697 + .16876, .05166, .01881, .00249, .00046,
2698 + .00033, .00144, .00204,
2699 + .16442, .05023, .01797, .00242, .00045,
2700 + .00033, .00139, .00197 /
2701 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
2702 + .56773, .19374, .23557, .00999, .00000,
2703 + .00000, .00487, .00895,
2704 + .54476, .18481, .21560, .00951, .00000,
2705 + .00000, .00465, .00845,
2706 + .51287, .17255, .18922, .00882, .00000,
2707 + .00000, .00437, .00775,
2708 + .49116, .16429, .17220, .00836, .00000,
2709 + .00000, .00417, .00730,
2710 + .46974, .15617, .15597, .00792, .00003,
2711 + .00000, .00400, .00683,
2712 + .45230, .14965, .14316, .00754, .00010,
2713 + .00000, .00383, .00650,
2714 + .43630, .14372, .13196, .00721, .00018,
2715 + .00000, .00368, .00619,
2716 + .42005, .13773, .12113, .00688, .00024,
2717 + .00000, .00353, .00586 /
2718 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
2719 + .40648, .13277, .11250, .00661, .00028,
2720 + .00000, .00340, .00559,
2721 + .39389, .12817, .10481, .00635, .00031,
2722 + .00000, .00328, .00533,
2723 + .38426, .12467, .09915, .00615, .00034,
2724 + .00000, .00320, .00514,
2725 + .36464, .11763, .08814, .00578, .00038,
2726 + .00002, .00301, .00478,
2727 + .34881, .11196, .07962, .00545, .00040,
2728 + .00006, .00286, .00450,
2729 + .33201, .10601, .07120, .00513, .00042,
2730 + .00012, .00271, .00418,
2731 + .31551, .10019, .06353, .00480, .00044,
2732 + .00016, .00255, .00390,
2733 + .30135, .09523, .05740, .00452, .00045,
2734 + .00018, .00241, .00367 /
2735 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
2736 + .28776, .09054, .05191, .00427, .00045,
2737 + .00021, .00228, .00344,
2738 + .27705, .08683, .04784, .00407, .00045,
2739 + .00022, .00216, .00327,
2740 + .26463, .08257, .04340, .00383, .00045,
2741 + .00023, .00205, .00307,
2742 + .25418, .07900, .03988, .00364, .00044,
2743 + .00024, .00195, .00290,
2744 + .24502, .07588, .03695, .00348, .00044,
2745 + .00025, .00186, .00276,
2746 + .23383, .07213, .03361, .00330, .00043,
2747 + .00025, .00177, .00257,
2748 + .22389, .06880, .03080, .00312, .00042,
2749 + .00026, .00167, .00242,
2750 + .21506, .06584, .02841, .00295, .00041,
2751 + .00026, .00159, .00230 /
2752 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
2753 + .20656, .06300, .02626, .00280, .00040,
2754 + .00026, .00151, .00218,
2755 + .19860, .06037, .02436, .00266, .00040,
2756 + .00026, .00144, .00207,
2757 + .19137, .05799, .02271, .00256, .00039,
2758 + .00025, .00138, .00196,
2759 + .18484, .05585, .02128, .00244, .00038,
2760 + .00025, .00132, .00186,
2761 + .17855, .05380, .01995, .00233, .00037,
2762 + .00025, .00127, .00177,
2763 + .17253, .05185, .01874, .00224, .00036,
2764 + .00025, .00121, .00169,
2765 + .16704, .05008, .01768, .00215, .00035,
2766 + .00024, .00116, .00161,
2767 + .16201, .04846, .01674, .00207, .00034,
2768 + .00024, .00112, .00155 /
2769 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
2770 + .15713, .04688, .01586, .00199, .00033,
2771 + .00024, .00109, .00148,
2772 + .15245, .04537, .01505, .00192, .00033,
2773 + .00023, .00105, .00143,
2774 + .14812, .04399, .01432, .00185, .00032,
2775 + .00023, .00100, .00138,
2776 + .14415, .04271, .01367, .00178, .00031,
2777 + .00022, .00096, .00133,
2778 + .14022, .04147, .01304, .00173, .00030,
2779 + .00022, .00093, .00129 /
2780 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
2781 + .52582, .17310, .19621, .00781, .00000,
2782 + .00000, .00361, .00623,
2783 + .50287, .16462, .17814, .00742, .00000,
2784 + .00000, .00341, .00586,
2785 + .47125, .15298, .15458, .00683, .00000,
2786 + .00000, .00320, .00537,
2787 + .44977, .14523, .13956, .00647, .00000,
2788 + .00000, .00303, .00500,
2789 + .42870, .13763, .12543, .00607, .00002,
2790 + .00000, .00289, .00470,
2791 + .41161, .13154, .11446, .00579, .00007,
2792 + .00000, .00275, .00444,
2793 + .39601, .12600, .10489, .00552, .00013,
2794 + .00000, .00264, .00421,
2795 + .38024, .12041, .09569, .00524, .00017,
2796 + .00000, .00253, .00398 /
2797 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
2798 + .36709, .11584, .08846, .00503, .00020,
2799 + .00000, .00243, .00376,
2800 + .35491, .11161, .08206, .00483, .00022,
2801 + .00000, .00234, .00357,
2802 + .34562, .10839, .07736, .00467, .00024,
2803 + .00000, .00226, .00344,
2804 + .32683, .10188, .06828, .00434, .00026,
2805 + .00001, .00211, .00321,
2806 + .31167, .09670, .06136, .00410, .00028,
2807 + .00004, .00200, .00300,
2808 + .29565, .09127, .05457, .00385, .00029,
2809 + .00008, .00189, .00278,
2810 + .28002, .08598, .04842, .00359, .00030,
2811 + .00011, .00177, .00257,
2812 + .26667, .08149, .04354, .00336, .00031,
2813 + .00013, .00166, .00241 /
2814 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
2815 + .25392, .07723, .03920, .00316, .00031,
2816 + .00014, .00156, .00227,
2817 + .24382, .07389, .03599, .00301, .00031,
2818 + .00015, .00148, .00215,
2819 + .23217, .07008, .03252, .00285, .00031,
2820 + .00016, .00140, .00200,
2821 + .22242, .06689, .02978, .00270, .00030,
2822 + .00017, .00133, .00189,
2823 + .21391, .06412, .02751, .00257, .00030,
2824 + .00017, .00126, .00179,
2825 + .20361, .06076, .02494, .00241, .00029,
2826 + .00017, .00118, .00167,
2827 + .19443, .05780, .02279, .00227, .00029,
2828 + .00017, .00112, .00157,
2829 + .18626, .05518, .02097, .00216, .00028,
2830 + .00018, .00108, .00147 /
2831 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
2832 + .17847, .05269, .01934, .00204, .00027,
2833 + .00017, .00102, .00139,
2834 + .17121, .05037, .01789, .00193, .00027,
2835 + .00017, .00096, .00132,
2836 + .16462, .04828, .01664, .00184, .00026,
2837 + .00017, .00092, .00126,
2838 + .15866, .04640, .01556, .00176, .00025,
2839 + .00017, .00088, .00120,
2840 + .15293, .04460, .01456, .00168, .00025,
2841 + .00017, .00085, .00113,
2842 + .14750, .04290, .01366, .00161, .00024,
2843 + .00017, .00081, .00108,
2844 + .14256, .04135, .01287, .00154, .00023,
2845 + .00016, .00078, .00103,
2846 + .13803, .03994, .01217, .00148, .00023,
2847 + .00016, .00074, .00099 /
2848 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
2849 + .13363, .03858, .01151, .00142, .00022,
2850 + .00016, .00071, .00095,
2851 + .12942, .03728, .01090, .00137, .00022,
2852 + .00016, .00068, .00091,
2853 + .12553, .03608, .01036, .00132, .00021,
2854 + .00015, .00065, .00088,
2855 + .12197, .03499, .00988, .00128, .00021,
2856 + .00015, .00063, .00084,
2857 + .11847, .03391, .00942, .00122, .00020,
2858 + .00015, .00060, .00082 /
2859 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
2860 + .48199, .15301, .16105, .00594, .00000,
2861 + .00000, .00265, .00428,
2862 + .45944, .14504, .14501, .00561, .00000,
2863 + .00000, .00251, .00401,
2864 + .42850, .13419, .12439, .00514, .00000,
2865 + .00000, .00235, .00363,
2866 + .40763, .12697, .11142, .00483, .00000,
2867 + .00000, .00220, .00339,
2868 + .38723, .11993, .09937, .00453, .00002,
2869 + .00000, .00209, .00316,
2870 + .37076, .11431, .09010, .00429, .00005,
2871 + .00000, .00199, .00299,
2872 + .35576, .10921, .08210, .00408, .00009,
2873 + .00000, .00190, .00283,
2874 + .34064, .10410, .07448, .00386, .00012,
2875 + .00000, .00181, .00267 /
2876 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
2877 + .32808, .09990, .06853, .00368, .00013,
2878 + .00000, .00173, .00255,
2879 + .31648, .09603, .06329, .00352, .00015,
2880 + .00000, .00166, .00243,
2881 + .30765, .09309, .05947, .00340, .00016,
2882 + .00000, .00161, .00234,
2883 + .28987, .08721, .05214, .00314, .00018,
2884 + .00001, .00150, .00215,
2885 + .27557, .08253, .04660, .00296, .00019,
2886 + .00003, .00142, .00199,
2887 + .26053, .07762, .04119, .00276, .00020,
2888 + .00006, .00133, .00185,
2889 + .24588, .07288, .03635, .00258, .00020,
2890 + .00007, .00123, .00172,
2891 + .23341, .06886, .03254, .00241, .00021,
2892 + .00009, .00116, .00161 /
2893 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
2894 + .22158, .06507, .02917, .00224, .00021,
2895 + .00010, .00110, .00150,
2896 + .21225, .06213, .02670, .00214, .00021,
2897 + .00010, .00105, .00139,
2898 + .20155, .05873, .02402, .00199, .00021,
2899 + .00011, .00098, .00130,
2900 + .19260, .05591, .02193, .00187, .00020,
2901 + .00011, .00093, .00123,
2902 + .18479, .05348, .02021, .00178, .00020,
2903 + .00011, .00088, .00116,
2904 + .17535, .05053, .01826, .00168, .00020,
2905 + .00012, .00082, .00108,
2906 + .16700, .04794, .01663, .00157, .00019,
2907 + .00012, .00078, .00102,
2908 + .15960, .04566, .01527, .00148, .00019,
2909 + .00012, .00074, .00097 /
2910 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
2911 + .15253, .04348, .01404, .00140, .00018,
2912 + .00012, .00070, .00092,
2913 + .14595, .04148, .01296, .00132, .00018,
2914 + .00012, .00067, .00086,
2915 + .14002, .03968, .01204, .00126, .00017,
2916 + .00011, .00064, .00081,
2917 + .13468, .03805, .01124, .00120, .00017,
2918 + .00011, .00061, .00076,
2919 + .12957, .03649, .01050, .00113, .00016,
2920 + .00011, .00057, .00073,
2921 + .12470, .03503, .00983, .00109, .00016,
2922 + .00011, .00055, .00069,
2923 + .12027, .03371, .00924, .00105, .00015,
2924 + .00011, .00053, .00066,
2925 + .11624, .03250, .00873, .00100, .00015,
2926 + .00011, .00050, .00063 /
2927 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
2928 + .11235, .03133, .00825, .00094, .00015,
2929 + .00010, .00048, .00061,
2930 + .10861, .03023, .00780, .00090, .00014,
2931 + .00010, .00046, .00058,
2932 + .10516, .02921, .00740, .00088, .00014,
2933 + .00010, .00045, .00056,
2934 + .10201, .02828, .00705, .00086, .00013,
2935 + .00010, .00043, .00054,
2936 + .09893, .02737, .00672, .00082, .00013,
2937 + .00010, .00041, .00051 /
2938 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
2939 + .43719, .13385, .13012, .00445, .00000,
2940 + .00000, .00192, .00288,
2941 + .41537, .12647, .11617, .00418, .00000,
2942 + .00000, .00181, .00269,
2943 + .38558, .11645, .09850, .00377, .00000,
2944 + .00000, .00168, .00243,
2945 + .36555, .10980, .08754, .00352, .00000,
2946 + .00000, .00158, .00229,
2947 + .34609, .10337, .07748, .00326, .00001,
2948 + .00000, .00149, .00212,
2949 + .33042, .09827, .06983, .00309, .00003,
2950 + .00000, .00142, .00199,
2951 + .31622, .09364, .06328, .00293, .00006,
2952 + .00000, .00135, .00188,
2953 + .30194, .08901, .05708, .00275, .00008,
2954 + .00000, .00128, .00177 /
2955 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
2956 + .29009, .08521, .05228, .00263, .00009,
2957 + .00000, .00123, .00168,
2958 + .27920, .08173, .04807, .00250, .00010,
2959 + .00000, .00118, .00160,
2960 + .27095, .07909, .04502, .00240, .00011,
2961 + .00000, .00114, .00155,
2962 + .25433, .07382, .03921, .00219, .00012,
2963 + .00001, .00107, .00142,
2964 + .24103, .06963, .03487, .00206, .00013,
2965 + .00002, .00100, .00132,
2966 + .22713, .06527, .03067, .00189, .00013,
2967 + .00004, .00093, .00123,
2968 + .21362, .06108, .02692, .00176, .00014,
2969 + .00005, .00087, .00114,
2970 + .20214, .05754, .02399, .00164, .00014,
2971 + .00006, .00082, .00106 /
2972 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
2973 + .19129, .05421, .02142, .00152, .00014,
2974 + .00006, .00077, .00099,
2975 + .18278, .05161, .01954, .00143, .00014,
2976 + .00007, .00072, .00093,
2977 + .17303, .04867, .01753, .00135, .00014,
2978 + .00007, .00068, .00085,
2979 + .16490, .04621, .01596, .00127, .00013,
2980 + .00007, .00065, .00080,
2981 + .15785, .04408, .01466, .00119, .00013,
2982 + .00008, .00061, .00077,
2983 + .14936, .04154, .01321, .00110, .00013,
2984 + .00008, .00057, .00071,
2985 + .14185, .03930, .01201, .00104, .00012,
2986 + .00008, .00054, .00067,
2987 + .13520, .03733, .01100, .00099, .00012,
2988 + .00008, .00051, .00064 /
2989 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
2990 + .12890, .03547, .01009, .00092, .00012,
2991 + .00008, .00049, .00060,
2992 + .12305, .03375, .00929, .00087, .00011,
2993 + .00008, .00046, .00056,
2994 + .11778, .03222, .00861, .00082, .00011,
2995 + .00008, .00043, .00053,
2996 + .11304, .03083, .00803, .00078, .00011,
2997 + .00007, .00041, .00050,
2998 + .10852, .02951, .00749, .00074, .00010,
2999 + .00007, .00039, .00048,
3000 + .10423, .02827, .00700, .00071, .00010,
3001 + .00007, .00037, .00045,
3002 + .10033, .02716, .00658, .00068, .00010,
3003 + .00007, .00036, .00042,
3004 + .09678, .02614, .00620, .00065, .00010,
3005 + .00007, .00034, .00040 /
3006 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
3007 + .09335, .02515, .00585, .00062, .00009,
3008 + .00007, .00033, .00038,
3009 + .09010, .02422, .00553, .00059, .00009,
3010 + .00007, .00031, .00037,
3011 + .08711, .02337, .00524, .00057, .00009,
3012 + .00007, .00030, .00035,
3013 + .08438, .02259, .00499, .00055, .00009,
3014 + .00006, .00029, .00034,
3015 + .08171, .02182, .00475, .00052, .00008,
3016 + .00006, .00028, .00033 /
3017 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
3018 + .39235, .11596, .10345, .00335, .00000,
3019 + .00000, .00129, .00185,
3020 + .37155, .10921, .09166, .00313, .00000,
3021 + .00000, .00121, .00173,
3022 + .34327, .10014, .07687, .00283, .00000,
3023 + .00000, .00111, .00155,
3024 + .32436, .09412, .06782, .00266, .00000,
3025 + .00000, .00104, .00144,
3026 + .30605, .08832, .05962, .00245, .00001,
3027 + .00000, .00098, .00134,
3028 + .29137, .08374, .05343, .00232, .00002,
3029 + .00000, .00094, .00123,
3030 + .27812, .07959, .04818, .00219, .00004,
3031 + .00000, .00089, .00116,
3032 + .26485, .07545, .04325, .00203, .00005,
3033 + .00000, .00082, .00111 /
3034 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
3035 + .25390, .07207, .03943, .00192, .00006,
3036 + .00000, .00079, .00106,
3037 + .24382, .06897, .03612, .00183, .00007,
3038 + .00000, .00075, .00099,
3039 + .23618, .06664, .03373, .00177, .00007,
3040 + .00000, .00073, .00094,
3041 + .22088, .06199, .02921, .00161, .00008,
3042 + .00000, .00067, .00087,
3043 + .20870, .05830, .02585, .00149, .00008,
3044 + .00001, .00063, .00081,
3045 + .19598, .05448, .02264, .00139, .00009,
3046 + .00002, .00058, .00075,
3047 + .18366, .05082, .01979, .00130, .00009,
3048 + .00003, .00054, .00068,
3049 + .17327, .04774, .01757, .00122, .00009,
3050 + .00004, .00050, .00063 /
3051 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
3052 + .16349, .04485, .01564, .00112, .00009,
3053 + .00004, .00047, .00059,
3054 + .15585, .04261, .01422, .00105, .00009,
3055 + .00005, .00045, .00055,
3056 + .14710, .04004, .01272, .00098, .00009,
3057 + .00005, .00041, .00051,
3058 + .13984, .03793, .01155, .00092, .00009,
3059 + .00005, .00039, .00049,
3060 + .13356, .03610, .01059, .00087, .00009,
3061 + .00005, .00038, .00046,
3062 + .12604, .03393, .00952, .00078, .00008,
3063 + .00005, .00034, .00043,
3064 + .11937, .03202, .00863, .00074, .00008,
3065 + .00005, .00032, .00040,
3066 + .11346, .03034, .00789, .00072, .00008,
3067 + .00005, .00031, .00038 /
3068 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
3069 + .10791, .02876, .00723, .00067, .00008,
3070 + .00005, .00029, .00035,
3071 + .10279, .02730, .00665, .00062, .00007,
3072 + .00005, .00027, .00033,
3073 + .09818, .02600, .00615, .00059, .00007,
3074 + .00005, .00025, .00032,
3075 + .09403, .02483, .00572, .00056, .00007,
3076 + .00005, .00024, .00030,
3077 + .09005, .02373, .00533, .00053, .00007,
3078 + .00005, .00022, .00028,
3079 + .08632, .02269, .00498, .00051, .00007,
3080 + .00005, .00021, .00026,
3081 + .08294, .02175, .00467, .00050, .00006,
3082 + .00005, .00020, .00024,
3083 + .07987, .02090, .00440, .00047, .00006,
3084 + .00004, .00019, .00023 /
3085 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
3086 + .07691, .02008, .00415, .00045, .00006,
3087 + .00004, .00019, .00022,
3088 + .07410, .01930, .00392, .00043, .00006,
3089 + .00004, .00018, .00021,
3090 + .07153, .01858, .00371, .00040, .00006,
3091 + .00004, .00017, .00020,
3092 + .06918, .01794, .00353, .00039, .00006,
3093 + .00004, .00016, .00020,
3094 + .06688, .01730, .00335, .00037, .00005,
3095 + .00004, .00016, .00019 /
3096 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
3097 + .34796, .09898, .08039, .00229, .00000,
3098 + .00000, .00094, .00124,
3099 + .32838, .09294, .07070, .00215, .00000,
3100 + .00000, .00087, .00114,
3101 + .30187, .08483, .05866, .00195, .00000,
3102 + .00000, .00080, .00099,
3103 + .28435, .07946, .05138, .00179, .00000,
3104 + .00000, .00074, .00093,
3105 + .26733, .07432, .04486, .00166, .00001,
3106 + .00000, .00069, .00088,
3107 + .25381, .07026, .03997, .00154, .00001,
3108 + .00000, .00065, .00082,
3109 + .24159, .06661, .03586, .00145, .00003,
3110 + .00000, .00061, .00076,
3111 + .22937, .06299, .03203, .00138, .00003,
3112 + .00000, .00058, .00070 /
3113 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
3114 + .21934, .06002, .02909, .00131, .00004,
3115 + .00000, .00055, .00066,
3116 + .21015, .05731, .02654, .00124, .00004,
3117 + .00000, .00053, .00063,
3118 + .20321, .05527, .02471, .00118, .00005,
3119 + .00000, .00051, .00062,
3120 + .18932, .05124, .02129, .00109, .00005,
3121 + .00000, .00046, .00055,
3122 + .17832, .04804, .01876, .00101, .00005,
3123 + .00001, .00042, .00052,
3124 + .16688, .04474, .01635, .00094, .00006,
3125 + .00002, .00040, .00047,
3126 + .15586, .04159, .01423, .00086, .00006,
3127 + .00002, .00037, .00042,
3128 + .14659, .03895, .01259, .00079, .00006,
3129 + .00002, .00034, .00040 /
3130 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
3131 + .13788, .03648, .01117, .00073, .00006,
3132 + .00003, .00031, .00038,
3133 + .13107, .03457, .01014, .00071, .00006,
3134 + .00003, .00029, .00035,
3135 + .12335, .03240, .00904, .00065, .00006,
3136 + .00003, .00027, .00032,
3137 + .11694, .03061, .00819, .00060, .00005,
3138 + .00003, .00025, .00030,
3139 + .11140, .02906, .00750, .00058, .00005,
3140 + .00003, .00024, .00028,
3141 + .10480, .02723, .00672, .00053, .00005,
3142 + .00003, .00022, .00026,
3143 + .09899, .02563, .00608, .00049, .00005,
3144 + .00003, .00021, .00024,
3145 + .09388, .02423, .00554, .00045, .00005,
3146 + .00003, .00019, .00023 /
3147 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
3148 + .08905, .02290, .00507, .00043, .00005,
3149 + .00003, .00018, .00021,
3150 + .08460, .02169, .00466, .00041, .00005,
3151 + .00003, .00017, .00020,
3152 + .08061, .02061, .00430, .00039, .00004,
3153 + .00003, .00016, .00019,
3154 + .07704, .01964, .00400, .00037, .00004,
3155 + .00003, .00015, .00018,
3156 + .07363, .01873, .00372, .00035, .00004,
3157 + .00003, .00015, .00017,
3158 + .07043, .01787, .00347, .00033, .00004,
3159 + .00003, .00014, .00016,
3160 + .06756, .01710, .00325, .00031, .00004,
3161 + .00003, .00013, .00015,
3162 + .06493, .01640, .00306, .00030, .00004,
3163 + .00003, .00012, .00014 /
3164 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
3165 + .06240, .01572, .00288, .00029, .00004,
3166 + .00003, .00012, .00013,
3167 + .06002, .01509, .00272, .00027, .00004,
3168 + .00003, .00011, .00013,
3169 + .05784, .01450, .00257, .00025, .00004,
3170 + .00003, .00010, .00013,
3171 + .05585, .01397, .00244, .00023, .00003,
3172 + .00003, .00010, .00012,
3173 + .05390, .01346, .00232, .00023, .00003,
3174 + .00003, .00010, .00012 /
3175 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
3176 + .30481, .08349, .06118, .00157, .00000,
3177 + .00000, .00066, .00078,
3178 + .28671, .07813, .05336, .00144, .00000,
3179 + .00000, .00062, .00073,
3180 + .26233, .07095, .04381, .00128, .00000,
3181 + .00000, .00055, .00065,
3182 + .24616, .06626, .03812, .00121, .00000,
3183 + .00000, .00052, .00058,
3184 + .23066, .06176, .03305, .00110, .00000,
3185 + .00000, .00047, .00055,
3186 + .21832, .05820, .02930, .00103, .00001,
3187 + .00000, .00044, .00053,
3188 + .20723, .05504, .02615, .00096, .00002,
3189 + .00000, .00042, .00050,
3190 + .19619, .05191, .02324, .00090, .00002,
3191 + .00000, .00038, .00045 /
3192 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
3193 + .18716, .04933, .02102, .00085, .00002,
3194 + .00000, .00037, .00043,
3195 + .17889, .04700, .01912, .00080, .00003,
3196 + .00000, .00035, .00040,
3197 + .17266, .04525, .01776, .00076, .00003,
3198 + .00000, .00034, .00037,
3199 + .16024, .04178, .01521, .00070, .00003,
3200 + .00000, .00032, .00035,
3201 + .15046, .03905, .01336, .00063, .00003,
3202 + .00001, .00029, .00032,
3203 + .14031, .03624, .01159, .00058, .00003,
3204 + .00001, .00026, .00030,
3205 + .13056, .03357, .01005, .00053, .00003,
3206 + .00001, .00024, .00027,
3207 + .12239, .03134, .00886, .00050, .00004,
3208 + .00002, .00022, .00025 /
3209 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
3210 + .11475, .02926, .00784, .00046, .00004,
3211 + .00002, .00021, .00023,
3212 + .10883, .02764, .00710, .00042, .00003,
3213 + .00002, .00019, .00022,
3214 + .10210, .02583, .00631, .00038, .00003,
3215 + .00002, .00018, .00021,
3216 + .09653, .02433, .00571, .00036, .00003,
3217 + .00002, .00017, .00019,
3218 + .09171, .02305, .00522, .00035, .00003,
3219 + .00002, .00016, .00018,
3220 + .08602, .02154, .00467, .00032, .00003,
3221 + .00002, .00015, .00016,
3222 + .08101, .02022, .00422, .00029, .00003,
3223 + .00002, .00014, .00015,
3224 + .07660, .01906, .00384, .00028, .00003,
3225 + .00002, .00013, .00014 /
3226 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
3227 + .07247, .01797, .00351, .00027, .00003,
3228 + .00002, .00012, .00013,
3229 + .06868, .01697, .00322, .00025, .00003,
3230 + .00002, .00011, .00012,
3231 + .06529, .01609, .00297, .00023, .00003,
3232 + .00002, .00010, .00012,
3233 + .06225, .01530, .00276, .00021, .00003,
3234 + .00002, .00010, .00011,
3235 + .05937, .01456, .00256, .00020, .00003,
3236 + .00002, .00009, .00010,
3237 + .05667, .01386, .00239, .00019, .00002,
3238 + .00002, .00008, .00010,
3239 + .05424, .01323, .00223, .00018, .00002,
3240 + .00002, .00008, .00010,
3241 + .05204, .01267, .00210, .00017, .00002,
3242 + .00002, .00008, .00009 /
3243 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
3244 + .04993, .01212, .00197, .00016, .00002,
3245 + .00002, .00007, .00009,
3246 + .04791, .01161, .00186, .00016, .00002,
3247 + .00002, .00007, .00008,
3248 + .04607, .01115, .00176, .00016, .00002,
3249 + .00002, .00007, .00007,
3250 + .04440, .01073, .00167, .00016, .00002,
3251 + .00002, .00006, .00007,
3252 + .04279, .01032, .00158, .00015, .00002,
3253 + .00002, .00006, .00007 /
3254 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
3255 + .26373, .06960, .04554, .00110, .00000,
3256 + .00000, .00040, .00049,
3257 + .24723, .06490, .03944, .00101, .00000,
3258 + .00000, .00038, .00045,
3259 + .22504, .05868, .03209, .00091, .00000,
3260 + .00000, .00033, .00038,
3261 + .21048, .05461, .02771, .00084, .00000,
3262 + .00000, .00031, .00035,
3263 + .19652, .05072, .02388, .00075, .00000,
3264 + .00000, .00027, .00033,
3265 + .18547, .04767, .02107, .00071, .00001,
3266 + .00000, .00026, .00030,
3267 + .17557, .04495, .01873, .00066, .00001,
3268 + .00000, .00025, .00028,
3269 + .16575, .04227, .01658, .00060, .00001,
3270 + .00000, .00023, .00026 /
3271 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
3272 + .15770, .04008, .01494, .00057, .00001,
3273 + .00000, .00022, .00025,
3274 + .15037, .03809, .01354, .00054, .00002,
3275 + .00000, .00021, .00023,
3276 + .14486, .03660, .01255, .00052, .00002,
3277 + .00000, .00020, .00022,
3278 + .13389, .03367, .01070, .00050, .00002,
3279 + .00000, .00018, .00019,
3280 + .12532, .03138, .00936, .00045, .00002,
3281 + .00000, .00017, .00018,
3282 + .11647, .02902, .00810, .00040, .00002,
3283 + .00001, .00016, .00017,
3284 + .10800, .02678, .00700, .00036, .00002,
3285 + .00001, .00014, .00016,
3286 + .10091, .02492, .00616, .00034, .00002,
3287 + .00001, .00012, .00014 /
3288 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
3289 + .09430, .02320, .00544, .00031, .00002,
3290 + .00001, .00012, .00012,
3291 + .08918, .02186, .00491, .00029, .00002,
3292 + .00001, .00011, .00012,
3293 + .08339, .02036, .00436, .00028, .00002,
3294 + .00001, .00010, .00011,
3295 + .07863, .01914, .00394, .00026, .00002,
3296 + .00001, .00009, .00010,
3297 + .07455, .01809, .00359, .00023, .00002,
3298 + .00001, .00008, .00010,
3299 + .06970, .01684, .00321, .00021, .00002,
3300 + .00001, .00007, .00009,
3301 + .06545, .01576, .00290, .00020, .00002,
3302 + .00001, .00007, .00008,
3303 + .06172, .01482, .00264, .00020, .00002,
3304 + .00001, .00007, .00007 /
3305 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
3306 + .05824, .01394, .00240, .00018, .00002,
3307 + .00001, .00006, .00006,
3308 + .05505, .01314, .00220, .00017, .00002,
3309 + .00001, .00006, .00006,
3310 + .05221, .01242, .00203, .00016, .00002,
3311 + .00001, .00006, .00006,
3312 + .04967, .01179, .00188, .00015, .00002,
3313 + .00001, .00005, .00006,
3314 + .04727, .01119, .00175, .00014, .00002,
3315 + .00001, .00005, .00006,
3316 + .04502, .01063, .00163, .00014, .00002,
3317 + .00001, .00005, .00005,
3318 + .04300, .01013, .00152, .00013, .00001,
3319 + .00001, .00005, .00005,
3320 + .04119, .00968, .00143, .00012, .00001,
3321 + .00001, .00005, .00004 /
3322 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
3323 + .03945, .00925, .00134, .00011, .00001,
3324 + .00001, .00004, .00004,
3325 + .03779, .00884, .00126, .00010, .00001,
3326 + .00001, .00004, .00004,
3327 + .03628, .00847, .00119, .00010, .00001,
3328 + .00001, .00004, .00004,
3329 + .03491, .00814, .00113, .00010, .00001,
3330 + .00001, .00003, .00004,
3331 + .03357, .00781, .00107, .00010, .00001,
3332 + .00001, .00003, .00003 /
3333 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
3334 + .22477, .05697, .03290, .00066, .00000,
3335 + .00000, .00029, .00031,
3336 + .20994, .05296, .02828, .00061, .00000,
3337 + .00000, .00026, .00030,
3338 + .19012, .04763, .02279, .00054, .00000,
3339 + .00000, .00024, .00025,
3340 + .17720, .04417, .01956, .00048, .00000,
3341 + .00000, .00022, .00023,
3342 + .16481, .04089, .01676, .00043, .00000,
3343 + .00000, .00019, .00020,
3344 + .15504, .03831, .01472, .00042, .00000,
3345 + .00000, .00018, .00020,
3346 + .14633, .03601, .01303, .00040, .00001,
3347 + .00000, .00017, .00019,
3348 + .13773, .03375, .01148, .00036, .00001,
3349 + .00000, .00016, .00017 /
3350 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
3351 + .13073, .03193, .01032, .00033, .00001,
3352 + .00000, .00015, .00016,
3353 + .12436, .03027, .00933, .00030, .00001,
3354 + .00000, .00013, .00015,
3355 + .11957, .02903, .00862, .00029, .00001,
3356 + .00000, .00012, .00015,
3357 + .11007, .02660, .00732, .00027, .00001,
3358 + .00000, .00011, .00013,
3359 + .10265, .02471, .00639, .00025, .00001,
3360 + .00000, .00011, .00012,
3361 + .09504, .02276, .00551, .00022, .00001,
3362 + .00000, .00010, .00011,
3363 + .08779, .02093, .00475, .00020, .00001,
3364 + .00001, .00009, .00010,
3365 + .08176, .01941, .00417, .00019, .00001,
3366 + .00001, .00008, .00009 /
3367 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
3368 + .07615, .01800, .00367, .00017, .00001,
3369 + .00001, .00007, .00009,
3370 + .07181, .01693, .00331, .00016, .00001,
3371 + .00001, .00007, .00007,
3372 + .06693, .01572, .00294, .00015, .00001,
3373 + .00001, .00007, .00007,
3374 + .06293, .01473, .00265, .00013, .00001,
3375 + .00001, .00006, .00006,
3376 + .05951, .01388, .00241, .00012, .00001,
3377 + .00001, .00006, .00006,
3378 + .05544, .01288, .00215, .00012, .00001,
3379 + .00001, .00005, .00005,
3380 + .05191, .01202, .00194, .00011, .00001,
3381 + .00001, .00005, .00005,
3382 + .04884, .01127, .00176, .00009, .00001,
3383 + .00001, .00004, .00005 /
3384 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
3385 + .04594, .01057, .00161, .00009, .00001,
3386 + .00001, .00004, .00004,
3387 + .04330, .00994, .00147, .00009, .00001,
3388 + .00001, .00004, .00004,
3389 + .04096, .00937, .00135, .00009, .00001,
3390 + .00001, .00004, .00004,
3391 + .03889, .00887, .00125, .00008, .00001,
3392 + .00001, .00004, .00003,
3393 + .03693, .00840, .00116, .00007, .00001,
3394 + .00001, .00003, .00003,
3395 + .03508, .00797, .00108, .00007, .00001,
3396 + .00001, .00003, .00003,
3397 + .03343, .00758, .00101, .00007, .00001,
3398 + .00001, .00003, .00003,
3399 + .03195, .00722, .00095, .00006, .00001,
3400 + .00001, .00003, .00003 /
3401 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
3402 + .03053, .00689, .00089, .00006, .00001,
3403 + .00001, .00003, .00003,
3404 + .02919, .00657, .00084, .00005, .00001,
3405 + .00001, .00003, .00003,
3406 + .02798, .00628, .00079, .00005, .00001,
3407 + .00001, .00003, .00003,
3408 + .02687, .00602, .00075, .00005, .00001,
3409 + .00001, .00002, .00002,
3410 + .02580, .00577, .00071, .00005, .00001,
3411 + .00001, .00002, .00002 /
3412 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
3413 + .15581, .03641, .01573, .00028, .00000,
3414 + .00000, .00009, .00009,
3415 + .14444, .03358, .01335, .00024, .00000,
3416 + .00000, .00008, .00010,
3417 + .12942, .02988, .01057, .00020, .00000,
3418 + .00000, .00008, .00008,
3419 + .11966, .02750, .00898, .00019, .00000,
3420 + .00000, .00006, .00007,
3421 + .11040, .02527, .00761, .00019, .00000,
3422 + .00000, .00006, .00006,
3423 + .10322, .02352, .00663, .00016, .00000,
3424 + .00000, .00005, .00007,
3425 + .09684, .02198, .00583, .00014, .00000,
3426 + .00000, .00005, .00007,
3427 + .09057, .02047, .00511, .00012, .00000,
3428 + .00000, .00005, .00006 /
3429 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
3430 + .08549, .01926, .00457, .00012, .00000,
3431 + .00000, .00005, .00005,
3432 + .08089, .01817, .00411, .00011, .00000,
3433 + .00000, .00005, .00005,
3434 + .07745, .01736, .00379, .00011, .00000,
3435 + .00000, .00004, .00005,
3436 + .07072, .01577, .00320, .00009, .00000,
3437 + .00000, .00004, .00005,
3438 + .06548, .01454, .00278, .00009, .00000,
3439 + .00000, .00003, .00004,
3440 + .06015, .01329, .00239, .00008, .00000,
3441 + .00000, .00003, .00003,
3442 + .05513, .01213, .00205, .00007, .00000,
3443 + .00000, .00003, .00003,
3444 + .05097, .01117, .00180, .00006, .00000,
3445 + .00000, .00003, .00003 /
3446 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
3447 + .04713, .01029, .00158, .00006, .00000,
3448 + .00000, .00003, .00002,
3449 + .04419, .00962, .00142, .00006, .00000,
3450 + .00000, .00003, .00002,
3451 + .04091, .00887, .00126, .00004, .00000,
3452 + .00000, .00002, .00002,
3453 + .03824, .00826, .00113, .00004, .00000,
3454 + .00000, .00002, .00002,
3455 + .03596, .00774, .00103, .00004, .00000,
3456 + .00000, .00002, .00002,
3457 + .03327, .00714, .00092, .00004, .00000,
3458 + .00000, .00002, .00002,
3459 + .03095, .00662, .00082, .00003, .00000,
3460 + .00000, .00002, .00001,
3461 + .02895, .00617, .00075, .00003, .00000,
3462 + .00000, .00002, .00001 /
3463 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
3464 + .02707, .00575, .00068, .00003, .00000,
3465 + .00000, .00001, .00001,
3466 + .02538, .00538, .00062, .00003, .00000,
3467 + .00000, .00001, .00001,
3468 + .02389, .00505, .00057, .00002, .00000,
3469 + .00000, .00001, .00001,
3470 + .02257, .00476, .00053, .00002, .00000,
3471 + .00000, .00001, .00001,
3472 + .02132, .00448, .00049, .00002, .00000,
3473 + .00000, .00001, .00001,
3474 + .02017, .00423, .00045, .00002, .00000,
3475 + .00000, .00001, .00001,
3476 + .01913, .00400, .00042, .00002, .00000,
3477 + .00000, .00001, .00001,
3478 + .01820, .00380, .00040, .00002, .00000,
3479 + .00000, .00001, .00001 /
3480 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/
3481 + .01731, .00361, .00037, .00002, .00000,
3482 + .00000, .00001, .00001,
3483 + .01649, .00343, .00035, .00002, .00000,
3484 + .00000, .00001, .00001,
3485 + .01574, .00327, .00033, .00001, .00000,
3486 + .00000, .00001, .00001,
3487 + .01507, .00312, .00031, .00001, .00000,
3488 + .00000, .00001, .00001,
3489 + .01442, .00298, .00029, .00001, .00000,
3490 + .00000, .00001, .00001 /
3491 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/
3492 + .09983, .02134, .00647, .00010, .00000,
3493 + .00000, .00003, .00002,
3494 + .09180, .01952, .00543, .00008, .00000,
3495 + .00000, .00001, .00003,
3496 + .08128, .01717, .00425, .00008, .00000,
3497 + .00000, .00002, .00002,
3498 + .07454, .01568, .00358, .00007, .00000,
3499 + .00000, .00002, .00001,
3500 + .06822, .01428, .00301, .00006, .00000,
3501 + .00000, .00001, .00001,
3502 + .06333, .01320, .00262, .00005, .00000,
3503 + .00000, .00002, .00002,
3504 + .05901, .01226, .00229, .00005, .00000,
3505 + .00000, .00001, .00002,
3506 + .05481, .01134, .00200, .00004, .00000,
3507 + .00000, .00001, .00001 /
3508 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
3509 + .05144, .01061, .00179, .00003, .00000,
3510 + .00000, .00001, .00001,
3511 + .04840, .00995, .00161, .00003, .00000,
3512 + .00000, .00001, .00001,
3513 + .04614, .00947, .00148, .00003, .00000,
3514 + .00000, .00001, .00001,
3515 + .04174, .00852, .00124, .00003, .00000,
3516 + .00000, .00001, .00001,
3517 + .03836, .00780, .00108, .00002, .00000,
3518 + .00000, .00001, .00001,
3519 + .03493, .00707, .00093, .00002, .00000,
3520 + .00000, .00001, .00001,
3521 + .03173, .00639, .00080, .00002, .00000,
3522 + .00000, .00001, .00001,
3523 + .02911, .00584, .00070, .00002, .00000,
3524 + .00000, .00001, .00001 /
3525 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
3526 + .02672, .00534, .00061, .00002, .00000,
3527 + .00000, .00001, .00001,
3528 + .02490, .00496, .00055, .00002, .00000,
3529 + .00000, .00000, .00000,
3530 + .02287, .00454, .00049, .00001, .00000,
3531 + .00000, .00001, .00001,
3532 + .02124, .00420, .00044, .00001, .00000,
3533 + .00000, .00001, .00001,
3534 + .01985, .00392, .00040, .00001, .00000,
3535 + .00000, .00000, .00000,
3536 + .01823, .00359, .00035, .00001, .00000,
3537 + .00000, .00000, .00000,
3538 + .01685, .00330, .00032, .00001, .00000,
3539 + .00000, .00000, .00000,
3540 + .01566, .00306, .00029, .00001, .00000,
3541 + .00000, .00000, .00000 /
3542 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
3543 + .01455, .00284, .00026, .00001, .00000,
3544 + .00000, .00000, .00000,
3545 + .01356, .00263, .00024, .00001, .00000,
3546 + .00000, .00000, .00000,
3547 + .01269, .00246, .00022, .00001, .00000,
3548 + .00000, .00000, .00000,
3549 + .01192, .00230, .00020, .00001, .00000,
3550 + .00000, .00000, .00000,
3551 + .01120, .00216, .00019, .00001, .00000,
3552 + .00000, .00000, .00000,
3553 + .01054, .00203, .00017, .00001, .00000,
3554 + .00000, .00000, .00000,
3555 + .00995, .00191, .00016, .00000, .00000,
3556 + .00000, .00000, .00000,
3557 + .00943, .00180, .00015, .00000, .00000,
3558 + .00000, .00000, .00000 /
3559 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/
3560 + .00893, .00171, .00014, .00000, .00000,
3561 + .00000, .00000, .00000,
3562 + .00846, .00161, .00013, .00001, .00000,
3563 + .00000, .00000, .00000,
3564 + .00804, .00153, .00012, .00001, .00000,
3565 + .00000, .00000, .00000,
3566 + .00766, .00146, .00012, .00001, .00000,
3567 + .00000, .00000, .00000,
3568 + .00730, .00139, .00011, .00000, .00000,
3569 + .00000, .00000, .00000 /
3570 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/
3571 + .05768, .01115, .00218, .00003, .00000,
3572 + .00000, .00000, .00000,
3573 + .05255, .01011, .00182, .00002, .00000,
3574 + .00000, .00000, .00000,
3575 + .04591, .00878, .00142, .00003, .00000,
3576 + .00000, .00000, .00000,
3577 + .04173, .00795, .00119, .00002, .00000,
3578 + .00000, .00000, .00000,
3579 + .03784, .00717, .00100, .00001, .00000,
3580 + .00000, .00000, .00001,
3581 + .03485, .00658, .00087, .00001, .00000,
3582 + .00000, .00000, .00000,
3583 + .03223, .00606, .00077, .00001, .00000,
3584 + .00000, .00000, .00000,
3585 + .02970, .00557, .00067, .00001, .00000,
3586 + .00000, .00000, .00000 /
3587 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
3588 + .02768, .00517, .00060, .00001, .00000,
3589 + .00000, .00000, .00000,
3590 + .02588, .00482, .00054, .00001, .00000,
3591 + .00000, .00000, .00000,
3592 + .02455, .00456, .00050, .00001, .00000,
3593 + .00000, .00000, .00000,
3594 + .02198, .00407, .00042, .00001, .00000,
3595 + .00000, .00000, .00000,
3596 + .02003, .00369, .00036, .00001, .00000,
3597 + .00000, .00000, .00000,
3598 + .01807, .00331, .00031, .00000, .00000,
3599 + .00000, .00000, .00000,
3600 + .01626, .00297, .00027, .00000, .00000,
3601 + .00000, .00000, .00000,
3602 + .01478, .00269, .00024, .00001, .00000,
3603 + .00000, .00000, .00000 /
3604 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/
3605 + .01345, .00244, .00021, .00001, .00000,
3606 + .00000, .00000, .00000,
3607 + .01244, .00225, .00019, .00000, .00000,
3608 + .00000, .00000, .00000,
3609 + .01134, .00204, .00017, .00001, .00000,
3610 + .00000, .00000, .00000,
3611 + .01045, .00187, .00015, .00000, .00000,
3612 + .00000, .00000, .00000,
3613 + .00970, .00174, .00013, .00000, .00000,
3614 + .00000, .00000, .00000,
3615 + .00884, .00158, .00012, .00000, .00000,
3616 + .00000, .00000, .00000,
3617 + .00810, .00144, .00011, .00000, .00000,
3618 + .00000, .00000, .00000,
3619 + .00747, .00132, .00010, .00000, .00000,
3620 + .00000, .00000, .00000 /
3621 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/
3622 + .00690, .00122, .00009, .00000, .00000,
3623 + .00000, .00000, .00000,
3624 + .00638, .00113, .00008, .00000, .00000,
3625 + .00000, .00000, .00000,
3626 + .00593, .00104, .00007, .00000, .00000,
3627 + .00000, .00000, .00000,
3628 + .00554, .00097, .00007, .00000, .00000,
3629 + .00000, .00000, .00000,
3630 + .00518, .00091, .00006, .00000, .00000,
3631 + .00000, .00000, .00000,
3632 + .00484, .00085, .00006, .00000, .00000,
3633 + .00000, .00000, .00000,
3634 + .00455, .00079, .00005, .00000, .00000,
3635 + .00000, .00000, .00000,
3636 + .00429, .00074, .00005, .00000, .00000,
3637 + .00000, .00000, .00000 /
3638 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=33,37)/
3639 + .00404, .00070, .00005, .00000, .00000,
3640 + .00000, .00000, .00000,
3641 + .00381, .00066, .00004, .00000, .00000,
3642 + .00000, .00000, .00000,
3643 + .00360, .00062, .00004, .00000, .00000,
3644 + .00000, .00000, .00000,
3645 + .00342, .00059, .00004, .00000, .00000,
3646 + .00000, .00000, .00000,
3647 + .00324, .00056, .00004, .00000, .00000,
3648 + .00000, .00000, .00000 /
3649 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/
3650 + .02866, .00492, .00056, .00000, .00000,
3651 + .00000, .00000, .00000,
3652 + .02584, .00442, .00047, .00000, .00000,
3653 + .00000, .00000, .00000,
3654 + .02225, .00378, .00037, .00000, .00000,
3655 + .00000, .00000, .00000,
3656 + .02000, .00338, .00031, .00000, .00000,
3657 + .00000, .00000, .00000,
3658 + .01793, .00302, .00027, .00000, .00000,
3659 + .00000, .00000, .00000,
3660 + .01637, .00275, .00023, .00000, .00000,
3661 + .00000, .00000, .00000,
3662 + .01501, .00251, .00021, .00000, .00000,
3663 + .00000, .00000, .00000,
3664 + .01370, .00228, .00018, .00000, .00000,
3665 + .00000, .00000, .00000 /
3666 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=9,16)/
3667 + .01268, .00211, .00016, .00000, .00000,
3668 + .00000, .00000, .00000,
3669 + .01176, .00195, .00015, .00000, .00000,
3670 + .00000, .00000, .00000,
3671 + .01110, .00183, .00014, .00000, .00000,
3672 + .00000, .00000, .00000,
3673 + .00981, .00162, .00012, .00000, .00000,
3674 + .00000, .00000, .00000,
3675 + .00885, .00145, .00010, .00000, .00000,
3676 + .00000, .00000, .00000,
3677 + .00790, .00129, .00009, .00000, .00000,
3678 + .00000, .00000, .00000,
3679 + .00703, .00114, .00008, .00000, .00000,
3680 + .00000, .00000, .00000,
3681 + .00632, .00102, .00007, .00000, .00000,
3682 + .00000, .00000, .00000 /
3683 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=17,24)/
3684 + .00569, .00092, .00006, .00000, .00000,
3685 + .00000, .00000, .00000,
3686 + .00522, .00084, .00005, .00000, .00000,
3687 + .00000, .00000, .00000,
3688 + .00471, .00076, .00005, .00000, .00000,
3689 + .00000, .00000, .00000,
3690 + .00431, .00069, .00004, .00000, .00000,
3691 + .00000, .00000, .00000,
3692 + .00397, .00063, .00004, .00000, .00000,
3693 + .00000, .00000, .00000,
3694 + .00358, .00057, .00003, .00000, .00000,
3695 + .00000, .00000, .00000,
3696 + .00325, .00052, .00003, .00000, .00000,
3697 + .00000, .00000, .00000,
3698 + .00298, .00047, .00003, .00000, .00000,
3699 + .00000, .00000, .00000 /
3700 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/
3701 + .00272, .00043, .00002, .00000, .00000,
3702 + .00000, .00000, .00000,
3703 + .00250, .00039, .00002, .00000, .00000,
3704 + .00000, .00000, .00000,
3705 + .00231, .00036, .00002, .00000, .00000,
3706 + .00000, .00000, .00000,
3707 + .00214, .00033, .00002, .00000, .00000,
3708 + .00000, .00000, .00000,
3709 + .00198, .00031, .00002, .00000, .00000,
3710 + .00000, .00000, .00000,
3711 + .00184, .00029, .00002, .00000, .00000,
3712 + .00000, .00000, .00000,
3713 + .00172, .00027, .00001, .00000, .00000,
3714 + .00000, .00000, .00000,
3715 + .00161, .00025, .00001, .00000, .00000,
3716 + .00000, .00000, .00000 /
3717 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/
3718 + .00151, .00023, .00001, .00000, .00000,
3719 + .00000, .00000, .00000,
3720 + .00141, .00022, .00001, .00000, .00000,
3721 + .00000, .00000, .00000,
3722 + .00133, .00021, .00001, .00000, .00000,
3723 + .00000, .00000, .00000,
3724 + .00126, .00019, .00001, .00000, .00000,
3725 + .00000, .00000, .00000,
3726 + .00118, .00018, .00001, .00000, .00000,
3727 + .00000, .00000, .00000 /
3728 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/
3729 + .00298, .00036, .00001, .00000, .00000,
3730 + .00000, .00000, .00000,
3731 + .00260, .00032, .00001, .00000, .00000,
3732 + .00000, .00000, .00000,
3733 + .00214, .00026, .00001, .00000, .00000,
3734 + .00000, .00000, .00000,
3735 + .00187, .00023, .00001, .00000, .00000,
3736 + .00000, .00000, .00000,
3737 + .00162, .00020, .00001, .00000, .00000,
3738 + .00000, .00000, .00000,
3739 + .00144, .00017, .00001, .00000, .00000,
3740 + .00000, .00000, .00000,
3741 + .00129, .00015, .00001, .00000, .00000,
3742 + .00000, .00000, .00000,
3743 + .00115, .00014, .00001, .00000, .00000,
3744 + .00000, .00000, .00000 /
3745 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/
3746 + .00104, .00012, .00001, .00000, .00000,
3747 + .00000, .00000, .00000,
3748 + .00094, .00011, .00001, .00000, .00000,
3749 + .00000, .00000, .00000,
3750 + .00087, .00010, .00000, .00000, .00000,
3751 + .00000, .00000, .00000,
3752 + .00075, .00009, .00000, .00000, .00000,
3753 + .00000, .00000, .00000,
3754 + .00065, .00008, .00000, .00000, .00000,
3755 + .00000, .00000, .00000,
3756 + .00056, .00007, .00000, .00000, .00000,
3757 + .00000, .00000, .00000,
3758 + .00049, .00006, .00000, .00000, .00000,
3759 + .00000, .00000, .00000,
3760 + .00042, .00005, .00000, .00000, .00000,
3761 + .00000, .00000, .00000 /
3762 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/
3763 + .00037, .00004, .00000, .00000, .00000,
3764 + .00000, .00000, .00000,
3765 + .00033, .00004, .00000, .00000, .00000,
3766 + .00000, .00000, .00000,
3767 + .00029, .00003, .00000, .00000, .00000,
3768 + .00000, .00000, .00000,
3769 + .00026, .00003, .00000, .00000, .00000,
3770 + .00000, .00000, .00000,
3771 + .00023, .00003, .00000, .00000, .00000,
3772 + .00000, .00000, .00000,
3773 + .00020, .00002, .00000, .00000, .00000,
3774 + .00000, .00000, .00000,
3775 + .00018, .00002, .00000, .00000, .00000,
3776 + .00000, .00000, .00000,
3777 + .00016, .00002, .00000, .00000, .00000,
3778 + .00000, .00000, .00000 /
3779 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
3780 + .00014, .00002, .00000, .00000, .00000,
3781 + .00000, .00000, .00000,
3782 + .00013, .00002, .00000, .00000, .00000,
3783 + .00000, .00000, .00000,
3784 + .00012, .00001, .00000, .00000, .00000,
3785 + .00000, .00000, .00000,
3786 + .00011, .00001, .00000, .00000, .00000,
3787 + .00000, .00000, .00000,
3788 + .00010, .00001, .00000, .00000, .00000,
3789 + .00000, .00000, .00000,
3790 + .00009, .00001, .00000, .00000, .00000,
3791 + .00000, .00000, .00000,
3792 + .00008, .00001, .00000, .00000, .00000,
3793 + .00000, .00000, .00000,
3794 + .00007, .00001, .00000, .00000, .00000,
3795 + .00000, .00000, .00000 /
3796 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
3797 + .00007, .00001, .00000, .00000, .00000,
3798 + .00000, .00000, .00000,
3799 + .00006, .00001, .00000, .00000, .00000,
3800 + .00000, .00000, .00000,
3801 + .00006, .00001, .00000, .00000, .00000,
3802 + .00000, .00000, .00000,
3803 + .00005, .00001, .00000, .00000, .00000,
3804 + .00000, .00000, .00000,
3805 + .00005, .00001, .00000, .00000, .00000,
3806 + .00000, .00000, .00000 /
3807 data xx/1d-5,2d-5,4d-5,6d-5,8d-5,
3808 . 1d-4,2d-4,4d-4,6d-4,8d-4,
3809 . 1d-3,2d-3,4d-3,6d-3,8d-3,
3810 . 1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2,
3811 . .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0,
3812 . .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0,
3813 . .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0,
3814 . .8d0,.9d0,1d0/
3815 data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1,
3816 . 1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2,
3817 . 1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4,
3818 . 1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6,
3819 . 1.8d6,3.2d6,5.6d6,1d7/
3820 data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/
3821 data n0/3,4,5,9,9,9,9,9/
3822 DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
3823 data init/0/
3824 save
3825 xsave=x
3826 q2save=qsq
3827 if(init.ne.0) goto 10
3828C open(unit=1,file='cor10.dat',status='old')
3829 do 20 n=1,nx-1
3830 do 20 m=1,nq
3831C read(1,50)f(1,n,m),f(2,n,m),f(3,n,m),f(4,n,m),
3832C . f(5,n,m),f(7,n,m),f(6,n,m),f(8,n,m)
3833c notation: 1=uval 2=val 3=glue 4=usea 5=chm 6=str 7=btm 8=dsea
3834 do 25 i=1,np
3835 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i)
3836 20 continue
3837 do 31 j=1,ntenth-1
3838 xx(j)= log10(xx(j)/xx(ntenth))+xx(ntenth)
3839 do 31 i=1,8
3840 if(i.eq.5.or.i.eq.7) goto 31
3841 do 30 k=1,nq
3842 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k)
3843 31 continue
3844 50 format(8f10.5)
3845 do 40 i=1,np
3846 do 40 m=1,nq
3847 40 f(i,nx,m)=ZEROD
3848 init=1
3849 10 continue
3850 if(x.lt.xmin) x=xmin
3851 if(x.gt.xmax) x=xmax
3852 if(qsq.lt.qsqmin) qsq=qsqmin
3853 if(qsq.gt.qsqmax) qsq=qsqmax
3854 xxx=x
3855 if(x.lt.xx(ntenth)) xxx= log10(x/xx(ntenth))+xx(ntenth)
3856 n=0
3857 70 n=n+1
3858 if(xxx.gt.xx(n+1)) goto 70
3859 a=(xxx-xx(n))/(xx(n+1)-xx(n))
3860 m=0
3861 80 m=m+1
3862 if(qsq.gt.qq(m+1)) goto 80
3863 b=(qsq-qq(m))/(qq(m+1)-qq(m))
3864 do 60 i=1,np
3865 g(i)=(ONED-a)*(ONED-b)*f(i,n,m) + (ONED-a)*b*f(i,n,m+1)
3866 . + a*(ONED-b)*f(i,n+1,m) + a*b*f(i,n+1,m+1)
3867 if(n.ge.ntenth) goto 65
3868 if(i.eq.5.or.i.eq.7) goto 65
3869 fac=(ONED-b)*f(i,ntenth,m)+b*f(i,ntenth,m+1)
3870 g(i)=fac*10d0**(g(i)-fac)
3871 65 continue
3872 g(i)=g(i)*(ONED-x)**n0(i)
3873 60 continue
3874 upv=g(1)
3875 dnv=g(2)
3876 usea=g(4)
3877 dsea=g(8)
3878 str=g(6)
3879 chm=g(5)
3880 glu=g(3)
3881 bot=g(7)
3882 x=xsave
3883 qsq=q2save
3884 return
3885 end