]> git.uio.no Git - u/mrichter/AliRoot.git/blame - PDF/spdf/sfmrs_98lo4.F
git://git.uio.no / u / mrichter / AliRoot.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Number of pads along z is corrected
[u/mrichter/AliRoot.git] / PDF / spdf / sfmrs_98lo4.F
CommitLineData
21886bb6 1#include "pdf/pilot.h"
2 subroutine sfmrs_98lo4(x,qsq,upv,dnv,usea,dsea,str,chm,bot,glu)
3C
4#include "pdf/impdp.inc"
5C
6 parameter(nx=49,nq=37,ntenth=23,np=8)
7C
7ef50f50 8#if defined(CERNLIB_DOUBLE)
9 DOUBLE PRECISION
10#endif
11#if defined(CERNLIB_SINGLE)
12 REAL
13#endif
21886bb6 14 + f(np,nx,nq+1),qq(nq),xx(nx),g(np),n0(np)
15 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,8)/
16 + .01652, .00676, 3.98484, .93109, .00000,
17 + .00000, .48342, .94700,
18 + .01668, .00680, 6.68919, .94013, .00000,
19 + .00000, .49546, .95598,
20 + .01691, .00685, 11.60333, .96948, .02665,
21 + .00000, .52926, .98525,
22 + .01709, .00689, 15.59962, 1.01229, .06303,
23 + .00000, .57531, 1.02799,
24 + .01727, .00693, 20.91389, 1.06656, .13476,
25 + .00000, .63298, 1.08218,
26 + .01743, .00697, 26.00457, 1.12936, .19890,
27 + .00000, .69872, 1.14492,
28 + .01759, .00701, 31.58823, 1.20092, .27694,
29 + .00000, .77307, 1.21641,
30 + .01776, .00706, 38.11628, 1.29258, .37269,
31 + .00000, .86768, 1.30799 /
32 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
33 + .01790, .00709, 44.40437, 1.38500, .47078,
34 + .00000, .96266, 1.40035,
35 + .01804, .00713, 50.94486, 1.48761, .57645,
36 + .00000, 1.06773, 1.50290,
37 + .01815, .00716, 56.70540, 1.57570, .67465,
38 + .00000, 1.15774, 1.59093,
39 + .01840, .00723, 69.55647, 1.79803, .90303,
40 + .01230, 1.38417, 1.81314,
41 + .01860, .00730, 81.80496, 2.02168, 1.13484,
42 + .27544, 1.61132, 2.03668,
43 + .01884, .00737, 97.00859, 2.30982, 1.43873,
44 + .65430, 1.90333, 2.32470,
45 + .01909, .00745, 114.42801, 2.65771, 1.80268,
46 + 1.03083, 2.25520, 2.67246,
47 + .01931, .00752, 131.44508, 3.01593, 2.17200,
48 + 1.40709, 2.61698, 3.03055 /
49 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
50 + .01954, .00760, 150.23351, 3.42203, 2.59614,
51 + 1.85224, 3.02663, 3.43653,
52 + .01973, .00766, 166.86644, 3.79494, 2.98352,
53 + 2.25208, 3.40244, 3.80933,
54 + .01996, .00774, 188.23845, 4.29058, 3.49635,
55 + 2.77977, 3.90157, 4.30484,
56 + .02017, .00782, 208.67317, 4.77519, 4.00244,
57 + 3.30736, 4.38922, 4.78934,
58 + .02036, .00789, 227.91423, 5.25036, 4.48985,
59 + 3.80259, 4.86715, 5.26439,
60 + .02060, .00798, 254.11282, 5.90971, 5.17256,
61 + 4.50617, 5.52996, 5.92361,
62 + .02083, .00807, 280.02881, 6.58271, 5.86643,
63 + 5.21726, 6.20617, 6.59648,
64 + .02105, .00815, 305.39871, 7.25967, 6.56260,
65 + 5.92909, 6.88609, 7.27331 /
66 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
67 + .02127, .00824, 332.24683, 7.99087, 7.31700,
68 + 6.70368, 7.62021, 8.00439,
69 + .02149, .00833, 359.12375, 8.74424, 8.08832,
70 + 7.48890, 8.37641, 8.75763,
71 + .02169, .00841, 386.15036, 9.51348, 8.88067,
72 + 8.30154, 9.14830, 9.52676,
73 + .02189, .00849, 411.80179, 10.26337, 9.64630,
74 + 9.07918, 9.90065, 10.27654,
75 + .02208, .00857, 439.07281, 11.07076, 10.47534,
76 + 9.92693, 10.71050, 11.08382,
77 + .02228, .00866, 466.10730, 11.88985, 11.31124,
78 + 10.77619, 11.53197, 11.90280,
79 + .02246, .00873, 493.00089, 12.71570, 12.15655,
80 + 11.63806, 12.36006, 12.72855,
81 + .02264, .00881, 518.81348, 13.52263, 12.98022,
82 + 12.47562, 13.16909, 13.53538 /
83 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
84 + .02282, .00889, 545.54224, 14.37063, 13.84546,
85 + 13.35518, 14.01920, 14.38329,
86 + .02300, .00897, 572.80615, 15.24685, 14.74061,
87 + 14.26667, 14.89746, 15.25940,
88 + .02317, .00905, 598.85217, 16.09878, 15.60750,
89 + 15.14580, 15.75134, 16.11124,
90 + .02333, .00912, 624.52399, 16.94697, 16.47251,
91 + 16.02530, 16.60135, 16.95935,
92 + .02350, .00919, 650.74725, 17.82560, 17.36709,
93 + 16.93348, 17.48181, 17.83789 /
94 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
95 + .02018, .00826, 4.02821, .80420, .00000,
96 + .00000, .41605, .81348,
97 + .02038, .00831, 6.43326, .81520, .00000,
98 + .00000, .42950, .82444,
99 + .02067, .00840, 10.65632, .84454, .02427,
100 + .00000, .46247, .85371,
101 + .02089, .00847, 14.00665, .88295, .05695,
102 + .00000, .50354, .89208,
103 + .02113, .00854, 18.36899, .93089, .12053,
104 + .00000, .55424, .93996,
105 + .02133, .00861, 22.48380, .98493, .17589,
106 + .00000, .61067, .99395,
107 + .02153, .00867, 26.93442, 1.04570, .24238,
108 + .00000, .67373, 1.05468,
109 + .02174, .00874, 32.07341, 1.12251, .32282,
110 + .00000, .75293, 1.13144 /
111 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
112 + .02193, .00880, 36.96647, 1.19916, .40428,
113 + .00000, .83167, 1.20804,
114 + .02211, .00886, 42.00644, 1.28346, .49108,
115 + .00000, .91796, 1.29229,
116 + .02225, .00891, 46.40743, 1.35548, .57116,
117 + .00000, .99155, 1.36428,
118 + .02256, .00902, 56.10998, 1.53498, .75505,
119 + .01020, 1.17438, 1.54370,
120 + .02283, .00911, 65.22620, 1.71347, .93927,
121 + .21775, 1.35571, 1.72212,
122 + .02313, .00922, 76.39746, 1.94100, 1.17789,
123 + .51464, 1.58638, 1.94957,
124 + .02344, .00934, 89.03473, 2.21250, 1.46009,
125 + .80481, 1.86110, 2.22098,
126 + .02374, .00945, 101.23084, 2.48890, 1.74308,
127 + 1.09133, 2.14039, 2.49730 /
128 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
129 + .02403, .00957, 114.55248, 2.79920, 2.06482,
130 + 1.42715, 2.45357, 2.80752,
131 + .02428, .00966, 126.23121, 3.08155, 2.35595,
132 + 1.72590, 2.73827, 3.08980,
133 + .02458, .00978, 141.09479, 3.45349, 2.73791,
134 + 2.11663, 3.11303, 3.46166,
135 + .02484, .00989, 155.17807, 3.81402, 3.11168,
136 + 2.50427, 3.47602, 3.82212,
137 + .02509, .00999, 168.32095, 4.16465, 3.46863,
138 + 2.86478, 3.82888, 4.17268,
139 + .02540, .01012, 186.06918, 4.64733, 3.96484,
140 + 3.37350, 4.31435, 4.65526,
141 + .02570, .01025, 203.46317, 5.13570, 4.46482,
142 + 3.88321, 4.80531, 5.14355,
143 + .02598, .01037, 220.34584, 5.62305, 4.96255,
144 + 4.38954, 5.29505, 5.63082 /
145 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
146 + .02627, .01049, 238.07828, 6.14561, 5.49819,
147 + 4.93694, 5.81997, 6.15330,
148 + .02654, .01062, 255.68257, 6.68002, 6.04174,
149 + 5.48752, 6.35667, 6.68764,
150 + .02681, .01074, 273.27155, 7.22217, 6.59681,
151 + 6.05436, 6.90095, 7.22972,
152 + .02706, .01085, 289.83783, 7.74720, 7.12951,
153 + 6.59282, 7.42797, 7.75468,
154 + .02732, .01096, 307.35416, 8.30934, 7.70343,
155 + 7.17726, 7.99208, 8.31674,
156 + .02757, .01108, 324.59506, 8.87613, 8.27848,
157 + 7.75890, 8.56079, 8.88347,
158 + .02781, .01119, 341.65674, 9.44460, 8.85722,
159 + 8.34661, 9.13107, 9.45188,
160 + .02804, .01130, 357.93420, 9.99713, 9.41817,
161 + 8.91467, 9.68529, 10.00435 /
162 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
163 + .02827, .01141, 374.70135, 10.57496, 10.00466,
164 + 9.50850, 10.26481, 10.58212,
165 + .02850, .01151, 391.72107, 11.16922, 10.60878,
166 + 10.12137, 10.86072, 11.17632,
167 + .02872, .01162, 407.88428, 11.74415, 11.19086,
168 + 10.70934, 11.43721, 11.75119,
169 + .02893, .01172, 423.75308, 12.31427, 11.76957,
170 + 11.29565, 12.00881, 12.32127,
171 + .02915, .01182, 439.88132, 12.90229, 12.36547,
172 + 11.89843, 12.59830, 12.90923 /
173 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
174 + .02465, .01009, 4.07075, .69389, .00000,
175 + .00000, .35812, .69848,
176 + .02490, .01018, 6.18574, .70614, .00000,
177 + .00000, .37237, .71070,
178 + .02527, .01032, 9.78440, .73492, .02210,
179 + .00000, .40412, .73944,
180 + .02555, .01042, 12.57318, .76934, .05143,
181 + .00000, .44070, .77382,
182 + .02585, .01053, 16.12924, .81164, .10775,
183 + .00000, .48526, .81608,
184 + .02611, .01063, 19.43373, .85809, .15546,
185 + .00000, .53366, .86250,
186 + .02636, .01072, 22.95862, .90965, .21202,
187 + .00000, .58707, .91403,
188 + .02662, .01083, 26.97891, .97388, .27947,
189 + .00000, .65326, .97823 /
190 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
191 + .02686, .01092, 30.76279, 1.03730, .34698,
192 + .00000, .71837, 1.04161,
193 + .02709, .01101, 34.62252, 1.10633, .41813,
194 + .00000, .78903, 1.11062,
195 + .02727, .01109, 37.96395, 1.16504, .48327,
196 + .00000, .84901, 1.16930,
197 + .02766, .01125, 45.24296, 1.30938, .63096,
198 + .00846, .99606, 1.31359,
199 + .02801, .01139, 51.98321, 1.45121, .77696,
200 + .17202, 1.14019, 1.45537,
201 + .02839, .01155, 60.13620, 1.63003, .96379,
202 + .40454, 1.32155, 1.63414,
203 + .02880, .01173, 69.24136, 1.84082, 1.18192,
204 + .62793, 1.53495, 1.84488,
205 + .02917, .01189, 77.92046, 2.05293, 1.39804,
206 + .84586, 1.74940, 2.05694 /
207 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
208 + .02955, .01205, 87.29803, 2.28871, 1.64126,
209 + 1.09888, 1.98751, 2.29267,
210 + .02987, .01219, 95.43783, 2.50126, 1.85928,
211 + 1.32175, 2.20196, 2.50517,
212 + .03025, .01237, 105.69693, 2.77872, 2.14270,
213 + 1.61059, 2.48170, 2.78259,
214 + .03060, .01252, 115.32845, 3.04534, 2.41768,
215 + 1.89487, 2.75031, 3.04917,
216 + .03092, .01267, 124.23454, 3.30249, 2.67804,
217 + 2.15674, 3.00925, 3.30627,
218 + .03132, .01285, 136.16118, 3.65364, 3.03721,
219 + 2.52376, 3.36266, 3.65737,
220 + .03171, .01303, 147.73871, 4.00580, 3.39595,
221 + 2.88823, 3.71691, 4.00948,
222 + .03207, .01320, 158.87772, 4.35441, 3.75023,
223 + 3.24741, 4.06744, 4.35805 /
224 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
225 + .03243, .01338, 170.48805, 4.72546, 4.12884,
226 + 3.63320, 4.44040, 4.72905,
227 + .03279, .01355, 181.91531, 5.10207, 4.51009,
228 + 4.01808, 4.81884, 5.10562,
229 + .03313, .01371, 193.25867, 5.48165, 4.89712,
230 + 4.41225, 5.20015, 5.48517,
231 + .03346, .01387, 203.85648, 5.84678, 5.26593,
232 + 4.78383, 5.56688, 5.85026,
233 + .03379, .01403, 215.00099, 6.23553, 5.66128,
234 + 5.18539, 5.95721, 6.23896,
235 + .03411, .01419, 225.88818, 6.62505, 6.05485,
236 + 5.58228, 6.34828, 6.62845,
237 + .03442, .01434, 236.60533, 7.01369, 6.44904,
238 + 5.98157, 6.73837, 7.01706,
239 + .03472, .01449, 246.76529, 7.38939, 6.82904,
240 + 6.36535, 7.11543, 7.39272 /
241 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
242 + .03502, .01464, 257.17444, 7.78036, 7.22445,
243 + 6.76468, 7.50776, 7.78367,
244 + .03531, .01479, 267.68829, 8.18056, 7.62994,
245 + 7.17510, 7.90928, 8.18383,
246 + .03560, .01493, 277.60977, 8.56579, 8.01858,
247 + 7.56664, 8.29576, 8.56903,
248 + .03587, .01507, 287.31226, 8.94626, 8.40358,
249 + 7.95582, 8.67742, 8.94947,
250 + .03615, .01521, 297.12128, 9.33693, 8.79824,
251 + 8.35411, 9.06927, 9.34012 /
252 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
253 + .02772, .01136, 4.09477, .63615, .00000,
254 + .00000, .32808, .63878,
255 + .02800, .01147, 6.04424, .64886, .00000,
256 + .00000, .34257, .65146,
257 + .02843, .01164, 9.30605, .67712, .02091,
258 + .00000, .37347, .67968,
259 + .02875, .01177, 11.80117, .70936, .04842,
260 + .00000, .40763, .71190,
261 + .02909, .01191, 14.94439, .74864, .10087,
262 + .00000, .44893, .75115,
263 + .02938, .01203, 17.84056, .79114, .14456,
264 + .00000, .49315, .79362,
265 + .02967, .01216, 20.90502, .83793, .19596,
266 + .00000, .54159, .84039,
267 + .02998, .01229, 24.37538, .89572, .25675,
268 + .00000, .60112, .89816 /
269 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
270 + .03025, .01240, 27.61966, .95241, .31716,
271 + .00000, .65930, .95482,
272 + .03051, .01252, 30.91022, 1.01372, .38041,
273 + .00000, .72205, 1.01611,
274 + .03072, .01261, 33.74450, 1.06572, .43807,
275 + .00000, .77518, 1.06809,
276 + .03118, .01281, 39.87519, 1.19250, .56779,
277 + .00758, .90436, 1.19484,
278 + .03157, .01299, 45.50309, 1.31618, .69502,
279 + .14979, 1.03008, 1.31848,
280 + .03202, .01319, 52.25834, 1.47109, .85666,
281 + .35121, 1.18724, 1.47335,
282 + .03249, .01340, 59.74548, 1.65236, 1.04395,
283 + .54279, 1.37083, 1.65458,
284 + .03292, .01360, 66.82995, 1.83350, 1.22820,
285 + .72833, 1.55403, 1.83569 /
286 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
287 + .03336, .01380, 74.43537, 2.03367, 1.43429,
288 + .94254, 1.75625, 2.03582,
289 + .03372, .01398, 80.99800, 2.21312, 1.61800,
290 + 1.13012, 1.93739, 2.21524,
291 + .03417, .01419, 89.22139, 2.44611, 1.85552,
292 + 1.37190, 2.17239, 2.44820,
293 + .03457, .01438, 96.89981, 2.66885, 2.08481,
294 + 1.60874, 2.39689, 2.67091,
295 + .03494, .01456, 103.96050, 2.88261, 2.30080,
296 + 1.82567, 2.61224, 2.88464,
297 + .03541, .01479, 113.36917, 3.17313, 2.59740,
298 + 2.12846, 2.90475, 3.17513,
299 + .03585, .01500, 122.45020, 3.46297, 2.89210,
300 + 2.42756, 3.19644, 3.46494,
301 + .03627, .01521, 131.14139, 3.74852, 3.18177,
302 + 2.72092, 3.48368, 3.75046 /
303 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
304 + .03670, .01542, 140.15895, 4.05114, 3.49005,
305 + 3.03478, 3.78798, 4.05305,
306 + .03711, .01563, 148.98785, 4.35691, 3.79904,
307 + 3.34638, 4.09537, 4.35880,
308 + .03751, .01583, 157.71838, 4.66393, 4.11163,
309 + 3.66450, 4.40391, 4.66579,
310 + .03789, .01602, 165.83470, 4.95807, 4.40824,
311 + 3.96301, 4.69945, 4.95991,
312 + .03826, .01621, 174.34233, 5.27020, 4.72525,
313 + 4.28479, 5.01299, 5.27202,
314 + .03864, .01641, 182.61520, 5.58180, 5.03961,
315 + 4.60149, 5.32595, 5.58360,
316 + .03900, .01659, 190.73335, 5.89174, 5.35357,
317 + 4.91928, 5.63716, 5.89351,
318 + .03934, .01677, 198.39970, 6.19038, 5.65524,
319 + 5.22372, 5.93701, 6.19214 /
320 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
321 + .03969, .01695, 206.22839, 6.50027, 5.96825,
322 + 5.53959, 6.24809, 6.50201,
323 + .04003, .01712, 214.11224, 6.81659, 6.28841,
324 + 5.86344, 6.56558, 6.81831,
325 + .04036, .01730, 221.52281, 7.12015, 6.59427,
326 + 6.17134, 6.87024, 7.12185,
327 + .04068, .01746, 228.75302, 7.41926, 6.89664,
328 + 6.47681, 7.17039, 7.42094,
329 + .04100, .01763, 236.03862, 7.72557, 7.20575,
330 + 6.78857, 7.47774, 7.72724 /
331 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
332 + .03013, .01236, 4.11114, .59795, .00000,
333 + .00000, .30834, .59950,
334 + .03044, .01249, 5.94504, .61088, .00000,
335 + .00000, .32291, .61241,
336 + .03091, .01269, 8.97974, .63869, .02010,
337 + .00000, .35315, .64019,
338 + .03126, .01284, 11.28070, .66945, .04638,
339 + .00000, .38568, .67093,
340 + .03163, .01300, 14.15460, .70672, .09622,
341 + .00000, .42480, .70817,
342 + .03196, .01315, 16.78705, .74659, .13725,
343 + .00000, .46626, .74803,
344 + .03228, .01329, 19.55661, .79025, .18525,
345 + .00000, .51143, .79167,
346 + .03262, .01344, 22.67729, .84383, .24167,
347 + .00000, .56661, .84523 /
348 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
349 + .03292, .01358, 25.58073, .89614, .29747,
350 + .00000, .62029, .89751,
351 + .03321, .01371, 28.51373, .95245, .35561,
352 + .00000, .67793, .95381,
353 + .03344, .01382, 31.03095, 1.00012, .40845,
354 + .00000, .72663, 1.00146,
355 + .03394, .01405, 36.44825, 1.11563, .52667,
356 + .00701, .84434, 1.11694,
357 + .03438, .01426, 41.39034, 1.22771, .64196,
358 + .13573, .95830, 1.22899,
359 + .03487, .01449, 47.28973, 1.36743, .78769,
360 + .31758, 1.10009, 1.36868,
361 + .03539, .01474, 53.79296, 1.53006, .95563,
362 + .48928, 1.26485, 1.53129,
363 + .03587, .01497, 59.91392, 1.69176, 1.11998,
364 + .65473, 1.42844, 1.69296 /
365 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
366 + .03636, .01521, 66.45472, 1.86969, 1.30303,
367 + .84497, 1.60825, 1.87086,
368 + .03676, .01540, 72.07478, 2.02856, 1.46554,
369 + 1.01086, 1.76867, 2.02972,
370 + .03726, .01565, 79.08759, 2.23405, 1.67484,
371 + 1.22383, 1.97600, 2.23518,
372 + .03770, .01587, 85.61015, 2.42977, 1.87615,
373 + 1.43177, 2.17334, 2.43089,
374 + .03811, .01607, 91.58384, 2.61693, 2.06509,
375 + 1.62142, 2.36195, 2.61802,
376 + .03863, .01634, 99.51576, 2.87045, 2.32370,
377 + 1.88537, 2.61729, 2.87152,
378 + .03912, .01659, 107.13982, 3.12242, 2.57970,
379 + 2.14511, 2.87096, 3.12347,
380 + .03959, .01683, 114.40870, 3.36982, 2.83047,
381 + 2.39900, 3.11991, 3.37085 /
382 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
383 + .04006, .01707, 121.92589, 3.63119, 3.09656,
384 + 2.66987, 3.38282, 3.63220,
385 + .04052, .01730, 129.25760, 3.89444, 3.36238,
386 + 2.93783, 3.64755, 3.89544,
387 + .04096, .01753, 136.48776, 4.15805, 3.63061,
388 + 3.21080, 3.91254, 4.15903,
389 + .04138, .01775, 143.18466, 4.40986, 3.88436,
390 + 3.46608, 4.16565, 4.41083,
391 + .04180, .01797, 150.18846, 4.67646, 4.15499,
392 + 3.74075, 4.43353, 4.67741,
393 + .04222, .01819, 156.97581, 4.94189, 4.42261,
394 + 4.01028, 4.70020, 4.94283,
395 + .04262, .01840, 163.62131, 5.20532, 4.68933,
396 + 4.28024, 4.96480, 5.20625,
397 + .04300, .01860, 169.87910, 5.45857, 4.94502,
398 + 4.53821, 5.21914, 5.45948 /
399 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
400 + .04338, .01880, 176.25406, 5.72080, 5.20978,
401 + 4.80535, 5.48247, 5.72171,
402 + .04376, .01901, 182.66040, 5.98794, 5.48006,
403 + 5.07874, 5.75068, 5.98884,
404 + .04413, .01920, 188.66431, 6.24375, 5.73769,
405 + 5.33803, 6.00750, 6.24463,
406 + .04448, .01939, 194.51259, 6.49538, 5.99199,
407 + 5.59491, 6.26008, 6.49626,
408 + .04483, .01958, 200.39140, 6.75258, 6.25145,
409 + 5.85657, 6.51824, 6.75345 /
410 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
411 + .03214, .01319, 4.12328, .56981, .00000,
412 + .00000, .29387, .57070,
413 + .03248, .01334, 5.86862, .58285, .00000,
414 + .00000, .30846, .58373,
415 + .03298, .01357, 8.73364, .61028, .01949,
416 + .00000, .33816, .61112,
417 + .03336, .01374, 10.89161, .63993, .04485,
418 + .00000, .36947, .64076,
419 + .03376, .01393, 13.56912, .67569, .09274,
420 + .00000, .40696, .67649,
421 + .03411, .01409, 16.01068, .71363, .13181,
422 + .00000, .44640, .71442,
423 + .03446, .01425, 18.56808, .75500, .17730,
424 + .00000, .48918, .75577,
425 + .03482, .01442, 21.43855, .80550, .23054,
426 + .00000, .54118, .80625 /
427 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
428 + .03515, .01457, 24.09929, .85462, .28298,
429 + .00000, .59158, .85535,
430 + .03546, .01472, 26.77872, .90731, .33741,
431 + .00000, .64552, .90803,
432 + .03571, .01484, 29.07186, .95183, .38677,
433 + .00000, .69101, .95254,
434 + .03626, .01510, 33.98741, 1.05921, .49670,
435 + .00660, .80045, 1.05990,
436 + .03673, .01533, 38.44988, 1.16297, .60346,
437 + .12570, .90597, 1.16363,
438 + .03726, .01560, 43.75376, 1.29183, .73785,
439 + .29363, 1.03676, 1.29247,
440 + .03783, .01587, 49.57582, 1.44120, .89206,
441 + .45131, 1.18812, 1.44182,
442 + .03834, .01613, 55.03296, 1.58911, 1.04237,
443 + .60262, 1.33781, 1.58972 /
444 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
445 + .03887, .01640, 60.84338, 1.75134, 1.20922,
446 + .77606, 1.50180, 1.75192,
447 + .03931, .01662, 65.81926, 1.89575, 1.35688,
448 + .92680, 1.64766, 1.89632,
449 + .03985, .01689, 72.00783, 2.08195, 1.54647,
450 + 1.11973, 1.83559, 2.08250,
451 + .04032, .01714, 77.74625, 2.25880, 1.72832,
452 + 1.30760, 2.01394, 2.25934,
453 + .04077, .01736, 82.98495, 2.42744, 1.89848,
454 + 1.47839, 2.18394, 2.42796,
455 + .04133, .01766, 89.92172, 2.65527, 2.13083,
456 + 1.71556, 2.41348, 2.65578,
457 + .04187, .01793, 96.56747, 2.88105, 2.36014,
458 + 1.94823, 2.64084, 2.88154,
459 + .04237, .01820, 102.88454, 3.10213, 2.58417,
460 + 2.17506, 2.86338, 3.10262 /
461 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
462 + .04288, .01847, 109.40055, 3.33514, 2.82133,
463 + 2.41652, 3.09782, 3.33562,
464 + .04338, .01873, 115.73639, 3.56924, 3.05764,
465 + 2.65473, 3.33331, 3.56970,
466 + .04386, .01898, 121.97113, 3.80315, 3.29563,
467 + 2.89697, 3.56852, 3.80361,
468 + .04431, .01922, 127.72923, 4.02610, 3.52023,
469 + 3.12291, 3.79267, 4.02655,
470 + .04477, .01947, 133.74048, 4.26170, 3.75937,
471 + 3.36567, 4.02947, 4.26215,
472 + .04522, .01971, 139.55003, 4.49578, 3.99533,
473 + 3.60331, 4.26471, 4.49622,
474 + .04565, .01994, 145.22813, 4.72770, 4.23013,
475 + 3.84099, 4.49772, 4.72813,
476 + .04606, .02016, 150.56282, 4.95025, 4.45479,
477 + 4.06769, 4.72130, 4.95067 /
478 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
479 + .04648, .02039, 155.98723, 5.18032, 4.68705,
480 + 4.30206, 4.95239, 5.18074,
481 + .04689, .02061, 161.42900, 5.41433, 4.92381,
482 + 4.54158, 5.18740, 5.41474,
483 + .04729, .02083, 166.51694, 5.63802, 5.14908,
484 + 4.76831, 5.41204, 5.63844,
485 + .04767, .02103, 171.46663, 5.85779, 5.37116,
486 + 4.99270, 5.63270, 5.85820,
487 + .04805, .02124, 176.43259, 6.08208, 5.59742,
488 + 5.22090, 5.85787, 6.08248 /
489 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
490 + .03931, .01624, 4.15626, .49012, .00000,
491 + .00000, .25325, .48979,
492 + .03973, .01645, 5.63263, .50326, .00000,
493 + .00000, .26766, .50292,
494 + .04037, .01678, 8.00452, .52929, .01766,
495 + .00000, .29557, .52894,
496 + .04085, .01702, 9.75718, .55567, .04032,
497 + .00000, .32331, .55530,
498 + .04136, .01728, 11.88779, .58704, .08253,
499 + .00000, .35611, .58667,
500 + .04181, .01752, 13.80460, .61949, .11598,
501 + .00000, .38978, .61911,
502 + .04224, .01774, 15.78503, .65436, .15440,
503 + .00000, .42582, .65397,
504 + .04271, .01799, 17.98152, .69626, .19869,
505 + .00000, .46896, .69587 /
506 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
507 + .04312, .01820, 19.99405, .73652, .24179,
508 + .00000, .51027, .73611,
509 + .04352, .01842, 22.00113, .77919, .28600,
510 + .00000, .55397, .77879,
511 + .04384, .01859, 23.70376, .81507, .32579,
512 + .00000, .59065, .81466,
513 + .04453, .01896, 27.30799, .90025, .41319,
514 + .00545, .67752, .89983,
515 + .04514, .01928, 30.52934, .98145, .49690,
516 + .09880, .76016, .98103,
517 + .04582, .01965, 34.30603, 1.08109, .60094,
518 + .22961, .86139, 1.08067,
519 + .04654, .02004, 38.39671, 1.19506, .71873,
520 + .35027, .97699, 1.19464,
521 + .04720, .02040, 42.18064, 1.30649, .83209,
522 + .46459, 1.08988, 1.30606 /
523 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
524 + .04787, .02077, 46.16375, 1.42743, .95659,
525 + .59433, 1.21227, 1.42700,
526 + .04844, .02108, 49.53876, 1.53402, 1.06568,
527 + .70591, 1.32004, 1.53360,
528 + .04913, .02146, 53.69239, 1.67015, 1.20439,
529 + .84733, 1.45759, 1.66973,
530 + .04974, .02180, 57.50675, 1.79828, 1.33627,
531 + .98391, 1.58695, 1.79786,
532 + .05031, .02212, 60.95300, 1.91936, 1.45853,
533 + 1.10677, 1.70915, 1.91895,
534 + .05103, .02252, 65.47627, 2.08161, 1.62414,
535 + 1.27617, 1.87280, 2.08121,
536 + .05172, .02291, 69.76447, 2.24091, 1.78608,
537 + 1.44078, 2.03339, 2.24051,
538 + .05237, .02327, 73.80102, 2.39560, 1.94295,
539 + 1.59989, 2.18927, 2.39520 /
540 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
541 + .05302, .02364, 77.93060, 2.55739, 2.10781,
542 + 1.76809, 2.35224, 2.55700,
543 + .05366, .02400, 81.90598, 2.71863, 2.27071,
544 + 1.93253, 2.51462, 2.71826,
545 + .05428, .02435, 85.79163, 2.87870, 2.43377,
546 + 2.09887, 2.67574, 2.87833,
547 + .05486, .02468, 89.34549, 3.03014, 2.58645,
548 + 2.25268, 2.82818, 3.02979,
549 + .05544, .02501, 93.03499, 3.18929, 2.74821,
550 + 2.41721, 2.98830, 3.18894,
551 + .05602, .02534, 96.56839, 3.34634, 2.90666,
552 + 2.57704, 3.14630, 3.34600,
553 + .05658, .02566, 100.00272, 3.50111, 3.06356,
554 + 2.73617, 3.30197, 3.50078,
555 + .05710, .02596, 103.20500, 3.64877, 3.21279,
556 + 2.88701, 3.45047, 3.64846 /
557 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
558 + .05764, .02626, 106.44108, 3.80063, 3.36629,
559 + 3.04217, 3.60317, 3.80033,
560 + .05816, .02656, 109.67001, 3.95435, 3.52204,
561 + 3.20005, 3.75771, 3.95406,
562 + .05867, .02685, 112.66476, 4.10047, 3.66934,
563 + 3.34854, 3.90460, 4.10020,
564 + .05915, .02713, 115.56670, 4.24344, 3.81404,
565 + 3.49502, 4.04831, 4.24318,
566 + .05964, .02741, 118.45908, 4.38866, 3.96073,
567 + 3.64324, 4.19425, 4.38841 /
568 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
569 + .04815, .02015, 4.17620, .42122, .00000,
570 + .00000, .21857, .42073,
571 + .04868, .02045, 5.39392, .43410, .00000,
572 + .00000, .23252, .43362,
573 + .04949, .02091, 7.31967, .45846, .01592,
574 + .00000, .25844, .45798,
575 + .05010, .02126, 8.71882, .48176, .03604,
576 + .00000, .28287, .48128,
577 + .05075, .02163, 10.38546, .50912, .07304,
578 + .00000, .31142, .50864,
579 + .05132, .02196, 11.86576, .53670, .10149,
580 + .00000, .34001, .53622,
581 + .05188, .02227, 13.37436, .56590, .13371,
582 + .00000, .37019, .56543,
583 + .05247, .02262, 15.02781, .60042, .17030,
584 + .00000, .40573, .59995 /
585 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
586 + .05300, .02292, 16.52511, .63315, .20545,
587 + .00000, .43934, .63268,
588 + .05351, .02322, 18.00378, .66741, .24107,
589 + .00000, .47445, .66695,
590 + .05392, .02346, 19.24687, .69606, .27288,
591 + .00000, .50377, .69560,
592 + .05481, .02397, 21.84416, .76294, .34178,
593 + .00448, .57206, .76250,
594 + .05558, .02443, 24.12762, .82580, .40682,
595 + .07716, .63611, .82536,
596 + .05646, .02494, 26.76677, .90196, .48662,
597 + .17839, .71360, .90154,
598 + .05738, .02548, 29.58615, .98785, .57571,
599 + .27007, .80085, .98745,
600 + .05823, .02598, 32.15816, 1.07071, .66031,
601 + .35578, .88492, 1.07032 /
602 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
603 + .05909, .02649, 34.83349, 1.15966, .75223,
604 + .45208, .97508, 1.15929,
605 + .05982, .02692, 37.07515, 1.23726, .83194,
606 + .53400, 1.05366, 1.23691,
607 + .06070, .02745, 39.80337, 1.33537, .93228,
608 + .63679, 1.15295, 1.33504,
609 + .06149, .02792, 42.28355, 1.42686, 1.02681,
610 + .73520, 1.24548, 1.42655,
611 + .06222, .02835, 44.49924, 1.51251, 1.11360,
612 + .82276, 1.33206, 1.51222,
613 + .06315, .02890, 47.38067, 1.62632, 1.23021,
614 + .94261, 1.44704, 1.62606,
615 + .06403, .02943, 50.08162, 1.73699, 1.34313,
616 + 1.05791, 1.55879, 1.73675,
617 + .06486, .02993, 52.59739, 1.84351, 1.45155,
618 + 1.16836, 1.66631, 1.84330 /
619 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
620 + .06570, .03043, 55.14891, 1.95407, 1.56465,
621 + 1.28429, 1.77785, 1.95389,
622 + .06652, .03092, 57.57781, 2.06333, 1.67541,
623 + 1.39656, 1.88806, 2.06317,
624 + .06731, .03139, 59.93538, 2.17106, 1.78560,
625 + 1.50950, 1.99668, 2.17093,
626 + .06805, .03184, 62.06791, 2.27221, 1.88792,
627 + 1.61297, 2.09866, 2.27211,
628 + .06880, .03229, 64.26939, 2.37789, 1.99576,
629 + 1.72318, 2.20516, 2.37781,
630 + .06954, .03273, 66.35577, 2.48144, 2.10060,
631 + 1.82934, 2.30951, 2.48139,
632 + .07025, .03316, 68.37192, 2.58293, 2.20389,
633 + 1.93456, 2.41175, 2.58291,
634 + .07093, .03356, 70.23564, 2.67917, 2.30150,
635 + 2.03364, 2.50870, 2.67917 /
636 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
637 + .07161, .03397, 72.10634, 2.77762, 2.40138,
638 + 2.13502, 2.60785, 2.77765,
639 + .07228, .03438, 73.96191, 2.87677, 2.50224,
640 + 2.23771, 2.70769, 2.87682,
641 + .07293, .03477, 75.66667, 2.97046, 2.59702,
642 + 2.33362, 2.80203, 2.97054,
643 + .07355, .03514, 77.31194, 3.06176, 2.68978,
644 + 2.42793, 2.89394, 3.06186,
645 + .07417, .03551, 78.93932, 3.15401, 2.78332,
646 + 2.52284, 2.98681, 3.15414 /
647 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
648 + .05426, .02303, 4.17687, .38561, .00000,
649 + .00000, .20078, .38538,
650 + .05488, .02340, 5.24915, .39821, .00000,
651 + .00000, .21433, .39798,
652 + .05582, .02396, 6.93351, .42145, .01491,
653 + .00000, .23898, .42124,
654 + .05653, .02438, 8.14632, .44301, .03360,
655 + .00000, .26157, .44281,
656 + .05728, .02483, 9.57386, .46814, .06769,
657 + .00000, .28776, .46794,
658 + .05794, .02523, 10.83263, .49308, .09343,
659 + .00000, .31363, .49290,
660 + .05859, .02562, 12.10510, .51927, .12236,
661 + .00000, .34069, .51910,
662 + .05928, .02604, 13.49005, .54991, .15489,
663 + .00000, .37226, .54975 /
664 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
665 + .05989, .02640, 14.73546, .57873, .18591,
666 + .00000, .40188, .57859,
667 + .06048, .02676, 15.95821, .60868, .21712,
668 + .00000, .43259, .60855,
669 + .06096, .02705, 16.98057, .63364, .24487,
670 + .00000, .45815, .63351,
671 + .06198, .02768, 19.09956, .69130, .30443,
672 + .00398, .51709, .69119,
673 + .06288, .02823, 20.94353, .74501, .36018,
674 + .06641, .57188, .74492,
675 + .06390, .02885, 23.05608, .80958, .42805,
676 + .15307, .63766, .80953,
677 + .06497, .02950, 25.29404, .88178, .50318,
678 + .23069, .71109, .88176,
679 + .06596, .03011, 27.31817, .95086, .57395,
680 + .30269, .78127, .95086 /
681 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
682 + .06696, .03072, 29.40827, 1.02453, .65034,
683 + .38307, .85604, 1.02457,
684 + .06780, .03124, 31.14745, 1.08839, .71617,
685 + .45100, .92080, 1.08845,
686 + .06882, .03187, 33.24943, 1.16865, .79853,
687 + .53572, 1.00212, 1.16874,
688 + .06974, .03243, 35.14843, 1.24307, .87570,
689 + .61640, 1.07748, 1.24319,
690 + .07058, .03295, 36.83270, 1.31234, .94612,
691 + .68772, 1.14760, 1.31249,
692 + .07166, .03361, 39.01063, 1.40391, 1.04028,
693 + .78490, 1.24023, 1.40410,
694 + .07268, .03424, 41.03750, 1.49243, 1.13092,
695 + .87781, 1.32974, 1.49266,
696 + .07365, .03483, 42.91275, 1.57719, 1.21749,
697 + .96633, 1.41541, 1.57745 /
698 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
699 + .07462, .03543, 44.80434, 1.66474, 1.30737,
700 + 1.05884, 1.50386, 1.66504,
701 + .07557, .03602, 46.59188, 1.75081, 1.39492,
702 + 1.14791, 1.59080, 1.75115,
703 + .07648, .03658, 48.31958, 1.83534, 1.48170,
704 + 1.23721, 1.67614, 1.83572,
705 + .07734, .03711, 49.87072, 1.91432, 1.56185,
706 + 1.31857, 1.75588, 1.91474,
707 + .07820, .03764, 51.46662, 1.99656, 1.64608,
708 + 1.40499, 1.83888, 1.99702,
709 + .07906, .03817, 52.96835, 2.07679, 1.72757,
710 + 1.48781, 1.91983, 2.07728,
711 + .07988, .03867, 54.41437, 2.15516, 1.80761,
712 + 1.56966, 1.99889, 2.15568,
713 + .08066, .03915, 55.74330, 2.22919, 1.88296,
714 + 1.64642, 2.07357, 2.22975 /
715 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
716 + .08145, .03964, 57.07123, 2.30468, 1.95981,
717 + 1.72471, 2.14971, 2.30528,
718 + .08222, .04012, 58.38353, 2.38047, 2.03718,
719 + 1.80380, 2.22613, 2.38110,
720 + .08297, .04057, 59.58119, 2.45182, 2.10960,
721 + 1.87735, 2.29808, 2.45249,
722 + .08368, .04101, 60.73428, 2.52118, 2.18032,
723 + 1.94952, 2.36800, 2.52188,
724 + .08440, .04145, 61.86884, 2.59104, 2.25139,
725 + 2.02191, 2.43843, 2.59177 /
726 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
727 + .05911, .02545, 4.16963, .36242, .00000,
728 + .00000, .18920, .36244,
729 + .05980, .02587, 5.14202, .37475, .00000,
730 + .00000, .20242, .37479,
731 + .06085, .02652, 6.66316, .39714, .01418,
732 + .00000, .22612, .39720,
733 + .06163, .02700, 7.75165, .41747, .03186,
734 + .00000, .24740, .41755,
735 + .06247, .02752, 9.02198, .44104, .06392,
736 + .00000, .27197, .44113,
737 + .06321, .02798, 10.13641, .46418, .08782,
738 + .00000, .29597, .46429,
739 + .06393, .02842, 11.25640, .48834, .11452,
740 + .00000, .32094, .48846,
741 + .06470, .02890, 12.46929, .51639, .14434,
742 + .00000, .34985, .51653 /
743 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
744 + .06538, .02933, 13.55447, .54262, .17263,
745 + .00000, .37683, .54278,
746 + .06604, .02974, 14.61540, .56973, .20093,
747 + .00000, .40465, .56990,
748 + .06657, .03007, 15.49893, .59226, .22601,
749 + .00000, .42775, .59245,
750 + .06772, .03079, 17.31929, .64392, .27951,
751 + .00364, .48060, .64415,
752 + .06872, .03141, 18.89131, .69174, .32927,
753 + .05949, .52943, .69199,
754 + .06985, .03212, 20.68061, .74890, .38951,
755 + .13680, .58772, .74919,
756 + .07104, .03287, 22.56447, .81241, .45577,
757 + .20550, .65239, .81274,
758 + .07214, .03356, 24.25746, .87281, .51783,
759 + .26884, .71381, .87318 /
760 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
761 + .07326, .03426, 25.99620, .93691, .58449,
762 + .33926, .77895, .93732,
763 + .07419, .03484, 27.43552, .99222, .64168,
764 + .39847, .83510, .99267,
765 + .07533, .03556, 29.16604, 1.06142, .71291,
766 + .47199, .90530, 1.06190,
767 + .07635, .03620, 30.72223, 1.12532, .77938,
768 + .54175, .97009, 1.12585,
769 + .07729, .03679, 32.09483, 1.18455, .83977,
770 + .60310, 1.03011, 1.18511,
771 + .07849, .03754, 33.86224, 1.26255, .92023,
772 + .68643, 1.10911, 1.26316,
773 + .07963, .03826, 35.49815, 1.33764, .99735,
774 + .76576, 1.18513, 1.33830,
775 + .08070, .03893, 37.00385, 1.40924, 1.07070,
776 + .84102, 1.25759, 1.40995 /
777 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
778 + .08177, .03960, 38.51649, 1.48295, 1.14662,
779 + .91943, 1.33215, 1.48370,
780 + .08283, .04026, 39.93781, 1.55514, 1.22027,
781 + .99460, 1.40516, 1.55594,
782 + .08384, .04090, 41.30722, 1.62583, 1.29307,
783 + 1.06978, 1.47662, 1.62667,
784 + .08480, .04149, 42.52941, 1.69164, 1.36006,
785 + 1.13799, 1.54314, 1.69253,
786 + .08576, .04209, 43.78378, 1.76000, 1.43029,
787 + 1.21029, 1.61222, 1.76093,
788 + .08671, .04269, 44.95744, 1.82646, 1.49800,
789 + 1.27933, 1.67937, 1.82744,
790 + .08761, .04325, 46.08457, 1.89123, 1.56436,
791 + 1.34742, 1.74479, 1.89225,
792 + .08848, .04379, 47.11561, 1.95224, 1.62664,
793 + 1.41108, 1.80641, 1.95330 /
794 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
795 + .08935, .04433, 48.14227, 2.01430, 1.69001,
796 + 1.47586, 1.86908, 2.01540,
797 + .09021, .04487, 49.15392, 2.07646, 1.75368,
798 + 1.54116, 1.93185, 2.07761,
799 + .09104, .04538, 50.07220, 2.13482, 1.81309,
800 + 1.60169, 1.99078, 2.13601,
801 + .09182, .04587, 50.95475, 2.19145, 1.87101,
802 + 1.66100, 2.04794, 2.19268,
803 + .09262, .04636, 51.81937, 2.24835, 1.92909,
804 + 1.72034, 2.10538, 2.24962 /
805 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
806 + .06319, .02772, 4.15657, .34619, .00000,
807 + .00000, .18090, .34617,
808 + .06395, .02820, 5.05550, .35829, .00000,
809 + .00000, .19383, .35828,
810 + .06509, .02892, 6.45326, .37995, .01359,
811 + .00000, .21672, .37997,
812 + .06595, .02946, 7.44757, .39929, .03045,
813 + .00000, .23695, .39933,
814 + .06687, .03005, 8.59994, .42159, .06091,
815 + .00000, .26020, .42167,
816 + .06767, .03056, 9.60659, .44333, .08338,
817 + .00000, .28274, .44342,
818 + .06846, .03106, 10.61343, .46589, .10836,
819 + .00000, .30607, .46601,
820 + .06930, .03159, 11.69932, .49194, .13612,
821 + .00000, .33294, .49209 /
822 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
823 + .07005, .03206, 12.66686, .51621, .16233,
824 + .00000, .35791, .51637,
825 + .07077, .03253, 13.60955, .54116, .18845,
826 + .00000, .38354, .54135,
827 + .07135, .03290, 14.39204, .56186, .21152,
828 + .00000, .40477, .56207,
829 + .07260, .03369, 15.99632, .60906, .26051,
830 + .00339, .45309, .60932,
831 + .07370, .03439, 17.37291, .65252, .30584,
832 + .05434, .49751, .65282,
833 + .07494, .03518, 18.93136, .70424, .36045,
834 + .12473, .55029, .70458,
835 + .07625, .03601, 20.56393, .76141, .42024,
836 + .18687, .60856, .76181,
837 + .07744, .03677, 22.02333, .81552, .47596,
838 + .24390, .66364, .81597 /
839 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
840 + .07866, .03755, 23.51552, .87273, .53559,
841 + .30706, .72182, .87323,
842 + .07968, .03820, 24.74546, .92190, .58654,
843 + .35997, .77179, .92244,
844 + .08093, .03899, 26.21780, .98320, .64979,
845 + .42542, .83404, .98379,
846 + .08204, .03969, 27.53678, 1.03961, .70862,
847 + .48734, .89130, 1.04026,
848 + .08307, .04034, 28.69463, 1.09172, .76187,
849 + .54157, .94416, 1.09241,
850 + .08438, .04117, 30.18037, 1.16015, .83262,
851 + .61505, 1.01353, 1.16090,
852 + .08562, .04196, 31.54940, 1.22578, .90018,
853 + .68473, 1.08005, 1.22659,
854 + .08678, .04269, 32.80396, 1.28816, .96425,
855 + .75064, 1.14325, 1.28903 /
856 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
857 + .08795, .04344, 34.05998, 1.35220, 1.03038,
858 + .81913, 1.20810, 1.35313,
859 + .08911, .04416, 35.23427, 1.41472, 1.09431,
860 + .88455, 1.27139, 1.41570,
861 + .09020, .04485, 36.36274, 1.47579, 1.15737,
862 + .94986, 1.33319, 1.47682,
863 + .09124, .04550, 37.36457, 1.53248, 1.21521,
864 + 1.00890, 1.39057, 1.53357,
865 + .09229, .04616, 38.39075, 1.59125, 1.27575,
866 + 1.07140, 1.45002, 1.59240,
867 + .09332, .04681, 39.34624, 1.64822, 1.33394,
868 + 1.13089, 1.50765, 1.64942,
869 + .09430, .04743, 40.26187, 1.70363, 1.39087,
870 + 1.18946, 1.56368, 1.70488,
871 + .09524, .04801, 41.09597, 1.75571, 1.44417,
872 + 1.24410, 1.61634, 1.75701 /
873 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
874 + .09618, .04860, 41.92400, 1.80858, 1.49829,
875 + 1.29957, 1.66979, 1.80992,
876 + .09712, .04919, 42.73792, 1.86144, 1.55258,
877 + 1.35541, 1.72323, 1.86284,
878 + .09802, .04974, 43.47298, 1.91094, 1.60311,
879 + 1.40703, 1.77328, 1.91239,
880 + .09887, .05028, 44.17844, 1.95891, 1.65232,
881 + 1.45755, 1.82176, 1.96041,
882 + .09973, .05081, 44.86693, 2.00701, 1.70155,
883 + 1.50800, 1.87037, 2.00855 /
884 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
885 + .07809, .03671, 4.07297, .30085, .00000,
886 + .00000, .15779, .30104,
887 + .07910, .03739, 4.75424, .31198, .00000,
888 + .00000, .16962, .31220,
889 + .08063, .03842, 5.79588, .33113, .01173,
890 + .00000, .18981, .33142,
891 + .08178, .03919, 6.52385, .34740, .02606,
892 + .00000, .20684, .34773,
893 + .08301, .04001, 7.34958, .36591, .05162,
894 + .00000, .22614, .36629,
895 + .08408, .04074, 8.06161, .38347, .06988,
896 + .00000, .24438, .38390,
897 + .08513, .04144, 8.76317, .40141, .08989,
898 + .00000, .26298, .40189,
899 + .08626, .04219, 9.51012, .42176, .11174,
900 + .00000, .28402, .42229 /
901 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
902 + .08725, .04285, 10.16697, .44043, .13209,
903 + .00000, .30330, .44101,
904 + .08822, .04349, 10.79996, .45938, .15209,
905 + .00000, .32282, .46000,
906 + .08899, .04401, 11.31987, .47498, .16963,
907 + .00000, .33888, .47564,
908 + .09066, .04511, 12.36833, .50991, .20623,
909 + .00268, .37477, .51065,
910 + .09211, .04607, 13.24868, .54154, .23956,
911 + .04040, .40723, .54236,
912 + .09376, .04716, 14.22757, .57864, .27913,
913 + .09219, .44524, .57954,
914 + .09549, .04830, 15.23618, .61899, .32176,
915 + .13697, .48653, .61998,
916 + .09708, .04933, 16.12182, .65657, .36088,
917 + .17745, .52496, .65765 /
918 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
919 + .09869, .05039, 17.01401, .69581, .40222,
920 + .22177, .56505, .69697,
921 + .10004, .05126, 17.73875, .72912, .43713,
922 + .25843, .59906, .73037,
923 + .10168, .05233, 18.59341, .77017, .47995,
924 + .30325, .64094, .77150,
925 + .10314, .05328, 19.34931, .80754, .51938,
926 + .34524, .67905, .80896,
927 + .10449, .05414, 20.00178, .84166, .55464,
928 + .38154, .71383, .84316,
929 + .10620, .05525, 20.82920, .88603, .60106,
930 + .43032, .75904, .88763,
931 + .10782, .05629, 21.57930, .92810, .64489,
932 + .47603, .80189, .92979,
933 + .10935, .05726, 22.25599, .96766, .68600,
934 + .51881, .84217, .96945 /
935 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
936 + .11087, .05823, 22.92550, 1.00790, .72807,
937 + .56290, .88314, 1.00978,
938 + .11237, .05918, 23.53993, 1.04677, .76830,
939 + .60453, .92270, 1.04874,
940 + .11379, .06008, 24.12532, 1.08445, .80771,
941 + .64584, .96103, 1.08651,
942 + .11513, .06093, 24.63459, 1.11908, .84346,
943 + .68276, .99627, 1.12122,
944 + .11649, .06178, 25.15291, 1.15474, .88068,
945 + .72165, 1.03255, 1.15697,
946 + .11782, .06261, 25.62605, 1.18898, .91610,
947 + .75828, 1.06738, 1.19129,
948 + .11908, .06341, 26.07604, 1.22208, .95056,
949 + .79416, 1.10104, 1.22447,
950 + .12028, .06416, 26.47929, 1.25294, .98256,
951 + .82735, 1.13243, 1.25541 /
952 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
953 + .12149, .06491, 26.87498, 1.28406, 1.01484,
954 + .86084, 1.16407, 1.28660,
955 + .12269, .06566, 27.26041, 1.31498, 1.04705,
956 + .89437, 1.19553, 1.31761,
957 + .12383, .06636, 27.60135, 1.34370, 1.07676,
958 + .92509, 1.22474, 1.34640,
959 + .12492, .06704, 27.92710, 1.37141, 1.10558,
960 + .95506, 1.25291, 1.37418,
961 + .12602, .06771, 28.23986, 1.39899, 1.13421,
962 + .98476, 1.28096, 1.40184 /
963 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
964 + .09766, .05032, 3.88299, .26354, .00000,
965 + .00000, .13839, .26406,
966 + .09906, .05128, 4.36897, .27323, .00000,
967 + .00000, .14869, .27383,
968 + .10118, .05274, 5.09747, .28931, .00972,
969 + .00000, .16569, .29004,
970 + .10275, .05381, 5.59601, .30237, .02143,
971 + .00000, .17940, .30319,
972 + .10444, .05496, 6.14936, .31701, .04205,
973 + .00000, .19474, .31793,
974 + .10592, .05596, 6.62004, .33055, .05633,
975 + .00000, .20889, .33156,
976 + .10736, .05692, 7.07653, .34417, .07175,
977 + .00000, .22309, .34527,
978 + .10890, .05796, 7.55588, .35933, .08829,
979 + .00000, .23887, .36053 /
980 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
981 + .11025, .05886, 7.97141, .37304, .10349,
982 + .00000, .25312, .37433,
983 + .11157, .05974, 8.36701, .38675, .11822,
984 + .00000, .26735, .38813,
985 + .11262, .06044, 8.68826, .39797, .13102,
986 + .00000, .27897, .39941,
987 + .11489, .06193, 9.32338, .42259, .15728,
988 + .00206, .30447, .42419,
989 + .11686, .06322, 9.84262, .44451, .18079,
990 + .02894, .32713, .44624,
991 + .11908, .06468, 10.40777, .46982, .20828,
992 + .06562, .35328, .47169,
993 + .12141, .06619, 10.97923, .49686, .23741,
994 + .09668, .38119, .49890,
995 + .12353, .06756, 11.47014, .52163, .26369,
996 + .12430, .40673, .52381 /
997 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
998 + .12569, .06894, 11.95612, .54714, .29111,
999 + .15416, .43302, .54947,
1000 + .12748, .07009, 12.34396, .56851, .31396,
1001 + .17854, .45504, .57098,
1002 + .12966, .07147, 12.79268, .59450, .34164,
1003 + .20798, .48181, .59712,
1004 + .13159, .07269, 13.18347, .61789, .36685,
1005 + .23528, .50589, .62065,
1006 + .13336, .07380, 13.51310, .63897, .38909,
1007 + .25854, .52758, .64185,
1008 + .13562, .07521, 13.92512, .66609, .41809,
1009 + .28952, .55549, .66913,
1010 + .13774, .07653, 14.29049, .69146, .44512,
1011 + .31819, .58161, .69467,
1012 + .13972, .07776, 14.61288, .71504, .47019,
1013 + .34472, .60587, .71839 /
1014 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
1015 + .14170, .07898, 14.92693, .73878, .49560,
1016 + .37182, .63029, .74228,
1017 + .14364, .08017, 15.20731, .76143, .51960,
1018 + .39708, .65360, .76507,
1019 + .14547, .08129, 15.47175, .78320, .54294,
1020 + .42199, .67600, .78698,
1021 + .14719, .08233, 15.69394, .80296, .56385,
1022 + .44396, .69634, .80686,
1023 + .14892, .08338, 15.91855, .82317, .58549,
1024 + .46699, .71714, .82721,
1025 + .15062, .08440, 16.11665, .84235, .60585,
1026 + .48842, .73689, .84651,
1027 + .15223, .08537, 16.30323, .86077, .62553,
1028 + .50930, .75586, .86505,
1029 + .15375, .08627, 16.46564, .87776, .64364,
1030 + .52844, .77336, .88217 /
1031 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
1032 + .15528, .08718, 16.62188, .89476, .66178,
1033 + .54761, .79088, .89928,
1034 + .15679, .08808, 16.77198, .91155, .67976,
1035 + .56670, .80817, .91619,
1036 + .15821, .08892, 16.89951, .92697, .69617,
1037 + .58400, .82407, .93172,
1038 + .15957, .08973, 17.02077, .94178, .71203,
1039 + .60081, .83934, .94663,
1040 + .16094, .09053, 17.13329, .95639, .72765,
1041 + .61735, .85441, .96135 /
1042 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
1043 + .11239, .06137, 3.70180, .24464, .00000,
1044 + .00000, .12844, .24561,
1045 + .11410, .06253, 4.08513, .25326, .00000,
1046 + .00000, .13766, .25435,
1047 + .11668, .06428, 4.65271, .26730, .00849,
1048 + .00000, .15258, .26857,
1049 + .11860, .06557, 5.03568, .27843, .01864,
1050 + .00000, .16434, .27983,
1051 + .12066, .06694, 5.45542, .29079, .03639,
1052 + .00000, .17739, .29234,
1053 + .12245, .06813, 5.80943, .30206, .04846,
1054 + .00000, .18925, .30375,
1055 + .12419, .06928, 6.14944, .31330, .06139,
1056 + .00000, .20105, .31511,
1057 + .12606, .07050, 6.50334, .32567, .07512,
1058 + .00000, .21403, .32762 /
1059 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
1060 + .12769, .07157, 6.80742, .33677, .08762,
1061 + .00000, .22565, .33884,
1062 + .12928, .07260, 7.09472, .34777, .09964,
1063 + .00000, .23716, .34996,
1064 + .13055, .07342, 7.32636, .35672, .11005,
1065 + .00000, .24653, .35901,
1066 + .13326, .07516, 7.77758, .37617, .13116,
1067 + .00173, .26683, .37866,
1068 + .13562, .07667, 8.13956, .39329, .14987,
1069 + .02329, .28469, .39597,
1070 + .13827, .07835, 8.52771, .41287, .17155,
1071 + .05262, .30511, .41575,
1072 + .14104, .08010, 8.91495, .43358, .19428,
1073 + .07713, .32667, .43667,
1074 + .14356, .08167, 9.24244, .45234, .21458,
1075 + .09871, .34621, .45563 /
1076 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
1077 + .14610, .08325, 9.56266, .47149, .23560,
1078 + .12188, .36614, .47498,
1079 + .14822, .08455, 9.81477, .48740, .25298,
1080 + .14065, .38271, .49106,
1081 + .15077, .08612, 10.10222, .50659, .27386,
1082 + .16313, .40268, .51046,
1083 + .15304, .08750, 10.34978, .52374, .29276,
1084 + .18385, .42052, .52779,
1085 + .15511, .08875, 10.55447, .53905, .30928,
1086 + .20135, .43645, .54326,
1087 + .15773, .09033, 10.80758, .55861, .33070,
1088 + .22454, .45682, .56304,
1089 + .16019, .09179, 11.02789, .57677, .35051,
1090 + .24583, .47571, .58139,
1091 + .16248, .09315, 11.21865, .59350, .36874,
1092 + .26538, .49314, .59831 /
1093 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
1094 + .16477, .09451, 11.40219, .61024, .38712,
1095 + .28525, .51058, .61524,
1096 + .16699, .09581, 11.56131, .62605, .40433,
1097 + .30362, .52706, .63123,
1098 + .16910, .09704, 11.71021, .64119, .42100,
1099 + .32166, .54284, .64654,
1100 + .17106, .09817, 11.83104, .65479, .43580,
1101 + .33744, .55704, .66031,
1102 + .17303, .09932, 11.95267, .66866, .45107,
1103 + .35393, .57151, .67434,
1104 + .17495, .10042, 12.05573, .68170, .46532,
1105 + .36916, .58514, .68754,
1106 + .17678, .10146, 12.15197, .69417, .47905,
1107 + .38395, .59816, .70016,
1108 + .17849, .10243, 12.23287, .70559, .49160,
1109 + .39742, .61011, .71172 /
1110 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
1111 + .18022, .10341, 12.30893, .71696, .50410,
1112 + .41085, .62200, .72323,
1113 + .18191, .10437, 12.38080, .72813, .51646,
1114 + .42417, .63369, .73454,
1115 + .18351, .10526, 12.43828, .73829, .52764,
1116 + .43616, .64434, .74483,
1117 + .18503, .10612, 12.49278, .74802, .53843,
1118 + .44780, .65454, .75469,
1119 + .18656, .10696, 12.54075, .75756, .54899,
1120 + .45917, .66455, .76436 /
1121 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
1122 + .12497, .07107, 3.53302, .23234, .00000,
1123 + .00000, .12193, .23384,
1124 + .12695, .07239, 3.84976, .24010, .00000,
1125 + .00000, .13028, .24176,
1126 + .12995, .07437, 4.31433, .25257, .00760,
1127 + .00000, .14363, .25446,
1128 + .13216, .07581, 4.62416, .26230, .01664,
1129 + .00000, .15401, .26437,
1130 + .13453, .07735, 4.96074, .27304, .03236,
1131 + .00000, .16544, .27530,
1132 + .13659, .07868, 5.24281, .28274, .04293,
1133 + .00000, .17573, .28517,
1134 + .13859, .07996, 5.51181, .29235, .05418,
1135 + .00000, .18591, .29494,
1136 + .14072, .08132, 5.78992, .30285, .06603,
1137 + .00000, .19703, .30562 /
1138 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
1139 + .14259, .08250, 6.02726, .31220, .07678,
1140 + .00000, .20692, .31513,
1141 + .14440, .08364, 6.25014, .32143, .08704,
1142 + .00000, .21666, .32450,
1143 + .14585, .08455, 6.42890, .32891, .09590,
1144 + .00000, .22456, .33210,
1145 + .14893, .08647, 6.77279, .34503, .11373,
1146 + .00151, .24155, .34848,
1147 + .15161, .08812, 7.04414, .35911, .12943,
1148 + .01971, .25639, .36279,
1149 + .15461, .08997, 7.33143, .37510, .14749,
1150 + .04441, .27323, .37903,
1151 + .15774, .09186, 7.61501, .39188, .16630,
1152 + .06488, .29089, .39607,
1153 + .16056, .09357, 7.85154, .40696, .18297,
1154 + .08276, .30676, .41139 /
1155 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
1156 + .16341, .09527, 8.08041, .42225, .20012,
1157 + .10186, .32286, .42692,
1158 + .16577, .09668, 8.25844, .43488, .21423,
1159 + .11725, .33615, .43975,
1160 + .16863, .09835, 8.45872, .45000, .23108,
1161 + .13557, .35208, .45512,
1162 + .17115, .09983, 8.62952, .46345, .24625,
1163 + .15239, .36624, .46879,
1164 + .17344, .10116, 8.76795, .47536, .25943,
1165 + .16649, .37880, .48090,
1166 + .17634, .10283, 8.93744, .49051, .27645,
1167 + .18512, .39477, .49630,
1168 + .17905, .10439, 9.08219, .50447, .29209,
1169 + .20211, .40950, .51049,
1170 + .18156, .10582, 9.20500, .51726, .30640,
1171 + .21764, .42300, .52349 /
1172 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
1173 + .18408, .10724, 9.32164, .52998, .32077,
1174 + .23336, .43645, .53644,
1175 + .18650, .10859, 9.41950, .54192, .33414,
1176 + .24779, .44908, .54858,
1177 + .18880, .10987, 9.51041, .55329, .34704,
1178 + .26194, .46112, .56015,
1179 + .19093, .11105, 9.58085, .56344, .35843,
1180 + .27422, .47187, .57048,
1181 + .19307, .11223, 9.65154, .57375, .37015,
1182 + .28704, .48281, .58098,
1183 + .19514, .11336, 9.70820, .58336, .38101,
1184 + .29881, .49303, .59077,
1185 + .19712, .11444, 9.76057, .59253, .39145,
1186 + .31021, .50277, .60011,
1187 + .19896, .11543, 9.80229, .60087, .40094,
1188 + .32054, .51165, .60861 /
1189 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
1190 + .20081, .11642, 9.84007, .60913, .41037,
1191 + .33080, .52046, .61703,
1192 + .20263, .11740, 9.87487, .61722, .41965,
1193 + .34096, .52908, .62528,
1194 + .20433, .11831, 9.89963, .62452, .42800,
1195 + .35005, .53689, .63272,
1196 + .20596, .11917, 9.92305, .63149, .43604,
1197 + .35885, .54435, .63984,
1198 + .20758, .12002, 9.94135, .63829, .44388,
1199 + .36742, .55163, .64677 /
1200 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
1201 + .13632, .07986, 3.37677, .22326, .00000,
1202 + .00000, .11714, .22538,
1203 + .13854, .08130, 3.64580, .23030, .00000,
1204 + .00000, .12478, .23260,
1205 + .14189, .08346, 4.03728, .24150, .00691,
1206 + .00000, .13688, .24409,
1207 + .14437, .08503, 4.29580, .25014, .01509,
1208 + .00000, .14618, .25295,
1209 + .14701, .08669, 4.57476, .25963, .02926,
1210 + .00000, .15638, .26267,
1211 + .14931, .08813, 4.80734, .26814, .03871,
1212 + .00000, .16551, .27138,
1213 + .15153, .08951, 5.02787, .27653, .04872,
1214 + .00000, .17448, .27996,
1215 + .15389, .09098, 5.25463, .28565, .05920,
1216 + .00000, .18423, .28929 /
1217 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
1218 + .15596, .09224, 5.44706, .29373, .06867,
1219 + .00000, .19286, .29755,
1220 + .15797, .09347, 5.62685, .30166, .07767,
1221 + .00000, .20133, .30566,
1222 + .15957, .09444, 5.77043, .30808, .08542,
1223 + .00000, .20817, .31222,
1224 + .16297, .09648, 6.04350, .32181, .10093,
1225 + .00136, .22281, .32626,
1226 + .16590, .09824, 6.25561, .33374, .11451,
1227 + .01718, .23552, .33844,
1228 + .16919, .10019, 6.47760, .34721, .13006,
1229 + .03862, .24986, .35220,
1230 + .17261, .10219, 6.69471, .36125, .14614,
1231 + .05627, .26481, .36655,
1232 + .17569, .10398, 6.87340, .37377, .16032,
1233 + .07161, .27817, .37935 /
1234 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
1235 + .17879, .10576, 7.04465, .38642, .17485,
1236 + .08792, .29164, .39228,
1237 + .18135, .10723, 7.17636, .39680, .18674,
1238 + .10099, .30272, .40289,
1239 + .18443, .10897, 7.32258, .40918, .20087,
1240 + .11650, .31593, .41554,
1241 + .18716, .11051, 7.44611, .42013, .21356,
1242 + .13068, .32762, .42674,
1243 + .18962, .11188, 7.54394, .42977, .22451,
1244 + .14252, .33793, .43660,
1245 + .19274, .11361, 7.66257, .44197, .23861,
1246 + .15809, .35099, .44909,
1247 + .19564, .11520, 7.76186, .45315, .25151,
1248 + .17224, .36296, .46053,
1249 + .19832, .11666, 7.84407, .46333, .26325,
1250 + .18511, .37388, .47094 /
1251 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
1252 + .20100, .11811, 7.92095, .47342, .27501,
1253 + .19810, .38472, .48128,
1254 + .20357, .11948, 7.98284, .48282, .28588,
1255 + .20997, .39484, .49090,
1256 + .20600, .12079, 8.03985, .49175, .29635,
1257 + .22157, .40445, .50005,
1258 + .20825, .12197, 8.08116, .49965, .30553,
1259 + .23160, .41299, .50815,
1260 + .21051, .12316, 8.12251, .50766, .31497,
1261 + .24204, .42165, .51636,
1262 + .21269, .12429, 8.15272, .51508, .32367,
1263 + .25158, .42969, .52397,
1264 + .21476, .12536, 8.18020, .52212, .33202,
1265 + .26080, .43733, .53120,
1266 + .21668, .12636, 8.19985, .52850, .33957,
1267 + .26912, .44427, .53775 /
1268 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
1269 + .21862, .12734, 8.21620, .53478, .34705,
1270 + .27737, .45111, .54420,
1271 + .22051, .12831, 8.23037, .54091, .35439,
1272 + .28551, .45780, .55050,
1273 + .22229, .12920, 8.23729, .54641, .36096,
1274 + .29276, .46382, .55616,
1275 + .22397, .13005, 8.24382, .55165, .36728,
1276 + .29978, .46956, .56155,
1277 + .22565, .13088, 8.24615, .55672, .37342,
1278 + .30658, .47514, .56677 /
1279 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
1280 + .15682, .09557, 3.09660, .21005, .00000,
1281 + .00000, .11025, .21356,
1282 + .15947, .09718, 3.30098, .21592, .00000,
1283 + .00000, .11676, .21968,
1284 + .16344, .09960, 3.59485, .22514, .00587,
1285 + .00000, .12696, .22929,
1286 + .16635, .10134, 3.78549, .23215, .01278,
1287 + .00000, .13467, .23657,
1288 + .16945, .10318, 3.98912, .23978, .02469,
1289 + .00000, .14306, .24451,
1290 + .17214, .10476, 4.15748, .24656, .03253,
1291 + .00000, .15050, .25154,
1292 + .17473, .10628, 4.31570, .25319, .04079,
1293 + .00000, .15777, .25842,
1294 + .17749, .10787, 4.47691, .26033, .04936,
1295 + .00000, .16559, .26583 /
1296 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
1297 + .17988, .10926, 4.61246, .26662, .05705,
1298 + .00000, .17246, .27235,
1299 + .18219, .11058, 4.73804, .27274, .06432,
1300 + .00000, .17916, .27869,
1301 + .18404, .11163, 4.83764, .27768, .07055,
1302 + .00000, .18456, .28381,
1303 + .18794, .11383, 5.02288, .28815, .08292,
1304 + .00114, .19600, .29465,
1305 + .19129, .11570, 5.16271, .29714, .09366,
1306 + .01375, .20584, .30397,
1307 + .19503, .11777, 5.30591, .30721, .10586,
1308 + .03081, .21685, .31440,
1309 + .19889, .11988, 5.44335, .31760, .11837,
1310 + .04472, .22823, .32516,
1311 + .20236, .12175, 5.55348, .32677, .12930,
1312 + .05670, .23828, .33465 /
1313 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
1314 + .20584, .12361, 5.65703, .33594, .14042,
1315 + .06936, .24835, .34416,
1316 + .20869, .12512, 5.73475, .34341, .14946,
1317 + .07944, .25656, .35190,
1318 + .21211, .12692, 5.81841, .35222, .16013,
1319 + .09131, .26627, .36104,
1320 + .21512, .12849, 5.88762, .35995, .16964,
1321 + .10211, .27480, .36906,
1322 + .21782, .12987, 5.93968, .36670, .17779,
1323 + .11105, .28226, .37605,
1324 + .22123, .13162, 6.00121, .37517, .18823,
1325 + .12276, .29165, .38484,
1326 + .22438, .13321, 6.04962, .38285, .19769,
1327 + .13332, .30018, .39282,
1328 + .22729, .13466, 6.08701, .38976, .20626,
1329 + .14287, .30789, .40001 /
1330 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
1331 + .23017, .13609, 6.12045, .39656, .21477,
1332 + .15245, .31549, .40707,
1333 + .23293, .13744, 6.14339, .40281, .22258,
1334 + .16114, .32251, .41358,
1335 + .23553, .13871, 6.16392, .40873, .23007,
1336 + .16960, .32915, .41973,
1337 + .23791, .13985, 6.17447, .41387, .23658,
1338 + .17685, .33498, .42509,
1339 + .24030, .14100, 6.18496, .41907, .24326,
1340 + .18438, .34086, .43052,
1341 + .24259, .14208, 6.18789, .42381, .24935,
1342 + .19120, .34627, .43547,
1343 + .24476, .14310, 6.18986, .42830, .25517,
1344 + .19777, .35139, .44015,
1345 + .24677, .14403, 6.18725, .43230, .26040,
1346 + .20367, .35598, .44433 /
1347 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
1348 + .24877, .14496, 6.18224, .43620, .26555,
1349 + .20949, .36048, .44842,
1350 + .25074, .14586, 6.17597, .43999, .27058,
1351 + .21521, .36486, .45238,
1352 + .25256, .14668, 6.16537, .44332, .27505,
1353 + .22026, .36875, .45588,
1354 + .25429, .14746, 6.15539, .44650, .27933,
1355 + .22514, .37245, .45921,
1356 + .25601, .14823, 6.14235, .44952, .28346,
1357 + .22984, .37600, .46239 /
1358 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
1359 + .18453, .11598, 2.74131, .19607, .00000,
1360 + .00000, .10317, .20203,
1361 + .18767, .11775, 2.88790, .20064, .00000,
1362 + .00000, .10845, .20692,
1363 + .19238, .12037, 3.09575, .20773, .00482,
1364 + .00000, .11663, .21451,
1365 + .19579, .12225, 3.22760, .21303, .01044,
1366 + .00000, .12273, .22016,
1367 + .19943, .12423, 3.36695, .21877, .02010,
1368 + .00000, .12931, .22627,
1369 + .20256, .12592, 3.48098, .22380, .02637,
1370 + .00000, .13509, .23163,
1371 + .20557, .12752, 3.58700, .22869, .03294,
1372 + .00000, .14068, .23683,
1373 + .20875, .12921, 3.69380, .23390, .03970,
1374 + .00000, .14666, .24237 /
1375 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
1376 + .21150, .13065, 3.78258, .23846, .04573,
1377 + .00000, .15187, .24722,
1378 + .21415, .13203, 3.86392, .24287, .05139,
1379 + .00000, .15692, .25189,
1380 + .21626, .13312, 3.92793, .24640, .05622,
1381 + .00000, .16097, .25565,
1382 + .22068, .13538, 4.04324, .25382, .06573,
1383 + .00093, .16947, .26351,
1384 + .22446, .13729, 4.12645, .26012, .07391,
1385 + .01062, .17670, .27020,
1386 + .22865, .13938, 4.20876, .26710, .08313,
1387 + .02372, .18473, .27759,
1388 + .23295, .14150, 4.28543, .27421, .09250,
1389 + .03428, .19292, .28513,
1390 + .23677, .14336, 4.34405, .28040, .10060,
1391 + .04330, .20008, .29170 /
1392 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
1393 + .24058, .14519, 4.39726, .28652, .10879,
1394 + .05277, .20719, .29820,
1395 + .24369, .14666, 4.43525, .29145, .11539,
1396 + .06025, .21294, .30343,
1397 + .24739, .14839, 4.47352, .29719, .12311,
1398 + .06900, .21966, .30953,
1399 + .25063, .14990, 4.50378, .30218, .12996,
1400 + .07691, .22552, .31483,
1401 + .25350, .15121, 4.52333, .30646, .13577,
1402 + .08341, .23057, .31938,
1403 + .25712, .15285, 4.54487, .31178, .14316,
1404 + .09186, .23689, .32505,
1405 + .26045, .15433, 4.55847, .31652, .14981,
1406 + .09943, .24256, .33011,
1407 + .26349, .15566, 4.56564, .32073, .15576,
1408 + .10621, .24763, .33461 /
1409 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
1410 + .26648, .15696, 4.57009, .32483, .16165,
1411 + .11298, .25259, .33898,
1412 + .26932, .15817, 4.56768, .32852, .16699,
1413 + .11907, .25710, .34292,
1414 + .27199, .15930, 4.56466, .33198, .17210,
1415 + .12497, .26134, .34662,
1416 + .27440, .16030, 4.55574, .33490, .17648,
1417 + .12997, .26499, .34977,
1418 + .27682, .16130, 4.54683, .33785, .18095,
1419 + .13516, .26867, .35294,
1420 + .27911, .16222, 4.53311, .34045, .18499,
1421 + .13981, .27198, .35575,
1422 + .28128, .16310, 4.51963, .34290, .18884,
1423 + .14428, .27510, .35839,
1424 + .28326, .16388, 4.50398, .34503, .19226,
1425 + .14825, .27786, .36069 /
1426 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
1427 + .28523, .16465, 4.48670, .34708, .19560,
1428 + .15215, .28054, .36290,
1429 + .28715, .16540, 4.46890, .34904, .19885,
1430 + .15597, .28312, .36503,
1431 + .28892, .16606, 4.44892, .35069, .20170,
1432 + .15930, .28536, .36684,
1433 + .29059, .16669, 4.43013, .35226, .20443,
1434 + .16252, .28749, .36855,
1435 + .29224, .16730, 4.40932, .35372, .20703,
1436 + .16559, .28950, .37015 /
1437 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
1438 + .22648, .14455, 2.27623, .17896, .00000,
1439 + .00000, .09500, .18960,
1440 + .23022, .14639, 2.37207, .18202, .00000,
1441 + .00000, .09891, .19308,
1442 + .23576, .14908, 2.50564, .18672, .00370,
1443 + .00000, .10488, .19839,
1444 + .23973, .15098, 2.58761, .19019, .00800,
1445 + .00000, .10927, .20229,
1446 + .24394, .15297, 2.67324, .19391, .01534,
1447 + .00000, .11397, .20646,
1448 + .24753, .15465, 2.74231, .19714, .02005,
1449 + .00000, .11806, .21007,
1450 + .25096, .15623, 2.80561, .20024, .02495,
1451 + .00000, .12198, .21353,
1452 + .25457, .15787, 2.86831, .20352, .02995,
1453 + .00000, .12614, .21719 /
1454 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
1455 + .25767, .15927, 2.91954, .20636, .03438,
1456 + .00000, .12973, .22035,
1457 + .26062, .16059, 2.96565, .20908, .03850,
1458 + .00000, .13318, .22338,
1459 + .26297, .16163, 3.00154, .21125, .04201,
1460 + .00000, .13593, .22579,
1461 + .26785, .16375, 3.06238, .21574, .04885,
1462 + .00071, .14164, .23077,
1463 + .27197, .16551, 3.10259, .21948, .05467,
1464 + .00768, .14644, .23492,
1465 + .27650, .16741, 3.13954, .22357, .06117,
1466 + .01709, .15170, .23945,
1467 + .28110, .16931, 3.17165, .22765, .06771,
1468 + .02458, .15700, .24397,
1469 + .28512, .17093, 3.19305, .23113, .07330,
1470 + .03092, .16156, .24783 /
1471 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
1472 + .28910, .17251, 3.21042, .23450, .07890,
1473 + .03751, .16602, .25158,
1474 + .29232, .17376, 3.22056, .23716, .08336,
1475 + .04268, .16958, .25454,
1476 + .29609, .17520, 3.22752, .24020, .08854,
1477 + .04867, .17368, .25792,
1478 + .29937, .17644, 3.23124, .24279, .09309,
1479 + .05405, .17722, .26081,
1480 + .30224, .17748, 3.22922, .24493, .09691,
1481 + .05841, .18022, .26320,
1482 + .30583, .17877, 3.22457, .24756, .10172,
1483 + .06406, .18391, .26613,
1484 + .30907, .17990, 3.21591, .24982, .10600,
1485 + .06906, .18717, .26867,
1486 + .31199, .18089, 3.20419, .25175, .10979,
1487 + .07351, .19002, .27085 /
1488 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
1489 + .31485, .18185, 3.19084, .25359, .11351,
1490 + .07791, .19277, .27292,
1491 + .31750, .18270, 3.17355, .25514, .11683,
1492 + .08182, .19520, .27468,
1493 + .31999, .18349, 3.15692, .25658, .11998,
1494 + .08559, .19747, .27632,
1495 + .32219, .18415, 3.13743, .25771, .12264,
1496 + .08874, .19936, .27761,
1497 + .32440, .18481, 3.11808, .25883, .12535,
1498 + .09200, .20124, .27890,
1499 + .32643, .18538, 3.09601, .25973, .12775,
1500 + .09488, .20288, .27995,
1501 + .32835, .18592, 3.07495, .26055, .13002,
1502 + .09764, .20441, .28092,
1503 + .33008, .18638, 3.05335, .26121, .13201,
1504 + .10006, .20571, .28169 /
1505 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
1506 + .33177, .18683, 3.03080, .26180, .13394,
1507 + .10242, .20695, .28240,
1508 + .33341, .18725, 3.00825, .26233, .13580,
1509 + .10471, .20812, .28304,
1510 + .33488, .18759, 2.98497, .26270, .13740,
1511 + .10669, .20908, .28350,
1512 + .33627, .18791, 2.96316, .26304, .13892,
1513 + .10859, .21000, .28394,
1514 + .33761, .18821, 2.94008, .26330, .14035,
1515 + .11039, .21082, .28428 /
1516 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
1517 + .26525, .16840, 1.92500, .16490, .00000,
1518 + .00000, .08873, .18064,
1519 + .26934, .17016, 1.99490, .16695, .00000,
1520 + .00000, .09172, .18312,
1521 + .27535, .17271, 2.09100, .17007, .00300,
1522 + .00000, .09627, .18689,
1523 + .27962, .17447, 2.14833, .17236, .00648,
1524 + .00000, .09958, .18962,
1525 + .28411, .17631, 2.20766, .17480, .01239,
1526 + .00000, .10310, .19251,
1527 + .28791, .17784, 2.25480, .17691, .01615,
1528 + .00000, .10615, .19500,
1529 + .29152, .17926, 2.29744, .17891, .02005,
1530 + .00000, .10905, .19736,
1531 + .29528, .18073, 2.33895, .18102, .02400,
1532 + .00000, .11210, .19984 /
1533 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
1534 + .29849, .18196, 2.37227, .18282, .02749,
1535 + .00000, .11472, .20195,
1536 + .30153, .18310, 2.40166, .18454, .03072,
1537 + .00000, .11723, .20395,
1538 + .30395, .18401, 2.42431, .18591, .03346,
1539 + .00000, .11922, .20554,
1540 + .30889, .18581, 2.46007, .18868, .03876,
1541 + .00058, .12330, .20876,
1542 + .31304, .18727, 2.48096, .19094, .04324,
1543 + .00597, .12669, .21140,
1544 + .31756, .18884, 2.49788, .19338, .04822,
1545 + .01326, .13038, .21423,
1546 + .32207, .19035, 2.51046, .19577, .05318,
1547 + .01902, .13404, .21699,
1548 + .32598, .19161, 2.51590, .19772, .05738,
1549 + .02384, .13714, .21927 /
1550 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
1551 + .32980, .19281, 2.51813, .19959, .06156,
1552 + .02883, .14014, .22145,
1553 + .33284, .19374, 2.51668, .20103, .06486,
1554 + .03272, .14250, .22311,
1555 + .33638, .19477, 2.51092, .20259, .06867,
1556 + .03720, .14518, .22494,
1557 + .33944, .19563, 2.50407, .20390, .07199,
1558 + .04119, .14746, .22647,
1559 + .34205, .19633, 2.49371, .20491, .07474,
1560 + .04440, .14935, .22766,
1561 + .34529, .19716, 2.47913, .20612, .07819,
1562 + .04854, .15165, .22908,
1563 + .34817, .19786, 2.46230, .20709, .08123,
1564 + .05217, .15363, .23024,
1565 + .35073, .19843, 2.44403, .20785, .08389,
1566 + .05537, .15532, .23115 /
1567 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
1568 + .35321, .19897, 2.42473, .20853, .08649,
1569 + .05853, .15692, .23199,
1570 + .35544, .19940, 2.40282, .20901, .08877,
1571 + .06129, .15828, .23259,
1572 + .35753, .19979, 2.38208, .20944, .09094,
1573 + .06396, .15955, .23313,
1574 + .35932, .20007, 2.35986, .20967, .09272,
1575 + .06616, .16054, .23344,
1576 + .36111, .20034, 2.33790, .20990, .09454,
1577 + .06842, .16152, .23375,
1578 + .36270, .20054, 2.31419, .20997, .09612,
1579 + .07040, .16232, .23388,
1580 + .36420, .20072, 2.29175, .21002, .09761,
1581 + .07229, .16306, .23399,
1582 + .36551, .20083, 2.26945, .20997, .09890,
1583 + .07393, .16364, .23397 /
1584 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
1585 + .36678, .20091, 2.24655, .20986, .10013,
1586 + .07551, .16417, .23390,
1587 + .36799, .20098, 2.22387, .20973, .10131,
1588 + .07705, .16466, .23379,
1589 + .36903, .20100, 2.20109, .20949, .10230,
1590 + .07835, .16501, .23357,
1591 + .37001, .20101, 2.17979, .20927, .10324,
1592 + .07960, .16534, .23337,
1593 + .37093, .20098, 2.15767, .20898, .10411,
1594 + .08077, .16560, .23309 /
1595 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
1596 + .33599, .20624, 1.44707, .14045, .00000,
1597 + .00000, .07840, .16619,
1598 + .34021, .20758, 1.49331, .14128, .00000,
1599 + .00000, .08027, .16735,
1600 + .34631, .20948, 1.55544, .14257, .00218,
1601 + .00000, .08308, .16910,
1602 + .35055, .21071, 1.59057, .14348, .00470,
1603 + .00000, .08510, .17033,
1604 + .35498, .21197, 1.62633, .14445, .00896,
1605 + .00000, .08723, .17161,
1606 + .35865, .21298, 1.65379, .14528, .01164,
1607 + .00000, .08905, .17268,
1608 + .36209, .21389, 1.67790, .14605, .01440,
1609 + .00000, .09077, .17367,
1610 + .36561, .21479, 1.70040, .14685, .01717,
1611 + .00000, .09256, .17468 /
1612 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
1613 + .36858, .21551, 1.71765, .14751, .01960,
1614 + .00000, .09407, .17551,
1615 + .37135, .21615, 1.73204, .14813, .02184,
1616 + .00000, .09550, .17627,
1617 + .37353, .21664, 1.74288, .14861, .02373,
1618 + .00000, .09663, .17687,
1619 + .37788, .21755, 1.75658, .14953, .02733,
1620 + .00043, .09889, .17800,
1621 + .38142, .21822, 1.76094, .15024, .03034,
1622 + .00408, .10073, .17885,
1623 + .38520, .21887, 1.76103, .15094, .03365,
1624 + .00902, .10268, .17970,
1625 + .38887, .21941, 1.75738, .15154, .03690,
1626 + .01286, .10456, .18042,
1627 + .39191, .21978, 1.74973, .15195, .03961,
1628 + .01604, .10608, .18089 /
1629 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
1630 + .39481, .22006, 1.73979, .15228, .04227,
1631 + .01930, .10752, .18126,
1632 + .39704, .22021, 1.72928, .15246, .04435,
1633 + .02181, .10860, .18147,
1634 + .39954, .22029, 1.71387, .15257, .04670,
1635 + .02466, .10978, .18158,
1636 + .40163, .22032, 1.69919, .15261, .04873,
1637 + .02719, .11075, .18162,
1638 + .40331, .22024, 1.68297, .15253, .05038,
1639 + .02918, .11148, .18149,
1640 + .40532, .22008, 1.66168, .15237, .05242,
1641 + .03173, .11235, .18127,
1642 + .40700, .21985, 1.63983, .15211, .05418,
1643 + .03394, .11302, .18093,
1644 + .40840, .21955, 1.61790, .15177, .05570,
1645 + .03585, .11354, .18051 /
1646 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
1647 + .40970, .21921, 1.59557, .15138, .05715,
1648 + .03772, .11399, .18003,
1649 + .41074, .21877, 1.57197, .15089, .05839,
1650 + .03933, .11430, .17942,
1651 + .41169, .21835, 1.54990, .15041, .05956,
1652 + .04086, .11457, .17883,
1653 + .41236, .21787, 1.52756, .14984, .06049,
1654 + .04210, .11469, .17815,
1655 + .41302, .21739, 1.50559, .14928, .06143,
1656 + .04337, .11480, .17746,
1657 + .41349, .21682, 1.48289, .14863, .06222,
1658 + .04445, .11480, .17667,
1659 + .41391, .21628, 1.46160, .14801, .06295,
1660 + .04547, .11479, .17592,
1661 + .41419, .21572, 1.44095, .14736, .06355,
1662 + .04634, .11471, .17514 /
1663 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
1664 + .41440, .21513, 1.42005, .14668, .06412,
1665 + .04717, .11459, .17432,
1666 + .41456, .21454, 1.39958, .14600, .06465,
1667 + .04797, .11444, .17350,
1668 + .41458, .21392, 1.37953, .14528, .06507,
1669 + .04862, .11423, .17263,
1670 + .41460, .21334, 1.36087, .14462, .06547,
1671 + .04925, .11403, .17182,
1672 + .41454, .21271, 1.34180, .14390, .06582,
1673 + .04982, .11378, .17095 /
1674 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
1675 + .39877, .23434, 1.15855, .11893, .00000,
1676 + .00000, .06939, .15300,
1677 + .40256, .23507, 1.19451, .11914, .00000,
1678 + .00000, .07061, .15332,
1679 + .40798, .23601, 1.24158, .11948, .00173,
1680 + .00000, .07246, .15379,
1681 + .41160, .23654, 1.26674, .11973, .00372,
1682 + .00000, .07377, .15408,
1683 + .41534, .23704, 1.29184, .11998, .00707,
1684 + .00000, .07513, .15436,
1685 + .41837, .23737, 1.31017, .12018, .00915,
1686 + .00000, .07628, .15457,
1687 + .42114, .23762, 1.32563, .12036, .01128,
1688 + .00000, .07735, .15474,
1689 + .42392, .23781, 1.33916, .12052, .01341,
1690 + .00000, .07844, .15486 /
1691 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
1692 + .42621, .23792, 1.34882, .12064, .01526,
1693 + .00000, .07935, .15493,
1694 + .42829, .23796, 1.35611, .12073, .01695,
1695 + .00000, .08019, .15496,
1696 + .42991, .23798, 1.36137, .12079, .01837,
1697 + .00000, .08085, .15497,
1698 + .43300, .23784, 1.36461, .12085, .02105,
1699 + .00034, .08214, .15488,
1700 + .43539, .23761, 1.36133, .12082, .02327,
1701 + .00305, .08315, .15469,
1702 + .43783, .23726, 1.35378, .12073, .02567,
1703 + .00672, .08418, .15439,
1704 + .44006, .23675, 1.34281, .12053, .02800,
1705 + .00953, .08513, .15397,
1706 + .44174, .23615, 1.32946, .12025, .02991,
1707 + .01183, .08584, .15343 /
1708 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
1709 + .44323, .23547, 1.31435, .11990, .03177,
1710 + .01416, .08647, .15282,
1711 + .44428, .23483, 1.30015, .11954, .03320,
1712 + .01594, .08690, .15224,
1713 + .44529, .23395, 1.28097, .11903, .03479,
1714 + .01794, .08732, .15142,
1715 + .44607, .23313, 1.26337, .11854, .03615,
1716 + .01969, .08764, .15065,
1717 + .44651, .23228, 1.24527, .11800, .03723,
1718 + .02106, .08781, .14984,
1719 + .44694, .23116, 1.22204, .11729, .03855,
1720 + .02279, .08798, .14877,
1721 + .44712, .23002, 1.19907, .11654, .03966,
1722 + .02426, .08802, .14769,
1723 + .44709, .22888, 1.17670, .11578, .04059,
1724 + .02552, .08799, .14660 /
1725 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
1726 + .44696, .22772, 1.15428, .11499, .04148,
1727 + .02673, .08791, .14548,
1728 + .44659, .22648, 1.13131, .11413, .04221,
1729 + .02776, .08772, .14429,
1730 + .44622, .22532, 1.10999, .11332, .04288,
1731 + .02873, .08754, .14317,
1732 + .44562, .22413, 1.08900, .11249, .04340,
1733 + .02949, .08727, .14202,
1734 + .44502, .22295, 1.06846, .11166, .04391,
1735 + .03027, .08701, .14087,
1736 + .44423, .22172, 1.04769, .11079, .04431,
1737 + .03092, .08666, .13968,
1738 + .44345, .22056, 1.02833, .10996, .04468,
1739 + .03152, .08633, .13854,
1740 + .44260, .21942, 1.00983, .10914, .04497,
1741 + .03203, .08596, .13743 /
1742 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
1743 + .44168, .21824, .99128, .10829, .04524,
1744 + .03250, .08557, .13630,
1745 + .44074, .21708, .97324, .10745, .04547,
1746 + .03295, .08517, .13518,
1747 + .43970, .21592, .95582, .10662, .04564,
1748 + .03330, .08475, .13407,
1749 + .43872, .21484, .93967, .10583, .04580,
1750 + .03364, .08434, .13302,
1751 + .43764, .21371, .92333, .10502, .04591,
1752 + .03393, .08390, .13194 /
1753 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
1754 + .45384, .25493, .98305, .09995, .00000,
1755 + .00000, .06114, .13982,
1756 + .45682, .25496, 1.01238, .09988, .00000,
1757 + .00000, .06199, .13956,
1758 + .46092, .25485, 1.04948, .09979, .00145,
1759 + .00000, .06325, .13916,
1760 + .46353, .25460, 1.06778, .09971, .00310,
1761 + .00000, .06410, .13882,
1762 + .46615, .25427, 1.08553, .09962, .00587,
1763 + .00000, .06499, .13844,
1764 + .46818, .25388, 1.09753, .09954, .00758,
1765 + .00000, .06572, .13808,
1766 + .46997, .25343, 1.10698, .09943, .00931,
1767 + .00000, .06640, .13769,
1768 + .47167, .25288, 1.11427, .09930, .01103,
1769 + .00000, .06707, .13723 /
1770 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
1771 + .47300, .25233, 1.11865, .09915, .01251,
1772 + .00000, .06762, .13680,
1773 + .47414, .25174, 1.12099, .09899, .01385,
1774 + .00000, .06811, .13635,
1775 + .47501, .25127, 1.12238, .09886, .01497,
1776 + .00000, .06850, .13599,
1777 + .47642, .25009, 1.11842, .09851, .01706,
1778 + .00028, .06919, .13511,
1779 + .47735, .24896, 1.10988, .09814, .01877,
1780 + .00240, .06970, .13427,
1781 + .47813, .24761, 1.09715, .09767, .02060,
1782 + .00526, .07019, .13327,
1783 + .47858, .24607, 1.08136, .09712, .02235,
1784 + .00742, .07058, .13214,
1785 + .47865, .24454, 1.06435, .09651, .02376,
1786 + .00917, .07081, .13101 /
1787 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
1788 + .47852, .24294, 1.04604, .09586, .02511,
1789 + .01093, .07098, .12982,
1790 + .47819, .24155, 1.02962, .09528, .02613,
1791 + .01225, .07104, .12877,
1792 + .47752, .23977, 1.00838, .09450, .02725,
1793 + .01372, .07102, .12743,
1794 + .47682, .23818, .98930, .09379, .02820,
1795 + .01500, .07097, .12623,
1796 + .47589, .23662, .97042, .09308, .02893,
1797 + .01598, .07083, .12504,
1798 + .47460, .23462, .94653, .09215, .02981,
1799 + .01721, .07062, .12352,
1800 + .47317, .23269, .92348, .09123, .03053,
1801 + .01824, .07034, .12203,
1802 + .47164, .23081, .90149, .09032, .03112,
1803 + .01911, .07001, .12060 /
1804 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
1805 + .47003, .22892, .87971, .08939, .03167,
1806 + .01994, .06965, .11916,
1807 + .46820, .22699, .85786, .08843, .03210,
1808 + .02062, .06923, .11769,
1809 + .46646, .22518, .83772, .08753, .03249,
1810 + .02126, .06883, .11631,
1811 + .46459, .22341, .81829, .08664, .03276,
1812 + .02176, .06838, .11494,
1813 + .46272, .22165, .79935, .08575, .03304,
1814 + .02226, .06793, .11359,
1815 + .46069, .21986, .78051, .08483, .03323,
1816 + .02265, .06743, .11224,
1817 + .45875, .21817, .76304, .08397, .03340,
1818 + .02303, .06695, .11097,
1819 + .45681, .21653, .74652, .08313, .03352,
1820 + .02333, .06646, .10974 /
1821 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
1822 + .45481, .21488, .73010, .08227, .03362,
1823 + .02360, .06596, .10849,
1824 + .45280, .21325, .71421, .08143, .03370,
1825 + .02386, .06547, .10727,
1826 + .45075, .21167, .69906, .08060, .03373,
1827 + .02405, .06496, .10607,
1828 + .44883, .21018, .68506, .07983, .03376,
1829 + .02423, .06448, .10495,
1830 + .44680, .20866, .67101, .07904, .03376,
1831 + .02438, .06397, .10381 /
1832 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
1833 + .51187, .27221, .85637, .07982, .00000,
1834 + .00000, .05173, .12301,
1835 + .51344, .27132, .87821, .07964, .00000,
1836 + .00000, .05229, .12228,
1837 + .51536, .26983, .90406, .07938, .00121,
1838 + .00000, .05309, .12119,
1839 + .51630, .26860, .91461, .07917, .00258,
1840 + .00000, .05362, .12033,
1841 + .51715, .26723, .92412, .07893, .00486,
1842 + .00000, .05416, .11940,
1843 + .51765, .26592, .92917, .07869, .00624,
1844 + .00000, .05458, .11858,
1845 + .51793, .26461, .93208, .07845, .00763,
1846 + .00000, .05495, .11777,
1847 + .51799, .26316, .93269, .07818, .00899,
1848 + .00000, .05529, .11686 /
1849 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
1850 + .51788, .26183, .93148, .07791, .01015,
1851 + .00000, .05555, .11605,
1852 + .51762, .26050, .92869, .07763, .01119,
1853 + .00000, .05578, .11524,
1854 + .51739, .25943, .92609, .07741, .01206,
1855 + .00000, .05595, .11460,
1856 + .51641, .25701, .91478, .07686, .01365,
1857 + .00023, .05620, .11314,
1858 + .51527, .25482, .90094, .07633, .01492,
1859 + .00185, .05633, .11183,
1860 + .51374, .25231, .88309, .07569, .01626,
1861 + .00403, .05641, .11033,
1862 + .51179, .24961, .86274, .07495, .01752,
1863 + .00565, .05640, .10871,
1864 + .50968, .24705, .84244, .07422, .01851,
1865 + .00694, .05628, .10717 /
1866 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
1867 + .50736, .24442, .82139, .07345, .01944,
1868 + .00822, .05611, .10558,
1869 + .50525, .24220, .80323, .07277, .02013,
1870 + .00916, .05592, .10424,
1871 + .50243, .23945, .78051, .07190, .02087,
1872 + .01021, .05562, .10258,
1873 + .49985, .23701, .76050, .07112, .02148,
1874 + .01110, .05532, .10110,
1875 + .49721, .23469, .74138, .07034, .02193,
1876 + .01177, .05498, .09970,
1877 + .49380, .23176, .71754, .06936, .02246,
1878 + .01260, .05452, .09793,
1879 + .49038, .22898, .69506, .06841, .02288,
1880 + .01328, .05403, .09624,
1881 + .48703, .22633, .67404, .06749, .02320,
1882 + .01385, .05353, .09465 /
1883 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
1884 + .48362, .22369, .65348, .06656, .02350,
1885 + .01438, .05302, .09307,
1886 + .48006, .22107, .63331, .06561, .02370,
1887 + .01480, .05246, .09150,
1888 + .47671, .21862, .61487, .06474, .02388,
1889 + .01519, .05193, .09003,
1890 + .47334, .21625, .59739, .06387, .02398,
1891 + .01548, .05139, .08862,
1892 + .47000, .21392, .58046, .06303, .02409,
1893 + .01577, .05085, .08723,
1894 + .46655, .21158, .56388, .06217, .02413,
1895 + .01599, .05028, .08584,
1896 + .46329, .20938, .54862, .06137, .02417,
1897 + .01620, .04975, .08454,
1898 + .46011, .20729, .53437, .06059, .02417,
1899 + .01635, .04923, .08331 /
1900 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
1901 + .45687, .20518, .52031, .05980, .02415,
1902 + .01649, .04870, .08208,
1903 + .45368, .20311, .50680, .05902, .02412,
1904 + .01661, .04817, .08088,
1905 + .45052, .20111, .49406, .05828, .02407,
1906 + .01669, .04765, .07972,
1907 + .44756, .19925, .48233, .05759, .02401,
1908 + .01677, .04716, .07864,
1909 + .44451, .19735, .47067, .05688, .02394,
1910 + .01682, .04665, .07754 /
1911 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
1912 + .55812, .28180, .78567, .06353, .00000,
1913 + .00000, .04328, .10606,
1914 + .55797, .28002, .79967, .06337, .00000,
1915 + .00000, .04368, .10507,
1916 + .55732, .27723, .81408, .06313, .00103,
1917 + .00000, .04424, .10358,
1918 + .55637, .27502, .81693, .06289, .00219,
1919 + .00000, .04457, .10244,
1920 + .55522, .27265, .81844, .06263, .00412,
1921 + .00000, .04490, .10124,
1922 + .55396, .27049, .81692, .06237, .00526,
1923 + .00000, .04513, .10017,
1924 + .55256, .26838, .81381, .06210, .00640,
1925 + .00000, .04532, .09913,
1926 + .55084, .26609, .80840, .06179, .00749,
1927 + .00000, .04546, .09800 /
1928 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
1929 + .54918, .26404, .80227, .06150, .00842,
1930 + .00000, .04556, .09700,
1931 + .54743, .26202, .79505, .06119, .00924,
1932 + .00000, .04562, .09602,
1933 + .54601, .26042, .78906, .06095, .00992,
1934 + .00000, .04566, .09524,
1935 + .54256, .25687, .77168, .06033, .01114,
1936 + .00019, .04565, .09352,
1937 + .53927, .25376, .75358, .05977, .01211,
1938 + .00145, .04557, .09199,
1939 + .53538, .25026, .73177, .05911, .01311,
1940 + .00315, .04543, .09025,
1941 + .53102, .24653, .70809, .05835, .01402,
1942 + .00440, .04520, .08843,
1943 + .52675, .24309, .68560, .05760, .01472,
1944 + .00536, .04490, .08673 /
1945 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
1946 + .52229, .23961, .66289, .05682, .01537,
1947 + .00632, .04456, .08502,
1948 + .51842, .23670, .64382, .05615, .01583,
1949 + .00701, .04424, .08359,
1950 + .51354, .23313, .62057, .05529, .01632,
1951 + .00776, .04380, .08185,
1952 + .50918, .22999, .60041, .05453, .01671,
1953 + .00840, .04338, .08032,
1954 + .50492, .22709, .58164, .05380, .01698,
1955 + .00886, .04295, .07889,
1956 + .49950, .22343, .55854, .05287, .01729,
1957 + .00944, .04239, .07709,
1958 + .49428, .21998, .53716, .05197, .01752,
1959 + .00990, .04182, .07541,
1960 + .48926, .21674, .51752, .05111, .01768,
1961 + .01027, .04127, .07384 /
1962 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
1963 + .48423, .21354, .49853, .05025, .01782,
1964 + .01061, .04070, .07229,
1965 + .47912, .21039, .48019, .04939, .01789,
1966 + .01087, .04012, .07076,
1967 + .47433, .20747, .46354, .04860, .01794,
1968 + .01111, .03958, .06934,
1969 + .46966, .20467, .44803, .04782, .01795,
1970 + .01128, .03903, .06801,
1971 + .46504, .20191, .43308, .04706, .01795,
1972 + .01145, .03848, .06670,
1973 + .46037, .19917, .41865, .04629, .01792,
1974 + .01156, .03793, .06541,
1975 + .45599, .19661, .40544, .04557, .01788,
1976 + .01167, .03740, .06421,
1977 + .45176, .19419, .39323, .04488, .01782,
1978 + .01174, .03690, .06307 /
1979 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
1980 + .44748, .19178, .38128, .04420, .01775,
1981 + .01180, .03640, .06193,
1982 + .44328, .18942, .36986, .04354, .01767,
1983 + .01185, .03590, .06083,
1984 + .43920, .18715, .35920, .04289, .01758,
1985 + .01188, .03541, .05979,
1986 + .43539, .18503, .34943, .04229, .01749,
1987 + .01190, .03495, .05882,
1988 + .43150, .18289, .33978, .04168, .01739,
1989 + .01190, .03449, .05785 /
1990 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
1991 + .59293, .28513, .74132, .05067, .00000,
1992 + .00000, .03581, .08950,
1993 + .59093, .28253, .74732, .05057, .00000,
1994 + .00000, .03611, .08840,
1995 + .58754, .27852, .75034, .05039, .00089,
1996 + .00000, .03651, .08673,
1997 + .58458, .27546, .74581, .05019, .00188,
1998 + .00000, .03671, .08548,
1999 + .58131, .27221, .73979, .04997, .00351,
2000 + .00000, .03690, .08415,
2001 + .57821, .26932, .73229, .04974, .00446,
2002 + .00000, .03701, .08299,
2003 + .57508, .26651, .72380, .04949, .00540,
2004 + .00000, .03708, .08186,
2005 + .57155, .26348, .71318, .04919, .00629,
2006 + .00000, .03711, .08066 /
2007 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
2008 + .56834, .26082, .70289, .04890, .00704,
2009 + .00000, .03711, .07960,
2010 + .56510, .25821, .69201, .04860, .00769,
2011 + .00000, .03707, .07855,
2012 + .56251, .25616, .68326, .04836, .00823,
2013 + .00000, .03704, .07773,
2014 + .55657, .25168, .66115, .04779, .00918,
2015 + .00016, .03689, .07593,
2016 + .55120, .24780, .63991, .04725, .00991,
2017 + .00115, .03669, .07436,
2018 + .54502, .24347, .61535, .04661, .01066,
2019 + .00249, .03641, .07262,
2020 + .53839, .23891, .58960, .04588, .01132,
2021 + .00345, .03607, .07078,
2022 + .53207, .23476, .56596, .04518, .01182,
2023 + .00419, .03568, .06911 /
2024 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
2025 + .52563, .23060, .54257, .04444, .01226,
2026 + .00491, .03525, .06744,
2027 + .52016, .22715, .52335, .04381, .01257,
2028 + .00542, .03488, .06605,
2029 + .51341, .22297, .50035, .04302, .01288,
2030 + .00597, .03438, .06437,
2031 + .50744, .21932, .48069, .04231, .01312,
2032 + .00643, .03393, .06291,
2033 + .50175, .21595, .46279, .04164, .01328,
2034 + .00675, .03347, .06157,
2035 + .49457, .21174, .44100, .04079, .01344,
2036 + .00715, .03289, .05990,
2037 + .48777, .20780, .42118, .03997, .01355,
2038 + .00746, .03232, .05834,
2039 + .48130, .20415, .40319, .03920, .01361,
2040 + .00771, .03177, .05689 /
2041 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
2042 + .47485, .20056, .38595, .03844, .01366,
2043 + .00793, .03122, .05548,
2044 + .46845, .19704, .36957, .03768, .01365,
2045 + .00809, .03066, .05409,
2046 + .46250, .19378, .35479, .03697, .01364,
2047 + .00824, .03014, .05282,
2048 + .45675, .19068, .34122, .03629, .01360,
2049 + .00833, .02962, .05163,
2050 + .45108, .18764, .32820, .03562, .01355,
2051 + .00842, .02912, .05047,
2052 + .44540, .18466, .31581, .03496, .01348,
2053 + .00848, .02861, .04932,
2054 + .44008, .18188, .30452, .03435, .01340,
2055 + .00853, .02813, .04825,
2056 + .43501, .17926, .29416, .03377, .01331,
2057 + .00856, .02768, .04726 /
2058 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
2059 + .42992, .17665, .28408, .03318, .01322,
2060 + .00857, .02723, .04628,
2061 + .42495, .17410, .27451, .03261, .01312,
2062 + .00859, .02678, .04533,
2063 + .42018, .17165, .26567, .03205, .01302,
2064 + .00858, .02635, .04443,
2065 + .41572, .16937, .25758, .03153, .01292,
2066 + .00857, .02595, .04361,
2067 + .41119, .16709, .24966, .03101, .01281,
2068 + .00855, .02554, .04278 /
2069 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
2070 + .61689, .28338, .70647, .04067, .00000,
2071 + .00000, .02932, .07380,
2072 + .61300, .28003, .70475, .04063, .00000,
2073 + .00000, .02955, .07270,
2074 + .60683, .27496, .69716, .04051, .00077,
2075 + .00000, .02982, .07107,
2076 + .60186, .27114, .68594, .04035, .00161,
2077 + .00000, .02995, .06983,
2078 + .59650, .26711, .67328, .04016, .00299,
2079 + .00000, .03006, .06852,
2080 + .59165, .26357, .66068, .03995, .00378,
2081 + .00000, .03010, .06738,
2082 + .58684, .26016, .64770, .03971, .00456,
2083 + .00000, .03010, .06628,
2084 + .58155, .25652, .63284, .03943, .00528,
2085 + .00000, .03006, .06511 /
2086 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
2087 + .57683, .25335, .61928, .03917, .00588,
2088 + .00000, .03000, .06407,
2089 + .57216, .25026, .60562, .03889, .00640,
2090 + .00000, .02993, .06306,
2091 + .56846, .24784, .59482, .03867, .00682,
2092 + .00000, .02985, .06226,
2093 + .56022, .24260, .56936, .03812, .00755,
2094 + .00013, .02961, .06056,
2095 + .55295, .23808, .54611, .03760, .00811,
2096 + .00092, .02936, .05908,
2097 + .54473, .23306, .52002, .03698, .00866,
2098 + .00197, .02903, .05744,
2099 + .53598, .22787, .49335, .03630, .00914,
2100 + .00272, .02864, .05574,
2101 + .52784, .22319, .46952, .03565, .00949,
2102 + .00328, .02823, .05419 /
2103 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
2104 + .51963, .21852, .44633, .03498, .00979,
2105 + .00382, .02779, .05265,
2106 + .51277, .21466, .42762, .03440, .00999,
2107 + .00420, .02741, .05138,
2108 + .50436, .21004, .40559, .03368, .01018,
2109 + .00460, .02691, .04987,
2110 + .49698, .20603, .38697, .03305, .01032,
2111 + .00493, .02645, .04857,
2112 + .49006, .20234, .37030, .03245, .01040,
2113 + .00516, .02602, .04736,
2114 + .48140, .19776, .35021, .03169, .01047,
2115 + .00544, .02547, .04587,
2116 + .47326, .19351, .33217, .03096, .01050,
2117 + .00565, .02494, .04450,
2118 + .46562, .18957, .31602, .03027, .01051,
2119 + .00580, .02443, .04324 /
2120 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
2121 + .45807, .18571, .30069, .02960, .01049,
2122 + .00594, .02392, .04201,
2123 + .45062, .18194, .28632, .02893, .01044,
2124 + .00604, .02341, .04083,
2125 + .44371, .17847, .27343, .02832, .01040,
2126 + .00613, .02294, .03974,
2127 + .43711, .17521, .26174, .02773, .01033,
2128 + .00618, .02248, .03872,
2129 + .43062, .17203, .25057, .02716, .01025,
2130 + .00622, .02204, .03772,
2131 + .42418, .16890, .24002, .02659, .01016,
2132 + .00624, .02158, .03677,
2133 + .41816, .16599, .23046, .02606, .01007,
2134 + .00626, .02116, .03589,
2135 + .41248, .16326, .22178, .02556, .00998,
2136 + .00626, .02077, .03506 /
2137 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
2138 + .40679, .16055, .21339, .02506, .00988,
2139 + .00626, .02038, .03423,
2140 + .40125, .15792, .20547, .02458, .00978,
2141 + .00625, .02000, .03343,
2142 + .39594, .15542, .19820, .02412, .00967,
2143 + .00623, .01963, .03268,
2144 + .39099, .15308, .19157, .02370, .00957,
2145 + .00621, .01929, .03199,
2146 + .38599, .15075, .18511, .02326, .00947,
2147 + .00618, .01895, .03131 /
2148 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
2149 + .63073, .27745, .67211, .03293, .00000,
2150 + .00000, .02371, .05950,
2151 + .62500, .27345, .66346, .03290, .00000,
2152 + .00000, .02390, .05851,
2153 + .61614, .26746, .64663, .03281, .00065,
2154 + .00000, .02412, .05699,
2155 + .60926, .26301, .62981, .03267, .00137,
2156 + .00000, .02421, .05584,
2157 + .60194, .25834, .61174, .03249, .00253,
2158 + .00000, .02427, .05464,
2159 + .59541, .25427, .59507, .03229, .00319,
2160 + .00000, .02427, .05359,
2161 + .58904, .25037, .57867, .03207, .00382,
2162 + .00000, .02424, .05258,
2163 + .58213, .24624, .56071, .03180, .00440,
2164 + .00000, .02416, .05151 /
2165 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
2166 + .57603, .24265, .54483, .03155, .00488,
2167 + .00000, .02407, .05057,
2168 + .57004, .23919, .52927, .03129, .00529,
2169 + .00000, .02397, .04966,
2170 + .56532, .23648, .51711, .03109, .00562,
2171 + .00000, .02388, .04894,
2172 + .55502, .23065, .48974, .03057, .00618,
2173 + .00011, .02361, .04739,
2174 + .54604, .22566, .46560, .03007, .00660,
2175 + .00073, .02333, .04608,
2176 + .53598, .22016, .43910, .02949, .00701,
2177 + .00156, .02299, .04463,
2178 + .52538, .21453, .41255, .02889, .00735,
2179 + .00214, .02258, .04311,
2180 + .51569, .20946, .38937, .02828, .00758,
2181 + .00256, .02219, .04175 /
2182 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
2183 + .50600, .20443, .36711, .02766, .00778,
2184 + .00297, .02177, .04042,
2185 + .49797, .20030, .34937, .02713, .00791,
2186 + .00325, .02140, .03932,
2187 + .48821, .19538, .32883, .02648, .00801,
2188 + .00354, .02094, .03801,
2189 + .47968, .19113, .31167, .02592, .00809,
2190 + .00378, .02053, .03689,
2191 + .47180, .18724, .29651, .02537, .00812,
2192 + .00394, .02012, .03587,
2193 + .46196, .18243, .27840, .02469, .00814,
2194 + .00413, .01962, .03462,
2195 + .45274, .17799, .26232, .02407, .00812,
2196 + .00427, .01914, .03346,
2197 + .44416, .17390, .24810, .02348, .00809,
2198 + .00437, .01869, .03240 /
2199 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
2200 + .43574, .16993, .23473, .02289, .00804,
2201 + .00446, .01825, .03137,
2202 + .42749, .16606, .22231, .02232, .00798,
2203 + .00451, .01780, .03038,
2204 + .41987, .16251, .21124, .02179, .00791,
2205 + .00456, .01738, .02947,
2206 + .41265, .15919, .20129, .02128, .00783,
2207 + .00458, .01700, .02864,
2208 + .40557, .15594, .19184, .02079, .00775,
2209 + .00460, .01662, .02782,
2210 + .39860, .15277, .18300, .02030, .00765,
2211 + .00460, .01624, .02704,
2212 + .39212, .14982, .17502, .01984, .00756,
2213 + .00460, .01588, .02632,
2214 + .38599, .14707, .16784, .01942, .00747,
2215 + .00459, .01554, .02565 /
2216 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
2217 + .37988, .14435, .16094, .01900, .00738,
2218 + .00457, .01521, .02500,
2219 + .37395, .14172, .15444, .01860, .00728,
2220 + .00455, .01488, .02436,
2221 + .36832, .13922, .14852, .01821, .00719,
2222 + .00453, .01458, .02376,
2223 + .36308, .13690, .14313, .01786, .00710,
2224 + .00450, .01430, .02320,
2225 + .35780, .13458, .13792, .01750, .00700,
2226 + .00447, .01402, .02265 /
2227 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
2228 + .63527, .26812, .63397, .02689, .00000,
2229 + .00000, .01899, .04685,
2230 + .62780, .26362, .61955, .02688, .00000,
2231 + .00000, .01916, .04597,
2232 + .61642, .25691, .59527, .02678, .00055,
2233 + .00000, .01934, .04467,
2234 + .60777, .25197, .57415, .02665, .00115,
2235 + .00000, .01938, .04367,
2236 + .59863, .24681, .55205, .02648, .00212,
2237 + .00000, .01940, .04261,
2238 + .59057, .24235, .53253, .02630, .00266,
2239 + .00000, .01937, .04169,
2240 + .58278, .23809, .51380, .02610, .00318,
2241 + .00000, .01932, .04081,
2242 + .57443, .23359, .49385, .02584, .00364,
2243 + .00000, .01922, .03988 /
2244 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
2245 + .56711, .22970, .47660, .02560, .00402,
2246 + .00000, .01912, .03907,
2247 + .55998, .22597, .46004, .02535, .00434,
2248 + .00000, .01899, .03829,
2249 + .55439, .22305, .44721, .02515, .00460,
2250 + .00000, .01888, .03768,
2251 + .54230, .21680, .41921, .02466, .00502,
2252 + .00009, .01861, .03636,
2253 + .53184, .21151, .39515, .02421, .00533,
2254 + .00058, .01834, .03522,
2255 + .52020, .20571, .36923, .02369, .00563,
2256 + .00122, .01801, .03397,
2257 + .50813, .19976, .34371, .02310, .00587,
2258 + .00167, .01764, .03270,
2259 + .49720, .19443, .32178, .02254, .00602,
2260 + .00199, .01727, .03156 /
2261 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
2262 + .48630, .18919, .30099, .02198, .00615,
2263 + .00230, .01689, .03045,
2264 + .47727, .18495, .28464, .02152, .00622,
2265 + .00250, .01655, .02953,
2266 + .46644, .17988, .26592, .02095, .00628,
2267 + .00271, .01612, .02845,
2268 + .45704, .17550, .25042, .02045, .00631,
2269 + .00288, .01575, .02752,
2270 + .44841, .17153, .23692, .01996, .00631,
2271 + .00300, .01540, .02670,
2272 + .43769, .16663, .22093, .01935, .00629,
2273 + .00313, .01496, .02568,
2274 + .42774, .16213, .20690, .01879, .00626,
2275 + .00322, .01455, .02472,
2276 + .41851, .15799, .19460, .01827, .00620,
2277 + .00328, .01416, .02386 /
2278 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
2279 + .40948, .15398, .18310, .01777, .00615,
2280 + .00333, .01378, .02304,
2281 + .40070, .15011, .17253, .01727, .00607,
2282 + .00336, .01341, .02224,
2283 + .39261, .14656, .16316, .01682, .00600,
2284 + .00339, .01308, .02150,
2285 + .38497, .14325, .15485, .01640, .00592,
2286 + .00339, .01275, .02083,
2287 + .37749, .14002, .14697, .01600, .00584,
2288 + .00340, .01242, .02018,
2289 + .37020, .13689, .13967, .01557, .00575,
2290 + .00339, .01210, .01956,
2291 + .36343, .13399, .13310, .01517, .00567,
2292 + .00338, .01181, .01900,
2293 + .35706, .13128, .12722, .01482, .00559,
2294 + .00336, .01154, .01847 /
2295 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
2296 + .35072, .12860, .12158, .01448, .00550,
2297 + .00334, .01128, .01795,
2298 + .34459, .12602, .11631, .01415, .00542,
2299 + .00332, .01102, .01745,
2300 + .33876, .12359, .11152, .01384, .00533,
2301 + .00329, .01076, .01699,
2302 + .33335, .12133, .10719, .01355, .00525,
2303 + .00327, .01053, .01656,
2304 + .32793, .11909, .10302, .01326, .00517,
2305 + .00324, .01029, .01614 /
2306 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
2307 + .63113, .25648, .59093, .02237, .00000,
2308 + .00000, .01487, .03585,
2309 + .62210, .25156, .57201, .02234, .00000,
2310 + .00000, .01502, .03514,
2311 + .60849, .24428, .54217, .02223, .00047,
2312 + .00000, .01517, .03407,
2313 + .59828, .23895, .51808, .02206, .00097,
2314 + .00000, .01521, .03326,
2315 + .58755, .23342, .49337, .02187, .00177,
2316 + .00000, .01522, .03240,
2317 + .57819, .22866, .47214, .02167, .00221,
2318 + .00000, .01518, .03165,
2319 + .56920, .22413, .45214, .02145, .00262,
2320 + .00000, .01513, .03093,
2321 + .55965, .21935, .43124, .02119, .00299,
2322 + .00000, .01504, .03016 /
2323 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
2324 + .55133, .21524, .41346, .02094, .00329,
2325 + .00000, .01494, .02950,
2326 + .54328, .21131, .39663, .02068, .00354,
2327 + .00000, .01482, .02886,
2328 + .53697, .20824, .38370, .02048, .00374,
2329 + .00000, .01473, .02836,
2330 + .52339, .20175, .35616, .02000, .00406,
2331 + .00008, .01448, .02727,
2332 + .51176, .19626, .33298, .01956, .00428,
2333 + .00045, .01424, .02636,
2334 + .49891, .19027, .30836, .01906, .00450,
2335 + .00096, .01394, .02535,
2336 + .48563, .18419, .28447, .01855, .00466,
2337 + .00130, .01359, .02432,
2338 + .47370, .17875, .26428, .01804, .00476,
2339 + .00155, .01327, .02340 /
2340 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
2341 + .46189, .17343, .24536, .01753, .00483,
2342 + .00177, .01294, .02249,
2343 + .45221, .16912, .23066, .01711, .00487,
2344 + .00192, .01265, .02174,
2345 + .44063, .16400, .21399, .01657, .00489,
2346 + .00208, .01229, .02089,
2347 + .43063, .15961, .20031, .01610, .00489,
2348 + .00220, .01196, .02017,
2349 + .42144, .15565, .18850, .01571, .00487,
2350 + .00227, .01167, .01949,
2351 + .41010, .15076, .17462, .01520, .00484,
2352 + .00236, .01130, .01866,
2353 + .39967, .14629, .16257, .01471, .00479,
2354 + .00242, .01096, .01793,
2355 + .39002, .14222, .15211, .01427, .00473,
2356 + .00246, .01064, .01726 /
2357 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
2358 + .38059, .13828, .14239, .01384, .00467,
2359 + .00249, .01032, .01660,
2360 + .37150, .13449, .13355, .01341, .00460,
2361 + .00250, .01001, .01599,
2362 + .36315, .13102, .12575, .01302, .00453,
2363 + .00251, .00972, .01543,
2364 + .35531, .12779, .11886, .01266, .00446,
2365 + .00251, .00945, .01491,
2366 + .34766, .12464, .11237, .01231, .00438,
2367 + .00250, .00919, .01441,
2368 + .34021, .12160, .10640, .01196, .00431,
2369 + .00249, .00894, .01393,
2370 + .33331, .11878, .10106, .01164, .00423,
2371 + .00247, .00871, .01350,
2372 + .32685, .11617, .09630, .01134, .00416,
2373 + .00245, .00848, .01310 /
2374 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
2375 + .32044, .11360, .09176, .01106, .00409,
2376 + .00243, .00826, .01271,
2377 + .31425, .11112, .08752, .01078, .00401,
2378 + .00241, .00805, .01234,
2379 + .30842, .10879, .08372, .01051, .00394,
2380 + .00239, .00786, .01198,
2381 + .30301, .10664, .08028, .01026, .00387,
2382 + .00236, .00769, .01165,
2383 + .29759, .10450, .07697, .01002, .00381,
2384 + .00234, .00751, .01133 /
2385 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
2386 + .61979, .24232, .54269, .01836, .00000,
2387 + .00000, .01168, .02695,
2388 + .60937, .23714, .52065, .01832, .00000,
2389 + .00000, .01180, .02639,
2390 + .59379, .22951, .48725, .01820, .00038,
2391 + .00000, .01192, .02552,
2392 + .58223, .22394, .46154, .01804, .00079,
2393 + .00000, .01194, .02488,
2394 + .57015, .21817, .43554, .01785, .00145,
2395 + .00000, .01193, .02420,
2396 + .55968, .21324, .41361, .01765, .00180,
2397 + .00000, .01189, .02360,
2398 + .54968, .20857, .39327, .01744, .00213,
2399 + .00000, .01183, .02303,
2400 + .53909, .20366, .37236, .01719, .00242,
2401 + .00000, .01173, .02242 /
2402 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
2403 + .52991, .19946, .35480, .01696, .00265,
2404 + .00000, .01164, .02188,
2405 + .52108, .19544, .33838, .01672, .00284,
2406 + .00000, .01153, .02136,
2407 + .51418, .19232, .32584, .01653, .00299,
2408 + .00000, .01145, .02096,
2409 + .49945, .18573, .29960, .01610, .00323,
2410 + .00006, .01121, .02010,
2411 + .48690, .18017, .27792, .01570, .00339,
2412 + .00035, .01098, .01938,
2413 + .47312, .17413, .25521, .01524, .00354,
2414 + .00074, .01072, .01858,
2415 + .45903, .16801, .23348, .01476, .00365,
2416 + .00100, .01043, .01777,
2417 + .44638, .16262, .21530, .01430, .00371,
2418 + .00118, .01015, .01704 /
2419 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
2420 + .43393, .15735, .19844, .01386, .00375,
2421 + .00135, .00986, .01633,
2422 + .42378, .15309, .18547, .01350, .00376,
2423 + .00146, .00960, .01575,
2424 + .41169, .14804, .17090, .01303, .00376,
2425 + .00157, .00930, .01508,
2426 + .40128, .14371, .15904, .01263, .00375,
2427 + .00165, .00904, .01451,
2428 + .39183, .13982, .14893, .01227, .00372,
2429 + .00170, .00879, .01400,
2430 + .38018, .13506, .13713, .01183, .00368,
2431 + .00176, .00848, .01337,
2432 + .36944, .13072, .12697, .01143, .00363,
2433 + .00180, .00820, .01280,
2434 + .35961, .12677, .11820, .01105, .00357,
2435 + .00182, .00794, .01229 /
2436 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
2437 + .35006, .12295, .11010, .01067, .00352,
2438 + .00184, .00767, .01181,
2439 + .34087, .11929, .10280, .01031, .00345,
2440 + .00184, .00742, .01135,
2441 + .33245, .11594, .09638, .00998, .00339,
2442 + .00184, .00719, .01092,
2443 + .32457, .11286, .09079, .00968, .00332,
2444 + .00183, .00698, .01053,
2445 + .31690, .10987, .08554, .00940, .00326,
2446 + .00183, .00677, .01014,
2447 + .30944, .10699, .08072, .00912, .00319,
2448 + .00181, .00657, .00978,
2449 + .30255, .10433, .07642, .00886, .00313,
2450 + .00180, .00638, .00946,
2451 + .29615, .10185, .07262, .00861, .00307,
2452 + .00178, .00620, .00916 /
2453 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
2454 + .28983, .09941, .06901, .00836, .00301,
2455 + .00176, .00603, .00888,
2456 + .28374, .09707, .06565, .00812, .00295,
2457 + .00174, .00586, .00861,
2458 + .27798, .09488, .06263, .00791, .00289,
2459 + .00172, .00571, .00834,
2460 + .27264, .09287, .05991, .00771, .00283,
2461 + .00170, .00556, .00809,
2462 + .26732, .09086, .05731, .00752, .00278,
2463 + .00168, .00542, .00786 /
2464 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
2465 + .60174, .22687, .49098, .01517, .00000,
2466 + .00000, .00900, .01968,
2467 + .59016, .22149, .46713, .01510, .00000,
2468 + .00000, .00910, .01928,
2469 + .57299, .21361, .43197, .01494, .00031,
2470 + .00000, .00920, .01866,
2471 + .56034, .20793, .40575, .01477, .00065,
2472 + .00000, .00921, .01817,
2473 + .54717, .20206, .37957, .01457, .00117,
2474 + .00000, .00920, .01765,
2475 + .53584, .19705, .35788, .01437, .00145,
2476 + .00000, .00916, .01719,
2477 + .52505, .19232, .33800, .01416, .00171,
2478 + .00000, .00911, .01674,
2479 + .51368, .18738, .31780, .01392, .00193,
2480 + .00000, .00904, .01626 /
2481 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
2482 + .50387, .18316, .30103, .01371, .00211,
2483 + .00000, .00895, .01585,
2484 + .49447, .17913, .28551, .01350, .00225,
2485 + .00000, .00885, .01546,
2486 + .48713, .17601, .27373, .01333, .00237,
2487 + .00000, .00876, .01515,
2488 + .47161, .16944, .24942, .01291, .00254,
2489 + .00005, .00856, .01450,
2490 + .45844, .16393, .22964, .01254, .00266,
2491 + .00027, .00837, .01395,
2492 + .44404, .15795, .20916, .01212, .00276,
2493 + .00057, .00815, .01335,
2494 + .42938, .15195, .18977, .01170, .00283,
2495 + .00076, .00789, .01272,
2496 + .41634, .14664, .17378, .01129, .00286,
2497 + .00090, .00766, .01217 /
2498 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
2499 + .40356, .14147, .15910, .01089, .00288,
2500 + .00102, .00742, .01164,
2501 + .39318, .13732, .14790, .01057, .00288,
2502 + .00110, .00721, .01120,
2503 + .38084, .13244, .13543, .01018, .00287,
2504 + .00117, .00696, .01070,
2505 + .37024, .12828, .12536, .00985, .00285,
2506 + .00123, .00675, .01027,
2507 + .36069, .12453, .11683, .00953, .00282,
2508 + .00127, .00655, .00989,
2509 + .34896, .11995, .10693, .00914, .00277,
2510 + .00130, .00630, .00942,
2511 + .33824, .11579, .09848, .00879, .00273,
2512 + .00133, .00606, .00900,
2513 + .32842, .11202, .09125, .00847, .00268,
2514 + .00134, .00585, .00861 /
2515 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
2516 + .31890, .10840, .08462, .00817, .00262,
2517 + .00135, .00564, .00824,
2518 + .30975, .10494, .07869, .00789, .00257,
2519 + .00134, .00544, .00789,
2520 + .30138, .10179, .07350, .00763, .00251,
2521 + .00134, .00526, .00758,
2522 + .29366, .09887, .06899, .00737, .00246,
2523 + .00133, .00509, .00730,
2524 + .28615, .09603, .06478, .00712, .00241,
2525 + .00132, .00492, .00703,
2526 + .27884, .09334, .06094, .00690, .00235,
2527 + .00131, .00476, .00675,
2528 + .27209, .09086, .05753, .00669, .00230,
2529 + .00130, .00462, .00650,
2530 + .26585, .08856, .05452, .00649, .00225,
2531 + .00128, .00448, .00628 /
2532 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
2533 + .25970, .08629, .05168, .00629, .00220,
2534 + .00126, .00435, .00607,
2535 + .25378, .08412, .04904, .00610, .00215,
2536 + .00125, .00422, .00588,
2537 + .24820, .08209, .04669, .00593, .00210,
2538 + .00123, .00410, .00569,
2539 + .24304, .08022, .04457, .00578, .00206,
2540 + .00121, .00399, .00551,
2541 + .23792, .07837, .04256, .00562, .00202,
2542 + .00120, .00389, .00535 /
2543 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
2544 + .57809, .21031, .43713, .01239, .00000,
2545 + .00000, .00688, .01402,
2546 + .56560, .20488, .41264, .01230, .00000,
2547 + .00000, .00697, .01374,
2548 + .54715, .19696, .37732, .01214, .00025,
2549 + .00000, .00705, .01329,
2550 + .53365, .19124, .35165, .01197, .00052,
2551 + .00000, .00706, .01294,
2552 + .51968, .18536, .32628, .01178, .00093,
2553 + .00000, .00705, .01257,
2554 + .50774, .18035, .30552, .01158, .00115,
2555 + .00000, .00701, .01225,
2556 + .49641, .17565, .28667, .01137, .00135,
2557 + .00000, .00696, .01193,
2558 + .48452, .17074, .26774, .01114, .00153,
2559 + .00000, .00688, .01157 /
2560 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
2561 + .47429, .16656, .25218, .01093, .00166,
2562 + .00000, .00680, .01128,
2563 + .46452, .16260, .23791, .01073, .00177,
2564 + .00000, .00671, .01100,
2565 + .45691, .15952, .22715, .01057, .00185,
2566 + .00000, .00664, .01079,
2567 + .44086, .15310, .20524, .01020, .00197,
2568 + .00004, .00647, .01030,
2569 + .42732, .14773, .18760, .00989, .00205,
2570 + .00021, .00631, .00987,
2571 + .41259, .14194, .16953, .00955, .00212,
2572 + .00043, .00613, .00940,
2573 + .39765, .13612, .15266, .00918, .00217,
2574 + .00057, .00593, .00894,
2575 + .38444, .13102, .13885, .00883, .00218,
2576 + .00067, .00573, .00855 /
2577 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
2578 + .37155, .12607, .12628, .00849, .00219,
2579 + .00076, .00553, .00815,
2580 + .36114, .12210, .11678, .00820, .00218,
2581 + .00082, .00536, .00783,
2582 + .34884, .11742, .10630, .00786, .00216,
2583 + .00087, .00515, .00746,
2584 + .33831, .11343, .09789, .00758, .00214,
2585 + .00091, .00498, .00715,
2586 + .32881, .10989, .09081, .00731, .00211,
2587 + .00093, .00483, .00687,
2588 + .31718, .10557, .08266, .00700, .00207,
2589 + .00096, .00463, .00653,
2590 + .30659, .10167, .07576, .00672, .00203,
2591 + .00097, .00444, .00621,
2592 + .29696, .09813, .06989, .00647, .00198,
2593 + .00098, .00427, .00593 /
2594 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
2595 + .28767, .09472, .06453, .00622, .00194,
2596 + .00098, .00411, .00566,
2597 + .27878, .09148, .05978, .00597, .00189,
2598 + .00097, .00395, .00540,
2599 + .27067, .08855, .05564, .00575, .00184,
2600 + .00097, .00381, .00517,
2601 + .26318, .08585, .05206, .00554, .00180,
2602 + .00096, .00368, .00497,
2603 + .25591, .08324, .04873, .00534, .00176,
2604 + .00095, .00356, .00477,
2605 + .24890, .08073, .04572, .00514, .00171,
2606 + .00094, .00343, .00460,
2607 + .24244, .07843, .04305, .00496, .00167,
2608 + .00093, .00331, .00444,
2609 + .23645, .07631, .04070, .00480, .00163,
2610 + .00092, .00320, .00428 /
2611 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
2612 + .23055, .07423, .03849, .00466, .00159,
2613 + .00090, .00311, .00412,
2614 + .22489, .07224, .03645, .00453, .00156,
2615 + .00089, .00301, .00396,
2616 + .21957, .07040, .03463, .00440, .00152,
2617 + .00087, .00293, .00383,
2618 + .21466, .06870, .03301, .00428, .00148,
2619 + .00086, .00285, .00370,
2620 + .20980, .06701, .03146, .00416, .00145,
2621 + .00085, .00276, .00358 /
2622 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
2623 + .54974, .19308, .38295, .00997, .00000,
2624 + .00000, .00521, .00976,
2625 + .53657, .18768, .35882, .00988, .00000,
2626 + .00000, .00529, .00957,
2627 + .51722, .17981, .32461, .00971, .00020,
2628 + .00000, .00533, .00931,
2629 + .50318, .17419, .30028, .00954, .00041,
2630 + .00000, .00534, .00905,
2631 + .48867, .16843, .27646, .00936, .00073,
2632 + .00000, .00533, .00878,
2633 + .47631, .16354, .25719, .00917, .00090,
2634 + .00000, .00530, .00854,
2635 + .46463, .15894, .23985, .00898, .00106,
2636 + .00000, .00525, .00831,
2637 + .45241, .15416, .22260, .00879, .00119,
2638 + .00000, .00519, .00807 /
2639 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
2640 + .44196, .15010, .20852, .00860, .00129,
2641 + .00000, .00513, .00786,
2642 + .43202, .14626, .19569, .00841, .00136,
2643 + .00000, .00506, .00766,
2644 + .42430, .14328, .18607, .00827, .00142,
2645 + .00000, .00501, .00750,
2646 + .40803, .13708, .16671, .00798, .00151,
2647 + .00003, .00486, .00712,
2648 + .39440, .13193, .15137, .00770, .00157,
2649 + .00015, .00472, .00682,
2650 + .37964, .12638, .13580, .00738, .00161,
2651 + .00032, .00457, .00650,
2652 + .36473, .12082, .12135, .00706, .00164,
2653 + .00043, .00441, .00618,
2654 + .35161, .11598, .10968, .00677, .00164,
2655 + .00050, .00424, .00589 /
2656 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
2657 + .33885, .11130, .09914, .00647, .00164,
2658 + .00056, .00408, .00561,
2659 + .32857, .10754, .09122, .00624, .00163,
2660 + .00060, .00395, .00538,
2661 + .31646, .10315, .08255, .00597, .00161,
2662 + .00064, .00378, .00511,
2663 + .30616, .09944, .07564, .00574, .00159,
2664 + .00066, .00364, .00488,
2665 + .29692, .09612, .06987, .00552, .00156,
2666 + .00068, .00351, .00468,
2667 + .28563, .09208, .06326, .00525, .00152,
2668 + .00069, .00336, .00444,
2669 + .27536, .08844, .05771, .00502, .00149,
2670 + .00070, .00322, .00423,
2671 + .26605, .08516, .05303, .00481, .00145,
2672 + .00070, .00310, .00403 /
2673 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
2674 + .25709, .08202, .04878, .00462, .00141,
2675 + .00070, .00298, .00383,
2676 + .24856, .07905, .04502, .00442, .00137,
2677 + .00070, .00285, .00366,
2678 + .24079, .07635, .04176, .00424, .00134,
2679 + .00069, .00274, .00350,
2680 + .23363, .07388, .03897, .00408, .00130,
2681 + .00068, .00263, .00336,
2682 + .22671, .07149, .03637, .00393, .00127,
2683 + .00068, .00253, .00323,
2684 + .22004, .06921, .03403, .00379, .00123,
2685 + .00067, .00244, .00308,
2686 + .21391, .06712, .03196, .00367, .00120,
2687 + .00066, .00236, .00295,
2688 + .20826, .06519, .03015, .00354, .00117,
2689 + .00065, .00228, .00284 /
2690 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
2691 + .20273, .06330, .02845, .00341, .00114,
2692 + .00064, .00220, .00274,
2693 + .19742, .06150, .02689, .00329, .00111,
2694 + .00063, .00213, .00264,
2695 + .19245, .05983, .02551, .00318, .00108,
2696 + .00062, .00206, .00255,
2697 + .18788, .05829, .02428, .00308, .00106,
2698 + .00061, .00200, .00247,
2699 + .18333, .05677, .02310, .00299, .00103,
2700 + .00060, .00194, .00238 /
2701 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
2702 + .51750, .17582, .33016, .00802, .00000,
2703 + .00000, .00386, .00653,
2704 + .50393, .17052, .30717, .00791, .00000,
2705 + .00000, .00392, .00644,
2706 + .48410, .16283, .27504, .00772, .00016,
2707 + .00000, .00395, .00630,
2708 + .46971, .15736, .25263, .00757, .00032,
2709 + .00000, .00396, .00612,
2710 + .45494, .15176, .23086, .00740, .00057,
2711 + .00000, .00395, .00595,
2712 + .44244, .14701, .21340, .00722, .00070,
2713 + .00000, .00392, .00581,
2714 + .43066, .14257, .19784, .00705, .00082,
2715 + .00000, .00387, .00566,
2716 + .41836, .13799, .18251, .00688, .00091,
2717 + .00000, .00382, .00548 /
2718 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
2719 + .40787, .13411, .17009, .00673, .00098,
2720 + .00000, .00377, .00532,
2721 + .39791, .13043, .15886, .00657, .00104,
2722 + .00000, .00372, .00518,
2723 + .39019, .12759, .15049, .00645, .00108,
2724 + .00000, .00368, .00507,
2725 + .37403, .12173, .13377, .00616, .00115,
2726 + .00003, .00356, .00483,
2727 + .36054, .11682, .12067, .00592, .00118,
2728 + .00011, .00345, .00462,
2729 + .34598, .11156, .10750, .00566, .00121,
2730 + .00024, .00333, .00441,
2731 + .33137, .10635, .09538, .00539, .00123,
2732 + .00031, .00318, .00419,
2733 + .31852, .10181, .08569, .00516, .00122,
2734 + .00037, .00307, .00398 /
2735 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
2736 + .30607, .09744, .07700, .00493, .00122,
2737 + .00041, .00295, .00377,
2738 + .29610, .09394, .07051, .00473, .00120,
2739 + .00044, .00285, .00360,
2740 + .28438, .08985, .06347, .00450, .00118,
2741 + .00047, .00273, .00343,
2742 + .27444, .08640, .05788, .00431, .00117,
2743 + .00048, .00262, .00330,
2744 + .26557, .08334, .05326, .00413, .00114,
2745 + .00049, .00252, .00315,
2746 + .25476, .07964, .04800, .00393, .00111,
2747 + .00050, .00240, .00297,
2748 + .24496, .07631, .04359, .00375, .00108,
2749 + .00051, .00228, .00281,
2750 + .23612, .07331, .03991, .00358, .00105,
2751 + .00051, .00219, .00267 /
2752 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
2753 + .22763, .07043, .03659, .00341, .00102,
2754 + .00050, .00209, .00255,
2755 + .21957, .06772, .03364, .00325, .00099,
2756 + .00050, .00201, .00243,
2757 + .21225, .06527, .03110, .00312, .00096,
2758 + .00049, .00193, .00231,
2759 + .20550, .06304, .02894, .00301, .00094,
2760 + .00049, .00185, .00221,
2761 + .19898, .06090, .02694, .00290, .00091,
2762 + .00048, .00178, .00211,
2763 + .19276, .05884, .02515, .00279, .00088,
2764 + .00047, .00171, .00201,
2765 + .18706, .05696, .02357, .00268, .00086,
2766 + .00047, .00165, .00193,
2767 + .18179, .05523, .02220, .00258, .00084,
2768 + .00046, .00160, .00186 /
2769 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
2770 + .17662, .05354, .02091, .00249, .00081,
2771 + .00045, .00154, .00180,
2772 + .17169, .05193, .01973, .00240, .00079,
2773 + .00044, .00149, .00174,
2774 + .16711, .05044, .01869, .00231, .00077,
2775 + .00044, .00144, .00167,
2776 + .16291, .04907, .01776, .00223, .00075,
2777 + .00043, .00139, .00161,
2778 + .15873, .04772, .01687, .00216, .00073,
2779 + .00042, .00134, .00155 /
2780 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
2781 + .48238, .15855, .27989, .00626, .00000,
2782 + .00000, .00280, .00430,
2783 + .46861, .15344, .25868, .00617, .00000,
2784 + .00000, .00285, .00424,
2785 + .44859, .14605, .22942, .00602, .00012,
2786 + .00000, .00289, .00415,
2787 + .43421, .14079, .20928, .00589, .00024,
2788 + .00000, .00289, .00405,
2789 + .41945, .13544, .18990, .00574, .00044,
2790 + .00000, .00288, .00394,
2791 + .40695, .13094, .17452, .00561, .00053,
2792 + .00000, .00285, .00384,
2793 + .39523, .12674, .16089, .00547, .00062,
2794 + .00000, .00282, .00375,
2795 + .38306, .12238, .14752, .00531, .00069,
2796 + .00000, .00277, .00364 /
2797 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
2798 + .37272, .11871, .13680, .00518, .00074,
2799 + .00000, .00273, .00354,
2800 + .36293, .11526, .12718, .00504, .00078,
2801 + .00000, .00269, .00344,
2802 + .35535, .11260, .12004, .00494, .00081,
2803 + .00000, .00265, .00336,
2804 + .33953, .10709, .10593, .00471, .00086,
2805 + .00002, .00256, .00319,
2806 + .32637, .10252, .09495, .00452, .00088,
2807 + .00008, .00247, .00306,
2808 + .31223, .09762, .08400, .00431, .00090,
2809 + .00017, .00237, .00292,
2810 + .29810, .09277, .07404, .00406, .00090,
2811 + .00023, .00228, .00277,
2812 + .28574, .08858, .06613, .00387, .00090,
2813 + .00027, .00218, .00262 /
2814 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
2815 + .27381, .08455, .05909, .00369, .00089,
2816 + .00030, .00208, .00248,
2817 + .26428, .08134, .05387, .00352, .00088,
2818 + .00032, .00201, .00238,
2819 + .25310, .07760, .04824, .00336, .00086,
2820 + .00034, .00192, .00225,
2821 + .24363, .07445, .04381, .00323, .00084,
2822 + .00036, .00183, .00213,
2823 + .23523, .07166, .04018, .00309, .00083,
2824 + .00036, .00176, .00204,
2825 + .22503, .06829, .03605, .00292, .00080,
2826 + .00037, .00167, .00193,
2827 + .21583, .06526, .03262, .00277, .00078,
2828 + .00037, .00159, .00182,
2829 + .20754, .06255, .02975, .00264, .00075,
2830 + .00037, .00152, .00173 /
2831 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
2832 + .19961, .05995, .02717, .00252, .00073,
2833 + .00037, .00144, .00165,
2834 + .19209, .05753, .02491, .00240, .00071,
2835 + .00036, .00138, .00156,
2836 + .18528, .05534, .02297, .00230, .00069,
2837 + .00036, .00132, .00149,
2838 + .17905, .05335, .02133, .00221, .00067,
2839 + .00036, .00127, .00141,
2840 + .17303, .05143, .01981, .00212, .00065,
2841 + .00035, .00122, .00134,
2842 + .16729, .04960, .01845, .00202, .00063,
2843 + .00035, .00116, .00129,
2844 + .16204, .04792, .01726, .00194, .00061,
2845 + .00034, .00111, .00124,
2846 + .15720, .04639, .01622, .00186, .00059,
2847 + .00034, .00107, .00120 /
2848 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
2849 + .15248, .04491, .01526, .00179, .00058,
2850 + .00033, .00103, .00115,
2851 + .14796, .04349, .01437, .00173, .00056,
2852 + .00033, .00100, .00110,
2853 + .14377, .04217, .01359, .00167, .00055,
2854 + .00032, .00096, .00107,
2855 + .13991, .04096, .01289, .00161, .00053,
2856 + .00032, .00093, .00103,
2857 + .13612, .03977, .01224, .00156, .00052,
2858 + .00031, .00090, .00099 /
2859 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
2860 + .44513, .14151, .23315, .00476, .00000,
2861 + .00000, .00203, .00277,
2862 + .43141, .13665, .21409, .00469, .00000,
2863 + .00000, .00208, .00275,
2864 + .41151, .12965, .18808, .00457, .00009,
2865 + .00000, .00212, .00267,
2866 + .39731, .12470, .17041, .00445, .00018,
2867 + .00000, .00211, .00262,
2868 + .38279, .11965, .15354, .00431, .00033,
2869 + .00000, .00209, .00257,
2870 + .37055, .11543, .14027, .00419, .00040,
2871 + .00000, .00206, .00251,
2872 + .35909, .11148, .12859, .00407, .00046,
2873 + .00000, .00204, .00244,
2874 + .34722, .10741, .11725, .00396, .00052,
2875 + .00000, .00201, .00237 /
2876 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
2877 + .33717, .10398, .10820, .00385, .00055,
2878 + .00000, .00199, .00231,
2879 + .32769, .10077, .10014, .00372, .00058,
2880 + .00000, .00196, .00226,
2881 + .32037, .09829, .09417, .00363, .00060,
2882 + .00000, .00193, .00221,
2883 + .30511, .09319, .08248, .00346, .00063,
2884 + .00002, .00185, .00209,
2885 + .29246, .08897, .07348, .00330, .00065,
2886 + .00006, .00179, .00201,
2887 + .27892, .08448, .06458, .00312, .00066,
2888 + .00012, .00171, .00192,
2889 + .26546, .08004, .05654, .00295, .00066,
2890 + .00016, .00163, .00180,
2891 + .25374, .07621, .05023, .00279, .00065,
2892 + .00019, .00156, .00171 /
2893 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
2894 + .24245, .07253, .04464, .00264, .00064,
2895 + .00021, .00149, .00162,
2896 + .23344, .06962, .04054, .00254, .00063,
2897 + .00022, .00143, .00154,
2898 + .22296, .06623, .03612, .00240, .00062,
2899 + .00024, .00136, .00147,
2900 + .21412, .06339, .03265, .00227, .00061,
2901 + .00025, .00129, .00142,
2902 + .20625, .06088, .02984, .00217, .00059,
2903 + .00025, .00124, .00135,
2904 + .19673, .05786, .02665, .00205, .00057,
2905 + .00026, .00118, .00126,
2906 + .18820, .05517, .02402, .00195, .00056,
2907 + .00026, .00112, .00118,
2908 + .18053, .05275, .02184, .00184, .00054,
2909 + .00026, .00106, .00112 /
2910 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
2911 + .17320, .05046, .01988, .00174, .00052,
2912 + .00026, .00101, .00107,
2913 + .16630, .04830, .01818, .00165, .00051,
2914 + .00026, .00096, .00102,
2915 + .16007, .04635, .01672, .00157, .00049,
2916 + .00026, .00091, .00097,
2917 + .15437, .04458, .01549, .00150, .00048,
2918 + .00026, .00088, .00092,
2919 + .14889, .04289, .01436, .00144, .00046,
2920 + .00026, .00084, .00088,
2921 + .14365, .04128, .01335, .00138, .00045,
2922 + .00025, .00080, .00084,
2923 + .13886, .03982, .01246, .00132, .00044,
2924 + .00025, .00077, .00081,
2925 + .13447, .03848, .01170, .00127, .00043,
2926 + .00025, .00075, .00078 /
2927 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
2928 + .13019, .03718, .01099, .00122, .00041,
2929 + .00025, .00072, .00074,
2930 + .12611, .03595, .01034, .00118, .00040,
2931 + .00025, .00069, .00071,
2932 + .12234, .03480, .00976, .00113, .00039,
2933 + .00024, .00066, .00069,
2934 + .11888, .03375, .00925, .00109, .00039,
2935 + .00024, .00064, .00066,
2936 + .11547, .03272, .00877, .00105, .00038,
2937 + .00024, .00062, .00063 /
2938 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
2939 + .40658, .12516, .19084, .00359, .00000,
2940 + .00000, .00144, .00168,
2941 + .39313, .12057, .17410, .00351, .00000,
2942 + .00000, .00148, .00169,
2943 + .37375, .11400, .15151, .00337, .00007,
2944 + .00000, .00150, .00169,
2945 + .35994, .10936, .13640, .00326, .00014,
2946 + .00000, .00150, .00167,
2947 + .34585, .10465, .12207, .00315, .00024,
2948 + .00000, .00150, .00164,
2949 + .33399, .10071, .11087, .00305, .00030,
2950 + .00000, .00149, .00161,
2951 + .32293, .09706, .10109, .00296, .00034,
2952 + .00000, .00147, .00158,
2953 + .31150, .09332, .09165, .00286, .00038,
2954 + .00000, .00144, .00154 /
2955 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
2956 + .30187, .09017, .08417, .00277, .00041,
2957 + .00000, .00141, .00151,
2958 + .29282, .08721, .07755, .00266, .00043,
2959 + .00000, .00139, .00148,
2960 + .28584, .08493, .07267, .00258, .00045,
2961 + .00000, .00137, .00146,
2962 + .27135, .08025, .06319, .00243, .00047,
2963 + .00001, .00131, .00140,
2964 + .25937, .07640, .05596, .00231, .00048,
2965 + .00004, .00127, .00134,
2966 + .24659, .07233, .04887, .00219, .00048,
2967 + .00009, .00123, .00126,
2968 + .23392, .06832, .04253, .00208, .00048,
2969 + .00011, .00117, .00119,
2970 + .22296, .06485, .03758, .00194, .00048,
2971 + .00013, .00111, .00114 /
2972 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
2973 + .21243, .06154, .03322, .00183, .00047,
2974 + .00014, .00105, .00108,
2975 + .20403, .05894, .03004, .00176, .00046,
2976 + .00015, .00101, .00102,
2977 + .19431, .05593, .02665, .00166, .00045,
2978 + .00016, .00096, .00096,
2979 + .18613, .05340, .02400, .00157, .00044,
2980 + .00017, .00092, .00091,
2981 + .17889, .05118, .02186, .00149, .00043,
2982 + .00017, .00088, .00087,
2983 + .17017, .04850, .01945, .00139, .00042,
2984 + .00017, .00083, .00082,
2985 + .16239, .04610, .01746, .00129, .00041,
2986 + .00017, .00078, .00079,
2987 + .15538, .04398, .01583, .00122, .00039,
2988 + .00017, .00074, .00075 /
2989 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
2990 + .14868, .04197, .01437, .00117, .00038,
2991 + .00017, .00071, .00070,
2992 + .14240, .04009, .01311, .00112, .00037,
2993 + .00017, .00068, .00065,
2994 + .13674, .03840, .01203, .00107, .00036,
2995 + .00017, .00065, .00061,
2996 + .13161, .03685, .01112, .00101, .00035,
2997 + .00017, .00062, .00059,
2998 + .12669, .03537, .01029, .00095, .00034,
2999 + .00017, .00059, .00057,
3000 + .12198, .03398, .00955, .00091, .00033,
3001 + .00017, .00056, .00054,
3002 + .11769, .03272, .00890, .00088, .00032,
3003 + .00017, .00054, .00052,
3004 + .11377, .03157, .00835, .00084, .00032,
3005 + .00017, .00051, .00050 /
3006 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
3007 + .10996, .03045, .00783, .00080, .00031,
3008 + .00017, .00049, .00048,
3009 + .10634, .02938, .00735, .00077, .00030,
3010 + .00017, .00047, .00046,
3011 + .10298, .02840, .00694, .00074, .00030,
3012 + .00017, .00045, .00044,
3013 + .09990, .02750, .00657, .00071, .00029,
3014 + .00017, .00044, .00042,
3015 + .09688, .02662, .00622, .00068, .00028,
3016 + .00017, .00043, .00041 /
3017 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
3018 + .36763, .10966, .15353, .00270, .00000,
3019 + .00000, .00094, .00096,
3020 + .35466, .10541, .13922, .00263, .00000,
3021 + .00000, .00097, .00099,
3022 + .33597, .09934, .12012, .00253, .00005,
3023 + .00000, .00100, .00099,
3024 + .32272, .09507, .10747, .00245, .00010,
3025 + .00000, .00100, .00098,
3026 + .30925, .09076, .09557, .00237, .00018,
3027 + .00000, .00100, .00097,
3028 + .29798, .08716, .08633, .00229, .00021,
3029 + .00000, .00099, .00096,
3030 + .28750, .08382, .07833, .00221, .00025,
3031 + .00000, .00097, .00095,
3032 + .27671, .08041, .07067, .00212, .00028,
3033 + .00000, .00096, .00092 /
3034 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
3035 + .26761, .07754, .06463, .00205, .00030,
3036 + .00000, .00094, .00091,
3037 + .25906, .07487, .05929, .00198, .00031,
3038 + .00000, .00092, .00089,
3039 + .25248, .07281, .05537, .00193, .00032,
3040 + .00000, .00091, .00087,
3041 + .23891, .06859, .04785, .00182, .00034,
3042 + .00001, .00087, .00083,
3043 + .22774, .06514, .04216, .00172, .00035,
3044 + .00003, .00083, .00079,
3045 + .21587, .06148, .03660, .00162, .00036,
3046 + .00006, .00079, .00075,
3047 + .20415, .05789, .03166, .00151, .00036,
3048 + .00008, .00075, .00071,
3049 + .19400, .05482, .02784, .00143, .00035,
3050 + .00009, .00071, .00068 /
3051 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
3052 + .18429, .05189, .02451, .00135, .00035,
3053 + .00010, .00067, .00065,
3054 + .17662, .04958, .02208, .00130, .00034,
3055 + .00010, .00065, .00060,
3056 + .16775, .04692, .01951, .00122, .00033,
3057 + .00010, .00062, .00057,
3058 + .16030, .04470, .01750, .00115, .00032,
3059 + .00010, .00058, .00054,
3060 + .15375, .04274, .01590, .00107, .00032,
3061 + .00010, .00056, .00051,
3062 + .14585, .04040, .01410, .00100, .00031,
3063 + .00010, .00053, .00049,
3064 + .13877, .03832, .01262, .00094, .00030,
3065 + .00010, .00050, .00047,
3066 + .13246, .03647, .01141, .00089, .00029,
3067 + .00010, .00047, .00044 /
3068 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
3069 + .12648, .03472, .01034, .00085, .00028,
3070 + .00010, .00044, .00042,
3071 + .12088, .03308, .00941, .00080, .00028,
3072 + .00010, .00042, .00040,
3073 + .11583, .03162, .00862, .00075, .00027,
3074 + .00010, .00039, .00037,
3075 + .11123, .03029, .00796, .00072, .00026,
3076 + .00010, .00037, .00035,
3077 + .10683, .02902, .00735, .00070, .00026,
3078 + .00010, .00035, .00033,
3079 + .10266, .02783, .00681, .00067, .00025,
3080 + .00010, .00034, .00031,
3081 + .09887, .02675, .00634, .00064, .00025,
3082 + .00010, .00033, .00030,
3083 + .09541, .02576, .00594, .00061, .00024,
3084 + .00010, .00032, .00028 /
3085 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
3086 + .09205, .02480, .00557, .00058, .00024,
3087 + .00010, .00030, .00027,
3088 + .08887, .02390, .00522, .00056, .00023,
3089 + .00010, .00028, .00026,
3090 + .08593, .02306, .00493, .00053, .00023,
3091 + .00010, .00027, .00026,
3092 + .08324, .02230, .00466, .00050, .00023,
3093 + .00010, .00026, .00025,
3094 + .08060, .02155, .00441, .00048, .00022,
3095 + .00010, .00025, .00024 /
3096 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
3097 + .32860, .09475, .12081, .00181, .00000,
3098 + .00000, .00069, .00059,
3099 + .31621, .09087, .10889, .00176, .00000,
3100 + .00000, .00071, .00061,
3101 + .29847, .08536, .09316, .00171, .00004,
3102 + .00000, .00072, .00062,
3103 + .28597, .08149, .08285, .00166, .00007,
3104 + .00000, .00071, .00062,
3105 + .27330, .07758, .07321, .00159, .00012,
3106 + .00000, .00070, .00062,
3107 + .26273, .07435, .06580, .00154, .00015,
3108 + .00000, .00070, .00061,
3109 + .25290, .07135, .05940, .00148, .00017,
3110 + .00000, .00069, .00060,
3111 + .24280, .06830, .05331, .00144, .00019,
3112 + .00000, .00068, .00059 /
3113 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
3114 + .23432, .06573, .04853, .00138, .00020,
3115 + .00000, .00067, .00058,
3116 + .22641, .06333, .04433, .00132, .00021,
3117 + .00000, .00065, .00057,
3118 + .22032, .06150, .04127, .00128, .00022,
3119 + .00000, .00063, .00056,
3120 + .20775, .05776, .03542, .00123, .00023,
3121 + .00001, .00060, .00054,
3122 + .19748, .05470, .03104, .00116, .00024,
3123 + .00002, .00058, .00051,
3124 + .18659, .05148, .02681, .00109, .00024,
3125 + .00004, .00055, .00048,
3126 + .17587, .04833, .02306, .00103, .00024,
3127 + .00005, .00053, .00046,
3128 + .16668, .04563, .02018, .00096, .00024,
3129 + .00005, .00049, .00043 /
3130 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
3131 + .15791, .04307, .01768, .00090, .00024,
3132 + .00006, .00046, .00040,
3133 + .15096, .04106, .01588, .00085, .00024,
3134 + .00005, .00044, .00038,
3135 + .14294, .03875, .01397, .00080, .00024,
3136 + .00005, .00042, .00036,
3137 + .13624, .03682, .01250, .00075, .00024,
3138 + .00005, .00039, .00035,
3139 + .13035, .03513, .01132, .00072, .00023,
3140 + .00005, .00038, .00033,
3141 + .12329, .03311, .01000, .00067, .00023,
3142 + .00005, .00035, .00031,
3143 + .11703, .03133, .00893, .00061, .00022,
3144 + .00005, .00033, .00029,
3145 + .11144, .02974, .00806, .00057, .00022,
3146 + .00005, .00031, .00028 /
3147 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
3148 + .10614, .02823, .00728, .00054, .00021,
3149 + .00005, .00029, .00027,
3150 + .10117, .02684, .00662, .00051, .00021,
3151 + .00005, .00028, .00025,
3152 + .09672, .02560, .00605, .00049, .00021,
3153 + .00005, .00026, .00023,
3154 + .09268, .02448, .00558, .00048, .00021,
3155 + .00005, .00025, .00021,
3156 + .08881, .02342, .00515, .00046, .00020,
3157 + .00005, .00024, .00020,
3158 + .08518, .02241, .00476, .00043, .00020,
3159 + .00005, .00023, .00019,
3160 + .08189, .02149, .00443, .00041, .00020,
3161 + .00005, .00022, .00019,
3162 + .07889, .02066, .00414, .00038, .00019,
3163 + .00005, .00021, .00018 /
3164 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
3165 + .07598, .01985, .00388, .00036, .00019,
3166 + .00005, .00019, .00017,
3167 + .07322, .01910, .00364, .00035, .00019,
3168 + .00005, .00018, .00017,
3169 + .07066, .01840, .00343, .00034, .00019,
3170 + .00005, .00018, .00016,
3171 + .06833, .01776, .00324, .00033, .00019,
3172 + .00005, .00017, .00016,
3173 + .06605, .01714, .00306, .00032, .00019,
3174 + .00005, .00016, .00015 /
3175 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
3176 + .29024, .08097, .09315, .00122, .00000,
3177 + .00000, .00047, .00035,
3178 + .27863, .07747, .08346, .00119, .00000,
3179 + .00000, .00048, .00037,
3180 + .26209, .07249, .07079, .00112, .00002,
3181 + .00000, .00049, .00040,
3182 + .25044, .06903, .06258, .00109, .00005,
3183 + .00000, .00050, .00040,
3184 + .23867, .06555, .05495, .00106, .00008,
3185 + .00000, .00050, .00040,
3186 + .22886, .06267, .04911, .00102, .00010,
3187 + .00000, .00049, .00039,
3188 + .21980, .06002, .04411, .00098, .00012,
3189 + .00000, .00048, .00038,
3190 + .21054, .05732, .03938, .00093, .00013,
3191 + .00000, .00047, .00037 /
3192 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
3193 + .20277, .05506, .03570, .00090, .00014,
3194 + .00000, .00046, .00037,
3195 + .19549, .05295, .03249, .00087, .00014,
3196 + .00000, .00045, .00036,
3197 + .18992, .05134, .03016, .00085, .00015,
3198 + .00000, .00044, .00036,
3199 + .17853, .04805, .02571, .00079, .00015,
3200 + .00000, .00041, .00035,
3201 + .16922, .04538, .02241, .00073, .00015,
3202 + .00001, .00039, .00033,
3203 + .15938, .04256, .01924, .00068, .00015,
3204 + .00002, .00037, .00030,
3205 + .14974, .03983, .01647, .00063, .00015,
3206 + .00003, .00035, .00029,
3207 + .14144, .03750, .01434, .00060, .00014,
3208 + .00003, .00033, .00028 /
3209 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
3210 + .13357, .03530, .01251, .00057, .00014,
3211 + .00003, .00032, .00026,
3212 + .12739, .03356, .01120, .00053, .00014,
3213 + .00003, .00031, .00025,
3214 + .12029, .03157, .00982, .00049, .00014,
3215 + .00003, .00029, .00023,
3216 + .11437, .02992, .00876, .00047, .00014,
3217 + .00003, .00027, .00022,
3218 + .10915, .02849, .00791, .00044, .00014,
3219 + .00003, .00025, .00021,
3220 + .10291, .02678, .00697, .00041, .00014,
3221 + .00003, .00023, .00020,
3222 + .09741, .02527, .00621, .00038, .00014,
3223 + .00003, .00022, .00019,
3224 + .09251, .02393, .00559, .00036, .00014,
3225 + .00003, .00021, .00017 /
3226 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
3227 + .08788, .02267, .00504, .00034, .00014,
3228 + .00003, .00020, .00016,
3229 + .08357, .02150, .00458, .00032, .00014,
3230 + .00003, .00019, .00016,
3231 + .07973, .02045, .00418, .00029, .00014,
3232 + .00003, .00018, .00015,
3233 + .07624, .01951, .00385, .00028, .00014,
3234 + .00003, .00017, .00015,
3235 + .07291, .01861, .00354, .00027, .00014,
3236 + .00003, .00016, .00014,
3237 + .06978, .01778, .00328, .00026, .00014,
3238 + .00003, .00015, .00013,
3239 + .06694, .01702, .00305, .00025, .00014,
3240 + .00003, .00015, .00011,
3241 + .06436, .01633, .00285, .00024, .00014,
3242 + .00003, .00014, .00011 /
3243 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
3244 + .06186, .01567, .00266, .00023, .00014,
3245 + .00003, .00013, .00011,
3246 + .05949, .01504, .00249, .00022, .00014,
3247 + .00003, .00012, .00010,
3248 + .05732, .01446, .00235, .00021, .00013,
3249 + .00003, .00011, .00010,
3250 + .05534, .01394, .00222, .00020, .00013,
3251 + .00003, .00011, .00010,
3252 + .05341, .01343, .00210, .00019, .00013,
3253 + .00003, .00011, .00010 /
3254 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
3255 + .25342, .06843, .07038, .00084, .00000,
3256 + .00000, .00028, .00019,
3257 + .24268, .06532, .06270, .00082, .00000,
3258 + .00000, .00029, .00020,
3259 + .22735, .06096, .05273, .00080, .00002,
3260 + .00000, .00030, .00019,
3261 + .21667, .05789, .04635, .00077, .00003,
3262 + .00000, .00030, .00021,
3263 + .20592, .05482, .04046, .00074, .00006,
3264 + .00000, .00030, .00022,
3265 + .19702, .05228, .03598, .00070, .00007,
3266 + .00000, .00030, .00021,
3267 + .18880, .04996, .03216, .00067, .00008,
3268 + .00000, .00029, .00020,
3269 + .18038, .04760, .02858, .00065, .00008,
3270 + .00000, .00028, .00020 /
3271 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
3272 + .17336, .04563, .02580, .00062, .00009,
3273 + .00000, .00028, .00020,
3274 + .16682, .04379, .02338, .00059, .00009,
3275 + .00000, .00027, .00020,
3276 + .16181, .04239, .02163, .00057, .00009,
3277 + .00000, .00027, .00020,
3278 + .15155, .03954, .01835, .00055, .00009,
3279 + .00000, .00026, .00019,
3280 + .14322, .03723, .01591, .00051, .00009,
3281 + .00000, .00024, .00018,
3282 + .13446, .03482, .01359, .00047, .00009,
3283 + .00001, .00022, .00018,
3284 + .12588, .03248, .01158, .00044, .00009,
3285 + .00001, .00021, .00016,
3286 + .11857, .03049, .01004, .00041, .00008,
3287 + .00001, .00020, .00015 /
3288 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
3289 + .11165, .02861, .00873, .00039, .00008,
3290 + .00001, .00019, .00015,
3291 + .10622, .02714, .00779, .00036, .00008,
3292 + .00001, .00018, .00015,
3293 + .10001, .02546, .00681, .00033, .00007,
3294 + .00001, .00017, .00014,
3295 + .09485, .02407, .00606, .00031, .00007,
3296 + .00001, .00016, .00012,
3297 + .09030, .02286, .00546, .00030, .00007,
3298 + .00001, .00015, .00011,
3299 + .08488, .02143, .00480, .00028, .00007,
3300 + .00001, .00014, .00010,
3301 + .08011, .02016, .00427, .00027, .00007,
3302 + .00001, .00012, .00010,
3303 + .07588, .01905, .00384, .00025, .00007,
3304 + .00001, .00012, .00010 /
3305 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
3306 + .07190, .01800, .00346, .00022, .00007,
3307 + .00001, .00011, .00010,
3308 + .06821, .01703, .00313, .00022, .00007,
3309 + .00001, .00011, .00009,
3310 + .06491, .01616, .00286, .00021, .00007,
3311 + .00001, .00010, .00008,
3312 + .06194, .01539, .00263, .00019, .00007,
3313 + .00001, .00010, .00008,
3314 + .05912, .01466, .00242, .00018, .00007,
3315 + .00001, .00009, .00007,
3316 + .05645, .01397, .00223, .00017, .00007,
3317 + .00001, .00008, .00007,
3318 + .05405, .01334, .00207, .00017, .00007,
3319 + .00001, .00008, .00007,
3320 + .05186, .01278, .00194, .00016, .00007,
3321 + .00001, .00008, .00006 /
3322 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
3323 + .04976, .01224, .00181, .00015, .00007,
3324 + .00001, .00008, .00006,
3325 + .04777, .01173, .00169, .00014, .00007,
3326 + .00001, .00007, .00005,
3327 + .04595, .01126, .00160, .00014, .00007,
3328 + .00001, .00007, .00005,
3329 + .04429, .01083, .00151, .00013, .00007,
3330 + .00001, .00006, .00005,
3331 + .04268, .01042, .00142, .00012, .00007,
3332 + .00001, .00006, .00005 /
3333 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
3334 + .21799, .05686, .05171, .00047, .00000,
3335 + .00000, .00021, .00012,
3336 + .20821, .05415, .04579, .00047, .00000,
3337 + .00000, .00022, .00012,
3338 + .19437, .05032, .03820, .00046, .00001,
3339 + .00000, .00023, .00013,
3340 + .18474, .04767, .03338, .00044, .00002,
3341 + .00000, .00022, .00014,
3342 + .17507, .04502, .02896, .00042, .00003,
3343 + .00000, .00021, .00014,
3344 + .16705, .04283, .02562, .00041, .00004,
3345 + .00000, .00021, .00014,
3346 + .15968, .04083, .02280, .00039, .00005,
3347 + .00000, .00020, .00014,
3348 + .15218, .03880, .02016, .00038, .00005,
3349 + .00000, .00020, .00015 /
3350 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
3351 + .14593, .03711, .01813, .00036, .00005,
3352 + .00000, .00020, .00014,
3353 + .14012, .03555, .01637, .00034, .00005,
3354 + .00000, .00019, .00013,
3355 + .13569, .03437, .01510, .00033, .00005,
3356 + .00000, .00018, .00013,
3357 + .12665, .03194, .01273, .00031, .00005,
3358 + .00000, .00017, .00013,
3359 + .11931, .02999, .01099, .00030, .00005,
3360 + .00000, .00016, .00012,
3361 + .11162, .02796, .00934, .00028, .00005,
3362 + .00000, .00015, .00011,
3363 + .10415, .02598, .00791, .00025, .00005,
3364 + .00000, .00014, .00011,
3365 + .09779, .02431, .00684, .00023, .00005,
3366 + .00000, .00014, .00011 /
3367 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
3368 + .09180, .02274, .00592, .00021, .00005,
3369 + .00000, .00013, .00010,
3370 + .08711, .02152, .00527, .00020, .00005,
3371 + .00000, .00012, .00009,
3372 + .08174, .02014, .00459, .00019, .00005,
3373 + .00000, .00011, .00008,
3374 + .07728, .01899, .00408, .00019, .00005,
3375 + .00000, .00010, .00008,
3376 + .07341, .01799, .00367, .00017, .00005,
3377 + .00000, .00010, .00008,
3378 + .06880, .01680, .00322, .00016, .00005,
3379 + .00000, .00009, .00007,
3380 + .06474, .01576, .00286, .00015, .00005,
3381 + .00000, .00009, .00006,
3382 + .06115, .01485, .00256, .00014, .00004,
3383 + .00000, .00008, .00006 /
3384 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
3385 + .05778, .01400, .00231, .00013, .00005,
3386 + .00000, .00007, .00006,
3387 + .05467, .01321, .00209, .00013, .00005,
3388 + .00000, .00007, .00006,
3389 + .05190, .01251, .00190, .00012, .00005,
3390 + .00000, .00007, .00006,
3391 + .04942, .01188, .00175, .00011, .00005,
3392 + .00000, .00006, .00005,
3393 + .04707, .01129, .00161, .00010, .00005,
3394 + .00000, .00006, .00005,
3395 + .04485, .01073, .00149, .00009, .00005,
3396 + .00000, .00006, .00005,
3397 + .04284, .01023, .00138, .00008, .00005,
3398 + .00000, .00005, .00004,
3399 + .04103, .00978, .00129, .00008, .00005,
3400 + .00000, .00005, .00004 /
3401 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
3402 + .03929, .00935, .00120, .00008, .00005,
3403 + .00000, .00005, .00004,
3404 + .03765, .00894, .00112, .00007, .00005,
3405 + .00000, .00005, .00004,
3406 + .03615, .00857, .00106, .00007, .00005,
3407 + .00000, .00004, .00004,
3408 + .03479, .00823, .00100, .00006, .00005,
3409 + .00000, .00004, .00004,
3410 + .03345, .00790, .00094, .00006, .00005,
3411 + .00000, .00004, .00004 /
3412 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
3413 + .15426, .03758, .02580, .00021, .00000,
3414 + .00000, .00006, .00003,
3415 + .14656, .03560, .02258, .00020, .00000,
3416 + .00000, .00007, .00004,
3417 + .13578, .03283, .01853, .00017, .00000,
3418 + .00000, .00007, .00004,
3419 + .12829, .03092, .01601, .00016, .00000,
3420 + .00000, .00007, .00004,
3421 + .12083, .02903, .01372, .00015, .00000,
3422 + .00000, .00007, .00005,
3423 + .11471, .02748, .01202, .00014, .00000,
3424 + .00000, .00007, .00005,
3425 + .10910, .02606, .01060, .00014, .00000,
3426 + .00000, .00007, .00005,
3427 + .10342, .02463, .00928, .00014, .00000,
3428 + .00000, .00007, .00005 /
3429 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
3430 + .09871, .02345, .00828, .00013, .00000,
3431 + .00000, .00007, .00005,
3432 + .09437, .02237, .00743, .00012, .00000,
3433 + .00000, .00007, .00004,
3434 + .09107, .02154, .00682, .00011, .00000,
3435 + .00000, .00006, .00004,
3436 + .08435, .01988, .00568, .00011, .00000,
3437 + .00000, .00006, .00004,
3438 + .07896, .01855, .00486, .00010, .00000,
3439 + .00000, .00006, .00004,
3440 + .07335, .01717, .00410, .00009, .00000,
3441 + .00000, .00006, .00003,
3442 + .06795, .01584, .00345, .00008, .00000,
3443 + .00000, .00006, .00004,
3444 + .06338, .01473, .00296, .00008, .00000,
3445 + .00000, .00005, .00004 /
3446 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
3447 + .05909, .01369, .00255, .00007, .00000,
3448 + .00000, .00004, .00003,
3449 + .05576, .01289, .00226, .00007, .00000,
3450 + .00000, .00004, .00003,
3451 + .05200, .01197, .00196, .00006, .00000,
3452 + .00000, .00004, .00003,
3453 + .04891, .01123, .00173, .00005, .00000,
3454 + .00000, .00004, .00003,
3455 + .04620, .01058, .00156, .00005, .00000,
3456 + .00000, .00003, .00003,
3457 + .04301, .00982, .00136, .00005, .00000,
3458 + .00000, .00003, .00002,
3459 + .04023, .00916, .00121, .00004, .00000,
3460 + .00000, .00003, .00002,
3461 + .03779, .00858, .00108, .00004, .00000,
3462 + .00000, .00003, .00002 /
3463 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
3464 + .03550, .00804, .00097, .00004, .00000,
3465 + .00000, .00002, .00002,
3466 + .03341, .00755, .00088, .00004, .00000,
3467 + .00000, .00002, .00002,
3468 + .03156, .00711, .00080, .00004, .00000,
3469 + .00000, .00002, .00002,
3470 + .02991, .00673, .00073, .00003, .00000,
3471 + .00000, .00002, .00002,
3472 + .02835, .00636, .00067, .00002, .00000,
3473 + .00000, .00002, .00002,
3474 + .02688, .00602, .00062, .00002, .00000,
3475 + .00000, .00002, .00002,
3476 + .02557, .00571, .00058, .00002, .00000,
3477 + .00000, .00002, .00001,
3478 + .02438, .00544, .00054, .00003, .00000,
3479 + .00000, .00002, .00001 /
3480 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/
3481 + .02324, .00518, .00050, .00003, .00000,
3482 + .00000, .00002, .00001,
3483 + .02217, .00493, .00047, .00003, .00000,
3484 + .00000, .00002, .00001,
3485 + .02121, .00471, .00044, .00002, .00000,
3486 + .00000, .00001, .00001,
3487 + .02034, .00451, .00042, .00002, .00000,
3488 + .00000, .00001, .00001,
3489 + .01949, .00431, .00039, .00002, .00000,
3490 + .00000, .00001, .00001 /
3491 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/
3492 + .10130, .02291, .01122, .00006, .00000,
3493 + .00000, .00002, .00000,
3494 + .09570, .02157, .00971, .00006, .00000,
3495 + .00000, .00002, .00000,
3496 + .08788, .01973, .00784, .00006, .00000,
3497 + .00000, .00002, .00000,
3498 + .08252, .01847, .00670, .00006, .00000,
3499 + .00000, .00002, .00001,
3500 + .07721, .01722, .00568, .00005, .00000,
3501 + .00000, .00002, .00001,
3502 + .07287, .01621, .00493, .00005, .00000,
3503 + .00000, .00002, .00001,
3504 + .06893, .01530, .00431, .00005, .00000,
3505 + .00000, .00002, .00001,
3506 + .06496, .01438, .00375, .00005, .00000,
3507 + .00000, .00002, .00001 /
3508 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
3509 + .06169, .01363, .00332, .00005, .00000,
3510 + .00000, .00002, .00001,
3511 + .05869, .01293, .00296, .00004, .00000,
3512 + .00000, .00002, .00002,
3513 + .05642, .01241, .00270, .00004, .00000,
3514 + .00000, .00002, .00002,
3515 + .05185, .01136, .00223, .00003, .00000,
3516 + .00000, .00001, .00002,
3517 + .04820, .01053, .00190, .00003, .00000,
3518 + .00000, .00001, .00002,
3519 + .04444, .00967, .00159, .00003, .00000,
3520 + .00000, .00001, .00001,
3521 + .04083, .00885, .00133, .00003, .00000,
3522 + .00000, .00001, .00001,
3523 + .03781, .00818, .00114, .00003, .00000,
3524 + .00000, .00001, .00001 /
3525 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
3526 + .03501, .00755, .00098, .00002, .00000,
3527 + .00000, .00001, .00001,
3528 + .03285, .00706, .00086, .00002, .00000,
3529 + .00000, .00001, .00001,
3530 + .03041, .00652, .00075, .00002, .00000,
3531 + .00000, .00001, .00001,
3532 + .02841, .00607, .00066, .00002, .00000,
3533 + .00000, .00001, .00001,
3534 + .02670, .00569, .00059, .00001, .00000,
3535 + .00000, .00001, .00001,
3536 + .02468, .00525, .00052, .00001, .00000,
3537 + .00000, .00001, .00001,
3538 + .02293, .00486, .00046, .00002, .00000,
3539 + .00000, .00001, .00001,
3540 + .02140, .00453, .00041, .00001, .00000,
3541 + .00000, .00001, .00001 /
3542 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
3543 + .01999, .00422, .00037, .00001, .00000,
3544 + .00000, .00001, .00001,
3545 + .01870, .00394, .00033, .00001, .00000,
3546 + .00000, .00000, .00001,
3547 + .01757, .00369, .00030, .00001, .00000,
3548 + .00000, .00000, .00000,
3549 + .01656, .00347, .00028, .00001, .00000,
3550 + .00000, .00000, .00000,
3551 + .01561, .00326, .00026, .00001, .00000,
3552 + .00000, .00000, .00000,
3553 + .01473, .00307, .00024, .00001, .00000,
3554 + .00000, .00001, .00000,
3555 + .01394, .00290, .00022, .00001, .00000,
3556 + .00000, .00001, .00000,
3557 + .01324, .00275, .00020, .00001, .00000,
3558 + .00000, .00001, .00000 /
3559 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/
3560 + .01256, .00261, .00019, .00001, .00000,
3561 + .00000, .00001, .00000,
3562 + .01194, .00247, .00018, .00001, .00000,
3563 + .00000, .00001, .00000,
3564 + .01137, .00235, .00017, .00001, .00000,
3565 + .00000, .00001, .00000,
3566 + .01085, .00224, .00016, .00001, .00000,
3567 + .00000, .00000, .00000,
3568 + .01036, .00214, .00015, .00001, .00000,
3569 + .00000, .00000, .00000 /
3570 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/
3571 + .06024, .01255, .00408, .00003, .00000,
3572 + .00000, .00000, .00000,
3573 + .05654, .01175, .00349, .00003, .00000,
3574 + .00000, .00000, .00000,
3575 + .05142, .01065, .00277, .00003, .00000,
3576 + .00000, .00000, .00000,
3577 + .04796, .00990, .00235, .00002, .00000,
3578 + .00000, .00000, .00000,
3579 + .04454, .00916, .00197, .00002, .00000,
3580 + .00000, .00000, .00000,
3581 + .04177, .00857, .00170, .00002, .00000,
3582 + .00000, .00000, .00000,
3583 + .03928, .00804, .00147, .00002, .00000,
3584 + .00000, .00000, .00000,
3585 + .03679, .00751, .00127, .00001, .00000,
3586 + .00000, .00000, .00000 /
3587 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
3588 + .03475, .00708, .00112, .00001, .00000,
3589 + .00000, .00000, .00000,
3590 + .03288, .00668, .00099, .00001, .00000,
3591 + .00000, .00000, .00000,
3592 + .03147, .00638, .00090, .00001, .00000,
3593 + .00000, .00000, .00000,
3594 + .02866, .00579, .00074, .00001, .00000,
3595 + .00000, .00000, .00000,
3596 + .02644, .00533, .00063, .00001, .00000,
3597 + .00000, .00000, .00000,
3598 + .02416, .00485, .00053, .00001, .00000,
3599 + .00000, .00000, .00000,
3600 + .02199, .00440, .00044, .00001, .00000,
3601 + .00000, .00000, .00000,
3602 + .02021, .00403, .00037, .00001, .00000,
3603 + .00000, .00000, .00000 /
3604 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/
3605 + .01857, .00369, .00032, .00000, .00000,
3606 + .00000, .00000, .00000,
3607 + .01730, .00343, .00028, .00000, .00000,
3608 + .00000, .00000, .00000,
3609 + .01589, .00314, .00025, .00000, .00000,
3610 + .00000, .00000, .00000,
3611 + .01474, .00291, .00022, .00001, .00000,
3612 + .00000, .00000, .00000,
3613 + .01377, .00271, .00020, .00001, .00000,
3614 + .00000, .00000, .00000,
3615 + .01263, .00248, .00017, .00000, .00000,
3616 + .00000, .00000, .00000,
3617 + .01165, .00228, .00015, .00000, .00000,
3618 + .00000, .00000, .00000,
3619 + .01080, .00211, .00014, .00000, .00000,
3620 + .00000, .00000, .00000 /
3621 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/
3622 + .01001, .00195, .00012, .00000, .00000,
3623 + .00000, .00000, .00000,
3624 + .00930, .00181, .00011, .00000, .00000,
3625 + .00000, .00000, .00000,
3626 + .00868, .00169, .00010, .00001, .00000,
3627 + .00000, .00000, .00000,
3628 + .00813, .00158, .00009, .00000, .00000,
3629 + .00000, .00000, .00000,
3630 + .00762, .00147, .00009, .00000, .00000,
3631 + .00000, .00000, .00000,
3632 + .00715, .00138, .00008, .00000, .00000,
3633 + .00000, .00000, .00000,
3634 + .00673, .00130, .00007, .00000, .00000,
3635 + .00000, .00000, .00000,
3636 + .00636, .00122, .00007, .00000, .00000,
3637 + .00000, .00000, .00000 /
3638 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=33,37)/
3639 + .00601, .00115, .00006, .00000, .00000,
3640 + .00000, .00000, .00000,
3641 + .00568, .00109, .00006, .00000, .00000,
3642 + .00000, .00000, .00000,
3643 + .00539, .00103, .00006, .00000, .00000,
3644 + .00000, .00000, .00000,
3645 + .00512, .00098, .00005, .00000, .00000,
3646 + .00000, .00000, .00000,
3647 + .00486, .00093, .00005, .00000, .00000,
3648 + .00000, .00000, .00000 /
3649 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/
3650 + .03104, .00587, .00114, .00000, .00000,
3651 + .00000, .00000, .00000,
3652 + .02892, .00546, .00096, .00000, .00000,
3653 + .00000, .00000, .00001,
3654 + .02602, .00489, .00076, .00000, .00000,
3655 + .00000, .00000, .00001,
3656 + .02407, .00451, .00064, .00000, .00000,
3657 + .00000, .00000, .00000,
3658 + .02217, .00414, .00053, .00000, .00000,
3659 + .00000, .00000, .00000,
3660 + .02064, .00385, .00045, .00000, .00000,
3661 + .00000, .00000, .00000,
3662 + .01927, .00359, .00039, .00000, .00000,
3663 + .00000, .00000, .00000,
3664 + .01791, .00332, .00034, .00000, .00000,
3665 + .00000, .00000, .00000 /
3666 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=9,16)/
3667 + .01680, .00311, .00030, .00000, .00000,
3668 + .00000, .00000, .00000,
3669 + .01579, .00292, .00026, .00000, .00000,
3670 + .00000, .00000, .00000,
3671 + .01504, .00278, .00024, .00000, .00000,
3672 + .00000, .00000, .00000,
3673 + .01356, .00249, .00020, .00000, .00000,
3674 + .00000, .00000, .00000,
3675 + .01239, .00227, .00017, .00000, .00000,
3676 + .00000, .00000, .00000,
3677 + .01121, .00205, .00014, .00000, .00000,
3678 + .00000, .00000, .00000,
3679 + .01011, .00184, .00012, .00000, .00000,
3680 + .00000, .00000, .00000,
3681 + .00920, .00167, .00010, .00000, .00000,
3682 + .00000, .00000, .00000 /
3683 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=17,24)/
3684 + .00837, .00152, .00009, .00000, .00000,
3685 + .00000, .00000, .00000,
3686 + .00774, .00140, .00008, .00000, .00000,
3687 + .00000, .00000, .00000,
3688 + .00705, .00127, .00007, .00000, .00000,
3689 + .00000, .00000, .00000,
3690 + .00648, .00117, .00006, .00000, .00000,
3691 + .00000, .00000, .00000,
3692 + .00601, .00108, .00005, .00000, .00000,
3693 + .00000, .00000, .00000,
3694 + .00546, .00098, .00005, .00000, .00000,
3695 + .00000, .00000, .00000,
3696 + .00499, .00089, .00004, .00000, .00000,
3697 + .00000, .00000, .00000,
3698 + .00459, .00082, .00004, .00000, .00000,
3699 + .00000, .00000, .00000 /
3700 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/
3701 + .00422, .00075, .00003, .00000, .00000,
3702 + .00000, .00000, .00000,
3703 + .00389, .00069, .00003, .00000, .00000,
3704 + .00000, .00000, .00000,
3705 + .00361, .00064, .00003, .00000, .00000,
3706 + .00000, .00000, .00000,
3707 + .00336, .00059, .00003, .00000, .00000,
3708 + .00000, .00000, .00000,
3709 + .00313, .00055, .00002, .00000, .00000,
3710 + .00000, .00000, .00000,
3711 + .00291, .00051, .00002, .00000, .00000,
3712 + .00000, .00000, .00000,
3713 + .00272, .00048, .00002, .00000, .00000,
3714 + .00000, .00000, .00000,
3715 + .00256, .00045, .00002, .00000, .00000,
3716 + .00000, .00000, .00000 /
3717 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/
3718 + .00240, .00042, .00002, .00000, .00000,
3719 + .00000, .00000, .00000,
3720 + .00226, .00039, .00002, .00000, .00000,
3721 + .00000, .00000, .00000,
3722 + .00213, .00037, .00002, .00000, .00000,
3723 + .00000, .00000, .00000,
3724 + .00201, .00035, .00001, .00000, .00000,
3725 + .00000, .00000, .00000,
3726 + .00190, .00033, .00001, .00000, .00000,
3727 + .00000, .00000, .00000 /
3728 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/
3729 + .00361, .00052, .00002, .00000, .00000,
3730 + .00000, .00000, .00000,
3731 + .00329, .00048, .00002, .00000, .00000,
3732 + .00000, .00000, .00000,
3733 + .00287, .00041, .00001, .00000, .00000,
3734 + .00000, .00000, .00000,
3735 + .00259, .00037, .00001, .00000, .00000,
3736 + .00000, .00000, .00000,
3737 + .00233, .00033, .00001, .00000, .00000,
3738 + .00000, .00000, .00000,
3739 + .00212, .00030, .00001, .00000, .00000,
3740 + .00000, .00000, .00000,
3741 + .00194, .00028, .00001, .00000, .00000,
3742 + .00000, .00000, .00000,
3743 + .00177, .00025, .00001, .00000, .00000,
3744 + .00000, .00000, .00000 /
3745 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/
3746 + .00163, .00023, .00001, .00000, .00000,
3747 + .00000, .00000, .00000,
3748 + .00150, .00021, .00001, .00000, .00000,
3749 + .00000, .00000, .00000,
3750 + .00141, .00020, .00001, .00000, .00000,
3751 + .00000, .00000, .00000,
3752 + .00123, .00017, .00001, .00000, .00000,
3753 + .00000, .00000, .00000,
3754 + .00110, .00015, .00000, .00000, .00000,
3755 + .00000, .00000, .00000,
3756 + .00096, .00014, .00000, .00000, .00000,
3757 + .00000, .00000, .00000,
3758 + .00084, .00012, .00000, .00000, .00000,
3759 + .00000, .00000, .00000,
3760 + .00075, .00010, .00000, .00000, .00000,
3761 + .00000, .00000, .00000 /
3762 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/
3763 + .00066, .00009, .00000, .00000, .00000,
3764 + .00000, .00000, .00000,
3765 + .00060, .00008, .00000, .00000, .00000,
3766 + .00000, .00000, .00000,
3767 + .00053, .00007, .00000, .00000, .00000,
3768 + .00000, .00000, .00000,
3769 + .00048, .00007, .00000, .00000, .00000,
3770 + .00000, .00000, .00000,
3771 + .00043, .00006, .00000, .00000, .00000,
3772 + .00000, .00000, .00000,
3773 + .00038, .00005, .00000, .00000, .00000,
3774 + .00000, .00000, .00000,
3775 + .00034, .00005, .00000, .00000, .00000,
3776 + .00000, .00000, .00000,
3777 + .00031, .00004, .00000, .00000, .00000,
3778 + .00000, .00000, .00000 /
3779 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
3780 + .00028, .00004, .00000, .00000, .00000,
3781 + .00000, .00000, .00000,
3782 + .00025, .00003, .00000, .00000, .00000,
3783 + .00000, .00000, .00000,
3784 + .00023, .00003, .00000, .00000, .00000,
3785 + .00000, .00000, .00000,
3786 + .00021, .00003, .00000, .00000, .00000,
3787 + .00000, .00000, .00000,
3788 + .00019, .00003, .00000, .00000, .00000,
3789 + .00000, .00000, .00000,
3790 + .00017, .00002, .00000, .00000, .00000,
3791 + .00000, .00000, .00000,
3792 + .00016, .00002, .00000, .00000, .00000,
3793 + .00000, .00000, .00000,
3794 + .00015, .00002, .00000, .00000, .00000,
3795 + .00000, .00000, .00000 /
3796 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
3797 + .00013, .00002, .00000, .00000, .00000,
3798 + .00000, .00000, .00000,
3799 + .00012, .00002, .00000, .00000, .00000,
3800 + .00000, .00000, .00000,
3801 + .00011, .00002, .00000, .00000, .00000,
3802 + .00000, .00000, .00000,
3803 + .00011, .00002, .00000, .00000, .00000,
3804 + .00000, .00000, .00000,
3805 + .00010, .00001, .00000, .00000, .00000,
3806 + .00000, .00000, .00000 /
3807 data xx/1d-5,2d-5,4d-5,6d-5,8d-5,
3808 . 1d-4,2d-4,4d-4,6d-4,8d-4,
3809 . 1d-3,2d-3,4d-3,6d-3,8d-3,
3810 . 1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2,
3811 . .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0,
3812 . .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0,
3813 . .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0,
3814 . .8d0,.9d0,1d0/
3815 data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1,
3816 . 1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2,
3817 . 1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4,
3818 . 1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6,
3819 . 1.8d6,3.2d6,5.6d6,1d7/
3820 data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/
3821 data n0/3,4,5,9,9,9,9,9/
3822 DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
3823 data init/0/
3824 save
3825 xsave=x
3826 q2save=qsq
3827 if(init.ne.0) goto 10
3828C open(unit=1,file='lo01a.dat',status='old')
3829 do 20 n=1,nx-1
3830 do 20 m=1,nq
3831C read(1,50)f(1,n,m),f(2,n,m),f(3,n,m),f(4,n,m),
3832C . f(5,n,m),f(7,n,m),f(6,n,m),f(8,n,m)
3833c notation: 1=uval 2=val 3=glue 4=usea 5=chm 6=str 7=btm 8=dsea
3834 do 25 i=1,np
3835 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i)
3836 20 continue
3837 do 31 j=1,ntenth-1
3838 xx(j)= log10(xx(j)/xx(ntenth))+xx(ntenth)
3839 do 31 i=1,8
3840 if(i.eq.5.or.i.eq.7) goto 31
3841 do 30 k=1,nq
3842 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k)
3843 31 continue
3844 50 format(8f10.5)
3845 do 40 i=1,np
3846 do 40 m=1,nq
3847 40 f(i,nx,m)=ZEROD
3848 init=1
3849 10 continue
3850 if(x.lt.xmin) x=xmin
3851 if(x.gt.xmax) x=xmax
3852 if(qsq.lt.qsqmin) qsq=qsqmin
3853 if(qsq.gt.qsqmax) qsq=qsqmax
3854 xxx=x
3855 if(x.lt.xx(ntenth)) xxx= log10(x/xx(ntenth))+xx(ntenth)
3856 n=0
3857 70 n=n+1
3858 if(xxx.gt.xx(n+1)) goto 70
3859 a=(xxx-xx(n))/(xx(n+1)-xx(n))
3860 m=0
3861 80 m=m+1
3862 if(qsq.gt.qq(m+1)) goto 80
3863 b=(qsq-qq(m))/(qq(m+1)-qq(m))
3864 do 60 i=1,np
3865 g(i)=(ONED-a)*(ONED-b)*f(i,n,m) + (ONED-a)*b*f(i,n,m+1)
3866 . + a*(ONED-b)*f(i,n+1,m) + a*b*f(i,n+1,m+1)
3867 if(n.ge.ntenth) goto 65
3868 if(i.eq.5.or.i.eq.7) goto 65
3869 fac=(ONED-b)*f(i,ntenth,m)+b*f(i,ntenth,m+1)
3870 g(i)=fac*10d0**(g(i)-fac)
3871 65 continue
3872 g(i)=g(i)*(ONED-x)**n0(i)
3873 60 continue
3874 upv=g(1)
3875 dnv=g(2)
3876 usea=g(4)
3877 dsea=g(8)
3878 str=g(6)
3879 chm=g(5)
3880 glu=g(3)
3881 bot=g(7)
3882 x=xsave
3883 qsq=q2save
3884 return
3885 end