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