2 subroutine sfmrs_98a4(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 + .00586, .00199, .88070, .92272, .00000,
12 + .00000, .49147, .93890,
13 + .00601, .00204, 2.22967, .95548, .00000,
14 + .00000, .52910, .97170,
15 + .00623, .00212, 4.83436, 1.02321, .00063,
16 + .00000, .60389, 1.03947,
17 + .00639, .00218, 7.26351, 1.09005, .06050,
18 + .00000, .67576, 1.10632,
19 + .00657, .00225, 10.38230, 1.17632, .16014,
20 + .00000, .76722, 1.19261,
21 + .00672, .00231, 13.50808, 1.26659, .24542,
22 + .00000, .86188, 1.28288,
23 + .00687, .00236, 16.95069, 1.36691, .34140,
24 + .00000, .96633, 1.38319,
25 + .00702, .00243, 21.22224, 1.48681, .46308,
26 + .00000, 1.09054, 1.50308 /
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 + .00716, .00248, 25.29276, 1.60599, .57623,
29 + .00000, 1.21341, 1.62224,
30 + .00729, .00254, 29.73035, 1.73205, .70179,
31 + .00000, 1.34296, 1.74827,
32 + .00740, .00258, 33.50856, 1.84142, .80771,
33 + .00000, 1.45507, 1.85763,
34 + .00763, .00267, 42.54420, 2.10144, 1.06426,
35 + .00045, 1.72081, 2.11759,
36 + .00783, .00276, 51.38446, 2.35690, 1.31801,
37 + .21354, 1.98110, 2.37300,
38 + .00806, .00285, 62.45731, 2.67895, 1.63860,
39 + .60394, 2.30841, 2.69498,
40 + .00830, .00296, 75.45417, 3.05782, 2.01654,
41 + .99795, 2.69263, 3.07377,
42 + .00852, .00305, 88.41704, 3.44070, 2.39389,
43 + 1.37850, 3.08025, 3.45657 /
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 + .00874, .00315, 102.85153, 3.86700, 2.81711,
46 + 1.81556, 3.51122, 3.88277,
47 + .00893, .00323, 115.95238, 4.25332, 3.20382,
48 + 2.22018, 3.90133, 4.26901,
49 + .00916, .00333, 132.98741, 4.76113, 3.70954,
50 + 2.73997, 4.41365, 4.77672,
51 + .00936, .00343, 149.13029, 5.24701, 4.19235,
52 + 3.23338, 4.90343, 5.26250,
53 + .00955, .00351, 165.09706, 5.72685, 4.67328,
54 + 3.73186, 5.38677, 5.74225,
55 + .00980, .00362, 186.47972, 6.37846, 5.32259,
56 + 4.39576, 6.04275, 6.39375,
57 + .01003, .00373, 207.93051, 7.03793, 5.98017,
58 + 5.06807, 6.70623, 7.05310,
59 + .01025, .00383, 229.43666, 7.70162, 6.64505,
60 + 5.75186, 7.37359, 7.71668 /
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 + .01047, .00393, 251.86169, 8.40359, 7.34520,
63 + 6.46566, 8.07916, 8.41852,
64 + .01069, .00403, 275.03058, 9.13363, 8.07513,
65 + 7.21194, 8.81266, 9.14845,
66 + .01090, .00413, 298.05942, 9.86484, 8.80702,
67 + 7.96039, 9.54708, 9.87955,
68 + .01110, .00422, 320.48654, 10.58538, 9.52680,
69 + 8.69369, 10.27060, 10.59999,
70 + .01130, .00432, 344.13333, 11.34867, 10.29145,
71 + 9.47513, 11.03682, 11.36317,
72 + .01150, .00441, 367.97964, 12.12838, 11.07055,
73 + 10.26784, 11.81938, 12.14277,
74 + .01170, .00450, 391.67102, 12.90666, 11.85021,
75 + 11.06331, 12.60031, 12.92094,
76 + .01188, .00459, 414.58792, 13.66795, 12.61167,
77 + 11.83807, 13.36408, 13.68214 /
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 + .01207, .00468, 438.46045, 14.46656, 13.41101,
80 + 12.65161, 14.16515, 14.48064,
81 + .01225, .00477, 462.76813, 15.28523, 14.23124,
82 + 13.48712, 14.98622, 15.29921,
83 + .01243, .00485, 486.32785, 16.08779, 15.03383,
84 + 14.30212, 15.79104, 16.10168,
85 + .01260, .00494, 509.62466, 16.88289, 15.83149,
86 + 15.11512, 16.58825, 16.89670,
87 + .01278, .00502, 533.22858, 17.70005, 16.64858,
88 + 15.94396, 17.40752, 17.71376 /
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 + .00792, .00276, .92268, .77768, .00000,
91 + .00000, .41371, .78702,
92 + .00813, .00284, 2.16837, .80907, .00000,
93 + .00000, .44885, .81843,
94 + .00843, .00296, 4.50646, .87081, .00058,
95 + .00000, .51602, .88018,
96 + .00866, .00305, 6.63257, .92957, .05263,
97 + .00000, .57865, .93895,
98 + .00890, .00315, 9.31193, 1.00396, .13848,
99 + .00000, .65702, 1.01334,
100 + .00911, .00324, 11.95417, 1.08045, .21063,
101 + .00000, .73688, 1.08983,
102 + .00931, .00332, 14.82413, 1.16441, .29099,
103 + .00000, .82402, 1.17379,
104 + .00952, .00341, 18.33987, 1.26399, .39192,
105 + .00000, .92690, 1.27336 /
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 + .00971, .00349, 21.64874, 1.36184, .48477,
108 + .00000, 1.02757, 1.37120,
109 + .00990, .00357, 25.21993, 1.46472, .58708,
110 + .00000, 1.13313, 1.47406,
111 + .01004, .00364, 28.23275, 1.55333, .67275,
112 + .00000, 1.22383, 1.56266,
113 + .01036, .00377, 35.35189, 1.76230, .87844,
114 + .00039, 1.43718, 1.77160,
115 + .01063, .00390, 42.21458, 1.96555, 1.07969,
116 + .16878, 1.64412, 1.97482,
117 + .01094, .00403, 50.69024, 2.21929, 1.33136,
118 + .47538, 1.90188, 2.22852,
119 + .01127, .00418, 60.50304, 2.51479, 1.62492,
120 + .78065, 2.20147, 2.52398,
121 + .01157, .00432, 70.16046, 2.81039, 1.91499,
122 + 1.07230, 2.50068, 2.81953 /
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 + .01188, .00446, 80.78963, 3.13668, 2.23744,
125 + 1.40434, 2.83053, 3.14576,
126 + .01213, .00458, 90.33891, 3.43011, 2.52980,
127 + 1.70938, 3.12686, 3.43915,
128 + .01245, .00472, 102.62627, 3.81271, 2.90899,
129 + 2.09782, 3.51289, 3.82169,
130 + .01272, .00485, 114.14958, 4.17583, 3.26806,
131 + 2.46349, 3.87899, 4.18476,
132 + .01298, .00497, 125.45138, 4.53210, 3.62343,
133 + 2.83066, 4.23794, 4.54098,
134 + .01331, .00513, 140.43799, 5.01216, 4.09946,
135 + 3.31564, 4.72132, 5.02098,
136 + .01363, .00528, 155.32347, 5.49420, 4.57779,
137 + 3.80294, 5.20641, 5.50295,
138 + .01392, .00542, 170.11800, 5.97596, 5.05815,
139 + 4.29531, 5.69098, 5.98465 /
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 + .01422, .00557, 185.40556, 6.48186, 5.56033,
142 + 4.80543, 6.19963, 6.49048,
143 + .01452, .00571, 201.07309, 7.00457, 6.08055,
144 + 5.33545, 6.72498, 7.01314,
145 + .01480, .00584, 216.52696, 7.52489, 6.59899,
146 + 5.86383, 7.24775, 7.53340,
147 + .01507, .00598, 231.46297, 8.03451, 7.10576,
148 + 6.37830, 7.75964, 8.04296,
149 + .01534, .00611, 247.11029, 8.57152, 7.64138,
150 + 6.92388, 8.29889, 8.57991,
151 + .01561, .00624, 262.77499, 9.11689, 8.18392,
152 + 7.47399, 8.84644, 9.12522,
153 + .01587, .00637, 278.24603, 9.65860, 8.72432,
154 + 8.02355, 9.39018, 9.66688,
155 + .01611, .00649, 293.11594, 10.18578, 9.24938,
156 + 8.55600, 9.91925, 10.19400 /
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 + .01636, .00661, 308.51913, 10.73625, 9.79809,
159 + 9.11264, 10.47161, 10.74442,
160 + .01661, .00673, 324.11700, 11.29800, 10.35867,
161 + 9.68185, 11.03519, 11.30612,
162 + .01685, .00685, 339.14505, 11.84610, 10.90456,
163 + 10.23436, 11.58502, 11.85417,
164 + .01708, .00697, 353.94315, 12.38711, 11.44526,
165 + 10.78382, 12.12765, 12.39513,
166 + .01731, .00708, 368.84518, 12.94053, 11.99644,
167 + 11.34111, 12.68268, 12.94850 /
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 + .01071, .00383, .96766, .65516, .00000,
170 + .00000, .34838, .65975,
171 + .01099, .00395, 2.11064, .68479, .00000,
172 + .00000, .38089, .68938,
173 + .01141, .00413, 4.20301, .74076, .00053,
174 + .00000, .44101, .74535,
175 + .01172, .00427, 6.05855, .79233, .04577,
176 + .00000, .49555, .79692,
177 + .01205, .00441, 8.35365, .85642, .11972,
178 + .00000, .56269, .86101,
179 + .01234, .00454, 10.58026, .92120, .18072,
180 + .00000, .63004, .92579,
181 + .01262, .00467, 12.96493, .99143, .24795,
182 + .00000, .70269, .99601,
183 + .01292, .00480, 15.84857, 1.07404, .33158,
184 + .00000, .78781, 1.07861 /
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 + .01317, .00492, 18.52834, 1.15427, .40769,
187 + .00000, .87019, 1.15883,
188 + .01343, .00504, 21.39123, 1.23809, .49095,
189 + .00000, .95605, 1.24264,
190 + .01363, .00513, 23.78404, 1.30973, .56014,
191 + .00000, 1.02928, 1.31427,
192 + .01406, .00533, 29.36930, 1.47728, .72478,
193 + .00035, 1.20016, 1.48181,
194 + .01444, .00551, 34.67224, 1.63855, .88411,
195 + .13332, 1.36422, 1.64305,
196 + .01486, .00571, 41.12767, 1.83784, 1.08127,
197 + .37398, 1.56656, 1.84232,
198 + .01531, .00592, 48.49774, 2.06752, 1.30878,
199 + .61034, 1.79934, 2.07198,
200 + .01572, .00611, 55.65247, 2.29485, 1.53120,
201 + .83364, 2.02941, 2.29929 /
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 + .01613, .00631, 63.43407, 2.54356, 1.77621,
204 + 1.08564, 2.28082, 2.54798,
205 + .01648, .00648, 70.35272, 2.76549, 1.99661,
206 + 1.31532, 2.50494, 2.76989,
207 + .01691, .00669, 79.15980, 3.05245, 2.28007,
208 + 1.60520, 2.79449, 3.05682,
209 + .01728, .00688, 87.33150, 3.32255, 2.54624,
210 + 1.87576, 3.06684, 3.32689,
211 + .01763, .00705, 95.27763, 3.58580, 2.80796,
212 + 2.14575, 3.33211, 3.59012,
213 + .01808, .00727, 105.70777, 3.93769, 3.15571,
214 + 2.49933, 3.68651, 3.94197,
215 + .01851, .00748, 115.96183, 4.28818, 3.50235,
216 + 2.85176, 4.03931, 4.29244,
217 + .01891, .00768, 126.06320, 4.63602, 3.84806,
218 + 3.20549, 4.38927, 4.64026 /
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 + .01931, .00788, 136.40358, 4.99859, 4.20678,
221 + 3.56911, 4.75391, 5.00279,
222 + .01971, .00808, 146.91354, 5.37073, 4.57598,
223 + 3.94453, 5.12805, 5.37491,
224 + .02009, .00827, 157.19888, 5.73884, 4.94163,
225 + 4.31647, 5.49801, 5.74299,
226 + .02045, .00846, 167.06117, 6.09713, 5.29680,
227 + 4.67631, 5.85801, 6.10126,
228 + .02081, .00864, 177.32535, 6.47265, 5.67026,
229 + 5.05600, 6.23523, 6.47676,
230 + .02117, .00883, 187.52299, 6.85176, 6.04626,
231 + 5.43647, 6.61597, 6.85584,
232 + .02152, .00900, 197.53407, 7.22644, 6.41899,
233 + 5.81481, 6.99220, 7.23050,
234 + .02184, .00917, 207.09143, 7.58916, 6.77921,
235 + 6.17938, 7.35634, 7.59319 /
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 + .02218, .00934, 216.93488, 7.96612, 7.15394,
238 + 6.55880, 7.73473, 7.97014,
239 + .02251, .00951, 226.84616, 8.34904, 7.53504,
240 + 6.94508, 8.11904, 8.35304,
241 + .02282, .00967, 236.33539, 8.72082, 7.90432,
242 + 7.31810, 8.49212, 8.72480,
243 + .02313, .00983, 245.63991, 9.08646, 8.26885,
244 + 7.68792, 8.85899, 9.09042,
245 + .02343, .00999, 254.94882, 9.45865, 8.63855,
246 + 8.06098, 9.23239, 9.46259 /
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 + .01277, .00464, .99585, .59253, .00000,
249 + .00000, .31515, .59516,
250 + .01311, .00479, 2.07914, .62100, .00000,
251 + .00000, .34609, .62363,
252 + .01362, .00502, 4.03684, .67371, .00050,
253 + .00000, .40236, .67634,
254 + .01400, .00519, 5.74777, .72146, .04218,
255 + .00000, .45264, .72408,
256 + .01440, .00538, 7.84087, .78018, .10992,
257 + .00000, .51396, .78279,
258 + .01474, .00554, 9.85195, .83893, .16520,
259 + .00000, .57490, .84154,
260 + .01508, .00570, 11.98786, .90216, .22573,
261 + .00000, .64019, .90476,
262 + .01543, .00586, 14.55092, .97617, .30061,
263 + .00000, .71635, .97876 /
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 + .01575, .00601, 16.91485, 1.04753, .36832,
266 + .00000, .78954, 1.05012,
267 + .01605, .00616, 19.42508, 1.12182, .44206,
268 + .00000, .86556, 1.12440,
269 + .01629, .00627, 21.51147, 1.18501, .50307,
270 + .00000, .93010, 1.18759,
271 + .01681, .00652, 26.34610, 1.33205, .64748,
272 + .00032, 1.07998, 1.33462,
273 + .01726, .00674, 30.89482, 1.47268, .78630,
274 + .11610, 1.22298, 1.47524,
275 + .01777, .00699, 36.38441, 1.64542, .95703,
276 + .32487, 1.39831, 1.64796,
277 + .01831, .00725, 42.59977, 1.84324, 1.15277,
278 + .52825, 1.59876, 1.84577,
279 + .01880, .00750, 48.58418, 2.03779, 1.34290,
280 + .71915, 1.79563, 2.04031 /
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 + .01930, .00774, 55.04686, 2.24950, 1.55124,
283 + .93343, 2.00963, 2.25201,
284 + .01971, .00795, 60.75736, 2.43754, 1.73776,
285 + 1.12783, 2.19952, 2.44003,
286 + .02022, .00821, 67.97968, 2.67945, 1.97643,
287 + 1.37187, 2.44363, 2.68193,
288 + .02067, .00843, 74.63811, 2.90602, 2.19943,
289 + 1.59849, 2.67210, 2.90848,
290 + .02109, .00865, 81.07973, 3.12597, 2.41785,
291 + 1.82379, 2.89377, 3.12843,
292 + .02163, .00892, 89.48321, 3.41858, 2.70666,
293 + 2.11734, 3.18849, 3.42102,
294 + .02213, .00917, 97.69418, 3.70862, 2.99317,
295 + 2.40853, 3.48049, 3.71105,
296 + .02261, .00942, 105.74004, 3.99526, 3.27774,
297 + 2.69964, 3.76893, 3.99768 /
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 + .02309, .00966, 113.92963, 4.29272, 3.57170,
300 + 2.99747, 4.06813, 4.29512,
301 + .02356, .00991, 122.21209, 4.59682, 3.87306,
302 + 3.30381, 4.37392, 4.59922,
303 + .02401, .01014, 130.27927, 4.89650, 4.17042,
304 + 3.60618, 4.67516, 4.89888,
305 + .02444, .01036, 137.97757, 5.18709, 4.45817,
306 + 3.89758, 4.96721, 5.18947,
307 + .02487, .01059, 145.95813, 5.49069, 4.75981,
308 + 4.20415, 5.27224, 5.49306,
309 + .02530, .01081, 153.85011, 5.79608, 5.06239,
310 + 4.51019, 5.57901, 5.79844,
311 + .02571, .01102, 161.56978, 6.09703, 5.36149,
312 + 4.81369, 5.88126, 6.09938,
313 + .02609, .01123, 168.90933, 6.38743, 5.64962,
314 + 5.10518, 6.17287, 6.38978 /
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 + .02649, .01143, 176.44226, 6.68841, 5.94854,
317 + 5.40772, 6.47505, 6.69075,
318 + .02688, .01164, 184.00105, 6.99329, 6.25172,
319 + 5.71491, 6.78111, 6.99563,
320 + .02725, .01184, 191.21007, 7.28844, 6.54461,
321 + 6.01064, 7.07736, 7.29077,
322 + .02761, .01203, 198.26134, 7.57808, 6.83316,
323 + 6.30329, 7.36804, 7.58041,
324 + .02797, .01222, 205.28700, 7.87203, 7.12489,
325 + 6.59754, 7.66302, 7.87435 /
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 + .01448, .00532, 1.01696, .55171, .00000,
328 + .00000, .29359, .55328,
329 + .01487, .00550, 2.05814, .57933, .00000,
330 + .00000, .32341, .58089,
331 + .01545, .00577, 3.92413, .62979, .00048,
332 + .00000, .37706, .63135,
333 + .01588, .00598, 5.53811, .67497, .03979,
334 + .00000, .42450, .67652,
335 + .01633, .00619, 7.49716, .73013, .10344,
336 + .00000, .48199, .73168,
337 + .01673, .00638, 9.36647, .78494, .15497,
338 + .00000, .53875, .78648,
339 + .01711, .00656, 11.33991, .84361, .21115,
340 + .00000, .59926, .84514,
341 + .01751, .00676, 13.69499, .91204, .28035,
342 + .00000, .66961, .91357 /
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 + .01787, .00694, 15.85532, .97769, .34264,
345 + .00000, .73689, .97922,
346 + .01822, .00710, 18.13943, 1.04583, .41027,
347 + .00000, .80658, 1.04735,
348 + .01849, .00724, 20.03025, 1.10360, .46604,
349 + .00000, .86556, 1.10512,
350 + .01908, .00753, 24.38881, 1.23755, .59755,
351 + .00030, 1.00202, 1.23906,
352 + .01960, .00779, 28.46281, 1.36505, .72338,
353 + .10521, 1.13165, 1.36656,
354 + .02018, .00808, 33.34882, 1.52098, .87742,
355 + .29390, 1.28988, 1.52248,
356 + .02079, .00838, 38.84768, 1.69873, 1.05323,
357 + .47665, 1.46997, 1.70023,
358 + .02134, .00866, 44.11090, 1.87274, 1.22320,
359 + .64737, 1.64604, 1.87423 /
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 + .02191, .00895, 49.76577, 2.06137, 1.40873,
362 + .83829, 1.83670, 2.06285,
363 + .02238, .00919, 54.74022, 2.22834, 1.57428,
364 + 1.01091, 2.00532, 2.22982,
365 + .02296, .00949, 61.00223, 2.44236, 1.78533,
366 + 1.22677, 2.22130, 2.44384,
367 + .02347, .00975, 66.74857, 2.64210, 1.98182,
368 + 1.42648, 2.42273, 2.64357,
369 + .02395, .00999, 72.28745, 2.83546, 2.17374,
370 + 1.62451, 2.61761, 2.83693,
371 + .02455, .01031, 79.48110, 3.09178, 2.42662,
372 + 1.88158, 2.87582, 3.09325,
373 + .02512, .01060, 86.47865, 3.34498, 2.67661,
374 + 2.13569, 3.13075, 3.34645,
375 + .02566, .01089, 93.30938, 3.59446, 2.92418,
376 + 2.38901, 3.38182, 3.59592 /
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 + .02621, .01117, 100.23331, 3.85252, 3.17909,
379 + 2.64729, 3.64144, 3.85398,
380 + .02674, .01145, 107.21055, 4.11560, 3.43968,
381 + 2.91223, 3.90601, 4.11706,
382 + .02725, .01172, 113.98309, 4.37414, 3.69613,
383 + 3.17304, 4.16594, 4.37560,
384 + .02773, .01197, 120.42332, 4.62417, 3.94362,
385 + 3.42368, 4.41726, 4.62563,
386 + .02822, .01223, 127.08096, 4.88479, 4.20247,
387 + 3.68680, 4.67915, 4.88626,
388 + .02870, .01248, 133.64204, 5.14627, 4.46145,
389 + 3.94874, 4.94186, 5.14774,
390 + .02916, .01273, 140.04324, 5.40340, 4.71692,
391 + 4.20801, 5.20015, 5.40487,
392 + .02960, .01296, 146.11098, 5.65095, 4.96245,
393 + 4.45642, 5.44877, 5.65242 /
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 + .03004, .01320, 152.32272, 5.90700, 5.21667,
396 + 4.71374, 5.70589, 5.90847,
397 + .03048, .01343, 158.54025, 6.16586, 5.47402,
398 + 4.97452, 5.96579, 6.16733,
399 + .03090, .01366, 164.45302, 6.41591, 5.72209,
400 + 5.22500, 6.21682, 6.41739,
401 + .03131, .01387, 170.22632, 6.66093, 5.96613,
402 + 5.47256, 6.46275, 6.66241,
403 + .03172, .01409, 175.96107, 6.90904, 6.21231,
404 + 5.72086, 6.71178, 6.91052 /
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 + .01596, .00592, 1.03414, .52198, .00000,
407 + .00000, .27792, .52290,
408 + .01639, .00613, 2.04283, .54892, .00000,
409 + .00000, .30688, .54983,
410 + .01703, .00643, 3.83979, .59767, .00047,
411 + .00000, .35856, .59857,
412 + .01751, .00666, 5.38162, .64094, .03803,
413 + .00000, .40391, .64184,
414 + .01801, .00691, 7.24166, .69349, .09867,
415 + .00000, .45859, .69438,
416 + .01845, .00712, 9.00691, .74540, .14746,
417 + .00000, .51230, .74630,
418 + .01887, .00733, 10.86174, .80075, .20046,
419 + .00000, .56934, .80164,
420 + .01932, .00755, 13.06575, .86513, .26555,
421 + .00000, .63547, .86602 /
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 + .01972, .00775, 15.07890, .92664, .32391,
424 + .00000, .69847, .92752,
425 + .02010, .00794, 17.20016, .99035, .38713,
426 + .00000, .76360, .99123,
427 + .02040, .00809, 18.95065, 1.04421, .43914,
428 + .00000, .81857, 1.04510,
429 + .02106, .00842, 22.96912, 1.16875, .56139,
430 + .00029, .94541, 1.16963,
431 + .02163, .00871, 26.70590, 1.28686, .67793,
432 + .09745, 1.06546, 1.28774,
433 + .02227, .00903, 31.16546, 1.43080, .82011,
434 + .27186, 1.21151, 1.43167,
435 + .02294, .00938, 36.16081, 1.59429, .98178,
436 + .44002, 1.37714, 1.59517,
437 + .02355, .00969, 40.91973, 1.75375, 1.13752,
438 + .59652, 1.53849, 1.75463 /
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 + .02418, .01002, 46.01233, 1.92609, 1.30700,
441 + .77102, 1.71268, 1.92697,
442 + .02470, .01029, 50.47645, 2.07824, 1.45782,
443 + .92838, 1.86634, 2.07912,
444 + .02534, .01062, 56.07534, 2.27271, 1.64955,
445 + 1.12456, 2.06259, 2.27359,
446 + .02590, .01091, 61.19437, 2.45368, 1.82755,
447 + 1.30555, 2.24510, 2.45456,
448 + .02642, .01118, 66.11441, 2.62848, 2.00102,
449 + 1.48464, 2.42129, 2.62937,
450 + .02709, .01153, 72.48181, 2.85957, 2.22897,
451 + 1.71644, 2.65410, 2.86046,
452 + .02772, .01187, 78.65396, 3.08722, 2.45370,
453 + 1.94496, 2.88333, 3.08812,
454 + .02831, .01218, 84.66079, 3.31100, 2.67574,
455 + 2.17224, 3.10856, 3.31190 /
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 + .02891, .01250, 90.72955, 3.54188, 2.90378,
458 + 2.40337, 3.34087, 3.54279,
459 + .02950, .01281, 96.82775, 3.77674, 3.13639,
460 + 2.63993, 3.57709, 3.77765,
461 + .03006, .01311, 102.73100, 4.00705, 3.36482,
462 + 2.87232, 3.80867, 4.00798,
463 + .03059, .01339, 108.32896, 4.22931, 3.58479,
464 + 3.09516, 4.03210, 4.23024,
465 + .03112, .01368, 114.10289, 4.46057, 3.81446,
466 + 3.32870, 4.26452, 4.46150,
467 + .03165, .01396, 119.77768, 4.69211, 4.04377,
468 + 3.56069, 4.49717, 4.69305,
469 + .03216, .01423, 125.30287, 4.91942, 4.26961,
470 + 3.78996, 4.72554, 4.92037,
471 + .03264, .01449, 130.52750, 5.13786, 4.48626,
472 + 4.00921, 4.94496, 5.13883 /
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 + .03312, .01475, 135.86543, 5.36345, 4.71023,
475 + 4.23598, 5.17153, 5.36442,
476 + .03361, .01501, 141.19783, 5.59116, 4.93661,
477 + 4.46545, 5.40018, 5.59214,
478 + .03407, .01526, 146.25728, 5.81075, 5.15446,
479 + 4.68547, 5.62066, 5.81173,
480 + .03451, .01550, 151.19054, 6.02566, 5.36853,
481 + 4.90270, 5.83642, 6.02666,
482 + .03496, .01574, 156.07883, 6.24290, 5.58407,
483 + 5.12015, 6.05450, 6.24391 /
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 + .02159, .00828, 1.09367, .43953, .00000,
486 + .00000, .23474, .43926,
487 + .02219, .00858, 2.00276, .46428, .00000,
488 + .00000, .26105, .46401,
489 + .02307, .00903, 3.59636, .50792, .00043,
490 + .00000, .30696, .50766,
491 + .02373, .00937, 4.92971, .54569, .03300,
492 + .00000, .34632, .54544,
493 + .02442, .00973, 6.50738, .59079, .08511,
494 + .00000, .39307, .59054,
495 + .02502, .01005, 7.97924, .63460, .12622,
496 + .00000, .43826, .63436,
497 + .02560, .01035, 9.50283, .68070, .17039,
498 + .00000, .48565, .68046,
499 + .02622, .01068, 11.28859, .73385, .22408,
500 + .00000, .54015, .73362 /
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 + .02676, .01096, 12.89769, .78397, .27168,
503 + .00000, .59142, .78375,
504 + .02728, .01124, 14.57499, .83553, .32283,
505 + .00000, .64406, .83532,
506 + .02770, .01146, 15.94527, .87874, .36457,
507 + .00000, .68812, .87854,
508 + .02860, .01193, 19.04982, .97773, .46177,
509 + .00026, .78888, .97755,
510 + .02937, .01235, 21.88936, 1.07052, .55335,
511 + .07666, .88315, 1.07035,
512 + .03025, .01282, 25.22499, 1.18233, .66382,
513 + .21297, .99657, 1.18218,
514 + .03116, .01331, 28.90559, 1.30786, .78799,
515 + .34251, 1.12373, 1.30773,
516 + .03200, .01376, 32.35968, 1.42886, .90623,
517 + .46166, 1.24616, 1.42875 /
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 + .03284, .01422, 36.00874, 1.55836, 1.03366,
520 + .59328, 1.37708, 1.55828,
521 + .03355, .01461, 39.17184, 1.67174, 1.14612,
522 + .71099, 1.49161, 1.67168,
523 + .03441, .01508, 43.09220, 1.81532, 1.28776,
524 + .85633, 1.63654, 1.81528,
525 + .03518, .01549, 46.63449, 1.94772, 1.41808,
526 + .98917, 1.77012, 1.94771,
527 + .03588, .01588, 50.00792, 2.07471, 1.54420,
528 + 1.11976, 1.89817, 2.07473,
529 + .03678, .01637, 54.32417, 2.24113, 1.70847,
530 + 1.28723, 2.06589, 2.24117,
531 + .03763, .01684, 58.46083, 2.40364, 1.86903,
532 + 1.45089, 2.22961, 2.40372,
533 + .03842, .01728, 62.44799, 2.56220, 2.02649,
534 + 1.61251, 2.38927, 2.56230 /
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 + .03922, .01772, 66.43330, 2.72446, 2.18688,
537 + 1.77544, 2.55261, 2.72459,
538 + .04001, .01816, 70.40141, 2.88834, 2.34935,
539 + 1.94107, 2.71752, 2.88850,
540 + .04076, .01857, 74.20909, 3.04797, 2.50783,
541 + 2.10269, 2.87811, 3.04816,
542 + .04147, .01896, 77.78704, 3.20095, 2.65939,
543 + 2.25657, 3.03199, 3.20117,
544 + .04218, .01936, 81.45107, 3.35924, 2.81675,
545 + 2.41698, 3.19115, 3.35948,
546 + .04289, .01975, 85.01991, 3.51666, 2.97282,
547 + 2.57521, 3.34943, 3.51694,
548 + .04356, .02013, 88.47195, 3.67041, 3.12574,
549 + 2.73083, 3.50397, 3.67071,
550 + .04420, .02049, 91.71027, 3.81729, 3.27158,
551 + 2.87874, 3.65160, 3.81762 /
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 + .04484, .02085, 94.99728, 3.96821, 3.42159,
554 + 3.03097, 3.80326, 3.96857,
555 + .04549, .02120, 98.25966, 4.11980, 3.57248,
556 + 3.18427, 3.95557, 4.12018,
557 + .04610, .02155, 101.33154, 4.26518, 3.71687,
558 + 3.33040, 4.10163, 4.26559,
559 + .04668, .02187, 104.31390, 4.40693, 3.85826,
560 + 3.47423, 4.24402, 4.40737,
561 + .04727, .02221, 107.24430, 4.54941, 3.99979,
562 + 3.61730, 4.38714, 4.54988 /
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 + .02928, .01166, 1.16881, .37065, .00000,
565 + .00000, .19900, .37028,
566 + .03010, .01211, 1.98118, .39318, .00000,
567 + .00000, .22276, .39283,
568 + .03132, .01278, 3.38618, .43201, .00039,
569 + .00000, .26336, .43169,
570 + .03222, .01327, 4.53167, .46482, .02857,
571 + .00000, .29743, .46453,
572 + .03317, .01380, 5.85990, .50337, .07321,
573 + .00000, .33727, .50311,
574 + .03399, .01426, 7.07718, .54019, .10773,
575 + .00000, .37518, .53996,
576 + .03479, .01470, 8.31758, .57841, .14439,
577 + .00000, .41442, .57821,
578 + .03564, .01517, 9.75067, .62208, .18848,
579 + .00000, .45914, .62191 /
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 + .03638, .01559, 11.02370, .66270, .22709,
582 + .00000, .50066, .66255,
583 + .03709, .01599, 12.33570, .70417, .26827,
584 + .00000, .54299, .70406,
585 + .03766, .01631, 13.39624, .73862, .30158,
586 + .00000, .57810, .73852,
587 + .03888, .01699, 15.76589, .81675, .37838,
588 + .00022, .65761, .81670,
589 + .03994, .01759, 17.89537, .88907, .44985,
590 + .06000, .73110, .88906,
591 + .04113, .01826, 20.35500, .97517, .53506,
592 + .16595, .81847, .97522,
593 + .04237, .01897, 23.02624, 1.07066, .62968,
594 + .26515, .91524, 1.07077,
595 + .04350, .01961, 25.49313, 1.16155, .71869,
596 + .35528, 1.00725, 1.16170 /
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 + .04465, .02026, 28.06395, 1.25784, .81364,
599 + .45388, 1.10465, 1.25804,
600 + .04560, .02080, 30.26609, 1.34138, .89670,
601 + .54128, 1.18910, 1.34163,
602 + .04676, .02147, 32.96088, 1.44616, 1.00031,
603 + .64812, 1.29493, 1.44646,
604 + .04779, .02205, 35.36506, 1.54184, 1.09473,
605 + .74484, 1.39154, 1.54220,
606 + .04874, .02260, 37.63250, 1.63295, 1.18545,
607 + .83927, 1.48348, 1.63335,
608 + .04995, .02329, 40.49786, 1.75122, 1.30250,
609 + .95916, 1.60278, 1.75168,
610 + .05109, .02394, 43.21049, 1.86566, 1.41586,
611 + 1.07527, 1.71816, 1.86618,
612 + .05216, .02455, 45.79832, 1.97643, 1.52619,
613 + 1.18907, 1.82980, 1.97701 /
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 + .05323, .02517, 48.35457, 2.08881, 1.63758,
616 + 1.30276, 1.94303, 2.08945,
617 + .05428, .02577, 50.87468, 2.20147, 1.74958,
618 + 1.41749, 2.05650, 2.20216,
619 + .05527, .02635, 53.26999, 2.31041, 1.85807,
620 + 1.52866, 2.16621, 2.31116,
621 + .05622, .02689, 55.49800, 2.41407, 1.96105,
622 + 1.63369, 2.27056, 2.41486,
623 + .05717, .02744, 57.76220, 2.52067, 2.06736,
624 + 1.74258, 2.37787, 2.52152,
625 + .05810, .02797, 59.94532, 2.62595, 2.17204,
626 + 1.84919, 2.48381, 2.62685,
627 + .05899, .02849, 62.04211, 2.72820, 2.27406,
628 + 1.95350, 2.58670, 2.72915,
629 + .05984, .02898, 63.99139, 2.82527, 2.37074,
630 + 2.05200, 2.68436, 2.82628 /
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 + .06069, .02947, 65.95577, 2.92449, 2.46966,
633 + 2.15285, 2.78416, 2.92554,
634 + .06154, .02996, 67.89165, 3.02362, 2.56865,
635 + 2.25389, 2.88386, 3.02472,
636 + .06234, .03042, 69.69843, 3.11812, 2.66280,
637 + 2.34960, 2.97890, 3.11927,
638 + .06311, .03087, 71.44494, 3.20992, 2.75468,
639 + 2.44351, 3.07121, 3.21111,
640 + .06389, .03132, 73.14378, 3.30161, 2.84604,
641 + 2.53627, 3.16341, 3.30285 /
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 + .03505, .01434, 1.22574, .33618, .00000,
644 + .00000, .18122, .33612,
645 + .03604, .01490, 1.98337, .35741, .00000,
646 + .00000, .20353, .35739,
647 + .03751, .01574, 3.28330, .39354, .00037,
648 + .00000, .24123, .39358,
649 + .03859, .01636, 4.32651, .42367, .02620,
650 + .00000, .27246, .42376,
651 + .03974, .01702, 5.52109, .45873, .06689,
652 + .00000, .30866, .45887,
653 + .04073, .01759, 6.60400, .49187, .09796,
654 + .00000, .34276, .49206,
655 + .04168, .01814, 7.69683, .52601, .13073,
656 + .00000, .37779, .52624,
657 + .04270, .01873, 8.94821, .56478, .16988,
658 + .00000, .41750, .56506 /
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 + .04359, .01924, 10.05011, .60055, .20391,
661 + .00000, .45406, .60087,
662 + .04445, .01973, 11.17776, .63691, .24003,
663 + .00000, .49117, .63727,
664 + .04513, .02013, 12.08333, .66692, .26909,
665 + .00000, .52177, .66732,
666 + .04659, .02098, 14.08927, .73460, .33570,
667 + .00021, .59067, .73507,
668 + .04786, .02171, 15.87208, .79677, .39721,
669 + .05176, .65386, .79730,
670 + .04928, .02254, 17.90951, .87022, .47001,
671 + .14278, .72844, .87083,
672 + .05076, .02340, 20.10049, .95107, .55025,
673 + .22724, .81042, .95175,
674 + .05211, .02419, 22.10351, 1.02741, .62516,
675 + .30339, .88776, 1.02817 /
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 + .05348, .02498, 24.17320, 1.10778, .70458,
678 + .38619, .96911, 1.10861,
679 + .05462, .02565, 25.93295, 1.17712, .77367,
680 + .45921, 1.03926, 1.17802,
681 + .05600, .02646, 28.06911, 1.26356, .85934,
682 + .54790, 1.12664, 1.26453,
683 + .05722, .02717, 29.95960, 1.34203, .93694,
684 + .62772, 1.20593, 1.34307,
685 + .05835, .02783, 31.73178, 1.41640, 1.01118,
686 + .70531, 1.28104, 1.41751,
687 + .05978, .02867, 33.95355, 1.51239, 1.10640,
688 + .80323, 1.37794, 1.51358,
689 + .06112, .02946, 36.04051, 1.60473, 1.19810,
690 + .89753, 1.47113, 1.60600,
691 + .06239, .03020, 38.01856, 1.69369, 1.28693,
692 + .98953, 1.56086, 1.69503 /
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 + .06365, .03094, 39.95755, 1.78344, 1.37611,
695 + 1.08091, 1.65137, 1.78486,
696 + .06489, .03167, 41.85704, 1.87299, 1.46539,
697 + 1.17272, 1.74165, 1.87449,
698 + .06607, .03236, 43.65147, 1.95922, 1.55147,
699 + 1.26129, 1.82855, 1.96078,
700 + .06718, .03301, 45.30947, 2.04087, 1.63281,
701 + 1.34459, 1.91083, 2.04251,
702 + .06830, .03366, 46.98618, 2.12455, 1.71649,
703 + 1.43064, 1.99514, 2.12625,
704 + .06939, .03431, 48.59199, 2.20680, 1.79850,
705 + 1.51449, 2.07799, 2.20858,
706 + .07044, .03492, 50.12738, 2.28643, 1.87818,
707 + 1.59628, 2.15819, 2.28827,
708 + .07143, .03550, 51.54613, 2.36173, 1.95337,
709 + 1.67320, 2.23401, 2.36363 /
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 + .07244, .03609, 52.96917, 2.43843, 2.03007,
712 + 1.75169, 2.31124, 2.44039,
713 + .07343, .03667, 54.36502, 2.51481, 2.10657,
714 + 1.83009, 2.38814, 2.51684,
715 + .07437, .03723, 55.66000, 2.58735, 2.17905,
716 + 1.90406, 2.46117, 2.58944,
717 + .07527, .03775, 56.90845, 2.65766, 2.24962,
718 + 1.97649, 2.53194, 2.65981,
719 + .07618, .03829, 58.11419, 2.72760, 2.31951,
720 + 2.04773, 2.60232, 2.72980 /
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 + .03987, .01669, 1.27556, .31427, .00000,
723 + .00000, .16994, .31454,
724 + .04099, .01735, 1.99532, .33459, .00000,
725 + .00000, .19124, .33490,
726 + .04268, .01833, 3.22207, .36886, .00036,
727 + .00000, .22694, .36926,
728 + .04391, .01905, 4.19518, .39716, .02460,
729 + .00000, .25626, .39762,
730 + .04522, .01982, 5.29913, .42986, .06263,
731 + .00000, .29001, .43039,
732 + .04635, .02049, 6.29191, .46056, .09142,
733 + .00000, .32158, .46115,
734 + .04744, .02113, 7.28657, .49198, .12160,
735 + .00000, .35383, .49263,
736 + .04860, .02181, 8.41798, .52752, .15751,
737 + .00000, .39023, .52823 /
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 + .04961, .02240, 9.40782, .56011, .18855,
740 + .00000, .42355, .56087,
741 + .05058, .02298, 10.41546, .59312, .22136,
742 + .00000, .45725, .59394,
743 + .05136, .02344, 11.22074, .62026, .24766,
744 + .00000, .48493, .62112,
745 + .05302, .02442, 12.99297, .68118, .30768,
746 + .00020, .54698, .68213,
747 + .05446, .02527, 14.55503, .73680, .36279,
748 + .04647, .60355, .73784,
749 + .05607, .02623, 16.32593, .80217, .42767,
750 + .12794, .66996, .80330,
751 + .05775, .02723, 18.21630, .87371, .49877,
752 + .20302, .74254, .87494,
753 + .05928, .02813, 19.93140, .94087, .56478,
754 + .27035, .81062, .94219 /
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 + .06082, .02905, 21.69225, 1.01123, .63444,
757 + .34322, .88190, 1.01264,
758 + .06211, .02981, 23.18109, 1.07169, .69479,
759 + .40723, .94311, 1.07319,
760 + .06367, .03074, 24.97740, 1.14672, .76930,
761 + .48463, 1.01901, 1.14830,
762 + .06505, .03156, 26.55744, 1.21452, .83649,
763 + .55397, 1.08758, 1.21620,
764 + .06632, .03231, 28.03186, 1.27857, .90055,
765 + .62116, 1.15232, 1.28032,
766 + .06793, .03327, 29.86911, 1.36087, .98237,
767 + .70559, 1.23547, 1.36273,
768 + .06944, .03416, 31.58462, 1.43971, 1.06083,
769 + .78655, 1.31509, 1.44166,
770 + .07087, .03501, 33.20261, 1.51538, 1.13656,
771 + .86526, 1.39148, 1.51742 /
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 + .07229, .03585, 34.77925, 1.59142, 1.21229,
774 + .94311, 1.46823, 1.59355,
775 + .07368, .03668, 36.31631, 1.66702, 1.28783,
776 + 1.02108, 1.54452, 1.66925,
777 + .07500, .03746, 37.76157, 1.73958, 1.36045,
778 + 1.09604, 1.61771, 1.74188,
779 + .07624, .03820, 39.08999, 1.80805, 1.42882,
780 + 1.16629, 1.68677, 1.81044,
781 + .07749, .03894, 40.42842, 1.87802, 1.49897,
782 + 1.23868, 1.75733, 1.88050,
783 + .07872, .03967, 41.70337, 1.94658, 1.56748,
784 + 1.30898, 1.82645, 1.94913,
785 + .07989, .04036, 42.91830, 2.01278, 1.63389,
786 + 1.37738, 1.89318, 2.01541,
787 + .08100, .04102, 44.03553, 2.07518, 1.69637,
788 + 1.44152, 1.95608, 2.07789 /
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 + .08212, .04168, 45.15203, 2.13860, 1.75994,
791 + 1.50681, 2.02000, 2.14138,
792 + .08323, .04234, 46.24319, 2.20160, 1.82320,
793 + 1.57187, 2.08348, 2.20445,
794 + .08428, .04296, 47.25057, 2.26126, 1.88296,
795 + 1.63307, 2.14359, 2.26418,
796 + .08528, .04355, 48.21991, 2.31898, 1.94106,
797 + 1.69291, 2.20175, 2.32198,
798 + .08629, .04415, 49.15062, 2.37622, 1.99841,
799 + 1.75157, 2.25942, 2.37928 /
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 + .04411, .01893, 1.33051, .29955, .00000,
802 + .00000, .16212, .29981,
803 + .04536, .01967, 2.02308, .31917, .00000,
804 + .00000, .18265, .31950,
805 + .04723, .02078, 3.19155, .35201, .00035,
806 + .00000, .21682, .35244,
807 + .04860, .02160, 4.10982, .37891, .02339,
808 + .00000, .24465, .37942,
809 + .05005, .02246, 5.14352, .40981, .05941,
810 + .00000, .27651, .41040,
811 + .05131, .02321, 6.06715, .43864, .08646,
812 + .00000, .30616, .43931,
813 + .05251, .02393, 6.98706, .46801, .11472,
814 + .00000, .33629, .46875,
815 + .05380, .02470, 8.02765, .50112, .14819,
816 + .00000, .37019, .50193 /
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 + .05491, .02537, 8.93326, .53132, .17699,
819 + .00000, .40106, .53221,
820 + .05599, .02601, 9.85107, .56183, .20735,
821 + .00000, .43221, .56278,
822 + .05685, .02653, 10.58163, .58683, .23161,
823 + .00000, .45771, .58783,
824 + .05868, .02762, 12.18073, .64273, .28675,
825 + .00019, .51465, .64385,
826 + .06027, .02857, 13.58040, .69354, .33714,
827 + .04257, .56634, .69475,
828 + .06205, .02964, 15.15659, .75298, .39621,
829 + .11701, .62674, .75430,
830 + .06390, .03075, 16.82882, .81772, .46065,
831 + .18523, .69245, .81916,
832 + .06558, .03176, 18.33632, .87820, .52018,
833 + .24611, .75379, .87976 /
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 + .06728, .03277, 19.87573, .94133, .58276,
836 + .31177, .81776, .94299,
837 + .06869, .03362, 21.17130, .99539, .63681,
838 + .36925, .87251, .99714,
839 + .07040, .03464, 22.72645, 1.06222, .70328,
840 + .43849, .94016, 1.06409,
841 + .07192, .03555, 24.08728, 1.12239, .76301,
842 + .50029, 1.00104, 1.12436,
843 + .07331, .03638, 25.35230, 1.17908, .81980,
844 + .56004, 1.05837, 1.18113,
845 + .07507, .03744, 26.92054, 1.25165, .89207,
846 + .63481, 1.13173, 1.25382,
847 + .07673, .03843, 28.37736, 1.32092, .96113,
848 + .70627, 1.20173, 1.32321,
849 + .07829, .03936, 29.74560, 1.38720, 1.02759,
850 + .77555, 1.26869, 1.38960 /
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 + .07984, .04029, 31.07210, 1.45358, 1.09383,
853 + .84383, 1.33574, 1.45608,
854 + .08136, .04119, 32.36003, 1.51940, 1.15971,
855 + .91202, 1.40219, 1.52201,
856 + .08280, .04205, 33.56620, 1.58239, 1.22287,
857 + .97742, 1.46577, 1.58509,
858 + .08415, .04286, 34.66984, 1.64165, 1.28217,
859 + 1.03852, 1.52559, 1.64445,
860 + .08551, .04367, 35.77827, 1.70208, 1.34288,
861 + 1.10135, 1.58657, 1.70498,
862 + .08685, .04447, 36.82911, 1.76112, 1.40201,
863 + 1.16219, 1.64614, 1.76410,
864 + .08812, .04522, 37.82752, 1.81801, 1.45920,
865 + 1.22128, 1.70353, 1.82108,
866 + .08933, .04594, 38.74189, 1.87150, 1.51287,
867 + 1.27653, 1.75749, 1.87466 /
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 + .09054, .04666, 39.65287, 1.92575, 1.56738,
870 + 1.33267, 1.81220, 1.92900,
871 + .09174, .04737, 40.54023, 1.97953, 1.62150,
872 + 1.38851, 1.86644, 1.98286,
873 + .09288, .04805, 41.35570, 2.03033, 1.67251,
874 + 1.44090, 1.91767, 2.03375,
875 + .09397, .04870, 42.13911, 2.07943, 1.72204,
876 + 1.49208, 1.96718, 2.08292,
877 + .09506, .04934, 42.88732, 2.12797, 1.77080,
878 + 1.54209, 2.01613, 2.13154 /
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 + .06070, .02832, 1.53654, .25976, .00000,
881 + .00000, .14123, .26057,
882 + .06244, .02939, 2.13977, .27721, .00000,
883 + .00000, .15941, .27814,
884 + .06502, .03101, 3.12642, .30572, .00031,
885 + .00000, .18897, .30683,
886 + .06692, .03218, 3.87929, .32847, .01984,
887 + .00000, .21247, .32970,
888 + .06891, .03342, 4.70568, .35411, .05002,
889 + .00000, .23890, .35549,
890 + .07064, .03449, 5.42890, .37757, .07215,
891 + .00000, .26302, .37907,
892 + .07229, .03551, 6.13529, .40111, .09492,
893 + .00000, .28717, .40272,
894 + .07405, .03661, 6.91979, .42731, .12156,
895 + .00000, .31402, .42905 /
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 + .07557, .03755, 7.59088, .45084, .14412,
898 + .00000, .33810, .45269,
899 + .07704, .03846, 8.26105, .47439, .16768,
900 + .00000, .36216, .47634,
901 + .07821, .03918, 8.78753, .49346, .18630,
902 + .00000, .38165, .49550,
903 + .08070, .04071, 9.91901, .53559, .22811,
904 + .00016, .42463, .53781,
905 + .08284, .04203, 10.88610, .57329, .26573,
906 + .03202, .46305, .57566,
907 + .08523, .04350, 11.95036, .61672, .30917,
908 + .08753, .50728, .61927,
909 + .08772, .04503, 13.05641, .66329, .35584,
910 + .13748, .55466, .66603,
911 + .08997, .04641, 14.03198, .70612, .39829,
912 + .18136, .59820, .70902 /
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 + .09224, .04779, 15.01009, .75023, .44234,
915 + .22813, .64302, .75330,
916 + .09412, .04894, 15.82025, .78758, .47998,
917 + .26863, .68095, .79080,
918 + .09639, .05033, 16.77553, .83318, .52569,
919 + .31680, .72724, .83657,
920 + .09839, .05154, 17.59646, .87372, .56626,
921 + .35927, .76838, .87726,
922 + .10023, .05266, 18.34969, .91156, .60450,
923 + .39998, .80677, .91524,
924 + .10254, .05406, 19.26638, .95942, .65256,
925 + .45031, .85530, .96328,
926 + .10471, .05538, 20.10273, 1.00456, .69796,
927 + .49785, .90106, 1.00858,
928 + .10674, .05660, 20.87687, 1.04732, .74123,
929 + .54352, .94440, 1.05149 /
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 + .10876, .05782, 21.61347, 1.08964, .78386,
932 + .58800, .98729, 1.09397,
933 + .11073, .05901, 22.31812, 1.13121, .82587,
934 + .63202, 1.02941, 1.13569,
935 + .11260, .06013, 22.96851, 1.17061, .86577,
936 + .67387, 1.06933, 1.17524,
937 + .11434, .06117, 23.55357, 1.20732, .90287,
938 + .71258, 1.10652, 1.21208,
939 + .11610, .06222, 24.13457, 1.24447, .94059,
940 + .75213, 1.14415, 1.24937,
941 + .11781, .06325, 24.67547, 1.28041, .97696,
942 + .79003, 1.18055, 1.28544,
943 + .11944, .06422, 25.18403, 1.31480, 1.01191,
944 + .82662, 1.21538, 1.31996,
945 + .12097, .06513, 25.64209, 1.34686, 1.04443,
946 + .86054, 1.24785, 1.35213 /
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 + .12252, .06605, 26.09297, 1.37914, 1.07723,
949 + .89477, 1.28054, 1.38453,
950 + .12404, .06696, 26.52685, 1.41091, 1.10958,
951 + .92860, 1.31272, 1.41643,
952 + .12549, .06781, 26.91854, 1.44068, 1.13982,
953 + .96008, 1.34286, 1.44630,
954 + .12686, .06863, 27.29291, 1.46931, 1.16906,
955 + .99071, 1.37186, 1.47505,
956 + .12824, .06944, 27.64234, 1.49736, 1.19757,
957 + 1.02036, 1.40026, 1.50320 /
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 + .08461, .04344, 1.82056, .23007, .00000,
960 + .00000, .12538, .23188,
961 + .08702, .04497, 2.32752, .24524, .00000,
962 + .00000, .14115, .24725,
963 + .09061, .04725, 3.12453, .26938, .00028,
964 + .00000, .16618, .27168,
965 + .09322, .04890, 3.71257, .28810, .01653,
966 + .00000, .18555, .29063,
967 + .09596, .05063, 4.34013, .30878, .04132,
968 + .00000, .20689, .31153,
969 + .09832, .05211, 4.87716, .32729, .05900,
970 + .00000, .22597, .33024,
971 + .10057, .05352, 5.39036, .34555, .07692,
972 + .00000, .24475, .34868,
973 + .10296, .05502, 5.94854, .36559, .09756,
974 + .00000, .26535, .36892 /
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 + .10502, .05630, 6.41700, .38327, .11474,
977 + .00000, .28351, .38678,
978 + .10702, .05754, 6.87694, .40077, .13248,
979 + .00000, .30147, .40445,
980 + .10858, .05852, 7.23291, .41478, .14633,
981 + .00000, .31583, .41859,
982 + .11192, .06058, 7.98152, .44527, .17699,
983 + .00014, .34707, .44936,
984 + .11479, .06235, 8.60308, .47206, .20410,
985 + .02336, .37450, .47639,
986 + .11797, .06431, 9.26777, .50240, .23487,
987 + .06345, .40555, .50700,
988 + .12127, .06633, 9.94209, .53436, .26736,
989 + .09879, .43824, .53924,
990 + .12423, .06814, 10.52099, .56321, .29638,
991 + .12930, .46773, .56834 /
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 + .12719, .06994, 11.08854, .59248, .32606,
994 + .16137, .49764, .59786,
995 + .12965, .07143, 11.54952, .61694, .35110,
996 + .18880, .52263, .62253,
997 + .13260, .07321, 12.08064, .64636, .38109,
998 + .22097, .55269, .65221,
999 + .13518, .07477, 12.52652, .67215, .40732,
1000 + .24894, .57903, .67821,
1001 + .13755, .07619, 12.92902, .69596, .43180,
1002 + .27550, .60334, .70222,
1003 + .14052, .07797, 13.40651, .72563, .46214,
1004 + .30787, .63364, .73214,
1005 + .14328, .07962, 13.83179, .75322, .49041,
1006 + .33805, .66182, .75997,
1007 + .14587, .08115, 14.21803, .77906, .51706,
1008 + .36673, .68820, .78602 /
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 + .14842, .08266, 14.57568, .80427, .54296,
1011 + .39430, .71396, .81146,
1012 + .15090, .08413, 14.91077, .82875, .56821,
1013 + .42130, .73896, .83614,
1014 + .15323, .08550, 15.21367, .85170, .59194,
1015 + .44671, .76240, .85929,
1016 + .15541, .08678, 15.47886, .87282, .61376,
1017 + .46995, .78398, .88060,
1018 + .15759, .08806, 15.73799, .89401, .63575,
1019 + .49351, .80563, .90197,
1020 + .15972, .08930, 15.97202, .91424, .65670,
1021 + .51583, .82631, .92238,
1022 + .16173, .09047, 16.18871, .93345, .67669,
1023 + .53722, .84594, .94176,
1024 + .16361, .09157, 16.37843, .95115, .69510,
1025 + .55685, .86405, .95962 /
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 + .16551, .09266, 16.56159, .96883, .71351,
1028 + .57652, .88212, .97746,
1029 + .16737, .09374, 16.73425, .98608, .73153,
1030 + .59581, .89977, .99487,
1031 + .16912, .09475, 16.88487, 1.00206, .74820,
1032 + .61357, .91612, 1.01099,
1033 + .17079, .09571, 17.02805, 1.01736, .76426,
1034 + .63079, .93178, 1.02643,
1035 + .17246, .09666, 17.15533, 1.03215, .77972,
1036 + .64727, .94691, 1.04136 /
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 + .10358, .05625, 2.01121, .21627, .00000,
1039 + .00000, .11799, .21919,
1040 + .10650, .05810, 2.45428, .22998, .00000,
1041 + .00000, .13227, .23315,
1042 + .11082, .06083, 3.13380, .25143, .00026,
1043 + .00000, .15458, .25500,
1044 + .11395, .06280, 3.62443, .26779, .01464,
1045 + .00000, .17156, .27164,
1046 + .11724, .06486, 4.13860, .28560, .03639,
1047 + .00000, .19001, .28975,
1048 + .12005, .06662, 4.57251, .30135, .05165,
1049 + .00000, .20631, .30575,
1050 + .12273, .06828, 4.98138, .31669, .06694,
1051 + .00000, .22217, .32134,
1052 + .12558, .07004, 5.42009, .33339, .08439,
1053 + .00000, .23942, .33829 /
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 + .12802, .07155, 5.78371, .34796, .09875,
1056 + .00000, .25446, .35308,
1057 + .13037, .07299, 6.13672, .36227, .11348,
1058 + .00000, .26922, .36761,
1059 + .13222, .07413, 6.40719, .37363, .12488,
1060 + .00000, .28093, .37914,
1061 + .13614, .07653, 6.96739, .39814, .14989,
1062 + .00012, .30619, .40400,
1063 + .13950, .07857, 7.42296, .41942, .17175,
1064 + .01905, .32811, .42558,
1065 + .14322, .08082, 7.90017, .44325, .19630,
1066 + .05152, .35265, .44975,
1067 + .14705, .08313, 8.37601, .46805, .22192,
1068 + .07977, .37818, .47490,
1069 + .15048, .08518, 8.77665, .49016, .24454,
1070 + .10388, .40094, .49731 /
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 + .15390, .08723, 9.16275, .51236, .26745,
1073 + .12900, .42379, .51983,
1074 + .15673, .08890, 9.47184, .53076, .28663,
1075 + .15033, .44273, .53848,
1076 + .16011, .09091, 9.82198, .55267, .30937,
1077 + .17509, .46528, .56069,
1078 + .16306, .09264, 10.11029, .57168, .32908,
1079 + .19644, .48485, .57996,
1080 + .16575, .09423, 10.36735, .58911, .34736,
1081 + .21659, .50280, .59763,
1082 + .16912, .09619, 10.66605, .61060, .36979,
1083 + .24092, .52494, .61942,
1084 + .17225, .09801, 10.92659, .63039, .39051,
1085 + .26341, .54533, .63949,
1086 + .17516, .09969, 11.15944, .64878, .40990,
1087 + .28464, .56428, .65814 /
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 + .17802, .10134, 11.36950, .66654, .42857,
1090 + .30487, .58260, .67615,
1091 + .18079, .10294, 11.56267, .68364, .44664,
1092 + .32455, .60024, .69350,
1093 + .18340, .10443, 11.73394, .69956, .46351,
1094 + .34294, .61667, .70964,
1095 + .18582, .10580, 11.87995, .71407, .47888,
1096 + .35964, .63165, .72437,
1097 + .18824, .10718, 12.02053, .72854, .49431,
1098 + .37648, .64660, .73905,
1099 + .19058, .10850, 12.14318, .74223, .50888,
1100 + .39232, .66075, .75294,
1101 + .19280, .10975, 12.25498, .75515, .52271,
1102 + .40742, .67411, .76605,
1103 + .19487, .11091, 12.34954, .76695, .53535,
1104 + .42119, .68633, .77803 /
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 + .19694, .11207, 12.43875, .77866, .54793,
1107 + .43491, .69846, .78992,
1108 + .19897, .11321, 12.52067, .79002, .56018,
1109 + .44830, .71023, .80145,
1110 + .20088, .11427, 12.58862, .80045, .57142,
1111 + .46055, .72104, .81205,
1112 + .20270, .11528, 12.65299, .81040, .58222,
1113 + .47240, .73137, .82216,
1114 + .20449, .11627, 12.70597, .81992, .59252,
1115 + .48364, .74125, .83183 /
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 + .12014, .06776, 2.14863, .20786, .00000,
1118 + .00000, .11346, .21195,
1119 + .12346, .06985, 2.54254, .22042, .00000,
1120 + .00000, .12661, .22483,
1121 + .12838, .07291, 3.13549, .23986, .00024,
1122 + .00000, .14691, .24473,
1123 + .13193, .07512, 3.55645, .25448, .01329,
1124 + .00000, .16216, .25969,
1125 + .13565, .07742, 3.99143, .27025, .03290,
1126 + .00000, .17858, .27582,
1127 + .13882, .07936, 4.35460, .28405, .04649,
1128 + .00000, .19294, .28992,
1129 + .14183, .08121, 4.69311, .29738, .05999,
1130 + .00000, .20680, .30354,
1131 + .14503, .08315, 5.05259, .31179, .07529,
1132 + .00000, .22178, .31825 /
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 + .14776, .08481, 5.34758, .32425, .08777,
1135 + .00000, .23472, .33098,
1136 + .15039, .08640, 5.63148, .33643, .10051,
1137 + .00000, .24736, .34340,
1138 + .15246, .08764, 5.84726, .34603, .11031,
1139 + .00000, .25733, .35320,
1140 + .15682, .09026, 6.28863, .36661, .13166,
1141 + .00011, .27868, .37419,
1142 + .16055, .09248, 6.64124, .38431, .15016,
1143 + .01627, .29705, .39224,
1144 + .16467, .09492, 7.00394, .40396, .17076,
1145 + .04388, .31743, .41227,
1146 + .16889, .09741, 7.36047, .42422, .19207,
1147 + .06767, .33845, .43293,
1148 + .17265, .09962, 7.65546, .44210, .21071,
1149 + .08778, .35701, .45117 /
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 + .17640, .10180, 7.93563, .45992, .22946,
1152 + .10861, .37550, .46933,
1153 + .17949, .10359, 8.15709, .47458, .24505,
1154 + .12619, .39073, .48428,
1155 + .18317, .10571, 8.40387, .49190, .26341,
1156 + .14646, .40872, .50194,
1157 + .18637, .10755, 8.60344, .50681, .27921,
1158 + .16382, .42422, .51714,
1159 + .18929, .10922, 8.77938, .52039, .29378,
1160 + .18012, .43835, .53099,
1161 + .19292, .11128, 8.97943, .53701, .31154,
1162 + .19967, .45564, .54794,
1163 + .19629, .11318, 9.15027, .55219, .32783,
1164 + .21763, .47145, .56342,
1165 + .19941, .11493, 9.30051, .56620, .34299,
1166 + .23449, .48605, .57771 /
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 + .20246, .11664, 9.43216, .57962, .35747,
1169 + .25044, .50005, .59140,
1170 + .20542, .11829, 9.55070, .59245, .37142,
1171 + .26589, .51345, .60450,
1172 + .20819, .11982, 9.65343, .60431, .38436,
1173 + .28025, .52585, .61661,
1174 + .21075, .12123, 9.73797, .61505, .39609,
1175 + .29321, .53709, .62757,
1176 + .21331, .12263, 9.81789, .62569, .40779,
1177 + .30623, .54824, .63844,
1178 + .21578, .12398, 9.88428, .63568, .41879,
1179 + .31841, .55871, .64864,
1180 + .21811, .12525, 9.94354, .64506, .42918,
1181 + .32998, .56856, .65823,
1182 + .22027, .12642, 9.99095, .65356, .43862,
1183 + .34046, .57749, .66692 /
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 + .22244, .12759, 10.03399, .66195, .44797,
1186 + .35088, .58632, .67550,
1187 + .22456, .12873, 10.07176, .67004, .45703,
1188 + .36100, .59485, .68377,
1189 + .22655, .12979, 10.10008, .67741, .46530,
1190 + .37020, .60262, .69131,
1191 + .22844, .13080, 10.12684, .68443, .47322,
1192 + .37909, .61003, .69849,
1193 + .23030, .13179, 10.14482, .69106, .48073,
1194 + .38747, .61705, .70528 /
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 + .13518, .07835, 2.24898, .20186, .00000,
1197 + .00000, .11026, .20717,
1198 + .13885, .08062, 2.60229, .21347, .00000,
1199 + .00000, .12247, .21915,
1200 + .14426, .08394, 3.12629, .23125, .00023,
1201 + .00000, .14115, .23747,
1202 + .14816, .08632, 3.49312, .24449, .01223,
1203 + .00000, .15505, .25110,
1204 + .15223, .08879, 3.86778, .25865, .03018,
1205 + .00000, .16989, .26566,
1206 + .15570, .09088, 4.17775, .27094, .04249,
1207 + .00000, .18277, .27829,
1208 + .15899, .09286, 4.46408, .28274, .05464,
1209 + .00000, .19512, .29041,
1210 + .16246, .09493, 4.76553, .29542, .06833,
1211 + .00000, .20839, .30343 /
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 + .16543, .09670, 5.01078, .30631, .07943,
1214 + .00000, .21978, .31461,
1215 + .16828, .09839, 5.24510, .31690, .09071,
1216 + .00000, .23085, .32548,
1217 + .17052, .09970, 5.42195, .32521, .09933,
1218 + .00000, .23954, .33401,
1219 + .17524, .10247, 5.77974, .34290, .11803,
1220 + .00010, .25805, .35216,
1221 + .17925, .10481, 6.06091, .35801, .13412,
1222 + .01428, .27386, .36766,
1223 + .18367, .10737, 6.34508, .37465, .15191,
1224 + .03840, .29127, .38472,
1225 + .18819, .10998, 6.62086, .39169, .17018,
1226 + .05903, .30910, .40218,
1227 + .19220, .11227, 6.84524, .40659, .18605,
1228 + .07635, .32472, .41747 /
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 + .19620, .11453, 7.05539, .42134, .20192,
1231 + .09419, .34018, .43260,
1232 + .19947, .11638, 7.21947, .43341, .21504,
1233 + .10917, .35284, .44497,
1234 + .20337, .11857, 7.39921, .44756, .23040,
1235 + .12635, .36770, .45949,
1236 + .20675, .12045, 7.54186, .45966, .24355,
1237 + .14098, .38042, .47189,
1238 + .20982, .12216, 7.66621, .47063, .25562,
1239 + .15467, .39196, .48315,
1240 + .21363, .12426, 7.80416, .48395, .27024,
1241 + .17098, .40600, .49682,
1242 + .21715, .12619, 7.91912, .49603, .28357,
1243 + .18590, .41874, .50922,
1244 + .22041, .12796, 8.01833, .50710, .29592,
1245 + .19985, .43044, .52059 /
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 + .22359, .12968, 8.10203, .51763, .30764,
1248 + .21296, .44158, .53140,
1249 + .22666, .13134, 8.17538, .52765, .31888,
1250 + .22561, .45219, .54169,
1251 + .22953, .13287, 8.23703, .53685, .32926,
1252 + .23733, .46196, .55115,
1253 + .23217, .13428, 8.28516, .54511, .33862,
1254 + .24785, .47075, .55964,
1255 + .23480, .13567, 8.32940, .55327, .34792,
1256 + .25838, .47943, .56803,
1257 + .23734, .13700, 8.36298, .56085, .35661,
1258 + .26818, .48753, .57584,
1259 + .23973, .13826, 8.39176, .56795, .36479,
1260 + .27746, .49512, .58314,
1261 + .24194, .13941, 8.41205, .57433, .37219,
1262 + .28584, .50196, .58972 /
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 + .24415, .14056, 8.42870, .58060, .37949,
1265 + .29413, .50869, .59617,
1266 + .24631, .14167, 8.44155, .58661, .38653,
1267 + .30217, .51515, .60237,
1268 + .24832, .14270, 8.44791, .59203, .39293,
1269 + .30944, .52100, .60796,
1270 + .25024, .14368, 8.45391, .59719, .39905,
1271 + .31645, .52657, .61328,
1272 + .25211, .14464, 8.45275, .60201, .40480,
1273 + .32302, .53179, .61825 /
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 + .16239, .09755, 2.37496, .19330, .00000,
1276 + .00000, .10579, .20118,
1277 + .16661, .10007, 2.66345, .20333, .00000,
1278 + .00000, .11649, .21165,
1279 + .17280, .10373, 3.08149, .21845, .00021,
1280 + .00000, .13261, .22742,
1281 + .17725, .10634, 3.36736, .22954, .01060,
1282 + .00000, .14441, .23897,
1283 + .18188, .10904, 3.65364, .24124, .02603,
1284 + .00000, .15687, .25114,
1285 + .18580, .11131, 3.88700, .25126, .03644,
1286 + .00000, .16754, .26157,
1287 + .18950, .11344, 4.09930, .26078, .04662,
1288 + .00000, .17767, .27146,
1289 + .19340, .11568, 4.31967, .27092, .05799,
1290 + .00000, .18846, .28199 /
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 + .19671, .11757, 4.49621, .27953, .06711,
1293 + .00000, .19762, .29093,
1294 + .19989, .11937, 4.66282, .28783, .07630,
1295 + .00000, .20646, .29956,
1296 + .20238, .12076, 4.78699, .29430, .08328,
1297 + .00000, .21335, .30627,
1298 + .20760, .12368, 5.03298, .30793, .09829,
1299 + .00009, .22788, .32042,
1300 + .21201, .12614, 5.22021, .31942, .11106,
1301 + .01151, .24014, .33234,
1302 + .21685, .12881, 5.40301, .33192, .12502,
1303 + .03085, .25349, .34531,
1304 + .22178, .13150, 5.57581, .34455, .13921,
1305 + .04718, .26700, .35841,
1306 + .22612, .13386, 5.71145, .35544, .15138,
1307 + .06073, .27868, .36972 /
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 + .23043, .13617, 5.83491, .36609, .16344,
1310 + .07458, .29012, .38077,
1311 + .23394, .13804, 5.92878, .37471, .17333,
1312 + .08613, .29940, .38973,
1313 + .23809, .14024, 6.02732, .38471, .18479,
1314 + .09925, .31017, .40011,
1315 + .24167, .14213, 6.10188, .39314, .19451,
1316 + .11033, .31929, .40887,
1317 + .24492, .14382, 6.16508, .40073, .20337,
1318 + .12064, .32750, .41675,
1319 + .24892, .14590, 6.23057, .40981, .21400,
1320 + .13281, .33736, .42619,
1321 + .25260, .14778, 6.28107, .41793, .22359,
1322 + .14384, .34621, .43464,
1323 + .25599, .14951, 6.32207, .42530, .23242,
1324 + .15409, .35427, .44231 /
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 + .25928, .15117, 6.35208, .43220, .24071,
1327 + .16364, .36184, .44950,
1328 + .26243, .15275, 6.37525, .43869, .24859,
1329 + .17279, .36898, .45626,
1330 + .26536, .15421, 6.39162, .44457, .25582,
1331 + .18121, .37548, .46240,
1332 + .26805, .15554, 6.40014, .44978, .26227,
1333 + .18871, .38126, .46783,
1334 + .27072, .15685, 6.40593, .45488, .26865,
1335 + .19618, .38693, .47315,
1336 + .27327, .15809, 6.40491, .45953, .27454,
1337 + .20306, .39215, .47802,
1338 + .27567, .15925, 6.40195, .46385, .28007,
1339 + .20956, .39700, .48253,
1340 + .27788, .16031, 6.39452, .46767, .28501,
1341 + .21539, .40131, .48653 /
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 + .28008, .16136, 6.38459, .47138, .28986,
1344 + .22112, .40552, .49042,
1345 + .28221, .16237, 6.37244, .47489, .29451,
1346 + .22664, .40952, .49410,
1347 + .28420, .16330, 6.35691, .47800, .29868,
1348 + .23160, .41309, .49737,
1349 + .28608, .16418, 6.34231, .48095, .30267,
1350 + .23637, .41648, .50047,
1351 + .28790, .16503, 6.32287, .48362, .30637,
1352 + .24079, .41960, .50328 /
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 + .19875, .12286, 2.44664, .18414, .00000,
1355 + .00000, .10123, .19604,
1356 + .20356, .12557, 2.66363, .19230, .00000,
1357 + .00000, .11016, .20471,
1358 + .21058, .12948, 2.96968, .20439, .00019,
1359 + .00000, .12340, .21754,
1360 + .21559, .13224, 3.17280, .21309, .00884,
1361 + .00000, .13293, .22677,
1362 + .22076, .13507, 3.37114, .22215, .02157,
1363 + .00000, .14285, .23636,
1364 + .22513, .13743, 3.52981, .22979, .03003,
1365 + .00000, .15124, .24445,
1366 + .22923, .13964, 3.67130, .23695, .03822,
1367 + .00000, .15911, .25203,
1368 + .23353, .14194, 3.81556, .24450, .04726,
1369 + .00000, .16740, .26000 /
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 + .23717, .14387, 3.92858, .25082, .05443,
1372 + .00000, .17436, .26669,
1373 + .24065, .14570, 4.03357, .25687, .06161,
1374 + .00000, .18102, .27308,
1375 + .24334, .14711, 4.11040, .26153, .06701,
1376 + .00000, .18616, .27800,
1377 + .24899, .15004, 4.25778, .27124, .07852,
1378 + .00008, .19689, .28826,
1379 + .25373, .15248, 4.36400, .27929, .08819,
1380 + .00890, .20582, .29676,
1381 + .25889, .15511, 4.46121, .28791, .09864,
1382 + .02374, .21541, .30588,
1383 + .26411, .15774, 4.54917, .29648, .10912,
1384 + .03612, .22497, .31492,
1385 + .26867, .16000, 4.61303, .30373, .11798,
1386 + .04627, .23311, .32259 /
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 + .27315, .16220, 4.66742, .31070, .12668,
1389 + .05654, .24097, .32996,
1390 + .27679, .16398, 4.70625, .31627, .13375,
1391 + .06503, .24727, .33586,
1392 + .28106, .16604, 4.74276, .32261, .14184,
1393 + .07459, .25448, .34257,
1394 + .28471, .16777, 4.76619, .32787, .14863,
1395 + .08258, .26050, .34814,
1396 + .28800, .16933, 4.78407, .33254, .15477,
1397 + .08997, .26587, .35309,
1398 + .29203, .17120, 4.79681, .33801, .16205,
1399 + .09860, .27220, .35889,
1400 + .29569, .17289, 4.80152, .34280, .16855,
1401 + .10635, .27780, .36398,
1402 + .29904, .17442, 4.80192, .34708, .17447,
1403 + .11350, .28283, .36853 /
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 + .30227, .17587, 4.79526, .35099, .17996,
1406 + .12009, .28747, .37269,
1407 + .30534, .17724, 4.78492, .35458, .18514,
1408 + .12636, .29179, .37652,
1409 + .30817, .17848, 4.77176, .35779, .18984,
1410 + .13207, .29566, .37994,
1411 + .31075, .17960, 4.75504, .36054, .19398,
1412 + .13712, .29903, .38288,
1413 + .31329, .18069, 4.73670, .36319, .19805,
1414 + .14212, .30231, .38572,
1415 + .31570, .18170, 4.71466, .36553, .20176,
1416 + .14669, .30526, .38823,
1417 + .31795, .18264, 4.69271, .36766, .20521,
1418 + .15097, .30797, .39053,
1419 + .32001, .18349, 4.66916, .36948, .20826,
1420 + .15478, .31032, .39249 /
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 + .32203, .18432, 4.64406, .37121, .21123,
1423 + .15849, .31258, .39435,
1424 + .32399, .18512, 4.61812, .37280, .21405,
1425 + .16205, .31470, .39607,
1426 + .32579, .18583, 4.59121, .37414, .21654,
1427 + .16522, .31654, .39753,
1428 + .32749, .18651, 4.56600, .37541, .21892,
1429 + .16825, .31827, .39891,
1430 + .32913, .18714, 4.53768, .37646, .22108,
1431 + .17103, .31980, .40006 /
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 + .25246, .15866, 2.40079, .17211, .00000,
1434 + .00000, .09567, .19085,
1435 + .25784, .16137, 2.53834, .17793, .00000,
1436 + .00000, .10242, .19721,
1437 + .26560, .16525, 2.72533, .18638, .00016,
1438 + .00000, .11225, .20644,
1439 + .27109, .16795, 2.84365, .19232, .00682,
1440 + .00000, .11918, .21291,
1441 + .27672, .17069, 2.95449, .19839, .01654,
1442 + .00000, .12628, .21952,
1443 + .28141, .17295, 3.04045, .20342, .02289,
1444 + .00000, .13218, .22499,
1445 + .28579, .17503, 3.11462, .20805, .02895,
1446 + .00000, .13764, .23002,
1447 + .29036, .17718, 3.18814, .21286, .03558,
1448 + .00000, .14332, .23524 /
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 + .29418, .17896, 3.24319, .21681, .04076,
1451 + .00000, .14802, .23954,
1452 + .29782, .18063, 3.29290, .22054, .04591,
1453 + .00000, .15247, .24360,
1454 + .30061, .18190, 3.32787, .22337, .04975,
1455 + .00000, .15586, .24667,
1456 + .30642, .18452, 3.39007, .22917, .05783,
1457 + .00007, .16284, .25296,
1458 + .31125, .18666, 3.42847, .23387, .06452,
1459 + .00634, .16855, .25806,
1460 + .31643, .18894, 3.45619, .23878, .07165,
1461 + .01682, .17456, .26338,
1462 + .32162, .19115, 3.47680, .24353, .07870,
1463 + .02543, .18043, .26854,
1464 + .32608, .19302, 3.48570, .24741, .08457,
1465 + .03239, .18530, .27274 /
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 + .33041, .19480, 3.48853, .25103, .09024,
1468 + .03936, .18993, .27668,
1469 + .33389, .19621, 3.48716, .25386, .09481,
1470 + .04507, .19358, .27975,
1471 + .33792, .19780, 3.47935, .25696, .09996,
1472 + .05142, .19765, .28313,
1473 + .34132, .19912, 3.46750, .25944, .10422,
1474 + .05667, .20097, .28583,
1475 + .34435, .20028, 3.45479, .26160, .10804,
1476 + .06149, .20389, .28818,
1477 + .34800, .20163, 3.43313, .26399, .11250,
1478 + .06704, .20723, .29078,
1479 + .35127, .20281, 3.40894, .26599, .11641,
1480 + .07197, .21010, .29296,
1481 + .35423, .20386, 3.38442, .26770, .11994,
1482 + .07648, .21263, .29483 /
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 + .35702, .20481, 3.35636, .26914, .12316,
1485 + .08059, .21487, .29642,
1486 + .35964, .20568, 3.32712, .27040, .12615,
1487 + .08445, .21689, .29780,
1488 + .36203, .20645, 3.29791, .27145, .12884,
1489 + .08794, .21866, .29895,
1490 + .36416, .20711, 3.26835, .27225, .13116,
1491 + .09099, .22013, .29985,
1492 + .36625, .20774, 3.23820, .27298, .13342,
1493 + .09398, .22153, .30067,
1494 + .36816, .20829, 3.20662, .27353, .13544,
1495 + .09668, .22271, .30127,
1496 + .36994, .20880, 3.17641, .27399, .13730,
1497 + .09920, .22377, .30179,
1498 + .37153, .20922, 3.14663, .27429, .13891,
1499 + .10140, .22463, .30213 /
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 + .37308, .20962, 3.11622, .27452, .14046,
1502 + .10354, .22542, .30240,
1503 + .37456, .20998, 3.08583, .27467, .14191,
1504 + .10557, .22612, .30259,
1505 + .37588, .21028, 3.05588, .27470, .14316,
1506 + .10734, .22667, .30264,
1507 + .37713, .21057, 3.02791, .27474, .14435,
1508 + .10905, .22719, .30269,
1509 + .37829, .21080, 2.99836, .27462, .14539,
1510 + .11057, .22756, .30259 /
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 + .30062, .18868, 2.25780, .16126, .00000,
1513 + .00000, .09099, .18664,
1514 + .30618, .19117, 2.34512, .16537, .00000,
1515 + .00000, .09615, .19124,
1516 + .31417, .19468, 2.45966, .17125, .00014,
1517 + .00000, .10356, .19780,
1518 + .31974, .19709, 2.52820, .17530, .00544,
1519 + .00000, .10871, .20231,
1520 + .32541, .19951, 2.58920, .17937, .01313,
1521 + .00000, .11392, .20684,
1522 + .33011, .20147, 2.63477, .18269, .01810,
1523 + .00000, .11820, .21052,
1524 + .33446, .20324, 2.67224, .18568, .02280,
1525 + .00000, .12211, .21385,
1526 + .33896, .20506, 2.70797, .18875, .02790,
1527 + .00000, .12614, .21725 /
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 + .34267, .20654, 2.73283, .19124, .03186,
1530 + .00000, .12943, .21999,
1531 + .34618, .20791, 2.75424, .19356, .03577,
1532 + .00000, .13252, .22254,
1533 + .34888, .20895, 2.76808, .19528, .03866,
1534 + .00000, .13485, .22444,
1535 + .35441, .21103, 2.78847, .19875, .04470,
1536 + .00006, .13960, .22826,
1537 + .35895, .21270, 2.79485, .20149, .04966,
1538 + .00480, .14341, .23126,
1539 + .36377, .21441, 2.79099, .20427, .05488,
1540 + .01268, .14735, .23430,
1541 + .36851, .21605, 2.78202, .20686, .05999,
1542 + .01910, .15113, .23713,
1543 + .37251, .21737, 2.76764, .20887, .06420,
1544 + .02423, .15419, .23932 /
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 + .37635, .21858, 2.74951, .21067, .06822,
1547 + .02933, .15703, .24128,
1548 + .37940, .21952, 2.73234, .21201, .07144,
1549 + .03348, .15923, .24275,
1550 + .38287, .22053, 2.70779, .21341, .07503,
1551 + .03806, .16163, .24426,
1552 + .38575, .22132, 2.68317, .21443, .07796,
1553 + .04181, .16352, .24537,
1554 + .38829, .22199, 2.65976, .21528, .08057,
1555 + .04524, .16516, .24628,
1556 + .39129, .22272, 2.62694, .21611, .08357,
1557 + .04915, .16697, .24716,
1558 + .39390, .22331, 2.59408, .21670, .08618,
1559 + .05259, .16846, .24779,
1560 + .39623, .22380, 2.56253, .21714, .08851,
1561 + .05572, .16972, .24825 /
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 + .39836, .22420, 2.52905, .21739, .09061,
1564 + .05854, .17077, .24849,
1565 + .40032, .22453, 2.49560, .21752, .09253,
1566 + .06117, .17168, .24860,
1567 + .40207, .22478, 2.46337, .21756, .09423,
1568 + .06353, .17243, .24860,
1569 + .40358, .22495, 2.43200, .21745, .09568,
1570 + .06557, .17299, .24847,
1571 + .40504, .22508, 2.40053, .21730, .09708,
1572 + .06756, .17350, .24828,
1573 + .40633, .22515, 2.36864, .21702, .09831,
1574 + .06934, .17386, .24794,
1575 + .40751, .22519, 2.33849, .21672, .09943,
1576 + .07099, .17415, .24758,
1577 + .40851, .22517, 2.30945, .21635, .10038,
1578 + .07241, .17434, .24714 /
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 + .40947, .22513, 2.28016, .21593, .10127,
1581 + .07379, .17447, .24665,
1582 + .41035, .22506, 2.25126, .21546, .10210,
1583 + .07508, .17454, .24611,
1584 + .41110, .22495, 2.22330, .21493, .10280,
1585 + .07620, .17452, .24551,
1586 + .41180, .22484, 2.19726, .21444, .10346,
1587 + .07727, .17450, .24495,
1588 + .41239, .22467, 2.17030, .21385, .10401,
1589 + .07821, .17438, .24427 /
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 + .38529, .23616, 1.88760, .14072, .00000,
1592 + .00000, .08236, .17757,
1593 + .39048, .23785, 1.92153, .14260, .00000,
1594 + .00000, .08538, .17966,
1595 + .39780, .24013, 1.96177, .14520, .00011,
1596 + .00000, .08964, .18251,
1597 + .40280, .24160, 1.98137, .14692, .00368,
1598 + .00000, .09253, .18437,
1599 + .40778, .24301, 1.99505, .14858, .00883,
1600 + .00000, .09539, .18614,
1601 + .41181, .24408, 2.00312, .14986, .01212,
1602 + .00000, .09769, .18749,
1603 + .41546, .24500, 2.00747, .15097, .01520,
1604 + .00000, .09975, .18864,
1605 + .41918, .24591, 2.00990, .15207, .01851,
1606 + .00000, .10184, .18976 /
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 + .42217, .24657, 2.00873, .15289, .02104,
1609 + .00000, .10350, .19058,
1610 + .42496, .24716, 2.00625, .15363, .02353,
1611 + .00000, .10503, .19130,
1612 + .42705, .24757, 2.00268, .15414, .02535,
1613 + .00000, .10616, .19179,
1614 + .43123, .24830, 1.98983, .15509, .02912,
1615 + .00005, .10840, .19266,
1616 + .43453, .24879, 1.97232, .15575, .03217,
1617 + .00305, .11013, .19322,
1618 + .43791, .24919, 1.94665, .15630, .03534,
1619 + .00801, .11184, .19363,
1620 + .44108, .24944, 1.91809, .15669, .03840,
1621 + .01200, .11340, .19383,
1622 + .44361, .24951, 1.88962, .15683, .04086,
1623 + .01515, .11456, .19378 /
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 + .44591, .24946, 1.85957, .15684, .04319,
1626 + .01824, .11559, .19358,
1627 + .44766, .24934, 1.83401, .15676, .04503,
1628 + .02073, .11633, .19332,
1629 + .44952, .24910, 1.80164, .15652, .04704,
1630 + .02345, .11706, .19283,
1631 + .45091, .24877, 1.77202, .15620, .04866,
1632 + .02565, .11755, .19226,
1633 + .45208, .24843, 1.74491, .15585, .05008,
1634 + .02764, .11794, .19169,
1635 + .45330, .24789, 1.70946, .15528, .05168,
1636 + .02987, .11827, .19081,
1637 + .45424, .24728, 1.67570, .15463, .05304,
1638 + .03182, .11846, .18986,
1639 + .45499, .24665, 1.64423, .15396, .05424,
1640 + .03357, .11856, .18890 /
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 + .45552, .24593, 1.61225, .15320, .05527,
1643 + .03511, .11854, .18784,
1644 + .45591, .24518, 1.58110, .15239, .05621,
1645 + .03654, .11844, .18674,
1646 + .45616, .24441, 1.55176, .15158, .05702,
1647 + .03781, .11828, .18565,
1648 + .45624, .24364, 1.52397, .15076, .05769,
1649 + .03888, .11805, .18454,
1650 + .45625, .24284, 1.49645, .14991, .05833,
1651 + .03992, .11778, .18340,
1652 + .45611, .24199, 1.46924, .14900, .05885,
1653 + .04083, .11745, .18221,
1654 + .45594, .24117, 1.44380, .14813, .05932,
1655 + .04166, .11711, .18107,
1656 + .45566, .24035, 1.41972, .14727, .05970,
1657 + .04237, .11674, .17994 /
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 + .45531, .23950, 1.39571, .14637, .06005,
1660 + .04304, .11633, .17877,
1661 + .45491, .23863, 1.37228, .14548, .06035,
1662 + .04367, .11590, .17760,
1663 + .45443, .23777, 1.34995, .14458, .06059,
1664 + .04419, .11544, .17645,
1665 + .45397, .23696, 1.32925, .14374, .06082,
1666 + .04470, .11501, .17537,
1667 + .45338, .23609, 1.30817, .14284, .06098,
1668 + .04512, .11452, .17421 /
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 + .45752, .27097, 1.53342, .12157, .00000,
1671 + .00000, .07405, .16654,
1672 + .46166, .27159, 1.54576, .12220, .00000,
1673 + .00000, .07579, .16697,
1674 + .46733, .27230, 1.55733, .12300, .00009,
1675 + .00000, .07819, .16743,
1676 + .47105, .27263, 1.55913, .12348, .00265,
1677 + .00000, .07977, .16762,
1678 + .47466, .27283, 1.55643, .12388, .00634,
1679 + .00000, .08131, .16770,
1680 + .47746, .27287, 1.55192, .12413, .00868,
1681 + .00000, .08251, .16766,
1682 + .47990, .27279, 1.54558, .12428, .01085,
1683 + .00000, .08355, .16751,
1684 + .48232, .27264, 1.53760, .12439, .01317,
1685 + .00000, .08458, .16729 /
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 + .48415, .27239, 1.52866, .12441, .01494,
1688 + .00000, .08537, .16700,
1689 + .48580, .27211, 1.51926, .12439, .01666,
1690 + .00000, .08608, .16667,
1691 + .48697, .27182, 1.51086, .12433, .01792,
1692 + .00000, .08658, .16637,
1693 + .48918, .27109, 1.48955, .12411, .02049,
1694 + .00004, .08753, .16561,
1695 + .49075, .27034, 1.46699, .12382, .02255,
1696 + .00211, .08821, .16482,
1697 + .49217, .26938, 1.43796, .12338, .02468,
1698 + .00552, .08882, .16381,
1699 + .49329, .26823, 1.40713, .12281, .02669,
1700 + .00824, .08930, .16265,
1701 + .49392, .26703, 1.37786, .12216, .02830,
1702 + .01035, .08956, .16145 /
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 + .49431, .26572, 1.34790, .12142, .02979,
1705 + .01242, .08972, .16015,
1706 + .49447, .26459, 1.32297, .12077, .03096,
1707 + .01407, .08979, .15902,
1708 + .49437, .26312, 1.29223, .11991, .03222,
1709 + .01585, .08976, .15755,
1710 + .49405, .26174, 1.26473, .11907, .03321,
1711 + .01728, .08964, .15618,
1712 + .49367, .26045, 1.23984, .11827, .03407,
1713 + .01856, .08948, .15491,
1714 + .49292, .25869, 1.20794, .11719, .03503,
1715 + .01999, .08918, .15323,
1716 + .49200, .25698, 1.17806, .11611, .03582,
1717 + .02121, .08882, .15158,
1718 + .49102, .25535, 1.15052, .11509, .03650,
1719 + .02229, .08844, .15002 /
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 + .48982, .25364, 1.12293, .11400, .03708,
1722 + .02325, .08798, .14840,
1723 + .48853, .25193, 1.09634, .11291, .03758,
1724 + .02411, .08749, .14678,
1725 + .48720, .25030, 1.07154, .11186, .03801,
1726 + .02487, .08699, .14524,
1727 + .48579, .24871, 1.04829, .11084, .03835,
1728 + .02550, .08647, .14375,
1729 + .48434, .24710, 1.02542, .10982, .03866,
1730 + .02611, .08594, .14225,
1731 + .48277, .24547, 1.00305, .10877, .03890,
1732 + .02663, .08537, .14075,
1733 + .48124, .24392, .98224, .10777, .03910,
1734 + .02710, .08481, .13933,
1735 + .47968, .24242, .96272, .10681, .03926,
1736 + .02750, .08425, .13796 /
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 + .47806, .24090, .94337, .10583, .03939,
1739 + .02786, .08367, .13658,
1740 + .47641, .23939, .92459, .10487, .03949,
1741 + .02820, .08309, .13521,
1742 + .47474, .23792, .90683, .10393, .03956,
1743 + .02847, .08251, .13389,
1744 + .47318, .23654, .89041, .10305, .03962,
1745 + .02873, .08197, .13264,
1746 + .47147, .23510, .87383, .10213, .03963,
1747 + .02894, .08139, .13137 /
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 + .51877, .29595, 1.24365, .10430, .00000,
1750 + .00000, .06600, .15361,
1751 + .52140, .29544, 1.24826, .10425, .00000,
1752 + .00000, .06695, .15294,
1753 + .52480, .29446, 1.24999, .10408, .00007,
1754 + .00000, .06820, .15187,
1755 + .52683, .29359, 1.24617, .10390, .00201,
1756 + .00000, .06900, .15098,
1757 + .52864, .29254, 1.23867, .10365, .00479,
1758 + .00000, .06975, .14997,
1759 + .52989, .29150, 1.23061, .10336, .00654,
1760 + .00000, .07029, .14906,
1761 + .53081, .29043, 1.22138, .10304, .00816,
1762 + .00000, .07073, .14810,
1763 + .53161, .28923, 1.21070, .10267, .00988,
1764 + .00000, .07116, .14705 /
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 + .53206, .28807, 1.19992, .10227, .01118,
1767 + .00000, .07145, .14610,
1768 + .53236, .28691, 1.18900, .10188, .01244,
1769 + .00000, .07169, .14515,
1770 + .53244, .28597, 1.17964, .10154, .01335,
1771 + .00000, .07183, .14436,
1772 + .53235, .28383, 1.15720, .10077, .01521,
1773 + .00003, .07205, .14265,
1774 + .53196, .28189, 1.13478, .10004, .01669,
1775 + .00154, .07215, .14111,
1776 + .53119, .27962, 1.10699, .09915, .01819,
1777 + .00402, .07216, .13932,
1778 + .53003, .27716, 1.07786, .09817, .01960,
1779 + .00598, .07205, .13740,
1780 + .52862, .27480, 1.05067, .09719, .02071,
1781 + .00748, .07184, .13557 /
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 + .52695, .27236, 1.02316, .09616, .02172,
1784 + .00894, .07156, .13369,
1785 + .52542, .27032, 1.00047, .09528, .02251,
1786 + .01011, .07128, .13212,
1787 + .52331, .26776, .97280, .09418, .02334,
1788 + .01134, .07087, .13016,
1789 + .52124, .26544, .94829, .09315, .02399,
1790 + .01232, .07044, .12842,
1791 + .51927, .26330, .92624, .09221, .02455,
1792 + .01320, .07003, .12683,
1793 + .51651, .26052, .89826, .09096, .02514,
1794 + .01416, .06944, .12475,
1795 + .51374, .25787, .87227, .08977, .02562,
1796 + .01498, .06883, .12280,
1797 + .51105, .25538, .84848, .08864, .02603,
1798 + .01569, .06823, .12099 /
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 + .50816, .25286, .82488, .08749, .02636,
1801 + .01631, .06759, .11914,
1802 + .50524, .25037, .80226, .08636, .02664,
1803 + .01687, .06695, .11734,
1804 + .50241, .24800, .78129, .08529, .02687,
1805 + .01735, .06632, .11564,
1806 + .49961, .24573, .76178, .08425, .02703,
1807 + .01775, .06570, .11403,
1808 + .49678, .24347, .74268, .08322, .02718,
1809 + .01812, .06507, .11243,
1810 + .49386, .24122, .72411, .08219, .02728,
1811 + .01843, .06442, .11085,
1812 + .49107, .23909, .70691, .08122, .02736,
1813 + .01872, .06380, .10936,
1814 + .48835, .23706, .69086, .08029, .02740,
1815 + .01894, .06319, .10795 /
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 + .48558, .23501, .67503, .07935, .02743,
1818 + .01915, .06258, .10653,
1819 + .48280, .23299, .65974, .07843, .02744,
1820 + .01934, .06197, .10515,
1821 + .48006, .23105, .64536, .07755, .02743,
1822 + .01949, .06137, .10382,
1823 + .47750, .22924, .63210, .07673, .02741,
1824 + .01963, .06081, .10258,
1825 + .47480, .22737, .61879, .07588, .02737,
1826 + .01973, .06023, .10132 /
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 + .58111, .31612, .97718, .08570, .00000,
1829 + .00000, .05648, .13564,
1830 + .58146, .31418, .97928, .08525, .00000,
1831 + .00000, .05682, .13413,
1832 + .58147, .31116, .97794, .08453, .00006,
1833 + .00000, .05724, .13188,
1834 + .58106, .30881, .97262, .08395, .00150,
1835 + .00000, .05746, .13021,
1836 + .58031, .30625, .96405, .08331, .00356,
1837 + .00000, .05763, .12843,
1838 + .57932, .30398, .95521, .08273, .00485,
1839 + .00000, .05770, .12686,
1840 + .57815, .30170, .94540, .08214, .00602,
1841 + .00000, .05772, .12535,
1842 + .57674, .29926, .93425, .08149, .00727,
1843 + .00000, .05771, .12375 /
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 + .57525, .29708, .92328, .08090, .00820,
1846 + .00000, .05764, .12232,
1847 + .57372, .29495, .91228, .08031, .00909,
1848 + .00000, .05755, .12095,
1849 + .57238, .29322, .90299, .07982, .00974,
1850 + .00000, .05745, .11987,
1851 + .56926, .28949, .88125, .07877, .01104,
1852 + .00003, .05719, .11753,
1853 + .56628, .28622, .86021, .07783, .01206,
1854 + .00109, .05690, .11550,
1855 + .56268, .28253, .83472, .07673, .01308,
1856 + .00284, .05650, .11322,
1857 + .55866, .27862, .80818, .07556, .01403,
1858 + .00420, .05602, .11086,
1859 + .55468, .27502, .78368, .07445, .01475,
1860 + .00524, .05552, .10869 /
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 + .55049, .27136, .75912, .07330, .01540,
1863 + .00623, .05496, .10653,
1864 + .54692, .26833, .73901, .07235, .01590,
1865 + .00702, .05447, .10476,
1866 + .54236, .26465, .71467, .07120, .01641,
1867 + .00784, .05384, .10259,
1868 + .53817, .26136, .69332, .07014, .01680,
1869 + .00849, .05325, .10068,
1870 + .53431, .25838, .67425, .06917, .01713,
1871 + .00906, .05270, .09896,
1872 + .52919, .25455, .65026, .06794, .01746,
1873 + .00967, .05196, .09676,
1874 + .52427, .25095, .62819, .06676, .01773,
1875 + .01019, .05125, .09474,
1876 + .51962, .24762, .60814, .06567, .01794,
1877 + .01064, .05057, .09287 /
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 + .51481, .24428, .58838, .06458, .01809,
1880 + .01101, .04986, .09100,
1881 + .51007, .24103, .56960, .06351, .01822,
1882 + .01135, .04916, .08919,
1883 + .50555, .23797, .55232, .06250, .01831,
1884 + .01163, .04850, .08751,
1885 + .50120, .23507, .53635, .06154, .01836,
1886 + .01186, .04785, .08595,
1887 + .49684, .23220, .52081, .06060, .01840,
1888 + .01207, .04720, .08440,
1889 + .49246, .22937, .50582, .05966, .01841,
1890 + .01224, .04656, .08289,
1891 + .48831, .22671, .49200, .05878, .01841,
1892 + .01239, .04596, .08146,
1893 + .48432, .22420, .47920, .05796, .01839,
1894 + .01251, .04538, .08013 /
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 + .48029, .22168, .46663, .05713, .01836,
1897 + .01261, .04479, .07880,
1898 + .47632, .21921, .45454, .05632, .01832,
1899 + .01270, .04422, .07751,
1900 + .47248, .21686, .44323, .05553, .01826,
1901 + .01276, .04367, .07629,
1902 + .46889, .21466, .43283, .05481, .01820,
1903 + .01282, .04315, .07516,
1904 + .46517, .21241, .42247, .05407, .01813,
1905 + .01286, .04262, .07400 /
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 + .62871, .32636, .79812, .07038, .00000,
1908 + .00000, .04768, .11678,
1909 + .62654, .32310, .79920, .06977, .00000,
1910 + .00000, .04771, .11485,
1911 + .62288, .31817, .79642, .06884, .00005,
1912 + .00000, .04766, .11202,
1913 + .61985, .31449, .79031, .06811, .00116,
1914 + .00000, .04757, .10998,
1915 + .61639, .31056, .78111, .06733, .00275,
1916 + .00000, .04743, .10784,
1917 + .61311, .30714, .77172, .06664, .00373,
1918 + .00000, .04726, .10600,
1919 + .60975, .30382, .76148, .06595, .00462,
1920 + .00000, .04706, .10424,
1921 + .60607, .30030, .74994, .06521, .00555,
1922 + .00000, .04682, .10240 /
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 + .60266, .29719, .73875, .06454, .00624,
1925 + .00000, .04657, .10081,
1926 + .59929, .29420, .72763, .06388, .00690,
1927 + .00000, .04632, .09929,
1928 + .59651, .29182, .71832, .06336, .00737,
1929 + .00000, .04611, .09808,
1930 + .59039, .28675, .69699, .06223, .00830,
1931 + .00002, .04559, .09554,
1932 + .58492, .28237, .67687, .06124, .00902,
1933 + .00080, .04510, .09338,
1934 + .57860, .27747, .65299, .06010, .00974,
1935 + .00208, .04453, .09098,
1936 + .57181, .27242, .62829, .05892, .01038,
1937 + .00306, .04389, .08853,
1938 + .56541, .26781, .60577, .05782, .01086,
1939 + .00379, .04326, .08631 /
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 + .55887, .26319, .58340, .05670, .01129,
1942 + .00449, .04260, .08413,
1943 + .55340, .25941, .56524, .05578, .01161,
1944 + .00504, .04205, .08235,
1945 + .54660, .25486, .54347, .05468, .01193,
1946 + .00560, .04135, .08021,
1947 + .54051, .25083, .52457, .05367, .01216,
1948 + .00604, .04071, .07835,
1949 + .53496, .24719, .50780, .05276, .01235,
1950 + .00642, .04013, .07669,
1951 + .52779, .24258, .48690, .05160, .01253,
1952 + .00683, .03937, .07461,
1953 + .52097, .23830, .46785, .05052, .01266,
1954 + .00716, .03865, .07269,
1955 + .51461, .23437, .45065, .04953, .01276,
1956 + .00744, .03797, .07094 /
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 + .50819, .23043, .43389, .04854, .01282,
1959 + .00768, .03728, .06921,
1960 + .50189, .22664, .41808, .04757, .01286,
1961 + .00788, .03662, .06755,
1962 + .49594, .22311, .40362, .04667, .01288,
1963 + .00805, .03599, .06602,
1964 + .49030, .21979, .39037, .04582, .01288,
1965 + .00818, .03539, .06460,
1966 + .48470, .21650, .37754, .04498, .01286,
1967 + .00830, .03479, .06321,
1968 + .47912, .21328, .36523, .04417, .01283,
1969 + .00839, .03421, .06184,
1970 + .47386, .21028, .35395, .04342, .01279,
1971 + .00847, .03366, .06057,
1972 + .46887, .20746, .34359, .04270, .01274,
1973 + .00852, .03314, .05939 /
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 + .46388, .20464, .33346, .04197, .01268,
1976 + .00857, .03262, .05823,
1977 + .45896, .20189, .32378, .04127, .01262,
1978 + .00861, .03210, .05710,
1979 + .45423, .19928, .31477, .04062, .01255,
1980 + .00863, .03162, .05603,
1981 + .44981, .19685, .30651, .04001, .01248,
1982 + .00865, .03116, .05504,
1983 + .44530, .19438, .29833, .03938, .01240,
1984 + .00865, .03070, .05406 /
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 + .66256, .32869, .68040, .05800, .00000,
1987 + .00000, .03975, .09809,
1988 + .65784, .32422, .67954, .05733, .00000,
1989 + .00000, .03958, .09604,
1990 + .65048, .31761, .67400, .05633, .00004,
1991 + .00000, .03929, .09304,
1992 + .64480, .31278, .66615, .05557, .00092,
1993 + .00000, .03903, .09089,
1994 + .63862, .30771, .65536, .05476, .00217,
1995 + .00000, .03871, .08867,
1996 + .63306, .30334, .64471, .05405, .00293,
1997 + .00000, .03841, .08677,
1998 + .62758, .29915, .63341, .05335, .00362,
1999 + .00000, .03809, .08498,
2000 + .62170, .29474, .62091, .05261, .00433,
2001 + .00000, .03773, .08312 /
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 + .61644, .29087, .60907, .05194, .00484,
2004 + .00000, .03740, .08151,
2005 + .61132, .28719, .59744, .05129, .00533,
2006 + .00000, .03706, .07999,
2007 + .60717, .28429, .58784, .05077, .00568,
2008 + .00000, .03678, .07881,
2009 + .59824, .27814, .56635, .04966, .00636,
2010 + .00002, .03617, .07631,
2011 + .59044, .27289, .54663, .04870, .00688,
2012 + .00060, .03563, .07420,
2013 + .58161, .26709, .52372, .04761, .00738,
2014 + .00155, .03499, .07188,
2015 + .57234, .26113, .50032, .04648, .00783,
2016 + .00227, .03430, .06956,
2017 + .56380, .25576, .47932, .04544, .00815,
2018 + .00280, .03363, .06749 /
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 + .55516, .25044, .45866, .04441, .00843,
2021 + .00329, .03297, .06545,
2022 + .54801, .24611, .44205, .04356, .00863,
2023 + .00368, .03241, .06380,
2024 + .53932, .24090, .42238, .04252, .00883,
2025 + .00407, .03171, .06186,
2026 + .53160, .23635, .40549, .04160, .00896,
2027 + .00437, .03110, .06017,
2028 + .52460, .23227, .39061, .04078, .00906,
2029 + .00463, .03054, .05866,
2030 + .51567, .22714, .37225, .03975, .00915,
2031 + .00490, .02983, .05679,
2032 + .50730, .22240, .35569, .03878, .00921,
2033 + .00512, .02916, .05509,
2034 + .49955, .21806, .34087, .03789, .00925,
2035 + .00530, .02854, .05354 /
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 + .49178, .21376, .32658, .03703, .00926,
2038 + .00545, .02792, .05201,
2039 + .48425, .20962, .31317, .03618, .00925,
2040 + .00558, .02731, .05057,
2041 + .47720, .20578, .30100, .03539, .00923,
2042 + .00568, .02675, .04926,
2043 + .47054, .20221, .28994, .03465, .00920,
2044 + .00575, .02622, .04803,
2045 + .46394, .19870, .27930, .03393, .00916,
2046 + .00582, .02570, .04683,
2047 + .45744, .19526, .26917, .03323, .00911,
2048 + .00586, .02518, .04567,
2049 + .45137, .19206, .25993, .03258, .00905,
2050 + .00590, .02471, .04461,
2051 + .44562, .18906, .25148, .03196, .00899,
2052 + .00592, .02426, .04361 /
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 + .43988, .18608, .24327, .03135, .00893,
2055 + .00594, .02381, .04263,
2056 + .43427, .18319, .23546, .03076, .00886,
2057 + .00595, .02338, .04168,
2058 + .42892, .18046, .22824, .03020, .00879,
2059 + .00595, .02296, .04080,
2060 + .42393, .17792, .22165, .02968, .00872,
2061 + .00595, .02258, .03999,
2062 + .41885, .17535, .21517, .02916, .00864,
2063 + .00594, .02219, .03917 /
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 + .68383, .32461, .60122, .04799, .00000,
2066 + .00000, .03271, .08048,
2067 + .67656, .31917, .59717, .04733, .00000,
2068 + .00000, .03246, .07846,
2069 + .66559, .31117, .58730, .04633, .00004,
2070 + .00000, .03204, .07556,
2071 + .65740, .30537, .57675, .04557, .00074,
2072 + .00000, .03170, .07350,
2073 + .64867, .29934, .56354, .04476, .00173,
2074 + .00000, .03132, .07138,
2075 + .64100, .29418, .55106, .04406, .00232,
2076 + .00000, .03097, .06959,
2077 + .63354, .28928, .53828, .04337, .00285,
2078 + .00000, .03060, .06790,
2079 + .62563, .28417, .52444, .04265, .00339,
2080 + .00000, .03021, .06614 /
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 + .61867, .27972, .51173, .04199, .00378,
2083 + .00000, .02984, .06466,
2084 + .61196, .27550, .49943, .04137, .00415,
2085 + .00000, .02949, .06326,
2086 + .60658, .27218, .48944, .04088, .00441,
2087 + .00000, .02919, .06216,
2088 + .59515, .26520, .46759, .03982, .00491,
2089 + .00002, .02856, .05987,
2090 + .58529, .25929, .44810, .03891, .00528,
2091 + .00045, .02801, .05795,
2092 + .57425, .25283, .42596, .03790, .00563,
2093 + .00116, .02737, .05587,
2094 + .56283, .24624, .40365, .03686, .00593,
2095 + .00169, .02669, .05377,
2096 + .55244, .24034, .38399, .03590, .00615,
2097 + .00207, .02607, .05192 /
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 + .54204, .23453, .36491, .03495, .00632,
2100 + .00243, .02544, .05013,
2101 + .53352, .22982, .34973, .03417, .00645,
2102 + .00271, .02491, .04870,
2103 + .52325, .22418, .33197, .03322, .00656,
2104 + .00298, .02428, .04701,
2105 + .51418, .21931, .31688, .03241, .00663,
2106 + .00319, .02372, .04555,
2107 + .50600, .21496, .30369, .03169, .00669,
2108 + .00337, .02321, .04424,
2109 + .49569, .20950, .28760, .03076, .00672,
2110 + .00355, .02258, .04266,
2111 + .48609, .20450, .27325, .02991, .00673,
2112 + .00369, .02199, .04121,
2113 + .47725, .19994, .26051, .02914, .00673,
2114 + .00381, .02144, .03989 /
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 + .46848, .19543, .24832, .02838, .00672,
2117 + .00390, .02090, .03862,
2118 + .46000, .19113, .23700, .02765, .00669,
2119 + .00397, .02037, .03741,
2120 + .45209, .18716, .22679, .02698, .00665,
2121 + .00403, .01989, .03630,
2122 + .44470, .18346, .21758, .02635, .00660,
2123 + .00407, .01944, .03529,
2124 + .43740, .17983, .20876, .02572, .00656,
2125 + .00411, .01900, .03431,
2126 + .43025, .17631, .20045, .02513, .00650,
2127 + .00413, .01857, .03336,
2128 + .42356, .17305, .19291, .02457, .00644,
2129 + .00414, .01817, .03249,
2130 + .41728, .16999, .18606, .02406, .00638,
2131 + .00415, .01779, .03168 /
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 + .41104, .16697, .17942, .02356, .00632,
2134 + .00415, .01742, .03088,
2135 + .40496, .16404, .17314, .02306, .00626,
2136 + .00415, .01705, .03012,
2137 + .39919, .16127, .16737, .02258, .00619,
2138 + .00414, .01671, .02942,
2139 + .39383, .15871, .16212, .02214, .00613,
2140 + .00413, .01639, .02877,
2141 + .38839, .15614, .15697, .02171, .00606,
2142 + .00411, .01608, .02812 /
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 + .69355, .31550, .54372, .03987, .00000,
2145 + .00000, .02658, .06452,
2146 + .68395, .30922, .53571, .03921, .00000,
2147 + .00000, .02630, .06269,
2148 + .66964, .30009, .52068, .03822, .00003,
2149 + .00000, .02584, .06004,
2150 + .65912, .29356, .50704, .03749, .00059,
2151 + .00000, .02548, .05815,
2152 + .64804, .28681, .49113, .03672, .00137,
2153 + .00000, .02509, .05623,
2154 + .63845, .28106, .47674, .03603, .00183,
2155 + .00000, .02472, .05464,
2156 + .62923, .27562, .46252, .03536, .00224,
2157 + .00000, .02435, .05314,
2158 + .61953, .26997, .44743, .03466, .00265,
2159 + .00000, .02396, .05159 /
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 + .61106, .26510, .43390, .03405, .00295,
2162 + .00000, .02360, .05029,
2163 + .60296, .26049, .42102, .03346, .00322,
2164 + .00000, .02325, .04905,
2165 + .59655, .25686, .41076, .03299, .00341,
2166 + .00000, .02296, .04809,
2167 + .58295, .24931, .38878, .03200, .00377,
2168 + .00001, .02236, .04610,
2169 + .57132, .24298, .36967, .03115, .00404,
2170 + .00034, .02185, .04443,
2171 + .55845, .23606, .34845, .03023, .00428,
2172 + .00087, .02126, .04263,
2173 + .54526, .22904, .32744, .02927, .00449,
2174 + .00126, .02062, .04086,
2175 + .53337, .22282, .30918, .02840, .00463,
2176 + .00154, .02006, .03929 /
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 + .52156, .21672, .29170, .02755, .00474,
2179 + .00180, .01950, .03777,
2180 + .51194, .21180, .27795, .02686, .00481,
2181 + .00199, .01904, .03654,
2182 + .50042, .20594, .26205, .02601, .00487,
2183 + .00218, .01848, .03514,
2184 + .49034, .20089, .24869, .02529, .00490,
2185 + .00232, .01799, .03393,
2186 + .48129, .19640, .23711, .02465, .00493,
2187 + .00245, .01755, .03286,
2188 + .46992, .19083, .22314, .02385, .00493,
2189 + .00257, .01701, .03153,
2190 + .45941, .18573, .21081, .02312, .00492,
2191 + .00266, .01649, .03034,
2192 + .44980, .18108, .19996, .02246, .00490,
2193 + .00273, .01602, .02927 /
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 + .44030, .17652, .18967, .02179, .00487,
2196 + .00279, .01556, .02825,
2197 + .43119, .17218, .18019, .02116, .00483,
2198 + .00283, .01511, .02729,
2199 + .42273, .16817, .17171, .02057, .00479,
2200 + .00287, .01471, .02642,
2201 + .41483, .16448, .16411, .02004, .00474,
2202 + .00289, .01434, .02560,
2203 + .40706, .16087, .15687, .01953, .00469,
2204 + .00290, .01398, .02480,
2205 + .39949, .15739, .15008, .01903, .00464,
2206 + .00291, .01363, .02404,
2207 + .39244, .15416, .14395, .01858, .00459,
2208 + .00291, .01330, .02334,
2209 + .38585, .15113, .13841, .01814, .00453,
2210 + .00291, .01299, .02271 /
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 + .37932, .14814, .13308, .01770, .00448,
2213 + .00290, .01268, .02211,
2214 + .37297, .14525, .12805, .01729, .00442,
2215 + .00290, .01239, .02151,
2216 + .36695, .14256, .12347, .01692, .00436,
2217 + .00288, .01212, .02094,
2218 + .36137, .14006, .11930, .01658, .00431,
2219 + .00287, .01187, .02041,
2220 + .35575, .13755, .11523, .01622, .00426,
2221 + .00286, .01161, .01991 /
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 + .69297, .30238, .49652, .03314, .00000,
2224 + .00000, .02138, .05059,
2225 + .68120, .29551, .48452, .03252, .00000,
2226 + .00000, .02109, .04896,
2227 + .66386, .28559, .46449, .03159, .00003,
2228 + .00000, .02061, .04665,
2229 + .65130, .27850, .44800, .03088, .00046,
2230 + .00000, .02024, .04504,
2231 + .63821, .27119, .42975, .03012, .00108,
2232 + .00000, .01985, .04341,
2233 + .62692, .26505, .41380, .02948, .00144,
2234 + .00000, .01950, .04203,
2235 + .61617, .25927, .39842, .02887, .00175,
2236 + .00000, .01914, .04074,
2237 + .60492, .25328, .38241, .02823, .00206,
2238 + .00000, .01876, .03941 /
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 + .59519, .24814, .36846, .02765, .00228,
2241 + .00000, .01843, .03829,
2242 + .58592, .24329, .35533, .02710, .00248,
2243 + .00000, .01811, .03725,
2244 + .57861, .23949, .34504, .02667, .00262,
2245 + .00000, .01786, .03644,
2246 + .56323, .23161, .32340, .02577, .00288,
2247 + .00001, .01730, .03477,
2248 + .55020, .22501, .30502, .02501, .00307,
2249 + .00025, .01682, .03338,
2250 + .53589, .21784, .28501, .02417, .00324,
2251 + .00065, .01630, .03189,
2252 + .52131, .21063, .26552, .02329, .00338,
2253 + .00093, .01576, .03043,
2254 + .50825, .20429, .24884, .02253, .00346,
2255 + .00114, .01527, .02914 /
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 + .49540, .19807, .23311, .02176, .00353,
2258 + .00132, .01478, .02790,
2259 + .48499, .19307, .22085, .02114, .00357,
2260 + .00146, .01438, .02692,
2261 + .47252, .18717, .20679, .02042, .00360,
2262 + .00159, .01390, .02578,
2263 + .46173, .18208, .19516, .01979, .00361,
2264 + .00169, .01349, .02480,
2265 + .45210, .17757, .18516, .01922, .00361,
2266 + .00177, .01313, .02394,
2267 + .44000, .17202, .17320, .01855, .00360,
2268 + .00185, .01266, .02290,
2269 + .42891, .16695, .16274, .01792, .00358,
2270 + .00191, .01223, .02196,
2271 + .41881, .16235, .15359, .01734, .00355,
2272 + .00196, .01185, .02111 /
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 + .40887, .15787, .14501, .01677, .00352,
2275 + .00199, .01148, .02031,
2276 + .39938, .15360, .13715, .01624, .00348,
2277 + .00202, .01112, .01956,
2278 + .39060, .14967, .13018, .01574, .00344,
2279 + .00204, .01079, .01888,
2280 + .38246, .14604, .12396, .01529, .00339,
2281 + .00204, .01048, .01826,
2282 + .37449, .14251, .11806, .01485, .00335,
2283 + .00205, .01018, .01765,
2284 + .36671, .13912, .11258, .01444, .00330,
2285 + .00205, .00990, .01707,
2286 + .35949, .13599, .10766, .01406, .00326,
2287 + .00205, .00964, .01654,
2288 + .35276, .13308, .10323, .01371, .00321,
2289 + .00204, .00940, .01604 /
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 + .34611, .13022, .09899, .01337, .00317,
2292 + .00203, .00916, .01554,
2293 + .33966, .12746, .09500, .01303, .00312,
2294 + .00202, .00893, .01508,
2295 + .33359, .12488, .09138, .01271, .00307,
2296 + .00201, .00872, .01467,
2297 + .32797, .12248, .08809, .01241, .00303,
2298 + .00200, .00852, .01430,
2299 + .32232, .12009, .08491, .01212, .00299,
2300 + .00198, .00831, .01392 /
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 + .68288, .28662, .45312, .02782, .00000,
2303 + .00000, .01677, .03861,
2304 + .66929, .27929, .43753, .02717, .00000,
2305 + .00000, .01651, .03729,
2306 + .64942, .26877, .41328, .02623, .00003,
2307 + .00000, .01609, .03538,
2308 + .63513, .26132, .39459, .02555, .00036,
2309 + .00000, .01575, .03404,
2310 + .62032, .25370, .37469, .02484, .00084,
2311 + .00000, .01539, .03269,
2312 + .60767, .24730, .35771, .02423, .00112,
2313 + .00000, .01509, .03154,
2314 + .59570, .24130, .34176, .02365, .00135,
2315 + .00000, .01477, .03049,
2316 + .58325, .23509, .32542, .02304, .00159,
2317 + .00000, .01444, .02941 /
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 + .57253, .22977, .31149, .02249, .00175,
2320 + .00000, .01415, .02851,
2321 + .56237, .22478, .29852, .02197, .00190,
2322 + .00000, .01388, .02767,
2323 + .55438, .22090, .28847, .02157, .00200,
2324 + .00000, .01365, .02701,
2325 + .53766, .21287, .26771, .02075, .00218,
2326 + .00001, .01318, .02566,
2327 + .52355, .20619, .25048, .02005, .00231,
2328 + .00019, .01277, .02454,
2329 + .50816, .19897, .23208, .01930, .00243,
2330 + .00048, .01232, .02336,
2331 + .49260, .19172, .21436, .01853, .00252,
2332 + .00069, .01188, .02218,
2333 + .47878, .18535, .19944, .01783, .00257,
2334 + .00084, .01144, .02119 /
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 + .46520, .17916, .18552, .01716, .00261,
2337 + .00097, .01104, .02022,
2338 + .45424, .17421, .17478, .01663, .00263,
2339 + .00107, .01072, .01944,
2340 + .44122, .16841, .16261, .01599, .00264,
2341 + .00116, .01032, .01854,
2342 + .42997, .16342, .15262, .01546, .00264,
2343 + .00122, .00998, .01779,
2344 + .41996, .15900, .14408, .01498, .00263,
2345 + .00128, .00968, .01713,
2346 + .40753, .15355, .13401, .01437, .00261,
2347 + .00133, .00930, .01634,
2348 + .39614, .14861, .12526, .01384, .00259,
2349 + .00137, .00896, .01561,
2350 + .38578, .14416, .11767, .01337, .00256,
2351 + .00140, .00866, .01496 /
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 + .37566, .13981, .11062, .01288, .00253,
2354 + .00142, .00836, .01436,
2355 + .36603, .13571, .10419, .01243, .00249,
2356 + .00143, .00808, .01379,
2357 + .35714, .13194, .09851, .01202, .00245,
2358 + .00144, .00782, .01326,
2359 + .34893, .12849, .09349, .01165, .00242,
2360 + .00144, .00758, .01278,
2361 + .34089, .12513, .08876, .01129, .00238,
2362 + .00144, .00735, .01232,
2363 + .33312, .12191, .08438, .01095, .00234,
2364 + .00144, .00713, .01187,
2365 + .32591, .11894, .08046, .01065, .00230,
2366 + .00144, .00693, .01146,
2367 + .31921, .11618, .07695, .01036, .00226,
2368 + .00143, .00674, .01109 /
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 + .31259, .11347, .07361, .01008, .00223,
2371 + .00142, .00655, .01074,
2372 + .30621, .11086, .07047, .00981, .00219,
2373 + .00141, .00637, .01041,
2374 + .30024, .10842, .06764, .00954, .00215,
2375 + .00140, .00620, .01011,
2376 + .29471, .10617, .06507, .00930, .00212,
2377 + .00139, .00604, .00983,
2378 + .28917, .10393, .06260, .00906, .00208,
2379 + .00137, .00589, .00955 /
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 + .66514, .26825, .40940, .02291, .00000,
2382 + .00000, .01319, .02900,
2383 + .64997, .26069, .39120, .02232, .00000,
2384 + .00000, .01293, .02790,
2385 + .62797, .24987, .36411, .02146, .00002,
2386 + .00000, .01253, .02636,
2387 + .61226, .24224, .34412, .02082, .00028,
2388 + .00000, .01223, .02528,
2389 + .59610, .23447, .32341, .02015, .00064,
2390 + .00000, .01192, .02418,
2391 + .58239, .22795, .30619, .01959, .00085,
2392 + .00000, .01164, .02327,
2393 + .56945, .22188, .29030, .01905, .00102,
2394 + .00000, .01137, .02244,
2395 + .55604, .21564, .27425, .01850, .00120,
2396 + .00000, .01107, .02158 /
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 + .54454, .21032, .26081, .01804, .00131,
2399 + .00000, .01082, .02085,
2400 + .53369, .20533, .24843, .01758, .00142,
2401 + .00000, .01057, .02018,
2402 + .52521, .20144, .23895, .01721, .00149,
2403 + .00000, .01038, .01968,
2404 + .50750, .19346, .21963, .01648, .00162,
2405 + .00001, .00999, .01861,
2406 + .49266, .18685, .20388, .01588, .00171,
2407 + .00014, .00965, .01773,
2408 + .47658, .17971, .18731, .01521, .00179,
2409 + .00035, .00926, .01683,
2410 + .46039, .17259, .17160, .01454, .00185,
2411 + .00050, .00887, .01592,
2412 + .44606, .16639, .15853, .01394, .00188,
2413 + .00061, .00852, .01515 /
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 + .43208, .16036, .14645, .01336, .00190,
2416 + .00070, .00818, .01442,
2417 + .42084, .15555, .13722, .01290, .00191,
2418 + .00077, .00791, .01384,
2419 + .40755, .14992, .12691, .01237, .00191,
2420 + .00083, .00760, .01315,
2421 + .39611, .14511, .11851, .01192, .00190,
2422 + .00087, .00733, .01256,
2423 + .38597, .14086, .11137, .01153, .00189,
2424 + .00091, .00710, .01205,
2425 + .37341, .13566, .10301, .01102, .00187,
2426 + .00095, .00679, .01146,
2427 + .36199, .13095, .09582, .01058, .00185,
2428 + .00097, .00652, .01091,
2429 + .35165, .12671, .08963, .01017, .00182,
2430 + .00099, .00628, .01042 /
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 + .34154, .12260, .08391, .00978, .00179,
2433 + .00100, .00604, .00998,
2434 + .33195, .11872, .07874, .00942, .00176,
2435 + .00101, .00582, .00955,
2436 + .32315, .11517, .07419, .00909, .00173,
2437 + .00101, .00563, .00917,
2438 + .31504, .11193, .07020, .00879, .00170,
2439 + .00101, .00544, .00881,
2440 + .30713, .10878, .06646, .00850, .00167,
2441 + .00101, .00526, .00847,
2442 + .29949, .10577, .06301, .00822, .00164,
2443 + .00100, .00509, .00814,
2444 + .29244, .10300, .05992, .00797, .00161,
2445 + .00100, .00493, .00784,
2446 + .28592, .10043, .05718, .00773, .00158,
2447 + .00099, .00478, .00758 /
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 + .27951, .09792, .05458, .00750, .00155,
2450 + .00098, .00464, .00733,
2451 + .27333, .09550, .05214, .00727, .00152,
2452 + .00097, .00450, .00709,
2453 + .26753, .09324, .04994, .00707, .00149,
2454 + .00096, .00437, .00687,
2455 + .26217, .09116, .04796, .00687, .00147,
2456 + .00095, .00425, .00667,
2457 + .25681, .08910, .04606, .00669, .00144,
2458 + .00094, .00414, .00646 /
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 + .64043, .24858, .36483, .01885, .00000,
2461 + .00000, .01017, .02122,
2462 + .62405, .24091, .34503, .01829, .00000,
2463 + .00000, .00994, .02037,
2464 + .60043, .22999, .31652, .01747, .00002,
2465 + .00000, .00960, .01915,
2466 + .58368, .22234, .29621, .01687, .00021,
2467 + .00000, .00934, .01833,
2468 + .56651, .21456, .27566, .01626, .00048,
2469 + .00000, .00905, .01750,
2470 + .55200, .20809, .25889, .01576, .00064,
2471 + .00000, .00882, .01679,
2472 + .53840, .20206, .24362, .01528, .00077,
2473 + .00000, .00858, .01615,
2474 + .52435, .19587, .22837, .01478, .00089,
2475 + .00000, .00834, .01550 /
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 + .51237, .19064, .21577, .01435, .00097,
2478 + .00000, .00813, .01494,
2479 + .50107, .18574, .20431, .01396, .00105,
2480 + .00000, .00792, .01443,
2481 + .49225, .18196, .19566, .01365, .00110,
2482 + .00000, .00776, .01403,
2483 + .47399, .17415, .17821, .01300, .00119,
2484 + .00001, .00743, .01321,
2485 + .45876, .16770, .16418, .01247, .00125,
2486 + .00010, .00716, .01255,
2487 + .44230, .16081, .14962, .01191, .00130,
2488 + .00025, .00685, .01185,
2489 + .42582, .15396, .13598, .01133, .00134,
2490 + .00036, .00655, .01116,
2491 + .41135, .14796, .12481, .01082, .00136,
2492 + .00043, .00627, .01059 /
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 + .39725, .14220, .11460, .01033, .00137,
2495 + .00050, .00600, .01004,
2496 + .38596, .13763, .10685, .00995, .00137,
2497 + .00055, .00578, .00960,
2498 + .37268, .13225, .09824, .00950, .00136,
2499 + .00059, .00552, .00912,
2500 + .36130, .12769, .09129, .00912, .00135,
2501 + .00062, .00531, .00870,
2502 + .35123, .12367, .08543, .00878, .00134,
2503 + .00064, .00512, .00834,
2504 + .33881, .11876, .07864, .00838, .00132,
2505 + .00067, .00489, .00789,
2506 + .32755, .11433, .07282, .00801, .00130,
2507 + .00068, .00469, .00749,
2508 + .31740, .11036, .06783, .00768, .00128,
2509 + .00069, .00451, .00713 /
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 + .30754, .10653, .06328, .00737, .00126,
2512 + .00070, .00432, .00680,
2513 + .29820, .10293, .05918, .00708, .00123,
2514 + .00070, .00414, .00649,
2515 + .28963, .09965, .05558, .00681, .00121,
2516 + .00070, .00399, .00621,
2517 + .28177, .09664, .05245, .00656, .00119,
2518 + .00070, .00385, .00596,
2519 + .27413, .09373, .04951, .00632, .00116,
2520 + .00070, .00372, .00573,
2521 + .26678, .09095, .04683, .00610, .00114,
2522 + .00069, .00359, .00550,
2523 + .26000, .08840, .04445, .00590, .00111,
2524 + .00069, .00346, .00530,
2525 + .25374, .08605, .04233, .00572, .00109,
2526 + .00068, .00335, .00511 /
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 + .24759, .08375, .04031, .00553, .00107,
2529 + .00067, .00325, .00493,
2530 + .24168, .08155, .03844, .00535, .00105,
2531 + .00067, .00315, .00475,
2532 + .23614, .07949, .03676, .00520, .00103,
2533 + .00066, .00305, .00460,
2534 + .23104, .07760, .03525, .00506, .00101,
2535 + .00065, .00296, .00445,
2536 + .22597, .07573, .03380, .00492, .00099,
2537 + .00065, .00288, .00430 /
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 + .61011, .22792, .31943, .01527, .00000,
2540 + .00000, .00776, .01522,
2541 + .59282, .22032, .29916, .01476, .00000,
2542 + .00000, .00757, .01456,
2543 + .56802, .20956, .27069, .01403, .00001,
2544 + .00000, .00727, .01363,
2545 + .55055, .20203, .25094, .01349, .00016,
2546 + .00000, .00706, .01299,
2547 + .53275, .19440, .23131, .01293, .00036,
2548 + .00000, .00683, .01236,
2549 + .51775, .18806, .21553, .01250, .00047,
2550 + .00000, .00660, .01187,
2551 + .50377, .18218, .20140, .01207, .00056,
2552 + .00000, .00641, .01138,
2553 + .48938, .17617, .18745, .01163, .00065,
2554 + .00000, .00622, .01088 /
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 + .47712, .17110, .17607, .01126, .00071,
2557 + .00000, .00604, .01048,
2558 + .46561, .16637, .16578, .01092, .00076,
2559 + .00000, .00588, .01010,
2560 + .45668, .16274, .15806, .01066, .00080,
2561 + .00000, .00575, .00979,
2562 + .43820, .15524, .14270, .01010, .00086,
2563 + .00001, .00548, .00919,
2564 + .42287, .14906, .13053, .00965, .00090,
2565 + .00007, .00525, .00872,
2566 + .40638, .14247, .11807, .00917, .00093,
2567 + .00018, .00500, .00822,
2568 + .38990, .13596, .10653, .00870, .00095,
2569 + .00026, .00475, .00772,
2570 + .37552, .13031, .09715, .00827, .00096,
2571 + .00031, .00453, .00729 /
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 + .36157, .12488, .08868, .00787, .00097,
2574 + .00035, .00433, .00690,
2575 + .35044, .12057, .08230, .00756, .00097,
2576 + .00038, .00416, .00658,
2577 + .33742, .11557, .07526, .00719, .00096,
2578 + .00041, .00397, .00620,
2579 + .32628, .11131, .06964, .00688, .00095,
2580 + .00043, .00381, .00590,
2581 + .31646, .10757, .06493, .00661, .00094,
2582 + .00045, .00367, .00564,
2583 + .30441, .10302, .05947, .00628, .00092,
2584 + .00047, .00348, .00532,
2585 + .29349, .09892, .05487, .00600, .00091,
2586 + .00048, .00332, .00504,
2587 + .28367, .09526, .05094, .00576, .00089,
2588 + .00048, .00318, .00478 /
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 + .27420, .09174, .04736, .00549, .00087,
2591 + .00048, .00305, .00454,
2592 + .26526, .08843, .04415, .00524, .00085,
2593 + .00048, .00292, .00433,
2594 + .25708, .08541, .04137, .00503, .00083,
2595 + .00048, .00280, .00415,
2596 + .24957, .08268, .03893, .00484, .00082,
2597 + .00048, .00270, .00397,
2598 + .24229, .08003, .03665, .00466, .00080,
2599 + .00048, .00260, .00380,
2600 + .23534, .07750, .03459, .00449, .00078,
2601 + .00047, .00250, .00364,
2602 + .22895, .07519, .03277, .00432, .00076,
2603 + .00047, .00241, .00350,
2604 + .22306, .07306, .03115, .00417, .00075,
2605 + .00047, .00233, .00338 /
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 + .21728, .07098, .02963, .00402, .00073,
2608 + .00046, .00225, .00325,
2609 + .21172, .06899, .02821, .00389, .00072,
2610 + .00046, .00218, .00313,
2611 + .20652, .06715, .02693, .00377, .00070,
2612 + .00045, .00210, .00303,
2613 + .20173, .06545, .02578, .00366, .00069,
2614 + .00044, .00204, .00293,
2615 + .19699, .06378, .02469, .00355, .00068,
2616 + .00044, .00197, .00282 /
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 + .57516, .20690, .27427, .01214, .00000,
2619 + .00000, .00589, .01068,
2620 + .55731, .19948, .25449, .01168, .00000,
2621 + .00000, .00571, .01022,
2622 + .53187, .18900, .22728, .01103, .00001,
2623 + .00000, .00544, .00956,
2624 + .51401, .18171, .20882, .01057, .00011,
2625 + .00000, .00525, .00908,
2626 + .49587, .17437, .19078, .01011, .00026,
2627 + .00000, .00507, .00860,
2628 + .48074, .16825, .17646, .00972, .00034,
2629 + .00000, .00489, .00823,
2630 + .46660, .16262, .16379, .00935, .00040,
2631 + .00000, .00473, .00788,
2632 + .45209, .15688, .15140, .00898, .00046,
2633 + .00000, .00458, .00752 /
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 + .43982, .15205, .14141, .00868, .00051,
2636 + .00000, .00443, .00722,
2637 + .42832, .14756, .13244, .00839, .00054,
2638 + .00000, .00430, .00694,
2639 + .41942, .14409, .12576, .00817, .00057,
2640 + .00000, .00420, .00672,
2641 + .40106, .13700, .11260, .00771, .00061,
2642 + .00000, .00399, .00629,
2643 + .38590, .13119, .10231, .00733, .00063,
2644 + .00005, .00382, .00594,
2645 + .36966, .12501, .09188, .00693, .00065,
2646 + .00012, .00364, .00556,
2647 + .35354, .11892, .08233, .00655, .00067,
2648 + .00018, .00343, .00520,
2649 + .33947, .11366, .07469, .00621, .00067,
2650 + .00021, .00325, .00491 /
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 + .32590, .10861, .06780, .00589, .00067,
2653 + .00024, .00309, .00464,
2654 + .31511, .10462, .06265, .00563, .00067,
2655 + .00026, .00297, .00442,
2656 + .30254, .09999, .05703, .00535, .00066,
2657 + .00028, .00283, .00414,
2658 + .29180, .09608, .05255, .00510, .00065,
2659 + .00030, .00270, .00393,
2660 + .28235, .09266, .04882, .00488, .00065,
2661 + .00031, .00259, .00375,
2662 + .27083, .08849, .04454, .00464, .00063,
2663 + .00032, .00246, .00351,
2664 + .26045, .08475, .04094, .00439, .00062,
2665 + .00033, .00234, .00333,
2666 + .25114, .08142, .03789, .00417, .00061,
2667 + .00033, .00223, .00317 /
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 + .24216, .07823, .03513, .00397, .00059,
2670 + .00034, .00213, .00301,
2671 + .23371, .07524, .03267, .00379, .00058,
2672 + .00034, .00203, .00286,
2673 + .22601, .07252, .03053, .00364, .00057,
2674 + .00034, .00194, .00272,
2675 + .21896, .07005, .02867, .00350, .00056,
2676 + .00034, .00187, .00260,
2677 + .21214, .06768, .02695, .00336, .00054,
2678 + .00034, .00179, .00249,
2679 + .20563, .06542, .02538, .00323, .00053,
2680 + .00033, .00172, .00238,
2681 + .19966, .06335, .02400, .00310, .00052,
2682 + .00033, .00165, .00227,
2683 + .19416, .06145, .02278, .00299, .00051,
2684 + .00033, .00160, .00218 /
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 + .18878, .05960, .02163, .00289, .00050,
2687 + .00033, .00155, .00209,
2688 + .18363, .05784, .02056, .00279, .00049,
2689 + .00033, .00150, .00201,
2690 + .17884, .05620, .01961, .00270, .00048,
2691 + .00032, .00145, .00195,
2692 + .17444, .05470, .01875, .00262, .00047,
2693 + .00032, .00141, .00189,
2694 + .17007, .05322, .01794, .00253, .00046,
2695 + .00032, .00136, .00182 /
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 + .53665, .18611, .23082, .00959, .00000,
2698 + .00000, .00431, .00731,
2699 + .51858, .17899, .21229, .00920, .00000,
2700 + .00000, .00419, .00694,
2701 + .49293, .16893, .18731, .00863, .00001,
2702 + .00000, .00396, .00647,
2703 + .47502, .16197, .17064, .00823, .00008,
2704 + .00000, .00381, .00615,
2705 + .45690, .15499, .15456, .00784, .00018,
2706 + .00000, .00367, .00581,
2707 + .44181, .14921, .14198, .00752, .00024,
2708 + .00000, .00354, .00553,
2709 + .42781, .14387, .13095, .00720, .00028,
2710 + .00000, .00342, .00529,
2711 + .41348, .13845, .12027, .00688, .00033,
2712 + .00000, .00330, .00505 /
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 + .40136, .13393, .11173, .00665, .00035,
2715 + .00000, .00319, .00483,
2716 + .39006, .12971, .10413, .00642, .00038,
2717 + .00000, .00308, .00463,
2718 + .38135, .12646, .09851, .00622, .00040,
2719 + .00000, .00300, .00448,
2720 + .36343, .11985, .08754, .00584, .00043,
2721 + .00000, .00283, .00417,
2722 + .34866, .11445, .07905, .00553, .00045,
2723 + .00003, .00270, .00393,
2724 + .33291, .10871, .07056, .00522, .00046,
2725 + .00009, .00255, .00370,
2726 + .31731, .10309, .06283, .00491, .00047,
2727 + .00012, .00242, .00343,
2728 + .30385, .09824, .05670, .00463, .00047,
2729 + .00014, .00228, .00324 /
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 + .29087, .09361, .05122, .00437, .00047,
2732 + .00016, .00216, .00305,
2733 + .28057, .08997, .04714, .00417, .00047,
2734 + .00018, .00206, .00289,
2735 + .26859, .08577, .04273, .00395, .00046,
2736 + .00019, .00196, .00270,
2737 + .25845, .08221, .03924, .00375, .00045,
2738 + .00020, .00186, .00256,
2739 + .24955, .07911, .03635, .00358, .00045,
2740 + .00021, .00178, .00244,
2741 + .23867, .07533, .03305, .00338, .00044,
2742 + .00021, .00168, .00230,
2743 + .22891, .07197, .03029, .00319, .00043,
2744 + .00022, .00160, .00216,
2745 + .22019, .06899, .02795, .00303, .00042,
2746 + .00022, .00153, .00205 /
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 + .21178, .06613, .02585, .00290, .00041,
2749 + .00022, .00145, .00193,
2750 + .20391, .06346, .02398, .00276, .00040,
2751 + .00022, .00138, .00182,
2752 + .19678, .06105, .02236, .00263, .00039,
2753 + .00022, .00132, .00174,
2754 + .19028, .05885, .02097, .00250, .00038,
2755 + .00022, .00126, .00166,
2756 + .18400, .05674, .01968, .00239, .00038,
2757 + .00022, .00121, .00159,
2758 + .17799, .05474, .01852, .00230, .00037,
2759 + .00022, .00116, .00151,
2760 + .17248, .05293, .01748, .00222, .00036,
2761 + .00022, .00112, .00144,
2762 + .16744, .05126, .01657, .00214, .00036,
2763 + .00022, .00108, .00138 /
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 + .16252, .04963, .01571, .00206, .00035,
2766 + .00022, .00103, .00133,
2767 + .15782, .04808, .01492, .00199, .00034,
2768 + .00022, .00099, .00127,
2769 + .15346, .04665, .01421, .00191, .00034,
2770 + .00022, .00096, .00122,
2771 + .14946, .04534, .01357, .00185, .00033,
2772 + .00022, .00093, .00117,
2773 + .14548, .04405, .01297, .00179, .00033,
2774 + .00022, .00090, .00113 /
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 + .49562, .16568, .18999, .00739, .00000,
2777 + .00000, .00316, .00487,
2778 + .47766, .15892, .17336, .00706, .00000,
2779 + .00000, .00304, .00463,
2780 + .45226, .14944, .15125, .00660, .00001,
2781 + .00000, .00285, .00430,
2782 + .43457, .14291, .13672, .00628, .00006,
2783 + .00000, .00273, .00406,
2784 + .41674, .13638, .12287, .00596, .00012,
2785 + .00000, .00262, .00383,
2786 + .40198, .13097, .11218, .00568, .00016,
2787 + .00000, .00251, .00367,
2788 + .38830, .12602, .10287, .00545, .00019,
2789 + .00000, .00241, .00348,
2790 + .37433, .12100, .09392, .00522, .00022,
2791 + .00000, .00231, .00327 /
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 + .36261, .11681, .08683, .00502, .00024,
2794 + .00000, .00224, .00312,
2795 + .35169, .11292, .08055, .00482, .00026,
2796 + .00000, .00216, .00299,
2797 + .34328, .10992, .07595, .00466, .00027,
2798 + .00000, .00209, .00291,
2799 + .32603, .10382, .06702, .00435, .00029,
2800 + .00000, .00196, .00272,
2801 + .31190, .09887, .06019, .00411, .00030,
2802 + .00002, .00186, .00254,
2803 + .29689, .09364, .05341, .00387, .00031,
2804 + .00006, .00176, .00236,
2805 + .28208, .08853, .04730, .00362, .00032,
2806 + .00008, .00165, .00219,
2807 + .26928, .08413, .04250, .00341, .00032,
2808 + .00010, .00155, .00206 /
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 + .25704, .07994, .03822, .00322, .00032,
2811 + .00011, .00147, .00193,
2812 + .24736, .07666, .03506, .00306, .00032,
2813 + .00012, .00140, .00182,
2814 + .23611, .07288, .03167, .00289, .00032,
2815 + .00012, .00133, .00171,
2816 + .22664, .06970, .02900, .00273, .00032,
2817 + .00013, .00126, .00161,
2818 + .21835, .06692, .02678, .00260, .00032,
2819 + .00013, .00119, .00153,
2820 + .20826, .06355, .02428, .00244, .00032,
2821 + .00013, .00112, .00144,
2822 + .19921, .06057, .02220, .00231, .00032,
2823 + .00013, .00106, .00136,
2824 + .19114, .05793, .02044, .00220, .00031,
2825 + .00013, .00101, .00129 /
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 + .18342, .05538, .01886, .00209, .00031,
2828 + .00013, .00096, .00122,
2829 + .17620, .05302, .01746, .00198, .00030,
2830 + .00013, .00091, .00115,
2831 + .16966, .05091, .01626, .00189, .00030,
2832 + .00013, .00086, .00109,
2833 + .16371, .04899, .01522, .00181, .00029,
2834 + .00013, .00082, .00103,
2835 + .15797, .04715, .01426, .00173, .00029,
2836 + .00013, .00079, .00098,
2837 + .15254, .04540, .01340, .00165, .00028,
2838 + .00013, .00075, .00093,
2839 + .14758, .04381, .01264, .00157, .00028,
2840 + .00013, .00072, .00089,
2841 + .14302, .04235, .01197, .00151, .00027,
2842 + .00013, .00070, .00085 /
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 + .13856, .04094, .01133, .00146, .00027,
2845 + .00013, .00067, .00082,
2846 + .13432, .03959, .01075, .00141, .00026,
2847 + .00013, .00065, .00078,
2848 + .13041, .03836, .01024, .00135, .00026,
2849 + .00013, .00062, .00075,
2850 + .12682, .03723, .00977, .00130, .00026,
2851 + .00013, .00060, .00072,
2852 + .12326, .03611, .00933, .00125, .00025,
2853 + .00013, .00058, .00069 /
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 + .45303, .14591, .15287, .00551, .00000,
2856 + .00000, .00228, .00322,
2857 + .43542, .13959, .13841, .00524, .00000,
2858 + .00000, .00219, .00306,
2859 + .41060, .13079, .11941, .00488, .00001,
2860 + .00000, .00206, .00282,
2861 + .39344, .12472, .10715, .00462, .00004,
2862 + .00000, .00195, .00266,
2863 + .37621, .11866, .09562, .00435, .00008,
2864 + .00000, .00185, .00252,
2865 + .36194, .11370, .08675, .00416, .00011,
2866 + .00000, .00176, .00238,
2867 + .34878, .10915, .07911, .00397, .00013,
2868 + .00000, .00170, .00225,
2869 + .33540, .10455, .07182, .00377, .00015,
2870 + .00000, .00164, .00213 /
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 + .32420, .10072, .06610, .00363, .00016,
2873 + .00000, .00157, .00202,
2874 + .31379, .09717, .06107, .00348, .00017,
2875 + .00000, .00151, .00193,
2876 + .30578, .09444, .05739, .00336, .00018,
2877 + .00000, .00146, .00187,
2878 + .28943, .08890, .05031, .00312, .00019,
2879 + .00000, .00136, .00176,
2880 + .27609, .08441, .04496, .00291, .00020,
2881 + .00002, .00129, .00166,
2882 + .26199, .07969, .03969, .00271, .00020,
2883 + .00004, .00123, .00155,
2884 + .24806, .07510, .03497, .00256, .00021,
2885 + .00005, .00115, .00142,
2886 + .23611, .07117, .03129, .00240, .00021,
2887 + .00006, .00108, .00132 /
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 + .22472, .06744, .02803, .00224, .00021,
2890 + .00007, .00101, .00124,
2891 + .21575, .06452, .02563, .00211, .00021,
2892 + .00007, .00096, .00117,
2893 + .20533, .06116, .02308, .00200, .00021,
2894 + .00007, .00090, .00110,
2895 + .19658, .05834, .02108, .00190, .00021,
2896 + .00007, .00086, .00104,
2897 + .18895, .05589, .01943, .00181, .00021,
2898 + .00007, .00082, .00098,
2899 + .17972, .05294, .01757, .00168, .00021,
2900 + .00007, .00077, .00091,
2901 + .17147, .05033, .01603, .00158, .00021,
2902 + .00007, .00073, .00085,
2903 + .16412, .04801, .01474, .00150, .00021,
2904 + .00007, .00068, .00080 /
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 + .15709, .04582, .01357, .00143, .00021,
2907 + .00007, .00065, .00075,
2908 + .15056, .04377, .01255, .00134, .00021,
2909 + .00007, .00061, .00071,
2910 + .14468, .04191, .01167, .00126, .00021,
2911 + .00007, .00059, .00068,
2912 + .13932, .04024, .01091, .00120, .00021,
2913 + .00007, .00056, .00066,
2914 + .13417, .03865, .01021, .00114, .00021,
2915 + .00007, .00053, .00063,
2916 + .12928, .03714, .00958, .00109, .00021,
2917 + .00007, .00051, .00059,
2918 + .12484, .03578, .00903, .00105, .00021,
2919 + .00007, .00049, .00055,
2920 + .12077, .03453, .00854, .00100, .00021,
2921 + .00007, .00047, .00052 /
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 + .11681, .03332, .00809, .00096, .00020,
2924 + .00007, .00045, .00051,
2925 + .11303, .03217, .00766, .00092, .00020,
2926 + .00007, .00043, .00049,
2927 + .10953, .03111, .00729, .00089, .00020,
2928 + .00007, .00041, .00047,
2929 + .10633, .03015, .00695, .00086, .00020,
2930 + .00007, .00039, .00045,
2931 + .10320, .02920, .00663, .00083, .00020,
2932 + .00007, .00038, .00044 /
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 + .40971, .12721, .12013, .00408, .00000,
2935 + .00000, .00162, .00205,
2936 + .39269, .12139, .10797, .00386, .00000,
2937 + .00000, .00155, .00195,
2938 + .36886, .11327, .09221, .00354, .00000,
2939 + .00000, .00145, .00180,
2940 + .35244, .10770, .08217, .00332, .00002,
2941 + .00000, .00138, .00171,
2942 + .33599, .10218, .07281, .00311, .00005,
2943 + .00000, .00131, .00161,
2944 + .32244, .09767, .06568, .00296, .00007,
2945 + .00000, .00125, .00151,
2946 + .31000, .09352, .05959, .00279, .00008,
2947 + .00000, .00119, .00144,
2948 + .29737, .08934, .05382, .00261, .00009,
2949 + .00000, .00114, .00137 /
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 + .28678, .08589, .04934, .00252, .00010,
2952 + .00000, .00109, .00130,
2953 + .27696, .08269, .04541, .00242, .00011,
2954 + .00000, .00105, .00124,
2955 + .26944, .08024, .04255, .00233, .00011,
2956 + .00000, .00102, .00120,
2957 + .25414, .07528, .03710, .00216, .00012,
2958 + .00000, .00095, .00112,
2959 + .24171, .07129, .03300, .00202, .00012,
2960 + .00001, .00090, .00104,
2961 + .22861, .06710, .02899, .00187, .00012,
2962 + .00002, .00084, .00095,
2963 + .21576, .06302, .02543, .00174, .00012,
2964 + .00003, .00079, .00090,
2965 + .20476, .05954, .02267, .00162, .00012,
2966 + .00003, .00075, .00084 /
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 + .19430, .05625, .02025, .00151, .00012,
2969 + .00003, .00070, .00079,
2970 + .18609, .05369, .01849, .00142, .00012,
2971 + .00003, .00066, .00075,
2972 + .17664, .05074, .01659, .00131, .00012,
2973 + .00003, .00062, .00070,
2974 + .16869, .04829, .01512, .00124, .00012,
2975 + .00003, .00059, .00066,
2976 + .16177, .04616, .01392, .00118, .00012,
2977 + .00003, .00056, .00062,
2978 + .15341, .04358, .01256, .00110, .00012,
2979 + .00003, .00052, .00058,
2980 + .14597, .04132, .01144, .00103, .00012,
2981 + .00003, .00050, .00054,
2982 + .13938, .03933, .01049, .00098, .00012,
2983 + .00003, .00048, .00051 /
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 + .13309, .03744, .00966, .00092, .00012,
2986 + .00003, .00044, .00047,
2987 + .12725, .03568, .00892, .00087, .00012,
2988 + .00003, .00042, .00044,
2989 + .12198, .03410, .00829, .00082, .00012,
2990 + .00003, .00041, .00042,
2991 + .11722, .03267, .00774, .00078, .00012,
2992 + .00003, .00039, .00041,
2993 + .11265, .03131, .00724, .00074, .00012,
2994 + .00003, .00036, .00040,
2995 + .10834, .03003, .00678, .00069, .00012,
2996 + .00003, .00034, .00038,
2997 + .10441, .02887, .00639, .00065, .00012,
2998 + .00003, .00033, .00036,
2999 + .10081, .02782, .00604, .00063, .00012,
3000 + .00003, .00031, .00033 /
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 + .09731, .02680, .00571, .00062, .00012,
3003 + .00003, .00030, .00031,
3004 + .09400, .02584, .00541, .00060, .00012,
3005 + .00003, .00029, .00030,
3006 + .09096, .02494, .00514, .00057, .00012,
3007 + .00003, .00028, .00029,
3008 + .08819, .02413, .00490, .00054, .00012,
3009 + .00003, .00027, .00028,
3010 + .08545, .02333, .00467, .00052, .00012,
3011 + .00003, .00026, .00027 /
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 + .36652, .10983, .09229, .00302, .00000,
3014 + .00000, .00104, .00125,
3015 + .35038, .10453, .08242, .00285, .00000,
3016 + .00000, .00101, .00117,
3017 + .32783, .09719, .06976, .00261, .00000,
3018 + .00000, .00094, .00107,
3019 + .31234, .09217, .06179, .00243, .00001,
3020 + .00000, .00089, .00101,
3021 + .29689, .08719, .05442, .00227, .00003,
3022 + .00000, .00083, .00095,
3023 + .28416, .08314, .04885, .00218, .00004,
3024 + .00000, .00079, .00089,
3025 + .27252, .07943, .04413, .00208, .00005,
3026 + .00000, .00076, .00083,
3027 + .26075, .07571, .03969, .00196, .00006,
3028 + .00000, .00073, .00079 /
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 + .25095, .07262, .03625, .00186, .00006,
3031 + .00000, .00069, .00076,
3032 + .24190, .06978, .03326, .00176, .00006,
3033 + .00000, .00066, .00074,
3034 + .23497, .06760, .03111, .00169, .00007,
3035 + .00000, .00063, .00072,
3036 + .22087, .06322, .02699, .00157, .00007,
3037 + .00000, .00059, .00067,
3038 + .20943, .05971, .02392, .00148, .00007,
3039 + .00001, .00056, .00062,
3040 + .19743, .05605, .02094, .00138, .00007,
3041 + .00001, .00052, .00055,
3042 + .18574, .05247, .01832, .00127, .00007,
3043 + .00001, .00048, .00051,
3044 + .17579, .04944, .01629, .00117, .00007,
3045 + .00001, .00045, .00047 /
3046 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
3047 + .16634, .04658, .01452, .00108, .00007,
3048 + .00001, .00042, .00044,
3049 + .15894, .04435, .01323, .00102, .00007,
3050 + .00001, .00040, .00042,
3051 + .15040, .04181, .01186, .00097, .00007,
3052 + .00001, .00037, .00039,
3053 + .14326, .03969, .01079, .00092, .00007,
3054 + .00001, .00035, .00036,
3055 + .13707, .03786, .00992, .00087, .00007,
3056 + .00001, .00034, .00033,
3057 + .12962, .03566, .00894, .00081, .00007,
3058 + .00001, .00031, .00031,
3059 + .12305, .03372, .00813, .00074, .00007,
3060 + .00001, .00028, .00030,
3061 + .11724, .03201, .00746, .00067, .00007,
3062 + .00001, .00026, .00029 /
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 + .11166, .03040, .00686, .00065, .00007,
3065 + .00001, .00025, .00027,
3066 + .10649, .02891, .00633, .00063, .00007,
3067 + .00001, .00024, .00025,
3068 + .10185, .02757, .00587, .00060, .00007,
3069 + .00001, .00023, .00023,
3070 + .09768, .02637, .00548, .00057, .00007,
3071 + .00001, .00022, .00022,
3072 + .09369, .02523, .00512, .00054, .00007,
3073 + .00001, .00021, .00021,
3074 + .08992, .02416, .00480, .00050, .00007,
3075 + .00001, .00020, .00020,
3076 + .08650, .02318, .00452, .00047, .00007,
3077 + .00001, .00019, .00019,
3078 + .08339, .02230, .00427, .00045, .00007,
3079 + .00001, .00018, .00018 /
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 + .08037, .02144, .00403, .00044, .00007,
3082 + .00001, .00016, .00017,
3083 + .07750, .02063, .00382, .00042, .00007,
3084 + .00001, .00016, .00016,
3085 + .07487, .01989, .00363, .00040, .00007,
3086 + .00001, .00015, .00015,
3087 + .07247, .01921, .00346, .00039, .00007,
3088 + .00001, .00015, .00015,
3089 + .07011, .01855, .00329, .00037, .00007,
3090 + .00001, .00014, .00014 /
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 + .32405, .09343, .06888, .00201, .00000,
3093 + .00000, .00077, .00078,
3094 + .30888, .08869, .06114, .00190, .00000,
3095 + .00000, .00073, .00074,
3096 + .28780, .08212, .05133, .00175, .00000,
3097 + .00000, .00066, .00070,
3098 + .27339, .07766, .04521, .00164, .00001,
3099 + .00000, .00061, .00066,
3100 + .25906, .07325, .03959, .00154, .00002,
3101 + .00000, .00057, .00061,
3102 + .24735, .06968, .03539, .00143, .00002,
3103 + .00000, .00054, .00057,
3104 + .23667, .06642, .03185, .00134, .00003,
3105 + .00000, .00051, .00054,
3106 + .22589, .06315, .02853, .00125, .00003,
3107 + .00000, .00049, .00051 /
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 + .21689, .06046, .02598, .00121, .00003,
3110 + .00000, .00047, .00047,
3111 + .20859, .05798, .02377, .00116, .00003,
3112 + .00000, .00045, .00044,
3113 + .20226, .05609, .02218, .00112, .00003,
3114 + .00000, .00043, .00043,
3115 + .18947, .05228, .01917, .00103, .00003,
3116 + .00000, .00039, .00040,
3117 + .17917, .04922, .01694, .00095, .00003,
3118 + .00000, .00036, .00037,
3119 + .16836, .04604, .01479, .00087, .00003,
3120 + .00000, .00034, .00032,
3121 + .15782, .04297, .01290, .00082, .00003,
3122 + .00000, .00034, .00031,
3123 + .14890, .04038, .01145, .00076, .00003,
3124 + .00000, .00030, .00029 /
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 + .14046, .03793, .01019, .00070, .00003,
3127 + .00000, .00027, .00027,
3128 + .13386, .03603, .00927, .00066, .00003,
3129 + .00000, .00025, .00026,
3130 + .12631, .03387, .00829, .00062, .00003,
3131 + .00000, .00023, .00025,
3132 + .12002, .03207, .00754, .00058, .00003,
3133 + .00000, .00022, .00022,
3134 + .11457, .03053, .00693, .00055, .00003,
3135 + .00000, .00021, .00020,
3136 + .10804, .02868, .00624, .00050, .00003,
3137 + .00000, .00020, .00019,
3138 + .10225, .02704, .00567, .00047, .00003,
3139 + .00000, .00019, .00018,
3140 + .09715, .02561, .00519, .00045, .00003,
3141 + .00000, .00018, .00017 /
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 + .09231, .02426, .00478, .00043, .00003,
3144 + .00000, .00016, .00015,
3145 + .08784, .02302, .00440, .00040, .00003,
3146 + .00000, .00015, .00014,
3147 + .08384, .02190, .00408, .00037, .00003,
3148 + .00000, .00014, .00015,
3149 + .08024, .02091, .00381, .00035, .00003,
3150 + .00000, .00013, .00014,
3151 + .07679, .01996, .00356, .00034, .00003,
3152 + .00000, .00013, .00013,
3153 + .07355, .01907, .00333, .00032, .00003,
3154 + .00000, .00012, .00012,
3155 + .07063, .01826, .00313, .00029, .00003,
3156 + .00000, .00011, .00011,
3157 + .06796, .01753, .00296, .00028, .00003,
3158 + .00000, .00011, .00010 /
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 + .06538, .01683, .00280, .00027, .00003,
3161 + .00000, .00010, .00010,
3162 + .06293, .01617, .00265, .00026, .00003,
3163 + .00000, .00010, .00009,
3164 + .06068, .01556, .00251, .00025, .00003,
3165 + .00000, .00009, .00009,
3166 + .05863, .01501, .00239, .00024, .00003,
3167 + .00000, .00009, .00009,
3168 + .05663, .01447, .00228, .00023, .00003,
3169 + .00000, .00009, .00008 /
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 + .28294, .07851, .05004, .00133, .00000,
3172 + .00000, .00052, .00050,
3173 + .26895, .07432, .04418, .00124, .00000,
3174 + .00000, .00049, .00047,
3175 + .24958, .06856, .03680, .00112, .00000,
3176 + .00000, .00044, .00043,
3177 + .23637, .06465, .03225, .00105, .00000,
3178 + .00000, .00042, .00040,
3179 + .22328, .06080, .02810, .00099, .00001,
3180 + .00000, .00039, .00038,
3181 + .21264, .05769, .02502, .00092, .00001,
3182 + .00000, .00037, .00034,
3183 + .20292, .05485, .02244, .00087, .00001,
3184 + .00000, .00035, .00033,
3185 + .19314, .05201, .02004, .00082, .00001,
3186 + .00000, .00033, .00032 /
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 + .18504, .04969, .01820, .00078, .00001,
3189 + .00000, .00032, .00030,
3190 + .17760, .04755, .01661, .00074, .00001,
3191 + .00000, .00030, .00028,
3192 + .17194, .04592, .01547, .00071, .00001,
3193 + .00000, .00029, .00026,
3194 + .16047, .04265, .01333, .00065, .00001,
3195 + .00000, .00026, .00025,
3196 + .15125, .04004, .01175, .00060, .00001,
3197 + .00000, .00025, .00023,
3198 + .14167, .03733, .01024, .00054, .00001,
3199 + .00000, .00023, .00021,
3200 + .13238, .03472, .00891, .00049, .00001,
3201 + .00000, .00021, .00020,
3202 + .12451, .03251, .00790, .00045, .00001,
3203 + .00000, .00019, .00019 /
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 + .11707, .03046, .00702, .00042, .00001,
3206 + .00000, .00018, .00018,
3207 + .11128, .02888, .00639, .00040, .00001,
3208 + .00000, .00016, .00016,
3209 + .10471, .02706, .00571, .00037, .00001,
3210 + .00000, .00016, .00014,
3211 + .09923, .02555, .00519, .00035, .00001,
3212 + .00000, .00015, .00013,
3213 + .09449, .02425, .00476, .00033, .00001,
3214 + .00000, .00014, .00013,
3215 + .08882, .02272, .00429, .00030, .00001,
3216 + .00000, .00013, .00012,
3217 + .08382, .02137, .00390, .00029, .00001,
3218 + .00000, .00012, .00011,
3219 + .07943, .02019, .00357, .00027, .00001,
3220 + .00000, .00011, .00010 /
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 + .07528, .01907, .00328, .00026, .00001,
3223 + .00000, .00010, .00010,
3224 + .07146, .01805, .00302, .00024, .00001,
3225 + .00000, .00010, .00009,
3226 + .06806, .01714, .00280, .00022, .00001,
3227 + .00000, .00009, .00008,
3228 + .06500, .01633, .00261, .00020, .00001,
3229 + .00000, .00009, .00007,
3230 + .06208, .01555, .00244, .00019, .00001,
3231 + .00000, .00009, .00007,
3232 + .05932, .01483, .00228, .00018, .00001,
3233 + .00000, .00008, .00007,
3234 + .05682, .01418, .00215, .00018, .00001,
3235 + .00000, .00008, .00007,
3236 + .05457, .01358, .00203, .00017, .00001,
3237 + .00000, .00007, .00007 /
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 + .05242, .01301, .00191, .00016, .00001,
3240 + .00000, .00007, .00007,
3241 + .05038, .01247, .00181, .00015, .00001,
3242 + .00000, .00007, .00006,
3243 + .04849, .01199, .00171, .00014, .00001,
3244 + .00000, .00006, .00006,
3245 + .04678, .01154, .00163, .00014, .00001,
3246 + .00000, .00006, .00005,
3247 + .04511, .01111, .00155, .00013, .00001,
3248 + .00000, .00006, .00005 /
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 + .24398, .06522, .03540, .00091, .00000,
3251 + .00000, .00031, .00029,
3252 + .23124, .06158, .03111, .00086, .00000,
3253 + .00000, .00029, .00026,
3254 + .21367, .05658, .02574, .00079, .00000,
3255 + .00000, .00026, .00022,
3256 + .20178, .05319, .02246, .00073, .00000,
3257 + .00000, .00024, .00021,
3258 + .19004, .04986, .01950, .00066, .00000,
3259 + .00000, .00023, .00021,
3260 + .18049, .04719, .01731, .00062, .00000,
3261 + .00000, .00022, .00019,
3262 + .17182, .04477, .01548, .00058, .00000,
3263 + .00000, .00020, .00018,
3264 + .16312, .04235, .01379, .00054, .00000,
3265 + .00000, .00018, .00017 /
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 + .15591, .04036, .01251, .00052, .00000,
3268 + .00000, .00018, .00015,
3269 + .14931, .03854, .01140, .00049, .00000,
3270 + .00000, .00017, .00014,
3271 + .14430, .03715, .01061, .00046, .00000,
3272 + .00000, .00016, .00014,
3273 + .13420, .03439, .00912, .00043, .00000,
3274 + .00000, .00015, .00013,
3275 + .12610, .03219, .00803, .00040, .00000,
3276 + .00000, .00014, .00013,
3277 + .11769, .02990, .00699, .00036, .00000,
3278 + .00000, .00012, .00012,
3279 + .10959, .02773, .00608, .00033, .00000,
3280 + .00000, .00011, .00011,
3281 + .10276, .02590, .00539, .00031, .00000,
3282 + .00000, .00011, .00008 /
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 + .09633, .02418, .00479, .00029, .00000,
3285 + .00000, .00010, .00008,
3286 + .09135, .02286, .00435, .00027, .00000,
3287 + .00000, .00009, .00008,
3288 + .08568, .02136, .00389, .00025, .00000,
3289 + .00000, .00008, .00007,
3290 + .08098, .02012, .00354, .00024, .00000,
3291 + .00000, .00008, .00006,
3292 + .07693, .01906, .00325, .00023, .00000,
3293 + .00000, .00007, .00005,
3294 + .07211, .01780, .00292, .00020, .00000,
3295 + .00000, .00007, .00006,
3296 + .06785, .01670, .00265, .00019, .00000,
3297 + .00000, .00006, .00005,
3298 + .06412, .01573, .00243, .00019, .00000,
3299 + .00000, .00005, .00005 /
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 + .06063, .01483, .00223, .00017, .00000,
3302 + .00000, .00005, .00005,
3303 + .05742, .01400, .00206, .00016, .00000,
3304 + .00000, .00005, .00005,
3305 + .05455, .01326, .00191, .00014, .00000,
3306 + .00000, .00004, .00004,
3307 + .05197, .01261, .00178, .00014, .00000,
3308 + .00000, .00004, .00004,
3309 + .04951, .01198, .00166, .00014, .00000,
3310 + .00000, .00004, .00004,
3311 + .04723, .01140, .00155, .00012, .00000,
3312 + .00000, .00004, .00004,
3313 + .04518, .01088, .00146, .00011, .00000,
3314 + .00000, .00004, .00003,
3315 + .04331, .01040, .00138, .00010, .00000,
3316 + .00000, .00004, .00003 /
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 + .04150, .00995, .00130, .00010, .00000,
3319 + .00000, .00004, .00003,
3320 + .03980, .00952, .00123, .00010, .00000,
3321 + .00000, .00003, .00003,
3322 + .03826, .00913, .00116, .00009, .00000,
3323 + .00000, .00003, .00002,
3324 + .03686, .00878, .00111, .00009, .00000,
3325 + .00000, .00003, .00002,
3326 + .03548, .00844, .00105, .00008, .00000,
3327 + .00000, .00003, .00002 /
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 + .20716, .05318, .02417, .00051, .00000,
3330 + .00000, .00022, .00020,
3331 + .19575, .05006, .02115, .00049, .00000,
3332 + .00000, .00021, .00018,
3333 + .18010, .04581, .01741, .00046, .00000,
3334 + .00000, .00019, .00015,
3335 + .16955, .04294, .01514, .00042, .00000,
3336 + .00000, .00018, .00014,
3337 + .15918, .04013, .01310, .00038, .00000,
3338 + .00000, .00017, .00014,
3339 + .15078, .03787, .01160, .00033, .00000,
3340 + .00000, .00015, .00013,
3341 + .14314, .03583, .01036, .00032, .00000,
3342 + .00000, .00014, .00012,
3343 + .13549, .03381, .00921, .00031, .00000,
3344 + .00000, .00013, .00011 /
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 + .12921, .03215, .00834, .00029, .00000,
3347 + .00000, .00012, .00010,
3348 + .12345, .03063, .00760, .00027, .00000,
3349 + .00000, .00011, .00010,
3350 + .11908, .02948, .00706, .00026, .00000,
3351 + .00000, .00011, .00009,
3352 + .11034, .02719, .00607, .00024, .00000,
3353 + .00000, .00010, .00008,
3354 + .10336, .02537, .00534, .00022, .00000,
3355 + .00000, .00009, .00008,
3356 + .09614, .02348, .00465, .00019, .00000,
3357 + .00000, .00008, .00007,
3358 + .08919, .02170, .00404, .00017, .00000,
3359 + .00000, .00008, .00007,
3360 + .08333, .02020, .00358, .00017, .00000,
3361 + .00000, .00007, .00006 /
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 + .07788, .01880, .00318, .00016, .00000,
3364 + .00000, .00007, .00005,
3365 + .07366, .01773, .00290, .00014, .00000,
3366 + .00000, .00006, .00005,
3367 + .06886, .01651, .00259, .00014, .00000,
3368 + .00000, .00005, .00005,
3369 + .06490, .01551, .00235, .00013, .00000,
3370 + .00000, .00005, .00004,
3371 + .06150, .01466, .00216, .00012, .00000,
3372 + .00000, .00005, .00004,
3373 + .05744, .01365, .00195, .00012, .00000,
3374 + .00000, .00004, .00004,
3375 + .05390, .01276, .00177, .00011, .00000,
3376 + .00000, .00004, .00003,
3377 + .05081, .01199, .00162, .00011, .00000,
3378 + .00000, .00004, .00003 /
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 + .04792, .01127, .00148, .00009, .00000,
3381 + .00000, .00004, .00003,
3382 + .04526, .01062, .00137, .00008, .00000,
3383 + .00000, .00003, .00003,
3384 + .04289, .01003, .00127, .00007, .00000,
3385 + .00000, .00003, .00003,
3386 + .04077, .00951, .00118, .00007, .00000,
3387 + .00000, .00003, .00003,
3388 + .03877, .00902, .00110, .00006, .00000,
3389 + .00000, .00003, .00003,
3390 + .03689, .00856, .00103, .00006, .00000,
3391 + .00000, .00003, .00002,
3392 + .03520, .00815, .00097, .00006, .00000,
3393 + .00000, .00003, .00002,
3394 + .03368, .00778, .00091, .00006, .00000,
3395 + .00000, .00003, .00002 /
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 + .03221, .00743, .00086, .00005, .00000,
3398 + .00000, .00002, .00003,
3399 + .03083, .00710, .00081, .00005, .00000,
3400 + .00000, .00002, .00003,
3401 + .02957, .00679, .00077, .00005, .00000,
3402 + .00000, .00002, .00002,
3403 + .02843, .00652, .00073, .00005, .00000,
3404 + .00000, .00002, .00002,
3405 + .02733, .00625, .00069, .00004, .00000,
3406 + .00000, .00002, .00002 /
3407 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
3408 + .14244, .03374, .01019, .00021, .00000,
3409 + .00000, .00006, .00005,
3410 + .13379, .03157, .00886, .00019, .00000,
3411 + .00000, .00006, .00005,
3412 + .12197, .02862, .00725, .00018, .00000,
3413 + .00000, .00005, .00004,
3414 + .11407, .02666, .00628, .00015, .00000,
3415 + .00000, .00005, .00004,
3416 + .10637, .02475, .00542, .00012, .00000,
3417 + .00000, .00005, .00004,
3418 + .10015, .02322, .00480, .00012, .00000,
3419 + .00000, .00004, .00003,
3420 + .09456, .02185, .00428, .00011, .00000,
3421 + .00000, .00004, .00004,
3422 + .08902, .02050, .00381, .00010, .00000,
3423 + .00000, .00004, .00004 /
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 + .08447, .01939, .00345, .00009, .00000,
3426 + .00000, .00003, .00003,
3427 + .08032, .01839, .00314, .00009, .00000,
3428 + .00000, .00003, .00003,
3429 + .07718, .01764, .00293, .00009, .00000,
3430 + .00000, .00003, .00002,
3431 + .07094, .01614, .00252, .00009, .00000,
3432 + .00000, .00003, .00002,
3433 + .06600, .01496, .00222, .00008, .00000,
3434 + .00000, .00002, .00002,
3435 + .06093, .01375, .00194, .00007, .00000,
3436 + .00000, .00003, .00002,
3437 + .05611, .01260, .00169, .00006, .00000,
3438 + .00000, .00003, .00002,
3439 + .05207, .01165, .00150, .00005, .00000,
3440 + .00000, .00002, .00002 /
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 + .04833, .01078, .00134, .00005, .00000,
3443 + .00000, .00002, .00002,
3444 + .04546, .01011, .00122, .00004, .00000,
3445 + .00000, .00002, .00001,
3446 + .04222, .00935, .00109, .00004, .00000,
3447 + .00000, .00002, .00001,
3448 + .03956, .00873, .00099, .00004, .00000,
3449 + .00000, .00002, .00001,
3450 + .03729, .00821, .00091, .00003, .00000,
3451 + .00000, .00002, .00001,
3452 + .03461, .00759, .00082, .00003, .00000,
3453 + .00000, .00001, .00001,
3454 + .03228, .00706, .00075, .00003, .00000,
3455 + .00000, .00001, .00001,
3456 + .03025, .00659, .00068, .00003, .00000,
3457 + .00000, .00002, .00001 /
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 + .02835, .00617, .00063, .00003, .00000,
3460 + .00000, .00001, .00001,
3461 + .02663, .00577, .00058, .00002, .00000,
3462 + .00000, .00001, .00001,
3463 + .02511, .00543, .00054, .00002, .00000,
3464 + .00000, .00001, .00001,
3465 + .02376, .00512, .00050, .00002, .00000,
3466 + .00000, .00001, .00001,
3467 + .02248, .00484, .00046, .00002, .00000,
3468 + .00000, .00001, .00001,
3469 + .02130, .00457, .00043, .00002, .00000,
3470 + .00000, .00001, .00001,
3471 + .02023, .00433, .00041, .00002, .00000,
3472 + .00000, .00001, .00001,
3473 + .01927, .00412, .00038, .00002, .00000,
3474 + .00000, .00001, .00001 /
3475 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/
3476 + .01836, .00392, .00036, .00001, .00000,
3477 + .00000, .00001, .00001,
3478 + .01750, .00373, .00034, .00001, .00000,
3479 + .00000, .00001, .00001,
3480 + .01672, .00355, .00032, .00001, .00000,
3481 + .00000, .00001, .00001,
3482 + .01602, .00340, .00030, .00001, .00000,
3483 + .00000, .00001, .00000,
3484 + .01534, .00325, .00029, .00001, .00000,
3485 + .00000, .00001, .00000 /
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 + .09042, .01961, .00362, .00007, .00000,
3488 + .00000, .00001, .00002,
3489 + .08436, .01823, .00316, .00006, .00000,
3490 + .00000, .00002, .00001,
3491 + .07615, .01637, .00259, .00006, .00000,
3492 + .00000, .00001, .00000,
3493 + .07071, .01514, .00226, .00005, .00000,
3494 + .00000, .00001, .00001,
3495 + .06545, .01396, .00196, .00005, .00000,
3496 + .00000, .00001, .00001,
3497 + .06124, .01302, .00174, .00004, .00000,
3498 + .00000, .00001, .00001,
3499 + .05748, .01218, .00156, .00003, .00000,
3500 + .00000, .00001, .00001,
3501 + .05378, .01135, .00140, .00002, .00000,
3502 + .00000, .00000, .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 + .05074, .01068, .00127, .00003, .00000,
3505 + .00000, .00001, .00001,
3506 + .04800, .01008, .00117, .00003, .00000,
3507 + .00000, .00001, .00001,
3508 + .04595, .00963, .00109, .00002, .00000,
3509 + .00000, .00001, .00001,
3510 + .04188, .00874, .00095, .00002, .00000,
3511 + .00000, .00001, .00001,
3512 + .03868, .00804, .00084, .00002, .00000,
3513 + .00000, .00001, .00001,
3514 + .03542, .00733, .00074, .00002, .00000,
3515 + .00000, .00000, .00001,
3516 + .03232, .00667, .00064, .00002, .00000,
3517 + .00000, .00000, .00001,
3518 + .02980, .00612, .00058, .00001, .00000,
3519 + .00000, .00000, .00000 /
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 + .02745, .00562, .00051, .00001, .00000,
3522 + .00000, .00000, .00000,
3523 + .02566, .00524, .00047, .00002, .00000,
3524 + .00000, .00000, .00000,
3525 + .02366, .00481, .00042, .00001, .00000,
3526 + .00000, .00000, .00000,
3527 + .02203, .00447, .00038, .00001, .00000,
3528 + .00000, .00000, .00000,
3529 + .02065, .00417, .00035, .00001, .00000,
3530 + .00000, .00000, .00000,
3531 + .01902, .00383, .00032, .00001, .00000,
3532 + .00000, .00000, .00000,
3533 + .01762, .00354, .00029, .00001, .00000,
3534 + .00000, .00000, .00000,
3535 + .01642, .00329, .00026, .00001, .00000,
3536 + .00000, .00000, .00000 /
3537 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
3538 + .01530, .00305, .00024, .00001, .00000,
3539 + .00000, .00000, .00000,
3540 + .01428, .00284, .00022, .00001, .00000,
3541 + .00000, .00000, .00000,
3542 + .01339, .00266, .00021, .00001, .00000,
3543 + .00000, .00000, .00000,
3544 + .01260, .00250, .00019, .00001, .00000,
3545 + .00000, .00000, .00000,
3546 + .01186, .00235, .00018, .00000, .00000,
3547 + .00000, .00000, .00000,
3548 + .01118, .00221, .00017, .00000, .00000,
3549 + .00000, .00000, .00000,
3550 + .01057, .00208, .00015, .00000, .00000,
3551 + .00000, .00000, .00000,
3552 + .01002, .00197, .00015, .00000, .00000,
3553 + .00000, .00000, .00000 /
3554 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/
3555 + .00950, .00186, .00014, .00001, .00000,
3556 + .00000, .00000, .00000,
3557 + .00902, .00177, .00013, .00001, .00000,
3558 + .00000, .00000, .00000,
3559 + .00858, .00168, .00012, .00000, .00000,
3560 + .00000, .00000, .00000,
3561 + .00819, .00160, .00011, .00000, .00000,
3562 + .00000, .00000, .00000,
3563 + .00781, .00152, .00011, .00000, .00000,
3564 + .00000, .00000, .00000 /
3565 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/
3566 + .05167, .01016, .00104, .00003, .00000,
3567 + .00000, .00000, .00000,
3568 + .04784, .00938, .00092, .00002, .00000,
3569 + .00000, .00000, .00000,
3570 + .04273, .00833, .00077, .00001, .00000,
3571 + .00000, .00000, .00000,
3572 + .03936, .00764, .00068, .00001, .00000,
3573 + .00000, .00000, .00000,
3574 + .03612, .00699, .00060, .00002, .00000,
3575 + .00000, .00000, .00000,
3576 + .03356, .00647, .00055, .00001, .00000,
3577 + .00000, .00000, .00000,
3578 + .03129, .00602, .00050, .00001, .00000,
3579 + .00000, .00000, .00000,
3580 + .02906, .00557, .00045, .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 + .02726, .00521, .00041, .00001, .00000,
3584 + .00000, .00000, .00000,
3585 + .02564, .00489, .00038, .00001, .00000,
3586 + .00000, .00000, .00000,
3587 + .02442, .00465, .00036, .00001, .00000,
3588 + .00000, .00000, .00000,
3589 + .02205, .00418, .00031, .00001, .00000,
3590 + .00000, .00000, .00000,
3591 + .02020, .00381, .00028, .00001, .00000,
3592 + .00000, .00000, .00000,
3593 + .01833, .00345, .00025, .00000, .00000,
3594 + .00000, .00000, .00000,
3595 + .01658, .00310, .00022, .00000, .00000,
3596 + .00000, .00000, .00000,
3597 + .01516, .00283, .00020, .00000, .00000,
3598 + .00000, .00000, .00000 /
3599 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/
3600 + .01385, .00257, .00018, .00000, .00000,
3601 + .00000, .00000, .00000,
3602 + .01286, .00238, .00016, .00000, .00000,
3603 + .00000, .00000, .00000,
3604 + .01175, .00217, .00014, .00000, .00000,
3605 + .00000, .00000, .00000,
3606 + .01087, .00200, .00013, .00000, .00000,
3607 + .00000, .00000, .00000,
3608 + .01012, .00186, .00012, .00000, .00000,
3609 + .00000, .00000, .00000,
3610 + .00925, .00169, .00011, .00000, .00000,
3611 + .00000, .00000, .00000,
3612 + .00850, .00155, .00010, .00000, .00000,
3613 + .00000, .00000, .00000,
3614 + .00787, .00143, .00009, .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 + .00728, .00132, .00008, .00000, .00000,
3618 + .00000, .00000, .00000,
3619 + .00675, .00122, .00008, .00000, .00000,
3620 + .00000, .00000, .00000,
3621 + .00629, .00114, .00007, .00000, .00000,
3622 + .00000, .00000, .00000,
3623 + .00589, .00106, .00006, .00000, .00000,
3624 + .00000, .00000, .00000,
3625 + .00551, .00099, .00006, .00000, .00000,
3626 + .00000, .00000, .00000,
3627 + .00516, .00093, .00006, .00000, .00000,
3628 + .00000, .00000, .00000,
3629 + .00485, .00087, .00005, .00000, .00000,
3630 + .00000, .00000, .00000,
3631 + .00458, .00082, .00005, .00000, .00000,
3632 + .00000, .00000, .00000 /
3633 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=33,37)/
3634 + .00432, .00077, .00005, .00000, .00000,
3635 + .00000, .00000, .00000,
3636 + .00408, .00073, .00004, .00000, .00000,
3637 + .00000, .00000, .00000,
3638 + .00386, .00069, .00004, .00000, .00000,
3639 + .00000, .00000, .00000,
3640 + .00367, .00065, .00004, .00000, .00000,
3641 + .00000, .00000, .00000,
3642 + .00348, .00062, .00004, .00000, .00000,
3643 + .00000, .00000, .00000 /
3644 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/
3645 + .02533, .00444, .00022, .00000, .00000,
3646 + .00000, .00000, .00000,
3647 + .02325, .00406, .00021, .00000, .00000,
3648 + .00000, .00000, .00000,
3649 + .02050, .00356, .00018, .00000, .00000,
3650 + .00000, .00000, .00000,
3651 + .01871, .00324, .00017, .00000, .00000,
3652 + .00000, .00000, .00000,
3653 + .01701, .00294, .00015, .00000, .00000,
3654 + .00000, .00000, .00000,
3655 + .01567, .00270, .00014, .00000, .00000,
3656 + .00000, .00000, .00000,
3657 + .01450, .00249, .00013, .00000, .00000,
3658 + .00000, .00000, .00000,
3659 + .01335, .00229, .00012, .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 + .01244, .00212, .00011, .00000, .00000,
3663 + .00000, .00000, .00000,
3664 + .01162, .00198, .00010, .00000, .00000,
3665 + .00000, .00000, .00000,
3666 + .01102, .00187, .00010, .00000, .00000,
3667 + .00000, .00000, .00000,
3668 + .00984, .00166, .00009, .00000, .00000,
3669 + .00000, .00000, .00000,
3670 + .00892, .00150, .00008, .00000, .00000,
3671 + .00000, .00000, .00000,
3672 + .00801, .00135, .00007, .00000, .00000,
3673 + .00000, .00000, .00000,
3674 + .00717, .00120, .00006, .00000, .00000,
3675 + .00000, .00000, .00000,
3676 + .00649, .00108, .00006, .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 + .00587, .00098, .00005, .00000, .00000,
3680 + .00000, .00000, .00000,
3681 + .00541, .00090, .00005, .00000, .00000,
3682 + .00000, .00000, .00000,
3683 + .00490, .00081, .00004, .00000, .00000,
3684 + .00000, .00000, .00000,
3685 + .00449, .00074, .00004, .00000, .00000,
3686 + .00000, .00000, .00000,
3687 + .00415, .00068, .00003, .00000, .00000,
3688 + .00000, .00000, .00000,
3689 + .00376, .00062, .00003, .00000, .00000,
3690 + .00000, .00000, .00000,
3691 + .00342, .00056, .00003, .00000, .00000,
3692 + .00000, .00000, .00000,
3693 + .00314, .00051, .00002, .00000, .00000,
3694 + .00000, .00000, .00000 /
3695 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/
3696 + .00288, .00047, .00002, .00000, .00000,
3697 + .00000, .00000, .00000,
3698 + .00265, .00043, .00002, .00000, .00000,
3699 + .00000, .00000, .00000,
3700 + .00245, .00040, .00002, .00000, .00000,
3701 + .00000, .00000, .00000,
3702 + .00228, .00037, .00002, .00000, .00000,
3703 + .00000, .00000, .00000,
3704 + .00212, .00034, .00002, .00000, .00000,
3705 + .00000, .00000, .00000,
3706 + .00197, .00032, .00002, .00000, .00000,
3707 + .00000, .00000, .00000,
3708 + .00184, .00030, .00001, .00000, .00000,
3709 + .00000, .00000, .00000,
3710 + .00173, .00028, .00001, .00000, .00000,
3711 + .00000, .00000, .00000 /
3712 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/
3713 + .00162, .00026, .00001, .00000, .00000,
3714 + .00000, .00000, .00000,
3715 + .00152, .00024, .00001, .00000, .00000,
3716 + .00000, .00000, .00000,
3717 + .00143, .00023, .00001, .00000, .00000,
3718 + .00000, .00000, .00000,
3719 + .00135, .00022, .00001, .00000, .00000,
3720 + .00000, .00000, .00000,
3721 + .00128, .00020, .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 + .00252, .00032, .00000, .00000, .00000,
3725 + .00000, .00000, .00000,
3726 + .00225, .00029, .00000, .00000, .00000,
3727 + .00000, .00000, .00000,
3728 + .00191, .00024, .00000, .00000, .00000,
3729 + .00000, .00000, .00000,
3730 + .00170, .00021, .00000, .00000, .00000,
3731 + .00000, .00000, .00000,
3732 + .00150, .00019, .00000, .00000, .00000,
3733 + .00000, .00000, .00000,
3734 + .00135, .00017, .00000, .00000, .00000,
3735 + .00000, .00000, .00000,
3736 + .00122, .00015, .00000, .00000, .00000,
3737 + .00000, .00000, .00000,
3738 + .00110, .00014, .00000, .00000, .00000,
3739 + .00000, .00000, .00000 /
3740 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/
3741 + .00101, .00013, .00000, .00000, .00000,
3742 + .00000, .00000, .00000,
3743 + .00092, .00011, .00000, .00000, .00000,
3744 + .00000, .00000, .00000,
3745 + .00086, .00011, .00000, .00000, .00000,
3746 + .00000, .00000, .00000,
3747 + .00074, .00009, .00000, .00000, .00000,
3748 + .00000, .00000, .00000,
3749 + .00066, .00008, .00000, .00000, .00000,
3750 + .00000, .00000, .00000,
3751 + .00057, .00007, .00000, .00000, .00000,
3752 + .00000, .00000, .00000,
3753 + .00049, .00006, .00000, .00000, .00000,
3754 + .00000, .00000, .00000,
3755 + .00044, .00005, .00000, .00000, .00000,
3756 + .00000, .00000, .00000 /
3757 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/
3758 + .00038, .00005, .00000, .00000, .00000,
3759 + .00000, .00000, .00000,
3760 + .00034, .00004, .00000, .00000, .00000,
3761 + .00000, .00000, .00000,
3762 + .00030, .00004, .00000, .00000, .00000,
3763 + .00000, .00000, .00000,
3764 + .00027, .00003, .00000, .00000, .00000,
3765 + .00000, .00000, .00000,
3766 + .00025, .00003, .00000, .00000, .00000,
3767 + .00000, .00000, .00000,
3768 + .00022, .00003, .00000, .00000, .00000,
3769 + .00000, .00000, .00000,
3770 + .00019, .00002, .00000, .00000, .00000,
3771 + .00000, .00000, .00000,
3772 + .00017, .00002, .00000, .00000, .00000,
3773 + .00000, .00000, .00000 /
3774 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
3775 + .00015, .00002, .00000, .00000, .00000,
3776 + .00000, .00000, .00000,
3777 + .00014, .00002, .00000, .00000, .00000,
3778 + .00000, .00000, .00000,
3779 + .00013, .00002, .00000, .00000, .00000,
3780 + .00000, .00000, .00000,
3781 + .00011, .00001, .00000, .00000, .00000,
3782 + .00000, .00000, .00000,
3783 + .00010, .00001, .00000, .00000, .00000,
3784 + .00000, .00000, .00000,
3785 + .00009, .00001, .00000, .00000, .00000,
3786 + .00000, .00000, .00000,
3787 + .00009, .00001, .00000, .00000, .00000,
3788 + .00000, .00000, .00000,
3789 + .00008, .00001, .00000, .00000, .00000,
3790 + .00000, .00000, .00000 /
3791 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
3792 + .00007, .00001, .00000, .00000, .00000,
3793 + .00000, .00000, .00000,
3794 + .00007, .00001, .00000, .00000, .00000,
3795 + .00000, .00000, .00000,
3796 + .00006, .00001, .00000, .00000, .00000,
3797 + .00000, .00000, .00000,
3798 + .00006, .00001, .00000, .00000, .00000,
3799 + .00000, .00000, .00000,
3800 + .00005, .00001, .00000, .00000, .00000,
3801 + .00000, .00000, .00000 /
3802 data xx/1d-5,2d-5,4d-5,6d-5,8d-5,
3803 . 1d-4,2d-4,4d-4,6d-4,8d-4,
3804 . 1d-3,2d-3,4d-3,6d-3,8d-3,
3805 . 1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2,
3806 . .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0,
3807 . .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0,
3808 . .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0,
3810 data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1,
3811 . 1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2,
3812 . 1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4,
3813 . 1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6,
3814 . 1.8d6,3.2d6,5.6d6,1d7/
3815 data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/
3816 data n0/3,4,5,9,9,9,9,9/
3817 DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
3822 if(init.ne.0) goto 10
3823 C open(unit=1,file='ft24a.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