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