2 subroutine sfmrs_99d4(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 + .00697, .00300, .83888, .90778, .00000,
12 + .00000, .48823, .92307,
13 + .00709, .00304, 2.16310, .94480, .00000,
14 + .00000, .52967, .96014,
15 + .00727, .00312, 4.58239, 1.01738, .02307,
16 + .00000, .60871, 1.03278,
17 + .00742, .00317, 6.80301, 1.08526, .09481,
18 + .00000, .68117, 1.10067,
19 + .00756, .00322, 9.58913, 1.17002, .20727,
20 + .00000, .77066, 1.18545,
21 + .00769, .00329, 12.42113, 1.25713, .29994,
22 + .00000, .86180, 1.27259,
23 + .00782, .00334, 15.54026, 1.35217, .40120,
24 + .00000, .96064, 1.36763,
25 + .00796, .00339, 19.40942, 1.46434, .52650,
26 + .00000, 1.07678, 1.47980 /
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 + .00807, .00344, 23.11597, 1.57479, .64080,
29 + .00000, 1.19065, 1.59024,
30 + .00819, .00349, 27.15989, 1.69080, .76591,
31 + .00000, 1.30991, 1.70624,
32 + .00829, .00353, 30.61222, 1.79092, .87025,
33 + .00000, 1.41256, 1.80634,
34 + .00849, .00361, 38.80361, 2.02759, 1.11987,
35 + .00000, 1.65456, 2.04298,
36 + .00867, .00369, 46.62428, 2.25793, 1.36303,
37 + .23416, 1.88939, 2.27327,
38 + .00886, .00378, 56.32547, 2.54513, 1.66547,
39 + .60661, 2.18151, 2.56043,
40 + .00908, .00388, 67.80870, 2.88129, 2.01838,
41 + .97660, 2.52268, 2.89653,
42 + .00928, .00397, 79.28207, 3.21823, 2.36665,
43 + 1.32917, 2.86407, 3.23341 /
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 + .00948, .00406, 92.08671, 3.59207, 2.75462,
46 + 1.73158, 3.24231, 3.60717,
47 + .00965, .00415, 103.72792, 3.92987, 3.10720,
48 + 2.10232, 3.58368, 3.94491,
49 + .00986, .00425, 118.91522, 4.37326, 3.56636,
50 + 2.57599, 4.03133, 4.38822,
51 + .01005, .00433, 133.35502, 4.79732, 4.00344,
52 + 3.02403, 4.45911, 4.81221,
53 + .01022, .00441, 147.65639, 5.21562, 4.43756,
54 + 3.47576, 4.88073, 5.23043,
55 + .01045, .00452, 166.88367, 5.78437, 5.02304,
56 + 4.07607, 5.45363, 5.79907,
57 + .01067, .00462, 186.23371, 6.36056, 5.61540,
58 + 4.68327, 6.03365, 6.37517,
59 + .01086, .00472, 205.67613, 6.94068, 6.21362,
60 + 5.30037, 6.61729, 6.95520 /
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 + .01107, .00482, 226.02567, 7.55588, 6.84411,
63 + 5.94456, 7.23594, 7.57031,
64 + .01127, .00491, 247.10177, 8.19660, 7.50141,
65 + 6.61816, 7.87996, 8.21093,
66 + .01147, .00500, 268.10378, 8.83940, 8.16070,
67 + 7.29395, 8.52585, 8.85363,
68 + .01166, .00510, 288.62179, 9.47457, 8.81002,
69 + 7.95673, 9.16388, 9.48872,
70 + .01184, .00519, 310.29694, 10.14821, 9.49994,
71 + 8.66334, 9.84034, 10.16226,
72 + .01203, .00528, 332.22277, 10.83854, 10.20430,
73 + 9.38124, 10.53341, 10.85250,
74 + .01221, .00537, 354.04364, 11.52846, 10.90946,
75 + 10.10211, 11.22590, 11.54234,
76 + .01238, .00546, 375.21068, 12.20520, 11.59944,
77 + 10.80532, 11.90503, 12.21900 /
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 + .01255, .00554, 397.30506, 12.91637, 12.32449,
80 + 11.54450, 12.61859, 12.93008,
81 + .01273, .00563, 419.84403, 13.64672, 13.06928,
82 + 12.30445, 13.35126, 13.66035,
83 + .01289, .00571, 441.74430, 14.36486, 13.79966,
84 + 13.04713, 14.07157, 14.37840,
85 + .01305, .00580, 463.42256, 15.07670, 14.52553,
86 + 13.78825, 14.78546, 15.09016,
87 + .01322, .00587, 485.45249, 15.81099, 15.27127,
88 + 14.54564, 15.52180, 15.82438 /
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 + .00947, .00412, .85272, .76747, .00000,
91 + .00000, .41333, .77640,
92 + .00962, .00419, 2.07033, .80223, .00000,
93 + .00000, .45149, .81118,
94 + .00988, .00429, 4.24014, .86786, .02185,
95 + .00000, .52203, .87683,
96 + .01007, .00437, 6.18862, .92728, .08379,
97 + .00000, .58497, .93627,
98 + .01027, .00447, 8.59125, 1.00018, .18031,
99 + .00000, .66146, 1.00918,
100 + .01045, .00454, 10.99581, 1.07388, .25850,
101 + .00000, .73823, 1.08288,
102 + .01062, .00462, 13.60947, 1.15336, .34317,
103 + .00000, .82061, 1.16236,
104 + .01080, .00469, 16.81241, 1.24648, .44706,
105 + .00000, .91675, 1.25547 /
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 + .01096, .00477, 19.84395, 1.33718, .54090,
108 + .00000, 1.01005, 1.34617,
109 + .01112, .00484, 23.11963, 1.43192, .64297,
110 + .00000, 1.10726, 1.44090,
111 + .01124, .00490, 25.89138, 1.51312, .72750,
112 + .00000, 1.19039, 1.52208,
113 + .01152, .00502, 32.39249, 1.70366, .92815,
114 + .00000, 1.38498, 1.71260,
115 + .01176, .00514, 38.51000, 1.88740, 1.12169,
116 + .18625, 1.57215, 1.89633,
117 + .01204, .00526, 45.99985, 2.11455, 1.36022,
118 + .48021, 1.80303, 2.12345,
119 + .01234, .00540, 54.75015, 2.37798, 1.63587,
120 + .76846, 2.07026, 2.38684,
121 + .01260, .00553, 63.38206, 2.63957, 1.90530,
122 + 1.04038, 2.33524, 2.64840 /
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 + .01288, .00566, 72.90802, 2.92753, 2.20302,
125 + 1.34831, 2.62654, 2.93632,
126 + .01310, .00577, 81.48361, 3.18593, 2.47166,
127 + 1.62998, 2.88767, 3.19469,
128 + .01339, .00591, 92.55820, 3.52255, 2.81882,
129 + 1.98692, 3.22752, 3.53126,
130 + .01364, .00603, 102.98182, 3.84210, 3.14677,
131 + 2.32189, 3.54988, 3.85076,
132 + .01387, .00615, 113.22101, 4.15540, 3.47055,
133 + 2.65772, 3.86571, 4.16402,
134 + .01417, .00629, 126.85486, 4.57825, 3.90395,
135 + 3.10047, 4.29172, 4.58682,
136 + .01446, .00643, 140.44265, 5.00348, 4.33921,
137 + 3.54500, 4.71985, 5.01199,
138 + .01474, .00657, 153.97932, 5.42881, 4.77598,
139 + 3.99399, 5.14786, 5.43728 /
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 + .01501, .00671, 168.02215, 5.87676, 5.23307,
142 + 4.45926, 5.59844, 5.88517,
143 + .01528, .00684, 182.45125, 6.34040, 5.70671,
144 + 4.94290, 6.06460, 6.34876,
145 + .01554, .00697, 196.72130, 6.80279, 6.17902,
146 + 5.42530, 6.52933, 6.81109,
147 + .01579, .00710, 210.55840, 7.25701, 6.64144,
148 + 5.89557, 6.98574, 7.26527,
149 + .01604, .00722, 225.08303, 7.73630, 7.13035,
150 + 6.39457, 7.46717, 7.74451,
151 + .01629, .00735, 239.67053, 8.22468, 7.62667,
152 + 6.89856, 7.95763, 8.23284,
153 + .01653, .00747, 254.10312, 8.71045, 8.12126,
154 + 7.40245, 8.44537, 8.71857,
155 + .01676, .00759, 268.01476, 9.18457, 8.60278,
156 + 7.89146, 8.92130, 9.19263 /
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 + .01699, .00771, 282.45552, 9.68055, 9.10655,
159 + 8.40326, 9.41911, 9.68858,
160 + .01722, .00782, 297.10641, 10.18768, 9.62180,
161 + 8.92725, 9.92800, 10.19566,
162 + .01744, .00794, 311.25830, 10.68398, 10.12470,
163 + 9.43683, 10.42597, 10.69193,
164 + .01765, .00805, 325.20779, 11.17418, 10.62284,
165 + 9.94382, 10.91774, 11.18209,
166 + .01787, .00816, 339.29861, 11.67749, 11.13215,
167 + 10.45929, 11.42260, 11.68535 /
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 + .01283, .00567, .86841, .64946, .00000,
170 + .00000, .35091, .65399,
171 + .01307, .00577, 1.98175, .68163, .00000,
172 + .00000, .38566, .68618,
173 + .01340, .00592, 3.92323, .74049, .02095,
174 + .00000, .44826, .74503,
175 + .01366, .00604, 5.62971, .79233, .07430,
176 + .00000, .50276, .79686,
177 + .01393, .00616, 7.69735, .85486, .15700,
178 + .00000, .56802, .85938,
179 + .01417, .00628, 9.73421, .91707, .22283,
180 + .00000, .63255, .92159,
181 + .01440, .00639, 11.91863, .98337, .29347,
182 + .00000, .70106, .98790,
183 + .01465, .00651, 14.56263, 1.06049, .37945,
184 + .00000, .78047, 1.06500 /
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 + .01487, .00661, 17.03442, 1.13479, .45631,
187 + .00000, .85673, 1.13929,
188 + .01509, .00671, 19.67918, 1.21194, .53940,
189 + .00000, .93575, 1.21644,
190 + .01526, .00679, 21.89681, 1.27760, .60772,
191 + .00000, 1.00287, 1.28209,
192 + .01563, .00697, 27.03738, 1.43051, .76861,
193 + .00000, 1.15884, 1.43499,
194 + .01596, .00713, 31.80349, 1.57662, .92230,
195 + .14764, 1.30752, 1.58108,
196 + .01634, .00732, 37.56015, 1.75564, 1.10995,
197 + .37940, 1.48936, 1.76008,
198 + .01673, .00751, 44.19620, 1.96127, 1.32470,
199 + .60372, 1.69787, 1.96570,
200 + .01709, .00769, 50.65713, 2.16355, 1.53254,
201 + .81318, 1.90269, 2.16795 /
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 + .01746, .00787, 57.70589, 2.38443, 1.76032,
204 + 1.04848, 2.12608, 2.38880,
205 + .01777, .00803, 63.98786, 2.58123, 1.96438,
206 + 1.26218, 2.32493, 2.58559,
207 + .01815, .00822, 72.01620, 2.83563, 2.22601,
208 + 1.53072, 2.58177, 2.83996,
209 + .01849, .00840, 79.49454, 3.07527, 2.47124,
210 + 1.78072, 2.82352, 3.07959,
211 + .01881, .00856, 86.77927, 3.30880, 2.71190,
212 + 2.02994, 3.05895, 3.31309,
213 + .01921, .00876, 96.38314, 3.62162, 3.03157,
214 + 2.35584, 3.37414, 3.62589,
215 + .01960, .00896, 105.85909, 3.93382, 3.35018,
216 + 2.68057, 3.68852, 3.93806,
217 + .01997, .00915, 115.21738, 4.24402, 3.66781,
218 + 3.00648, 4.00074, 4.24824 /
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 + .02034, .00934, 124.83672, 4.56843, 3.99784,
221 + 3.34168, 4.32711, 4.57262,
222 + .02070, .00952, 134.64019, 4.90207, 4.33770,
223 + 3.68799, 4.66264, 4.90624,
224 + .02104, .00970, 144.26066, 5.23281, 4.67458,
225 + 4.03139, 4.99515, 5.23695,
226 + .02138, .00988, 153.51695, 5.55575, 5.00241,
227 + 4.36405, 5.31973, 5.55988,
228 + .02171, .01005, 163.17013, 5.89475, 5.34729,
229 + 4.71536, 5.66035, 5.89886,
230 + .02204, .01022, 172.79231, 6.23818, 5.69533,
231 + 5.06801, 6.00535, 6.24227,
232 + .02236, .01039, 182.25583, 6.57815, 6.04056,
233 + 5.41903, 6.34679, 6.58222,
234 + .02267, .01055, 191.31720, 6.90823, 6.37491,
235 + 5.75787, 6.67825, 6.91228 /
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 + .02298, .01072, 200.66969, 7.25198, 6.72316,
238 + 6.11095, 7.02335, 7.25601,
239 + .02328, .01088, 210.10488, 7.60184, 7.07776,
240 + 6.47086, 7.37456, 7.60586,
241 + .02358, .01103, 219.16199, 7.94261, 7.42218,
242 + 6.81912, 7.71657, 7.94661,
243 + .02385, .01118, 228.05215, 8.27798, 7.76220,
244 + 7.16455, 8.05312, 8.28195,
245 + .02415, .01133, 236.97453, 8.62064, 8.10809,
246 + 7.51389, 8.39696, 8.62461 /
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 + .01533, .00682, .87854, .58945, .00000,
249 + .00000, .31945, .59217,
250 + .01560, .00695, 1.93216, .62000, .00000,
251 + .00000, .35220, .62272,
252 + .01601, .00715, 3.74924, .67501, .02059,
253 + .00000, .41040, .67772,
254 + .01632, .00730, 5.32697, .72274, .06940,
255 + .00000, .46039, .72545,
256 + .01664, .00746, 7.21883, .77978, .14485,
257 + .00000, .51977, .78248,
258 + .01693, .00758, 9.06506, .83602, .20430,
259 + .00000, .57798, .83873,
260 + .01721, .00773, 11.02922, .89558, .26774,
261 + .00000, .63941, .89827,
262 + .01751, .00787, 13.38919, .96453, .34460,
263 + .00000, .71029, .96721 /
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 + .01777, .00801, 15.57921, 1.03053, .41289,
266 + .00000, .77796, 1.03320,
267 + .01803, .00812, 17.90879, 1.09884, .48646,
268 + .00000, .84786, 1.10150,
269 + .01823, .00822, 19.85155, 1.15672, .54670,
270 + .00000, .90698, 1.15938,
271 + .01868, .00845, 24.32333, 1.29094, .68789,
272 + .00000, 1.04378, 1.29358,
273 + .01907, .00865, 28.43338, 1.41845, .82199,
274 + .12854, 1.17348, 1.42108,
275 + .01952, .00887, 33.35683, 1.57387, .98483,
276 + .33007, 1.33128, 1.57648,
277 + .01999, .00911, 38.98704, 1.75140, 1.17009,
278 + .52360, 1.51123, 1.75401,
279 + .02041, .00933, 44.42566, 1.92502, 1.34836,
280 + .70326, 1.68702, 1.92762 /
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 + .02085, .00955, 50.31851, 2.11371, 1.54279,
283 + .90412, 1.87782, 2.11628,
284 + .02123, .00974, 55.53881, 2.28112, 1.71622,
285 + 1.08576, 2.04696, 2.28369,
286 + .02169, .00998, 62.16861, 2.49653, 1.93754,
287 + 1.31289, 2.26444, 2.49908,
288 + .02208, .01018, 68.30573, 2.69852, 2.14403,
289 + 1.52333, 2.46819, 2.70105,
290 + .02247, .01038, 74.25425, 2.89464, 2.34594,
291 + 1.73240, 2.66593, 2.89717,
292 + .02294, .01063, 82.04948, 3.15616, 2.61291,
293 + 2.00448, 2.92946, 3.15868,
294 + .02340, .01088, 89.69468, 3.41599, 2.87780,
295 + 2.27435, 3.19112, 3.41849,
296 + .02383, .01110, 97.20582, 3.67315, 3.14084,
297 + 2.54419, 3.44998, 3.67565 /
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 + .02428, .01132, 104.88335, 3.94093, 3.41299,
300 + 2.82046, 3.71942, 3.94341,
301 + .02470, .01156, 112.66956, 4.21532, 3.69220,
302 + 3.10486, 3.99541, 4.21779,
303 + .02512, .01178, 120.27487, 4.48633, 3.96799,
304 + 3.38588, 4.26791, 4.48880,
305 + .02551, .01198, 127.55767, 4.75001, 4.23537,
306 + 3.65708, 4.53297, 4.75246,
307 + .02591, .01220, 135.12332, 5.02595, 4.51584,
308 + 3.94266, 4.81027, 5.02839,
309 + .02630, .01240, 142.63020, 5.30452, 4.79787,
310 + 4.22829, 5.09016, 5.30695,
311 + .02668, .01261, 149.98680, 5.57949, 5.07685,
312 + 4.51184, 5.36638, 5.58192,
313 + .02703, .01279, 157.00243, 5.84564, 5.34619,
314 + 4.78466, 5.63369, 5.84806 /
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 + .02740, .01299, 164.21840, 6.12206, 5.62597,
317 + 5.06821, 5.91125, 6.12447,
318 + .02777, .01319, 171.47345, 6.40264, 5.91012,
319 + 5.35650, 6.19296, 6.40505,
320 + .02812, .01338, 178.41107, 6.67513, 6.18528,
321 + 5.63459, 6.46650, 6.67753,
322 + .02845, .01355, 185.20399, 6.94274, 6.45640,
323 + 5.90993, 6.73512, 6.94513,
324 + .02879, .01373, 191.99408, 7.21537, 6.73136,
325 + 6.18749, 7.00874, 7.21776 /
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 + .01740, .00781, .88633, .55049, .00000,
328 + .00000, .29916, .55225,
329 + .01770, .00795, 1.89823, .57985, .00000,
330 + .00000, .33049, .58159,
331 + .01816, .00817, 3.63101, .63218, .02040,
332 + .00000, .38567, .63391,
333 + .01851, .00834, 5.12267, .67714, .06618,
334 + .00000, .43264, .67886,
335 + .01888, .00852, 6.89809, .73053, .13681,
336 + .00000, .48811, .73224,
337 + .01920, .00869, 8.61896, .78284, .19207,
338 + .00000, .54218, .78455,
339 + .01952, .00885, 10.43921, .83797, .25082,
340 + .00000, .59898, .83968,
341 + .01987, .00901, 12.61470, .90160, .32174,
342 + .00000, .66434, .90329 /
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 + .02016, .00916, 14.62281, .96222, .38449,
345 + .00000, .72644, .96391,
346 + .02046, .00932, 16.74990, 1.02483, .45191,
347 + .00000, .79045, 1.02650,
348 + .02069, .00943, 18.51685, 1.07771, .50696,
349 + .00000, .84443, 1.07938,
350 + .02119, .00968, 22.56332, 1.19992, .63556,
351 + .00000, .96896, 1.20159,
352 + .02164, .00992, 26.25948, 1.31558, .75718,
353 + .11630, 1.08655, 1.31723,
354 + .02214, .01017, 30.66042, 1.45602, .90431,
355 + .29873, 1.22911, 1.45765,
356 + .02267, .01044, 35.66410, 1.61578, 1.07100,
357 + .47294, 1.39103, 1.61742,
358 + .02317, .01070, 40.47002, 1.77139, 1.23074,
359 + .63395, 1.54854, 1.77301 /
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 + .02367, .01096, 45.65155, 1.93991, 1.40434,
362 + .81338, 1.71895, 1.94153,
363 + .02408, .01117, 50.22188, 2.08898, 1.55872,
364 + .97515, 1.86956, 2.09060,
365 + .02459, .01144, 55.99983, 2.28015, 1.75508,
366 + 1.17671, 2.06256, 2.28177,
367 + .02506, .01169, 61.32425, 2.45881, 1.93764,
368 + 1.36282, 2.24280, 2.46042,
369 + .02548, .01191, 66.46655, 2.63186, 2.11572,
370 + 1.54727, 2.41726, 2.63345,
371 + .02602, .01220, 73.17601, 2.86184, 2.35040,
372 + 1.78646, 2.64902, 2.86342,
373 + .02654, .01248, 79.72757, 3.08958, 2.58248,
374 + 2.02295, 2.87841, 3.09117,
375 + .02703, .01273, 86.14006, 3.31436, 2.81232,
376 + 2.25877, 3.10468, 3.31595 /
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 + .02753, .01300, 92.66797, 3.54770, 3.04937,
379 + 2.49943, 3.33950, 3.54929,
380 + .02801, .01326, 99.26485, 3.78616, 3.29192,
381 + 2.74653, 3.57937, 3.78773,
382 + .02847, .01351, 105.68674, 4.02108, 3.53088,
383 + 2.99004, 3.81561, 4.02265,
384 + .02892, .01374, 111.81510, 4.24904, 3.76196,
385 + 3.22443, 4.04479, 4.25062,
386 + .02936, .01398, 118.16359, 4.48708, 4.00382,
387 + 3.47073, 4.28405, 4.48866,
388 + .02981, .01422, 124.44150, 4.72679, 4.24640,
389 + 3.71642, 4.52492, 4.72835,
390 + .03023, .01445, 130.57796, 4.96291, 4.48589,
391 + 3.95986, 4.76214, 4.96448,
392 + .03064, .01467, 136.41260, 5.19095, 4.71658,
393 + 4.19354, 4.99121, 5.19252 /
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 + .03105, .01489, 142.39889, 5.42732, 4.95575,
396 + 4.43594, 5.22860, 5.42888,
397 + .03145, .01511, 148.40250, 5.66679, 5.19818,
398 + 4.68193, 5.46907, 5.66836,
399 + .03185, .01532, 154.12743, 5.89885, 5.43245,
400 + 4.91869, 5.70208, 5.90042,
401 + .03223, .01553, 159.72310, 6.12644, 5.66296,
402 + 5.15283, 5.93054, 6.12801,
403 + .03260, .01574, 165.29951, 6.35778, 5.89620,
404 + 5.38827, 6.16276, 6.35936 /
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 + .01918, .00865, .89316, .52219, .00000,
407 + .00000, .28447, .52330,
408 + .01952, .00882, 1.87309, .55061, .00000,
409 + .00000, .31470, .55171,
410 + .02003, .00907, 3.54261, .60089, .02028,
411 + .00000, .36758, .60198,
412 + .02041, .00927, 4.97046, .64377, .06380,
413 + .00000, .41232, .64485,
414 + .02083, .00947, 6.66002, .69446, .13090,
415 + .00000, .46491, .69553,
416 + .02119, .00965, 8.28898, .74388, .18308,
417 + .00000, .51595, .74495,
418 + .02154, .00982, 10.00422, .79579, .23838,
419 + .00000, .56936, .79684,
420 + .02191, .01001, 12.04571, .85554, .30498,
421 + .00000, .63070, .85659 /
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 + .02224, .01019, 13.92221, .91227, .36372,
424 + .00000, .68879, .91331,
425 + .02256, .01035, 15.90338, .97073, .42669,
426 + .00000, .74854, .97178,
427 + .02282, .01048, 17.54400, 1.02000, .47800,
428 + .00000, .79882, 1.02105,
429 + .02337, .01076, 21.28631, 1.13359, .59753,
430 + .00000, .91452, 1.13463,
431 + .02386, .01102, 24.68830, 1.24075, .71023,
432 + .10750, 1.02345, 1.24179,
433 + .02442, .01131, 28.71972, 1.37049, .84616,
434 + .27630, 1.15512, 1.37152,
435 + .02501, .01162, 33.28243, 1.51760, .99965,
436 + .43679, 1.30421, 1.51862,
437 + .02554, .01190, 37.64506, 1.66042, 1.14626,
438 + .58465, 1.44877, 1.66145 /
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 + .02610, .01219, 42.33036, 1.81468, 1.30516,
441 + .74898, 1.60476, 1.81570,
442 + .02656, .01244, 46.44896, 1.95082, 1.44614,
443 + .89679, 1.74229, 1.95184,
444 + .02712, .01273, 51.63714, 2.12495, 1.62496,
445 + 1.08044, 1.91809, 2.12596,
446 + .02763, .01300, 56.40103, 2.28725, 1.79079,
447 + 1.24955, 2.08184, 2.28828,
448 + .02809, .01326, 60.98897, 2.44413, 1.95223,
449 + 1.41685, 2.24002, 2.44515,
450 + .02870, .01357, 66.95445, 2.65210, 2.16442,
451 + 1.63320, 2.44962, 2.65313,
452 + .02926, .01387, 72.75954, 2.85754, 2.37373,
453 + 1.84654, 2.65654, 2.85857,
454 + .02979, .01416, 78.42460, 3.05985, 2.58056,
455 + 2.05885, 2.86022, 3.06088 /
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 + .03034, .01446, 84.17306, 3.26936, 2.79336,
458 + 2.27495, 3.07107, 3.27038,
459 + .03087, .01474, 89.96598, 3.48299, 3.01065,
460 + 2.49639, 3.28600, 3.48403,
461 + .03138, .01502, 95.59007, 3.69305, 3.22427,
462 + 2.71416, 3.49726, 3.69409,
463 + .03187, .01528, 100.94250, 3.89645, 3.43044,
464 + 2.92334, 3.70178, 3.89750,
465 + .03236, .01555, 106.47488, 4.10849, 3.64586,
466 + 3.14279, 3.91494, 4.10955,
467 + .03284, .01582, 111.93109, 4.32159, 3.86148,
468 + 3.36122, 4.12910, 4.32264,
469 + .03331, .01607, 117.25357, 4.53116, 4.07402,
470 + 3.57734, 4.33968, 4.53223,
471 + .03376, .01631, 122.30213, 4.73322, 4.27839,
472 + 3.78442, 4.54266, 4.73428 /
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 + .03421, .01655, 127.47173, 4.94231, 4.48996,
475 + 3.99889, 4.75270, 4.94340,
476 + .03465, .01680, 132.64615, 5.15384, 4.70409,
477 + 4.21623, 4.96513, 5.15493,
478 + .03508, .01703, 137.56911, 5.35849, 4.91064,
479 + 4.42503, 5.17064, 5.35958,
480 + .03549, .01726, 142.37437, 5.55894, 5.11368,
481 + 4.63133, 5.37189, 5.56003,
482 + .03590, .01748, 147.15142, 5.76236, 5.31875,
483 + 4.83838, 5.57613, 5.76347 /
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 + .02603, .01199, .91757, .44432, .00000,
486 + .00000, .24461, .44434,
487 + .02649, .01223, 1.80097, .46976, .00000,
488 + .00000, .27144, .46978,
489 + .02719, .01259, 3.28558, .51376, .02014,
490 + .00000, .31745, .51378,
491 + .02771, .01286, 4.52992, .55054, .05716,
492 + .00000, .35565, .55056,
493 + .02826, .01315, 5.97519, .59342, .11411,
494 + .00000, .40000, .59344,
495 + .02875, .01341, 7.34512, .63464, .15758,
496 + .00000, .44246, .63466,
497 + .02922, .01366, 8.76682, .67744, .20325,
498 + .00000, .48643, .67747,
499 + .02973, .01393, 10.43660, .72636, .25782,
500 + .00000, .53656, .72639 /
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 + .03017, .01416, 11.95093, .77230, .30545,
503 + .00000, .58353, .77233,
504 + .03061, .01440, 13.53294, .81937, .35620,
505 + .00000, .63159, .81940,
506 + .03096, .01458, 14.83009, .85873, .39726,
507 + .00000, .67173, .85877,
508 + .03170, .01498, 17.75148, .94879, .49215,
509 + .00000, .76339, .94884,
510 + .03237, .01534, 20.36724, 1.03291, .58074,
511 + .08337, .84887, 1.03298,
512 + .03312, .01575, 23.41823, 1.13382, .68657,
513 + .21565, .95126, 1.13390,
514 + .03391, .01618, 26.82128, 1.24710, .80486,
515 + .33970, 1.06603, 1.24719,
516 + .03464, .01658, 30.02822, 1.35595, .91671,
517 + .45280, 1.17620, 1.35605 /
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 + .03537, .01698, 33.42951, 1.47250, 1.03688,
520 + .57746, 1.29407, 1.47263,
521 + .03600, .01733, 36.38690, 1.57461, 1.14271,
522 + .68878, 1.39725, 1.57475,
523 + .03675, .01774, 40.06945, 1.70413, 1.27583,
524 + .82586, 1.52804, 1.70428,
525 + .03743, .01811, 43.41205, 1.82386, 1.39825,
526 + .95103, 1.64887, 1.82403,
527 + .03806, .01846, 46.60231, 1.93885, 1.51667,
528 + 1.07412, 1.76485, 1.93904,
529 + .03885, .01890, 50.70427, 2.09006, 1.67105,
530 + 1.23192, 1.91729, 2.09028,
531 + .03962, .01932, 54.65169, 2.23821, 1.82209,
532 + 1.38627, 2.06656, 2.23845,
533 + .04033, .01972, 58.46743, 2.38309, 1.97033,
534 + 1.53884, 2.21249, 2.38335 /
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 + .04105, .02012, 62.29882, 2.53198, 2.12165,
537 + 1.69286, 2.36239, 2.53226,
538 + .04177, .02052, 66.12504, 2.68279, 2.27513,
539 + 1.84966, 2.51418, 2.68310,
540 + .04244, .02090, 69.80782, 2.83011, 2.42507,
541 + 2.00289, 2.66242, 2.83045,
542 + .04309, .02126, 73.28128, 2.97184, 2.56881,
543 + 2.14906, 2.80499, 2.97220,
544 + .04374, .02162, 76.84617, 3.11878, 2.71821,
545 + 2.30163, 2.95278, 3.11916,
546 + .04439, .02198, 80.33098, 3.26551, 2.86678,
547 + 2.45247, 3.10032, 3.26592,
548 + .04501, .02232, 83.70832, 3.40909, 3.01250,
549 + 2.60099, 3.24466, 3.40953,
550 + .04559, .02266, 86.88683, 3.54674, 3.15182,
551 + 2.74247, 3.38301, 3.54719 /
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 + .04619, .02299, 90.12048, 3.68848, 3.29534,
554 + 2.88829, 3.52547, 3.68895,
555 + .04678, .02332, 93.33659, 3.83118, 3.43991,
556 + 3.03537, 3.66885, 3.83167,
557 + .04735, .02364, 96.37344, 3.96850, 3.57861,
558 + 3.17588, 3.80683, 3.96902,
559 + .04788, .02395, 99.32497, 4.10251, 3.71448,
560 + 3.31426, 3.94146, 4.10305,
561 + .04844, .02426, 102.23507, 4.23776, 3.85091,
562 + 3.45229, 4.07732, 4.23832 /
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 + .03544, .01672, .95344, .38021, .00000,
565 + .00000, .21249, .38022,
566 + .03605, .01705, 1.74560, .40259, .00000,
567 + .00000, .23597, .40261,
568 + .03697, .01756, 3.06119, .44044, .02025,
569 + .00000, .27541, .44049,
570 + .03767, .01793, 4.14195, .47154, .05136,
571 + .00000, .30765, .47161,
572 + .03842, .01834, 5.37266, .50738, .09930,
573 + .00000, .34464, .50747,
574 + .03907, .01871, 6.51841, .54138, .13517,
575 + .00000, .37962, .54149,
576 + .03970, .01905, 7.68925, .57633, .17254,
577 + .00000, .41549, .57645,
578 + .04038, .01943, 9.04511, .61597, .21686,
579 + .00000, .45610, .61612 /
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 + .04098, .01977, 10.25733, .65280, .25514,
582 + .00000, .49375, .65297,
583 + .04156, .02009, 11.50963, .69032, .29570,
584 + .00000, .53204, .69050,
585 + .04203, .02035, 12.52567, .72146, .32826,
586 + .00000, .56379, .72167,
587 + .04303, .02091, 14.78312, .79216, .40295,
588 + .00000, .63576, .79241,
589 + .04392, .02141, 16.77388, .85756, .47197,
590 + .06319, .70222, .85782,
591 + .04493, .02198, 19.05439, .93525, .55367,
592 + .16618, .78108, .93557,
593 + .04599, .02258, 21.55884, 1.02156, .64402,
594 + .26139, .86858, 1.02192,
595 + .04696, .02313, 23.88243, 1.10363, .72855,
596 + .34728, .95168, 1.10402 /
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 + .04796, .02369, 26.31413, 1.19073, .81858,
599 + .44117, 1.03982, 1.19117,
600 + .04879, .02417, 28.40397, 1.26644, .89724,
601 + .52436, 1.11637, 1.26692,
602 + .04980, .02474, 30.97398, 1.36165, .99534,
603 + .62589, 1.21258, 1.36218,
604 + .05070, .02526, 33.27786, 1.44892, 1.08478,
605 + .71779, 1.30071, 1.44948,
606 + .05153, .02573, 35.45575, 1.53218, 1.17073,
607 + .80760, 1.38475, 1.53279,
608 + .05261, .02635, 38.22214, 1.64072, 1.28181,
609 + .92169, 1.49425, 1.64138,
610 + .05361, .02692, 40.85235, 1.74617, 1.38958,
611 + 1.03234, 1.60059, 1.74687,
612 + .05456, .02747, 43.36911, 1.84855, 1.49458,
613 + 1.14097, 1.70379, 1.84931 /
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 + .05553, .02801, 45.86699, 1.95290, 1.60088,
616 + 1.24968, 1.80895, 1.95370,
617 + .05647, .02856, 48.33728, 2.05786, 1.70796,
618 + 1.35960, 1.91469, 2.05872,
619 + .05737, .02908, 50.69271, 2.15971, 1.81187,
620 + 1.46630, 2.01725, 2.16062,
621 + .05823, .02956, 52.89219, 2.25701, 1.91077,
622 + 1.56734, 2.11522, 2.25796,
623 + .05909, .03006, 55.13244, 2.35732, 2.01300,
624 + 1.67225, 2.21619, 2.35832,
625 + .05994, .03055, 57.30066, 2.45681, 2.11395,
626 + 1.77521, 2.31632, 2.45784,
627 + .06076, .03102, 59.38735, 2.55364, 2.21247,
628 + 1.87611, 2.41376, 2.55473,
629 + .06153, .03146, 61.33391, 2.64591, 2.30608,
630 + 1.97160, 2.50658, 2.64703 /
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 + .06231, .03191, 63.30024, 2.74044, 2.40202,
633 + 2.06954, 2.60168, 2.74161,
634 + .06309, .03237, 65.24214, 2.83513, 2.49816,
635 + 2.16782, 2.69691, 2.83634,
636 + .06383, .03279, 67.06001, 2.92571, 2.58988,
637 + 2.26114, 2.78801, 2.92697,
638 + .06454, .03320, 68.81903, 3.01380, 2.67940,
639 + 2.35276, 2.87658, 3.01509,
640 + .06526, .03361, 70.53649, 3.10215, 2.76872,
641 + 2.44353, 2.96542, 3.10348 /
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 + .04247, .02038, .98665, .34835, .00000,
644 + .00000, .19678, .34875,
645 + .04318, .02077, 1.72847, .36891, .00000,
646 + .00000, .21832, .36933,
647 + .04427, .02137, 2.95133, .40321, .02029,
648 + .00000, .25403, .40367,
649 + .04511, .02185, 3.94375, .43117, .04818,
650 + .00000, .28300, .43168,
651 + .04599, .02233, 5.05999, .46320, .09128,
652 + .00000, .31605, .46374,
653 + .04676, .02278, 6.08760, .49338, .12313,
654 + .00000, .34710, .49395,
655 + .04752, .02320, 7.12766, .52421, .15617,
656 + .00000, .37874, .52482,
657 + .04832, .02365, 8.32149, .55905, .19518,
658 + .00000, .41443, .55969 /
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 + .04903, .02406, 9.37940, .59121, .22867,
661 + .00000, .44732, .59189,
662 + .04972, .02445, 10.46467, .62386, .26403,
663 + .00000, .48067, .62457,
664 + .05028, .02477, 11.33944, .65085, .29230,
665 + .00000, .50820, .65159,
666 + .05147, .02545, 13.26648, .71184, .35685,
667 + .00000, .57031, .71263,
668 + .05252, .02606, 14.95087, .76791, .41615,
669 + .05285, .62733, .76876,
670 + .05372, .02675, 16.85731, .83416, .48594,
671 + .14139, .69461, .83506,
672 + .05497, .02747, 18.93067, .90729, .56266,
673 + .22254, .76879, .90826,
674 + .05613, .02814, 20.83544, .97638, .63395,
675 + .29525, .83879, .97741 /
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 + .05730, .02881, 22.81212, 1.04931, .70948,
678 + .37435, .91265, 1.05040,
679 + .05827, .02939, 24.49853, 1.11240, .77517,
680 + .44412, .97650, 1.11356,
681 + .05948, .03008, 26.55606, 1.19134, .85665,
682 + .52879, 1.05631, 1.19255,
683 + .06054, .03071, 28.38593, 1.26329, .93055,
684 + .60502, 1.12903, 1.26456,
685 + .06153, .03128, 30.10541, 1.33166, 1.00129,
686 + .67925, 1.19810, 1.33298,
687 + .06279, .03201, 32.27251, 1.42033, 1.09221,
688 + .77301, 1.28762, 1.42173,
689 + .06398, .03271, 34.31711, 1.50602, 1.17995,
690 + .86347, 1.37412, 1.50749,
691 + .06510, .03335, 36.26097, 1.58884, 1.26508,
692 + .95190, 1.45768, 1.59037 /
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 + .06624, .03401, 38.17574, 1.67284, 1.35082,
695 + 1.03993, 1.54239, 1.67443,
696 + .06735, .03467, 40.05755, 1.75696, 1.43681,
697 + 1.12856, 1.62720, 1.75862,
698 + .06840, .03528, 41.84110, 1.83825, 1.51991,
699 + 1.21424, 1.70913, 1.83998,
700 + .06940, .03586, 43.49571, 1.91556, 1.59865,
701 + 1.29501, 1.78704, 1.91734,
702 + .07042, .03646, 45.17285, 1.99499, 1.67978,
703 + 1.37860, 1.86707, 1.99684,
704 + .07142, .03704, 46.78536, 2.07343, 1.75954,
705 + 1.46027, 1.94607, 2.07534,
706 + .07237, .03759, 48.33036, 2.14953, 1.83713,
707 + 1.54006, 2.02272, 2.15151,
708 + .07328, .03812, 49.76306, 2.22176, 1.91056,
709 + 1.61527, 2.09547, 2.22380 /
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 + .07419, .03866, 51.20368, 2.29554, 1.98559,
712 + 1.69216, 2.16974, 2.29763,
713 + .07511, .03919, 52.61985, 2.36919, 2.06055,
714 + 1.76909, 2.24389, 2.37134,
715 + .07598, .03969, 53.93784, 2.43941, 2.13177,
716 + 1.84185, 2.31456, 2.44160,
717 + .07680, .04018, 55.20971, 2.50752, 2.20116,
718 + 1.91315, 2.38312, 2.50978,
719 + .07765, .04067, 56.44308, 2.57558, 2.27011,
720 + 1.98349, 2.45162, 2.57789 /
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 + .04828, .02343, 1.02215, .32758, .00000,
723 + .00000, .18664, .32850,
724 + .04909, .02389, 1.72987, .34683, .00000,
725 + .00000, .20678, .34778,
726 + .05033, .02458, 2.88870, .37871, .02013,
727 + .00000, .23995, .37971,
728 + .05127, .02512, 3.82050, .40457, .04585,
729 + .00000, .26674, .40561,
730 + .05226, .02568, 4.85893, .43406, .08570,
731 + .00000, .29717, .43515,
732 + .05313, .02620, 5.80701, .46171, .11488,
733 + .00000, .32562, .46284,
734 + .05397, .02667, 6.75969, .48987, .14507,
735 + .00000, .35451, .49103,
736 + .05489, .02721, 7.84600, .52157, .18060,
737 + .00000, .38701, .52279 /
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 + .05569, .02768, 8.80234, .55072, .21096,
740 + .00000, .41682, .55197,
741 + .05646, .02813, 9.77825, .58024, .24296,
742 + .00000, .44697, .58154,
743 + .05709, .02849, 10.56104, .60457, .26845,
744 + .00000, .47179, .60589,
745 + .05844, .02927, 12.27449, .65934, .32647,
746 + .00000, .52760, .66073,
747 + .05963, .02997, 13.76254, .70948, .37955,
748 + .04617, .57861, .71093,
749 + .06097, .03076, 15.43102, .76848, .44175,
750 + .12546, .63855, .77000,
751 + .06239, .03159, 17.23241, .83329, .50980,
752 + .19768, .70433, .83490,
753 + .06369, .03235, 18.87508, .89422, .57276,
754 + .26210, .76612, .89589 /
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 + .06500, .03313, 20.56902, .95828, .63918,
757 + .33190, .83102, .96004,
758 + .06611, .03378, 22.00624, 1.01351, .69676,
759 + .39327, .88695, 1.01534,
760 + .06746, .03458, 23.74930, 1.08233, .76789,
761 + .46744, .95658, 1.08423,
762 + .06866, .03528, 25.29020, 1.14482, .83214,
763 + .53395, 1.01978, 1.14679,
764 + .06978, .03594, 26.73160, 1.20401, .89347,
765 + .59852, 1.07962, 1.20605,
766 + .07119, .03677, 28.53739, 1.28048, .97198,
767 + .67976, 1.15688, 1.28260,
768 + .07252, .03756, 30.23115, 1.35407, 1.04745,
769 + .75783, 1.23122, 1.35628,
770 + .07379, .03831, 31.83363, 1.42498, 1.12044,
771 + .83391, 1.30281, 1.42727 /
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 + .07505, .03905, 33.40298, 1.49662, 1.19365,
774 + .90934, 1.37510, 1.49897,
775 + .07630, .03978, 34.93797, 1.56811, 1.26686,
776 + .98506, 1.44725, 1.57055,
777 + .07749, .04049, 36.38609, 1.63699, 1.33738,
778 + 1.05802, 1.51672, 1.63951,
779 + .07861, .04114, 37.72268, 1.70229, 1.40399,
780 + 1.12658, 1.58257, 1.70487,
781 + .07974, .04180, 39.07250, 1.76920, 1.47243,
782 + 1.19735, 1.65005, 1.77185,
783 + .08086, .04246, 40.36355, 1.83506, 1.53950,
784 + 1.26626, 1.71643, 1.83779,
785 + .08192, .04309, 41.59637, 1.89880, 1.60460,
786 + 1.33343, 1.78068, 1.90160,
787 + .08293, .04368, 42.73426, 1.95913, 1.66602,
788 + 1.39656, 1.84149, 1.96199 /
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 + .08396, .04428, 43.87434, 2.02060, 1.72863,
791 + 1.46096, 1.90342, 2.02352,
792 + .08497, .04488, 44.99105, 2.08180, 1.79104,
793 + 1.52523, 1.96509, 2.08480,
794 + .08594, .04545, 46.02543, 2.14000, 1.85017,
795 + 1.58585, 2.02372, 2.14306,
796 + .08686, .04599, 47.02172, 2.19636, 1.90768,
797 + 1.64516, 2.08049, 2.19949,
798 + .08780, .04653, 47.98237, 2.25250, 1.96465,
799 + 1.70348, 2.13705, 2.25569 /
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 + .05336, .02625, 1.06615, .31356, .00000,
802 + .00000, .17941, .31450,
803 + .05425, .02676, 1.74999, .33178, .00000,
804 + .00000, .19845, .33277,
805 + .05561, .02754, 2.85809, .36182, .01978,
806 + .00000, .22968, .36289,
807 + .05663, .02814, 3.74239, .38609, .04386,
808 + .00000, .25478, .38720,
809 + .05773, .02878, 4.72041, .41369, .08128,
810 + .00000, .28323, .41485,
811 + .05869, .02934, 5.60736, .43946, .10848,
812 + .00000, .30973, .44068,
813 + .05962, .02989, 6.49336, .46560, .13654,
814 + .00000, .33655, .46687,
815 + .06062, .03048, 7.49804, .49499, .16950,
816 + .00000, .36666, .49631 /
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 + .06150, .03099, 8.37779, .52190, .19756,
819 + .00000, .39419, .52328,
820 + .06236, .03150, 9.27159, .54911, .22707,
821 + .00000, .42198, .55053,
822 + .06305, .03191, 9.98567, .57146, .25052,
823 + .00000, .44479, .57293,
824 + .06453, .03278, 11.54036, .62168, .30376,
825 + .00000, .49596, .62323,
826 + .06583, .03355, 12.88346, .66747, .35228,
827 + .04129, .54256, .66909,
828 + .06731, .03443, 14.37747, .72117, .40896,
829 + .11383, .59713, .72288,
830 + .06887, .03535, 15.98085, .77994, .47073,
831 + .17955, .65681, .78175,
832 + .07029, .03620, 17.43381, .83497, .52763,
833 + .23792, .71261, .83686 /
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 + .07173, .03705, 18.92417, .89264, .58750,
836 + .30100, .77107, .89462,
837 + .07295, .03777, 20.18287, .94220, .63922,
838 + .35628, .82128, .94426,
839 + .07443, .03864, 21.70180, 1.00376, .70291,
840 + .42288, .88359, 1.00591,
841 + .07574, .03942, 23.03779, 1.05946, .76025,
842 + .48239, .93996, 1.06170,
843 + .07696, .04014, 24.28279, 1.11211, .81485,
844 + .54005, .99320, 1.11443,
845 + .07850, .04106, 25.83442, 1.17988, .88452,
846 + .61233, 1.06171, 1.18230,
847 + .07996, .04193, 27.28252, 1.24490, .95128,
848 + .68158, 1.12743, 1.24742,
849 + .08134, .04274, 28.64701, 1.30737, 1.01565,
850 + .74888, 1.19052, 1.30997 /
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 + .08272, .04356, 29.97696, 1.37026, 1.08001,
853 + .81537, 1.25404, 1.37296,
854 + .08407, .04437, 31.27232, 1.43288, 1.14420,
855 + .88195, 1.31726, 1.43566,
856 + .08537, .04513, 32.48941, 1.49303, 1.20588,
857 + .94594, 1.37798, 1.49590,
858 + .08659, .04584, 33.60776, 1.54990, 1.26397,
859 + 1.00590, 1.43537, 1.55285,
860 + .08783, .04658, 34.73367, 1.60805, 1.32354,
861 + 1.06767, 1.49404, 1.61109,
862 + .08904, .04729, 35.80576, 1.66512, 1.38174,
863 + 1.12764, 1.55161, 1.66825,
864 + .09019, .04797, 36.82661, 1.72025, 1.43813,
865 + 1.18600, 1.60722, 1.72345,
866 + .09130, .04862, 37.76485, 1.77230, 1.49121,
867 + 1.24071, 1.65971, 1.77558 /
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 + .09240, .04927, 38.70190, 1.82523, 1.54520,
870 + 1.29640, 1.71308, 1.82858,
871 + .09350, .04992, 39.61695, 1.87784, 1.59892,
872 + 1.35188, 1.76613, 1.88126,
873 + .09455, .05054, 40.46110, 1.92772, 1.64969,
874 + 1.40408, 1.81642, 1.93123,
875 + .09556, .05113, 41.27285, 1.97598, 1.69900,
876 + 1.45510, 1.86507, 1.97955,
877 + .09657, .05172, 42.05155, 2.02391, 1.74773,
878 + 1.50513, 1.91339, 2.02757 /
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 + .07294, .03758, 1.24347, .27492, .00000,
881 + .00000, .15950, .27674,
882 + .07411, .03830, 1.85007, .29000, .00000,
883 + .00000, .17522, .29189,
884 + .07593, .03939, 2.80230, .31450, .01792,
885 + .00000, .20066, .31651,
886 + .07731, .04024, 3.54326, .33408, .03726,
887 + .00000, .22091, .33617,
888 + .07877, .04112, 4.34247, .35616, .06767,
889 + .00000, .24366, .35834,
890 + .08005, .04190, 5.05156, .37652, .08924,
891 + .00000, .26461, .37879,
892 + .08130, .04266, 5.74607, .39700, .11133,
893 + .00000, .28564, .39935,
894 + .08265, .04349, 6.51915, .41985, .13710,
895 + .00000, .30906, .42228 /
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 + .08382, .04420, 7.18426, .44055, .15878,
898 + .00000, .33025, .44307,
899 + .08497, .04491, 7.84999, .46134, .18145,
900 + .00000, .35151, .46393,
901 + .08589, .04546, 8.37485, .47830, .19931,
902 + .00000, .36883, .48094,
903 + .08787, .04666, 9.49694, .51602, .23951,
904 + .00000, .40733, .51880,
905 + .08961, .04773, 10.45105, .55003, .27573,
906 + .02760, .44199, .55293,
907 + .09157, .04891, 11.48121, .58946, .31756,
908 + .08193, .48214, .59250,
909 + .09365, .05017, 12.56429, .63207, .36258,
910 + .13033, .52549, .63526,
911 + .09553, .05131, 13.52501, .67144, .40351,
912 + .17278, .56551, .67476 /
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 + .09744, .05246, 14.49269, .71225, .44610,
915 + .21817, .60697, .71570,
916 + .09904, .05344, 15.29715, .74699, .48256,
917 + .25760, .64224, .75055,
918 + .10099, .05461, 16.25105, .78964, .52696,
919 + .30454, .68552, .79336,
920 + .10271, .05563, 17.07525, .82782, .56648,
921 + .34604, .72426, .83166,
922 + .10431, .05659, 17.83341, .86361, .60383,
923 + .38594, .76053, .86756,
924 + .10633, .05780, 18.76137, .90915, .65093,
925 + .43538, .80670, .91325,
926 + .10824, .05894, 19.61223, .95236, .69557,
927 + .48224, .85050, .95661,
928 + .11003, .06002, 20.40253, .99349, .73824,
929 + .52740, .89217, .99786 /
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 + .11182, .06109, 21.15894, 1.03445, .78044,
932 + .57151, .93366, 1.03897,
933 + .11359, .06213, 21.88503, 1.07485, .82214,
934 + .61531, .97457, 1.07951,
935 + .11525, .06312, 22.55759, 1.11333, .86187,
936 + .65704, 1.01353, 1.11810,
937 + .11683, .06405, 23.16549, 1.14935, .89894,
938 + .69578, 1.05000, 1.15425,
939 + .11841, .06499, 23.77074, 1.18592, .93669,
940 + .73542, 1.08703, 1.19094,
941 + .11997, .06590, 24.33712, 1.22148, .97322,
942 + .77353, 1.12301, 1.22661,
943 + .12145, .06677, 24.87090, 1.25559, 1.00838,
944 + .81040, 1.15754, 1.26084,
945 + .12285, .06760, 25.35369, 1.28753, 1.04121,
946 + .84467, 1.18985, 1.29288 /
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 + .12427, .06843, 25.83029, 1.31978, 1.07437,
949 + .87931, 1.22249, 1.32523,
950 + .12567, .06924, 26.29027, 1.35161, 1.10714,
951 + .91362, 1.25470, 1.35718,
952 + .12699, .07002, 26.70751, 1.38154, 1.13787,
953 + .94563, 1.28500, 1.38722,
954 + .12827, .07076, 27.10667, 1.41037, 1.16760,
955 + .97680, 1.31417, 1.41615,
956 + .12955, .07151, 27.48141, 1.43876, 1.19670,
957 + 1.00708, 1.34289, 1.44463 /
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 + .10008, .05429, 1.52636, .24306, .00000,
960 + .00000, .14157, .24630,
961 + .10166, .05529, 2.04967, .25509, .00000,
962 + .00000, .15411, .25845,
963 + .10409, .05682, 2.84066, .27451, .01373,
964 + .00000, .17429, .27804,
965 + .10594, .05797, 3.43598, .28988, .02893,
966 + .00000, .19020, .29355,
967 + .10789, .05920, 4.06026, .30706, .05316,
968 + .00000, .20794, .31088,
969 + .10961, .06027, 4.60112, .32272, .06991,
970 + .00000, .22409, .32668,
971 + .11128, .06131, 5.11931, .33831, .08692,
972 + .00000, .24013, .34239,
973 + .11309, .06242, 5.68400, .35557, .10661,
974 + .00000, .25788, .35979 /
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 + .11466, .06340, 6.16037, .37103, .12295,
977 + .00000, .27374, .37537,
978 + .11619, .06434, 6.62901, .38643, .13993,
979 + .00000, .28954, .39090,
980 + .11741, .06510, 6.99286, .39889, .15317,
981 + .00000, .30230, .40344,
982 + .12003, .06672, 7.75408, .42632, .18270,
983 + .00000, .33040, .43109,
984 + .12235, .06813, 8.39241, .45071, .20895,
985 + .01575, .35535, .45566,
986 + .12494, .06971, 9.05269, .47861, .23888,
987 + .05539, .38388, .48378,
988 + .12766, .07134, 9.73002, .50833, .27061,
989 + .09005, .41424, .51372,
990 + .13012, .07284, 10.31545, .53536, .29903,
991 + .12000, .44185, .54096 /
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 + .13262, .07434, 10.89190, .56303, .32823,
994 + .15165, .47008, .56882,
995 + .13470, .07558, 11.36183, .58630, .35295,
996 + .17885, .49383, .59228,
997 + .13722, .07708, 11.90663, .61451, .38267,
998 + .21081, .52261, .62069,
999 + .13945, .07841, 12.36680, .63943, .40879,
1000 + .23872, .54803, .64579,
1001 + .14151, .07963, 12.78337, .66255, .43324,
1002 + .26532, .57160, .66908,
1003 + .14410, .08116, 13.28090, .69158, .46366,
1004 + .29784, .60120, .69833,
1005 + .14653, .08259, 13.72632, .71877, .49214,
1006 + .32829, .62892, .72572,
1007 + .14882, .08393, 14.13230, .74435, .51907,
1008 + .35733, .65501, .75150 /
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, .08525, 14.51072, .76949, .54536,
1011 + .38535, .68065, .77683,
1012 + .15331, .08655, 14.86683, .79403, .57107,
1013 + .41287, .70565, .80155,
1014 + .15542, .08776, 15.19023, .81714, .59532,
1015 + .43886, .72922, .82484,
1016 + .15738, .08890, 15.47516, .83852, .61767,
1017 + .46269, .75103, .84639,
1018 + .15936, .09005, 15.75450, .86004, .64027,
1019 + .48691, .77298, .86807,
1020 + .16130, .09114, 16.00869, .88072, .66188,
1021 + .50994, .79406, .88891,
1022 + .16314, .09220, 16.24482, .90039, .68253,
1023 + .53204, .81413, .90874,
1024 + .16487, .09319, 16.45273, .91861, .70160,
1025 + .55239, .83272, .92710 /
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 + .16660, .09418, 16.65421, .93685, .72072,
1028 + .57281, .85134, .94550,
1029 + .16833, .09515, 16.84494, .95472, .73947,
1030 + .59287, .86956, .96349,
1031 + .16995, .09607, 17.01260, .97134, .75687,
1032 + .61141, .88652, .98025,
1033 + .17150, .09695, 17.17211, .98725, .77363,
1034 + .62939, .90278, .99631,
1035 + .17305, .09781, 17.31545, 1.00274, .78982,
1036 + .64664, .91859, 1.01191 /
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 + .12060, .06737, 1.74025, .22552, .00000,
1039 + .00000, .13075, .23004,
1040 + .12249, .06858, 2.20639, .23592, .00000,
1041 + .00000, .14162, .24060,
1042 + .12539, .07043, 2.89700, .25268, .00988,
1043 + .00000, .15907, .25759,
1044 + .12758, .07181, 3.40355, .26585, .02296,
1045 + .00000, .17273, .27093,
1046 + .12992, .07329, 3.92516, .28048, .04397,
1047 + .00000, .18789, .28576,
1048 + .13196, .07456, 4.37035, .29371, .05825,
1049 + .00000, .20159, .29917,
1050 + .13394, .07578, 4.79081, .30680, .07267,
1051 + .00000, .21509, .31243,
1052 + .13608, .07711, 5.24273, .32119, .08927,
1053 + .00000, .22995, .32702 /
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 + .13793, .07825, 5.61910, .33399, .10293,
1056 + .00000, .24314, .33997,
1057 + .13975, .07937, 5.98514, .34668, .11707,
1058 + .00000, .25620, .35281,
1059 + .14119, .08025, 6.26651, .35687, .12802,
1060 + .00000, .26669, .36313,
1061 + .14428, .08213, 6.84623, .37918, .15228,
1062 + .00000, .28963, .38570,
1063 + .14698, .08378, 7.33001, .39880, .17364,
1064 + .00961, .30981, .40557,
1065 + .15001, .08559, 7.81213, .42108, .19779,
1066 + .04204, .33269, .42811,
1067 + .15317, .08748, 8.29857, .44453, .22314,
1068 + .07009, .35678, .45184,
1069 + .15603, .08918, 8.71076, .46566, .24561,
1070 + .09409, .37847, .47322 /
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 + .15892, .09087, 9.11013, .48707, .26851,
1073 + .11925, .40045, .49488,
1074 + .16132, .09229, 9.43117, .50494, .28775,
1075 + .14072, .41880, .51296,
1076 + .16422, .09399, 9.79708, .52642, .31068,
1077 + .16574, .44084, .53470,
1078 + .16677, .09547, 10.10031, .54520, .33066,
1079 + .18741, .46012, .55371,
1080 + .16911, .09684, 10.37147, .56252, .34924,
1081 + .20793, .47790, .57123,
1082 + .17207, .09853, 10.68901, .58406, .37216,
1083 + .23280, .50001, .59304,
1084 + .17484, .10012, 10.96777, .60403, .39342,
1085 + .25590, .52052, .61325,
1086 + .17743, .10160, 11.21799, .62269, .41339,
1087 + .27779, .53969, .63214 /
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 + .18000, .10304, 11.44565, .64085, .43271,
1090 + .29872, .55835, .65052,
1091 + .18250, .10446, 11.65617, .65843, .45147,
1092 + .31915, .57642, .66831,
1093 + .18485, .10578, 11.84392, .67486, .46904,
1094 + .33830, .59331, .68495,
1095 + .18704, .10701, 12.00520, .68993, .48512,
1096 + .35576, .60883, .70022,
1097 + .18926, .10824, 12.16110, .70501, .50127,
1098 + .37339, .62435, .71550,
1099 + .19141, .10944, 12.29863, .71938, .51659,
1100 + .39003, .63912, .73004,
1101 + .19345, .11056, 12.42461, .73296, .53117,
1102 + .40593, .65312, .74380,
1103 + .19536, .11161, 12.53211, .74543, .54453,
1104 + .42047, .66597, .75645 /
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 + .19728, .11266, 12.63415, .75786, .55785,
1107 + .43498, .67878, .76903,
1108 + .19916, .11370, 12.72866, .76993, .57083,
1109 + .44917, .69124, .78127,
1110 + .20094, .11466, 12.80845, .78108, .58281,
1111 + .46219, .70275, .79258,
1112 + .20264, .11559, 12.88410, .79173, .59429,
1113 + .47478, .71374, .80338,
1114 + .20433, .11650, 12.94780, .80197, .60531,
1115 + .48677, .72432, .81377 /
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 + .13781, .07853, 1.90884, .21323, .00000,
1118 + .00000, .12265, .21896,
1119 + .13994, .07991, 2.32954, .22259, .00000,
1120 + .00000, .13245, .22850,
1121 + .14325, .08200, 2.94522, .23759, .00647,
1122 + .00000, .14812, .24379,
1123 + .14573, .08357, 3.38643, .24930, .01820,
1124 + .00000, .16033, .25573,
1125 + .14837, .08522, 3.83438, .26227, .03706,
1126 + .00000, .17380, .26893,
1127 + .15068, .08665, 4.21240, .27391, .04975,
1128 + .00000, .18589, .28077,
1129 + .15291, .08803, 4.56553, .28535, .06250,
1130 + .00000, .19775, .29242,
1131 + .15531, .08950, 4.94106, .29789, .07711,
1132 + .00000, .21075, .30519 /
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 + .15741, .09077, 5.25065, .30895, .08906,
1135 + .00000, .22221, .31644,
1136 + .15944, .09202, 5.54908, .31988, .10136,
1137 + .00000, .23351, .32755,
1138 + .16105, .09299, 5.77663, .32861, .11085,
1139 + .00000, .24253, .33644,
1140 + .16452, .09506, 6.23969, .34761, .13176,
1141 + .00000, .26219, .35576,
1142 + .16752, .09685, 6.62582, .36419, .15003,
1143 + .00563, .27932, .37263,
1144 + .17088, .09884, 6.99701, .38288, .17054,
1145 + .03349, .29864, .39162,
1146 + .17439, .10089, 7.36631, .40239, .19190,
1147 + .05739, .31880, .41146,
1148 + .17754, .10272, 7.67397, .41982, .21069,
1149 + .07769, .33679, .42917 /
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 + .18072, .10455, 7.96785, .43735, .22971,
1152 + .09886, .35491, .44698,
1153 + .18336, .10607, 8.20115, .45189, .24559,
1154 + .11679, .36993, .46177,
1155 + .18654, .10787, 8.46288, .46922, .26439,
1156 + .13757, .38786, .47940,
1157 + .18932, .10946, 8.67605, .48427, .28066,
1158 + .15544, .40343, .49470,
1159 + .19188, .11090, 8.86461, .49806, .29572,
1160 + .17230, .41770, .50873,
1161 + .19509, .11269, 9.08097, .51508, .31416,
1162 + .19260, .43532, .52604,
1163 + .19809, .11436, 9.26713, .53076, .33115,
1164 + .21132, .45155, .54199,
1165 + .20088, .11591, 9.43172, .54529, .34703,
1166 + .22897, .46662, .55678 /
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 + .20364, .11742, 9.57758, .55933, .36226,
1169 + .24573, .48119, .57106,
1170 + .20633, .11889, 9.70984, .57283, .37698,
1171 + .26202, .49519, .58480,
1172 + .20884, .12026, 9.82540, .58536, .39069,
1173 + .27721, .50822, .59756,
1174 + .21119, .12153, 9.92160, .59678, .40316,
1175 + .29097, .52009, .60920,
1176 + .21354, .12279, 10.01307, .60815, .41563,
1177 + .30482, .53192, .62078,
1178 + .21582, .12402, 10.09047, .61888, .42738,
1179 + .31780, .54309, .63170,
1180 + .21798, .12517, 10.16012, .62898, .43850,
1181 + .33016, .55362, .64200,
1182 + .22000, .12624, 10.21683, .63820, .44865,
1183 + .34141, .56324, .65139 /
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 + .22202, .12730, 10.26898, .64733, .45872,
1186 + .35259, .57278, .66069,
1187 + .22401, .12835, 10.31560, .65616, .46849,
1188 + .36348, .58200, .66969,
1189 + .22587, .12932, 10.35207, .66424, .47744,
1190 + .37341, .59046, .67794,
1191 + .22765, .13024, 10.38657, .67194, .48601,
1192 + .38300, .59853, .68580,
1193 + .22941, .13115, 10.41174, .67928, .49418,
1194 + .39208, .60623, .69328 /
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 + .15280, .08834, 2.04365, .20345, .00000,
1197 + .00000, .11599, .21026,
1198 + .15519, .08987, 2.42559, .21206, .00000,
1199 + .00000, .12503, .21909,
1200 + .15886, .09219, 2.98052, .22579, .00351,
1201 + .00000, .13943, .23317,
1202 + .16160, .09390, 3.36965, .23646, .01425,
1203 + .00000, .15058, .24410,
1204 + .16451, .09571, 3.76003, .24820, .03155,
1205 + .00000, .16284, .25613,
1206 + .16706, .09727, 4.08646, .25870, .04309,
1207 + .00000, .17378, .26686,
1208 + .16950, .09875, 4.38864, .26894, .05463,
1209 + .00000, .18446, .27735,
1210 + .17214, .10034, 4.70714, .28014, .06780,
1211 + .00000, .19612, .28879 /
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 + .17443, .10172, 4.96746, .28994, .07851,
1214 + .00000, .20632, .29882,
1215 + .17666, .10305, 5.21651, .29959, .08949,
1216 + .00000, .21636, .30868,
1217 + .17842, .10410, 5.40507, .30727, .09794,
1218 + .00000, .22435, .31653,
1219 + .18218, .10632, 5.78471, .32390, .11645,
1220 + .00000, .24164, .33352,
1221 + .18545, .10822, 6.10183, .33830, .13252,
1222 + .00282, .25662, .34824,
1223 + .18908, .11032, 6.39569, .35443, .15047,
1224 + .02742, .27339, .36472,
1225 + .19285, .11248, 6.68433, .37116, .16904,
1226 + .04840, .29079, .38180,
1227 + .19624, .11440, 6.92089, .38597, .18524,
1228 + .06610, .30621, .39694 /
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 + .19965, .11633, 7.14385, .40077, .20156,
1231 + .08446, .32163, .41207,
1232 + .20248, .11791, 7.31876, .41299, .21513,
1233 + .09995, .33435, .42454,
1234 + .20586, .11979, 7.51167, .42746, .23109,
1235 + .11780, .34942, .43933,
1236 + .20883, .12142, 7.66615, .43994, .24483,
1237 + .13307, .36244, .45209,
1238 + .21155, .12292, 7.80134, .45131, .25749,
1239 + .14742, .37432, .46371,
1240 + .21494, .12476, 7.95289, .46524, .27289,
1241 + .16459, .38889, .47797,
1242 + .21809, .12645, 8.08042, .47799, .28701,
1243 + .18035, .40222, .49100,
1244 + .22104, .12804, 8.19124, .48975, .30013,
1245 + .19515, .41454, .50304 /
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 + .22393, .12957, 8.28621, .50102, .31267,
1248 + .20913, .42636, .51457,
1249 + .22674, .13106, 8.37025, .51179, .32471,
1250 + .22265, .43767, .52560,
1251 + .22937, .13244, 8.44167, .52174, .33587,
1252 + .23521, .44813, .53578,
1253 + .23181, .13371, 8.49847, .53074, .34596,
1254 + .24652, .45760, .54500,
1255 + .23425, .13498, 8.55122, .53965, .35602,
1256 + .25787, .46699, .55412,
1257 + .23662, .13620, 8.59292, .54801, .36544,
1258 + .26847, .47582, .56269,
1259 + .23885, .13734, 8.62937, .55584, .37434,
1260 + .27852, .48411, .57073,
1261 + .24092, .13840, 8.65639, .56294, .38240,
1262 + .28762, .49162, .57801 /
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 + .24300, .13946, 8.67959, .56992, .39037,
1265 + .29664, .49903, .58517,
1266 + .24504, .14048, 8.69858, .57665, .39809,
1267 + .30540, .50617, .59208,
1268 + .24694, .14143, 8.71031, .58276, .40510,
1269 + .31335, .51268, .59835,
1270 + .24876, .14235, 8.72142, .58856, .41182,
1271 + .32101, .51887, .60431,
1272 + .25055, .14323, 8.72504, .59405, .41817,
1273 + .32822, .52472, .60995 /
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 + .17884, .10538, 2.23663, .18850, .00000,
1276 + .00000, .10553, .19743,
1277 + .18165, .10715, 2.55457, .19605, .00000,
1278 + .00000, .11352, .20529,
1279 + .18594, .10982, 3.01376, .20800, -.00130,
1280 + .00000, .12618, .21769,
1281 + .18914, .11175, 3.32278, .21716, .00810,
1282 + .00000, .13585, .22718,
1283 + .19251, .11378, 3.62662, .22717, .02314,
1284 + .00000, .14641, .23753,
1285 + .19542, .11552, 3.87678, .23599, .03306,
1286 + .00000, .15571, .24666,
1287 + .19823, .11718, 4.10479, .24454, .04291,
1288 + .00000, .16473, .25550,
1289 + .20125, .11894, 4.34172, .25379, .05406,
1290 + .00000, .17448, .26507 /
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 + .20385, .12045, 4.53241, .26183, .06305,
1293 + .00000, .18294, .27337,
1294 + .20638, .12191, 4.71258, .26968, .07221,
1295 + .00000, .19122, .28148,
1296 + .20838, .12305, 4.84730, .27587, .07921,
1297 + .00000, .19775, .28787,
1298 + .21263, .12546, 5.11300, .28917, .09442,
1299 + .00000, .21176, .30160,
1300 + .21628, .12750, 5.33713, .30054, .10749,
1301 + -.00090, .22376, .31335,
1302 + .22032, .12973, 5.52866, .31314, .12194,
1303 + .01921, .23706, .32634,
1304 + .22451, .13201, 5.71227, .32604, .13673,
1305 + .03621, .25070, .33966,
1306 + .22823, .13403, 5.85771, .33729, .14949,
1307 + .05041, .26263, .35128 /
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 + .23197, .13602, 5.99092, .34844, .16224,
1310 + .06502, .27444, .36279,
1311 + .23505, .13766, 6.09277, .35753, .17274,
1312 + .07724, .28409, .37219,
1313 + .23872, .13959, 6.20088, .36818, .18497,
1314 + .09120, .29542, .38318,
1315 + .24192, .14125, 6.28346, .37725, .19540,
1316 + .10306, .30508, .39255,
1317 + .24483, .14276, 6.35381, .38545, .20495,
1318 + .11411, .31383, .40104,
1319 + .24847, .14461, 6.42810, .39538, .21645,
1320 + .12724, .32445, .41131,
1321 + .25183, .14631, 6.48655, .40433, .22689,
1322 + .13919, .33405, .42057,
1323 + .25493, .14787, 6.53471, .41250, .23652,
1324 + .15032, .34283, .42903 /
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 + .25797, .14938, 6.57122, .42024, .24562,
1327 + .16074, .35117, .43705,
1328 + .26091, .15083, 6.60044, .42755, .25430,
1329 + .17076, .35908, .44462,
1330 + .26364, .15217, 6.62226, .43422, .26227,
1331 + .17999, .36631, .45154,
1332 + .26617, .15339, 6.63538, .44017, .26942,
1333 + .18824, .37277, .45771,
1334 + .26869, .15460, 6.64557, .44602, .27649,
1335 + .19647, .37914, .46378,
1336 + .27110, .15576, 6.64849, .45142, .28306,
1337 + .20410, .38506, .46940,
1338 + .27339, .15683, 6.64915, .45645, .28923,
1339 + .21130, .39057, .47462,
1340 + .27550, .15782, 6.64479, .46093, .29476,
1341 + .21777, .39551, .47929 /
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 + .27760, .15880, 6.63776, .46531, .30020,
1344 + .22414, .40035, .48384,
1345 + .27966, .15974, 6.62823, .46947, .30541,
1346 + .23029, .40497, .48817,
1347 + .28157, .16062, 6.61484, .47319, .31012,
1348 + .23584, .40912, .49205,
1349 + .28338, .16145, 6.60229, .47671, .31461,
1350 + .24117, .41305, .49571,
1351 + .28516, .16224, 6.58455, .47996, .31881,
1352 + .24613, .41670, .49911 /
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 + .21163, .12668, 2.39823, .17220, .00000,
1355 + .00000, .09404, .18412,
1356 + .21499, .12872, 2.64232, .17871, .00000,
1357 + .00000, .10108, .19102,
1358 + .22006, .13173, 2.99602, .18887, -.00636,
1359 + .00000, .11201, .20178,
1360 + .22379, .13388, 3.21970, .19652, .00176,
1361 + .00000, .12025, .20984,
1362 + .22771, .13613, 3.43386, .20474, .01452,
1363 + .00000, .12911, .21852,
1364 + .23109, .13804, 3.60690, .21190, .02288,
1365 + .00000, .13681, .22604,
1366 + .23432, .13984, 3.76156, .21875, .03108,
1367 + .00000, .14419, .23325,
1368 + .23778, .14175, 3.91940, .22607, .04027,
1369 + .00000, .15209, .24095 /
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 + .24073, .14337, 4.04357, .23235, .04761,
1372 + .00000, .15887, .24755,
1373 + .24359, .14491, 4.15906, .23843, .05502,
1374 + .00000, .16542, .25392,
1375 + .24584, .14611, 4.24386, .24317, .06064,
1376 + .00000, .17055, .25892,
1377 + .25060, .14864, 4.40577, .25324, .07275,
1378 + .00000, .18144, .26949,
1379 + .25465, .15074, 4.54648, .26171, .08300,
1380 + -.00397, .19064, .27839,
1381 + .25909, .15303, 4.64901, .27097, .09421,
1382 + .01192, .20070, .28809,
1383 + .26363, .15534, 4.74322, .28028, .10555,
1384 + .02523, .21085, .29786,
1385 + .26768, .15734, 4.81256, .28827, .11521,
1386 + .03622, .21958, .30625 /
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 + .27168, .15931, 4.87220, .29605, .12474,
1389 + .04740, .22812, .31442,
1390 + .27497, .16091, 4.91513, .30230, .13251,
1391 + .05668, .23502, .32100,
1392 + .27885, .16278, 4.95598, .30953, .14147,
1393 + .06717, .24299, .32859,
1394 + .28220, .16437, 4.98298, .31558, .14903,
1395 + .07600, .24972, .33496,
1396 + .28524, .16580, 5.00400, .32099, .15588,
1397 + .08416, .25574, .34064,
1398 + .28900, .16754, 5.02022, .32741, .16406,
1399 + .09377, .26294, .34740,
1400 + .29244, .16911, 5.02771, .33311, .17138,
1401 + .10242, .26935, .35340,
1402 + .29561, .17054, 5.03046, .33823, .17807,
1403 + .11041, .27514, .35880 /
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 + .29868, .17191, 5.02574, .34295, .18431,
1406 + .11782, .28053, .36379,
1407 + .30162, .17319, 5.01698, .34734, .19020,
1408 + .12488, .28559, .36844,
1409 + .30434, .17438, 5.00503, .35129, .19557,
1410 + .13134, .29015, .37262,
1411 + .30683, .17544, 4.98912, .35475, .20032,
1412 + .13706, .29417, .37626,
1413 + .30931, .17649, 4.97147, .35809, .20499,
1414 + .14273, .29809, .37980,
1415 + .31165, .17746, 4.94977, .36109, .20927,
1416 + .14792, .30164, .38299,
1417 + .31386, .17838, 4.92807, .36383, .21325,
1418 + .15280, .30492, .38592,
1419 + .31588, .17920, 4.90449, .36623, .21679,
1420 + .15715, .30782, .38846 /
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 + .31789, .18000, 4.87924, .36852, .22023,
1423 + .16140, .31060, .39090,
1424 + .31983, .18077, 4.85300, .37065, .22352,
1425 + .16548, .31323, .39319,
1426 + .32162, .18146, 4.82552, .37249, .22643,
1427 + .16911, .31554, .39516,
1428 + .32332, .18213, 4.79979, .37424, .22920,
1429 + .17259, .31772, .39701,
1430 + .32495, .18274, 4.77076, .37575, .23174,
1431 + .17581, .31968, .39864 /
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 + .25726, .15530, 2.46638, .15337, .00000,
1434 + .00000, .08141, .17034,
1435 + .26134, .15759, 2.62432, .15870, .00000,
1436 + .00000, .08738, .17619,
1437 + .26742, .16093, 2.85897, .16677, -.01111,
1438 + .00000, .09644, .18501,
1439 + .27180, .16325, 2.99112, .17268, -.00438,
1440 + .00000, .10307, .19144,
1441 + .27638, .16563, 3.11205, .17891, .00591,
1442 + .00000, .11007, .19820,
1443 + .28027, .16762, 3.20676, .18420, .01261,
1444 + .00000, .11605, .20394,
1445 + .28397, .16948, 3.28859, .18918, .01908,
1446 + .00000, .12167, .20933,
1447 + .28788, .17143, 3.36972, .19442, .02623,
1448 + .00000, .12760, .21500 /
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 + .29120, .17306, 3.43078, .19882, .03188,
1451 + .00000, .13261, .21975,
1452 + .29438, .17461, 3.48589, .20302, .03752,
1453 + .00000, .13740, .22430,
1454 + .29687, .17579, 3.52466, .20626, .04175,
1455 + .00000, .14109, .22779,
1456 + .30208, .17824, 3.59335, .21301, .05076,
1457 + .00000, .14883, .23508,
1458 + .30643, .18024, 3.65970, .21855, .05827,
1459 + -.00612, .15521, .24104,
1460 + .31114, .18236, 3.68695, .22447, .06635,
1461 + .00556, .16207, .24742,
1462 + .31592, .18446, 3.70739, .23028, .07440,
1463 + .01525, .16884, .25367,
1464 + .32007, .18626, 3.71573, .23512, .08114,
1465 + .02314, .17456, .25889 /
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 + .32418, .18798, 3.71783, .23972, .08771,
1468 + .03109, .18003, .26384,
1469 + .32750, .18934, 3.71573, .24334, .09299,
1470 + .03759, .18439, .26775,
1471 + .33136, .19092, 3.70675, .24741, .09900,
1472 + .04488, .18931, .27214,
1473 + .33465, .19223, 3.69348, .25071, .10399,
1474 + .05092, .19337, .27570,
1475 + .33762, .19338, 3.67939, .25361, .10847,
1476 + .05647, .19695, .27882,
1477 + .34122, .19475, 3.65574, .25693, .11373,
1478 + .06291, .20113, .28240,
1479 + .34447, .19594, 3.62952, .25975, .11837,
1480 + .06865, .20476, .28546,
1481 + .34744, .19702, 3.60300, .26221, .12256,
1482 + .07389, .20797, .28814 /
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 + .35026, .19800, 3.57256, .26438, .12641,
1485 + .07870, .21087, .29049,
1486 + .35293, .19891, 3.54092, .26634, .12999,
1487 + .08322, .21353, .29261,
1488 + .35536, .19972, 3.50938, .26801, .13321,
1489 + .08732, .21589, .29443,
1490 + .35754, .20042, 3.47740, .26939, .13601,
1491 + .09090, .21788, .29593,
1492 + .35969, .20110, 3.44482, .27068, .13874,
1493 + .09444, .21979, .29734,
1494 + .36170, .20170, 3.41075, .27175, .14119,
1495 + .09763, .22146, .29851,
1496 + .36356, .20224, 3.37823, .27269, .14345,
1497 + .10060, .22296, .29953,
1498 + .36523, .20271, 3.34606, .27342, .14542,
1499 + .10322, .22423, .30035 /
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 + .36687, .20316, 3.31318, .27407, .14731,
1502 + .10576, .22541, .30107,
1503 + .36843, .20357, 3.28036, .27464, .14909,
1504 + .10817, .22650, .30169,
1505 + .36986, .20391, 3.24801, .27504, .15064,
1506 + .11030, .22739, .30215,
1507 + .37120, .20424, 3.21785, .27541, .15211,
1508 + .11233, .22822, .30257,
1509 + .37245, .20452, 3.18593, .27563, .15341,
1510 + .11417, .22890, .30282 /
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 + .29557, .17829, 2.40245, .13984, .00000,
1513 + .00000, .07330, .16134,
1514 + .30025, .18069, 2.50326, .14421, .00000,
1515 + .00000, .07844, .16632,
1516 + .30715, .18411, 2.65974, .15066, -.01298,
1517 + .00000, .08607, .17362,
1518 + .31201, .18644, 2.73556, .15528, -.00723,
1519 + .00000, .09154, .17881,
1520 + .31702, .18881, 2.80086, .16005, .00132,
1521 + .00000, .09723, .18416,
1522 + .32126, .19076, 2.84992, .16404, .00688,
1523 + .00000, .10200, .18861,
1524 + .32522, .19255, 2.89019, .16773, .01219,
1525 + .00000, .10642, .19272,
1526 + .32939, .19440, 2.92853, .17155, .01798,
1527 + .00000, .11103, .19697 /
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 + .33290, .19592, 2.95499, .17470, .02254,
1530 + .00000, .11486, .20048,
1531 + .33625, .19734, 2.97773, .17767, .02703,
1532 + .00000, .11849, .20377,
1533 + .33881, .19843, 2.99234, .17993, .03039,
1534 + .00000, .12128, .20628,
1535 + .34416, .20062, 3.01311, .18457, .03747,
1536 + .00000, .12700, .21141,
1537 + .34856, .20235, 3.04091, .18829, .04329,
1538 + -.00664, .13166, .21551,
1539 + .35326, .20416, 3.03235, .19217, .04949,
1540 + .00243, .13658, .21978,
1541 + .35795, .20590, 3.01870, .19589, .05558,
1542 + .00992, .14135, .22385,
1543 + .36197, .20734, 2.99999, .19889, .06063,
1544 + .01596, .14529, .22713 /
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 + .36586, .20868, 2.97737, .20164, .06549,
1547 + .02197, .14900, .23017,
1548 + .36899, .20972, 2.95648, .20377, .06937,
1549 + .02687, .15189, .23251,
1550 + .37257, .21088, 2.92734, .20607, .07374,
1551 + .03229, .15511, .23502,
1552 + .37559, .21180, 2.89864, .20785, .07732,
1553 + .03677, .15768, .23697,
1554 + .37827, .21260, 2.87152, .20937, .08051,
1555 + .04083, .15993, .23864,
1556 + .38145, .21349, 2.83382, .21101, .08421,
1557 + .04553, .16249, .24044,
1558 + .38427, .21424, 2.79637, .21233, .08744,
1559 + .04966, .16464, .24187,
1560 + .38681, .21488, 2.76060, .21343, .09032,
1561 + .05340, .16652, .24305 /
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 + .38916, .21542, 2.72282, .21430, .09293,
1564 + .05681, .16814, .24399,
1565 + .39135, .21589, 2.68516, .21501, .09533,
1566 + .05999, .16958, .24476,
1567 + .39332, .21628, 2.64895, .21555, .09748,
1568 + .06285, .17081, .24535,
1569 + .39504, .21657, 2.61383, .21591, .09931,
1570 + .06533, .17181, .24573,
1571 + .39671, .21682, 2.57868, .21620, .10108,
1572 + .06775, .17272, .24603,
1573 + .39822, .21702, 2.54313, .21634, .10264,
1574 + .06992, .17347, .24618,
1575 + .39960, .21717, 2.50962, .21641, .10407,
1576 + .07194, .17412, .24625,
1577 + .40080, .21727, 2.47733, .21638, .10529,
1578 + .07368, .17461, .24620 /
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 + .40195, .21733, 2.44478, .21628, .10646,
1581 + .07537, .17504, .24607,
1582 + .40303, .21738, 2.41272, .21612, .10753,
1583 + .07695, .17540, .24588,
1584 + .40397, .21737, 2.38174, .21587, .10845,
1585 + .07834, .17565, .24560,
1586 + .40485, .21736, 2.35294, .21564, .10931,
1587 + .07966, .17587, .24533,
1588 + .40561, .21729, 2.32312, .21529, .11005,
1589 + .08083, .17598, .24492 /
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 + .36099, .21394, 2.11532, .12007, .00000,
1592 + .00000, .06370, .15061,
1593 + .36640, .21624, 2.15181, .12284, .00000,
1594 + .00000, .06746, .15395,
1595 + .37410, .21935, 2.21979, .12681, -.01312,
1596 + .00000, .07286, .15867,
1597 + .37935, .22138, 2.23717, .12952, -.00881,
1598 + .00000, .07660, .16184,
1599 + .38467, .22335, 2.24657, .13225, -.00264,
1600 + .00000, .08038, .16501,
1601 + .38905, .22491, 2.25097, .13446, .00138,
1602 + .00000, .08347, .16753,
1603 + .39307, .22629, 2.25155, .13641, .00517,
1604 + .00000, .08629, .16978,
1605 + .39723, .22767, 2.24988, .13839, .00923,
1606 + .00000, .08916, .17201 /
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 + .40064, .22875, 2.24484, .13995, .01238,
1609 + .00000, .09148, .17379,
1610 + .40385, .22973, 2.23862, .14139, .01548,
1611 + .00000, .09365, .17539,
1612 + .40627, .23045, 2.23198, .14246, .01776,
1613 + .00000, .09527, .17658,
1614 + .41119, .23183, 2.21233, .14455, .02249,
1615 + .00000, .09856, .17888,
1616 + .41505, .23281, 2.20667, .14614, .02633,
1617 + -.00623, .10113, .18059,
1618 + .41906, .23371, 2.17159, .14770, .03036,
1619 + -.00024, .10378, .18225,
1620 + .42291, .23448, 2.13390, .14907, .03425,
1621 + .00466, .10625, .18366,
1622 + .42607, .23502, 2.09728, .15005, .03742,
1623 + .00856, .10819, .18463 /
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 + .42901, .23544, 2.05933, .15085, .04042,
1626 + .01239, .10995, .18540,
1627 + .43130, .23569, 2.02748, .15140, .04278,
1628 + .01548, .11127, .18591,
1629 + .43381, .23587, 1.98773, .15187, .04540,
1630 + .01886, .11267, .18629,
1631 + .43579, .23592, 1.95175, .15213, .04752,
1632 + .02162, .11372, .18644,
1633 + .43749, .23592, 1.91900, .15229, .04937,
1634 + .02409, .11459, .18649,
1635 + .43939, .23578, 1.87658, .15231, .05149,
1636 + .02692, .11549, .18636,
1637 + .44094, .23555, 1.83654, .15220, .05331,
1638 + .02938, .11617, .18606,
1639 + .44226, .23525, 1.79945, .15200, .05490,
1640 + .03157, .11672, .18568 /
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 + .44333, .23487, 1.76197, .15167, .05631,
1643 + .03354, .11710, .18515,
1644 + .44426, .23443, 1.72561, .15126, .05758,
1645 + .03536, .11738, .18455,
1646 + .44500, .23396, 1.69154, .15079, .05869,
1647 + .03697, .11756, .18389,
1648 + .44554, .23345, 1.65938, .15028, .05961,
1649 + .03835, .11762, .18315,
1650 + .44600, .23292, 1.62763, .14973, .06049,
1651 + .03969, .11764, .18238,
1652 + .44629, .23232, 1.59635, .14910, .06124,
1653 + .04086, .11756, .18152,
1654 + .44651, .23172, 1.56718, .14847, .06193,
1655 + .04194, .11746, .18069,
1656 + .44661, .23110, 1.53967, .14782, .06247,
1657 + .04286, .11729, .17983 /
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 + .44664, .23045, 1.51229, .14712, .06299,
1660 + .04374, .11707, .17893,
1661 + .44659, .22978, 1.48564, .14641, .06345,
1662 + .04456, .11682, .17799,
1663 + .44644, .22910, 1.46029, .14568, .06382,
1664 + .04525, .11653, .17704,
1665 + .44630, .22847, 1.43682, .14500, .06418,
1666 + .04591, .11625, .17613,
1667 + .44602, .22776, 1.41298, .14424, .06445,
1668 + .04649, .11589, .17517 /
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 + .41582, .24008, 1.78932, .10454, .00000,
1671 + .00000, .05765, .14251,
1672 + .42144, .24197, 1.79726, .10611, .00000,
1673 + .00000, .06027, .14440,
1674 + .42920, .24438, 1.82441, .10827, -.01156,
1675 + .00000, .06393, .14693,
1676 + .43431, .24581, 1.81846, .10970, -.00825,
1677 + .00000, .06641, .14852,
1678 + .43933, .24712, 1.80668, .11108, -.00364,
1679 + .00000, .06888, .15003,
1680 + .44338, .24809, 1.79460, .11215, -.00065,
1681 + .00000, .07086, .15116,
1682 + .44699, .24888, 1.78101, .11307, .00216,
1683 + .00000, .07262, .15209,
1684 + .45065, .24959, 1.76550, .11396, .00514,
1685 + .00000, .07439, .15295 /
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 + .45354, .25008, 1.75004, .11461, .00744,
1688 + .00000, .07578, .15355,
1689 + .45621, .25048, 1.73448, .11519, .00968,
1690 + .00000, .07707, .15406,
1691 + .45817, .25072, 1.72125, .11558, .01133,
1692 + .00000, .07802, .15438,
1693 + .46203, .25106, 1.68992, .11631, .01472,
1694 + .00000, .07989, .15491,
1695 + .46485, .25112, 1.67351, .11677, .01742,
1696 + -.00537, .08130, .15514,
1697 + .46760, .25102, 1.63354, .11715, .02023,
1698 + -.00114, .08269, .15522,
1699 + .47009, .25073, 1.59209, .11736, .02293,
1700 + .00231, .08393, .15510,
1701 + .47194, .25026, 1.55373, .11737, .02510,
1702 + .00504, .08483, .15478 /
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 + .47352, .24968, 1.51508, .11726, .02712,
1705 + .00769, .08558, .15429,
1706 + .47462, .24911, 1.48331, .11709, .02871,
1707 + .00980, .08612, .15379,
1708 + .47564, .24831, 1.44465, .11676, .03044,
1709 + .01211, .08660, .15304,
1710 + .47630, .24747, 1.41048, .11636, .03182,
1711 + .01396, .08691, .15227,
1712 + .47676, .24666, 1.37980, .11594, .03302,
1713 + .01562, .08713, .15149,
1714 + .47705, .24551, 1.34083, .11530, .03436,
1715 + .01749, .08726, .15039,
1716 + .47705, .24433, 1.30468, .11461, .03550,
1717 + .01910, .08728, .14924,
1718 + .47692, .24319, 1.27158, .11393, .03649,
1719 + .02054, .08725, .14810 /
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 + .47655, .24192, 1.23866, .11315, .03734,
1722 + .02180, .08708, .14688,
1723 + .47603, .24064, 1.20712, .11233, .03809,
1724 + .02295, .08686, .14565,
1725 + .47540, .23940, 1.17784, .11154, .03873,
1726 + .02397, .08661, .14442,
1727 + .47463, .23816, 1.15053, .11073, .03926,
1728 + .02482, .08631, .14321,
1729 + .47379, .23689, 1.12377, .10991, .03976,
1730 + .02565, .08598, .14198,
1731 + .47281, .23558, 1.09770, .10904, .04016,
1732 + .02637, .08557, .14072,
1733 + .47181, .23432, 1.07354, .10819, .04050,
1734 + .02701, .08518, .13951,
1735 + .47076, .23310, 1.05094, .10737, .04079,
1736 + .02756, .08476, .13833 /
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 + .46962, .23184, 1.02860, .10653, .04104,
1739 + .02808, .08432, .13713,
1740 + .46844, .23058, 1.00698, .10570, .04126,
1741 + .02855, .08386, .13592,
1742 + .46719, .22934, .98660, .10486, .04142,
1743 + .02894, .08340, .13474,
1744 + .46603, .22817, .96779, .10407, .04156,
1745 + .02931, .08295, .13364,
1746 + .46471, .22693, .94884, .10325, .04166,
1747 + .02963, .08247, .13248 /
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 + .46304, .25967, 1.49983, .09105, .00000,
1750 + .00000, .05257, .13427,
1751 + .46845, .26094, 1.49584, .09174, .00000,
1752 + .00000, .05429, .13492,
1753 + .47564, .26240, 1.50448, .09267, -.00988,
1754 + .00000, .05664, .13568,
1755 + .48016, .26310, 1.49003, .09325, -.00732,
1756 + .00000, .05821, .13603,
1757 + .48448, .26361, 1.47103, .09378, -.00379,
1758 + .00000, .05974, .13629,
1759 + .48783, .26383, 1.45346, .09414, -.00147,
1760 + .00000, .06097, .13638,
1761 + .49069, .26390, 1.43542, .09441, .00067,
1762 + .00000, .06202, .13634,
1763 + .49347, .26389, 1.41572, .09465, .00294,
1764 + .00000, .06305, .13621 /
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 + .49556, .26372, 1.39734, .09479, .00468,
1767 + .00000, .06386, .13599,
1768 + .49740, .26347, 1.37932, .09487, .00637,
1769 + .00000, .06456, .13574,
1770 + .49870, .26318, 1.36450, .09488, .00760,
1771 + .00000, .06507, .13549,
1772 + .50105, .26242, 1.33093, .09484, .01013,
1773 + .00000, .06604, .13484,
1774 + .50250, .26155, 1.31151, .09470, .01213,
1775 + -.00462, .06674, .13412,
1776 + .50369, .26038, 1.27277, .09445, .01421,
1777 + -.00148, .06739, .13322,
1778 + .50450, .25898, 1.23309, .09407, .01617,
1779 + .00107, .06790, .13214,
1780 + .50475, .25755, 1.19700, .09360, .01774,
1781 + .00307, .06821, .13100 /
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 + .50468, .25600, 1.16109, .09305, .01919,
1784 + .00500, .06840, .12977,
1785 + .50442, .25464, 1.13184, .09255, .02031,
1786 + .00654, .06850, .12870,
1787 + .50378, .25289, 1.09667, .09185, .02153,
1788 + .00820, .06849, .12730,
1789 + .50294, .25123, 1.06592, .09116, .02248,
1790 + .00951, .06840, .12599,
1791 + .50205, .24967, 1.03847, .09051, .02330,
1792 + .01069, .06828, .12478,
1793 + .50059, .24758, 1.00404, .08960, .02421,
1794 + .01201, .06803, .12315,
1795 + .49897, .24555, .97235, .08869, .02496,
1796 + .01312, .06771, .12158,
1797 + .49732, .24361, .94354, .08782, .02562,
1798 + .01412, .06736, .12009 /
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 + .49543, .24158, .91519, .08690, .02616,
1801 + .01498, .06695, .11854,
1802 + .49343, .23957, .88818, .08597, .02664,
1803 + .01577, .06652, .11700,
1804 + .49142, .23763, .86328, .08507, .02703,
1805 + .01644, .06606, .11553,
1806 + .48935, .23577, .84023, .08419, .02734,
1807 + .01701, .06560, .11412,
1808 + .48722, .23390, .81775, .08331, .02764,
1809 + .01756, .06512, .11269,
1810 + .48499, .23199, .79600, .08241, .02786,
1811 + .01802, .06459, .11129,
1812 + .48282, .23019, .77595, .08154, .02805,
1813 + .01843, .06409, .10995,
1814 + .48065, .22845, .75729, .08071, .02820,
1815 + .01878, .06359, .10867 /
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 + .47839, .22669, .73894, .07988, .02833,
1818 + .01910, .06307, .10736,
1819 + .47611, .22495, .72127, .07904, .02842,
1820 + .01939, .06254, .10608,
1821 + .47386, .22326, .70471, .07823, .02848,
1822 + .01963, .06203, .10485,
1823 + .47173, .22167, .68945, .07748, .02853,
1824 + .01985, .06155, .10368,
1825 + .46944, .22001, .67419, .07669, .02855,
1826 + .02003, .06102, .10251 /
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 + .51265, .27633, 1.21740, .07602, .00000,
1829 + .00000, .04629, .12226,
1830 + .51718, .27666, 1.20801, .07607, .00000,
1831 + .00000, .04720, .12174,
1832 + .52284, .27667, 1.20671, .07611, -.00820,
1833 + .00000, .04847, .12083,
1834 + .52609, .27629, 1.18902, .07609, -.00627,
1835 + .00000, .04930, .12011,
1836 + .52896, .27569, 1.16767, .07603, -.00361,
1837 + .00000, .05008, .11930,
1838 + .53092, .27499, 1.14841, .07596, -.00188,
1839 + .00000, .05068, .11848,
1840 + .53246, .27415, 1.12911, .07581, -.00028,
1841 + .00000, .05117, .11766,
1842 + .53380, .27312, 1.10839, .07561, .00140,
1843 + .00000, .05164, .11675 /
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 + .53455, .27211, 1.08948, .07540, .00269,
1846 + .00000, .05198, .11589,
1847 + .53510, .27105, 1.07115, .07518, .00393,
1848 + .00000, .05227, .11502,
1849 + .53536, .27012, 1.05630, .07496, .00484,
1850 + .00000, .05246, .11431,
1851 + .53541, .26803, 1.02349, .07449, .00668,
1852 + .00000, .05279, .11274,
1853 + .53485, .26602, 1.00324, .07400, .00813,
1854 + -.00384, .05296, .11133,
1855 + .53380, .26361, .96752, .07339, .00961,
1856 + -.00158, .05306, .10974,
1857 + .53224, .26095, .93123, .07270, .01100,
1858 + .00026, .05307, .10798,
1859 + .53035, .25844, .89865, .07199, .01209,
1860 + .00169, .05296, .10629 /
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 + .52813, .25577, .86651, .07120, .01309,
1863 + .00306, .05277, .10459,
1864 + .52612, .25352, .84054, .07051, .01386,
1865 + .00413, .05256, .10318,
1866 + .52334, .25071, .80960, .06964, .01467,
1867 + .00528, .05224, .10139,
1868 + .52060, .24816, .78278, .06885, .01532,
1869 + .00620, .05190, .09978,
1870 + .51798, .24582, .75904, .06811, .01585,
1871 + .00700, .05157, .09829,
1872 + .51438, .24277, .72951, .06711, .01644,
1873 + .00789, .05108, .09642,
1874 + .51079, .23983, .70259, .06614, .01691,
1875 + .00864, .05057, .09464,
1876 + .50731, .23707, .67829, .06522, .01731,
1877 + .00930, .05007, .09299 /
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 + .50359, .23429, .65457, .06429, .01765,
1880 + .00987, .04954, .09131,
1881 + .49986, .23154, .63215, .06336, .01792,
1882 + .01038, .04900, .08966,
1883 + .49624, .22893, .61164, .06249, .01814,
1884 + .01080, .04846, .08811,
1885 + .49270, .22644, .59279, .06163, .01831,
1886 + .01116, .04792, .08666,
1887 + .48910, .22396, .57450, .06077, .01846,
1888 + .01150, .04738, .08523,
1889 + .48543, .22150, .55693, .05992, .01857,
1890 + .01179, .04682, .08381,
1891 + .48192, .21917, .54081, .05913, .01865,
1892 + .01203, .04629, .08247,
1893 + .47851, .21695, .52592, .05837, .01870,
1894 + .01224, .04578, .08121 /
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 + .47504, .21472, .51135, .05760, .01874,
1897 + .01242, .04526, .07994,
1898 + .47159, .21252, .49739, .05684, .01877,
1899 + .01259, .04473, .07871,
1900 + .46822, .21039, .48438, .05612, .01876,
1901 + .01272, .04423, .07754,
1902 + .46505, .20841, .47245, .05543, .01876,
1903 + .01285, .04376, .07645,
1904 + .46175, .20639, .46057, .05473, .01873,
1905 + .01294, .04327, .07533 /
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 + .55325, .28638, 1.01387, .06292, .00000,
1908 + .00000, .03992, .10860,
1909 + .55637, .28564, 1.00209, .06270, .00000,
1910 + .00000, .04038, .10728,
1911 + .55979, .28408, .99570, .06232, -.00708,
1912 + .00000, .04098, .10535,
1913 + .56130, .28258, .97676, .06201, -.00555,
1914 + .00000, .04136, .10396,
1915 + .56229, .28082, .95463, .06169, -.00347,
1916 + .00000, .04171, .10248,
1917 + .56262, .27913, .93480, .06138, -.00211,
1918 + .00000, .04198, .10117,
1919 + .56253, .27735, .91521, .06106, -.00087,
1920 + .00000, .04215, .09989,
1921 + .56210, .27537, .89435, .06069, .00044,
1922 + .00000, .04230, .09852 /
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 + .56135, .27351, .87550, .06033, .00144,
1925 + .00000, .04238, .09732,
1926 + .56041, .27165, .85742, .05996, .00240,
1927 + .00000, .04242, .09613,
1928 + .55947, .27015, .84286, .05966, .00309,
1929 + .00000, .04243, .09521,
1930 + .55703, .26678, .81119, .05899, .00449,
1931 + .00000, .04238, .09319,
1932 + .55434, .26373, .79097, .05837, .00557,
1933 + -.00327, .04229, .09143,
1934 + .55088, .26025, .75796, .05766, .00668,
1935 + -.00157, .04212, .08946,
1936 + .54687, .25649, .72468, .05682, .00770,
1937 + -.00019, .04185, .08742,
1938 + .54282, .25296, .69507, .05603, .00850,
1939 + .00087, .04152, .08556 /
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 + .53844, .24938, .66613, .05520, .00922,
1942 + .00188, .04115, .08368,
1943 + .53464, .24639, .64294, .05450, .00977,
1944 + .00267, .04081, .08212,
1945 + .52975, .24271, .61556, .05360, .01034,
1946 + .00350, .04037, .08023,
1947 + .52521, .23943, .59205, .05279, .01077,
1948 + .00415, .03992, .07855,
1949 + .52097, .23643, .57136, .05206, .01114,
1950 + .00472, .03949, .07706,
1951 + .51537, .23257, .54583, .05109, .01152,
1952 + .00535, .03891, .07516,
1953 + .50991, .22896, .52277, .05017, .01183,
1954 + .00587, .03833, .07338,
1955 + .50473, .22559, .50211, .04932, .01209,
1956 + .00632, .03778, .07175 /
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 + .49942, .22218, .48212, .04842, .01229,
1959 + .00671, .03723, .07012,
1960 + .49415, .21886, .46337, .04755, .01244,
1961 + .00704, .03665, .06855,
1962 + .48912, .21576, .44628, .04674, .01258,
1963 + .00733, .03611, .06710,
1964 + .48425, .21283, .43072, .04598, .01266,
1965 + .00757, .03559, .06572,
1966 + .47936, .20992, .41571, .04521, .01273,
1967 + .00778, .03507, .06437,
1968 + .47446, .20704, .40140, .04446, .01278,
1969 + .00796, .03454, .06305,
1970 + .46983, .20434, .38833, .04374, .01280,
1971 + .00811, .03404, .06183,
1972 + .46538, .20178, .37633, .04306, .01280,
1973 + .00823, .03356, .06068 /
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 + .46088, .19924, .36464, .04239, .01280,
1976 + .00835, .03306, .05955,
1977 + .45644, .19674, .35350, .04173, .01279,
1978 + .00844, .03259, .05844,
1979 + .45215, .19436, .34317, .04110, .01276,
1980 + .00852, .03214, .05738,
1981 + .44814, .19214, .33372, .04052, .01275,
1982 + .00859, .03171, .05642,
1983 + .44400, .18986, .32439, .03991, .01270,
1984 + .00864, .03127, .05543 /
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 + .58544, .29097, .86816, .05185, .00000,
1987 + .00000, .03367, .09396,
1988 + .58670, .28916, .85410, .05149, .00000,
1989 + .00000, .03385, .09225,
1990 + .58727, .28604, .84337, .05100, -.00633,
1991 + .00000, .03406, .08976,
1992 + .58673, .28347, .82288, .05064, -.00507,
1993 + .00000, .03420, .08802,
1994 + .58554, .28061, .79973, .05024, -.00338,
1995 + .00000, .03430, .08619,
1996 + .58398, .27797, .77922, .04988, -.00227,
1997 + .00000, .03435, .08461,
1998 + .58209, .27533, .75913, .04949, -.00125,
1999 + .00000, .03436, .08311,
2000 + .57976, .27245, .73796, .04906, -.00020,
2001 + .00000, .03432, .08153 /
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 + .57735, .26986, .71912, .04866, .00061,
2004 + .00000, .03426, .08016,
2005 + .57483, .26732, .70113, .04826, .00136,
2006 + .00000, .03417, .07886,
2007 + .57263, .26526, .68681, .04792, .00191,
2008 + .00000, .03409, .07783,
2009 + .56759, .26078, .65615, .04720, .00301,
2010 + .00000, .03386, .07566,
2011 + .56273, .25682, .63594, .04656, .00386,
2012 + -.00280, .03360, .07382,
2013 + .55694, .25237, .60514, .04581, .00470,
2014 + -.00150, .03327, .07181,
2015 + .55052, .24770, .57439, .04499, .00548,
2016 + -.00043, .03289, .06971,
2017 + .54438, .24336, .54736, .04418, .00607,
2018 + .00037, .03248, .06786 /
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 + .53797, .23901, .52120, .04336, .00660,
2021 + .00114, .03202, .06601,
2022 + .53253, .23542, .50039, .04268, .00700,
2023 + .00172, .03162, .06449,
2024 + .52570, .23107, .47606, .04184, .00740,
2025 + .00234, .03111, .06268,
2026 + .51947, .22722, .45535, .04109, .00771,
2027 + .00282, .03065, .06107,
2028 + .51376, .22373, .43725, .04040, .00797,
2029 + .00324, .03022, .05963,
2030 + .50639, .21927, .41515, .03949, .00823,
2031 + .00369, .02963, .05786,
2032 + .49933, .21513, .39539, .03863, .00844,
2033 + .00406, .02907, .05623,
2034 + .49271, .21130, .37780, .03783, .00859,
2035 + .00438, .02853, .05475 /
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 + .48596, .20749, .36090, .03704, .00872,
2038 + .00465, .02799, .05326,
2039 + .47937, .20380, .34516, .03627, .00881,
2040 + .00487, .02746, .05185,
2041 + .47311, .20036, .33097, .03556, .00888,
2042 + .00508, .02695, .05053,
2043 + .46717, .19710, .31811, .03488, .00892,
2044 + .00523, .02648, .04934,
2045 + .46125, .19389, .30579, .03420, .00894,
2046 + .00537, .02599, .04816,
2047 + .45537, .19075, .29410, .03353, .00896,
2048 + .00549, .02553, .04701,
2049 + .44983, .18782, .28348, .03291, .00896,
2050 + .00558, .02508, .04594,
2051 + .44456, .18505, .27380, .03233, .00895,
2052 + .00566, .02466, .04495 /
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 + .43926, .18229, .26439, .03174, .00892,
2055 + .00572, .02423, .04397,
2056 + .43406, .17961, .25548, .03118, .00889,
2057 + .00578, .02382, .04302,
2058 + .42907, .17708, .24726, .03064, .00886,
2059 + .00582, .02343, .04212,
2060 + .42442, .17471, .23977, .03015, .00882,
2061 + .00585, .02306, .04129,
2062 + .41966, .17231, .23242, .02964, .00878,
2063 + .00588, .02268, .04046 /
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 + .60952, .29108, .75964, .04269, .00000,
2066 + .00000, .02773, .07924,
2067 + .60863, .28817, .74268, .04236, .00000,
2068 + .00000, .02780, .07736,
2069 + .60607, .28355, .72723, .04187, -.00579,
2070 + .00000, .02789, .07466,
2071 + .60323, .27996, .70488, .04149, -.00470,
2072 + .00000, .02790, .07277,
2073 + .59970, .27606, .68022, .04108, -.00328,
2074 + .00000, .02791, .07088,
2075 + .59616, .27257, .65876, .04069, -.00234,
2076 + .00000, .02782, .06927,
2077 + .59237, .26914, .63807, .04030, -.00149,
2078 + .00000, .02773, .06776,
2079 + .58809, .26546, .61648, .03987, -.00062,
2080 + .00000, .02763, .06616 /
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 + .58401, .26218, .59754, .03944, .00004,
2083 + .00000, .02750, .06481,
2084 + .57991, .25901, .57969, .03904, .00065,
2085 + .00000, .02735, .06350,
2086 + .57649, .25649, .56558, .03872, .00109,
2087 + .00000, .02723, .06247,
2088 + .56892, .25104, .53590, .03799, .00197,
2089 + .00000, .02690, .06037,
2090 + .56198, .24633, .51591, .03734, .00265,
2091 + -.00241, .02659, .05860,
2092 + .55394, .24110, .48717, .03660, .00330,
2093 + -.00138, .02623, .05668,
2094 + .54533, .23563, .45880, .03580, .00389,
2095 + -.00056, .02577, .05475,
2096 + .53719, .23072, .43411, .03507, .00435,
2097 + .00007, .02534, .05298 /
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 + .52888, .22579, .41054, .03430, .00475,
2100 + .00065, .02489, .05126,
2101 + .52195, .22173, .39199, .03365, .00504,
2102 + .00109, .02449, .04989,
2103 + .51344, .21685, .37043, .03287, .00534,
2104 + .00156, .02398, .04824,
2105 + .50578, .21258, .35234, .03217, .00556,
2106 + .00192, .02353, .04682,
2107 + .49880, .20874, .33661, .03153, .00573,
2108 + .00223, .02311, .04555,
2109 + .48984, .20387, .31759, .03071, .00591,
2110 + .00255, .02257, .04398,
2111 + .48143, .19936, .30070, .02996, .00605,
2112 + .00283, .02206, .04254,
2113 + .47362, .19521, .28580, .02924, .00615,
2114 + .00305, .02158, .04124 /
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 + .46573, .19112, .27165, .02852, .00622,
2117 + .00324, .02108, .03998,
2118 + .45806, .18719, .25854, .02785, .00628,
2119 + .00341, .02061, .03876,
2120 + .45084, .18356, .24678, .02722, .00631,
2121 + .00353, .02016, .03764,
2122 + .44406, .18015, .23623, .02662, .00632,
2123 + .00364, .01973, .03661,
2124 + .43734, .17677, .22616, .02603, .00633,
2125 + .00373, .01932, .03561,
2126 + .43068, .17348, .21668, .02545, .00632,
2127 + .00380, .01891, .03467,
2128 + .42444, .17042, .20812, .02492, .00632,
2129 + .00387, .01851, .03378,
2130 + .41855, .16755, .20035, .02442, .00629,
2131 + .00391, .01815, .03295 /
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 + .41266, .16472, .19285, .02392, .00626,
2134 + .00396, .01781, .03213,
2135 + .40691, .16195, .18576, .02344, .00623,
2136 + .00399, .01746, .03134,
2137 + .40144, .15934, .17927, .02298, .00619,
2138 + .00401, .01712, .03062,
2139 + .39633, .15692, .17338, .02255, .00615,
2140 + .00402, .01681, .02995,
2141 + .39112, .15446, .16762, .02213, .00611,
2142 + .00404, .01650, .02928 /
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 + .62585, .28737, .67219, .03528, .00000,
2145 + .00000, .02248, .06505,
2146 + .62268, .28340, .65211, .03495, .00000,
2147 + .00000, .02251, .06325,
2148 + .61674, .27734, .63210, .03445, -.00530,
2149 + .00000, .02250, .06068,
2150 + .61156, .27279, .60776, .03408, -.00433,
2151 + .00000, .02248, .05889,
2152 + .60561, .26799, .58172, .03369, -.00313,
2153 + .00000, .02241, .05707,
2154 + .60008, .26371, .55946, .03331, -.00233,
2155 + .00000, .02232, .05556,
2156 + .59443, .25959, .53832, .03292, -.00161,
2157 + .00000, .02221, .05412,
2158 + .58820, .25523, .51655, .03249, -.00089,
2159 + .00000, .02207, .05262 /
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 + .58250, .25138, .49784, .03208, -.00034,
2162 + .00000, .02190, .05134,
2163 + .57688, .24768, .48026, .03169, .00017,
2164 + .00000, .02173, .05016,
2165 + .57230, .24476, .46653, .03137, .00053,
2166 + .00000, .02157, .04923,
2167 + .56230, .23856, .43801, .03068, .00124,
2168 + .00000, .02123, .04729,
2169 + .55340, .23325, .41873, .03005, .00177,
2170 + -.00206, .02091, .04569,
2171 + .54335, .22739, .39213, .02932, .00230,
2172 + -.00124, .02052, .04400,
2173 + .53269, .22139, .36624, .02858, .00276,
2174 + -.00059, .02010, .04223,
2175 + .52285, .21600, .34406, .02787, .00310,
2176 + -.00011, .01969, .04072 /
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 + .51291, .21066, .32305, .02717, .00341,
2179 + .00035, .01924, .03920,
2180 + .50468, .20630, .30667, .02659, .00362,
2181 + .00068, .01888, .03798,
2182 + .49473, .20102, .28787, .02586, .00384,
2183 + .00103, .01842, .03657,
2184 + .48587, .19646, .27219, .02523, .00400,
2185 + .00131, .01801, .03535,
2186 + .47784, .19240, .25869, .02466, .00412,
2187 + .00153, .01762, .03426,
2188 + .46764, .18730, .24255, .02393, .00424,
2189 + .00177, .01713, .03292,
2190 + .45812, .18259, .22834, .02325, .00434,
2191 + .00197, .01667, .03173,
2192 + .44933, .17829, .21589, .02262, .00440,
2193 + .00213, .01625, .03064 /
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 + .44059, .17404, .20416, .02198, .00445,
2196 + .00227, .01582, .02959,
2197 + .43211, .16999, .19339, .02139, .00447,
2198 + .00238, .01541, .02860,
2199 + .42417, .16625, .18378, .02085, .00448,
2200 + .00247, .01501, .02768,
2201 + .41675, .16276, .17523, .02034, .00449,
2202 + .00254, .01466, .02684,
2203 + .40942, .15934, .16710, .01985, .00448,
2204 + .00260, .01432, .02601,
2205 + .40223, .15601, .15951, .01937, .00447,
2206 + .00265, .01398, .02522,
2207 + .39550, .15294, .15267, .01891, .00444,
2208 + .00269, .01365, .02451,
2209 + .38919, .15006, .14650, .01849, .00442,
2210 + .00272, .01336, .02384 /
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 + .38291, .14721, .14059, .01807, .00440,
2213 + .00274, .01306, .02319,
2214 + .37677, .14445, .13503, .01768, .00436,
2215 + .00276, .01277, .02257,
2216 + .37094, .14186, .12996, .01729, .00433,
2217 + .00277, .01249, .02200,
2218 + .36552, .13945, .12537, .01695, .00430,
2219 + .00278, .01224, .02146,
2220 + .36005, .13704, .12090, .01659, .00425,
2221 + .00278, .01198, .02094 /
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 + .63502, .28018, .59505, .02902, .00000,
2224 + .00000, .01799, .05229,
2225 + .62932, .27536, .57236, .02875, .00000,
2226 + .00000, .01802, .05061,
2227 + .61988, .26808, .54835, .02837, -.00479,
2228 + .00000, .01798, .04824,
2229 + .61231, .26274, .52265, .02806, -.00394,
2230 + .00000, .01792, .04659,
2231 + .60402, .25713, .49583, .02769, -.00292,
2232 + .00000, .01785, .04494,
2233 + .59649, .25225, .47329, .02735, -.00223,
2234 + .00000, .01773, .04357,
2235 + .58903, .24757, .45225, .02697, -.00162,
2236 + .00000, .01761, .04229,
2237 + .58094, .24265, .43083, .02655, -.00102,
2238 + .00000, .01742, .04099 /
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 + .57368, .23840, .41264, .02618, -.00056,
2241 + .00000, .01723, .03988,
2242 + .56662, .23432, .39576, .02582, -.00014,
2243 + .00000, .01706, .03882,
2244 + .56098, .23107, .38271, .02551, .00015,
2245 + .00000, .01690, .03801,
2246 + .54880, .22427, .35597, .02485, .00073,
2247 + .00000, .01658, .03631,
2248 + .53819, .21854, .33769, .02425, .00115,
2249 + -.00173, .01627, .03494,
2250 + .52631, .21228, .31360, .02360, .00157,
2251 + -.00109, .01590, .03344,
2252 + .51390, .20590, .29037, .02293, .00193,
2253 + -.00058, .01550, .03195,
2254 + .50266, .20019, .27080, .02227, .00220,
2255 + -.00020, .01510, .03063 /
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 + .49138, .19451, .25239, .02162, .00243,
2258 + .00015, .01471, .02940,
2259 + .48213, .18993, .23818, .02110, .00259,
2260 + .00041, .01437, .02842,
2261 + .47100, .18452, .22209, .02041, .00274,
2262 + .00067, .01396, .02725,
2263 + .46116, .17983, .20879, .01986, .00286,
2264 + .00088, .01360, .02622,
2265 + .45230, .17564, .19741, .01936, .00295,
2266 + .00105, .01327, .02532,
2267 + .44116, .17044, .18387, .01871, .00304,
2268 + .00122, .01284, .02426,
2269 + .43081, .16566, .17214, .01811, .00309,
2270 + .00136, .01246, .02327,
2271 + .42132, .16131, .16192, .01758, .00314,
2272 + .00149, .01210, .02238 /
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 + .41192, .15705, .15238, .01705, .00316,
2275 + .00157, .01176, .02149,
2276 + .40289, .15297, .14367, .01654, .00317,
2277 + .00165, .01142, .02069,
2278 + .39450, .14920, .13595, .01604, .00318,
2279 + .00173, .01110, .01998,
2280 + .38667, .14573, .12912, .01559, .00317,
2281 + .00177, .01081, .01932,
2282 + .37897, .14234, .12266, .01517, .00317,
2283 + .00182, .01052, .01869,
2284 + .37145, .13908, .11667, .01477, .00315,
2285 + .00185, .01023, .01808,
2286 + .36444, .13606, .11130, .01440, .00313,
2287 + .00187, .00996, .01750,
2288 + .35788, .13322, .10651, .01404, .00310,
2289 + .00188, .00972, .01698 /
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 + .35138, .13043, .10190, .01369, .00309,
2292 + .00190, .00949, .01649,
2293 + .34506, .12773, .09760, .01334, .00305,
2294 + .00191, .00925, .01600,
2295 + .33910, .12522, .09371, .01304, .00302,
2296 + .00191, .00902, .01556,
2297 + .33357, .12289, .09018, .01276, .00300,
2298 + .00192, .00881, .01514,
2299 + .32799, .12054, .08677, .01245, .00296,
2300 + .00192, .00861, .01474 /
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 + .63632, .27123, .52265, .02472, .00000,
2303 + .00000, .01372, .04052,
2304 + .62828, .26549, .49805, .02446, .00000,
2305 + .00000, .01378, .03910,
2306 + .61558, .25706, .47110, .02397, -.00426,
2307 + .00000, .01383, .03713,
2308 + .60581, .25099, .44481, .02360, -.00351,
2309 + .00000, .01381, .03578,
2310 + .59530, .24469, .41803, .02323, -.00264,
2311 + .00000, .01374, .03440,
2312 + .58605, .23922, .39591, .02280, -.00206,
2313 + .00000, .01366, .03327,
2314 + .57694, .23408, .37550, .02242, -.00154,
2315 + .00000, .01355, .03220,
2316 + .56717, .22872, .35499, .02202, -.00104,
2317 + .00000, .01342, .03108 /
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 + .55861, .22406, .33780, .02165, -.00065,
2320 + .00000, .01327, .03015,
2321 + .55033, .21965, .32201, .02127, -.00032,
2322 + .00000, .01313, .02926,
2323 + .54372, .21620, .30995, .02095, -.00008,
2324 + .00000, .01299, .02861,
2325 + .52967, .20898, .28556, .02027, .00039,
2326 + .00000, .01269, .02723,
2327 + .51757, .20293, .26877, .01972, .00073,
2328 + -.00142, .01241, .02610,
2329 + .50415, .19638, .24744, .01913, .00105,
2330 + -.00092, .01208, .02488,
2331 + .49040, .18975, .22712, .01847, .00133,
2332 + -.00053, .01175, .02366,
2333 + .47799, .18381, .21018, .01787, .00155,
2334 + -.00022, .01143, .02260 /
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 + .46566, .17805, .19450, .01726, .00171,
2337 + .00004, .01108, .02158,
2338 + .45560, .17342, .18249, .01677, .00184,
2339 + .00024, .01080, .02078,
2340 + .44354, .16790, .16895, .01620, .00196,
2341 + .00044, .01047, .01983,
2342 + .43303, .16317, .15791, .01568, .00203,
2343 + .00058, .01015, .01905,
2344 + .42362, .15896, .14852, .01521, .00210,
2345 + .00071, .00986, .01836,
2346 + .41183, .15372, .13750, .01464, .00216,
2347 + .00084, .00953, .01747,
2348 + .40093, .14896, .12800, .01413, .00220,
2349 + .00095, .00921, .01671,
2350 + .39099, .14466, .11979, .01366, .00222,
2351 + .00103, .00892, .01602 /
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 + .38118, .14048, .11218, .01321, .00224,
2354 + .00110, .00862, .01537,
2355 + .37184, .13648, .10529, .01275, .00225,
2356 + .00116, .00834, .01475,
2357 + .36322, .13279, .09925, .01233, .00224,
2358 + .00120, .00808, .01420,
2359 + .35514, .12941, .09390, .01197, .00224,
2360 + .00123, .00784, .01369,
2361 + .34718, .12614, .08888, .01164, .00222,
2362 + .00126, .00760, .01319,
2363 + .33953, .12296, .08426, .01130, .00221,
2364 + .00129, .00738, .01272,
2365 + .33243, .12004, .08013, .01099, .00218,
2366 + .00129, .00719, .01229,
2367 + .32580, .11732, .07645, .01070, .00217,
2368 + .00130, .00699, .01190 /
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 + .31924, .11464, .07295, .01040, .00215,
2371 + .00132, .00680, .01152,
2372 + .31288, .11207, .06969, .01013, .00212,
2373 + .00132, .00663, .01115,
2374 + .30691, .10966, .06674, .00985, .00211,
2375 + .00133, .00646, .01082,
2376 + .30139, .10744, .06408, .00962, .00208,
2377 + .00133, .00631, .01051,
2378 + .29584, .10519, .06152, .00937, .00206,
2379 + .00132, .00615, .01020 /
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 + .63182, .25909, .45099, .02046, .00000,
2382 + .00000, .01070, .03098,
2383 + .62137, .25273, .42573, .02023, .00000,
2384 + .00000, .01076, .02978,
2385 + .60537, .24347, .39747, .01982, -.00370,
2386 + .00000, .01082, .02812,
2387 + .59350, .23686, .37176, .01946, -.00306,
2388 + .00000, .01078, .02701,
2389 + .58096, .23002, .34599, .01905, -.00233,
2390 + .00000, .01070, .02593,
2391 + .56993, .22426, .32505, .01871, -.00183,
2392 + .00000, .01060, .02499,
2393 + .55931, .21882, .30605, .01833, -.00141,
2394 + .00000, .01049, .02411,
2395 + .54810, .21312, .28710, .01793, -.00099,
2396 + .00000, .01037, .02319 /
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 + .53831, .20828, .27143, .01758, -.00068,
2399 + .00000, .01022, .02245,
2400 + .52890, .20368, .25719, .01722, -.00040,
2401 + .00000, .01007, .02174,
2402 + .52147, .20010, .24636, .01696, -.00021,
2403 + .00000, .00997, .02118,
2404 + .50578, .19265, .22478, .01638, .00017,
2405 + .00000, .00969, .02004,
2406 + .49251, .18644, .20985, .01585, .00043,
2407 + -.00115, .00947, .01912,
2408 + .47800, .17973, .19149, .01527, .00069,
2409 + -.00076, .00918, .01818,
2410 + .46311, .17301, .17424, .01466, .00090,
2411 + -.00045, .00887, .01721,
2412 + .44980, .16708, .16001, .01415, .00105,
2413 + -.00024, .00859, .01639 /
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 + .43667, .16129, .14694, .01361, .00119,
2416 + -.00003, .00829, .01560,
2417 + .42604, .15666, .13700, .01319, .00127,
2418 + .00012, .00806, .01498,
2419 + .41333, .15126, .12600, .01269, .00137,
2420 + .00027, .00777, .01422,
2421 + .40240, .14654, .11710, .01222, .00143,
2422 + .00038, .00752, .01363,
2423 + .39265, .14236, .10958, .01181, .00147,
2424 + .00047, .00729, .01310,
2425 + .38043, .13727, .10081, .01135, .00151,
2426 + .00057, .00701, .01241,
2427 + .36922, .13265, .09330, .01093, .00153,
2428 + .00064, .00676, .01182,
2429 + .35904, .12849, .08688, .01052, .00155,
2430 + .00070, .00650, .01129 /
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 + .34910, .12441, .08098, .01012, .00156,
2433 + .00075, .00628, .01080,
2434 + .33962, .12058, .07567, .00977, .00157,
2435 + .00079, .00606, .01033,
2436 + .33087, .11708, .07103, .00945, .00156,
2437 + .00082, .00585, .00989,
2438 + .32279, .11384, .06697, .00914, .00156,
2439 + .00085, .00567, .00949,
2440 + .31490, .11067, .06317, .00883, .00155,
2441 + .00087, .00549, .00913,
2442 + .30727, .10766, .05970, .00855, .00153,
2443 + .00088, .00531, .00878,
2444 + .30021, .10487, .05663, .00828, .00152,
2445 + .00089, .00515, .00848,
2446 + .29366, .10230, .05388, .00803, .00150,
2447 + .00090, .00501, .00818 /
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 + .28719, .09979, .05127, .00779, .00148,
2450 + .00090, .00485, .00790,
2451 + .28095, .09737, .04885, .00756, .00146,
2452 + .00090, .00472, .00763,
2453 + .27506, .09510, .04669, .00736, .00144,
2454 + .00090, .00459, .00739,
2455 + .26961, .09302, .04474, .00717, .00143,
2456 + .00090, .00448, .00716,
2457 + .26419, .09093, .04288, .00697, .00141,
2458 + .00090, .00435, .00695 /
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 + .62077, .24566, .38037, .01725, .00000,
2461 + .00000, .00808, .02288,
2462 + .60811, .23875, .35558, .01696, .00000,
2463 + .00000, .00816, .02199,
2464 + .58929, .22874, .32759, .01647, -.00314,
2465 + .00000, .00820, .02075,
2466 + .57552, .22173, .30344, .01609, -.00260,
2467 + .00000, .00819, .01988,
2468 + .56110, .21458, .27961, .01572, -.00199,
2469 + .00000, .00814, .01900,
2470 + .54864, .20854, .26051, .01539, -.00158,
2471 + .00000, .00808, .01824,
2472 + .53678, .20285, .24338, .01501, -.00123,
2473 + .00000, .00798, .01758,
2474 + .52436, .19699, .22649, .01461, -.00090,
2475 + .00000, .00786, .01688 /
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 + .51357, .19196, .21273, .01427, -.00065,
2478 + .00000, .00777, .01628,
2479 + .50332, .18724, .20030, .01394, -.00042,
2480 + .00000, .00764, .01572,
2481 + .49524, .18357, .19095, .01366, -.00027,
2482 + .00000, .00753, .01531,
2483 + .47831, .17600, .17248, .01313, .00002,
2484 + .00000, .00728, .01446,
2485 + .46412, .16977, .15969, .01267, .00023,
2486 + -.00092, .00706, .01376,
2487 + .44873, .16308, .14438, .01212, .00043,
2488 + -.00062, .00686, .01302,
2489 + .43306, .15642, .13011, .01160, .00059,
2490 + -.00039, .00660, .01227,
2491 + .41914, .15057, .11856, .01114, .00071,
2492 + -.00021, .00636, .01162 /
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 + .40548, .14489, .10808, .01069, .00080,
2495 + -.00007, .00612, .01103,
2496 + .39449, .14036, .10018, .01032, .00087,
2497 + .00004, .00591, .01057,
2498 + .38158, .13503, .09143, .00988, .00094,
2499 + .00016, .00568, .00999,
2500 + .37038, .13050, .08446, .00949, .00099,
2501 + .00025, .00549, .00952,
2502 + .36041, .12650, .07862, .00914, .00102,
2503 + .00031, .00532, .00912,
2504 + .34810, .12159, .07187, .00871, .00104,
2505 + .00038, .00508, .00865,
2506 + .33686, .11715, .06617, .00834, .00106,
2507 + .00043, .00488, .00820,
2508 + .32667, .11316, .06128, .00803, .00107,
2509 + .00048, .00470, .00779 /
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 + .31672, .10930, .05686, .00773, .00108,
2512 + .00052, .00451, .00742,
2513 + .30730, .10565, .05288, .00742, .00108,
2514 + .00054, .00435, .00707,
2515 + .29870, .10232, .04944, .00712, .00108,
2516 + .00056, .00420, .00677,
2517 + .29073, .09928, .04646, .00687, .00107,
2518 + .00058, .00405, .00649,
2519 + .28295, .09633, .04369, .00663, .00106,
2520 + .00059, .00390, .00622,
2521 + .27548, .09351, .04114, .00642, .00105,
2522 + .00060, .00377, .00598,
2523 + .26858, .09091, .03889, .00622, .00103,
2524 + .00060, .00365, .00575,
2525 + .26221, .08851, .03692, .00601, .00102,
2526 + .00061, .00353, .00554 /
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 + .25595, .08616, .03505, .00581, .00101,
2529 + .00061, .00343, .00535,
2530 + .24990, .08391, .03334, .00561, .00100,
2531 + .00061, .00332, .00515,
2532 + .24422, .08182, .03179, .00545, .00099,
2533 + .00062, .00322, .00499,
2534 + .23899, .07989, .03041, .00531, .00097,
2535 + .00061, .00312, .00484,
2536 + .23380, .07797, .02910, .00514, .00096,
2537 + .00061, .00304, .00467 /
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 + .60425, .23066, .31121, .01431, .00000,
2540 + .00000, .00606, .01656,
2541 + .58959, .22337, .28801, .01404, .00000,
2542 + .00000, .00614, .01587,
2543 + .56817, .21286, .26184, .01355, -.00261,
2544 + .00000, .00618, .01494,
2545 + .55277, .20557, .24007, .01320, -.00215,
2546 + .00000, .00620, .01429,
2547 + .53681, .19824, .21898, .01282, -.00166,
2548 + .00000, .00616, .01361,
2549 + .52320, .19207, .20227, .01246, -.00133,
2550 + .00000, .00607, .01307,
2551 + .51027, .18628, .18745, .01215, -.00105,
2552 + .00000, .00601, .01254,
2553 + .49680, .18033, .17298, .01181, -.00078,
2554 + .00000, .00592, .01201 /
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 + .48527, .17529, .16129, .01146, -.00058,
2557 + .00000, .00582, .01159,
2558 + .47434, .17058, .15085, .01113, -.00040,
2559 + .00000, .00571, .01118,
2560 + .46580, .16692, .14308, .01090, -.00029,
2561 + .00000, .00563, .01085,
2562 + .44797, .15940, .12792, .01041, -.00005,
2563 + .00000, .00542, .01020,
2564 + .43311, .15327, .11742, .01001, .00010,
2565 + -.00072, .00525, .00967,
2566 + .41711, .14671, .10507, .00957, .00026,
2567 + -.00049, .00507, .00910,
2568 + .40102, .14015, .09381, .00908, .00037,
2569 + -.00032, .00486, .00856,
2570 + .38681, .13446, .08475, .00869, .00047,
2571 + -.00018, .00465, .00810 /
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 + .37299, .12898, .07658, .00830, .00054,
2574 + -.00007, .00447, .00765,
2575 + .36191, .12461, .07049, .00795, .00059,
2576 + .00001, .00432, .00730,
2577 + .34883, .11954, .06391, .00756, .00063,
2578 + .00009, .00412, .00688,
2579 + .33762, .11520, .05862, .00725, .00067,
2580 + .00015, .00398, .00653,
2581 + .32771, .11138, .05425, .00698, .00069,
2582 + .00020, .00384, .00624,
2583 + .31549, .10669, .04924, .00664, .00072,
2584 + .00025, .00367, .00590,
2585 + .30439, .10251, .04505, .00633, .00072,
2586 + .00029, .00350, .00559,
2587 + .29438, .09876, .04151, .00607, .00073,
2588 + .00032, .00334, .00531 /
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 + .28464, .09514, .03832, .00580, .00074,
2591 + .00035, .00321, .00504,
2592 + .27546, .09174, .03549, .00556, .00073,
2593 + .00036, .00307, .00479,
2594 + .26707, .08865, .03303, .00533, .00073,
2595 + .00038, .00295, .00456,
2596 + .25936, .08583, .03093, .00514, .00072,
2597 + .00039, .00285, .00437,
2598 + .25186, .08309, .02895, .00494, .00072,
2599 + .00040, .00274, .00421,
2600 + .24467, .08048, .02722, .00475, .00071,
2601 + .00040, .00263, .00403,
2602 + .23806, .07810, .02567, .00457, .00070,
2603 + .00041, .00255, .00386,
2604 + .23194, .07590, .02430, .00442, .00070,
2605 + .00042, .00247, .00370 /
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 + .22594, .07376, .02303, .00429, .00068,
2608 + .00041, .00238, .00356,
2609 + .22019, .07170, .02185, .00415, .00068,
2610 + .00042, .00231, .00341,
2611 + .21481, .06979, .02080, .00401, .00066,
2612 + .00041, .00223, .00329,
2613 + .20987, .06803, .01986, .00390, .00066,
2614 + .00041, .00217, .00316,
2615 + .20494, .06630, .01897, .00379, .00064,
2616 + .00041, .00210, .00307 /
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 + .58272, .21442, .24509, .01156, .00000,
2619 + .00000, .00460, .01180,
2620 + .56638, .20687, .22450, .01128, .00000,
2621 + .00000, .00467, .01131,
2622 + .54261, .19622, .20116, .01090, -.00210,
2623 + .00000, .00471, .01059,
2624 + .52589, .18885, .18245, .01056, -.00173,
2625 + .00000, .00468, .01011,
2626 + .50876, .18143, .16462, .01017, -.00135,
2627 + .00000, .00462, .00962,
2628 + .49416, .17524, .15061, .00990, -.00109,
2629 + .00000, .00456, .00922,
2630 + .48041, .16948, .13839, .00962, -.00086,
2631 + .00000, .00448, .00882,
2632 + .46621, .16361, .12653, .00932, -.00065,
2633 + .00000, .00439, .00841 /
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 + .45410, .15864, .11710, .00902, -.00050,
2636 + .00000, .00432, .00807,
2637 + .44273, .15398, .10866, .00875, -.00036,
2638 + .00000, .00426, .00778,
2639 + .43389, .15036, .10250, .00853, -.00027,
2640 + .00000, .00417, .00754,
2641 + .41551, .14300, .09056, .00811, -.00010,
2642 + .00000, .00400, .00708,
2643 + .40038, .13704, .08234, .00774, .00002,
2644 + -.00055, .00386, .00668,
2645 + .38419, .13070, .07289, .00732, .00014,
2646 + -.00038, .00371, .00625,
2647 + .36787, .12441, .06432, .00695, .00023,
2648 + -.00025, .00354, .00588,
2649 + .35366, .11898, .05751, .00659, .00030,
2650 + -.00015, .00340, .00553 /
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 + .33984, .11375, .05148, .00625, .00035,
2653 + -.00007, .00324, .00522,
2654 + .32881, .10961, .04704, .00600, .00038,
2655 + -.00002, .00310, .00497,
2656 + .31587, .10481, .04220, .00570, .00042,
2657 + .00005, .00298, .00467,
2658 + .30487, .10072, .03845, .00543, .00044,
2659 + .00009, .00286, .00441,
2660 + .29518, .09715, .03534, .00520, .00046,
2661 + .00012, .00275, .00419,
2662 + .28321, .09281, .03185, .00495, .00048,
2663 + .00016, .00260, .00394,
2664 + .27245, .08891, .02891, .00469, .00048,
2665 + .00019, .00249, .00373,
2666 + .26278, .08542, .02647, .00446, .00049,
2667 + .00021, .00239, .00355 /
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 + .25338, .08208, .02430, .00427, .00049,
2670 + .00023, .00226, .00336,
2671 + .24457, .07895, .02239, .00407, .00049,
2672 + .00024, .00217, .00317,
2673 + .23659, .07610, .02076, .00387, .00049,
2674 + .00026, .00209, .00302,
2675 + .22923, .07351, .01934, .00372, .00048,
2676 + .00026, .00201, .00289,
2677 + .22211, .07100, .01805, .00358, .00048,
2678 + .00026, .00193, .00276,
2679 + .21529, .06864, .01690, .00344, .00048,
2680 + .00027, .00185, .00264,
2681 + .20903, .06647, .01590, .00330, .00047,
2682 + .00028, .00177, .00254,
2683 + .20327, .06448, .01503, .00318, .00046,
2684 + .00027, .00170, .00244 /
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 + .19765, .06254, .01421, .00306, .00046,
2687 + .00028, .00165, .00232,
2688 + .19226, .06068, .01345, .00295, .00045,
2689 + .00028, .00160, .00223,
2690 + .18723, .05897, .01279, .00285, .00044,
2691 + .00027, .00154, .00215,
2692 + .18261, .05739, .01221, .00276, .00044,
2693 + .00028, .00149, .00207,
2694 + .17801, .05584, .01165, .00268, .00043,
2695 + .00027, .00144, .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 + .55646, .19809, .18365, .00957, .00000,
2698 + .00000, .00331, .00793,
2699 + .53870, .19039, .16625, .00930, .00000,
2700 + .00000, .00337, .00764,
2701 + .51331, .17958, .14673, .00884, -.00166,
2702 + .00000, .00339, .00717,
2703 + .49555, .17219, .13136, .00852, -.00136,
2704 + .00000, .00341, .00684,
2705 + .47748, .16479, .11698, .00819, -.00107,
2706 + .00000, .00337, .00653,
2707 + .46230, .15865, .10587, .00789, -.00087,
2708 + .00000, .00333, .00622,
2709 + .44814, .15298, .09622, .00757, -.00069,
2710 + .00000, .00328, .00597,
2711 + .43353, .14722, .08701, .00725, -.00053,
2712 + .00000, .00321, .00574 /
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 + .42110, .14235, .07977, .00702, -.00041,
2715 + .00000, .00313, .00550,
2716 + .40943, .13784, .07342, .00679, -.00030,
2717 + .00000, .00305, .00527,
2718 + .40040, .13436, .06877, .00663, -.00024,
2719 + .00000, .00298, .00510,
2720 + .38185, .12730, .05983, .00624, -.00011,
2721 + .00000, .00287, .00472,
2722 + .36664, .12159, .05382, .00594, -.00002,
2723 + -.00041, .00277, .00445,
2724 + .35041, .11552, .04693, .00562, .00006,
2725 + -.00029, .00264, .00419,
2726 + .33431, .10958, .04080, .00528, .00013,
2727 + -.00019, .00254, .00387,
2728 + .32030, .10443, .03600, .00497, .00019,
2729 + -.00012, .00239, .00369 /
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 + .30676, .09949, .03179, .00470, .00022,
2732 + -.00007, .00229, .00347,
2733 + .29599, .09561, .02871, .00450, .00025,
2734 + -.00002, .00221, .00328,
2735 + .28343, .09113, .02545, .00426, .00027,
2736 + .00002, .00210, .00307,
2737 + .27273, .08737, .02295, .00406, .00029,
2738 + .00005, .00200, .00290,
2739 + .26331, .08407, .02092, .00388, .00030,
2740 + .00008, .00192, .00277,
2741 + .25191, .08006, .01862, .00364, .00032,
2742 + .00011, .00182, .00260,
2743 + .24160, .07647, .01677, .00345, .00032,
2744 + .00012, .00172, .00243,
2745 + .23235, .07329, .01525, .00328, .00032,
2746 + .00013, .00163, .00229 /
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 + .22344, .07025, .01389, .00313, .00033,
2749 + .00015, .00157, .00215,
2750 + .21510, .06740, .01270, .00298, .00032,
2751 + .00015, .00149, .00205,
2752 + .20752, .06480, .01172, .00286, .00032,
2753 + .00016, .00142, .00196,
2754 + .20062, .06246, .01088, .00274, .00032,
2755 + .00017, .00135, .00187,
2756 + .19397, .06020, .01011, .00260, .00031,
2757 + .00017, .00130, .00178,
2758 + .18765, .05807, .00942, .00248, .00031,
2759 + .00018, .00125, .00170,
2760 + .18188, .05612, .00883, .00237, .00030,
2761 + .00018, .00121, .00161,
2762 + .17653, .05434, .00832, .00228, .00031,
2763 + .00018, .00116, .00155 /
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 + .17130, .05261, .00785, .00219, .00030,
2766 + .00018, .00112, .00149,
2767 + .16631, .05096, .00743, .00210, .00029,
2768 + .00018, .00108, .00142,
2769 + .16167, .04944, .00705, .00203, .00029,
2770 + .00019, .00103, .00137,
2771 + .15742, .04805, .00670, .00197, .00029,
2772 + .00018, .00101, .00132,
2773 + .15319, .04667, .00640, .00191, .00028,
2774 + .00018, .00098, .00126 /
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 + .52647, .18115, .12797, .00773, .00000,
2777 + .00000, .00236, .00529,
2778 + .50773, .17349, .11416, .00747, .00000,
2779 + .00000, .00242, .00503,
2780 + .48104, .16287, .09889, .00705, -.00127,
2781 + .00000, .00243, .00475,
2782 + .46259, .15563, .08713, .00675, -.00105,
2783 + .00000, .00240, .00454,
2784 + .44402, .14840, .07616, .00647, -.00082,
2785 + .00000, .00239, .00430,
2786 + .42843, .14245, .06789, .00621, -.00067,
2787 + .00000, .00237, .00411,
2788 + .41398, .13693, .06084, .00598, -.00054,
2789 + .00000, .00232, .00391,
2790 + .39919, .13133, .05418, .00573, -.00042,
2791 + .00000, .00224, .00373 /
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 + .38670, .12669, .04896, .00552, -.00033,
2794 + .00000, .00218, .00358,
2795 + .37507, .12237, .04448, .00529, -.00025,
2796 + .00000, .00212, .00343,
2797 + .36609, .11907, .04121, .00511, -.00020,
2798 + .00000, .00209, .00332,
2799 + .34762, .11236, .03504, .00482, -.00010,
2800 + .00000, .00200, .00307,
2801 + .33260, .10695, .03099, .00457, -.00004,
2802 + -.00031, .00191, .00290,
2803 + .31668, .10127, .02634, .00429, .00002,
2804 + -.00022, .00182, .00272,
2805 + .30092, .09571, .02229, .00406, .00008,
2806 + -.00014, .00173, .00250,
2807 + .28731, .09092, .01921, .00381, .00011,
2808 + -.00010, .00164, .00236 /
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 + .27423, .08637, .01658, .00359, .00014,
2811 + -.00005, .00155, .00221,
2812 + .26385, .08278, .01470, .00342, .00016,
2813 + -.00002, .00148, .00209,
2814 + .25181, .07866, .01274, .00320, .00017,
2815 + .00001, .00139, .00194,
2816 + .24164, .07518, .01126, .00304, .00019,
2817 + .00003, .00133, .00184,
2818 + .23275, .07216, .01006, .00288, .00020,
2819 + .00005, .00128, .00176,
2820 + .22189, .06848, .00878, .00272, .00020,
2821 + .00006, .00120, .00165,
2822 + .21219, .06524, .00775, .00257, .00020,
2823 + .00007, .00114, .00156,
2824 + .20355, .06236, .00691, .00244, .00021,
2825 + .00009, .00108, .00146 /
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 + .19524, .05960, .00622, .00230, .00021,
2828 + .00010, .00103, .00138,
2829 + .18746, .05705, .00561, .00219, .00021,
2830 + .00011, .00097, .00131,
2831 + .18043, .05474, .00510, .00208, .00021,
2832 + .00011, .00093, .00124,
2833 + .17403, .05266, .00468, .00199, .00021,
2834 + .00012, .00089, .00117,
2835 + .16785, .05066, .00433, .00191, .00021,
2836 + .00011, .00084, .00110,
2837 + .16202, .04876, .00400, .00182, .00020,
2838 + .00011, .00081, .00105,
2839 + .15668, .04702, .00374, .00174, .00020,
2840 + .00012, .00079, .00100,
2841 + .15179, .04544, .00352, .00165, .00020,
2842 + .00012, .00076, .00096 /
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 + .14703, .04393, .00331, .00159, .00019,
2845 + .00012, .00074, .00091,
2846 + .14247, .04247, .00313, .00153, .00019,
2847 + .00011, .00070, .00087,
2848 + .13824, .04111, .00298, .00147, .00019,
2849 + .00012, .00067, .00083,
2850 + .13436, .03988, .00284, .00143, .00019,
2851 + .00012, .00065, .00080,
2852 + .13054, .03868, .00271, .00138, .00018,
2853 + .00012, .00061, .00078 /
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 + .49323, .16398, .07933, .00597, .00000,
2856 + .00000, .00180, .00344,
2857 + .47375, .15649, .06921, .00572, .00000,
2858 + .00000, .00179, .00334,
2859 + .44638, .14614, .05828, .00540, -.00095,
2860 + .00000, .00180, .00308,
2861 + .42758, .13915, .04992, .00518, -.00079,
2862 + .00000, .00179, .00290,
2863 + .40873, .13219, .04235, .00494, -.00062,
2864 + .00000, .00173, .00275,
2865 + .39321, .12646, .03668, .00469, -.00050,
2866 + .00000, .00169, .00266,
2867 + .37876, .12123, .03197, .00448, -.00041,
2868 + .00000, .00163, .00255,
2869 + .36401, .11595, .02760, .00428, -.00032,
2870 + .00000, .00160, .00241 /
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 + .35165, .11152, .02425, .00410, -.00026,
2873 + .00000, .00157, .00231,
2874 + .34012, .10743, .02140, .00394, -.00020,
2875 + .00000, .00154, .00223,
2876 + .33122, .10430, .01937, .00384, -.00016,
2877 + .00000, .00150, .00217,
2878 + .31318, .09802, .01567, .00353, -.00009,
2879 + .00000, .00143, .00202,
2880 + .29863, .09299, .01335, .00331, -.00004,
2881 + -.00021, .00134, .00187,
2882 + .28321, .08773, .01063, .00311, .00000,
2883 + -.00016, .00127, .00174,
2884 + .26809, .08259, .00831, .00289, .00004,
2885 + -.00010, .00122, .00163,
2886 + .25501, .07822, .00666, .00273, .00006,
2887 + -.00007, .00114, .00152 /
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 + .24256, .07406, .00528, .00257, .00008,
2890 + -.00004, .00108, .00141,
2891 + .23278, .07077, .00435, .00242, .00009,
2892 + -.00003, .00103, .00134,
2893 + .22150, .06703, .00340, .00223, .00011,
2894 + .00000, .00096, .00125,
2895 + .21192, .06388, .00274, .00211, .00012,
2896 + .00001, .00092, .00118,
2897 + .20356, .06115, .00223, .00200, .00012,
2898 + .00003, .00087, .00112,
2899 + .19345, .05789, .00171, .00187, .00013,
2900 + .00004, .00082, .00103,
2901 + .18442, .05497, .00134, .00176, .00013,
2902 + .00005, .00079, .00096,
2903 + .17637, .05240, .00102, .00168, .00013,
2904 + .00005, .00076, .00092 /
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 + .16871, .04996, .00079, .00159, .00014,
2907 + .00006, .00072, .00087,
2908 + .16156, .04770, .00063, .00150, .00013,
2909 + .00006, .00068, .00082,
2910 + .15512, .04564, .00053, .00141, .00014,
2911 + .00007, .00064, .00077,
2912 + .14927, .04380, .00043, .00136, .00013,
2913 + .00007, .00060, .00073,
2914 + .14365, .04205, .00036, .00128, .00013,
2915 + .00007, .00057, .00069,
2916 + .13832, .04038, .00030, .00122, .00013,
2917 + .00008, .00055, .00066,
2918 + .13347, .03887, .00026, .00117, .00013,
2919 + .00008, .00053, .00064,
2920 + .12906, .03749, .00022, .00112, .00013,
2921 + .00008, .00052, .00062 /
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 + .12475, .03617, .00020, .00108, .00012,
2924 + .00008, .00050, .00058,
2925 + .12066, .03491, .00020, .00103, .00012,
2926 + .00007, .00049, .00054,
2927 + .11689, .03375, .00021, .00098, .00012,
2928 + .00007, .00045, .00052,
2929 + .11343, .03269, .00023, .00093, .00012,
2930 + .00008, .00044, .00050,
2931 + .11003, .03164, .00023, .00092, .00012,
2932 + .00008, .00041, .00048 /
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 + .45767, .14708, .03834, .00450, .00000,
2935 + .00000, .00128, .00218,
2936 + .43786, .13979, .03178, .00423, .00000,
2937 + .00000, .00132, .00212,
2938 + .41019, .12974, .02507, .00392, -.00070,
2939 + .00000, .00130, .00203,
2940 + .39134, .12307, .01988, .00373, -.00058,
2941 + .00000, .00128, .00194,
2942 + .37261, .11648, .01535, .00353, -.00045,
2943 + .00000, .00126, .00180,
2944 + .35715, .11109, .01201, .00332, -.00037,
2945 + .00000, .00128, .00173,
2946 + .34295, .10616, .00935, .00314, -.00030,
2947 + .00000, .00125, .00167,
2948 + .32851, .10119, .00698, .00298, -.00024,
2949 + .00000, .00120, .00162 /
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 + .31642, .09706, .00530, .00285, -.00019,
2952 + .00000, .00117, .00152,
2953 + .30522, .09327, .00391, .00272, -.00015,
2954 + .00000, .00114, .00145,
2955 + .29664, .09039, .00295, .00261, -.00013,
2956 + .00000, .00109, .00141,
2957 + .27923, .08456, .00125, .00244, -.00007,
2958 + .00000, .00103, .00132,
2959 + .26527, .07993, .00029, .00227, -.00005,
2960 + -.00016, .00100, .00125,
2961 + .25068, .07509, -.00090, .00206, -.00001,
2962 + -.00011, .00097, .00118,
2963 + .23632, .07044, -.00172, .00191, .00001,
2964 + -.00008, .00088, .00107,
2965 + .22401, .06648, -.00227, .00183, .00003,
2966 + -.00006, .00084, .00096 /
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 + .21230, .06273, -.00269, .00172, .00005,
2969 + -.00003, .00080, .00091,
2970 + .20311, .05979, -.00289, .00163, .00006,
2971 + -.00001, .00075, .00087,
2972 + .19254, .05643, -.00305, .00150, .00007,
2973 + .00000, .00070, .00083,
2974 + .18367, .05364, -.00310, .00142, .00007,
2975 + .00000, .00067, .00078,
2976 + .17597, .05121, -.00311, .00134, .00007,
2977 + .00001, .00065, .00074,
2978 + .16667, .04832, -.00305, .00124, .00008,
2979 + .00003, .00060, .00069,
2980 + .15839, .04576, -.00296, .00117, .00008,
2981 + .00003, .00057, .00063,
2982 + .15106, .04351, -.00282, .00110, .00008,
2983 + .00004, .00053, .00058 /
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 + .14413, .04135, -.00270, .00102, .00008,
2986 + .00004, .00049, .00056,
2987 + .13768, .03936, -.00258, .00095, .00008,
2988 + .00004, .00047, .00054,
2989 + .13186, .03758, -.00245, .00090, .00009,
2990 + .00005, .00045, .00051,
2991 + .12658, .03598, -.00229, .00085, .00008,
2992 + .00005, .00042, .00048,
2993 + .12152, .03447, -.00218, .00082, .00008,
2994 + .00005, .00042, .00045,
2995 + .11675, .03304, -.00205, .00078, .00008,
2996 + .00004, .00039, .00042,
2997 + .11243, .03174, -.00191, .00074, .00008,
2998 + .00004, .00037, .00039,
2999 + .10848, .03056, -.00179, .00071, .00008,
3000 + .00005, .00035, .00037 /
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 + .10467, .02941, -.00168, .00066, .00008,
3003 + .00005, .00033, .00037,
3004 + .10104, .02833, -.00157, .00062, .00008,
3005 + .00005, .00032, .00036,
3006 + .09768, .02734, -.00149, .00061, .00008,
3007 + .00005, .00031, .00033,
3008 + .09462, .02643, -.00139, .00060, .00007,
3009 + .00005, .00031, .00031,
3010 + .09163, .02554, -.00131, .00057, .00007,
3011 + .00005, .00030, .00031 /
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 + .42048, .13112, .00449, .00372, .00000,
3014 + .00000, .00076, .00116,
3015 + .40065, .12416, .00118, .00350, .00000,
3016 + .00000, .00074, .00119,
3017 + .37325, .11464, -.00164, .00319, -.00050,
3018 + .00000, .00077, .00113,
3019 + .35475, .10831, -.00403, .00301, -.00041,
3020 + .00000, .00079, .00107,
3021 + .33642, .10215, -.00599, .00282, -.00033,
3022 + .00000, .00079, .00103,
3023 + .32139, .09708, -.00718, .00265, -.00027,
3024 + .00000, .00076, .00097,
3025 + .30758, .09246, -.00805, .00252, -.00022,
3026 + .00000, .00073, .00093,
3027 + .29364, .08786, -.00872, .00237, -.00017,
3028 + .00000, .00070, .00091 /
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 + .28206, .08407, -.00911, .00224, -.00014,
3031 + .00000, .00070, .00087,
3032 + .27136, .08060, -.00936, .00214, -.00011,
3033 + .00000, .00068, .00082,
3034 + .26318, .07796, -.00944, .00206, -.00009,
3035 + .00000, .00067, .00077,
3036 + .24667, .07265, -.00947, .00191, -.00005,
3037 + .00000, .00062, .00071,
3038 + .23351, .06845, -.00928, .00176, -.00003,
3039 + -.00010, .00057, .00069,
3040 + .21977, .06408, -.00919, .00163, -.00002,
3041 + -.00008, .00053, .00062,
3042 + .20639, .05987, -.00899, .00150, .00000,
3043 + -.00006, .00052, .00059,
3044 + .19496, .05628, -.00869, .00140, .00001,
3045 + -.00004, .00050, .00056 /
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 + .18414, .05294, -.00832, .00129, .00002,
3048 + -.00003, .00047, .00051,
3049 + .17570, .05034, -.00799, .00121, .00003,
3050 + -.00001, .00043, .00049,
3051 + .16603, .04734, -.00753, .00110, .00004,
3052 + .00000, .00041, .00045,
3053 + .15794, .04487, -.00711, .00103, .00004,
3054 + .00000, .00037, .00043,
3055 + .15089, .04275, -.00676, .00098, .00005,
3056 + .00001, .00035, .00041,
3057 + .14241, .04021, -.00629, .00095, .00005,
3058 + .00001, .00033, .00036,
3059 + .13495, .03797, -.00587, .00087, .00004,
3060 + .00001, .00032, .00035,
3061 + .12838, .03598, -.00547, .00081, .00005,
3062 + .00002, .00030, .00034 /
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 + .12216, .03411, -.00510, .00075, .00005,
3065 + .00002, .00029, .00030,
3066 + .11635, .03241, -.00474, .00071, .00005,
3067 + .00002, .00027, .00028,
3068 + .11112, .03087, -.00442, .00068, .00005,
3069 + .00002, .00025, .00027,
3070 + .10642, .02950, -.00413, .00065, .00006,
3071 + .00003, .00024, .00026,
3072 + .10195, .02820, -.00386, .00062, .00005,
3073 + .00003, .00022, .00025,
3074 + .09774, .02696, -.00360, .00059, .00005,
3075 + .00003, .00021, .00022,
3076 + .09393, .02584, -.00337, .00055, .00005,
3077 + .00003, .00021, .00022,
3078 + .09045, .02484, -.00316, .00053, .00005,
3079 + .00003, .00020, .00020 /
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 + .08709, .02386, -.00297, .00052, .00005,
3082 + .00003, .00019, .00018,
3083 + .08390, .02294, -.00279, .00049, .00005,
3084 + .00003, .00017, .00019,
3085 + .08099, .02210, -.00261, .00047, .00004,
3086 + .00003, .00016, .00017,
3087 + .07832, .02133, -.00246, .00045, .00004,
3088 + .00003, .00016, .00018,
3089 + .07572, .02058, -.00231, .00042, .00004,
3090 + .00003, .00015, .00016 /
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 + .38190, .11493, -.02134, .00253, .00000,
3093 + .00000, .00061, .00075,
3094 + .36236, .10843, -.02180, .00235, .00000,
3095 + .00000, .00062, .00073,
3096 + .33559, .09960, -.02132, .00213, -.00035,
3097 + .00000, .00058, .00073,
3098 + .31770, .09375, -.02141, .00201, -.00028,
3099 + .00000, .00057, .00070,
3100 + .30004, .08803, -.02122, .00189, -.00022,
3101 + .00000, .00057, .00067,
3102 + .28563, .08343, -.02084, .00176, -.00018,
3103 + .00000, .00056, .00065,
3104 + .27246, .07928, -.02028, .00167, -.00015,
3105 + .00000, .00054, .00059,
3106 + .25922, .07512, -.01963, .00159, -.00012,
3107 + .00000, .00050, .00055 /
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 + .24834, .07168, -.01899, .00149, -.00010,
3110 + .00000, .00049, .00052,
3111 + .23829, .06851, -.01831, .00141, -.00008,
3112 + .00000, .00047, .00050,
3113 + .23059, .06610, -.01775, .00135, -.00007,
3114 + .00000, .00045, .00050,
3115 + .21515, .06134, -.01657, .00122, -.00004,
3116 + .00000, .00042, .00049,
3117 + .20289, .05759, -.01551, .00114, -.00003,
3118 + -.00008, .00041, .00043,
3119 + .19015, .05372, -.01457, .00111, -.00001,
3120 + -.00005, .00040, .00037,
3121 + .17787, .04999, -.01356, .00100, .00000,
3122 + -.00003, .00036, .00037,
3123 + .16738, .04686, -.01265, .00096, .00000,
3124 + -.00003, .00032, .00034 /
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 + .15755, .04392, -.01173, .00086, .00001,
3127 + -.00002, .00030, .00030,
3128 + .14991, .04165, -.01100, .00079, .00002,
3129 + -.00001, .00029, .00027,
3130 + .14117, .03905, -.01017, .00072, .00002,
3131 + -.00001, .00025, .00029,
3132 + .13386, .03691, -.00947, .00067, .00002,
3133 + .00000, .00024, .00028,
3134 + .12756, .03506, -.00885, .00063, .00003,
3135 + .00001, .00023, .00025,
3136 + .11998, .03285, -.00811, .00061, .00003,
3137 + .00001, .00022, .00021,
3138 + .11333, .03093, -.00746, .00057, .00003,
3139 + .00001, .00020, .00020,
3140 + .10749, .02925, -.00689, .00053, .00002,
3141 + .00001, .00018, .00019 /
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 + .10194, .02765, -.00635, .00050, .00003,
3144 + .00002, .00017, .00018,
3145 + .09686, .02619, -.00588, .00047, .00003,
3146 + .00002, .00018, .00017,
3147 + .09232, .02488, -.00547, .00044, .00003,
3148 + .00002, .00017, .00015,
3149 + .08821, .02372, -.00507, .00041, .00003,
3150 + .00002, .00015, .00014,
3151 + .08430, .02261, -.00471, .00039, .00003,
3152 + .00002, .00014, .00013,
3153 + .08062, .02158, -.00438, .00036, .00003,
3154 + .00002, .00013, .00013,
3155 + .07729, .02065, -.00409, .00034, .00003,
3156 + .00002, .00013, .00012,
3157 + .07428, .01981, -.00384, .00033, .00003,
3158 + .00002, .00012, .00012 /
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 + .07138, .01899, -.00357, .00030, .00002,
3161 + .00002, .00011, .00012,
3162 + .06864, .01822, -.00335, .00029, .00002,
3163 + .00001, .00011, .00011,
3164 + .06611, .01751, -.00313, .00028, .00002,
3165 + .00001, .00010, .00011,
3166 + .06383, .01688, -.00294, .00027, .00003,
3167 + .00002, .00010, .00010,
3168 + .06160, .01625, -.00277, .00026, .00003,
3169 + .00002, .00010, .00010 /
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 + .34274, .09961, -.03994, .00163, .00000,
3172 + .00000, .00048, .00047,
3173 + .32387, .09362, -.03823, .00157, .00000,
3174 + .00000, .00047, .00048,
3175 + .29816, .08555, -.03509, .00144, -.00023,
3176 + .00000, .00047, .00042,
3177 + .28109, .08023, -.03336, .00131, -.00019,
3178 + .00000, .00045, .00042,
3179 + .26437, .07504, -.03141, .00120, -.00015,
3180 + .00000, .00041, .00041,
3181 + .25078, .07084, -.02979, .00113, -.00012,
3182 + .00000, .00039, .00040,
3183 + .23844, .06709, -.02822, .00107, -.00010,
3184 + .00000, .00037, .00040,
3185 + .22607, .06333, -.02653, .00099, -.00008,
3186 + .00000, .00036, .00039 /
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 + .21590, .06028, -.02513, .00093, -.00007,
3189 + .00000, .00033, .00036,
3190 + .20656, .05750, -.02383, .00088, -.00006,
3191 + .00000, .00033, .00033,
3192 + .19945, .05538, -.02282, .00085, -.00004,
3193 + .00000, .00033, .00030,
3194 + .18524, .05115, -.02075, .00079, -.00003,
3195 + .00000, .00031, .00027,
3196 + .17406, .04783, -.01912, .00074, -.00002,
3197 + -.00005, .00028, .00027,
3198 + .16248, .04444, -.01760, .00068, -.00001,
3199 + -.00003, .00026, .00028,
3200 + .15129, .04121, -.01599, .00064, -.00001,
3201 + -.00003, .00025, .00022,
3202 + .14193, .03847, -.01467, .00054, .00000,
3203 + -.00002, .00022, .00023 /
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 + .13310, .03592, -.01342, .00049, .00000,
3206 + -.00002, .00019, .00022,
3207 + .12624, .03396, -.01247, .00044, .00001,
3208 + -.00001, .00018, .00022,
3209 + .11840, .03175, -.01140, .00043, .00001,
3210 + .00000, .00019, .00018,
3211 + .11195, .02990, -.01051, .00040, .00001,
3212 + .00000, .00018, .00016,
3213 + .10639, .02832, -.00974, .00037, .00001,
3214 + .00000, .00017, .00015,
3215 + .09974, .02647, -.00887, .00035, .00002,
3216 + .00001, .00015, .00014,
3217 + .09390, .02483, -.00809, .00033, .00002,
3218 + .00001, .00014, .00013,
3219 + .08879, .02341, -.00745, .00032, .00002,
3220 + .00001, .00014, .00011 /
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 + .08398, .02207, -.00683, .00029, .00002,
3223 + .00001, .00013, .00012,
3224 + .07956, .02084, -.00627, .00026, .00002,
3225 + .00001, .00012, .00010,
3226 + .07559, .01975, -.00577, .00025, .00001,
3227 + .00001, .00010, .00010,
3228 + .07205, .01878, -.00536, .00025, .00001,
3229 + .00001, .00010, .00009,
3230 + .06868, .01786, -.00497, .00024, .00001,
3231 + .00001, .00010, .00008,
3232 + .06553, .01700, -.00461, .00023, .00001,
3233 + .00001, .00009, .00008,
3234 + .06270, .01624, -.00429, .00020, .00002,
3235 + .00002, .00009, .00008,
3236 + .06013, .01554, -.00400, .00019, .00002,
3237 + .00002, .00008, .00007 /
3238 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
3239 + .05764, .01487, -.00374, .00019, .00002,
3240 + .00002, .00008, .00007,
3241 + .05531, .01424, -.00348, .00018, .00002,
3242 + .00002, .00007, .00005,
3243 + .05318, .01367, -.00325, .00017, .00002,
3244 + .00002, .00007, .00005,
3245 + .05124, .01315, -.00306, .00017, .00002,
3246 + .00001, .00007, .00005,
3247 + .04936, .01264, -.00286, .00016, .00002,
3248 + .00001, .00005, .00005 /
3249 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
3250 + .30432, .08580, -.05302, .00128, .00000,
3251 + .00000, .00022, .00022,
3252 + .28641, .08032, -.04944, .00117, .00000,
3253 + .00000, .00021, .00020,
3254 + .26216, .07290, -.04424, .00106, -.00015,
3255 + .00000, .00021, .00020,
3256 + .24612, .06809, -.04108, .00096, -.00013,
3257 + .00000, .00020, .00021,
3258 + .23048, .06345, -.03806, .00092, -.00010,
3259 + .00000, .00021, .00021,
3260 + .21778, .05971, -.03543, .00087, -.00008,
3261 + .00000, .00019, .00019,
3262 + .20638, .05637, -.03308, .00081, -.00007,
3263 + .00000, .00018, .00019,
3264 + .19504, .05307, -.03074, .00074, -.00006,
3265 + .00000, .00019, .00016 /
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 + .18568, .05034, -.02883, .00072, -.00005,
3268 + .00000, .00018, .00016,
3269 + .17712, .04787, -.02705, .00067, -.00004,
3270 + .00000, .00018, .00016,
3271 + .17070, .04598, -.02572, .00064, -.00003,
3272 + .00000, .00015, .00016,
3273 + .15781, .04229, -.02308, .00058, -.00002,
3274 + .00000, .00015, .00015,
3275 + .14770, .03943, -.02106, .00054, -.00001,
3276 + -.00003, .00014, .00014,
3277 + .13732, .03648, -.01906, .00045, -.00001,
3278 + -.00003, .00013, .00014,
3279 + .12733, .03368, -.01722, .00044, .00000,
3280 + -.00001, .00013, .00013,
3281 + .11899, .03133, -.01565, .00039, .00000,
3282 + -.00001, .00012, .00011 /
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 + .11118, .02914, -.01419, .00036, .00000,
3285 + -.00001, .00011, .00010,
3286 + .10512, .02747, -.01307, .00034, .00001,
3287 + .00000, .00009, .00010,
3288 + .09825, .02559, -.01184, .00030, .00001,
3289 + .00000, .00008, .00009,
3290 + .09259, .02404, -.01087, .00029, .00001,
3291 + .00000, .00009, .00009,
3292 + .08774, .02272, -.01003, .00029, .00001,
3293 + .00000, .00007, .00008,
3294 + .08197, .02114, -.00904, .00024, .00001,
3295 + .00000, .00007, .00006,
3296 + .07695, .01978, -.00823, .00021, .00001,
3297 + .00000, .00007, .00007,
3298 + .07254, .01859, -.00751, .00019, .00001,
3299 + .00000, .00005, .00007 /
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 + .06838, .01748, -.00687, .00021, .00001,
3302 + .00000, .00005, .00005,
3303 + .06456, .01647, -.00628, .00019, .00001,
3304 + .00000, .00006, .00004,
3305 + .06119, .01557, -.00579, .00019, .00001,
3306 + .00001, .00006, .00004,
3307 + .05818, .01476, -.00535, .00018, .00001,
3308 + .00001, .00006, .00004,
3309 + .05533, .01400, -.00494, .00017, .00001,
3310 + .00001, .00004, .00004,
3311 + .05268, .01329, -.00456, .00016, .00001,
3312 + .00001, .00004, .00003,
3313 + .05029, .01266, -.00423, .00014, .00001,
3314 + .00001, .00004, .00003,
3315 + .04812, .01210, -.00396, .00013, .00001,
3316 + .00001, .00004, .00003 /
3317 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
3318 + .04605, .01155, -.00369, .00012, .00001,
3319 + .00001, .00004, .00003,
3320 + .04411, .01104, -.00343, .00012, .00001,
3321 + .00001, .00003, .00003,
3322 + .04232, .01058, -.00321, .00012, .00001,
3323 + .00001, .00003, .00003,
3324 + .04070, .01016, -.00302, .00011, .00001,
3325 + .00001, .00003, .00003,
3326 + .03913, .00975, -.00283, .00011, .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 + .26624, .07223, -.06010, .00070, .00000,
3330 + .00000, .00023, .00022,
3331 + .24949, .06734, -.05530, .00065, .00000,
3332 + .00000, .00024, .00019,
3333 + .22695, .06088, -.04874, .00058, -.00010,
3334 + .00000, .00021, .00015,
3335 + .21218, .05663, -.04471, .00054, -.00008,
3336 + .00000, .00020, .00014,
3337 + .19785, .05254, -.04083, .00048, -.00007,
3338 + .00000, .00020, .00014,
3339 + .18631, .04929, -.03769, .00046, -.00005,
3340 + .00000, .00016, .00013,
3341 + .17595, .04637, -.03490, .00043, -.00004,
3342 + .00000, .00017, .00011,
3343 + .16566, .04349, -.03215, .00039, -.00003,
3344 + .00000, .00017, .00011 /
3345 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
3346 + .15722, .04115, -.02992, .00037, -.00003,
3347 + .00000, .00017, .00010,
3348 + .14954, .03901, -.02789, .00035, -.00002,
3349 + .00000, .00015, .00010,
3350 + .14373, .03742, -.02638, .00034, -.00002,
3351 + .00000, .00013, .00010,
3352 + .13225, .03425, -.02340, .00030, -.00002,
3353 + .00000, .00010, .00010,
3354 + .12330, .03180, -.02120, .00027, -.00001,
3355 + -.00002, .00010, .00009,
3356 + .11410, .02931, -.01904, .00026, -.00001,
3357 + -.00002, .00010, .00008,
3358 + .10535, .02694, -.01702, .00025, .00000,
3359 + -.00001, .00010, .00007,
3360 + .09803, .02496, -.01534, .00020, .00000,
3361 + -.00001, .00008, .00007 /
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 + .09122, .02316, -.01384, .00019, .00000,
3364 + -.00001, .00008, .00005,
3365 + .08599, .02176, -.01272, .00019, .00000,
3366 + .00000, .00008, .00005,
3367 + .08009, .02019, -.01145, .00016, .00000,
3368 + .00000, .00007, .00006,
3369 + .07523, .01890, -.01042, .00015, .00000,
3370 + .00000, .00006, .00006,
3371 + .07105, .01780, -.00959, .00015, .00000,
3372 + .00000, .00006, .00006,
3373 + .06610, .01651, -.00862, .00015, .00000,
3374 + .00000, .00006, .00005,
3375 + .06181, .01539, -.00779, .00014, .00001,
3376 + .00001, .00005, .00005,
3377 + .05810, .01443, -.00709, .00012, .00001,
3378 + .00001, .00005, .00003 /
3379 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
3380 + .05463, .01352, -.00645, .00011, .00001,
3381 + .00001, .00005, .00003,
3382 + .05144, .01270, -.00588, .00010, .00001,
3383 + .00001, .00003, .00003,
3384 + .04861, .01197, -.00540, .00010, .00001,
3385 + .00001, .00003, .00003,
3386 + .04610, .01133, -.00498, .00009, .00001,
3387 + .00001, .00003, .00003,
3388 + .04373, .01072, -.00457, .00007, .00001,
3389 + .00001, .00003, .00002,
3390 + .04152, .01016, -.00422, .00007, .00001,
3391 + .00001, .00003, .00002,
3392 + .03953, .00965, -.00392, .00007, .00001,
3393 + .00001, .00003, .00003,
3394 + .03775, .00920, -.00363, .00006, .00001,
3395 + .00001, .00002, .00002 /
3396 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
3397 + .03603, .00876, -.00337, .00006, .00001,
3398 + .00001, .00002, .00002,
3399 + .03443, .00836, -.00314, .00006, .00001,
3400 + .00001, .00002, .00002,
3401 + .03298, .00799, -.00295, .00006, .00001,
3402 + .00001, .00002, .00002,
3403 + .03167, .00766, -.00275, .00005, .00001,
3404 + .00001, .00002, .00001,
3405 + .03038, .00733, -.00258, .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 + .19488, .04941, -.06170, .00030, .00000,
3409 + .00000, .00007, .00004,
3410 + .18095, .04569, -.05578, .00026, .00000,
3411 + .00000, .00007, .00004,
3412 + .16249, .04076, -.04816, .00023, -.00004,
3413 + .00000, .00006, .00006,
3414 + .15056, .03761, -.04348, .00021, -.00003,
3415 + .00000, .00006, .00006,
3416 + .13912, .03459, -.03898, .00017, -.00002,
3417 + .00000, .00004, .00004,
3418 + .13002, .03220, -.03555, .00017, -.00002,
3419 + .00000, .00005, .00005,
3420 + .12189, .03008, -.03250, .00015, -.00002,
3421 + .00000, .00005, .00005,
3422 + .11386, .02800, -.02957, .00015, -.00002,
3423 + .00000, .00005, .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 + .10735, .02632, -.02722, .00014, -.00001,
3426 + .00000, .00003, .00004,
3427 + .10147, .02482, -.02517, .00015, -.00001,
3428 + .00000, .00003, .00004,
3429 + .09706, .02369, -.02361, .00013, -.00001,
3430 + .00000, .00003, .00003,
3431 + .08842, .02147, -.02066, .00011, -.00001,
3432 + .00000, .00003, .00003,
3433 + .08175, .01977, -.01851, .00009, -.00001,
3434 + -.00001, .00003, .00003,
3435 + .07500, .01806, -.01637, .00008, -.00001,
3436 + -.00001, .00002, .00002,
3437 + .06860, .01645, -.01447, .00008, -.00001,
3438 + -.00001, .00003, .00003,
3439 + .06332, .01512, -.01292, .00007, .00000,
3440 + .00000, .00003, .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 + .05844, .01391, -.01150, .00004, .00000,
3443 + .00000, .00003, .00003,
3444 + .05471, .01298, -.01046, .00005, .00000,
3445 + .00000, .00002, .00003,
3446 + .05056, .01195, -.00935, .00005, .00000,
3447 + .00000, .00003, .00003,
3448 + .04715, .01112, -.00847, .00005, .00000,
3449 + .00000, .00003, .00003,
3450 + .04426, .01041, -.00772, .00005, .00000,
3451 + .00000, .00003, .00001,
3452 + .04088, .00959, -.00687, .00004, .00000,
3453 + .00000, .00003, .00001,
3454 + .03796, .00888, -.00616, .00004, .00000,
3455 + .00000, .00001, .00001,
3456 + .03543, .00826, -.00557, .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 + .03308, .00769, -.00504, .00004, .00000,
3460 + .00000, .00001, .00001,
3461 + .03097, .00717, -.00456, .00002, .00000,
3462 + .00000, .00001, .00001,
3463 + .02910, .00673, -.00416, .00002, .00000,
3464 + .00000, .00001, .00001,
3465 + .02745, .00634, -.00382, .00001, .00000,
3466 + .00000, .00001, .00001,
3467 + .02588, .00597, -.00349, .00002, .00000,
3468 + .00000, .00001, .00001,
3469 + .02445, .00562, -.00321, .00002, .00000,
3470 + .00000, .00001, .00001,
3471 + .02316, .00532, -.00296, .00002, .00000,
3472 + .00000, .00001, .00001,
3473 + .02200, .00504, -.00274, .00003, .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 + .02091, .00478, -.00255, .00003, .00000,
3477 + .00000, .00001, .00001,
3478 + .01988, .00454, -.00236, .00003, .00000,
3479 + .00000, .00001, .00001,
3480 + .01896, .00432, -.00219, .00001, .00000,
3481 + .00000, .00001, .00001,
3482 + .01813, .00412, -.00204, .00001, .00000,
3483 + .00000, .00001, .00001,
3484 + .01733, .00393, -.00191, .00001, .00000,
3485 + .00000, .00001, .00001 /
3486 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/
3487 + .13234, .03122, -.05217, .00009, .00000,
3488 + .00000, .00003, .00001,
3489 + .12174, .02861, -.04663, .00007, .00000,
3490 + .00000, .00001, .00003,
3491 + .10783, .02520, -.03960, .00007, -.00001,
3492 + .00000, .00001, .00001,
3493 + .09895, .02302, -.03530, .00007, -.00001,
3494 + .00000, .00001, .00001,
3495 + .09053, .02099, -.03134, .00007, -.00001,
3496 + .00000, .00001, .00001,
3497 + .08389, .01937, -.02826, .00006, -.00001,
3498 + .00000, .00001, .00001,
3499 + .07802, .01796, -.02562, .00006, -.00001,
3500 + .00000, .00001, .00001,
3501 + .07232, .01659, -.02309, .00006, -.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 + .06774, .01550, -.02110, .00004, .00000,
3505 + .00000, .00001, .00000,
3506 + .06362, .01450, -.01932, .00002, .00000,
3507 + .00000, .00001, .00000,
3508 + .06055, .01378, -.01807, .00002, .00000,
3509 + .00000, .00001, .00001,
3510 + .05453, .01236, -.01563, .00002, .00000,
3511 + .00000, .00001, .00001,
3512 + .04996, .01129, -.01387, .00002, .00000,
3513 + .00000, .00001, .00001,
3514 + .04537, .01021, -.01215, .00002, .00000,
3515 + .00000, .00001, .00001,
3516 + .04111, .00922, -.01057, .00001, .00000,
3517 + .00000, .00000, .00000,
3518 + .03760, .00841, -.00937, .00001, .00000,
3519 + .00000, .00000, .00000 /
3520 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
3521 + .03438, .00766, -.00827, .00003, .00000,
3522 + .00000, .00000, .00000,
3523 + .03195, .00709, -.00749, .00003, .00000,
3524 + .00000, .00001, .00000,
3525 + .02927, .00648, -.00662, .00003, .00000,
3526 + .00000, .00000, .00000,
3527 + .02709, .00598, -.00593, .00001, .00000,
3528 + .00000, .00000, .00000,
3529 + .02527, .00557, -.00538, .00001, .00000,
3530 + .00000, .00000, .00000,
3531 + .02315, .00508, -.00475, .00001, .00000,
3532 + .00000, .00000, .00000,
3533 + .02132, .00466, -.00422, .00001, .00000,
3534 + .00000, .00000, .00000,
3535 + .01976, .00431, -.00380, .00001, .00000,
3536 + .00000, .00000, .00000 /
3537 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
3538 + .01832, .00398, -.00341, .00001, .00000,
3539 + .00000, .00000, .00000,
3540 + .01701, .00370, -.00307, .00001, .00000,
3541 + .00000, .00000, .00000,
3542 + .01589, .00345, -.00278, .00001, .00000,
3543 + .00000, .00000, .00000,
3544 + .01490, .00322, -.00253, .00000, .00000,
3545 + .00000, .00000, .00000,
3546 + .01396, .00301, -.00231, .00001, .00000,
3547 + .00000, .00000, .00000,
3548 + .01311, .00282, -.00211, .00001, .00000,
3549 + .00000, .00000, .00000,
3550 + .01236, .00266, -.00194, .00001, .00000,
3551 + .00000, .00000, .00000,
3552 + .01169, .00251, -.00178, .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 + .01105, .00237, -.00164, .00000, .00000,
3556 + .00000, .00000, .00000,
3557 + .01046, .00224, -.00152, .00000, .00000,
3558 + .00000, .00000, .00000,
3559 + .00992, .00212, -.00141, .00000, .00000,
3560 + .00000, .00000, .00000,
3561 + .00945, .00201, -.00131, .00000, .00000,
3562 + .00000, .00000, .00000,
3563 + .00899, .00192, -.00121, .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 + .08157, .01780, -.03791, .00007, .00000,
3567 + .00000, .00000, .00000,
3568 + .07425, .01614, -.03354, .00007, .00000,
3569 + .00000, .00000, .00000,
3570 + .06478, .01401, -.02806, .00004, .00000,
3571 + .00000, .00000, .00000,
3572 + .05882, .01268, -.02475, .00004, .00000,
3573 + .00000, .00000, .00000,
3574 + .05325, .01143, -.02174, .00004, .00000,
3575 + .00000, .00000, .00000,
3576 + .04891, .01047, -.01943, .00002, .00000,
3577 + .00000, .00000, .00000,
3578 + .04510, .00963, -.01746, .00002, .00000,
3579 + .00000, .00000, .00000,
3580 + .04140, .00880, -.01560, .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 + .03847, .00817, -.01415, .00002, .00000,
3584 + .00000, .00000, .00000,
3585 + .03586, .00760, -.01288, .00002, .00000,
3586 + .00000, .00000, .00000,
3587 + .03392, .00718, -.01197, .00002, .00000,
3588 + .00000, .00000, .00000,
3589 + .03019, .00636, -.01024, .00002, .00000,
3590 + .00000, .00000, .00000,
3591 + .02737, .00575, -.00899, .00002, .00000,
3592 + .00000, .00000, .00000,
3593 + .02460, .00514, -.00780, .00002, .00000,
3594 + .00000, .00000, .00000,
3595 + .02202, .00458, -.00673, .00002, .00000,
3596 + .00000, .00000, .00000,
3597 + .01994, .00414, -.00589, .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 + .01807, .00374, -.00516, .00000, .00000,
3601 + .00000, .00000, .00000,
3602 + .01666, .00344, -.00462, .00000, .00000,
3603 + .00000, .00000, .00000,
3604 + .01511, .00310, -.00405, .00000, .00000,
3605 + .00000, .00000, .00000,
3606 + .01388, .00284, -.00360, .00000, .00000,
3607 + .00000, .00000, .00000,
3608 + .01284, .00263, -.00324, .00000, .00000,
3609 + .00000, .00000, .00000,
3610 + .01163, .00238, -.00285, .00000, .00000,
3611 + .00000, .00000, .00000,
3612 + .01062, .00217, -.00251, .00000, .00000,
3613 + .00000, .00000, .00000,
3614 + .00978, .00199, -.00223, .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 + .00899, .00183, -.00199, .00000, .00000,
3618 + .00000, .00000, .00000,
3619 + .00829, .00167, -.00178, .00000, .00000,
3620 + .00000, .00000, .00000,
3621 + .00768, .00155, -.00161, .00000, .00000,
3622 + .00000, .00000, .00000,
3623 + .00715, .00145, -.00145, .00000, .00000,
3624 + .00000, .00000, .00000,
3625 + .00666, .00134, -.00132, .00000, .00000,
3626 + .00000, .00000, .00000,
3627 + .00622, .00125, -.00120, .00000, .00000,
3628 + .00000, .00000, .00000,
3629 + .00582, .00117, -.00109, .00000, .00000,
3630 + .00000, .00000, .00000,
3631 + .00547, .00109, -.00100, .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 + .00514, .00103, -.00092, .00000, .00000,
3635 + .00000, .00000, .00000,
3636 + .00483, .00096, -.00084, .00000, .00000,
3637 + .00000, .00000, .00000,
3638 + .00457, .00091, -.00078, .00000, .00000,
3639 + .00000, .00000, .00000,
3640 + .00433, .00086, -.00072, .00000, .00000,
3641 + .00000, .00000, .00000,
3642 + .00409, .00081, -.00067, .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 + .04378, .00865, -.02316, -.00003, .00000,
3646 + .00000, .00000, .00000,
3647 + .03937, .00777, -.02031, .00000, .00000,
3648 + .00000, .00000, .00000,
3649 + .03376, .00661, -.01673, .00000, .00000,
3650 + .00000, .00000, .00000,
3651 + .03029, .00596, -.01465, .00000, .00000,
3652 + .00000, .00000, .00000,
3653 + .02707, .00529, -.01270, .00000, .00000,
3654 + .00000, .00000, .00000,
3655 + .02460, .00482, -.01127, .00000, .00000,
3656 + .00000, .00000, .00000,
3657 + .02245, .00437, -.01002, .00000, .00000,
3658 + .00000, .00000, .00000,
3659 + .02040, .00396, -.00888, .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 + .01879, .00366, -.00801, .00000, .00000,
3663 + .00000, .00000, .00000,
3664 + .01735, .00337, -.00722, .00000, .00000,
3665 + .00000, .00000, .00000,
3666 + .01631, .00316, -.00668, .00000, .00000,
3667 + .00000, .00000, .00000,
3668 + .01431, .00275, -.00563, .00000, .00000,
3669 + .00000, .00000, .00000,
3670 + .01282, .00247, -.00490, .00000, .00000,
3671 + .00000, .00000, .00000,
3672 + .01136, .00219, -.00420, .00000, .00000,
3673 + .00000, .00000, .00000,
3674 + .01005, .00192, -.00358, .00000, .00000,
3675 + .00000, .00000, .00000,
3676 + .00898, .00171, -.00309, .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 + .00804, .00152, -.00267, .00000, .00000,
3680 + .00000, .00000, .00000,
3681 + .00734, .00140, -.00238, .00000, .00000,
3682 + .00000, .00000, .00000,
3683 + .00658, .00125, -.00207, .00000, .00000,
3684 + .00000, .00000, .00000,
3685 + .00599, .00114, -.00182, .00000, .00000,
3686 + .00000, .00000, .00000,
3687 + .00549, .00103, -.00161, .00000, .00000,
3688 + .00000, .00000, .00000,
3689 + .00492, .00093, -.00141, .00000, .00000,
3690 + .00000, .00000, .00000,
3691 + .00444, .00083, -.00122, .00000, .00000,
3692 + .00000, .00000, .00000,
3693 + .00404, .00076, -.00107, .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 + .00368, .00069, -.00097, .00000, .00000,
3697 + .00000, .00000, .00000,
3698 + .00337, .00063, -.00085, .00000, .00000,
3699 + .00000, .00000, .00000,
3700 + .00309, .00058, -.00076, .00000, .00000,
3701 + .00000, .00000, .00000,
3702 + .00286, .00053, -.00068, .00000, .00000,
3703 + .00000, .00000, .00000,
3704 + .00264, .00049, -.00061, .00000, .00000,
3705 + .00000, .00000, .00000,
3706 + .00245, .00046, -.00055, .00000, .00000,
3707 + .00000, .00000, .00000,
3708 + .00227, .00043, -.00050, .00000, .00000,
3709 + .00000, .00000, .00000,
3710 + .00212, .00040, -.00046, .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 + .00198, .00037, -.00042, .00000, .00000,
3714 + .00000, .00000, .00000,
3715 + .00184, .00034, -.00038, .00000, .00000,
3716 + .00000, .00000, .00000,
3717 + .00174, .00032, -.00035, .00000, .00000,
3718 + .00000, .00000, .00000,
3719 + .00164, .00030, -.00032, .00000, .00000,
3720 + .00000, .00000, .00000,
3721 + .00154, .00028, -.00029, .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 + .00563, .00092, -.00383, .00000, .00000,
3725 + .00000, .00000, .00000,
3726 + .00488, .00079, -.00325, .00000, .00000,
3727 + .00000, .00000, .00000,
3728 + .00397, .00066, -.00257, .00000, .00000,
3729 + .00000, .00000, .00000,
3730 + .00345, .00055, -.00217, .00000, .00000,
3731 + .00000, .00000, .00000,
3732 + .00297, .00049, -.00183, .00000, .00000,
3733 + .00000, .00000, .00000,
3734 + .00261, .00041, -.00157, .00000, .00000,
3735 + .00000, .00000, .00000,
3736 + .00232, .00038, -.00137, .00000, .00000,
3737 + .00000, .00000, .00000,
3738 + .00203, .00033, -.00117, .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 + .00182, .00028, -.00102, .00000, .00000,
3742 + .00000, .00000, .00000,
3743 + .00165, .00026, -.00091, .00000, .00000,
3744 + .00000, .00000, .00000,
3745 + .00152, .00024, -.00082, .00000, .00000,
3746 + .00000, .00000, .00000,
3747 + .00127, .00021, -.00067, .00000, .00000,
3748 + .00000, .00000, .00000,
3749 + .00110, .00017, -.00056, .00000, .00000,
3750 + .00000, .00000, .00000,
3751 + .00094, .00015, -.00046, .00000, .00000,
3752 + .00000, .00000, .00000,
3753 + .00080, .00012, -.00038, .00000, .00000,
3754 + .00000, .00000, .00000,
3755 + .00070, .00010, -.00032, .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 + .00060, .00010, -.00028, .00000, .00000,
3759 + .00000, .00000, .00000,
3760 + .00053, .00008, -.00023, .00000, .00000,
3761 + .00000, .00000, .00000,
3762 + .00046, .00007, -.00019, .00000, .00000,
3763 + .00000, .00000, .00000,
3764 + .00040, .00006, -.00017, .00000, .00000,
3765 + .00000, .00000, .00000,
3766 + .00037, .00006, -.00015, .00000, .00000,
3767 + .00000, .00000, .00000,
3768 + .00032, .00005, -.00012, .00000, .00000,
3769 + .00000, .00000, .00000,
3770 + .00028, .00005, -.00011, .00000, .00000,
3771 + .00000, .00000, .00000,
3772 + .00025, .00005, -.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 + .00022, .00003, -.00008, .00000, .00000,
3776 + .00000, .00000, .00000,
3777 + .00020, .00003, -.00007, .00000, .00000,
3778 + .00000, .00000, .00000,
3779 + .00017, .00003, -.00006, .00000, .00000,
3780 + .00000, .00000, .00000,
3781 + .00015, .00003, -.00005, .00000, .00000,
3782 + .00000, .00000, .00000,
3783 + .00014, .00003, -.00005, .00000, .00000,
3784 + .00000, .00000, .00000,
3785 + .00012, .00001, -.00004, .00000, .00000,
3786 + .00000, .00000, .00000,
3787 + .00012, .00001, -.00004, .00000, .00000,
3788 + .00000, .00000, .00000,
3789 + .00011, .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 + .00009, .00001, -.00003, .00000, .00000,
3795 + .00000, .00000, .00000,
3796 + .00008, .00001, -.00002, .00000, .00000,
3797 + .00000, .00000, .00000,
3798 + .00008, .00001, -.00002, .00000, .00000,
3799 + .00000, .00000, .00000,
3800 + .00006, .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='cor04dis.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