]> git.uio.no Git - u/mrichter/AliRoot.git/blame - PDF/spdf/sfmrsc2.F
git://git.uio.no / u / mrichter / AliRoot.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
PDF version 8 added
[u/mrichter/AliRoot.git] / PDF / spdf / sfmrsc2.F
CommitLineData
21886bb6 1#include "pdf/pilot.h"
2 subroutine sfmrsc2(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 + .00259, .00689, 1.16588, .85968, .00000,
12 + .00000, .45917, .86498,
13 + .00277, .00698, 2.47333, .89867, .00000,
14 + .00000, .50263, .90444,
15 + .00305, .00711, 5.05545, .98084, .00000,
16 + .00000, .59117, .98728,
17 + .00326, .00720, 7.52955, 1.05873, .04478,
18 + .00000, .67353, 1.06564,
19 + .00347, .00730, 10.66043, 1.16020, .15649,
20 + .00000, .77957, 1.16758,
21 + .00366, .00739, 13.86666, 1.26472, .26541,
22 + .00000, .88794, 1.27249,
23 + .00384, .00747, 17.47517, 1.37895, .38692,
24 + .00000, 1.00577, 1.38709,
25 + .00403, .00756, 21.91471, 1.51631, .53530,
26 + .00000, 1.14687, 1.52483 /
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 + .00420, .00764, 26.23272, 1.65120, .67433,
29 + .00000, 1.28494, 1.66003,
30 + .00437, .00772, 30.86727, 1.79471, .82244,
31 + .00000, 1.43147, 1.80384,
32 + .00450, .00778, 34.92763, 1.91783, .95177,
33 + .00000, 1.55694, 1.92719,
34 + .00477, .00792, 44.44169, 2.21112, 1.25254,
35 + .02795, 1.85514, 2.22095,
36 + .00502, .00803, 53.63533, 2.49757, 1.54204,
37 + .43875, 2.14571, 2.50779,
38 + .00529, .00816, 65.27377, 2.85801, 1.90559,
39 + .92366, 2.51064, 2.86864,
40 + .00558, .00830, 78.95992, 3.27952, 2.32879,
41 + 1.40887, 2.93670, 3.29056,
42 + .00584, .00843, 92.80008, 3.70473, 2.75454,
43 + 1.88258, 3.36594, 3.71613 /
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 + .00611, .00856, 108.18814, 4.17736, 3.22753,
46 + 2.39486, 3.84254, 4.18910,
47 + .00633, .00866, 121.99876, 4.60353, 3.65231,
48 + 2.84312, 4.27193, 4.61554,
49 + .00660, .00880, 140.00491, 5.16221, 4.20806,
50 + 3.42186, 4.83444, 5.17453,
51 + .00685, .00892, 157.20923, 5.69719, 4.74153,
52 + 3.97575, 5.37272, 5.70977,
53 + .00707, .00902, 174.05409, 6.22270, 5.26627,
54 + 4.51828, 5.90121, 6.23552,
55 + .00736, .00917, 196.61212, 6.93450, 5.97429,
56 + 5.24225, 6.61672, 6.94760,
57 + .00763, .00930, 219.30446, 7.65447, 6.69196,
58 + 5.97620, 7.34009, 7.66782,
59 + .00789, .00943, 241.97026, 8.37659, 7.41381,
60 + 6.71536, 8.06534, 8.39017 /
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 + .00815, .00955, 265.50397, 9.13732, 8.17098,
63 + 7.48438, 8.82913, 9.15111,
64 + .00841, .00968, 289.83975, 9.92771, 8.95989,
65 + 8.28770, 9.62246, 9.94169,
66 + .00865, .00980, 313.97021, 10.71716, 9.74846,
67 + 9.09036, 10.41464, 10.73132,
68 + .00888, .00992, 337.43375, 11.49349, 10.52271,
69 + 9.87606, 11.19352, 11.50781,
70 + .00912, .01003, 362.18018, 12.31508, 11.34441,
71 + 10.71216, 12.01760, 12.32955,
72 + .00935, .01015, 387.01361, 13.15097, 12.17814,
73 + 11.55689, 12.85592, 13.16559,
74 + .00957, .01026, 411.77390, 13.98628, 13.01400,
75 + 12.40653, 13.69351, 14.00103,
76 + .00979, .01037, 435.51117, 14.79805, 13.82405,
77 + 13.22674, 14.50739, 14.81291 /
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 + .01000, .01047, 460.43759, 15.65316, 14.67933,
80 + 14.09469, 15.36460, 15.66814,
81 + .01021, .01058, 485.48840, 16.52166, 15.54712,
82 + 14.97378, 16.23516, 16.53675,
83 + .01042, .01068, 510.05765, 17.37914, 16.40437,
84 + 15.84230, 17.09458, 17.39433,
85 + .01062, .01078, 534.04871, 18.22086, 17.24677,
86 + 16.69648, 17.93811, 18.23614,
87 + .01082, .01088, 558.49670, 19.08892, 18.11395,
88 + 17.57351, 18.80798, 19.10429 /
89 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
90 + .00427, .00843, 1.08559, .74097, .00000,
91 + .00000, .39537, .74512,
92 + .00453, .00855, 2.26608, .77635, .00000,
93 + .00000, .43435, .78080,
94 + .00491, .00874, 4.54492, .84837, .00000,
95 + .00000, .51151, .85324,
96 + .00519, .00888, 6.68209, .91521, .03838,
97 + .00000, .58194, .92037,
98 + .00548, .00902, 9.33707, 1.00087, .13346,
99 + .00000, .67128, 1.00634,
100 + .00574, .00915, 12.01393, 1.08802, .22476,
101 + .00000, .76151, 1.09373,
102 + .00598, .00927, 14.98798, 1.18243, .32543,
103 + .00000, .85880, 1.18837,
104 + .00625, .00940, 18.60115, 1.29499, .44708,
105 + .00000, .97435, 1.30118 /
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 + .00647, .00951, 22.07317, 1.40455, .55988,
108 + .00000, 1.08645, 1.41094,
109 + .00670, .00962, 25.76194, 1.52030, .67906,
110 + .00000, 1.20460, 1.52687,
111 + .00687, .00970, 28.96707, 1.61905, .78245,
112 + .00000, 1.30523, 1.62577,
113 + .00725, .00989, 36.38287, 1.85225, 1.02059,
114 + .02285, 1.54233, 1.85927,
115 + .00758, .01005, 43.43904, 2.07766, 1.24726,
116 + .34582, 1.77102, 2.08494,
117 + .00795, .01023, 52.25513, 2.35860, 1.52901,
118 + .72372, 2.05552, 2.36614,
119 + .00834, .01042, 62.48365, 2.68380, 1.85356,
120 + 1.09633, 2.38434, 2.69161,
121 + .00869, .01060, 72.69753, 3.00875, 2.17690,
122 + 1.45612, 2.71247, 3.01679 /
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 + .00905, .01078, 83.92340, 3.36675, 2.53292,
125 + 1.84135, 3.07361, 3.37502,
126 + .00935, .01092, 93.89393, 3.68697, 2.85008,
127 + 2.17544, 3.39638, 3.69541,
128 + .00972, .01111, 106.76203, 4.10346, 3.26177,
129 + 2.60323, 3.81589, 4.11211,
130 + .01005, .01127, 118.93644, 4.49920, 3.65397,
131 + 3.00950, 4.21425, 4.50802,
132 + .01035, .01142, 130.75394, 4.88529, 4.03720,
133 + 3.40475, 4.60269, 4.89427,
134 + .01074, .01161, 146.42671, 5.40430, 4.55035,
135 + 3.92801, 5.12461, 5.41347,
136 + .01110, .01179, 162.04227, 5.92524, 5.06665,
137 + 4.45459, 5.64824, 5.93458,
138 + .01145, .01196, 177.50587, 6.44412, 5.58248,
139 + 4.98143, 6.16958, 6.45361 /
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 + .01180, .01213, 193.41631, 6.98688, 6.11969,
142 + 5.52547, 6.71475, 6.99651,
143 + .01214, .01230, 209.74129, 7.54721, 6.67602,
144 + 6.09043, 7.27740, 7.55698,
145 + .01246, .01246, 225.80667, 8.10346, 7.22882,
146 + 6.65161, 7.83581, 8.11335,
147 + .01277, .01262, 241.31096, 8.64722, 7.76836,
148 + 7.19763, 8.38157, 8.65723,
149 + .01309, .01277, 257.56226, 9.21971, 8.33819,
150 + 7.77597, 8.95603, 9.22982,
151 + .01340, .01293, 273.75073, 9.79881, 8.91298,
152 + 8.35676, 9.53704, 9.80903,
153 + .01369, .01307, 289.80313, 10.37479, 9.48674,
154 + 8.93854, 10.11481, 10.38510,
155 + .01397, .01321, 305.08841, 10.93163, 10.03981,
156 + 9.49706, 10.67332, 10.94203 /
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 + .01426, .01336, 321.05981, 11.51572, 10.62146,
159 + 10.08587, 11.25907, 11.52620,
160 + .01454, .01350, 337.01422, 12.10612, 11.20879,
161 + 10.67935, 11.85109, 12.11668,
162 + .01482, .01363, 352.58127, 12.68655, 11.78661,
163 + 11.26332, 12.43304, 12.69718,
164 + .01508, .01376, 367.71094, 13.25408, 12.35229,
165 + 11.83556, 13.00200, 13.26478,
166 + .01534, .01389, 383.04120, 13.83681, 12.93200,
167 + 12.42041, 13.58615, 13.84757 /
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 + .00671, .01032, 1.01212, .63825, .00000,
170 + .00000, .34046, .64160,
171 + .00706, .01050, 2.07769, .67025, .00000,
172 + .00000, .37537, .67376,
173 + .00759, .01076, 4.08741, .73332, .00000,
174 + .00000, .44258, .73708,
175 + .00797, .01095, 5.93123, .79064, .03290,
176 + .00000, .50280, .79457,
177 + .00838, .01116, 8.17877, .86289, .11381,
178 + .00000, .57800, .86700,
179 + .00873, .01133, 10.40896, .93544, .19030,
180 + .00000, .65302, .93969,
181 + .00906, .01150, 12.85429, 1.01331, .27365,
182 + .00000, .73321, 1.01771,
183 + .00942, .01168, 15.78714, 1.10535, .37331,
184 + .00000, .82763, 1.10988 /
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 + .00974, .01184, 18.57069, 1.19411, .46473,
187 + .00000, .91842, 1.19876,
188 + .01004, .01199, 21.49739, 1.28718, .56053,
189 + .00000, 1.01341, 1.29194,
190 + .01028, .01211, 24.01901, 1.36614, .64308,
191 + .00000, 1.09386, 1.37099,
192 + .01079, .01236, 29.77809, 1.55093, .83134,
193 + .01868, 1.28176, 1.55597,
194 + .01124, .01259, 35.17113, 1.72766, 1.00849,
195 + .27246, 1.46108, 1.73284,
196 + .01174, .01284, 41.81951, 1.94575, 1.22642,
197 + .56680, 1.68201, 1.95110,
198 + .01227, .01310, 49.42761, 2.19560, 1.47475,
199 + .85271, 1.93471, 2.20110,
200 + .01275, .01334, 56.92745, 2.44281, 1.71970,
201 + 1.12569, 2.18444, 2.44846 /
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 + .01324, .01358, 65.07363, 2.71273, 1.98698,
204 + 1.41503, 2.45684, 2.71852,
205 + .01365, .01378, 72.23181, 2.95218, 2.22310,
206 + 1.66367, 2.69831, 2.95808,
207 + .01414, .01403, 81.37452, 3.26113, 2.52715,
208 + 1.97936, 3.00964, 3.26716,
209 + .01459, .01425, 89.93745, 3.55238, 2.81458,
210 + 2.27681, 3.30294, 3.55852,
211 + .01499, .01445, 98.17611, 3.83456, 3.09351,
212 + 2.56418, 3.58697, 3.84080,
213 + .01551, .01471, 108.99378, 4.21096, 3.46412,
214 + 2.94153, 3.96567, 4.21732,
215 + .01600, .01495, 119.66624, 4.58582, 3.83417,
216 + 3.31841, 4.34265, 4.59229,
217 + .01647, .01518, 130.14194, 4.95658, 4.20137,
218 + 3.69295, 4.71533, 4.96315 /
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 + .01693, .01541, 140.81921, 5.34158, 4.58098,
221 + 4.07674, 5.10223, 5.34824,
222 + .01739, .01564, 151.68756, 5.73649, 4.97166,
223 + 4.47289, 5.49896, 5.74324,
224 + .01782, .01585, 162.30002, 6.12609, 5.35751,
225 + 4.86401, 5.89025, 6.13293,
226 + .01824, .01606, 172.46210, 6.50463, 5.73180,
227 + 5.24220, 6.27036, 6.51154,
228 + .01865, .01627, 183.04675, 6.90108, 6.12516,
229 + 5.64089, 6.66836, 6.90807,
230 + .01906, .01647, 193.50883, 7.29975, 6.51955,
231 + 6.03874, 7.06852, 7.30681,
232 + .01946, .01666, 203.82547, 7.69439, 6.91149,
233 + 6.43564, 7.46457, 7.70152,
234 + .01983, .01685, 213.57904, 8.07386, 7.28721,
235 + 6.81446, 7.84535, 8.08105 /
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 + .02021, .01704, 223.71922, 8.47020, 7.68077,
238 + 7.21231, 8.24299, 8.47745,
239 + .02059, .01722, 233.78458, 8.86885, 8.07621,
240 + 7.61130, 8.64291, 8.87617,
241 + .02095, .01740, 243.55313, 9.25908, 8.46360,
242 + 8.00226, 9.03434, 9.26645,
243 + .02129, .01757, 253.00122, 9.63912, 8.84141,
244 + 8.38395, 9.41550, 9.64654,
245 + .02164, .01775, 262.51675, 10.02757, 9.22679,
246 + 8.77216, 9.80506, 10.03504 /
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 + .00860, .01162, .97251, .58467, .00000,
249 + .00000, .31196, .58771,
250 + .00903, .01184, 1.97602, .61479, .00000,
251 + .00000, .34467, .61795,
252 + .00966, .01216, 3.84259, .67312, .00000,
253 + .00000, .40665, .67645,
254 + .01013, .01239, 5.53271, .72549, .03005,
255 + .00000, .46158, .72894,
256 + .01062, .01264, 7.56962, .79084, .10367,
257 + .00000, .52954, .79442,
258 + .01104, .01285, 9.57162, .85596, .17262,
259 + .00000, .59683, .85964,
260 + .01144, .01305, 11.74953, .92547, .24723,
261 + .00000, .66837, .92925,
262 + .01188, .01327, 14.34165, 1.00717, .33588,
263 + .00000, .75218, 1.01106 /
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 + .01225, .01346, 16.78363, 1.08553, .41667,
266 + .00000, .83232, 1.08950,
267 + .01262, .01364, 19.33527, 1.16733, .50091,
268 + .00000, .91580, 1.17138,
269 + .01291, .01379, 21.52275, 1.23649, .57323,
270 + .00000, .98628, 1.24060,
271 + .01352, .01410, 26.47986, 1.39747, .73716,
272 + .01659, 1.14998, 1.40171,
273 + .01406, .01436, 31.07749, 1.55043, .89036,
274 + .23690, 1.30521, 1.55478,
275 + .01466, .01466, 36.70005, 1.73809, 1.07767,
276 + .49111, 1.49535, 1.74256,
277 + .01529, .01498, 43.08162, 1.95173, 1.28974,
278 + .73584, 1.71149, 1.95632,
279 + .01587, .01526, 49.32399, 2.16189, 1.49767,
280 + .96795, 1.92385, 2.16659 /
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 + .01645, .01555, 56.05666, 2.39012, 1.72333,
283 + 1.21247, 2.15425, 2.39493,
284 + .01694, .01580, 61.93496, 2.59160, 1.92171,
285 + 1.42147, 2.35748, 2.59649,
286 + .01753, .01609, 69.39609, 2.85032, 2.17592,
287 + 1.68547, 2.61827, 2.85530,
288 + .01806, .01635, 76.34207, 3.09306, 2.41512,
289 + 1.93305, 2.86281, 3.09813,
290 + .01854, .01659, 82.98962, 3.32729, 2.64632,
291 + 2.17124, 3.09864, 3.33244,
292 + .01916, .01690, 91.66563, 3.63827, 2.95207,
293 + 2.48249, 3.41163, 3.64352,
294 + .01974, .01719, 100.17468, 3.94656, 3.25597,
295 + 2.79195, 3.72175, 3.95189,
296 + .02029, .01746, 108.48296, 4.25018, 3.55631,
297 + 3.09826, 4.02706, 4.25560 /
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 + .02084, .01773, 116.90254, 4.56411, 3.86542,
300 + 3.41066, 4.34263, 4.56959,
301 + .02139, .01800, 125.43188, 4.88488, 4.18237,
302 + 3.73198, 4.66498, 4.89044,
303 + .02190, .01826, 133.72142, 5.20017, 4.49426,
304 + 4.04806, 4.98174, 5.20580,
305 + .02239, .01850, 141.62149, 5.50539, 4.79571,
306 + 4.35254, 5.28832, 5.51109,
307 + .02288, .01874, 149.81917, 5.82407, 5.11158,
308 + 4.67262, 5.60835, 5.82983,
309 + .02337, .01898, 157.88332, 6.14338, 5.42712,
310 + 4.99082, 5.92896, 6.14920,
311 + .02383, .01921, 165.80916, 6.45860, 5.73988,
312 + 5.30747, 6.24539, 6.46447,
313 + .02428, .01943, 173.26941, 6.76071, 6.03870,
314 + 5.60865, 6.54864, 6.76663 /
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 + .02472, .01965, 181.00221, 7.07544, 6.35095,
317 + 5.92423, 6.86450, 7.08142,
318 + .02517, .01987, 188.64784, 7.39109, 6.66376,
319 + 6.23976, 7.18125, 7.39711,
320 + .02559, .02008, 196.04414, 7.69926, 6.96944,
321 + 6.54817, 7.49046, 7.70534,
322 + .02600, .02028, 203.17697, 7.99868, 7.26687,
323 + 6.84860, 7.79085, 8.00480,
324 + .02641, .02048, 210.33369, 8.30388, 7.56940,
325 + 7.15325, 8.09703, 8.31005 /
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 + .01020, .01264, .94605, .54929, .00000,
328 + .00000, .29321, .55219,
329 + .01069, .01289, 1.90770, .57812, .00000,
330 + .00000, .32442, .58112,
331 + .01142, .01326, 3.67858, .63328, .00000,
332 + .00000, .38294, .63641,
333 + .01195, .01353, 5.26693, .68238, .02819,
334 + .00000, .43440, .68561,
335 + .01251, .01381, 7.16554, .74322, .09702,
336 + .00000, .49763, .74655,
337 + .01299, .01405, 9.01882, .80350, .16107,
338 + .00000, .55990, .80692,
339 + .01345, .01429, 11.02353, .86759, .23002,
340 + .00000, .62585, .87108,
341 + .01395, .01453, 13.39635, .94263, .31158,
342 + .00000, .70281, .94620 /
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 + .01438, .01475, 15.61979, 1.01430, .38556,
345 + .00000, .77611, 1.01794,
346 + .01479, .01496, 17.93268, 1.08887, .46243,
347 + .00000, .85222, 1.09258,
348 + .01512, .01512, 19.90834, 1.15177, .52823,
349 + .00000, .91632, 1.15553,
350 + .01583, .01547, 24.36031, 1.29760, .67675,
351 + .01525, 1.06463, 1.30146,
352 + .01644, .01578, 28.46070, 1.43552, .81488,
353 + .21447, 1.20462, 1.43947,
354 + .01712, .01612, 33.44630, 1.60400, .98300,
355 + .44350, 1.37537, 1.60805,
356 + .01784, .01648, 39.07153, 1.79496, 1.17247,
357 + .66258, 1.56860, 1.79910,
358 + .01849, .01680, 44.54351, 1.98201, 1.35744,
359 + .86937, 1.75765, 1.98624 /
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 + .01916, .01713, 50.41530, 2.18437, 1.55740,
362 + 1.08627, 1.96198, 2.18869,
363 + .01971, .01741, 55.51825, 2.36237, 1.73255,
364 + 1.27093, 2.14158, 2.36676,
365 + .02038, .01774, 61.96604, 2.59015, 1.95623,
366 + 1.50333, 2.37124, 2.59462,
367 + .02097, .01803, 67.94250, 2.80315, 2.16600,
368 + 1.72055, 2.58587, 2.80770,
369 + .02152, .01831, 73.64030, 3.00807, 2.36817,
370 + 1.92890, 2.79225, 3.01268,
371 + .02222, .01865, 81.04428, 3.27924, 2.63461,
372 + 2.20019, 3.06524, 3.28393,
373 + .02288, .01898, 88.27478, 3.54716, 2.89858,
374 + 2.46904, 3.33482, 3.55193,
375 + .02350, .01928, 95.30785, 3.81024, 3.15870,
376 + 2.73439, 3.59943, 3.81508 /
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 + .02412, .01959, 102.40522, 4.08138, 3.42555,
379 + 3.00410, 3.87207, 4.08629,
380 + .02474, .01989, 109.57033, 4.35769, 3.69844,
381 + 3.28079, 4.14980, 4.36266,
382 + .02532, .02018, 116.51038, 4.62854, 3.96628,
383 + 3.55226, 4.42199, 4.63357,
384 + .02587, .02045, 123.10139, 4.89006, 4.22446,
385 + 3.81305, 4.68475, 4.89515,
386 + .02642, .02073, 129.92206, 5.16250, 4.49441,
387 + 4.08665, 4.95841, 5.16765,
388 + .02697, .02100, 136.60822, 5.43478, 4.76337,
389 + 4.35789, 5.23187, 5.43999,
390 + .02749, .02125, 143.16418, 5.70303, 5.02948,
391 + 4.62734, 5.50122, 5.70829,
392 + .02799, .02150, 149.31487, 5.95952, 5.28308,
393 + 4.88295, 5.75874, 5.96482 /
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 + .02849, .02175, 155.67656, 6.22625, 5.54765,
396 + 5.15037, 6.02649, 6.23161,
397 + .02899, .02199, 161.94843, 6.49318, 5.81211,
398 + 5.41715, 6.29442, 6.49858,
399 + .02947, .02223, 168.00150, 6.75330, 6.07007,
400 + 5.67744, 6.55548, 6.75875,
401 + .02992, .02245, 173.82651, 7.00560, 6.32066,
402 + 5.93058, 6.80866, 7.01109,
403 + .03038, .02268, 179.65471, 7.26227, 6.57501,
404 + 6.18673, 7.06621, 7.26780 /
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 + .01161, .01350, .92656, .52325, .00000,
407 + .00000, .27946, .52610,
408 + .01216, .01378, 1.85696, .55111, .00000,
409 + .00000, .30955, .55405,
410 + .01297, .01419, 3.55679, .60391, .00000,
411 + .00000, .36551, .60696,
412 + .01356, .01449, 5.07008, .65062, .02682,
413 + .00000, .41442, .65374,
414 + .01418, .01480, 6.86732, .70816, .09215,
415 + .00000, .47419, .71137,
416 + .01471, .01507, 8.61220, .76492, .15263,
417 + .00000, .53282, .76820,
418 + .01523, .01533, 10.49125, .82507, .21748,
419 + .00000, .59470, .82841,
420 + .01577, .01560, 12.70570, .89528, .29391,
421 + .00000, .66672, .89870 /
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 + .01625, .01584, 14.77200, .96212, .36300,
424 + .00000, .73509, .96560,
425 + .01671, .01607, 16.91389, 1.03150, .43458,
426 + .00000, .80590, 1.03503,
427 + .01708, .01625, 18.73832, 1.08990, .49571,
428 + .00000, .86542, 1.09348,
429 + .01786, .01664, 22.83125, 1.22488, .63324,
430 + .01428, 1.00272, 1.22855,
431 + .01853, .01698, 26.58023, 1.35207, .76065,
432 + .19850, 1.13184, 1.35582,
433 + .01929, .01735, 31.11792, 1.50693, .91519,
434 + .40968, 1.28881, 1.51076,
435 + .02008, .01775, 36.21401, 1.68183, 1.08871,
436 + .61068, 1.46582, 1.68574,
437 + .02080, .01811, 41.14960, 1.85258, 1.25755,
438 + .79969, 1.63844, 1.85657 /
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 + .02153, .01847, 46.42466, 2.03675, 1.43951,
441 + .99726, 1.82444, 2.04082,
442 + .02214, .01877, 50.99228, 2.19830, 1.59844,
443 + 1.16495, 1.98748, 2.20243,
444 + .02288, .01914, 56.74313, 2.40446, 1.80086,
445 + 1.37538, 2.19540, 2.40867,
446 + .02354, .01946, 62.05534, 2.59675, 1.99020,
447 + 1.57154, 2.38920, 2.60102,
448 + .02414, .01976, 67.10463, 2.78130, 2.17224,
449 + 1.75925, 2.57512, 2.78564,
450 + .02491, .02014, 73.64314, 3.02489, 2.41154,
451 + 2.00299, 2.82039, 3.02930,
452 + .02563, .02050, 80.00702, 3.26493, 2.64801,
453 + 2.24391, 3.06197, 3.26941,
454 + .02632, .02083, 86.17851, 3.50008, 2.88050,
455 + 2.48115, 3.29854, 3.50462 /
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 + .02700, .02117, 92.38571, 3.74184, 3.11839,
458 + 2.72166, 3.54169, 3.74645,
459 + .02767, .02150, 98.63516, 3.98766, 3.36117,
460 + 2.96788, 3.78885, 3.99233,
461 + .02831, .02182, 104.67200, 4.22814, 3.59896,
462 + 3.20897, 4.03056, 4.23287,
463 + .02891, .02212, 110.38937, 4.45985, 3.82769,
464 + 3.44007, 4.26341, 4.46463,
465 + .02952, .02241, 116.29341, 4.70082, 4.06646,
466 + 3.68213, 4.50552, 4.70566,
467 + .03012, .02271, 122.06469, 4.94115, 4.30385,
468 + 3.92158, 4.74694, 4.94604,
469 + .03070, .02299, 127.71309, 5.17756, 4.53838,
470 + 4.15913, 4.98438, 5.18250,
471 + .03124, .02326, 132.99858, 5.40318, 4.76146,
472 + 4.38402, 5.21095, 5.40817 /
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 + .03179, .02353, 138.45605, 5.63748, 4.99387,
475 + 4.61901, 5.44620, 5.64251,
476 + .03233, .02380, 143.82413, 5.87155, 5.22579,
477 + 4.85301, 5.68120, 5.87664,
478 + .03286, .02405, 148.99524, 6.09933, 5.45168,
479 + 5.08100, 5.90986, 6.10446,
480 + .03335, .02430, 153.96327, 6.31996, 5.67084,
481 + 5.30245, 6.13131, 6.32513,
482 + .03386, .02454, 158.92271, 6.54405, 5.89293,
483 + 5.52614, 6.35622, 6.54926 /
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 + .01715, .01661, .87277, .44957, .00000,
486 + .00000, .24078, .45259,
487 + .01792, .01699, 1.71242, .47455, .00000,
488 + .00000, .26761, .47762,
489 + .01905, .01756, 3.20791, .52059, .00000,
490 + .00000, .31627, .52375,
491 + .01987, .01796, 4.50783, .56048, .02296,
492 + .00000, .35799, .56371,
493 + .02073, .01839, 6.02003, .60879, .07848,
494 + .00000, .40813, .61208,
495 + .02147, .01876, 7.46301, .65576, .12905,
496 + .00000, .45664, .65910,
497 + .02218, .01911, 8.99500, .70502, .18258,
498 + .00000, .50734, .70842,
499 + .02293, .01948, 10.77555, .76197, .24496,
500 + .00000, .56576, .76542 /
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 + .02359, .01981, 12.41473, .81562, .30070,
503 + .00000, .62067, .81912,
504 + .02422, .02012, 14.09488, .87085, .35794,
505 + .00000, .67707, .87439,
506 + .02472, .02037, 15.51315, .91705, .40648,
507 + .00000, .72420, .92063,
508 + .02579, .02090, 18.64980, 1.02277, .51453,
509 + .01164, .83182, 1.02644,
510 + .02672, .02135, 21.47223, 1.12123, .61338,
511 + .15584, .93186, 1.12496,
512 + .02775, .02186, 24.83922, 1.23983, .73197,
513 + .31966, 1.05218, 1.24364,
514 + .02883, .02240, 28.56471, 1.37227, .86358,
515 + .47313, 1.18635, 1.37615,
516 + .02981, .02288, 32.12263, 1.50022, .99026,
517 + .61572, 1.31582, 1.50417 /
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 + .03080, .02337, 35.87682, 1.63688, 1.12547,
520 + .76316, 1.45398, 1.64091,
521 + .03163, .02377, 39.08961, 1.75571, 1.24251,
522 + .88707, 1.57402, 1.75980,
523 + .03262, .02426, 43.08856, 1.90605, 1.39028,
524 + 1.04115, 1.72578, 1.91021,
525 + .03351, .02470, 46.74202, 2.04509, 1.52736,
526 + 1.18356, 1.86606, 2.04932,
527 + .03432, .02510, 50.18121, 2.17757, 1.65820,
528 + 1.31882, 1.99964, 2.18185,
529 + .03536, .02560, 54.58500, 2.35096, 1.82872,
530 + 1.49289, 2.17440, 2.35532,
531 + .03633, .02608, 58.82491, 2.52041, 1.99586,
532 + 1.66355, 2.34511, 2.52484,
533 + .03725, .02653, 62.89719, 2.68518, 2.15898,
534 + 1.83039, 2.51102, 2.68968 /
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 + .03816, .02698, 66.94860, 2.85323, 2.32454,
537 + 1.99807, 2.68020, 2.85780,
538 + .03906, .02742, 70.99192, 3.02295, 2.49238,
539 + 2.16864, 2.85100, 3.02759,
540 + .03991, .02783, 74.86384, 3.18788, 2.65569,
541 + 2.33455, 3.01693, 3.19258,
542 + .04071, .02823, 78.49768, 3.34574, 2.81172,
543 + 2.49248, 3.17572, 3.35050,
544 + .04152, .02862, 82.22470, 3.50902, 2.97375,
545 + 2.65708, 3.33991, 3.51383,
546 + .04231, .02901, 85.83414, 3.67079, 3.13375,
547 + 2.81875, 3.50257, 3.67566,
548 + .04307, .02938, 89.34600, 3.82914, 3.29110,
549 + 2.97844, 3.66176, 3.83407,
550 + .04379, .02973, 92.60355, 3.97936, 3.43983,
551 + 3.12863, 3.81275, 3.98434 /
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 + .04452, .03009, 95.94897, 4.13466, 3.59412,
554 + 3.28493, 3.96882, 4.13970,
555 + .04524, .03044, 99.21456, 4.28897, 3.74725,
556 + 3.43970, 4.12388, 4.29406,
557 + .04592, .03077, 102.34113, 4.43843, 3.89571,
558 + 3.58981, 4.27405, 4.44358,
559 + .04658, .03109, 105.32854, 4.58259, 4.03915,
560 + 3.73502, 4.41887, 4.58778,
561 + .04724, .03141, 108.28811, 4.72826, 4.18373,
562 + 3.88089, 4.56520, 4.73350 /
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 + .02499, .02057, .83274, .38572, .00000,
565 + .00000, .20759, .38943,
566 + .02606, .02109, 1.59057, .40800, .00000,
567 + .00000, .23145, .41179,
568 + .02764, .02185, 2.90362, .44798, .00000,
569 + .00000, .27365, .45189,
570 + .02878, .02241, 4.01626, .48193, .01964,
571 + .00000, .30915, .48593,
572 + .02997, .02299, 5.28237, .52230, .06675,
573 + .00000, .35108, .52638,
574 + .03099, .02349, 6.46863, .56097, .10892,
575 + .00000, .39105, .56513,
576 + .03197, .02397, 7.70922, .60109, .15297,
577 + .00000, .43240, .60533,
578 + .03302, .02448, 9.13011, .64699, .20370,
579 + .00000, .47955, .65131 /
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 + .03392, .02492, 10.41964, .68975, .24847,
582 + .00000, .52338, .69414,
583 + .03479, .02534, 11.72577, .73339, .29402,
584 + .00000, .56801, .73784,
585 + .03548, .02567, 12.81790, .76966, .33236,
586 + .00000, .60506, .77417,
587 + .03694, .02639, 15.19669, .85178, .41675,
588 + .00945, .68879, .85640,
589 + .03820, .02700, 17.29655, .92730, .49297,
590 + .12180, .76565, .93201,
591 + .03961, .02769, 19.76334, 1.01726, .58333,
592 + .24827, .85706, 1.02208,
593 + .04108, .02841, 22.45011, 1.11652, .68239,
594 + .36478, .95779, 1.12145,
595 + .04241, .02905, 24.97807, 1.21134, .77668,
596 + .47168, 1.05390, 1.21638 /
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 + .04375, .02971, 27.60936, 1.31161, .87627,
599 + .58097, 1.15544, 1.31675,
600 + .04486, .03025, 29.83308, 1.39798, .96168,
601 + .67186, 1.24283, 1.40321,
602 + .04621, .03091, 32.56718, 1.50627, 1.06851,
603 + .78380, 1.35232, 1.51160,
604 + .04740, .03148, 35.03583, 1.60554, 1.16676,
605 + .88634, 1.45264, 1.61097,
606 + .04850, .03202, 37.33576, 1.69939, 1.25981,
607 + .98297, 1.54743, 1.70491,
608 + .04988, .03269, 40.24498, 1.82115, 1.38000,
609 + 1.10615, 1.67034, 1.82677,
610 + .05118, .03332, 43.01345, 1.93911, 1.49678,
611 + 1.22588, 1.78936, 1.94484,
612 + .05240, .03392, 45.64511, 2.05292, 1.60990,
613 + 1.34205, 1.90415, 2.05874 /
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 + .05361, .03451, 48.23194, 2.16802, 1.72370,
616 + 1.45774, 2.02020, 2.17394,
617 + .05481, .03509, 50.78930, 2.28343, 1.83826,
618 + 1.57462, 2.13652, 2.28944,
619 + .05593, .03563, 53.21513, 2.39480, 1.94897,
620 + 1.68752, 2.24874, 2.40091,
621 + .05700, .03615, 55.46895, 2.50065, 2.05398,
622 + 1.79420, 2.35538, 2.50684,
623 + .05806, .03667, 57.76374, 2.60950, 2.16244,
624 + 1.90480, 2.46501, 2.61578,
625 + .05911, .03718, 59.96282, 2.71660, 2.26875,
626 + 2.01260, 2.57285, 2.72296,
627 + .06011, .03766, 62.08920, 2.82090, 2.37280,
628 + 2.11861, 2.67786, 2.82734,
629 + .06106, .03812, 64.04182, 2.91919, 2.47048,
630 + 2.21760, 2.77681, 2.92571 /
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 + .06201, .03858, 66.03574, 3.02035, 2.57138,
633 + 2.32019, 2.87862, 3.02694,
634 + .06295, .03904, 67.96502, 3.12026, 2.67091,
635 + 2.42115, 2.97917, 3.12694,
636 + .06385, .03947, 69.79971, 3.21657, 2.76695,
637 + 2.51860, 3.07608, 3.22331,
638 + .06471, .03989, 71.54227, 3.30904, 2.85934,
639 + 2.61248, 3.16912, 3.31586,
640 + .06557, .04030, 73.25313, 3.40196, 2.95191,
641 + 2.70621, 3.26260, 3.40885 /
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 + .03103, .02343, .81886, .35249, .00000,
644 + .00000, .19044, .35686,
645 + .03233, .02405, 1.53249, .37326, .00000,
646 + .00000, .21267, .37774,
647 + .03423, .02497, 2.74733, .40997, .00000,
648 + .00000, .25143, .41462,
649 + .03561, .02564, 3.76042, .44078, .01790,
650 + .00000, .28366, .44555,
651 + .03705, .02633, 4.89741, .47700, .06064,
652 + .00000, .32132, .48190,
653 + .03829, .02693, 5.95067, .51139, .09849,
654 + .00000, .35691, .51639,
655 + .03947, .02750, 7.04186, .54683, .13770,
656 + .00000, .39348, .55193,
657 + .04073, .02811, 8.28028, .58711, .18251,
658 + .00000, .43492, .59233 /
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 + .04181, .02863, 9.39427, .62439, .22177,
661 + .00000, .47317, .62969,
662 + .04286, .02914, 10.51428, .66222, .26147,
663 + .00000, .51193, .66761,
664 + .04369, .02954, 11.44526, .69354, .29474,
665 + .00000, .54396, .69901,
666 + .04544, .03039, 13.45376, .76398, .36746,
667 + .00834, .61589, .76960,
668 + .04695, .03112, 15.20533, .82826, .43260,
669 + .10507, .68141, .83401,
670 + .04864, .03194, 17.24334, .90429, .50928,
671 + .21333, .75878, .91018,
672 + .05039, .03279, 19.44138, .98757, .59271,
673 + .31203, .84341, .99361,
674 + .05197, .03355, 21.49028, 1.06658, .67155,
675 + .40191, .92362, 1.07276 /
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 + .05357, .03433, 23.60481, 1.14960, .75432,
678 + .49313, 1.00781, 1.15592,
679 + .05489, .03497, 25.37773, 1.22070, .82487,
680 + .56852, 1.07986, 1.22714,
681 + .05649, .03574, 27.54071, 1.30934, .91262,
682 + .66081, 1.16962, 1.31592,
683 + .05790, .03643, 29.47928, 1.39017, .99288,
684 + .74490, 1.25142, 1.39687,
685 + .05919, .03705, 31.27358, 1.46622, 1.06855,
686 + .82374, 1.32833, 1.47303,
687 + .06083, .03785, 33.52554, 1.56433, 1.16572,
688 + .92367, 1.42752, 1.57129,
689 + .06236, .03859, 35.65273, 1.65888, 1.25964,
690 + 1.02028, 1.52305, 1.66597,
691 + .06380, .03929, 37.66159, 1.74965, 1.35019,
692 + 1.11357, 1.61474, 1.75687 /
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 + .06523, .03998, 39.62078, 1.84098, 1.44078,
695 + 1.20596, 1.70695, 1.84832,
696 + .06663, .04066, 41.54605, 1.93214, 1.53159,
697 + 1.29890, 1.79896, 1.93961,
698 + .06796, .04130, 43.36118, 2.01974, 1.61896,
699 + 1.38829, 1.88735, 2.02732,
700 + .06920, .04190, 45.03644, 2.10262, 1.70146,
701 + 1.47236, 1.97096, 2.11031,
702 + .07045, .04250, 46.73437, 2.18755, 1.78639,
703 + 1.55925, 2.05663, 2.19536,
704 + .07168, .04310, 48.34994, 2.27074, 1.86924,
705 + 1.64352, 2.14051, 2.27865,
706 + .07285, .04366, 49.90612, 2.35151, 1.95011,
707 + 1.72618, 2.22194, 2.35953,
708 + .07395, .04419, 51.32536, 2.42731, 2.02569,
709 + 1.80300, 2.29835, 2.43542 /
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 + .07506, .04473, 52.76942, 2.50510, 2.10356,
712 + 1.88243, 2.37675, 2.51331,
713 + .07615, .04526, 54.15844, 2.58165, 2.18008,
714 + 1.96029, 2.45390, 2.58996,
715 + .07720, .04577, 55.47347, 2.65521, 2.25369,
716 + 2.03522, 2.52802, 2.66361,
717 + .07819, .04625, 56.71765, 2.72565, 2.32431,
718 + 2.10721, 2.59898, 2.73413,
719 + .07919, .04673, 57.93145, 2.79616, 2.39481,
720 + 2.17881, 2.67002, 2.80473 /
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 + .03614, .02579, .81522, .33065, .00000,
723 + .00000, .17920, .33560,
724 + .03763, .02650, 1.49886, .35039, .00000,
725 + .00000, .20031, .35548,
726 + .03981, .02755, 2.64707, .38489, .00000,
727 + .00000, .23675, .39018,
728 + .04139, .02830, 3.59318, .41359, .01676,
729 + .00000, .26680, .41903,
730 + .04303, .02910, 4.64402, .44706, .05661,
731 + .00000, .30164, .45266,
732 + .04444, .02978, 5.60926, .47862, .09161,
733 + .00000, .33434, .48436,
734 + .04579, .03043, 6.60224, .51100, .12764,
735 + .00000, .36778, .51686,
736 + .04722, .03111, 7.72155, .54762, .16861,
737 + .00000, .40550, .55362 /
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 + .04846, .03171, 8.72175, .58133, .20428,
740 + .00000, .44014, .58744,
741 + .04965, .03228, 9.72180, .61541, .24021,
742 + .00000, .47510, .62164,
743 + .05059, .03274, 10.54943, .64354, .27021,
744 + .00000, .50391, .64985,
745 + .05258, .03370, 12.32210, .70650, .33545,
746 + .00761, .56828, .71300,
747 + .05429, .03453, 13.85385, .76361, .39354,
748 + .09436, .62658, .77027,
749 + .05620, .03545, 15.62333, .83083, .46155,
750 + .19104, .69507, .83767,
751 + .05818, .03641, 17.51778, .90404, .53513,
752 + .27851, .76958, .91107,
753 + .05997, .03727, 19.27134, .97315, .60431,
754 + .35770, .83982, .98034 /
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 + .06177, .03814, 21.06950, 1.04543, .67658,
757 + .43765, .91322, 1.05279,
758 + .06326, .03886, 22.56817, 1.10706, .73792,
759 + .50341, .97576, 1.11457,
760 + .06506, .03974, 24.38587, 1.18358, .81389,
761 + .58357, 1.05334, 1.19125,
762 + .06665, .04050, 26.00589, 1.25306, .88310,
763 + .65629, 1.12375, 1.26088,
764 + .06810, .04121, 27.49795, 1.31821, .94811,
765 + .72423, 1.18973, 1.32617,
766 + .06994, .04209, 29.35940, 1.40192, 1.03125,
767 + .80997, 1.27446, 1.41005,
768 + .07166, .04293, 31.10782, 1.48226, 1.11130,
769 + .89254, 1.35575, 1.49054,
770 + .07327, .04370, 32.75081, 1.55912, 1.18819,
771 + .97199, 1.43348, 1.56756 /
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 + .07487, .04448, 34.34341, 1.63613, 1.26481,
774 + 1.05034, 1.51134, 1.64472,
775 + .07643, .04523, 35.90129, 1.71276, 1.34137,
776 + 1.12891, 1.58878, 1.72149,
777 + .07791, .04595, 37.36319, 1.78615, 1.41479,
778 + 1.20424, 1.66293, 1.79502,
779 + .07930, .04662, 38.70544, 1.85536, 1.48388,
780 + 1.27484, 1.73284, 1.86436,
781 + .08069, .04729, 40.06111, 1.92610, 1.55483,
782 + 1.34763, 1.80428, 1.93523,
783 + .08206, .04795, 41.34380, 1.99515, 1.62381,
784 + 1.41798, 1.87400, 2.00440,
785 + .08336, .04858, 42.57575, 2.06204, 1.69099,
786 + 1.48683, 1.94153, 2.07142,
787 + .08458, .04917, 43.69314, 2.12461, 1.75357,
788 + 1.55062, 2.00469, 2.13410 /
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 + .08581, .04977, 44.82699, 2.18869, 1.81792,
791 + 1.61643, 2.06936, 2.19830,
792 + .08703, .05035, 45.91246, 2.25158, 1.88097,
793 + 1.68077, 2.13281, 2.26130,
794 + .08819, .05091, 46.93651, 2.31186, 1.94149,
795 + 1.74254, 2.19364, 2.32169,
796 + .08929, .05144, 47.90242, 2.36947, 1.99944,
797 + 1.80178, 2.25176, 2.37940,
798 + .09039, .05198, 48.83993, 2.42699, 2.05712,
799 + 1.86052, 2.30978, 2.43702 /
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 + .04074, .02793, .82042, .31491, .00000,
802 + .00000, .17092, .32017,
803 + .04239, .02872, 1.48036, .33384, .00000,
804 + .00000, .19115, .33925,
805 + .04480, .02989, 2.57725, .36666, .00000,
806 + .00000, .22579, .37230,
807 + .04655, .03073, 3.47230, .39376, .01590,
808 + .00000, .25417, .39957,
809 + .04837, .03161, 4.45770, .42516, .05359,
810 + .00000, .28686, .43114,
811 + .04992, .03236, 5.35652, .45462, .08646,
812 + .00000, .31739, .46075,
813 + .05141, .03308, 6.27576, .48472, .12013,
814 + .00000, .34849, .49098,
815 + .05299, .03385, 7.30607, .51862, .15823,
816 + .00000, .38344, .52504 /
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 + .05435, .03451, 8.22173, .54971, .19126,
819 + .00000, .41540, .55626,
820 + .05566, .03514, 9.13302, .58103, .22440,
821 + .00000, .44755, .58770,
822 + .05669, .03564, 9.88440, .60682, .25199,
823 + .00000, .47398, .61359,
824 + .05888, .03670, 11.48415, .66431, .31174,
825 + .00707, .53281, .67129,
826 + .06076, .03762, 12.85572, .71622, .36467,
827 + .08650, .58583, .72338,
828 + .06286, .03863, 14.43072, .77705, .42636,
829 + .17471, .64787, .78440,
830 + .06503, .03969, 16.10662, .84300, .49280,
831 + .25400, .71504, .85057,
832 + .06699, .04064, 17.64877, .90500, .55499,
833 + .32543, .77811, .91275 /
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 + .06895, .04159, 19.22162, .96958, .61971,
836 + .39724, .84376, .97752,
837 + .07058, .04238, 20.52595, 1.02446, .67444,
838 + .45608, .89949, 1.03256,
839 + .07254, .04334, 22.10015, 1.09235, .74199,
840 + .52752, .96839, 1.10063,
841 + .07427, .04418, 23.49651, 1.15380, .80333,
842 + .59212, 1.03072, 1.16225,
843 + .07586, .04495, 24.77714, 1.21124, .86077,
844 + .65230, 1.08894, 1.21984,
845 + .07785, .04591, 26.36691, 1.28479, .93398,
846 + .72797, 1.16346, 1.29357,
847 + .07972, .04682, 27.85298, 1.35514, 1.00423,
848 + .80059, 1.23471, 1.36410,
849 + .08147, .04767, 29.24351, 1.42225, 1.07152,
850 + .87029, 1.30265, 1.43138 /
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 + .08321, .04851, 30.58422, 1.48927, 1.13834,
853 + .93876, 1.37046, 1.49856,
854 + .08490, .04933, 31.89071, 1.55577, 1.20493,
855 + 1.00726, 1.43774, 1.56522,
856 + .08651, .05011, 33.11189, 1.61929, 1.26863,
857 + 1.07275, 1.50198, 1.62889,
858 + .08801, .05084, 34.22799, 1.67901, 1.32839,
859 + 1.13396, 1.56237, 1.68876,
860 + .08952, .05157, 35.35188, 1.73993, 1.38964,
861 + 1.19694, 1.62396, 1.74982,
862 + .09099, .05228, 36.40997, 1.79922, 1.44901,
863 + 1.25763, 1.68388, 1.80925,
864 + .09239, .05296, 37.42374, 1.85655, 1.50673,
865 + 1.31693, 1.74182, 1.86671,
866 + .09371, .05360, 38.33871, 1.91004, 1.56036,
867 + 1.37171, 1.79586, 1.92032 /
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 + .09505, .05424, 39.26503, 1.96472, 1.61541,
870 + 1.42814, 1.85111, 1.97513,
871 + .09635, .05487, 40.14816, 2.01825, 1.66922,
872 + 1.48318, 1.90519, 2.02879,
873 + .09760, .05547, 40.97885, 2.06948, 1.72077,
874 + 1.53592, 1.95693, 2.08013,
875 + .09878, .05605, 41.76035, 2.11835, 1.77005,
876 + 1.58642, 2.00628, 2.12911,
877 + .09997, .05662, 42.51538, 2.16700, 1.81899,
878 + 1.63637, 2.05542, 2.17788 /
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 + .05893, .03628, .86421, .27074, .00000,
881 + .00000, .14803, .27772,
882 + .06120, .03739, 1.45459, .28731, .00000,
883 + .00000, .16572, .29453,
884 + .06450, .03902, 2.39944, .31522, .00000,
885 + .00000, .19519, .32277,
886 + .06687, .04018, 3.14509, .33774, .01348,
887 + .00000, .21881, .34553,
888 + .06934, .04140, 3.94238, .36328, .04508,
889 + .00000, .24546, .37133,
890 + .07144, .04244, 4.65284, .38682, .07201,
891 + .00000, .26992, .39508,
892 + .07345, .04343, 5.36522, .41055, .09911,
893 + .00000, .29451, .41901,
894 + .07557, .04447, 6.14863, .43693, .12929,
895 + .00000, .32179, .44561 /
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 + .07739, .04537, 6.83220, .46079, .15503,
898 + .00000, .34641, .46966,
899 + .07914, .04623, 7.50205, .48457, .18056,
900 + .00000, .37090, .49361,
901 + .08052, .04691, 8.04761, .50399, .20161,
902 + .00000, .39088, .51317,
903 + .08344, .04835, 9.18543, .54671, .24652,
904 + .00558, .43475, .55618,
905 + .08593, .04957, 10.13511, .58467, .28565,
906 + .06536, .47368, .59439,
907 + .08870, .05094, 11.20374, .62851, .33059,
908 + .13096, .51857, .63851,
909 + .09155, .05234, 12.31748, .67534, .37823,
910 + .18866, .56646, .68563,
911 + .09412, .05360, 13.32205, .71874, .42218,
912 + .23983, .61079, .72928 /
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 + .09669, .05487, 14.32798, .76337, .46733,
915 + .29052, .65634, .77416,
916 + .09880, .05591, 15.14782, .80083, .50505,
917 + .33151, .69455, .81184,
918 + .10135, .05716, 16.12047, .84664, .55106,
919 + .38068, .74124, .85789,
920 + .10358, .05825, 16.96927, .88763, .59237,
921 + .42465, .78300, .89911,
922 + .10562, .05925, 17.73653, .92557, .63069,
923 + .46520, .82164, .93725,
924 + .10818, .06051, 18.67191, .97359, .67896,
925 + .51557, .87051, .98552,
926 + .11057, .06168, 19.53168, 1.01900, .72477,
927 + .56340, .91671, 1.03117,
928 + .11281, .06277, 20.32438, 1.06189, .76822,
929 + .60886, .96033, 1.07428 /
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 + .11501, .06385, 21.07405, 1.10423, .81088,
932 + .65300, 1.00338, 1.11683,
933 + .11715, .06489, 21.79456, 1.14587, .85301,
934 + .69677, 1.04570, 1.15867,
935 + .11918, .06588, 22.45834, 1.18527, .89296,
936 + .73826, 1.08574, 1.19827,
937 + .12106, .06680, 23.05482, 1.22196, .93008,
938 + .77666, 1.12302, 1.23514,
939 + .12296, .06772, 23.64926, 1.25912, .96787,
940 + .81592, 1.16077, 1.27248,
941 + .12480, .06861, 24.19827, 1.29492, 1.00413,
942 + .85336, 1.19714, 1.30846,
943 + .12655, .06946, 24.71991, 1.32933, 1.03918,
944 + .88975, 1.23208, 1.34304,
945 + .12819, .07026, 25.18163, 1.36112, 1.07143,
946 + .92304, 1.26437, 1.37498 /
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 + .12984, .07106, 25.64535, 1.39344, 1.10437,
949 + .95717, 1.29719, 1.40746,
950 + .13146, .07184, 26.08010, 1.42482, 1.13629,
951 + .99017, 1.32906, 1.43899,
952 + .13300, .07259, 26.48425, 1.45465, 1.16669,
953 + 1.02161, 1.35934, 1.46897,
954 + .13446, .07329, 26.86069, 1.48293, 1.19558,
955 + 1.05155, 1.38807, 1.49739,
956 + .13592, .07400, 27.21735, 1.51086, 1.22404,
957 + 1.08090, 1.41642, 1.52545 /
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 + .08507, .04875, .98693, .23448, .00000,
960 + .00000, .12924, .24390,
961 + .08814, .05031, 1.50764, .24891, .00000,
962 + .00000, .14462, .25867,
963 + .09259, .05257, 2.30162, .27232, .00000,
964 + .00000, .16938, .28256,
965 + .09578, .05418, 2.90415, .29073, .01137,
966 + .00000, .18873, .30131,
967 + .09907, .05584, 3.52784, .31109, .03770,
968 + .00000, .21005, .32203,
969 + .10187, .05726, 4.06909, .32947, .05950,
970 + .00000, .22922, .34071,
971 + .10453, .05860, 4.59943, .34771, .08096,
972 + .00000, .24822, .35924,
973 + .10732, .06001, 5.16998, .36770, .10443,
974 + .00000, .26898, .37952 /
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 + .10972, .06122, 5.65754, .38548, .12405,
977 + .00000, .28742, .39755,
978 + .11201, .06237, 6.12678, .40297, .14323,
979 + .00000, .30553, .41529,
980 + .11382, .06328, 6.50351, .41712, .15887,
981 + .00000, .32018, .42963,
982 + .11762, .06518, 7.26968, .44777, .19168,
983 + .00432, .35183, .46067,
984 + .12084, .06680, 7.88815, .47450, .21971,
985 + .04819, .37941, .48774,
986 + .12441, .06859, 8.56742, .50487, .25133,
987 + .09567, .41070, .51847,
988 + .12807, .07041, 9.25813, .53672, .28425,
989 + .13640, .44350, .55071,
990 + .13134, .07204, 9.86627, .56575, .31413,
991 + .17185, .47336, .58007 /
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 + .13461, .07367, 10.46169, .59516, .34434,
994 + .20639, .50358, .60981,
995 + .13728, .07499, 10.93669, .61949, .36924,
996 + .23390, .52859, .63442,
997 + .14048, .07658, 11.48797, .64884, .39919,
998 + .26643, .55872, .66408,
999 + .14328, .07796, 11.95926, .67475, .42574,
1000 + .29516, .58533, .69028,
1001 + .14582, .07922, 12.37753, .69846, .45010,
1002 + .32135, .60965, .71423,
1003 + .14900, .08078, 12.87523, .72803, .48035,
1004 + .35343, .64000, .74412,
1005 + .15195, .08223, 13.32259, .75563, .50870,
1006 + .38351, .66831, .77201,
1007 + .15469, .08357, 13.72703, .78140, .53529,
1008 + .41180, .69475, .79805 /
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 + .15739, .08489, 14.09904, .80648, .56104,
1011 + .43888, .72046, .82339,
1012 + .16000, .08616, 14.44990, .83086, .58621,
1013 + .46549, .74547, .84802,
1014 + .16246, .08736, 14.76653, .85368, .60983,
1015 + .49044, .76888, .87108,
1016 + .16473, .08846, 15.04382, .87468, .63152,
1017 + .51328, .79042, .89229,
1018 + .16702, .08957, 15.31627, .89578, .65344,
1019 + .53645, .81206, .91361,
1020 + .16922, .09063, 15.56026, .91583, .67421,
1021 + .55829, .83263, .93387,
1022 + .17131, .09165, 15.78960, .93498, .69416,
1023 + .57939, .85228, .95321,
1024 + .17326, .09258, 15.98583, .95244, .71230,
1025 + .59846, .87020, .97085 /
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 + .17522, .09352, 16.18072, .97008, .73071,
1028 + .61791, .88830, .98867,
1029 + .17713, .09444, 16.35798, .98701, .74838,
1030 + .63652, .90568, 1.00578,
1031 + .17894, .09531, 16.51950, 1.00297, .76507,
1032 + .65413, .92207, 1.02191,
1033 + .18065, .09613, 16.66745, 1.01800, .78084,
1034 + .67079, .93751, 1.03710,
1035 + .18235, .09694, 16.80220, 1.03268, .79620,
1036 + .68696, .95259, 1.05193 /
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 + .10541, .05896, 1.11059, .21672, .00000,
1039 + .00000, .12020, .22827,
1040 + .10906, .06083, 1.58141, .22988, .00000,
1041 + .00000, .13425, .24185,
1042 + .11431, .06354, 2.28314, .25076, .00000,
1043 + .00000, .15638, .26331,
1044 + .11806, .06546, 2.80221, .26688, .01024,
1045 + .00000, .17338, .27985,
1046 + .12193, .06744, 3.32794, .28442, .03371,
1047 + .00000, .19183, .29782,
1048 + .12520, .06911, 3.77654, .30005, .05278,
1049 + .00000, .20820, .31380,
1050 + .12830, .07070, 4.20946, .31539, .07128,
1051 + .00000, .22425, .32948,
1052 + .13155, .07235, 4.66851, .33203, .09125,
1053 + .00000, .24162, .34646 /
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 + .13433, .07376, 5.05541, .34667, .10774,
1056 + .00000, .25689, .36141,
1057 + .13699, .07511, 5.42335, .36096, .12370,
1058 + .00000, .27177, .37598,
1059 + .13907, .07616, 5.71594, .37244, .13661,
1060 + .00000, .28372, .38768,
1061 + .14345, .07837, 6.30057, .39704, .16338,
1062 + .00367, .30928, .41275,
1063 + .14715, .08023, 6.76095, .41823, .18596,
1064 + .03967, .33128, .43432,
1065 + .15122, .08228, 7.25831, .44204, .21113,
1066 + .07829, .35597, .45855,
1067 + .15539, .08436, 7.75545, .46671, .23703,
1068 + .11087, .38154, .48365,
1069 + .15910, .08621, 8.18569, .48894, .26026,
1070 + .13889, .40457, .50626 /
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 + .16279, .08805, 8.60024, .51123, .28353,
1073 + .16589, .42765, .52892,
1074 + .16580, .08954, 8.92564, .52949, .30252,
1075 + .18718, .44656, .54748,
1076 + .16939, .09131, 9.29712, .55130, .32516,
1077 + .21213, .46913, .56964,
1078 + .17253, .09285, 9.60980, .57038, .34506,
1079 + .23398, .48889, .58904,
1080 + .17536, .09424, 9.88343, .58770, .36318,
1081 + .25374, .50681, .60663,
1082 + .17889, .09596, 10.20252, .60909, .38547,
1083 + .27773, .52895, .62837,
1084 + .18215, .09756, 10.48436, .62888, .40619,
1085 + .30005, .54943, .64846,
1086 + .18518, .09903, 10.73530, .64720, .42547,
1087 + .32088, .56840, .66707 /
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 + .18813, .10046, 10.96035, .66484, .44397,
1090 + .34064, .58666, .68499,
1091 + .19100, .10184, 11.16913, .68186, .46193,
1092 + .35992, .60430, .70228,
1093 + .19367, .10312, 11.35402, .69768, .47866,
1094 + .37789, .62069, .71834,
1095 + .19615, .10431, 11.51186, .71209, .49391,
1096 + .39421, .63564, .73298,
1097 + .19862, .10549, 11.66501, .72649, .50923,
1098 + .41069, .65056, .74760,
1099 + .20100, .10663, 11.79786, .74004, .52362,
1100 + .42609, .66463, .76137,
1101 + .20326, .10770, 11.92162, .75291, .53739,
1102 + .44091, .67799, .77445,
1103 + .20535, .10869, 12.02327, .76453, .54980,
1104 + .45420, .69007, .78625 /
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 + .20745, .10968, 12.12315, .77622, .56235,
1107 + .46770, .70221, .79813,
1108 + .20949, .11064, 12.21075, .78735, .57431,
1109 + .48054, .71378, .80943,
1110 + .21141, .11154, 12.28870, .79778, .58554,
1111 + .49262, .72464, .82003,
1112 + .21323, .11240, 12.35868, .80755, .59610,
1113 + .50400, .73480, .82996,
1114 + .21503, .11324, 12.41891, .81699, .60631,
1115 + .51496, .74465, .83955 /
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 + .12276, .06805, 1.22246, .20570, .00000,
1118 + .00000, .11465, .21920,
1119 + .12685, .07017, 1.65465, .21792, .00000,
1120 + .00000, .12773, .23189,
1121 + .13274, .07322, 2.28680, .23697, .00000,
1122 + .00000, .14799, .25161,
1123 + .13693, .07539, 2.74527, .25148, .00944,
1124 + .00000, .16336, .26658,
1125 + .14124, .07760, 3.20182, .26707, .03094,
1126 + .00000, .17983, .28265,
1127 + .14487, .07946, 3.58647, .28081, .04815,
1128 + .00000, .19430, .29679,
1129 + .14831, .08122, 3.95336, .29419, .06465,
1130 + .00000, .20837, .31055,
1131 + .15191, .08305, 4.33806, .30859, .08228,
1132 + .00000, .22349, .32533 /
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 + .15498, .08461, 4.65887, .32115, .09670,
1135 + .00000, .23666, .33822,
1136 + .15790, .08609, 4.96109, .33333, .11054,
1137 + .00000, .24941, .35071,
1138 + .16019, .08725, 5.19961, .34306, .12168,
1139 + .00000, .25961, .36069,
1140 + .16499, .08967, 5.66928, .36375, .14458,
1141 + .00323, .28124, .38188,
1142 + .16903, .09170, 6.03135, .38139, .16368,
1143 + .03419, .29968, .39994,
1144 + .17347, .09391, 6.41721, .40103, .18480,
1145 + .06717, .32020, .42003,
1146 + .17799, .09616, 6.79756, .42120, .20632,
1147 + .09465, .34125, .44065,
1148 + .18201, .09815, 7.12201, .43920, .22545,
1149 + .11806, .36005, .45906 /
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 + .18599, .10012, 7.43036, .45710, .24447,
1152 + .14044, .37874, .47736,
1153 + .18923, .10170, 7.66904, .47165, .25988,
1154 + .15795, .39394, .49223,
1155 + .19307, .10358, 7.93756, .48890, .27812,
1156 + .17832, .41194, .50984,
1157 + .19642, .10521, 8.16043, .50388, .29404,
1158 + .19604, .42759, .52515,
1159 + .19944, .10668, 8.35295, .51739, .30845,
1160 + .21199, .44170, .53894,
1161 + .20318, .10849, 8.57319, .53393, .32606,
1162 + .23120, .45900, .55583,
1163 + .20664, .11015, 8.76438, .54912, .34231,
1164 + .24896, .47488, .57133,
1165 + .20984, .11168, 8.93202, .56308, .35735,
1166 + .26545, .48949, .58560 /
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 + .21295, .11316, 9.07837, .57641, .37166,
1169 + .28097, .50345, .59920,
1170 + .21595, .11458, 9.21187, .58920, .38549,
1171 + .29605, .51685, .61225,
1172 + .21875, .11591, 9.32769, .60099, .39830,
1173 + .31003, .52922, .62430,
1174 + .22133, .11712, 9.42362, .61166, .40989,
1175 + .32264, .54042, .63519,
1176 + .22390, .11832, 9.51542, .62226, .42150,
1177 + .33534, .55156, .64601,
1178 + .22637, .11947, 9.59169, .63215, .43232,
1179 + .34712, .56196, .65611,
1180 + .22871, .12056, 9.66200, .64151, .44265,
1181 + .35843, .57182, .66567,
1182 + .23086, .12155, 9.71651, .64988, .45188,
1183 + .36850, .58065, .67422 /
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 + .23302, .12255, 9.76932, .65827, .46119,
1186 + .37870, .58949, .68279,
1187 + .23511, .12351, 9.81298, .66619, .47001,
1188 + .38835, .59787, .69088,
1189 + .23708, .12442, 9.85029, .67358, .47825,
1190 + .39739, .60568, .69843,
1191 + .23894, .12526, 9.88263, .68046, .48598,
1192 + .40589, .61296, .70546,
1193 + .24077, .12610, 9.90732, .68706, .49339,
1194 + .41402, .61996, .71220 /
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 + .13822, .07640, 1.32095, .19793, .00000,
1197 + .00000, .11082, .21330,
1198 + .14269, .07873, 1.72019, .20936, .00000,
1199 + .00000, .12310, .22525,
1200 + .14910, .08205, 2.29535, .22695, .00000,
1201 + .00000, .14189, .24356,
1202 + .15365, .08440, 2.70570, .24019, .00882,
1203 + .00000, .15598, .25731,
1204 + .15831, .08680, 3.10852, .25428, .02877,
1205 + .00000, .17093, .27190,
1206 + .16223, .08880, 3.44443, .26658, .04455,
1207 + .00000, .18396, .28463,
1208 + .16594, .09069, 3.76173, .27847, .05954,
1209 + .00000, .19655, .29693,
1210 + .16982, .09266, 4.09138, .29118, .07543,
1211 + .00000, .20998, .31005 /
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 + .17311, .09433, 4.36381, .30220, .08832,
1214 + .00000, .22161, .32143,
1215 + .17624, .09590, 4.61840, .31282, .10062,
1216 + .00000, .23280, .33237,
1217 + .17869, .09714, 4.81808, .32128, .11046,
1218 + .00000, .24172, .34108,
1219 + .18381, .09970, 5.20623, .33911, .13056,
1220 + .00292, .26051, .35945,
1221 + .18811, .10184, 5.49960, .35420, .14718,
1222 + .03023, .27640, .37497,
1223 + .19282, .10418, 5.80842, .37088, .16542,
1224 + .05917, .29395, .39211,
1225 + .19761, .10653, 6.10920, .38785, .18387,
1226 + .08305, .31182, .40956,
1227 + .20185, .10861, 6.36241, .40289, .20015,
1228 + .10324, .32766, .42501 /
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 + .20603, .11065, 6.59988, .41773, .21623,
1231 + .12241, .34330, .44025,
1232 + .20942, .11229, 6.78132, .42973, .22918,
1233 + .13731, .35594, .45257,
1234 + .21345, .11423, 6.98269, .44383, .24441,
1235 + .15455, .37082, .46705,
1236 + .21694, .11591, 7.14750, .45601, .25764,
1237 + .16947, .38367, .47955,
1238 + .22008, .11741, 7.28793, .46693, .26956,
1239 + .18282, .39520, .49076,
1240 + .22397, .11925, 7.44545, .48021, .28402,
1241 + .19883, .40924, .50438,
1242 + .22754, .12094, 7.57970, .49231, .29730,
1243 + .21355, .42205, .51680,
1244 + .23083, .12249, 7.69547, .50337, .30953,
1245 + .22715, .43377, .52815 /
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 + .23403, .12398, 7.79325, .51384, .32110,
1248 + .23987, .44487, .53889,
1249 + .23711, .12541, 7.88073, .52383, .33221,
1250 + .25219, .45549, .54914,
1251 + .23997, .12673, 7.95479, .53299, .34246,
1252 + .26355, .46524, .55854,
1253 + .24260, .12794, 8.01365, .54121, .35169,
1254 + .27375, .47400, .56697,
1255 + .24521, .12913, 8.06892, .54935, .36090,
1256 + .28399, .48268, .57532,
1257 + .24771, .13027, 8.11184, .55687, .36943,
1258 + .29344, .49072, .58304,
1259 + .25007, .13134, 8.15083, .56397, .37754,
1260 + .30248, .49832, .59033,
1261 + .25225, .13232, 8.17803, .57026, .38475,
1262 + .31050, .50508, .59679 /
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 + .25442, .13329, 8.20373, .57655, .39200,
1265 + .31859, .51183, .60324,
1266 + .25652, .13423, 8.22241, .58242, .39883,
1267 + .32621, .51816, .60927,
1268 + .25850, .13511, 8.23685, .58787, .40520,
1269 + .33333, .52404, .61487,
1270 + .26036, .13593, 8.24809, .59293, .41114,
1271 + .34000, .52951, .62006,
1272 + .26218, .13673, 8.25302, .59773, .41680,
1273 + .34635, .53472, .62499 /
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 + .16551, .09164, 1.48155, .18729, .00000,
1276 + .00000, .10571, .20620,
1277 + .17057, .09426, 1.82492, .19742, .00000,
1278 + .00000, .11670, .21690,
1279 + .17780, .09798, 2.30802, .21266, .00000,
1280 + .00000, .13316, .23294,
1281 + .18291, .10059, 2.64366, .22392, .00783,
1282 + .00000, .14529, .24476,
1283 + .18812, .10324, 2.96526, .23571, .02538,
1284 + .00000, .15796, .25710,
1285 + .19249, .10544, 3.22902, .24585, .03902,
1286 + .00000, .16885, .26770,
1287 + .19660, .10750, 3.47428, .25555, .05178,
1288 + .00000, .17926, .27783,
1289 + .20088, .10964, 3.72522, .26581, .06514,
1290 + .00000, .19026, .28853 /
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 + .20450, .11144, 3.92956, .27460, .07583,
1293 + .00000, .19967, .29768,
1294 + .20793, .11313, 4.11793, .28299, .08593,
1295 + .00000, .20866, .30641,
1296 + .21062, .11446, 4.26409, .28962, .09396,
1297 + .00000, .21577, .31331,
1298 + .21619, .11719, 4.54147, .30346, .11016,
1299 + .00246, .23058, .32769,
1300 + .22084, .11945, 4.74326, .31500, .12338,
1301 + .02469, .24295, .33967,
1302 + .22592, .12190, 4.95106, .32758, .13772,
1303 + .04806, .25644, .35274,
1304 + .23104, .12436, 5.14892, .34022, .15203,
1305 + .06705, .27001, .36584,
1306 + .23556, .12650, 5.31141, .35127, .16452,
1307 + .08291, .28189, .37730 /
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 + .23999, .12859, 5.46006, .36205, .17673,
1310 + .09781, .29349, .38847,
1311 + .24357, .13026, 5.57056, .37065, .18646,
1312 + .10928, .30276, .39738,
1313 + .24778, .13222, 5.68936, .38064, .19780,
1314 + .12243, .31356, .40772,
1315 + .25142, .13390, 5.78375, .38918, .20756,
1316 + .13372, .32279, .41656,
1317 + .25469, .13540, 5.86192, .39676, .21628,
1318 + .14374, .33100, .42441,
1319 + .25870, .13722, 5.94513, .40583, .22676,
1320 + .15564, .34087, .43380,
1321 + .26237, .13888, 6.01275, .41400, .23629,
1322 + .16650, .34977, .44226,
1323 + .26573, .14039, 6.06850, .42140, .24500,
1324 + .17645, .35785, .44991 /
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 + .26897, .14182, 6.11099, .42829, .25314,
1327 + .18568, .36540, .45703,
1328 + .27207, .14319, 6.14659, .43478, .26091,
1329 + .19455, .37255, .46375,
1330 + .27495, .14445, 6.17401, .44067, .26802,
1331 + .20267, .37904, .46985,
1332 + .27757, .14559, 6.19204, .44587, .27435,
1333 + .20990, .38480, .47523,
1334 + .28017, .14671, 6.20747, .45098, .28063,
1335 + .21713, .39047, .48051,
1336 + .28264, .14776, 6.21460, .45561, .28639,
1337 + .22373, .39565, .48531,
1338 + .28497, .14875, 6.22021, .45996, .29184,
1339 + .23002, .40051, .48981,
1340 + .28709, .14964, 6.21885, .46373, .29663,
1341 + .23555, .40476, .49371 /
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 + .28922, .15053, 6.21640, .46747, .30142,
1344 + .24111, .40899, .49759,
1345 + .29125, .15137, 6.20942, .47091, .30589,
1346 + .24630, .41290, .50115,
1347 + .29315, .15215, 6.20054, .47407, .31003,
1348 + .25112, .41650, .50442,
1349 + .29493, .15288, 6.19061, .47696, .31387,
1350 + .25562, .41982, .50742,
1351 + .29668, .15359, 6.17640, .47964, .31749,
1352 + .25986, .42291, .51019 /
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 + .20090, .11207, 1.64592, .17699, .00000,
1355 + .00000, .10096, .20081,
1356 + .20662, .11495, 1.92154, .18550, .00000,
1357 + .00000, .11038, .20993,
1358 + .21472, .11900, 2.29915, .19800, .00000,
1359 + .00000, .12418, .22326,
1360 + .22041, .12181, 2.55334, .20704, .00671,
1361 + .00000, .13415, .23288,
1362 + .22616, .12463, 2.78944, .21633, .02159,
1363 + .00000, .14438, .24273,
1364 + .23096, .12697, 2.97939, .22419, .03293,
1365 + .00000, .15304, .25106,
1366 + .23546, .12915, 3.15272, .23161, .04339,
1367 + .00000, .16121, .25890,
1368 + .24011, .13138, 3.32683, .23936, .05417,
1369 + .00000, .16974, .26708 /
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 + .24403, .13325, 3.46597, .24591, .06268,
1372 + .00000, .17696, .27397,
1373 + .24772, .13500, 3.59205, .25208, .07065,
1374 + .00000, .18377, .28048,
1375 + .25061, .13636, 3.68861, .25693, .07692,
1376 + .00000, .18912, .28558,
1377 + .25655, .13913, 3.86531, .26689, .08941,
1378 + .00200, .20013, .29604,
1379 + .26148, .14141, 3.98604, .27505, .09946,
1380 + .01937, .20917, .30461,
1381 + .26681, .14385, 4.10636, .28381, .11021,
1382 + .03749, .21890, .31380,
1383 + .27215, .14626, 4.21703, .29246, .12079,
1384 + .05196, .22854, .32286,
1385 + .27682, .14835, 4.30417, .29988, .12990,
1386 + .06390, .23685, .33064 /
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 + .28137, .15036, 4.38039, .30701, .13870,
1389 + .07498, .24485, .33809,
1390 + .28502, .15195, 4.43407, .31259, .14563,
1391 + .08342, .25115, .34394,
1392 + .28928, .15379, 4.48814, .31898, .15362,
1393 + .09300, .25839, .35062,
1394 + .29293, .15535, 4.52818, .32435, .16043,
1395 + .10114, .26450, .35623,
1396 + .29618, .15673, 4.55888, .32905, .16645,
1397 + .10831, .26987, .36114,
1398 + .30014, .15838, 4.58681, .33456, .17360,
1399 + .11673, .27622, .36688,
1400 + .30374, .15986, 4.60571, .33943, .18003,
1401 + .12433, .28186, .37196,
1402 + .30701, .16120, 4.61822, .34376, .18585,
1403 + .13125, .28691, .37649 /
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 + .31013, .16245, 4.62202, .34769, .19122,
1406 + .13759, .29154, .38057,
1407 + .31309, .16362, 4.62184, .35133, .19629,
1408 + .14363, .29585, .38436,
1409 + .31582, .16469, 4.61762, .35455, .20089,
1410 + .14912, .29971, .38772,
1411 + .31828, .16564, 4.60876, .35733, .20493,
1412 + .15397, .30308, .39061,
1413 + .32071, .16657, 4.59834, .36002, .20891,
1414 + .15878, .30636, .39341,
1415 + .32299, .16742, 4.58279, .36236, .21250,
1416 + .16312, .30928, .39585,
1417 + .32514, .16821, 4.56746, .36454, .21588,
1418 + .16724, .31200, .39811,
1419 + .32706, .16891, 4.54887, .36635, .21881,
1420 + .17081, .31431, .39999 /
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 + .32897, .16961, 4.52967, .36813, .22173,
1423 + .17440, .31659, .40183,
1424 + .33079, .17026, 4.50794, .36969, .22440,
1425 + .17770, .31863, .40345,
1426 + .33248, .17085, 4.48599, .37108, .22685,
1427 + .18076, .32048, .40488,
1428 + .33405, .17140, 4.46438, .37233, .22911,
1429 + .18358, .32217, .40618,
1430 + .33557, .17191, 4.44004, .37341, .23120,
1431 + .18622, .32368, .40729 /
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 + .25174, .14184, 1.76917, .16539, .00000,
1434 + .00000, .09585, .19654,
1435 + .25810, .14484, 1.96006, .17173, .00000,
1436 + .00000, .10319, .20343,
1437 + .26703, .14899, 2.21311, .18076, .00000,
1438 + .00000, .11369, .21321,
1439 + .27324, .15183, 2.37625, .18713, .00533,
1440 + .00000, .12109, .22009,
1441 + .27945, .15464, 2.52033, .19351, .01703,
1442 + .00000, .12853, .22695,
1443 + .28459, .15694, 2.63345, .19880, .02577,
1444 + .00000, .13471, .23263,
1445 + .28937, .15904, 2.73406, .20371, .03369,
1446 + .00000, .14046, .23788,
1447 + .29428, .16118, 2.83250, .20875, .04174,
1448 + .00000, .14637, .24326 /
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 + .29837, .16295, 2.90889, .21293, .04799,
1451 + .00000, .15130, .24772,
1452 + .30219, .16458, 2.97624, .21682, .05378,
1453 + .00000, .15589, .25185,
1454 + .30516, .16584, 3.02678, .21983, .05829,
1455 + .00000, .15946, .25505,
1456 + .31122, .16838, 3.11265, .22590, .06715,
1457 + .00153, .16669, .26148,
1458 + .31619, .17041, 3.16304, .23073, .07414,
1459 + .01404, .17249, .26659,
1460 + .32149, .17254, 3.20940, .23580, .08151,
1461 + .02699, .17862, .27194,
1462 + .32673, .17461, 3.24833, .24067, .08865,
1463 + .03716, .18457, .27705,
1464 + .33125, .17636, 3.27515, .24472, .09471,
1465 + .04542, .18958, .28130 /
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 + .33560, .17800, 3.29487, .24849, .10046,
1468 + .05299, .19431, .28526,
1469 + .33903, .17927, 3.30535, .25137, .10494,
1470 + .05868, .19796, .28826,
1471 + .34300, .18071, 3.31136, .25456, .11002,
1472 + .06506, .20206, .29158,
1473 + .34634, .18190, 3.31202, .25715, .11429,
1474 + .07042, .20545, .29427,
1475 + .34929, .18292, 3.30911, .25936, .11803,
1476 + .07510, .20837, .29655,
1477 + .35282, .18410, 3.29899, .26181, .12239,
1478 + .08052, .21172, .29908,
1479 + .35598, .18513, 3.28546, .26389, .12626,
1480 + .08536, .21463, .30121,
1481 + .35880, .18604, 3.27011, .26568, .12972,
1482 + .08971, .21716, .30302 /
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 + .36143, .18684, 3.24980, .26717, .13284,
1485 + .09364, .21940, .30453,
1486 + .36391, .18757, 3.22801, .26849, .13576,
1487 + .09736, .22143, .30585,
1488 + .36616, .18821, 3.20538, .26957, .13836,
1489 + .10069, .22319, .30694,
1490 + .36814, .18875, 3.18146, .27042, .14061,
1491 + .10360, .22465, .30776,
1492 + .37007, .18927, 3.15689, .27120, .14280,
1493 + .10646, .22604, .30852,
1494 + .37183, .18970, 3.13002, .27177, .14473,
1495 + .10900, .22720, .30904,
1496 + .37347, .19010, 3.10453, .27228, .14654,
1497 + .11141, .22827, .30951,
1498 + .37490, .19042, 3.07823, .27258, .14806,
1499 + .11345, .22909, .30977 /
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 + .37632, .19073, 3.05176, .27286, .14956,
1502 + .11549, .22988, .31000,
1503 + .37762, .19099, 3.02432, .27301, .15091,
1504 + .11735, .23054, .31009,
1505 + .37882, .19121, 2.99773, .27309, .15212,
1506 + .11904, .23109, .31011,
1507 + .37992, .19140, 2.97229, .27312, .15322,
1508 + .12059, .23157, .31008,
1509 + .38094, .19156, 2.94531, .27304, .15421,
1510 + .12202, .23193, .30993 /
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 + .29666, .16771, 1.76672, .15613, .00000,
1513 + .00000, .09188, .19357,
1514 + .30331, .17058, 1.89781, .16072, .00000,
1515 + .00000, .09759, .19859,
1516 + .31254, .17446, 2.06699, .16714, .00000,
1517 + .00000, .10562, .20556,
1518 + .31887, .17709, 2.17189, .17158, .00433,
1519 + .00000, .11119, .21036,
1520 + .32519, .17963, 2.25957, .17594, .01375,
1521 + .00000, .11670, .21506,
1522 + .33033, .18168, 2.32696, .17950, .02072,
1523 + .00000, .12122, .21885,
1524 + .33508, .18353, 2.38549, .18275, .02697,
1525 + .00000, .12538, .22231,
1526 + .33992, .18539, 2.44128, .18603, .03325,
1527 + .00000, .12961, .22580 /
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 + .34393, .18690, 2.48312, .18870, .03809,
1530 + .00000, .13309, .22863,
1531 + .34764, .18827, 2.51883, .19115, .04253,
1532 + .00000, .13630, .23121,
1533 + .35051, .18931, 2.54500, .19303, .04598,
1534 + .00000, .13877, .23318,
1535 + .35628, .19137, 2.58432, .19674, .05267,
1536 + .00122, .14371, .23705,
1537 + .36094, .19298, 2.60029, .19961, .05789,
1538 + .01077, .14761, .24002,
1539 + .36587, .19461, 2.61150, .20253, .06334,
1540 + .02064, .15167, .24303,
1541 + .37065, .19614, 2.61741, .20523, .06855,
1542 + .02829, .15551, .24578,
1543 + .37470, .19739, 2.61740, .20740, .07292,
1544 + .03443, .15868, .24796 /
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 + .37854, .19853, 2.61273, .20934, .07704,
1547 + .04002, .16161, .24989,
1548 + .38153, .19937, 2.60509, .21074, .08020,
1549 + .04418, .16382, .25127,
1550 + .38491, .20026, 2.59165, .21221, .08375,
1551 + .04880, .16624, .25269,
1552 + .38773, .20097, 2.57696, .21333, .08671,
1553 + .05266, .16820, .25375,
1554 + .39016, .20156, 2.56141, .21424, .08927,
1555 + .05600, .16985, .25459,
1556 + .39300, .20217, 2.53771, .21513, .09222,
1557 + .05982, .17166, .25537,
1558 + .39549, .20266, 2.51313, .21580, .09480,
1559 + .06321, .17317, .25592,
1560 + .39769, .20305, 2.48868, .21631, .09709,
1561 + .06624, .17444, .25631 /
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 + .39964, .20335, 2.46131, .21661, .09911,
1564 + .06893, .17549, .25646,
1565 + .40144, .20359, 2.43359, .21681, .10099,
1566 + .07146, .17641, .25650,
1567 + .40304, .20376, 2.40630, .21687, .10264,
1568 + .07372, .17715, .25641,
1569 + .40440, .20384, 2.37912, .21680, .10404,
1570 + .07565, .17770, .25620,
1571 + .40571, .20391, 2.35174, .21668, .10539,
1572 + .07755, .17820, .25594,
1573 + .40683, .20390, 2.32328, .21643, .10655,
1574 + .07922, .17854, .25552,
1575 + .40787, .20388, 2.29652, .21617, .10763,
1576 + .08078, .17884, .25511,
1577 + .40871, .20379, 2.26997, .21581, .10851,
1578 + .08209, .17899, .25459 /
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 + .40954, .20370, 2.24346, .21542, .10937,
1581 + .08339, .17911, .25404,
1582 + .41025, .20356, 2.21663, .21496, .11012,
1583 + .08456, .17914, .25340,
1584 + .41086, .20341, 2.19097, .21447, .11079,
1585 + .08561, .17912, .25275,
1586 + .41141, .20325, 2.16666, .21398, .11138,
1587 + .08657, .17907, .25211,
1588 + .41188, .20304, 2.14144, .21340, .11188,
1589 + .08743, .17893, .25137 /
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 + .37582, .21061, 1.56911, .13939, .00000,
1592 + .00000, .08458, .18634,
1593 + .38226, .21272, 1.63066, .14151, .00000,
1594 + .00000, .08796, .18852,
1595 + .39098, .21545, 1.70711, .14438, .00000,
1596 + .00000, .09260, .19141,
1597 + .39686, .21719, 1.75092, .14628, .00301,
1598 + .00000, .09577, .19329,
1599 + .40253, .21880, 1.78243, .14809, .00951,
1600 + .00000, .09883, .19503,
1601 + .40707, .22002, 1.80562, .14951, .01426,
1602 + .00000, .10129, .19635,
1603 + .41118, .22106, 1.82456, .15075, .01848,
1604 + .00000, .10352, .19748,
1605 + .41528, .22205, 1.84125, .15196, .02267,
1606 + .00000, .10574, .19855 /
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 + .41858, .22279, 1.85227, .15289, .02586,
1609 + .00000, .10752, .19935,
1610 + .42157, .22341, 1.86038, .15371, .02877,
1611 + .00000, .10914, .20001,
1612 + .42385, .22387, 1.86567, .15431, .03100,
1613 + .00000, .11037, .20048,
1614 + .42830, .22464, 1.86692, .15541, .03530,
1615 + .00085, .11277, .20129,
1616 + .43175, .22513, 1.85691, .15614, .03860,
1617 + .00704, .11457, .20175,
1618 + .43523, .22551, 1.84265, .15677, .04199,
1619 + .01341, .11636, .20205,
1620 + .43845, .22575, 1.82547, .15722, .04518,
1621 + .01828, .11798, .20212,
1622 + .44103, .22582, 1.80746, .15746, .04781,
1623 + .02213, .11924, .20200 /
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 + .44335, .22575, 1.78724, .15754, .05025,
1626 + .02559, .12033, .20172,
1627 + .44503, .22561, 1.76877, .15749, .05209,
1628 + .02813, .12108, .20136,
1629 + .44679, .22531, 1.74446, .15729, .05412,
1630 + .03092, .12183, .20076,
1631 + .44815, .22497, 1.72179, .15702, .05579,
1632 + .03322, .12237, .20012,
1633 + .44924, .22459, 1.70017, .15670, .05720,
1634 + .03519, .12278, .19946,
1635 + .45032, .22400, 1.67095, .15616, .05880,
1636 + .03741, .12312, .19847,
1637 + .45114, .22337, 1.64266, .15554, .06017,
1638 + .03934, .12332, .19743,
1639 + .45177, .22273, 1.61580, .15490, .06135,
1640 + .04105, .12342, .19639 /
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 + .45214, .22198, 1.58763, .15415, .06237,
1643 + .04253, .12339, .19523,
1644 + .45238, .22121, 1.55997, .15337, .06328,
1645 + .04391, .12329, .19404,
1646 + .45249, .22044, 1.53358, .15256, .06407,
1647 + .04513, .12312, .19286,
1648 + .45244, .21965, 1.50818, .15173, .06470,
1649 + .04614, .12288, .19167,
1650 + .45232, .21884, 1.48296, .15089, .06530,
1651 + .04713, .12261, .19046,
1652 + .45204, .21798, 1.45755, .14999, .06579,
1653 + .04797, .12225, .18918,
1654 + .45174, .21717, 1.43386, .14913, .06624,
1655 + .04875, .12189, .18797,
1656 + .45131, .21634, 1.41098, .14825, .06657,
1657 + .04938, .12149, .18675 /
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 + .45086, .21551, 1.38832, .14736, .06689,
1660 + .05001, .12107, .18553,
1661 + .45031, .21463, 1.36579, .14643, .06714,
1662 + .05055, .12060, .18428,
1663 + .44974, .21379, 1.34446, .14554, .06735,
1664 + .05103, .12013, .18307,
1665 + .44915, .21297, 1.32445, .14468, .06752,
1666 + .05146, .11967, .18191,
1667 + .44846, .21211, 1.30400, .14377, .06764,
1668 + .05183, .11915, .18070 /
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 + .44484, .24387, 1.28701, .12339, .00000,
1671 + .00000, .07722, .17615,
1672 + .45031, .24488, 1.32047, .12401, .00000,
1673 + .00000, .07914, .17643,
1674 + .45745, .24599, 1.36148, .12480, .00000,
1675 + .00000, .08174, .17665,
1676 + .46210, .24657, 1.38349, .12529, .00224,
1677 + .00000, .08351, .17670,
1678 + .46644, .24694, 1.39669, .12569, .00707,
1679 + .00000, .08517, .17661,
1680 + .46977, .24709, 1.40579, .12595, .01058,
1681 + .00000, .08649, .17644,
1682 + .47268, .24713, 1.41248, .12613, .01367,
1683 + .00000, .08765, .17619,
1684 + .47549, .24706, 1.41744, .12627, .01672,
1685 + .00000, .08879, .17585 /
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 + .47764, .24689, 1.41947, .12631, .01903,
1688 + .00000, .08967, .17548,
1689 + .47951, .24664, 1.41975, .12630, .02112,
1690 + .00000, .09045, .17507,
1691 + .48089, .24640, 1.41923, .12627, .02272,
1692 + .00000, .09103, .17472,
1693 + .48336, .24574, 1.41093, .12609, .02576,
1694 + .00064, .09209, .17383,
1695 + .48507, .24500, 1.39575, .12581, .02806,
1696 + .00504, .09284, .17293,
1697 + .48660, .24403, 1.37686, .12538, .03041,
1698 + .00956, .09353, .17180,
1699 + .48776, .24288, 1.35584, .12480, .03259,
1700 + .01297, .09406, .17049,
1701 + .48847, .24171, 1.33527, .12417, .03435,
1702 + .01564, .09439, .16920 /
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 + .48887, .24044, 1.31326, .12345, .03596,
1705 + .01801, .09461, .16780,
1706 + .48897, .23929, 1.29394, .12278, .03717,
1707 + .01973, .09469, .16657,
1708 + .48880, .23782, 1.26933, .12189, .03847,
1709 + .02160, .09468, .16500,
1710 + .48845, .23646, 1.24694, .12105, .03951,
1711 + .02312, .09458, .16355,
1712 + .48798, .23516, 1.22600, .12024, .04039,
1713 + .02440, .09443, .16219,
1714 + .48709, .23343, 1.19837, .11912, .04136,
1715 + .02584, .09411, .16039,
1716 + .48607, .23175, 1.17209, .11803, .04216,
1717 + .02707, .09375, .15865,
1718 + .48497, .23015, 1.14746, .11698, .04284,
1719 + .02814, .09337, .15699 /
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 + .48363, .22846, 1.12212, .11585, .04339,
1722 + .02906, .09289, .15526,
1723 + .48222, .22679, 1.09749, .11473, .04388,
1724 + .02989, .09237, .15356,
1725 + .48078, .22518, 1.07425, .11365, .04428,
1726 + .03061, .09184, .15194,
1727 + .47927, .22362, 1.05215, .11259, .04459,
1728 + .03121, .09130, .15037,
1729 + .47770, .22207, 1.03036, .11153, .04487,
1730 + .03178, .09074, .14879,
1731 + .47600, .22047, 1.00867, .11044, .04507,
1732 + .03224, .09013, .14720,
1733 + .47438, .21897, .98856, .10942, .04525,
1734 + .03268, .08955, .14571,
1735 + .47271, .21751, .96933, .10841, .04535,
1736 + .03301, .08895, .14425 /
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 + .47102, .21604, .95038, .10740, .04545,
1739 + .03334, .08835, .14281,
1740 + .46924, .21457, .93170, .10639, .04550,
1741 + .03361, .08772, .14135,
1742 + .46749, .21317, .91412, .10542, .04553,
1743 + .03385, .08711, .13997,
1744 + .46582, .21183, .89771, .10450, .04554,
1745 + .03405, .08652, .13866,
1746 + .46403, .21045, .88110, .10354, .04551,
1747 + .03421, .08590, .13732 /
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 + .50535, .26906, 1.02328, .10801, .00000,
1750 + .00000, .06970, .16350,
1751 + .50926, .26881, 1.04988, .10780, .00000,
1752 + .00000, .07074, .16253,
1753 + .51409, .26808, 1.08254, .10743, .00000,
1754 + .00000, .07214, .16106,
1755 + .51701, .26736, 1.09995, .10714, .00178,
1756 + .00000, .07305, .15997,
1757 + .51949, .26642, 1.11006, .10679, .00561,
1758 + .00000, .07390, .15874,
1759 + .52121, .26546, 1.11662, .10644, .00836,
1760 + .00000, .07454, .15765,
1761 + .52257, .26444, 1.12103, .10607, .01078,
1762 + .00000, .07508, .15658,
1763 + .52374, .26326, 1.12375, .10564, .01315,
1764 + .00000, .07559, .15540 /
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 + .52445, .26215, 1.12402, .10522, .01493,
1767 + .00000, .07596, .15435,
1768 + .52493, .26101, 1.12272, .10480, .01652,
1769 + .00000, .07626, .15330,
1770 + .52521, .26009, 1.12103, .10444, .01774,
1771 + .00000, .07647, .15246,
1772 + .52535, .25799, 1.11128, .10363, .02002,
1773 + .00051, .07680, .15061,
1774 + .52505, .25605, 1.09622, .10284, .02173,
1775 + .00383, .07695, .14893,
1776 + .52432, .25378, 1.07759, .10190, .02345,
1777 + .00723, .07701, .14700,
1778 + .52317, .25131, 1.05692, .10084, .02503,
1779 + .00977, .07694, .14494,
1780 + .52180, .24899, 1.03689, .09981, .02628,
1781 + .01173, .07678, .14301 /
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 + .52015, .24659, 1.01565, .09872, .02741,
1784 + .01345, .07654, .14103,
1785 + .51855, .24453, .99718, .09778, .02823,
1786 + .01469, .07625, .13937,
1787 + .51634, .24199, .97387, .09660, .02910,
1788 + .01601, .07583, .13731,
1789 + .51422, .23972, .95286, .09553, .02979,
1790 + .01708, .07541, .13547,
1791 + .51216, .23761, .93339, .09451, .03035,
1792 + .01797, .07498, .13378,
1793 + .50927, .23486, .90794, .09319, .03095,
1794 + .01895, .07436, .13160,
1795 + .50639, .23227, .88394, .09192, .03143,
1796 + .01978, .07373, .12955,
1797 + .50360, .22984, .86163, .09073, .03183,
1798 + .02049, .07310, .12764 /
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 + .50057, .22737, .83891, .08950, .03213,
1801 + .02108, .07241, .12568,
1802 + .49754, .22496, .81699, .08830, .03238,
1803 + .02161, .07172, .12377,
1804 + .49459, .22266, .79646, .08715, .03256,
1805 + .02206, .07105, .12198,
1806 + .49169, .22047, .77710, .08605, .03269,
1807 + .02242, .07037, .12028,
1808 + .48876, .21828, .75811, .08495, .03280,
1809 + .02276, .06970, .11861,
1810 + .48573, .21610, .73936, .08385, .03285,
1811 + .02302, .06899, .11693,
1812 + .48286, .21407, .72205, .08281, .03288,
1813 + .02327, .06833, .11537,
1814 + .48004, .21210, .70564, .08181, .03287,
1815 + .02344, .06767, .11388 /
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 + .47720, .21013, .68952, .08082, .03286,
1818 + .02361, .06701, .11240,
1819 + .47432, .20818, .67376, .07983, .03281,
1820 + .02375, .06634, .11093,
1821 + .47154, .20633, .65901, .07889, .03275,
1822 + .02385, .06570, .10954,
1823 + .46889, .20459, .64529, .07800, .03268,
1824 + .02394, .06510, .10823,
1825 + .46612, .20281, .63148, .07710, .03258,
1826 + .02399, .06446, .10689 /
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 + .56969, .29081, .77593, .09007, .00000,
1829 + .00000, .06035, .14551,
1830 + .57113, .28891, .80542, .08936, .00000,
1831 + .00000, .06079, .14366,
1832 + .57226, .28588, .84087, .08834, .00000,
1833 + .00000, .06133, .14100,
1834 + .57254, .28354, .85991, .08761, .00143,
1835 + .00000, .06168, .13909,
1836 + .57228, .28093, .87169, .08682, .00449,
1837 + .00000, .06195, .13708,
1838 + .57166, .27857, .87888, .08611, .00666,
1839 + .00000, .06211, .13537,
1840 + .57079, .27628, .88348, .08542, .00855,
1841 + .00000, .06221, .13373,
1842 + .56959, .27381, .88604, .08468, .01037,
1843 + .00000, .06227, .13198 /
1844 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
1845 + .56826, .27160, .88586, .08401, .01172,
1846 + .00000, .06228, .13045,
1847 + .56680, .26942, .88399, .08335, .01292,
1848 + .00000, .06225, .12898,
1849 + .56557, .26769, .88179, .08282, .01383,
1850 + .00000, .06220, .12783,
1851 + .56256, .26390, .87141, .08165, .01551,
1852 + .00040, .06200, .12535,
1853 + .55955, .26062, .85661, .08060, .01674,
1854 + .00286, .06174, .12319,
1855 + .55590, .25687, .83824, .07938, .01795,
1856 + .00537, .06138, .12078,
1857 + .55178, .25294, .81780, .07807, .01903,
1858 + .00721, .06090, .11827,
1859 + .54776, .24936, .79810, .07686, .01987,
1860 + .00861, .06040, .11600 /
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 + .54348, .24575, .77740, .07563, .02061,
1863 + .00982, .05985, .11370,
1864 + .53977, .24273, .75956, .07458, .02113,
1865 + .01068, .05934, .11180,
1866 + .53504, .23907, .73730, .07330, .02166,
1867 + .01158, .05866, .10950,
1868 + .53076, .23585, .71746, .07215, .02206,
1869 + .01229, .05804, .10749,
1870 + .52676, .23290, .69925, .07109, .02238,
1871 + .01288, .05745, .10565,
1872 + .52148, .22914, .67573, .06972, .02269,
1873 + .01351, .05664, .10334,
1874 + .51642, .22564, .65383, .06845, .02292,
1875 + .01402, .05586, .10119,
1876 + .51163, .22241, .63366, .06726, .02310,
1877 + .01446, .05512, .09920 /
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 + .50669, .21914, .61340, .06604, .02321,
1880 + .01481, .05435, .09722,
1881 + .50183, .21598, .59402, .06487, .02328,
1882 + .01512, .05359, .09532,
1883 + .49718, .21303, .57601, .06377, .02332,
1884 + .01537, .05285, .09354,
1885 + .49271, .21024, .55922, .06273, .02332,
1886 + .01556, .05214, .09186,
1887 + .48826, .20748, .54286, .06170, .02330,
1888 + .01573, .05144, .09021,
1889 + .48376, .20476, .52690, .06068, .02324,
1890 + .01586, .05072, .08859,
1891 + .47954, .20221, .51224, .05973, .02319,
1892 + .01597, .05005, .08709,
1893 + .47545, .19980, .49848, .05882, .02310,
1894 + .01603, .04940, .08567 /
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 + .47137, .19740, .48505, .05792, .02301,
1897 + .01610, .04875, .08427,
1898 + .46729, .19504, .47200, .05703, .02290,
1899 + .01613, .04811, .08289,
1900 + .46340, .19281, .45986, .05620, .02279,
1901 + .01616, .04749, .08159,
1902 + .45972, .19072, .44863, .05541, .02267,
1903 + .01617, .04691, .08038,
1904 + .45595, .18859, .43742, .05461, .02254,
1905 + .01616, .04632, .07915 /
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 + .62175, .30330, .62929, .07388, .00000,
1908 + .00000, .05137, .12658,
1909 + .62030, .29981, .66244, .07304, .00000,
1910 + .00000, .05152, .12434,
1911 + .61729, .29454, .70037, .07183, .00000,
1912 + .00000, .05167, .12115,
1913 + .61462, .29067, .71999, .07096, .00120,
1914 + .00000, .05171, .11888,
1915 + .61133, .28655, .73161, .07003, .00375,
1916 + .00000, .05168, .11653,
1917 + .60816, .28293, .73779, .06921, .00553,
1918 + .00000, .05160, .11455,
1919 + .60489, .27947, .74103, .06843, .00705,
1920 + .00000, .05147, .11266,
1921 + .60121, .27582, .74183, .06759, .00850,
1922 + .00000, .05130, .11067 /
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 + .59779, .27260, .73990, .06683, .00956,
1925 + .00000, .05111, .10897,
1926 + .59434, .26951, .73626, .06609, .01049,
1927 + .00000, .05089, .10735,
1928 + .59156, .26709, .73265, .06551, .01118,
1929 + .00000, .05070, .10607,
1930 + .58529, .26189, .71969, .06425, .01244,
1931 + .00032, .05025, .10336,
1932 + .57962, .25743, .70340, .06313, .01334,
1933 + .00220, .04977, .10104,
1934 + .57305, .25248, .68356, .06187, .01420,
1935 + .00411, .04919, .09849,
1936 + .56601, .24735, .66187, .06053, .01494,
1937 + .00548, .04852, .09586,
1938 + .55945, .24274, .64138, .05931, .01550,
1939 + .00651, .04786, .09351 /
1940 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
1941 + .55269, .23816, .62022, .05809, .01597,
1942 + .00738, .04716, .09118,
1943 + .54698, .23439, .60231, .05706, .01629,
1944 + .00799, .04655, .08926,
1945 + .53995, .22985, .58035, .05580, .01660,
1946 + .00861, .04579, .08698,
1947 + .53369, .22591, .56106, .05470, .01682,
1948 + .00910, .04509, .08498,
1949 + .52791, .22234, .54357, .05371, .01698,
1950 + .00949, .04445, .08318,
1951 + .52049, .21782, .52134, .05242, .01711,
1952 + .00990, .04359, .08096,
1953 + .51349, .21365, .50092, .05123, .01719,
1954 + .01022, .04279, .07890,
1955 + .50696, .20982, .48235, .05013, .01724,
1956 + .01049, .04203, .07701 /
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 + .50035, .20600, .46397, .04902, .01723,
1959 + .01069, .04125, .07515,
1960 + .49390, .20233, .44658, .04796, .01721,
1961 + .01087, .04050, .07338,
1962 + .48780, .19893, .43059, .04697, .01716,
1963 + .01100, .03978, .07173,
1964 + .48202, .19575, .41585, .04605, .01708,
1965 + .01109, .03910, .07018,
1966 + .47628, .19262, .40158, .04514, .01700,
1967 + .01117, .03843, .06867,
1968 + .47057, .18955, .38782, .04425, .01690,
1969 + .01122, .03776, .06720,
1970 + .46523, .18670, .37527, .04342, .01679,
1971 + .01126, .03714, .06583,
1972 + .46011, .18400, .36360, .04264, .01667,
1973 + .01127, .03654, .06456 /
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 + .45503, .18133, .35226, .04186, .01655,
1976 + .01127, .03595, .06330,
1977 + .45000, .17872, .34134, .04110, .01642,
1978 + .01126, .03537, .06208,
1979 + .44523, .17626, .33126, .04039, .01629,
1980 + .01125, .03481, .06093,
1981 + .44074, .17396, .32199, .03972, .01616,
1982 + .01122, .03430, .05986,
1983 + .43618, .17163, .31283, .03905, .01602,
1984 + .01118, .03377, .05879 /
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 + .66174, .30799, .56341, .05968, .00000,
1987 + .00000, .04301, .10789,
1988 + .65715, .30310, .59566, .05892, .00000,
1989 + .00000, .04303, .10553,
1990 + .64976, .29584, .62991, .05774, .00000,
1991 + .00000, .04298, .10220,
1992 + .64400, .29063, .64591, .05689, .00103,
1993 + .00000, .04286, .09984,
1994 + .63759, .28519, .65329, .05599, .00318,
1995 + .00000, .04267, .09743,
1996 + .63181, .28051, .65550, .05520, .00466,
1997 + .00000, .04244, .09537,
1998 + .62614, .27607, .65488, .05442, .00590,
1999 + .00000, .04219, .09345,
2000 + .61999, .27141, .65161, .05358, .00706,
2001 + .00000, .04189, .09144 /
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 + .61449, .26740, .64625, .05285, .00790,
2004 + .00000, .04160, .08971,
2005 + .60908, .26356, .63949, .05214, .00862,
2006 + .00000, .04130, .08806,
2007 + .60479, .26057, .63350, .05158, .00915,
2008 + .00000, .04104, .08678,
2009 + .59543, .25424, .61623, .05036, .01009,
2010 + .00026, .04043, .08409,
2011 + .58722, .24885, .59714, .04929, .01075,
2012 + .00171, .03987, .08180,
2013 + .57792, .24294, .57474, .04809, .01136,
2014 + .00318, .03919, .07930,
2015 + .56817, .23690, .55099, .04683, .01187,
2016 + .00422, .03843, .07678,
2017 + .55929, .23153, .52921, .04569, .01223,
2018 + .00498, .03772, .07454 /
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 + .55032, .22623, .50726, .04455, .01252,
2021 + .00561, .03699, .07232,
2022 + .54284, .22190, .48907, .04360, .01270,
2023 + .00604, .03636, .07052,
2024 + .53376, .21675, .46721, .04245, .01286,
2025 + .00648, .03558, .06839,
2026 + .52578, .21228, .44833, .04145, .01296,
2027 + .00681, .03489, .06655,
2028 + .51851, .20825, .43146, .04054, .01302,
2029 + .00707, .03426, .06491,
2030 + .50923, .20324, .41043, .03941, .01305,
2031 + .00734, .03344, .06285,
2032 + .50061, .19864, .39140, .03836, .01304,
2033 + .00754, .03267, .06098,
2034 + .49264, .19443, .37430, .03740, .01301,
2035 + .00770, .03195, .05929 /
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 + .48462, .19026, .35763, .03644, .01294,
2038 + .00782, .03123, .05763,
2039 + .47688, .18630, .34204, .03552, .01286,
2040 + .00791, .03053, .05604,
2041 + .46963, .18263, .32786, .03467, .01277,
2042 + .00797, .02989, .05457,
2043 + .46281, .17921, .31493, .03388, .01266,
2044 + .00801, .02927, .05323,
2045 + .45608, .17584, .30252, .03310, .01255,
2046 + .00804, .02867, .05192,
2047 + .44942, .17259, .29068, .03235, .01243,
2048 + .00804, .02807, .05064,
2049 + .44321, .16957, .27994, .03166, .01231,
2050 + .00804, .02752, .04945,
2051 + .43733, .16673, .27006, .03100, .01218,
2052 + .00802, .02700, .04835 /
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 + .43152, .16393, .26051, .03035, .01205,
2055 + .00800, .02649, .04727,
2056 + .42579, .16119, .25141, .02971, .01191,
2057 + .00797, .02598, .04623,
2058 + .42038, .15862, .24304, .02912, .01178,
2059 + .00794, .02551, .04526,
2060 + .41531, .15623, .23539, .02857, .01165,
2061 + .00790, .02506, .04435,
2062 + .41016, .15383, .22788, .02802, .01152,
2063 + .00785, .02461, .04345 /
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 + .68995, .30624, .55011, .04751, .00000,
2066 + .00000, .03543, .09021,
2067 + .68224, .30007, .57588, .04685, .00000,
2068 + .00000, .03541, .08795,
2069 + .67043, .29114, .59980, .04582, .00000,
2070 + .00000, .03526, .08473,
2071 + .66165, .28479, .60816, .04507, .00087,
2072 + .00000, .03507, .08246,
2073 + .65222, .27824, .60793, .04424, .00268,
2074 + .00000, .03480, .08015,
2075 + .64393, .27267, .60390, .04350, .00391,
2076 + .00000, .03453, .07819,
2077 + .63595, .26744, .59767, .04278, .00492,
2078 + .00000, .03422, .07634,
2079 + .62747, .26199, .58889, .04203, .00585,
2080 + .00000, .03388, .07442 /
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 + .61999, .25735, .57918, .04136, .00650,
2083 + .00000, .03354, .07276,
2084 + .61277, .25293, .56860, .04070, .00706,
2085 + .00000, .03320, .07121,
2086 + .60709, .24948, .55981, .04018, .00746,
2087 + .00000, .03291, .07001,
2088 + .59490, .24227, .53763, .03906, .00817,
2089 + .00021, .03228, .06749,
2090 + .58437, .23620, .51545, .03809, .00864,
2091 + .00133, .03167, .06538,
2092 + .57265, .22958, .49043, .03701, .00906,
2093 + .00246, .03097, .06307,
2094 + .56053, .22290, .46476, .03588, .00940,
2095 + .00324, .03023, .06074,
2096 + .54962, .21701, .44187, .03486, .00962,
2097 + .00380, .02953, .05869 /
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 + .53873, .21122, .41937, .03384, .00979,
2100 + .00426, .02882, .05670,
2101 + .52976, .20652, .40115, .03300, .00988,
2102 + .00457, .02822, .05510,
2103 + .51895, .20096, .37969, .03200, .00994,
2104 + .00488, .02748, .05320,
2105 + .50952, .19619, .36147, .03114, .00997,
2106 + .00510, .02684, .05156,
2107 + .50100, .19191, .34540, .03036, .00997,
2108 + .00528, .02627, .05009,
2109 + .49025, .18661, .32576, .02940, .00993,
2110 + .00544, .02551, .04830,
2111 + .48030, .18177, .30824, .02851, .00987,
2112 + .00557, .02481, .04666,
2113 + .47116, .17738, .29268, .02770, .00980,
2114 + .00566, .02418, .04518 /
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 + .46209, .17303, .27775, .02688, .00970,
2117 + .00572, .02354, .04376,
2118 + .45337, .16892, .26392, .02610, .00959,
2119 + .00576, .02293, .04241,
2120 + .44524, .16513, .25146, .02540, .00948,
2121 + .00579, .02237, .04115,
2122 + .43764, .16162, .24025, .02475, .00937,
2123 + .00579, .02184, .04001,
2124 + .43018, .15817, .22956, .02411, .00925,
2125 + .00579, .02131, .03891,
2126 + .42284, .15485, .21948, .02349, .00912,
2127 + .00577, .02080, .03784,
2128 + .41602, .15178, .21038, .02293, .00901,
2129 + .00575, .02033, .03686,
2130 + .40961, .14890, .20211, .02238, .00888,
2131 + .00572, .01989, .03595 /
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 + .40329, .14607, .19415, .02185, .00876,
2134 + .00569, .01945, .03506,
2135 + .39708, .14331, .18663, .02134, .00864,
2136 + .00565, .01903, .03419,
2137 + .39123, .14074, .17976, .02086, .00851,
2138 + .00561, .01864, .03339,
2139 + .38577, .13835, .17351, .02042, .00840,
2140 + .00557, .01827, .03264,
2141 + .38025, .13597, .16740, .01998, .00828,
2142 + .00552, .01790, .03190 /
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 + .70692, .29914, .56309, .03727, .00000,
2145 + .00000, .02875, .07413,
2146 + .69620, .29192, .57811, .03671, .00000,
2147 + .00000, .02871, .07208,
2148 + .68014, .28163, .58705, .03586, .00000,
2149 + .00000, .02853, .06909,
2150 + .66852, .27435, .58544, .03519, .00073,
2151 + .00000, .02831, .06703,
2152 + .65623, .26696, .57585, .03448, .00223,
2153 + .00000, .02802, .06488,
2154 + .64563, .26071, .56466, .03383, .00323,
2155 + .00000, .02773, .06308,
2156 + .63554, .25487, .55224, .03320, .00404,
2157 + .00000, .02742, .06139,
2158 + .62491, .24885, .53762, .03252, .00478,
2159 + .00000, .02706, .05964 /
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 + .61568, .24373, .52356, .03194, .00528,
2162 + .00000, .02671, .05815,
2163 + .60683, .23888, .50929, .03135, .00571,
2164 + .00000, .02636, .05675,
2165 + .59992, .23512, .49788, .03089, .00601,
2166 + .00000, .02608, .05567,
2167 + .58524, .22730, .47134, .02991, .00653,
2168 + .00017, .02544, .05341,
2169 + .57269, .22080, .44663, .02908, .00686,
2170 + .00103, .02488, .05149,
2171 + .55888, .21374, .41968, .02813, .00715,
2172 + .00189, .02421, .04945,
2173 + .54476, .20664, .39284, .02716, .00736,
2174 + .00247, .02351, .04741,
2175 + .53216, .20043, .36953, .02629, .00749,
2176 + .00288, .02286, .04562 /
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 + .51968, .19438, .34712, .02542, .00757,
2179 + .00322, .02221, .04388,
2180 + .50948, .18950, .32932, .02471, .00760,
2181 + .00343, .02167, .04248,
2182 + .49731, .18375, .30876, .02388, .00761,
2183 + .00364, .02101, .04083,
2184 + .48676, .17883, .29160, .02316, .00759,
2185 + .00380, .02044, .03942,
2186 + .47726, .17445, .27667, .02251, .00755,
2187 + .00391, .01993, .03819,
2188 + .46540, .16903, .25866, .02170, .00748,
2189 + .00401, .01927, .03667,
2190 + .45450, .16411, .24284, .02095, .00740,
2191 + .00409, .01867, .03530,
2192 + .44454, .15965, .22897, .02028, .00731,
2193 + .00414, .01812, .03406 /
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 + .43470, .15530, .21586, .01961, .00721,
2196 + .00416, .01758, .03286,
2197 + .42528, .15118, .20383, .01899, .00710,
2198 + .00418, .01707, .03173,
2199 + .41653, .14739, .19310, .01843, .00699,
2200 + .00418, .01659, .03070,
2201 + .40841, .14389, .18354, .01790, .00688,
2202 + .00417, .01614, .02976,
2203 + .40046, .14049, .17448, .01737, .00677,
2204 + .00415, .01571, .02886,
2205 + .39269, .13722, .16603, .01688, .00665,
2206 + .00413, .01528, .02798,
2207 + .38549, .13421, .15845, .01644, .00654,
2208 + .00410, .01489, .02717,
2209 + .37874, .13139, .15160, .01602, .00644,
2210 + .00407, .01454, .02642 /
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 + .37209, .12862, .14505, .01561, .00633,
2213 + .00403, .01419, .02569,
2214 + .36559, .12593, .13889, .01521, .00622,
2215 + .00400, .01384, .02500,
2216 + .35950, .12343, .13330, .01482, .00612,
2217 + .00396, .01352, .02438,
2218 + .35383, .12111, .12824, .01447, .00602,
2219 + .00392, .01322, .02379,
2220 + .34814, .11881, .12334, .01414, .00592,
2221 + .00388, .01292, .02319 /
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 + .71336, .28772, .58204, .02876, .00000,
2224 + .00000, .02299, .05993,
2225 + .69974, .27975, .58416, .02833, .00000,
2226 + .00000, .02293, .05809,
2227 + .67980, .26841, .57626, .02766, .00000,
2228 + .00000, .02270, .05544,
2229 + .66550, .26053, .56408, .02714, .00060,
2230 + .00000, .02249, .05357,
2231 + .65065, .25251, .54513, .02654, .00182,
2232 + .00000, .02219, .05166,
2233 + .63801, .24577, .52711, .02598, .00262,
2234 + .00000, .02190, .05007,
2235 + .62605, .23953, .50903, .02545, .00326,
2236 + .00000, .02159, .04858,
2237 + .61353, .23313, .48930, .02489, .00383,
2238 + .00000, .02124, .04704 /
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 + .60277, .22772, .47157, .02439, .00422,
2241 + .00000, .02091, .04573,
2242 + .59252, .22262, .45436, .02390, .00454,
2243 + .00000, .02058, .04449,
2244 + .58454, .21870, .44093, .02352, .00476,
2245 + .00000, .02032, .04352,
2246 + .56780, .21051, .41132, .02267, .00514,
2247 + .00013, .01973, .04158,
2248 + .55362, .20374, .38513, .02195, .00537,
2249 + .00078, .01921, .03995,
2250 + .53810, .19648, .35733, .02118, .00555,
2251 + .00143, .01861, .03817,
2252 + .52235, .18924, .33034, .02037, .00568,
2253 + .00186, .01799, .03641,
2254 + .50845, .18290, .30746, .01965, .00575,
2255 + .00216, .01742, .03489 /
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 + .49479, .17673, .28588, .01893, .00578,
2258 + .00240, .01685, .03343,
2259 + .48368, .17180, .26904, .01834, .00578,
2260 + .00255, .01638, .03225,
2261 + .47053, .16600, .24990, .01763, .00575,
2262 + .00270, .01582, .03088,
2263 + .45919, .16108, .23415, .01703, .00571,
2264 + .00280, .01532, .02973,
2265 + .44901, .15673, .22063, .01649, .00566,
2266 + .00287, .01488, .02872,
2267 + .43635, .15136, .20458, .01585, .00558,
2268 + .00294, .01433, .02747,
2269 + .42480, .14650, .19064, .01526, .00549,
2270 + .00298, .01384, .02633,
2271 + .41430, .14211, .17853, .01473, .00540,
2272 + .00300, .01339, .02529 /
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 + .40395, .13785, .16722, .01421, .00530,
2275 + .00301, .01294, .02432,
2276 + .39412, .13383, .15695, .01372, .00520,
2277 + .00301, .01252, .02342,
2278 + .38506, .13015, .14788, .01326, .00510,
2279 + .00300, .01213, .02259,
2280 + .37663, .12677, .13988, .01285, .00501,
2281 + .00298, .01177, .02184,
2282 + .36838, .12348, .13234, .01246, .00491,
2283 + .00296, .01141, .02112,
2284 + .36043, .12032, .12537, .01207, .00481,
2285 + .00293, .01108, .02043,
2286 + .35309, .11741, .11914, .01172, .00472,
2287 + .00291, .01077, .01979,
2288 + .34621, .11472, .11358, .01138, .00463,
2289 + .00288, .01048, .01919 /
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 + .33945, .11209, .10828, .01105, .00454,
2292 + .00285, .01021, .01861,
2293 + .33285, .10954, .10333, .01075, .00445,
2294 + .00281, .00993, .01807,
2295 + .32667, .10717, .09886, .01047, .00436,
2296 + .00278, .00967, .01757,
2297 + .32094, .10497, .09482, .01022, .00428,
2298 + .00274, .00943, .01710,
2299 + .31523, .10278, .09094, .00994, .00420,
2300 + .00271, .00920, .01664 /
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 + .70969, .27331, .59375, .02214, .00000,
2303 + .00000, .01790, .04748,
2304 + .69355, .26474, .58265, .02179, .00000,
2305 + .00000, .01785, .04590,
2306 + .67019, .25268, .55861, .02123, .00000,
2307 + .00000, .01768, .04360,
2308 + .65365, .24434, .53679, .02078, .00049,
2309 + .00000, .01747, .04201,
2310 + .63659, .23594, .50977, .02029, .00146,
2311 + .00000, .01721, .04036,
2312 + .62219, .22892, .48612, .01981, .00209,
2313 + .00000, .01693, .03901,
2314 + .60869, .22243, .46359, .01935, .00259,
2315 + .00000, .01666, .03774,
2316 + .59467, .21581, .44005, .01886, .00303,
2317 + .00000, .01636, .03641 /
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 + .58268, .21023, .41982, .01843, .00332,
2320 + .00000, .01606, .03532,
2321 + .57130, .20500, .40071, .01803, .00355,
2322 + .00000, .01576, .03428,
2323 + .56247, .20098, .38607, .01772, .00372,
2324 + .00000, .01552, .03348,
2325 + .54408, .19268, .35498, .01701, .00398,
2326 + .00010, .01502, .03182,
2327 + .52862, .18587, .32851, .01642, .00413,
2328 + .00059, .01456, .03045,
2329 + .51182, .17857, .30104, .01578, .00425,
2330 + .00107, .01406, .02897,
2331 + .49492, .17129, .27498, .01511, .00432,
2332 + .00139, .01351, .02753,
2333 + .48010, .16498, .25331, .01451, .00435,
2334 + .00161, .01302, .02630 /
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 + .46561, .15889, .23321, .01392, .00435,
2337 + .00178, .01255, .02509,
2338 + .45387, .15404, .21779, .01343, .00433,
2339 + .00188, .01217, .02412,
2340 + .44003, .14836, .20051, .01289, .00429,
2341 + .00198, .01170, .02301,
2342 + .42817, .14354, .18646, .01242, .00424,
2343 + .00204, .01130, .02208,
2344 + .41760, .13929, .17452, .01200, .00418,
2345 + .00209, .01094, .02125,
2346 + .40449, .13410, .16053, .01149, .00410,
2347 + .00213, .01049, .02024,
2348 + .39260, .12941, .14855, .01102, .00402,
2349 + .00215, .01010, .01933,
2350 + .38186, .12520, .13825, .01057, .00394,
2351 + .00216, .00974, .01853 /
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 + .37128, .12110, .12873, .01019, .00385,
2354 + .00215, .00938, .01775,
2355 + .36128, .11726, .12015, .00982, .00377,
2356 + .00215, .00905, .01703,
2357 + .35209, .11375, .11264, .00945, .00368,
2358 + .00213, .00874, .01638,
2359 + .34362, .11055, .10605, .00913, .00360,
2360 + .00211, .00846, .01579,
2361 + .33536, .10744, .09989, .00882, .00352,
2362 + .00209, .00818, .01522,
2363 + .32736, .10447, .09424, .00854, .00344,
2364 + .00207, .00791, .01468,
2365 + .31998, .10174, .08921, .00828, .00336,
2366 + .00204, .00767, .01418,
2367 + .31314, .09921, .08476, .00802, .00329,
2368 + .00202, .00744, .01373 /
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 + .30644, .09673, .08054, .00776, .00322,
2371 + .00199, .00723, .01329,
2372 + .29992, .09434, .07663, .00752, .00315,
2373 + .00196, .00702, .01288,
2374 + .29383, .09214, .07310, .00731, .00308,
2375 + .00194, .00683, .01249,
2376 + .28818, .09010, .06993, .00712, .00302,
2377 + .00191, .00665, .01214,
2378 + .28255, .08807, .06690, .00693, .00295,
2379 + .00188, .00647, .01179 /
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 + .69759, .25593, .59047, .01650, .00000,
2382 + .00000, .01393, .03719,
2383 + .67915, .24710, .56763, .01627, .00000,
2384 + .00000, .01386, .03582,
2385 + .65283, .23465, .52995, .01585, .00000,
2386 + .00000, .01366, .03387,
2387 + .63436, .22610, .50053, .01548, .00038,
2388 + .00000, .01347, .03253,
2389 + .61550, .21752, .46755, .01507, .00114,
2390 + .00000, .01322, .03114,
2391 + .59963, .21043, .44000, .01471, .00162,
2392 + .00000, .01297, .02999,
2393 + .58483, .20390, .41465, .01436, .00200,
2394 + .00000, .01271, .02892,
2395 + .56957, .19724, .38894, .01397, .00233,
2396 + .00000, .01243, .02783 /
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 + .55661, .19165, .36742, .01363, .00254,
2399 + .00000, .01218, .02691,
2400 + .54439, .18643, .34757, .01330, .00271,
2401 + .00000, .01193, .02604,
2402 + .53495, .18243, .33259, .01304, .00283,
2403 + .00000, .01172, .02537,
2404 + .51530, .17420, .30160, .01249, .00301,
2405 + .00008, .01128, .02402,
2406 + .49897, .16746, .27602, .01200, .00311,
2407 + .00043, .01090, .02289,
2408 + .48134, .16026, .24998, .01148, .00318,
2409 + .00079, .01049, .02170,
2410 + .46365, .15317, .22573, .01095, .00321,
2411 + .00102, .01004, .02053,
2412 + .44820, .14706, .20592, .01048, .00322,
2413 + .00117, .00964, .01952 /
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 + .43318, .14118, .18783, .01003, .00320,
2416 + .00129, .00925, .01856,
2417 + .42113, .13649, .17412, .00966, .00318,
2418 + .00136, .00893, .01778,
2419 + .40695, .13105, .15892, .00923, .00313,
2420 + .00142, .00856, .01689,
2421 + .39486, .12646, .14673, .00887, .00308,
2422 + .00147, .00823, .01614,
2423 + .38413, .12242, .13650, .00854, .00303,
2424 + .00150, .00795, .01548,
2425 + .37088, .11746, .12466, .00816, .00296,
2426 + .00151, .00759, .01470,
2427 + .35890, .11301, .11459, .00781, .00289,
2428 + .00152, .00728, .01399,
2429 + .34810, .10904, .10599, .00748, .00282,
2430 + .00153, .00699, .01337 /
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 + .33756, .10521, .09815, .00718, .00275,
2433 + .00152, .00671, .01278,
2434 + .32760, .10162, .09113, .00690, .00268,
2435 + .00151, .00645, .01223,
2436 + .31849, .09835, .08504, .00665, .00261,
2437 + .00149, .00621, .01172,
2438 + .31013, .09537, .07975, .00640, .00255,
2439 + .00148, .00599, .01126,
2440 + .30201, .09248, .07482, .00616, .00248,
2441 + .00146, .00578, .01083,
2442 + .29417, .08972, .07033, .00594, .00242,
2443 + .00144, .00558, .01042,
2444 + .28695, .08720, .06636, .00574, .00236,
2445 + .00142, .00540, .01006,
2446 + .28027, .08487, .06285, .00555, .00230,
2447 + .00140, .00523, .00972 /
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 + .27373, .08259, .05954, .00536, .00225,
2450 + .00138, .00506, .00938,
2451 + .26740, .08041, .05648, .00519, .00219,
2452 + .00135, .00490, .00907,
2453 + .26150, .07839, .05375, .00504, .00214,
2454 + .00133, .00476, .00878,
2455 + .25604, .07653, .05130, .00489, .00209,
2456 + .00131, .00462, .00851,
2457 + .25063, .07468, .04896, .00474, .00205,
2458 + .00129, .00449, .00825 /
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 + .67745, .23700, .57028, .01220, .00000,
2461 + .00000, .01057, .02859,
2462 + .65721, .22803, .53823, .01201, .00000,
2463 + .00000, .01052, .02745,
2464 + .62851, .21547, .49048, .01167, .00000,
2465 + .00000, .01035, .02585,
2466 + .60850, .20695, .45598, .01142, .00029,
2467 + .00000, .01017, .02469,
2468 + .58824, .19838, .41945, .01109, .00087,
2469 + .00000, .00996, .02356,
2470 + .57130, .19134, .38993, .01080, .00123,
2471 + .00000, .00974, .02263,
2472 + .55558, .18487, .36339, .01051, .00151,
2473 + .00000, .00952, .02176,
2474 + .53945, .17830, .33706, .01021, .00175,
2475 + .00000, .00930, .02086 /
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 + .52583, .17281, .31551, .00993, .00191,
2478 + .00000, .00906, .02013,
2479 + .51303, .16771, .29595, .00967, .00203,
2480 + .00000, .00885, .01944,
2481 + .50315, .16381, .28137, .00946, .00211,
2482 + .00000, .00868, .01890,
2483 + .48271, .15585, .25185, .00905, .00223,
2484 + .00006, .00832, .01781,
2485 + .46583, .14932, .22813, .00866, .00229,
2486 + .00032, .00800, .01692,
2487 + .44769, .14239, .20430, .00825, .00233,
2488 + .00057, .00765, .01598,
2489 + .42966, .13558, .18247, .00784, .00235,
2490 + .00073, .00730, .01505,
2491 + .41399, .12974, .16493, .00747, .00234,
2492 + .00084, .00699, .01424 /
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 + .39879, .12416, .14913, .00714, .00232,
2495 + .00092, .00669, .01347,
2496 + .38664, .11972, .13731, .00687, .00229,
2497 + .00097, .00645, .01286,
2498 + .37242, .11460, .12436, .00654, .00225,
2499 + .00101, .00615, .01218,
2500 + .36034, .11028, .11408, .00626, .00221,
2501 + .00104, .00589, .01162,
2502 + .34969, .10648, .10551, .00601, .00216,
2503 + .00105, .00567, .01113,
2504 + .33656, .10187, .09569, .00572, .00210,
2505 + .00106, .00539, .01051,
2506 + .32474, .09774, .08743, .00546, .00205,
2507 + .00107, .00514, .00998,
2508 + .31413, .09405, .08044, .00521, .00199,
2509 + .00107, .00492, .00951 /
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 + .30381, .09052, .07413, .00500, .00193,
2512 + .00106, .00472, .00904,
2513 + .29412, .08721, .06852, .00479, .00188,
2514 + .00105, .00453, .00862,
2515 + .28528, .08420, .06366, .00459, .00183,
2516 + .00103, .00435, .00825,
2517 + .27716, .08147, .05947, .00441, .00178,
2518 + .00102, .00418, .00792,
2519 + .26928, .07883, .05559, .00424, .00173,
2520 + .00101, .00402, .00759,
2521 + .26173, .07632, .05209, .00408, .00168,
2522 + .00099, .00387, .00729,
2523 + .25481, .07402, .04900, .00393, .00163,
2524 + .00097, .00374, .00701,
2525 + .24840, .07191, .04628, .00379, .00159,
2526 + .00096, .00362, .00676 /
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 + .24214, .06985, .04372, .00367, .00155,
2529 + .00094, .00350, .00652,
2530 + .23610, .06788, .04138, .00354, .00151,
2531 + .00092, .00338, .00629,
2532 + .23050, .06606, .03930, .00343, .00147,
2533 + .00091, .00327, .00608,
2534 + .22532, .06438, .03743, .00333, .00144,
2535 + .00089, .00317, .00588,
2536 + .22018, .06274, .03566, .00322, .00140,
2537 + .00088, .00308, .00569 /
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 + .65050, .21697, .53412, .00883, .00000,
2540 + .00000, .00794, .02163,
2541 + .62884, .20803, .49586, .00869, .00000,
2542 + .00000, .00788, .02071,
2543 + .59841, .19562, .44212, .00841, .00000,
2544 + .00000, .00771, .01941,
2545 + .57730, .18724, .40504, .00822, .00022,
2546 + .00000, .00757, .01848,
2547 + .55607, .17886, .36738, .00795, .00065,
2548 + .00000, .00739, .01756,
2549 + .53840, .17201, .33769, .00773, .00092,
2550 + .00000, .00719, .01682,
2551 + .52210, .16574, .31148, .00752, .00112,
2552 + .00000, .00700, .01613,
2553 + .50544, .15940, .28592, .00728, .00129,
2554 + .00000, .00681, .01542 /
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 + .49139, .15413, .26534, .00709, .00140,
2557 + .00000, .00664, .01481,
2558 + .47827, .14923, .24696, .00688, .00148,
2559 + .00000, .00647, .01426,
2560 + .46819, .14549, .23340, .00672, .00154,
2561 + .00000, .00633, .01384,
2562 + .44742, .13786, .20636, .00639, .00162,
2563 + .00005, .00605, .01298,
2564 + .43033, .13168, .18506, .00611, .00166,
2565 + .00022, .00579, .01228,
2566 + .41208, .12514, .16405, .00580, .00168,
2567 + .00040, .00550, .01156,
2568 + .39399, .11874, .14508, .00550, .00168,
2569 + .00052, .00523, .01084,
2570 + .37833, .11327, .13001, .00525, .00166,
2571 + .00059, .00499, .01022 /
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 + .36327, .10804, .11660, .00498, .00164,
2574 + .00065, .00474, .00965,
2575 + .35130, .10391, .10668, .00477, .00162,
2576 + .00068, .00456, .00919,
2577 + .33732, .09915, .09594, .00454, .00158,
2578 + .00071, .00434, .00866,
2579 + .32550, .09515, .08747, .00433, .00155,
2580 + .00072, .00415, .00822,
2581 + .31509, .09165, .08046, .00415, .00151,
2582 + .00073, .00397, .00786,
2583 + .30232, .08742, .07250, .00394, .00147,
2584 + .00074, .00376, .00739,
2585 + .29085, .08366, .06588, .00376, .00142,
2586 + .00074, .00358, .00698,
2587 + .28058, .08031, .06034, .00359, .00138,
2588 + .00073, .00342, .00663 /
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 + .27069, .07708, .05534, .00340, .00134,
2591 + .00073, .00326, .00631,
2592 + .26141, .07407, .05093, .00324, .00129,
2593 + .00072, .00311, .00601,
2594 + .25295, .07134, .04716, .00310, .00125,
2595 + .00071, .00298, .00574,
2596 + .24522, .06887, .04391, .00298, .00122,
2597 + .00070, .00286, .00549,
2598 + .23774, .06651, .04091, .00286, .00118,
2599 + .00068, .00275, .00525,
2600 + .23056, .06426, .03822, .00276, .00115,
2601 + .00067, .00264, .00502,
2602 + .22400, .06221, .03586, .00267, .00111,
2603 + .00066, .00254, .00481,
2604 + .21797, .06032, .03381, .00258, .00108,
2605 + .00065, .00246, .00462 /
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 + .21209, .05849, .03187, .00248, .00105,
2608 + .00064, .00237, .00445,
2609 + .20641, .05674, .03010, .00239, .00102,
2610 + .00062, .00229, .00428,
2611 + .20115, .05513, .02852, .00231, .00100,
2612 + .00061, .00220, .00414,
2613 + .19630, .05365, .02712, .00223, .00097,
2614 + .00060, .00213, .00400,
2615 + .19151, .05218, .02579, .00215, .00095,
2616 + .00059, .00206, .00386 /
2617 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
2618 + .61785, .19632, .48520, .00621, .00000,
2619 + .00000, .00589, .01613,
2620 + .59521, .18764, .44388, .00613, .00000,
2621 + .00000, .00584, .01535,
2622 + .56357, .17565, .38798, .00592, .00000,
2623 + .00000, .00569, .01430,
2624 + .54181, .16753, .35074, .00576, .00016,
2625 + .00000, .00553, .01361,
2626 + .51998, .15952, .31405, .00557, .00047,
2627 + .00000, .00536, .01290,
2628 + .50196, .15295, .28559, .00541, .00066,
2629 + .00000, .00521, .01231,
2630 + .48538, .14697, .26090, .00526, .00081,
2631 + .00000, .00507, .01176,
2632 + .46850, .14095, .23720, .00508, .00092,
2633 + .00000, .00492, .01119 /
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 + .45435, .13595, .21840, .00492, .00100,
2636 + .00000, .00478, .01074,
2637 + .44117, .13133, .20177, .00476, .00105,
2638 + .00000, .00465, .01031,
2639 + .43108, .12780, .18960, .00464, .00109,
2640 + .00000, .00455, .00998,
2641 + .41036, .12065, .16573, .00440, .00114,
2642 + .00003, .00431, .00934,
2643 + .39340, .11488, .14728, .00420, .00117,
2644 + .00016, .00412, .00878,
2645 + .37534, .10879, .12931, .00399, .00118,
2646 + .00028, .00391, .00820,
2647 + .35755, .10286, .11328, .00377, .00117,
2648 + .00036, .00369, .00767,
2649 + .34225, .09781, .10071, .00357, .00116,
2650 + .00041, .00350, .00722 /
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 + .32758, .09300, .08965, .00338, .00114,
2653 + .00045, .00332, .00678,
2654 + .31593, .08922, .08155, .00323, .00112,
2655 + .00047, .00317, .00646,
2656 + .30241, .08488, .07285, .00306, .00109,
2657 + .00049, .00300, .00606,
2658 + .29100, .08125, .06605, .00293, .00106,
2659 + .00050, .00286, .00573,
2660 + .28097, .07808, .06048, .00281, .00104,
2661 + .00050, .00275, .00543,
2662 + .26878, .07423, .05420, .00265, .00100,
2663 + .00050, .00259, .00512,
2664 + .25789, .07082, .04901, .00251, .00097,
2665 + .00050, .00246, .00484,
2666 + .24816, .06781, .04469, .00238, .00094,
2667 + .00050, .00234, .00457 /
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 + .23876, .06493, .04083, .00227, .00091,
2670 + .00049, .00223, .00433,
2671 + .22998, .06225, .03744, .00216, .00088,
2672 + .00048, .00213, .00410,
2673 + .22203, .05983, .03455, .00205, .00085,
2674 + .00048, .00203, .00391,
2675 + .21477, .05764, .03208, .00196, .00082,
2676 + .00047, .00194, .00374,
2677 + .20776, .05554, .02981, .00189, .00080,
2678 + .00046, .00186, .00357,
2679 + .20108, .05354, .02778, .00182, .00077,
2680 + .00045, .00178, .00341,
2681 + .19499, .05173, .02600, .00175, .00075,
2682 + .00044, .00171, .00326,
2683 + .18938, .05007, .02447, .00169, .00073,
2684 + .00043, .00165, .00313 /
2685 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
2686 + .18392, .04846, .02303, .00162, .00071,
2687 + .00043, .00160, .00300,
2688 + .17869, .04693, .02171, .00155, .00069,
2689 + .00042, .00154, .00288,
2690 + .17386, .04551, .02054, .00148, .00067,
2691 + .00041, .00148, .00278,
2692 + .16941, .04422, .01950, .00142, .00065,
2693 + .00040, .00142, .00269,
2694 + .16500, .04294, .01852, .00137, .00063,
2695 + .00040, .00137, .00259 /
2696 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
2697 + .58041, .17590, .42802, .00442, .00000,
2698 + .00000, .00424, .01170,
2699 + .55722, .16756, .38630, .00435, .00000,
2700 + .00000, .00419, .01110,
2701 + .52510, .15606, .33157, .00413, .00000,
2702 + .00000, .00404, .01037,
2703 + .50309, .14838, .29614, .00402, .00011,
2704 + .00000, .00393, .00980,
2705 + .48111, .14080, .26195, .00389, .00033,
2706 + .00000, .00381, .00921,
2707 + .46308, .13461, .23594, .00376, .00047,
2708 + .00000, .00370, .00878,
2709 + .44652, .12901, .21366, .00364, .00057,
2710 + .00000, .00358, .00837,
2711 + .42971, .12338, .19252, .00352, .00065,
2712 + .00000, .00345, .00795 /
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 + .41571, .11872, .17593, .00341, .00070,
2715 + .00000, .00335, .00758,
2716 + .40269, .11442, .16142, .00331, .00074,
2717 + .00000, .00324, .00726,
2718 + .39274, .11116, .15089, .00322, .00076,
2719 + .00000, .00315, .00701,
2720 + .37245, .10455, .13052, .00303, .00079,
2721 + .00002, .00300, .00653,
2722 + .35589, .09921, .11502, .00288, .00081,
2723 + .00011, .00285, .00615,
2724 + .33836, .09362, .10009, .00272, .00081,
2725 + .00019, .00269, .00574,
2726 + .32117, .08821, .08693, .00256, .00080,
2727 + .00024, .00253, .00532,
2728 + .30644, .08363, .07672, .00242, .00079,
2729 + .00028, .00239, .00498 /
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 + .29237, .07929, .06784, .00228, .00078,
2732 + .00030, .00226, .00466,
2733 + .28124, .07586, .06138, .00219, .00076,
2734 + .00032, .00216, .00440,
2735 + .26837, .07195, .05450, .00206, .00074,
2736 + .00033, .00203, .00413,
2737 + .25756, .06869, .04917, .00196, .00072,
2738 + .00034, .00193, .00391,
2739 + .24809, .06584, .04483, .00187, .00070,
2740 + .00035, .00185, .00372,
2741 + .23661, .06243, .03998, .00176, .00068,
2742 + .00035, .00174, .00347,
2743 + .22637, .05940, .03600, .00166, .00065,
2744 + .00035, .00164, .00327,
2745 + .21726, .05671, .03270, .00157, .00063,
2746 + .00035, .00155, .00309 /
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 + .20848, .05419, .02977, .00151, .00061,
2749 + .00034, .00147, .00290,
2750 + .20031, .05183, .02722, .00144, .00059,
2751 + .00034, .00140, .00274,
2752 + .19294, .04970, .02505, .00137, .00057,
2753 + .00034, .00134, .00261,
2754 + .18624, .04778, .02321, .00130, .00055,
2755 + .00033, .00128, .00248,
2756 + .17979, .04594, .02152, .00124, .00053,
2757 + .00033, .00122, .00235,
2758 + .17366, .04420, .02002, .00119, .00051,
2759 + .00033, .00117, .00225,
2760 + .16807, .04262, .01870, .00114, .00050,
2761 + .00032, .00112, .00215,
2762 + .16294, .04117, .01757, .00109, .00048,
2763 + .00031, .00107, .00206 /
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 + .15797, .03978, .01650, .00103, .00047,
2766 + .00031, .00103, .00198,
2767 + .15318, .03845, .01554, .00100, .00046,
2768 + .00030, .00099, .00190,
2769 + .14875, .03723, .01468, .00097, .00045,
2770 + .00030, .00095, .00182,
2771 + .14469, .03612, .01393, .00095, .00044,
2772 + .00029, .00092, .00176,
2773 + .14071, .03502, .01322, .00092, .00042,
2774 + .00029, .00088, .00169 /
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 + .53944, .15576, .36669, .00302, .00000,
2777 + .00000, .00300, .00840,
2778 + .51622, .14786, .32695, .00294, .00000,
2779 + .00000, .00294, .00796,
2780 + .48397, .13717, .27597, .00286, .00000,
2781 + .00000, .00281, .00733,
2782 + .46213, .12996, .24370, .00276, .00008,
2783 + .00000, .00272, .00691,
2784 + .44042, .12291, .21324, .00267, .00023,
2785 + .00000, .00262, .00648,
2786 + .42267, .11719, .19035, .00258, .00032,
2787 + .00000, .00254, .00613,
2788 + .40645, .11201, .17094, .00248, .00039,
2789 + .00000, .00245, .00582,
2790 + .39006, .10682, .15273, .00238, .00045,
2791 + .00000, .00235, .00552 /
2792 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
2793 + .37636, .10256, .13863, .00233, .00048,
2794 + .00000, .00227, .00526,
2795 + .36372, .09863, .12640, .00226, .00050,
2796 + .00000, .00219, .00502,
2797 + .35411, .09563, .11758, .00219, .00052,
2798 + .00000, .00213, .00484,
2799 + .33450, .08961, .10075, .00207, .00054,
2800 + .00002, .00201, .00449,
2801 + .31859, .08478, .08810, .00198, .00055,
2802 + .00007, .00191, .00419,
2803 + .30182, .07976, .07604, .00186, .00055,
2804 + .00013, .00179, .00389,
2805 + .28550, .07487, .06554, .00173, .00054,
2806 + .00016, .00168, .00361,
2807 + .27155, .07074, .05747, .00163, .00053,
2808 + .00018, .00158, .00337 /
2809 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
2810 + .25823, .06686, .05049, .00155, .00052,
2811 + .00020, .00149, .00314,
2812 + .24774, .06382, .04547, .00149, .00051,
2813 + .00021, .00142, .00296,
2814 + .23570, .06035, .04017, .00140, .00049,
2815 + .00022, .00133, .00276,
2816 + .22560, .05746, .03609, .00132, .00048,
2817 + .00022, .00126, .00260,
2818 + .21677, .05496, .03278, .00126, .00047,
2819 + .00022, .00121, .00246,
2820 + .20611, .05196, .02911, .00118, .00045,
2821 + .00022, .00113, .00229,
2822 + .19663, .04931, .02612, .00112, .00044,
2823 + .00022, .00106, .00215,
2824 + .18819, .04697, .02365, .00108, .00042,
2825 + .00022, .00099, .00202 /
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 + .18015, .04476, .02148, .00103, .00041,
2828 + .00022, .00094, .00190,
2829 + .17269, .04270, .01958, .00097, .00040,
2830 + .00022, .00089, .00180,
2831 + .16599, .04086, .01798, .00089, .00039,
2832 + .00022, .00085, .00171,
2833 + .15988, .03920, .01663, .00085, .00038,
2834 + .00022, .00082, .00163,
2835 + .15399, .03761, .01539, .00081, .00037,
2836 + .00022, .00078, .00154,
2837 + .14843, .03611, .01429, .00078, .00036,
2838 + .00022, .00074, .00146,
2839 + .14337, .03475, .01334, .00076, .00035,
2840 + .00022, .00070, .00139,
2841 + .13873, .03352, .01251, .00073, .00034,
2842 + .00022, .00067, .00133 /
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 + .13423, .03233, .01174, .00071, .00033,
2845 + .00022, .00064, .00127,
2846 + .12995, .03119, .01104, .00067, .00032,
2847 + .00022, .00062, .00121,
2848 + .12601, .03015, .01042, .00064, .00032,
2849 + .00022, .00060, .00116,
2850 + .12239, .02920, .00988, .00062, .00031,
2851 + .00022, .00058, .00112,
2852 + .11882, .02827, .00936, .00060, .00030,
2853 + .00022, .00056, .00107 /
2854 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
2855 + .49595, .13627, .30513, .00198, .00000,
2856 + .00000, .00212, .00590,
2857 + .47295, .12898, .26896, .00192, .00000,
2858 + .00000, .00206, .00558,
2859 + .44129, .11906, .22349, .00185, .00000,
2860 + .00000, .00195, .00513,
2861 + .41993, .11245, .19529, .00180, .00005,
2862 + .00000, .00189, .00477,
2863 + .39879, .10599, .16908, .00173, .00015,
2864 + .00000, .00182, .00447,
2865 + .38154, .10077, .14961, .00168, .00021,
2866 + .00000, .00174, .00422,
2867 + .36588, .09605, .13332, .00161, .00026,
2868 + .00000, .00167, .00400,
2869 + .35013, .09133, .11820, .00153, .00030,
2870 + .00000, .00161, .00377 /
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 + .33699, .08747, .10662, .00151, .00032,
2873 + .00000, .00154, .00358,
2874 + .32490, .08392, .09663, .00145, .00034,
2875 + .00000, .00148, .00342,
2876 + .31573, .08123, .08946, .00140, .00035,
2877 + .00000, .00144, .00331,
2878 + .29710, .07585, .07592, .00132, .00036,
2879 + .00001, .00136, .00302,
2880 + .28208, .07154, .06592, .00124, .00037,
2881 + .00005, .00128, .00281,
2882 + .26632, .06702, .05649, .00114, .00037,
2883 + .00008, .00120, .00261,
2884 + .25095, .06269, .04834, .00108, .00037,
2885 + .00010, .00113, .00242,
2886 + .23788, .05907, .04213, .00103, .00037,
2887 + .00012, .00106, .00225 /
2888 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
2889 + .22551, .05566, .03680, .00096, .00036,
2890 + .00013, .00099, .00208,
2891 + .21580, .05298, .03301, .00092, .00036,
2892 + .00013, .00094, .00196,
2893 + .20463, .04995, .02902, .00088, .00035,
2894 + .00013, .00088, .00182,
2895 + .19533, .04744, .02597, .00083, .00034,
2896 + .00013, .00083, .00171,
2897 + .18727, .04525, .02352, .00077, .00033,
2898 + .00013, .00078, .00162,
2899 + .17752, .04265, .02082, .00072, .00032,
2900 + .00013, .00073, .00150,
2901 + .16887, .04036, .01862, .00068, .00031,
2902 + .00013, .00069, .00140,
2903 + .16122, .03834, .01681, .00065, .00030,
2904 + .00013, .00066, .00132 /
2905 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
2906 + .15396, .03644, .01523, .00060, .00030,
2907 + .00013, .00062, .00124,
2908 + .14720, .03468, .01386, .00057, .00029,
2909 + .00013, .00059, .00117,
2910 + .14108, .03311, .01270, .00056, .00028,
2911 + .00013, .00057, .00109,
2912 + .13560, .03170, .01173, .00053, .00028,
2913 + .00013, .00054, .00104,
2914 + .13035, .03035, .01084, .00049, .00027,
2915 + .00013, .00050, .00099,
2916 + .12538, .02908, .01005, .00047, .00026,
2917 + .00013, .00048, .00094,
2918 + .12086, .02793, .00937, .00045, .00026,
2919 + .00013, .00046, .00089,
2920 + .11673, .02689, .00878, .00043, .00025,
2921 + .00013, .00044, .00085 /
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 + .11273, .02589, .00823, .00042, .00025,
2924 + .00013, .00042, .00081,
2925 + .10893, .02493, .00774, .00041, .00024,
2926 + .00013, .00040, .00078,
2927 + .10544, .02406, .00730, .00039, .00024,
2928 + .00013, .00039, .00075,
2929 + .10224, .02326, .00691, .00037, .00024,
2930 + .00013, .00037, .00072,
2931 + .09910, .02248, .00655, .00035, .00023,
2932 + .00013, .00035, .00069 /
2933 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
2934 + .45089, .11789, .24675, .00127, .00000,
2935 + .00000, .00144, .00408,
2936 + .42850, .11121, .21519, .00123, .00000,
2937 + .00000, .00140, .00383,
2938 + .39790, .10214, .17619, .00115, .00000,
2939 + .00000, .00133, .00350,
2940 + .37733, .09612, .15235, .00111, .00003,
2941 + .00000, .00128, .00327,
2942 + .35707, .09029, .13062, .00108, .00010,
2943 + .00000, .00123, .00303,
2944 + .34062, .08559, .11466, .00103, .00014,
2945 + .00000, .00118, .00286,
2946 + .32570, .08135, .10143, .00099, .00017,
2947 + .00000, .00114, .00269,
2948 + .31073, .07714, .08926, .00095, .00019,
2949 + .00000, .00109, .00252 /
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 + .29837, .07368, .08000, .00091, .00020,
2952 + .00000, .00105, .00240,
2953 + .28699, .07053, .07212, .00086, .00021,
2954 + .00000, .00101, .00228,
2955 + .27836, .06815, .06651, .00083, .00022,
2956 + .00000, .00098, .00219,
2957 + .26092, .06338, .05596, .00077, .00023,
2958 + .00001, .00092, .00203,
2959 + .24688, .05958, .04827, .00073, .00023,
2960 + .00003, .00085, .00189,
2961 + .23222, .05564, .04107, .00068, .00024,
2962 + .00005, .00080, .00174,
2963 + .21803, .05186, .03492, .00063, .00024,
2964 + .00006, .00075, .00160,
2965 + .20602, .04870, .03028, .00059, .00024,
2966 + .00007, .00070, .00148 /
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 + .19468, .04573, .02633, .00056, .00024,
2969 + .00007, .00066, .00138,
2970 + .18580, .04342, .02353, .00054, .00024,
2971 + .00007, .00062, .00130,
2972 + .17565, .04080, .02060, .00049, .00024,
2973 + .00007, .00058, .00120,
2974 + .16721, .03865, .01838, .00046, .00024,
2975 + .00007, .00054, .00112,
2976 + .15988, .03678, .01661, .00044, .00024,
2977 + .00007, .00051, .00105,
2978 + .15111, .03456, .01465, .00040, .00024,
2979 + .00007, .00048, .00098,
2980 + .14335, .03261, .01307, .00037, .00023,
2981 + .00007, .00045, .00092,
2982 + .13648, .03090, .01178, .00036, .00023,
2983 + .00007, .00043, .00085 /
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 + .12998, .02929, .01065, .00033, .00023,
2986 + .00007, .00040, .00080,
2987 + .12397, .02781, .00968, .00031, .00023,
2988 + .00007, .00038, .00075,
2989 + .11856, .02649, .00886, .00029, .00022,
2990 + .00007, .00036, .00070,
2991 + .11370, .02530, .00817, .00028, .00022,
2992 + .00007, .00034, .00067,
2993 + .10905, .02417, .00755, .00026, .00021,
2994 + .00007, .00033, .00063,
2995 + .10466, .02311, .00699, .00025, .00021,
2996 + .00007, .00031, .00060,
2997 + .10069, .02215, .00651, .00023, .00021,
2998 + .00007, .00030, .00058,
2999 + .09707, .02129, .00610, .00023, .00021,
3000 + .00007, .00029, .00054 /
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 + .09357, .02045, .00572, .00022, .00020,
3003 + .00007, .00027, .00051,
3004 + .09025, .01967, .00537, .00021, .00020,
3005 + .00007, .00026, .00049,
3006 + .08720, .01895, .00506, .00021, .00020,
3007 + .00007, .00025, .00046,
3008 + .08441, .01829, .00479, .00020, .00019,
3009 + .00007, .00024, .00045,
3010 + .08167, .01765, .00454, .00020, .00019,
3011 + .00007, .00023, .00042 /
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 + .40528, .10089, .19408, .00093, .00000,
3014 + .00000, .00090, .00268,
3015 + .38389, .09485, .16758, .00088, .00000,
3016 + .00000, .00086, .00250,
3017 + .35474, .08674, .13540, .00082, .00000,
3018 + .00000, .00083, .00227,
3019 + .33525, .08136, .11606, .00081, .00002,
3020 + .00000, .00080, .00210,
3021 + .31618, .07617, .09863, .00075, .00006,
3022 + .00000, .00076, .00193,
3023 + .30071, .07199, .08593, .00073, .00009,
3024 + .00000, .00072, .00181,
3025 + .28675, .06825, .07551, .00069, .00010,
3026 + .00000, .00069, .00172,
3027 + .27280, .06455, .06602, .00066, .00012,
3028 + .00000, .00066, .00162 /
3029 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
3030 + .26125, .06153, .05888, .00066, .00013,
3031 + .00000, .00063, .00151,
3032 + .25069, .05876, .05283, .00063, .00013,
3033 + .00000, .00060, .00143,
3034 + .24272, .05667, .04854, .00059, .00014,
3035 + .00000, .00058, .00138,
3036 + .22668, .05251, .04057, .00054, .00014,
3037 + .00001, .00053, .00128,
3038 + .21379, .04920, .03479, .00053, .00014,
3039 + .00002, .00050, .00117,
3040 + .20037, .04579, .02943, .00049, .00014,
3041 + .00003, .00047, .00107,
3042 + .18744, .04254, .02489, .00046, .00014,
3043 + .00003, .00043, .00098,
3044 + .17656, .03982, .02149, .00043, .00014,
3045 + .00003, .00040, .00090 /
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 + .16634, .03728, .01861, .00040, .00014,
3048 + .00004, .00037, .00084,
3049 + .15833, .03531, .01659, .00038, .00014,
3050 + .00004, .00035, .00079,
3051 + .14921, .03309, .01449, .00036, .00014,
3052 + .00004, .00033, .00073,
3053 + .14166, .03126, .01290, .00034, .00014,
3054 + .00004, .00031, .00069,
3055 + .13512, .02967, .01163, .00033, .00014,
3056 + .00004, .00029, .00065,
3057 + .12731, .02780, .01024, .00030, .00014,
3058 + .00004, .00026, .00059,
3059 + .12042, .02617, .00912, .00028, .00014,
3060 + .00004, .00024, .00055,
3061 + .11436, .02474, .00821, .00027, .00014,
3062 + .00004, .00023, .00051 /
3063 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
3064 + .10863, .02339, .00742, .00025, .00014,
3065 + .00004, .00022, .00047,
3066 + .10336, .02215, .00674, .00024, .00014,
3067 + .00004, .00021, .00044,
3068 + .09865, .02104, .00616, .00022, .00014,
3069 + .00004, .00020, .00041,
3070 + .09439, .02006, .00568, .00021, .00014,
3071 + .00004, .00019, .00039,
3072 + .09033, .01912, .00524, .00021, .00014,
3073 + .00004, .00018, .00037,
3074 + .08651, .01825, .00486, .00020, .00014,
3075 + .00004, .00017, .00034,
3076 + .08307, .01747, .00452, .00019, .00014,
3077 + .00004, .00016, .00032,
3078 + .07994, .01675, .00423, .00017, .00014,
3079 + .00004, .00015, .00031 /
3080 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
3081 + .07694, .01607, .00396, .00016, .00014,
3082 + .00004, .00015, .00031,
3083 + .07406, .01542, .00372, .00015, .00014,
3084 + .00004, .00014, .00029,
3085 + .07142, .01483, .00351, .00016, .00014,
3086 + .00004, .00013, .00028,
3087 + .06902, .01430, .00332, .00016, .00014,
3088 + .00004, .00013, .00026,
3089 + .06669, .01377, .00314, .00015, .00014,
3090 + .00004, .00012, .00025 /
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 + .35974, .08493, .14785, .00048, .00000,
3093 + .00000, .00064, .00179,
3094 + .33960, .07959, .12646, .00047, .00000,
3095 + .00000, .00060, .00167,
3096 + .31226, .07242, .10088, .00043, .00000,
3097 + .00000, .00054, .00152,
3098 + .29404, .06774, .08571, .00044, .00001,
3099 + .00000, .00052, .00138,
3100 + .27627, .06319, .07220, .00043, .00004,
3101 + .00000, .00049, .00128,
3102 + .26200, .05956, .06251, .00040, .00005,
3103 + .00000, .00047, .00119,
3104 + .24913, .05630, .05460, .00038, .00006,
3105 + .00000, .00044, .00112,
3106 + .23629, .05308, .04745, .00037, .00007,
3107 + .00000, .00041, .00105 /
3108 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
3109 + .22575, .05046, .04210, .00035, .00007,
3110 + .00000, .00040, .00097,
3111 + .21610, .04809, .03759, .00035, .00007,
3112 + .00000, .00039, .00091,
3113 + .20880, .04630, .03441, .00036, .00007,
3114 + .00000, .00037, .00087,
3115 + .19425, .04274, .02858, .00030, .00007,
3116 + .00000, .00034, .00081,
3117 + .18260, .03992, .02438, .00029, .00007,
3118 + .00001, .00032, .00074,
3119 + .17052, .03703, .02052, .00027, .00007,
3120 + .00001, .00030, .00067,
3121 + .15894, .03427, .01728, .00024, .00007,
3122 + .00001, .00027, .00062,
3123 + .14921, .03197, .01487, .00023, .00007,
3124 + .00001, .00024, .00057 /
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 + .14006, .02984, .01284, .00022, .00007,
3127 + .00001, .00023, .00052,
3128 + .13300, .02820, .01141, .00020, .00007,
3129 + .00001, .00022, .00048,
3130 + .12494, .02634, .00994, .00020, .00007,
3131 + .00001, .00020, .00045,
3132 + .11828, .02481, .00884, .00019, .00007,
3133 + .00001, .00018, .00042,
3134 + .11253, .02350, .00795, .00019, .00007,
3135 + .00001, .00017, .00039,
3136 + .10571, .02194, .00700, .00015, .00007,
3137 + .00001, .00016, .00036,
3138 + .09970, .02059, .00623, .00015, .00007,
3139 + .00001, .00015, .00033,
3140 + .09442, .01942, .00560, .00015, .00007,
3141 + .00001, .00014, .00030 /
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 + .08944, .01831, .00506, .00015, .00007,
3144 + .00001, .00013, .00029,
3145 + .08488, .01730, .00459, .00014, .00007,
3146 + .00001, .00012, .00027,
3147 + .08082, .01640, .00419, .00013, .00007,
3148 + .00001, .00012, .00025,
3149 + .07716, .01560, .00387, .00012, .00007,
3150 + .00001, .00011, .00023,
3151 + .07369, .01484, .00357, .00012, .00007,
3152 + .00001, .00010, .00022,
3153 + .07041, .01413, .00330, .00011, .00007,
3154 + .00001, .00010, .00021,
3155 + .06746, .01349, .00307, .00010, .00007,
3156 + .00001, .00009, .00020,
3157 + .06479, .01292, .00288, .00010, .00007,
3158 + .00001, .00009, .00019 /
3159 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
3160 + .06223, .01237, .00269, .00010, .00007,
3161 + .00001, .00008, .00018,
3162 + .05980, .01185, .00253, .00009, .00007,
3163 + .00001, .00008, .00017,
3164 + .05758, .01137, .00238, .00009, .00007,
3165 + .00001, .00007, .00016,
3166 + .05556, .01094, .00225, .00009, .00007,
3167 + .00001, .00007, .00015,
3168 + .05360, .01053, .00213, .00008, .00007,
3169 + .00001, .00007, .00014 /
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 + .31531, .07055, .10921, .00024, .00000,
3172 + .00000, .00042, .00116,
3173 + .29657, .06589, .09260, .00023, .00000,
3174 + .00000, .00040, .00107,
3175 + .27128, .05968, .07295, .00024, .00000,
3176 + .00000, .00036, .00095,
3177 + .25459, .05561, .06147, .00022, .00001,
3178 + .00000, .00035, .00087,
3179 + .23831, .05168, .05139, .00022, .00002,
3180 + .00000, .00031, .00081,
3181 + .22528, .04857, .04420, .00022, .00003,
3182 + .00000, .00031, .00075,
3183 + .21361, .04579, .03838, .00020, .00003,
3184 + .00000, .00029, .00070,
3185 + .20202, .04304, .03316, .00018, .00003,
3186 + .00000, .00026, .00066 /
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 + .19253, .04082, .02929, .00018, .00003,
3189 + .00000, .00025, .00060,
3190 + .18384, .03880, .02605, .00017, .00003,
3191 + .00000, .00024, .00057,
3192 + .17729, .03729, .02377, .00017, .00003,
3193 + .00000, .00023, .00055,
3194 + .16421, .03429, .01963, .00017, .00003,
3195 + .00000, .00022, .00049,
3196 + .15385, .03193, .01667, .00015, .00003,
3197 + .00000, .00021, .00045,
3198 + .14315, .02950, .01397, .00013, .00003,
3199 + .00000, .00018, .00041,
3200 + .13289, .02720, .01172, .00014, .00003,
3201 + .00000, .00017, .00037,
3202 + .12433, .02529, .01005, .00013, .00003,
3203 + .00000, .00016, .00034 /
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 + .11638, .02352, .00867, .00009, .00003,
3206 + .00000, .00014, .00032,
3207 + .11017, .02216, .00769, .00011, .00003,
3208 + .00000, .00013, .00030,
3209 + .10313, .02063, .00669, .00010, .00003,
3210 + .00000, .00012, .00028,
3211 + .09736, .01939, .00594, .00010, .00003,
3212 + .00000, .00011, .00025,
3213 + .09239, .01832, .00534, .00010, .00003,
3214 + .00000, .00010, .00023,
3215 + .08650, .01705, .00470, .00009, .00003,
3216 + .00000, .00010, .00021,
3217 + .08135, .01595, .00418, .00008, .00003,
3218 + .00000, .00009, .00020,
3219 + .07683, .01500, .00376, .00008, .00003,
3220 + .00000, .00009, .00018 /
3221 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
3222 + .07259, .01410, .00339, .00007, .00003,
3223 + .00000, .00008, .00017,
3224 + .06871, .01329, .00308, .00007, .00003,
3225 + .00000, .00008, .00016,
3226 + .06525, .01257, .00281, .00006, .00003,
3227 + .00000, .00008, .00015,
3228 + .06215, .01192, .00259, .00006, .00003,
3229 + .00000, .00007, .00014,
3230 + .05921, .01132, .00239, .00006, .00003,
3231 + .00000, .00006, .00013,
3232 + .05646, .01075, .00222, .00006, .00003,
3233 + .00000, .00006, .00013,
3234 + .05399, .01025, .00206, .00006, .00003,
3235 + .00000, .00006, .00012,
3236 + .05175, .00979, .00193, .00005, .00003,
3237 + .00000, .00006, .00012 /
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 + .04960, .00936, .00181, .00005, .00003,
3240 + .00000, .00005, .00011,
3241 + .04758, .00895, .00170, .00004, .00003,
3242 + .00000, .00005, .00010,
3243 + .04573, .00857, .00160, .00004, .00003,
3244 + .00000, .00005, .00010,
3245 + .04405, .00824, .00151, .00004, .00003,
3246 + .00000, .00005, .00009,
3247 + .04242, .00791, .00143, .00004, .00003,
3248 + .00000, .00004, .00009 /
3249 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
3250 + .27270, .05784, .07827, .00017, .00000,
3251 + .00000, .00023, .00071,
3252 + .25557, .05386, .06581, .00018, .00000,
3253 + .00000, .00021, .00063,
3254 + .23260, .04854, .05126, .00017, .00000,
3255 + .00000, .00019, .00057,
3256 + .21751, .04507, .04287, .00016, .00000,
3257 + .00000, .00018, .00051,
3258 + .20291, .04174, .03558, .00015, .00001,
3259 + .00000, .00017, .00045,
3260 + .19120, .03911, .03043, .00015, .00001,
3261 + .00000, .00016, .00043,
3262 + .18074, .03676, .02631, .00015, .00001,
3263 + .00000, .00016, .00040,
3264 + .17040, .03445, .02263, .00015, .00001,
3265 + .00000, .00015, .00037 /
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 + .16197, .03260, .01990, .00013, .00001,
3268 + .00000, .00013, .00035,
3269 + .15429, .03091, .01764, .00012, .00001,
3270 + .00000, .00012, .00033,
3271 + .14852, .02964, .01607, .00012, .00001,
3272 + .00000, .00012, .00031,
3273 + .13703, .02714, .01321, .00010, .00001,
3274 + .00000, .00011, .00029,
3275 + .12793, .02518, .01118, .00010, .00001,
3276 + .00000, .00009, .00026,
3277 + .11857, .02319, .00934, .00010, .00001,
3278 + .00000, .00009, .00024,
3279 + .10967, .02130, .00782, .00010, .00001,
3280 + .00000, .00009, .00021,
3281 + .10226, .01974, .00670, .00009, .00001,
3282 + .00000, .00008, .00019 /
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 + .09537, .01830, .00576, .00008, .00001,
3285 + .00000, .00007, .00017,
3286 + .09006, .01720, .00511, .00007, .00001,
3287 + .00000, .00007, .00016,
3288 + .08405, .01596, .00445, .00007, .00001,
3289 + .00000, .00006, .00014,
3290 + .07911, .01495, .00395, .00007, .00001,
3291 + .00000, .00006, .00013,
3292 + .07487, .01410, .00355, .00008, .00001,
3293 + .00000, .00005, .00012,
3294 + .06989, .01308, .00312, .00006, .00001,
3295 + .00000, .00005, .00011,
3296 + .06552, .01220, .00278, .00006, .00001,
3297 + .00000, .00004, .00011,
3298 + .06171, .01144, .00250, .00006, .00001,
3299 + .00000, .00004, .00010 /
3300 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
3301 + .05815, .01073, .00226, .00005, .00001,
3302 + .00000, .00004, .00010,
3303 + .05489, .01008, .00205, .00005, .00001,
3304 + .00000, .00004, .00009,
3305 + .05199, .00951, .00187, .00004, .00001,
3306 + .00000, .00003, .00009,
3307 + .04941, .00901, .00172, .00004, .00001,
3308 + .00000, .00003, .00008,
3309 + .04696, .00853, .00159, .00004, .00001,
3310 + .00000, .00003, .00008,
3311 + .04469, .00809, .00147, .00004, .00001,
3312 + .00000, .00003, .00007,
3313 + .04265, .00769, .00137, .00004, .00001,
3314 + .00000, .00003, .00006,
3315 + .04079, .00734, .00129, .00004, .00001,
3316 + .00000, .00003, .00005 /
3317 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
3318 + .03902, .00700, .00120, .00004, .00001,
3319 + .00000, .00002, .00005,
3320 + .03735, .00668, .00113, .00004, .00001,
3321 + .00000, .00002, .00005,
3322 + .03584, .00639, .00106, .00003, .00001,
3323 + .00000, .00002, .00005,
3324 + .03447, .00613, .00101, .00003, .00001,
3325 + .00000, .00002, .00005,
3326 + .03313, .00587, .00095, .00003, .00001,
3327 + .00000, .00002, .00004 /
3328 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
3329 + .23208, .04650, .05398, .00006, .00000,
3330 + .00000, .00017, .00043,
3331 + .21675, .04312, .04504, .00004, .00000,
3332 + .00000, .00014, .00040,
3333 + .19624, .03866, .03472, .00006, .00000,
3334 + .00000, .00013, .00035,
3335 + .18284, .03576, .02883, .00004, .00000,
3336 + .00000, .00012, .00033,
3337 + .16990, .03301, .02378, .00004, .00000,
3338 + .00000, .00012, .00028,
3339 + .15959, .03082, .02023, .00004, .00000,
3340 + .00000, .00010, .00027,
3341 + .15040, .02889, .01740, .00004, .00000,
3342 + .00000, .00009, .00025,
3343 + .14135, .02699, .01490, .00004, .00000,
3344 + .00000, .00008, .00023 /
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 + .13399, .02546, .01307, .00003, .00000,
3347 + .00000, .00009, .00022,
3348 + .12729, .02409, .01155, .00004, .00000,
3349 + .00000, .00009, .00020,
3350 + .12226, .02306, .01050, .00005, .00000,
3351 + .00000, .00008, .00019,
3352 + .11232, .02102, .00860, .00004, .00000,
3353 + .00000, .00006, .00019,
3354 + .10450, .01944, .00726, .00004, .00000,
3355 + .00000, .00006, .00016,
3356 + .09649, .01783, .00606, .00003, .00000,
3357 + .00000, .00006, .00014,
3358 + .08889, .01632, .00506, .00003, .00000,
3359 + .00000, .00006, .00012,
3360 + .08258, .01507, .00433, .00004, .00000,
3361 + .00000, .00005, .00011 /
3362 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
3363 + .07673, .01392, .00373, .00004, .00000,
3364 + .00000, .00004, .00010,
3365 + .07225, .01305, .00331, .00003, .00000,
3366 + .00000, .00004, .00010,
3367 + .06720, .01206, .00288, .00003, .00000,
3368 + .00000, .00004, .00009,
3369 + .06307, .01127, .00255, .00003, .00000,
3370 + .00000, .00003, .00008,
3371 + .05952, .01059, .00230, .00003, .00000,
3372 + .00000, .00003, .00007,
3373 + .05536, .00979, .00202, .00002, .00000,
3374 + .00000, .00003, .00007,
3375 + .05174, .00911, .00180, .00002, .00000,
3376 + .00000, .00003, .00006,
3377 + .04858, .00852, .00162, .00003, .00000,
3378 + .00000, .00003, .00005 /
3379 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
3380 + .04565, .00796, .00147, .00002, .00000,
3381 + .00000, .00003, .00005,
3382 + .04298, .00746, .00133, .00002, .00000,
3383 + .00000, .00003, .00005,
3384 + .04061, .00702, .00122, .00001, .00000,
3385 + .00000, .00002, .00005,
3386 + .03850, .00663, .00112, .00002, .00000,
3387 + .00000, .00002, .00004,
3388 + .03650, .00627, .00103, .00002, .00000,
3389 + .00000, .00002, .00004,
3390 + .03465, .00593, .00096, .00002, .00000,
3391 + .00000, .00002, .00004,
3392 + .03299, .00563, .00089, .00001, .00000,
3393 + .00000, .00002, .00004,
3394 + .03150, .00535, .00083, .00001, .00000,
3395 + .00000, .00002, .00003 /
3396 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
3397 + .03007, .00510, .00078, .00002, .00000,
3398 + .00000, .00002, .00003,
3399 + .02872, .00485, .00073, .00001, .00000,
3400 + .00000, .00002, .00003,
3401 + .02750, .00463, .00069, .00001, .00000,
3402 + .00000, .00001, .00003,
3403 + .02640, .00444, .00065, .00001, .00000,
3404 + .00000, .00001, .00003,
3405 + .02532, .00424, .00062, .00001, .00000,
3406 + .00000, .00001, .00002 /
3407 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
3408 + .16006, .02849, .02298, .00004, .00000,
3409 + .00000, .00004, .00013,
3410 + .14833, .02623, .01890, .00003, .00000,
3411 + .00000, .00005, .00012,
3412 + .13286, .02326, .01431, .00001, .00000,
3413 + .00000, .00003, .00011,
3414 + .12278, .02136, .01175, .00002, .00000,
3415 + .00000, .00003, .00009,
3416 + .11320, .01954, .00959, .00001, .00000,
3417 + .00000, .00003, .00008,
3418 + .10561, .01813, .00810, .00001, .00000,
3419 + .00000, .00003, .00008,
3420 + .09890, .01689, .00693, .00001, .00000,
3421 + .00000, .00002, .00008,
3422 + .09234, .01567, .00590, .00000, .00000,
3423 + .00000, .00002, .00008 /
3424 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
3425 + .08703, .01470, .00516, .00000, .00000,
3426 + .00000, .00003, .00007,
3427 + .08224, .01383, .00455, .00000, .00000,
3428 + .00000, .00003, .00006,
3429 + .07867, .01319, .00413, .00001, .00000,
3430 + .00000, .00003, .00005,
3431 + .07164, .01192, .00337, .00000, .00000,
3432 + .00000, .00002, .00005,
3433 + .06615, .01094, .00284, .00000, .00000,
3434 + .00000, .00002, .00005,
3435 + .06057, .00995, .00237, .00001, .00000,
3436 + .00000, .00002, .00004,
3437 + .05533, .00903, .00199, .00001, .00000,
3438 + .00000, .00001, .00003,
3439 + .05102, .00828, .00171, .00001, .00000,
3440 + .00000, .00001, .00003 /
3441 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
3442 + .04707, .00759, .00147, .00000, .00000,
3443 + .00000, .00001, .00003,
3444 + .04405, .00707, .00131, .00000, .00000,
3445 + .00000, .00001, .00003,
3446 + .04067, .00649, .00114, .00000, .00000,
3447 + .00000, .00001, .00003,
3448 + .03793, .00603, .00102, .00000, .00000,
3449 + .00000, .00001, .00002,
3450 + .03561, .00563, .00092, .00000, .00000,
3451 + .00000, .00001, .00002,
3452 + .03288, .00517, .00081, .00000, .00000,
3453 + .00000, .00001, .00002,
3454 + .03052, .00478, .00072, .00001, .00000,
3455 + .00000, .00001, .00002,
3456 + .02849, .00444, .00065, .00001, .00000,
3457 + .00000, .00001, .00002 /
3458 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
3459 + .02661, .00413, .00059, .00001, .00000,
3460 + .00000, .00001, .00001,
3461 + .02491, .00385, .00054, .00000, .00000,
3462 + .00000, .00001, .00001,
3463 + .02340, .00360, .00049, .00001, .00000,
3464 + .00000, .00000, .00001,
3465 + .02207, .00338, .00045, .00000, .00000,
3466 + .00000, .00000, .00001,
3467 + .02083, .00318, .00042, .00000, .00000,
3468 + .00000, .00000, .00001,
3469 + .01967, .00300, .00039, .00000, .00000,
3470 + .00000, .00000, .00001,
3471 + .01863, .00283, .00036, .00001, .00000,
3472 + .00000, .00001, .00001,
3473 + .01771, .00268, .00034, .00001, .00000,
3474 + .00000, .00001, .00001 /
3475 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/
3476 + .01684, .00254, .00032, .00000, .00000,
3477 + .00000, .00000, .00001,
3478 + .01602, .00241, .00030, .00000, .00000,
3479 + .00000, .00000, .00001,
3480 + .01528, .00229, .00028, .00001, .00000,
3481 + .00000, .00000, .00001,
3482 + .01461, .00218, .00026, .00001, .00000,
3483 + .00000, .00000, .00001,
3484 + .01396, .00208, .00025, .00000, .00000,
3485 + .00000, .00000, .00001 /
3486 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/
3487 + .10163, .01587, .00813, .00002, .00000,
3488 + .00000, .00001, .00003,
3489 + .09342, .01449, .00662, .00001, .00000,
3490 + .00000, .00001, .00003,
3491 + .08268, .01269, .00497, .00001, .00000,
3492 + .00000, .00000, .00002,
3493 + .07577, .01156, .00405, .00001, .00000,
3494 + .00000, .00000, .00002,
3495 + .06925, .01049, .00330, .00000, .00000,
3496 + .00000, .00000, .00002,
3497 + .06414, .00967, .00278, .00000, .00000,
3498 + .00000, .00000, .00001,
3499 + .05965, .00894, .00238, .00001, .00000,
3500 + .00000, .00000, .00001,
3501 + .05529, .00824, .00203, .00001, .00000,
3502 + .00000, .00000, .00002 /
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 + .05179, .00769, .00178, .00000, .00000,
3505 + .00000, .00000, .00001,
3506 + .04865, .00719, .00157, .00001, .00000,
3507 + .00000, .00000, .00001,
3508 + .04632, .00682, .00143, .00001, .00000,
3509 + .00000, .00000, .00001,
3510 + .04181, .00611, .00117, -.00001, .00000,
3511 + .00000, .00000, .00001,
3512 + .03828, .00556, .00099, .00000, .00000,
3513 + .00000, .00000, .00001,
3514 + .03474, .00501, .00084, .00000, .00000,
3515 + .00000, .00000, .00001,
3516 + .03145, .00451, .00070, .00000, .00000,
3517 + .00000, .00000, .00001,
3518 + .02877, .00410, .00061, .00000, .00000,
3519 + .00000, .00000, .00001 /
3520 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
3521 + .02632, .00373, .00053, .00000, .00000,
3522 + .00000, .00000, .00001,
3523 + .02447, .00345, .00047, .00000, .00000,
3524 + .00000, .00000, .00001,
3525 + .02242, .00315, .00041, .00000, .00000,
3526 + .00000, .00000, .00001,
3527 + .02077, .00290, .00037, .00000, .00000,
3528 + .00000, .00000, .00001,
3529 + .01938, .00269, .00033, .00000, .00000,
3530 + .00000, .00000, .00001,
3531 + .01776, .00246, .00030, .00000, .00000,
3532 + .00000, .00000, .00001,
3533 + .01637, .00225, .00026, .00000, .00000,
3534 + .00000, .00000, .00000,
3535 + .01518, .00208, .00024, .00000, .00000,
3536 + .00000, .00000, .00000 /
3537 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
3538 + .01408, .00192, .00022, .00000, .00000,
3539 + .00000, .00000, .00000,
3540 + .01310, .00178, .00020, .00000, .00000,
3541 + .00000, .00000, .00000,
3542 + .01224, .00166, .00018, .00000, .00000,
3543 + .00000, .00000, .00000,
3544 + .01148, .00155, .00017, .00000, .00000,
3545 + .00000, .00000, .00000,
3546 + .01077, .00145, .00015, .00000, .00000,
3547 + .00000, .00000, .00000,
3548 + .01012, .00136, .00014, .00000, .00000,
3549 + .00000, .00000, .00000,
3550 + .00954, .00128, .00013, .00000, .00000,
3551 + .00000, .00000, .00000,
3552 + .00903, .00120, .00012, .00000, .00000,
3553 + .00000, .00000, .00000 /
3554 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/
3555 + .00854, .00113, .00012, .00000, .00000,
3556 + .00000, .00000, .00000,
3557 + .00809, .00107, .00011, .00000, .00000,
3558 + .00000, .00000, .00000,
3559 + .00768, .00101, .00010, .00000, .00000,
3560 + .00000, .00000, .00000,
3561 + .00731, .00096, .00010, .00000, .00000,
3562 + .00000, .00000, .00000,
3563 + .00696, .00091, .00009, .00000, .00000,
3564 + .00000, .00000, .00000 /
3565 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/
3566 + .05789, .00779, .00228, .00001, .00000,
3567 + .00000, .00000, .00000,
3568 + .05272, .00705, .00185, .00002, .00000,
3569 + .00000, .00000, .00000,
3570 + .04604, .00610, .00140, .00001, .00000,
3571 + .00000, .00000, .00000,
3572 + .04180, .00550, .00115, .00001, .00000,
3573 + .00000, .00000, .00000,
3574 + .03785, .00494, .00094, .00000, .00000,
3575 + .00000, .00000, .00001,
3576 + .03477, .00452, .00080, .00000, .00000,
3577 + .00000, .00000, .00000,
3578 + .03208, .00415, .00069, .00001, .00000,
3579 + .00000, .00000, .00000,
3580 + .02949, .00379, .00059, .00001, .00000,
3581 + .00000, .00000, .00000 /
3582 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
3583 + .02745, .00351, .00052, .00000, .00000,
3584 + .00000, .00000, .00000,
3585 + .02562, .00326, .00047, .00000, .00000,
3586 + .00000, .00000, .00000,
3587 + .02427, .00308, .00043, .00000, .00000,
3588 + .00000, .00000, .00000,
3589 + .02165, .00273, .00036, .00001, .00000,
3590 + .00000, .00000, .00000,
3591 + .01964, .00247, .00031, .00001, .00000,
3592 + .00000, .00000, .00000,
3593 + .01766, .00220, .00026, .00000, .00000,
3594 + .00000, .00000, .00000,
3595 + .01583, .00196, .00022, .00000, .00000,
3596 + .00000, .00000, .00000,
3597 + .01435, .00177, .00019, .00000, .00000,
3598 + .00000, .00000, .00000 /
3599 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/
3600 + .01301, .00159, .00017, .00000, .00000,
3601 + .00000, .00000, .00000,
3602 + .01201, .00146, .00015, .00000, .00000,
3603 + .00000, .00000, .00000,
3604 + .01090, .00132, .00013, .00000, .00000,
3605 + .00000, .00000, .00000,
3606 + .01002, .00121, .00012, .00000, .00000,
3607 + .00000, .00000, .00000,
3608 + .00928, .00112, .00011, .00000, .00000,
3609 + .00000, .00000, .00000,
3610 + .00844, .00101, .00010, .00000, .00000,
3611 + .00000, .00000, .00000,
3612 + .00772, .00092, .00009, .00000, .00000,
3613 + .00000, .00000, .00000,
3614 + .00710, .00084, .00008, .00000, .00000,
3615 + .00000, .00000, .00000 /
3616 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/
3617 + .00654, .00077, .00007, .00000, .00000,
3618 + .00000, .00000, .00000,
3619 + .00604, .00071, .00006, .00000, .00000,
3620 + .00000, .00000, .00000,
3621 + .00561, .00066, .00006, .00000, .00000,
3622 + .00000, .00000, .00000,
3623 + .00523, .00061, .00005, .00000, .00000,
3624 + .00000, .00000, .00000,
3625 + .00487, .00057, .00005, .00000, .00000,
3626 + .00000, .00000, .00000,
3627 + .00455, .00053, .00005, .00000, .00000,
3628 + .00000, .00000, .00000,
3629 + .00427, .00049, .00004, .00000, .00000,
3630 + .00000, .00000, .00000,
3631 + .00402, .00046, .00004, .00000, .00000,
3632 + .00000, .00000, .00000 /
3633 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=33,37)/
3634 + .00378, .00043, .00004, .00000, .00000,
3635 + .00000, .00000, .00000,
3636 + .00356, .00041, .00003, .00000, .00000,
3637 + .00000, .00000, .00000,
3638 + .00336, .00038, .00003, .00000, .00000,
3639 + .00000, .00000, .00000,
3640 + .00319, .00036, .00003, .00000, .00000,
3641 + .00000, .00000, .00000,
3642 + .00302, .00034, .00003, .00000, .00000,
3643 + .00000, .00000, .00000 /
3644 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/
3645 + .02817, .00317, .00046, .00000, .00000,
3646 + .00000, .00000, .00000,
3647 + .02538, .00284, .00039, .00000, .00000,
3648 + .00000, .00000, .00000,
3649 + .02183, .00242, .00030, .00000, .00000,
3650 + .00000, .00000, .00000,
3651 + .01961, .00216, .00025, .00000, .00000,
3652 + .00000, .00000, .00000,
3653 + .01755, .00192, .00021, .00000, .00000,
3654 + .00000, .00000, .00000,
3655 + .01598, .00174, .00019, .00000, .00000,
3656 + .00000, .00000, .00000,
3657 + .01461, .00158, .00016, .00000, .00000,
3658 + .00000, .00000, .00000,
3659 + .01331, .00144, .00014, .00000, .00000,
3660 + .00000, .00000, .00000 /
3661 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=9,16)/
3662 + .01228, .00132, .00013, .00000, .00000,
3663 + .00000, .00000, .00000,
3664 + .01138, .00122, .00012, .00000, .00000,
3665 + .00000, .00000, .00000,
3666 + .01072, .00114, .00011, .00000, .00000,
3667 + .00000, .00000, .00000,
3668 + .00944, .00100, .00009, .00000, .00000,
3669 + .00000, .00000, .00000,
3670 + .00848, .00089, .00008, .00000, .00000,
3671 + .00000, .00000, .00000,
3672 + .00753, .00079, .00007, .00000, .00000,
3673 + .00000, .00000, .00000,
3674 + .00667, .00069, .00006, .00000, .00000,
3675 + .00000, .00000, .00000,
3676 + .00598, .00062, .00005, .00000, .00000,
3677 + .00000, .00000, .00000 /
3678 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=17,24)/
3679 + .00537, .00055, .00005, .00000, .00000,
3680 + .00000, .00000, .00000,
3681 + .00491, .00050, .00004, .00000, .00000,
3682 + .00000, .00000, .00000,
3683 + .00442, .00045, .00004, .00000, .00000,
3684 + .00000, .00000, .00000,
3685 + .00402, .00041, .00003, .00000, .00000,
3686 + .00000, .00000, .00000,
3687 + .00370, .00037, .00003, .00000, .00000,
3688 + .00000, .00000, .00000,
3689 + .00332, .00033, .00003, .00000, .00000,
3690 + .00000, .00000, .00000,
3691 + .00301, .00030, .00002, .00000, .00000,
3692 + .00000, .00000, .00000,
3693 + .00275, .00027, .00002, .00000, .00000,
3694 + .00000, .00000, .00000 /
3695 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/
3696 + .00251, .00025, .00002, .00000, .00000,
3697 + .00000, .00000, .00000,
3698 + .00230, .00023, .00002, .00000, .00000,
3699 + .00000, .00000, .00000,
3700 + .00212, .00021, .00002, .00000, .00000,
3701 + .00000, .00000, .00000,
3702 + .00196, .00019, .00001, .00000, .00000,
3703 + .00000, .00000, .00000,
3704 + .00181, .00018, .00001, .00000, .00000,
3705 + .00000, .00000, .00000,
3706 + .00168, .00016, .00001, .00000, .00000,
3707 + .00000, .00000, .00000,
3708 + .00157, .00015, .00001, .00000, .00000,
3709 + .00000, .00000, .00000,
3710 + .00147, .00014, .00001, .00000, .00000,
3711 + .00000, .00000, .00000 /
3712 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/
3713 + .00137, .00013, .00001, .00000, .00000,
3714 + .00000, .00000, .00000,
3715 + .00128, .00012, .00001, .00000, .00000,
3716 + .00000, .00000, .00000,
3717 + .00121, .00012, .00001, .00000, .00000,
3718 + .00000, .00000, .00000,
3719 + .00114, .00011, .00001, .00000, .00000,
3720 + .00000, .00000, .00000,
3721 + .00107, .00010, .00001, .00000, .00000,
3722 + .00000, .00000, .00000 /
3723 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/
3724 + .00270, .00018, .00000, .00000, .00000,
3725 + .00000, .00000, .00000,
3726 + .00236, .00016, .00000, .00000, .00000,
3727 + .00000, .00000, .00000,
3728 + .00194, .00013, .00000, .00000, .00000,
3729 + .00000, .00000, .00000,
3730 + .00169, .00011, .00000, .00000, .00000,
3731 + .00000, .00000, .00000,
3732 + .00146, .00010, .00000, .00000, .00000,
3733 + .00000, .00000, .00000,
3734 + .00129, .00008, .00000, .00000, .00000,
3735 + .00000, .00000, .00000,
3736 + .00115, .00008, .00000, .00000, .00000,
3737 + .00000, .00000, .00000,
3738 + .00102, .00007, .00000, .00000, .00000,
3739 + .00000, .00000, .00000 /
3740 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/
3741 + .00092, .00006, .00000, .00000, .00000,
3742 + .00000, .00000, .00000,
3743 + .00084, .00005, .00000, .00000, .00000,
3744 + .00000, .00000, .00000,
3745 + .00077, .00005, .00000, .00000, .00000,
3746 + .00000, .00000, .00000,
3747 + .00066, .00004, .00000, .00000, .00000,
3748 + .00000, .00000, .00000,
3749 + .00057, .00004, .00000, .00000, .00000,
3750 + .00000, .00000, .00000,
3751 + .00049, .00003, .00000, .00000, .00000,
3752 + .00000, .00000, .00000,
3753 + .00042, .00003, .00000, .00000, .00000,
3754 + .00000, .00000, .00000,
3755 + .00037, .00002, .00000, .00000, .00000,
3756 + .00000, .00000, .00000 /
3757 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/
3758 + .00032, .00002, .00000, .00000, .00000,
3759 + .00000, .00000, .00000,
3760 + .00028, .00002, .00000, .00000, .00000,
3761 + .00000, .00000, .00000,
3762 + .00025, .00002, .00000, .00000, .00000,
3763 + .00000, .00000, .00000,
3764 + .00022, .00001, .00000, .00000, .00000,
3765 + .00000, .00000, .00000,
3766 + .00020, .00001, .00000, .00000, .00000,
3767 + .00000, .00000, .00000,
3768 + .00017, .00001, .00000, .00000, .00000,
3769 + .00000, .00000, .00000,
3770 + .00015, .00001, .00000, .00000, .00000,
3771 + .00000, .00000, .00000,
3772 + .00014, .00001, .00000, .00000, .00000,
3773 + .00000, .00000, .00000 /
3774 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
3775 + .00012, .00001, .00000, .00000, .00000,
3776 + .00000, .00000, .00000,
3777 + .00011, .00001, .00000, .00000, .00000,
3778 + .00000, .00000, .00000,
3779 + .00010, .00001, .00000, .00000, .00000,
3780 + .00000, .00000, .00000,
3781 + .00009, .00001, .00000, .00000, .00000,
3782 + .00000, .00000, .00000,
3783 + .00008, .00001, .00000, .00000, .00000,
3784 + .00000, .00000, .00000,
3785 + .00007, .00001, .00000, .00000, .00000,
3786 + .00000, .00000, .00000,
3787 + .00006, .00001, .00000, .00000, .00000,
3788 + .00000, .00000, .00000,
3789 + .00006, .00001, .00000, .00000, .00000,
3790 + .00000, .00000, .00000 /
3791 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
3792 + .00005, .00001, .00000, .00000, .00000,
3793 + .00000, .00000, .00000,
3794 + .00005, .00001, .00000, .00000, .00000,
3795 + .00000, .00000, .00000,
3796 + .00005, .00001, .00000, .00000, .00000,
3797 + .00000, .00000, .00000,
3798 + .00004, .00001, .00000, .00000, .00000,
3799 + .00000, .00000, .00000,
3800 + .00004, .00001, .00000, .00000, .00000,
3801 + .00000, .00000, .00000 /
3802 data xx/1d-5,2d-5,4d-5,6d-5,8d-5,
3803 . 1d-4,2d-4,4d-4,6d-4,8d-4,
3804 . 1d-3,2d-3,4d-3,6d-3,8d-3,
3805 . 1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2,
3806 . .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0,
3807 . .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0,
3808 . .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0,
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=2,file='mrschm2.dat',status='old')
3824 do 20 n=1,nx-1
3825 do 20 m=1,nq
3826C read(2,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
3882