2 subroutine sfmrs_99d6(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 + .00615, .00233, 1.18742, .88462, .00000,
12 + .00000, .47582, .89645,
13 + .00628, .00238, 2.47429, .92749, .00000,
14 + .00000, .52328, .93941,
15 + .00647, .00246, 4.95666, 1.01511, .02005,
16 + .00000, .61748, 1.02715,
17 + .00662, .00252, 7.32631, 1.09612, .07247,
18 + .00000, .70313, 1.10824,
19 + .00677, .00259, 10.22125, 1.19748, .19449,
20 + .00000, .80920, 1.20968,
21 + .00690, .00264, 13.20272, 1.30080, .30244,
22 + .00000, .91650, 1.31304,
23 + .00703, .00270, 16.55077, 1.41189, .42313,
24 + .00000, 1.03131, 1.42417,
25 + .00717, .00276, 20.66549, 1.54356, .56858,
26 + .00000, 1.16688, 1.55589 /
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 + .00729, .00281, 24.70079, 1.67129, .70549,
29 + .00000, 1.29791, 1.68364,
30 + .00741, .00286, 29.00712, 1.80656, .84829,
31 + .00000, 1.43633, 1.81894,
32 + .00750, .00291, 32.80552, 1.92159, .97421,
33 + .00000, 1.55382, 1.93399,
34 + .00770, .00299, 42.08153, 2.19450, 1.26372,
35 + .00000, 1.83184, 2.20692,
36 + .00789, .00307, 49.73287, 2.45719, 1.53956,
37 + .39823, 2.09880, 2.46962,
38 + .00810, .00317, 60.16879, 2.78535, 1.88473,
39 + .79034, 2.43166, 2.79780,
40 + .00831, .00327, 72.43321, 3.16542, 2.28355,
41 + 1.20753, 2.81648, 3.17787,
42 + .00851, .00336, 84.82822, 3.54620, 2.68211,
43 + 1.62384, 3.20146, 3.55865 /
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 + .00872, .00346, 98.62429, 3.96741, 3.12262,
46 + 2.08271, 3.62682, 3.97984,
47 + .00889, .00353, 111.08139, 4.34639, 3.51845,
48 + 2.49396, 4.00916, 4.35880,
49 + .00910, .00363, 127.29635, 4.84187, 4.03179,
50 + 3.01994, 4.50866, 4.85426,
51 + .00929, .00373, 142.80643, 5.31537, 4.52271,
52 + 3.52529, 4.98561, 5.32773,
53 + .00947, .00381, 158.09883, 5.78081, 5.00706,
54 + 4.02766, 5.45418, 5.79315,
55 + .00969, .00392, 178.56485, 6.41092, 5.65626,
56 + 4.69032, 6.08816, 6.42322,
57 + .00991, .00402, 199.19622, 7.04821, 6.31310,
58 + 5.36273, 6.72901, 7.06047,
59 + .01011, .00412, 219.83726, 7.68726, 6.97277,
60 + 6.04051, 7.37135, 7.69949 /
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 + .01032, .00422, 241.47677, 8.36415, 7.66812,
63 + 6.75033, 8.05144, 8.37634,
64 + .01052, .00432, 263.77361, 9.06612, 8.38876,
65 + 7.48620, 8.75649, 9.07825,
66 + .01072, .00442, 286.06969, 9.77036, 9.11289,
67 + 8.22799, 9.46360, 9.78246,
68 + .01090, .00450, 307.67033, 10.46237, 9.82033,
69 + 8.94716, 10.15826, 10.47443,
70 + .01109, .00460, 330.59948, 11.19700, 10.57426,
71 + 9.71858, 10.89552, 11.20901,
72 + .01128, .00469, 353.61950, 11.94591, 11.33847,
73 + 10.49468, 11.64697, 11.95787,
74 + .01146, .00479, 376.66172, 12.69565, 12.10632,
75 + 11.27912, 12.39907, 12.70757,
76 + .01164, .00487, 398.75664, 13.42569, 12.85016,
77 + 12.03386, 13.13134, 13.43756 /
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 + .01181, .00496, 422.11970, 14.19769, 13.63930,
80 + 12.83869, 13.90553, 14.20952,
81 + .01199, .00504, 445.46095, 14.98009, 14.43586,
82 + 13.64698, 14.69010, 14.99188,
83 + .01216, .00513, 468.59368, 15.75776, 15.22885,
84 + 14.45376, 15.46978, 15.76950,
85 + .01232, .00521, 490.99994, 16.51767, 16.00279,
86 + 15.24023, 16.23158, 16.52937,
87 + .01248, .00530, 514.11537, 17.30851, 16.80721,
88 + 16.05655, 17.02431, 17.32017 /
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 + .00839, .00329, 1.09428, .75578, .00000,
91 + .00000, .40646, .76275,
92 + .00857, .00336, 2.25358, .79487, .00000,
93 + .00000, .44914, .80189,
94 + .00883, .00347, 4.44000, .87168, .01829,
95 + .00000, .53110, .87876,
96 + .00904, .00357, 6.48696, .94108, .06267,
97 + .00000, .60412, .94821,
98 + .00925, .00366, 8.94612, 1.02657, .16558,
99 + .00000, .69328, 1.03372,
100 + .00944, .00374, 11.44145, 1.11252, .25534,
101 + .00000, .78233, 1.11971,
102 + .00961, .00382, 14.20983, 1.20415, .35477,
103 + .00000, .87688, 1.21135,
104 + .00981, .00390, 17.57209, 1.31189, .47356,
105 + .00000, .98763, 1.31912 /
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 + .00997, .00398, 20.83230, 1.41554, .58438,
108 + .00000, 1.09387, 1.42279,
109 + .01013, .00406, 24.27687, 1.52454, .69911,
110 + .00000, 1.20531, 1.53181,
111 + .01027, .00412, 27.29194, 1.61681, .79976,
112 + .00000, 1.29948, 1.62408,
113 + .01054, .00424, 34.57703, 1.83390, 1.02913,
114 + .00000, 1.52053, 1.84118,
115 + .01079, .00436, 40.47554, 2.04096, 1.24559,
116 + .31308, 1.73090, 2.04824,
117 + .01107, .00449, 48.44468, 2.29741, 1.51403,
118 + .61829, 1.99100, 2.30471,
119 + .01137, .00464, 57.69007, 2.59173, 1.82131,
120 + .93937, 2.28899, 2.59903,
121 + .01164, .00477, 66.92143, 2.88407, 2.12569,
122 + 1.25688, 2.58459, 2.89137 /
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 + .01192, .00491, 77.08252, 3.20488, 2.45942,
125 + 1.60392, 2.90861, 3.21218,
126 + .01216, .00502, 86.16717, 3.49146, 2.75712,
127 + 1.91263, 3.19780, 3.49875,
128 + .01245, .00516, 97.87404, 3.86337, 3.14029,
129 + 2.30433, 3.57279, 3.87063,
130 + .01270, .00529, 108.96494, 4.21623, 3.50416,
131 + 2.67803, 3.92834, 4.22349,
132 + .01294, .00540, 119.81133, 4.56098, 3.86102,
133 + 3.04737, 4.27549, 4.56823,
134 + .01325, .00556, 134.18729, 5.02429, 4.33576,
135 + 3.53068, 4.74180, 5.03153,
136 + .01354, .00570, 148.54371, 5.48951, 4.81274,
137 + 4.01770, 5.20978, 5.49673,
138 + .01381, .00584, 162.78591, 5.95299, 5.28875,
139 + 4.50557, 5.67580, 5.96019 /
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 + .01410, .00597, 177.58876, 6.44065, 5.78715,
142 + 5.01298, 6.16594, 6.44783,
143 + .01437, .00611, 192.71997, 6.94324, 6.30054,
144 + 5.53583, 6.67091, 6.95041,
145 + .01464, .00625, 207.74295, 7.44461, 6.81363,
146 + 6.06011, 7.17449, 7.45175,
147 + .01489, .00637, 222.18463, 7.93434, 7.31183,
148 + 6.56516, 7.66627, 7.94145,
149 + .01514, .00650, 237.42505, 8.45173, 7.84043,
150 + 7.10468, 8.18569, 8.45883,
151 + .01539, .00663, 252.61184, 8.97617, 8.37306,
152 + 7.64409, 8.71209, 8.98324,
153 + .01564, .00676, 267.73299, 9.49886, 8.90609,
154 + 8.18730, 9.23662, 9.50591,
155 + .01587, .00688, 282.13318, 10.00515, 9.41964,
156 + 8.70693, 9.74463, 10.01219 /
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 + .01611, .00700, 297.28948, 10.53845, 9.96253,
159 + 9.25925, 10.27964, 10.54547,
160 + .01634, .00711, 312.33387, 11.07624, 10.50769,
161 + 9.81096, 10.81909, 11.08323,
162 + .01657, .00724, 327.17494, 11.60870, 11.04846,
163 + 10.35976, 11.35312, 11.61567,
164 + .01679, .00735, 341.47441, 12.12684, 11.57406,
165 + 10.89252, 11.87273, 12.13379,
166 + .01700, .00746, 356.15206, 12.66390, 12.11817,
167 + 11.44326, 12.41126, 12.67084 /
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 + .01146, .00462, 1.00739, .64594, .00000,
170 + .00000, .34777, .64954,
171 + .01170, .00473, 2.05174, .68135, .00000,
172 + .00000, .38598, .68496,
173 + .01207, .00490, 3.97629, .74849, .01687,
174 + .00000, .45715, .75213,
175 + .01234, .00503, 5.74311, .80783, .05435,
176 + .00000, .51930, .81147,
177 + .01263, .00516, 7.82947, .87976, .14101,
178 + .00000, .59409, .88342,
179 + .01288, .00529, 9.91450, .95112, .21553,
180 + .00000, .66784, .95477,
181 + .01313, .00541, 12.19916, 1.02649, .29731,
182 + .00000, .74549, 1.03017,
183 + .01339, .00553, 14.94053, 1.11440, .39416,
184 + .00000, .83575, 1.11809 /
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 + .01361, .00564, 17.56795, 1.19828, .48371,
187 + .00000, .92160, 1.20197,
188 + .01384, .00575, 20.31566, 1.28582, .57571,
189 + .00000, 1.01104, 1.28951,
190 + .01402, .00583, 22.70203, 1.35959, .65601,
191 + .00000, 1.08628, 1.36328,
192 + .01440, .00602, 28.40620, 1.53164, .83736,
193 + .00000, 1.26140, 1.53534,
194 + .01474, .00619, 32.93535, 1.69423, 1.00685,
195 + .24551, 1.42654, 1.69793,
196 + .01513, .00638, 38.99622, 1.89385, 1.21517,
197 + .48285, 1.62896, 1.89756,
198 + .01554, .00657, 45.93543, 2.12082, 1.45135,
199 + .72968, 1.85877, 2.12453,
200 + .01591, .00676, 52.77853, 2.34430, 1.68323,
201 + .97155, 2.08475, 2.34801 /
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 + .01630, .00696, 60.22545, 2.58756, 1.93537,
204 + 1.23367, 2.33046, 2.59126,
205 + .01661, .00712, 66.81641, 2.80326, 2.15865,
206 + 1.46508, 2.54818, 2.80696,
207 + .01701, .00732, 75.22218, 3.08108, 2.44381,
208 + 1.75633, 2.82837, 3.08478,
209 + .01735, .00749, 83.10771, 3.34277, 2.71266,
210 + 2.03220, 3.09211, 3.34646,
211 + .01768, .00766, 90.75533, 3.59685, 2.97475,
212 + 2.30325, 3.34804, 3.60055,
213 + .01810, .00787, 100.79035, 3.93578, 3.32075,
214 + 2.65504, 3.68926, 3.93946,
215 + .01849, .00807, 110.71546, 4.27362, 3.66587,
216 + 3.00702, 4.02921, 4.27730,
217 + .01887, .00826, 120.47677, 4.60796, 4.00808,
218 + 3.35737, 4.36549, 4.61164 /
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 + .01925, .00845, 130.53182, 4.95738, 4.36394,
221 + 3.71918, 4.71680, 4.96105,
222 + .01961, .00865, 140.72599, 5.31520, 4.72821,
223 + 4.08968, 5.07645, 5.31888,
224 + .01998, .00883, 150.77346, 5.67012, 5.09028,
225 + 4.45922, 5.43306, 5.67379,
226 + .02031, .00901, 160.35383, 6.01467, 5.43961,
227 + 4.81281, 5.77918, 6.01833,
228 + .02066, .00919, 170.40427, 6.37693, 5.80861,
229 + 5.18899, 6.14300, 6.38058,
230 + .02099, .00937, 180.34084, 6.74195, 6.17814,
231 + 5.56266, 6.50952, 6.74560,
232 + .02132, .00954, 190.18158, 7.10414, 6.54644,
233 + 5.93755, 6.87313, 7.10779,
234 + .02164, .00971, 199.48521, 7.45308, 6.89928,
235 + 6.29402, 7.22336, 7.45672 /
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 + .02195, .00987, 209.23219, 7.81917, 7.27094,
238 + 6.67168, 7.59077, 7.82280,
239 + .02227, .01004, 218.84058, 8.18645, 7.64217,
240 + 7.04681, 7.95932, 8.19008,
241 + .02257, .01020, 228.27479, 8.54867, 8.00904,
242 + 7.41867, 8.32275, 8.55231,
243 + .02285, .01035, 237.31477, 8.89964, 8.36411,
244 + 7.77810, 8.67484, 8.90327,
245 + .02315, .01051, 246.54461, 9.26192, 8.73018,
246 + 8.14812, 9.03825, 9.26555 /
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 + .01372, .00565, .95917, .58947, .00000,
249 + .00000, .31781, .59168,
250 + .01401, .00578, 1.94176, .62277, .00000,
251 + .00000, .35355, .62499,
252 + .01447, .00600, 3.72741, .68472, .01621,
253 + .00000, .41897, .68694,
254 + .01480, .00615, 5.34794, .73876, .05010,
255 + .00000, .47546, .74099,
256 + .01515, .00632, 7.24194, .80369, .12840,
257 + .00000, .54285, .80592,
258 + .01545, .00647, 9.11749, .86758, .19515,
259 + .00000, .60882, .86981,
260 + .01574, .00662, 11.15742, .93472, .26801,
261 + .00000, .67792, .93695,
262 + .01606, .00677, 13.58747, 1.01263, .35386,
263 + .00000, .75784, 1.01486 /
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 + .01634, .00691, 15.90030, 1.08659, .43280,
266 + .00000, .83352, 1.08882,
267 + .01661, .00704, 18.30420, 1.16346, .51356,
268 + .00000, .91201, 1.16569,
269 + .01681, .00714, 20.38234, 1.22804, .58384,
270 + .00000, .97786, 1.23027,
271 + .01728, .00738, 25.31789, 1.37791, .74172,
272 + .00000, 1.13036, 1.38015,
273 + .01769, .00758, 29.19080, 1.51876, .88842,
274 + .21255, 1.27341, 1.52100,
275 + .01816, .00782, 34.34392, 1.69078, 1.06777,
276 + .41728, 1.44783, 1.69302,
277 + .01864, .00806, 40.19728, 1.88529, 1.26998,
278 + .62876, 1.64477, 1.88754,
279 + .01910, .00829, 45.92671, 2.07580, 1.46744,
280 + .83486, 1.83744, 2.07805 /
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 + .01955, .00853, 52.11926, 2.28219, 1.68111,
283 + 1.05709, 2.04593, 2.28444,
284 + .01993, .00873, 57.56677, 2.46440, 1.86950,
285 + 1.25242, 2.22986, 2.46666,
286 + .02040, .00897, 64.47101, 2.69802, 2.10898,
287 + 1.49706, 2.46551, 2.70028,
288 + .02083, .00919, 70.90985, 2.91714, 2.33380,
289 + 1.72780, 2.68638, 2.91939,
290 + .02122, .00938, 77.12338, 3.12910, 2.55220,
291 + 1.95371, 2.89993, 3.13136,
292 + .02171, .00965, 85.22731, 3.41058, 2.83918,
293 + 2.24549, 3.18336, 3.41284,
294 + .02218, .00989, 93.19602, 3.68994, 3.12421,
295 + 2.53618, 3.46452, 3.69221,
296 + .02263, .01013, 100.99269, 3.96533, 3.40574,
297 + 2.82444, 3.74157, 3.96759 /
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 + .02308, .01036, 108.98062, 4.25195, 3.69731,
300 + 3.12086, 4.02982, 4.25422,
301 + .02352, .01060, 117.03895, 4.54439, 3.99466,
302 + 3.42327, 4.32380, 4.54666,
303 + .02395, .01082, 124.94666, 4.83345, 4.28924,
304 + 3.72393, 4.61432, 4.83573,
305 + .02435, .01103, 132.44915, 5.11303, 4.57236,
306 + 4.01046, 4.89524, 5.11531,
307 + .02476, .01125, 140.29232, 5.40616, 4.87065,
308 + 4.31456, 5.18970, 5.40845,
309 + .02517, .01147, 148.00898, 5.70048, 5.16826,
310 + 4.61542, 5.48529, 5.70276,
311 + .02555, .01167, 155.62731, 5.99175, 5.46417,
312 + 4.91662, 5.77777, 5.99403,
313 + .02592, .01187, 162.79721, 6.27143, 5.74667,
314 + 5.20197, 6.05856, 6.27372 /
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 + .02630, .01206, 170.28842, 6.56418, 6.04363,
317 + 5.50370, 6.35245, 6.56648,
318 + .02667, .01227, 177.64180, 6.85698, 6.33927,
319 + 5.80239, 6.64632, 6.85927,
320 + .02703, .01246, 184.84161, 7.14507, 6.63082,
321 + 6.09786, 6.93544, 7.14737,
322 + .02737, .01265, 191.71724, 7.42350, 6.91225,
323 + 6.38271, 7.21483, 7.42580,
324 + .02772, .01282, 198.71449, 7.71019, 7.20168,
325 + 6.67521, 7.50249, 7.71250 /
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 + .01561, .00651, .92617, .55256, .00000,
328 + .00000, .29833, .55402,
329 + .01594, .00667, 1.86725, .58440, .00000,
330 + .00000, .33237, .58584,
331 + .01644, .00691, 3.56030, .64282, .01581,
332 + .00000, .39395, .64427,
333 + .01682, .00710, 5.08422, .69335, .04732,
334 + .00000, .44669, .69481,
335 + .01722, .00731, 6.85211, .75367, .12014,
336 + .00000, .50925, .75513,
337 + .01757, .00748, 8.59119, .81269, .18183,
338 + .00000, .57014, .81415,
339 + .01791, .00763, 10.47265, .87448, .24891,
340 + .00000, .63368, .87595,
341 + .01827, .00782, 12.70219, .94593, .32768,
342 + .00000, .70695, .94739 /
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 + .01859, .00799, 14.81352, 1.01351, .39982,
345 + .00000, .77608, 1.01497,
346 + .01889, .00813, 16.99830, 1.08352, .47339,
347 + .00000, .84755, 1.08497,
348 + .01914, .00826, 18.88067, 1.14222, .53728,
349 + .00000, .90740, 1.14368,
350 + .01966, .00853, 23.33080, 1.27796, .68027,
351 + .00000, 1.04550, 1.27942,
352 + .02013, .00876, 26.79309, 1.40502, .81259,
353 + .19166, 1.17454, 1.40650,
354 + .02066, .00903, 31.38079, 1.55963, .97374,
355 + .37591, 1.33129, 1.56110,
356 + .02122, .00932, 36.56211, 1.73375, 1.15470,
357 + .56532, 1.50760, 1.73522,
358 + .02172, .00958, 41.60649, 1.90367, 1.33074,
359 + .74921, 1.67945, 1.90515 /
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 + .02225, .00986, 47.03173, 2.08708, 1.52057,
362 + .94677, 1.86475, 2.08858,
363 + .02269, .01008, 51.78334, 2.24852, 1.68741,
364 + 1.11986, 2.02773, 2.25001,
365 + .02322, .01037, 57.77837, 2.45483, 1.89881,
366 + 1.33591, 2.23586, 2.45633,
367 + .02369, .01062, 63.34546, 2.64774, 2.09665,
368 + 1.53906, 2.43034, 2.64924,
369 + .02414, .01084, 68.69852, 2.83386, 2.28834,
370 + 1.73745, 2.61787, 2.83537,
371 + .02470, .01114, 75.64932, 3.08023, 2.53938,
372 + 1.99278, 2.86600, 3.08174,
373 + .02524, .01142, 82.45552, 3.32397, 2.78797,
374 + 2.24639, 3.11136, 3.32548,
375 + .02574, .01170, 89.08976, 3.56358, 3.03282,
376 + 2.49719, 3.35246, 3.56511 /
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 + .02626, .01197, 95.85997, 3.81224, 3.28565,
379 + 2.75430, 3.60256, 3.81378,
380 + .02675, .01223, 102.66538, 4.06524, 3.54280,
381 + 3.01591, 3.85696, 4.06680,
382 + .02723, .01249, 109.32247, 4.31473, 3.79696,
383 + 3.27540, 4.10774, 4.31629,
384 + .02770, .01273, 115.61537, 4.55539, 4.04055,
385 + 3.52197, 4.34960, 4.55696,
386 + .02815, .01298, 122.17743, 4.80719, 4.29671,
387 + 3.78320, 4.60259, 4.80877,
388 + .02862, .01322, 128.61071, 5.05936, 4.55159,
389 + 4.04092, 4.85591, 5.06095,
390 + .02905, .01346, 134.94752, 5.30846, 4.80459,
391 + 4.29852, 5.10609, 5.31005,
392 + .02947, .01369, 140.89171, 5.54708, 5.04551,
393 + 4.54190, 5.34571, 5.54868 /
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 + .02989, .01391, 147.09011, 5.79644, 5.29839,
396 + 4.79893, 5.59607, 5.79805,
397 + .03031, .01415, 153.15515, 6.04528, 5.54955,
398 + 5.05271, 5.84588, 6.04690,
399 + .03071, .01436, 159.08155, 6.28970, 5.79685,
400 + 5.30340, 6.09122, 6.29134,
401 + .03110, .01457, 164.72715, 6.52550, 6.03512,
402 + 5.54462, 6.32788, 6.52715,
403 + .03149, .01478, 170.45891, 6.76787, 6.27972,
404 + 5.79186, 6.57110, 6.76952 /
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 + .01724, .00728, .90154, .52561, .00000,
407 + .00000, .28416, .52656,
408 + .01762, .00746, 1.81172, .55630, .00000,
409 + .00000, .31690, .55727,
410 + .01818, .00774, 3.43608, .61211, .01554,
411 + .00000, .37562, .61307,
412 + .01859, .00795, 4.88895, .66005, .04530,
413 + .00000, .42560, .66101,
414 + .01904, .00816, 6.56465, .71700, .11409,
415 + .00000, .48461, .71796,
416 + .01942, .00836, 8.20446, .77246, .17210,
417 + .00000, .54181, .77342,
418 + .01980, .00855, 9.97103, .83037, .23500,
419 + .00000, .60134, .83132,
420 + .02019, .00875, 12.05588, .89712, .30862,
421 + .00000, .66978, .89809 /
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 + .02054, .00893, 14.02237, .96009, .37587,
424 + .00000, .73418, .96106,
425 + .02088, .00910, 16.05012, 1.02517, .44428,
426 + .00000, .80061, 1.02615,
427 + .02116, .00924, 17.79266, 1.07966, .50359,
428 + .00000, .85614, 1.08063,
429 + .02174, .00953, 21.89743, 1.20528, .63594,
430 + .00000, .98395, 1.20626,
431 + .02225, .00980, 25.06995, 1.32250, .75803,
432 + .17674, 1.10300, 1.32348,
433 + .02284, .01010, 29.25987, 1.46472, .90627,
434 + .34648, 1.24720, 1.46570,
435 + .02346, .01043, 33.97059, 1.62439, 1.07221,
436 + .52031, 1.40888, 1.62539,
437 + .02402, .01073, 38.53734, 1.77975, 1.23316,
438 + .68856, 1.56602, 1.78075 /
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 + .02459, .01103, 43.42977, 1.94701, 1.40625,
441 + .86884, 1.73502, 1.94802,
442 + .02507, .01128, 47.69993, 2.09385, 1.55801,
443 + 1.02637, 1.88329, 2.09488,
444 + .02566, .01160, 53.06824, 2.28104, 1.74978,
445 + 1.22248, 2.07215, 2.28208,
446 + .02620, .01187, 58.03660, 2.45564, 1.92884,
447 + 1.40644, 2.24821, 2.45669,
448 + .02668, .01213, 62.80043, 2.62376, 2.10198,
449 + 1.58574, 2.41764, 2.62482,
450 + .02730, .01247, 68.96450, 2.84573, 2.32813,
451 + 1.81586, 2.64122, 2.84680,
452 + .02789, .01277, 74.98033, 3.06481, 2.55151,
453 + 2.04388, 2.86178, 3.06589,
454 + .02845, .01307, 80.82685, 3.27969, 2.77108,
455 + 2.26889, 3.07803, 3.28078 /
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 + .02901, .01337, 86.77455, 3.50218, 2.99727,
458 + 2.49901, 3.30185, 3.50328,
459 + .02957, .01368, 92.73605, 3.72807, 3.22684,
460 + 2.73266, 3.52904, 3.72920,
461 + .03009, .01396, 98.55317, 3.95041, 3.45332,
462 + 2.96400, 3.75256, 3.95155,
463 + .03059, .01423, 104.03600, 4.16441, 3.66991,
464 + 3.18331, 3.96767, 4.16557,
465 + .03110, .01451, 109.74205, 4.38799, 3.89733,
466 + 3.41535, 4.19234, 4.38915,
467 + .03160, .01477, 115.32008, 4.61141, 4.12314,
468 + 3.64374, 4.41683, 4.61259,
469 + .03209, .01504, 120.80491, 4.83181, 4.34698,
470 + 3.87176, 4.63822, 4.83301,
471 + .03255, .01528, 125.93602, 5.04254, 4.55971,
472 + 4.08673, 4.84987, 5.04375 /
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 + .03302, .01554, 131.27851, 5.26248, 4.78275,
475 + 4.31352, 5.07072, 5.26370,
476 + .03347, .01579, 136.49279, 5.48154, 5.00384,
477 + 4.53700, 5.29069, 5.48278,
478 + .03392, .01603, 141.57976, 5.69647, 5.22128,
479 + 4.75750, 5.50645, 5.69771,
480 + .03434, .01627, 146.41624, 5.90349, 5.43047,
481 + 4.96936, 5.71427, 5.90475,
482 + .03477, .01650, 151.31690, 6.11597, 5.64490,
483 + 5.18617, 5.92754, 6.11726 /
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 + .02356, .01032, .82882, .45070, .00000,
486 + .00000, .24520, .45086,
487 + .02406, .01058, 1.65005, .47793, .00000,
488 + .00000, .27405, .47809,
489 + .02483, .01098, 3.07787, .52601, .01493,
490 + .00000, .32446, .52618,
491 + .02541, .01127, 4.32961, .56651, .03968,
492 + .00000, .36658, .56668,
493 + .02601, .01159, 5.74643, .61388, .09716,
494 + .00000, .41560, .61408,
495 + .02654, .01186, 7.10986, .65941, .14488,
496 + .00000, .46249, .65961,
497 + .02704, .01212, 8.55896, .70650, .19617,
498 + .00000, .51087, .70671,
499 + .02760, .01242, 10.24672, .76033, .25568,
500 + .00000, .56603, .76055 /
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 + .02807, .01267, 11.81851, .81065, .30955,
503 + .00000, .61749, .81088,
504 + .02854, .01291, 13.42120, .86226, .36392,
505 + .00000, .67015, .86249,
506 + .02890, .01312, 14.78696, .90525, .41082,
507 + .00000, .71398, .90549,
508 + .02970, .01353, 17.96734, 1.00351, .51453,
509 + .00000, .81396, 1.00377,
510 + .03041, .01391, 20.37314, 1.09431, .60927,
511 + .13645, .90618, 1.09459,
512 + .03120, .01434, 23.51636, 1.20345, .72322,
513 + .26766, 1.01689, 1.20375,
514 + .03204, .01480, 26.99939, 1.32478, .84952,
515 + .40043, 1.13981, 1.32512,
516 + .03280, .01521, 30.33021, 1.44176, .97089,
517 + .52776, 1.25818, 1.44212 /
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 + .03359, .01564, 33.85420, 1.56662, 1.10028,
520 + .66297, 1.38441, 1.56700,
521 + .03424, .01599, 36.89589, 1.67541, 1.21285,
522 + .78020, 1.49432, 1.67582,
523 + .03504, .01643, 40.67586, 1.81297, 1.35393,
524 + .92489, 1.63318, 1.81339,
525 + .03576, .01682, 44.13657, 1.94029, 1.48465,
526 + 1.05959, 1.76163, 1.94074,
527 + .03641, .01717, 47.42487, 2.06210, 1.61026,
528 + 1.19007, 1.88447, 2.06258,
529 + .03725, .01764, 51.63143, 2.22163, 1.77296,
530 + 1.35606, 2.04527, 2.22215,
531 + .03805, .01808, 55.69317, 2.37787, 1.93244,
532 + 1.51929, 2.20267, 2.37842,
533 + .03880, .01849, 59.60317, 2.53005, 2.08812,
534 + 1.67929, 2.35592, 2.53064 /
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 + .03956, .01891, 63.54044, 2.68648, 2.24730,
537 + 1.84164, 2.51339, 2.68709,
538 + .04030, .01932, 67.45070, 2.84423, 2.40778,
539 + 2.00539, 2.67214, 2.84488,
540 + .04102, .01971, 71.23573, 2.99856, 2.56517,
541 + 2.16659, 2.82741, 2.99924,
542 + .04169, .02009, 74.76895, 3.14611, 2.71463,
543 + 2.31828, 2.97581, 3.14681,
544 + .04236, .02047, 78.42316, 3.29949, 2.87084,
545 + 2.47809, 3.13005, 3.30023,
546 + .04304, .02084, 81.96154, 3.45177, 3.02488,
547 + 2.63424, 3.28315, 3.45254,
548 + .04368, .02119, 85.42147, 3.60130, 3.17694,
549 + 2.78953, 3.43345, 3.60210,
550 + .04429, .02154, 88.62943, 3.74340, 3.32050,
551 + 2.93493, 3.57627, 3.74422 /
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 + .04491, .02188, 91.95372, 3.89111, 3.47049,
554 + 3.08783, 3.72471, 3.89197,
555 + .04552, .02223, 95.17057, 4.03739, 3.61826,
556 + 3.23753, 3.87169, 4.03827,
557 + .04611, .02256, 98.29312, 4.18032, 3.76302,
558 + 3.38468, 4.01527, 4.18124,
559 + .04668, .02287, 101.24234, 4.31734, 3.90164,
560 + 3.52540, 4.15293, 4.31829,
561 + .04725, .02319, 104.21192, 4.45736, 4.04309,
562 + 3.66873, 4.29355, 4.45833 /
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 + .03233, .01473, .76464, .38808, .00000,
565 + .00000, .21324, .38832,
566 + .03302, .01509, 1.50713, .41184, .00000,
567 + .00000, .23834, .41209,
568 + .03404, .01564, 2.76122, .45273, .01465,
569 + .00000, .28114, .45302,
570 + .03481, .01605, 3.83818, .48654, .03493,
571 + .00000, .31628, .48686,
572 + .03563, .01650, 5.03286, .52555, .08256,
573 + .00000, .35663, .52591,
574 + .03634, .01688, 6.16204, .56255, .12151,
575 + .00000, .39474, .56292,
576 + .03703, .01725, 7.34499, .60046, .16299,
577 + .00000, .43370, .60087,
578 + .03777, .01766, 8.70354, .64342, .21071,
579 + .00000, .47774, .64386 /
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 + .03842, .01801, 9.95163, .68323, .25351,
582 + .00000, .51848, .68370,
583 + .03905, .01836, 11.20909, .72375, .29637,
584 + .00000, .55986, .72424,
585 + .03955, .01864, 12.27122, .75733, .33317,
586 + .00000, .59413, .75785,
587 + .04063, .01924, 14.71471, .83340, .41379,
588 + .00000, .67159, .83396,
589 + .04158, .01977, 16.52144, .90301, .48671,
590 + .10370, .74236, .90362,
591 + .04266, .02036, 18.85364, .98589, .57359,
592 + .20447, .82652, .98655,
593 + .04379, .02100, 21.39821, 1.07711, .66891,
594 + .30521, .91903, 1.07784,
595 + .04483, .02159, 23.79625, 1.16423, .75963,
596 + .40088, 1.00727, 1.16499 /
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 + .04588, .02218, 26.29959, 1.25639, .85549,
599 + .50157, 1.10055, 1.25721,
600 + .04677, .02267, 28.43465, 1.33605, .93823,
601 + .58817, 1.18112, 1.33693,
602 + .04784, .02328, 31.05500, 1.43593, 1.04103,
603 + .69410, 1.28207, 1.43687,
604 + .04880, .02383, 33.42629, 1.52766, 1.13553,
605 + .79196, 1.37472, 1.52865,
606 + .04969, .02432, 35.65777, 1.61483, 1.22574,
607 + .88614, 1.46273, 1.61587,
608 + .05081, .02496, 38.47695, 1.72804, 1.34155,
609 + 1.00485, 1.57695, 1.72913,
610 + .05188, .02556, 41.16781, 1.83802, 1.45419,
611 + 1.12067, 1.68787, 1.83917,
612 + .05289, .02614, 43.73174, 1.94437, 1.56335,
613 + 1.23340, 1.79511, 1.94558 /
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 + .05391, .02672, 46.28481, 2.05285, 1.67408,
616 + 1.34685, 1.90443, 2.05411,
617 + .05490, .02729, 48.79493, 2.16147, 1.78494,
618 + 1.46049, 2.01387, 2.16280,
619 + .05585, .02782, 51.20378, 2.26708, 1.89299,
620 + 1.57168, 2.12024, 2.26846,
621 + .05675, .02833, 53.42816, 2.36732, 1.99483,
622 + 1.67549, 2.22118, 2.36876,
623 + .05766, .02886, 55.71360, 2.47099, 2.10077,
624 + 1.78437, 2.32555, 2.47247,
625 + .05855, .02936, 57.90277, 2.57319, 2.20443,
626 + 1.88992, 2.42843, 2.57473,
627 + .05940, .02985, 60.03102, 2.67308, 2.30634,
628 + 1.99448, 2.52895, 2.67467,
629 + .06022, .03031, 61.98388, 2.76737, 2.40190,
630 + 2.09167, 2.62383, 2.76901 /
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 + .06105, .03078, 63.99776, 2.86500, 2.50135,
633 + 2.19351, 2.72205, 2.86670,
634 + .06186, .03125, 65.92729, 2.96107, 2.59867,
635 + 2.29252, 2.81869, 2.96282,
636 + .06264, .03169, 67.79029, 3.05456, 2.69365,
637 + 2.38950, 2.91271, 3.05634,
638 + .06338, .03211, 69.53675, 3.14371, 2.78412,
639 + 2.48174, 3.00239, 3.14556,
640 + .06414, .03254, 71.28244, 3.23439, 2.87599,
641 + 2.57524, 3.09357, 3.23627 /
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 + .03896, .01817, .73441, .35657, .00000,
644 + .00000, .19745, .35719,
645 + .03976, .01859, 1.43520, .37829, .00000,
646 + .00000, .22038, .37895,
647 + .04097, .01926, 2.59679, .41519, .01458,
648 + .00000, .25897, .41590,
649 + .04190, .01977, 3.58174, .44538, .03245,
650 + .00000, .29037, .44613,
651 + .04286, .02031, 4.66054, .47997, .07489,
652 + .00000, .32617, .48077,
653 + .04371, .02077, 5.66878, .51251, .10926,
654 + .00000, .35972, .51337,
655 + .04452, .02124, 6.71545, .54569, .14569,
656 + .00000, .39384, .54659,
657 + .04541, .02173, 7.90693, .58310, .18740,
658 + .00000, .43223, .58405 /
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 + .04618, .02216, 8.99225, .61760, .22460,
661 + .00000, .46756, .61858,
662 + .04692, .02258, 10.07753, .65254, .26170,
663 + .00000, .50328, .65356,
664 + .04752, .02292, 10.98916, .68143, .29344,
665 + .00000, .53279, .68249,
666 + .04881, .02365, 13.07067, .74650, .36264,
667 + .00000, .59913, .74763,
668 + .04994, .02430, 14.58832, .80569, .42485,
669 + .08736, .65938, .80690,
670 + .05123, .02503, 16.53168, .87579, .49855,
671 + .17329, .73061, .87706,
672 + .05258, .02580, 18.63142, .95246, .57893,
673 + .25857, .80846, .95381,
674 + .05381, .02650, 20.59207, 1.02527, .65499,
675 + .33910, .88228, 1.02669 /
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 + .05508, .02723, 22.62160, 1.10188, .73492,
678 + .42338, .95990, 1.10338,
679 + .05612, .02783, 24.33955, 1.16778, .80357,
680 + .49551, 1.02662, 1.16934,
681 + .05741, .02856, 26.43124, 1.24997, .88842,
682 + .58327, 1.10979, 1.25162,
683 + .05854, .02921, 28.31022, 1.32510, .96605,
684 + .66397, 1.18576, 1.32681,
685 + .05960, .02982, 30.06772, 1.39620, 1.03985,
686 + .74132, 1.25761, 1.39798,
687 + .06093, .03059, 32.27023, 1.48805, 1.13409,
688 + .83827, 1.35040, 1.48992,
689 + .06220, .03133, 34.35712, 1.57685, 1.22529,
690 + .93240, 1.44005, 1.57881,
691 + .06340, .03201, 36.33270, 1.66234, 1.31329,
692 + 1.02362, 1.52634, 1.66437 /
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 + .06459, .03270, 38.28558, 1.74912, 1.40212,
695 + 1.11498, 1.61390, 1.75122,
696 + .06577, .03338, 40.19325, 1.83564, 1.49066,
697 + 1.20607, 1.70116, 1.83782,
698 + .06689, .03403, 42.01394, 1.91942, 1.57664,
699 + 1.29489, 1.78565, 1.92168,
700 + .06795, .03464, 43.68311, 1.99860, 1.65728,
701 + 1.37739, 1.86546, 2.00092,
702 + .06903, .03526, 45.39113, 2.08023, 1.74094,
703 + 1.46369, 1.94773, 2.08263,
704 + .07008, .03586, 47.01530, 2.16034, 1.82242,
705 + 1.54695, 2.02846, 2.16281,
706 + .07109, .03644, 48.58868, 2.23841, 1.90231,
707 + 1.62922, 2.10711, 2.24095,
708 + .07205, .03700, 50.02223, 2.31182, 1.97687,
709 + 1.70534, 2.18105, 2.31441 /
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 + .07301, .03755, 51.49623, 2.38762, 2.05431,
712 + 1.78494, 2.25740, 2.39028,
713 + .07397, .03811, 52.89888, 2.46191, 2.12978,
714 + 1.86199, 2.33222, 2.46464,
715 + .07488, .03863, 54.24860, 2.53401, 2.20323,
716 + 1.93727, 2.40482, 2.53681,
717 + .07576, .03913, 55.50748, 2.60257, 2.27299,
718 + 2.00866, 2.47385, 2.60543,
719 + .07664, .03965, 56.75969, 2.67206, 2.34360,
720 + 2.08078, 2.54381, 2.67497 /
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 + .04447, .02106, .71986, .33599, .00000,
723 + .00000, .18728, .33712,
724 + .04537, .02156, 1.39265, .35628, .00000,
725 + .00000, .20870, .35745,
726 + .04674, .02232, 2.49184, .39046, .01452,
727 + .00000, .24447, .39170,
728 + .04778, .02290, 3.41501, .41825, .03074,
729 + .00000, .27337, .41954,
730 + .04887, .02353, 4.41648, .44993, .06973,
731 + .00000, .30616, .45127,
732 + .04982, .02407, 5.34456, .47956, .10109,
733 + .00000, .33674, .48096,
734 + .05075, .02459, 6.30146, .50967, .13421,
735 + .00000, .36772, .51112,
736 + .05175, .02517, 7.38357, .54350, .17200,
737 + .00000, .40247, .54501 /
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 + .05262, .02567, 8.36296, .57458, .20558,
740 + .00000, .43432, .57613,
741 + .05347, .02615, 9.33683, .60595, .23896,
742 + .00000, .46642, .60755,
743 + .05416, .02654, 10.15148, .63183, .26746,
744 + .00000, .49288, .63348,
745 + .05561, .02739, 12.00116, .68993, .32935,
746 + .00000, .55214, .69166,
747 + .05689, .02813, 13.33548, .74254, .38476,
748 + .07695, .60574, .74435,
749 + .05835, .02896, 15.03372, .80457, .45014,
750 + .15348, .66885, .80647,
751 + .05988, .02985, 16.85520, .87213, .52110,
752 + .22902, .73750, .87414,
753 + .06127, .03066, 18.54425, .93601, .58797,
754 + .30004, .80233, .93810 /
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 + .06269, .03149, 20.28151, 1.00296, .65797,
757 + .37409, .87021, 1.00513,
758 + .06388, .03218, 21.74371, 1.06034, .71787,
759 + .43722, .92838, 1.06259,
760 + .06533, .03302, 23.51331, 1.13163, .79163,
761 + .51374, 1.00057, 1.13398,
762 + .06661, .03376, 25.09412, 1.19656, .85885,
763 + .58384, 1.06629, 1.19899,
764 + .06780, .03446, 26.56594, 1.25782, .92259,
765 + .65086, 1.12826, 1.26032,
766 + .06931, .03534, 28.39907, 1.33664, 1.00363,
767 + .73449, 1.20797, 1.33926,
768 + .07074, .03617, 30.12627, 1.41257, 1.08177,
769 + .81539, 1.28471, 1.41528,
770 + .07209, .03695, 31.75328, 1.48542, 1.15694,
771 + .89356, 1.35831, 1.48822 /
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 + .07344, .03774, 33.35260, 1.55911, 1.23253,
774 + .97153, 1.43272, 1.56200,
775 + .07476, .03851, 34.90718, 1.63233, 1.30762,
776 + 1.04904, 1.50665, 1.63531,
777 + .07602, .03925, 36.38468, 1.70304, 1.38035,
778 + 1.12440, 1.57802, 1.70611,
779 + .07721, .03993, 37.73156, 1.76962, 1.44830,
780 + 1.19414, 1.64520, 1.77278,
781 + .07841, .04063, 39.10561, 1.83811, 1.51866,
782 + 1.26696, 1.71430, 1.84134,
783 + .07960, .04132, 40.40467, 1.90509, 1.58693,
784 + 1.33694, 1.78187, 1.90841,
785 + .08072, .04198, 41.65977, 1.97024, 1.65374,
786 + 1.40596, 1.84758, 1.97364,
787 + .08180, .04259, 42.79683, 2.03129, 1.71590,
788 + 1.46960, 1.90913, 2.03476 /
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 + .08288, .04322, 43.96348, 2.09422, 1.78034,
791 + 1.53606, 1.97258, 2.09777,
792 + .08395, .04385, 45.06754, 2.15571, 1.84293,
793 + 1.60017, 2.03457, 2.15934,
794 + .08498, .04444, 46.12724, 2.21527, 1.90376,
795 + 1.66271, 2.09460, 2.21896,
796 + .08595, .04500, 47.11165, 2.27177, 1.96138,
797 + 1.72186, 2.15154, 2.27553,
798 + .08693, .04557, 48.08696, 2.32890, 2.01956,
799 + 1.78148, 2.20913, 2.33275 /
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 + .04931, .02373, .71642, .32177, .00000,
802 + .00000, .18000, .32296,
803 + .05030, .02429, 1.36779, .34095, .00000,
804 + .00000, .20020, .34219,
805 + .05181, .02514, 2.41965, .37304, .01439,
806 + .00000, .23376, .37437,
807 + .05295, .02579, 3.29602, .39899, .02939,
808 + .00000, .26074, .40039,
809 + .05416, .02649, 4.23912, .42846, .06576,
810 + .00000, .29125, .42992,
811 + .05521, .02709, 5.10689, .45593, .09487,
812 + .00000, .31960, .45746,
813 + .05624, .02768, 5.99647, .48376, .12554,
814 + .00000, .34823, .48535,
815 + .05734, .02831, 6.99685, .51493, .16043,
816 + .00000, .38026, .51660 /
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, .02887, 7.89746, .54350, .19133,
819 + .00000, .40954, .54522,
820 + .05923, .02942, 8.78877, .57225, .22198,
821 + .00000, .43897, .57403,
822 + .05999, .02985, 9.53179, .59594, .24811,
823 + .00000, .46319, .59777,
824 + .06159, .03079, 11.21104, .64893, .30466,
825 + .00000, .51728, .65087,
826 + .06301, .03162, 12.41155, .69677, .35511,
827 + .06943, .56603, .69879,
828 + .06461, .03255, 13.93185, .75297, .41443,
829 + .13910, .62324, .75510,
830 + .06630, .03353, 15.55251, .81396, .47860,
831 + .20756, .68524, .81619,
832 + .06783, .03444, 17.04654, .87141, .53884,
833 + .27171, .74360, .87375 /
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 + .06939, .03535, 18.57495, .93142, .60171,
836 + .33838, .80451, .93388,
837 + .07070, .03611, 19.85522, .98271, .65534,
838 + .39505, .85651, .98525,
839 + .07229, .03705, 21.39691, 1.04623, .72116,
840 + .46350, .92089, 1.04888,
841 + .07370, .03787, 22.76755, 1.10391, .78097,
842 + .52603, .97931, 1.10666,
843 + .07501, .03864, 24.03864, 1.15819, .83755,
844 + .58567, 1.03426, 1.16103,
845 + .07666, .03960, 25.61365, 1.22780, .90924,
846 + .65983, 1.10470, 1.23076,
847 + .07823, .04051, 27.09046, 1.29464, .97814,
848 + .73135, 1.17231, 1.29772,
849 + .07970, .04138, 28.47576, 1.35860, 1.04425,
850 + .80027, 1.23698, 1.36178 /
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 + .08117, .04224, 29.83114, 1.42309, 1.11053,
853 + .86882, 1.30216, 1.42637,
854 + .08262, .04308, 31.14291, 1.48700, 1.17619,
855 + .93677, 1.36674, 1.49039,
856 + .08400, .04389, 32.38518, 1.54858, 1.23964,
857 + 1.00268, 1.42894, 1.55207,
858 + .08530, .04465, 33.51217, 1.60638, 1.29874,
859 + 1.06349, 1.48732, 1.60996,
860 + .08661, .04541, 34.65900, 1.66573, 1.35982,
861 + 1.12688, 1.54724, 1.66942,
862 + .08790, .04616, 35.73757, 1.72362, 1.41892,
863 + 1.18760, 1.60567, 1.72739,
864 + .08913, .04688, 36.77739, 1.77981, 1.47666,
865 + 1.24742, 1.66241, 1.78367,
866 + .09029, .04755, 37.71457, 1.83232, 1.53023,
867 + 1.30241, 1.71540, 1.83627 /
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 + .09148, .04824, 38.67443, 1.88637, 1.58569,
870 + 1.35976, 1.76994, 1.89041,
871 + .09264, .04892, 39.57838, 1.93905, 1.63941,
872 + 1.41492, 1.82309, 1.94317,
873 + .09375, .04956, 40.44419, 1.98998, 1.69154,
874 + 1.46866, 1.87449, 1.99419,
875 + .09480, .05017, 41.24555, 2.03821, 1.74082,
876 + 1.51938, 1.92313, 2.04248,
877 + .09587, .05079, 42.03669, 2.08687, 1.79048,
878 + 1.57041, 1.97222, 2.09123 /
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 + .06817, .03450, .72652, .28301, .00000,
881 + .00000, .16056, .28518,
882 + .06949, .03528, 1.31600, .29865, .00000,
883 + .00000, .17704, .30090,
884 + .07151, .03648, 2.22987, .32442, .01377,
885 + .00000, .20401, .32681,
886 + .07306, .03740, 2.97047, .34501, .02519,
887 + .00000, .22545, .34751,
888 + .07468, .03837, 3.74614, .36816, .05416,
889 + .00000, .24945, .37076,
890 + .07610, .03921, 4.44297, .38949, .07694,
891 + .00000, .27150, .39220,
892 + .07749, .04005, 5.14351, .41091, .10076,
893 + .00000, .29361, .41372,
894 + .07898, .04093, 5.91666, .43473, .12766,
895 + .00000, .31813, .43764 /
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 + .08029, .04172, 6.60026, .45636, .15125,
898 + .00000, .34035, .45936,
899 + .08155, .04247, 7.26613, .47795, .17445,
900 + .00000, .36252, .48105,
901 + .08257, .04308, 7.81472, .49565, .19414,
902 + .00000, .38067, .49883,
903 + .08473, .04439, 9.03564, .53488, .23631,
904 + .00000, .42081, .53820,
905 + .08664, .04553, 9.88200, .56987, .27353,
906 + .04893, .45659, .57334,
907 + .08879, .04680, 10.93463, .61055, .31680,
908 + .10038, .49813, .61419,
909 + .09106, .04815, 12.03340, .65415, .36305,
910 + .15021, .54260, .65797,
911 + .09312, .04938, 13.02622, .69476, .40597,
912 + .19638, .58398, .69872 /
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 + .09520, .05062, 14.02333, .73672, .45029,
915 + .24386, .62670, .74085,
916 + .09694, .05166, 14.84483, .77223, .48772,
917 + .28380, .66283, .77649,
918 + .09905, .05290, 15.81658, .81574, .53316,
919 + .33153, .70707, .82016,
920 + .10093, .05402, 16.66650, .85484, .57406,
921 + .37473, .74682, .85941,
922 + .10265, .05504, 17.44426, .89134, .61243,
923 + .41560, .78391, .89605,
924 + .10483, .05633, 18.38993, .93763, .66050,
925 + .46582, .83091, .94250,
926 + .10689, .05754, 19.26192, .98161, .70623,
927 + .51380, .87557, .98664,
928 + .10883, .05868, 20.06792, 1.02331, .74971,
929 + .55961, .91789, 1.02850 /
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 + .11076, .05980, 20.84285, 1.06492, .79285,
932 + .60470, .96011, 1.07026,
933 + .11265, .06092, 21.58139, 1.10577, .83521,
934 + .64900, 1.00155, 1.11127,
935 + .11444, .06197, 22.27209, 1.14481, .87582,
936 + .69165, 1.04115, 1.15045,
937 + .11612, .06294, 22.88709, 1.18110, .91327,
938 + .73060, 1.07795, 1.18686,
939 + .11782, .06393, 23.50752, 1.21812, .95174,
940 + .77097, 1.11548, 1.22402,
941 + .11948, .06490, 24.07956, 1.25386, .98858,
942 + .80925, 1.15172, 1.25989,
943 + .12107, .06582, 24.62704, 1.28836, 1.02439,
944 + .84677, 1.18670, 1.29452,
945 + .12256, .06669, 25.11065, 1.32030, 1.05728,
946 + .88091, 1.21906, 1.32657 /
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 + .12407, .06756, 25.60316, 1.35300, 1.09119,
949 + .91637, 1.25222, 1.35940,
950 + .12555, .06842, 26.05783, 1.38458, 1.12374,
951 + .95018, 1.28422, 1.39109,
952 + .12697, .06924, 26.49001, 1.41495, 1.15515,
953 + .98294, 1.31501, 1.42158,
954 + .12831, .07002, 26.88436, 1.44350, 1.18464,
955 + 1.01366, 1.34393, 1.45024,
956 + .12967, .07080, 27.26822, 1.47211, 1.21416,
957 + 1.04435, 1.37294, 1.47895 /
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 + .09474, .05048, .80472, .25180, .00000,
960 + .00000, .14446, .25557,
961 + .09651, .05158, 1.33322, .26394, .00000,
962 + .00000, .15731, .26784,
963 + .09925, .05327, 2.11468, .28380, .01212,
964 + .00000, .17818, .28791,
965 + .10134, .05455, 2.72668, .29954, .02040,
966 + .00000, .19463, .30382,
967 + .10355, .05591, 3.34838, .31712, .04290,
968 + .00000, .21295, .32157,
969 + .10546, .05708, 3.89169, .33316, .06028,
970 + .00000, .22960, .33777,
971 + .10734, .05823, 4.42552, .34915, .07833,
972 + .00000, .24616, .35391,
973 + .10935, .05945, 5.00197, .36677, .09855,
974 + .00000, .26440, .37170 /
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 + .11111, .06053, 5.50108, .38263, .11610,
977 + .00000, .28078, .38771,
978 + .11282, .06156, 5.97824, .39834, .13322,
979 + .00000, .29699, .40356,
980 + .11419, .06239, 6.36598, .41114, .14766,
981 + .00000, .31018, .41647,
982 + .11710, .06416, 7.21417, .43922, .17827,
983 + .00000, .33909, .44480,
984 + .11965, .06569, 7.78046, .46397, .20494,
985 + .03213, .36452, .46977,
986 + .12252, .06740, 8.46825, .49236, .23557,
987 + .06915, .39367, .49840,
988 + .12552, .06918, 9.16803, .52238, .26787,
989 + .10444, .42448, .52868,
990 + .12824, .07080, 9.78504, .54997, .29746,
991 + .13672, .45276, .55649 /
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 + .13098, .07243, 10.39078, .57812, .32762,
994 + .16949, .48160, .58487,
995 + .13327, .07378, 10.87948, .60167, .35282,
996 + .19677, .50571, .60861,
997 + .13603, .07540, 11.44456, .63013, .38302,
998 + .22896, .53487, .63732,
999 + .13846, .07683, 11.92861, .65543, .40990,
1000 + .25778, .56077, .66283,
1001 + .14070, .07814, 12.36416, .67881, .43489,
1002 + .28480, .58469, .68639,
1003 + .14351, .07978, 12.88027, .70806, .46576,
1004 + .31755, .61461, .71588,
1005 + .14616, .08132, 13.34586, .73551, .49479,
1006 + .34849, .64270, .74356,
1007 + .14863, .08275, 13.76801, .76124, .52211,
1008 + .37774, .66902, .76951 /
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 + .15109, .08417, 14.16397, .78661, .54887,
1011 + .40617, .69496, .79508,
1012 + .15349, .08555, 14.53321, .81122, .57488,
1013 + .43382, .72014, .81990,
1014 + .15575, .08684, 14.87268, .83453, .59959,
1015 + .46022, .74398, .84339,
1016 + .15786, .08805, 15.16618, .85591, .62208,
1017 + .48402, .76584, .86495,
1018 + .16000, .08927, 15.45907, .87756, .64504,
1019 + .50853, .78800, .88678,
1020 + .16206, .09044, 15.72054, .89819, .66675,
1021 + .53150, .80910, .90759,
1022 + .16403, .09156, 15.96859, .91798, .68774,
1023 + .55389, .82935, .92754,
1024 + .16587, .09260, 16.18031, .93607, .70677,
1025 + .57401, .84786, .94578 /
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 + .16775, .09365, 16.39460, .95449, .72629,
1028 + .59482, .86672, .96436,
1029 + .16957, .09468, 16.58541, .97205, .74482,
1030 + .61443, .88469, .98208,
1031 + .17130, .09566, 16.76485, .98885, .76259,
1032 + .63333, .90189, .99902,
1033 + .17294, .09657, 16.92449, 1.00448, .77914,
1034 + .65091, .91791, 1.01479,
1035 + .17459, .09749, 17.07592, 1.02002, .79555,
1036 + .66831, .93382, 1.03046 /
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 + .11503, .06306, .89866, .23527, .00000,
1039 + .00000, .13555, .24045,
1040 + .11716, .06440, 1.38530, .24550, .00000,
1041 + .00000, .14641, .25085,
1042 + .12045, .06647, 2.08849, .26218, .01030,
1043 + .00000, .16402, .26781,
1044 + .12295, .06802, 2.62576, .27536, .01699,
1045 + .00000, .17787, .28120,
1046 + .12558, .06965, 3.16060, .29006, .03617,
1047 + .00000, .19326, .29613,
1048 + .12789, .07106, 3.61981, .30339, .05081,
1049 + .00000, .20717, .30967,
1050 + .13012, .07243, 4.06415, .31661, .06596,
1051 + .00000, .22095, .32309,
1052 + .13253, .07391, 4.53703, .33112, .08284,
1053 + .00000, .23604, .33780 /
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 + .13462, .07517, 4.94077, .34411, .09740,
1056 + .00000, .24953, .35098,
1057 + .13665, .07641, 5.32198, .35689, .11152,
1058 + .00000, .26280, .36395,
1059 + .13828, .07739, 5.62888, .36727, .12340,
1060 + .00000, .27356, .37449,
1061 + .14173, .07946, 6.29291, .38990, .14839,
1062 + .00000, .29697, .39742,
1063 + .14473, .08126, 6.72465, .40966, .16998,
1064 + .02373, .31742, .41745,
1065 + .14810, .08325, 7.23945, .43215, .19458,
1066 + .05383, .34064, .44024,
1067 + .15159, .08532, 7.75384, .45570, .22028,
1068 + .08223, .36496, .46410,
1069 + .15477, .08717, 8.19919, .47713, .24362,
1070 + .10798, .38709, .48581 /
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 + .15796, .08903, 8.62922, .49882, .26722,
1073 + .13392, .40948, .50778,
1074 + .16060, .09058, 8.97120, .51680, .28678,
1075 + .15535, .42804, .52601,
1076 + .16378, .09241, 9.35938, .53837, .31003,
1077 + .18043, .45029, .54786,
1078 + .16658, .09402, 9.68673, .55738, .33057,
1079 + .20272, .46988, .56711,
1080 + .16916, .09550, 9.97770, .57482, .34953,
1081 + .22348, .48788, .58478,
1082 + .17237, .09733, 10.31520, .59643, .37276,
1083 + .24846, .51017, .60667,
1084 + .17538, .09905, 10.61413, .61653, .39442,
1085 + .27185, .53091, .62704,
1086 + .17819, .10064, 10.88087, .63524, .41466,
1087 + .29381, .55021, .64599 /
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 + .18096, .10219, 11.12579, .65351, .43433,
1090 + .31501, .56907, .66450,
1091 + .18365, .10371, 11.35001, .67109, .45329,
1092 + .33546, .58721, .68231,
1093 + .18620, .10513, 11.55322, .68761, .47120,
1094 + .35488, .60429, .69905,
1095 + .18855, .10644, 11.72385, .70263, .48736,
1096 + .37224, .61980, .71428,
1097 + .19093, .10776, 11.89269, .71777, .50379,
1098 + .39005, .63546, .72962,
1099 + .19323, .10902, 12.03830, .73204, .51918,
1100 + .40659, .65022, .74408,
1101 + .19543, .11024, 12.17553, .74566, .53400,
1102 + .42266, .66432, .75791,
1103 + .19745, .11135, 12.28802, .75800, .54732,
1104 + .43699, .67709, .77041 /
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 + .19952, .11248, 12.40142, .77052, .56095,
1107 + .45176, .69005, .78311,
1108 + .20151, .11356, 12.49805, .78234, .57376,
1109 + .46555, .70230, .79510,
1110 + .20342, .11459, 12.58801, .79359, .58600,
1111 + .47881, .71397, .80651,
1112 + .20520, .11556, 12.66534, .80399, .59734,
1113 + .49107, .72476, .81705,
1114 + .20700, .11654, 12.73603, .81424, .60851,
1115 + .50315, .73540, .82746 /
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 + .13211, .07380, .99158, .22392, .00000,
1118 + .00000, .12906, .23036,
1119 + .13455, .07537, 1.44504, .23285, .00000,
1120 + .00000, .13861, .23952,
1121 + .13832, .07772, 2.09040, .24743, .00846,
1122 + .00000, .15409, .25445,
1123 + .14117, .07950, 2.57341, .25895, .01415,
1124 + .00000, .16627, .26623,
1125 + .14417, .08135, 3.04676, .27177, .03119,
1126 + .00000, .17975, .27933,
1127 + .14679, .08295, 3.44769, .28333, .04408,
1128 + .00000, .19191, .29115,
1129 + .14933, .08450, 3.83110, .29478, .05737,
1130 + .00000, .20389, .30282,
1131 + .15204, .08616, 4.23455, .30728, .07212,
1132 + .00000, .21697, .31558 /
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 + .15442, .08758, 4.57529, .31842, .08478,
1135 + .00000, .22860, .32695,
1136 + .15671, .08895, 4.89381, .32935, .09701,
1137 + .00000, .24001, .33808,
1138 + .15854, .09006, 5.14839, .33819, .10727,
1139 + .00000, .24923, .34710,
1140 + .16242, .09236, 5.69468, .35735, .12873,
1141 + .00000, .26920, .36662,
1142 + .16576, .09433, 6.04227, .37396, .14714,
1143 + .01833, .28650, .38355,
1144 + .16951, .09653, 6.44970, .39274, .16799,
1145 + .04411, .30603, .40267,
1146 + .17341, .09878, 6.85073, .41226, .18962,
1147 + .06824, .32633, .42254,
1148 + .17692, .10080, 7.19272, .42988, .20912,
1149 + .08997, .34467, .44049 /
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 + .18044, .10283, 7.51824, .44758, .22871,
1152 + .11173, .36308, .45852,
1153 + .18334, .10449, 7.77369, .46217, .24486,
1154 + .12960, .37826, .47337,
1155 + .18683, .10646, 8.05905, .47954, .26392,
1156 + .15038, .39632, .49105,
1157 + .18990, .10818, 8.29627, .49473, .28065,
1158 + .16875, .41213, .50652,
1159 + .19269, .10976, 8.50474, .50861, .29603,
1160 + .18577, .42657, .52065,
1161 + .19619, .11170, 8.74164, .52564, .31471,
1162 + .20610, .44432, .53800,
1163 + .19944, .11352, 8.94781, .54139, .33204,
1164 + .22504, .46072, .55403,
1165 + .20248, .11518, 9.12899, .55593, .34814,
1166 + .24273, .47588, .56884 /
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 + .20546, .11682, 9.29160, .57003, .36367,
1169 + .25968, .49058, .58321,
1170 + .20835, .11840, 9.43753, .58350, .37855,
1171 + .27596, .50465, .59692,
1172 + .21107, .11988, 9.56779, .59609, .39255,
1173 + .29134, .51780, .60975,
1174 + .21359, .12124, 9.67344, .60744, .40508,
1175 + .30500, .52967, .62132,
1176 + .21611, .12261, 9.77711, .61883, .41778,
1177 + .31897, .54159, .63292,
1178 + .21854, .12390, 9.86262, .62947, .42958,
1179 + .33185, .55275, .64377,
1180 + .22087, .12513, 9.94271, .63959, .44092,
1181 + .34434, .56336, .65410,
1182 + .22301, .12628, 10.00468, .64868, .45103,
1183 + .35539, .57289, .66336 /
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 + .22517, .12742, 10.06701, .65787, .46135,
1186 + .36676, .58255, .67274,
1187 + .22726, .12852, 10.11655, .66647, .47098,
1188 + .37731, .59159, .68151,
1189 + .22926, .12957, 10.16199, .67462, .48016,
1190 + .38742, .60018, .68983,
1191 + .23112, .13055, 10.19886, .68211, .48860,
1192 + .39672, .60806, .69746,
1193 + .23299, .13152, 10.23032, .68943, .49689,
1194 + .40585, .61580, .70495 /
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 + .14705, .08329, 1.07949, .21485, .00000,
1197 + .00000, .12366, .22242,
1198 + .14979, .08503, 1.50473, .22287, .00000,
1199 + .00000, .13228, .23070,
1200 + .15397, .08767, 2.10319, .23593, .00667,
1201 + .00000, .14623, .24419,
1202 + .15716, .08964, 2.54286, .24625, .01168,
1203 + .00000, .15721, .25483,
1204 + .16048, .09168, 2.96818, .25772, .02718,
1205 + .00000, .16935, .26662,
1206 + .16338, .09343, 3.32445, .26804, .03881,
1207 + .00000, .18023, .27721,
1208 + .16617, .09513, 3.66175, .27820, .05078,
1209 + .00000, .19095, .28764,
1210 + .16917, .09692, 4.01335, .28926, .06402,
1211 + .00000, .20259, .29900 /
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 + .17178, .09848, 4.30762, .29908, .07533,
1214 + .00000, .21292, .30908,
1215 + .17430, .09997, 4.58039, .30866, .08622,
1216 + .00000, .22299, .31891,
1217 + .17630, .10116, 4.79706, .31640, .09532,
1218 + .00000, .23113, .32684,
1219 + .18053, .10365, 5.25900, .33311, .11429,
1220 + .00000, .24865, .34395,
1221 + .18417, .10576, 5.54722, .34749, .13048,
1222 + .01447, .26374, .35869,
1223 + .18825, .10808, 5.87958, .36364, .14870,
1224 + .03720, .28067, .37523,
1225 + .19244, .11048, 6.20227, .38032, .16748,
1226 + .05834, .29816, .39230,
1227 + .19623, .11263, 6.47373, .39529, .18433,
1228 + .07729, .31385, .40762 /
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 + .20001, .11475, 6.72875, .41022, .20115,
1231 + .09614, .32952, .42290,
1232 + .20312, .11649, 6.92631, .42245, .21494,
1233 + .11155, .34236, .43543,
1234 + .20684, .11855, 7.14344, .43692, .23113,
1235 + .12938, .35755, .45023,
1236 + .21009, .12034, 7.32146, .44949, .24527,
1237 + .14507, .37077, .46311,
1238 + .21308, .12198, 7.47622, .46092, .25821,
1239 + .15955, .38279, .47480,
1240 + .21676, .12398, 7.64821, .47486, .27385,
1241 + .17675, .39745, .48907,
1242 + .22019, .12584, 7.79521, .48765, .28826,
1243 + .19268, .41093, .50216,
1244 + .22338, .12756, 7.92224, .49940, .30158,
1245 + .20750, .42332, .51420 /
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 + .22652, .12923, 8.03304, .51070, .31437,
1248 + .22163, .43526, .52578,
1249 + .22953, .13083, 8.13028, .52145, .32655,
1250 + .23512, .44661, .53678,
1251 + .23236, .13233, 8.21561, .53143, .33796,
1252 + .24783, .45718, .54701,
1253 + .23498, .13370, 8.28154, .54034, .34812,
1254 + .25906, .46664, .55614,
1255 + .23760, .13507, 8.34558, .54927, .35838,
1256 + .27050, .47611, .56529,
1257 + .24011, .13637, 8.39517, .55753, .36785,
1258 + .28099, .48490, .57376,
1259 + .24250, .13761, 8.44125, .56537, .37692,
1260 + .29114, .49325, .58181,
1261 + .24469, .13873, 8.47336, .57234, .38497,
1262 + .30007, .50068, .58895 /
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 + .24692, .13987, 8.50559, .57937, .39315,
1265 + .30924, .50820, .59617,
1266 + .24905, .14096, 8.52778, .58588, .40074,
1267 + .31770, .51518, .60286,
1268 + .25109, .14198, 8.54754, .59204, .40796,
1269 + .32579, .52177, .60918,
1270 + .25298, .14295, 8.56130, .59765, .41457,
1271 + .33321, .52781, .61494,
1272 + .25488, .14390, 8.57063, .60312, .42102,
1273 + .34045, .53370, .62056 /
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 + .17304, .09982, 1.23348, .20088, .00000,
1276 + .00000, .11502, .21062,
1277 + .17631, .10188, 1.61074, .20760, .00000,
1278 + .00000, .12235, .21771,
1279 + .18127, .10497, 2.13399, .21857, .00339,
1280 + .00000, .13424, .22920,
1281 + .18500, .10723, 2.50590, .22721, .00755,
1282 + .00000, .14354, .23824,
1283 + .18887, .10957, 2.85778, .23678, .02090,
1284 + .00000, .15382, .24822,
1285 + .19223, .11157, 3.14727, .24532, .03083,
1286 + .00000, .16295, .25711,
1287 + .19547, .11349, 3.41692, .25368, .04098,
1288 + .00000, .17190, .26581,
1289 + .19892, .11551, 3.69364, .26273, .05213,
1290 + .00000, .18158, .27522 /
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 + .20192, .11725, 3.92168, .27070, .06159,
1293 + .00000, .19009, .28350,
1294 + .20479, .11890, 4.13001, .27842, .07065,
1295 + .00000, .19834, .29152,
1296 + .20709, .12022, 4.29379, .28464, .07819,
1297 + .00000, .20497, .29796,
1298 + .21190, .12294, 4.63929, .29792, .09377,
1299 + .00000, .21913, .31172,
1300 + .21597, .12523, 4.84734, .30924, .10693,
1301 + .00917, .23119, .32345,
1302 + .22051, .12774, 5.07926, .32181, .12162,
1303 + .02778, .24460, .33645,
1304 + .22517, .13030, 5.29879, .33462, .13660,
1305 + .04491, .25830, .34971,
1306 + .22933, .13255, 5.47853, .34598, .14990,
1307 + .06010, .27044, .36147 /
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 + .23348, .13479, 5.64285, .35719, .16307,
1310 + .07511, .28245, .37306,
1311 + .23687, .13662, 5.76680, .36630, .17377,
1312 + .08727, .29219, .38248,
1313 + .24090, .13875, 5.89871, .37691, .18620,
1314 + .10123, .30359, .39346,
1315 + .24441, .14059, 6.00344, .38605, .19697,
1316 + .11341, .31342, .40291,
1317 + .24761, .14226, 6.09219, .39428, .20677,
1318 + .12458, .32228, .41143,
1319 + .25154, .14429, 6.18543, .40416, .21846,
1320 + .13772, .33296, .42167,
1321 + .25518, .14616, 6.26153, .41313, .22915,
1322 + .14980, .34265, .43095,
1323 + .25854, .14787, 6.32445, .42127, .23894,
1324 + .16094, .35149, .43939 /
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 + .26182, .14953, 6.37505, .42901, .24825,
1327 + .17147, .35990, .44739,
1328 + .26496, .15110, 6.41593, .43626, .25705,
1329 + .18146, .36782, .45491,
1330 + .26791, .15257, 6.44950, .44295, .26523,
1331 + .19080, .37512, .46185,
1332 + .27058, .15389, 6.47062, .44882, .27242,
1333 + .19897, .38157, .46793,
1334 + .27327, .15521, 6.49029, .45465, .27966,
1335 + .20727, .38799, .47398,
1336 + .27584, .15645, 6.50000, .45996, .28627,
1337 + .21481, .39387, .47950,
1338 + .27826, .15762, 6.50859, .46497, .29257,
1339 + .22206, .39941, .48470,
1340 + .28048, .15868, 6.50862, .46933, .29809,
1341 + .22839, .40427, .48923 /
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 + .28272, .15974, 6.50870, .47371, .30368,
1344 + .23486, .40917, .49378,
1345 + .28485, .16075, 6.50203, .47768, .30881,
1346 + .24078, .41363, .49792,
1347 + .28688, .16171, 6.49484, .48141, .31366,
1348 + .24641, .41783, .50180,
1349 + .28876, .16258, 6.48461, .48476, .31806,
1350 + .25154, .42162, .50529,
1351 + .29063, .16345, 6.47119, .48796, .32232,
1352 + .25650, .42529, .50863 /
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 + .20579, .12058, 1.41738, .18494, .00000,
1355 + .00000, .10477, .19765,
1356 + .20977, .12305, 1.73515, .19048, .00000,
1357 + .00000, .11098, .20367,
1358 + .21573, .12665, 2.17127, .19947, -.00075,
1359 + .00000, .12095, .21336,
1360 + .22016, .12924, 2.46749, .20648, .00275,
1361 + .00000, .12872, .22089,
1362 + .22473, .13189, 2.74008, .21422, .01406,
1363 + .00000, .13723, .22914,
1364 + .22864, .13413, 2.95943, .22105, .02240,
1365 + .00000, .14473, .23639,
1366 + .23240, .13626, 3.15975, .22766, .03084,
1367 + .00000, .15201, .24342,
1368 + .23638, .13850, 3.36131, .23477, .04004,
1369 + .00000, .15980, .25095 /
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 + .23981, .14039, 3.52411, .24096, .04779,
1372 + .00000, .16658, .25750,
1373 + .24308, .14219, 3.67002, .24690, .05513,
1374 + .00000, .17311, .26379,
1375 + .24568, .14360, 3.78328, .25165, .06121,
1376 + .00000, .17832, .26880,
1377 + .25107, .14651, 4.01952, .26168, .07365,
1378 + .00000, .18933, .27938,
1379 + .25560, .14890, 4.15387, .27010, .08403,
1380 + .00434, .19858, .28825,
1381 + .26060, .15152, 4.29550, .27930, .09548,
1382 + .01912, .20871, .29793,
1383 + .26568, .15413, 4.42415, .28852, .10701,
1384 + .03258, .21891, .30764,
1385 + .27018, .15644, 4.52468, .29658, .11713,
1386 + .04439, .22783, .31611 /
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 + .27463, .15868, 4.61223, .30441, .12703,
1389 + .05592, .23653, .32435,
1390 + .27824, .16048, 4.67504, .31066, .13499,
1391 + .06518, .24349, .33091,
1392 + .28250, .16257, 4.73693, .31784, .14414,
1393 + .07571, .25153, .33847,
1394 + .28617, .16435, 4.78260, .32391, .15198,
1395 + .08480, .25837, .34487,
1396 + .28949, .16596, 4.81901, .32932, .15904,
1397 + .09308, .26445, .35055,
1398 + .29355, .16790, 4.85126, .33568, .16736,
1399 + .10269, .27168, .35724,
1400 + .29725, .16964, 4.87307, .34135, .17489,
1401 + .11146, .27814, .36321,
1402 + .30066, .17123, 4.88759, .34641, .18172,
1403 + .11947, .28395, .36855 /
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 + .30395, .17274, 4.89377, .35112, .18812,
1406 + .12696, .28939, .37350,
1407 + .30707, .17416, 4.89394, .35544, .19410,
1408 + .13400, .29442, .37806,
1409 + .30998, .17548, 4.89078, .35936, .19961,
1410 + .14053, .29902, .38220,
1411 + .31260, .17665, 4.88094, .36270, .20439,
1412 + .14618, .30298, .38572,
1413 + .31523, .17779, 4.87030, .36599, .20918,
1414 + .15189, .30689, .38920,
1415 + .31768, .17885, 4.85331, .36887, .21346,
1416 + .15701, .31038, .39226,
1417 + .32001, .17987, 4.83705, .37157, .21754,
1418 + .16192, .31365, .39511,
1419 + .32210, .18075, 4.81662, .37384, .22106,
1420 + .16614, .31645, .39751 /
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 + .32421, .18164, 4.79634, .37610, .22460,
1423 + .17045, .31924, .39991,
1424 + .32620, .18247, 4.77198, .37806, .22779,
1425 + .17433, .32172, .40199,
1426 + .32807, .18323, 4.74846, .37987, .23080,
1427 + .17802, .32403, .40392,
1428 + .32980, .18394, 4.72416, .38145, .23348,
1429 + .18133, .32607, .40559,
1430 + .33150, .18462, 4.69779, .38290, .23606,
1431 + .18453, .32800, .40714 /
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 + .25138, .14883, 1.61875, .16514, .00000,
1434 + .00000, .09195, .18277,
1435 + .25637, .15174, 1.85839, .16950, .00000,
1436 + .00000, .09712, .18778,
1437 + .26369, .15591, 2.18639, .17646, -.00580,
1438 + .00000, .10528, .19563,
1439 + .26898, .15882, 2.39341, .18178, -.00278,
1440 + .00000, .11150, .20159,
1441 + .27438, .16174, 2.57557, .18758, .00649,
1442 + .00000, .11823, .20800,
1443 + .27896, .16417, 2.71763, .19259, .01324,
1444 + .00000, .12405, .21352,
1445 + .28330, .16645, 2.84370, .19740, .01999,
1446 + .00000, .12961, .21879,
1447 + .28786, .16881, 2.96689, .20246, .02724,
1448 + .00000, .13549, .22432 /
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 + .29174, .17079, 3.06314, .20680, .03328,
1451 + .00000, .14054, .22906,
1452 + .29541, .17262, 3.14660, .21090, .03893,
1453 + .00000, .14532, .23354,
1454 + .29831, .17406, 3.21013, .21414, .04358,
1455 + .00000, .14910, .23706,
1456 + .30423, .17699, 3.34076, .22088, .05295,
1457 + .00000, .15695, .24437,
1458 + .30912, .17932, 3.40643, .22639, .06065,
1459 + -.00001, .16342, .25031,
1460 + .31442, .18181, 3.46581, .23228, .06900,
1461 + .01104, .17037, .25666,
1462 + .31974, .18426, 3.51391, .23803, .07728,
1463 + .02095, .17719, .26285,
1464 + .32439, .18637, 3.54613, .24290, .08442,
1465 + .02953, .18305, .26810 /
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 + .32892, .18837, 3.56912, .24750, .09129,
1468 + .03780, .18861, .27305,
1469 + .33255, .18997, 3.58156, .25110, .09675,
1470 + .04435, .19301, .27692,
1471 + .33675, .19177, 3.58738, .25509, .10291,
1472 + .05170, .19795, .28122,
1473 + .34034, .19328, 3.58679, .25838, .10813,
1474 + .05799, .20205, .28474,
1475 + .34354, .19462, 3.58295, .26124, .11277,
1476 + .06364, .20566, .28780,
1477 + .34739, .19618, 3.56950, .26445, .11814,
1478 + .07012, .20981, .29126,
1479 + .35087, .19754, 3.55215, .26721, .12291,
1480 + .07594, .21344, .29423,
1481 + .35401, .19876, 3.53274, .26958, .12718,
1482 + .08120, .21661, .29677 /
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 + .35698, .19988, 3.50849, .27167, .13113,
1485 + .08607, .21947, .29902,
1486 + .35976, .20091, 3.48173, .27350, .13476,
1487 + .09058, .22206, .30098,
1488 + .36231, .20184, 3.45492, .27510, .13805,
1489 + .09472, .22437, .30270,
1490 + .36458, .20263, 3.42590, .27634, .14085,
1491 + .09825, .22627, .30404,
1492 + .36682, .20340, 3.39681, .27754, .14362,
1493 + .10178, .22812, .30532,
1494 + .36886, .20407, 3.36481, .27847, .14604,
1495 + .10490, .22968, .30633,
1496 + .37079, .20470, 3.33482, .27931, .14834,
1497 + .10788, .23112, .30725,
1498 + .37247, .20522, 3.30375, .27991, .15025,
1499 + .11038, .23225, .30788 /
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 + .37416, .20573, 3.27306, .28048, .15218,
1502 + .11293, .23339, .30850,
1503 + .37570, .20618, 3.24060, .28086, .15387,
1504 + .11520, .23431, .30891,
1505 + .37716, .20659, 3.20989, .28119, .15544,
1506 + .11733, .23515, .30926,
1507 + .37846, .20694, 3.17992, .28139, .15682,
1508 + .11923, .23583, .30949,
1509 + .37972, .20727, 3.14892, .28152, .15811,
1510 + .12102, .23643, .30963 /
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 + .28958, .17184, 1.72730, .14955, .00000,
1513 + .00000, .08218, .17144,
1514 + .29545, .17505, 1.90648, .15315, .00000,
1515 + .00000, .08674, .17582,
1516 + .30390, .17949, 2.15372, .15875, -.00898,
1517 + .00000, .09375, .18247,
1518 + .30986, .18255, 2.29779, .16295, -.00619,
1519 + .00000, .09898, .18734,
1520 + .31585, .18557, 2.41838, .16746, .00175,
1521 + .00000, .10454, .19251,
1522 + .32089, .18802, 2.50936, .17127, .00749,
1523 + .00000, .10926, .19685,
1524 + .32563, .19029, 2.58763, .17486, .01316,
1525 + .00000, .11372, .20092,
1526 + .33052, .19261, 2.66160, .17859, .01918,
1527 + .00000, .11837, .20513 /
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 + .33464, .19452, 2.71713, .18174, .02413,
1530 + .00000, .12230, .20866,
1531 + .33849, .19628, 2.76310, .18466, .02874,
1532 + .00000, .12597, .21193,
1533 + .34153, .19763, 2.79726, .18696, .03249,
1534 + .00000, .12884, .21449,
1535 + .34767, .20033, 2.86664, .19162, .03997,
1536 + .00000, .13475, .21965,
1537 + .35259, .20244, 2.89371, .19533, .04604,
1538 + -.00218, .13950, .22375,
1539 + .35786, .20462, 2.90872, .19921, .05253,
1540 + .00656, .14451, .22801,
1541 + .36307, .20673, 2.91477, .20286, .05888,
1542 + .01434, .14932, .23201,
1543 + .36755, .20848, 2.91235, .20586, .06428,
1544 + .02098, .15337, .23529 /
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 + .37184, .21011, 2.90348, .20862, .06943,
1547 + .02732, .15714, .23829,
1548 + .37524, .21136, 2.89189, .21069, .07345,
1549 + .03229, .16004, .24054,
1550 + .37910, .21274, 2.87184, .21289, .07796,
1551 + .03783, .16323, .24293,
1552 + .38234, .21385, 2.85054, .21463, .08171,
1553 + .04250, .16583, .24480,
1554 + .38521, .21481, 2.82919, .21608, .08502,
1555 + .04667, .16806, .24638,
1556 + .38856, .21588, 2.79680, .21761, .08880,
1557 + .05141, .17054, .24799,
1558 + .39153, .21678, 2.76383, .21882, .09211,
1559 + .05561, .17263, .24928,
1560 + .39417, .21754, 2.73141, .21979, .09503,
1561 + .05939, .17441, .25031 /
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 + .39661, .21819, 2.69625, .22053, .09770,
1564 + .06283, .17594, .25108,
1565 + .39884, .21875, 2.66046, .22110, .10010,
1566 + .06599, .17727, .25166,
1567 + .40085, .21925, 2.62618, .22153, .10227,
1568 + .06887, .17841, .25209,
1569 + .40257, .21960, 2.59175, .22174, .10407,
1570 + .07129, .17927, .25228,
1571 + .40426, .21994, 2.55768, .22189, .10584,
1572 + .07370, .18009, .25243,
1573 + .40574, .22018, 2.52236, .22188, .10735,
1574 + .07580, .18070, .25238,
1575 + .40713, .22040, 2.48949, .22184, .10877,
1576 + .07779, .18125, .25231,
1577 + .40827, .22052, 2.45695, .22165, .10992,
1578 + .07945, .18161, .25207 /
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 + .40942, .22064, 2.42490, .22146, .11108,
1581 + .08112, .18196, .25181,
1582 + .41041, .22069, 2.39221, .22112, .11205,
1583 + .08257, .18214, .25140,
1584 + .41132, .22073, 2.36151, .22077, .11296,
1585 + .08395, .18229, .25098,
1586 + .41211, .22072, 2.33210, .22037, .11373,
1587 + .08514, .18235, .25051,
1588 + .41284, .22068, 2.30218, .21991, .11443,
1589 + .08627, .18235, .24997 /
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 + .35491, .20850, 1.76248, .12561, .00000,
1592 + .00000, .06867, .15617,
1593 + .36197, .21186, 1.85747, .12811, .00000,
1594 + .00000, .07235, .15940,
1595 + .37177, .21632, 1.99466, .13175, -.01196,
1596 + .00000, .07769, .16398,
1597 + .37843, .21920, 2.05857, .13436, -.00944,
1598 + .00000, .08151, .16718,
1599 + .38495, .22196, 2.10380, .13707, -.00329,
1600 + .00000, .08545, .17039,
1601 + .39028, .22412, 2.13401, .13928, .00113,
1602 + .00000, .08869, .17297,
1603 + .39516, .22604, 2.15698, .14130, .00538,
1604 + .00000, .09167, .17529,
1605 + .40012, .22793, 2.17552, .14330, .00983,
1606 + .00000, .09469, .17759 /
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 + .40420, .22944, 2.18618, .14493, .01342,
1609 + .00000, .09718, .17943,
1610 + .40792, .23077, 2.19187, .14640, .01672,
1611 + .00000, .09944, .18105,
1612 + .41078, .23178, 2.19505, .14752, .01937,
1613 + .00000, .10120, .18228,
1614 + .41647, .23365, 2.20107, .14968, .02458,
1615 + .00000, .10466, .18464,
1616 + .42081, .23496, 2.18996, .15130, .02871,
1617 + -.00391, .10734, .18634,
1618 + .42529, .23622, 2.16357, .15285, .03304,
1619 + .00206, .11006, .18794,
1620 + .42952, .23731, 2.13192, .15417, .03718,
1621 + .00729, .11256, .18925,
1622 + .43301, .23812, 2.09987, .15512, .04063,
1623 + .01169, .11455, .19016 /
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 + .43622, .23877, 2.06506, .15586, .04385,
1626 + .01582, .11630, .19082,
1627 + .43865, .23917, 2.03469, .15633, .04632,
1628 + .01901, .11760, .19119,
1629 + .44125, .23951, 1.99555, .15669, .04903,
1630 + .02251, .11891, .19141,
1631 + .44334, .23970, 1.96003, .15684, .05126,
1632 + .02542, .11991, .19142,
1633 + .44510, .23979, 1.92731, .15690, .05317,
1634 + .02798, .12071, .19133,
1635 + .44697, .23976, 1.88398, .15677, .05531,
1636 + .03084, .12148, .19095,
1637 + .44851, .23962, 1.84295, .15650, .05714,
1638 + .03334, .12203, .19046,
1639 + .44977, .23940, 1.80465, .15614, .05873,
1640 + .03556, .12243, .18989 /
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 + .45078, .23907, 1.76584, .15566, .06012,
1643 + .03753, .12268, .18915,
1644 + .45159, .23865, 1.72796, .15509, .06135,
1645 + .03932, .12281, .18832,
1646 + .45225, .23822, 1.69263, .15449, .06243,
1647 + .04093, .12286, .18748,
1648 + .45265, .23771, 1.65888, .15381, .06329,
1649 + .04225, .12277, .18655,
1650 + .45301, .23720, 1.62589, .15311, .06413,
1651 + .04355, .12265, .18561,
1652 + .45315, .23658, 1.59308, .15232, .06481,
1653 + .04466, .12242, .18456,
1654 + .45326, .23600, 1.56281, .15156, .06543,
1655 + .04570, .12219, .18355,
1656 + .45318, .23537, 1.53386, .15076, .06592,
1657 + .04655, .12188, .18250 /
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 + .45310, .23474, 1.50551, .14995, .06639,
1660 + .04739, .12154, .18145,
1661 + .45287, .23404, 1.47740, .14907, .06675,
1662 + .04811, .12113, .18032,
1663 + .45262, .23336, 1.45120, .14823, .06708,
1664 + .04877, .12073, .17926,
1665 + .45229, .23268, 1.42655, .14741, .06734,
1666 + .04934, .12030, .17821,
1667 + .45188, .23197, 1.40184, .14653, .06755,
1668 + .04985, .11984, .17710 /
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 + .40987, .23652, 1.67113, .10708, .00000,
1671 + .00000, .05952, .14479,
1672 + .41754, .23962, 1.71467, .10868, .00000,
1673 + .00000, .06241, .14687,
1674 + .42778, .24353, 1.78491, .11091, -.01241,
1675 + .00000, .06644, .14961,
1676 + .43445, .24586, 1.80429, .11242, -.01014,
1677 + .00000, .06922, .15137,
1678 + .44081, .24797, 1.80931, .11397, -.00523,
1679 + .00000, .07201, .15307,
1680 + .44584, .24954, 1.80838, .11515, -.00174,
1681 + .00000, .07423, .15432,
1682 + .45033, .25085, 1.80386, .11617, .00160,
1683 + .00000, .07622, .15535,
1684 + .45477, .25206, 1.79565, .11715, .00502,
1685 + .00000, .07819, .15630 /
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 + .45831, .25293, 1.78537, .11789, .00775,
1688 + .00000, .07977, .15698,
1689 + .46145, .25364, 1.77286, .11851, .01024,
1690 + .00000, .08116, .15748,
1691 + .46382, .25415, 1.76237, .11896, .01222,
1692 + .00000, .08222, .15784,
1693 + .46830, .25492, 1.74080, .11975, .01606,
1694 + .00000, .08426, .15840,
1695 + .47147, .25526, 1.71456, .12024, .01906,
1696 + -.00421, .08575, .15862,
1697 + .47454, .25541, 1.67359, .12058, .02215,
1698 + .00013, .08720, .15860,
1699 + .47722, .25533, 1.62973, .12075, .02506,
1700 + .00389, .08844, .15833,
1701 + .47923, .25507, 1.58907, .12070, .02745,
1702 + .00701, .08932, .15788 /
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 + .48089, .25462, 1.54764, .12050, .02964,
1705 + .00990, .09004, .15726,
1706 + .48201, .25414, 1.51316, .12022, .03130,
1707 + .01211, .09051, .15663,
1708 + .48299, .25337, 1.47088, .11975, .03309,
1709 + .01451, .09090, .15569,
1710 + .48357, .25260, 1.43379, .11924, .03453,
1711 + .01649, .09111, .15474,
1712 + .48394, .25184, 1.40040, .11873, .03575,
1713 + .01820, .09124, .15381,
1714 + .48403, .25069, 1.35781, .11790, .03709,
1715 + .02009, .09122, .15248,
1716 + .48388, .24951, 1.31849, .11707, .03822,
1717 + .02173, .09110, .15112,
1718 + .48355, .24834, 1.28249, .11622, .03917,
1719 + .02316, .09092, .14980 /
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 + .48296, .24707, 1.24687, .11529, .03998,
1722 + .02441, .09061, .14840,
1723 + .48220, .24576, 1.21270, .11432, .04068,
1724 + .02553, .09024, .14697,
1725 + .48137, .24448, 1.18125, .11337, .04127,
1726 + .02652, .08986, .14558,
1727 + .48036, .24319, 1.15180, .11243, .04174,
1728 + .02734, .08940, .14419,
1729 + .47931, .24189, 1.12320, .11148, .04218,
1730 + .02813, .08894, .14281,
1731 + .47808, .24052, 1.09526, .11047, .04251,
1732 + .02878, .08840, .14139,
1733 + .47688, .23923, 1.06962, .10952, .04281,
1734 + .02938, .08789, .14005,
1735 + .47557, .23793, 1.04550, .10857, .04302,
1736 + .02987, .08735, .13872 /
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 + .47426, .23664, 1.02198, .10763, .04322,
1739 + .03035, .08680, .13739,
1740 + .47279, .23531, .99896, .10665, .04335,
1741 + .03074, .08621, .13604,
1742 + .47137, .23403, .97763, .10573, .04346,
1743 + .03110, .08564, .13476,
1744 + .46994, .23280, .95774, .10484, .04353,
1745 + .03140, .08508, .13353,
1746 + .46845, .23153, .93795, .10392, .04358,
1747 + .03168, .08450, .13227 /
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 + .45758, .25854, 1.52701, .09189, .00000,
1750 + .00000, .05262, .13484,
1751 + .46536, .26109, 1.53966, .09277, .00000,
1752 + .00000, .05479, .13578,
1753 + .47530, .26402, 1.56927, .09392, -.01178,
1754 + .00000, .05769, .13685,
1755 + .48143, .26562, 1.56393, .09468, -.00979,
1756 + .00000, .05964, .13736,
1757 + .48713, .26684, 1.54786, .09539, -.00583,
1758 + .00000, .06153, .13786,
1759 + .49140, .26765, 1.53091, .09591, -.00299,
1760 + .00000, .06300, .13802,
1761 + .49508, .26821, 1.51274, .09631, -.00034,
1762 + .00000, .06428, .13807,
1763 + .49858, .26857, 1.49173, .09663, .00235,
1764 + .00000, .06551, .13800 /
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 + .50124, .26872, 1.47178, .09682, .00450,
1767 + .00000, .06646, .13782,
1768 + .50346, .26871, 1.45118, .09693, .00643,
1769 + .00000, .06728, .13755,
1770 + .50508, .26863, 1.43475, .09699, .00795,
1771 + .00000, .06788, .13729,
1772 + .50788, .26819, 1.40159, .09699, .01088,
1773 + .00000, .06900, .13659,
1774 + .50952, .26746, 1.36995, .09686, .01313,
1775 + -.00404, .06974, .13584,
1776 + .51080, .26645, 1.32510, .09657, .01543,
1777 + -.00078, .07039, .13481,
1778 + .51157, .26515, 1.27888, .09609, .01758,
1779 + .00203, .07087, .13356,
1780 + .51183, .26378, 1.23734, .09554, .01930,
1781 + .00434, .07115, .13229 /
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 + .51169, .26225, 1.19611, .09490, .02087,
1784 + .00645, .07128, .13090,
1785 + .51129, .26088, 1.16251, .09428, .02205,
1786 + .00806, .07129, .12969,
1787 + .51041, .25908, 1.12222, .09345, .02329,
1788 + .00979, .07118, .12810,
1789 + .50936, .25739, 1.08746, .09264, .02428,
1790 + .01119, .07100, .12664,
1791 + .50826, .25579, 1.05652, .09187, .02511,
1792 + .01241, .07077, .12528,
1793 + .50645, .25362, 1.01782, .09081, .02600,
1794 + .01373, .07037, .12346,
1795 + .50452, .25151, .98258, .08976, .02674,
1796 + .01487, .06993, .12170,
1797 + .50253, .24948, .95067, .08876, .02734,
1798 + .01583, .06946, .12003 /
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 + .50032, .24737, .91952, .08769, .02785,
1801 + .01668, .06892, .11833,
1802 + .49797, .24526, .88994, .08664, .02827,
1803 + .01743, .06835, .11663,
1804 + .49565, .24326, .86295, .08564, .02863,
1805 + .01810, .06778, .11502,
1806 + .49327, .24128, .83797, .08463, .02888,
1807 + .01861, .06720, .11348,
1808 + .49088, .23930, .81384, .08363, .02912,
1809 + .01912, .06662, .11195,
1810 + .48830, .23729, .79052, .08261, .02929,
1811 + .01954, .06597, .11042,
1812 + .48586, .23541, .76919, .08166, .02943,
1813 + .01992, .06538, .10898,
1814 + .48336, .23357, .74933, .08073, .02952,
1815 + .02022, .06478, .10759 /
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 + .48087, .23174, .73003, .07982, .02960,
1818 + .02050, .06417, .10621,
1819 + .47827, .22988, .71131, .07889, .02963,
1820 + .02074, .06356, .10483,
1821 + .47580, .22811, .69403, .07801, .02964,
1822 + .02094, .06296, .10352,
1823 + .47338, .22643, .67800, .07717, .02964,
1824 + .02111, .06239, .10229,
1825 + .47088, .22470, .66215, .07631, .02962,
1826 + .02126, .06180, .10104 /
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 + .50859, .27881, 1.33234, .07593, .00000,
1829 + .00000, .04538, .12215,
1830 + .51561, .28030, 1.32359, .07620, .00000,
1831 + .00000, .04678, .12190,
1832 + .52401, .28165, 1.32428, .07655, -.01049,
1833 + .00000, .04860, .12118,
1834 + .52879, .28203, 1.30324, .07669, -.00882,
1835 + .00000, .04976, .12055,
1836 + .53286, .28203, 1.27453, .07684, -.00572,
1837 + .00000, .05089, .11979,
1838 + .53570, .28168, 1.24849, .07682, -.00352,
1839 + .00000, .05171, .11905,
1840 + .53791, .28115, 1.22284, .07677, -.00148,
1841 + .00000, .05239, .11826,
1842 + .53975, .28041, 1.19516, .07664, .00057,
1843 + .00000, .05302, .11731 /
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 + .54091, .27958, 1.17050, .07647, .00220,
1846 + .00000, .05347, .11641,
1847 + .54166, .27863, 1.14623, .07627, .00365,
1848 + .00000, .05383, .11550,
1849 + .54211, .27782, 1.12731, .07607, .00478,
1850 + .00000, .05406, .11476,
1851 + .54237, .27582, 1.08926, .07556, .00694,
1852 + .00000, .05446, .11312,
1853 + .54177, .27383, 1.05653, .07503, .00859,
1854 + -.00358, .05466, .11162,
1855 + .54056, .27137, 1.01262, .07435, .01024,
1856 + -.00121, .05474, .10986,
1857 + .53875, .26863, .96840, .07354, .01175,
1858 + .00081, .05469, .10795,
1859 + .53661, .26602, .92956, .07274, .01295,
1860 + .00245, .05452, .10614 /
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 + .53406, .26328, .89167, .07186, .01404,
1863 + .00396, .05426, .10426,
1864 + .53170, .26094, .86123, .07109, .01484,
1865 + .00508, .05399, .10269,
1866 + .52849, .25793, .82534, .07009, .01567,
1867 + .00627, .05357, .10074,
1868 + .52543, .25523, .79479, .06917, .01632,
1869 + .00723, .05314, .09901,
1870 + .52249, .25273, .76787, .06832, .01685,
1871 + .00805, .05272, .09744,
1872 + .51837, .24948, .73468, .06719, .01742,
1873 + .00894, .05211, .09541,
1874 + .51431, .24637, .70480, .06611, .01787,
1875 + .00969, .05150, .09350,
1876 + .51039, .24344, .67802, .06510, .01823,
1877 + .01033, .05089, .09172 /
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 + .50627, .24049, .65220, .06405, .01853,
1880 + .01088, .05025, .08993,
1881 + .50209, .23755, .62790, .06302, .01876,
1882 + .01134, .04960, .08819,
1883 + .49809, .23480, .60587, .06205, .01895,
1884 + .01176, .04899, .08655,
1885 + .49416, .23214, .58570, .06111, .01907,
1886 + .01208, .04837, .08503,
1887 + .49024, .22949, .56632, .06017, .01918,
1888 + .01239, .04774, .08354,
1889 + .48618, .22688, .54776, .05925, .01924,
1890 + .01263, .04712, .08203,
1891 + .48236, .22442, .53088, .05839, .01931,
1892 + .01286, .04652, .08064,
1893 + .47859, .22206, .51529, .05757, .01931,
1894 + .01303, .04595, .07932 /
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 + .47486, .21973, .50019, .05674, .01932,
1897 + .01319, .04536, .07800,
1898 + .47106, .21738, .48565, .05592, .01930,
1899 + .01331, .04478, .07672,
1900 + .46745, .21517, .47229, .05515, .01926,
1901 + .01341, .04423, .07551,
1902 + .46398, .21306, .45996, .05442, .01922,
1903 + .01350, .04370, .07438,
1904 + .46043, .21093, .44784, .05367, .01917,
1905 + .01357, .04316, .07325 /
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 + .55143, .29270, 1.15009, .06269, .00000,
1908 + .00000, .03896, .10887,
1909 + .55689, .29297, 1.13057, .06264, .00000,
1910 + .00000, .03981, .10761,
1911 + .56285, .29237, 1.11600, .06241, -.00920,
1912 + .00000, .04084, .10571,
1913 + .56569, .29138, 1.08788, .06227, -.00779,
1914 + .00000, .04150, .10427,
1915 + .56762, .29000, 1.05429, .06204, -.00533,
1916 + .00000, .04210, .10275,
1917 + .56855, .28850, 1.02498, .06181, -.00357,
1918 + .00000, .04251, .10135,
1919 + .56890, .28685, .99698, .06151, -.00197,
1920 + .00000, .04281, .10000,
1921 + .56877, .28492, .96747, .06115, -.00036,
1922 + .00000, .04304, .09856 /
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 + .56820, .28311, .94183, .06078, .00089,
1925 + .00000, .04320, .09727,
1926 + .56729, .28122, .91713, .06039, .00201,
1927 + .00000, .04328, .09602,
1928 + .56642, .27967, .89806, .06007, .00287,
1929 + .00000, .04332, .09502,
1930 + .56381, .27623, .85985, .05936, .00451,
1931 + .00000, .04330, .09285,
1932 + .56084, .27302, .82852, .05868, .00575,
1933 + -.00310, .04320, .09099,
1934 + .55698, .26926, .78786, .05787, .00697,
1935 + -.00133, .04298, .08889,
1936 + .55243, .26525, .74755, .05694, .00808,
1937 + .00017, .04264, .08666,
1938 + .54794, .26151, .71258, .05604, .00895,
1939 + .00138, .04226, .08468 /
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 + .54308, .25767, .67889, .05510, .00972,
1942 + .00247, .04182, .08267,
1943 + .53882, .25445, .65213, .05431, .01027,
1944 + .00327, .04141, .08100,
1945 + .53335, .25048, .62093, .05331, .01085,
1946 + .00413, .04084, .07899,
1947 + .52831, .24696, .59460, .05241, .01129,
1948 + .00481, .04032, .07723,
1949 + .52361, .24375, .57157, .05159, .01165,
1950 + .00538, .03983, .07564,
1951 + .51738, .23959, .54349, .05051, .01202,
1952 + .00600, .03916, .07363,
1953 + .51139, .23571, .51845, .04951, .01230,
1954 + .00651, .03851, .07176,
1955 + .50570, .23209, .49618, .04857, .01253,
1956 + .00694, .03789, .07004 /
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 + .49988, .22845, .47488, .04762, .01271,
1959 + .00732, .03725, .06836,
1960 + .49411, .22490, .45502, .04668, .01283,
1961 + .00762, .03662, .06672,
1962 + .48864, .22159, .43712, .04580, .01293,
1963 + .00789, .03602, .06521,
1964 + .48336, .21846, .42082, .04497, .01300,
1965 + .00810, .03544, .06380,
1966 + .47810, .21537, .40525, .04415, .01305,
1967 + .00830, .03487, .06241,
1968 + .47281, .21229, .39050, .04335, .01305,
1969 + .00845, .03428, .06107,
1970 + .46784, .20942, .37712, .04260, .01306,
1971 + .00858, .03374, .05981,
1972 + .46305, .20669, .36481, .04188, .01304,
1973 + .00867, .03322, .05864 /
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 + .45828, .20401, .35295, .04117, .01301,
1976 + .00876, .03270, .05749,
1977 + .45349, .20132, .34160, .04047, .01298,
1978 + .00883, .03219, .05636,
1979 + .44897, .19880, .33120, .03983, .01293,
1980 + .00889, .03169, .05530,
1981 + .44466, .19643, .32165, .03921, .01288,
1982 + .00893, .03124, .05432,
1983 + .44029, .19405, .31231, .03860, .01281,
1984 + .00896, .03077, .05333 /
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 + .58641, .30129, .99142, .05176, .00000,
1987 + .00000, .03301, .09501,
1988 + .58980, .30013, .96652, .05151, .00000,
1989 + .00000, .03346, .09314,
1990 + .59246, .29756, .94365, .05111, -.00807,
1991 + .00000, .03401, .09037,
1992 + .59290, .29515, .91267, .05075, -.00686,
1993 + .00000, .03432, .08843,
1994 + .59234, .29238, .87761, .05040, -.00487,
1995 + .00000, .03453, .08649,
1996 + .59106, .28972, .84760, .05003, -.00344,
1997 + .00000, .03468, .08479,
1998 + .58933, .28701, .81939, .04965, -.00215,
1999 + .00000, .03475, .08316,
2000 + .58699, .28399, .79012, .04919, -.00088,
2001 + .00000, .03476, .08145 /
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 + .58454, .28125, .76508, .04875, .00011,
2004 + .00000, .03471, .07998,
2005 + .58183, .27851, .74123, .04830, .00100,
2006 + .00000, .03463, .07857,
2007 + .57954, .27630, .72294, .04795, .00167,
2008 + .00000, .03456, .07744,
2009 + .57405, .27150, .68647, .04715, .00294,
2010 + .00000, .03429, .07512,
2011 + .56866, .26722, .65736, .04643, .00389,
2012 + -.00266, .03401, .07316,
2013 + .56221, .26233, .62056, .04554, .00482,
2014 + -.00132, .03364, .07099,
2015 + .55507, .25720, .58445, .04462, .00565,
2016 + -.00017, .03318, .06876,
2017 + .54826, .25254, .55349, .04375, .00630,
2018 + .00073, .03271, .06676 /
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 + .54116, .24783, .52390, .04287, .00685,
2021 + .00154, .03220, .06477,
2022 + .53514, .24390, .50063, .04210, .00726,
2023 + .00214, .03175, .06318,
2024 + .52759, .23914, .47374, .04115, .00767,
2025 + .00277, .03117, .06128,
2026 + .52083, .23495, .45126, .04033, .00798,
2027 + .00326, .03064, .05961,
2028 + .51460, .23116, .43174, .03958, .00823,
2029 + .00368, .03015, .05812,
2030 + .50651, .22633, .40814, .03858, .00847,
2031 + .00412, .02950, .05627,
2032 + .49883, .22186, .38726, .03765, .00865,
2033 + .00447, .02889, .05458,
2034 + .49164, .21774, .36882, .03682, .00880,
2035 + .00477, .02831, .05302 /
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 + .48439, .21361, .35131, .03597, .00890,
2038 + .00502, .02772, .05151,
2039 + .47727, .20964, .33506, .03516, .00897,
2040 + .00523, .02713, .05008,
2041 + .47058, .20595, .32051, .03441, .00902,
2042 + .00542, .02659, .04874,
2043 + .46419, .20248, .30741, .03368, .00905,
2044 + .00555, .02607, .04752,
2045 + .45787, .19908, .29495, .03298, .00905,
2046 + .00567, .02557, .04632,
2047 + .45159, .19572, .28315, .03229, .00905,
2048 + .00577, .02505, .04517,
2049 + .44573, .19259, .27249, .03165, .00903,
2050 + .00585, .02458, .04409,
2051 + .44013, .18963, .26280, .03104, .00900,
2052 + .00590, .02414, .04310 /
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 + .43458, .18671, .25347, .03045, .00897,
2055 + .00596, .02371, .04211,
2056 + .42905, .18384, .24460, .02985, .00892,
2057 + .00600, .02327, .04116,
2058 + .42385, .18116, .23649, .02930, .00888,
2059 + .00603, .02285, .04028,
2060 + .41892, .17863, .22908, .02877, .00882,
2061 + .00604, .02247, .03945,
2062 + .41395, .17609, .22187, .02826, .00877,
2063 + .00606, .02208, .03864 /
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 + .61401, .30513, .85656, .04275, .00000,
2066 + .00000, .02755, .08101,
2067 + .61481, .30252, .82879, .04245, .00000,
2068 + .00000, .02776, .07881,
2069 + .61363, .29796, .80115, .04195, -.00712,
2070 + .00000, .02796, .07571,
2071 + .61136, .29420, .76912, .04154, -.00607,
2072 + .00000, .02805, .07358,
2073 + .60805, .29004, .73406, .04111, -.00442,
2074 + .00000, .02814, .07142,
2075 + .60446, .28627, .70453, .04067, -.00325,
2076 + .00000, .02812, .06964,
2077 + .60052, .28256, .67707, .04024, -.00219,
2078 + .00000, .02804, .06795,
2079 + .59588, .27855, .64886, .03975, -.00116,
2080 + .00000, .02792, .06618 /
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 + .59151, .27495, .62500, .03931, -.00035,
2083 + .00000, .02778, .06466,
2084 + .58701, .27143, .60254, .03885, .00035,
2085 + .00000, .02761, .06324,
2086 + .58333, .26863, .58537, .03848, .00089,
2087 + .00000, .02747, .06214,
2088 + .57499, .26264, .55121, .03763, .00189,
2089 + .00000, .02711, .05988,
2090 + .56729, .25745, .52474, .03694, .00263,
2091 + -.00228, .02676, .05797,
2092 + .55836, .25161, .49177, .03608, .00334,
2093 + -.00124, .02634, .05592,
2094 + .54877, .24560, .45971, .03521, .00397,
2095 + -.00036, .02584, .05380,
2096 + .53991, .24017, .43252, .03438, .00447,
2097 + .00034, .02534, .05196 /
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 + .53085, .23471, .40679, .03350, .00488,
2100 + .00095, .02483, .05020,
2101 + .52322, .23027, .38675, .03280, .00517,
2102 + .00139, .02438, .04874,
2103 + .51386, .22491, .36374, .03196, .00547,
2104 + .00186, .02383, .04700,
2105 + .50555, .22025, .34466, .03120, .00569,
2106 + .00223, .02333, .04552,
2107 + .49798, .21605, .32821, .03052, .00586,
2108 + .00252, .02287, .04422,
2109 + .48829, .21076, .30847, .02965, .00602,
2110 + .00284, .02229, .04258,
2111 + .47923, .20587, .29112, .02884, .00614,
2112 + .00310, .02174, .04111,
2113 + .47081, .20138, .27591, .02811, .00623,
2114 + .00331, .02120, .03979 /
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 + .46238, .19697, .26158, .02738, .00630,
2117 + .00349, .02068, .03850,
2118 + .45420, .19272, .24839, .02667, .00634,
2119 + .00364, .02018, .03728,
2120 + .44659, .18877, .23665, .02601, .00636,
2121 + .00376, .01972, .03616,
2122 + .43937, .18510, .22612, .02538, .00636,
2123 + .00385, .01928, .03513,
2124 + .43225, .18150, .21613, .02479, .00636,
2125 + .00393, .01884, .03412,
2126 + .42525, .17799, .20678, .02419, .00634,
2127 + .00399, .01843, .03314,
2128 + .41872, .17474, .19837, .02365, .00631,
2129 + .00403, .01803, .03225,
2130 + .41251, .17167, .19073, .02313, .00628,
2131 + .00407, .01765, .03144 /
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 + .40639, .16865, .18340, .02263, .00625,
2134 + .00411, .01727, .03066,
2135 + .40032, .16569, .17649, .02214, .00620,
2136 + .00412, .01691, .02989,
2137 + .39464, .16292, .17017, .02170, .00616,
2138 + .00414, .01658, .02917,
2139 + .38928, .16034, .16445, .02128, .00611,
2140 + .00414, .01626, .02849,
2141 + .38390, .15777, .15888, .02087, .00606,
2142 + .00414, .01595, .02782 /
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 + .63431, .30490, .74172, .03541, .00000,
2145 + .00000, .02253, .06745,
2146 + .63214, .30086, .71235, .03507, .00000,
2147 + .00000, .02265, .06518,
2148 + .62690, .29424, .68174, .03450, -.00631,
2149 + .00000, .02277, .06203,
2150 + .62176, .28920, .64957, .03404, -.00538,
2151 + .00000, .02273, .05995,
2152 + .61551, .28386, .61526, .03359, -.00399,
2153 + .00000, .02269, .05785,
2154 + .60958, .27902, .58671, .03314, -.00301,
2155 + .00000, .02257, .05614,
2156 + .60347, .27437, .56041, .03268, -.00214,
2157 + .00000, .02244, .05452,
2158 + .59663, .26942, .53368, .03218, -.00129,
2159 + .00000, .02228, .05285 /
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 + .59037, .26511, .51134, .03171, -.00064,
2162 + .00000, .02209, .05147,
2163 + .58408, .26093, .49046, .03126, -.00007,
2164 + .00000, .02190, .05014,
2165 + .57905, .25766, .47464, .03090, .00037,
2166 + .00000, .02171, .04911,
2167 + .56798, .25069, .44329, .03012, .00117,
2168 + .00000, .02134, .04698,
2169 + .55819, .24473, .41925, .02941, .00175,
2170 + -.00194, .02099, .04528,
2171 + .54698, .23819, .38997, .02865, .00232,
2172 + -.00111, .02053, .04340,
2173 + .53522, .23144, .36185, .02779, .00280,
2174 + -.00043, .02004, .04156,
2175 + .52450, .22543, .33820, .02704, .00317,
2176 + .00009, .01958, .03995 /
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 + .51366, .21950, .31606, .02628, .00349,
2179 + .00057, .01909, .03834,
2180 + .50470, .21470, .29886, .02566, .00370,
2181 + .00090, .01869, .03708,
2182 + .49379, .20893, .27938, .02488, .00392,
2183 + .00126, .01818, .03560,
2184 + .48425, .20392, .26332, .02421, .00407,
2185 + .00152, .01773, .03435,
2186 + .47565, .19943, .24955, .02359, .00419,
2187 + .00174, .01733, .03324,
2188 + .46465, .19386, .23319, .02285, .00431,
2189 + .00198, .01681, .03186,
2190 + .45448, .18872, .21894, .02215, .00438,
2191 + .00216, .01633, .03063,
2192 + .44510, .18404, .20653, .02151, .00444,
2193 + .00231, .01588, .02952 /
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 + .43581, .17946, .19489, .02085, .00448,
2196 + .00244, .01543, .02847,
2197 + .42683, .17508, .18427, .02025, .00449,
2198 + .00254, .01500, .02746,
2199 + .41847, .17103, .17484, .01972, .00451,
2200 + .00262, .01460, .02654,
2201 + .41067, .16727, .16646, .01919, .00449,
2202 + .00268, .01423, .02568,
2203 + .40301, .16361, .15853, .01869, .00449,
2204 + .00274, .01387, .02487,
2205 + .39548, .16005, .15116, .01818, .00446,
2206 + .00278, .01351, .02411,
2207 + .38850, .15677, .14456, .01772, .00444,
2208 + .00281, .01317, .02340,
2209 + .38190, .15368, .13859, .01731, .00440,
2210 + .00282, .01288, .02275 /
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 + .37540, .15066, .13290, .01690, .00437,
2213 + .00284, .01259, .02210,
2214 + .36903, .14770, .12752, .01650, .00433,
2215 + .00285, .01229, .02149,
2216 + .36307, .14495, .12266, .01612, .00429,
2217 + .00285, .01201, .02093,
2218 + .35747, .14237, .11823, .01576, .00425,
2219 + .00285, .01175, .02041,
2220 + .35184, .13982, .11396, .01542, .00421,
2221 + .00285, .01151, .01990 /
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 + .64774, .30082, .64193, .02912, .00000,
2224 + .00000, .01829, .05495,
2225 + .64243, .29543, .61175, .02884, .00000,
2226 + .00000, .01831, .05280,
2227 + .63273, .28707, .57949, .02827, -.00558,
2228 + .00000, .01825, .04990,
2229 + .62465, .28084, .54776, .02787, -.00474,
2230 + .00000, .01819, .04796,
2231 + .61554, .27437, .51474, .02747, -.00359,
2232 + .00000, .01808, .04599,
2233 + .60713, .26879, .48754, .02707, -.00275,
2234 + .00000, .01795, .04435,
2235 + .59886, .26341, .46281, .02662, -.00202,
2236 + .00000, .01778, .04290,
2237 + .58984, .25770, .43791, .02614, -.00132,
2238 + .00000, .01758, .04142 /
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 + .58182, .25278, .41722, .02572, -.00078,
2241 + .00000, .01741, .04011,
2242 + .57393, .24807, .39805, .02528, -.00032,
2243 + .00000, .01720, .03894,
2244 + .56767, .24440, .38362, .02493, .00003,
2245 + .00000, .01701, .03805,
2246 + .55415, .23668, .35515, .02419, .00068,
2247 + .00000, .01662, .03621,
2248 + .54237, .23019, .33378, .02357, .00114,
2249 + -.00163, .01627, .03471,
2250 + .52924, .22305, .30809, .02283, .00159,
2251 + -.00098, .01586, .03311,
2252 + .51562, .21580, .28365, .02205, .00196,
2253 + -.00045, .01540, .03154,
2254 + .50333, .20943, .26332, .02138, .00224,
2255 + -.00005, .01497, .03017 /
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 + .49104, .20317, .24443, .02071, .00249,
2258 + .00032, .01455, .02883,
2259 + .48098, .19808, .22991, .02015, .00265,
2260 + .00058, .01420, .02776,
2261 + .46888, .19207, .21356, .01948, .00281,
2262 + .00084, .01377, .02652,
2263 + .45837, .18688, .20023, .01888, .00292,
2264 + .00104, .01337, .02549,
2265 + .44894, .18224, .18886, .01833, .00300,
2266 + .00120, .01302, .02460,
2267 + .43704, .17651, .17546, .01766, .00309,
2268 + .00138, .01256, .02351,
2269 + .42604, .17130, .16385, .01706, .00313,
2270 + .00151, .01215, .02252,
2271 + .41596, .16656, .15383, .01652, .00317,
2272 + .00162, .01177, .02162 /
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 + .40609, .16194, .14452, .01596, .00319,
2275 + .00171, .01142, .02073,
2276 + .39657, .15755, .13605, .01545, .00320,
2277 + .00178, .01107, .01992,
2278 + .38777, .15352, .12859, .01500, .00319,
2279 + .00183, .01074, .01918,
2280 + .37957, .14977, .12198, .01456, .00319,
2281 + .00188, .01043, .01853,
2282 + .37156, .14612, .11576, .01414, .00317,
2283 + .00191, .01013, .01792,
2284 + .36376, .14261, .11000, .01373, .00315,
2285 + .00193, .00986, .01730,
2286 + .35656, .13937, .10486, .01335, .00313,
2287 + .00196, .00962, .01672,
2288 + .34975, .13635, .10025, .01300, .00310,
2289 + .00196, .00936, .01623 /
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 + .34307, .13340, .09588, .01267, .00307,
2292 + .00197, .00912, .01573,
2293 + .33655, .13051, .09177, .01233, .00304,
2294 + .00198, .00887, .01525,
2295 + .33048, .12783, .08805, .01202, .00301,
2296 + .00198, .00866, .01482,
2297 + .32477, .12534, .08470, .01174, .00297,
2298 + .00197, .00845, .01440,
2299 + .31906, .12288, .08145, .01148, .00294,
2300 + .00198, .00826, .01400 /
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 + .65325, .29456, .55370, .02477, .00000,
2303 + .00000, .01400, .04320,
2304 + .64483, .28784, .52322, .02444, .00000,
2305 + .00000, .01410, .04131,
2306 + .63100, .27772, .48987, .02385, -.00491,
2307 + .00000, .01411, .03882,
2308 + .62008, .27050, .45921, .02339, -.00416,
2309 + .00000, .01407, .03710,
2310 + .60829, .26307, .42779, .02290, -.00317,
2311 + .00000, .01399, .03549,
2312 + .59782, .25657, .40233, .02241, -.00247,
2313 + .00000, .01387, .03416,
2314 + .58757, .25050, .37929, .02199, -.00185,
2315 + .00000, .01376, .03290,
2316 + .57658, .24421, .35636, .02152, -.00127,
2317 + .00000, .01360, .03160 /
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 + .56696, .23882, .33752, .02108, -.00083,
2320 + .00000, .01339, .03059,
2321 + .55761, .23368, .32028, .02066, -.00044,
2322 + .00000, .01321, .02959,
2323 + .55026, .22968, .30737, .02033, -.00016,
2324 + .00000, .01307, .02882,
2325 + .53466, .22134, .28206, .01960, .00036,
2326 + .00000, .01273, .02730,
2327 + .52132, .21444, .26319, .01900, .00073,
2328 + -.00135, .01242, .02606,
2329 + .50653, .20693, .24094, .01833, .00108,
2330 + -.00084, .01208, .02473,
2331 + .49132, .19940, .22002, .01765, .00136,
2332 + -.00044, .01169, .02344,
2333 + .47779, .19278, .20282, .01702, .00159,
2334 + -.00011, .01133, .02231 /
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 + .46446, .18629, .18700, .01638, .00177,
2337 + .00017, .01095, .02127,
2338 + .45363, .18108, .17493, .01584, .00189,
2339 + .00036, .01063, .02046,
2340 + .44062, .17495, .16142, .01527, .00200,
2341 + .00056, .01027, .01942,
2342 + .42936, .16971, .15051, .01476, .00208,
2343 + .00070, .00995, .01861,
2344 + .41930, .16507, .14129, .01426, .00214,
2345 + .00083, .00963, .01794,
2346 + .40677, .15933, .13049, .01369, .00220,
2347 + .00096, .00932, .01701,
2348 + .39531, .15411, .12125, .01315, .00224,
2349 + .00105, .00897, .01622,
2350 + .38486, .14939, .11327, .01268, .00226,
2351 + .00113, .00866, .01555 /
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 + .37454, .14485, .10591, .01228, .00227,
2354 + .00120, .00837, .01484,
2355 + .36474, .14051, .09925, .01185, .00227,
2356 + .00125, .00809, .01422,
2357 + .35575, .13656, .09344, .01143, .00226,
2358 + .00128, .00782, .01370,
2359 + .34741, .13291, .08833, .01105, .00225,
2360 + .00131, .00757, .01319,
2361 + .33927, .12937, .08355, .01069, .00224,
2362 + .00134, .00734, .01269,
2363 + .33131, .12600, .07914, .01039, .00222,
2364 + .00135, .00712, .01220,
2365 + .32399, .12288, .07521, .01010, .00220,
2366 + .00136, .00690, .01177,
2367 + .31718, .11995, .07173, .00981, .00218,
2368 + .00137, .00672, .01139 /
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 + .31052, .11709, .06839, .00953, .00215,
2371 + .00137, .00653, .01103,
2372 + .30399, .11434, .06529, .00926, .00213,
2373 + .00138, .00635, .01067,
2374 + .29790, .11179, .06251, .00901, .00210,
2375 + .00137, .00618, .01035,
2376 + .29225, .10942, .06000, .00877, .00207,
2377 + .00137, .00603, .01005,
2378 + .28662, .10707, .05761, .00853, .00204,
2379 + .00136, .00586, .00975 /
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 + .65311, .28461, .47242, .02041, .00000,
2382 + .00000, .01092, .03344,
2383 + .64158, .27669, .44239, .02004, .00000,
2384 + .00000, .01099, .03195,
2385 + .62338, .26533, .40941, .01947, -.00428,
2386 + .00000, .01104, .02982,
2387 + .60970, .25728, .38020, .01911, -.00361,
2388 + .00000, .01101, .02838,
2389 + .59538, .24900, .35107, .01862, -.00277,
2390 + .00000, .01093, .02704,
2391 + .58278, .24205, .32761, .01824, -.00218,
2392 + .00000, .01081, .02590,
2393 + .57072, .23551, .30672, .01781, -.00167,
2394 + .00000, .01066, .02488,
2395 + .55798, .22873, .28608, .01734, -.00118,
2396 + .00000, .01049, .02388 /
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 + .54696, .22300, .26929, .01697, -.00082,
2399 + .00000, .01034, .02297,
2400 + .53635, .21759, .25403, .01657, -.00051,
2401 + .00000, .01017, .02216,
2402 + .52804, .21339, .24269, .01627, -.00027,
2403 + .00000, .01003, .02155,
2404 + .51056, .20472, .22062, .01565, .00014,
2405 + .00000, .00971, .02031,
2406 + .49585, .19760, .20436, .01511, .00043,
2407 + -.00111, .00945, .01931,
2408 + .47979, .18991, .18553, .01449, .00071,
2409 + -.00072, .00914, .01825,
2410 + .46350, .18219, .16797, .01385, .00093,
2411 + -.00040, .00881, .01722,
2412 + .44904, .17550, .15366, .01331, .00110,
2413 + -.00015, .00851, .01633 /
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 + .43481, .16901, .14065, .01278, .00123,
2416 + .00006, .00820, .01548,
2417 + .42333, .16384, .13083, .01235, .00133,
2418 + .00021, .00794, .01482,
2419 + .40980, .15773, .11992, .01182, .00141,
2420 + .00036, .00764, .01405,
2421 + .39810, .15254, .11119, .01138, .00148,
2422 + .00048, .00737, .01339,
2423 + .38765, .14798, .10387, .01101, .00152,
2424 + .00056, .00714, .01282,
2425 + .37475, .14232, .09531, .01053, .00155,
2426 + .00065, .00686, .01214,
2427 + .36303, .13724, .08804, .01008, .00158,
2428 + .00073, .00659, .01156,
2429 + .35240, .13267, .08186, .00969, .00159,
2430 + .00078, .00633, .01103 /
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 + .34202, .12825, .07621, .00930, .00160,
2433 + .00083, .00609, .01052,
2434 + .33216, .12409, .07111, .00894, .00160,
2435 + .00086, .00586, .01005,
2436 + .32312, .12028, .06668, .00861, .00159,
2437 + .00090, .00566, .00963,
2438 + .31476, .11679, .06282, .00831, .00158,
2439 + .00091, .00547, .00925,
2440 + .30666, .11342, .05922, .00801, .00157,
2441 + .00093, .00530, .00887,
2442 + .29880, .11018, .05591, .00775, .00155,
2443 + .00093, .00511, .00854,
2444 + .29157, .10721, .05299, .00750, .00153,
2445 + .00094, .00494, .00822,
2446 + .28484, .10448, .05040, .00728, .00151,
2447 + .00094, .00481, .00791 /
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 + .27826, .10181, .04794, .00707, .00150,
2450 + .00095, .00467, .00761,
2451 + .27186, .09923, .04566, .00686, .00148,
2452 + .00095, .00452, .00736,
2453 + .26594, .09684, .04361, .00666, .00146,
2454 + .00095, .00439, .00713,
2455 + .26042, .09461, .04178, .00647, .00143,
2456 + .00094, .00427, .00691,
2457 + .25497, .09241, .04002, .00627, .00141,
2458 + .00094, .00415, .00670 /
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 + .64632, .27270, .39694, .01698, .00000,
2461 + .00000, .00823, .02512,
2462 + .63169, .26397, .36814, .01666, .00000,
2463 + .00000, .00831, .02391,
2464 + .60962, .25137, .33635, .01613, -.00368,
2465 + .00000, .00838, .02223,
2466 + .59355, .24261, .30933, .01570, -.00309,
2467 + .00000, .00835, .02115,
2468 + .57685, .23379, .28280, .01527, -.00239,
2469 + .00000, .00825, .02010,
2470 + .56246, .22642, .26178, .01485, -.00189,
2471 + .00000, .00819, .01921,
2472 + .54885, .21954, .24319, .01448, -.00146,
2473 + .00000, .00808, .01839,
2474 + .53461, .21247, .22505, .01407, -.00107,
2475 + .00000, .00795, .01754 /
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 + .52242, .20648, .21044, .01367, -.00076,
2478 + .00000, .00782, .01687,
2479 + .51077, .20084, .19731, .01333, -.00051,
2480 + .00000, .00768, .01624,
2481 + .50171, .19650, .18755, .01307, -.00033,
2482 + .00000, .00757, .01578,
2483 + .48287, .18770, .16883, .01247, .00001,
2484 + .00000, .00735, .01471,
2485 + .46719, .18046, .15518, .01198, .00023,
2486 + -.00090, .00711, .01396,
2487 + .45011, .17275, .13958, .01143, .00045,
2488 + -.00059, .00685, .01315,
2489 + .43296, .16505, .12523, .01088, .00062,
2490 + -.00035, .00658, .01237,
2491 + .41791, .15839, .11367, .01040, .00075,
2492 + -.00016, .00632, .01170 /
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 + .40323, .15199, .10323, .00995, .00085,
2495 + .00000, .00605, .01106,
2496 + .39142, .14688, .09543, .00954, .00093,
2497 + .00012, .00584, .01057,
2498 + .37749, .14093, .08685, .00912, .00099,
2499 + .00023, .00559, .00999,
2500 + .36563, .13590, .08002, .00874, .00103,
2501 + .00031, .00539, .00950,
2502 + .35513, .13146, .07432, .00841, .00106,
2503 + .00038, .00521, .00907,
2504 + .34210, .12604, .06779, .00801, .00109,
2505 + .00045, .00497, .00855,
2506 + .33031, .12118, .06230, .00766, .00111,
2507 + .00050, .00476, .00808,
2508 + .31969, .11682, .05762, .00734, .00112,
2509 + .00054, .00457, .00766 /
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 + .30942, .11260, .05335, .00704, .00112,
2512 + .00058, .00439, .00729,
2513 + .29967, .10865, .04955, .00674, .00111,
2514 + .00060, .00421, .00695,
2515 + .29078, .10507, .04628, .00646, .00111,
2516 + .00062, .00404, .00665,
2517 + .28257, .10179, .04345, .00624, .00110,
2518 + .00063, .00389, .00637,
2519 + .27462, .09863, .04079, .00603, .00109,
2520 + .00064, .00376, .00610,
2521 + .26697, .09560, .03840, .00581, .00107,
2522 + .00064, .00364, .00585,
2523 + .25995, .09283, .03628, .00560, .00107,
2524 + .00065, .00351, .00562,
2525 + .25344, .09028, .03442, .00542, .00105,
2526 + .00066, .00339, .00541 /
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 + .24709, .08780, .03266, .00524, .00103,
2529 + .00065, .00328, .00522,
2530 + .24095, .08540, .03105, .00507, .00102,
2531 + .00065, .00317, .00503,
2532 + .23528, .08318, .02961, .00491, .00100,
2533 + .00065, .00307, .00485,
2534 + .23001, .08114, .02831, .00475, .00099,
2535 + .00065, .00298, .00468,
2536 + .22481, .07913, .02707, .00460, .00097,
2537 + .00064, .00290, .00452 /
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 + .63378, .25873, .32601, .01392, .00000,
2540 + .00000, .00605, .01849,
2541 + .61625, .24932, .29919, .01362, .00000,
2542 + .00000, .00622, .01752,
2543 + .59063, .23586, .26968, .01316, -.00311,
2544 + .00000, .00629, .01622,
2545 + .57239, .22661, .24544, .01274, -.00260,
2546 + .00000, .00628, .01541,
2547 + .55366, .21744, .22204, .01235, -.00202,
2548 + .00000, .00624, .01455,
2549 + .53785, .20971, .20367, .01195, -.00160,
2550 + .00000, .00616, .01393,
2551 + .52293, .20263, .18768, .01157, -.00125,
2552 + .00000, .00608, .01330,
2553 + .50744, .19543, .17221, .01120, -.00093,
2554 + .00000, .00598, .01265 /
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 + .49422, .18939, .15987, .01088, -.00069,
2557 + .00000, .00587, .01213,
2558 + .48180, .18370, .14884, .01055, -.00048,
2559 + .00000, .00575, .01168,
2560 + .47224, .17936, .14076, .01026, -.00034,
2561 + .00000, .00565, .01133,
2562 + .45234, .17047, .12530, .00978, -.00008,
2563 + .00000, .00547, .01059,
2564 + .43597, .16333, .11417, .00935, .00011,
2565 + -.00071, .00528, .00999,
2566 + .41830, .15566, .10168, .00889, .00027,
2567 + -.00049, .00504, .00937,
2568 + .40062, .14813, .09026, .00845, .00040,
2569 + -.00030, .00481, .00877,
2570 + .38528, .14166, .08118, .00804, .00050,
2571 + -.00015, .00462, .00826 /
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 + .37042, .13545, .07310, .00762, .00058,
2574 + -.00003, .00442, .00775,
2575 + .35849, .13054, .06710, .00734, .00063,
2576 + .00005, .00427, .00736,
2577 + .34452, .12481, .06057, .00697, .00068,
2578 + .00014, .00406, .00695,
2579 + .33269, .11998, .05542, .00663, .00071,
2580 + .00020, .00389, .00661,
2581 + .32227, .11575, .05117, .00632, .00073,
2582 + .00025, .00377, .00628,
2583 + .30939, .11062, .04636, .00603, .00075,
2584 + .00030, .00357, .00589,
2585 + .29776, .10603, .04231, .00576, .00076,
2586 + .00034, .00341, .00556,
2587 + .28733, .10193, .03891, .00551, .00077,
2588 + .00036, .00327, .00526 /
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 + .27732, .09797, .03586, .00524, .00077,
2591 + .00039, .00310, .00500,
2592 + .26788, .09427, .03316, .00499, .00077,
2593 + .00040, .00298, .00474,
2594 + .25928, .09093, .03085, .00478, .00077,
2595 + .00042, .00286, .00452,
2596 + .25136, .08790, .02882, .00459, .00076,
2597 + .00043, .00276, .00433,
2598 + .24371, .08498, .02695, .00442, .00075,
2599 + .00043, .00264, .00415,
2600 + .23640, .08219, .02530, .00424, .00074,
2601 + .00044, .00255, .00396,
2602 + .22972, .07965, .02383, .00409, .00073,
2603 + .00044, .00245, .00379,
2604 + .22355, .07729, .02255, .00393, .00072,
2605 + .00045, .00236, .00365 /
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 + .21755, .07501, .02135, .00378, .00070,
2608 + .00044, .00228, .00350,
2609 + .21170, .07283, .02026, .00366, .00069,
2610 + .00044, .00220, .00336,
2611 + .20628, .07083, .01926, .00356, .00068,
2612 + .00044, .00214, .00323,
2613 + .20130, .06898, .01839, .00346, .00067,
2614 + .00044, .00206, .00312,
2615 + .19639, .06716, .01755, .00334, .00066,
2616 + .00043, .00200, .00301 /
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 + .61570, .24316, .25949, .01116, .00000,
2619 + .00000, .00454, .01325,
2620 + .59585, .23307, .23543, .01087, .00000,
2621 + .00000, .00465, .01260,
2622 + .56706, .21910, .20912, .01038, -.00259,
2623 + .00000, .00472, .01171,
2624 + .54688, .20961, .18812, .01006, -.00214,
2625 + .00000, .00471, .01104,
2626 + .52660, .20019, .16815, .00969, -.00167,
2627 + .00000, .00470, .01042,
2628 + .50946, .19242, .15274, .00937, -.00133,
2629 + .00000, .00460, .00996,
2630 + .49358, .18527, .13939, .00904, -.00105,
2631 + .00000, .00454, .00951,
2632 + .47722, .17799, .12663, .00871, -.00079,
2633 + .00000, .00446, .00904 /
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 + .46334, .17198, .11659, .00848, -.00060,
2636 + .00000, .00437, .00862,
2637 + .45033, .16638, .10772, .00821, -.00044,
2638 + .00000, .00428, .00823,
2639 + .44031, .16212, .10122, .00801, -.00032,
2640 + .00000, .00421, .00794,
2641 + .41976, .15337, .08907, .00753, -.00012,
2642 + .00000, .00402, .00742,
2643 + .40301, .14636, .08031, .00721, .00002,
2644 + -.00056, .00386, .00699,
2645 + .38509, .13897, .07063, .00678, .00015,
2646 + -.00039, .00374, .00653,
2647 + .36730, .13168, .06196, .00636, .00025,
2648 + -.00024, .00355, .00611,
2649 + .35190, .12547, .05511, .00604, .00033,
2650 + -.00013, .00338, .00574 /
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 + .33707, .11956, .04908, .00573, .00038,
2653 + -.00005, .00321, .00539,
2654 + .32523, .11489, .04467, .00549, .00043,
2655 + .00002, .00309, .00511,
2656 + .31153, .10948, .03997, .00515, .00046,
2657 + .00008, .00293, .00479,
2658 + .29989, .10492, .03629, .00489, .00048,
2659 + .00013, .00279, .00454,
2660 + .28966, .10094, .03324, .00469, .00049,
2661 + .00016, .00267, .00433,
2662 + .27717, .09615, .02982, .00444, .00051,
2663 + .00020, .00255, .00405,
2664 + .26596, .09188, .02703, .00421, .00052,
2665 + .00022, .00242, .00379,
2666 + .25592, .08808, .02471, .00401, .00052,
2667 + .00024, .00231, .00357 /
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 + .24627, .08443, .02261, .00381, .00053,
2670 + .00026, .00221, .00339,
2671 + .23722, .08103, .02079, .00362, .00052,
2672 + .00027, .00211, .00320,
2673 + .22902, .07796, .01922, .00346, .00052,
2674 + .00028, .00203, .00306,
2675 + .22151, .07518, .01792, .00330, .00051,
2676 + .00029, .00194, .00291,
2677 + .21428, .07251, .01670, .00316, .00051,
2678 + .00029, .00185, .00276,
2679 + .20738, .06997, .01562, .00304, .00050,
2680 + .00030, .00178, .00264,
2681 + .20107, .06766, .01466, .00292, .00049,
2682 + .00029, .00170, .00254,
2683 + .19525, .06555, .01384, .00282, .00048,
2684 + .00030, .00164, .00242 /
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 + .18959, .06349, .01309, .00272, .00048,
2687 + .00030, .00159, .00232,
2688 + .18418, .06152, .01237, .00261, .00047,
2689 + .00030, .00154, .00223,
2690 + .17920, .05972, .01175, .00250, .00046,
2691 + .00029, .00148, .00215,
2692 + .17459, .05806, .01120, .00241, .00046,
2693 + .00030, .00143, .00208,
2694 + .17002, .05643, .01068, .00234, .00044,
2695 + .00029, .00137, .00200 /
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 + .59255, .22677, .19783, .00908, .00000,
2698 + .00000, .00318, .00912,
2699 + .57051, .21636, .17716, .00881, .00000,
2700 + .00000, .00331, .00864,
2701 + .53931, .20190, .15482, .00834, -.00211,
2702 + .00000, .00335, .00810,
2703 + .51774, .19230, .13729, .00798, -.00175,
2704 + .00000, .00341, .00767,
2705 + .49613, .18284, .12090, .00764, -.00135,
2706 + .00000, .00340, .00730,
2707 + .47817, .17510, .10850, .00740, -.00109,
2708 + .00000, .00337, .00684,
2709 + .46154, .16801, .09791, .00714, -.00086,
2710 + .00000, .00331, .00648,
2711 + .44456, .16089, .08788, .00684, -.00066,
2712 + .00000, .00323, .00617 /
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 + .43031, .15496, .08004, .00658, -.00050,
2715 + .00000, .00318, .00593,
2716 + .41701, .14945, .07324, .00632, -.00038,
2717 + .00000, .00310, .00569,
2718 + .40684, .14524, .06834, .00612, -.00029,
2719 + .00000, .00303, .00549,
2720 + .38612, .13680, .05912, .00569, -.00013,
2721 + .00000, .00289, .00514,
2722 + .36927, .13010, .05268, .00539, -.00002,
2723 + -.00043, .00278, .00481,
2724 + .35133, .12302, .04554, .00511, .00008,
2725 + -.00030, .00267, .00446,
2726 + .33364, .11612, .03930, .00483, .00016,
2727 + -.00019, .00253, .00412,
2728 + .31845, .11024, .03446, .00455, .00021,
2729 + -.00011, .00241, .00387 /
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 + .30392, .10462, .03026, .00429, .00025,
2732 + -.00005, .00227, .00363,
2733 + .29240, .10024, .02718, .00407, .00028,
2734 + .00000, .00219, .00344,
2735 + .27906, .09522, .02397, .00384, .00031,
2736 + .00005, .00206, .00321,
2737 + .26783, .09101, .02151, .00364, .00032,
2738 + .00008, .00197, .00302,
2739 + .25799, .08733, .01952, .00347, .00034,
2740 + .00010, .00188, .00287,
2741 + .24602, .08291, .01732, .00326, .00034,
2742 + .00013, .00177, .00268,
2743 + .23533, .07897, .01552, .00308, .00035,
2744 + .00015, .00167, .00252,
2745 + .22581, .07548, .01402, .00293, .00035,
2746 + .00016, .00160, .00239 /
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 + .21669, .07218, .01275, .00277, .00035,
2749 + .00017, .00150, .00225,
2750 + .20815, .06909, .01163, .00263, .00035,
2751 + .00018, .00143, .00212,
2752 + .20042, .06631, .01069, .00251, .00035,
2753 + .00019, .00136, .00200,
2754 + .19342, .06381, .00988, .00239, .00035,
2755 + .00020, .00131, .00191,
2756 + .18670, .06142, .00917, .00226, .00034,
2757 + .00019, .00125, .00181,
2758 + .18025, .05912, .00854, .00218, .00034,
2759 + .00020, .00120, .00172,
2760 + .17439, .05705, .00799, .00211, .00033,
2761 + .00020, .00114, .00164,
2762 + .16902, .05516, .00753, .00202, .00033,
2763 + .00020, .00111, .00157 /
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 + .16384, .05333, .00708, .00193, .00032,
2766 + .00020, .00108, .00150,
2767 + .15884, .05157, .00669, .00185, .00031,
2768 + .00020, .00104, .00144,
2769 + .15424, .04996, .00635, .00178, .00031,
2770 + .00020, .00099, .00139,
2771 + .15000, .04849, .00604, .00172, .00030,
2772 + .00020, .00096, .00133,
2773 + .14583, .04704, .00578, .00165, .00029,
2774 + .00019, .00091, .00129 /
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 + .56505, .20947, .14149, .00724, .00000,
2777 + .00000, .00215, .00607,
2778 + .54136, .19888, .12461, .00691, .00000,
2779 + .00000, .00223, .00592,
2780 + .50805, .18459, .10658, .00663, -.00169,
2781 + .00000, .00234, .00541,
2782 + .48550, .17499, .09281, .00633, -.00138,
2783 + .00000, .00238, .00511,
2784 + .46313, .16558, .08016, .00606, -.00107,
2785 + .00000, .00239, .00480,
2786 + .44467, .15798, .07072, .00575, -.00087,
2787 + .00000, .00231, .00463,
2788 + .42762, .15109, .06270, .00554, -.00069,
2789 + .00000, .00229, .00441,
2790 + .41034, .14416, .05529, .00532, -.00053,
2791 + .00000, .00224, .00414 /
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 + .39601, .13842, .04966, .00508, -.00042,
2794 + .00000, .00220, .00393,
2795 + .38262, .13313, .04477, .00488, -.00032,
2796 + .00000, .00215, .00376,
2797 + .37238, .12912, .04125, .00471, -.00024,
2798 + .00000, .00211, .00365,
2799 + .35162, .12109, .03482, .00448, -.00012,
2800 + .00000, .00200, .00332,
2801 + .33506, .11469, .03044, .00417, -.00005,
2802 + -.00033, .00190, .00318,
2803 + .31750, .10799, .02557, .00390, .00003,
2804 + -.00023, .00181, .00298,
2805 + .30025, .10153, .02137, .00368, .00009,
2806 + -.00015, .00171, .00274,
2807 + .28557, .09604, .01825, .00343, .00013,
2808 + -.00009, .00161, .00256 /
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 + .27158, .09086, .01559, .00319, .00016,
2811 + -.00004, .00152, .00239,
2812 + .26044, .08682, .01369, .00308, .00019,
2813 + -.00001, .00146, .00224,
2814 + .24771, .08215, .01174, .00287, .00020,
2815 + .00002, .00140, .00208,
2816 + .23704, .07827, .01026, .00271, .00021,
2817 + .00005, .00133, .00197,
2818 + .22770, .07491, .00914, .00256, .00022,
2819 + .00006, .00125, .00188,
2820 + .21638, .07089, .00791, .00240, .00023,
2821 + .00009, .00117, .00173,
2822 + .20635, .06731, .00693, .00226, .00023,
2823 + .00010, .00110, .00162,
2824 + .19744, .06416, .00612, .00214, .00023,
2825 + .00011, .00105, .00151 /
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 + .18890, .06117, .00547, .00204, .00024,
2828 + .00012, .00099, .00143,
2829 + .18096, .05841, .00490, .00193, .00023,
2830 + .00012, .00094, .00135,
2831 + .17382, .05592, .00445, .00182, .00023,
2832 + .00012, .00090, .00128,
2833 + .16734, .05369, .00408, .00173, .00023,
2834 + .00013, .00085, .00121,
2835 + .16113, .05154, .00373, .00165, .00022,
2836 + .00013, .00082, .00114,
2837 + .15522, .04952, .00345, .00158, .00022,
2838 + .00013, .00078, .00108,
2839 + .14987, .04770, .00321, .00151, .00022,
2840 + .00014, .00075, .00103,
2841 + .14500, .04601, .00301, .00144, .00021,
2842 + .00013, .00073, .00099 /
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 + .14028, .04439, .00282, .00137, .00021,
2845 + .00013, .00069, .00095,
2846 + .13571, .04286, .00266, .00132, .00020,
2847 + .00013, .00067, .00090,
2848 + .13152, .04146, .00252, .00129, .00021,
2849 + .00013, .00064, .00085,
2850 + .12768, .04017, .00240, .00124, .00020,
2851 + .00013, .00062, .00082,
2852 + .12392, .03891, .00229, .00119, .00019,
2853 + .00013, .00060, .00079 /
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 + .53373, .19142, .09101, .00555, .00000,
2856 + .00000, .00154, .00399,
2857 + .50874, .18092, .07817, .00533, .00000,
2858 + .00000, .00160, .00386,
2859 + .47425, .16673, .06494, .00497, -.00132,
2860 + .00000, .00169, .00359,
2861 + .45106, .15736, .05476, .00473, -.00107,
2862 + .00000, .00169, .00343,
2863 + .42825, .14827, .04571, .00446, -.00084,
2864 + .00000, .00168, .00328,
2865 + .40935, .14098, .03906, .00435, -.00067,
2866 + .00000, .00168, .00307,
2867 + .39224, .13435, .03362, .00416, -.00054,
2868 + .00000, .00165, .00288,
2869 + .37507, .12770, .02867, .00392, -.00042,
2870 + .00000, .00160, .00275 /
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 + .36079, .12223, .02489, .00376, -.00033,
2873 + .00000, .00156, .00264,
2874 + .34760, .11722, .02176, .00359, -.00026,
2875 + .00000, .00152, .00249,
2876 + .33757, .11344, .01953, .00347, -.00020,
2877 + .00000, .00149, .00239,
2878 + .31721, .10584, .01562, .00321, -.00011,
2879 + .00000, .00140, .00224,
2880 + .30102, .09989, .01295, .00304, -.00005,
2881 + -.00025, .00138, .00207,
2882 + .28401, .09368, .01007, .00282, .00000,
2883 + -.00017, .00128, .00194,
2884 + .26748, .08770, .00774, .00259, .00004,
2885 + -.00011, .00119, .00178,
2886 + .25341, .08265, .00600, .00242, .00007,
2887 + -.00007, .00114, .00167 /
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 + .24005, .07791, .00456, .00227, .00009,
2890 + -.00004, .00109, .00158,
2891 + .22960, .07423, .00366, .00213, .00011,
2892 + -.00002, .00103, .00147,
2893 + .21757, .07002, .00275, .00200, .00013,
2894 + .00001, .00095, .00133,
2895 + .20753, .06651, .00212, .00188, .00013,
2896 + .00002, .00090, .00125,
2897 + .19881, .06345, .00162, .00176, .00014,
2898 + .00004, .00086, .00121,
2899 + .18830, .05984, .00112, .00165, .00014,
2900 + .00005, .00081, .00114,
2901 + .17899, .05665, .00076, .00154, .00015,
2902 + .00006, .00077, .00106,
2903 + .17076, .05385, .00053, .00145, .00015,
2904 + .00007, .00073, .00097 /
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 + .16294, .05118, .00032, .00137, .00016,
2907 + .00008, .00071, .00091,
2908 + .15568, .04873, .00016, .00130, .00015,
2909 + .00008, .00066, .00087,
2910 + .14913, .04653, .00008, .00123, .00015,
2911 + .00009, .00063, .00082,
2912 + .14323, .04457, .00000, .00117, .00015,
2913 + .00008, .00060, .00079,
2914 + .13758, .04270, -.00003, .00110, .00014,
2915 + .00008, .00056, .00074,
2916 + .13223, .04092, -.00006, .00105, .00014,
2917 + .00008, .00053, .00071,
2918 + .12739, .03932, -.00008, .00101, .00014,
2919 + .00009, .00051, .00068,
2920 + .12297, .03786, -.00008, .00096, .00014,
2921 + .00009, .00050, .00063 /
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 + .11871, .03647, -.00009, .00093, .00013,
2924 + .00009, .00047, .00060,
2925 + .11466, .03513, -.00007, .00088, .00013,
2926 + .00008, .00045, .00057,
2927 + .11094, .03391, -.00006, .00083, .00013,
2928 + .00008, .00043, .00056,
2929 + .10751, .03280, -.00005, .00080, .00013,
2930 + .00009, .00042, .00054,
2931 + .10415, .03171, -.00004, .00078, .00013,
2932 + .00009, .00040, .00051 /
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 + .49938, .17320, .04730, .00397, .00000,
2935 + .00000, .00108, .00260,
2936 + .47356, .16291, .03842, .00388, .00000,
2937 + .00000, .00119, .00246,
2938 + .43822, .14909, .02998, .00356, -.00101,
2939 + .00000, .00125, .00235,
2940 + .41471, .14009, .02334, .00342, -.00082,
2941 + .00000, .00124, .00227,
2942 + .39191, .13133, .01766, .00317, -.00064,
2943 + .00000, .00127, .00214,
2944 + .37327, .12435, .01363, .00300, -.00051,
2945 + .00000, .00124, .00204,
2946 + .35635, .11806, .01043, .00286, -.00041,
2947 + .00000, .00121, .00196,
2948 + .33936, .11181, .00762, .00272, -.00032,
2949 + .00000, .00119, .00185 /
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 + .32540, .10666, .00565, .00255, -.00025,
2952 + .00000, .00116, .00177,
2953 + .31249, .10198, .00404, .00243, -.00020,
2954 + .00000, .00113, .00169,
2955 + .30271, .09848, .00294, .00234, -.00017,
2956 + .00000, .00110, .00164,
2957 + .28313, .09145, .00113, .00215, -.00010,
2958 + .00000, .00106, .00150,
2959 + .26764, .08597, -.00002, .00201, -.00005,
2960 + -.00018, .00099, .00141,
2961 + .25146, .08030, -.00126, .00184, -.00002,
2962 + -.00013, .00094, .00128,
2963 + .23582, .07483, -.00223, .00169, .00001,
2964 + -.00009, .00088, .00121,
2965 + .22255, .07025, -.00280, .00156, .00004,
2966 + -.00005, .00083, .00114 /
2967 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
2968 + .21000, .06598, -.00318, .00146, .00005,
2969 + -.00003, .00077, .00105,
2970 + .20019, .06263, -.00333, .00138, .00007,
2971 + -.00001, .00074, .00099,
2972 + .18902, .05886, -.00348, .00129, .00008,
2973 + .00000, .00069, .00091,
2974 + .17974, .05577, -.00354, .00122, .00009,
2975 + .00002, .00064, .00085,
2976 + .17171, .05310, -.00350, .00115, .00009,
2977 + .00003, .00061, .00079,
2978 + .16201, .04988, -.00343, .00107, .00009,
2979 + .00003, .00059, .00074,
2980 + .15350, .04707, -.00329, .00100, .00009,
2981 + .00004, .00054, .00069,
2982 + .14600, .04463, -.00317, .00093, .00009,
2983 + .00004, .00050, .00065 /
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 + .13891, .04229, -.00304, .00088, .00010,
2986 + .00005, .00048, .00062,
2987 + .13233, .04015, -.00286, .00082, .00009,
2988 + .00005, .00046, .00057,
2989 + .12644, .03826, -.00271, .00078, .00010,
2990 + .00006, .00044, .00053,
2991 + .12113, .03655, -.00254, .00073, .00009,
2992 + .00005, .00042, .00051,
2993 + .11607, .03493, -.00240, .00069, .00009,
2994 + .00005, .00041, .00049,
2995 + .11133, .03340, -.00226, .00065, .00009,
2996 + .00005, .00038, .00046,
2997 + .10703, .03202, -.00212, .00062, .00008,
2998 + .00005, .00036, .00044,
2999 + .10311, .03077, -.00201, .00060, .00009,
3000 + .00006, .00035, .00043 /
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 + .09933, .02957, -.00188, .00056, .00009,
3003 + .00006, .00032, .00041,
3004 + .09574, .02844, -.00176, .00054, .00009,
3005 + .00006, .00031, .00038,
3006 + .09244, .02741, -.00163, .00052, .00008,
3007 + .00006, .00030, .00036,
3008 + .08943, .02647, -.00153, .00050, .00008,
3009 + .00005, .00029, .00033,
3010 + .08649, .02554, -.00144, .00047, .00008,
3011 + .00005, .00028, .00033 /
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 + .46259, .15583, .00987, .00342, .00000,
3014 + .00000, .00045, .00140,
3015 + .43650, .14590, .00499, .00320, .00000,
3016 + .00000, .00053, .00139,
3017 + .40113, .13261, .00097, .00296, -.00075,
3018 + .00000, .00067, .00133,
3019 + .37795, .12400, -.00238, .00275, -.00061,
3020 + .00000, .00072, .00125,
3021 + .35546, .11580, -.00508, .00258, -.00047,
3022 + .00000, .00071, .00119,
3023 + .33722, .10916, -.00677, .00244, -.00038,
3024 + .00000, .00072, .00114,
3025 + .32077, .10327, -.00797, .00229, -.00031,
3026 + .00000, .00071, .00110,
3027 + .30435, .09745, -.00883, .00213, -.00024,
3028 + .00000, .00068, .00105 /
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 + .29084, .09273, -.00936, .00201, -.00019,
3031 + .00000, .00066, .00100,
3032 + .27851, .08839, -.00972, .00192, -.00016,
3033 + .00000, .00066, .00097,
3034 + .26920, .08510, -.00988, .00185, -.00012,
3035 + .00000, .00064, .00093,
3036 + .25044, .07871, -.00990, .00174, -.00008,
3037 + .00000, .00060, .00084,
3038 + .23584, .07369, -.00978, .00157, -.00004,
3039 + -.00013, .00056, .00081,
3040 + .22065, .06855, -.00977, .00142, -.00002,
3041 + -.00009, .00055, .00076,
3042 + .20595, .06364, -.00952, .00134, .00000,
3043 + -.00007, .00051, .00067,
3044 + .19364, .05952, -.00918, .00124, .00002,
3045 + -.00004, .00046, .00063 /
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 + .18211, .05566, -.00879, .00114, .00003,
3048 + -.00003, .00043, .00060,
3049 + .17310, .05273, -.00845, .00108, .00004,
3050 + -.00001, .00043, .00056,
3051 + .16283, .04937, -.00794, .00100, .00005,
3052 + .00000, .00039, .00051,
3053 + .15434, .04662, -.00749, .00093, .00005,
3054 + .00001, .00037, .00048,
3055 + .14705, .04426, -.00712, .00088, .00005,
3056 + .00001, .00035, .00046,
3057 + .13826, .04146, -.00660, .00082, .00006,
3058 + .00002, .00033, .00042,
3059 + .13061, .03899, -.00614, .00076, .00006,
3060 + .00002, .00031, .00040,
3061 + .12391, .03683, -.00572, .00069, .00006,
3062 + .00003, .00030, .00037 /
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 + .11757, .03482, -.00532, .00063, .00006,
3065 + .00003, .00028, .00034,
3066 + .11168, .03296, -.00494, .00060, .00006,
3067 + .00003, .00025, .00033,
3068 + .10641, .03133, -.00460, .00058, .00006,
3069 + .00003, .00024, .00030,
3070 + .10172, .02986, -.00429, .00054, .00006,
3071 + .00004, .00023, .00029,
3072 + .09726, .02847, -.00400, .00050, .00006,
3073 + .00004, .00022, .00027,
3074 + .09303, .02717, -.00372, .00049, .00006,
3075 + .00004, .00019, .00026,
3076 + .08921, .02600, -.00347, .00046, .00006,
3077 + .00004, .00018, .00023,
3078 + .08577, .02494, -.00326, .00045, .00005,
3079 + .00004, .00019, .00022 /
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 + .08248, .02392, -.00304, .00042, .00005,
3082 + .00003, .00017, .00021,
3083 + .07933, .02295, -.00285, .00040, .00005,
3084 + .00003, .00016, .00021,
3085 + .07647, .02207, -.00268, .00039, .00005,
3086 + .00003, .00016, .00020,
3087 + .07385, .02127, -.00251, .00037, .00005,
3088 + .00003, .00015, .00019,
3089 + .07130, .02050, -.00237, .00034, .00005,
3090 + .00003, .00015, .00019 /
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 + .42392, .13783, -.02012, .00224, .00000,
3093 + .00000, .00039, .00089,
3094 + .39793, .12840, -.02146, .00209, .00000,
3095 + .00000, .00045, .00090,
3096 + .36316, .11591, -.02132, .00192, -.00055,
3097 + .00000, .00050, .00085,
3098 + .34047, .10790, -.02191, .00180, -.00044,
3099 + .00000, .00053, .00081,
3100 + .31849, .10033, -.02196, .00173, -.00034,
3101 + .00000, .00049, .00081,
3102 + .30093, .09426, -.02170, .00159, -.00028,
3103 + .00000, .00049, .00077,
3104 + .28520, .08883, -.02126, .00150, -.00022,
3105 + .00000, .00049, .00073,
3106 + .26954, .08351, -.02065, .00142, -.00017,
3107 + .00000, .00048, .00069 /
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 + .25669, .07920, -.01999, .00137, -.00014,
3110 + .00000, .00045, .00067,
3111 + .24502, .07528, -.01928, .00128, -.00012,
3112 + .00000, .00044, .00064,
3113 + .23624, .07233, -.01867, .00121, -.00009,
3114 + .00000, .00042, .00062,
3115 + .21878, .06658, -.01740, .00111, -.00006,
3116 + .00000, .00039, .00055,
3117 + .20515, .06209, -.01630, .00106, -.00004,
3118 + -.00009, .00037, .00052,
3119 + .19111, .05750, -.01527, .00096, -.00002,
3120 + -.00006, .00035, .00047,
3121 + .17767, .05316, -.01421, .00088, -.00001,
3122 + -.00005, .00034, .00042,
3123 + .16638, .04954, -.01318, .00079, .00000,
3124 + -.00004, .00032, .00039 /
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 + .15583, .04617, -.01220, .00072, .00001,
3127 + -.00002, .00028, .00037,
3128 + .14767, .04359, -.01145, .00068, .00002,
3129 + -.00001, .00027, .00036,
3130 + .13840, .04067, -.01054, .00062, .00003,
3131 + .00000, .00027, .00032,
3132 + .13075, .03829, -.00981, .00060, .00003,
3133 + .00000, .00024, .00030,
3134 + .12416, .03625, -.00912, .00058, .00003,
3135 + .00000, .00022, .00026,
3136 + .11638, .03382, -.00836, .00053, .00004,
3137 + .00001, .00021, .00024,
3138 + .10954, .03172, -.00768, .00049, .00003,
3139 + .00001, .00020, .00023,
3140 + .10356, .02988, -.00706, .00045, .00003,
3141 + .00001, .00019, .00023 /
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 + .09799, .02815, -.00649, .00039, .00004,
3144 + .00002, .00016, .00022,
3145 + .09282, .02659, -.00598, .00037, .00004,
3146 + .00002, .00015, .00019,
3147 + .08820, .02520, -.00554, .00037, .00004,
3148 + .00002, .00014, .00018,
3149 + .08409, .02396, -.00516, .00036, .00004,
3150 + .00002, .00014, .00017,
3151 + .08018, .02279, -.00478, .00035, .00003,
3152 + .00002, .00013, .00016,
3153 + .07654, .02169, -.00444, .00031, .00003,
3154 + .00002, .00013, .00016,
3155 + .07328, .02071, -.00413, .00028, .00003,
3156 + .00002, .00012, .00014,
3157 + .07030, .01982, -.00386, .00027, .00003,
3158 + .00002, .00011, .00015 /
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 + .06744, .01897, -.00361, .00027, .00003,
3161 + .00002, .00011, .00014,
3162 + .06473, .01817, -.00338, .00026, .00003,
3163 + .00002, .00010, .00012,
3164 + .06226, .01744, -.00316, .00024, .00003,
3165 + .00002, .00010, .00012,
3166 + .06002, .01679, -.00299, .00024, .00004,
3167 + .00003, .00010, .00011,
3168 + .05783, .01614, -.00278, .00023, .00003,
3169 + .00003, .00009, .00011 /
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 + .38391, .12055, -.04284, .00134, .00000,
3172 + .00000, .00033, .00058,
3173 + .35850, .11173, -.04111, .00133, .00000,
3174 + .00000, .00035, .00054,
3175 + .32481, .10016, -.03755, .00119, -.00039,
3176 + .00000, .00038, .00055,
3177 + .30295, .09284, -.03580, .00113, -.00031,
3178 + .00000, .00037, .00054,
3179 + .28210, .08582, -.03382, .00108, -.00024,
3180 + .00000, .00040, .00050,
3181 + .26540, .08035, -.03196, .00100, -.00019,
3182 + .00000, .00036, .00049,
3183 + .25051, .07548, -.03025, .00095, -.00016,
3184 + .00000, .00036, .00047,
3185 + .23579, .07068, -.02845, .00088, -.00012,
3186 + .00000, .00036, .00046 /
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 + .22387, .06680, -.02683, .00084, -.00010,
3189 + .00000, .00033, .00041,
3190 + .21299, .06331, -.02538, .00080, -.00008,
3191 + .00000, .00033, .00039,
3192 + .20483, .06072, -.02428, .00078, -.00007,
3193 + .00000, .00033, .00039,
3194 + .18883, .05558, -.02198, .00064, -.00004,
3195 + .00000, .00030, .00035,
3196 + .17632, .05161, -.02018, .00060, -.00003,
3197 + -.00006, .00029, .00032,
3198 + .16346, .04759, -.01846, .00057, -.00001,
3199 + -.00004, .00027, .00030,
3200 + .15122, .04378, -.01673, .00052, .00000,
3201 + -.00003, .00023, .00027,
3202 + .14103, .04065, -.01533, .00050, .00000,
3203 + -.00002, .00022, .00025 /
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 + .13157, .03775, -.01400, .00046, .00001,
3206 + -.00001, .00021, .00022,
3207 + .12432, .03551, -.01297, .00040, .00001,
3208 + -.00001, .00020, .00023,
3209 + .11603, .03301, -.01181, .00040, .00002,
3210 + .00000, .00019, .00020,
3211 + .10927, .03097, -.01086, .00036, .00002,
3212 + .00000, .00018, .00019,
3213 + .10350, .02924, -.01003, .00033, .00001,
3214 + .00000, .00017, .00018,
3215 + .09662, .02718, -.00906, .00029, .00002,
3216 + .00001, .00014, .00018,
3217 + .09065, .02540, -.00825, .00026, .00002,
3218 + .00001, .00013, .00017,
3219 + .08544, .02386, -.00754, .00025, .00002,
3220 + .00001, .00013, .00014 /
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 + .08058, .02242, -.00694, .00024, .00002,
3223 + .00001, .00013, .00013,
3224 + .07611, .02111, -.00635, .00023, .00002,
3225 + .00001, .00012, .00012,
3226 + .07213, .01994, -.00584, .00022, .00002,
3227 + .00001, .00010, .00012,
3228 + .06858, .01891, -.00539, .00020, .00002,
3229 + .00001, .00009, .00010,
3230 + .06521, .01795, -.00498, .00020, .00002,
3231 + .00001, .00009, .00009,
3232 + .06209, .01705, -.00462, .00018, .00002,
3233 + .00001, .00009, .00009,
3234 + .05930, .01624, -.00428, .00018, .00002,
3235 + .00002, .00008, .00009,
3236 + .05675, .01552, -.00400, .00017, .00002,
3237 + .00002, .00008, .00008 /
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 + .05432, .01482, -.00372, .00017, .00002,
3240 + .00002, .00008, .00006,
3241 + .05205, .01417, -.00347, .00014, .00002,
3242 + .00002, .00007, .00007,
3243 + .04999, .01357, -.00325, .00013, .00002,
3244 + .00002, .00007, .00007,
3245 + .04810, .01303, -.00304, .00012, .00002,
3246 + .00002, .00005, .00007,
3247 + .04626, .01251, -.00286, .00012, .00002,
3248 + .00002, .00005, .00007 /
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 + .34410, .10463, -.05986, .00116, .00000,
3251 + .00000, .00006, .00022,
3252 + .31964, .09652, -.05551, .00106, .00000,
3253 + .00000, .00012, .00020,
3254 + .28742, .08590, -.04919, .00098, -.00027,
3255 + .00000, .00016, .00029,
3256 + .26681, .07923, -.04547, .00089, -.00022,
3257 + .00000, .00015, .00026,
3258 + .24721, .07296, -.04180, .00081, -.00016,
3259 + .00000, .00013, .00026,
3260 + .23161, .06796, -.03884, .00081, -.00013,
3261 + .00000, .00019, .00022,
3262 + .21781, .06360, -.03606, .00073, -.00011,
3263 + .00000, .00017, .00020,
3264 + .20427, .05932, -.03336, .00064, -.00008,
3265 + .00000, .00016, .00019 /
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 + .19332, .05587, -.03113, .00056, -.00007,
3268 + .00000, .00018, .00019,
3269 + .18330, .05277, -.02910, .00057, -.00006,
3270 + .00000, .00017, .00019,
3271 + .17579, .05049, -.02760, .00057, -.00005,
3272 + .00000, .00016, .00019,
3273 + .16113, .04598, -.02460, .00051, -.00003,
3274 + .00000, .00013, .00019,
3275 + .14987, .04259, -.02231, .00045, -.00002,
3276 + -.00004, .00013, .00016,
3277 + .13833, .03909, -.02014, .00041, -.00002,
3278 + -.00003, .00012, .00016,
3279 + .12739, .03579, -.01804, .00038, -.00001,
3280 + -.00002, .00011, .00015,
3281 + .11833, .03307, -.01632, .00036, .00000,
3282 + -.00001, .00010, .00013 /
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 + .10993, .03060, -.01474, .00033, .00000,
3285 + -.00001, .00009, .00012,
3286 + .10350, .02871, -.01355, .00031, .00000,
3287 + -.00001, .00010, .00009,
3288 + .09629, .02658, -.01224, .00027, .00000,
3289 + -.00001, .00009, .00010,
3290 + .09037, .02486, -.01115, .00023, .00001,
3291 + .00000, .00007, .00009,
3292 + .08533, .02339, -.01027, .00022, .00001,
3293 + .00000, .00007, .00009,
3294 + .07936, .02167, -.00925, .00023, .00001,
3295 + .00000, .00008, .00008,
3296 + .07417, .02018, -.00837, .00021, .00001,
3297 + .00000, .00007, .00008,
3298 + .06968, .01889, -.00764, .00022, .00001,
3299 + .00000, .00007, .00008 /
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 + .06550, .01770, -.00693, .00019, .00001,
3302 + .00000, .00006, .00005,
3303 + .06168, .01662, -.00633, .00017, .00001,
3304 + .00000, .00006, .00006,
3305 + .05831, .01567, -.00582, .00016, .00002,
3306 + .00001, .00006, .00006,
3307 + .05531, .01482, -.00535, .00014, .00002,
3308 + .00001, .00004, .00006,
3309 + .05249, .01402, -.00493, .00012, .00002,
3310 + .00001, .00003, .00006,
3311 + .04985, .01329, -.00455, .00012, .00002,
3312 + .00001, .00004, .00004,
3313 + .04749, .01263, -.00421, .00012, .00001,
3314 + .00001, .00004, .00004,
3315 + .04535, .01204, -.00392, .00011, .00001,
3316 + .00001, .00003, .00004 /
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 + .04331, .01147, -.00365, .00011, .00001,
3319 + .00001, .00003, .00005,
3320 + .04140, .01094, -.00339, .00011, .00001,
3321 + .00001, .00003, .00003,
3322 + .03967, .01046, -.00316, .00009, .00001,
3323 + .00001, .00003, .00003,
3324 + .03810, .01003, -.00297, .00009, .00001,
3325 + .00001, .00003, .00003,
3326 + .03658, .00961, -.00279, .00009, .00001,
3327 + .00001, .00003, .00003 /
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 + .30398, .08888, -.07020, .00057, .00000,
3330 + .00000, .00016, .00020,
3331 + .28092, .08158, -.06400, .00051, .00000,
3332 + .00000, .00015, .00023,
3333 + .25074, .07218, -.05555, .00049, -.00018,
3334 + .00000, .00017, .00018,
3335 + .23154, .06623, -.05060, .00046, -.00014,
3336 + .00000, .00014, .00023,
3337 + .21346, .06068, -.04581, .00042, -.00011,
3338 + .00000, .00015, .00019,
3339 + .19915, .05633, -.04205, .00040, -.00009,
3340 + .00000, .00016, .00018,
3341 + .18647, .05251, -.03864, .00037, -.00007,
3342 + .00000, .00015, .00017,
3343 + .17406, .04880, -.03532, .00037, -.00006,
3344 + .00000, .00012, .00014 /
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 + .16408, .04580, -.03267, .00035, -.00005,
3347 + .00000, .00011, .00016,
3348 + .15512, .04314, -.03035, .00033, -.00004,
3349 + .00000, .00012, .00016,
3350 + .14847, .04115, -.02857, .00030, -.00003,
3351 + .00000, .00011, .00013,
3352 + .13535, .03729, -.02515, .00026, -.00003,
3353 + .00000, .00011, .00011,
3354 + .12533, .03436, -.02263, .00023, -.00002,
3355 + -.00003, .00010, .00012,
3356 + .11511, .03138, -.02016, .00022, -.00001,
3357 + -.00002, .00009, .00009,
3358 + .10549, .02862, -.01794, .00019, -.00001,
3359 + -.00001, .00010, .00010,
3360 + .09758, .02635, -.01608, .00016, -.00001,
3361 + -.00001, .00008, .00010 /
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 + .09028, .02427, -.01443, .00015, .00000,
3364 + .00000, .00008, .00008,
3365 + .08470, .02270, -.01320, .00015, .00000,
3366 + .00000, .00007, .00008,
3367 + .07845, .02093, -.01182, .00014, .00000,
3368 + .00000, .00006, .00007,
3369 + .07337, .01951, -.01071, .00014, .00000,
3370 + .00000, .00006, .00006,
3371 + .06907, .01830, -.00983, .00012, .00000,
3372 + .00000, .00006, .00006,
3373 + .06398, .01689, -.00879, .00011, .00000,
3374 + .00000, .00006, .00004,
3375 + .05959, .01567, -.00790, .00010, .00000,
3376 + .00000, .00005, .00004,
3377 + .05580, .01462, -.00716, .00008, .00001,
3378 + .00001, .00005, .00005 /
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 + .05228, .01365, -.00651, .00008, .00001,
3381 + .00001, .00003, .00005,
3382 + .04908, .01278, -.00590, .00008, .00001,
3383 + .00001, .00003, .00003,
3384 + .04626, .01201, -.00540, .00007, .00001,
3385 + .00001, .00003, .00003,
3386 + .04375, .01134, -.00497, .00007, .00001,
3387 + .00001, .00003, .00003,
3388 + .04140, .01069, -.00457, .00006, .00001,
3389 + .00001, .00003, .00003,
3390 + .03921, .01010, -.00419, .00006, .00001,
3391 + .00001, .00003, .00003,
3392 + .03727, .00958, -.00388, .00006, .00001,
3393 + .00001, .00003, .00003,
3394 + .03552, .00911, -.00360, .00005, .00001,
3395 + .00001, .00002, .00003 /
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 + .03385, .00866, -.00333, .00005, .00001,
3398 + .00001, .00002, .00002,
3399 + .03228, .00823, -.00310, .00005, .00001,
3400 + .00001, .00002, .00002,
3401 + .03086, .00785, -.00288, .00005, .00001,
3402 + .00001, .00002, .00002,
3403 + .02957, .00752, -.00270, .00005, .00001,
3404 + .00001, .00002, .00002,
3405 + .02832, .00720, -.00253, .00005, .00001,
3406 + .00001, .00002, .00002 /
3407 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
3408 + .22711, .06182, -.07578, .00023, .00000,
3409 + .00000, .00001, -.00001,
3410 + .20753, .05611, -.06762, .00023, .00000,
3411 + .00000, .00001, .00005,
3412 + .18240, .04890, -.05710, .00019, -.00007,
3413 + .00000, .00003, .00003,
3414 + .16667, .04441, -.05085, .00013, -.00006,
3415 + .00000, .00006, .00002,
3416 + .15194, .04024, -.04510, .00017, -.00005,
3417 + .00000, .00005, .00003,
3418 + .14053, .03701, -.04063, .00012, -.00004,
3419 + .00000, .00003, .00003,
3420 + .13049, .03423, -.03684, .00013, -.00003,
3421 + .00000, .00004, .00004,
3422 + .12075, .03153, -.03318, .00011, -.00003,
3423 + .00000, .00004, .00004 /
3424 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
3425 + .11301, .02940, -.03034, .00012, -.00002,
3426 + .00000, .00004, .00004,
3427 + .10608, .02750, -.02780, .00010, -.00002,
3428 + .00000, .00003, .00003,
3429 + .10096, .02610, -.02597, .00008, -.00002,
3430 + .00000, .00004, .00003,
3431 + .09100, .02338, -.02253, .00007, -.00001,
3432 + .00000, .00004, .00006,
3433 + .08351, .02135, -.02000, .00007, -.00001,
3434 + -.00001, .00004, .00003,
3435 + .07593, .01932, -.01757, .00007, -.00001,
3436 + -.00001, .00004, .00003,
3437 + .06888, .01744, -.01534, .00006, -.00001,
3438 + -.00001, .00003, .00003,
3439 + .06314, .01592, -.01358, .00006, -.00001,
3440 + -.00001, .00002, .00003 /
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 + .05792, .01454, -.01205, .00005, -.00001,
3443 + -.00001, .00002, .00003,
3444 + .05396, .01349, -.01091, .00004, .00000,
3445 + .00000, .00003, .00003,
3446 + .04955, .01234, -.00965, .00004, .00000,
3447 + .00000, .00001, .00003,
3448 + .04601, .01142, -.00870, .00004, .00000,
3449 + .00000, .00003, .00003,
3450 + .04300, .01065, -.00789, .00004, .00000,
3451 + .00000, .00003, .00001,
3452 + .03953, .00973, -.00698, .00002, .00000,
3453 + .00000, .00001, .00003,
3454 + .03653, .00898, -.00624, .00003, .00000,
3455 + .00000, .00001, .00003,
3456 + .03395, .00832, -.00561, .00004, .00000,
3457 + .00000, .00001, .00001 /
3458 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
3459 + .03159, .00771, -.00505, .00003, .00000,
3460 + .00000, .00001, .00001,
3461 + .02946, .00717, -.00456, .00003, .00000,
3462 + .00000, .00001, .00001,
3463 + .02759, .00669, -.00414, .00003, .00000,
3464 + .00000, .00001, .00001,
3465 + .02596, .00628, -.00379, .00003, .00000,
3466 + .00000, .00001, .00001,
3467 + .02444, .00589, -.00346, .00001, .00000,
3468 + .00000, .00001, .00001,
3469 + .02302, .00554, -.00317, .00003, .00000,
3470 + .00000, .00001, .00001,
3471 + .02175, .00522, -.00291, .00003, .00000,
3472 + .00000, .00001, .00001,
3473 + .02062, .00494, -.00269, .00001, .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 + .01958, .00468, -.00249, .00001, .00000,
3477 + .00000, .00001, .00001,
3478 + .01857, .00443, -.00230, .00001, .00000,
3479 + .00000, .00001, .00001,
3480 + .01767, .00421, -.00213, .00001, .00000,
3481 + .00000, .00001, .00001,
3482 + .01688, .00402, -.00200, .00001, .00000,
3483 + .00000, .00001, .00001,
3484 + .01609, .00381, -.00184, .00001, .00000,
3485 + .00000, .00001, .00000 /
3486 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/
3487 + .15784, .03966, -.06682, .00005, .00000,
3488 + .00000, .00001, .00003,
3489 + .14253, .03563, -.05861, .00008, .00000,
3490 + .00000, .00002, -.00001,
3491 + .12316, .03054, -.04848, .00006, -.00002,
3492 + .00000, .00000, .00002,
3493 + .11126, .02743, -.04249, .00006, -.00002,
3494 + .00000, .00000, .00000,
3495 + .10030, .02462, -.03712, .00004, -.00002,
3496 + .00000, .00001, .00001,
3497 + .09185, .02244, -.03309, .00006, -.00001,
3498 + .00000, .00001, .00001,
3499 + .08453, .02056, -.02963, .00004, -.00001,
3500 + .00000, .00001, .00001,
3501 + .07754, .01877, -.02641, .00004, -.00001,
3502 + .00000, .00001, .00001 /
3503 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
3504 + .07198, .01735, -.02391, .00004, -.00001,
3505 + .00000, .00001, .00001,
3506 + .06704, .01611, -.02173, .00004, -.00001,
3507 + .00000, .00001, .00001,
3508 + .06344, .01521, -.02015, .00004, -.00001,
3509 + .00000, -.00001, .00001,
3510 + .05647, .01346, -.01715, .00002, .00000,
3511 + .00000, .00000, .00000,
3512 + .05130, .01218, -.01508, .00002, .00000,
3513 + .00000, .00000, .00001,
3514 + .04617, .01091, -.01307, .00000, .00000,
3515 + .00000, .00000, .00001,
3516 + .04143, .00974, -.01129, .00002, .00000,
3517 + .00000, .00000, .00000,
3518 + .03761, .00880, -.00993, .00003, .00000,
3519 + .00000, .00001, .00000 /
3520 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
3521 + .03417, .00795, -.00870, .00001, .00000,
3522 + .00000, .00001, .00000,
3523 + .03157, .00733, -.00778, .00001, .00000,
3524 + .00000, .00000, .00000,
3525 + .02874, .00665, -.00684, .00001, .00000,
3526 + .00000, .00000, .00000,
3527 + .02648, .00610, -.00610, .00001, .00000,
3528 + .00000, .00000, .00000,
3529 + .02458, .00565, -.00550, .00001, .00000,
3530 + .00000, .00000, .00000,
3531 + .02238, .00513, -.00483, .00001, .00000,
3532 + .00000, .00000, .00000,
3533 + .02052, .00468, -.00426, .00000, .00000,
3534 + .00000, .00000, .00000,
3535 + .01894, .00430, -.00380, .00000, .00000,
3536 + .00000, .00000, .00000 /
3537 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
3538 + .01749, .00396, -.00340, .00000, .00000,
3539 + .00000, .00000, .00000,
3540 + .01618, .00366, -.00304, .00000, .00000,
3541 + .00000, .00000, .00000,
3542 + .01506, .00340, -.00275, .00000, .00000,
3543 + .00000, .00000, .00000,
3544 + .01407, .00316, -.00250, .00000, .00000,
3545 + .00000, .00000, .00000,
3546 + .01315, .00296, -.00226, .00000, .00000,
3547 + .00000, .00000, .00000,
3548 + .01232, .00276, -.00207, .00000, .00000,
3549 + .00000, .00000, .00000,
3550 + .01159, .00258, -.00189, .00000, .00000,
3551 + .00000, .00000, .00000,
3552 + .01093, .00243, -.00174, .00000, .00000,
3553 + .00000, .00000, .00000 /
3554 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/
3555 + .01030, .00229, -.00159, .00000, .00000,
3556 + .00000, .00000, .00000,
3557 + .00974, .00215, -.00147, .00000, .00000,
3558 + .00000, .00000, .00000,
3559 + .00922, .00204, -.00136, .00000, .00000,
3560 + .00000, .00000, .00000,
3561 + .00876, .00193, -.00125, .00000, .00000,
3562 + .00000, .00000, .00000,
3563 + .00832, .00183, -.00117, .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 + .09983, .02300, -.05014, .00007, .00000,
3567 + .00000, -.00001, -.00004,
3568 + .08903, .02039, -.04342, .00004, .00000,
3569 + .00000, -.00001, -.00001,
3570 + .07555, .01716, -.03525, .00004, -.00001,
3571 + .00000, -.00001, -.00001,
3572 + .06741, .01526, -.03053, .00004, -.00001,
3573 + .00000, -.00001, -.00001,
3574 + .05998, .01349, -.02629, .00004, .00000,
3575 + .00000, .00000, .00000,
3576 + .05436, .01219, -.02316, .00002, .00000,
3577 + .00000, .00000, .00000,
3578 + .04953, .01106, -.02053, .00002, .00000,
3579 + .00000, .00000, .00000,
3580 + .04494, .00998, -.01809, .00002, .00000,
3581 + .00000, .00000, .00000 /
3582 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
3583 + .04134, .00916, -.01622, .00002, .00000,
3584 + .00000, .00000, .00000,
3585 + .03821, .00843, -.01464, .00002, .00000,
3586 + .00000, .00000, .00000,
3587 + .03591, .00790, -.01349, .00002, .00000,
3588 + .00000, .00000, .00000,
3589 + .03154, .00691, -.01136, .00002, .00000,
3590 + .00000, .00000, .00000,
3591 + .02834, .00619, -.00988, .00002, .00000,
3592 + .00000, .00000, .00000,
3593 + .02519, .00547, -.00845, .00002, .00000,
3594 + .00000, .00000, .00000,
3595 + .02233, .00483, -.00723, .00002, .00000,
3596 + .00000, .00000, .00000,
3597 + .02004, .00432, -.00625, .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 + .01802, .00387, -.00542, .00000, .00000,
3601 + .00000, .00000, .00000,
3602 + .01651, .00353, -.00482, .00000, .00000,
3603 + .00000, .00000, .00000,
3604 + .01488, .00317, -.00420, .00000, .00000,
3605 + .00000, .00000, .00000,
3606 + .01358, .00287, -.00370, .00000, .00000,
3607 + .00000, .00000, .00000,
3608 + .01250, .00264, -.00332, .00000, .00000,
3609 + .00000, .00000, .00000,
3610 + .01127, .00238, -.00288, .00000, .00000,
3611 + .00000, .00000, .00000,
3612 + .01023, .00215, -.00252, .00000, .00000,
3613 + .00000, .00000, .00000,
3614 + .00936, .00197, -.00224, .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 + .00857, .00179, -.00198, .00000, .00000,
3618 + .00000, .00000, .00000,
3619 + .00787, .00164, -.00177, .00000, .00000,
3620 + .00000, .00000, .00000,
3621 + .00727, .00150, -.00158, .00000, .00000,
3622 + .00000, .00000, .00000,
3623 + .00675, .00140, -.00143, .00000, .00000,
3624 + .00000, .00000, .00000,
3625 + .00627, .00129, -.00129, .00000, .00000,
3626 + .00000, .00000, .00000,
3627 + .00582, .00120, -.00116, .00000, .00000,
3628 + .00000, .00000, .00000,
3629 + .00544, .00112, -.00106, .00000, .00000,
3630 + .00000, .00000, .00000,
3631 + .00510, .00105, -.00097, .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 + .00479, .00099, -.00088, .00000, .00000,
3635 + .00000, .00000, .00000,
3636 + .00449, .00092, -.00081, .00000, .00000,
3637 + .00000, .00000, .00000,
3638 + .00423, .00086, -.00074, .00000, .00000,
3639 + .00000, .00000, .00000,
3640 + .00400, .00082, -.00069, .00000, .00000,
3641 + .00000, .00000, .00000,
3642 + .00377, .00077, -.00063, .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 + .05528, .01133, -.03169, .00000, .00000,
3646 + .00000, .00000, .00003,
3647 + .04858, .00993, -.02706, .00000, .00000,
3648 + .00000, .00000, .00000,
3649 + .04038, .00823, -.02156, .00000, .00000,
3650 + .00000, .00000, .00000,
3651 + .03552, .00718, -.01842, .00000, .00000,
3652 + .00000, .00000, .00000,
3653 + .03116, .00631, -.01569, .00000, .00000,
3654 + .00000, .00000, .00000,
3655 + .02788, .00562, -.01367, .00000, .00000,
3656 + .00000, .00000, .00000,
3657 + .02510, .00504, -.01197, .00000, .00000,
3658 + .00000, .00000, .00000,
3659 + .02249, .00451, -.01043, .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 + .02049, .00410, -.00929, .00000, .00000,
3663 + .00000, .00000, .00000,
3664 + .01874, .00372, -.00828, .00000, .00000,
3665 + .00000, .00000, .00000,
3666 + .01747, .00347, -.00757, .00000, .00000,
3667 + .00000, .00000, .00000,
3668 + .01512, .00299, -.00630, .00000, .00000,
3669 + .00000, .00000, .00000,
3670 + .01339, .00264, -.00539, .00000, .00000,
3671 + .00000, .00000, .00000,
3672 + .01175, .00232, -.00457, .00000, .00000,
3673 + .00000, .00000, .00000,
3674 + .01026, .00200, -.00385, .00000, .00000,
3675 + .00000, .00000, .00000,
3676 + .00909, .00178, -.00329, .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 + .00806, .00157, -.00282, .00000, .00000,
3680 + .00000, .00000, .00000,
3681 + .00731, .00141, -.00248, .00000, .00000,
3682 + .00000, .00000, .00000,
3683 + .00650, .00126, -.00213, .00000, .00000,
3684 + .00000, .00000, .00000,
3685 + .00588, .00113, -.00186, .00000, .00000,
3686 + .00000, .00000, .00000,
3687 + .00536, .00104, -.00166, .00000, .00000,
3688 + .00000, .00000, .00000,
3689 + .00477, .00091, -.00143, .00000, .00000,
3690 + .00000, .00000, .00000,
3691 + .00428, .00082, -.00123, .00000, .00000,
3692 + .00000, .00000, .00000,
3693 + .00388, .00074, -.00108, .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 + .00353, .00067, -.00096, .00000, .00000,
3697 + .00000, .00000, .00000,
3698 + .00319, .00060, -.00083, .00000, .00000,
3699 + .00000, .00000, .00000,
3700 + .00292, .00055, -.00074, .00000, .00000,
3701 + .00000, .00000, .00000,
3702 + .00269, .00050, -.00066, .00000, .00000,
3703 + .00000, .00000, .00000,
3704 + .00248, .00048, -.00060, .00000, .00000,
3705 + .00000, .00000, .00000,
3706 + .00229, .00043, -.00053, .00000, .00000,
3707 + .00000, .00000, .00000,
3708 + .00212, .00040, -.00049, .00000, .00000,
3709 + .00000, .00000, .00000,
3710 + .00198, .00038, -.00044, .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 + .00184, .00035, -.00040, .00000, .00000,
3714 + .00000, .00000, .00000,
3715 + .00171, .00032, -.00036, .00000, .00000,
3716 + .00000, .00000, .00000,
3717 + .00160, .00029, -.00033, .00000, .00000,
3718 + .00000, .00000, .00000,
3719 + .00151, .00028, -.00030, .00000, .00000,
3720 + .00000, .00000, .00000,
3721 + .00141, .00027, -.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 + .00783, .00127, -.00568, .00000, .00000,
3725 + .00000, .00000, .00000,
3726 + .00657, .00106, -.00465, .00000, .00000,
3727 + .00000, .00000, .00000,
3728 + .00515, .00082, -.00351, .00000, .00000,
3729 + .00000, .00000, .00000,
3730 + .00432, .00069, -.00287, .00000, .00000,
3731 + .00000, .00000, .00000,
3732 + .00363, .00057, -.00235, .00000, .00000,
3733 + .00000, .00000, .00000,
3734 + .00314, .00049, -.00197, .00000, .00000,
3735 + .00000, .00000, .00000,
3736 + .00273, .00043, -.00168, .00000, .00000,
3737 + .00000, .00000, .00000,
3738 + .00237, .00037, -.00142, .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 + .00209, .00032, -.00123, .00000, .00000,
3742 + .00000, .00000, .00000,
3743 + .00185, .00029, -.00107, .00000, .00000,
3744 + .00000, .00000, .00000,
3745 + .00170, .00027, -.00097, .00000, .00000,
3746 + .00000, .00000, .00000,
3747 + .00140, .00022, -.00077, .00000, .00000,
3748 + .00000, .00000, .00000,
3749 + .00120, .00019, -.00064, .00000, .00000,
3750 + .00000, .00000, .00000,
3751 + .00101, .00015, -.00052, .00000, .00000,
3752 + .00000, .00000, .00000,
3753 + .00084, .00013, -.00042, .00000, .00000,
3754 + .00000, .00000, .00000,
3755 + .00072, .00011, -.00035, .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, .00009, -.00029, .00000, .00000,
3759 + .00000, .00000, .00000,
3760 + .00054, .00009, -.00025, .00000, .00000,
3761 + .00000, .00000, .00000,
3762 + .00047, .00007, -.00021, .00000, .00000,
3763 + .00000, .00000, .00000,
3764 + .00041, .00007, -.00018, .00000, .00000,
3765 + .00000, .00000, .00000,
3766 + .00036, .00005, -.00015, .00000, .00000,
3767 + .00000, .00000, .00000,
3768 + .00031, .00005, -.00012, .00000, .00000,
3769 + .00000, .00000, .00000,
3770 + .00027, .00005, -.00011, .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, .00003, -.00006, .00000, .00000,
3780 + .00000, .00000, .00000,
3781 + .00014, .00003, -.00005, .00000, .00000,
3782 + .00000, .00000, .00000,
3783 + .00013, .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='cor06dis.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