2 subroutine sfmrs_99d9(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 #if defined(CERNLIB_DOUBLE)
11 #if defined(CERNLIB_SINGLE)
14 + f(np,nx,nq+1),qq(nq),xx(nx),g(np),n0(np)
15 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,8)/
16 + .00643, .00286, 1.15221, .90723, .00000,
17 + .00000, .43298, .91946,
18 + .00657, .00291, 2.39079, .94735, .00000,
19 + .00000, .47857, .95967,
20 + .00676, .00299, 4.81465, 1.03033, .01960,
21 + .00000, .56938, 1.04276,
22 + .00691, .00306, 7.12570, 1.10789, .06910,
23 + .00000, .65247, 1.12039,
24 + .00707, .00312, 9.93370, 1.20594, .18281,
25 + .00000, .75610, 1.21849,
26 + .00720, .00318, 12.84175, 1.30576, .29061,
27 + .00000, .86063, 1.31835,
28 + .00733, .00324, 16.11380, 1.41334, .40858,
29 + .00000, .97267, 1.42598,
30 + .00747, .00331, 20.13676, 1.54108, .55059,
31 + .00000, 1.10502, 1.55377 /
32 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
33 + .00760, .00336, 24.06347, 1.66558, .68269,
34 + .00000, 1.23344, 1.67828,
35 + .00772, .00342, 28.28434, 1.79717, .82268,
36 + .00000, 1.36878, 1.80992,
37 + .00781, .00346, 31.98470, 1.90944, .94450,
38 + .00000, 1.48394, 1.92218,
39 + .00802, .00356, 40.80279, 2.17574, 1.22712,
40 + .00000, 1.75629, 2.18851,
41 + .00820, .00365, 48.61885, 2.43269, 1.49733,
42 + .36278, 2.01831, 2.44548,
43 + .00841, .00375, 58.85319, 2.75366, 1.83505,
44 + .75384, 2.34482, 2.76646,
45 + .00863, .00385, 70.90311, 3.12605, 2.22586,
46 + 1.16298, 2.72284, 3.13886,
47 + .00883, .00395, 83.09480, 3.49936, 2.61679,
48 + 1.57247, 3.10110, 3.51215 /
49 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
50 + .00904, .00405, 96.67834, 3.91271, 3.04925,
51 + 2.02361, 3.51934, 3.92550,
52 + .00921, .00414, 108.90162, 4.28448, 3.43610,
53 + 2.42247, 3.89509, 4.29727,
54 + .00942, .00424, 124.88783, 4.77129, 3.94069,
55 + 2.94066, 4.38664, 4.78407,
56 + .00962, .00434, 140.20115, 5.23696, 4.42387,
57 + 3.43919, 4.85640, 5.24972,
58 + .00980, .00444, 155.23244, 5.69421, 4.89828,
59 + 3.92900, 5.31732, 5.70695,
60 + .01003, .00455, 175.45062, 6.31443, 5.53750,
61 + 4.58244, 5.94211, 6.32714,
62 + .01024, .00466, 195.85529, 6.94230, 6.18488,
63 + 5.24606, 6.57418, 6.95498,
64 + .01044, .00476, 216.29272, 7.57252, 6.83565,
65 + 5.91550, 7.20825, 7.58516 /
66 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
67 + .01066, .00487, 237.61427, 8.23860, 7.51859,
68 + 6.61095, 7.87812, 8.25122,
69 + .01086, .00497, 259.72108, 8.93159, 8.23034,
70 + 7.33870, 8.57473, 8.94416,
71 + .01106, .00507, 281.70818, 9.62513, 8.94219,
72 + 8.06645, 9.27164, 9.63768,
73 + .01125, .00518, 303.16472, 10.30926, 9.64206,
74 + 8.77907, 9.95891, 10.32177,
75 + .01144, .00527, 325.84003, 11.03400, 10.38514,
76 + 9.53869, 10.68674, 11.04649,
77 + .01163, .00537, 348.68738, 11.77433, 11.14064,
78 + 10.30642, 11.43005, 11.78677,
79 + .01181, .00547, 371.50490, 12.51470, 11.89834,
80 + 11.08002, 12.17321, 12.52711,
81 + .01199, .00556, 393.46053, 13.23703, 12.63442,
82 + 11.82739, 12.89816, 13.24941 /
83 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
84 + .01217, .00565, 416.55419, 13.99868, 13.41206,
85 + 12.61949, 13.66240, 14.01102,
86 + .01234, .00574, 439.83066, 14.77473, 14.20266,
87 + 13.42280, 14.44098, 14.78703,
88 + .01251, .00584, 462.70915, 15.54247, 14.98465,
89 + 14.21752, 15.21109, 15.55474,
90 + .01268, .00592, 485.09098, 16.29726, 15.75391,
91 + 15.00025, 15.96812, 16.30949,
92 + .01284, .00601, 507.96722, 17.07835, 16.54765,
93 + 15.80501, 16.75142, 17.09055 /
94 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
95 + .00875, .00395, 1.06318, .76935, .00000,
96 + .00000, .36781, .77651,
97 + .00892, .00403, 2.18022, .80636, .00000,
98 + .00000, .40906, .81356,
99 + .00919, .00415, 4.31767, .87959, .01790,
100 + .00000, .48838, .88684,
101 + .00939, .00424, 6.31648, .94630, .05987,
102 + .00000, .55938, .95359,
103 + .00961, .00434, 8.70451, 1.02914, .15588,
104 + .00000, .64656, 1.03646,
105 + .00979, .00442, 11.14190, 1.11234, .24575,
106 + .00000, .73342, 1.11968,
107 + .00997, .00451, 13.85152, 1.20123, .34311,
108 + .00000, .82575, 1.20860,
109 + .01016, .00460, 17.14388, 1.30591, .45929,
110 + .00000, .93399, 1.31329 /
111 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
112 + .01033, .00468, 20.32083, 1.40702, .56636,
113 + .00000, 1.03814, 1.41443,
114 + .01050, .00476, 23.70281, 1.51320, .67906,
115 + .00000, 1.14720, 1.52061,
116 + .01063, .00483, 26.64444, 1.60331, .77657,
117 + .00000, 1.23956, 1.61073,
118 + .01091, .00496, 33.57932, 1.81535, 1.00087,
119 + .00000, 1.45627, 1.82279,
120 + .01116, .00509, 39.62250, 2.01809, 1.21328,
121 + .28557, 1.66291, 2.02553,
122 + .01145, .00523, 47.45151, 2.26917, 1.47638,
123 + .59056, 1.91827, 2.27662,
124 + .01175, .00538, 56.55169, 2.55786, 1.77800,
125 + .90598, 2.21128, 2.56531,
126 + .01203, .00552, 65.64864, 2.84478, 2.07708,
127 + 1.21884, 2.50204, 2.85223 /
128 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
129 + .01232, .00567, 75.67214, 3.15997, 2.40528,
130 + 1.56063, 2.82100, 3.16742,
131 + .01255, .00578, 84.60175, 3.44139, 2.69667,
132 + 1.86045, 3.10547, 3.44883,
133 + .01284, .00593, 96.16601, 3.80722, 3.07397,
134 + 2.24705, 3.47494, 3.81466,
135 + .01309, .00606, 107.13814, 4.15470, 3.43274,
136 + 2.61639, 3.82556, 4.16213,
137 + .01334, .00619, 117.81814, 4.49375, 3.78283,
138 + 2.97700, 4.16744, 4.50118,
139 + .01365, .00635, 132.04842, 4.95037, 4.25111,
140 + 3.45446, 4.62758, 4.95778,
141 + .01395, .00650, 146.27591, 5.40933, 4.72206,
142 + 3.93599, 5.08978, 5.41674,
143 + .01422, .00665, 160.40662, 5.86703, 5.19249,
144 + 4.41874, 5.55045, 5.87443 /
145 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
146 + .01450, .00680, 175.01796, 6.34749, 5.68275,
147 + 4.91659, 6.03381, 6.35486,
148 + .01478, .00695, 190.05157, 6.84436, 6.19075,
149 + 5.43465, 6.53347, 6.85172,
150 + .01505, .00709, 204.89275, 7.33872, 6.69592,
151 + 5.94976, 7.03042, 7.34607,
152 + .01530, .00721, 219.26903, 7.82358, 7.18971,
153 + 6.45117, 7.51768, 7.83092,
154 + .01556, .00736, 234.36911, 8.33469, 7.71156,
155 + 6.98329, 8.03118, 8.34201,
156 + .01581, .00749, 249.47288, 8.85385, 8.23907,
157 + 7.51786, 8.55264, 8.86116,
158 + .01606, .00762, 264.47498, 9.37073, 8.76591,
159 + 8.05441, 9.07167, 9.37802,
160 + .01629, .00774, 278.81402, 9.87241, 9.27502,
161 + 8.56991, 9.57537, 9.87970 /
162 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
163 + .01653, .00787, 293.82189, 10.39924, 9.81081,
164 + 9.11429, 10.10419, 10.40650,
165 + .01676, .00799, 308.85804, 10.93351, 10.35296,
166 + 9.66372, 10.64041, 10.94076,
167 + .01699, .00811, 323.56141, 11.45986, 10.88704,
168 + 10.20511, 11.16858, 11.46710,
169 + .01721, .00823, 337.87843, 11.97536, 11.41048,
170 + 10.73641, 11.68580, 11.98258,
171 + .01743, .00835, 352.42892, 12.50648, 11.94819,
172 + 11.28016, 12.21864, 12.51368 /
173 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
174 + .01187, .00545, .98016, .65266, .00000,
175 + .00000, .31299, .65632,
176 + .01212, .00557, 1.98744, .68648, .00000,
177 + .00000, .35011, .69016,
178 + .01249, .00574, 3.87117, .75086, .01652,
179 + .00000, .41921, .75458,
180 + .01276, .00588, 5.59852, .80812, .05201,
181 + .00000, .47979, .81183,
182 + .01306, .00602, 7.62684, .87798, .13298,
183 + .00000, .55301, .88169,
184 + .01332, .00614, 9.66645, .94718, .20776,
185 + .00000, .62503, .95092,
186 + .01356, .00626, 11.90605, 1.02045, .28800,
187 + .00000, .70096, 1.02419,
188 + .01382, .00640, 14.59464, 1.10601, .38288,
189 + .00000, .78927, 1.10976 /
190 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
191 + .01406, .00651, 17.15863, 1.18791, .46953,
192 + .00000, .87351, 1.19166,
193 + .01429, .00663, 19.86115, 1.27331, .56007,
194 + .00000, .96112, 1.27706,
195 + .01446, .00671, 22.19294, 1.34544, .63798,
196 + .00000, 1.03497, 1.34919,
197 + .01484, .00692, 27.63007, 1.51371, .81565,
198 + .00000, 1.20683, 1.51746,
199 + .01520, .00709, 32.28506, 1.67310, .98226,
200 + .22420, 1.36924, 1.67685,
201 + .01558, .00730, 38.25023, 1.86879, 1.18678,
202 + .46185, 1.56820, 1.87255,
203 + .01599, .00751, 45.09328, 2.09170, 1.41902,
204 + .70476, 1.79442, 2.09546,
205 + .01636, .00770, 51.84985, 2.31132, 1.64727,
206 + .94351, 2.01697, 2.31509 /
207 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
208 + .01675, .00791, 59.21041, 2.55063, 1.89567,
209 + 1.20211, 2.25916, 2.55440,
210 + .01707, .00807, 65.70031, 2.76270, 2.11454,
211 + 1.42715, 2.47358, 2.76647,
212 + .01747, .00829, 74.02059, 3.03637, 2.39585,
213 + 1.71514, 2.75001, 3.04013,
214 + .01782, .00846, 81.83791, 3.29443, 2.66143,
215 + 1.98831, 3.01048, 3.29820,
216 + .01815, .00864, 89.38195, 3.54463, 2.91894,
217 + 2.25332, 3.26283, 3.54839,
218 + .01857, .00886, 99.33618, 3.87915, 3.26084,
219 + 2.60150, 3.60003, 3.88291,
220 + .01896, .00907, 109.19308, 4.21294, 3.60224,
221 + 2.95016, 3.93629, 4.21669,
222 + .01934, .00928, 118.89874, 4.54362, 3.94107,
223 + 3.29750, 4.26923, 4.54738 /
224 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
225 + .01971, .00948, 128.84197, 4.88833, 4.29165,
226 + 3.65300, 4.61615, 4.89207,
227 + .02009, .00968, 138.99248, 5.24262, 4.65278,
228 + 4.02081, 4.97258, 5.24638,
229 + .02046, .00987, 148.93655, 5.59306, 5.00982,
230 + 4.38441, 5.32499, 5.59682,
231 + .02079, .01006, 158.49521, 5.93473, 5.35672,
232 + 4.73617, 5.66850, 5.93849,
233 + .02113, .01024, 168.47246, 6.29312, 5.72161,
234 + 5.10778, 6.02870, 6.29687,
235 + .02148, .01043, 178.37605, 6.65504, 6.08826,
236 + 5.47878, 6.39237, 6.65879,
237 + .02181, .01061, 188.15859, 7.01373, 6.45292,
238 + 5.84970, 6.75271, 7.01748,
239 + .02212, .01078, 197.44295, 7.36005, 6.80335,
240 + 6.20400, 7.10054, 7.36380 /
241 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
242 + .02243, .01096, 207.11174, 7.72221, 7.17072,
243 + 6.57678, 7.46423, 7.72595,
244 + .02275, .01112, 216.73795, 8.08770, 7.54064,
245 + 6.95115, 7.83121, 8.09145,
246 + .02306, .01129, 226.10106, 8.44626, 7.90354,
247 + 7.31851, 8.19117, 8.45002,
248 + .02335, .01144, 235.17419, 8.79606, 8.25788,
249 + 7.67773, 8.54228, 8.79981,
250 + .02364, .01161, 244.34017, 9.15484, 8.62019,
251 + 8.04357, 8.90237, 9.15859 /
252 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
253 + .01419, .00658, .93405, .59301, .00000,
254 + .00000, .28513, .59526,
255 + .01449, .00672, 1.88230, .62495, .00000,
256 + .00000, .31994, .62721,
257 + .01493, .00695, 3.63129, .68454, .01588,
258 + .00000, .38360, .68679,
259 + .01527, .00711, 5.21676, .73679, .04799,
260 + .00000, .43872, .73905,
261 + .01562, .00728, 7.05928, .79993, .12120,
262 + .00000, .50476, .80220,
263 + .01592, .00744, 8.89557, .86199, .18828,
264 + .00000, .56923, .86425,
265 + .01622, .00760, 10.89709, .92733, .25985,
266 + .00000, .63685, .92960,
267 + .01655, .00776, 13.28256, 1.00325, .34405,
268 + .00000, .71513, 1.00551 /
269 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
270 + .01682, .00790, 15.54150, 1.07552, .42052,
271 + .00000, .78942, 1.07779,
272 + .01709, .00805, 17.90836, 1.15058, .50008,
273 + .00000, .86638, 1.15285,
274 + .01731, .00815, 19.94076, 1.21377, .56833,
275 + .00000, .93105, 1.21604,
276 + .01777, .00840, 24.64893, 1.36048, .72315,
277 + .00000, 1.08083, 1.36275,
278 + .01818, .00862, 28.63723, 1.49866, .86752,
279 + .19422, 1.22159, 1.50094,
280 + .01865, .00886, 33.71456, 1.66744, 1.04379,
281 + .39947, 1.39318, 1.66972,
282 + .01914, .00913, 39.49339, 1.85863, 1.24281,
283 + .60777, 1.58720, 1.86091,
284 + .01959, .00936, 45.15702, 2.04603, 1.43738,
285 + .81143, 1.77710, 2.04832 /
286 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
287 + .02006, .00960, 51.28501, 2.24925, 1.64811,
288 + 1.03092, 1.98278, 2.25153,
289 + .02044, .00981, 56.65475, 2.42853, 1.83296,
290 + 1.22103, 2.16406, 2.43082,
291 + .02091, .01007, 63.49726, 2.65886, 2.06946,
292 + 1.46320, 2.39676, 2.66115,
293 + .02134, .01029, 69.88848, 2.87514, 2.29179,
294 + 1.69193, 2.61509, 2.87744,
295 + .02172, .01050, 76.02458, 3.08404, 2.50656,
296 + 1.91300, 2.82583, 3.08633,
297 + .02222, .01077, 84.07352, 3.36212, 2.79046,
298 + 2.20211, 3.10619, 3.36442,
299 + .02270, .01103, 91.99775, 3.63839, 3.07271,
300 + 2.49037, 3.38456, 3.64069,
301 + .02315, .01127, 99.76008, 3.91103, 3.35179,
302 + 2.77648, 3.65913, 3.91334 /
303 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
304 + .02360, .01152, 107.66784, 4.19404, 3.63930,
305 + 3.06798, 3.94402, 4.19635,
306 + .02404, .01176, 115.70248, 4.48387, 3.93441,
307 + 3.36854, 4.23568, 4.48620,
308 + .02447, .01199, 123.53741, 4.76954, 4.22517,
309 + 3.66462, 4.52303, 4.77186,
310 + .02487, .01221, 131.03342, 5.04708, 4.50667,
311 + 3.95002, 4.80211, 5.04941,
312 + .02528, .01244, 138.82866, 5.33732, 4.80192,
313 + 4.25069, 5.09391, 5.33966,
314 + .02569, .01265, 146.52992, 5.62942, 5.09753,
315 + 4.54976, 5.38750, 5.63176,
316 + .02608, .01287, 154.11222, 5.91815, 5.39080,
317 + 4.84805, 5.67763, 5.92049,
318 + .02645, .01307, 161.27705, 6.19601, 5.67169,
319 + 5.13198, 5.95678, 6.19835 /
320 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
321 + .02683, .01328, 168.71624, 6.48587, 5.96550,
322 + 5.43008, 6.24795, 6.48823,
323 + .02720, .01349, 176.09401, 6.77756, 6.26046,
324 + 5.72852, 6.54090, 6.77993,
325 + .02756, .01369, 183.24710, 7.06299, 6.54911,
326 + 6.02068, 6.82752, 7.06536,
327 + .02791, .01388, 190.15851, 7.34080, 6.83031,
328 + 6.30573, 7.10645, 7.34318,
329 + .02826, .01407, 197.11478, 7.62497, 7.11703,
330 + 6.59518, 7.39174, 7.62736 /
331 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
332 + .01611, .00752, .90247, .55416, .00000,
333 + .00000, .26710, .55564,
334 + .01645, .00770, 1.81102, .58478, .00000,
335 + .00000, .30029, .58627,
336 + .01695, .00796, 3.47009, .64110, .01549,
337 + .00000, .36028, .64258,
338 + .01733, .00815, 4.96180, .69004, .04537,
339 + .00000, .41181, .69152,
340 + .01773, .00836, 6.68244, .74876, .11349,
341 + .00000, .47312, .75023,
342 + .01808, .00853, 8.38620, .80614, .17556,
343 + .00000, .53269, .80761,
344 + .01841, .00872, 10.23343, .86632, .24151,
345 + .00000, .59493, .86779,
346 + .01878, .00890, 12.42357, .93599, .31881,
347 + .00000, .66673, .93747 /
348 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
349 + .01911, .00907, 14.48696, 1.00208, .38873,
350 + .00000, .73462, 1.00357,
351 + .01940, .00922, 16.63972, 1.07050, .46128,
352 + .00000, .80474, 1.07198,
353 + .01966, .00936, 18.48187, 1.12798, .52335,
354 + .00000, .86355, 1.12946,
355 + .02018, .00963, 22.72926, 1.26093, .66368,
356 + .00000, .99927, 1.26242,
357 + .02065, .00989, 26.29988, 1.38567, .79399,
358 + .17519, 1.12633, 1.38717,
359 + .02118, .01017, 30.82370, 1.53747, .95250,
360 + .36007, 1.28063, 1.53896,
361 + .02175, .01047, 35.94329, 1.70873, 1.13074,
362 + .54679, 1.45443, 1.71022,
363 + .02226, .01074, 40.93400, 1.87597, 1.30434,
364 + .72864, 1.62391, 1.87747 /
365 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
366 + .02279, .01103, 46.30740, 2.05670, 1.49170,
367 + .92391, 1.80685, 2.05821,
368 + .02323, .01127, 50.99478, 2.21564, 1.65550,
369 + 1.09247, 1.96757, 2.21715,
370 + .02375, .01156, 56.94157, 2.41919, 1.86442,
371 + 1.30649, 2.17324, 2.42072,
372 + .02423, .01182, 62.47266, 2.60973, 2.06023,
373 + 1.50804, 2.36560, 2.61126,
374 + .02467, .01205, 67.76314, 2.79327, 2.24886,
375 + 1.70229, 2.55080, 2.79481,
376 + .02525, .01236, 74.67324, 3.03683, 2.49741,
377 + 1.95549, 2.79640, 3.03837,
378 + .02579, .01266, 81.44785, 3.27806, 2.74377,
379 + 2.20719, 3.03950, 3.27961,
380 + .02629, .01293, 88.05928, 3.51545, 2.98668,
381 + 2.45631, 3.27861, 3.51702 /
382 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
383 + .02680, .01322, 94.76694, 3.76111, 3.23616,
384 + 2.70931, 3.52597, 3.76269,
385 + .02731, .01349, 101.55898, 4.01207, 3.49158,
386 + 2.96953, 3.77854, 4.01366,
387 + .02779, .01376, 108.16011, 4.25878, 3.74260,
388 + 3.22522, 4.02676, 4.26037,
389 + .02824, .01402, 114.45400, 4.49786, 3.98500,
390 + 3.47103, 4.26722, 4.49947,
391 + .02871, .01427, 120.98164, 4.74737, 4.23874,
392 + 3.72951, 4.51811, 4.74898,
393 + .02916, .01453, 127.40816, 4.99782, 4.49211,
394 + 3.98588, 4.76990, 4.99945,
395 + .02960, .01477, 133.72064, 5.24492, 4.74303,
396 + 4.24117, 5.01825, 5.24655,
397 + .03002, .01500, 139.66640, 5.48216, 4.98278,
398 + 4.48356, 5.25665, 5.48379 /
399 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
400 + .03044, .01524, 145.82654, 5.72922, 5.23313,
401 + 4.73763, 5.50488, 5.73088,
402 + .03087, .01547, 151.91845, 5.97731, 5.48394,
403 + 4.99145, 5.75410, 5.97899,
404 + .03127, .01570, 157.81112, 6.21965, 5.72893,
405 + 5.23948, 5.99749, 6.22133,
406 + .03167, .01591, 163.49260, 6.45512, 5.96723,
407 + 5.48109, 6.23396, 6.45680,
408 + .03205, .01613, 169.19511, 6.69549, 6.20970,
409 + 5.72590, 6.47533, 6.69719 /
410 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
411 + .01777, .00837, .87890, .52587, .00000,
412 + .00000, .25399, .52685,
413 + .01814, .00855, 1.75787, .55546, .00000,
414 + .00000, .28597, .55644,
415 + .01870, .00884, 3.35024, .60933, .01523,
416 + .00000, .34322, .61030,
417 + .01913, .00906, 4.77294, .65581, .04346,
418 + .00000, .39209, .65679,
419 + .01957, .00929, 6.40443, .71129, .10783,
420 + .00000, .44997, .71227,
421 + .01995, .00949, 8.01172, .76526, .16626,
422 + .00000, .50595, .76623,
423 + .02033, .00969, 9.74706, .82170, .22812,
424 + .00000, .56428, .82268,
425 + .02074, .00990, 11.79614, .88685, .30043,
426 + .00000, .63140, .88784 /
427 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
428 + .02108, .01009, 13.71888, .94846, .36564,
429 + .00000, .69467, .94945,
430 + .02143, .01027, 15.71814, 1.01210, .43314,
431 + .00000, .75988, 1.01309,
432 + .02170, .01041, 17.42432, 1.06548, .49079,
433 + .00000, .81448, 1.06646,
434 + .02228, .01073, 21.34360, 1.18859, .62075,
435 + .00000, .94014, 1.18958,
436 + .02280, .01100, 24.61922, 1.30375, .74106,
437 + .16160, 1.05740, 1.30474,
438 + .02339, .01133, 28.75345, 1.44344, .88696,
439 + .33203, 1.19942, 1.44445,
440 + .02401, .01166, 33.41104, 1.60058, 1.05051,
441 + .50349, 1.35890, 1.60160,
442 + .02458, .01196, 37.93226, 1.75358, 1.20932,
443 + .66998, 1.51396, 1.75460 /
444 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
445 + .02516, .01228, 42.78128, 1.91847, 1.38026,
446 + .84826, 1.68089, 1.91951,
447 + .02564, .01255, 46.99625, 2.06311, 1.52933,
448 + 1.00175, 1.82718, 2.06416,
449 + .02623, .01287, 52.32520, 2.24790, 1.71897,
450 + 1.19614, 2.01391, 2.24896,
451 + .02676, .01315, 57.26507, 2.42047, 1.89629,
452 + 1.37876, 2.18816, 2.42154,
453 + .02725, .01342, 61.97616, 2.58634, 2.06676,
454 + 1.55440, 2.35555, 2.58742,
455 + .02786, .01377, 68.10867, 2.80590, 2.29079,
456 + 1.78274, 2.57699, 2.80699,
457 + .02846, .01409, 74.10114, 3.02284, 2.51232,
458 + 2.00918, 2.79565, 3.02395,
459 + .02902, .01440, 79.93205, 3.23586, 2.73028,
460 + 2.23283, 3.01026, 3.23698 /
461 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
462 + .02958, .01471, 85.82845, 3.45579, 2.95358,
463 + 2.45937, 3.23173, 3.45692,
464 + .03013, .01502, 91.78300, 3.67998, 3.18176,
465 + 2.69193, 3.45742, 3.68113,
466 + .03067, .01532, 97.55480, 3.89996, 3.40557,
467 + 2.92000, 3.67877, 3.90111,
468 + .03117, .01559, 103.04301, 4.11269, 3.62123,
469 + 3.13878, 3.89279, 4.11387,
470 + .03168, .01588, 108.72295, 4.33434, 3.84664,
471 + 3.36850, 4.11571, 4.33554,
472 + .03218, .01616, 114.29958, 4.55639, 4.07126,
473 + 3.59586, 4.33898, 4.55760,
474 + .03266, .01643, 119.76706, 4.77514, 4.29339,
475 + 3.82196, 4.55887, 4.77636,
476 + .03312, .01668, 124.90359, 4.98477, 4.50522,
477 + 4.03618, 4.76958, 4.98602 /
478 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
479 + .03359, .01694, 130.21648, 5.20279, 4.72614,
480 + 4.26048, 4.98866, 5.20405,
481 + .03405, .01720, 135.45855, 5.42136, 4.94707,
482 + 4.48414, 5.20826, 5.42263,
483 + .03449, .01744, 140.51963, 5.63454, 5.16259,
484 + 4.70240, 5.42242, 5.63583,
485 + .03491, .01769, 145.39116, 5.84141, 5.37197,
486 + 4.91477, 5.63021, 5.84272,
487 + .03535, .01792, 150.26982, 6.05227, 5.58464,
488 + 5.12957, 5.84198, 6.05359 /
489 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
490 + .02418, .01165, .80921, .44763, .00000,
491 + .00000, .21815, .44781,
492 + .02468, .01191, 1.60297, .47401, .00000,
493 + .00000, .24641, .47420,
494 + .02545, .01232, 3.00427, .52064, .01464,
495 + .00000, .29573, .52082,
496 + .02603, .01263, 4.23150, .56004, .03815,
497 + .00000, .33701, .56023,
498 + .02663, .01296, 5.61252, .60632, .09200,
499 + .00000, .38517, .60652,
500 + .02716, .01325, 6.95100, .65073, .14021,
501 + .00000, .43117, .65094,
502 + .02767, .01352, 8.37683, .69675, .19075,
503 + .00000, .47867, .69697,
504 + .02822, .01382, 10.03848, .74941, .24933,
505 + .00000, .53286, .74964 /
506 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
507 + .02870, .01408, 11.57767, .79873, .30164,
508 + .00000, .58350, .79898,
509 + .02917, .01434, 13.16091, .84932, .35540,
510 + .00000, .63530, .84956,
511 + .02954, .01454, 14.50038, .89151, .40106,
512 + .00000, .67846, .89177,
513 + .03033, .01498, 17.54106, .98799, .50309,
514 + .00000, .77693, .98828,
515 + .03104, .01537, 20.03454, 1.07735, .59661,
516 + .12484, .86795, 1.07765,
517 + .03184, .01581, 23.14238, 1.18477, .70898,
518 + .25686, .97716, 1.18510,
519 + .03267, .01628, 26.59351, 1.30441, .83369,
520 + .38807, 1.09862, 1.30476,
521 + .03344, .01671, 29.89845, 1.41983, .95367,
522 + .51429, 1.21566, 1.42021 /
523 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
524 + .03423, .01714, 33.39904, 1.54316, 1.08170,
525 + .64826, 1.34057, 1.54357,
526 + .03488, .01751, 36.40739, 1.65049, 1.19246,
527 + .76264, 1.44918, 1.65093,
528 + .03568, .01796, 40.16851, 1.78655, 1.33224,
529 + .90634, 1.58675, 1.78701,
530 + .03639, .01836, 43.61773, 1.91264, 1.46196,
531 + 1.04034, 1.71415, 1.91312,
532 + .03705, .01874, 46.87627, 2.03302, 1.58583,
533 + 1.16835, 1.83570, 2.03354,
534 + .03789, .01921, 51.07156, 2.19113, 1.74732,
535 + 1.33338, 1.99528, 2.19168,
536 + .03869, .01966, 55.12760, 2.34615, 1.90579,
537 + 1.49580, 2.15163, 2.34674,
538 + .03944, .02008, 59.03703, 2.49733, 2.06066,
539 + 1.65516, 2.30405, 2.49794 /
540 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
541 + .04020, .02051, 62.94842, 2.65222, 2.21806,
542 + 1.81523, 2.46012, 2.65286,
543 + .04094, .02094, 66.86430, 2.80910, 2.37791,
544 + 1.97857, 2.61816, 2.80978,
545 + .04165, .02134, 70.62756, 2.96205, 2.53369,
546 + 2.13773, 2.77219, 2.96276,
547 + .04232, .02172, 74.17406, 3.10904, 2.68285,
548 + 2.28939, 2.92016, 3.10977,
549 + .04300, .02210, 77.81965, 3.26138, 2.83794,
550 + 2.44786, 3.07349, 3.26214,
551 + .04367, .02249, 81.36629, 3.41302, 2.99148,
552 + 2.60362, 3.22608, 3.41382,
553 + .04432, .02285, 84.82322, 3.56170, 3.14265,
554 + 2.75788, 3.37566, 3.56254,
555 + .04492, .02320, 88.04302, 3.70335, 3.28591,
556 + 2.90308, 3.51813, 3.70421 /
557 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
558 + .04555, .02355, 91.35551, 3.85004, 3.43472,
559 + 3.05452, 3.66564, 3.85092,
560 + .04616, .02390, 94.59917, 3.99631, 3.58272,
561 + 3.20469, 3.81271, 3.99722,
562 + .04675, .02424, 97.71190, 4.13831, 3.72645,
563 + 3.35059, 3.95549, 4.13926,
564 + .04732, .02455, 100.69182, 4.27556, 3.86552,
565 + 3.49198, 4.09344, 4.27653,
566 + .04788, .02488, 103.65377, 4.41473, 4.00603,
567 + 3.63419, 4.23332, 4.41574 /
568 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
569 + .03304, .01633, .74753, .38272, .00000,
570 + .00000, .18899, .38298,
571 + .03372, .01669, 1.46581, .40586, .00000,
572 + .00000, .21364, .40614,
573 + .03475, .01725, 2.69797, .44567, .01437,
574 + .00000, .25564, .44599,
575 + .03552, .01769, 3.75516, .47868, .03366,
576 + .00000, .29017, .47904,
577 + .03634, .01814, 4.92105, .51690, .07834,
578 + .00000, .32990, .51728,
579 + .03706, .01854, 6.03143, .55309, .11781,
580 + .00000, .36738, .55350,
581 + .03774, .01892, 7.19745, .59023, .15879,
582 + .00000, .40573, .59068,
583 + .03848, .01934, 8.53743, .63239, .20585,
584 + .00000, .44911, .63287 /
585 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
586 + .03912, .01971, 9.76166, .67149, .24749,
587 + .00000, .48928, .67200,
588 + .03975, .02006, 11.00653, .71131, .28997,
589 + .00000, .53007, .71184,
590 + .04026, .02035, 12.05006, .74434, .32585,
591 + .00000, .56388, .74490,
592 + .04133, .02096, 14.38938, .81921, .40533,
593 + .00000, .64036, .81982,
594 + .04228, .02150, 16.27009, .88787, .47746,
595 + .09490, .71035, .88852,
596 + .04336, .02212, 18.58128, .96963, .56329,
597 + .19653, .79355, .97033,
598 + .04450, .02277, 21.10852, 1.05978, .65760,
599 + .29626, .88517, 1.06054,
600 + .04553, .02337, 23.49380, 1.14593, .74746,
601 + .39129, .97260, 1.14674 /
602 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
603 + .04659, .02397, 25.98678, 1.23717, .84252,
604 + .49126, 1.06512, 1.23804,
605 + .04746, .02448, 28.10305, 1.31592, .92405,
606 + .57587, 1.14490, 1.31683,
607 + .04854, .02510, 30.71721, 1.41493, 1.02612,
608 + .68130, 1.24513, 1.41591,
609 + .04950, .02564, 33.08708, 1.50598, 1.12009,
610 + .77885, 1.33723, 1.50701,
611 + .05039, .02616, 35.30330, 1.59230, 1.20921,
612 + .87139, 1.42450, 1.59338,
613 + .05151, .02680, 38.12267, 1.70476, 1.32443,
614 + .98967, 1.53812, 1.70589,
615 + .05257, .02743, 40.81733, 1.81413, 1.43658,
616 + 1.10517, 1.64857, 1.81532,
617 + .05359, .02800, 43.38827, 1.92002, 1.54541,
618 + 1.21769, 1.75545, 1.92128 /
619 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
620 + .05459, .02859, 45.93025, 2.02764, 1.65510,
621 + 1.32973, 1.86403, 2.02895,
622 + .05559, .02917, 48.45150, 2.13591, 1.76576,
623 + 1.44332, 1.97324, 2.13729,
624 + .05653, .02972, 50.85191, 2.24079, 1.87291,
625 + 1.55329, 2.07899, 2.24222,
626 + .05743, .03023, 53.09165, 2.34088, 1.97477,
627 + 1.65732, 2.17987, 2.34236,
628 + .05833, .03076, 55.37741, 2.44406, 2.08015,
629 + 1.76549, 2.28386, 2.44561,
630 + .05923, .03127, 57.57817, 2.54607, 2.18372,
631 + 1.87101, 2.38662, 2.54766,
632 + .06009, .03176, 59.71002, 2.64561, 2.28524,
633 + 1.97507, 2.48688, 2.64726,
634 + .06090, .03223, 61.67610, 2.73983, 2.38081,
635 + 2.07234, 2.58178, 2.74152 /
636 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
637 + .06171, .03270, 63.68723, 2.83697, 2.47965,
638 + 2.17338, 2.67958, 2.83871,
639 + .06253, .03318, 65.63966, 2.93327, 2.57737,
640 + 2.27296, 2.77654, 2.93506,
641 + .06331, .03363, 67.50075, 3.02633, 2.67184,
642 + 2.36926, 2.87021, 3.02818,
643 + .06405, .03405, 69.27191, 3.11587, 2.76284,
644 + 2.46220, 2.96033, 3.11776,
645 + .06481, .03448, 71.01684, 3.20617, 2.85425,
646 + 2.55510, 3.05120, 3.20810 /
647 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
648 + .03972, .01993, .71842, .35027, .00000,
649 + .00000, .17466, .35092,
650 + .04052, .02037, 1.39671, .37147, .00000,
651 + .00000, .19725, .37218,
652 + .04173, .02105, 2.53874, .40748, .01431,
653 + .00000, .23519, .40824,
654 + .04265, .02158, 3.50634, .43704, .03131,
655 + .00000, .26611, .43784,
656 + .04363, .02213, 4.55997, .47097, .07116,
657 + .00000, .30140, .47183,
658 + .04446, .02261, 5.55246, .50287, .10607,
659 + .00000, .33445, .50377,
660 + .04528, .02307, 6.58532, .53545, .14211,
661 + .00000, .36809, .53639,
662 + .04617, .02358, 7.76194, .57223, .18329,
663 + .00000, .40598, .57321 /
664 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
665 + .04693, .02402, 8.82764, .60617, .21952,
666 + .00000, .44085, .60719,
667 + .04768, .02446, 9.90353, .64056, .25635,
668 + .00000, .47614, .64163,
669 + .04828, .02480, 10.80024, .66901, .28734,
670 + .00000, .50529, .67012,
671 + .04956, .02555, 12.79474, .73315, .35563,
672 + .00000, .57086, .73434,
673 + .05070, .02620, 14.37897, .79163, .41724,
674 + .07993, .63054, .79289,
675 + .05198, .02695, 16.30771, .86087, .49015,
676 + .16672, .70108, .86220,
677 + .05332, .02773, 18.39639, .93677, .56977,
678 + .25124, .77829, .93817,
679 + .05456, .02845, 20.34977, 1.00887, .64522,
680 + .33134, .85155, 1.01035 /
681 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
682 + .05580, .02918, 22.37425, 1.08483, .72457,
683 + .41511, .92865, 1.08638,
684 + .05686, .02979, 24.07949, 1.15005, .79230,
685 + .48565, .99480, 1.15169,
686 + .05813, .03054, 26.16988, 1.23166, .87666,
687 + .57312, 1.07750, 1.23337,
688 + .05926, .03120, 28.05117, 1.30635, .95396,
689 + .65367, 1.15313, 1.30813,
690 + .06032, .03182, 29.79919, 1.37685, 1.02695,
691 + .72975, 1.22449, 1.37869,
692 + .06166, .03260, 32.00589, 1.46823, 1.12082,
693 + .82647, 1.31691, 1.47016,
694 + .06292, .03334, 34.09961, 1.55667, 1.21177,
695 + .92047, 1.40633, 1.55868,
696 + .06411, .03403, 36.08439, 1.64191, 1.29962,
697 + 1.01164, 1.49247, 1.64400 /
698 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
699 + .06530, .03473, 38.03167, 1.72812, 1.38772,
700 + 1.10195, 1.57955, 1.73028,
701 + .06648, .03541, 39.95163, 1.81449, 1.47623,
702 + 1.19315, 1.66677, 1.81674,
703 + .06759, .03607, 41.76858, 1.89781, 1.56158,
704 + 1.28107, 1.75087, 1.90013,
705 + .06865, .03668, 43.45288, 1.97699, 1.64237,
706 + 1.36388, 1.83077, 1.97938,
707 + .06972, .03730, 45.16396, 2.05835, 1.72569,
708 + 1.44972, 1.91286, 2.06081,
709 + .07077, .03792, 46.79997, 2.13843, 1.80720,
710 + 1.53306, 1.99363, 2.14096,
711 + .07177, .03850, 48.37869, 2.21635, 1.88688,
712 + 1.61504, 2.07220, 2.21895,
713 + .07273, .03905, 49.82491, 2.28979, 1.96156,
714 + 1.69132, 2.14625, 2.29246 /
715 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
716 + .07369, .03962, 51.29900, 2.36531, 2.03862,
717 + 1.77037, 2.22239, 2.36804,
718 + .07464, .04017, 52.72172, 2.43992, 2.11452,
719 + 1.84800, 2.29758, 2.44271,
720 + .07556, .04070, 54.07193, 2.51178, 2.18766,
721 + 1.92283, 2.37001, 2.51464,
722 + .07642, .04121, 55.35192, 2.58075, 2.25795,
723 + 1.99487, 2.43950, 2.58367,
724 + .07730, .04171, 56.60523, 2.65005, 2.32828,
725 + 2.06661, 2.50933, 2.65303 /
726 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
727 + .04527, .02295, .70455, .32914, .00000,
728 + .00000, .16549, .33031,
729 + .04618, .02346, 1.35602, .34901, .00000,
730 + .00000, .18662, .35021,
731 + .04753, .02424, 2.43722, .38242, .01425,
732 + .00000, .22182, .38371,
733 + .04858, .02484, 3.34466, .40967, .02971,
734 + .00000, .25032, .41100,
735 + .04967, .02546, 4.32335, .44079, .06634,
736 + .00000, .28270, .44218,
737 + .05062, .02602, 5.23768, .46989, .09823,
738 + .00000, .31285, .47134,
739 + .05154, .02656, 6.18277, .49950, .13103,
740 + .00000, .34345, .50100,
741 + .05254, .02714, 7.25232, .53280, .16840,
742 + .00000, .37777, .53436 /
743 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
744 + .05341, .02765, 8.21483, .56341, .20111,
745 + .00000, .40925, .56502,
746 + .05426, .02815, 9.18127, .59434, .23428,
747 + .00000, .44100, .59600,
748 + .05493, .02855, 9.98334, .61986, .26214,
749 + .00000, .46716, .62155,
750 + .05639, .02940, 11.75683, .67719, .32328,
751 + .00000, .52583, .67898,
752 + .05766, .03015, 13.15284, .72922, .37820,
753 + .07038, .57897, .73110,
754 + .05912, .03101, 14.84024, .79059, .44293,
755 + .14776, .64154, .79255,
756 + .06064, .03190, 16.65433, .85754, .51330,
757 + .22270, .70970, .85959,
758 + .06203, .03272, 18.33926, .92086, .57968,
759 + .29340, .77410, .92302 /
760 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
761 + .06344, .03356, 20.07441, .98732, .64926,
762 + .36708, .84163, .98956,
763 + .06464, .03426, 21.52743, 1.04418, .70840,
764 + .42888, .89935, 1.04650,
765 + .06607, .03511, 23.29834, 1.11503, .78180,
766 + .50520, .97122, 1.11746,
767 + .06736, .03587, 24.88333, 1.17965, .84882,
768 + .57526, 1.03672, 1.18215,
769 + .06854, .03656, 26.34888, 1.24046, .91190,
770 + .64121, 1.09833, 1.24305,
771 + .07004, .03745, 28.18815, 1.31898, .99271,
772 + .72473, 1.17782, 1.32165,
773 + .07147, .03828, 29.92359, 1.39469, 1.07072,
774 + .80561, 1.25444, 1.39746,
775 + .07280, .03907, 31.56065, 1.46741, 1.14584,
776 + .88381, 1.32801, 1.47030 /
777 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
778 + .07415, .03986, 33.15723, 1.54069, 1.22086,
779 + .96095, 1.40210, 1.54365,
780 + .07547, .04064, 34.72426, 1.61388, 1.29602,
781 + 1.03863, 1.47609, 1.61694,
782 + .07673, .04138, 36.20041, 1.68426, 1.36827,
783 + 1.11328, 1.54721, 1.68740,
784 + .07791, .04207, 37.56182, 1.75094, 1.43644,
785 + 1.18337, 1.61456, 1.75416,
786 + .07911, .04278, 38.94010, 1.81927, 1.50657,
787 + 1.25585, 1.68357, 1.82259,
788 + .08029, .04346, 40.25070, 1.88631, 1.57496,
789 + 1.32598, 1.75126, 1.88971,
790 + .08141, .04412, 41.51173, 1.95139, 1.64166,
791 + 1.39482, 1.81696, 1.95487,
792 + .08248, .04474, 42.66075, 2.01256, 1.70397,
793 + 1.45867, 1.87870, 2.01611 /
794 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
795 + .08355, .04537, 43.82874, 2.07532, 1.76815,
796 + 1.52473, 1.94203, 2.07894,
797 + .08462, .04599, 44.95082, 2.13714, 1.83119,
798 + 1.58939, 2.00442, 2.14085,
799 + .08564, .04659, 46.01202, 2.19658, 1.89180,
800 + 1.65160, 2.06438, 2.20035,
801 + .08661, .04716, 47.01502, 2.25348, 1.94993,
802 + 1.71137, 2.12179, 2.25733,
803 + .08759, .04772, 47.99223, 2.31051, 2.00795,
804 + 1.77073, 2.17931, 2.31443 /
805 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
806 + .05014, .02573, .70115, .31469, .00000,
807 + .00000, .15897, .31594,
808 + .05113, .02629, 1.33225, .33350, .00000,
809 + .00000, .17893, .33480,
810 + .05263, .02717, 2.36736, .36492, .01414,
811 + .00000, .21199, .36630,
812 + .05378, .02784, 3.22925, .39040, .02843,
813 + .00000, .23864, .39186,
814 + .05497, .02854, 4.15141, .41939, .06262,
815 + .00000, .26878, .42091,
816 + .05603, .02916, 5.00692, .44639, .09227,
817 + .00000, .29676, .44799,
818 + .05705, .02976, 5.88622, .47378, .12266,
819 + .00000, .32507, .47544,
820 + .05815, .03041, 6.87582, .50451, .15718,
821 + .00000, .35674, .50623 /
822 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
823 + .05910, .03097, 7.76155, .53266, .18733,
824 + .00000, .38570, .53445,
825 + .06003, .03153, 8.64692, .56104, .21780,
826 + .00000, .41483, .56289,
827 + .06078, .03197, 9.37904, .58442, .24335,
828 + .00000, .43880, .58631,
829 + .06238, .03292, 10.98997, .63677, .29926,
830 + .00000, .49239, .63877,
831 + .06379, .03376, 12.24847, .68412, .34931,
832 + .06349, .54078, .68622,
833 + .06539, .03470, 13.76061, .73976, .40810,
834 + .13400, .59754, .74196,
835 + .06707, .03569, 15.37633, .80024, .47178,
836 + .20198, .65916, .80256,
837 + .06860, .03661, 16.86835, .85726, .53164,
838 + .26590, .71719, .85968 /
839 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
840 + .07016, .03753, 18.39670, .91689, .59416,
841 + .33227, .77781, .91942,
842 + .07146, .03829, 19.67014, .96776, .64715,
843 + .38777, .82947, .97037,
844 + .07304, .03923, 21.21468, 1.03094, .71271,
845 + .45612, .89362, 1.03368,
846 + .07445, .04007, 22.59069, 1.08841, .77239,
847 + .51865, .95191, 1.09124,
848 + .07574, .04083, 23.85779, 1.14232, .82842,
849 + .57738, 1.00658, 1.14525,
850 + .07740, .04180, 25.44001, 1.21172, .89998,
851 + .65151, 1.07691, 1.21477,
852 + .07895, .04272, 26.92582, 1.27845, .96882,
853 + .72307, 1.14448, 1.28160,
854 + .08042, .04359, 28.32152, 1.34236, 1.03496,
855 + .79209, 1.20919, 1.34562 /
856 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
857 + .08189, .04445, 29.67583, 1.40655, 1.10078,
858 + .85994, 1.27415, 1.40992,
859 + .08333, .04530, 30.99989, 1.47050, 1.16657,
860 + .92810, 1.33884, 1.47397,
861 + .08471, .04610, 32.24219, 1.53183, 1.22965,
862 + .99345, 1.40086, 1.53540,
863 + .08599, .04686, 33.38313, 1.58978, 1.28899,
864 + 1.05461, 1.45946, 1.59344,
865 + .08730, .04763, 34.53495, 1.64905, 1.34993,
866 + 1.11776, 1.51937, 1.65281,
867 + .08858, .04837, 35.62464, 1.70704, 1.40917,
868 + 1.17866, 1.57797, 1.71089,
869 + .08981, .04909, 36.67056, 1.76323, 1.46688,
870 + 1.23838, 1.63475, 1.76718,
871 + .09097, .04977, 37.61897, 1.81589, 1.52063,
872 + 1.29359, 1.68795, 1.81992 /
873 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
874 + .09214, .05045, 38.58083, 1.86984, 1.57591,
875 + 1.35062, 1.74245, 1.87396,
876 + .09330, .05113, 39.50105, 1.92286, 1.63008,
877 + 1.40634, 1.79599, 1.92707,
878 + .09441, .05178, 40.36873, 1.97374, 1.68206,
879 + 1.45983, 1.84737, 1.97802,
880 + .09545, .05238, 41.18675, 2.02237, 1.73183,
881 + 1.51113, 1.89648, 2.02673,
882 + .09652, .05300, 41.98034, 2.07099, 1.78138,
883 + 1.56197, 1.94557, 2.07543 /
884 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
885 + .06907, .03686, .70980, .27551, .00000,
886 + .00000, .14168, .27777,
887 + .07038, .03765, 1.28197, .29095, .00000,
888 + .00000, .15805, .29329,
889 + .07239, .03887, 2.18256, .31631, .01358,
890 + .00000, .18474, .31880,
891 + .07394, .03980, 2.91232, .33663, .02448,
892 + .00000, .20600, .33921,
893 + .07555, .04078, 3.67240, .35948, .05174,
894 + .00000, .22980, .36218,
895 + .07696, .04164, 4.36119, .38053, .07507,
896 + .00000, .25164, .38333,
897 + .07834, .04247, 5.05557, .40171, .09875,
898 + .00000, .27357, .40460,
899 + .07983, .04337, 5.82266, .42525, .12543,
900 + .00000, .29789, .42826 /
901 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
902 + .08113, .04416, 6.49683, .44664, .14849,
903 + .00000, .31995, .44974,
904 + .08239, .04493, 7.16051, .46802, .17163,
905 + .00000, .34195, .47122,
906 + .08339, .04554, 7.70268, .48554, .19093,
907 + .00000, .35997, .48881,
908 + .08555, .04684, 8.87618, .52441, .23274,
909 + .00000, .39986, .52785,
910 + .08744, .04798, 9.76999, .55917, .26976,
911 + .04470, .43548, .56275,
912 + .08959, .04927, 10.82093, .59958, .31276,
913 + .09693, .47681, .60331,
914 + .09184, .05062, 11.92067, .64296, .35878,
915 + .14653, .52116, .64687,
916 + .09389, .05185, 12.91626, .68339, .40156,
917 + .19266, .56245, .68746 /
918 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
919 + .09596, .05308, 13.91756, .72522, .44576,
920 + .24004, .60511, .72946,
921 + .09769, .05412, 14.73765, .76053, .48284,
922 + .27926, .64111, .76490,
923 + .09979, .05536, 15.71555, .80397, .52824,
924 + .32705, .68535, .80850,
925 + .10166, .05647, 16.57278, .84306, .56918,
926 + .37038, .72516, .84774,
927 + .10337, .05749, 17.35096, .87943, .60727,
928 + .41071, .76216, .88424,
929 + .10554, .05877, 18.30549, .92573, .65539,
930 + .46107, .80927, .93072,
931 + .10759, .05997, 19.18709, .96979, .70124,
932 + .50921, .85406, .97494,
933 + .10951, .06111, 20.00325, 1.01161, .74488,
934 + .55523, .89658, 1.01692 /
935 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
936 + .11142, .06223, 20.78036, 1.05316, .78784,
937 + .59996, .93878, 1.05861,
938 + .11330, .06333, 21.52982, 1.09419, .83042,
939 + .64455, .98046, 1.09979,
940 + .11509, .06437, 22.22304, 1.13320, .87090,
941 + .68693, 1.02009, 1.13895,
942 + .11676, .06534, 22.84931, 1.16971, .90863,
943 + .72623, 1.05716, 1.17559,
944 + .11844, .06632, 23.47506, 1.20681, .94712,
945 + .76655, 1.09482, 1.21283,
946 + .12010, .06728, 24.05614, 1.24275, .98419,
947 + .80507, 1.13131, 1.24889,
948 + .12168, .06820, 24.60925, 1.27738, 1.02007,
949 + .84261, 1.16644, 1.28365,
950 + .12316, .06905, 25.10144, 1.30952, 1.05320,
951 + .87702, 1.19907, 1.31590 /
952 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
953 + .12465, .06992, 25.59666, 1.34227, 1.08708,
954 + .91237, 1.23230, 1.34877,
955 + .12613, .07077, 26.06279, 1.37418, 1.12002,
956 + .94663, 1.26469, 1.38081,
957 + .12754, .07157, 26.49729, 1.40462, 1.15142,
958 + .97932, 1.29556, 1.41135,
959 + .12888, .07234, 26.90296, 1.43353, 1.18134,
960 + 1.01051, 1.32491, 1.44038,
961 + .13023, .07310, 27.28923, 1.46221, 1.21086,
962 + 1.04115, 1.35400, 1.46917 /
963 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
964 + .09566, .05323, .78122, .24444, .00000,
965 + .00000, .12754, .24832,
966 + .09743, .05433, 1.29555, .25649, .00000,
967 + .00000, .14036, .26053,
968 + .10016, .05602, 2.06724, .27614, .01211,
969 + .00000, .16111, .28040,
970 + .10223, .05732, 2.67221, .29174, .02001,
971 + .00000, .17750, .29616,
972 + .10442, .05866, 3.28351, .30917, .04121,
973 + .00000, .19572, .31377,
974 + .10633, .05984, 3.82262, .32507, .05910,
975 + .00000, .21228, .32982,
976 + .10818, .06098, 4.35393, .34092, .07711,
977 + .00000, .22877, .34583,
978 + .11019, .06221, 4.92833, .35841, .09722,
979 + .00000, .24694, .36349 /
980 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
981 + .11194, .06327, 5.42267, .37415, .11442,
982 + .00000, .26325, .37938,
983 + .11363, .06431, 5.90060, .38978, .13155,
984 + .00000, .27941, .39514,
985 + .11499, .06514, 6.28546, .40250, .14574,
986 + .00000, .29255, .40798,
987 + .11789, .06688, 7.10286, .43043, .17619,
988 + .00000, .32138, .43616,
989 + .12041, .06841, 7.70731, .45509, .20281,
990 + .02928, .34680, .46104,
991 + .12326, .07011, 8.39781, .48341, .23336,
992 + .06699, .37595, .48959,
993 + .12624, .07188, 9.10247, .51340, .26561,
994 + .10223, .40678, .51984,
995 + .12894, .07348, 9.72500, .54098, .29520,
996 + .13458, .43512, .54765 /
997 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
998 + .13167, .07510, 10.33695, .56917, .32540,
999 + .16740, .46406, .57607,
1000 + .13393, .07642, 10.82744, .59267, .35044,
1001 + .19425, .48819, .59977,
1002 + .13667, .07802, 11.39987, .62123, .38073,
1003 + .22660, .51748, .62856,
1004 + .13909, .07943, 11.89152, .64663, .40774,
1005 + .25561, .54354, .65417,
1006 + .14131, .08073, 12.32971, .67003, .43262,
1007 + .28234, .56751, .67775,
1008 + .14411, .08233, 12.85444, .69944, .46366,
1009 + .31531, .59765, .70739,
1010 + .14673, .08384, 13.32863, .72707, .49289,
1011 + .34648, .62597, .73526,
1012 + .14919, .08526, 13.75936, .75301, .52041,
1013 + .37596, .65255, .76141 /
1014 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
1015 + .15162, .08665, 14.15841, .77843, .54716,
1016 + .40426, .67860, .78704,
1017 + .15400, .08799, 14.53624, .80330, .57342,
1018 + .43220, .70406, .81210,
1019 + .15625, .08927, 14.87880, .82669, .59812,
1020 + .45848, .72803, .83568,
1021 + .15834, .09045, 15.18063, .84832, .62090,
1022 + .48261, .75019, .85749,
1023 + .16046, .09164, 15.47805, .87011, .64397,
1024 + .50719, .77252, .87947,
1025 + .16252, .09279, 15.74609, .89098, .66590,
1026 + .53038, .79390, .90050,
1027 + .16447, .09388, 15.99851, .91093, .68700,
1028 + .55285, .81435, .92062,
1029 + .16630, .09491, 16.21587, .92924, .70626,
1030 + .57322, .83311, .93908 /
1031 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
1032 + .16816, .09593, 16.43214, .94776, .72584,
1033 + .59402, .85211, .95777,
1034 + .16997, .09694, 16.63032, .96564, .74468,
1035 + .61399, .87044, .97579,
1036 + .17169, .09789, 16.81175, .98254, .76251,
1037 + .63290, .88776, .99283,
1038 + .17332, .09879, 16.97843, .99848, .77938,
1039 + .65083, .90412, 1.00891,
1040 + .17495, .09968, 17.13138, 1.01412, .79586,
1041 + .66827, .92016, 1.02468 /
1042 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
1043 + .11594, .06600, .86702, .22818, .00000,
1044 + .00000, .11970, .23352,
1045 + .11807, .06734, 1.34242, .23838, .00000,
1046 + .00000, .13060, .24389,
1047 + .12132, .06939, 2.03812, .25493, .01049,
1048 + .00000, .14817, .26073,
1049 + .12382, .07094, 2.57083, .26804, .01686,
1050 + .00000, .16201, .27406,
1051 + .12643, .07257, 3.09852, .28264, .03493,
1052 + .00000, .17735, .28889,
1053 + .12871, .07397, 3.55577, .29587, .05006,
1054 + .00000, .19122, .30232,
1055 + .13093, .07533, 3.99967, .30902, .06519,
1056 + .00000, .20497, .31568,
1057 + .13332, .07679, 4.47273, .32347, .08203,
1058 + .00000, .22004, .33033 /
1059 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
1060 + .13540, .07804, 4.87421, .33639, .09631,
1061 + .00000, .23349, .34343,
1062 + .13740, .07927, 5.25767, .34913, .11049,
1063 + .00000, .24677, .35636,
1064 + .13903, .08023, 5.56352, .35947, .12218,
1065 + .00000, .25751, .36685,
1066 + .14245, .08228, 6.20487, .38204, .14708,
1067 + .00000, .28094, .38972,
1068 + .14542, .08404, 6.67005, .40180, .16868,
1069 + .02157, .30143, .40975,
1070 + .14877, .08601, 7.18932, .42429, .19327,
1071 + .05230, .32472, .43254,
1072 + .15224, .08804, 7.70979, .44789, .21900,
1073 + .08071, .34916, .45646,
1074 + .15538, .08986, 8.16170, .46940, .24241,
1075 + .10658, .37141, .47824 /
1076 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
1077 + .15855, .09170, 8.59875, .49117, .26609,
1078 + .13262, .39394, .50030,
1079 + .16117, .09320, 8.94335, .50920, .28558,
1080 + .15375, .41257, .51856,
1081 + .16432, .09500, 9.33916, .53090, .30897,
1082 + .17902, .43501, .54054,
1083 + .16710, .09659, 9.67378, .55007, .32966,
1084 + .20151, .45481, .55995,
1085 + .16965, .09802, 9.96770, .56757, .34861,
1086 + .22211, .47291, .57769,
1087 + .17283, .09982, 10.31305, .58938, .37202,
1088 + .24730, .49545, .59978,
1089 + .17582, .10148, 10.61973, .60970, .39389,
1090 + .27092, .51646, .62036,
1091 + .17861, .10304, 10.89400, .62864, .41436,
1092 + .29313, .53604, .63954 /
1093 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
1094 + .18135, .10455, 11.14190, .64701, .43406,
1095 + .31427, .55504, .65814,
1096 + .18403, .10603, 11.37297, .66484, .45327,
1097 + .33499, .57349, .67620,
1098 + .18655, .10741, 11.57878, .68150, .47122,
1099 + .35438, .59072, .69309,
1100 + .18890, .10868, 11.75593, .69677, .48765,
1101 + .37204, .60654, .70856,
1102 + .19126, .10996, 11.92847, .71208, .50420,
1103 + .38993, .62238, .72406,
1104 + .19353, .11119, 12.07913, .72658, .51979,
1105 + .40667, .63740, .73875,
1106 + .19570, .11236, 12.21973, .74038, .53474,
1107 + .42285, .65172, .75275,
1108 + .19772, .11344, 12.33654, .75293, .54826,
1109 + .43738, .66473, .76547 /
1110 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
1111 + .19976, .11453, 12.45163, .76557, .56195,
1112 + .45217, .67785, .77828,
1113 + .20174, .11558, 12.55351, .77766, .57504,
1114 + .46627, .69040, .79054,
1115 + .20362, .11658, 12.64471, .78903, .58735,
1116 + .47956, .70221, .80205,
1117 + .20541, .11753, 12.72698, .79969, .59896,
1118 + .49212, .71330, .81288,
1119 + .20719, .11846, 12.79871, .81006, .61019,
1120 + .50423, .72408, .82339 /
1121 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
1122 + .13301, .07683, .95252, .21713, .00000,
1123 + .00000, .11403, .22377,
1124 + .13544, .07840, 1.39688, .22606, .00000,
1125 + .00000, .12362, .23291,
1126 + .13917, .08075, 2.03673, .24055, .00883,
1127 + .00000, .13908, .24775,
1128 + .14201, .08252, 2.51719, .25201, .01425,
1129 + .00000, .15126, .25949,
1130 + .14497, .08434, 2.98587, .26476, .03029,
1131 + .00000, .16474, .27252,
1132 + .14756, .08592, 3.38652, .27629, .04364,
1133 + .00000, .17688, .28429,
1134 + .15008, .08744, 3.77099, .28768, .05695,
1135 + .00000, .18886, .29592,
1136 + .15278, .08908, 4.17618, .30015, .07168,
1137 + .00000, .20196, .30864 /
1138 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
1139 + .15513, .09049, 4.51629, .31125, .08413,
1140 + .00000, .21360, .31996,
1141 + .15741, .09183, 4.83808, .32216, .09641,
1142 + .00000, .22502, .33109,
1143 + .15922, .09292, 5.09278, .33098, .10652,
1144 + .00000, .23425, .34008,
1145 + .16306, .09517, 5.62156, .35014, .12794,
1146 + .00000, .25426, .35960,
1147 + .16639, .09711, 5.99943, .36679, .14640,
1148 + .01661, .27166, .37656,
1149 + .17010, .09925, 6.41243, .38562, .16728,
1150 + .04297, .29129, .39573,
1151 + .17396, .10146, 6.82027, .40523, .18898,
1152 + .06716, .31174, .41569,
1153 + .17744, .10344, 7.16913, .42298, .20858,
1154 + .08903, .33024, .43376 /
1155 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
1156 + .18093, .10540, 7.50183, .44081, .22829,
1157 + .11091, .34884, .45191,
1158 + .18380, .10702, 7.76044, .45548, .24440,
1159 + .12856, .36413, .46684,
1160 + .18726, .10895, 8.05317, .47302, .26361,
1161 + .14953, .38242, .48469,
1162 + .19030, .11062, 8.29721, .48839, .28052,
1163 + .16811, .39845, .50034,
1164 + .19307, .11214, 8.50881, .50236, .29591,
1165 + .18503, .41303, .51455,
1166 + .19654, .11404, 8.75284, .51962, .31480,
1167 + .20558, .43104, .53212,
1168 + .19976, .11579, 8.96592, .53559, .33234,
1169 + .22476, .44771, .54837,
1170 + .20278, .11741, 9.15365, .55038, .34866,
1171 + .24268, .46316, .56343 /
1172 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
1173 + .20573, .11899, 9.31902, .56461, .36425,
1174 + .25961, .47804, .57792,
1175 + .20860, .12052, 9.47070, .57833, .37936,
1176 + .27614, .49240, .59189,
1177 + .21128, .12194, 9.60323, .59107, .39342,
1178 + .29151, .50574, .60486,
1179 + .21378, .12326, 9.71419, .60266, .40620,
1180 + .30544, .51789, .61666,
1181 + .21629, .12458, 9.82090, .61422, .41902,
1182 + .31950, .53001, .62844,
1183 + .21871, .12583, 9.91041, .62509, .43101,
1184 + .33258, .54142, .63951,
1185 + .22100, .12702, 9.99315, .63539, .44248,
1186 + .34517, .55225, .65001,
1187 + .22313, .12810, 10.05847, .64467, .45278,
1188 + .35641, .56201, .65946 /
1189 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
1190 + .22527, .12920, 10.12206, .65399, .46317,
1191 + .36782, .57182, .66895,
1192 + .22734, .13027, 10.17554, .66283, .47303,
1193 + .37863, .58114, .67798,
1194 + .22932, .13127, 10.22182, .67111, .48228,
1195 + .38878, .58986, .68641,
1196 + .23117, .13221, 10.26233, .67883, .49096,
1197 + .39833, .59803, .69428,
1198 + .23301, .13314, 10.29441, .68627, .49931,
1199 + .40749, .60590, .70187 /
1200 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
1201 + .14791, .08638, 1.03376, .20835, .00000,
1202 + .00000, .10929, .21614,
1203 + .15064, .08811, 1.45186, .21637, .00000,
1204 + .00000, .11794, .22442,
1205 + .15480, .09073, 2.04660, .22937, .00721,
1206 + .00000, .13191, .23783,
1207 + .15795, .09266, 2.48551, .23965, .01197,
1208 + .00000, .14289, .24843,
1209 + .16124, .09467, 2.90819, .25107, .02656,
1210 + .00000, .15502, .26018,
1211 + .16410, .09640, 3.26555, .26135, .03863,
1212 + .00000, .16592, .27072,
1213 + .16688, .09807, 3.60515, .27149, .05062,
1214 + .00000, .17664, .28113,
1215 + .16984, .09983, 3.95972, .28253, .06386,
1216 + .00000, .18832, .29248 /
1217 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
1218 + .17243, .10135, 4.25456, .29234, .07499,
1219 + .00000, .19867, .30253,
1220 + .17492, .10282, 4.53128, .30194, .08595,
1221 + .00000, .20879, .31237,
1222 + .17690, .10397, 4.74897, .30968, .09493,
1223 + .00000, .21694, .32031,
1224 + .18110, .10640, 5.19702, .32640, .11390,
1225 + .00000, .23454, .33744,
1226 + .18472, .10846, 5.51312, .34086, .13015,
1227 + .01306, .24975, .35224,
1228 + .18875, .11073, 5.85186, .35711, .14842,
1229 + .03634, .26683, .36886,
1230 + .19290, .11306, 6.18187, .37391, .16730,
1231 + .05756, .28449, .38605,
1232 + .19665, .11514, 6.46025, .38900, .18426,
1233 + .07665, .30037, .40150 /
1234 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
1235 + .20040, .11720, 6.72229, .40410, .20122,
1236 + .09565, .31626, .41695,
1237 + .20348, .11888, 6.92331, .41643, .21500,
1238 + .11089, .32922, .42957,
1239 + .20717, .12088, 7.14745, .43109, .23137,
1240 + .12893, .34466, .44456,
1241 + .21040, .12262, 7.33180, .44388, .24569,
1242 + .14482, .35812, .45763,
1243 + .21334, .12419, 7.48972, .45542, .25866,
1244 + .15923, .37029, .46944,
1245 + .21700, .12613, 7.66825, .46959, .27450,
1246 + .17664, .38524, .48393,
1247 + .22040, .12792, 7.82136, .48262, .28912,
1248 + .19281, .39899, .49726,
1249 + .22356, .12958, 7.95410, .49461, .30265,
1250 + .20784, .41167, .50952 /
1251 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
1252 + .22665, .13118, 8.06763, .50606, .31551,
1253 + .22197, .42379, .52125,
1254 + .22965, .13271, 8.16986, .51704, .32793,
1255 + .23572, .43543, .53249,
1256 + .23245, .13415, 8.25716, .52718, .33941,
1257 + .24845, .44619, .54286,
1258 + .23505, .13546, 8.32750, .53634, .34978,
1259 + .25991, .45592, .55224,
1260 + .23764, .13677, 8.39397, .54544, .36015,
1261 + .27144, .46560, .56155,
1262 + .24012, .13803, 8.44657, .55391, .36981,
1263 + .28213, .47464, .57024,
1264 + .24249, .13920, 8.49457, .56192, .37900,
1265 + .29236, .48319, .57845,
1266 + .24467, .14028, 8.52943, .56908, .38722,
1267 + .30147, .49084, .58577 /
1268 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
1269 + .24687, .14136, 8.56273, .57623, .39548,
1270 + .31068, .49850, .59310,
1271 + .24899, .14241, 8.58796, .58297, .40328,
1272 + .31937, .50574, .60002,
1273 + .25100, .14338, 8.60815, .58923, .41056,
1274 + .32750, .51248, .60646,
1275 + .25290, .14431, 8.62464, .59507, .41737,
1276 + .33513, .51876, .61244,
1277 + .25477, .14520, 8.63427, .60064, .42389,
1278 + .34242, .52478, .61816 /
1279 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
1280 + .17385, .10291, 1.17721, .19491, .00000,
1281 + .00000, .10167, .20490,
1282 + .17708, .10496, 1.55085, .20162, .00000,
1283 + .00000, .10902, .21197,
1284 + .18200, .10799, 2.07368, .21253, .00422,
1285 + .00000, .12090, .22341,
1286 + .18570, .11022, 2.44776, .22114, .00814,
1287 + .00000, .13023, .23240,
1288 + .18953, .11249, 2.80028, .23067, .02072,
1289 + .00000, .14052, .24235,
1290 + .19285, .11444, 3.09302, .23921, .03103,
1291 + .00000, .14969, .25121,
1292 + .19606, .11631, 3.36679, .24758, .04122,
1293 + .00000, .15868, .25992,
1294 + .19949, .11828, 3.64823, .25663, .05240,
1295 + .00000, .16841, .26934 /
1296 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
1297 + .20244, .11997, 3.87859, .26462, .06172,
1298 + .00000, .17697, .27762,
1299 + .20529, .12158, 4.09181, .27239, .07085,
1300 + .00000, .18528, .28567,
1301 + .20755, .12284, 4.25773, .27863, .07832,
1302 + .00000, .19196, .29213,
1303 + .21230, .12549, 4.59451, .29199, .09392,
1304 + .00000, .20625, .30597,
1305 + .21634, .12770, 4.82698, .30342, .10718,
1306 + .00816, .21847, .31778,
1307 + .22083, .13013, 5.06592, .31612, .12196,
1308 + .02727, .23207, .33092,
1309 + .22545, .13259, 5.29295, .32911, .13707,
1310 + .04452, .24598, .34435,
1311 + .22957, .13477, 5.47954, .34066, .15050,
1312 + .05988, .25834, .35627 /
1313 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
1314 + .23368, .13692, 5.65066, .35206, .16382,
1315 + .07504, .27059, .36806,
1316 + .23704, .13865, 5.77827, .36127, .17454,
1317 + .08710, .28050, .37759,
1318 + .24102, .14070, 5.91633, .37211, .18716,
1319 + .10126, .29216, .38879,
1320 + .24450, .14247, 6.02650, .38146, .19811,
1321 + .11363, .30225, .39845,
1322 + .24766, .14406, 6.11809, .38982, .20795,
1323 + .12478, .31128, .40709,
1324 + .25155, .14601, 6.21679, .39997, .21986,
1325 + .13814, .32226, .41757,
1326 + .25516, .14779, 6.29771, .40918, .23074,
1327 + .15042, .33225, .42709,
1328 + .25850, .14942, 6.36498, .41757, .24073,
1329 + .16177, .34136, .43577 /
1330 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
1331 + .26173, .15099, 6.41761, .42546, .25012,
1332 + .17233, .34997, .44393,
1333 + .26485, .15249, 6.46225, .43295, .25912,
1334 + .18253, .35816, .45167,
1335 + .26775, .15387, 6.49728, .43978, .26737,
1336 + .19191, .36565, .45875,
1337 + .27043, .15511, 6.52150, .44588, .27476,
1338 + .20029, .37236, .46505,
1339 + .27308, .15637, 6.54279, .45188, .28210,
1340 + .20867, .37897, .47127,
1341 + .27562, .15754, 6.55450, .45738, .28886,
1342 + .21637, .38508, .47696,
1343 + .27801, .15865, 6.56426, .46254, .29526,
1344 + .22371, .39081, .48232,
1345 + .28021, .15965, 6.56590, .46707, .30091,
1346 + .23017, .39588, .48701 /
1347 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
1348 + .28242, .16065, 6.56631, .47158, .30658,
1349 + .23669, .40092, .49168,
1350 + .28454, .16160, 6.56143, .47575, .31187,
1351 + .24279, .40561, .49601,
1352 + .28654, .16248, 6.55419, .47959, .31678,
1353 + .24847, .40995, .50000,
1354 + .28841, .16331, 6.54560, .48312, .32134,
1355 + .25376, .41396, .50367,
1356 + .29025, .16412, 6.53208, .48643, .32565,
1357 + .25876, .41774, .50711 /
1358 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
1359 + .20649, .12357, 1.35202, .17959, .00000,
1360 + .00000, .09251, .19256,
1361 + .21044, .12596, 1.67059, .18509, .00000,
1362 + .00000, .09871, .19853,
1363 + .21635, .12947, 2.11053, .19402, .00038,
1364 + .00000, .10868, .20814,
1365 + .22071, .13199, 2.41232, .20102, .00363,
1366 + .00000, .11648, .21564,
1367 + .22521, .13456, 2.68902, .20875, .01430,
1368 + .00000, .12503, .22387,
1369 + .22908, .13673, 2.91382, .21558, .02298,
1370 + .00000, .13256, .23112,
1371 + .23281, .13878, 3.12000, .22224, .03147,
1372 + .00000, .13990, .23817,
1373 + .23674, .14093, 3.32792, .22939, .04071,
1374 + .00000, .14778, .24574 /
1375 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
1376 + .24013, .14275, 3.49473, .23561, .04835,
1377 + .00000, .15463, .25232,
1378 + .24336, .14448, 3.64631, .24163, .05577,
1379 + .00000, .16126, .25867,
1380 + .24593, .14584, 3.76264, .24641, .06181,
1381 + .00000, .16654, .26372,
1382 + .25127, .14862, 3.99435, .25658, .07432,
1383 + .00000, .17773, .27443,
1384 + .25575, .15092, 4.14972, .26515, .08482,
1385 + .00367, .18717, .28342,
1386 + .26069, .15341, 4.29849, .27453, .09638,
1387 + .01891, .19753, .29328,
1388 + .26572, .15590, 4.43436, .28398, .10806,
1389 + .03251, .20799, .30318,
1390 + .27017, .15808, 4.54119, .29223, .11832,
1391 + .04448, .21717, .31186 /
1392 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
1393 + .27457, .16021, 4.63473, .30028, .12837,
1394 + .05617, .22614, .32030,
1395 + .27813, .16191, 4.70072, .30669, .13639,
1396 + .06540, .23328, .32701,
1397 + .28234, .16389, 4.76777, .31409, .14571,
1398 + .07611, .24160, .33479,
1399 + .28598, .16558, 4.81779, .32040, .15372,
1400 + .08539, .24869, .34140,
1401 + .28925, .16709, 4.85644, .32595, .16084,
1402 + .09367, .25497, .34722,
1403 + .29327, .16890, 4.89256, .33256, .16935,
1404 + .10350, .26249, .35416,
1405 + .29694, .17054, 4.91779, .33847, .17705,
1406 + .11244, .26924, .36035,
1407 + .30032, .17204, 4.93527, .34376, .18405,
1408 + .12064, .27532, .36592 /
1409 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
1410 + .30355, .17344, 4.94251, .34864, .19053,
1411 + .12818, .28097, .37102,
1412 + .30665, .17476, 4.94496, .35318, .19668,
1413 + .13539, .28626, .37579,
1414 + .30953, .17598, 4.94247, .35724, .20227,
1415 + .14198, .29104, .38006,
1416 + .31212, .17706, 4.93425, .36078, .20719,
1417 + .14778, .29523, .38379,
1418 + .31471, .17813, 4.92416, .36423, .21206,
1419 + .15357, .29932, .38741,
1420 + .31715, .17911, 4.90813, .36729, .21647,
1421 + .15881, .30303, .39063,
1422 + .31944, .18003, 4.89226, .37013, .22063,
1423 + .16379, .30647, .39362,
1424 + .32151, .18085, 4.87236, .37254, .22425,
1425 + .16813, .30945, .39617 /
1426 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
1427 + .32359, .18166, 4.85176, .37490, .22784,
1428 + .17247, .31238, .39867,
1429 + .32557, .18241, 4.82810, .37703, .23115,
1430 + .17650, .31506, .40090,
1431 + .32742, .18311, 4.80405, .37894, .23420,
1432 + .18021, .31749, .40293,
1433 + .32915, .18375, 4.78034, .38066, .23700,
1434 + .18366, .31972, .40475,
1435 + .33082, .18436, 4.75347, .38219, .23961,
1436 + .18688, .32175, .40639 /
1437 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
1438 + .25192, .15141, 1.55250, .16045, .00000,
1439 + .00000, .08085, .17831,
1440 + .25684, .15423, 1.79822, .16476, .00000,
1441 + .00000, .08600, .18323,
1442 + .26406, .15822, 2.13525, .17165, -.00448,
1443 + .00000, .09414, .19100,
1444 + .26928, .16100, 2.35126, .17698, -.00172,
1445 + .00000, .10040, .19694,
1446 + .27460, .16379, 2.54097, .18281, .00705,
1447 + .00000, .10719, .20336,
1448 + .27913, .16611, 2.69046, .18787, .01410,
1449 + .00000, .11310, .20891,
1450 + .28342, .16828, 2.82371, .19275, .02090,
1451 + .00000, .11877, .21423,
1452 + .28792, .17050, 2.95426, .19790, .02822,
1453 + .00000, .12477, .21985 /
1454 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
1455 + .29174, .17237, 3.05559, .20232, .03420,
1456 + .00000, .12992, .22465,
1457 + .29537, .17411, 3.14494, .20653, .03995,
1458 + .00000, .13484, .22921,
1459 + .29821, .17547, 3.21203, .20985, .04458,
1460 + .00000, .13871, .23281,
1461 + .30407, .17823, 3.34146, .21678, .05406,
1462 + .00000, .14681, .24027,
1463 + .30891, .18041, 3.42374, .22248, .06188,
1464 + -.00045, .15351, .24641,
1465 + .31414, .18274, 3.48939, .22859, .07036,
1466 + .01100, .16074, .25295,
1467 + .31939, .18504, 3.54337, .23458, .07879,
1468 + .02109, .16786, .25938,
1469 + .32397, .18700, 3.58035, .23969, .08607,
1470 + .02983, .17399, .26484 /
1471 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
1472 + .32844, .18886, 3.60758, .24454, .09311,
1473 + .03827, .17985, .27004,
1474 + .33202, .19031, 3.62226, .24830, .09863,
1475 + .04483, .18445, .27405,
1476 + .33619, .19197, 3.63134, .25254, .10496,
1477 + .05237, .18967, .27858,
1478 + .33974, .19335, 3.63335, .25604, .11031,
1479 + .05881, .19404, .28232,
1480 + .34289, .19457, 3.63065, .25906, .11502,
1481 + .06450, .19785, .28554,
1482 + .34669, .19598, 3.61917, .26251, .12053,
1483 + .07115, .20229, .28922,
1484 + .35012, .19722, 3.60324, .26548, .12545,
1485 + .07714, .20617, .29238,
1486 + .35323, .19832, 3.58490, .26807, .12986,
1487 + .08254, .20960, .29514 /
1488 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
1489 + .35616, .19931, 3.56063, .27030, .13386,
1490 + .08745, .21266, .29753,
1491 + .35892, .20023, 3.53453, .27233, .13760,
1492 + .09210, .21549, .29968,
1493 + .36143, .20105, 3.50734, .27407, .14094,
1494 + .09627, .21797, .30152,
1495 + .36368, .20175, 3.47859, .27547, .14384,
1496 + .09993, .22007, .30302,
1497 + .36588, .20241, 3.44912, .27678, .14667,
1498 + .10352, .22208, .30443,
1499 + .36790, .20299, 3.41683, .27785, .14918,
1500 + .10673, .22382, .30557,
1501 + .36980, .20352, 3.38624, .27882, .15152,
1502 + .10976, .22541, .30659,
1503 + .37146, .20397, 3.35477, .27952, .15350,
1504 + .11234, .22670, .30734 /
1505 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
1506 + .37312, .20440, 3.32316, .28019, .15545,
1507 + .11491, .22794, .30803,
1508 + .37466, .20477, 3.29039, .28069, .15722,
1509 + .11727, .22902, .30857,
1510 + .37607, .20510, 3.25867, .28109, .15880,
1511 + .11942, .22997, .30899,
1512 + .37739, .20540, 3.22839, .28141, .16025,
1513 + .12139, .23080, .30934,
1514 + .37862, .20564, 3.19635, .28160, .16155,
1515 + .12320, .23149, .30953 /
1516 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
1517 + .28993, .17390, 1.67238, .14517, .00000,
1518 + .00000, .07173, .16721,
1519 + .29572, .17694, 1.86071, .14871, .00000,
1520 + .00000, .07627, .17151,
1521 + .30405, .18118, 2.12010, .15430, -.00776,
1522 + .00000, .08330, .17808,
1523 + .30993, .18406, 2.27464, .15853, -.00521,
1524 + .00000, .08861, .18298,
1525 + .31585, .18688, 2.40409, .16311, .00235,
1526 + .00000, .09427, .18820,
1527 + .32081, .18919, 2.50291, .16701, .00835,
1528 + .00000, .09913, .19260,
1529 + .32547, .19132, 2.58842, .17072, .01410,
1530 + .00000, .10372, .19676,
1531 + .33029, .19349, 2.66954, .17458, .02019,
1532 + .00000, .10854, .20110 /
1533 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
1534 + .33434, .19526, 2.72995, .17785, .02513,
1535 + .00000, .11261, .20473,
1536 + .33815, .19690, 2.78120, .18091, .02984,
1537 + .00000, .11645, .20811,
1538 + .34112, .19817, 2.81862, .18330, .03360,
1539 + .00000, .11945, .21075,
1540 + .34717, .20065, 2.88771, .18822, .04121,
1541 + .00000, .12564, .21616,
1542 + .35202, .20258, 2.92796, .19215, .04741,
1543 + -.00256, .13066, .22046,
1544 + .35723, .20457, 2.94760, .19627, .05405,
1545 + .00656, .13597, .22495,
1546 + .36236, .20649, 2.95774, .20020, .06055,
1547 + .01450, .14112, .22920,
1548 + .36678, .20806, 2.95847, .20345, .06609,
1549 + .02132, .14544, .23271 /
1550 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
1551 + .37102, .20952, 2.95218, .20644, .07137,
1552 + .02782, .14951, .23594,
1553 + .37436, .21063, 2.94160, .20868, .07548,
1554 + .03284, .15263, .23835,
1555 + .37817, .21185, 2.92301, .21112, .08011,
1556 + .03853, .15611, .24096,
1557 + .38138, .21283, 2.90281, .21306, .08399,
1558 + .04336, .15895, .24304,
1559 + .38419, .21365, 2.88158, .21467, .08735,
1560 + .04757, .16138, .24474,
1561 + .38751, .21456, 2.84964, .21640, .09124,
1562 + .05244, .16412, .24658,
1563 + .39044, .21531, 2.81674, .21781, .09466,
1564 + .05679, .16645, .24806,
1565 + .39305, .21595, 2.78418, .21897, .09769,
1566 + .06068, .16846, .24927 /
1567 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
1568 + .39543, .21648, 2.74810, .21985, .10039,
1569 + .06416, .17019, .25017,
1570 + .39765, .21692, 2.71183, .22057, .10288,
1571 + .06743, .17173, .25091,
1572 + .39964, .21727, 2.67640, .22110, .10508,
1573 + .07035, .17302, .25145,
1574 + .40134, .21754, 2.64137, .22146, .10695,
1575 + .07286, .17406, .25177,
1576 + .40298, .21778, 2.60625, .22173, .10875,
1577 + .07531, .17503, .25202,
1578 + .40443, .21793, 2.56996, .22183, .11032,
1579 + .07748, .17579, .25207,
1580 + .40578, .21806, 2.53598, .22189, .11176,
1581 + .07950, .17646, .25208,
1582 + .40693, .21811, 2.50249, .22178, .11295,
1583 + .08121, .17694, .25192 /
1584 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
1585 + .40805, .21814, 2.46918, .22165, .11412,
1586 + .08290, .17739, .25173,
1587 + .40904, .21812, 2.43565, .22140, .11513,
1588 + .08441, .17771, .25142,
1589 + .40993, .21806, 2.40370, .22110, .11603,
1590 + .08579, .17796, .25107,
1591 + .41072, .21799, 2.37355, .22079, .11684,
1592 + .08705, .17813, .25069,
1593 + .41143, .21788, 2.34239, .22036, .11754,
1594 + .08818, .17821, .25019 /
1595 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
1596 + .35490, .20929, 1.74707, .12139, .00000,
1597 + .00000, .05878, .15183,
1598 + .36182, .21242, 1.85275, .12393, .00000,
1599 + .00000, .06252, .15506,
1600 + .37148, .21653, 2.00327, .12770, -.01129,
1601 + .00000, .06804, .15975,
1602 + .37798, .21920, 2.07690, .13046, -.00893,
1603 + .00000, .07206, .16304,
1604 + .38440, .22169, 2.12980, .13336, -.00298,
1605 + .00000, .07621, .16641,
1606 + .38963, .22365, 2.16607, .13574, .00169,
1607 + .00000, .07967, .16916,
1608 + .39443, .22539, 2.19429, .13794, .00607,
1609 + .00000, .08286, .17165,
1610 + .39931, .22708, 2.21771, .14016, .01062,
1611 + .00000, .08613, .17413 /
1612 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
1613 + .40331, .22842, 2.23143, .14195, .01426,
1614 + .00000, .08881, .17614,
1615 + .40697, .22959, 2.24018, .14359, .01767,
1616 + .00000, .09129, .17793,
1617 + .40980, .23047, 2.24513, .14485, .02036,
1618 + .00000, .09321, .17927,
1619 + .41536, .23209, 2.24978, .14730, .02572,
1620 + .00000, .09703, .18191,
1621 + .41965, .23319, 2.24622, .14916, .02998,
1622 + -.00433, .10002, .18386,
1623 + .42405, .23423, 2.22100, .15098, .03445,
1624 + .00197, .10306, .18572,
1625 + .42823, .23511, 2.18989, .15256, .03873,
1626 + .00738, .10589, .18729,
1627 + .43166, .23572, 2.15787, .15375, .04230,
1628 + .01194, .10819, .18843 /
1629 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
1630 + .43481, .23618, 2.12271, .15472, .04563,
1631 + .01622, .11023, .18932,
1632 + .43719, .23645, 2.09135, .15534, .04816,
1633 + .01946, .11172, .18985,
1634 + .43975, .23662, 2.05113, .15591, .05098,
1635 + .02310, .11330, .19026,
1636 + .44180, .23667, 2.01453, .15624, .05328,
1637 + .02613, .11453, .19044,
1638 + .44350, .23664, 1.98034, .15643, .05523,
1639 + .02873, .11550, .19047,
1640 + .44535, .23643, 1.93530, .15646, .05745,
1641 + .03170, .11650, .19029,
1642 + .44687, .23614, 1.89261, .15633, .05933,
1643 + .03429, .11727, .18994,
1644 + .44811, .23581, 1.85272, .15612, .06097,
1645 + .03658, .11786, .18950 /
1646 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
1647 + .44909, .23534, 1.81184, .15573, .06238,
1648 + .03859, .11827, .18887,
1649 + .44990, .23482, 1.77228, .15526, .06365,
1650 + .04044, .11856, .18816,
1651 + .45051, .23428, 1.73509, .15474, .06474,
1652 + .04207, .11872, .18739,
1653 + .45091, .23370, 1.69984, .15416, .06564,
1654 + .04344, .11877, .18657,
1655 + .45124, .23307, 1.66514, .15353, .06648,
1656 + .04477, .11878, .18569,
1657 + .45139, .23239, 1.63076, .15280, .06717,
1658 + .04591, .11867, .18471,
1659 + .45148, .23173, 1.59893, .15209, .06779,
1660 + .04696, .11854, .18377,
1661 + .45140, .23102, 1.56862, .15135, .06827,
1662 + .04784, .11831, .18278 /
1663 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
1664 + .45130, .23032, 1.53877, .15058, .06873,
1665 + .04868, .11806, .18177,
1666 + .45107, .22956, 1.50942, .14976, .06910,
1667 + .04943, .11774, .18071,
1668 + .45079, .22882, 1.48186, .14896, .06942,
1669 + .05009, .11742, .17967,
1670 + .45049, .22809, 1.45614, .14817, .06968,
1671 + .05068, .11708, .17866,
1672 + .45005, .22732, 1.43017, .14732, .06988,
1673 + .05119, .11667, .17759 /
1674 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
1675 + .40948, .23594, 1.69918, .10281, .00000,
1676 + .00000, .04985, .14011,
1677 + .41697, .23872, 1.75121, .10458, .00000,
1678 + .00000, .05294, .14236,
1679 + .42700, .24221, 1.83186, .10714, -.01238,
1680 + .00000, .05736, .14537,
1681 + .43352, .24427, 1.85746, .10892, -.01020,
1682 + .00000, .06042, .14739,
1683 + .43976, .24609, 1.86678, .11072, -.00534,
1684 + .00000, .06354, .14934,
1685 + .44469, .24741, 1.86873, .11215, -.00157,
1686 + .00000, .06605, .15083,
1687 + .44909, .24851, 1.86643, .11342, .00191,
1688 + .00000, .06833, .15210,
1689 + .45343, .24952, 1.86000, .11464, .00547,
1690 + .00000, .07058, .15330 /
1691 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
1692 + .45690, .25019, 1.85041, .11556, .00828,
1693 + .00000, .07241, .15416,
1694 + .45999, .25073, 1.83852, .11638, .01089,
1695 + .00000, .07405, .15489,
1696 + .46230, .25110, 1.82807, .11697, .01292,
1697 + .00000, .07528, .15540,
1698 + .46667, .25162, 1.80306, .11809, .01693,
1699 + .00000, .07771, .15625,
1700 + .46980, .25174, 1.78009, .11881, .02005,
1701 + -.00467, .07953, .15671,
1702 + .47281, .25167, 1.73734, .11942, .02328,
1703 + -.00005, .08131, .15697,
1704 + .47543, .25138, 1.69138, .11981, .02631,
1705 + .00387, .08286, .15696,
1706 + .47740, .25093, 1.64854, .11998, .02880,
1707 + .00714, .08403, .15673 /
1708 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
1709 + .47902, .25031, 1.60473, .11997, .03107,
1710 + .01015, .08502, .15630,
1711 + .48006, .24968, 1.56795, .11984, .03278,
1712 + .01242, .08567, .15580,
1713 + .48101, .24878, 1.52310, .11952, .03464,
1714 + .01493, .08630, .15503,
1715 + .48160, .24788, 1.48374, .11914, .03613,
1716 + .01699, .08672, .15424,
1717 + .48193, .24697, 1.44802, .11871, .03738,
1718 + .01874, .08699, .15343,
1719 + .48203, .24569, 1.40271, .11803, .03876,
1720 + .02072, .08718, .15223,
1721 + .48186, .24441, 1.36091, .11730, .03991,
1722 + .02242, .08724, .15100,
1723 + .48153, .24314, 1.32265, .11655, .04089,
1724 + .02389, .08720, .14979 /
1725 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
1726 + .48089, .24177, 1.28460, .11569, .04171,
1727 + .02518, .08704, .14845,
1728 + .48014, .24038, 1.24834, .11481, .04242,
1729 + .02634, .08681, .14709,
1730 + .47928, .23901, 1.21478, .11392, .04302,
1731 + .02734, .08652, .14578,
1732 + .47829, .23765, 1.18359, .11302, .04348,
1733 + .02818, .08619, .14445,
1734 + .47723, .23628, 1.15320, .11211, .04391,
1735 + .02898, .08582, .14312,
1736 + .47600, .23486, 1.12361, .11114, .04423,
1737 + .02965, .08538, .14174,
1738 + .47481, .23350, 1.09641, .11023, .04453,
1739 + .03026, .08495, .14043,
1740 + .47350, .23217, 1.07092, .10932, .04473,
1741 + .03076, .08449, .13915 /
1742 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
1743 + .47217, .23083, 1.04597, .10839, .04492,
1744 + .03124, .08400, .13785,
1745 + .47072, .22946, 1.02174, .10745, .04504,
1746 + .03164, .08349, .13654,
1747 + .46931, .22814, .99916, .10654, .04513,
1748 + .03200, .08297, .13528,
1749 + .46790, .22688, .97826, .10567, .04520,
1750 + .03230, .08247, .13409,
1751 + .46640, .22556, .95736, .10477, .04522,
1752 + .03256, .08194, .13285 /
1753 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
1754 + .45679, .25655, 1.59118, .08768, .00000,
1755 + .00000, .04322, .13000,
1756 + .46437, .25873, 1.60835, .08887, .00000,
1757 + .00000, .04574, .13127,
1758 + .47406, .26120, 1.64372, .09050, -.01226,
1759 + .00000, .04920, .13278,
1760 + .48005, .26247, 1.64048, .09159, -.01027,
1761 + .00000, .05152, .13366,
1762 + .48557, .26341, 1.62478, .09265, -.00625,
1763 + .00000, .05383, .13445,
1764 + .48976, .26395, 1.60766, .09343, -.00316,
1765 + .00000, .05563, .13495,
1766 + .49337, .26426, 1.58894, .09408, -.00035,
1767 + .00000, .05723, .13527,
1768 + .49680, .26440, 1.56693, .09466, .00251,
1769 + .00000, .05878, .13546 /
1770 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
1771 + .49935, .26438, 1.54551, .09507, .00475,
1772 + .00000, .06001, .13549,
1773 + .50152, .26420, 1.52352, .09538, .00679,
1774 + .00000, .06108, .13543,
1775 + .50308, .26400, 1.50574, .09558, .00838,
1776 + .00000, .06186, .13534,
1777 + .50583, .26328, 1.46714, .09586, .01147,
1778 + .00000, .06334, .13498,
1779 + .50738, .26239, 1.43597, .09596, .01384,
1780 + -.00452, .06441, .13443,
1781 + .50862, .26116, 1.38741, .09590, .01625,
1782 + -.00102, .06539, .13364,
1783 + .50938, .25966, 1.33732, .09563, .01849,
1784 + .00193, .06617, .13264,
1785 + .50960, .25814, 1.29233, .09525, .02031,
1786 + .00437, .06669, .13157 /
1787 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
1788 + .50943, .25648, 1.24765, .09476, .02194,
1789 + .00659, .06705, .13036,
1790 + .50898, .25500, 1.21106, .09428, .02315,
1791 + .00825, .06726, .12925,
1792 + .50810, .25306, 1.16748, .09355, .02444,
1793 + .01005, .06734, .12782,
1794 + .50707, .25127, 1.12994, .09285, .02547,
1795 + .01153, .06732, .12649,
1796 + .50592, .24958, 1.09640, .09216, .02632,
1797 + .01277, .06723, .12521,
1798 + .50415, .24729, 1.05466, .09117, .02723,
1799 + .01415, .06703, .12351,
1800 + .50224, .24509, 1.01672, .09021, .02798,
1801 + .01533, .06672, .12185,
1802 + .50025, .24301, .98245, .08928, .02860,
1803 + .01634, .06639, .12026 /
1804 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
1805 + .49802, .24083, .94890, .08826, .02910,
1806 + .01720, .06597, .11862,
1807 + .49569, .23868, .91726, .08724, .02952,
1808 + .01798, .06551, .11699,
1809 + .49335, .23661, .88829, .08627, .02987,
1810 + .01864, .06503, .11544,
1811 + .49100, .23460, .86166, .08531, .03012,
1812 + .01918, .06454, .11393,
1813 + .48860, .23259, .83587, .08434, .03034,
1814 + .01969, .06403, .11243,
1815 + .48605, .23055, .81106, .08335, .03050,
1816 + .02012, .06348, .11091,
1817 + .48361, .22863, .78836, .08242, .03063,
1818 + .02049, .06295, .10950,
1819 + .48115, .22677, .76730, .08150, .03071,
1820 + .02079, .06242, .10814 /
1821 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
1822 + .47866, .22490, .74679, .08060, .03077,
1823 + .02108, .06186, .10679,
1824 + .47611, .22303, .72702, .07968, .03079,
1825 + .02132, .06131, .10543,
1826 + .47363, .22125, .70870, .07880, .03079,
1827 + .02152, .06076, .10414,
1828 + .47125, .21956, .69181, .07798, .03077,
1829 + .02169, .06024, .10292,
1830 + .46874, .21783, .67506, .07713, .03073,
1831 + .02183, .05970, .10168 /
1832 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
1833 + .50727, .27497, 1.42586, .07203, .00000,
1834 + .00000, .03657, .11753,
1835 + .51400, .27614, 1.41655, .07277, .00000,
1836 + .00000, .03847, .11765,
1837 + .52218, .27696, 1.41695, .07365, -.01136,
1838 + .00000, .04098, .11760,
1839 + .52683, .27702, 1.39347, .07418, -.00960,
1840 + .00000, .04258, .11738,
1841 + .53077, .27671, 1.36114, .07468, -.00639,
1842 + .00000, .04416, .11703,
1843 + .53351, .27615, 1.33177, .07496, -.00393,
1844 + .00000, .04534, .11660,
1845 + .53562, .27543, 1.30291, .07517, -.00172,
1846 + .00000, .04636, .11608,
1847 + .53739, .27448, 1.27173, .07529, .00048,
1848 + .00000, .04730, .11543 /
1849 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
1850 + .53849, .27347, 1.24378, .07531, .00220,
1851 + .00000, .04800, .11476,
1852 + .53922, .27237, 1.21650, .07529, .00376,
1853 + .00000, .04860, .11406,
1854 + .53961, .27145, 1.19508, .07523, .00495,
1855 + .00000, .04904, .11344,
1856 + .53982, .26925, 1.15026, .07496, .00725,
1857 + .00000, .04981, .11208,
1858 + .53922, .26705, 1.11578, .07461, .00899,
1859 + -.00402, .05028, .11081,
1860 + .53798, .26446, 1.06697, .07413, .01075,
1861 + -.00146, .05065, .10925,
1862 + .53613, .26160, 1.01797, .07348, .01234,
1863 + .00068, .05087, .10753,
1864 + .53403, .25886, .97506, .07278, .01360,
1865 + .00241, .05093, .10589 /
1866 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
1867 + .53151, .25600, .93328, .07203, .01474,
1868 + .00399, .05087, .10417,
1869 + .52915, .25354, .89974, .07134, .01555,
1870 + .00515, .05074, .10270,
1871 + .52595, .25049, .86044, .07043, .01641,
1872 + .00640, .05049, .10087,
1873 + .52290, .24774, .82709, .06959, .01708,
1874 + .00741, .05021, .09922,
1875 + .51994, .24518, .79767, .06878, .01763,
1876 + .00826, .04991, .09771,
1877 + .51587, .24189, .76162, .06772, .01820,
1878 + .00918, .04944, .09575,
1879 + .51184, .23876, .72930, .06669, .01866,
1880 + .00996, .04895, .09389,
1881 + .50795, .23582, .70040, .06572, .01902,
1882 + .01061, .04845, .09216 /
1883 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
1884 + .50382, .23283, .67250, .06469, .01930,
1885 + .01116, .04791, .09042,
1886 + .49969, .22989, .64644, .06369, .01953,
1887 + .01166, .04736, .08872,
1888 + .49572, .22712, .62278, .06273, .01971,
1889 + .01207, .04682, .08713,
1890 + .49181, .22448, .60126, .06181, .01982,
1891 + .01240, .04626, .08562,
1892 + .48787, .22185, .58056, .06090, .01992,
1893 + .01270, .04571, .08411,
1894 + .48384, .21925, .56081, .06000, .01998,
1895 + .01295, .04514, .08264,
1896 + .48003, .21680, .54285, .05915, .02001,
1897 + .01318, .04461, .08126,
1898 + .47632, .21445, .52634, .05831, .02002,
1899 + .01335, .04408, .07996 /
1900 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
1901 + .47261, .21210, .51033, .05748, .02001,
1902 + .01350, .04356, .07866,
1903 + .46886, .20978, .49502, .05666, .01997,
1904 + .01362, .04302, .07739,
1905 + .46526, .20757, .48091, .05590, .01993,
1906 + .01373, .04251, .07620,
1907 + .46182, .20549, .46796, .05517, .01988,
1908 + .01381, .04201, .07507,
1909 + .45828, .20339, .45522, .05443, .01981,
1910 + .01388, .04152, .07392 /
1911 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
1912 + .54947, .28715, 1.25561, .05939, .00000,
1913 + .00000, .03104, .10483,
1914 + .55480, .28698, 1.23146, .05974, .00000,
1915 + .00000, .03245, .10413,
1916 + .56048, .28597, 1.21177, .06015, -.01019,
1917 + .00000, .03422, .10285,
1918 + .56315, .28470, 1.17816, .06037, -.00865,
1919 + .00000, .03535, .10179,
1920 + .56504, .28300, 1.13831, .06047, -.00605,
1921 + .00000, .03639, .10072,
1922 + .56591, .28127, 1.10385, .06048, -.00408,
1923 + .00000, .03713, .09967,
1924 + .56622, .27947, 1.07112, .06043, -.00232,
1925 + .00000, .03775, .09857,
1926 + .56601, .27739, 1.03679, .06031, -.00059,
1927 + .00000, .03832, .09735 /
1928 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
1929 + .56541, .27543, 1.00698, .06009, .00076,
1930 + .00000, .03870, .09629,
1931 + .56447, .27344, .97859, .05986, .00197,
1932 + .00000, .03900, .09518,
1933 + .56354, .27184, .95655, .05968, .00288,
1934 + .00000, .03920, .09429,
1935 + .56096, .26818, .91135, .05914, .00463,
1936 + .00000, .03949, .09241,
1937 + .55798, .26489, .87725, .05861, .00595,
1938 + -.00347, .03963, .09072,
1939 + .55415, .26104, .83155, .05792, .00725,
1940 + -.00156, .03965, .08878,
1941 + .54963, .25694, .78645, .05714, .00842,
1942 + .00003, .03954, .08672,
1943 + .54514, .25316, .74756, .05635, .00933,
1944 + .00131, .03936, .08485 /
1945 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
1946 + .54033, .24927, .71026, .05548, .01013,
1947 + .00245, .03910, .08293,
1948 + .53606, .24603, .68068, .05474, .01070,
1949 + .00328, .03883, .08132,
1950 + .53061, .24205, .64640, .05381, .01130,
1951 + .00418, .03841, .07940,
1952 + .52564, .23853, .61766, .05297, .01176,
1953 + .00489, .03801, .07768,
1954 + .52094, .23531, .59254, .05217, .01211,
1955 + .00548, .03763, .07610,
1956 + .51476, .23116, .56209, .05114, .01249,
1957 + .00612, .03707, .07415,
1958 + .50884, .22729, .53504, .05014, .01277,
1959 + .00665, .03652, .07234,
1960 + .50322, .22369, .51107, .04921, .01300,
1961 + .00710, .03598, .07065 /
1962 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
1963 + .49743, .22008, .48814, .04827, .01316,
1964 + .00746, .03543, .06898,
1965 + .49171, .21658, .46688, .04735, .01329,
1966 + .00778, .03487, .06738,
1967 + .48625, .21329, .44773, .04649, .01338,
1968 + .00806, .03432, .06588,
1969 + .48102, .21020, .43046, .04568, .01343,
1970 + .00827, .03380, .06448,
1971 + .47578, .20714, .41394, .04487, .01346,
1972 + .00846, .03329, .06310,
1973 + .47054, .20412, .39832, .04405, .01346,
1974 + .00860, .03276, .06177,
1975 + .46562, .20129, .38414, .04330, .01347,
1976 + .00874, .03227, .06052,
1977 + .46086, .19861, .37121, .04257, .01344,
1978 + .00884, .03179, .05936 /
1979 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
1980 + .45612, .19593, .35871, .04187, .01341,
1981 + .00893, .03130, .05821,
1982 + .45138, .19332, .34684, .04117, .01335,
1983 + .00899, .03083, .05708,
1984 + .44688, .19086, .33594, .04052, .01330,
1985 + .00905, .03038, .05602,
1986 + .44262, .18855, .32598, .03990, .01324,
1987 + .00908, .02995, .05502,
1988 + .43825, .18621, .31622, .03929, .01316,
1989 + .00911, .02952, .05403 /
1990 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
1991 + .58396, .29401, 1.09521, .04915, .00000,
1992 + .00000, .02621, .09190,
1993 + .58715, .29251, 1.06311, .04935, .00000,
1994 + .00000, .02721, .09052,
1995 + .58962, .28956, 1.03211, .04948, -.00901,
1996 + .00000, .02845, .08841,
1997 + .58992, .28697, .99396, .04949, -.00767,
1998 + .00000, .02920, .08684,
1999 + .58928, .28395, .95154, .04945, -.00554,
2000 + .00000, .02987, .08518,
2001 + .58801, .28111, .91573, .04927, -.00394,
2002 + .00000, .03031, .08378,
2003 + .58626, .27826, .88229, .04906, -.00251,
2004 + .00000, .03065, .08242,
2005 + .58390, .27514, .84783, .04879, -.00114,
2006 + .00000, .03093, .08094 /
2007 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
2008 + .58140, .27233, .81851, .04852, -.00007,
2009 + .00000, .03110, .07957,
2010 + .57870, .26952, .79090, .04820, .00089,
2011 + .00000, .03122, .07826,
2012 + .57644, .26724, .76970, .04790, .00161,
2013 + .00000, .03127, .07728,
2014 + .57096, .26235, .72669, .04723, .00296,
2015 + .00000, .03129, .07515,
2016 + .56561, .25802, .69476, .04661, .00397,
2017 + -.00296, .03122, .07330,
2018 + .55919, .25313, .65339, .04587, .00495,
2019 + -.00151, .03104, .07125,
2020 + .55210, .24800, .61307, .04503, .00583,
2021 + -.00030, .03078, .06912,
2022 + .54538, .24333, .57872, .04422, .00650,
2023 + .00065, .03046, .06722 /
2024 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
2025 + .53835, .23864, .54616, .04336, .00708,
2026 + .00150, .03008, .06533,
2027 + .53232, .23475, .52056, .04265, .00750,
2028 + .00212, .02973, .06374,
2029 + .52485, .23003, .49121, .04175, .00792,
2030 + .00277, .02927, .06187,
2031 + .51816, .22589, .46678, .04093, .00823,
2032 + .00329, .02885, .06027,
2033 + .51195, .22212, .44563, .04018, .00848,
2034 + .00371, .02844, .05880,
2035 + .50391, .21738, .42021, .03923, .00873,
2036 + .00416, .02789, .05696,
2037 + .49630, .21299, .39780, .03834, .00892,
2038 + .00454, .02736, .05528,
2039 + .48919, .20893, .37811, .03750, .00906,
2040 + .00484, .02684, .05375 /
2041 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
2042 + .48196, .20488, .35943, .03666, .00914,
2043 + .00509, .02631, .05225,
2044 + .47491, .20098, .34222, .03585, .00922,
2045 + .00531, .02579, .05081,
2046 + .46824, .19734, .32683, .03510, .00926,
2047 + .00549, .02531, .04947,
2048 + .46194, .19394, .31300, .03438, .00928,
2049 + .00563, .02484, .04825,
2050 + .45569, .19059, .29985, .03366, .00928,
2051 + .00575, .02438, .04706,
2052 + .44947, .18732, .28751, .03295, .00927,
2053 + .00585, .02391, .04589,
2054 + .44364, .18428, .27635, .03230, .00924,
2055 + .00592, .02348, .04482,
2056 + .43809, .18140, .26621, .03169, .00921,
2057 + .00599, .02306, .04382 /
2058 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
2059 + .43258, .17854, .25646, .03108, .00917,
2060 + .00603, .02265, .04283,
2061 + .42710, .17574, .24725, .03050, .00912,
2062 + .00607, .02225, .04188,
2063 + .42191, .17312, .23882, .02994, .00906,
2064 + .00609, .02188, .04099,
2065 + .41704, .17066, .23116, .02942, .00901,
2066 + .00611, .02152, .04017,
2067 + .41210, .16819, .22367, .02890, .00894,
2068 + .00612, .02115, .03935 /
2069 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
2070 + .61093, .29640, .94968, .04093, .00000,
2071 + .00000, .02188, .07886,
2072 + .61159, .29352, .91358, .04098, .00000,
2073 + .00000, .02260, .07714,
2074 + .61036, .28856, .87649, .04092, -.00792,
2075 + .00000, .02347, .07459,
2076 + .60803, .28464, .83696, .04080, -.00674,
2077 + .00000, .02394, .07276,
2078 + .60466, .28035, .79455, .04062, -.00498,
2079 + .00000, .02433, .07092,
2080 + .60106, .27648, .75933, .04036, -.00366,
2081 + .00000, .02460, .06934,
2082 + .59715, .27269, .72687, .04009, -.00251,
2083 + .00000, .02478, .06781,
2084 + .59259, .26859, .69386, .03972, -.00139,
2085 + .00000, .02490, .06619 /
2086 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
2087 + .58824, .26496, .66610, .03938, -.00053,
2088 + .00000, .02492, .06482,
2089 + .58375, .26144, .64022, .03900, .00023,
2090 + .00000, .02491, .06351,
2091 + .58005, .25864, .62052, .03869, .00080,
2092 + .00000, .02489, .06245,
2093 + .57180, .25264, .58082, .03797, .00186,
2094 + .00000, .02477, .06031,
2095 + .56412, .24749, .55167, .03734, .00264,
2096 + -.00249, .02458, .05850,
2097 + .55527, .24172, .51495, .03658, .00340,
2098 + -.00137, .02432, .05648,
2099 + .54577, .23577, .47956, .03574, .00406,
2100 + -.00045, .02396, .05446,
2101 + .53697, .23039, .44974, .03495, .00456,
2102 + .00027, .02360, .05267 /
2103 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
2104 + .52796, .22504, .42167, .03412, .00499,
2105 + .00091, .02322, .05090,
2106 + .52039, .22066, .39982, .03345, .00529,
2107 + .00136, .02286, .04947,
2108 + .51113, .21541, .37498, .03262, .00559,
2109 + .00185, .02239, .04776,
2110 + .50292, .21083, .35450, .03188, .00582,
2111 + .00223, .02196, .04629,
2112 + .49540, .20671, .33687, .03119, .00599,
2113 + .00253, .02156, .04498,
2114 + .48579, .20154, .31582, .03034, .00616,
2115 + .00286, .02106, .04337,
2116 + .47682, .19676, .29744, .02952, .00627,
2117 + .00312, .02057, .04191,
2118 + .46851, .19238, .28137, .02878, .00637,
2119 + .00334, .02012, .04058 /
2120 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
2121 + .46013, .18808, .26623, .02804, .00642,
2122 + .00351, .01964, .03927,
2123 + .45203, .18396, .25238, .02734, .00645,
2124 + .00366, .01919, .03804,
2125 + .44443, .18011, .24007, .02666, .00648,
2126 + .00378, .01877, .03691,
2127 + .43728, .17654, .22911, .02605, .00647,
2128 + .00387, .01836, .03588,
2129 + .43022, .17303, .21870, .02545, .00646,
2130 + .00395, .01795, .03488,
2131 + .42326, .16963, .20896, .02485, .00643,
2132 + .00401, .01756, .03391,
2133 + .41676, .16648, .20019, .02430, .00641,
2134 + .00406, .01719, .03301,
2135 + .41062, .16352, .19230, .02378, .00638,
2136 + .00410, .01685, .03217 /
2137 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
2138 + .40453, .16059, .18475, .02327, .00633,
2139 + .00412, .01651, .03137,
2140 + .39853, .15773, .17763, .02277, .00629,
2141 + .00415, .01618, .03058,
2142 + .39287, .15506, .17114, .02232, .00624,
2143 + .00416, .01585, .02985,
2144 + .38757, .15257, .16523, .02190, .00619,
2145 + .00416, .01556, .02918,
2146 + .38220, .15008, .15951, .02146, .00614,
2147 + .00416, .01528, .02850 /
2148 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
2149 + .63072, .29480, .81924, .03430, .00000,
2150 + .00000, .01802, .06626,
2151 + .62853, .29051, .78155, .03428, .00000,
2152 + .00000, .01858, .06435,
2153 + .62323, .28372, .74160, .03404, -.00692,
2154 + .00000, .01920, .06168,
2155 + .61808, .27857, .70248, .03380, -.00589,
2156 + .00000, .01949, .05985,
2157 + .61193, .27307, .66156, .03353, -.00442,
2158 + .00000, .01974, .05796,
2159 + .60598, .26827, .62799, .03322, -.00333,
2160 + .00000, .01987, .05637,
2161 + .59988, .26365, .59743, .03288, -.00238,
2162 + .00000, .01995, .05486,
2163 + .59306, .25874, .56661, .03249, -.00147,
2164 + .00000, .01995, .05330 /
2165 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
2166 + .58687, .25444, .54096, .03209, -.00078,
2167 + .00000, .01995, .05194,
2168 + .58066, .25030, .51732, .03169, -.00017,
2169 + .00000, .01988, .05064,
2170 + .57565, .24703, .49941, .03138, .00028,
2171 + .00000, .01981, .04968,
2172 + .56471, .24014, .46365, .03066, .00112,
2173 + .00000, .01956, .04768,
2174 + .55498, .23426, .43759, .03000, .00174,
2175 + -.00208, .01932, .04601,
2176 + .54388, .22781, .40543, .02925, .00232,
2177 + -.00122, .01903, .04420,
2178 + .53224, .22122, .37478, .02845, .00282,
2179 + -.00051, .01865, .04235,
2180 + .52162, .21536, .34917, .02770, .00321,
2181 + .00004, .01830, .04074 /
2182 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
2183 + .51089, .20958, .32533, .02697, .00352,
2184 + .00052, .01790, .03916,
2185 + .50199, .20484, .30692, .02632, .00375,
2186 + .00088, .01755, .03793,
2187 + .49121, .19920, .28615, .02556, .00397,
2188 + .00123, .01713, .03643,
2189 + .48176, .19436, .26914, .02490, .00413,
2190 + .00151, .01674, .03516,
2191 + .47319, .19001, .25459, .02427, .00424,
2192 + .00173, .01638, .03405,
2193 + .46232, .18460, .23734, .02351, .00436,
2194 + .00197, .01591, .03266,
2195 + .45225, .17964, .22238, .02281, .00444,
2196 + .00216, .01547, .03142,
2197 + .44298, .17510, .20939, .02216, .00450,
2198 + .00232, .01508, .03029 /
2199 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
2200 + .43373, .17066, .19730, .02150, .00453,
2201 + .00243, .01468, .02923,
2202 + .42483, .16643, .18626, .02090, .00455,
2203 + .00254, .01429, .02820,
2204 + .41652, .16252, .17645, .02034, .00455,
2205 + .00262, .01394, .02727,
2206 + .40877, .15891, .16780, .01984, .00454,
2207 + .00268, .01359, .02641,
2208 + .40113, .15539, .15962, .01934, .00452,
2209 + .00273, .01325, .02557,
2210 + .39370, .15194, .15201, .01883, .00450,
2211 + .00277, .01292, .02480,
2212 + .38678, .14875, .14523, .01835, .00447,
2213 + .00280, .01261, .02409,
2214 + .38024, .14579, .13911, .01792, .00444,
2215 + .00282, .01233, .02341 /
2216 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
2217 + .37378, .14289, .13326, .01750, .00441,
2218 + .00284, .01205, .02274,
2219 + .36745, .14006, .12778, .01709, .00436,
2220 + .00285, .01177, .02212,
2221 + .36151, .13742, .12280, .01670, .00432,
2222 + .00285, .01151, .02155,
2223 + .35596, .13496, .11831, .01635, .00428,
2224 + .00285, .01127, .02101,
2225 + .35038, .13250, .11397, .01599, .00424,
2226 + .00285, .01103, .02049 /
2227 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
2228 + .64379, .28945, .70225, .02858, .00000,
2229 + .00000, .01485, .05467,
2230 + .63838, .28400, .66468, .02856, .00000,
2231 + .00000, .01521, .05274,
2232 + .62876, .27557, .62403, .02831, -.00601,
2233 + .00000, .01556, .05013,
2234 + .62069, .26937, .58649, .02808, -.00510,
2235 + .00000, .01576, .04830,
2236 + .61164, .26293, .54801, .02776, -.00388,
2237 + .00000, .01592, .04648,
2238 + .60338, .25733, .51680, .02744, -.00298,
2239 + .00000, .01595, .04497,
2240 + .59517, .25201, .48861, .02709, -.00219,
2241 + .00000, .01593, .04357,
2242 + .58621, .24644, .46046, .02668, -.00145,
2243 + .00000, .01588, .04211 /
2244 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
2245 + .57827, .24157, .43727, .02628, -.00089,
2246 + .00000, .01579, .04091,
2247 + .57047, .23693, .41601, .02587, -.00040,
2248 + .00000, .01568, .03979,
2249 + .56426, .23333, .40001, .02556, -.00003,
2250 + .00000, .01556, .03890,
2251 + .55084, .22578, .36835, .02489, .00064,
2252 + .00000, .01532, .03704,
2253 + .53922, .21944, .34537, .02425, .00112,
2254 + -.00172, .01506, .03558,
2255 + .52624, .21248, .31767, .02354, .00157,
2256 + -.00105, .01474, .03399,
2257 + .51276, .20543, .29146, .02279, .00196,
2258 + -.00051, .01440, .03239,
2259 + .50060, .19923, .26981, .02211, .00226,
2260 + -.00008, .01405, .03102 /
2261 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
2262 + .48845, .19316, .24981, .02142, .00250,
2263 + .00029, .01369, .02967,
2264 + .47845, .18826, .23446, .02085, .00266,
2265 + .00055, .01338, .02860,
2266 + .46649, .18244, .21732, .02015, .00281,
2267 + .00081, .01299, .02736,
2268 + .45607, .17742, .20336, .01955, .00293,
2269 + .00102, .01265, .02631,
2270 + .44666, .17296, .19144, .01901, .00301,
2271 + .00118, .01234, .02540,
2272 + .43485, .16745, .17753, .01834, .00310,
2273 + .00136, .01194, .02426,
2274 + .42397, .16244, .16552, .01773, .00315,
2275 + .00150, .01156, .02324,
2276 + .41401, .15790, .15513, .01719, .00319,
2277 + .00161, .01120, .02233 /
2278 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
2279 + .40418, .15341, .14552, .01662, .00321,
2280 + .00170, .01088, .02146,
2281 + .39477, .14918, .13680, .01610, .00321,
2282 + .00177, .01058, .02064,
2283 + .38604, .14528, .12915, .01562, .00321,
2284 + .00182, .01028, .01989,
2285 + .37791, .14171, .12240, .01517, .00320,
2286 + .00187, .00999, .01921,
2287 + .36995, .13823, .11604, .01473, .00318,
2288 + .00190, .00971, .01855,
2289 + .36220, .13486, .11018, .01432, .00315,
2290 + .00192, .00944, .01792,
2291 + .35503, .13174, .10493, .01393, .00313,
2292 + .00195, .00920, .01735,
2293 + .34829, .12885, .10027, .01357, .00310,
2294 + .00195, .00897, .01684 /
2295 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
2296 + .34165, .12602, .09580, .01322, .00307,
2297 + .00196, .00874, .01634,
2298 + .33518, .12328, .09164, .01288, .00304,
2299 + .00197, .00852, .01583,
2300 + .32913, .12071, .08788, .01258, .00301,
2301 + .00197, .00831, .01536,
2302 + .32348, .11833, .08447, .01229, .00297,
2303 + .00196, .00813, .01494,
2304 + .31782, .11597, .08121, .01200, .00294,
2305 + .00196, .00795, .01455 /
2306 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
2307 + .64887, .28228, .59757, .02488, .00000,
2308 + .00000, .01143, .04346,
2309 + .64053, .27554, .56094, .02464, .00000,
2310 + .00000, .01178, .04184,
2311 + .62680, .26550, .52093, .02423, -.00519,
2312 + .00000, .01212, .03949,
2313 + .61599, .25835, .48558, .02389, -.00439,
2314 + .00000, .01230, .03789,
2315 + .60444, .25088, .45007, .02342, -.00337,
2316 + .00000, .01243, .03635,
2317 + .59399, .24463, .42155, .02304, -.00261,
2318 + .00000, .01245, .03501,
2319 + .58387, .23869, .39602, .02265, -.00197,
2320 + .00000, .01242, .03378,
2321 + .57305, .23251, .37076, .02220, -.00136,
2322 + .00000, .01236, .03252 /
2323 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
2324 + .56344, .22731, .35015, .02183, -.00090,
2325 + .00000, .01226, .03145,
2326 + .55422, .22231, .33139, .02140, -.00050,
2327 + .00000, .01215, .03048,
2328 + .54697, .21838, .31738, .02105, -.00021,
2329 + .00000, .01205, .02976,
2330 + .53147, .21034, .28978, .02037, .00032,
2331 + .00000, .01181, .02821,
2332 + .51828, .20360, .26993, .01974, .00071,
2333 + -.00141, .01158, .02698,
2334 + .50369, .19635, .24638, .01908, .00106,
2335 + -.00088, .01130, .02562,
2336 + .48864, .18907, .22434, .01838, .00136,
2337 + -.00046, .01100, .02429,
2338 + .47524, .18268, .20630, .01774, .00158,
2339 + -.00014, .01068, .02318 /
2340 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
2341 + .46203, .17645, .18978, .01709, .00176,
2342 + .00014, .01034, .02211,
2343 + .45124, .17145, .17718, .01657, .00188,
2344 + .00034, .01009, .02122,
2345 + .43837, .16554, .16319, .01596, .00200,
2346 + .00054, .00975, .02025,
2347 + .42726, .16052, .15191, .01543, .00208,
2348 + .00069, .00946, .01940,
2349 + .41726, .15606, .14239, .01497, .00214,
2350 + .00082, .00920, .01861,
2351 + .40486, .15054, .13128, .01436, .00220,
2352 + .00095, .00887, .01773,
2353 + .39348, .14555, .12181, .01384, .00223,
2354 + .00104, .00858, .01690,
2355 + .38310, .14105, .11366, .01337, .00225,
2356 + .00112, .00831, .01615 /
2357 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
2358 + .37288, .13670, .10615, .01288, .00227,
2359 + .00118, .00801, .01551,
2360 + .36318, .13256, .09939, .01243, .00227,
2361 + .00123, .00775, .01486,
2362 + .35425, .12878, .09347, .01202, .00226,
2363 + .00127, .00751, .01427,
2364 + .34596, .12530, .08828, .01163, .00225,
2365 + .00130, .00729, .01376,
2366 + .33786, .12192, .08344, .01125, .00224,
2367 + .00133, .00707, .01324,
2368 + .33001, .11868, .07898, .01090, .00221,
2369 + .00134, .00685, .01277,
2370 + .32275, .11570, .07501, .01060, .00219,
2371 + .00135, .00665, .01234,
2372 + .31596, .11293, .07148, .01031, .00217,
2373 + .00136, .00648, .01192 /
2374 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
2375 + .30931, .11023, .06815, .01002, .00214,
2376 + .00136, .00630, .01152,
2377 + .30282, .10761, .06503, .00974, .00212,
2378 + .00136, .00613, .01115,
2379 + .29678, .10519, .06221, .00949, .00209,
2380 + .00136, .00598, .01081,
2381 + .29117, .10294, .05969, .00924, .00206,
2382 + .00136, .00582, .01050,
2383 + .28559, .10069, .05726, .00900, .00204,
2384 + .00135, .00568, .01020 /
2385 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
2386 + .64850, .27148, .50191, .02085, .00000,
2387 + .00000, .00910, .03429,
2388 + .63699, .26377, .46734, .02064, .00000,
2389 + .00000, .00941, .03276,
2390 + .61903, .25258, .42922, .02019, -.00443,
2391 + .00000, .00965, .03076,
2392 + .60564, .24462, .39681, .01981, -.00373,
2393 + .00000, .00976, .02937,
2394 + .59137, .23665, .36474, .01940, -.00288,
2395 + .00000, .00978, .02803,
2396 + .57895, .22986, .33925, .01900, -.00226,
2397 + .00000, .00976, .02690,
2398 + .56702, .22354, .31663, .01861, -.00173,
2399 + .00000, .00972, .02588,
2400 + .55442, .21700, .29446, .01818, -.00124,
2401 + .00000, .00962, .02482 /
2402 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
2403 + .54357, .21138, .27645, .01775, -.00086,
2404 + .00000, .00955, .02395,
2405 + .53310, .20611, .26023, .01736, -.00054,
2406 + .00000, .00943, .02314,
2407 + .52489, .20206, .24815, .01708, -.00031,
2408 + .00000, .00934, .02250,
2409 + .50764, .19370, .22473, .01640, .00011,
2410 + .00000, .00909, .02124,
2411 + .49305, .18689, .20784, .01588, .00041,
2412 + -.00114, .00888, .02020,
2413 + .47710, .17948, .18818, .01527, .00069,
2414 + -.00074, .00864, .01911,
2415 + .46094, .17209, .16999, .01464, .00092,
2416 + -.00041, .00836, .01801,
2417 + .44664, .16568, .15521, .01408, .00109,
2418 + -.00016, .00810, .01708 /
2419 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
2420 + .43259, .15948, .14181, .01353, .00122,
2421 + .00004, .00782, .01621,
2422 + .42124, .15447, .13170, .01306, .00132,
2423 + .00020, .00755, .01556,
2424 + .40779, .14866, .12057, .01250, .00140,
2425 + .00034, .00729, .01475,
2426 + .39621, .14371, .11164, .01204, .00147,
2427 + .00046, .00706, .01408,
2428 + .38586, .13933, .10415, .01165, .00150,
2429 + .00055, .00684, .01350,
2430 + .37305, .13397, .09548, .01115, .00154,
2431 + .00064, .00658, .01278,
2432 + .36141, .12913, .08810, .01069, .00157,
2433 + .00071, .00633, .01217,
2434 + .35086, .12476, .08182, .01027, .00158,
2435 + .00077, .00609, .01163 /
2436 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
2437 + .34056, .12056, .07609, .00987, .00159,
2438 + .00082, .00586, .01108,
2439 + .33078, .11661, .07095, .00951, .00159,
2440 + .00085, .00564, .01058,
2441 + .32180, .11301, .06647, .00919, .00158,
2442 + .00088, .00546, .01010,
2443 + .31351, .10971, .06258, .00887, .00157,
2444 + .00090, .00528, .00971,
2445 + .30545, .10650, .05892, .00855, .00156,
2446 + .00092, .00510, .00937,
2447 + .29766, .10343, .05562, .00825, .00154,
2448 + .00093, .00494, .00901,
2449 + .29049, .10061, .05270, .00799, .00152,
2450 + .00093, .00479, .00867,
2451 + .28381, .09800, .05009, .00776, .00150,
2452 + .00093, .00464, .00836 /
2453 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
2454 + .27727, .09546, .04762, .00754, .00149,
2455 + .00094, .00452, .00806,
2456 + .27094, .09302, .04534, .00731, .00147,
2457 + .00094, .00438, .00778,
2458 + .26504, .09075, .04329, .00710, .00145,
2459 + .00094, .00426, .00754,
2460 + .25958, .08865, .04145, .00689, .00143,
2461 + .00094, .00414, .00731,
2462 + .25413, .08658, .03969, .00672, .00140,
2463 + .00092, .00403, .00708 /
2464 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
2465 + .64145, .25905, .41501, .01773, .00000,
2466 + .00000, .00699, .02622,
2467 + .62704, .25049, .38304, .01750, .00000,
2468 + .00000, .00724, .02497,
2469 + .60527, .23827, .34775, .01700, -.00375,
2470 + .00000, .00745, .02330,
2471 + .58936, .22980, .31866, .01658, -.00315,
2472 + .00000, .00752, .02222,
2473 + .57284, .22131, .29032, .01618, -.00244,
2474 + .00000, .00752, .02109,
2475 + .55875, .21411, .26799, .01574, -.00192,
2476 + .00000, .00752, .02021,
2477 + .54531, .20747, .24837, .01534, -.00149,
2478 + .00000, .00747, .01936,
2479 + .53118, .20071, .22927, .01496, -.00109,
2480 + .00000, .00740, .01847 /
2481 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
2482 + .51910, .19497, .21398, .01457, -.00079,
2483 + .00000, .00731, .01777,
2484 + .50762, .18959, .20028, .01420, -.00053,
2485 + .00000, .00721, .01711,
2486 + .49868, .18546, .19014, .01390, -.00035,
2487 + .00000, .00714, .01662,
2488 + .47999, .17698, .17062, .01331, -.00001,
2489 + .00000, .00692, .01557,
2490 + .46447, .17005, .15663, .01278, .00022,
2491 + -.00092, .00672, .01479,
2492 + .44763, .16267, .14061, .01217, .00044,
2493 + -.00060, .00652, .01394,
2494 + .43065, .15534, .12593, .01161, .00062,
2495 + -.00035, .00627, .01312,
2496 + .41579, .14898, .11412, .01110, .00074,
2497 + -.00017, .00603, .01241 /
2498 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
2499 + .40130, .14284, .10349, .01060, .00084,
2500 + -.00001, .00582, .01173,
2501 + .38955, .13801, .09559, .01021, .00091,
2502 + .00011, .00563, .01117,
2503 + .37577, .13234, .08688, .00975, .00098,
2504 + .00022, .00541, .01058,
2505 + .36398, .12754, .07999, .00938, .00102,
2506 + .00030, .00522, .01006,
2507 + .35350, .12335, .07423, .00905, .00105,
2508 + .00037, .00505, .00960,
2509 + .34065, .11820, .06762, .00860, .00108,
2510 + .00044, .00480, .00908,
2511 + .32899, .11359, .06208, .00821, .00110,
2512 + .00049, .00460, .00860,
2513 + .31844, .10948, .05739, .00788, .00111,
2514 + .00053, .00443, .00814 /
2515 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
2516 + .30824, .10546, .05309, .00752, .00111,
2517 + .00056, .00426, .00779,
2518 + .29857, .10173, .04929, .00721, .00110,
2519 + .00059, .00409, .00742,
2520 + .28968, .09835, .04604, .00694, .00110,
2521 + .00060, .00394, .00707,
2522 + .28156, .09525, .04318, .00670, .00109,
2523 + .00062, .00380, .00677,
2524 + .27368, .09225, .04053, .00645, .00108,
2525 + .00063, .00367, .00648,
2526 + .26607, .08939, .03813, .00623, .00107,
2527 + .00064, .00353, .00623,
2528 + .25910, .08678, .03602, .00603, .00106,
2529 + .00064, .00342, .00600,
2530 + .25264, .08438, .03415, .00583, .00104,
2531 + .00065, .00330, .00578 /
2532 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
2533 + .24635, .08203, .03241, .00562, .00103,
2534 + .00065, .00321, .00554,
2535 + .24025, .07977, .03079, .00544, .00101,
2536 + .00064, .00310, .00535,
2537 + .23459, .07768, .02935, .00527, .00099,
2538 + .00064, .00301, .00516,
2539 + .22934, .07575, .02806, .00512, .00098,
2540 + .00064, .00292, .00499,
2541 + .22414, .07386, .02682, .00498, .00096,
2542 + .00063, .00284, .00482 /
2543 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
2544 + .62876, .24476, .33555, .01492, .00000,
2545 + .00000, .00529, .01964,
2546 + .61160, .23555, .30683, .01463, .00000,
2547 + .00000, .00550, .01868,
2548 + .58621, .22268, .27518, .01416, -.00313,
2549 + .00000, .00573, .01729,
2550 + .56833, .21373, .24970, .01369, -.00261,
2551 + .00000, .00575, .01649,
2552 + .54987, .20491, .22531, .01327, -.00203,
2553 + .00000, .00578, .01560,
2554 + .53417, .19759, .20630, .01289, -.00161,
2555 + .00000, .00577, .01486,
2556 + .51945, .19081, .18977, .01250, -.00126,
2557 + .00000, .00572, .01421,
2558 + .50419, .18389, .17381, .01210, -.00094,
2559 + .00000, .00564, .01356 /
2560 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
2561 + .49120, .17810, .16111, .01176, -.00069,
2562 + .00000, .00555, .01300,
2563 + .47892, .17270, .14986, .01141, -.00049,
2564 + .00000, .00545, .01249,
2565 + .46941, .16857, .14161, .01114, -.00035,
2566 + .00000, .00536, .01210,
2567 + .44977, .16007, .12574, .01055, -.00008,
2568 + .00000, .00521, .01134,
2569 + .43357, .15324, .11453, .01009, .00010,
2570 + -.00073, .00504, .01071,
2571 + .41604, .14602, .10184, .00964, .00026,
2572 + -.00049, .00484, .01003,
2573 + .39860, .13886, .09028, .00914, .00040,
2574 + -.00030, .00467, .00937,
2575 + .38343, .13272, .08114, .00866, .00049,
2576 + -.00016, .00449, .00884 /
2577 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
2578 + .36868, .12685, .07299, .00823, .00058,
2579 + -.00003, .00427, .00832,
2580 + .35682, .12218, .06693, .00791, .00063,
2581 + .00005, .00415, .00791,
2582 + .34295, .11678, .06039, .00757, .00067,
2583 + .00013, .00397, .00742,
2584 + .33125, .11223, .05523, .00723, .00070,
2585 + .00019, .00381, .00704,
2586 + .32094, .10820, .05098, .00688, .00073,
2587 + .00025, .00366, .00675,
2588 + .30812, .10336, .04614, .00657, .00074,
2589 + .00029, .00349, .00633,
2590 + .29661, .09902, .04209, .00626, .00076,
2591 + .00033, .00334, .00598,
2592 + .28631, .09515, .03869, .00596, .00077,
2593 + .00037, .00319, .00569 /
2594 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
2595 + .27632, .09143, .03562, .00570, .00077,
2596 + .00039, .00305, .00539,
2597 + .26693, .08795, .03291, .00546, .00076,
2598 + .00040, .00293, .00510,
2599 + .25836, .08479, .03059, .00524, .00076,
2600 + .00042, .00281, .00488,
2601 + .25053, .08194, .02860, .00502, .00075,
2602 + .00042, .00271, .00466,
2603 + .24295, .07920, .02676, .00481, .00074,
2604 + .00043, .00260, .00445,
2605 + .23567, .07658, .02509, .00464, .00073,
2606 + .00043, .00251, .00425,
2607 + .22898, .07419, .02363, .00448, .00072,
2608 + .00044, .00241, .00406,
2609 + .22283, .07198, .02236, .00432, .00071,
2610 + .00044, .00233, .00392 /
2611 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
2612 + .21685, .06984, .02116, .00417, .00070,
2613 + .00043, .00225, .00378,
2614 + .21108, .06779, .02006, .00402, .00069,
2615 + .00044, .00217, .00364,
2616 + .20574, .06590, .01909, .00389, .00068,
2617 + .00044, .00210, .00350,
2618 + .20081, .06416, .01822, .00376, .00067,
2619 + .00043, .00203, .00338,
2620 + .19591, .06245, .01739, .00364, .00065,
2621 + .00043, .00197, .00326 /
2622 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
2623 + .61063, .22901, .26335, .01230, .00000,
2624 + .00000, .00411, .01434,
2625 + .59114, .21930, .23831, .01191, .00000,
2626 + .00000, .00427, .01371,
2627 + .56280, .20591, .21095, .01143, -.00257,
2628 + .00000, .00440, .01268,
2629 + .54292, .19688, .18938, .01109, -.00214,
2630 + .00000, .00451, .01193,
2631 + .52290, .18792, .16903, .01068, -.00166,
2632 + .00000, .00446, .01127,
2633 + .50601, .18050, .15336, .01030, -.00132,
2634 + .00000, .00442, .01076,
2635 + .49032, .17371, .13984, .00994, -.00104,
2636 + .00000, .00435, .01028,
2637 + .47419, .16681, .12690, .00957, -.00079,
2638 + .00000, .00426, .00981 /
2639 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
2640 + .46051, .16109, .11675, .00927, -.00060,
2641 + .00000, .00419, .00938,
2642 + .44768, .15575, .10776, .00896, -.00044,
2643 + .00000, .00413, .00900,
2644 + .43777, .15169, .10120, .00874, -.00033,
2645 + .00000, .00405, .00871,
2646 + .41748, .14345, .08883, .00828, -.00012,
2647 + .00000, .00389, .00804,
2648 + .40088, .13683, .08018, .00789, .00002,
2649 + -.00056, .00375, .00760,
2650 + .38309, .12983, .07044, .00748, .00015,
2651 + -.00038, .00361, .00709,
2652 + .36547, .12297, .06174, .00704, .00025,
2653 + -.00024, .00345, .00664,
2654 + .35022, .11712, .05489, .00667, .00032,
2655 + -.00014, .00329, .00624 /
2656 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
2657 + .33551, .11153, .04891, .00633, .00038,
2658 + -.00004, .00315, .00583,
2659 + .32382, .10713, .04449, .00604, .00042,
2660 + .00002, .00304, .00553,
2661 + .31018, .10202, .03977, .00572, .00045,
2662 + .00008, .00288, .00520,
2663 + .29864, .09774, .03609, .00543, .00048,
2664 + .00012, .00276, .00493,
2665 + .28851, .09402, .03307, .00519, .00050,
2666 + .00016, .00263, .00469,
2667 + .27615, .08950, .02969, .00489, .00050,
2668 + .00019, .00251, .00439,
2669 + .26503, .08547, .02689, .00464, .00052,
2670 + .00022, .00239, .00414,
2671 + .25507, .08189, .02451, .00443, .00052,
2672 + .00024, .00229, .00392 /
2673 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
2674 + .24546, .07850, .02247, .00422, .00052,
2675 + .00026, .00219, .00367,
2676 + .23647, .07533, .02065, .00402, .00051,
2677 + .00027, .00209, .00348,
2678 + .22832, .07245, .01909, .00382, .00051,
2679 + .00027, .00200, .00332,
2680 + .22086, .06984, .01778, .00367, .00051,
2681 + .00028, .00192, .00316,
2682 + .21366, .06733, .01658, .00353, .00050,
2683 + .00029, .00183, .00301,
2684 + .20680, .06495, .01550, .00339, .00050,
2685 + .00029, .00175, .00288,
2686 + .20053, .06279, .01454, .00326, .00049,
2687 + .00030, .00169, .00277,
2688 + .19476, .06081, .01372, .00314, .00048,
2689 + .00029, .00163, .00264 /
2690 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
2691 + .18915, .05889, .01297, .00302, .00048,
2692 + .00030, .00158, .00252,
2693 + .18377, .05706, .01227, .00290, .00046,
2694 + .00029, .00152, .00242,
2695 + .17878, .05538, .01165, .00280, .00045,
2696 + .00029, .00147, .00232,
2697 + .17420, .05383, .01110, .00270, .00045,
2698 + .00029, .00142, .00223,
2699 + .16964, .05229, .01057, .00262, .00044,
2700 + .00029, .00138, .00217 /
2701 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
2702 + .58760, .21262, .19828, .01023, .00000,
2703 + .00000, .00291, .01018,
2704 + .56587, .20272, .17734, .00990, .00000,
2705 + .00000, .00307, .00967,
2706 + .53514, .18909, .15463, .00936, -.00208,
2707 + .00000, .00320, .00897,
2708 + .51385, .17995, .13703, .00901, -.00172,
2709 + .00000, .00324, .00846,
2710 + .49262, .17094, .12058, .00863, -.00134,
2711 + .00000, .00327, .00802,
2712 + .47488, .16361, .10814, .00831, -.00107,
2713 + .00000, .00325, .00760,
2714 + .45853, .15690, .09752, .00799, -.00084,
2715 + .00000, .00321, .00724,
2716 + .44184, .15013, .08748, .00761, -.00064,
2717 + .00000, .00316, .00689 /
2718 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
2719 + .42772, .14454, .07968, .00735, -.00050,
2720 + .00000, .00313, .00656,
2721 + .41461, .13937, .07292, .00707, -.00037,
2722 + .00000, .00304, .00626,
2723 + .40457, .13542, .06804, .00684, -.00029,
2724 + .00000, .00297, .00605,
2725 + .38390, .12747, .05886, .00644, -.00012,
2726 + .00000, .00287, .00562,
2727 + .36724, .12117, .05243, .00611, -.00002,
2728 + -.00044, .00275, .00527,
2729 + .34954, .11450, .04535, .00575, .00007,
2730 + -.00030, .00262, .00491,
2731 + .33209, .10800, .03911, .00538, .00015,
2732 + -.00019, .00248, .00457,
2733 + .31708, .10248, .03431, .00505, .00020,
2734 + -.00012, .00236, .00429 /
2735 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
2736 + .30270, .09725, .03009, .00476, .00025,
2737 + -.00004, .00225, .00402,
2738 + .29126, .09314, .02706, .00456, .00028,
2739 + .00000, .00215, .00379,
2740 + .27802, .08840, .02389, .00430, .00030,
2741 + .00004, .00205, .00354,
2742 + .26685, .08446, .02144, .00407, .00032,
2743 + .00007, .00196, .00333,
2744 + .25704, .08102, .01943, .00390, .00033,
2745 + .00010, .00189, .00315,
2746 + .24518, .07688, .01723, .00368, .00034,
2747 + .00012, .00179, .00294,
2748 + .23458, .07320, .01544, .00346, .00035,
2749 + .00015, .00169, .00277,
2750 + .22514, .06993, .01397, .00329, .00035,
2751 + .00016, .00159, .00261 /
2752 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
2753 + .21604, .06685, .01265, .00314, .00035,
2754 + .00017, .00153, .00246,
2755 + .20755, .06398, .01155, .00300, .00035,
2756 + .00018, .00145, .00232,
2757 + .19986, .06139, .01063, .00286, .00034,
2758 + .00019, .00138, .00219,
2759 + .19292, .05903, .00984, .00272, .00034,
2760 + .00019, .00134, .00208,
2761 + .18625, .05678, .00911, .00259, .00033,
2762 + .00019, .00129, .00200,
2763 + .17986, .05467, .00850, .00246, .00033,
2764 + .00020, .00123, .00189,
2765 + .17404, .05277, .00795, .00236, .00032,
2766 + .00019, .00118, .00180,
2767 + .16871, .05099, .00749, .00225, .00032,
2768 + .00020, .00112, .00173 /
2769 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
2770 + .16353, .04927, .00705, .00214, .00032,
2771 + .00020, .00108, .00168,
2772 + .15856, .04765, .00666, .00207, .00031,
2773 + .00019, .00105, .00160,
2774 + .15395, .04614, .00630, .00202, .00031,
2775 + .00020, .00101, .00153,
2776 + .14974, .04477, .00601, .00195, .00030,
2777 + .00020, .00097, .00146,
2778 + .14560, .04343, .00573, .00187, .00029,
2779 + .00019, .00094, .00141 /
2780 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
2781 + .56010, .19561, .14032, .00837, .00000,
2782 + .00000, .00210, .00697,
2783 + .53685, .18560, .12347, .00807, .00000,
2784 + .00000, .00220, .00668,
2785 + .50422, .17207, .10568, .00755, -.00165,
2786 + .00000, .00232, .00616,
2787 + .48198, .16300, .09198, .00722, -.00136,
2788 + .00000, .00231, .00585,
2789 + .45992, .15421, .07948, .00688, -.00106,
2790 + .00000, .00235, .00547,
2791 + .44170, .14702, .07015, .00657, -.00085,
2792 + .00000, .00231, .00521,
2793 + .42491, .14053, .06227, .00631, -.00068,
2794 + .00000, .00228, .00495,
2795 + .40784, .13401, .05495, .00603, -.00052,
2796 + .00000, .00223, .00468 /
2797 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
2798 + .39367, .12862, .04934, .00580, -.00041,
2799 + .00000, .00220, .00443,
2800 + .38045, .12369, .04448, .00557, -.00031,
2801 + .00000, .00216, .00422,
2802 + .37034, .11993, .04101, .00541, -.00025,
2803 + .00000, .00211, .00406,
2804 + .34994, .11233, .03465, .00498, -.00012,
2805 + .00000, .00200, .00381,
2806 + .33346, .10635, .03027, .00472, -.00004,
2807 + -.00033, .00192, .00360,
2808 + .31597, .10016, .02550, .00447, .00003,
2809 + -.00023, .00182, .00330,
2810 + .29893, .09410, .02137, .00417, .00008,
2811 + -.00015, .00173, .00304,
2812 + .28437, .08897, .01821, .00392, .00013,
2813 + -.00009, .00164, .00285 /
2814 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
2815 + .27043, .08412, .01559, .00368, .00016,
2816 + -.00005, .00155, .00266,
2817 + .25946, .08032, .01373, .00348, .00018,
2818 + -.00001, .00148, .00252,
2819 + .24685, .07601, .01179, .00325, .00020,
2820 + .00002, .00140, .00233,
2821 + .23624, .07240, .01033, .00308, .00021,
2822 + .00005, .00132, .00219,
2823 + .22696, .06924, .00918, .00292, .00022,
2824 + .00006, .00125, .00210,
2825 + .21573, .06549, .00794, .00273, .00023,
2826 + .00008, .00119, .00196,
2827 + .20577, .06219, .00695, .00259, .00023,
2828 + .00010, .00112, .00181,
2829 + .19691, .05926, .00616, .00245, .00023,
2830 + .00011, .00107, .00169 /
2831 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
2832 + .18846, .05647, .00550, .00229, .00023,
2833 + .00012, .00101, .00158,
2834 + .18059, .05390, .00492, .00218, .00024,
2835 + .00012, .00097, .00149,
2836 + .17348, .05155, .00446, .00207, .00023,
2837 + .00012, .00092, .00142,
2838 + .16702, .04949, .00408, .00198, .00023,
2839 + .00013, .00088, .00135,
2840 + .16084, .04751, .00374, .00189, .00022,
2841 + .00013, .00083, .00129,
2842 + .15497, .04564, .00345, .00180, .00022,
2843 + .00013, .00080, .00123,
2844 + .14964, .04394, .00322, .00172, .00022,
2845 + .00013, .00077, .00117,
2846 + .14478, .04238, .00302, .00165, .00021,
2847 + .00013, .00074, .00111 /
2848 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
2849 + .14005, .04087, .00282, .00159, .00021,
2850 + .00013, .00070, .00106,
2851 + .13553, .03944, .00266, .00152, .00021,
2852 + .00014, .00068, .00101,
2853 + .13136, .03814, .00254, .00145, .00020,
2854 + .00013, .00065, .00098,
2855 + .12754, .03695, .00241, .00141, .00020,
2856 + .00013, .00063, .00093,
2857 + .12379, .03579, .00231, .00135, .00019,
2858 + .00013, .00060, .00090 /
2859 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
2860 + .52912, .17786, .08963, .00652, .00000,
2861 + .00000, .00151, .00479,
2862 + .50456, .16803, .07707, .00624, .00000,
2863 + .00000, .00165, .00453,
2864 + .47056, .15475, .06409, .00587, -.00129,
2865 + .00000, .00168, .00422,
2866 + .44777, .14597, .05414, .00549, -.00105,
2867 + .00000, .00173, .00401,
2868 + .42525, .13747, .04524, .00524, -.00082,
2869 + .00000, .00170, .00380,
2870 + .40677, .13063, .03870, .00504, -.00066,
2871 + .00000, .00170, .00356,
2872 + .38995, .12441, .03335, .00481, -.00052,
2873 + .00000, .00168, .00335,
2874 + .37298, .11818, .02851, .00454, -.00041,
2875 + .00000, .00164, .00317 /
2876 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
2877 + .35880, .11312, .02484, .00430, -.00032,
2878 + .00000, .00156, .00307,
2879 + .34570, .10843, .02175, .00414, -.00025,
2880 + .00000, .00150, .00295,
2881 + .33574, .10491, .01956, .00401, -.00020,
2882 + .00000, .00149, .00283,
2883 + .31564, .09785, .01569, .00372, -.00010,
2884 + .00000, .00143, .00257,
2885 + .29964, .09229, .01312, .00350, -.00005,
2886 + -.00024, .00138, .00236,
2887 + .28283, .08651, .01020, .00325, .00000,
2888 + -.00017, .00131, .00222,
2889 + .26643, .08093, .00787, .00301, .00004,
2890 + -.00012, .00122, .00207,
2891 + .25249, .07624, .00613, .00281, .00007,
2892 + -.00007, .00117, .00192 /
2893 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
2894 + .23928, .07184, .00473, .00262, .00010,
2895 + -.00003, .00111, .00178,
2896 + .22885, .06839, .00382, .00247, .00011,
2897 + -.00002, .00104, .00169,
2898 + .21687, .06448, .00288, .00233, .00013,
2899 + .00001, .00099, .00156,
2900 + .20692, .06124, .00225, .00220, .00013,
2901 + .00002, .00094, .00144,
2902 + .19828, .05843, .00176, .00207, .00014,
2903 + .00003, .00088, .00135,
2904 + .18785, .05505, .00126, .00192, .00014,
2905 + .00005, .00083, .00128,
2906 + .17860, .05209, .00090, .00179, .00015,
2907 + .00006, .00079, .00119,
2908 + .17040, .04950, .00065, .00168, .00015,
2909 + .00007, .00074, .00113 /
2910 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
2911 + .16261, .04703, .00046, .00159, .00015,
2912 + .00008, .00069, .00105,
2913 + .15539, .04477, .00028, .00150, .00015,
2914 + .00008, .00066, .00100,
2915 + .14888, .04275, .00016, .00143, .00015,
2916 + .00008, .00064, .00095,
2917 + .14302, .04093, .00011, .00134, .00015,
2918 + .00008, .00060, .00089,
2919 + .13740, .03920, .00005, .00127, .00014,
2920 + .00008, .00058, .00083,
2921 + .13209, .03756, .00001, .00121, .00014,
2922 + .00008, .00055, .00080,
2923 + .12728, .03608, -.00001, .00116, .00014,
2924 + .00009, .00053, .00076,
2925 + .12286, .03474, -.00003, .00111, .00014,
2926 + .00009, .00051, .00073 /
2927 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
2928 + .11859, .03345, -.00002, .00108, .00013,
2929 + .00008, .00048, .00068,
2930 + .11454, .03221, -.00001, .00103, .00013,
2931 + .00008, .00046, .00066,
2932 + .11084, .03107, -.00001, .00098, .00013,
2933 + .00008, .00045, .00062,
2934 + .10744, .03005, -.00001, .00095, .00013,
2935 + .00009, .00043, .00060,
2936 + .10411, .02906, .00000, .00091, .00013,
2937 + .00009, .00042, .00058 /
2938 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
2939 + .49497, .16027, .04644, .00489, .00000,
2940 + .00000, .00111, .00319,
2941 + .46952, .15069, .03788, .00474, .00000,
2942 + .00000, .00125, .00299,
2943 + .43487, .13776, .02970, .00435, -.00099,
2944 + .00000, .00131, .00279,
2945 + .41179, .12931, .02334, .00411, -.00080,
2946 + .00000, .00126, .00267,
2947 + .38929, .12124, .01776, .00382, -.00063,
2948 + .00000, .00130, .00250,
2949 + .37084, .11472, .01381, .00367, -.00051,
2950 + .00000, .00127, .00238,
2951 + .35414, .10887, .01066, .00347, -.00041,
2952 + .00000, .00126, .00229,
2953 + .33745, .10305, .00791, .00325, -.00031,
2954 + .00000, .00123, .00217 /
2955 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
2956 + .32361, .09831, .00597, .00307, -.00025,
2957 + .00000, .00120, .00207,
2958 + .31093, .09398, .00435, .00290, -.00019,
2959 + .00000, .00117, .00194,
2960 + .30132, .09069, .00326, .00278, -.00016,
2961 + .00000, .00116, .00186,
2962 + .28183, .08418, .00140, .00259, -.00010,
2963 + .00000, .00111, .00176,
2964 + .26646, .07910, .00035, .00240, -.00005,
2965 + -.00018, .00103, .00161,
2966 + .25044, .07382, -.00091, .00222, -.00001,
2967 + -.00012, .00097, .00149,
2968 + .23489, .06878, -.00191, .00206, .00001,
2969 + -.00009, .00093, .00139,
2970 + .22170, .06456, -.00247, .00192, .00004,
2971 + -.00005, .00087, .00128 /
2972 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
2973 + .20926, .06060, -.00290, .00181, .00005,
2974 + -.00004, .00083, .00119,
2975 + .19958, .05751, -.00309, .00171, .00007,
2976 + -.00001, .00077, .00112,
2977 + .18854, .05402, -.00325, .00156, .00008,
2978 + .00000, .00074, .00103,
2979 + .17933, .05114, -.00328, .00145, .00009,
2980 + .00001, .00069, .00097,
2981 + .17132, .04866, -.00330, .00137, .00009,
2982 + .00003, .00066, .00094,
2983 + .16172, .04572, -.00324, .00128, .00009,
2984 + .00003, .00061, .00086,
2985 + .15326, .04312, -.00313, .00120, .00009,
2986 + .00004, .00058, .00080,
2987 + .14581, .04086, -.00301, .00111, .00010,
2988 + .00005, .00055, .00073 /
2989 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
2990 + .13871, .03872, -.00288, .00106, .00010,
2991 + .00005, .00050, .00070,
2992 + .13215, .03676, -.00272, .00099, .00009,
2993 + .00005, .00047, .00065,
2994 + .12630, .03499, -.00257, .00093, .00010,
2995 + .00006, .00045, .00062,
2996 + .12104, .03342, -.00245, .00088, .00010,
2997 + .00005, .00044, .00059,
2998 + .11602, .03192, -.00230, .00083, .00009,
2999 + .00005, .00041, .00055,
3000 + .11126, .03052, -.00216, .00080, .00009,
3001 + .00005, .00039, .00052,
3002 + .10698, .02926, -.00203, .00075, .00009,
3003 + .00005, .00038, .00048,
3004 + .10305, .02812, -.00190, .00072, .00009,
3005 + .00006, .00036, .00047 /
3006 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
3007 + .09927, .02701, -.00178, .00068, .00009,
3008 + .00006, .00034, .00045,
3009 + .09570, .02596, -.00169, .00066, .00009,
3010 + .00006, .00033, .00044,
3011 + .09243, .02502, -.00158, .00063, .00008,
3012 + .00006, .00032, .00041,
3013 + .08944, .02414, -.00147, .00059, .00008,
3014 + .00005, .00031, .00039,
3015 + .08650, .02330, -.00139, .00057, .00008,
3016 + .00005, .00030, .00038 /
3017 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
3018 + .45845, .14360, .00992, .00423, .00000,
3019 + .00000, .00054, .00180,
3020 + .43304, .13431, .00521, .00385, .00000,
3021 + .00000, .00063, .00180,
3022 + .39822, .12200, .00139, .00362, -.00074,
3023 + .00000, .00070, .00169,
3024 + .37536, .11406, -.00192, .00334, -.00060,
3025 + .00000, .00079, .00161,
3026 + .35310, .10646, -.00450, .00311, -.00047,
3027 + .00000, .00079, .00152,
3028 + .33517, .10031, -.00611, .00289, -.00037,
3029 + .00000, .00078, .00145,
3030 + .31898, .09486, -.00726, .00271, -.00030,
3031 + .00000, .00075, .00137,
3032 + .30276, .08951, -.00817, .00256, -.00024,
3033 + .00000, .00072, .00128 /
3034 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
3035 + .28938, .08509, -.00873, .00244, -.00019,
3036 + .00000, .00071, .00124,
3037 + .27715, .08109, -.00907, .00231, -.00015,
3038 + .00000, .00070, .00117,
3039 + .26793, .07809, -.00924, .00220, -.00012,
3040 + .00000, .00069, .00113,
3041 + .24941, .07214, -.00937, .00205, -.00008,
3042 + .00000, .00063, .00103,
3043 + .23493, .06752, -.00925, .00189, -.00004,
3044 + -.00013, .00061, .00098,
3045 + .21986, .06276, -.00926, .00173, -.00002,
3046 + -.00009, .00057, .00092,
3047 + .20533, .05827, -.00906, .00158, .00000,
3048 + -.00007, .00054, .00083,
3049 + .19314, .05448, -.00878, .00147, .00002,
3050 + -.00004, .00052, .00075 /
3051 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
3052 + .18167, .05093, -.00837, .00135, .00003,
3053 + -.00003, .00048, .00069,
3054 + .17270, .04823, -.00806, .00128, .00004,
3055 + -.00001, .00046, .00064,
3056 + .16251, .04514, -.00761, .00118, .00005,
3057 + .00000, .00043, .00060,
3058 + .15411, .04261, -.00722, .00110, .00005,
3059 + .00001, .00041, .00058,
3060 + .14684, .04042, -.00683, .00104, .00005,
3061 + .00001, .00037, .00054,
3062 + .13812, .03785, -.00636, .00095, .00006,
3063 + .00002, .00035, .00051,
3064 + .13047, .03559, -.00592, .00089, .00006,
3065 + .00002, .00033, .00047,
3066 + .12377, .03362, -.00552, .00085, .00006,
3067 + .00003, .00032, .00043 /
3068 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
3069 + .11745, .03176, -.00513, .00077, .00006,
3070 + .00003, .00030, .00041,
3071 + .11161, .03006, -.00477, .00070, .00006,
3072 + .00003, .00028, .00039,
3073 + .10636, .02856, -.00444, .00069, .00006,
3074 + .00003, .00025, .00035,
3075 + .10165, .02723, -.00413, .00066, .00006,
3076 + .00004, .00024, .00032,
3077 + .09718, .02595, -.00386, .00062, .00006,
3078 + .00004, .00023, .00031,
3079 + .09300, .02475, -.00361, .00058, .00006,
3080 + .00004, .00022, .00030,
3081 + .08922, .02367, -.00338, .00056, .00006,
3082 + .00004, .00021, .00029,
3083 + .08578, .02270, -.00317, .00054, .00006,
3084 + .00004, .00020, .00027 /
3085 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
3086 + .08246, .02178, -.00296, .00053, .00005,
3087 + .00003, .00020, .00026,
3088 + .07933, .02089, -.00278, .00050, .00005,
3089 + .00003, .00019, .00024,
3090 + .07648, .02009, -.00259, .00047, .00005,
3091 + .00003, .00017, .00023,
3092 + .07388, .01936, -.00244, .00045, .00005,
3093 + .00003, .00016, .00022,
3094 + .07134, .01865, -.00230, .00042, .00005,
3095 + .00003, .00016, .00021 /
3096 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
3097 + .42010, .12633, -.01907, .00293, .00000,
3098 + .00000, .00045, .00127,
3099 + .39458, .11768, -.02025, .00270, .00000,
3100 + .00000, .00051, .00120,
3101 + .36042, .10621, -.02015, .00244, -.00054,
3102 + .00000, .00054, .00113,
3103 + .33806, .09883, -.02066, .00228, -.00043,
3104 + .00000, .00055, .00105,
3105 + .31656, .09179, -.02080, .00214, -.00034,
3106 + .00000, .00055, .00098,
3107 + .29927, .08620, -.02063, .00198, -.00027,
3108 + .00000, .00056, .00095,
3109 + .28368, .08126, -.02021, .00188, -.00022,
3110 + .00000, .00053, .00090,
3111 + .26814, .07635, -.01964, .00179, -.00017,
3112 + .00000, .00052, .00084 /
3113 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
3114 + .25554, .07237, -.01906, .00167, -.00014,
3115 + .00000, .00052, .00082,
3116 + .24397, .06876, -.01839, .00158, -.00012,
3117 + .00000, .00050, .00077,
3118 + .23523, .06608, -.01784, .00154, -.00009,
3119 + .00000, .00046, .00073,
3120 + .21801, .06076, -.01666, .00137, -.00006,
3121 + .00000, .00044, .00067,
3122 + .20448, .05667, -.01560, .00128, -.00004,
3123 + -.00009, .00041, .00062,
3124 + .19048, .05248, -.01464, .00119, -.00002,
3125 + -.00006, .00040, .00056,
3126 + .17714, .04845, -.01358, .00107, -.00001,
3127 + -.00005, .00036, .00051,
3128 + .16598, .04512, -.01263, .00096, .00000,
3129 + -.00004, .00032, .00049 /
3130 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
3131 + .15550, .04207, -.01179, .00090, .00001,
3132 + -.00002, .00032, .00046,
3133 + .14735, .03970, -.01103, .00086, .00002,
3134 + -.00001, .00029, .00042,
3135 + .13814, .03703, -.01018, .00080, .00003,
3136 + .00000, .00027, .00038,
3137 + .13056, .03484, -.00945, .00075, .00003,
3138 + .00000, .00027, .00034,
3139 + .12403, .03296, -.00885, .00071, .00003,
3140 + .00000, .00026, .00034,
3141 + .11626, .03075, -.00810, .00065, .00004,
3142 + .00001, .00024, .00031,
3143 + .10949, .02882, -.00743, .00059, .00003,
3144 + .00001, .00021, .00030,
3145 + .10357, .02714, -.00686, .00054, .00003,
3146 + .00001, .00021, .00027 /
3147 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
3148 + .09794, .02557, -.00630, .00051, .00004,
3149 + .00002, .00019, .00025,
3150 + .09280, .02414, -.00581, .00048, .00004,
3151 + .00002, .00018, .00022,
3152 + .08821, .02286, -.00538, .00044, .00004,
3153 + .00002, .00016, .00023,
3154 + .08412, .02173, -.00501, .00042, .00004,
3155 + .00002, .00015, .00022,
3156 + .08022, .02068, -.00464, .00040, .00003,
3157 + .00002, .00015, .00020,
3158 + .07659, .01967, -.00431, .00039, .00003,
3159 + .00002, .00014, .00018,
3160 + .07332, .01877, -.00401, .00037, .00003,
3161 + .00002, .00013, .00017,
3162 + .07034, .01796, -.00375, .00035, .00003,
3163 + .00002, .00012, .00015 /
3164 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
3165 + .06749, .01720, -.00351, .00033, .00003,
3166 + .00002, .00012, .00016,
3167 + .06479, .01648, -.00328, .00032, .00003,
3168 + .00002, .00011, .00014,
3169 + .06234, .01582, -.00309, .00031, .00003,
3170 + .00002, .00011, .00013,
3171 + .06010, .01521, -.00291, .00028, .00004,
3172 + .00003, .00011, .00013,
3173 + .05793, .01462, -.00271, .00027, .00003,
3174 + .00003, .00010, .00012 /
3175 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
3176 + .38063, .10994, -.04082, .00183, .00000,
3177 + .00000, .00040, .00081,
3178 + .35559, .10187, -.03916, .00178, .00000,
3179 + .00000, .00038, .00082,
3180 + .32244, .09132, -.03583, .00164, -.00039,
3181 + .00000, .00043, .00074,
3182 + .30091, .08457, -.03415, .00155, -.00031,
3183 + .00000, .00042, .00072,
3184 + .28037, .07822, -.03224, .00139, -.00024,
3185 + .00000, .00045, .00065,
3186 + .26394, .07316, -.03056, .00131, -.00019,
3187 + .00000, .00042, .00062,
3188 + .24926, .06867, -.02891, .00122, -.00016,
3189 + .00000, .00040, .00062,
3190 + .23476, .06430, -.02714, .00110, -.00012,
3191 + .00000, .00038, .00058 /
3192 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
3193 + .22292, .06076, -.02571, .00108, -.00010,
3194 + .00000, .00037, .00053,
3195 + .21217, .05757, -.02433, .00102, -.00008,
3196 + .00000, .00035, .00051,
3197 + .20411, .05519, -.02326, .00097, -.00007,
3198 + .00000, .00035, .00049,
3199 + .18815, .05051, -.02111, .00088, -.00004,
3200 + .00000, .00034, .00040,
3201 + .17577, .04689, -.01942, .00082, -.00003,
3202 + -.00006, .00032, .00040,
3203 + .16306, .04321, -.01775, .00072, -.00002,
3204 + -.00005, .00029, .00037,
3205 + .15090, .03975, -.01616, .00067, .00000,
3206 + -.00003, .00028, .00035,
3207 + .14078, .03688, -.01480, .00062, .00000,
3208 + -.00002, .00025, .00032 /
3209 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
3210 + .13139, .03424, -.01350, .00055, .00001,
3211 + -.00001, .00022, .00029,
3212 + .12413, .03220, -.01251, .00053, .00001,
3213 + -.00001, .00022, .00026,
3214 + .11595, .02991, -.01140, .00047, .00002,
3215 + .00000, .00020, .00026,
3216 + .10923, .02805, -.01049, .00043, .00002,
3217 + .00000, .00019, .00024,
3218 + .10344, .02649, -.00971, .00041, .00002,
3219 + .00000, .00018, .00022,
3220 + .09661, .02461, -.00878, .00037, .00002,
3221 + .00001, .00015, .00020,
3222 + .09065, .02300, -.00801, .00035, .00002,
3223 + .00001, .00014, .00019,
3224 + .08545, .02159, -.00735, .00034, .00002,
3225 + .00001, .00014, .00018 /
3226 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
3227 + .08060, .02027, -.00674, .00031, .00002,
3228 + .00001, .00013, .00017,
3229 + .07615, .01909, -.00616, .00029, .00002,
3230 + .00001, .00011, .00015,
3231 + .07217, .01804, -.00569, .00028, .00002,
3232 + .00001, .00012, .00014,
3233 + .06864, .01709, -.00525, .00026, .00002,
3234 + .00001, .00010, .00013,
3235 + .06529, .01621, -.00486, .00025, .00002,
3236 + .00001, .00010, .00013,
3237 + .06217, .01539, -.00450, .00023, .00002,
3238 + .00001, .00011, .00012,
3239 + .05938, .01465, -.00417, .00021, .00003,
3240 + .00002, .00009, .00010,
3241 + .05685, .01399, -.00390, .00022, .00002,
3242 + .00002, .00009, .00010 /
3243 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
3244 + .05442, .01337, -.00364, .00020, .00002,
3245 + .00002, .00009, .00009,
3246 + .05214, .01278, -.00339, .00019, .00002,
3247 + .00002, .00008, .00009,
3248 + .05008, .01224, -.00317, .00018, .00002,
3249 + .00002, .00007, .00008,
3250 + .04819, .01175, -.00296, .00015, .00002,
3251 + .00002, .00007, .00008,
3252 + .04635, .01127, -.00279, .00016, .00002,
3253 + .00002, .00007, .00008 /
3254 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
3255 + .34115, .09501, -.05712, .00153, .00000,
3256 + .00000, .00011, .00040,
3257 + .31719, .08757, -.05299, .00139, .00000,
3258 + .00000, .00014, .00040,
3259 + .28538, .07797, -.04693, .00129, -.00027,
3260 + .00000, .00020, .00038,
3261 + .26519, .07188, -.04345, .00112, -.00022,
3262 + .00000, .00020, .00035,
3263 + .24577, .06612, -.03998, .00108, -.00016,
3264 + .00000, .00019, .00032,
3265 + .23043, .06163, -.03719, .00102, -.00014,
3266 + .00000, .00021, .00030,
3267 + .21679, .05767, -.03463, .00094, -.00011,
3268 + .00000, .00023, .00028,
3269 + .20336, .05377, -.03207, .00088, -.00008,
3270 + .00000, .00021, .00028 /
3271 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
3272 + .19245, .05062, -.02993, .00082, -.00007,
3273 + .00000, .00019, .00028,
3274 + .18257, .04781, -.02802, .00077, -.00006,
3275 + .00000, .00019, .00028,
3276 + .17520, .04574, -.02657, .00072, -.00005,
3277 + .00000, .00018, .00027,
3278 + .16071, .04161, -.02368, .00064, -.00003,
3279 + .00000, .00014, .00025,
3280 + .14953, .03849, -.02152, .00058, -.00003,
3281 + -.00005, .00016, .00022,
3282 + .13805, .03532, -.01944, .00052, -.00002,
3283 + -.00003, .00015, .00021,
3284 + .12719, .03233, -.01744, .00048, -.00001,
3285 + -.00002, .00013, .00020,
3286 + .11820, .02989, -.01578, .00043, .00000,
3287 + -.00001, .00011, .00019 /
3288 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
3289 + .10987, .02765, -.01429, .00039, .00000,
3290 + -.00001, .00012, .00016,
3291 + .10344, .02592, -.01316, .00038, .00000,
3292 + -.00001, .00012, .00015,
3293 + .09626, .02398, -.01188, .00036, .00000,
3294 + -.00001, .00011, .00013,
3295 + .09037, .02242, -.01083, .00033, .00001,
3296 + .00000, .00010, .00011,
3297 + .08532, .02110, -.00997, .00032, .00001,
3298 + .00000, .00009, .00009,
3299 + .07940, .01954, -.00896, .00027, .00001,
3300 + .00000, .00007, .00010,
3301 + .07424, .01818, -.00812, .00026, .00001,
3302 + .00000, .00007, .00009,
3303 + .06976, .01703, -.00742, .00025, .00001,
3304 + .00000, .00006, .00009 /
3305 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
3306 + .06558, .01593, -.00675, .00022, .00001,
3307 + .00000, .00007, .00008,
3308 + .06176, .01496, -.00617, .00021, .00001,
3309 + .00000, .00007, .00008,
3310 + .05839, .01410, -.00566, .00020, .00002,
3311 + .00001, .00006, .00007,
3312 + .05539, .01334, -.00522, .00018, .00002,
3313 + .00001, .00006, .00007,
3314 + .05258, .01260, -.00482, .00017, .00002,
3315 + .00001, .00006, .00007,
3316 + .04995, .01194, -.00443, .00015, .00002,
3317 + .00001, .00004, .00005,
3318 + .04759, .01134, -.00412, .00016, .00002,
3319 + .00001, .00004, .00006,
3320 + .04547, .01081, -.00384, .00014, .00001,
3321 + .00001, .00004, .00006 /
3322 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
3323 + .04344, .01030, -.00356, .00013, .00001,
3324 + .00001, .00004, .00006,
3325 + .04152, .00983, -.00331, .00013, .00001,
3326 + .00001, .00003, .00004,
3327 + .03978, .00940, -.00309, .00012, .00001,
3328 + .00001, .00003, .00004,
3329 + .03821, .00900, -.00289, .00012, .00001,
3330 + .00001, .00003, .00004,
3331 + .03669, .00862, -.00271, .00010, .00001,
3332 + .00001, .00003, .00005 /
3333 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
3334 + .30126, .08031, -.06694, .00090, .00000,
3335 + .00000, .00019, .00030,
3336 + .27867, .07372, -.06109, .00081, .00000,
3337 + .00000, .00020, .00027,
3338 + .24906, .06515, -.05311, .00072, -.00018,
3339 + .00000, .00018, .00027,
3340 + .23013, .05977, -.04843, .00067, -.00015,
3341 + .00000, .00020, .00027,
3342 + .21235, .05475, -.04386, .00058, -.00012,
3343 + .00000, .00019, .00022,
3344 + .19821, .05079, -.04027, .00053, -.00009,
3345 + .00000, .00018, .00022,
3346 + .18568, .04734, -.03714, .00052, -.00007,
3347 + .00000, .00018, .00024,
3348 + .17342, .04398, -.03401, .00050, -.00006,
3349 + .00000, .00016, .00024 /
3350 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
3351 + .16358, .04129, -.03145, .00045, -.00005,
3352 + .00000, .00015, .00019,
3353 + .15470, .03888, -.02918, .00041, -.00004,
3354 + .00000, .00015, .00016,
3355 + .14807, .03709, -.02750, .00039, -.00004,
3356 + .00000, .00013, .00015,
3357 + .13504, .03357, -.02427, .00035, -.00003,
3358 + .00000, .00013, .00017,
3359 + .12506, .03092, -.02184, .00032, -.00002,
3360 + -.00003, .00012, .00014,
3361 + .11493, .02825, -.01950, .00030, -.00001,
3362 + -.00002, .00010, .00013,
3363 + .10538, .02575, -.01735, .00027, -.00001,
3364 + -.00001, .00009, .00012,
3365 + .09751, .02369, -.01562, .00026, -.00001,
3366 + -.00001, .00010, .00012 /
3367 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
3368 + .09024, .02182, -.01399, .00023, .00000,
3369 + .00000, .00008, .00011,
3370 + .08470, .02038, -.01280, .00022, .00000,
3371 + .00000, .00008, .00009,
3372 + .07849, .01880, -.01147, .00019, .00000,
3373 + .00000, .00007, .00008,
3374 + .07342, .01751, -.01042, .00017, .00000,
3375 + .00000, .00007, .00008,
3376 + .06912, .01643, -.00955, .00016, .00000,
3377 + .00000, .00006, .00008,
3378 + .06407, .01515, -.00854, .00015, .00000,
3379 + .00000, .00006, .00007,
3380 + .05969, .01405, -.00768, .00013, .00000,
3381 + .00000, .00006, .00006,
3382 + .05588, .01311, -.00696, .00012, .00001,
3383 + .00001, .00004, .00006 /
3384 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
3385 + .05238, .01224, -.00634, .00011, .00001,
3386 + .00001, .00005, .00006,
3387 + .04918, .01145, -.00576, .00009, .00001,
3388 + .00001, .00005, .00006,
3389 + .04635, .01077, -.00527, .00010, .00001,
3390 + .00001, .00003, .00005,
3391 + .04386, .01014, -.00484, .00010, .00001,
3392 + .00001, .00003, .00005,
3393 + .04152, .00957, -.00445, .00008, .00001,
3394 + .00001, .00003, .00005,
3395 + .03933, .00904, -.00411, .00008, .00001,
3396 + .00001, .00003, .00005,
3397 + .03738, .00857, -.00379, .00007, .00001,
3398 + .00001, .00003, .00003,
3399 + .03561, .00815, -.00352, .00007, .00001,
3400 + .00001, .00003, .00003 /
3401 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
3402 + .03394, .00775, -.00327, .00007, .00001,
3403 + .00001, .00003, .00003,
3404 + .03237, .00737, -.00303, .00007, .00001,
3405 + .00001, .00002, .00003,
3406 + .03095, .00703, -.00282, .00006, .00001,
3407 + .00001, .00002, .00003,
3408 + .02968, .00672, -.00264, .00006, .00001,
3409 + .00001, .00002, .00003,
3410 + .02843, .00643, -.00247, .00006, .00001,
3411 + .00001, .00002, .00002 /
3412 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
3413 + .22537, .05519, -.07250, .00033, .00000,
3414 + .00000, .00006, .00011,
3415 + .20606, .05012, -.06468, .00035, .00000,
3416 + .00000, .00004, .00011,
3417 + .18128, .04368, -.05473, .00029, -.00007,
3418 + .00000, .00007, .00006,
3419 + .16574, .03966, -.04879, .00029, -.00006,
3420 + .00000, .00004, .00005,
3421 + .15128, .03592, -.04339, .00025, -.00005,
3422 + .00000, .00005, .00012,
3423 + .13994, .03307, -.03915, .00023, -.00004,
3424 + .00000, .00005, .00008,
3425 + .13003, .03058, -.03550, .00020, -.00003,
3426 + .00000, .00006, .00006,
3427 + .12046, .02814, -.03200, .00017, -.00003,
3428 + .00000, .00006, .00005 /
3429 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
3430 + .11277, .02622, -.02931, .00016, -.00002,
3431 + .00000, .00006, .00006,
3432 + .10590, .02451, -.02687, .00014, -.00002,
3433 + .00000, .00004, .00006,
3434 + .10081, .02327, -.02513, .00015, -.00002,
3435 + .00000, .00005, .00005,
3436 + .09091, .02084, -.02174, .00013, -.00001,
3437 + .00000, .00003, .00005,
3438 + .08345, .01902, -.01935, .00012, -.00001,
3439 + -.00001, .00003, .00005,
3440 + .07593, .01721, -.01703, .00011, -.00001,
3441 + -.00001, .00003, .00005,
3442 + .06893, .01553, -.01490, .00009, -.00001,
3443 + -.00001, .00003, .00003,
3444 + .06320, .01417, -.01318, .00008, -.00001,
3445 + -.00001, .00002, .00004 /
3446 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
3447 + .05798, .01293, -.01170, .00008, -.00001,
3448 + -.00001, .00003, .00004,
3449 + .05404, .01200, -.01062, .00007, .00000,
3450 + .00000, .00003, .00004,
3451 + .04966, .01098, -.00941, .00007, .00000,
3452 + .00000, .00003, .00002,
3453 + .04612, .01014, -.00847, .00007, .00000,
3454 + .00000, .00003, .00002,
3455 + .04313, .00946, -.00768, .00005, .00000,
3456 + .00000, .00003, .00002,
3457 + .03963, .00866, -.00683, .00005, .00000,
3458 + .00000, .00003, .00003,
3459 + .03666, .00797, -.00610, .00005, .00000,
3460 + .00000, .00003, .00003,
3461 + .03409, .00739, -.00549, .00004, .00000,
3462 + .00000, .00003, .00003 /
3463 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
3464 + .03171, .00684, -.00493, .00004, .00000,
3465 + .00000, .00001, .00001,
3466 + .02958, .00636, -.00445, .00004, .00000,
3467 + .00000, .00001, .00001,
3468 + .02773, .00594, -.00404, .00002, .00000,
3469 + .00000, .00001, .00001,
3470 + .02609, .00557, -.00369, .00002, .00000,
3471 + .00000, .00001, .00001,
3472 + .02454, .00522, -.00337, .00002, .00000,
3473 + .00000, .00001, .00001,
3474 + .02312, .00491, -.00308, .00002, .00000,
3475 + .00000, .00001, .00001,
3476 + .02185, .00463, -.00285, .00003, .00000,
3477 + .00000, .00001, .00001,
3478 + .02073, .00438, -.00263, .00003, .00000,
3479 + .00000, .00001, .00001 /
3480 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/
3481 + .01967, .00414, -.00244, .00003, .00000,
3482 + .00000, .00001, .00001,
3483 + .01867, .00392, -.00224, .00001, .00000,
3484 + .00000, .00001, .00001,
3485 + .01778, .00373, -.00208, .00001, .00000,
3486 + .00000, .00001, .00001,
3487 + .01697, .00356, -.00194, .00001, .00000,
3488 + .00000, .00001, .00001,
3489 + .01619, .00338, -.00182, .00001, .00000,
3490 + .00000, .00001, .00001 /
3491 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/
3492 + .15664, .03502, -.06397, .00015, .00000,
3493 + .00000, .00001, .00001,
3494 + .14167, .03144, -.05626, .00010, .00000,
3495 + .00000, .00004, .00004,
3496 + .12257, .02696, -.04661, .00010, -.00003,
3497 + .00000, .00000, .00005,
3498 + .11084, .02421, -.04097, .00008, -.00002,
3499 + .00000, .00003, .00005,
3500 + .09999, .02171, -.03577, .00008, -.00002,
3501 + .00000, .00001, .00001,
3502 + .09164, .01978, -.03193, .00008, -.00001,
3503 + .00000, .00001, .00001,
3504 + .08438, .01812, -.02861, .00006, -.00001,
3505 + .00000, .00001, .00002,
3506 + .07740, .01655, -.02555, .00008, -.00001,
3507 + .00000, .00001, .00003 /
3508 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
3509 + .07190, .01531, -.02313, .00006, -.00001,
3510 + .00000, .00001, .00001,
3511 + .06703, .01421, -.02106, .00006, -.00001,
3512 + .00000, .00001, .00001,
3513 + .06346, .01340, -.01953, .00004, -.00001,
3514 + .00000, .00001, .00001,
3515 + .05652, .01186, -.01670, .00006, .00000,
3516 + .00000, .00001, .00001,
3517 + .05138, .01073, -.01468, .00004, .00000,
3518 + .00000, .00001, .00001,
3519 + .04625, .00959, -.01273, .00002, .00000,
3520 + .00000, .00001, .00001,
3521 + .04152, .00856, -.01100, .00002, .00000,
3522 + .00000, .00001, .00001,
3523 + .03770, .00774, -.00965, .00002, .00000,
3524 + .00000, .00001, .00001 /
3525 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
3526 + .03428, .00701, -.00848, .00003, .00000,
3527 + .00000, .00000, .00001,
3528 + .03170, .00646, -.00760, .00001, .00000,
3529 + .00000, .00000, .00000,
3530 + .02886, .00584, -.00668, .00001, .00000,
3531 + .00000, .00000, .00001,
3532 + .02658, .00538, -.00597, .00001, .00000,
3533 + .00000, .00000, .00001,
3534 + .02468, .00496, -.00537, .00001, .00000,
3535 + .00000, .00000, .00001,
3536 + .02249, .00450, -.00471, .00001, .00000,
3537 + .00000, .00000, .00000,
3538 + .02063, .00411, -.00418, .00001, .00000,
3539 + .00000, .00000, .00000,
3540 + .01904, .00378, -.00373, .00001, .00000,
3541 + .00000, .00000, .00000 /
3542 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
3543 + .01758, .00348, -.00333, .00001, .00000,
3544 + .00000, .00000, .00000,
3545 + .01628, .00321, -.00299, .00001, .00000,
3546 + .00000, .00000, .00000,
3547 + .01515, .00298, -.00270, .00001, .00000,
3548 + .00000, .00000, .00000,
3549 + .01416, .00278, -.00245, .00001, .00000,
3550 + .00000, .00000, .00000,
3551 + .01324, .00259, -.00222, .00001, .00000,
3552 + .00000, .00000, .00000,
3553 + .01241, .00242, -.00203, .00001, .00000,
3554 + .00000, .00000, .00000,
3555 + .01167, .00227, -.00185, .00000, .00000,
3556 + .00000, .00000, .00000,
3557 + .01100, .00213, -.00170, .00000, .00000,
3558 + .00000, .00000, .00000 /
3559 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/
3560 + .01038, .00200, -.00156, .00000, .00000,
3561 + .00000, .00000, .00000,
3562 + .00980, .00189, -.00145, .00001, .00000,
3563 + .00000, .00000, .00000,
3564 + .00929, .00179, -.00134, .00001, .00000,
3565 + .00000, .00000, .00000,
3566 + .00882, .00169, -.00124, .00001, .00000,
3567 + .00000, .00000, .00000,
3568 + .00838, .00160, -.00114, .00000, .00000,
3569 + .00000, .00000, .00000 /
3570 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/
3571 + .09927, .02001, -.04823, .00007, .00000,
3572 + .00000, -.00001, -.00001,
3573 + .08860, .01775, -.04180, .00007, .00000,
3574 + .00000, -.00001, -.00001,
3575 + .07533, .01495, -.03400, .00004, -.00001,
3576 + .00000, -.00001, -.00001,
3577 + .06723, .01328, -.02947, .00004, -.00001,
3578 + .00000, -.00001, -.00001,
3579 + .05992, .01176, -.02547, .00004, .00000,
3580 + .00000, .00000, .00002,
3581 + .05432, .01061, -.02243, .00002, .00000,
3582 + .00000, .00000, .00002,
3583 + .04952, .00962, -.01991, .00002, .00000,
3584 + .00000, .00000, .00002,
3585 + .04498, .00870, -.01756, .00002, .00000,
3586 + .00000, .00000, .00000 /
3587 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
3588 + .04141, .00798, -.01577, .00002, .00000,
3589 + .00000, .00000, .00000,
3590 + .03826, .00733, -.01421, .00002, .00000,
3591 + .00000, .00000, .00000,
3592 + .03597, .00689, -.01310, .00002, .00000,
3593 + .00000, .00000, .00000,
3594 + .03163, .00602, -.01106, .00002, .00000,
3595 + .00000, .00000, .00000,
3596 + .02842, .00538, -.00961, .00002, .00000,
3597 + .00000, .00000, .00000,
3598 + .02529, .00475, -.00824, .00002, .00000,
3599 + .00000, .00000, .00000,
3600 + .02242, .00419, -.00704, .00002, .00000,
3601 + .00000, .00000, .00000,
3602 + .02015, .00375, -.00611, .00002, .00000,
3603 + .00000, .00000, .00000 /
3604 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/
3605 + .01812, .00336, -.00530, .00000, .00000,
3606 + .00000, .00000, .00000,
3607 + .01661, .00306, -.00470, .00000, .00000,
3608 + .00000, .00000, .00000,
3609 + .01496, .00275, -.00409, .00000, .00000,
3610 + .00000, .00000, .00000,
3611 + .01366, .00249, -.00362, .00000, .00000,
3612 + .00000, .00000, .00000,
3613 + .01260, .00230, -.00324, .00000, .00000,
3614 + .00000, .00000, .00000,
3615 + .01136, .00206, -.00282, .00000, .00000,
3616 + .00000, .00000, .00000,
3617 + .01031, .00187, -.00247, .00000, .00000,
3618 + .00000, .00000, .00000,
3619 + .00943, .00170, -.00219, .00000, .00000,
3620 + .00000, .00000, .00000 /
3621 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/
3622 + .00863, .00156, -.00194, .00000, .00000,
3623 + .00000, .00000, .00000,
3624 + .00794, .00142, -.00173, .00000, .00000,
3625 + .00000, .00000, .00000,
3626 + .00734, .00131, -.00156, .00000, .00000,
3627 + .00000, .00000, .00000,
3628 + .00680, .00121, -.00140, .00000, .00000,
3629 + .00000, .00000, .00000,
3630 + .00632, .00112, -.00127, .00000, .00000,
3631 + .00000, .00000, .00000,
3632 + .00588, .00104, -.00114, .00000, .00000,
3633 + .00000, .00000, .00000,
3634 + .00549, .00097, -.00104, .00000, .00000,
3635 + .00000, .00000, .00000,
3636 + .00515, .00091, -.00095, .00000, .00000,
3637 + .00000, .00000, .00000 /
3638 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=33,37)/
3639 + .00483, .00084, -.00086, .00000, .00000,
3640 + .00000, .00000, .00000,
3641 + .00454, .00079, -.00080, .00000, .00000,
3642 + .00000, .00000, .00000,
3643 + .00427, .00075, -.00073, .00000, .00000,
3644 + .00000, .00000, .00000,
3645 + .00404, .00070, -.00068, .00000, .00000,
3646 + .00000, .00000, .00000,
3647 + .00382, .00066, -.00062, .00000, .00000,
3648 + .00000, .00000, .00000 /
3649 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/
3650 + .05502, .00971, -.03053, .00000, .00000,
3651 + .00000, .00000, .00000,
3652 + .04842, .00852, -.02614, .00000, .00000,
3653 + .00000, .00000, .00000,
3654 + .04032, .00705, -.02089, .00000, .00000,
3655 + .00000, .00000, .00000,
3656 + .03548, .00617, -.01786, .00000, .00000,
3657 + .00000, .00000, .00000,
3658 + .03116, .00539, -.01520, .00000, .00000,
3659 + .00000, .00000, .00000,
3660 + .02792, .00483, -.01329, .00000, .00000,
3661 + .00000, .00000, .00000,
3662 + .02515, .00430, -.01162, .00000, .00000,
3663 + .00000, .00000, .00000,
3664 + .02257, .00386, -.01017, .00000, .00000,
3665 + .00000, .00000, .00000 /
3666 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=9,16)/
3667 + .02056, .00352, -.00906, .00000, .00000,
3668 + .00000, .00000, .00000,
3669 + .01882, .00321, -.00808, .00000, .00000,
3670 + .00000, .00000, .00000,
3671 + .01757, .00300, -.00741, .00000, .00000,
3672 + .00000, .00000, .00000,
3673 + .01520, .00255, -.00614, .00000, .00000,
3674 + .00000, .00000, .00000,
3675 + .01348, .00226, -.00528, .00000, .00000,
3676 + .00000, .00000, .00000,
3677 + .01182, .00198, -.00446, .00000, .00000,
3678 + .00000, .00000, .00000,
3679 + .01033, .00172, -.00375, .00000, .00000,
3680 + .00000, .00000, .00000,
3681 + .00916, .00152, -.00322, .00000, .00000,
3682 + .00000, .00000, .00000 /
3683 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=17,24)/
3684 + .00814, .00134, -.00277, .00000, .00000,
3685 + .00000, .00000, .00000,
3686 + .00738, .00122, -.00244, .00000, .00000,
3687 + .00000, .00000, .00000,
3688 + .00657, .00108, -.00210, .00000, .00000,
3689 + .00000, .00000, .00000,
3690 + .00593, .00096, -.00184, .00000, .00000,
3691 + .00000, .00000, .00000,
3692 + .00541, .00088, -.00162, .00000, .00000,
3693 + .00000, .00000, .00000,
3694 + .00482, .00078, -.00140, .00000, .00000,
3695 + .00000, .00000, .00000,
3696 + .00433, .00070, -.00122, .00000, .00000,
3697 + .00000, .00000, .00000,
3698 + .00392, .00063, -.00106, .00000, .00000,
3699 + .00000, .00000, .00000 /
3700 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/
3701 + .00356, .00056, -.00093, .00000, .00000,
3702 + .00000, .00000, .00000,
3703 + .00323, .00052, -.00082, .00000, .00000,
3704 + .00000, .00000, .00000,
3705 + .00296, .00047, -.00073, .00000, .00000,
3706 + .00000, .00000, .00000,
3707 + .00272, .00044, -.00065, .00000, .00000,
3708 + .00000, .00000, .00000,
3709 + .00250, .00040, -.00058, .00000, .00000,
3710 + .00000, .00000, .00000,
3711 + .00231, .00037, -.00052, .00000, .00000,
3712 + .00000, .00000, .00000,
3713 + .00215, .00034, -.00048, .00000, .00000,
3714 + .00000, .00000, .00000,
3715 + .00200, .00031, -.00043, .00000, .00000,
3716 + .00000, .00000, .00000 /
3717 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/
3718 + .00187, .00030, -.00039, .00000, .00000,
3719 + .00000, .00000, .00000,
3720 + .00174, .00027, -.00036, .00000, .00000,
3721 + .00000, .00000, .00000,
3722 + .00163, .00026, -.00032, .00000, .00000,
3723 + .00000, .00000, .00000,
3724 + .00153, .00023, -.00030, .00000, .00000,
3725 + .00000, .00000, .00000,
3726 + .00143, .00022, -.00027, .00000, .00000,
3727 + .00000, .00000, .00000 /
3728 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/
3729 + .00785, .00104, -.00553, .00000, .00000,
3730 + .00000, .00000, .00000,
3731 + .00662, .00086, -.00454, .00000, .00000,
3732 + .00000, .00000, .00000,
3733 + .00518, .00067, -.00342, .00000, .00000,
3734 + .00000, .00000, .00000,
3735 + .00438, .00057, -.00282, .00000, .00000,
3736 + .00000, .00000, .00000,
3737 + .00367, .00048, -.00230, .00000, .00000,
3738 + .00000, .00000, .00000,
3739 + .00317, .00039, -.00193, .00000, .00000,
3740 + .00000, .00000, .00000,
3741 + .00277, .00036, -.00166, .00000, .00000,
3742 + .00000, .00000, .00000,
3743 + .00238, .00031, -.00139, .00000, .00000,
3744 + .00000, .00000, .00000 /
3745 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/
3746 + .00211, .00026, -.00120, .00000, .00000,
3747 + .00000, .00000, .00000,
3748 + .00189, .00023, -.00105, .00000, .00000,
3749 + .00000, .00000, .00000,
3750 + .00172, .00021, -.00095, .00000, .00000,
3751 + .00000, .00000, .00000,
3752 + .00142, .00018, -.00076, .00000, .00000,
3753 + .00000, .00000, .00000,
3754 + .00122, .00015, -.00063, .00000, .00000,
3755 + .00000, .00000, .00000,
3756 + .00102, .00013, -.00052, .00000, .00000,
3757 + .00000, .00000, .00000,
3758 + .00086, .00011, -.00042, .00000, .00000,
3759 + .00000, .00000, .00000,
3760 + .00074, .00009, -.00035, .00000, .00000,
3761 + .00000, .00000, .00000 /
3762 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/
3763 + .00062, .00007, -.00028, .00000, .00000,
3764 + .00000, .00000, .00000,
3765 + .00056, .00007, -.00025, .00000, .00000,
3766 + .00000, .00000, .00000,
3767 + .00047, .00005, -.00020, .00000, .00000,
3768 + .00000, .00000, .00000,
3769 + .00041, .00005, -.00017, .00000, .00000,
3770 + .00000, .00000, .00000,
3771 + .00037, .00005, -.00015, .00000, .00000,
3772 + .00000, .00000, .00000,
3773 + .00032, .00003, -.00012, .00000, .00000,
3774 + .00000, .00000, .00000,
3775 + .00027, .00003, -.00010, .00000, .00000,
3776 + .00000, .00000, .00000,
3777 + .00024, .00003, -.00009, .00000, .00000,
3778 + .00000, .00000, .00000 /
3779 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
3780 + .00022, .00003, -.00008, .00000, .00000,
3781 + .00000, .00000, .00000,
3782 + .00019, .00003, -.00007, .00000, .00000,
3783 + .00000, .00000, .00000,
3784 + .00017, .00001, -.00006, .00000, .00000,
3785 + .00000, .00000, .00000,
3786 + .00016, .00001, -.00005, .00000, .00000,
3787 + .00000, .00000, .00000,
3788 + .00014, .00001, -.00004, .00000, .00000,
3789 + .00000, .00000, .00000,
3790 + .00012, .00001, -.00004, .00000, .00000,
3791 + .00000, .00000, .00000,
3792 + .00011, .00001, -.00003, .00000, .00000,
3793 + .00000, .00000, .00000,
3794 + .00010, .00001, -.00003, .00000, .00000,
3795 + .00000, .00000, .00000 /
3796 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
3797 + .00009, .00001, -.00003, .00000, .00000,
3798 + .00000, .00000, .00000,
3799 + .00008, .00001, -.00002, .00000, .00000,
3800 + .00000, .00000, .00000,
3801 + .00008, .00001, -.00002, .00000, .00000,
3802 + .00000, .00000, .00000,
3803 + .00007, .00001, -.00002, .00000, .00000,
3804 + .00000, .00000, .00000,
3805 + .00007, .00001, -.00002, .00000, .00000,
3806 + .00000, .00000, .00000 /
3807 data xx/1d-5,2d-5,4d-5,6d-5,8d-5,
3808 . 1d-4,2d-4,4d-4,6d-4,8d-4,
3809 . 1d-3,2d-3,4d-3,6d-3,8d-3,
3810 . 1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2,
3811 . .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0,
3812 . .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0,
3813 . .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0,
3815 data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1,
3816 . 1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2,
3817 . 1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4,
3818 . 1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6,
3819 . 1.8d6,3.2d6,5.6d6,1d7/
3820 data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/
3821 data n0/3,4,5,9,9,9,9,9/
3822 DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
3827 if(init.ne.0) goto 10
3828 C open(unit=1,file='cor09dis.dat',status='old')
3831 C read(1,50)f(1,n,m),f(2,n,m),f(3,n,m),f(4,n,m),
3832 C . f(5,n,m),f(7,n,m),f(6,n,m),f(8,n,m)
3833 c notation: 1=uval 2=val 3=glue 4=usea 5=chm 6=str 7=btm 8=dsea
3835 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i)
3838 xx(j)= log10(xx(j)/xx(ntenth))+xx(ntenth)
3840 if(i.eq.5.or.i.eq.7) goto 31
3842 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k)
3850 if(x.lt.xmin) x=xmin
3851 if(x.gt.xmax) x=xmax
3852 if(qsq.lt.qsqmin) qsq=qsqmin
3853 if(qsq.gt.qsqmax) qsq=qsqmax
3855 if(x.lt.xx(ntenth)) xxx= log10(x/xx(ntenth))+xx(ntenth)
3858 if(xxx.gt.xx(n+1)) goto 70
3859 a=(xxx-xx(n))/(xx(n+1)-xx(n))
3862 if(qsq.gt.qq(m+1)) goto 80
3863 b=(qsq-qq(m))/(qq(m+1)-qq(m))
3865 g(i)=(ONED-a)*(ONED-b)*f(i,n,m) + (ONED-a)*b*f(i,n,m+1)
3866 . + a*(ONED-b)*f(i,n+1,m) + a*b*f(i,n+1,m+1)
3867 if(n.ge.ntenth) goto 65
3868 if(i.eq.5.or.i.eq.7) goto 65
3869 fac=(ONED-b)*f(i,ntenth,m)+b*f(i,ntenth,m+1)
3870 g(i)=fac*10d0**(g(i)-fac)
3872 g(i)=g(i)*(ONED-x)**n0(i)