2 subroutine sfmrs_98d5(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 + .00538, .00208, 1.18692, .82770, .00000,
12 + .00000, .44796, .83742,
13 + .00553, .00214, 2.48810, .87715, .00000,
14 + .00000, .50206, .88700,
15 + .00574, .00224, 5.07391, .97590, .02391,
16 + .00000, .60742, .98594,
17 + .00591, .00231, 7.59054, 1.06951, .12162,
18 + .00000, .70567, 1.07966,
19 + .00608, .00238, 10.89055, 1.18833, .23766,
20 + .00000, .82921, 1.19859,
21 + .00622, .00245, 14.30614, 1.30888, .35086,
22 + .00000, .95372, 1.31923,
23 + .00637, .00251, 18.13641, 1.44020, .47654,
24 + .00000, 1.08871, 1.45062,
25 + .00652, .00258, 22.84442, 1.59694, .62924,
26 + .00000, 1.24926, 1.60744 /
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 + .00666, .00264, 27.51741, 1.74827, .77940,
29 + .00000, 1.40382, 1.75882,
30 + .00679, .00270, 32.52043, 1.90887, .93745,
31 + .00000, 1.56746, 1.91946,
32 + .00689, .00276, 36.82547, 2.04641, 1.07191,
33 + .00000, 1.70738, 2.05705,
34 + .00711, .00286, 47.15055, 2.37090, 1.39353,
35 + .00000, 2.03680, 2.38160,
36 + .00731, .00295, 57.23297, 2.68639, 1.70765,
37 + .25923, 2.35643, 2.69713,
38 + .00754, .00306, 69.89858, 3.08074, 2.10045,
39 + .72654, 2.75529, 3.09153,
40 + .00777, .00317, 84.75495, 3.53995, 2.55840,
41 + 1.20596, 3.21906, 3.55078,
42 + .00800, .00328, 99.75118, 4.00124, 3.01900,
43 + 1.69036, 3.68435, 4.01208 /
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 + .00822, .00339, 116.37136, 4.51186, 3.52943,
46 + 2.22344, 4.19892, 4.52273,
47 + .00841, .00348, 131.28504, 4.97099, 3.98788,
48 + 2.69795, 4.66124, 4.98187,
49 + .00863, .00359, 150.69511, 5.57124, 4.58636,
50 + 3.31366, 5.26529, 5.58214,
51 + .00885, .00369, 169.15860, 6.14401, 5.15826,
52 + 3.90317, 5.84132, 6.15490,
53 + .00904, .00378, 187.25596, 6.70599, 5.72142,
54 + 4.48741, 6.40625, 6.71689,
55 + .00928, .00391, 211.50574, 7.46657, 6.48094,
56 + 5.26674, 7.17046, 7.47746,
57 + .00952, .00402, 235.70283, 8.23216, 7.24499,
58 + 6.04844, 7.93940, 8.24304,
59 + .00973, .00413, 259.74336, 8.99716, 8.00998,
60 + 6.83348, 8.70746, 9.00803 /
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 + .00996, .00424, 285.11374, 9.80957, 8.82352,
63 + 7.66947, 9.52286, 9.82042,
64 + .01017, .00436, 310.81589, 10.64419, 9.65629,
65 + 8.51779, 10.36035, 10.65502,
66 + .01039, .00447, 336.40709, 11.47919, 10.49184,
67 + 9.37305, 11.19801, 11.49000,
68 + .01059, .00457, 361.37973, 12.30217, 11.31467,
69 + 10.21288, 12.02348, 12.31298,
70 + .01079, .00467, 387.34310, 13.16539, 12.17774,
71 + 11.09327, 12.88913, 13.17618,
72 + .01100, .00478, 413.86263, 14.05329, 13.06634,
73 + 12.00050, 13.77938, 14.06405,
74 + .01119, .00487, 439.66459, 14.92723, 13.93981,
75 + 12.88946, 14.65553, 14.93796,
76 + .01138, .00497, 464.95543, 15.78863, 14.80198,
77 + 13.76858, 15.51899, 15.79935 /
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 + .01157, .00507, 490.97503, 16.68421, 15.69754,
80 + 14.67967, 16.41661, 16.69492,
81 + .01176, .00516, 517.40083, 17.60026, 16.61411,
82 + 15.61245, 17.33464, 17.61094,
83 + .01194, .00526, 543.21470, 18.50224, 17.51681,
84 + 16.53108, 18.23849, 18.51289,
85 + .01211, .00535, 568.09547, 19.38052, 18.39493,
86 + 17.42279, 19.11852, 19.39115,
87 + .01229, .00544, 594.17630, 20.30327, 19.31960,
88 + 18.36502, 20.04301, 20.31388 /
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 + .00746, .00298, 1.06298, .71034, .00000,
91 + .00000, .38395, .71612,
92 + .00767, .00307, 2.21197, .75410, .00000,
93 + .00000, .43143, .75995,
94 + .00796, .00321, 4.45154, .83903, .02099,
95 + .00000, .52162, .84498,
96 + .00820, .00332, 6.58911, .91780, .10296,
97 + .00000, .60410, .92382,
98 + .00843, .00343, 9.34762, 1.01640, .19892,
99 + .00000, .70644, 1.02248,
100 + .00864, .00352, 12.16107, 1.11526, .29128,
101 + .00000, .80842, 1.12138,
102 + .00884, .00361, 15.27718, 1.22195, .39282,
103 + .00000, .91803, 1.22812,
104 + .00905, .00371, 19.06189, 1.34825, .51505,
105 + .00000, 1.04734, 1.35446 /
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 + .00923, .00381, 22.77770, 1.46927, .63427,
108 + .00000, 1.17090, 1.47551,
109 + .00941, .00389, 26.71627, 1.59681, .75883,
110 + .00000, 1.30084, 1.60307,
111 + .00955, .00396, 30.07641, 1.70537, .86415,
112 + .00000, 1.41127, 1.71165,
113 + .00986, .00411, 38.04541, 1.95954, 1.11410,
114 + .00000, 1.66932, 1.96586,
115 + .01013, .00425, 45.71872, 2.20430, 1.35587,
116 + .19874, 1.91735, 2.21066,
117 + .01045, .00440, 55.22882, 2.50746, 1.65546,
118 + .55593, 2.22404, 2.51384,
119 + .01077, .00456, 66.23729, 2.85714, 2.00146,
120 + .91806, 2.57728, 2.86355,
121 + .01108, .00471, 77.21247, 3.20523, 2.34639,
122 + 1.28062, 2.92852, 3.21166 /
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 + .01138, .00486, 89.23834, 3.58736, 2.72556,
125 + 1.67622, 3.31375, 3.59382,
126 + .01164, .00499, 99.91991, 3.92838, 3.06360,
127 + 2.02562, 3.65726, 3.93484,
128 + .01195, .00515, 113.68324, 4.37092, 3.50169,
129 + 2.47559, 4.10276, 4.37738,
130 + .01223, .00529, 126.64787, 4.79007, 3.91734,
131 + 2.90331, 4.52448, 4.79655,
132 + .01249, .00542, 139.25001, 5.19873, 4.32418,
133 + 3.32467, 4.93542, 5.20522,
134 + .01282, .00560, 155.97671, 5.74785, 4.86898,
135 + 3.88256, 5.48738, 5.75434,
136 + .01314, .00575, 172.50496, 6.29649, 5.41306,
137 + 4.43803, 6.03863, 6.30298,
138 + .01345, .00591, 188.78603, 6.84105, 5.95434,
139 + 4.99236, 6.58558, 6.84754 /
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 + .01375, .00607, 205.82951, 7.41571, 6.52650,
142 + 5.57913, 7.16258, 7.42221,
143 + .01405, .00622, 222.94626, 8.00221, 7.10831,
144 + 6.17043, 7.75131, 8.00869,
145 + .01434, .00637, 239.86919, 8.58563, 7.68896,
146 + 6.76352, 8.33682, 8.59213,
147 + .01461, .00651, 256.26471, 9.15748, 8.25763,
148 + 7.34266, 8.91059, 9.16396,
149 + .01489, .00665, 273.19583, 9.75408, 8.85104,
150 + 7.94663, 9.50910, 9.76056,
151 + .01516, .00680, 290.38141, 10.36467, 9.45906,
152 + 8.56608, 10.12153, 10.37114,
153 + .01542, .00693, 306.99051, 10.96255, 10.05365,
154 + 9.16986, 10.72114, 10.96903,
155 + .01567, .00706, 323.18349, 11.54930, 10.63812,
156 + 9.76456, 11.30947, 11.55577 /
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 + .01593, .00720, 339.74313, 12.15648, 11.24243,
159 + 10.37798, 11.91825, 12.16294,
160 + .01618, .00733, 356.47244, 12.77487, 11.85836,
161 + 11.00347, 12.53820, 12.78133,
162 + .01642, .00746, 372.72830, 13.38122, 12.46251,
163 + 11.61698, 13.14600, 13.38768,
164 + .01665, .00759, 388.31303, 13.96919, 13.04776,
165 + 12.20999, 13.73535, 13.97564,
166 + .01690, .00771, 404.58673, 14.58486, 13.66215,
167 + 12.83483, 14.35237, 14.59129 /
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 + .01034, .00428, .95121, .60945, .00000,
170 + .00000, .32924, .61249,
171 + .01062, .00442, 1.96580, .64808, .00000,
172 + .00000, .37086, .65115,
173 + .01104, .00461, 3.90492, .72101, .01844,
174 + .00000, .44799, .72414,
175 + .01135, .00476, 5.71922, .78719, .08712,
176 + .00000, .51710, .79033,
177 + .01168, .00492, 8.02260, .86882, .16638,
178 + .00000, .60171, .87199,
179 + .01196, .00506, 10.33669, .94967, .24162,
180 + .00000, .68503, .95286,
181 + .01224, .00519, 12.86740, 1.03611, .32352,
182 + .00000, .77377, 1.03933,
183 + .01252, .00533, 15.90381, 1.13753, .42118,
184 + .00000, .87757, 1.14077 /
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 + .01278, .00547, 18.85181, 1.23398, .51568,
187 + .00000, .97602, 1.23722,
188 + .01303, .00558, 21.94462, 1.33487, .61367,
189 + .00000, 1.07880, 1.33813,
190 + .01322, .00568, 24.56007, 1.42023, .69598,
191 + .00000, 1.16562, 1.42350,
192 + .01365, .00589, 30.69231, 1.61853, .88985,
193 + .00000, 1.36697, 1.62183,
194 + .01403, .00608, 36.51314, 1.80763, 1.07554,
195 + .15164, 1.55863, 1.81095,
196 + .01446, .00630, 43.62650, 2.03968, 1.30352,
197 + .42442, 1.79344, 2.04300,
198 + .01491, .00653, 51.74974, 2.30475, 1.56431,
199 + .69769, 2.06129, 2.30809,
200 + .01532, .00675, 59.74598, 2.56622, 1.82199,
201 + .96877, 2.32522, 2.56958 /
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 + .01574, .00697, 68.40600, 2.85085, 2.10288,
204 + 1.26197, 2.61226, 2.85423,
205 + .01610, .00715, 76.01769, 3.10292, 2.35146,
206 + 1.51893, 2.86627, 3.10631,
207 + .01653, .00737, 85.72474, 3.42757, 2.67120,
208 + 1.84730, 3.19321, 3.43097,
209 + .01691, .00757, 94.77690, 3.73278, 2.97238,
210 + 2.15715, 3.50040, 3.73618,
211 + .01726, .00776, 103.50134, 4.02842, 3.26536,
212 + 2.46054, 3.79783, 4.03183,
213 + .01771, .00799, 114.96790, 4.42281, 3.65485,
214 + 2.85918, 4.19442, 4.42624,
215 + .01815, .00822, 126.18494, 4.81388, 4.04094,
216 + 3.25308, 4.58752, 4.81732,
217 + .01855, .00843, 137.13730, 5.19943, 4.42256,
218 + 3.64367, 4.97492, 5.20287 /
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 + .01897, .00865, 148.50742, 5.60368, 4.82346,
221 + 4.05457, 5.38098, 5.60713,
222 + .01937, .00886, 159.82326, 6.01349, 5.22835,
223 + 4.46567, 5.79252, 6.01696,
224 + .01976, .00908, 170.93020, 6.41882, 5.63024,
225 + 4.87588, 6.19947, 6.42229,
226 + .02012, .00927, 181.61082, 6.81385, 6.02162,
227 + 5.27414, 6.59598, 6.81732,
228 + .02050, .00946, 192.56348, 7.22375, 6.42787,
229 + 5.68727, 7.00736, 7.22724,
230 + .02087, .00966, 203.60877, 7.64112, 6.84208,
231 + 6.10893, 7.42615, 7.64462,
232 + .02122, .00985, 214.20908, 8.04766, 7.24500,
233 + 6.51768, 7.83402, 8.05116,
234 + .02156, .01003, 224.48675, 8.44484, 7.63939,
235 + 6.91864, 8.23244, 8.44835 /
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 + .02190, .01022, 234.93131, 8.85390, 8.04521,
238 + 7.33022, 8.64274, 8.85743,
239 + .02224, .01040, 245.42474, 9.26872, 8.45711,
240 + 7.74813, 9.05875, 9.27224,
241 + .02257, .01057, 255.56544, 9.67370, 8.85943,
242 + 8.15634, 9.46486, 9.67723,
243 + .02288, .01074, 265.23272, 10.06473, 9.24749,
244 + 8.54917, 9.85695, 10.06827,
245 + .02319, .01091, 275.28801, 10.47278, 9.65363,
246 + 8.96193, 10.26607, 10.47633 /
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 + .01251, .00528, .89067, .55717, .00000,
249 + .00000, .30105, .55909,
250 + .01284, .00544, 1.83413, .59304, .00000,
251 + .00000, .33953, .59498,
252 + .01333, .00569, 3.61632, .65968, .01712,
253 + .00000, .40988, .66164,
254 + .01371, .00587, 5.26421, .71936, .07901,
255 + .00000, .47213, .72135,
256 + .01412, .00608, 7.33598, .79236, .14981,
257 + .00000, .54772, .79435,
258 + .01445, .00625, 9.39870, .86411, .21647,
259 + .00000, .62164, .86612,
260 + .01479, .00641, 11.63744, .94039, .28861,
261 + .00000, .69992, .94241,
262 + .01514, .00659, 14.30398, 1.02943, .37417,
263 + .00000, .79104, 1.03147 /
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 + .01545, .00675, 16.87567, 1.11371, .45656,
266 + .00000, .87707, 1.11575,
267 + .01575, .00690, 19.55713, 1.20149, .54161,
268 + .00000, .96650, 1.20354,
269 + .01599, .00702, 21.81276, 1.27548, .61279,
270 + .00000, 1.04176, 1.27754,
271 + .01650, .00729, 27.06532, 1.44659, .77965,
272 + .00000, 1.21552, 1.44867,
273 + .01696, .00752, 32.00929, 1.60882, .93858,
274 + .12899, 1.37996, 1.61091,
275 + .01747, .00779, 37.99941, 1.80679, 1.13263,
276 + .36182, 1.58034, 1.80889,
277 + .01802, .00807, 44.78460, 2.03164, 1.35335,
278 + .59341, 1.80760, 2.03376,
279 + .01851, .00832, 51.41287, 2.25225, 1.57029,
280 + .82191, 2.03034, 2.25438 /
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 + .01902, .00859, 58.54117, 2.49120, 1.80563,
283 + 1.06781, 2.27135, 2.49334,
284 + .01944, .00881, 64.76718, 2.70185, 2.01295,
285 + 1.28229, 2.48369, 2.70401,
286 + .01996, .00909, 72.65797, 2.97195, 2.27844,
287 + 1.55513, 2.75578, 2.97412,
288 + .02041, .00933, 79.97202, 3.22476, 2.52745,
289 + 1.81147, 3.01030, 3.22694,
290 + .02084, .00956, 86.98538, 3.46872, 2.76880,
291 + 2.06156, 3.25580, 3.47092,
292 + .02138, .00984, 96.14840, 3.79275, 3.08826,
293 + 2.38867, 3.58173, 3.79496,
294 + .02190, .01013, 105.05767, 4.11262, 3.40353,
295 + 2.71043, 3.90333, 4.11485,
296 + .02240, .01038, 113.71070, 4.42670, 3.71395,
297 + 3.02826, 4.21902, 4.42895 /
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 + .02288, .01064, 122.64891, 4.75478, 4.03885,
300 + 3.36140, 4.54865, 4.75704,
301 + .02337, .01090, 131.49537, 5.08603, 4.36564,
302 + 3.69327, 4.88139, 5.08830,
303 + .02383, .01115, 140.14071, 5.41254, 4.68896,
304 + 4.02337, 5.20931, 5.41483,
305 + .02426, .01139, 148.41667, 5.72968, 5.00276,
306 + 4.34276, 5.52772, 5.73199,
307 + .02471, .01163, 156.86733, 6.05771, 5.32747,
308 + 4.67303, 5.85701, 6.06002,
309 + .02515, .01187, 165.35625, 6.39069, 5.65755,
310 + 5.00913, 6.19123, 6.39303,
311 + .02556, .01209, 173.46809, 6.71401, 5.97762,
312 + 5.33388, 6.51570, 6.71636,
313 + .02597, .01231, 181.30700, 7.02906, 6.29012,
314 + 5.65165, 6.83181, 7.03141 /
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 + .02638, .01253, 189.24244, 7.35261, 6.61075,
317 + 5.97687, 7.15641, 7.35498,
318 + .02678, .01276, 197.18841, 7.67983, 6.93537,
319 + 6.30628, 7.48469, 7.68222,
320 + .02717, .01296, 204.84146, 7.99850, 7.25163,
321 + 6.62723, 7.80432, 8.00090,
322 + .02753, .01316, 212.11195, 8.30540, 7.55591,
323 + 6.93527, 8.11213, 8.30781,
324 + .02791, .01337, 219.65704, 8.62503, 7.87378,
325 + 7.25840, 8.43268, 8.62746 /
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 + .01429, .00614, .84967, .52281, .00000,
328 + .00000, .28259, .52413,
329 + .01468, .00632, 1.74574, .55682, .00000,
330 + .00000, .31899, .55815,
331 + .01525, .00660, 3.42423, .61930, .01627,
332 + .00000, .38484, .62064,
333 + .01568, .00683, 4.96323, .67472, .07370,
334 + .00000, .44262, .67607,
335 + .01614, .00706, 6.88450, .74208, .13902,
336 + .00000, .51235, .74344,
337 + .01653, .00726, 8.78495, .80793, .20016,
338 + .00000, .58018, .80932,
339 + .01691, .00746, 10.83630, .87767, .26604,
340 + .00000, .65175, .87905,
341 + .01732, .00766, 13.26681, .95877, .34388,
342 + .00000, .73473, .96016 /
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 + .01768, .00783, 15.59963, 1.03527, .41858,
345 + .00000, .81282, 1.03667,
346 + .01801, .00802, 18.02119, 1.11471, .49545,
347 + .00000, .89375, 1.11611,
348 + .01829, .00816, 20.05045, 1.18148, .55962,
349 + .00000, .96168, 1.18290,
350 + .01887, .00847, 24.75259, 1.33542, .70953,
351 + .00000, 1.11801, 1.33684,
352 + .01940, .00873, 29.15214, 1.48074, .85174,
353 + .11476, 1.26535, 1.48218,
354 + .01998, .00904, 34.44911, 1.65739, 1.02470,
355 + .32275, 1.44417, 1.65885,
356 + .02060, .00936, 40.41401, 1.85719, 1.22063,
357 + .52860, 1.64617, 1.85867,
358 + .02117, .00967, 46.20884, 2.05249, 1.41246,
359 + .73090, 1.84338, 2.05398 /
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 + .02174, .00997, 52.40936, 2.26325, 1.61985,
362 + .94782, 2.05602, 2.26476,
363 + .02222, .01023, 57.80029, 2.44846, 1.80196,
364 + 1.13640, 2.24275, 2.44999,
365 + .02281, .01055, 64.60198, 2.68518, 2.03444,
366 + 1.37551, 2.48126, 2.68673,
367 + .02334, .01082, 70.87904, 2.90604, 2.25180,
368 + 1.59945, 2.70367, 2.90760,
369 + .02382, .01108, 76.87587, 3.11859, 2.46193,
370 + 1.81737, 2.91761, 3.12017,
371 + .02444, .01142, 84.67699, 3.40003, 2.73919,
372 + 2.10145, 3.20077, 3.40163,
373 + .02503, .01173, 92.22855, 3.67696, 3.01196,
374 + 2.38001, 3.47928, 3.67859,
375 + .02558, .01203, 99.53477, 3.94812, 3.27977,
376 + 2.65439, 3.75186, 3.94976 /
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 + .02614, .01233, 107.05441, 4.23057, 3.55935,
379 + 2.94123, 4.03573, 4.23223,
380 + .02669, .01262, 114.46685, 4.51493, 3.83970,
381 + 3.22608, 4.32144, 4.51661,
382 + .02721, .01291, 121.68796, 4.79454, 4.11645,
383 + 3.50879, 4.60230, 4.79624,
384 + .02771, .01319, 128.57762, 5.06547, 4.38439,
385 + 3.78164, 4.87438, 5.06719,
386 + .02820, .01345, 135.59095, 5.34505, 4.66100,
387 + 4.06313, 5.15510, 5.34679,
388 + .02871, .01373, 142.61583, 5.62823, 4.94161,
389 + 4.34899, 5.43939, 5.62999,
390 + .02918, .01399, 149.30764, 5.90258, 5.21307,
391 + 4.62454, 5.71477, 5.90435,
392 + .02963, .01423, 155.75879, 6.16939, 5.47763,
393 + 4.89370, 5.98254, 6.17118 /
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 + .03009, .01448, 162.27058, 6.44283, 5.74852,
396 + 5.16858, 6.25694, 6.44464,
397 + .03054, .01474, 168.77528, 6.71888, 6.02226,
398 + 5.44650, 6.53391, 6.72070,
399 + .03099, .01498, 175.02485, 6.98720, 6.28848,
400 + 5.71678, 6.80312, 6.98904,
401 + .03140, .01520, 180.94667, 7.24513, 6.54413,
402 + 5.97569, 7.06188, 7.24700,
403 + .03182, .01544, 187.08216, 7.51339, 6.81086,
404 + 6.24696, 7.33095, 7.51528 /
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 + .01588, .00689, .81893, .49765, .00000,
407 + .00000, .26910, .49858,
408 + .01629, .00710, 1.67995, .53026, .00000,
409 + .00000, .30395, .53119,
410 + .01693, .00743, 3.28215, .58965, .01564,
411 + .00000, .36648, .59059,
412 + .01741, .00767, 4.74166, .64195, .06984,
413 + .00000, .42098, .64290,
414 + .01791, .00793, 6.55361, .70521, .13117,
415 + .00000, .48646, .70618,
416 + .01835, .00816, 8.33678, .76681, .18831,
417 + .00000, .54989, .76778,
418 + .01877, .00837, 10.25324, .83181, .24968,
419 + .00000, .61660, .83280,
420 + .01922, .00860, 12.51457, .90719, .32199,
421 + .00000, .69373, .90818 /
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 + .01961, .00881, 14.67680, .97811, .39119,
424 + .00000, .76614, .97911,
425 + .02000, .00900, 16.91345, 1.05157, .46223,
426 + .00000, .84098, 1.05258,
427 + .02030, .00916, 18.78211, 1.11319, .52141,
428 + .00000, .90369, 1.11421,
429 + .02095, .00950, 23.09543, 1.25489, .65930,
430 + .00000, 1.04761, 1.25593,
431 + .02152, .00981, 27.11275, 1.38823, .78969,
432 + .10465, 1.18283, 1.38928,
433 + .02218, .01015, 31.92561, 1.54980, .94780,
434 + .29516, 1.34643, 1.55088,
435 + .02286, .01051, 37.32018, 1.73198, 1.12635,
436 + .48296, 1.53065, 1.73308,
437 + .02349, .01086, 42.53818, 1.90951, 1.30065,
438 + .66699, 1.70995, 1.91062 /
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 + .02412, .01120, 48.09913, 2.10057, 1.48856,
441 + .86374, 1.90275, 2.10170,
442 + .02466, .01148, 52.91660, 2.26804, 1.65316,
443 + 1.03434, 2.07163, 2.26919,
444 + .02531, .01182, 58.97317, 2.48153, 1.86276,
445 + 1.25009, 2.28681, 2.48272,
446 + .02589, .01214, 64.54327, 2.68025, 2.05824,
447 + 1.45167, 2.48695, 2.68145,
448 + .02642, .01243, 69.84927, 2.87108, 2.24685,
449 + 1.64742, 2.67907, 2.87230,
450 + .02711, .01280, 76.72796, 3.12315, 2.49510,
451 + 1.90198, 2.93273, 3.12440,
452 + .02775, .01315, 83.36342, 3.37055, 2.73871,
453 + 2.15093, 3.18159, 3.37182,
454 + .02836, .01349, 89.76383, 3.61225, 2.97737,
455 + 2.39562, 3.42462, 3.61354 /
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 + .02897, .01381, 96.33229, 3.86348, 3.22600,
458 + 2.65088, 3.67716, 3.86479,
459 + .02958, .01415, 102.78612, 4.11584, 3.47475,
460 + 2.90377, 3.93077, 4.11719,
461 + .03016, .01446, 109.05774, 4.36352, 3.71984,
462 + 3.15431, 4.17961, 4.36488,
463 + .03070, .01477, 115.02584, 4.60303, 3.95669,
464 + 3.39563, 4.42018, 4.60442,
465 + .03126, .01507, 121.08596, 4.84975, 4.20076,
466 + 3.64415, 4.66796, 4.85115,
467 + .03180, .01537, 127.14237, 5.09922, 4.44795,
468 + 3.89612, 4.91845, 5.10065,
469 + .03232, .01565, 132.89711, 5.34047, 4.68663,
470 + 4.13853, 5.16066, 5.34193,
471 + .03282, .01593, 138.43430, 5.57474, 4.91892,
472 + 4.37499, 5.39584, 5.57623 /
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 + .03332, .01620, 144.01092, 5.81446, 5.15637,
475 + 4.61607, 5.63643, 5.81596,
476 + .03383, .01648, 149.57049, 6.05609, 5.39598,
477 + 4.85947, 5.87893, 6.05762,
478 + .03430, .01674, 154.90168, 6.29063, 5.62868,
479 + 5.09585, 6.11428, 6.29218,
480 + .03477, .01700, 159.94277, 6.51575, 5.85181,
481 + 5.32194, 6.34016, 6.51732,
482 + .03523, .01726, 165.15911, 6.74963, 6.08437,
483 + 5.55860, 6.57481, 6.75122 /
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 + .02200, .00995, .72870, .42699, .00000,
486 + .00000, .23150, .42732,
487 + .02258, .01024, 1.48976, .45549, .00000,
488 + .00000, .26184, .45582,
489 + .02345, .01069, 2.87625, .50602, .01391,
490 + .00000, .31495, .50639,
491 + .02412, .01104, 4.11304, .54953, .05901,
492 + .00000, .36026, .54991,
493 + .02481, .01140, 5.62151, .60135, .10928,
494 + .00000, .41389, .60175,
495 + .02541, .01173, 7.08181, .65114, .15545,
496 + .00000, .46518, .65155,
497 + .02599, .01204, 8.62978, .70315, .20454,
498 + .00000, .51857, .70359,
499 + .02660, .01236, 10.43225, .76290, .26183,
500 + .00000, .57975, .76336 /
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 + .02714, .01265, 12.13498, .81868, .31621,
503 + .00000, .63671, .81914,
504 + .02767, .01294, 13.87664, .87599, .37161,
505 + .00000, .69518, .87648,
506 + .02808, .01316, 15.31778, .92377, .41746,
507 + .00000, .74382, .92427,
508 + .02897, .01363, 18.60323, 1.03273, .52346,
509 + .00000, .85459, 1.03327,
510 + .02976, .01407, 21.61941, 1.13424, .62270,
511 + .07761, .95760, 1.13480,
512 + .03066, .01455, 25.17332, 1.25603, .74189,
513 + .22228, 1.08103, 1.25664,
514 + .03159, .01507, 29.09796, 1.39201, .87516,
515 + .36313, 1.21864, 1.39264,
516 + .03245, .01554, 32.84139, 1.52324, 1.00406,
517 + .49987, 1.35132, 1.52392 /
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 + .03332, .01602, 36.77986, 1.66325, 1.14182,
520 + .64474, 1.49273, 1.66397,
521 + .03404, .01642, 40.15236, 1.78500, 1.26154,
522 + .76933, 1.61562, 1.78576,
523 + .03493, .01691, 44.34394, 1.93900, 1.41280,
524 + .92564, 1.77095, 1.93980,
525 + .03572, .01734, 48.15611, 2.08122, 1.55281,
526 + 1.07056, 1.91432, 2.08206,
527 + .03644, .01775, 51.75371, 2.21689, 1.68701,
528 + 1.21039, 2.05102, 2.21776,
529 + .03736, .01826, 56.36609, 2.39473, 1.86228,
530 + 1.39074, 2.23014, 2.39564,
531 + .03824, .01875, 60.76509, 2.56788, 2.03291,
532 + 1.56570, 2.40445, 2.56884,
533 + .03906, .01921, 64.96688, 2.73584, 2.19891,
534 + 1.73648, 2.57348, 2.73684 /
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 + .03990, .01967, 69.23915, 2.90926, 2.37072,
537 + 1.91348, 2.74795, 2.91031,
538 + .04071, .02012, 73.39247, 3.08220, 2.54133,
539 + 2.08746, 2.92188, 3.08329,
540 + .04148, .02056, 77.39640, 3.25090, 2.70846,
541 + 2.25886, 3.09152, 3.25204,
542 + .04221, .02097, 81.17374, 3.41306, 2.86898,
543 + 2.42293, 3.25454, 3.41423,
544 + .04296, .02138, 84.97857, 3.57913, 3.03344,
545 + 2.59090, 3.42146, 3.58035,
546 + .04369, .02179, 88.75323, 3.74615, 3.19913,
547 + 2.76032, 3.58929, 3.74741,
548 + .04439, .02218, 92.31007, 3.90673, 3.35818,
549 + 2.92233, 3.75063, 3.90802,
550 + .04505, .02256, 95.71135, 4.06194, 3.51228,
551 + 3.07967, 3.90656, 4.06328 /
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 + .04572, .02293, 99.11091, 4.21993, 3.66897,
554 + 3.23922, 4.06525, 4.22129,
555 + .04639, .02331, 102.47873, 4.37844, 3.82635,
556 + 3.39955, 4.22446, 4.37984,
557 + .04703, .02367, 105.68745, 4.53158, 3.97850,
558 + 3.55456, 4.37824, 4.53303,
559 + .04764, .02401, 108.70053, 4.67788, 4.12368,
560 + 3.70208, 4.52516, 4.67937,
561 + .04826, .02436, 111.80609, 4.82935, 4.27454,
562 + 3.85607, 4.67724, 4.83086 /
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 + .03065, .01442, .64532, .36674, .00000,
565 + .00000, .19982, .36726,
566 + .03143, .01482, 1.31905, .39142, .00000,
567 + .00000, .22606, .39197,
568 + .03260, .01545, 2.51862, .43402, .01248,
569 + .00000, .27085, .43462,
570 + .03348, .01593, 3.56532, .46988, .04976,
571 + .00000, .30821, .47052,
572 + .03443, .01645, 4.81810, .51192, .09065,
573 + .00000, .35177, .51261,
574 + .03524, .01688, 6.00980, .55177, .12767,
575 + .00000, .39288, .55249,
576 + .03603, .01731, 7.25465, .59296, .16663,
577 + .00000, .43524, .59374,
578 + .03687, .01778, 8.68389, .63986, .21166,
579 + .00000, .48333, .64068 /
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 + .03759, .01819, 10.01678, .68325, .25407,
582 + .00000, .52774, .68411,
583 + .03831, .01858, 11.36394, .72752, .29693,
584 + .00000, .57295, .72841,
585 + .03887, .01889, 12.46723, .76417, .33217,
586 + .00000, .61032, .76509,
587 + .04008, .01957, 14.94949, .84708, .41303,
588 + .00000, .69475, .84807,
589 + .04117, .02018, 17.19575, .92351, .48795,
590 + .05595, .77244, .92455,
591 + .04238, .02086, 19.79300, 1.01432, .57708,
592 + .16512, .86463, 1.01545,
593 + .04365, .02158, 22.61604, 1.11467, .67572,
594 + .27007, .96634, 1.11586,
595 + .04482, .02223, 25.26866, 1.21058, .77022,
596 + .37097, 1.06346, 1.21184 /
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 + .04599, .02290, 28.02128, 1.31199, .87034,
599 + .47692, 1.16605, 1.31333,
600 + .04697, .02346, 30.34903, 1.39947, .95663,
601 + .56726, 1.25448, 1.40086,
602 + .04817, .02414, 33.20649, 1.50921, 1.06478,
603 + .67966, 1.36534, 1.51068,
604 + .04924, .02475, 35.77428, 1.60975, 1.16408,
605 + .78305, 1.46684, 1.61128,
606 + .05021, .02530, 38.17339, 1.70500, 1.25864,
607 + .88216, 1.56295, 1.70659,
608 + .05146, .02602, 41.21204, 1.82885, 1.38111,
609 + 1.00888, 1.68789, 1.83054,
610 + .05264, .02668, 44.07444, 1.94846, 1.49937,
611 + 1.13079, 1.80847, 1.95022,
612 + .05375, .02732, 46.77959, 2.06363, 1.61359,
613 + 1.24895, 1.92453, 2.06546 /
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 + .05486, .02795, 49.50254, 2.18171, 1.73099,
616 + 1.37056, 2.04350, 2.18361,
617 + .05596, .02857, 52.11849, 2.29856, 1.84664,
618 + 1.48911, 2.16118, 2.30053,
619 + .05700, .02917, 54.61862, 2.41184, 1.95928,
620 + 1.60523, 2.27525, 2.41389,
621 + .05797, .02972, 56.95475, 2.52004, 2.06674,
622 + 1.71564, 2.38416, 2.52214,
623 + .05896, .03029, 59.28685, 2.63016, 2.17619,
624 + 1.82800, 2.49499, 2.63233,
625 + .05994, .03085, 61.58199, 2.74028, 2.28583,
626 + 1.94069, 2.60581, 2.74252,
627 + .06087, .03138, 63.72411, 2.84552, 2.39042,
628 + 2.04776, 2.71170, 2.84782,
629 + .06175, .03188, 65.75888, 2.94674, 2.49128,
630 + 2.15127, 2.81352, 2.94910 /
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 + .06264, .03239, 67.77503, 3.04920, 2.59326,
633 + 2.25563, 2.91657, 3.05162,
634 + .06352, .03290, 69.75841, 3.15148, 2.69519,
635 + 2.35999, 3.01945, 3.15397,
636 + .06437, .03338, 71.63428, 3.24982, 2.79325,
637 + 2.46040, 3.11834, 3.25236,
638 + .06518, .03384, 73.38180, 3.34329, 2.88634,
639 + 2.55545, 3.21232, 3.34589,
640 + .06599, .03431, 75.17548, 3.43973, 2.98275,
641 + 2.65436, 3.30927, 3.44238 /
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 + .03724, .01792, .59982, .33583, .00000,
644 + .00000, .18376, .33677,
645 + .03816, .01840, 1.22787, .35839, .00000,
646 + .00000, .20773, .35936,
647 + .03954, .01916, 2.32971, .39669, .01178,
648 + .00000, .24805, .39778,
649 + .04059, .01974, 3.27809, .42852, .04494,
650 + .00000, .28126, .42964,
651 + .04172, .02037, 4.39975, .46549, .08100,
652 + .00000, .31962, .46669,
653 + .04268, .02090, 5.45507, .50024, .11334,
654 + .00000, .35553, .50151,
655 + .04362, .02144, 6.54735, .53597, .14719,
656 + .00000, .39233, .53729,
657 + .04462, .02200, 7.79043, .57640, .18612,
658 + .00000, .43386, .57778 /
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 + .04550, .02249, 8.94042, .61363, .22258,
661 + .00000, .47201, .61507,
662 + .04635, .02297, 10.09405, .65143, .25927,
663 + .00000, .51069, .65292,
664 + .04701, .02335, 11.03277, .68261, .28933,
665 + .00000, .54253, .68415,
666 + .04847, .02418, 13.12740, .75280, .35795,
667 + .00000, .61412, .75444,
668 + .04976, .02491, 15.00697, .81710, .42116,
669 + .04531, .67959, .81882,
670 + .05121, .02575, 17.15329, .89307, .49592,
671 + .13747, .75681, .89488,
672 + .05273, .02661, 19.46305, .97647, .57817,
673 + .22539, .84148, .97839,
674 + .05412, .02741, 21.61294, 1.05575, .65651,
675 + .30943, .92186, 1.05776 /
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 + .05553, .02822, 23.82456, 1.13910, .73906,
678 + .39718, 1.00631, 1.14122,
679 + .05669, .02890, 25.68002, 1.21065, .80985,
680 + .47163, 1.07874, 1.21284,
681 + .05812, .02972, 27.93986, 1.29997, .89814,
682 + .56379, 1.16908, 1.30225,
683 + .05938, .03045, 29.95517, 1.38139, .97881,
684 + .64815, 1.25141, 1.38376,
685 + .06056, .03112, 31.82619, 1.45821, 1.05532,
686 + .72870, 1.32903, 1.46067,
687 + .06204, .03197, 34.17750, 1.55762, 1.15394,
688 + .83117, 1.42942, 1.56019,
689 + .06343, .03278, 36.37486, 1.65311, 1.24865,
690 + .92922, 1.52584, 1.65578,
691 + .06475, .03354, 38.43743, 1.74466, 1.33974,
692 + 1.02384, 1.61821, 1.74742 /
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 + .06606, .03430, 40.50021, 1.83812, 1.43296,
695 + 1.12081, 1.71249, 1.84097,
696 + .06735, .03504, 42.46646, 1.93016, 1.52434,
697 + 1.21486, 1.80532, 1.93311,
698 + .06858, .03575, 44.33530, 2.01906, 1.61301,
699 + 1.30666, 1.89495, 2.02210,
700 + .06974, .03642, 46.07064, 2.10362, 1.69726,
701 + 1.39357, 1.98017, 2.10674,
702 + .07090, .03710, 47.79278, 2.18935, 1.78276,
703 + 1.48170, 2.06658, 2.19257,
704 + .07206, .03775, 49.47876, 2.27480, 1.86811,
705 + 1.56978, 2.15268, 2.27810,
706 + .07315, .03839, 51.04236, 2.35614, 1.94920,
707 + 1.65313, 2.23461, 2.35952,
708 + .07419, .03898, 52.52111, 2.43413, 2.02717,
709 + 1.73347, 2.31318, 2.43759 /
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 + .07524, .03959, 53.97780, 2.51280, 2.10572,
712 + 1.81418, 2.39240, 2.51633,
713 + .07628, .04018, 55.40417, 2.59111, 2.18401,
714 + 1.89466, 2.47126, 2.59472,
715 + .07727, .04075, 56.74665, 2.66616, 2.25909,
716 + 1.97185, 2.54682, 2.66983,
717 + .07821, .04130, 57.99034, 2.73726, 2.33014,
718 + 2.04469, 2.61841, 2.74101,
719 + .07916, .04185, 59.26380, 2.81046, 2.40358,
720 + 2.12034, 2.69209, 2.81428 /
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 + .04275, .02087, .56994, .31551, .00000,
723 + .00000, .17336, .31697,
724 + .04378, .02144, 1.16776, .33659, .00000,
725 + .00000, .19579, .33813,
726 + .04534, .02230, 2.20471, .37205, .01131,
727 + .00000, .23312, .37366,
728 + .04653, .02297, 3.08797, .40120, .04176,
729 + .00000, .26358, .40290,
730 + .04779, .02369, 4.12333, .43486, .07464,
731 + .00000, .29856, .43663,
732 + .04890, .02431, 5.08942, .46633, .10395,
733 + .00000, .33111, .46817,
734 + .04996, .02491, 6.08248, .49852, .13449,
735 + .00000, .36432, .50044,
736 + .05108, .02557, 7.20520, .53482, .16948,
737 + .00000, .40165, .53680 /
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 + .05208, .02613, 8.23762, .56812, .20214,
740 + .00000, .43584, .57017,
741 + .05304, .02669, 9.26749, .60182, .23491,
742 + .00000, .47036, .60394,
743 + .05381, .02713, 10.10144, .62954, .26167,
744 + .00000, .49872, .63170,
745 + .05545, .02808, 11.95096, .69172, .32257,
746 + .00000, .56221, .69401,
747 + .05691, .02892, 13.60009, .74843, .37842,
748 + .03868, .62002, .75080,
749 + .05856, .02988, 15.46542, .81512, .44420,
750 + .12018, .68793, .81763,
751 + .06029, .03089, 17.45785, .88803, .51626,
752 + .19749, .76203, .89065,
753 + .06186, .03179, 19.29920, .95702, .58459,
754 + .27107, .83207, .95975 /
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 + .06345, .03273, 21.18102, 1.02927, .65631,
757 + .34759, .90536, 1.03213,
758 + .06478, .03349, 22.75034, 1.09106, .71761,
759 + .41228, .96799, 1.09401,
760 + .06639, .03444, 24.65029, 1.16792, .79375,
761 + .49205, 1.04583, 1.17098,
762 + .06781, .03526, 26.33486, 1.23772, .86308,
763 + .56481, 1.11648, 1.24089,
764 + .06913, .03603, 27.89136, 1.30337, .92863,
765 + .63406, 1.18291, 1.30665,
766 + .07081, .03701, 29.83568, 1.38802, 1.01281,
767 + .72182, 1.26850, 1.39142,
768 + .07238, .03792, 31.64164, 1.46903, 1.09335,
769 + .80549, 1.35038, 1.47254,
770 + .07386, .03877, 33.32804, 1.54642, 1.17055,
771 + .88597, 1.42857, 1.55005 /
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 + .07534, .03965, 35.00631, 1.62518, 1.24932,
774 + .96819, 1.50812, 1.62891,
775 + .07680, .04048, 36.59628, 1.70247, 1.32624,
776 + 1.04762, 1.58614, 1.70631,
777 + .07818, .04128, 38.10115, 1.77690, 1.40067,
778 + 1.12494, 1.66127, 1.78084,
779 + .07948, .04204, 39.49164, 1.84747, 1.47120,
780 + 1.19794, 1.73250, 1.85152,
781 + .08078, .04279, 40.86524, 1.91885, 1.54254,
782 + 1.27173, 1.80451, 1.92299,
783 + .08208, .04355, 42.20453, 1.98978, 1.61359,
784 + 1.34531, 1.87606, 1.99403,
785 + .08331, .04426, 43.44034, 2.05710, 1.68090,
786 + 1.41472, 1.94397, 2.06144,
787 + .08447, .04493, 44.60519, 2.12152, 1.74546,
788 + 1.48148, 2.00893, 2.12594 /
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 + .08564, .04560, 45.74729, 2.18631, 1.81034,
791 + 1.54837, 2.07426, 2.19082,
792 + .08680, .04627, 46.86152, 2.25066, 1.87485,
793 + 1.61492, 2.13913, 2.25526,
794 + .08790, .04691, 47.90618, 2.31217, 1.93659,
795 + 1.67860, 2.20115, 2.31686,
796 + .08896, .04751, 48.86966, 2.37032, 1.99485,
797 + 1.73853, 2.25977, 2.37509,
798 + .09003, .04813, 49.85437, 2.43009, 2.05500,
799 + 1.80071, 2.32001, 2.43495 /
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 + .04762, .02359, .54876, .30105, .00000,
802 + .00000, .16572, .30263,
803 + .04874, .02421, 1.12465, .32100, .00000,
804 + .00000, .18693, .32265,
805 + .05045, .02517, 2.11349, .35425, .01097,
806 + .00000, .22195, .35601,
807 + .05177, .02593, 2.94837, .38140, .03936,
808 + .00000, .25032, .38325,
809 + .05316, .02673, 3.91949, .41258, .06988,
810 + .00000, .28273, .41453,
811 + .05437, .02742, 4.81932, .44160, .09694,
812 + .00000, .31278, .44364,
813 + .05554, .02809, 5.73894, .47120, .12504,
814 + .00000, .34333, .47331,
815 + .05679, .02881, 6.77284, .50445, .15714,
816 + .00000, .37756, .50666 /
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 + .05789, .02945, 7.71876, .53489, .18703,
819 + .00000, .40882, .53717,
820 + .05896, .03008, 8.65794, .56561, .21692,
821 + .00000, .44031, .56796,
822 + .05980, .03056, 9.41537, .59081, .24130,
823 + .00000, .46611, .59322,
824 + .06161, .03162, 11.08647, .64719, .29660,
825 + .00000, .52374, .64974,
826 + .06323, .03256, 12.56894, .69843, .34713,
827 + .03405, .57602, .70109,
828 + .06505, .03362, 14.23254, .75846, .40645,
829 + .10783, .63719, .76126,
830 + .06694, .03473, 15.99821, .82386, .47118,
831 + .17749, .70372, .82679,
832 + .06868, .03575, 17.62031, .88552, .53236,
833 + .24356, .76638, .88858 /
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 + .07043, .03677, 19.26897, .94988, .59637,
836 + .31206, .83172, .95308,
837 + .07189, .03762, 20.63689, 1.00475, .65090,
838 + .36977, .88739, 1.00806,
839 + .07365, .03866, 22.28449, 1.07279, .71843,
840 + .44072, .95638, 1.07624,
841 + .07523, .03958, 23.73831, 1.13441, .77975,
842 + .50525, 1.01880, 1.13798,
843 + .07668, .04042, 25.07627, 1.19221, .83758,
844 + .56652, 1.07734, 1.19590,
845 + .07850, .04149, 26.73894, 1.26651, .91160,
846 + .64392, 1.15253, 1.27034,
847 + .08023, .04249, 28.27512, 1.33738, .98220,
848 + .71746, 1.22423, 1.34134,
849 + .08185, .04344, 29.70340, 1.40490, 1.04970,
850 + .78802, 1.29252, 1.40899 /
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 + .08347, .04438, 31.11900, 1.47343, 1.11837,
853 + .85991, 1.36179, 1.47764,
854 + .08506, .04530, 32.45275, 1.54047, 1.18524,
855 + .92915, 1.42955, 1.54480,
856 + .08656, .04618, 33.71062, 1.60488, 1.24979,
857 + .99639, 1.49462, 1.60933,
858 + .08798, .04700, 34.86806, 1.66581, 1.31079,
859 + 1.05972, 1.55617, 1.67037,
860 + .08941, .04783, 36.00673, 1.72727, 1.37237,
861 + 1.12358, 1.61824, 1.73195,
862 + .09081, .04864, 37.11299, 1.78821, 1.43355,
863 + 1.18712, 1.67977, 1.79300,
864 + .09214, .04941, 38.12938, 1.84590, 1.49137,
865 + 1.24691, 1.73802, 1.85080,
866 + .09340, .05014, 39.08473, 1.90101, 1.54674,
867 + 1.30433, 1.79365, 1.90600 /
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 + .09467, .05088, 40.01741, 1.95631, 1.60225,
870 + 1.36172, 1.84947, 1.96140,
871 + .09593, .05160, 40.92440, 2.01113, 1.65734,
872 + 1.41871, 1.90480, 2.01633,
873 + .09714, .05229, 41.77185, 2.06344, 1.70995,
874 + 1.47314, 1.95758, 2.06873,
875 + .09827, .05295, 42.55028, 2.11277, 1.75951,
876 + 1.52426, 2.00736, 2.11815,
877 + .09942, .05362, 43.34467, 2.16342, 1.81060,
878 + 1.57724, 2.05846, 2.16888 /
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 + .06666, .03454, .48556, .26112, .00000,
881 + .00000, .14519, .26387,
882 + .06813, .03539, .99991, .27756, .00000,
883 + .00000, .16269, .28041,
884 + .07043, .03674, 1.85255, .30428, .01004,
885 + .00000, .19091, .30730,
886 + .07220, .03779, 2.55101, .32562, .03262,
887 + .00000, .21331, .32878,
888 + .07408, .03890, 3.34261, .34978, .05649,
889 + .00000, .23852, .35307,
890 + .07571, .03988, 4.05886, .37197, .07733,
891 + .00000, .26160, .37540,
892 + .07730, .04081, 4.77658, .39438, .09878,
893 + .00000, .28482, .39793,
894 + .07899, .04182, 5.56851, .41933, .12304,
895 + .00000, .31061, .42301 /
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 + .08048, .04272, 6.28077, .44196, .14545,
898 + .00000, .33396, .44576,
899 + .08192, .04357, 6.97675, .46462, .16768,
900 + .00000, .35729, .46853,
901 + .08307, .04426, 7.53038, .48308, .18566,
902 + .00000, .37627, .48708,
903 + .08552, .04571, 8.73069, .52403, .22614,
904 + .00000, .41830, .52823,
905 + .08770, .04701, 9.77768, .56078, .26271,
906 + .02174, .45597, .56517,
907 + .09015, .04846, 10.91961, .60339, .30516,
908 + .07530, .49957, .60797,
909 + .09270, .04997, 12.10582, .64923, .35095,
910 + .12513, .54641, .65403,
911 + .09501, .05135, 13.17339, .69197, .39373,
912 + .17185, .59004, .69696 /
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 + .09736, .05273, 14.23796, .73610, .43801,
915 + .21977, .63504, .74127,
916 + .09930, .05387, 15.10588, .77334, .47536,
917 + .25973, .67298, .77867,
918 + .10164, .05526, 16.13292, .81906, .52117,
919 + .30838, .71953, .82459,
920 + .10372, .05648, 17.02379, .86004, .56233,
921 + .35218, .76124, .86575,
922 + .10563, .05760, 17.83221, .89817, .60084,
923 + .39344, .80002, .90404,
924 + .10804, .05901, 18.81860, .94667, .64964,
925 + .44503, .84933, .95273,
926 + .11030, .06033, 19.71309, .99244, .69568,
927 + .49352, .89584, .99870,
928 + .11241, .06157, 20.53176, 1.03563, .73930,
929 + .53962, .93972, 1.04207 /
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 + .11453, .06279, 21.33106, 1.07909, .78329,
932 + .58620, .98385, 1.08570,
933 + .11659, .06399, 22.06934, 1.12114, .82567,
934 + .63058, 1.02655, 1.12793,
935 + .11853, .06511, 22.75677, 1.16124, .86629,
936 + .67338, 1.06725, 1.16819,
937 + .12036, .06617, 23.37929, 1.19884, .90434,
938 + .71333, 1.10541, 1.20594,
939 + .12219, .06723, 23.98262, 1.23646, .94244,
940 + .75331, 1.14358, 1.24371,
941 + .12399, .06827, 24.56123, 1.27349, .98004,
942 + .79281, 1.18115, 1.28089,
943 + .12569, .06924, 25.08368, 1.30824, 1.01526,
944 + .82967, 1.21641, 1.31578,
945 + .12731, .07017, 25.56955, 1.34122, 1.04879,
946 + .86485, 1.24987, 1.34890 /
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 + .12892, .07110, 26.03612, 1.37405, 1.08215,
949 + .89974, 1.28317, 1.38187,
950 + .13051, .07201, 26.48431, 1.40639, 1.11504,
951 + .93418, 1.31597, 1.41434,
952 + .13203, .07287, 26.89745, 1.43703, 1.14624,
953 + .96686, 1.34705, 1.44511,
954 + .13346, .07369, 27.27074, 1.46573, 1.17542,
955 + .99734, 1.37615, 1.47391,
956 + .13493, .07452, 27.64984, 1.49506, 1.20540,
957 + 1.02881, 1.40591, 1.50337 /
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 + .09362, .05067, .43102, .22877, .00000,
960 + .00000, .12883, .23339,
961 + .09558, .05186, .89300, .24162, .00000,
962 + .00000, .14259, .24641,
963 + .09866, .05375, 1.62612, .26213, .00929,
964 + .00000, .16440, .26718,
965 + .10104, .05520, 2.20554, .27826, .02674,
966 + .00000, .18143, .28350,
967 + .10358, .05675, 2.84220, .29628, .04489,
968 + .00000, .20038, .30175,
969 + .10579, .05809, 3.40217, .31267, .06052,
970 + .00000, .21754, .31833,
971 + .10793, .05939, 3.95038, .32906, .07646,
972 + .00000, .23465, .33490,
973 + .11022, .06078, 4.54202, .34715, .09434,
974 + .00000, .25348, .35319 /
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 + .11223, .06199, 5.06350, .36344, .11070,
977 + .00000, .27040, .36965,
978 + .11417, .06316, 5.56351, .37960, .12680,
979 + .00000, .28717, .38599,
980 + .11570, .06409, 5.95475, .39268, .13974,
981 + .00000, .30071, .39921,
982 + .11901, .06607, 6.78553, .42143, .16859,
983 + .00000, .33043, .42826,
984 + .12191, .06780, 7.49685, .44692, .19434,
985 + .01233, .35674, .45400,
986 + .12516, .06972, 8.24455, .47610, .22386,
987 + .05023, .38681, .48347,
988 + .12853, .07171, 9.00118, .50708, .25528,
989 + .08493, .41870, .51474,
990 + .13158, .07351, 9.66505, .53558, .28427,
991 + .11706, .44802, .54352 /
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 + .13465, .07531, 10.31152, .56465, .31392,
994 + .14962, .47788, .57287,
995 + .13717, .07679, 10.82697, .58891, .33864,
996 + .17646, .50279, .59734,
997 + .14022, .07856, 11.42332, .61833, .36860,
998 + .20877, .53298, .62704,
999 + .14291, .08012, 11.92920, .64441, .39523,
1000 + .23754, .55972, .65335,
1001 + .14537, .08154, 12.38000, .66841, .41991,
1002 + .26439, .58434, .67757,
1003 + .14845, .08331, 12.91672, .69859, .45080,
1004 + .29756, .61526, .70802,
1005 + .15134, .08496, 13.39128, .72669, .47959,
1006 + .32836, .64407, .73638,
1007 + .15402, .08650, 13.81643, .75294, .50658,
1008 + .35735, .67094, .76285 /
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 + .15669, .08803, 14.22297, .77905, .53351,
1011 + .38634, .69769, .78919,
1012 + .15926, .08948, 14.58775, .80399, .55914,
1013 + .41362, .72325, .81436,
1014 + .16169, .09085, 14.92137, .82755, .58349,
1015 + .43972, .74737, .83812,
1016 + .16396, .09214, 15.21613, .84940, .60608,
1017 + .46384, .76976, .86016,
1018 + .16624, .09341, 15.49539, .87104, .62846,
1019 + .48775, .79193, .88200,
1020 + .16845, .09466, 15.75810, .89216, .65037,
1021 + .51118, .81356, .90332,
1022 + .17054, .09582, 15.98834, .91176, .67069,
1023 + .53283, .83365, .92310,
1024 + .17252, .09692, 16.19894, .93022, .68990,
1025 + .55336, .85256, .94172 /
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 + .17448, .09801, 16.39553, .94841, .70881,
1028 + .57352, .87120, .96007,
1029 + .17642, .09908, 16.58062, .96617, .72733,
1030 + .59328, .88941, .97800,
1031 + .17825, .10010, 16.74726, .98287, .74475,
1032 + .61189, .90652, .99485,
1033 + .17997, .10104, 16.89321, .99835, .76090,
1034 + .62909, .92240, 1.01047,
1035 + .18173, .10200, 17.04060, 1.01409, .77742,
1036 + .64678, .93855, 1.02637 /
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 + .11420, .06325, .40898, .21251, .00000,
1039 + .00000, .12089, .21871,
1040 + .11654, .06473, .84354, .22327, .00000,
1041 + .00000, .13249, .22967,
1042 + .12022, .06702, 1.51289, .24032, .00889,
1043 + .00000, .15075, .24707,
1044 + .12306, .06878, 2.02948, .25364, .02364,
1045 + .00000, .16492, .26065,
1046 + .12609, .07064, 2.58526, .26848, .03888,
1047 + .00000, .18064, .27577,
1048 + .12875, .07226, 3.06481, .28190, .05189,
1049 + .00000, .19478, .28944,
1050 + .13130, .07382, 3.52698, .29526, .06509,
1051 + .00000, .20883, .30304,
1052 + .13402, .07547, 4.01825, .30995, .07983,
1053 + .00000, .22422, .31798 /
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 + .13641, .07692, 4.44532, .32311, .09326,
1056 + .00000, .23799, .33135,
1057 + .13872, .07830, 4.84952, .33613, .10641,
1058 + .00000, .25158, .34458,
1059 + .14054, .07939, 5.16224, .34660, .11692,
1060 + .00000, .26251, .35524,
1061 + .14443, .08171, 5.81684, .36952, .14026,
1062 + .00000, .28635, .37851,
1063 + .14785, .08373, 6.37097, .38965, .16089,
1064 + .00793, .30729, .39896,
1065 + .15164, .08596, 6.93726, .41253, .18439,
1066 + .03848, .33103, .42219,
1067 + .15557, .08824, 7.49973, .43660, .20918,
1068 + .06616, .35599, .44663,
1069 + .15911, .09030, 7.98420, .45856, .23186,
1070 + .09159, .37875, .46891 /
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 + .16266, .09234, 8.44783, .48078, .25486,
1073 + .11714, .40175, .49145,
1074 + .16558, .09402, 8.81152, .49917, .27391,
1075 + .13805, .42077, .51009,
1076 + .16908, .09602, 9.22499, .52128, .29680,
1077 + .16304, .44365, .53253,
1078 + .17213, .09776, 9.56979, .54073, .31701,
1079 + .18513, .46376, .55225,
1080 + .17494, .09934, 9.87281, .55852, .33561,
1081 + .20562, .48214, .57029,
1082 + .17844, .10131, 10.22645, .58067, .35870,
1083 + .23072, .50504, .59276,
1084 + .18169, .10313, 10.53246, .60113, .38003,
1085 + .25385, .52619, .61350,
1086 + .18470, .10481, 10.80181, .62007, .39989,
1087 + .27547, .54578, .63270 /
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 + .18770, .10648, 11.05492, .63878, .41958,
1090 + .29695, .56511, .65167,
1091 + .19057, .10806, 11.27578, .65649, .43814,
1092 + .31699, .58343, .66963,
1093 + .19327, .10955, 11.47475, .67311, .45567,
1094 + .33605, .60061, .68647,
1095 + .19579, .11093, 11.64666, .68839, .47182,
1096 + .35356, .61643, .70198,
1097 + .19830, .11229, 11.80577, .70342, .48772,
1098 + .37080, .63199, .71721,
1099 + .20074, .11363, 11.95249, .71798, .50319,
1100 + .38760, .64707, .73200,
1101 + .20302, .11486, 12.07715, .73139, .51743,
1102 + .40302, .66096, .74560,
1103 + .20517, .11601, 12.18932, .74395, .53082,
1104 + .41757, .67397, .75833 /
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 + .20732, .11717, 12.29042, .75623, .54392,
1107 + .43177, .68670, .77078,
1108 + .20942, .11829, 12.38330, .76814, .55668,
1109 + .44562, .69906, .78287,
1110 + .21140, .11935, 12.46448, .77927, .56861,
1111 + .45859, .71060, .79416,
1112 + .21326, .12033, 12.53255, .78950, .57960,
1113 + .47051, .72123, .80454,
1114 + .21514, .12133, 12.60102, .79989, .59081,
1115 + .48274, .73202, .81507 /
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 + .13147, .07393, .40136, .20202, .00000,
1118 + .00000, .11585, .20963,
1119 + .13414, .07564, .81749, .21127, .00000,
1120 + .00000, .12589, .21913,
1121 + .13834, .07830, 1.44365, .22595, .00858,
1122 + .00000, .14173, .23422,
1123 + .14158, .08030, 1.91798, .23741, .02156,
1124 + .00000, .15402, .24599,
1125 + .14505, .08243, 2.41998, .25013, .03490,
1126 + .00000, .16759, .25906,
1127 + .14804, .08425, 2.84661, .26164, .04621,
1128 + .00000, .17981, .27084,
1129 + .15093, .08600, 3.25263, .27306, .05769,
1130 + .00000, .19190, .28256,
1131 + .15403, .08788, 3.67908, .28558, .07044,
1132 + .00000, .20512, .29538 /
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 + .15672, .08949, 4.04582, .29675, .08203,
1135 + .00000, .21689, .30681,
1136 + .15931, .09104, 4.38927, .30778, .09333,
1137 + .00000, .22848, .31809,
1138 + .16136, .09224, 4.65256, .31662, .10234,
1139 + .00000, .23777, .32713,
1140 + .16573, .09483, 5.19740, .33589, .12224,
1141 + .00000, .25796, .34681,
1142 + .16953, .09703, 5.65473, .35272, .13975,
1143 + .00524, .27558, .36399,
1144 + .17375, .09947, 6.11083, .37170, .15954,
1145 + .03127, .29544, .38338,
1146 + .17809, .10197, 6.55682, .39156, .18029,
1147 + .05466, .31618, .40364,
1148 + .18200, .10419, 6.93501, .40954, .19916,
1149 + .07602, .33496, .42197 /
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 + .18589, .10640, 7.29158, .42761, .21817,
1152 + .09734, .35381, .44040,
1153 + .18908, .10819, 7.56719, .44247, .23381,
1154 + .11470, .36931, .45555,
1155 + .19289, .11033, 7.87570, .46023, .25251,
1156 + .13531, .38784, .47366,
1157 + .19623, .11217, 8.12904, .47574, .26891,
1158 + .15343, .40401, .48947,
1159 + .19927, .11386, 8.34891, .48985, .28393,
1160 + .17016, .41873, .50385,
1161 + .20304, .11593, 8.60056, .50730, .30245,
1162 + .19053, .43693, .52163,
1163 + .20653, .11784, 8.81388, .52328, .31945,
1164 + .20918, .45361, .53792,
1165 + .20976, .11959, 8.99839, .53799, .33518,
1166 + .22652, .46896, .55290 /
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 + .21296, .12132, 9.16870, .55242, .35069,
1169 + .24365, .48403, .56761,
1170 + .21601, .12295, 9.31291, .56597, .36521,
1171 + .25954, .49820, .58142,
1172 + .21889, .12448, 9.44070, .57861, .37886,
1173 + .27458, .51141, .59430,
1174 + .22155, .12589, 9.54819, .59016, .39135,
1175 + .28831, .52350, .60607,
1176 + .22417, .12728, 9.64500, .60144, .40360,
1177 + .30178, .53532, .61758,
1178 + .22674, .12864, 9.73217, .61231, .41544,
1179 + .31484, .54671, .62866,
1180 + .22913, .12989, 9.80309, .62225, .42629,
1181 + .32677, .55713, .63879,
1182 + .23138, .13106, 9.86551, .63150, .43644,
1183 + .33797, .56685, .64822 /
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 + .23361, .13221, 9.91891, .64049, .44631,
1186 + .34885, .57629, .65740,
1187 + .23579, .13333, 9.96614, .64917, .45588,
1188 + .35942, .58542, .66624,
1189 + .23784, .13439, 10.00537, .65722, .46481,
1190 + .36929, .59389, .67445,
1191 + .23975, .13537, 10.03561, .66457, .47297,
1192 + .37830, .60165, .68195,
1193 + .24170, .13636, 10.06594, .67200, .48127,
1194 + .38753, .60949, .68954 /
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 + .14648, .08330, .40419, .19413, .00000,
1197 + .00000, .11207, .20291,
1198 + .14948, .08523, .80617, .20221, .00000,
1199 + .00000, .12093, .21130,
1200 + .15418, .08820, 1.39959, .21512, .00824,
1201 + .00000, .13495, .22469,
1202 + .15778, .09043, 1.84214, .22519, .01993,
1203 + .00000, .14584, .23514,
1204 + .16161, .09277, 2.30406, .23640, .03191,
1205 + .00000, .15789, .24673,
1206 + .16492, .09479, 2.69158, .24652, .04203,
1207 + .00000, .16871, .25718,
1208 + .16812, .09671, 3.05651, .25655, .05226,
1209 + .00000, .17941, .26754,
1210 + .17152, .09873, 3.43597, .26753, .06361,
1211 + .00000, .19107, .27885 /
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 + .17449, .10049, 3.75924, .27730, .07390,
1214 + .00000, .20145, .28893,
1215 + .17733, .10217, 4.05930, .28691, .08390,
1216 + .00000, .21163, .29882,
1217 + .17956, .10348, 4.28746, .29462, .09186,
1218 + .00000, .21976, .30674,
1219 + .18432, .10624, 4.75486, .31132, .10937,
1220 + .00000, .23741, .32391,
1221 + .18845, .10860, 5.14483, .32583, .12469,
1222 + .00336, .25272, .33881,
1223 + .19301, .11120, 5.52490, .34211, .14194,
1224 + .02624, .26988, .35553,
1225 + .19768, .11383, 5.89132, .35904, .15991,
1226 + .04668, .28771, .37290,
1227 + .20187, .11617, 6.19774, .37428, .17615,
1228 + .06522, .30375, .38853 /
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 + .20604, .11848, 6.48267, .38951, .19243,
1231 + .08366, .31978, .40414,
1232 + .20943, .12035, 6.69965, .40196, .20576,
1233 + .09859, .33287, .41691,
1234 + .21348, .12256, 6.93917, .41676, .22161,
1235 + .11624, .34844, .43207,
1236 + .21700, .12448, 7.13296, .42960, .23544,
1237 + .13168, .36197, .44522,
1238 + .22020, .12621, 7.29908, .44123, .24804,
1239 + .14587, .37421, .45714,
1240 + .22418, .12833, 7.48518, .45552, .26351,
1241 + .16306, .38926, .47177,
1242 + .22783, .13028, 7.63971, .46851, .27763,
1243 + .17873, .40297, .48509,
1244 + .23121, .13205, 7.77085, .48040, .29062,
1245 + .19321, .41552, .49726 /
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 + .23454, .13380, 7.88948, .49200, .30337,
1248 + .20747, .42776, .50913,
1249 + .23770, .13544, 7.98623, .50280, .31523,
1250 + .22062, .43919, .52021,
1251 + .24066, .13698, 8.07027, .51283, .32633,
1252 + .23301, .44980, .53048,
1253 + .24340, .13839, 8.13850, .52194, .33645,
1254 + .24428, .45945, .53981,
1255 + .24610, .13978, 8.19769, .53078, .34631,
1256 + .25529, .46883, .54886,
1257 + .24873, .14111, 8.24923, .53926, .35582,
1258 + .26592, .47784, .55755,
1259 + .25117, .14234, 8.28837, .54694, .36445,
1260 + .27557, .48602, .56543,
1261 + .25347, .14350, 8.32155, .55407, .37253,
1262 + .28463, .49361, .57275 /
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 + .25573, .14462, 8.34717, .56094, .38033,
1265 + .29337, .50096, .57979,
1266 + .25793, .14572, 8.36799, .56754, .38788,
1267 + .30184, .50801, .58656,
1268 + .26001, .14675, 8.38314, .57362, .39487,
1269 + .30972, .51452, .59280,
1270 + .26193, .14769, 8.39189, .57914, .40124,
1271 + .31688, .52045, .59846,
1272 + .26390, .14865, 8.40060, .58471, .40771,
1273 + .32420, .52643, .60418 /
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 + .17244, .09951, .42509, .18282, .00000,
1276 + .00000, .10673, .19382,
1277 + .17604, .10183, .80553, .18915, .00000,
1278 + .00000, .11382, .20056,
1279 + .18162, .10533, 1.35007, .19943, .00752,
1280 + .00000, .12522, .21149,
1281 + .18585, .10792, 1.74561, .20755, .01741,
1282 + .00000, .13414, .22005,
1283 + .19033, .11062, 2.14900, .21660, .02750,
1284 + .00000, .14406, .22960,
1285 + .19419, .11291, 2.48028, .22479, .03598,
1286 + .00000, .15294, .23819,
1287 + .19787, .11508, 2.78670, .23289, .04452,
1288 + .00000, .16172, .24668,
1289 + .20178, .11737, 3.09984, .24171, .05397,
1290 + .00000, .17126, .25592 /
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 + .20518, .11933, 3.36240, .24957, .06251,
1293 + .00000, .17973, .26412,
1294 + .20842, .12119, 3.60239, .25725, .07076,
1295 + .00000, .18800, .27214,
1296 + .21095, .12263, 3.78238, .26338, .07730,
1297 + .00000, .19459, .27852,
1298 + .21633, .12565, 4.14468, .27661, .09159,
1299 + .00000, .20878, .29228,
1300 + .22094, .12821, 4.44410, .28798, .10400,
1301 + .00082, .22098, .30410,
1302 + .22600, .13098, 4.72341, .30064, .11784,
1303 + .01950, .23455, .31724,
1304 + .23115, .13377, 4.98584, .31365, .13213,
1305 + .03601, .24850, .33074,
1306 + .23573, .13623, 5.19938, .32525, .14492,
1307 + .05087, .26092, .34276 /
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 + .24025, .13864, 5.39257, .33672, .15763,
1310 + .06551, .27322, .35464,
1311 + .24392, .14058, 5.53565, .34600, .16794,
1312 + .07726, .28318, .36424,
1313 + .24828, .14283, 5.68865, .35691, .18009,
1314 + .09105, .29489, .37555,
1315 + .25204, .14479, 5.80852, .36629, .19060,
1316 + .10302, .30497, .38525,
1317 + .25544, .14653, 5.90856, .37471, .20013,
1318 + .11396, .31402, .39395,
1319 + .25961, .14865, 6.01545, .38492, .21168,
1320 + .12708, .32502, .40451,
1321 + .26344, .15058, 6.09936, .39409, .22212,
1322 + .13892, .33492, .41400,
1323 + .26696, .15232, 6.16714, .40239, .23165,
1324 + .14980, .34390, .42258 /
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 + .27040, .15403, 6.22519, .41039, .24092,
1327 + .16042, .35258, .43086,
1328 + .27363, .15562, 6.26721, .41774, .24947,
1329 + .17013, .36056, .43846,
1330 + .27666, .15709, 6.30127, .42449, .25739,
1331 + .17922, .36792, .44543,
1332 + .27945, .15842, 6.32510, .43055, .26455,
1333 + .18742, .37453, .45171,
1334 + .28218, .15972, 6.34225, .43636, .27147,
1335 + .19537, .38090, .45771,
1336 + .28481, .16097, 6.35434, .44186, .27810,
1337 + .20301, .38695, .46341,
1338 + .28725, .16211, 6.35858, .44678, .28406,
1339 + .20988, .39237, .46850,
1340 + .28951, .16317, 6.35989, .45131, .28959,
1341 + .21629, .39737, .47319 /
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 + .29175, .16420, 6.35575, .45560, .29490,
1344 + .22244, .40214, .47764,
1345 + .29390, .16520, 6.34869, .45968, .29998,
1346 + .22836, .40669, .48187,
1347 + .29592, .16612, 6.33879, .46339, .30466,
1348 + .23382, .41084, .48571,
1349 + .29779, .16697, 6.32562, .46670, .30887,
1350 + .23875, .41456, .48915,
1351 + .29968, .16781, 6.31238, .47002, .31314,
1352 + .24378, .41831, .49260 /
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 + .20479, .11970, .48332, .17067, .00000,
1355 + .00000, .10081, .18455,
1356 + .20924, .12251, .83814, .17521, .00000,
1357 + .00000, .10613, .18966,
1358 + .21602, .12668, 1.32946, .18289, .00617,
1359 + .00000, .11498, .19820,
1360 + .22105, .12966, 1.67435, .18910, .01439,
1361 + .00000, .12205, .20500,
1362 + .22632, .13275, 2.01634, .19609, .02274,
1363 + .00000, .12993, .21259,
1364 + .23083, .13534, 2.28994, .20242, .02970,
1365 + .00000, .13700, .21943,
1366 + .23511, .13776, 2.53736, .20869, .03671,
1367 + .00000, .14400, .22617,
1368 + .23961, .14028, 2.78481, .21551, .04442,
1369 + .00000, .15158, .23346 /
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 + .24349, .14242, 2.98811, .22155, .05134,
1372 + .00000, .15827, .23991,
1373 + .24716, .14444, 3.17024, .22743, .05799,
1374 + .00000, .16477, .24618,
1375 + .25003, .14598, 3.30439, .23211, .06323,
1376 + .00000, .16992, .25113,
1377 + .25605, .14920, 3.56805, .24210, .07461,
1378 + .00000, .18095, .26173,
1379 + .26112, .15186, 3.78429, .25058, .08438,
1380 + -.00154, .19031, .27069,
1381 + .26665, .15472, 3.97237, .25991, .09515,
1382 + .01333, .20060, .28052,
1383 + .27222, .15756, 4.14235, .26938, .10614,
1384 + .02633, .21104, .29049,
1385 + .27712, .16002, 4.27497, .27769, .11587,
1386 + .03790, .22023, .29924 /
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 + .28191, .16240, 4.38961, .28578, .12542,
1389 + .04918, .22920, .30774,
1390 + .28577, .16429, 4.47046, .29226, .13309,
1391 + .05815, .23638, .31453,
1392 + .29030, .16648, 4.55177, .29973, .14202,
1393 + .06857, .24469, .32239,
1394 + .29418, .16833, 4.61137, .30607, .14966,
1395 + .07752, .25177, .32903,
1396 + .29765, .16998, 4.65827, .31170, .15651,
1397 + .08563, .25805, .33491,
1398 + .30190, .17196, 4.70250, .31837, .16473,
1399 + .09525, .26555, .34191,
1400 + .30573, .17372, 4.73178, .32426, .17206,
1401 + .10386, .27219, .34808,
1402 + .30922, .17529, 4.75130, .32950, .17867,
1403 + .11167, .27814, .35357 /
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 + .31261, .17681, 4.76385, .33447, .18504,
1406 + .11925, .28380, .35878,
1407 + .31577, .17820, 4.76561, .33892, .19082,
1408 + .12608, .28892, .36344,
1409 + .31870, .17948, 4.76352, .34296, .19614,
1410 + .13244, .29357, .36766,
1411 + .32135, .18061, 4.75602, .34649, .20087,
1412 + .13811, .29768, .37136,
1413 + .32393, .18172, 4.74395, .34981, .20540,
1414 + .14356, .30157, .37483,
1415 + .32641, .18275, 4.72906, .35290, .20970,
1416 + .14875, .30521, .37806,
1417 + .32868, .18368, 4.71024, .35557, .21350,
1418 + .15338, .30841, .38087,
1419 + .33077, .18454, 4.69093, .35800, .21701,
1420 + .15766, .31132, .38341 /
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 + .33281, .18535, 4.66790, .36024, .22032,
1423 + .16173, .31403, .38575,
1424 + .33477, .18613, 4.64343, .36231, .22347,
1425 + .16562, .31659, .38792,
1426 + .33658, .18683, 4.61829, .36414, .22632,
1427 + .16917, .31886, .38984,
1428 + .33823, .18748, 4.59217, .36573, .22887,
1429 + .17236, .32086, .39150,
1430 + .33991, .18811, 4.56611, .36730, .23143,
1431 + .17559, .32286, .39314 /
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 + .24920, .14690, .61262, .15572, .00000,
1434 + .00000, .09310, .17432,
1435 + .25488, .15035, .93054, .15843, .00000,
1436 + .00000, .09669, .17781,
1437 + .26333, .15528, 1.35401, .16349, .00351,
1438 + .00000, .10308, .18396,
1439 + .26941, .15869, 1.63649, .16777, .01016,
1440 + .00000, .10833, .18896,
1441 + .27569, .16214, 1.90606, .17269, .01688,
1442 + .00000, .11425, .19461,
1443 + .28097, .16498, 2.11391, .17719, .02243,
1444 + .00000, .11959, .19967,
1445 + .28592, .16759, 2.29598, .18164, .02798,
1446 + .00000, .12483, .20464,
1447 + .29107, .17026, 2.47234, .18646, .03404,
1448 + .00000, .13049, .20999 /
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 + .29547, .17250, 2.61294, .19068, .03943,
1451 + .00000, .13544, .21466,
1452 + .29957, .17456, 2.73503, .19478, .04456,
1453 + .00000, .14021, .21915,
1454 + .30273, .17613, 2.82233, .19801, .04857,
1455 + .00000, .14396, .22266,
1456 + .30930, .17934, 2.98735, .20482, .05718,
1457 + .00000, .15189, .23006,
1458 + .31472, .18191, 3.12239, .21048, .06444,
1459 + -.00383, .15849, .23618,
1460 + .32052, .18461, 3.22363, .21659, .07234,
1461 + .00744, .16564, .24276,
1462 + .32628, .18722, 3.30785, .22264, .08025,
1463 + .01714, .17274, .24924,
1464 + .33127, .18943, 3.36716, .22782, .08713,
1465 + .02564, .17885, .25478 /
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 + .33605, .19153, 3.41248, .23275, .09377,
1468 + .03381, .18469, .26003,
1469 + .33986, .19315, 3.43949, .23659, .09902,
1470 + .04022, .18928, .26412,
1471 + .34425, .19498, 3.46042, .24091, .10504,
1472 + .04756, .19448, .26872,
1473 + .34795, .19649, 3.47045, .24447, .11010,
1474 + .05379, .19880, .27248,
1475 + .35123, .19781, 3.47445, .24755, .11458,
1476 + .05937, .20256, .27574,
1477 + .35514, .19933, 3.46941, .25108, .11986,
1478 + .06590, .20694, .27947,
1479 + .35862, .20064, 3.45697, .25406, .12447,
1480 + .07164, .21071, .28262,
1481 + .36173, .20179, 3.44061, .25663, .12857,
1482 + .07680, .21398, .28531 /
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 + .36470, .20286, 3.42026, .25898, .13245,
1485 + .08172, .21704, .28777,
1486 + .36741, .20378, 3.39413, .26095, .13589,
1487 + .08610, .21968, .28983,
1488 + .36987, .20461, 3.36759, .26266, .13901,
1489 + .09013, .22202, .29162,
1490 + .37207, .20532, 3.33960, .26408, .14174,
1491 + .09367, .22401, .29309,
1492 + .37416, .20597, 3.30916, .26533, .14430,
1493 + .09703, .22583, .29439,
1494 + .37614, .20657, 3.27785, .26643, .14669,
1495 + .10020, .22748, .29554,
1496 + .37790, .20706, 3.24574, .26728, .14875,
1497 + .10298, .22885, .29641,
1498 + .37950, .20751, 3.21489, .26802, .15063,
1499 + .10552, .23006, .29716 /
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 + .38102, .20791, 3.18206, .26861, .15235,
1502 + .10790, .23112, .29773,
1503 + .38246, .20828, 3.14906, .26909, .15396,
1504 + .11016, .23207, .29821,
1505 + .38377, .20857, 3.11692, .26945, .15539,
1506 + .11219, .23287, .29856,
1507 + .38492, .20883, 3.08544, .26968, .15663,
1508 + .11399, .23351, .29879,
1509 + .38609, .20907, 3.05420, .26991, .15787,
1510 + .11580, .23413, .29899 /
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 + .28576, .16893, .76339, .14261, .00000,
1513 + .00000, .08560, .16507,
1514 + .29263, .17284, 1.04375, .14428, .00000,
1515 + .00000, .08830, .16775,
1516 + .30253, .17824, 1.40970, .14787, .00051,
1517 + .00000, .09338, .17262,
1518 + .30947, .18188, 1.64108, .15107, .00633,
1519 + .00000, .09763, .17662,
1520 + .31653, .18547, 1.85457, .15477, .01217,
1521 + .00000, .10244, .18111,
1522 + .32236, .18837, 2.01359, .15818, .01694,
1523 + .00000, .10676, .18512,
1524 + .32776, .19100, 2.14865, .16154, .02166,
1525 + .00000, .11098, .18901,
1526 + .33330, .19362, 2.27539, .16515, .02677,
1527 + .00000, .11550, .19313 /
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 + .33794, .19579, 2.37333, .16829, .03127,
1530 + .00000, .11942, .19669,
1531 + .34226, .19776, 2.45552, .17131, .03550,
1532 + .00000, .12315, .20006,
1533 + .34557, .19924, 2.51229, .17364, .03879,
1534 + .00000, .12606, .20267,
1535 + .35231, .20220, 2.61450, .17853, .04575,
1536 + .00000, .13211, .20808,
1537 + .35775, .20449, 2.69942, .18249, .05154,
1538 + -.00515, .13707, .21242,
1539 + .36345, .20683, 2.74862, .18668, .05774,
1540 + .00396, .14232, .21695,
1541 + .36901, .20903, 2.78311, .19071, .06385,
1542 + .01171, .14743, .22129,
1543 + .37374, .21083, 2.80123, .19405, .06908,
1544 + .01840, .15172, .22489 /
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 + .37821, .21247, 2.80863, .19715, .07406,
1547 + .02477, .15574, .22818,
1548 + .38170, .21371, 2.80717, .19949, .07794,
1549 + .02972, .15882, .23063,
1550 + .38563, .21504, 2.79698, .20202, .08232,
1551 + .03530, .16223, .23329,
1552 + .38890, .21610, 2.78222, .20401, .08594,
1553 + .03999, .16500, .23538,
1554 + .39174, .21698, 2.76540, .20569, .08911,
1555 + .04414, .16735, .23711,
1556 + .39505, .21795, 2.73746, .20749, .09278,
1557 + .04895, .17000, .23898,
1558 + .39792, .21872, 2.70639, .20890, .09593,
1559 + .05312, .17219, .24041,
1560 + .40042, .21935, 2.67463, .21004, .09868,
1561 + .05683, .17403, .24154 /
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 + .40276, .21990, 2.64077, .21101, .10124,
1564 + .06032, .17568, .24247,
1565 + .40480, .22032, 2.60402, .21169, .10347,
1566 + .06339, .17701, .24311,
1567 + .40663, .22065, 2.56860, .21223, .10545,
1568 + .06618, .17814, .24359,
1569 + .40821, .22089, 2.53369, .21258, .10714,
1570 + .06861, .17904, .24388,
1571 + .40966, .22107, 2.49758, .21279, .10871,
1572 + .07089, .17982, .24403,
1573 + .41100, .22119, 2.46169, .21291, .11014,
1574 + .07302, .18045, .24406,
1575 + .41213, .22124, 2.42643, .21288, .11134,
1576 + .07484, .18091, .24394,
1577 + .41314, .22126, 2.39318, .21279, .11242,
1578 + .07652, .18129, .24376 /
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 + .41404, .22123, 2.35895, .21259, .11337,
1581 + .07806, .18154, .24346,
1582 + .41486, .22117, 2.32514, .21232, .11425,
1583 + .07949, .18171, .24309,
1584 + .41557, .22107, 2.29282, .21201, .11501,
1585 + .08079, .18182, .24267,
1586 + .41615, .22093, 2.26180, .21163, .11563,
1587 + .08190, .18182, .24218,
1588 + .41674, .22079, 2.23112, .21124, .11625,
1589 + .08301, .18181, .24169 /
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 + .34760, .20405, 1.03973, .11981, .00000,
1592 + .00000, .07213, .15039,
1593 + .35623, .20840, 1.24736, .12065, .00000,
1594 + .00000, .07417, .15222,
1595 + .36814, .21408, 1.51123, .12284, -.00496,
1596 + .00000, .07810, .15562,
1597 + .37605, .21766, 1.65826, .12487, .00008,
1598 + .00000, .08132, .15834,
1599 + .38384, .22102, 1.78450, .12725, .00504,
1600 + .00000, .08492, .16130,
1601 + .39011, .22362, 1.87133, .12937, .00898,
1602 + .00000, .08805, .16387,
1603 + .39575, .22588, 1.93955, .13144, .01278,
1604 + .00000, .09103, .16627,
1605 + .40137, .22807, 1.99827, .13361, .01680,
1606 + .00000, .09413, .16873 /
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 + .40597, .22979, 2.03962, .13544, .02026,
1609 + .00000, .09677, .17077,
1610 + .41014, .23129, 2.07028, .13715, .02345,
1611 + .00000, .09923, .17265,
1612 + .41325, .23236, 2.08855, .13844, .02589,
1613 + .00000, .10109, .17402,
1614 + .41944, .23439, 2.11404, .14104, .03093,
1615 + .00000, .10486, .17675,
1616 + .42415, .23578, 2.13911, .14300, .03499,
1617 + -.00635, .10781, .17875,
1618 + .42890, .23706, 2.12953, .14493, .03923,
1619 + .00018, .11078, .18068,
1620 + .43332, .23810, 2.11017, .14664, .04328,
1621 + .00563, .11354, .18232,
1622 + .43688, .23882, 2.08554, .14792, .04666,
1623 + .01025, .11574, .18349 /
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 + .44007, .23936, 2.05531, .14899, .04977,
1626 + .01453, .11767, .18439,
1627 + .44242, .23965, 2.02667, .14968, .05213,
1628 + .01779, .11906, .18491,
1629 + .44490, .23984, 1.98834, .15028, .05473,
1630 + .02141, .12048, .18529,
1631 + .44681, .23986, 1.95228, .15064, .05682,
1632 + .02439, .12154, .18544,
1633 + .44839, .23979, 1.91836, .15086, .05859,
1634 + .02698, .12238, .18543,
1635 + .45003, .23956, 1.87302, .15090, .06059,
1636 + .02992, .12320, .18519,
1637 + .45127, .23918, 1.82910, .15077, .06225,
1638 + .03242, .12374, .18475,
1639 + .45223, .23874, 1.78775, .15051, .06364,
1640 + .03459, .12411, .18420 /
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 + .45300, .23823, 1.74643, .15015, .06489,
1643 + .03661, .12436, .18354,
1644 + .45348, .23759, 1.70513, .14963, .06592,
1645 + .03833, .12440, .18271,
1646 + .45380, .23695, 1.66669, .14906, .06680,
1647 + .03988, .12437, .18185,
1648 + .45392, .23628, 1.63052, .14846, .06753,
1649 + .04120, .12424, .18094,
1650 + .45393, .23554, 1.59441, .14778, .06816,
1651 + .04241, .12402, .17994,
1652 + .45382, .23477, 1.55947, .14703, .06870,
1653 + .04350, .12374, .17891,
1654 + .45358, .23398, 1.52634, .14626, .06913,
1655 + .04444, .12338, .17784,
1656 + .45328, .23322, 1.49564, .14551, .06948,
1657 + .04526, .12301, .17681 /
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 + .45285, .23238, 1.46489, .14468, .06977,
1660 + .04601, .12257, .17571,
1661 + .45236, .23154, 1.43507, .14383, .07000,
1662 + .04670, .12209, .17457,
1663 + .45182, .23071, 1.40706, .14299, .07018,
1664 + .04729, .12160, .17346,
1665 + .45121, .22988, 1.38073, .14215, .07028,
1666 + .04778, .12108, .17236,
1667 + .45060, .22905, 1.35484, .14131, .07039,
1668 + .04829, .12056, .17126 /
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 + .39929, .23118, 1.24983, .09985, .00000,
1671 + .00000, .06015, .13727,
1672 + .40909, .23543, 1.38841, .10059, .00000,
1673 + .00000, .06221, .13874,
1674 + .42197, .24067, 1.56302, .10238, -.00903,
1675 + .00000, .06576, .14125,
1676 + .43011, .24373, 1.64258, .10390, -.00435,
1677 + .00000, .06849, .14311,
1678 + .43787, .24644, 1.70326, .10561, .00016,
1679 + .00000, .07140, .14501,
1680 + .44390, .24841, 1.73862, .10707, .00365,
1681 + .00000, .07384, .14656,
1682 + .44917, .25000, 1.76135, .10842, .00693,
1683 + .00000, .07608, .14792,
1684 + .45424, .25142, 1.77567, .10975, .01029,
1685 + .00000, .07833, .14920 /
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 + .45828, .25244, 1.78140, .11086, .01313,
1688 + .00000, .08019, .15019,
1689 + .46184, .25323, 1.78084, .11181, .01570,
1690 + .00000, .08186, .15103,
1691 + .46438, .25373, 1.77648, .11251, .01763,
1692 + .00000, .08309, .15160,
1693 + .46923, .25453, 1.75869, .11380, .02153,
1694 + .00000, .08547, .15257,
1695 + .47262, .25482, 1.75087, .11468, .02460,
1696 + -.00652, .08724, .15310,
1697 + .47578, .25486, 1.71195, .11542, .02771,
1698 + -.00156, .08892, .15338,
1699 + .47844, .25460, 1.66744, .11592, .03061,
1700 + .00254, .09035, .15338,
1701 + .48032, .25414, 1.62430, .11615, .03296,
1702 + .00592, .09139, .15315 /
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 + .48179, .25347, 1.57904, .11620, .03508,
1705 + .00902, .09221, .15268,
1706 + .48269, .25277, 1.54054, .11609, .03664,
1707 + .01133, .09271, .15212,
1708 + .48335, .25176, 1.49306, .11580, .03831,
1709 + .01387, .09313, .15129,
1710 + .48363, .25076, 1.45109, .11542, .03962,
1711 + .01592, .09333, .15040,
1712 + .48368, .24976, 1.41313, .11499, .04070,
1713 + .01767, .09342, .14951,
1714 + .48339, .24835, 1.36493, .11429, .04189,
1715 + .01964, .09337, .14820,
1716 + .48281, .24689, 1.32021, .11349, .04282,
1717 + .02128, .09317, .14685,
1718 + .48205, .24546, 1.27933, .11268, .04358,
1719 + .02268, .09288, .14551 /
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 + .48110, .24397, 1.23950, .11181, .04423,
1722 + .02395, .09251, .14409,
1723 + .47989, .24241, 1.20094, .11086, .04474,
1724 + .02503, .09203, .14261,
1725 + .47863, .24088, 1.16564, .10992, .04516,
1726 + .02597, .09152, .14119,
1727 + .47731, .23938, 1.13311, .10898, .04547,
1728 + .02676, .09099, .13979,
1729 + .47583, .23784, 1.10122, .10800, .04571,
1730 + .02747, .09039, .13833,
1731 + .47429, .23630, 1.07076, .10702, .04590,
1732 + .02810, .08978, .13690,
1733 + .47267, .23479, 1.04239, .10604, .04602,
1734 + .02863, .08914, .13549,
1735 + .47111, .23334, 1.01637, .10510, .04609,
1736 + .02908, .08851, .13414 /
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 + .46940, .23185, .99066, .10412, .04613,
1739 + .02948, .08784, .13275,
1740 + .46766, .23037, .96598, .10315, .04613,
1741 + .02984, .08717, .13139,
1742 + .46594, .22893, .94303, .10220, .04611,
1743 + .03015, .08650, .13007,
1744 + .46421, .22754, .92171, .10129, .04605,
1745 + .03039, .08584, .12880,
1746 + .46248, .22614, .90082, .10037, .04599,
1747 + .03063, .08519, .12753 /
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 + .44432, .25289, 1.37635, .08299, .00000,
1750 + .00000, .05022, .12571,
1751 + .45467, .25671, 1.45438, .08390, .00000,
1752 + .00000, .05240, .12683,
1753 + .46771, .26100, 1.55391, .08558, -.01148,
1754 + .00000, .05577, .12856,
1755 + .47554, .26323, 1.58132, .08685, -.00708,
1756 + .00000, .05815, .12965,
1757 + .48267, .26499, 1.59374, .08813, -.00293,
1758 + .00000, .06054, .13064,
1759 + .48797, .26607, 1.59291, .08917, .00021,
1760 + .00000, .06246, .13131,
1761 + .49240, .26681, 1.58485, .09005, .00309,
1762 + .00000, .06415, .13179,
1763 + .49646, .26731, 1.57021, .09088, .00598,
1764 + .00000, .06578, .13217 /
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 + .49953, .26750, 1.55362, .09150, .00836,
1767 + .00000, .06707, .13235,
1768 + .50206, .26750, 1.53412, .09199, .01049,
1769 + .00000, .06818, .13243,
1770 + .50378, .26738, 1.51652, .09232, .01205,
1771 + .00000, .06896, .13237,
1772 + .50677, .26681, 1.47454, .09283, .01518,
1773 + .00000, .07041, .13210,
1774 + .50847, .26591, 1.44849, .09304, .01756,
1775 + -.00620, .07140, .13159,
1776 + .50965, .26463, 1.39570, .09309, .01993,
1777 + -.00233, .07225, .13081,
1778 + .51019, .26305, 1.34050, .09292, .02210,
1779 + .00084, .07287, .12974,
1780 + .51014, .26141, 1.29053, .09259, .02380,
1781 + .00341, .07321, .12858 /
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 + .50964, .25957, 1.24072, .09211, .02530,
1784 + .00573, .07336, .12729,
1785 + .50888, .25793, 1.20000, .09161, .02639,
1786 + .00745, .07338, .12609,
1787 + .50756, .25578, 1.15156, .09088, .02752,
1788 + .00929, .07323, .12456,
1789 + .50609, .25380, 1.10995, .09013, .02839,
1790 + .01077, .07299, .12312,
1791 + .50457, .25193, 1.07308, .08940, .02910,
1792 + .01202, .07270, .12174,
1793 + .50226, .24945, 1.02748, .08839, .02982,
1794 + .01339, .07221, .11991,
1795 + .49980, .24703, .98615, .08736, .03038,
1796 + .01452, .07164, .11812,
1797 + .49733, .24469, .94899, .08635, .03081,
1798 + .01547, .07106, .11642 /
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 + .49471, .24233, .91334, .08530, .03116,
1801 + .01633, .07043, .11469,
1802 + .49186, .23994, .87951, .08422, .03141,
1803 + .01703, .06973, .11294,
1804 + .48907, .23768, .84887, .08318, .03159,
1805 + .01764, .06904, .11129,
1806 + .48632, .23550, .82098, .08219, .03172,
1807 + .01815, .06836, .10971,
1808 + .48345, .23330, .79393, .08115, .03179,
1809 + .01859, .06764, .10813,
1810 + .48055, .23111, .76833, .08012, .03183,
1811 + .01898, .06694, .10656,
1812 + .47767, .22902, .74477, .07914, .03183,
1813 + .01930, .06622, .10507,
1814 + .47490, .22703, .72328, .07822, .03179,
1815 + .01957, .06553, .10366 /
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 + .47204, .22502, .70227, .07726, .03174,
1818 + .01980, .06482, .10223,
1819 + .46917, .22302, .68226, .07631, .03165,
1820 + .02000, .06411, .10085,
1821 + .46638, .22111, .66377, .07541, .03155,
1822 + .02016, .06343, .09951,
1823 + .46367, .21928, .64670, .07454, .03144,
1824 + .02028, .06277, .09824,
1825 + .46094, .21745, .63004, .07369, .03132,
1826 + .02041, .06212, .09699 /
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 + .49317, .27354, 1.42960, .06593, .00000,
1829 + .00000, .04033, .11237,
1830 + .50319, .27625, 1.44803, .06711, .00000,
1831 + .00000, .04254, .11296,
1832 + .51497, .27882, 1.47570, .06876, -.01272,
1833 + .00000, .04561, .11358,
1834 + .52146, .27969, 1.45734, .06984, -.00871,
1835 + .00000, .04762, .11380,
1836 + .52697, .27999, 1.42936, .07079, -.00499,
1837 + .00000, .04948, .11380,
1838 + .53070, .27983, 1.39954, .07147, -.00224,
1839 + .00000, .05088, .11360,
1840 + .53352, .27935, 1.36781, .07199, .00021,
1841 + .00000, .05206, .11327,
1842 + .53582, .27855, 1.33196, .07241, .00261,
1843 + .00000, .05311, .11280 /
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 + .53728, .27765, 1.29968, .07267, .00455,
1846 + .00000, .05389, .11227,
1847 + .53821, .27660, 1.26752, .07283, .00625,
1848 + .00000, .05455, .11162,
1849 + .53865, .27566, 1.24144, .07289, .00749,
1850 + .00000, .05498, .11106,
1851 + .53887, .27337, 1.18517, .07284, .00991,
1852 + .00000, .05568, .10976,
1853 + .53812, .27104, 1.14816, .07260, .01170,
1854 + -.00543, .05606, .10844,
1855 + .53660, .26819, 1.08982, .07216, .01344,
1856 + -.00254, .05627, .10685,
1857 + .53430, .26505, 1.03172, .07157, .01499,
1858 + -.00019, .05630, .10502,
1859 + .53171, .26205, .98127, .07091, .01618,
1860 + .00167, .05615, .10327 /
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 + .52868, .25888, .93263, .07012, .01721,
1863 + .00334, .05587, .10144,
1864 + .52584, .25619, .89398, .06940, .01792,
1865 + .00454, .05554, .09988,
1866 + .52204, .25283, .84917, .06846, .01865,
1867 + .00584, .05506, .09792,
1868 + .51844, .24981, .81149, .06757, .01920,
1869 + .00685, .05456, .09616,
1870 + .51497, .24703, .77865, .06674, .01962,
1871 + .00769, .05405, .09455,
1872 + .51028, .24343, .73889, .06562, .02004,
1873 + .00862, .05333, .09248,
1874 + .50566, .23999, .70351, .06452, .02034,
1875 + .00936, .05261, .09052,
1876 + .50119, .23676, .67217, .06347, .02057,
1877 + .00998, .05190, .08869 /
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 + .49662, .23353, .64249, .06241, .02073,
1880 + .01052, .05116, .08687,
1881 + .49193, .23035, .61476, .06134, .02082,
1882 + .01096, .05039, .08508,
1883 + .48745, .22735, .58990, .06033, .02087,
1884 + .01133, .04967, .08341,
1885 + .48313, .22452, .56751, .05939, .02089,
1886 + .01163, .04896, .08185,
1887 + .47873, .22167, .54601, .05843, .02087,
1888 + .01189, .04824, .08031,
1889 + .47437, .21890, .52586, .05748, .02083,
1890 + .01212, .04752, .07881,
1891 + .47015, .21623, .50746, .05658, .02077,
1892 + .01230, .04683, .07738,
1893 + .46616, .21375, .49082, .05573, .02069,
1894 + .01244, .04620, .07604 /
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 + .46206, .21124, .47467, .05488, .02059,
1897 + .01256, .04554, .07470,
1898 + .45800, .20879, .45936, .05405, .02049,
1899 + .01266, .04490, .07341,
1900 + .45410, .20645, .44533, .05327, .02038,
1901 + .01274, .04427, .07219,
1902 + .45038, .20424, .43247, .05252, .02026,
1903 + .01279, .04368, .07104,
1904 + .44665, .20205, .41996, .05177, .02012,
1905 + .01284, .04309, .06990 /
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 + .53524, .28850, 1.39066, .05300, .00000,
1908 + .00000, .03290, .10010,
1909 + .54393, .28975, 1.36770, .05424, .00000,
1910 + .00000, .03499, .10003,
1911 + .55336, .29007, 1.34623, .05576, -.01255,
1912 + .00000, .03766, .09961,
1913 + .55781, .28936, 1.30011, .05662, -.00898,
1914 + .00000, .03931, .09901,
1915 + .56102, .28803, 1.24896, .05731, -.00573,
1916 + .00000, .04070, .09826,
1917 + .56269, .28650, 1.20365, .05774, -.00337,
1918 + .00000, .04170, .09739,
1919 + .56347, .28476, 1.16008, .05801, -.00130,
1920 + .00000, .04246, .09647,
1921 + .56358, .28266, 1.11439, .05816, .00069,
1922 + .00000, .04313, .09537 /
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 + .56315, .28063, 1.07549, .05817, .00226,
1925 + .00000, .04358, .09434,
1926 + .56230, .27853, 1.03851, .05810, .00362,
1927 + .00000, .04389, .09331,
1928 + .56127, .27678, 1.00966, .05799, .00460,
1929 + .00000, .04405, .09245,
1930 + .55840, .27287, .94981, .05764, .00648,
1931 + .00000, .04426, .09050,
1932 + .55502, .26922, .90974, .05718, .00785,
1933 + -.00459, .04428, .08873,
1934 + .55064, .26498, .85302, .05654, .00917,
1935 + -.00240, .04414, .08668,
1936 + .54547, .26044, .79811, .05574, .01030,
1937 + -.00064, .04382, .08452,
1938 + .54036, .25624, .75157, .05492, .01115,
1939 + .00074, .04343, .08252 /
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 + .53482, .25197, .70762, .05405, .01187,
1942 + .00195, .04295, .08046,
1943 + .52999, .24837, .67333, .05326, .01236,
1944 + .00283, .04247, .07880,
1945 + .52385, .24401, .63420, .05228, .01285,
1946 + .00375, .04184, .07674,
1947 + .51823, .24014, .60178, .05137, .01320,
1948 + .00446, .04125, .07494,
1949 + .51301, .23660, .57381, .05053, .01347,
1950 + .00506, .04068, .07331,
1951 + .50617, .23212, .54045, .04945, .01373,
1952 + .00569, .03991, .07124,
1953 + .49959, .22788, .51115, .04840, .01390,
1954 + .00619, .03915, .06934,
1955 + .49335, .22397, .48546, .04740, .01401,
1956 + .00661, .03844, .06759 /
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 + .48708, .22012, .46137, .04643, .01407,
1959 + .00696, .03772, .06587,
1960 + .48078, .21634, .43909, .04549, .01411,
1961 + .00725, .03699, .06419,
1962 + .47485, .21282, .41929, .04459, .01411,
1963 + .00749, .03631, .06265,
1964 + .46923, .20952, .40163, .04372, .01408,
1965 + .00767, .03564, .06123,
1966 + .46355, .20623, .38479, .04288, .01403,
1967 + .00783, .03498, .05983,
1968 + .45797, .20304, .36909, .04206, .01396,
1969 + .00796, .03435, .05847,
1970 + .45264, .20003, .35485, .04129, .01389,
1971 + .00807, .03374, .05720,
1972 + .44762, .19723, .34202, .04057, .01380,
1973 + .00814, .03318, .05602 /
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 + .44255, .19440, .32966, .03983, .01371,
1976 + .00821, .03260, .05485,
1977 + .43758, .19164, .31801, .03911, .01360,
1978 + .00826, .03203, .05373,
1979 + .43284, .18904, .30738, .03844, .01350,
1980 + .00829, .03150, .05268,
1981 + .42833, .18660, .29770, .03782, .01340,
1982 + .00832, .03099, .05167,
1983 + .42383, .18418, .28831, .03720, .01329,
1984 + .00833, .03050, .05069 /
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 + .57105, .29851, 1.29106, .04340, .00000,
1987 + .00000, .02727, .08838,
1988 + .57760, .29806, 1.24258, .04456, .00000,
1989 + .00000, .02909, .08764,
1990 + .58344, .29607, 1.19118, .04593, -.01160,
1991 + .00000, .03124, .08624,
1992 + .58523, .29374, 1.13078, .04659, -.00850,
1993 + .00000, .03244, .08503,
1994 + .58567, .29072, 1.06891, .04705, -.00572,
1995 + .00000, .03344, .08363,
1996 + .58488, .28787, 1.01724, .04729, -.00370,
1997 + .00000, .03408, .08232,
1998 + .58337, .28488, .96961, .04737, -.00199,
1999 + .00000, .03454, .08098,
2000 + .58107, .28149, .92132, .04732, -.00035,
2001 + .00000, .03488, .07951 /
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 + .57858, .27844, .88128, .04719, .00092,
2004 + .00000, .03507, .07821,
2005 + .57570, .27541, .84413, .04700, .00202,
2006 + .00000, .03518, .07691,
2007 + .57317, .27292, .81575, .04676, .00279,
2008 + .00000, .03520, .07587,
2009 + .56716, .26750, .75807, .04621, .00427,
2010 + .00000, .03512, .07363,
2011 + .56119, .26268, .71932, .04565, .00532,
2012 + -.00379, .03491, .07169,
2013 + .55400, .25720, .66766, .04489, .00631,
2014 + -.00213, .03455, .06952,
2015 + .54606, .25147, .61856, .04401, .00716,
2016 + -.00080, .03408, .06726,
2017 + .53852, .24630, .57764, .04317, .00778,
2018 + .00024, .03357, .06524 /
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 + .53071, .24110, .53954, .04227, .00830,
2021 + .00114, .03300, .06322,
2022 + .52402, .23680, .51017, .04150, .00865,
2023 + .00178, .03250, .06157,
2024 + .51574, .23165, .47705, .04057, .00899,
2025 + .00245, .03185, .05959,
2026 + .50837, .22711, .44994, .03971, .00922,
2027 + .00296, .03123, .05790,
2028 + .50162, .22299, .42677, .03888, .00939,
2029 + .00338, .03066, .05640,
2030 + .49287, .21785, .39938, .03789, .00955,
2031 + .00383, .02994, .05449,
2032 + .48460, .21308, .37558, .03695, .00965,
2033 + .00418, .02923, .05275,
2034 + .47687, .20870, .35488, .03607, .00971,
2035 + .00446, .02857, .05117 /
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 + .46918, .20439, .33562, .03520, .00973,
2038 + .00470, .02791, .04965,
2039 + .46161, .20020, .31794, .03434, .00972,
2040 + .00489, .02727, .04818,
2041 + .45453, .19632, .30231, .03355, .00970,
2042 + .00504, .02667, .04682,
2043 + .44786, .19273, .28846, .03282, .00966,
2044 + .00517, .02611, .04557,
2045 + .44118, .18917, .27533, .03209, .00961,
2046 + .00527, .02554, .04435,
2047 + .43469, .18572, .26315, .03140, .00954,
2048 + .00535, .02498, .04319,
2049 + .42851, .18247, .25218, .03073, .00947,
2050 + .00541, .02446, .04212,
2051 + .42276, .17947, .24235, .03010, .00940,
2052 + .00546, .02398, .04112 /
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 + .41695, .17646, .23292, .02948, .00932,
2055 + .00550, .02350, .04015,
2056 + .41126, .17356, .22406, .02890, .00923,
2057 + .00552, .02303, .03920,
2058 + .40589, .17082, .21600, .02834, .00914,
2059 + .00554, .02259, .03832,
2060 + .40080, .16824, .20870, .02782, .00905,
2061 + .00554, .02217, .03750,
2062 + .39575, .16570, .20163, .02731, .00896,
2063 + .00554, .02177, .03669 /
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 + .60067, .30423, 1.15818, .03624, .00000,
2066 + .00000, .02281, .07695,
2067 + .60432, .30198, 1.09646, .03729, .00000,
2068 + .00000, .02427, .07564,
2069 + .60597, .29746, 1.02961, .03832, -.01031,
2070 + .00000, .02596, .07353,
2071 + .60470, .29346, .96420, .03877, -.00766,
2072 + .00000, .02680, .07194,
2073 + .60195, .28888, .89969, .03902, -.00531,
2074 + .00000, .02747, .07016,
2075 + .59855, .28469, .84754, .03908, -.00364,
2076 + .00000, .02787, .06854,
2077 + .59461, .28048, .80054, .03902, -.00222,
2078 + .00000, .02809, .06701,
2079 + .58978, .27593, .75379, .03882, -.00088,
2080 + .00000, .02824, .06538 /
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 + .58516, .27192, .71571, .03857, .00015,
2083 + .00000, .02827, .06396,
2084 + .58037, .26796, .68095, .03825, .00103,
2085 + .00000, .02822, .06261,
2086 + .57631, .26484, .65471, .03799, .00165,
2087 + .00000, .02813, .06152,
2088 + .56717, .25814, .60222, .03733, .00280,
2089 + .00000, .02786, .05922,
2090 + .55868, .25233, .56678, .03668, .00362,
2091 + -.00309, .02754, .05729,
2092 + .54884, .24584, .52146, .03590, .00438,
2093 + -.00182, .02709, .05516,
2094 + .53832, .23918, .47897, .03502, .00501,
2095 + -.00081, .02656, .05299,
2096 + .52858, .23322, .44399, .03418, .00547,
2097 + -.00003, .02603, .05108 /
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 + .51867, .22730, .41180, .03332, .00585,
2100 + .00065, .02543, .04922,
2101 + .51041, .22247, .38722, .03258, .00610,
2102 + .00112, .02494, .04772,
2103 + .50031, .21670, .35977, .03169, .00634,
2104 + .00161, .02432, .04593,
2105 + .49140, .21169, .33749, .03090, .00650,
2106 + .00198, .02375, .04440,
2107 + .48329, .20721, .31857, .03018, .00661,
2108 + .00228, .02324, .04304,
2109 + .47295, .20165, .29640, .02929, .00671,
2110 + .00260, .02257, .04137,
2111 + .46336, .19649, .27727, .02843, .00676,
2112 + .00285, .02195, .03987,
2113 + .45446, .19178, .26075, .02765, .00679,
2114 + .00304, .02137, .03851 /
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 + .44568, .18718, .24549, .02689, .00679,
2117 + .00322, .02078, .03719,
2118 + .43709, .18276, .23159, .02614, .00677,
2119 + .00334, .02024, .03595,
2120 + .42910, .17869, .21937, .02547, .00675,
2121 + .00345, .01973, .03481,
2122 + .42161, .17493, .20858, .02484, .00671,
2123 + .00353, .01924, .03378,
2124 + .41419, .17122, .19842, .02423, .00665,
2125 + .00359, .01875, .03277,
2126 + .40701, .16768, .18905, .02363, .00659,
2127 + .00364, .01828, .03181,
2128 + .40024, .16434, .18063, .02307, .00654,
2129 + .00368, .01787, .03090,
2130 + .39394, .16124, .17309, .02254, .00648,
2131 + .00371, .01748, .03009 /
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 + .38762, .15819, .16592, .02204, .00640,
2134 + .00372, .01708, .02927,
2135 + .38146, .15525, .15919, .02156, .00633,
2136 + .00373, .01670, .02849,
2137 + .37567, .15247, .15310, .02110, .00626,
2138 + .00374, .01634, .02778,
2139 + .37025, .14985, .14758, .02064, .00619,
2140 + .00375, .01601, .02713,
2141 + .36489, .14726, .14226, .02020, .00612,
2142 + .00374, .01568, .02649 /
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 + .62415, .30604, 1.01238, .03089, .00000,
2145 + .00000, .01916, .06580,
2146 + .62450, .30185, .94605, .03164, .00000,
2147 + .00000, .02034, .06416,
2148 + .62136, .29484, .87387, .03234, -.00895,
2149 + .00000, .02154, .06167,
2150 + .61684, .28918, .80931, .03255, -.00672,
2151 + .00000, .02215, .05986,
2152 + .61075, .28307, .74712, .03258, -.00476,
2153 + .00000, .02257, .05792,
2154 + .60461, .27766, .69784, .03248, -.00336,
2155 + .00000, .02275, .05626,
2156 + .59814, .27241, .65411, .03228, -.00220,
2157 + .00000, .02283, .05467,
2158 + .59077, .26684, .61121, .03198, -.00112,
2159 + .00000, .02281, .05301 /
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 + .58405, .26201, .57664, .03167, -.00029,
2162 + .00000, .02274, .05158,
2163 + .57728, .25736, .54541, .03133, .00042,
2164 + .00000, .02260, .05023,
2165 + .57175, .25365, .52203, .03101, .00091,
2166 + .00000, .02247, .04919,
2167 + .55966, .24590, .47586, .03029, .00182,
2168 + .00000, .02210, .04702,
2169 + .54885, .23929, .44463, .02963, .00246,
2170 + -.00251, .02173, .04518,
2171 + .53662, .23201, .40583, .02883, .00304,
2172 + -.00153, .02126, .04324,
2173 + .52377, .22460, .36985, .02798, .00353,
2174 + -.00075, .02070, .04128,
2175 + .51213, .21806, .34052, .02720, .00387,
2176 + -.00017, .02018, .03956 /
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 + .50045, .21165, .31380, .02637, .00415,
2179 + .00035, .01963, .03790,
2180 + .49077, .20644, .29355, .02571, .00434,
2181 + .00070, .01917, .03656,
2182 + .47914, .20029, .27110, .02490, .00449,
2183 + .00106, .01859, .03502,
2184 + .46895, .19499, .25299, .02421, .00461,
2185 + .00133, .01809, .03371,
2186 + .45977, .19026, .23773, .02357, .00469,
2187 + .00156, .01762, .03255,
2188 + .44831, .18439, .21997, .02271, .00475,
2189 + .00178, .01706, .03114,
2190 + .43758, .17907, .20478, .02200, .00478,
2191 + .00196, .01651, .02988,
2192 + .42773, .17421, .19173, .02133, .00479,
2193 + .00210, .01600, .02874 /
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 + .41816, .16948, .17971, .02065, .00479,
2196 + .00222, .01555, .02767,
2197 + .40885, .16498, .16888, .02001, .00476,
2198 + .00230, .01507, .02661,
2199 + .40022, .16084, .15938, .01944, .00473,
2200 + .00238, .01463, .02567,
2201 + .39221, .15704, .15103, .01892, .00470,
2202 + .00243, .01423, .02483,
2203 + .38429, .15329, .14321, .01839, .00465,
2204 + .00247, .01383, .02401,
2205 + .37668, .14972, .13601, .01787, .00460,
2206 + .00251, .01347, .02323,
2207 + .36951, .14639, .12960, .01740, .00455,
2208 + .00253, .01311, .02251,
2209 + .36287, .14332, .12388, .01697, .00450,
2210 + .00254, .01278, .02185 /
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 + .35625, .14029, .11844, .01655, .00444,
2213 + .00256, .01246, .02122,
2214 + .34983, .13735, .11336, .01614, .00438,
2215 + .00256, .01214, .02062,
2216 + .34380, .13462, .10878, .01576, .00433,
2217 + .00256, .01186, .02006,
2218 + .33816, .13205, .10466, .01541, .00427,
2219 + .00255, .01159, .01954,
2220 + .33260, .12954, .10067, .01505, .00422,
2221 + .00255, .01132, .01904 /
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 + .64196, .30388, .86730, .02635, .00000,
2224 + .00000, .01621, .05545,
2225 + .63835, .29804, .80213, .02695, .00000,
2226 + .00000, .01700, .05356,
2227 + .62991, .28876, .73108, .02740, -.00767,
2228 + .00000, .01781, .05088,
2229 + .62177, .28178, .67083, .02753, -.00581,
2230 + .00000, .01820, .04889,
2231 + .61227, .27430, .61362, .02743, -.00418,
2232 + .00000, .01837, .04699,
2233 + .60342, .26782, .56892, .02719, -.00303,
2234 + .00000, .01843, .04538,
2235 + .59447, .26168, .52960, .02692, -.00207,
2236 + .00000, .01840, .04386,
2237 + .58467, .25522, .49148, .02655, -.00118,
2238 + .00000, .01830, .04225 /
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 + .57595, .24969, .46102, .02620, -.00051,
2241 + .00000, .01817, .04092,
2242 + .56737, .24442, .43373, .02582, .00005,
2243 + .00000, .01798, .03969,
2244 + .56046, .24030, .41347, .02549, .00044,
2245 + .00000, .01781, .03872,
2246 + .54574, .23168, .37377, .02475, .00117,
2247 + .00000, .01742, .03673,
2248 + .53291, .22443, .34687, .02408, .00166,
2249 + -.00204, .01704, .03514,
2250 + .51850, .21661, .31421, .02334, .00212,
2251 + -.00128, .01655, .03339,
2252 + .50366, .20876, .28417, .02254, .00249,
2253 + -.00067, .01605, .03168,
2254 + .49043, .20183, .25996, .02179, .00275,
2255 + -.00022, .01558, .03021 /
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 + .47726, .19508, .23805, .02106, .00296,
2258 + .00016, .01509, .02878,
2259 + .46650, .18969, .22156, .02043, .00309,
2260 + .00042, .01467, .02767,
2261 + .45368, .18328, .20344, .01969, .00321,
2262 + .00070, .01416, .02637,
2263 + .44258, .17781, .18890, .01905, .00329,
2264 + .00090, .01370, .02529,
2265 + .43260, .17298, .17671, .01846, .00334,
2266 + .00106, .01330, .02435,
2267 + .42016, .16703, .16262, .01779, .00338,
2268 + .00123, .01282, .02315,
2269 + .40872, .16165, .15064, .01714, .00340,
2270 + .00136, .01237, .02210,
2271 + .39827, .15677, .14043, .01657, .00340,
2272 + .00146, .01197, .02117 /
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 + .38810, .15204, .13109, .01599, .00339,
2275 + .00154, .01157, .02031,
2276 + .37831, .14756, .12270, .01545, .00337,
2277 + .00160, .01117, .01948,
2278 + .36930, .14346, .11539, .01495, .00334,
2279 + .00165, .01081, .01874,
2280 + .36099, .13970, .10898, .01450, .00331,
2281 + .00169, .01049, .01806,
2282 + .35281, .13602, .10302, .01404, .00327,
2283 + .00171, .01017, .01742,
2284 + .34497, .13251, .09754, .01361, .00323,
2285 + .00173, .00987, .01682,
2286 + .33761, .12927, .09270, .01322, .00318,
2287 + .00174, .00957, .01625,
2288 + .33081, .12631, .08840, .01286, .00315,
2289 + .00176, .00931, .01572 /
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 + .32407, .12338, .08430, .01252, .00311,
2292 + .00176, .00905, .01522,
2293 + .31756, .12055, .08049, .01219, .00305,
2294 + .00176, .00882, .01474,
2295 + .31147, .11792, .07706, .01188, .00301,
2296 + .00176, .00860, .01431,
2297 + .30579, .11545, .07399, .01159, .00297,
2298 + .00175, .00838, .01391,
2299 + .30018, .11304, .07106, .01129, .00293,
2300 + .00175, .00818, .01352 /
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 + .65226, .29979, .73206, .02373, .00000,
2303 + .00000, .01289, .04496,
2304 + .64487, .29208, .67102, .02396, .00000,
2305 + .00000, .01356, .04320,
2306 + .63126, .28058, .60449, .02398, -.00655,
2307 + .00000, .01423, .04066,
2308 + .61988, .27212, .54996, .02381, -.00498,
2309 + .00000, .01448, .03896,
2310 + .60712, .26342, .49878, .02352, -.00362,
2311 + .00000, .01463, .03717,
2312 + .59566, .25607, .45917, .02322, -.00267,
2313 + .00000, .01463, .03568,
2314 + .58444, .24912, .42470, .02284, -.00188,
2315 + .00000, .01454, .03433,
2316 + .57241, .24190, .39151, .02237, -.00115,
2317 + .00000, .01440, .03299 /
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 + .56191, .23580, .36519, .02193, -.00061,
2320 + .00000, .01426, .03185,
2321 + .55176, .23001, .34182, .02149, -.00016,
2322 + .00000, .01407, .03076,
2323 + .54368, .22556, .32454, .02115, .00016,
2324 + .00000, .01392, .02990,
2325 + .52655, .21632, .29098, .02042, .00073,
2326 + .00000, .01355, .02820,
2327 + .51193, .20864, .26823, .01974, .00112,
2328 + -.00164, .01320, .02684,
2329 + .49585, .20041, .24108, .01900, .00148,
2330 + -.00104, .01278, .02538,
2331 + .47942, .19221, .21637, .01824, .00176,
2332 + -.00058, .01233, .02394,
2333 + .46489, .18506, .19662, .01755, .00196,
2334 + -.00024, .01188, .02274 /
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 + .45061, .17817, .17885, .01687, .00212,
2337 + .00006, .01146, .02157,
2338 + .43907, .17263, .16561, .01630, .00222,
2339 + .00026, .01109, .02064,
2340 + .42532, .16618, .15110, .01563, .00230,
2341 + .00046, .01070, .01960,
2342 + .41351, .16071, .13960, .01506, .00235,
2343 + .00061, .01033, .01871,
2344 + .40301, .15587, .13001, .01455, .00239,
2345 + .00073, .00998, .01793,
2346 + .38995, .14998, .11898, .01395, .00241,
2347 + .00085, .00959, .01700,
2348 + .37807, .14461, .10966, .01339, .00243,
2349 + .00095, .00921, .01618,
2350 + .36728, .13980, .10179, .01287, .00242,
2351 + .00102, .00886, .01544 /
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 + .35680, .13523, .09460, .01240, .00241,
2354 + .00107, .00854, .01472,
2355 + .34679, .13084, .08819, .01193, .00239,
2356 + .00111, .00823, .01408,
2357 + .33760, .12685, .08265, .01151, .00237,
2358 + .00115, .00794, .01350,
2359 + .32916, .12322, .07784, .01112, .00233,
2360 + .00117, .00767, .01299,
2361 + .32089, .11968, .07333, .01075, .00231,
2362 + .00119, .00741, .01249,
2363 + .31298, .11632, .06921, .01040, .00227,
2364 + .00120, .00717, .01202,
2365 + .30563, .11321, .06558, .01007, .00224,
2366 + .00121, .00695, .01159,
2367 + .29887, .11036, .06238, .00976, .00221,
2368 + .00122, .00674, .01120 /
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 + .29215, .10756, .05936, .00948, .00217,
2371 + .00122, .00655, .01081,
2372 + .28565, .10488, .05657, .00921, .00213,
2373 + .00121, .00636, .01046,
2374 + .27962, .10239, .05406, .00896, .00211,
2375 + .00122, .00617, .01012,
2376 + .27402, .10008, .05180, .00871, .00207,
2377 + .00121, .00601, .00981,
2378 + .26851, .09782, .04964, .00847, .00204,
2379 + .00121, .00584, .00951 /
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 + .65778, .29165, .60905, .02037, .00000,
2382 + .00000, .01058, .03623,
2383 + .64622, .28243, .55382, .02046, .00000,
2384 + .00000, .01108, .03456,
2385 + .62721, .26911, .49369, .02038, -.00557,
2386 + .00000, .01156, .03218,
2387 + .61235, .25970, .44546, .02015, -.00426,
2388 + .00000, .01168, .03062,
2389 + .59644, .24998, .40065, .01978, -.00312,
2390 + .00000, .01172, .02906,
2391 + .58255, .24187, .36631, .01936, -.00233,
2392 + .00000, .01166, .02782,
2393 + .56918, .23436, .33666, .01895, -.00168,
2394 + .00000, .01158, .02662,
2395 + .55502, .22668, .30825, .01853, -.00109,
2396 + .00000, .01142, .02541 /
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 + .54282, .22022, .28594, .01814, -.00065,
2399 + .00000, .01124, .02440,
2400 + .53120, .21414, .26621, .01772, -.00029,
2401 + .00000, .01105, .02350,
2402 + .52211, .20939, .25170, .01736, -.00004,
2403 + .00000, .01090, .02282,
2404 + .50302, .19973, .22380, .01664, .00042,
2405 + .00000, .01054, .02140,
2406 + .48690, .19190, .20481, .01603, .00074,
2407 + -.00131, .01023, .02022,
2408 + .46943, .18345, .18256, .01532, .00102,
2409 + -.00085, .00987, .01902,
2410 + .45184, .17510, .16249, .01460, .00123,
2411 + -.00050, .00945, .01790,
2412 + .43635, .16794, .14658, .01398, .00139,
2413 + -.00023, .00907, .01692 /
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 + .42120, .16104, .13241, .01340, .00150,
2416 + -.00001, .00872, .01594,
2417 + .40908, .15551, .12193, .01288, .00157,
2418 + .00014, .00842, .01525,
2419 + .39474, .14918, .11054, .01232, .00163,
2420 + .00029, .00807, .01438,
2421 + .38249, .14381, .10155, .01185, .00167,
2422 + .00040, .00776, .01366,
2423 + .37165, .13907, .09410, .01144, .00170,
2424 + .00049, .00747, .01304,
2425 + .35840, .13328, .08561, .01084, .00171,
2426 + .00058, .00714, .01234,
2427 + .34627, .12811, .07849, .01037, .00172,
2428 + .00065, .00683, .01171,
2429 + .33533, .12348, .07250, .00995, .00171,
2430 + .00070, .00655, .01115 /
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 + .32479, .11904, .06709, .00953, .00171,
2433 + .00074, .00628, .01060,
2434 + .31473, .11488, .06228, .00916, .00169,
2435 + .00077, .00604, .01010,
2436 + .30558, .11110, .05814, .00882, .00166,
2437 + .00079, .00583, .00963,
2438 + .29724, .10763, .05455, .00849, .00165,
2439 + .00082, .00563, .00923,
2440 + .28905, .10429, .05124, .00819, .00162,
2441 + .00082, .00542, .00884,
2442 + .28124, .10114, .04825, .00791, .00159,
2443 + .00083, .00522, .00848,
2444 + .27400, .09821, .04561, .00763, .00157,
2445 + .00084, .00503, .00815,
2446 + .26737, .09555, .04325, .00739, .00155,
2447 + .00084, .00487, .00786 /
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 + .26082, .09294, .04105, .00714, .00152,
2450 + .00084, .00472, .00758,
2451 + .25454, .09043, .03903, .00693, .00149,
2452 + .00084, .00457, .00732,
2453 + .24869, .08810, .03722, .00672, .00147,
2454 + .00084, .00443, .00707,
2455 + .24326, .08596, .03560, .00653, .00144,
2456 + .00083, .00431, .00685,
2457 + .23793, .08387, .03405, .00634, .00141,
2458 + .00082, .00419, .00663 /
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 + .65672, .28159, .50026, .01786, .00000,
2461 + .00000, .00832, .02817,
2462 + .64112, .27108, .45121, .01780, .00000,
2463 + .00000, .00874, .02673,
2464 + .61712, .25609, .39815, .01745, -.00473,
2465 + .00000, .00905, .02482,
2466 + .59921, .24566, .35615, .01711, -.00363,
2467 + .00000, .00919, .02352,
2468 + .58040, .23523, .31750, .01665, -.00267,
2469 + .00000, .00920, .02222,
2470 + .56424, .22662, .28810, .01624, -.00202,
2471 + .00000, .00916, .02115,
2472 + .54899, .21866, .26291, .01584, -.00148,
2473 + .00000, .00902, .02017,
2474 + .53313, .21055, .23900, .01538, -.00100,
2475 + .00000, .00886, .01920 /
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 + .51959, .20380, .22028, .01495, -.00064,
2478 + .00000, .00872, .01840,
2479 + .50677, .19752, .20388, .01457, -.00034,
2480 + .00000, .00857, .01763,
2481 + .49676, .19273, .19192, .01425, -.00015,
2482 + .00000, .00843, .01705,
2483 + .47611, .18291, .16900, .01353, .00023,
2484 + .00000, .00813, .01592,
2485 + .45894, .17489, .15350, .01294, .00047,
2486 + -.00105, .00783, .01504,
2487 + .44035, .16645, .13556, .01231, .00068,
2488 + -.00070, .00747, .01411,
2489 + .42187, .15818, .11955, .01166, .00085,
2490 + -.00042, .00714, .01319,
2491 + .40580, .15108, .10696, .01111, .00097,
2492 + -.00021, .00685, .01238 /
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 + .39020, .14431, .09586, .01058, .00106,
2495 + -.00005, .00656, .01161,
2496 + .37772, .13897, .08770, .01015, .00111,
2497 + .00007, .00629, .01105,
2498 + .36314, .13277, .07888, .00965, .00117,
2499 + .00019, .00602, .01039,
2500 + .35074, .12755, .07202, .00922, .00119,
2501 + .00027, .00577, .00987,
2502 + .33982, .12297, .06638, .00883, .00121,
2503 + .00034, .00555, .00942,
2504 + .32642, .11748, .05999, .00841, .00121,
2505 + .00039, .00527, .00882,
2506 + .31434, .11256, .05467, .00801, .00122,
2507 + .00044, .00502, .00833,
2508 + .30349, .10816, .05024, .00765, .00121,
2509 + .00048, .00480, .00790 /
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 + .29310, .10399, .04624, .00731, .00120,
2512 + .00051, .00461, .00747,
2513 + .28323, .10004, .04274, .00698, .00118,
2514 + .00053, .00440, .00712,
2515 + .27426, .09648, .03973, .00669, .00117,
2516 + .00055, .00420, .00680,
2517 + .26606, .09326, .03715, .00645, .00116,
2518 + .00056, .00404, .00648,
2519 + .25812, .09014, .03478, .00619, .00113,
2520 + .00057, .00390, .00621,
2521 + .25058, .08719, .03264, .00592, .00112,
2522 + .00058, .00375, .00594,
2523 + .24359, .08449, .03077, .00572, .00110,
2524 + .00058, .00361, .00569,
2525 + .23718, .08203, .02911, .00555, .00108,
2526 + .00058, .00350, .00547 /
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 + .23090, .07961, .02757, .00536, .00105,
2529 + .00057, .00337, .00527,
2530 + .22489, .07732, .02615, .00515, .00104,
2531 + .00057, .00325, .00508,
2532 + .21931, .07519, .02490, .00498, .00102,
2533 + .00057, .00315, .00491,
2534 + .21413, .07324, .02376, .00484, .00100,
2535 + .00057, .00306, .00471,
2536 + .20905, .07134, .02269, .00469, .00098,
2537 + .00057, .00297, .00455 /
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 + .65012, .26915, .40483, .01531, .00000,
2540 + .00000, .00643, .02143,
2541 + .63069, .25748, .36204, .01513, .00000,
2542 + .00000, .00680, .02027,
2543 + .60185, .24132, .31587, .01475, -.00401,
2544 + .00000, .00710, .01867,
2545 + .58109, .23026, .27986, .01433, -.00308,
2546 + .00000, .00716, .01765,
2547 + .55972, .21922, .24690, .01389, -.00228,
2548 + .00000, .00715, .01666,
2549 + .54167, .21022, .22217, .01346, -.00173,
2550 + .00000, .00704, .01585,
2551 + .52481, .20203, .20115, .01301, -.00130,
2552 + .00000, .00696, .01507,
2553 + .50749, .19375, .18129, .01254, -.00089,
2554 + .00000, .00686, .01425 /
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 + .49288, .18690, .16590, .01215, -.00060,
2557 + .00000, .00672, .01360,
2558 + .47910, .18054, .15251, .01176, -.00037,
2559 + .00000, .00657, .01306,
2560 + .46845, .17567, .14281, .01146, -.00021,
2561 + .00000, .00646, .01260,
2562 + .44655, .16587, .12430, .01086, .00009,
2563 + .00000, .00618, .01168,
2564 + .42856, .15799, .11196, .01035, .00028,
2565 + -.00084, .00592, .01098,
2566 + .40934, .14970, .09777, .00978, .00045,
2567 + -.00056, .00567, .01024,
2568 + .39031, .14160, .08522, .00924, .00058,
2569 + -.00035, .00538, .00954,
2570 + .37389, .13469, .07550, .00876, .00067,
2571 + -.00019, .00514, .00894 /
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 + .35811, .12815, .06701, .00828, .00074,
2574 + -.00006, .00487, .00838,
2575 + .34559, .12298, .06085, .00791, .00078,
2576 + .00003, .00468, .00794,
2577 + .33095, .11709, .05427, .00750, .00082,
2578 + .00011, .00444, .00740,
2579 + .31863, .11214, .04915, .00715, .00084,
2580 + .00017, .00425, .00699,
2581 + .30784, .10782, .04500, .00683, .00084,
2582 + .00022, .00406, .00667,
2583 + .29461, .10263, .04034, .00646, .00085,
2584 + .00027, .00384, .00623,
2585 + .28279, .09800, .03653, .00611, .00085,
2586 + .00030, .00365, .00586,
2587 + .27222, .09387, .03334, .00581, .00085,
2588 + .00033, .00349, .00554 /
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 + .26212, .08997, .03051, .00552, .00085,
2591 + .00036, .00333, .00524,
2592 + .25257, .08632, .02806, .00527, .00083,
2593 + .00036, .00317, .00496,
2594 + .24392, .08303, .02595, .00505, .00082,
2595 + .00038, .00304, .00471,
2596 + .23608, .08006, .02417, .00482, .00081,
2597 + .00038, .00292, .00450,
2598 + .22844, .07721, .02253, .00464, .00079,
2599 + .00039, .00281, .00429,
2600 + .22120, .07450, .02107, .00446, .00078,
2601 + .00039, .00269, .00411,
2602 + .21456, .07204, .01979, .00429, .00077,
2603 + .00040, .00259, .00394,
2604 + .20851, .06981, .01871, .00411, .00074,
2605 + .00039, .00249, .00377 /
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 + .20259, .06762, .01767, .00395, .00073,
2608 + .00039, .00239, .00361,
2609 + .19692, .06554, .01673, .00381, .00072,
2610 + .00040, .00229, .00347,
2611 + .19168, .06362, .01589, .00368, .00070,
2612 + .00039, .00222, .00333,
2613 + .18683, .06185, .01515, .00355, .00070,
2614 + .00039, .00214, .00323,
2615 + .18209, .06012, .01445, .00343, .00068,
2616 + .00039, .00207, .00310 /
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 + .63798, .25480, .32131, .01272, .00000,
2619 + .00000, .00496, .01597,
2620 + .61495, .24227, .28450, .01251, .00000,
2621 + .00000, .00524, .01511,
2622 + .58183, .22517, .24507, .01207, -.00338,
2623 + .00000, .00549, .01392,
2624 + .55857, .21365, .21456, .01171, -.00260,
2625 + .00000, .00556, .01313,
2626 + .53491, .20239, .18707, .01132, -.00193,
2627 + .00000, .00556, .01225,
2628 + .51543, .19317, .16658, .01085, -.00148,
2629 + .00000, .00552, .01163,
2630 + .49727, .18490, .14928, .01049, -.00112,
2631 + .00000, .00540, .01106,
2632 + .47870, .17662, .13321, .01010, -.00078,
2633 + .00000, .00526, .01045 /
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 + .46322, .16980, .12088, .00972, -.00055,
2636 + .00000, .00515, .00993,
2637 + .44882, .16344, .11019, .00935, -.00036,
2638 + .00000, .00505, .00950,
2639 + .43773, .15863, .10247, .00909, -.00023,
2640 + .00000, .00492, .00918,
2641 + .41512, .14899, .08795, .00852, .00000,
2642 + .00000, .00471, .00849,
2643 + .39668, .14129, .07838, .00811, .00015,
2644 + -.00066, .00453, .00789,
2645 + .37712, .13326, .06749, .00765, .00029,
2646 + -.00045, .00426, .00735,
2647 + .35797, .12549, .05798, .00714, .00039,
2648 + -.00029, .00403, .00682,
2649 + .34153, .11893, .05071, .00672, .00046,
2650 + -.00016, .00383, .00635 /
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 + .32576, .11271, .04442, .00636, .00051,
2653 + -.00007, .00363, .00591,
2654 + .31338, .10782, .03993, .00601, .00054,
2655 + .00000, .00347, .00565,
2656 + .29897, .10227, .03522, .00569, .00056,
2657 + .00006, .00326, .00525,
2658 + .28689, .09764, .03158, .00540, .00057,
2659 + .00010, .00311, .00493,
2660 + .27636, .09361, .02866, .00513, .00059,
2661 + .00014, .00297, .00467,
2662 + .26357, .08877, .02541, .00484, .00059,
2663 + .00018, .00280, .00436,
2664 + .25216, .08449, .02280, .00456, .00059,
2665 + .00021, .00265, .00408,
2666 + .24198, .08070, .02065, .00432, .00059,
2667 + .00023, .00251, .00385 /
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 + .23228, .07710, .01875, .00410, .00059,
2670 + .00025, .00239, .00363,
2671 + .22318, .07379, .01712, .00390, .00058,
2672 + .00026, .00227, .00343,
2673 + .21496, .07081, .01574, .00371, .00057,
2674 + .00027, .00217, .00324,
2675 + .20755, .06811, .01459, .00354, .00056,
2676 + .00028, .00207, .00309,
2677 + .20038, .06552, .01356, .00337, .00055,
2678 + .00028, .00197, .00294,
2679 + .19359, .06308, .01262, .00322, .00053,
2680 + .00028, .00189, .00279,
2681 + .18736, .06087, .01182, .00309, .00053,
2682 + .00028, .00181, .00267,
2683 + .18168, .05885, .01114, .00298, .00052,
2684 + .00029, .00174, .00256 /
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 + .17613, .05690, .01050, .00288, .00051,
2687 + .00028, .00168, .00244,
2688 + .17086, .05503, .00989, .00278, .00049,
2689 + .00028, .00161, .00236,
2690 + .16598, .05332, .00939, .00268, .00049,
2691 + .00028, .00156, .00225,
2692 + .16148, .05176, .00894, .00259, .00048,
2693 + .00028, .00151, .00216,
2694 + .15710, .05023, .00851, .00251, .00046,
2695 + .00028, .00145, .00207 /
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 + .62032, .23939, .24845, .01078, .00000,
2698 + .00000, .00350, .01132,
2699 + .59415, .22619, .21715, .01050, .00000,
2700 + .00000, .00383, .01078,
2701 + .55735, .20851, .18418, .01002, -.00283,
2702 + .00000, .00409, .00989,
2703 + .53218, .19671, .15887, .00957, -.00217,
2704 + .00000, .00416, .00940,
2705 + .50677, .18535, .13632, .00920, -.00162,
2706 + .00000, .00412, .00882,
2707 + .48602, .17611, .11979, .00878, -.00124,
2708 + .00000, .00408, .00836,
2709 + .46694, .16787, .10599, .00844, -.00095,
2710 + .00000, .00401, .00790,
2711 + .44760, .15965, .09328, .00806, -.00067,
2712 + .00000, .00392, .00747 /
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 + .43156, .15292, .08360, .00772, -.00049,
2715 + .00000, .00384, .00714,
2716 + .41674, .14680, .07537, .00743, -.00033,
2717 + .00000, .00375, .00676,
2718 + .40539, .14211, .06953, .00718, -.00023,
2719 + .00000, .00365, .00650,
2720 + .38236, .13277, .05861, .00672, -.00005,
2721 + .00000, .00346, .00597,
2722 + .36382, .12542, .05145, .00635, .00007,
2723 + -.00051, .00330, .00555,
2724 + .34432, .11775, .04336, .00593, .00018,
2725 + -.00035, .00313, .00514,
2726 + .32534, .11036, .03648, .00551, .00025,
2727 + -.00023, .00294, .00477,
2728 + .30911, .10413, .03131, .00516, .00031,
2729 + -.00014, .00277, .00445 /
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 + .29377, .09832, .02690, .00480, .00034,
2732 + -.00007, .00262, .00416,
2733 + .28159, .09380, .02381, .00460, .00036,
2734 + -.00002, .00250, .00387,
2735 + .26770, .08862, .02060, .00431, .00039,
2736 + .00003, .00236, .00358,
2737 + .25604, .08434, .01819, .00408, .00039,
2738 + .00006, .00223, .00337,
2739 + .24588, .08062, .01626, .00388, .00040,
2740 + .00009, .00212, .00321,
2741 + .23371, .07618, .01418, .00360, .00041,
2742 + .00012, .00199, .00299,
2743 + .22284, .07226, .01252, .00338, .00041,
2744 + .00013, .00188, .00280,
2745 + .21320, .06882, .01120, .00320, .00041,
2746 + .00015, .00178, .00262 /
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 + .20405, .06560, .01007, .00303, .00041,
2749 + .00016, .00168, .00244,
2750 + .19547, .06258, .00910, .00288, .00040,
2751 + .00017, .00159, .00230,
2752 + .18778, .05988, .00829, .00274, .00040,
2753 + .00018, .00152, .00219,
2754 + .18087, .05744, .00761, .00260, .00039,
2755 + .00018, .00145, .00209,
2756 + .17421, .05513, .00701, .00247, .00038,
2757 + .00019, .00138, .00198,
2758 + .16793, .05297, .00649, .00236, .00037,
2759 + .00019, .00132, .00188,
2760 + .16217, .05099, .00604, .00226, .00037,
2761 + .00020, .00126, .00179,
2762 + .15694, .04920, .00566, .00218, .00036,
2763 + .00020, .00122, .00171 /
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 + .15182, .04747, .00533, .00209, .00035,
2766 + .00020, .00117, .00162,
2767 + .14697, .04584, .00503, .00201, .00035,
2768 + .00021, .00112, .00154,
2769 + .14251, .04434, .00476, .00193, .00034,
2770 + .00021, .00107, .00149,
2771 + .13842, .04296, .00453, .00185, .00034,
2772 + .00021, .00103, .00143,
2773 + .13444, .04161, .00432, .00177, .00033,
2774 + .00021, .00098, .00137 /
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 + .59795, .22275, .18432, .00887, .00000,
2777 + .00000, .00241, .00780,
2778 + .56911, .20925, .15849, .00862, .00000,
2779 + .00000, .00265, .00745,
2780 + .52941, .19132, .13161, .00811, -.00234,
2781 + .00000, .00289, .00695,
2782 + .50242, .17962, .11124, .00780, -.00179,
2783 + .00000, .00297, .00651,
2784 + .47583, .16830, .09323, .00745, -.00134,
2785 + .00000, .00299, .00611,
2786 + .45417, .15927, .08036, .00710, -.00103,
2787 + .00000, .00294, .00580,
2788 + .43454, .15117, .06974, .00676, -.00079,
2789 + .00000, .00293, .00546,
2790 + .41484, .14315, .06014, .00642, -.00057,
2791 + .00000, .00286, .00513 /
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 + .39856, .13663, .05299, .00615, -.00043,
2794 + .00000, .00276, .00487,
2795 + .38355, .13072, .04689, .00590, -.00030,
2796 + .00000, .00268, .00465,
2797 + .37214, .12627, .04260, .00569, -.00022,
2798 + .00000, .00261, .00447,
2799 + .34915, .11738, .03479, .00528, -.00007,
2800 + .00000, .00247, .00410,
2801 + .33078, .11040, .02979, .00496, .00003,
2802 + -.00039, .00235, .00381,
2803 + .31158, .10318, .02416, .00463, .00011,
2804 + -.00027, .00223, .00351,
2805 + .29298, .09628, .01953, .00430, .00017,
2806 + -.00018, .00208, .00320,
2807 + .27729, .09050, .01612, .00402, .00021,
2808 + -.00011, .00194, .00298 /
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 + .26248, .08509, .01330, .00373, .00024,
2811 + -.00006, .00182, .00279,
2812 + .25087, .08090, .01137, .00351, .00025,
2813 + -.00003, .00173, .00262,
2814 + .23756, .07616, .00941, .00329, .00027,
2815 + .00001, .00164, .00242,
2816 + .22648, .07224, .00801, .00310, .00028,
2817 + .00003, .00154, .00227,
2818 + .21689, .06887, .00695, .00291, .00029,
2819 + .00004, .00146, .00212,
2820 + .20538, .06483, .00580, .00272, .00029,
2821 + .00006, .00136, .00197,
2822 + .19513, .06131, .00493, .00257, .00029,
2823 + .00007, .00127, .00183,
2824 + .18615, .05824, .00424, .00242, .00029,
2825 + .00008, .00121, .00171 /
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 + .17770, .05533, .00369, .00223, .00029,
2828 + .00009, .00114, .00162,
2829 + .16975, .05265, .00321, .00212, .00030,
2830 + .00010, .00107, .00151,
2831 + .16263, .05025, .00285, .00202, .00029,
2832 + .00010, .00102, .00143,
2833 + .15622, .04811, .00258, .00191, .00029,
2834 + .00011, .00096, .00135,
2835 + .15008, .04605, .00233, .00182, .00028,
2836 + .00011, .00092, .00128,
2837 + .14433, .04412, .00209, .00174, .00029,
2838 + .00012, .00087, .00121,
2839 + .13908, .04238, .00194, .00165, .00028,
2840 + .00012, .00084, .00115,
2841 + .13434, .04081, .00180, .00157, .00027,
2842 + .00012, .00081, .00110 /
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 + .12970, .03929, .00168, .00151, .00028,
2845 + .00013, .00078, .00105,
2846 + .12531, .03785, .00159, .00144, .00027,
2847 + .00013, .00074, .00101,
2848 + .12128, .03654, .00150, .00140, .00027,
2849 + .00013, .00071, .00096,
2850 + .11756, .03534, .00144, .00134, .00026,
2851 + .00013, .00067, .00092,
2852 + .11397, .03419, .00138, .00129, .00026,
2853 + .00013, .00064, .00089 /
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 + .57122, .20502, .12824, .00690, .00000,
2856 + .00000, .00161, .00531,
2857 + .54018, .19149, .10747, .00672, .00000,
2858 + .00000, .00190, .00507,
2859 + .49804, .17371, .08642, .00637, -.00190,
2860 + .00000, .00210, .00475,
2861 + .47010, .16219, .07060, .00608, -.00146,
2862 + .00000, .00218, .00446,
2863 + .44266, .15109, .05711, .00570, -.00109,
2864 + .00000, .00220, .00423,
2865 + .42055, .14236, .04748, .00548, -.00084,
2866 + .00000, .00216, .00399,
2867 + .40063, .13457, .03983, .00520, -.00065,
2868 + .00000, .00209, .00377,
2869 + .38081, .12690, .03296, .00491, -.00047,
2870 + .00000, .00207, .00355 /
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 + .36459, .12067, .02799, .00468, -.00036,
2873 + .00000, .00202, .00337,
2874 + .34963, .11504, .02387, .00447, -.00025,
2875 + .00000, .00194, .00319,
2876 + .33834, .11084, .02104, .00432, -.00020,
2877 + .00000, .00189, .00306,
2878 + .31576, .10249, .01593, .00396, -.00007,
2879 + .00000, .00179, .00282,
2880 + .29786, .09597, .01284, .00367, -.00001,
2881 + -.00030, .00169, .00264,
2882 + .27928, .08927, .00934, .00336, .00005,
2883 + -.00021, .00160, .00242,
2884 + .26141, .08291, .00655, .00308, .00010,
2885 + -.00014, .00150, .00222,
2886 + .24637, .07761, .00463, .00287, .00014,
2887 + -.00009, .00140, .00206 /
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 + .23222, .07268, .00313, .00267, .00017,
2890 + -.00005, .00129, .00189,
2891 + .22121, .06888, .00217, .00249, .00019,
2892 + -.00003, .00124, .00177,
2893 + .20869, .06460, .00125, .00230, .00021,
2894 + -.00001, .00114, .00164,
2895 + .19829, .06107, .00061, .00217, .00021,
2896 + .00000, .00108, .00154,
2897 + .18928, .05807, .00016, .00208, .00022,
2898 + .00001, .00102, .00144,
2899 + .17862, .05446, -.00025, .00189, .00024,
2900 + .00003, .00096, .00133,
2901 + .16918, .05135, -.00050, .00177, .00023,
2902 + .00003, .00089, .00124,
2903 + .16085, .04860, -.00068, .00166, .00024,
2904 + .00004, .00083, .00115 /
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 + .15303, .04604, -.00082, .00158, .00024,
2907 + .00005, .00079, .00108,
2908 + .14582, .04366, -.00089, .00147, .00023,
2909 + .00005, .00075, .00101,
2910 + .13935, .04156, -.00091, .00138, .00023,
2911 + .00006, .00072, .00095,
2912 + .13353, .03968, -.00093, .00132, .00023,
2913 + .00006, .00068, .00090,
2914 + .12796, .03790, -.00090, .00125, .00022,
2915 + .00006, .00065, .00084,
2916 + .12274, .03625, -.00087, .00117, .00023,
2917 + .00007, .00060, .00078,
2918 + .11802, .03474, -.00084, .00110, .00023,
2919 + .00007, .00058, .00075,
2920 + .11376, .03337, -.00078, .00105, .00022,
2921 + .00007, .00054, .00072 /
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 + .10962, .03207, -.00075, .00100, .00022,
2924 + .00007, .00052, .00068,
2925 + .10568, .03084, -.00071, .00097, .00021,
2926 + .00007, .00051, .00065,
2927 + .10208, .02972, -.00068, .00094, .00022,
2928 + .00008, .00049, .00062,
2929 + .09879, .02868, -.00062, .00089, .00022,
2930 + .00008, .00046, .00060,
2931 + .09559, .02768, -.00058, .00085, .00022,
2932 + .00008, .00045, .00058 /
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 + .54059, .18685, .07915, .00524, .00000,
2935 + .00000, .00117, .00342,
2936 + .50790, .17337, .06346, .00504, .00000,
2937 + .00000, .00142, .00337,
2938 + .46421, .15587, .04832, .00476, -.00153,
2939 + .00000, .00158, .00320,
2940 + .43558, .14472, .03680, .00447, -.00116,
2941 + .00000, .00162, .00309,
2942 + .40792, .13409, .02727, .00413, -.00087,
2943 + .00000, .00165, .00297,
2944 + .38574, .12569, .02084, .00389, -.00067,
2945 + .00000, .00163, .00279,
2946 + .36587, .11830, .01574, .00368, -.00051,
2947 + .00000, .00162, .00267,
2948 + .34619, .11109, .01144, .00345, -.00039,
2949 + .00000, .00156, .00253 /
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 + .33018, .10531, .00842, .00323, -.00029,
2952 + .00000, .00151, .00239,
2953 + .31557, .10003, .00603, .00306, -.00022,
2954 + .00000, .00149, .00227,
2955 + .30453, .09612, .00441, .00296, -.00017,
2956 + .00000, .00145, .00218,
2957 + .28265, .08841, .00167, .00273, -.00009,
2958 + .00000, .00138, .00197,
2959 + .26549, .08240, .00017, .00250, -.00003,
2960 + -.00022, .00128, .00185,
2961 + .24768, .07632, -.00156, .00232, .00001,
2962 + -.00016, .00117, .00168,
2963 + .23067, .07055, -.00281, .00213, .00005,
2964 + -.00011, .00110, .00152,
2965 + .21647, .06578, -.00356, .00197, .00008,
2966 + -.00007, .00104, .00139 /
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 + .20320, .06134, -.00403, .00183, .00010,
2969 + -.00005, .00095, .00131,
2970 + .19293, .05795, -.00428, .00172, .00011,
2971 + -.00004, .00090, .00123,
2972 + .18129, .05415, -.00442, .00159, .00013,
2973 + -.00002, .00084, .00113,
2974 + .17172, .05101, -.00441, .00148, .00014,
2975 + -.00001, .00078, .00104,
2976 + .16348, .04832, -.00437, .00138, .00015,
2977 + .00000, .00075, .00097,
2978 + .15362, .04517, -.00422, .00126, .00015,
2979 + .00000, .00069, .00090,
2980 + .14500, .04244, -.00406, .00118, .00016,
2981 + .00001, .00065, .00084,
2982 + .13745, .04004, -.00388, .00109, .00017,
2983 + .00002, .00060, .00080 /
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 + .13038, .03781, -.00367, .00100, .00017,
2986 + .00002, .00057, .00075,
2987 + .12384, .03577, -.00345, .00095, .00017,
2988 + .00002, .00052, .00068,
2989 + .11799, .03397, -.00326, .00089, .00018,
2990 + .00003, .00048, .00064,
2991 + .11280, .03235, -.00309, .00085, .00018,
2992 + .00003, .00047, .00061,
2993 + .10781, .03082, -.00290, .00080, .00018,
2994 + .00003, .00045, .00057,
2995 + .10315, .02940, -.00272, .00078, .00018,
2996 + .00003, .00041, .00053,
2997 + .09897, .02811, -.00256, .00073, .00019,
2998 + .00004, .00040, .00050,
2999 + .09519, .02695, -.00240, .00069, .00019,
3000 + .00004, .00039, .00047 /
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 + .09154, .02584, -.00226, .00065, .00019,
3003 + .00004, .00037, .00045,
3004 + .08808, .02480, -.00212, .00062, .00019,
3005 + .00004, .00034, .00044,
3006 + .08491, .02384, -.00198, .00059, .00019,
3007 + .00004, .00033, .00041,
3008 + .08202, .02297, -.00186, .00056, .00019,
3009 + .00004, .00032, .00040,
3010 + .07922, .02214, -.00175, .00054, .00019,
3011 + .00004, .00031, .00038 /
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 + .50684, .16946, .03629, .00446, .00000,
3014 + .00000, .00038, .00188,
3015 + .47324, .15630, .02546, .00422, .00000,
3016 + .00000, .00067, .00191,
3017 + .42889, .13933, .01584, .00390, -.00120,
3018 + .00000, .00087, .00192,
3019 + .40016, .12862, .00839, .00366, -.00091,
3020 + .00000, .00096, .00186,
3021 + .37261, .11850, .00260, .00339, -.00068,
3022 + .00000, .00099, .00175,
3023 + .35060, .11064, -.00113, .00323, -.00052,
3024 + .00000, .00100, .00169,
3025 + .33119, .10372, -.00377, .00299, -.00041,
3026 + .00000, .00102, .00157,
3027 + .31202, .09698, -.00586, .00279, -.00031,
3028 + .00000, .00098, .00149 /
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 + .29643, .09158, -.00719, .00266, -.00024,
3031 + .00000, .00094, .00143,
3032 + .28237, .08672, -.00818, .00255, -.00018,
3033 + .00000, .00093, .00135,
3034 + .27182, .08309, -.00869, .00240, -.00014,
3035 + .00000, .00090, .00130,
3036 + .25093, .07602, -.00935, .00215, -.00008,
3037 + .00000, .00083, .00118,
3038 + .23460, .07056, -.00952, .00198, -.00004,
3039 + -.00016, .00077, .00110,
3040 + .21789, .06501, -.00984, .00178, -.00001,
3041 + -.00012, .00070, .00104,
3042 + .20201, .05983, -.00980, .00163, .00002,
3043 + -.00009, .00066, .00092,
3044 + .18879, .05556, -.00963, .00152, .00004,
3045 + -.00007, .00063, .00084 /
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 + .17655, .05161, -.00931, .00138, .00006,
3048 + -.00005, .00059, .00080,
3049 + .16709, .04862, -.00894, .00129, .00007,
3050 + -.00004, .00055, .00071,
3051 + .15637, .04524, -.00844, .00119, .00008,
3052 + -.00003, .00051, .00065,
3053 + .14756, .04249, -.00799, .00112, .00009,
3054 + -.00002, .00048, .00062,
3055 + .14003, .04016, -.00759, .00106, .00009,
3056 + -.00002, .00046, .00058,
3057 + .13116, .03739, -.00705, .00096, .00010,
3058 + -.00001, .00043, .00053,
3059 + .12336, .03500, -.00653, .00090, .00010,
3060 + -.00001, .00038, .00048,
3061 + .11656, .03294, -.00609, .00084, .00011,
3062 + .00000, .00036, .00045 /
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 + .11023, .03102, -.00564, .00079, .00011,
3065 + .00000, .00034, .00041,
3066 + .10439, .02924, -.00523, .00073, .00011,
3067 + .00000, .00031, .00040,
3068 + .09921, .02768, -.00487, .00069, .00011,
3069 + .00000, .00029, .00038,
3070 + .09459, .02630, -.00454, .00065, .00012,
3071 + .00001, .00028, .00035,
3072 + .09022, .02499, -.00422, .00062, .00012,
3073 + .00001, .00025, .00033,
3074 + .08614, .02379, -.00393, .00057, .00012,
3075 + .00001, .00024, .00030,
3076 + .08243, .02270, -.00367, .00054, .00012,
3077 + .00001, .00023, .00028,
3078 + .07911, .02172, -.00343, .00052, .00012,
3079 + .00001, .00022, .00027 /
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 + .07591, .02078, -.00320, .00048, .00012,
3082 + .00001, .00021, .00025,
3083 + .07291, .01989, -.00301, .00046, .00012,
3084 + .00001, .00020, .00024,
3085 + .07016, .01909, -.00281, .00042, .00012,
3086 + .00001, .00019, .00024,
3087 + .06764, .01837, -.00264, .00041, .00012,
3088 + .00001, .00018, .00023,
3089 + .06522, .01767, -.00248, .00040, .00012,
3090 + .00001, .00016, .00022 /
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 + .47020, .15093, .00034, .00305, .00000,
3093 + .00000, .00031, .00119,
3094 + .43619, .13839, -.00581, .00289, .00000,
3095 + .00000, .00043, .00133,
3096 + .39175, .12243, -.01028, .00277, -.00091,
3097 + .00000, .00064, .00121,
3098 + .36331, .11243, -.01385, .00255, -.00069,
3099 + .00000, .00067, .00119,
3100 + .33631, .10302, -.01643, .00236, -.00051,
3101 + .00000, .00068, .00117,
3102 + .31508, .09571, -.01770, .00219, -.00040,
3103 + .00000, .00071, .00109,
3104 + .29621, .08936, -.01834, .00210, -.00032,
3105 + .00000, .00068, .00104,
3106 + .27778, .08320, -.01856, .00195, -.00024,
3107 + .00000, .00066, .00098 /
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 + .26301, .07827, -.01846, .00182, -.00019,
3110 + .00000, .00064, .00094,
3111 + .24963, .07387, -.01818, .00170, -.00015,
3112 + .00000, .00063, .00087,
3113 + .23966, .07062, -.01786, .00163, -.00012,
3114 + .00000, .00060, .00082,
3115 + .21998, .06422, -.01700, .00149, -.00008,
3116 + .00000, .00056, .00078,
3117 + .20472, .05936, -.01609, .00138, -.00005,
3118 + -.00012, .00052, .00072,
3119 + .18921, .05447, -.01528, .00125, -.00003,
3120 + -.00010, .00050, .00061,
3121 + .17457, .04987, -.01436, .00114, -.00001,
3122 + -.00008, .00047, .00059,
3123 + .16243, .04610, -.01343, .00105, .00001,
3124 + -.00006, .00042, .00056 /
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 + .15120, .04267, -.01243, .00095, .00002,
3127 + -.00005, .00038, .00048,
3128 + .14257, .04004, -.01167, .00089, .00003,
3129 + -.00004, .00037, .00047,
3130 + .13295, .03711, -.01077, .00081, .00003,
3131 + -.00004, .00033, .00044,
3132 + .12508, .03473, -.01001, .00074, .00004,
3133 + -.00003, .00031, .00040,
3134 + .11835, .03272, -.00930, .00069, .00004,
3135 + -.00003, .00027, .00038,
3136 + .11037, .03037, -.00849, .00065, .00005,
3137 + -.00002, .00024, .00034,
3138 + .10349, .02831, -.00778, .00058, .00005,
3139 + -.00002, .00025, .00030,
3140 + .09748, .02655, -.00714, .00053, .00005,
3141 + -.00002, .00022, .00028 /
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 + .09187, .02493, -.00657, .00050, .00006,
3144 + -.00001, .00021, .00027,
3145 + .08674, .02344, -.00606, .00047, .00006,
3146 + -.00001, .00021, .00026,
3147 + .08220, .02213, -.00558, .00044, .00006,
3148 + -.00001, .00018, .00023,
3149 + .07817, .02097, -.00519, .00042, .00006,
3150 + -.00001, .00017, .00022,
3151 + .07435, .01988, -.00481, .00039, .00006,
3152 + -.00001, .00017, .00020,
3153 + .07080, .01887, -.00445, .00037, .00006,
3154 + -.00001, .00016, .00019,
3155 + .06761, .01797, -.00414, .00036, .00006,
3156 + -.00001, .00015, .00018,
3157 + .06475, .01716, -.00387, .00033, .00006,
3158 + -.00001, .00015, .00017 /
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 + .06199, .01638, -.00362, .00032, .00006,
3161 + -.00001, .00013, .00017,
3162 + .05939, .01565, -.00336, .00030, .00007,
3163 + .00000, .00012, .00016,
3164 + .05704, .01499, -.00316, .00029, .00007,
3165 + .00000, .00012, .00016,
3166 + .05489, .01440, -.00296, .00029, .00007,
3167 + .00000, .00011, .00014,
3168 + .05282, .01383, -.00277, .00027, .00007,
3169 + .00000, .00011, .00013 /
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 + .43140, .13297, -.02885, .00197, .00000,
3172 + .00000, .00027, .00069,
3173 + .39747, .12118, -.03068, .00195, .00000,
3174 + .00000, .00037, .00074,
3175 + .35385, .10629, -.03028, .00181, -.00069,
3176 + .00000, .00046, .00076,
3177 + .32629, .09697, -.03083, .00168, -.00051,
3178 + .00000, .00050, .00080,
3179 + .30028, .08835, -.03059, .00153, -.00038,
3180 + .00000, .00054, .00077,
3181 + .27988, .08173, -.02981, .00144, -.00030,
3182 + .00000, .00053, .00075,
3183 + .26194, .07596, -.02869, .00137, -.00024,
3184 + .00000, .00049, .00070,
3185 + .24448, .07041, -.02735, .00127, -.00019,
3186 + .00000, .00049, .00065 /
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 + .23051, .06601, -.02612, .00120, -.00015,
3189 + .00000, .00047, .00063,
3190 + .21798, .06208, -.02489, .00114, -.00013,
3191 + .00000, .00043, .00061,
3192 + .20871, .05916, -.02390, .00107, -.00011,
3193 + .00000, .00041, .00059,
3194 + .19053, .05353, -.02182, .00093, -.00007,
3195 + .00000, .00041, .00054,
3196 + .17650, .04925, -.02011, .00086, -.00005,
3197 + -.00008, .00040, .00047,
3198 + .16227, .04496, -.01849, .00080, -.00004,
3199 + -.00007, .00036, .00042,
3200 + .14895, .04097, -.01681, .00070, -.00002,
3201 + -.00005, .00031, .00039,
3202 + .13799, .03772, -.01541, .00064, -.00001,
3203 + -.00004, .00028, .00038 /
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 + .12792, .03474, -.01406, .00058, .00000,
3206 + -.00003, .00028, .00034,
3207 + .12025, .03249, -.01301, .00054, .00000,
3208 + -.00003, .00025, .00031,
3209 + .11166, .02999, -.01183, .00048, .00001,
3210 + -.00002, .00023, .00028,
3211 + .10466, .02798, -.01084, .00044, .00001,
3212 + -.00002, .00020, .00026,
3213 + .09870, .02627, -.01001, .00041, .00001,
3214 + -.00002, .00019, .00025,
3215 + .09170, .02427, -.00905, .00039, .00002,
3216 + -.00001, .00019, .00022,
3217 + .08565, .02257, -.00822, .00035, .00002,
3218 + -.00001, .00018, .00019,
3219 + .08042, .02110, -.00750, .00033, .00002,
3220 + -.00001, .00017, .00017 /
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 + .07554, .01975, -.00685, .00031, .00002,
3223 + -.00001, .00016, .00017,
3224 + .07109, .01851, -.00625, .00029, .00002,
3225 + -.00001, .00013, .00015,
3226 + .06719, .01743, -.00574, .00027, .00002,
3227 + -.00001, .00013, .00014,
3228 + .06373, .01647, -.00529, .00024, .00002,
3229 + -.00001, .00012, .00012,
3230 + .06046, .01557, -.00488, .00023, .00002,
3231 + -.00001, .00010, .00013,
3232 + .05745, .01474, -.00451, .00020, .00003,
3233 + .00000, .00010, .00012,
3234 + .05470, .01400, -.00419, .00020, .00003,
3235 + .00000, .00009, .00012,
3236 + .05223, .01334, -.00389, .00020, .00003,
3237 + .00000, .00009, .00010 /
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 + .04991, .01271, -.00360, .00018, .00003,
3240 + .00000, .00008, .00009,
3241 + .04774, .01212, -.00336, .00015, .00003,
3242 + .00000, .00008, .00009,
3243 + .04576, .01159, -.00314, .00014, .00003,
3244 + .00000, .00008, .00009,
3245 + .04395, .01110, -.00295, .00014, .00003,
3246 + .00000, .00007, .00009,
3247 + .04221, .01064, -.00276, .00014, .00003,
3248 + .00000, .00007, .00008 /
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 + .39180, .11638, -.05244, .00166, .00000,
3251 + .00000, -.00011, .00022,
3252 + .35872, .10536, -.05049, .00155, .00000,
3253 + .00000, .00008, .00032,
3254 + .31655, .09159, -.04590, .00139, -.00050,
3255 + .00000, .00018, .00039,
3256 + .29013, .08312, -.04366, .00130, -.00037,
3257 + .00000, .00022, .00043,
3258 + .26532, .07531, -.04086, .00116, -.00028,
3259 + .00000, .00026, .00039,
3260 + .24608, .06933, -.03831, .00111, -.00022,
3261 + .00000, .00024, .00035,
3262 + .22934, .06416, -.03593, .00101, -.00018,
3263 + .00000, .00026, .00036,
3264 + .21311, .05919, -.03348, .00096, -.00014,
3265 + .00000, .00028, .00034 /
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 + .20015, .05527, -.03135, .00091, -.00012,
3268 + .00000, .00027, .00033,
3269 + .18867, .05179, -.02933, .00080, -.00010,
3270 + .00000, .00027, .00030,
3271 + .18011, .04922, -.02784, .00077, -.00008,
3272 + .00000, .00026, .00030,
3273 + .16341, .04426, -.02480, .00068, -.00006,
3274 + .00000, .00021, .00031,
3275 + .15066, .04054, -.02250, .00061, -.00005,
3276 + -.00006, .00019, .00029,
3277 + .13783, .03684, -.02029, .00056, -.00003,
3278 + -.00004, .00019, .00025,
3279 + .12588, .03339, -.01816, .00052, -.00002,
3280 + -.00003, .00017, .00021,
3281 + .11612, .03061, -.01641, .00046, -.00002,
3282 + -.00003, .00016, .00018 /
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 + .10717, .02808, -.01480, .00043, -.00001,
3285 + -.00002, .00015, .00016,
3286 + .10038, .02616, -.01357, .00038, -.00001,
3287 + -.00002, .00014, .00016,
3288 + .09280, .02406, -.01218, .00035, -.00001,
3289 + -.00002, .00011, .00014,
3290 + .08666, .02237, -.01109, .00032, .00000,
3291 + -.00001, .00010, .00013,
3292 + .08146, .02095, -.01018, .00030, .00000,
3293 + -.00001, .00010, .00012,
3294 + .07538, .01926, -.00912, .00028, .00000,
3295 + -.00001, .00009, .00012,
3296 + .07014, .01785, -.00822, .00025, .00000,
3297 + -.00001, .00008, .00010,
3298 + .06563, .01662, -.00748, .00024, .00000,
3299 + -.00001, .00008, .00011 /
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 + .06147, .01550, -.00679, .00022, .00000,
3302 + -.00001, .00007, .00010,
3303 + .05769, .01448, -.00617, .00019, .00000,
3304 + -.00001, .00007, .00008,
3305 + .05434, .01359, -.00564, .00018, .00001,
3306 + .00000, .00005, .00008,
3307 + .05139, .01281, -.00519, .00017, .00001,
3308 + .00000, .00006, .00008,
3309 + .04861, .01209, -.00477, .00017, .00001,
3310 + .00000, .00006, .00007,
3311 + .04605, .01142, -.00439, .00015, .00001,
3312 + .00000, .00006, .00005,
3313 + .04377, .01081, -.00405, .00014, .00001,
3314 + .00000, .00004, .00006,
3315 + .04175, .01028, -.00376, .00012, .00001,
3316 + .00000, .00004, .00006 /
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 + .03978, .00977, -.00349, .00012, .00001,
3319 + .00000, .00004, .00006,
3320 + .03794, .00930, -.00324, .00012, .00001,
3321 + .00000, .00005, .00004,
3322 + .03629, .00886, -.00303, .00012, .00001,
3323 + .00000, .00003, .00005,
3324 + .03478, .00848, -.00282, .00010, .00001,
3325 + .00000, .00003, .00005,
3326 + .03333, .00812, -.00265, .00011, .00001,
3327 + .00000, .00003, .00005 /
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 + .35086, .09954, -.06897, .00085, .00000,
3330 + .00000, .00006, .00021,
3331 + .31911, .08960, -.06380, .00083, .00000,
3332 + .00000, .00014, .00025,
3333 + .27910, .07726, -.05582, .00075, -.00035,
3334 + .00000, .00017, .00027,
3335 + .25421, .06975, -.05142, .00074, -.00027,
3336 + .00000, .00022, .00027,
3337 + .23106, .06284, -.04686, .00070, -.00020,
3338 + .00000, .00021, .00027,
3339 + .21323, .05755, -.04311, .00064, -.00016,
3340 + .00000, .00022, .00028,
3341 + .19778, .05301, -.03973, .00060, -.00013,
3342 + .00000, .00023, .00026,
3343 + .18289, .04868, -.03634, .00055, -.00010,
3344 + .00000, .00020, .00024 /
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 + .17112, .04529, -.03360, .00051, -.00008,
3347 + .00000, .00017, .00025,
3348 + .16061, .04228, -.03109, .00048, -.00007,
3349 + .00000, .00015, .00023,
3350 + .15287, .04009, -.02926, .00044, -.00006,
3351 + .00000, .00017, .00021,
3352 + .13787, .03587, -.02568, .00040, -.00005,
3353 + .00000, .00014, .00020,
3354 + .12652, .03269, -.02305, .00036, -.00004,
3355 + -.00004, .00014, .00017,
3356 + .11514, .02951, -.02047, .00032, -.00003,
3357 + -.00003, .00013, .00016,
3358 + .10456, .02663, -.01810, .00028, -.00002,
3359 + -.00002, .00012, .00015,
3360 + .09597, .02429, -.01617, .00026, -.00002,
3361 + -.00002, .00011, .00014 /
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 + .08815, .02218, -.01442, .00023, -.00001,
3364 + -.00001, .00009, .00012,
3365 + .08228, .02061, -.01314, .00021, -.00001,
3366 + -.00001, .00008, .00011,
3367 + .07572, .01887, -.01172, .00019, -.00001,
3368 + -.00001, .00009, .00010,
3369 + .07045, .01747, -.01059, .00017, -.00001,
3370 + -.00001, .00007, .00009,
3371 + .06601, .01629, -.00965, .00016, -.00001,
3372 + -.00001, .00007, .00007,
3373 + .06083, .01494, -.00859, .00015, -.00001,
3374 + -.00001, .00006, .00007,
3375 + .05638, .01378, -.00770, .00014, -.00001,
3376 + -.00001, .00006, .00007,
3377 + .05256, .01279, -.00693, .00012, .00000,
3378 + .00000, .00004, .00006 /
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 + .04904, .01189, -.00628, .00012, .00000,
3381 + .00000, .00005, .00005,
3382 + .04587, .01107, -.00569, .00011, .00000,
3383 + .00000, .00005, .00005,
3384 + .04308, .01036, -.00519, .00010, .00000,
3385 + .00000, .00005, .00005,
3386 + .04064, .00974, -.00474, .00008, .00000,
3387 + .00000, .00003, .00005,
3388 + .03833, .00916, -.00434, .00008, .00000,
3389 + .00000, .00003, .00003,
3390 + .03621, .00862, -.00399, .00008, .00000,
3391 + .00000, .00003, .00005,
3392 + .03433, .00815, -.00367, .00007, .00000,
3393 + .00000, .00003, .00003,
3394 + .03265, .00772, -.00341, .00007, .00000,
3395 + .00000, .00003, .00003 /
3396 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
3397 + .03105, .00732, -.00315, .00007, .00000,
3398 + .00000, .00003, .00003,
3399 + .02955, .00695, -.00291, .00006, .00000,
3400 + .00000, .00002, .00003,
3401 + .02820, .00662, -.00271, .00006, .00000,
3402 + .00000, .00002, .00002,
3403 + .02697, .00632, -.00253, .00006, .00000,
3404 + .00000, .00002, .00002,
3405 + .02580, .00603, -.00236, .00005, .00000,
3406 + .00000, .00002, .00002 /
3407 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
3408 + .27008, .07030, -.08515, .00039, .00000,
3409 + .00000, -.00002, .00001,
3410 + .24231, .06244, -.07543, .00035, .00000,
3411 + .00000, -.00001, .00003,
3412 + .20793, .05283, -.06306, .00029, -.00015,
3413 + .00000, .00002, .00011,
3414 + .18701, .04710, -.05594, .00027, -.00011,
3415 + .00000, .00007, .00009,
3416 + .16777, .04191, -.04928, .00027, -.00009,
3417 + .00000, .00007, .00009,
3418 + .15323, .03799, -.04416, .00024, -.00007,
3419 + .00000, .00006, .00010,
3420 + .14072, .03466, -.03977, .00021, -.00005,
3421 + .00000, .00006, .00011,
3422 + .12882, .03152, -.03559, .00020, -.00004,
3423 + .00000, .00005, .00010 /
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 + .11950, .02908, -.03232, .00018, -.00003,
3426 + .00000, .00005, .00008,
3427 + .11131, .02695, -.02950, .00015, -.00003,
3428 + .00000, .00008, .00008,
3429 + .10530, .02538, -.02741, .00013, -.00003,
3430 + .00000, .00006, .00008,
3431 + .09376, .02241, -.02352, .00014, -.00002,
3432 + .00000, .00006, .00006,
3433 + .08514, .02024, -.02071, .00012, -.00001,
3434 + -.00001, .00005, .00005,
3435 + .07661, .01809, -.01806, .00011, -.00001,
3436 + -.00001, .00005, .00005,
3437 + .06881, .01613, -.01568, .00012, -.00001,
3438 + -.00001, .00003, .00005,
3439 + .06255, .01458, -.01378, .00010, -.00001,
3440 + -.00001, .00004, .00004 /
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 + .05694, .01318, -.01212, .00008, -.00001,
3443 + -.00001, .00004, .00004,
3444 + .05270, .01215, -.01090, .00007, .00000,
3445 + .00000, .00003, .00004,
3446 + .04807, .01103, -.00960, .00007, .00000,
3447 + .00000, .00003, .00002,
3448 + .04435, .01012, -.00858, .00007, .00000,
3449 + .00000, .00003, .00002,
3450 + .04125, .00938, -.00777, .00007, .00000,
3451 + .00000, .00003, .00003,
3452 + .03769, .00852, -.00682, .00005, .00000,
3453 + .00000, .00003, .00002,
3454 + .03466, .00780, -.00606, .00004, .00000,
3455 + .00000, .00003, .00003,
3456 + .03207, .00719, -.00543, .00005, .00000,
3457 + .00000, .00003, .00003 /
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 + .02972, .00663, -.00486, .00005, .00000,
3460 + .00000, .00001, .00001,
3461 + .02761, .00614, -.00435, .00002, .00000,
3462 + .00000, .00001, .00001,
3463 + .02577, .00571, -.00394, .00002, .00000,
3464 + .00000, .00001, .00001,
3465 + .02415, .00533, -.00358, .00002, .00000,
3466 + .00000, .00001, .00001,
3467 + .02265, .00498, -.00326, .00002, .00000,
3468 + .00000, .00001, .00001,
3469 + .02127, .00466, -.00298, .00002, .00000,
3470 + .00000, .00001, .00001,
3471 + .02005, .00439, -.00274, .00002, .00000,
3472 + .00000, .00001, .00001,
3473 + .01898, .00414, -.00251, .00001, .00000,
3474 + .00000, .00001, .00001 /
3475 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/
3476 + .01795, .00390, -.00232, .00001, .00000,
3477 + .00000, .00001, .00001,
3478 + .01700, .00368, -.00214, .00003, .00000,
3479 + .00000, .00001, .00001,
3480 + .01613, .00349, -.00198, .00003, .00000,
3481 + .00000, .00001, .00001,
3482 + .01538, .00332, -.00184, .00001, .00000,
3483 + .00000, .00001, .00001,
3484 + .01464, .00315, -.00172, .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 + .19400, .04587, -.08162, .00015, .00000,
3488 + .00000, -.00004, -.00003,
3489 + .17151, .04018, -.07051, .00012, .00000,
3490 + .00000, -.00001, .00002,
3491 + .14427, .03337, -.05706, .00009, -.00006,
3492 + .00000, .00002, .00002,
3493 + .12799, .02934, -.04935, .00012, -.00004,
3494 + .00000, .00001, -.00001,
3495 + .11329, .02578, -.04250, .00008, -.00003,
3496 + .00000, .00002, .00002,
3497 + .10227, .02311, -.03742, .00008, -.00002,
3498 + .00000, .00002, .00002,
3499 + .09294, .02085, -.03317, .00010, -.00002,
3500 + .00000, .00000, .00003,
3501 + .08419, .01877, -.02919, .00006, -.00001,
3502 + .00000, .00001, .00003 /
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 + .07742, .01717, -.02621, .00006, -.00001,
3505 + .00000, .00001, .00003,
3506 + .07146, .01578, -.02362, .00008, -.00001,
3507 + .00000, .00001, .00001,
3508 + .06714, .01478, -.02178, .00008, -.00001,
3509 + .00000, .00001, .00001,
3510 + .05900, .01288, -.01833, .00004, -.00001,
3511 + .00000, .00001, .00001,
3512 + .05299, .01149, -.01590, .00004, -.00001,
3513 + -.00001, .00001, .00000,
3514 + .04712, .01014, -.01365, .00002, .00000,
3515 + .00000, .00001, .00001,
3516 + .04183, .00894, -.01165, .00000, .00000,
3517 + .00000, .00001, .00001,
3518 + .03762, .00800, -.01012, .00000, .00000,
3519 + .00000, .00002, .00002 /
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 + .03387, .00716, -.00881, .00003, .00000,
3522 + .00000, .00000, .00002,
3523 + .03109, .00654, -.00783, .00002, .00000,
3524 + .00000, .00000, .00002,
3525 + .02807, .00587, -.00682, .00002, .00000,
3526 + .00000, .00000, .00002,
3527 + .02568, .00536, -.00604, .00001, .00000,
3528 + .00000, .00000, .00001,
3529 + .02372, .00492, -.00541, .00001, .00000,
3530 + .00000, .00000, .00000,
3531 + .02145, .00443, -.00472, .00001, .00000,
3532 + .00000, .00000, .00001,
3533 + .01955, .00403, -.00414, .00001, .00000,
3534 + .00000, .00000, .00000,
3535 + .01794, .00367, -.00367, .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 + .01650, .00336, -.00327, .00001, .00000,
3539 + .00000, .00000, .00000,
3540 + .01520, .00309, -.00291, .00001, .00000,
3541 + .00000, .00000, .00000,
3542 + .01408, .00286, -.00261, .00001, .00000,
3543 + .00000, .00000, .00000,
3544 + .01312, .00264, -.00236, .00001, .00000,
3545 + .00000, .00000, .00000,
3546 + .01222, .00246, -.00214, .00001, .00000,
3547 + .00000, .00000, .00000,
3548 + .01141, .00229, -.00194, .00001, .00000,
3549 + .00000, .00000, .00000,
3550 + .01069, .00214, -.00177, .00001, .00000,
3551 + .00000, .00000, .00000,
3552 + .01006, .00201, -.00162, .00001, .00000,
3553 + .00000, .00000, .00000 /
3554 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/
3555 + .00946, .00188, -.00148, .00000, .00000,
3556 + .00000, .00000, .00000,
3557 + .00892, .00177, -.00136, .00000, .00000,
3558 + .00000, .00000, .00000,
3559 + .00843, .00167, -.00125, .00000, .00000,
3560 + .00000, .00000, .00000,
3561 + .00799, .00158, -.00116, .00000, .00000,
3562 + .00000, .00000, .00000,
3563 + .00757, .00149, -.00108, .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 + .12753, .02707, -.06558, .00009, .00000,
3567 + .00000, -.00004, -.00001,
3568 + .11100, .02334, -.05543, .00009, .00000,
3569 + .00000, -.00003, -.00003,
3570 + .09129, .01898, -.04367, .00009, -.00002,
3571 + .00000, -.00002, -.00002,
3572 + .07978, .01647, -.03704, .00004, -.00001,
3573 + .00000, -.00001, .00001,
3574 + .06959, .01424, -.03129, .00004, -.00001,
3575 + .00000, -.00001, -.00001,
3576 + .06202, .01262, -.02711, .00004, -.00001,
3577 + .00000, -.00001, -.00001,
3578 + .05572, .01126, -.02367, .00002, -.00001,
3579 + .00000, -.00001, -.00001,
3580 + .04986, .01002, -.02057, .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 + .04538, .00908, -.01825, .00002, .00000,
3584 + .00000, .00000, .00000,
3585 + .04150, .00826, -.01627, .00002, .00000,
3586 + .00000, .00000, .00000,
3587 + .03873, .00767, -.01488, .00002, .00000,
3588 + .00000, .00000, .00000,
3589 + .03350, .00660, -.01234, .00002, .00000,
3590 + .00000, .00000, .00000,
3591 + .02969, .00580, -.01058, .00002, .00000,
3592 + .00000, .00000, .00002,
3593 + .02606, .00506, -.00894, .00002, .00000,
3594 + .00000, .00000, .00000,
3595 + .02282, .00440, -.00752, .00002, .00000,
3596 + .00000, .00000, .00000,
3597 + .02028, .00389, -.00645, .00002, .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 + .01804, .00344, -.00552, .00000, .00000,
3601 + .00000, .00000, .00000,
3602 + .01641, .00311, -.00487, .00000, .00000,
3603 + .00000, .00000, .00000,
3604 + .01465, .00277, -.00420, .00000, .00000,
3605 + .00000, .00000, .00000,
3606 + .01328, .00250, -.00368, .00000, .00000,
3607 + .00000, .00000, .00000,
3608 + .01216, .00228, -.00327, .00000, .00000,
3609 + .00000, .00000, .00000,
3610 + .01088, .00202, -.00282, .00000, .00000,
3611 + .00000, .00000, .00000,
3612 + .00981, .00182, -.00245, .00000, .00000,
3613 + .00000, .00000, .00000,
3614 + .00893, .00165, -.00216, .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 + .00813, .00149, -.00190, .00000, .00000,
3618 + .00000, .00000, .00000,
3619 + .00743, .00137, -.00169, .00000, .00000,
3620 + .00000, .00000, .00000,
3621 + .00683, .00125, -.00150, .00000, .00000,
3622 + .00000, .00000, .00000,
3623 + .00632, .00115, -.00134, .00000, .00000,
3624 + .00000, .00000, .00000,
3625 + .00584, .00107, -.00122, .00000, .00000,
3626 + .00000, .00000, .00000,
3627 + .00542, .00099, -.00109, .00000, .00000,
3628 + .00000, .00000, .00000,
3629 + .00504, .00091, -.00098, .00000, .00000,
3630 + .00000, .00000, .00000,
3631 + .00471, .00085, -.00090, .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 + .00440, .00079, -.00081, .00000, .00000,
3635 + .00000, .00000, .00000,
3636 + .00412, .00074, -.00074, .00000, .00000,
3637 + .00000, .00000, .00000,
3638 + .00387, .00070, -.00068, .00000, .00000,
3639 + .00000, .00000, .00000,
3640 + .00366, .00066, -.00063, .00000, .00000,
3641 + .00000, .00000, .00000,
3642 + .00344, .00062, -.00058, .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 + .07383, .01359, -.04375, -.00001, .00000,
3646 + .00000, -.00001, -.00001,
3647 + .06314, .01156, -.03635, -.00001, .00000,
3648 + .00000, -.00001, -.00001,
3649 + .05068, .00921, -.02795, .00000, .00000,
3650 + .00000, .00000, .00000,
3651 + .04356, .00785, -.02330, .00000, .00000,
3652 + .00000, .00000, .00000,
3653 + .03730, .00670, -.01935, .00000, .00000,
3654 + .00000, .00000, .00000,
3655 + .03280, .00585, -.01653, .00000, .00000,
3656 + .00000, .00000, .00000,
3657 + .02906, .00515, -.01424, .00000, .00000,
3658 + .00000, .00000, .00000,
3659 + .02566, .00454, -.01222, .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 + .02307, .00407, -.01072, .00000, .00000,
3663 + .00000, .00000, .00000,
3664 + .02086, .00364, -.00943, .00000, .00000,
3665 + .00000, .00000, .00000,
3666 + .01929, .00336, -.00856, .00000, .00000,
3667 + .00000, .00000, .00000,
3668 + .01639, .00284, -.00697, .00000, .00000,
3669 + .00000, .00000, .00000,
3670 + .01434, .00248, -.00591, .00000, .00000,
3671 + .00000, .00000, .00000,
3672 + .01236, .00213, -.00490, .00000, .00000,
3673 + .00000, .00000, .00000,
3674 + .01066, .00182, -.00407, .00000, .00000,
3675 + .00000, .00000, .00000,
3676 + .00934, .00158, -.00344, .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 + .00819, .00140, -.00292, .00000, .00000,
3680 + .00000, .00000, .00000,
3681 + .00737, .00124, -.00254, .00000, .00000,
3682 + .00000, .00000, .00000,
3683 + .00650, .00110, -.00218, .00000, .00000,
3684 + .00000, .00000, .00000,
3685 + .00581, .00096, -.00187, .00000, .00000,
3686 + .00000, .00000, .00000,
3687 + .00526, .00086, -.00163, .00000, .00000,
3688 + .00000, .00000, .00000,
3689 + .00465, .00078, -.00141, .00000, .00000,
3690 + .00000, .00000, .00000,
3691 + .00415, .00068, -.00120, .00000, .00000,
3692 + .00000, .00000, .00000,
3693 + .00373, .00060, -.00105, .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 + .00335, .00054, -.00091, .00000, .00000,
3697 + .00000, .00000, .00000,
3698 + .00304, .00049, -.00080, .00000, .00000,
3699 + .00000, .00000, .00000,
3700 + .00277, .00045, -.00071, .00000, .00000,
3701 + .00000, .00000, .00000,
3702 + .00254, .00042, -.00063, .00000, .00000,
3703 + .00000, .00000, .00000,
3704 + .00232, .00037, -.00055, .00000, .00000,
3705 + .00000, .00000, .00000,
3706 + .00214, .00034, -.00050, .00000, .00000,
3707 + .00000, .00000, .00000,
3708 + .00198, .00032, -.00045, .00000, .00000,
3709 + .00000, .00000, .00000,
3710 + .00182, .00029, -.00040, .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 + .00171, .00027, -.00037, .00000, .00000,
3714 + .00000, .00000, .00000,
3715 + .00158, .00025, -.00033, .00000, .00000,
3716 + .00000, .00000, .00000,
3717 + .00148, .00023, -.00030, .00000, .00000,
3718 + .00000, .00000, .00000,
3719 + .00138, .00022, -.00027, .00000, .00000,
3720 + .00000, .00000, .00000,
3721 + .00130, .00020, -.00025, .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 + .01215, .00161, -.00910, .00000, .00000,
3725 + .00000, .00000, .00000,
3726 + .00982, .00129, -.00716, .00000, .00000,
3727 + .00000, .00000, .00000,
3728 + .00730, .00095, -.00513, .00000, .00000,
3729 + .00000, .00000, .00000,
3730 + .00597, .00078, -.00408, .00000, .00000,
3731 + .00000, .00000, .00000,
3732 + .00485, .00062, -.00321, .00000, .00000,
3733 + .00000, .00000, .00000,
3734 + .00408, .00052, -.00263, .00000, .00000,
3735 + .00000, .00000, .00000,
3736 + .00348, .00046, -.00220, .00000, .00000,
3737 + .00000, .00000, .00000,
3738 + .00296, .00037, -.00181, .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 + .00256, .00032, -.00153, .00000, .00000,
3742 + .00000, .00000, .00000,
3743 + .00225, .00029, -.00132, .00000, .00000,
3744 + .00000, .00000, .00000,
3745 + .00202, .00026, -.00116, .00000, .00000,
3746 + .00000, .00000, .00000,
3747 + .00163, .00021, -.00091, .00000, .00000,
3748 + .00000, .00000, .00000,
3749 + .00136, .00016, -.00073, .00000, .00000,
3750 + .00000, .00000, .00000,
3751 + .00113, .00014, -.00059, .00000, .00000,
3752 + .00000, .00000, .00000,
3753 + .00092, .00011, -.00046, .00000, .00000,
3754 + .00000, .00000, .00000,
3755 + .00077, .00009, -.00038, .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 + .00065, .00007, -.00030, .00000, .00000,
3759 + .00000, .00000, .00000,
3760 + .00057, .00007, -.00026, .00000, .00000,
3761 + .00000, .00000, .00000,
3762 + .00048, .00005, -.00021, .00000, .00000,
3763 + .00000, .00000, .00000,
3764 + .00042, .00005, -.00018, .00000, .00000,
3765 + .00000, .00000, .00000,
3766 + .00037, .00005, -.00016, .00000, .00000,
3767 + .00000, .00000, .00000,
3768 + .00031, .00003, -.00012, .00000, .00000,
3769 + .00000, .00000, .00000,
3770 + .00028, .00003, -.00011, .00000, .00000,
3771 + .00000, .00000, .00000,
3772 + .00024, .00003, -.00009, .00000, .00000,
3773 + .00000, .00000, .00000 /
3774 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
3775 + .00021, .00003, -.00008, .00000, .00000,
3776 + .00000, .00000, .00000,
3777 + .00018, .00002, -.00006, .00000, .00000,
3778 + .00000, .00000, .00000,
3779 + .00016, .00001, -.00005, .00000, .00000,
3780 + .00000, .00000, .00000,
3781 + .00014, .00001, -.00005, .00000, .00000,
3782 + .00000, .00000, .00000,
3783 + .00013, .00001, -.00004, .00000, .00000,
3784 + .00000, .00000, .00000,
3785 + .00011, .00001, -.00004, .00000, .00000,
3786 + .00000, .00000, .00000,
3787 + .00010, .00001, -.00003, .00000, .00000,
3788 + .00000, .00000, .00000,
3789 + .00010, .00001, -.00003, .00000, .00000,
3790 + .00000, .00000, .00000 /
3791 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
3792 + .00008, .00001, -.00003, .00000, .00000,
3793 + .00000, .00000, .00000,
3794 + .00008, .00001, -.00002, .00000, .00000,
3795 + .00000, .00000, .00000,
3796 + .00007, .00001, -.00002, .00000, .00000,
3797 + .00000, .00000, .00000,
3798 + .00007, .00001, -.00002, .00000, .00000,
3799 + .00000, .00000, .00000,
3800 + .00005, .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='ft23d.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