]> git.uio.no Git - u/mrichter/AliRoot.git/blame - PDF/spdf/sfmrs_98lo3.F
git://git.uio.no / u / mrichter / AliRoot.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Updates on golden D hadronic decay channel by
[u/mrichter/AliRoot.git] / PDF / spdf / sfmrs_98lo3.F
CommitLineData
21886bb6 1#include "pdf/pilot.h"
2 subroutine sfmrs_98lo3(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 + .01533, .00682, 3.82482, 1.04177, .00000,
17 + .00000, .54126, 1.06235,
18 + .01551, .00686, 6.49464, 1.04966, .00003,
19 + .00000, .55369, 1.07017,
20 + .01578, .00691, 11.52070, 1.07950, .03363,
21 + .00000, .59018, 1.09989,
22 + .01598, .00696, 16.05415, 1.11744, .08765,
23 + .00000, .63290, 1.13773,
24 + .01619, .00701, 21.47815, 1.17970, .15513,
25 + .00000, .70017, 1.19989,
26 + .01638, .00705, 27.07859, 1.24525, .23167,
27 + .00000, .76998, 1.26535,
28 + .01656, .00709, 32.97137, 1.32575, .31608,
29 + .00000, .85453, 1.34575,
30 + .01674, .00714, 40.02710, 1.42741, .42461,
31 + .00000, .96044, 1.44731 /
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 + .01691, .00718, 46.86293, 1.53028, .53533,
34 + .00000, 1.06697, 1.55009,
35 + .01707, .00723, 53.94938, 1.64555, .65484,
36 + .00000, 1.18573, 1.66525,
37 + .01719, .00726, 60.02959, 1.74700, .76117,
38 + .00000, 1.28993, 1.76663,
39 + .01747, .00734, 74.15377, 1.99686, 1.02171,
40 + .00043, 1.54556, 2.01631,
41 + .01770, .00740, 87.71672, 2.24975, 1.28804,
42 + .22598, 1.80335, 2.26906,
43 + .01796, .00748, 104.31261, 2.57683, 1.63276,
44 + .65558, 2.13580, 2.59595,
45 + .01824, .00757, 123.11718, 2.97196, 2.03917,
46 + 1.05843, 2.53643, 2.99089,
47 + .01849, .00765, 141.78433, 3.37845, 2.45925,
48 + 1.49436, 2.94781, 3.39720 /
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 + .01874, .00773, 162.29823, 3.83886, 2.93823,
51 + 1.99962, 3.41305, 3.85743,
52 + .01896, .00780, 180.41515, 4.26082, 3.37412,
53 + 2.44947, 3.83896, 4.27923,
54 + .01921, .00789, 203.72588, 4.82128, 3.95161,
55 + 3.04486, 4.40414, 4.83950,
56 + .01944, .00797, 225.90144, 5.36721, 4.51776,
57 + 3.63514, 4.95415, 5.38526,
58 + .01965, .00805, 246.94786, 5.90401, 5.06758,
59 + 4.19622, 5.49465, 5.92191,
60 + .01992, .00814, 275.34183, 6.64433, 5.82943,
61 + 4.98095, 6.23958, 6.66202,
62 + .02018, .00824, 303.69211, 7.40309, 6.61103,
63 + 5.78717, 7.00258, 7.42059,
64 + .02042, .00833, 331.06958, 8.15927, 7.38358,
65 + 6.57487, 7.76268, 8.17659 /
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 + .02066, .00842, 360.08072, 8.97523, 8.22142,
68 + 7.43594, 8.58247, 8.99236,
69 + .02089, .00852, 389.31223, 9.81923, 9.08354,
70 + 8.31573, 9.43017, 9.83618,
71 + .02112, .00861, 418.20016, 10.66907, 9.95295,
72 + 9.20540, 10.28346, 10.68585,
73 + .02133, .00869, 446.22760, 11.51068, 10.81192,
74 + 10.08181, 11.12827, 11.52730,
75 + .02155, .00878, 475.36163, 12.40063, 11.72065,
76 + 11.00997, 12.02139, 12.41709,
77 + .02176, .00887, 504.71277, 13.31439, 12.65171,
78 + 11.95843, 12.93823, 13.33069,
79 + .02196, .00895, 533.58722, 14.22675, 13.58241,
80 + 12.90830, 13.85347, 14.24291,
81 + .02216, .00904, 561.23547, 15.11630, 14.48689,
82 + 13.82771, 14.74572, 15.13231 /
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 + .02235, .00912, 590.35858, 16.06343, 15.45300,
85 + 14.81407, 15.69553, 16.07930,
86 + .02255, .00920, 618.93628, 17.01118, 16.41469,
87 + 15.78969, 16.64590, 17.02691,
88 + .02273, .00929, 647.27740, 17.96089, 17.38068,
89 + 16.77283, 17.59807, 17.97648,
90 + .02291, .00936, 674.55219, 18.88732, 18.32208,
91 + 17.72995, 18.52681, 18.90278,
92 + .02309, .00944, 702.42944, 19.84722, 19.29596,
93 + 18.71830, 19.48903, 19.86256 /
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 + .01892, .00830, 3.76676, .87670, .00000,
96 + .00000, .45335, .88849,
97 + .01914, .00837, 6.11509, .88699, .00003,
98 + .00000, .46721, .89873,
99 + .01949, .00846, 10.39534, .91683, .03034,
100 + .00000, .50231, .92850,
101 + .01974, .00853, 14.15784, .95150, .07838,
102 + .00000, .54075, .96310,
103 + .02000, .00861, 18.57940, 1.00553, .13693,
104 + .00000, .59873, 1.01707,
105 + .02024, .00869, 23.07161, 1.06153, .20218,
106 + .00000, .65808, 1.07300,
107 + .02046, .00875, 27.73746, 1.12894, .27309,
108 + .00000, .72867, 1.14034,
109 + .02070, .00883, 33.25460, 1.21303, .36315,
110 + .00000, .81612, 1.22437 /
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 + .02091, .00890, 38.54031, 1.29731, .45397,
113 + .00000, .90327, 1.30859,
114 + .02111, .00896, 43.96573, 1.39075, .55102,
115 + .00000, .99945, 1.40196,
116 + .02127, .00902, 48.58296, 1.47244, .63667,
117 + .00000, 1.08330, 1.48360,
118 + .02161, .00913, 59.18499, 1.67163, .84426,
119 + .00037, 1.28703, 1.68269,
120 + .02191, .00924, 69.22492, 1.87102, 1.05378,
121 + .17642, 1.49026, 1.88198,
122 + .02225, .00936, 81.34620, 2.12611, 1.32175,
123 + .50967, 1.74957, 2.13696,
124 + .02260, .00949, 94.90487, 2.43061, 1.63374,
125 + .81709, 2.05838, 2.44133,
126 + .02292, .00961, 108.20579, 2.74059, 1.95269,
127 + 1.14637, 2.37219, 2.75121 /
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 + .02325, .00973, 122.66561, 3.08833, 2.31274,
130 + 1.52435, 2.72373, 3.09884,
131 + .02352, .00983, 135.31071, 3.40420, 2.63743,
132 + 1.85766, 3.04270, 3.41461,
133 + .02385, .00996, 151.42639, 3.82014, 3.06382,
134 + 2.29498, 3.46232, 3.83043,
135 + .02415, .01008, 166.61813, 4.22190, 3.47836,
136 + 2.72517, 3.86729, 4.23209,
137 + .02442, .01019, 180.90945, 4.61383, 3.87772,
138 + 3.13052, 4.26211, 4.62393,
139 + .02476, .01033, 200.02777, 5.15014, 4.42686,
140 + 3.69343, 4.80202, 5.16011,
141 + .02509, .01046, 218.94470, 5.69524, 4.98563,
142 + 4.26719, 5.35044, 5.70509,
143 + .02540, .01059, 237.04790, 6.23413, 5.53345,
144 + 4.82301, 5.89239, 6.24387 /
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 + .02571, .01073, 256.08987, 6.81157, 6.12363,
147 + 5.42694, 6.47284, 6.82120,
148 + .02601, .01086, 275.11990, 7.40455, 6.72652,
149 + 6.03939, 7.06872, 7.41408,
150 + .02630, .01098, 293.79529, 7.99777, 7.33072,
151 + 6.65507, 7.66463, 8.00720,
152 + .02657, .01110, 311.78915, 8.58163, 7.92401,
153 + 7.25786, 8.25099, 8.59096,
154 + .02685, .01123, 330.37619, 9.19546, 8.54818,
155 + 7.89282, 8.86730, 9.20469,
156 + .02712, .01135, 348.97989, 9.82209, 9.18403,
157 + 8.53794, 9.49634, 9.83123,
158 + .02738, .01147, 367.17776, 10.44448, 9.81645,
159 + 9.18096, 10.12098, 10.45353,
160 + .02763, .01158, 384.49509, 11.04811, 10.42777,
161 + 9.79994, 10.72672, 11.05708 /
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 + .02789, .01170, 402.65543, 11.68797, 11.07811,
164 + 10.46162, 11.36869, 11.69686,
165 + .02814, .01181, 420.35617, 12.32485, 11.72188,
166 + 11.11218, 12.00761, 12.33365,
167 + .02838, .01192, 437.83783, 12.96041, 12.36607,
168 + 11.76554, 12.64510, 12.96914,
169 + .02860, .01203, 454.57648, 13.57769, 12.99116,
170 + 12.39886, 13.26419, 13.58634,
171 + .02884, .01214, 471.59869, 14.21454, 13.63504,
172 + 13.05001, 13.90285, 14.22311 /
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 + .02335, .01012, 3.70879, .73710, .00000,
175 + .00000, .37983, .74284,
176 + .02363, .01021, 5.75677, .74881, .00003,
177 + .00000, .39435, .75452,
178 + .02406, .01037, 9.37810, .77793, .02736,
179 + .00000, .42760, .78358,
180 + .02438, .01048, 12.48273, .80943, .07006,
181 + .00000, .46207, .81503,
182 + .02471, .01060, 16.06774, .85627, .12081,
183 + .00000, .51201, .86183,
184 + .02500, .01071, 19.65195, .90408, .17637,
185 + .00000, .56246, .90960,
186 + .02529, .01081, 23.32715, .96048, .23585,
187 + .00000, .62135, .96595,
188 + .02559, .01093, 27.61873, 1.02996, .31045,
189 + .00000, .69346, 1.03539 /
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 + .02585, .01103, 31.68451, 1.09889, .38481,
192 + .00000, .76465, 1.10427,
193 + .02611, .01113, 35.81625, 1.17446, .46345,
194 + .00000, .84237, 1.17980,
195 + .02631, .01121, 39.30379, 1.24007, .53229,
196 + .00000, .90967, 1.24538,
197 + .02675, .01138, 47.21823, 1.39840, .69730,
198 + .00033, 1.07155, 1.40364,
199 + .02713, .01154, 54.60760, 1.55505, .86172,
200 + .13764, 1.23122, 1.56024,
201 + .02756, .01171, 63.40700, 1.75323, 1.06947,
202 + .39601, 1.43269, 1.75835,
203 + .02801, .01190, 73.12212, 1.98686, 1.30828,
204 + .63041, 1.66969, 1.99191,
205 + .02842, .01207, 82.53810, 2.22217, 1.54970,
206 + .87888, 1.90800, 2.22715 /
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 + .02884, .01225, 92.66283, 2.48356, 1.81948,
209 + 1.16133, 2.17235, 2.48848,
210 + .02919, .01240, 101.42827, 2.71884, 2.06051,
211 + 1.40796, 2.41005, 2.72371,
212 + .02961, .01259, 112.49094, 3.02592, 2.37423,
213 + 1.72869, 2.72001, 3.03072,
214 + .02999, .01275, 122.82294, 3.32004, 2.67667,
215 + 2.04168, 3.01663, 3.32479,
216 + .03034, .01291, 132.45436, 3.60464, 2.96563,
217 + 2.33396, 3.30348, 3.60933,
218 + .03078, .01311, 145.22800, 3.99101, 3.35989,
219 + 2.73693, 3.69266, 3.99564,
220 + .03120, .01330, 157.75087, 4.38041, 3.75774,
221 + 3.14434, 4.08465, 4.38497,
222 + .03159, .01348, 169.62244, 4.76223, 4.14457,
223 + 3.53556, 4.46885, 4.76673 /
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 + .03199, .01367, 182.01605, 5.16849, 4.55850,
226 + 3.95804, 4.87745, 5.17293,
227 + .03238, .01385, 194.29724, 5.58261, 4.97822,
228 + 4.38319, 5.29383, 5.58700,
229 + .03275, .01402, 206.26282, 5.99420, 5.39617,
230 + 4.80799, 5.70752, 5.99853,
231 + .03310, .01419, 217.70959, 6.39674, 5.80403,
232 + 5.22128, 6.11201, 6.40103,
233 + .03346, .01436, 229.45668, 6.81749, 6.23068,
234 + 5.65425, 6.53469, 6.82172,
235 + .03381, .01453, 241.13463, 7.24449, 6.66277,
236 + 6.09153, 6.96356, 7.24867,
237 + .03415, .01469, 252.49120, 7.66635, 7.09033,
238 + 6.52528, 7.38718, 7.67049,
239 + .03446, .01485, 263.22784, 8.07329, 7.50137,
240 + 6.94044, 7.79575, 8.07739 /
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 + .03479, .01500, 274.43741, 8.50276, 7.93688,
243 + 7.38265, 8.22686, 8.50681,
244 + .03511, .01516, 285.28430, 8.92785, 8.36547,
245 + 7.81469, 8.65354, 8.93186,
246 + .03541, .01531, 295.95221, 9.35032, 8.79273,
247 + 8.24712, 9.07751, 9.35429,
248 + .03571, .01546, 306.11252, 9.75881, 9.20546,
249 + 8.66443, 9.48741, 9.76274,
250 + .03600, .01561, 316.39001, 10.17840, 9.62874,
251 + 9.09154, 9.90841, 10.18229 /
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 + .02641, .01136, 3.67464, .66565, .00000,
254 + .00000, .34256, .66891,
255 + .02673, .01149, 5.55619, .67785, .00002,
256 + .00000, .35720, .68107,
257 + .02722, .01168, 8.82843, .70628, .02574,
258 + .00000, .38922, .70946,
259 + .02758, .01182, 11.59412, .73598, .06559,
260 + .00000, .42150, .73912,
261 + .02797, .01198, 14.75583, .77904, .11224,
262 + .00000, .46725, .78215,
263 + .02830, .01211, 17.88737, .82261, .16277,
264 + .00000, .51311, .82569,
265 + .02863, .01224, 21.07447, .87339, .21639,
266 + .00000, .56606, .87643,
267 + .02897, .01239, 24.76887, .93548, .28314,
268 + .00000, .63044, .93849 /
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 + .02928, .01251, 28.24594, .99670, .34922,
271 + .00000, .69361, .99968,
272 + .02957, .01264, 31.75870, 1.06336, .41868,
273 + .00000, .76214, 1.06631,
274 + .02981, .01274, 34.70948, 1.12100, .47918,
275 + .00000, .82124, 1.12392,
276 + .03031, .01296, 41.35928, 1.25920, .62326,
277 + .00030, .96252, 1.26207,
278 + .03075, .01315, 47.51574, 1.39498, .76573,
279 + .11899, 1.10090, 1.39781,
280 + .03124, .01336, 54.78694, 1.56558, .94447,
281 + .34150, 1.27437, 1.56837,
282 + .03176, .01360, 62.75267, 1.76520, 1.14837,
283 + .54139, 1.47691, 1.76794,
284 + .03224, .01381, 70.41783, 1.96497, 1.35314,
285 + .75199, 1.67926, 1.96766 /
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 + .03272, .01403, 78.60638, 2.18559, 1.58060,
288 + .98999, 1.90245, 2.18824,
289 + .03312, .01421, 85.65311, 2.38309, 1.78269,
290 + 1.19660, 2.10203, 2.38570,
291 + .03361, .01444, 94.49472, 2.63950, 2.04434,
292 + 1.46386, 2.36094, 2.64207,
293 + .03405, .01465, 102.70686, 2.88387, 2.29532,
294 + 1.72344, 2.60746, 2.88640,
295 + .03445, .01484, 110.32007, 3.11918, 2.53394,
296 + 1.96455, 2.84472, 3.12167,
297 + .03496, .01508, 120.36529, 3.43715, 2.85801,
298 + 2.29553, 3.16511, 3.43960,
299 + .03545, .01531, 130.15887, 3.75599, 3.18342,
300 + 2.62854, 3.48620, 3.75840,
301 + .03590, .01553, 139.39001, 4.06712, 3.49825,
302 + 2.94664, 3.79938, 4.06949 /
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 + .03636, .01575, 148.98409, 4.39678, 3.83379,
305 + 3.28890, 4.13106, 4.39912,
306 + .03681, .01598, 158.44194, 4.73135, 4.17252,
307 + 3.63173, 4.46758, 4.73365,
308 + .03724, .01619, 167.61710, 5.06259, 4.50855,
309 + 3.97304, 4.80063, 5.06486,
310 + .03765, .01639, 176.35620, 5.38533, 4.83524,
311 + 4.30385, 5.12505, 5.38757,
312 + .03806, .01659, 185.28952, 5.72150, 5.17582,
313 + 4.64927, 5.46289, 5.72371,
314 + .03846, .01680, 194.13322, 6.06148, 5.51954,
315 + 4.99689, 5.80448, 6.06366,
316 + .03885, .01699, 202.70367, 6.39631, 5.85864,
317 + 5.34070, 6.14083, 6.39846,
318 + .03922, .01718, 210.77374, 6.71825, 6.18355,
319 + 5.66864, 6.46418, 6.72038 /
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 + .03959, .01736, 219.17712, 7.05713, 6.52697,
322 + 6.01722, 6.80448, 7.05924,
323 + .03996, .01755, 227.27155, 7.39144, 6.86376,
324 + 6.35647, 7.14016, 7.39353,
325 + .04032, .01773, 235.21315, 7.72289, 7.19875,
326 + 6.69535, 7.47290, 7.72495,
327 + .04065, .01791, 242.75183, 8.04251, 7.52148,
328 + 7.02150, 7.79373, 8.04454,
329 + .04100, .01808, 250.35229, 8.36994, 7.85158,
330 + 7.35441, 8.12239, 8.37196 /
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 + .02882, .01235, 3.65016, .61905, .00000,
333 + .00000, .31841, .62097,
334 + .02918, .01249, 5.41761, .63145, .00002,
335 + .00000, .33303, .63334,
336 + .02971, .01272, 8.45714, .65931, .02465,
337 + .00000, .36414, .66116,
338 + .03011, .01288, 11.00086, .68776, .06258,
339 + .00000, .39493, .68958,
340 + .03053, .01307, 13.88844, .72832, .10650,
341 + .00000, .43792, .73010,
342 + .03090, .01322, 16.72957, .76909, .15372,
343 + .00000, .48076, .77085,
344 + .03126, .01338, 19.60587, .81621, .20351,
345 + .00000, .52985, .81794,
346 + .03164, .01355, 22.92260, .87352, .26516,
347 + .00000, .58922, .87522 /
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 + .03198, .01369, 26.02967, .92977, .32590,
350 + .00000, .64723, .93145,
351 + .03230, .01384, 29.15546, .99071, .38945,
352 + .00000, .70986, .99237,
353 + .03256, .01396, 31.77217, 1.04324, .44463,
354 + .00000, .76372, 1.04488,
355 + .03312, .01421, 37.63966, 1.16862, .57540,
356 + .00029, .89188, 1.17022,
357 + .03361, .01443, 43.03900, 1.29118, .70400,
358 + .10727, 1.01679, 1.29275,
359 + .03415, .01468, 49.37828, 1.44441, .86450,
360 + .30734, 1.17261, 1.44594,
361 + .03473, .01495, 56.28437, 1.62273, 1.04662,
362 + .48580, 1.35356, 1.62422,
363 + .03525, .01520, 62.89569, 1.80035, 1.22864,
364 + .67299, 1.53352, 1.80182 /
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 + .03579, .01545, 69.92533, 1.99570, 1.42996,
367 + .88367, 1.73118, 1.99713,
368 + .03623, .01566, 75.94859, 2.16988, 1.60812,
369 + 1.06579, 1.90725, 2.17128,
370 + .03677, .01593, 83.47417, 2.39518, 1.83790,
371 + 1.30048, 2.13479, 2.39655,
372 + .03726, .01616, 90.43631, 2.60911, 2.05754,
373 + 1.52764, 2.35067, 2.61046,
374 + .03770, .01638, 96.86484, 2.81440, 2.26561,
375 + 1.73783, 2.55771, 2.81572,
376 + .03827, .01666, 105.31554, 3.09087, 2.54726,
377 + 2.02547, 2.83637, 3.09216,
378 + .03881, .01692, 113.52155, 3.36711, 2.82909,
379 + 2.31387, 3.11463, 3.36838,
380 + .03931, .01718, 121.22409, 3.63571, 3.10076,
381 + 2.58830, 3.38509, 3.63696 /
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 + .03982, .01743, 129.20363, 3.91948, 3.38949,
384 + 2.88280, 3.67068, 3.92070,
385 + .04032, .01768, 137.04033, 4.20656, 3.68002,
386 + 3.17681, 3.95951, 4.20776,
387 + .04080, .01793, 144.61890, 4.48999, 3.96746,
388 + 3.46876, 4.24457, 4.49117,
389 + .04125, .01816, 151.81448, 4.76541, 4.24616,
390 + 3.75095, 4.52151, 4.76657,
391 + .04170, .01839, 159.14885, 5.05158, 4.53601,
392 + 4.04490, 4.80919, 5.05273,
393 + .04215, .01862, 166.38780, 5.34026, 4.82779,
394 + 4.33996, 5.09932, 5.34139,
395 + .04258, .01884, 173.38519, 5.62393, 5.11501,
396 + 4.63119, 5.38435, 5.62504,
397 + .04299, .01905, 179.95418, 5.89604, 5.38956,
398 + 4.90827, 5.65774, 5.89714 /
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 + .04340, .01927, 186.78185, 6.18195, 5.67926,
401 + 5.20235, 5.94492, 6.18303,
402 + .04381, .01948, 193.33636, 6.46331, 5.96264,
403 + 5.48776, 6.22752, 6.46438,
404 + .04420, .01968, 199.75565, 6.74179, 6.24405,
405 + 5.77245, 6.50716, 6.74285,
406 + .04458, .01988, 205.83473, 7.00980, 6.51464,
407 + 6.04591, 6.77627, 7.01085,
408 + .04496, .02008, 211.94839, 7.28386, 6.79087,
409 + 6.32448, 7.05142, 7.28489 /
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 + .03084, .01317, 3.63092, .58508, .00000,
412 + .00000, .30090, .58618,
413 + .03123, .01334, 5.31209, .59758, .00002,
414 + .00000, .31546, .59865,
415 + .03180, .01359, 8.17921, .62495, .02383,
416 + .00000, .34583, .62598,
417 + .03223, .01378, 10.56060, .65246, .06032,
418 + .00000, .37550, .65346,
419 + .03269, .01398, 13.24936, .69115, .10223,
420 + .00000, .41645, .69213,
421 + .03309, .01416, 15.88131, .72987, .14703,
422 + .00000, .45709, .73082,
423 + .03347, .01434, 18.53496, .77433, .19401,
424 + .00000, .50336, .77526,
425 + .03389, .01452, 21.58254, .82816, .25196,
426 + .00000, .55910, .82907 /
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 + .03425, .01469, 24.42711, .88081, .30883,
429 + .00000, .61339, .88170,
430 + .03460, .01485, 27.27947, .93764, .36813,
431 + .00000, .67178, .93850,
432 + .03488, .01498, 29.66087, .98650, .41946,
433 + .00000, .72186, .98735,
434 + .03548, .01527, 34.97985, 1.10269, .54070,
435 + .00028, .84063, 1.10351,
436 + .03601, .01552, 39.85119, 1.21581, .65942,
437 + .09895, .95593, 1.21661,
438 + .03660, .01580, 45.54391, 1.35670, .80699,
439 + .28313, 1.09920, 1.35747,
440 + .03722, .01610, 51.71860, 1.51994, .97373,
441 + .44652, 1.26488, 1.52068,
442 + .03779, .01637, 57.60577, 1.68196, 1.13975,
443 + .61731, 1.42906, 1.68268 /
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 + .03837, .01666, 63.84251, 1.85956, 1.32276,
446 + .80890, 1.60879, 1.86025,
447 + .03885, .01689, 69.16811, 2.01742, 1.48422,
448 + .97398, 1.76840, 2.01810,
449 + .03944, .01719, 75.80003, 2.22101, 1.69184,
450 + 1.18607, 1.97406, 2.22167,
451 + .03996, .01745, 81.91624, 2.41379, 1.88974,
452 + 1.39082, 2.16864, 2.41443,
453 + .04044, .01769, 87.54590, 2.59827, 2.07669,
454 + 1.57969, 2.35474, 2.59889,
455 + .04106, .01800, 94.92479, 2.84607, 2.32911,
456 + 1.83752, 2.60456, 2.84667,
457 + .04164, .01830, 102.06748, 3.09297, 2.58098,
458 + 2.09534, 2.85332, 3.09355,
459 + .04219, .01858, 108.74973, 3.33238, 2.82309,
460 + 2.33993, 3.09444, 3.33295 /
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 + .04274, .01886, 115.65474, 3.58472, 3.07983,
463 + 2.60187, 3.34847, 3.58527,
464 + .04328, .01914, 122.41576, 3.83937, 3.33752,
465 + 2.86268, 3.60474, 3.83991,
466 + .04379, .01941, 128.93799, 4.09024, 3.59194,
467 + 3.12114, 3.85711, 4.09077,
468 + .04428, .01966, 135.11490, 4.33351, 3.83809,
469 + 3.37042, 4.10178, 4.33403,
470 + .04477, .01992, 141.39679, 4.58578, 4.09360,
471 + 3.62961, 4.35544, 4.58629,
472 + .04526, .02017, 147.58199, 4.83975, 4.35030,
473 + 3.88925, 4.61076, 4.84026,
474 + .04572, .02042, 153.54874, 5.08888, 4.60257,
475 + 4.14510, 4.86115, 5.08938,
476 + .04616, .02065, 159.13672, 5.32743, 4.84324,
477 + 4.38803, 5.10087, 5.32792 /
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 + .04661, .02089, 164.93646, 5.57770, 5.09687,
480 + 4.64557, 5.35232, 5.57819,
481 + .04705, .02112, 170.48869, 5.82353, 5.34445,
482 + 4.89496, 5.59928, 5.82401,
483 + .04748, .02135, 175.91905, 6.06650, 5.59001,
484 + 5.14344, 5.84333, 6.06698,
485 + .04788, .02156, 181.05157, 6.30000, 5.82577,
486 + 5.38176, 6.07784, 6.30047,
487 + .04829, .02178, 186.20313, 6.53839, 6.06609,
488 + 5.62415, 6.31725, 6.53886 /
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 + .03809, .01616, 3.56895, .49072, .00000,
491 + .00000, .25270, .49032,
492 + .03857, .01640, 4.99408, .50322, .00002,
493 + .00000, .26683, .50281,
494 + .03930, .01676, 7.36745, .52886, .02141,
495 + .00000, .29485, .52843,
496 + .03985, .01703, 9.29438, .55351, .05374,
497 + .00000, .32121, .55306,
498 + .04042, .01732, 11.43460, .58688, .08990,
499 + .00000, .35636, .58642,
500 + .04093, .01758, 13.49646, .61980, .12782,
501 + .00000, .39080, .61932,
502 + .04142, .01782, 15.54910, .65682, .16698,
503 + .00000, .42925, .65633,
504 + .04194, .01809, 17.87669, .70105, .21465,
505 + .00000, .47498, .70055 /
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 + .04240, .01833, 20.02466, .74382, .26086,
508 + .00000, .51904, .74331,
509 + .04285, .01856, 22.15641, .78939, .30852,
510 + .00000, .56585, .78888,
511 + .04321, .01874, 23.92123, .82828, .34943,
512 + .00000, .60570, .82776,
513 + .04398, .01914, 27.81435, .91966, .44493,
514 + .00024, .69911, .91913,
515 + .04464, .01949, 31.32617, 1.00748, .53720,
516 + .07685, .78864, 1.00695,
517 + .04540, .01989, 35.36919, 1.11549, .65044,
518 + .21896, .89854, 1.11495,
519 + .04619, .02031, 39.69390, 1.23892, .77668,
520 + .34286, 1.02389, 1.23838,
521 + .04692, .02070, 43.76435, 1.36002, .90090,
522 + .47098, 1.14668, 1.35947 /
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 + .04766, .02109, 48.02629, 1.49136, 1.03639,
525 + .61323, 1.27971, 1.49082,
526 + .04827, .02142, 51.62602, 1.60698, 1.15475,
527 + .73452, 1.39669, 1.60644,
528 + .04903, .02183, 56.06120, 1.75468, 1.30551,
529 + .88888, 1.54602, 1.75414,
530 + .04969, .02219, 60.11106, 1.89329, 1.44795,
531 + 1.03666, 1.68605, 1.89276,
532 + .05031, .02252, 63.80042, 2.02478, 1.58133,
533 + 1.17164, 1.81882, 2.02425,
534 + .05110, .02295, 68.59129, 2.19995, 1.75994,
535 + 1.35451, 1.99557, 2.19943,
536 + .05184, .02336, 73.18208, 2.37293, 1.93661,
537 + 1.53579, 2.17002, 2.37242,
538 + .05254, .02374, 77.43040, 2.53920, 2.10490,
539 + 1.70612, 2.33764, 2.53870 /
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 + .05325, .02413, 81.78507, 2.71317, 2.28212,
542 + 1.88736, 2.51293, 2.71268,
543 + .05394, .02451, 86.00712, 2.88736, 2.45857,
544 + 2.06629, 2.68839, 2.88688,
545 + .05460, .02488, 90.04762, 3.05778, 2.63160,
546 + 2.24247, 2.86000, 3.05731,
547 + .05522, .02522, 93.84268, 3.22193, 2.79789,
548 + 2.41121, 3.02525, 3.22148,
549 + .05585, .02557, 97.67391, 3.39112, 2.96946,
550 + 2.58563, 3.19552, 3.39068,
551 + .05647, .02592, 101.41618, 3.56037, 3.14074,
552 + 2.75922, 3.36583, 3.55995,
553 + .05707, .02625, 105.00274, 3.72548, 3.30814,
554 + 2.92938, 3.53193, 3.72506,
555 + .05763, .02657, 108.33491, 3.88264, 3.46689,
556 + 3.08992, 3.69001, 3.88223 /
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 + .05820, .02688, 111.77772, 4.04679, 3.63350,
559 + 3.25951, 3.85509, 4.04640,
560 + .05877, .02720, 115.04256, 4.20701, 3.79505,
561 + 3.42253, 4.01621, 4.20664,
562 + .05931, .02750, 118.22214, 4.36472, 3.95466,
563 + 3.58440, 4.17476, 4.36436,
564 + .05982, .02779, 121.20779, 4.51553, 4.10716,
565 + 3.73887, 4.32638, 4.51519,
566 + .06034, .02809, 124.18467, 4.66878, 4.26184,
567 + 3.89520, 4.48042, 4.66845 /
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 + .04708, .02000, 3.50055, .41161, .00000,
570 + .00000, .21286, .41103,
571 + .04769, .02034, 4.68720, .42376, .00002,
572 + .00000, .22630, .42317,
573 + .04862, .02085, 6.62344, .44744, .01916,
574 + .00000, .25188, .44685,
575 + .04931, .02123, 8.16161, .46934, .04768,
576 + .00000, .27515, .46876,
577 + .05005, .02163, 9.84293, .49798, .07872,
578 + .00000, .30521, .49739,
579 + .05069, .02199, 11.43691, .52583, .11066,
580 + .00000, .33426, .52524,
581 + .05132, .02234, 13.00367, .55650, .14310,
582 + .00000, .36608, .55592,
583 + .05199, .02271, 14.75741, .59263, .18207,
584 + .00000, .40341, .59205 /
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 + .05258, .02304, 16.35716, .62715, .21937,
587 + .00000, .43896, .62658,
588 + .05315, .02337, 17.92805, .66346, .25741,
589 + .00000, .47625, .66289,
590 + .05360, .02363, 19.21733, .69417, .28978,
591 + .00000, .50773, .69361,
592 + .05459, .02418, 22.02465, .76546, .36444,
593 + .00021, .58064, .76491,
594 + .05544, .02467, 24.51690, .83302, .43557,
595 + .05934, .64958, .83249,
596 + .05641, .02522, 27.34078, .91504, .52174,
597 + .16835, .73309, .91452,
598 + .05743, .02580, 30.31759, 1.00739, .61645,
599 + .26170, .82698, 1.00690,
600 + .05836, .02634, 33.08152, 1.09690, .70853,
601 + .35716, .91784, 1.09642 /
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 + .05930, .02688, 35.94005, 1.19292, .80786,
604 + .46203, 1.01521, 1.19247,
605 + .06009, .02734, 38.32644, 1.27658, .89375,
606 + .55048, 1.09996, 1.27615,
607 + .06106, .02790, 41.23340, 1.38240, 1.00208,
608 + .66195, 1.20709, 1.38199,
609 + .06191, .02839, 43.86008, 1.48080, 1.10350,
610 + .76773, 1.30662, 1.48042,
611 + .06270, .02885, 46.22615, 1.57328, 1.19758,
612 + .86337, 1.40012, 1.57292,
613 + .06371, .02944, 49.26821, 1.69543, 1.32252,
614 + .99192, 1.52355, 1.69511,
615 + .06466, .02999, 52.15181, 1.81496, 1.44497,
616 + 1.11820, 1.64425, 1.81466,
617 + .06556, .03052, 54.78825, 1.92878, 1.56051,
618 + 1.23565, 1.75915, 1.92852 /
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 + .06646, .03104, 57.46760, 2.04698, 1.68130,
621 + 1.35980, 1.87841, 2.04675,
622 + .06735, .03156, 60.03704, 2.16434, 1.80055,
623 + 1.48126, 1.99680, 2.16415,
624 + .06819, .03205, 62.47474, 2.27835, 1.91667,
625 + 1.60006, 2.11176, 2.27819,
626 + .06899, .03252, 64.74339, 2.38740, 2.02748,
627 + 1.71301, 2.22169, 2.38727,
628 + .06979, .03299, 67.01519, 2.49907, 2.14109,
629 + 1.82905, 2.33423, 2.49897,
630 + .07059, .03346, 69.21439, 2.61005, 2.25374,
631 + 1.94373, 2.44606, 2.60998,
632 + .07134, .03390, 71.30714, 2.71768, 2.36323,
633 + 2.05555, 2.55449, 2.71764,
634 + .07206, .03432, 73.23340, 2.81948, 2.46638,
635 + 2.16031, 2.65704, 2.81948 /
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 + .07279, .03475, 75.21457, 2.92534, 2.57419,
638 + 2.27058, 2.76364, 2.92536,
639 + .07351, .03517, 77.07191, 3.02796, 2.67796,
640 + 2.37573, 2.86699, 3.02802,
641 + .07419, .03557, 78.87296, 3.12854, 2.78009,
642 + 2.47979, 2.96825, 3.12863,
643 + .07485, .03596, 80.55136, 3.22422, 2.87716,
644 + 2.57856, 3.06458, 3.22434,
645 + .07551, .03635, 82.21176, 3.32095, 2.97510,
646 + 2.67797, 3.16196, 3.32111 /
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 + .05333, .02282, 3.45503, .37184, .00000,
649 + .00000, .19301, .37157,
650 + .05404, .02323, 4.51018, .38365, .00002,
651 + .00000, .20595, .38338,
652 + .05511, .02385, 6.21358, .40609, .01790,
653 + .00000, .23007, .40584,
654 + .05591, .02431, 7.55002, .42644, .04430,
655 + .00000, .25163, .42619,
656 + .05677, .02481, 8.99736, .45252, .07259,
657 + .00000, .27895, .45228,
658 + .05751, .02524, 10.35647, .47766, .10135,
659 + .00000, .30516, .47744,
660 + .05824, .02567, 11.68228, .50502, .13028,
661 + .00000, .33353, .50481,
662 + .05901, .02612, 13.15480, .53698, .16476,
663 + .00000, .36654, .53678 /
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 + .05969, .02652, 14.48869, .56729, .19750,
666 + .00000, .39777, .56711,
667 + .06036, .02691, 15.79009, .59891, .23067,
668 + .00000, .43025, .59874,
669 + .06089, .02723, 16.85260, .62552, .25875,
670 + .00000, .45754, .62537,
671 + .06203, .02790, 19.14765, .68681, .32304,
672 + .00019, .52027, .68669,
673 + .06302, .02849, 21.16503, .74442, .38378,
674 + .05077, .57908, .74432,
675 + .06414, .02916, 23.42813, .81377, .45677,
676 + .14366, .64977, .81370,
677 + .06532, .02986, 25.79230, .89117, .53632,
678 + .22235, .72852, .89114,
679 + .06640, .03050, 27.96894, .96561, .61309,
680 + .30227, .80417, .96562 /
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 + .06749, .03116, 30.20295, 1.04495, .69535,
683 + .38951, .88469, 1.04499,
684 + .06841, .03170, 32.05434, 1.11362, .76604,
685 + .46261, .95434, 1.11370,
686 + .06952, .03237, 34.29350, 1.19997, .85466,
687 + .55418, 1.04185, 1.20009,
688 + .07051, .03297, 36.30355, 1.27981, .93718,
689 + .64062, 1.12270, 1.27997,
690 + .07143, .03352, 38.10107, 1.35443, 1.01327,
691 + .71828, 1.19822, 1.35462,
692 + .07260, .03422, 40.39776, 1.45247, 1.11382,
693 + .82216, 1.29740, 1.45271,
694 + .07370, .03488, 42.55990, 1.54786, 1.21182,
695 + .92365, 1.39383, 1.54814,
696 + .07474, .03550, 44.52111, 1.63817, 1.30374,
697 + 1.01745, 1.48511, 1.63850 /
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 + .07578, .03613, 46.50364, 1.73154, 1.39942,
700 + 1.11620, 1.57942, 1.73191,
701 + .07680, .03674, 48.39109, 1.82377, 1.49338,
702 + 1.21228, 1.67256, 1.82419,
703 + .07777, .03733, 50.17185, 1.91297, 1.58449,
704 + 1.30586, 1.76262, 1.91343,
705 + .07869, .03788, 51.81911, 1.99792, 1.67105,
706 + 1.39444, 1.84836, 1.99842,
707 + .07962, .03844, 53.45995, 2.08456, 1.75945,
708 + 1.48509, 1.93579, 2.08511,
709 + .08054, .03899, 55.03883, 2.17032, 1.84674,
710 + 1.57430, 2.02231, 2.17092,
711 + .08141, .03951, 56.53437, 2.25319, 1.93128,
712 + 1.66099, 2.10590, 2.25383,
713 + .08223, .04001, 57.90223, 2.33127, 2.01061,
714 + 1.74187, 2.18465, 2.33195 /
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 + .08307, .04051, 59.30517, 2.41224, 2.09332,
717 + 1.82681, 2.26628, 2.41296,
718 + .08390, .04101, 60.60976, 2.49039, 2.17256,
719 + 1.90741, 2.34508, 2.49115,
720 + .08469, .04148, 61.87150, 2.56679, 2.25036,
721 + 1.98699, 2.42210, 2.56760,
722 + .08544, .04194, 63.04122, 2.63924, 2.32407,
723 + 2.06229, 2.49513, 2.64008,
724 + .08621, .04239, 64.19206, 2.71224, 2.39819,
725 + 2.13781, 2.56870, 2.71312 /
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 + .05829, .02519, 3.41885, .34645, .00000,
728 + .00000, .18037, .34648,
729 + .05908, .02566, 4.38435, .35797, .00002,
730 + .00000, .19293, .35802,
731 + .06027, .02637, 5.93159, .37951, .01701,
732 + .00000, .21600, .37958,
733 + .06116, .02690, 7.13475, .39876, .04195,
734 + .00000, .23635, .39885,
735 + .06211, .02747, 8.42916, .42309, .06836,
736 + .00000, .26183, .42320,
737 + .06294, .02797, 9.63629, .44641, .09499,
738 + .00000, .28613, .44654,
739 + .06375, .02846, 10.80740, .47156, .12159,
740 + .00000, .31220, .47172,
741 + .06461, .02898, 12.10073, .50076, .15309,
742 + .00000, .34237, .50094 /
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 + .06537, .02944, 13.26635, .52831, .18285,
745 + .00000, .37075, .52851,
746 + .06611, .02989, 14.39820, .55688, .21285,
747 + .00000, .40012, .55710,
748 + .06670, .03025, 15.31874, .58083, .23814,
749 + .00000, .42469, .58107,
750 + .06797, .03102, 17.29532, .63568, .29575,
751 + .00018, .48087, .63596,
752 + .06908, .03169, 19.01996, .68692, .34985,
753 + .04530, .53322, .68724,
754 + .07032, .03245, 20.94017, .74823, .41448,
755 + .12793, .59575, .74859,
756 + .07163, .03325, 22.93266, .81620, .48448,
757 + .19738, .66497, .81661,
758 + .07283, .03398, 24.75556, .88123, .55166,
759 + .26758, .73111, .88168 /
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 + .07405, .03473, 26.61585, .95018, .62330,
762 + .34384, .80116, .95068,
763 + .07507, .03535, 28.14907, 1.00958, .68458,
764 + .40742, .86146, 1.01013,
765 + .07631, .03611, 29.99335, 1.08395, .76107,
766 + .48673, .93690, 1.08455,
767 + .07741, .03679, 31.64086, 1.15242, .83200,
768 + .56131, 1.00631, 1.15307,
769 + .07843, .03741, 33.10592, 1.21615, .89713,
770 + .62800, 1.07087, 1.21684,
771 + .07973, .03820, 34.96905, 1.29955, .98287,
772 + .71690, 1.15533, 1.30031,
773 + .08095, .03895, 36.71387, 1.38037, 1.06610,
774 + .80339, 1.23712, 1.38118,
775 + .08210, .03965, 38.28684, 1.45656, 1.14382,
776 + .88297, 1.31420, 1.45743 /
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 + .08326, .04036, 39.87045, 1.53506, 1.22446,
779 + .96649, 1.39358, 1.53598,
780 + .08439, .04105, 41.36962, 1.61231, 1.30334,
781 + 1.04742, 1.47168, 1.61329,
782 + .08547, .04171, 42.77802, 1.68678, 1.37960,
783 + 1.12601, 1.54694, 1.68781,
784 + .08649, .04233, 44.07462, 1.75747, 1.45180,
785 + 1.20016, 1.61837, 1.75856,
786 + .08751, .04296, 45.36089, 1.82936, 1.52533,
787 + 1.27582, 1.69099, 1.83050,
788 + .08852, .04358, 46.59272, 1.90030, 1.59771,
789 + 1.35004, 1.76264, 1.90149,
790 + .08949, .04416, 47.75534, 1.96867, 1.66764,
791 + 1.42200, 1.83168, 1.96992,
792 + .09040, .04472, 48.81320, 2.03290, 1.73305,
793 + 1.48891, 1.89653, 2.03419 /
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 + .09133, .04528, 49.89605, 2.09936, 1.80112,
796 + 1.55907, 1.96363, 2.10071,
797 + .09224, .04584, 50.89618, 2.16331, 1.86612,
798 + 1.62539, 2.02818, 2.16470,
799 + .09311, .04637, 51.86161, 2.22570, 1.92982,
800 + 1.69078, 2.09115, 2.22715,
801 + .09394, .04687, 52.75280, 2.28472, 1.99002,
802 + 1.75249, 2.15072, 2.28622,
803 + .09479, .04738, 53.62564, 2.34405, 2.05041,
804 + 1.81423, 2.21058, 2.34559 /
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 + .06245, .02741, 3.38701, .32919, .00000,
807 + .00000, .17156, .32916,
808 + .06331, .02794, 4.28560, .34048, .00002,
809 + .00000, .18382, .34047,
810 + .06462, .02874, 5.71490, .36129, .01630,
811 + .00000, .20604, .36131,
812 + .06559, .02934, 6.81785, .37966, .04009,
813 + .00000, .22544, .37971,
814 + .06663, .02998, 7.99795, .40263, .06505,
815 + .00000, .24947, .40271,
816 + .06754, .03053, 9.09228, .42453, .09006,
817 + .00000, .27228, .42465,
818 + .06842, .03108, 10.14922, .44798, .11488,
819 + .00000, .29659, .44813,
820 + .06936, .03166, 11.31107, .47508, .14415,
821 + .00000, .32459, .47526 /
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 + .07019, .03217, 12.35384, .50054, .17167,
824 + .00000, .35083, .50075,
825 + .07100, .03267, 13.36244, .52682, .19930,
826 + .00000, .37785, .52706,
827 + .07164, .03307, 14.18015, .54878, .22253,
828 + .00000, .40039, .54905,
829 + .07302, .03393, 15.92736, .59887, .27520,
830 + .00017, .45171, .59919,
831 + .07423, .03468, 17.44253, .64542, .32441,
832 + .04127, .49929, .64579,
833 + .07559, .03553, 19.11884, .70086, .38294,
834 + .11636, .55587, .70129,
835 + .07703, .03641, 20.84862, .76199, .44599,
836 + .17908, .61817, .76248,
837 + .07834, .03722, 22.42294, .82021, .50624,
838 + .24221, .67743, .82077 /
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 + .07966, .03805, 24.02194, .88171, .57025,
841 + .31053, .73996, .88232,
842 + .08077, .03874, 25.33375, .93449, .62479,
843 + .36727, .79358, .93516,
844 + .08213, .03957, 26.90449, 1.00032, .69262,
845 + .43780, .86041, 1.00105,
846 + .08333, .04032, 28.30188, 1.06074, .75532,
847 + .50390, .92170, 1.06153,
848 + .08443, .04100, 29.53856, 1.11677, .81269,
849 + .56280, .97852, 1.11762,
850 + .08584, .04187, 31.10498, 1.18987, .88798,
851 + .64107, 1.05261, 1.19079,
852 + .08718, .04270, 32.56544, 1.26046, .96082,
853 + .71699, 1.12411, 1.26146,
854 + .08843, .04347, 33.87533, 1.32678, 1.02860,
855 + .78657, 1.19127, 1.32785 /
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 + .08968, .04424, 35.18961, 1.39493, 1.09874,
858 + .85942, 1.26024, 1.39606,
859 + .09091, .04500, 36.42752, 1.46177, 1.16713,
860 + .92978, 1.32788, 1.46297,
861 + .09208, .04572, 37.58620, 1.52604, 1.23307,
862 + .99793, 1.39289, 1.52730,
863 + .09319, .04640, 38.64848, 1.58688, 1.29535,
864 + 1.06205, 1.45443, 1.58820,
865 + .09430, .04708, 39.69867, 1.64860, 1.35861,
866 + 1.12734, 1.51684, 1.64999,
867 + .09540, .04775, 40.70041, 1.70935, 1.42073,
868 + 1.19121, 1.57826, 1.71081,
869 + .09644, .04839, 41.64283, 1.76778, 1.48063,
870 + 1.25302, 1.63732, 1.76929,
871 + .09743, .04900, 42.49616, 1.82253, 1.53650,
872 + 1.31034, 1.69265, 1.82410 /
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 + .09843, .04961, 43.36823, 1.87909, 1.59458,
875 + 1.37037, 1.74982, 1.88073,
876 + .09942, .05021, 44.16887, 1.93336, 1.64985,
877 + 1.42692, 1.80465, 1.93505,
878 + .10036, .05079, 44.94052, 1.98623, 1.70396,
879 + 1.48262, 1.85807, 1.98798,
880 + .10126, .05134, 45.65007, 2.03614, 1.75499,
881 + 1.53509, 1.90850, 2.03795,
882 + .10217, .05189, 46.34208, 2.08621, 1.80607,
883 + 1.58746, 1.95908, 2.08807 /
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 + .07765, .03620, 3.26654, .28212, .00000,
886 + .00000, .14771, .28233,
887 + .07880, .03696, 3.96859, .29253, .00002,
888 + .00000, .15890, .29280,
889 + .08053, .03810, 5.06049, .31093, .01412,
890 + .00000, .17846, .31128,
891 + .08182, .03894, 5.88319, .32662, .03444,
892 + .00000, .19497, .32703,
893 + .08320, .03984, 6.74859, .34557, .05515,
894 + .00000, .21479, .34605,
895 + .08441, .04063, 7.53677, .36336, .07545,
896 + .00000, .23331, .36389,
897 + .08558, .04139, 8.28716, .38199, .09524,
898 + .00000, .25264, .38257,
899 + .08683, .04221, 9.09976, .40317, .11823,
900 + .00000, .27456, .40382 /
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 + .08793, .04293, 9.81935, .42280, .13954,
903 + .00000, .29483, .42351,
904 + .08900, .04362, 10.50655, .44276, .16065,
905 + .00000, .31539, .44353,
906 + .08985, .04417, 11.05801, .45928, .17822,
907 + .00000, .33239, .46009,
908 + .09168, .04536, 12.21699, .49642, .21752,
909 + .00015, .37054, .49733,
910 + .09328, .04639, 13.20138, .53037, .25366,
911 + .03049, .40535, .53137,
912 + .09508, .04755, 14.26712, .57018, .29598,
913 + .08555, .44611, .57128,
914 + .09696, .04876, 15.34634, .61333, .34082,
915 + .13059, .49023, .61454,
916 + .09868, .04986, 16.31122, .65383, .38307,
917 + .17535, .53159, .65515 /
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 + .10043, .05097, 17.27557, .69604, .42737,
920 + .22319, .57467, .69747,
921 + .10188, .05190, 18.05412, .73183, .46466,
922 + .26241, .61117, .73335,
923 + .10365, .05302, 18.97165, .77594, .51050,
924 + .31061, .65612, .77757,
925 + .10522, .05401, 19.77653, .81597, .55242,
926 + .35532, .69690, .81770,
927 + .10666, .05492, 20.47666, .85268, .59033,
928 + .39467, .73427, .85450,
929 + .10849, .05608, 21.35129, .90007, .63960,
930 + .44648, .78251, .90202,
931 + .11022, .05716, 22.15410, .94533, .68674,
932 + .49620, .82855, .94739,
933 + .11184, .05817, 22.86003, .98735, .73009,
934 + .54119, .87128, .98952 /
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 + .11346, .05918, 23.55998, 1.03014, .77457,
937 + .58794, .91478, 1.03241,
938 + .11505, .06017, 24.20711, 1.07166, .81747,
939 + .63259, .95699, 1.07405,
940 + .11656, .06110, 24.80476, 1.11124, .85848,
941 + .67549, .99721, 1.11372,
942 + .11797, .06198, 25.34412, 1.14837, .89688,
943 + .71549, 1.03494, 1.15095,
944 + .11940, .06286, 25.87028, 1.18573, .93558,
945 + .75591, 1.07291, 1.18841,
946 + .12080, .06372, 26.36407, 1.22219, .97325,
947 + .79512, 1.10995, 1.22497,
948 + .12213, .06453, 26.82324, 1.25700, 1.00933,
949 + .83281, 1.14531, 1.25987,
950 + .12339, .06530, 27.23119, 1.28934, 1.04269,
951 + .86746, 1.17817, 1.29230 /
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 + .12466, .06608, 27.64592, 1.32258, 1.07721,
954 + .90359, 1.21194, 1.32564,
955 + .12591, .06684, 28.01666, 1.35416, 1.10973,
956 + .93728, 1.24401, 1.35730,
957 + .12711, .06757, 28.37215, 1.38477, 1.14142,
958 + .97032, 1.27511, 1.38800,
959 + .12824, .06825, 28.69380, 1.41346, 1.17110,
960 + 1.00123, 1.30426, 1.41678,
961 + .12939, .06894, 29.00194, 1.44204, 1.20061,
962 + 1.03187, 1.33329, 1.44544 /
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 + .09746, .04950, 3.09228, .24546, .00000,
965 + .00000, .12887, .24607,
966 + .09903, .05057, 3.61674, .25469, .00002,
967 + .00000, .13875, .25540,
968 + .10141, .05217, 4.41226, .27038, .01189,
969 + .00000, .15540, .27124,
970 + .10318, .05335, 4.99614, .28329, .02877,
971 + .00000, .16902, .28427,
972 + .10506, .05461, 5.59921, .29839, .04546,
973 + .00000, .18484, .29949,
974 + .10670, .05570, 6.13801, .31231, .06149,
975 + .00000, .19940, .31353,
976 + .10829, .05675, 6.64283, .32657, .07680,
977 + .00000, .21426, .32790,
978 + .10999, .05787, 7.18058, .34253, .09431,
979 + .00000, .23085, .34398 /
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 + .11148, .05885, 7.64975, .35710, .11030,
982 + .00000, .24597, .35865,
983 + .11292, .05979, 8.09136, .37169, .12592,
984 + .00000, .26109, .37334,
985 + .11407, .06054, 8.44169, .38363, .13879,
986 + .00000, .27345, .38538,
987 + .11654, .06214, 9.16375, .41008, .16714,
988 + .00012, .30078, .41200,
989 + .11869, .06352, 9.76187, .43383, .19276,
990 + .02183, .32529, .43591,
991 + .12109, .06506, 10.39209, .46121, .22228,
992 + .06092, .35351, .46347,
993 + .12361, .06666, 11.01596, .49034, .25299,
994 + .09220, .38350, .49279,
995 + .12589, .06811, 11.56168, .51724, .28148,
996 + .12284, .41118, .51987 /
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 + .12820, .06956, 12.09645, .54487, .31094,
999 + .15516, .43959, .54768,
1000 + .13012, .07076, 12.51949, .56798, .33540,
1001 + .18129, .46333, .57094,
1002 + .13245, .07221, 13.00779, .59607, .36508,
1003 + .21300, .49219, .59921,
1004 + .13450, .07348, 13.42860, .62126, .39191,
1005 + .24209, .51806, .62456,
1006 + .13638, .07464, 13.78593, .64405, .41585,
1007 + .26734, .54146, .64750,
1008 + .13877, .07611, 14.22437, .67313, .44663,
1009 + .30025, .57131, .67678,
1010 + .14101, .07747, 14.61852, .70055, .47573,
1011 + .33146, .59946, .70438,
1012 + .14309, .07874, 14.95473, .72566, .50211,
1013 + .35932, .62523, .72966 /
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 + .14518, .08000, 15.28289, .75097, .52894,
1016 + .38801, .65120, .75514,
1017 + .14721, .08122, 15.57776, .77521, .55449,
1018 + .41507, .67609, .77955,
1019 + .14913, .08237, 15.84472, .79808, .57869,
1020 + .44085, .69957, .80258,
1021 + .15093, .08344, 16.07956, .81931, .60110,
1022 + .46464, .72136, .82395,
1023 + .15273, .08451, 16.30390, .84048, .62350,
1024 + .48847, .74309, .84527,
1025 + .15450, .08555, 16.50867, .86091, .64508,
1026 + .51136, .76408, .86584,
1027 + .15618, .08654, 16.69555, .88026, .66559,
1028 + .53321, .78395, .88533,
1029 + .15775, .08746, 16.85576, .89803, .68436,
1030 + .55308, .80222, .90324 /
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 + .15935, .08839, 17.01774, .91621, .70368,
1033 + .57372, .82089, .92155,
1034 + .16090, .08929, 17.15468, .93324, .72165,
1035 + .59271, .83840, .93871,
1036 + .16238, .09016, 17.28525, .94967, .73908,
1037 + .61126, .85529, .95526,
1038 + .16379, .09097, 17.39945, .96492, .75527,
1039 + .62848, .87098, .97064,
1040 + .16520, .09178, 17.50457, .97997, .77122,
1041 + .64540, .88647, .98581 /
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 + .11223, .06028, 2.95588, .22769, .00000,
1044 + .00000, .11969, .22881,
1045 + .11415, .06157, 3.38585, .23606, .00002,
1046 + .00000, .12867, .23733,
1047 + .11704, .06351, 4.02793, .25001, .01058,
1048 + .00000, .14353, .25149,
1049 + .11919, .06493, 4.49141, .26126, .02545,
1050 + .00000, .15545, .26291,
1051 + .12146, .06642, 4.96459, .27416, .03992,
1052 + .00000, .16906, .27600,
1053 + .12345, .06772, 5.38232, .28595, .05364,
1054 + .00000, .18145, .28795,
1055 + .12536, .06897, 5.76966, .29786, .06658,
1056 + .00000, .19394, .30001,
1057 + .12741, .07029, 6.17795, .31105, .08125,
1058 + .00000, .20774, .31337 /
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 + .12920, .07144, 6.53079, .32299, .09452,
1061 + .00000, .22021, .32545,
1062 + .13093, .07254, 6.85965, .33482, .10737,
1063 + .00000, .23257, .33744,
1064 + .13231, .07342, 7.11856, .34446, .11789,
1065 + .00000, .24260, .34718,
1066 + .13526, .07529, 7.64496, .36557, .14086,
1067 + .00011, .26458, .36855,
1068 + .13781, .07689, 8.07327, .38433, .16139,
1069 + .01764, .28409, .38752,
1070 + .14067, .07868, 8.51552, .40573, .18481,
1071 + .04904, .30631, .40916,
1072 + .14364, .08052, 8.94620, .42821, .20889,
1073 + .07383, .32964, .43190,
1074 + .14634, .08217, 9.31690, .44876, .23101,
1075 + .09791, .35096, .45268 /
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 + .14905, .08383, 9.67488, .46967, .25368,
1078 + .12308, .37264, .47383,
1079 + .15130, .08519, 9.95358, .48700, .27235,
1080 + .14327, .39061, .49135,
1081 + .15401, .08682, 10.27026, .50787, .29481,
1082 + .16756, .41225, .51246,
1083 + .15641, .08825, 10.53957, .52644, .31496,
1084 + .18969, .43150, .53125,
1085 + .15859, .08955, 10.76338, .54309, .33278,
1086 + .20874, .44876, .54809,
1087 + .16135, .09118, 11.03398, .56418, .35554,
1088 + .23340, .47062, .56942,
1089 + .16394, .09269, 11.27297, .58388, .37688,
1090 + .25661, .49106, .58936,
1091 + .16633, .09409, 11.47102, .60175, .39606,
1092 + .27714, .50959, .60743 /
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 + .16872, .09548, 11.66181, .61963, .41544,
1095 + .29817, .52815, .62553,
1096 + .17104, .09681, 11.82853, .63662, .43374,
1097 + .31785, .54579, .64272,
1098 + .17322, .09806, 11.97657, .65253, .45097,
1099 + .33648, .56231, .65882,
1100 + .17526, .09922, 12.10328, .66717, .46681,
1101 + .35356, .57753, .67365,
1102 + .17731, .10038, 12.22164, .68168, .48255,
1103 + .37058, .59261, .68834,
1104 + .17930, .10150, 12.32626, .69558, .49761,
1105 + .38682, .60708, .70243,
1106 + .18119, .10256, 12.41973, .70867, .51185,
1107 + .40224, .62070, .71568,
1108 + .18295, .10354, 12.49616, .72059, .52478,
1109 + .41617, .63312, .72776 /
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 + .18474, .10453, 12.57316, .73273, .53806,
1112 + .43060, .64578, .74007,
1113 + .18646, .10549, 12.63289, .74399, .55029,
1114 + .44376, .65752, .75148,
1115 + .18812, .10640, 12.68959, .75481, .56212,
1116 + .45659, .66882, .76245,
1117 + .18967, .10725, 12.73651, .76480, .57305,
1118 + .46843, .67925, .77257,
1119 + .19123, .10810, 12.77667, .77457, .58374,
1120 + .47999, .68947, .78249 /
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 + .12476, .06976, 2.83957, .21646, .00000,
1123 + .00000, .11386, .21818,
1124 + .12698, .07122, 3.20719, .22415, .00002,
1125 + .00000, .12216, .22606,
1126 + .13032, .07340, 3.74968, .23677, .00963,
1127 + .00000, .13569, .23896,
1128 + .13279, .07500, 4.13629, .24681, .02310,
1129 + .00000, .14641, .24922,
1130 + .13541, .07667, 4.52748, .25818, .03604,
1131 + .00000, .15848, .26083,
1132 + .13768, .07813, 4.86979, .26849, .04820,
1133 + .00000, .16940, .27134,
1134 + .13988, .07951, 5.18459, .27881, .05957,
1135 + .00000, .18030, .28186,
1136 + .14221, .08098, 5.51372, .29015, .07237,
1137 + .00000, .19226, .29341 /
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 + .14426, .08226, 5.79605, .30035, .08388,
1140 + .00000, .20300, .30379,
1141 + .14623, .08348, 6.05711, .31040, .09496,
1142 + .00000, .21357, .31402,
1143 + .14779, .08445, 6.26144, .31853, .10397,
1144 + .00000, .22211, .32230,
1145 + .15113, .08650, 6.67215, .33624, .12353,
1146 + .00010, .24070, .34031,
1147 + .15402, .08826, 7.00135, .35183, .14088,
1148 + .01500, .25705, .35617,
1149 + .15724, .09021, 7.33535, .36948, .16052,
1150 + .04161, .27554, .37411,
1151 + .16058, .09220, 7.65597, .38785, .18053,
1152 + .06240, .29478, .39279,
1153 + .16359, .09399, 7.92813, .40450, .19878,
1154 + .08246, .31221, .40972 /
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 + .16663, .09577, 8.18762, .42132, .21736,
1157 + .10331, .32983, .42683,
1158 + .16913, .09723, 8.38670, .43516, .23256,
1159 + .11992, .34433, .44090,
1160 + .17214, .09898, 8.60947, .45172, .25073,
1161 + .13978, .36168, .45775,
1162 + .17480, .10050, 8.79659, .46636, .26695,
1163 + .15779, .37701, .47263,
1164 + .17720, .10188, 8.94884, .47939, .28119,
1165 + .17318, .39067, .48588,
1166 + .18024, .10360, 9.13028, .49578, .29928,
1167 + .19302, .40786, .50257,
1168 + .18308, .10520, 9.28762, .51100, .31614,
1169 + .21158, .42383, .51805,
1170 + .18570, .10666, 9.41394, .52468, .33118,
1171 + .22788, .43820, .53198 /
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 + .18830, .10810, 9.53394, .53831, .34631,
1174 + .24452, .45253, .54585,
1175 + .19082, .10949, 9.63525, .55114, .36050,
1176 + .25998, .46604, .55892,
1177 + .19319, .11079, 9.72315, .56310, .37380,
1178 + .27456, .47863, .57110,
1179 + .19540, .11198, 9.79576, .57403, .38596,
1180 + .28785, .49015, .58224,
1181 + .19760, .11317, 9.86156, .58480, .39798,
1182 + .30104, .50152, .59321,
1183 + .19974, .11432, 9.91700, .59505, .40942,
1184 + .31356, .51235, .60366,
1185 + .20177, .11540, 9.96498, .60465, .42019,
1186 + .32541, .52251, .61346,
1187 + .20365, .11640, 10.00108, .61333, .42991,
1188 + .33606, .53170, .62231 /
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 + .20556, .11741, 10.03737, .62215, .43988,
1191 + .34706, .54105, .63131,
1192 + .20740, .11837, 10.06075, .63024, .44897,
1193 + .35702, .54964, .63957,
1194 + .20915, .11929, 10.08285, .63800, .45776,
1195 + .36671, .55789, .64749,
1196 + .21080, .12014, 10.09860, .64511, .46583,
1197 + .37562, .56547, .65476,
1198 + .21244, .12099, 10.10903, .65203, .47369,
1199 + .38428, .57284, .66183 /
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 + .13600, .07834, 2.73733, .20832, .00000,
1202 + .00000, .10967, .21071,
1203 + .13849, .07993, 3.05947, .21543, .00002,
1204 + .00000, .11741, .21805,
1205 + .14223, .08231, 3.53025, .22698, .00890,
1206 + .00000, .12989, .22995,
1207 + .14499, .08405, 3.86220, .23607, .02129,
1208 + .00000, .13967, .23931,
1209 + .14790, .08587, 4.19566, .24627, .03309,
1210 + .00000, .15058, .24979,
1211 + .15043, .08744, 4.48534, .25546, .04408,
1212 + .00000, .16040, .25922,
1213 + .15287, .08893, 4.74985, .26459, .05431,
1214 + .00000, .17013, .26858,
1215 + .15545, .09051, 5.02451, .27457, .06575,
1216 + .00000, .18074, .27881 /
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 + .15771, .09188, 5.25862, .28349, .07598,
1219 + .00000, .19023, .28795,
1220 + .15988, .09319, 5.47366, .29223, .08577,
1221 + .00000, .19950, .29690,
1222 + .16160, .09422, 5.64112, .29928, .09372,
1223 + .00000, .20698, .30412,
1224 + .16528, .09641, 5.97425, .31454, .11086,
1225 + .00009, .22314, .31973,
1226 + .16844, .09827, 6.23765, .32789, .12598,
1227 + .01315, .23727, .33339,
1228 + .17197, .10033, 6.50071, .34289, .14297,
1229 + .03638, .25314, .34873,
1230 + .17560, .10243, 6.74953, .35838, .16018,
1231 + .05440, .26953, .36458,
1232 + .17888, .10430, 6.95821, .37233, .17577,
1233 + .07169, .28430, .37885 /
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 + .18217, .10617, 7.15481, .38634, .19156,
1236 + .08957, .29913, .39318,
1237 + .18488, .10769, 7.30336, .39779, .20440,
1238 + .10373, .31126, .40490,
1239 + .18812, .10949, 7.46692, .41141, .21968,
1240 + .12060, .32570, .41884,
1241 + .19098, .11108, 7.60256, .42339, .23325,
1242 + .13582, .33840, .43109,
1243 + .19356, .11249, 7.71055, .43398, .24510,
1244 + .14876, .34964, .44193,
1245 + .19680, .11426, 7.83716, .44723, .26009,
1246 + .16537, .36373, .45550,
1247 + .19984, .11589, 7.94465, .45946, .27399,
1248 + .18084, .37674, .46803,
1249 + .20262, .11738, 8.02771, .47037, .28631,
1250 + .19435, .38836, .47921 /
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 + .20539, .11885, 8.10530, .48118, .29865,
1253 + .20810, .39990, .49029,
1254 + .20805, .12025, 8.16770, .49130, .31017,
1255 + .22080, .41071, .50066,
1256 + .21055, .12155, 8.22018, .50067, .32092,
1257 + .23273, .42074, .51028,
1258 + .21287, .12276, 8.26134, .50919, .33069,
1259 + .24357, .42988, .51903,
1260 + .21518, .12395, 8.29673, .51754, .34032,
1261 + .25428, .43885, .52760,
1262 + .21742, .12509, 8.32387, .52544, .34944,
1263 + .26441, .44734, .53570,
1264 + .21953, .12617, 8.34589, .53280, .35800,
1265 + .27396, .45528, .54326,
1266 + .22149, .12716, 8.35932, .53940, .36568,
1267 + .28250, .46242, .55006 /
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 + .22348, .12816, 8.37279, .54611, .37354,
1270 + .29132, .46966, .55695,
1271 + .22538, .12910, 8.37614, .55218, .38066,
1272 + .29925, .47626, .56320,
1273 + .22720, .13000, 8.37924, .55799, .38753,
1274 + .30695, .48258, .56919,
1275 + .22890, .13084, 8.37810, .56329, .39381,
1276 + .31400, .48836, .57465,
1277 + .23059, .13167, 8.37267, .56840, .39989,
1278 + .32083, .49395, .57993 /
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 + .15623, .09367, 2.56251, .19662, .00000,
1281 + .00000, .10375, .20056,
1282 + .15918, .09547, 2.82122, .20280, .00002,
1283 + .00000, .11060, .20704,
1284 + .16360, .09813, 3.19341, .21266, .00781,
1285 + .00000, .12146, .21737,
1286 + .16685, .10006, 3.45126, .22031, .01860,
1287 + .00000, .12985, .22536,
1288 + .17026, .10207, 3.70708, .22876, .02873,
1289 + .00000, .13907, .23417,
1290 + .17322, .10380, 3.92676, .23631, .03807,
1291 + .00000, .14729, .24202,
1292 + .17605, .10544, 4.12498, .24372, .04666,
1293 + .00000, .15535, .24972,
1294 + .17905, .10717, 4.32838, .25175, .05620,
1295 + .00000, .16406, .25807 /
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 + .18167, .10865, 4.49986, .25886, .06466,
1298 + .00000, .17178, .26546,
1299 + .18417, .11007, 4.65552, .26577, .07270,
1300 + .00000, .17927, .27263,
1301 + .18615, .11118, 4.77569, .27131, .07917,
1302 + .00000, .18527, .27838,
1303 + .19035, .11353, 5.01025, .28318, .09304,
1304 + .00008, .19812, .29069,
1305 + .19395, .11551, 5.19099, .29345, .10513,
1306 + .01064, .20923, .30133,
1307 + .19795, .11769, 5.36580, .30487, .11861,
1308 + .02933, .22159, .31316,
1309 + .20205, .11990, 5.52675, .31651, .13209,
1310 + .04366, .23420, .32523,
1311 + .20571, .12185, 5.65819, .32686, .14420,
1312 + .05729, .24544, .33596 /
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 + .20938, .12378, 5.77892, .33715, .15635,
1315 + .07127, .25662, .34663,
1316 + .21238, .12535, 5.86727, .34548, .16615,
1317 + .08226, .26568, .35527,
1318 + .21596, .12720, 5.96103, .35528, .17771,
1319 + .09524, .27635, .36543,
1320 + .21910, .12881, 6.03654, .36381, .18789,
1321 + .10687, .28566, .37428,
1322 + .22192, .13023, 6.09316, .37126, .19671,
1323 + .11668, .29382, .38202,
1324 + .22545, .13200, 6.15681, .38050, .20777,
1325 + .12919, .30395, .39162,
1326 + .22873, .13363, 6.20774, .38894, .21795,
1327 + .14075, .31322, .40039,
1328 + .23172, .13510, 6.24225, .39635, .22687,
1329 + .15075, .32141, .40810 /
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 + .23468, .13654, 6.27265, .40364, .23576,
1332 + .16086, .32947, .41569,
1333 + .23752, .13790, 6.29253, .41037, .24398,
1334 + .17014, .33694, .42269,
1335 + .24016, .13916, 6.30657, .41654, .25158,
1336 + .17880, .34381, .42912,
1337 + .24260, .14032, 6.31385, .42208, .25845,
1338 + .18661, .35001, .43490,
1339 + .24503, .14145, 6.31699, .42745, .26516,
1340 + .19428, .35604, .44051,
1341 + .24737, .14254, 6.31475, .43246, .27147,
1342 + .20148, .36169, .44575,
1343 + .24957, .14355, 6.31000, .43709, .27735,
1344 + .20823, .36693, .45060,
1345 + .25160, .14447, 6.30034, .44118, .28258,
1346 + .21423, .37158, .45487 /
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 + .25365, .14540, 6.29067, .44531, .28791,
1349 + .22040, .37629, .45920,
1350 + .25559, .14627, 6.27418, .44897, .29268,
1351 + .22589, .38050, .46304,
1352 + .25745, .14709, 6.25853, .45246, .29727,
1353 + .23121, .38453, .46671,
1354 + .25918, .14786, 6.24104, .45559, .30143,
1355 + .23605, .38816, .47001,
1356 + .26089, .14860, 6.22059, .45857, .30542,
1357 + .24070, .39164, .47314 /
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 + .18343, .11361, 2.35044, .18437, .00000,
1360 + .00000, .09777, .19095,
1361 + .18695, .11558, 2.54917, .18947, .00001,
1362 + .00000, .10362, .19645,
1363 + .19219, .11849, 2.82971, .19747, .00667,
1364 + .00000, .11275, .20505,
1365 + .19601, .12058, 3.01995, .20357, .01583,
1366 + .00000, .11969, .21158,
1367 + .20000, .12274, 3.20560, .21021, .02429,
1368 + .00000, .12719, .21867,
1369 + .20345, .12459, 3.36282, .21607, .03201,
1370 + .00000, .13381, .22492,
1371 + .20673, .12633, 3.50246, .22175, .03902,
1372 + .00000, .14022, .23097,
1373 + .21019, .12814, 3.64367, .22785, .04674,
1374 + .00000, .14709, .23745 /
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 + .21319, .12970, 3.76109, .23320, .05352,
1377 + .00000, .15312, .24314,
1378 + .21605, .13118, 3.86585, .23834, .05991,
1379 + .00000, .15890, .24859,
1380 + .21830, .13233, 3.94577, .24243, .06502,
1381 + .00000, .16351, .25293,
1382 + .22306, .13474, 4.09757, .25110, .07586,
1383 + .00007, .17327, .26212,
1384 + .22711, .13676, 4.21002, .25850, .08521,
1385 + .00833, .18161, .26996,
1386 + .23158, .13897, 4.31307, .26661, .09551,
1387 + .02290, .19076, .27855,
1388 + .23610, .14117, 4.40362, .27474, .10569,
1389 + .03391, .19996, .28716,
1390 + .24013, .14310, 4.47404, .28186, .11471,
1391 + .04428, .20805, .29470 /
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 + .24414, .14499, 4.53566, .28884, .12369,
1394 + .05482, .21601, .30211,
1395 + .24739, .14651, 4.57776, .29440, .13085,
1396 + .06303, .22238, .30801,
1397 + .25125, .14828, 4.61874, .30085, .13920,
1398 + .07263, .22979, .31486,
1399 + .25460, .14981, 4.64935, .30640, .14651,
1400 + .08118, .23619, .32076,
1401 + .25759, .15115, 4.66809, .31116, .15275,
1402 + .08831, .24171, .32581,
1403 + .26131, .15280, 4.68606, .31698, .16052,
1404 + .09733, .24850, .33201,
1405 + .26474, .15431, 4.69670, .32221, .16760,
1406 + .10560, .25464, .33758,
1407 + .26784, .15563, 4.69746, .32670, .17372,
1408 + .11267, .25995, .34237 /
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 + .27090, .15693, 4.69547, .33105, .17978,
1411 + .11979, .26514, .34703,
1412 + .27379, .15814, 4.68681, .33499, .18530,
1413 + .12623, .26987, .35124,
1414 + .27647, .15925, 4.67544, .33854, .19037,
1415 + .13221, .27416, .35504,
1416 + .27894, .16025, 4.66075, .34165, .19490,
1417 + .13756, .27798, .35839,
1418 + .28136, .16123, 4.64333, .34462, .19929,
1419 + .14277, .28165, .36159,
1420 + .28368, .16215, 4.62280, .34731, .20336,
1421 + .14762, .28502, .36450,
1422 + .28585, .16300, 4.60177, .34977, .20713,
1423 + .15214, .28812, .36716,
1424 + .28783, .16376, 4.57864, .35186, .21044,
1425 + .15611, .29081, .36943 /
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 + .28983, .16453, 4.55559, .35397, .21380,
1428 + .16019, .29353, .37173,
1429 + .29170, .16522, 4.52847, .35574, .21674,
1430 + .16377, .29588, .37366,
1431 + .29348, .16588, 4.50287, .35741, .21957,
1432 + .16722, .29811, .37549,
1433 + .29513, .16648, 4.47700, .35887, .22210,
1434 + .17034, .30010, .37709,
1435 + .29675, .16706, 4.44919, .36020, .22450,
1436 + .17330, .30195, .37856 /
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 + .22454, .14158, 2.08130, .16926, .00000,
1439 + .00000, .09086, .18090,
1440 + .22873, .14364, 2.22157, .17305, .00001,
1441 + .00000, .09554, .18519,
1442 + .23492, .14664, 2.41443, .17888, .00544,
1443 + .00000, .10270, .19176,
1444 + .23940, .14878, 2.54109, .18325, .01284,
1445 + .00000, .10805, .19664,
1446 + .24402, .15096, 2.66169, .18790, .01956,
1447 + .00000, .11372, .20182,
1448 + .24800, .15280, 2.76185, .19196, .02560,
1449 + .00000, .11865, .20633,
1450 + .25174, .15452, 2.84857, .19582, .03101,
1451 + .00000, .12336, .21062,
1452 + .25566, .15629, 2.93419, .19991, .03691,
1453 + .00000, .12833, .21515 /
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 + .25903, .15781, 3.00378, .20346, .04203,
1456 + .00000, .13265, .21907,
1457 + .26222, .15921, 3.06404, .20681, .04680,
1458 + .00000, .13675, .22276,
1459 + .26473, .16031, 3.10911, .20945, .05059,
1460 + .00000, .13998, .22568,
1461 + .26996, .16256, 3.19027, .21496, .05852,
1462 + .00006, .14672, .23174,
1463 + .27437, .16443, 3.24557, .21956, .06527,
1464 + .00613, .15238, .23681,
1465 + .27919, .16644, 3.28989, .22449, .07260,
1466 + .01678, .15849, .24225,
1467 + .28399, .16839, 3.32400, .22931, .07971,
1468 + .02468, .16450, .24754,
1469 + .28823, .17007, 3.34645, .23341, .08593,
1470 + .03204, .16968, .25207 /
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 + .29240, .17170, 3.36241, .23734, .09204,
1473 + .03943, .17469, .25642,
1474 + .29573, .17298, 3.36944, .24040, .09684,
1475 + .04511, .17863, .25979,
1476 + .29964, .17444, 3.37113, .24384, .10236,
1477 + .05169, .18312, .26361,
1478 + .30301, .17568, 3.36895, .24674, .10714,
1479 + .05749, .18694, .26682,
1480 + .30596, .17674, 3.36099, .24912, .11115,
1481 + .06226, .19014, .26947,
1482 + .30961, .17801, 3.34725, .25195, .11609,
1483 + .06825, .19402, .27263,
1484 + .31294, .17915, 3.33049, .25442, .12053,
1485 + .07367, .19745, .27538,
1486 + .31587, .18012, 3.30920, .25641, .12429,
1487 + .07823, .20032, .27762 /
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 + .31874, .18105, 3.28652, .25830, .12797,
1490 + .08278, .20308, .27975,
1491 + .32142, .18188, 3.26034, .25989, .13126,
1492 + .08685, .20552, .28156,
1493 + .32388, .18262, 3.23397, .26126, .13424,
1494 + .09059, .20767, .28313,
1495 + .32611, .18327, 3.20701, .26238, .13687,
1496 + .09389, .20953, .28442,
1497 + .32827, .18389, 3.17864, .26339, .13937,
1498 + .09708, .21127, .28559,
1499 + .33030, .18445, 3.14898, .26423, .14166,
1500 + .10000, .21281, .28658,
1501 + .33219, .18495, 3.12016, .26495, .14374,
1502 + .10271, .21419, .28743,
1503 + .33387, .18538, 3.09117, .26547, .14553,
1504 + .10505, .21533, .28807 /
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 + .33557, .18581, 3.06240, .26599, .14734,
1507 + .10744, .21647, .28871,
1508 + .33711, .18616, 3.03170, .26629, .14887,
1509 + .10950, .21736, .28910,
1510 + .33858, .18649, 3.00287, .26657, .15034,
1511 + .11148, .21821, .28948,
1512 + .33991, .18678, 2.97481, .26674, .15162,
1513 + .11324, .21892, .28973,
1514 + .34119, .18703, 2.94570, .26682, .15281,
1515 + .11489, .21953, .28988 /
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 + .26261, .16501, 1.87974, .15664, .00000,
1518 + .00000, .08549, .17374,
1519 + .26721, .16700, 1.98484, .15949, .00001,
1520 + .00000, .08934, .17711,
1521 + .27394, .16986, 2.12582, .16381, .00462,
1522 + .00000, .09514, .18219,
1523 + .27877, .17187, 2.21550, .16699, .01085,
1524 + .00000, .09940, .18591,
1525 + .28371, .17388, 2.29874, .17033, .01644,
1526 + .00000, .10385, .18978,
1527 + .28794, .17558, 2.36656, .17320, .02142,
1528 + .00000, .10769, .19310,
1529 + .29188, .17713, 2.42358, .17590, .02582,
1530 + .00000, .11131, .19621,
1531 + .29599, .17872, 2.47839, .17871, .03058,
1532 + .00000, .11509, .19945 /
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 + .29949, .18006, 2.52176, .18112, .03468,
1535 + .00000, .11833, .20221,
1536 + .30278, .18129, 2.55788, .18337, .03847,
1537 + .00000, .12138, .20478,
1538 + .30535, .18224, 2.58419, .18512, .04145,
1539 + .00000, .12376, .20678,
1540 + .31067, .18416, 2.62799, .18870, .04765,
1541 + .00006, .12867, .21087,
1542 + .31510, .18572, 2.65378, .19163, .05286,
1543 + .00482, .13273, .21422,
1544 + .31989, .18736, 2.66863, .19470, .05845,
1545 + .01313, .13703, .21773,
1546 + .32460, .18890, 2.67494, .19758, .06380,
1547 + .01922, .14118, .22102,
1548 + .32870, .19020, 2.67430, .19996, .06842,
1549 + .02484, .14469, .22374 /
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 + .33268, .19143, 2.66880, .20218, .07291,
1552 + .03043, .14802, .22628,
1553 + .33581, .19237, 2.65977, .20383, .07640,
1554 + .03469, .15058, .22818,
1555 + .33944, .19340, 2.64402, .20562, .08036,
1556 + .03957, .15344, .23023,
1557 + .34255, .19426, 2.62763, .20706, .08375,
1558 + .04384, .15583, .23189,
1559 + .34523, .19494, 2.60850, .20816, .08656,
1560 + .04731, .15777, .23318,
1561 + .34849, .19575, 2.58200, .20941, .08998,
1562 + .05164, .16008, .23465,
1563 + .35141, .19644, 2.55474, .21042, .09301,
1564 + .05551, .16206, .23584,
1565 + .35394, .19697, 2.52552, .21112, .09553,
1566 + .05873, .16365, .23669 /
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 + .35639, .19747, 2.49572, .21173, .09798,
1569 + .06193, .16514, .23744,
1570 + .35862, .19787, 2.46417, .21214, .10012,
1571 + .06474, .16638, .23795,
1572 + .36063, .19821, 2.43353, .21242, .10204,
1573 + .06731, .16744, .23833,
1574 + .36241, .19847, 2.40348, .21257, .10370,
1575 + .06956, .16831, .23855,
1576 + .36412, .19869, 2.37272, .21262, .10526,
1577 + .07170, .16908, .23867,
1578 + .36569, .19885, 2.34158, .21256, .10666,
1579 + .07365, .16970, .23865,
1580 + .36712, .19898, 2.31184, .21244, .10792,
1581 + .07544, .17023, .23857,
1582 + .36836, .19905, 2.28280, .21222, .10897,
1583 + .07696, .17061, .23838 /
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 + .36961, .19912, 2.25409, .21200, .11003,
1586 + .07852, .17099, .23818,
1587 + .37069, .19912, 2.22442, .21162, .11089,
1588 + .07982, .17119, .23781,
1589 + .37170, .19911, 2.19666, .21126, .11170,
1590 + .08108, .17138, .23745,
1591 + .37260, .19908, 2.17004, .21085, .11240,
1592 + .08218, .17148, .23705,
1593 + .37344, .19900, 2.14283, .21037, .11301,
1594 + .08320, .17151, .23656 /
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 + .33243, .20242, 1.59633, .13430, .00000,
1597 + .00000, .07642, .16208,
1598 + .33724, .20398, 1.65988, .13590, .00001,
1599 + .00000, .07912, .16410,
1600 + .34417, .20615, 1.74056, .13827, .00355,
1601 + .00000, .08310, .16704,
1602 + .34906, .20762, 1.78808, .13995, .00829,
1603 + .00000, .08595, .16910,
1604 + .35395, .20902, 1.82919, .14165, .01245,
1605 + .00000, .08884, .17117,
1606 + .35808, .21017, 1.86103, .14308, .01610,
1607 + .00000, .09128, .17289,
1608 + .36186, .21117, 1.88543, .14437, .01927,
1609 + .00000, .09353, .17443,
1610 + .36573, .21216, 1.90687, .14567, .02265,
1611 + .00000, .09583, .17597 /
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 + .36899, .21297, 1.92223, .14675, .02552,
1614 + .00000, .09778, .17724,
1615 + .37198, .21367, 1.93290, .14770, .02814,
1616 + .00000, .09955, .17836,
1617 + .37429, .21419, 1.93966, .14843, .03017,
1618 + .00000, .10092, .17921,
1619 + .37897, .21517, 1.94526, .14984, .03434,
1620 + .00005, .10366, .18083,
1621 + .38278, .21590, 1.94170, .15090, .03777,
1622 + .00329, .10586, .18205,
1623 + .38677, .21659, 1.92825, .15191, .04139,
1624 + .00890, .10809, .18320,
1625 + .39054, .21713, 1.90875, .15272, .04476,
1626 + .01293, .11013, .18410,
1627 + .39371, .21750, 1.88747, .15327, .04761,
1628 + .01658, .11177, .18471 /
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 + .39669, .21777, 1.86341, .15368, .05033,
1631 + .02016, .11326, .18515,
1632 + .39895, .21791, 1.84103, .15390, .05239,
1633 + .02285, .11433, .18535,
1634 + .40146, .21796, 1.81157, .15400, .05468,
1635 + .02588, .11544, .18542,
1636 + .40353, .21795, 1.78457, .15399, .05661,
1637 + .02849, .11632, .18538,
1638 + .40521, .21784, 1.75774, .15384, .05816,
1639 + .03058, .11695, .18516,
1640 + .40716, .21764, 1.72306, .15354, .06000,
1641 + .03314, .11763, .18477,
1642 + .40882, .21736, 1.68978, .15317, .06160,
1643 + .03540, .11814, .18429,
1644 + .41011, .21700, 1.65708, .15266, .06287,
1645 + .03723, .11843, .18365 /
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 + .41131, .21660, 1.62465, .15211, .06408,
1648 + .03903, .11867, .18297,
1649 + .41228, .21612, 1.59211, .15145, .06509,
1650 + .04058, .11876, .18215,
1651 + .41308, .21563, 1.56143, .15077, .06598,
1652 + .04197, .11877, .18132,
1653 + .41371, .21511, 1.53233, .15005, .06671,
1654 + .04316, .11869, .18046,
1655 + .41423, .21456, 1.50324, .14929, .06737,
1656 + .04428, .11855, .17954,
1657 + .41462, .21396, 1.47457, .14848, .06793,
1658 + .04527, .11834, .17856,
1659 + .41492, .21337, 1.44763, .14768, .06842,
1660 + .04617, .11810, .17759,
1661 + .41507, .21277, 1.42202, .14686, .06879,
1662 + .04692, .11780, .17660 /
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 + .41521, .21217, 1.39682, .14605, .06917,
1665 + .04767, .11750, .17560,
1666 + .41519, .21149, 1.37160, .14515, .06942,
1667 + .04827, .11709, .17454,
1668 + .41516, .21085, 1.34811, .14431, .06966,
1669 + .04885, .11670, .17353,
1670 + .41506, .21021, 1.32596, .14347, .06984,
1671 + .04934, .11630, .17253,
1672 + .41487, .20954, 1.30367, .14259, .06996,
1673 + .04978, .11585, .17148 /
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 + .39497, .23051, 1.40509, .11433, .00000,
1676 + .00000, .06830, .15113,
1677 + .39938, .23142, 1.44369, .11521, .00001,
1678 + .00000, .07024, .15215,
1679 + .40560, .23259, 1.48886, .11644, .00286,
1680 + .00000, .07304, .15356,
1681 + .40988, .23331, 1.51207, .11728, .00664,
1682 + .00000, .07498, .15446,
1683 + .41406, .23390, 1.52931, .11807, .00991,
1684 + .00000, .07691, .15529,
1685 + .41751, .23433, 1.54114, .11870, .01274,
1686 + .00000, .07850, .15594,
1687 + .42059, .23465, 1.54768, .11923, .01516,
1688 + .00000, .07993, .15644,
1689 + .42367, .23490, 1.55118, .11972, .01770,
1690 + .00000, .08135, .15688 /
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 + .42621, .23505, 1.55175, .12010, .01984,
1693 + .00000, .08252, .15719,
1694 + .42847, .23511, 1.54923, .12038, .02176,
1695 + .00000, .08356, .15740,
1696 + .43018, .23512, 1.54602, .12058, .02325,
1697 + .00000, .08434, .15752,
1698 + .43352, .23503, 1.53271, .12088, .02624,
1699 + .00004, .08585, .15763,
1700 + .43610, .23483, 1.51529, .12102, .02867,
1701 + .00240, .08699, .15756,
1702 + .43868, .23447, 1.48927, .12103, .03118,
1703 + .00648, .08809, .15733,
1704 + .44092, .23390, 1.45894, .12085, .03346,
1705 + .00934, .08900, .15685,
1706 + .44264, .23328, 1.42959, .12055, .03535,
1707 + .01191, .08965, .15626 /
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 + .44413, .23256, 1.39884, .12015, .03712,
1710 + .01439, .09018, .15554,
1711 + .44514, .23188, 1.37215, .11972, .03843,
1712 + .01623, .09050, .15482,
1713 + .44609, .23094, 1.33882, .11909, .03986,
1714 + .01827, .09074, .15383,
1715 + .44677, .23006, 1.30927, .11848, .04103,
1716 + .02001, .09087, .15288,
1717 + .44714, .22916, 1.28128, .11781, .04195,
1718 + .02138, .09087, .15189,
1719 + .44743, .22797, 1.24598, .11690, .04301,
1720 + .02303, .09079, .15057,
1721 + .44752, .22678, 1.21298, .11600, .04391,
1722 + .02447, .09062, .14926,
1723 + .44732, .22557, 1.18167, .11504, .04458,
1724 + .02561, .09033, .14791 /
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 + .44703, .22434, 1.15107, .11407, .04521,
1727 + .02672, .09000, .14655,
1728 + .44653, .22306, 1.12113, .11304, .04571,
1729 + .02765, .08959, .14513,
1730 + .44594, .22182, 1.09330, .11204, .04612,
1731 + .02848, .08916, .14376,
1732 + .44525, .22061, 1.06735, .11107, .04643,
1733 + .02917, .08870, .14241,
1734 + .44446, .21936, 1.04174, .11006, .04670,
1735 + .02981, .08820, .14104,
1736 + .44356, .21810, 1.01688, .10904, .04690,
1737 + .03036, .08766, .13966,
1738 + .44265, .21688, .99376, .10806, .04706,
1739 + .03085, .08712, .13834,
1740 + .44164, .21569, .97208, .10709, .04715,
1741 + .03125, .08657, .13705 /
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 + .44064, .21450, .95085, .10614, .04724,
1744 + .03165, .08602, .13576,
1745 + .43947, .21325, .92997, .10514, .04726,
1746 + .03195, .08542, .13443,
1747 + .43835, .21208, .91061, .10420, .04727,
1748 + .03223, .08484, .13318,
1749 + .43722, .21095, .89251, .10330, .04725,
1750 + .03246, .08428, .13197,
1751 + .43599, .20979, .87448, .10237, .04720,
1752 + .03266, .08368, .13074 /
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 + .45038, .25143, 1.26414, .09663, .00000,
1755 + .00000, .06076, .13984,
1756 + .45393, .25158, 1.28525, .09707, .00001,
1757 + .00000, .06216, .14008,
1758 + .45878, .25161, 1.30598, .09766, .00236,
1759 + .00000, .06412, .14032,
1760 + .46199, .25150, 1.31283, .09802, .00546,
1761 + .00000, .06545, .14037,
1762 + .46496, .25120, 1.31429, .09830, .00810,
1763 + .00000, .06671, .14030,
1764 + .46735, .25087, 1.31314, .09850, .01035,
1765 + .00000, .06772, .14017,
1766 + .46938, .25045, 1.30835, .09860, .01225,
1767 + .00000, .06860, .13994,
1768 + .47130, .24992, 1.30068, .09864, .01423,
1769 + .00000, .06945, .13960 /
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 + .47281, .24939, 1.29221, .09864, .01587,
1772 + .00000, .07013, .13926,
1773 + .47407, .24879, 1.28184, .09856, .01734,
1774 + .00000, .07069, .13885,
1775 + .47497, .24828, 1.27280, .09848, .01846,
1776 + .00000, .07110, .13850,
1777 + .47654, .24707, 1.24886, .09820, .02068,
1778 + .00003, .07183, .13761,
1779 + .47757, .24592, 1.22406, .09787, .02246,
1780 + .00183, .07234, .13672,
1781 + .47839, .24452, 1.19187, .09738, .02426,
1782 + .00489, .07276, .13561,
1783 + .47873, .24290, 1.15679, .09673, .02586,
1784 + .00701, .07300, .13428,
1785 + .47873, .24133, 1.12432, .09604, .02716,
1786 + .00889, .07308, .13296 /
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 + .47850, .23966, 1.09140, .09527, .02835,
1789 + .01069, .07307, .13154,
1790 + .47807, .23820, 1.06376, .09455, .02921,
1791 + .01200, .07296, .13030,
1792 + .47728, .23634, 1.03015, .09362, .03013,
1793 + .01344, .07272, .12871,
1794 + .47642, .23467, 1.00092, .09276, .03087,
1795 + .01465, .07247, .12727,
1796 + .47536, .23306, .97394, .09190, .03142,
1797 + .01558, .07213, .12587,
1798 + .47385, .23099, .94045, .09079, .03204,
1799 + .01670, .07166, .12406,
1800 + .47227, .22900, .90968, .08970, .03255,
1801 + .01767, .07115, .12234,
1802 + .47052, .22703, .88107, .08861, .03290,
1803 + .01841, .07059, .12066 /
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 + .46869, .22507, .85339, .08752, .03321,
1806 + .01913, .07000, .11898,
1807 + .46667, .22310, .82678, .08642, .03343,
1808 + .01972, .06937, .11728,
1809 + .46468, .22122, .80230, .08537, .03360,
1810 + .02023, .06875, .11567,
1811 + .46271, .21941, .77974, .08435, .03371,
1812 + .02065, .06813, .11414,
1813 + .46062, .21759, .75767, .08332, .03378,
1814 + .02103, .06749, .11260,
1815 + .45845, .21577, .73648, .08229, .03381,
1816 + .02135, .06683, .11108,
1817 + .45634, .21403, .71691, .08131, .03382,
1818 + .02163, .06620, .10963,
1819 + .45423, .21236, .69877, .08036, .03378,
1820 + .02184, .06557, .10825 /
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 + .45212, .21069, .68105, .07943, .03374,
1823 + .02206, .06495, .10688,
1824 + .44986, .20899, .66384, .07848, .03365,
1825 + .02220, .06429, .10550,
1826 + .44773, .20740, .64793, .07759, .03357,
1827 + .02234, .06366, .10421,
1828 + .44564, .20587, .63317, .07673, .03347,
1829 + .02245, .06307, .10297,
1830 + .44347, .20430, .61856, .07586, .03335,
1831 + .02253, .06246, .10171 /
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 + .50953, .26945, 1.12633, .07781, .00000,
1834 + .00000, .05203, .12496,
1835 + .51153, .26860, 1.13133, .07798, .00001,
1836 + .00000, .05295, .12448,
1837 + .51402, .26715, 1.13009, .07814, .00189,
1838 + .00000, .05419, .12364,
1839 + .51546, .26595, 1.12263, .07818, .00435,
1840 + .00000, .05498, .12293,
1841 + .51652, .26453, 1.11063, .07812, .00641,
1842 + .00000, .05568, .12206,
1843 + .51722, .26324, 1.09867, .07802, .00814,
1844 + .00000, .05622, .12126,
1845 + .51760, .26190, 1.08469, .07787, .00958,
1846 + .00000, .05664, .12042,
1847 + .51777, .26039, 1.06822, .07764, .01106,
1848 + .00000, .05701, .11945 /
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 + .51776, .25903, 1.05283, .07740, .01227,
1851 + .00000, .05729, .11858,
1852 + .51751, .25764, 1.03662, .07712, .01333,
1853 + .00000, .05748, .11767,
1854 + .51721, .25651, 1.02337, .07687, .01413,
1855 + .00000, .05760, .11694,
1856 + .51622, .25401, .99219, .07627, .01571,
1857 + .00003, .05774, .11528,
1858 + .51504, .25177, .96287, .07568, .01694,
1859 + .00133, .05776, .11378,
1860 + .51341, .24916, .92755, .07493, .01816,
1861 + .00354, .05767, .11202,
1862 + .51123, .24632, .89070, .07404, .01921,
1863 + .00505, .05743, .11009,
1864 + .50895, .24366, .85768, .07316, .02004,
1865 + .00636, .05712, .10829 /
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 + .50642, .24095, .82505, .07223, .02078,
1868 + .00760, .05674, .10642,
1869 + .50410, .23864, .79833, .07143, .02130,
1870 + .00849, .05636, .10484,
1871 + .50104, .23580, .76656, .07039, .02183,
1872 + .00945, .05583, .10289,
1873 + .49822, .23328, .73937, .06946, .02225,
1874 + .01025, .05533, .10117,
1875 + .49540, .23089, .71483, .06855, .02253,
1876 + .01085, .05480, .09956,
1877 + .49170, .22787, .68481, .06740, .02284,
1878 + .01157, .05411, .09752,
1879 + .48808, .22502, .65765, .06631, .02308,
1880 + .01217, .05342, .09561,
1881 + .48444, .22229, .63288, .06524, .02321,
1882 + .01262, .05273, .09379 /
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 + .48077, .21959, .60916, .06419, .02331,
1885 + .01305, .05204, .09199,
1886 + .47701, .21690, .58670, .06313, .02336,
1887 + .01339, .05132, .09024,
1888 + .47338, .21437, .56625, .06214, .02337,
1889 + .01368, .05063, .08858,
1890 + .46985, .21200, .54762, .06121, .02335,
1891 + .01391, .04997, .08702,
1892 + .46625, .20960, .52955, .06027, .02331,
1893 + .01411, .04929, .08547,
1894 + .46266, .20723, .51238, .05933, .02324,
1895 + .01428, .04862, .08396,
1896 + .45921, .20499, .49663, .05845, .02316,
1897 + .01442, .04798, .08254,
1898 + .45585, .20287, .48218, .05761, .02306,
1899 + .01451, .04736, .08120 /
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 + .45250, .20076, .46813, .05678, .02295,
1902 + .01461, .04675, .07987,
1903 + .44905, .19863, .45464, .05595, .02282,
1904 + .01466, .04611, .07856,
1905 + .44581, .19663, .44222, .05517, .02269,
1906 + .01471, .04552, .07734,
1907 + .44268, .19474, .43077, .05443, .02256,
1908 + .01474, .04496, .07618,
1909 + .43946, .19282, .41952, .05369, .02241,
1910 + .01475, .04439, .07501 /
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 + .55744, .28006, 1.01083, .06258, .00000,
1913 + .00000, .04411, .10946,
1914 + .55756, .27822, 1.00391, .06262, .00001,
1915 + .00000, .04470, .10849,
1916 + .55721, .27531, .98693, .06258, .00153,
1917 + .00000, .04543, .10695,
1918 + .55656, .27308, .96961, .06247, .00350,
1919 + .00000, .04587, .10575,
1920 + .55541, .27057, .94866, .06226, .00512,
1921 + .00000, .04620, .10440,
1922 + .55423, .26836, .92973, .06203, .00646,
1923 + .00000, .04644, .10319,
1924 + .55278, .26616, .91008, .06176, .00756,
1925 + .00000, .04658, .10197,
1926 + .55103, .26375, .88838, .06140, .00867,
1927 + .00000, .04667, .10065 /
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 + .54936, .26160, .86908, .06106, .00958,
1930 + .00000, .04670, .09947,
1931 + .54749, .25949, .84978, .06070, .01036,
1932 + .00000, .04666, .09830,
1933 + .54591, .25782, .83439, .06040, .01095,
1934 + .00000, .04660, .09736,
1935 + .54223, .25415, .80002, .05968, .01207,
1936 + .00002, .04641, .09530,
1937 + .53879, .25092, .76924, .05900, .01293,
1938 + .00099, .04616, .09350,
1939 + .53467, .24725, .73370, .05816, .01377,
1940 + .00261, .04580, .09147,
1941 + .52990, .24337, .69764, .05723, .01447,
1942 + .00370, .04532, .08928,
1943 + .52534, .23981, .66604, .05633, .01500,
1944 + .00464, .04482, .08728 /
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 + .52059, .23620, .63538, .05540, .01546,
1947 + .00551, .04428, .08527,
1948 + .51646, .23319, .61071, .05459, .01577,
1949 + .00612, .04377, .08361,
1950 + .51125, .22952, .58189, .05359, .01607,
1951 + .00678, .04311, .08160,
1952 + .50657, .22630, .55755, .05270, .01629,
1953 + .00732, .04252, .07984,
1954 + .50207, .22331, .53592, .05186, .01643,
1955 + .00772, .04194, .07820,
1956 + .49630, .21955, .50975, .05079, .01657,
1957 + .00818, .04120, .07616,
1958 + .49082, .21603, .48637, .04978, .01665,
1959 + .00857, .04048, .07427,
1960 + .48547, .21270, .46536, .04882, .01667,
1961 + .00885, .03977, .07252 /
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 + .48015, .20943, .44542, .04787, .01667,
1964 + .00911, .03907, .07080,
1965 + .47480, .20623, .42677, .04694, .01663,
1966 + .00931, .03837, .06913,
1967 + .46973, .20323, .40991, .04606, .01657,
1968 + .00947, .03770, .06757,
1969 + .46490, .20042, .39468, .04524, .01650,
1970 + .00960, .03707, .06612,
1971 + .46003, .19762, .38003, .04442, .01641,
1972 + .00971, .03643, .06469,
1973 + .45519, .19486, .36623, .04361, .01630,
1974 + .00979, .03581, .06331,
1975 + .45060, .19226, .35365, .04286, .01619,
1976 + .00985, .03522, .06202,
1977 + .44620, .18981, .34220, .04214, .01607,
1978 + .00989, .03466, .06081 /
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 + .44183, .18738, .33111, .04144, .01595,
1981 + .00993, .03411, .05962,
1982 + .43739, .18497, .32055, .04073, .01581,
1983 + .00993, .03356, .05845,
1984 + .43323, .18271, .31086, .04008, .01568,
1985 + .00994, .03304, .05735,
1986 + .42926, .18058, .30199, .03946, .01555,
1987 + .00994, .03254, .05633,
1988 + .42522, .17842, .29331, .03884, .01541,
1989 + .00992, .03204, .05532 /
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 + .59428, .28460, .90672, .05063, .00000,
1992 + .00000, .03703, .09383,
1993 + .59234, .28183, .89107, .05060, .00001,
1994 + .00000, .03738, .09256,
1995 + .58893, .27758, .86301, .05046, .00123,
1996 + .00000, .03776, .09062,
1997 + .58605, .27441, .83910, .05029, .00281,
1998 + .00000, .03794, .08914,
1999 + .58258, .27092, .81247, .05001, .00409,
2000 + .00000, .03803, .08752,
2001 + .57941, .26788, .78933, .04973, .00514,
2002 + .00000, .03807, .08611,
2003 + .57606, .26493, .76646, .04941, .00598,
2004 + .00000, .03801, .08473,
2005 + .57231, .26174, .74204, .04902, .00683,
2006 + .00000, .03791, .08324 /
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 + .56892, .25895, .72087, .04865, .00750,
2009 + .00000, .03778, .08194,
2010 + .56544, .25621, .70028, .04826, .00808,
2011 + .00000, .03762, .08066,
2012 + .56262, .25404, .68414, .04794, .00851,
2013 + .00000, .03747, .07964,
2014 + .55631, .24936, .64919, .04720, .00932,
2015 + .00002, .03710, .07745,
2016 + .55065, .24532, .61888, .04652, .00993,
2017 + .00074, .03671, .07556,
2018 + .54410, .24080, .58486, .04572, .01050,
2019 + .00194, .03622, .07345,
2020 + .53690, .23605, .55106, .04480, .01097,
2021 + .00274, .03561, .07127,
2022 + .53021, .23175, .52195, .04395, .01131,
2023 + .00341, .03504, .06931 /
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 + .52337, .22745, .49411, .04307, .01159,
2026 + .00403, .03443, .06735,
2027 + .51758, .22387, .47206, .04233, .01177,
2028 + .00446, .03389, .06574,
2029 + .51041, .21957, .44660, .04141, .01193,
2030 + .00492, .03323, .06381,
2031 + .50405, .21582, .42532, .04060, .01204,
2032 + .00529, .03263, .06213,
2033 + .49808, .21238, .40667, .03984, .01210,
2034 + .00555, .03206, .06061,
2035 + .49051, .20806, .38433, .03888, .01213,
2036 + .00586, .03134, .05873,
2037 + .48339, .20406, .36458, .03800, .01214,
2038 + .00611, .03065, .05700,
2039 + .47658, .20032, .34705, .03716, .01210,
2040 + .00628, .02999, .05540 /
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 + .46985, .19665, .33051, .03634, .01205,
2043 + .00645, .02935, .05384,
2044 + .46320, .19307, .31519, .03552, .01198,
2045 + .00656, .02871, .05235,
2046 + .45694, .18973, .30146, .03477, .01190,
2047 + .00666, .02811, .05098,
2048 + .45103, .18662, .28915, .03405, .01180,
2049 + .00673, .02755, .04972,
2050 + .44510, .18354, .27739, .03335, .01170,
2051 + .00678, .02699, .04847,
2052 + .43927, .18054, .26637, .03267, .01159,
2053 + .00682, .02644, .04727,
2054 + .43377, .17773, .25638, .03204, .01148,
2055 + .00684, .02593, .04615,
2056 + .42853, .17509, .24735, .03144, .01136,
2057 + .00685, .02545, .04510 /
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 + .42336, .17249, .23862, .03085, .01125,
2060 + .00686, .02497, .04407,
2061 + .41815, .16989, .23040, .03027, .01112,
2062 + .00685, .02450, .04308,
2063 + .41327, .16747, .22287, .02973, .01100,
2064 + .00684, .02406, .04216,
2065 + .40865, .16519, .21600, .02922, .01088,
2066 + .00682, .02364, .04130,
2067 + .40400, .16291, .20932, .02869, .01076,
2068 + .00680, .02322, .04045 /
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 + .62053, .28413, .80896, .04141, .00000,
2071 + .00000, .03076, .07863,
2072 + .61644, .28052, .78719, .04134, .00001,
2073 + .00000, .03094, .07723,
2074 + .60990, .27508, .75181, .04114, .00099,
2075 + .00000, .03109, .07512,
2076 + .60479, .27104, .72386, .04092, .00225,
2077 + .00000, .03111, .07354,
2078 + .59898, .26672, .69406, .04061, .00326,
2079 + .00000, .03104, .07186,
2080 + .59383, .26298, .66879, .04030, .00408,
2081 + .00000, .03094, .07041,
2082 + .58867, .25934, .64453, .03995, .00472,
2083 + .00000, .03080, .06898,
2084 + .58301, .25547, .61916, .03955, .00536,
2085 + .00000, .03060, .06747 /
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 + .57798, .25212, .59754, .03917, .00587,
2088 + .00000, .03040, .06617,
2089 + .57295, .24887, .57695, .03877, .00629,
2090 + .00000, .03017, .06491,
2091 + .56893, .24630, .56099, .03845, .00661,
2092 + .00000, .02997, .06391,
2093 + .56013, .24081, .52716, .03772, .00719,
2094 + .00002, .02949, .06180,
2095 + .55241, .23609, .49851, .03705, .00762,
2096 + .00055, .02905, .06000,
2097 + .54366, .23086, .46707, .03627, .00801,
2098 + .00145, .02851, .05801,
2099 + .53426, .22545, .43636, .03543, .00831,
2100 + .00203, .02790, .05595,
2101 + .52566, .22059, .41028, .03464, .00853,
2102 + .00252, .02732, .05412 /
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 + .51697, .21574, .38565, .03384, .00870,
2105 + .00296, .02672, .05233,
2106 + .50971, .21175, .36636, .03316, .00879,
2107 + .00327, .02620, .05087,
2108 + .50085, .20698, .34437, .03233, .00887,
2109 + .00358, .02557, .04915,
2110 + .49307, .20286, .32616, .03160, .00892,
2111 + .00384, .02501, .04766,
2112 + .48583, .19908, .31038, .03094, .00892,
2113 + .00402, .02448, .04632,
2114 + .47674, .19439, .29160, .03011, .00891,
2115 + .00422, .02382, .04465,
2116 + .46825, .19007, .27511, .02934, .00887,
2117 + .00438, .02321, .04313,
2118 + .46026, .18603, .26066, .02860, .00881,
2119 + .00449, .02263, .04176 /
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 + .45241, .18209, .24713, .02788, .00874,
2122 + .00459, .02206, .04043,
2123 + .44472, .17829, .23468, .02717, .00866,
2124 + .00466, .02151, .03916,
2125 + .43751, .17477, .22360, .02653, .00857,
2126 + .00471, .02099, .03800,
2127 + .43073, .17150, .21374, .02593, .00848,
2128 + .00474, .02050, .03693,
2129 + .42399, .16826, .20437, .02534, .00838,
2130 + .00477, .02002, .03588,
2131 + .41741, .16511, .19565, .02475, .00828,
2132 + .00478, .01956, .03489,
2133 + .41123, .16218, .18778, .02421, .00818,
2134 + .00479, .01913, .03397,
2135 + .40539, .15944, .18070, .02372, .00807,
2136 + .00478, .01872, .03310 /
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 + .39961, .15674, .17389, .02323, .00797,
2139 + .00478, .01833, .03224,
2140 + .39385, .15408, .16749, .02276, .00786,
2141 + .00476, .01794, .03143,
2142 + .38846, .15160, .16163, .02231, .00776,
2143 + .00474, .01757, .03067,
2144 + .38338, .14927, .15632, .02189, .00766,
2145 + .00472, .01723, .02997,
2146 + .37827, .14694, .15118, .02146, .00756,
2147 + .00470, .01689, .02928 /
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 + .63678, .27951, .71569, .03432, .00000,
2150 + .00000, .02530, .06439,
2151 + .63058, .27515, .69004, .03420, .00001,
2152 + .00000, .02536, .06300,
2153 + .62099, .26865, .65046, .03394, .00080,
2154 + .00000, .02535, .06092,
2155 + .61372, .26390, .62056, .03368, .00179,
2156 + .00000, .02529, .05938,
2157 + .60570, .25884, .58956, .03332, .00258,
2158 + .00000, .02513, .05776,
2159 + .59869, .25451, .56371, .03298, .00322,
2160 + .00000, .02496, .05637,
2161 + .59178, .25034, .53943, .03263, .00371,
2162 + .00000, .02475, .05503,
2163 + .58433, .24594, .51443, .03222, .00419,
2164 + .00000, .02451, .05360 /
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 + .57779, .24213, .49343, .03184, .00457,
2167 + .00000, .02428, .05237,
2168 + .57135, .23847, .47370, .03146, .00488,
2169 + .00000, .02402, .05120,
2170 + .56623, .23558, .45855, .03115, .00511,
2171 + .00000, .02380, .05028,
2172 + .55519, .22946, .42698, .03044, .00552,
2173 + .00002, .02330, .04835,
2174 + .54563, .22424, .40074, .02981, .00582,
2175 + .00041, .02284, .04672,
2176 + .53493, .21848, .37243, .02906, .00609,
2177 + .00108, .02230, .04497,
2178 + .52360, .21257, .34522, .02828, .00628,
2179 + .00151, .02172, .04314,
2180 + .51334, .20731, .32241, .02756, .00641,
2181 + .00186, .02117, .04154 /
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 + .50308, .20210, .30108, .02684, .00651,
2184 + .00218, .02062, .03998,
2185 + .49461, .19783, .28455, .02621, .00656,
2186 + .00239, .02016, .03871,
2187 + .48434, .19276, .26586, .02547, .00658,
2188 + .00261, .01959, .03722,
2189 + .47539, .18838, .25051, .02484, .00659,
2190 + .00279, .01909, .03594,
2191 + .46714, .18441, .23735, .02425, .00657,
2192 + .00291, .01862, .03481,
2193 + .45684, .17950, .22181, .02352, .00654,
2194 + .00304, .01805, .03341,
2195 + .44728, .17499, .20828, .02285, .00649,
2196 + .00315, .01753, .03212,
2197 + .43837, .17080, .19652, .02220, .00642,
2198 + .00322, .01703, .03099 /
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 + .42966, .16673, .18557, .02158, .00635,
2201 + .00328, .01655, .02990,
2202 + .42116, .16283, .17559, .02099, .00627,
2203 + .00331, .01608, .02885,
2204 + .41326, .15921, .16674, .02044, .00618,
2205 + .00334, .01564, .02789,
2206 + .40589, .15586, .15890, .01992, .00610,
2207 + .00336, .01523, .02703,
2208 + .39858, .15256, .15148, .01942, .00601,
2209 + .00337, .01483, .02618,
2210 + .39145, .14938, .14462, .01894, .00592,
2211 + .00337, .01445, .02537,
2212 + .38479, .14642, .13845, .01849, .00583,
2213 + .00336, .01410, .02462,
2214 + .37852, .14366, .13291, .01808, .00575,
2215 + .00335, .01377, .02393 /
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 + .37234, .14095, .12759, .01767, .00566,
2218 + .00334, .01345, .02325,
2219 + .36623, .13829, .12265, .01727, .00557,
2220 + .00332, .01313, .02261,
2221 + .36053, .13581, .11815, .01689, .00549,
2222 + .00331, .01284, .02201,
2223 + .35517, .13349, .11407, .01655, .00541,
2224 + .00328, .01257, .02146,
2225 + .34980, .13117, .11013, .01620, .00532,
2226 + .00326, .01229, .02092 /
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 + .64371, .27145, .62673, .02881, .00000,
2229 + .00000, .02060, .05153,
2230 + .63549, .26651, .59911, .02866, .00001,
2231 + .00000, .02059, .05021,
2232 + .62301, .25918, .55787, .02835, .00063,
2233 + .00000, .02049, .04825,
2234 + .61371, .25385, .52769, .02805, .00142,
2235 + .00000, .02035, .04685,
2236 + .60365, .24823, .49705, .02768, .00203,
2237 + .00000, .02013, .04537,
2238 + .59494, .24344, .47185, .02734, .00252,
2239 + .00000, .01992, .04410,
2240 + .58645, .23887, .44851, .02698, .00289,
2241 + .00000, .01969, .04289,
2242 + .57738, .23406, .42481, .02657, .00325,
2243 + .00000, .01942, .04163 /
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 + .56949, .22991, .40512, .02619, .00353,
2246 + .00000, .01917, .04056,
2247 + .56183, .22592, .38684, .02580, .00376,
2248 + .00000, .01891, .03954,
2249 + .55577, .22279, .37291, .02548, .00392,
2250 + .00000, .01869, .03875,
2251 + .54278, .21622, .34430, .02481, .00422,
2252 + .00001, .01821, .03706,
2253 + .53162, .21066, .32090, .02423, .00443,
2254 + .00031, .01779, .03564,
2255 + .51924, .20457, .29605, .02355, .00461,
2256 + .00080, .01729, .03412,
2257 + .50632, .19834, .27238, .02282, .00473,
2258 + .00112, .01676, .03257,
2259 + .49473, .19282, .25281, .02216, .00481,
2260 + .00137, .01627, .03122 /
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 + .48323, .18738, .23469, .02150, .00486,
2263 + .00160, .01578, .02991,
2264 + .47379, .18295, .22076, .02095, .00488,
2265 + .00175, .01537, .02885,
2266 + .46241, .17771, .20516, .02029, .00488,
2267 + .00190, .01488, .02762,
2268 + .45254, .17321, .19243, .01973, .00486,
2269 + .00202, .01446, .02658,
2270 + .44358, .16914, .18157, .01918, .00483,
2271 + .00211, .01406, .02566,
2272 + .43240, .16412, .16885, .01853, .00479,
2273 + .00220, .01356, .02453,
2274 + .42207, .15954, .15789, .01796, .00473,
2275 + .00226, .01311, .02352,
2276 + .41248, .15532, .14844, .01742, .00467,
2277 + .00231, .01270, .02259 /
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 + .40314, .15124, .13967, .01690, .00460,
2280 + .00234, .01231, .02170,
2281 + .39413, .14732, .13169, .01638, .00453,
2282 + .00236, .01193, .02086,
2283 + .38576, .14371, .12468, .01591, .00446,
2284 + .00238, .01157, .02010,
2285 + .37798, .14037, .11851, .01547, .00439,
2286 + .00238, .01124, .01943,
2287 + .37031, .13710, .11270, .01505, .00431,
2288 + .00238, .01091, .01878,
2289 + .36288, .13396, .10734, .01463, .00424,
2290 + .00238, .01061, .01814,
2291 + .35595, .13104, .10254, .01426, .00417,
2292 + .00237, .01032, .01755,
2293 + .34945, .12832, .09826, .01391, .00409,
2294 + .00236, .01006, .01702 /
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 + .34305, .12565, .09415, .01358, .00402,
2297 + .00235, .00980, .01650,
2298 + .33676, .12306, .09034, .01324, .00395,
2299 + .00233, .00955, .01600,
2300 + .33091, .12064, .08687, .01292, .00389,
2301 + .00231, .00932, .01554,
2302 + .32542, .11839, .08374, .01263, .00382,
2303 + .00229, .00910, .01511,
2304 + .31994, .11614, .08073, .01235, .00376,
2305 + .00227, .00889, .01469 /
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 + .64186, .26103, .54284, .02474, .00000,
2308 + .00000, .01644, .04003,
2309 + .63182, .25558, .51472, .02452, .00001,
2310 + .00000, .01639, .03888,
2311 + .61676, .24755, .47380, .02411, .00050,
2312 + .00000, .01624, .03719,
2313 + .60567, .24175, .44458, .02376, .00111,
2314 + .00000, .01607, .03599,
2315 + .59383, .23568, .41535, .02334, .00159,
2316 + .00000, .01586, .03471,
2317 + .58365, .23053, .39159, .02296, .00196,
2318 + .00000, .01566, .03363,
2319 + .57383, .22563, .36992, .02257, .00224,
2320 + .00000, .01544, .03261,
2321 + .56340, .22051, .34815, .02215, .00251,
2322 + .00000, .01518, .03154 /
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 + .55438, .21613, .33023, .02178, .00272,
2325 + .00000, .01494, .03063,
2326 + .54563, .21195, .31375, .02141, .00289,
2327 + .00000, .01470, .02976,
2328 + .53874, .20869, .30128, .02112, .00300,
2329 + .00000, .01451, .02908,
2330 + .52417, .20179, .27599, .02046, .00321,
2331 + .00001, .01407, .02770,
2332 + .51177, .19599, .25557, .01987, .00335,
2333 + .00023, .01368, .02655,
2334 + .49807, .18972, .23412, .01923, .00347,
2335 + .00060, .01324, .02529,
2336 + .48389, .18330, .21399, .01858, .00355,
2337 + .00083, .01278, .02403,
2338 + .47130, .17762, .19746, .01796, .00359,
2339 + .00101, .01237, .02294 /
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 + .45886, .17208, .18229, .01735, .00361,
2342 + .00117, .01195, .02190,
2343 + .44865, .16763, .17074, .01687, .00361,
2344 + .00128, .01160, .02106,
2345 + .43650, .16234, .15788, .01627, .00360,
2346 + .00139, .01118, .02009,
2347 + .42603, .15779, .14747, .01574, .00358,
2348 + .00147, .01083, .01927,
2349 + .41650, .15372, .13868, .01528, .00354,
2350 + .00153, .01051, .01853,
2351 + .40471, .14872, .12843, .01473, .00350,
2352 + .00159, .01011, .01762,
2353 + .39391, .14418, .11963, .01423, .00345,
2354 + .00163, .00975, .01681,
2355 + .38393, .14001, .11208, .01376, .00339,
2356 + .00165, .00940, .01611 /
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 + .37424, .13598, .10511, .01330, .00333,
2359 + .00168, .00908, .01544,
2360 + .36493, .13213, .09885, .01285, .00327,
2361 + .00169, .00878, .01478,
2362 + .35632, .12860, .09335, .01245, .00321,
2363 + .00169, .00850, .01420,
2364 + .34833, .12534, .08852, .01209, .00315,
2365 + .00169, .00823, .01368,
2366 + .34049, .12217, .08400, .01174, .00309,
2367 + .00169, .00797, .01318,
2368 + .33292, .11912, .07984, .01138, .00303,
2369 + .00168, .00772, .01272,
2370 + .32589, .11629, .07612, .01105, .00297,
2371 + .00167, .00749, .01229,
2372 + .31933, .11366, .07281, .01076, .00291,
2373 + .00166, .00729, .01188 /
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 + .31289, .11109, .06963, .01048, .00286,
2376 + .00165, .00709, .01148,
2377 + .30657, .10860, .06673, .01020, .00280,
2378 + .00163, .00689, .01112,
2379 + .30070, .10628, .06409, .00994, .00275,
2380 + .00162, .00670, .01078,
2381 + .29521, .10413, .06170, .00970, .00270,
2382 + .00160, .00654, .01046,
2383 + .28973, .10198, .05940, .00947, .00265,
2384 + .00159, .00638, .01014 /
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 + .63265, .24801, .46410, .02108, .00000,
2387 + .00000, .01316, .03046,
2388 + .62096, .24220, .43674, .02081, .00001,
2389 + .00000, .01307, .02949,
2390 + .60359, .23370, .39769, .02035, .00039,
2391 + .00000, .01288, .02809,
2392 + .59090, .22762, .37035, .01999, .00086,
2393 + .00000, .01271, .02707,
2394 + .57749, .22128, .34341, .01957, .00122,
2395 + .00000, .01249, .02601,
2396 + .56604, .21591, .32172, .01919, .00151,
2397 + .00000, .01228, .02511,
2398 + .55506, .21083, .30213, .01881, .00171,
2399 + .00000, .01206, .02427,
2400 + .54351, .20551, .28263, .01839, .00191,
2401 + .00000, .01182, .02340 /
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 + .53358, .20098, .26672, .01802, .00206,
2404 + .00000, .01161, .02267,
2405 + .52400, .19667, .25224, .01765, .00218,
2406 + .00000, .01139, .02196,
2407 + .51648, .19333, .24135, .01737, .00227,
2408 + .00000, .01122, .02141,
2409 + .50063, .18632, .21945, .01675, .00241,
2410 + .00001, .01085, .02029,
2411 + .48721, .18045, .20198, .01622, .00251,
2412 + .00017, .01051, .01936,
2413 + .47252, .17406, .18386, .01563, .00258,
2414 + .00044, .01013, .01838,
2415 + .45743, .16764, .16699, .01502, .00263,
2416 + .00060, .00972, .01739,
2417 + .44408, .16199, .15328, .01448, .00265,
2418 + .00074, .00936, .01653 /
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 + .43096, .15649, .14079, .01396, .00266,
2421 + .00085, .00900, .01570,
2422 + .42028, .15205, .13135, .01353, .00265,
2423 + .00093, .00872, .01504,
2424 + .40764, .14682, .12093, .01300, .00263,
2425 + .00100, .00838, .01429,
2426 + .39678, .14236, .11254, .01253, .00261,
2427 + .00106, .00809, .01366,
2428 + .38693, .13837, .10550, .01215, .00257,
2429 + .00109, .00782, .01310,
2430 + .37482, .13347, .09733, .01166, .00253,
2431 + .00113, .00750, .01243,
2432 + .36382, .12901, .09036, .01118, .00249,
2433 + .00116, .00719, .01185,
2434 + .35366, .12497, .08442, .01079, .00244,
2435 + .00118, .00692, .01130 /
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 + .34382, .12108, .07896, .01040, .00239,
2438 + .00119, .00667, .01079,
2439 + .33442, .11737, .07406, .01002, .00234,
2440 + .00119, .00642, .01031,
2441 + .32575, .11398, .06978, .00968, .00229,
2442 + .00119, .00620, .00988,
2443 + .31777, .11087, .06604, .00938, .00224,
2444 + .00119, .00599, .00949,
2445 + .30992, .10783, .06254, .00909, .00220,
2446 + .00119, .00579, .00911,
2447 + .30236, .10493, .05934, .00881, .00215,
2448 + .00118, .00560, .00876,
2449 + .29536, .10224, .05648, .00856, .00210,
2450 + .00117, .00543, .00843,
2451 + .28885, .09976, .05395, .00832, .00206,
2452 + .00116, .00527, .00814 /
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 + .28248, .09734, .05154, .00808, .00202,
2455 + .00115, .00512, .00785,
2456 + .27627, .09499, .04930, .00784, .00197,
2457 + .00114, .00497, .00758,
2458 + .27051, .09281, .04728, .00762, .00193,
2459 + .00113, .00482, .00732,
2460 + .26514, .09078, .04546, .00742, .00190,
2461 + .00112, .00469, .00710,
2462 + .25980, .08876, .04373, .00722, .00186,
2463 + .00110, .00456, .00688 /
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 + .61649, .23352, .39183, .01808, .00000,
2466 + .00000, .01035, .02251,
2467 + .60342, .22747, .36609, .01776, .00000,
2468 + .00000, .01025, .02175,
2469 + .58414, .21867, .32996, .01725, .00030,
2470 + .00000, .01006, .02061,
2471 + .57016, .21241, .30509, .01689, .00066,
2472 + .00000, .00990, .01978,
2473 + .55549, .20591, .28087, .01645, .00093,
2474 + .00000, .00968, .01894,
2475 + .54303, .20042, .26156, .01607, .00115,
2476 + .00000, .00950, .01824,
2477 + .53116, .19524, .24429, .01569, .00130,
2478 + .00000, .00931, .01757,
2479 + .51872, .18985, .22723, .01528, .00144,
2480 + .00000, .00910, .01689 /
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 + .50807, .18528, .21342, .01492, .00155,
2483 + .00000, .00891, .01632,
2484 + .49787, .18093, .20095, .01458, .00164,
2485 + .00000, .00871, .01578,
2486 + .48989, .17755, .19163, .01430, .00170,
2487 + .00000, .00856, .01537,
2488 + .47313, .17055, .17306, .01373, .00180,
2489 + .00001, .00822, .01451,
2490 + .45902, .16471, .15839, .01323, .00186,
2491 + .00012, .00793, .01379,
2492 + .44366, .15836, .14335, .01269, .00191,
2493 + .00032, .00762, .01304,
2494 + .42800, .15202, .12946, .01214, .00193,
2495 + .00044, .00729, .01229,
2496 + .41423, .14647, .11827, .01164, .00194,
2497 + .00053, .00700, .01164 /
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 + .40077, .14107, .10814, .01116, .00194,
2500 + .00062, .00671, .01101,
2501 + .38986, .13675, .10053, .01077, .00193,
2502 + .00067, .00648, .01052,
2503 + .37696, .13167, .09219, .01033, .00191,
2504 + .00072, .00620, .00995,
2505 + .36592, .12735, .08551, .00995, .00188,
2506 + .00076, .00596, .00948,
2507 + .35599, .12350, .07993, .00960, .00186,
2508 + .00078, .00575, .00907,
2509 + .34379, .11879, .07350, .00919, .00182,
2510 + .00081, .00549, .00858,
2511 + .33271, .11452, .06803, .00882, .00178,
2512 + .00083, .00526, .00814,
2513 + .32259, .11067, .06341, .00847, .00174,
2514 + .00083, .00505, .00774 /
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 + .31283, .10697, .05917, .00813, .00171,
2517 + .00084, .00485, .00736,
2518 + .30351, .10344, .05537, .00782, .00167,
2519 + .00084, .00465, .00703,
2520 + .29496, .10022, .05206, .00753, .00163,
2521 + .00084, .00447, .00671,
2522 + .28712, .09729, .04919, .00728, .00159,
2523 + .00084, .00432, .00642,
2524 + .27943, .09443, .04651, .00703, .00155,
2525 + .00083, .00417, .00614,
2526 + .27204, .09171, .04405, .00680, .00152,
2527 + .00083, .00403, .00588,
2528 + .26522, .08920, .04187, .00658, .00148,
2529 + .00082, .00390, .00565,
2530 + .25891, .08687, .03995, .00638, .00145,
2531 + .00081, .00377, .00544 /
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 + .25275, .08461, .03811, .00618, .00142,
2534 + .00080, .00365, .00524,
2535 + .24673, .08242, .03642, .00599, .00139,
2536 + .00079, .00353, .00505,
2537 + .24115, .08040, .03489, .00582, .00136,
2538 + .00078, .00342, .00488,
2539 + .23597, .07852, .03352, .00566, .00133,
2540 + .00078, .00332, .00472,
2541 + .23083, .07667, .03221, .00550, .00130,
2542 + .00077, .00323, .00456 /
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 + .59448, .21780, .32630, .01537, .00000,
2545 + .00000, .00809, .01618,
2546 + .58028, .21162, .30281, .01503, .00000,
2547 + .00000, .00798, .01558,
2548 + .55947, .20268, .27029, .01451, .00023,
2549 + .00000, .00779, .01472,
2550 + .54450, .19634, .24823, .01411, .00050,
2551 + .00000, .00762, .01411,
2552 + .52887, .18978, .22699, .01369, .00070,
2553 + .00000, .00744, .01347,
2554 + .51565, .18428, .21019, .01333, .00086,
2555 + .00000, .00728, .01292,
2556 + .50312, .17912, .19531, .01297, .00097,
2557 + .00000, .00712, .01241,
2558 + .49006, .17377, .18074, .01258, .00108,
2559 + .00000, .00693, .01190 /
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 + .47892, .16922, .16902, .01224, .00116,
2562 + .00000, .00676, .01148,
2563 + .46828, .16492, .15849, .01192, .00122,
2564 + .00000, .00660, .01107,
2565 + .45999, .16160, .15065, .01167, .00126,
2566 + .00000, .00648, .01074,
2567 + .44269, .15468, .13517, .01114, .00132,
2568 + .00001, .00620, .01011,
2569 + .42819, .14895, .12309, .01070, .00137,
2570 + .00009, .00595, .00958,
2571 + .41243, .14282, .11081, .01025, .00140,
2572 + .00023, .00569, .00899,
2573 + .39651, .13663, .09955, .00974, .00141,
2574 + .00032, .00543, .00845,
2575 + .38258, .13124, .09056, .00930, .00141,
2576 + .00038, .00519, .00798 /
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 + .36901, .12604, .08248, .00888, .00140,
2579 + .00044, .00496, .00753,
2580 + .35806, .12189, .07643, .00854, .00139,
2581 + .00048, .00477, .00719,
2582 + .34518, .11704, .06984, .00815, .00137,
2583 + .00051, .00455, .00678,
2584 + .33420, .11292, .06459, .00783, .00135,
2585 + .00054, .00436, .00644,
2586 + .32435, .10926, .06023, .00754, .00133,
2587 + .00056, .00420, .00614,
2588 + .31231, .10480, .05522, .00719, .00130,
2589 + .00057, .00400, .00578,
2590 + .30143, .10079, .05097, .00687, .00127,
2591 + .00058, .00381, .00546,
2592 + .29148, .09716, .04741, .00659, .00124,
2593 + .00059, .00365, .00517 /
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 + .28192, .09368, .04414, .00631, .00121,
2596 + .00059, .00350, .00491,
2597 + .27287, .09038, .04125, .00604, .00118,
2598 + .00059, .00335, .00467,
2599 + .26458, .08739, .03872, .00581, .00115,
2600 + .00059, .00321, .00444,
2601 + .25698, .08467, .03652, .00560, .00112,
2602 + .00059, .00310, .00423,
2603 + .24957, .08202, .03448, .00539, .00109,
2604 + .00058, .00298, .00405,
2605 + .24249, .07948, .03262, .00518, .00107,
2606 + .00058, .00286, .00388,
2607 + .23596, .07715, .03098, .00500, .00104,
2608 + .00057, .00276, .00373,
2609 + .22992, .07502, .02952, .00484, .00102,
2610 + .00057, .00267, .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 + .22402, .07294, .02813, .00468, .00099,
2613 + .00056, .00258, .00344,
2614 + .21830, .07092, .02686, .00454, .00097,
2615 + .00055, .00250, .00330,
2616 + .21301, .06906, .02571, .00440, .00095,
2617 + .00054, .00241, .00318,
2618 + .20809, .06734, .02468, .00428, .00093,
2619 + .00054, .00234, .00307,
2620 + .20322, .06565, .02369, .00415, .00091,
2621 + .00053, .00227, .00297 /
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 + .56745, .20124, .26786, .01290, .00000,
2624 + .00000, .00627, .01130,
2625 + .55238, .19507, .24700, .01256, .00000,
2626 + .00000, .00616, .01086,
2627 + .53045, .18615, .21851, .01204, .00017,
2628 + .00000, .00599, .01022,
2629 + .51480, .17982, .19943, .01165, .00037,
2630 + .00000, .00585, .00978,
2631 + .49851, .17336, .18120, .01125, .00052,
2632 + .00000, .00568, .00929,
2633 + .48480, .16794, .16689, .01091, .00064,
2634 + .00000, .00552, .00889,
2635 + .47188, .16283, .15432, .01056, .00072,
2636 + .00000, .00537, .00855,
2637 + .45843, .15758, .14209, .01021, .00079,
2638 + .00000, .00521, .00819 /
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 + .44699, .15315, .13233, .00991, .00085,
2641 + .00000, .00508, .00787,
2642 + .43614, .14897, .12362, .00963, .00089,
2643 + .00000, .00495, .00757,
2644 + .42771, .14574, .11717, .00940, .00092,
2645 + .00000, .00484, .00733,
2646 + .41017, .13905, .10453, .00892, .00096,
2647 + .00001, .00462, .00686,
2648 + .39554, .13352, .09474, .00853, .00099,
2649 + .00006, .00443, .00649,
2650 + .37972, .12762, .08486, .00811, .00101,
2651 + .00016, .00423, .00607,
2652 + .36380, .12169, .07589, .00769, .00101,
2653 + .00023, .00401, .00569,
2654 + .34994, .11657, .06877, .00731, .00101,
2655 + .00027, .00382, .00536 /
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 + .33652, .11164, .06241, .00695, .00100,
2658 + .00031, .00363, .00504,
2659 + .32575, .10770, .05769, .00666, .00099,
2660 + .00034, .00348, .00479,
2661 + .31309, .10312, .05255, .00633, .00098,
2662 + .00037, .00332, .00449,
2663 + .30233, .09925, .04846, .00606, .00096,
2664 + .00039, .00318, .00425,
2665 + .29275, .09581, .04509, .00581, .00094,
2666 + .00040, .00305, .00405,
2667 + .28105, .09164, .04123, .00552, .00092,
2668 + .00041, .00289, .00381,
2669 + .27049, .08791, .03797, .00527, .00090,
2670 + .00042, .00274, .00358,
2671 + .26092, .08453, .03526, .00503, .00087,
2672 + .00042, .00262, .00339 /
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 + .25175, .08130, .03278, .00480, .00085,
2675 + .00042, .00250, .00321,
2676 + .24308, .07826, .03057, .00457, .00083,
2677 + .00042, .00239, .00305,
2678 + .23516, .07551, .02866, .00438, .00080,
2679 + .00042, .00230, .00289,
2680 + .22792, .07301, .02700, .00422, .00078,
2681 + .00041, .00221, .00275,
2682 + .22087, .07058, .02547, .00406, .00076,
2683 + .00041, .00212, .00262,
2684 + .21415, .06827, .02407, .00391, .00074,
2685 + .00041, .00203, .00251,
2686 + .20796, .06615, .02283, .00377, .00073,
2687 + .00040, .00195, .00240,
2688 + .20226, .06421, .02173, .00364, .00071,
2689 + .00040, .00188, .00231 /
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 + .19671, .06232, .02069, .00352, .00069,
2692 + .00039, .00181, .00221,
2693 + .19136, .06049, .01974, .00338, .00067,
2694 + .00039, .00175, .00212,
2695 + .18643, .05881, .01888, .00326, .00066,
2696 + .00038, .00170, .00204,
2697 + .18185, .05725, .01811, .00315, .00064,
2698 + .00038, .00164, .00196,
2699 + .17733, .05572, .01737, .00305, .00063,
2700 + .00037, .00159, .00189 /
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 + .53626, .18443, .21682, .01078, .00000,
2703 + .00000, .00473, .00758,
2704 + .52065, .17831, .19872, .01044, .00000,
2705 + .00000, .00463, .00728,
2706 + .49800, .16955, .17430, .00994, .00013,
2707 + .00000, .00448, .00683,
2708 + .48186, .16339, .15812, .00961, .00027,
2709 + .00000, .00436, .00649,
2710 + .46524, .15707, .14281, .00923, .00039,
2711 + .00000, .00423, .00617,
2712 + .45132, .15178, .13088, .00889, .00047,
2713 + .00000, .00410, .00591,
2714 + .43825, .14682, .12050, .00856, .00053,
2715 + .00000, .00398, .00569,
2716 + .42468, .14175, .11046, .00825, .00058,
2717 + .00000, .00385, .00542 /
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 + .41315, .13749, .10247, .00800, .00062,
2720 + .00000, .00375, .00517,
2721 + .40229, .13347, .09539, .00772, .00065,
2722 + .00000, .00364, .00496,
2723 + .39389, .13037, .09018, .00750, .00067,
2724 + .00000, .00355, .00482,
2725 + .37640, .12397, .08002, .00709, .00070,
2726 + .00000, .00337, .00450,
2727 + .36187, .11872, .07221, .00676, .00071,
2728 + .00005, .00322, .00423,
2729 + .34629, .11310, .06440, .00640, .00072,
2730 + .00012, .00307, .00396,
2731 + .33068, .10752, .05737, .00604, .00073,
2732 + .00016, .00289, .00369,
2733 + .31710, .10270, .05181, .00572, .00072,
2734 + .00019, .00274, .00346 /
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 + .30399, .09808, .04687, .00542, .00071,
2737 + .00022, .00260, .00325,
2738 + .29353, .09440, .04322, .00516, .00070,
2739 + .00024, .00249, .00309,
2740 + .28128, .09013, .03926, .00490, .00069,
2741 + .00026, .00236, .00289,
2742 + .27089, .08653, .03613, .00469, .00068,
2743 + .00027, .00225, .00272,
2744 + .26171, .08336, .03356, .00448, .00066,
2745 + .00028, .00216, .00259,
2746 + .25054, .07950, .03063, .00423, .00065,
2747 + .00029, .00204, .00244,
2748 + .24050, .07605, .02817, .00401, .00063,
2749 + .00030, .00193, .00230,
2750 + .23141, .07296, .02611, .00381, .00061,
2751 + .00030, .00184, .00217 /
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 + .22272, .07002, .02424, .00363, .00060,
2754 + .00030, .00176, .00204,
2755 + .21447, .06726, .02258, .00349, .00058,
2756 + .00030, .00168, .00192,
2757 + .20700, .06475, .02114, .00334, .00056,
2758 + .00030, .00160, .00181,
2759 + .20023, .06247, .01990, .00320, .00055,
2760 + .00030, .00154, .00172,
2761 + .19365, .06027, .01874, .00306, .00053,
2762 + .00030, .00147, .00164,
2763 + .18737, .05819, .01770, .00294, .00052,
2764 + .00030, .00141, .00156,
2765 + .18162, .05628, .01677, .00282, .00051,
2766 + .00029, .00135, .00149,
2767 + .17634, .05453, .01596, .00272, .00049,
2768 + .00029, .00130, .00144 /
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 + .17121, .05283, .01518, .00261, .00048,
2771 + .00029, .00125, .00138,
2772 + .16624, .05120, .01447, .00252, .00047,
2773 + .00029, .00121, .00131,
2774 + .16165, .04971, .01383, .00244, .00046,
2775 + .00029, .00117, .00125,
2776 + .15743, .04832, .01325, .00235, .00045,
2777 + .00028, .00113, .00120,
2778 + .15328, .04696, .01270, .00226, .00044,
2779 + .00028, .00109, .00117 /
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 + .50178, .16749, .17280, .00882, .00000,
2782 + .00000, .00354, .00489,
2783 + .48587, .16153, .15748, .00851, .00000,
2784 + .00000, .00346, .00470,
2785 + .46296, .15302, .13702, .00804, .00009,
2786 + .00000, .00333, .00441,
2787 + .44675, .14706, .12364, .00771, .00020,
2788 + .00000, .00322, .00421,
2789 + .43005, .14098, .11107, .00738, .00028,
2790 + .00000, .00311, .00398,
2791 + .41610, .13593, .10133, .00709, .00034,
2792 + .00000, .00300, .00379,
2793 + .40306, .13122, .09292, .00684, .00038,
2794 + .00000, .00290, .00362,
2795 + .38959, .12639, .08481, .00657, .00042,
2796 + .00000, .00280, .00344 /
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 + .37820, .12234, .07839, .00634, .00045,
2799 + .00000, .00271, .00328,
2800 + .36747, .11854, .07275, .00612, .00047,
2801 + .00000, .00262, .00314,
2802 + .35918, .11561, .06861, .00595, .00048,
2803 + .00000, .00255, .00304,
2804 + .34206, .10958, .06060, .00559, .00050,
2805 + .00000, .00242, .00283,
2806 + .32791, .10463, .05449, .00530, .00051,
2807 + .00003, .00230, .00266,
2808 + .31274, .09939, .04840, .00499, .00052,
2809 + .00008, .00218, .00247,
2810 + .29765, .09418, .04296, .00469, .00052,
2811 + .00011, .00205, .00230,
2812 + .28459, .08971, .03869, .00443, .00051,
2813 + .00013, .00194, .00215 /
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 + .27202, .08542, .03491, .00417, .00051,
2816 + .00015, .00183, .00202,
2817 + .26199, .08203, .03212, .00398, .00050,
2818 + .00016, .00174, .00192,
2819 + .25034, .07810, .02912, .00376, .00049,
2820 + .00018, .00165, .00179,
2821 + .24051, .07480, .02676, .00357, .00048,
2822 + .00018, .00157, .00167,
2823 + .23182, .07190, .02482, .00340, .00047,
2824 + .00019, .00149, .00158,
2825 + .22127, .06839, .02262, .00320, .00046,
2826 + .00019, .00140, .00148,
2827 + .21181, .06527, .02077, .00304, .00045,
2828 + .00020, .00133, .00138,
2829 + .20327, .06246, .01923, .00290, .00043,
2830 + .00020, .00126, .00130 /
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 + .19514, .05980, .01783, .00277, .00042,
2833 + .00020, .00120, .00122,
2834 + .18752, .05729, .01660, .00262, .00041,
2835 + .00020, .00114, .00116,
2836 + .18060, .05503, .01553, .00249, .00040,
2837 + .00020, .00108, .00110,
2838 + .17433, .05300, .01460, .00237, .00039,
2839 + .00020, .00103, .00104,
2840 + .16825, .05104, .01374, .00226, .00038,
2841 + .00020, .00099, .00099,
2842 + .16247, .04918, .01296, .00217, .00037,
2843 + .00020, .00094, .00095,
2844 + .15718, .04748, .01228, .00208, .00037,
2845 + .00020, .00091, .00091,
2846 + .15233, .04592, .01167, .00200, .00036,
2847 + .00020, .00087, .00086 /
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 + .14762, .04441, .01110, .00192, .00035,
2850 + .00020, .00084, .00082,
2851 + .14309, .04297, .01057, .00185, .00034,
2852 + .00020, .00081, .00079,
2853 + .13893, .04164, .01009, .00178, .00034,
2854 + .00020, .00078, .00075,
2855 + .13508, .04043, .00967, .00172, .00033,
2856 + .00020, .00076, .00072,
2857 + .13130, .03923, .00926, .00165, .00032,
2858 + .00020, .00072, .00069 /
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 + .46494, .15057, .13543, .00701, .00000,
2861 + .00000, .00263, .00306,
2862 + .44898, .14487, .12276, .00675, .00000,
2863 + .00000, .00256, .00293,
2864 + .42608, .13676, .10600, .00636, .00007,
2865 + .00000, .00246, .00272,
2866 + .41001, .13109, .09513, .00606, .00014,
2867 + .00000, .00237, .00259,
2868 + .39355, .12530, .08499, .00576, .00020,
2869 + .00000, .00228, .00247,
2870 + .37982, .12051, .07719, .00551, .00024,
2871 + .00000, .00220, .00236,
2872 + .36700, .11608, .07051, .00528, .00027,
2873 + .00000, .00213, .00224,
2874 + .35383, .11154, .06411, .00504, .00030,
2875 + .00000, .00204, .00213 /
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 + .34277, .10773, .05908, .00484, .00032,
2878 + .00000, .00196, .00205,
2879 + .33237, .10416, .05468, .00465, .00034,
2880 + .00000, .00190, .00196,
2881 + .32434, .10142, .05145, .00450, .00035,
2882 + .00000, .00185, .00189,
2883 + .30778, .09582, .04525, .00421, .00036,
2884 + .00000, .00174, .00175,
2885 + .29416, .09125, .04055, .00397, .00037,
2886 + .00002, .00165, .00164,
2887 + .27963, .08638, .03590, .00372, .00038,
2888 + .00005, .00155, .00153,
2889 + .26520, .08160, .03176, .00349, .00038,
2890 + .00007, .00147, .00143,
2891 + .25279, .07750, .02853, .00329, .00037,
2892 + .00009, .00138, .00134 /
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 + .24090, .07358, .02568, .00309, .00037,
2895 + .00010, .00129, .00125,
2896 + .23147, .07049, .02359, .00293, .00036,
2897 + .00011, .00124, .00117,
2898 + .22052, .06692, .02135, .00275, .00036,
2899 + .00011, .00116, .00109,
2900 + .21131, .06394, .01959, .00260, .00035,
2901 + .00012, .00110, .00103,
2902 + .20315, .06132, .01815, .00249, .00034,
2903 + .00012, .00105, .00096,
2904 + .19333, .05817, .01651, .00234, .00033,
2905 + .00012, .00099, .00090,
2906 + .18461, .05535, .01515, .00219, .00032,
2907 + .00012, .00094, .00084,
2908 + .17675, .05284, .01401, .00206, .00032,
2909 + .00012, .00089, .00079 /
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 + .16927, .05047, .01298, .00195, .00031,
2912 + .00012, .00084, .00075,
2913 + .16224, .04824, .01207, .00186, .00030,
2914 + .00012, .00080, .00070,
2915 + .15588, .04623, .01128, .00177, .00030,
2916 + .00012, .00076, .00067,
2917 + .15013, .04443, .01060, .00169, .00029,
2918 + .00012, .00073, .00064,
2919 + .14458, .04270, .00997, .00161, .00029,
2920 + .00012, .00069, .00061,
2921 + .13933, .04106, .00940, .00153, .00028,
2922 + .00012, .00066, .00058,
2923 + .13454, .03956, .00890, .00146, .00027,
2924 + .00012, .00063, .00055,
2925 + .13016, .03819, .00845, .00140, .00027,
2926 + .00012, .00061, .00053 /
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 + .12591, .03687, .00803, .00133, .00026,
2929 + .00012, .00058, .00050,
2930 + .12181, .03562, .00764, .00129, .00026,
2931 + .00012, .00056, .00047,
2932 + .11805, .03447, .00730, .00124, .00026,
2933 + .00012, .00054, .00045,
2934 + .11460, .03341, .00698, .00120, .00025,
2935 + .00012, .00052, .00043,
2936 + .11122, .03237, .00668, .00115, .00025,
2937 + .00012, .00050, .00042 /
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 + .42643, .13419, .10434, .00547, .00000,
2940 + .00000, .00192, .00181,
2941 + .41073, .12876, .09407, .00521, .00000,
2942 + .00000, .00186, .00175,
2943 + .38829, .12105, .08063, .00485, .00005,
2944 + .00000, .00177, .00165,
2945 + .37254, .11570, .07200, .00463, .00010,
2946 + .00000, .00172, .00155,
2947 + .35652, .11028, .06400, .00436, .00014,
2948 + .00000, .00164, .00149,
2949 + .34322, .10581, .05789, .00414, .00017,
2950 + .00000, .00158, .00144,
2951 + .33084, .10167, .05269, .00396, .00019,
2952 + .00000, .00153, .00139,
2953 + .31815, .09745, .04774, .00377, .00021,
2954 + .00000, .00147, .00132 /
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 + .30750, .09392, .04387, .00360, .00022,
2957 + .00000, .00140, .00125,
2958 + .29751, .09063, .04049, .00346, .00023,
2959 + .00000, .00136, .00119,
2960 + .28981, .08811, .03802, .00335, .00024,
2961 + .00000, .00133, .00115,
2962 + .27404, .08295, .03332, .00311, .00025,
2963 + .00000, .00125, .00107,
2964 + .26113, .07875, .02977, .00292, .00026,
2965 + .00001, .00118, .00100,
2966 + .24739, .07432, .02629, .00275, .00026,
2967 + .00004, .00111, .00091,
2968 + .23387, .06997, .02321, .00254, .00026,
2969 + .00005, .00104, .00085,
2970 + .22226, .06625, .02081, .00236, .00026,
2971 + .00006, .00099, .00080 /
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 + .21115, .06272, .01869, .00221, .00026,
2974 + .00006, .00093, .00075,
2975 + .20233, .05994, .01715, .00210, .00026,
2976 + .00007, .00088, .00071,
2977 + .19218, .05675, .01550, .00197, .00026,
2978 + .00007, .00082, .00066,
2979 + .18368, .05408, .01420, .00186, .00025,
2980 + .00007, .00078, .00062,
2981 + .17621, .05173, .01315, .00175, .00025,
2982 + .00007, .00074, .00060,
2983 + .16719, .04893, .01196, .00163, .00025,
2984 + .00007, .00069, .00056,
2985 + .15915, .04645, .01096, .00154, .00025,
2986 + .00007, .00066, .00051,
2987 + .15198, .04423, .01013, .00145, .00024,
2988 + .00007, .00062, .00049 /
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 + .14518, .04214, .00937, .00137, .00023,
2991 + .00007, .00058, .00046,
2992 + .13883, .04018, .00870, .00129, .00023,
2993 + .00007, .00055, .00043,
2994 + .13310, .03843, .00813, .00122, .00023,
2995 + .00007, .00052, .00041,
2996 + .12791, .03686, .00764, .00115, .00022,
2997 + .00007, .00050, .00038,
2998 + .12293, .03534, .00718, .00109, .00022,
2999 + .00007, .00048, .00036,
3000 + .11824, .03392, .00676, .00103, .00022,
3001 + .00007, .00046, .00034,
3002 + .11395, .03262, .00640, .00098, .00021,
3003 + .00007, .00044, .00033,
3004 + .11001, .03144, .00607, .00095, .00021,
3005 + .00007, .00042, .00031 /
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 + .10620, .03030, .00577, .00091, .00021,
3008 + .00007, .00040, .00030,
3009 + .10257, .02921, .00549, .00087, .00021,
3010 + .00007, .00038, .00029,
3011 + .09924, .02822, .00523, .00083, .00021,
3012 + .00007, .00037, .00028,
3013 + .09618, .02731, .00500, .00080, .00020,
3014 + .00007, .00036, .00027,
3015 + .09319, .02642, .00479, .00077, .00020,
3016 + .00007, .00034, .00026 /
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 + .38711, .11853, .07911, .00429, .00000,
3019 + .00000, .00132, .00094,
3020 + .37186, .11346, .07099, .00409, .00000,
3021 + .00000, .00127, .00092,
3022 + .35017, .10630, .06045, .00380, .00003,
3023 + .00000, .00120, .00088,
3024 + .33504, .10134, .05375, .00360, .00007,
3025 + .00000, .00116, .00082,
3026 + .31968, .09632, .04760, .00337, .00010,
3027 + .00000, .00110, .00079,
3028 + .30698, .09219, .04292, .00319, .00011,
3029 + .00000, .00106, .00075,
3030 + .29520, .08839, .03896, .00303, .00013,
3031 + .00000, .00102, .00072,
3032 + .28315, .08451, .03520, .00289, .00014,
3033 + .00000, .00097, .00068 /
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 + .27305, .08128, .03228, .00277, .00015,
3036 + .00000, .00093, .00064,
3037 + .26364, .07828, .02973, .00265, .00015,
3038 + .00000, .00090, .00062,
3039 + .25642, .07599, .02788, .00255, .00016,
3040 + .00000, .00087, .00059,
3041 + .24164, .07130, .02436, .00235, .00016,
3042 + .00000, .00082, .00056,
3043 + .22956, .06750, .02172, .00221, .00016,
3044 + .00001, .00077, .00053,
3045 + .21675, .06352, .01914, .00208, .00016,
3046 + .00002, .00073, .00050,
3047 + .20422, .05961, .01686, .00191, .00016,
3048 + .00003, .00067, .00046,
3049 + .19348, .05628, .01510, .00179, .00016,
3050 + .00003, .00063, .00042 /
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 + .18326, .05313, .01355, .00168, .00016,
3053 + .00003, .00058, .00038,
3054 + .17522, .05066, .01243, .00157, .00016,
3055 + .00003, .00055, .00037,
3056 + .16595, .04782, .01123, .00146, .00016,
3057 + .00003, .00052, .00035,
3058 + .15821, .04545, .01028, .00137, .00016,
3059 + .00003, .00050, .00033,
3060 + .15140, .04340, .00951, .00130, .00016,
3061 + .00003, .00047, .00031,
3062 + .14323, .04093, .00864, .00121, .00016,
3063 + .00003, .00044, .00029,
3064 + .13601, .03875, .00792, .00113, .00016,
3065 + .00003, .00041, .00027,
3066 + .12954, .03682, .00731, .00107, .00016,
3067 + .00003, .00038, .00025 /
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 + .12343, .03500, .00676, .00102, .00016,
3070 + .00003, .00036, .00023,
3071 + .11772, .03331, .00628, .00096, .00016,
3072 + .00003, .00034, .00021,
3073 + .11260, .03178, .00586, .00090, .00016,
3074 + .00003, .00032, .00020,
3075 + .10800, .03041, .00550, .00085, .00016,
3076 + .00003, .00031, .00019,
3077 + .10357, .02910, .00517, .00081, .00016,
3078 + .00003, .00029, .00018,
3079 + .09939, .02787, .00487, .00078, .00016,
3080 + .00003, .00028, .00016,
3081 + .09559, .02676, .00460, .00074, .00016,
3082 + .00003, .00027, .00016,
3083 + .09216, .02574, .00437, .00070, .00016,
3084 + .00003, .00025, .00016 /
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 + .08884, .02476, .00415, .00066, .00016,
3087 + .00003, .00024, .00016,
3088 + .08565, .02383, .00394, .00063, .00016,
3089 + .00003, .00023, .00015,
3090 + .08272, .02299, .00376, .00061, .00016,
3091 + .00003, .00022, .00014,
3092 + .08004, .02222, .00359, .00059, .00016,
3093 + .00003, .00021, .00013,
3094 + .07742, .02146, .00343, .00057, .00016,
3095 + .00003, .00020, .00012 /
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 + .34756, .10327, .05859, .00306, .00000,
3098 + .00000, .00097, .00053,
3099 + .33296, .09861, .05236, .00290, .00000,
3100 + .00000, .00093, .00052,
3101 + .31227, .09204, .04434, .00268, .00002,
3102 + .00000, .00087, .00050,
3103 + .29790, .08749, .03926, .00253, .00004,
3104 + .00000, .00084, .00047,
3105 + .28336, .08294, .03464, .00239, .00006,
3106 + .00000, .00080, .00043,
3107 + .27137, .07920, .03114, .00227, .00007,
3108 + .00000, .00076, .00040,
3109 + .26032, .07574, .02818, .00214, .00008,
3110 + .00000, .00072, .00040,
3111 + .24905, .07224, .02541, .00202, .00009,
3112 + .00000, .00069, .00039 /
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 + .23964, .06934, .02325, .00194, .00009,
3115 + .00000, .00066, .00037,
3116 + .23085, .06665, .02138, .00186, .00009,
3117 + .00000, .00063, .00034,
3118 + .22412, .06461, .02003, .00180, .00010,
3119 + .00000, .00061, .00032,
3120 + .21042, .06042, .01745, .00167, .00010,
3121 + .00000, .00057, .00030,
3122 + .19932, .05703, .01553, .00155, .00010,
3123 + .00000, .00053, .00029,
3124 + .18767, .05346, .01367, .00140, .00010,
3125 + .00001, .00050, .00028,
3126 + .17616, .05002, .01203, .00129, .00010,
3127 + .00001, .00046, .00025,
3128 + .16636, .04710, .01077, .00122, .00010,
3129 + .00001, .00043, .00023 /
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 + .15708, .04434, .00966, .00115, .00010,
3132 + .00001, .00040, .00022,
3133 + .14980, .04217, .00885, .00107, .00010,
3134 + .00001, .00038, .00020,
3135 + .14146, .03968, .00799, .00098, .00010,
3136 + .00001, .00035, .00019,
3137 + .13451, .03762, .00731, .00091, .00010,
3138 + .00001, .00032, .00019,
3139 + .12840, .03584, .00676, .00087, .00010,
3140 + .00001, .00031, .00017,
3141 + .12109, .03370, .00614, .00082, .00010,
3142 + .00001, .00029, .00016,
3143 + .11463, .03182, .00562, .00078, .00010,
3144 + .00001, .00027, .00015,
3145 + .10891, .03015, .00519, .00072, .00010,
3146 + .00001, .00025, .00014 /
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 + .10351, .02858, .00480, .00067, .00010,
3149 + .00001, .00024, .00013,
3150 + .09851, .02713, .00445, .00062, .00010,
3151 + .00001, .00022, .00012,
3152 + .09400, .02583, .00416, .00059, .00010,
3153 + .00001, .00021, .00011,
3154 + .08994, .02467, .00390, .00057, .00010,
3155 + .00001, .00020, .00011,
3156 + .08606, .02356, .00366, .00054, .00010,
3157 + .00001, .00019, .00010,
3158 + .08242, .02252, .00345, .00051, .00010,
3159 + .00001, .00018, .00009,
3160 + .07912, .02158, .00325, .00049, .00010,
3161 + .00001, .00017, .00008,
3162 + .07612, .02072, .00309, .00046, .00010,
3163 + .00001, .00016, .00008 /
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 + .07323, .01990, .00293, .00044, .00010,
3166 + .00001, .00016, .00008,
3167 + .07047, .01912, .00278, .00042, .00010,
3168 + .00001, .00015, .00007,
3169 + .06794, .01841, .00265, .00041, .00010,
3170 + .00001, .00015, .00007,
3171 + .06563, .01776, .00253, .00039, .00010,
3172 + .00001, .00014, .00007,
3173 + .06338, .01713, .00242, .00038, .00010,
3174 + .00001, .00013, .00006 /
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 + .30835, .08905, .04253, .00219, .00000,
3177 + .00000, .00070, .00026,
3178 + .29460, .08480, .03785, .00206, .00000,
3179 + .00000, .00066, .00026,
3180 + .27520, .07884, .03187, .00188, .00001,
3181 + .00000, .00060, .00025,
3182 + .26175, .07475, .02812, .00177, .00003,
3183 + .00000, .00058, .00024,
3184 + .24822, .07065, .02473, .00165, .00004,
3185 + .00000, .00055, .00024,
3186 + .23710, .06729, .02218, .00155, .00005,
3187 + .00000, .00052, .00023,
3188 + .22686, .06419, .02003, .00147, .00005,
3189 + .00000, .00050, .00022,
3190 + .21645, .06107, .01802, .00139, .00005,
3191 + .00000, .00047, .00021 /
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 + .20779, .05849, .01646, .00133, .00005,
3194 + .00000, .00045, .00020,
3195 + .19975, .05609, .01512, .00126, .00005,
3196 + .00000, .00043, .00019,
3197 + .19362, .05426, .01415, .00121, .00005,
3198 + .00000, .00042, .00019,
3199 + .18113, .05057, .01231, .00111, .00005,
3200 + .00000, .00039, .00018,
3201 + .17103, .04760, .01095, .00103, .00005,
3202 + .00000, .00037, .00017,
3203 + .16043, .04449, .00962, .00093, .00005,
3204 + .00000, .00034, .00015,
3205 + .15008, .04146, .00846, .00086, .00005,
3206 + .00000, .00031, .00014,
3207 + .14128, .03892, .00756, .00081, .00005,
3208 + .00000, .00029, .00013 /
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 + .13297, .03652, .00678, .00076, .00005,
3211 + .00000, .00027, .00011,
3212 + .12647, .03464, .00621, .00071, .00005,
3213 + .00000, .00026, .00011,
3214 + .11904, .03251, .00561, .00065, .00005,
3215 + .00000, .00024, .00010,
3216 + .11288, .03075, .00513, .00061, .00005,
3217 + .00000, .00022, .00010,
3218 + .10749, .02922, .00475, .00057, .00005,
3219 + .00000, .00021, .00010,
3220 + .10106, .02739, .00431, .00053, .00005,
3221 + .00000, .00019, .00009,
3222 + .09540, .02578, .00395, .00050, .00005,
3223 + .00000, .00018, .00009,
3224 + .09041, .02437, .00364, .00046, .00005,
3225 + .00000, .00017, .00008 /
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 + .08570, .02305, .00337, .00043, .00005,
3228 + .00000, .00017, .00007,
3229 + .08133, .02183, .00312, .00040, .00005,
3230 + .00000, .00015, .00007,
3231 + .07743, .02073, .00291, .00037, .00005,
3232 + .00000, .00014, .00007,
3233 + .07393, .01975, .00273, .00036, .00005,
3234 + .00000, .00013, .00006,
3235 + .07059, .01882, .00256, .00034, .00005,
3236 + .00000, .00013, .00006,
3237 + .06747, .01795, .00241, .00031, .00005,
3238 + .00000, .00012, .00007,
3239 + .06463, .01716, .00227, .00029, .00005,
3240 + .00000, .00011, .00006,
3241 + .06205, .01645, .00215, .00028, .00005,
3242 + .00000, .00011, .00005 /
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 + .05956, .01577, .00204, .00027, .00005,
3245 + .00000, .00010, .00004,
3246 + .05721, .01513, .00194, .00026, .00005,
3247 + .00000, .00010, .00004,
3248 + .05506, .01454, .00184, .00025, .00005,
3249 + .00000, .00010, .00004,
3250 + .05310, .01400, .00176, .00024, .00005,
3251 + .00000, .00009, .00003,
3252 + .05119, .01348, .00168, .00023, .00005,
3253 + .00000, .00009, .00003 /
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 + .27043, .07600, .03023, .00156, .00000,
3256 + .00000, .00043, .00009,
3257 + .25765, .07217, .02682, .00147, .00000,
3258 + .00000, .00041, .00009,
3259 + .23969, .06683, .02249, .00134, .00001,
3260 + .00000, .00039, .00008,
3261 + .22732, .06319, .01979, .00125, .00002,
3262 + .00000, .00037, .00009,
3263 + .21489, .05953, .01736, .00116, .00002,
3264 + .00000, .00035, .00009,
3265 + .20472, .05655, .01554, .00110, .00002,
3266 + .00000, .00033, .00010,
3267 + .19538, .05382, .01401, .00103, .00002,
3268 + .00000, .00031, .00010,
3269 + .18592, .05108, .01259, .00097, .00002,
3270 + .00000, .00029, .00009 /
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 + .17807, .04882, .01149, .00094, .00002,
3273 + .00000, .00028, .00007,
3274 + .17079, .04673, .01055, .00090, .00002,
3275 + .00000, .00026, .00007,
3276 + .16522, .04514, .00986, .00086, .00002,
3277 + .00000, .00025, .00007,
3278 + .15399, .04191, .00858, .00079, .00002,
3279 + .00000, .00023, .00007,
3280 + .14495, .03932, .00762, .00073, .00002,
3281 + .00000, .00022, .00007,
3282 + .13550, .03664, .00670, .00066, .00002,
3283 + .00000, .00020, .00008,
3284 + .12631, .03403, .00589, .00060, .00002,
3285 + .00000, .00018, .00006,
3286 + .11854, .03183, .00527, .00056, .00002,
3287 + .00000, .00017, .00006 /
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 + .11123, .02978, .00473, .00051, .00002,
3290 + .00000, .00015, .00006,
3291 + .10553, .02818, .00433, .00047, .00002,
3292 + .00000, .00014, .00005,
3293 + .09901, .02636, .00391, .00044, .00002,
3294 + .00000, .00014, .00005,
3295 + .09361, .02486, .00358, .00042, .00002,
3296 + .00000, .00013, .00005,
3297 + .08895, .02357, .00331, .00038, .00002,
3298 + .00000, .00012, .00004,
3299 + .08337, .02203, .00300, .00036, .00002,
3300 + .00000, .00011, .00004,
3301 + .07846, .02069, .00275, .00034, .00002,
3302 + .00000, .00011, .00003,
3303 + .07414, .01950, .00254, .00031, .00002,
3304 + .00000, .00010, .00003 /
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 + .07010, .01839, .00234, .00029, .00002,
3307 + .00000, .00009, .00003,
3308 + .06636, .01737, .00217, .00027, .00002,
3309 + .00000, .00009, .00003,
3310 + .06303, .01647, .00203, .00026, .00002,
3311 + .00000, .00008, .00002,
3312 + .06004, .01565, .00190, .00024, .00002,
3313 + .00000, .00008, .00002,
3314 + .05720, .01488, .00178, .00023, .00002,
3315 + .00000, .00007, .00002,
3316 + .05454, .01417, .00167, .00022, .00002,
3317 + .00000, .00006, .00002,
3318 + .05214, .01352, .00158, .00020, .00002,
3319 + .00000, .00006, .00002,
3320 + .04997, .01293, .00149, .00019, .00002,
3321 + .00000, .00006, .00002 /
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 + .04788, .01237, .00141, .00018, .00002,
3324 + .00000, .00006, .00002,
3325 + .04590, .01184, .00134, .00017, .00002,
3326 + .00000, .00005, .00002,
3327 + .04410, .01136, .00128, .00017, .00002,
3328 + .00000, .00005, .00002,
3329 + .04246, .01093, .00122, .00016, .00002,
3330 + .00000, .00005, .00002,
3331 + .04086, .01050, .00116, .00015, .00002,
3332 + .00000, .00005, .00002 /
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 + .23379, .06379, .02087, .00099, .00000,
3335 + .00000, .00031, .00004,
3336 + .22210, .06042, .01846, .00093, .00000,
3337 + .00000, .00030, .00005,
3338 + .20574, .05571, .01542, .00084, .00000,
3339 + .00000, .00028, .00006,
3340 + .19452, .05252, .01354, .00077, .00000,
3341 + .00000, .00026, .00006,
3342 + .18331, .04933, .01186, .00072, .00000,
3343 + .00000, .00025, .00005,
3344 + .17415, .04673, .01060, .00067, .00000,
3345 + .00000, .00024, .00005,
3346 + .16579, .04437, .00955, .00062, .00000,
3347 + .00000, .00022, .00005,
3348 + .15732, .04199, .00858, .00058, .00000,
3349 + .00000, .00021, .00005 /
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 + .15031, .04002, .00783, .00056, .00000,
3352 + .00000, .00019, .00005,
3353 + .14383, .03822, .00718, .00053, .00000,
3354 + .00000, .00018, .00005,
3355 + .13890, .03686, .00671, .00050, .00000,
3356 + .00000, .00017, .00005,
3357 + .12895, .03410, .00584, .00047, .00000,
3358 + .00000, .00016, .00004,
3359 + .12096, .03190, .00519, .00044, .00000,
3360 + .00000, .00015, .00005,
3361 + .11265, .02961, .00456, .00040, .00000,
3362 + .00000, .00013, .00006,
3363 + .10464, .02740, .00401, .00035, .00000,
3364 + .00000, .00013, .00004,
3365 + .09788, .02555, .00359, .00032, .00000,
3366 + .00000, .00012, .00004 /
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 + .09153, .02383, .00322, .00030, .00000,
3369 + .00000, .00011, .00004,
3370 + .08657, .02249, .00295, .00029, .00000,
3371 + .00000, .00010, .00004,
3372 + .08097, .02098, .00267, .00026, .00000,
3373 + .00000, .00009, .00003,
3374 + .07636, .01973, .00244, .00023, .00000,
3375 + .00000, .00008, .00003,
3376 + .07235, .01865, .00226, .00022, .00000,
3377 + .00000, .00008, .00003,
3378 + .06759, .01737, .00205, .00020, .00000,
3379 + .00000, .00007, .00003,
3380 + .06342, .01626, .00187, .00019, .00000,
3381 + .00000, .00007, .00003,
3382 + .05976, .01529, .00173, .00018, .00000,
3383 + .00000, .00006, .00002 /
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 + .05634, .01438, .00160, .00017, .00000,
3386 + .00000, .00006, .00002,
3387 + .05318, .01355, .00148, .00016, .00000,
3388 + .00000, .00006, .00002,
3389 + .05038, .01281, .00138, .00014, .00000,
3390 + .00000, .00005, .00002,
3391 + .04789, .01215, .00129, .00013, .00000,
3392 + .00000, .00005, .00002,
3393 + .04552, .01152, .00121, .00012, .00000,
3394 + .00000, .00005, .00002,
3395 + .04330, .01094, .00113, .00012, .00000,
3396 + .00000, .00005, .00002,
3397 + .04130, .01042, .00107, .00011, .00000,
3398 + .00000, .00005, .00002,
3399 + .03949, .00995, .00101, .00011, .00000,
3400 + .00000, .00004, .00002 /
3401 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
3402 + .03776, .00950, .00096, .00011, .00000,
3403 + .00000, .00004, .00002,
3404 + .03614, .00908, .00091, .00009, .00000,
3405 + .00000, .00004, .00001,
3406 + .03466, .00869, .00086, .00008, .00000,
3407 + .00000, .00003, .00001,
3408 + .03331, .00834, .00082, .00008, .00000,
3409 + .00000, .00003, .00001,
3410 + .03199, .00800, .00078, .00008, .00000,
3411 + .00000, .00003, .00001 /
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 + .16721, .04311, .00917, .00041, .00000,
3414 + .00000, .00010, -.00001,
3415 + .15788, .04059, .00808, .00039, .00000,
3416 + .00000, .00010, -.00001,
3417 + .14494, .03710, .00673, .00035, .00000,
3418 + .00000, .00009, .00000,
3419 + .13615, .03476, .00590, .00032, .00000,
3420 + .00000, .00009, .00000,
3421 + .12744, .03242, .00516, .00030, .00000,
3422 + .00000, .00009, .00000,
3423 + .12037, .03054, .00462, .00027, .00000,
3424 + .00000, .00008, .00000,
3425 + .11395, .02884, .00416, .00025, .00000,
3426 + .00000, .00008, .00001,
3427 + .10751, .02714, .00374, .00022, .00000,
3428 + .00000, .00007, .00001 /
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 + .10222, .02574, .00342, .00020, .00000,
3431 + .00000, .00007, .00001,
3432 + .09735, .02447, .00314, .00019, .00000,
3433 + .00000, .00006, .00002,
3434 + .09366, .02350, .00294, .00018, .00000,
3435 + .00000, .00006, .00002,
3436 + .08625, .02157, .00256, .00017, .00000,
3437 + .00000, .00006, .00001,
3438 + .08035, .02005, .00229, .00017, .00000,
3439 + .00000, .00006, .00001,
3440 + .07426, .01847, .00201, .00015, .00000,
3441 + .00000, .00005, .00001,
3442 + .06843, .01697, .00178, .00013, .00000,
3443 + .00000, .00004, .00001,
3444 + .06356, .01572, .00159, .00012, .00000,
3445 + .00000, .00004, .00001 /
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 + .05902, .01455, .00143, .00011, .00000,
3448 + .00000, .00004, .00001,
3449 + .05551, .01365, .00131, .00010, .00000,
3450 + .00000, .00003, .00001,
3451 + .05156, .01265, .00119, .00009, .00000,
3452 + .00000, .00003, .00001,
3453 + .04832, .01183, .00109, .00009, .00000,
3454 + .00000, .00003, .00001,
3455 + .04554, .01112, .00101, .00007, .00000,
3456 + .00000, .00003, .00001,
3457 + .04226, .01029, .00091, .00006, .00000,
3458 + .00000, .00002, .00001,
3459 + .03941, .00958, .00083, .00006, .00000,
3460 + .00000, .00002, .00001,
3461 + .03692, .00895, .00077, .00005, .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 + .03460, .00837, .00071, .00005, .00000,
3465 + .00000, .00002, .00001,
3466 + .03249, .00784, .00066, .00004, .00000,
3467 + .00000, .00002, .00001,
3468 + .03061, .00737, .00061, .00004, .00000,
3469 + .00000, .00002, .00001,
3470 + .02895, .00696, .00057, .00004, .00000,
3471 + .00000, .00002, .00001,
3472 + .02737, .00657, .00053, .00004, .00000,
3473 + .00000, .00002, .00000,
3474 + .02591, .00621, .00050, .00004, .00000,
3475 + .00000, .00001, .00001,
3476 + .02460, .00589, .00047, .00004, .00000,
3477 + .00000, .00001, .00001,
3478 + .02343, .00560, .00044, .00003, .00000,
3479 + .00000, .00001, .00000 /
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 + .02232, .00532, .00042, .00003, .00000,
3482 + .00000, .00001, .00000,
3483 + .02126, .00506, .00039, .00003, .00000,
3484 + .00000, .00001, .00000,
3485 + .02031, .00483, .00037, .00002, .00000,
3486 + .00000, .00001, .00000,
3487 + .01945, .00462, .00036, .00002, .00000,
3488 + .00000, .00001, .00001,
3489 + .01861, .00441, .00034, .00002, .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 + .11108, .02696, .00349, .00014, .00000,
3493 + .00000, .00003, .00000,
3494 + .10421, .02522, .00308, .00012, .00000,
3495 + .00000, .00003, .00000,
3496 + .09475, .02285, .00258, .00012, .00000,
3497 + .00000, .00003, -.00001,
3498 + .08837, .02125, .00227, .00011, .00000,
3499 + .00000, .00003, -.00001,
3500 + .08210, .01969, .00200, .00010, .00000,
3501 + .00000, .00003, .00000,
3502 + .07706, .01844, .00180, .00009, .00000,
3503 + .00000, .00003, .00000,
3504 + .07253, .01731, .00163, .00008, .00000,
3505 + .00000, .00002, .00001,
3506 + .06799, .01619, .00147, .00007, .00000,
3507 + .00000, .00001, .00000 /
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 + .06427, .01528, .00135, .00008, .00000,
3510 + .00000, .00001, .00000,
3511 + .06089, .01445, .00125, .00008, .00000,
3512 + .00000, .00001, .00000,
3513 + .05834, .01382, .00117, .00007, .00000,
3514 + .00000, .00002, .00000,
3515 + .05328, .01257, .00103, .00005, .00000,
3516 + .00000, .00001, .00000,
3517 + .04928, .01160, .00092, .00004, .00000,
3518 + .00000, .00001, .00001,
3519 + .04516, .01060, .00081, .00005, .00000,
3520 + .00000, .00002, .00001,
3521 + .04127, .00965, .00072, .00004, .00000,
3522 + .00000, .00001, .00000,
3523 + .03804, .00888, .00065, .00003, .00000,
3524 + .00000, .00001, .00000 /
3525 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
3526 + .03506, .00816, .00058, .00003, .00000,
3527 + .00000, .00001, .00000,
3528 + .03276, .00761, .00054, .00004, .00000,
3529 + .00000, .00001, .00000,
3530 + .03020, .00700, .00048, .00003, .00000,
3531 + .00000, .00001, .00000,
3532 + .02813, .00650, .00044, .00002, .00000,
3533 + .00000, .00001, .00000,
3534 + .02634, .00608, .00041, .00003, .00000,
3535 + .00000, .00001, .00000,
3536 + .02426, .00558, .00037, .00003, .00000,
3537 + .00000, .00001, .00000,
3538 + .02246, .00516, .00034, .00002, .00000,
3539 + .00000, .00001, .00001,
3540 + .02091, .00479, .00031, .00002, .00000,
3541 + .00000, .00001, .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 + .01948, .00445, .00029, .00002, .00000,
3544 + .00000, .00000, .00000,
3545 + .01817, .00415, .00026, .00001, .00000,
3546 + .00000, .00000, .00000,
3547 + .01703, .00388, .00025, .00001, .00000,
3548 + .00000, .00000, .00000,
3549 + .01602, .00364, .00023, .00001, .00000,
3550 + .00000, .00000, .00000,
3551 + .01507, .00342, .00021, .00001, .00000,
3552 + .00000, .00000, .00000,
3553 + .01419, .00322, .00020, .00001, .00000,
3554 + .00000, .00000, .00000,
3555 + .01341, .00303, .00019, .00001, .00000,
3556 + .00000, .00000, .00000,
3557 + .01271, .00287, .00018, .00001, .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 + .01204, .00272, .00017, .00001, .00000,
3561 + .00000, .00000, .00000,
3562 + .01142, .00257, .00016, .00001, .00000,
3563 + .00000, .00000, .00000,
3564 + .01086, .00244, .00015, .00001, .00000,
3565 + .00000, .00000, .00000,
3566 + .01036, .00233, .00014, .00001, .00000,
3567 + .00000, .00000, .00000,
3568 + .00987, .00222, .00013, .00001, .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 + .06695, .01523, .00110, .00005, .00000,
3572 + .00000, .00000, .00000,
3573 + .06235, .01415, .00099, .00004, .00000,
3574 + .00000, .00000, .00000,
3575 + .05609, .01268, .00084, .00004, .00000,
3576 + .00000, .00000, .00000,
3577 + .05192, .01171, .00075, .00004, .00000,
3578 + .00000, .00000, .00000,
3579 + .04784, .01076, .00067, .00003, .00000,
3580 + .00000, .00000, .00000,
3581 + .04458, .01001, .00061, .00003, .00000,
3582 + .00000, .00000, .00000,
3583 + .04167, .00934, .00056, .00003, .00000,
3584 + .00000, .00000, .00000,
3585 + .03879, .00867, .00051, .00003, .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 + .03646, .00813, .00047, .00002, .00000,
3589 + .00000, .00000, .00000,
3590 + .03434, .00764, .00044, .00002, .00000,
3591 + .00000, .00000, .00000,
3592 + .03276, .00728, .00041, .00002, .00000,
3593 + .00000, .00000, .00000,
3594 + .02961, .00656, .00036, .00002, .00000,
3595 + .00000, .00000, .00000,
3596 + .02716, .00600, .00033, .00001, .00000,
3597 + .00000, .00000, .00000,
3598 + .02467, .00544, .00029, .00001, .00000,
3599 + .00000, .00000, .00000,
3600 + .02232, .00491, .00026, .00001, .00000,
3601 + .00000, .00000, .00000,
3602 + .02040, .00447, .00023, .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 + .01864, .00408, .00021, .00001, .00000,
3606 + .00000, .00000, .00000,
3607 + .01731, .00378, .00019, .00001, .00000,
3608 + .00000, .00000, .00000,
3609 + .01582, .00344, .00017, .00001, .00000,
3610 + .00000, .00000, .00000,
3611 + .01462, .00318, .00016, .00001, .00000,
3612 + .00000, .00000, .00000,
3613 + .01360, .00295, .00015, .00001, .00000,
3614 + .00000, .00000, .00000,
3615 + .01243, .00269, .00013, .00001, .00000,
3616 + .00000, .00000, .00000,
3617 + .01142, .00247, .00012, .00001, .00000,
3618 + .00000, .00000, .00000,
3619 + .01055, .00227, .00011, .00001, .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 + .00976, .00210, .00010, .00000, .00000,
3623 + .00000, .00000, .00000,
3624 + .00904, .00194, .00009, .00000, .00000,
3625 + .00000, .00000, .00000,
3626 + .00842, .00180, .00009, .00000, .00000,
3627 + .00000, .00000, .00000,
3628 + .00787, .00168, .00008, .00000, .00000,
3629 + .00000, .00000, .00000,
3630 + .00735, .00157, .00007, .00000, .00000,
3631 + .00000, .00000, .00000,
3632 + .00689, .00147, .00007, .00000, .00000,
3633 + .00000, .00000, .00000,
3634 + .00647, .00138, .00006, .00000, .00000,
3635 + .00000, .00000, .00000,
3636 + .00610, .00130, .00006, .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 + .00575, .00122, .00006, .00000, .00000,
3640 + .00000, .00000, .00000,
3641 + .00543, .00115, .00005, .00000, .00000,
3642 + .00000, .00000, .00000,
3643 + .00514, .00109, .00005, .00000, .00000,
3644 + .00000, .00000, .00000,
3645 + .00488, .00103, .00005, .00000, .00000,
3646 + .00000, .00000, .00000,
3647 + .00463, .00098, .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 + .03506, .00741, .00027, .00001, .00000,
3651 + .00000, .00000, .00000,
3652 + .03238, .00682, .00025, .00001, .00000,
3653 + .00000, .00001, .00000,
3654 + .02877, .00604, .00022, .00000, .00000,
3655 + .00000, .00000, .00000,
3656 + .02639, .00553, .00020, .00000, .00000,
3657 + .00000, .00000, .00000,
3658 + .02409, .00504, .00019, .00000, .00000,
3659 + .00000, .00000, .00000,
3660 + .02227, .00465, .00017, .00000, .00000,
3661 + .00000, .00000, .00000,
3662 + .02065, .00430, .00016, .00001, .00000,
3663 + .00000, .00000, .00000,
3664 + .01907, .00396, .00015, .00001, .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 + .01779, .00369, .00014, .00001, .00000,
3668 + .00000, .00000, .00000,
3669 + .01664, .00345, .00013, .00000, .00000,
3670 + .00000, .00000, .00000,
3671 + .01579, .00326, .00012, .00000, .00000,
3672 + .00000, .00000, .00000,
3673 + .01412, .00291, .00011, .00000, .00000,
3674 + .00000, .00000, .00000,
3675 + .01282, .00264, .00010, .00000, .00000,
3676 + .00000, .00000, .00000,
3677 + .01152, .00236, .00009, .00000, .00000,
3678 + .00000, .00000, .00000,
3679 + .01031, .00211, .00008, .00000, .00000,
3680 + .00000, .00000, .00000,
3681 + .00933, .00190, .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 + .00844, .00172, .00006, .00000, .00000,
3685 + .00000, .00000, .00000,
3686 + .00777, .00158, .00006, .00000, .00000,
3687 + .00000, .00000, .00000,
3688 + .00704, .00143, .00005, .00000, .00000,
3689 + .00000, .00000, .00000,
3690 + .00645, .00131, .00005, .00000, .00000,
3691 + .00000, .00000, .00000,
3692 + .00595, .00120, .00004, .00000, .00000,
3693 + .00000, .00000, .00000,
3694 + .00538, .00109, .00004, .00000, .00000,
3695 + .00000, .00000, .00000,
3696 + .00490, .00099, .00004, .00000, .00000,
3697 + .00000, .00000, .00000,
3698 + .00449, .00090, .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 + .00412, .00083, .00003, .00000, .00000,
3702 + .00000, .00000, .00000,
3703 + .00379, .00076, .00003, .00000, .00000,
3704 + .00000, .00000, .00000,
3705 + .00350, .00070, .00002, .00000, .00000,
3706 + .00000, .00000, .00000,
3707 + .00325, .00065, .00002, .00000, .00000,
3708 + .00000, .00000, .00000,
3709 + .00301, .00060, .00002, .00000, .00000,
3710 + .00000, .00000, .00000,
3711 + .00280, .00056, .00002, .00000, .00000,
3712 + .00000, .00000, .00000,
3713 + .00262, .00052, .00002, .00000, .00000,
3714 + .00000, .00000, .00000,
3715 + .00245, .00049, .00002, .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 + .00230, .00046, .00002, .00000, .00000,
3719 + .00000, .00000, .00000,
3720 + .00215, .00043, .00002, .00000, .00000,
3721 + .00000, .00000, .00000,
3722 + .00203, .00040, .00001, .00000, .00000,
3723 + .00000, .00000, .00000,
3724 + .00191, .00038, .00001, .00000, .00000,
3725 + .00000, .00000, .00000,
3726 + .00181, .00036, .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 + .00428, .00074, .00000, .00000, .00000,
3730 + .00000, .00000, .00000,
3731 + .00386, .00067, .00000, .00000, .00000,
3732 + .00000, .00000, .00000,
3733 + .00331, .00057, .00000, .00000, .00000,
3734 + .00000, .00000, .00000,
3735 + .00296, .00051, .00000, .00000, .00000,
3736 + .00000, .00000, .00000,
3737 + .00263, .00045, .00000, .00000, .00000,
3738 + .00000, .00000, .00000,
3739 + .00237, .00041, .00000, .00000, .00000,
3740 + .00000, .00000, .00000,
3741 + .00215, .00037, .00000, .00000, .00000,
3742 + .00000, .00000, .00000,
3743 + .00194, .00033, .00000, .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 + .00177, .00030, .00000, .00000, .00000,
3747 + .00000, .00000, .00000,
3748 + .00163, .00028, .00000, .00000, .00000,
3749 + .00000, .00000, .00000,
3750 + .00152, .00026, .00000, .00000, .00000,
3751 + .00000, .00000, .00000,
3752 + .00131, .00022, .00000, .00000, .00000,
3753 + .00000, .00000, .00000,
3754 + .00116, .00020, .00000, .00000, .00000,
3755 + .00000, .00000, .00000,
3756 + .00101, .00017, .00000, .00000, .00000,
3757 + .00000, .00000, .00000,
3758 + .00088, .00015, .00000, .00000, .00000,
3759 + .00000, .00000, .00000,
3760 + .00077, .00013, .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 + .00068, .00011, .00000, .00000, .00000,
3764 + .00000, .00000, .00000,
3765 + .00061, .00010, .00000, .00000, .00000,
3766 + .00000, .00000, .00000,
3767 + .00054, .00009, .00000, .00000, .00000,
3768 + .00000, .00000, .00000,
3769 + .00048, .00008, .00000, .00000, .00000,
3770 + .00000, .00000, .00000,
3771 + .00043, .00007, .00000, .00000, .00000,
3772 + .00000, .00000, .00000,
3773 + .00038, .00006, .00000, .00000, .00000,
3774 + .00000, .00000, .00000,
3775 + .00034, .00006, .00000, .00000, .00000,
3776 + .00000, .00000, .00000,
3777 + .00030, .00005, .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 + .00027, .00005, .00000, .00000, .00000,
3781 + .00000, .00000, .00000,
3782 + .00024, .00004, .00000, .00000, .00000,
3783 + .00000, .00000, .00000,
3784 + .00022, .00004, .00000, .00000, .00000,
3785 + .00000, .00000, .00000,
3786 + .00020, .00003, .00000, .00000, .00000,
3787 + .00000, .00000, .00000,
3788 + .00018, .00003, .00000, .00000, .00000,
3789 + .00000, .00000, .00000,
3790 + .00016, .00003, .00000, .00000, .00000,
3791 + .00000, .00000, .00000,
3792 + .00015, .00003, .00000, .00000, .00000,
3793 + .00000, .00000, .00000,
3794 + .00014, .00002, .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 + .00013, .00002, .00000, .00000, .00000,
3798 + .00000, .00000, .00000,
3799 + .00012, .00002, .00000, .00000, .00000,
3800 + .00000, .00000, .00000,
3801 + .00011, .00002, .00000, .00000, .00000,
3802 + .00000, .00000, .00000,
3803 + .00010, .00002, .00000, .00000, .00000,
3804 + .00000, .00000, .00000,
3805 + .00009, .00002, .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='lo10a.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
3886