2 subroutine sfmrs_98d2(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 + .00633, .00311, 1.14392, .89438, .00000,
12 + .00000, .48061, .90764,
13 + .00647, .00317, 2.36832, .93385, .00000,
14 + .00000, .52497, .94724,
15 + .00668, .00324, 4.76149, 1.01541, .05290,
16 + .00000, .61357, 1.02896,
17 + .00684, .00331, 7.11672, 1.09185, .13518,
18 + .00000, .69498, 1.10550,
19 + .00701, .00336, 10.13798, 1.19087, .22724,
20 + .00000, .79911, 1.20459,
21 + .00716, .00342, 13.24386, 1.29192, .32134,
22 + .00000, .90447, 1.30571,
23 + .00729, .00348, 16.74708, 1.40164, .42795,
24 + .00000, 1.01823, 1.41549,
25 + .00745, .00354, 21.06366, 1.53279, .55824,
26 + .00000, 1.15357, 1.54669 /
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 + .00758, .00360, 25.26889, 1.66106, .68271,
29 + .00000, 1.28541, 1.67500,
30 + .00770, .00365, 29.78732, 1.79707, .81579,
31 + .00000, 1.42480, 1.81103,
32 + .00781, .00370, 33.74889, 1.91335, .93236,
33 + .00000, 1.54371, 1.92733,
34 + .00803, .00379, 43.31359, 2.18968, 1.20620,
35 + .00000, 1.82554, 2.20369,
36 + .00823, .00388, 52.13549, 2.45927, 1.47270,
37 + .35330, 2.09975, 2.47329,
38 + .00846, .00398, 63.64087, 2.79794, 1.80955,
39 + .74197, 2.44348, 2.81197,
40 + .00869, .00408, 77.14781, 3.19377, 2.20408,
41 + 1.15413, 2.84443, 3.20779,
42 + .00891, .00418, 90.79831, 3.59308, 2.60281,
43 + 1.57114, 3.24826, 3.60708 /
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 + .00912, .00428, 105.96921, 4.03695, 3.04715,
46 + 2.03410, 3.69657, 4.05093,
47 + .00932, .00437, 119.58295, 4.43747, 3.44712,
48 + 2.44601, 4.10068, 4.45142,
49 + .00954, .00447, 137.33309, 4.96295, 3.97126,
50 + 2.98376, 4.63045, 4.97687,
51 + .00975, .00456, 154.29370, 5.46657, 4.47525,
52 + 3.50335, 5.13774, 5.48044,
53 + .00993, .00465, 170.90085, 5.96176, 4.97174,
54 + 4.01556, 5.63625, 5.97560,
55 + .01018, .00476, 193.14832, 6.63353, 5.64232,
56 + 4.70066, 6.31213, 6.64731,
57 + .01041, .00487, 215.53217, 7.31399, 6.32313,
58 + 5.39817, 6.99636, 7.32771,
59 + .01062, .00497, 237.89236, 7.99742, 7.00897,
60 + 6.10328, 7.68325, 8.01108 /
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 + .01085, .00508, 261.11618, 8.71874, 7.72910,
63 + 6.83635, 8.40796, 8.73234,
64 + .01106, .00519, 285.13487, 9.46922, 8.48055,
65 + 7.60438, 9.16167, 9.48275,
66 + .01127, .00529, 308.95500, 10.21990, 9.23270,
67 + 8.37299, 9.91537, 10.23338,
68 + .01147, .00538, 332.12072, 10.95936, 9.97202,
69 + 9.12560, 10.65761, 10.97276,
70 + .01168, .00548, 356.55433, 11.74275, 10.75770,
71 + 9.92845, 11.44373, 11.75608,
72 + .01187, .00558, 381.08114, 12.54125, 11.55577,
73 + 10.73927, 12.24490, 12.55452,
74 + .01206, .00567, 405.53654, 13.33994, 12.35690,
75 + 11.55687, 13.04606, 13.35315,
76 + .01225, .00576, 428.98582, 14.11736, 13.13408,
77 + 12.34586, 13.82580, 14.13050 /
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 + .01244, .00585, 453.61158, 14.93700, 13.95558,
80 + 13.18241, 14.64774, 14.95009,
81 + .01262, .00595, 478.36330, 15.77066, 14.78999,
82 + 14.03006, 15.48364, 15.78370,
83 + .01280, .00603, 502.64206, 16.59465, 15.61508,
84 + 14.86841, 16.30972, 16.60762,
85 + .01297, .00612, 526.35150, 17.40418, 16.42664,
86 + 15.69397, 17.12122, 17.41710,
87 + .01315, .00620, 550.51563, 18.24012, 17.26282,
88 + 16.54167, 17.95913, 18.25298 /
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 + .00869, .00423, 1.05713, .75928, .00000,
91 + .00000, .40785, .76709,
92 + .00887, .00430, 2.16285, .79570, .00000,
93 + .00000, .44808, .80359,
94 + .00916, .00442, 4.27428, .86771, .04684,
95 + .00000, .52551, .87568,
96 + .00937, .00451, 6.30951, .93340, .11739,
97 + .00000, .59505, .94142,
98 + .00961, .00460, 8.87464, 1.01687, .19476,
99 + .00000, .68247, 1.02494,
100 + .00980, .00469, 11.47070, 1.10085, .27285,
101 + .00000, .76978, 1.10897,
102 + .00999, .00478, 14.36158, 1.19121, .36046,
103 + .00000, .86324, 1.19935,
104 + .01019, .00486, 17.87948, 1.29828, .46648,
105 + .00000, .97354, 1.30646 /
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 + .01038, .00495, 21.26568, 1.40206, .56683,
108 + .00000, 1.08006, 1.41025,
109 + .01055, .00502, 24.86737, 1.51133, .67333,
110 + .00000, 1.19193, 1.51953,
111 + .01069, .00508, 27.99928, 1.60427, .76606,
112 + .00000, 1.28690, 1.61250,
113 + .01099, .00522, 35.47525, 1.82329, .98201,
114 + .00000, 1.51015, 1.83152,
115 + .01127, .00534, 42.25191, 2.03486, 1.19005,
116 + .27601, 1.72528, 2.04310,
117 + .01157, .00548, 50.98762, 2.29825, 1.45054,
118 + .57679, 1.99256, 2.30650,
119 + .01188, .00563, 61.10448, 2.60317, 1.75267,
120 + .89192, 2.30139, 2.61141,
121 + .01218, .00577, 71.20002, 2.90800, 2.05523,
122 + 1.20775, 2.60970, 2.91624 /
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 + .01247, .00591, 82.29069, 3.24404, 2.38959,
125 + 1.55533, 2.94915, 3.25228,
126 + .01273, .00602, 92.13943, 3.54494, 2.68823,
127 + 1.86210, 3.25282, 3.55316,
128 + .01304, .00618, 104.85053, 3.93677, 3.07669,
129 + 2.25953, 3.64792, 3.94497,
130 + .01331, .00630, 116.87706, 4.30953, 3.44750,
131 + 2.64077, 4.02351, 4.31771,
132 + .01357, .00643, 128.55175, 4.67366, 3.81045,
133 + 3.01419, 4.39019, 4.68182,
134 + .01390, .00659, 144.04049, 5.16403, 4.29709,
135 + 3.50985, 4.88372, 5.17216,
136 + .01420, .00673, 159.47539, 5.65710, 4.78760,
137 + 4.01091, 5.37967, 5.66519,
138 + .01450, .00688, 174.76172, 6.14899, 5.27855,
139 + 4.51424, 5.87422, 6.15706 /
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 + .01479, .00703, 190.49539, 6.66457, 5.79043,
142 + 5.03367, 6.39240, 6.67261,
143 + .01509, .00717, 206.64128, 7.19768, 6.32142,
144 + 5.57480, 6.92800, 7.20568,
145 + .01537, .00731, 222.53323, 7.72778, 6.84981,
146 + 6.11320, 7.46041, 7.73575,
147 + .01563, .00744, 237.87297, 8.24690, 7.36618,
148 + 6.63726, 7.98167, 8.25484,
149 + .01590, .00758, 253.95277, 8.79409, 7.91232,
150 + 7.19380, 8.53097, 8.80200,
151 + .01617, .00771, 269.97499, 9.34868, 8.46387,
152 + 7.75248, 9.08761, 9.35655,
153 + .01642, .00784, 285.86359, 9.90085, 9.01518,
154 + 8.31361, 9.64170, 9.90871,
155 + .01667, .00796, 300.99577, 10.43556, 9.54720,
156 + 8.85212, 10.17818, 10.44337 /
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 + .01692, .00808, 316.80835, 10.99695, 10.10734,
159 + 9.42098, 10.74135, 11.00474,
160 + .01717, .00822, 332.60647, 11.56527, 10.67361,
161 + 9.99464, 11.31138, 11.57302,
162 + .01740, .00833, 348.02279, 12.12462, 11.23130,
163 + 10.55974, 11.87235, 12.13235,
164 + .01763, .00845, 363.00681, 12.67204, 11.77778,
165 + 11.11422, 12.42129, 12.67974,
166 + .01787, .00857, 378.19215, 13.23487, 12.33835,
167 + 11.68094, 12.98563, 13.24254 /
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 + .01190, .00574, .97586, .64487, .00000,
170 + .00000, .34675, .64892,
171 + .01216, .00585, 1.97436, .67819, .00000,
172 + .00000, .38299, .68227,
173 + .01254, .00602, 3.83597, .74148, .04169,
174 + .00000, .45047, .74560,
175 + .01283, .00615, 5.59313, .79779, .10208,
176 + .00000, .50975, .80192,
177 + .01314, .00629, 7.76811, .86801, .16697,
178 + .00000, .58300, .87215,
179 + .01341, .00642, 9.93429, .93765, .23164,
180 + .00000, .65518, .94180,
181 + .01367, .00654, 12.31503, 1.01185, .30346,
182 + .00000, .73178, 1.01602,
183 + .01396, .00667, 15.17541, 1.09901, .38954,
184 + .00000, .82142, 1.10319 /
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 + .01420, .00678, 17.89486, 1.18273, .47026,
187 + .00000, .90724, 1.18691,
188 + .01444, .00689, 20.75754, 1.27023, .55529,
189 + .00000, .99672, 1.27441,
190 + .01462, .00699, 23.22598, 1.34426, .62890,
191 + .00000, 1.07232, 1.34846,
192 + .01503, .00717, 29.05018, 1.51722, .79879,
193 + .00000, 1.24850, 1.52142,
194 + .01539, .00735, 34.23548, 1.68261, .96078,
195 + .21496, 1.41661, 1.68682,
196 + .01580, .00755, 40.84044, 1.88662, 1.16169,
197 + .44750, 1.62359, 1.89083,
198 + .01624, .00776, 48.38382, 2.12050, 1.39242,
199 + .68814, 1.86046, 2.12471,
200 + .01664, .00795, 55.81407, 2.35218, 1.62136,
201 + .92705, 2.09477, 2.35638 /
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 + .01705, .00816, 63.88035, 2.60541, 1.87222,
204 + 1.18767, 2.35060, 2.60960,
205 + .01739, .00832, 70.96682, 2.83040, 2.09454,
206 + 1.41580, 2.57769, 2.83458,
207 + .01780, .00853, 80.01763, 3.12114, 2.38150,
208 + 1.70904, 2.87092, 3.12532,
209 + .01817, .00871, 88.49480, 3.39566, 2.65343,
210 + 1.98829, 3.14759, 3.39984,
211 + .01851, .00888, 96.65139, 3.66207, 2.91785,
212 + 2.26001, 3.41593, 3.66624,
213 + .01895, .00910, 107.36499, 4.01815, 3.26974,
214 + 2.61788, 3.77442, 4.02231,
215 + .01937, .00931, 117.93656, 4.37351, 3.62184,
216 + 2.97703, 4.13198, 4.37766,
217 + .01977, .00951, 128.31450, 4.72563, 3.97192,
218 + 3.33548, 4.48611, 4.72977 /
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 + .02016, .00971, 138.89572, 5.09209, 4.33432,
221 + 3.70260, 4.85455, 5.09623,
222 + .02056, .00992, 149.66790, 5.46866, 4.70798,
223 + 4.08283, 5.23301, 5.47278,
224 + .02093, .01010, 160.18849, 5.84083, 5.07763,
225 + 4.45892, 5.60694, 5.84493,
226 + .02128, .01029, 170.26448, 6.20312, 5.43670,
227 + 4.82275, 5.97086, 6.20722,
228 + .02165, .01047, 180.75988, 6.58307, 5.81464,
229 + 5.20736, 6.35242, 6.58716,
230 + .02200, .01065, 191.13743, 6.96591, 6.19407,
231 + 5.59104, 6.73681, 6.96998,
232 + .02235, .01083, 201.37099, 7.34531, 6.57167,
233 + 5.97485, 7.11767, 7.34939,
234 + .02268, .01100, 211.04816, 7.71077, 6.93409,
235 + 6.34108, 7.48448, 7.71483 /
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 + .02300, .01117, 221.10939, 8.09286, 7.31416,
238 + 6.72653, 7.86792, 8.09691,
239 + .02333, .01134, 231.09804, 8.47778, 7.69651,
240 + 7.11328, 8.25415, 8.48182,
241 + .02365, .01150, 240.79332, 8.85501, 8.07150,
242 + 7.49270, 8.63262, 8.85905,
243 + .02396, .01166, 250.17130, 9.22275, 8.43758,
244 + 7.86362, 9.00151, 9.22678,
245 + .02426, .01182, 259.61782, 9.59914, 8.81136,
246 + 8.24091, 9.37905, 9.60316 /
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 + .01429, .00687, .93072, .58636, .00000,
249 + .00000, .31575, .58885,
250 + .01460, .00701, 1.87151, .61783, .00000,
251 + .00000, .34973, .62034,
252 + .01505, .00722, 3.60043, .67638, .03908,
253 + .00000, .41189, .67890,
254 + .01540, .00738, 5.21230, .72774, .09414,
255 + .00000, .46580, .73026,
256 + .01578, .00756, 7.18596, .79110, .15260,
257 + .00000, .53175, .79363,
258 + .01610, .00771, 9.13277, .85341, .21043,
259 + .00000, .59625, .85595,
260 + .01641, .00787, 11.25573, .91943, .27427,
261 + .00000, .66431, .92197,
262 + .01674, .00803, 13.78696, .99658, .35038,
263 + .00000, .74358, .99913 /
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 + .01704, .00817, 16.17572, 1.07027, .42133,
266 + .00000, .81906, 1.07281,
267 + .01732, .00830, 18.67475, 1.14695, .49576,
268 + .00000, .89745, 1.14950,
269 + .01755, .00841, 20.81881, 1.21164, .55998,
270 + .00000, .96346, 1.21419,
271 + .01804, .00865, 25.84282, 1.36196, .70741,
272 + .00000, 1.11656, 1.36452,
273 + .01847, .00886, 30.26764, 1.50485, .84713,
274 + .18529, 1.26177, 1.50740,
275 + .01897, .00911, 35.86355, 1.68015, 1.01947,
276 + .38518, 1.43958, 1.68269,
277 + .01949, .00937, 42.20140, 1.87993, 1.21621,
278 + .59053, 1.64191, 1.88248,
279 + .01997, .00961, 48.39572, 2.07675, 1.41038,
280 + .79328, 1.84098, 2.07929 /
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 + .02045, .00985, 55.07255, 2.29081, 1.62206,
283 + 1.01328, 2.05725, 2.29335,
284 + .02085, .01005, 60.90058, 2.48010, 1.80879,
285 + 1.20493, 2.24834, 2.48265,
286 + .02135, .01031, 68.29744, 2.72362, 2.04872,
287 + 1.45013, 2.49397, 2.72616,
288 + .02179, .01052, 75.18367, 2.95253, 2.27510,
289 + 1.68263, 2.72471, 2.95507,
290 + .02220, .01073, 81.77432, 3.17380, 2.49438,
291 + 1.90799, 2.94763, 3.17634,
292 + .02272, .01100, 90.37887, 3.46824, 2.78488,
293 + 2.20339, 3.24410, 3.47078,
294 + .02322, .01126, 98.81925, 3.76078, 3.07429,
295 + 2.49858, 3.53851, 3.76333,
296 + .02369, .01150, 107.06134, 4.04949, 3.36092,
297 + 2.79206, 3.82893, 4.05203 /
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 + .02416, .01174, 115.41668, 4.34869, 3.65635,
300 + 3.09127, 4.12982, 4.35123,
301 + .02463, .01198, 123.88225, 4.65499, 3.95988,
302 + 3.40010, 4.43773, 4.65753,
303 + .02507, .01221, 132.11141, 4.95664, 4.25909,
304 + 3.70449, 4.74087, 4.95918,
305 + .02549, .01243, 139.95535, 5.24923, 4.54870,
306 + 3.99786, 5.03485, 5.25177,
307 + .02592, .01265, 148.09519, 5.55516, 4.85265,
308 + 4.30714, 5.34214, 5.55771,
309 + .02635, .01287, 156.10504, 5.86233, 5.15669,
310 + 4.61452, 5.65064, 5.86488,
311 + .02675, .01309, 163.97810, 6.16593, 5.45853,
312 + 4.92128, 5.95548, 6.16848,
313 + .02713, .01328, 171.39014, 6.45743, 5.74724,
314 + 5.21295, 6.24812, 6.45998 /
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 + .02753, .01349, 179.07328, 6.76144, 6.04932,
317 + 5.51926, 6.55327, 6.76398,
318 + .02792, .01369, 186.67124, 7.06681, 6.35233,
319 + 5.82569, 6.85976, 7.06936,
320 + .02829, .01389, 194.02231, 7.36532, 6.64875,
321 + 6.12555, 7.15932, 7.36787,
322 + .02865, .01408, 201.11195, 7.65563, 6.93750,
323 + 6.41808, 7.45063, 7.65819,
324 + .02901, .01427, 208.22668, 7.95198, 7.23147,
325 + 6.71473, 7.74796, 7.95454 /
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 + .01627, .00781, .89987, .54824, .00000,
328 + .00000, .29567, .54989,
329 + .01662, .00797, 1.80186, .57839, .00000,
330 + .00000, .32808, .58004,
331 + .01715, .00822, 3.44219, .63373, .03738,
332 + .00000, .38665, .63537,
333 + .01754, .00841, 4.95806, .68179, .08891,
334 + .00000, .43701, .68344,
335 + .01796, .00862, 6.79970, .74063, .14315,
336 + .00000, .49818, .74229,
337 + .01833, .00879, 8.60372, .79816, .19652,
338 + .00000, .55767, .79982,
339 + .01868, .00897, 10.55983, .85887, .25522,
340 + .00000, .62022, .86054,
341 + .01906, .00915, 12.87934, .92955, .32488,
342 + .00000, .69280, .93122 /
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 + .01940, .00931, 15.05658, .99678, .38959,
345 + .00000, .76164, .99844,
346 + .01972, .00947, 17.32414, 1.06655, .45726,
347 + .00000, .83293, 1.06821,
348 + .01997, .00961, 19.26261, 1.12527, .51549,
349 + .00000, .89282, 1.12692,
350 + .02054, .00987, 23.78228, 1.26121, .64870,
351 + .00000, 1.03125, 1.26287,
352 + .02103, .01013, 27.73218, 1.38986, .77439,
353 + .16650, 1.16197, 1.39152,
354 + .02158, .01041, 32.70132, 1.54706, .92882,
355 + .34596, 1.32143, 1.54872,
356 + .02218, .01071, 38.29544, 1.72548, 1.10440,
357 + .52938, 1.50214, 1.72715,
358 + .02272, .01098, 43.73217, 1.90057, 1.27698,
359 + .70973, 1.67924, 1.90225 /
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 + .02326, .01126, 49.56230, 2.09032, 1.46446,
362 + .90472, 1.87095, 2.09198,
363 + .02373, .01149, 54.62750, 2.25755, 1.62929,
364 + 1.07397, 2.03979, 2.25922,
365 + .02428, .01178, 61.02708, 2.47198, 1.84040,
366 + 1.28982, 2.25610, 2.47367,
367 + .02479, .01204, 66.95882, 2.67291, 2.03896,
368 + 1.49385, 2.45867, 2.67460,
369 + .02525, .01227, 72.61410, 2.86660, 2.23076,
370 + 1.69106, 2.65382, 2.86829,
371 + .02584, .01258, 79.96508, 3.12350, 2.48404,
372 + 1.94868, 2.91255, 3.12520,
373 + .02640, .01287, 87.14494, 3.37793, 2.73557,
374 + 2.20532, 3.16865, 3.37963,
375 + .02693, .01315, 94.12939, 3.62831, 2.98401,
376 + 2.45979, 3.42056, 3.63002 /
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 + .02746, .01343, 101.18020, 3.88700, 3.23926,
379 + 2.71836, 3.68074, 3.88871,
380 + .02800, .01371, 108.29926, 4.15113, 3.50085,
381 + 2.98458, 3.94630, 4.15285,
382 + .02850, .01396, 115.19605, 4.41057, 3.75805,
383 + 3.24631, 4.20708, 4.41229,
384 + .02897, .01421, 121.74704, 4.66157, 4.00635,
385 + 3.49789, 4.45931, 4.66331,
386 + .02945, .01447, 128.52670, 4.92345, 4.26642,
387 + 3.76259, 4.72242, 4.92520,
388 + .02993, .01472, 135.17488, 5.18574, 4.52588,
389 + 4.02493, 4.98587, 5.18750,
390 + .03038, .01495, 141.69395, 5.44447, 4.78300,
391 + 4.28632, 5.24571, 5.44623,
392 + .03082, .01519, 147.81134, 5.69230, 5.02835,
393 + 4.53422, 5.49458, 5.69406 /
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 + .03126, .01542, 154.13878, 5.95031, 5.28463,
396 + 4.79415, 5.75361, 5.95210,
397 + .03171, .01566, 160.37807, 6.20894, 5.54114,
398 + 5.05360, 6.01324, 6.21073,
399 + .03212, .01587, 166.40038, 6.46130, 5.79164,
400 + 5.30705, 6.26653, 6.46310,
401 + .03252, .01609, 172.19622, 6.70631, 6.03524,
402 + 5.55390, 6.51242, 6.70812,
403 + .03293, .01631, 177.99640, 6.95592, 6.28276,
404 + 5.80371, 6.76291, 6.95774 /
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 + .01799, .00863, .87695, .52046, .00000,
407 + .00000, .28106, .52155,
408 + .01838, .00881, 1.74998, .54961, .00000,
409 + .00000, .31229, .55069,
410 + .01896, .00909, 3.32465, .60251, .03614,
411 + .00000, .36819, .60360,
412 + .01940, .00931, 4.76991, .64813, .08506,
413 + .00000, .41592, .64922,
414 + .01986, .00953, 6.51496, .70367, .13622,
415 + .00000, .47360, .70476,
416 + .02027, .00974, 8.21504, .75772, .18634,
417 + .00000, .52946, .75881,
418 + .02066, .00993, 10.05029, .81457, .24129,
419 + .00000, .58800, .81567,
420 + .02108, .01014, 12.21707, .88058, .30631,
421 + .00000, .65575, .88166 /
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 + .02145, .01032, 14.24238, .94315, .36652,
424 + .00000, .71981, .94425,
425 + .02181, .01050, 16.34430, 1.00794, .42933,
426 + .00000, .78600, 1.00903,
427 + .02209, .01065, 18.13608, 1.06237, .48328,
428 + .00000, .84152, 1.06346,
429 + .02270, .01096, 22.29738, 1.18803, .60635,
430 + .00000, .96944, 1.18913,
431 + .02325, .01123, 25.91254, 1.30653, .72209,
432 + .15311, 1.08986, 1.30764,
433 + .02387, .01155, 30.44159, 1.45089, .86384,
434 + .31811, 1.23630, 1.45202,
435 + .02451, .01187, 35.51606, 1.61421, 1.02448,
436 + .48608, 1.40171, 1.61534,
437 + .02510, .01218, 40.42590, 1.77399, 1.18190,
438 + .65073, 1.56334, 1.77512 /
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 + .02571, .01249, 45.66972, 1.94665, 1.35242,
441 + .82821, 1.73781, 1.94779,
442 + .02622, .01275, 50.20875, 2.09842, 1.50197,
443 + .98187, 1.89106, 2.09958,
444 + .02684, .01307, 55.92297, 2.29254, 1.69300,
445 + 1.17730, 2.08691, 2.29370,
446 + .02739, .01336, 61.20117, 2.47400, 1.87223,
447 + 1.36158, 2.26987, 2.47516,
448 + .02790, .01363, 66.21821, 2.64851, 2.04500,
449 + 1.53931, 2.44573, 2.64968,
450 + .02855, .01396, 72.71677, 2.87941, 2.27257,
451 + 1.77089, 2.67830, 2.88059,
452 + .02917, .01429, 79.04267, 3.10752, 2.49801,
453 + 2.00103, 2.90795, 3.10872,
454 + .02975, .01459, 85.17790, 3.33149, 2.72018,
455 + 2.22871, 3.13332, 3.33270 /
456 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
457 + .03034, .01490, 91.35070, 3.56234, 2.94790,
458 + 2.45946, 3.36555, 3.56357,
459 + .03091, .01520, 97.56629, 3.79756, 3.18079,
460 + 2.69659, 3.60208, 3.79880,
461 + .03146, .01550, 103.57156, 4.02813, 3.40932,
462 + 2.92924, 3.83388, 4.02938,
463 + .03199, .01578, 109.25998, 4.25076, 3.62949,
464 + 3.15240, 4.05763, 4.25202,
465 + .03252, .01605, 115.13431, 4.48263, 3.85973,
466 + 3.38684, 4.29063, 4.48392,
467 + .03304, .01633, 120.87867, 4.71441, 4.08898,
468 + 3.61871, 4.52348, 4.71570,
469 + .03355, .01660, 126.50099, 4.94270, 4.31580,
470 + 3.84939, 4.75279, 4.94400,
471 + .03401, .01685, 131.76296, 5.16097, 4.53185,
472 + 4.06775, 4.97200, 5.16229 /
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 + .03450, .01710, 137.19646, 5.38789, 4.75722,
475 + 4.29642, 5.19986, 5.38922,
476 + .03498, .01737, 142.54190, 5.61498, 4.98242,
477 + 4.52428, 5.42786, 5.61632,
478 + .03544, .01761, 147.69181, 5.83624, 5.20203,
479 + 4.74655, 5.64999, 5.83759,
480 + .03588, .01785, 152.63985, 6.05078, 5.41531,
481 + 4.96277, 5.86533, 6.05215,
482 + .03632, .01808, 157.58023, 6.26900, 5.63169,
483 + 5.18121, 6.08436, 6.27038 /
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 + .02464, .01184, .80938, .44363, .00000,
486 + .00000, .24119, .44381,
487 + .02517, .01210, 1.59908, .46957, .00000,
488 + .00000, .26879, .46976,
489 + .02595, .01250, 2.98536, .51530, .03280,
490 + .00000, .31685, .51549,
491 + .02655, .01280, 4.23050, .55389, .07426,
492 + .00000, .35708, .55407,
493 + .02718, .01312, 5.70448, .60004, .11669,
494 + .00000, .40493, .60023,
495 + .02773, .01341, 7.11542, .64432, .15776,
496 + .00000, .45063, .64453,
497 + .02826, .01368, 8.61694, .69047, .20235,
498 + .00000, .49809, .69068,
499 + .02883, .01398, 10.36527, .74355, .25460,
500 + .00000, .55253, .74377 /
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 + .02932, .01423, 11.97746, .79339, .30253,
503 + .00000, .60353, .79363,
504 + .02981, .01449, 13.63182, .84461, .35217,
505 + .00000, .65584, .84485,
506 + .03020, .01468, 15.02935, .88740, .39456,
507 + .00000, .69948, .88765,
508 + .03103, .01512, 18.23465, .98530, .49040,
509 + .00000, .79914, .98557,
510 + .03177, .01550, 20.96617, 1.07663, .57960,
511 + .11702, .89196, 1.07692,
512 + .03260, .01595, 24.34168, 1.18682, .68779,
513 + .24379, 1.00377, 1.18714,
514 + .03348, .01641, 28.06643, 1.31021, .80914,
515 + .37120, 1.12878, 1.31054,
516 + .03428, .01684, 31.61930, 1.42977, .92693,
517 + .49489, 1.24977, 1.43012 /
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 + .03510, .01727, 35.36477, 1.55780, 1.05342,
520 + .62701, 1.37921, 1.55819,
521 + .03577, .01763, 38.56849, 1.66944, 1.16343,
522 + .74042, 1.49199, 1.66985,
523 + .03661, .01808, 42.55525, 1.81107, 1.30284,
524 + .88348, 1.63496, 1.81151,
525 + .03736, .01848, 46.19713, 1.94242, 1.43263,
526 + 1.01735, 1.76748, 1.94289,
527 + .03804, .01884, 49.62524, 2.06788, 1.55687,
528 + 1.14557, 1.89397, 2.06838,
529 + .03890, .01931, 54.01575, 2.23256, 1.71923,
530 + 1.31123, 2.05995, 2.23309,
531 + .03974, .01976, 58.24323, 2.39397, 1.87882,
532 + 1.47461, 2.22254, 2.39453,
533 + .04051, .02018, 62.30372, 2.55133, 2.03501,
534 + 1.63514, 2.38099, 2.55193 /
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 + .04130, .02061, 66.34470, 2.71228, 2.19385,
537 + 1.79649, 2.54300, 2.71291,
538 + .04207, .02102, 70.37797, 2.87520, 2.35527,
539 + 1.96127, 2.70695, 2.87587,
540 + .04280, .02142, 74.24091, 3.03389, 2.51264,
541 + 2.12191, 2.86658, 3.03459,
542 + .04350, .02179, 77.86683, 3.18612, 2.66329,
543 + 2.27497, 3.01968, 3.18685,
544 + .04421, .02218, 81.58569, 3.34385, 2.82002,
545 + 2.43498, 3.17827, 3.34461,
546 + .04490, .02256, 85.18863, 3.50048, 2.97504,
547 + 2.59213, 3.33575, 3.50128,
548 + .04556, .02292, 88.69426, 3.65403, 3.12776,
549 + 2.74784, 3.49008, 3.65486,
550 + .04620, .02327, 91.94656, 3.79997, 3.27230,
551 + 2.89426, 3.63676, 3.80083 /
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 + .04684, .02361, 95.28675, 3.95105, 3.42249,
554 + 3.04702, 3.78855, 3.95194,
555 + .04747, .02395, 98.54770, 4.10141, 3.57173,
556 + 3.19837, 3.93964, 4.10234,
557 + .04808, .02429, 101.67026, 4.24726, 3.71662,
558 + 3.34536, 4.08615, 4.24822,
559 + .04866, .02461, 104.65404, 4.38809, 3.85677,
560 + 3.48778, 4.22761, 4.38907,
561 + .04925, .02493, 107.61046, 4.53062, 3.99821,
562 + 3.63087, 4.37075, 4.53163 /
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 + .03386, .01638, .75072, .37986, .00000,
565 + .00000, .20879, .38012,
566 + .03455, .01674, 1.46661, .40254, .00000,
567 + .00000, .23280, .40283,
568 + .03559, .01729, 2.68593, .44149, .03011,
569 + .00000, .27362, .44179,
570 + .03640, .01770, 3.75691, .47369, .06492,
571 + .00000, .30718, .47403,
572 + .03725, .01816, 4.99809, .51162, .09975,
573 + .00000, .34646, .51199,
574 + .03798, .01854, 6.16405, .54753, .13307,
575 + .00000, .38350, .54792,
576 + .03870, .01893, 7.38608, .58457, .16892,
577 + .00000, .42162, .58501,
578 + .03947, .01933, 8.78813, .62682, .21053,
579 + .00000, .46496, .62728 /
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 + .04013, .01970, 10.06242, .66611, .24836,
582 + .00000, .50518, .66660,
583 + .04079, .02005, 11.35441, .70618, .28724,
584 + .00000, .54613, .70669,
585 + .04131, .02032, 12.43537, .73947, .32026,
586 + .00000, .58012, .74002,
587 + .04243, .02093, 14.88188, .81495, .39425,
588 + .00000, .65701, .81554,
589 + .04342, .02147, 16.92565, .88460, .46238,
590 + .08775, .72785, .88524,
591 + .04454, .02208, 19.41259, .96780, .54422,
592 + .18450, .81235, .96849,
593 + .04572, .02273, 22.11251, 1.05999, .63508,
594 + .28047, .90584, 1.06074,
595 + .04680, .02331, 24.64885, 1.14843, .72241,
596 + .37272, .99543, 1.14924 /
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 + .04789, .02392, 27.28567, 1.24228, .81535,
599 + .47036, 1.09041, 1.24314,
600 + .04880, .02442, 29.51244, 1.32343, .89550,
601 + .55343, 1.17248, 1.32434,
602 + .04993, .02503, 32.24916, 1.42551, .99621,
603 + .65733, 1.27564, 1.42648,
604 + .05091, .02558, 34.71950, 1.51942, 1.08924,
605 + .75379, 1.37049, 1.52045,
606 + .05183, .02609, 37.02058, 1.60848, 1.17767,
607 + .84552, 1.46039, 1.60956,
608 + .05300, .02673, 39.93160, 1.72441, 1.29225,
609 + .96302, 1.57736, 1.72556,
610 + .05409, .02734, 42.70171, 1.83712, 1.40397,
611 + 1.07795, 1.69101, 1.83833,
612 + .05514, .02792, 45.33477, 1.94618, 1.51253,
613 + 1.19009, 1.80096, 1.94746 /
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 + .05618, .02850, 47.92364, 2.05685, 1.62201,
616 + 1.30182, 1.91247, 2.05818,
617 + .05720, .02907, 50.48313, 2.16810, 1.73253,
618 + 1.41519, 2.02455, 2.16950,
619 + .05818, .02961, 52.91129, 2.27574, 1.83958,
620 + 1.52497, 2.13295, 2.27719,
621 + .05910, .03012, 55.16744, 2.37829, 1.94133,
622 + 1.62882, 2.23622, 2.37981,
623 + .06003, .03064, 57.46453, 2.48397, 2.04665,
624 + 1.73686, 2.34260, 2.48554,
625 + .06095, .03115, 59.66653, 2.58820, 2.15008,
626 + 1.84217, 2.44751, 2.58984,
627 + .06184, .03165, 61.79581, 2.68988, 2.25149,
628 + 1.94606, 2.54982, 2.69157,
629 + .06266, .03211, 63.75135, 2.78590, 2.34685,
630 + 2.04308, 2.64644, 2.78764 /
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 + .06351, .03257, 65.74825, 2.88486, 2.44551,
633 + 2.14389, 2.74597, 2.88665,
634 + .06434, .03304, 67.68073, 2.98279, 2.54298,
635 + 2.24317, 2.84448, 2.98464,
636 + .06514, .03348, 69.51862, 3.07732, 2.63716,
637 + 2.33914, 2.93956, 3.07923,
638 + .06590, .03391, 71.26442, 3.16820, 2.72788,
639 + 2.43175, 3.03094, 3.17015,
640 + .06667, .03433, 72.97860, 3.25966, 2.81890,
641 + 2.52423, 3.12291, 3.26166 /
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 + .04078, .01987, .72455, .34796, .00000,
644 + .00000, .19285, .34865,
645 + .04160, .02029, 1.40130, .36870, .00000,
646 + .00000, .21479, .36942,
647 + .04283, .02095, 2.53143, .40381, .02873,
648 + .00000, .25160, .40460,
649 + .04379, .02147, 3.51044, .43257, .05995,
650 + .00000, .28156, .43340,
651 + .04479, .02200, 4.63000, .46614, .09078,
652 + .00000, .31635, .46702,
653 + .04566, .02247, 5.66938, .49768, .12007,
654 + .00000, .34890, .49861,
655 + .04651, .02293, 6.74836, .53004, .15143,
656 + .00000, .38222, .53102,
657 + .04742, .02343, 7.97485, .56676, .18764,
658 + .00000, .41993, .56780 /
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 + .04823, .02387, 9.07956, .60072, .22038,
661 + .00000, .45473, .60180,
662 + .04899, .02429, 10.19121, .63521, .25389,
663 + .00000, .49000, .63632,
664 + .04961, .02464, 11.11572, .66377, .28225,
665 + .00000, .51918, .66492,
666 + .05094, .02536, 13.19090, .72818, .34548,
667 + .00000, .58486, .72940,
668 + .05212, .02601, 14.90362, .78721, .40333,
669 + .07318, .64496, .78851,
670 + .05346, .02676, 16.96664, .85732, .47242,
671 + .15537, .71623, .85870,
672 + .05485, .02753, 19.18352, .93451, .54866,
673 + .23627, .79460, .93597,
674 + .05614, .02825, 21.24616, 1.00811, .62151,
675 + .31357, .86925, 1.00966 /
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 + .05743, .02897, 23.37182, 1.08580, .69859,
678 + .39491, .94795, 1.08743,
679 + .05851, .02958, 25.15242, 1.15262, .76473,
680 + .46374, 1.01559, 1.15432,
681 + .05983, .03032, 27.32358, 1.23625, .84744,
682 + .54942, 1.10020, 1.23804,
683 + .06101, .03097, 29.26869, 1.31281, .92346,
684 + .62857, 1.17761, 1.31467,
685 + .06209, .03158, 31.06856, 1.38509, .99540,
686 + .70351, 1.25065, 1.38703,
687 + .06347, .03236, 33.32754, 1.47871, 1.08814,
688 + .79898, 1.34520, 1.48073,
689 + .06477, .03309, 35.46112, 1.56926, 1.17812,
690 + .89193, 1.43662, 1.57137,
691 + .06600, .03379, 37.47578, 1.65650, 1.26516,
692 + .98220, 1.52466, 1.65870 /
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 + .06723, .03447, 39.44097, 1.74457, 1.35249,
695 + 1.07166, 1.61350, 1.74685,
696 + .06843, .03515, 41.37215, 1.83274, 1.44030,
697 + 1.16209, 1.70242, 1.83510,
698 + .06958, .03580, 43.19303, 1.91769, 1.52500,
699 + 1.24929, 1.78806, 1.92013,
700 + .07066, .03640, 44.87361, 1.99829, 1.60517,
701 + 1.33142, 1.86931, 2.00081,
702 + .07176, .03703, 46.57680, 2.08106, 1.68787,
703 + 1.41659, 1.95272, 2.08365,
704 + .07284, .03763, 48.19795, 2.16235, 1.76873,
705 + 1.49923, 2.03462, 2.16501,
706 + .07386, .03821, 49.75949, 2.24141, 1.84779,
707 + 1.58053, 2.11426, 2.24414,
708 + .07484, .03876, 51.18372, 2.31577, 1.92183,
709 + 1.65614, 2.18916, 2.31857 /
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 + .07582, .03931, 52.63284, 2.39219, 1.99822,
712 + 1.73449, 2.26612, 2.39507,
713 + .07680, .03986, 54.02694, 2.46755, 2.07342,
714 + 1.81137, 2.34200, 2.47049,
715 + .07773, .04039, 55.34690, 2.54007, 2.14587,
716 + 1.88547, 2.41502, 2.54308,
717 + .07862, .04090, 56.59577, 2.60961, 2.21547,
718 + 1.95679, 2.48503, 2.61268,
719 + .07952, .04140, 57.81432, 2.67933, 2.28505,
720 + 2.02775, 2.55522, 2.68247 /
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 + .04654, .02277, .71387, .32712, .00000,
723 + .00000, .18263, .32840,
724 + .04746, .02326, 1.36418, .34651, .00000,
725 + .00000, .20310, .34782,
726 + .04886, .02401, 2.43389, .37903, .02777,
727 + .00000, .23721, .38042,
728 + .04992, .02459, 3.35099, .40549, .05657,
729 + .00000, .26476, .40692,
730 + .05106, .02522, 4.38924, .43619, .08473,
731 + .00000, .29659, .43768,
732 + .05205, .02576, 5.34462, .46488, .11139,
733 + .00000, .32622, .46643,
734 + .05299, .02630, 6.32932, .49422, .13981,
735 + .00000, .35644, .49584,
736 + .05403, .02686, 7.44093, .52738, .17251,
737 + .00000, .39052, .52905 /
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 + .05493, .02737, 8.43540, .55793, .20197,
740 + .00000, .42183, .55965,
741 + .05580, .02785, 9.43049, .58885, .23203,
742 + .00000, .45349, .59062,
743 + .05651, .02824, 10.25434, .61440, .25742,
744 + .00000, .47960, .61622,
745 + .05800, .02908, 12.09229, .67178, .31379,
746 + .00000, .53816, .67369,
747 + .05933, .02982, 13.59546, .72412, .36513,
748 + .06393, .59152, .72612,
749 + .06083, .03068, 15.39207, .78602, .42621,
750 + .13695, .65449, .78810,
751 + .06242, .03157, 17.30792, .85384, .49327,
752 + .20838, .72340, .85604,
753 + .06386, .03238, 19.07764, .91823, .55708,
754 + .27633, .78876, .92052 /
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 + .06532, .03321, 20.88942, .98591, .62433,
757 + .34755, .85739, .98830,
758 + .06654, .03391, 22.39783, 1.04389, .68182,
759 + .40759, .91614, 1.04636,
760 + .06803, .03475, 24.22613, 1.11619, .75343,
761 + .48202, .98934, 1.11877,
762 + .06936, .03550, 25.85478, 1.18213, .81901,
763 + .55054, 1.05608, 1.18480,
764 + .07057, .03619, 27.35428, 1.24419, .88088,
765 + .61521, 1.11885, 1.24694,
766 + .07212, .03706, 29.22489, 1.32424, .96033,
767 + .69727, 1.19979, 1.32711,
768 + .07358, .03790, 30.98160, 1.40139, 1.03713,
769 + .77686, 1.27775, 1.40437,
770 + .07496, .03868, 32.63212, 1.47547, 1.11118,
771 + .85392, 1.35257, 1.47854 /
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 + .07634, .03947, 34.23224, 1.54997, 1.18519,
774 + .92999, 1.42780, 1.55314,
775 + .07769, .04024, 35.79742, 1.62432, 1.25938,
776 + 1.00663, 1.50286, 1.62759,
777 + .07898, .04096, 37.26628, 1.69573, 1.33072,
778 + 1.08033, 1.57492, 1.69908,
779 + .08019, .04166, 38.61488, 1.76327, 1.39802,
780 + 1.14950, 1.64307, 1.76671,
781 + .08141, .04235, 39.97685, 1.83246, 1.46729,
782 + 1.22107, 1.71285, 1.83599,
783 + .08262, .04303, 41.26590, 1.90017, 1.53479,
784 + 1.29027, 1.78116, 1.90379,
785 + .08376, .04369, 42.50396, 1.96589, 1.60066,
786 + 1.35824, 1.84742, 1.96959,
787 + .08486, .04431, 43.62694, 2.02751, 1.66213,
788 + 1.42121, 1.90955, 2.03130 /
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 + .08595, .04493, 44.76645, 2.09070, 1.72544,
791 + 1.48636, 1.97326, 2.09457,
792 + .08704, .04555, 45.85744, 2.15285, 1.78760,
793 + 1.55011, 2.03591, 2.15680,
794 + .08808, .04614, 46.88680, 2.21252, 1.84735,
795 + 1.61142, 2.09605, 2.21656,
796 + .08907, .04670, 47.85778, 2.26962, 1.90463,
797 + 1.67032, 2.15359, 2.27373,
798 + .09006, .04726, 48.80029, 2.32674, 1.96173,
799 + 1.72874, 2.21114, 2.33091 /
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 + .05157, .02545, .71442, .31295, .00000,
802 + .00000, .17535, .31427,
803 + .05257, .02600, 1.34424, .33124, .00000,
804 + .00000, .19466, .33262,
805 + .05410, .02683, 2.36776, .36177, .02693,
806 + .00000, .22663, .36325,
807 + .05528, .02749, 3.23771, .38647, .05392,
808 + .00000, .25235, .38801,
809 + .05652, .02818, 4.21427, .41500, .08009,
810 + .00000, .28193, .41664,
811 + .05761, .02878, 5.10630, .44157, .10478,
812 + .00000, .30936, .44326,
813 + .05867, .02937, 6.02018, .46865, .13104,
814 + .00000, .33727, .47041,
815 + .05980, .03001, 7.04587, .49918, .16117,
816 + .00000, .36863, .50101 /
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 + .06079, .03056, 7.95833, .52722, .18822,
819 + .00000, .39739, .52912,
820 + .06175, .03111, 8.86709, .55551, .21575,
821 + .00000, .42637, .55748,
822 + .06251, .03154, 9.61666, .57886, .23896,
823 + .00000, .45024, .58088,
824 + .06416, .03248, 11.28037, .63112, .29035,
825 + .00000, .50360, .63325,
826 + .06563, .03331, 12.63079, .67862, .33698,
827 + .05730, .55202, .68084,
828 + .06728, .03425, 14.23441, .73457, .39224,
829 + .12363, .60899, .73692,
830 + .06902, .03524, 15.93355, .79564, .45270,
831 + .18821, .67110, .79811,
832 + .07061, .03614, 17.49363, .85342, .51003,
833 + .24944, .72977, .85601 /
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 + .07221, .03707, 19.08195, .91394, .57023,
836 + .31338, .79118, .91664,
837 + .07355, .03782, 20.39755, .96562, .62154,
838 + .36710, .84359, .96841,
839 + .07518, .03875, 21.98412, 1.02987, .68525,
840 + .43350, .90869, 1.03278,
841 + .07662, .03958, 23.39068, 1.08827, .74341,
842 + .49444, .96784, 1.09130,
843 + .07796, .04034, 24.68023, 1.14310, .79815,
844 + .55181, 1.02333, 1.14622,
845 + .07965, .04132, 26.28053, 1.21360, .86820,
846 + .62435, 1.09466, 1.21684,
847 + .08124, .04222, 27.77627, 1.28132, .93571,
848 + .69450, 1.16314, 1.28468,
849 + .08275, .04309, 29.17573, 1.34615, 1.00063,
850 + .76225, 1.22869, 1.34963 /
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 + .08425, .04394, 30.52515, 1.41116, 1.06530,
853 + .82889, 1.29438, 1.41475,
854 + .08573, .04478, 31.83996, 1.47586, 1.12996,
855 + .89587, 1.35975, 1.47956,
856 + .08713, .04558, 33.06881, 1.53786, 1.19199,
857 + .96012, 1.42236, 1.54167,
858 + .08844, .04634, 34.19201, 1.59632, 1.25035,
859 + 1.02026, 1.48139, 1.60023,
860 + .08978, .04710, 35.32300, 1.65607, 1.31029,
861 + 1.08236, 1.54172, 1.66009,
862 + .09108, .04785, 36.38801, 1.71441, 1.36854,
863 + 1.14224, 1.60061, 1.71852,
864 + .09233, .04856, 37.40839, 1.77092, 1.42527,
865 + 1.20094, 1.65764, 1.77512,
866 + .09351, .04922, 38.32942, 1.82376, 1.47809,
867 + 1.25519, 1.71097, 1.82806 /
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 + .09471, .04991, 39.26187, 1.87786, 1.53240,
870 + 1.31123, 1.76557, 1.88226,
871 + .09588, .05058, 40.15093, 1.93094, 1.58558,
872 + 1.36593, 1.81912, 1.93543,
873 + .09701, .05121, 40.98721, 1.98182, 1.63662,
874 + 1.41845, 1.87044, 1.98638,
875 + .09808, .05182, 41.77397, 2.03041, 1.68547,
876 + 1.46882, 1.91945, 2.03506,
877 + .09915, .05244, 42.53403, 2.07890, 1.73406,
878 + 1.51866, 1.96837, 2.08364 /
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 + .07103, .03613, .74006, .27424, .00000,
881 + .00000, .15591, .27668,
882 + .07236, .03690, 1.31025, .28914, .00000,
883 + .00000, .17162, .29166,
884 + .07440, .03806, 2.19823, .31363, .02418,
885 + .00000, .19729, .31630,
886 + .07596, .03898, 2.93056, .33318, .04590,
887 + .00000, .21767, .33596,
888 + .07764, .03994, 3.72989, .35551, .06645,
889 + .00000, .24084, .35840,
890 + .07909, .04078, 4.44211, .37606, .08565,
891 + .00000, .26212, .37907,
892 + .08050, .04161, 5.15706, .39683, .10592,
893 + .00000, .28356, .39995,
894 + .08202, .04249, 5.94402, .42005, .12897,
895 + .00000, .30748, .42328 /
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 + .08335, .04326, 6.63101, .44119, .14945,
898 + .00000, .32920, .44450,
899 + .08463, .04402, 7.30443, .46235, .17016,
900 + .00000, .35093, .46577,
901 + .08567, .04463, 7.85295, .47970, .18750,
902 + .00000, .36873, .48320,
903 + .08787, .04592, 9.04982, .51817, .22554,
904 + .00000, .40812, .52186,
905 + .08982, .04705, 9.99709, .55269, .25963,
906 + .03927, .44341, .55653,
907 + .09204, .04834, 11.09603, .59290, .29957,
908 + .08793, .48447, .59690,
909 + .09434, .04969, 12.23524, .63624, .34274,
910 + .13458, .52868, .64043,
911 + .09644, .05091, 13.25978, .67674, .38318,
912 + .17828, .56995, .68110 /
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 + .09856, .05215, 14.28325, .71869, .42519,
915 + .22341, .61267, .72322,
916 + .10033, .05318, 15.11603, .75413, .46062,
917 + .26093, .64873, .75881,
918 + .10247, .05443, 16.10287, .79774, .50416,
919 + .30681, .69307, .80259,
920 + .10438, .05554, 16.96335, .83698, .54353,
921 + .34852, .73295, .84199,
922 + .10612, .05655, 17.74071, .87348, .58023,
923 + .38743, .77002, .87863,
924 + .10833, .05783, 18.68785, .91992, .62671,
925 + .43611, .81718, .92525,
926 + .11041, .05903, 19.55818, .96405, .67105,
927 + .48271, .86198, .96955,
928 + .11236, .06016, 20.36043, 1.00592, .71330,
929 + .52730, .90447, 1.01158 /
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 + .11431, .06128, 21.11910, 1.04743, .75494,
932 + .57069, .94658, 1.05326,
933 + .11622, .06238, 21.84806, 1.08840, .79622,
934 + .61394, .98814, 1.09438,
935 + .11803, .06342, 22.51951, 1.12730, .83549,
936 + .65509, 1.02758, 1.13343,
937 + .11972, .06439, 23.12288, 1.16365, .87209,
938 + .69324, 1.06445, 1.16993,
939 + .12143, .06537, 23.72410, 1.20055, .90944,
940 + .73239, 1.10185, 1.20697,
941 + .12309, .06632, 24.27947, 1.23623, .94539,
942 + .76978, 1.13802, 1.24278,
943 + .12468, .06724, 24.80711, 1.27058, .98021,
944 + .80624, 1.17283, 1.27726,
945 + .12618, .06809, 25.27418, 1.30240, 1.01233,
946 + .83962, 1.20509, 1.30921 /
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 + .12769, .06896, 25.74325, 1.33481, 1.04518,
949 + .87392, 1.23793, 1.34174,
950 + .12918, .06980, 26.18300, 1.36634, 1.07711,
951 + .90716, 1.26989, 1.37340,
952 + .13060, .07061, 26.59182, 1.39637, 1.10755,
953 + .93886, 1.30032, 1.40354,
954 + .13195, .07137, 26.97261, 1.42488, 1.13652,
955 + .96911, 1.32921, 1.43217,
956 + .13330, .07214, 27.33333, 1.45311, 1.16511,
957 + .99880, 1.35782, 1.46051 /
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 + .09809, .05187, .84340, .24309, .00000,
960 + .00000, .13963, .24727,
961 + .09986, .05292, 1.35324, .25464, .00000,
962 + .00000, .15186, .25896,
963 + .10258, .05455, 2.10882, .27351, .02034,
964 + .00000, .17170, .27806,
965 + .10468, .05582, 2.70862, .28843, .03745,
966 + .00000, .18733, .29316,
967 + .10691, .05716, 3.34369, .30531, .05319,
968 + .00000, .20493, .31023,
969 + .10886, .05832, 3.89362, .32070, .06778,
970 + .00000, .22093, .32580,
971 + .11075, .05945, 4.43265, .33615, .08306,
972 + .00000, .23694, .34140,
973 + .11279, .06066, 5.01274, .35325, .10027,
974 + .00000, .25466, .35869 /
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 + .11456, .06172, 5.50830, .36867, .11542,
977 + .00000, .27059, .37426,
978 + .11627, .06275, 5.98517, .38399, .13059,
979 + .00000, .28640, .38973,
980 + .11765, .06357, 6.36790, .39647, .14322,
981 + .00000, .29927, .40233,
982 + .12058, .06532, 7.18687, .42384, .17062,
983 + .00000, .32745, .42997,
984 + .12317, .06684, 7.81703, .44805, .19482,
985 + .02459, .35235, .45440,
986 + .12607, .06856, 8.52533, .47588, .22283,
987 + .05939, .38093, .48249,
988 + .12911, .07034, 9.24057, .50543, .25266,
989 + .09217, .41127, .51232,
990 + .13184, .07195, 9.86780, .53269, .28024,
991 + .12248, .43922, .53981 /
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 + .13462, .07356, 10.47991, .56054, .30852,
994 + .15337, .46776, .56791,
995 + .13692, .07491, 10.96696, .58379, .33208,
996 + .17873, .49159, .59137,
997 + .13968, .07651, 11.53143, .61203, .36068,
998 + .20938, .52050, .61985,
999 + .14213, .07793, 12.01342, .63715, .38625,
1000 + .23694, .54621, .64519,
1001 + .14437, .07924, 12.44080, .66026, .40985,
1002 + .26239, .56987, .66850,
1003 + .14720, .08086, 12.94873, .68929, .43936,
1004 + .29382, .59956, .69779,
1005 + .14984, .08238, 13.40512, .71653, .46718,
1006 + .32357, .62744, .72526,
1007 + .15232, .08379, 13.81765, .74209, .49341,
1008 + .35175, .65357, .75104 /
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 + .15476, .08519, 14.19694, .76711, .51892,
1011 + .37881, .67916, .77626,
1012 + .15716, .08656, 14.55452, .79154, .54398,
1013 + .40555, .70414, .80090,
1014 + .15941, .08783, 14.87710, .81448, .56757,
1015 + .43073, .72761, .82405,
1016 + .16151, .08902, 15.15969, .83568, .58933,
1017 + .45384, .74930, .84544,
1018 + .16363, .09022, 15.43736, .85702, .61136,
1019 + .47737, .77114, .86696,
1020 + .16570, .09138, 15.68577, .87741, .63231,
1021 + .49958, .79199, .88752,
1022 + .16765, .09248, 15.91922, .89689, .65248,
1023 + .52112, .81193, .90718,
1024 + .16949, .09350, 16.11901, .91474, .67089,
1025 + .54063, .83020, .92519 /
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 + .17134, .09454, 16.31744, .93279, .68959,
1028 + .56055, .84867, .94339,
1029 + .17314, .09555, 16.49796, .95017, .70760,
1030 + .57968, .86647, .96094,
1031 + .17486, .09650, 16.66247, .96660, .72464,
1032 + .59779, .88329, .97750,
1033 + .17649, .09741, 16.81317, .98209, .74075,
1034 + .61496, .89915, .99313,
1035 + .17812, .09831, 16.95042, .99724, .75648,
1036 + .63166, .91468, 1.00842 /
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 + .11854, .06416, .95677, .22637, .00000,
1039 + .00000, .13035, .23208,
1040 + .12065, .06546, 1.42247, .23612, .00000,
1041 + .00000, .14072, .24203,
1042 + .12389, .06745, 2.09790, .25201, .01716,
1043 + .00000, .15751, .25821,
1044 + .12639, .06897, 2.61953, .26452, .03191,
1045 + .00000, .17069, .27094,
1046 + .12904, .07058, 3.16113, .27860, .04524,
1047 + .00000, .18545, .28529,
1048 + .13135, .07197, 3.62157, .29138, .05752,
1049 + .00000, .19880, .29827,
1050 + .13359, .07333, 4.06588, .30411, .07032,
1051 + .00000, .21208, .31122,
1052 + .13600, .07478, 4.53700, .31816, .08466,
1053 + .00000, .22671, .32549 /
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 + .13809, .07603, 4.93376, .33074, .09719,
1056 + .00000, .23978, .33827,
1057 + .14013, .07725, 5.31096, .34316, .10967,
1058 + .00000, .25268, .35088,
1059 + .14175, .07822, 5.61076, .35325, .12001,
1060 + .00000, .26314, .36113,
1061 + .14520, .08027, 6.24396, .37521, .14228,
1062 + .00000, .28588, .38340,
1063 + .14822, .08205, 6.72243, .39443, .16177,
1064 + .01733, .30578, .40292,
1065 + .15162, .08405, 7.24702, .41633, .18412,
1066 + .04552, .32843, .42513,
1067 + .15513, .08609, 7.76705, .43937, .20770,
1068 + .07178, .35224, .44850,
1069 + .15832, .08794, 8.21496, .46041, .22930,
1070 + .09584, .37396, .46983 /
1071 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
1072 + .16151, .08980, 8.64476, .48172, .25126,
1073 + .12016, .39597, .49144,
1074 + .16415, .09132, 8.98111, .49935, .26940,
1075 + .13997, .41417, .50931,
1076 + .16733, .09315, 9.36451, .52060, .29126,
1077 + .16372, .43609, .53084,
1078 + .17013, .09475, 9.68670, .53933, .31065,
1079 + .18492, .45542, .54984,
1080 + .17268, .09621, 9.96826, .55644, .32841,
1081 + .20435, .47307, .56718,
1082 + .17588, .09802, 10.29620, .57774, .35045,
1083 + .22817, .49504, .58876,
1084 + .17888, .09971, 10.58567, .59755, .37105,
1085 + .25054, .51549, .60885,
1086 + .18167, .10128, 10.84328, .61599, .39033,
1087 + .27158, .53453, .62754 /
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 + .18442, .10281, 11.07403, .63386, .40894,
1090 + .29163, .55299, .64567,
1091 + .18710, .10431, 11.28810, .65119, .42708,
1092 + .31129, .57088, .66324,
1093 + .18961, .10571, 11.47772, .66735, .44406,
1094 + .32970, .58757, .67962,
1095 + .19195, .10699, 11.63964, .68215, .45958,
1096 + .34647, .60287, .69462,
1097 + .19430, .10829, 11.79677, .69697, .47523,
1098 + .36347, .61819, .70965,
1099 + .19657, .10954, 11.93270, .71098, .48999,
1100 + .37939, .63270, .72386,
1101 + .19873, .11073, 12.05926, .72433, .50414,
1102 + .39477, .64650, .73739,
1103 + .20073, .11181, 12.16334, .73643, .51695,
1104 + .40859, .65904, .74967 /
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 + .20276, .11292, 12.26563, .74861, .52991,
1107 + .42265, .67165, .76203,
1108 + .20473, .11398, 12.35531, .76025, .54230,
1109 + .43607, .68372, .77384,
1110 + .20661, .11500, 12.43506, .77117, .55397,
1111 + .44871, .69505, .78493,
1112 + .20838, .11595, 12.50666, .78143, .56496,
1113 + .46065, .70569, .79532,
1114 + .21014, .11689, 12.56815, .79139, .57560,
1115 + .47217, .71603, .80542 /
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 + .13563, .07464, 1.06249, .21477, .00000,
1118 + .00000, .12351, .22186,
1119 + .13804, .07614, 1.49349, .22333, .00000,
1120 + .00000, .13267, .23066,
1121 + .14173, .07842, 2.10878, .23727, .01432,
1122 + .00000, .14748, .24496,
1123 + .14455, .08016, 2.57305, .24821, .02755,
1124 + .00000, .15907, .25619,
1125 + .14756, .08199, 3.04817, .26048, .03936,
1126 + .00000, .17201, .26876,
1127 + .15017, .08357, 3.44651, .27156, .05019,
1128 + .00000, .18365, .28009,
1129 + .15270, .08509, 3.82628, .28257, .06142,
1130 + .00000, .19520, .29135,
1131 + .15541, .08671, 4.22439, .29466, .07394,
1132 + .00000, .20787, .30370 /
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 + .15777, .08813, 4.55603, .30541, .08481,
1135 + .00000, .21912, .31469,
1136 + .16004, .08949, 4.86825, .31600, .09561,
1137 + .00000, .23018, .32551,
1138 + .16187, .09057, 5.11455, .32455, .10451,
1139 + .00000, .23912, .33424,
1140 + .16573, .09285, 5.62963, .34308, .12357,
1141 + .00000, .25844, .35315,
1142 + .16909, .09481, 6.01363, .35918, .14013,
1143 + .01270, .27520, .36956,
1144 + .17285, .09699, 6.42510, .37737, .15898,
1145 + .03678, .29416, .38811,
1146 + .17675, .09923, 6.82684, .39636, .17872,
1147 + .05904, .31393, .40748,
1148 + .18025, .10126, 7.16767, .41356, .19667,
1149 + .07927, .33185, .42501 /
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 + .18377, .10326, 7.49006, .43086, .21481,
1152 + .09960, .34986, .44264,
1153 + .18666, .10490, 7.73872, .44508, .22970,
1154 + .11605, .36465, .45713,
1155 + .19012, .10686, 8.01792, .46209, .24751,
1156 + .13566, .38236, .47446,
1157 + .19317, .10856, 8.24925, .47699, .26320,
1158 + .15304, .39787, .48964,
1159 + .19594, .11012, 8.44874, .49050, .27752,
1160 + .16891, .41196, .50342,
1161 + .19942, .11204, 8.67662, .50720, .29516,
1162 + .18823, .42937, .52044,
1163 + .20264, .11382, 8.87430, .52264, .31154,
1164 + .20626, .44546, .53616,
1165 + .20563, .11547, 9.04752, .53691, .32678,
1166 + .22313, .46034, .55070 /
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 + .20858, .11709, 9.19853, .55063, .34139,
1169 + .23910, .47465, .56468,
1170 + .21144, .11864, 9.33628, .56383, .35557,
1171 + .25470, .48845, .57815,
1172 + .21412, .12009, 9.45582, .57609, .36874,
1173 + .26921, .50126, .59063,
1174 + .21659, .12142, 9.55488, .58722, .38074,
1175 + .28237, .51290, .60198,
1176 + .21908, .12276, 9.64967, .59832, .39277,
1177 + .29565, .52453, .61330,
1178 + .22148, .12404, 9.72813, .60874, .40405,
1179 + .30802, .53544, .62392,
1180 + .22375, .12525, 9.80043, .61860, .41483,
1181 + .31993, .54580, .63398,
1182 + .22585, .12636, 9.85655, .62749, .42451,
1183 + .33056, .55512, .64304 /
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 + .22798, .12748, 9.91098, .63638, .43429,
1186 + .34135, .56448, .65212,
1187 + .23004, .12856, 9.95593, .64483, .44358,
1188 + .35159, .57337, .66074,
1189 + .23199, .12958, 9.99431, .65271, .45229,
1190 + .36121, .58168, .66878,
1191 + .23382, .13054, 10.02757, .66007, .46046,
1192 + .37026, .58945, .67630,
1193 + .23564, .13149, 10.05289, .66716, .46833,
1194 + .37894, .59693, .68354 /
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 + .15051, .08386, 1.15878, .20546, .00000,
1197 + .00000, .11779, .21378,
1198 + .15317, .08555, 1.55959, .21319, .00000,
1199 + .00000, .12611, .22179,
1200 + .15726, .08810, 2.12559, .22575, .01177,
1201 + .00000, .13951, .23477,
1202 + .16039, .09000, 2.54388, .23558, .02391,
1203 + .00000, .14999, .24492,
1204 + .16372, .09202, 2.96698, .24657, .03464,
1205 + .00000, .16164, .25625,
1206 + .16659, .09376, 3.31766, .25642, .04444,
1207 + .00000, .17208, .26641,
1208 + .16937, .09543, 3.64870, .26619, .05457,
1209 + .00000, .18240, .27646,
1210 + .17236, .09721, 3.99255, .27686, .06580,
1211 + .00000, .19365, .28744 /
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 + .17493, .09874, 4.27633, .28633, .07551,
1214 + .00000, .20362, .29717,
1215 + .17742, .10020, 4.54133, .29560, .08509,
1216 + .00000, .21337, .30669,
1217 + .17940, .10137, 4.74899, .30307, .09299,
1218 + .00000, .22124, .31436,
1219 + .18362, .10383, 5.17994, .31917, .10980,
1220 + .00000, .23814, .33088,
1221 + .18726, .10594, 5.49763, .33304, .12430,
1222 + .00944, .25272, .34511,
1223 + .19133, .10826, 5.83068, .34862, .14071,
1224 + .03064, .26908, .36108,
1225 + .19551, .11065, 6.15148, .36477, .15780,
1226 + .05010, .28605, .37764,
1227 + .19928, .11277, 6.41991, .37930, .17323,
1228 + .06768, .30131, .39253 /
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 + .20304, .11488, 6.67047, .39383, .18873,
1231 + .08526, .31657, .40742,
1232 + .20612, .11660, 6.86110, .40569, .20139,
1233 + .09940, .32903, .41957,
1234 + .20980, .11864, 7.07206, .41979, .21644,
1235 + .11617, .34385, .43402,
1236 + .21304, .12042, 7.24437, .43207, .22966,
1237 + .13098, .35677, .44660,
1238 + .21598, .12202, 7.39098, .44316, .24164,
1239 + .14442, .36844, .45795,
1240 + .21963, .12401, 7.55514, .45676, .25633,
1241 + .16072, .38276, .47188,
1242 + .22302, .12584, 7.69486, .46923, .26989,
1243 + .17584, .39593, .48467,
1244 + .22616, .12754, 7.81521, .48071, .28246,
1245 + .18994, .40804, .49643 /
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 + .22923, .12917, 7.91704, .49167, .29443,
1248 + .20320, .41963, .50766,
1249 + .23221, .13074, 8.00800, .50217, .30599,
1250 + .21610, .43074, .51841,
1251 + .23500, .13221, 8.08485, .51184, .31669,
1252 + .22806, .44098, .52832,
1253 + .23757, .13356, 8.14604, .52056, .32638,
1254 + .23885, .45024, .53727,
1255 + .24014, .13489, 8.20356, .52922, .33607,
1256 + .24970, .45945, .54615,
1257 + .24259, .13617, 8.24805, .53729, .34510,
1258 + .25976, .46803, .55442,
1259 + .24493, .13738, 8.28845, .54490, .35370,
1260 + .26942, .47614, .56223,
1261 + .24709, .13848, 8.31667, .55170, .36138,
1262 + .27801, .48340, .56920 /
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 + .24925, .13959, 8.34340, .55849, .36911,
1265 + .28669, .49067, .57617,
1266 + .25135, .14065, 8.36268, .56489, .37643,
1267 + .29490, .49753, .58274,
1268 + .25333, .14165, 8.37752, .57082, .38326,
1269 + .30258, .50391, .58884,
1270 + .25519, .14260, 8.38916, .57635, .38964,
1271 + .30979, .50984, .59451,
1272 + .25703, .14352, 8.39447, .58162, .39577,
1273 + .31668, .51553, .59992 /
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 + .17619, .09993, 1.31880, .19108, .00000,
1276 + .00000, .10863, .20172,
1277 + .17936, .10193, 1.66790, .19767, .00000,
1278 + .00000, .11581, .20867,
1279 + .18417, .10490, 2.15423, .20833, .00742,
1280 + .00000, .12737, .21987,
1281 + .18782, .10711, 2.50053, .21661, .01808,
1282 + .00000, .13631, .22856,
1283 + .19167, .10943, 2.84443, .22576, .02735,
1284 + .00000, .14617, .23814,
1285 + .19498, .11140, 3.12430, .23393, .03575,
1286 + .00000, .15494, .24666,
1287 + .19818, .11328, 3.38428, .24196, .04435,
1288 + .00000, .16355, .25503,
1289 + .20160, .11528, 3.65019, .25066, .05383,
1290 + .00000, .17287, .26410 /
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 + .20454, .11699, 3.86639, .25831, .06193,
1293 + .00000, .18106, .27206,
1294 + .20737, .11862, 4.06549, .26576, .06989,
1295 + .00000, .18902, .27980,
1296 + .20962, .11991, 4.21983, .27172, .07641,
1297 + .00000, .19539, .28599,
1298 + .21437, .12260, 4.53599, .28444, .09017,
1299 + .00000, .20899, .29920,
1300 + .21844, .12488, 4.76491, .29527, .10191,
1301 + .00509, .22058, .31044,
1302 + .22294, .12739, 4.99441, .30730, .11506,
1303 + .02239, .23345, .32291,
1304 + .22757, .12993, 5.20994, .31961, .12859,
1305 + .03810, .24664, .33569,
1306 + .23171, .13218, 5.38563, .33056, .14069,
1307 + .05216, .25836, .34702 /
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 + .23580, .13440, 5.54544, .34138, .15274,
1310 + .06608, .26997, .35822,
1311 + .23916, .13619, 5.66346, .35012, .16247,
1312 + .07719, .27936, .36728,
1313 + .24315, .13830, 5.79021, .36039, .17397,
1314 + .09026, .29042, .37792,
1315 + .24661, .14013, 5.89067, .36925, .18397,
1316 + .10171, .29996, .38709,
1317 + .24975, .14177, 5.97361, .37717, .19297,
1318 + .11204, .30850, .39529,
1319 + .25362, .14378, 6.06171, .38676, .20387,
1320 + .12442, .31887, .40521,
1321 + .25720, .14561, 6.13322, .39546, .21388,
1322 + .13585, .32830, .41422,
1323 + .26050, .14730, 6.19215, .40339, .22307,
1324 + .14641, .33691, .42243 /
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 + .26370, .14891, 6.23730, .41083, .23174,
1327 + .15626, .34503, .43014,
1328 + .26678, .15046, 6.27502, .41789, .24005,
1329 + .16578, .35274, .43746,
1330 + .26965, .15189, 6.30398, .42433, .24767,
1331 + .17454, .35979, .44413,
1332 + .27228, .15318, 6.32309, .43007, .25452,
1333 + .18239, .36611, .45008,
1334 + .27491, .15448, 6.33949, .43572, .26132,
1335 + .19024, .37233, .45594,
1336 + .27740, .15568, 6.34713, .44089, .26760,
1337 + .19745, .37805, .46130,
1338 + .27976, .15683, 6.35319, .44574, .27356,
1339 + .20435, .38344, .46633,
1340 + .28192, .15787, 6.35196, .44999, .27881,
1341 + .21042, .38819, .47075 /
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 + .28409, .15890, 6.34965, .45423, .28409,
1344 + .21655, .39291, .47514,
1345 + .28617, .15988, 6.34253, .45814, .28904,
1346 + .22230, .39731, .47920,
1347 + .28813, .16080, 6.33341, .46173, .29362,
1348 + .22765, .40137, .48295,
1349 + .28996, .16166, 6.32318, .46505, .29789,
1350 + .23264, .40512, .48640,
1351 + .29176, .16249, 6.30839, .46815, .30194,
1352 + .23738, .40866, .48962 /
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 + .20832, .12012, 1.49174, .17489, .00000,
1355 + .00000, .09805, .18865,
1356 + .21214, .12248, 1.77718, .18046, .00000,
1357 + .00000, .10425, .19470,
1358 + .21789, .12596, 2.17145, .18933, .00244,
1359 + .00000, .11410, .20428,
1360 + .22219, .12850, 2.43848, .19611, .01169,
1361 + .00000, .12162, .21156,
1362 + .22668, .13112, 2.69813, .20352, .01961,
1363 + .00000, .12982, .21949,
1364 + .23053, .13333, 2.90490, .21003, .02670,
1365 + .00000, .13699, .22642,
1366 + .23423, .13543, 3.09338, .21635, .03389,
1367 + .00000, .14397, .23317,
1368 + .23814, .13763, 3.28266, .22315, .04171,
1369 + .00000, .15146, .24038 /
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 + .24149, .13950, 3.43361, .22905, .04833,
1372 + .00000, .15795, .24664,
1373 + .24470, .14127, 3.57025, .23473, .05478,
1374 + .00000, .16421, .25267,
1375 + .24724, .14266, 3.67481, .23925, .06001,
1376 + .00000, .16920, .25744,
1377 + .25255, .14554, 3.88549, .24878, .07095,
1378 + .00000, .17968, .26751,
1379 + .25706, .14794, 4.03457, .25675, .08015,
1380 + .00134, .18849, .27592,
1381 + .26200, .15053, 4.17342, .26546, .09033,
1382 + .01503, .19814, .28511,
1383 + .26702, .15314, 4.29881, .27425, .10068,
1384 + .02733, .20789, .29436,
1385 + .27147, .15542, 4.39657, .28193, .10982,
1386 + .03821, .21643, .30245 /
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 + .27585, .15764, 4.48145, .28942, .11881,
1389 + .04886, .22478, .31032,
1390 + .27940, .15942, 4.54093, .29537, .12600,
1391 + .05727, .23145, .31659,
1392 + .28357, .16148, 4.60058, .30225, .13441,
1393 + .06710, .23919, .32384,
1394 + .28719, .16325, 4.64468, .30810, .14162,
1395 + .07560, .24579, .32999,
1396 + .29043, .16483, 4.67850, .31327, .14807,
1397 + .08322, .25162, .33541,
1398 + .29440, .16673, 4.70932, .31940, .15581,
1399 + .09227, .25861, .34187,
1400 + .29804, .16845, 4.73030, .32489, .16281,
1401 + .10053, .26488, .34763,
1402 + .30137, .17001, 4.74435, .32981, .16919,
1403 + .10811, .27053, .35280 /
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 + .30456, .17147, 4.74904, .33432, .17513,
1406 + .11510, .27577, .35755,
1407 + .30762, .17286, 4.74941, .33853, .18077,
1408 + .12181, .28068, .36198,
1409 + .31043, .17413, 4.74535, .34231, .18591,
1410 + .12794, .28512, .36595,
1411 + .31299, .17527, 4.73624, .34560, .19046,
1412 + .13336, .28902, .36940,
1413 + .31553, .17638, 4.72545, .34879, .19495,
1414 + .13876, .29282, .37277,
1415 + .31791, .17742, 4.70929, .35163, .19904,
1416 + .14367, .29624, .37575,
1417 + .32016, .17839, 4.69338, .35427, .20290,
1418 + .14835, .29945, .37854,
1419 + .32219, .17924, 4.67388, .35651, .20626,
1420 + .15242, .30221, .38089 /
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 + .32422, .18010, 4.65377, .35871, .20961,
1423 + .15651, .30494, .38321,
1424 + .32614, .18090, 4.63103, .36068, .21271,
1425 + .16031, .30742, .38528,
1426 + .32794, .18163, 4.60806, .36246, .21557,
1427 + .16382, .30968, .38716,
1428 + .32962, .18232, 4.58545, .36405, .21820,
1429 + .16709, .31174, .38885,
1430 + .33124, .18297, 4.55991, .36549, .22066,
1431 + .17015, .31363, .39037 /
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 + .25268, .14760, 1.64351, .15549, .00000,
1434 + .00000, .08557, .17432,
1435 + .25744, .15041, 1.84834, .15999, .00000,
1436 + .00000, .09086, .17945,
1437 + .26445, .15443, 2.13174, .16696, -.00294,
1438 + .00000, .09901, .18727,
1439 + .26957, .15727, 2.30895, .17212, .00486,
1440 + .00000, .10507, .19303,
1441 + .27486, .16018, 2.47660, .17763, .01144,
1442 + .00000, .11150, .19914,
1443 + .27935, .16258, 2.60622, .18237, .01720,
1444 + .00000, .11704, .20437,
1445 + .28358, .16483, 2.72136, .18690, .02295,
1446 + .00000, .12232, .20936,
1447 + .28804, .16716, 2.83401, .19169, .02910,
1448 + .00000, .12792, .21460 /
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 + .29183, .16911, 2.92122, .19578, .03425,
1451 + .00000, .13270, .21905,
1452 + .29540, .17092, 2.99803, .19966, .03919,
1453 + .00000, .13723, .22327,
1454 + .29822, .17234, 3.05566, .20269, .04317,
1455 + .00000, .14081, .22659,
1456 + .30405, .17522, 3.16918, .20900, .05137,
1457 + .00000, .14822, .23344,
1458 + .30888, .17756, 3.24643, .21412, .05813,
1459 + -.00169, .15430, .23897,
1460 + .31411, .18003, 3.30645, .21962, .06551,
1461 + .00849, .16084, .24491,
1462 + .31934, .18247, 3.35564, .22501, .07288,
1463 + .01751, .16731, .25070,
1464 + .32391, .18456, 3.38933, .22961, .07929,
1465 + .02537, .17287, .25564 /
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 + .32836, .18654, 3.41414, .23398, .08550,
1468 + .03297, .17820, .26033,
1469 + .33191, .18811, 3.42766, .23736, .09039,
1470 + .03890, .18237, .26397,
1471 + .33602, .18988, 3.43610, .24119, .09604,
1472 + .04574, .18713, .26805,
1473 + .33954, .19136, 3.43819, .24435, .10083,
1474 + .05160, .19109, .27142,
1475 + .34266, .19265, 3.43606, .24708, .10505,
1476 + .05679, .19455, .27434,
1477 + .34641, .19417, 3.42603, .25020, .11004,
1478 + .06289, .19860, .27767,
1479 + .34978, .19552, 3.41204, .25289, .11449,
1480 + .06839, .20213, .28054,
1481 + .35284, .19670, 3.39590, .25524, .11850,
1482 + .07338, .20525, .28303 /
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 + .35570, .19778, 3.37434, .25728, .12217,
1485 + .07793, .20807, .28519,
1486 + .35840, .19877, 3.35117, .25913, .12561,
1487 + .08224, .21064, .28714,
1488 + .36086, .19965, 3.32703, .26070, .12869,
1489 + .08614, .21290, .28882,
1490 + .36304, .20041, 3.30138, .26199, .13139,
1491 + .08955, .21484, .29017,
1492 + .36518, .20115, 3.27505, .26321, .13402,
1493 + .09292, .21669, .29143,
1494 + .36715, .20178, 3.24618, .26419, .13637,
1495 + .09595, .21828, .29246,
1496 + .36899, .20237, 3.21885, .26507, .13856,
1497 + .09880, .21975, .29340,
1498 + .37061, .20286, 3.19061, .26573, .14043,
1499 + .10126, .22095, .29409 /
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 + .37221, .20334, 3.16224, .26636, .14228,
1502 + .10370, .22210, .29472,
1503 + .37370, .20376, 3.13282, .26684, .14397,
1504 + .10596, .22310, .29522,
1505 + .37506, .20413, 3.10432, .26721, .14550,
1506 + .10801, .22397, .29560,
1507 + .37632, .20447, 3.07708, .26752, .14688,
1508 + .10991, .22474, .29590,
1509 + .37751, .20475, 3.04819, .26771, .14816,
1510 + .11166, .22539, .29608 /
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 + .28959, .17001, 1.68395, .14110, .00000,
1513 + .00000, .07698, .16424,
1514 + .29517, .17311, 1.83077, .14480, .00000,
1515 + .00000, .08161, .16867,
1516 + .30326, .17744, 2.03619, .15037, -.00568,
1517 + .00000, .08853, .17521,
1518 + .30900, .18043, 2.15473, .15439, .00106,
1519 + .00000, .09355, .17986,
1520 + .31489, .18341, 2.26428, .15856, .00672,
1521 + .00000, .09879, .18465,
1522 + .31980, .18584, 2.34658, .16209, .01159,
1523 + .00000, .10320, .18867,
1524 + .32442, .18809, 2.41796, .16541, .01638,
1525 + .00000, .10738, .19244,
1526 + .32920, .19037, 2.48602, .16885, .02146,
1527 + .00000, .11172, .19631 /
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 + .33320, .19225, 2.53687, .17175, .02566,
1530 + .00000, .11539, .19957,
1531 + .33697, .19399, 2.58026, .17446, .02965,
1532 + .00000, .11883, .20259,
1533 + .33991, .19533, 2.61209, .17657, .03284,
1534 + .00000, .12151, .20494,
1535 + .34591, .19801, 2.67298, .18086, .03934,
1536 + .00000, .12701, .20969,
1537 + .35078, .20010, 2.71226, .18426, .04464,
1538 + -.00292, .13143, .21342,
1539 + .35597, .20227, 2.73278, .18781, .05036,
1540 + .00510, .13610, .21729,
1541 + .36109, .20435, 2.74488, .19121, .05599,
1542 + .01214, .14064, .22100,
1543 + .36550, .20608, 2.74832, .19402, .06083,
1544 + .01821, .14447, .22405 /
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 + .36970, .20769, 2.74558, .19662, .06547,
1547 + .02403, .14808, .22683,
1548 + .37301, .20890, 2.73854, .19859, .06908,
1549 + .02853, .15085, .22894,
1550 + .37679, .21025, 2.72478, .20072, .07320,
1551 + .03367, .15395, .23121,
1552 + .37995, .21134, 2.70920, .20242, .07666,
1553 + .03804, .15649, .23301,
1554 + .38271, .21226, 2.69243, .20384, .07969,
1555 + .04188, .15866, .23450,
1556 + .38597, .21328, 2.66656, .20537, .08322,
1557 + .04635, .16112, .23610,
1558 + .38885, .21412, 2.63958, .20663, .08634,
1559 + .05034, .16324, .23738,
1560 + .39140, .21486, 2.61266, .20765, .08911,
1561 + .05394, .16505, .23842 /
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 + .39373, .21547, 2.58238, .20844, .09161,
1564 + .05717, .16661, .23921,
1565 + .39589, .21599, 2.55177, .20910, .09393,
1566 + .06022, .16801, .23985,
1567 + .39780, .21642, 2.52168, .20960, .09599,
1568 + .06296, .16919, .24032,
1569 + .39945, .21675, 2.49172, .20992, .09775,
1570 + .06532, .17014, .24060,
1571 + .40106, .21705, 2.46162, .21017, .09947,
1572 + .06766, .17102, .24081,
1573 + .40245, .21725, 2.43033, .21027, .10096,
1574 + .06971, .17173, .24084,
1575 + .40375, .21743, 2.40097, .21035, .10236,
1576 + .07166, .17237, .24084,
1577 + .40483, .21753, 2.37183, .21028, .10352,
1578 + .07330, .17281, .24069 /
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 + .40589, .21761, 2.34277, .21017, .10465,
1581 + .07493, .17323, .24051,
1582 + .40683, .21763, 2.31340, .20997, .10567,
1583 + .07642, .17354, .24022,
1584 + .40766, .21763, 2.28534, .20974, .10658,
1585 + .07776, .17378, .23989,
1586 + .40841, .21759, 2.25880, .20947, .10740,
1587 + .07900, .17397, .23954,
1588 + .40907, .21752, 2.23128, .20911, .10811,
1589 + .08011, .17404, .23909 /
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 + .35252, .20589, 1.58267, .12035, .00000,
1592 + .00000, .06650, .15183,
1593 + .35926, .20915, 1.65897, .12266, .00000,
1594 + .00000, .06995, .15482,
1595 + .36861, .21351, 1.77059, .12598, -.00732,
1596 + .00000, .07489, .15893,
1597 + .37504, .21633, 1.82427, .12826, -.00211,
1598 + .00000, .07834, .16171,
1599 + .38142, .21903, 1.87128, .13056, .00221,
1600 + .00000, .08183, .16444,
1601 + .38661, .22118, 1.90415, .13244, .00584,
1602 + .00000, .08468, .16661,
1603 + .39138, .22308, 1.93079, .13414, .00937,
1604 + .00000, .08735, .16859,
1605 + .39624, .22494, 1.95428, .13586, .01304,
1606 + .00000, .09005, .17053 /
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 + .40018, .22642, 1.96965, .13727, .01604,
1609 + .00000, .09229, .17209,
1610 + .40382, .22773, 1.98100, .13856, .01886,
1611 + .00000, .09434, .17348,
1612 + .40663, .22871, 1.98843, .13952, .02108,
1613 + .00000, .09592, .17454,
1614 + .41217, .23055, 2.00075, .14142, .02555,
1615 + .00000, .09909, .17655,
1616 + .41645, .23185, 2.00534, .14285, .02914,
1617 + -.00353, .10155, .17799,
1618 + .42086, .23307, 1.99257, .14423, .03294,
1619 + .00193, .10408, .17935,
1620 + .42503, .23413, 1.97447, .14545, .03661,
1621 + .00665, .10644, .18051,
1622 + .42845, .23490, 1.95422, .14636, .03971,
1623 + .01067, .10836, .18130 /
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 + .43159, .23551, 1.93077, .14710, .04264,
1626 + .01447, .11008, .18193,
1627 + .43392, .23587, 1.90894, .14758, .04489,
1628 + .01738, .11135, .18226,
1629 + .43646, .23617, 1.88003, .14800, .04740,
1630 + .02065, .11271, .18249,
1631 + .43848, .23632, 1.85310, .14826, .04948,
1632 + .02341, .11376, .18256,
1633 + .44015, .23636, 1.82748, .14840, .05127,
1634 + .02579, .11460, .18250,
1635 + .44195, .23628, 1.79290, .14840, .05331,
1636 + .02853, .11548, .18223,
1637 + .44341, .23609, 1.75956, .14828, .05509,
1638 + .03095, .11616, .18185,
1639 + .44461, .23583, 1.72801, .14808, .05663,
1640 + .03309, .11669, .18139 /
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 + .44553, .23543, 1.69513, .14774, .05798,
1643 + .03499, .11705, .18078,
1644 + .44628, .23499, 1.66296, .14733, .05922,
1645 + .03676, .11732, .18009,
1646 + .44685, .23449, 1.63240, .14689, .06029,
1647 + .03831, .11749, .17936,
1648 + .44721, .23396, 1.60310, .14637, .06118,
1649 + .03965, .11753, .17857,
1650 + .44749, .23339, 1.57411, .14583, .06202,
1651 + .04094, .11755, .17776,
1652 + .44758, .23275, 1.54503, .14519, .06274,
1653 + .04207, .11745, .17686,
1654 + .44762, .23213, 1.51804, .14459, .06339,
1655 + .04311, .11734, .17598,
1656 + .44752, .23146, 1.49204, .14393, .06391,
1657 + .04399, .11715, .17507 /
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 + .44737, .23077, 1.46636, .14325, .06440,
1660 + .04483, .11694, .17413,
1661 + .44709, .23006, 1.44092, .14254, .06482,
1662 + .04559, .11666, .17316,
1663 + .44676, .22935, 1.41690, .14184, .06519,
1664 + .04627, .11637, .17220,
1665 + .44641, .22866, 1.39443, .14115, .06551,
1666 + .04688, .11606, .17126,
1667 + .44595, .22790, 1.37155, .14040, .06575,
1668 + .04742, .11570, .17027 /
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 + .40539, .23345, 1.39240, .10478, .00000,
1671 + .00000, .06003, .14279,
1672 + .41275, .23644, 1.43540, .10587, .00000,
1673 + .00000, .06237, .14431,
1674 + .42254, .24025, 1.50153, .10748, -.00677,
1675 + .00000, .06565, .14625,
1676 + .42901, .24254, 1.52726, .10853, -.00272,
1677 + .00000, .06791, .14745,
1678 + .43524, .24462, 1.54785, .10956, .00063,
1679 + .00000, .07015, .14854,
1680 + .44016, .24615, 1.56030, .11037, .00342,
1681 + .00000, .07197, .14936,
1682 + .44457, .24744, 1.56882, .11111, .00610,
1683 + .00000, .07361, .15004,
1684 + .44892, .24861, 1.57452, .11182, .00887,
1685 + .00000, .07528, .15067 /
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 + .45236, .24945, 1.57601, .11236, .01112,
1688 + .00000, .07663, .15110,
1689 + .45544, .25013, 1.57502, .11284, .01323,
1690 + .00000, .07787, .15143,
1691 + .45774, .25061, 1.57323, .11319, .01487,
1692 + .00000, .07880, .15166,
1693 + .46213, .25134, 1.56712, .11383, .01816,
1694 + .00000, .08063, .15198,
1695 + .46529, .25163, 1.55903, .11421, .02076,
1696 + -.00341, .08201, .15204,
1697 + .46831, .25176, 1.53568, .11451, .02349,
1698 + .00058, .08335, .15192,
1699 + .47094, .25162, 1.50854, .11467, .02610,
1700 + .00401, .08455, .15161,
1701 + .47290, .25129, 1.48166, .11467, .02827,
1702 + .00689, .08546, .15119 /
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 + .47452, .25079, 1.45289, .11457, .03029,
1705 + .00959, .08624, .15061,
1706 + .47555, .25025, 1.42776, .11439, .03183,
1707 + .01164, .08677, .15002,
1708 + .47647, .24945, 1.39603, .11406, .03352,
1709 + .01393, .08726, .14917,
1710 + .47701, .24864, 1.36744, .11370, .03490,
1711 + .01583, .08759, .14834,
1712 + .47732, .24781, 1.34094, .11330, .03607,
1713 + .01746, .08782, .14751,
1714 + .47736, .24660, 1.30639, .11268, .03738,
1715 + .01932, .08796, .14633,
1716 + .47717, .24536, 1.27385, .11202, .03850,
1717 + .02093, .08800, .14515,
1718 + .47679, .24414, 1.24361, .11134, .03946,
1719 + .02235, .08795, .14401 /
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 + .47614, .24282, 1.21284, .11059, .04026,
1722 + .02359, .08779, .14275,
1723 + .47534, .24146, 1.18318, .10980, .04099,
1724 + .02472, .08757, .14147,
1725 + .47445, .24013, 1.15537, .10903, .04160,
1726 + .02572, .08732, .14023,
1727 + .47343, .23880, 1.12916, .10823, .04210,
1728 + .02655, .08700, .13900,
1729 + .47233, .23745, 1.10344, .10742, .04256,
1730 + .02735, .08665, .13776,
1731 + .47106, .23605, 1.07803, .10657, .04292,
1732 + .02803, .08624, .13647,
1733 + .46982, .23474, 1.05456, .10577, .04325,
1734 + .02867, .08585, .13525,
1735 + .46849, .23341, 1.03230, .10495, .04350,
1736 + .02918, .08542, .13405 /
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 + .46712, .23207, 1.01042, .10414, .04371,
1739 + .02967, .08497, .13285,
1740 + .46565, .23071, .98897, .10329, .04389,
1741 + .03010, .08449, .13163,
1742 + .46419, .22941, .96888, .10248, .04402,
1743 + .03048, .08401, .13045,
1744 + .46277, .22816, .95019, .10170, .04412,
1745 + .03082, .08355, .12934,
1746 + .46123, .22685, .93134, .10089, .04419,
1747 + .03110, .08304, .12817 /
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 + .45140, .25514, 1.20021, .09160, .00000,
1750 + .00000, .05482, .13417,
1751 + .45880, .25764, 1.22906, .09181, .00000,
1752 + .00000, .05621, .13430,
1753 + .46844, .26045, 1.27445, .09210, -.00588,
1754 + .00000, .05816, .13443,
1755 + .47441, .26201, 1.28877, .09232, -.00267,
1756 + .00000, .05951, .13436,
1757 + .47997, .26320, 1.29841, .09256, -.00004,
1758 + .00000, .06084, .13421,
1759 + .48420, .26395, 1.30225, .09272, .00216,
1760 + .00000, .06194, .13400,
1761 + .48784, .26447, 1.30312, .09285, .00426,
1762 + .00000, .06293, .13374,
1763 + .49128, .26481, 1.30133, .09296, .00644,
1764 + .00000, .06390, .13343 /
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 + .49387, .26492, 1.29692, .09302, .00820,
1767 + .00000, .06468, .13308,
1768 + .49607, .26487, 1.29074, .09305, .00983,
1769 + .00000, .06539, .13269,
1770 + .49765, .26477, 1.28507, .09307, .01110,
1771 + .00000, .06592, .13236,
1772 + .50040, .26426, 1.27112, .09302, .01364,
1773 + .00000, .06693, .13155,
1774 + .50201, .26350, 1.25779, .09287, .01562,
1775 + -.00322, .06763, .13073,
1776 + .50329, .26240, 1.23079, .09261, .01768,
1777 + -.00016, .06828, .12970,
1778 + .50405, .26103, 1.20076, .09223, .01963,
1779 + .00246, .06882, .12851,
1780 + .50429, .25960, 1.17208, .09178, .02124,
1781 + .00465, .06917, .12733 /
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 + .50413, .25800, 1.14224, .09127, .02272,
1784 + .00668, .06941, .12606,
1785 + .50367, .25657, 1.11675, .09078, .02382,
1786 + .00820, .06950, .12495,
1787 + .50277, .25470, 1.08524, .09010, .02502,
1788 + .00989, .06953, .12353,
1789 + .50171, .25295, 1.05730, .08946, .02600,
1790 + .01129, .06947, .12221,
1791 + .50054, .25129, 1.03176, .08884, .02681,
1792 + .01248, .06936, .12098,
1793 + .49872, .24907, .99900, .08795, .02769,
1794 + .01380, .06912, .11934,
1795 + .49677, .24690, .96857, .08708, .02843,
1796 + .01495, .06882, .11776,
1797 + .49480, .24481, .94060, .08624, .02905,
1798 + .01595, .06849, .11626 /
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 + .49253, .24263, .91257, .08532, .02955,
1801 + .01680, .06807, .11471,
1802 + .49019, .24047, .88578, .08442, .03000,
1803 + .01758, .06762, .11319,
1804 + .48783, .23840, .86091, .08353, .03036,
1805 + .01824, .06718, .11172,
1806 + .48545, .23640, .83771, .08267, .03064,
1807 + .01880, .06670, .11031,
1808 + .48302, .23438, .81508, .08180, .03088,
1809 + .01933, .06620, .10891,
1810 + .48042, .23235, .79298, .08090, .03106,
1811 + .01976, .06567, .10750,
1812 + .47796, .23044, .77268, .08005, .03123,
1813 + .02017, .06516, .10618,
1814 + .47548, .22858, .75357, .07922, .03132,
1815 + .02048, .06463, .10489 /
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 + .47297, .22671, .73488, .07840, .03140,
1818 + .02079, .06410, .10361,
1819 + .47040, .22483, .71672, .07756, .03145,
1820 + .02104, .06355, .10232,
1821 + .46789, .22304, .69980, .07676, .03148,
1822 + .02127, .06303, .10111,
1823 + .46549, .22135, .68412, .07601, .03148,
1824 + .02145, .06252, .09996,
1825 + .46297, .21959, .66846, .07522, .03146,
1826 + .02162, .06198, .09880 /
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 + .50070, .27520, 1.00939, .07684, .00000,
1829 + .00000, .04832, .12184,
1830 + .50748, .27661, 1.03185, .07633, .00000,
1831 + .00000, .04883, .12073,
1832 + .51567, .27788, 1.06598, .07579, -.00514,
1833 + .00000, .04970, .11910,
1834 + .52037, .27820, 1.07421, .07548, -.00263,
1835 + .00000, .05032, .11794,
1836 + .52444, .27810, 1.07738, .07517, -.00058,
1837 + .00000, .05100, .11677,
1838 + .52724, .27775, 1.07592, .07491, .00113,
1839 + .00000, .05150, .11574,
1840 + .52942, .27718, 1.07189, .07469, .00278,
1841 + .00000, .05197, .11472,
1842 + .53128, .27637, 1.06515, .07445, .00447,
1843 + .00000, .05245, .11362 /
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 + .53241, .27550, 1.05676, .07424, .00582,
1846 + .00000, .05280, .11267,
1847 + .53319, .27451, 1.04699, .07399, .00708,
1848 + .00000, .05312, .11175,
1849 + .53365, .27365, 1.03862, .07378, .00806,
1850 + .00000, .05335, .11102,
1851 + .53392, .27159, 1.01921, .07333, .00999,
1852 + .00000, .05374, .10940,
1853 + .53336, .26949, 1.00210, .07286, .01148,
1854 + -.00301, .05398, .10797,
1855 + .53217, .26693, .97281, .07229, .01301,
1856 + -.00068, .05415, .10632,
1857 + .53035, .26410, .94120, .07160, .01444,
1858 + .00131, .05420, .10455,
1859 + .52823, .26141, .91180, .07093, .01559,
1860 + .00293, .05414, .10289 /
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 + .52570, .25860, .88178, .07022, .01664,
1863 + .00443, .05401, .10119,
1864 + .52331, .25617, .85666, .06958, .01741,
1865 + .00554, .05385, .09973,
1866 + .52011, .25311, .82611, .06875, .01823,
1867 + .00676, .05357, .09797,
1868 + .51704, .25035, .79950, .06797, .01887,
1869 + .00775, .05325, .09640,
1870 + .51406, .24779, .77546, .06725, .01940,
1871 + .00858, .05293, .09494,
1872 + .50997, .24446, .74512, .06626, .01996,
1873 + .00951, .05245, .09310,
1874 + .50593, .24130, .71735, .06532, .02042,
1875 + .01030, .05194, .09134,
1876 + .50203, .23834, .69210, .06443, .02078,
1877 + .01097, .05146, .08970 /
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 + .49787, .23530, .66716, .06349, .02106,
1880 + .01153, .05090, .08805,
1881 + .49374, .23233, .64358, .06257, .02130,
1882 + .01204, .05035, .08644,
1883 + .48973, .22952, .62192, .06169, .02148,
1884 + .01247, .04979, .08492,
1885 + .48581, .22685, .60193, .06083, .02160,
1886 + .01281, .04924, .08350,
1887 + .48187, .22419, .58258, .05999, .02169,
1888 + .01313, .04867, .08209,
1889 + .47784, .22154, .56388, .05913, .02175,
1890 + .01340, .04810, .08068,
1891 + .47404, .21906, .54679, .05833, .02179,
1892 + .01363, .04756, .07938,
1893 + .47031, .21668, .53092, .05755, .02179,
1894 + .01381, .04702, .07813 /
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 + .46655, .21431, .51550, .05678, .02178,
1897 + .01398, .04648, .07689,
1898 + .46279, .21195, .50060, .05601, .02175,
1899 + .01412, .04593, .07569,
1900 + .45919, .20971, .48681, .05528, .02170,
1901 + .01422, .04539, .07455,
1902 + .45577, .20760, .47411, .05458, .02165,
1903 + .01432, .04489, .07347,
1904 + .45223, .20545, .46150, .05387, .02157,
1905 + .01439, .04438, .07238 /
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 + .54234, .28892, .88313, .06358, .00000,
1908 + .00000, .04143, .10785,
1909 + .54768, .28914, .90163, .06283, .00000,
1910 + .00000, .04152, .10593,
1911 + .55358, .28846, .92859, .06193, -.00501,
1912 + .00000, .04183, .10336,
1913 + .55643, .28740, .93185, .06142, -.00292,
1914 + .00000, .04209, .10160,
1915 + .55845, .28591, .92967, .06090, -.00120,
1916 + .00000, .04235, .09984,
1917 + .55941, .28434, .92356, .06053, .00023,
1918 + .00000, .04261, .09834,
1919 + .55982, .28265, .91530, .06016, .00159,
1920 + .00000, .04282, .09695,
1921 + .55973, .28067, .90429, .05978, .00298,
1922 + .00000, .04303, .09549 /
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 + .55922, .27877, .89242, .05944, .00408,
1925 + .00000, .04317, .09427,
1926 + .55835, .27685, .87957, .05911, .00511,
1927 + .00000, .04327, .09307,
1928 + .55746, .27529, .86895, .05884, .00589,
1929 + .00000, .04333, .09212,
1930 + .55497, .27170, .84495, .05825, .00744,
1931 + .00000, .04342, .09014,
1932 + .55204, .26839, .82489, .05768, .00861,
1933 + -.00286, .04339, .08841,
1934 + .54820, .26456, .79371, .05700, .00980,
1935 + -.00101, .04330, .08646,
1936 + .54372, .26041, .76087, .05623, .01089,
1937 + .00055, .04311, .08447,
1938 + .53925, .25656, .73101, .05547, .01176,
1939 + .00182, .04286, .08265 /
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 + .53441, .25265, .70116, .05468, .01252,
1942 + .00296, .04254, .08081,
1943 + .53012, .24936, .67657, .05401, .01307,
1944 + .00381, .04222, .07927,
1945 + .52469, .24530, .64724, .05314, .01364,
1946 + .00472, .04177, .07744,
1947 + .51972, .24171, .62196, .05234, .01408,
1948 + .00545, .04136, .07583,
1949 + .51503, .23841, .59943, .05161, .01443,
1950 + .00607, .04095, .07437,
1951 + .50882, .23421, .57146, .05065, .01479,
1952 + .00673, .04038, .07248,
1953 + .50286, .23028, .54616, .04974, .01507,
1954 + .00728, .03980, .07074,
1955 + .49722, .22662, .52343, .04887, .01527,
1956 + .00775, .03925, .06914 /
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 + .49138, .22295, .50129, .04800, .01543,
1959 + .00814, .03866, .06754,
1960 + .48565, .21938, .48055, .04714, .01554,
1961 + .00848, .03806, .06602,
1962 + .48021, .21600, .46169, .04631, .01561,
1963 + .00875, .03749, .06460,
1964 + .47497, .21284, .44447, .04552, .01565,
1965 + .00898, .03694, .06326,
1966 + .46972, .20973, .42792, .04475, .01567,
1967 + .00918, .03639, .06194,
1968 + .46447, .20665, .41210, .04397, .01565,
1969 + .00934, .03583, .06066,
1970 + .45953, .20377, .39774, .04325, .01563,
1971 + .00948, .03529, .05947,
1972 + .45478, .20103, .38453, .04255, .01558,
1973 + .00958, .03478, .05836 /
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 + .45005, .19831, .37173, .04185, .01553,
1976 + .00967, .03427, .05724,
1977 + .44532, .19564, .35947, .04117, .01546,
1978 + .00974, .03376, .05615,
1979 + .44080, .19314, .34818, .04054, .01538,
1980 + .00979, .03329, .05512,
1981 + .43654, .19079, .33785, .03993, .01530,
1982 + .00983, .03283, .05417,
1983 + .43219, .18840, .32769, .03933, .01522,
1984 + .00986, .03237, .05321 /
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 + .57661, .29734, .80943, .05184, .00000,
1987 + .00000, .03440, .09287,
1988 + .58006, .29605, .82224, .05109, .00000,
1989 + .00000, .03433, .09063,
1990 + .58282, .29347, .84059, .05030, -.00530,
1991 + .00000, .03440, .08758,
1992 + .58335, .29102, .83729, .04979, -.00343,
1993 + .00000, .03452, .08558,
1994 + .58288, .28810, .82839, .04934, -.00189,
1995 + .00000, .03465, .08358,
1996 + .58172, .28538, .81689, .04895, -.00062,
1997 + .00000, .03477, .08192,
1998 + .58008, .28260, .80377, .04860, .00057,
1999 + .00000, .03486, .08040,
2000 + .57786, .27952, .78804, .04825, .00177,
2001 + .00000, .03492, .07883 /
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 + .57546, .27671, .77255, .04789, .00273,
2004 + .00000, .03495, .07748,
2005 + .57285, .27390, .75657, .04756, .00360,
2006 + .00000, .03496, .07620,
2007 + .57063, .27165, .74369, .04727, .00425,
2008 + .00000, .03495, .07521,
2009 + .56527, .26672, .71538, .04663, .00553,
2010 + .00000, .03488, .07312,
2011 + .55992, .26233, .69262, .04606, .00649,
2012 + -.00272, .03474, .07134,
2013 + .55352, .25732, .65978, .04534, .00744,
2014 + -.00121, .03450, .06940,
2015 + .54643, .25207, .62605, .04457, .00830,
2016 + .00005, .03418, .06737,
2017 + .53966, .24731, .59605, .04386, .00895,
2018 + .00106, .03382, .06555 /
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 + .53262, .24251, .56657, .04307, .00953,
2021 + .00196, .03341, .06377,
2022 + .52659, .23851, .54277, .04240, .00993,
2023 + .00262, .03305, .06229,
2024 + .51908, .23367, .51479, .04157, .01034,
2025 + .00332, .03255, .06054,
2026 + .51235, .22943, .49105, .04082, .01064,
2027 + .00388, .03209, .05901,
2028 + .50614, .22557, .47014, .04010, .01088,
2029 + .00433, .03164, .05763,
2030 + .49808, .22071, .44454, .03920, .01111,
2031 + .00483, .03105, .05589,
2032 + .49044, .21619, .42171, .03835, .01127,
2033 + .00523, .03048, .05429,
2034 + .48331, .21203, .40144, .03757, .01138,
2035 + .00555, .02994, .05280 /
2036 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
2037 + .47608, .20787, .38189, .03675, .01146,
2038 + .00583, .02937, .05139,
2039 + .46903, .20388, .36380, .03595, .01150,
2040 + .00606, .02880, .05002,
2041 + .46238, .20016, .34752, .03521, .01151,
2042 + .00625, .02827, .04874,
2043 + .45606, .19667, .33281, .03452, .01149,
2044 + .00639, .02775, .04755,
2045 + .44980, .19323, .31873, .03383, .01147,
2046 + .00652, .02725, .04639,
2047 + .44358, .18988, .30544, .03314, .01142,
2048 + .00662, .02673, .04528,
2049 + .43775, .18677, .29342, .03250, .01137,
2050 + .00670, .02624, .04425,
2051 + .43218, .18382, .28245, .03189, .01131,
2052 + .00676, .02579, .04328 /
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 + .42664, .18092, .27188, .03129, .01124,
2055 + .00681, .02534, .04233,
2056 + .42118, .17806, .26186, .03071, .01114,
2057 + .00683, .02488, .04140,
2058 + .41601, .17538, .25270, .03015, .01107,
2059 + .00686, .02446, .04053,
2060 + .41116, .17288, .24434, .02963, .01098,
2061 + .00687, .02406, .03971,
2062 + .40622, .17034, .23617, .02912, .01089,
2063 + .00687, .02367, .03890 /
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 + .60385, .30101, .76963, .04168, .00000,
2066 + .00000, .02750, .07769,
2067 + .60475, .29840, .77386, .04117, .00000,
2068 + .00000, .02750, .07544,
2069 + .60399, .29367, .78087, .04057, -.00573,
2070 + .00000, .02766, .07248,
2071 + .60189, .28987, .76920, .04021, -.00397,
2072 + .00000, .02781, .07047,
2073 + .59871, .28560, .75244, .03987, -.00253,
2074 + .00000, .02791, .06851,
2075 + .59529, .28172, .73488, .03955, -.00136,
2076 + .00000, .02800, .06693,
2077 + .59149, .27793, .71660, .03925, -.00027,
2078 + .00000, .02806, .06544,
2079 + .58701, .27383, .69607, .03892, .00080,
2080 + .00000, .02810, .06390 /
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 + .58274, .27017, .67700, .03861, .00164,
2083 + .00000, .02808, .06262,
2084 + .57837, .26659, .65809, .03827, .00240,
2085 + .00000, .02806, .06138,
2086 + .57478, .26375, .64315, .03800, .00296,
2087 + .00000, .02803, .06041,
2088 + .56656, .25763, .61124, .03741, .00405,
2089 + .00000, .02785, .05845,
2090 + .55891, .25230, .58621, .03685, .00485,
2091 + -.00255, .02765, .05677,
2092 + .55002, .24637, .55224, .03619, .00562,
2093 + -.00129, .02738, .05489,
2094 + .54049, .24022, .51820, .03545, .00629,
2095 + -.00027, .02702, .05302,
2096 + .53165, .23468, .48864, .03472, .00681,
2097 + .00055, .02663, .05137 /
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 + .52260, .22916, .46013, .03398, .00725,
2100 + .00127, .02622, .04972,
2101 + .51501, .22462, .43747, .03335, .00755,
2102 + .00179, .02583, .04839,
2103 + .50569, .21923, .41119, .03258, .00785,
2104 + .00234, .02535, .04677,
2105 + .49745, .21452, .38924, .03188, .00805,
2106 + .00276, .02488, .04539,
2107 + .48991, .21025, .37013, .03124, .00820,
2108 + .00310, .02445, .04417,
2109 + .48026, .20492, .34708, .03041, .00835,
2110 + .00347, .02388, .04263,
2111 + .47126, .20001, .32676, .02963, .00844,
2112 + .00376, .02334, .04124,
2113 + .46294, .19551, .30889, .02890, .00849,
2114 + .00399, .02284, .03998 /
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 + .45455, .19106, .29194, .02817, .00851,
2117 + .00419, .02231, .03873,
2118 + .44643, .18681, .27636, .02748, .00851,
2119 + .00434, .02180, .03755,
2120 + .43880, .18289, .26246, .02683, .00849,
2121 + .00447, .02131, .03647,
2122 + .43165, .17921, .25002, .02622, .00846,
2123 + .00456, .02085, .03546,
2124 + .42462, .17559, .23822, .02560, .00842,
2125 + .00465, .02041, .03448,
2126 + .41766, .17210, .22716, .02501, .00836,
2127 + .00471, .01997, .03355,
2128 + .41117, .16885, .21723, .02446, .00830,
2129 + .00476, .01956, .03266,
2130 + .40501, .16583, .20825, .02396, .00822,
2131 + .00478, .01916, .03184 /
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 + .39888, .16284, .19965, .02347, .00814,
2134 + .00481, .01877, .03104,
2135 + .39291, .15992, .19153, .02297, .00806,
2136 + .00482, .01838, .03026,
2137 + .38728, .15716, .18415, .02249, .00798,
2138 + .00482, .01802, .02955,
2139 + .38200, .15459, .17746, .02206, .00790,
2140 + .00482, .01767, .02890,
2141 + .37668, .15203, .17096, .02160, .00782,
2142 + .00482, .01734, .02825 /
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 + .62416, .30054, .74564, .03311, .00000,
2145 + .00000, .02123, .06315,
2146 + .62240, .29636, .73945, .03279, .00000,
2147 + .00000, .02142, .06118,
2148 + .61759, .28974, .73322, .03247, -.00609,
2149 + .00000, .02175, .05855,
2150 + .61266, .28468, .71245, .03233, -.00441,
2151 + .00000, .02197, .05675,
2152 + .60664, .27914, .68758, .03208, -.00302,
2153 + .00000, .02216, .05504,
2154 + .60085, .27427, .66419, .03187, -.00192,
2155 + .00000, .02227, .05359,
2156 + .59489, .26954, .64114, .03161, -.00092,
2157 + .00000, .02235, .05225,
2158 + .58824, .26448, .61630, .03130, .00004,
2159 + .00000, .02239, .05089 /
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 + .58211, .26012, .59425, .03102, .00079,
2162 + .00000, .02238, .04972,
2163 + .57597, .25590, .57294, .03075, .00146,
2164 + .00000, .02234, .04860,
2165 + .57102, .25257, .55641, .03053, .00196,
2166 + .00000, .02228, .04772,
2167 + .56009, .24551, .52196, .02997, .00288,
2168 + .00000, .02209, .04595,
2169 + .55031, .23943, .49553, .02944, .00356,
2170 + -.00234, .02189, .04445,
2171 + .53916, .23272, .46147, .02879, .00419,
2172 + -.00130, .02159, .04282,
2173 + .52747, .22586, .42808, .02809, .00473,
2174 + -.00045, .02121, .04118,
2175 + .51679, .21977, .39960, .02744, .00514,
2176 + .00021, .02085, .03968 /
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 + .50595, .21379, .37264, .02678, .00547,
2179 + .00079, .02044, .03821,
2180 + .49700, .20890, .35154, .02620, .00569,
2181 + .00120, .02006, .03706,
2182 + .48618, .20306, .32745, .02548, .00590,
2183 + .00162, .01959, .03569,
2184 + .47668, .19802, .30756, .02485, .00606,
2185 + .00195, .01918, .03451,
2186 + .46806, .19353, .29047, .02426, .00615,
2187 + .00221, .01877, .03345,
2188 + .45717, .18791, .27009, .02351, .00623,
2189 + .00248, .01826, .03215,
2190 + .44705, .18279, .25235, .02284, .00628,
2191 + .00269, .01778, .03097,
2192 + .43770, .17814, .23693, .02223, .00631,
2193 + .00286, .01732, .02987 /
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 + .42846, .17354, .22247, .02157, .00630,
2196 + .00300, .01686, .02884,
2197 + .41956, .16916, .20932, .02096, .00628,
2198 + .00311, .01641, .02788,
2199 + .41127, .16512, .19765, .02040, .00625,
2200 + .00320, .01599, .02699,
2201 + .40351, .16140, .18730, .01987, .00620,
2202 + .00326, .01560, .02615,
2203 + .39587, .15775, .17754, .01937, .00614,
2204 + .00331, .01523, .02534,
2205 + .38841, .15421, .16850, .01886, .00609,
2206 + .00334, .01485, .02457,
2207 + .38150, .15094, .16043, .01840, .00602,
2208 + .00337, .01450, .02387,
2209 + .37497, .14790, .15319, .01795, .00596,
2210 + .00339, .01416, .02321 /
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 + .36852, .14492, .14626, .01752, .00589,
2213 + .00340, .01384, .02257,
2214 + .36221, .14200, .13980, .01710, .00581,
2215 + .00340, .01351, .02194,
2216 + .35627, .13929, .13395, .01672, .00573,
2217 + .00339, .01321, .02138,
2218 + .35073, .13676, .12867, .01636, .00567,
2219 + .00339, .01295, .02084,
2220 + .34516, .13425, .12356, .01601, .00560,
2221 + .00337, .01266, .02032 /
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 + .63794, .29616, .72351, .02571, .00000,
2224 + .00000, .01596, .05007,
2225 + .63302, .29075, .70633, .02580, .00000,
2226 + .00000, .01629, .04840,
2227 + .62390, .28240, .68664, .02585, -.00626,
2228 + .00000, .01678, .04622,
2229 + .61615, .27615, .65760, .02579, -.00465,
2230 + .00000, .01708, .04474,
2231 + .60724, .26951, .62553, .02575, -.00332,
2232 + .00000, .01731, .04324,
2233 + .59912, .26375, .59720, .02557, -.00229,
2234 + .00000, .01747, .04205,
2235 + .59104, .25828, .57031, .02540, -.00137,
2236 + .00000, .01755, .04092,
2237 + .58219, .25255, .54232, .02518, -.00049,
2238 + .00000, .01757, .03972 /
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 + .57428, .24756, .51822, .02493, .00017,
2241 + .00000, .01758, .03873,
2242 + .56653, .24281, .49546, .02470, .00076,
2243 + .00000, .01753, .03777,
2244 + .56036, .23911, .47806, .02449, .00119,
2245 + .00000, .01747, .03701,
2246 + .54702, .23123, .44241, .02397, .00199,
2247 + .00000, .01733, .03550,
2248 + .53525, .22464, .41570, .02351, .00255,
2249 + -.00209, .01710, .03419,
2250 + .52214, .21738, .38253, .02292, .00308,
2251 + -.00123, .01681, .03281,
2252 + .50852, .21007, .35073, .02229, .00352,
2253 + -.00053, .01645, .03139,
2254 + .49624, .20365, .32409, .02171, .00383,
2255 + .00000, .01612, .03013 /
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 + .48402, .19732, .29924, .02107, .00409,
2258 + .00046, .01576, .02891,
2259 + .47398, .19215, .28008, .02054, .00426,
2260 + .00078, .01541, .02798,
2261 + .46191, .18611, .25855, .01991, .00441,
2262 + .00111, .01499, .02680,
2263 + .45141, .18093, .24099, .01935, .00451,
2264 + .00136, .01460, .02580,
2265 + .44199, .17631, .22601, .01882, .00458,
2266 + .00156, .01426, .02494,
2267 + .43013, .17058, .20842, .01818, .00463,
2268 + .00176, .01380, .02387,
2269 + .41922, .16535, .19327, .01758, .00465,
2270 + .00192, .01337, .02292,
2271 + .40925, .16063, .18022, .01702, .00465,
2272 + .00204, .01298, .02207 /
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 + .39938, .15602, .16815, .01648, .00464,
2275 + .00214, .01259, .02119,
2276 + .38996, .15165, .15722, .01597, .00460,
2277 + .00222, .01223, .02039,
2278 + .38120, .14766, .14764, .01549, .00457,
2279 + .00228, .01187, .01967,
2280 + .37307, .14396, .13922, .01505, .00452,
2281 + .00232, .01155, .01901,
2282 + .36511, .14036, .13134, .01461, .00447,
2283 + .00235, .01122, .01837,
2284 + .35735, .13690, .12409, .01420, .00441,
2285 + .00237, .01091, .01775,
2286 + .35017, .13370, .11765, .01382, .00435,
2287 + .00238, .01063, .01718,
2288 + .34344, .13071, .11189, .01345, .00430,
2289 + .00239, .01036, .01667 /
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 + .33683, .12779, .10642, .01310, .00423,
2292 + .00239, .01009, .01618,
2293 + .33037, .12496, .10135, .01275, .00416,
2294 + .00238, .00984, .01569,
2295 + .32431, .12234, .09679, .01244, .00410,
2296 + .00238, .00960, .01524,
2297 + .31868, .11990, .09267, .01215, .00405,
2298 + .00237, .00937, .01483,
2299 + .31304, .11746, .08875, .01184, .00399,
2300 + .00236, .00915, .01443 /
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 + .64403, .28958, .69498, .02071, .00000,
2303 + .00000, .01093, .03801,
2304 + .63617, .28281, .66748, .02086, .00000,
2305 + .00000, .01157, .03685,
2306 + .62300, .27276, .63556, .02096, -.00619,
2307 + .00000, .01229, .03528,
2308 + .61253, .26544, .59951, .02097, -.00466,
2309 + .00000, .01268, .03423,
2310 + .60097, .25782, .56190, .02090, -.00340,
2311 + .00000, .01302, .03310,
2312 + .59061, .25135, .53018, .02082, -.00245,
2313 + .00000, .01321, .03210,
2314 + .58052, .24524, .50082, .02066, -.00162,
2315 + .00000, .01335, .03120,
2316 + .56970, .23887, .47096, .02045, -.00083,
2317 + .00000, .01344, .03026 /
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 + .56021, .23345, .44593, .02024, -.00024,
2320 + .00000, .01346, .02943,
2321 + .55108, .22823, .42275, .01996, .00027,
2322 + .00000, .01344, .02868,
2323 + .54389, .22415, .40522, .01972, .00064,
2324 + .00000, .01342, .02811,
2325 + .52834, .21578, .36999, .01926, .00132,
2326 + .00000, .01326, .02684,
2327 + .51496, .20877, .34392, .01882, .00179,
2328 + -.00182, .01310, .02578,
2329 + .50015, .20118, .31272, .01830, .00222,
2330 + -.00111, .01286, .02462,
2331 + .48502, .19354, .28334, .01769, .00257,
2332 + -.00054, .01255, .02349,
2333 + .47154, .18684, .25914, .01713, .00282,
2334 + -.00012, .01225, .02248 /
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 + .45818, .18035, .23692, .01658, .00302,
2337 + .00024, .01191, .02148,
2338 + .44726, .17516, .22002, .01613, .00314,
2339 + .00050, .01163, .02067,
2340 + .43431, .16901, .20127, .01554, .00326,
2341 + .00076, .01128, .01976,
2342 + .42314, .16376, .18613, .01505, .00333,
2343 + .00095, .01097, .01896,
2344 + .41308, .15910, .17338, .01461, .00337,
2345 + .00110, .01069, .01823,
2346 + .40060, .15339, .15854, .01403, .00340,
2347 + .00125, .01030, .01741,
2348 + .38914, .14823, .14594, .01353, .00340,
2349 + .00136, .00994, .01664,
2350 + .37867, .14359, .13518, .01309, .00340,
2351 + .00146, .00962, .01593 /
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 + .36847, .13905, .12529, .01263, .00338,
2354 + .00152, .00929, .01528,
2355 + .35875, .13477, .11643, .01219, .00334,
2356 + .00158, .00899, .01465,
2357 + .34978, .13086, .10874, .01176, .00330,
2358 + .00161, .00872, .01409,
2359 + .34147, .12726, .10203, .01138, .00327,
2360 + .00164, .00845, .01358,
2361 + .33336, .12377, .09577, .01102, .00322,
2362 + .00166, .00819, .01309,
2363 + .32552, .12043, .09010, .01068, .00317,
2364 + .00167, .00793, .01262,
2365 + .31828, .11736, .08507, .01036, .00312,
2366 + .00168, .00770, .01220,
2367 + .31152, .11452, .08062, .01006, .00307,
2368 + .00168, .00749, .01179 /
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 + .30487, .11173, .07640, .00977, .00302,
2371 + .00167, .00729, .01140,
2372 + .29842, .10903, .07251, .00949, .00297,
2373 + .00167, .00707, .01104,
2374 + .29240, .10652, .06901, .00923, .00291,
2375 + .00166, .00687, .01071,
2376 + .28682, .10419, .06589, .00898, .00287,
2377 + .00166, .00670, .01041,
2378 + .28126, .10190, .06292, .00873, .00282,
2379 + .00164, .00654, .01009 /
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 + .64467, .27927, .65437, .01578, .00000,
2382 + .00000, .00748, .02847,
2383 + .63357, .27155, .61868, .01617, .00000,
2384 + .00000, .00817, .02763,
2385 + .61627, .26013, .57700, .01647, -.00590,
2386 + .00000, .00901, .02655,
2387 + .60303, .25201, .53632, .01661, -.00449,
2388 + .00000, .00948, .02574,
2389 + .58886, .24366, .49545, .01661, -.00333,
2390 + .00000, .00983, .02489,
2391 + .57645, .23663, .46197, .01654, -.00246,
2392 + .00000, .01007, .02417,
2393 + .56462, .23001, .43170, .01641, -.00172,
2394 + .00000, .01020, .02348,
2395 + .55210, .22316, .40152, .01620, -.00103,
2396 + .00000, .01028, .02277 /
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 + .54117, .21740, .37670, .01604, -.00051,
2399 + .00000, .01033, .02210,
2400 + .53066, .21197, .35412, .01585, -.00008,
2401 + .00000, .01031, .02146,
2402 + .52244, .20777, .33721, .01568, .00025,
2403 + .00000, .01027, .02098,
2404 + .50509, .19904, .30377, .01523, .00081,
2405 + .00000, .01012, .02001,
2406 + .49037, .19180, .27934, .01481, .00120,
2407 + -.00155, .01001, .01916,
2408 + .47431, .18400, .25097, .01429, .00155,
2409 + -.00098, .00978, .01827,
2410 + .45791, .17629, .22473, .01379, .00183,
2411 + -.00053, .00952, .01732,
2412 + .44341, .16961, .20341, .01334, .00203,
2413 + -.00018, .00925, .01650 /
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 + .42924, .16308, .18411, .01285, .00218,
2416 + .00010, .00897, .01574,
2417 + .41779, .15784, .16961, .01243, .00228,
2418 + .00030, .00873, .01510,
2419 + .40421, .15178, .15365, .01195, .00236,
2420 + .00050, .00844, .01437,
2421 + .39253, .14664, .14100, .01153, .00240,
2422 + .00064, .00817, .01375,
2423 + .38212, .14208, .13043, .01116, .00244,
2424 + .00076, .00791, .01322,
2425 + .36926, .13650, .11827, .01070, .00245,
2426 + .00087, .00761, .01254,
2427 + .35759, .13147, .10805, .01025, .00245,
2428 + .00095, .00732, .01194,
2429 + .34702, .12695, .09940, .00983, .00244,
2430 + .00102, .00706, .01141 /
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 + .33661, .12259, .09155, .00947, .00241,
2433 + .00106, .00679, .01090,
2434 + .32680, .11851, .08458, .00910, .00238,
2435 + .00110, .00654, .01043,
2436 + .31782, .11477, .07854, .00876, .00236,
2437 + .00113, .00632, .01002,
2438 + .30954, .11134, .07334, .00845, .00232,
2439 + .00114, .00611, .00962,
2440 + .30149, .10803, .06855, .00813, .00228,
2441 + .00116, .00590, .00924,
2442 + .29369, .10488, .06419, .00786, .00224,
2443 + .00116, .00570, .00889,
2444 + .28651, .10199, .06034, .00762, .00220,
2445 + .00117, .00553, .00857,
2446 + .27983, .09930, .05698, .00739, .00217,
2447 + .00117, .00536, .00826 /
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 + .27328, .09669, .05381, .00718, .00212,
2450 + .00116, .00520, .00796,
2451 + .26697, .09416, .05090, .00696, .00208,
2452 + .00115, .00504, .00769,
2453 + .26110, .09184, .04830, .00675, .00204,
2454 + .00114, .00489, .00743,
2455 + .25566, .08969, .04599, .00656, .00200,
2456 + .00114, .00476, .00721,
2457 + .25022, .08756, .04379, .00637, .00196,
2458 + .00113, .00462, .00699 /
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 + .63873, .26707, .60151, .01227, .00000,
2461 + .00000, .00464, .02039,
2462 + .62483, .25830, .56006, .01266, .00000,
2463 + .00000, .00544, .02000,
2464 + .60347, .24591, .51186, .01310, -.00543,
2465 + .00000, .00634, .01931,
2466 + .58784, .23714, .46888, .01319, -.00415,
2467 + .00000, .00686, .01882,
2468 + .57135, .22817, .42702, .01323, -.00310,
2469 + .00000, .00721, .01823,
2470 + .55721, .22070, .39357, .01313, -.00233,
2471 + .00000, .00743, .01775,
2472 + .54377, .21379, .36383, .01302, -.00168,
2473 + .00000, .00760, .01724,
2474 + .52968, .20671, .33474, .01288, -.00108,
2475 + .00000, .00769, .01667 /
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 + .51754, .20074, .31122, .01270, -.00064,
2478 + .00000, .00770, .01621,
2479 + .50597, .19516, .29005, .01252, -.00027,
2480 + .00000, .00771, .01572,
2481 + .49696, .19087, .27439, .01236, -.00001,
2482 + .00000, .00772, .01532,
2483 + .47822, .18196, .24386, .01196, .00046,
2484 + .00000, .00762, .01455,
2485 + .46246, .17467, .22177, .01160, .00077,
2486 + -.00129, .00747, .01396,
2487 + .44535, .16688, .19675, .01118, .00105,
2488 + -.00083, .00731, .01324,
2489 + .42816, .15918, .17398, .01072, .00128,
2490 + -.00047, .00709, .01254,
2491 + .41305, .15253, .15582, .01032, .00144,
2492 + -.00020, .00686, .01191 /
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 + .39833, .14615, .13961, .00992, .00155,
2495 + .00002, .00662, .01129,
2496 + .38652, .14107, .12754, .00955, .00162,
2497 + .00017, .00644, .01082,
2498 + .37265, .13514, .11449, .00909, .00168,
2499 + .00032, .00618, .01029,
2500 + .36078, .13013, .10420, .00874, .00171,
2501 + .00042, .00598, .00981,
2502 + .35023, .12573, .09567, .00845, .00173,
2503 + .00051, .00578, .00938,
2504 + .33725, .12039, .08601, .00805, .00175,
2505 + .00060, .00553, .00884,
2506 + .32553, .11561, .07794, .00771, .00174,
2507 + .00066, .00531, .00840,
2508 + .31495, .11134, .07119, .00738, .00173,
2509 + .00070, .00510, .00801 /
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 + .30465, .10719, .06513, .00707, .00170,
2512 + .00073, .00489, .00764,
2513 + .29496, .10332, .05978, .00677, .00169,
2514 + .00077, .00470, .00728,
2515 + .28611, .09979, .05522, .00649, .00166,
2516 + .00078, .00452, .00695,
2517 + .27798, .09658, .05130, .00625, .00163,
2518 + .00079, .00436, .00668,
2519 + .27008, .09350, .04770, .00601, .00160,
2520 + .00080, .00419, .00642,
2521 + .26248, .09055, .04447, .00580, .00157,
2522 + .00080, .00404, .00614,
2523 + .25551, .08788, .04163, .00561, .00154,
2524 + .00080, .00391, .00589,
2525 + .24907, .08539, .03915, .00542, .00150,
2526 + .00080, .00379, .00568 /
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 + .24279, .08296, .03684, .00523, .00147,
2529 + .00079, .00366, .00548,
2530 + .23671, .08064, .03473, .00506, .00144,
2531 + .00079, .00354, .00527,
2532 + .23104, .07850, .03288, .00490, .00141,
2533 + .00078, .00343, .00509,
2534 + .22582, .07654, .03122, .00476, .00139,
2535 + .00078, .00333, .00491,
2536 + .22065, .07460, .02966, .00461, .00136,
2537 + .00078, .00323, .00475 /
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 + .62703, .25286, .53741, .00942, .00000,
2540 + .00000, .00264, .01416,
2541 + .61036, .24338, .49304, .00984, .00000,
2542 + .00000, .00346, .01406,
2543 + .58561, .23007, .44174, .01019, -.00482,
2544 + .00000, .00439, .01376,
2545 + .56780, .22088, .39895, .01033, -.00370,
2546 + .00000, .00482, .01350,
2547 + .54922, .21158, .35820, .01036, -.00278,
2548 + .00000, .00523, .01311,
2549 + .53348, .20392, .32626, .01035, -.00211,
2550 + .00000, .00546, .01273,
2551 + .51866, .19683, .29842, .01026, -.00156,
2552 + .00000, .00558, .01238,
2553 + .50331, .18960, .27155, .01009, -.00105,
2554 + .00000, .00566, .01201 /
2555 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
2556 + .49029, .18355, .25012, .00992, -.00069,
2557 + .00000, .00572, .01163,
2558 + .47798, .17789, .23111, .00974, -.00038,
2559 + .00000, .00573, .01129,
2560 + .46842, .17356, .21713, .00961, -.00016,
2561 + .00000, .00569, .01105,
2562 + .44851, .16474, .19028, .00927, .00022,
2563 + .00000, .00564, .01044,
2564 + .43209, .15751, .17105, .00892, .00047,
2565 + -.00104, .00553, .00998,
2566 + .41428, .14987, .14985, .00856, .00070,
2567 + -.00068, .00535, .00948,
2568 + .39652, .14235, .13083, .00820, .00087,
2569 + -.00040, .00518, .00892,
2570 + .38113, .13590, .11582, .00784, .00099,
2571 + -.00020, .00502, .00845 /
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 + .36625, .12974, .10263, .00745, .00108,
2574 + -.00003, .00485, .00799,
2575 + .35424, .12484, .09293, .00722, .00113,
2576 + .00008, .00468, .00763,
2577 + .34028, .11919, .08254, .00688, .00117,
2578 + .00019, .00450, .00720,
2579 + .32846, .11443, .07445, .00656, .00120,
2580 + .00028, .00432, .00685,
2581 + .31800, .11026, .06783, .00627, .00122,
2582 + .00034, .00416, .00655,
2583 + .30519, .10521, .06039, .00595, .00122,
2584 + .00040, .00397, .00618,
2585 + .29362, .10070, .05427, .00567, .00122,
2586 + .00045, .00379, .00583,
2587 + .28321, .09670, .04919, .00543, .00120,
2588 + .00048, .00363, .00553 /
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 + .27321, .09284, .04468, .00516, .00119,
2591 + .00051, .00347, .00527,
2592 + .26380, .08924, .04074, .00492, .00117,
2593 + .00052, .00331, .00502,
2594 + .25519, .08599, .03739, .00473, .00115,
2595 + .00053, .00318, .00478,
2596 + .24734, .08304, .03455, .00456, .00112,
2597 + .00053, .00307, .00456,
2598 + .23976, .08017, .03193, .00437, .00111,
2599 + .00055, .00297, .00436,
2600 + .23248, .07747, .02963, .00420, .00108,
2601 + .00055, .00284, .00419,
2602 + .22582, .07499, .02763, .00405, .00106,
2603 + .00055, .00272, .00402,
2604 + .21966, .07276, .02589, .00391, .00104,
2605 + .00054, .00262, .00385 /
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 + .21364, .07057, .02428, .00378, .00102,
2608 + .00054, .00252, .00369,
2609 + .20789, .06847, .02281, .00365, .00099,
2610 + .00053, .00244, .00353,
2611 + .20257, .06653, .02151, .00352, .00097,
2612 + .00053, .00237, .00340,
2613 + .19767, .06474, .02038, .00340, .00095,
2614 + .00053, .00229, .00328,
2615 + .19280, .06297, .01932, .00328, .00093,
2616 + .00052, .00222, .00318 /
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 + .61021, .23677, .46529, .00683, .00000,
2619 + .00000, .00139, .00964,
2620 + .59098, .22689, .42083, .00727, .00000,
2621 + .00000, .00214, .00969,
2622 + .56310, .21308, .36964, .00770, -.00416,
2623 + .00000, .00298, .00963,
2624 + .54331, .20372, .32905, .00787, -.00320,
2625 + .00000, .00348, .00942,
2626 + .52313, .19419, .29133, .00789, -.00241,
2627 + .00000, .00375, .00923,
2628 + .50611, .18642, .26217, .00789, -.00185,
2629 + .00000, .00397, .00899,
2630 + .49028, .17932, .23710, .00781, -.00139,
2631 + .00000, .00410, .00876,
2632 + .47399, .17214, .21325, .00769, -.00097,
2633 + .00000, .00417, .00850 /
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 + .46024, .16610, .19452, .00756, -.00067,
2636 + .00000, .00421, .00827,
2637 + .44731, .16053, .17811, .00739, -.00042,
2638 + .00000, .00420, .00805,
2639 + .43737, .15627, .16618, .00723, -.00025,
2640 + .00000, .00417, .00786,
2641 + .41687, .14758, .14347, .00696, .00006,
2642 + .00000, .00411, .00741,
2643 + .39994, .14062, .12739, .00672, .00026,
2644 + -.00082, .00403, .00703,
2645 + .38184, .13324, .11001, .00641, .00044,
2646 + -.00055, .00392, .00664,
2647 + .36393, .12603, .09462, .00609, .00058,
2648 + -.00033, .00378, .00626,
2649 + .34847, .11987, .08272, .00581, .00066,
2650 + -.00018, .00365, .00590 /
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 + .33357, .11401, .07236, .00553, .00073,
2653 + -.00006, .00351, .00556,
2654 + .32176, .10936, .06488, .00527, .00077,
2655 + .00003, .00337, .00532,
2656 + .30796, .10405, .05694, .00500, .00081,
2657 + .00012, .00323, .00499,
2658 + .29627, .09961, .05081, .00479, .00082,
2659 + .00018, .00310, .00473,
2660 + .28597, .09572, .04587, .00461, .00083,
2661 + .00023, .00298, .00451,
2662 + .27349, .09103, .04041, .00435, .00083,
2663 + .00026, .00281, .00424,
2664 + .26234, .08685, .03594, .00410, .00083,
2665 + .00029, .00268, .00401,
2666 + .25236, .08313, .03226, .00390, .00082,
2667 + .00032, .00258, .00379 /
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 + .24268, .07960, .02906, .00374, .00081,
2670 + .00034, .00245, .00359,
2671 + .23365, .07631, .02629, .00357, .00080,
2672 + .00035, .00233, .00340,
2673 + .22550, .07334, .02396, .00338, .00078,
2674 + .00036, .00223, .00322,
2675 + .21805, .07064, .02201, .00323, .00077,
2676 + .00036, .00213, .00309,
2677 + .21086, .06807, .02024, .00308, .00075,
2678 + .00036, .00203, .00296,
2679 + .20401, .06562, .01866, .00294, .00073,
2680 + .00037, .00196, .00282,
2681 + .19776, .06339, .01729, .00282, .00072,
2682 + .00037, .00188, .00270,
2683 + .19199, .06135, .01614, .00271, .00071,
2684 + .00037, .00182, .00259 /
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 + .18638, .05938, .01507, .00261, .00069,
2687 + .00036, .00176, .00247,
2688 + .18098, .05751, .01410, .00253, .00067,
2689 + .00037, .00169, .00237,
2690 + .17599, .05579, .01326, .00245, .00065,
2691 + .00036, .00162, .00227,
2692 + .17140, .05422, .01252, .00238, .00064,
2693 + .00035, .00157, .00218,
2694 + .16690, .05264, .01182, .00230, .00063,
2695 + .00036, .00152, .00210 /
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 + .58791, .22025, .38887, .00533, .00000,
2698 + .00000, .00037, .00603,
2699 + .56658, .20998, .34665, .00568, .00000,
2700 + .00000, .00109, .00626,
2701 + .53617, .19591, .29851, .00601, -.00348,
2702 + .00000, .00189, .00633,
2703 + .51493, .18637, .26182, .00613, -.00268,
2704 + .00000, .00226, .00636,
2705 + .49355, .17684, .22810, .00607, -.00202,
2706 + .00000, .00257, .00635,
2707 + .47562, .16915, .20275, .00607, -.00156,
2708 + .00000, .00275, .00617,
2709 + .45910, .16209, .18114, .00599, -.00118,
2710 + .00000, .00288, .00601,
2711 + .44226, .15496, .16086, .00584, -.00085,
2712 + .00000, .00298, .00585 /
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 + .42800, .14912, .14517, .00575, -.00060,
2715 + .00000, .00301, .00567,
2716 + .41474, .14368, .13157, .00564, -.00040,
2717 + .00000, .00300, .00551,
2718 + .40457, .13955, .12179, .00554, -.00027,
2719 + .00000, .00299, .00536,
2720 + .38368, .13120, .10336, .00531, -.00003,
2721 + .00000, .00295, .00505,
2722 + .36672, .12448, .09050, .00506, .00013,
2723 + -.00063, .00288, .00481,
2724 + .34871, .11744, .07681, .00478, .00026,
2725 + -.00043, .00280, .00456,
2726 + .33092, .11061, .06494, .00451, .00037,
2727 + -.00027, .00270, .00428,
2728 + .31562, .10483, .05586, .00427, .00044,
2729 + -.00015, .00259, .00404 /
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 + .30100, .09932, .04812, .00404, .00048,
2732 + -.00006, .00246, .00381,
2733 + .28940, .09502, .04257, .00391, .00052,
2734 + .00001, .00237, .00359,
2735 + .27600, .09010, .03681, .00368, .00053,
2736 + .00006, .00224, .00339,
2737 + .26476, .08598, .03242, .00348, .00055,
2738 + .00011, .00213, .00320,
2739 + .25492, .08240, .02889, .00332, .00056,
2740 + .00015, .00206, .00303,
2741 + .24293, .07809, .02506, .00314, .00056,
2742 + .00018, .00194, .00284,
2743 + .23222, .07427, .02197, .00298, .00056,
2744 + .00021, .00184, .00268,
2745 + .22268, .07091, .01948, .00284, .00055,
2746 + .00022, .00176, .00255 /
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 + .21364, .06769, .01733, .00265, .00055,
2749 + .00024, .00167, .00240,
2750 + .20515, .06471, .01552, .00251, .00053,
2751 + .00024, .00160, .00226,
2752 + .19742, .06204, .01400, .00241, .00052,
2753 + .00025, .00152, .00213,
2754 + .19045, .05964, .01273, .00231, .00051,
2755 + .00026, .00146, .00203,
2756 + .18375, .05733, .01158, .00221, .00051,
2757 + .00027, .00139, .00193,
2758 + .17735, .05514, .01063, .00211, .00049,
2759 + .00026, .00132, .00182,
2760 + .17153, .05316, .00979, .00201, .00048,
2761 + .00027, .00127, .00174,
2762 + .16619, .05137, .00907, .00193, .00047,
2763 + .00026, .00122, .00166 /
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 + .16101, .04963, .00842, .00186, .00046,
2766 + .00027, .00117, .00160,
2767 + .15605, .04795, .00785, .00178, .00045,
2768 + .00027, .00113, .00153,
2769 + .15148, .04642, .00734, .00172, .00045,
2770 + .00027, .00109, .00146,
2771 + .14729, .04502, .00691, .00166, .00043,
2772 + .00027, .00105, .00140,
2773 + .14318, .04365, .00651, .00159, .00042,
2774 + .00026, .00100, .00136 /
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 + .56155, .20260, .31185, .00396, .00000,
2777 + .00000, -.00023, .00368,
2778 + .53853, .19233, .27372, .00428, .00000,
2779 + .00000, .00042, .00392,
2780 + .50608, .17827, .23071, .00459, -.00284,
2781 + .00000, .00109, .00410,
2782 + .48385, .16884, .19896, .00468, -.00218,
2783 + .00000, .00143, .00415,
2784 + .46137, .15958, .17050, .00469, -.00165,
2785 + .00000, .00169, .00409,
2786 + .44290, .15200, .14928, .00466, -.00127,
2787 + .00000, .00182, .00409,
2788 + .42593, .14516, .13152, .00462, -.00098,
2789 + .00000, .00191, .00399,
2790 + .40871, .13833, .11506, .00453, -.00071,
2791 + .00000, .00201, .00383 /
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 + .39437, .13266, .10253, .00441, -.00052,
2794 + .00000, .00202, .00371,
2795 + .38101, .12748, .09177, .00430, -.00036,
2796 + .00000, .00202, .00362,
2797 + .37078, .12354, .08407, .00421, -.00025,
2798 + .00000, .00202, .00354,
2799 + .35004, .11560, .06978, .00397, -.00007,
2800 + .00000, .00199, .00341,
2801 + .33320, .10924, .06002, .00382, .00005,
2802 + -.00048, .00196, .00322,
2803 + .31545, .10265, .04978, .00361, .00015,
2804 + -.00033, .00188, .00300,
2805 + .29809, .09631, .04103, .00340, .00022,
2806 + -.00021, .00181, .00280,
2807 + .28326, .09092, .03451, .00322, .00028,
2808 + -.00012, .00173, .00262 /
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 + .26917, .08584, .02899, .00301, .00031,
2811 + -.00006, .00166, .00249,
2812 + .25804, .08188, .02515, .00286, .00034,
2813 + -.00001, .00158, .00236,
2814 + .24521, .07734, .02120, .00270, .00035,
2815 + .00003, .00150, .00222,
2816 + .23447, .07357, .01826, .00255, .00037,
2817 + .00006, .00143, .00209,
2818 + .22510, .07033, .01593, .00245, .00037,
2819 + .00009, .00136, .00197,
2820 + .21380, .06642, .01348, .00228, .00038,
2821 + .00011, .00129, .00183,
2822 + .20376, .06297, .01154, .00215, .00038,
2823 + .00013, .00121, .00172,
2824 + .19485, .05993, .00998, .00204, .00038,
2825 + .00014, .00115, .00163 /
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 + .18635, .05708, .00870, .00192, .00037,
2828 + .00015, .00109, .00151,
2829 + .17842, .05442, .00762, .00182, .00037,
2830 + .00016, .00103, .00143,
2831 + .17125, .05204, .00673, .00174, .00036,
2832 + .00017, .00099, .00137,
2833 + .16479, .04991, .00601, .00166, .00035,
2834 + .00017, .00094, .00130,
2835 + .15859, .04787, .00538, .00159, .00035,
2836 + .00018, .00090, .00122,
2837 + .15277, .04593, .00485, .00151, .00034,
2838 + .00018, .00085, .00116,
2839 + .14748, .04417, .00439, .00142, .00034,
2840 + .00019, .00081, .00112,
2841 + .14260, .04259, .00404, .00137, .00033,
2842 + .00019, .00078, .00106 /
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 + .13787, .04107, .00371, .00131, .00032,
2845 + .00019, .00075, .00100,
2846 + .13337, .03962, .00341, .00125, .00031,
2847 + .00019, .00072, .00095,
2848 + .12923, .03829, .00316, .00121, .00032,
2849 + .00020, .00068, .00092,
2850 + .12545, .03706, .00296, .00116, .00031,
2851 + .00020, .00066, .00088,
2852 + .12171, .03587, .00276, .00112, .00030,
2853 + .00020, .00064, .00085 /
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 + .53113, .18445, .23775, .00280, .00000,
2856 + .00000, -.00040, .00206,
2857 + .50680, .17429, .20502, .00310, .00000,
2858 + .00000, .00011, .00234,
2859 + .47304, .16046, .16868, .00326, -.00224,
2860 + .00000, .00064, .00263,
2861 + .45006, .15127, .14261, .00337, -.00172,
2862 + .00000, .00093, .00266,
2863 + .42717, .14231, .11954, .00342, -.00130,
2864 + .00000, .00111, .00269,
2865 + .40854, .13504, .10264, .00335, -.00101,
2866 + .00000, .00127, .00268,
2867 + .39147, .12849, .08873, .00327, -.00077,
2868 + .00000, .00133, .00265,
2869 + .37422, .12194, .07605, .00321, -.00057,
2870 + .00000, .00136, .00261 /
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 + .35987, .11657, .06654, .00314, -.00042,
2873 + .00000, .00140, .00253,
2874 + .34662, .11169, .05847, .00306, -.00030,
2875 + .00000, .00142, .00243,
2876 + .33654, .10804, .05275, .00300, -.00022,
2877 + .00000, .00143, .00235,
2878 + .31607, .10062, .04247, .00284, -.00008,
2879 + .00000, .00140, .00223,
2880 + .29970, .09473, .03548, .00268, .00001,
2881 + -.00036, .00136, .00211,
2882 + .28253, .08860, .02828, .00253, .00009,
2883 + -.00025, .00132, .00199,
2884 + .26584, .08275, .02225, .00237, .00015,
2885 + -.00016, .00127, .00187,
2886 + .25164, .07781, .01795, .00221, .00019,
2887 + -.00010, .00120, .00175 /
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 + .23815, .07320, .01438, .00210, .00022,
2890 + -.00005, .00114, .00163,
2891 + .22760, .06963, .01193, .00200, .00023,
2892 + -.00002, .00109, .00154,
2893 + .21551, .06555, .00954, .00186, .00025,
2894 + .00001, .00102, .00143,
2895 + .20545, .06216, .00777, .00174, .00025,
2896 + .00002, .00097, .00136,
2897 + .19672, .05921, .00644, .00162, .00026,
2898 + .00004, .00093, .00129,
2899 + .18614, .05573, .00505, .00155, .00026,
2900 + .00005, .00088, .00121,
2901 + .17682, .05268, .00399, .00146, .00026,
2902 + .00006, .00083, .00113,
2903 + .16861, .05001, .00320, .00135, .00026,
2904 + .00007, .00078, .00105 /
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 + .16077, .04747, .00255, .00128, .00027,
2907 + .00008, .00072, .00099,
2908 + .15352, .04512, .00204, .00120, .00027,
2909 + .00009, .00069, .00095,
2910 + .14702, .04304, .00163, .00113, .00026,
2911 + .00009, .00066, .00089,
2912 + .14113, .04117, .00133, .00107, .00026,
2913 + .00010, .00063, .00085,
2914 + .13549, .03938, .00109, .00102, .00026,
2915 + .00010, .00058, .00080,
2916 + .13018, .03771, .00088, .00098, .00025,
2917 + .00010, .00058, .00075,
2918 + .12535, .03620, .00073, .00094, .00025,
2919 + .00011, .00055, .00070,
2920 + .12095, .03482, .00060, .00090, .00025,
2921 + .00011, .00053, .00068 /
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 + .11671, .03351, .00049, .00086, .00024,
2924 + .00011, .00050, .00066,
2925 + .11268, .03225, .00042, .00082, .00024,
2926 + .00011, .00048, .00064,
2927 + .10899, .03110, .00035, .00078, .00023,
2928 + .00011, .00046, .00062,
2929 + .10561, .03007, .00030, .00074, .00023,
2930 + .00011, .00044, .00059,
2931 + .10227, .02905, .00026, .00072, .00024,
2932 + .00012, .00042, .00056 /
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 + .49773, .16620, .16954, .00179, .00000,
2935 + .00000, -.00047, .00112,
2936 + .47251, .15618, .14300, .00207, .00000,
2937 + .00000, -.00007, .00138,
2938 + .43790, .14276, .11405, .00225, -.00173,
2939 + .00000, .00042, .00159,
2940 + .41466, .13399, .09375, .00226, -.00132,
2941 + .00000, .00063, .00171,
2942 + .39164, .12540, .07606, .00232, -.00100,
2943 + .00000, .00079, .00182,
2944 + .37294, .11855, .06351, .00231, -.00078,
2945 + .00000, .00091, .00176,
2946 + .35599, .11239, .05338, .00224, -.00060,
2947 + .00000, .00099, .00172,
2948 + .33896, .10629, .04426, .00216, -.00045,
2949 + .00000, .00103, .00171 /
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 + .32495, .10130, .03752, .00211, -.00033,
2952 + .00000, .00102, .00168,
2953 + .31203, .09674, .03196, .00203, -.00025,
2954 + .00000, .00103, .00163,
2955 + .30225, .09329, .02812, .00197, -.00019,
2956 + .00000, .00103, .00158,
2957 + .28248, .08646, .02125, .00184, -.00009,
2958 + .00000, .00101, .00151,
2959 + .26680, .08108, .01667, .00173, -.00002,
2960 + -.00025, .00097, .00144,
2961 + .25036, .07552, .01209, .00162, .00004,
2962 + -.00018, .00093, .00135,
2963 + .23448, .07021, .00842, .00150, .00009,
2964 + -.00012, .00088, .00126,
2965 + .22108, .06577, .00584, .00141, .00012,
2966 + -.00008, .00085, .00119 /
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 + .20844, .06164, .00382, .00132, .00015,
2969 + -.00005, .00080, .00111,
2970 + .19865, .05844, .00252, .00122, .00017,
2971 + -.00003, .00076, .00103,
2972 + .18734, .05481, .00127, .00116, .00018,
2973 + -.00001, .00073, .00096,
2974 + .17798, .05182, .00044, .00111, .00019,
2975 + .00000, .00069, .00090,
2976 + .16993, .04925, -.00016, .00103, .00020,
2977 + .00001, .00065, .00085,
2978 + .16028, .04619, -.00075, .00095, .00021,
2979 + .00003, .00061, .00079,
2980 + .15176, .04350, -.00113, .00088, .00021,
2981 + .00003, .00058, .00073,
2982 + .14426, .04116, -.00138, .00083, .00021,
2983 + .00004, .00056, .00070 /
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 + .13714, .03896, -.00153, .00078, .00021,
2986 + .00005, .00052, .00065,
2987 + .13057, .03694, -.00163, .00073, .00021,
2988 + .00005, .00048, .00062,
2989 + .12469, .03514, -.00167, .00069, .00020,
2990 + .00005, .00046, .00057,
2991 + .11940, .03353, -.00169, .00065, .00021,
2992 + .00006, .00044, .00053,
2993 + .11436, .03200, -.00169, .00064, .00021,
2994 + .00006, .00042, .00050,
2995 + .10961, .03059, -.00165, .00060, .00020,
2996 + .00006, .00039, .00047,
2997 + .10533, .02929, -.00162, .00058, .00020,
2998 + .00006, .00037, .00046,
2999 + .10142, .02813, -.00155, .00054, .00020,
3000 + .00007, .00035, .00044 /
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 + .09768, .02700, -.00151, .00051, .00020,
3003 + .00007, .00034, .00043,
3004 + .09411, .02594, -.00145, .00049, .00020,
3005 + .00007, .00032, .00040,
3006 + .09085, .02497, -.00139, .00046, .00020,
3007 + .00007, .00031, .00038,
3008 + .08787, .02409, -.00133, .00045, .00020,
3009 + .00007, .00030, .00036,
3010 + .08495, .02323, -.00126, .00043, .00019,
3011 + .00007, .00029, .00034 /
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 + .46177, .14878, .10868, .00176, .00000,
3014 + .00000, -.00073, .00029,
3015 + .43632, .13921, .08863, .00174, .00000,
3016 + .00000, -.00036, .00057,
3017 + .40158, .12642, .06714, .00191, -.00130,
3018 + .00000, .00001, .00084,
3019 + .37855, .11808, .05249, .00187, -.00099,
3020 + .00000, .00024, .00086,
3021 + .35575, .11002, .04011, .00188, -.00074,
3022 + .00000, .00039, .00088,
3023 + .33743, .10358, .03141, .00183, -.00059,
3024 + .00000, .00050, .00097,
3025 + .32094, .09783, .02459, .00178, -.00045,
3026 + .00000, .00053, .00101,
3027 + .30446, .09213, .01869, .00171, -.00034,
3028 + .00000, .00054, .00101 /
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 + .29088, .08756, .01447, .00163, -.00026,
3031 + .00000, .00057, .00098,
3032 + .27849, .08338, .01106, .00157, -.00020,
3033 + .00000, .00058, .00096,
3034 + .26912, .08023, .00872, .00151, -.00015,
3035 + .00000, .00059, .00096,
3036 + .25031, .07400, .00477, .00142, -.00008,
3037 + .00000, .00057, .00087,
3038 + .23538, .06911, .00229, .00138, -.00004,
3039 + -.00018, .00055, .00084,
3040 + .21991, .06411, -.00021, .00129, .00000,
3041 + -.00013, .00055, .00081,
3042 + .20508, .05936, -.00199, .00118, .00003,
3043 + -.00010, .00052, .00075,
3044 + .19264, .05541, -.00311, .00109, .00006,
3045 + -.00006, .00047, .00070 /
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 + .18099, .05171, -.00389, .00100, .00008,
3048 + -.00004, .00045, .00065,
3049 + .17186, .04887, -.00432, .00096, .00009,
3050 + -.00003, .00043, .00062,
3051 + .16152, .04568, -.00462, .00090, .00010,
3052 + -.00002, .00041, .00055,
3053 + .15300, .04306, -.00477, .00085, .00011,
3054 + -.00001, .00039, .00050,
3055 + .14567, .04081, -.00481, .00079, .00012,
3056 + .00000, .00038, .00049,
3057 + .13688, .03813, -.00474, .00071, .00012,
3058 + .00000, .00034, .00047,
3059 + .12920, .03581, -.00464, .00066, .00013,
3060 + .00001, .00032, .00042,
3061 + .12247, .03378, -.00450, .00061, .00013,
3062 + .00001, .00032, .00038 /
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 + .11606, .03189, -.00430, .00059, .00014,
3065 + .00002, .00029, .00036,
3066 + .11020, .03016, -.00411, .00055, .00014,
3067 + .00002, .00028, .00034,
3068 + .10496, .02860, -.00391, .00052, .00014,
3069 + .00002, .00025, .00032,
3070 + .10028, .02723, -.00373, .00049, .00014,
3071 + .00002, .00023, .00031,
3072 + .09582, .02594, -.00351, .00045, .00015,
3073 + .00003, .00022, .00028,
3074 + .09163, .02471, -.00333, .00044, .00015,
3075 + .00003, .00021, .00027,
3076 + .08784, .02362, -.00315, .00043, .00015,
3077 + .00003, .00020, .00026,
3078 + .08443, .02263, -.00298, .00039, .00015,
3079 + .00003, .00018, .00024 /
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 + .08115, .02168, -.00282, .00037, .00015,
3082 + .00003, .00017, .00023,
3083 + .07804, .02078, -.00265, .00034, .00015,
3084 + .00003, .00016, .00022,
3085 + .07518, .01998, -.00252, .00033, .00015,
3086 + .00003, .00016, .00021,
3087 + .07258, .01924, -.00239, .00032, .00015,
3088 + .00003, .00015, .00020,
3089 + .07005, .01852, -.00226, .00031, .00015,
3090 + .00003, .00015, .00019 /
3091 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
3092 + .42384, .13086, .05730, .00092, .00000,
3093 + .00000, -.00048, .00012,
3094 + .39826, .12185, .04343, .00113, .00000,
3095 + .00000, -.00025, .00027,
3096 + .36398, .10996, .02925, .00114, -.00094,
3097 + .00000, .00006, .00047,
3098 + .34132, .10220, .01961, .00121, -.00072,
3099 + .00000, .00021, .00054,
3100 + .31928, .09482, .01179, .00123, -.00054,
3101 + .00000, .00025, .00061,
3102 + .30159, .08891, .00669, .00120, -.00042,
3103 + .00000, .00029, .00060,
3104 + .28569, .08371, .00279, .00117, -.00033,
3105 + .00000, .00034, .00059,
3106 + .26995, .07859, -.00043, .00113, -.00026,
3107 + .00000, .00039, .00056 /
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 + .25714, .07439, -.00262, .00107, -.00020,
3110 + .00000, .00038, .00059,
3111 + .24540, .07059, -.00427, .00102, -.00015,
3112 + .00000, .00039, .00060,
3113 + .23651, .06776, -.00525, .00100, -.00013,
3114 + .00000, .00036, .00058,
3115 + .21885, .06223, -.00694, .00097, -.00008,
3116 + .00000, .00038, .00055,
3117 + .20495, .05790, -.00777, .00091, -.00005,
3118 + -.00013, .00038, .00052,
3119 + .19071, .05349, -.00855, .00082, -.00002,
3120 + -.00010, .00036, .00047,
3121 + .17703, .04928, -.00892, .00076, .00001,
3122 + -.00007, .00034, .00043,
3123 + .16560, .04582, -.00897, .00071, .00002,
3124 + -.00006, .00032, .00040 /
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 + .15495, .04261, -.00882, .00065, .00003,
3127 + -.00005, .00029, .00038,
3128 + .14672, .04014, -.00861, .00060, .00004,
3129 + -.00004, .00027, .00038,
3130 + .13739, .03737, -.00829, .00055, .00005,
3131 + -.00003, .00026, .00036,
3132 + .12971, .03510, -.00793, .00051, .00006,
3133 + -.00002, .00026, .00034,
3134 + .12308, .03319, -.00758, .00049, .00006,
3135 + -.00002, .00023, .00031,
3136 + .11525, .03090, -.00711, .00045, .00007,
3137 + -.00001, .00022, .00029,
3138 + .10841, .02892, -.00665, .00041, .00007,
3139 + -.00001, .00020, .00027,
3140 + .10242, .02720, -.00623, .00039, .00007,
3141 + -.00001, .00018, .00025 /
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 + .09680, .02560, -.00581, .00036, .00007,
3144 + -.00001, .00018, .00023,
3145 + .09164, .02413, -.00542, .00035, .00008,
3146 + .00000, .00017, .00020,
3147 + .08703, .02284, -.00507, .00034, .00008,
3148 + .00000, .00016, .00018,
3149 + .08292, .02168, -.00474, .00031, .00008,
3150 + .00000, .00014, .00016,
3151 + .07906, .02060, -.00444, .00029, .00008,
3152 + .00000, .00014, .00017,
3153 + .07540, .01960, -.00415, .00028, .00008,
3154 + .00000, .00013, .00016,
3155 + .07211, .01868, -.00389, .00028, .00008,
3156 + .00000, .00012, .00016,
3157 + .06916, .01786, -.00365, .00025, .00008,
3158 + .00000, .00012, .00014 /
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 + .06633, .01707, -.00343, .00024, .00008,
3161 + .00000, .00011, .00013,
3162 + .06364, .01634, -.00322, .00023, .00008,
3163 + .00000, .00010, .00013,
3164 + .06120, .01567, -.00302, .00021, .00009,
3165 + .00001, .00010, .00012,
3166 + .05897, .01506, -.00286, .00020, .00009,
3167 + .00001, .00009, .00012,
3168 + .05682, .01448, -.00269, .00019, .00009,
3169 + .00001, .00009, .00011 /
3170 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
3171 + .38438, .11377, .01597, .00047, .00000,
3172 + .00000, -.00031, .00002,
3173 + .35943, .10541, .00773, .00054, .00000,
3174 + .00000, -.00012, .00014,
3175 + .32610, .09447, -.00014, .00066, -.00066,
3176 + .00000, .00006, .00028,
3177 + .30432, .08744, -.00526, .00063, -.00051,
3178 + .00000, .00010, .00038,
3179 + .28327, .08064, -.00920, .00065, -.00039,
3180 + .00000, .00020, .00040,
3181 + .26643, .07535, -.01146, .00067, -.00030,
3182 + .00000, .00022, .00039,
3183 + .25140, .07064, -.01296, .00065, -.00024,
3184 + .00000, .00023, .00041,
3185 + .23659, .06603, -.01404, .00063, -.00019,
3186 + .00000, .00026, .00043 /
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 + .22450, .06235, -.01455, .00064, -.00015,
3189 + .00000, .00026, .00040,
3190 + .21354, .05904, -.01480, .00062, -.00013,
3191 + .00000, .00027, .00038,
3192 + .20535, .05655, -.01485, .00060, -.00011,
3193 + .00000, .00026, .00036,
3194 + .18908, .05161, -.01468, .00054, -.00007,
3195 + .00000, .00027, .00037,
3196 + .17638, .04781, -.01424, .00048, -.00005,
3197 + -.00009, .00026, .00034,
3198 + .16330, .04397, -.01378, .00045, -.00003,
3199 + -.00007, .00024, .00031,
3200 + .15085, .04034, -.01310, .00043, -.00002,
3201 + -.00006, .00022, .00027,
3202 + .14055, .03734, -.01240, .00039, -.00001,
3203 + -.00005, .00022, .00027 /
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 + .13097, .03459, -.01164, .00035, .00000,
3206 + -.00004, .00021, .00026,
3207 + .12359, .03248, -.01100, .00033, .00001,
3208 + -.00003, .00020, .00023,
3209 + .11528, .03012, -.01021, .00032, .00001,
3210 + -.00003, .00018, .00021,
3211 + .10848, .02821, -.00952, .00029, .00002,
3212 + -.00002, .00016, .00020,
3213 + .10266, .02658, -.00893, .00026, .00002,
3214 + -.00002, .00015, .00019,
3215 + .09575, .02465, -.00817, .00025, .00002,
3216 + -.00002, .00014, .00016,
3217 + .08974, .02300, -.00753, .00024, .00003,
3218 + -.00001, .00013, .00015,
3219 + .08451, .02157, -.00696, .00021, .00003,
3220 + -.00001, .00012, .00016 /
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 + .07961, .02022, -.00641, .00021, .00003,
3223 + -.00001, .00012, .00014,
3224 + .07513, .01901, -.00591, .00020, .00003,
3225 + -.00001, .00010, .00013,
3226 + .07117, .01794, -.00547, .00018, .00003,
3227 + -.00001, .00009, .00012,
3228 + .06765, .01700, -.00509, .00017, .00003,
3229 + -.00001, .00009, .00012,
3230 + .06432, .01610, -.00473, .00015, .00003,
3231 + -.00001, .00009, .00012,
3232 + .06121, .01527, -.00439, .00015, .00003,
3233 + -.00001, .00008, .00011,
3234 + .05842, .01453, -.00410, .00013, .00004,
3235 + .00000, .00008, .00011,
3236 + .05588, .01387, -.00383, .00013, .00004,
3237 + .00000, .00008, .00009 /
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 + .05345, .01323, -.00358, .00013, .00004,
3240 + .00000, .00007, .00009,
3241 + .05119, .01263, -.00333, .00012, .00004,
3242 + .00000, .00007, .00008,
3243 + .04914, .01209, -.00314, .00012, .00004,
3244 + .00000, .00007, .00008,
3245 + .04726, .01160, -.00294, .00011, .00004,
3246 + .00000, .00006, .00007,
3247 + .04543, .01112, -.00276, .00011, .00004,
3248 + .00000, .00006, .00007 /
3249 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
3250 + .34512, .09819, -.01647, .00050, .00000,
3251 + .00000, -.00038, -.00014,
3252 + .32094, .09055, -.01995, .00058, .00000,
3253 + .00000, -.00021, -.00003,
3254 + .28916, .08050, -.02214, .00056, -.00046,
3255 + .00000, -.00008, .00007,
3256 + .26836, .07419, -.02373, .00066, -.00035,
3257 + .00000, .00000, .00009,
3258 + .24861, .06810, -.02437, .00057, -.00027,
3259 + .00000, .00004, .00014,
3260 + .23293, .06334, -.02435, .00053, -.00022,
3261 + .00000, .00005, .00017,
3262 + .21897, .05917, -.02401, .00050, -.00018,
3263 + .00000, .00009, .00018,
3264 + .20519, .05509, -.02335, .00049, -.00014,
3265 + .00000, .00011, .00018 /
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 + .19408, .05183, -.02263, .00047, -.00012,
3268 + .00000, .00011, .00018,
3269 + .18402, .04889, -.02182, .00045, -.00010,
3270 + .00000, .00012, .00019,
3271 + .17650, .04671, -.02112, .00041, -.00009,
3272 + .00000, .00014, .00018,
3273 + .16162, .04241, -.01959, .00040, -.00006,
3274 + .00000, .00013, .00018,
3275 + .15008, .03915, -.01825, .00039, -.00005,
3276 + -.00006, .00010, .00016,
3277 + .13829, .03582, -.01693, .00036, -.00004,
3278 + -.00005, .00010, .00016,
3279 + .12718, .03272, -.01557, .00032, -.00003,
3280 + -.00004, .00011, .00016,
3281 + .11800, .03017, -.01434, .00029, -.00002,
3282 + -.00003, .00011, .00015 /
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 + .10952, .02783, -.01319, .00028, -.00001,
3285 + -.00002, .00012, .00014,
3286 + .10302, .02606, -.01222, .00026, -.00001,
3287 + -.00002, .00008, .00012,
3288 + .09572, .02408, -.01113, .00021, -.00001,
3289 + -.00002, .00007, .00011,
3290 + .08976, .02246, -.01027, .00022, .00000,
3291 + -.00001, .00007, .00010,
3292 + .08465, .02110, -.00953, .00022, .00000,
3293 + -.00001, .00008, .00009,
3294 + .07867, .01950, -.00861, .00018, .00000,
3295 + -.00001, .00006, .00009,
3296 + .07348, .01814, -.00784, .00017, .00000,
3297 + -.00001, .00006, .00008,
3298 + .06894, .01695, -.00717, .00017, .00000,
3299 + -.00001, .00005, .00007 /
3300 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
3301 + .06478, .01585, -.00657, .00015, .00000,
3302 + -.00001, .00005, .00008,
3303 + .06096, .01485, -.00602, .00014, .00000,
3304 + -.00001, .00006, .00007,
3305 + .05759, .01398, -.00552, .00012, .00001,
3306 + .00000, .00004, .00005,
3307 + .05458, .01320, -.00511, .00012, .00001,
3308 + .00000, .00004, .00006,
3309 + .05173, .01248, -.00475, .00013, .00001,
3310 + .00000, .00005, .00006,
3311 + .04913, .01180, -.00438, .00011, .00001,
3312 + .00000, .00005, .00005,
3313 + .04679, .01119, -.00406, .00009, .00001,
3314 + .00000, .00003, .00005,
3315 + .04467, .01066, -.00378, .00009, .00001,
3316 + .00000, .00003, .00005 /
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 + .04263, .01014, -.00353, .00010, .00001,
3319 + .00000, .00003, .00005,
3320 + .04072, .00968, -.00329, .00010, .00001,
3321 + .00000, .00003, .00005,
3322 + .03900, .00924, -.00306, .00008, .00001,
3323 + .00000, .00003, .00003,
3324 + .03744, .00885, -.00287, .00008, .00001,
3325 + .00000, .00002, .00003,
3326 + .03592, .00848, -.00269, .00008, .00001,
3327 + .00000, .00002, .00003 /
3328 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
3329 + .30537, .08285, -.03921, .00009, .00000,
3330 + .00000, -.00010, -.00007,
3331 + .28250, .07603, -.03876, .00020, .00000,
3332 + .00000, -.00008, .00000,
3333 + .25255, .06720, -.03669, .00025, -.00030,
3334 + .00000, .00000, .00005,
3335 + .23340, .06156, -.03552, .00023, -.00023,
3336 + .00000, .00005, .00011,
3337 + .21501, .05628, -.03387, .00024, -.00018,
3338 + .00000, .00009, .00013,
3339 + .20049, .05213, -.03217, .00026, -.00015,
3340 + .00000, .00010, .00014,
3341 + .18769, .04850, -.03043, .00026, -.00012,
3342 + .00000, .00010, .00012,
3343 + .17518, .04501, -.02858, .00027, -.00010,
3344 + .00000, .00010, .00010 /
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 + .16509, .04218, -.02698, .00023, -.00008,
3347 + .00000, .00011, .00012,
3348 + .15600, .03966, -.02543, .00022, -.00007,
3349 + .00000, .00010, .00012,
3350 + .14923, .03779, -.02425, .00023, -.00006,
3351 + .00000, .00009, .00013,
3352 + .13594, .03415, -.02181, .00020, -.00005,
3353 + .00000, .00007, .00012,
3354 + .12564, .03137, -.01997, .00018, -.00004,
3355 + -.00004, .00010, .00011,
3356 + .11521, .02858, -.01808, .00017, -.00003,
3357 + -.00003, .00009, .00010,
3358 + .10544, .02597, -.01624, .00016, -.00002,
3359 + -.00002, .00008, .00007,
3360 + .09741, .02384, -.01475, .00015, -.00002,
3361 + -.00002, .00006, .00008 /
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 + .09000, .02190, -.01333, .00014, -.00002,
3364 + -.00002, .00006, .00008,
3365 + .08435, .02044, -.01227, .00011, -.00001,
3366 + -.00001, .00007, .00008,
3367 + .07805, .01880, -.01105, .00011, -.00001,
3368 + -.00001, .00005, .00007,
3369 + .07292, .01748, -.01006, .00009, -.00001,
3370 + -.00001, .00005, .00005,
3371 + .06855, .01637, -.00926, .00008, -.00001,
3372 + -.00001, .00005, .00006,
3373 + .06343, .01506, -.00832, .00010, -.00001,
3374 + -.00001, .00005, .00006,
3375 + .05904, .01395, -.00751, .00008, -.00001,
3376 + -.00001, .00005, .00005,
3377 + .05524, .01300, -.00683, .00008, .00000,
3378 + .00000, .00003, .00005 /
3379 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
3380 + .05171, .01211, -.00621, .00007, .00000,
3381 + .00000, .00003, .00005,
3382 + .04850, .01131, -.00565, .00006, .00000,
3383 + .00000, .00003, .00005,
3384 + .04568, .01062, -.00518, .00006, .00000,
3385 + .00000, .00003, .00005,
3386 + .04317, .01000, -.00476, .00006, .00000,
3387 + .00000, .00003, .00003,
3388 + .04081, .00943, -.00437, .00006, .00000,
3389 + .00000, .00002, .00002,
3390 + .03864, .00890, -.00402, .00005, .00000,
3391 + .00000, .00002, .00002,
3392 + .03672, .00841, -.00372, .00005, .00000,
3393 + .00000, .00002, .00002,
3394 + .03497, .00800, -.00346, .00005, .00000,
3395 + .00000, .00002, .00002 /
3396 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
3397 + .03331, .00759, -.00320, .00003, .00000,
3398 + .00000, .00002, .00002,
3399 + .03174, .00722, -.00297, .00003, .00000,
3400 + .00000, .00002, .00002,
3401 + .03032, .00688, -.00277, .00003, .00000,
3402 + .00000, .00002, .00002,
3403 + .02905, .00657, -.00260, .00003, .00000,
3404 + .00000, .00002, .00002,
3405 + .02782, .00628, -.00243, .00003, .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 + .22889, .05670, -.06143, .00006, .00000,
3409 + .00000, -.00011, -.00008,
3410 + .20949, .05146, -.05618, .00005, .00000,
3411 + .00000, -.00002, -.00002,
3412 + .18437, .04481, -.04877, .00008, -.00012,
3413 + .00000, -.00002, .00001,
3414 + .16852, .04062, -.04435, .00011, -.00009,
3415 + .00000, .00000, .00003,
3416 + .15357, .03674, -.03995, .00008, -.00007,
3417 + .00000, .00000, .00002,
3418 + .14193, .03372, -.03644, .00007, -.00006,
3419 + .00000, -.00001, .00004,
3420 + .13172, .03113, -.03336, .00008, -.00004,
3421 + .00000, .00000, .00004,
3422 + .12185, .02862, -.03036, .00008, -.00004,
3423 + .00000, .00001, .00005 /
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 + .11400, .02664, -.02795, .00006, -.00003,
3426 + .00000, .00003, .00004,
3427 + .10698, .02486, -.02580, .00008, -.00003,
3428 + .00000, .00003, .00002,
3429 + .10176, .02357, -.02417, .00008, -.00002,
3430 + .00000, .00002, .00002,
3431 + .09161, .02106, -.02108, .00007, -.00002,
3432 + .00000, .00003, .00003,
3433 + .08393, .01917, -.01882, .00004, -.00001,
3434 + -.00001, .00002, .00003,
3435 + .07619, .01728, -.01663, .00005, -.00001,
3436 + -.00001, .00002, .00003,
3437 + .06899, .01555, -.01463, .00005, -.00001,
3438 + -.00001, .00003, .00004,
3439 + .06315, .01414, -.01298, .00003, -.00001,
3440 + -.00001, .00003, .00003 /
3441 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
3442 + .05785, .01289, -.01152, .00004, -.00001,
3443 + -.00001, .00001, .00002,
3444 + .05381, .01194, -.01045, .00004, .00000,
3445 + .00000, .00001, .00003,
3446 + .04934, .01088, -.00929, .00004, .00000,
3447 + .00000, .00003, .00003,
3448 + .04577, .01005, -.00838, .00004, .00000,
3449 + .00000, .00003, .00003,
3450 + .04275, .00933, -.00760, .00003, .00000,
3451 + .00000, .00001, .00001,
3452 + .03924, .00852, -.00672, .00002, .00000,
3453 + .00000, .00001, .00001,
3454 + .03623, .00784, -.00601, .00002, .00000,
3455 + .00000, .00001, .00001,
3456 + .03366, .00726, -.00542, .00003, .00000,
3457 + .00000, .00001, .00001 /
3458 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
3459 + .03128, .00672, -.00488, .00003, .00000,
3460 + .00000, .00001, .00001,
3461 + .02915, .00623, -.00439, .00001, .00000,
3462 + .00000, .00001, .00001,
3463 + .02729, .00581, -.00399, .00001, .00000,
3464 + .00000, .00001, .00001,
3465 + .02565, .00545, -.00365, .00001, .00000,
3466 + .00000, .00001, .00001,
3467 + .02410, .00509, -.00333, .00001, .00000,
3468 + .00000, .00001, .00001,
3469 + .02269, .00478, -.00306, .00001, .00000,
3470 + .00000, .00001, .00001,
3471 + .02144, .00451, -.00281, .00001, .00000,
3472 + .00000, .00001, .00001,
3473 + .02031, .00425, -.00260, .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 + .01926, .00402, -.00240, .00001, .00000,
3477 + .00000, .00001, .00001,
3478 + .01826, .00380, -.00221, .00001, .00000,
3479 + .00000, .00001, .00001,
3480 + .01738, .00361, -.00206, .00001, .00000,
3481 + .00000, .00001, .00001,
3482 + .01658, .00344, -.00192, .00001, .00000,
3483 + .00000, .00001, .00001,
3484 + .01581, .00327, -.00179, .00001, .00000,
3485 + .00000, .00000, .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 + .15956, .03571, -.06090, .00001, .00000,
3488 + .00000, -.00005, -.00002,
3489 + .14433, .03208, -.05392, .00003, .00000,
3490 + .00000, -.00006, -.00005,
3491 + .12499, .02745, -.04527, .00004, -.00004,
3492 + .00000, .00000, -.00001,
3493 + .11300, .02464, -.03997, .00001, -.00003,
3494 + .00000, -.00003, -.00001,
3495 + .10176, .02202, -.03514, .00003, -.00002,
3496 + .00000, -.00002, .00000,
3497 + .09310, .02003, -.03148, .00005, -.00002,
3498 + .00000, .00000, .00000,
3499 + .08561, .01832, -.02830, .00005, -.00001,
3500 + .00000, .00001, .00001,
3501 + .07847, .01669, -.02530, .00003, -.00001,
3502 + .00000, .00001, .00001 /
3503 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
3504 + .07281, .01540, -.02293, .00003, -.00001,
3505 + .00000, -.00001, .00001,
3506 + .06780, .01429, -.02088, .00001, -.00001,
3507 + .00000, -.00001, .00001,
3508 + .06415, .01346, -.01940, .00000, -.00001,
3509 + .00000, .00001, .00001,
3510 + .05704, .01189, -.01665, .00003, -.00001,
3511 + .00000, .00001, .00001,
3512 + .05170, .01071, -.01461, .00003, .00000,
3513 + .00000, .00000, .00001,
3514 + .04642, .00956, -.01268, .00001, .00000,
3515 + .00000, .00000, .00001,
3516 + .04160, .00850, -.01096, .00001, .00000,
3517 + .00000, .00000, .00000,
3518 + .03770, .00766, -.00960, .00001, .00000,
3519 + .00000, .00000, .00000 /
3520 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
3521 + .03416, .00691, -.00842, .00001, .00000,
3522 + .00000, .00000, .00001,
3523 + .03156, .00634, -.00755, .00001, .00000,
3524 + .00000, .00000, .00000,
3525 + .02867, .00574, -.00662, .00001, .00000,
3526 + .00000, .00000, .00000,
3527 + .02638, .00524, -.00591, .00001, .00000,
3528 + .00000, .00000, .00000,
3529 + .02445, .00485, -.00532, .00000, .00000,
3530 + .00000, .00000, .00000,
3531 + .02222, .00440, -.00467, .00001, .00000,
3532 + .00000, .00000, .00000,
3533 + .02035, .00400, -.00413, .00001, .00000,
3534 + .00000, .00000, .00000,
3535 + .01877, .00367, -.00368, .00000, .00000,
3536 + .00000, .00000, .00000 /
3537 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
3538 + .01731, .00338, -.00328, .00000, .00000,
3539 + .00000, .00000, .00000,
3540 + .01601, .00311, -.00296, .00001, .00000,
3541 + .00000, .00000, .00000,
3542 + .01488, .00287, -.00266, .00001, .00000,
3543 + .00000, .00000, .00000,
3544 + .01389, .00268, -.00241, .00001, .00000,
3545 + .00000, .00000, .00000,
3546 + .01299, .00250, -.00219, .00000, .00000,
3547 + .00000, .00000, .00000,
3548 + .01215, .00233, -.00199, .00000, .00000,
3549 + .00000, .00000, .00000,
3550 + .01141, .00218, -.00182, .00000, .00000,
3551 + .00000, .00000, .00000,
3552 + .01076, .00205, -.00167, .00000, .00000,
3553 + .00000, .00000, .00000 /
3554 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/
3555 + .01014, .00192, -.00153, .00000, .00000,
3556 + .00000, .00000, .00000,
3557 + .00957, .00181, -.00141, .00000, .00000,
3558 + .00000, .00000, .00000,
3559 + .00906, .00171, -.00131, .00000, .00000,
3560 + .00000, .00000, .00000,
3561 + .00861, .00162, -.00121, .00000, .00000,
3562 + .00000, .00000, .00000,
3563 + .00817, .00154, -.00112, .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 + .10139, .02023, -.04808, .00004, .00000,
3567 + .00000, -.00002, -.00002,
3568 + .09052, .01794, -.04184, .00004, .00000,
3569 + .00000, -.00001, .00001,
3570 + .07695, .01511, -.03412, .00004, -.00001,
3571 + .00000, -.00003, -.00001,
3572 + .06867, .01339, -.02966, .00004, -.00001,
3573 + .00000, -.00001, -.00001,
3574 + .06107, .01181, -.02558, .00002, -.00001,
3575 + .00000, -.00001, -.00001,
3576 + .05532, .01063, -.02256, .00000, .00000,
3577 + .00000, .00000, .00000,
3578 + .05038, .00962, -.02002, .00000, .00000,
3579 + .00000, .00000, .00000,
3580 + .04567, .00868, -.01766, .00000, .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 + .04200, .00794, -.01584, .00000, .00000,
3584 + .00000, .00000, .00000,
3585 + .03877, .00730, -.01430, .00000, .00000,
3586 + .00000, .00000, .00000,
3587 + .03642, .00683, -.01319, .00002, .00000,
3588 + .00000, .00000, .00000,
3589 + .03196, .00595, -.01110, .00000, .00000,
3590 + .00000, .00000, .00000,
3591 + .02863, .00531, -.00964, .00000, .00000,
3592 + .00000, .00000, .00000,
3593 + .02539, .00467, -.00824, .00000, .00000,
3594 + .00000, .00000, .00000,
3595 + .02245, .00411, -.00702, .00000, .00000,
3596 + .00000, .00000, .00000,
3597 + .02013, .00366, -.00608, .00000, .00000,
3598 + .00000, .00000, .00000 /
3599 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/
3600 + .01806, .00327, -.00527, .00000, .00000,
3601 + .00000, .00000, .00000,
3602 + .01652, .00298, -.00469, .00000, .00000,
3603 + .00000, .00000, .00000,
3604 + .01486, .00266, -.00406, .00000, .00000,
3605 + .00000, .00000, .00000,
3606 + .01354, .00242, -.00359, .00000, .00000,
3607 + .00000, .00000, .00000,
3608 + .01244, .00222, -.00321, .00000, .00000,
3609 + .00000, .00000, .00000,
3610 + .01121, .00198, -.00279, .00000, .00000,
3611 + .00000, .00000, .00000,
3612 + .01016, .00179, -.00244, .00000, .00000,
3613 + .00000, .00000, .00000,
3614 + .00929, .00163, -.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 + .00849, .00149, -.00191, .00000, .00000,
3618 + .00000, .00000, .00000,
3619 + .00778, .00136, -.00170, .00000, .00000,
3620 + .00000, .00000, .00000,
3621 + .00718, .00125, -.00152, .00000, .00000,
3622 + .00000, .00000, .00000,
3623 + .00666, .00116, -.00137, .00000, .00000,
3624 + .00000, .00000, .00000,
3625 + .00618, .00106, -.00123, .00000, .00000,
3626 + .00000, .00000, .00000,
3627 + .00575, .00098, -.00112, .00000, .00000,
3628 + .00000, .00000, .00000,
3629 + .00536, .00091, -.00101, .00000, .00000,
3630 + .00000, .00000, .00000,
3631 + .00502, .00086, -.00093, .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 + .00470, .00079, -.00085, .00000, .00000,
3635 + .00000, .00000, .00000,
3636 + .00442, .00074, -.00077, .00000, .00000,
3637 + .00000, .00000, .00000,
3638 + .00415, .00071, -.00071, .00000, .00000,
3639 + .00000, .00000, .00000,
3640 + .00393, .00067, -.00066, .00000, .00000,
3641 + .00000, .00000, .00000,
3642 + .00371, .00063, -.00061, .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 + .05633, .00971, -.03099, .00000, .00000,
3646 + .00000, .00000, .00000,
3647 + .04962, .00852, -.02659, .00000, .00000,
3648 + .00000, .00000, .00000,
3649 + .04134, .00703, -.02126, .00000, .00000,
3650 + .00000, .00000, .00000,
3651 + .03636, .00616, -.01820, .00000, .00000,
3652 + .00000, .00000, .00000,
3653 + .03187, .00535, -.01546, .00000, .00000,
3654 + .00000, .00000, .00000,
3655 + .02848, .00478, -.01348, .00000, .00000,
3656 + .00000, .00000, .00000,
3657 + .02562, .00426, -.01180, .00000, .00000,
3658 + .00000, .00000, .00000,
3659 + .02293, .00380, -.01027, .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 + .02089, .00343, -.00913, .00000, .00000,
3663 + .00000, .00000, .00000,
3664 + .01910, .00315, -.00818, .00000, .00000,
3665 + .00000, .00000, .00000,
3666 + .01779, .00291, -.00746, .00000, .00000,
3667 + .00000, .00000, .00000,
3668 + .01535, .00251, -.00619, .00000, .00000,
3669 + .00000, .00000, .00000,
3670 + .01359, .00220, -.00531, .00000, .00000,
3671 + .00000, .00000, .00000,
3672 + .01186, .00192, -.00448, .00000, .00000,
3673 + .00000, .00000, .00000,
3674 + .01034, .00166, -.00376, .00000, .00000,
3675 + .00000, .00000, .00000,
3676 + .00916, .00146, -.00321, .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 + .00810, .00128, -.00275, .00000, .00000,
3680 + .00000, .00000, .00000,
3681 + .00733, .00114, -.00240, .00000, .00000,
3682 + .00000, .00000, .00000,
3683 + .00651, .00102, -.00207, .00000, .00000,
3684 + .00000, .00000, .00000,
3685 + .00586, .00092, -.00180, .00000, .00000,
3686 + .00000, .00000, .00000,
3687 + .00534, .00084, -.00161, .00000, .00000,
3688 + .00000, .00000, .00000,
3689 + .00474, .00074, -.00137, .00000, .00000,
3690 + .00000, .00000, .00000,
3691 + .00425, .00066, -.00118, .00000, .00000,
3692 + .00000, .00000, .00000,
3693 + .00384, .00058, -.00104, .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 + .00348, .00052, -.00091, .00000, .00000,
3697 + .00000, .00000, .00000,
3698 + .00317, .00049, -.00081, .00000, .00000,
3699 + .00000, .00000, .00000,
3700 + .00290, .00044, -.00072, .00000, .00000,
3701 + .00000, .00000, .00000,
3702 + .00266, .00040, -.00064, .00000, .00000,
3703 + .00000, .00000, .00000,
3704 + .00244, .00037, -.00057, .00000, .00000,
3705 + .00000, .00000, .00000,
3706 + .00225, .00034, -.00052, .00000, .00000,
3707 + .00000, .00000, .00000,
3708 + .00209, .00031, -.00046, .00000, .00000,
3709 + .00000, .00000, .00000,
3710 + .00194, .00029, -.00042, .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 + .00180, .00027, -.00037, .00000, .00000,
3714 + .00000, .00000, .00000,
3715 + .00169, .00024, -.00034, .00000, .00000,
3716 + .00000, .00000, .00000,
3717 + .00158, .00023, -.00031, .00000, .00000,
3718 + .00000, .00000, .00000,
3719 + .00148, .00022, -.00028, .00000, .00000,
3720 + .00000, .00000, .00000,
3721 + .00138, .00020, -.00026, .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 + .00809, .00098, -.00564, .00000, .00000,
3725 + .00000, .00000, .00000,
3726 + .00680, .00081, -.00462, .00000, .00000,
3727 + .00000, .00000, .00000,
3728 + .00532, .00064, -.00349, .00000, .00000,
3729 + .00000, .00000, .00000,
3730 + .00449, .00052, -.00286, .00000, .00000,
3731 + .00000, .00000, .00000,
3732 + .00376, .00045, -.00234, .00000, .00000,
3733 + .00000, .00000, .00000,
3734 + .00324, .00037, -.00196, .00000, .00000,
3735 + .00000, .00000, .00000,
3736 + .00281, .00034, -.00167, .00000, .00000,
3737 + .00000, .00000, .00000,
3738 + .00245, .00028, -.00141, .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 + .00215, .00026, -.00122, .00000, .00000,
3742 + .00000, .00000, .00000,
3743 + .00191, .00021, -.00105, .00000, .00000,
3744 + .00000, .00000, .00000,
3745 + .00174, .00021, -.00095, .00000, .00000,
3746 + .00000, .00000, .00000,
3747 + .00144, .00016, -.00076, .00000, .00000,
3748 + .00000, .00000, .00000,
3749 + .00122, .00014, -.00062, .00000, .00000,
3750 + .00000, .00000, .00000,
3751 + .00102, .00011, -.00051, .00000, .00000,
3752 + .00000, .00000, .00000,
3753 + .00086, .00009, -.00041, .00000, .00000,
3754 + .00000, .00000, .00000,
3755 + .00072, .00009, -.00034, .00000, .00000,
3756 + .00000, .00000, .00000 /
3757 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/
3758 + .00062, .00007, -.00028, .00000, .00000,
3759 + .00000, .00000, .00000,
3760 + .00054, .00007, -.00024, .00000, .00000,
3761 + .00000, .00000, .00000,
3762 + .00047, .00005, -.00020, .00000, .00000,
3763 + .00000, .00000, .00000,
3764 + .00041, .00005, -.00017, .00000, .00000,
3765 + .00000, .00000, .00000,
3766 + .00036, .00003, -.00014, .00000, .00000,
3767 + .00000, .00000, .00000,
3768 + .00031, .00003, -.00012, .00000, .00000,
3769 + .00000, .00000, .00000,
3770 + .00027, .00003, -.00010, .00000, .00000,
3771 + .00000, .00000, .00000,
3772 + .00024, .00003, -.00009, .00000, .00000,
3773 + .00000, .00000, .00000 /
3774 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
3775 + .00021, .00003, -.00008, .00000, .00000,
3776 + .00000, .00000, .00000,
3777 + .00019, .00001, -.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, -.00003, .00000, .00000,
3786 + .00000, .00000, .00000,
3787 + .00011, .00001, -.00003, .00000, .00000,
3788 + .00000, .00000, .00000,
3789 + .00010, .00001, -.00003, .00000, .00000,
3790 + .00000, .00000, .00000 /
3791 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
3792 + .00009, .00001, -.00003, .00000, .00000,
3793 + .00000, .00000, .00000,
3794 + .00008, .00001, -.00002, .00000, .00000,
3795 + .00000, .00000, .00000,
3796 + .00008, .00001, -.00002, .00000, .00000,
3797 + .00000, .00000, .00000,
3798 + .00007, .00001, -.00002, .00000, .00000,
3799 + .00000, .00000, .00000,
3800 + .00007, .00001, -.00002, .00000, .00000,
3801 + .00000, .00000, .00000 /
3802 data xx/1d-5,2d-5,4d-5,6d-5,8d-5,
3803 . 1d-4,2d-4,4d-4,6d-4,8d-4,
3804 . 1d-3,2d-3,4d-3,6d-3,8d-3,
3805 . 1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2,
3806 . .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0,
3807 . .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0,
3808 . .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0,
3810 data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1,
3811 . 1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2,
3812 . 1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4,
3813 . 1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6,
3814 . 1.8d6,3.2d6,5.6d6,1d7/
3815 data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/
3816 data n0/3,4,5,9,9,9,9,9/
3817 DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
3822 if(init.ne.0) goto 10
3823 C open(unit=1,file='ft09d.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