2 subroutine sfmrs_99a1(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 #if defined(CERNLIB_DOUBLE)
11 #if defined(CERNLIB_SINGLE)
14 + f(np,nx,nq+1),qq(nq),xx(nx),g(np),n0(np)
15 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,8)/
16 + .00524, .00225, 1.11506, .89493, .00000,
17 + .00000, .47698, .90723,
18 + .00541, .00231, 2.38590, .92969, .00000,
19 + .00000, .51714, .94206,
20 + .00565, .00241, 4.88907, 1.00604, .00000,
21 + .00000, .60116, 1.01848,
22 + .00582, .00249, 7.22921, 1.07992, .04540,
23 + .00000, .68038, 1.09240,
24 + .00601, .00257, 10.05454, 1.17558, .15607,
25 + .00000, .78143, 1.18810,
26 + .00617, .00264, 12.96999, 1.27431, .26204,
27 + .00000, .88469, 1.28686,
28 + .00632, .00271, 16.24256, 1.38169, .37896,
29 + .00000, .99630, 1.39425,
30 + .00648, .00279, 20.25833, 1.51018, .52072,
31 + .00000, 1.12918, 1.52276 /
32 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
33 + .00663, .00285, 24.17154, 1.63626, .65342,
34 + .00000, 1.25898, 1.64885,
35 + .00677, .00292, 28.37309, 1.77018, .79473,
36 + .00000, 1.39642, 1.78277,
37 + .00688, .00297, 32.05386, 1.88479, .91806,
38 + .00000, 1.51378, 1.89739,
39 + .00712, .00308, 40.57678, 2.15780, 1.20546,
40 + .02267, 1.79246, 2.17038,
41 + .00732, .00318, 48.59637, 2.42216, 1.48124,
42 + .34670, 2.06154, 2.43474,
43 + .00756, .00329, 58.72424, 2.75322, 1.82687,
44 + .74566, 2.39774, 2.76578,
45 + .00780, .00341, 70.64512, 3.13805, 2.22777,
46 + 1.16490, 2.78777, 3.15059,
47 + .00803, .00352, 82.70337, 3.52427, 2.62945,
48 + 1.58515, 3.17857, 3.53678 /
49 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
50 + .00826, .00363, 96.13674, 3.95217, 3.07424,
51 + 2.04861, 3.61097, 3.96464,
52 + .00845, .00373, 108.22498, 4.33707, 3.47236,
53 + 2.45875, 3.99953, 4.34952,
54 + .00868, .00384, 124.03619, 4.84098, 3.99178,
55 + 2.99176, 4.50776, 4.85338,
56 + .00889, .00395, 139.18419, 5.32279, 4.48912,
57 + 3.50445, 4.99331, 5.33516,
58 + .00909, .00405, 154.05588, 5.79562, 4.97733,
59 + 4.00806, 5.46949, 5.80795,
60 + .00934, .00417, 174.06389, 6.43642, 5.63487,
61 + 4.67983, 6.11445, 6.44869,
62 + .00957, .00429, 194.26250, 7.08449, 6.30038,
63 + 5.36157, 6.76634, 7.09671,
64 + .00979, .00440, 214.49954, 7.73436, 6.96890,
65 + 6.04877, 7.41971, 7.74654 /
66 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
67 + .01002, .00452, 235.61795, 8.42041, 7.66995,
68 + 6.76232, 8.10918, 8.43253,
69 + .01024, .00463, 257.51987, 9.13340, 8.39997,
70 + 7.50835, 8.82546, 9.14547,
71 + .01045, .00474, 279.30908, 9.84618, 9.12950,
72 + 8.25376, 9.54127, 9.85820,
73 + .01065, .00485, 300.58109, 10.54850, 9.84609,
74 + 8.98311, 10.24641, 10.56047,
75 + .01086, .00495, 323.06851, 11.29186, 10.60634,
76 + 9.75990, 10.99256, 11.30378,
77 + .01106, .00506, 345.73138, 12.05027, 11.37863,
78 + 10.54443, 11.75365, 12.06214,
79 + .01125, .00516, 368.37045, 12.80813, 12.15266,
80 + 11.33434, 12.51403, 12.81995,
81 + .01144, .00526, 390.15836, 13.54674, 12.90393,
82 + 12.09689, 13.25498, 13.55851 /
83 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
84 + .01163, .00535, 413.07993, 14.32502, 13.69711,
85 + 12.90452, 14.03559, 14.33675,
86 + .01181, .00545, 436.19202, 15.11717, 14.50283,
87 + 13.72296, 14.83000, 15.12885,
88 + .01199, .00555, 458.91577, 15.90018, 15.29923,
89 + 14.53211, 15.61514, 15.91181,
90 + .01217, .00564, 481.15063, 16.66948, 16.08218,
91 + 15.32855, 16.38643, 16.68107,
92 + .01234, .00573, 503.88220, 17.46486, 16.88946,
93 + 16.14685, 17.18380, 17.47640 /
94 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
95 + .00708, .00307, 1.04010, .75796, .00000,
96 + .00000, .40343, .76509,
97 + .00730, .00317, 2.18514, .79029, .00000,
98 + .00000, .43998, .79745,
99 + .00764, .00332, 4.39204, .85794, .00000,
100 + .00000, .51361, .86514,
101 + .00788, .00343, 6.41411, .92169, .03864,
102 + .00000, .58152, .92892,
103 + .00814, .00355, 8.81459, 1.00278, .13234,
104 + .00000, .66680, 1.01002,
105 + .00836, .00365, 11.25594, 1.08535, .22093,
106 + .00000, .75288, 1.09260,
107 + .00857, .00375, 13.96357, 1.17435, .31773,
108 + .00000, .84516, 1.18161,
109 + .00880, .00386, 17.24720, 1.27997, .43405,
110 + .00000, .95419, 1.28724 /
111 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
112 + .00900, .00396, 20.41059, 1.38269, .54195,
113 + .00000, 1.05979, 1.38997,
114 + .00920, .00405, 23.77440, 1.49104, .65602,
115 + .00000, 1.17086, 1.49832,
116 + .00935, .00413, 26.69822, 1.58330, .75501,
117 + .00000, 1.26524, 1.59058,
118 + .00968, .00429, 33.38880, 1.80119, .98367,
119 + .01852, 1.48752, 1.80847,
120 + .00996, .00443, 39.59502, 2.01019, 1.20092,
121 + .27321, 1.70017, 2.01747,
122 + .01029, .00459, 47.33607, 2.26962, 1.47069,
123 + .58488, 1.96356, 2.27689,
124 + .01062, .00476, 56.33195, 2.56834, 1.78058,
125 + .90858, 2.26629, 2.57560,
126 + .01093, .00492, 65.32306, 2.86549, 2.08828,
127 + 1.23005, 2.56697, 2.87274 /
128 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
129 + .01125, .00508, 75.22949, 3.19201, 2.42616,
130 + 1.58152, 2.89696, 3.19924,
131 + .01151, .00521, 84.05536, 3.48349, 2.72628,
132 + 1.89007, 3.19125, 3.49072,
133 + .01183, .00537, 95.48708, 3.86225, 3.11488,
134 + 2.28796, 3.57334, 3.86946,
135 + .01211, .00552, 106.33576, 4.22177, 3.48429,
136 + 2.66794, 3.93573, 4.22896,
137 + .01238, .00566, 116.89809, 4.57231, 3.84459,
138 + 3.03877, 4.28885, 4.57948,
139 + .01272, .00583, 130.97528, 5.04391, 4.32628,
140 + 3.52964, 4.76365, 5.05105,
141 + .01304, .00600, 145.05449, 5.51737, 4.81032,
142 + 4.02426, 5.24005, 5.52450,
143 + .01334, .00616, 159.04265, 5.98901, 5.29341,
144 + 4.51967, 5.71438, 5.99611 /
145 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
146 + .01364, .00632, 173.51149, 6.48345, 5.79642,
147 + 5.03027, 6.21146, 6.49053,
148 + .01394, .00648, 188.40297, 6.99418, 6.31713,
149 + 5.56104, 6.72471, 7.00124,
150 + .01423, .00663, 203.10829, 7.50173, 6.83447,
151 + 6.08832, 7.23460, 7.50876,
152 + .01450, .00677, 217.35930, 7.99892, 7.33967,
153 + 6.60114, 7.73397, 8.00593,
154 + .01478, .00692, 232.33276, 8.52255, 7.87311,
155 + 7.14485, 8.25973, 8.52954,
156 + .01505, .00706, 247.31387, 9.05373, 8.41185,
157 + 7.69065, 8.79299, 9.06070,
158 + .01531, .00720, 262.19824, 9.58213, 8.94952,
159 + 8.23802, 9.32332, 9.58908,
160 + .01556, .00733, 276.42767, 10.09444, 9.46858,
161 + 8.76348, 9.83744, 10.10137 /
162 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
163 + .01581, .00747, 291.32401, 10.63204, 10.01450,
164 + 9.31797, 10.37683, 10.63894,
165 + .01606, .00760, 306.25473, 11.17663, 10.56640,
166 + 9.87716, 10.92316, 11.18351,
167 + .01630, .00773, 320.85931, 11.71269, 11.10971,
168 + 10.42777, 11.46087, 11.71955,
169 + .01653, .00785, 335.08301, 12.23734, 11.64186,
170 + 10.96780, 11.98705, 12.24418,
171 + .01677, .00798, 349.54315, 12.77740, 12.18808,
172 + 11.52006, 12.52865, 12.78422 /
173 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
174 + .00955, .00419, .97123, .64169, .00000,
175 + .00000, .34132, .64521,
176 + .00987, .00434, 2.00250, .67150, .00000,
177 + .00000, .37442, .67503,
178 + .01033, .00456, 3.94675, .73131, .00000,
179 + .00000, .43887, .73485,
180 + .01067, .00473, 5.69193, .78628, .03287,
181 + .00000, .49708, .78984,
182 + .01103, .00490, 7.72822, .85498, .11219,
183 + .00000, .56902, .85854,
184 + .01134, .00505, 9.76863, .92397, .18622,
185 + .00000, .64073, .92754,
186 + .01164, .00520, 12.00397, .99766, .26630,
187 + .00000, .71697, 1.00124,
188 + .01195, .00536, 14.68246, 1.08437, .36168,
189 + .00000, .80630, 1.08795 /
190 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
191 + .01223, .00550, 17.23279, 1.16791, .44934,
192 + .00000, .89206, 1.17149,
193 + .01250, .00564, 19.91807, 1.25540, .54133,
194 + .00000, .98165, 1.25898,
195 + .01271, .00574, 22.23353, 1.32950, .62069,
196 + .00000, 1.05738, 1.33308,
197 + .01316, .00598, 27.46807, 1.50297, .80238,
198 + .01512, 1.23423, 1.50655,
199 + .01356, .00618, 32.25270, 1.66774, .97326,
200 + .21520, 1.40180, 1.67132,
201 + .01400, .00641, 38.14524, 1.87039, 1.18347,
202 + .45854, 1.60748, 1.87397,
203 + .01446, .00665, 44.90409, 2.10148, 1.42256,
204 + .70830, 1.84165, 2.10506,
205 + .01488, .00687, 51.57692, 2.32927, 1.65777,
206 + .95402, 2.07214, 2.33285 /
207 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
208 + .01531, .00710, 58.84649, 2.57746, 1.91385,
209 + 1.22030, 2.32299, 2.58104,
210 + .01567, .00728, 65.25706, 2.79730, 2.13952,
211 + 1.45214, 2.54498, 2.80088,
212 + .01611, .00752, 73.47752, 3.08078, 2.42948,
213 + 1.74878, 2.83100, 3.08436,
214 + .01650, .00772, 81.20319, 3.34786, 2.70308,
215 + 2.02997, 3.10027, 3.35143,
216 + .01686, .00791, 88.66090, 3.60655, 2.96820,
217 + 2.30259, 3.36094, 3.61012,
218 + .01732, .00816, 98.50455, 3.95198, 3.31994,
219 + 2.66061, 3.70880, 3.95554,
220 + .01775, .00839, 108.25579, 4.29619, 3.67079,
221 + 3.01873, 4.05525, 4.29974,
222 + .01816, .00861, 117.86123, 4.63675, 4.01866,
223 + 3.37510, 4.39787, 4.64031 /
224 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
225 + .01857, .00883, 127.70567, 4.99124, 4.37823,
226 + 3.73958, 4.75436, 4.99479,
227 + .01898, .00905, 137.75891, 5.35513, 4.74821,
228 + 4.11624, 5.12018, 5.35867,
229 + .01937, .00926, 147.61105, 5.71457, 5.11361,
230 + 4.48820, 5.48141, 5.71811,
231 + .01973, .00946, 157.08582, 6.06457, 5.46827,
232 + 4.84772, 5.83306, 6.06811,
233 + .02010, .00966, 166.97922, 6.43132, 5.84096,
234 + 5.22714, 6.20145, 6.43486,
235 + .02047, .00986, 176.80272, 6.80117, 6.21508,
236 + 5.60561, 6.57288, 6.80471,
237 + .02082, .01005, 186.50906, 7.16741, 6.58687,
238 + 5.98366, 6.94059, 7.17094,
239 + .02115, .01023, 195.72339, 7.52058, 6.94379,
240 + 6.34444, 7.29514, 7.52412 /
241 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
242 + .02149, .01042, 205.32146, 7.88965, 7.31771,
243 + 6.72376, 7.66557, 7.89318,
244 + .02183, .01060, 214.88139, 8.26169, 7.69387,
245 + 7.10436, 8.03895, 8.26522,
246 + .02215, .01078, 224.18312, 8.62635, 8.06262,
247 + 7.47759, 8.40486, 8.62987,
248 + .02246, .01094, 233.19882, 8.98184, 8.42243,
249 + 7.84229, 8.76152, 8.98536,
250 + .02277, .01112, 242.30983, 9.34612, 8.79004,
251 + 8.21343, 9.12698, 9.34964 /
252 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
253 + .01138, .00503, .93391, .58201, .00000,
254 + .00000, .30960, .58404,
255 + .01177, .00521, 1.90380, .61033, .00000,
256 + .00000, .34076, .61236,
257 + .01233, .00550, 3.70846, .66591, .00000,
258 + .00000, .40036, .66796,
259 + .01275, .00570, 5.30858, .71630, .02990,
260 + .00000, .45353, .71835,
261 + .01318, .00592, 7.15643, .77862, .10183,
262 + .00000, .51865, .78068,
263 + .01355, .00611, 8.99163, .84070, .16845,
264 + .00000, .58307, .84276,
265 + .01391, .00630, 10.98749, .90665, .24011,
266 + .00000, .65120, .90871,
267 + .01430, .00650, 13.36194, .98385, .32499,
268 + .00000, .73065, .98591 /
269 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
270 + .01463, .00667, 15.60696, 1.05780, .40257,
271 + .00000, .80652, 1.05987,
272 + .01495, .00684, 17.95688, 1.13491, .48363,
273 + .00000, .88543, 1.13698,
274 + .01521, .00697, 19.97355, 1.20002, .55332,
275 + .00000, .95194, 1.20209,
276 + .01576, .00726, 24.49959, 1.35162, .71202,
277 + .01343, 1.10643, 1.35369,
278 + .01623, .00751, 28.60012, 1.49476, .86038,
279 + .18709, 1.25197, 1.49684,
280 + .01676, .00779, 33.61190, 1.66985, 1.04186,
281 + .39754, 1.42965, 1.67193,
282 + .01732, .00809, 39.31575, 1.86835, 1.24707,
283 + .61204, 1.63078, 1.87044,
284 + .01783, .00836, 44.90580, 2.06295, 1.44783,
285 + .82188, 1.82769, 2.06504 /
286 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
287 + .01835, .00863, 50.95478, 2.27390, 1.66529,
288 + 1.04810, 2.04090, 2.27599,
289 + .01878, .00886, 56.25628, 2.45988, 1.85602,
290 + 1.24410, 2.22872, 2.46198,
291 + .01930, .00915, 63.01372, 2.69860, 2.09996,
292 + 1.49370, 2.46961, 2.70070,
293 + .01977, .00940, 69.32762, 2.92251, 2.32912,
294 + 1.72927, 2.69539, 2.92462,
295 + .02020, .00963, 75.39145, 3.13853, 2.55030,
296 + 1.95675, 2.91310, 3.14065,
297 + .02075, .00993, 83.34860, 3.42569, 2.84242,
298 + 2.25408, 3.20233, 3.42781,
299 + .02127, .01021, 91.18600, 3.71055, 3.13251,
300 + 2.55019, 3.48911, 3.71268,
301 + .02176, .01048, 98.86655, 3.99128, 3.41901,
302 + 2.84371, 3.77158, 3.99341 /
303 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
304 + .02225, .01075, 106.69450, 4.28221, 3.71383,
305 + 3.14252, 4.06423, 4.28435,
306 + .02273, .01101, 114.65106, 4.57977, 4.01611,
307 + 3.45024, 4.36342, 4.58191,
308 + .02319, .01126, 122.41284, 4.87262, 4.31357,
309 + 3.75303, 4.65780, 4.87477,
310 + .02363, .01150, 129.84254, 5.15676, 4.60125,
311 + 4.04460, 4.94334, 5.15891,
312 + .02407, .01175, 137.57196, 5.45361, 4.90269,
313 + 4.35147, 5.24158, 5.45577,
314 + .02451, .01198, 145.21095, 5.75189, 5.20416,
315 + 4.65639, 5.54121, 5.75406,
316 + .02492, .01221, 152.73424, 6.04647, 5.50300,
317 + 4.96025, 5.83705, 6.04865,
318 + .02532, .01243, 159.84528, 6.32962, 5.78893,
319 + 5.24921, 6.12136, 6.33180 /
320 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
321 + .02572, .01265, 167.23053, 6.62478, 6.08778,
322 + 5.55235, 6.41769, 6.62697,
323 + .02612, .01287, 174.55811, 6.92144, 6.38751,
324 + 5.85558, 6.71549, 6.92364,
325 + .02650, .01309, 181.66515, 7.21148, 6.68061,
326 + 6.15219, 7.00659, 7.21368,
327 + .02687, .01329, 188.53372, 7.49356, 6.96597,
328 + 6.44139, 7.28967, 7.49577,
329 + .02724, .01349, 195.44911, 7.78183, 7.25667,
330 + 6.73482, 7.57894, 7.78404 /
331 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
332 + .01290, .00572, .90887, .54302, .00000,
333 + .00000, .28895, .54424,
334 + .01334, .00595, 1.83739, .57028, .00000,
335 + .00000, .31878, .57151,
336 + .01399, .00628, 3.54879, .62302, .00000,
337 + .00000, .37514, .62425,
338 + .01446, .00652, 5.05288, .67037, .02795,
339 + .00000, .42500, .67161,
340 + .01495, .00678, 6.77693, .72852, .09504,
341 + .00000, .48566, .72976,
342 + .01538, .00700, 8.47823, .78610, .15686,
343 + .00000, .54535, .78734,
344 + .01579, .00722, 10.31875, .84703, .22305,
345 + .00000, .60824, .84828,
346 + .01623, .00745, 12.49710, .91809, .30118,
347 + .00000, .68132, .91933 /
348 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
349 + .01662, .00765, 14.54633, .98588, .37229,
350 + .00000, .75083, .98713,
351 + .01698, .00784, 16.68222, 1.05634, .44637,
352 + .00000, .82291, 1.05760,
353 + .01728, .00800, 18.50895, 1.11570, .50990,
354 + .00000, .88352, 1.11696,
355 + .01790, .00833, 22.58720, 1.25337, .65400,
356 + .01234, 1.02379, 1.25464,
357 + .01844, .00862, 26.25840, 1.38281, .78814,
358 + .16935, 1.15538, 1.38409,
359 + .01905, .00895, 30.72091, 1.54050, .95157,
360 + .35915, 1.31540, 1.54179,
361 + .01969, .00929, 35.77109, 1.71854, 1.13557,
362 + .55162, 1.49578, 1.71983,
363 + .02027, .00960, 40.69433, 1.89237, 1.31487,
364 + .73917, 1.67169, 1.89368 /
365 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
366 + .02086, .00992, 45.99588, 2.08013, 1.50838,
367 + .94059, 1.86147, 2.08145,
368 + .02135, .01019, 50.62171, 2.24511, 1.67752,
369 + 1.11449, 2.02810, 2.24644,
370 + .02194, .01052, 56.49230, 2.45617, 1.89312,
371 + 1.33520, 2.24109, 2.45750,
372 + .02247, .01081, 61.95457, 2.65350, 2.09502,
373 + 1.54284, 2.44010, 2.65484,
374 + .02296, .01107, 67.18115, 2.84334, 2.28935,
375 + 1.74278, 2.63144, 2.84470,
376 + .02359, .01141, 74.01064, 3.09487, 2.54514,
377 + 2.00323, 2.88483, 3.09624,
378 + .02418, .01174, 80.70946, 3.34360, 2.79836,
379 + 2.26179, 3.13525, 3.34497,
380 + .02473, .01204, 87.25001, 3.58799, 3.04773,
381 + 2.51737, 3.38122, 3.58938 /
382 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
383 + .02529, .01235, 93.88887, 3.84049, 3.30352,
384 + 2.77668, 3.63524, 3.84190,
385 + .02584, .01265, 100.61414, 4.09805, 3.56510,
386 + 3.04306, 3.89426, 4.09947,
387 + .02636, .01294, 107.15295, 4.35088, 3.82186,
388 + 3.30449, 4.14845, 4.35231,
389 + .02685, .01322, 113.39074, 4.59555, 4.06951,
390 + 3.55555, 4.39437, 4.59699,
391 + .02735, .01349, 119.86282, 4.85061, 4.32848,
392 + 3.81926, 4.65068, 4.85206,
393 + .02784, .01377, 126.23735, 5.10625, 4.58678,
394 + 4.08056, 4.90751, 5.10772,
395 + .02831, .01403, 132.50060, 5.35822, 4.84237,
396 + 4.34052, 5.16061, 5.35970,
397 + .02876, .01428, 138.40186, 5.59984, 5.08631,
398 + 4.58709, 5.40327, 5.60133 /
399 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
400 + .02921, .01453, 144.51756, 5.85127, 5.34085,
401 + 4.84534, 5.65574, 5.85277,
402 + .02966, .01478, 150.56842, 6.10344, 5.59559,
403 + 5.10310, 5.90893, 6.10496,
404 + .03009, .01502, 156.42342, 6.34953, 5.84424,
405 + 5.35478, 6.15596, 6.35106,
406 + .03051, .01525, 162.07010, 6.58846, 6.08593,
407 + 5.59979, 6.39579, 6.59001,
408 + .03092, .01548, 167.73967, 6.83214, 6.33163,
409 + 5.84784, 6.64036, 6.83370 /
410 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
411 + .01421, .00634, .89035, .51456, .00000,
412 + .00000, .27392, .51528,
413 + .01470, .00659, 1.78798, .54102, .00000,
414 + .00000, .30274, .54174,
415 + .01542, .00696, 3.43017, .59163, .00000,
416 + .00000, .35670, .59236,
417 + .01595, .00724, 4.86345, .63674, .02653,
418 + .00000, .40413, .63748,
419 + .01650, .00753, 6.49673, .69184, .09008,
420 + .00000, .46154, .69258,
421 + .01697, .00778, 8.10037, .74614, .14839,
422 + .00000, .51779, .74689,
423 + .01743, .00802, 9.82805, .80343, .21064,
424 + .00000, .57688, .80418,
425 + .01792, .00828, 11.86460, .87004, .28387,
426 + .00000, .64536, .87080 /
427 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
428 + .01834, .00851, 13.77280, .93338, .35033,
429 + .00000, .71028, .93415,
430 + .01875, .00873, 15.75508, .99906, .41939,
431 + .00000, .77745, .99983,
432 + .01908, .00890, 17.44590, 1.05429, .47850,
433 + .00000, .83383, 1.05506,
434 + .01977, .00928, 21.20512, 1.18198, .61218,
435 + .01155, .96392, 1.18277,
436 + .02037, .00960, 24.57204, 1.30164, .73619,
437 + .15673, 1.08554, 1.30244,
438 + .02104, .00997, 28.64704, 1.44695, .88679,
439 + .33187, 1.23300, 1.44776,
440 + .02175, .01035, 33.23830, 1.61047, 1.05580,
441 + .50878, 1.39868, 1.61129,
442 + .02239, .01070, 37.69553, 1.76963, 1.21997,
443 + .68063, 1.55974, 1.77047 /
444 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
445 + .02304, .01106, 42.47688, 1.94105, 1.39664,
446 + .86464, 1.73302, 1.94191,
447 + .02358, .01136, 46.63422, 2.09128, 1.55065,
448 + 1.02308, 1.88475, 2.09215,
449 + .02424, .01172, 51.89221, 2.28296, 1.74646,
450 + 1.22363, 2.07821, 2.28384,
451 + .02483, .01204, 56.76836, 2.46172, 1.92936,
452 + 1.41183, 2.25850, 2.46261,
453 + .02537, .01234, 61.42055, 2.63331, 2.10500,
454 + 1.59266, 2.43147, 2.63422,
455 + .02605, .01272, 67.47915, 2.86008, 2.33561,
456 + 1.82756, 2.65995, 2.86101,
457 + .02670, .01308, 73.40240, 3.08375, 2.56333,
458 + 2.06019, 2.88518, 3.08470,
459 + .02732, .01342, 79.16885, 3.30303, 2.78708,
460 + 2.28964, 3.10590, 3.30400 /
461 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
462 + .02793, .01376, 85.00312, 3.52903, 3.01602,
463 + 2.52182, 3.33330, 3.53002,
464 + .02853, .01410, 90.89761, 3.75907, 3.24967,
465 + 2.75984, 3.56468, 3.76007,
466 + .02911, .01442, 96.61357, 3.98443, 3.47854,
467 + 2.99298, 3.79128, 3.98545,
468 + .02965, .01472, 102.05177, 4.20207, 3.69883,
469 + 3.21639, 4.01007, 4.20310,
470 + .03020, .01503, 107.68237, 4.42857, 3.92882,
471 + 3.45069, 4.23771, 4.42963,
472 + .03074, .01533, 113.21288, 4.65512, 4.15774,
473 + 3.68234, 4.46535, 4.65619,
474 + .03126, .01562, 118.63709, 4.87808, 4.38392,
475 + 3.91250, 4.68935, 4.87918,
476 + .03175, .01589, 123.73450, 5.09149, 4.59938,
477 + 4.13034, 4.90371, 5.09260 /
478 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
479 + .03225, .01617, 129.00847, 5.31324, 4.82391,
480 + 4.35824, 5.12642, 5.31437,
481 + .03274, .01645, 134.21463, 5.53529, 5.04823,
482 + 4.58529, 5.34939, 5.53643,
483 + .03321, .01671, 139.24307, 5.75166, 5.26687,
484 + 4.80668, 5.56663, 5.75282,
485 + .03366, .01697, 144.08449, 5.96146, 5.47912,
486 + 5.02193, 5.77726, 5.96264,
487 + .03412, .01722, 148.93478, 6.17509, 5.69454,
488 + 5.23947, 5.99171, 6.17629 /
489 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
490 + .01922, .00871, .83859, .43535, .00000,
491 + .00000, .23230, .43518,
492 + .01990, .00908, 1.64665, .45931, .00000,
493 + .00000, .25813, .45915,
494 + .02091, .00963, 3.09000, .50375, .00000,
495 + .00000, .30520, .50361,
496 + .02164, .01003, 4.32206, .54250, .02252,
497 + .00000, .34577, .54238,
498 + .02240, .01045, 5.70000, .58902, .07618,
499 + .00000, .39411, .58892,
500 + .02306, .01082, 7.03131, .63421, .12476,
501 + .00000, .44083, .63413,
502 + .02369, .01117, 8.44675, .68143, .17608,
503 + .00000, .48945, .68136,
504 + .02437, .01154, 10.09380, .73580, .23590,
505 + .00000, .54529, .73575 /
506 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
507 + .02495, .01187, 11.61752, .78698, .28965,
508 + .00000, .59771, .78695,
509 + .02552, .01219, 13.18362, .83962, .34508,
510 + .00000, .65151, .83961,
511 + .02597, .01244, 14.50808, .88363, .39223,
512 + .00000, .69642, .88364,
513 + .02692, .01297, 17.41396, .98439, .49784,
514 + .00940, .79904, .98443,
515 + .02775, .01343, 19.97443, 1.07779, .59476,
516 + .12299, .89397, 1.07785,
517 + .02867, .01395, 23.03087, 1.19007, .71129,
518 + .25918, 1.00793, 1.19017,
519 + .02963, .01450, 26.42603, 1.31509, .84067,
520 + .39506, 1.13462, 1.31522,
521 + .03051, .01499, 29.67831, 1.43557, .96511,
522 + .52574, 1.25658, 1.43574 /
523 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
524 + .03140, .01549, 33.12449, 1.56415, 1.09780,
525 + .66436, 1.38660, 1.56435,
526 + .03214, .01591, 36.08739, 1.67587, 1.21249,
527 + .78268, 1.49949, 1.67610,
528 + .03304, .01642, 39.79364, 1.81723, 1.35708,
529 + .93119, 1.64223, 1.81750,
530 + .03383, .01687, 43.19447, 1.94801, 1.49106,
531 + 1.06945, 1.77420, 1.94831,
532 + .03457, .01729, 46.40895, 2.07265, 1.61883,
533 + 1.20136, 1.89991, 2.07299,
534 + .03550, .01782, 50.55005, 2.23603, 1.78518,
535 + 1.37125, 2.06460, 2.23640,
536 + .03638, .01832, 54.55628, 2.39588, 1.94814,
537 + 1.53816, 2.22567, 2.39629,
538 + .03721, .01879, 58.42006, 2.55147, 2.10714,
539 + 1.70164, 2.38236, 2.55192 /
540 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
541 + .03804, .01926, 62.28826, 2.71056, 2.26850,
542 + 1.86567, 2.54253, 2.71105,
543 + .03885, .01973, 66.16307, 2.87142, 2.43210,
544 + 2.03276, 2.70443, 2.87195,
545 + .03962, .02017, 69.88879, 3.02798, 2.59133,
546 + 2.19537, 2.86196, 3.02855,
547 + .04035, .02058, 73.40219, 3.17818, 2.74356,
548 + 2.35012, 3.01305, 3.17878,
549 + .04109, .02100, 77.01559, 3.33367, 2.90169,
550 + 2.51162, 3.16942, 3.33431,
551 + .04181, .02142, 80.53281, 3.48817, 3.05800,
552 + 2.67015, 3.32477, 3.48884,
553 + .04251, .02181, 83.96239, 3.63950, 3.21177,
554 + 2.82700, 3.47690, 3.64021,
555 + .04316, .02219, 87.15803, 3.78347, 3.35730,
556 + 2.97447, 3.62160, 3.78421 /
557 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
558 + .04383, .02256, 90.44670, 3.93242, 3.50835,
559 + 3.12815, 3.77129, 3.93319,
560 + .04449, .02294, 93.66891, 4.08075, 3.65841,
561 + 3.28038, 3.92034, 4.08156,
562 + .04512, .02330, 96.76244, 4.22463, 3.80402,
563 + 3.42815, 4.06489, 4.22547,
564 + .04572, .02364, 99.72497, 4.36355, 3.94479,
565 + 3.57125, 4.20446, 4.36443,
566 + .04632, .02399, 102.67086, 4.50428, 4.08689,
567 + 3.71506, 4.34582, 4.50519 /
568 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
569 + .02607, .01207, .79841, .36873, .00000,
570 + .00000, .19759, .36853,
571 + .02702, .01261, 1.52588, .39027, .00000,
572 + .00000, .22062, .39009,
573 + .02842, .01341, 2.79215, .42909, .00000,
574 + .00000, .26156, .42898,
575 + .02943, .01400, 3.84785, .46226, .01906,
576 + .00000, .29619, .46219,
577 + .03049, .01461, 5.00534, .50138, .06422,
578 + .00000, .33678, .50136,
579 + .03141, .01514, 6.10473, .53885, .10456,
580 + .00000, .37546, .53886,
581 + .03228, .01564, 7.25737, .57758, .14672,
582 + .00000, .41533, .57764,
583 + .03321, .01618, 8.58041, .62175, .19538,
584 + .00000, .46068, .62185 /
585 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
586 + .03402, .01665, 9.78797, .66288, .23865,
587 + .00000, .50279, .66302,
588 + .03480, .01710, 11.01523, .70482, .28292,
589 + .00000, .54566, .70500,
590 + .03542, .01746, 12.04382, .73967, .32034,
591 + .00000, .58124, .73988,
592 + .03673, .01822, 14.26886, .81862, .40332,
593 + .00762, .66169, .81890,
594 + .03786, .01888, 16.19538, .89097, .47861,
595 + .09606, .73527, .89130,
596 + .03913, .01961, 18.46152, .97703, .56820,
597 + .20144, .82267, .97743,
598 + .04045, .02038, 20.94117, 1.07178, .66656,
599 + .30523, .91876, 1.07225,
600 + .04165, .02108, 23.28293, 1.16214, .76019,
601 + .40402, 1.01030, 1.16267 /
602 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
603 + .04286, .02178, 25.73205, 1.25762, .85906,
604 + .50780, 1.10695, 1.25823,
605 + .04386, .02237, 27.81249, 1.33985, .94375,
606 + .59557, 1.19012, 1.34051,
607 + .04508, .02308, 30.38435, 1.44298, 1.04958,
608 + .70477, 1.29435, 1.44371,
609 + .04616, .02370, 32.71771, 1.53758, 1.14683,
610 + .80560, 1.38991, 1.53837,
611 + .04716, .02428, 34.90132, 1.62708, 1.23889,
612 + .90108, 1.48027, 1.62793,
613 + .04842, .02501, 37.68143, 1.74335, 1.35767,
614 + 1.02293, 1.59760, 1.74428,
615 + .04960, .02571, 40.34083, 1.85616, 1.47307,
616 + 1.14166, 1.71138, 1.85715,
617 + .05072, .02635, 42.88007, 1.96513, 1.58482,
618 + 1.25710, 1.82125, 1.96619 /
619 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
620 + .05183, .02700, 45.39282, 2.07561, 1.69724,
621 + 1.37187, 1.93260, 2.07674,
622 + .05293, .02764, 47.88678, 2.18655, 1.81046,
623 + 1.48802, 2.04437, 2.18774,
624 + .05396, .02824, 50.26280, 2.29377, 1.91989,
625 + 1.60028, 2.15238, 2.29503,
626 + .05494, .02880, 52.48157, 2.39592, 2.02377,
627 + 1.70632, 2.25524, 2.39723,
628 + .05592, .02938, 54.74730, 2.50108, 2.13109,
629 + 1.81643, 2.36111, 2.50245,
630 + .05689, .02994, 56.93022, 2.60482, 2.23639,
631 + 1.92368, 2.46554, 2.60626,
632 + .05782, .03047, 59.04583, 2.70595, 2.33951,
633 + 2.02934, 2.56731, 2.70744,
634 + .05869, .03098, 60.99796, 2.80150, 2.43643,
635 + 2.12796, 2.66347, 2.80305 /
636 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
637 + .05957, .03149, 62.99564, 2.89993, 2.53659,
638 + 2.23032, 2.76250, 2.90153,
639 + .06045, .03200, 64.93635, 2.99737, 2.63550,
640 + 2.33109, 2.86052, 2.99903,
641 + .06128, .03248, 66.78723, 3.09143, 2.73102,
642 + 2.42844, 2.95512, 3.09314,
643 + .06207, .03294, 68.54935, 3.18185, 2.82296,
644 + 2.52232, 3.04606, 3.18361,
645 + .06288, .03340, 70.28633, 3.27292, 2.91522,
646 + 2.61608, 3.13764, 3.27473 /
647 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
648 + .03123, .01470, .78278, .33514, .00000,
649 + .00000, .18017, .33521,
650 + .03239, .01538, 1.46688, .35529, .00000,
651 + .00000, .20166, .35542,
652 + .03408, .01638, 2.63815, .39106, .00000,
653 + .00000, .23931, .39128,
654 + .03531, .01711, 3.60032, .42125, .01724,
655 + .00000, .27081, .42153,
656 + .03660, .01787, 4.64228, .45650, .05797,
657 + .00000, .30737, .45686,
658 + .03770, .01852, 5.62147, .48996, .09405,
659 + .00000, .34191, .49038,
660 + .03876, .01914, 6.63917, .52434, .13151,
661 + .00000, .37731, .52482,
662 + .03989, .01981, 7.79743, .56331, .17449,
663 + .00000, .41733, .56386 /
664 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
665 + .04086, .02038, 8.84575, .59935, .21248,
666 + .00000, .45425, .59995,
667 + .04180, .02094, 9.90373, .63591, .25114,
668 + .00000, .49164, .63657,
669 + .04255, .02138, 10.78550, .66618, .28370,
670 + .00000, .52256, .66688,
671 + .04413, .02232, 12.67611, .73431, .35545,
672 + .00672, .59203, .73510,
673 + .04549, .02312, 14.29503, .79629, .42012,
674 + .08281, .65511, .79717,
675 + .04701, .02402, 16.18193, .86954, .49656,
676 + .17313, .72956, .87051,
677 + .04859, .02495, 18.22724, .94962, .57992,
678 + .26139, .81085, .95069,
679 + .05003, .02580, 20.14166, 1.02549, .65875,
680 + .34487, .88779, 1.02665 /
681 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
682 + .05147, .02665, 22.12749, 1.10519, .74151,
683 + .43205, .96853, 1.10644,
684 + .05268, .02736, 23.80163, 1.17343, .81200,
685 + .50536, 1.03763, 1.17476,
686 + .05413, .02822, 25.85583, 1.25856, .89961,
687 + .59608, 1.12375, 1.25998,
688 + .05542, .02898, 27.70629, 1.33624, .97970,
689 + .67941, 1.20229, 1.33774,
690 + .05661, .02968, 29.42715, 1.40938, 1.05516,
691 + .75797, 1.27621, 1.41097,
692 + .05811, .03056, 31.60166, 1.50390, 1.15200,
693 + .85765, 1.37169, 1.50558,
694 + .05952, .03139, 33.66690, 1.59511, 1.24558,
695 + .95429, 1.46378, 1.59689,
696 + .06084, .03216, 35.62638, 1.68281, 1.33580,
697 + 1.04783, 1.55229, 1.68467 /
698 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
699 + .06216, .03294, 37.55079, 1.77125, 1.42606,
700 + 1.14030, 1.64152, 1.77320,
701 + .06346, .03370, 39.44971, 1.85967, 1.51657,
702 + 1.23349, 1.73070, 1.86171,
703 + .06468, .03442, 41.24817, 1.94478, 1.60369,
704 + 1.32318, 1.81651, 1.94689,
705 + .06584, .03509, 42.91686, 2.02548, 1.68601,
706 + 1.40752, 1.89787, 2.02768,
707 + .06700, .03577, 44.61323, 2.10829, 1.77078,
708 + 1.49481, 1.98133, 2.11057,
709 + .06814, .03644, 46.23649, 2.18961, 1.85357,
710 + 1.57943, 2.06328, 2.19196,
711 + .06923, .03707, 47.80371, 2.26864, 1.93441,
712 + 1.66257, 2.14290, 2.27107,
713 + .07026, .03767, 49.24039, 2.34300, 2.01006,
714 + 1.73982, 2.21781, 2.34550 /
715 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
716 + .07130, .03828, 50.70535, 2.41939, 2.08803,
717 + 1.81979, 2.29474, 2.42196,
718 + .07232, .03888, 52.12043, 2.49473, 2.16474,
719 + 1.89822, 2.37061, 2.49737,
720 + .07330, .03945, 53.46415, 2.56723, 2.23859,
721 + 1.97376, 2.44362, 2.56994,
722 + .07423, .03999, 54.73855, 2.63674, 2.30949,
723 + 2.04642, 2.51360, 2.63951,
724 + .07517, .04053, 55.98723, 2.70649, 2.38037,
725 + 2.11870, 2.58382, 2.70933 /
726 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
727 + .03556, .01700, .77673, .31364, .00000,
728 + .00000, .16904, .31400,
729 + .03689, .01779, 1.43154, .33283, .00000,
730 + .00000, .18946, .33326,
731 + .03883, .01896, 2.53860, .36651, .00000,
732 + .00000, .22489, .36707,
733 + .04025, .01981, 3.43800, .39470, .01603,
734 + .00000, .25429, .39534,
735 + .04172, .02068, 4.40301, .42738, .05382,
736 + .00000, .28817, .42811,
737 + .04298, .02144, 5.30269, .45819, .08708,
738 + .00000, .32000, .45900,
739 + .04419, .02217, 6.23165, .48971, .12145,
740 + .00000, .35246, .49060,
741 + .04548, .02294, 7.28222, .52527, .16072,
742 + .00000, .38900, .52624 /
743 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
744 + .04659, .02360, 8.22713, .55800, .19527,
745 + .00000, .42255, .55904,
746 + .04767, .02425, 9.17575, .59108, .23031,
747 + .00000, .45640, .59219,
748 + .04852, .02476, 9.96309, .61838, .25972,
749 + .00000, .48431, .61954,
750 + .05033, .02584, 11.64002, .67954, .32426,
751 + .00613, .54672, .68083,
752 + .05187, .02676, 13.06399, .73490, .38213,
753 + .07432, .60311, .73629,
754 + .05360, .02779, 14.71225, .80000, .45021,
755 + .15505, .66932, .80150,
756 + .05540, .02886, 16.48630, .87080, .52408,
757 + .23348, .74126, .87242,
758 + .05703, .02983, 18.13573, .93755, .59360,
759 + .30732, .80901, .93928 /
760 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
761 + .05867, .03081, 19.83614, 1.00736, .66626,
762 + .38409, .87980, 1.00921,
763 + .06004, .03162, 21.26147, 1.06689, .72790,
764 + .44837, .94012, 1.06883,
765 + .06169, .03260, 23.00051, 1.14084, .80419,
766 + .52760, 1.01501, 1.14289,
767 + .06315, .03347, 24.55866, 1.20805, .87367,
768 + .60011, 1.08303, 1.21021,
769 + .06449, .03426, 26.00081, 1.27112, .93891,
770 + .66823, 1.14684, 1.27338,
771 + .06618, .03526, 27.81267, 1.35229, 1.02229,
772 + .75431, 1.22891, 1.35466,
773 + .06777, .03620, 29.52414, 1.43032, 1.10255,
774 + .83744, 1.30777, 1.43280,
775 + .06926, .03708, 31.14021, 1.50508, 1.17966,
776 + .91763, 1.38329, 1.50767 /
777 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
778 + .07075, .03796, 32.71807, 1.58017, 1.25648,
779 + .99658, 1.45913, 1.58286,
780 + .07221, .03882, 34.26814, 1.65500, 1.33329,
781 + 1.07590, 1.53468, 1.65779,
782 + .07359, .03963, 35.72955, 1.72679, 1.40698,
783 + 1.15200, 1.60714, 1.72968,
784 + .07488, .04039, 37.07876, 1.79464, 1.47637,
785 + 1.22331, 1.67561, 1.79763,
786 + .07619, .04116, 38.44567, 1.86409, 1.54766,
787 + 1.29694, 1.74568, 1.86717,
788 + .07747, .04191, 39.74667, 1.93205, 1.61703,
789 + 1.36806, 1.81423, 1.93522,
790 + .07869, .04262, 40.99918, 1.99795, 1.68463,
791 + 1.43780, 1.88070, 2.00122,
792 + .07984, .04329, 42.14129, 2.05977, 1.74768,
793 + 1.50238, 1.94303, 2.06311 /
794 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
795 + .08100, .04397, 43.30281, 2.12313, 1.81254,
796 + 1.56911, 2.00691, 2.12656,
797 + .08215, .04464, 44.41969, 2.18545, 1.87617,
798 + 1.63437, 2.06974, 2.18896,
799 + .08324, .04528, 45.47664, 2.24528, 1.93728,
800 + 1.69708, 2.13005, 2.24888,
801 + .08428, .04589, 46.47611, 2.30253, 1.99584,
802 + 1.75728, 2.18775, 2.30620,
803 + .08533, .04649, 47.45061, 2.35981, 2.05420,
804 + 1.81699, 2.24548, 2.36355 /
805 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
806 + .03940, .01918, .77869, .29892, .00000,
807 + .00000, .16122, .29932,
808 + .04088, .02007, 1.41110, .31736, .00000,
809 + .00000, .18081, .31785,
810 + .04305, .02139, 2.46927, .34945, .00000,
811 + .00000, .21452, .35008,
812 + .04463, .02234, 3.32108, .37610, .01512,
813 + .00000, .24230, .37684,
814 + .04626, .02333, 4.22794, .40682, .05067,
815 + .00000, .27414, .40767,
816 + .04767, .02418, 5.06780, .43565, .08181,
817 + .00000, .30390, .43659,
818 + .04902, .02499, 5.93026, .46501, .11387,
819 + .00000, .33415, .46605,
820 + .05045, .02586, 6.90044, .49803, .15037,
821 + .00000, .36808, .49916 /
822 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
823 + .05168, .02660, 7.76847, .52830, .18236,
824 + .00000, .39911, .52952,
825 + .05287, .02732, 8.63608, .55879, .21470,
826 + .00000, .43033, .56009,
827 + .05382, .02789, 9.35367, .58391, .24179,
828 + .00000, .45601, .58527,
829 + .05582, .02909, 10.87354, .63995, .30102,
830 + .00569, .51321, .64145,
831 + .05753, .03012, 12.15507, .69045, .35390,
832 + .06808, .56468, .69208,
833 + .05944, .03126, 13.62986, .74960, .41586,
834 + .14177, .62488, .75136,
835 + .06143, .03245, 15.20781, .81366, .48281,
836 + .21302, .69000, .81557,
837 + .06323, .03353, 16.66673, .87382, .54558,
838 + .27984, .75109, .87585 /
839 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
840 + .06504, .03461, 18.16301, .93650, .61095,
841 + .34906, .81469, .93866,
842 + .06654, .03550, 19.41103, .98977, .66620,
843 + .40683, .86870, .99204,
844 + .06836, .03658, 20.92655, 1.05572, .73437,
845 + .47778, .93553, 1.05812,
846 + .06996, .03754, 22.27835, 1.11546, .79626,
847 + .54252, .99604, 1.11798,
848 + .07143, .03841, 23.52460, 1.17137, .85420,
849 + .60316, 1.05263, 1.17399,
850 + .07329, .03951, 25.08265, 1.24307, .92800,
851 + .67954, 1.12518, 1.24583,
852 + .07503, .04054, 26.54748, 1.31177, .99882,
853 + .75307, 1.19467, 1.31466,
854 + .07667, .04151, 27.92492, 1.37740, 1.06666,
855 + .82379, 1.26102, 1.38042 /
856 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
857 + .07830, .04247, 29.26292, 1.44310, 1.13402,
858 + .89318, 1.32742, 1.44623,
859 + .07989, .04341, 30.57261, 1.50840, 1.20119,
860 + .96273, 1.39340, 1.51165,
861 + .08140, .04429, 31.80284, 1.57088, 1.26547,
862 + 1.02927, 1.45652, 1.57425,
863 + .08281, .04512, 32.93337, 1.62977, 1.32582,
864 + 1.09144, 1.51599, 1.63324,
865 + .08423, .04596, 34.07531, 1.68991, 1.38770,
866 + 1.15553, 1.57671, 1.69348,
867 + .08563, .04677, 35.15723, 1.74860, 1.44774,
868 + 1.21723, 1.63596, 1.75228,
869 + .08696, .04755, 36.19638, 1.80541, 1.50615,
870 + 1.27765, 1.69331, 1.80919,
871 + .08821, .04828, 37.13969, 1.85855, 1.56047,
872 + 1.33343, 1.74694, 1.86242 /
873 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
874 + .08947, .04902, 38.09692, 1.91292, 1.61626,
875 + 1.39098, 1.80181, 1.91689,
876 + .09072, .04975, 39.01348, 1.96627, 1.67086,
877 + 1.44713, 1.85564, 1.97033,
878 + .09191, .05044, 39.87827, 2.01740, 1.72321,
879 + 1.50098, 1.90722, 2.02155,
880 + .09303, .05109, 40.69394, 2.06623, 1.77329,
881 + 1.55260, 1.95648, 2.07046,
882 + .09417, .05175, 41.48579, 2.11497, 1.82307,
883 + 1.60366, 2.00564, 2.11929 /
884 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
885 + .05454, .02826, .80540, .25880, .00000,
886 + .00000, .14011, .25982,
887 + .05663, .02956, 1.37155, .27499, .00000,
888 + .00000, .15725, .27617,
889 + .05968, .03146, 2.28529, .30236, .00000,
890 + .00000, .18597, .30378,
891 + .06189, .03282, 2.99846, .32460, .01251,
892 + .00000, .20914, .32618,
893 + .06417, .03422, 3.73838, .34973, .04173,
894 + .00000, .23522, .35150,
895 + .06612, .03543, 4.40858, .37293, .06693,
896 + .00000, .25919, .37484,
897 + .06799, .03657, 5.08425, .39627, .09254,
898 + .00000, .28327, .39833,
899 + .06997, .03778, 5.83093, .42219, .12136,
900 + .00000, .30997, .42441 /
901 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
902 + .07168, .03883, 6.48741, .44566, .14630,
903 + .00000, .33408, .44801,
904 + .07332, .03983, 7.13399, .46905, .17128,
905 + .00000, .35808, .47153,
906 + .07461, .04062, 7.66255, .48816, .19205,
907 + .00000, .37767, .49075,
908 + .07735, .04228, 8.76102, .53029, .23688,
909 + .00447, .42079, .53309,
910 + .07968, .04369, 9.66502, .56770, .27636,
911 + .05130, .45903, .57069,
912 + .08228, .04526, 10.68511, .61095, .32202,
913 + .10619, .50317, .61415,
914 + .08497, .04687, 11.75484, .65712, .37068,
915 + .15843, .55025, .66054,
916 + .08740, .04833, 12.72507, .69991, .41571,
917 + .20681, .59384, .70352 /
918 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
919 + .08983, .04978, 13.70264, .74394, .46204,
920 + .25632, .63867, .74774,
921 + .09184, .05098, 14.50452, .78093, .50076,
922 + .29717, .67631, .78490,
923 + .09426, .05242, 15.46234, .82621, .54799,
924 + .34681, .72235, .83037,
925 + .09640, .05369, 16.30341, .86679, .59042,
926 + .39162, .76359, .87112,
927 + .09835, .05484, 17.06809, .90439, .62978,
928 + .43322, .80180, .90888,
929 + .10080, .05629, 18.00763, .95207, .67933,
930 + .48500, .85022, .95675,
931 + .10310, .05764, 18.87679, .99726, .72637,
932 + .53434, .89609, 1.00212,
933 + .10525, .05890, 19.68256, 1.04000, .77102,
934 + .58137, .93948, 1.04504 /
935 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
936 + .10737, .06015, 20.45097, 1.08230, .81483,
937 + .62696, .98240, 1.08751,
938 + .10945, .06136, 21.19317, 1.12397, .85815,
939 + .67228, 1.02467, 1.12935,
940 + .11141, .06250, 21.88074, 1.16348, .89924,
941 + .71527, 1.06475, 1.16902,
942 + .11324, .06356, 22.50245, 1.20036, .93744,
943 + .75505, 1.10215, 1.20604,
944 + .11508, .06463, 23.12413, 1.23776, .97636,
945 + .79579, 1.14007, 1.24359,
946 + .11688, .06567, 23.70259, 1.27389, 1.01373,
947 + .83461, 1.17670, 1.27987,
948 + .11859, .06666, 24.25367, 1.30866, 1.04988,
949 + .87243, 1.21195, 1.31477,
950 + .12019, .06758, 24.74488, 1.34086, 1.08318,
951 + .90700, 1.24459, 1.34710 /
952 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
953 + .12180, .06851, 25.23943, 1.37363, 1.11720,
954 + .94250, 1.27781, 1.38000,
955 + .12339, .06942, 25.70555, 1.40551, 1.15022,
956 + .97684, 1.31013, 1.41201,
957 + .12490, .07028, 26.14043, 1.43586, 1.18168,
958 + 1.00957, 1.34089, 1.44248,
959 + .12633, .07110, 26.54672, 1.46468, 1.21160,
960 + 1.04078, 1.37010, 1.47142,
961 + .12777, .07191, 26.93404, 1.49321, 1.24109,
962 + 1.07138, 1.39901, 1.50005 /
963 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
964 + .07680, .04282, .88796, .22784, .00000,
965 + .00000, .12367, .23003,
966 + .07976, .04466, 1.38826, .24186, .00000,
967 + .00000, .13851, .24431,
968 + .08407, .04733, 2.16148, .26478, .00000,
969 + .00000, .16260, .26761,
970 + .08715, .04924, 2.74401, .28295, .01019,
971 + .00000, .18159, .28605,
972 + .09032, .05118, 3.33129, .30306, .03383,
973 + .00000, .20253, .30645,
974 + .09303, .05283, 3.84989, .32128, .05385,
975 + .00000, .22144, .32490,
976 + .09560, .05440, 4.36170, .33936, .07391,
977 + .00000, .24017, .34321,
978 + .09832, .05605, 4.91581, .35917, .09619,
979 + .00000, .26066, .36326 /
980 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
981 + .10066, .05746, 5.39326, .37683, .11520,
982 + .00000, .27890, .38113,
983 + .10289, .05881, 5.85555, .39423, .13403,
984 + .00000, .29685, .39873,
985 + .10466, .05988, 6.22837, .40833, .14954,
986 + .00000, .31138, .41298,
987 + .10837, .06209, 6.98577, .43895, .18258,
988 + .00344, .34290, .44392,
989 + .11150, .06396, 7.59072, .46570, .21121,
990 + .03768, .37040, .47095,
991 + .11498, .06602, 8.25748, .49615, .24384,
992 + .07747, .40166, .50170,
993 + .11856, .06813, 8.93989, .52813, .27806,
994 + .11468, .43447, .53400,
995 + .12177, .07002, 9.54452, .55730, .30926,
996 + .14864, .46439, .56345 /
997 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
998 + .12498, .07190, 10.14072, .58689, .34091,
999 + .18292, .49472, .59332,
1000 + .12762, .07343, 10.61981, .61142, .36702,
1001 + .21084, .51985, .61808,
1002 + .13078, .07526, 11.18003, .64104, .39846,
1003 + .24434, .55018, .64797,
1004 + .13355, .07686, 11.66230, .66724, .42637,
1005 + .27424, .57701, .67442,
1006 + .13608, .07832, 12.09310, .69126, .45197,
1007 + .30169, .60159, .69865,
1008 + .13924, .08012, 12.61038, .72129, .48377,
1009 + .33542, .63232, .72895,
1010 + .14218, .08180, 13.07893, .74938, .51359,
1011 + .36717, .66107, .75729,
1012 + .14492, .08336, 13.50536, .77565, .54158,
1013 + .39712, .68795, .78379 /
1014 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
1015 + .14761, .08489, 13.90153, .80127, .56867,
1016 + .42576, .71417, .80965,
1017 + .15024, .08636, 14.27728, .82625, .59519,
1018 + .45396, .73972, .83485,
1019 + .15270, .08775, 14.61857, .84968, .62008,
1020 + .48044, .76369, .85849,
1021 + .15499, .08903, 14.92003, .87128, .64295,
1022 + .50467, .78580, .88028,
1023 + .15729, .09031, 15.21750, .89301, .66608,
1024 + .52930, .80803, .90220,
1025 + .15952, .09155, 15.48623, .91372, .68801,
1026 + .55249, .82923, .92310,
1027 + .16163, .09272, 15.73953, .93352, .70910,
1028 + .57495, .84949, .94308,
1029 + .16360, .09381, 15.95862, .95162, .72828,
1030 + .59523, .86803, .96135 /
1031 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
1032 + .16559, .09490, 16.17689, .96993, .74776,
1033 + .61594, .88677, .97982,
1034 + .16753, .09597, 16.37718, .98755, .76648,
1035 + .63578, .90482, .99760,
1036 + .16937, .09698, 16.56073, 1.00420, .78417,
1037 + .65455, .92187, 1.01440,
1038 + .17110, .09793, 16.72959, 1.01989, .80089,
1039 + .67234, .93794, 1.03023,
1040 + .17284, .09887, 16.88505, 1.03523, .81719,
1041 + .68959, .95366, 1.04572 /
1042 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
1043 + .09481, .05514, .97075, .21308, .00000,
1044 + .00000, .11592, .21652,
1045 + .09843, .05736, 1.42808, .22581, .00000,
1046 + .00000, .12944, .22958,
1047 + .10366, .06056, 2.11797, .24619, .00000,
1048 + .00000, .15095, .25046,
1049 + .10740, .06283, 2.62584, .26209, .00896,
1050 + .00000, .16765, .26671,
1051 + .11122, .06514, 3.12840, .27946, .02963,
1052 + .00000, .18583, .28444,
1053 + .11447, .06709, 3.56488, .29501, .04693,
1054 + .00000, .20205, .30028,
1055 + .11756, .06893, 3.98962, .31029, .06411,
1056 + .00000, .21798, .31585,
1057 + .12081, .07087, 4.44335, .32688, .08302,
1058 + .00000, .23525, .33275 /
1059 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
1060 + .12359, .07251, 4.82917, .34154, .09901,
1061 + .00000, .25047, .34766,
1062 + .12624, .07408, 5.19843, .35586, .11474,
1063 + .00000, .26534, .36224,
1064 + .12834, .07531, 5.49351, .36740, .12762,
1065 + .00000, .27731, .37397,
1066 + .13272, .07787, 6.08361, .39222, .15479,
1067 + .00292, .30302, .39918,
1068 + .13640, .08001, 6.54489, .41367, .17809,
1069 + .03098, .32521, .42097,
1070 + .14048, .08237, 7.04486, .43782, .20439,
1071 + .06342, .35019, .44550,
1072 + .14465, .08476, 7.54797, .46291, .23169,
1073 + .09340, .37611, .47096,
1074 + .14838, .08689, 7.98644, .48556, .25632,
1075 + .12050, .39951, .49394 /
1076 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
1077 + .15209, .08900, 8.41204, .50831, .28109,
1078 + .14762, .42300, .51702,
1079 + .15513, .09072, 8.74861, .52698, .30135,
1080 + .16951, .44229, .53598,
1081 + .15876, .09276, 9.13622, .54933, .32552,
1082 + .19557, .46536, .55865,
1083 + .16193, .09454, 9.46504, .56893, .34680,
1084 + .21865, .48560, .57853,
1085 + .16482, .09614, 9.75484, .58675, .36618,
1086 + .23969, .50399, .59660,
1087 + .16840, .09813, 10.09621, .60882, .39004,
1088 + .26531, .52678, .61898,
1089 + .17173, .09996, 10.40033, .62928, .41222,
1090 + .28925, .54790, .63973,
1091 + .17482, .10166, 10.67313, .64825, .43289,
1092 + .31167, .56750, .65898 /
1093 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
1094 + .17785, .10331, 10.92081, .66658, .45271,
1095 + .33291, .58643, .67756,
1096 + .18078, .10491, 11.15222, .68430, .47197,
1097 + .35370, .60474, .69554,
1098 + .18353, .10639, 11.35884, .70079, .48993,
1099 + .37308, .62179, .71226,
1100 + .18608, .10776, 11.53729, .71586, .50630,
1101 + .39068, .63737, .72755,
1102 + .18863, .10913, 11.71139, .73093, .52276,
1103 + .40850, .65297, .74284,
1104 + .19108, .11044, 11.86415, .74517, .53823,
1105 + .42512, .66770, .75728,
1106 + .19341, .11168, 12.00691, .75871, .55305,
1107 + .44116, .68172, .77101,
1108 + .19558, .11282, 12.12619, .77096, .56640,
1109 + .45552, .69441, .78345 /
1110 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
1111 + .19775, .11397, 12.24390, .78330, .57992,
1112 + .47014, .70720, .79597,
1113 + .19986, .11508, 12.34861, .79507, .59280,
1114 + .48404, .71941, .80791,
1115 + .20186, .11613, 12.44265, .80612, .60492,
1116 + .49713, .73087, .81912,
1117 + .20375, .11712, 12.52769, .81648, .61631,
1118 + .50948, .74163, .82964,
1119 + .20563, .11809, 12.60243, .82651, .62733,
1120 + .52137, .75205, .83983 /
1121 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
1122 + .11075, .06621, 1.04770, .20393, .00000,
1123 + .00000, .11116, .20866,
1124 + .11491, .06873, 1.47169, .21570, .00000,
1125 + .00000, .12373, .22084,
1126 + .12090, .07232, 2.10041, .23427, .00000,
1127 + .00000, .14345, .24000,
1128 + .12516, .07486, 2.55516, .24858, .00812,
1129 + .00000, .15857, .25472,
1130 + .12950, .07742, 2.99866, .26406, .02680,
1131 + .00000, .17487, .27062,
1132 + .13318, .07958, 3.37906, .27778, .04230,
1133 + .00000, .18927, .28469,
1134 + .13667, .08162, 3.74521, .29117, .05757,
1135 + .00000, .20332, .29842,
1136 + .14033, .08375, 4.13227, .30561, .07427,
1137 + .00000, .21845, .31321 /
1138 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
1139 + .14346, .08556, 4.45801, .31827, .08828,
1140 + .00000, .23169, .32616,
1141 + .14644, .08727, 4.76697, .33057, .10199,
1142 + .00000, .24455, .33874,
1143 + .14878, .08862, 5.01210, .34043, .11317,
1144 + .00000, .25484, .34882,
1145 + .15367, .09140, 5.49597, .36147, .13658,
1146 + .00257, .27680, .37032,
1147 + .15777, .09372, 5.86736, .37951, .15650,
1148 + .02671, .29560, .38874,
1149 + .16228, .09626, 6.26446, .39965, .17881,
1150 + .05450, .31658, .40930,
1151 + .16689, .09883, 6.65847, .42038, .20177,
1152 + .07995, .33818, .43045,
1153 + .17099, .10111, 6.99705, .43894, .22234,
1154 + .10279, .35751, .44938 /
1155 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
1156 + .17506, .10335, 7.32130, .45743, .24287,
1157 + .12549, .37677, .46824,
1158 + .17838, .10517, 7.57429, .47250, .25954,
1159 + .14369, .39247, .48362,
1160 + .18233, .10733, 7.86161, .49040, .27930,
1161 + .16522, .41112, .50187,
1162 + .18578, .10919, 8.10214, .50599, .29659,
1163 + .18418, .42736, .51776,
1164 + .18890, .11087, 8.31157, .52007, .31225,
1165 + .20137, .44203, .53211,
1166 + .19277, .11295, 8.55392, .53736, .33137,
1167 + .22215, .46007, .54974,
1168 + .19635, .11485, 8.76640, .55326, .34904,
1169 + .24145, .47666, .56596,
1170 + .19967, .11661, 8.95434, .56793, .36541,
1171 + .25944, .49197, .58091 /
1172 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
1173 + .20290, .11831, 9.12097, .58196, .38098,
1174 + .27635, .50663, .59522,
1175 + .20603, .11994, 9.27429, .59545, .39604,
1176 + .29282, .52073, .60897,
1177 + .20894, .12146, 9.40874, .60791, .41000,
1178 + .30809, .53377, .62169,
1179 + .21164, .12286, 9.52193, .61921, .42263,
1180 + .32188, .54561, .63321,
1181 + .21433, .12425, 9.63104, .63046, .43529,
1182 + .33578, .55740, .64469,
1183 + .21692, .12557, 9.72337, .64099, .44710,
1184 + .34867, .56844, .65543,
1185 + .21937, .12682, 9.80886, .65097, .45837,
1186 + .36106, .57892, .66561,
1187 + .22163, .12796, 9.87712, .65992, .46845,
1188 + .37209, .58832, .67474 /
1189 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
1190 + .22390, .12911, 9.94371, .66889, .47863,
1191 + .38327, .59776, .68391,
1192 + .22610, .13022, 10.00034, .67738, .48826,
1193 + .39386, .60671, .69258,
1194 + .22818, .13126, 10.04969, .68531, .49728,
1195 + .40378, .61507, .70067,
1196 + .23013, .13224, 10.09317, .69271, .50573,
1197 + .41311, .62288, .70823,
1198 + .23207, .13320, 10.12839, .69981, .51385,
1199 + .42203, .63038, .71549 /
1200 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
1201 + .12539, .07642, 1.11660, .19735, .00000,
1202 + .00000, .10782, .20342,
1203 + .13001, .07915, 1.51315, .20834, .00000,
1204 + .00000, .11964, .21487,
1205 + .13664, .08305, 2.09280, .22549, .00000,
1206 + .00000, .13795, .23268,
1207 + .14134, .08578, 2.50603, .23857, .00750,
1208 + .00000, .15187, .24623,
1209 + .14611, .08854, 2.90415, .25260, .02468,
1210 + .00000, .16674, .26072,
1211 + .15014, .09086, 3.24214, .26493, .03883,
1212 + .00000, .17979, .27345,
1213 + .15396, .09304, 3.56452, .27690, .05269,
1214 + .00000, .19243, .28579,
1215 + .15795, .09530, 3.90231, .28974, .06777,
1216 + .00000, .20598, .29901 /
1217 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
1218 + .16136, .09722, 4.18411, .30091, .08035,
1219 + .00000, .21776, .31051,
1220 + .16459, .09904, 4.44936, .31172, .09259,
1221 + .00000, .22914, .32162,
1222 + .16713, .10046, 4.65855, .32034, .10253,
1223 + .00000, .23822, .33049,
1224 + .17242, .10340, 5.06682, .33864, .12325,
1225 + .00232, .25746, .34928,
1226 + .17684, .10583, 5.37486, .35420, .14075,
1227 + .02366, .27382, .36526,
1228 + .18169, .10848, 5.70036, .37146, .16022,
1229 + .04814, .29195, .38297,
1230 + .18662, .11116, 6.01938, .38909, .18013,
1231 + .07039, .31048, .40105,
1232 + .19100, .11352, 6.28996, .40476, .19785,
1233 + .09024, .32695, .41712 /
1234 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
1235 + .19534, .11584, 6.54582, .42027, .21543,
1236 + .10986, .34326, .43302,
1237 + .19887, .11771, 6.74296, .43283, .22962,
1238 + .12551, .35646, .44590,
1239 + .20305, .11992, 6.96389, .44764, .24635,
1240 + .14391, .37205, .46108,
1241 + .20669, .12183, 7.14646, .46045, .26091,
1242 + .16004, .38555, .47422,
1243 + .20997, .12354, 7.30348, .47197, .27403,
1244 + .17460, .39768, .48602,
1245 + .21403, .12564, 7.48208, .48600, .28995,
1246 + .19210, .41249, .50040,
1247 + .21777, .12757, 7.63599, .49883, .30459,
1248 + .20827, .42603, .51355,
1249 + .22123, .12934, 7.77000, .51058, .31808,
1250 + .22327, .43845, .52560 /
1251 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
1252 + .22459, .13104, 7.88560, .52173, .33082,
1253 + .23729, .45026, .53703,
1254 + .22783, .13267, 7.99026, .53239, .34309,
1255 + .25089, .46155, .54796,
1256 + .23085, .13418, 8.08022, .54219, .35441,
1257 + .26345, .47194, .55800,
1258 + .23363, .13556, 8.15333, .55100, .36459,
1259 + .27472, .48131, .56704,
1260 + .23640, .13693, 8.22272, .55974, .37476,
1261 + .28605, .49060, .57601,
1262 + .23904, .13824, 8.27865, .56784, .38418,
1263 + .29649, .49924, .58432,
1264 + .24155, .13946, 8.32988, .57549, .39315,
1265 + .30651, .50741, .59218,
1266 + .24385, .14058, 8.36792, .58229, .40112,
1267 + .31538, .51468, .59916 /
1268 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
1269 + .24617, .14170, 8.40441, .58909, .40915,
1270 + .32435, .52196, .60614,
1271 + .24840, .14278, 8.43289, .59546, .41670,
1272 + .33279, .52881, .61269,
1273 + .25051, .14378, 8.45623, .60138, .42374,
1274 + .34068, .53517, .61878,
1275 + .25249, .14473, 8.47569, .60689, .43032,
1276 + .34808, .54109, .62443,
1277 + .25444, .14565, 8.48835, .61212, .43659,
1278 + .35511, .54675, .62981 /
1279 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
1280 + .15221, .09496, 1.23386, .18795, .00000,
1281 + .00000, .10322, .19675,
1282 + .15756, .09801, 1.58530, .19770, .00000,
1283 + .00000, .11385, .20705,
1284 + .16521, .10231, 2.08747, .21262, .00000,
1285 + .00000, .13003, .22274,
1286 + .17061, .10532, 2.43711, .22381, .00658,
1287 + .00000, .14212, .23448,
1288 + .17604, .10832, 2.76720, .23566, .02158,
1289 + .00000, .15488, .24686,
1290 + .18062, .11083, 3.04275, .24594, .03378,
1291 + .00000, .16593, .25759,
1292 + .18494, .11318, 3.30167, .25582, .04562,
1293 + .00000, .17654, .26789,
1294 + .18944, .11561, 3.56908, .26631, .05838,
1295 + .00000, .18780, .27882 /
1296 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
1297 + .19325, .11766, 3.78883, .27535, .06892,
1298 + .00000, .19749, .28822,
1299 + .19687, .11959, 3.99301, .28401, .07910,
1300 + .00000, .20677, .29723,
1301 + .19970, .12109, 4.15241, .29088, .08732,
1302 + .00000, .21413, .30437,
1303 + .20556, .12418, 4.45707, .30530, .10429,
1304 + .00197, .22958, .31934,
1305 + .21042, .12672, 4.67991, .31742, .11845,
1306 + .01944, .24255, .33190,
1307 + .21573, .12947, 4.91016, .33070, .13406,
1308 + .03938, .25677, .34566,
1309 + .22111, .13222, 5.13050, .34408, .14984,
1310 + .05730, .27111, .35952,
1311 + .22585, .13463, 5.31282, .35582, .16374,
1312 + .07312, .28371, .37168 /
1313 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
1314 + .23052, .13698, 5.48116, .36731, .17739,
1315 + .08861, .29606, .38358,
1316 + .23430, .13886, 5.60765, .37649, .18830,
1317 + .10086, .30594, .39309,
1318 + .23875, .14107, 5.74524, .38720, .20104,
1319 + .11514, .31748, .40418,
1320 + .24260, .14296, 5.85593, .39636, .21203,
1321 + .12755, .32737, .41367,
1322 + .24607, .14465, 5.94878, .40451, .22185,
1323 + .13868, .33619, .42212,
1324 + .25032, .14670, 6.04964, .41431, .23366,
1325 + .15194, .34681, .43226,
1326 + .25423, .14857, 6.13306, .42315, .24439,
1327 + .16408, .35642, .44142,
1328 + .25782, .15027, 6.20301, .43117, .25422,
1329 + .17525, .36514, .44972 /
1330 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
1331 + .26128, .15190, 6.25902, .43865, .26339,
1332 + .18560, .37332, .45748,
1333 + .26460, .15345, 6.30711, .44572, .27215,
1334 + .19556, .38107, .46481,
1335 + .26768, .15487, 6.34555, .45215, .28015,
1336 + .20470, .38813, .47148,
1337 + .27050, .15615, 6.37330, .45784, .28729,
1338 + .21282, .39441, .47738,
1339 + .27329, .15743, 6.39822, .46344, .29438,
1340 + .22095, .40060, .48319,
1341 + .27595, .15862, 6.41353, .46853, .30086,
1342 + .22837, .40626, .48848,
1343 + .27845, .15975, 6.42669, .47331, .30701,
1344 + .23546, .41158, .49344,
1345 + .28074, .16076, 6.43168, .47747, .31240,
1346 + .24166, .41624, .49777 /
1347 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
1348 + .28303, .16177, 6.43547, .48160, .31781,
1349 + .24792, .42088, .50206,
1350 + .28523, .16273, 6.43399, .48541, .32284,
1351 + .25376, .42518, .50603,
1352 + .28730, .16362, 6.43000, .48890, .32750,
1353 + .25919, .42914, .50967,
1354 + .28923, .16445, 6.42444, .49212, .33183,
1355 + .26425, .43280, .51302,
1356 + .29112, .16526, 6.41396, .49510, .33590,
1357 + .26901, .43622, .51613 /
1358 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
1359 + .18861, .11952, 1.36806, .17801, .00000,
1360 + .00000, .09861, .19097,
1361 + .19478, .12280, 1.66588, .18630, .00000,
1362 + .00000, .10788, .19989,
1363 + .20351, .12741, 2.08061, .19872, .00000,
1364 + .00000, .12171, .21318,
1365 + .20961, .13059, 2.36142, .20786, .00563,
1366 + .00000, .13186, .22292,
1367 + .21572, .13375, 2.61967, .21738, .01838,
1368 + .00000, .14240, .23303,
1369 + .22084, .13636, 2.83101, .22552, .02861,
1370 + .00000, .15139, .24165,
1371 + .22564, .13879, 3.02596, .23324, .03842,
1372 + .00000, .15992, .24983,
1373 + .23061, .14128, 3.22369, .24134, .04888,
1374 + .00000, .16887, .25839 /
1375 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
1376 + .23481, .14337, 3.38317, .24823, .05742,
1377 + .00000, .17648, .26566,
1378 + .23876, .14532, 3.52884, .25476, .06560,
1379 + .00000, .18370, .27255,
1380 + .24185, .14684, 3.64109, .25990, .07217,
1381 + .00000, .18938, .27797,
1382 + .24819, .14992, 3.84929, .27055, .08555,
1383 + .00162, .20115, .28918,
1384 + .25341, .15243, 3.99427, .27935, .09659,
1385 + .01544, .21089, .29843,
1386 + .25907, .15511, 4.13918, .28884, .10859,
1387 + .03112, .22142, .30841,
1388 + .26475, .15777, 4.27307, .29825, .12057,
1389 + .04502, .23188, .31829,
1390 + .26972, .16007, 4.37945, .30636, .13098,
1391 + .05714, .24092, .32680 /
1392 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
1393 + .27457, .16229, 4.47354, .31416, .14109,
1394 + .06889, .24966, .33500,
1395 + .27847, .16405, 4.54104, .32031, .14908,
1396 + .07809, .25656, .34145,
1397 + .28303, .16609, 4.61031, .32734, .15830,
1398 + .08870, .26450, .34884,
1399 + .28695, .16782, 4.66285, .33327, .16617,
1400 + .09784, .27121, .35506,
1401 + .29044, .16935, 4.70432, .33847, .17313,
1402 + .10596, .27712, .36051,
1403 + .29471, .17118, 4.74440, .34458, .18138,
1404 + .11553, .28411, .36694,
1405 + .29858, .17283, 4.77376, .34999, .18881,
1406 + .12420, .29034, .37262,
1407 + .30212, .17432, 4.79540, .35481, .19553,
1408 + .13212, .29593, .37769 /
1409 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
1410 + .30549, .17571, 4.80699, .35919, .20171,
1411 + .13936, .30105, .38229,
1412 + .30870, .17702, 4.81367, .36326, .20756,
1413 + .14627, .30584, .38657,
1414 + .31167, .17822, 4.81515, .36688, .21285,
1415 + .15256, .31013, .39038,
1416 + .31434, .17928, 4.81081, .37000, .21749,
1417 + .15809, .31387, .39367,
1418 + .31699, .18032, 4.80460, .37304, .22207,
1419 + .16358, .31752, .39687,
1420 + .31948, .18128, 4.79243, .37569, .22619,
1421 + .16853, .32077, .39966,
1422 + .32181, .18217, 4.78016, .37815, .23008,
1423 + .17324, .32381, .40227,
1424 + .32392, .18296, 4.76365, .38020, .23342,
1425 + .17732, .32638, .40444 /
1426 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
1427 + .32602, .18374, 4.74638, .38222, .23676,
1428 + .18140, .32893, .40657,
1429 + .32802, .18446, 4.72609, .38400, .23982,
1430 + .18517, .33122, .40846,
1431 + .32988, .18513, 4.70526, .38559, .24263,
1432 + .18865, .33330, .41014,
1433 + .33162, .18575, 4.68448, .38701, .24521,
1434 + .19187, .33519, .41166,
1435 + .33329, .18633, 4.66035, .38826, .24759,
1436 + .19486, .33689, .41298 /
1437 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
1438 + .24328, .15450, 1.50980, .16537, .00000,
1439 + .00000, .09313, .18522,
1440 + .25024, .15784, 1.73951, .17180, .00000,
1441 + .00000, .10070, .19230,
1442 + .25998, .16243, 2.04884, .18117, .00000,
1443 + .00000, .11169, .20255,
1444 + .26671, .16555, 2.25038, .18790, .00456,
1445 + .00000, .11957, .20988,
1446 + .27338, .16860, 2.42851, .19476, .01480,
1447 + .00000, .12758, .21731,
1448 + .27891, .17109, 2.57020, .20050, .02288,
1449 + .00000, .13429, .22351,
1450 + .28405, .17338, 2.69753, .20586, .03052,
1451 + .00000, .14056, .22928,
1452 + .28933, .17570, 2.82325, .21139, .03856,
1453 + .00000, .14704, .23523 /
1454 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
1455 + .29375, .17762, 2.92159, .21600, .04503,
1456 + .00000, .15246, .24019,
1457 + .29788, .17939, 3.00899, .22030, .05116,
1458 + .00000, .15753, .24481,
1459 + .30108, .18076, 3.07499, .22365, .05603,
1460 + .00000, .16148, .24840,
1461 + .30759, .18350, 3.19055, .23044, .06582,
1462 + .00126, .16951, .25566,
1463 + .31289, .18566, 3.26300, .23592, .07376,
1464 + .01144, .17603, .26152,
1465 + .31855, .18795, 3.33026, .24168, .08227,
1466 + .02291, .18293, .26767,
1467 + .32416, .19017, 3.38717, .24724, .09061,
1468 + .03290, .18963, .27358,
1469 + .32899, .19205, 3.42758, .25189, .09774,
1470 + .04150, .19530, .27853 /
1471 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
1472 + .33366, .19381, 3.45881, .25623, .10455,
1473 + .04971, .20064, .28315,
1474 + .33736, .19518, 3.47723, .25955, .10986,
1475 + .05606, .20477, .28668,
1476 + .34164, .19672, 3.49120, .26323, .11588,
1477 + .06329, .20941, .29059,
1478 + .34526, .19800, 3.49775, .26623, .12094,
1479 + .06944, .21326, .29378,
1480 + .34845, .19911, 3.49935, .26878, .12536,
1481 + .07485, .21656, .29649,
1482 + .35227, .20039, 3.49345, .27164, .13051,
1483 + .08113, .22035, .29952,
1484 + .35569, .20151, 3.48280, .27407, .13506,
1485 + .08675, .22364, .30209,
1486 + .35878, .20249, 3.46939, .27615, .13913,
1487 + .09181, .22651, .30430 /
1488 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
1489 + .36167, .20336, 3.45001, .27790, .14277,
1490 + .09637, .22903, .30615,
1491 + .36438, .20416, 3.42858, .27945, .14618,
1492 + .10068, .23133, .30779,
1493 + .36683, .20487, 3.40571, .28075, .14921,
1494 + .10454, .23332, .30916,
1495 + .36901, .20546, 3.38096, .28176, .15181,
1496 + .10789, .23497, .31022,
1497 + .37114, .20602, 3.35537, .28270, .15435,
1498 + .11120, .23655, .31121,
1499 + .37309, .20650, 3.32692, .28339, .15657,
1500 + .11412, .23785, .31194,
1501 + .37491, .20694, 3.29987, .28401, .15865,
1502 + .11688, .23905, .31259,
1503 + .37650, .20730, 3.27164, .28441, .16039,
1504 + .11923, .23998, .31300 /
1505 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
1506 + .37808, .20764, 3.24317, .28478, .16210,
1507 + .12156, .24088, .31338,
1508 + .37954, .20793, 3.21348, .28499, .16363,
1509 + .12368, .24161, .31360,
1510 + .38088, .20818, 3.18461, .28513, .16500,
1511 + .12561, .24223, .31373,
1512 + .38212, .20840, 3.15694, .28520, .16624,
1513 + .12738, .24277, .31381,
1514 + .38327, .20857, 3.12747, .28515, .16735,
1515 + .12900, .24317, .31374 /
1516 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
1517 + .29298, .18410, 1.57976, .15440, .00000,
1518 + .00000, .08859, .18077,
1519 + .30026, .18719, 1.75772, .15940, .00000,
1520 + .00000, .09483, .18635,
1521 + .31033, .19139, 1.99056, .16650, .00000,
1522 + .00000, .10370, .19420,
1523 + .31721, .19420, 2.13692, .17151, .00381,
1524 + .00000, .10994, .19971,
1525 + .32395, .19688, 2.26105, .17652, .01230,
1526 + .00000, .11619, .20517,
1527 + .32948, .19903, 2.35691, .18062, .01892,
1528 + .00000, .12133, .20964,
1529 + .33458, .20099, 2.44084, .18440, .02511,
1530 + .00000, .12608, .21374,
1531 + .33977, .20296, 2.52145, .18823, .03155,
1532 + .00000, .13092, .21788 /
1533 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
1534 + .34407, .20455, 2.58225, .19137, .03669,
1535 + .00000, .13491, .22126,
1536 + .34806, .20600, 2.63454, .19425, .04150,
1537 + .00000, .13860, .22435,
1538 + .35114, .20711, 2.67309, .19646, .04531,
1539 + .00000, .14144, .22673,
1540 + .35733, .20925, 2.73501, .20086, .05287,
1541 + .00102, .14714, .23145,
1542 + .36227, .21092, 2.76676, .20432, .05892,
1543 + .00895, .15168, .23513,
1544 + .36750, .21261, 2.79155, .20786, .06532,
1545 + .01783, .15639, .23888,
1546 + .37259, .21421, 2.80759, .21114, .07151,
1547 + .02546, .16085, .24235,
1548 + .37692, .21550, 2.81400, .21379, .07673,
1549 + .03196, .16454, .24514 /
1550 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
1551 + .38103, .21667, 2.81370, .21617, .08165,
1552 + .03810, .16795, .24763,
1553 + .38424, .21755, 2.80828, .21790, .08543,
1554 + .04280, .17051, .24944,
1555 + .38787, .21849, 2.79596, .21973, .08967,
1556 + .04810, .17330, .25133,
1557 + .39090, .21923, 2.78123, .22113, .09319,
1558 + .05256, .17555, .25277,
1559 + .39354, .21983, 2.76491, .22227, .09622,
1560 + .05645, .17744, .25393,
1561 + .39662, .22047, 2.73913, .22341, .09970,
1562 + .06091, .17952, .25508,
1563 + .39932, .22098, 2.71192, .22428, .10273,
1564 + .06486, .18125, .25593,
1565 + .40170, .22139, 2.68457, .22496, .10540,
1566 + .06839, .18271, .25658 /
1567 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
1568 + .40386, .22170, 2.65356, .22538, .10775,
1569 + .07152, .18389, .25696,
1570 + .40585, .22194, 2.62204, .22567, .10991,
1571 + .07445, .18492, .25720,
1572 + .40762, .22210, 2.59091, .22582, .11179,
1573 + .07706, .18575, .25729,
1574 + .40912, .22220, 2.55981, .22582, .11338,
1575 + .07929, .18637, .25721,
1576 + .41056, .22227, 2.52849, .22576, .11491,
1577 + .08147, .18693, .25707,
1578 + .41181, .22226, 2.49583, .22554, .11621,
1579 + .08337, .18729, .25675,
1580 + .41297, .22224, 2.46515, .22531, .11741,
1581 + .08515, .18762, .25643,
1582 + .41394, .22215, 2.43471, .22494, .11838,
1583 + .08664, .18777, .25598 /
1584 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
1585 + .41488, .22205, 2.40434, .22455, .11933,
1586 + .08811, .18789, .25550,
1587 + .41570, .22190, 2.37360, .22407, .12014,
1588 + .08943, .18791, .25492,
1589 + .41643, .22173, 2.34419, .22357, .12086,
1590 + .09061, .18788, .25432,
1591 + .41707, .22155, 2.31637, .22306, .12149,
1592 + .09169, .18781, .25372,
1593 + .41762, .22133, 2.28751, .22246, .12202,
1594 + .09265, .18763, .25300 /
1595 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
1596 + .38157, .23151, 1.58955, .13432, .00000,
1597 + .00000, .08023, .17174,
1598 + .38846, .23369, 1.69457, .13726, .00000,
1599 + .00000, .08449, .17489,
1600 + .39781, .23646, 1.82403, .14123, .00000,
1601 + .00000, .09031, .17913,
1602 + .40400, .23824, 1.89908, .14394, .00278,
1603 + .00000, .09429, .18194,
1604 + .40994, .23981, 1.95560, .14654, .00890,
1605 + .00000, .09816, .18461,
1606 + .41469, .24099, 1.99590, .14858, .01359,
1607 + .00000, .10125, .18668,
1608 + .41898, .24201, 2.02847, .15038, .01790,
1609 + .00000, .10404, .18849,
1610 + .42327, .24297, 2.05690, .15213, .02233,
1611 + .00000, .10681, .19023 /
1612 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
1613 + .42673, .24368, 2.07536, .15350, .02579,
1614 + .00000, .10902, .19156,
1615 + .42986, .24427, 2.08887, .15469, .02900,
1616 + .00000, .11102, .19270,
1617 + .43225, .24470, 2.09763, .15559, .03150,
1618 + .00000, .11253, .19354,
1619 + .43687, .24541, 2.10304, .15725, .03640,
1620 + .00072, .11547, .19505,
1621 + .44042, .24582, 2.09384, .15844, .04024,
1622 + .00593, .11770, .19609,
1623 + .44401, .24613, 2.07742, .15952, .04422,
1624 + .01174, .11991, .19697,
1625 + .44733, .24629, 2.05531, .16037, .04798,
1626 + .01663, .12187, .19757,
1627 + .45000, .24628, 2.03123, .16090, .05108,
1628 + .02072, .12340, .19786 /
1629 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
1630 + .45239, .24615, 2.00379, .16125, .05394,
1631 + .02453, .12471, .19795,
1632 + .45414, .24595, 1.97857, .16138, .05610,
1633 + .02739, .12560, .19786,
1634 + .45597, .24558, 1.94560, .16136, .05845,
1635 + .03057, .12649, .19753,
1636 + .45738, .24518, 1.91508, .16123, .06036,
1637 + .03321, .12712, .19710,
1638 + .45852, .24475, 1.88618, .16100, .06198,
1639 + .03547, .12757, .19662,
1640 + .45967, .24407, 1.84760, .16052, .06377,
1641 + .03802, .12796, .19581,
1642 + .46055, .24336, 1.81062, .15997, .06529,
1643 + .04024, .12818, .19491,
1644 + .46121, .24265, 1.77577, .15937, .06659,
1645 + .04219, .12828, .19400 /
1646 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
1647 + .46163, .24183, 1.73971, .15863, .06767,
1648 + .04388, .12822, .19291,
1649 + .46191, .24098, 1.70458, .15784, .06865,
1650 + .04544, .12807, .19180,
1651 + .46204, .24014, 1.67132, .15703, .06947,
1652 + .04680, .12786, .19068,
1653 + .46200, .23929, 1.63961, .15618, .07012,
1654 + .04793, .12756, .18953,
1655 + .46191, .23841, 1.60828, .15531, .07073,
1656 + .04903, .12723, .18835,
1657 + .46165, .23748, 1.57704, .15437, .07121,
1658 + .04996, .12680, .18710,
1659 + .46137, .23660, 1.54803, .15347, .07164,
1660 + .05082, .12639, .18591,
1661 + .46095, .23570, 1.52028, .15255, .07194,
1662 + .05151, .12590, .18471 /
1663 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
1664 + .46051, .23480, 1.49288, .15162, .07223,
1665 + .05218, .12541, .18349,
1666 + .45996, .23386, 1.46585, .15064, .07244,
1667 + .05277, .12486, .18224,
1668 + .45939, .23295, 1.44039, .14970, .07261,
1669 + .05328, .12431, .18103,
1670 + .45881, .23207, 1.41658, .14879, .07275,
1671 + .05374, .12377, .17986,
1672 + .45811, .23115, 1.39244, .14782, .07281,
1673 + .05412, .12318, .17863 /
1674 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
1675 + .45807, .26692, 1.50622, .11607, .00000,
1676 + .00000, .07224, .16116,
1677 + .46371, .26784, 1.56463, .11765, .00000,
1678 + .00000, .07507, .16251,
1679 + .47105, .26881, 1.63084, .11968, .00000,
1680 + .00000, .07885, .16412,
1681 + .47575, .26927, 1.66423, .12099, .00209,
1682 + .00000, .08135, .16508,
1683 + .48007, .26949, 1.68279, .12217, .00667,
1684 + .00000, .08371, .16589,
1685 + .48338, .26952, 1.69291, .12302, .01013,
1686 + .00000, .08554, .16639,
1687 + .48625, .26944, 1.69845, .12372, .01328,
1688 + .00000, .08714, .16673,
1689 + .48902, .26926, 1.70022, .12434, .01646,
1690 + .00000, .08868, .16697 /
1691 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
1692 + .49114, .26897, 1.69763, .12475, .01892,
1693 + .00000, .08987, .16703,
1694 + .49296, .26862, 1.69238, .12506, .02118,
1695 + .00000, .09090, .16699,
1696 + .49430, .26831, 1.68706, .12528, .02293,
1697 + .00000, .09167, .16690,
1698 + .49667, .26747, 1.66709, .12554, .02631,
1699 + .00054, .09308, .16657,
1700 + .49827, .26659, 1.64091, .12560, .02890,
1701 + .00418, .09407, .16610,
1702 + .49967, .26547, 1.60846, .12551, .03155,
1703 + .00822, .09496, .16538,
1704 + .50069, .26416, 1.57255, .12521, .03402,
1705 + .01158, .09565, .16443,
1706 + .50128, .26286, 1.53829, .12479, .03601,
1707 + .01435, .09609, .16343 /
1708 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
1709 + .50158, .26144, 1.50259, .12425, .03781,
1710 + .01689, .09637, .16229,
1711 + .50157, .26019, 1.47216, .12370, .03913,
1712 + .01878, .09649, .16121,
1713 + .50130, .25858, 1.43453, .12291, .04056,
1714 + .02085, .09648, .15981,
1715 + .50087, .25709, 1.40115, .12214, .04169,
1716 + .02254, .09638, .15851,
1717 + .50031, .25568, 1.37058, .12138, .04262,
1718 + .02399, .09621, .15726,
1719 + .49933, .25380, 1.33139, .12031, .04362,
1720 + .02558, .09586, .15555,
1721 + .49820, .25199, 1.29492, .11924, .04444,
1722 + .02695, .09544, .15390,
1723 + .49702, .25026, 1.26132, .11820, .04513,
1724 + .02813, .09499, .15231 /
1725 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
1726 + .49557, .24846, 1.22760, .11709, .04567,
1727 + .02914, .09444, .15063,
1728 + .49407, .24667, 1.19530, .11597, .04613,
1729 + .03005, .09385, .14897,
1730 + .49253, .24495, 1.16525, .11488, .04650,
1731 + .03083, .09326, .14738,
1732 + .49093, .24328, 1.13716, .11380, .04677,
1733 + .03147, .09263, .14584,
1734 + .48929, .24161, 1.10968, .11272, .04701,
1735 + .03208, .09199, .14429,
1736 + .48750, .23991, 1.08280, .11161, .04717,
1737 + .03258, .09130, .14272,
1738 + .48581, .23830, 1.05800, .11056, .04730,
1739 + .03303, .09065, .14124,
1740 + .48405, .23674, 1.03467, .10953, .04736,
1741 + .03339, .08999, .13980 /
1742 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
1743 + .48228, .23518, 1.01178, .10850, .04740,
1744 + .03373, .08931, .13836,
1745 + .48042, .23361, .98946, .10746, .04741,
1746 + .03401, .08862, .13692,
1747 + .47862, .23210, .96862, .10646, .04738,
1748 + .03424, .08794, .13555,
1749 + .47687, .23067, .94926, .10552, .04735,
1750 + .03445, .08729, .13425,
1751 + .47502, .22919, .92986, .10454, .04727,
1752 + .03461, .08661, .13292 /
1753 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
1754 + .52361, .29287, 1.38318, .09978, .00000,
1755 + .00000, .06452, .14904,
1756 + .52740, .29243, 1.41158, .10049, .00000,
1757 + .00000, .06635, .14904,
1758 + .53196, .29143, 1.43842, .10130, .00000,
1759 + .00000, .06869, .14878,
1760 + .53463, .29052, 1.44693, .10176, .00161,
1761 + .00000, .07018, .14844,
1762 + .53682, .28935, 1.44373, .10209, .00511,
1763 + .00000, .07155, .14795,
1764 + .53829, .28820, 1.43702, .10224, .00773,
1765 + .00000, .07255, .14741,
1766 + .53941, .28700, 1.42789, .10230, .01009,
1767 + .00000, .07340, .14679,
1768 + .54033, .28565, 1.41564, .10228, .01245,
1769 + .00000, .07417, .14604 /
1770 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
1771 + .54081, .28441, 1.40237, .10218, .01426,
1772 + .00000, .07473, .14530,
1773 + .54107, .28313, 1.38790, .10202, .01590,
1774 + .00000, .07518, .14453,
1775 + .54118, .28210, 1.37583, .10186, .01717,
1776 + .00000, .07549, .14389,
1777 + .54100, .27975, 1.34447, .10139, .01958,
1778 + .00041, .07600, .14242,
1779 + .54038, .27764, 1.31171, .10089, .02141,
1780 + .00305, .07627, .14107,
1781 + .53934, .27517, 1.27373, .10021, .02325,
1782 + .00598, .07643, .13944,
1783 + .53789, .27249, 1.23375, .09937, .02494,
1784 + .00837, .07643, .13764,
1785 + .53625, .26999, 1.19723, .09852, .02627,
1786 + .01033, .07629, .13592 /
1787 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
1788 + .53432, .26742, 1.16042, .09758, .02746,
1789 + .01211, .07603, .13413,
1790 + .53250, .26524, 1.12991, .09674, .02832,
1791 + .01341, .07574, .13258,
1792 + .53006, .26252, 1.09314, .09565, .02921,
1793 + .01482, .07530, .13066,
1794 + .52773, .26008, 1.06116, .09465, .02991,
1795 + .01597, .07484, .12893,
1796 + .52547, .25784, 1.03236, .09369, .03048,
1797 + .01693, .07437, .12733,
1798 + .52236, .25491, .99619, .09242, .03106,
1799 + .01798, .07370, .12525,
1800 + .51928, .25215, .96306, .09121, .03152,
1801 + .01887, .07302, .12326,
1802 + .51627, .24959, .93293, .09007, .03189,
1803 + .01963, .07234, .12140 /
1804 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
1805 + .51307, .24695, .90321, .08886, .03216,
1806 + .02026, .07160, .11952,
1807 + .50986, .24439, .87502, .08768, .03237,
1808 + .02083, .07085, .11769,
1809 + .50673, .24196, .84907, .08656, .03253,
1810 + .02130, .07012, .11595,
1811 + .50367, .23963, .82512, .08548, .03262,
1812 + .02168, .06941, .11429,
1813 + .50060, .23732, .80184, .08441, .03269,
1814 + .02204, .06869, .11264,
1815 + .49742, .23500, .77931, .08332, .03270,
1816 + .02232, .06794, .11101,
1817 + .49442, .23283, .75864, .08230, .03271,
1818 + .02257, .06724, .10949,
1819 + .49145, .23074, .73938, .08131, .03266,
1820 + .02276, .06654, .10804 /
1821 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
1822 + .48848, .22866, .72057, .08032, .03261,
1823 + .02293, .06585, .10660,
1824 + .48547, .22659, .70240, .07935, .03254,
1825 + .02307, .06515, .10516,
1826 + .48257, .22463, .68551, .07842, .03245,
1827 + .02318, .06447, .10380,
1828 + .47981, .22278, .66990, .07755, .03235,
1829 + .02327, .06384, .10253,
1830 + .47693, .22089, .65437, .07666, .03223,
1831 + .02333, .06317, .10123 /
1832 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
1833 + .59109, .31452, 1.21465, .08231, .00000,
1834 + .00000, .05541, .13233,
1835 + .59199, .31238, 1.22023, .08240, .00000,
1836 + .00000, .05637, .13117,
1837 + .59241, .30894, 1.21809, .08230, .00000,
1838 + .00000, .05752, .12936,
1839 + .59213, .30634, 1.20904, .08215, .00119,
1840 + .00000, .05820, .12797,
1841 + .59128, .30349, 1.19135, .08189, .00374,
1842 + .00000, .05876, .12647,
1843 + .59017, .30093, 1.17385, .08157, .00564,
1844 + .00000, .05912, .12512,
1845 + .58883, .29844, 1.15564, .08121, .00732,
1846 + .00000, .05938, .12376,
1847 + .58717, .29576, 1.13505, .08078, .00900,
1848 + .00000, .05958, .12229 /
1849 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
1850 + .58548, .29336, 1.11577, .08034, .01027,
1851 + .00000, .05965, .12098,
1852 + .58366, .29101, 1.09639, .07987, .01141,
1853 + .00000, .05967, .11969,
1854 + .58214, .28916, 1.08089, .07949, .01228,
1855 + .00000, .05966, .11866,
1856 + .57855, .28513, 1.04463, .07859, .01392,
1857 + .00030, .05952, .11646,
1858 + .57513, .28161, 1.01019, .07776, .01514,
1859 + .00213, .05930, .11452,
1860 + .57100, .27766, .97168, .07676, .01635,
1861 + .00415, .05896, .11233,
1862 + .56639, .27353, .93236, .07565, .01744,
1863 + .00578, .05851, .11002,
1864 + .56199, .26975, .89738, .07460, .01828,
1865 + .00709, .05801, .10791 /
1866 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
1867 + .55734, .26593, .86290, .07350, .01901,
1868 + .00827, .05744, .10577,
1869 + .55333, .26275, .83489, .07255, .01953,
1870 + .00913, .05692, .10400,
1871 + .54828, .25889, .80175, .07136, .02005,
1872 + .01004, .05624, .10183,
1873 + .54371, .25549, .77337, .07031, .02045,
1874 + .01078, .05560, .09994,
1875 + .53945, .25238, .74814, .06933, .02076,
1876 + .01139, .05498, .09822,
1877 + .53385, .24844, .71693, .06807, .02106,
1878 + .01204, .05417, .09601,
1879 + .52850, .24475, .68872, .06687, .02128,
1880 + .01258, .05338, .09397,
1881 + .52346, .24134, .66334, .06575, .02144,
1882 + .01303, .05263, .09208 /
1883 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
1884 + .51826, .23791, .63867, .06461, .02154,
1885 + .01340, .05185, .09019,
1886 + .51316, .23458, .61550, .06351, .02161,
1887 + .01373, .05108, .08837,
1888 + .50832, .23146, .59436, .06246, .02163,
1889 + .01399, .05034, .08669,
1890 + .50365, .22852, .57502, .06147, .02162,
1891 + .01420, .04963, .08510,
1892 + .49899, .22561, .55634, .06050, .02160,
1893 + .01438, .04893, .08353,
1894 + .49430, .22275, .53845, .05953, .02154,
1895 + .01452, .04821, .08199,
1896 + .48990, .22007, .52211, .05863, .02148,
1897 + .01465, .04754, .08056,
1898 + .48566, .21751, .50704, .05776, .02140,
1899 + .01473, .04690, .07922 /
1900 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
1901 + .48144, .21497, .49239, .05689, .02131,
1902 + .01480, .04626, .07789,
1903 + .47721, .21247, .47832, .05604, .02121,
1904 + .01485, .04563, .07659,
1905 + .47318, .21010, .46533, .05525, .02109,
1906 + .01489, .04503, .07537,
1907 + .46936, .20788, .45337, .05450, .02098,
1908 + .01491, .04446, .07422,
1909 + .46544, .20564, .44155, .05375, .02085,
1910 + .01492, .04388, .07305 /
1911 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
1912 + .64335, .32638, 1.05341, .06794, .00000,
1913 + .00000, .04704, .11484,
1914 + .64113, .32258, 1.04597, .06763, .00000,
1915 + .00000, .04745, .11303,
1916 + .63701, .31689, 1.02799, .06704, .00000,
1917 + .00000, .04784, .11032,
1918 + .63354, .31274, 1.00990, .06658, .00089,
1919 + .00000, .04804, .10834,
1920 + .62952, .30834, .98542, .06600, .00279,
1921 + .00000, .04811, .10632,
1922 + .62572, .30450, .96315, .06545, .00419,
1923 + .00000, .04810, .10455,
1924 + .62188, .30084, .94122, .06488, .00542,
1925 + .00000, .04802, .10284,
1926 + .61761, .29697, .91750, .06425, .00663,
1927 + .00000, .04788, .10104 /
1928 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
1929 + .61372, .29358, .89625, .06367, .00754,
1930 + .00000, .04771, .09947,
1931 + .60982, .29031, .87554, .06307, .00835,
1932 + .00000, .04750, .09796,
1933 + .60669, .28775, .85925, .06259, .00896,
1934 + .00000, .04732, .09678,
1935 + .59977, .28227, .82284, .06153, .01010,
1936 + .00023, .04685, .09426,
1937 + .59359, .27764, .78981, .06060, .01094,
1938 + .00152, .04640, .09212,
1939 + .58651, .27245, .75364, .05951, .01176,
1940 + .00295, .04583, .08977,
1941 + .57894, .26711, .71738, .05835, .01248,
1942 + .00409, .04517, .08733,
1943 + .57194, .26232, .68566, .05728, .01302,
1944 + .00500, .04453, .08515 /
1945 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
1946 + .56481, .25752, .65485, .05616, .01348,
1947 + .00580, .04384, .08299,
1948 + .55878, .25359, .63013, .05523, .01380,
1949 + .00638, .04324, .08121,
1950 + .55137, .24885, .60123, .05410, .01411,
1951 + .00699, .04250, .07907,
1952 + .54480, .24472, .57676, .05310, .01433,
1953 + .00747, .04183, .07722,
1954 + .53876, .24099, .55521, .05218, .01450,
1955 + .00787, .04120, .07555,
1956 + .53100, .23626, .52885, .05101, .01465,
1957 + .00828, .04038, .07346,
1958 + .52372, .23189, .50526, .04991, .01475,
1959 + .00862, .03961, .07155,
1960 + .51694, .22787, .48422, .04890, .01481,
1961 + .00891, .03888, .06980 /
1962 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
1963 + .51007, .22387, .46395, .04787, .01482,
1964 + .00913, .03814, .06808,
1965 + .50338, .22003, .44504, .04689, .01482,
1966 + .00932, .03742, .06643,
1967 + .49707, .21644, .42790, .04598, .01479,
1968 + .00947, .03674, .06490,
1969 + .49109, .21309, .41236, .04512, .01474,
1970 + .00958, .03610, .06347,
1971 + .48516, .20979, .39744, .04428, .01468,
1972 + .00968, .03547, .06207,
1973 + .47928, .20655, .38327, .04344, .01460,
1974 + .00974, .03484, .06072,
1975 + .47379, .20353, .37038, .04265, .01452,
1976 + .00980, .03426, .05947,
1977 + .46853, .20068, .35854, .04192, .01443,
1978 + .00983, .03370, .05829 /
1979 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
1980 + .46331, .19785, .34707, .04120, .01433,
1981 + .00986, .03314, .05713,
1982 + .45813, .19509, .33613, .04050, .01423,
1983 + .00987, .03260, .05600,
1984 + .45323, .19250, .32606, .03983, .01412,
1985 + .00987, .03208, .05495,
1986 + .44861, .19007, .31684, .03921, .01402,
1987 + .00986, .03159, .05396,
1988 + .44390, .18762, .30779, .03858, .01391,
1989 + .00985, .03110, .05298 /
1990 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
1991 + .68137, .33026, .90960, .05625, .00000,
1992 + .00000, .03949, .09750,
1993 + .67585, .32503, .89479, .05577, .00000,
1994 + .00000, .03952, .09535,
1995 + .66713, .31733, .86826, .05493, .00000,
1996 + .00000, .03945, .09222,
1997 + .66049, .31184, .84572, .05428, .00067,
1998 + .00000, .03933, .09002,
1999 + .65327, .30614, .81844, .05359, .00211,
2000 + .00000, .03915, .08776,
2001 + .64683, .30123, .79446, .05292, .00315,
2002 + .00000, .03891, .08585,
2003 + .64054, .29658, .77146, .05228, .00406,
2004 + .00000, .03865, .08403,
2005 + .63377, .29173, .74714, .05159, .00495,
2006 + .00000, .03834, .08211 /
2007 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
2008 + .62775, .28754, .72584, .05096, .00561,
2009 + .00000, .03802, .08048,
2010 + .62189, .28352, .70542, .05032, .00620,
2011 + .00000, .03770, .07894,
2012 + .61727, .28036, .68954, .04980, .00664,
2013 + .00000, .03743, .07774,
2014 + .60724, .27376, .65498, .04872, .00745,
2015 + .00017, .03682, .07522,
2016 + .59854, .26820, .62456, .04777, .00803,
2017 + .00110, .03626, .07312,
2018 + .58876, .26208, .59171, .04671, .00859,
2019 + .00213, .03560, .07082,
2020 + .57855, .25583, .55920, .04558, .00907,
2021 + .00294, .03487, .06849,
2022 + .56928, .25026, .53112, .04455, .00943,
2023 + .00358, .03420, .06642 /
2024 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
2025 + .55994, .24476, .50415, .04350, .00972,
2026 + .00414, .03351, .06439,
2027 + .55216, .24027, .48273, .04264, .00992,
2028 + .00454, .03292, .06275,
2029 + .54276, .23490, .45791, .04161, .01010,
2030 + .00495, .03219, .06079,
2031 + .53451, .23024, .43707, .04070, .01022,
2032 + .00528, .03154, .05912,
2033 + .52700, .22605, .41884, .03986, .01031,
2034 + .00554, .03095, .05762,
2035 + .51745, .22082, .39680, .03882, .01037,
2036 + .00581, .03020, .05575,
2037 + .50856, .21601, .37722, .03786, .01041,
2038 + .00603, .02949, .05405,
2039 + .50036, .21161, .35986, .03696, .01042,
2040 + .00621, .02884, .05252 /
2041 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
2042 + .49213, .20725, .34328, .03608, .01039,
2043 + .00634, .02819, .05100,
2044 + .48418, .20308, .32791, .03524, .01036,
2045 + .00645, .02756, .04957,
2046 + .47674, .19921, .31406, .03446, .01031,
2047 + .00654, .02696, .04825,
2048 + .46976, .19561, .30158, .03372, .01025,
2049 + .00660, .02641, .04704,
2050 + .46288, .19208, .28965, .03299, .01018,
2051 + .00665, .02586, .04586,
2052 + .45609, .18864, .27839, .03228, .01010,
2053 + .00668, .02533, .04471,
2054 + .44976, .18546, .26820, .03163, .01002,
2055 + .00670, .02483, .04365,
2056 + .44376, .18245, .25890, .03101, .00993,
2057 + .00670, .02436, .04267 /
2058 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
2059 + .43783, .17948, .24991, .03040, .00984,
2060 + .00671, .02389, .04171,
2061 + .43197, .17658, .24138, .02981, .00975,
2062 + .00670, .02344, .04078,
2063 + .42644, .17387, .23354, .02926, .00966,
2064 + .00669, .02302, .03991,
2065 + .42126, .17133, .22639, .02874, .00957,
2066 + .00667, .02263, .03910,
2067 + .41603, .16878, .21941, .02822, .00947,
2068 + .00665, .02222, .03830 /
2069 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
2070 + .70616, .32769, .78534, .04682, .00000,
2071 + .00000, .03277, .08101,
2072 + .69744, .32122, .76632, .04619, .00000,
2073 + .00000, .03261, .07878,
2074 + .68428, .31179, .73526, .04523, .00000,
2075 + .00000, .03226, .07560,
2076 + .67462, .30515, .71072, .04449, .00052,
2077 + .00000, .03197, .07340,
2078 + .66440, .29836, .68266, .04372, .00160,
2079 + .00000, .03162, .07118,
2080 + .65547, .29259, .65853, .04304, .00239,
2081 + .00000, .03129, .06927,
2082 + .64691, .28716, .63574, .04237, .00307,
2083 + .00000, .03094, .06751,
2084 + .63785, .28151, .61200, .04163, .00373,
2085 + .00000, .03054, .06569 /
2086 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
2087 + .62994, .27666, .59154, .04098, .00421,
2088 + .00000, .03018, .06415,
2089 + .62229, .27206, .57215, .04036, .00464,
2090 + .00000, .02981, .06269,
2091 + .61627, .26848, .55717, .03987, .00495,
2092 + .00000, .02951, .06155,
2093 + .60351, .26100, .52521, .03880, .00553,
2094 + .00013, .02887, .05921,
2095 + .59258, .25477, .49770, .03789, .00594,
2096 + .00081, .02829, .05727,
2097 + .58047, .24796, .46834, .03689, .00633,
2098 + .00156, .02763, .05516,
2099 + .56798, .24106, .43961, .03583, .00665,
2100 + .00214, .02693, .05305,
2101 + .55677, .23495, .41506, .03488, .00688,
2102 + .00259, .02629, .05121 /
2103 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
2104 + .54559, .22895, .39168, .03393, .00707,
2105 + .00299, .02563, .04942,
2106 + .53639, .22408, .37330, .03316, .00719,
2107 + .00326, .02508, .04797,
2108 + .52535, .21831, .35215, .03223, .00729,
2109 + .00355, .02442, .04626,
2110 + .51573, .21333, .33454, .03141, .00736,
2111 + .00377, .02384, .04480,
2112 + .50703, .20888, .31926, .03068, .00740,
2113 + .00394, .02332, .04351,
2114 + .49607, .20334, .30085, .02977, .00742,
2115 + .00412, .02265, .04192,
2116 + .48596, .19826, .28464, .02893, .00741,
2117 + .00426, .02204, .04048,
2118 + .47669, .19363, .27038, .02816, .00740,
2119 + .00437, .02147, .03917 /
2120 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
2121 + .46745, .18911, .25685, .02739, .00736,
2122 + .00445, .02091, .03792,
2123 + .45858, .18479, .24438, .02666, .00731,
2124 + .00452, .02037, .03672,
2125 + .45032, .18079, .23321, .02600, .00726,
2126 + .00457, .01987, .03563,
2127 + .44260, .17708, .22320, .02538, .00719,
2128 + .00459, .01941, .03462,
2129 + .43502, .17346, .21366, .02477, .00713,
2130 + .00462, .01896, .03364,
2131 + .42759, .16995, .20472, .02418, .00706,
2132 + .00463, .01851, .03271,
2133 + .42069, .16670, .19665, .02364, .00698,
2134 + .00463, .01810, .03185,
2135 + .41419, .16366, .18933, .02312, .00691,
2136 + .00463, .01771, .03105 /
2137 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
2138 + .40776, .16067, .18228, .02261, .00683,
2139 + .00462, .01733, .03027,
2140 + .40146, .15775, .17560, .02212, .00675,
2141 + .00460, .01696, .02952,
2142 + .39553, .15502, .16950, .02167, .00668,
2143 + .00459, .01661, .02883,
2144 + .38999, .15249, .16395, .02125, .00660,
2145 + .00457, .01629, .02818,
2146 + .38440, .14995, .15854, .02083, .00652,
2147 + .00454, .01597, .02753 /
2148 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
2149 + .71889, .31987, .67927, .03909, .00000,
2150 + .00000, .02690, .06596,
2151 + .70715, .31236, .65778, .03842, .00000,
2152 + .00000, .02665, .06380,
2153 + .68983, .30157, .62447, .03737, .00000,
2154 + .00000, .02617, .06082,
2155 + .67737, .29403, .59923, .03662, .00039,
2156 + .00000, .02581, .05874,
2157 + .66445, .28637, .57146, .03582, .00123,
2158 + .00000, .02539, .05668,
2159 + .65330, .27993, .54795, .03512, .00182,
2160 + .00000, .02501, .05494,
2161 + .64270, .27391, .52601, .03445, .00233,
2162 + .00000, .02464, .05332,
2163 + .63158, .26769, .50341, .03374, .00282,
2164 + .00000, .02422, .05166 /
2165 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
2166 + .62199, .26237, .48418, .03310, .00317,
2167 + .00000, .02384, .05028,
2168 + .61280, .25734, .46615, .03249, .00348,
2169 + .00000, .02347, .04898,
2170 + .60561, .25344, .45233, .03202, .00371,
2171 + .00000, .02317, .04797,
2172 + .59048, .24536, .42321, .03102, .00412,
2173 + .00010, .02254, .04590,
2174 + .57773, .23864, .39862, .03016, .00441,
2175 + .00060, .02199, .04421,
2176 + .56367, .23137, .37266, .02924, .00468,
2177 + .00114, .02137, .04237,
2178 + .54933, .22405, .34749, .02828, .00489,
2179 + .00156, .02073, .04055,
2180 + .53656, .21763, .32618, .02742, .00505,
2181 + .00188, .02014, .03896 /
2182 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
2183 + .52392, .21136, .30608, .02657, .00516,
2184 + .00216, .01956, .03743,
2185 + .51360, .20628, .29038, .02588, .00523,
2186 + .00236, .01907, .03621,
2187 + .50129, .20028, .27247, .02506, .00529,
2188 + .00255, .01849, .03478,
2189 + .49064, .19515, .25764, .02434, .00532,
2190 + .00270, .01799, .03356,
2191 + .48107, .19058, .24484, .02370, .00534,
2192 + .00282, .01754, .03248,
2193 + .46908, .18492, .22961, .02291, .00533,
2194 + .00294, .01697, .03117,
2195 + .45808, .17977, .21627, .02218, .00531,
2196 + .00303, .01645, .02998,
2197 + .44803, .17508, .20458, .02152, .00528,
2198 + .00310, .01598, .02891 /
2199 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
2200 + .43809, .17050, .19357, .02087, .00524,
2201 + .00315, .01550, .02789,
2202 + .42859, .16616, .18347, .02026, .00519,
2203 + .00318, .01505, .02692,
2204 + .41978, .16216, .17447, .01971, .00514,
2205 + .00321, .01464, .02604,
2206 + .41159, .15848, .16645, .01919, .00508,
2207 + .00322, .01426, .02523,
2208 + .40356, .15490, .15884, .01869, .00502,
2209 + .00323, .01388, .02445,
2210 + .39577, .15140, .15175, .01819, .00496,
2211 + .00323, .01352, .02371,
2212 + .38855, .14817, .14537, .01773, .00490,
2213 + .00323, .01320, .02303,
2214 + .38175, .14518, .13960, .01731, .00483,
2215 + .00321, .01288, .02240 /
2216 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
2217 + .37505, .14225, .13406, .01690, .00477,
2218 + .00320, .01257, .02178,
2219 + .36851, .13940, .12884, .01650, .00470,
2220 + .00319, .01228, .02119,
2221 + .36238, .13674, .12409, .01613, .00464,
2222 + .00317, .01201, .02063,
2223 + .35667, .13426, .11977, .01579, .00458,
2224 + .00315, .01175, .02013,
2225 + .35094, .13179, .11559, .01544, .00452,
2226 + .00313, .01149, .01964 /
2227 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
2228 + .72072, .30786, .58871, .03267, .00000,
2229 + .00000, .02187, .05266,
2230 + .70619, .29959, .56586, .03200, .00000,
2231 + .00000, .02156, .05067,
2232 + .68512, .28777, .53161, .03095, .00000,
2233 + .00000, .02101, .04799,
2234 + .67017, .27957, .50646, .03021, .00030,
2235 + .00000, .02061, .04613,
2236 + .65484, .27133, .47958, .02944, .00093,
2237 + .00000, .02018, .04430,
2238 + .64176, .26441, .45707, .02874, .00138,
2239 + .00000, .01980, .04278,
2240 + .62943, .25798, .43632, .02809, .00177,
2241 + .00000, .01942, .04138,
2242 + .61658, .25137, .41518, .02742, .00213,
2243 + .00000, .01900, .03994 /
2244 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
2245 + .60557, .24574, .39737, .02684, .00239,
2246 + .00000, .01864, .03873,
2247 + .59510, .24044, .38080, .02627, .00261,
2248 + .00000, .01829, .03761,
2249 + .58696, .23635, .36816, .02583, .00278,
2250 + .00000, .01802, .03674,
2251 + .56989, .22793, .34195, .02491, .00308,
2252 + .00008, .01744, .03496,
2253 + .55564, .22097, .32016, .02414, .00328,
2254 + .00044, .01693, .03354,
2255 + .54010, .21345, .29738, .02328, .00346,
2256 + .00084, .01638, .03201,
2257 + .52432, .20592, .27550, .02241, .00361,
2258 + .00114, .01582, .03050,
2259 + .51037, .19935, .25712, .02164, .00371,
2260 + .00137, .01531, .02920 /
2261 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
2262 + .49666, .19297, .23992, .02089, .00378,
2263 + .00157, .01480, .02793,
2264 + .48552, .18786, .22663, .02030, .00382,
2265 + .00170, .01439, .02691,
2266 + .47233, .18182, .21154, .01956, .00384,
2267 + .00184, .01390, .02576,
2268 + .46097, .17666, .19914, .01894, .00385,
2269 + .00194, .01347, .02478,
2270 + .45079, .17208, .18852, .01841, .00385,
2271 + .00202, .01308, .02391,
2272 + .43813, .16645, .17593, .01772, .00384,
2273 + .00210, .01261, .02284,
2274 + .42656, .16135, .16498, .01711, .00381,
2275 + .00216, .01218, .02189,
2276 + .41603, .15674, .15544, .01657, .00378,
2277 + .00220, .01179, .02103 /
2278 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
2279 + .40570, .15222, .14652, .01602, .00374,
2280 + .00223, .01141, .02023,
2281 + .39587, .14796, .13838, .01549, .00369,
2282 + .00225, .01105, .01947,
2283 + .38679, .14404, .13115, .01501, .00365,
2284 + .00226, .01072, .01879,
2285 + .37837, .14046, .12475, .01458, .00360,
2286 + .00227, .01042, .01815,
2287 + .37015, .13697, .11869, .01417, .00355,
2288 + .00227, .01012, .01753,
2289 + .36218, .13360, .11307, .01376, .00349,
2290 + .00226, .00983, .01696,
2291 + .35482, .13049, .10803, .01338, .00344,
2292 + .00226, .00957, .01643,
2293 + .34792, .12761, .10349, .01303, .00339,
2294 + .00224, .00932, .01595 /
2295 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
2296 + .34114, .12479, .09915, .01269, .00334,
2297 + .00223, .00907, .01547,
2298 + .33455, .12206, .09508, .01237, .00329,
2299 + .00222, .00884, .01502,
2300 + .32839, .11951, .09139, .01207, .00324,
2301 + .00220, .00863, .01460,
2302 + .32266, .11715, .08805, .01179, .00319,
2303 + .00218, .00844, .01421,
2304 + .31692, .11480, .08481, .01152, .00314,
2305 + .00216, .00824, .01383 /
2306 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
2307 + .71240, .29302, .51085, .02760, .00000,
2308 + .00000, .01739, .04101,
2309 + .69555, .28412, .48731, .02689, .00000,
2310 + .00000, .01704, .03935,
2311 + .67130, .27155, .45294, .02583, .00000,
2312 + .00000, .01656, .03702,
2313 + .65427, .26290, .42833, .02507, .00023,
2314 + .00000, .01618, .03546,
2315 + .63702, .25421, .40264, .02428, .00071,
2316 + .00000, .01577, .03394,
2317 + .62235, .24700, .38144, .02364, .00105,
2318 + .00000, .01542, .03264,
2319 + .60863, .24031, .36205, .02302, .00134,
2320 + .00000, .01507, .03147,
2321 + .59442, .23345, .34248, .02236, .00161,
2322 + .00000, .01471, .03029 /
2323 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
2324 + .58226, .22770, .32619, .02183, .00180,
2325 + .00000, .01439, .02926,
2326 + .57079, .22227, .31115, .02130, .00196,
2327 + .00000, .01408, .02834,
2328 + .56191, .21806, .29975, .02087, .00209,
2329 + .00000, .01384, .02764,
2330 + .54341, .20949, .27639, .02004, .00230,
2331 + .00006, .01334, .02616,
2332 + .52806, .20243, .25721, .01933, .00244,
2333 + .00032, .01290, .02501,
2334 + .51141, .19487, .23735, .01857, .00256,
2335 + .00062, .01243, .02376,
2336 + .49459, .18734, .21846, .01781, .00266,
2337 + .00084, .01194, .02255,
2338 + .47983, .18079, .20277, .01713, .00272,
2339 + .00100, .01151, .02150 /
2340 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
2341 + .46544, .17444, .18819, .01647, .00276,
2342 + .00114, .01110, .02048,
2343 + .45380, .16937, .17697, .01593, .00278,
2344 + .00124, .01077, .01967,
2345 + .44006, .16341, .16435, .01530, .00279,
2346 + .00133, .01036, .01876,
2347 + .42828, .15836, .15405, .01478, .00279,
2348 + .00140, .01000, .01800,
2349 + .41776, .15389, .14525, .01431, .00278,
2350 + .00145, .00968, .01733,
2351 + .40479, .14838, .13493, .01372, .00276,
2352 + .00150, .00930, .01650,
2353 + .39297, .14341, .12599, .01319, .00273,
2354 + .00154, .00896, .01576,
2355 + .38224, .13894, .11825, .01273, .00270,
2356 + .00157, .00866, .01509 /
2357 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
2358 + .37174, .13462, .11106, .01228, .00267,
2359 + .00158, .00836, .01445,
2360 + .36181, .13053, .10453, .01185, .00263,
2361 + .00159, .00806, .01386,
2362 + .35268, .12679, .09877, .01145, .00259,
2363 + .00160, .00778, .01335,
2364 + .34425, .12336, .09367, .01109, .00255,
2365 + .00160, .00754, .01287,
2366 + .33603, .12003, .08886, .01073, .00251,
2367 + .00160, .00730, .01241,
2368 + .32808, .11684, .08443, .01040, .00246,
2369 + .00159, .00708, .01198,
2370 + .32075, .11390, .08047, .01010, .00242,
2371 + .00158, .00687, .01160,
2372 + .31391, .11118, .07693, .00982, .00238,
2373 + .00157, .00669, .01121 /
2374 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
2375 + .30721, .10852, .07354, .00956, .00234,
2376 + .00156, .00651, .01084,
2377 + .30070, .10595, .07037, .00930, .00230,
2378 + .00154, .00634, .01050,
2379 + .29464, .10357, .06751, .00905, .00226,
2380 + .00153, .00617, .01019,
2381 + .28901, .10136, .06492, .00882, .00222,
2382 + .00152, .00602, .00990,
2383 + .28342, .09916, .06242, .00860, .00219,
2384 + .00150, .00586, .00962 /
2385 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
2386 + .69603, .27528, .44253, .02291, .00000,
2387 + .00000, .01388, .03149,
2388 + .67713, .26603, .41884, .02220, .00000,
2389 + .00000, .01355, .03011,
2390 + .65016, .25309, .38508, .02121, .00000,
2391 + .00000, .01305, .02817,
2392 + .63145, .24418, .36145, .02048, .00018,
2393 + .00000, .01268, .02689,
2394 + .61250, .23539, .33727, .01978, .00054,
2395 + .00000, .01231, .02560,
2396 + .59661, .22804, .31754, .01918, .00079,
2397 + .00000, .01199, .02454,
2398 + .58178, .22128, .29967, .01863, .00100,
2399 + .00000, .01169, .02357,
2400 + .56649, .21438, .28179, .01805, .00120,
2401 + .00000, .01136, .02258 /
2402 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
2403 + .55357, .20853, .26703, .01753, .00134,
2404 + .00000, .01107, .02181,
2405 + .54136, .20308, .25353, .01704, .00146,
2406 + .00000, .01080, .02106,
2407 + .53192, .19891, .24338, .01668, .00154,
2408 + .00000, .01060, .02048,
2409 + .51242, .19036, .22271, .01592, .00169,
2410 + .00005, .01015, .01933,
2411 + .49628, .18342, .20605, .01532, .00179,
2412 + .00024, .00979, .01839,
2413 + .47888, .17596, .18894, .01465, .00188,
2414 + .00045, .00939, .01740,
2415 + .46148, .16856, .17279, .01398, .00194,
2416 + .00061, .00898, .01645,
2417 + .44628, .16216, .15948, .01340, .00198,
2418 + .00073, .00861, .01562 /
2419 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
2420 + .43149, .15600, .14721, .01284, .00200,
2421 + .00082, .00827, .01483,
2422 + .41960, .15106, .13784, .01238, .00201,
2423 + .00089, .00798, .01422,
2424 + .40563, .14533, .12737, .01185, .00201,
2425 + .00095, .00765, .01351,
2426 + .39369, .14046, .11889, .01140, .00201,
2427 + .00100, .00738, .01290,
2428 + .38308, .13617, .11169, .01102, .00199,
2429 + .00104, .00714, .01237,
2430 + .37001, .13092, .10326, .01053, .00197,
2431 + .00107, .00683, .01174,
2432 + .35818, .12619, .09602, .01009, .00195,
2433 + .00109, .00655, .01120,
2434 + .34750, .12194, .08979, .00970, .00192,
2435 + .00111, .00630, .01072 /
2436 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
2437 + .33711, .11784, .08403, .00932, .00189,
2438 + .00112, .00606, .01023,
2439 + .32728, .11399, .07883, .00898, .00186,
2440 + .00112, .00584, .00978,
2441 + .31826, .11049, .07426, .00867, .00182,
2442 + .00112, .00564, .00937,
2443 + .30997, .10728, .07024, .00837, .00179,
2444 + .00112, .00545, .00901,
2445 + .30192, .10416, .06646, .00808, .00176,
2446 + .00112, .00526, .00867,
2447 + .29415, .10118, .06299, .00782, .00172,
2448 + .00111, .00509, .00835,
2449 + .28701, .09844, .05990, .00758, .00169,
2450 + .00110, .00493, .00805,
2451 + .28037, .09591, .05714, .00735, .00166,
2452 + .00109, .00478, .00778 /
2453 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
2454 + .27388, .09344, .05451, .00712, .00163,
2455 + .00108, .00463, .00752,
2456 + .26760, .09107, .05206, .00691, .00160,
2457 + .00107, .00449, .00727,
2458 + .26176, .08887, .04985, .00671, .00157,
2459 + .00106, .00437, .00704,
2460 + .25635, .08683, .04785, .00653, .00154,
2461 + .00105, .00426, .00683,
2462 + .25096, .08482, .04593, .00636, .00151,
2463 + .00103, .00414, .00661 /
2464 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
2465 + .67211, .25605, .38221, .01899, .00000,
2466 + .00000, .01085, .02368,
2467 + .65162, .24663, .35886, .01831, .00000,
2468 + .00000, .01057, .02254,
2469 + .62258, .23354, .32622, .01738, .00000,
2470 + .00000, .01012, .02099,
2471 + .60254, .22461, .30386, .01673, .00013,
2472 + .00000, .00979, .01995,
2473 + .58243, .21580, .28141, .01608, .00040,
2474 + .00000, .00947, .01891,
2475 + .56567, .20846, .26328, .01551, .00059,
2476 + .00000, .00919, .01810,
2477 + .55009, .20173, .24702, .01500, .00075,
2478 + .00000, .00892, .01734,
2479 + .53407, .19491, .23091, .01448, .00089,
2480 + .00000, .00865, .01657 /
2481 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
2482 + .52056, .18918, .21775, .01403, .00099,
2483 + .00000, .00841, .01593,
2484 + .50789, .18384, .20576, .01361, .00108,
2485 + .00000, .00819, .01534,
2486 + .49813, .17975, .19677, .01328, .00114,
2487 + .00000, .00801, .01490,
2488 + .47802, .17140, .17877, .01264, .00124,
2489 + .00004, .00763, .01400,
2490 + .46153, .16461, .16439, .01209, .00131,
2491 + .00017, .00733, .01327,
2492 + .44382, .15740, .14977, .01151, .00137,
2493 + .00033, .00700, .01250,
2494 + .42617, .15027, .13610, .01093, .00141,
2495 + .00044, .00667, .01177,
2496 + .41086, .14411, .12493, .01041, .00143,
2497 + .00052, .00638, .01116 /
2498 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
2499 + .39603, .13819, .11471, .00992, .00144,
2500 + .00059, .00609, .01058,
2501 + .38410, .13352, .10695, .00955, .00144,
2502 + .00064, .00587, .01010,
2503 + .37016, .12806, .09835, .00913, .00144,
2504 + .00068, .00562, .00955,
2505 + .35831, .12345, .09142, .00876, .00143,
2506 + .00071, .00540, .00909,
2507 + .34783, .11941, .08557, .00842, .00142,
2508 + .00074, .00519, .00872,
2509 + .33498, .11447, .07877, .00801, .00140,
2510 + .00076, .00495, .00824,
2511 + .32337, .11005, .07297, .00767, .00138,
2512 + .00077, .00473, .00781,
2513 + .31291, .10610, .06800, .00737, .00136,
2514 + .00078, .00455, .00742 /
2515 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
2516 + .30280, .10226, .06342, .00704, .00133,
2517 + .00078, .00436, .00711,
2518 + .29325, .09868, .05930, .00675, .00130,
2519 + .00079, .00419, .00679,
2520 + .28449, .09544, .05571, .00651, .00128,
2521 + .00078, .00403, .00647,
2522 + .27649, .09247, .05256, .00627, .00125,
2523 + .00078, .00388, .00621,
2524 + .26874, .08960, .04962, .00604, .00123,
2525 + .00078, .00374, .00597,
2526 + .26127, .08686, .04691, .00584, .00120,
2527 + .00077, .00361, .00574,
2528 + .25442, .08436, .04450, .00566, .00118,
2529 + .00076, .00349, .00552,
2530 + .24809, .08205, .04236, .00547, .00115,
2531 + .00076, .00338, .00532 /
2532 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
2533 + .24192, .07980, .04033, .00529, .00113,
2534 + .00075, .00328, .00513,
2535 + .23595, .07763, .03844, .00512, .00111,
2536 + .00074, .00318, .00495,
2537 + .23041, .07563, .03674, .00497, .00108,
2538 + .00073, .00308, .00478,
2539 + .22528, .07378, .03521, .00484, .00106,
2540 + .00072, .00299, .00463,
2541 + .22019, .07196, .03375, .00470, .00104,
2542 + .00071, .00290, .00448 /
2543 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
2544 + .64209, .23567, .32818, .01551, .00000,
2545 + .00000, .00842, .01749,
2546 + .62041, .22626, .30563, .01490, .00000,
2547 + .00000, .00818, .01658,
2548 + .58985, .21330, .27467, .01406, .00000,
2549 + .00000, .00777, .01536,
2550 + .56898, .20446, .25384, .01344, .00010,
2551 + .00000, .00751, .01455,
2552 + .54812, .19579, .23329, .01286, .00030,
2553 + .00000, .00723, .01374,
2554 + .53075, .18865, .21688, .01239, .00044,
2555 + .00000, .00699, .01308,
2556 + .51472, .18209, .20229, .01194, .00055,
2557 + .00000, .00675, .01251,
2558 + .49835, .17543, .18796, .01146, .00065,
2559 + .00000, .00652, .01195 /
2560 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
2561 + .48457, .16989, .17635, .01107, .00073,
2562 + .00000, .00633, .01145,
2563 + .47168, .16473, .16587, .01071, .00079,
2564 + .00000, .00613, .01100,
2565 + .46178, .16079, .15806, .01043, .00083,
2566 + .00000, .00598, .01066,
2567 + .44152, .15274, .14253, .00985, .00090,
2568 + .00003, .00569, .00998,
2569 + .42495, .14626, .13029, .00938, .00095,
2570 + .00012, .00544, .00944,
2571 + .40720, .13940, .11796, .00891, .00098,
2572 + .00023, .00517, .00886,
2573 + .38965, .13263, .10653, .00844, .00101,
2574 + .00031, .00490, .00831,
2575 + .37448, .12683, .09726, .00802, .00102,
2576 + .00037, .00466, .00785 /
2577 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
2578 + .35982, .12129, .08884, .00762, .00103,
2579 + .00042, .00444, .00741,
2580 + .34810, .11689, .08250, .00731, .00103,
2581 + .00045, .00429, .00705,
2582 + .33444, .11180, .07550, .00695, .00102,
2583 + .00048, .00407, .00665,
2584 + .32292, .10751, .06990, .00664, .00101,
2585 + .00050, .00390, .00633,
2586 + .31280, .10372, .06521, .00635, .00100,
2587 + .00052, .00376, .00603,
2588 + .30029, .09916, .05978, .00605, .00098,
2589 + .00053, .00357, .00568,
2590 + .28907, .09507, .05516, .00577, .00097,
2591 + .00054, .00339, .00539,
2592 + .27903, .09142, .05122, .00551, .00095,
2593 + .00055, .00324, .00513 /
2594 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
2595 + .26931, .08792, .04762, .00527, .00093,
2596 + .00055, .00310, .00488,
2597 + .26019, .08464, .04439, .00504, .00091,
2598 + .00055, .00297, .00464,
2599 + .25187, .08166, .04159, .00485, .00089,
2600 + .00054, .00285, .00441,
2601 + .24428, .07896, .03914, .00466, .00087,
2602 + .00054, .00274, .00422,
2603 + .23693, .07637, .03686, .00447, .00085,
2604 + .00054, .00263, .00404,
2605 + .22988, .07389, .03477, .00431, .00083,
2606 + .00053, .00254, .00388,
2607 + .22341, .07163, .03292, .00417, .00081,
2608 + .00053, .00246, .00374,
2609 + .21746, .06954, .03129, .00402, .00079,
2610 + .00052, .00237, .00359 /
2611 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
2612 + .21167, .06751, .02975, .00388, .00078,
2613 + .00051, .00229, .00345,
2614 + .20609, .06557, .02830, .00375, .00076,
2615 + .00051, .00221, .00332,
2616 + .20092, .06377, .02701, .00363, .00074,
2617 + .00050, .00214, .00321,
2618 + .19615, .06212, .02584, .00351, .00073,
2619 + .00049, .00207, .00311,
2620 + .19141, .06050, .02473, .00340, .00071,
2621 + .00049, .00201, .00300 /
2622 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
2623 + .60700, .21473, .27948, .01249, .00000,
2624 + .00000, .00648, .01267,
2625 + .58458, .20549, .25811, .01192, .00000,
2626 + .00000, .00625, .01201,
2627 + .55319, .19281, .22928, .01116, .00000,
2628 + .00000, .00593, .01104,
2629 + .53175, .18428, .21029, .01066, .00007,
2630 + .00000, .00569, .01043,
2631 + .51055, .17589, .19177, .01015, .00022,
2632 + .00000, .00545, .00982,
2633 + .49296, .16900, .17717, .00972, .00032,
2634 + .00000, .00524, .00935,
2635 + .47680, .16270, .16428, .00932, .00040,
2636 + .00000, .00506, .00891,
2637 + .46036, .15633, .15172, .00893, .00047,
2638 + .00000, .00487, .00846 /
2639 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
2640 + .44654, .15105, .14164, .00860, .00052,
2641 + .00000, .00471, .00810,
2642 + .43368, .14614, .13259, .00829, .00057,
2643 + .00000, .00455, .00777,
2644 + .42382, .14240, .12587, .00806, .00060,
2645 + .00000, .00442, .00753,
2646 + .40371, .13482, .11269, .00757, .00064,
2647 + .00002, .00419, .00701,
2648 + .38735, .12872, .10243, .00719, .00067,
2649 + .00009, .00400, .00660,
2650 + .36992, .12227, .09216, .00680, .00070,
2651 + .00017, .00378, .00619,
2652 + .35274, .11595, .08272, .00640, .00071,
2653 + .00022, .00357, .00579,
2654 + .33794, .11055, .07512, .00606, .00072,
2655 + .00026, .00339, .00545 /
2656 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
2657 + .32371, .10540, .06827, .00574, .00072,
2658 + .00030, .00321, .00511,
2659 + .31242, .10134, .06314, .00548, .00072,
2660 + .00032, .00308, .00485,
2661 + .29929, .09663, .05752, .00519, .00071,
2662 + .00034, .00293, .00458,
2663 + .28820, .09268, .05305, .00495, .00071,
2664 + .00035, .00280, .00434,
2665 + .27847, .08924, .04932, .00474, .00070,
2666 + .00036, .00269, .00412,
2667 + .26662, .08506, .04503, .00448, .00068,
2668 + .00037, .00253, .00388,
2669 + .25598, .08133, .04141, .00425, .00067,
2670 + .00037, .00241, .00367,
2671 + .24646, .07801, .03835, .00405, .00066,
2672 + .00038, .00230, .00348 /
2673 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
2674 + .23727, .07486, .03554, .00387, .00064,
2675 + .00038, .00220, .00328,
2676 + .22868, .07191, .03303, .00370, .00062,
2677 + .00038, .00210, .00311,
2678 + .22089, .06923, .03087, .00352, .00061,
2679 + .00037, .00201, .00297,
2680 + .21377, .06680, .02898, .00338, .00060,
2681 + .00037, .00192, .00285,
2682 + .20690, .06446, .02723, .00325, .00058,
2683 + .00037, .00185, .00272,
2684 + .20034, .06224, .02564, .00312, .00057,
2685 + .00036, .00178, .00260,
2686 + .19435, .06022, .02423, .00301, .00055,
2687 + .00036, .00171, .00250,
2688 + .18884, .05837, .02298, .00290, .00054,
2689 + .00035, .00165, .00240 /
2690 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
2691 + .18348, .05657, .02180, .00279, .00053,
2692 + .00035, .00159, .00230,
2693 + .17833, .05485, .02071, .00269, .00051,
2694 + .00034, .00153, .00221,
2695 + .17356, .05327, .01974, .00260, .00050,
2696 + .00034, .00148, .00213,
2697 + .16917, .05181, .01887, .00252, .00049,
2698 + .00033, .00143, .00205,
2699 + .16481, .05037, .01803, .00244, .00048,
2700 + .00033, .00139, .00198 /
2701 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
2702 + .56796, .19383, .23573, .01000, .00000,
2703 + .00000, .00486, .00896,
2704 + .54512, .18494, .21590, .00949, .00000,
2705 + .00000, .00466, .00848,
2706 + .51345, .17276, .18959, .00884, .00000,
2707 + .00000, .00440, .00774,
2708 + .49194, .16457, .17250, .00837, .00005,
2709 + .00000, .00422, .00731,
2710 + .47075, .15656, .15611, .00794, .00016,
2711 + .00000, .00402, .00686,
2712 + .45326, .15003, .14332, .00757, .00023,
2713 + .00000, .00384, .00653,
2714 + .43724, .14407, .13212, .00723, .00029,
2715 + .00000, .00370, .00621,
2716 + .42100, .13806, .12129, .00690, .00034,
2717 + .00000, .00356, .00587 /
2718 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
2719 + .40739, .13309, .11268, .00665, .00037,
2720 + .00000, .00343, .00559,
2721 + .39478, .12850, .10500, .00638, .00040,
2722 + .00000, .00331, .00534,
2723 + .38515, .12499, .09933, .00617, .00042,
2724 + .00000, .00321, .00516,
2725 + .36549, .11791, .08828, .00578, .00046,
2726 + .00002, .00302, .00483,
2727 + .34961, .11226, .07978, .00547, .00048,
2728 + .00006, .00287, .00452,
2729 + .33278, .10629, .07136, .00515, .00049,
2730 + .00012, .00271, .00421,
2731 + .31625, .10046, .06367, .00483, .00050,
2732 + .00016, .00254, .00392,
2733 + .30207, .09549, .05754, .00454, .00050,
2734 + .00018, .00241, .00369 /
2735 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
2736 + .28850, .09078, .05205, .00427, .00050,
2737 + .00021, .00228, .00347,
2738 + .27773, .08707, .04796, .00409, .00050,
2739 + .00022, .00218, .00327,
2740 + .26528, .08279, .04351, .00386, .00049,
2741 + .00023, .00206, .00306,
2742 + .25479, .07922, .03998, .00368, .00049,
2743 + .00024, .00196, .00290,
2744 + .24558, .07610, .03705, .00352, .00048,
2745 + .00025, .00186, .00275,
2746 + .23443, .07234, .03370, .00331, .00047,
2747 + .00026, .00176, .00259,
2748 + .22447, .06899, .03089, .00312, .00046,
2749 + .00026, .00168, .00244,
2750 + .21560, .06601, .02851, .00297, .00045,
2751 + .00026, .00160, .00229 /
2752 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
2753 + .20705, .06319, .02635, .00283, .00044,
2754 + .00026, .00152, .00217,
2755 + .19907, .06056, .02443, .00271, .00043,
2756 + .00026, .00144, .00205,
2757 + .19184, .05818, .02278, .00259, .00041,
2758 + .00026, .00138, .00195,
2759 + .18530, .05602, .02134, .00246, .00040,
2760 + .00025, .00132, .00187,
2761 + .17901, .05395, .02001, .00234, .00039,
2762 + .00025, .00127, .00179,
2763 + .17299, .05200, .01881, .00224, .00038,
2764 + .00025, .00121, .00170,
2765 + .16750, .05024, .01774, .00216, .00037,
2766 + .00024, .00116, .00161,
2767 + .16247, .04860, .01681, .00207, .00036,
2768 + .00024, .00112, .00154 /
2769 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
2770 + .15758, .04701, .01592, .00199, .00036,
2771 + .00024, .00108, .00148,
2772 + .15288, .04550, .01510, .00192, .00035,
2773 + .00023, .00104, .00143,
2774 + .14853, .04410, .01437, .00186, .00034,
2775 + .00023, .00100, .00138,
2776 + .14454, .04283, .01371, .00180, .00033,
2777 + .00023, .00097, .00133,
2778 + .14062, .04158, .01309, .00173, .00032,
2779 + .00022, .00093, .00129 /
2780 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
2781 + .52600, .17319, .19637, .00784, .00000,
2782 + .00000, .00362, .00621,
2783 + .50324, .16473, .17840, .00742, .00000,
2784 + .00000, .00344, .00588,
2785 + .47178, .15322, .15491, .00685, .00000,
2786 + .00000, .00321, .00534,
2787 + .45057, .14549, .13985, .00648, .00004,
2788 + .00000, .00306, .00500,
2789 + .42973, .13800, .12562, .00608, .00011,
2790 + .00000, .00288, .00473,
2791 + .41262, .13188, .11460, .00580, .00016,
2792 + .00000, .00277, .00445,
2793 + .39697, .12633, .10505, .00554, .00020,
2794 + .00000, .00266, .00420,
2795 + .38114, .12075, .09589, .00528, .00024,
2796 + .00000, .00254, .00397 /
2797 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
2798 + .36799, .11614, .08864, .00505, .00026,
2799 + .00000, .00243, .00378,
2800 + .35578, .11190, .08223, .00484, .00028,
2801 + .00000, .00234, .00361,
2802 + .34647, .10867, .07753, .00468, .00029,
2803 + .00000, .00228, .00347,
2804 + .32767, .10214, .06845, .00434, .00032,
2805 + .00001, .00213, .00324,
2806 + .31248, .09694, .06151, .00411, .00033,
2807 + .00004, .00201, .00304,
2808 + .29640, .09152, .05470, .00387, .00034,
2809 + .00008, .00189, .00282,
2810 + .28071, .08622, .04854, .00361, .00035,
2811 + .00011, .00176, .00260,
2812 + .26731, .08172, .04366, .00339, .00035,
2813 + .00013, .00166, .00243 /
2814 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
2815 + .25450, .07746, .03931, .00319, .00035,
2816 + .00014, .00157, .00229,
2817 + .24441, .07411, .03609, .00304, .00034,
2818 + .00015, .00150, .00216,
2819 + .23279, .07029, .03261, .00286, .00034,
2820 + .00016, .00141, .00200,
2821 + .22303, .06709, .02987, .00270, .00033,
2822 + .00017, .00134, .00188,
2823 + .21449, .06429, .02760, .00257, .00033,
2824 + .00017, .00127, .00179,
2825 + .20415, .06094, .02502, .00243, .00032,
2826 + .00017, .00119, .00166,
2827 + .19496, .05798, .02286, .00229, .00031,
2828 + .00018, .00112, .00157,
2829 + .18678, .05536, .02105, .00216, .00030,
2830 + .00018, .00107, .00150 /
2831 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
2832 + .17896, .05285, .01940, .00205, .00029,
2833 + .00018, .00102, .00140,
2834 + .17168, .05053, .01795, .00195, .00029,
2835 + .00017, .00097, .00132,
2836 + .16509, .04842, .01669, .00185, .00028,
2837 + .00017, .00092, .00127,
2838 + .15910, .04655, .01561, .00177, .00027,
2839 + .00017, .00088, .00120,
2840 + .15336, .04475, .01461, .00170, .00026,
2841 + .00017, .00085, .00114,
2842 + .14791, .04305, .01371, .00162, .00026,
2843 + .00017, .00080, .00108,
2844 + .14295, .04150, .01291, .00155, .00025,
2845 + .00016, .00076, .00104,
2846 + .13841, .04008, .01221, .00149, .00024,
2847 + .00016, .00073, .00100 /
2848 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
2849 + .13400, .03870, .01155, .00142, .00024,
2850 + .00016, .00070, .00096,
2851 + .12978, .03739, .01094, .00137, .00023,
2852 + .00016, .00068, .00091,
2853 + .12589, .03619, .01040, .00132, .00022,
2854 + .00015, .00066, .00087,
2855 + .12232, .03510, .00991, .00128, .00022,
2856 + .00015, .00064, .00084,
2857 + .11881, .03403, .00945, .00123, .00021,
2858 + .00015, .00061, .00081 /
2859 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
2860 + .48222, .15305, .16120, .00595, .00000,
2861 + .00000, .00265, .00429,
2862 + .45982, .14514, .14527, .00560, .00000,
2863 + .00000, .00253, .00401,
2864 + .42903, .13437, .12469, .00514, .00000,
2865 + .00000, .00234, .00367,
2866 + .40842, .12720, .11166, .00483, .00003,
2867 + .00000, .00221, .00342,
2868 + .38823, .12026, .09956, .00455, .00008,
2869 + .00000, .00211, .00316,
2870 + .37170, .11463, .09029, .00431, .00011,
2871 + .00000, .00200, .00300,
2872 + .35668, .10952, .08229, .00408, .00014,
2873 + .00000, .00191, .00285,
2874 + .34155, .10439, .07466, .00385, .00016,
2875 + .00000, .00182, .00270 /
2876 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
2877 + .32895, .10019, .06871, .00369, .00018,
2878 + .00000, .00174, .00254,
2879 + .31732, .09630, .06346, .00352, .00019,
2880 + .00000, .00167, .00242,
2881 + .30848, .09336, .05962, .00339, .00020,
2882 + .00000, .00162, .00234,
2883 + .29061, .08746, .05227, .00316, .00022,
2884 + .00001, .00150, .00216,
2885 + .27630, .08276, .04672, .00298, .00022,
2886 + .00003, .00143, .00202,
2887 + .26126, .07785, .04132, .00276, .00023,
2888 + .00006, .00134, .00187,
2889 + .24657, .07309, .03647, .00257, .00023,
2890 + .00007, .00125, .00174,
2891 + .23407, .06907, .03265, .00241, .00023,
2892 + .00009, .00117, .00162 /
2893 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
2894 + .22221, .06528, .02927, .00225, .00023,
2895 + .00010, .00110, .00149,
2896 + .21285, .06230, .02679, .00213, .00023,
2897 + .00010, .00104, .00142,
2898 + .20209, .05891, .02411, .00201, .00023,
2899 + .00011, .00098, .00133,
2900 + .19312, .05609, .02201, .00190, .00022,
2901 + .00011, .00093, .00125,
2902 + .18531, .05364, .02028, .00179, .00022,
2903 + .00011, .00089, .00118,
2904 + .17588, .05068, .01832, .00167, .00021,
2905 + .00012, .00083, .00111,
2906 + .16750, .04808, .01669, .00157, .00021,
2907 + .00012, .00078, .00103,
2908 + .16006, .04579, .01532, .00149, .00020,
2909 + .00012, .00075, .00097 /
2910 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
2911 + .15297, .04361, .01409, .00140, .00019,
2912 + .00012, .00070, .00092,
2913 + .14639, .04160, .01301, .00132, .00019,
2914 + .00012, .00067, .00087,
2915 + .14045, .03980, .01208, .00126, .00018,
2916 + .00011, .00064, .00082,
2917 + .13509, .03817, .01128, .00120, .00018,
2918 + .00011, .00061, .00077,
2919 + .12995, .03662, .01053, .00114, .00017,
2920 + .00011, .00058, .00072,
2921 + .12508, .03515, .00986, .00108, .00017,
2922 + .00011, .00055, .00070,
2923 + .12066, .03382, .00928, .00104, .00016,
2924 + .00011, .00053, .00067,
2925 + .11659, .03261, .00876, .00100, .00016,
2926 + .00011, .00050, .00064 /
2927 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
2928 + .11266, .03144, .00828, .00097, .00015,
2929 + .00010, .00048, .00061,
2930 + .10892, .03032, .00783, .00093, .00015,
2931 + .00010, .00046, .00058,
2932 + .10550, .02929, .00743, .00088, .00015,
2933 + .00010, .00044, .00056,
2934 + .10236, .02836, .00708, .00084, .00014,
2935 + .00010, .00043, .00054,
2936 + .09927, .02745, .00674, .00081, .00014,
2937 + .00010, .00041, .00051 /
2938 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
2939 + .43742, .13392, .13026, .00445, .00000,
2940 + .00000, .00192, .00287,
2941 + .41572, .12659, .11638, .00418, .00000,
2942 + .00000, .00180, .00269,
2943 + .38607, .11663, .09874, .00379, .00000,
2944 + .00000, .00167, .00245,
2945 + .36629, .11004, .08777, .00353, .00002,
2946 + .00000, .00158, .00227,
2947 + .34704, .10370, .07768, .00328, .00005,
2948 + .00000, .00149, .00213,
2949 + .33131, .09855, .06999, .00312, .00007,
2950 + .00000, .00143, .00200,
2951 + .31705, .09391, .06344, .00295, .00009,
2952 + .00000, .00136, .00189,
2953 + .30275, .08928, .05726, .00276, .00011,
2954 + .00000, .00130, .00178 /
2955 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
2956 + .29090, .08547, .05243, .00263, .00012,
2957 + .00000, .00124, .00168,
2958 + .28001, .08198, .04822, .00249, .00013,
2959 + .00000, .00119, .00160,
2960 + .27175, .07933, .04515, .00238, .00013,
2961 + .00000, .00116, .00153,
2962 + .25503, .07404, .03933, .00222, .00014,
2963 + .00001, .00108, .00141,
2964 + .24171, .06985, .03498, .00205, .00015,
2965 + .00002, .00101, .00132,
2966 + .22777, .06548, .03076, .00190, .00015,
2967 + .00004, .00095, .00123,
2968 + .21422, .06128, .02701, .00177, .00015,
2969 + .00005, .00089, .00113,
2970 + .20271, .05773, .02408, .00166, .00015,
2971 + .00006, .00082, .00104 /
2972 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
2973 + .19182, .05439, .02150, .00155, .00015,
2974 + .00006, .00076, .00097,
2975 + .18330, .05178, .01961, .00145, .00015,
2976 + .00007, .00072, .00093,
2977 + .17356, .04881, .01759, .00134, .00015,
2978 + .00007, .00068, .00087,
2979 + .16543, .04635, .01601, .00125, .00015,
2980 + .00007, .00064, .00082,
2981 + .15834, .04422, .01472, .00119, .00014,
2982 + .00008, .00061, .00077,
2983 + .14982, .04168, .01326, .00112, .00014,
2984 + .00008, .00058, .00071,
2985 + .14229, .03943, .01205, .00104, .00013,
2986 + .00008, .00054, .00067,
2987 + .13564, .03746, .01104, .00098, .00013,
2988 + .00008, .00050, .00063 /
2989 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
2990 + .12929, .03559, .01013, .00093, .00013,
2991 + .00008, .00047, .00059,
2992 + .12341, .03387, .00933, .00087, .00012,
2993 + .00008, .00045, .00056,
2994 + .11814, .03232, .00864, .00082, .00012,
2995 + .00008, .00043, .00054,
2996 + .11339, .03093, .00806, .00078, .00012,
2997 + .00007, .00041, .00051,
2998 + .10885, .02961, .00752, .00074, .00011,
2999 + .00007, .00039, .00048,
3000 + .10455, .02836, .00703, .00071, .00011,
3001 + .00007, .00038, .00046,
3002 + .10066, .02724, .00660, .00067, .00011,
3003 + .00007, .00037, .00044,
3004 + .09709, .02622, .00623, .00065, .00010,
3005 + .00007, .00035, .00041 /
3006 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
3007 + .09365, .02523, .00587, .00063, .00010,
3008 + .00007, .00033, .00039,
3009 + .09039, .02429, .00555, .00060, .00010,
3010 + .00007, .00031, .00037,
3011 + .08740, .02344, .00527, .00057, .00009,
3012 + .00007, .00030, .00036,
3013 + .08466, .02265, .00501, .00054, .00009,
3014 + .00006, .00029, .00035,
3015 + .08197, .02189, .00477, .00052, .00009,
3016 + .00006, .00028, .00033 /
3017 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
3018 + .39248, .11603, .10358, .00338, .00000,
3019 + .00000, .00129, .00183,
3020 + .37189, .10932, .09181, .00312, .00000,
3021 + .00000, .00121, .00173,
3022 + .34373, .10029, .07709, .00286, .00000,
3023 + .00000, .00111, .00155,
3024 + .32506, .09435, .06802, .00265, .00001,
3025 + .00000, .00104, .00146,
3026 + .30693, .08863, .05978, .00247, .00003,
3027 + .00000, .00099, .00132,
3028 + .29225, .08399, .05359, .00231, .00005,
3029 + .00000, .00093, .00125,
3030 + .27896, .07984, .04833, .00216, .00006,
3031 + .00000, .00088, .00117,
3032 + .26562, .07572, .04339, .00203, .00007,
3033 + .00000, .00084, .00109 /
3034 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
3035 + .25461, .07231, .03957, .00195, .00008,
3036 + .00000, .00081, .00104,
3037 + .24450, .06920, .03625, .00185, .00008,
3038 + .00000, .00077, .00099,
3039 + .23685, .06686, .03384, .00177, .00009,
3040 + .00000, .00074, .00096,
3041 + .22149, .06218, .02931, .00164, .00009,
3042 + .00000, .00068, .00086,
3043 + .20930, .05849, .02595, .00152, .00010,
3044 + .00001, .00063, .00081,
3045 + .19656, .05466, .02272, .00141, .00010,
3046 + .00003, .00059, .00074,
3047 + .18424, .05100, .01986, .00130, .00010,
3048 + .00003, .00055, .00068,
3049 + .17385, .04790, .01764, .00120, .00010,
3050 + .00004, .00051, .00063 /
3051 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
3052 + .16404, .04499, .01569, .00111, .00010,
3053 + .00004, .00047, .00059,
3054 + .15634, .04275, .01428, .00105, .00010,
3055 + .00005, .00044, .00056,
3056 + .14757, .04018, .01277, .00098, .00010,
3057 + .00005, .00042, .00052,
3058 + .14030, .03806, .01160, .00092, .00009,
3059 + .00005, .00040, .00048,
3060 + .13399, .03623, .01064, .00087, .00009,
3061 + .00005, .00038, .00046,
3062 + .12641, .03405, .00956, .00081, .00009,
3063 + .00005, .00035, .00042,
3064 + .11973, .03213, .00866, .00076, .00009,
3065 + .00005, .00032, .00040,
3066 + .11385, .03045, .00792, .00070, .00008,
3067 + .00005, .00030, .00038 /
3068 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
3069 + .10829, .02885, .00726, .00065, .00008,
3070 + .00005, .00028, .00035,
3071 + .10313, .02739, .00667, .00061, .00008,
3072 + .00005, .00027, .00033,
3073 + .09849, .02609, .00617, .00059, .00008,
3074 + .00005, .00026, .00031,
3075 + .09431, .02493, .00575, .00057, .00007,
3076 + .00005, .00024, .00029,
3077 + .09033, .02382, .00536, .00055, .00007,
3078 + .00005, .00023, .00027,
3079 + .08660, .02277, .00500, .00052, .00007,
3080 + .00005, .00022, .00026,
3081 + .08322, .02182, .00469, .00049, .00007,
3082 + .00005, .00021, .00025,
3083 + .08013, .02097, .00442, .00047, .00007,
3084 + .00005, .00020, .00024 /
3085 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
3086 + .07715, .02015, .00417, .00045, .00006,
3087 + .00004, .00019, .00022,
3088 + .07433, .01937, .00394, .00043, .00006,
3089 + .00004, .00018, .00021,
3090 + .07175, .01866, .00373, .00042, .00006,
3091 + .00004, .00017, .00020,
3092 + .06940, .01801, .00354, .00040, .00006,
3093 + .00004, .00016, .00019,
3094 + .06710, .01737, .00337, .00038, .00006,
3095 + .00004, .00016, .00019 /
3096 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
3097 + .34812, .09903, .08049, .00233, .00000,
3098 + .00000, .00094, .00123,
3099 + .32866, .09303, .07080, .00217, .00000,
3100 + .00000, .00087, .00115,
3101 + .30236, .08496, .05882, .00195, .00000,
3102 + .00000, .00080, .00100,
3103 + .28496, .07966, .05156, .00181, .00001,
3104 + .00000, .00074, .00092,
3105 + .26818, .07457, .04501, .00166, .00002,
3106 + .00000, .00070, .00087,
3107 + .25461, .07049, .04011, .00155, .00003,
3108 + .00000, .00065, .00081,
3109 + .24234, .06684, .03599, .00147, .00004,
3110 + .00000, .00061, .00076,
3111 + .23007, .06320, .03216, .00139, .00005,
3112 + .00000, .00057, .00070 /
3113 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
3114 + .22004, .06022, .02920, .00130, .00005,
3115 + .00000, .00054, .00067,
3116 + .21081, .05750, .02665, .00124, .00005,
3117 + .00000, .00052, .00064,
3118 + .20382, .05547, .02481, .00120, .00006,
3119 + .00000, .00050, .00062,
3120 + .18994, .05140, .02137, .00108, .00006,
3121 + .00000, .00046, .00056,
3122 + .17890, .04821, .01883, .00101, .00006,
3123 + .00001, .00043, .00052,
3124 + .16741, .04491, .01641, .00094, .00006,
3125 + .00002, .00040, .00047,
3126 + .15637, .04173, .01428, .00086, .00006,
3127 + .00002, .00036, .00043,
3128 + .14709, .03907, .01264, .00078, .00006,
3129 + .00002, .00033, .00041 /
3130 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
3131 + .13834, .03661, .01121, .00072, .00006,
3132 + .00003, .00030, .00038,
3133 + .13151, .03469, .01018, .00070, .00006,
3134 + .00003, .00029, .00034,
3135 + .12375, .03251, .00908, .00065, .00006,
3136 + .00003, .00028, .00031,
3137 + .11733, .03071, .00822, .00061, .00006,
3138 + .00003, .00026, .00029,
3139 + .11177, .02917, .00753, .00058, .00006,
3140 + .00003, .00025, .00028,
3141 + .10514, .02733, .00675, .00053, .00006,
3142 + .00003, .00023, .00025,
3143 + .09932, .02572, .00611, .00049, .00005,
3144 + .00003, .00021, .00024,
3145 + .09421, .02431, .00557, .00046, .00005,
3146 + .00003, .00020, .00023 /
3147 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
3148 + .08935, .02298, .00510, .00043, .00005,
3149 + .00003, .00018, .00021,
3150 + .08488, .02177, .00468, .00041, .00005,
3151 + .00003, .00017, .00020,
3152 + .08088, .02068, .00432, .00039, .00005,
3153 + .00003, .00016, .00019,
3154 + .07730, .01971, .00402, .00037, .00005,
3155 + .00003, .00015, .00018,
3156 + .07388, .01880, .00374, .00036, .00004,
3157 + .00003, .00015, .00016,
3158 + .07068, .01793, .00349, .00033, .00004,
3159 + .00003, .00014, .00015,
3160 + .06779, .01715, .00327, .00031, .00004,
3161 + .00003, .00013, .00015,
3162 + .06515, .01645, .00308, .00030, .00004,
3163 + .00003, .00012, .00014 /
3164 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
3165 + .06262, .01578, .00290, .00029, .00004,
3166 + .00003, .00012, .00013,
3167 + .06022, .01515, .00273, .00028, .00004,
3168 + .00003, .00011, .00013,
3169 + .05803, .01457, .00258, .00026, .00004,
3170 + .00003, .00011, .00012,
3171 + .05603, .01404, .00245, .00025, .00004,
3172 + .00003, .00010, .00011,
3173 + .05408, .01352, .00233, .00024, .00003,
3174 + .00003, .00009, .00011 /
3175 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
3176 + .30504, .08354, .06124, .00155, .00000,
3177 + .00000, .00067, .00080,
3178 + .28700, .07820, .05347, .00143, .00000,
3179 + .00000, .00061, .00074,
3180 + .26272, .07108, .04396, .00130, .00000,
3181 + .00000, .00055, .00066,
3182 + .24675, .06642, .03826, .00121, .00000,
3183 + .00000, .00051, .00060,
3184 + .23140, .06198, .03317, .00110, .00001,
3185 + .00000, .00048, .00055,
3186 + .21903, .05842, .02940, .00103, .00002,
3187 + .00000, .00045, .00050,
3188 + .20791, .05523, .02626, .00096, .00002,
3189 + .00000, .00042, .00048,
3190 + .19685, .05208, .02334, .00089, .00003,
3191 + .00000, .00039, .00046 /
3192 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
3193 + .18777, .04951, .02111, .00085, .00003,
3194 + .00000, .00037, .00043,
3195 + .17948, .04717, .01920, .00080, .00003,
3196 + .00000, .00035, .00040,
3197 + .17323, .04542, .01783, .00076, .00003,
3198 + .00000, .00033, .00037,
3199 + .16078, .04193, .01527, .00069, .00004,
3200 + .00000, .00031, .00034,
3201 + .15096, .03919, .01341, .00064, .00004,
3202 + .00001, .00029, .00031,
3203 + .14080, .03637, .01164, .00058, .00004,
3204 + .00001, .00027, .00029,
3205 + .13101, .03369, .01009, .00054, .00004,
3206 + .00001, .00025, .00026,
3207 + .12281, .03145, .00890, .00051, .00004,
3208 + .00002, .00023, .00024 /
3209 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
3210 + .11515, .02937, .00787, .00046, .00004,
3211 + .00002, .00021, .00023,
3212 + .10919, .02775, .00713, .00042, .00004,
3213 + .00002, .00019, .00023,
3214 + .10244, .02592, .00634, .00039, .00004,
3215 + .00002, .00018, .00021,
3216 + .09686, .02442, .00574, .00037, .00004,
3217 + .00002, .00016, .00019,
3218 + .09203, .02315, .00524, .00035, .00004,
3219 + .00002, .00016, .00018,
3220 + .08631, .02162, .00469, .00032, .00003,
3221 + .00002, .00015, .00016,
3222 + .08128, .02029, .00424, .00030, .00003,
3223 + .00002, .00014, .00015,
3224 + .07687, .01913, .00386, .00029, .00003,
3225 + .00002, .00013, .00015 /
3226 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
3227 + .07274, .01803, .00352, .00026, .00003,
3228 + .00002, .00012, .00013,
3229 + .06893, .01704, .00323, .00025, .00003,
3230 + .00002, .00011, .00012,
3231 + .06552, .01616, .00298, .00023, .00003,
3232 + .00002, .00010, .00011,
3233 + .06247, .01536, .00277, .00022, .00003,
3234 + .00002, .00010, .00011,
3235 + .05958, .01461, .00257, .00021, .00003,
3236 + .00002, .00010, .00010,
3237 + .05687, .01391, .00240, .00020, .00003,
3238 + .00002, .00009, .00010,
3239 + .05443, .01328, .00224, .00019, .00003,
3240 + .00002, .00008, .00009,
3241 + .05222, .01271, .00211, .00018, .00002,
3242 + .00002, .00008, .00009 /
3243 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
3244 + .05009, .01217, .00198, .00017, .00002,
3245 + .00002, .00008, .00009,
3246 + .04808, .01166, .00187, .00016, .00002,
3247 + .00002, .00007, .00008,
3248 + .04626, .01119, .00177, .00015, .00002,
3249 + .00002, .00007, .00008,
3250 + .04459, .01077, .00167, .00014, .00002,
3251 + .00002, .00006, .00007,
3252 + .04296, .01035, .00159, .00014, .00002,
3253 + .00002, .00006, .00007 /
3254 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
3255 + .26390, .06965, .04559, .00112, .00000,
3256 + .00000, .00040, .00048,
3257 + .24749, .06498, .03951, .00102, .00000,
3258 + .00000, .00038, .00043,
3259 + .22540, .05878, .03218, .00091, .00000,
3260 + .00000, .00033, .00038,
3261 + .21102, .05475, .02783, .00083, .00000,
3262 + .00000, .00030, .00035,
3263 + .19718, .05090, .02399, .00077, .00001,
3264 + .00000, .00029, .00032,
3265 + .18609, .04785, .02116, .00072, .00001,
3266 + .00000, .00026, .00030,
3267 + .17615, .04513, .01881, .00067, .00001,
3268 + .00000, .00025, .00027,
3269 + .16629, .04243, .01665, .00062, .00002,
3270 + .00000, .00023, .00025 /
3271 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
3272 + .15823, .04023, .01501, .00059, .00002,
3273 + .00000, .00022, .00023,
3274 + .15088, .03824, .01361, .00056, .00002,
3275 + .00000, .00020, .00022,
3276 + .14536, .03676, .01261, .00053, .00002,
3277 + .00000, .00019, .00021,
3278 + .13440, .03379, .01075, .00047, .00002,
3279 + .00000, .00018, .00020,
3280 + .12579, .03149, .00941, .00043, .00002,
3281 + .00000, .00017, .00019,
3282 + .11689, .02913, .00814, .00039, .00002,
3283 + .00001, .00016, .00017,
3284 + .10838, .02688, .00703, .00036, .00002,
3285 + .00001, .00014, .00017,
3286 + .10128, .02502, .00619, .00033, .00002,
3287 + .00001, .00013, .00015 /
3288 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
3289 + .09465, .02329, .00546, .00031, .00002,
3290 + .00001, .00012, .00013,
3291 + .08951, .02195, .00494, .00030, .00002,
3292 + .00001, .00011, .00013,
3293 + .08371, .02044, .00438, .00027, .00002,
3294 + .00001, .00010, .00012,
3295 + .07893, .01921, .00396, .00025, .00002,
3296 + .00001, .00009, .00011,
3297 + .07481, .01816, .00361, .00024, .00002,
3298 + .00001, .00008, .00010,
3299 + .06995, .01691, .00323, .00021, .00002,
3300 + .00001, .00008, .00009,
3301 + .06568, .01582, .00291, .00020, .00002,
3302 + .00001, .00007, .00009,
3303 + .06195, .01488, .00265, .00020, .00002,
3304 + .00001, .00007, .00008 /
3305 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
3306 + .05846, .01399, .00241, .00018, .00002,
3307 + .00001, .00006, .00007,
3308 + .05525, .01319, .00221, .00017, .00002,
3309 + .00001, .00005, .00007,
3310 + .05240, .01248, .00204, .00017, .00002,
3311 + .00001, .00005, .00006,
3312 + .04986, .01184, .00189, .00015, .00002,
3313 + .00001, .00005, .00006,
3314 + .04746, .01123, .00175, .00013, .00002,
3315 + .00001, .00005, .00006,
3316 + .04521, .01067, .00163, .00013, .00002,
3317 + .00001, .00005, .00005,
3318 + .04318, .01017, .00153, .00012, .00002,
3319 + .00001, .00005, .00004,
3320 + .04135, .00972, .00143, .00011, .00001,
3321 + .00001, .00004, .00004 /
3322 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
3323 + .03959, .00928, .00135, .00011, .00001,
3324 + .00001, .00004, .00005,
3325 + .03793, .00888, .00127, .00010, .00001,
3326 + .00001, .00004, .00004,
3327 + .03641, .00851, .00120, .00010, .00001,
3328 + .00001, .00003, .00004,
3329 + .03504, .00817, .00113, .00010, .00001,
3330 + .00001, .00003, .00004,
3331 + .03371, .00784, .00108, .00009, .00001,
3332 + .00001, .00003, .00004 /
3333 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
3334 + .22488, .05701, .03294, .00069, .00000,
3335 + .00000, .00029, .00031,
3336 + .21015, .05302, .02835, .00061, .00000,
3337 + .00000, .00025, .00028,
3338 + .19048, .04771, .02287, .00055, .00000,
3339 + .00000, .00023, .00025,
3340 + .17763, .04428, .01964, .00051, .00000,
3341 + .00000, .00022, .00023,
3342 + .16544, .04103, .01683, .00044, .00000,
3343 + .00000, .00020, .00020,
3344 + .15564, .03844, .01479, .00041, .00001,
3345 + .00000, .00018, .00021,
3346 + .14688, .03615, .01309, .00039, .00001,
3347 + .00000, .00017, .00019,
3348 + .13822, .03389, .01154, .00037, .00001,
3349 + .00000, .00016, .00017 /
3350 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
3351 + .13120, .03206, .01037, .00033, .00001,
3352 + .00000, .00015, .00015,
3353 + .12481, .03040, .00937, .00031, .00001,
3354 + .00000, .00014, .00015,
3355 + .12001, .02916, .00866, .00029, .00001,
3356 + .00000, .00013, .00014,
3357 + .11048, .02670, .00736, .00027, .00001,
3358 + .00000, .00012, .00013,
3359 + .10304, .02480, .00642, .00025, .00001,
3360 + .00000, .00012, .00012,
3361 + .09540, .02286, .00554, .00022, .00001,
3362 + .00000, .00010, .00010,
3363 + .08812, .02102, .00477, .00020, .00001,
3364 + .00001, .00009, .00009,
3365 + .08206, .01949, .00419, .00019, .00001,
3366 + .00001, .00009, .00008 /
3367 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
3368 + .07642, .01808, .00369, .00018, .00001,
3369 + .00001, .00008, .00007,
3370 + .07209, .01699, .00333, .00016, .00001,
3371 + .00001, .00007, .00008,
3372 + .06719, .01578, .00295, .00015, .00001,
3373 + .00001, .00007, .00007,
3374 + .06317, .01478, .00266, .00014, .00001,
3375 + .00001, .00006, .00006,
3376 + .05973, .01394, .00243, .00014, .00001,
3377 + .00001, .00006, .00006,
3378 + .05566, .01294, .00216, .00012, .00001,
3379 + .00001, .00005, .00005,
3380 + .05211, .01207, .00195, .00011, .00001,
3381 + .00001, .00005, .00005,
3382 + .04900, .01132, .00177, .00011, .00001,
3383 + .00001, .00005, .00005 /
3384 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
3385 + .04612, .01062, .00161, .00010, .00001,
3386 + .00001, .00004, .00005,
3387 + .04348, .00998, .00147, .00009, .00001,
3388 + .00001, .00004, .00004,
3389 + .04113, .00942, .00136, .00009, .00001,
3390 + .00001, .00004, .00004,
3391 + .03905, .00891, .00126, .00008, .00001,
3392 + .00001, .00003, .00004,
3393 + .03708, .00844, .00117, .00007, .00001,
3394 + .00001, .00003, .00003,
3395 + .03523, .00800, .00108, .00007, .00001,
3396 + .00001, .00003, .00003,
3397 + .03358, .00761, .00101, .00006, .00001,
3398 + .00001, .00003, .00003,
3399 + .03208, .00726, .00095, .00006, .00001,
3400 + .00001, .00003, .00003 /
3401 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
3402 + .03065, .00692, .00089, .00006, .00001,
3403 + .00001, .00003, .00003,
3404 + .02931, .00660, .00084, .00006, .00001,
3405 + .00001, .00003, .00003,
3406 + .02809, .00631, .00079, .00005, .00001,
3407 + .00001, .00002, .00003,
3408 + .02699, .00605, .00075, .00005, .00001,
3409 + .00001, .00002, .00002,
3410 + .02591, .00580, .00071, .00005, .00001,
3411 + .00001, .00002, .00002 /
3412 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
3413 + .15595, .03642, .01576, .00025, .00000,
3414 + .00000, .00010, .00010,
3415 + .14461, .03362, .01338, .00025, .00000,
3416 + .00000, .00009, .00008,
3417 + .12965, .02995, .01061, .00021, .00000,
3418 + .00000, .00008, .00007,
3419 + .12000, .02759, .00902, .00019, .00000,
3420 + .00000, .00007, .00008,
3421 + .11089, .02536, .00765, .00017, .00000,
3422 + .00000, .00006, .00008,
3423 + .10365, .02362, .00667, .00016, .00000,
3424 + .00000, .00006, .00007,
3425 + .09723, .02208, .00587, .00015, .00000,
3426 + .00000, .00005, .00006,
3427 + .09094, .02056, .00514, .00013, .00000,
3428 + .00000, .00005, .00006 /
3429 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
3430 + .08584, .01934, .00459, .00012, .00000,
3431 + .00000, .00004, .00006,
3432 + .08123, .01824, .00413, .00011, .00000,
3433 + .00000, .00004, .00005,
3434 + .07779, .01743, .00381, .00011, .00000,
3435 + .00000, .00004, .00004,
3436 + .07100, .01583, .00322, .00010, .00000,
3437 + .00000, .00004, .00004,
3438 + .06576, .01460, .00280, .00009, .00000,
3439 + .00000, .00004, .00004,
3440 + .06041, .01335, .00240, .00008, .00000,
3441 + .00000, .00003, .00003,
3442 + .05536, .01218, .00206, .00007, .00000,
3443 + .00000, .00003, .00003,
3444 + .05118, .01122, .00181, .00006, .00000,
3445 + .00000, .00002, .00003 /
3446 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
3447 + .04733, .01033, .00159, .00006, .00000,
3448 + .00000, .00002, .00003,
3449 + .04439, .00966, .00143, .00005, .00000,
3450 + .00000, .00002, .00002,
3451 + .04109, .00891, .00126, .00005, .00000,
3452 + .00000, .00002, .00002,
3453 + .03840, .00829, .00114, .00004, .00000,
3454 + .00000, .00002, .00002,
3455 + .03611, .00778, .00104, .00004, .00000,
3456 + .00000, .00002, .00002,
3457 + .03341, .00717, .00092, .00004, .00000,
3458 + .00000, .00001, .00001,
3459 + .03109, .00665, .00083, .00003, .00000,
3460 + .00000, .00001, .00001,
3461 + .02907, .00620, .00075, .00003, .00000,
3462 + .00000, .00001, .00001 /
3463 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
3464 + .02719, .00578, .00068, .00003, .00000,
3465 + .00000, .00001, .00001,
3466 + .02549, .00540, .00062, .00003, .00000,
3467 + .00000, .00001, .00001,
3468 + .02400, .00507, .00057, .00002, .00000,
3469 + .00000, .00001, .00001,
3470 + .02267, .00478, .00053, .00002, .00000,
3471 + .00000, .00001, .00001,
3472 + .02141, .00450, .00049, .00002, .00000,
3473 + .00000, .00001, .00001,
3474 + .02025, .00425, .00046, .00002, .00000,
3475 + .00000, .00001, .00001,
3476 + .01921, .00402, .00042, .00002, .00000,
3477 + .00000, .00001, .00001,
3478 + .01828, .00382, .00040, .00002, .00000,
3479 + .00000, .00001, .00001 /
3480 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/
3481 + .01740, .00362, .00037, .00002, .00000,
3482 + .00000, .00001, .00001,
3483 + .01657, .00344, .00035, .00002, .00000,
3484 + .00000, .00001, .00001,
3485 + .01582, .00328, .00033, .00002, .00000,
3486 + .00000, .00001, .00001,
3487 + .01514, .00314, .00031, .00002, .00000,
3488 + .00000, .00001, .00001,
3489 + .01448, .00299, .00029, .00001, .00000,
3490 + .00000, .00001, .00001 /
3491 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/
3492 + .09990, .02135, .00648, .00009, .00000,
3493 + .00000, .00002, .00003,
3494 + .09193, .01955, .00545, .00007, .00000,
3495 + .00000, .00002, .00003,
3496 + .08146, .01721, .00426, .00007, .00000,
3497 + .00000, .00001, .00002,
3498 + .07479, .01573, .00360, .00007, .00000,
3499 + .00000, .00002, .00001,
3500 + .06853, .01435, .00304, .00006, .00000,
3501 + .00000, .00001, .00001,
3502 + .06362, .01326, .00263, .00005, .00000,
3503 + .00000, .00002, .00001,
3504 + .05928, .01231, .00231, .00005, .00000,
3505 + .00000, .00002, .00002,
3506 + .05504, .01140, .00201, .00004, .00000,
3507 + .00000, .00001, .00002 /
3508 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
3509 + .05165, .01066, .00180, .00004, .00000,
3510 + .00000, .00001, .00001,
3511 + .04861, .01000, .00162, .00004, .00000,
3512 + .00000, .00001, .00001,
3513 + .04635, .00951, .00149, .00003, .00000,
3514 + .00000, .00001, .00001,
3515 + .04191, .00856, .00125, .00003, .00000,
3516 + .00000, .00001, .00001,
3517 + .03852, .00784, .00109, .00002, .00000,
3518 + .00000, .00001, .00001,
3519 + .03509, .00710, .00093, .00003, .00000,
3520 + .00000, .00001, .00001,
3521 + .03187, .00642, .00080, .00002, .00000,
3522 + .00000, .00001, .00001,
3523 + .02924, .00587, .00070, .00002, .00000,
3524 + .00000, .00001, .00001 /
3525 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
3526 + .02684, .00537, .00062, .00002, .00000,
3527 + .00000, .00000, .00000,
3528 + .02502, .00499, .00056, .00001, .00000,
3529 + .00000, .00000, .00001,
3530 + .02298, .00456, .00049, .00001, .00000,
3531 + .00000, .00001, .00001,
3532 + .02133, .00423, .00044, .00001, .00000,
3533 + .00000, .00000, .00001,
3534 + .01994, .00394, .00040, .00001, .00000,
3535 + .00000, .00000, .00001,
3536 + .01832, .00360, .00036, .00001, .00000,
3537 + .00000, .00000, .00000,
3538 + .01693, .00332, .00032, .00001, .00000,
3539 + .00000, .00000, .00000,
3540 + .01573, .00307, .00029, .00001, .00000,
3541 + .00000, .00000, .00001 /
3542 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
3543 + .01462, .00285, .00026, .00001, .00000,
3544 + .00000, .00000, .00000,
3545 + .01362, .00265, .00024, .00001, .00000,
3546 + .00000, .00000, .00000,
3547 + .01275, .00247, .00022, .00001, .00000,
3548 + .00000, .00000, .00000,
3549 + .01197, .00232, .00020, .00001, .00000,
3550 + .00000, .00000, .00000,
3551 + .01125, .00217, .00019, .00001, .00000,
3552 + .00000, .00000, .00000,
3553 + .01059, .00204, .00017, .00001, .00000,
3554 + .00000, .00000, .00000,
3555 + .01000, .00192, .00016, .00000, .00000,
3556 + .00000, .00000, .00000,
3557 + .00947, .00181, .00015, .00000, .00000,
3558 + .00000, .00000, .00000 /
3559 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/
3560 + .00897, .00171, .00014, .00000, .00000,
3561 + .00000, .00000, .00000,
3562 + .00850, .00162, .00013, .00001, .00000,
3563 + .00000, .00000, .00000,
3564 + .00808, .00154, .00012, .00001, .00000,
3565 + .00000, .00000, .00000,
3566 + .00770, .00146, .00012, .00001, .00000,
3567 + .00000, .00000, .00000,
3568 + .00734, .00139, .00011, .00000, .00000,
3569 + .00000, .00000, .00000 /
3570 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/
3571 + .05773, .01116, .00219, .00003, .00000,
3572 + .00000, .00000, .00000,
3573 + .05263, .01013, .00183, .00003, .00000,
3574 + .00000, .00000, .00000,
3575 + .04605, .00880, .00143, .00002, .00000,
3576 + .00000, .00000, .00000,
3577 + .04188, .00798, .00120, .00002, .00000,
3578 + .00000, .00000, .00001,
3579 + .03803, .00721, .00101, .00001, .00000,
3580 + .00000, .00000, .00001,
3581 + .03502, .00661, .00088, .00001, .00000,
3582 + .00000, .00000, .00001,
3583 + .03239, .00609, .00077, .00001, .00000,
3584 + .00000, .00000, .00001,
3585 + .02985, .00560, .00067, .00001, .00000,
3586 + .00000, .00000, .00000 /
3587 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
3588 + .02782, .00520, .00060, .00001, .00000,
3589 + .00000, .00000, .00000,
3590 + .02601, .00484, .00054, .00001, .00000,
3591 + .00000, .00000, .00000,
3592 + .02467, .00459, .00050, .00001, .00000,
3593 + .00000, .00000, .00000,
3594 + .02209, .00409, .00042, .00001, .00000,
3595 + .00000, .00000, .00000,
3596 + .02012, .00371, .00037, .00001, .00000,
3597 + .00000, .00000, .00000,
3598 + .01816, .00333, .00032, .00001, .00000,
3599 + .00000, .00000, .00000,
3600 + .01633, .00298, .00027, .00001, .00000,
3601 + .00000, .00000, .00000,
3602 + .01486, .00270, .00024, .00001, .00000,
3603 + .00000, .00000, .00000 /
3604 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/
3605 + .01352, .00245, .00021, .00000, .00000,
3606 + .00000, .00000, .00000,
3607 + .01251, .00226, .00019, .00001, .00000,
3608 + .00000, .00000, .00000,
3609 + .01139, .00205, .00017, .00000, .00000,
3610 + .00000, .00000, .00000,
3611 + .01050, .00188, .00015, .00000, .00000,
3612 + .00000, .00000, .00000,
3613 + .00976, .00175, .00014, .00000, .00000,
3614 + .00000, .00000, .00000,
3615 + .00889, .00158, .00012, .00000, .00000,
3616 + .00000, .00000, .00000,
3617 + .00814, .00145, .00011, .00000, .00000,
3618 + .00000, .00000, .00000,
3619 + .00751, .00133, .00010, .00000, .00000,
3620 + .00000, .00000, .00000 /
3621 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/
3622 + .00693, .00123, .00009, .00000, .00000,
3623 + .00000, .00000, .00000,
3624 + .00642, .00113, .00008, .00000, .00000,
3625 + .00000, .00000, .00000,
3626 + .00597, .00105, .00007, .00000, .00000,
3627 + .00000, .00000, .00000,
3628 + .00557, .00098, .00007, .00000, .00000,
3629 + .00000, .00000, .00000,
3630 + .00520, .00091, .00006, .00000, .00000,
3631 + .00000, .00000, .00000,
3632 + .00487, .00085, .00006, .00000, .00000,
3633 + .00000, .00000, .00000,
3634 + .00457, .00080, .00005, .00000, .00000,
3635 + .00000, .00000, .00000,
3636 + .00431, .00075, .00005, .00000, .00000,
3637 + .00000, .00000, .00000 /
3638 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=33,37)/
3639 + .00406, .00070, .00005, .00000, .00000,
3640 + .00000, .00000, .00000,
3641 + .00383, .00066, .00004, .00000, .00000,
3642 + .00000, .00000, .00000,
3643 + .00362, .00063, .00004, .00000, .00000,
3644 + .00000, .00000, .00000,
3645 + .00344, .00059, .00004, .00000, .00000,
3646 + .00000, .00000, .00000,
3647 + .00326, .00056, .00004, .00000, .00000,
3648 + .00000, .00000, .00000 /
3649 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/
3650 + .02869, .00493, .00056, .00000, .00000,
3651 + .00000, .00000, .00000,
3652 + .02589, .00443, .00047, .00000, .00000,
3653 + .00000, .00000, .00000,
3654 + .02231, .00379, .00037, .00000, .00000,
3655 + .00000, .00000, .00000,
3656 + .02008, .00340, .00031, .00000, .00000,
3657 + .00000, .00000, .00000,
3658 + .01803, .00304, .00027, .00000, .00000,
3659 + .00000, .00000, .00000,
3660 + .01646, .00276, .00023, .00000, .00000,
3661 + .00000, .00000, .00000,
3662 + .01509, .00252, .00021, .00000, .00000,
3663 + .00000, .00000, .00000,
3664 + .01378, .00230, .00018, .00000, .00000,
3665 + .00000, .00000, .00000 /
3666 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=9,16)/
3667 + .01274, .00212, .00016, .00000, .00000,
3668 + .00000, .00000, .00000,
3669 + .01183, .00196, .00015, .00000, .00000,
3670 + .00000, .00000, .00000,
3671 + .01116, .00185, .00014, .00000, .00000,
3672 + .00000, .00000, .00000,
3673 + .00987, .00162, .00012, .00000, .00000,
3674 + .00000, .00000, .00000,
3675 + .00890, .00146, .00010, .00000, .00000,
3676 + .00000, .00000, .00000,
3677 + .00794, .00130, .00009, .00000, .00000,
3678 + .00000, .00000, .00000,
3679 + .00706, .00115, .00008, .00000, .00000,
3680 + .00000, .00000, .00000,
3681 + .00636, .00103, .00007, .00000, .00000,
3682 + .00000, .00000, .00000 /
3683 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=17,24)/
3684 + .00573, .00092, .00006, .00000, .00000,
3685 + .00000, .00000, .00000,
3686 + .00526, .00085, .00005, .00000, .00000,
3687 + .00000, .00000, .00000,
3688 + .00474, .00076, .00005, .00000, .00000,
3689 + .00000, .00000, .00000,
3690 + .00433, .00069, .00004, .00000, .00000,
3691 + .00000, .00000, .00000,
3692 + .00399, .00064, .00004, .00000, .00000,
3693 + .00000, .00000, .00000,
3694 + .00360, .00057, .00003, .00000, .00000,
3695 + .00000, .00000, .00000,
3696 + .00327, .00052, .00003, .00000, .00000,
3697 + .00000, .00000, .00000,
3698 + .00299, .00047, .00003, .00000, .00000,
3699 + .00000, .00000, .00000 /
3700 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/
3701 + .00274, .00043, .00002, .00000, .00000,
3702 + .00000, .00000, .00000,
3703 + .00251, .00040, .00002, .00000, .00000,
3704 + .00000, .00000, .00000,
3705 + .00232, .00036, .00002, .00000, .00000,
3706 + .00000, .00000, .00000,
3707 + .00215, .00034, .00002, .00000, .00000,
3708 + .00000, .00000, .00000,
3709 + .00199, .00031, .00002, .00000, .00000,
3710 + .00000, .00000, .00000,
3711 + .00185, .00029, .00002, .00000, .00000,
3712 + .00000, .00000, .00000,
3713 + .00173, .00027, .00001, .00000, .00000,
3714 + .00000, .00000, .00000,
3715 + .00162, .00025, .00001, .00000, .00000,
3716 + .00000, .00000, .00000 /
3717 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/
3718 + .00152, .00024, .00001, .00000, .00000,
3719 + .00000, .00000, .00000,
3720 + .00142, .00022, .00001, .00000, .00000,
3721 + .00000, .00000, .00000,
3722 + .00134, .00021, .00001, .00000, .00000,
3723 + .00000, .00000, .00000,
3724 + .00126, .00019, .00001, .00000, .00000,
3725 + .00000, .00000, .00000,
3726 + .00119, .00018, .00001, .00000, .00000,
3727 + .00000, .00000, .00000 /
3728 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/
3729 + .00298, .00037, .00001, .00000, .00000,
3730 + .00000, .00000, .00000,
3731 + .00261, .00032, .00001, .00000, .00000,
3732 + .00000, .00000, .00000,
3733 + .00215, .00026, .00001, .00000, .00000,
3734 + .00000, .00000, .00000,
3735 + .00188, .00023, .00001, .00000, .00000,
3736 + .00000, .00000, .00000,
3737 + .00163, .00020, .00001, .00000, .00000,
3738 + .00000, .00000, .00000,
3739 + .00145, .00017, .00001, .00000, .00000,
3740 + .00000, .00000, .00000,
3741 + .00130, .00016, .00001, .00000, .00000,
3742 + .00000, .00000, .00000,
3743 + .00115, .00014, .00001, .00000, .00000,
3744 + .00000, .00000, .00000 /
3745 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/
3746 + .00104, .00012, .00001, .00000, .00000,
3747 + .00000, .00000, .00000,
3748 + .00095, .00011, .00001, .00000, .00000,
3749 + .00000, .00000, .00000,
3750 + .00088, .00010, .00000, .00000, .00000,
3751 + .00000, .00000, .00000,
3752 + .00075, .00009, .00000, .00000, .00000,
3753 + .00000, .00000, .00000,
3754 + .00066, .00008, .00000, .00000, .00000,
3755 + .00000, .00000, .00000,
3756 + .00057, .00007, .00000, .00000, .00000,
3757 + .00000, .00000, .00000,
3758 + .00049, .00006, .00000, .00000, .00000,
3759 + .00000, .00000, .00000,
3760 + .00043, .00005, .00000, .00000, .00000,
3761 + .00000, .00000, .00000 /
3762 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/
3763 + .00037, .00004, .00000, .00000, .00000,
3764 + .00000, .00000, .00000,
3765 + .00034, .00004, .00000, .00000, .00000,
3766 + .00000, .00000, .00000,
3767 + .00029, .00003, .00000, .00000, .00000,
3768 + .00000, .00000, .00000,
3769 + .00026, .00003, .00000, .00000, .00000,
3770 + .00000, .00000, .00000,
3771 + .00024, .00003, .00000, .00000, .00000,
3772 + .00000, .00000, .00000,
3773 + .00021, .00002, .00000, .00000, .00000,
3774 + .00000, .00000, .00000,
3775 + .00018, .00002, .00000, .00000, .00000,
3776 + .00000, .00000, .00000,
3777 + .00016, .00002, .00000, .00000, .00000,
3778 + .00000, .00000, .00000 /
3779 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
3780 + .00015, .00002, .00000, .00000, .00000,
3781 + .00000, .00000, .00000,
3782 + .00013, .00002, .00000, .00000, .00000,
3783 + .00000, .00000, .00000,
3784 + .00012, .00001, .00000, .00000, .00000,
3785 + .00000, .00000, .00000,
3786 + .00011, .00001, .00000, .00000, .00000,
3787 + .00000, .00000, .00000,
3788 + .00010, .00001, .00000, .00000, .00000,
3789 + .00000, .00000, .00000,
3790 + .00009, .00001, .00000, .00000, .00000,
3791 + .00000, .00000, .00000,
3792 + .00008, .00001, .00000, .00000, .00000,
3793 + .00000, .00000, .00000,
3794 + .00007, .00001, .00000, .00000, .00000,
3795 + .00000, .00000, .00000 /
3796 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
3797 + .00007, .00001, .00000, .00000, .00000,
3798 + .00000, .00000, .00000,
3799 + .00006, .00001, .00000, .00000, .00000,
3800 + .00000, .00000, .00000,
3801 + .00006, .00001, .00000, .00000, .00000,
3802 + .00000, .00000, .00000,
3803 + .00005, .00001, .00000, .00000, .00000,
3804 + .00000, .00000, .00000,
3805 + .00005, .00001, .00000, .00000, .00000,
3806 + .00000, .00000, .00000 /
3807 data xx/1d-5,2d-5,4d-5,6d-5,8d-5,
3808 . 1d-4,2d-4,4d-4,6d-4,8d-4,
3809 . 1d-3,2d-3,4d-3,6d-3,8d-3,
3810 . 1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2,
3811 . .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0,
3812 . .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0,
3813 . .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0,
3815 data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1,
3816 . 1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2,
3817 . 1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4,
3818 . 1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6,
3819 . 1.8d6,3.2d6,5.6d6,1d7/
3820 data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/
3821 data n0/3,4,5,9,9,9,9,9/
3822 DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
3827 if(init.ne.0) goto 10
3828 C open(unit=1,file='cor01.dat',status='old')
3831 C read(1,50)f(1,n,m),f(2,n,m),f(3,n,m),f(4,n,m),
3832 C . f(5,n,m),f(7,n,m),f(6,n,m),f(8,n,m)
3833 c notation: 1=uval 2=val 3=glue 4=usea 5=chm 6=str 7=btm 8=dsea
3835 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i)
3838 xx(j)= log10(xx(j)/xx(ntenth))+xx(ntenth)
3840 if(i.eq.5.or.i.eq.7) goto 31
3842 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k)
3850 if(x.lt.xmin) x=xmin
3851 if(x.gt.xmax) x=xmax
3852 if(qsq.lt.qsqmin) qsq=qsqmin
3853 if(qsq.gt.qsqmax) qsq=qsqmax
3855 if(x.lt.xx(ntenth)) xxx= log10(x/xx(ntenth))+xx(ntenth)
3858 if(xxx.gt.xx(n+1)) goto 70
3859 a=(xxx-xx(n))/(xx(n+1)-xx(n))
3862 if(qsq.gt.qq(m+1)) goto 80
3863 b=(qsq-qq(m))/(qq(m+1)-qq(m))
3865 g(i)=(ONED-a)*(ONED-b)*f(i,n,m) + (ONED-a)*b*f(i,n,m+1)
3866 . + a*(ONED-b)*f(i,n+1,m) + a*b*f(i,n+1,m+1)
3867 if(n.ge.ntenth) goto 65
3868 if(i.eq.5.or.i.eq.7) goto 65
3869 fac=(ONED-b)*f(i,ntenth,m)+b*f(i,ntenth,m+1)
3870 g(i)=fac*10d0**(g(i)-fac)
3872 g(i)=g(i)*(ONED-x)**n0(i)
git://git.uio.no / u / mrichter / AliRoot.git / blob