2 subroutine sfmrs_99a5(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 + .00384, .00181, 1.10758, .81616, .00000,
17 + .00000, .43904, .82509,
18 + .00402, .00189, 2.42317, .85953, .00000,
19 + .00000, .48784, .86857,
20 + .00428, .00201, 5.00081, .95097, .00706,
21 + .00000, .58681, .96016,
22 + .00447, .00210, 7.29271, 1.03845, .12104,
23 + .00000, .67939, 1.04773,
24 + .00467, .00219, 10.27976, 1.15069, .24987,
25 + .00000, .79678, 1.16006,
26 + .00484, .00228, 13.35071, 1.26448, .37145,
27 + .00000, .91485, 1.27393,
28 + .00500, .00236, 16.78503, 1.38883, .50416,
29 + .00000, 1.04316, 1.39834,
30 + .00518, .00244, 20.99893, 1.53761, .66320,
31 + .00000, 1.19603, 1.54718 /
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 + .00533, .00252, 25.17682, 1.68149, .81788,
34 + .00000, 1.34334, 1.69111,
35 + .00548, .00259, 29.65268, 1.83443, .97952,
36 + .00000, 1.49952, 1.84410,
37 + .00559, .00265, 33.50784, 1.96561, 1.11636,
38 + .00000, 1.63321, 1.97531,
39 + .00584, .00278, 42.67230, 2.27553, 1.44148,
40 + .00022, 1.94831, 2.28529,
41 + .00606, .00289, 51.36903, 2.57602, 1.75584,
42 + .25464, 2.25309, 2.58583,
43 + .00631, .00302, 62.06824, 2.94919, 2.14460,
44 + .71924, 2.63088, 2.95905,
45 + .00656, .00315, 74.70134, 3.38165, 2.59378,
46 + 1.19207, 3.06801, 3.39156,
47 + .00680, .00327, 87.46950, 3.81335, 3.04135,
48 + 1.66499, 3.50380, 3.82329 /
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 + .00704, .00340, 101.66980, 4.28954, 3.53421,
51 + 2.18194, 3.98400, 4.29951,
52 + .00724, .00350, 114.45491, 4.71631, 3.97452,
53 + 2.63951, 4.41403, 4.72631,
54 + .00748, .00363, 131.16171, 5.27302, 4.54697,
55 + 3.23054, 4.97458, 5.28304,
56 + .00770, .00375, 147.11221, 5.80311, 5.09175,
57 + 3.79398, 5.50798, 5.81315,
58 + .00790, .00386, 162.79094, 6.32216, 5.62616,
59 + 4.35026, 6.02999, 6.33221,
60 + .00816, .00399, 183.90334, 7.02394, 6.34532,
61 + 5.09034, 6.73544, 7.03401,
62 + .00841, .00412, 205.07019, 7.72975, 7.06707,
63 + 5.83072, 7.44461, 7.73982,
64 + .00864, .00425, 226.18028, 8.43423, 7.78788,
65 + 6.57239, 8.15218, 8.44431 /
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 + .00887, .00437, 248.54242, 9.18170, 8.55280,
68 + 7.36054, 8.90265, 9.19178,
69 + .00910, .00450, 271.31281, 9.95017, 9.33568,
70 + 8.15977, 9.67401, 9.96025,
71 + .00932, .00462, 294.05557, 10.71837, 10.11963,
72 + 8.96412, 10.44488, 10.72845,
73 + .00953, .00473, 316.33887, 11.47575, 10.89125,
74 + 9.75341, 11.20473, 11.48583,
75 + .00974, .00484, 339.58911, 12.27033, 11.70016,
76 + 10.58027, 12.00175, 12.28041,
77 + .00995, .00496, 363.41312, 13.08758, 12.53227,
78 + 11.43165, 12.82136, 13.09766,
79 + .01015, .00507, 386.68433, 13.89274, 13.35047,
80 + 12.26592, 13.62872, 13.90281,
81 + .01035, .00517, 409.55508, 14.68627, 14.15740,
82 + 13.09038, 14.42430, 14.69633 /
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 + .01054, .00528, 433.16504, 15.51206, 14.99596,
85 + 13.94501, 15.25213, 15.52212,
86 + .01073, .00539, 457.20969, 16.35699, 15.85395,
87 + 14.81977, 16.09904, 16.36705,
88 + .01092, .00549, 480.76395, 17.18941, 16.69898,
89 + 15.68126, 16.93332, 17.19946,
90 + .01110, .00559, 503.53922, 18.00079, 17.52152,
91 + 16.51786, 17.74644, 18.01083,
92 + .01128, .00569, 527.45172, 18.85291, 18.38677,
93 + 17.40124, 18.60029, 18.86294 /
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 + .00530, .00251, .99891, .69905, .00000,
96 + .00000, .37540, .70429,
97 + .00556, .00263, 2.16061, .73765, .00000,
98 + .00000, .41833, .74295,
99 + .00593, .00281, 4.39455, .81656, .00613,
100 + .00000, .50325, .82194,
101 + .00619, .00294, 6.34383, .89050, .10229,
102 + .00000, .58126, .89594,
103 + .00647, .00308, 8.84640, .98413, .20972,
104 + .00000, .67898, .98963,
105 + .00671, .00321, 11.38391, 1.07801, .30989,
106 + .00000, .77623, 1.08354,
107 + .00694, .00332, 14.18857, 1.17969, .41822,
108 + .00000, .88106, 1.18526,
109 + .00719, .00345, 17.59114, 1.30037, .54689,
110 + .00000, 1.00496, 1.30598 /
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 + .00740, .00356, 20.92980, 1.41622, .67105,
113 + .00000, 1.12352, 1.42187,
114 + .00761, .00367, 24.47249, 1.53852, .79983,
115 + .00000, 1.24837, 1.54419,
116 + .00778, .00375, 27.49891, 1.64278, .90818,
117 + .00000, 1.35460, 1.64847,
118 + .00813, .00393, 34.61641, 1.88725, 1.16358,
119 + .00019, 1.60315, 1.89298,
120 + .00843, .00409, 41.27947, 2.12209, 1.40817,
121 + .19778, 1.84135, 2.12785,
122 + .00877, .00427, 49.37334, 2.41116, 1.70794,
123 + .55650, 2.13405, 2.41696,
124 + .00913, .00446, 58.81293, 2.74306, 2.05104,
125 + .91742, 2.46960, 2.74890,
126 + .00945, .00464, 68.24306, 3.07147, 2.38994,
127 + 1.27517, 2.80122, 3.07734 /
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 + .00978, .00481, 78.61852, 3.43080, 2.76009,
130 + 1.66292, 3.16369, 3.43669,
131 + .01006, .00496, 87.87019, 3.75047, 3.08836,
132 + 2.00350, 3.48589, 3.75638,
133 + .01040, .00514, 99.84468, 4.16441, 3.51201,
134 + 2.44010, 3.90283, 4.17034,
135 + .01070, .00531, 111.17058, 4.55571, 3.91233,
136 + 2.85333, 4.29672, 4.56166,
137 + .01098, .00546, 122.21507, 4.93648, 4.30266,
138 + 3.25888, 4.67980, 4.94245,
139 + .01133, .00565, 136.95227, 5.44766, 4.82420,
140 + 3.79442, 5.19384, 5.45365,
141 + .01167, .00583, 151.58902, 5.95801, 5.34383,
142 + 4.32621, 5.70682, 5.96401,
143 + .01198, .00600, 166.06615, 6.46407, 5.85948,
144 + 4.85559, 6.21528, 6.47009 /
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 + .01230, .00618, 181.28224, 6.99767, 6.40338,
147 + 5.41476, 6.75122, 7.00370,
148 + .01262, .00635, 196.64653, 7.54268, 6.95637,
149 + 5.97786, 7.29848, 7.54872,
150 + .01291, .00651, 211.88655, 8.08447, 7.50718,
151 + 6.54169, 7.84235, 8.09052,
152 + .01320, .00667, 226.71487, 8.61568, 8.04635,
153 + 7.09186, 8.37549, 8.62174,
154 + .01349, .00683, 242.08498, 9.17007, 8.60867,
155 + 7.66526, 8.93178, 9.17613,
156 + .01377, .00698, 257.73770, 9.73745, 9.18435,
157 + 8.25287, 9.50099, 9.74352,
158 + .01404, .00713, 272.92841, 10.29358, 9.74750,
159 + 8.82565, 10.05884, 10.29966,
160 + .01430, .00728, 287.77872, 10.83930, 10.30060,
161 + 9.38943, 10.60616, 10.84539 /
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 + .01457, .00742, 303.01962, 11.40461, 10.87274,
164 + 9.97109, 11.17305, 11.41070,
165 + .01483, .00757, 318.46014, 11.98057, 11.45572,
166 + 10.56404, 11.75055, 11.98666,
167 + .01508, .00771, 333.50778, 12.54563, 12.02756,
168 + 11.14563, 12.31707, 12.55173,
169 + .01532, .00784, 347.98172, 13.09414, 12.58188,
170 + 11.70804, 12.86695, 13.10025,
171 + .01557, .00798, 363.12021, 13.66830, 13.16321,
172 + 12.30025, 13.44246, 13.67441 /
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 + .00733, .00349, .90106, .59850, .00000,
175 + .00000, .32103, .60112,
176 + .00768, .00367, 1.92671, .63276, .00000,
177 + .00000, .35877, .63541,
178 + .00821, .00394, 3.86192, .70081, .00532,
179 + .00000, .43161, .70350,
180 + .00858, .00413, 5.51834, .76327, .08642,
181 + .00000, .49730, .76600,
182 + .00898, .00434, 7.61243, .84129, .17597,
183 + .00000, .57857, .84405,
184 + .00932, .00452, 9.70594, .91861, .25844,
185 + .00000, .65857, .92139,
186 + .00964, .00469, 11.99224, 1.00161, .34680,
187 + .00000, .74404, 1.00441,
188 + .00999, .00487, 14.73405, 1.09929, .45081,
189 + .00000, .84426, 1.10211 /
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 + .01029, .00503, 17.39600, 1.19234, .55037,
192 + .00000, .93945, 1.19518,
193 + .01058, .00519, 20.19309, 1.28987, .65287,
194 + .00000, 1.03898, 1.29273,
195 + .01081, .00531, 22.56251, 1.37250, .73854,
196 + .00000, 1.12316, 1.37537,
197 + .01130, .00557, 28.07409, 1.56474, .93889,
198 + .00017, 1.31861, 1.56765,
199 + .01172, .00580, 33.16216, 1.74767, 1.12889,
200 + .15355, 1.50417, 1.75059,
201 + .01220, .00606, 39.26265, 1.97081, 1.35962,
202 + .43038, 1.73015, 1.97376,
203 + .01269, .00632, 46.28809, 2.22459, 1.62118,
204 + .70570, 1.98677, 2.22756,
205 + .01314, .00657, 53.22330, 2.47346, 1.87723,
206 + .97613, 2.23814, 2.47646 /
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 + .01360, .00682, 60.77003, 2.74350, 2.15458,
209 + 1.26671, 2.51063, 2.74652,
210 + .01398, .00703, 67.43280, 2.98193, 2.39869,
211 + 1.51994, 2.75103, 2.98497,
212 + .01445, .00728, 75.97246, 3.28838, 2.71138,
213 + 1.84208, 3.05981, 3.29145,
214 + .01486, .00751, 83.97243, 3.57593, 3.00469,
215 + 2.14473, 3.34936, 3.57902,
216 + .01524, .00772, 91.71035, 3.85397, 3.28893,
217 + 2.43995, 3.62920, 3.85707,
218 + .01573, .00799, 101.93859, 4.22455, 3.66595,
219 + 2.82682, 4.00200, 4.22767,
220 + .01619, .00824, 111.99934, 4.59176, 4.03879,
221 + 3.20808, 4.37124, 4.59490,
222 + .01662, .00848, 121.86608, 4.95345, 4.40637,
223 + 3.58516, 4.73479, 4.95661 /
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 + .01706, .00873, 132.15349, 5.33242, 4.79169,
226 + 3.98101, 5.11557, 5.33560,
227 + .01748, .00896, 142.45041, 5.71690, 5.18077,
228 + 4.37678, 5.50179, 5.72010,
229 + .01789, .00919, 152.59236, 6.09695, 5.56622,
230 + 4.77099, 5.88345, 6.10016,
231 + .01828, .00940, 162.38911, 6.46746, 5.94140,
232 + 5.15344, 6.25546, 6.47069,
233 + .01867, .00962, 172.47501, 6.85208, 6.33062,
234 + 5.54993, 6.64155, 6.85533,
235 + .01905, .00984, 182.68158, 7.24373, 6.72713,
236 + 5.95428, 7.03462, 7.24699,
237 + .01942, .01004, 192.51953, 7.62560, 7.11296,
238 + 6.34627, 7.41781, 7.62887,
239 + .01977, .01024, 202.08534, 7.99868, 7.49030,
240 + 6.73052, 7.79213, 8.00197 /
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 + .02013, .01044, 211.84239, 8.38331, 7.87877,
243 + 7.12502, 8.17798, 8.38661,
244 + .02048, .01064, 221.67412, 8.77350, 8.27295,
245 + 7.52551, 8.56937, 8.77681,
246 + .02082, .01082, 231.20451, 9.15468, 8.65796,
247 + 7.91670, 8.95168, 9.15802,
248 + .02114, .01101, 240.32123, 9.52314, 9.02959,
249 + 8.29332, 9.32118, 9.52648,
250 + .02147, .01119, 249.81972, 9.90753, 9.41814,
251 + 8.68878, 9.70663, 9.91088 /
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 + .00885, .00424, .84846, .54638, .00000,
254 + .00000, .29299, .54791,
255 + .00929, .00446, 1.80199, .57831, .00000,
256 + .00000, .32797, .57986,
257 + .00993, .00480, 3.58091, .64067, .00490,
258 + .00000, .39454, .64225,
259 + .01039, .00505, 5.08614, .69724, .07829,
260 + .00000, .45393, .69884,
261 + .01088, .00530, 6.97168, .76732, .15876,
262 + .00000, .52685, .76894,
263 + .01129, .00552, 8.84081, .83628, .23234,
264 + .00000, .59815, .83792,
265 + .01169, .00574, 10.86750, .90991, .31073,
266 + .00000, .67394, .91156,
267 + .01211, .00596, 13.28125, .99611, .40252,
268 + .00000, .76236, .99779 /
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 + .01248, .00616, 15.60994, 1.07786, .48996,
271 + .00000, .84597, 1.07956,
272 + .01283, .00635, 18.04255, 1.16317, .57957,
273 + .00000, .93302, 1.16488,
274 + .01311, .00651, 20.09284, 1.23517, .65420,
275 + .00000, 1.00637, 1.23689,
276 + .01370, .00683, 24.83099, 1.40193, .82787,
277 + .00016, 1.17591, 1.40368,
278 + .01422, .00711, 29.16850, 1.55970, .99162,
279 + .13237, 1.33596, 1.56146,
280 + .01479, .00743, 34.32844, 1.75112, 1.18939,
281 + .37016, 1.52984, 1.75291,
282 + .01539, .00776, 40.22599, 1.96758, 1.41230,
283 + .60504, 1.74877, 1.96940,
284 + .01594, .00806, 46.00639, 2.17874, 1.62935,
285 + .83451, 1.96208, 2.18057 /
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 + .01649, .00836, 52.25506, 2.40671, 1.86330,
288 + 1.07981, 2.19217, 2.40857,
289 + .01695, .00862, 57.73912, 2.60710, 2.06828,
290 + 1.29259, 2.39426, 2.60898,
291 + .01751, .00893, 64.72672, 2.86351, 2.32966,
292 + 1.56203, 2.65268, 2.86541,
293 + .01801, .00921, 71.23519, 3.10304, 2.57379,
294 + 1.81406, 2.89394, 3.10497,
295 + .01847, .00946, 77.49985, 3.33379, 2.80949,
296 + 2.05900, 3.12623, 3.33573,
297 + .01905, .00979, 85.73389, 3.64000, 3.12076,
298 + 2.37853, 3.43436, 3.64197,
299 + .01961, .01010, 93.78600, 3.94207, 3.42720,
300 + 2.69198, 3.73818, 3.94407,
301 + .02012, .01039, 101.64271, 4.23842, 3.72814,
302 + 3.00080, 4.03613, 4.24044 /
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 + .02065, .01068, 109.79485, 4.54776, 4.04244,
305 + 3.32381, 4.34703, 4.54980,
306 + .02116, .01097, 117.91131, 4.86033, 4.35850,
307 + 3.64534, 4.66110, 4.86239,
308 + .02165, .01124, 125.87208, 5.16826, 4.67060,
309 + 3.96462, 4.97042, 5.17034,
310 + .02211, .01150, 133.52809, 5.46746, 4.97335,
311 + 4.27329, 5.27090, 5.46956,
312 + .02258, .01176, 141.37770, 5.77704, 5.28645,
313 + 4.59227, 5.58175, 5.77917,
314 + .02304, .01202, 149.29094, 6.09134, 5.60446,
315 + 4.91663, 5.89727, 6.09349,
316 + .02348, .01227, 156.88684, 6.39682, 5.91291,
317 + 5.23004, 6.20389, 6.39899,
318 + .02390, .01250, 164.24863, 6.69450, 6.21383,
319 + 5.53651, 6.50263, 6.69668 /
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 + .02432, .01274, 171.72954, 7.00051, 6.52272,
322 + 5.85023, 6.80970, 7.00272,
323 + .02474, .01298, 179.24321, 7.31015, 6.83536,
324 + 6.16792, 7.12037, 7.31238,
325 + .02514, .01320, 186.50284, 7.61188, 7.13997,
326 + 6.47744, 7.42306, 7.61412,
327 + .02553, .01342, 193.42378, 7.90277, 7.43322,
328 + 6.77465, 7.71486, 7.90503,
329 + .02592, .01364, 200.61838, 8.20567, 7.73928,
330 + 7.08622, 8.01867, 8.20795 /
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 + .01013, .00486, .81310, .51212, .00000,
333 + .00000, .27462, .51306,
334 + .01063, .00513, 1.71855, .54246, .00000,
335 + .00000, .30775, .54341,
336 + .01138, .00553, 3.39408, .60107, .00462,
337 + .00000, .37019, .60205,
338 + .01191, .00581, 4.80014, .65377, .07297,
339 + .00000, .42547, .65477,
340 + .01246, .00611, 6.54982, .71869, .14755,
341 + .00000, .49297, .71970,
342 + .01294, .00637, 8.27372, .78225, .21539,
343 + .00000, .55866, .78328,
344 + .01340, .00662, 10.13332, .84983, .28737,
345 + .00000, .62821, .85088,
346 + .01388, .00689, 12.33709, .92867, .37135,
347 + .00000, .70906, .92973 /
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 + .01431, .00712, 14.45354, 1.00319, .45107,
350 + .00000, .78527, 1.00427,
351 + .01471, .00734, 16.65511, 1.08071, .53250,
352 + .00000, .86437, 1.08180,
353 + .01503, .00752, 18.50394, 1.14596, .60013,
354 + .00000, .93085, 1.14707,
355 + .01572, .00789, 22.75643, 1.29658, .75699,
356 + .00015, 1.08398, 1.29771,
357 + .01630, .00822, 26.62579, 1.43849, .90426,
358 + .11910, 1.22796, 1.43964,
359 + .01696, .00858, 31.20276, 1.61001, 1.08144,
360 + .33252, 1.40170, 1.61119,
361 + .01765, .00897, 36.40554, 1.80317, 1.28032,
362 + .54230, 1.59709, 1.80438,
363 + .01828, .00931, 41.47878, 1.99087, 1.47323,
364 + .74645, 1.78675, 1.99210 /
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 + .01891, .00967, 46.93690, 2.19280, 1.68041,
367 + .96389, 1.99059, 2.19407,
368 + .01943, .00996, 51.70663, 2.36973, 1.86135,
369 + 1.15187, 2.16905, 2.37101,
370 + .02007, .01032, 57.75817, 2.59539, 2.09133,
371 + 1.38912, 2.39652, 2.59670,
372 + .02064, .01064, 63.37143, 2.80553, 2.30545,
373 + 1.61034, 2.60823, 2.80686,
374 + .02117, .01093, 68.75545, 3.00741, 2.51164,
375 + 1.82478, 2.81150, 3.00877,
376 + .02183, .01131, 75.80296, 3.27449, 2.78307,
377 + 2.10358, 3.08031, 3.27588,
378 + .02246, .01166, 82.66563, 3.53711, 3.04942,
379 + 2.37619, 3.34450, 3.53852,
380 + .02305, .01199, 89.33710, 3.79402, 3.31027,
381 + 2.64403, 3.60285, 3.79546 /
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 + .02365, .01232, 96.23544, 4.06145, 3.58197,
384 + 2.92343, 3.87169, 4.06292,
385 + .02423, .01265, 103.07688, 4.33090, 3.85437,
386 + 3.20067, 4.14249, 4.33240,
387 + .02478, .01297, 109.76664, 4.59571, 4.12273,
388 + 3.47535, 4.40855, 4.59723,
389 + .02531, .01326, 116.17979, 4.85238, 4.38241,
390 + 3.74025, 4.66637, 4.85392,
391 + .02584, .01356, 122.73541, 5.11735, 4.65035,
392 + 4.01336, 4.93248, 5.11892,
393 + .02636, .01385, 129.32597, 5.38577, 4.92192,
394 + 4.29049, 5.20200, 5.38736,
395 + .02686, .01414, 135.63300, 5.64606, 5.18472,
396 + 4.55762, 5.46332, 5.64768,
397 + .02733, .01440, 141.73140, 5.89923, 5.44063,
398 + 4.81838, 5.71745, 5.90087 /
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 + .02781, .01467, 147.91127, 6.15896, 5.70277,
401 + 5.08473, 5.97812, 6.16062,
402 + .02828, .01494, 154.10364, 6.42127, 5.96762,
403 + 5.35396, 6.24136, 6.42295,
404 + .02874, .01520, 160.07234, 6.67641, 6.22519,
405 + 5.61581, 6.49737, 6.67811,
406 + .02917, .01545, 165.74844, 6.92193, 6.47269,
407 + 5.86674, 6.74371, 6.92366,
408 + .02961, .01569, 171.63931, 7.17723, 6.73066,
409 + 6.12949, 6.99982, 7.17898 /
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 + .01124, .00541, .78676, .48700, .00000,
412 + .00000, .26119, .48757,
413 + .01181, .00572, 1.65658, .51616, .00000,
414 + .00000, .29294, .51674,
415 + .01264, .00617, 3.25595, .57199, .00441,
416 + .00000, .35236, .57260,
417 + .01323, .00649, 4.58939, .62187, .06908,
418 + .00000, .40464, .62249,
419 + .01385, .00683, 6.24009, .68303, .13938,
420 + .00000, .46820, .68367,
421 + .01439, .00712, 7.85869, .74266, .20306,
422 + .00000, .52982, .74333,
423 + .01490, .00740, 9.59762, .80588, .27043,
424 + .00000, .59486, .80656,
425 + .01544, .00770, 11.65037, .87941, .34878,
426 + .00000, .67027, .88011 /
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 + .01591, .00796, 13.61476, .94874, .42297,
429 + .00000, .74116, .94945,
430 + .01636, .00821, 15.65137, 1.02067, .49856,
431 + .00000, .81457, 1.02140,
432 + .01672, .00841, 17.35678, 1.08109, .56119,
433 + .00000, .87612, 1.08184,
434 + .01748, .00883, 21.26490, 1.22019, .70609,
435 + .00015, 1.01756, 1.22097,
436 + .01813, .00920, 24.80395, 1.35083, .84169,
437 + .10971, 1.15012, 1.35163,
438 + .01887, .00961, 28.97150, 1.50825, 1.00432,
439 + .30591, 1.30959, 1.50907,
440 + .01963, .01004, 33.68863, 1.68495, 1.18628,
441 + .49804, 1.48836, 1.68581,
442 + .02032, .01042, 38.26968, 1.85615, 1.36224,
443 + .68445, 1.66137, 1.85704 /
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 + .02103, .01082, 43.17985, 2.03982, 1.55069,
446 + .88241, 1.84680, 2.04073,
447 + .02161, .01115, 47.45617, 2.20033, 1.71486,
448 + 1.05311, 2.00873, 2.20127,
449 + .02232, .01155, 52.86355, 2.40453, 1.92299,
450 + 1.26799, 2.21461, 2.40550,
451 + .02295, .01190, 57.86293, 2.59423, 2.11628,
452 + 1.46785, 2.40575, 2.59523,
453 + .02353, .01223, 62.64492, 2.77608, 2.30203,
454 + 1.66119, 2.58889, 2.77710,
455 + .02426, .01264, 68.88399, 3.01607, 2.54595,
456 + 1.91191, 2.83047, 3.01712,
457 + .02496, .01303, 74.93923, 3.25145, 2.78470,
458 + 2.15643, 3.06731, 3.25254,
459 + .02561, .01340, 80.80870, 3.48120, 3.01798,
460 + 2.39614, 3.29839, 3.48232 /
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 + .02627, .01377, 86.86101, 3.71985, 3.26048,
463 + 2.64568, 3.53835, 3.72101,
464 + .02691, .01414, 92.84492, 3.95976, 3.50302,
465 + 2.89268, 3.77950, 3.96094,
466 + .02752, .01448, 98.68211, 4.19508, 3.74153,
467 + 3.13697, 4.01597, 4.19629,
468 + .02810, .01481, 104.26393, 4.42273, 3.97188,
469 + 3.37208, 4.24469, 4.42397,
470 + .02868, .01514, 109.95606, 4.65732, 4.20912,
471 + 3.61405, 4.48033, 4.65859,
472 + .02926, .01547, 115.66621, 4.89457, 4.44919,
473 + 3.85917, 4.71859, 4.89586,
474 + .02981, .01578, 121.11737, 5.12421, 4.68106,
475 + 4.09500, 4.94918, 5.12553,
476 + .03033, .01608, 126.37828, 5.34724, 4.90654,
477 + 4.32489, 5.17310, 5.34859 /
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 + .03086, .01637, 131.69798, 5.57567, 5.13713,
480 + 4.55931, 5.40240, 5.57704,
481 + .03138, .01667, 137.01837, 5.80604, 5.36976,
482 + 4.79593, 5.63363, 5.80744,
483 + .03188, .01695, 142.13680, 6.02979, 5.59568,
484 + 5.02572, 5.85818, 6.03122,
485 + .03236, .01722, 146.99477, 6.24479, 5.81244,
486 + 5.24560, 6.07394, 6.24624,
487 + .03284, .01750, 152.03023, 6.46811, 6.03815,
488 + 5.47562, 6.29801, 6.46959 /
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 + .01556, .00758, .71076, .41642, .00000,
491 + .00000, .22362, .41634,
492 + .01637, .00803, 1.47864, .44211, .00000,
493 + .00000, .25144, .44206,
494 + .01754, .00869, 2.86210, .49005, .00382,
495 + .00000, .30229, .49004,
496 + .01838, .00916, 3.99176, .53201, .05821,
497 + .00000, .34620, .53203,
498 + .01926, .00966, 5.36712, .58272, .11663,
499 + .00000, .39886, .58277,
500 + .02001, .01008, 6.69522, .63154, .16888,
501 + .00000, .44929, .63162,
502 + .02073, .01049, 8.10372, .68278, .22362,
503 + .00000, .50200, .68289,
504 + .02148, .01092, 9.74582, .74183, .28668,
505 + .00000, .56256, .74197 /
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 + .02214, .01130, 11.29942, .79704, .34588,
508 + .00000, .61904, .79721,
509 + .02277, .01166, 12.89312, .85387, .40573,
510 + .00000, .67705, .85406,
511 + .02327, .01194, 14.21548, .90128, .45498,
512 + .00000, .72538, .90150,
513 + .02433, .01255, 17.21022, 1.00952, .56795,
514 + .00013, .83549, 1.00978,
515 + .02525, .01307, 19.88082, 1.11013, .67259,
516 + .08485, .93765, 1.11044,
517 + .02626, .01365, 22.98075, 1.23019, .79686,
518 + .23567, 1.05936, 1.23055,
519 + .02732, .01425, 26.44164, 1.36360, .93448,
520 + .38158, 1.19443, 1.36401,
521 + .02828, .01480, 29.75934, 1.49162, 1.06629,
522 + .52181, 1.32389, 1.49208 /
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 + .02925, .01535, 33.27282, 1.62774, 1.20621,
525 + .66939, 1.46143, 1.62825,
526 + .03005, .01581, 36.29964, 1.74574, 1.32710,
527 + .79557, 1.58057, 1.74629,
528 + .03103, .01637, 40.08598, 1.89467, 1.47913,
529 + .95312, 1.73083, 1.89526,
530 + .03189, .01687, 43.54996, 2.03192, 1.61921,
531 + 1.09851, 1.86923, 2.03256,
532 + .03268, .01732, 46.83413, 2.16261, 1.75294,
533 + 1.23824, 2.00095, 2.16330,
534 + .03369, .01790, 51.07415, 2.33375, 1.92715,
535 + 1.41793, 2.17336, 2.33448,
536 + .03464, .01844, 55.14507, 2.50024, 2.09629,
537 + 1.59175, 2.34101, 2.50103,
538 + .03553, .01895, 59.05433, 2.66160, 2.26039,
539 + 1.76096, 2.50343, 2.66244 /
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 + .03642, .01946, 63.04982, 2.82808, 2.42984,
542 + 1.93594, 2.67095, 2.82897,
543 + .03729, .01996, 66.96047, 2.99421, 2.59803,
544 + 2.10777, 2.83806, 2.99514,
545 + .03812, .02044, 70.74601, 3.15618, 2.76247,
546 + 2.27675, 3.00095, 3.15716,
547 + .03890, .02089, 74.33606, 3.31191, 2.92030,
548 + 2.43837, 3.15753, 3.31294,
549 + .03969, .02134, 77.96896, 3.47147, 3.08191,
550 + 2.60372, 3.31792, 3.47253,
551 + .04047, .02178, 81.58766, 3.63195, 3.24457,
552 + 2.77035, 3.47922, 3.63306,
553 + .04121, .02220, 85.01472, 3.78639, 3.40076,
554 + 2.92968, 3.63441, 3.78755,
555 + .04191, .02261, 88.30257, 3.93569, 3.55195,
556 + 3.08431, 3.78442, 3.93689 /
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 + .04262, .02301, 91.60297, 4.08780, 3.70574,
559 + 3.24113, 3.93723, 4.08904,
560 + .04332, .02341, 94.88370, 4.24049, 3.86018,
561 + 3.39870, 4.09060, 4.24177,
562 + .04399, .02380, 98.02044, 4.38811, 4.00947,
563 + 3.55102, 4.23886, 4.38943,
564 + .04462, .02416, 100.97784, 4.52928, 4.15203,
565 + 3.69605, 4.38063, 4.53064,
566 + .04527, .02453, 104.03131, 4.67542, 4.30000,
567 + 3.84734, 4.52737, 4.67682 /
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 + .02161, .01069, .64329, .35606, .00000,
570 + .00000, .19174, .35599,
571 + .02276, .01136, 1.32136, .37857, .00000,
572 + .00000, .21603, .37856,
573 + .02442, .01232, 2.51674, .41956, .00330,
574 + .00000, .25944, .41963,
575 + .02560, .01301, 3.47147, .45470, .04889,
576 + .00000, .29621, .45484,
577 + .02684, .01374, 4.61352, .49654, .09727,
578 + .00000, .33968, .49675,
579 + .02789, .01435, 5.69857, .53630, .13997,
580 + .00000, .38077, .53657,
581 + .02890, .01494, 6.83366, .57759, .18425,
582 + .00000, .42329, .57791,
583 + .02996, .01556, 8.13971, .62472, .23478,
584 + .00000, .47167, .62510 /
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 + .03088, .01610, 9.36059, .66839, .28181,
587 + .00000, .51641, .66883,
588 + .03176, .01661, 10.59898, .71298, .32894,
589 + .00000, .56198, .71346,
590 + .03246, .01702, 11.61658, .74991, .36746,
591 + .00000, .59966, .75043,
592 + .03394, .01788, 13.89258, .83347, .45505,
593 + .00011, .68479, .83409,
594 + .03520, .01862, 15.88921, .91033, .53530,
595 + .06532, .76293, .91102,
596 + .03661, .01944, 18.17141, 1.00111, .62964,
597 + .18068, .85508, 1.00188,
598 + .03807, .02029, 20.68251, 1.10090, .73301,
599 + .29091, .95626, 1.10177,
600 + .03939, .02106, 23.05664, 1.19571, .83102,
601 + .39581, 1.05227, 1.19666 /
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 + .04073, .02184, 25.53887, 1.29558, .93408,
604 + .50516, 1.15331, 1.29661,
605 + .04183, .02248, 27.65253, 1.38142, 1.02238,
606 + .59785, 1.24011, 1.38253,
607 + .04317, .02326, 30.26614, 1.48885, 1.13247,
608 + .71259, 1.34865, 1.49004,
609 + .04435, .02395, 32.63048, 1.58704, 1.23307,
610 + .81760, 1.44780, 1.58830,
611 + .04543, .02458, 34.85106, 1.67988, 1.32845,
612 + .91785, 1.54150, 1.68121,
613 + .04680, .02537, 37.68542, 1.80045, 1.45165,
614 + 1.04564, 1.66313, 1.80187,
615 + .04809, .02612, 40.37518, 1.91675, 1.57023,
616 + 1.16818, 1.78040, 1.91826,
617 + .04930, .02682, 42.93225, 2.02862, 1.68444,
618 + 1.28662, 1.89316, 2.03021 /
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 + .05051, .02752, 45.52089, 2.14323, 1.80154,
621 + 1.40823, 2.00864, 2.14490,
622 + .05168, .02820, 48.02641, 2.25670, 1.91682,
623 + 1.52663, 2.12293, 2.25844,
624 + .05280, .02885, 50.43182, 2.36664, 2.02885,
625 + 1.64240, 2.23364, 2.36846,
626 + .05385, .02945, 52.69247, 2.47165, 2.13567,
627 + 1.75237, 2.33936, 2.47354,
628 + .05491, .03006, 54.96066, 2.57858, 2.24437,
629 + 1.86419, 2.44699, 2.58054,
630 + .05595, .03067, 57.20268, 2.68552, 2.35316,
631 + 1.97625, 2.55462, 2.68755,
632 + .05694, .03123, 59.30703, 2.78780, 2.45695,
633 + 2.08270, 2.65753, 2.78990,
634 + .05788, .03178, 61.31292, 2.88619, 2.55695,
635 + 2.18553, 2.75651, 2.88835 /
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 + .05883, .03232, 63.31005, 2.98586, 2.65808,
638 + 2.28920, 2.85677, 2.98809,
639 + .05976, .03286, 65.28190, 3.08543, 2.75915,
640 + 2.39287, 2.95691, 3.08772,
641 + .06065, .03337, 67.15421, 3.18121, 2.85637,
642 + 2.49259, 3.05323, 3.18356,
643 + .06150, .03385, 68.90620, 3.27234, 2.94872,
644 + 2.58703, 3.14487, 3.27475,
645 + .06236, .03435, 70.70773, 3.36636, 3.04427,
646 + 2.68525, 3.23939, 3.36883 /
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 + .02625, .01316, .60778, .32507, .00000,
649 + .00000, .17545, .32526,
650 + .02766, .01399, 1.23845, .34583, .00000,
651 + .00000, .19782, .34611,
652 + .02970, .01520, 2.33502, .38310, .00302,
653 + .00000, .23731, .38351,
654 + .03115, .01606, 3.19879, .41467, .04403,
655 + .00000, .27036, .41517,
656 + .03265, .01696, 4.22067, .45194, .08722,
657 + .00000, .30911, .45253,
658 + .03394, .01772, 5.18175, .48706, .12505,
659 + .00000, .34545, .48774,
660 + .03517, .01845, 6.17861, .52331, .16404,
661 + .00000, .38282, .52407,
662 + .03646, .01921, 7.31626, .56443, .20827,
663 + .00000, .42509, .56527 /
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 + .03758, .01987, 8.37179, .60233, .24921,
666 + .00000, .46397, .60325,
667 + .03865, .02051, 9.43498, .64083, .29005,
668 + .00000, .50336, .64182,
669 + .03950, .02101, 10.30334, .67258, .32327,
670 + .00000, .53580, .67363,
671 + .04129, .02207, 12.23051, .74403, .39842,
672 + .00011, .60869, .74520,
673 + .04282, .02297, 13.90380, .80931, .46682,
674 + .05583, .67515, .81059,
675 + .04452, .02397, 15.79799, .88594, .54673,
676 + .15405, .75305, .88734,
677 + .04628, .02501, 17.86324, .96963, .63371,
678 + .24720, .83800, .97115,
679 + .04787, .02594, 19.79900, 1.04865, .71567,
680 + .33531, .91813, 1.05027 /
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 + .04948, .02689, 21.80667, 1.13140, .80137,
683 + .42662, 1.00197, 1.13314,
684 + .05080, .02766, 23.50376, 1.20217, .87440,
685 + .50362, 1.07361, 1.20400,
686 + .05240, .02860, 25.58698, 1.29026, .96498,
687 + .59843, 1.16273, 1.29221,
688 + .05382, .02943, 27.45816, 1.37036, 1.04733,
689 + .68477, 1.24372, 1.37241,
690 + .05511, .03019, 29.20522, 1.44578, 1.12507,
691 + .76684, 1.31994, 1.44792,
692 + .05675, .03114, 31.41895, 1.54322, 1.22496,
693 + .87090, 1.41835, 1.54548,
694 + .05829, .03204, 33.50415, 1.63671, 1.32059,
695 + .97015, 1.51275, 1.63908,
696 + .05973, .03288, 35.47388, 1.72623, 1.41228,
697 + 1.06565, 1.60308, 1.72870 /
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 + .06116, .03371, 37.45588, 1.81753, 1.50587,
700 + 1.16328, 1.69520, 1.82011,
701 + .06256, .03452, 39.36028, 1.90748, 1.59754,
702 + 1.25783, 1.78591, 1.91015,
703 + .06389, .03529, 41.17906, 1.99429, 1.68629,
704 + 1.34995, 1.87344, 1.99706,
705 + .06514, .03601, 42.87833, 2.07688, 1.77056,
706 + 1.43709, 1.95669, 2.07974,
707 + .06639, .03674, 44.57386, 2.16064, 1.85599,
708 + 1.52534, 2.04111, 2.16360,
709 + .06762, .03745, 46.24157, 2.24413, 1.94119,
710 + 1.61349, 2.12523, 2.24718,
711 + .06879, .03812, 47.79761, 2.32366, 2.02215,
712 + 1.69687, 2.20535, 2.32679,
713 + .06990, .03876, 49.27473, 2.39993, 2.09992,
714 + 1.77720, 2.28218, 2.40314 /
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 + .07101, .03940, 50.73735, 2.47692, 2.17829,
717 + 1.85787, 2.35972, 2.48022,
718 + .07211, .04004, 52.17516, 2.55360, 2.25636,
719 + 1.93831, 2.43693, 2.55698,
720 + .07316, .04064, 53.53413, 2.62713, 2.33124,
721 + 2.01544, 2.51097, 2.63059,
722 + .07416, .04121, 54.79930, 2.69687, 2.40212,
723 + 2.08824, 2.58118, 2.70040,
724 + .07517, .04179, 56.09703, 2.76866, 2.47532,
725 + 2.16383, 2.65345, 2.77226 /
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 + .03019, .01532, .58441, .30493, .00000,
728 + .00000, .16487, .30539,
729 + .03182, .01630, 1.18360, .32449, .00000,
730 + .00000, .18594, .32506,
731 + .03417, .01772, 2.21454, .35926, .00283,
732 + .00000, .22279, .35999,
733 + .03584, .01872, 3.01817, .38846, .04080,
734 + .00000, .25339, .38931,
735 + .03758, .01976, 3.96102, .42269, .08057,
736 + .00000, .28902, .42367,
737 + .03907, .02065, 4.84105, .45478, .11521,
738 + .00000, .32226, .45586,
739 + .04048, .02149, 5.74804, .48774, .15075,
740 + .00000, .35628, .48892,
741 + .04196, .02238, 6.77680, .52496, .19089,
742 + .00000, .39459, .52625 /
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 + .04325, .02314, 7.72597, .55914, .22791,
745 + .00000, .42969, .56052,
746 + .04448, .02388, 8.67703, .59373, .26469,
747 + .00000, .46512, .59519,
748 + .04544, .02445, 9.45028, .62215, .29453,
749 + .00000, .49421, .62369,
750 + .04750, .02567, 11.15646, .68588, .36174,
751 + .00010, .55930, .68757,
752 + .04925, .02671, 12.62641, .74382, .42262,
753 + .04981, .61835, .74564,
754 + .05119, .02786, 14.27830, .81152, .49342,
755 + .13719, .68726, .81349,
756 + .05320, .02905, 16.06712, .88510, .57011,
757 + .21959, .76204, .88721,
758 + .05501, .03012, 17.73288, .95425, .64206,
759 + .29720, .83225, .95650 /
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 + .05684, .03120, 19.45009, 1.02637, .71695,
762 + .37729, .90541, 1.02876,
763 + .05835, .03209, 20.89364, 1.08780, .78053,
764 + .44455, .96767, 1.09030,
765 + .06017, .03315, 22.65584, 1.16397, .85907,
766 + .52705, 1.04482, 1.16661,
767 + .06177, .03410, 24.23022, 1.23297, .93022,
768 + .60190, 1.11468, 1.23573,
769 + .06324, .03496, 25.69360, 1.29773, .99717,
770 + .67284, 1.18020, 1.30060,
771 + .06509, .03604, 27.53759, 1.38108, 1.08285,
772 + .76242, 1.26448, 1.38409,
773 + .06683, .03705, 29.26467, 1.46073, 1.16455,
774 + .84752, 1.34500, 1.46388,
775 + .06846, .03800, 30.88819, 1.53674, 1.24262,
776 + .92912, 1.42179, 1.54000 /
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 + .07008, .03895, 32.51431, 1.61400, 1.32206,
779 + 1.01229, 1.49984, 1.61740,
780 + .07165, .03986, 34.06793, 1.68984, 1.39956,
781 + 1.09251, 1.57641, 1.69335,
782 + .07315, .04073, 35.54583, 1.76282, 1.47439,
783 + 1.17046, 1.65009, 1.76645,
784 + .07455, .04154, 36.92031, 1.83204, 1.54522,
785 + 1.24396, 1.71995, 1.83578,
786 + .07596, .04235, 38.28589, 1.90205, 1.61681,
787 + 1.31820, 1.79059, 1.90589,
788 + .07734, .04315, 39.62400, 1.97164, 1.68803,
789 + 1.39215, 1.86078, 1.97559,
790 + .07865, .04391, 40.86665, 2.03773, 1.75549,
791 + 1.46189, 1.92744, 2.04178,
792 + .07989, .04462, 42.04254, 2.10097, 1.82016,
793 + 1.52892, 1.99122, 2.10512 /
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 + .08114, .04534, 43.20185, 2.16464, 1.88514,
796 + 1.59607, 2.05542, 2.16888,
797 + .08237, .04605, 44.33762, 2.22790, 1.94974,
798 + 1.66286, 2.11920, 2.23223,
799 + .08354, .04672, 45.40723, 2.28842, 2.01154,
800 + 1.72677, 2.18021, 2.29285,
801 + .08465, .04735, 46.39894, 2.34568, 2.06990,
802 + 1.78692, 2.23793, 2.35019,
803 + .08578, .04800, 47.41436, 2.40454, 2.13009,
804 + 1.84931, 2.29725, 2.40914 /
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 + .03372, .01738, .56785, .29070, .00000,
807 + .00000, .15723, .29123,
808 + .03554, .01849, 1.14400, .30934, .00000,
809 + .00000, .17729, .31000,
810 + .03818, .02008, 2.12621, .34220, .00269,
811 + .00000, .21211, .34305,
812 + .04005, .02121, 2.88502, .36960, .03835,
813 + .00000, .24083, .37059,
814 + .04200, .02238, 3.76900, .40156, .07555,
815 + .00000, .27411, .40270,
816 + .04365, .02338, 4.58880, .43138, .10780,
817 + .00000, .30501, .43263,
818 + .04522, .02432, 5.42915, .46189, .14077,
819 + .00000, .33652, .46326,
820 + .04688, .02531, 6.37744, .49623, .17788,
821 + .00000, .37189, .49773 /
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 + .04831, .02617, 7.24827, .52767, .21199,
824 + .00000, .40419, .52928,
825 + .04968, .02699, 8.11699, .55937, .24579,
826 + .00000, .43671, .56109,
827 + .05075, .02763, 8.82064, .58537, .27313,
828 + .00000, .46332, .58717,
829 + .05303, .02899, 10.36568, .64346, .33452,
830 + .00010, .52270, .64544,
831 + .05497, .03014, 11.68814, .69607, .38991,
832 + .04540, .57636, .69819,
833 + .05712, .03142, 13.16519, .75731, .45410,
834 + .12487, .63874, .75960,
835 + .05935, .03274, 14.75551, .82360, .52334,
836 + .19948, .70617, .82606,
837 + .06135, .03392, 16.22836, .88566, .58805,
838 + .26949, .76924, .88828 /
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 + .06337, .03511, 17.73900, .95017, .65519,
841 + .34148, .83473, .95294,
842 + .06503, .03609, 19.00299, 1.00493, .71199,
843 + .40175, .89029, 1.00784,
844 + .06703, .03727, 20.53883, 1.07263, .78195,
845 + .47543, .95891, 1.07569,
846 + .06880, .03830, 21.90471, 1.13376, .84511,
847 + .54208, 1.02085, 1.13695,
848 + .07041, .03925, 23.16950, 1.19097, .90440,
849 + .60508, 1.07878, 1.19429,
850 + .07245, .04044, 24.75566, 1.26437, .98003,
851 + .68438, 1.15309, 1.26786,
852 + .07435, .04155, 26.23426, 1.33430, 1.05192,
853 + .75947, 1.22383, 1.33793,
854 + .07613, .04258, 27.61844, 1.40083, 1.12041,
855 + .83128, 1.29111, 1.40460 /
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 + .07791, .04361, 28.99928, 1.46829, 1.18991,
858 + .90426, 1.35931, 1.47220,
859 + .07963, .04461, 30.31221, 1.53427, 1.25751,
860 + .97444, 1.42600, 1.53832,
861 + .08127, .04556, 31.55701, 1.59764, 1.32262,
862 + 1.04247, 1.49003, 1.60181,
863 + .08280, .04644, 32.71030, 1.65758, 1.38410,
864 + 1.10646, 1.55058, 1.66188,
865 + .08433, .04732, 33.85174, 1.71806, 1.44609,
866 + 1.17093, 1.61166, 1.72247,
867 + .08584, .04819, 34.96643, 1.77804, 1.50762,
868 + 1.23501, 1.67222, 1.78257,
869 + .08726, .04901, 35.99739, 1.83486, 1.56576,
870 + 1.29530, 1.72959, 1.83950,
871 + .08861, .04978, 36.97037, 1.88913, 1.62140,
872 + 1.35314, 1.78438, 1.89388 /
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 + .08997, .05056, 37.92606, 1.94365, 1.67717,
875 + 1.41095, 1.83940, 1.94850,
876 + .09131, .05132, 38.85965, 1.99771, 1.73251,
877 + 1.46835, 1.89396, 2.00267,
878 + .09258, .05205, 39.73595, 2.04933, 1.78535,
879 + 1.52316, 1.94605, 2.05439,
880 + .09378, .05274, 40.54530, 2.09806, 1.83514,
881 + 1.57464, 1.99522, 2.10322,
882 + .09501, .05343, 41.37278, 2.14809, 1.88643,
883 + 1.62798, 2.04570, 2.15335 /
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 + .04786, .02602, .52126, .25118, .00000,
886 + .00000, .13619, .25239,
887 + .05047, .02763, 1.03141, .26706, .00000,
888 + .00000, .15330, .26849,
889 + .05423, .02994, 1.87429, .29436, .00228,
890 + .00000, .18230, .29611,
891 + .05688, .03156, 2.50616, .31663, .03141,
892 + .00000, .20571, .31860,
893 + .05962, .03322, 3.22493, .34218, .06141,
894 + .00000, .23242, .34439,
895 + .06194, .03463, 3.87727, .36567, .08702,
896 + .00000, .25685, .36807,
897 + .06414, .03596, 4.53402, .38942, .11290,
898 + .00000, .28147, .39200,
899 + .06645, .03735, 5.26245, .41584, .14171,
900 + .00000, .30879, .41862 /
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 + .06843, .03855, 5.92095, .43978, .16792,
903 + .00000, .33349, .44273,
904 + .07033, .03969, 6.56820, .46369, .19364,
905 + .00000, .35811, .46680,
906 + .07182, .04058, 7.08579, .48312, .21426,
907 + .00000, .37809, .48635,
908 + .07496, .04245, 8.20385, .52610, .26011,
909 + .00008, .42220, .52960,
910 + .07762, .04403, 9.13979, .56451, .30094,
911 + .03371, .46154, .56823,
912 + .08055, .04577, 10.16342, .60867, .34767,
913 + .09227, .50672, .61264,
914 + .08357, .04755, 11.24433, .65585, .39742,
915 + .14643, .55491, .66008,
916 + .08629, .04914, 12.22690, .69948, .44336,
917 + .19665, .59943, .70393 /
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 + .08900, .05073, 13.21727, .74429, .49046,
920 + .24771, .64512, .74897,
921 + .09123, .05204, 14.03276, .78193, .52990,
922 + .28999, .68348, .78680,
923 + .09391, .05359, 15.00772, .82796, .57794,
924 + .34116, .73034, .83306,
925 + .09626, .05496, 15.86128, .86909, .62087,
926 + .38697, .77220, .87438,
927 + .09840, .05620, 16.64151, .90725, .66083,
928 + .42991, .81101, .91272,
929 + .10110, .05775, 17.60373, .95568, .71124,
930 + .48337, .86026, .96138,
931 + .10360, .05920, 18.48552, 1.00131, .75863,
932 + .53344, .90663, 1.00722,
933 + .10594, .06053, 19.29916, 1.04431, .80336,
934 + .58089, .95031, 1.05041 /
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 + .10826, .06186, 20.09966, 1.08751, .84836,
937 + .62870, .99418, 1.09380,
938 + .11051, .06314, 20.84724, 1.12931, .89164,
939 + .67417, 1.03663, 1.13579,
940 + .11262, .06434, 21.54769, 1.16914, .93301,
941 + .71792, 1.07706, 1.17580,
942 + .11460, .06547, 22.18736, 1.20649, .97173,
943 + .75872, 1.11497, 1.21331,
944 + .11658, .06659, 22.81191, 1.24386, 1.01046,
945 + .79950, 1.15289, 1.25084,
946 + .11852, .06768, 23.41463, 1.28064, 1.04862,
947 + .83974, 1.19021, 1.28778,
948 + .12035, .06871, 23.96348, 1.31519, 1.08437,
949 + .87728, 1.22526, 1.32248,
950 + .12207, .06968, 24.47643, 1.34798, 1.11837,
951 + .91308, 1.25852, 1.35541 /
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 + .12380, .07064, 24.97291, 1.38065, 1.15218,
954 + .94858, 1.29166, 1.38823,
955 + .12550, .07159, 25.45256, 1.41284, 1.18552,
956 + .98361, 1.32432, 1.42056,
957 + .12711, .07249, 25.89739, 1.44337, 1.21714,
958 + 1.01685, 1.35528, 1.45122,
959 + .12863, .07334, 26.30233, 1.47198, 1.24671,
960 + 1.04784, 1.38429, 1.47995,
961 + .13017, .07420, 26.71434, 1.50123, 1.27708,
962 + 1.07983, 1.41396, 1.50933 /
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 + .06916, .04002, .48263, .21901, .00000,
965 + .00000, .11895, .22152,
966 + .07291, .04232, .93430, .23222, .00000,
967 + .00000, .13326, .23508,
968 + .07825, .04558, 1.65307, .25438, .00190,
969 + .00000, .15694, .25774,
970 + .08198, .04783, 2.17328, .27207, .02527,
971 + .00000, .17565, .27577,
972 + .08582, .05014, 2.74872, .29201, .04900,
973 + .00000, .19664, .29607,
974 + .08905, .05208, 3.25797, .31006, .06894,
975 + .00000, .21554, .31442,
976 + .09210, .05389, 3.75997, .32807, .08885,
977 + .00000, .23434, .33270,
978 + .09529, .05578, 4.30568, .34786, .11073,
979 + .00000, .25495, .35279 /
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 + .09802, .05740, 4.79003, .36558, .13042,
982 + .00000, .27337, .37076,
983 + .10062, .05893, 5.25792, .38309, .14953,
984 + .00000, .29153, .38851,
985 + .10264, .06012, 5.62646, .39719, .16472,
986 + .00000, .30613, .40279,
987 + .10690, .06260, 6.40736, .42800, .19808,
988 + .00007, .33798, .43399,
989 + .11049, .06469, 7.04375, .45514, .22737,
990 + .02442, .36599, .46145,
991 + .11442, .06696, 7.72220, .48591, .26043,
992 + .06647, .39769, .49257,
993 + .11844, .06927, 8.42209, .51828, .29512,
994 + .10474, .43101, .52530,
995 + .12203, .07132, 9.04400, .54779, .32669,
996 + .13974, .46135, .55513 /
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 + .12560, .07335, 9.65758, .57769, .35865,
999 + .17487, .49208, .58535,
1000 + .12852, .07501, 10.15283, .60249, .38508,
1001 + .20362, .51756, .61041,
1002 + .13200, .07697, 10.73299, .63245, .41688,
1003 + .23800, .54830, .64067,
1004 + .13505, .07868, 11.23096, .65889, .44496,
1005 + .26842, .57543, .66738,
1006 + .13781, .08023, 11.67885, .68317, .47084,
1007 + .29668, .60033, .69190,
1008 + .14126, .08215, 12.21922, .71358, .50308,
1009 + .33141, .63152, .72261,
1010 + .14446, .08392, 12.70307, .74186, .53299,
1011 + .36354, .66050, .75116,
1012 + .14742, .08556, 13.14122, .76820, .56093,
1013 + .39367, .68749, .77776 /
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 + .15035, .08717, 13.56466, .79438, .58873,
1016 + .42373, .71433, .80420,
1017 + .15317, .08871, 13.94995, .81939, .61512,
1018 + .45194, .73995, .82944,
1019 + .15582, .09015, 14.30526, .84298, .64014,
1020 + .47887, .76412, .85326,
1021 + .15828, .09149, 14.62302, .86487, .66330,
1022 + .50373, .78654, .87535,
1023 + .16073, .09282, 14.92723, .88654, .68624,
1024 + .52834, .80875, .89723,
1025 + .16312, .09411, 15.21591, .90769, .70866,
1026 + .55243, .83042, .91858,
1027 + .16536, .09531, 15.47250, .92733, .72943,
1028 + .57467, .85055, .93840,
1029 + .16747, .09645, 15.70897, .94583, .74904,
1030 + .59574, .86950, .95708 /
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 + .16957, .09757, 15.93237, .96407, .76836,
1033 + .61643, .88821, .97550,
1034 + .17163, .09867, 16.14448, .98191, .78726,
1035 + .63670, .90649, .99350,
1036 + .17358, .09970, 16.33746, .99867, .80504,
1037 + .65579, .92368, 1.01043,
1038 + .17541, .10067, 16.50889, 1.01423, .82152,
1039 + .67342, .93963, 1.02614,
1040 + .17726, .10165, 16.68235, 1.03008, .83838,
1041 + .69157, .95588, 1.04213 /
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 + .08670, .05197, .46463, .20301, .00000,
1044 + .00000, .11048, .20688,
1045 + .09130, .05475, .88480, .21470, .00000,
1046 + .00000, .12323, .21902,
1047 + .09784, .05867, 1.53681, .23405, .00169,
1048 + .00000, .14406, .23900,
1049 + .10236, .06135, 1.99784, .24928, .02205,
1050 + .00000, .16030, .25467,
1051 + .10700, .06409, 2.49839, .26628, .04255,
1052 + .00000, .17831, .27212,
1053 + .11090, .06637, 2.93396, .28151, .05960,
1054 + .00000, .19438, .28772,
1055 + .11455, .06850, 3.35732, .29658, .07648,
1056 + .00000, .21023, .30314,
1057 + .11836, .07071, 3.81139, .31301, .09490,
1058 + .00000, .22747, .31993 /
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 + .12162, .07259, 4.20947, .32762, .11135,
1061 + .00000, .24277, .33485,
1062 + .12471, .07437, 4.58952, .34195, .12721,
1063 + .00000, .25774, .34947,
1064 + .12711, .07574, 4.88577, .35342, .13973,
1065 + .00000, .26970, .36116,
1066 + .13213, .07860, 5.50530, .37829, .16705,
1067 + .00006, .29560, .38649,
1068 + .13635, .08098, 6.00088, .39997, .19080,
1069 + .01995, .31815, .40857,
1070 + .14094, .08356, 6.51966, .42433, .21737,
1071 + .05411, .34345, .43335,
1072 + .14562, .08618, 7.04596, .44970, .24497,
1073 + .08486, .36976, .45914,
1074 + .14978, .08848, 7.50623, .47260, .26986,
1075 + .11275, .39349, .48241 /
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 + .15389, .09075, 7.95345, .49559, .29484,
1078 + .14051, .41731, .50577,
1079 + .15725, .09259, 8.30920, .51451, .31533,
1080 + .16304, .43690, .52499,
1081 + .16123, .09477, 8.71941, .53715, .33977,
1082 + .18978, .46033, .54798,
1083 + .16470, .09665, 9.06637, .55696, .36119,
1084 + .21326, .48083, .56810,
1085 + .16784, .09835, 9.37475, .57502, .38080,
1086 + .23494, .49952, .58644,
1087 + .17174, .10044, 9.74034, .59745, .40501,
1088 + .26136, .52272, .60920,
1089 + .17534, .10237, 10.06206, .61810, .42728,
1090 + .28560, .54409, .63017,
1091 + .17866, .10413, 10.34894, .63719, .44793,
1092 + .30818, .56384, .64954 /
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 + .18194, .10587, 10.62190, .65602, .46833,
1095 + .33055, .58332, .66865,
1096 + .18507, .10751, 10.86489, .67382, .48752,
1097 + .35136, .60174, .68671,
1098 + .18800, .10905, 11.08609, .69050, .50559,
1099 + .37112, .61901, .70364,
1100 + .19072, .11047, 11.28022, .70586, .52221,
1101 + .38923, .63491, .71923,
1102 + .19342, .11187, 11.46268, .72096, .53855,
1103 + .40705, .65055, .73455,
1104 + .19604, .11322, 11.63314, .73558, .55443,
1105 + .42439, .66570, .74939,
1106 + .19849, .11448, 11.78111, .74905, .56903,
1107 + .44029, .67966, .76306,
1108 + .20079, .11566, 11.91575, .76167, .58275,
1109 + .45528, .69274, .77586 /
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 + .20307, .11683, 12.03977, .77402, .59616,
1112 + .46991, .70555, .78840,
1113 + .20530, .11796, 12.15544, .78602, .60921,
1114 + .48417, .71801, .80058,
1115 + .20740, .11903, 12.25842, .79723, .62142,
1116 + .49752, .72964, .81196,
1117 + .20937, .12002, 12.34721, .80754, .63266,
1118 + .50978, .74036, .82243,
1119 + .21136, .12102, 12.43669, .81802, .64412,
1120 + .52237, .75124, .83306 /
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 + .10238, .06277, .45506, .19282, .00000,
1123 + .00000, .10515, .19807,
1124 + .10769, .06592, .85379, .20346, .00000,
1125 + .00000, .11685, .20925,
1126 + .11520, .07032, 1.46059, .22088, .00155,
1127 + .00000, .13576, .22742,
1128 + .12036, .07333, 1.88199, .23447, .01993,
1129 + .00000, .15035, .24152,
1130 + .12564, .07637, 2.33291, .24951, .03831,
1131 + .00000, .16642, .25708,
1132 + .13005, .07890, 2.72014, .26289, .05348,
1133 + .00000, .18064, .27088,
1134 + .13419, .08125, 3.09238, .27604, .06841,
1135 + .00000, .19458, .28444,
1136 + .13848, .08368, 3.48741, .29030, .08461,
1137 + .00000, .20965, .29910 /
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 + .14214, .08575, 3.83039, .30290, .09900,
1140 + .00000, .22294, .31205,
1141 + .14560, .08768, 4.15478, .31519, .11279,
1142 + .00000, .23588, .32467,
1143 + .14828, .08918, 4.40555, .32497, .12364,
1144 + .00000, .24617, .33471,
1145 + .15388, .09228, 4.92451, .34607, .14715,
1146 + .00006, .26832, .35633,
1147 + .15856, .09485, 5.33330, .36433, .16744,
1148 + .01715, .28745, .37502,
1149 + .16363, .09763, 5.75485, .38468, .18998,
1150 + .04639, .30875, .39584,
1151 + .16878, .10042, 6.17673, .40571, .21322,
1152 + .07250, .33074, .41733,
1153 + .17335, .10287, 6.54074, .42454, .23402,
1154 + .09602, .35042, .43657 /
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 + .17784, .10528, 6.88983, .44331, .25475,
1157 + .11927, .37003, .45574,
1158 + .18150, .10722, 7.16405, .45864, .27165,
1159 + .13804, .38604, .47140,
1160 + .18582, .10950, 7.47607, .47686, .29168,
1161 + .16017, .40507, .49000,
1162 + .18957, .11147, 7.73654, .49270, .30912,
1163 + .17949, .42161, .50616,
1164 + .19296, .11324, 7.96561, .50705, .32500,
1165 + .19724, .43660, .52081,
1166 + .19715, .11541, 8.23285, .52473, .34447,
1167 + .21874, .45508, .53885,
1168 + .20100, .11739, 8.46409, .54090, .36226,
1169 + .23833, .47196, .55534,
1170 + .20454, .11921, 8.66739, .55573, .37865,
1171 + .25648, .48747, .57047 /
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 + .20802, .12098, 8.85810, .57027, .39475,
1174 + .27437, .50267, .58530,
1175 + .21133, .12266, 9.02396, .58390, .40978,
1176 + .29089, .51693, .59920,
1177 + .21443, .12422, 9.17303, .59660, .42388,
1178 + .30652, .53023, .61216,
1179 + .21729, .12565, 9.30127, .60822, .43676,
1180 + .32076, .54240, .62401,
1181 + .22012, .12706, 9.41945, .61955, .44935,
1182 + .33470, .55429, .63557,
1183 + .22286, .12842, 9.52801, .63048, .46153,
1184 + .34821, .56575, .64672,
1185 + .22542, .12968, 9.61957, .64046, .47265,
1186 + .36052, .57624, .65690,
1187 + .22781, .13085, 9.70166, .64977, .48306,
1188 + .37209, .58602, .66640 /
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 + .23017, .13201, 9.77485, .65882, .49318,
1191 + .38331, .59553, .67563,
1192 + .23248, .13313, 9.84155, .66756, .50298,
1193 + .39421, .60474, .68455,
1194 + .23465, .13418, 9.89924, .67568, .51210,
1195 + .40438, .61329, .69283,
1196 + .23667, .13515, 9.94684, .68309, .52045,
1197 + .41366, .62111, .70041,
1198 + .23872, .13613, 9.99465, .69061, .52894,
1199 + .42317, .62904, .70808 /
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 + .11690, .07277, .45077, .18545, .00000,
1202 + .00000, .10139, .19211,
1203 + .12281, .07620, .83326, .19528, .00000,
1204 + .00000, .11231, .20255,
1205 + .13113, .08098, 1.40601, .21126, .00145,
1206 + .00000, .12980, .21937,
1207 + .13683, .08422, 1.79788, .22362, .01838,
1208 + .00000, .14318, .23230,
1209 + .14263, .08750, 2.21217, .23722, .03523,
1210 + .00000, .15782, .24647,
1211 + .14747, .09021, 2.56403, .24924, .04904,
1212 + .00000, .17070, .25896,
1213 + .15199, .09272, 2.89910, .26099, .06258,
1214 + .00000, .18326, .27116,
1215 + .15667, .09531, 3.25151, .27366, .07718,
1216 + .00000, .19676, .28428 /
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 + .16065, .09749, 3.55498, .28481, .09009,
1219 + .00000, .20862, .29580,
1220 + .16440, .09954, 3.83970, .29564, .10241,
1221 + .00000, .22011, .30698,
1222 + .16731, .10112, 4.05830, .30421, .11206,
1223 + .00000, .22920, .31583,
1224 + .17336, .10439, 4.50659, .32261, .13288,
1225 + .00006, .24867, .33480,
1226 + .17839, .10708, 4.85490, .33844, .15074,
1227 + .01518, .26539, .35109,
1228 + .18383, .10996, 5.20930, .35597, .17046,
1229 + .04097, .28389, .36911,
1230 + .18933, .11286, 5.55984, .37394, .19066,
1231 + .06384, .30285, .38758,
1232 + .19419, .11540, 5.85861, .38994, .20863,
1233 + .08432, .31971, .40401 /
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 + .19896, .11787, 6.14172, .40578, .22644,
1236 + .10446, .33641, .42027,
1237 + .20282, .11986, 6.36150, .41863, .24087,
1238 + .12063, .34996, .43346,
1239 + .20738, .12219, 6.60862, .43381, .25788,
1240 + .13960, .36597, .44903,
1241 + .21132, .12419, 6.81236, .44692, .27261,
1242 + .15609, .37980, .46248,
1243 + .21487, .12598, 6.98970, .45876, .28597,
1244 + .17118, .39228, .47461,
1245 + .21925, .12818, 7.19317, .47323, .30225,
1246 + .18934, .40756, .48945,
1247 + .22325, .13017, 7.36621, .48636, .31703,
1248 + .20581, .42144, .50291,
1249 + .22693, .13198, 7.51627, .49834, .33058,
1250 + .22099, .43410, .51519 /
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 + .23053, .13375, 7.65513, .51001, .34383,
1253 + .23589, .44645, .52716,
1254 + .23395, .13541, 7.77264, .52087, .35611,
1255 + .24958, .45796, .53828,
1256 + .23713, .13695, 7.87673, .53094, .36758,
1257 + .26247, .46863, .54861,
1258 + .24007, .13836, 7.96420, .54008, .37800,
1259 + .27416, .47834, .55798,
1260 + .24295, .13974, 8.04302, .54895, .38815,
1261 + .28556, .48777, .56707,
1262 + .24575, .14107, 8.11403, .55746, .39791,
1263 + .29656, .49683, .57580,
1264 + .24834, .14229, 8.17151, .56518, .40678,
1265 + .30654, .50505, .58371,
1266 + .25077, .14343, 8.22193, .57234, .41505,
1267 + .31588, .51270, .59105 /
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 + .25316, .14454, 8.26483, .57925, .42305,
1270 + .32491, .52008, .59814,
1271 + .25548, .14562, 8.30259, .58589, .43076,
1272 + .33364, .52719, .60495,
1273 + .25766, .14663, 8.33365, .59201, .43791,
1274 + .34176, .53376, .61123,
1275 + .25969, .14756, 8.35720, .59757, .44441,
1276 + .34913, .53973, .61694,
1277 + .26174, .14849, 8.38076, .60320, .45102,
1278 + .35668, .54578, .62271 /
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 + .14369, .09103, .45306, .17497, .00000,
1281 + .00000, .09629, .18451,
1282 + .15057, .09487, .81137, .18362, .00000,
1283 + .00000, .10608, .19387,
1284 + .16019, .10017, 1.33402, .19749, .00131,
1285 + .00000, .12154, .20871,
1286 + .16673, .10373, 1.68302, .20809, .01622,
1287 + .00000, .13321, .21997,
1288 + .17335, .10730, 2.04463, .21962, .03092,
1289 + .00000, .14584, .23214,
1290 + .17885, .11023, 2.34618, .22970, .04285,
1291 + .00000, .15682, .24275,
1292 + .18395, .11294, 2.62891, .23947, .05444,
1293 + .00000, .16744, .25302,
1294 + .18921, .11571, 2.92179, .24991, .06684,
1295 + .00000, .17875, .26395 /
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 + .19366, .11804, 3.17051, .25902, .07772,
1298 + .00000, .18861, .27348,
1299 + .19784, .12021, 3.40077, .26780, .08802,
1300 + .00000, .19808, .28264,
1301 + .20107, .12187, 3.57538, .27470, .09604,
1302 + .00000, .20552, .28984,
1303 + .20775, .12529, 3.92788, .28938, .11319,
1304 + .00005, .22133, .30513,
1305 + .21327, .12809, 4.19524, .30187, .12776,
1306 + .01250, .23475, .31811,
1307 + .21920, .13107, 4.46077, .31554, .14367,
1308 + .03363, .24944, .33230,
1309 + .22516, .13403, 4.71771, .32939, .15980,
1310 + .05215, .26432, .34667,
1311 + .23039, .13660, 4.93182, .34156, .17401,
1312 + .06858, .27741, .35929 /
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 + .23549, .13908, 5.13025, .35348, .18794,
1315 + .08460, .29022, .37164,
1316 + .23960, .14107, 5.28090, .36305, .19913,
1317 + .09735, .30053, .38155,
1318 + .24441, .14338, 5.44601, .37423, .21220,
1319 + .11219, .31256, .39311,
1320 + .24856, .14535, 5.57871, .38377, .22340,
1321 + .12497, .32285, .40299,
1322 + .25228, .14710, 5.69186, .39230, .23349,
1323 + .13659, .33206, .41181,
1324 + .25682, .14922, 5.81752, .40261, .24565,
1325 + .15046, .34320, .42247,
1326 + .26096, .15113, 5.92018, .41183, .25658,
1327 + .16291, .35319, .43200,
1328 + .26473, .15286, 6.00618, .42015, .26651,
1329 + .17431, .36223, .44061 /
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 + .26841, .15452, 6.08287, .42817, .27614,
1332 + .18540, .37095, .44890,
1333 + .27187, .15608, 6.14348, .43551, .28496,
1334 + .19549, .37895, .45649,
1335 + .27508, .15751, 6.19521, .44225, .29314,
1336 + .20494, .38632, .46346,
1337 + .27802, .15881, 6.23576, .44829, .30050,
1338 + .21344, .39295, .46971,
1339 + .28090, .16007, 6.26936, .45408, .30760,
1340 + .22167, .39931, .47569,
1341 + .28368, .16127, 6.29732, .45957, .31438,
1342 + .22955, .40537, .48137,
1343 + .28623, .16237, 6.31657, .46447, .32047,
1344 + .23664, .41079, .48645,
1345 + .28861, .16338, 6.33195, .46899, .32612,
1346 + .24325, .41580, .49112 /
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 + .29094, .16437, 6.34149, .47327, .33152,
1349 + .24958, .42057, .49556,
1350 + .29320, .16532, 6.34756, .47735, .33669,
1351 + .25566, .42513, .49978,
1352 + .29531, .16619, 6.34983, .48106, .34145,
1353 + .26128, .42929, .50362,
1354 + .29726, .16699, 6.34781, .48437, .34573,
1355 + .26635, .43302, .50705,
1356 + .29922, .16780, 6.34568, .48771, .35007,
1357 + .27152, .43679, .51051 /
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 + .18037, .11539, .47521, .16427, .00000,
1360 + .00000, .09148, .17814,
1361 + .18832, .11956, .80748, .17171, .00000,
1362 + .00000, .10015, .18638,
1363 + .19933, .12525, 1.27733, .18344, .00117,
1364 + .00000, .11359, .19920,
1365 + .20674, .12903, 1.58210, .19225, .01415,
1366 + .00000, .12357, .20873,
1367 + .21419, .13277, 1.89033, .20171, .02680,
1368 + .00000, .13420, .21888,
1369 + .22032, .13583, 2.14166, .20986, .03692,
1370 + .00000, .14333, .22760,
1371 + .22598, .13863, 2.37279, .21767, .04665,
1372 + .00000, .15204, .23592,
1373 + .23177, .14147, 2.60779, .22593, .05696,
1374 + .00000, .16123, .24469 /
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 + .23666, .14384, 2.80391, .23305, .06591,
1377 + .00000, .16915, .25225,
1378 + .24121, .14603, 2.98234, .23984, .07431,
1379 + .00000, .17669, .25943,
1380 + .24470, .14769, 3.11549, .24513, .08079,
1381 + .00000, .18256, .26502,
1382 + .25190, .15109, 3.37879, .25626, .09452,
1383 + .00005, .19488, .27676,
1384 + .25778, .15384, 3.57196, .26558, .10603,
1385 + .01003, .20520, .28656,
1386 + .26406, .15673, 3.75726, .27564, .11845,
1387 + .02686, .21634, .29713,
1388 + .27030, .15957, 3.93106, .28567, .13086,
1389 + .04141, .22745, .30763,
1390 + .27573, .16200, 4.07110, .29433, .14166,
1391 + .05418, .23707, .31671 /
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 + .28099, .16433, 4.19650, .30268, .15212,
1394 + .06648, .24636, .32545,
1395 + .28518, .16617, 4.28816, .30928, .16041,
1396 + .07618, .25373, .33236,
1397 + .29007, .16827, 4.38459, .31686, .16999,
1398 + .08735, .26221, .34028,
1399 + .29423, .17004, 4.45863, .32323, .17810,
1400 + .09688, .26936, .34694,
1401 + .29794, .17161, 4.51932, .32885, .18533,
1402 + .10546, .27568, .35281,
1403 + .30243, .17348, 4.58190, .33550, .19394,
1404 + .11560, .28320, .35975,
1405 + .30647, .17513, 4.62869, .34133, .20157,
1406 + .12459, .28983, .36584,
1407 + .31013, .17661, 4.66464, .34651, .20842,
1408 + .13275, .29574, .37124 /
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 + .31367, .17802, 4.69352, .35142, .21499,
1411 + .14062, .30137, .37635,
1412 + .31696, .17930, 4.71112, .35578, .22091,
1413 + .14769, .30641, .38090,
1414 + .32000, .18047, 4.72368, .35972, .22634,
1415 + .15425, .31100, .38501,
1416 + .32275, .18152, 4.72961, .36318, .23117,
1417 + .16009, .31506, .38863,
1418 + .32542, .18252, 4.73057, .36643, .23577,
1419 + .16570, .31889, .39201,
1420 + .32798, .18346, 4.72805, .36944, .24012,
1421 + .17103, .32248, .39515,
1422 + .33030, .18431, 4.72051, .37205, .24396,
1423 + .17576, .32562, .39787,
1424 + .33246, .18508, 4.71152, .37442, .24749,
1425 + .18014, .32848, .40034 /
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 + .33454, .18581, 4.69854, .37659, .25082,
1428 + .18430, .33115, .40260,
1429 + .33655, .18651, 4.68364, .37861, .25397,
1430 + .18826, .33365, .40471,
1431 + .33841, .18714, 4.66719, .38040, .25683,
1432 + .19189, .33590, .40657,
1433 + .34011, .18770, 4.64886, .38193, .25936,
1434 + .19512, .33786, .40817,
1435 + .34182, .18827, 4.63048, .38347, .26192,
1436 + .19840, .33983, .40978 /
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 + .23596, .15039, .54481, .15162, .00000,
1439 + .00000, .08640, .17261,
1440 + .24499, .15466, .84444, .15774, .00000,
1441 + .00000, .09389, .17956,
1442 + .25731, .16039, 1.25088, .16712, .00102,
1443 + .00000, .10514, .19001,
1444 + .26547, .16412, 1.50447, .17399, .01203,
1445 + .00000, .11329, .19757,
1446 + .27358, .16776, 1.75260, .18121, .02257,
1447 + .00000, .12179, .20544,
1448 + .28018, .17068, 1.94874, .18730, .03085,
1449 + .00000, .12893, .21205,
1450 + .28623, .17331, 2.12427, .19302, .03868,
1451 + .00000, .13564, .21824,
1452 + .29237, .17595, 2.29798, .19896, .04686,
1453 + .00000, .14260, .22465 /
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 + .29748, .17812, 2.43926, .20402, .05387,
1456 + .00000, .14850, .23008,
1457 + .30220, .18011, 2.56443, .20876, .06035,
1458 + .00000, .15403, .23514,
1459 + .30579, .18160, 2.65562, .21239, .06529,
1460 + .00000, .15829, .23902,
1461 + .31312, .18460, 2.83010, .21990, .07563,
1462 + .00004, .16707, .24702,
1463 + .31903, .18696, 2.95083, .22605, .08413,
1464 + .00762, .17427, .25354,
1465 + .32524, .18940, 3.05936, .23253, .09315,
1466 + .02026, .18188, .26039,
1467 + .33132, .19173, 3.15528, .23880, .10199,
1468 + .03099, .18929, .26701,
1469 + .33654, .19368, 3.22745, .24407, .10953,
1470 + .04026, .19555, .27256 /
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 + .34151, .19550, 3.28706, .24901, .11672,
1473 + .04907, .20147, .27775,
1474 + .34543, .19689, 3.32682, .25280, .12232,
1475 + .05592, .20605, .28173,
1476 + .34991, .19845, 3.36372, .25703, .12867,
1477 + .06369, .21120, .28616,
1478 + .35367, .19973, 3.38795, .26047, .13396,
1479 + .07023, .21543, .28974,
1480 + .35698, .20083, 3.40493, .26343, .13861,
1481 + .07606, .21910, .29283,
1482 + .36093, .20209, 3.41625, .26678, .14403,
1483 + .08283, .22334, .29632,
1484 + .36440, .20316, 3.41865, .26960, .14874,
1485 + .08875, .22696, .29923,
1486 + .36750, .20409, 3.41567, .27199, .15288,
1487 + .09404, .23010, .30171 /
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 + .37046, .20494, 3.40816, .27416, .15679,
1490 + .09909, .23299, .30396,
1491 + .37313, .20567, 3.39383, .27596, .16022,
1492 + .10353, .23547, .30580,
1493 + .37556, .20631, 3.37795, .27753, .16332,
1494 + .10762, .23767, .30740,
1495 + .37773, .20685, 3.35946, .27881, .16601,
1496 + .11120, .23954, .30870,
1497 + .37979, .20733, 3.33800, .27991, .16852,
1498 + .11459, .24122, .30982,
1499 + .38173, .20777, 3.31505, .28087, .17085,
1500 + .11778, .24274, .31079,
1501 + .38344, .20813, 3.29032, .28160, .17285,
1502 + .12056, .24399, .31151,
1503 + .38501, .20845, 3.26611, .28222, .17467,
1504 + .12311, .24509, .31211 /
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 + .38649, .20871, 3.23950, .28269, .17632,
1507 + .12548, .24604, .31256,
1508 + .38789, .20895, 3.21226, .28307, .17785,
1509 + .12772, .24689, .31291,
1510 + .38916, .20914, 3.18523, .28334, .17921,
1511 + .12973, .24760, .31314,
1512 + .39028, .20928, 3.15823, .28348, .18037,
1513 + .13150, .24814, .31324,
1514 + .39141, .20943, 3.13134, .28361, .18153,
1515 + .13330, .24868, .31334 /
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 + .28692, .18030, .64108, .14141, .00000,
1518 + .00000, .08265, .16911,
1519 + .29638, .18432, .91076, .14660, .00000,
1520 + .00000, .08928, .17502,
1521 + .30914, .18961, 1.26589, .15433, .00092,
1522 + .00000, .09899, .18366,
1523 + .31749, .19297, 1.47987, .15984, .01062,
1524 + .00000, .10585, .18973,
1525 + .32568, .19620, 1.68326, .16551, .01977,
1526 + .00000, .11286, .19592,
1527 + .33228, .19875, 1.83959, .17020, .02683,
1528 + .00000, .11865, .20099,
1529 + .33825, .20101, 1.97594, .17453, .03341,
1530 + .00000, .12399, .20566,
1531 + .34425, .20324, 2.10738, .17894, .04020,
1532 + .00000, .12944, .21039 /
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 + .34920, .20504, 2.21164, .18263, .04595,
1535 + .00000, .13400, .21432,
1536 + .35375, .20666, 2.30162, .18603, .05120,
1537 + .00000, .13822, .21794,
1538 + .35717, .20785, 2.36542, .18859, .05517,
1539 + .00000, .14141, .22065,
1540 + .36406, .21020, 2.48301, .19380, .06336,
1541 + .00004, .14791, .22614,
1542 + .36954, .21199, 2.55853, .19795, .06999,
1543 + .00611, .15312, .23050,
1544 + .37520, .21377, 2.62034, .20221, .07691,
1545 + .01617, .15852, .23494,
1546 + .38065, .21542, 2.67011, .20619, .08359,
1547 + .02459, .16364, .23906,
1548 + .38523, .21673, 2.70296, .20942, .08919,
1549 + .03176, .16787, .24238 /
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 + .38953, .21791, 2.72558, .21235, .09443,
1552 + .03848, .17175, .24536,
1553 + .39286, .21876, 2.73679, .21450, .09846,
1554 + .04365, .17469, .24756,
1555 + .39658, .21966, 2.74172, .21680, .10295,
1556 + .04945, .17788, .24986,
1557 + .39964, .22035, 2.73986, .21857, .10663,
1558 + .05428, .18043, .25162,
1559 + .40230, .22091, 2.73444, .22004, .10982,
1560 + .05853, .18259, .25306,
1561 + .40538, .22148, 2.72026, .22157, .11347,
1562 + .06341, .18499, .25455,
1563 + .40803, .22191, 2.70130, .22273, .11657,
1564 + .06761, .18693, .25564,
1565 + .41032, .22223, 2.68017, .22363, .11925,
1566 + .07133, .18853, .25646 /
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 + .41246, .22248, 2.65621, .22437, .12173,
1569 + .07484, .18996, .25710,
1570 + .41430, .22262, 2.62830, .22483, .12384,
1571 + .07787, .19107, .25745,
1572 + .41595, .22270, 2.60069, .22516, .12572,
1573 + .08064, .19201, .25767,
1574 + .41736, .22272, 2.57254, .22532, .12730,
1575 + .08303, .19273, .25773,
1576 + .41865, .22268, 2.54266, .22536, .12875,
1577 + .08526, .19331, .25764,
1578 + .41982, .22261, 2.51242, .22531, .13006,
1579 + .08734, .19378, .25746,
1580 + .42081, .22247, 2.48199, .22512, .13114,
1581 + .08912, .19408, .25714,
1582 + .42169, .22232, 2.45297, .22488, .13209,
1583 + .09074, .19431, .25679 /
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 + .42246, .22213, 2.42259, .22454, .13293,
1586 + .09222, .19442, .25632,
1587 + .42315, .22191, 2.39229, .22414, .13368,
1588 + .09359, .19446, .25579,
1589 + .42374, .22168, 2.36299, .22370, .13432,
1590 + .09482, .19442, .25521,
1591 + .42422, .22141, 2.33454, .22320, .13482,
1592 + .09587, .19430, .25458,
1593 + .42470, .22115, 2.30632, .22270, .13533,
1594 + .09693, .19418, .25395 /
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 + .37845, .22889, .85602, .12355, .00000,
1597 + .00000, .07605, .16259,
1598 + .38755, .23182, 1.06886, .12737, .00000,
1599 + .00000, .08134, .16668,
1600 + .39947, .23547, 1.33337, .13274, .00078,
1601 + .00000, .08870, .17232,
1602 + .40701, .23764, 1.48166, .13638, .00862,
1603 + .00000, .09366, .17606,
1604 + .41424, .23959, 1.61462, .13993, .01582,
1605 + .00000, .09854, .17966,
1606 + .41989, .24102, 1.71088, .14273, .02120,
1607 + .00000, .10242, .18246,
1608 + .42489, .24221, 1.79010, .14520, .02611,
1609 + .00000, .10587, .18490,
1610 + .42979, .24330, 1.86186, .14762, .03106,
1611 + .00000, .10930, .18725 /
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 + .43375, .24411, 1.91527, .14957, .03516,
1614 + .00000, .11208, .18911,
1615 + .43726, .24478, 1.95805, .15128, .03883,
1616 + .00000, .11456, .19072,
1617 + .43984, .24522, 1.98595, .15252, .04155,
1618 + .00000, .11639, .19186,
1619 + .44488, .24597, 2.03093, .15490, .04705,
1620 + .00003, .11999, .19400,
1621 + .44869, .24640, 2.05058, .15666, .05138,
1622 + .00425, .12273, .19554,
1623 + .45244, .24667, 2.05660, .15831, .05577,
1624 + .01114, .12542, .19691,
1625 + .45583, .24675, 2.05328, .15967, .05988,
1626 + .01676, .12782, .19793,
1627 + .45851, .24665, 2.04259, .16060, .06322,
1628 + .02144, .12966, .19855 /
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 + .46085, .24642, 2.02562, .16129, .06625,
1631 + .02574, .13121, .19890,
1632 + .46251, .24611, 2.00732, .16168, .06851,
1633 + .02898, .13229, .19899,
1634 + .46421, .24563, 1.98046, .16192, .07093,
1635 + .03254, .13333, .19885,
1636 + .46546, .24510, 1.95370, .16195, .07286,
1637 + .03545, .13405, .19854,
1638 + .46644, .24456, 1.92765, .16188, .07449,
1639 + .03797, .13459, .19815,
1640 + .46736, .24378, 1.89126, .16160, .07627,
1641 + .04079, .13504, .19743,
1642 + .46798, .24292, 1.85476, .16114, .07770,
1643 + .04317, .13526, .19657,
1644 + .46837, .24206, 1.81960, .16060, .07888,
1645 + .04522, .13533, .19566 /
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 + .46860, .24114, 1.78380, .15997, .07993,
1648 + .04712, .13528, .19465,
1649 + .46859, .24015, 1.74709, .15919, .08075,
1650 + .04871, .13506, .19350,
1651 + .46847, .23918, 1.71251, .15840, .08144,
1652 + .05014, .13479, .19236,
1653 + .46822, .23823, 1.67949, .15759, .08197,
1654 + .05134, .13444, .19119,
1655 + .46783, .23723, 1.64613, .15670, .08241,
1656 + .05244, .13401, .18994,
1657 + .46736, .23622, 1.61352, .15579, .08278,
1658 + .05343, .13353, .18867,
1659 + .46678, .23520, 1.58224, .15484, .08302,
1660 + .05425, .13299, .18740,
1661 + .46619, .23423, 1.55307, .15393, .08322,
1662 + .05498, .13245, .18617 /
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 + .46549, .23322, 1.52358, .15295, .08333,
1665 + .05562, .13184, .18487,
1666 + .46474, .23220, 1.49479, .15196, .08340,
1667 + .05620, .13121, .18357,
1668 + .46395, .23121, 1.46758, .15099, .08343,
1669 + .05669, .13057, .18230,
1670 + .46312, .23024, 1.44181, .15003, .08339,
1671 + .05710, .12992, .18106,
1672 + .46229, .22927, 1.41641, .14907, .08336,
1673 + .05751, .12927, .17982 /
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 + .45832, .26587, 1.05054, .10750, .00000,
1676 + .00000, .06950, .15448,
1677 + .46588, .26730, 1.20692, .11028, .00000,
1678 + .00000, .07364, .15695,
1679 + .47543, .26879, 1.38885, .11394, .00066,
1680 + .00000, .07913, .16007,
1681 + .48118, .26945, 1.48150, .11627, .00707,
1682 + .00000, .08267, .16196,
1683 + .48643, .26986, 1.55824, .11843, .01283,
1684 + .00000, .08601, .16360,
1685 + .49038, .26997, 1.60884, .12000, .01702,
1686 + .00000, .08855, .16473,
1687 + .49371, .26992, 1.64645, .12131, .02077,
1688 + .00000, .09074, .16560,
1689 + .49681, .26971, 1.67647, .12251, .02447,
1690 + .00000, .09282, .16631 /
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 + .49919, .26942, 1.69558, .12340, .02749,
1693 + .00000, .09445, .16677,
1694 + .50119, .26903, 1.70747, .12412, .03014,
1695 + .00000, .09584, .16706,
1696 + .50256, .26864, 1.71256, .12459, .03208,
1697 + .00000, .09683, .16718,
1698 + .50501, .26768, 1.71312, .12538, .03592,
1699 + .00003, .09868, .16722,
1700 + .50660, .26669, 1.70031, .12584, .03886,
1701 + .00309, .09997, .16704,
1702 + .50787, .26541, 1.67552, .12610, .04178,
1703 + .00804, .10113, .16658,
1704 + .50869, .26391, 1.64448, .12610, .04442,
1705 + .01200, .10203, .16582,
1706 + .50903, .26244, 1.61242, .12590, .04650,
1707 + .01523, .10258, .16493 /
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 + .50903, .26085, 1.57712, .12553, .04833,
1710 + .01816, .10292, .16384,
1711 + .50877, .25945, 1.54599, .12508, .04966,
1712 + .02032, .10305, .16283,
1713 + .50815, .25764, 1.50638, .12438, .05103,
1714 + .02266, .10302, .16144,
1715 + .50737, .25599, 1.47047, .12365, .05207,
1716 + .02453, .10286, .16011,
1717 + .50651, .25446, 1.43744, .12294, .05292,
1718 + .02613, .10265, .15882,
1719 + .50512, .25241, 1.39459, .12190, .05380,
1720 + .02789, .10222, .15707,
1721 + .50358, .25041, 1.35405, .12080, .05445,
1722 + .02934, .10167, .15533,
1723 + .50199, .24851, 1.31645, .11972, .05496,
1724 + .03056, .10108, .15365 /
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 + .50026, .24659, 1.27939, .11860, .05537,
1727 + .03168, .10044, .15193,
1728 + .49834, .24463, 1.24297, .11741, .05563,
1729 + .03258, .09969, .15016,
1730 + .49644, .24278, 1.20935, .11627, .05582,
1731 + .03338, .09896, .14847,
1732 + .49454, .24100, 1.17805, .11515, .05593,
1733 + .03403, .09821, .14685,
1734 + .49252, .23919, 1.14711, .11399, .05597,
1735 + .03461, .09742, .14518,
1736 + .49047, .23740, 1.11736, .11284, .05597,
1737 + .03511, .09662, .14354,
1738 + .48840, .23566, 1.08943, .11171, .05590,
1739 + .03552, .09581, .14195,
1740 + .48642, .23402, 1.06368, .11064, .05582,
1741 + .03587, .09504, .14046 /
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 + .48432, .23235, 1.03809, .10953, .05569,
1744 + .03616, .09423, .13892,
1745 + .48222, .23070, 1.01340, .10844, .05553,
1746 + .03641, .09341, .13739,
1747 + .48015, .22911, .99035, .10738, .05535,
1748 + .03661, .09262, .13594,
1749 + .47812, .22760, .96881, .10637, .05515,
1750 + .03676, .09184, .13454,
1751 + .47609, .22608, .94768, .10536, .05495,
1752 + .03691, .09107, .13315 /
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 + .52744, .29364, 1.19146, .09310, .00000,
1755 + .00000, .06284, .14444,
1756 + .53271, .29339, 1.29424, .09503, .00000,
1757 + .00000, .06596, .14547,
1758 + .53886, .29254, 1.40292, .09739, .00056,
1759 + .00000, .06989, .14649,
1760 + .54218, .29160, 1.44905, .09878, .00577,
1761 + .00000, .07231, .14692,
1762 + .54492, .29037, 1.48102, .09996, .01036,
1763 + .00000, .07448, .14707,
1764 + .54668, .28914, 1.49672, .10071, .01364,
1765 + .00000, .07606, .14697,
1766 + .54794, .28782, 1.50369, .10127, .01652,
1767 + .00000, .07735, .14670,
1768 + .54887, .28631, 1.50406, .10169, .01932,
1769 + .00000, .07850, .14626 /
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 + .54939, .28492, 1.49963, .10194, .02156,
1772 + .00000, .07935, .14576,
1773 + .54961, .28350, 1.49103, .10205, .02351,
1774 + .00000, .08004, .14517,
1775 + .54958, .28232, 1.48141, .10206, .02491,
1776 + .00000, .08048, .14463,
1777 + .54909, .27971, 1.45441, .10192, .02763,
1778 + .00002, .08122, .14335,
1779 + .54821, .27737, 1.42268, .10165, .02968,
1780 + .00229, .08164, .14209,
1781 + .54676, .27465, 1.38118, .10117, .03164,
1782 + .00593, .08188, .14055,
1783 + .54482, .27171, 1.33617, .10048, .03338,
1784 + .00879, .08190, .13877,
1785 + .54272, .26898, 1.29420, .09970, .03471,
1786 + .01109, .08175, .13703 /
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 + .54030, .26616, 1.25128, .09880, .03585,
1789 + .01313, .08144, .13519,
1790 + .53805, .26378, 1.21547, .09799, .03663,
1791 + .01463, .08107, .13358,
1792 + .53509, .26084, 1.17206, .09689, .03741,
1793 + .01622, .08052, .13157,
1794 + .53229, .25820, 1.13415, .09586, .03798,
1795 + .01747, .07995, .12975,
1796 + .52962, .25579, 1.10017, .09488, .03842,
1797 + .01853, .07937, .12807,
1798 + .52597, .25268, 1.05753, .09356, .03883,
1799 + .01968, .07854, .12588,
1800 + .52235, .24972, 1.01835, .09227, .03909,
1801 + .02059, .07768, .12378,
1802 + .51885, .24695, .98278, .09104, .03927,
1803 + .02136, .07684, .12180 /
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 + .51527, .24419, .94834, .08979, .03938,
1806 + .02205, .07596, .11983,
1807 + .51159, .24144, .91529, .08851, .03939,
1808 + .02258, .07505, .11786,
1809 + .50806, .23886, .88518, .08730, .03936,
1810 + .02305, .07417, .11602,
1811 + .50463, .23644, .85758, .08616, .03929,
1812 + .02341, .07331, .11428,
1813 + .50111, .23399, .83065, .08499, .03918,
1814 + .02373, .07243, .11253,
1815 + .49764, .23159, .80504, .08385, .03904,
1816 + .02400, .07156, .11082,
1817 + .49424, .22929, .78132, .08274, .03886,
1818 + .02420, .07072, .10919,
1819 + .49102, .22714, .75962, .08170, .03868,
1820 + .02437, .06992, .10766 /
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 + .48770, .22496, .73828, .08065, .03847,
1823 + .02449, .06909, .10613,
1824 + .48441, .22283, .71787, .07961, .03825,
1825 + .02460, .06827, .10463,
1826 + .48124, .22080, .69896, .07863, .03802,
1827 + .02467, .06748, .10320,
1828 + .47817, .21887, .68144, .07770, .03779,
1829 + .02471, .06673, .10185,
1830 + .47510, .21695, .66432, .07677, .03756,
1831 + .02475, .06599, .10050 /
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 + .59950, .31768, 1.27670, .07751, .00000,
1834 + .00000, .05460, .12978,
1835 + .60118, .31533, 1.32166, .07861, .00000,
1836 + .00000, .05662, .12934,
1837 + .60223, .31155, 1.35603, .07979, .00045,
1838 + .00000, .05902, .12835,
1839 + .60204, .30861, 1.35776, .08034, .00440,
1840 + .00000, .06038, .12746,
1841 + .60114, .30542, 1.34890, .08069, .00784,
1842 + .00000, .06150, .12629,
1843 + .59987, .30255, 1.33419, .08079, .01024,
1844 + .00000, .06224, .12515,
1845 + .59829, .29973, 1.31557, .08074, .01231,
1846 + .00000, .06276, .12396,
1847 + .59626, .29671, 1.29217, .08058, .01429,
1848 + .00000, .06316, .12261 /
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 + .59426, .29406, 1.26960, .08035, .01585,
1851 + .00000, .06339, .12138,
1852 + .59211, .29146, 1.24580, .08004, .01719,
1853 + .00000, .06352, .12013,
1854 + .59023, .28937, 1.22573, .07975, .01813,
1855 + .00000, .06355, .11910,
1856 + .58592, .28492, 1.18030, .07902, .01993,
1857 + .00002, .06347, .11685,
1858 + .58188, .28108, 1.13724, .07828, .02124,
1859 + .00160, .06327, .11490,
1860 + .57704, .27675, 1.08713, .07733, .02248,
1861 + .00412, .06289, .11267,
1862 + .57168, .27224, 1.03611, .07625, .02353,
1863 + .00606, .06235, .11027,
1864 + .56656, .26818, .99097, .07520, .02430,
1865 + .00759, .06176, .10806 /
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 + .56121, .26407, .94672, .07407, .02493,
1868 + .00894, .06106, .10583,
1869 + .55664, .26065, .91107, .07308, .02534,
1870 + .00991, .06043, .10396,
1871 + .55092, .25652, .86919, .07183, .02572,
1872 + .01092, .05960, .10168,
1873 + .54574, .25290, .83358, .07072, .02597,
1874 + .01171, .05883, .09966,
1875 + .54094, .24963, .80227, .06969, .02615,
1876 + .01237, .05810, .09783,
1877 + .53470, .24547, .76394, .06835, .02628,
1878 + .01306, .05713, .09550,
1879 + .52874, .24157, .72951, .06707, .02631,
1880 + .01360, .05616, .09335,
1881 + .52313, .23796, .69878, .06586, .02630,
1882 + .01404, .05526, .09136 /
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 + .51751, .23438, .66951, .06466, .02625,
1885 + .01443, .05436, .08939,
1886 + .51186, .23090, .64192, .06347, .02614,
1887 + .01472, .05343, .08748,
1888 + .50655, .22765, .61705, .06236, .02602,
1889 + .01496, .05256, .08570,
1890 + .50151, .22460, .59455, .06131, .02587,
1891 + .01515, .05174, .08405,
1892 + .49641, .22157, .57285, .06027, .02570,
1893 + .01530, .05090, .08240,
1894 + .49141, .21863, .55240, .05926, .02552,
1895 + .01542, .05009, .08081,
1896 + .48661, .21584, .53367, .05828, .02532,
1897 + .01550, .04931, .07932,
1898 + .48211, .21323, .51666, .05737, .02513,
1899 + .01556, .04858, .07793 /
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 + .47752, .21061, .50010, .05646, .02492,
1902 + .01560, .04785, .07654,
1903 + .47302, .20805, .48437, .05558, .02470,
1904 + .01562, .04712, .07519,
1905 + .46873, .20563, .46989, .05474, .02449,
1906 + .01563, .04644, .07392,
1907 + .46464, .20334, .45659, .05394, .02427,
1908 + .01561, .04579, .07272,
1909 + .46057, .20107, .44362, .05316, .02406,
1910 + .01560, .04515, .07154 /
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 + .65631, .33195, 1.26875, .06456, .00000,
1913 + .00000, .04676, .11381,
1914 + .65402, .32752, 1.26975, .06501, .00000,
1915 + .00000, .04793, .11236,
1916 + .64951, .32097, 1.25112, .06531, .00035,
1917 + .00000, .04919, .11003,
1918 + .64554, .31619, 1.22332, .06532, .00332,
1919 + .00000, .04983, .10826,
1920 + .64083, .31119, 1.18889, .06515, .00587,
1921 + .00000, .05026, .10631,
1922 + .63640, .30685, 1.15618, .06484, .00761,
1923 + .00000, .05044, .10460,
1924 + .63187, .30272, 1.12323, .06447, .00910,
1925 + .00000, .05050, .10289,
1926 + .62685, .29835, 1.08735, .06398, .01050,
1927 + .00000, .05045, .10106 /
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 + .62235, .29458, 1.05588, .06350, .01159,
1930 + .00000, .05034, .09947,
1931 + .61783, .29097, 1.02521, .06300, .01251,
1932 + .00000, .05015, .09790,
1933 + .61415, .28810, 1.00078, .06255, .01315,
1934 + .00000, .04995, .09666,
1935 + .60614, .28207, .94874, .06153, .01435,
1936 + .00002, .04945, .09405,
1937 + .59906, .27697, .90305, .06061, .01521,
1938 + .00113, .04894, .09182,
1939 + .59099, .27136, .85254, .05953, .01599,
1940 + .00289, .04829, .08935,
1941 + .58244, .26558, .80279, .05833, .01663,
1942 + .00422, .04752, .08680,
1943 + .57457, .26043, .76004, .05721, .01709,
1944 + .00527, .04676, .08450 /
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 + .56656, .25531, .71917, .05606, .01744,
1947 + .00617, .04595, .08221,
1948 + .55985, .25112, .68690, .05509, .01765,
1949 + .00681, .04525, .08034,
1950 + .55167, .24609, .64974, .05389, .01783,
1951 + .00747, .04437, .07811,
1952 + .54442, .24171, .61868, .05282, .01793,
1953 + .00798, .04357, .07616,
1954 + .53780, .23778, .59171, .05186, .01798,
1955 + .00840, .04284, .07442,
1956 + .52936, .23284, .55923, .05062, .01799,
1957 + .00883, .04190, .07224,
1958 + .52139, .22827, .53050, .04946, .01794,
1959 + .00916, .04099, .07025,
1960 + .51399, .22406, .50514, .04838, .01786,
1961 + .00942, .04015, .06842 /
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 + .50667, .21994, .48120, .04733, .01776,
1964 + .00964, .03931, .06664,
1965 + .49943, .21594, .45897, .04628, .01763,
1966 + .00981, .03848, .06493,
1967 + .49268, .21223, .43909, .04531, .01749,
1968 + .00994, .03772, .06335,
1969 + .48635, .20878, .42125, .04440, .01733,
1970 + .01003, .03700, .06188,
1971 + .47999, .20537, .40418, .04351, .01716,
1972 + .01010, .03628, .06045,
1973 + .47379, .20207, .38821, .04265, .01699,
1974 + .01016, .03558, .05907,
1975 + .46791, .19896, .37370, .04184, .01682,
1976 + .01018, .03491, .05779,
1977 + .46242, .19607, .36059, .04107, .01665,
1978 + .01020, .03430, .05660 /
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 + .45688, .19318, .34791, .04032, .01647,
1981 + .01020, .03368, .05542,
1982 + .45146, .19037, .33592, .03959, .01629,
1983 + .01019, .03308, .05428,
1984 + .44631, .18773, .32495, .03891, .01611,
1985 + .01017, .03251, .05321,
1986 + .44143, .18525, .31493, .03827, .01593,
1987 + .01014, .03198, .05220,
1988 + .43658, .18280, .30518, .03763, .01575,
1989 + .01011, .03146, .05121 /
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 + .69873, .33812, 1.19048, .05397, .00000,
1992 + .00000, .03955, .09758,
1993 + .69225, .33188, 1.16209, .05398, .00000,
1994 + .00000, .04009, .09544,
1995 + .68203, .32284, 1.11045, .05373, .00028,
1996 + .00000, .04053, .09232,
1997 + .67424, .31648, 1.06602, .05337, .00247,
1998 + .00000, .04067, .09011,
1999 + .66575, .30990, 1.01834, .05288, .00435,
2000 + .00000, .04064, .08779,
2001 + .65822, .30431, .97720, .05236, .00562,
2002 + .00000, .04050, .08579,
2003 + .65087, .29904, .93828, .05180, .00669,
2004 + .00000, .04028, .08388,
2005 + .64297, .29356, .89790, .05116, .00768,
2006 + .00000, .03997, .08189 /
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 + .63607, .28888, .86381, .05056, .00845,
2009 + .00000, .03966, .08018,
2010 + .62934, .28443, .83169, .04996, .00909,
2011 + .00000, .03930, .07854,
2012 + .62396, .28093, .80679, .04946, .00953,
2013 + .00000, .03900, .07726,
2014 + .61251, .27366, .75535, .04836, .01034,
2015 + .00001, .03833, .07459,
2016 + .60269, .26756, .71201, .04739, .01091,
2017 + .00080, .03769, .07237,
2018 + .59173, .26092, .66552, .04629, .01142,
2019 + .00204, .03695, .06995,
2020 + .58033, .25420, .62069, .04513, .01182,
2021 + .00297, .03612, .06750,
2022 + .57005, .24824, .58290, .04406, .01209,
2023 + .00369, .03535, .06533 /
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 + .55974, .24236, .54734, .04297, .01229,
2026 + .00431, .03454, .06321,
2027 + .55123, .23760, .51967, .04207, .01240,
2028 + .00474, .03387, .06149,
2029 + .54097, .23193, .48822, .04098, .01247,
2030 + .00518, .03305, .05945,
2031 + .53199, .22704, .46224, .04002, .01250,
2032 + .00552, .03231, .05771,
2033 + .52386, .22267, .43988, .03915, .01250,
2034 + .00579, .03164, .05617,
2035 + .51359, .21721, .41327, .03806, .01246,
2036 + .00606, .03080, .05425,
2037 + .50405, .21217, .38997, .03705, .01238,
2038 + .00627, .03000, .05252,
2039 + .49524, .20759, .36957, .03612, .01229,
2040 + .00643, .02927, .05093 /
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 + .48654, .20315, .35048, .03523, .01219,
2043 + .00656, .02855, .04939,
2044 + .47808, .19884, .33288, .03435, .01206,
2045 + .00665, .02785, .04793,
2046 + .47022, .19487, .31725, .03353, .01193,
2047 + .00673, .02720, .04659,
2048 + .46288, .19120, .30332, .03278, .01179,
2049 + .00677, .02661, .04535,
2050 + .45560, .18757, .29007, .03203, .01165,
2051 + .00681, .02601, .04415,
2052 + .44856, .18407, .27774, .03130, .01151,
2053 + .00683, .02542, .04301,
2054 + .44188, .18080, .26657, .03063, .01136,
2055 + .00683, .02488, .04194,
2056 + .43565, .17778, .25651, .03002, .01122,
2057 + .00683, .02439, .04096 /
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 + .42942, .17475, .24684, .02940, .01108,
2060 + .00681, .02389, .03999,
2061 + .42337, .17182, .23774, .02881, .01093,
2062 + .00679, .02340, .03907,
2063 + .41766, .16908, .22946, .02825, .01079,
2064 + .00677, .02294, .03820,
2065 + .41226, .16652, .22192, .02772, .01066,
2066 + .00674, .02252, .03740,
2067 + .40692, .16399, .21461, .02720, .01052,
2068 + .00671, .02210, .03660 /
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 + .72763, .33767, 1.06848, .04540, .00000,
2071 + .00000, .03305, .08185,
2072 + .71706, .32979, 1.02358, .04507, .00000,
2073 + .00000, .03317, .07942,
2074 + .70135, .31857, .95540, .04438, .00021,
2075 + .00000, .03311, .07602,
2076 + .68991, .31086, .90421, .04382, .00183,
2077 + .00000, .03292, .07366,
2078 + .67782, .30299, .85226, .04315, .00322,
2079 + .00000, .03265, .07124,
2080 + .66737, .29638, .80935, .04252, .00414,
2081 + .00000, .03233, .06919,
2082 + .65740, .29020, .76996, .04186, .00490,
2083 + .00000, .03197, .06729,
2084 + .64687, .28380, .73016, .04114, .00561,
2085 + .00000, .03155, .06534 /
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 + .63780, .27839, .69728, .04050, .00616,
2088 + .00000, .03115, .06368,
2089 + .62909, .27327, .66688, .03986, .00660,
2090 + .00000, .03075, .06212,
2091 + .62219, .26929, .64372, .03935, .00691,
2092 + .00000, .03041, .06090,
2093 + .60771, .26107, .59676, .03826, .00746,
2094 + .00001, .02968, .05839,
2095 + .59548, .25423, .55817, .03732, .00785,
2096 + .00057, .02903, .05634,
2097 + .58201, .24687, .51758, .03627, .00818,
2098 + .00145, .02827, .05415,
2099 + .56820, .23945, .47903, .03518, .00844,
2100 + .00211, .02748, .05194,
2101 + .55591, .23294, .44697, .03419, .00860,
2102 + .00261, .02677, .05000 /
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 + .54370, .22656, .41717, .03320, .00871,
2105 + .00304, .02604, .04814,
2106 + .53370, .22141, .39418, .03240, .00876,
2107 + .00333, .02543, .04664,
2108 + .52178, .21532, .36831, .03143, .00878,
2109 + .00363, .02470, .04489,
2110 + .51141, .21010, .34711, .03059, .00878,
2111 + .00385, .02406, .04339,
2112 + .50209, .20547, .32897, .02984, .00876,
2113 + .00403, .02349, .04207,
2114 + .49043, .19971, .30753, .02890, .00870,
2115 + .00421, .02276, .04046,
2116 + .47966, .19447, .28894, .02804, .00862,
2117 + .00434, .02209, .03898,
2118 + .46979, .18970, .27278, .02725, .00854,
2119 + .00444, .02148, .03765 /
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 + .46013, .18506, .25771, .02649, .00844,
2122 + .00452, .02088, .03638,
2123 + .45078, .18060, .24396, .02574, .00833,
2124 + .00457, .02031, .03518,
2125 + .44214, .17651, .23176, .02506, .00822,
2126 + .00461, .01977, .03408,
2127 + .43412, .17274, .22092, .02443, .00811,
2128 + .00464, .01928, .03309,
2129 + .42619, .16904, .21067, .02381, .00800,
2130 + .00465, .01879, .03212,
2131 + .41853, .16550, .20118, .02322, .00788,
2132 + .00465, .01832, .03120,
2133 + .41133, .16219, .19264, .02267, .00777,
2134 + .00464, .01788, .03034,
2135 + .40466, .15912, .18497, .02216, .00766,
2136 + .00463, .01749, .02956 /
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 + .39799, .15608, .17760, .02166, .00754,
2139 + .00462, .01709, .02879,
2140 + .39153, .15315, .17066, .02118, .00743,
2141 + .00459, .01670, .02805,
2142 + .38546, .15040, .16437, .02073, .00732,
2143 + .00457, .01634, .02736,
2144 + .37975, .14784, .15866, .02031, .00722,
2145 + .00454, .01601, .02672,
2146 + .37410, .14531, .15314, .01991, .00712,
2147 + .00451, .01568, .02609 /
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 + .74414, .33171, .92674, .03835, .00000,
2150 + .00000, .02735, .06731,
2151 + .72968, .32246, .87529, .03780, .00000,
2152 + .00000, .02720, .06484,
2153 + .70875, .30951, .80252, .03687, .00017,
2154 + .00000, .02684, .06143,
2155 + .69394, .30071, .75129, .03616, .00136,
2156 + .00000, .02651, .05916,
2157 + .67862, .29177, .70086, .03538, .00238,
2158 + .00000, .02610, .05685,
2159 + .66554, .28438, .66021, .03470, .00305,
2160 + .00000, .02569, .05491,
2161 + .65322, .27748, .62361, .03401, .00360,
2162 + .00000, .02527, .05316,
2163 + .64037, .27041, .58723, .03327, .00411,
2164 + .00000, .02480, .05136 /
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 + .62941, .26446, .55758, .03263, .00450,
2167 + .00000, .02438, .04985,
2168 + .61898, .25885, .53049, .03200, .00481,
2169 + .00000, .02397, .04845,
2170 + .61079, .25452, .51007, .03150, .00503,
2171 + .00000, .02364, .04736,
2172 + .59372, .24562, .46917, .03045, .00541,
2173 + .00001, .02293, .04514,
2174 + .57946, .23830, .43617, .02956, .00567,
2175 + .00041, .02232, .04334,
2176 + .56395, .23045, .40194, .02859, .00589,
2177 + .00104, .02164, .04142,
2178 + .54818, .22260, .36973, .02760, .00606,
2179 + .00151, .02093, .03952,
2180 + .53425, .21576, .34319, .02671, .00615,
2181 + .00186, .02029, .03787 /
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 + .52057, .20908, .31867, .02584, .00621,
2184 + .00216, .01965, .03629,
2185 + .50945, .20373, .29994, .02513, .00624,
2186 + .00236, .01913, .03503,
2187 + .49624, .19745, .27897, .02428, .00623,
2188 + .00257, .01850, .03356,
2189 + .48485, .19208, .26191, .02355, .00621,
2190 + .00272, .01796, .03232,
2191 + .47467, .18732, .24740, .02291, .00618,
2192 + .00284, .01747, .03123,
2193 + .46197, .18147, .23037, .02212, .00613,
2194 + .00295, .01687, .02989,
2195 + .45037, .17611, .21563, .02138, .00605,
2196 + .00304, .01632, .02871,
2197 + .43979, .17127, .20289, .02071, .00598,
2198 + .00310, .01581, .02765 /
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 + .42946, .16663, .19108, .02008, .00590,
2201 + .00315, .01531, .02664,
2202 + .41957, .16217, .18031, .01944, .00581,
2203 + .00318, .01485, .02566,
2204 + .41044, .15809, .17081, .01888, .00572,
2205 + .00320, .01442, .02478,
2206 + .40198, .15434, .16244, .01837, .00563,
2207 + .00320, .01401, .02399,
2208 + .39366, .15067, .15453, .01786, .00554,
2209 + .00321, .01363, .02322,
2210 + .38569, .14715, .14720, .01737, .00545,
2211 + .00320, .01326, .02249,
2212 + .37820, .14389, .14064, .01692, .00536,
2213 + .00319, .01292, .02182,
2214 + .37126, .14089, .13476, .01651, .00527,
2215 + .00318, .01260, .02120 /
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 + .36437, .13793, .12914, .01611, .00519,
2218 + .00316, .01228, .02060,
2219 + .35771, .13507, .12388, .01571, .00510,
2220 + .00314, .01198, .02003,
2221 + .35148, .13240, .11911, .01535, .00502,
2222 + .00312, .01171, .01950,
2223 + .34565, .12991, .11479, .01501, .00494,
2224 + .00310, .01145, .01899,
2225 + .33990, .12746, .11061, .01467, .00486,
2226 + .00307, .01120, .01850 /
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 + .74926, .32135, .78374, .03251, .00000,
2229 + .00000, .02244, .05426,
2230 + .73122, .31100, .73254, .03181, .00000,
2231 + .00000, .02211, .05195,
2232 + .70555, .29673, .66279, .03078, .00013,
2233 + .00000, .02159, .04875,
2234 + .68776, .28709, .61546, .03001, .00101,
2235 + .00000, .02117, .04668,
2236 + .66955, .27740, .56969, .02918, .00176,
2237 + .00000, .02070, .04461,
2238 + .65424, .26940, .53343, .02847, .00225,
2239 + .00000, .02027, .04290,
2240 + .63991, .26201, .50112, .02778, .00266,
2241 + .00000, .01985, .04134,
2242 + .62508, .25449, .46934, .02707, .00303,
2243 + .00000, .01939, .03976 /
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 + .61251, .24820, .44369, .02646, .00331,
2246 + .00000, .01899, .03843,
2247 + .60064, .24229, .42042, .02586, .00353,
2248 + .00000, .01860, .03722,
2249 + .59138, .23774, .40301, .02539, .00368,
2250 + .00000, .01829, .03629,
2251 + .57225, .22843, .36843, .02441, .00395,
2252 + .00001, .01763, .03441,
2253 + .55641, .22082, .34084, .02360, .00413,
2254 + .00030, .01708, .03288,
2255 + .53929, .21271, .31247, .02273, .00428,
2256 + .00075, .01648, .03126,
2257 + .52206, .20464, .28598, .02184, .00438,
2258 + .00109, .01586, .02968,
2259 + .50695, .19764, .26429, .02104, .00444,
2260 + .00134, .01531, .02834 /
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 + .49216, .19089, .24439, .02027, .00447,
2263 + .00155, .01477, .02705,
2264 + .48025, .18547, .22924, .01964, .00448,
2265 + .00169, .01434, .02600,
2266 + .46616, .17916, .21241, .01892, .00446,
2267 + .00183, .01381, .02480,
2268 + .45408, .17378, .19875, .01829, .00444,
2269 + .00193, .01335, .02382,
2270 + .44336, .16901, .18716, .01773, .00441,
2271 + .00201, .01294, .02297,
2272 + .43009, .16318, .17366, .01703, .00435,
2273 + .00209, .01247, .02192,
2274 + .41794, .15791, .16203, .01642, .00429,
2275 + .00214, .01202, .02095,
2276 + .40693, .15316, .15200, .01587, .00423,
2277 + .00218, .01161, .02009 /
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 + .39627, .14858, .14272, .01534, .00416,
2280 + .00221, .01122, .01928,
2281 + .38604, .14424, .13431, .01482, .00409,
2282 + .00223, .01084, .01853,
2283 + .37667, .14027, .12692, .01435, .00402,
2284 + .00223, .01050, .01784,
2285 + .36804, .13663, .12041, .01393, .00395,
2286 + .00224, .01019, .01722,
2287 + .35958, .13307, .11429, .01351, .00388,
2288 + .00223, .00988, .01663,
2289 + .35151, .12968, .10865, .01310, .00381,
2290 + .00223, .00959, .01607,
2291 + .34395, .12653, .10359, .01273, .00374,
2292 + .00222, .00932, .01555,
2293 + .33697, .12365, .09906, .01239, .00367,
2294 + .00220, .00908, .01508 /
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 + .33005, .12081, .09474, .01206, .00360,
2297 + .00219, .00883, .01462,
2298 + .32337, .11809, .09071, .01176, .00354,
2299 + .00217, .00860, .01418,
2300 + .31714, .11556, .08706, .01147, .00348,
2301 + .00215, .00838, .01377,
2302 + .31132, .11319, .08378, .01119, .00342,
2303 + .00213, .00817, .01340,
2304 + .30559, .11087, .08061, .01092, .00336,
2305 + .00211, .00798, .01304 /
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 + .74381, .30776, .65173, .02786, .00000,
2308 + .00000, .01803, .04275,
2309 + .72265, .29660, .60462, .02706, .00000,
2310 + .00000, .01766, .04069,
2311 + .69300, .28127, .54187, .02588, .00010,
2312 + .00000, .01710, .03794,
2313 + .67267, .27106, .50020, .02510, .00076,
2314 + .00000, .01668, .03612,
2315 + .65207, .26085, .46036, .02425, .00132,
2316 + .00000, .01622, .03435,
2317 + .63490, .25246, .42906, .02354, .00168,
2318 + .00000, .01582, .03289,
2319 + .61893, .24479, .40140, .02287, .00198,
2320 + .00000, .01543, .03157,
2321 + .60255, .23698, .37437, .02216, .00225,
2322 + .00000, .01501, .03026 /
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 + .58877, .23045, .35265, .02156, .00245,
2325 + .00000, .01464, .02918,
2326 + .57579, .22438, .33307, .02100, .00261,
2327 + .00000, .01432, .02815,
2328 + .56571, .21973, .31848, .02056, .00272,
2329 + .00000, .01404, .02739,
2330 + .54502, .21024, .28966, .01967, .00291,
2331 + .00001, .01347, .02582,
2332 + .52799, .20253, .26685, .01894, .00303,
2333 + .00022, .01301, .02455,
2334 + .50972, .19437, .24356, .01815, .00313,
2335 + .00055, .01249, .02325,
2336 + .49147, .18628, .22192, .01735, .00319,
2337 + .00079, .01195, .02200,
2338 + .47557, .17930, .20430, .01665, .00323,
2339 + .00097, .01149, .02092 /
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 + .46010, .17259, .18822, .01597, .00324,
2342 + .00112, .01105, .01987,
2343 + .44769, .16723, .17603, .01542, .00324,
2344 + .00122, .01069, .01906,
2345 + .43311, .16100, .16250, .01480, .00322,
2346 + .00131, .01025, .01813,
2347 + .42067, .15572, .15157, .01426, .00319,
2348 + .00138, .00990, .01735,
2349 + .40965, .15108, .14234, .01378, .00316,
2350 + .00144, .00959, .01666,
2351 + .39605, .14541, .13160, .01321, .00311,
2352 + .00149, .00918, .01582,
2353 + .38373, .14030, .12241, .01268, .00306,
2354 + .00152, .00882, .01509,
2355 + .37260, .13570, .11450, .01222, .00301,
2356 + .00155, .00850, .01443 /
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 + .36184, .13130, .10721, .01177, .00295,
2359 + .00156, .00819, .01380,
2360 + .35154, .12713, .10063, .01135, .00289,
2361 + .00157, .00790, .01323,
2362 + .34215, .12334, .09485, .01097, .00284,
2363 + .00157, .00763, .01270,
2364 + .33358, .11987, .08978, .01062, .00278,
2365 + .00157, .00739, .01222,
2366 + .32517, .11650, .08502, .01027, .00273,
2367 + .00157, .00714, .01177,
2368 + .31711, .11330, .08064, .00994, .00267,
2369 + .00156, .00691, .01135,
2370 + .30964, .11033, .07673, .00964, .00262,
2371 + .00155, .00670, .01097,
2372 + .30278, .10760, .07325, .00936, .00257,
2373 + .00154, .00651, .01063 /
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 + .29601, .10492, .06993, .00909, .00252,
2376 + .00152, .00632, .01028,
2377 + .28950, .10236, .06684, .00882, .00247,
2378 + .00151, .00614, .00995,
2379 + .28342, .09999, .06404, .00858, .00242,
2380 + .00149, .00597, .00964,
2381 + .27775, .09778, .06152, .00836, .00238,
2382 + .00148, .00582, .00936,
2383 + .27217, .09561, .05910, .00814, .00233,
2384 + .00146, .00567, .00908 /
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 + .72977, .29105, .53682, .02346, .00000,
2387 + .00000, .01454, .03321,
2388 + .70590, .27934, .49549, .02264, .00000,
2389 + .00000, .01415, .03148,
2390 + .67277, .26343, .44102, .02150, .00008,
2391 + .00000, .01357, .02914,
2392 + .65033, .25290, .40539, .02073, .00057,
2393 + .00000, .01316, .02761,
2394 + .62780, .24241, .37142, .01994, .00099,
2395 + .00000, .01273, .02611,
2396 + .60914, .23387, .34492, .01926, .00126,
2397 + .00000, .01236, .02491,
2398 + .59190, .22606, .32158, .01864, .00148,
2399 + .00000, .01201, .02382,
2400 + .57429, .21816, .29884, .01799, .00167,
2401 + .00000, .01163, .02274 /
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 + .55956, .21160, .28065, .01745, .00182,
2404 + .00000, .01131, .02186,
2405 + .54578, .20551, .26433, .01694, .00193,
2406 + .00000, .01101, .02104,
2407 + .53511, .20085, .25219, .01655, .00201,
2408 + .00000, .01077, .02041,
2409 + .51333, .19139, .22831, .01574, .00214,
2410 + .00001, .01028, .01916,
2411 + .49555, .18374, .20951, .01507, .00222,
2412 + .00016, .00987, .01818,
2413 + .47657, .17569, .19042, .01438, .00229,
2414 + .00040, .00944, .01713,
2415 + .45770, .16777, .17276, .01369, .00233,
2416 + .00057, .00901, .01611,
2417 + .44135, .16095, .15844, .01309, .00234,
2418 + .00070, .00864, .01525 /
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 + .42557, .15440, .14541, .01249, .00235,
2421 + .00081, .00827, .01444,
2422 + .41295, .14921, .13557, .01202, .00234,
2423 + .00087, .00795, .01384,
2424 + .39818, .14320, .12468, .01149, .00232,
2425 + .00094, .00761, .01311,
2426 + .38562, .13814, .11594, .01105, .00229,
2427 + .00099, .00733, .01248,
2428 + .37455, .13370, .10858, .01067, .00227,
2429 + .00103, .00707, .01193,
2430 + .36098, .12829, .10005, .01016, .00223,
2431 + .00106, .00674, .01133,
2432 + .34869, .12342, .09275, .00973, .00218,
2433 + .00108, .00647, .01076,
2434 + .33764, .11907, .08650, .00935, .00214,
2435 + .00110, .00622, .01026 /
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 + .32703, .11491, .08076, .00897, .00210,
2438 + .00110, .00597, .00980,
2439 + .31693, .11098, .07559, .00861, .00205,
2440 + .00111, .00573, .00936,
2441 + .30774, .10740, .07107, .00830, .00201,
2442 + .00111, .00552, .00897,
2443 + .29932, .10416, .06711, .00801, .00196,
2444 + .00110, .00534, .00860,
2445 + .29111, .10101, .06340, .00774, .00192,
2446 + .00110, .00515, .00827,
2447 + .28329, .09804, .06000, .00749, .00188,
2448 + .00109, .00496, .00796,
2449 + .27607, .09528, .05698, .00724, .00184,
2450 + .00108, .00480, .00767,
2451 + .26944, .09276, .05429, .00701, .00180,
2452 + .00107, .00466, .00740 /
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 + .26290, .09029, .05173, .00679, .00176,
2455 + .00106, .00452, .00715,
2456 + .25662, .08792, .04936, .00658, .00172,
2457 + .00105, .00438, .00691,
2458 + .25078, .08574, .04721, .00639, .00169,
2459 + .00104, .00426, .00668,
2460 + .24535, .08371, .04528, .00622, .00165,
2461 + .00102, .00414, .00647,
2462 + .24003, .08172, .04343, .00605, .00162,
2463 + .00101, .00402, .00627 /
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 + .70768, .27250, .44144, .01974, .00000,
2466 + .00000, .01153, .02530,
2467 + .68161, .26051, .40596, .01894, .00000,
2468 + .00000, .01117, .02384,
2469 + .64582, .24428, .35952, .01782, .00006,
2470 + .00000, .01064, .02195,
2471 + .62177, .23365, .32923, .01710, .00043,
2472 + .00000, .01026, .02070,
2473 + .59778, .22311, .30052, .01634, .00074,
2474 + .00000, .00988, .01951,
2475 + .57809, .21453, .27816, .01570, .00094,
2476 + .00000, .00955, .01857,
2477 + .55997, .20675, .25852, .01513, .00111,
2478 + .00000, .00924, .01770,
2479 + .54155, .19891, .23944, .01455, .00125,
2480 + .00000, .00893, .01682 /
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 + .52620, .19243, .22420, .01407, .00135,
2483 + .00000, .00866, .01611,
2484 + .51191, .18642, .21057, .01361, .00144,
2485 + .00000, .00840, .01547,
2486 + .50091, .18184, .20043, .01325, .00149,
2487 + .00000, .00819, .01499,
2488 + .47851, .17260, .18058, .01253, .00158,
2489 + .00001, .00778, .01400,
2490 + .46031, .16517, .16507, .01197, .00164,
2491 + .00012, .00746, .01321,
2492 + .44104, .15734, .14938, .01137, .00168,
2493 + .00029, .00710, .01241,
2494 + .42196, .14968, .13491, .01076, .00170,
2495 + .00042, .00674, .01165,
2496 + .40552, .14314, .12322, .01023, .00171,
2497 + .00051, .00642, .01100 /
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 + .38972, .13689, .11264, .00972, .00170,
2500 + .00058, .00613, .01039,
2501 + .37712, .13197, .10469, .00934, .00169,
2502 + .00063, .00589, .00989,
2503 + .36242, .12627, .09592, .00892, .00167,
2504 + .00068, .00562, .00932,
2505 + .35001, .12147, .08889, .00855, .00165,
2506 + .00071, .00538, .00886,
2507 + .33911, .11727, .08299, .00822, .00163,
2508 + .00073, .00517, .00847,
2509 + .32583, .11218, .07617, .00780, .00159,
2510 + .00075, .00493, .00799,
2511 + .31385, .10762, .07037, .00744, .00156,
2512 + .00077, .00471, .00758,
2513 + .30311, .10355, .06543, .00712, .00152,
2514 + .00078, .00451, .00721 /
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 + .29282, .09967, .06091, .00680, .00149,
2517 + .00078, .00432, .00686,
2518 + .28305, .09604, .05685, .00651, .00145,
2519 + .00078, .00413, .00654,
2520 + .27417, .09274, .05331, .00625, .00142,
2521 + .00078, .00397, .00626,
2522 + .26607, .08975, .05021, .00604, .00138,
2523 + .00077, .00382, .00599,
2524 + .25822, .08685, .04733, .00582, .00135,
2525 + .00077, .00368, .00574,
2526 + .25078, .08410, .04469, .00560, .00132,
2527 + .00076, .00355, .00552,
2528 + .24389, .08159, .04235, .00541, .00129,
2529 + .00075, .00342, .00530,
2530 + .23757, .07929, .04028, .00523, .00126,
2531 + .00075, .00331, .00509 /
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 + .23136, .07704, .03831, .00506, .00123,
2534 + .00074, .00321, .00491,
2535 + .22542, .07488, .03648, .00490, .00120,
2536 + .00073, .00310, .00474,
2537 + .21990, .07289, .03483, .00475, .00117,
2538 + .00072, .00301, .00458,
2539 + .21480, .07106, .03335, .00461, .00115,
2540 + .00071, .00292, .00442,
2541 + .20980, .06926, .03193, .00448, .00112,
2542 + .00070, .00283, .00428 /
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 + .67890, .25252, .36461, .01641, .00000,
2545 + .00000, .00909, .01892,
2546 + .65121, .24042, .33429, .01562, .00000,
2547 + .00000, .00875, .01780,
2548 + .61340, .22427, .29457, .01459, .00005,
2549 + .00000, .00827, .01628,
2550 + .58828, .21368, .26877, .01392, .00032,
2551 + .00000, .00796, .01529,
2552 + .56333, .20329, .24446, .01323, .00056,
2553 + .00000, .00762, .01436,
2554 + .54295, .19487, .22546, .01267, .00071,
2555 + .00000, .00734, .01360,
2556 + .52431, .18723, .20880, .01216, .00083,
2557 + .00000, .00707, .01294,
2558 + .50545, .17959, .19266, .01164, .00093,
2559 + .00000, .00679, .01227 /
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 + .48979, .17330, .17981, .01121, .00100,
2562 + .00000, .00657, .01172,
2563 + .47529, .16748, .16836, .01080, .00106,
2564 + .00000, .00636, .01121,
2565 + .46414, .16307, .15986, .01050, .00110,
2566 + .00000, .00620, .01083,
2567 + .44155, .15418, .14326, .00990, .00116,
2568 + .00000, .00586, .01008,
2569 + .42332, .14704, .13038, .00940, .00120,
2570 + .00009, .00558, .00949,
2571 + .40409, .13958, .11743, .00888, .00122,
2572 + .00021, .00528, .00889,
2573 + .38518, .13232, .10554, .00836, .00124,
2574 + .00030, .00499, .00831,
2575 + .36896, .12612, .09596, .00791, .00124,
2576 + .00037, .00474, .00781 /
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 + .35339, .12023, .08734, .00751, .00123,
2579 + .00042, .00452, .00733,
2580 + .34106, .11561, .08088, .00720, .00122,
2581 + .00045, .00433, .00697,
2582 + .32681, .11028, .07378, .00681, .00120,
2583 + .00048, .00411, .00657,
2584 + .31475, .10581, .06813, .00649, .00118,
2585 + .00051, .00392, .00623,
2586 + .30415, .10192, .06340, .00624, .00116,
2587 + .00052, .00375, .00593,
2588 + .29135, .09718, .05797, .00589, .00113,
2589 + .00053, .00357, .00560,
2590 + .27983, .09298, .05336, .00560, .00111,
2591 + .00054, .00339, .00529,
2592 + .26952, .08924, .04946, .00535, .00108,
2593 + .00055, .00324, .00501 /
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 + .25967, .08570, .04590, .00511, .00105,
2596 + .00055, .00310, .00475,
2597 + .25037, .08236, .04271, .00489, .00102,
2598 + .00055, .00296, .00452,
2599 + .24195, .07935, .03994, .00469, .00100,
2600 + .00054, .00284, .00431,
2601 + .23431, .07663, .03752, .00450, .00097,
2602 + .00054, .00272, .00411,
2603 + .22691, .07401, .03528, .00433, .00094,
2604 + .00054, .00261, .00393,
2605 + .21991, .07152, .03324, .00416, .00092,
2606 + .00053, .00251, .00376,
2607 + .21344, .06924, .03143, .00400, .00090,
2608 + .00052, .00242, .00361,
2609 + .20754, .06717, .02982, .00386, .00087,
2610 + .00052, .00233, .00347 /
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 + .20174, .06515, .02831, .00373, .00085,
2613 + .00051, .00226, .00334,
2614 + .19619, .06324, .02690, .00361, .00083,
2615 + .00050, .00218, .00321,
2616 + .19106, .06146, .02565, .00350, .00081,
2617 + .00050, .00211, .00309,
2618 + .18634, .05981, .02452, .00338, .00079,
2619 + .00049, .00204, .00298,
2620 + .18171, .05821, .02345, .00327, .00078,
2621 + .00048, .00198, .00287 /
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 + .64461, .23163, .30367, .01337, .00000,
2624 + .00000, .00710, .01395,
2625 + .61573, .21975, .27742, .01270, .00000,
2626 + .00000, .00681, .01304,
2627 + .57671, .20385, .24308, .01176, .00004,
2628 + .00000, .00639, .01187,
2629 + .55093, .19354, .22083, .01117, .00024,
2630 + .00000, .00609, .01112,
2631 + .52555, .18340, .19985, .01053, .00042,
2632 + .00000, .00583, .01041,
2633 + .50488, .17526, .18354, .01004, .00053,
2634 + .00000, .00559, .00985,
2635 + .48605, .16793, .16929, .00960, .00061,
2636 + .00000, .00536, .00933,
2637 + .46707, .16061, .15554, .00916, .00069,
2638 + .00000, .00514, .00882 /
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 + .45139, .15459, .14462, .00879, .00074,
2641 + .00000, .00495, .00841,
2642 + .43691, .14903, .13490, .00844, .00078,
2643 + .00000, .00479, .00803,
2644 + .42584, .14481, .12772, .00819, .00081,
2645 + .00000, .00465, .00773,
2646 + .40347, .13637, .11377, .00769, .00085,
2647 + .00000, .00437, .00716,
2648 + .38548, .12966, .10301, .00727, .00087,
2649 + .00006, .00414, .00672,
2650 + .36665, .12265, .09225, .00681, .00089,
2651 + .00015, .00391, .00627,
2652 + .34819, .11584, .08244, .00639, .00089,
2653 + .00022, .00369, .00583,
2654 + .33239, .11007, .07460, .00606, .00089,
2655 + .00026, .00350, .00546 /
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 + .31734, .10461, .06758, .00572, .00088,
2658 + .00030, .00331, .00512,
2659 + .30547, .10033, .06232, .00545, .00087,
2660 + .00032, .00315, .00486,
2661 + .29176, .09541, .05661, .00514, .00085,
2662 + .00034, .00298, .00456,
2663 + .28024, .09130, .05208, .00489, .00084,
2664 + .00036, .00284, .00431,
2665 + .27017, .08773, .04829, .00468, .00082,
2666 + .00037, .00272, .00409,
2667 + .25798, .08341, .04396, .00440, .00080,
2668 + .00038, .00257, .00385,
2669 + .24709, .07958, .04032, .00417, .00078,
2670 + .00038, .00243, .00363,
2671 + .23738, .07618, .03724, .00396, .00076,
2672 + .00038, .00232, .00344 /
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 + .22813, .07297, .03443, .00377, .00073,
2675 + .00038, .00220, .00327,
2676 + .21941, .06996, .03195, .00359, .00071,
2677 + .00038, .00211, .00309,
2678 + .21156, .06726, .02980, .00343, .00069,
2679 + .00038, .00202, .00293,
2680 + .20445, .06481, .02792, .00328, .00067,
2681 + .00038, .00193, .00279,
2682 + .19756, .06246, .02619, .00315, .00065,
2683 + .00037, .00184, .00266,
2684 + .19104, .06025, .02461, .00303, .00064,
2685 + .00037, .00176, .00253,
2686 + .18505, .05823, .02322, .00291, .00062,
2687 + .00036, .00169, .00243,
2688 + .17960, .05639, .02199, .00280, .00060,
2689 + .00036, .00163, .00233 /
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 + .17428, .05459, .02084, .00269, .00059,
2692 + .00035, .00157, .00224,
2693 + .16920, .05287, .01977, .00259, .00057,
2694 + .00034, .00152, .00216,
2695 + .16451, .05129, .01881, .00250, .00056,
2696 + .00034, .00147, .00208,
2697 + .16017, .04984, .01796, .00242, .00054,
2698 + .00033, .00142, .00201,
2699 + .15594, .04843, .01715, .00234, .00053,
2700 + .00033, .00137, .00194 /
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 + .60571, .21057, .25557, .01089, .00000,
2703 + .00000, .00539, .01004,
2704 + .57626, .19900, .23231, .01026, .00000,
2705 + .00000, .00516, .00934,
2706 + .53667, .18364, .20196, .00945, .00003,
2707 + .00000, .00480, .00848,
2708 + .51075, .17370, .18246, .00891, .00018,
2709 + .00000, .00458, .00792,
2710 + .48535, .16402, .16414, .00836, .00031,
2711 + .00000, .00437, .00737,
2712 + .46475, .15624, .14995, .00793, .00039,
2713 + .00000, .00417, .00694,
2714 + .44608, .14927, .13762, .00754, .00045,
2715 + .00000, .00399, .00657,
2716 + .42734, .14231, .12579, .00717, .00050,
2717 + .00000, .00380, .00621 /
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 + .41190, .13662, .11645, .00686, .00054,
2720 + .00000, .00365, .00590,
2721 + .39769, .13143, .10814, .00656, .00057,
2722 + .00000, .00352, .00560,
2723 + .38688, .12748, .10205, .00635, .00059,
2724 + .00000, .00341, .00539,
2725 + .36509, .11959, .09028, .00592, .00061,
2726 + .00000, .00318, .00498,
2727 + .34768, .11332, .08127, .00556, .00063,
2728 + .00004, .00301, .00467,
2729 + .32949, .10682, .07235, .00519, .00064,
2730 + .00011, .00283, .00435,
2731 + .31173, .10055, .06428, .00486, .00064,
2732 + .00015, .00265, .00403,
2733 + .29663, .09525, .05785, .00459, .00063,
2734 + .00019, .00250, .00375 /
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 + .28229, .09023, .05213, .00432, .00062,
2737 + .00021, .00236, .00351,
2738 + .27106, .08630, .04788, .00407, .00062,
2739 + .00023, .00225, .00332,
2740 + .25806, .08183, .04327, .00384, .00060,
2741 + .00024, .00212, .00311,
2742 + .24719, .07811, .03964, .00365, .00059,
2743 + .00025, .00201, .00293,
2744 + .23773, .07488, .03663, .00349, .00058,
2745 + .00026, .00192, .00277,
2746 + .22628, .07099, .03320, .00329, .00056,
2747 + .00026, .00181, .00259,
2748 + .21611, .06755, .03033, .00310, .00054,
2749 + .00027, .00171, .00244,
2750 + .20709, .06450, .02792, .00293, .00053,
2751 + .00027, .00162, .00230 /
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 + .19854, .06162, .02574, .00276, .00051,
2754 + .00027, .00154, .00217,
2755 + .19049, .05894, .02380, .00262, .00049,
2756 + .00026, .00146, .00205,
2757 + .18324, .05653, .02213, .00250, .00048,
2758 + .00026, .00139, .00194,
2759 + .17671, .05436, .02069, .00240, .00046,
2760 + .00026, .00133, .00186,
2761 + .17037, .05229, .01936, .00231, .00045,
2762 + .00025, .00127, .00177,
2763 + .16439, .05034, .01815, .00221, .00044,
2764 + .00025, .00122, .00169,
2765 + .15894, .04856, .01709, .00212, .00042,
2766 + .00025, .00117, .00161,
2767 + .15399, .04694, .01615, .00204, .00041,
2768 + .00024, .00113, .00153 /
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 + .14917, .04536, .01527, .00196, .00040,
2771 + .00024, .00109, .00147,
2772 + .14458, .04386, .01446, .00187, .00039,
2773 + .00023, .00105, .00140,
2774 + .14032, .04248, .01373, .00180, .00038,
2775 + .00023, .00101, .00135,
2776 + .13639, .04122, .01309, .00175, .00037,
2777 + .00023, .00098, .00130,
2778 + .13256, .03999, .01248, .00170, .00036,
2779 + .00022, .00094, .00125 /
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 + .56345, .18954, .21668, .00866, .00000,
2782 + .00000, .00408, .00708,
2783 + .53393, .17843, .19566, .00813, .00000,
2784 + .00000, .00386, .00659,
2785 + .49452, .16378, .16842, .00742, .00002,
2786 + .00000, .00357, .00595,
2787 + .46883, .15436, .15110, .00697, .00013,
2788 + .00000, .00338, .00554,
2789 + .44377, .14526, .13493, .00650, .00023,
2790 + .00000, .00319, .00514,
2791 + .42358, .13796, .12251, .00619, .00028,
2792 + .00000, .00303, .00480,
2793 + .40531, .13145, .11180, .00589, .00033,
2794 + .00000, .00289, .00452,
2795 + .38711, .12495, .10158, .00555, .00036,
2796 + .00000, .00275, .00425 /
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 + .37221, .11963, .09355, .00527, .00039,
2799 + .00000, .00264, .00404,
2800 + .35846, .11479, .08647, .00504, .00041,
2801 + .00000, .00252, .00385,
2802 + .34801, .11115, .08128, .00486, .00042,
2803 + .00000, .00244, .00369,
2804 + .32708, .10389, .07135, .00452, .00044,
2805 + .00000, .00227, .00339,
2806 + .31044, .09813, .06383, .00424, .00045,
2807 + .00003, .00214, .00318,
2808 + .29313, .09219, .05645, .00393, .00045,
2809 + .00008, .00200, .00295,
2810 + .27633, .08647, .04981, .00367, .00045,
2811 + .00011, .00186, .00271,
2812 + .26212, .08165, .04457, .00343, .00044,
2813 + .00013, .00175, .00253 /
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 + .24868, .07711, .03994, .00322, .00044,
2816 + .00015, .00165, .00236,
2817 + .23809, .07358, .03654, .00306, .00043,
2818 + .00016, .00156, .00222,
2819 + .22602, .06955, .03287, .00285, .00042,
2820 + .00017, .00146, .00207,
2821 + .21595, .06621, .02998, .00270, .00041,
2822 + .00017, .00138, .00195,
2823 + .20718, .06331, .02760, .00256, .00040,
2824 + .00018, .00132, .00184,
2825 + .19662, .05985, .02491, .00240, .00038,
2826 + .00018, .00123, .00172,
2827 + .18727, .05679, .02266, .00225, .00037,
2828 + .00018, .00116, .00162,
2829 + .17899, .05411, .02078, .00212, .00036,
2830 + .00018, .00110, .00153 /
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 + .17114, .05159, .01910, .00201, .00035,
2833 + .00018, .00105, .00141,
2834 + .16379, .04922, .01761, .00192, .00034,
2835 + .00018, .00099, .00133,
2836 + .15720, .04710, .01633, .00182, .00032,
2837 + .00018, .00094, .00126,
2838 + .15129, .04519, .01523, .00172, .00031,
2839 + .00018, .00090, .00120,
2840 + .14559, .04337, .01421, .00164, .00030,
2841 + .00017, .00086, .00115,
2842 + .14021, .04166, .01330, .00156, .00029,
2843 + .00017, .00082, .00109,
2844 + .13528, .04011, .01249, .00151, .00029,
2845 + .00017, .00079, .00104,
2846 + .13079, .03870, .01179, .00146, .00028,
2847 + .00016, .00075, .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 + .12645, .03733, .01113, .00140, .00027,
2850 + .00016, .00072, .00095,
2851 + .12234, .03604, .01052, .00134, .00026,
2852 + .00016, .00069, .00091,
2853 + .11855, .03485, .00997, .00129, .00025,
2854 + .00016, .00066, .00087,
2855 + .11506, .03376, .00949, .00124, .00025,
2856 + .00015, .00064, .00084,
2857 + .11166, .03271, .00903, .00120, .00024,
2858 + .00015, .00062, .00080 /
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 + .51884, .16880, .18427, .00669, .00000,
2861 + .00000, .00305, .00495,
2862 + .48969, .15832, .16492, .00624, .00000,
2863 + .00000, .00288, .00459,
2864 + .45098, .14453, .14021, .00565, .00002,
2865 + .00000, .00264, .00413,
2866 + .42595, .13572, .12471, .00529, .00009,
2867 + .00000, .00250, .00383,
2868 + .40161, .12725, .11039, .00495, .00016,
2869 + .00000, .00235, .00351,
2870 + .38213, .12045, .09949, .00464, .00020,
2871 + .00000, .00222, .00332,
2872 + .36461, .11441, .09017, .00436, .00023,
2873 + .00000, .00211, .00312,
2874 + .34714, .10844, .08137, .00410, .00026,
2875 + .00000, .00200, .00292 /
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 + .33285, .10358, .07451, .00390, .00027,
2878 + .00000, .00192, .00276,
2879 + .31976, .09916, .06849, .00372, .00029,
2880 + .00000, .00182, .00262,
2881 + .30985, .09582, .06412, .00357, .00029,
2882 + .00000, .00176, .00252,
2883 + .29005, .08919, .05582, .00328, .00030,
2884 + .00000, .00163, .00232,
2885 + .27436, .08397, .04960, .00308, .00031,
2886 + .00002, .00153, .00215,
2887 + .25813, .07860, .04354, .00285, .00031,
2888 + .00005, .00143, .00199,
2889 + .24246, .07346, .03815, .00262, .00031,
2890 + .00008, .00133, .00184,
2891 + .22923, .06915, .03394, .00245, .00030,
2892 + .00009, .00125, .00170 /
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 + .21675, .06511, .03024, .00229, .00030,
2895 + .00010, .00116, .00158,
2896 + .20702, .06195, .02753, .00215, .00029,
2897 + .00011, .00110, .00148,
2898 + .19585, .05840, .02463, .00202, .00028,
2899 + .00011, .00103, .00137,
2900 + .18658, .05545, .02238, .00190, .00028,
2901 + .00012, .00097, .00129,
2902 + .17856, .05290, .02053, .00180, .00027,
2903 + .00012, .00092, .00122,
2904 + .16894, .04985, .01844, .00169, .00026,
2905 + .00012, .00086, .00113,
2906 + .16044, .04717, .01672, .00159, .00025,
2907 + .00012, .00081, .00105,
2908 + .15294, .04482, .01528, .00150, .00024,
2909 + .00012, .00077, .00099 /
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 + .14586, .04262, .01399, .00141, .00023,
2912 + .00012, .00073, .00092,
2913 + .13929, .04055, .01286, .00132, .00022,
2914 + .00012, .00068, .00088,
2915 + .13339, .03872, .01189, .00124, .00022,
2916 + .00012, .00064, .00084,
2917 + .12806, .03708, .01106, .00119, .00021,
2918 + .00012, .00062, .00079,
2919 + .12295, .03552, .01030, .00113, .00020,
2920 + .00012, .00059, .00075,
2921 + .11817, .03405, .00961, .00108, .00019,
2922 + .00011, .00056, .00071,
2923 + .11380, .03272, .00901, .00103, .00019,
2924 + .00011, .00054, .00067,
2925 + .10984, .03151, .00849, .00099, .00018,
2926 + .00011, .00052, .00063 /
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 + .10600, .03034, .00800, .00095, .00018,
2929 + .00011, .00049, .00061,
2930 + .10236, .02924, .00755, .00090, .00017,
2931 + .00010, .00047, .00059,
2932 + .09901, .02822, .00714, .00087, .00017,
2933 + .00010, .00045, .00057,
2934 + .09593, .02730, .00679, .00084, .00016,
2935 + .00010, .00043, .00055,
2936 + .09294, .02640, .00645, .00082, .00016,
2937 + .00010, .00041, .00052 /
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 + .47283, .14881, .15628, .00509, .00000,
2940 + .00000, .00223, .00340,
2941 + .44444, .13902, .13838, .00470, .00000,
2942 + .00000, .00209, .00315,
2943 + .40706, .12622, .11592, .00421, .00001,
2944 + .00000, .00192, .00280,
2945 + .38302, .11806, .10212, .00388, .00007,
2946 + .00000, .00181, .00261,
2947 + .35972, .11026, .08951, .00361, .00011,
2948 + .00000, .00171, .00240,
2949 + .34113, .10407, .08004, .00337, .00014,
2950 + .00000, .00160, .00227,
2951 + .32450, .09856, .07201, .00315, .00016,
2952 + .00000, .00152, .00213,
2953 + .30800, .09311, .06447, .00294, .00017,
2954 + .00000, .00144, .00199 /
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 + .29454, .08870, .05866, .00278, .00019,
2957 + .00000, .00136, .00189,
2958 + .28226, .08470, .05363, .00263, .00019,
2959 + .00000, .00130, .00179,
2960 + .27297, .08169, .05000, .00252, .00020,
2961 + .00000, .00125, .00171,
2962 + .25449, .07574, .04313, .00231, .00021,
2963 + .00000, .00116, .00155,
2964 + .23991, .07108, .03805, .00215, .00021,
2965 + .00002, .00109, .00143,
2966 + .22488, .06628, .03317, .00198, .00021,
2967 + .00004, .00102, .00132,
2968 + .21042, .06171, .02885, .00181, .00021,
2969 + .00005, .00094, .00123,
2970 + .19826, .05790, .02551, .00169, .00020,
2971 + .00006, .00088, .00114 /
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 + .18684, .05434, .02259, .00158, .00020,
2974 + .00007, .00082, .00104,
2975 + .17798, .05158, .02048, .00147, .00019,
2976 + .00007, .00076, .00099,
2977 + .16788, .04846, .01823, .00136, .00019,
2978 + .00008, .00073, .00092,
2979 + .15951, .04588, .01649, .00128, .00018,
2980 + .00008, .00069, .00086,
2981 + .15227, .04367, .01507, .00122, .00018,
2982 + .00008, .00065, .00081,
2983 + .14366, .04103, .01348, .00111, .00017,
2984 + .00008, .00060, .00076,
2985 + .13603, .03872, .01217, .00104, .00016,
2986 + .00008, .00056, .00071,
2987 + .12931, .03669, .01109, .00099, .00016,
2988 + .00008, .00053, .00066 /
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 + .12299, .03479, .01012, .00093, .00015,
2991 + .00008, .00050, .00061,
2992 + .11715, .03304, .00928, .00086, .00015,
2993 + .00008, .00047, .00059,
2994 + .11192, .03148, .00856, .00081, .00014,
2995 + .00008, .00044, .00056,
2996 + .10721, .03008, .00794, .00078, .00014,
2997 + .00008, .00042, .00052,
2998 + .10271, .02874, .00738, .00075, .00013,
2999 + .00008, .00040, .00049,
3000 + .09851, .02749, .00687, .00070, .00013,
3001 + .00007, .00038, .00047,
3002 + .09469, .02636, .00643, .00066, .00012,
3003 + .00007, .00037, .00045,
3004 + .09123, .02535, .00605, .00063, .00012,
3005 + .00007, .00035, .00043 /
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 + .08786, .02437, .00569, .00060, .00011,
3008 + .00007, .00033, .00041,
3009 + .08468, .02343, .00536, .00059, .00011,
3010 + .00007, .00032, .00038,
3011 + .08176, .02258, .00507, .00057, .00011,
3012 + .00007, .00030, .00036,
3013 + .07911, .02181, .00481, .00054, .00010,
3014 + .00007, .00029, .00035,
3015 + .07653, .02106, .00456, .00051, .00010,
3016 + .00006, .00028, .00034 /
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 + .42633, .12997, .13160, .00390, .00000,
3019 + .00000, .00153, .00222,
3020 + .39914, .12096, .11519, .00360, .00000,
3021 + .00000, .00143, .00204,
3022 + .36351, .10926, .09502, .00321, .00001,
3023 + .00000, .00129, .00182,
3024 + .34074, .10181, .08286, .00294, .00004,
3025 + .00000, .00121, .00170,
3026 + .31880, .09475, .07190, .00272, .00007,
3027 + .00000, .00113, .00153,
3028 + .30137, .08916, .06376, .00254, .00009,
3029 + .00000, .00107, .00141,
3030 + .28582, .08418, .05694, .00237, .00011,
3031 + .00000, .00100, .00135,
3032 + .27045, .07930, .05061, .00220, .00012,
3033 + .00000, .00093, .00126 /
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 + .25793, .07536, .04577, .00208, .00012,
3036 + .00000, .00089, .00118,
3037 + .24652, .07181, .04159, .00200, .00013,
3038 + .00000, .00085, .00110,
3039 + .23796, .06913, .03860, .00191, .00013,
3040 + .00000, .00081, .00105,
3041 + .22099, .06384, .03302, .00172, .00014,
3042 + .00000, .00074, .00097,
3043 + .20763, .05971, .02893, .00160, .00014,
3044 + .00001, .00069, .00089,
3045 + .19392, .05550, .02504, .00147, .00014,
3046 + .00002, .00064, .00082,
3047 + .18078, .05149, .02163, .00135, .00014,
3048 + .00003, .00059, .00075,
3049 + .16980, .04816, .01902, .00125, .00013,
3050 + .00004, .00055, .00069 /
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 + .15954, .04507, .01676, .00115, .00013,
3053 + .00005, .00051, .00065,
3054 + .15158, .04267, .01513, .00108, .00013,
3055 + .00005, .00048, .00060,
3056 + .14252, .03997, .01341, .00100, .00012,
3057 + .00005, .00045, .00055,
3058 + .13505, .03774, .01208, .00093, .00012,
3059 + .00005, .00042, .00052,
3060 + .12862, .03583, .01100, .00088, .00012,
3061 + .00005, .00039, .00050,
3062 + .12094, .03357, .00980, .00081, .00011,
3063 + .00005, .00036, .00047,
3064 + .11419, .03160, .00882, .00077, .00011,
3065 + .00005, .00034, .00042,
3066 + .10828, .02987, .00801, .00072, .00010,
3067 + .00005, .00032, .00039 /
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 + .10274, .02826, .00729, .00067, .00010,
3070 + .00005, .00029, .00038,
3071 + .09761, .02677, .00667, .00063, .00009,
3072 + .00005, .00028, .00035,
3073 + .09303, .02544, .00614, .00060, .00009,
3074 + .00005, .00026, .00032,
3075 + .08893, .02427, .00568, .00057, .00009,
3076 + .00005, .00025, .00030,
3077 + .08502, .02314, .00527, .00054, .00008,
3078 + .00005, .00023, .00028,
3079 + .08138, .02209, .00490, .00051, .00008,
3080 + .00005, .00022, .00027,
3081 + .07806, .02114, .00458, .00048, .00008,
3082 + .00005, .00021, .00026,
3083 + .07507, .02029, .00430, .00047, .00007,
3084 + .00005, .00020, .00025 /
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 + .07217, .01947, .00403, .00044, .00007,
3087 + .00005, .00019, .00024,
3088 + .06944, .01870, .00379, .00042, .00007,
3089 + .00004, .00018, .00022,
3090 + .06694, .01799, .00358, .00040, .00007,
3091 + .00004, .00018, .00021,
3092 + .06466, .01734, .00340, .00039, .00007,
3093 + .00004, .00017, .00020,
3094 + .06246, .01672, .00322, .00037, .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 + .37999, .11191, .10880, .00274, .00000,
3098 + .00000, .00112, .00149,
3099 + .35433, .10373, .09410, .00249, .00000,
3100 + .00000, .00104, .00138,
3101 + .32082, .09319, .07633, .00222, .00001,
3102 + .00000, .00092, .00123,
3103 + .29955, .08654, .06585, .00203, .00003,
3104 + .00000, .00086, .00112,
3105 + .27914, .08023, .05654, .00186, .00005,
3106 + .00000, .00080, .00102,
3107 + .26303, .07525, .04971, .00173, .00006,
3108 + .00000, .00075, .00093,
3109 + .24868, .07083, .04406, .00161, .00007,
3110 + .00000, .00070, .00088,
3111 + .23453, .06652, .03886, .00150, .00007,
3112 + .00000, .00065, .00082 /
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 + .22308, .06306, .03491, .00142, .00008,
3115 + .00000, .00062, .00076,
3116 + .21270, .05992, .03154, .00133, .00008,
3117 + .00000, .00059, .00073,
3118 + .20488, .05758, .02913, .00128, .00008,
3119 + .00000, .00056, .00069,
3120 + .18947, .05296, .02470, .00117, .00009,
3121 + .00000, .00051, .00062,
3122 + .17744, .04938, .02150, .00106, .00009,
3123 + .00001, .00048, .00057,
3124 + .16507, .04574, .01847, .00099, .00009,
3125 + .00002, .00043, .00052,
3126 + .15332, .04228, .01585, .00090, .00009,
3127 + .00002, .00040, .00047,
3128 + .14350, .03940, .01385, .00083, .00008,
3129 + .00003, .00037, .00044 /
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 + .13435, .03675, .01214, .00077, .00008,
3132 + .00003, .00034, .00040,
3133 + .12730, .03471, .01092, .00073, .00008,
3134 + .00003, .00032, .00038,
3135 + .11932, .03242, .00963, .00066, .00008,
3136 + .00003, .00029, .00034,
3137 + .11275, .03053, .00864, .00061, .00007,
3138 + .00003, .00027, .00032,
3139 + .10710, .02892, .00785, .00058, .00007,
3140 + .00003, .00025, .00030,
3141 + .10038, .02701, .00697, .00054, .00007,
3142 + .00003, .00023, .00029,
3143 + .09451, .02534, .00625, .00051, .00007,
3144 + .00003, .00022, .00026,
3145 + .08939, .02389, .00566, .00048, .00006,
3146 + .00003, .00021, .00024 /
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 + .08459, .02254, .00514, .00044, .00006,
3149 + .00003, .00019, .00023,
3150 + .08016, .02130, .00469, .00040, .00006,
3151 + .00003, .00018, .00021,
3152 + .07622, .02020, .00430, .00038, .00006,
3153 + .00003, .00016, .00019,
3154 + .07270, .01922, .00398, .00036, .00005,
3155 + .00003, .00015, .00017,
3156 + .06935, .01829, .00368, .00034, .00005,
3157 + .00003, .00014, .00017,
3158 + .06623, .01743, .00342, .00032, .00005,
3159 + .00003, .00014, .00017,
3160 + .06341, .01664, .00319, .00030, .00005,
3161 + .00003, .00013, .00017,
3162 + .06086, .01594, .00299, .00028, .00005,
3163 + .00003, .00012, .00016 /
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 + .05841, .01527, .00280, .00027, .00004,
3166 + .00003, .00012, .00014,
3167 + .05610, .01463, .00263, .00027, .00004,
3168 + .00003, .00011, .00013,
3169 + .05398, .01405, .00248, .00026, .00004,
3170 + .00003, .00011, .00012,
3171 + .05205, .01353, .00235, .00024, .00004,
3172 + .00003, .00010, .00012,
3173 + .05018, .01302, .00223, .00023, .00004,
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 + .33464, .09524, .08815, .00188, .00000,
3177 + .00000, .00080, .00099,
3178 + .31072, .08793, .07528, .00171, .00000,
3179 + .00000, .00073, .00090,
3180 + .27974, .07853, .06003, .00149, .00000,
3181 + .00000, .00064, .00080,
3182 + .26016, .07265, .05122, .00137, .00002,
3183 + .00000, .00059, .00073,
3184 + .24146, .06708, .04350, .00124, .00003,
3185 + .00000, .00053, .00067,
3186 + .22671, .06272, .03792, .00116, .00004,
3187 + .00000, .00050, .00061,
3188 + .21366, .05886, .03333, .00109, .00004,
3189 + .00000, .00047, .00057,
3190 + .20084, .05511, .02917, .00101, .00005,
3191 + .00000, .00044, .00052 /
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 + .19051, .05210, .02604, .00095, .00005,
3194 + .00000, .00041, .00049,
3195 + .18121, .04938, .02339, .00087, .00005,
3196 + .00000, .00038, .00046,
3197 + .17420, .04735, .02151, .00083, .00005,
3198 + .00000, .00037, .00044,
3199 + .16039, .04337, .01808, .00075, .00005,
3200 + .00000, .00034, .00040,
3201 + .14967, .04029, .01563, .00068, .00005,
3202 + .00000, .00031, .00037,
3203 + .13873, .03718, .01334, .00063, .00005,
3204 + .00001, .00029, .00033,
3205 + .12833, .03424, .01137, .00057, .00005,
3206 + .00001, .00026, .00030,
3207 + .11970, .03181, .00988, .00052, .00005,
3208 + .00002, .00024, .00028 /
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 + .11170, .02956, .00862, .00048, .00005,
3211 + .00002, .00022, .00026,
3212 + .10556, .02783, .00772, .00043, .00005,
3213 + .00002, .00021, .00025,
3214 + .09860, .02590, .00678, .00041, .00005,
3215 + .00002, .00019, .00023,
3216 + .09289, .02433, .00607, .00039, .00005,
3217 + .00002, .00017, .00021,
3218 + .08801, .02299, .00549, .00036, .00004,
3219 + .00002, .00016, .00019,
3220 + .08224, .02140, .00486, .00033, .00004,
3221 + .00002, .00015, .00017,
3222 + .07720, .02002, .00435, .00031, .00004,
3223 + .00002, .00014, .00016,
3224 + .07280, .01883, .00393, .00029, .00004,
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 + .06869, .01772, .00356, .00027, .00004,
3228 + .00002, .00012, .00014,
3229 + .06493, .01669, .00324, .00025, .00003,
3230 + .00002, .00011, .00014,
3231 + .06158, .01579, .00297, .00023, .00003,
3232 + .00002, .00011, .00013,
3233 + .05861, .01499, .00274, .00022, .00003,
3234 + .00002, .00010, .00011,
3235 + .05578, .01424, .00253, .00021, .00003,
3236 + .00002, .00009, .00010,
3237 + .05316, .01353, .00235, .00019, .00003,
3238 + .00002, .00009, .00010,
3239 + .05078, .01290, .00219, .00018, .00003,
3240 + .00002, .00008, .00010,
3241 + .04865, .01233, .00205, .00017, .00003,
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 + .04660, .01179, .00192, .00016, .00003,
3245 + .00002, .00008, .00009,
3246 + .04466, .01128, .00180, .00015, .00003,
3247 + .00002, .00007, .00008,
3248 + .04290, .01081, .00169, .00015, .00002,
3249 + .00002, .00007, .00008,
3250 + .04130, .01039, .00160, .00014, .00002,
3251 + .00002, .00007, .00007,
3252 + .03976, .00998, .00151, .00013, .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 + .29107, .08014, .06975, .00135, .00000,
3256 + .00000, .00050, .00061,
3257 + .26917, .07367, .05880, .00121, .00000,
3258 + .00000, .00045, .00055,
3259 + .24089, .06545, .04612, .00105, .00000,
3260 + .00000, .00040, .00048,
3261 + .22313, .06032, .03891, .00097, .00001,
3262 + .00000, .00036, .00041,
3263 + .20625, .05545, .03272, .00087, .00002,
3264 + .00000, .00032, .00040,
3265 + .19303, .05167, .02828, .00081, .00002,
3266 + .00000, .00030, .00037,
3267 + .18135, .04835, .02468, .00074, .00002,
3268 + .00000, .00029, .00033,
3269 + .16992, .04512, .02144, .00069, .00003,
3270 + .00000, .00027, .00030 /
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 + .16074, .04254, .01902, .00065, .00003,
3273 + .00000, .00025, .00028,
3274 + .15246, .04021, .01698, .00060, .00003,
3275 + .00000, .00024, .00027,
3276 + .14626, .03849, .01556, .00057, .00003,
3277 + .00000, .00023, .00025,
3278 + .13410, .03511, .01297, .00051, .00003,
3279 + .00000, .00020, .00023,
3280 + .12468, .03252, .01115, .00046, .00003,
3281 + .00000, .00018, .00021,
3282 + .11512, .02989, .00946, .00042, .00003,
3283 + .00001, .00016, .00019,
3284 + .10610, .02741, .00802, .00039, .00003,
3285 + .00001, .00015, .00017,
3286 + .09863, .02538, .00694, .00035, .00003,
3287 + .00001, .00014, .00016 /
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 + .09173, .02352, .00603, .00032, .00003,
3290 + .00001, .00013, .00014,
3291 + .08643, .02209, .00538, .00030, .00003,
3292 + .00001, .00011, .00014,
3293 + .08045, .02049, .00471, .00029, .00003,
3294 + .00001, .00010, .00012,
3295 + .07558, .01919, .00420, .00027, .00003,
3296 + .00001, .00010, .00011,
3297 + .07143, .01808, .00379, .00024, .00003,
3298 + .00001, .00009, .00010,
3299 + .06651, .01678, .00335, .00023, .00002,
3300 + .00001, .00008, .00009,
3301 + .06226, .01565, .00299, .00021, .00002,
3302 + .00001, .00008, .00009,
3303 + .05856, .01468, .00269, .00018, .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 + .05512, .01377, .00244, .00017, .00002,
3307 + .00001, .00006, .00008,
3308 + .05194, .01295, .00221, .00016, .00002,
3309 + .00001, .00006, .00007,
3310 + .04914, .01222, .00202, .00015, .00002,
3311 + .00001, .00006, .00007,
3312 + .04665, .01157, .00187, .00015, .00002,
3313 + .00001, .00006, .00006,
3314 + .04430, .01096, .00172, .00014, .00002,
3315 + .00001, .00005, .00006,
3316 + .04212, .01040, .00159, .00013, .00002,
3317 + .00001, .00005, .00005,
3318 + .04016, .00989, .00148, .00012, .00002,
3319 + .00001, .00005, .00005,
3320 + .03841, .00944, .00139, .00011, .00002,
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 + .03671, .00901, .00130, .00011, .00002,
3324 + .00001, .00004, .00004,
3325 + .03511, .00860, .00122, .00011, .00001,
3326 + .00001, .00004, .00004,
3327 + .03366, .00823, .00114, .00010, .00001,
3328 + .00001, .00003, .00004,
3329 + .03234, .00789, .00108, .00010, .00001,
3330 + .00001, .00003, .00004,
3331 + .03108, .00757, .00102, .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 + .24953, .06625, .05334, .00081, .00000,
3335 + .00000, .00036, .00041,
3336 + .22971, .06065, .04441, .00073, .00000,
3337 + .00000, .00032, .00038,
3338 + .20430, .05356, .03426, .00066, .00000,
3339 + .00000, .00028, .00031,
3340 + .18851, .04914, .02860, .00057, .00001,
3341 + .00000, .00025, .00028,
3342 + .17352, .04502, .02379, .00051, .00001,
3343 + .00000, .00022, .00027,
3344 + .16181, .04179, .02040, .00046, .00001,
3345 + .00000, .00021, .00023,
3346 + .15148, .03899, .01767, .00044, .00001,
3347 + .00000, .00019, .00021,
3348 + .14144, .03627, .01524, .00041, .00001,
3349 + .00000, .00017, .00019 /
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 + .13342, .03409, .01344, .00038, .00002,
3352 + .00000, .00016, .00018,
3353 + .12621, .03214, .01194, .00035, .00002,
3354 + .00000, .00015, .00018,
3355 + .12083, .03069, .01090, .00033, .00002,
3356 + .00000, .00014, .00017,
3357 + .11028, .02788, .00902, .00029, .00002,
3358 + .00000, .00013, .00015,
3359 + .10215, .02572, .00770, .00027, .00002,
3360 + .00000, .00012, .00013,
3361 + .09394, .02354, .00649, .00024, .00002,
3362 + .00000, .00011, .00012,
3363 + .08621, .02152, .00548, .00022, .00002,
3364 + .00001, .00010, .00011,
3365 + .07985, .01985, .00472, .00020, .00002,
3366 + .00001, .00009, .00010 /
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 + .07398, .01832, .00409, .00018, .00002,
3369 + .00001, .00008, .00009,
3370 + .06950, .01716, .00364, .00017, .00002,
3371 + .00001, .00007, .00009,
3372 + .06448, .01586, .00317, .00015, .00002,
3373 + .00001, .00006, .00008,
3374 + .06039, .01481, .00282, .00014, .00001,
3375 + .00001, .00006, .00007,
3376 + .05691, .01392, .00255, .00013, .00001,
3377 + .00001, .00006, .00007,
3378 + .05283, .01287, .00224, .00012, .00001,
3379 + .00001, .00005, .00006,
3380 + .04928, .01197, .00200, .00011, .00001,
3381 + .00001, .00005, .00005,
3382 + .04621, .01119, .00180, .00010, .00001,
3383 + .00001, .00004, .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 + .04336, .01047, .00162, .00010, .00001,
3386 + .00001, .00004, .00005,
3387 + .04077, .00981, .00147, .00009, .00001,
3388 + .00001, .00004, .00004,
3389 + .03847, .00924, .00135, .00008, .00001,
3390 + .00001, .00004, .00004,
3391 + .03644, .00873, .00124, .00007, .00001,
3392 + .00001, .00003, .00003,
3393 + .03452, .00825, .00114, .00007, .00001,
3394 + .00001, .00003, .00003,
3395 + .03275, .00781, .00105, .00007, .00001,
3396 + .00001, .00003, .00003,
3397 + .03115, .00741, .00098, .00006, .00001,
3398 + .00001, .00003, .00003,
3399 + .02971, .00706, .00092, .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 + .02834, .00672, .00086, .00006, .00001,
3403 + .00001, .00003, .00003,
3404 + .02705, .00640, .00080, .00006, .00001,
3405 + .00001, .00003, .00003,
3406 + .02589, .00611, .00075, .00005, .00001,
3407 + .00001, .00003, .00003,
3408 + .02484, .00585, .00071, .00005, .00001,
3409 + .00001, .00002, .00003,
3410 + .02382, .00561, .00067, .00005, .00001,
3411 + .00001, .00002, .00003 /
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 + .17507, .04325, .02809, .00034, .00000,
3414 + .00000, .00012, .00014,
3415 + .15970, .03925, .02282, .00031, .00000,
3416 + .00000, .00011, .00011,
3417 + .14024, .03421, .01704, .00026, .00000,
3418 + .00000, .00009, .00010,
3419 + .12828, .03113, .01395, .00021, .00000,
3420 + .00000, .00008, .00009,
3421 + .11703, .02825, .01139, .00018, .00000,
3422 + .00000, .00007, .00009,
3423 + .10832, .02605, .00962, .00018, .00000,
3424 + .00000, .00007, .00007,
3425 + .10072, .02413, .00823, .00016, .00000,
3426 + .00000, .00006, .00007,
3427 + .09338, .02229, .00701, .00014, .00000,
3428 + .00000, .00006, .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 + .08753, .02082, .00612, .00013, .00000,
3431 + .00000, .00006, .00006,
3432 + .08231, .01952, .00539, .00012, .00000,
3433 + .00000, .00005, .00006,
3434 + .07845, .01856, .00489, .00012, .00000,
3435 + .00000, .00005, .00005,
3436 + .07095, .01670, .00400, .00010, .00000,
3437 + .00000, .00004, .00004,
3438 + .06521, .01529, .00338, .00008, .00000,
3439 + .00000, .00004, .00004,
3440 + .05947, .01388, .00283, .00008, .00000,
3441 + .00000, .00003, .00003,
3442 + .05411, .01257, .00237, .00008, .00000,
3443 + .00000, .00003, .00003,
3444 + .04973, .01151, .00203, .00006, .00000,
3445 + .00000, .00003, .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 + .04572, .01055, .00175, .00006, .00000,
3448 + .00000, .00003, .00003,
3449 + .04268, .00982, .00155, .00007, .00000,
3450 + .00000, .00003, .00002,
3451 + .03932, .00901, .00135, .00005, .00000,
3452 + .00000, .00002, .00002,
3453 + .03660, .00836, .00120, .00005, .00000,
3454 + .00000, .00002, .00002,
3455 + .03429, .00781, .00108, .00004, .00000,
3456 + .00000, .00002, .00002,
3457 + .03160, .00718, .00095, .00004, .00000,
3458 + .00000, .00002, .00002,
3459 + .02929, .00663, .00084, .00003, .00000,
3460 + .00000, .00002, .00001,
3461 + .02729, .00616, .00076, .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 + .02546, .00573, .00068, .00003, .00000,
3465 + .00000, .00001, .00002,
3466 + .02378, .00534, .00062, .00003, .00000,
3467 + .00000, .00001, .00001,
3468 + .02232, .00500, .00056, .00003, .00000,
3469 + .00000, .00001, .00001,
3470 + .02103, .00470, .00052, .00003, .00000,
3471 + .00000, .00001, .00001,
3472 + .01983, .00442, .00047, .00002, .00000,
3473 + .00000, .00001, .00001,
3474 + .01872, .00416, .00044, .00002, .00000,
3475 + .00000, .00001, .00001,
3476 + .01772, .00393, .00041, .00002, .00000,
3477 + .00000, .00001, .00001,
3478 + .01683, .00373, .00038, .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 + .01599, .00354, .00035, .00002, .00000,
3482 + .00000, .00001, .00001,
3483 + .01520, .00336, .00033, .00002, .00000,
3484 + .00000, .00001, .00001,
3485 + .01449, .00319, .00031, .00001, .00000,
3486 + .00000, .00001, .00001,
3487 + .01385, .00304, .00029, .00001, .00000,
3488 + .00000, .00001, .00001,
3489 + .01323, .00290, .00027, .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 + .11375, .02598, .01232, .00012, .00000,
3493 + .00000, .00004, .00004,
3494 + .10276, .02333, .00980, .00009, .00000,
3495 + .00000, .00003, .00004,
3496 + .08897, .02007, .00713, .00009, .00000,
3497 + .00000, .00003, .00002,
3498 + .08059, .01809, .00574, .00008, .00000,
3499 + .00000, .00003, .00003,
3500 + .07284, .01627, .00462, .00006, .00000,
3501 + .00000, .00002, .00002,
3502 + .06687, .01488, .00386, .00006, .00000,
3503 + .00000, .00001, .00002,
3504 + .06171, .01369, .00327, .00005, .00000,
3505 + .00000, .00001, .00002,
3506 + .05677, .01254, .00276, .00005, .00000,
3507 + .00000, .00001, .00001 /
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 + .05286, .01164, .00240, .00005, .00000,
3510 + .00000, .00001, .00001,
3511 + .04939, .01084, .00210, .00005, .00000,
3512 + .00000, .00001, .00002,
3513 + .04684, .01026, .00190, .00004, .00000,
3514 + .00000, .00001, .00002,
3515 + .04195, .00914, .00154, .00003, .00000,
3516 + .00000, .00001, .00001,
3517 + .03823, .00830, .00130, .00003, .00000,
3518 + .00000, .00001, .00001,
3519 + .03454, .00747, .00108, .00002, .00000,
3520 + .00000, .00001, .00001,
3521 + .03115, .00670, .00091, .00001, .00000,
3522 + .00000, .00001, .00001,
3523 + .02839, .00609, .00078, .00001, .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 + .02589, .00553, .00067, .00002, .00000,
3527 + .00000, .00001, .00001,
3528 + .02400, .00512, .00059, .00002, .00000,
3529 + .00000, .00001, .00001,
3530 + .02193, .00466, .00051, .00002, .00000,
3531 + .00000, .00000, .00001,
3532 + .02027, .00429, .00046, .00002, .00000,
3533 + .00000, .00000, .00001,
3534 + .01888, .00399, .00041, .00001, .00000,
3535 + .00000, .00000, .00000,
3536 + .01726, .00363, .00036, .00001, .00000,
3537 + .00000, .00000, .00000,
3538 + .01588, .00333, .00032, .00001, .00000,
3539 + .00000, .00000, .00000,
3540 + .01470, .00308, .00029, .00001, .00000,
3541 + .00000, .00000, .00000 /
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 + .01362, .00284, .00026, .00001, .00000,
3544 + .00000, .00000, .00000,
3545 + .01265, .00263, .00023, .00001, .00000,
3546 + .00000, .00000, .00000,
3547 + .01180, .00245, .00021, .00001, .00000,
3548 + .00000, .00000, .00000,
3549 + .01106, .00229, .00019, .00001, .00000,
3550 + .00000, .00000, .00000,
3551 + .01037, .00214, .00018, .00001, .00000,
3552 + .00000, .00000, .00000,
3553 + .00973, .00201, .00016, .00001, .00000,
3554 + .00000, .00000, .00000,
3555 + .00917, .00189, .00015, .00000, .00000,
3556 + .00000, .00000, .00000,
3557 + .00867, .00178, .00014, .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 + .00820, .00168, .00013, .00000, .00000,
3561 + .00000, .00000, .00000,
3562 + .00776, .00159, .00012, .00000, .00000,
3563 + .00000, .00000, .00000,
3564 + .00736, .00150, .00012, .00000, .00000,
3565 + .00000, .00000, .00000,
3566 + .00700, .00143, .00011, .00000, .00000,
3567 + .00000, .00000, .00000,
3568 + .00666, .00136, .00010, .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 + .06679, .01398, .00427, .00004, .00000,
3572 + .00000, .00000, .00001,
3573 + .05965, .01242, .00334, .00004, .00000,
3574 + .00000, .00000, .00000,
3575 + .05086, .01052, .00239, .00003, .00000,
3576 + .00000, .00000, .00000,
3577 + .04558, .00938, .00190, .00003, .00000,
3578 + .00000, .00000, .00000,
3579 + .04075, .00835, .00152, .00003, .00000,
3580 + .00000, .00000, .00000,
3581 + .03708, .00757, .00127, .00002, .00000,
3582 + .00000, .00000, .00000,
3583 + .03393, .00690, .00107, .00002, .00000,
3584 + .00000, .00000, .00000,
3585 + .03094, .00627, .00090, .00002, .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 + .02860, .00578, .00078, .00001, .00000,
3589 + .00000, .00000, .00000,
3590 + .02654, .00535, .00069, .00001, .00000,
3591 + .00000, .00000, .00000,
3592 + .02503, .00503, .00062, .00001, .00000,
3593 + .00000, .00000, .00000,
3594 + .02215, .00443, .00050, .00001, .00000,
3595 + .00000, .00000, .00000,
3596 + .02000, .00398, .00043, .00001, .00000,
3597 + .00000, .00000, .00000,
3598 + .01788, .00355, .00036, .00001, .00000,
3599 + .00000, .00000, .00000,
3600 + .01595, .00315, .00030, .00000, .00000,
3601 + .00000, .00000, .00000,
3602 + .01441, .00284, .00026, .00000, .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 + .01302, .00256, .00022, .00001, .00000,
3606 + .00000, .00000, .00000,
3607 + .01199, .00235, .00020, .00000, .00000,
3608 + .00000, .00000, .00000,
3609 + .01085, .00212, .00017, .00000, .00000,
3610 + .00000, .00000, .00000,
3611 + .00995, .00194, .00015, .00000, .00000,
3612 + .00000, .00000, .00000,
3613 + .00920, .00179, .00014, .00000, .00000,
3614 + .00000, .00000, .00000,
3615 + .00834, .00161, .00012, .00000, .00000,
3616 + .00000, .00000, .00000,
3617 + .00761, .00147, .00011, .00000, .00000,
3618 + .00000, .00000, .00000,
3619 + .00699, .00135, .00009, .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 + .00643, .00123, .00009, .00000, .00000,
3623 + .00000, .00000, .00000,
3624 + .00593, .00113, .00008, .00000, .00000,
3625 + .00000, .00000, .00000,
3626 + .00550, .00105, .00007, .00000, .00000,
3627 + .00000, .00000, .00000,
3628 + .00512, .00097, .00006, .00000, .00000,
3629 + .00000, .00000, .00000,
3630 + .00477, .00091, .00006, .00000, .00000,
3631 + .00000, .00000, .00000,
3632 + .00445, .00084, .00005, .00000, .00000,
3633 + .00000, .00000, .00000,
3634 + .00417, .00079, .00005, .00000, .00000,
3635 + .00000, .00000, .00000,
3636 + .00392, .00074, .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 + .00369, .00070, .00004, .00000, .00000,
3640 + .00000, .00000, .00000,
3641 + .00347, .00065, .00004, .00000, .00000,
3642 + .00000, .00000, .00000,
3643 + .00328, .00062, .00004, .00000, .00000,
3644 + .00000, .00000, .00000,
3645 + .00311, .00058, .00004, .00000, .00000,
3646 + .00000, .00000, .00000,
3647 + .00294, .00055, .00003, .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 + .03386, .00639, .00107, .00000, .00000,
3651 + .00000, .00000, .00000,
3652 + .02985, .00561, .00083, .00001, .00000,
3653 + .00000, .00000, .00000,
3654 + .02500, .00467, .00059, .00000, .00000,
3655 + .00000, .00000, .00000,
3656 + .02214, .00411, .00048, .00000, .00000,
3657 + .00000, .00000, .00000,
3658 + .01953, .00361, .00038, .00000, .00000,
3659 + .00000, .00000, .00000,
3660 + .01759, .00324, .00032, .00000, .00000,
3661 + .00000, .00000, .00000,
3662 + .01594, .00293, .00027, .00000, .00000,
3663 + .00000, .00000, .00000,
3664 + .01439, .00263, .00023, .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 + .01318, .00241, .00020, .00000, .00000,
3668 + .00000, .00000, .00000,
3669 + .01213, .00221, .00018, .00000, .00000,
3670 + .00000, .00000, .00000,
3671 + .01137, .00207, .00016, .00000, .00000,
3672 + .00000, .00000, .00000,
3673 + .00993, .00180, .00013, .00000, .00000,
3674 + .00000, .00000, .00000,
3675 + .00887, .00160, .00011, .00000, .00000,
3676 + .00000, .00000, .00000,
3677 + .00783, .00141, .00010, .00000, .00000,
3678 + .00000, .00000, .00000,
3679 + .00690, .00123, .00008, .00000, .00000,
3680 + .00000, .00000, .00000,
3681 + .00616, .00110, .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 + .00551, .00098, .00006, .00000, .00000,
3685 + .00000, .00000, .00000,
3686 + .00503, .00089, .00005, .00000, .00000,
3687 + .00000, .00000, .00000,
3688 + .00451, .00080, .00005, .00000, .00000,
3689 + .00000, .00000, .00000,
3690 + .00410, .00072, .00004, .00000, .00000,
3691 + .00000, .00000, .00000,
3692 + .00376, .00066, .00004, .00000, .00000,
3693 + .00000, .00000, .00000,
3694 + .00337, .00059, .00003, .00000, .00000,
3695 + .00000, .00000, .00000,
3696 + .00305, .00053, .00003, .00000, .00000,
3697 + .00000, .00000, .00000,
3698 + .00277, .00048, .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 + .00253, .00044, .00002, .00000, .00000,
3702 + .00000, .00000, .00000,
3703 + .00231, .00040, .00002, .00000, .00000,
3704 + .00000, .00000, .00000,
3705 + .00213, .00037, .00002, .00000, .00000,
3706 + .00000, .00000, .00000,
3707 + .00197, .00034, .00002, .00000, .00000,
3708 + .00000, .00000, .00000,
3709 + .00182, .00031, .00002, .00000, .00000,
3710 + .00000, .00000, .00000,
3711 + .00168, .00029, .00002, .00000, .00000,
3712 + .00000, .00000, .00000,
3713 + .00157, .00027, .00001, .00000, .00000,
3714 + .00000, .00000, .00000,
3715 + .00147, .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 + .00137, .00023, .00001, .00000, .00000,
3719 + .00000, .00000, .00000,
3720 + .00128, .00022, .00001, .00000, .00000,
3721 + .00000, .00000, .00000,
3722 + .00120, .00021, .00001, .00000, .00000,
3723 + .00000, .00000, .00000,
3724 + .00113, .00019, .00001, .00000, .00000,
3725 + .00000, .00000, .00000,
3726 + .00107, .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 + .00373, .00053, .00001, .00000, .00000,
3730 + .00000, .00000, .00000,
3731 + .00317, .00045, .00001, .00000, .00000,
3732 + .00000, .00000, .00000,
3733 + .00252, .00035, .00001, .00000, .00000,
3734 + .00000, .00000, .00000,
3735 + .00215, .00030, .00001, .00000, .00000,
3736 + .00000, .00000, .00000,
3737 + .00183, .00025, .00001, .00000, .00000,
3738 + .00000, .00000, .00000,
3739 + .00160, .00022, .00001, .00000, .00000,
3740 + .00000, .00000, .00000,
3741 + .00141, .00019, .00001, .00000, .00000,
3742 + .00000, .00000, .00000,
3743 + .00123, .00017, .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 + .00110, .00015, .00001, .00000, .00000,
3747 + .00000, .00000, .00000,
3748 + .00099, .00014, .00001, .00000, .00000,
3749 + .00000, .00000, .00000,
3750 + .00091, .00012, .00001, .00000, .00000,
3751 + .00000, .00000, .00000,
3752 + .00076, .00010, .00000, .00000, .00000,
3753 + .00000, .00000, .00000,
3754 + .00066, .00009, .00000, .00000, .00000,
3755 + .00000, .00000, .00000,
3756 + .00056, .00008, .00000, .00000, .00000,
3757 + .00000, .00000, .00000,
3758 + .00048, .00006, .00000, .00000, .00000,
3759 + .00000, .00000, .00000,
3760 + .00042, .00006, .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 + .00036, .00005, .00000, .00000, .00000,
3764 + .00000, .00000, .00000,
3765 + .00032, .00004, .00000, .00000, .00000,
3766 + .00000, .00000, .00000,
3767 + .00028, .00004, .00000, .00000, .00000,
3768 + .00000, .00000, .00000,
3769 + .00025, .00003, .00000, .00000, .00000,
3770 + .00000, .00000, .00000,
3771 + .00022, .00003, .00000, .00000, .00000,
3772 + .00000, .00000, .00000,
3773 + .00019, .00003, .00000, .00000, .00000,
3774 + .00000, .00000, .00000,
3775 + .00017, .00002, .00000, .00000, .00000,
3776 + .00000, .00000, .00000,
3777 + .00015, .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 + .00013, .00002, .00000, .00000, .00000,
3781 + .00000, .00000, .00000,
3782 + .00012, .00002, .00000, .00000, .00000,
3783 + .00000, .00000, .00000,
3784 + .00011, .00001, .00000, .00000, .00000,
3785 + .00000, .00000, .00000,
3786 + .00010, .00001, .00000, .00000, .00000,
3787 + .00000, .00000, .00000,
3788 + .00009, .00001, .00000, .00000, .00000,
3789 + .00000, .00000, .00000,
3790 + .00008, .00001, .00000, .00000, .00000,
3791 + .00000, .00000, .00000,
3792 + .00007, .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 + .00006, .00001, .00000, .00000, .00000,
3798 + .00000, .00000, .00000,
3799 + .00006, .00001, .00000, .00000, .00000,
3800 + .00000, .00000, .00000,
3801 + .00005, .00001, .00000, .00000, .00000,
3802 + .00000, .00000, .00000,
3803 + .00005, .00001, .00000, .00000, .00000,
3804 + .00000, .00000, .00000,
3805 + .00004, .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='cor05.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