]> git.uio.no Git - u/mrichter/AliRoot.git/blame - PDF/spdf/sfmrs_99a11.F
git://git.uio.no / u / mrichter / AliRoot.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Changes to compile on Solaris 10 with f90 (Intel x86 platform). It does't like contin...
[u/mrichter/AliRoot.git] / PDF / spdf / sfmrs_99a11.F
CommitLineData
21886bb6 1#include "pdf/pilot.h"
2 subroutine sfmrs_99a11(x,qsq,upv,dnv,usea,dsea,str,chm,bot,glu)
3C
4#include "pdf/impdp.inc"
5C
6 parameter(nx=49,nq=37,ntenth=23,np=8)
7C
7ef50f50 8#if defined(CERNLIB_DOUBLE)
9 DOUBLE PRECISION
10#endif
11#if defined(CERNLIB_SINGLE)
12 REAL
13#endif
21886bb6 14 + f(np,nx,nq+1),qq(nq),xx(nx),g(np),n0(np)
15 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,8)/
16 + .00524, .00225, 1.10708, .89447, .00000,
17 + .00000, .47645, .90677,
18 + .00540, .00231, 2.36693, .92861, .00000,
19 + .00000, .51596, .94098,
20 + .00564, .00241, 4.75897, 1.00376, .04191,
21 + .00000, .59869, 1.01620,
22 + .00581, .00249, 6.94730, 1.07521, .13632,
23 + .00000, .67542, 1.08769,
24 + .00600, .00257, 9.76841, 1.16939, .23766,
25 + .00000, .77500, 1.18191,
26 + .00616, .00264, 12.64487, 1.26580, .33927,
27 + .00000, .87595, 1.27835,
28 + .00631, .00271, 15.87741, 1.37105, .45296,
29 + .00000, .98543, 1.38361,
30 + .00648, .00278, 19.85334, 1.49743, .59040,
31 + .00000, 1.11620, 1.51001 /
32 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
33 + .00662, .00285, 23.72488, 1.62149, .72070,
34 + .00000, 1.24399, 1.63408,
35 + .00676, .00291, 27.88427, 1.75343, .85922,
36 + .00000, 1.37944, 1.76602,
37 + .00687, .00297, 31.53034, 1.86642, .97991,
38 + .00000, 1.49517, 1.87901,
39 + .00711, .00308, 39.97499, 2.13582, 1.26222,
40 + .02243, 1.77026, 2.14841,
41 + .00732, .00318, 47.92525, 2.39697, 1.53367,
42 + .34245, 2.03613, 2.40955,
43 + .00755, .00329, 57.96980, 2.72424, 1.87403,
44 + .73681, 2.36854, 2.73680,
45 + .00779, .00341, 69.79701, 3.10494, 2.26918,
46 + 1.15155, 2.75444, 3.11748,
47 + .00802, .00352, 81.76463, 3.48725, 2.66540,
48 + 1.56753, 3.14133, 3.49976 /
49 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
50 + .00825, .00363, 95.10130, 3.91104, 3.10438,
51 + 2.02653, 3.56962, 3.92352,
52 + .00844, .00372, 107.10555, 4.29241, 3.49768,
53 + 2.43289, 3.95465, 4.30486,
54 + .00867, .00384, 122.81029, 4.79190, 4.01115,
55 + 2.96119, 4.45846, 4.80430,
56 + .00888, .00394, 137.86038, 5.26966, 4.50290,
57 + 3.46954, 4.93996, 5.28203,
58 + .00908, .00404, 152.63914, 5.73865, 4.98573,
59 + 3.96901, 5.41230, 5.75098,
60 + .00932, .00417, 172.52527, 6.37445, 5.63665,
61 + 4.63549, 6.05227, 6.38673,
62 + .00956, .00429, 192.60530, 7.01767, 6.29558,
63 + 5.31208, 6.69931, 7.02989,
64 + .00978, .00440, 212.72771, 7.66284, 6.95754,
65 + 5.99425, 7.34798, 7.67502 /
66 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
67 + .01001, .00451, 233.73041, 8.34407, 7.65229,
68 + 6.70274, 8.03264, 8.35620,
69 + .01023, .00463, 255.51657, 9.05224, 8.37576,
70 + 7.44362, 8.74408, 9.06431,
71 + .01044, .00474, 277.19427, 9.76035, 9.09891,
72 + 8.18404, 9.45525, 9.77238,
73 + .01064, .00484, 298.35843, 10.45818, 9.80957,
74 + 8.90866, 10.15589, 10.47015,
75 + .01084, .00495, 320.73434, 11.19690, 10.56351,
76 + 9.68055, 10.89740, 11.20883,
77 + .01105, .00505, 343.28830, 11.95067, 11.32976,
78 + 10.46022, 11.65386, 11.96255,
79 + .01124, .00515, 365.82144, 12.70401, 12.09764,
80 + 11.24534, 12.40971, 12.71583,
81 + .01143, .00525, 387.51144, 13.43834, 12.84330,
82 + 12.00338, 13.14638, 13.45011 /
83 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
84 + .01161, .00535, 410.33365, 14.21221, 13.63052,
85 + 12.80633, 13.92258, 14.22394,
86 + .01180, .00544, 433.34561, 14.99994, 14.43042,
87 + 13.62013, 14.71257, 15.01162,
88 + .01198, .00554, 455.97171, 15.77867, 15.22117,
89 + 14.42478, 15.49344, 15.79031,
90 + .01215, .00563, 478.11319, 16.54384, 15.99860,
91 + 15.21686, 16.26060, 16.55543,
92 + .01233, .00572, 500.75018, 17.33508, 16.80047,
93 + 16.03078, 17.05383, 17.34662 /
94 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
95 + .00707, .00306, 1.03275, .75752, .00000,
96 + .00000, .40294, .76464,
97 + .00730, .00316, 2.16809, .78931, .00000,
98 + .00000, .43892, .79647,
99 + .00763, .00331, 4.27838, .85595, .03625,
100 + .00000, .51147, .86314,
101 + .00787, .00342, 6.17068, .91772, .11745,
102 + .00000, .57735, .92494,
103 + .00813, .00354, 8.57017, .99763, .20316,
104 + .00000, .66146, 1.00487,
105 + .00835, .00365, 10.98115, 1.07833, .28815,
106 + .00000, .74568, 1.08558,
107 + .00856, .00375, 13.65803, 1.16563, .38238,
108 + .00000, .83627, 1.17289,
109 + .00879, .00386, 16.91184, 1.26959, .49527,
110 + .00000, .94363, 1.27687 /
111 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
112 + .00899, .00396, 20.04412, 1.37073, .60134,
113 + .00000, 1.04765, 1.37801,
114 + .00919, .00405, 23.37685, 1.47754, .71330,
115 + .00000, 1.15718, 1.48482,
116 + .00934, .00412, 26.27535, 1.56854, .81027,
117 + .00000, 1.25031, 1.57583,
118 + .00967, .00428, 32.90954, 1.78368, 1.03515,
119 + .01833, 1.46984, 1.79096,
120 + .00995, .00443, 39.06670, 1.99025, 1.24924,
121 + .27001, 1.68006, 1.99753,
122 + .01027, .00459, 46.74966, 2.24684, 1.51520,
123 + .57823, 1.94061, 2.25411,
124 + .01061, .00475, 55.68116, 2.54251, 1.82100,
125 + .89861, 2.24029, 2.54978,
126 + .01092, .00491, 64.61087, 2.83681, 2.12484,
127 + 1.21697, 2.53812, 2.84406 /
128 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
129 + .01123, .00507, 74.45277, 3.16035, 2.45867,
130 + 1.56522, 2.86513, 3.16759,
131 + .01149, .00520, 83.22314, 3.44930, 2.75547,
132 + 1.87106, 3.15689, 3.45653,
133 + .01181, .00537, 94.58546, 3.82492, 3.14004,
134 + 2.26563, 3.53584, 3.83213,
135 + .01210, .00551, 105.37099, 4.18159, 3.50567,
136 + 2.64255, 3.89538, 4.18878,
137 + .01236, .00565, 115.87395, 4.52945, 3.86237,
138 + 3.01051, 4.24582, 4.53662,
139 + .01270, .00583, 129.87444, 4.99759, 4.33970,
140 + 3.49774, 4.71717, 5.00474,
141 + .01302, .00599, 143.87996, 5.46773, 4.81942,
142 + 3.98883, 5.19025, 5.47486,
143 + .01332, .00615, 157.79774, 5.93618, 5.29823,
144 + 4.48083, 5.66139, 5.94329 /
145 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
146 + .01363, .00631, 172.19611, 6.42738, 5.79721,
147 + 4.98804, 6.15522, 6.43446,
148 + .01393, .00647, 187.01802, 6.93488, 6.31375,
149 + 5.51539, 6.66525, 6.94193,
150 + .01421, .00662, 201.65718, 7.43934, 6.82705,
151 + 6.03937, 7.17205, 7.44637,
152 + .01448, .00676, 215.84454, 7.93357, 7.32853,
153 + 6.54909, 7.66846, 7.94058,
154 + .01476, .00691, 230.75272, 8.45417, 7.85801,
155 + 7.08962, 8.19120, 8.46116,
156 + .01503, .00705, 245.67084, 8.98234, 8.39303,
157 + 7.63227, 8.72144, 8.98931,
158 + .01529, .00719, 260.49457, 9.50782, 8.92689,
159 + 8.17657, 9.24886, 9.51477,
160 + .01554, .00732, 274.66861, 10.01739, 9.44255,
161 + 8.69915, 9.76023, 10.02431 /
162 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
163 + .01579, .00746, 289.50922, 10.55217, 9.98483,
164 + 9.25068, 10.29681, 10.55908,
165 + .01604, .00759, 304.38379, 11.09397, 10.53323,
166 + 9.80694, 10.84035, 11.10085,
167 + .01628, .00772, 318.93460, 11.62733, 11.07314,
168 + 10.35474, 11.37536, 11.63420,
169 + .01651, .00784, 333.10693, 12.14939, 11.60198,
170 + 10.89205, 11.89896, 12.15624,
171 + .01674, .00797, 347.51544, 12.68688, 12.14501,
172 + 11.44159, 12.43798, 12.69371 /
173 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
174 + .00955, .00418, .96445, .64127, .00000,
175 + .00000, .34086, .64479,
176 + .00986, .00433, 1.98717, .67061, .00000,
177 + .00000, .37346, .67414,
178 + .01032, .00455, 3.84754, .72956, .03135,
179 + .00000, .43702, .73311,
180 + .01066, .00472, 5.48192, .78293, .10116,
181 + .00000, .49358, .78649,
182 + .01102, .00489, 7.51963, .85070, .17362,
183 + .00000, .56460, .85426,
184 + .01132, .00505, 9.53660, .91819, .24465,
185 + .00000, .63481, .92176,
186 + .01162, .00520, 11.74857, .99053, .32270,
187 + .00000, .70970, .99411,
188 + .01194, .00535, 14.40507, 1.07594, .41534,
189 + .00000, .79773, 1.07952 /
190 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
191 + .01221, .00549, 16.93248, 1.15825, .50159,
192 + .00000, .88226, 1.16183,
193 + .01248, .00563, 19.59515, 1.24454, .59196,
194 + .00000, .97066, 1.24812,
195 + .01269, .00574, 21.89241, 1.31768, .66978,
196 + .00000, 1.04543, 1.32127,
197 + .01315, .00597, 27.08695, 1.48906, .84862,
198 + .01497, 1.22018, 1.49264,
199 + .01354, .00617, 31.83747, 1.65200, 1.01718,
200 + .21279, 1.38592, 1.65558,
201 + .01398, .00640, 37.69025, 1.85253, 1.22461,
202 + .45356, 1.58950, 1.85612,
203 + .01444, .00664, 44.40569, 2.08139, 1.46074,
204 + .70088, 1.82142, 2.08497,
205 + .01487, .00686, 51.03779, 2.30710, 1.69321,
206 + .94433, 2.04984, 2.31068 /
207 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
208 + .01529, .00709, 58.26522, 2.55316, 1.94644,
209 + 1.20829, 2.29855, 2.55673,
210 + .01565, .00727, 64.63999, 2.77120, 2.16981,
211 + 1.43821, 2.51874, 2.77477,
212 + .01609, .00751, 72.81618, 3.05247, 2.45701,
213 + 1.73251, 2.80256, 3.05604,
214 + .01648, .00771, 80.50210, 3.31755, 2.72804,
215 + 2.01157, 3.06984, 3.32112,
216 + .01684, .00790, 87.92296, 3.57439, 2.99072,
217 + 2.28220, 3.32865, 3.57796,
218 + .01730, .00815, 97.71957, 3.91745, 3.33957,
219 + 2.63773, 3.67415, 3.92102,
220 + .01773, .00838, 107.42630, 4.25940, 3.68758,
221 + 2.99345, 4.01835, 4.26296,
222 + .01814, .00860, 116.98965, 4.59783, 4.03263,
223 + 3.34753, 4.35882, 4.60138 /
224 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
225 + .01855, .00882, 126.79259, 4.95015, 4.38961,
226 + 3.70975, 4.71316, 4.95371,
227 + .01896, .00904, 136.80528, 5.31191, 4.75691,
228 + 4.08415, 5.07685, 5.31546,
229 + .01934, .00925, 146.61942, 5.66933, 5.11973,
230 + 4.45395, 5.43605, 5.67288,
231 + .01971, .00945, 156.05798, 6.01741, 5.47206,
232 + 4.81146, 5.78579, 6.02096,
233 + .02008, .00965, 165.91473, 6.38221, 5.84227,
234 + 5.18882, 6.15221, 6.38575,
235 + .02045, .00985, 175.70300, 6.75013, 6.21409,
236 + 5.56528, 6.52172, 6.75367,
237 + .02080, .01004, 185.37604, 7.11451, 6.58351,
238 + 5.94137, 6.88758, 7.11805,
239 + .02113, .01022, 194.56026, 7.46596, 6.93836,
240 + 6.30035, 7.24041, 7.46950 /
241 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
242 + .02147, .01040, 204.12854, 7.83326, 7.31006,
243 + 6.67781, 7.60908, 7.83680,
244 + .02180, .01058, 213.65871, 8.20358, 7.68411,
245 + 7.05659, 7.98072, 8.20711,
246 + .02212, .01076, 222.93195, 8.56657, 8.05082,
247 + 7.42807, 8.34496, 8.57009,
248 + .02243, .01093, 231.92090, 8.92047, 8.40865,
249 + 7.79110, 8.70004, 8.92400,
250 + .02274, .01110, 241.00519, 9.28317, 8.77437,
251 + 8.16058, 9.06391, 9.28669 /
252 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
253 + .01138, .00502, .92745, .58161, .00000,
254 + .00000, .30917, .58364,
255 + .01176, .00521, 1.88940, .60949, .00000,
256 + .00000, .33987, .61152,
257 + .01232, .00549, 3.61688, .66431, .02879,
258 + .00000, .39865, .66635,
259 + .01273, .00570, 5.11606, .71327, .09268,
260 + .00000, .45037, .71532,
261 + .01316, .00592, 6.96641, .77479, .15833,
262 + .00000, .51469, .77684,
263 + .01354, .00611, 8.78158, .83555, .22227,
264 + .00000, .57779, .83761,
265 + .01390, .00629, 10.75766, .90032, .29213,
266 + .00000, .64475, .90238,
267 + .01428, .00649, 13.11384, .97639, .37460,
268 + .00000, .72308, .97845 /
269 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
270 + .01461, .00666, 15.33985, 1.04928, .45097,
271 + .00000, .79788, 1.05135,
272 + .01493, .00683, 17.67116, 1.12537, .53064,
273 + .00000, .87577, 1.12744,
274 + .01519, .00696, 19.67296, 1.18966, .59900,
275 + .00000, .94145, 1.19173,
276 + .01574, .00725, 24.16658, 1.33947, .75528,
277 + .01330, 1.09416, 1.34155,
278 + .01621, .00750, 28.23981, 1.48107, .90168,
279 + .18505, 1.23816, 1.48315,
280 + .01674, .00778, 33.22008, 1.65439, 1.08084,
281 + .39334, 1.41408, 1.65647,
282 + .01730, .00807, 38.88987, 1.85103, 1.28359,
283 + .60580, 1.61335, 1.85311,
284 + .01781, .00835, 44.44827, 2.04391, 1.48209,
285 + .81377, 1.80854, 2.04600 /
286 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
287 + .01832, .00862, 50.46480, 2.25310, 1.69721,
288 + 1.03808, 2.02000, 2.25520,
289 + .01875, .00885, 55.73894, 2.43762, 1.88607,
290 + 1.23251, 2.20635, 2.43972,
291 + .01928, .00913, 62.46288, 2.67455, 2.12779,
292 + 1.48020, 2.44545, 2.67665,
293 + .01974, .00939, 68.74696, 2.89685, 2.35488,
294 + 1.71405, 2.66963, 2.89896,
295 + .02017, .00962, 74.78327, 3.11139, 2.57412,
296 + 1.93993, 2.88585, 3.11350,
297 + .02072, .00991, 82.70570, 3.39666, 2.86394,
298 + 2.23527, 3.17320, 3.39878,
299 + .02124, .01020, 90.51047, 3.67974, 3.15180,
300 + 2.52948, 3.45819, 3.68186,
301 + .02173, .01046, 98.16057, 3.95877, 3.43608,
302 + 2.82119, 3.73897, 3.96090 /
303 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
304 + .02222, .01073, 105.95853, 4.24802, 3.72890,
305 + 3.11822, 4.02993, 4.25015,
306 + .02270, .01100, 113.88628, 4.54391, 4.02909,
307 + 3.42418, 4.32746, 4.54605,
308 + .02316, .01125, 121.62115, 4.83520, 4.32457,
309 + 3.72529, 4.62027, 4.83735,
310 + .02360, .01149, 129.02545, 5.11786, 4.61046,
311 + 4.01531, 4.90434, 5.12001,
312 + .02404, .01173, 136.72923, 5.41320, 4.90999,
313 + 4.32059, 5.20107, 5.41536,
314 + .02448, .01197, 144.34387, 5.71002, 5.20973,
315 + 4.62398, 5.49924, 5.71219,
316 + .02489, .01220, 151.84431, 6.00319, 5.50678,
317 + 4.92635, 5.79366, 6.00536,
318 + .02529, .01242, 158.93492, 6.28503, 5.79115,
319 + 5.21394, 6.07667, 6.28721 /
320 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
321 + .02569, .01264, 166.30008, 6.57886, 6.08833,
322 + 5.51567, 6.37168, 6.58105,
323 + .02609, .01286, 173.60782, 6.87423, 6.38649,
324 + 5.81753, 6.66817, 6.87642,
325 + .02647, .01307, 180.69582, 7.16302, 6.67807,
326 + 6.11283, 6.95803, 7.16522,
327 + .02683, .01327, 187.54669, 7.44392, 6.96195,
328 + 6.40078, 7.23993, 7.44613,
329 + .02720, .01347, 194.44452, 7.73101, 7.25127,
330 + 6.69297, 7.52802, 7.73323 /
331 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
332 + .01289, .00572, .90263, .54263, .00000,
333 + .00000, .28853, .54385,
334 + .01333, .00594, 1.82361, .56948, .00000,
335 + .00000, .31793, .57070,
336 + .01397, .00627, 3.46229, .62151, .02710,
337 + .00000, .37353, .62273,
338 + .01444, .00651, 4.87192, .66756, .08708,
339 + .00000, .42206, .66879,
340 + .01494, .00677, 6.59911, .72497, .14828,
341 + .00000, .48200, .72621,
342 + .01536, .00699, 8.28257, .78136, .20760,
343 + .00000, .54049, .78260,
344 + .01578, .00721, 10.10556, .84122, .27216,
345 + .00000, .60231, .84246,
346 + .01621, .00744, 12.26799, .91126, .34808,
347 + .00000, .67438, .91251 /
348 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
349 + .01659, .00764, 14.30063, .97809, .41811,
350 + .00000, .74293, .97935,
351 + .01696, .00783, 16.42037, 1.04764, .49093,
352 + .00000, .81410, 1.04890,
353 + .01726, .00799, 18.23427, 1.10626, .55325,
354 + .00000, .87398, 1.10752,
355 + .01788, .00832, 22.28473, 1.24235, .69520,
356 + .01222, 1.01266, 1.24362,
357 + .01842, .00861, 25.93277, 1.37042, .82760,
358 + .16754, 1.14288, 1.37170,
359 + .01903, .00894, 30.36872, 1.52656, .98897,
360 + .35543, 1.30135, 1.52784,
361 + .01966, .00928, 35.39041, 1.70295, 1.17081,
362 + .54611, 1.48010, 1.70425,
363 + .02024, .00959, 40.28738, 1.87530, 1.34813,
364 + .73203, 1.65451, 1.87660 /
365 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
366 + .02083, .00991, 45.56216, 2.06153, 1.53960,
367 + .93178, 1.84278, 2.06285,
368 + .02132, .01018, 50.16556, 2.22524, 1.70712,
369 + 1.10432, 2.00813, 2.22657,
370 + .02192, .01050, 56.00888, 2.43476, 1.92082,
371 + 1.32339, 2.21959, 2.43610,
372 + .02245, .01079, 61.44703, 2.63072, 2.12094,
373 + 1.52955, 2.41722, 2.63206,
374 + .02293, .01106, 66.65147, 2.81929, 2.31360,
375 + 1.72813, 2.60729, 2.82065,
376 + .02356, .01140, 73.45324, 3.06922, 2.56744,
377 + 1.98687, 2.85908, 3.07059,
378 + .02415, .01172, 80.12617, 3.31644, 2.81876,
379 + 2.24382, 3.10800, 3.31781,
380 + .02470, .01203, 86.64272, 3.55941, 3.06626,
381 + 2.49788, 3.35254, 3.56080 /
382 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
383 + .02526, .01233, 93.25818, 3.81050, 3.32037,
384 + 2.75570, 3.60515, 3.81190,
385 + .02580, .01264, 99.96101, 4.06667, 3.58021,
386 + 3.02059, 3.86279, 4.06808,
387 + .02633, .01293, 106.47905, 4.31820, 3.83531,
388 + 3.28063, 4.11567, 4.31963,
389 + .02682, .01320, 112.69733, 4.56164, 4.08148,
390 + 3.53040, 4.36037, 4.56308,
391 + .02732, .01347, 119.14987, 4.81546, 4.33885,
392 + 3.79279, 4.61544, 4.81691,
393 + .02781, .01375, 125.50588, 5.06989, 4.59574,
394 + 4.05283, 4.87107, 5.07136,
395 + .02828, .01401, 131.75200, 5.32071, 4.84984,
396 + 4.31156, 5.12301, 5.32219,
397 + .02873, .01426, 137.63797, 5.56126, 5.09251,
398 + 4.55701, 5.36461, 5.56275 /
399 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
400 + .02918, .01451, 143.73883, 5.81161, 5.34568,
401 + 4.81412, 5.61600, 5.81312,
402 + .02963, .01476, 149.77502, 6.06273, 5.59914,
403 + 5.07076, 5.86812, 6.06425,
404 + .03006, .01500, 155.61607, 6.30781, 5.84656,
405 + 5.32138, 6.11415, 6.30934,
406 + .03047, .01523, 161.24983, 6.54579, 6.08705,
407 + 5.56538, 6.35303, 6.54733,
408 + .03088, .01546, 166.90662, 6.78853, 6.33163,
409 + 5.81242, 6.59666, 6.79008 /
410 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
411 + .01420, .00633, .88427, .51418, .00000,
412 + .00000, .27351, .51490,
413 + .01469, .00658, 1.77467, .54024, .00000,
414 + .00000, .30192, .54096,
415 + .01540, .00695, 3.34742, .59018, .02586,
416 + .00000, .35517, .59091,
417 + .01593, .00723, 4.69101, .63408, .08296,
418 + .00000, .40135, .63481,
419 + .01648, .00752, 6.32788, .68850, .14091,
420 + .00000, .45810, .68924,
421 + .01695, .00777, 7.91522, .74169, .19687,
422 + .00000, .51323, .74243,
423 + .01741, .00801, 9.62699, .79798, .25758,
424 + .00000, .57134, .79874,
425 + .01790, .00827, 11.64925, .86366, .32876,
426 + .00000, .63888, .86442 /
427 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
428 + .01832, .00850, 13.54257, .92612, .39421,
429 + .00000, .70292, .92689,
430 + .01873, .00872, 15.51044, .99096, .46211,
431 + .00000, .76925, .99173,
432 + .01905, .00889, 17.18985, 1.04551, .52011,
433 + .00000, .82496, 1.04629,
434 + .01975, .00927, 20.92450, 1.17176, .65180,
435 + .01144, .95360, 1.17255,
436 + .02034, .00959, 24.27109, 1.29018, .77422,
437 + .15508, 1.07399, 1.29098,
438 + .02102, .00995, 28.32294, 1.43408, .92296,
439 + .32849, 1.22004, 1.43489,
440 + .02172, .01034, 32.88950, 1.59612, 1.09001,
441 + .50379, 1.38424, 1.59695,
442 + .02236, .01069, 37.32410, 1.75395, 1.25239,
443 + .67416, 1.54396, 1.75479 /
444 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
445 + .02301, .01104, 42.08253, 1.92401, 1.42722,
446 + .85668, 1.71588, 1.92486,
447 + .02355, .01134, 46.22077, 2.07310, 1.57978,
448 + 1.01390, 1.86648, 2.07397,
449 + .02421, .01170, 51.45560, 2.26341, 1.77388,
450 + 1.21299, 2.05857, 2.26429,
451 + .02479, .01202, 56.31138, 2.44095, 1.95520,
452 + 1.39988, 2.23765, 2.44185,
453 + .02533, .01232, 60.94501, 2.61143, 2.12936,
454 + 1.57950, 2.40951, 2.61234,
455 + .02602, .01270, 66.98047, 2.83679, 2.35825,
456 + 1.81290, 2.63657, 2.83772,
457 + .02667, .01306, 72.88228, 3.05914, 2.58429,
458 + 2.04412, 2.86049, 3.06009,
459 + .02728, .01340, 78.62894, 3.27718, 2.80640,
460 + 2.27222, 3.07996, 3.27815 /
461 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
462 + .02789, .01374, 84.44400, 3.50195, 3.03387,
463 + 2.50310, 3.30613, 3.50293,
464 + .02850, .01408, 90.32017, 3.73079, 3.26599,
465 + 2.73984, 3.53631, 3.73179,
466 + .02907, .01440, 96.01937, 3.95502, 3.49341,
467 + 2.97177, 3.76179, 3.95604,
468 + .02961, .01470, 101.44176, 4.17160, 3.71242,
469 + 3.19406, 3.97952, 4.17264,
470 + .03016, .01501, 107.05673, 4.39704, 3.94103,
471 + 3.42723, 4.20609, 4.39809,
472 + .03070, .01531, 112.57251, 4.62255, 4.16872,
473 + 3.65779, 4.43271, 4.62363,
474 + .03122, .01560, 117.98296, 4.84453, 4.39364,
475 + 3.88689, 4.65572, 4.84562,
476 + .03171, .01587, 123.06846, 5.05702, 4.60801,
477 + 4.10378, 4.86917, 5.05813 /
478 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
479 + .03221, .01615, 128.33081, 5.27787, 4.83136,
480 + 4.33070, 5.09097, 5.27900,
481 + .03270, .01643, 133.52554, 5.49902, 5.05458,
482 + 4.55681, 5.31304, 5.50016,
483 + .03317, .01669, 138.54323, 5.71453, 5.27218,
484 + 4.77729, 5.52943, 5.71569,
485 + .03362, .01694, 143.37474, 5.92354, 5.48341,
486 + 4.99169, 5.73925, 5.92472,
487 + .03408, .01720, 148.21529, 6.13638, 5.69788,
488 + 5.20839, 5.95291, 6.13757 /
489 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
490 + .01921, .00870, .83298, .43500, .00000,
491 + .00000, .23193, .43483,
492 + .01989, .00907, 1.63467, .45862, .00000,
493 + .00000, .25740, .45846,
494 + .02088, .00962, 3.01798, .50249, .02231,
495 + .00000, .30387, .50235,
496 + .02161, .01002, 4.17381, .54026, .07130,
497 + .00000, .34345, .54014,
498 + .02237, .01044, 5.55641, .58625, .12014,
499 + .00000, .39127, .58615,
500 + .02303, .01080, 6.87559, .63057, .16675,
501 + .00000, .43710, .63048,
502 + .02366, .01115, 8.27941, .67700, .21684,
503 + .00000, .48495, .67693,
504 + .02434, .01153, 9.91649, .73066, .27499,
505 + .00000, .54007, .73061 /
506 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
507 + .02492, .01185, 11.42979, .78116, .32795,
508 + .00000, .59181, .78113,
509 + .02548, .01217, 12.98595, .83317, .38245,
510 + .00000, .64497, .83315,
511 + .02593, .01242, 14.30268, .87666, .42873,
512 + .00000, .68938, .87667,
513 + .02689, .01295, 17.19216, .97634, .53280,
514 + .00932, .79092, .97638,
515 + .02771, .01341, 19.73948, 1.06882, .62851,
516 + .12176, .88493, 1.06888,
517 + .02863, .01393, 22.78123, 1.18008, .74363,
518 + .25667, .99786, 1.18017,
519 + .02960, .01448, 26.16103, 1.30404, .87155,
520 + .39138, 1.12350, 1.30417,
521 + .03047, .01497, 29.39954, 1.42357, .99466,
522 + .52100, 1.24450, 1.42373 /
523 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
524 + .03136, .01547, 32.83208, 1.55119, 1.12601,
525 + .65857, 1.37357, 1.55139,
526 + .03210, .01589, 35.78378, 1.66212, 1.23964,
527 + .77603, 1.48567, 1.66235,
528 + .03299, .01640, 39.47672, 1.80255, 1.38302,
529 + .92352, 1.62748, 1.80281,
530 + .03379, .01685, 42.86607, 1.93250, 1.51588,
531 + 1.06089, 1.75862, 1.93280,
532 + .03452, .01727, 46.07030, 2.05640, 1.64261,
533 + 1.19198, 1.88359, 2.05673,
534 + .03545, .01779, 50.19884, 2.21884, 1.80777,
535 + 1.36086, 2.04735, 2.21922,
536 + .03633, .01829, 54.19373, 2.37783, 1.96958,
537 + 1.52683, 2.20755, 2.37824,
538 + .03716, .01876, 58.04728, 2.53261, 2.12745,
539 + 1.68944, 2.36344, 2.53307 /
540 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
541 + .03799, .01923, 61.90579, 2.69092, 2.28782,
542 + 1.85262, 2.52283, 2.69141,
543 + .03880, .01970, 65.77158, 2.85102, 2.45041,
544 + 2.01889, 2.68397, 2.85155,
545 + .03957, .02014, 69.48920, 3.00688, 2.60869,
546 + 2.18073, 2.84079, 3.00744,
547 + .04030, .02055, 72.99514, 3.15643, 2.76008,
548 + 2.33477, 2.99123, 3.15703,
549 + .04104, .02097, 76.60133, 3.31126, 2.91731,
550 + 2.49556, 3.14695, 3.31190,
551 + .04176, .02139, 80.11189, 3.46514, 3.07284,
552 + 2.65343, 3.30167, 3.46581,
553 + .04246, .02178, 83.53541, 3.61588, 3.22578,
554 + 2.80963, 3.45321, 3.61658,
555 + .04311, .02216, 86.72609, 3.75930, 3.37063,
556 + 2.95653, 3.59737, 3.76004 /
557 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
558 + .04378, .02253, 90.01013, 3.90771, 3.52094,
559 + 3.10962, 3.74653, 3.90849,
560 + .04443, .02291, 93.22777, 4.05553, 3.67032,
561 + 3.26129, 3.89506, 4.05633,
562 + .04506, .02327, 96.31707, 4.19891, 3.81527,
563 + 3.40853, 4.03912, 4.19975,
564 + .04566, .02361, 99.27585, 4.33738, 3.95541,
565 + 3.55112, 4.17822, 4.33825,
566 + .04627, .02396, 102.21818, 4.47766, 4.09694,
567 + 3.69444, 4.31913, 4.47856 /
568 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
569 + .02606, .01206, .79322, .36842, .00000,
570 + .00000, .19725, .36821,
571 + .02700, .01260, 1.51510, .38965, .00000,
572 + .00000, .21998, .38948,
573 + .02839, .01340, 2.72960, .42801, .01920,
574 + .00000, .26043, .42790,
575 + .02939, .01397, 3.72079, .46039, .06110,
576 + .00000, .29425, .46032,
577 + .03045, .01459, 4.88364, .49911, .10213,
578 + .00000, .33444, .49909,
579 + .03136, .01511, 5.97426, .53588, .14082,
580 + .00000, .37243, .53589,
581 + .03224, .01562, 7.11866, .57401, .18197,
582 + .00000, .41169, .57406,
583 + .03317, .01616, 8.43505, .61763, .22927,
584 + .00000, .45649, .61773 /
585 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
586 + .03398, .01662, 9.63560, .65824, .27192,
587 + .00000, .49809, .65838,
588 + .03475, .01707, 10.85630, .69970, .31545,
589 + .00000, .54048, .69988,
590 + .03537, .01743, 11.87989, .73417, .35218,
591 + .00000, .57568, .73438,
592 + .03669, .01820, 14.09455, .81233, .43395,
593 + .00756, .65533, .81260,
594 + .03781, .01885, 16.01305, .88401, .50830,
595 + .09515, .72825, .88434,
596 + .03908, .01958, 18.27048, .96933, .59680,
597 + .19959, .81491, .96973,
598 + .04039, .02035, 20.74124, 1.06333, .69406,
599 + .30254, .91025, 1.06380,
600 + .04159, .02105, 23.07525, 1.15302, .78668,
601 + .40058, 1.00113, 1.15355 /
602 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
603 + .04280, .02175, 25.51692, 1.24785, .88455,
604 + .50363, 1.09712, 1.24845,
605 + .04381, .02233, 27.59140, 1.32955, .96847,
606 + .59080, 1.17975, 1.33020,
607 + .04502, .02304, 30.15633, 1.43205, 1.07341,
608 + .69931, 1.28336, 1.43277,
609 + .04610, .02367, 32.48389, 1.52610, 1.16986,
610 + .79953, 1.37837, 1.52689,
611 + .04710, .02425, 34.66246, 1.61511, 1.26116,
612 + .89446, 1.46824, 1.61595,
613 + .04836, .02498, 37.43662, 1.73078, 1.37911,
614 + 1.01565, 1.58498, 1.73170,
615 + .04954, .02567, 40.09083, 1.84304, 1.49369,
616 + 1.13377, 1.69821, 1.84403,
617 + .05066, .02632, 42.62560, 1.95150, 1.60465,
618 + 1.24864, 1.80757, 1.95256 /
619 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
620 + .05177, .02696, 45.13422, 2.06150, 1.71640,
621 + 1.36287, 1.91843, 2.06262,
622 + .05286, .02760, 47.62458, 2.17197, 1.82892,
623 + 1.47851, 2.02974, 2.17315,
624 + .05390, .02820, 49.99756, 2.27877, 1.93771,
625 + 1.59029, 2.13732, 2.28002,
626 + .05487, .02876, 52.21356, 2.38053, 2.04102,
627 + 1.69590, 2.23980, 2.38184,
628 + .05586, .02934, 54.47674, 2.48530, 2.14774,
629 + 1.80558, 2.34528, 2.48667,
630 + .05682, .02990, 56.65751, 2.58868, 2.25253,
631 + 1.91243, 2.44935, 2.59011,
632 + .05775, .03043, 58.77127, 2.68946, 2.35510,
633 + 2.01770, 2.55078, 2.69095,
634 + .05862, .03094, 60.72215, 2.78472, 2.45158,
635 + 2.11599, 2.64663, 2.78626 /
636 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
637 + .05950, .03145, 62.71881, 2.88284, 2.55126,
638 + 2.21800, 2.74536, 2.88444,
639 + .06037, .03195, 64.65852, 2.98000, 2.64974,
640 + 2.31845, 2.84309, 2.98165,
641 + .06121, .03244, 66.50854, 3.07378, 2.74483,
642 + 2.41550, 2.93743, 3.07549,
643 + .06200, .03290, 68.27002, 3.16395, 2.83638,
644 + 2.50910, 3.02812, 3.16571,
645 + .06280, .03336, 70.00653, 3.25478, 2.92828,
646 + 2.60258, 3.11946, 3.25659 /
647 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
648 + .03122, .01469, .77781, .33484, .00000,
649 + .00000, .17986, .33491,
650 + .03236, .01537, 1.45674, .35471, .00000,
651 + .00000, .20106, .35485,
652 + .03404, .01636, 2.58065, .39007, .01755,
653 + .00000, .23828, .39029,
654 + .03526, .01708, 3.48448, .41957, .05570,
655 + .00000, .26907, .41986,
656 + .03655, .01784, 4.53209, .45449, .09266,
657 + .00000, .30529, .45484,
658 + .03765, .01849, 5.50416, .48734, .12724,
659 + .00000, .33924, .48776,
660 + .03871, .01911, 6.51527, .52121, .16381,
661 + .00000, .37411, .52168,
662 + .03983, .01978, 7.66847, .55971, .20559,
663 + .00000, .41367, .56025 /
664 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
665 + .04081, .02035, 8.71138, .59532, .24302,
666 + .00000, .45016, .59591,
667 + .04174, .02091, 9.76436, .63147, .28105,
668 + .00000, .48715, .63213,
669 + .04249, .02135, 10.64239, .66142, .31300,
670 + .00000, .51775, .66212,
671 + .04407, .02228, 12.52534, .72889, .38370,
672 + .00667, .58655, .72968,
673 + .04543, .02308, 14.13853, .79032, .44755,
674 + .08205, .64909, .79119,
675 + .04695, .02398, 16.01934, .86297, .52305,
676 + .17160, .72294, .86393,
677 + .04853, .02491, 18.05855, .94244, .60546,
678 + .25917, .80362, .94350,
679 + .04996, .02576, 19.96779, 1.01778, .68345,
680 + .34205, .88002, 1.01893 /
681 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
682 + .05141, .02661, 21.94876, 1.09695, .76535,
683 + .42863, .96025, 1.09820,
684 + .05261, .02732, 23.61908, 1.16478, .83519,
685 + .50147, 1.02892, 1.16610,
686 + .05406, .02818, 25.66895, 1.24941, .92206,
687 + .59163, 1.11455, 1.25083,
688 + .05535, .02894, 27.51590, 1.32667, 1.00147,
689 + .67449, 1.19267, 1.32817,
690 + .05654, .02963, 29.23378, 1.39944, 1.07631,
691 + .75261, 1.26622, 1.40101,
692 + .05803, .03051, 31.40490, 1.49350, 1.17246,
693 + .85179, 1.36123, 1.49517,
694 + .05944, .03134, 33.46731, 1.58429, 1.26538,
695 + .94796, 1.45291, 1.58606,
696 + .06077, .03212, 35.42449, 1.67161, 1.35494,
697 + 1.04106, 1.54105, 1.67347 /
698 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
699 + .06209, .03289, 37.34687, 1.75969, 1.44466,
700 + 1.13312, 1.62992, 1.76164,
701 + .06338, .03365, 39.24416, 1.84778, 1.53461,
702 + 1.22593, 1.71876, 1.84981,
703 + .06460, .03437, 41.04135, 1.93257, 1.62120,
704 + 1.31526, 1.80426, 1.93468,
705 + .06576, .03504, 42.70897, 2.01300, 1.70307,
706 + 1.39928, 1.88534, 2.01519,
707 + .06692, .03572, 44.40444, 2.09553, 1.78736,
708 + 1.48626, 1.96852, 2.09780,
709 + .06806, .03639, 46.02707, 2.17659, 1.86974,
710 + 1.57059, 2.05021, 2.17894,
711 + .06915, .03703, 47.59388, 2.25538, 1.95015,
712 + 1.65345, 2.12959, 2.25780,
713 + .07018, .03762, 49.03047, 2.32954, 2.02545,
714 + 1.73045, 2.20429, 2.33203 /
715 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
716 + .07121, .03823, 50.49562, 2.40572, 2.10305,
717 + 1.81018, 2.28102, 2.40828,
718 + .07224, .03883, 51.91086, 2.48086, 2.17942,
719 + 1.88839, 2.35670, 2.48349,
720 + .07322, .03940, 53.25482, 2.55318, 2.25294,
721 + 1.96372, 2.42952, 2.55588,
722 + .07415, .03994, 54.52958, 2.62252, 2.32353,
723 + 2.03618, 2.49933, 2.62528,
724 + .07509, .04048, 55.77871, 2.69211, 2.39413,
725 + 2.10827, 2.56939, 2.69494 /
726 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
727 + .03554, .01699, .77192, .31336, .00000,
728 + .00000, .16874, .31371,
729 + .03686, .01778, 1.42183, .33228, .00000,
730 + .00000, .18890, .33272,
731 + .03879, .01893, 2.48450, .36559, .01644,
732 + .00000, .22392, .36614,
733 + .04019, .01977, 3.32970, .39315, .05208,
734 + .00000, .25268, .39379,
735 + .04166, .02065, 4.30049, .42553, .08632,
736 + .00000, .28627, .42626,
737 + .04292, .02141, 5.19411, .45580, .11821,
738 + .00000, .31755, .45661,
739 + .04413, .02213, 6.11753, .48686, .15176,
740 + .00000, .34955, .48774,
741 + .04542, .02290, 7.16402, .52201, .18993,
742 + .00000, .38568, .52298 /
743 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
744 + .04653, .02357, 8.10452, .55436, .22397,
745 + .00000, .41885, .55539,
746 + .04760, .02421, 9.04912, .58707, .25842,
747 + .00000, .45234, .58818,
748 + .04845, .02472, 9.83348, .61410, .28729,
749 + .00000, .47997, .61526,
750 + .05026, .02580, 11.50439, .67469, .35088,
751 + .00608, .54181, .67597,
752 + .05180, .02672, 12.92400, .72957, .40801,
753 + .07366, .59772, .73095,
754 + .05353, .02775, 14.56771, .79414, .47525,
755 + .15372, .66342, .79564,
756 + .05533, .02882, 16.33730, .86443, .54826,
757 + .23156, .73484, .86604,
758 + .05696, .02979, 17.98302, .93073, .61702,
759 + .30487, .80214, .93246 /
760 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
761 + .05860, .03077, 19.68003, 1.00009, .68893,
762 + .38113, .87248, 1.00194,
763 + .05996, .03157, 21.10275, 1.05927, .74999,
764 + .44502, .93246, 1.06121,
765 + .06161, .03255, 22.83891, 1.13281, .82563,
766 + .52378, 1.00693, 1.13486,
767 + .06307, .03342, 24.39481, 1.19968, .89451,
768 + .59589, 1.07461, 1.20183,
769 + .06440, .03421, 25.83510, 1.26244, .95920,
770 + .66365, 1.13811, 1.26469,
771 + .06610, .03521, 27.64496, 1.34324, 1.04197,
772 + .74930, 1.21981, 1.34560,
773 + .06769, .03615, 29.35489, 1.42093, 1.12165,
774 + .83205, 1.29833, 1.42340,
775 + .06918, .03703, 30.96976, 1.49538, 1.19820,
776 + .91188, 1.37355, 1.49796 /
777 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
778 + .07066, .03791, 32.54670, 1.57018, 1.27455,
779 + .99050, 1.44910, 1.57287,
780 + .07212, .03876, 34.09615, 1.64474, 1.35088,
781 + 1.06951, 1.52438, 1.64753,
782 + .07350, .03958, 35.55722, 1.71629, 1.42412,
783 + 1.14532, 1.59660, 1.71918,
784 + .07479, .04034, 36.90619, 1.78393, 1.49312,
785 + 1.21638, 1.66485, 1.78691,
786 + .07610, .04110, 38.27304, 1.85316, 1.56400,
787 + 1.28976, 1.73470, 1.85623,
788 + .07738, .04185, 39.57412, 1.92092, 1.63302,
789 + 1.36065, 1.80306, 1.92409,
790 + .07860, .04257, 40.82690, 1.98665, 1.70025,
791 + 1.43018, 1.86934, 1.98990,
792 + .07975, .04324, 41.96955, 2.04830, 1.76301,
793 + 1.49456, 1.93152, 2.05164 /
794 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
795 + .08091, .04392, 43.13181, 2.11151, 1.82755,
796 + 1.56111, 1.99525, 2.11493,
797 + .08205, .04459, 44.24937, 2.17368, 1.89088,
798 + 1.62619, 2.05793, 2.17719,
799 + .08315, .04522, 45.30705, 2.23338, 1.95173,
800 + 1.68874, 2.11810, 2.23697,
801 + .08419, .04583, 46.30732, 2.29050, 2.01002,
802 + 1.74879, 2.17568, 2.29417,
803 + .08523, .04644, 47.28269, 2.34767, 2.06815,
804 + 1.80835, 2.23329, 2.35141 /
805 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
806 + .03938, .01917, .77399, .29865, .00000,
807 + .00000, .16093, .29905,
808 + .04085, .02006, 1.40171, .31684, .00000,
809 + .00000, .18027, .31734,
810 + .04300, .02136, 2.41774, .34857, .01559,
811 + .00000, .21360, .34920,
812 + .04456, .02230, 3.21851, .37466, .04931,
813 + .00000, .24080, .37539,
814 + .04620, .02329, 4.13125, .40510, .08151,
815 + .00000, .27237, .40595,
816 + .04760, .02414, 4.96582, .43343, .11135,
817 + .00000, .30164, .43437,
818 + .04895, .02495, 5.82348, .46238, .14266,
819 + .00000, .33146, .46341,
820 + .05038, .02581, 6.79026, .49503, .17813,
821 + .00000, .36502, .49615 /
822 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
823 + .05161, .02656, 7.65460, .52495, .20964,
824 + .00000, .39571, .52616,
825 + .05280, .02727, 8.51889, .55512, .24145,
826 + .00000, .42661, .55641,
827 + .05375, .02784, 9.23405, .57998, .26803,
828 + .00000, .45203, .58134,
829 + .05575, .02904, 10.74902, .63551, .32638,
830 + .00565, .50873, .63701,
831 + .05745, .03007, 12.02719, .68559, .37858,
832 + .06749, .55977, .68721,
833 + .05936, .03121, 13.49853, .74428, .43978,
834 + .14058, .61951, .74604,
835 + .06135, .03240, 15.07310, .80789, .50595,
836 + .21131, .68418, .80978,
837 + .06314, .03348, 16.52924, .86765, .56803,
838 + .27767, .74487, .86968 /
839 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
840 + .06496, .03456, 18.02306, .92995, .63271,
841 + .34644, .80809, .93210,
842 + .06645, .03545, 19.26929, .98291, .68745,
843 + .40385, .86180, .98518,
844 + .06827, .03653, 20.78308, 1.04851, .75502,
845 + .47441, .92827, 1.05090,
846 + .06987, .03748, 22.13351, 1.10796, .81637,
847 + .53880, .98849, 1.11047,
848 + .07134, .03836, 23.37846, 1.16360, .87382,
849 + .59913, 1.04482, 1.16622,
850 + .07320, .03946, 24.93521, 1.23499, .94708,
851 + .67514, 1.11705, 1.23774,
852 + .07494, .04049, 26.39930, 1.30340, 1.01738,
853 + .74834, 1.18625, 1.30629,
854 + .07657, .04145, 27.77646, 1.36877, 1.08472,
855 + .81877, 1.25235, 1.37178 /
856 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
857 + .07820, .04241, 29.11435, 1.43424, 1.15166,
858 + .88788, 1.31852, 1.43736,
859 + .07979, .04335, 30.42395, 1.49932, 1.21840,
860 + .95716, 1.38427, 1.50256,
861 + .08130, .04423, 31.65404, 1.56160, 1.28228,
862 + 1.02346, 1.44719, 1.56495,
863 + .08271, .04506, 32.78495, 1.62031, 1.34229,
864 + 1.08543, 1.50649, 1.62377,
865 + .08413, .04590, 33.92763, 1.68028, 1.40381,
866 + 1.14930, 1.56704, 1.68384,
867 + .08553, .04671, 35.01021, 1.73881, 1.46355,
868 + 1.21082, 1.62613, 1.74248,
869 + .08686, .04749, 36.05012, 1.79548, 1.52163,
870 + 1.27106, 1.68334, 1.79925,
871 + .08811, .04822, 36.99419, 1.84849, 1.57569,
872 + 1.32668, 1.73683, 1.85235 /
873 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
874 + .08937, .04896, 37.95228, 1.90274, 1.63121,
875 + 1.38408, 1.79158, 1.90669,
876 + .09061, .04968, 38.86977, 1.95598, 1.68556,
877 + 1.44009, 1.84530, 1.96002,
878 + .09180, .05037, 39.73549, 2.00700, 1.73767,
879 + 1.49381, 1.89678, 2.01114,
880 + .09293, .05103, 40.55217, 2.05574, 1.78751,
881 + 1.54531, 1.94594, 2.05996,
882 + .09406, .05169, 41.34513, 2.10439, 1.83710,
883 + 1.59626, 1.99502, 2.10870 /
884 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
885 + .05451, .02824, .80103, .25856, .00000,
886 + .00000, .13986, .25958,
887 + .05658, .02953, 1.36307, .27455, .00000,
888 + .00000, .15679, .27573,
889 + .05961, .03141, 2.24127, .30164, .01314,
890 + .00000, .18521, .30305,
891 + .06179, .03276, 2.91248, .32344, .04138,
892 + .00000, .20794, .32502,
893 + .06407, .03417, 3.65837, .34838, .06778,
894 + .00000, .23382, .35013,
895 + .06603, .03537, 4.32538, .37120, .09190,
896 + .00000, .25743, .37311,
897 + .06789, .03651, 4.99826, .39423, .11691,
898 + .00000, .28120, .39629,
899 + .06987, .03772, 5.74333, .41989, .14491,
900 + .00000, .30763, .42210 /
901 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
902 + .07157, .03876, 6.39792, .44311, .16948,
903 + .00000, .33149, .44545,
904 + .07321, .03976, 7.04290, .46627, .19403,
905 + .00000, .35526, .46875,
906 + .07451, .04055, 7.57037, .48521, .21440,
907 + .00000, .37468, .48779,
908 + .07725, .04221, 8.66676, .52698, .25855,
909 + .00444, .41744, .52978,
910 + .07958, .04362, 9.56964, .56412, .29750,
911 + .05089, .45540, .56710,
912 + .08217, .04519, 10.58876, .60706, .34257,
913 + .10537, .49924, .61025,
914 + .08486, .04680, 11.65766, .65294, .39064,
915 + .15726, .54602, .65634,
916 + .08728, .04826, 12.62737, .69547, .43515,
917 + .20533, .58936, .69906 /
918 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
919 + .08971, .04971, 13.60465, .73926, .48097,
920 + .25455, .63395, .74305,
921 + .09172, .05091, 14.40650, .77607, .51930,
922 + .29518, .67140, .78002,
923 + .09414, .05235, 15.36458, .82113, .56610,
924 + .34456, .71723, .82528,
925 + .09628, .05362, 16.20598, .86153, .60814,
926 + .38916, .75830, .86585,
927 + .09822, .05477, 16.97092, .89898, .64714,
928 + .43057, .79635, .90346,
929 + .10068, .05622, 17.91101, .94649, .69630,
930 + .48213, .84460, .95116,
931 + .10297, .05757, 18.78100, .99151, .74297,
932 + .53127, .89031, .99637,
933 + .10512, .05883, 19.58781, 1.03412, .78726,
934 + .57813, .93356, 1.03915 /
935 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
936 + .10725, .06007, 20.35734, 1.07630, .83078,
937 + .62356, .97636, 1.08150,
938 + .10932, .06128, 21.10062, 1.11785, .87379,
939 + .66874, 1.01852, 1.12322,
940 + .11128, .06242, 21.78913, 1.15727, .91459,
941 + .71159, 1.05849, 1.16279,
942 + .11311, .06349, 22.41208, 1.19406, .95256,
943 + .75126, 1.09581, 1.19973,
944 + .11495, .06455, 23.03520, 1.23138, .99122,
945 + .79189, 1.13365, 1.23720,
946 + .11674, .06559, 23.61502, 1.26744, 1.02838,
947 + .83062, 1.17021, 1.27340,
948 + .11845, .06658, 24.16743, 1.30214, 1.06432,
949 + .86834, 1.20540, 1.30824,
950 + .12005, .06750, 24.65989, 1.33429, 1.09743,
951 + .90284, 1.23798, 1.34052 /
952 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
953 + .12167, .06843, 25.15577, 1.36701, 1.13127,
954 + .93826, 1.27115, 1.37337,
955 + .12326, .06934, 25.62320, 1.39885, 1.16411,
956 + .97254, 1.30343, 1.40533,
957 + .12476, .07020, 26.05936, 1.42916, 1.19540,
958 + 1.00521, 1.33415, 1.43577,
959 + .12620, .07102, 26.46692, 1.45795, 1.22517,
960 + 1.03637, 1.36333, 1.46468,
961 + .12763, .07184, 26.85555, 1.48645, 1.25452,
962 + 1.06692, 1.39221, 1.49328 /
963 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
964 + .07677, .04280, .88393, .22764, .00000,
965 + .00000, .12346, .22983,
966 + .07970, .04463, 1.38069, .24149, .00000,
967 + .00000, .13813, .24394,
968 + .08396, .04727, 2.12450, .26420, .01093,
969 + .00000, .16199, .26702,
970 + .08701, .04915, 2.67333, .28205, .03424,
971 + .00000, .18065, .28514,
972 + .09018, .05110, 3.26641, .30203, .05552,
973 + .00000, .20146, .30540,
974 + .09289, .05275, 3.78350, .31998, .07467,
975 + .00000, .22010, .32359,
976 + .09546, .05432, 4.29404, .33784, .09425,
977 + .00000, .23862, .34168,
978 + .09818, .05597, 4.84782, .35747, .11587,
979 + .00000, .25893, .36155 /
980 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
981 + .10051, .05738, 5.32472, .37496, .13459,
982 + .00000, .27700, .37925,
983 + .10275, .05872, 5.78662, .39222, .15308,
984 + .00000, .29480, .39670,
985 + .10451, .05979, 6.15925, .40620, .16828,
986 + .00000, .30922, .41084,
987 + .10822, .06200, 6.91648, .43659, .20079,
988 + .00342, .34050, .44155,
989 + .11135, .06387, 7.52167, .46316, .22902,
990 + .03740, .36782, .46840,
991 + .11483, .06593, 8.18891, .49342, .26119,
992 + .07693, .39889, .49896,
993 + .11841, .06804, 8.87208, .52521, .29496,
994 + .11391, .43152, .53107,
995 + .12162, .06993, 9.47752, .55423, .32577,
996 + .14768, .46129, .56037 /
997 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
998 + .12483, .07180, 10.07453, .58368, .35704,
999 + .18178, .49147, .59010,
1000 + .12746, .07334, 10.55434, .60810, .38286,
1001 + .20956, .51650, .61475,
1002 + .13062, .07517, 11.11573, .63761, .41397,
1003 + .24291, .54672, .64453,
1004 + .13339, .07677, 11.59918, .66373, .44158,
1005 + .27268, .57346, .67088,
1006 + .13591, .07822, 12.03111, .68766, .46692,
1007 + .30003, .59796, .69503,
1008 + .13907, .08003, 12.54985, .71760, .49842,
1009 + .33363, .62860, .72524,
1010 + .14202, .08171, 13.01976, .74561, .52797,
1011 + .36528, .65726, .75351,
1012 + .14476, .08327, 13.44746, .77181, .55570,
1013 + .39514, .68408, .77995 /
1014 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
1015 + .14745, .08479, 13.84509, .79739, .58257,
1016 + .42370, .71025, .80575,
1017 + .15007, .08627, 14.22237, .82232, .60886,
1018 + .45182, .73575, .83090,
1019 + .15253, .08765, 14.56517, .84570, .63355,
1020 + .47824, .75968, .85449,
1021 + .15482, .08894, 14.86799, .86728, .65625,
1022 + .50241, .78175, .87626,
1023 + .15712, .09022, 15.16686, .88898, .67919,
1024 + .52700, .80397, .89816,
1025 + .15935, .09146, 15.43707, .90968, .70096,
1026 + .55014, .82515, .91904,
1027 + .16146, .09263, 15.69184, .92946, .72189,
1028 + .57256, .84539, .93900,
1029 + .16343, .09372, 15.91212, .94755, .74094,
1030 + .59281, .86392, .95726 /
1031 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
1032 + .16542, .09481, 16.13160, .96585, .76028,
1033 + .61349, .88266, .97573,
1034 + .16736, .09588, 16.33303, .98346, .77887,
1035 + .63330, .90069, .99350,
1036 + .16920, .09688, 16.51766, 1.00010, .79644,
1037 + .65205, .91773, 1.01028,
1038 + .17094, .09783, 16.68760, 1.01578, .81304,
1039 + .66982, .93380, 1.02611,
1040 + .17267, .09878, 16.84429, 1.03112, .82924,
1041 + .68706, .94952, 1.04160 /
1042 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
1043 + .09477, .05511, .96699, .21291, .00000,
1044 + .00000, .11573, .21634,
1045 + .09836, .05732, 1.42109, .22549, .00000,
1046 + .00000, .12910, .22926,
1047 + .10353, .06049, 2.08497, .24569, .00974,
1048 + .00000, .15042, .24995,
1049 + .10722, .06273, 2.56364, .26134, .03038,
1050 + .00000, .16686, .26594,
1051 + .11105, .06504, 3.07175, .27860, .04896,
1052 + .00000, .18494, .28357,
1053 + .11430, .06698, 3.50752, .29393, .06548,
1054 + .00000, .20094, .29919,
1055 + .11739, .06883, 3.93170, .30904, .08224,
1056 + .00000, .21670, .31459,
1057 + .12064, .07076, 4.38559, .32549, .10059,
1058 + .00000, .23383, .33135 /
1059 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
1060 + .12341, .07241, 4.77134, .34002, .11631,
1061 + .00000, .24892, .34613,
1062 + .12607, .07397, 5.14073, .35423, .13174,
1063 + .00000, .26368, .36059,
1064 + .12816, .07520, 5.43606, .36568, .14435,
1065 + .00000, .27556, .37223,
1066 + .13254, .07777, 6.02669, .39033, .17107,
1067 + .00290, .30109, .39727,
1068 + .13623, .07991, 6.48870, .41164, .19402,
1069 + .03077, .32315, .41893,
1070 + .14030, .08226, 6.98971, .43566, .21992,
1071 + .06301, .34799, .44331,
1072 + .14447, .08466, 7.49412, .46061, .24683,
1073 + .09282, .37378, .46865,
1074 + .14820, .08679, 7.93376, .48316, .27113,
1075 + .11978, .39707, .49153 /
1076 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
1077 + .15191, .08890, 8.36048, .50581, .29557,
1078 + .14676, .42047, .51451,
1079 + .15495, .09061, 8.69823, .52441, .31557,
1080 + .16856, .43968, .53339,
1081 + .15858, .09266, 9.08730, .54668, .33946,
1082 + .19451, .46267, .55598,
1083 + .16175, .09443, 9.41739, .56623, .36049,
1084 + .21750, .48285, .57580,
1085 + .16463, .09604, 9.70832, .58400, .37965,
1086 + .23847, .50120, .59383,
1087 + .16821, .09802, 10.05127, .60601, .40325,
1088 + .26401, .52393, .61616,
1089 + .17154, .09986, 10.35692, .62643, .42520,
1090 + .28787, .54501, .63686,
1091 + .17463, .10156, 10.63118, .64537, .44565,
1092 + .31023, .56457, .65607 /
1093 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
1094 + .17766, .10321, 10.88019, .66366, .46527,
1095 + .33142, .58347, .67462,
1096 + .18060, .10480, 11.11304, .68136, .48435,
1097 + .35216, .60176, .69257,
1098 + .18334, .10629, 11.32115, .69783, .50213,
1099 + .37150, .61879, .70928,
1100 + .18589, .10766, 11.50078, .71289, .51834,
1101 + .38907, .63436, .72456,
1102 + .18844, .10903, 11.67600, .72795, .53465,
1103 + .40685, .64994, .73984,
1104 + .19089, .11034, 11.82988, .74217, .54998,
1105 + .42345, .66466, .75426,
1106 + .19322, .11158, 11.97372, .75570, .56466,
1107 + .43947, .67867, .76799,
1108 + .19539, .11272, 12.09420, .76796, .57790,
1109 + .45382, .69138, .78043 /
1110 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
1111 + .19756, .11387, 12.21315, .78031, .59129,
1112 + .46842, .70417, .79296,
1113 + .19968, .11498, 12.31897, .79208, .60406,
1114 + .48231, .71638, .80491,
1115 + .20168, .11603, 12.41399, .80314, .61607,
1116 + .49539, .72785, .81613,
1117 + .20357, .11702, 12.50002, .81351, .62736,
1118 + .50773, .73861, .82665,
1119 + .20544, .11800, 12.57586, .82355, .63829,
1120 + .51961, .74905, .83685 /
1121 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
1122 + .11070, .06619, 1.04409, .20377, .00000,
1123 + .00000, .11099, .20849,
1124 + .11482, .06868, 1.46515, .21541, .00000,
1125 + .00000, .12342, .22054,
1126 + .12074, .07223, 2.07021, .23383, .00892,
1127 + .00000, .14297, .23953,
1128 + .12495, .07473, 2.49880, .24792, .02776,
1129 + .00000, .15787, .25404,
1130 + .12930, .07731, 2.94767, .26332, .04451,
1131 + .00000, .17409, .26986,
1132 + .13299, .07947, 3.32782, .27686, .05929,
1133 + .00000, .18831, .28375,
1134 + .13648, .08150, 3.69381, .29010, .07418,
1135 + .00000, .20222, .29733,
1136 + .14014, .08363, 4.08133, .30443, .09036,
1137 + .00000, .21723, .31201 /
1138 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
1139 + .14326, .08544, 4.40732, .31698, .10414,
1140 + .00000, .23037, .32486,
1141 + .14624, .08715, 4.71666, .32919, .11758,
1142 + .00000, .24313, .33734,
1143 + .14858, .08850, 4.96222, .33898, .12851,
1144 + .00000, .25336, .34735,
1145 + .15347, .09129, 5.44701, .35988, .15151,
1146 + .00256, .27518, .36871,
1147 + .15757, .09360, 5.81938, .37781, .17111,
1148 + .02654, .29387, .38702,
1149 + .16208, .09614, 6.21776, .39784, .19306,
1150 + .05417, .31474, .40747,
1151 + .16668, .09872, 6.61326, .41848, .21567,
1152 + .07948, .33624, .42853,
1153 + .17079, .10099, 6.95316, .43695, .23593,
1154 + .10221, .35549, .44738 /
1155 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
1156 + .17486, .10324, 7.27868, .45538, .25617,
1157 + .12480, .37468, .46617,
1158 + .17818, .10506, 7.53293, .47040, .27261,
1159 + .14293, .39032, .48149,
1160 + .18213, .10721, 7.82176, .48824, .29211,
1161 + .16438, .40891, .49968,
1162 + .18558, .10908, 8.06360, .50378, .30917,
1163 + .18326, .42511, .51553,
1164 + .18870, .11076, 8.27418, .51783, .32463,
1165 + .20040, .43976, .52986,
1166 + .19257, .11284, 8.51807, .53509, .34352,
1167 + .22113, .45776, .54745,
1168 + .19615, .11474, 8.73205, .55097, .36098,
1169 + .24037, .47433, .56365,
1170 + .19946, .11650, 8.92140, .56561, .37715,
1171 + .25831, .48961, .57858 /
1172 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
1173 + .20270, .11820, 9.08930, .57962, .39255,
1174 + .27519, .50426, .59286,
1175 + .20582, .11984, 9.24397, .59309, .40743,
1176 + .29162, .51834, .60660,
1177 + .20874, .12136, 9.37977, .60555, .42122,
1178 + .30687, .53137, .61931,
1179 + .21144, .12275, 9.49405, .61685, .43372,
1180 + .32064, .54321, .63083,
1181 + .21413, .12414, 9.60421, .62810, .44623,
1182 + .33452, .55500, .64231,
1183 + .21672, .12547, 9.69753, .63862, .45791,
1184 + .34739, .56604, .65305,
1185 + .21916, .12672, 9.78399, .64860, .46905,
1186 + .35977, .57651, .66323,
1187 + .22143, .12787, 9.85329, .65756, .47903,
1188 + .37079, .58593, .67237 /
1189 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
1190 + .22370, .12902, 9.92097, .66654, .48909,
1191 + .38197, .59538, .68154,
1192 + .22590, .13012, 9.97857, .67505, .49862,
1193 + .39254, .60433, .69022,
1194 + .22798, .13117, 10.02880, .68299, .50754,
1195 + .40246, .61270, .69833,
1196 + .22994, .13215, 10.07314, .69040, .51590,
1197 + .41179, .62052, .70590,
1198 + .23188, .13311, 10.10928, .69751, .52393,
1199 + .42071, .62804, .71316 /
1200 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
1201 + .12534, .07639, 1.11315, .19721, .00000,
1202 + .00000, .10766, .20326,
1203 + .12992, .07910, 1.50700, .20808, .00000,
1204 + .00000, .11935, .21460,
1205 + .13647, .08295, 2.06478, .22509, .00830,
1206 + .00000, .13752, .23226,
1207 + .14111, .08565, 2.45410, .23798, .02577,
1208 + .00000, .15124, .24562,
1209 + .14589, .08842, 2.85744, .25194, .04116,
1210 + .00000, .16605, .26004,
1211 + .14992, .09073, 3.19549, .26412, .05464,
1212 + .00000, .17894, .27261,
1213 + .15374, .09291, 3.51799, .27597, .06814,
1214 + .00000, .19146, .28483,
1215 + .15773, .09518, 3.85647, .28870, .08274,
1216 + .00000, .20491, .29796 /
1217 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
1218 + .16114, .09710, 4.13873, .29979, .09509,
1219 + .00000, .21660, .30937,
1220 + .16437, .09891, 4.40448, .31051, .10709,
1221 + .00000, .22790, .32040,
1222 + .16692, .10034, 4.61413, .31908, .11681,
1223 + .00000, .23692, .32921,
1224 + .17220, .10328, 5.02356, .33726, .13713,
1225 + .00231, .25605, .34789,
1226 + .17662, .10571, 5.33279, .35274, .15434,
1227 + .02351, .27232, .36378,
1228 + .18147, .10836, 5.65971, .36991, .17348,
1229 + .04786, .29037, .38140,
1230 + .18640, .11104, 5.98018, .38746, .19306,
1231 + .07000, .30881, .39941,
1232 + .19079, .11340, 6.25208, .40307, .21050,
1233 + .08976, .32522, .41541 /
1234 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
1235 + .19512, .11572, 6.50937, .41853, .22780,
1236 + .10929, .34147, .43126,
1237 + .19864, .11760, 6.70778, .43104, .24178,
1238 + .12488, .35464, .44409,
1239 + .20283, .11981, 6.93011, .44581, .25827,
1240 + .14322, .37019, .45923,
1241 + .20646, .12171, 7.11398, .45860, .27262,
1242 + .15929, .38365, .47234,
1243 + .20975, .12343, 7.27230, .47009, .28554,
1244 + .17380, .39576, .48411,
1245 + .21381, .12553, 7.45213, .48410, .30126,
1246 + .19126, .41055, .49848,
1247 + .21756, .12746, 7.60735, .49691, .31569,
1248 + .20739, .42407, .51161,
1249 + .22102, .12923, 7.74276, .50865, .32899,
1250 + .22236, .43648, .52365 /
1251 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
1252 + .22438, .13093, 7.85976, .51979, .34157,
1253 + .23635, .44828, .53507,
1254 + .22762, .13256, 7.96567, .53045, .35368,
1255 + .24992, .45957, .54600,
1256 + .23064, .13408, 8.05665, .54024, .36484,
1257 + .26246, .46995, .55604,
1258 + .23342, .13546, 8.13098, .54905, .37490,
1259 + .27372, .47932, .56508,
1260 + .23619, .13683, 8.20165, .55779, .38493,
1261 + .28504, .48862, .57405,
1262 + .23884, .13813, 8.25850, .56590, .39423,
1263 + .29547, .49726, .58237,
1264 + .24135, .13937, 8.31056, .57356, .40308,
1265 + .30548, .50544, .59023,
1266 + .24365, .14049, 8.34935, .58037, .41095,
1267 + .31434, .51272, .59722 /
1268 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
1269 + .24597, .14161, 8.38659, .58718, .41886,
1270 + .32331, .52001, .60421,
1271 + .24820, .14268, 8.41598, .59357, .42631,
1272 + .33175, .52687, .61078,
1273 + .25031, .14369, 8.44025, .59950, .43326,
1274 + .33964, .53324, .61688,
1275 + .25229, .14463, 8.46057, .60501, .43975,
1276 + .34704, .53918, .62254,
1277 + .25425, .14556, 8.47404, .61025, .44594,
1278 + .35407, .54484, .62793 /
1279 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
1280 + .15215, .09493, 1.23070, .18782, .00000,
1281 + .00000, .10308, .19662,
1282 + .15746, .09795, 1.57979, .19747, .00000,
1283 + .00000, .11360, .20681,
1284 + .16502, .10220, 2.06279, .21228, .00738,
1285 + .00000, .12966, .22239,
1286 + .17034, .10517, 2.39187, .22333, .02282,
1287 + .00000, .14160, .23397,
1288 + .17579, .10818, 2.72681, .23513, .03621,
1289 + .00000, .15431, .24631,
1290 + .18037, .11069, 3.00280, .24529, .04781,
1291 + .00000, .16524, .25692,
1292 + .18469, .11304, 3.26214, .25507, .05933,
1293 + .00000, .17576, .26712,
1294 + .18919, .11547, 3.53041, .26549, .07166,
1295 + .00000, .18694, .27797 /
1296 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
1297 + .19300, .11752, 3.75085, .27446, .08200,
1298 + .00000, .19656, .28731,
1299 + .19662, .11945, 3.95574, .28306, .09195,
1300 + .00000, .20579, .29626,
1301 + .19946, .12096, 4.11577, .28989, .09998,
1302 + .00000, .21311, .30335,
1303 + .20531, .12405, 4.42171, .30423, .11659,
1304 + .00196, .22847, .31824,
1305 + .21018, .12659, 4.64587, .31629, .13049,
1306 + .01933, .24137, .33074,
1307 + .21549, .12934, 4.87755, .32950, .14580,
1308 + .03917, .25553, .34444,
1309 + .22087, .13209, 5.09946, .34283, .16129,
1310 + .05700, .26982, .35825,
1311 + .22561, .13451, 5.28326, .35453, .17493,
1312 + .07276, .28238, .37037 /
1313 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
1314 + .23028, .13686, 5.45301, .36598, .18833,
1315 + .08819, .29469, .38223,
1316 + .23406, .13874, 5.58063, .37514, .19905,
1317 + .10039, .30455, .39173,
1318 + .23852, .14095, 5.71961, .38583, .21157,
1319 + .11463, .31607, .40279,
1320 + .24237, .14284, 5.83148, .39497, .22237,
1321 + .12701, .32594, .41226,
1322 + .24584, .14453, 5.92532, .40311, .23202,
1323 + .13811, .33474, .42069,
1324 + .25010, .14659, 6.02752, .41290, .24363,
1325 + .15133, .34535, .43083,
1326 + .25401, .14846, 6.11227, .42173, .25419,
1327 + .16345, .35495, .43998,
1328 + .25760, .15016, 6.18350, .42974, .26384,
1329 + .17460, .36368, .44829 /
1330 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
1331 + .26106, .15179, 6.24043, .43722, .27286,
1332 + .18493, .37185, .45604,
1333 + .26438, .15334, 6.28951, .44430, .28147,
1334 + .19488, .37961, .46337,
1335 + .26747, .15477, 6.32898, .45073, .28934,
1336 + .20400, .38667, .47004,
1337 + .27029, .15606, 6.35756, .45643, .29635,
1338 + .21212, .39296, .47595,
1339 + .27308, .15733, 6.38326, .46203, .30331,
1340 + .22025, .39915, .48177,
1341 + .27574, .15853, 6.39951, .46713, .30969,
1342 + .22766, .40481, .48706,
1343 + .27826, .15965, 6.41359, .47191, .31572,
1344 + .23474, .41015, .49204,
1345 + .28054, .16067, 6.41932, .47609, .32102,
1346 + .24095, .41482, .49637 /
1347 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
1348 + .28283, .16168, 6.42383, .48024, .32632,
1349 + .24721, .41947, .50069,
1350 + .28503, .16264, 6.42305, .48406, .33126,
1351 + .25305, .42379, .50466,
1352 + .28710, .16354, 6.41971, .48756, .33584,
1353 + .25847, .42776, .50831,
1354 + .28904, .16437, 6.41472, .49079, .34008,
1355 + .26354, .43143, .51167,
1356 + .29093, .16518, 6.40475, .49379, .34407,
1357 + .26830, .43487, .51480 /
1358 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
1359 + .18855, .11948, 1.36530, .17790, .00000,
1360 + .00000, .09848, .19086,
1361 + .19466, .12275, 1.66118, .18611, .00000,
1362 + .00000, .10768, .19969,
1363 + .20329, .12730, 2.05957, .19845, .00641,
1364 + .00000, .12142, .21289,
1365 + .20931, .13043, 2.32311, .20750, .01971,
1366 + .00000, .13145, .22253,
1367 + .21544, .13360, 2.58587, .21698, .03105,
1368 + .00000, .14195, .23260,
1369 + .22056, .13621, 2.79795, .22502, .04075,
1370 + .00000, .15085, .24113,
1371 + .22536, .13864, 2.99358, .23267, .05027,
1372 + .00000, .15931, .24924,
1373 + .23034, .14114, 3.19228, .24072, .06036,
1374 + .00000, .16821, .25775 /
1375 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
1376 + .23453, .14323, 3.35256, .24757, .06872,
1377 + .00000, .17578, .26498,
1378 + .23848, .14518, 3.49903, .25406, .07670,
1379 + .00000, .18295, .27183,
1380 + .24157, .14670, 3.61194, .25917, .08308,
1381 + .00000, .18860, .27722,
1382 + .24793, .14978, 3.82153, .26975, .09615,
1383 + .00161, .20032, .28837,
1384 + .25315, .15229, 3.96790, .27852, .10695,
1385 + .01536, .21002, .29759,
1386 + .25880, .15498, 4.11425, .28798, .11869,
1387 + .03097, .22051, .30752,
1388 + .26448, .15765, 4.24954, .29735, .13040,
1389 + .04481, .23093, .31737,
1390 + .26946, .15995, 4.35727, .30543, .14059,
1391 + .05689, .23996, .32586 /
1392 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
1393 + .27432, .16218, 4.45276, .31322, .15047,
1394 + .06860, .24867, .33404,
1395 + .27822, .16394, 4.52118, .31935, .15829,
1396 + .07777, .25555, .34048,
1397 + .28279, .16598, 4.59173, .32637, .16731,
1398 + .08835, .26348, .34785,
1399 + .28671, .16771, 4.64536, .33229, .17500,
1400 + .09747, .27019, .35406,
1401 + .29021, .16924, 4.68771, .33748, .18181,
1402 + .10557, .27609, .35952,
1403 + .29447, .17108, 4.72895, .34359, .18989,
1404 + .11512, .28308, .36593,
1405 + .29835, .17273, 4.75940, .34901, .19715,
1406 + .12378, .28931, .37162,
1407 + .30189, .17422, 4.78201, .35384, .20372,
1408 + .13169, .29490, .37670 /
1409 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
1410 + .30528, .17562, 4.79444, .35822, .20976,
1411 + .13892, .30003, .38131,
1412 + .30850, .17693, 4.80202, .36230, .21547,
1413 + .14582, .30483, .38559,
1414 + .31146, .17813, 4.80445, .36593, .22063,
1415 + .15210, .30913, .38942,
1416 + .31414, .17920, 4.80075, .36906, .22517,
1417 + .15763, .31288, .39271,
1418 + .31679, .18024, 4.79510, .37209, .22963,
1419 + .16312, .31654, .39591,
1420 + .31928, .18120, 4.78356, .37475, .23365,
1421 + .16807, .31979, .39872,
1422 + .32162, .18210, 4.77189, .37723, .23743,
1423 + .17279, .32283, .40133,
1424 + .32374, .18288, 4.75597, .37929, .24069,
1425 + .17686, .32542, .40351 /
1426 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
1427 + .32585, .18367, 4.73930, .38132, .24394,
1428 + .18095, .32798, .40566,
1429 + .32784, .18440, 4.71952, .38311, .24691,
1430 + .18472, .33029, .40755,
1431 + .32971, .18507, 4.69912, .38471, .24964,
1432 + .18820, .33238, .40925,
1433 + .33144, .18569, 4.67878, .38615, .25214,
1434 + .19142, .33428, .41078,
1435 + .33312, .18627, 4.65517, .38741, .25445,
1436 + .19442, .33599, .41212 /
1437 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
1438 + .24321, .15446, 1.50758, .16529, .00000,
1439 + .00000, .09304, .18514,
1440 + .25011, .15778, 1.73585, .17167, .00000,
1441 + .00000, .10054, .19215,
1442 + .25973, .16231, 2.03203, .18099, .00528,
1443 + .00000, .11147, .20235,
1444 + .26637, .16539, 2.21993, .18767, .01614,
1445 + .00000, .11927, .20961,
1446 + .27307, .16844, 2.40199, .19450, .02521,
1447 + .00000, .12727, .21702,
1448 + .27859, .17094, 2.54459, .20018, .03283,
1449 + .00000, .13392, .22316,
1450 + .28374, .17324, 2.67271, .20549, .04022,
1451 + .00000, .14014, .22889,
1452 + .28903, .17557, 2.79945, .21098, .04795,
1453 + .00000, .14659, .23481 /
1454 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
1455 + .29345, .17749, 2.89866, .21556, .05425,
1456 + .00000, .15198, .23973,
1457 + .29758, .17927, 2.98689, .21984, .06020,
1458 + .00000, .15702, .24433,
1459 + .30079, .18064, 3.05354, .22317, .06492,
1460 + .00000, .16095, .24790,
1461 + .30732, .18337, 3.17049, .22993, .07444,
1462 + .00125, .16895, .25514,
1463 + .31261, .18555, 3.24419, .23539, .08217,
1464 + .01139, .17545, .26097,
1465 + .31828, .18784, 3.31272, .24114, .09044,
1466 + .02282, .18233, .26710,
1467 + .32389, .19006, 3.37088, .24667, .09855,
1468 + .03277, .18901, .27300,
1469 + .32874, .19194, 3.41243, .25131, .10548,
1470 + .04134, .19467, .27794 /
1471 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
1472 + .33342, .19372, 3.44478, .25565, .11210,
1473 + .04953, .20000, .28256,
1474 + .33713, .19509, 3.46407, .25897, .11725,
1475 + .05586, .20414, .28608,
1476 + .34140, .19664, 3.47902, .26264, .12310,
1477 + .06308, .20877, .28999,
1478 + .34503, .19792, 3.48642, .26563, .12801,
1479 + .06922, .21261, .29317,
1480 + .34823, .19903, 3.48881, .26819, .13230,
1481 + .07462, .21592, .29588,
1482 + .35206, .20032, 3.48377, .27105, .13729,
1483 + .08088, .21971, .29892,
1484 + .35549, .20145, 3.47392, .27348, .14170,
1485 + .08649, .22301, .30150,
1486 + .35859, .20243, 3.46122, .27557, .14562,
1487 + .09156, .22589, .30371 /
1488 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
1489 + .36148, .20331, 3.44244, .27732, .14915,
1490 + .09611, .22842, .30557,
1491 + .36420, .20411, 3.42166, .27888, .15243,
1492 + .10042, .23072, .30722,
1493 + .36666, .20482, 3.39949, .28019, .15536,
1494 + .10429, .23272, .30859,
1495 + .36884, .20541, 3.37526, .28121, .15786,
1496 + .10764, .23437, .30966,
1497 + .37098, .20598, 3.35014, .28216, .16030,
1498 + .11094, .23596, .31067,
1499 + .37293, .20646, 3.32214, .28286, .16243,
1500 + .11387, .23727, .31140,
1501 + .37476, .20691, 3.29550, .28349, .16442,
1502 + .11663, .23848, .31207,
1503 + .37636, .20726, 3.26764, .28390, .16607,
1504 + .11898, .23942, .31249 /
1505 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
1506 + .37795, .20761, 3.23953, .28427, .16771,
1507 + .12132, .24032, .31287,
1508 + .37942, .20790, 3.21019, .28450, .16916,
1509 + .12344, .24107, .31311,
1510 + .38076, .20815, 3.18166, .28464, .17046,
1511 + .12537, .24171, .31325,
1512 + .38200, .20837, 3.15430, .28473, .17164,
1513 + .12715, .24226, .31334,
1514 + .38316, .20855, 3.12510, .28468, .17267,
1515 + .12877, .24266, .31328 /
1516 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
1517 + .29292, .18406, 1.57803, .15433, .00000,
1518 + .00000, .08850, .18071,
1519 + .30014, .18714, 1.75489, .15928, .00000,
1520 + .00000, .09470, .18624,
1521 + .31007, .19128, 1.97674, .16638, .00447,
1522 + .00000, .10353, .19406,
1523 + .31686, .19404, 2.11198, .17135, .01358,
1524 + .00000, .10973, .19953,
1525 + .32362, .19675, 2.23942, .17634, .02107,
1526 + .00000, .11596, .20498,
1527 + .32915, .19891, 2.33633, .18041, .02729,
1528 + .00000, .12106, .20940,
1529 + .33426, .20087, 2.42110, .18415, .03325,
1530 + .00000, .12578, .21347,
1531 + .33947, .20284, 2.50263, .18796, .03943,
1532 + .00000, .13060, .21759 /
1533 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
1534 + .34377, .20444, 2.56427, .19108, .04441,
1535 + .00000, .13456, .22095,
1536 + .34776, .20590, 2.61733, .19394, .04907,
1537 + .00000, .13824, .22403,
1538 + .35086, .20700, 2.65648, .19614, .05274,
1539 + .00000, .14107, .22640,
1540 + .35705, .20916, 2.71967, .20052, .06006,
1541 + .00102, .14675, .23110,
1542 + .36202, .21083, 2.75248, .20397, .06592,
1543 + .00891, .15127, .23477,
1544 + .36725, .21253, 2.77842, .20750, .07211,
1545 + .01776, .15597, .23851,
1546 + .37235, .21413, 2.79561, .21077, .07809,
1547 + .02538, .16043, .24198,
1548 + .37670, .21543, 2.80301, .21341, .08313,
1549 + .03185, .16411, .24476 /
1550 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
1551 + .38081, .21662, 2.80364, .21579, .08788,
1552 + .03798, .16751, .24724,
1553 + .38402, .21750, 2.79888, .21752, .09153,
1554 + .04266, .17007, .24905,
1555 + .38767, .21843, 2.78738, .21934, .09561,
1556 + .04795, .17287, .25094,
1557 + .39072, .21917, 2.77337, .22075, .09900,
1558 + .05241, .17513, .25239,
1559 + .39336, .21978, 2.75769, .22189, .10192,
1560 + .05630, .17702, .25356,
1561 + .39645, .22042, 2.73261, .22304, .10525,
1562 + .06075, .17911, .25471,
1563 + .39916, .22094, 2.70604, .22392, .10815,
1564 + .06470, .18084, .25558,
1565 + .40156, .22137, 2.67927, .22460, .11070,
1566 + .06823, .18231, .25622 /
1567 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
1568 + .40371, .22168, 2.64872, .22503, .11293,
1569 + .07136, .18349, .25660,
1570 + .40571, .22193, 2.61767, .22534, .11499,
1571 + .07429, .18452, .25685,
1572 + .40748, .22210, 2.58699, .22549, .11678,
1573 + .07690, .18536, .25695,
1574 + .40899, .22219, 2.55628, .22549, .11828,
1575 + .07913, .18598, .25688,
1576 + .41044, .22226, 2.52533, .22544, .11972,
1577 + .08131, .18655, .25675,
1578 + .41172, .22225, 2.49302, .22522, .12093,
1579 + .08321, .18693, .25645,
1580 + .41290, .22223, 2.46265, .22498, .12206,
1581 + .08500, .18726, .25614,
1582 + .41386, .22214, 2.43248, .22463, .12295,
1583 + .08648, .18742, .25570 /
1584 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
1585 + .41480, .22204, 2.40236, .22426, .12383,
1586 + .08796, .18755, .25522,
1587 + .41563, .22190, 2.37187, .22378, .12458,
1588 + .08928, .18758, .25465,
1589 + .41636, .22174, 2.34271, .22328, .12522,
1590 + .09047, .18755, .25405,
1591 + .41701, .22156, 2.31510, .22278, .12580,
1592 + .09155, .18748, .25345,
1593 + .41756, .22134, 2.28644, .22218, .12627,
1594 + .09251, .18732, .25274 /
1595 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
1596 + .38150, .23149, 1.58848, .13428, .00000,
1597 + .00000, .08019, .17170,
1598 + .38836, .23366, 1.69287, .13719, .00000,
1599 + .00000, .08440, .17483,
1600 + .39757, .23640, 1.81448, .14118, .00331,
1601 + .00000, .09022, .17907,
1602 + .40368, .23813, 1.88158, .14389, .01000,
1603 + .00000, .09417, .18188,
1604 + .40964, .23973, 1.94056, .14647, .01537,
1605 + .00000, .09803, .18456,
1606 + .41440, .24092, 1.98182, .14849, .01974,
1607 + .00000, .10110, .18660,
1608 + .41870, .24194, 2.01518, .15027, .02387,
1609 + .00000, .10387, .18839,
1610 + .42300, .24291, 2.04442, .15202, .02808,
1611 + .00000, .10664, .19011 /
1612 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
1613 + .42647, .24362, 2.06356, .15338, .03142,
1614 + .00000, .10884, .19142,
1615 + .42962, .24422, 2.07770, .15457, .03450,
1616 + .00000, .11083, .19256,
1617 + .43202, .24465, 2.08695, .15545, .03690,
1618 + .00000, .11234, .19340,
1619 + .43666, .24537, 2.09336, .15711, .04160,
1620 + .00072, .11526, .19491,
1621 + .44022, .24580, 2.08499, .15828, .04528,
1622 + .00592, .11749, .19594,
1623 + .44382, .24612, 2.06947, .15937, .04909,
1624 + .01171, .11970, .19681,
1625 + .44716, .24628, 2.04822, .16020, .05269,
1626 + .01659, .12167, .19741,
1627 + .44985, .24627, 2.02483, .16074, .05565,
1628 + .02067, .12319, .19771 /
1629 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
1630 + .45226, .24615, 1.99800, .16109, .05837,
1631 + .02447, .12449, .19781,
1632 + .45402, .24595, 1.97332, .16122, .06042,
1633 + .02733, .12540, .19771,
1634 + .45586, .24559, 1.94091, .16121, .06265,
1635 + .03050, .12628, .19738,
1636 + .45729, .24519, 1.91086, .16107, .06445,
1637 + .03314, .12691, .19696,
1638 + .45844, .24477, 1.88237, .16084, .06597,
1639 + .03540, .12737, .19648,
1640 + .45960, .24410, 1.84427, .16037, .06765,
1641 + .03795, .12776, .19567,
1642 + .46048, .24340, 1.80771, .15982, .06906,
1643 + .04017, .12798, .19479,
1644 + .46116, .24269, 1.77323, .15922, .07027,
1645 + .04212, .12809, .19387 /
1646 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
1647 + .46158, .24188, 1.73750, .15849, .07127,
1648 + .04381, .12803, .19281,
1649 + .46187, .24104, 1.70265, .15770, .07216,
1650 + .04537, .12790, .19170,
1651 + .46202, .24020, 1.66964, .15690, .07290,
1652 + .04673, .12769, .19058,
1653 + .46199, .23934, 1.63816, .15606, .07348,
1654 + .04787, .12739, .18943,
1655 + .46192, .23847, 1.60706, .15519, .07403,
1656 + .04897, .12707, .18826,
1657 + .46166, .23754, 1.57604, .15425, .07444,
1658 + .04989, .12665, .18701,
1659 + .46140, .23666, 1.54722, .15336, .07481,
1660 + .05076, .12624, .18582,
1661 + .46098, .23576, 1.51961, .15244, .07505,
1662 + .05145, .12576, .18462 /
1663 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
1664 + .46055, .23486, 1.49235, .15151, .07529,
1665 + .05212, .12526, .18341,
1666 + .46000, .23393, 1.46545, .15054, .07544,
1667 + .05271, .12472, .18217,
1668 + .45943, .23303, 1.44011, .14960, .07556,
1669 + .05323, .12417, .18096,
1670 + .45886, .23216, 1.41641, .14869, .07565,
1671 + .05369, .12364, .17981,
1672 + .45817, .23124, 1.39238, .14773, .07567,
1673 + .05407, .12305, .17858 /
1674 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
1675 + .45801, .26691, 1.50558, .11605, .00000,
1676 + .00000, .07220, .16115,
1677 + .46362, .26783, 1.56368, .11762, .00000,
1678 + .00000, .07503, .16249,
1679 + .47086, .26878, 1.62397, .11968, .00253,
1680 + .00000, .07880, .16414,
1681 + .47549, .26922, 1.65144, .12099, .00758,
1682 + .00000, .08130, .16512,
1683 + .47983, .26947, 1.67202, .12217, .01158,
1684 + .00000, .08365, .16592,
1685 + .48315, .26951, 1.68296, .12301, .01478,
1686 + .00000, .08547, .16639,
1687 + .48605, .26944, 1.68914, .12369, .01778,
1688 + .00000, .08705, .16672,
1689 + .48885, .26925, 1.69154, .12431, .02079,
1690 + .00000, .08859, .16695 /
1691 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
1692 + .49098, .26897, 1.68953, .12471, .02315,
1693 + .00000, .08978, .16701,
1694 + .49282, .26863, 1.68482, .12501, .02531,
1695 + .00000, .09081, .16698,
1696 + .49417, .26832, 1.67991, .12521, .02697,
1697 + .00000, .09156, .16690,
1698 + .49656, .26750, 1.66069, .12548, .03018,
1699 + .00053, .09297, .16654,
1700 + .49818, .26662, 1.63513, .12554, .03265,
1701 + .00417, .09396, .16607,
1702 + .49959, .26551, 1.60336, .12544, .03517,
1703 + .00821, .09486, .16535,
1704 + .50064, .26421, 1.56806, .12514, .03750,
1705 + .01156, .09555, .16441,
1706 + .50124, .26291, 1.53431, .12472, .03937,
1707 + .01432, .09599, .16339 /
1708 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
1709 + .50155, .26151, 1.49911, .12418, .04106,
1710 + .01686, .09628, .16223,
1711 + .50157, .26026, 1.46903, .12363, .04230,
1712 + .01875, .09638, .16118,
1713 + .50132, .25865, 1.43180, .12284, .04362,
1714 + .02082, .09638, .15979,
1715 + .50089, .25716, 1.39875, .12207, .04467,
1716 + .02251, .09627, .15849,
1717 + .50034, .25578, 1.36848, .12132, .04553,
1718 + .02395, .09611, .15724,
1719 + .49936, .25390, 1.32961, .12026, .04644,
1720 + .02554, .09577, .15553,
1721 + .49824, .25209, 1.29342, .11920, .04717,
1722 + .02691, .09535, .15388,
1723 + .49707, .25038, 1.26005, .11817, .04779,
1724 + .02810, .09490, .15229 /
1725 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
1726 + .49565, .24857, 1.22655, .11704, .04826,
1727 + .02910, .09436, .15061,
1728 + .49416, .24678, 1.19444, .11592, .04865,
1729 + .03002, .09378, .14896,
1730 + .49263, .24506, 1.16455, .11484, .04896,
1731 + .03080, .09319, .14737,
1732 + .49104, .24340, 1.13661, .11377, .04917,
1733 + .03144, .09257, .14583,
1734 + .48941, .24174, 1.10927, .11269, .04936,
1735 + .03205, .09194, .14428,
1736 + .48763, .24004, 1.08251, .11158, .04946,
1737 + .03255, .09125, .14272,
1738 + .48594, .23844, 1.05782, .11054, .04954,
1739 + .03301, .09060, .14124,
1740 + .48419, .23687, 1.03458, .10951, .04956,
1741 + .03336, .08993, .13981 /
1742 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
1743 + .48242, .23531, 1.01178, .10849, .04956,
1744 + .03370, .08927, .13837,
1745 + .48058, .23374, .98954, .10745, .04952,
1746 + .03398, .08857, .13693,
1747 + .47878, .23224, .96877, .10645, .04946,
1748 + .03422, .08790, .13556,
1749 + .47705, .23081, .94947, .10551, .04939,
1750 + .03443, .08725, .13427,
1751 + .47519, .22933, .93013, .10453, .04928,
1752 + .03459, .08657, .13293 /
1753 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
1754 + .52357, .29288, 1.38284, .09977, .00000,
1755 + .00000, .06450, .14905,
1756 + .52734, .29245, 1.41114, .10048, .00000,
1757 + .00000, .06631, .14904,
1758 + .53184, .29146, 1.43344, .10132, .00196,
1759 + .00000, .06868, .14881,
1760 + .53448, .29053, 1.43741, .10179, .00586,
1761 + .00000, .07017, .14853,
1762 + .53669, .28938, 1.43579, .10212, .00890,
1763 + .00000, .07153, .14803,
1764 + .53818, .28824, 1.42978, .10227, .01132,
1765 + .00000, .07253, .14746,
1766 + .53932, .28706, 1.42120, .10233, .01355,
1767 + .00000, .07337, .14683,
1768 + .54024, .28573, 1.40947, .10231, .01578,
1769 + .00000, .07415, .14609 /
1770 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
1771 + .54076, .28448, 1.39666, .10219, .01750,
1772 + .00000, .07469, .14536,
1773 + .54104, .28320, 1.38261, .10202, .01906,
1774 + .00000, .07513, .14459,
1775 + .54117, .28216, 1.37085, .10186, .02026,
1776 + .00000, .07545, .14395,
1777 + .54097, .27985, 1.34012, .10140, .02254,
1778 + .00041, .07595, .14247,
1779 + .54040, .27774, 1.30784, .10089, .02426,
1780 + .00305, .07623, .14110,
1781 + .53939, .27527, 1.27037, .10020, .02600,
1782 + .00597, .07639, .13948,
1783 + .53795, .27260, 1.23086, .09935, .02757,
1784 + .00836, .07638, .13768,
1785 + .53632, .27011, 1.19471, .09850, .02881,
1786 + .01031, .07623, .13597 /
1787 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
1788 + .53441, .26754, 1.15826, .09757, .02991,
1789 + .01209, .07599, .13417,
1790 + .53263, .26534, 1.12802, .09671, .03069,
1791 + .01339, .07571, .13263,
1792 + .53018, .26265, 1.09153, .09564, .03151,
1793 + .01480, .07526, .13070,
1794 + .52785, .26023, 1.05979, .09465, .03214,
1795 + .01595, .07480, .12896,
1796 + .52562, .25798, 1.03118, .09370, .03264,
1797 + .01691, .07433, .12736,
1798 + .52250, .25508, .99524, .09244, .03315,
1799 + .01796, .07367, .12527,
1800 + .51942, .25233, .96229, .09122, .03355,
1801 + .01885, .07299, .12329,
1802 + .51645, .24974, .93232, .09007, .03385,
1803 + .01962, .07231, .12145 /
1804 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
1805 + .51324, .24712, .90275, .08887, .03407,
1806 + .02025, .07157, .11957,
1807 + .51005, .24456, .87470, .08770, .03423,
1808 + .02081, .07083, .11773,
1809 + .50694, .24212, .84887, .08657, .03434,
1810 + .02129, .07011, .11598,
1811 + .50389, .23979, .82499, .08549, .03438,
1812 + .02167, .06939, .11433,
1813 + .50083, .23747, .80177, .08441, .03441,
1814 + .02203, .06867, .11270,
1815 + .49766, .23516, .77934, .08332, .03438,
1816 + .02231, .06793, .11107,
1817 + .49467, .23300, .75875, .08230, .03435,
1818 + .02256, .06722, .10955,
1819 + .49170, .23092, .73956, .08132, .03427,
1820 + .02275, .06653, .10809 /
1821 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
1822 + .48872, .22885, .72080, .08035, .03419,
1823 + .02292, .06584, .10664,
1824 + .48571, .22678, .70267, .07937, .03407,
1825 + .02306, .06514, .10521,
1826 + .48282, .22482, .68583, .07844, .03396,
1827 + .02317, .06446, .10386,
1828 + .48006, .22296, .67025, .07757, .03383,
1829 + .02327, .06383, .10259,
1830 + .47719, .22108, .65476, .07667, .03368,
1831 + .02333, .06317, .10129 /
1832 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
1833 + .59109, .31453, 1.21452, .08231, .00000,
1834 + .00000, .05541, .13234,
1835 + .59200, .31242, 1.22011, .08239, .00000,
1836 + .00000, .05636, .13119,
1837 + .59239, .30905, 1.21468, .08233, .00146,
1838 + .00000, .05753, .12942,
1839 + .59211, .30646, 1.20233, .08219, .00433,
1840 + .00000, .05822, .12807,
1841 + .59129, .30360, 1.18581, .08193, .00655,
1842 + .00000, .05877, .12658,
1843 + .59019, .30106, 1.16888, .08161, .00828,
1844 + .00000, .05913, .12520,
1845 + .58888, .29857, 1.15112, .08125, .00987,
1846 + .00000, .05938, .12386,
1847 + .58725, .29589, 1.13093, .08081, .01144,
1848 + .00000, .05957, .12241 /
1849 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
1850 + .58557, .29349, 1.11200, .08038, .01264,
1851 + .00000, .05965, .12108,
1852 + .58378, .29115, 1.09294, .07990, .01372,
1853 + .00000, .05967, .11978,
1854 + .58228, .28929, 1.07767, .07951, .01453,
1855 + .00000, .05966, .11875,
1856 + .57869, .28528, 1.04188, .07863, .01607,
1857 + .00030, .05952, .11653,
1858 + .57529, .28178, 1.00779, .07778, .01721,
1859 + .00212, .05930, .11461,
1860 + .57119, .27783, .96963, .07678, .01834,
1861 + .00414, .05896, .11242,
1862 + .56660, .27369, .93064, .07568, .01934,
1863 + .00577, .05850, .11011,
1864 + .56221, .26992, .89594, .07462, .02011,
1865 + .00709, .05800, .10799 /
1866 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
1867 + .55759, .26610, .86172, .07351, .02077,
1868 + .00827, .05744, .10585,
1869 + .55357, .26294, .83388, .07257, .02123,
1870 + .00912, .05692, .10407,
1871 + .54853, .25909, .80093, .07139, .02169,
1872 + .01004, .05624, .10191,
1873 + .54397, .25569, .77270, .07034, .02204,
1874 + .01077, .05560, .10001,
1875 + .53971, .25260, .74760, .06938, .02230,
1876 + .01138, .05499, .09826,
1877 + .53412, .24865, .71654, .06810, .02254,
1878 + .01203, .05418, .09607,
1879 + .52879, .24496, .68846, .06690, .02271,
1880 + .01257, .05339, .09404,
1881 + .52376, .24155, .66318, .06578, .02283,
1882 + .01303, .05264, .09215 /
1883 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
1884 + .51858, .23811, .63859, .06464, .02289,
1885 + .01340, .05186, .09027,
1886 + .51349, .23479, .61548, .06353, .02291,
1887 + .01372, .05109, .08846,
1888 + .50863, .23168, .59440, .06249, .02290,
1889 + .01399, .05035, .08676,
1890 + .50397, .22874, .57512, .06150, .02285,
1891 + .01419, .04964, .08517,
1892 + .49932, .22584, .55650, .06053, .02280,
1893 + .01438, .04894, .08360,
1894 + .49465, .22296, .53866, .05956, .02271,
1895 + .01452, .04823, .08206,
1896 + .49026, .22028, .52236, .05866, .02262,
1897 + .01465, .04756, .08064,
1898 + .48602, .21773, .50732, .05779, .02251,
1899 + .01473, .04692, .07929 /
1900 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
1901 + .48180, .21519, .49270, .05694, .02239,
1902 + .01481, .04628, .07796,
1903 + .47757, .21268, .47865, .05609, .02226,
1904 + .01486, .04564, .07666,
1905 + .47355, .21032, .46566, .05529, .02213,
1906 + .01489, .04504, .07544,
1907 + .46974, .20810, .45371, .05454, .02200,
1908 + .01491, .04447, .07429,
1909 + .46583, .20585, .44191, .05378, .02185,
1910 + .01492, .04389, .07312 /
1911 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
1912 + .64336, .32644, 1.05342, .06795, .00000,
1913 + .00000, .04703, .11486,
1914 + .64116, .32268, 1.04606, .06765, .00000,
1915 + .00000, .04743, .11305,
1916 + .63712, .31702, 1.02563, .06709, .00110,
1917 + .00000, .04786, .11041,
1918 + .63371, .31292, 1.00510, .06662, .00326,
1919 + .00000, .04806, .10850,
1920 + .62968, .30852, .98150, .06606, .00490,
1921 + .00000, .04815, .10644,
1922 + .62588, .30471, .95969, .06550, .00617,
1923 + .00000, .04813, .10466,
1924 + .62206, .30105, .93811, .06494, .00733,
1925 + .00000, .04805, .10295,
1926 + .61783, .29718, .91470, .06431, .00845,
1927 + .00000, .04791, .10115 /
1928 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
1929 + .61395, .29379, .89373, .06372, .00931,
1930 + .00000, .04773, .09958,
1931 + .61007, .29053, .87325, .06312, .01006,
1932 + .00000, .04752, .09807,
1933 + .60695, .28796, .85714, .06264, .01064,
1934 + .00000, .04733, .09688,
1935 + .60002, .28253, .82107, .06159, .01170,
1936 + .00023, .04688, .09434,
1937 + .59387, .27788, .78830, .06065, .01247,
1938 + .00152, .04642, .09221,
1939 + .58682, .27269, .75240, .05955, .01322,
1940 + .00295, .04585, .08986,
1941 + .57928, .26734, .71638, .05838, .01387,
1942 + .00409, .04519, .08743,
1943 + .57229, .26256, .68485, .05730, .01436,
1944 + .00499, .04455, .08524 /
1945 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
1946 + .56515, .25777, .65420, .05620, .01477,
1947 + .00580, .04386, .08307,
1948 + .55913, .25384, .62962, .05528, .01504,
1949 + .00638, .04327, .08129,
1950 + .55175, .24909, .60086, .05414, .01530,
1951 + .00699, .04253, .07915,
1952 + .54520, .24494, .57649, .05313, .01548,
1953 + .00747, .04186, .07730,
1954 + .53919, .24120, .55500, .05221, .01561,
1955 + .00787, .04122, .07564,
1956 + .53143, .23649, .52874, .05103, .01571,
1957 + .00828, .04040, .07357,
1958 + .52414, .23213, .50524, .04994, .01577,
1959 + .00862, .03963, .07165,
1960 + .51737, .22811, .48427, .04894, .01580,
1961 + .00890, .03890, .06988 /
1962 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
1963 + .51047, .22412, .46404, .04792, .01578,
1964 + .00913, .03817, .06814,
1965 + .50378, .22028, .44517, .04695, .01575,
1966 + .00932, .03745, .06649,
1967 + .49748, .21669, .42807, .04603, .01569,
1968 + .00947, .03677, .06496,
1969 + .49151, .21334, .41257, .04516, .01562,
1970 + .00958, .03613, .06354,
1971 + .48559, .21005, .39769, .04432, .01553,
1972 + .00968, .03549, .06215,
1973 + .47972, .20679, .38353, .04348, .01543,
1974 + .00975, .03486, .06080,
1975 + .47423, .20377, .37065, .04270, .01532,
1976 + .00980, .03427, .05955,
1977 + .46896, .20093, .35885, .04197, .01521,
1978 + .00983, .03371, .05837 /
1979 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
1980 + .46372, .19812, .34741, .04125, .01509,
1981 + .00986, .03316, .05720,
1982 + .45854, .19535, .33649, .04055, .01497,
1983 + .00987, .03261, .05607,
1984 + .45364, .19275, .32643, .03988, .01485,
1985 + .00987, .03209, .05502,
1986 + .44904, .19031, .31721, .03926, .01473,
1987 + .00987, .03161, .05404,
1988 + .44434, .18786, .30816, .03862, .01460,
1989 + .00985, .03113, .05305 /
1990 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
1991 + .68144, .33031, .90969, .05627, .00000,
1992 + .00000, .03948, .09753,
1993 + .67599, .32511, .89499, .05577, .00000,
1994 + .00000, .03955, .09538,
1995 + .66734, .31753, .86665, .05497, .00084,
1996 + .00000, .03948, .09231,
1997 + .66079, .31210, .84227, .05436, .00248,
1998 + .00000, .03938, .09013,
1999 + .65357, .30639, .81563, .05364, .00371,
2000 + .00000, .03917, .08789,
2001 + .64714, .30150, .79204, .05299, .00465,
2002 + .00000, .03894, .08596,
2003 + .64088, .29685, .76931, .05234, .00551,
2004 + .00000, .03867, .08414,
2005 + .63415, .29197, .74524, .05162, .00633,
2006 + .00000, .03836, .08226 /
2007 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
2008 + .62816, .28778, .72415, .05098, .00695,
2009 + .00000, .03805, .08063,
2010 + .62229, .28377, .70392, .05035, .00749,
2011 + .00000, .03772, .07907,
2012 + .61765, .28064, .68817, .04985, .00790,
2013 + .00000, .03745, .07786,
2014 + .60763, .27405, .65384, .04877, .00864,
2015 + .00017, .03683, .07533,
2016 + .59896, .26848, .62360, .04782, .00917,
2017 + .00110, .03628, .07322,
2018 + .58919, .26236, .59096, .04674, .00968,
2019 + .00213, .03562, .07093,
2020 + .57898, .25611, .55865, .04562, .01010,
2021 + .00294, .03490, .06859,
2022 + .56971, .25055, .53070, .04460, .01042,
2023 + .00358, .03423, .06651 /
2024 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
2025 + .56038, .24505, .50382, .04356, .01067,
2026 + .00414, .03353, .06448,
2027 + .55265, .24053, .48249, .04270, .01083,
2028 + .00454, .03294, .06283,
2029 + .54323, .23516, .45776, .04166, .01097,
2030 + .00495, .03222, .06087,
2031 + .53497, .23052, .43699, .04075, .01107,
2032 + .00528, .03157, .05919,
2033 + .52748, .22634, .41884, .03991, .01113,
2034 + .00554, .03098, .05769,
2035 + .51795, .22109, .39683, .03886, .01116,
2036 + .00581, .03022, .05584,
2037 + .50907, .21627, .37729, .03789, .01116,
2038 + .00603, .02952, .05414,
2039 + .50085, .21186, .35999, .03701, .01114,
2040 + .00621, .02887, .05259 /
2041 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
2042 + .49263, .20750, .34344, .03612, .01109,
2043 + .00634, .02821, .05108,
2044 + .48470, .20333, .32810, .03527, .01103,
2045 + .00645, .02758, .04966,
2046 + .47729, .19945, .31429, .03448, .01096,
2047 + .00654, .02699, .04834,
2048 + .47030, .19586, .30184, .03374, .01088,
2049 + .00660, .02643, .04712,
2050 + .46339, .19235, .28992, .03302, .01079,
2051 + .00665, .02588, .04593,
2052 + .45659, .18890, .27867, .03231, .01069,
2053 + .00668, .02535, .04479,
2054 + .45027, .18570, .26849, .03166, .01060,
2055 + .00670, .02485, .04373,
2056 + .44426, .18270, .25919, .03105, .01049,
2057 + .00671, .02438, .04274 /
2058 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
2059 + .43832, .17973, .25021, .03045, .01039,
2060 + .00671, .02392, .04177,
2061 + .43246, .17684, .24167, .02986, .01028,
2062 + .00671, .02347, .04083,
2063 + .42692, .17413, .23384, .02931, .01018,
2064 + .00670, .02304, .03996,
2065 + .42174, .17160, .22669, .02880, .01007,
2066 + .00668, .02264, .03915,
2067 + .41651, .16905, .21972, .02827, .00996,
2068 + .00666, .02224, .03834 /
2069 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
2070 + .70624, .32778, .78547, .04682, .00000,
2071 + .00000, .03276, .08104,
2072 + .69765, .32130, .76658, .04620, .00000,
2073 + .00000, .03260, .07885,
2074 + .68460, .31204, .73416, .04527, .00065,
2075 + .00000, .03229, .07570,
2076 + .67506, .30547, .70821, .04456, .00190,
2077 + .00000, .03202, .07352,
2078 + .66483, .29868, .68067, .04380, .00283,
2079 + .00000, .03167, .07128,
2080 + .65593, .29290, .65684, .04308, .00354,
2081 + .00000, .03132, .06941,
2082 + .64739, .28747, .63426, .04240, .00417,
2083 + .00000, .03097, .06765,
2084 + .63834, .28182, .61070, .04167, .00478,
2085 + .00000, .03058, .06582 /
2086 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
2087 + .63043, .27697, .59043, .04103, .00522,
2088 + .00000, .03022, .06425,
2089 + .62279, .27237, .57118, .04040, .00561,
2090 + .00000, .02985, .06279,
2091 + .61679, .26879, .55630, .03990, .00591,
2092 + .00000, .02955, .06166,
2093 + .60400, .26133, .52456, .03885, .00643,
2094 + .00013, .02889, .05931,
2095 + .59313, .25506, .49718, .03794, .00680,
2096 + .00081, .02832, .05737,
2097 + .58104, .24824, .46796, .03692, .00714,
2098 + .00156, .02766, .05527,
2099 + .56855, .24134, .43937, .03587, .00742,
2100 + .00214, .02696, .05316,
2101 + .55735, .23524, .41491, .03492, .00762,
2102 + .00259, .02631, .05131 /
2103 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
2104 + .54617, .22924, .39162, .03397, .00778,
2105 + .00299, .02565, .04951,
2106 + .53698, .22436, .37328, .03320, .00787,
2107 + .00326, .02511, .04806,
2108 + .52593, .21859, .35218, .03225, .00794,
2109 + .00355, .02445, .04635,
2110 + .51631, .21361, .33460, .03144, .00798,
2111 + .00377, .02388, .04490,
2112 + .50761, .20915, .31935, .03072, .00800,
2113 + .00394, .02335, .04360,
2114 + .49667, .20360, .30100, .02979, .00799,
2115 + .00412, .02267, .04201,
2116 + .48655, .19853, .28482, .02895, .00797,
2117 + .00426, .02206, .04056,
2118 + .47726, .19392, .27057, .02819, .00793,
2119 + .00437, .02150, .03925 /
2120 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
2121 + .46802, .18938, .25705, .02742, .00787,
2122 + .00445, .02094, .03798,
2123 + .45915, .18506, .24460, .02670, .00780,
2124 + .00452, .02040, .03679,
2125 + .45089, .18105, .23347, .02603, .00773,
2126 + .00457, .01990, .03570,
2127 + .44319, .17735, .22347, .02541, .00765,
2128 + .00460, .01943, .03469,
2129 + .43561, .17373, .21394, .02479, .00757,
2130 + .00462, .01897, .03372,
2131 + .42818, .17020, .20498, .02420, .00748,
2132 + .00463, .01853, .03279,
2133 + .42127, .16694, .19689, .02366, .00740,
2134 + .00464, .01811, .03193,
2135 + .41475, .16390, .18956, .02315, .00731,
2136 + .00463, .01773, .03112 /
2137 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
2138 + .40831, .16091, .18251, .02265, .00722,
2139 + .00463, .01736, .03034,
2140 + .40201, .15800, .17585, .02216, .00713,
2141 + .00461, .01699, .02958,
2142 + .39608, .15527, .16977, .02171, .00704,
2143 + .00459, .01664, .02887,
2144 + .39054, .15273, .16423, .02129, .00696,
2145 + .00457, .01632, .02822,
2146 + .38495, .15019, .15883, .02087, .00687,
2147 + .00455, .01600, .02757 /
2148 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
2149 + .71901, .31996, .67942, .03908, .00000,
2150 + .00000, .02690, .06599,
2151 + .70740, .31248, .65810, .03843, .00000,
2152 + .00000, .02664, .06386,
2153 + .69026, .30184, .62373, .03742, .00050,
2154 + .00000, .02618, .06091,
2155 + .67797, .29439, .59746, .03667, .00146,
2156 + .00000, .02583, .05888,
2157 + .66501, .28672, .57010, .03587, .00217,
2158 + .00000, .02543, .05680,
2159 + .65387, .28029, .54680, .03518, .00270,
2160 + .00000, .02506, .05504,
2161 + .64329, .27426, .52502, .03450, .00317,
2162 + .00000, .02467, .05343,
2163 + .63220, .26802, .50257, .03378, .00362,
2164 + .00000, .02425, .05178 /
2165 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
2166 + .62261, .26269, .48348, .03315, .00394,
2167 + .00000, .02388, .05038,
2168 + .61342, .25767, .46554, .03254, .00422,
2169 + .00000, .02350, .04908,
2170 + .60623, .25379, .45177, .03207, .00443,
2171 + .00000, .02320, .04807,
2172 + .59110, .24570, .42285, .03108, .00480,
2173 + .00010, .02256, .04598,
2174 + .57836, .23898, .39835, .03022, .00506,
2175 + .00060, .02201, .04429,
2176 + .56432, .23171, .37249, .02927, .00529,
2177 + .00114, .02140, .04246,
2178 + .54997, .22438, .34742, .02831, .00547,
2179 + .00156, .02075, .04065,
2180 + .53718, .21796, .32617, .02746, .00560,
2181 + .00189, .02016, .03905 /
2182 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
2183 + .52452, .21171, .30610, .02662, .00569,
2184 + .00217, .01959, .03749,
2185 + .51423, .20660, .29044, .02592, .00574,
2186 + .00236, .01910, .03628,
2187 + .50192, .20060, .27258, .02509, .00577,
2188 + .00255, .01852, .03485,
2189 + .49125, .19546, .25778, .02438, .00578,
2190 + .00270, .01802, .03363,
2191 + .48167, .19088, .24500, .02374, .00578,
2192 + .00282, .01756, .03255,
2193 + .46966, .18522, .22977, .02297, .00575,
2194 + .00294, .01700, .03122,
2195 + .45867, .18006, .21643, .02224, .00571,
2196 + .00303, .01648, .03003,
2197 + .44865, .17536, .20476, .02156, .00567,
2198 + .00310, .01601, .02896 /
2199 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
2200 + .43868, .17079, .19377, .02092, .00561,
2201 + .00315, .01553, .02793,
2202 + .42916, .16645, .18368, .02032, .00554,
2203 + .00319, .01508, .02696,
2204 + .42036, .16244, .17469, .01976, .00548,
2205 + .00321, .01467, .02608,
2206 + .41216, .15875, .16668, .01924, .00541,
2207 + .00323, .01429, .02527,
2208 + .40413, .15516, .15909, .01873, .00534,
2209 + .00323, .01392, .02449,
2210 + .39632, .15167, .15198, .01825, .00526,
2211 + .00323, .01355, .02374,
2212 + .38910, .14844, .14558, .01780, .00519,
2213 + .00323, .01321, .02306,
2214 + .38230, .14544, .13980, .01737, .00512,
2215 + .00322, .01291, .02243 /
2216 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
2217 + .37560, .14249, .13426, .01695, .00505,
2218 + .00321, .01261, .02181,
2219 + .36906, .13964, .12905, .01654, .00498,
2220 + .00319, .01231, .02122,
2221 + .36293, .13697, .12431, .01617, .00491,
2222 + .00317, .01203, .02067,
2223 + .35722, .13450, .12000, .01582, .00484,
2224 + .00315, .01177, .02017,
2225 + .35149, .13202, .11582, .01546, .00477,
2226 + .00313, .01152, .01967 /
2227 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
2228 + .72084, .30798, .58886, .03270, .00000,
2229 + .00000, .02188, .05264,
2230 + .70648, .29973, .56620, .03201, .00000,
2231 + .00000, .02155, .05074,
2232 + .68566, .28805, .53117, .03098, .00038,
2233 + .00000, .02103, .04808,
2234 + .67088, .27999, .50523, .03027, .00112,
2235 + .00000, .02064, .04624,
2236 + .65550, .27173, .47864, .02948, .00166,
2237 + .00000, .02022, .04440,
2238 + .64245, .26480, .45634, .02879, .00206,
2239 + .00000, .01982, .04288,
2240 + .63015, .25835, .43571, .02814, .00241,
2241 + .00000, .01944, .04147,
2242 + .61732, .25171, .41466, .02746, .00274,
2243 + .00000, .01903, .04003 /
2244 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
2245 + .60632, .24608, .39696, .02686, .00298,
2246 + .00000, .01867, .03883,
2247 + .59585, .24077, .38048, .02630, .00318,
2248 + .00000, .01832, .03771,
2249 + .58770, .23668, .36791, .02586, .00333,
2250 + .00000, .01805, .03684,
2251 + .57062, .22826, .34179, .02495, .00359,
2252 + .00008, .01746, .03506,
2253 + .55635, .22131, .32009, .02418, .00377,
2254 + .00044, .01697, .03361,
2255 + .54077, .21380, .29737, .02333, .00392,
2256 + .00084, .01642, .03207,
2257 + .52499, .20628, .27553, .02246, .00404,
2258 + .00114, .01584, .03056,
2259 + .51103, .19972, .25720, .02170, .00412,
2260 + .00137, .01533, .02924 /
2261 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
2262 + .49729, .19333, .24004, .02097, .00417,
2263 + .00157, .01484, .02795,
2264 + .48615, .18820, .22674, .02036, .00419,
2265 + .00171, .01443, .02694,
2266 + .47296, .18214, .21170, .01963, .00420,
2267 + .00184, .01393, .02580,
2268 + .46161, .17696, .19933, .01900, .00419,
2269 + .00195, .01349, .02483,
2270 + .45147, .17239, .18871, .01843, .00418,
2271 + .00203, .01310, .02396,
2272 + .43879, .16674, .17613, .01776, .00415,
2273 + .00210, .01265, .02289,
2274 + .42720, .16163, .16519, .01715, .00411,
2275 + .00216, .01222, .02194,
2276 + .41665, .15702, .15566, .01659, .00406,
2277 + .00221, .01182, .02109 /
2278 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
2279 + .40631, .15250, .14673, .01605, .00401,
2280 + .00223, .01144, .02027,
2281 + .39648, .14823, .13858, .01553, .00395,
2282 + .00225, .01108, .01951,
2283 + .38741, .14430, .13137, .01505, .00389,
2284 + .00227, .01074, .01883,
2285 + .37900, .14071, .12495, .01461, .00384,
2286 + .00227, .01043, .01820,
2287 + .37078, .13721, .11888, .01418, .00378,
2288 + .00227, .01013, .01759,
2289 + .36278, .13384, .11328, .01378, .00372,
2290 + .00227, .00985, .01701,
2291 + .35540, .13074, .10825, .01342, .00366,
2292 + .00226, .00958, .01647,
2293 + .34849, .12785, .10371, .01308, .00360,
2294 + .00225, .00933, .01599 /
2295 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
2296 + .34170, .12503, .09936, .01274, .00354,
2297 + .00224, .00909, .01551,
2298 + .33511, .12229, .09528, .01241, .00348,
2299 + .00222, .00886, .01506,
2300 + .32895, .11974, .09158, .01210, .00343,
2301 + .00220, .00865, .01464,
2302 + .32322, .11738, .08822, .01181, .00338,
2303 + .00219, .00845, .01425,
2304 + .31748, .11503, .08498, .01153, .00332,
2305 + .00217, .00825, .01387 /
2306 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
2307 + .71259, .29311, .51101, .02761, .00000,
2308 + .00000, .01739, .04104,
2309 + .69590, .28425, .48763, .02690, .00000,
2310 + .00000, .01707, .03938,
2311 + .67192, .27186, .45272, .02586, .00030,
2312 + .00000, .01657, .03709,
2313 + .65512, .26331, .42753, .02512, .00086,
2314 + .00000, .01621, .03556,
2315 + .63776, .25464, .40204, .02435, .00127,
2316 + .00000, .01581, .03399,
2317 + .62311, .24741, .38100, .02369, .00157,
2318 + .00000, .01545, .03271,
2319 + .60939, .24072, .36172, .02307, .00183,
2320 + .00000, .01511, .03154,
2321 + .59517, .23386, .34222, .02242, .00207,
2322 + .00000, .01474, .03034 /
2323 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
2324 + .58304, .22808, .32601, .02187, .00225,
2325 + .00000, .01442, .02933,
2326 + .57158, .22263, .31102, .02134, .00239,
2327 + .00000, .01412, .02840,
2328 + .56270, .21843, .29967, .02091, .00250,
2329 + .00000, .01388, .02770,
2330 + .54415, .20986, .27635, .02010, .00268,
2331 + .00006, .01335, .02623,
2332 + .52883, .20278, .25725, .01937, .00280,
2333 + .00033, .01292, .02507,
2334 + .51217, .19518, .23746, .01859, .00291,
2335 + .00062, .01245, .02385,
2336 + .49537, .18764, .21861, .01781, .00298,
2337 + .00084, .01196, .02264,
2338 + .48060, .18109, .20292, .01715, .00303,
2339 + .00100, .01154, .02157 /
2340 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
2341 + .46614, .17477, .18833, .01650, .00305,
2342 + .00115, .01113, .02053,
2343 + .45452, .16968, .17710, .01595, .00306,
2344 + .00124, .01077, .01975,
2345 + .44076, .16372, .16452, .01533, .00305,
2346 + .00133, .01036, .01883,
2347 + .42895, .15866, .15424, .01481, .00304,
2348 + .00140, .01002, .01804,
2349 + .41844, .15418, .14546, .01436, .00302,
2350 + .00146, .00971, .01734,
2351 + .40545, .14867, .13511, .01376, .00299,
2352 + .00151, .00933, .01652,
2353 + .39361, .14370, .12617, .01323, .00295,
2354 + .00154, .00899, .01578,
2355 + .38287, .13924, .11843, .01277, .00291,
2356 + .00157, .00868, .01512 /
2357 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
2358 + .37236, .13489, .11125, .01233, .00286,
2359 + .00159, .00836, .01450,
2360 + .36242, .13078, .10472, .01190, .00281,
2361 + .00160, .00807, .01391,
2362 + .35330, .12703, .09896, .01149, .00277,
2363 + .00160, .00780, .01338,
2364 + .34486, .12360, .09386, .01112, .00272,
2365 + .00160, .00756, .01290,
2366 + .33663, .12028, .08905, .01076, .00267,
2367 + .00160, .00734, .01245,
2368 + .32867, .11707, .08461, .01043, .00262,
2369 + .00159, .00711, .01200,
2370 + .32134, .11412, .08064, .01012, .00258,
2371 + .00158, .00690, .01160,
2372 + .31450, .11140, .07709, .00985, .00253,
2373 + .00157, .00671, .01123 /
2374 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
2375 + .30779, .10873, .07370, .00958, .00248,
2376 + .00156, .00653, .01088,
2377 + .30128, .10616, .07053, .00932, .00244,
2378 + .00155, .00635, .01053,
2379 + .29520, .10377, .06766, .00908, .00240,
2380 + .00153, .00618, .01021,
2381 + .28956, .10156, .06507, .00885, .00235,
2382 + .00152, .00603, .00992,
2383 + .28395, .09937, .06258, .00862, .00231,
2384 + .00150, .00587, .00964 /
2385 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
2386 + .69623, .27539, .44271, .02291, .00000,
2387 + .00000, .01386, .03154,
2388 + .67747, .26621, .41921, .02221, .00000,
2389 + .00000, .01355, .03014,
2390 + .65086, .25339, .38501, .02124, .00023,
2391 + .00000, .01308, .02822,
2392 + .63236, .24463, .36094, .02055, .00065,
2393 + .00000, .01272, .02695,
2394 + .61336, .23579, .33691, .01984, .00096,
2395 + .00000, .01233, .02567,
2396 + .59747, .22844, .31731, .01922, .00118,
2397 + .00000, .01202, .02462,
2398 + .58266, .22163, .29952, .01864, .00137,
2399 + .00000, .01171, .02367,
2400 + .56739, .21470, .28170, .01805, .00155,
2401 + .00000, .01137, .02270 /
2402 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
2403 + .55441, .20890, .26699, .01756, .00167,
2404 + .00000, .01109, .02187,
2405 + .54218, .20347, .25353, .01709, .00178,
2406 + .00000, .01082, .02112,
2407 + .53273, .19929, .24339, .01671, .00185,
2408 + .00000, .01062, .02055,
2409 + .51319, .19075, .22283, .01597, .00198,
2410 + .00005, .01018, .01937,
2411 + .49708, .18376, .20616, .01535, .00206,
2412 + .00024, .00980, .01845,
2413 + .47968, .17629, .18904, .01469, .00213,
2414 + .00045, .00940, .01747,
2415 + .46227, .16888, .17293, .01402, .00218,
2416 + .00061, .00900, .01650,
2417 + .44705, .16248, .15964, .01344, .00220,
2418 + .00073, .00864, .01566 /
2419 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
2420 + .43222, .15631, .14738, .01288, .00222,
2421 + .00083, .00829, .01487,
2422 + .42031, .15138, .13799, .01242, .00221,
2423 + .00089, .00801, .01426,
2424 + .40632, .14563, .12755, .01189, .00220,
2425 + .00096, .00767, .01353,
2426 + .39438, .14076, .11907, .01145, .00219,
2427 + .00100, .00740, .01293,
2428 + .38378, .13645, .11186, .01104, .00217,
2429 + .00104, .00715, .01241,
2430 + .37069, .13118, .10344, .01056, .00214,
2431 + .00107, .00684, .01179,
2432 + .35886, .12644, .09620, .01012, .00210,
2433 + .00109, .00656, .01123,
2434 + .34818, .12220, .08996, .00972, .00207,
2435 + .00111, .00631, .01074 /
2436 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
2437 + .33776, .11810, .08420, .00935, .00203,
2438 + .00112, .00607, .01025,
2439 + .32792, .11424, .07900, .00900, .00199,
2440 + .00112, .00584, .00980,
2441 + .31890, .11072, .07443, .00868, .00195,
2442 + .00112, .00564, .00940,
2443 + .31058, .10750, .07041, .00840, .00191,
2444 + .00112, .00545, .00903,
2445 + .30249, .10438, .06663, .00813, .00188,
2446 + .00112, .00527, .00868,
2447 + .29471, .10140, .06315, .00785, .00184,
2448 + .00111, .00510, .00836,
2449 + .28756, .09866, .06003, .00760, .00180,
2450 + .00110, .00495, .00807,
2451 + .28092, .09612, .05727, .00737, .00177,
2452 + .00109, .00480, .00780 /
2453 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
2454 + .27443, .09365, .05465, .00714, .00173,
2455 + .00108, .00465, .00754,
2456 + .26815, .09127, .05219, .00693, .00170,
2457 + .00107, .00451, .00729,
2458 + .26232, .08907, .04997, .00673, .00166,
2459 + .00106, .00439, .00706,
2460 + .25691, .08703, .04797, .00654, .00163,
2461 + .00105, .00427, .00685,
2462 + .25149, .08501, .04604, .00637, .00160,
2463 + .00104, .00416, .00664 /
2464 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
2465 + .67234, .25616, .38238, .01900, .00000,
2466 + .00000, .01086, .02368,
2467 + .65197, .24683, .35921, .01834, .00000,
2468 + .00000, .01057, .02255,
2469 + .62330, .23388, .32631, .01742, .00017,
2470 + .00000, .01014, .02102,
2471 + .60354, .22506, .30364, .01676, .00049,
2472 + .00000, .00983, .02000,
2473 + .58338, .21616, .28125, .01611, .00072,
2474 + .00000, .00949, .01898,
2475 + .56659, .20884, .26321, .01554, .00088,
2476 + .00000, .00921, .01816,
2477 + .55099, .20212, .24701, .01502, .00102,
2478 + .00000, .00895, .01739,
2479 + .53498, .19530, .23094, .01451, .00115,
2480 + .00000, .00867, .01660 /
2481 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
2482 + .52147, .18956, .21779, .01406, .00124,
2483 + .00000, .00844, .01597,
2484 + .50878, .18420, .20582, .01363, .00131,
2485 + .00000, .00821, .01538,
2486 + .49901, .18009, .19686, .01331, .00137,
2487 + .00000, .00803, .01493,
2488 + .47887, .17173, .17889, .01266, .00145,
2489 + .00004, .00765, .01405,
2490 + .46237, .16493, .16453, .01210, .00151,
2491 + .00017, .00736, .01332,
2492 + .44464, .15771, .14992, .01151, .00155,
2493 + .00033, .00702, .01256,
2494 + .42697, .15057, .13626, .01094, .00158,
2495 + .00044, .00669, .01183,
2496 + .41161, .14442, .12509, .01044, .00159,
2497 + .00052, .00640, .01121 /
2498 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
2499 + .39675, .13850, .11487, .00996, .00160,
2500 + .00059, .00612, .01060,
2501 + .38483, .13380, .10712, .00959, .00159,
2502 + .00064, .00590, .01011,
2503 + .37091, .12834, .09852, .00913, .00158,
2504 + .00068, .00564, .00957,
2505 + .35903, .12374, .09158, .00877, .00156,
2506 + .00071, .00541, .00913,
2507 + .34849, .11969, .08573, .00847, .00155,
2508 + .00074, .00522, .00874,
2509 + .33561, .11473, .07894, .00807, .00152,
2510 + .00076, .00497, .00826,
2511 + .32399, .11029, .07313, .00771, .00149,
2512 + .00077, .00475, .00784,
2513 + .31353, .10632, .06813, .00739, .00146,
2514 + .00078, .00457, .00746 /
2515 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
2516 + .30341, .10250, .06355, .00707, .00143,
2517 + .00079, .00437, .00712,
2518 + .29385, .09892, .05943, .00678, .00140,
2519 + .00079, .00419, .00680,
2520 + .28506, .09565, .05583, .00654, .00137,
2521 + .00079, .00405, .00650,
2522 + .27704, .09267, .05268, .00630, .00134,
2523 + .00078, .00390, .00624,
2524 + .26927, .08980, .04973, .00607, .00131,
2525 + .00078, .00376, .00599,
2526 + .26181, .08705, .04703, .00585, .00128,
2527 + .00077, .00362, .00576,
2528 + .25497, .08454, .04462, .00566, .00125,
2529 + .00077, .00349, .00555,
2530 + .24863, .08223, .04248, .00547, .00123,
2531 + .00076, .00339, .00535 /
2532 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
2533 + .24243, .07998, .04044, .00530, .00120,
2534 + .00075, .00328, .00516,
2535 + .23646, .07781, .03854, .00513, .00117,
2536 + .00074, .00318, .00497,
2537 + .23091, .07580, .03684, .00498, .00115,
2538 + .00073, .00309, .00480,
2539 + .22578, .07395, .03531, .00484, .00113,
2540 + .00072, .00300, .00464,
2541 + .22069, .07213, .03385, .00470, .00110,
2542 + .00071, .00292, .00448 /
2543 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
2544 + .64229, .23582, .32835, .01553, .00000,
2545 + .00000, .00844, .01748,
2546 + .62078, .22645, .30593, .01492, .00000,
2547 + .00000, .00816, .01662,
2548 + .59065, .21361, .27482, .01408, .00013,
2549 + .00000, .00779, .01539,
2550 + .57004, .20488, .25376, .01347, .00037,
2551 + .00000, .00752, .01461,
2552 + .54908, .19619, .23328, .01289, .00053,
2553 + .00000, .00724, .01380,
2554 + .53169, .18904, .21695, .01241, .00065,
2555 + .00000, .00701, .01313,
2556 + .51566, .18248, .20241, .01195, .00075,
2557 + .00000, .00678, .01256,
2558 + .49929, .17581, .18808, .01146, .00084,
2559 + .00000, .00653, .01200 /
2560 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
2561 + .48549, .17024, .17648, .01108, .00091,
2562 + .00000, .00634, .01149,
2563 + .47258, .16506, .16600, .01072, .00096,
2564 + .00000, .00615, .01105,
2565 + .46266, .16111, .15820, .01045, .00100,
2566 + .00000, .00599, .01072,
2567 + .44239, .15307, .14267, .00985, .00106,
2568 + .00003, .00569, .01005,
2569 + .42576, .14660, .13045, .00942, .00109,
2570 + .00012, .00544, .00947,
2571 + .40801, .13971, .11813, .00895, .00112,
2572 + .00023, .00518, .00889,
2573 + .39043, .13293, .10669, .00846, .00113,
2574 + .00032, .00492, .00833,
2575 + .37522, .12712, .09741, .00804, .00114,
2576 + .00037, .00469, .00787 /
2577 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
2578 + .36053, .12157, .08899, .00764, .00114,
2579 + .00042, .00447, .00743,
2580 + .34880, .11716, .08264, .00734, .00113,
2581 + .00045, .00430, .00706,
2582 + .33515, .11204, .07566, .00697, .00112,
2583 + .00048, .00409, .00669,
2584 + .32360, .10774, .07005, .00666, .00111,
2585 + .00050, .00390, .00637,
2586 + .31341, .10397, .06534, .00639, .00109,
2587 + .00052, .00375, .00607,
2588 + .30094, .09939, .05991, .00606, .00107,
2589 + .00053, .00357, .00571,
2590 + .28972, .09530, .05529, .00578, .00104,
2591 + .00054, .00341, .00541,
2592 + .27965, .09165, .05135, .00554, .00102,
2593 + .00055, .00326, .00514 /
2594 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
2595 + .26991, .08814, .04774, .00528, .00100,
2596 + .00055, .00312, .00487,
2597 + .26077, .08485, .04451, .00505, .00097,
2598 + .00055, .00298, .00464,
2599 + .25245, .08187, .04170, .00485, .00095,
2600 + .00055, .00287, .00443,
2601 + .24483, .07916, .03925, .00466, .00093,
2602 + .00054, .00275, .00425,
2603 + .23746, .07656, .03696, .00448, .00091,
2604 + .00054, .00264, .00408,
2605 + .23042, .07407, .03487, .00431, .00088,
2606 + .00053, .00254, .00391,
2607 + .22397, .07180, .03301, .00415, .00086,
2608 + .00053, .00246, .00375,
2609 + .21798, .06971, .03138, .00403, .00084,
2610 + .00052, .00238, .00361 /
2611 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
2612 + .21215, .06768, .02982, .00390, .00082,
2613 + .00052, .00230, .00347,
2614 + .20656, .06574, .02838, .00377, .00081,
2615 + .00051, .00222, .00334,
2616 + .20139, .06394, .02709, .00364, .00079,
2617 + .00050, .00215, .00321,
2618 + .19662, .06229, .02593, .00352, .00077,
2619 + .00049, .00208, .00310,
2620 + .19187, .06065, .02481, .00342, .00075,
2621 + .00049, .00202, .00300 /
2622 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
2623 + .60729, .21479, .27966, .01247, .00000,
2624 + .00000, .00650, .01270,
2625 + .58500, .20564, .25845, .01192, .00000,
2626 + .00000, .00626, .01202,
2627 + .55399, .19312, .22954, .01117, .00009,
2628 + .00000, .00592, .01111,
2629 + .53286, .18468, .21032, .01066, .00027,
2630 + .00000, .00572, .01048,
2631 + .51156, .17625, .19188, .01014, .00039,
2632 + .00000, .00546, .00988,
2633 + .49394, .16938, .17729, .00973, .00047,
2634 + .00000, .00527, .00938,
2635 + .47774, .16309, .16442, .00935, .00055,
2636 + .00000, .00508, .00894,
2637 + .46126, .15671, .15186, .00895, .00061,
2638 + .00000, .00488, .00851 /
2639 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
2640 + .44745, .15139, .14178, .00860, .00065,
2641 + .00000, .00472, .00817,
2642 + .43458, .14647, .13274, .00829, .00069,
2643 + .00000, .00456, .00783,
2644 + .42472, .14273, .12605, .00805, .00072,
2645 + .00000, .00445, .00756,
2646 + .40455, .13513, .11286, .00760, .00076,
2647 + .00002, .00420, .00704,
2648 + .38816, .12901, .10259, .00722, .00078,
2649 + .00009, .00400, .00663,
2650 + .37076, .12255, .09231, .00679, .00080,
2651 + .00017, .00380, .00621,
2652 + .35354, .11623, .08287, .00641, .00080,
2653 + .00022, .00359, .00579,
2654 + .33870, .11082, .07528, .00607, .00080,
2655 + .00026, .00340, .00545 /
2656 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
2657 + .32449, .10563, .06843, .00574, .00080,
2658 + .00030, .00324, .00514,
2659 + .31314, .10156, .06327, .00549, .00079,
2660 + .00032, .00310, .00489,
2661 + .29998, .09687, .05766, .00521, .00078,
2662 + .00034, .00293, .00459,
2663 + .28888, .09292, .05320, .00497, .00077,
2664 + .00035, .00279, .00435,
2665 + .27912, .08945, .04946, .00476, .00076,
2666 + .00036, .00269, .00414,
2667 + .26723, .08526, .04516, .00449, .00074,
2668 + .00037, .00256, .00390,
2669 + .25657, .08153, .04153, .00426, .00072,
2670 + .00038, .00242, .00369,
2671 + .24704, .07822, .03844, .00406, .00071,
2672 + .00038, .00230, .00349 /
2673 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
2674 + .23783, .07505, .03564, .00388, .00069,
2675 + .00038, .00220, .00331,
2676 + .22922, .07209, .03314, .00370, .00067,
2677 + .00038, .00211, .00314,
2678 + .22139, .06941, .03096, .00355, .00065,
2679 + .00038, .00202, .00298,
2680 + .21427, .06697, .02908, .00340, .00064,
2681 + .00037, .00193, .00285,
2682 + .20739, .06463, .02732, .00326, .00062,
2683 + .00037, .00185, .00273,
2684 + .20083, .06241, .02572, .00313, .00060,
2685 + .00036, .00178, .00260,
2686 + .19484, .06040, .02431, .00301, .00059,
2687 + .00036, .00171, .00248,
2688 + .18931, .05853, .02305, .00290, .00057,
2689 + .00036, .00165, .00239 /
2690 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
2691 + .18393, .05672, .02187, .00280, .00056,
2692 + .00035, .00159, .00230,
2693 + .17876, .05500, .02078, .00270, .00055,
2694 + .00035, .00153, .00222,
2695 + .17398, .05340, .01980, .00261, .00053,
2696 + .00034, .00148, .00214,
2697 + .16958, .05194, .01893, .00252, .00052,
2698 + .00034, .00143, .00206,
2699 + .16525, .05051, .01809, .00243, .00051,
2700 + .00033, .00139, .00199 /
2701 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
2702 + .56814, .19397, .23592, .01004, .00000,
2703 + .00000, .00486, .00894,
2704 + .54551, .18512, .21618, .00953, .00000,
2705 + .00000, .00466, .00847,
2706 + .51425, .17305, .18981, .00885, .00007,
2707 + .00000, .00441, .00776,
2708 + .49303, .16496, .17261, .00839, .00019,
2709 + .00000, .00421, .00735,
2710 + .47172, .15696, .15624, .00798, .00028,
2711 + .00000, .00403, .00687,
2712 + .45423, .15040, .14346, .00760, .00034,
2713 + .00000, .00386, .00653,
2714 + .43818, .14443, .13229, .00727, .00039,
2715 + .00000, .00371, .00621,
2716 + .42189, .13841, .12148, .00693, .00044,
2717 + .00000, .00356, .00588 /
2718 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
2719 + .40830, .13341, .11284, .00665, .00047,
2720 + .00000, .00343, .00563,
2721 + .39564, .12880, .10516, .00640, .00049,
2722 + .00000, .00331, .00539,
2723 + .38596, .12530, .09951, .00620, .00051,
2724 + .00000, .00321, .00520,
2725 + .36628, .11824, .08845, .00582, .00053,
2726 + .00002, .00303, .00481,
2727 + .35039, .11255, .07993, .00550, .00055,
2728 + .00006, .00288, .00452,
2729 + .33354, .10657, .07151, .00517, .00056,
2730 + .00012, .00272, .00421,
2731 + .31698, .10072, .06382, .00485, .00056,
2732 + .00016, .00256, .00393,
2733 + .30277, .09574, .05768, .00456, .00056,
2734 + .00019, .00242, .00370 /
2735 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
2736 + .28916, .09101, .05219, .00430, .00056,
2737 + .00021, .00228, .00349,
2738 + .27837, .08729, .04810, .00412, .00055,
2739 + .00022, .00217, .00329,
2740 + .26592, .08301, .04363, .00387, .00054,
2741 + .00024, .00206, .00308,
2742 + .25543, .07943, .04009, .00367, .00053,
2743 + .00024, .00197, .00290,
2744 + .24620, .07631, .03716, .00352, .00052,
2745 + .00025, .00188, .00275,
2746 + .23501, .07252, .03380, .00332, .00051,
2747 + .00026, .00177, .00260,
2748 + .22502, .06916, .03098, .00314, .00050,
2749 + .00026, .00168, .00245,
2750 + .21613, .06619, .02860, .00298, .00048,
2751 + .00026, .00160, .00232 /
2752 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
2753 + .20760, .06336, .02644, .00282, .00047,
2754 + .00026, .00152, .00219,
2755 + .19962, .06072, .02451, .00269, .00046,
2756 + .00026, .00144, .00207,
2757 + .19238, .05834, .02285, .00257, .00044,
2758 + .00026, .00138, .00196,
2759 + .18580, .05617, .02141, .00246, .00043,
2760 + .00025, .00132, .00188,
2761 + .17948, .05410, .02008, .00234, .00042,
2762 + .00025, .00127, .00180,
2763 + .17344, .05214, .01887, .00225, .00041,
2764 + .00025, .00122, .00171,
2765 + .16794, .05036, .01780, .00216, .00040,
2766 + .00024, .00117, .00164,
2767 + .16289, .04873, .01686, .00208, .00039,
2768 + .00024, .00113, .00157 /
2769 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
2770 + .15798, .04715, .01597, .00200, .00038,
2771 + .00024, .00108, .00149,
2772 + .15328, .04563, .01515, .00192, .00037,
2773 + .00023, .00104, .00143,
2774 + .14894, .04424, .01441, .00186, .00036,
2775 + .00023, .00101, .00138,
2776 + .14495, .04297, .01376, .00180, .00035,
2777 + .00023, .00097, .00133,
2778 + .14100, .04171, .01313, .00174, .00034,
2779 + .00022, .00094, .00129 /
2780 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
2781 + .52631, .17326, .19655, .00782, .00000,
2782 + .00000, .00362, .00623,
2783 + .50366, .16487, .17868, .00741, .00000,
2784 + .00000, .00345, .00587,
2785 + .47260, .15347, .15516, .00686, .00005,
2786 + .00000, .00322, .00537,
2787 + .45161, .14588, .14003, .00648, .00014,
2788 + .00000, .00306, .00505,
2789 + .43065, .13837, .12579, .00615, .00020,
2790 + .00000, .00291, .00471,
2791 + .41350, .13222, .11479, .00584, .00024,
2792 + .00000, .00278, .00447,
2793 + .39784, .12667, .10525, .00556, .00027,
2794 + .00000, .00266, .00424,
2795 + .38199, .12110, .09608, .00529, .00031,
2796 + .00000, .00254, .00400 /
2797 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
2798 + .36879, .11647, .08883, .00509, .00033,
2799 + .00000, .00246, .00380,
2800 + .35659, .11219, .08241, .00487, .00034,
2801 + .00000, .00236, .00363,
2802 + .34729, .10893, .07770, .00469, .00035,
2803 + .00000, .00228, .00351,
2804 + .32840, .10243, .06861, .00439, .00037,
2805 + .00001, .00214, .00325,
2806 + .31320, .09722, .06166, .00414, .00038,
2807 + .00004, .00202, .00303,
2808 + .29715, .09176, .05484, .00387, .00039,
2809 + .00008, .00189, .00282,
2810 + .28145, .08645, .04867, .00361, .00039,
2811 + .00011, .00178, .00262,
2812 + .26802, .08194, .04377, .00338, .00039,
2813 + .00013, .00168, .00245 /
2814 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
2815 + .25522, .07767, .03942, .00318, .00038,
2816 + .00014, .00158, .00229,
2817 + .24507, .07433, .03620, .00304, .00038,
2818 + .00015, .00150, .00216,
2819 + .23339, .07048, .03271, .00286, .00037,
2820 + .00016, .00142, .00201,
2821 + .22361, .06727, .02996, .00272, .00036,
2822 + .00017, .00135, .00190,
2823 + .21505, .06447, .02768, .00259, .00036,
2824 + .00017, .00128, .00180,
2825 + .20468, .06111, .02509, .00243, .00035,
2826 + .00017, .00121, .00169,
2827 + .19546, .05814, .02293, .00230, .00034,
2828 + .00018, .00114, .00158,
2829 + .18727, .05552, .02111, .00218, .00033,
2830 + .00018, .00108, .00148 /
2831 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
2832 + .17941, .05301, .01946, .00207, .00032,
2833 + .00018, .00102, .00140,
2834 + .17210, .05068, .01801, .00197, .00031,
2835 + .00018, .00097, .00133,
2836 + .16550, .04858, .01675, .00187, .00030,
2837 + .00017, .00092, .00127,
2838 + .15953, .04669, .01567, .00178, .00029,
2839 + .00017, .00088, .00120,
2840 + .15380, .04488, .01466, .00168, .00028,
2841 + .00017, .00084, .00114,
2842 + .14832, .04318, .01376, .00162, .00027,
2843 + .00017, .00081, .00108,
2844 + .14333, .04163, .01296, .00157, .00027,
2845 + .00016, .00078, .00103,
2846 + .13878, .04021, .01225, .00150, .00026,
2847 + .00016, .00075, .00099 /
2848 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
2849 + .13439, .03883, .01159, .00143, .00025,
2850 + .00016, .00071, .00095,
2851 + .13017, .03751, .01098, .00137, .00024,
2852 + .00016, .00068, .00091,
2853 + .12627, .03630, .01044, .00132, .00024,
2854 + .00015, .00066, .00088,
2855 + .12269, .03520, .00995, .00128, .00023,
2856 + .00015, .00064, .00084,
2857 + .11916, .03412, .00949, .00123, .00023,
2858 + .00015, .00062, .00081 /
2859 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
2860 + .48245, .15316, .16136, .00595, .00000,
2861 + .00000, .00267, .00428,
2862 + .46019, .14530, .14546, .00562, .00000,
2863 + .00000, .00255, .00400,
2864 + .42983, .13465, .12489, .00514, .00003,
2865 + .00000, .00234, .00368,
2866 + .40941, .12758, .11188, .00485, .00009,
2867 + .00000, .00223, .00343,
2868 + .38914, .12059, .09975, .00457, .00014,
2869 + .00000, .00211, .00320,
2870 + .37261, .11494, .09046, .00433, .00016,
2871 + .00000, .00200, .00300,
2872 + .35755, .10982, .08246, .00410, .00019,
2873 + .00000, .00191, .00285,
2874 + .34238, .10468, .07483, .00388, .00021,
2875 + .00000, .00183, .00270 /
2876 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
2877 + .32976, .10047, .06886, .00371, .00022,
2878 + .00000, .00174, .00257,
2879 + .31811, .09658, .06360, .00355, .00023,
2880 + .00000, .00167, .00244,
2881 + .30925, .09363, .05977, .00343, .00024,
2882 + .00000, .00161, .00235,
2883 + .29135, .08770, .05242, .00318, .00025,
2884 + .00001, .00151, .00218,
2885 + .27699, .08300, .04687, .00300, .00026,
2886 + .00003, .00143, .00202,
2887 + .26193, .07808, .04143, .00278, .00026,
2888 + .00006, .00135, .00187,
2889 + .24722, .07330, .03656, .00258, .00026,
2890 + .00007, .00125, .00174,
2891 + .23467, .06928, .03274, .00243, .00026,
2892 + .00009, .00117, .00163 /
2893 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
2894 + .22277, .06548, .02936, .00226, .00026,
2895 + .00010, .00110, .00152,
2896 + .21343, .06249, .02686, .00213, .00025,
2897 + .00010, .00104, .00143,
2898 + .20268, .05909, .02418, .00199, .00025,
2899 + .00011, .00098, .00133,
2900 + .19368, .05626, .02208, .00189, .00024,
2901 + .00011, .00093, .00125,
2902 + .18582, .05380, .02034, .00179, .00024,
2903 + .00012, .00089, .00119,
2904 + .17633, .05085, .01838, .00168, .00023,
2905 + .00012, .00084, .00110,
2906 + .16794, .04824, .01675, .00158, .00022,
2907 + .00012, .00079, .00103,
2908 + .16051, .04593, .01538, .00149, .00022,
2909 + .00012, .00075, .00097 /
2910 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
2911 + .15341, .04375, .01414, .00140, .00021,
2912 + .00012, .00070, .00093,
2913 + .14681, .04174, .01306, .00132, .00020,
2914 + .00012, .00067, .00087,
2915 + .14088, .03993, .01212, .00125, .00020,
2916 + .00012, .00064, .00082,
2917 + .13551, .03829, .01132, .00119, .00019,
2918 + .00011, .00061, .00078,
2919 + .13035, .03673, .01057, .00113, .00018,
2920 + .00011, .00058, .00074,
2921 + .12546, .03525, .00990, .00108, .00018,
2922 + .00011, .00055, .00071,
2923 + .12101, .03392, .00931, .00103, .00017,
2924 + .00011, .00052, .00068,
2925 + .11694, .03270, .00879, .00100, .00017,
2926 + .00011, .00050, .00064 /
2927 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
2928 + .11300, .03153, .00831, .00097, .00016,
2929 + .00010, .00048, .00061,
2930 + .10925, .03042, .00786, .00093, .00016,
2931 + .00010, .00046, .00059,
2932 + .10581, .02940, .00746, .00089, .00015,
2933 + .00010, .00044, .00057,
2934 + .10266, .02846, .00711, .00085, .00015,
2935 + .00010, .00042, .00055,
2936 + .09955, .02754, .00677, .00082, .00015,
2937 + .00010, .00041, .00052 /
2938 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
2939 + .43766, .13398, .13040, .00446, .00000,
2940 + .00000, .00192, .00287,
2941 + .41612, .12668, .11660, .00416, .00000,
2942 + .00000, .00182, .00272,
2943 + .38680, .11687, .09898, .00382, .00002,
2944 + .00000, .00170, .00243,
2945 + .36728, .11037, .08798, .00357, .00006,
2946 + .00000, .00159, .00228,
2947 + .34792, .10399, .07786, .00332, .00009,
2948 + .00000, .00150, .00213,
2949 + .33220, .09884, .07016, .00312, .00011,
2950 + .00000, .00144, .00201,
2951 + .31792, .09419, .06360, .00294, .00013,
2952 + .00000, .00137, .00190,
2953 + .30356, .08954, .05741, .00278, .00014,
2954 + .00000, .00130, .00178 /
2955 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
2956 + .29167, .08573, .05257, .00265, .00015,
2957 + .00000, .00125, .00169,
2958 + .28073, .08222, .04835, .00252, .00016,
2959 + .00000, .00120, .00161,
2960 + .27243, .07956, .04529, .00242, .00016,
2961 + .00000, .00116, .00155,
2962 + .25571, .07426, .03945, .00224, .00017,
2963 + .00001, .00106, .00144,
2964 + .24237, .07005, .03509, .00208, .00017,
2965 + .00002, .00101, .00135,
2966 + .22840, .06567, .03086, .00192, .00017,
2967 + .00004, .00094, .00124,
2968 + .21483, .06145, .02710, .00178, .00017,
2969 + .00005, .00087, .00115,
2970 + .20330, .05790, .02416, .00166, .00017,
2971 + .00006, .00082, .00107 /
2972 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
2973 + .19239, .05456, .02157, .00155, .00017,
2974 + .00006, .00078, .00098,
2975 + .18387, .05196, .01968, .00145, .00017,
2976 + .00007, .00074, .00093,
2977 + .17406, .04897, .01766, .00136, .00016,
2978 + .00007, .00069, .00087,
2979 + .16587, .04650, .01608, .00129, .00016,
2980 + .00007, .00065, .00082,
2981 + .15875, .04437, .01478, .00122, .00015,
2982 + .00008, .00062, .00077,
2983 + .15025, .04181, .01331, .00113, .00015,
2984 + .00008, .00058, .00072,
2985 + .14270, .03956, .01210, .00105, .00014,
2986 + .00008, .00055, .00068,
2987 + .13602, .03759, .01108, .00099, .00014,
2988 + .00008, .00052, .00064 /
2989 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
2990 + .12968, .03571, .01017, .00094, .00014,
2991 + .00008, .00049, .00059,
2992 + .12379, .03398, .00937, .00089, .00013,
2993 + .00008, .00046, .00055,
2994 + .11848, .03243, .00868, .00085, .00013,
2995 + .00008, .00043, .00052,
2996 + .11372, .03104, .00809, .00080, .00012,
2997 + .00007, .00042, .00050,
2998 + .10917, .02971, .00755, .00076, .00012,
2999 + .00007, .00040, .00047,
3000 + .10487, .02846, .00706, .00071, .00011,
3001 + .00007, .00038, .00045,
3002 + .10098, .02734, .00663, .00067, .00011,
3003 + .00007, .00036, .00043,
3004 + .09740, .02631, .00625, .00065, .00011,
3005 + .00007, .00034, .00041 /
3006 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
3007 + .09395, .02532, .00590, .00063, .00010,
3008 + .00007, .00033, .00039,
3009 + .09067, .02438, .00558, .00060, .00010,
3010 + .00007, .00032, .00037,
3011 + .08767, .02352, .00529, .00057, .00010,
3012 + .00007, .00031, .00036,
3013 + .08493, .02273, .00503, .00054, .00010,
3014 + .00006, .00029, .00034,
3015 + .08222, .02197, .00479, .00052, .00009,
3016 + .00006, .00028, .00033 /
3017 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
3018 + .39276, .11608, .10368, .00338, .00000,
3019 + .00000, .00130, .00183,
3020 + .37222, .10945, .09201, .00315, .00000,
3021 + .00000, .00120, .00173,
3022 + .34446, .10052, .07729, .00284, .00002,
3023 + .00000, .00111, .00155,
3024 + .32601, .09465, .06823, .00265, .00004,
3025 + .00000, .00107, .00142,
3026 + .30779, .08889, .05998, .00248, .00006,
3027 + .00000, .00099, .00133,
3028 + .29304, .08426, .05375, .00233, .00007,
3029 + .00000, .00094, .00125,
3030 + .27970, .08009, .04847, .00219, .00008,
3031 + .00000, .00089, .00118,
3032 + .26635, .07594, .04351, .00204, .00009,
3033 + .00000, .00084, .00112 /
3034 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
3035 + .25533, .07254, .03968, .00195, .00010,
3036 + .00000, .00080, .00106,
3037 + .24520, .06942, .03636, .00186, .00010,
3038 + .00000, .00076, .00100,
3039 + .23752, .06707, .03396, .00180, .00011,
3040 + .00000, .00074, .00095,
3041 + .22217, .06238, .02941, .00162, .00011,
3042 + .00000, .00067, .00088,
3043 + .20989, .05868, .02604, .00153, .00011,
3044 + .00001, .00063, .00081,
3045 + .19714, .05484, .02280, .00141, .00011,
3046 + .00003, .00059, .00075,
3047 + .18479, .05115, .01992, .00131, .00011,
3048 + .00003, .00054, .00068,
3049 + .17435, .04806, .01770, .00122, .00011,
3050 + .00004, .00051, .00062 /
3051 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
3052 + .16452, .04515, .01576, .00112, .00011,
3053 + .00004, .00048, .00058,
3054 + .15680, .04289, .01433, .00107, .00011,
3055 + .00005, .00045, .00054,
3056 + .14800, .04032, .01282, .00099, .00011,
3057 + .00005, .00041, .00052,
3058 + .14070, .03819, .01164, .00093, .00010,
3059 + .00005, .00039, .00049,
3060 + .13438, .03636, .01068, .00088, .00010,
3061 + .00005, .00038, .00045,
3062 + .12680, .03416, .00960, .00081, .00010,
3063 + .00005, .00035, .00042,
3064 + .12010, .03223, .00870, .00076, .00009,
3065 + .00005, .00033, .00039,
3066 + .11417, .03054, .00795, .00073, .00009,
3067 + .00005, .00031, .00038 /
3068 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
3069 + .10859, .02896, .00729, .00067, .00009,
3070 + .00005, .00028, .00035,
3071 + .10342, .02750, .00670, .00063, .00008,
3072 + .00005, .00026, .00033,
3073 + .09877, .02619, .00620, .00061, .00008,
3074 + .00005, .00026, .00030,
3075 + .09461, .02501, .00577, .00058, .00008,
3076 + .00005, .00025, .00028,
3077 + .09065, .02389, .00538, .00054, .00008,
3078 + .00005, .00024, .00027,
3079 + .08690, .02284, .00502, .00052, .00007,
3080 + .00005, .00023, .00025,
3081 + .08350, .02189, .00471, .00050, .00007,
3082 + .00005, .00021, .00024,
3083 + .08041, .02103, .00444, .00047, .00007,
3084 + .00005, .00020, .00023 /
3085 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
3086 + .07743, .02021, .00418, .00045, .00007,
3087 + .00004, .00019, .00022,
3088 + .07461, .01943, .00395, .00043, .00006,
3089 + .00004, .00018, .00021,
3090 + .07201, .01871, .00374, .00041, .00006,
3091 + .00004, .00017, .00020,
3092 + .06965, .01806, .00355, .00039, .00006,
3093 + .00004, .00017, .00020,
3094 + .06732, .01743, .00338, .00038, .00006,
3095 + .00004, .00016, .00019 /
3096 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
3097 + .34833, .09911, .08058, .00231, .00000,
3098 + .00000, .00094, .00122,
3099 + .32905, .09313, .07097, .00216, .00000,
3100 + .00000, .00089, .00112,
3101 + .30300, .08515, .05899, .00196, .00001,
3102 + .00000, .00081, .00102,
3103 + .28587, .07993, .05172, .00179, .00003,
3104 + .00000, .00075, .00094,
3105 + .26895, .07482, .04516, .00167, .00004,
3106 + .00000, .00070, .00089,
3107 + .25535, .07071, .04024, .00156, .00005,
3108 + .00000, .00065, .00084,
3109 + .24306, .06703, .03611, .00147, .00005,
3110 + .00000, .00062, .00078,
3111 + .23078, .06339, .03226, .00139, .00006,
3112 + .00000, .00059, .00072 /
3113 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
3114 + .22067, .06041, .02930, .00132, .00006,
3115 + .00000, .00055, .00068,
3116 + .21144, .05769, .02674, .00124, .00006,
3117 + .00000, .00053, .00064,
3118 + .20447, .05565, .02491, .00119, .00007,
3119 + .00000, .00051, .00061,
3120 + .19051, .05158, .02144, .00109, .00007,
3121 + .00000, .00046, .00055,
3122 + .17944, .04836, .01891, .00101, .00007,
3123 + .00001, .00043, .00051,
3124 + .16796, .04504, .01648, .00092, .00007,
3125 + .00002, .00039, .00049,
3126 + .15689, .04187, .01434, .00086, .00007,
3127 + .00002, .00036, .00045,
3128 + .14755, .03921, .01269, .00080, .00007,
3129 + .00002, .00034, .00041 /
3130 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
3131 + .13878, .03673, .01126, .00073, .00007,
3132 + .00003, .00032, .00037,
3133 + .13194, .03481, .01022, .00069, .00007,
3134 + .00003, .00030, .00035,
3135 + .12414, .03262, .00911, .00065, .00007,
3136 + .00003, .00028, .00033,
3137 + .11769, .03082, .00826, .00062, .00006,
3138 + .00003, .00026, .00031,
3139 + .11213, .02928, .00755, .00058, .00006,
3140 + .00003, .00024, .00029,
3141 + .10549, .02742, .00678, .00053, .00006,
3142 + .00003, .00023, .00026,
3143 + .09964, .02581, .00613, .00049, .00006,
3144 + .00003, .00021, .00024,
3145 + .09450, .02440, .00559, .00046, .00006,
3146 + .00003, .00020, .00021 /
3147 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
3148 + .08964, .02307, .00512, .00043, .00005,
3149 + .00003, .00019, .00021,
3150 + .08516, .02185, .00470, .00040, .00005,
3151 + .00003, .00017, .00020,
3152 + .08115, .02076, .00434, .00038, .00005,
3153 + .00003, .00016, .00020,
3154 + .07755, .01979, .00404, .00037, .00005,
3155 + .00003, .00015, .00018,
3156 + .07412, .01886, .00375, .00036, .00005,
3157 + .00003, .00014, .00017,
3158 + .07091, .01800, .00350, .00034, .00005,
3159 + .00003, .00013, .00016,
3160 + .06802, .01722, .00328, .00032, .00004,
3161 + .00003, .00013, .00014,
3162 + .06538, .01652, .00309, .00030, .00004,
3163 + .00003, .00012, .00014 /
3164 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
3165 + .06285, .01584, .00291, .00028, .00004,
3166 + .00003, .00012, .00013,
3167 + .06044, .01520, .00274, .00026, .00004,
3168 + .00003, .00011, .00013,
3169 + .05824, .01461, .00259, .00025, .00004,
3170 + .00003, .00011, .00012,
3171 + .05624, .01408, .00246, .00024, .00004,
3172 + .00003, .00010, .00012,
3173 + .05428, .01357, .00234, .00023, .00004,
3174 + .00003, .00010, .00012 /
3175 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
3176 + .30520, .08360, .06132, .00156, .00000,
3177 + .00000, .00065, .00080,
3178 + .28731, .07829, .05359, .00144, .00000,
3179 + .00000, .00063, .00075,
3180 + .26331, .07125, .04410, .00131, .00001,
3181 + .00000, .00054, .00066,
3182 + .24757, .06666, .03840, .00121, .00002,
3183 + .00000, .00052, .00060,
3184 + .23214, .06217, .03330, .00111, .00002,
3185 + .00000, .00048, .00057,
3186 + .21971, .05863, .02953, .00103, .00003,
3187 + .00000, .00045, .00052,
3188 + .20855, .05544, .02636, .00096, .00003,
3189 + .00000, .00041, .00049,
3190 + .19746, .05226, .02343, .00090, .00004,
3191 + .00000, .00038, .00046 /
3192 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
3193 + .18837, .04968, .02120, .00086, .00004,
3194 + .00000, .00037, .00043,
3195 + .18007, .04733, .01928, .00081, .00004,
3196 + .00000, .00036, .00040,
3197 + .17381, .04555, .01790, .00077, .00004,
3198 + .00000, .00035, .00039,
3199 + .16128, .04207, .01533, .00071, .00004,
3200 + .00000, .00033, .00036,
3201 + .15144, .03932, .01346, .00066, .00004,
3202 + .00001, .00029, .00033,
3203 + .14123, .03650, .01169, .00060, .00004,
3204 + .00001, .00026, .00030,
3205 + .13144, .03381, .01014, .00054, .00004,
3206 + .00001, .00024, .00028,
3207 + .12324, .03156, .00894, .00050, .00004,
3208 + .00002, .00023, .00025 /
3209 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
3210 + .11555, .02946, .00791, .00046, .00004,
3211 + .00002, .00021, .00024,
3212 + .10956, .02785, .00716, .00043, .00004,
3213 + .00002, .00020, .00022,
3214 + .10279, .02602, .00637, .00039, .00004,
3215 + .00002, .00018, .00021,
3216 + .09719, .02452, .00576, .00037, .00004,
3217 + .00002, .00017, .00019,
3218 + .09235, .02323, .00526, .00035, .00004,
3219 + .00002, .00016, .00018,
3220 + .08659, .02170, .00471, .00033, .00004,
3221 + .00002, .00015, .00017,
3222 + .08155, .02036, .00425, .00031, .00004,
3223 + .00002, .00014, .00015,
3224 + .07713, .01920, .00387, .00029, .00003,
3225 + .00002, .00013, .00014 /
3226 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
3227 + .07297, .01811, .00354, .00027, .00003,
3228 + .00002, .00012, .00013,
3229 + .06915, .01711, .00325, .00025, .00003,
3230 + .00002, .00011, .00012,
3231 + .06576, .01621, .00300, .00023, .00003,
3232 + .00002, .00011, .00011,
3233 + .06270, .01542, .00278, .00022, .00003,
3234 + .00002, .00010, .00011,
3235 + .05978, .01467, .00258, .00021, .00003,
3236 + .00002, .00010, .00010,
3237 + .05707, .01397, .00241, .00020, .00003,
3238 + .00002, .00009, .00010,
3239 + .05464, .01333, .00225, .00018, .00003,
3240 + .00002, .00008, .00010,
3241 + .05242, .01276, .00212, .00017, .00003,
3242 + .00002, .00008, .00009 /
3243 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
3244 + .05028, .01222, .00199, .00016, .00002,
3245 + .00002, .00007, .00009,
3246 + .04827, .01170, .00188, .00016, .00002,
3247 + .00002, .00007, .00008,
3248 + .04643, .01123, .00177, .00015, .00002,
3249 + .00002, .00007, .00008,
3250 + .04476, .01081, .00168, .00014, .00002,
3251 + .00002, .00007, .00008,
3252 + .04313, .01039, .00160, .00013, .00002,
3253 + .00002, .00006, .00007 /
3254 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
3255 + .26408, .06970, .04565, .00112, .00000,
3256 + .00000, .00040, .00046,
3257 + .24778, .06507, .03960, .00101, .00000,
3258 + .00000, .00038, .00043,
3259 + .22596, .05894, .03231, .00092, .00000,
3260 + .00000, .00034, .00039,
3261 + .21171, .05496, .02795, .00086, .00001,
3262 + .00000, .00032, .00035,
3263 + .19783, .05109, .02408, .00076, .00001,
3264 + .00000, .00028, .00032,
3265 + .18671, .04802, .02125, .00071, .00002,
3266 + .00000, .00026, .00030,
3267 + .17674, .04528, .01890, .00066, .00002,
3268 + .00000, .00025, .00028,
3269 + .16685, .04257, .01673, .00062, .00002,
3270 + .00000, .00024, .00026 /
3271 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
3272 + .15876, .04036, .01507, .00059, .00002,
3273 + .00000, .00022, .00025,
3274 + .15140, .03837, .01367, .00055, .00002,
3275 + .00000, .00020, .00023,
3276 + .14586, .03688, .01266, .00053, .00002,
3277 + .00000, .00019, .00022,
3278 + .13486, .03393, .01080, .00047, .00003,
3279 + .00000, .00018, .00021,
3280 + .12620, .03161, .00945, .00045, .00003,
3281 + .00000, .00016, .00019,
3282 + .11728, .02924, .00817, .00040, .00003,
3283 + .00001, .00015, .00017,
3284 + .10877, .02699, .00706, .00035, .00003,
3285 + .00001, .00014, .00016,
3286 + .10164, .02511, .00622, .00033, .00003,
3287 + .00001, .00012, .00014 /
3288 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
3289 + .09497, .02337, .00549, .00032, .00003,
3290 + .00001, .00012, .00013,
3291 + .08981, .02203, .00496, .00031, .00002,
3292 + .00001, .00011, .00012,
3293 + .08400, .02052, .00440, .00027, .00002,
3294 + .00001, .00010, .00011,
3295 + .07921, .01929, .00397, .00025, .00002,
3296 + .00001, .00009, .00011,
3297 + .07510, .01823, .00363, .00023, .00002,
3298 + .00001, .00009, .00009,
3299 + .07020, .01698, .00324, .00021, .00002,
3300 + .00001, .00008, .00009,
3301 + .06593, .01588, .00292, .00019, .00002,
3302 + .00001, .00007, .00008,
3303 + .06220, .01493, .00266, .00018, .00002,
3304 + .00001, .00007, .00008 /
3305 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
3306 + .05868, .01405, .00243, .00018, .00002,
3307 + .00001, .00006, .00007,
3308 + .05546, .01324, .00222, .00017, .00002,
3309 + .00001, .00006, .00007,
3310 + .05260, .01252, .00205, .00016, .00002,
3311 + .00001, .00005, .00006,
3312 + .05005, .01188, .00190, .00015, .00002,
3313 + .00001, .00005, .00006,
3314 + .04764, .01128, .00176, .00014, .00002,
3315 + .00001, .00005, .00006,
3316 + .04538, .01071, .00164, .00013, .00002,
3317 + .00001, .00005, .00005,
3318 + .04335, .01021, .00153, .00013, .00002,
3319 + .00001, .00005, .00005,
3320 + .04150, .00976, .00144, .00012, .00002,
3321 + .00001, .00004, .00005 /
3322 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
3323 + .03973, .00932, .00135, .00011, .00001,
3324 + .00001, .00004, .00005,
3325 + .03807, .00891, .00127, .00011, .00001,
3326 + .00001, .00004, .00005,
3327 + .03656, .00854, .00120, .00010, .00001,
3328 + .00001, .00004, .00004,
3329 + .03518, .00820, .00114, .00009, .00001,
3330 + .00001, .00003, .00004,
3331 + .03384, .00788, .00108, .00009, .00001,
3332 + .00001, .00003, .00004 /
3333 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
3334 + .22508, .05704, .03299, .00067, .00000,
3335 + .00000, .00030, .00032,
3336 + .21039, .05307, .02842, .00062, .00000,
3337 + .00000, .00027, .00029,
3338 + .19096, .04783, .02295, .00054, .00000,
3339 + .00000, .00024, .00026,
3340 + .17831, .04445, .01974, .00049, .00001,
3341 + .00000, .00022, .00024,
3342 + .16599, .04118, .01692, .00045, .00001,
3343 + .00000, .00020, .00021,
3344 + .15616, .03858, .01486, .00042, .00001,
3345 + .00000, .00019, .00020,
3346 + .14739, .03628, .01315, .00039, .00001,
3347 + .00000, .00017, .00019,
3348 + .13872, .03401, .01160, .00036, .00001,
3349 + .00000, .00015, .00017 /
3350 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
3351 + .13166, .03217, .01042, .00033, .00001,
3352 + .00000, .00014, .00016,
3353 + .12524, .03051, .00942, .00032, .00001,
3354 + .00000, .00014, .00015,
3355 + .12041, .02927, .00871, .00031, .00001,
3356 + .00000, .00013, .00014,
3357 + .11086, .02681, .00740, .00028, .00001,
3358 + .00000, .00012, .00012,
3359 + .10342, .02489, .00645, .00025, .00001,
3360 + .00000, .00011, .00012,
3361 + .09576, .02294, .00556, .00022, .00001,
3362 + .00000, .00010, .00011,
3363 + .08845, .02109, .00479, .00020, .00001,
3364 + .00001, .00010, .00010,
3365 + .08237, .01957, .00421, .00019, .00001,
3366 + .00001, .00009, .00009 /
3367 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
3368 + .07673, .01815, .00371, .00017, .00001,
3369 + .00001, .00008, .00008,
3370 + .07238, .01706, .00335, .00016, .00001,
3371 + .00001, .00008, .00007,
3372 + .06744, .01584, .00297, .00015, .00001,
3373 + .00001, .00007, .00007,
3374 + .06340, .01484, .00267, .00014, .00001,
3375 + .00001, .00006, .00007,
3376 + .05995, .01399, .00244, .00013, .00001,
3377 + .00001, .00006, .00006,
3378 + .05586, .01299, .00217, .00012, .00001,
3379 + .00001, .00005, .00005,
3380 + .05230, .01212, .00196, .00011, .00001,
3381 + .00001, .00005, .00005,
3382 + .04921, .01137, .00178, .00010, .00001,
3383 + .00001, .00005, .00005 /
3384 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
3385 + .04630, .01066, .00162, .00009, .00001,
3386 + .00001, .00004, .00004,
3387 + .04365, .01002, .00148, .00008, .00001,
3388 + .00001, .00004, .00004,
3389 + .04129, .00945, .00136, .00008, .00001,
3390 + .00001, .00004, .00004,
3391 + .03919, .00895, .00126, .00008, .00001,
3392 + .00001, .00004, .00004,
3393 + .03721, .00847, .00117, .00007, .00001,
3394 + .00001, .00003, .00003,
3395 + .03536, .00803, .00109, .00007, .00001,
3396 + .00001, .00003, .00003,
3397 + .03371, .00764, .00102, .00006, .00001,
3398 + .00001, .00003, .00003,
3399 + .03221, .00728, .00096, .00006, .00001,
3400 + .00001, .00003, .00003 /
3401 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
3402 + .03077, .00694, .00090, .00006, .00001,
3403 + .00001, .00003, .00003,
3404 + .02942, .00662, .00084, .00006, .00001,
3405 + .00001, .00002, .00003,
3406 + .02821, .00634, .00080, .00005, .00001,
3407 + .00001, .00002, .00003,
3408 + .02710, .00607, .00075, .00005, .00001,
3409 + .00001, .00002, .00003,
3410 + .02601, .00582, .00071, .00005, .00001,
3411 + .00001, .00002, .00003 /
3412 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
3413 + .15604, .03647, .01578, .00028, .00000,
3414 + .00000, .00009, .00010,
3415 + .14479, .03367, .01342, .00024, .00000,
3416 + .00000, .00009, .00010,
3417 + .13002, .03003, .01066, .00022, .00000,
3418 + .00000, .00008, .00007,
3419 + .12049, .02771, .00907, .00020, .00000,
3420 + .00000, .00007, .00007,
3421 + .11132, .02547, .00770, .00017, .00000,
3422 + .00000, .00007, .00007,
3423 + .10407, .02371, .00671, .00015, .00000,
3424 + .00000, .00007, .00007,
3425 + .09762, .02216, .00590, .00013, .00000,
3426 + .00000, .00006, .00007,
3427 + .09129, .02065, .00517, .00013, .00000,
3428 + .00000, .00005, .00006 /
3429 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
3430 + .08618, .01942, .00462, .00012, .00000,
3431 + .00000, .00005, .00005,
3432 + .08155, .01832, .00416, .00012, .00000,
3433 + .00000, .00005, .00005,
3434 + .07809, .01750, .00383, .00011, .00000,
3435 + .00000, .00004, .00004,
3436 + .07129, .01590, .00323, .00010, .00000,
3437 + .00000, .00004, .00004,
3438 + .06602, .01466, .00281, .00009, .00000,
3439 + .00000, .00004, .00003,
3440 + .06065, .01341, .00242, .00008, .00000,
3441 + .00000, .00003, .00004,
3442 + .05558, .01223, .00208, .00007, .00000,
3443 + .00000, .00003, .00004,
3444 + .05138, .01126, .00182, .00007, .00000,
3445 + .00000, .00003, .00003 /
3446 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
3447 + .04751, .01038, .00160, .00007, .00000,
3448 + .00000, .00003, .00002,
3449 + .04456, .00970, .00144, .00006, .00000,
3450 + .00000, .00002, .00002,
3451 + .04126, .00894, .00127, .00005, .00000,
3452 + .00000, .00002, .00002,
3453 + .03857, .00833, .00114, .00004, .00000,
3454 + .00000, .00002, .00002,
3455 + .03626, .00781, .00104, .00004, .00000,
3456 + .00000, .00002, .00002,
3457 + .03355, .00720, .00093, .00004, .00000,
3458 + .00000, .00002, .00002,
3459 + .03121, .00668, .00083, .00004, .00000,
3460 + .00000, .00002, .00002,
3461 + .02919, .00623, .00076, .00003, .00000,
3462 + .00000, .00002, .00002 /
3463 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
3464 + .02731, .00581, .00069, .00003, .00000,
3465 + .00000, .00002, .00001,
3466 + .02560, .00543, .00063, .00003, .00000,
3467 + .00000, .00001, .00001,
3468 + .02409, .00509, .00058, .00003, .00000,
3469 + .00000, .00001, .00001,
3470 + .02276, .00480, .00053, .00002, .00000,
3471 + .00000, .00001, .00002,
3472 + .02151, .00452, .00049, .00002, .00000,
3473 + .00000, .00001, .00002,
3474 + .02034, .00427, .00046, .00002, .00000,
3475 + .00000, .00001, .00001,
3476 + .01929, .00404, .00043, .00002, .00000,
3477 + .00000, .00001, .00001,
3478 + .01836, .00384, .00040, .00002, .00000,
3479 + .00000, .00001, .00001 /
3480 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/
3481 + .01747, .00364, .00037, .00002, .00000,
3482 + .00000, .00001, .00001,
3483 + .01664, .00346, .00035, .00002, .00000,
3484 + .00000, .00001, .00001,
3485 + .01589, .00330, .00033, .00001, .00000,
3486 + .00000, .00001, .00001,
3487 + .01520, .00315, .00031, .00001, .00000,
3488 + .00000, .00001, .00001,
3489 + .01454, .00301, .00029, .00001, .00000,
3490 + .00000, .00001, .00001 /
3491 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/
3492 + .10001, .02137, .00649, .00008, .00000,
3493 + .00000, .00002, .00003,
3494 + .09206, .01958, .00546, .00008, .00000,
3495 + .00000, .00002, .00003,
3496 + .08172, .01727, .00429, .00007, .00000,
3497 + .00000, .00002, .00003,
3498 + .07512, .01580, .00362, .00006, .00000,
3499 + .00000, .00002, .00003,
3500 + .06883, .01441, .00306, .00006, .00000,
3501 + .00000, .00002, .00002,
3502 + .06388, .01333, .00265, .00006, .00000,
3503 + .00000, .00001, .00001,
3504 + .05953, .01237, .00233, .00005, .00000,
3505 + .00000, .00001, .00001,
3506 + .05530, .01145, .00203, .00004, .00000,
3507 + .00000, .00001, .00001 /
3508 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
3509 + .05189, .01071, .00181, .00003, .00000,
3510 + .00000, .00001, .00001,
3511 + .04883, .01004, .00163, .00003, .00000,
3512 + .00000, .00001, .00001,
3513 + .04655, .00955, .00150, .00003, .00000,
3514 + .00000, .00001, .00001,
3515 + .04210, .00860, .00126, .00003, .00000,
3516 + .00000, .00001, .00001,
3517 + .03870, .00787, .00110, .00002, .00000,
3518 + .00000, .00001, .00001,
3519 + .03525, .00714, .00094, .00002, .00000,
3520 + .00000, .00001, .00001,
3521 + .03202, .00646, .00081, .00002, .00000,
3522 + .00000, .00001, .00001,
3523 + .02937, .00590, .00071, .00002, .00000,
3524 + .00000, .00001, .00001 /
3525 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
3526 + .02696, .00539, .00062, .00002, .00000,
3527 + .00000, .00001, .00001,
3528 + .02512, .00501, .00056, .00002, .00000,
3529 + .00000, .00001, .00001,
3530 + .02308, .00459, .00049, .00002, .00000,
3531 + .00000, .00001, .00001,
3532 + .02143, .00424, .00044, .00001, .00000,
3533 + .00000, .00000, .00001,
3534 + .02004, .00395, .00040, .00001, .00000,
3535 + .00000, .00001, .00001,
3536 + .01840, .00362, .00036, .00001, .00000,
3537 + .00000, .00001, .00001,
3538 + .01700, .00333, .00032, .00001, .00000,
3539 + .00000, .00000, .00000,
3540 + .01581, .00309, .00029, .00001, .00000,
3541 + .00000, .00000, .00000 /
3542 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
3543 + .01469, .00286, .00026, .00001, .00000,
3544 + .00000, .00000, .00000,
3545 + .01368, .00266, .00024, .00001, .00000,
3546 + .00000, .00000, .00000,
3547 + .01281, .00248, .00022, .00001, .00000,
3548 + .00000, .00000, .00000,
3549 + .01203, .00233, .00020, .00001, .00000,
3550 + .00000, .00000, .00000,
3551 + .01131, .00218, .00019, .00001, .00000,
3552 + .00000, .00000, .00000,
3553 + .01064, .00205, .00017, .00001, .00000,
3554 + .00000, .00000, .00000,
3555 + .01004, .00193, .00016, .00001, .00000,
3556 + .00000, .00000, .00000,
3557 + .00952, .00182, .00015, .00001, .00000,
3558 + .00000, .00000, .00000 /
3559 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/
3560 + .00901, .00172, .00014, .00000, .00000,
3561 + .00000, .00000, .00000,
3562 + .00855, .00163, .00013, .00000, .00000,
3563 + .00000, .00000, .00000,
3564 + .00812, .00155, .00012, .00000, .00000,
3565 + .00000, .00000, .00000,
3566 + .00774, .00147, .00012, .00000, .00000,
3567 + .00000, .00000, .00000,
3568 + .00738, .00140, .00011, .00000, .00000,
3569 + .00000, .00000, .00000 /
3570 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/
3571 + .05778, .01117, .00219, .00004, .00000,
3572 + .00000, .00000, .00000,
3573 + .05270, .01015, .00183, .00003, .00000,
3574 + .00000, .00000, .00000,
3575 + .04620, .00884, .00143, .00002, .00000,
3576 + .00000, .00000, .00000,
3577 + .04209, .00801, .00121, .00002, .00000,
3578 + .00000, .00000, .00000,
3579 + .03820, .00724, .00102, .00002, .00000,
3580 + .00000, .00000, .00000,
3581 + .03518, .00665, .00089, .00002, .00000,
3582 + .00000, .00000, .00000,
3583 + .03254, .00612, .00078, .00001, .00000,
3584 + .00000, .00000, .00001,
3585 + .02999, .00562, .00068, .00001, .00000,
3586 + .00000, .00000, .00001 /
3587 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
3588 + .02795, .00522, .00061, .00001, .00000,
3589 + .00000, .00000, .00000,
3590 + .02614, .00487, .00055, .00001, .00000,
3591 + .00000, .00000, .00000,
3592 + .02479, .00461, .00050, .00001, .00000,
3593 + .00000, .00000, .00000,
3594 + .02221, .00411, .00042, .00001, .00000,
3595 + .00000, .00000, .00000,
3596 + .02023, .00373, .00037, .00001, .00000,
3597 + .00000, .00000, .00000,
3598 + .01825, .00335, .00032, .00001, .00000,
3599 + .00000, .00000, .00000,
3600 + .01642, .00300, .00027, .00000, .00000,
3601 + .00000, .00000, .00000,
3602 + .01493, .00272, .00024, .00001, .00000,
3603 + .00000, .00000, .00000 /
3604 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/
3605 + .01359, .00246, .00021, .00001, .00000,
3606 + .00000, .00000, .00000,
3607 + .01257, .00227, .00019, .00000, .00000,
3608 + .00000, .00000, .00000,
3609 + .01145, .00206, .00017, .00000, .00000,
3610 + .00000, .00000, .00000,
3611 + .01055, .00190, .00015, .00000, .00000,
3612 + .00000, .00000, .00000,
3613 + .00980, .00176, .00014, .00000, .00000,
3614 + .00000, .00000, .00000,
3615 + .00893, .00159, .00012, .00000, .00000,
3616 + .00000, .00000, .00000,
3617 + .00819, .00146, .00011, .00000, .00000,
3618 + .00000, .00000, .00000,
3619 + .00755, .00134, .00010, .00000, .00000,
3620 + .00000, .00000, .00000 /
3621 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/
3622 + .00697, .00123, .00009, .00000, .00000,
3623 + .00000, .00000, .00000,
3624 + .00645, .00114, .00008, .00000, .00000,
3625 + .00000, .00000, .00000,
3626 + .00600, .00105, .00007, .00000, .00000,
3627 + .00000, .00000, .00000,
3628 + .00560, .00098, .00007, .00000, .00000,
3629 + .00000, .00000, .00000,
3630 + .00523, .00092, .00006, .00000, .00000,
3631 + .00000, .00000, .00000,
3632 + .00490, .00085, .00006, .00000, .00000,
3633 + .00000, .00000, .00000,
3634 + .00460, .00080, .00005, .00000, .00000,
3635 + .00000, .00000, .00000,
3636 + .00433, .00075, .00005, .00000, .00000,
3637 + .00000, .00000, .00000 /
3638 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=33,37)/
3639 + .00408, .00071, .00005, .00000, .00000,
3640 + .00000, .00000, .00000,
3641 + .00385, .00067, .00004, .00000, .00000,
3642 + .00000, .00000, .00000,
3643 + .00364, .00063, .00004, .00000, .00000,
3644 + .00000, .00000, .00000,
3645 + .00345, .00060, .00004, .00000, .00000,
3646 + .00000, .00000, .00000,
3647 + .00328, .00056, .00004, .00000, .00000,
3648 + .00000, .00000, .00000 /
3649 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/
3650 + .02873, .00493, .00056, .00000, .00000,
3651 + .00000, .00000, .00000,
3652 + .02594, .00443, .00047, .00000, .00000,
3653 + .00000, .00000, .00001,
3654 + .02240, .00381, .00037, .00000, .00000,
3655 + .00000, .00000, .00000,
3656 + .02019, .00342, .00032, .00000, .00000,
3657 + .00000, .00000, .00000,
3658 + .01813, .00306, .00027, .00000, .00000,
3659 + .00000, .00000, .00000,
3660 + .01654, .00278, .00024, .00000, .00000,
3661 + .00000, .00000, .00000,
3662 + .01517, .00254, .00021, .00000, .00000,
3663 + .00000, .00000, .00000,
3664 + .01386, .00231, .00018, .00000, .00000,
3665 + .00000, .00000, .00000 /
3666 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=9,16)/
3667 + .01282, .00213, .00017, .00000, .00000,
3668 + .00000, .00000, .00000,
3669 + .01190, .00197, .00015, .00000, .00000,
3670 + .00000, .00000, .00000,
3671 + .01122, .00186, .00014, .00000, .00000,
3672 + .00000, .00000, .00000,
3673 + .00993, .00163, .00012, .00000, .00000,
3674 + .00000, .00000, .00000,
3675 + .00895, .00147, .00010, .00000, .00000,
3676 + .00000, .00000, .00000,
3677 + .00799, .00130, .00009, .00000, .00000,
3678 + .00000, .00000, .00000,
3679 + .00710, .00116, .00008, .00000, .00000,
3680 + .00000, .00000, .00000,
3681 + .00639, .00104, .00007, .00000, .00000,
3682 + .00000, .00000, .00000 /
3683 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=17,24)/
3684 + .00576, .00093, .00006, .00000, .00000,
3685 + .00000, .00000, .00000,
3686 + .00528, .00085, .00005, .00000, .00000,
3687 + .00000, .00000, .00000,
3688 + .00477, .00077, .00005, .00000, .00000,
3689 + .00000, .00000, .00000,
3690 + .00436, .00070, .00004, .00000, .00000,
3691 + .00000, .00000, .00000,
3692 + .00401, .00064, .00004, .00000, .00000,
3693 + .00000, .00000, .00000,
3694 + .00362, .00058, .00003, .00000, .00000,
3695 + .00000, .00000, .00000,
3696 + .00329, .00052, .00003, .00000, .00000,
3697 + .00000, .00000, .00000,
3698 + .00301, .00048, .00003, .00000, .00000,
3699 + .00000, .00000, .00000 /
3700 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/
3701 + .00275, .00043, .00002, .00000, .00000,
3702 + .00000, .00000, .00000,
3703 + .00253, .00040, .00002, .00000, .00000,
3704 + .00000, .00000, .00000,
3705 + .00233, .00037, .00002, .00000, .00000,
3706 + .00000, .00000, .00000,
3707 + .00216, .00034, .00002, .00000, .00000,
3708 + .00000, .00000, .00000,
3709 + .00201, .00031, .00002, .00000, .00000,
3710 + .00000, .00000, .00000,
3711 + .00186, .00029, .00002, .00000, .00000,
3712 + .00000, .00000, .00000,
3713 + .00174, .00027, .00001, .00000, .00000,
3714 + .00000, .00000, .00000,
3715 + .00163, .00025, .00001, .00000, .00000,
3716 + .00000, .00000, .00000 /
3717 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/
3718 + .00153, .00024, .00001, .00000, .00000,
3719 + .00000, .00000, .00000,
3720 + .00143, .00022, .00001, .00000, .00000,
3721 + .00000, .00000, .00000,
3722 + .00135, .00021, .00001, .00000, .00000,
3723 + .00000, .00000, .00000,
3724 + .00127, .00020, .00001, .00000, .00000,
3725 + .00000, .00000, .00000,
3726 + .00120, .00018, .00001, .00000, .00000,
3727 + .00000, .00000, .00000 /
3728 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/
3729 + .00298, .00037, .00001, .00000, .00000,
3730 + .00000, .00000, .00000,
3731 + .00261, .00032, .00001, .00000, .00000,
3732 + .00000, .00000, .00000,
3733 + .00216, .00026, .00001, .00000, .00000,
3734 + .00000, .00000, .00000,
3735 + .00189, .00023, .00001, .00000, .00000,
3736 + .00000, .00000, .00000,
3737 + .00164, .00020, .00001, .00000, .00000,
3738 + .00000, .00000, .00000,
3739 + .00146, .00018, .00001, .00000, .00000,
3740 + .00000, .00000, .00000,
3741 + .00131, .00016, .00001, .00000, .00000,
3742 + .00000, .00000, .00000,
3743 + .00116, .00014, .00001, .00000, .00000,
3744 + .00000, .00000, .00000 /
3745 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/
3746 + .00105, .00013, .00001, .00000, .00000,
3747 + .00000, .00000, .00000,
3748 + .00095, .00011, .00001, .00000, .00000,
3749 + .00000, .00000, .00000,
3750 + .00089, .00011, .00000, .00000, .00000,
3751 + .00000, .00000, .00000,
3752 + .00076, .00009, .00000, .00000, .00000,
3753 + .00000, .00000, .00000,
3754 + .00066, .00008, .00000, .00000, .00000,
3755 + .00000, .00000, .00000,
3756 + .00057, .00007, .00000, .00000, .00000,
3757 + .00000, .00000, .00000,
3758 + .00049, .00006, .00000, .00000, .00000,
3759 + .00000, .00000, .00000,
3760 + .00043, .00005, .00000, .00000, .00000,
3761 + .00000, .00000, .00000 /
3762 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/
3763 + .00038, .00004, .00000, .00000, .00000,
3764 + .00000, .00000, .00000,
3765 + .00034, .00004, .00000, .00000, .00000,
3766 + .00000, .00000, .00000,
3767 + .00030, .00003, .00000, .00000, .00000,
3768 + .00000, .00000, .00000,
3769 + .00026, .00003, .00000, .00000, .00000,
3770 + .00000, .00000, .00000,
3771 + .00024, .00003, .00000, .00000, .00000,
3772 + .00000, .00000, .00000,
3773 + .00021, .00002, .00000, .00000, .00000,
3774 + .00000, .00000, .00000,
3775 + .00018, .00002, .00000, .00000, .00000,
3776 + .00000, .00000, .00000,
3777 + .00016, .00002, .00000, .00000, .00000,
3778 + .00000, .00000, .00000 /
3779 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
3780 + .00015, .00002, .00000, .00000, .00000,
3781 + .00000, .00000, .00000,
3782 + .00013, .00002, .00000, .00000, .00000,
3783 + .00000, .00000, .00000,
3784 + .00012, .00001, .00000, .00000, .00000,
3785 + .00000, .00000, .00000,
3786 + .00011, .00001, .00000, .00000, .00000,
3787 + .00000, .00000, .00000,
3788 + .00010, .00001, .00000, .00000, .00000,
3789 + .00000, .00000, .00000,
3790 + .00009, .00001, .00000, .00000, .00000,
3791 + .00000, .00000, .00000,
3792 + .00008, .00001, .00000, .00000, .00000,
3793 + .00000, .00000, .00000,
3794 + .00007, .00001, .00000, .00000, .00000,
3795 + .00000, .00000, .00000 /
3796 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
3797 + .00007, .00001, .00000, .00000, .00000,
3798 + .00000, .00000, .00000,
3799 + .00006, .00001, .00000, .00000, .00000,
3800 + .00000, .00000, .00000,
3801 + .00006, .00001, .00000, .00000, .00000,
3802 + .00000, .00000, .00000,
3803 + .00005, .00001, .00000, .00000, .00000,
3804 + .00000, .00000, .00000,
3805 + .00005, .00001, .00000, .00000, .00000,
3806 + .00000, .00000, .00000 /
3807 data xx/1d-5,2d-5,4d-5,6d-5,8d-5,
3808 . 1d-4,2d-4,4d-4,6d-4,8d-4,
3809 . 1d-3,2d-3,4d-3,6d-3,8d-3,
3810 . 1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2,
3811 . .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0,
3812 . .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0,
3813 . .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0,
3814 . .8d0,.9d0,1d0/
3815 data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1,
3816 . 1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2,
3817 . 1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4,
3818 . 1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6,
3819 . 1.8d6,3.2d6,5.6d6,1d7/
3820 data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/
3821 data n0/3,4,5,9,9,9,9,9/
3822 DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
3823 data init/0/
3824 save
3825 xsave=x
3826 q2save=qsq
3827 if(init.ne.0) goto 10
3828C open(unit=1,file='cor11.dat',status='old')
3829 do 20 n=1,nx-1
3830 do 20 m=1,nq
3831C read(1,50)f(1,n,m),f(2,n,m),f(3,n,m),f(4,n,m),
3832C . f(5,n,m),f(7,n,m),f(6,n,m),f(8,n,m)
3833c notation: 1=uval 2=val 3=glue 4=usea 5=chm 6=str 7=btm 8=dsea
3834 do 25 i=1,np
3835 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i)
3836 20 continue
3837 do 31 j=1,ntenth-1
3838 xx(j)= log10(xx(j)/xx(ntenth))+xx(ntenth)
3839 do 31 i=1,8
3840 if(i.eq.5.or.i.eq.7) goto 31
3841 do 30 k=1,nq
3842 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k)
3843 31 continue
3844 50 format(8f10.5)
3845 do 40 i=1,np
3846 do 40 m=1,nq
3847 40 f(i,nx,m)=ZEROD
3848 init=1
3849 10 continue
3850 if(x.lt.xmin) x=xmin
3851 if(x.gt.xmax) x=xmax
3852 if(qsq.lt.qsqmin) qsq=qsqmin
3853 if(qsq.gt.qsqmax) qsq=qsqmax
3854 xxx=x
3855 if(x.lt.xx(ntenth)) xxx= log10(x/xx(ntenth))+xx(ntenth)
3856 n=0
3857 70 n=n+1
3858 if(xxx.gt.xx(n+1)) goto 70
3859 a=(xxx-xx(n))/(xx(n+1)-xx(n))
3860 m=0
3861 80 m=m+1
3862 if(qsq.gt.qq(m+1)) goto 80
3863 b=(qsq-qq(m))/(qq(m+1)-qq(m))
3864 do 60 i=1,np
3865 g(i)=(ONED-a)*(ONED-b)*f(i,n,m) + (ONED-a)*b*f(i,n,m+1)
3866 . + a*(ONED-b)*f(i,n+1,m) + a*b*f(i,n+1,m+1)
3867 if(n.ge.ntenth) goto 65
3868 if(i.eq.5.or.i.eq.7) goto 65
3869 fac=(ONED-b)*f(i,ntenth,m)+b*f(i,ntenth,m+1)
3870 g(i)=fac*10d0**(g(i)-fac)
3871 65 continue
3872 g(i)=g(i)*(ONED-x)**n0(i)
3873 60 continue
3874 upv=g(1)
3875 dnv=g(2)
3876 usea=g(4)
3877 dsea=g(8)
3878 str=g(6)
3879 chm=g(5)
3880 glu=g(3)
3881 bot=g(7)
3882 x=xsave
3883 qsq=q2save
3884 return
3885 end