2 subroutine sfmrs_99d3(x,qsq,upv,dnv,usea,dsea,str,chm,bot,glu)
4 #include "pdf/impdp.inc"
6 parameter(nx=49,nq=37,ntenth=23,np=8)
8 #include "pdf/expdp.inc"
9 + f(np,nx,nq+1),qq(nq),xx(nx),g(np),n0(np)
10 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,8)/
11 + .00515, .00344, 1.17157, .86093, .00000,
12 + .00000, .46130, .86940,
13 + .00528, .00350, 2.40193, .90259, .00000,
14 + .00000, .50700, .91122,
15 + .00549, .00358, 4.80101, .98679, .01842,
16 + .00000, .59703, .99563,
17 + .00564, .00364, 7.08586, 1.06473, .06729,
18 + .00000, .67909, 1.07371,
19 + .00580, .00371, 9.86313, 1.16270, .17965,
20 + .00000, .78126, 1.17183,
21 + .00594, .00377, 12.73980, 1.26213, .28628,
22 + .00000, .88426, 1.27139,
23 + .00606, .00384, 15.97701, 1.36918, .40303,
24 + .00000, .99468, 1.37856,
25 + .00621, .00389, 19.95835, 1.49622, .54366,
26 + .00000, 1.12522, 1.50570 /
27 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
28 + .00634, .00395, 23.84658, 1.61990, .67454,
29 + .00000, 1.25190, 1.62948,
30 + .00646, .00401, 28.02788, 1.75063, .81332,
31 + .00000, 1.38548, 1.76029,
32 + .00656, .00405, 31.69464, 1.86214, .93411,
33 + .00000, 1.49922, 1.87188,
34 + .00677, .00415, 40.43898, 2.12665, 1.21450,
35 + .00000, 1.76839, 2.13653,
36 + .00694, .00424, 48.19613, 2.38191, 1.48273,
37 + .35952, 2.02757, 2.39190,
38 + .00716, .00434, 58.36002, 2.70087, 1.81815,
39 + .74773, 2.35083, 2.71097,
40 + .00739, .00445, 70.33687, 3.07109, 2.20652,
41 + 1.15416, 2.72543, 3.08130,
42 + .00759, .00455, 82.46417, 3.44236, 2.59523,
43 + 1.56115, 3.10059, 3.45268 /
44 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
45 + .00779, .00465, 95.98572, 3.85366, 3.02545,
46 + 2.00975, 3.51573, 3.86406,
47 + .00798, .00474, 108.16166, 4.22373, 3.41048,
48 + 2.40656, 3.88894, 4.23421,
49 + .00819, .00485, 124.09653, 4.70855, 3.91292,
50 + 2.92230, 4.37748, 4.71911,
51 + .00838, .00495, 139.37021, 5.17248, 4.39426,
52 + 3.41871, 4.84466, 5.18311,
53 + .00856, .00504, 154.37072, 5.62819, 4.86705,
54 + 3.90662, 5.30329, 5.63887,
55 + .00879, .00515, 174.55965, 6.24661, 5.50437,
56 + 4.55783, 5.92535, 6.25736,
57 + .00902, .00526, 194.94695, 6.87293, 6.15012,
58 + 5.21949, 6.55505, 6.88375,
59 + .00922, .00537, 215.37767, 7.50185, 6.79952,
60 + 5.88722, 7.18706, 7.51273 /
61 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
62 + .00943, .00548, 236.70477, 8.16683, 7.48128,
63 + 6.58119, 7.85508, 8.17777,
64 + .00964, .00558, 258.82695, 8.85892, 8.19209,
65 + 7.30767, 8.55010, 8.86991,
66 + .00984, .00569, 280.83898, 9.55181, 8.90325,
67 + 8.03441, 9.24572, 9.56283,
68 + .01003, .00579, 302.32882, 10.23549, 9.60264,
69 + 8.74627, 9.93194, 10.24655,
70 + .01023, .00589, 325.04690, 10.95999, 10.34544,
71 + 9.50528, 10.65894, 10.97108,
72 + .01042, .00598, 347.94625, 11.70028, 11.10090,
73 + 10.27268, 11.40167, 11.71140,
74 + .01060, .00609, 370.82275, 12.44084, 11.85879,
75 + 11.04615, 12.14451, 12.45199,
76 + .01077, .00617, 392.84046, 13.16359, 12.59523,
77 + 11.79363, 12.86939, 13.17476 /
78 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
79 + .01095, .00627, 416.00500, 13.92588, 13.37345,
80 + 12.58604, 13.63381, 13.93708,
81 + .01113, .00636, 439.36275, 14.70271, 14.16480,
82 + 13.38985, 14.41270, 14.71393,
83 + .01130, .00646, 462.32853, 15.47135, 14.94771,
84 + 14.18524, 15.18330, 15.48259,
85 + .01147, .00654, 484.80033, 16.22723, 15.71804,
86 + 14.96879, 15.94101, 16.23848,
87 + .01163, .00663, 507.77326, 17.00965, 16.51306,
88 + 15.77457, 16.72526, 17.02092 /
89 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
90 + .00727, .00463, 1.06926, .73842, .00000,
91 + .00000, .39556, .74362,
92 + .00745, .00472, 2.17403, .77608, .00000,
93 + .00000, .43645, .78137,
94 + .00772, .00484, 4.28426, .84969, .01671,
95 + .00000, .51472, .85511,
96 + .00793, .00493, 6.25693, .91639, .05812,
97 + .00000, .58470, .92190,
98 + .00815, .00503, 8.61596, .99895, .15293,
99 + .00000, .67061, 1.00456,
100 + .00833, .00512, 11.02529, 1.08175, .24176,
101 + .00000, .75624, 1.08743,
102 + .00852, .00520, 13.70515, 1.17016, .33810,
103 + .00000, .84731, 1.17591,
104 + .00871, .00530, 16.96342, 1.27423, .45314,
105 + .00000, .95416, 1.28004 /
106 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
107 + .00888, .00538, 20.10997, 1.37473, .55923,
108 + .00000, 1.05704, 1.38061,
109 + .00904, .00546, 23.46170, 1.48026, .67096,
110 + .00000, 1.16483, 1.48620,
111 + .00918, .00553, 26.37842, 1.56984, .76766,
112 + .00000, 1.25616, 1.57582,
113 + .00946, .00567, 33.26071, 1.78064, .99027,
114 + .00000, 1.47063, 1.78670,
115 + .00972, .00579, 39.26452, 1.98225, 1.20120,
116 + .28312, 1.67534, 1.98839,
117 + .01000, .00594, 47.04863, 2.23206, 1.46265,
118 + .58607, 1.92853, 2.23827,
119 + .01031, .00609, 56.10528, 2.51939, 1.76257,
120 + .89962, 2.21930, 2.52567,
121 + .01058, .00623, 65.16672, 2.80511, 2.06016,
122 + 1.21081, 2.50807, 2.81146 /
123 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
124 + .01087, .00638, 75.15907, 3.11912, 2.38690,
125 + 1.55096, 2.82510, 3.12553,
126 + .01112, .00649, 84.06755, 3.39961, 2.67716,
127 + 1.84951, 3.10806, 3.40608,
128 + .01141, .00665, 95.61253, 3.76441, 3.05318,
129 + 2.23466, 3.47579, 3.77094,
130 + .01167, .00678, 106.57360, 4.11105, 3.41091,
131 + 2.60280, 3.82497, 4.11763,
132 + .01192, .00691, 117.24894, 4.44941, 3.76012,
133 + 2.96238, 4.16561, 4.45603,
134 + .01223, .00707, 131.48171, 4.90532, 4.22748,
135 + 3.43873, 4.62438, 4.91199,
136 + .01252, .00722, 145.72002, 5.36377, 4.69770,
137 + 3.91936, 5.08545, 5.37048,
138 + .01281, .00737, 159.86899, 5.82113, 5.16761,
139 + 4.40141, 5.54522, 5.82789 /
140 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
141 + .01310, .00752, 174.50725, 6.30143, 5.65755,
142 + 4.89877, 6.02792, 6.30824,
143 + .01337, .00766, 189.57521, 6.79832, 6.16539,
144 + 5.41650, 6.52709, 6.80516,
145 + .01364, .00780, 204.45686, 7.29286, 6.67059,
146 + 5.93148, 7.02376, 7.29973,
147 + .01390, .00794, 218.87766, 7.77803, 7.16458,
148 + 6.43294, 7.51091, 7.78494,
149 + .01417, .00808, 234.02961, 8.28964, 7.68677,
150 + 6.96524, 8.02448, 8.29657,
151 + .01442, .00821, 249.19057, 8.80945, 8.21483,
152 + 7.50020, 8.54619, 8.81641,
153 + .01467, .00834, 264.25410, 9.32710, 8.74236,
154 + 8.03729, 9.06563, 9.33410,
155 + .01491, .00848, 278.65446, 9.82972, 9.25225,
156 + 8.55346, 9.56990, 9.83674 /
157 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
158 + .01515, .00860, 293.73023, 10.35765, 9.78900,
159 + 9.09866, 10.09950, 10.36470,
160 + .01539, .00873, 308.83997, 10.89312, 10.33224,
161 + 9.64905, 10.63659, 10.90018,
162 + .01562, .00885, 323.61970, 11.42074, 10.86752,
163 + 10.19151, 11.16573, 11.42783,
164 + .01584, .00897, 338.01358, 11.93759, 11.39225,
165 + 10.72398, 11.68402, 11.94471,
166 + .01607, .00909, 352.64456, 12.47026, 11.93137,
167 + 11.26902, 12.21811, 12.47739 /
168 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
169 + .01022, .00624, .97505, .63331, .00000,
170 + .00000, .33952, .63626,
171 + .01046, .00637, 1.96707, .66722, .00000,
172 + .00000, .37603, .67022,
173 + .01084, .00655, 3.82242, .73144, .01531,
174 + .00000, .44395, .73451,
175 + .01111, .00668, 5.52442, .78841, .05033,
176 + .00000, .50356, .79153,
177 + .01141, .00682, 7.52597, .85786, .13023,
178 + .00000, .57568, .86104,
179 + .01166, .00696, 9.54094, .92664, .20413,
180 + .00000, .64671, .92986,
181 + .01191, .00708, 11.75558, .99947, .28350,
182 + .00000, .72165, 1.00271,
183 + .01218, .00721, 14.41679, 1.08450, .37746,
184 + .00000, .80888, 1.08780 /
185 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
186 + .01241, .00733, 16.95729, 1.16591, .46333,
187 + .00000, .89217, 1.16925,
188 + .01264, .00745, 19.63728, 1.25083, .55310,
189 + .00000, .97887, 1.25419,
190 + .01283, .00754, 21.95115, 1.32254, .63040,
191 + .00000, 1.05198, 1.32593,
192 + .01322, .00773, 27.35228, 1.48995, .80679,
193 + .00000, 1.22226, 1.49338,
194 + .01357, .00792, 31.98257, 1.64858, .97233,
195 + .22240, 1.38334, 1.65207,
196 + .01396, .00812, 37.92147, 1.84344, 1.17569,
197 + .45860, 1.58086, 1.84698,
198 + .01437, .00833, 44.74179, 2.06553, 1.40678,
199 + .70023, 1.80565, 2.06911,
200 + .01475, .00853, 51.48248, 2.28446, 1.63406,
201 + .93790, 2.02697, 2.28808 /
202 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
203 + .01515, .00873, 58.83222, 2.52314, 1.88158,
204 + 1.19550, 2.26801, 2.52681,
205 + .01547, .00890, 65.31765, 2.73476, 2.09979,
206 + 1.41980, 2.48155, 2.73847,
207 + .01588, .00911, 73.63826, 3.00798, 2.38040,
208 + 1.70700, 2.75705, 3.01172,
209 + .01623, .00930, 81.46132, 3.26573, 2.64546,
210 + 1.97955, 3.01679, 3.26951,
211 + .01656, .00947, 89.01540, 3.51573, 2.90259,
212 + 2.24410, 3.26857, 3.51953,
213 + .01699, .00970, 98.98883, 3.85014, 3.24417,
214 + 2.59185, 3.60520, 3.85399,
215 + .01739, .00991, 108.87052, 4.18397, 3.58540,
216 + 2.94024, 3.94107, 4.18786,
217 + .01778, .01011, 118.60576, 4.51483, 3.92423,
218 + 3.28748, 4.27380, 4.51874 /
219 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
220 + .01816, .01032, 128.58452, 4.85985, 4.27497,
221 + 3.64304, 4.62069, 4.86382,
222 + .01854, .01052, 138.77576, 5.21462, 4.63639,
223 + 4.01105, 4.97723, 5.21861,
224 + .01891, .01072, 148.76376, 5.56563, 4.99385,
225 + 4.37499, 5.32990, 5.56965,
226 + .01926, .01089, 158.36789, 5.90796, 5.34129,
227 + 4.72719, 5.67376, 5.91200,
228 + .01960, .01109, 168.39605, 6.26713, 5.70683,
229 + 5.09937, 6.03445, 6.27121,
230 + .01996, .01126, 178.35298, 6.62996, 6.07428,
231 + 5.47109, 6.39876, 6.63407,
232 + .02028, .01145, 188.19135, 6.98965, 6.43982,
233 + 5.84281, 6.75983, 6.99378,
234 + .02060, .01162, 197.52971, 7.33702, 6.79119,
235 + 6.19799, 7.10850, 7.34118 /
236 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
237 + .02093, .01179, 207.25710, 7.70039, 7.15963,
238 + 6.57178, 7.47315, 7.70457,
239 + .02125, .01197, 216.94458, 8.06716, 7.53071,
240 + 6.94723, 7.84118, 8.07136,
241 + .02156, .01213, 226.37001, 8.42702, 7.89483,
242 + 7.31576, 8.20222, 8.43125,
243 + .02185, .01229, 235.50493, 8.77816, 8.25043,
244 + 7.67617, 8.55448, 8.78241,
245 + .02216, .01245, 244.73411, 9.13842, 8.61409,
246 + 8.04330, 8.91584, 9.14268 /
247 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
248 + .01244, .00744, .92319, .57895, .00000,
249 + .00000, .31075, .58101,
250 + .01274, .00759, 1.85479, .61078, .00000,
251 + .00000, .34485, .61287,
252 + .01319, .00782, 3.57519, .66996, .01465,
253 + .00000, .40732, .67211,
254 + .01353, .00799, 5.13602, .72186, .04635,
255 + .00000, .46151, .72402,
256 + .01389, .00816, 6.95324, .78455, .11858,
257 + .00000, .52654, .78674,
258 + .01418, .00832, 8.76689, .84616, .18487,
259 + .00000, .59013, .84840,
260 + .01449, .00848, 10.74610, .91107, .25567,
261 + .00000, .65688, .91334,
262 + .01482, .00864, 13.10776, .98650, .33904,
263 + .00000, .73424, .98879 /
264 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
265 + .01510, .00878, 15.34674, 1.05834, .41483,
266 + .00000, .80773, 1.06066,
267 + .01536, .00892, 17.69497, 1.13298, .49374,
268 + .00000, .88391, 1.13532,
269 + .01558, .00904, 19.71292, 1.19581, .56146,
270 + .00000, .94796, 1.19818,
271 + .01606, .00929, 24.39299, 1.34180, .71521,
272 + .00000, 1.09647, 1.34420,
273 + .01647, .00950, 28.36338, 1.47938, .85871,
274 + .19276, 1.23618, 1.48182,
275 + .01695, .00975, 33.42286, 1.64751, 1.03404,
276 + .39680, 1.40662, 1.64999,
277 + .01745, .01001, 39.18801, 1.83810, 1.23216,
278 + .60412, 1.59955, 1.84061,
279 + .01791, .01025, 44.84412, 2.02500, 1.42601,
280 + .80696, 1.78853, 2.02755 /
281 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
282 + .01837, .01050, 50.96955, 2.22780, 1.63610,
283 + 1.02571, 1.99338, 2.23038,
284 + .01877, .01070, 56.34139, 2.40681, 1.82049,
285 + 1.21530, 2.17406, 2.40943,
286 + .01925, .01095, 63.19169, 2.63691, 2.05655,
287 + 1.45694, 2.40614, 2.63957,
288 + .01967, .01119, 69.59476, 2.85307, 2.27858,
289 + 1.68531, 2.62402, 2.85575,
290 + .02007, .01140, 75.74585, 3.06193, 2.49317,
291 + 1.90613, 2.83442, 3.06464,
292 + .02058, .01167, 83.81922, 3.34012, 2.77698,
293 + 2.19506, 3.11452, 3.34287,
294 + .02106, .01192, 91.77220, 3.61661, 3.05929,
295 + 2.48332, 3.39279, 3.61940,
296 + .02152, .01217, 99.56692, 3.88957, 3.33855,
297 + 2.76953, 3.66738, 3.89239 /
298 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
299 + .02198, .01241, 107.51143, 4.17305, 3.62638,
300 + 3.06128, 3.95246, 4.17591,
301 + .02244, .01266, 115.58696, 4.46348, 3.92195,
302 + 3.36222, 4.24442, 4.46636,
303 + .02288, .01289, 123.46483, 4.74981, 4.21325,
304 + 3.65879, 4.53218, 4.75273,
305 + .02328, .01311, 131.00431, 5.02809, 4.49537,
306 + 3.94474, 4.81178, 5.03102,
307 + .02370, .01333, 138.84730, 5.31918, 4.79137,
308 + 4.24610, 5.10418, 5.32215,
309 + .02412, .01355, 146.59777, 5.61222, 5.08783,
310 + 4.54595, 5.39850, 5.61522,
311 + .02452, .01377, 154.23077, 5.90195, 5.38202,
312 + 4.84510, 5.68942, 5.90497,
313 + .02490, .01397, 161.44419, 6.18086, 5.66386,
314 + 5.12993, 5.96944, 6.18391 /
315 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
316 + .02528, .01418, 168.93534, 6.47189, 5.95873,
317 + 5.42905, 6.26159, 6.47498,
318 + .02566, .01439, 176.36703, 6.76481, 6.25481,
319 + 5.72857, 6.55558, 6.76792,
320 + .02603, .01458, 183.57417, 7.05147, 6.54462,
321 + 6.02184, 6.84327, 7.05461,
322 + .02638, .01477, 190.53882, 7.33053, 6.82703,
323 + 6.30805, 7.12329, 7.33370,
324 + .02674, .01496, 197.54882, 7.61606, 7.11502,
325 + 6.59872, 7.40977, 7.61924 /
326 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
327 + .01431, .00844, .88771, .54331, .00000,
328 + .00000, .29198, .54490,
329 + .01464, .00860, 1.77883, .57367, .00000,
330 + .00000, .32444, .57528,
331 + .01515, .00887, 3.40934, .62949, .01426,
332 + .00000, .38325, .63113,
333 + .01554, .00907, 4.87701, .67799, .04375,
334 + .00000, .43387, .67969,
335 + .01594, .00928, 6.57343, .73625, .11096,
336 + .00000, .49426, .73796,
337 + .01630, .00945, 8.25600, .79319, .17230,
338 + .00000, .55300, .79492,
339 + .01665, .00964, 10.08271, .85295, .23754,
340 + .00000, .61445, .85471,
341 + .01701, .00983, 12.25143, .92216, .31409,
342 + .00000, .68541, .92395 /
343 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
344 + .01733, .00999, 14.29721, .98784, .38340,
345 + .00000, .75259, .98965,
346 + .01765, .01016, 16.43382, 1.05587, .45536,
347 + .00000, .82203, 1.05769,
348 + .01790, .01029, 18.26373, 1.11302, .51697,
349 + .00000, .88030, 1.11487,
350 + .01843, .01057, 22.48799, 1.24535, .65636,
351 + .00000, 1.01491, 1.24722,
352 + .01891, .01082, 26.04482, 1.36957, .78592,
353 + .17394, 1.14106, 1.37148,
354 + .01945, .01110, 30.55587, 1.52081, .94363,
355 + .35780, 1.29440, 1.52276,
356 + .02002, .01140, 35.66712, 1.69158, 1.12114,
357 + .54368, 1.46730, 1.69356,
358 + .02054, .01168, 40.65506, 1.85845, 1.29414,
359 + .72485, 1.63604, 1.86046 /
360 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
361 + .02107, .01197, 46.03052, 2.03886, 1.48100,
362 + .91954, 1.81832, 2.04091,
363 + .02152, .01220, 50.72358, 2.19763, 1.64448,
364 + 1.08772, 1.97859, 2.19970,
365 + .02207, .01249, 56.68209, 2.40105, 1.85310,
366 + 1.30138, 2.18381, 2.40316,
367 + .02255, .01275, 62.22802, 2.59158, 2.04874,
368 + 1.50269, 2.37588, 2.59371,
369 + .02300, .01299, 67.53597, 2.77516, 2.23730,
370 + 1.69681, 2.56086, 2.77733,
371 + .02358, .01331, 74.47281, 3.01892, 2.48589,
372 + 1.94998, 2.80637, 3.02114,
373 + .02413, .01359, 81.27765, 3.26046, 2.73242,
374 + 2.20179, 3.04951, 3.26271,
375 + .02465, .01387, 87.92210, 3.49825, 2.97561,
376 + 2.45112, 3.28877, 3.50053 /
377 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
378 + .02517, .01415, 94.66645, 3.74446, 3.22550,
379 + 2.70447, 3.53642, 3.74677,
380 + .02569, .01443, 101.49855, 3.99603, 3.48144,
381 + 2.96515, 3.78937, 3.99839,
382 + .02617, .01469, 108.14105, 4.24344, 3.73306,
383 + 3.22140, 4.03808, 4.24582,
384 + .02665, .01494, 114.47623, 4.48327, 3.97613,
385 + 3.46782, 4.27910, 4.48569,
386 + .02712, .01520, 121.04886, 4.73364, 4.23064,
387 + 3.72701, 4.53066, 4.73608,
388 + .02758, .01545, 127.52132, 4.98502, 4.48486,
389 + 3.98419, 4.78319, 4.98750,
390 + .02804, .01570, 133.88071, 5.23310, 4.73670,
391 + 4.24035, 5.03234, 5.23560,
392 + .02846, .01593, 139.87086, 5.47135, 4.97738,
393 + 4.48363, 5.27161, 5.47389 /
394 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
395 + .02890, .01616, 146.07851, 5.71954, 5.22877,
396 + 4.73870, 5.52079, 5.72210,
397 + .02933, .01640, 152.21894, 5.96879, 5.48067,
398 + 4.99357, 5.77102, 5.97138,
399 + .02975, .01662, 158.15999, 6.21228, 5.72677,
400 + 5.24266, 6.01544, 6.21490,
401 + .03014, .01683, 163.88885, 6.44894, 5.96620,
402 + 5.48538, 6.25295, 6.45158,
403 + .03055, .01704, 169.63894, 6.69058, 6.20987,
404 + 5.73135, 6.49546, 6.69325 /
405 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
406 + .01594, .00930, .86104, .51722, .00000,
407 + .00000, .27829, .51850,
408 + .01632, .00949, 1.72204, .54648, .00000,
409 + .00000, .30950, .54778,
410 + .01688, .00978, 3.28598, .59978, .01399,
411 + .00000, .36560, .60112,
412 + .01731, .01001, 4.68519, .64580, .04187,
413 + .00000, .41359, .64717,
414 + .01776, .01024, 6.29336, .70078, .10538,
415 + .00000, .47058, .70218,
416 + .01815, .01045, 7.88056, .75432, .16311,
417 + .00000, .52579, .75575,
418 + .01853, .01064, 9.59678, .81035, .22432,
419 + .00000, .58339, .81179,
420 + .01894, .01086, 11.62621, .87505, .29593,
421 + .00000, .64973, .87651 /
422 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
423 + .01929, .01104, 13.53305, .93628, .36058,
424 + .00000, .71235, .93776,
425 + .01964, .01123, 15.51799, .99954, .42755,
426 + .00000, .77693, 1.00105,
427 + .01992, .01138, 17.21348, 1.05263, .48478,
428 + .00000, .83104, 1.05415,
429 + .02052, .01168, 21.11321, 1.17515, .61390,
430 + .00000, .95571, 1.17670,
431 + .02104, .01197, 24.37788, 1.28984, .73353,
432 + .16050, 1.07218, 1.29142,
433 + .02163, .01228, 28.50279, 1.42906, .87873,
434 + .33002, 1.21336, 1.43068,
435 + .02226, .01262, 33.15565, 1.58577, 1.04164,
436 + .50076, 1.37206, 1.58743,
437 + .02285, .01293, 37.67725, 1.73845, 1.19998,
438 + .66669, 1.52650, 1.74015 /
439 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
440 + .02343, .01324, 42.53133, 1.90310, 1.37052,
441 + .84449, 1.69288, 1.90483,
442 + .02393, .01351, 46.75423, 2.04762, 1.51933,
443 + .99768, 1.83880, 2.04939,
444 + .02453, .01383, 52.09727, 2.23236, 1.70877,
445 + 1.19180, 2.02520, 2.23416,
446 + .02507, .01411, 57.05377, 2.40495, 1.88600,
447 + 1.37427, 2.19925, 2.40679,
448 + .02556, .01438, 61.78362, 2.57092, 2.05647,
449 + 1.54986, 2.36651, 2.57279,
450 + .02621, .01473, 67.94406, 2.79075, 2.28063,
451 + 1.77825, 2.58795, 2.79265,
452 + .02681, .01505, 73.96728, 3.00805, 2.50241,
453 + 2.00489, 2.80673, 3.00999,
454 + .02738, .01536, 79.83125, 3.22149, 2.72071,
455 + 2.22882, 3.02155, 3.22348 /
456 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
457 + .02796, .01567, 85.76371, 3.44198, 2.94447,
458 + 2.45576, 3.24337, 3.44400,
459 + .02853, .01597, 91.75719, 3.66682, 3.17321,
460 + 2.68883, 3.46951, 3.66888,
461 + .02907, .01627, 97.56890, 3.88750, 3.39764,
462 + 2.91748, 3.69138, 3.88958,
463 + .02958, .01654, 103.09659, 4.10098, 3.61399,
464 + 3.13690, 3.90597, 4.10310,
465 + .03010, .01683, 108.81920, 4.32348, 3.84017,
466 + 3.36735, 4.12957, 4.32563,
467 + .03062, .01711, 114.43890, 4.54644, 4.06564,
468 + 3.59550, 4.35360, 4.54863,
469 + .03111, .01737, 119.95034, 4.76614, 4.28868,
470 + 3.82246, 4.57429, 4.76835,
471 + .03158, .01763, 125.12816, 4.97675, 4.50142,
472 + 4.03757, 4.78584, 4.97900 /
473 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
474 + .03205, .01788, 130.48480, 5.19585, 4.72334,
475 + 4.26283, 5.00586, 5.19813,
476 + .03253, .01814, 135.77146, 5.41551, 4.94533,
477 + 4.48752, 5.22643, 5.41782,
478 + .03298, .01839, 140.87674, 5.62980, 5.16192,
479 + 4.70681, 5.44157, 5.63214,
480 + .03342, .01862, 145.79150, 5.83778, 5.37237,
481 + 4.92022, 5.65036, 5.84016,
482 + .03386, .01887, 150.71324, 6.04982, 5.58617,
483 + 5.13611, 5.86320, 6.05222 /
484 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
485 + .02234, .01267, .78247, .44413, .00000,
486 + .00000, .24034, .44510,
487 + .02284, .01294, 1.55697, .47006, .00000,
488 + .00000, .26788, .47105,
489 + .02362, .01335, 2.93067, .51600, .01340,
490 + .00000, .31612, .51703,
491 + .02421, .01366, 4.13629, .55491, .03667,
492 + .00000, .35665, .55596,
493 + .02482, .01398, 5.49690, .60069, .08980,
494 + .00000, .40405, .60177,
495 + .02537, .01428, 6.81870, .64468, .13746,
496 + .00000, .44942, .64579,
497 + .02589, .01455, 8.22949, .69031, .18749,
498 + .00000, .49634, .69145,
499 + .02644, .01485, 9.87658, .74256, .24552,
500 + .00000, .54992, .74373 /
501 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
502 + .02693, .01511, 11.40471, .79156, .29740,
503 + .00000, .60005, .79275,
504 + .02741, .01536, 12.97865, .84183, .35078,
505 + .00000, .65139, .84305,
506 + .02779, .01557, 14.31171, .88377, .39614,
507 + .00000, .69418, .88502,
508 + .02860, .01601, 17.34222, .97980, .49758,
509 + .00000, .79194, .98108,
510 + .02931, .01640, 19.83201, 1.06880, .59065,
511 + .12417, .88241, 1.07013,
512 + .03013, .01684, 22.93921, 1.17589, .70259,
513 + .25560, .99108, 1.17726,
514 + .03099, .01730, 26.39429, 1.29526, .82694,
515 + .38637, 1.11205, 1.29668,
516 + .03179, .01773, 29.70693, 1.41051, .94668,
517 + .51228, 1.22872, 1.41198 /
518 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
519 + .03259, .01817, 33.21926, 1.53375, 1.07455,
520 + .64602, 1.35335, 1.53527,
521 + .03326, .01854, 36.24027, 1.64107, 1.18525,
522 + .76030, 1.46181, 1.64263,
523 + .03407, .01898, 40.02014, 1.77719, 1.32506,
524 + .90397, 1.59928, 1.77881,
525 + .03480, .01938, 43.48914, 1.90341, 1.45488,
526 + 1.03802, 1.72667, 1.90508,
527 + .03548, .01974, 46.76836, 2.02398, 1.57891,
528 + 1.16614, 1.84828, 2.02569,
529 + .03634, .02021, 50.99250, 2.18245, 1.74070,
530 + 1.33141, 2.00804, 2.18420,
531 + .03716, .02066, 55.07876, 2.33788, 1.89956,
532 + 1.49418, 2.16467, 2.33969,
533 + .03793, .02108, 59.01936, 2.48952, 2.05489,
534 + 1.65394, 2.31741, 2.49138 /
535 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
536 + .03871, .02150, 62.96331, 2.64497, 2.21283,
537 + 1.81451, 2.47394, 2.64688,
538 + .03948, .02192, 66.91340, 2.80248, 2.37328,
539 + 1.97840, 2.63248, 2.80445,
540 + .04020, .02232, 70.71079, 2.95610, 2.52973,
541 + 2.13818, 2.78706, 2.95812,
542 + .04089, .02270, 74.29014, 3.10377, 2.67955,
543 + 2.29048, 2.93562, 3.10583,
544 + .04159, .02307, 77.97069, 3.25686, 2.83542,
545 + 2.44968, 3.08960, 3.25897,
546 + .04228, .02345, 81.55186, 3.40930, 2.98974,
547 + 2.60619, 3.24290, 3.41146,
548 + .04294, .02381, 85.04337, 3.55880, 3.14174,
549 + 2.76123, 3.39321, 3.56101,
550 + .04357, .02416, 88.29503, 3.70128, 3.28582,
551 + 2.90722, 3.53642, 3.70352 /
552 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
553 + .04421, .02450, 91.64095, 3.84885, 3.43551,
554 + 3.05951, 3.68474, 3.85115,
555 + .04484, .02485, 94.91790, 3.99602, 3.58441,
556 + 3.21056, 3.83264, 3.99835,
557 + .04544, .02518, 98.06327, 4.13893, 3.72904,
558 + 3.35732, 3.97624, 4.14130,
559 + .04603, .02550, 101.07475, 4.27707, 3.86902,
560 + 3.49959, 4.11501, 4.27949,
561 + .04661, .02582, 104.06750, 4.41718, 4.01046,
562 + 3.64271, 4.25577, 4.41964 /
563 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
564 + .03134, .01739, .71128, .38208, .00000,
565 + .00000, .20874, .38352,
566 + .03204, .01776, 1.40953, .40477, .00000,
567 + .00000, .23279, .40625,
568 + .03309, .01832, 2.61561, .44395, .01316,
569 + .00000, .27390, .44548,
570 + .03389, .01875, 3.65348, .47650, .03233,
571 + .00000, .30782, .47807,
572 + .03472, .01920, 4.80213, .51424, .07645,
573 + .00000, .34694, .51588,
574 + .03544, .01959, 5.89929, .55005, .11549,
575 + .00000, .38390, .55175,
576 + .03616, .01998, 7.05420, .58686, .15609,
577 + .00000, .42179, .58860,
578 + .03691, .02039, 8.38432, .62864, .20276,
579 + .00000, .46470, .63043 /
580 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
581 + .03758, .02075, 9.60176, .66747, .24410,
582 + .00000, .50448, .66930,
583 + .03823, .02111, 10.84163, .70701, .28631,
584 + .00000, .54493, .70889,
585 + .03874, .02139, 11.88231, .73984, .32199,
586 + .00000, .57846, .74176,
587 + .03985, .02200, 14.21888, .81433, .40108,
588 + .00000, .65442, .81633,
589 + .04084, .02253, 16.10136, .88272, .47294,
590 + .09463, .72403, .88479,
591 + .04194, .02315, 18.41816, .96423, .55855,
592 + .19589, .80687, .96638,
593 + .04310, .02378, 20.95521, 1.05420, .65270,
594 + .29539, .89818, 1.05642,
595 + .04418, .02437, 23.35274, 1.14025, .74251,
596 + .39030, .98542, 1.14256 /
597 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
598 + .04526, .02498, 25.86118, 1.23146, .83758,
599 + .49022, 1.07781, 1.23385,
600 + .04617, .02547, 27.99242, 1.31026, .91918,
601 + .57486, 1.15757, 1.31272,
602 + .04728, .02608, 30.62707, 1.40940, 1.02142,
603 + .68040, 1.25783, 1.41194,
604 + .04827, .02663, 33.01730, 1.50061, 1.11561,
605 + .77811, 1.35002, 1.50322,
606 + .04918, .02713, 35.25390, 1.58714, 1.20498,
607 + .87086, 1.43742, 1.58982,
608 + .05034, .02777, 38.10052, 1.69993, 1.32058,
609 + .98947, 1.55132, 1.70270,
610 + .05145, .02838, 40.82261, 1.80971, 1.43320,
611 + 1.10538, 1.66209, 1.81256,
612 + .05248, .02895, 43.42101, 1.91603, 1.54252,
613 + 1.21833, 1.76934, 1.91896 /
614 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
615 + .05351, .02952, 45.99080, 2.02415, 1.65276,
616 + 1.33089, 1.87836, 2.02716,
617 + .05454, .03009, 48.54052, 2.13299, 1.76402,
618 + 1.44503, 1.98807, 2.13607,
619 + .05552, .03063, 50.96871, 2.23842, 1.87179,
620 + 1.55558, 2.09432, 2.24159,
621 + .05645, .03113, 53.23462, 2.33910, 1.97429,
622 + 1.66021, 2.19574, 2.34233,
623 + .05737, .03165, 55.54774, 2.44291, 2.08036,
624 + 1.76902, 2.30030, 2.44622,
625 + .05830, .03216, 57.77484, 2.54557, 2.18462,
626 + 1.87520, 2.40368, 2.54895,
627 + .05917, .03264, 59.93281, 2.64577, 2.28686,
628 + 1.97994, 2.50455, 2.64922,
629 + .06001, .03310, 61.92249, 2.74064, 2.38311,
630 + 2.07786, 2.60006, 2.74416 /
631 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
632 + .06085, .03356, 63.95808, 2.83847, 2.48269,
633 + 2.17961, 2.69853, 2.84205,
634 + .06169, .03403, 65.93438, 2.93548, 2.58117,
635 + 2.27991, 2.79615, 2.93913,
636 + .06250, .03447, 67.81849, 3.02924, 2.67637,
637 + 2.37692, 2.89047, 3.03294,
638 + .06326, .03489, 69.61161, 3.11946, 2.76811,
639 + 2.47056, 2.98124, 3.12322,
640 + .06403, .03532, 71.37773, 3.21046, 2.86027,
641 + 2.56419, 3.07279, 3.21429 /
642 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
643 + .03821, .02099, .67467, .35041, .00000,
644 + .00000, .19291, .35244,
645 + .03904, .02143, 1.33287, .37122, .00000,
646 + .00000, .21496, .37331,
647 + .04029, .02211, 2.45015, .40662, .01317,
648 + .00000, .25216, .40882,
649 + .04124, .02263, 3.40012, .43575, .03011,
650 + .00000, .28253, .43802,
651 + .04224, .02316, 4.43867, .46925, .06949,
652 + .00000, .31729, .47159,
653 + .04310, .02365, 5.42010, .50080, .10405,
654 + .00000, .34992, .50322,
655 + .04395, .02410, 6.44423, .53305, .13978,
656 + .00000, .38316, .53553,
657 + .04486, .02461, 7.61368, .56950, .18066,
658 + .00000, .42063, .57203 /
659 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
660 + .04565, .02504, 8.67497, .60317, .21665,
661 + .00000, .45518, .60578,
662 + .04642, .02547, 9.74822, .63732, .25326,
663 + .00000, .49016, .63999,
664 + .04705, .02581, 10.64395, .66558, .28411,
665 + .00000, .51907, .66830,
666 + .04837, .02654, 12.63955, .72939, .35213,
667 + .00000, .58423, .73222,
668 + .04953, .02719, 14.22810, .78763, .41356,
669 + .07989, .64359, .79056,
670 + .05087, .02792, 16.16532, .85667, .48635,
671 + .16642, .71386, .85969,
672 + .05226, .02869, 18.26634, .93241, .56590,
673 + .25081, .79084, .93555,
674 + .05353, .02940, 20.23377, 1.00444, .64136,
675 + .33086, .86397, 1.00768 /
676 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
677 + .05483, .03012, 22.27498, 1.08039, .72080,
678 + .41466, .94101, 1.08375,
679 + .05590, .03072, 23.99579, 1.14568, .78866,
680 + .48529, 1.00718, 1.14912,
681 + .05723, .03145, 26.10682, 1.22742, .87324,
682 + .57291, 1.08996, 1.23097,
683 + .05840, .03211, 28.00805, 1.30228, .95080,
684 + .65366, 1.16572, 1.30592,
685 + .05949, .03271, 29.77564, 1.37298, 1.02408,
686 + .72999, 1.23724, 1.37672,
687 + .06087, .03347, 32.00796, 1.46469, 1.11837,
688 + .82707, 1.32996, 1.46854,
689 + .06216, .03420, 34.12702, 1.55350, 1.20978,
690 + .92148, 1.41970, 1.55746,
691 + .06340, .03488, 36.13666, 1.63914, 1.29813,
692 + 1.01310, 1.50620, 1.64321 /
693 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
694 + .06463, .03556, 38.10873, 1.72581, 1.38676,
695 + 1.10390, 1.59370, 1.72997,
696 + .06584, .03623, 40.05371, 1.81268, 1.47586,
697 + 1.19563, 1.68138, 1.81694,
698 + .06700, .03688, 41.89477, 1.89650, 1.56180,
699 + 1.28410, 1.76597, 1.90087,
700 + .06809, .03748, 43.60149, 1.97620, 1.64317,
701 + 1.36745, 1.84635, 1.98065,
702 + .06919, .03808, 45.33576, 2.05810, 1.72713,
703 + 1.45389, 1.92895, 2.06265,
704 + .07027, .03869, 46.99383, 2.13875, 1.80927,
705 + 1.53782, 2.01027, 2.14339,
706 + .07131, .03926, 48.59420, 2.21723, 1.88960,
707 + 1.62042, 2.08939, 2.22196,
708 + .07228, .03981, 50.05970, 2.29125, 1.96490,
709 + 1.69728, 2.16399, 2.29605 /
710 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
711 + .07329, .04035, 51.55364, 2.36736, 2.04262,
712 + 1.77697, 2.24069, 2.37225,
713 + .07426, .04090, 52.99555, 2.44256, 2.11918,
714 + 1.85522, 2.31646, 2.44753,
715 + .07521, .04141, 54.36406, 2.51501, 2.19296,
716 + 1.93066, 2.38945, 2.52007,
717 + .07610, .04191, 55.66139, 2.58454, 2.26388,
718 + 2.00331, 2.45950, 2.58967,
719 + .07701, .04241, 56.93127, 2.65444, 2.33486,
720 + 2.07566, 2.52989, 2.65964 /
721 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
722 + .04396, .02398, .65278, .32966, .00000,
723 + .00000, .18273, .33236,
724 + .04489, .02448, 1.28446, .34913, .00000,
725 + .00000, .20339, .35191,
726 + .04630, .02526, 2.34224, .38200, .01320,
727 + .00000, .23792, .38487,
728 + .04738, .02585, 3.23358, .40882, .02864,
729 + .00000, .26593, .41179,
730 + .04851, .02648, 4.19903, .43952, .06486,
731 + .00000, .29782, .44257,
732 + .04949, .02702, 5.10406, .46828, .09646,
733 + .00000, .32758, .47141,
734 + .05045, .02755, 6.04226, .49757, .12900,
735 + .00000, .35781, .50078,
736 + .05149, .02812, 7.10668, .53053, .16610,
737 + .00000, .39177, .53384 /
738 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
739 + .05239, .02862, 8.06653, .56088, .19863,
740 + .00000, .42294, .56427,
741 + .05326, .02911, 9.03199, .59159, .23163,
742 + .00000, .45443, .59503,
743 + .05397, .02950, 9.83439, .61692, .25936,
744 + .00000, .48039, .62044,
745 + .05547, .03034, 11.61165, .67393, .32030,
746 + .00000, .53867, .67757,
747 + .05681, .03107, 13.01359, .72574, .37511,
748 + .07051, .59155, .72949,
749 + .05831, .03192, 14.71135, .78691, .43976,
750 + .14770, .65387, .79079,
751 + .05988, .03280, 16.53932, .85372, .51013,
752 + .22256, .72186, .85773,
753 + .06132, .03361, 18.23930, .91700, .57658,
754 + .29326, .78618, .92113 /
755 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
756 + .06280, .03442, 19.99188, .98345, .64629,
757 + .36701, .85367, .98771,
758 + .06402, .03511, 21.46066, 1.04036, .70559,
759 + .42891, .91142, 1.04473,
760 + .06551, .03594, 23.25205, 1.11137, .77924,
761 + .50544, .98342, 1.11586,
762 + .06683, .03668, 24.85650, 1.17614, .84655,
763 + .57572, 1.04906, 1.18075,
764 + .06806, .03736, 26.34089, 1.23715, .90993,
765 + .64193, 1.11083, 1.24186,
766 + .06962, .03823, 28.20442, 1.31597, .99118,
767 + .72583, 1.19063, 1.32083,
768 + .07108, .03905, 29.96355, 1.39203, 1.06965,
769 + .80712, 1.26757, 1.39701,
770 + .07246, .03982, 31.62359, 1.46514, 1.14526,
771 + .88576, 1.34150, 1.47024 /
772 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
773 + .07386, .04059, 33.24278, 1.53883, 1.22080,
774 + .96337, 1.41599, 1.54405,
775 + .07522, .04136, 34.83243, 1.61248, 1.29652,
776 + 1.04156, 1.49041, 1.61782,
777 + .07652, .04207, 36.33014, 1.68332, 1.36934,
778 + 1.11674, 1.56198, 1.68877,
779 + .07773, .04276, 37.71141, 1.75046, 1.43806,
780 + 1.18734, 1.62978, 1.75601,
781 + .07897, .04344, 39.11010, 1.81929, 1.50878,
782 + 1.26036, 1.69928, 1.82496,
783 + .08019, .04411, 40.43985, 1.88684, 1.57775,
784 + 1.33105, 1.76747, 1.89261,
785 + .08135, .04476, 41.71963, 1.95244, 1.64505,
786 + 1.40045, 1.83366, 1.95831,
787 + .08244, .04537, 42.88516, 2.01410, 1.70794,
788 + 1.46483, 1.89589, 2.02006 /
789 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
790 + .08356, .04598, 44.07005, 2.07739, 1.77272,
791 + 1.53146, 1.95975, 2.08345,
792 + .08465, .04660, 45.20830, 2.13974, 1.83635,
793 + 1.59668, 2.02264, 2.14589,
794 + .08571, .04717, 46.28483, 2.19968, 1.89756,
795 + 1.65945, 2.08310, 2.20592,
796 + .08671, .04772, 47.30228, 2.25709, 1.95625,
797 + 1.71975, 2.14100, 2.26341,
798 + .08771, .04829, 48.29309, 2.31463, 2.01484,
799 + 1.77965, 2.19903, 2.32104 /
800 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
801 + .04902, .02674, .64027, .31489, .00000,
802 + .00000, .17525, .31781,
803 + .05003, .02730, 1.25253, .33333, .00000,
804 + .00000, .19479, .33633,
805 + .05160, .02816, 2.26586, .36420, .01320,
806 + .00000, .22724, .36734,
807 + .05279, .02881, 3.11320, .38928, .02749,
808 + .00000, .25344, .39251,
809 + .05403, .02951, 4.02385, .41787, .06133,
810 + .00000, .28314, .42121,
811 + .05512, .03012, 4.87170, .44454, .09072,
812 + .00000, .31076, .44798,
813 + .05618, .03071, 5.74572, .47163, .12089,
814 + .00000, .33874, .47516,
815 + .05732, .03135, 6.73198, .50204, .15518,
816 + .00000, .37007, .50566 /
817 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
818 + .05831, .03190, 7.61652, .52995, .18517,
819 + .00000, .39876, .53367,
820 + .05928, .03244, 8.50225, .55811, .21550,
821 + .00000, .42767, .56191,
822 + .06006, .03288, 9.23577, .58132, .24096,
823 + .00000, .45146, .58518,
824 + .06172, .03380, 10.85256, .63337, .29671,
825 + .00000, .50470, .63737,
826 + .06318, .03463, 12.11838, .68052, .34668,
827 + .06373, .55286, .68466,
828 + .06483, .03556, 13.64227, .73599, .40544,
829 + .13411, .60943, .74027,
830 + .06657, .03653, 15.27305, .79636, .46916,
831 + .20206, .67092, .80080,
832 + .06815, .03742, 16.78092, .85334, .52912,
833 + .26600, .72889, .85792 /
834 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
835 + .06977, .03832, 18.32712, .91301, .59181,
836 + .33248, .78952, .91772,
837 + .07111, .03908, 19.61635, .96393, .64499,
838 + .38812, .84125, .96877,
839 + .07274, .03999, 21.18117, 1.02728, .71082,
840 + .45668, .90553, 1.03225,
841 + .07420, .04081, 22.57616, 1.08491, .77080,
842 + .51946, .96398, 1.09001,
843 + .07554, .04156, 23.86139, 1.13902, .82714,
844 + .57846, 1.01883, 1.14424,
845 + .07724, .04251, 25.46663, 1.20874, .89913,
846 + .65297, 1.08947, 1.21411,
847 + .07885, .04341, 26.97482, 1.27580, .96845,
848 + .72495, 1.15736, 1.28132,
849 + .08037, .04426, 28.39218, 1.34007, 1.03506,
850 + .79439, 1.22243, 1.34573 /
851 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
852 + .08188, .04510, 29.76715, 1.40467, 1.10140,
853 + .86271, 1.28777, 1.41046,
854 + .08337, .04593, 31.11196, 1.46904, 1.16772,
855 + .93136, 1.35289, 1.47497,
856 + .08478, .04672, 32.37407, 1.53081, 1.23135,
857 + .99720, 1.41535, 1.53686,
858 + .08612, .04746, 33.53260, 1.58920, 1.29122,
859 + 1.05886, 1.47437, 1.59537,
860 + .08746, .04821, 34.70221, 1.64894, 1.35273,
861 + 1.12252, 1.53474, 1.65523,
862 + .08878, .04894, 35.80908, 1.70740, 1.41253,
863 + 1.18395, 1.59381, 1.71379,
864 + .09004, .04964, 36.87180, 1.76406, 1.47079,
865 + 1.24418, 1.65105, 1.77056,
866 + .09124, .05030, 37.83477, 1.81717, 1.52507,
867 + 1.29990, 1.70470, 1.82379 /
868 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
869 + .09244, .05097, 38.81145, 1.87160, 1.58090,
870 + 1.35745, 1.75967, 1.87833,
871 + .09363, .05163, 39.74577, 1.92510, 1.63562,
872 + 1.41368, 1.81369, 1.93193,
873 + .09477, .05225, 40.62676, 1.97644, 1.68814,
874 + 1.46767, 1.86552, 1.98337,
875 + .09586, .05285, 41.45718, 2.02553, 1.73844,
876 + 1.51948, 1.91507, 2.03255,
877 + .09695, .05346, 42.26194, 2.07460, 1.78850,
878 + 1.57080, 1.96461, 2.08172 /
879 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
880 + .06878, .03770, .61708, .27400, .00000,
881 + .00000, .15521, .27856,
882 + .07015, .03848, 1.17401, .28916, .00000,
883 + .00000, .17131, .29382,
884 + .07225, .03967, 2.05897, .31408, .01317,
885 + .00000, .19758, .31894,
886 + .07385, .04058, 2.78008, .33405, .02413,
887 + .00000, .21850, .33906,
888 + .07553, .04154, 3.53483, .35657, .05117,
889 + .00000, .24198, .36173,
890 + .07701, .04237, 4.22136, .37734, .07433,
891 + .00000, .26357, .38264,
892 + .07844, .04319, 4.91580, .39826, .09788,
893 + .00000, .28525, .40370,
894 + .07998, .04407, 5.68513, .42156, .12444,
895 + .00000, .30934, .42714 /
896 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
897 + .08132, .04484, 6.36262, .44276, .14742,
898 + .00000, .33120, .44845,
899 + .08262, .04558, 7.03081, .46397, .17051,
900 + .00000, .35307, .46980,
901 + .08367, .04618, 7.57753, .48137, .18977,
902 + .00000, .37096, .48728,
903 + .08591, .04746, 8.76284, .52002, .23156,
904 + .00000, .41066, .52615,
905 + .08787, .04857, 9.66734, .55465, .26860,
906 + .04532, .44617, .56096,
907 + .09009, .04983, 10.73361, .59497, .31168,
908 + .09755, .48744, .60148,
909 + .09241, .05115, 11.85098, .63832, .35786,
910 + .14723, .53177, .64506,
911 + .09452, .05234, 12.86371, .67878, .40082,
912 + .19348, .57310, .68571 /
913 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
914 + .09666, .05355, 13.88318, .72070, .44526,
915 + .24104, .61586, .72783,
916 + .09845, .05456, 14.71860, .75612, .48258,
917 + .28044, .65198, .76342,
918 + .10060, .05578, 15.71529, .79973, .52830,
919 + .32850, .69641, .80723,
920 + .10253, .05685, 16.58945, .83902, .56956,
921 + .37209, .73642, .84670,
922 + .10430, .05785, 17.38326, .87559, .60798,
923 + .41270, .77364, .88343,
924 + .10653, .05910, 18.35689, .92220, .65653,
925 + .46344, .82106, .93025,
926 + .10863, .06028, 19.25642, .96659, .70282,
927 + .51197, .86620, .97483,
928 + .11061, .06138, 20.08939, 1.00873, .74692,
929 + .55840, .90904, 1.01716 /
930 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
931 + .11258, .06247, 20.88203, 1.05063, .79034,
932 + .60354, .95161, 1.05924,
933 + .11451, .06354, 21.64662, 1.09203, .83339,
934 + .64855, .99366, 1.10081,
935 + .11633, .06456, 22.35388, 1.13141, .87433,
936 + .69135, 1.03365, 1.14035,
937 + .11805, .06551, 22.99223, 1.16828, .91250,
938 + .73105, 1.07109, 1.17738,
939 + .11978, .06646, 23.62996, 1.20575, .95146,
940 + .77180, 1.10912, 1.21502,
941 + .12146, .06741, 24.22217, 1.24206, .98895,
942 + .81071, 1.14597, 1.25148,
943 + .12308, .06829, 24.78599, 1.27704, 1.02529,
944 + .84867, 1.18148, 1.28661,
945 + .12460, .06913, 25.28711, 1.30954, 1.05883,
946 + .88345, 1.21444, 1.31923 /
947 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
948 + .12614, .06997, 25.79127, 1.34264, 1.09313,
949 + .91920, 1.24804, 1.35248,
950 + .12765, .07080, 26.26561, 1.37491, 1.12648,
951 + .95384, 1.28078, 1.38488,
952 + .12909, .07158, 26.70769, 1.40568, 1.15829,
953 + .98690, 1.31200, 1.41579,
954 + .13046, .07233, 27.12024, 1.43493, 1.18858,
955 + 1.01844, 1.34167, 1.44516,
956 + .13183, .07309, 27.51242, 1.46392, 1.21848,
957 + 1.04943, 1.37108, 1.47427 /
958 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
959 + .09660, .05371, .64373, .24038, .00000,
960 + .00000, .13884, .24735,
961 + .09844, .05478, 1.14894, .25220, .00000,
962 + .00000, .15147, .25936,
963 + .10127, .05644, 1.91455, .27149, .01266,
964 + .00000, .17191, .27891,
965 + .10342, .05769, 2.51977, .28680, .02061,
966 + .00000, .18805, .29445,
967 + .10569, .05901, 3.13398, .30395, .04166,
968 + .00000, .20604, .31183,
969 + .10767, .06015, 3.67759, .31964, .05944,
970 + .00000, .22243, .32770,
971 + .10959, .06126, 4.21527, .33531, .07738,
972 + .00000, .23876, .34356,
973 + .11166, .06246, 4.79821, .35262, .09745,
974 + .00000, .25676, .36108 /
975 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
976 + .11346, .06350, 5.30062, .36823, .11462,
977 + .00000, .27297, .37687,
978 + .11522, .06450, 5.78727, .38375, .13175,
979 + .00000, .28905, .39256,
980 + .11661, .06531, 6.17980, .39640, .14596,
981 + .00000, .30214, .40535,
982 + .11960, .06702, 7.01437, .42424, .17648,
983 + .00000, .33089, .43347,
984 + .12219, .06850, 7.63232, .44888, .20320,
985 + .03028, .35631, .45837,
986 + .12512, .07016, 8.34090, .47722, .23391,
987 + .06809, .38550, .48700,
988 + .12818, .07188, 9.06456, .50729, .26639,
989 + .10349, .41643, .51737,
990 + .13094, .07344, 9.70437, .53499, .29622,
991 + .13602, .44492, .54534 /
992 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
993 + .13374, .07501, 10.33382, .56334, .32671,
994 + .16907, .47403, .57395,
995 + .13606, .07630, 10.83833, .58702, .35201,
996 + .19613, .49834, .59786,
997 + .13886, .07786, 11.42732, .61582, .38264,
998 + .22875, .52787, .62691,
999 + .14133, .07924, 11.93321, .64145, .40998,
1000 + .25804, .55416, .65278,
1001 + .14360, .08049, 12.38397, .66508, .43517,
1002 + .28504, .57837, .67662,
1003 + .14645, .08207, 12.92352, .69481, .46662,
1004 + .31837, .60884, .70662,
1005 + .14913, .08353, 13.41099, .72277, .49624,
1006 + .34987, .63747, .73484,
1007 + .15164, .08491, 13.85368, .74903, .52417,
1008 + .37971, .66437, .76133 /
1009 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
1010 + .15412, .08627, 14.26343, .77479, .55130,
1011 + .40835, .69075, .78731,
1012 + .15654, .08758, 14.65119, .79997, .57795,
1013 + .43664, .71653, .81273,
1014 + .15883, .08882, 15.00249, .82368, .60303,
1015 + .46326, .74081, .83665,
1016 + .16096, .08998, 15.31173, .84562, .62615,
1017 + .48770, .76327, .85878,
1018 + .16311, .09114, 15.61638, .86774, .64956,
1019 + .51258, .78590, .88108,
1020 + .16520, .09226, 15.89044, .88889, .67183,
1021 + .53608, .80757, .90243,
1022 + .16719, .09333, 16.14846, .90914, .69327,
1023 + .55886, .82829, .92286,
1024 + .16905, .09432, 16.37027, .92771, .71281,
1025 + .57948, .84731, .94159 /
1026 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
1027 + .17093, .09532, 16.59092, .94652, .73270,
1028 + .60056, .86656, .96057,
1029 + .17277, .09630, 16.79276, .96465, .75182,
1030 + .62078, .88513, .97886,
1031 + .17451, .09723, 16.97735, .98179, .76993,
1032 + .63994, .90270, .99616,
1033 + .17617, .09810, 17.14675, .99797, .78706,
1034 + .65810, .91927, 1.01248,
1035 + .17783, .09898, 17.30161, 1.01384, .80378,
1036 + .67576, .93552, 1.02849 /
1037 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
1038 + .11778, .06616, .69745, .22286, .00000,
1039 + .00000, .13025, .23179,
1040 + .11999, .06746, 1.17218, .23277, .00000,
1041 + .00000, .14091, .24195,
1042 + .12337, .06946, 1.86943, .24896, .01180,
1043 + .00000, .15817, .25847,
1044 + .12594, .07097, 2.40890, .26181, .01816,
1045 + .00000, .17179, .27159,
1046 + .12863, .07253, 2.94557, .27617, .03611,
1047 + .00000, .18693, .28623,
1048 + .13098, .07390, 3.41195, .28923, .05115,
1049 + .00000, .20064, .29953,
1050 + .13326, .07523, 3.86627, .30223, .06624,
1051 + .00000, .21428, .31276,
1052 + .13572, .07664, 4.35167, .31654, .08305,
1053 + .00000, .22923, .32732 /
1054 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
1055 + .13785, .07787, 4.76405, .32937, .09734,
1056 + .00000, .24262, .34037,
1057 + .13992, .07906, 5.15853, .34206, .11153,
1058 + .00000, .25585, .35328,
1059 + .14158, .08000, 5.47364, .35237, .12326,
1060 + .00000, .26658, .36375,
1061 + .14508, .08199, 6.13486, .37493, .14828,
1062 + .00000, .29000, .38665,
1063 + .14813, .08371, 6.61475, .39473, .17003,
1064 + .02275, .31055, .40676,
1065 + .15154, .08562, 7.15297, .41732, .19482,
1066 + .05364, .33395, .42969,
1067 + .15508, .08759, 7.69272, .44108, .22080,
1068 + .08224, .35855, .45379,
1069 + .15828, .08938, 8.16147, .46277, .24447,
1070 + .10831, .38098, .47579 /
1071 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
1072 + .16151, .09117, 8.61487, .48478, .26845,
1073 + .13459, .40373, .49811,
1074 + .16418, .09262, 8.97240, .50301, .28820,
1075 + .15594, .42256, .51659,
1076 + .16739, .09438, 9.38260, .52498, .31192,
1077 + .18149, .44526, .53889,
1078 + .17022, .09592, 9.72932, .54442, .33292,
1079 + .20425, .46532, .55858,
1080 + .17279, .09733, 10.03391, .56218, .35216,
1081 + .22511, .48366, .57660,
1082 + .17603, .09908, 10.39124, .58433, .37595,
1083 + .25062, .50652, .59905,
1084 + .17905, .10070, 10.70833, .60498, .39819,
1085 + .27457, .52783, .61997,
1086 + .18188, .10221, 10.99175, .62424, .41900,
1087 + .29709, .54770, .63948 /
1088 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
1089 + .18466, .10369, 11.24761, .64293, .43904,
1090 + .31851, .56700, .65844,
1091 + .18737, .10513, 11.48582, .66108, .45858,
1092 + .33953, .58574, .67683,
1093 + .18992, .10648, 11.69758, .67803, .47685,
1094 + .35920, .60324, .69401,
1095 + .19229, .10773, 11.87936, .69358, .49356,
1096 + .37711, .61930, .70977,
1097 + .19467, .10897, 12.05620, .70917, .51039,
1098 + .39526, .63540, .72557,
1099 + .19698, .11017, 12.21036, .72394, .52625,
1100 + .41224, .65066, .74054,
1101 + .19917, .11131, 12.35420, .73801, .54146,
1102 + .42865, .66520, .75479,
1103 + .20120, .11237, 12.47323, .75078, .55521,
1104 + .44339, .67841, .76775 /
1105 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
1106 + .20325, .11343, 12.59041, .76366, .56913,
1107 + .45839, .69174, .78079,
1108 + .20525, .11447, 12.69388, .77597, .58243,
1109 + .47268, .70448, .79328,
1110 + .20716, .11544, 12.78634, .78754, .59495,
1111 + .48616, .71646, .80501,
1112 + .20896, .11636, 12.86958, .79841, .60673,
1113 + .49887, .72771, .81603,
1114 + .21074, .11727, 12.94166, .80895, .61814,
1115 + .51114, .73864, .82672 /
1116 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
1117 + .13554, .07670, .76244, .21103, .00000,
1118 + .00000, .12421, .22165,
1119 + .13806, .07821, 1.21271, .21966, .00000,
1120 + .00000, .13357, .23056,
1121 + .14190, .08049, 1.86050, .23379, .01073,
1122 + .00000, .14872, .24511,
1123 + .14483, .08220, 2.35279, .24500, .01608,
1124 + .00000, .16068, .25663,
1125 + .14788, .08398, 2.83504, .25754, .03201,
1126 + .00000, .17397, .26949,
1127 + .15053, .08552, 3.24828, .26891, .04529,
1128 + .00000, .18597, .28114,
1129 + .15310, .08701, 3.64605, .28018, .05855,
1130 + .00000, .19786, .29269,
1131 + .15588, .08859, 4.06619, .29256, .07328,
1132 + .00000, .21087, .30535 /
1133 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
1134 + .15827, .08995, 4.41908, .30362, .08574,
1135 + .00000, .22246, .31665,
1136 + .16059, .09127, 4.75334, .31451, .09806,
1137 + .00000, .23388, .32780,
1138 + .16244, .09232, 5.01827, .32334, .10823,
1139 + .00000, .24312, .33680,
1140 + .16637, .09453, 5.56848, .34255, .12979,
1141 + .00000, .26318, .35642,
1142 + .16975, .09641, 5.96139, .35931, .14842,
1143 + .01787, .28067, .37352,
1144 + .17353, .09849, 6.39348, .37830, .16952,
1145 + .04443, .30047, .39288,
1146 + .17744, .10064, 6.82018, .39813, .19148,
1147 + .06882, .32112, .41309,
1148 + .18096, .10257, 7.18512, .41610, .21136,
1149 + .09092, .33981, .43141 /
1150 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
1151 + .18451, .10449, 7.53297, .43422, .23136,
1152 + .11305, .35865, .44986,
1153 + .18742, .10607, 7.80331, .44911, .24773,
1154 + .13091, .37415, .46503,
1155 + .19092, .10794, 8.10875, .46695, .26726,
1156 + .15217, .39271, .48321,
1157 + .19399, .10958, 8.36323, .48261, .28446,
1158 + .17100, .40900, .49916,
1159 + .19679, .11106, 8.58381, .49686, .30013,
1160 + .18816, .42381, .51366,
1161 + .20028, .11291, 8.83762, .51447, .31936,
1162 + .20902, .44213, .53160,
1163 + .20355, .11462, 9.05895, .53078, .33723,
1164 + .22848, .45910, .54820,
1165 + .20658, .11620, 9.25376, .54588, .35385,
1166 + .24668, .47483, .56358 /
1167 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
1168 + .20956, .11774, 9.42498, .56043, .36973,
1169 + .26387, .48997, .57838,
1170 + .21244, .11924, 9.58172, .57446, .38515,
1171 + .28067, .50458, .59267,
1172 + .21515, .12063, 9.71829, .58748, .39946,
1173 + .29628, .51817, .60593,
1174 + .21767, .12191, 9.83214, .59934, .41248,
1175 + .31042, .53053, .61800,
1176 + .22018, .12320, 9.94142, .61116, .42553,
1177 + .32469, .54286, .63004,
1178 + .22260, .12442, 10.03277, .62227, .43775,
1179 + .33797, .55446, .64134,
1180 + .22491, .12558, 10.11715, .63281, .44942,
1181 + .35074, .56548, .65208,
1182 + .22704, .12666, 10.18327, .64231, .45990,
1183 + .36215, .57541, .66174 /
1184 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
1185 + .22919, .12773, 10.24755, .65183, .47047,
1186 + .37372, .58537, .67145,
1187 + .23127, .12876, 10.30130, .66087, .48049,
1188 + .38468, .59484, .68065,
1189 + .23326, .12974, 10.34762, .66932, .48990,
1190 + .39497, .60370, .68926,
1191 + .23512, .13067, 10.38800, .67721, .49871,
1192 + .40465, .61198, .69730,
1193 + .23696, .13158, 10.41939, .68481, .50719,
1194 + .41393, .61996, .70505 /
1195 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
1196 + .15103, .08596, .83229, .20177, .00000,
1197 + .00000, .11933, .21383,
1198 + .15384, .08764, 1.26089, .20947, .00000,
1199 + .00000, .12771, .22186,
1200 + .15811, .09018, 1.86907, .22209, .00954,
1201 + .00000, .14132, .23495,
1202 + .16133, .09206, 2.32392, .23214, .01419,
1203 + .00000, .15209, .24535,
1204 + .16470, .09402, 2.76375, .24336, .02866,
1205 + .00000, .16404, .25695,
1206 + .16762, .09569, 3.13624, .25351, .04067,
1207 + .00000, .17482, .26741,
1208 + .17046, .09732, 3.49123, .26357, .05263,
1209 + .00000, .18546, .27777,
1210 + .17349, .09904, 3.86257, .27455, .06588,
1211 + .00000, .19710, .28909 /
1212 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
1213 + .17611, .10052, 4.17142, .28435, .07704,
1214 + .00000, .20742, .29916,
1215 + .17865, .10193, 4.46154, .29397, .08805,
1216 + .00000, .21755, .30904,
1217 + .18067, .10307, 4.69000, .30174, .09709,
1218 + .00000, .22573, .31702,
1219 + .18493, .10543, 5.16010, .31858, .11621,
1220 + .00000, .24342, .33429,
1221 + .18858, .10744, 5.49139, .33318, .13264,
1222 + .01433, .25874, .34927,
1223 + .19266, .10965, 5.84871, .34964, .15116,
1224 + .03784, .27600, .36613,
1225 + .19687, .11192, 6.19678, .36671, .17032,
1226 + .05929, .29390, .38362,
1227 + .20065, .11394, 6.49027, .38209, .18754,
1228 + .07861, .31001, .39936 /
1229 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
1230 + .20442, .11596, 6.76619, .39748, .20479,
1231 + .09786, .32613, .41511,
1232 + .20753, .11760, 6.97770, .41009, .21883,
1233 + .11332, .33933, .42801,
1234 + .21124, .11955, 7.21321, .42508, .23550,
1235 + .13163, .35504, .44335,
1236 + .21449, .12125, 7.40662, .43815, .25009,
1237 + .14776, .36874, .45672,
1238 + .21746, .12278, 7.57197, .44997, .26333,
1239 + .16241, .38114, .46881,
1240 + .22114, .12468, 7.75839, .46451, .27948,
1241 + .18011, .39639, .48367,
1242 + .22455, .12642, 7.91797, .47788, .29440,
1243 + .19654, .41043, .49735,
1244 + .22773, .12804, 8.05612, .49019, .30820,
1245 + .21183, .42335, .50993 /
1246 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
1247 + .23083, .12960, 8.17373, .50194, .32131,
1248 + .22619, .43571, .52195,
1249 + .23384, .13111, 8.27931, .51323, .33398,
1250 + .24016, .44759, .53349,
1251 + .23664, .13251, 8.36911, .52364, .34568,
1252 + .25309, .45854, .54413,
1253 + .23924, .13380, 8.44115, .53305, .35625,
1254 + .26474, .46847, .55375,
1255 + .24184, .13509, 8.50911, .54239, .36682,
1256 + .27646, .47832, .56331,
1257 + .24433, .13630, 8.56226, .55109, .37666,
1258 + .28730, .48752, .57221,
1259 + .24670, .13746, 8.61064, .55932, .38602,
1260 + .29769, .49623, .58063,
1261 + .24887, .13852, 8.64521, .56666, .39437,
1262 + .30693, .50401, .58814 /
1263 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
1264 + .25107, .13958, 8.67809, .57401, .40276,
1265 + .31627, .51181, .59566,
1266 + .25319, .14059, 8.70266, .58094, .41069,
1267 + .32508, .51916, .60275,
1268 + .25520, .14156, 8.72209, .58737, .41809,
1269 + .33331, .52601, .60933,
1270 + .25709, .14245, 8.73767, .59336, .42500,
1271 + .34103, .53239, .61547,
1272 + .25896, .14334, 8.74585, .59906, .43161,
1273 + .34840, .53848, .62130 /
1274 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
1275 + .17784, .10200, .96872, .18778, .00000,
1276 + .00000, .11160, .20252,
1277 + .18116, .10399, 1.36041, .19416, .00000,
1278 + .00000, .11864, .20930,
1279 + .18617, .10694, 1.90529, .20467, .00709,
1280 + .00000, .13014, .22041,
1281 + .18991, .10909, 2.30138, .21306, .01081,
1282 + .00000, .13925, .22925,
1283 + .19381, .11131, 2.67599, .22246, .02329,
1284 + .00000, .14938, .23907,
1285 + .19718, .11321, 2.98727, .23091, .03356,
1286 + .00000, .15846, .24790,
1287 + .20043, .11503, 3.27896, .23925, .04374,
1288 + .00000, .16740, .25660,
1289 + .20389, .11695, 3.57918, .24832, .05495,
1290 + .00000, .17711, .26606 /
1291 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
1292 + .20687, .11859, 3.82471, .25636, .06432,
1293 + .00000, .18569, .27440,
1294 + .20974, .12017, 4.05205, .26421, .07352,
1295 + .00000, .19405, .28255,
1296 + .21203, .12140, 4.22912, .27051, .08105,
1297 + .00000, .20077, .28910,
1298 + .21681, .12397, 4.58777, .28410, .09685,
1299 + .00000, .21522, .30317,
1300 + .22088, .12614, 4.83483, .29576, .11031,
1301 + .00937, .22761, .31522,
1302 + .22539, .12850, 5.09098, .30877, .12533,
1303 + .02874, .24141, .32867,
1304 + .23002, .13091, 5.33399, .32209, .14070,
1305 + .04623, .25558, .34243,
1306 + .23416, .13304, 5.53338, .33396, .15441,
1307 + .06184, .26820, .35469 /
1308 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
1309 + .23827, .13514, 5.71584, .34571, .16800,
1310 + .07725, .28070, .36683,
1311 + .24163, .13683, 5.85150, .35522, .17896,
1312 + .08953, .29082, .37664,
1313 + .24563, .13884, 5.99785, .36642, .19185,
1314 + .10395, .30276, .38820,
1315 + .24911, .14058, 6.11440, .37610, .20304,
1316 + .11655, .31307, .39817,
1317 + .25226, .14213, 6.21111, .38476, .21310,
1318 + .12790, .32231, .40709,
1319 + .25615, .14404, 6.31460, .39526, .22526,
1320 + .14150, .33354, .41792,
1321 + .25974, .14578, 6.39911, .40480, .23638,
1322 + .15402, .34375, .42775,
1323 + .26307, .14738, 6.46912, .41349, .24659,
1324 + .16557, .35308, .43672 /
1325 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
1326 + .26628, .14891, 6.52307, .42169, .25617,
1327 + .17632, .36189, .44516,
1328 + .26939, .15038, 6.56858, .42947, .26536,
1329 + .18671, .37025, .45317,
1330 + .27228, .15174, 6.60407, .43654, .27377,
1331 + .19624, .37791, .46047,
1332 + .27494, .15296, 6.62797, .44286, .28129,
1333 + .20475, .38474, .46698,
1334 + .27758, .15420, 6.64870, .44908, .28877,
1335 + .21327, .39149, .47339,
1336 + .28009, .15534, 6.65926, .45478, .29564,
1337 + .22107, .39768, .47926,
1338 + .28248, .15643, 6.66786, .46013, .30214,
1339 + .22852, .40352, .48478,
1340 + .28466, .15741, 6.66788, .46481, .30787,
1341 + .23506, .40865, .48961 /
1342 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
1343 + .28685, .15840, 6.66658, .46947, .31361,
1344 + .24166, .41376, .49442,
1345 + .28895, .15933, 6.65980, .47378, .31896,
1346 + .24782, .41852, .49887,
1347 + .29092, .16020, 6.65065, .47776, .32394,
1348 + .25356, .42290, .50296,
1349 + .29278, .16102, 6.64012, .48142, .32854,
1350 + .25890, .42696, .50674,
1351 + .29460, .16181, 6.62431, .48483, .33289,
1352 + .26395, .43076, .51027 /
1353 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
1354 + .21135, .12204, 1.15871, .17201, .00000,
1355 + .00000, .10232, .19026,
1356 + .21533, .12437, 1.50334, .17715, .00000,
1357 + .00000, .10815, .19592,
1358 + .22130, .12778, 1.97389, .18571, .00347,
1359 + .00000, .11772, .20523,
1360 + .22571, .13024, 2.30268, .19258, .00644,
1361 + .00000, .12531, .21261,
1362 + .23024, .13274, 2.60510, .20024, .01705,
1363 + .00000, .13373, .22080,
1364 + .23413, .13485, 2.85057, .20708, .02571,
1365 + .00000, .14122, .22808,
1366 + .23786, .13685, 3.07582, .21380, .03422,
1367 + .00000, .14856, .23520,
1368 + .24182, .13896, 3.30291, .22106, .04353,
1369 + .00000, .15648, .24288 /
1370 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
1371 + .24521, .14074, 3.48471, .22742, .05125,
1372 + .00000, .16340, .24960,
1373 + .24844, .14242, 3.64988, .23358, .05878,
1374 + .00000, .17010, .25610,
1375 + .25100, .14375, 3.77666, .23852, .06489,
1376 + .00000, .17546, .26128,
1377 + .25634, .14648, 4.02806, .24901, .07762,
1378 + .00000, .18685, .27230,
1379 + .26081, .14873, 4.19598, .25789, .08832,
1380 + .00460, .19649, .28161,
1381 + .26573, .15116, 4.35860, .26766, .10014,
1382 + .02016, .20711, .29182,
1383 + .27073, .15360, 4.50655, .27751, .11208,
1384 + .03402, .21784, .30213,
1385 + .27515, .15575, 4.62233, .28617, .12260,
1386 + .04625, .22726, .31114 /
1387 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
1388 + .27953, .15783, 4.72316, .29461, .13290,
1389 + .05821, .23647, .31994,
1390 + .28307, .15951, 4.79408, .30132, .14111,
1391 + .06763, .24382, .32695,
1392 + .28724, .16145, 4.86547, .30912, .15066,
1393 + .07859, .25237, .33507,
1394 + .29084, .16311, 4.91838, .31574, .15885,
1395 + .08807, .25965, .34196,
1396 + .29409, .16459, 4.95903, .32160, .16614,
1397 + .09652, .26610, .34805,
1398 + .29807, .16638, 4.99627, .32855, .17484,
1399 + .10655, .27382, .35530,
1400 + .30171, .16799, 5.02173, .33477, .18271,
1401 + .11568, .28073, .36176,
1402 + .30504, .16946, 5.03890, .34035, .18984,
1403 + .12402, .28695, .36757 /
1404 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
1405 + .30824, .17084, 5.04491, .34547, .19645,
1406 + .13170, .29271, .37288,
1407 + .31130, .17214, 5.04576, .35025, .20270,
1408 + .13903, .29811, .37785,
1409 + .31413, .17334, 5.04135, .35454, .20837,
1410 + .14572, .30296, .38230,
1411 + .31669, .17441, 5.03086, .35826, .21337,
1412 + .15162, .30722, .38618,
1413 + .31923, .17546, 5.01836, .36190, .21829,
1414 + .15748, .31138, .38995,
1415 + .32163, .17644, 4.99958, .36512, .22275,
1416 + .16278, .31512, .39328,
1417 + .32389, .17735, 4.98106, .36811, .22694,
1418 + .16781, .31859, .39638,
1419 + .32594, .17816, 4.95834, .37064, .23057,
1420 + .17218, .32157, .39901 /
1421 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
1422 + .32798, .17896, 4.93489, .37312, .23418,
1423 + .17655, .32452, .40159,
1424 + .32991, .17970, 4.90825, .37535, .23750,
1425 + .18061, .32718, .40390,
1426 + .33173, .18039, 4.88132, .37735, .24055,
1427 + .18433, .32961, .40598,
1428 + .33342, .18104, 4.85487, .37916, .24334,
1429 + .18779, .33181, .40786,
1430 + .33506, .18164, 4.82510, .38076, .24593,
1431 + .19100, .33382, .40953 /
1432 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
1433 + .25747, .14908, 1.42081, .15233, .00000,
1434 + .00000, .09008, .17606,
1435 + .26241, .15181, 1.69827, .15635, .00000,
1436 + .00000, .09486, .18074,
1437 + .26962, .15572, 2.07186, .16307, -.00191,
1438 + .00000, .10268, .18832,
1439 + .27483, .15846, 2.31631, .16842, .00055,
1440 + .00000, .10883, .19424,
1441 + .28013, .16118, 2.53167, .17435, .00936,
1442 + .00000, .11558, .20077,
1443 + .28462, .16346, 2.70054, .17957, .01646,
1444 + .00000, .12153, .20645,
1445 + .28888, .16557, 2.85082, .18465, .02335,
1446 + .00000, .12726, .21193,
1447 + .29336, .16776, 2.99766, .19005, .03080,
1448 + .00000, .13337, .21778 /
1449 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
1450 + .29714, .16960, 3.11098, .19472, .03690,
1451 + .00000, .13864, .22279,
1452 + .30073, .17132, 3.21068, .19917, .04278,
1453 + .00000, .14368, .22757,
1454 + .30355, .17265, 3.28540, .20270, .04752,
1455 + .00000, .14768, .23134,
1456 + .30935, .17535, 3.42835, .21010, .05725,
1457 + .00000, .15602, .23922,
1458 + .31411, .17751, 3.51866, .21621, .06529,
1459 + -.00005, .16295, .24569,
1460 + .31928, .17981, 3.59155, .22279, .07402,
1461 + .01175, .17040, .25262,
1462 + .32445, .18206, 3.65076, .22925, .08269,
1463 + .02212, .17777, .25944,
1464 + .32897, .18400, 3.69070, .23477, .09019,
1465 + .03114, .18411, .26526 /
1466 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
1467 + .33336, .18583, 3.71948, .24002, .09741,
1468 + .03981, .19017, .27077,
1469 + .33687, .18728, 3.73423, .24410, .10308,
1470 + .04656, .19490, .27505,
1471 + .34096, .18892, 3.74232, .24869, .10955,
1472 + .05429, .20028, .27985,
1473 + .34445, .19030, 3.74278, .25250, .11502,
1474 + .06089, .20477, .28382,
1475 + .34754, .19150, 3.73822, .25578, .11983,
1476 + .06672, .20867, .28724,
1477 + .35126, .19291, 3.72337, .25954, .12544,
1478 + .07351, .21319, .29114,
1479 + .35462, .19414, 3.70379, .26277, .13044,
1480 + .07961, .21713, .29449,
1481 + .35766, .19524, 3.68174, .26558, .13489,
1482 + .08511, .22061, .29740 /
1483 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
1484 + .36051, .19623, 3.65328, .26803, .13893,
1485 + .09009, .22370, .29992,
1486 + .36320, .19715, 3.62296, .27023, .14269,
1487 + .09480, .22652, .30217,
1488 + .36565, .19797, 3.59163, .27213, .14604,
1489 + .09903, .22898, .30411,
1490 + .36783, .19866, 3.55876, .27366, .14893,
1491 + .10270, .23106, .30569,
1492 + .36997, .19932, 3.52514, .27511, .15174,
1493 + .10632, .23304, .30715,
1494 + .37193, .19991, 3.48873, .27627, .15422,
1495 + .10953, .23471, .30833,
1496 + .37378, .20045, 3.45432, .27732, .15653,
1497 + .11255, .23626, .30938,
1498 + .37539, .20090, 3.41906, .27810, .15847,
1499 + .11513, .23748, .31015 /
1500 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
1501 + .37699, .20133, 3.38370, .27883, .16037,
1502 + .11769, .23866, .31086,
1503 + .37849, .20170, 3.34731, .27940, .16208,
1504 + .12002, .23966, .31140,
1505 + .37985, .20204, 3.31220, .27985, .16361,
1506 + .12215, .24053, .31183,
1507 + .38111, .20234, 3.27876, .28021, .16500,
1508 + .12409, .24128, .31216,
1509 + .38229, .20259, 3.24350, .28043, .16624,
1510 + .12587, .24189, .31234 /
1511 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
1512 + .29573, .17095, 1.62065, .13628, .00000,
1513 + .00000, .07984, .16461,
1514 + .30145, .17394, 1.84014, .13977, .00000,
1515 + .00000, .08413, .16877,
1516 + .30971, .17810, 2.13512, .14548, -.00626,
1517 + .00000, .09102, .17539,
1518 + .31552, .18093, 2.31442, .14993, -.00394,
1519 + .00000, .09633, .18045,
1520 + .32137, .18370, 2.46481, .15482, .00379,
1521 + .00000, .10210, .18589,
1522 + .32626, .18598, 2.57860, .15903, .00994,
1523 + .00000, .10707, .19055,
1524 + .33085, .18808, 2.67653, .16307, .01584,
1525 + .00000, .11181, .19496,
1526 + .33562, .19022, 2.76885, .16731, .02213,
1527 + .00000, .11679, .19958 /
1528 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
1529 + .33960, .19196, 2.83686, .17091, .02723,
1530 + .00000, .12102, .20348,
1531 + .34335, .19358, 2.89418, .17429, .03210,
1532 + .00000, .12502, .20713,
1533 + .34628, .19482, 2.93581, .17695, .03599,
1534 + .00000, .12815, .20999,
1535 + .35220, .19730, 3.01118, .18241, .04388,
1536 + .00000, .13460, .21581,
1537 + .35698, .19921, 3.05445, .18681, .05030,
1538 + -.00266, .13983, .22047,
1539 + .36207, .20120, 3.07494, .19142, .05717,
1540 + .00682, .14537, .22533,
1541 + .36710, .20309, 3.08408, .19584, .06388,
1542 + .01506, .15072, .22995,
1543 + .37141, .20467, 3.08250, .19950, .06960,
1544 + .02213, .15521, .23376 /
1545 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
1546 + .37555, .20614, 3.07287, .20288, .07503,
1547 + .02885, .15940, .23726,
1548 + .37879, .20724, 3.05881, .20543, .07922,
1549 + .03401, .16261, .23988,
1550 + .38250, .20846, 3.03529, .20819, .08396,
1551 + .03988, .16616, .24270,
1552 + .38561, .20946, 3.01035, .21039, .08790,
1553 + .04483, .16905, .24494,
1554 + .38833, .21028, 2.98452, .21223, .09132,
1555 + .04915, .17149, .24678,
1556 + .39156, .21120, 2.94632, .21420, .09525,
1557 + .05412, .17423, .24876,
1558 + .39440, .21197, 2.90742, .21582, .09869,
1559 + .05854, .17655, .25033,
1560 + .39691, .21263, 2.86922, .21714, .10170,
1561 + .06248, .17852, .25162 /
1562 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
1563 + .39921, .21316, 2.82730, .21818, .10438,
1564 + .06600, .18019, .25259,
1565 + .40134, .21362, 2.78541, .21904, .10683,
1566 + .06928, .18165, .25337,
1567 + .40324, .21399, 2.74470, .21968, .10898,
1568 + .07219, .18287, .25395,
1569 + .40487, .21427, 2.70475, .22011, .11080,
1570 + .07470, .18381, .25428,
1571 + .40645, .21453, 2.66485, .22047, .11255,
1572 + .07715, .18468, .25452,
1573 + .40784, .21469, 2.62394, .22062, .11404,
1574 + .07928, .18534, .25456,
1575 + .40913, .21483, 2.58573, .22073, .11541,
1576 + .08128, .18591, .25455,
1577 + .41020, .21489, 2.54829, .22066, .11653,
1578 + .08296, .18628, .25437 /
1579 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
1580 + .41126, .21494, 2.51111, .22056, .11761,
1581 + .08460, .18661, .25416,
1582 + .41218, .21494, 2.47388, .22035, .11855,
1583 + .08608, .18681, .25381,
1584 + .41302, .21491, 2.43850, .22007, .11938,
1585 + .08742, .18694, .25341,
1586 + .41376, .21486, 2.40522, .21978, .12011,
1587 + .08862, .18701, .25298,
1588 + .41440, .21476, 2.37104, .21935, .12072,
1589 + .08970, .18697, .25244 /
1590 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
1591 + .36035, .20555, 1.84988, .11153, .00000,
1592 + .00000, .06429, .14812,
1593 + .36717, .20863, 1.97554, .11446, .00000,
1594 + .00000, .06813, .15161,
1595 + .37660, .21273, 2.14899, .11897, -.01207,
1596 + .00000, .07394, .15676,
1597 + .38298, .21537, 2.23369, .12232, -.00970,
1598 + .00000, .07820, .16048,
1599 + .38925, .21787, 2.29343, .12585, -.00337,
1600 + .00000, .08267, .16428,
1601 + .39436, .21981, 2.33299, .12878, .00160,
1602 + .00000, .08637, .16741,
1603 + .39906, .22155, 2.36265, .13147, .00625,
1604 + .00000, .08981, .17026,
1605 + .40381, .22325, 2.38597, .13421, .01108,
1606 + .00000, .09333, .17311 /
1607 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
1608 + .40770, .22459, 2.39819, .13644, .01495,
1609 + .00000, .09621, .17542,
1610 + .41127, .22578, 2.40456, .13848, .01857,
1611 + .00000, .09886, .17751,
1612 + .41401, .22665, 2.40725, .14004, .02140,
1613 + .00000, .10089, .17908,
1614 + .41943, .22829, 2.40539, .14311, .02706,
1615 + .00000, .10496, .18213,
1616 + .42357, .22943, 2.39639, .14542, .03153,
1617 + -.00510, .10812, .18437,
1618 + .42782, .23050, 2.36205, .14772, .03619,
1619 + .00153, .11130, .18653,
1620 + .43183, .23141, 2.32099, .14974, .04062,
1621 + .00721, .11423, .18836,
1622 + .43514, .23206, 2.27962, .15128, .04430,
1623 + .01197, .11654, .18968 /
1624 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
1625 + .43816, .23255, 2.23490, .15255, .04771,
1626 + .01641, .11861, .19074,
1627 + .44041, .23284, 2.19569, .15340, .05028,
1628 + .01977, .12008, .19137,
1629 + .44287, .23305, 2.14611, .15417, .05312,
1630 + .02350, .12160, .19187,
1631 + .44482, .23312, 2.10143, .15467, .05541,
1632 + .02659, .12274, .19212,
1633 + .44644, .23312, 2.06002, .15500, .05735,
1634 + .02925, .12364, .19219,
1635 + .44816, .23297, 2.00615, .15518, .05952,
1636 + .03225, .12453, .19201,
1637 + .44956, .23273, 1.95557, .15517, .06135,
1638 + .03486, .12517, .19167,
1639 + .45070, .23243, 1.90868, .15503, .06292,
1640 + .03713, .12562, .19120 /
1641 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
1642 + .45159, .23200, 1.86113, .15471, .06425,
1643 + .03913, .12588, .19054,
1644 + .45230, .23153, 1.81541, .15430, .06545,
1645 + .04096, .12601, .18977,
1646 + .45282, .23103, 1.77272, .15381, .06645,
1647 + .04256, .12603, .18895,
1648 + .45315, .23048, 1.73259, .15324, .06725,
1649 + .04389, .12592, .18806,
1650 + .45342, .22990, 1.69328, .15263, .06800,
1651 + .04518, .12577, .18714,
1652 + .45348, .22924, 1.65462, .15192, .06859,
1653 + .04626, .12550, .18609,
1654 + .45351, .22861, 1.61894, .15121, .06914,
1655 + .04727, .12522, .18508,
1656 + .45338, .22794, 1.58526, .15046, .06952,
1657 + .04809, .12485, .18403 /
1658 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
1659 + .45320, .22727, 1.55216, .14968, .06990,
1660 + .04889, .12444, .18295,
1661 + .45291, .22655, 1.51983, .14884, .07018,
1662 + .04957, .12399, .18182,
1663 + .45258, .22585, 1.48960, .14802, .07041,
1664 + .05018, .12351, .18071,
1665 + .45222, .22515, 1.46148, .14722, .07059,
1666 + .05072, .12304, .17964,
1667 + .45175, .22440, 1.43326, .14635, .07071,
1668 + .05118, .12249, .17850 /
1669 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
1670 + .41408, .23178, 1.91556, .09285, .00000,
1671 + .00000, .05311, .13531,
1672 + .42140, .23456, 1.97192, .09546, .00000,
1673 + .00000, .05664, .13813,
1674 + .43118, .23806, 2.05754, .09919, -.01486,
1675 + .00000, .06169, .14202,
1676 + .43755, .24013, 2.07936, .10179, -.01241,
1677 + .00000, .06520, .14462,
1678 + .44357, .24199, 2.08150, .10442, -.00704,
1679 + .00000, .06874, .14715,
1680 + .44836, .24336, 2.07576, .10649, -.00288,
1681 + .00000, .07159, .14908,
1682 + .45263, .24448, 2.06538, .10832, .00092,
1683 + .00000, .07412, .15075,
1684 + .45685, .24550, 2.04967, .11011, .00480,
1685 + .00000, .07664, .15234 /
1686 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
1687 + .46017, .24623, 2.03135, .11150, .00786,
1688 + .00000, .07865, .15350,
1689 + .46313, .24680, 2.01082, .11271, .01067,
1690 + .00000, .08045, .15449,
1691 + .46537, .24719, 1.99349, .11361, .01285,
1692 + .00000, .08180, .15517,
1693 + .46958, .24777, 1.95352, .11525, .01713,
1694 + .00000, .08438, .15637,
1695 + .47253, .24796, 1.91971, .11639, .02042,
1696 + -.00571, .08627, .15707,
1697 + .47539, .24795, 1.86235, .11738, .02379,
1698 + -.00083, .08809, .15754,
1699 + .47787, .24772, 1.80185, .11809, .02692,
1700 + .00330, .08964, .15770,
1701 + .47970, .24732, 1.74654, .11850, .02947,
1702 + .00671, .09077, .15756 /
1703 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
1704 + .48119, .24677, 1.69087, .11869, .03177,
1705 + .00983, .09167, .15721,
1706 + .48213, .24619, 1.64480, .11870, .03347,
1707 + .01216, .09223, .15673,
1708 + .48297, .24534, 1.58940, .11852, .03530,
1709 + .01471, .09273, .15598,
1710 + .48344, .24450, 1.54138, .11823, .03676,
1711 + .01679, .09301, .15517,
1712 + .48368, .24367, 1.49823, .11786, .03796,
1713 + .01855, .09316, .15432,
1714 + .48365, .24246, 1.44424, .11725, .03926,
1715 + .02051, .09316, .15308,
1716 + .48339, .24123, 1.39497, .11654, .04034,
1717 + .02220, .09303, .15179,
1718 + .48297, .24002, 1.35032, .11581, .04124,
1719 + .02364, .09281, .15051 /
1720 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
1721 + .48225, .23871, 1.30643, .11495, .04196,
1722 + .02488, .09246, .14911,
1723 + .48141, .23737, 1.26496, .11406, .04258,
1724 + .02600, .09204, .14768,
1725 + .48047, .23607, 1.22689, .11317, .04310,
1726 + .02696, .09159, .14628,
1727 + .47942, .23476, 1.19186, .11225, .04348,
1728 + .02775, .09108, .14489,
1729 + .47832, .23344, 1.15790, .11131, .04382,
1730 + .02850, .09055, .14348,
1731 + .47703, .23205, 1.12516, .11032, .04407,
1732 + .02912, .08995, .14203,
1733 + .47577, .23074, 1.09518, .10939, .04427,
1734 + .02968, .08936, .14065,
1735 + .47441, .22945, 1.06734, .10844, .04440,
1736 + .03012, .08875, .13930 /
1737 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
1738 + .47302, .22816, 1.04018, .10750, .04451,
1739 + .03056, .08813, .13793,
1740 + .47155, .22683, 1.01400, .10652, .04456,
1741 + .03091, .08747, .13655,
1742 + .47007, .22555, .98974, .10558, .04459,
1743 + .03123, .08682, .13523,
1744 + .46865, .22432, .96733, .10468, .04458,
1745 + .03148, .08620, .13398,
1746 + .46709, .22305, .94513, .10375, .04455,
1747 + .03171, .08554, .13267 /
1748 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
1749 + .46043, .25219, 1.87088, .07860, .00000,
1750 + .00000, .04500, .12463,
1751 + .46779, .25442, 1.87760, .08090, .00000,
1752 + .00000, .04821, .12670,
1753 + .47718, .25697, 1.90090, .08397, -.01560,
1754 + .00000, .05251, .12927,
1755 + .48299, .25829, 1.88190, .08596, -.01317,
1756 + .00000, .05535, .13082,
1757 + .48831, .25930, 1.84843, .08787, -.00861,
1758 + .00000, .05812, .13221,
1759 + .49236, .25988, 1.81582, .08928, -.00511,
1760 + .00000, .06024, .13317,
1761 + .49582, .26027, 1.78239, .09050, -.00196,
1762 + .00000, .06211, .13389,
1763 + .49906, .26049, 1.74512, .09162, .00119,
1764 + .00000, .06388, .13442 /
1765 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
1766 + .50152, .26049, 1.71076, .09241, .00365,
1767 + .00000, .06525, .13472,
1768 + .50358, .26038, 1.67662, .09305, .00588,
1769 + .00000, .06642, .13488,
1770 + .50504, .26023, 1.64955, .09349, .00759,
1771 + .00000, .06726, .13493,
1772 + .50761, .25960, 1.59184, .09421, .01088,
1773 + .00000, .06881, .13482,
1774 + .50907, .25877, 1.54726, .09457, .01339,
1775 + -.00553, .06988, .13446,
1776 + .51016, .25764, 1.48231, .09478, .01590,
1777 + -.00186, .07081, .13380,
1778 + .51075, .25624, 1.41671, .09473, .01818,
1779 + .00122, .07151, .13286,
1780 + .51085, .25481, 1.35898, .09450, .02001,
1781 + .00373, .07190, .13181 /
1782 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
1783 + .51057, .25323, 1.30264, .09409, .02163,
1784 + .00600, .07214, .13061,
1785 + .51005, .25179, 1.25728, .09363, .02281,
1786 + .00767, .07218, .12952,
1787 + .50904, .24995, 1.20406, .09297, .02406,
1788 + .00948, .07210, .12803,
1789 + .50791, .24824, 1.15887, .09230, .02503,
1790 + .01095, .07192, .12664,
1791 + .50669, .24661, 1.11894, .09162, .02582,
1792 + .01217, .07168, .12530,
1793 + .50481, .24443, 1.07005, .09063, .02665,
1794 + .01351, .07124, .12353,
1795 + .50281, .24231, 1.02617, .08964, .02732,
1796 + .01465, .07075, .12179,
1797 + .50079, .24027, .98693, .08868, .02786,
1798 + .01562, .07022, .12014 /
1799 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
1800 + .49846, .23817, .94908, .08764, .02828,
1801 + .01643, .06961, .11842,
1802 + .49608, .23608, .91370, .08659, .02863,
1803 + .01716, .06898, .11670,
1804 + .49371, .23406, .88161, .08556, .02889,
1805 + .01777, .06835, .11508,
1806 + .49131, .23210, .85244, .08455, .02908,
1807 + .01827, .06769, .11351,
1808 + .48884, .23015, .82434, .08354, .02925,
1809 + .01874, .06703, .11196,
1810 + .48624, .22817, .79761, .08252, .02934,
1811 + .01911, .06633, .11039,
1812 + .48376, .22631, .77326, .08156, .02941,
1813 + .01945, .06567, .10891,
1814 + .48126, .22450, .75091, .08061, .02943,
1815 + .01971, .06500, .10749 /
1816 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
1817 + .47874, .22268, .72920, .07967, .02943,
1818 + .01995, .06433, .10608,
1819 + .47616, .22086, .70846, .07872, .02940,
1820 + .02015, .06365, .10469,
1821 + .47366, .21910, .68934, .07780, .02936,
1822 + .02032, .06300, .10335,
1823 + .47126, .21744, .67179, .07694, .02931,
1824 + .02047, .06237, .10210,
1825 + .46872, .21575, .65451, .07607, .02923,
1826 + .02058, .06173, .10082 /
1827 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
1828 + .50956, .27068, 1.72358, .06506, .00000,
1829 + .00000, .03762, .11216,
1830 + .51612, .27193, 1.69024, .06695, .00000,
1831 + .00000, .04025, .11325,
1832 + .52400, .27288, 1.66294, .06925, -.01484,
1833 + .00000, .04366, .11430,
1834 + .52844, .27305, 1.61430, .07065, -.01257,
1835 + .00000, .04577, .11470,
1836 + .53224, .27281, 1.55667, .07187, -.00885,
1837 + .00000, .04773, .11495,
1838 + .53479, .27236, 1.50682, .07272, -.00605,
1839 + .00000, .04917, .11491,
1840 + .53679, .27171, 1.45953, .07333, -.00357,
1841 + .00000, .05036, .11472,
1842 + .53847, .27082, 1.41006, .07382, -.00112,
1843 + .00000, .05144, .11437 /
1844 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
1845 + .53946, .26990, 1.36731, .07411, .00076,
1846 + .00000, .05221, .11390,
1847 + .54010, .26887, 1.32669, .07429, .00246,
1848 + .00000, .05284, .11334,
1849 + .54044, .26799, 1.29528, .07439, .00373,
1850 + .00000, .05327, .11285,
1851 + .54047, .26593, 1.23085, .07439, .00616,
1852 + .00000, .05400, .11162,
1853 + .53972, .26387, 1.18296, .07420, .00797,
1854 + -.00480, .05440, .11042,
1855 + .53839, .26137, 1.11906, .07380, .00974,
1856 + -.00218, .05465, .10893,
1857 + .53646, .25861, 1.05644, .07322, .01133,
1858 + -.00001, .05469, .10722,
1859 + .53423, .25597, 1.00282, .07257, .01257,
1860 + .00174, .05459, .10555 /
1861 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
1862 + .53162, .25322, .95167, .07182, .01365,
1863 + .00330, .05434, .10379,
1864 + .52919, .25084, .91133, .07111, .01443,
1865 + .00444, .05406, .10229,
1866 + .52592, .24790, .86494, .07017, .01524,
1867 + .00566, .05362, .10040,
1868 + .52279, .24525, .82616, .06928, .01585,
1869 + .00663, .05316, .09871,
1870 + .51978, .24276, .79241, .06842, .01633,
1871 + .00743, .05268, .09714,
1872 + .51566, .23954, .75179, .06730, .01684,
1873 + .00830, .05202, .09510,
1874 + .51159, .23649, .71587, .06620, .01722,
1875 + .00902, .05134, .09318,
1876 + .50768, .23361, .68409, .06516, .01753,
1877 + .00963, .05068, .09139 /
1878 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
1879 + .50350, .23070, .65394, .06408, .01776,
1880 + .01014, .04998, .08959,
1881 + .49933, .22784, .62603, .06302, .01794,
1882 + .01059, .04927, .08784,
1883 + .49531, .22511, .60099, .06201, .01806,
1884 + .01095, .04858, .08619,
1885 + .49136, .22254, .57843, .06106, .01814,
1886 + .01125, .04792, .08463,
1887 + .48737, .22000, .55686, .06012, .01820,
1888 + .01152, .04725, .08308,
1889 + .48336, .21742, .53658, .05915, .01821,
1890 + .01174, .04657, .08157,
1891 + .47956, .21499, .51819, .05823, .01821,
1892 + .01193, .04591, .08019,
1893 + .47583, .21270, .50147, .05737, .01818,
1894 + .01207, .04529, .07884 /
1895 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
1896 + .47208, .21040, .48529, .05653, .01815,
1897 + .01220, .04468, .07750,
1898 + .46830, .20813, .46996, .05568, .01810,
1899 + .01231, .04405, .07620,
1900 + .46467, .20598, .45592, .05488, .01804,
1901 + .01239, .04346, .07498,
1902 + .46123, .20395, .44307, .05412, .01797,
1903 + .01246, .04290, .07384,
1904 + .45769, .20186, .43053, .05335, .01788,
1905 + .01250, .04233, .07268 /
1906 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
1907 + .55057, .28308, 1.52185, .05507, .00000,
1908 + .00000, .03223, .10025,
1909 + .55568, .28307, 1.46656, .05646, .00000,
1910 + .00000, .03429, .10044,
1911 + .56111, .28223, 1.41081, .05804, -.01311,
1912 + .00000, .03683, .10018,
1913 + .56369, .28104, 1.34881, .05882, -.01108,
1914 + .00000, .03830, .09973,
1915 + .56535, .27953, 1.28200, .05951, -.00811,
1916 + .00000, .03961, .09904,
1917 + .56614, .27790, 1.22654, .05985, -.00588,
1918 + .00000, .04051, .09830,
1919 + .56634, .27618, 1.17553, .06004, -.00395,
1920 + .00000, .04120, .09746,
1921 + .56605, .27422, 1.12365, .06012, -.00206,
1922 + .00000, .04178, .09646 /
1923 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
1924 + .56535, .27235, 1.08013, .06006, -.00062,
1925 + .00000, .04217, .09550,
1926 + .56434, .27046, 1.03968, .05993, .00065,
1927 + .00000, .04242, .09449,
1928 + .56335, .26892, 1.00884, .05979, .00160,
1929 + .00000, .04257, .09367,
1930 + .56069, .26538, .94690, .05931, .00340,
1931 + .00000, .04274, .09184,
1932 + .55763, .26221, .90169, .05880, .00471,
1933 + -.00395, .04273, .09015,
1934 + .55370, .25849, .84436, .05811, .00599,
1935 + -.00206, .04256, .08822,
1936 + .54912, .25450, .78928, .05724, .00711,
1937 + -.00051, .04226, .08616,
1938 + .54459, .25082, .74296, .05639, .00797,
1939 + .00072, .04187, .08423 /
1940 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
1941 + .53970, .24705, .69944, .05548, .00872,
1942 + .00181, .04141, .08225,
1943 + .53538, .24389, .66564, .05465, .00925,
1944 + .00260, .04096, .08062,
1945 + .52994, .23999, .62727, .05362, .00978,
1946 + .00343, .04036, .07862,
1947 + .52494, .23654, .59560, .05269, .01018,
1948 + .00409, .03980, .07686,
1949 + .52022, .23338, .56827, .05183, .01049,
1950 + .00463, .03927, .07527,
1951 + .51399, .22935, .53576, .05072, .01081,
1952 + .00521, .03854, .07323,
1953 + .50803, .22556, .50732, .04966, .01104,
1954 + .00568, .03784, .07136,
1955 + .50239, .22203, .48242, .04867, .01122,
1956 + .00608, .03718, .06962 /
1957 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
1958 + .49658, .21848, .45899, .04765, .01135,
1959 + .00641, .03647, .06793,
1960 + .49085, .21505, .43750, .04667, .01145,
1961 + .00669, .03577, .06631,
1962 + .48538, .21183, .41834, .04575, .01152,
1963 + .00693, .03514, .06477,
1964 + .48014, .20878, .40124, .04487, .01154,
1965 + .00711, .03452, .06336,
1966 + .47492, .20575, .38495, .04401, .01155,
1967 + .00727, .03392, .06198,
1968 + .46968, .20278, .36976, .04315, .01155,
1969 + .00741, .03330, .06062,
1970 + .46476, .19999, .35603, .04237, .01154,
1971 + .00752, .03274, .05935,
1972 + .45998, .19737, .34362, .04163, .01150,
1973 + .00760, .03219, .05817 /
1974 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
1975 + .45521, .19476, .33168, .04090, .01146,
1976 + .00767, .03165, .05700,
1977 + .45047, .19218, .32041, .04018, .01140,
1978 + .00773, .03111, .05586,
1979 + .44597, .18974, .31011, .03949, .01135,
1980 + .00777, .03060, .05481,
1981 + .44173, .18745, .30073, .03886, .01129,
1982 + .00781, .03013, .05382,
1983 + .43736, .18514, .29162, .03823, .01122,
1984 + .00782, .02965, .05282 /
1985 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
1986 + .58396, .29038, 1.30074, .04741, .00000,
1987 + .00000, .02805, .08865,
1988 + .58706, .28899, 1.23614, .04835, .00000,
1989 + .00000, .02956, .08800,
1990 + .58935, .28623, 1.16756, .04922, -.01103,
1991 + .00000, .03123, .08671,
1992 + .58952, .28379, 1.10250, .04963, -.00931,
1993 + .00000, .03216, .08554,
1994 + .58880, .28088, 1.03563, .04980, -.00696,
1995 + .00000, .03292, .08428,
1996 + .58740, .27821, .98146, .04982, -.00522,
1997 + .00000, .03338, .08302,
1998 + .58555, .27551, .93254, .04973, -.00373,
1999 + .00000, .03370, .08174,
2000 + .58314, .27251, .88364, .04950, -.00228,
2001 + .00000, .03391, .08035 /
2002 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
2003 + .58062, .26976, .84337, .04921, -.00119,
2004 + .00000, .03400, .07910,
2005 + .57788, .26702, .80647, .04886, -.00024,
2006 + .00000, .03401, .07786,
2007 + .57556, .26483, .77865, .04854, .00047,
2008 + .00000, .03397, .07686,
2009 + .57004, .26008, .72350, .04780, .00180,
2010 + .00000, .03380, .07470,
2011 + .56463, .25587, .68373, .04712, .00276,
2012 + -.00313, .03353, .07283,
2013 + .55817, .25111, .63501, .04626, .00368,
2014 + -.00178, .03314, .07074,
2015 + .55104, .24609, .58886, .04528, .00448,
2016 + -.00066, .03265, .06856,
2017 + .54428, .24152, .55053, .04434, .00509,
2018 + .00021, .03215, .06661 /
2019 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
2020 + .53724, .23693, .51499, .04338, .00561,
2021 + .00098, .03157, .06465,
2022 + .53123, .23309, .48767, .04256, .00597,
2023 + .00152, .03107, .06304,
2024 + .52375, .22847, .45691, .04154, .00634,
2025 + .00211, .03044, .06112,
2026 + .51703, .22441, .43175, .04064, .00661,
2027 + .00257, .02987, .05946,
2028 + .51082, .22074, .41024, .03982, .00681,
2029 + .00293, .02932, .05797,
2030 + .50278, .21606, .38488, .03876, .00702,
2031 + .00332, .02864, .05608,
2032 + .49518, .21174, .36287, .03779, .00718,
2033 + .00365, .02797, .05436,
2034 + .48804, .20776, .34371, .03690, .00729,
2035 + .00391, .02735, .05280 /
2036 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
2037 + .48082, .20375, .32585, .03598, .00736,
2038 + .00412, .02672, .05130,
2039 + .47379, .19991, .30954, .03511, .00742,
2040 + .00431, .02612, .04984,
2041 + .46717, .19634, .29507, .03430, .00746,
2042 + .00447, .02556, .04850,
2043 + .46086, .19298, .28224, .03354, .00747,
2044 + .00459, .02503, .04726,
2045 + .45460, .18968, .27006, .03279, .00746,
2046 + .00469, .02450, .04606,
2047 + .44837, .18644, .25876, .03207, .00745,
2048 + .00477, .02398, .04490,
2049 + .44255, .18345, .24859, .03140, .00744,
2050 + .00485, .02349, .04382,
2051 + .43700, .18061, .23942, .03076, .00740,
2052 + .00489, .02304, .04283 /
2053 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
2054 + .43147, .17778, .23063, .03014, .00736,
2055 + .00493, .02259, .04185,
2056 + .42602, .17502, .22237, .02953, .00732,
2057 + .00497, .02215, .04090,
2058 + .42088, .17241, .21486, .02894, .00728,
2059 + .00500, .02174, .04002,
2060 + .41603, .16998, .20802, .02841, .00724,
2061 + .00501, .02136, .03920,
2062 + .41108, .16754, .20139, .02789, .00719,
2063 + .00502, .02096, .03838 /
2064 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
2065 + .61010, .29324, 1.08194, .04142, .00000,
2066 + .00000, .02453, .07717,
2067 + .61063, .29053, 1.01640, .04191, .00000,
2068 + .00000, .02551, .07594,
2069 + .60930, .28580, .94527, .04214, -.00896,
2070 + .00000, .02652, .07395,
2071 + .60692, .28199, .88342, .04211, -.00754,
2072 + .00000, .02700, .07242,
2073 + .60344, .27789, .82172, .04197, -.00573,
2074 + .00000, .02737, .07068,
2075 + .59984, .27413, .77258, .04168, -.00440,
2076 + .00000, .02750, .06920,
2077 + .59591, .27043, .72876, .04134, -.00325,
2078 + .00000, .02756, .06772,
2079 + .59130, .26645, .68552, .04091, -.00216,
2080 + .00000, .02753, .06612 /
2081 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
2082 + .58691, .26293, .65041, .04048, -.00134,
2083 + .00000, .02742, .06471,
2084 + .58241, .25949, .61854, .04000, -.00062,
2085 + .00000, .02727, .06338,
2086 + .57873, .25676, .59468, .03959, -.00010,
2087 + .00000, .02714, .06234,
2088 + .57041, .25091, .54794, .03872, .00088,
2089 + .00000, .02676, .06011,
2090 + .56275, .24585, .51449, .03791, .00158,
2091 + -.00243, .02636, .05826,
2092 + .55391, .24018, .47461, .03696, .00224,
2093 + -.00146, .02587, .05620,
2094 + .54441, .23433, .43722, .03596, .00282,
2095 + -.00066, .02532, .05408,
2096 + .53560, .22908, .40651, .03503, .00325,
2097 + -.00003, .02476, .05222 /
2098 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
2099 + .52664, .22382, .37825, .03407, .00361,
2100 + .00050, .02418, .05040,
2101 + .51908, .21949, .35669, .03328, .00387,
2102 + .00089, .02369, .04892,
2103 + .50981, .21433, .33269, .03234, .00412,
2104 + .00130, .02306, .04717,
2105 + .50160, .20983, .31317, .03151, .00430,
2106 + .00161, .02252, .04567,
2107 + .49409, .20575, .29655, .03075, .00445,
2108 + .00187, .02204, .04433,
2109 + .48454, .20063, .27712, .02978, .00459,
2110 + .00214, .02139, .04270,
2111 + .47558, .19593, .26035, .02890, .00469,
2112 + .00236, .02080, .04123,
2113 + .46725, .19163, .24582, .02810, .00477,
2114 + .00255, .02026, .03989 /
2115 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
2116 + .45890, .18735, .23238, .02732, .00482,
2117 + .00269, .01972, .03856,
2118 + .45082, .18328, .22014, .02657, .00485,
2119 + .00281, .01921, .03731,
2120 + .44321, .17951, .20933, .02587, .00486,
2121 + .00291, .01873, .03618,
2122 + .43610, .17596, .19979, .02522, .00488,
2123 + .00300, .01828, .03515,
2124 + .42908, .17249, .19077, .02457, .00487,
2125 + .00306, .01784, .03414,
2126 + .42214, .16912, .18243, .02397, .00486,
2127 + .00312, .01741, .03317,
2128 + .41566, .16600, .17494, .02341, .00485,
2129 + .00317, .01701, .03227,
2130 + .40952, .16306, .16822, .02287, .00482,
2131 + .00319, .01663, .03145 /
2132 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
2133 + .40345, .16015, .16178, .02235, .00479,
2134 + .00322, .01626, .03066,
2135 + .39747, .15732, .15574, .02185, .00476,
2136 + .00324, .01590, .02989,
2137 + .39184, .15467, .15027, .02139, .00472,
2138 + .00325, .01558, .02916,
2139 + .38656, .15220, .14530, .02094, .00469,
2140 + .00326, .01527, .02849,
2141 + .38121, .14971, .14049, .02050, .00466,
2142 + .00327, .01496, .02784 /
2143 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
2144 + .62928, .29213, .87783, .03640, .00000,
2145 + .00000, .02142, .06628,
2146 + .62707, .28798, .81664, .03641, .00000,
2147 + .00000, .02200, .06467,
2148 + .62165, .28146, .74941, .03619, -.00709,
2149 + .00000, .02250, .06217,
2150 + .61647, .27647, .69423, .03585, -.00595,
2151 + .00000, .02267, .06037,
2152 + .61032, .27111, .64035, .03537, -.00457,
2153 + .00000, .02270, .05856,
2154 + .60434, .26643, .59796, .03493, -.00355,
2155 + .00000, .02266, .05690,
2156 + .59825, .26192, .56062, .03441, -.00269,
2157 + .00000, .02252, .05535,
2158 + .59145, .25710, .52411, .03382, -.00189,
2159 + .00000, .02232, .05376 /
2160 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
2161 + .58527, .25287, .49476, .03325, -.00127,
2162 + .00000, .02211, .05239,
2163 + .57905, .24882, .46837, .03271, -.00074,
2164 + .00000, .02187, .05106,
2165 + .57405, .24564, .44873, .03227, -.00035,
2166 + .00000, .02165, .05002,
2167 + .56311, .23888, .41058, .03131, .00036,
2168 + .00000, .02118, .04787,
2169 + .55338, .23312, .38344, .03047, .00087,
2170 + -.00186, .02073, .04610,
2171 + .54234, .22677, .35168, .02954, .00134,
2172 + -.00116, .02020, .04419,
2173 + .53070, .22028, .32220, .02857, .00177,
2174 + -.00058, .01962, .04226,
2175 + .52013, .21450, .29818, .02767, .00207,
2176 + -.00014, .01908, .04058 /
2177 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
2178 + .50946, .20875, .27629, .02677, .00233,
2179 + .00024, .01852, .03897,
2180 + .50052, .20411, .25969, .02607, .00251,
2181 + .00052, .01806, .03765,
2182 + .48980, .19854, .24126, .02519, .00269,
2183 + .00081, .01751, .03613,
2184 + .48039, .19376, .22637, .02442, .00281,
2185 + .00102, .01703, .03485,
2186 + .47181, .18946, .21378, .02375, .00292,
2187 + .00120, .01658, .03370,
2188 + .46100, .18407, .19914, .02291, .00301,
2189 + .00139, .01603, .03229,
2190 + .45095, .17915, .18657, .02215, .00308,
2191 + .00154, .01552, .03102,
2192 + .44169, .17469, .17574, .02147, .00314,
2193 + .00167, .01506, .02989 /
2194 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
2195 + .43244, .17030, .16572, .02079, .00317,
2196 + .00176, .01461, .02880,
2197 + .42357, .16610, .15665, .02015, .00320,
2198 + .00186, .01417, .02778,
2199 + .41532, .16222, .14866, .01957, .00320,
2200 + .00192, .01376, .02684,
2201 + .40761, .15864, .14163, .01902, .00320,
2202 + .00198, .01339, .02598,
2203 + .40004, .15512, .13501, .01849, .00321,
2204 + .00203, .01304, .02516,
2205 + .39260, .15171, .12890, .01796, .00320,
2206 + .00206, .01268, .02438,
2207 + .38570, .14856, .12342, .01748, .00318,
2208 + .00208, .01234, .02368,
2209 + .37915, .14563, .11854, .01706, .00316,
2210 + .00211, .01204, .02301 /
2211 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
2212 + .37270, .14275, .11385, .01666, .00314,
2213 + .00212, .01176, .02235,
2214 + .36639, .13994, .10946, .01625, .00312,
2215 + .00213, .01149, .02171,
2216 + .36048, .13731, .10546, .01586, .00310,
2217 + .00215, .01123, .02114,
2218 + .35496, .13487, .10186, .01550, .00308,
2219 + .00216, .01098, .02060,
2220 + .34940, .13242, .09839, .01514, .00305,
2221 + .00215, .01074, .02010 /
2222 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
2223 + .64183, .28737, .69500, .03170, .00000,
2224 + .00000, .01882, .05615,
2225 + .63652, .28200, .64104, .03148, .00000,
2226 + .00000, .01901, .05431,
2227 + .62684, .27383, .58157, .03091, -.00549,
2228 + .00000, .01902, .05161,
2229 + .61878, .26778, .53473, .03039, -.00460,
2230 + .00000, .01893, .04969,
2231 + .60981, .26143, .48967, .02976, -.00356,
2232 + .00000, .01877, .04780,
2233 + .60156, .25596, .45464, .02917, -.00281,
2234 + .00000, .01855, .04619,
2235 + .59337, .25073, .42399, .02859, -.00216,
2236 + .00000, .01829, .04467,
2237 + .58445, .24524, .39435, .02795, -.00157,
2238 + .00000, .01800, .04309 /
2239 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
2240 + .57652, .24050, .37064, .02737, -.00112,
2241 + .00000, .01770, .04178,
2242 + .56873, .23596, .34951, .02680, -.00073,
2243 + .00000, .01739, .04053,
2244 + .56254, .23240, .33384, .02636, -.00044,
2245 + .00000, .01716, .03957,
2246 + .54919, .22492, .30369, .02540, .00008,
2247 + .00000, .01662, .03762,
2248 + .53764, .21866, .28234, .02456, .00045,
2249 + -.00141, .01616, .03605,
2250 + .52463, .21184, .25772, .02367, .00080,
2251 + -.00091, .01564, .03433,
2252 + .51117, .20490, .23501, .02277, .00110,
2253 + -.00049, .01509, .03262,
2254 + .49906, .19876, .21667, .02195, .00132,
2255 + -.00018, .01461, .03116 /
2256 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
2257 + .48695, .19274, .20003, .02114, .00151,
2258 + .00010, .01411, .02977,
2259 + .47701, .18786, .18747, .02047, .00163,
2260 + .00029, .01371, .02866,
2261 + .46506, .18211, .17366, .01970, .00176,
2262 + .00050, .01323, .02736,
2263 + .45468, .17715, .16253, .01903, .00186,
2264 + .00065, .01280, .02627,
2265 + .44535, .17273, .15316, .01843, .00192,
2266 + .00077, .01242, .02531,
2267 + .43356, .16726, .14230, .01771, .00200,
2268 + .00091, .01196, .02415,
2269 + .42272, .16228, .13301, .01706, .00204,
2270 + .00102, .01153, .02311,
2271 + .41281, .15775, .12498, .01648, .00208,
2272 + .00111, .01116, .02218 /
2273 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
2274 + .40302, .15332, .11766, .01589, .00210,
2275 + .00117, .01076, .02131,
2276 + .39364, .14911, .11103, .01535, .00212,
2277 + .00123, .01040, .02049,
2278 + .38495, .14524, .10523, .01484, .00212,
2279 + .00127, .01008, .01973,
2280 + .37685, .14169, .10011, .01440, .00212,
2281 + .00131, .00977, .01905,
2282 + .36888, .13823, .09529, .01399, .00212,
2283 + .00135, .00947, .01839,
2284 + .36117, .13487, .09084, .01355, .00211,
2285 + .00137, .00920, .01777,
2286 + .35404, .13178, .08686, .01315, .00211,
2287 + .00139, .00895, .01721,
2288 + .34734, .12889, .08334, .01278, .00210,
2289 + .00141, .00871, .01669 /
2290 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
2291 + .34074, .12606, .07997, .01243, .00209,
2292 + .00142, .00848, .01619,
2293 + .33431, .12333, .07681, .01209, .00207,
2294 + .00142, .00825, .01570,
2295 + .32826, .12079, .07396, .01178, .00206,
2296 + .00144, .00804, .01524,
2297 + .32263, .11842, .07136, .01150, .00204,
2298 + .00144, .00785, .01483,
2299 + .31698, .11607, .06887, .01123, .00202,
2300 + .00144, .00767, .01441 /
2301 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
2302 + .64677, .28061, .53656, .02840, .00000,
2303 + .00000, .01574, .04630,
2304 + .63847, .27401, .49113, .02782, .00000,
2305 + .00000, .01575, .04445,
2306 + .62470, .26426, .44096, .02687, -.00418,
2307 + .00000, .01559, .04183,
2308 + .61404, .25718, .40263, .02610, -.00350,
2309 + .00000, .01535, .04007,
2310 + .60233, .25001, .36635, .02538, -.00273,
2311 + .00000, .01509, .03819,
2312 + .59201, .24381, .33833, .02468, -.00217,
2313 + .00000, .01482, .03672,
2314 + .58193, .23797, .31405, .02401, -.00170,
2315 + .00000, .01454, .03535,
2316 + .57111, .23189, .29073, .02331, -.00125,
2317 + .00000, .01421, .03393 /
2318 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
2319 + .56163, .22668, .27226, .02271, -.00093,
2320 + .00000, .01392, .03273,
2321 + .55245, .22173, .25580, .02213, -.00063,
2322 + .00000, .01364, .03162,
2323 + .54522, .21787, .24370, .02167, -.00043,
2324 + .00000, .01340, .03078,
2325 + .52981, .20988, .22057, .02069, -.00006,
2326 + .00000, .01291, .02909,
2327 + .51661, .20329, .20432, .01992, .00021,
2328 + -.00106, .01248, .02771,
2329 + .50205, .19611, .18567, .01906, .00047,
2330 + -.00070, .01199, .02627,
2331 + .48714, .18884, .16869, .01819, .00068,
2332 + -.00040, .01149, .02484,
2333 + .47382, .18249, .15503, .01744, .00084,
2334 + -.00018, .01107, .02363 /
2335 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
2336 + .46061, .17632, .14268, .01674, .00097,
2337 + .00002, .01063, .02246,
2338 + .44989, .17132, .13340, .01613, .00106,
2339 + .00016, .01029, .02155,
2340 + .43710, .16548, .12322, .01544, .00116,
2341 + .00031, .00989, .02048,
2342 + .42600, .16049, .11507, .01486, .00122,
2343 + .00042, .00955, .01960,
2344 + .41604, .15607, .10820, .01435, .00128,
2345 + .00051, .00922, .01885,
2346 + .40364, .15059, .10031, .01372, .00132,
2347 + .00060, .00883, .01791,
2348 + .39232, .14562, .09359, .01317, .00136,
2349 + .00068, .00849, .01707,
2350 + .38200, .14115, .08785, .01266, .00138,
2351 + .00073, .00817, .01632 /
2352 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
2353 + .37187, .13678, .08255, .01217, .00140,
2354 + .00079, .00789, .01562,
2355 + .36220, .13266, .07778, .01171, .00142,
2356 + .00083, .00761, .01497,
2357 + .35326, .12892, .07360, .01131, .00142,
2358 + .00086, .00735, .01436,
2359 + .34499, .12545, .06995, .01093, .00142,
2360 + .00088, .00711, .01382,
2361 + .33693, .12209, .06650, .01056, .00142,
2362 + .00091, .00689, .01331,
2363 + .32910, .11885, .06333, .01022, .00142,
2364 + .00093, .00667, .01282,
2365 + .32186, .11588, .06053, .00991, .00140,
2366 + .00093, .00647, .01237,
2367 + .31511, .11313, .05802, .00963, .00140,
2368 + .00095, .00628, .01198 /
2369 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
2370 + .30847, .11043, .05562, .00934, .00139,
2371 + .00096, .00610, .01159,
2372 + .30202, .10782, .05339, .00907, .00138,
2373 + .00096, .00593, .01123,
2374 + .29602, .10539, .05136, .00880, .00137,
2375 + .00096, .00576, .01091,
2376 + .29043, .10314, .04953, .00857, .00136,
2377 + .00097, .00560, .01060,
2378 + .28484, .10091, .04777, .00834, .00135,
2379 + .00097, .00547, .01029 /
2380 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
2381 + .64614, .27043, .40128, .02449, .00000,
2382 + .00000, .01355, .03791,
2383 + .63477, .26282, .36471, .02378, .00000,
2384 + .00000, .01335, .03614,
2385 + .61692, .25177, .32457, .02267, -.00313,
2386 + .00000, .01295, .03366,
2387 + .60353, .24399, .29451, .02187, -.00262,
2388 + .00000, .01261, .03201,
2389 + .58941, .23605, .26639, .02105, -.00207,
2390 + .00000, .01227, .03037,
2391 + .57703, .22939, .24487, .02037, -.00165,
2392 + .00000, .01198, .02896,
2393 + .56518, .22312, .22636, .01970, -.00131,
2394 + .00000, .01164, .02773,
2395 + .55267, .21664, .20866, .01900, -.00099,
2396 + .00000, .01129, .02653 /
2397 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
2398 + .54181, .21112, .19477, .01842, -.00075,
2399 + .00000, .01097, .02550,
2400 + .53135, .20594, .18248, .01786, -.00054,
2401 + .00000, .01070, .02452,
2402 + .52316, .20193, .17342, .01745, -.00039,
2403 + .00000, .01050, .02377,
2404 + .50596, .19364, .15629, .01659, -.00012,
2405 + .00000, .01003, .02229,
2406 + .49155, .18677, .14431, .01586, .00007,
2407 + -.00079, .00964, .02116,
2408 + .47573, .17944, .13066, .01508, .00026,
2409 + -.00053, .00923, .01992,
2410 + .45960, .17214, .11827, .01432, .00042,
2411 + -.00032, .00879, .01876,
2412 + .44536, .16576, .10836, .01366, .00053,
2413 + -.00016, .00840, .01776 /
2414 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
2415 + .43137, .15956, .09946, .01303, .00062,
2416 + -.00002, .00804, .01680,
2417 + .42005, .15460, .09282, .01253, .00069,
2418 + .00008, .00774, .01607,
2419 + .40663, .14883, .08554, .01195, .00076,
2420 + .00019, .00739, .01520,
2421 + .39511, .14390, .07973, .01147, .00081,
2422 + .00026, .00711, .01448,
2423 + .38483, .13953, .07489, .01102, .00085,
2424 + .00033, .00686, .01387,
2425 + .37210, .13419, .06927, .01051, .00088,
2426 + .00040, .00655, .01312,
2427 + .36046, .12937, .06451, .01007, .00091,
2428 + .00045, .00627, .01247,
2429 + .34989, .12505, .06047, .00968, .00093,
2430 + .00049, .00601, .01189 /
2431 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
2432 + .33967, .12084, .05677, .00925, .00093,
2433 + .00052, .00576, .01134,
2434 + .32994, .11688, .05341, .00888, .00094,
2435 + .00055, .00555, .01082,
2436 + .32094, .11328, .05049, .00855, .00095,
2437 + .00058, .00537, .01036,
2438 + .31270, .10999, .04795, .00824, .00095,
2439 + .00060, .00518, .00995,
2440 + .30467, .10680, .04557, .00791, .00095,
2441 + .00061, .00497, .00957,
2442 + .29691, .10372, .04338, .00763, .00094,
2443 + .00062, .00480, .00921,
2444 + .28976, .10092, .04142, .00737, .00094,
2445 + .00063, .00464, .00888,
2446 + .28311, .09831, .03967, .00715, .00093,
2447 + .00063, .00451, .00858 /
2448 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
2449 + .27658, .09578, .03799, .00693, .00093,
2450 + .00064, .00437, .00827,
2451 + .27027, .09333, .03643, .00672, .00092,
2452 + .00065, .00424, .00799,
2453 + .26439, .09106, .03504, .00652, .00092,
2454 + .00065, .00412, .00773,
2455 + .25895, .08896, .03378, .00634, .00090,
2456 + .00065, .00400, .00749,
2457 + .25351, .08688, .03257, .00617, .00090,
2458 + .00065, .00390, .00725 /
2459 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
2460 + .63924, .25835, .28860, .02111, .00000,
2461 + .00000, .01128, .03049,
2462 + .62480, .25002, .26055, .02031, .00000,
2463 + .00000, .01097, .02884,
2464 + .60320, .23789, .22990, .01912, -.00232,
2465 + .00000, .01050, .02661,
2466 + .58741, .22953, .20735, .01829, -.00195,
2467 + .00000, .01016, .02510,
2468 + .57103, .22105, .18649, .01748, -.00154,
2469 + .00000, .00978, .02364,
2470 + .55687, .21403, .17062, .01680, -.00124,
2471 + .00000, .00945, .02248,
2472 + .54350, .20745, .15706, .01614, -.00099,
2473 + .00000, .00916, .02143,
2474 + .52955, .20067, .14420, .01548, -.00077,
2475 + .00000, .00886, .02037 /
2476 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
2477 + .51752, .19499, .13418, .01494, -.00059,
2478 + .00000, .00857, .01950,
2479 + .50610, .18963, .12537, .01442, -.00044,
2480 + .00000, .00830, .01871,
2481 + .49722, .18550, .11893, .01401, -.00034,
2482 + .00000, .00808, .01813,
2483 + .47862, .17711, .10669, .01322, -.00014,
2484 + .00000, .00769, .01688,
2485 + .46314, .17026, .09828, .01260, .00001,
2486 + -.00059, .00733, .01590,
2487 + .44635, .16288, .08867, .01193, .00013,
2488 + -.00041, .00697, .01493,
2489 + .42947, .15556, .07996, .01127, .00025,
2490 + -.00025, .00662, .01397,
2491 + .41463, .14925, .07304, .01069, .00033,
2492 + -.00014, .00631, .01318 /
2493 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
2494 + .40016, .14317, .06691, .01012, .00040,
2495 + -.00003, .00600, .01243,
2496 + .38845, .13835, .06230, .00974, .00045,
2497 + .00004, .00576, .01180,
2498 + .37473, .13269, .05730, .00924, .00050,
2499 + .00011, .00549, .01112,
2500 + .36301, .12791, .05332, .00882, .00053,
2501 + .00016, .00526, .01058,
2502 + .35259, .12369, .05003, .00846, .00056,
2503 + .00021, .00505, .01009,
2504 + .33975, .11859, .04622, .00802, .00058,
2505 + .00026, .00480, .00951,
2506 + .32813, .11397, .04299, .00764, .00060,
2507 + .00029, .00458, .00901,
2508 + .31764, .10983, .04024, .00732, .00061,
2509 + .00032, .00440, .00856 /
2510 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
2511 + .30745, .10585, .03777, .00696, .00062,
2512 + .00035, .00419, .00814,
2513 + .29782, .10212, .03552, .00666, .00063,
2514 + .00037, .00401, .00777,
2515 + .28900, .09871, .03354, .00637, .00064,
2516 + .00039, .00386, .00742,
2517 + .28089, .09560, .03182, .00613, .00064,
2518 + .00040, .00371, .00712,
2519 + .27303, .09260, .03022, .00592, .00063,
2520 + .00041, .00357, .00682,
2521 + .26546, .08975, .02875, .00571, .00063,
2522 + .00042, .00344, .00653,
2523 + .25851, .08713, .02746, .00550, .00063,
2524 + .00043, .00333, .00626,
2525 + .25208, .08473, .02629, .00532, .00063,
2526 + .00043, .00322, .00603 /
2527 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
2528 + .24579, .08238, .02518, .00513, .00062,
2529 + .00043, .00311, .00583,
2530 + .23970, .08013, .02415, .00496, .00062,
2531 + .00044, .00302, .00560,
2532 + .23406, .07805, .02322, .00482, .00062,
2533 + .00044, .00292, .00541,
2534 + .22883, .07612, .02238, .00468, .00061,
2535 + .00044, .00284, .00522,
2536 + .22364, .07422, .02157, .00453, .00060,
2537 + .00044, .00275, .00507 /
2538 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
2539 + .62653, .24458, .19616, .01792, .00000,
2540 + .00000, .00929, .02409,
2541 + .60951, .23542, .17574, .01707, .00000,
2542 + .00000, .00897, .02262,
2543 + .58442, .22261, .15389, .01584, -.00171,
2544 + .00000, .00846, .02068,
2545 + .56644, .21385, .13785, .01509, -.00143,
2546 + .00000, .00812, .01936,
2547 + .54810, .20508, .12321, .01428, -.00114,
2548 + .00000, .00773, .01819,
2549 + .53258, .19770, .11219, .01361, -.00094,
2550 + .00000, .00742, .01726,
2551 + .51793, .19095, .10283, .01301, -.00075,
2552 + .00000, .00714, .01637,
2553 + .50271, .18412, .09403, .01244, -.00059,
2554 + .00000, .00684, .01547 /
2555 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
2556 + .48977, .17838, .08717, .01192, -.00046,
2557 + .00000, .00662, .01477,
2558 + .47753, .17302, .08119, .01147, -.00036,
2559 + .00000, .00638, .01411,
2560 + .46805, .16889, .07684, .01113, -.00027,
2561 + .00000, .00619, .01361,
2562 + .44846, .16047, .06878, .01043, -.00013,
2563 + .00000, .00586, .01258,
2564 + .43235, .15365, .06315, .00988, -.00003,
2565 + -.00044, .00557, .01183,
2566 + .41498, .14641, .05671, .00928, .00007,
2567 + -.00030, .00527, .01105,
2568 + .39754, .13929, .05097, .00874, .00015,
2569 + -.00020, .00498, .01029,
2570 + .38237, .13316, .04644, .00827, .00020,
2571 + -.00012, .00470, .00967 /
2572 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
2573 + .36772, .12728, .04242, .00780, .00025,
2574 + -.00005, .00445, .00909,
2575 + .35594, .12259, .03943, .00744, .00029,
2576 + .00001, .00427, .00862,
2577 + .34218, .11719, .03618, .00702, .00032,
2578 + .00006, .00404, .00811,
2579 + .33048, .11264, .03364, .00668, .00035,
2580 + .00010, .00384, .00767,
2581 + .32012, .10867, .03149, .00639, .00037,
2582 + .00014, .00369, .00732,
2583 + .30742, .10379, .02907, .00605, .00039,
2584 + .00017, .00350, .00687,
2585 + .29596, .09945, .02705, .00574, .00040,
2586 + .00020, .00333, .00646,
2587 + .28567, .09558, .02533, .00547, .00041,
2588 + .00021, .00317, .00611 /
2589 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
2590 + .27571, .09188, .02373, .00521, .00042,
2591 + .00024, .00302, .00580,
2592 + .26635, .08840, .02231, .00497, .00043,
2593 + .00025, .00289, .00551,
2594 + .25779, .08523, .02108, .00475, .00043,
2595 + .00026, .00277, .00528,
2596 + .24998, .08237, .02002, .00456, .00043,
2597 + .00027, .00267, .00502,
2598 + .24241, .07963, .01902, .00439, .00042,
2599 + .00027, .00256, .00478,
2600 + .23519, .07699, .01810, .00420, .00043,
2601 + .00028, .00246, .00458,
2602 + .22856, .07458, .01729, .00402, .00043,
2603 + .00029, .00236, .00442,
2604 + .22242, .07237, .01656, .00389, .00042,
2605 + .00029, .00227, .00424 /
2606 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
2607 + .21644, .07024, .01585, .00376, .00042,
2608 + .00030, .00221, .00406,
2609 + .21066, .06819, .01522, .00363, .00042,
2610 + .00029, .00212, .00390,
2611 + .20531, .06629, .01463, .00352, .00042,
2612 + .00030, .00206, .00376,
2613 + .20036, .06454, .01412, .00341, .00041,
2614 + .00030, .00198, .00364,
2615 + .19548, .06282, .01362, .00330, .00040,
2616 + .00030, .00193, .00352 /
2617 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
2618 + .60873, .22906, .12139, .01463, .00000,
2619 + .00000, .00772, .01894,
2620 + .58918, .21957, .10780, .01389, .00000,
2621 + .00000, .00731, .01763,
2622 + .56098, .20628, .09364, .01280, -.00125,
2623 + .00000, .00680, .01596,
2624 + .54137, .19717, .08315, .01203, -.00106,
2625 + .00000, .00645, .01491,
2626 + .52133, .18830, .07372, .01135, -.00085,
2627 + .00000, .00613, .01386,
2628 + .50453, .18097, .06667, .01079, -.00069,
2629 + .00000, .00587, .01301,
2630 + .48892, .17421, .06072, .01028, -.00056,
2631 + .00000, .00561, .01229,
2632 + .47287, .16734, .05526, .00974, -.00045,
2633 + .00000, .00535, .01157 /
2634 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
2635 + .45929, .16158, .05102, .00933, -.00036,
2636 + .00000, .00514, .01097,
2637 + .44650, .15628, .04736, .00894, -.00028,
2638 + .00000, .00492, .01046,
2639 + .43660, .15223, .04468, .00867, -.00022,
2640 + .00000, .00475, .01009,
2641 + .41636, .14397, .03979, .00809, -.00012,
2642 + .00000, .00443, .00931,
2643 + .39985, .13736, .03655, .00759, -.00005,
2644 + -.00033, .00422, .00871,
2645 + .38215, .13035, .03262, .00712, .00002,
2646 + -.00024, .00397, .00812,
2647 + .36460, .12351, .02918, .00664, .00008,
2648 + -.00015, .00371, .00754,
2649 + .34943, .11767, .02651, .00624, .00012,
2650 + -.00010, .00349, .00704 /
2651 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
2652 + .33478, .11207, .02413, .00589, .00016,
2653 + -.00004, .00332, .00655,
2654 + .32309, .10765, .02240, .00560, .00018,
2655 + -.00001, .00316, .00621,
2656 + .30952, .10253, .02055, .00527, .00021,
2657 + .00004, .00298, .00580,
2658 + .29801, .09826, .01906, .00500, .00023,
2659 + .00006, .00284, .00548,
2660 + .28784, .09454, .01786, .00479, .00025,
2661 + .00009, .00271, .00520,
2662 + .27554, .09001, .01649, .00447, .00026,
2663 + .00011, .00254, .00488,
2664 + .26446, .08598, .01535, .00422, .00027,
2665 + .00013, .00241, .00460,
2666 + .25453, .08240, .01436, .00403, .00028,
2667 + .00015, .00232, .00432 /
2668 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
2669 + .24497, .07897, .01348, .00382, .00028,
2670 + .00016, .00219, .00409,
2671 + .23603, .07577, .01269, .00361, .00029,
2672 + .00017, .00208, .00389,
2673 + .22790, .07290, .01201, .00344, .00029,
2674 + .00018, .00198, .00370,
2675 + .22047, .07028, .01143, .00330, .00029,
2676 + .00018, .00189, .00353,
2677 + .21329, .06776, .01088, .00316, .00029,
2678 + .00019, .00181, .00337,
2679 + .20644, .06537, .01038, .00303, .00028,
2680 + .00019, .00174, .00322,
2681 + .20018, .06319, .00994, .00290, .00029,
2682 + .00020, .00168, .00309,
2683 + .19443, .06121, .00955, .00279, .00028,
2684 + .00020, .00161, .00295 /
2685 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
2686 + .18884, .05929, .00916, .00268, .00029,
2687 + .00020, .00155, .00283,
2688 + .18345, .05746, .00881, .00258, .00028,
2689 + .00020, .00149, .00271,
2690 + .17846, .05576, .00850, .00249, .00028,
2691 + .00020, .00144, .00260,
2692 + .17388, .05420, .00821, .00242, .00027,
2693 + .00020, .00140, .00251,
2694 + .16936, .05267, .00793, .00234, .00028,
2695 + .00021, .00135, .00242 /
2696 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
2697 + .58574, .21302, .06198, .01222, .00000,
2698 + .00000, .00605, .01440,
2699 + .56422, .20321, .05408, .01140, .00000,
2700 + .00000, .00572, .01336,
2701 + .53367, .18962, .04646, .01035, -.00091,
2702 + .00000, .00526, .01201,
2703 + .51252, .18048, .04055, .00971, -.00078,
2704 + .00000, .00502, .01110,
2705 + .49138, .17152, .03532, .00906, -.00063,
2706 + .00000, .00466, .01037,
2707 + .47370, .16420, .03157, .00857, -.00051,
2708 + .00000, .00444, .00968,
2709 + .45740, .15753, .02845, .00810, -.00043,
2710 + .00000, .00422, .00910,
2711 + .44078, .15076, .02556, .00760, -.00034,
2712 + .00000, .00403, .00857 /
2713 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
2714 + .42668, .14518, .02343, .00730, -.00027,
2715 + .00000, .00386, .00806,
2716 + .41359, .14000, .02167, .00697, -.00022,
2717 + .00000, .00367, .00765,
2718 + .40355, .13606, .02042, .00670, -.00018,
2719 + .00000, .00352, .00736,
2720 + .38304, .12811, .01806, .00619, -.00011,
2721 + .00000, .00331, .00677,
2722 + .36649, .12178, .01653, .00580, -.00005,
2723 + -.00024, .00311, .00629,
2724 + .34883, .11510, .01464, .00538, .00000,
2725 + -.00017, .00290, .00584,
2726 + .33140, .10860, .01298, .00502, .00004,
2727 + -.00012, .00270, .00538,
2728 + .31640, .10308, .01170, .00472, .00008,
2729 + -.00007, .00256, .00501 /
2730 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
2731 + .30203, .09782, .01063, .00441, .00010,
2732 + -.00004, .00241, .00468,
2733 + .29064, .09371, .00984, .00418, .00012,
2734 + -.00001, .00228, .00441,
2735 + .27746, .08896, .00900, .00392, .00014,
2736 + .00001, .00214, .00413,
2737 + .26633, .08500, .00838, .00371, .00016,
2738 + .00004, .00203, .00387,
2739 + .25658, .08156, .00786, .00354, .00016,
2740 + .00006, .00194, .00365,
2741 + .24471, .07739, .00730, .00333, .00017,
2742 + .00007, .00181, .00341,
2743 + .23415, .07370, .00682, .00314, .00018,
2744 + .00009, .00171, .00321,
2745 + .22472, .07044, .00642, .00295, .00019,
2746 + .00010, .00162, .00303 /
2747 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
2748 + .21564, .06734, .00607, .00282, .00018,
2749 + .00010, .00154, .00284,
2750 + .20721, .06445, .00576, .00267, .00019,
2751 + .00011, .00146, .00267,
2752 + .19962, .06183, .00551, .00250, .00020,
2753 + .00012, .00138, .00253,
2754 + .19267, .05947, .00527, .00237, .00019,
2755 + .00012, .00133, .00243,
2756 + .18597, .05721, .00505, .00226, .00020,
2757 + .00013, .00128, .00231,
2758 + .17961, .05508, .00486, .00217, .00019,
2759 + .00013, .00122, .00220,
2760 + .17379, .05315, .00469, .00210, .00019,
2761 + .00013, .00118, .00210,
2762 + .16845, .05138, .00453, .00202, .00019,
2763 + .00013, .00113, .00200 /
2764 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
2765 + .16327, .04967, .00438, .00193, .00019,
2766 + .00014, .00108, .00191,
2767 + .15832, .04803, .00425, .00186, .00019,
2768 + .00014, .00104, .00183,
2769 + .15374, .04652, .00414, .00178, .00019,
2770 + .00013, .00099, .00176,
2771 + .14953, .04514, .00402, .00172, .00018,
2772 + .00013, .00096, .00169,
2773 + .14537, .04379, .00390, .00167, .00019,
2774 + .00014, .00094, .00163 /
2775 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
2776 + .55863, .19627, .01537, .00982, .00000,
2777 + .00000, .00473, .01080,
2778 + .53548, .18631, .01224, .00912, .00000,
2779 + .00000, .00444, .00996,
2780 + .50291, .17281, .01005, .00829, -.00067,
2781 + .00000, .00401, .00881,
2782 + .48083, .16372, .00778, .00766, -.00056,
2783 + .00000, .00369, .00828,
2784 + .45873, .15494, .00602, .00716, -.00047,
2785 + .00000, .00346, .00762,
2786 + .44057, .14778, .00479, .00676, -.00038,
2787 + .00000, .00327, .00709,
2788 + .42391, .14125, .00392, .00638, -.00032,
2789 + .00000, .00309, .00662,
2790 + .40698, .13474, .00319, .00599, -.00026,
2791 + .00000, .00291, .00615 /
2792 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
2793 + .39284, .12935, .00271, .00563, -.00021,
2794 + .00000, .00277, .00585,
2795 + .37966, .12441, .00228, .00537, -.00017,
2796 + .00000, .00265, .00554,
2797 + .36958, .12065, .00200, .00521, -.00014,
2798 + .00000, .00258, .00527,
2799 + .34916, .11307, .00175, .00480, -.00008,
2800 + .00000, .00236, .00479,
2801 + .33268, .10708, .00165, .00452, -.00005,
2802 + -.00019, .00220, .00445,
2803 + .31536, .10082, .00124, .00418, -.00001,
2804 + -.00013, .00205, .00407,
2805 + .29839, .09474, .00093, .00385, .00002,
2806 + -.00009, .00192, .00376,
2807 + .28385, .08960, .00074, .00359, .00005,
2808 + -.00005, .00179, .00349 /
2809 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
2810 + .26996, .08474, .00063, .00336, .00006,
2811 + -.00003, .00167, .00326,
2812 + .25905, .08091, .00059, .00317, .00007,
2813 + -.00002, .00159, .00306,
2814 + .24641, .07658, .00057, .00298, .00009,
2815 + .00001, .00149, .00280,
2816 + .23583, .07295, .00056, .00281, .00010,
2817 + .00003, .00141, .00263,
2818 + .22662, .06979, .00056, .00265, .00010,
2819 + .00003, .00133, .00250,
2820 + .21541, .06601, .00060, .00248, .00011,
2821 + .00004, .00124, .00234,
2822 + .20546, .06269, .00065, .00232, .00012,
2823 + .00006, .00116, .00218,
2824 + .19665, .05974, .00070, .00219, .00013,
2825 + .00007, .00109, .00203 /
2826 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
2827 + .18818, .05693, .00075, .00205, .00012,
2828 + .00007, .00103, .00193,
2829 + .18032, .05435, .00080, .00193, .00013,
2830 + .00008, .00098, .00181,
2831 + .17321, .05202, .00082, .00185, .00013,
2832 + .00008, .00094, .00171,
2833 + .16679, .04992, .00086, .00177, .00013,
2834 + .00008, .00089, .00162,
2835 + .16062, .04791, .00089, .00168, .00013,
2836 + .00009, .00086, .00154,
2837 + .15477, .04604, .00091, .00160, .00013,
2838 + .00009, .00083, .00147,
2839 + .14946, .04434, .00094, .00153, .00013,
2840 + .00009, .00079, .00139,
2841 + .14457, .04277, .00097, .00148, .00012,
2842 + .00009, .00075, .00133 /
2843 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
2844 + .13985, .04125, .00101, .00142, .00013,
2845 + .00009, .00072, .00126,
2846 + .13534, .03982, .00102, .00136, .00013,
2847 + .00009, .00068, .00120,
2848 + .13120, .03850, .00106, .00130, .00013,
2849 + .00009, .00065, .00116,
2850 + .12740, .03731, .00107, .00124, .00012,
2851 + .00009, .00063, .00112,
2852 + .12365, .03613, .00108, .00120, .00012,
2853 + .00009, .00060, .00108 /
2854 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
2855 + .52787, .17874, -.02035, .00762, .00000,
2856 + .00000, .00369, .00806,
2857 + .50343, .16893, -.01968, .00704, .00000,
2858 + .00000, .00338, .00744,
2859 + .46955, .15559, -.01740, .00625, -.00049,
2860 + .00000, .00306, .00658,
2861 + .44670, .14687, -.01671, .00584, -.00042,
2862 + .00000, .00282, .00600,
2863 + .42441, .13833, -.01583, .00540, -.00034,
2864 + .00000, .00260, .00549,
2865 + .40599, .13147, -.01503, .00504, -.00028,
2866 + .00000, .00246, .00508,
2867 + .38915, .12525, -.01421, .00476, -.00024,
2868 + .00000, .00233, .00473,
2869 + .37215, .11903, -.01334, .00448, -.00019,
2870 + .00000, .00218, .00440 /
2871 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
2872 + .35807, .11392, -.01259, .00426, -.00016,
2873 + .00000, .00205, .00416,
2874 + .34505, .10922, -.01186, .00401, -.00013,
2875 + .00000, .00196, .00393,
2876 + .33516, .10568, -.01129, .00382, -.00011,
2877 + .00000, .00188, .00374,
2878 + .31510, .09859, -.01002, .00349, -.00007,
2879 + .00000, .00172, .00342,
2880 + .29912, .09300, -.00915, .00326, -.00004,
2881 + -.00013, .00161, .00318,
2882 + .28235, .08719, -.00841, .00301, -.00002,
2883 + -.00010, .00149, .00293,
2884 + .26602, .08160, -.00762, .00277, .00001,
2885 + -.00007, .00137, .00265,
2886 + .25212, .07688, -.00696, .00256, .00002,
2887 + -.00005, .00127, .00244 /
2888 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
2889 + .23892, .07244, -.00635, .00236, .00003,
2890 + -.00003, .00120, .00227,
2891 + .22855, .06898, -.00586, .00222, .00004,
2892 + -.00002, .00114, .00213,
2893 + .21663, .06502, -.00531, .00208, .00005,
2894 + .00000, .00106, .00198,
2895 + .20667, .06177, -.00485, .00196, .00006,
2896 + .00001, .00100, .00185,
2897 + .19801, .05896, -.00445, .00185, .00007,
2898 + .00002, .00095, .00172,
2899 + .18759, .05556, -.00398, .00170, .00007,
2900 + .00003, .00089, .00159,
2901 + .17837, .05259, -.00359, .00161, .00008,
2902 + .00004, .00083, .00150,
2903 + .17020, .04996, -.00326, .00152, .00008,
2904 + .00004, .00081, .00142 /
2905 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
2906 + .16237, .04751, -.00292, .00145, .00009,
2907 + .00005, .00076, .00130,
2908 + .15515, .04522, -.00262, .00136, .00009,
2909 + .00005, .00071, .00123,
2910 + .14870, .04315, -.00236, .00126, .00008,
2911 + .00005, .00067, .00119,
2912 + .14283, .04132, -.00213, .00120, .00008,
2913 + .00005, .00063, .00113,
2914 + .13722, .03958, -.00191, .00114, .00009,
2915 + .00006, .00060, .00105,
2916 + .13190, .03793, -.00171, .00108, .00009,
2917 + .00006, .00058, .00099,
2918 + .12708, .03645, -.00155, .00105, .00009,
2919 + .00006, .00055, .00094,
2920 + .12270, .03509, -.00139, .00099, .00008,
2921 + .00006, .00052, .00090 /
2922 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
2923 + .11848, .03379, -.00125, .00094, .00008,
2924 + .00006, .00049, .00086,
2925 + .11443, .03255, -.00112, .00090, .00008,
2926 + .00006, .00047, .00082,
2927 + .11069, .03142, -.00102, .00087, .00009,
2928 + .00007, .00046, .00080,
2929 + .10729, .03039, -.00091, .00084, .00009,
2930 + .00006, .00044, .00077,
2931 + .10395, .02938, -.00080, .00081, .00008,
2932 + .00006, .00043, .00073 /
2933 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
2934 + .49380, .16125, -.04683, .00568, .00000,
2935 + .00000, .00284, .00596,
2936 + .46865, .15160, -.04317, .00520, .00000,
2937 + .00000, .00263, .00544,
2938 + .43401, .13868, -.03754, .00470, -.00036,
2939 + .00000, .00237, .00474,
2940 + .41103, .13026, -.03442, .00427, -.00030,
2941 + .00000, .00219, .00429,
2942 + .38853, .12217, -.03154, .00391, -.00025,
2943 + .00000, .00202, .00398,
2944 + .37026, .11560, -.02915, .00362, -.00021,
2945 + .00000, .00188, .00367,
2946 + .35361, .10973, -.02700, .00338, -.00018,
2947 + .00000, .00176, .00343,
2948 + .33687, .10389, -.02492, .00318, -.00014,
2949 + .00000, .00164, .00319 /
2950 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
2951 + .32310, .09913, -.02316, .00294, -.00013,
2952 + .00000, .00158, .00299,
2953 + .31041, .09474, -.02161, .00277, -.00010,
2954 + .00000, .00151, .00279,
2955 + .30079, .09144, -.02040, .00264, -.00009,
2956 + .00000, .00143, .00265,
2957 + .28142, .08489, -.01816, .00241, -.00006,
2958 + .00000, .00131, .00244,
2959 + .26610, .07978, -.01634, .00221, -.00004,
2960 + -.00010, .00122, .00223,
2961 + .25010, .07449, -.01478, .00203, -.00002,
2962 + -.00008, .00113, .00204,
2963 + .23458, .06941, -.01330, .00185, .00000,
2964 + -.00005, .00104, .00190,
2965 + .22144, .06515, -.01206, .00171, .00001,
2966 + -.00003, .00096, .00174 /
2967 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
2968 + .20906, .06118, -.01090, .00158, .00002,
2969 + -.00002, .00089, .00160,
2970 + .19934, .05808, -.01005, .00150, .00002,
2971 + -.00002, .00084, .00152,
2972 + .18826, .05457, -.00909, .00139, .00003,
2973 + .00000, .00078, .00139,
2974 + .17906, .05166, -.00831, .00130, .00004,
2975 + .00001, .00074, .00130,
2976 + .17111, .04916, -.00766, .00121, .00004,
2977 + .00001, .00071, .00122,
2978 + .16150, .04619, -.00686, .00114, .00005,
2979 + .00002, .00065, .00112,
2980 + .15306, .04357, -.00622, .00107, .00005,
2981 + .00002, .00062, .00103,
2982 + .14566, .04128, -.00563, .00097, .00005,
2983 + .00002, .00057, .00095 /
2984 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
2985 + .13859, .03911, -.00512, .00090, .00006,
2986 + .00003, .00053, .00092,
2987 + .13205, .03714, -.00466, .00086, .00006,
2988 + .00003, .00049, .00086,
2989 + .12618, .03538, -.00428, .00083, .00006,
2990 + .00003, .00048, .00080,
2991 + .12092, .03378, -.00392, .00078, .00005,
2992 + .00003, .00045, .00076,
2993 + .11591, .03227, -.00359, .00073, .00005,
2994 + .00003, .00042, .00073,
2995 + .11114, .03087, -.00330, .00070, .00006,
2996 + .00004, .00040, .00069,
2997 + .10684, .02959, -.00303, .00068, .00006,
2998 + .00004, .00039, .00064,
2999 + .10294, .02843, -.00281, .00065, .00006,
3000 + .00004, .00038, .00060 /
3001 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
3002 + .09917, .02733, -.00260, .00061, .00006,
3003 + .00004, .00036, .00058,
3004 + .09559, .02627, -.00240, .00059, .00006,
3005 + .00004, .00034, .00056,
3006 + .09231, .02532, -.00220, .00056, .00005,
3007 + .00004, .00032, .00052,
3008 + .08932, .02444, -.00205, .00054, .00005,
3009 + .00004, .00031, .00050,
3010 + .08641, .02358, -.00191, .00051, .00005,
3011 + .00004, .00030, .00049 /
3012 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
3013 + .45780, .14465, -.06671, .00473, .00000,
3014 + .00000, .00185, .00402,
3015 + .43210, .13540, -.06061, .00436, .00000,
3016 + .00000, .00171, .00363,
3017 + .39761, .12304, -.05222, .00374, -.00026,
3018 + .00000, .00151, .00322,
3019 + .37482, .11497, -.04749, .00335, -.00022,
3020 + .00000, .00135, .00303,
3021 + .35263, .10733, -.04298, .00308, -.00018,
3022 + .00000, .00130, .00269,
3023 + .33473, .10118, -.03945, .00284, -.00016,
3024 + .00000, .00121, .00251,
3025 + .31855, .09569, -.03630, .00264, -.00013,
3026 + .00000, .00114, .00231,
3027 + .30234, .09030, -.03322, .00247, -.00011,
3028 + .00000, .00104, .00210 /
3029 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
3030 + .28901, .08589, -.03083, .00235, -.00009,
3031 + .00000, .00099, .00196,
3032 + .27682, .08186, -.02863, .00219, -.00008,
3033 + .00000, .00093, .00185,
3034 + .26764, .07882, -.02702, .00207, -.00007,
3035 + .00000, .00089, .00179,
3036 + .24917, .07282, -.02389, .00189, -.00004,
3037 + .00000, .00084, .00158,
3038 + .23469, .06818, -.02150, .00171, -.00003,
3039 + -.00007, .00077, .00146,
3040 + .21961, .06341, -.01932, .00159, -.00002,
3041 + -.00005, .00069, .00133,
3042 + .20515, .05883, -.01727, .00143, .00000,
3043 + -.00004, .00065, .00120,
3044 + .19295, .05502, -.01561, .00130, .00001,
3045 + -.00003, .00060, .00112 /
3046 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
3047 + .18144, .05149, -.01411, .00123, .00001,
3048 + -.00002, .00055, .00102,
3049 + .17252, .04872, -.01297, .00117, .00002,
3050 + -.00001, .00053, .00092,
3051 + .16237, .04563, -.01170, .00107, .00002,
3052 + -.00001, .00048, .00086,
3053 + .15397, .04306, -.01066, .00097, .00003,
3054 + .00000, .00044, .00081,
3055 + .14671, .04086, -.00980, .00091, .00003,
3056 + .00000, .00042, .00076,
3057 + .13798, .03827, -.00886, .00086, .00004,
3058 + .00002, .00039, .00072,
3059 + .13035, .03599, -.00801, .00079, .00003,
3060 + .00002, .00037, .00066,
3061 + .12366, .03401, -.00728, .00072, .00003,
3062 + .00002, .00035, .00061 /
3063 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
3064 + .11731, .03214, -.00665, .00070, .00003,
3065 + .00002, .00032, .00056,
3066 + .11146, .03044, -.00606, .00067, .00003,
3067 + .00002, .00030, .00052,
3068 + .10623, .02891, -.00556, .00063, .00004,
3069 + .00003, .00026, .00049,
3070 + .10157, .02754, -.00512, .00059, .00004,
3071 + .00003, .00025, .00046,
3072 + .09714, .02624, -.00473, .00057, .00004,
3073 + .00003, .00025, .00043,
3074 + .09296, .02505, -.00435, .00051, .00004,
3075 + .00003, .00024, .00040,
3076 + .08920, .02395, -.00404, .00048, .00004,
3077 + .00003, .00023, .00040,
3078 + .08576, .02298, -.00374, .00046, .00004,
3079 + .00002, .00022, .00037 /
3080 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
3081 + .08244, .02204, -.00346, .00045, .00003,
3082 + .00002, .00019, .00034,
3083 + .07932, .02115, -.00322, .00042, .00003,
3084 + .00002, .00019, .00033,
3085 + .07646, .02034, -.00300, .00041, .00003,
3086 + .00002, .00018, .00032,
3087 + .07385, .01959, -.00281, .00039, .00003,
3088 + .00002, .00019, .00031,
3089 + .07129, .01888, -.00262, .00038, .00003,
3090 + .00002, .00017, .00028 /
3091 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
3092 + .41964, .12752, -.07959, .00318, .00000,
3093 + .00000, .00144, .00291,
3094 + .39418, .11872, -.07177, .00291, .00000,
3095 + .00000, .00130, .00263,
3096 + .35996, .10717, -.06149, .00257, -.00019,
3097 + .00000, .00115, .00229,
3098 + .33769, .09975, -.05553, .00236, -.00017,
3099 + .00000, .00107, .00204,
3100 + .31617, .09269, -.04995, .00217, -.00014,
3101 + .00000, .00096, .00185,
3102 + .29883, .08707, -.04557, .00202, -.00012,
3103 + .00000, .00089, .00168,
3104 + .28327, .08206, -.04179, .00186, -.00010,
3105 + .00000, .00083, .00159,
3106 + .26782, .07711, -.03808, .00169, -.00008,
3107 + .00000, .00076, .00150 /
3108 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
3109 + .25522, .07310, -.03522, .00160, -.00006,
3110 + .00000, .00072, .00138,
3111 + .24368, .06949, -.03262, .00151, -.00006,
3112 + .00000, .00066, .00130,
3113 + .23499, .06678, -.03068, .00144, -.00005,
3114 + .00000, .00063, .00121,
3115 + .21779, .06145, -.02700, .00127, -.00004,
3116 + .00000, .00057, .00106,
3117 + .20429, .05730, -.02429, .00116, -.00003,
3118 + -.00005, .00053, .00098,
3119 + .19034, .05305, -.02172, .00106, -.00001,
3120 + -.00004, .00047, .00091,
3121 + .17697, .04902, -.01937, .00100, .00000,
3122 + -.00003, .00043, .00083,
3123 + .16580, .04566, -.01744, .00091, .00000,
3124 + -.00002, .00040, .00074 /
3125 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
3126 + .15536, .04256, -.01570, .00083, .00001,
3127 + -.00001, .00037, .00068,
3128 + .14723, .04017, -.01439, .00078, .00001,
3129 + -.00001, .00035, .00062,
3130 + .13806, .03746, -.01294, .00069, .00002,
3131 + .00000, .00032, .00059,
3132 + .13051, .03526, -.01180, .00063, .00002,
3133 + .00000, .00029, .00055,
3134 + .12400, .03335, -.01084, .00059, .00002,
3135 + .00000, .00028, .00051,
3136 + .11624, .03113, -.00974, .00056, .00002,
3137 + .00000, .00027, .00044,
3138 + .10943, .02918, -.00880, .00052, .00002,
3139 + .00000, .00025, .00042,
3140 + .10349, .02748, -.00802, .00050, .00003,
3141 + .00001, .00023, .00039 /
3142 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
3143 + .09787, .02589, -.00729, .00046, .00002,
3144 + .00001, .00021, .00037,
3145 + .09274, .02446, -.00665, .00043, .00002,
3146 + .00001, .00020, .00035,
3147 + .08816, .02317, -.00610, .00041, .00002,
3148 + .00001, .00019, .00031,
3149 + .08406, .02203, -.00562, .00038, .00002,
3150 + .00001, .00018, .00029,
3151 + .08018, .02094, -.00519, .00037, .00002,
3152 + .00001, .00017, .00027,
3153 + .07655, .01994, -.00478, .00035, .00002,
3154 + .00001, .00016, .00026,
3155 + .07328, .01902, -.00443, .00033, .00002,
3156 + .00001, .00014, .00024,
3157 + .07030, .01821, -.00413, .00031, .00002,
3158 + .00001, .00014, .00024 /
3159 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
3160 + .06745, .01742, -.00382, .00028, .00002,
3161 + .00001, .00013, .00022,
3162 + .06475, .01669, -.00357, .00027, .00002,
3163 + .00001, .00013, .00021,
3164 + .06230, .01601, -.00332, .00027, .00003,
3165 + .00002, .00012, .00020,
3166 + .06007, .01541, -.00311, .00026, .00003,
3167 + .00002, .00011, .00019,
3168 + .05789, .01481, -.00291, .00023, .00003,
3169 + .00002, .00011, .00019 /
3170 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
3171 + .37998, .11106, -.08727, .00220, .00000,
3172 + .00000, .00111, .00210,
3173 + .35524, .10292, -.07828, .00190, .00000,
3174 + .00000, .00103, .00191,
3175 + .32216, .09227, -.06668, .00169, -.00014,
3176 + .00000, .00088, .00160,
3177 + .30067, .08547, -.05989, .00149, -.00012,
3178 + .00000, .00078, .00153,
3179 + .28012, .07905, -.05355, .00137, -.00010,
3180 + .00000, .00073, .00132,
3181 + .26375, .07395, -.04864, .00123, -.00009,
3182 + .00000, .00067, .00122,
3183 + .24909, .06945, -.04446, .00116, -.00008,
3184 + .00000, .00060, .00114,
3185 + .23452, .06505, -.04038, .00109, -.00006,
3186 + .00000, .00054, .00104 /
3187 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
3188 + .22272, .06145, -.03712, .00104, -.00005,
3189 + .00000, .00051, .00090,
3190 + .21198, .05824, -.03430, .00096, -.00004,
3191 + .00000, .00049, .00085,
3192 + .20392, .05585, -.03225, .00089, -.00004,
3193 + .00000, .00048, .00083,
3194 + .18806, .05108, -.02828, .00078, -.00003,
3195 + .00000, .00041, .00077,
3196 + .17568, .04744, -.02536, .00072, -.00002,
3197 + -.00004, .00039, .00068,
3198 + .16292, .04373, -.02253, .00065, -.00002,
3199 + -.00003, .00036, .00059,
3200 + .15078, .04024, -.01997, .00060, -.00001,
3201 + -.00002, .00032, .00055,
3202 + .14067, .03736, -.01791, .00055, -.00001,
3203 + -.00002, .00029, .00050 /
3204 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
3205 + .13129, .03468, -.01605, .00049, .00000,
3206 + -.00001, .00027, .00045,
3207 + .12407, .03262, -.01466, .00046, .00000,
3208 + -.00001, .00024, .00042,
3209 + .11588, .03032, -.01318, .00043, .00000,
3210 + -.00001, .00023, .00038,
3211 + .10916, .02843, -.01199, .00040, .00000,
3212 + -.00001, .00022, .00035,
3213 + .10339, .02683, -.01100, .00038, .00001,
3214 + .00001, .00020, .00033,
3215 + .09658, .02493, -.00986, .00033, .00001,
3216 + .00001, .00019, .00030,
3217 + .09061, .02330, -.00890, .00031, .00001,
3218 + .00001, .00016, .00029,
3219 + .08541, .02188, -.00808, .00029, .00001,
3220 + .00001, .00015, .00028 /
3221 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
3222 + .08055, .02056, -.00735, .00026, .00001,
3223 + .00001, .00014, .00025,
3224 + .07611, .01935, -.00670, .00025, .00001,
3225 + .00001, .00014, .00022,
3226 + .07216, .01828, -.00614, .00022, .00001,
3227 + .00001, .00013, .00021,
3228 + .06862, .01733, -.00564, .00023, .00001,
3229 + .00001, .00011, .00020,
3230 + .06526, .01644, -.00519, .00022, .00001,
3231 + .00001, .00010, .00019,
3232 + .06214, .01561, -.00479, .00022, .00002,
3233 + .00002, .00010, .00018,
3234 + .05934, .01487, -.00443, .00021, .00002,
3235 + .00001, .00010, .00015,
3236 + .05683, .01420, -.00411, .00018, .00002,
3237 + .00001, .00009, .00015 /
3238 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
3239 + .05443, .01356, -.00382, .00017, .00002,
3240 + .00001, .00009, .00015,
3241 + .05214, .01296, -.00356, .00016, .00002,
3242 + .00001, .00009, .00014,
3243 + .05005, .01242, -.00332, .00016, .00002,
3244 + .00001, .00008, .00014,
3245 + .04816, .01193, -.00312, .00015, .00002,
3246 + .00001, .00008, .00014,
3247 + .04634, .01145, -.00292, .00015, .00002,
3248 + .00001, .00008, .00012 /
3249 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
3250 + .34088, .09608, -.09141, .00166, .00000,
3251 + .00000, .00065, .00127,
3252 + .31697, .08860, -.08165, .00149, .00000,
3253 + .00000, .00057, .00115,
3254 + .28534, .07885, -.06920, .00125, -.00010,
3255 + .00000, .00047, .00106,
3256 + .26493, .07276, -.06184, .00121, -.00009,
3257 + .00000, .00044, .00085,
3258 + .24576, .06693, -.05507, .00103, -.00008,
3259 + .00000, .00041, .00077,
3260 + .23034, .06239, -.04988, .00097, -.00006,
3261 + .00000, .00037, .00069,
3262 + .21665, .05838, -.04540, .00090, -.00005,
3263 + .00000, .00035, .00064,
3264 + .20320, .05442, -.04111, .00084, -.00004,
3265 + .00000, .00031, .00060 /
3266 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
3267 + .19232, .05126, -.03782, .00077, -.00004,
3268 + .00000, .00031, .00060,
3269 + .18251, .04842, -.03485, .00072, -.00003,
3270 + .00000, .00028, .00054,
3271 + .17514, .04633, -.03264, .00069, -.00003,
3272 + .00000, .00027, .00047,
3273 + .16063, .04218, -.02850, .00059, -.00002,
3274 + .00000, .00024, .00045,
3275 + .14937, .03902, -.02547, .00057, -.00002,
3276 + -.00003, .00021, .00039,
3277 + .13793, .03579, -.02258, .00052, .00000,
3278 + -.00002, .00020, .00033,
3279 + .12711, .03277, -.01997, .00046, .00000,
3280 + -.00001, .00017, .00032,
3281 + .11813, .03030, -.01785, .00041, .00000,
3282 + -.00001, .00016, .00030 /
3283 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
3284 + .10980, .02802, -.01596, .00038, .00000,
3285 + -.00001, .00015, .00026,
3286 + .10342, .02626, -.01454, .00033, .00001,
3287 + .00000, .00014, .00026,
3288 + .09623, .02431, -.01301, .00030, .00001,
3289 + .00000, .00013, .00023,
3290 + .09034, .02274, -.01179, .00029, .00001,
3291 + .00000, .00011, .00020,
3292 + .08529, .02140, -.01078, .00026, .00001,
3293 + .00000, .00011, .00019,
3294 + .07934, .01982, -.00963, .00026, .00001,
3295 + .00000, .00009, .00016,
3296 + .07421, .01845, -.00867, .00024, .00000,
3297 + .00000, .00009, .00015,
3298 + .06975, .01727, -.00786, .00022, .00000,
3299 + .00000, .00008, .00015 /
3300 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
3301 + .06556, .01617, -.00713, .00020, .00000,
3302 + .00000, .00008, .00014,
3303 + .06174, .01519, -.00648, .00020, .00001,
3304 + .00001, .00007, .00013,
3305 + .05835, .01430, -.00593, .00018, .00001,
3306 + .00001, .00007, .00012,
3307 + .05537, .01353, -.00546, .00017, .00001,
3308 + .00001, .00007, .00012,
3309 + .05255, .01280, -.00499, .00014, .00001,
3310 + .00001, .00005, .00010,
3311 + .04993, .01213, -.00461, .00014, .00001,
3312 + .00001, .00006, .00009,
3313 + .04758, .01152, -.00427, .00013, .00001,
3314 + .00001, .00006, .00009,
3315 + .04546, .01098, -.00396, .00011, .00001,
3316 + .00001, .00004, .00009 /
3317 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
3318 + .04343, .01046, -.00368, .00011, .00001,
3319 + .00001, .00004, .00009,
3320 + .04153, .00997, -.00342, .00010, .00001,
3321 + .00001, .00004, .00008,
3322 + .03979, .00954, -.00319, .00009, .00001,
3323 + .00001, .00004, .00008,
3324 + .03822, .00914, -.00298, .00009, .00001,
3325 + .00001, .00003, .00007,
3326 + .03669, .00876, -.00279, .00009, .00001,
3327 + .00001, .00003, .00007 /
3328 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
3329 + .30123, .08125, -.09127, .00094, .00000,
3330 + .00000, .00050, .00095,
3331 + .27851, .07467, -.08120, .00087, .00000,
3332 + .00000, .00044, .00084,
3333 + .24888, .06601, -.06853, .00079, -.00008,
3334 + .00000, .00041, .00066,
3335 + .23008, .06054, -.06101, .00067, -.00007,
3336 + .00000, .00037, .00062,
3337 + .21221, .05548, -.05412, .00060, -.00006,
3338 + .00000, .00032, .00056,
3339 + .19806, .05149, -.04883, .00056, -.00005,
3340 + .00000, .00028, .00052,
3341 + .18557, .04799, -.04432, .00051, -.00003,
3342 + .00000, .00025, .00048,
3343 + .17337, .04458, -.03997, .00045, -.00003,
3344 + .00000, .00023, .00043 /
3345 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
3346 + .16350, .04187, -.03659, .00042, -.00002,
3347 + .00000, .00020, .00038,
3348 + .15460, .03941, -.03360, .00039, -.00002,
3349 + .00000, .00018, .00034,
3350 + .14798, .03759, -.03150, .00038, -.00002,
3351 + .00000, .00020, .00034,
3352 + .13498, .03405, -.02738, .00032, -.00001,
3353 + .00000, .00018, .00032,
3354 + .12506, .03136, -.02440, .00029, -.00001,
3355 + -.00002, .00015, .00028,
3356 + .11492, .02867, -.02154, .00026, -.00001,
3357 + -.00002, .00014, .00025,
3358 + .10535, .02611, -.01890, .00023, .00000,
3359 + -.00001, .00012, .00022,
3360 + .09748, .02403, -.01684, .00022, .00000,
3361 + -.00001, .00013, .00018 /
3362 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
3363 + .09023, .02213, -.01501, .00019, .00000,
3364 + .00000, .00009, .00018,
3365 + .08465, .02070, -.01366, .00019, .00000,
3366 + .00000, .00009, .00017,
3367 + .07846, .01908, -.01217, .00017, .00000,
3368 + .00000, .00009, .00015,
3369 + .07339, .01778, -.01102, .00016, .00000,
3370 + .00000, .00009, .00014,
3371 + .06907, .01668, -.01006, .00017, .00000,
3372 + .00000, .00009, .00012,
3373 + .06403, .01538, -.00893, .00013, .00000,
3374 + .00000, .00007, .00011,
3375 + .05965, .01427, -.00801, .00012, .00001,
3376 + .00001, .00006, .00011,
3377 + .05587, .01332, -.00726, .00013, .00001,
3378 + .00001, .00006, .00010 /
3379 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
3380 + .05235, .01242, -.00656, .00009, .00001,
3381 + .00001, .00006, .00010,
3382 + .04916, .01163, -.00595, .00010, .00001,
3383 + .00001, .00004, .00008,
3384 + .04633, .01093, -.00543, .00008, .00001,
3385 + .00001, .00005, .00007,
3386 + .04384, .01031, -.00498, .00008, .00001,
3387 + .00001, .00005, .00007,
3388 + .04148, .00973, -.00458, .00008, .00001,
3389 + .00001, .00005, .00007,
3390 + .03930, .00919, -.00420, .00008, .00001,
3391 + .00001, .00003, .00006,
3392 + .03734, .00871, -.00388, .00007, .00001,
3393 + .00001, .00003, .00006,
3394 + .03559, .00827, -.00360, .00007, .00001,
3395 + .00001, .00003, .00006 /
3396 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
3397 + .03391, .00787, -.00334, .00007, .00001,
3398 + .00001, .00003, .00006,
3399 + .03235, .00749, -.00310, .00007, .00001,
3400 + .00001, .00003, .00005,
3401 + .03093, .00714, -.00288, .00006, .00001,
3402 + .00001, .00003, .00005,
3403 + .02966, .00683, -.00269, .00006, .00001,
3404 + .00001, .00002, .00005,
3405 + .02842, .00653, -.00251, .00005, .00001,
3406 + .00001, .00002, .00005 /
3407 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
3408 + .22523, .05605, -.08332, .00042, .00000,
3409 + .00000, .00016, .00036,
3410 + .20600, .05086, -.07345, .00040, .00000,
3411 + .00000, .00019, .00026,
3412 + .18128, .04433, -.06119, .00027, -.00004,
3413 + .00000, .00012, .00026,
3414 + .16572, .04028, -.05403, .00027, -.00003,
3415 + .00000, .00012, .00022,
3416 + .15125, .03651, -.04749, .00023, -.00003,
3417 + .00000, .00012, .00019,
3418 + .13996, .03357, -.04259, .00020, -.00002,
3419 + .00000, .00012, .00021,
3420 + .13004, .03103, -.03834, .00019, -.00002,
3421 + .00000, .00010, .00017,
3422 + .12041, .02859, -.03437, .00019, -.00002,
3423 + .00000, .00010, .00014 /
3424 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
3425 + .11274, .02664, -.03125, .00017, -.00002,
3426 + .00000, .00008, .00012,
3427 + .10587, .02492, -.02860, .00016, -.00001,
3428 + .00000, .00008, .00014,
3429 + .10078, .02364, -.02664, .00014, -.00001,
3430 + .00000, .00007, .00013,
3431 + .09090, .02119, -.02291, .00012, -.00001,
3432 + .00000, .00007, .00010,
3433 + .08343, .01934, -.02027, .00010, -.00001,
3434 + -.00001, .00005, .00010,
3435 + .07591, .01749, -.01772, .00009, -.00001,
3436 + -.00001, .00005, .00009,
3437 + .06891, .01579, -.01544, .00008, -.00001,
3438 + -.00001, .00005, .00008,
3439 + .06319, .01441, -.01364, .00008, -.00001,
3440 + -.00001, .00004, .00008 /
3441 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
3442 + .05797, .01315, -.01204, .00006, .00000,
3443 + .00000, .00004, .00005,
3444 + .05402, .01220, -.01089, .00007, .00000,
3445 + .00000, .00004, .00005,
3446 + .04962, .01116, -.00963, .00007, .00000,
3447 + .00000, .00002, .00005,
3448 + .04609, .01032, -.00865, .00005, .00000,
3449 + .00000, .00003, .00004,
3450 + .04312, .00962, -.00784, .00004, .00000,
3451 + .00000, .00003, .00004,
3452 + .03962, .00881, -.00696, .00005, .00000,
3453 + .00000, .00003, .00004,
3454 + .03665, .00811, -.00620, .00004, .00000,
3455 + .00000, .00003, .00004,
3456 + .03409, .00751, -.00555, .00002, .00000,
3457 + .00000, .00003, .00002 /
3458 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
3459 + .03172, .00696, -.00501, .00004, .00000,
3460 + .00000, .00003, .00002,
3461 + .02957, .00648, -.00451, .00002, .00000,
3462 + .00000, .00003, .00002,
3463 + .02771, .00604, -.00409, .00002, .00000,
3464 + .00000, .00001, .00003,
3465 + .02606, .00567, -.00374, .00002, .00000,
3466 + .00000, .00001, .00003,
3467 + .02452, .00532, -.00341, .00002, .00000,
3468 + .00000, .00001, .00003,
3469 + .02311, .00499, -.00312, .00002, .00000,
3470 + .00000, .00001, .00003,
3471 + .02186, .00471, -.00287, .00002, .00000,
3472 + .00000, .00001, .00001,
3473 + .02072, .00446, -.00265, .00002, .00000,
3474 + .00000, .00001, .00001 /
3475 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/
3476 + .01966, .00422, -.00245, .00002, .00000,
3477 + .00000, .00001, .00001,
3478 + .01866, .00400, -.00226, .00002, .00000,
3479 + .00000, .00001, .00001,
3480 + .01777, .00379, -.00210, .00001, .00000,
3481 + .00000, .00001, .00001,
3482 + .01696, .00361, -.00196, .00001, .00000,
3483 + .00000, .00001, .00001,
3484 + .01618, .00344, -.00182, .00001, .00000,
3485 + .00000, .00001, .00001 /
3486 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/
3487 + .15666, .03563, -.06789, .00014, .00000,
3488 + .00000, .00005, .00011,
3489 + .14168, .03198, -.05931, .00009, .00000,
3490 + .00000, .00005, .00011,
3491 + .12256, .02744, -.04886, .00014, -.00002,
3492 + .00000, .00006, .00006,
3493 + .11080, .02463, -.04268, .00009, -.00001,
3494 + .00000, .00006, .00006,
3495 + .10000, .02209, -.03719, .00009, -.00001,
3496 + .00000, .00003, .00006,
3497 + .09163, .02013, -.03304, .00007, -.00001,
3498 + .00000, .00003, .00006,
3499 + .08438, .01844, -.02954, .00005, -.00001,
3500 + .00000, .00003, .00005,
3501 + .07743, .01683, -.02625, .00005, -.00001,
3502 + .00000, .00003, .00004 /
3503 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
3504 + .07189, .01557, -.02375, .00006, -.00001,
3505 + .00000, .00003, .00004,
3506 + .06700, .01445, -.02155, .00004, -.00001,
3507 + .00000, .00003, .00003,
3508 + .06343, .01365, -.02000, .00005, -.00001,
3509 + .00000, .00001, .00003,
3510 + .05651, .01208, -.01703, .00004, .00000,
3511 + .00000, .00001, .00003,
3512 + .05136, .01092, -.01495, .00004, .00000,
3513 + .00000, .00001, .00003,
3514 + .04624, .00978, -.01295, .00004, .00000,
3515 + .00000, .00001, .00001,
3516 + .04150, .00873, -.01117, .00002, .00000,
3517 + .00000, .00001, .00003,
3518 + .03770, .00788, -.00981, .00003, .00000,
3519 + .00000, .00001, .00003 /
3520 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
3521 + .03427, .00714, -.00859, .00003, .00000,
3522 + .00000, .00001, .00001,
3523 + .03169, .00657, -.00768, .00001, .00000,
3524 + .00000, .00001, .00001,
3525 + .02885, .00595, -.00676, .00001, .00000,
3526 + .00000, .00001, .00001,
3527 + .02657, .00548, -.00602, .00001, .00000,
3528 + .00000, .00000, .00001,
3529 + .02467, .00505, -.00540, .00001, .00000,
3530 + .00000, .00000, .00001,
3531 + .02247, .00458, -.00475, .00001, .00000,
3532 + .00000, .00000, .00001,
3533 + .02061, .00419, -.00421, .00001, .00000,
3534 + .00000, .00000, .00001,
3535 + .01903, .00386, -.00376, .00001, .00000,
3536 + .00000, .00000, .00001 /
3537 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
3538 + .01757, .00354, -.00336, .00001, .00000,
3539 + .00000, .00000, .00001,
3540 + .01627, .00327, -.00301, .00001, .00000,
3541 + .00000, .00000, .00001,
3542 + .01513, .00304, -.00271, .00001, .00000,
3543 + .00000, .00000, .00000,
3544 + .01415, .00283, -.00246, .00001, .00000,
3545 + .00000, .00000, .00000,
3546 + .01324, .00264, -.00224, .00001, .00000,
3547 + .00000, .00000, .00000,
3548 + .01240, .00247, -.00204, .00001, .00000,
3549 + .00000, .00000, .00000,
3550 + .01166, .00232, -.00187, .00001, .00000,
3551 + .00000, .00000, .00000,
3552 + .01099, .00217, -.00171, .00001, .00000,
3553 + .00000, .00000, .00000 /
3554 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/
3555 + .01037, .00205, -.00158, .00001, .00000,
3556 + .00000, .00000, .00000,
3557 + .00980, .00192, -.00145, .00001, .00000,
3558 + .00000, .00000, .00000,
3559 + .00929, .00182, -.00134, .00000, .00000,
3560 + .00000, .00000, .00000,
3561 + .00882, .00172, -.00123, .00000, .00000,
3562 + .00000, .00000, .00000,
3563 + .00837, .00164, -.00115, .00000, .00000,
3564 + .00000, .00000, .00000 /
3565 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/
3566 + .09926, .02039, -.04922, .00007, .00000,
3567 + .00000, -.00004, .00002,
3568 + .08857, .01809, -.04260, .00007, .00000,
3569 + .00000, -.00001, .00002,
3570 + .07529, .01525, -.03457, .00004, -.00001,
3571 + .00000, -.00001, .00002,
3572 + .06724, .01353, -.02994, .00004, .00000,
3573 + .00000, .00000, .00002,
3574 + .05985, .01198, -.02576, .00004, .00000,
3575 + .00000, .00000, .00002,
3576 + .05428, .01083, -.02270, .00004, .00000,
3577 + .00000, .00000, .00000,
3578 + .04947, .00982, -.02012, .00004, .00000,
3579 + .00000, .00000, .00000,
3580 + .04492, .00887, -.01774, .00004, .00000,
3581 + .00000, .00000, .00002 /
3582 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
3583 + .04137, .00812, -.01590, .00002, .00000,
3584 + .00000, .00000, .00002,
3585 + .03824, .00750, -.01434, .00002, .00000,
3586 + .00000, .00000, .00000,
3587 + .03597, .00701, -.01319, .00000, .00000,
3588 + .00000, .00000, .00000,
3589 + .03161, .00613, -.01113, .00002, .00000,
3590 + .00000, .00000, .00000,
3591 + .02840, .00548, -.00967, .00002, .00000,
3592 + .00000, .00000, .00000,
3593 + .02526, .00485, -.00828, .00002, .00000,
3594 + .00000, .00000, .00000,
3595 + .02239, .00428, -.00707, .00002, .00000,
3596 + .00000, .00000, .00000,
3597 + .02014, .00383, -.00613, .00000, .00000,
3598 + .00000, .00000, .00000 /
3599 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/
3600 + .01809, .00342, -.00531, .00000, .00000,
3601 + .00000, .00000, .00000,
3602 + .01659, .00313, -.00475, .00002, .00000,
3603 + .00000, .00000, .00000,
3604 + .01495, .00280, -.00411, .00000, .00000,
3605 + .00000, .00000, .00000,
3606 + .01365, .00254, -.00363, .00000, .00000,
3607 + .00000, .00000, .00000,
3608 + .01257, .00234, -.00327, .00002, .00000,
3609 + .00000, .00000, .00000,
3610 + .01134, .00211, -.00283, .00000, .00000,
3611 + .00000, .00000, .00000,
3612 + .01030, .00191, -.00248, .00000, .00000,
3613 + .00000, .00000, .00000,
3614 + .00942, .00174, -.00220, .00000, .00000,
3615 + .00000, .00000, .00000 /
3616 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/
3617 + .00864, .00158, -.00195, .00000, .00000,
3618 + .00000, .00000, .00000,
3619 + .00793, .00146, -.00174, .00000, .00000,
3620 + .00000, .00000, .00000,
3621 + .00733, .00134, -.00156, .00000, .00000,
3622 + .00000, .00000, .00000,
3623 + .00679, .00124, -.00140, .00000, .00000,
3624 + .00000, .00000, .00000,
3625 + .00632, .00114, -.00127, .00000, .00000,
3626 + .00000, .00000, .00000,
3627 + .00587, .00106, -.00114, .00000, .00000,
3628 + .00000, .00000, .00000,
3629 + .00548, .00098, -.00104, .00000, .00000,
3630 + .00000, .00000, .00000,
3631 + .00514, .00093, -.00095, .00000, .00000,
3632 + .00000, .00000, .00000 /
3633 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=33,37)/
3634 + .00482, .00087, -.00087, .00000, .00000,
3635 + .00000, .00000, .00000,
3636 + .00453, .00081, -.00080, .00000, .00000,
3637 + .00000, .00000, .00000,
3638 + .00427, .00076, -.00074, .00000, .00000,
3639 + .00000, .00000, .00000,
3640 + .00403, .00072, -.00068, .00000, .00000,
3641 + .00000, .00000, .00000,
3642 + .00380, .00067, -.00062, .00000, .00000,
3643 + .00000, .00000, .00000 /
3644 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/
3645 + .05498, .00990, -.03073, .00000, .00000,
3646 + .00000, .00002, .00000,
3647 + .04838, .00868, -.02625, .00000, .00000,
3648 + .00000, .00000, .00000,
3649 + .04027, .00718, -.02095, .00000, .00000,
3650 + .00000, .00000, .00000,
3651 + .03545, .00632, -.01794, .00000, .00000,
3652 + .00000, .00000, .00000,
3653 + .03113, .00553, -.01528, .00000, .00000,
3654 + .00000, .00000, .00000,
3655 + .02786, .00491, -.01330, .00000, .00000,
3656 + .00000, .00000, .00000,
3657 + .02511, .00442, -.01167, .00000, .00000,
3658 + .00000, .00000, .00000,
3659 + .02254, .00396, -.01020, .00000, .00000,
3660 + .00000, .00000, .00000 /
3661 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=9,16)/
3662 + .02053, .00359, -.00905, .00000, .00000,
3663 + .00000, .00000, .00000,
3664 + .01880, .00325, -.00809, .00000, .00000,
3665 + .00000, .00000, .00000,
3666 + .01755, .00304, -.00742, .00000, .00000,
3667 + .00000, .00000, .00000,
3668 + .01517, .00262, -.00616, .00000, .00000,
3669 + .00000, .00000, .00000,
3670 + .01346, .00231, -.00530, .00000, .00000,
3671 + .00000, .00000, .00000,
3672 + .01180, .00202, -.00448, .00000, .00000,
3673 + .00000, .00000, .00000,
3674 + .01031, .00176, -.00376, .00000, .00000,
3675 + .00000, .00000, .00000,
3676 + .00914, .00155, -.00323, .00000, .00000,
3677 + .00000, .00000, .00000 /
3678 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=17,24)/
3679 + .00813, .00139, -.00279, .00000, .00000,
3680 + .00000, .00000, .00000,
3681 + .00736, .00125, -.00245, .00000, .00000,
3682 + .00000, .00000, .00000,
3683 + .00656, .00109, -.00209, .00000, .00000,
3684 + .00000, .00000, .00000,
3685 + .00592, .00099, -.00184, .00000, .00000,
3686 + .00000, .00000, .00000,
3687 + .00540, .00090, -.00163, .00000, .00000,
3688 + .00000, .00000, .00000,
3689 + .00481, .00081, -.00142, .00000, .00000,
3690 + .00000, .00000, .00000,
3691 + .00432, .00072, -.00122, .00000, .00000,
3692 + .00000, .00000, .00000,
3693 + .00391, .00064, -.00106, .00000, .00000,
3694 + .00000, .00000, .00000 /
3695 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/
3696 + .00355, .00058, -.00094, .00000, .00000,
3697 + .00000, .00000, .00000,
3698 + .00323, .00052, -.00082, .00000, .00000,
3699 + .00000, .00000, .00000,
3700 + .00295, .00049, -.00073, .00000, .00000,
3701 + .00000, .00000, .00000,
3702 + .00271, .00044, -.00065, .00000, .00000,
3703 + .00000, .00000, .00000,
3704 + .00250, .00041, -.00058, .00000, .00000,
3705 + .00000, .00000, .00000,
3706 + .00231, .00038, -.00052, .00000, .00000,
3707 + .00000, .00000, .00000,
3708 + .00214, .00035, -.00048, .00000, .00000,
3709 + .00000, .00000, .00000,
3710 + .00199, .00032, -.00043, .00000, .00000,
3711 + .00000, .00000, .00000 /
3712 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/
3713 + .00185, .00030, -.00039, .00000, .00000,
3714 + .00000, .00000, .00000,
3715 + .00174, .00028, -.00036, .00000, .00000,
3716 + .00000, .00000, .00000,
3717 + .00161, .00026, -.00032, .00000, .00000,
3718 + .00000, .00000, .00000,
3719 + .00153, .00024, -.00030, .00000, .00000,
3720 + .00000, .00000, .00000,
3721 + .00143, .00023, -.00027, .00000, .00000,
3722 + .00000, .00000, .00000 /
3723 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/
3724 + .00780, .00107, -.00551, .00000, .00000,
3725 + .00000, .00000, .00000,
3726 + .00657, .00089, -.00453, .00000, .00000,
3727 + .00000, .00000, .00000,
3728 + .00515, .00069, -.00342, .00000, .00000,
3729 + .00000, .00000, .00000,
3730 + .00433, .00057, -.00280, .00000, .00000,
3731 + .00000, .00000, .00000,
3732 + .00364, .00048, -.00229, .00000, .00000,
3733 + .00000, .00000, .00000,
3734 + .00315, .00042, -.00193, .00000, .00000,
3735 + .00000, .00000, .00000,
3736 + .00275, .00036, -.00165, .00000, .00000,
3737 + .00000, .00000, .00000,
3738 + .00238, .00031, -.00139, .00000, .00000,
3739 + .00000, .00000, .00000 /
3740 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/
3741 + .00211, .00028, -.00121, .00000, .00000,
3742 + .00000, .00000, .00000,
3743 + .00187, .00025, -.00105, .00000, .00000,
3744 + .00000, .00000, .00000,
3745 + .00170, .00023, -.00094, .00000, .00000,
3746 + .00000, .00000, .00000,
3747 + .00142, .00018, -.00076, .00000, .00000,
3748 + .00000, .00000, .00000,
3749 + .00120, .00015, -.00062, .00000, .00000,
3750 + .00000, .00000, .00000,
3751 + .00101, .00013, -.00051, .00000, .00000,
3752 + .00000, .00000, .00000,
3753 + .00086, .00011, -.00042, .00000, .00000,
3754 + .00000, .00000, .00000,
3755 + .00072, .00009, -.00034, .00000, .00000,
3756 + .00000, .00000, .00000 /
3757 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/
3758 + .00062, .00007, -.00028, .00000, .00000,
3759 + .00000, .00000, .00000,
3760 + .00054, .00007, -.00024, .00000, .00000,
3761 + .00000, .00000, .00000,
3762 + .00047, .00007, -.00020, .00000, .00000,
3763 + .00000, .00000, .00000,
3764 + .00041, .00005, -.00017, .00000, .00000,
3765 + .00000, .00000, .00000,
3766 + .00036, .00005, -.00015, .00000, .00000,
3767 + .00000, .00000, .00000,
3768 + .00031, .00003, -.00012, .00000, .00000,
3769 + .00000, .00000, .00000,
3770 + .00027, .00003, -.00010, .00000, .00000,
3771 + .00000, .00000, .00000,
3772 + .00024, .00003, -.00009, .00000, .00000,
3773 + .00000, .00000, .00000 /
3774 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
3775 + .00021, .00003, -.00008, .00000, .00000,
3776 + .00000, .00000, .00000,
3777 + .00019, .00003, -.00007, .00000, .00000,
3778 + .00000, .00000, .00000,
3779 + .00017, .00001, -.00006, .00000, .00000,
3780 + .00000, .00000, .00000,
3781 + .00016, .00001, -.00005, .00000, .00000,
3782 + .00000, .00000, .00000,
3783 + .00014, .00001, -.00004, .00000, .00000,
3784 + .00000, .00000, .00000,
3785 + .00012, .00001, -.00004, .00000, .00000,
3786 + .00000, .00000, .00000,
3787 + .00011, .00001, -.00003, .00000, .00000,
3788 + .00000, .00000, .00000,
3789 + .00010, .00001, -.00003, .00000, .00000,
3790 + .00000, .00000, .00000 /
3791 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
3792 + .00009, .00001, -.00003, .00000, .00000,
3793 + .00000, .00000, .00000,
3794 + .00008, .00001, -.00002, .00000, .00000,
3795 + .00000, .00000, .00000,
3796 + .00008, .00001, -.00002, .00000, .00000,
3797 + .00000, .00000, .00000,
3798 + .00007, .00001, -.00002, .00000, .00000,
3799 + .00000, .00000, .00000,
3800 + .00007, .00001, -.00002, .00000, .00000,
3801 + .00000, .00000, .00000 /
3802 data xx/1d-5,2d-5,4d-5,6d-5,8d-5,
3803 . 1d-4,2d-4,4d-4,6d-4,8d-4,
3804 . 1d-3,2d-3,4d-3,6d-3,8d-3,
3805 . 1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2,
3806 . .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0,
3807 . .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0,
3808 . .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0,
3810 data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1,
3811 . 1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2,
3812 . 1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4,
3813 . 1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6,
3814 . 1.8d6,3.2d6,5.6d6,1d7/
3815 data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/
3816 data n0/3,4,5,9,9,9,9,9/
3817 DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
3822 if(init.ne.0) goto 10
3823 C open(unit=1,file='cor03dis.dat',status='old')
3826 C read(1,50)f(1,n,m),f(2,n,m),f(3,n,m),f(4,n,m),
3827 C . f(5,n,m),f(7,n,m),f(6,n,m),f(8,n,m)
3828 c notation: 1=uval 2=val 3=glue 4=usea 5=chm 6=str 7=btm 8=dsea
3830 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i)
3833 xx(j)= log10(xx(j)/xx(ntenth))+xx(ntenth)
3835 if(i.eq.5.or.i.eq.7) goto 31
3837 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k)
3845 if(x.lt.xmin) x=xmin
3846 if(x.gt.xmax) x=xmax
3847 if(qsq.lt.qsqmin) qsq=qsqmin
3848 if(qsq.gt.qsqmax) qsq=qsqmax
3850 if(x.lt.xx(ntenth)) xxx= log10(x/xx(ntenth))+xx(ntenth)
3853 if(xxx.gt.xx(n+1)) goto 70
3854 a=(xxx-xx(n))/(xx(n+1)-xx(n))
3857 if(qsq.gt.qq(m+1)) goto 80
3858 b=(qsq-qq(m))/(qq(m+1)-qq(m))
3860 g(i)=(ONED-a)*(ONED-b)*f(i,n,m) + (ONED-a)*b*f(i,n,m+1)
3861 . + a*(ONED-b)*f(i,n+1,m) + a*b*f(i,n+1,m+1)
3862 if(n.ge.ntenth) goto 65
3863 if(i.eq.5.or.i.eq.7) goto 65
3864 fac=(ONED-b)*f(i,ntenth,m)+b*f(i,ntenth,m+1)
3865 g(i)=fac*10d0**(g(i)-fac)
3867 g(i)=g(i)*(ONED-x)**n0(i)
git://git.uio.no / u / mrichter / AliRoot.git / blob