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