]> git.uio.no Git - u/mrichter/AliRoot.git/blame - PDF/spdf/sfmrs_98ht1.F
git://git.uio.no / u / mrichter / AliRoot.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
AliTOFv4T0 replaced by AliTOFv5T0
[u/mrichter/AliRoot.git] / PDF / spdf / sfmrs_98ht1.F
CommitLineData
21886bb6 1#include "pdf/pilot.h"
2 subroutine sfmrs_98ht1(x,qsq,upv,dnv,usea,dsea,str,chm,bot,glu)
3C
4#include "pdf/impdp.inc"
5C
6 parameter(nx=49,nq=37,ntenth=23,np=8)
7C
7ef50f50 8#if defined(CERNLIB_DOUBLE)
9 DOUBLE PRECISION
10#endif
11#if defined(CERNLIB_SINGLE)
12 REAL
13#endif
21886bb6 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 + .00536, .00167, 1.07366, .84905, .00000,
17 + .00000, .45376, .86085,
18 + .00551, .00173, 2.34503, .88658, .00000,
19 + .00000, .49596, .89843,
20 + .00573, .00182, 4.92296, .96518, .03300,
21 + .00000, .58126, .97710,
22 + .00589, .00189, 7.35828, 1.04126, .11070,
23 + .00000, .66205, 1.05322,
24 + .00607, .00196, 10.46601, 1.14109, .20271,
25 + .00000, .76670, 1.15307,
26 + .00622, .00202, 13.66662, 1.24328, .29814,
27 + .00000, .87294, 1.25529,
28 + .00637, .00208, 17.26659, 1.35509, .40705,
29 + .00000, .98854, 1.36711,
30 + .00652, .00215, 21.68534, 1.48983, .54064,
31 + .00000, 1.12722, 1.50186 /
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 + .00666, .00221, 25.91711, 1.62298, .66628,
34 + .00000, 1.26372, 1.63502,
35 + .00679, .00227, 30.53135, 1.76374, .80471,
36 + .00000, 1.40764, 1.77577,
37 + .00690, .00232, 34.50427, 1.88516, .92331,
38 + .00000, 1.53152, 1.89719,
39 + .00713, .00242, 43.94698, 2.17363, 1.20718,
40 + .00395, 1.82514, 2.18565,
41 + .00732, .00251, 53.13801, 2.45608, 1.48540,
42 + .29199, 2.11191, 2.46809,
43 + .00755, .00261, 64.70422, 2.81137, 1.83686,
44 + .70822, 2.47191, 2.82336,
45 + .00779, .00272, 78.27129, 3.22743, 2.24938,
46 + 1.13923, 2.89272, 3.23939,
47 + .00800, .00282, 91.98939, 3.64744, 2.66708,
48 + 1.57828, 3.31694, 3.65937 /
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 + .00822, .00292, 107.22942, 4.11456, 3.13273,
51 + 2.06454, 3.78819, 4.12645,
52 + .00841, .00301, 120.75614, 4.53438, 3.54731,
53 + 2.48457, 4.21137, 4.54623,
54 + .00864, .00312, 138.57660, 5.08646, 4.09645,
55 + 3.05067, 4.76743, 5.09826,
56 + .00884, .00321, 155.63574, 5.61578, 4.62504,
57 + 3.59830, 5.30020, 5.62755,
58 + .00903, .00330, 172.12344, 6.13296, 5.13893,
59 + 4.12323, 5.82047, 6.14468,
60 + .00927, .00342, 194.46065, 6.83676, 5.83997,
61 + 4.84187, 6.52811, 6.84843,
62 + .00950, .00353, 216.96405, 7.54940, 6.55159,
63 + 5.57319, 7.24428, 7.56101,
64 + .00972, .00364, 239.21292, 8.26052, 7.26088,
65 + 6.29892, 7.95864, 8.27208 /
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 + .00994, .00374, 262.54480, 9.01326, 8.01116,
68 + 7.06460, 8.71455, 9.02476,
69 + .01015, .00385, 286.74893, 9.79710, 8.79513,
70 + 7.86834, 9.50143, 9.80855,
71 + .01036, .00395, 310.40958, 10.57355, 9.56909,
72 + 8.65605, 10.28071, 10.58495,
73 + .01056, .00405, 333.81387, 11.34473, 10.34004,
74 + 9.44382, 11.05450, 11.35607,
75 + .01076, .00415, 358.09024, 12.15277, 11.14679,
76 + 10.26549, 11.86512, 12.16405,
77 + .01096, .00425, 382.89621, 12.98394, 11.97761,
78 + 11.11258, 12.69879, 12.99517,
79 + .01115, .00434, 407.20178, 13.80567, 12.79861,
80 + 11.94820, 13.52286, 13.81685,
81 + .01133, .00443, 430.98587, 14.61463, 13.60775,
82 + 12.77272, 14.33399, 14.62576 /
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 + .01151, .00452, 455.46976, 15.45604, 14.44818,
85 + 13.62665, 15.17757, 15.46712,
86 + .01170, .00462, 480.59732, 16.32243, 15.31565,
87 + 14.51080, 16.04607, 16.33346,
88 + .01187, .00471, 504.74573, 17.16635, 16.15831,
89 + 15.36551, 16.89197, 17.17733,
90 + .01204, .00479, 528.58826, 18.00098, 16.99398,
91 + 16.21615, 17.72847, 18.01192,
92 + .01221, .00488, 552.92731, 18.86252, 17.85521,
93 + 17.09024, 18.59186, 18.87341 /
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 + .00719, .00234, 1.03842, .72495, .00000,
96 + .00000, .38698, .73179,
97 + .00740, .00243, 2.19091, .75939, .00000,
98 + .00000, .42513, .76626,
99 + .00771, .00256, 4.46910, .82883, .02862,
100 + .00000, .49985, .83573,
101 + .00794, .00266, 6.57383, .89431, .09549,
102 + .00000, .56905, .90123,
103 + .00819, .00277, 9.21174, .97871, .17323,
104 + .00000, .65724, .98564,
105 + .00840, .00287, 11.88645, 1.06402, .25282,
106 + .00000, .74574, 1.07097,
107 + .00860, .00296, 14.85589, 1.15652, .34275,
108 + .00000, .84121, 1.16347,
109 + .00882, .00306, 18.45497, 1.26704, .45196,
110 + .00000, .95482, 1.27399 /
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 + .00901, .00314, 21.85939, 1.37516, .55365,
113 + .00000, 1.06556, 1.38211,
114 + .00920, .00323, 25.53577, 1.48875, .66492,
115 + .00000, 1.18163, 1.49571,
116 + .00935, .00330, 28.67350, 1.58612, .75961,
117 + .00000, 1.28093, 1.59308,
118 + .00966, .00345, 36.04241, 1.81556, .98428,
119 + .00332, 1.51439, 1.82251,
120 + .00994, .00358, 43.10920, 2.03793, 1.20217,
121 + .22845, 1.74013, 2.04488,
122 + .01025, .00373, 51.88349, 2.31499, 1.47470,
123 + .55146, 2.02086, 2.32192,
124 + .01058, .00388, 62.03741, 2.63618, 1.79133,
125 + .88174, 2.34576, 2.64310,
126 + .01088, .00403, 72.17562, 2.95738, 2.10889,
127 + 1.21490, 2.67022, 2.96428 /
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 + .01119, .00418, 83.30910, 3.31147, 2.45982,
130 + 1.58054, 3.02754, 3.31836,
131 + .01144, .00430, 93.08443, 3.62708, 2.76963,
132 + 1.89350, 3.34575, 3.63395,
133 + .01175, .00445, 105.83870, 4.03901, 3.17700,
134 + 2.31234, 3.76078, 4.04586,
135 + .01203, .00459, 117.92908, 4.43096, 3.56620,
136 + 2.71451, 4.15540, 4.43779,
137 + .01229, .00472, 129.50784, 4.81119, 3.94187,
138 + 3.09708, 4.53804, 4.81800,
139 + .01262, .00488, 145.05179, 5.32490, 4.45074,
140 + 3.61720, 5.05472, 5.33168,
141 + .01293, .00504, 160.56244, 5.84112, 4.96348,
142 + 4.14263, 5.57368, 5.84788,
143 + .01323, .00519, 175.75923, 6.35255, 5.47092,
144 + 4.66027, 6.08761, 6.35928 /
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 + .01353, .00534, 191.55969, 6.89022, 6.00407,
147 + 5.20271, 6.62775, 6.89693,
148 + .01382, .00549, 207.82555, 7.44662, 6.55783,
149 + 5.76884, 7.18650, 7.45330,
150 + .01411, .00563, 223.59541, 7.99420, 7.10096,
151 + 6.31990, 7.73627, 8.00085,
152 + .01437, .00577, 239.09113, 8.53511, 7.63916,
153 + 6.86827, 8.27920, 8.54174,
154 + .01464, .00591, 255.05145, 9.09869, 8.19922,
155 + 7.43698, 8.84479, 9.10529,
156 + .01491, .00605, 271.25513, 9.67535, 8.77305,
157 + 8.02039, 9.42339, 9.68194,
158 + .01517, .00618, 287.03018, 10.24254, 9.33720,
159 + 8.59293, 9.99238, 10.24909,
160 + .01541, .00630, 302.37918, 10.79831, 9.89072,
161 + 9.15541, 10.54985, 10.80485 /
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 + .01566, .00643, 318.08453, 11.37361, 10.46287,
164 + 9.73507, 11.12683, 11.38012,
165 + .01591, .00656, 334.12378, 11.96352, 11.05113,
166 + 10.33306, 11.71838, 11.97001,
167 + .01615, .00668, 349.44098, 12.53534, 11.61972,
168 + 10.90811, 12.29173, 12.54181,
169 + .01637, .00680, 364.50284, 13.09885, 12.18174,
170 + 11.47871, 12.85669, 13.10530,
171 + .01660, .00692, 379.79202, 13.67801, 12.75840,
172 + 12.06236, 13.43729, 13.68444 /
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 + .00964, .00328, 1.00535, .61869, .00000,
175 + .00000, .33011, .62207,
176 + .00994, .00341, 2.04826, .65013, .00000,
177 + .00000, .36447, .65352,
178 + .01038, .00361, 4.05841, .71137, .02482,
179 + .00000, .42988, .71477,
180 + .01070, .00376, 5.87410, .76770, .08234,
181 + .00000, .48913, .77110,
182 + .01105, .00392, 8.10844, .83901, .14799,
183 + .00000, .56342, .84241,
184 + .01134, .00406, 10.33824, .91015, .21433,
185 + .00000, .63706, .91356,
186 + .01163, .00420, 12.78112, .98657, .28852,
187 + .00000, .71582, .98998,
188 + .01193, .00435, 15.70418, 1.07706, .37770,
189 + .00000, .80872, 1.08047 /
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 + .01220, .00447, 18.43434, 1.16466, .45991,
192 + .00000, .89836, 1.16807,
193 + .01246, .00460, 21.35378, 1.25611, .54923,
194 + .00000, .99175, 1.25953,
195 + .01266, .00470, 23.82321, 1.33398, .62472,
196 + .00000, 1.07113, 1.33740,
197 + .01310, .00492, 29.55217, 1.51593, .80224,
198 + .00279, 1.25621, 1.51934,
199 + .01349, .00511, 34.96305, 1.69042, .97256,
200 + .17864, 1.43332, 1.69383,
201 + .01392, .00532, 41.58953, 1.90569, 1.18346,
202 + .42918, 1.65143, 1.90910,
203 + .01437, .00555, 49.15274, 2.15268, 1.42594,
204 + .68208, 1.90130, 2.15609,
205 + .01479, .00575, 56.60747, 2.39730, 1.66679,
206 + .93467, 2.14845, 2.40070 /
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 + .01521, .00597, 64.69772, 2.66456, 1.93057,
209 + 1.20933, 2.41820, 2.66796,
210 + .01556, .00615, 71.72224, 2.90075, 2.16144,
211 + 1.44222, 2.65640, 2.90414,
212 + .01599, .00637, 80.79737, 3.20668, 2.46274,
213 + 1.75169, 2.96472, 3.21007,
214 + .01637, .00656, 89.31448, 3.49551, 2.74842,
215 + 2.04658, 3.25562, 3.49890,
216 + .01672, .00674, 97.39431, 3.77367, 3.02214,
217 + 2.32491, 3.53562, 3.77705,
218 + .01718, .00698, 108.14007, 4.14671, 3.39025,
219 + 2.70063, 3.91096, 4.15008,
220 + .01760, .00720, 118.75827, 4.51869, 3.75835,
221 + 3.07735, 4.28504, 4.52205,
222 + .01801, .00741, 129.06477, 4.88451, 4.12001,
223 + 3.44573, 4.65280, 4.88788 /
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 + .01841, .00762, 139.68611, 5.26644, 4.49737,
226 + 3.82906, 5.03662, 5.26980,
227 + .01881, .00783, 150.53505, 5.65917, 4.88694,
228 + 4.22679, 5.43116, 5.66253,
229 + .01919, .00803, 160.96306, 6.04311, 5.26645,
230 + 4.61120, 5.81678, 6.04646,
231 + .01956, .00822, 171.14047, 6.42027, 5.64053,
232 + 4.99180, 6.19550, 6.42362,
233 + .01992, .00841, 181.54625, 6.81099, 6.02758,
234 + 5.38420, 6.58776, 6.81433,
235 + .02029, .00861, 192.04066, 7.20864, 6.42207,
236 + 5.78468, 6.98690, 7.21198,
237 + .02063, .00879, 202.18962, 7.59770, 6.80789,
238 + 6.17563, 7.37735, 7.60103,
239 + .02096, .00897, 212.00702, 7.97712, 7.18469,
240 + 6.55798, 7.75807, 7.98045 /
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 + .02130, .00914, 221.98849, 8.36793, 7.57225,
243 + 6.95001, 8.15017, 8.37126,
244 + .02163, .00932, 232.13167, 8.76699, 7.96914,
245 + 7.35293, 8.55048, 8.77031,
246 + .02195, .00949, 241.75287, 9.15186, 8.35077,
247 + 7.73825, 8.93654, 9.15518,
248 + .02225, .00965, 251.17508, 9.52979, 8.72674,
249 + 8.11945, 9.31558, 9.53311,
250 + .02256, .00982, 260.68295, 9.91646, 9.11074,
251 + 8.50752, 9.70335, 9.91978 /
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 + .01145, .00399, .98733, .56377, .00000,
254 + .00000, .30085, .56571,
255 + .01181, .00416, 1.97023, .59350, .00000,
256 + .00000, .33314, .59545,
257 + .01235, .00442, 3.83695, .65035, .02282,
258 + .00000, .39362, .65230,
259 + .01274, .00461, 5.50070, .70191, .07549,
260 + .00000, .44772, .70386,
261 + .01316, .00481, 7.52587, .76649, .13494,
262 + .00000, .51489, .76845,
263 + .01352, .00499, 9.52792, .83042, .19454,
264 + .00000, .58099, .83238,
265 + .01387, .00516, 11.70403, .89871, .26080,
266 + .00000, .65130, .90067,
267 + .01424, .00534, 14.28805, .97912, .33996,
268 + .00000, .73381, .98109 /
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 + .01456, .00550, 16.68331, 1.05648, .41250,
271 + .00000, .81293, 1.05845,
272 + .01488, .00566, 19.22975, 1.13693, .49098,
273 + .00000, .89506, 1.13890,
274 + .01512, .00578, 21.37216, 1.20516, .55704,
275 + .00000, .96459, 1.20713,
276 + .01566, .00605, 26.30630, 1.36376, .71156,
277 + .00252, 1.12590, 1.36574,
278 + .01612, .00629, 30.92401, 1.51490, .85887,
279 + .15464, 1.27930, 1.51688,
280 + .01664, .00655, 36.53278, 1.70026, 1.04019,
281 + .37048, 1.46711, 1.70224,
282 + .01719, .00684, 42.88180, 1.91163, 1.24736,
283 + .58670, 1.68095, 1.91361,
284 + .01769, .00709, 49.09166, 2.11975, 1.45196,
285 + .80140, 1.89125, 2.12173 /
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 + .01820, .00736, 55.78353, 2.34592, 1.67483,
288 + 1.03355, 2.11957, 2.34791,
289 + .01862, .00758, 61.55486, 2.54477, 1.86889,
290 + 1.22932, 2.32015, 2.54676,
291 + .01914, .00785, 68.96731, 2.80117, 2.12104,
292 + 1.48833, 2.57860, 2.80317,
293 + .01960, .00809, 75.88239, 3.04213, 2.35902,
294 + 1.73404, 2.82133, 3.04413,
295 + .02002, .00831, 82.40514, 3.27317, 2.58604,
296 + 1.96486, 3.05395, 3.27517,
297 + .02056, .00860, 91.03155, 3.58166, 2.89002,
298 + 2.27512, 3.36441, 3.58367,
299 + .02108, .00887, 99.50561, 3.88785, 3.19264,
300 + 2.58483, 3.67241, 3.88987,
301 + .02156, .00912, 107.68463, 4.18767, 3.48866,
302 + 2.88632, 3.97389, 4.18969 /
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 + .02205, .00938, 116.06854, 4.49939, 3.79625,
305 + 3.19872, 4.28722, 4.50141,
306 + .02253, .00964, 124.59209, 4.81872, 4.11265,
307 + 3.52174, 4.60810, 4.82075,
308 + .02298, .00988, 132.74217, 5.12965, 4.41963,
309 + 3.83260, 4.92047, 5.13169,
310 + .02341, .01011, 140.66399, 5.43409, 4.72126,
311 + 4.13946, 5.22625, 5.43613,
312 + .02385, .01035, 148.72778, 5.74839, 5.03226,
313 + 4.45471, 5.54186, 5.75044,
314 + .02428, .01058, 156.82761, 6.06725, 5.34827,
315 + 4.77546, 5.86200, 6.06930,
316 + .02469, .01080, 164.62900, 6.37822, 5.65635,
317 + 5.08758, 6.17417, 6.38028,
318 + .02509, .01102, 172.14906, 6.68065, 5.95642,
319 + 5.39202, 6.47770, 6.68272 /
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 + .02549, .01123, 179.76508, 6.99123, 6.26411,
322 + 5.70320, 6.78938, 6.99330,
323 + .02588, .01145, 187.48125, 7.30758, 6.57849,
324 + 6.02232, 7.10681, 7.30966,
325 + .02626, .01165, 194.77003, 7.61174, 6.87981,
326 + 6.32648, 7.41198, 7.61383,
327 + .02662, .01185, 201.89078, 7.90979, 7.17610,
328 + 6.62686, 7.71098, 7.91188,
329 + .02699, .01205, 209.04984, 8.21390, 7.47786,
330 + 6.93175, 8.01604, 8.21600 /
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 + .01293, .00460, .97532, .52772, .00000,
333 + .00000, .28172, .52889,
334 + .01335, .00480, 1.91739, .55626, .00000,
335 + .00000, .31258, .55743,
336 + .01397, .00510, 3.68789, .61017, .02151,
337 + .00000, .36978, .61134,
338 + .01442, .00532, 5.25082, .65857, .07097,
339 + .00000, .42049, .65975,
340 + .01490, .00556, 7.13843, .71875, .12636,
341 + .00000, .48302, .71993,
342 + .01532, .00577, 8.99185, .77799, .18159,
343 + .00000, .54422, .77918,
344 + .01572, .00597, 10.99501, .84101, .24271,
345 + .00000, .60907, .84220,
346 + .01614, .00619, 13.36062, .91493, .31544,
347 + .00000, .68488, .91612 /
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 + .01651, .00637, 15.54148, .98570, .38178,
350 + .00000, .75726, .98690,
351 + .01687, .00656, 17.85029, 1.05911, .45334,
352 + .00000, .83218, 1.06031,
353 + .01716, .00670, 19.78531, 1.12118, .51340,
354 + .00000, .89542, 1.12239,
355 + .01777, .00702, 24.21840, 1.26494, .65337,
356 + .00234, 1.04162, 1.26615,
357 + .01830, .00729, 28.33981, 1.40130, .78618,
358 + .13955, 1.18002, 1.40252,
359 + .01889, .00760, 33.31612, 1.56783, .94896,
360 + .33367, 1.34875, 1.56905,
361 + .01952, .00793, 38.91583, 1.75686, 1.13411,
362 + .52707, 1.54002, 1.75810,
363 + .02009, .00823, 44.36244, 1.94222, 1.31620,
364 + .71830, 1.72734, 1.94346 /
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 + .02067, .00853, 50.20193, 2.14289, 1.51381,
367 + .92426, 1.92993, 2.14414,
368 + .02115, .00879, 55.21366, 2.31865, 1.68521,
369 + 1.09724, 2.10725, 2.31991,
370 + .02174, .00910, 61.62326, 2.54456, 1.90722,
371 + 1.32541, 2.33500, 2.54583,
372 + .02227, .00938, 67.57710, 2.75615, 2.11608,
373 + 1.54115, 2.54818, 2.75743,
374 + .02275, .00964, 73.16987, 2.95838, 2.31467,
375 + 1.74315, 2.75184, 2.95967,
376 + .02337, .00997, 80.53642, 3.22757, 2.57977,
377 + 2.01382, 3.02279, 3.22887,
378 + .02395, .01028, 87.74228, 3.49387, 2.84282,
379 + 2.28314, 3.29072, 3.49519,
380 + .02450, .01058, 94.66880, 3.75381, 3.09933,
381 + 2.54447, 3.55214, 3.75514 /
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 + .02505, .01088, 101.74133, 4.02325, 3.36508,
384 + 2.81444, 3.82303, 4.02459,
385 + .02559, .01117, 108.90739, 4.29852, 3.63772,
386 + 3.09287, 4.09969, 4.29988,
387 + .02611, .01145, 115.73319, 4.56579, 3.90146,
388 + 3.36001, 4.36825, 4.56716,
389 + .02660, .01172, 122.34842, 4.82686, 4.16002,
390 + 3.62313, 4.63051, 4.82824,
391 + .02710, .01199, 129.06027, 5.09571, 4.42595,
392 + 3.89274, 4.90054, 5.09710,
393 + .02758, .01225, 135.78253, 5.36783, 4.69555,
394 + 4.16646, 5.17381, 5.36924,
395 + .02805, .01251, 142.23796, 5.63263, 4.95779,
396 + 4.43220, 5.43967, 5.63405,
397 + .02850, .01275, 148.44466, 5.88962, 5.21271,
398 + 4.69090, 5.69766, 5.89105 /
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 + .02895, .01300, 154.71246, 6.15297, 5.47354,
401 + 4.95472, 5.96200, 6.15442,
402 + .02939, .01324, 161.04927, 6.42074, 5.73958,
403 + 5.22486, 6.23074, 6.42220,
404 + .02982, .01348, 167.01649, 6.67762, 5.99399,
405 + 5.48170, 6.48852, 6.67909,
406 + .03023, .01370, 172.83618, 6.92897, 6.24380,
407 + 5.73502, 6.74072, 6.93045,
408 + .03064, .01393, 178.67113, 7.18491, 6.49771,
409 + 5.99162, 6.99751, 7.18641 /
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 + .01422, .00513, .96654, .50133, .00000,
412 + .00000, .26775, .50202,
413 + .01468, .00536, 1.87794, .52896, .00000,
414 + .00000, .29754, .52965,
415 + .01537, .00570, 3.57681, .58067, .02053,
416 + .00000, .35231, .58137,
417 + .01588, .00596, 5.06527, .62676, .06764,
418 + .00000, .40053, .62746,
419 + .01641, .00623, 6.85195, .68372, .12007,
420 + .00000, .45967, .68443,
421 + .01687, .00646, 8.59693, .73954, .17212,
422 + .00000, .51731, .74026,
423 + .01732, .00669, 10.47453, .79874, .22952,
424 + .00000, .57820, .79946,
425 + .01779, .00693, 12.68232, .86795, .29759,
426 + .00000, .64917, .86868 /
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 + .01820, .00715, 14.70895, .93398, .35949,
429 + .00000, .71668, .93471,
430 + .01860, .00735, 16.84746, 1.00232, .42609,
431 + .00000, .78642, 1.00306,
432 + .01892, .00752, 18.63432, 1.05997, .48185,
433 + .00000, .84516, 1.06072,
434 + .01960, .00787, 22.71110, 1.19310, .61143,
435 + .00221, .98054, 1.19386,
436 + .02019, .00818, 26.48153, 1.31893, .73394,
437 + .12884, 1.10825, 1.31969,
438 + .02085, .00853, 31.01285, 1.47207, .88358,
439 + .30758, 1.26343, 1.47285,
440 + .02154, .00890, 36.08804, 1.64530, 1.05320,
441 + .48490, 1.43872, 1.64609,
442 + .02217, .00923, 41.00293, 1.81460, 1.21946,
443 + .65966, 1.60984, 1.81541 /
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 + .02282, .00958, 46.25126, 1.99734, 1.39935,
446 + .84730, 1.79434, 1.99816,
447 + .02335, .00986, 50.73832, 2.15692, 1.55494,
448 + 1.00439, 1.95536, 2.15776,
449 + .02400, .01021, 56.45786, 2.36152, 1.75595,
450 + 1.21111, 2.16165, 2.36237,
451 + .02458, .01053, 61.75263, 2.55264, 1.94456,
452 + 1.40607, 2.35424, 2.55351,
453 + .02512, .01082, 66.71004, 2.73487, 2.12346,
454 + 1.58811, 2.53778, 2.73575,
455 + .02580, .01118, 73.21898, 2.97682, 2.36169,
456 + 1.83148, 2.78136, 2.97772,
457 + .02644, .01153, 79.56464, 3.21556, 2.59748,
458 + 2.07301, 3.02159, 3.21648,
459 + .02705, .01186, 85.64461, 3.44802, 2.82684,
460 + 2.30678, 3.25541, 3.44895 /
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 + .02766, .01220, 91.83363, 3.68840, 3.06389,
463 + 2.54771, 3.49713, 3.68936,
464 + .02826, .01253, 98.08781, 3.93348, 3.30660,
465 + 2.79570, 3.74349, 3.93445,
466 + .02883, .01284, 104.02700, 4.17088, 3.54084,
467 + 3.03304, 3.98207, 4.17187,
468 + .02937, .01313, 109.76957, 4.40234, 3.77007,
469 + 3.26641, 4.21464, 4.40336,
470 + .02991, .01343, 115.58098, 4.64025, 4.00537,
471 + 3.50507, 4.45363, 4.64128,
472 + .03045, .01373, 121.38802, 4.88062, 4.24350,
473 + 3.74694, 4.69505, 4.88166,
474 + .03097, .01401, 126.95146, 5.11409, 4.47472,
475 + 3.98132, 4.92951, 5.11516,
476 + .03145, .01428, 132.28967, 5.34032, 4.69912,
477 + 4.20915, 5.15665, 5.34140 /
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 + .03195, .01456, 137.66817, 5.57176, 4.92834,
480 + 4.44108, 5.38900, 5.57286,
481 + .03244, .01483, 143.09676, 5.80675, 5.16183,
482 + 4.67826, 5.62488, 5.80787,
483 + .03291, .01509, 148.19577, 6.03179, 5.38470,
484 + 4.90333, 5.85075, 6.03293,
485 + .03336, .01534, 153.16234, 6.25173, 5.60330,
486 + 5.12511, 6.07147, 6.25288,
487 + .03381, .01559, 158.13075, 6.47533, 5.82514,
488 + 5.34936, 6.29586, 6.47651 /
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 + .01910, .00723, .94341, .42739, .00000,
491 + .00000, .22881, .42723,
492 + .01976, .00758, 1.76485, .45230, .00000,
493 + .00000, .25545, .45215,
494 + .02072, .00809, 3.25669, .49764, .01777,
495 + .00000, .30324, .49752,
496 + .02142, .00846, 4.53288, .53714, .05820,
497 + .00000, .34445, .53704,
498 + .02217, .00886, 6.03519, .58508, .10234,
499 + .00000, .39413, .58500,
500 + .02281, .00921, 7.47771, .63141, .14557,
501 + .00000, .44190, .63134,
502 + .02343, .00954, 9.00804, .68003, .19273,
503 + .00000, .49188, .67998,
504 + .02409, .00990, 10.78297, .73633, .24805,
505 + .00000, .54957, .73630 /
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 + .02466, .01021, 12.39003, .78939, .29782,
508 + .00000, .60381, .78938,
509 + .02521, .01051, 14.06824, .84393, .35096,
510 + .00000, .65946, .84394,
511 + .02565, .01075, 15.45699, .88961, .39514,
512 + .00000, .70599, .88963,
513 + .02659, .01127, 18.58388, .99409, .49684,
514 + .00185, .81226, .99414,
515 + .02740, .01171, 21.42773, 1.09170, .59189,
516 + .10035, .91136, 1.09178,
517 + .02832, .01222, 24.79475, 1.20922, .70676,
518 + .23839, 1.03049, 1.20934,
519 + .02927, .01275, 28.51000, 1.34067, .83551,
520 + .37351, 1.16357, 1.34082,
521 + .03014, .01323, 32.05788, 1.46780, .96041,
522 + .50529, 1.29212, 1.46799 /
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 + .03102, .01372, 35.79813, 1.60369, 1.09426,
525 + .64540, 1.42942, 1.60392,
526 + .03176, .01413, 38.95640, 1.72127, 1.20894,
527 + .76152, 1.54812, 1.72153,
528 + .03265, .01462, 42.93951, 1.87078, 1.35593,
529 + .91318, 1.69896, 1.87108,
530 + .03344, .01507, 46.58693, 2.00930, 1.49274,
531 + 1.05505, 1.83864, 2.00963,
532 + .03417, .01548, 49.96593, 2.14032, 1.62146,
533 + 1.18641, 1.97069, 2.14069,
534 + .03510, .01600, 54.35711, 2.31293, 1.79154,
535 + 1.36067, 2.14457, 2.31334,
536 + .03598, .01649, 58.59236, 2.48184, 1.95853,
537 + 1.53222, 2.31465, 2.48229,
538 + .03680, .01695, 62.60795, 2.64502, 2.11967,
539 + 1.69693, 2.47889, 2.64550 /
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 + .03763, .01742, 66.65498, 2.81249, 2.28497,
542 + 1.86537, 2.64741, 2.81301,
543 + .03844, .01788, 70.70985, 2.98208, 2.45313,
544 + 2.03768, 2.81801, 2.98265,
545 + .03921, .01831, 74.52213, 3.14517, 2.61420,
546 + 2.20129, 2.98203, 3.14578,
547 + .03994, .01872, 78.18091, 3.30326, 2.77094,
548 + 2.36130, 3.14098, 3.30390,
549 + .04067, .01914, 81.85229, 3.46472, 2.93082,
550 + 2.52386, 3.30329, 3.46540,
551 + .04140, .01955, 85.49360, 3.62692, 3.09171,
552 + 2.68770, 3.46631, 3.62764,
553 + .04209, .01994, 88.95525, 3.78357, 3.24703,
554 + 2.84554, 3.62373, 3.78432,
555 + .04275, .02031, 92.25501, 3.93459, 3.39703,
556 + 2.99822, 3.77547, 3.93538 /
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 + .04341, .02069, 95.55453, 4.08824, 3.54939,
559 + 3.15276, 3.92983, 4.08907,
560 + .04407, .02106, 98.86702, 4.24357, 3.70396,
561 + 3.31018, 4.08586, 4.24443,
562 + .04470, .02142, 101.95220, 4.39147, 3.85061,
563 + 3.45861, 4.23441, 4.39236,
564 + .04529, .02176, 104.94468, 4.53549, 3.99397,
565 + 3.60443, 4.37904, 4.53642,
566 + .04590, .02211, 107.91605, 4.68117, 4.13869,
567 + 3.75107, 4.52533, 4.68213 /
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 + .02575, .01028, .93025, .36456, .00000,
570 + .00000, .19598, .36437,
571 + .02666, .01079, 1.66943, .38687, .00000,
572 + .00000, .21970, .38672,
573 + .02800, .01155, 2.97501, .42645, .01534,
574 + .00000, .26129, .42636,
575 + .02899, .01211, 4.06404, .46018, .04995,
576 + .00000, .29640, .46013,
577 + .03002, .01269, 5.32011, .50035, .08699,
578 + .00000, .33800, .50035,
579 + .03092, .01320, 6.50478, .53862, .12275,
580 + .00000, .37744, .53866,
581 + .03178, .01369, 7.74297, .57836, .16133,
582 + .00000, .41828, .57844,
583 + .03269, .01421, 9.15851, .62388, .20609,
584 + .00000, .46494, .62400 /
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 + .03348, .01466, 10.42173, .66625, .24589,
587 + .00000, .50827, .66642,
588 + .03425, .01510, 11.72652, .70949, .28808,
589 + .00000, .55241, .70969,
590 + .03486, .01545, 12.79530, .74541, .32288,
591 + .00000, .58903, .74564,
592 + .03616, .01619, 15.16830, .82677, .40220,
593 + .00154, .67185, .82707,
594 + .03728, .01684, 17.28822, .90185, .47546,
595 + .07776, .74814, .90221,
596 + .03854, .01756, 19.75855, .99122, .56300,
597 + .18381, .83882, .99165,
598 + .03985, .01832, 22.44162, 1.08999, .65998,
599 + .28617, .93892, 1.09050,
600 + .04104, .01901, 24.96601, 1.18448, .75305,
601 + .38493, 1.03457, 1.18505 /
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 + .04225, .01970, 27.59118, 1.28445, .85178,
604 + .48885, 1.13568, 1.28509,
605 + .04325, .02028, 29.77843, 1.37009, .93553,
606 + .57409, 1.22224, 1.37078,
607 + .04447, .02099, 32.50594, 1.47807, 1.04200,
608 + .68452, 1.33131, 1.47884,
609 + .04555, .02161, 34.97480, 1.57725, 1.14025,
610 + .78696, 1.43143, 1.57808,
611 + .04655, .02219, 37.23583, 1.67027, 1.23190,
612 + .88096, 1.52529, 1.67116,
613 + .04781, .02292, 40.14194, 1.79181, 1.35203,
614 + 1.00466, 1.64787, 1.79277,
615 + .04899, .02361, 42.91268, 1.90972, 1.46897,
616 + 1.12542, 1.76674, 1.91076,
617 + .05011, .02425, 45.50999, 2.02268, 1.58087,
618 + 1.24037, 1.88057, 2.02378 /
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 + .05123, .02490, 48.09920, 2.13769, 1.69475,
621 + 1.35698, 1.99643, 2.13886,
622 + .05232, .02554, 50.66985, 2.25335, 1.80981,
623 + 1.47548, 2.11292, 2.25459,
624 + .05336, .02614, 53.05994, 2.36371, 1.91915,
625 + 1.58706, 2.22403, 2.36501,
626 + .05434, .02671, 55.33548, 2.47003, 2.02491,
627 + 1.69556, 2.33106, 2.47139,
628 + .05533, .02728, 57.59753, 2.57789, 2.13207,
629 + 1.80504, 2.43962, 2.57932,
630 + .05630, .02784, 59.82268, 2.68560, 2.23927,
631 + 1.91472, 2.54800, 2.68709,
632 + .05722, .02838, 61.91996, 2.78898, 2.34212,
633 + 2.01974, 2.65201, 2.79053,
634 + .05810, .02889, 63.90480, 2.88812, 2.44093,
635 + 2.12080, 2.75174, 2.88972 /
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 + .05899, .02940, 65.87239, 2.98839, 2.54070,
638 + 2.22246, 2.85260, 2.99006,
639 + .05986, .02991, 67.83655, 3.08931, 2.64148,
640 + 2.32560, 2.95409, 3.09102,
641 + .06070, .03040, 69.64777, 3.18479, 2.73647,
642 + 2.42218, 3.05010, 3.18656,
643 + .06150, .03086, 71.39719, 3.27742, 2.82902,
644 + 2.51676, 3.14324, 3.27924,
645 + .06230, .03133, 73.11909, 3.37059, 2.92190,
646 + 2.61131, 3.23692, 3.37247 /
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 + .03074, .01272, .93046, .33256, .00000,
649 + .00000, .17933, .33265,
650 + .03185, .01336, 1.62480, .35341, .00000,
651 + .00000, .20144, .35355,
652 + .03349, .01431, 2.82941, .38985, .01404,
653 + .00000, .23969, .39009,
654 + .03468, .01501, 3.81852, .42050, .04558,
655 + .00000, .27159, .42080,
656 + .03594, .01574, 4.94508, .45662, .07892,
657 + .00000, .30898, .45698,
658 + .03702, .01637, 5.99588, .49072, .11083,
659 + .00000, .34414, .49114,
660 + .03807, .01698, 7.08403, .52589, .14502,
661 + .00000, .38030, .52638,
662 + .03917, .01763, 8.31700, .56592, .18441,
663 + .00000, .42136, .56647 /
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 + .04013, .01819, 9.40748, .60290, .21921,
666 + .00000, .45920, .60351,
667 + .04106, .01874, 10.52620, .64046, .25591,
668 + .00000, .49758, .64112,
669 + .04179, .01917, 11.43681, .67152, .28605,
670 + .00000, .52927, .67222,
671 + .04336, .02009, 13.44105, .74142, .35432,
672 + .00138, .60049, .74223,
673 + .04472, .02089, 15.21151, .80544, .41691,
674 + .06671, .66560, .80633,
675 + .04623, .02178, 17.25422, .88111, .49120,
676 + .15720, .74246, .88209,
677 + .04781, .02271, 19.45108, .96413, .57290,
678 + .24380, .82668, .96521,
679 + .04925, .02355, 21.49888, 1.04300, .65078,
680 + .32681, .90660, 1.04417 /
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 + .05070, .02441, 23.61033, 1.12593, .73289,
683 + .41360, .99057, 1.12720,
684 + .05190, .02512, 25.35468, 1.19653, .80211,
685 + .48433, 1.06200, 1.19788,
686 + .05336, .02598, 27.51459, 1.28509, .88967,
687 + .57552, 1.15155, 1.28653,
688 + .05465, .02674, 29.45548, 1.36600, .97004,
689 + .65967, 1.23331, 1.36752,
690 + .05584, .02744, 31.21998, 1.44148, 1.04461,
691 + .73646, 1.30956, 1.44308,
692 + .05734, .02832, 33.47214, 1.53960, 1.14187,
693 + .83703, 1.40863, 1.54131,
694 + .05876, .02916, 35.60375, 1.63429, 1.23605,
695 + .93468, 1.50419, 1.63609,
696 + .06009, .02994, 37.58738, 1.72453, 1.32571,
697 + 1.02715, 1.59523, 1.72641 /
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 + .06141, .03072, 39.55096, 1.81595, 1.41649,
700 + 1.12048, 1.68743, 1.81793,
701 + .06272, .03149, 41.48927, 1.90750, 1.50784,
702 + 1.21495, 1.77973, 1.90956,
703 + .06395, .03221, 43.27822, 1.99442, 1.59421,
704 + 1.30343, 1.86735, 1.99657,
705 + .06511, .03289, 44.97286, 2.07784, 1.67745,
706 + 1.38917, 1.95142, 2.08007,
707 + .06628, .03358, 46.64703, 2.16212, 1.76143,
708 + 1.47531, 2.03634, 2.16443,
709 + .06743, .03425, 48.28518, 2.24596, 1.84514,
710 + 1.56130, 2.12080, 2.24835,
711 + .06852, .03489, 49.82048, 2.32613, 1.92514,
712 + 1.64331, 2.20155, 2.32860,
713 + .06956, .03550, 51.26664, 2.40276, 2.00176,
714 + 1.72198, 2.27871, 2.40529 /
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 + .07060, .03611, 52.69195, 2.47997, 2.07882,
717 + 1.80081, 2.35647, 2.48258,
718 + .07164, .03672, 54.10971, 2.55746, 2.15646,
719 + 1.88059, 2.43449, 2.56014,
720 + .07262, .03730, 55.40809, 2.63048, 2.22933,
721 + 1.95496, 2.50800, 2.63323,
722 + .07356, .03785, 56.65894, 2.70117, 2.30018,
723 + 2.02766, 2.57915, 2.70398,
724 + .07450, .03840, 57.88263, 2.77201, 2.37103,
725 + 2.10007, 2.65046, 2.77489 /
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 + .03493, .01486, .93613, .31193, .00000,
728 + .00000, .16859, .31229,
729 + .03620, .01561, 1.59993, .33176, .00000,
730 + .00000, .18960, .33219,
731 + .03809, .01673, 2.73568, .36606, .01317,
732 + .00000, .22558, .36661,
733 + .03946, .01755, 3.65734, .39464, .04264,
734 + .00000, .25532, .39527,
735 + .04090, .01841, 4.69736, .42805, .07353,
736 + .00000, .28992, .42878,
737 + .04215, .01915, 5.65943, .45939, .10290,
738 + .00000, .32225, .46019,
739 + .04334, .01986, 6.64886, .49157, .13421,
740 + .00000, .35535, .49244,
741 + .04461, .02061, 7.76255, .52801, .17011,
742 + .00000, .39276, .52897 /
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 + .04571, .02127, 8.74099, .56148, .20165,
745 + .00000, .42704, .56251,
746 + .04677, .02190, 9.73972, .59536, .23481,
747 + .00000, .46168, .59647,
748 + .04761, .02240, 10.54883, .62328, .26194,
749 + .00000, .49019, .62444,
750 + .04940, .02347, 12.31808, .68584, .32314,
751 + .00128, .55398, .68711,
752 + .05095, .02439, 13.86778, .74280, .37893,
753 + .05966, .61197, .74418,
754 + .05268, .02543, 15.64250, .80978, .44481,
755 + .14027, .68006, .81127,
756 + .05448, .02650, 17.53712, .88286, .51688,
757 + .21693, .75428, .88448,
758 + .05611, .02748, 19.29092, .95194, .58524,
759 + .29004, .82435, .95367 /
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 + .05776, .02846, 21.08765, 1.02424, .65699,
762 + .36615, .89763, 1.02608,
763 + .05913, .02927, 22.56248, 1.08551, .71720,
764 + .42786, .95968, 1.08745,
765 + .06079, .03026, 24.37899, 1.16206, .79306,
766 + .50715, 1.03717, 1.16412,
767 + .06225, .03113, 26.00237, 1.23172, .86243,
768 + .58004, 1.10764, 1.23388,
769 + .06360, .03193, 27.46994, 1.29646, .92654,
770 + .64628, 1.17309, 1.29871,
771 + .06530, .03294, 29.33326, 1.38029, 1.00985,
772 + .73270, 1.25783, 1.38266,
773 + .06690, .03390, 31.08707, 1.46087, 1.09020,
774 + .81631, 1.33923, 1.46335,
775 + .06840, .03479, 32.70999, 1.53736, 1.16639,
776 + .89516, 1.41649, 1.53996 /
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 + .06990, .03567, 34.30785, 1.61458, 1.24326,
779 + .97446, 1.49444, 1.61727,
780 + .07137, .03655, 35.87823, 1.69165, 1.32037,
781 + 1.05447, 1.57223, 1.69445,
782 + .07276, .03737, 37.31934, 1.76455, 1.39300,
783 + 1.12913, 1.64579, 1.76745,
784 + .07406, .03814, 38.67919, 1.83432, 1.46282,
785 + 1.20129, 1.71618, 1.83732,
786 + .07538, .03892, 40.01612, 1.90460, 1.53303,
787 + 1.27354, 1.78706, 1.90769,
788 + .07667, .03968, 41.31894, 1.97430, 1.60281,
789 + 1.34548, 1.85736, 1.97749,
790 + .07790, .04041, 42.53456, 2.04077, 1.66932,
791 + 1.41389, 1.92438, 2.04404,
792 + .07906, .04109, 43.67543, 2.10414, 1.73286,
793 + 1.47936, 1.98827, 2.10749 /
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 + .08023, .04178, 44.79465, 2.16781, 1.79659,
796 + 1.54476, 2.05246, 2.17126,
797 + .08139, .04247, 45.90491, 2.23158, 1.86067,
798 + 1.61084, 2.11673, 2.23511,
799 + .08249, .04311, 46.91599, 2.29149, 1.92062,
800 + 1.67224, 2.17711, 2.29510,
801 + .08354, .04373, 47.88823, 2.34939, 1.97883,
802 + 1.73218, 2.23546, 2.35307,
803 + .08460, .04435, 48.83466, 2.40726, 2.03687,
804 + 1.79169, 2.29377, 2.41102 /
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 + .03866, .01690, .94912, .29759, .00000,
807 + .00000, .16094, .29799,
808 + .04009, .01775, 1.59010, .31664, .00000,
809 + .00000, .18110, .31713,
810 + .04219, .01902, 2.67266, .34929, .01251,
811 + .00000, .21531, .34992,
812 + .04373, .01995, 3.54259, .37628, .04041,
813 + .00000, .24340, .37701,
814 + .04534, .02091, 4.51682, .40764, .06944,
815 + .00000, .27586, .40848,
816 + .04673, .02175, 5.41185, .43690, .09691,
817 + .00000, .30605, .43784,
818 + .04806, .02255, 6.32704, .46682, .12607,
819 + .00000, .33684, .46785,
820 + .04947, .02340, 7.35148, .50059, .15936,
821 + .00000, .37150, .50171 /
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 + .05069, .02414, 8.24660, .53146, .18849,
824 + .00000, .40312, .53267,
825 + .05187, .02485, 9.15641, .56262, .21903,
826 + .00000, .43500, .56391,
827 + .05281, .02541, 9.89060, .58822, .24394,
828 + .00000, .46116, .58958,
829 + .05480, .02661, 11.48729, .64538, .29993,
830 + .00120, .51947, .64687,
831 + .05651, .02764, 12.87592, .69718, .35074,
832 + .05448, .57224, .69880,
833 + .05843, .02879, 14.45636, .75784, .41049,
834 + .12785, .63394, .75959,
835 + .06042, .02999, 16.13325, .82373, .47557,
836 + .19727, .70088, .82562,
837 + .06223, .03107, 17.67638, .88575, .53705,
838 + .26321, .76384, .88777 /
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 + .06405, .03216, 19.24872, .95041, .60133,
841 + .33158, .82942, .95257,
842 + .06556, .03307, 20.53247, 1.00499, .65506,
843 + .38680, .88474, 1.00726,
844 + .06738, .03416, 22.10659, 1.07298, .72256,
845 + .45755, .95361, 1.07539,
846 + .06900, .03513, 23.50683, 1.13464, .78408,
847 + .52237, 1.01603, 1.13717,
848 + .07048, .03601, 24.76660, 1.19176, .84075,
849 + .58108, 1.07383, 1.19439,
850 + .07235, .03713, 26.35915, 1.26550, .91416,
851 + .65745, 1.14841, 1.26827,
852 + .07411, .03818, 27.85113, 1.33614, .98474,
853 + .73110, 1.21983, 1.33904,
854 + .07576, .03916, 29.22500, 1.40298, 1.05146,
855 + .80033, 1.28740, 1.40601 /
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 + .07740, .04013, 30.57133, 1.47024, 1.11856,
858 + .86974, 1.35536, 1.47339,
859 + .07901, .04109, 31.88959, 1.53720, 1.18570,
860 + .93961, 1.42299, 1.54046,
861 + .08052, .04199, 33.09348, 1.60034, 1.24874,
862 + 1.00459, 1.48676, 1.60372,
863 + .08195, .04284, 34.22574, 1.66064, 1.30920,
864 + 1.06726, 1.54764, 1.66412,
865 + .08339, .04369, 35.33424, 1.72121, 1.36985,
866 + 1.12985, 1.60879, 1.72480,
867 + .08480, .04452, 36.41062, 1.78115, 1.42999,
868 + 1.19202, 1.66929, 1.78485,
869 + .08614, .04531, 37.41107, 1.83816, 1.48717,
870 + 1.25100, 1.72683, 1.84196,
871 + .08741, .04606, 38.34702, 1.89240, 1.54169,
872 + 1.30734, 1.78156, 1.89629 /
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 + .08868, .04681, 39.26142, 1.94677, 1.59624,
875 + 1.36349, 1.83642, 1.95076,
876 + .08994, .04756, 40.16643, 2.00113, 1.65100,
877 + 1.42013, 1.89126, 2.00522,
878 + .09114, .04826, 40.98657, 2.05207, 1.70210,
879 + 1.47261, 1.94265, 2.05624,
880 + .09228, .04893, 41.77402, 2.10123, 1.75166,
881 + 1.52379, 1.99224, 2.10549,
882 + .09343, .04961, 42.53703, 2.15025, 1.80096,
883 + 1.57448, 2.04169, 2.15460 /
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 + .05341, .02552, 1.01095, .25819, .00000,
886 + .00000, .14011, .25920,
887 + .05544, .02678, 1.58046, .27487, .00000,
888 + .00000, .15771, .27604,
889 + .05842, .02864, 2.50356, .30263, .01059,
890 + .00000, .18679, .30403,
891 + .06058, .02998, 3.22179, .32503, .03399,
892 + .00000, .21011, .32660,
893 + .06284, .03138, 4.00638, .35052, .05777,
894 + .00000, .23653, .35227,
895 + .06479, .03258, 4.71094, .37391, .07989,
896 + .00000, .26070, .37581,
897 + .06665, .03373, 5.41773, .39751, .10305,
898 + .00000, .28504, .39956,
899 + .06862, .03495, 6.19458, .42381, .12915,
900 + .00000, .31210, .42601 /
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 + .07031, .03599, 6.86113, .44750, .15166,
903 + .00000, .33643, .44983,
904 + .07195, .03699, 7.52913, .47119, .17503,
905 + .00000, .36074, .47366,
906 + .07324, .03779, 8.06122, .49047, .19392,
907 + .00000, .38049, .49304,
908 + .07599, .03947, 9.19728, .53300, .23587,
909 + .00097, .42400, .53578,
910 + .07834, .04091, 10.16165, .57095, .27338,
911 + .04062, .46279, .57392,
912 + .08097, .04251, 11.23627, .61476, .31687,
913 + .09476, .50750, .61794,
914 + .08369, .04416, 12.35298, .66166, .36355,
915 + .14511, .55531, .66505,
916 + .08614, .04565, 13.36044, .70519, .40705,
917 + .19229, .59965, .70878 /
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 + .08861, .04714, 14.36829, .74999, .45197,
920 + .24061, .64526, .75379,
921 + .09064, .04837, 15.17577, .78734, .48905,
922 + .27912, .68325, .79129,
923 + .09309, .04985, 16.15095, .83336, .53514,
924 + .32799, .73004, .83751,
925 + .09526, .05115, 17.00471, .87465, .57671,
926 + .37229, .77200, .87897,
927 + .09723, .05233, 17.75997, .91247, .61459,
928 + .41197, .81042, .91696,
929 + .09972, .05382, 18.69995, .96079, .66315,
930 + .46308, .85949, .96548,
931 + .10206, .05522, 19.56618, 1.00657, .70934,
932 + .51185, .90596, 1.01145,
933 + .10423, .05651, 20.35031, 1.04943, .75254,
934 + .55720, .94945, 1.05447 /
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 + .10639, .05780, 21.10592, 1.09209, .79554,
937 + .60220, .99274, 1.09731,
938 + .10850, .05905, 21.83617, 1.13420, .83820,
939 + .64713, 1.03545, 1.13959,
940 + .11048, .06022, 22.49080, 1.17348, .87783,
941 + .68847, 1.07530, 1.17903,
942 + .11235, .06132, 23.09931, 1.21070, .91557,
943 + .72806, 1.11304, 1.21640,
944 + .11421, .06242, 23.68573, 1.24775, .95308,
945 + .76724, 1.15061, 1.25360,
946 + .11604, .06350, 24.24774, 1.28413, .99000,
947 + .80588, 1.18750, 1.29013,
948 + .11776, .06451, 24.76249, 1.31845, 1.02481,
949 + .84224, 1.22229, 1.32458,
950 + .11940, .06547, 25.23844, 1.35087, 1.05778,
951 + .87675, 1.25516, 1.35713 /
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 + .12103, .06642, 25.69598, 1.38310, 1.09051,
954 + .91085, 1.28783, 1.38949,
955 + .12265, .06737, 26.14516, 1.41514, 1.12319,
956 + .94509, 1.32031, 1.42167,
957 + .12418, .06826, 26.54381, 1.44488, 1.15340,
958 + .97651, 1.35046, 1.45153,
959 + .12563, .06911, 26.92467, 1.47347, 1.18258,
960 + 1.00705, 1.37944, 1.48023,
961 + .12709, .06996, 27.28687, 1.50173, 1.21137,
962 + 1.03705, 1.40809, 1.50861 /
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 + .07531, .03963, 1.12858, .22717, .00000,
965 + .00000, .12355, .22936,
966 + .07820, .04145, 1.61970, .24148, .00000,
967 + .00000, .13866, .24391,
968 + .08242, .04410, 2.38474, .26457, .00885,
969 + .00000, .16289, .26738,
970 + .08547, .04600, 2.95892, .28270, .02818,
971 + .00000, .18183, .28579,
972 + .08865, .04797, 3.56918, .30290, .04732,
973 + .00000, .20285, .30626,
974 + .09136, .04965, 4.10328, .32108, .06478,
975 + .00000, .22172, .32468,
976 + .09395, .05125, 4.62758, .33916, .08279,
977 + .00000, .24045, .34299,
978 + .09668, .05294, 5.19211, .35901, .10277,
979 + .00000, .26099, .36308 /
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 + .09902, .05437, 5.66655, .37661, .11972,
982 + .00000, .27916, .38088,
983 + .10127, .05575, 6.13436, .39402, .13715,
984 + .00000, .29712, .39850,
985 + .10304, .05683, 6.50151, .40804, .15108,
986 + .00000, .31157, .41267,
987 + .10678, .05911, 7.26846, .43853, .18159,
988 + .00078, .34295, .44349,
989 + .10998, .06105, 7.90059, .46528, .20840,
990 + .02947, .37045, .47051,
991 + .11353, .06319, 8.58737, .49566, .23900,
992 + .06827, .40165, .50120,
993 + .11717, .06538, 9.28357, .52762, .27131,
994 + .10367, .43445, .53348,
995 + .12045, .06735, 9.89668, .55682, .30095,
996 + .13634, .46440, .56296 /
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 + .12373, .06930, 10.49647, .58643, .33113,
999 + .16932, .49475, .59286,
1000 + .12640, .07089, 10.96556, .61075, .35566,
1001 + .19522, .51967, .61741,
1002 + .12963, .07280, 11.52162, .64036, .38582,
1003 + .22773, .54999, .64729,
1004 + .13247, .07448, 11.99888, .66658, .41268,
1005 + .25685, .57684, .67376,
1006 + .13503, .07598, 12.41166, .69028, .43685,
1007 + .28260, .60111, .69768,
1008 + .13826, .07787, 12.91503, .72019, .46747,
1009 + .31540, .63173, .72787,
1010 + .14127, .07963, 13.36897, .74817, .49624,
1011 + .34632, .66036, .75611,
1012 + .14405, .08125, 13.77038, .77402, .52281,
1013 + .37472, .68682, .78219 /
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 + .14681, .08285, 14.14819, .79943, .54894,
1016 + .40258, .71282, .80783,
1017 + .14949, .08440, 14.50696, .82424, .57461,
1018 + .43014, .73821, .83287,
1019 + .15199, .08584, 14.81954, .84709, .59816,
1020 + .45517, .76160, .85593,
1021 + .15434, .08718, 15.10548, .86854, .62039,
1022 + .47895, .78356, .87758,
1023 + .15667, .08852, 15.37453, .88967, .64226,
1024 + .50225, .80518, .89890,
1025 + .15895, .08982, 15.62731, .91020, .66359,
1026 + .52502, .82620, .91962,
1027 + .16109, .09104, 15.85339, .92937, .68350,
1028 + .54625, .84583, .93897,
1029 + .16311, .09219, 16.05867, .94732, .70222,
1030 + .56625, .86422, .95709 /
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 + .16513, .09333, 16.25061, .96498, .72061,
1033 + .58582, .88231, .97492,
1034 + .16712, .09445, 16.43688, .98243, .73886,
1035 + .60536, .90018, .99253,
1036 + .16898, .09550, 16.59572, .99841, .75554,
1037 + .62309, .91657, 1.00866,
1038 + .17075, .09650, 16.74666, 1.01370, .77158,
1039 + .64025, .93224, 1.02410,
1040 + .17252, .09749, 16.88500, 1.02866, .78725,
1041 + .65695, .94757, 1.03920 /
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 + .09316, .05176, 1.21903, .21217, .00000,
1044 + .00000, .11560, .21560,
1045 + .09671, .05397, 1.66080, .22504, .00000,
1046 + .00000, .12923, .22880,
1047 + .10187, .05718, 2.33180, .24543, .00789,
1048 + .00000, .15073, .24968,
1049 + .10558, .05947, 2.82387, .26118, .02500,
1050 + .00000, .16726, .26577,
1051 + .10943, .06184, 3.33790, .27847, .04167,
1052 + .00000, .18535, .28341,
1053 + .11270, .06384, 3.78038, .29385, .05668,
1054 + .00000, .20141, .29910,
1055 + .11582, .06574, 4.20866, .30900, .07200,
1056 + .00000, .21720, .31454,
1057 + .11910, .06773, 4.66368, .32547, .08884,
1058 + .00000, .23435, .33132 /
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 + .12189, .06942, 5.04089, .33993, .10298,
1061 + .00000, .24936, .34603,
1062 + .12458, .07104, 5.40883, .35413, .11741,
1063 + .00000, .26411, .36048,
1064 + .12669, .07231, 5.69472, .36549, .12887,
1065 + .00000, .27589, .37203,
1066 + .13113, .07497, 6.28308, .38996, .15373,
1067 + .00067, .30124, .39690,
1068 + .13491, .07721, 6.75800, .41118, .17533,
1069 + .02402, .32321, .41846,
1070 + .13908, .07968, 7.26470, .43502, .19974,
1071 + .05541, .34787, .44268,
1072 + .14335, .08220, 7.76945, .45982, .22522,
1073 + .08369, .37351, .46787,
1074 + .14717, .08444, 8.20651, .48224, .24836,
1075 + .10953, .39668, .49063 /
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 + .15098, .08666, 8.62727, .50475, .27170,
1078 + .13537, .41994, .51348,
1079 + .15407, .08845, 8.95044, .52304, .29048,
1080 + .15547, .43883, .53204,
1081 + .15779, .09060, 9.32803, .54512, .31340,
1082 + .18052, .46164, .55445,
1083 + .16105, .09247, 9.64717, .56452, .33365,
1084 + .20279, .48167, .57413,
1085 + .16398, .09415, 9.91857, .58189, .35171,
1086 + .22232, .49961, .59176,
1087 + .16766, .09625, 10.24405, .60363, .37441,
1088 + .24700, .52206, .61382,
1089 + .17107, .09819, 10.53244, .62378, .39557,
1090 + .27009, .54288, .63426,
1091 + .17422, .09997, 10.78256, .64222, .41495,
1092 + .29113, .56193, .65297 /
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 + .17732, .10171, 11.01312, .66019, .43384,
1095 + .31160, .58051, .67121,
1096 + .18033, .10340, 11.22887, .67761, .45229,
1097 + .33174, .59853, .68889,
1098 + .18313, .10496, 11.41193, .69350, .46906,
1099 + .34987, .61496, .70501,
1100 + .18574, .10641, 11.57693, .70831, .48481,
1101 + .36700, .63029, .72005,
1102 + .18833, .10784, 11.72830, .72277, .50018,
1103 + .38367, .64527, .73473,
1104 + .19085, .10923, 11.86782, .73674, .51507,
1105 + .39988, .65973, .74890,
1106 + .19322, .11054, 11.98958, .74968, .52889,
1107 + .41488, .67315, .76204,
1108 + .19544, .11175, 12.09803, .76173, .54181,
1109 + .42895, .68564, .77427 /
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 + .19765, .11296, 12.19617, .77347, .55441,
1112 + .44262, .69782, .78620,
1113 + .19983, .11414, 12.29031, .78502, .56687,
1114 + .45623, .70981, .79793,
1115 + .20186, .11524, 12.36637, .79550, .57815,
1116 + .46847, .72070, .80857,
1117 + .20379, .11629, 12.43840, .80550, .58897,
1118 + .48029, .73109, .81873,
1119 + .20570, .11732, 12.50093, .81518, .59946,
1120 + .49171, .74116, .82856 /
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 + .10906, .06278, 1.29180, .20279, .00000,
1123 + .00000, .11065, .20751,
1124 + .11315, .06530, 1.69628, .21458, .00000,
1125 + .00000, .12322, .21971,
1126 + .11907, .06892, 2.29900, .23304, .00723,
1127 + .00000, .14278, .23874,
1128 + .12332, .07151, 2.73323, .24711, .02282,
1129 + .00000, .15765, .25322,
1130 + .12770, .07416, 3.18097, .26239, .03781,
1131 + .00000, .17374, .26892,
1132 + .13143, .07639, 3.56156, .27587, .05118,
1133 + .00000, .18789, .28275,
1134 + .13496, .07851, 3.92596, .28904, .06474,
1135 + .00000, .20172, .29626,
1136 + .13867, .08072, 4.30911, .30327, .07951,
1137 + .00000, .21663, .31084 /
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 + .14182, .08259, 4.62339, .31565, .09182,
1140 + .00000, .22958, .32352,
1141 + .14484, .08437, 4.92738, .32775, .10432,
1142 + .00000, .24223, .33590,
1143 + .14721, .08577, 5.16172, .33737, .11418,
1144 + .00000, .25228, .34574,
1145 + .15218, .08868, 5.63815, .35796, .13544,
1146 + .00060, .27377, .36679,
1147 + .15639, .09113, 6.01604, .37564, .15375,
1148 + .02058, .29222, .38486,
1149 + .16103, .09382, 6.41326, .39535, .17428,
1150 + .04730, .31277, .40500,
1151 + .16576, .09654, 6.80329, .41567, .19553,
1152 + .07114, .33395, .42575,
1153 + .16997, .09895, 7.13617, .43388, .21467,
1154 + .09277, .35293, .44434 /
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 + .17416, .10133, 7.45219, .45202, .23384,
1157 + .11425, .37184, .46286,
1158 + .17754, .10324, 7.69098, .46664, .24915,
1159 + .13083, .38708, .47778,
1160 + .18160, .10553, 7.96662, .48418, .26771,
1161 + .15138, .40536, .49567,
1162 + .18515, .10751, 8.19645, .49947, .28402,
1163 + .16955, .42130, .51127,
1164 + .18833, .10928, 8.38861, .51306, .29846,
1165 + .18536, .43549, .52514,
1166 + .19230, .11149, 8.61559, .52995, .31650,
1167 + .20525, .45312, .54238,
1168 + .19598, .11351, 8.81334, .54549, .33321,
1169 + .22375, .46934, .55823,
1170 + .19936, .11537, 8.98144, .55961, .34840,
1171 + .24049, .48409, .57264 /
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 + .20268, .11717, 9.13304, .57325, .36312,
1174 + .25668, .49837, .58657,
1175 + .20589, .11892, 9.27280, .58641, .37743,
1176 + .27253, .51214, .60000,
1177 + .20886, .12052, 9.38778, .59830, .39033,
1178 + .28671, .52459, .61214,
1179 + .21163, .12201, 9.48976, .60933, .40239,
1180 + .30006, .53616, .62340,
1181 + .21437, .12347, 9.58054, .62002, .41410,
1182 + .31297, .54738, .63431,
1183 + .21703, .12489, 9.66222, .63028, .42539,
1184 + .32547, .55816, .64479,
1185 + .21952, .12621, 9.73117, .63972, .43580,
1186 + .33698, .56809, .65444,
1187 + .22184, .12744, 9.79101, .64847, .44549,
1188 + .34773, .57729, .66337 /
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 + .22415, .12865, 9.84253, .65692, .45489,
1191 + .35812, .58620, .67201,
1192 + .22642, .12984, 9.89117, .66521, .46415,
1193 + .36843, .59494, .68048,
1194 + .22853, .13094, 9.92696, .67265, .47247,
1195 + .37765, .60280, .68808,
1196 + .23053, .13199, 9.96076, .67973, .48044,
1197 + .38654, .61029, .69533,
1198 + .23251, .13301, 9.98704, .68653, .48811,
1199 + .39507, .61750, .70228 /
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 + .12374, .07301, 1.35084, .19603, .00000,
1202 + .00000, .10715, .20209,
1203 + .12828, .07577, 1.72475, .20696, .00000,
1204 + .00000, .11888, .21348,
1205 + .13485, .07972, 2.27348, .22388, .00672,
1206 + .00000, .13694, .23105,
1207 + .13954, .08253, 2.66309, .23666, .02115,
1208 + .00000, .15052, .24428,
1209 + .14437, .08539, 3.06055, .25041, .03489,
1210 + .00000, .16510, .25851,
1211 + .14846, .08781, 3.39492, .26244, .04704,
1212 + .00000, .17784, .27094,
1213 + .15234, .09008, 3.71219, .27414, .05929,
1214 + .00000, .19020, .28301,
1215 + .15639, .09245, 4.04285, .28670, .07255,
1216 + .00000, .20346, .29595 /
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 + .15983, .09445, 4.31174, .29755, .08352,
1219 + .00000, .21490, .30713,
1220 + .16312, .09635, 4.56996, .30811, .09462,
1221 + .00000, .22603, .31800,
1222 + .16569, .09783, 4.76769, .31646, .10334,
1223 + .00000, .23483, .32660,
1224 + .17108, .10092, 5.16542, .33424, .12202,
1225 + .00055, .25354, .34488,
1226 + .17563, .10352, 5.47589, .34940, .13800,
1227 + .01812, .26949, .36045,
1228 + .18061, .10634, 5.79799, .36617, .15579,
1229 + .04154, .28713, .37768,
1230 + .18569, .10919, 6.11031, .38333, .17409,
1231 + .06228, .30518, .39530,
1232 + .19021, .11170, 6.37325, .39859, .19046,
1233 + .08097, .32124, .41097 /
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 + .19467, .11418, 6.61955, .41370, .20675,
1236 + .09943, .33713, .42648,
1237 + .19827, .11616, 6.80273, .42578, .21968,
1238 + .11359, .34986, .43888,
1239 + .20258, .11851, 7.01181, .44019, .23528,
1240 + .13106, .36504, .45366,
1241 + .20632, .12056, 7.18390, .45267, .24890,
1242 + .14643, .37821, .46648,
1243 + .20967, .12237, 7.32517, .46370, .26090,
1244 + .15975, .38984, .47780,
1245 + .21384, .12461, 7.48953, .47732, .27582,
1246 + .17641, .40422, .49177,
1247 + .21769, .12668, 7.63028, .48977, .28956,
1248 + .19182, .41739, .50455,
1249 + .22122, .12855, 7.74721, .50101, .30198,
1250 + .20570, .42928, .51608 /
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 + .22467, .13037, 7.84995, .51178, .31395,
1253 + .21905, .44070, .52714,
1254 + .22801, .13213, 7.94301, .52212, .32553,
1255 + .23208, .45167, .53775,
1256 + .23108, .13373, 8.01673, .53138, .33591,
1257 + .24367, .46152, .54726,
1258 + .23394, .13521, 8.08073, .53993, .34558,
1259 + .25454, .47063, .55605,
1260 + .23676, .13667, 8.13523, .54817, .35490,
1261 + .26500, .47941, .56451,
1262 + .23948, .13807, 8.18261, .55602, .36386,
1263 + .27509, .48780, .57259,
1264 + .24202, .13937, 8.22061, .56320, .37209,
1265 + .28435, .49548, .57997,
1266 + .24440, .14058, 8.25209, .56981, .37971,
1267 + .29296, .50257, .58676 /
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 + .24675, .14177, 8.27661, .57616, .38706,
1270 + .30125, .50939, .59330,
1271 + .24905, .14293, 8.29905, .58237, .39429,
1272 + .30946, .51606, .59968,
1273 + .25119, .14400, 8.31203, .58788, .40074,
1274 + .31675, .52201, .60535,
1275 + .25321, .14501, 8.32427, .59311, .40691,
1276 + .32377, .52766, .61075,
1277 + .25521, .14600, 8.33037, .59809, .41281,
1278 + .33047, .53305, .61587 /
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 + .15073, .09178, 1.43941, .18641, .00000,
1281 + .00000, .10233, .19521,
1282 + .15601, .09488, 1.76432, .19597, .00000,
1283 + .00000, .11274, .20530,
1284 + .16361, .09929, 2.22980, .21051, .00596,
1285 + .00000, .12849, .22061,
1286 + .16901, .10239, 2.55253, .22131, .01866,
1287 + .00000, .14016, .23195,
1288 + .17454, .10555, 2.87613, .23278, .03056,
1289 + .00000, .15252, .24396,
1290 + .17919, .10819, 3.14382, .24269, .04095,
1291 + .00000, .16319, .25432,
1292 + .18358, .11067, 3.39409, .25224, .05132,
1293 + .00000, .17345, .26429,
1294 + .18816, .11324, 3.65122, .26238, .06245,
1295 + .00000, .18434, .27488 /
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 + .19202, .11539, 3.85709, .27105, .07155,
1298 + .00000, .19365, .28390,
1299 + .19571, .11743, 4.05247, .27943, .08069,
1300 + .00000, .20263, .29262,
1301 + .19858, .11902, 4.20034, .28601, .08781,
1302 + .00000, .20969, .29947,
1303 + .20458, .12230, 4.49225, .29986, .10295,
1304 + .00048, .22454, .31388,
1305 + .20961, .12503, 4.71356, .31152, .11575,
1306 + .01476, .23705, .32600,
1307 + .21508, .12798, 4.93743, .32426, .12985,
1308 + .03368, .25073, .33924,
1309 + .22063, .13094, 5.14929, .33713, .14418,
1310 + .05024, .26456, .35260,
1311 + .22552, .13354, 5.32318, .34844, .15686,
1312 + .06501, .27672, .36434 /
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 + .23033, .13607, 5.48193, .35950, .16936,
1315 + .07946, .28863, .37582,
1316 + .23420, .13808, 5.59616, .36823, .17917,
1317 + .09043, .29804, .38487,
1318 + .23879, .14046, 5.72347, .37853, .19092,
1319 + .10388, .30917, .39557,
1320 + .24277, .14251, 5.82530, .38737, .20109,
1321 + .11562, .31873, .40474,
1322 + .24630, .14431, 5.90535, .39508, .20996,
1323 + .12569, .32709, .41274,
1324 + .25069, .14653, 5.99506, .40448, .22089,
1325 + .13821, .33731, .42250,
1326 + .25471, .14855, 6.06852, .41298, .23086,
1327 + .14969, .34657, .43132,
1328 + .25837, .15038, 6.12589, .42055, .23979,
1329 + .15995, .35484, .43918 /
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 + .26192, .15214, 6.17252, .42771, .24832,
1332 + .16973, .36268, .44661,
1333 + .26535, .15382, 6.21246, .43450, .25650,
1334 + .17921, .37015, .45367,
1335 + .26847, .15534, 6.23956, .44050, .26376,
1336 + .18756, .37677, .45991,
1337 + .27137, .15674, 6.26119, .44599, .27048,
1338 + .19536, .38284, .46561,
1339 + .27421, .15810, 6.27600, .45118, .27690,
1340 + .20281, .38861, .47102,
1341 + .27695, .15941, 6.28609, .45609, .28302,
1342 + .20994, .39408, .47612,
1343 + .27949, .16061, 6.29066, .46051, .28859,
1344 + .21644, .39904, .48073,
1345 + .28186, .16172, 6.29191, .46454, .29371,
1346 + .22245, .40356, .48493 /
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 + .28418, .16280, 6.28819, .46834, .29861,
1349 + .22819, .40786, .48889,
1350 + .28645, .16385, 6.28343, .47202, .30340,
1351 + .23386, .41204, .49273,
1352 + .28853, .16481, 6.27312, .47522, .30762,
1353 + .23883, .41569, .49607,
1354 + .29050, .16572, 6.26342, .47825, .31165,
1355 + .24361, .41916, .49923,
1356 + .29244, .16660, 6.24931, .48106, .31545,
1357 + .24814, .42241, .50217 /
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 + .18755, .11691, 1.52232, .17637, .00000,
1360 + .00000, .09757, .18934,
1361 + .19365, .12029, 1.79164, .18435, .00000,
1362 + .00000, .10649, .19794,
1363 + .20234, .12506, 2.16695, .19627, .00515,
1364 + .00000, .11975, .21071,
1365 + .20846, .12839, 2.41977, .20495, .01603,
1366 + .00000, .12939, .21998,
1367 + .21470, .13174, 2.66820, .21402, .02605,
1368 + .00000, .13945, .22965,
1369 + .21991, .13452, 2.86950, .22174, .03467,
1370 + .00000, .14801, .23787,
1371 + .22481, .13711, 3.05436, .22909, .04318,
1372 + .00000, .15615, .24567,
1373 + .22989, .13978, 3.24096, .23682, .05220,
1374 + .00000, .16471, .25387 /
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 + .23414, .14200, 3.38733, .24333, .05949,
1377 + .00000, .17192, .26076,
1378 + .23818, .14410, 3.52421, .24956, .06676,
1379 + .00000, .17883, .26735,
1380 + .24132, .14571, 3.62623, .25441, .07237,
1381 + .00000, .18420, .27248,
1382 + .24781, .14903, 3.82219, .26450, .08418,
1383 + .00040, .19539, .28314,
1384 + .25322, .15176, 3.96442, .27286, .09402,
1385 + .01161, .20467, .29196,
1386 + .25907, .15469, 4.10285, .28184, .10473,
1387 + .02636, .21468, .30144,
1388 + .26494, .15759, 4.22897, .29077, .11547,
1389 + .03909, .22465, .31085,
1390 + .27008, .16010, 4.32829, .29848, .12485,
1391 + .05031, .23329, .31897 /
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 + .27509, .16253, 4.41496, .30590, .13399,
1394 + .06117, .24163, .32679,
1395 + .27908, .16443, 4.47332, .31164, .14107,
1396 + .06933, .24812, .33284,
1397 + .28379, .16666, 4.53520, .31833, .14946,
1398 + .07924, .25570, .33989,
1399 + .28783, .16856, 4.58165, .32398, .15665,
1400 + .08781, .26213, .34584,
1401 + .29140, .17022, 4.61451, .32882, .16285,
1402 + .09509, .26766, .35093,
1403 + .29579, .17223, 4.64755, .33462, .17041,
1404 + .10406, .27433, .35704,
1405 + .29978, .17404, 4.67077, .33976, .17723,
1406 + .11221, .28029, .36247,
1407 + .30338, .17565, 4.68435, .34425, .18326,
1408 + .11941, .28552, .36720 /
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 + .30685, .17719, 4.69062, .34839, .18894,
1411 + .12621, .29040, .37158,
1412 + .31016, .17864, 4.69297, .35227, .19435,
1413 + .13275, .29498, .37567,
1414 + .31316, .17993, 4.68796, .35558, .19908,
1415 + .13845, .29896, .37917,
1416 + .31593, .18111, 4.68075, .35857, .20342,
1417 + .14374, .30256, .38232,
1418 + .31860, .18224, 4.66897, .36132, .20751,
1419 + .14873, .30593, .38524,
1420 + .32117, .18330, 4.65459, .36387, .21138,
1421 + .15348, .30907, .38793,
1422 + .32352, .18428, 4.63774, .36609, .21485,
1423 + .15777, .31185, .39029,
1424 + .32570, .18517, 4.62000, .36807, .21802,
1425 + .16171, .31435, .39239 /
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 + .32781, .18602, 4.59902, .36987, .22100,
1428 + .16544, .31667, .39430,
1429 + .32988, .18684, 4.57785, .37160, .22390,
1430 + .16909, .31891, .39614,
1431 + .33175, .18756, 4.55404, .37301, .22641,
1432 + .17226, .32079, .39764,
1433 + .33352, .18825, 4.53174, .37434, .22879,
1434 + .17530, .32257, .39906,
1435 + .33523, .18890, 4.50654, .37549, .23101,
1436 + .17815, .32418, .40029 /
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 + .24307, .15316, 1.58095, .16395, .00000,
1439 + .00000, .09210, .18382,
1440 + .24995, .15662, 1.78390, .16998, .00000,
1441 + .00000, .09922, .19049,
1442 + .25966, .16146, 2.05665, .17877, .00422,
1443 + .00000, .10955, .20014,
1444 + .26642, .16478, 2.23313, .18502, .01305,
1445 + .00000, .11690, .20697,
1446 + .27324, .16807, 2.40169, .19141, .02100,
1447 + .00000, .12441, .21395,
1448 + .27889, .17077, 2.53427, .19675, .02773,
1449 + .00000, .13069, .21975,
1450 + .28414, .17326, 2.65298, .20174, .03428,
1451 + .00000, .13658, .22517,
1452 + .28955, .17579, 2.76974, .20691, .04113,
1453 + .00000, .14268, .23078 /
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 + .29403, .17787, 2.85821, .21118, .04657,
1456 + .00000, .14773, .23539,
1457 + .29826, .17981, 2.93911, .21521, .05194,
1458 + .00000, .15252, .23974,
1459 + .30151, .18129, 2.99788, .21831, .05606,
1460 + .00000, .15620, .24308,
1461 + .30820, .18430, 3.10528, .22463, .06458,
1462 + .00032, .16374, .24988,
1463 + .31369, .18672, 3.17640, .22973, .07157,
1464 + .00852, .16987, .25536,
1465 + .31956, .18926, 3.23990, .23508, .07905,
1466 + .01922, .17634, .26111,
1467 + .32535, .19174, 3.29265, .24025, .08642,
1468 + .02829, .18264, .26665,
1469 + .33036, .19383, 3.32956, .24459, .09276,
1470 + .03617, .18799, .27130 /
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 + .33518, .19582, 3.35730, .24865, .09883,
1473 + .04370, .19304, .27564,
1474 + .33896, .19733, 3.37108, .25167, .10345,
1475 + .04928, .19687, .27888,
1476 + .34337, .19907, 3.38189, .25511, .10886,
1477 + .05598, .20126, .28255,
1478 + .34711, .20052, 3.38608, .25793, .11343,
1479 + .06171, .20491, .28556,
1480 + .35034, .20175, 3.38373, .26024, .11731,
1481 + .06651, .20796, .28801,
1482 + .35428, .20320, 3.37542, .26291, .12196,
1483 + .07235, .21155, .29085,
1484 + .35781, .20447, 3.36292, .26517, .12609,
1485 + .07760, .21467, .29327,
1486 + .36093, .20557, 3.34641, .26705, .12968,
1487 + .08218, .21733, .29527 /
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 + .36389, .20657, 3.32577, .26867, .13300,
1490 + .08644, .21972, .29699,
1491 + .36668, .20750, 3.30368, .27013, .13612,
1492 + .09051, .22191, .29854,
1493 + .36914, .20829, 3.27863, .27125, .13878,
1494 + .09399, .22372, .29973,
1495 + .37139, .20899, 3.25393, .27221, .14120,
1496 + .09719, .22531, .30075,
1497 + .37352, .20962, 3.22675, .27301, .14343,
1498 + .10017, .22674, .30159,
1499 + .37553, .21020, 3.19874, .27367, .14550,
1500 + .10298, .22801, .30229,
1501 + .37735, .21070, 3.17058, .27418, .14733,
1502 + .10548, .22908, .30281,
1503 + .37900, .21115, 3.14322, .27457, .14897,
1504 + .10776, .23001, .30322 /
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 + .38056, .21154, 3.11413, .27483, .15048,
1507 + .10988, .23079, .30350,
1508 + .38207, .21191, 3.08548, .27506, .15193,
1509 + .11195, .23154, .30373,
1510 + .38340, .21220, 3.05623, .27511, .15314,
1511 + .11371, .23207, .30378,
1512 + .38465, .21248, 3.02895, .27517, .15428,
1513 + .11539, .23258, .30382,
1514 + .38582, .21270, 3.00016, .27509, .15530,
1515 + .11693, .23296, .30374 /
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 + .29364, .18418, 1.58268, .15341, .00000,
1518 + .00000, .08774, .17980,
1519 + .30083, .18743, 1.73828, .15798, .00000,
1520 + .00000, .09351, .18494,
1521 + .31087, .19191, 1.94091, .16452, .00356,
1522 + .00000, .10172, .19223,
1523 + .31778, .19494, 2.06709, .16907, .01094,
1524 + .00000, .10747, .19727,
1525 + .32466, .19790, 2.18436, .17364, .01750,
1526 + .00000, .11325, .20230,
1527 + .33031, .20028, 2.27399, .17739, .02297,
1528 + .00000, .11801, .20642,
1529 + .33553, .20245, 2.35220, .18085, .02823,
1530 + .00000, .12242, .21020,
1531 + .34086, .20464, 2.42705, .18437, .03369,
1532 + .00000, .12693, .21404 /
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 + .34521, .20639, 2.48149, .18722, .03797,
1535 + .00000, .13061, .21713,
1536 + .34930, .20801, 2.53002, .18988, .04216,
1537 + .00000, .13406, .22002,
1538 + .35243, .20923, 2.56412, .19189, .04535,
1539 + .00000, .13668, .22219,
1540 + .35877, .21166, 2.62213, .19591, .05188,
1541 + .00027, .14199, .22653,
1542 + .36392, .21356, 2.65478, .19906, .05716,
1543 + .00663, .14621, .22992,
1544 + .36933, .21551, 2.67887, .20227, .06274,
1545 + .01488, .15058, .23335,
1546 + .37459, .21735, 2.69414, .20526, .06817,
1547 + .02178, .15474, .23654,
1548 + .37908, .21886, 2.70004, .20768, .07276,
1549 + .02771, .15820, .23910 /
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 + .38332, .22023, 2.69922, .20984, .07712,
1552 + .03332, .16138, .24137,
1553 + .38657, .22123, 2.69210, .21138, .08038,
1554 + .03743, .16373, .24298,
1555 + .39032, .22234, 2.67962, .21304, .08415,
1556 + .04232, .16636, .24470,
1557 + .39345, .22323, 2.66512, .21433, .08730,
1558 + .04647, .16850, .24603,
1559 + .39610, .22393, 2.64768, .21529, .08993,
1560 + .04991, .17021, .24701,
1561 + .39925, .22472, 2.62234, .21632, .09305,
1562 + .05405, .17216, .24805,
1563 + .40203, .22537, 2.59577, .21711, .09577,
1564 + .05774, .17380, .24882,
1565 + .40441, .22588, 2.56796, .21766, .09810,
1566 + .06091, .17512, .24933 /
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 + .40662, .22628, 2.53778, .21802, .10022,
1569 + .06384, .17624, .24965,
1570 + .40867, .22662, 2.50742, .21827, .10219,
1571 + .06661, .17723, .24986,
1572 + .41040, .22685, 2.47632, .21833, .10382,
1573 + .06895, .17796, .24984,
1574 + .41196, .22703, 2.44665, .21831, .10529,
1575 + .07108, .17856, .24976,
1576 + .41338, .22714, 2.41559, .21817, .10661,
1577 + .07304, .17904, .24954,
1578 + .41468, .22721, 2.38455, .21796, .10782,
1579 + .07488, .17942, .24923,
1580 + .41580, .22722, 2.35434, .21766, .10887,
1581 + .07649, .17967, .24883,
1582 + .41679, .22721, 2.32556, .21733, .10978,
1583 + .07795, .17985, .24840 /
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 + .41769, .22713, 2.29582, .21690, .11060,
1586 + .07929, .17992, .24787,
1587 + .41855, .22704, 2.26681, .21645, .11138,
1588 + .08058, .17998, .24733,
1589 + .41923, .22689, 2.23818, .21592, .11200,
1590 + .08166, .17991, .24669,
1591 + .41987, .22675, 2.21155, .21541, .11258,
1592 + .08269, .17984, .24609,
1593 + .42041, .22656, 2.18405, .21482, .11307,
1594 + .08362, .17968, .24539 /
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 + .38374, .23445, 1.50453, .13431, .00000,
1597 + .00000, .07991, .17176,
1598 + .39055, .23681, 1.59739, .13689, .00000,
1599 + .00000, .08374, .17455,
1600 + .39981, .23992, 1.71068, .14042, .00265,
1601 + .00000, .08905, .17833,
1602 + .40605, .24189, 1.77519, .14277, .00808,
1603 + .00000, .09263, .18080,
1604 + .41210, .24373, 1.83130, .14503, .01279,
1605 + .00000, .09614, .18314,
1606 + .41696, .24513, 1.87099, .14680, .01665,
1607 + .00000, .09895, .18495,
1608 + .42135, .24635, 1.90320, .14838, .02031,
1609 + .00000, .10150, .18653,
1610 + .42573, .24751, 1.93146, .14992, .02403,
1611 + .00000, .10405, .18806 /
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 + .42922, .24836, 1.94890, .15109, .02691,
1614 + .00000, .10605, .18919,
1615 + .43244, .24910, 1.96287, .15214, .02969,
1616 + .00000, .10789, .19019,
1617 + .43485, .24962, 1.97106, .15290, .03177,
1618 + .00000, .10926, .19090,
1619 + .43959, .25055, 1.97864, .15432, .03598,
1620 + .00020, .11194, .19218,
1621 + .44326, .25117, 1.97364, .15531, .03930,
1622 + .00439, .11398, .19300,
1623 + .44696, .25168, 1.96055, .15619, .04274,
1624 + .00978, .11599, .19367,
1625 + .45039, .25200, 1.94173, .15686, .04601,
1626 + .01421, .11779, .19410,
1627 + .45315, .25214, 1.92056, .15726, .04871,
1628 + .01794, .11918, .19426 /
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 + .45560, .25214, 1.89592, .15748, .05121,
1631 + .02142, .12037, .19423,
1632 + .45733, .25201, 1.87220, .15750, .05304,
1633 + .02391, .12115, .19399,
1634 + .45921, .25174, 1.84199, .15740, .05512,
1635 + .02685, .12196, .19359,
1636 + .46067, .25141, 1.81399, .15720, .05681,
1637 + .02930, .12253, .19312,
1638 + .46177, .25102, 1.78654, .15689, .05818,
1639 + .03130, .12292, .19253,
1640 + .46293, .25042, 1.75072, .15638, .05976,
1641 + .03367, .12326, .19167,
1642 + .46380, .24978, 1.71635, .15579, .06111,
1643 + .03575, .12345, .19074,
1644 + .46441, .24909, 1.68329, .15514, .06222,
1645 + .03750, .12349, .18976 /
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 + .46480, .24832, 1.64962, .15439, .06319,
1648 + .03908, .12342, .18867,
1649 + .46507, .24753, 1.61691, .15360, .06406,
1650 + .04056, .12329, .18755,
1651 + .46512, .24668, 1.58525, .15275, .06475,
1652 + .04178, .12304, .18637,
1653 + .46509, .24585, 1.55576, .15192, .06534,
1654 + .04288, .12277, .18524,
1655 + .46491, .24496, 1.52598, .15103, .06585,
1656 + .04386, .12241, .18404,
1657 + .46465, .24405, 1.49693, .15011, .06629,
1658 + .04477, .12201, .18281,
1659 + .46428, .24315, 1.46939, .14919, .06664,
1660 + .04555, .12158, .18159,
1661 + .46387, .24228, 1.44362, .14830, .06693,
1662 + .04624, .12114, .18042 /
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 + .46334, .24135, 1.41762, .14736, .06716,
1665 + .04685, .12064, .17919,
1666 + .46279, .24043, 1.39248, .14643, .06736,
1667 + .04744, .12013, .17797,
1668 + .46212, .23950, 1.36835, .14549, .06749,
1669 + .04791, .11958, .17675,
1670 + .46150, .23863, 1.34600, .14460, .06761,
1671 + .04835, .11907, .17561,
1672 + .46076, .23770, 1.32339, .14366, .06767,
1673 + .04873, .11849, .17441 /
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 + .46137, .27247, 1.38330, .11693, .00000,
1676 + .00000, .07242, .16205,
1677 + .46689, .27357, 1.43783, .11825, .00000,
1678 + .00000, .07494, .16315,
1679 + .47417, .27482, 1.49873, .11996, .00204,
1680 + .00000, .07833, .16445,
1681 + .47888, .27545, 1.52858, .12100, .00619,
1682 + .00000, .08056, .16519,
1683 + .48325, .27590, 1.55129, .12194, .00974,
1684 + .00000, .08266, .16571,
1685 + .48663, .27610, 1.56452, .12260, .01260,
1686 + .00000, .08429, .16601,
1687 + .48957, .27617, 1.57298, .12313, .01527,
1688 + .00000, .08573, .16619,
1689 + .49239, .27614, 1.57778, .12361, .01797,
1690 + .00000, .08712, .16628 /
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 + .49450, .27595, 1.57712, .12388, .02001,
1693 + .00000, .08817, .16620,
1694 + .49637, .27570, 1.57461, .12410, .02197,
1695 + .00000, .08910, .16607,
1696 + .49770, .27545, 1.57075, .12422, .02343,
1697 + .00000, .08977, .16590,
1698 + .50013, .27474, 1.55576, .12431, .02632,
1699 + .00016, .09102, .16539,
1700 + .50178, .27397, 1.53510, .12423, .02857,
1701 + .00311, .09188, .16477,
1702 + .50321, .27294, 1.50748, .12399, .03086,
1703 + .00689, .09265, .16389,
1704 + .50426, .27171, 1.47617, .12357, .03298,
1705 + .00994, .09323, .16281,
1706 + .50486, .27046, 1.44588, .12305, .03471,
1707 + .01248, .09359, .16170 /
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 + .50514, .26909, 1.41394, .12243, .03627,
1710 + .01481, .09380, .16046,
1711 + .50507, .26783, 1.38591, .12179, .03738,
1712 + .01646, .09384, .15930,
1713 + .50476, .26624, 1.35172, .12095, .03861,
1714 + .01838, .09379, .15784,
1715 + .50430, .26477, 1.32131, .12015, .03960,
1716 + .01996, .09366, .15649,
1717 + .50363, .26334, 1.29283, .11933, .04038,
1718 + .02123, .09343, .15516,
1719 + .50258, .26146, 1.25676, .11824, .04125,
1720 + .02272, .09306, .15342,
1721 + .50140, .25964, 1.22312, .11716, .04196,
1722 + .02401, .09263, .15174,
1723 + .50009, .25787, 1.19168, .11607, .04252,
1724 + .02507, .09216, .15010 /
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 + .49860, .25603, 1.16044, .11494, .04299,
1727 + .02602, .09161, .14842,
1728 + .49705, .25421, 1.13054, .11382, .04340,
1729 + .02689, .09104, .14675,
1730 + .49537, .25243, 1.10228, .11270, .04368,
1731 + .02759, .09042, .14513,
1732 + .49373, .25075, 1.07627, .11165, .04392,
1733 + .02821, .08982, .14359,
1734 + .49194, .24902, 1.05042, .11056, .04410,
1735 + .02876, .08917, .14201,
1736 + .49011, .24730, 1.02549, .10947, .04423,
1737 + .02925, .08851, .14046,
1738 + .48829, .24563, 1.00215, .10841, .04431,
1739 + .02966, .08785, .13896,
1740 + .48651, .24404, .98052, .10740, .04437,
1741 + .03002, .08722, .13755 /
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 + .48462, .24241, .95897, .10636, .04438,
1744 + .03033, .08655, .13610,
1745 + .48274, .24082, .93827, .10534, .04438,
1746 + .03062, .08588, .13468,
1747 + .48081, .23925, .91865, .10435, .04434,
1748 + .03084, .08521, .13330,
1749 + .47901, .23778, .90055, .10342, .04429,
1750 + .03105, .08458, .13201,
1751 + .47708, .23626, .88244, .10245, .04421,
1752 + .03121, .08392, .13068 /
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 + .52767, .30063, 1.25369, .10130, .00000,
1755 + .00000, .06510, .15058,
1756 + .53131, .30036, 1.28369, .10184, .00000,
1757 + .00000, .06672, .15040,
1758 + .53581, .29957, 1.31204, .10241, .00161,
1759 + .00000, .06880, .14995,
1760 + .53843, .29880, 1.32114, .10269, .00486,
1761 + .00000, .07011, .14943,
1762 + .54065, .29775, 1.32434, .10284, .00761,
1763 + .00000, .07128, .14876,
1764 + .54213, .29671, 1.32250, .10286, .00979,
1765 + .00000, .07214, .14806,
1766 + .54327, .29561, 1.31777, .10280, .01181,
1767 + .00000, .07287, .14732,
1768 + .54421, .29434, 1.30992, .10267, .01382,
1769 + .00000, .07355, .14646 /
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 + .54465, .29311, 1.29976, .10246, .01533,
1772 + .00000, .07401, .14561,
1773 + .54493, .29189, 1.28879, .10222, .01676,
1774 + .00000, .07439, .14477,
1775 + .54501, .29086, 1.27890, .10198, .01782,
1776 + .00000, .07463, .14407,
1777 + .54478, .28855, 1.25327, .10138, .01989,
1778 + .00013, .07503, .14246,
1779 + .54416, .28645, 1.22591, .10076, .02148,
1780 + .00229, .07521, .14097,
1781 + .54307, .28398, 1.19273, .09996, .02306,
1782 + .00504, .07527, .13921,
1783 + .54154, .28129, 1.15729, .09902, .02450,
1784 + .00724, .07518, .13729,
1785 + .53983, .27876, 1.12458, .09809, .02565,
1786 + .00904, .07498, .13547 /
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 + .53783, .27613, 1.09132, .09707, .02667,
1789 + .01068, .07468, .13358,
1790 + .53588, .27385, 1.06318, .09615, .02738,
1791 + .01183, .07434, .13196,
1792 + .53333, .27108, 1.02955, .09501, .02814,
1793 + .01314, .07385, .12997,
1794 + .53092, .26860, 1.00025, .09398, .02874,
1795 + .01422, .07336, .12820,
1796 + .52850, .26626, .97341, .09298, .02919,
1797 + .01507, .07286, .12653,
1798 + .52526, .26327, .93999, .09168, .02968,
1799 + .01606, .07218, .12439,
1800 + .52207, .26043, .90932, .09044, .03006,
1801 + .01689, .07148, .12238,
1802 + .51892, .25773, .88112, .08924, .03035,
1803 + .01758, .07077, .12049 /
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 + .51561, .25501, .85350, .08802, .03056,
1806 + .01817, .07003, .11858,
1807 + .51232, .25237, .82732, .08684, .03073,
1808 + .01871, .06929, .11672,
1809 + .50901, .24983, .80293, .08569, .03083,
1810 + .01914, .06854, .11494,
1811 + .50588, .24744, .78065, .08461, .03090,
1812 + .01951, .06784, .11328,
1813 + .50263, .24502, .75873, .08350, .03093,
1814 + .01983, .06711, .11162,
1815 + .49938, .24263, .73779, .08242, .03093,
1816 + .02011, .06637, .10999,
1817 + .49623, .24036, .71837, .08138, .03090,
1818 + .02033, .06566, .10844,
1819 + .49322, .23822, .70047, .08041, .03085,
1820 + .02053, .06499, .10699 /
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 + .49010, .23604, .68277, .07942, .03078,
1823 + .02069, .06429, .10553,
1824 + .48704, .23392, .66584, .07845, .03070,
1825 + .02083, .06360, .10410,
1826 + .48401, .23186, .64994, .07751, .03059,
1827 + .02093, .06293, .10273,
1828 + .48118, .22994, .63531, .07664, .03049,
1829 + .02102, .06231, .10146,
1830 + .47823, .22798, .62078, .07574, .03037,
1831 + .02109, .06166, .10016 /
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 + .59557, .32448, 1.10039, .08438, .00000,
1834 + .00000, .05633, .13438,
1835 + .59636, .32243, 1.11090, .08432, .00000,
1836 + .00000, .05716, .13314,
1837 + .59670, .31911, 1.11422, .08409, .00123,
1838 + .00000, .05816, .13120,
1839 + .59636, .31655, 1.10798, .08381, .00368,
1840 + .00000, .05872, .12969,
1841 + .59545, .31372, 1.09712, .08341, .00572,
1842 + .00000, .05916, .12805,
1843 + .59430, .31118, 1.08477, .08299, .00731,
1844 + .00000, .05942, .12657,
1845 + .59295, .30868, 1.07111, .08254, .00878,
1846 + .00000, .05960, .12513,
1847 + .59128, .30597, 1.05494, .08202, .01022,
1848 + .00000, .05972, .12358 /
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 + .58949, .30353, 1.03883, .08149, .01128,
1851 + .00000, .05972, .12219,
1852 + .58765, .30117, 1.02276, .08096, .01229,
1853 + .00000, .05970, .12083,
1854 + .58605, .29927, 1.00940, .08052, .01301,
1855 + .00000, .05964, .11973,
1856 + .58233, .29516, .97817, .07951, .01443,
1857 + .00010, .05942, .11739,
1858 + .57879, .29154, .94808, .07857, .01548,
1859 + .00161, .05913, .11535,
1860 + .57453, .28745, .91341, .07746, .01652,
1861 + .00354, .05871, .11302,
1862 + .56977, .28316, .87765, .07626, .01744,
1863 + .00505, .05819, .11059,
1864 + .56522, .27923, .84564, .07512, .01815,
1865 + .00627, .05763, .10839 /
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 + .56041, .27529, .81389, .07396, .01877,
1868 + .00737, .05702, .10616,
1869 + .55617, .27197, .78774, .07294, .01918,
1870 + .00812, .05645, .10429,
1871 + .55097, .26794, .75696, .07170, .01961,
1872 + .00898, .05573, .10207,
1873 + .54629, .26440, .73056, .07058, .01993,
1874 + .00967, .05507, .10011,
1875 + .54181, .26114, .70680, .06955, .02016,
1876 + .01021, .05442, .09832,
1877 + .53603, .25704, .67765, .06824, .02040,
1878 + .01082, .05358, .09605,
1879 + .53054, .25321, .65129, .06701, .02056,
1880 + .01133, .05277, .09396,
1881 + .52529, .24962, .62736, .06585, .02066,
1882 + .01174, .05199, .09202 /
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 + .51995, .24604, .60421, .06468, .02072,
1885 + .01209, .05119, .09010,
1886 + .51473, .24258, .58249, .06354, .02075,
1887 + .01240, .05042, .08827,
1888 + .50966, .23930, .56252, .06247, .02074,
1889 + .01263, .04966, .08653,
1890 + .50491, .23625, .54442, .06147, .02072,
1891 + .01283, .04895, .08492,
1892 + .50008, .23319, .52677, .06046, .02066,
1893 + .01300, .04823, .08332,
1894 + .49532, .23020, .51001, .05947, .02059,
1895 + .01314, .04752, .08178,
1896 + .49076, .22738, .49458, .05854, .02051,
1897 + .01325, .04684, .08033,
1898 + .48645, .22474, .48046, .05767, .02042,
1899 + .01334, .04620, .07897 /
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 + .48207, .22207, .46661, .05679, .02031,
1902 + .01341, .04556, .07761,
1903 + .47779, .21948, .45343, .05594, .02020,
1904 + .01346, .04494, .07630,
1905 + .47362, .21699, .44115, .05513, .02007,
1906 + .01349, .04433, .07506,
1907 + .46973, .21467, .42990, .05437, .01996,
1908 + .01352, .04376, .07390,
1909 + .46573, .21233, .41880, .05360, .01983,
1910 + .01353, .04318, .07273 /
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 + .64782, .33788, .96472, .07026, .00000,
1913 + .00000, .04813, .11711,
1914 + .64553, .33409, .96295, .06986, .00000,
1915 + .00000, .04846, .11525,
1916 + .64133, .32843, .95104, .06918, .00095,
1917 + .00000, .04877, .11248,
1918 + .63780, .32424, .93589, .06861, .00283,
1919 + .00000, .04887, .11042,
1920 + .63366, .31973, .91719, .06791, .00437,
1921 + .00000, .04888, .10827,
1922 + .62977, .31582, .89922, .06727, .00556,
1923 + .00000, .04879, .10640,
1924 + .62586, .31207, .88099, .06663, .00664,
1925 + .00000, .04866, .10461,
1926 + .62155, .30808, .86080, .06590, .00769,
1927 + .00000, .04846, .10274 /
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 + .61750, .30459, .84207, .06525, .00846,
1930 + .00000, .04824, .10109,
1931 + .61354, .30124, .82390, .06460, .00918,
1932 + .00000, .04800, .09951,
1933 + .61032, .29857, .80924, .06407, .00969,
1934 + .00000, .04777, .09826,
1935 + .60322, .29290, .77653, .06291, .01067,
1936 + .00008, .04723, .09564,
1937 + .59686, .28802, .74655, .06186, .01139,
1938 + .00116, .04670, .09339,
1939 + .58953, .28262, .71297, .06067, .01208,
1940 + .00254, .04606, .09090,
1941 + .58172, .27704, .67913, .05942, .01268,
1942 + .00361, .04534, .08834,
1943 + .57453, .27201, .64940, .05826, .01313,
1944 + .00446, .04465, .08605 /
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 + .56719, .26698, .62041, .05706, .01351,
1947 + .00521, .04393, .08379,
1948 + .56091, .26282, .59695, .05606, .01375,
1949 + .00572, .04329, .08193,
1950 + .55330, .25786, .56967, .05486, .01399,
1951 + .00629, .04250, .07972,
1952 + .54656, .25353, .54655, .05381, .01416,
1953 + .00675, .04179, .07781,
1954 + .54029, .24958, .52601, .05284, .01426,
1955 + .00710, .04112, .07608,
1956 + .53233, .24464, .50107, .05160, .01436,
1957 + .00749, .04028, .07393,
1958 + .52486, .24008, .47874, .05046, .01441,
1959 + .00781, .03948, .07195,
1960 + .51784, .23584, .45870, .04941, .01443,
1961 + .00806, .03873, .07014 /
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 + .51080, .23164, .43951, .04835, .01441,
1964 + .00827, .03797, .06838,
1965 + .50400, .22762, .42164, .04733, .01438,
1966 + .00845, .03723, .06670,
1967 + .49746, .22385, .40536, .04638, .01432,
1968 + .00858, .03653, .06512,
1969 + .49138, .22036, .39070, .04550, .01426,
1970 + .00869, .03588, .06367,
1971 + .48527, .21687, .37650, .04462, .01417,
1972 + .00878, .03523, .06224,
1973 + .47930, .21349, .36312, .04376, .01408,
1974 + .00885, .03459, .06087,
1975 + .47362, .21032, .35087, .04296, .01398,
1976 + .00890, .03399, .05958,
1977 + .46829, .20736, .33973, .04222, .01388,
1978 + .00893, .03343, .05839 /
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 + .46290, .20440, .32887, .04147, .01377,
1981 + .00895, .03287, .05721,
1982 + .45767, .20154, .31857, .04075, .01367,
1983 + .00897, .03232, .05606,
1984 + .45266, .19879, .30905, .04005, .01355,
1985 + .00897, .03180, .05500,
1986 + .44799, .19623, .30035, .03941, .01344,
1987 + .00897, .03131, .05401,
1988 + .44320, .19367, .29180, .03877, .01332,
1989 + .00895, .03082, .05301 /
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 + .68550, .34270, .84752, .05862, .00000,
1992 + .00000, .04061, .09980,
1993 + .67993, .33745, .83763, .05806, .00000,
1994 + .00000, .04063, .09761,
1995 + .67121, .32963, .81604, .05714, .00074,
1996 + .00000, .04050, .09446,
1997 + .66448, .32402, .79557, .05642, .00219,
1998 + .00000, .04033, .09218,
1999 + .65713, .31808, .77242, .05559, .00337,
2000 + .00000, .04007, .08982,
2001 + .65056, .31303, .75147, .05487, .00427,
2002 + .00000, .03978, .08781,
2003 + .64416, .30823, .73101, .05416, .00508,
2004 + .00000, .03947, .08591,
2005 + .63728, .30319, .70906, .05337, .00586,
2006 + .00000, .03911, .08393 /
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 + .63113, .29881, .68941, .05266, .00642,
2009 + .00000, .03875, .08223,
2010 + .62518, .29464, .67068, .05198, .00693,
2011 + .00000, .03838, .08062,
2012 + .62041, .29137, .65584, .05143, .00730,
2013 + .00000, .03808, .07937,
2014 + .61014, .28447, .62362, .05023, .00799,
2015 + .00006, .03740, .07673,
2016 + .60120, .27861, .59505, .04918, .00849,
2017 + .00085, .03678, .07451,
2018 + .59113, .27216, .56369, .04801, .00896,
2019 + .00185, .03606, .07208,
2020 + .58061, .26558, .53260, .04680, .00935,
2021 + .00262, .03528, .06962,
2022 + .57107, .25972, .50572, .04569, .00964,
2023 + .00322, .03455, .06746 /
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 + .56149, .25391, .47981, .04456, .00986,
2026 + .00374, .03380, .06535,
2027 + .55345, .24915, .45916, .04364, .01000,
2028 + .00409, .03317, .06363,
2029 + .54381, .24349, .43537, .04252, .01013,
2030 + .00449, .03240, .06160,
2031 + .53537, .23860, .41538, .04156, .01021,
2032 + .00479, .03174, .05985,
2033 + .52759, .23419, .39783, .04068, .01025,
2034 + .00502, .03111, .05828,
2035 + .51783, .22869, .37670, .03958, .01028,
2036 + .00528, .03032, .05635,
2037 + .50877, .22363, .35796, .03856, .01027,
2038 + .00548, .02959, .05460,
2039 + .50033, .21897, .34131, .03762, .01024,
2040 + .00564, .02891, .05301 /
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 + .49193, .21439, .32549, .03669, .01020,
2043 + .00577, .02823, .05146,
2044 + .48386, .21003, .31084, .03580, .01014,
2045 + .00587, .02758, .04999,
2046 + .47623, .20595, .29760, .03497, .01007,
2047 + .00595, .02697, .04864,
2048 + .46915, .20219, .28575, .03420, .00999,
2049 + .00600, .02640, .04740,
2050 + .46208, .19847, .27437, .03344, .00990,
2051 + .00605, .02584, .04617,
2052 + .45520, .19488, .26368, .03271, .00981,
2053 + .00608, .02530, .04500,
2054 + .44871, .19152, .25396, .03204, .00972,
2055 + .00610, .02478, .04392,
2056 + .44265, .18839, .24515, .03140, .00962,
2057 + .00611, .02431, .04292 /
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 + .43657, .18526, .23662, .03076, .00952,
2060 + .00611, .02383, .04194,
2061 + .43067, .18225, .22855, .03015, .00943,
2062 + .00610, .02337, .04099,
2063 + .42500, .17940, .22113, .02960, .00932,
2064 + .00609, .02294, .04009,
2065 + .41974, .17676, .21437, .02908, .00923,
2066 + .00607, .02254, .03926,
2067 + .41442, .17410, .20778, .02855, .00913,
2068 + .00605, .02214, .03844 /
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 + .70974, .34054, .74646, .04907, .00000,
2071 + .00000, .03385, .08321,
2072 + .70105, .33394, .73094, .04839, .00000,
2073 + .00000, .03369, .08098,
2074 + .68789, .32437, .70298, .04735, .00058,
2075 + .00000, .03332, .07777,
2076 + .67812, .31755, .67931, .04658, .00171,
2077 + .00000, .03300, .07546,
2078 + .66771, .31046, .65372, .04570, .00262,
2079 + .00000, .03259, .07314,
2080 + .65865, .30445, .63133, .04494, .00330,
2081 + .00000, .03220, .07117,
2082 + .64996, .29880, .60998, .04419, .00391,
2083 + .00000, .03181, .06933,
2084 + .64075, .29292, .58756, .04339, .00448,
2085 + .00000, .03137, .06743 /
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 + .63267, .28783, .56795, .04267, .00489,
2088 + .00000, .03096, .06582,
2089 + .62492, .28303, .54948, .04199, .00527,
2090 + .00000, .03056, .06430,
2091 + .61879, .27927, .53503, .04144, .00553,
2092 + .00000, .03024, .06311,
2093 + .60573, .27144, .50429, .04029, .00602,
2094 + .00005, .02953, .06065,
2095 + .59451, .26483, .47771, .03930, .00636,
2096 + .00063, .02889, .05859,
2097 + .58207, .25762, .44904, .03818, .00668,
2098 + .00136, .02817, .05639,
2099 + .56925, .25032, .42098, .03702, .00693,
2100 + .00191, .02740, .05418,
2101 + .55776, .24388, .39701, .03600, .00711,
2102 + .00234, .02671, .05223 /
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 + .54635, .23751, .37424, .03496, .00725,
2105 + .00271, .02601, .05036,
2106 + .53686, .23235, .35623, .03412, .00732,
2107 + .00296, .02543, .04884,
2108 + .52554, .22627, .33570, .03313, .00738,
2109 + .00323, .02473, .04705,
2110 + .51571, .22104, .31863, .03228, .00741,
2111 + .00343, .02411, .04553,
2112 + .50677, .21632, .30375, .03149, .00742,
2113 + .00359, .02356, .04419,
2114 + .49561, .21048, .28599, .03051, .00741,
2115 + .00375, .02286, .04254,
2116 + .48532, .20515, .27036, .02961, .00738,
2117 + .00389, .02222, .04105,
2118 + .47578, .20027, .25658, .02880, .00733,
2119 + .00398, .02163, .03970 /
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 + .46638, .19551, .24360, .02801, .00727,
2122 + .00406, .02104, .03839,
2123 + .45739, .19099, .23165, .02725, .00720,
2124 + .00412, .02049, .03716,
2125 + .44895, .18675, .22096, .02653, .00713,
2126 + .00416, .01998, .03603,
2127 + .44116, .18287, .21141, .02588, .00706,
2128 + .00419, .01950, .03500,
2129 + .43341, .17905, .20227, .02524, .00698,
2130 + .00421, .01902, .03401,
2131 + .42590, .17538, .19374, .02463, .00689,
2132 + .00422, .01856, .03305,
2133 + .41885, .17196, .18602, .02406, .00681,
2134 + .00422, .01814, .03215,
2135 + .41229, .16879, .17906, .02353, .00673,
2136 + .00421, .01775, .03133 /
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 + .40573, .16565, .17236, .02300, .00664,
2139 + .00421, .01735, .03054,
2140 + .39939, .16263, .16605, .02249, .00656,
2141 + .00420, .01698, .02978,
2142 + .39335, .15976, .16028, .02203, .00647,
2143 + .00418, .01662, .02906,
2144 + .38774, .15710, .15503, .02160, .00640,
2145 + .00416, .01629, .02839,
2146 + .38211, .15445, .14992, .02117, .00631,
2147 + .00414, .01597, .02773 /
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 + .72171, .33271, .65855, .04114, .00000,
2150 + .00000, .02792, .06796,
2151 + .71007, .32503, .63910, .04043, .00000,
2152 + .00000, .02763, .06583,
2153 + .69282, .31401, .60697, .03933, .00045,
2154 + .00000, .02716, .06277,
2155 + .68031, .30620, .58148, .03850, .00133,
2156 + .00000, .02674, .06066,
2157 + .66712, .29821, .55472, .03762, .00203,
2158 + .00000, .02628, .05848,
2159 + .65582, .29147, .53187, .03685, .00255,
2160 + .00000, .02588, .05667,
2161 + .64510, .28516, .51044, .03611, .00300,
2162 + .00000, .02546, .05498,
2163 + .63386, .27862, .48829, .03534, .00343,
2164 + .00000, .02499, .05326 /
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 + .62408, .27305, .46929, .03463, .00373,
2167 + .00000, .02459, .05181,
2168 + .61477, .26780, .45161, .03397, .00400,
2169 + .00000, .02419, .05045,
2170 + .60744, .26371, .43795, .03346, .00419,
2171 + .00000, .02386, .04939,
2172 + .59201, .25520, .40928, .03236, .00454,
2173 + .00004, .02318, .04721,
2174 + .57890, .24810, .38495, .03144, .00478,
2175 + .00047, .02257, .04540,
2176 + .56452, .24037, .35908, .03041, .00499,
2177 + .00100, .02190, .04348,
2178 + .54984, .23260, .33410, .02934, .00515,
2179 + .00140, .02120, .04157,
2180 + .53676, .22581, .31304, .02842, .00526,
2181 + .00171, .02058, .03989 /
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 + .52385, .21918, .29317, .02750, .00533,
2184 + .00197, .01994, .03828,
2185 + .51323, .21379, .27767, .02675, .00537,
2186 + .00214, .01943, .03699,
2187 + .50066, .20748, .26012, .02588, .00539,
2188 + .00233, .01882, .03548,
2189 + .48981, .20208, .24565, .02513, .00540,
2190 + .00247, .01829, .03420,
2191 + .48000, .19722, .23313, .02443, .00538,
2192 + .00257, .01780, .03309,
2193 + .46781, .19124, .21829, .02358, .00535,
2194 + .00268, .01720, .03173,
2195 + .45663, .18581, .20535, .02281, .00531,
2196 + .00277, .01666, .03050,
2197 + .44636, .18087, .19404, .02211, .00526,
2198 + .00283, .01617, .02939 /
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 + .43630, .17605, .18344, .02142, .00520,
2201 + .00287, .01567, .02833,
2202 + .42671, .17150, .17373, .02077, .00514,
2203 + .00290, .01519, .02734,
2204 + .41772, .16729, .16510, .02017, .00507,
2205 + .00292, .01477, .02642,
2206 + .40946, .16343, .15744, .01963, .00500,
2207 + .00294, .01438, .02559,
2208 + .40130, .15965, .15016, .01910, .00493,
2209 + .00294, .01399, .02478,
2210 + .39342, .15602, .14339, .01859, .00486,
2211 + .00294, .01362, .02402,
2212 + .38605, .15264, .13728, .01812, .00479,
2213 + .00294, .01327, .02331,
2214 + .37922, .14952, .13179, .01768, .00472,
2215 + .00293, .01295, .02267 /
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 + .37241, .14643, .12654, .01725, .00465,
2218 + .00292, .01264, .02202,
2219 + .36586, .14346, .12160, .01684, .00459,
2220 + .00290, .01234, .02141,
2221 + .35963, .14066, .11710, .01645, .00452,
2222 + .00288, .01206, .02085,
2223 + .35387, .13808, .11302, .01609, .00445,
2224 + .00287, .01179, .02034,
2225 + .34810, .13550, .10906, .01573, .00439,
2226 + .00284, .01153, .01983 /
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 + .72269, .32034, .58106, .03451, .00000,
2229 + .00000, .02278, .05442,
2230 + .70837, .31181, .55891, .03376, .00000,
2231 + .00000, .02244, .05247,
2232 + .68741, .29975, .52427, .03270, .00035,
2233 + .00000, .02189, .04970,
2234 + .67243, .29125, .49796, .03187, .00103,
2235 + .00000, .02147, .04781,
2236 + .65684, .28259, .47099, .03101, .00157,
2237 + .00000, .02098, .04590,
2238 + .64360, .27535, .44839, .03027, .00196,
2239 + .00000, .02055, .04430,
2240 + .63113, .26860, .42750, .02956, .00230,
2241 + .00000, .02014, .04283,
2242 + .61816, .26164, .40623, .02881, .00262,
2243 + .00000, .01971, .04134 /
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 + .60694, .25574, .38823, .02817, .00284,
2246 + .00000, .01932, .04006,
2247 + .59635, .25020, .37160, .02756, .00304,
2248 + .00000, .01894, .03888,
2249 + .58808, .24590, .35885, .02707, .00317,
2250 + .00000, .01864, .03799,
2251 + .57075, .23699, .33255, .02606, .00342,
2252 + .00003, .01800, .03613,
2253 + .55614, .22960, .31063, .02521, .00358,
2254 + .00034, .01745, .03460,
2255 + .54020, .22164, .28761, .02428, .00372,
2256 + .00074, .01686, .03296,
2257 + .52405, .21367, .26563, .02334, .00383,
2258 + .00103, .01625, .03135,
2259 + .50981, .20670, .24732, .02252, .00389,
2260 + .00125, .01570, .02997 /
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 + .49584, .19996, .23022, .02169, .00393,
2263 + .00144, .01517, .02863,
2264 + .48444, .19450, .21695, .02103, .00394,
2265 + .00155, .01471, .02759,
2266 + .47100, .18813, .20207, .02025, .00394,
2267 + .00168, .01419, .02638,
2268 + .45944, .18270, .18991, .01960, .00393,
2269 + .00178, .01374, .02534,
2270 + .44904, .17788, .17946, .01900, .00391,
2271 + .00185, .01333, .02443,
2272 + .43619, .17194, .16718, .01829, .00387,
2273 + .00192, .01284, .02331,
2274 + .42447, .16655, .15654, .01764, .00383,
2275 + .00197, .01240, .02232,
2276 + .41376, .16166, .14730, .01704, .00378,
2277 + .00201, .01197, .02146 /
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 + .40331, .15694, .13868, .01647, .00373,
2280 + .00203, .01157, .02061,
2281 + .39338, .15248, .13083, .01593, .00367,
2282 + .00205, .01120, .01981,
2283 + .38416, .14836, .12390, .01541, .00361,
2284 + .00206, .01085, .01910,
2285 + .37569, .14461, .11778, .01495, .00356,
2286 + .00207, .01054, .01846,
2287 + .36732, .14093, .11199, .01452, .00350,
2288 + .00206, .01023, .01782,
2289 + .35931, .13741, .10663, .01409, .00344,
2290 + .00206, .00993, .01722,
2291 + .35187, .13415, .10181, .01369, .00338,
2292 + .00205, .00965, .01668,
2293 + .34496, .13116, .09750, .01332, .00333,
2294 + .00204, .00939, .01618 /
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 + .33807, .12820, .09339, .01299, .00327,
2297 + .00203, .00915, .01569,
2298 + .33144, .12537, .08954, .01266, .00321,
2299 + .00202, .00891, .01522,
2300 + .32523, .12270, .08605, .01233, .00316,
2301 + .00200, .00869, .01480,
2302 + .31949, .12024, .08289, .01204, .00311,
2303 + .00198, .00848, .01441,
2304 + .31373, .11779, .07985, .01175, .00306,
2305 + .00197, .00828, .01402 /
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 + .71351, .30482, .51188, .02919, .00000,
2308 + .00000, .01817, .04252,
2309 + .69689, .29569, .48799, .02842, .00000,
2310 + .00000, .01783, .04086,
2311 + .67287, .28280, .45208, .02729, .00028,
2312 + .00000, .01731, .03852,
2313 + .65584, .27383, .42575, .02650, .00080,
2314 + .00000, .01692, .03687,
2315 + .63829, .26471, .39924, .02565, .00121,
2316 + .00000, .01647, .03527,
2317 + .62348, .25715, .37740, .02493, .00151,
2318 + .00000, .01608, .03392,
2319 + .60961, .25012, .35747, .02426, .00176,
2320 + .00000, .01571, .03269,
2321 + .59528, .24290, .33738, .02355, .00200,
2322 + .00000, .01532, .03144 /
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 + .58299, .23682, .32064, .02293, .00216,
2325 + .00000, .01496, .03041,
2326 + .57139, .23113, .30529, .02236, .00230,
2327 + .00000, .01463, .02943,
2328 + .56235, .22675, .29363, .02194, .00240,
2329 + .00000, .01437, .02867,
2330 + .54356, .21769, .26986, .02102, .00257,
2331 + .00003, .01382, .02713,
2332 + .52788, .21017, .25036, .02024, .00268,
2333 + .00026, .01335, .02589,
2334 + .51085, .20214, .23015, .01939, .00277,
2335 + .00055, .01284, .02456,
2336 + .49370, .19416, .21103, .01855, .00283,
2337 + .00076, .01232, .02326,
2338 + .47867, .18721, .19520, .01782, .00287,
2339 + .00092, .01186, .02215 /
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 + .46397, .18053, .18061, .01712, .00289,
2342 + .00105, .01140, .02108,
2343 + .45209, .17512, .16943, .01654, .00289,
2344 + .00113, .01103, .02025,
2345 + .43814, .16883, .15695, .01587, .00288,
2346 + .00122, .01060, .01928,
2347 + .42620, .16351, .14680, .01530, .00286,
2348 + .00128, .01023, .01846,
2349 + .41548, .15878, .13816, .01480, .00283,
2350 + .00133, .00990, .01775,
2351 + .40232, .15300, .12806, .01418, .00280,
2352 + .00138, .00949, .01689,
2353 + .39037, .14779, .11938, .01362, .00276,
2354 + .00141, .00913, .01611,
2355 + .37947, .14308, .11186, .01312, .00271,
2356 + .00143, .00879, .01545 /
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 + .36890, .13854, .10493, .01262, .00266,
2359 + .00144, .00848, .01479,
2360 + .35892, .13426, .09865, .01216, .00262,
2361 + .00145, .00819, .01417,
2362 + .34962, .13033, .09311, .01175, .00257,
2363 + .00146, .00790, .01362,
2364 + .34114, .12675, .08824, .01138, .00252,
2365 + .00146, .00765, .01312,
2366 + .33283, .12325, .08366, .01102, .00248,
2367 + .00145, .00740, .01264,
2368 + .32486, .11993, .07944, .01067, .00243,
2369 + .00144, .00717, .01218,
2370 + .31744, .11685, .07567, .01036, .00238,
2371 + .00144, .00696, .01176,
2372 + .31060, .11403, .07231, .01007, .00234,
2373 + .00143, .00677, .01139 /
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 + .30383, .11124, .06911, .00978, .00229,
2376 + .00141, .00657, .01102,
2377 + .29734, .10857, .06612, .00950, .00225,
2378 + .00140, .00638, .01068,
2379 + .29124, .10608, .06342, .00925, .00221,
2380 + .00139, .00621, .01034,
2381 + .28560, .10378, .06098, .00902, .00217,
2382 + .00138, .00606, .01004,
2383 + .28000, .10149, .05863, .00877, .00213,
2384 + .00136, .00590, .00976 /
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 + .69630, .28619, .44884, .02421, .00000,
2387 + .00000, .01452, .03280,
2388 + .67767, .27674, .42412, .02349, .00000,
2389 + .00000, .01420, .03138,
2390 + .65101, .26346, .38805, .02245, .00021,
2391 + .00000, .01368, .02942,
2392 + .63230, .25423, .36235, .02168, .00061,
2393 + .00000, .01330, .02807,
2394 + .61313, .24493, .33686, .02091, .00092,
2395 + .00000, .01290, .02671,
2396 + .59710, .23720, .31622, .02024, .00114,
2397 + .00000, .01255, .02562,
2398 + .58216, .23009, .29759, .01961, .00133,
2399 + .00000, .01222, .02462,
2400 + .56673, .22285, .27899, .01899, .00150,
2401 + .00000, .01186, .02358 /
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 + .55359, .21675, .26366, .01846, .00162,
2404 + .00000, .01156, .02271,
2405 + .54127, .21106, .24975, .01796, .00172,
2406 + .00000, .01127, .02191,
2407 + .53171, .20667, .23928, .01756, .00179,
2408 + .00000, .01103, .02132,
2409 + .51191, .19766, .21812, .01674, .00191,
2410 + .00002, .01055, .02009,
2411 + .49550, .19020, .20100, .01604, .00198,
2412 + .00019, .01014, .01912,
2413 + .47778, .18227, .18345, .01531, .00204,
2414 + .00040, .00971, .01808,
2415 + .46000, .17446, .16702, .01460, .00208,
2416 + .00055, .00929, .01702,
2417 + .44453, .16769, .15355, .01396, .00210,
2418 + .00066, .00891, .01614 /
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 + .42950, .16117, .14127, .01336, .00210,
2421 + .00075, .00854, .01531,
2422 + .41738, .15595, .13190, .01285, .00209,
2423 + .00081, .00822, .01468,
2424 + .40322, .14990, .12152, .01228, .00208,
2425 + .00087, .00787, .01393,
2426 + .39114, .14477, .11313, .01181, .00206,
2427 + .00092, .00757, .01330,
2428 + .38033, .14027, .10606, .01141, .00204,
2429 + .00095, .00731, .01273,
2430 + .36714, .13474, .09785, .01089, .00200,
2431 + .00098, .00699, .01207,
2432 + .35521, .12976, .09082, .01042, .00197,
2433 + .00100, .00669, .01150,
2434 + .34439, .12533, .08479, .01002, .00193,
2435 + .00101, .00642, .01097 /
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 + .33392, .12103, .07924, .00962, .00189,
2438 + .00102, .00617, .01047,
2439 + .32404, .11700, .07423, .00925, .00185,
2440 + .00102, .00594, .01001,
2441 + .31493, .11331, .06984, .00890, .00182,
2442 + .00102, .00572, .00961,
2443 + .30662, .10996, .06600, .00859, .00178,
2444 + .00102, .00553, .00924,
2445 + .29849, .10670, .06241, .00829, .00174,
2446 + .00101, .00534, .00888,
2447 + .29072, .10360, .05912, .00801, .00170,
2448 + .00100, .00516, .00853,
2449 + .28353, .10074, .05619, .00776, .00167,
2450 + .00100, .00499, .00821,
2451 + .27691, .09811, .05358, .00752, .00164,
2452 + .00099, .00484, .00793 /
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 + .27037, .09554, .05110, .00728, .00160,
2455 + .00098, .00469, .00767,
2456 + .26411, .09308, .04879, .00705, .00157,
2457 + .00097, .00454, .00742,
2458 + .25823, .09079, .04671, .00685, .00154,
2459 + .00096, .00442, .00717,
2460 + .25281, .08868, .04483, .00667, .00151,
2461 + .00095, .00430, .00695,
2462 + .24742, .08659, .04303, .00649, .00148,
2463 + .00094, .00418, .00674 /
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 + .67155, .26597, .39131, .02007, .00000,
2466 + .00000, .01140, .02473,
2467 + .65139, .25634, .36647, .01938, .00000,
2468 + .00000, .01109, .02360,
2469 + .62277, .24288, .33120, .01838, .00016,
2470 + .00000, .01064, .02201,
2471 + .60281, .23359, .30662, .01768, .00046,
2472 + .00000, .01031, .02092,
2473 + .58245, .22431, .28266, .01697, .00070,
2474 + .00000, .00994, .01984,
2475 + .56552, .21664, .26347, .01638, .00086,
2476 + .00000, .00964, .01896,
2477 + .54983, .20957, .24634, .01582, .00100,
2478 + .00000, .00936, .01815,
2479 + .53372, .20238, .22945, .01525, .00112,
2480 + .00000, .00906, .01734 /
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 + .52007, .19637, .21566, .01476, .00121,
2483 + .00000, .00880, .01667,
2484 + .50732, .19077, .20323, .01430, .00128,
2485 + .00000, .00855, .01606,
2486 + .49747, .18645, .19394, .01395, .00132,
2487 + .00000, .00835, .01559,
2488 + .47709, .17766, .17536, .01325, .00140,
2489 + .00002, .00797, .01462,
2490 + .46024, .17047, .16054, .01267, .00145,
2491 + .00014, .00763, .01384,
2492 + .44219, .16280, .14548, .01203, .00149,
2493 + .00029, .00726, .01305,
2494 + .42425, .15524, .13154, .01140, .00151,
2495 + .00040, .00690, .01228,
2496 + .40867, .14874, .12025, .01087, .00152,
2497 + .00048, .00659, .01160 /
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 + .39361, .14253, .10998, .01035, .00152,
2500 + .00054, .00629, .01094,
2501 + .38150, .13756, .10223, .00994, .00151,
2502 + .00058, .00605, .01045,
2503 + .36739, .13182, .09370, .00947, .00149,
2504 + .00062, .00578, .00988,
2505 + .35540, .12699, .08687, .00907, .00147,
2506 + .00065, .00555, .00941,
2507 + .34478, .12273, .08113, .00871, .00145,
2508 + .00067, .00533, .00900,
2509 + .33181, .11755, .07451, .00829, .00142,
2510 + .00069, .00507, .00851,
2511 + .32012, .11292, .06887, .00793, .00140,
2512 + .00070, .00485, .00806,
2513 + .30957, .10877, .06405, .00759, .00137,
2514 + .00071, .00465, .00765 /
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 + .29939, .10477, .05965, .00726, .00134,
2517 + .00071, .00445, .00729,
2518 + .28982, .10103, .05569, .00695, .00130,
2519 + .00071, .00427, .00696,
2520 + .28101, .09762, .05226, .00668, .00128,
2521 + .00071, .00410, .00666,
2522 + .27299, .09454, .04925, .00644, .00125,
2523 + .00071, .00395, .00639,
2524 + .26516, .09154, .04646, .00622, .00122,
2525 + .00070, .00380, .00611,
2526 + .25771, .08871, .04390, .00600, .00119,
2527 + .00070, .00367, .00586,
2528 + .25085, .08609, .04162, .00578, .00116,
2529 + .00069, .00355, .00564,
2530 + .24455, .08370, .03961, .00558, .00114,
2531 + .00068, .00343, .00544 /
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 + .23834, .08136, .03772, .00539, .00111,
2534 + .00067, .00332, .00526,
2535 + .23241, .07912, .03595, .00522, .00109,
2536 + .00067, .00321, .00507,
2537 + .22686, .07704, .03436, .00506, .00107,
2538 + .00066, .00311, .00489,
2539 + .22175, .07514, .03292, .00491, .00104,
2540 + .00065, .00302, .00472,
2541 + .21669, .07325, .03155, .00476, .00102,
2542 + .00064, .00294, .00457 /
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 + .64078, .24449, .33837, .01638, .00000,
2545 + .00000, .00887, .01834,
2546 + .61948, .23491, .31410, .01574, .00000,
2547 + .00000, .00860, .01743,
2548 + .58947, .22155, .28044, .01484, .00012,
2549 + .00000, .00820, .01618,
2550 + .56859, .21243, .25744, .01424, .00035,
2551 + .00000, .00791, .01531,
2552 + .54753, .20327, .23534, .01359, .00052,
2553 + .00000, .00762, .01448,
2554 + .53009, .19576, .21787, .01305, .00064,
2555 + .00000, .00735, .01381,
2556 + .51396, .18887, .20241, .01256, .00074,
2557 + .00000, .00709, .01320,
2558 + .49745, .18190, .18729, .01207, .00083,
2559 + .00000, .00683, .01258 /
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 + .48356, .17608, .17509, .01165, .00088,
2562 + .00000, .00662, .01205,
2563 + .47060, .17069, .16416, .01126, .00093,
2564 + .00000, .00642, .01156,
2565 + .46062, .16654, .15603, .01096, .00097,
2566 + .00000, .00626, .01120,
2567 + .44010, .15808, .13998, .01036, .00102,
2568 + .00001, .00593, .01048,
2569 + .42324, .15118, .12732, .00985, .00105,
2570 + .00010, .00567, .00990,
2571 + .40522, .14390, .11459, .00930, .00108,
2572 + .00021, .00539, .00929,
2573 + .38737, .13676, .10292, .00879, .00109,
2574 + .00028, .00510, .00869,
2575 + .37195, .13065, .09355, .00834, .00109,
2576 + .00034, .00485, .00818 /
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 + .35710, .12481, .08508, .00793, .00108,
2579 + .00038, .00460, .00771,
2580 + .34525, .12014, .07875, .00757, .00107,
2581 + .00041, .00442, .00734,
2582 + .33150, .11479, .07184, .00719, .00106,
2583 + .00044, .00421, .00690,
2584 + .31986, .11030, .06634, .00687, .00104,
2585 + .00046, .00403, .00654,
2586 + .30954, .10634, .06171, .00657, .00103,
2587 + .00047, .00386, .00626,
2588 + .29698, .10155, .05641, .00624, .00100,
2589 + .00049, .00365, .00591,
2590 + .28570, .09728, .05195, .00595, .00098,
2591 + .00049, .00348, .00558,
2592 + .27557, .09347, .04817, .00569, .00096,
2593 + .00050, .00333, .00528 /
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 + .26584, .08982, .04470, .00542, .00093,
2596 + .00050, .00318, .00502,
2597 + .25673, .08641, .04160, .00516, .00091,
2598 + .00050, .00303, .00477,
2599 + .24834, .08332, .03894, .00495, .00089,
2600 + .00049, .00291, .00456,
2601 + .24075, .08052, .03662, .00476, .00087,
2602 + .00049, .00280, .00436,
2603 + .23336, .07780, .03445, .00458, .00085,
2604 + .00049, .00269, .00417,
2605 + .22634, .07523, .03248, .00440, .00083,
2606 + .00048, .00259, .00399,
2607 + .21989, .07288, .03074, .00424, .00081,
2608 + .00047, .00250, .00383,
2609 + .21397, .07073, .02920, .00409, .00079,
2610 + .00047, .00241, .00368 /
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 + .20816, .06862, .02774, .00395, .00077,
2613 + .00046, .00233, .00354,
2614 + .20262, .06662, .02638, .00382, .00075,
2615 + .00046, .00225, .00341,
2616 + .19742, .06476, .02518, .00370, .00074,
2617 + .00045, .00217, .00329,
2618 + .19265, .06305, .02409, .00359, .00072,
2619 + .00045, .00210, .00319,
2620 + .18796, .06138, .02306, .00347, .00070,
2621 + .00044, .00203, .00307 /
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 + .60505, .22240, .28975, .01317, .00000,
2624 + .00000, .00684, .01335,
2625 + .58305, .21299, .26662, .01259, .00000,
2626 + .00000, .00660, .01266,
2627 + .55220, .19999, .23518, .01180, .00009,
2628 + .00000, .00625, .01170,
2629 + .53091, .19113, .21415, .01126, .00026,
2630 + .00000, .00601, .01104,
2631 + .50947, .18232, .19410, .01070, .00038,
2632 + .00000, .00574, .01041,
2633 + .49181, .17509, .17844, .01024, .00047,
2634 + .00000, .00552, .00990,
2635 + .47556, .16850, .16475, .00983, .00054,
2636 + .00000, .00531, .00944,
2637 + .45903, .16185, .15150, .00941, .00060,
2638 + .00000, .00510, .00896 /
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 + .44512, .15629, .14087, .00904, .00064,
2641 + .00000, .00493, .00858,
2642 + .43220, .15115, .13142, .00871, .00068,
2643 + .00000, .00477, .00821,
2644 + .42227, .14723, .12443, .00847, .00070,
2645 + .00000, .00466, .00792,
2646 + .40194, .13925, .11075, .00796, .00073,
2647 + .00001, .00440, .00739,
2648 + .38533, .13278, .10012, .00753, .00075,
2649 + .00007, .00417, .00696,
2650 + .36764, .12596, .08952, .00710, .00077,
2651 + .00015, .00394, .00650,
2652 + .35020, .11929, .07988, .00668, .00077,
2653 + .00020, .00372, .00605,
2654 + .33522, .11361, .07219, .00631, .00077,
2655 + .00024, .00354, .00567 /
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 + .32085, .10819, .06532, .00596, .00076,
2658 + .00027, .00335, .00536,
2659 + .30941, .10389, .06021, .00568, .00076,
2660 + .00029, .00319, .00508,
2661 + .29619, .09897, .05466, .00537, .00074,
2662 + .00031, .00302, .00477,
2663 + .28503, .09485, .05027, .00511, .00073,
2664 + .00032, .00288, .00451,
2665 + .27518, .09123, .04661, .00488, .00072,
2666 + .00033, .00275, .00430,
2667 + .26326, .08686, .04244, .00460, .00070,
2668 + .00034, .00261, .00404,
2669 + .25259, .08299, .03892, .00436, .00068,
2670 + .00035, .00248, .00380,
2671 + .24298, .07953, .03596, .00417, .00066,
2672 + .00035, .00236, .00360 /
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 + .23380, .07625, .03328, .00397, .00065,
2675 + .00035, .00225, .00340,
2676 + .22523, .07319, .03089, .00379, .00063,
2677 + .00035, .00215, .00322,
2678 + .21740, .07041, .02883, .00361, .00061,
2679 + .00035, .00205, .00307,
2680 + .21031, .06789, .02704, .00346, .00060,
2681 + .00035, .00196, .00293,
2682 + .20341, .06547, .02540, .00332, .00058,
2683 + .00035, .00188, .00281,
2684 + .19689, .06318, .02389, .00318, .00057,
2685 + .00034, .00181, .00269,
2686 + .19091, .06108, .02257, .00306, .00055,
2687 + .00034, .00174, .00257,
2688 + .18543, .05918, .02140, .00296, .00054,
2689 + .00034, .00168, .00246 /
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 + .18004, .05732, .02029, .00286, .00053,
2692 + .00033, .00162, .00236,
2693 + .17492, .05556, .01927, .00276, .00052,
2694 + .00033, .00156, .00227,
2695 + .17020, .05391, .01837, .00264, .00050,
2696 + .00032, .00150, .00219,
2697 + .16588, .05240, .01755, .00254, .00049,
2698 + .00032, .00145, .00213,
2699 + .16156, .05093, .01677, .00246, .00048,
2700 + .00032, .00140, .00205 /
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 + .56541, .20039, .24544, .01055, .00000,
2703 + .00000, .00513, .00948,
2704 + .54311, .19135, .22402, .01002, .00000,
2705 + .00000, .00494, .00897,
2706 + .51197, .17887, .19520, .00933, .00006,
2707 + .00000, .00465, .00825,
2708 + .49067, .17036, .17626, .00883, .00018,
2709 + .00000, .00444, .00780,
2710 + .46934, .16196, .15849, .00834, .00027,
2711 + .00000, .00424, .00732,
2712 + .45176, .15513, .14475, .00797, .00034,
2713 + .00000, .00407, .00693,
2714 + .43565, .14891, .13281, .00763, .00039,
2715 + .00000, .00391, .00659,
2716 + .41932, .14262, .12132, .00728, .00043,
2717 + .00000, .00374, .00626 /
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 + .40570, .13740, .11225, .00696, .00046,
2720 + .00000, .00359, .00597,
2721 + .39305, .13259, .10423, .00668, .00048,
2722 + .00000, .00346, .00570,
2723 + .38333, .12893, .09833, .00648, .00050,
2724 + .00000, .00337, .00550,
2725 + .36353, .12152, .08688, .00606, .00052,
2726 + .00001, .00317, .00509,
2727 + .34737, .11552, .07805, .00573, .00054,
2728 + .00005, .00300, .00479,
2729 + .33029, .10921, .06932, .00537, .00054,
2730 + .00010, .00284, .00446,
2731 + .31354, .10308, .06146, .00503, .00054,
2732 + .00014, .00267, .00414,
2733 + .29918, .09788, .05525, .00474, .00054,
2734 + .00016, .00252, .00387 /
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 + .28548, .09293, .04974, .00448, .00053,
2737 + .00018, .00238, .00361,
2738 + .27463, .08901, .04567, .00422, .00053,
2739 + .00020, .00226, .00345,
2740 + .26211, .08454, .04127, .00397, .00052,
2741 + .00021, .00213, .00323,
2742 + .25157, .08082, .03781, .00377, .00051,
2743 + .00022, .00202, .00304,
2744 + .24229, .07756, .03494, .00360, .00050,
2745 + .00022, .00193, .00289,
2746 + .23108, .07364, .03170, .00341, .00048,
2747 + .00023, .00182, .00270,
2748 + .22110, .07017, .02898, .00323, .00047,
2749 + .00023, .00172, .00253,
2750 + .21220, .06708, .02669, .00305, .00046,
2751 + .00023, .00164, .00240 /
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 + .20367, .06416, .02464, .00290, .00045,
2754 + .00023, .00156, .00227,
2755 + .19572, .06144, .02281, .00276, .00044,
2756 + .00023, .00149, .00214,
2757 + .18849, .05896, .02123, .00263, .00043,
2758 + .00023, .00141, .00204,
2759 + .18197, .05674, .01988, .00251, .00042,
2760 + .00023, .00134, .00194,
2761 + .17566, .05460, .01862, .00239, .00041,
2762 + .00023, .00128, .00186,
2763 + .16969, .05259, .01749, .00229, .00040,
2764 + .00023, .00123, .00177,
2765 + .16420, .05076, .01649, .00221, .00039,
2766 + .00023, .00118, .00168,
2767 + .15920, .04909, .01561, .00213, .00038,
2768 + .00023, .00114, .00160 /
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 + .15432, .04746, .01479, .00204, .00037,
2771 + .00023, .00110, .00154,
2772 + .14969, .04592, .01402, .00196, .00036,
2773 + .00023, .00106, .00148,
2774 + .14538, .04449, .01334, .00189, .00036,
2775 + .00023, .00102, .00143,
2776 + .14144, .04318, .01273, .00183, .00035,
2777 + .00023, .00098, .00139,
2778 + .13755, .04190, .01215, .00177, .00034,
2779 + .00023, .00095, .00133 /
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 + .52308, .17862, .20533, .00821, .00000,
2782 + .00000, .00381, .00666,
2783 + .50083, .17003, .18580, .00780, .00000,
2784 + .00000, .00365, .00627,
2785 + .47000, .15824, .16007, .00721, .00005,
2786 + .00000, .00343, .00573,
2787 + .44893, .15030, .14337, .00683, .00013,
2788 + .00000, .00324, .00537,
2789 + .42796, .14243, .12791, .00643, .00019,
2790 + .00000, .00306, .00505,
2791 + .41079, .13606, .11607, .00611, .00024,
2792 + .00000, .00294, .00476,
2793 + .39510, .13027, .10587, .00582, .00027,
2794 + .00000, .00282, .00449,
2795 + .37923, .12444, .09615, .00553, .00030,
2796 + .00000, .00269, .00426 /
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 + .36604, .11961, .08849, .00529, .00032,
2799 + .00000, .00258, .00405,
2800 + .35383, .11517, .08176, .00507, .00034,
2801 + .00000, .00248, .00386,
2802 + .34448, .11179, .07686, .00490, .00035,
2803 + .00000, .00240, .00372,
2804 + .32547, .10500, .06742, .00457, .00037,
2805 + .00001, .00225, .00344,
2806 + .31007, .09952, .06021, .00429, .00038,
2807 + .00003, .00212, .00323,
2808 + .29383, .09378, .05316, .00401, .00039,
2809 + .00007, .00198, .00300,
2810 + .27797, .08821, .04686, .00373, .00039,
2811 + .00009, .00186, .00277,
2812 + .26445, .08349, .04192, .00349, .00039,
2813 + .00011, .00175, .00259 /
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 + .25152, .07904, .03754, .00331, .00039,
2816 + .00012, .00163, .00241,
2817 + .24134, .07554, .03434, .00313, .00038,
2818 + .00013, .00154, .00228,
2819 + .22964, .07155, .03090, .00294, .00037,
2820 + .00014, .00145, .00212,
2821 + .21983, .06822, .02820, .00278, .00037,
2822 + .00014, .00139, .00199,
2823 + .21123, .06533, .02599, .00266, .00036,
2824 + .00014, .00132, .00189,
2825 + .20090, .06184, .02349, .00249, .00035,
2826 + .00015, .00124, .00176,
2827 + .19173, .05876, .02141, .00234, .00034,
2828 + .00014, .00117, .00166,
2829 + .18353, .05604, .01966, .00222, .00034,
2830 + .00015, .00111, .00157 /
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 + .17570, .05347, .01810, .00212, .00033,
2833 + .00015, .00105, .00147,
2834 + .16842, .05109, .01672, .00201, .00032,
2835 + .00015, .00099, .00138,
2836 + .16186, .04892, .01553, .00191, .00032,
2837 + .00014, .00094, .00131,
2838 + .15594, .04698, .01451, .00181, .00031,
2839 + .00014, .00090, .00124,
2840 + .15023, .04512, .01357, .00172, .00030,
2841 + .00015, .00086, .00118,
2842 + .14484, .04338, .01272, .00164, .00030,
2843 + .00015, .00082, .00113,
2844 + .13991, .04178, .01198, .00157, .00029,
2845 + .00015, .00079, .00108,
2846 + .13541, .04033, .01132, .00151, .00029,
2847 + .00014, .00076, .00103 /
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 + .13101, .03892, .01070, .00146, .00028,
2850 + .00015, .00073, .00099,
2851 + .12684, .03759, .01014, .00140, .00028,
2852 + .00015, .00070, .00094,
2853 + .12299, .03636, .00963, .00134, .00027,
2854 + .00015, .00067, .00090,
2855 + .11948, .03524, .00918, .00129, .00027,
2856 + .00015, .00065, .00087,
2857 + .11601, .03414, .00875, .00124, .00027,
2858 + .00015, .00062, .00083 /
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 + .47889, .15751, .16927, .00627, .00000,
2861 + .00000, .00282, .00455,
2862 + .45710, .14944, .15186, .00592, .00000,
2863 + .00000, .00270, .00428,
2864 + .42698, .13846, .12932, .00543, .00003,
2865 + .00000, .00249, .00394,
2866 + .40651, .13109, .11495, .00510, .00009,
2867 + .00000, .00236, .00369,
2868 + .38626, .12382, .10173, .00479, .00013,
2869 + .00000, .00223, .00343,
2870 + .36970, .11794, .09170, .00453, .00016,
2871 + .00000, .00212, .00325,
2872 + .35463, .11263, .08312, .00430, .00019,
2873 + .00000, .00203, .00307,
2874 + .33945, .10730, .07501, .00407, .00021,
2875 + .00000, .00194, .00286 /
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 + .32683, .10291, .06870, .00389, .00022,
2878 + .00000, .00185, .00272,
2879 + .31520, .09887, .06319, .00372, .00023,
2880 + .00000, .00177, .00259,
2881 + .30632, .09581, .05919, .00359, .00024,
2882 + .00000, .00170, .00250,
2883 + .28836, .08963, .05155, .00333, .00025,
2884 + .00000, .00159, .00231,
2885 + .27385, .08469, .04579, .00310, .00025,
2886 + .00002, .00150, .00216,
2887 + .25861, .07953, .04018, .00288, .00026,
2888 + .00005, .00140, .00200,
2889 + .24378, .07455, .03521, .00267, .00026,
2890 + .00006, .00130, .00185,
2891 + .23121, .07035, .03133, .00249, .00026,
2892 + .00007, .00123, .00172 /
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 + .21927, .06638, .02793, .00233, .00026,
2895 + .00008, .00115, .00161,
2896 + .20985, .06329, .02547, .00221, .00026,
2897 + .00008, .00109, .00151,
2898 + .19906, .05977, .02283, .00207, .00026,
2899 + .00008, .00102, .00140,
2900 + .19006, .05685, .02077, .00195, .00026,
2901 + .00008, .00096, .00132,
2902 + .18220, .05431, .01907, .00186, .00026,
2903 + .00008, .00092, .00123,
2904 + .17277, .05125, .01718, .00173, .00026,
2905 + .00008, .00086, .00116,
2906 + .16442, .04856, .01561, .00161, .00026,
2907 + .00008, .00081, .00110,
2908 + .15700, .04619, .01430, .00152, .00026,
2909 + .00008, .00077, .00104 /
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 + .14994, .04396, .01313, .00144, .00025,
2912 + .00008, .00072, .00097,
2913 + .14338, .04190, .01210, .00137, .00025,
2914 + .00008, .00068, .00091,
2915 + .13749, .04004, .01122, .00128, .00025,
2916 + .00008, .00065, .00085,
2917 + .13218, .03838, .01046, .00122, .00025,
2918 + .00008, .00062, .00080,
2919 + .12704, .03677, .00976, .00117, .00024,
2920 + .00008, .00059, .00077,
2921 + .12221, .03527, .00914, .00112, .00024,
2922 + .00008, .00056, .00073,
2923 + .11782, .03391, .00859, .00107, .00024,
2924 + .00008, .00054, .00069,
2925 + .11383, .03268, .00811, .00102, .00024,
2926 + .00008, .00051, .00067 /
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 + .10995, .03148, .00766, .00097, .00024,
2929 + .00008, .00049, .00064,
2930 + .10628, .03034, .00724, .00093, .00023,
2931 + .00008, .00047, .00062,
2932 + .10286, .02931, .00687, .00089, .00023,
2933 + .00008, .00045, .00059,
2934 + .09975, .02837, .00654, .00086, .00023,
2935 + .00008, .00044, .00057,
2936 + .09670, .02744, .00623, .00083, .00022,
2937 + .00008, .00042, .00054 /
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 + .43390, .13740, .13741, .00467, .00000,
2940 + .00000, .00203, .00311,
2941 + .41280, .12994, .12226, .00439, .00000,
2942 + .00000, .00193, .00292,
2943 + .38384, .11986, .10292, .00396, .00002,
2944 + .00000, .00178, .00265,
2945 + .36428, .11309, .09074, .00369, .00006,
2946 + .00000, .00168, .00250,
2947 + .34493, .10644, .07966, .00346, .00009,
2948 + .00000, .00158, .00233,
2949 + .32920, .10110, .07135, .00326, .00011,
2950 + .00000, .00152, .00217,
2951 + .31493, .09627, .06431, .00308, .00012,
2952 + .00000, .00146, .00205,
2953 + .30063, .09145, .05769, .00288, .00014,
2954 + .00000, .00138, .00194 /
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 + .28876, .08751, .05258, .00274, .00015,
2957 + .00000, .00132, .00183,
2958 + .27783, .08390, .04814, .00261, .00015,
2959 + .00000, .00127, .00174,
2960 + .26952, .08115, .04495, .00252, .00016,
2961 + .00000, .00122, .00168,
2962 + .25277, .07565, .03888, .00233, .00016,
2963 + .00000, .00113, .00153,
2964 + .23929, .07125, .03433, .00217, .00016,
2965 + .00001, .00106, .00143,
2966 + .22519, .06668, .02995, .00200, .00016,
2967 + .00003, .00099, .00132,
2968 + .21150, .06229, .02610, .00186, .00016,
2969 + .00004, .00092, .00121,
2970 + .19993, .05859, .02312, .00174, .00016,
2971 + .00004, .00086, .00113 /
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 + .18906, .05510, .02053, .00158, .00016,
2974 + .00004, .00081, .00107,
2975 + .18046, .05240, .01865, .00150, .00016,
2976 + .00004, .00077, .00101,
2977 + .17067, .04934, .01665, .00139, .00016,
2978 + .00004, .00072, .00093,
2979 + .16253, .04680, .01510, .00131, .00016,
2980 + .00004, .00068, .00086,
2981 + .15543, .04460, .01384, .00124, .00016,
2982 + .00004, .00064, .00081,
2983 + .14695, .04197, .01242, .00114, .00016,
2984 + .00004, .00060, .00077,
2985 + .13946, .03966, .01125, .00106, .00016,
2986 + .00004, .00056, .00073,
2987 + .13280, .03763, .01028, .00101, .00016,
2988 + .00004, .00053, .00068 /
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 + .12651, .03572, .00942, .00094, .00016,
2991 + .00004, .00050, .00063,
2992 + .12070, .03397, .00866, .00088, .00016,
2993 + .00004, .00047, .00059,
2994 + .11544, .03238, .00802, .00085, .00016,
2995 + .00004, .00045, .00056,
2996 + .11073, .03097, .00746, .00081, .00016,
2997 + .00004, .00043, .00053,
2998 + .10623, .02961, .00695, .00076, .00016,
2999 + .00004, .00040, .00050,
3000 + .10199, .02834, .00650, .00071, .00016,
3001 + .00004, .00038, .00048,
3002 + .09813, .02719, .00610, .00068, .00016,
3003 + .00004, .00037, .00047,
3004 + .09462, .02616, .00575, .00065, .00016,
3005 + .00004, .00035, .00045 /
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 + .09121, .02515, .00542, .00064, .00016,
3008 + .00004, .00034, .00042,
3009 + .08800, .02420, .00512, .00062, .00016,
3010 + .00004, .00032, .00039,
3011 + .08503, .02334, .00486, .00059, .00016,
3012 + .00004, .00031, .00037,
3013 + .08233, .02255, .00462, .00057, .00016,
3014 + .00004, .00029, .00036,
3015 + .07969, .02178, .00440, .00054, .00016,
3016 + .00004, .00028, .00035 /
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 + .38900, .11863, .10989, .00351, .00000,
3019 + .00000, .00137, .00201,
3020 + .36888, .11187, .09699, .00328, .00000,
3021 + .00000, .00131, .00188,
3022 + .34141, .10274, .08076, .00298, .00001,
3023 + .00000, .00121, .00167,
3024 + .32296, .09663, .07071, .00278, .00004,
3025 + .00000, .00113, .00156,
3026 + .30475, .09069, .06162, .00259, .00006,
3027 + .00000, .00106, .00146,
3028 + .29003, .08590, .05486, .00244, .00007,
3029 + .00000, .00100, .00137,
3030 + .27673, .08160, .04918, .00230, .00008,
3031 + .00000, .00094, .00130,
3032 + .26343, .07732, .04389, .00214, .00009,
3033 + .00000, .00090, .00122 /
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 + .25244, .07380, .03983, .00203, .00009,
3036 + .00000, .00085, .00115,
3037 + .24237, .07058, .03632, .00192, .00010,
3038 + .00000, .00081, .00109,
3039 + .23472, .06815, .03380, .00184, .00010,
3040 + .00000, .00078, .00105,
3041 + .21930, .06331, .02904, .00171, .00010,
3042 + .00000, .00072, .00096,
3043 + .20693, .05945, .02551, .00160, .00010,
3044 + .00001, .00067, .00089,
3045 + .19409, .05545, .02215, .00146, .00010,
3046 + .00002, .00062, .00081,
3047 + .18170, .05163, .01920, .00134, .00010,
3048 + .00002, .00057, .00075,
3049 + .17123, .04842, .01694, .00125, .00010,
3050 + .00002, .00053, .00070 /
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 + .16137, .04542, .01499, .00116, .00010,
3053 + .00002, .00049, .00063,
3054 + .15367, .04308, .01357, .00109, .00010,
3055 + .00002, .00047, .00060,
3056 + .14491, .04044, .01208, .00101, .00010,
3057 + .00002, .00044, .00056,
3058 + .13764, .03826, .01092, .00095, .00010,
3059 + .00002, .00041, .00052,
3060 + .13132, .03637, .00999, .00089, .00010,
3061 + .00002, .00039, .00050,
3062 + .12378, .03414, .00894, .00082, .00010,
3063 + .00002, .00036, .00046,
3064 + .11715, .03219, .00808, .00076, .00010,
3065 + .00002, .00033, .00042,
3066 + .11129, .03046, .00737, .00072, .00010,
3067 + .00002, .00031, .00040 /
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 + .10575, .02884, .00674, .00068, .00010,
3070 + .00002, .00029, .00037,
3071 + .10064, .02736, .00619, .00065, .00010,
3072 + .00002, .00027, .00035,
3073 + .09606, .02603, .00572, .00061, .00010,
3074 + .00002, .00026, .00033,
3075 + .09196, .02484, .00531, .00057, .00010,
3076 + .00002, .00025, .00031,
3077 + .08803, .02370, .00494, .00055, .00010,
3078 + .00002, .00024, .00028,
3079 + .08434, .02264, .00461, .00052, .00010,
3080 + .00002, .00022, .00026,
3081 + .08099, .02169, .00433, .00049, .00010,
3082 + .00002, .00021, .00025,
3083 + .07796, .02083, .00407, .00047, .00010,
3084 + .00002, .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 + .07503, .01999, .00384, .00044, .00010,
3087 + .00002, .00019, .00024,
3088 + .07225, .01921, .00362, .00042, .00010,
3089 + .00002, .00018, .00023,
3090 + .06970, .01849, .00343, .00041, .00010,
3091 + .00002, .00017, .00022,
3092 + .06737, .01784, .00326, .00040, .00010,
3093 + .00002, .00016, .00021,
3094 + .06511, .01720, .00310, .00038, .00010,
3095 + .00002, .00016, .00020 /
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 + .34452, .10094, .08598, .00241, .00000,
3098 + .00000, .00100, .00134,
3099 + .32566, .09488, .07532, .00225, .00000,
3100 + .00000, .00093, .00127,
3101 + .29999, .08673, .06206, .00205, .00001,
3102 + .00000, .00085, .00113,
3103 + .28281, .08132, .05391, .00189, .00002,
3104 + .00000, .00080, .00106,
3105 + .26600, .07605, .04666, .00175, .00004,
3106 + .00000, .00074, .00097,
3107 + .25241, .07183, .04130, .00165, .00004,
3108 + .00000, .00070, .00090,
3109 + .24017, .06805, .03682, .00156, .00005,
3110 + .00000, .00066, .00085,
3111 + .22797, .06430, .03267, .00144, .00005,
3112 + .00000, .00062, .00080 /
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 + .21791, .06124, .02951, .00137, .00005,
3115 + .00000, .00059, .00074,
3116 + .20872, .05845, .02680, .00130, .00005,
3117 + .00000, .00056, .00069,
3118 + .20178, .05634, .02487, .00123, .00005,
3119 + .00000, .00053, .00066,
3120 + .18782, .05214, .02124, .00112, .00005,
3121 + .00000, .00048, .00062,
3122 + .17668, .04879, .01857, .00105, .00005,
3123 + .00000, .00045, .00057,
3124 + .16512, .04536, .01604, .00097, .00005,
3125 + .00000, .00041, .00052,
3126 + .15401, .04209, .01384, .00088, .00005,
3127 + .00000, .00038, .00047,
3128 + .14467, .03934, .01216, .00082, .00005,
3129 + .00000, .00036, .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 + .13591, .03680, .01071, .00077, .00005,
3132 + .00000, .00034, .00041,
3133 + .12906, .03481, .00968, .00072, .00005,
3134 + .00000, .00031, .00038,
3135 + .12131, .03258, .00859, .00066, .00005,
3136 + .00000, .00028, .00035,
3137 + .11491, .03074, .00774, .00062, .00005,
3138 + .00000, .00027, .00032,
3139 + .10937, .02916, .00707, .00059, .00005,
3140 + .00000, .00025, .00031,
3141 + .10277, .02728, .00631, .00054, .00005,
3142 + .00000, .00023, .00028,
3143 + .09698, .02564, .00569, .00051, .00005,
3144 + .00000, .00021, .00026,
3145 + .09189, .02421, .00518, .00048, .00005,
3146 + .00000, .00020, .00025 /
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 + .08710, .02286, .00473, .00045, .00005,
3149 + .00000, .00019, .00022,
3150 + .08270, .02163, .00433, .00042, .00005,
3151 + .00000, .00018, .00020,
3152 + .07874, .02053, .00400, .00040, .00005,
3153 + .00000, .00017, .00019,
3154 + .07521, .01955, .00371, .00037, .00005,
3155 + .00000, .00016, .00018,
3156 + .07185, .01862, .00345, .00034, .00005,
3157 + .00000, .00015, .00018,
3158 + .06871, .01775, .00321, .00032, .00005,
3159 + .00000, .00014, .00017,
3160 + .06584, .01697, .00301, .00031, .00005,
3161 + .00000, .00013, .00016,
3162 + .06326, .01626, .00283, .00030, .00005,
3163 + .00000, .00013, .00014 /
3164 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
3165 + .06075, .01558, .00266, .00029, .00005,
3166 + .00000, .00012, .00013,
3167 + .05839, .01494, .00251, .00029, .00005,
3168 + .00000, .00012, .00013,
3169 + .05625, .01436, .00237, .00026, .00005,
3170 + .00000, .00011, .00012,
3171 + .05430, .01383, .00225, .00024, .00005,
3172 + .00000, .00011, .00012,
3173 + .05239, .01331, .00214, .00023, .00005,
3174 + .00000, .00010, .00012 /
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 + .30151, .08479, .06599, .00164, .00000,
3177 + .00000, .00069, .00088,
3178 + .28405, .07945, .05736, .00151, .00000,
3179 + .00000, .00065, .00081,
3180 + .26041, .07228, .04674, .00136, .00001,
3181 + .00000, .00059, .00073,
3182 + .24465, .06755, .04032, .00126, .00001,
3183 + .00000, .00055, .00067,
3184 + .22929, .06296, .03464, .00117, .00002,
3185 + .00000, .00051, .00061,
3186 + .21693, .05931, .03047, .00109, .00002,
3187 + .00000, .00047, .00057,
3188 + .20584, .05603, .02702, .00102, .00002,
3189 + .00000, .00044, .00054,
3190 + .19485, .05278, .02385, .00094, .00002,
3191 + .00000, .00042, .00049 /
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 + .18576, .05014, .02146, .00089, .00002,
3194 + .00000, .00040, .00048,
3195 + .17749, .04774, .01941, .00085, .00002,
3196 + .00000, .00038, .00046,
3197 + .17126, .04593, .01795, .00081, .00002,
3198 + .00000, .00037, .00044,
3199 + .15883, .04233, .01524, .00071, .00002,
3200 + .00000, .00033, .00041,
3201 + .14891, .03950, .01326, .00066, .00002,
3202 + .00000, .00031, .00037,
3203 + .13864, .03660, .01140, .00062, .00002,
3204 + .00000, .00028, .00033,
3205 + .12882, .03382, .00979, .00057, .00002,
3206 + .00000, .00025, .00030,
3207 + .12061, .03151, .00857, .00053, .00002,
3208 + .00000, .00024, .00029 /
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 + .11293, .02937, .00753, .00048, .00002,
3211 + .00000, .00021, .00026,
3212 + .10699, .02772, .00679, .00045, .00002,
3213 + .00000, .00020, .00024,
3214 + .10024, .02586, .00600, .00041, .00002,
3215 + .00000, .00019, .00022,
3216 + .09467, .02434, .00540, .00039, .00002,
3217 + .00000, .00018, .00021,
3218 + .08990, .02302, .00492, .00036, .00002,
3219 + .00000, .00017, .00020,
3220 + .08421, .02147, .00438, .00033, .00002,
3221 + .00000, .00015, .00018,
3222 + .07923, .02012, .00394, .00031, .00002,
3223 + .00000, .00014, .00017,
3224 + .07487, .01895, .00358, .00030, .00002,
3225 + .00000, .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 + .07078, .01785, .00326, .00028, .00002,
3228 + .00000, .00012, .00014,
3229 + .06702, .01684, .00299, .00025, .00002,
3230 + .00000, .00012, .00013,
3231 + .06367, .01595, .00275, .00024, .00002,
3232 + .00000, .00011, .00012,
3233 + .06068, .01515, .00255, .00022, .00002,
3234 + .00000, .00010, .00012,
3235 + .05783, .01440, .00237, .00021, .00002,
3236 + .00000, .00010, .00011,
3237 + .05517, .01370, .00220, .00020, .00002,
3238 + .00000, .00009, .00010,
3239 + .05275, .01307, .00206, .00019, .00002,
3240 + .00000, .00009, .00010,
3241 + .05059, .01250, .00194, .00018, .00002,
3242 + .00000, .00008, .00010 /
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 + .04851, .01195, .00182, .00017, .00002,
3245 + .00000, .00008, .00009,
3246 + .04655, .01144, .00171, .00016, .00002,
3247 + .00000, .00007, .00009,
3248 + .04475, .01098, .00162, .00015, .00002,
3249 + .00000, .00007, .00008,
3250 + .04311, .01056, .00154, .00014, .00002,
3251 + .00000, .00006, .00008,
3252 + .04152, .01015, .00146, .00014, .00002,
3253 + .00000, .00006, .00008 /
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 + .26056, .07040, .04962, .00114, .00000,
3256 + .00000, .00043, .00052,
3257 + .24464, .06575, .04282, .00107, .00000,
3258 + .00000, .00040, .00048,
3259 + .22322, .05953, .03455, .00095, .00000,
3260 + .00000, .00036, .00043,
3261 + .20900, .05546, .02960, .00088, .00000,
3262 + .00000, .00033, .00037,
3263 + .19517, .05150, .02524, .00081, .00000,
3264 + .00000, .00030, .00037,
3265 + .18413, .04836, .02209, .00075, .00000,
3266 + .00000, .00028, .00034,
3267 + .17424, .04556, .01950, .00069, .00000,
3268 + .00000, .00026, .00031,
3269 + .16443, .04279, .01713, .00064, .00000,
3270 + .00000, .00026, .00029 /
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 + .15639, .04055, .01535, .00060, .00000,
3273 + .00000, .00023, .00028,
3274 + .14908, .03853, .01383, .00057, .00000,
3275 + .00000, .00021, .00027,
3276 + .14357, .03700, .01276, .00054, .00000,
3277 + .00000, .00020, .00025,
3278 + .13261, .03398, .01078, .00049, .00000,
3279 + .00000, .00020, .00023,
3280 + .12390, .03160, .00934, .00046, .00000,
3281 + .00000, .00018, .00022,
3282 + .11495, .02916, .00799, .00042, .00000,
3283 + .00000, .00016, .00019,
3284 + .10643, .02686, .00684, .00038, .00000,
3285 + .00000, .00015, .00017,
3286 + .09932, .02495, .00597, .00035, .00000,
3287 + .00000, .00013, .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 + .09272, .02318, .00522, .00031, .00000,
3290 + .00000, .00012, .00015,
3291 + .08758, .02182, .00470, .00030, .00000,
3292 + .00000, .00012, .00014,
3293 + .08180, .02029, .00415, .00028, .00000,
3294 + .00000, .00011, .00012,
3295 + .07705, .01904, .00373, .00026, .00000,
3296 + .00000, .00010, .00010,
3297 + .07296, .01797, .00339, .00025, .00000,
3298 + .00000, .00009, .00010,
3299 + .06813, .01671, .00301, .00022, .00000,
3300 + .00000, .00008, .00010,
3301 + .06393, .01561, .00270, .00020, .00000,
3302 + .00000, .00008, .00009,
3303 + .06024, .01466, .00245, .00019, .00000,
3304 + .00000, .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 + .05681, .01377, .00223, .00017, .00000,
3307 + .00000, .00007, .00008,
3308 + .05366, .01296, .00204, .00016, .00000,
3309 + .00000, .00006, .00007,
3310 + .05084, .01224, .00188, .00015, .00000,
3311 + .00000, .00006, .00007,
3312 + .04834, .01161, .00174, .00015, .00000,
3313 + .00000, .00006, .00007,
3314 + .04597, .01101, .00161, .00014, .00000,
3315 + .00000, .00005, .00006,
3316 + .04376, .01045, .00150, .00013, .00000,
3317 + .00000, .00005, .00006,
3318 + .04177, .00995, .00140, .00012, .00000,
3319 + .00000, .00005, .00005,
3320 + .03998, .00950, .00131, .00012, .00000,
3321 + .00000, .00005, .00005 /
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 + .03824, .00906, .00123, .00012, .00000,
3324 + .00000, .00004, .00005,
3325 + .03662, .00866, .00116, .00011, .00000,
3326 + .00000, .00004, .00005,
3327 + .03515, .00829, .00110, .00010, .00000,
3328 + .00000, .00004, .00004,
3329 + .03383, .00796, .00104, .00009, .00000,
3330 + .00000, .00004, .00004,
3331 + .03252, .00764, .00098, .00009, .00000,
3332 + .00000, .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 + .22180, .05733, .03629, .00069, .00000,
3335 + .00000, .00031, .00035,
3336 + .20753, .05338, .03107, .00064, .00000,
3337 + .00000, .00028, .00031,
3338 + .18840, .04809, .02481, .00058, .00000,
3339 + .00000, .00025, .00028,
3340 + .17581, .04463, .02111, .00052, .00000,
3341 + .00000, .00024, .00027,
3342 + .16357, .04130, .01790, .00048, .00000,
3343 + .00000, .00021, .00024,
3344 + .15385, .03867, .01557, .00043, .00000,
3345 + .00000, .00019, .00022,
3346 + .14515, .03633, .01368, .00039, .00000,
3347 + .00000, .00018, .00020,
3348 + .13651, .03403, .01196, .00038, .00000,
3349 + .00000, .00017, .00018 /
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 + .12951, .03216, .01068, .00035, .00000,
3352 + .00000, .00016, .00018,
3353 + .12316, .03047, .00959, .00033, .00000,
3354 + .00000, .00015, .00018,
3355 + .11838, .02920, .00882, .00031, .00000,
3356 + .00000, .00014, .00017,
3357 + .10889, .02671, .00741, .00028, .00000,
3358 + .00000, .00013, .00015,
3359 + .10138, .02476, .00640, .00026, .00000,
3360 + .00000, .00012, .00013,
3361 + .09368, .02277, .00545, .00024, .00000,
3362 + .00000, .00011, .00012,
3363 + .08640, .02089, .00465, .00022, .00000,
3364 + .00000, .00010, .00011,
3365 + .08037, .01933, .00405, .00020, .00000,
3366 + .00000, .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 + .07476, .01790, .00353, .00018, .00000,
3369 + .00000, .00008, .00009,
3370 + .07042, .01680, .00317, .00017, .00000,
3371 + .00000, .00008, .00009,
3372 + .06555, .01557, .00279, .00015, .00000,
3373 + .00000, .00007, .00008,
3374 + .06157, .01456, .00250, .00014, .00000,
3375 + .00000, .00006, .00008,
3376 + .05816, .01371, .00227, .00013, .00000,
3377 + .00000, .00006, .00007,
3378 + .05412, .01271, .00202, .00012, .00000,
3379 + .00000, .00006, .00006,
3380 + .05060, .01184, .00181, .00012, .00000,
3381 + .00000, .00005, .00006,
3382 + .04755, .01109, .00164, .00011, .00000,
3383 + .00000, .00005, .00005 /
3384 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
3385 + .04471, .01039, .00149, .00010, .00000,
3386 + .00000, .00004, .00005,
3387 + .04212, .00975, .00136, .00009, .00000,
3388 + .00000, .00004, .00004,
3389 + .03981, .00919, .00125, .00008, .00000,
3390 + .00000, .00004, .00004,
3391 + .03777, .00869, .00115, .00007, .00000,
3392 + .00000, .00004, .00004,
3393 + .03583, .00822, .00107, .00007, .00000,
3394 + .00000, .00003, .00003,
3395 + .03402, .00779, .00099, .00007, .00000,
3396 + .00000, .00003, .00003,
3397 + .03240, .00739, .00093, .00007, .00000,
3398 + .00000, .00003, .00003,
3399 + .03095, .00705, .00087, .00006, .00000,
3400 + .00000, .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 + .02955, .00671, .00081, .00006, .00000,
3403 + .00000, .00003, .00003,
3404 + .02824, .00640, .00077, .00006, .00000,
3405 + .00000, .00003, .00003,
3406 + .02705, .00612, .00072, .00006, .00000,
3407 + .00000, .00002, .00002,
3408 + .02597, .00586, .00068, .00006, .00000,
3409 + .00000, .00002, .00002,
3410 + .02493, .00561, .00065, .00005, .00000,
3411 + .00000, .00002, .00002 /
3412 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
3413 + .15341, .03625, .01791, .00027, .00000,
3414 + .00000, .00010, .00011,
3415 + .14250, .03350, .01512, .00025, .00000,
3416 + .00000, .00010, .00010,
3417 + .12797, .02986, .01184, .00023, .00000,
3418 + .00000, .00008, .00009,
3419 + .11853, .02751, .00994, .00020, .00000,
3420 + .00000, .00008, .00007,
3421 + .10945, .02526, .00832, .00017, .00000,
3422 + .00000, .00007, .00007,
3423 + .10224, .02350, .00717, .00017, .00000,
3424 + .00000, .00006, .00007,
3425 + .09585, .02194, .00625, .00016, .00000,
3426 + .00000, .00006, .00007,
3427 + .08960, .02042, .00542, .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 + .08455, .01919, .00480, .00012, .00000,
3431 + .00000, .00006, .00005,
3432 + .07998, .01809, .00429, .00011, .00000,
3433 + .00000, .00005, .00005,
3434 + .07656, .01727, .00393, .00010, .00000,
3435 + .00000, .00005, .00006,
3436 + .06981, .01566, .00327, .00010, .00000,
3437 + .00000, .00004, .00005,
3438 + .06454, .01441, .00281, .00009, .00000,
3439 + .00000, .00004, .00004,
3440 + .05918, .01315, .00238, .00008, .00000,
3441 + .00000, .00004, .00004,
3442 + .05412, .01197, .00202, .00008, .00000,
3443 + .00000, .00003, .00003,
3444 + .04997, .01100, .00175, .00007, .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 + .04615, .01011, .00152, .00006, .00000,
3448 + .00000, .00003, .00003,
3449 + .04321, .00943, .00136, .00006, .00000,
3450 + .00000, .00003, .00003,
3451 + .03994, .00868, .00119, .00005, .00000,
3452 + .00000, .00002, .00003,
3453 + .03729, .00807, .00107, .00004, .00000,
3454 + .00000, .00002, .00002,
3455 + .03503, .00755, .00097, .00004, .00000,
3456 + .00000, .00002, .00002,
3457 + .03237, .00695, .00086, .00004, .00000,
3458 + .00000, .00002, .00002,
3459 + .03007, .00644, .00077, .00004, .00000,
3460 + .00000, .00002, .00001,
3461 + .02809, .00599, .00069, .00004, .00000,
3462 + .00000, .00001, .00002 /
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 + .02626, .00558, .00063, .00003, .00000,
3465 + .00000, .00001, .00001,
3466 + .02460, .00521, .00057, .00003, .00000,
3467 + .00000, .00001, .00001,
3468 + .02313, .00488, .00052, .00002, .00000,
3469 + .00000, .00001, .00001,
3470 + .02183, .00460, .00048, .00002, .00000,
3471 + .00000, .00001, .00001,
3472 + .02061, .00433, .00045, .00002, .00000,
3473 + .00000, .00001, .00001,
3474 + .01948, .00408, .00041, .00002, .00000,
3475 + .00000, .00001, .00001,
3476 + .01846, .00385, .00039, .00002, .00000,
3477 + .00000, .00001, .00001,
3478 + .01756, .00366, .00036, .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 + .01670, .00347, .00034, .00001, .00000,
3482 + .00000, .00001, .00001,
3483 + .01590, .00329, .00032, .00001, .00000,
3484 + .00000, .00001, .00001,
3485 + .01517, .00314, .00030, .00001, .00000,
3486 + .00000, .00001, .00001,
3487 + .01451, .00299, .00028, .00001, .00000,
3488 + .00000, .00001, .00001,
3489 + .01387, .00286, .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 + .09805, .02096, .00767, .00009, .00000,
3493 + .00000, .00003, .00004,
3494 + .09035, .01922, .00640, .00008, .00000,
3495 + .00000, .00003, .00003,
3496 + .08024, .01695, .00492, .00007, .00000,
3497 + .00000, .00002, .00002,
3498 + .07371, .01549, .00409, .00007, .00000,
3499 + .00000, .00002, .00002,
3500 + .06748, .01410, .00339, .00006, .00000,
3501 + .00000, .00002, .00002,
3502 + .06260, .01303, .00290, .00006, .00000,
3503 + .00000, .00002, .00002,
3504 + .05831, .01208, .00251, .00005, .00000,
3505 + .00000, .00002, .00002,
3506 + .05413, .01117, .00216, .00004, .00000,
3507 + .00000, .00002, .00002 /
3508 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
3509 + .05076, .01043, .00191, .00004, .00000,
3510 + .00000, .00001, .00001,
3511 + .04775, .00978, .00170, .00004, .00000,
3512 + .00000, .00001, .00001,
3513 + .04551, .00930, .00155, .00003, .00000,
3514 + .00000, .00001, .00001,
3515 + .04111, .00835, .00128, .00003, .00000,
3516 + .00000, .00001, .00002,
3517 + .03770, .00762, .00110, .00003, .00000,
3518 + .00000, .00001, .00001,
3519 + .03427, .00690, .00093, .00003, .00000,
3520 + .00000, .00001, .00001,
3521 + .03107, .00622, .00078, .00002, .00000,
3522 + .00000, .00001, .00001,
3523 + .02846, .00567, .00068, .00002, .00000,
3524 + .00000, .00001, .00001 /
3525 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
3526 + .02608, .00517, .00059, .00002, .00000,
3527 + .00000, .00001, .00001,
3528 + .02426, .00480, .00052, .00002, .00000,
3529 + .00000, .00001, .00001,
3530 + .02226, .00438, .00046, .00002, .00000,
3531 + .00000, .00000, .00001,
3532 + .02064, .00405, .00041, .00001, .00000,
3533 + .00000, .00000, .00001,
3534 + .01927, .00377, .00037, .00001, .00000,
3535 + .00000, .00000, .00000,
3536 + .01768, .00344, .00033, .00001, .00000,
3537 + .00000, .00000, .00000,
3538 + .01631, .00316, .00029, .00001, .00000,
3539 + .00000, .00000, .00000,
3540 + .01514, .00293, .00026, .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 + .01406, .00271, .00024, .00001, .00000,
3544 + .00000, .00000, .00000,
3545 + .01308, .00251, .00022, .00001, .00000,
3546 + .00000, .00000, .00000,
3547 + .01223, .00234, .00020, .00001, .00000,
3548 + .00000, .00000, .00000,
3549 + .01149, .00219, .00018, .00001, .00000,
3550 + .00000, .00000, .00000,
3551 + .01078, .00205, .00017, .00001, .00000,
3552 + .00000, .00000, .00000,
3553 + .01014, .00192, .00016, .00001, .00000,
3554 + .00000, .00000, .00000,
3555 + .00956, .00181, .00014, .00001, .00000,
3556 + .00000, .00000, .00000,
3557 + .00906, .00171, .00014, .00001, .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 + .00857, .00161, .00013, .00000, .00000,
3561 + .00000, .00000, .00000,
3562 + .00812, .00153, .00012, .00000, .00000,
3563 + .00000, .00000, .00000,
3564 + .00772, .00145, .00011, .00000, .00000,
3565 + .00000, .00000, .00000,
3566 + .00735, .00138, .00010, .00000, .00000,
3567 + .00000, .00000, .00000,
3568 + .00700, .00131, .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 + .05648, .01079, .00273, .00004, .00000,
3572 + .00000, .00000, .00000,
3573 + .05161, .00980, .00225, .00003, .00000,
3574 + .00000, .00000, .00001,
3575 + .04524, .00853, .00171, .00002, .00000,
3576 + .00000, .00000, .00001,
3577 + .04118, .00773, .00141, .00002, .00000,
3578 + .00000, .00000, .00000,
3579 + .03736, .00697, .00116, .00002, .00000,
3580 + .00000, .00000, .00000,
3581 + .03439, .00639, .00099, .00001, .00000,
3582 + .00000, .00000, .00000,
3583 + .03179, .00588, .00085, .00001, .00000,
3584 + .00000, .00000, .00000,
3585 + .02927, .00540, .00073, .00001, .00000,
3586 + .00000, .00000, .00000 /
3587 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
3588 + .02727, .00501, .00064, .00001, .00000,
3589 + .00000, .00000, .00000,
3590 + .02549, .00467, .00057, .00001, .00000,
3591 + .00000, .00000, .00000,
3592 + .02417, .00441, .00052, .00001, .00000,
3593 + .00000, .00000, .00000,
3594 + .02161, .00392, .00043, .00001, .00000,
3595 + .00000, .00000, .00000,
3596 + .01964, .00355, .00037, .00001, .00000,
3597 + .00000, .00000, .00000,
3598 + .01769, .00318, .00031, .00000, .00000,
3599 + .00000, .00000, .00000,
3600 + .01587, .00284, .00026, .00000, .00000,
3601 + .00000, .00000, .00000,
3602 + .01441, .00257, .00023, .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 + .01309, .00232, .00020, .00001, .00000,
3606 + .00000, .00000, .00000,
3607 + .01209, .00214, .00018, .00001, .00000,
3608 + .00000, .00000, .00000,
3609 + .01099, .00193, .00015, .00001, .00000,
3610 + .00000, .00000, .00000,
3611 + .01012, .00177, .00014, .00001, .00000,
3612 + .00000, .00000, .00000,
3613 + .00938, .00164, .00012, .00000, .00000,
3614 + .00000, .00000, .00000,
3615 + .00853, .00148, .00011, .00000, .00000,
3616 + .00000, .00000, .00000,
3617 + .00782, .00135, .00010, .00000, .00000,
3618 + .00000, .00000, .00000,
3619 + .00720, .00124, .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 + .00664, .00114, .00008, .00000, .00000,
3623 + .00000, .00000, .00000,
3624 + .00613, .00105, .00007, .00000, .00000,
3625 + .00000, .00000, .00000,
3626 + .00570, .00097, .00007, .00000, .00000,
3627 + .00000, .00000, .00000,
3628 + .00532, .00091, .00006, .00000, .00000,
3629 + .00000, .00000, .00000,
3630 + .00496, .00084, .00006, .00000, .00000,
3631 + .00000, .00000, .00000,
3632 + .00464, .00079, .00005, .00000, .00000,
3633 + .00000, .00000, .00000,
3634 + .00435, .00074, .00005, .00000, .00000,
3635 + .00000, .00000, .00000,
3636 + .00410, .00069, .00004, .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 + .00386, .00065, .00004, .00000, .00000,
3640 + .00000, .00000, .00000,
3641 + .00364, .00061, .00004, .00000, .00000,
3642 + .00000, .00000, .00000,
3643 + .00344, .00058, .00004, .00000, .00000,
3644 + .00000, .00000, .00000,
3645 + .00326, .00055, .00003, .00000, .00000,
3646 + .00000, .00000, .00000,
3647 + .00309, .00052, .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 + .02799, .00466, .00074, .00000, .00000,
3651 + .00000, .00000, .00000,
3652 + .02531, .00420, .00061, .00000, .00000,
3653 + .00000, .00000, .00000,
3654 + .02187, .00360, .00046, .00000, .00000,
3655 + .00000, .00000, .00000,
3656 + .01970, .00323, .00038, .00000, .00000,
3657 + .00000, .00000, .00000,
3658 + .01767, .00288, .00031, .00000, .00000,
3659 + .00000, .00000, .00000,
3660 + .01611, .00262, .00027, .00000, .00000,
3661 + .00000, .00000, .00000,
3662 + .01477, .00239, .00023, .00000, .00000,
3663 + .00000, .00000, .00000,
3664 + .01348, .00217, .00020, .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 + .01246, .00200, .00017, .00000, .00000,
3668 + .00000, .00000, .00000,
3669 + .01156, .00185, .00016, .00000, .00000,
3670 + .00000, .00000, .00000,
3671 + .01090, .00174, .00014, .00000, .00000,
3672 + .00000, .00000, .00000,
3673 + .00962, .00153, .00012, .00000, .00000,
3674 + .00000, .00000, .00000,
3675 + .00866, .00137, .00010, .00000, .00000,
3676 + .00000, .00000, .00000,
3677 + .00771, .00121, .00009, .00000, .00000,
3678 + .00000, .00000, .00000,
3679 + .00684, .00107, .00007, .00000, .00000,
3680 + .00000, .00000, .00000,
3681 + .00614, .00096, .00006, .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 + .00552, .00086, .00005, .00000, .00000,
3685 + .00000, .00000, .00000,
3686 + .00506, .00078, .00005, .00000, .00000,
3687 + .00000, .00000, .00000,
3688 + .00455, .00070, .00004, .00000, .00000,
3689 + .00000, .00000, .00000,
3690 + .00415, .00064, .00004, .00000, .00000,
3691 + .00000, .00000, .00000,
3692 + .00382, .00058, .00003, .00000, .00000,
3693 + .00000, .00000, .00000,
3694 + .00344, .00052, .00003, .00000, .00000,
3695 + .00000, .00000, .00000,
3696 + .00312, .00047, .00003, .00000, .00000,
3697 + .00000, .00000, .00000,
3698 + .00285, .00043, .00002, .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 + .00261, .00039, .00002, .00000, .00000,
3702 + .00000, .00000, .00000,
3703 + .00239, .00036, .00002, .00000, .00000,
3704 + .00000, .00000, .00000,
3705 + .00220, .00033, .00002, .00000, .00000,
3706 + .00000, .00000, .00000,
3707 + .00204, .00031, .00002, .00000, .00000,
3708 + .00000, .00000, .00000,
3709 + .00189, .00028, .00002, .00000, .00000,
3710 + .00000, .00000, .00000,
3711 + .00176, .00026, .00001, .00000, .00000,
3712 + .00000, .00000, .00000,
3713 + .00164, .00024, .00001, .00000, .00000,
3714 + .00000, .00000, .00000,
3715 + .00153, .00023, .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 + .00143, .00021, .00001, .00000, .00000,
3719 + .00000, .00000, .00000,
3720 + .00134, .00020, .00001, .00000, .00000,
3721 + .00000, .00000, .00000,
3722 + .00126, .00019, .00001, .00000, .00000,
3723 + .00000, .00000, .00000,
3724 + .00119, .00017, .00001, .00000, .00000,
3725 + .00000, .00000, .00000,
3726 + .00112, .00016, .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 + .00288, .00032, .00001, .00000, .00000,
3730 + .00000, .00000, .00000,
3731 + .00253, .00028, .00001, .00000, .00000,
3732 + .00000, .00000, .00000,
3733 + .00209, .00023, .00001, .00000, .00000,
3734 + .00000, .00000, .00000,
3735 + .00183, .00020, .00001, .00000, .00000,
3736 + .00000, .00000, .00000,
3737 + .00159, .00017, .00001, .00000, .00000,
3738 + .00000, .00000, .00000,
3739 + .00141, .00015, .00001, .00000, .00000,
3740 + .00000, .00000, .00000,
3741 + .00126, .00014, .00001, .00000, .00000,
3742 + .00000, .00000, .00000,
3743 + .00112, .00012, .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 + .00101, .00011, .00001, .00000, .00000,
3747 + .00000, .00000, .00000,
3748 + .00092, .00010, .00000, .00000, .00000,
3749 + .00000, .00000, .00000,
3750 + .00085, .00009, .00000, .00000, .00000,
3751 + .00000, .00000, .00000,
3752 + .00073, .00008, .00000, .00000, .00000,
3753 + .00000, .00000, .00000,
3754 + .00063, .00007, .00000, .00000, .00000,
3755 + .00000, .00000, .00000,
3756 + .00055, .00006, .00000, .00000, .00000,
3757 + .00000, .00000, .00000,
3758 + .00047, .00005, .00000, .00000, .00000,
3759 + .00000, .00000, .00000,
3760 + .00041, .00004, .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, .00004, .00000, .00000, .00000,
3764 + .00000, .00000, .00000,
3765 + .00032, .00003, .00000, .00000, .00000,
3766 + .00000, .00000, .00000,
3767 + .00028, .00003, .00000, .00000, .00000,
3768 + .00000, .00000, .00000,
3769 + .00025, .00003, .00000, .00000, .00000,
3770 + .00000, .00000, .00000,
3771 + .00022, .00002, .00000, .00000, .00000,
3772 + .00000, .00000, .00000,
3773 + .00019, .00002, .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 + .00014, .00001, .00000, .00000, .00000,
3781 + .00000, .00000, .00000,
3782 + .00012, .00001, .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 + .00008, .00001, .00000, .00000, .00000,
3793 + .00000, .00000, .00000,
3794 + .00007, .00001, .00000, .00000, .00000,
3795 + .00000, .00000, .00000 /
3796 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
3797 + .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 + .00005, .00001, .00000, .00000, .00000,
3806 + .00000, .00000, .00000 /
3807 data xx/1d-5,2d-5,4d-5,6d-5,8d-5,
3808 . 1d-4,2d-4,4d-4,6d-4,8d-4,
3809 . 1d-3,2d-3,4d-3,6d-3,8d-3,
3810 . 1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2,
3811 . .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0,
3812 . .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0,
3813 . .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0,
3814 . .8d0,.9d0,1d0/
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/
3823 data init/0/
3824 save
3825 xsave=x
3826 q2save=qsq
3827 if(init.ne.0) goto 10
3828C open(unit=1,file='ft08a.dat',status='old')
3829 do 20 n=1,nx-1
3830 do 20 m=1,nq
3831C read(1,50)f(1,n,m),f(2,n,m),f(3,n,m),f(4,n,m),
3832C . f(5,n,m),f(7,n,m),f(6,n,m),f(8,n,m)
3833c notation: 1=uval 2=val 3=glue 4=usea 5=chm 6=str 7=btm 8=dsea
3834 do 25 i=1,np
3835 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i)
3836 20 continue
3837 do 31 j=1,ntenth-1
3838 xx(j)= log10(xx(j)/xx(ntenth))+xx(ntenth)
3839 do 31 i=1,8
3840 if(i.eq.5.or.i.eq.7) goto 31
3841 do 30 k=1,nq
3842 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k)
3843 31 continue
3844 50 format(8f10.5)
3845 do 40 i=1,np
3846 do 40 m=1,nq
3847 40 f(i,nx,m)=ZEROD
3848 init=1
3849 10 continue
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
3854 xxx=x
3855 if(x.lt.xx(ntenth)) xxx= log10(x/xx(ntenth))+xx(ntenth)
3856 n=0
3857 70 n=n+1
3858 if(xxx.gt.xx(n+1)) goto 70
3859 a=(xxx-xx(n))/(xx(n+1)-xx(n))
3860 m=0
3861 80 m=m+1
3862 if(qsq.gt.qq(m+1)) goto 80
3863 b=(qsq-qq(m))/(qq(m+1)-qq(m))
3864 do 60 i=1,np
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)
3871 65 continue
3872 g(i)=g(i)*(ONED-x)**n0(i)
3873 60 continue
3874 upv=g(1)
3875 dnv=g(2)
3876 usea=g(4)
3877 dsea=g(8)
3878 str=g(6)
3879 chm=g(5)
3880 glu=g(3)
3881 bot=g(7)
3882 x=xsave
3883 qsq=q2save
3884 return
3885 end
3886
3887