]> git.uio.no Git - u/mrichter/AliRoot.git/blame - PDF/spdf/sfmrs_98lo2.F
git://git.uio.no / u / mrichter / AliRoot.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Removing warnings (icc), adding more detailed description
[u/mrichter/AliRoot.git] / PDF / spdf / sfmrs_98lo2.F
CommitLineData
21886bb6 1#include "pdf/pilot.h"
2 subroutine sfmrs_98lo2(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
8#include "pdf/expdp.inc"
9 + f(np,nx,nq+1),qq(nq),xx(nx),g(np),n0(np)
10 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,8)/
11 + .01616, .00683, 2.49594, .96883, .00000,
12 + .00000, .49855, .98494,
13 + .01632, .00687, 4.92533, .97285, .00003,
14 + .00000, .50643, .98889,
15 + .01657, .00693, 9.56993, .99630, .02821,
16 + .00000, .53555, 1.01222,
17 + .01676, .00697, 13.80940, 1.02892, .07423,
18 + .00000, .57226, 1.04476,
19 + .01695, .00702, 18.88911, 1.08451, .13335,
20 + .00000, .63213, 1.10026,
21 + .01712, .00706, 24.17862, 1.14357, .20163,
22 + .00000, .69484, 1.15923,
23 + .01728, .00711, 29.73861, 1.21691, .27774,
24 + .00000, .77164, 1.23248,
25 + .01745, .00716, 36.41777, 1.31000, .37644,
26 + .00000, .86838, 1.32548 /
27 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
28 + .01760, .00720, 42.89913, 1.40457, .47784,
29 + .00000, .96608, 1.41996,
30 + .01775, .00724, 49.61974, 1.51092, .58781,
31 + .00000, 1.07543, 1.52623,
32 + .01786, .00727, 55.39180, 1.60472, .68602,
33 + .00000, 1.17158, 1.61996,
34 + .01811, .00735, 68.81419, 1.83637, .92772,
35 + .00041, 1.40820, 1.85147,
36 + .01832, .00742, 81.72071, 2.07152, 1.17595,
37 + .21131, 1.64756, 2.08649,
38 + .01856, .00750, 97.52657, 2.37643, 1.49839,
39 + .61374, 1.95709, 2.39126,
40 + .01882, .00758, 115.42858, 2.74566, 1.87945,
41 + .99259, 2.33106, 2.76033,
42 + .01904, .00766, 133.20726, 3.12622, 2.27429,
43 + 1.40334, 2.71585, 3.14075 /
44 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
45 + .01928, .00775, 152.75288, 3.55799, 2.72539,
46 + 1.88020, 3.15180, 3.57238,
47 + .01947, .00782, 170.01192, 3.95423, 3.13641,
48 + 2.30534, 3.55145, 3.96850,
49 + .01970, .00791, 192.21783, 4.48113, 3.68153,
50 + 2.86856, 4.08243, 4.49525,
51 + .01991, .00799, 213.34880, 4.99499, 4.21665,
52 + 3.42748, 4.59984, 5.00899,
53 + .02011, .00806, 233.39284, 5.50061, 4.73651,
54 + 3.95907, 5.10866, 5.51448,
55 + .02035, .00816, 260.44016, 6.19859, 5.45753,
56 + 4.70301, 5.81063, 6.21231,
57 + .02058, .00826, 287.44696, 6.91462, 6.19783,
58 + 5.46775, 6.53035, 6.92819,
59 + .02080, .00835, 313.51825, 7.62855, 6.92966,
60 + 6.21519, 7.24769, 7.64199 /
61 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
62 + .02102, .00844, 341.15173, 8.39955, 7.72396,
63 + 7.03262, 8.02203, 8.41285,
64 + .02124, .00853, 368.98822, 9.19737, 8.54145,
65 + 7.86804, 8.82307, 9.21054,
66 + .02145, .00862, 396.49847, 10.00116, 9.36625,
67 + 8.71308, 9.62987, 10.01421,
68 + .02164, .00871, 423.18488, 10.79744, 10.18132,
69 + 9.54571, 10.42894, 10.81038,
70 + .02184, .00880, 450.92862, 11.63983, 11.04388,
71 + 10.42768, 11.27410, 11.65265,
72 + .02204, .00889, 478.88074, 12.50504, 11.92777,
73 + 11.32906, 12.14199, 12.51775,
74 + .02222, .00897, 506.38092, 13.36928, 12.81161,
75 + 12.23197, 13.00875, 13.38188,
76 + .02240, .00905, 532.71063, 14.21204, 13.67059,
77 + 13.10605, 13.85388, 14.22455 /
78 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
79 + .02258, .00914, 560.44952, 15.10980, 14.58850,
80 + 14.04396, 14.75398, 15.12220,
81 + .02276, .00922, 587.66711, 16.00814, 15.50215,
82 + 14.97171, 15.65461, 16.02044,
83 + .02294, .00930, 614.66376, 16.90871, 16.42021,
84 + 15.90678, 16.55734, 16.92092,
85 + .02310, .00938, 640.64490, 17.78739, 17.31499,
86 + 16.81722, 17.43806, 17.79951,
87 + .02327, .00946, 667.19971, 18.69798, 18.24071,
88 + 17.75747, 18.35067, 18.71000 /
89 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
90 + .01968, .00832, 2.59678, .83010, .00000,
91 + .00000, .42587, .83942,
92 + .01989, .00838, 4.79050, .83723, .00002,
93 + .00000, .43610, .84649,
94 + .02020, .00848, 8.80858, .86193, .02609,
95 + .00000, .46535, .87111,
96 + .02044, .00855, 12.36505, .89240, .06794,
97 + .00000, .49911, .90153,
98 + .02068, .00863, 16.54105, .94133, .12014,
99 + .00000, .55147, .95040,
100 + .02090, .00870, 20.81157, .99242, .17920,
101 + .00000, .60548, 1.00143,
102 + .02111, .00877, 25.23818, 1.05450, .24395,
103 + .00000, .67034, 1.06345,
104 + .02133, .00885, 30.48425, 1.13230, .32674,
105 + .00000, .75105, 1.14118 /
106 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
107 + .02152, .00891, 35.51439, 1.21051, .41072,
108 + .00000, .83177, 1.21934,
109 + .02171, .00898, 40.67585, 1.29750, .50078,
110 + .00000, .92116, 1.30628,
111 + .02185, .00904, 45.07076, 1.37368, .58051,
112 + .00000, .99923, 1.38242,
113 + .02217, .00915, 55.16745, 1.55987, .77438,
114 + .00036, 1.18938, 1.56851,
115 + .02245, .00926, 64.73620, 1.74663, .97076,
116 + .16558, 1.37951, 1.75519,
117 + .02276, .00938, 76.29261, 1.98603, 1.22261,
118 + .47881, 1.62260, 1.99450,
119 + .02309, .00950, 89.21046, 2.27231, 1.51634,
120 + .76862, 1.91266, 2.28068,
121 + .02338, .00962, 101.88441, 2.56414, 1.81716,
122 + 1.07950, 2.20785, 2.57242 /
123 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
124 + .02369, .00975, 115.66533, 2.89188, 2.15724,
125 + 1.43681, 2.53892, 2.90007,
126 + .02394, .00985, 127.71370, 3.18985, 2.46418,
127 + 1.75221, 2.83962, 3.19797,
128 + .02424, .00998, 143.06714, 3.58253, 2.86757,
129 + 2.16633, 3.23554, 3.59055,
130 + .02452, .01010, 157.54303, 3.96212, 3.26014,
131 + 2.57399, 3.61795, 3.97007,
132 + .02477, .01021, 171.15466, 4.33261, 3.63839,
133 + 2.95830, 3.99099, 4.34048,
134 + .02509, .01035, 189.36696, 4.83989, 4.15887,
135 + 3.49223, 4.50144, 4.84766,
136 + .02539, .01049, 207.38838, 5.35579, 4.68879,
137 + 4.03669, 5.02028, 5.36347,
138 + .02568, .01062, 224.63136, 5.86601, 5.20839,
139 + 4.56429, 5.53321, 5.87362 /
140 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
141 + .02596, .01075, 242.77290, 6.41302, 5.76848,
142 + 5.13776, 6.08288, 6.42055,
143 + .02625, .01088, 260.90195, 6.97494, 6.34073,
144 + 5.71947, 6.64735, 6.98238,
145 + .02652, .01100, 278.69458, 7.53729, 6.91445,
146 + 6.30440, 7.21210, 7.54466,
147 + .02677, .01113, 295.83777, 8.09092, 7.47793,
148 + 6.87720, 7.76794, 8.09822,
149 + .02703, .01125, 313.54996, 8.67317, 8.07089,
150 + 7.48069, 8.35239, 8.68040,
151 + .02729, .01137, 331.28183, 9.26774, 8.67505,
152 + 8.09395, 8.94909, 9.27489,
153 + .02753, .01149, 348.62979, 9.85846, 9.27611,
154 + 8.70533, 9.54182, 9.86555,
155 + .02776, .01160, 365.14023, 10.43149, 9.85720,
156 + 9.29397, 10.11672, 10.43853 /
157 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
158 + .02800, .01172, 382.45715, 11.03912, 10.47558,
159 + 9.92333, 10.72621, 11.04609,
160 + .02823, .01183, 399.34082, 11.64399, 11.08776,
161 + 10.54223, 11.33290, 11.65091,
162 + .02846, .01194, 416.01791, 12.24779, 11.70052,
163 + 11.16388, 11.93842, 12.25466,
164 + .02867, .01205, 431.98953, 12.83436, 12.29519,
165 + 11.76659, 12.52661, 12.84117,
166 + .02889, .01216, 448.23413, 13.43965, 12.90782,
167 + 12.38637, 13.13351, 13.44641 /
168 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
169 + .02397, .01013, 2.70121, .71060, .00000,
170 + .00000, .36389, .71517,
171 + .02423, .01023, 4.65910, .71985, .00002,
172 + .00000, .37562, .72438,
173 + .02463, .01038, 8.10702, .74498, .02411,
174 + .00000, .40441, .74946,
175 + .02493, .01050, 11.07010, .77327, .06215,
176 + .00000, .43533, .77771,
177 + .02524, .01062, 14.48190, .81630, .10818,
178 + .00000, .48109, .82069,
179 + .02552, .01073, 17.90894, .86045, .15918,
180 + .00000, .52759, .86481,
181 + .02578, .01083, 21.41267, .91294, .21415,
182 + .00000, .58230, .91726,
183 + .02606, .01095, 25.50925, .97784, .28346,
184 + .00000, .64953, .98212 /
185 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
186 + .02631, .01105, 29.39055, 1.04237, .35284,
187 + .00000, .71606, 1.04662,
188 + .02655, .01115, 33.33157, 1.11331, .42641,
189 + .00000, .78892, 1.11753,
190 + .02674, .01123, 36.65840, 1.17498, .49095,
191 + .00000, .85209, 1.17917,
192 + .02715, .01141, 44.20809, 1.32404, .64603,
193 + .00032, 1.00430, 1.32816,
194 + .02751, .01156, 51.25830, 1.47172, .80093,
195 + .12967, 1.15467, 1.47580,
196 + .02791, .01173, 59.65305, 1.65879, .99703,
197 + .37330, 1.34467, 1.66281,
198 + .02833, .01192, 68.91241, 1.87960, 1.22268,
199 + .59480, 1.56849, 1.88356,
200 + .02872, .01210, 77.88580, 2.10216, 1.45106,
201 + .82983, 1.79373, 2.10607 /
202 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
203 + .02911, .01228, 87.53463, 2.34954, 1.70653,
204 + 1.09723, 2.04375, 2.35339,
205 + .02943, .01243, 95.88535, 2.57232, 1.93488,
206 + 1.33088, 2.26870, 2.57613,
207 + .02983, .01261, 106.42301, 2.86323, 2.23222,
208 + 1.63487, 2.56218, 2.86699,
209 + .03019, .01278, 116.26574, 3.14196, 2.51906,
210 + 1.93167, 2.84314, 3.14567,
211 + .03051, .01293, 125.43786, 3.41176, 2.79314,
212 + 2.20894, 3.11497, 3.41543,
213 + .03093, .01313, 137.60457, 3.77815, 3.16726,
214 + 2.59131, 3.48388, 3.78177,
215 + .03132, .01333, 149.53354, 4.14753, 3.54494,
216 + 2.97803, 3.85558, 4.15110,
217 + .03170, .01351, 160.84229, 4.50985, 3.91218,
218 + 3.34948, 4.22004, 4.51337 /
219 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
220 + .03207, .01369, 172.65150, 4.89545, 4.30532,
221 + 3.75072, 4.60775, 4.89893,
222 + .03244, .01388, 184.35516, 5.28863, 4.70401,
223 + 4.15459, 5.00295, 5.29207,
224 + .03279, .01405, 195.76036, 5.67949, 5.10115,
225 + 4.55822, 5.39571, 5.68289,
226 + .03312, .01422, 206.67247, 6.06186, 5.48877,
227 + 4.95101, 5.77982, 6.06522,
228 + .03346, .01439, 217.87523, 6.46161, 5.89435,
229 + 5.36257, 6.18132, 6.46494,
230 + .03379, .01456, 229.01660, 6.86743, 6.30518,
231 + 5.77834, 6.58882, 6.87071,
232 + .03410, .01472, 239.85460, 7.26844, 6.71181,
233 + 6.19083, 6.99142, 7.27170,
234 + .03441, .01487, 250.10423, 7.65538, 7.10279,
235 + 6.58574, 7.37984, 7.65861 /
236 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
237 + .03471, .01503, 260.80753, 8.06381, 7.51716,
238 + 7.00645, 7.78974, 8.06700,
239 + .03502, .01519, 271.17145, 8.46821, 7.92505,
240 + 7.41762, 8.19558, 8.47137,
241 + .03531, .01534, 281.36646, 8.87019, 8.33176,
242 + 7.82922, 8.59892, 8.87333,
243 + .03558, .01549, 291.07977, 9.25897, 8.72473,
244 + 8.22652, 8.98898, 9.26208,
245 + .03587, .01563, 300.90906, 9.65843, 9.12782,
246 + 8.63327, 9.38971, 9.66151 /
247 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
248 + .02690, .01138, 2.76381, .64853, .00000,
249 + .00000, .33197, .65113,
250 + .02721, .01151, 4.58370, .65865, .00002,
251 + .00000, .34428, .66122,
252 + .02767, .01170, 7.72221, .68373, .02301,
253 + .00000, .37256, .68626,
254 + .02801, .01184, 10.37511, .71073, .05896,
255 + .00000, .40188, .71324,
256 + .02837, .01200, 13.39606, .75061, .10170,
257 + .00000, .44417, .75308,
258 + .02868, .01213, 16.39907, .79114, .14846,
259 + .00000, .48675, .79358,
260 + .02899, .01227, 19.44500, .83868, .19835,
261 + .00000, .53624, .84109,
262 + .02931, .01241, 22.97827, .89699, .26073,
263 + .00000, .59658, .89937 /
264 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
265 + .02960, .01254, 26.30256, .95458, .32270,
266 + .00000, .65593, .95694,
267 + .02988, .01266, 29.65726, 1.01744, .38796,
268 + .00000, .72047, 1.01977,
269 + .03010, .01276, 32.47479, 1.07183, .44491,
270 + .00000, .77617, 1.07414,
271 + .03057, .01298, 38.82247, 1.20242, .58078,
272 + .00030, .90953, 1.20469,
273 + .03099, .01317, 44.69851, 1.33085, .71538,
274 + .11232, 1.04031, 1.33308,
275 + .03145, .01339, 51.63612, 1.49235, .88447,
276 + .32254, 1.20438, 1.49454,
277 + .03194, .01362, 59.22810, 1.68150, 1.07750,
278 + .51168, 1.39616, 1.68366,
279 + .03239, .01384, 66.53202, 1.87087, 1.27151,
280 + .71109, 1.58787, 1.87299 /
281 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
282 + .03284, .01406, 74.33386, 2.08007, 1.48715,
283 + .93659, 1.79938, 2.08215,
284 + .03322, .01424, 81.04548, 2.26740, 1.67881,
285 + 1.13244, 1.98860, 2.26945,
286 + .03369, .01447, 89.46533, 2.51070, 1.92702,
287 + 1.38587, 2.23414, 2.51271,
288 + .03410, .01467, 97.28644, 2.74258, 2.16522,
289 + 1.63211, 2.46798, 2.74457,
290 + .03448, .01486, 104.53514, 2.96594, 2.39169,
291 + 1.86088, 2.69310, 2.96790,
292 + .03496, .01511, 114.10131, 3.26780, 2.69936,
293 + 2.17500, 2.99716, 3.26973,
294 + .03542, .01534, 123.42919, 3.57056, 3.00840,
295 + 2.49113, 3.30194, 3.57245,
296 + .03585, .01556, 132.22295, 3.86607, 3.30740,
297 + 2.79317, 3.59932, 3.86793 /
298 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
299 + .03629, .01578, 141.36496, 4.17923, 3.62618,
300 + 3.11823, 3.91431, 4.18106,
301 + .03672, .01600, 150.38000, 4.49714, 3.94803,
302 + 3.44391, 4.23399, 4.49895,
303 + .03713, .01622, 159.12776, 4.81192, 4.26741,
304 + 3.76823, 4.55043, 4.81371,
305 + .03751, .01642, 167.46211, 5.11871, 4.57798,
306 + 4.08263, 4.85875, 5.12048,
307 + .03790, .01662, 175.98549, 5.43834, 4.90182,
308 + 4.41099, 5.17989, 5.44008,
309 + .03829, .01683, 184.42841, 5.76168, 5.22873,
310 + 4.74153, 5.50470, 5.76340,
311 + .03866, .01702, 192.61319, 6.08018, 5.55130,
312 + 5.06852, 5.82458, 6.08188,
313 + .03901, .01721, 200.32385, 6.38652, 5.86046,
314 + 5.38050, 6.13221, 6.38821 /
315 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
316 + .03936, .01740, 208.35481, 6.70901, 6.18731,
317 + 5.71217, 6.45599, 6.71068,
318 + .03972, .01758, 216.09799, 7.02730, 6.50796,
319 + 6.03510, 6.77553, 7.02895,
320 + .04006, .01777, 223.69629, 7.34290, 6.82695,
321 + 6.35772, 7.09231, 7.34454,
322 + .04038, .01794, 230.91319, 7.64732, 7.13436,
323 + 6.66831, 7.39784, 7.64895,
324 + .04071, .01812, 238.19307, 7.95932, 7.44886,
325 + 6.98544, 7.71095, 7.96092 /
326 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
327 + .02921, .01237, 2.80882, .60767, .00000,
328 + .00000, .31109, .60921,
329 + .02954, .01252, 4.53079, .61827, .00002,
330 + .00000, .32368, .61978,
331 + .03005, .01274, 7.45989, .64319, .02226,
332 + .00000, .35153, .64467,
333 + .03042, .01291, 9.90777, .66929, .05679,
334 + .00000, .37974, .67074,
335 + .03082, .01309, 12.67388, .70706, .09731,
336 + .00000, .41970, .70848,
337 + .03117, .01325, 15.40344, .74518, .14125,
338 + .00000, .45969, .74658,
339 + .03151, .01340, 18.15658, .78948, .18780,
340 + .00000, .50577, .79085,
341 + .03187, .01357, 21.33235, .84348, .24565,
342 + .00000, .56163, .84484 /
343 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
344 + .03218, .01372, 24.30551, .89657, .30279,
345 + .00000, .61632, .89790,
346 + .03249, .01386, 27.29273, .95421, .36269,
347 + .00000, .67548, .95552,
348 + .03274, .01398, 29.79258, 1.00391, .41476,
349 + .00000, .72639, 1.00521,
350 + .03326, .01423, 35.39534, 1.12267, .53835,
351 + .00028, .84767, 1.12394,
352 + .03372, .01446, 40.54929, 1.23884, .66007,
353 + .10141, .96596, 1.24007,
354 + .03424, .01471, 46.59734, 1.38415, .81213,
355 + .29066, 1.11362, 1.38536,
356 + .03478, .01498, 53.17852, 1.55338, .98475,
357 + .45967, 1.28524, 1.55456,
358 + .03528, .01522, 59.47687, 1.72199, 1.15736,
359 + .63704, 1.45597, 1.72314 /
360 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
361 + .03578, .01548, 66.17272, 1.90742, 1.34837,
362 + .83676, 1.64351, 1.90855,
363 + .03621, .01569, 71.90795, 2.07281, 1.51744,
364 + 1.00946, 1.81061, 2.07391,
365 + .03672, .01595, 79.07272, 2.28676, 1.73553,
366 + 1.23207, 2.02661, 2.28784,
367 + .03718, .01619, 85.70139, 2.48991, 1.94405,
368 + 1.44759, 2.23154, 2.49097,
369 + .03760, .01641, 91.82097, 2.68491, 2.14159,
370 + 1.64705, 2.42814, 2.68596,
371 + .03814, .01669, 99.86725, 2.94753, 2.40907,
372 + 1.92006, 2.69275, 2.94855,
373 + .03865, .01695, 107.68206, 3.20996, 2.67675,
374 + 2.19384, 2.95702, 3.21096,
375 + .03914, .01721, 115.01953, 3.46522, 2.93482,
376 + 2.45443, 3.21397, 3.46620 /
377 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
378 + .03962, .01746, 122.62321, 3.73489, 3.20915,
379 + 2.73413, 3.48531, 3.73585,
380 + .04010, .01772, 130.09390, 4.00779, 3.48525,
381 + 3.01342, 3.75981, 4.00873,
382 + .04055, .01796, 137.32101, 4.27724, 3.75848,
383 + 3.29083, 4.03076, 4.27818,
384 + .04098, .01819, 144.18538, 4.53915, 4.02345,
385 + 3.55902, 4.29406, 4.54007,
386 + .04142, .01842, 151.18591, 4.81133, 4.29909,
387 + 3.83846, 4.56762, 4.81224,
388 + .04185, .01865, 158.10007, 5.08599, 4.57663,
389 + 4.11903, 4.84361, 5.08688,
390 + .04226, .01887, 164.78622, 5.35592, 4.84990,
391 + 4.39601, 5.11479, 5.35680,
392 + .04265, .01909, 171.06720, 5.61495, 5.11119,
393 + 4.65963, 5.37500, 5.61583 /
394 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
395 + .04304, .01930, 177.59706, 5.88712, 5.38695,
396 + 4.93947, 5.64833, 5.88799,
397 + .04344, .01951, 183.87283, 6.15513, 5.65681,
398 + 5.21118, 5.91747, 6.15599,
399 + .04381, .01972, 190.02084, 6.42039, 5.92484,
400 + 5.48225, 6.18381, 6.42124,
401 + .04417, .01992, 195.84616, 6.67578, 6.18265,
402 + 5.74271, 6.44021, 6.67663,
403 + .04453, .02011, 201.70891, 6.93703, 6.44591,
404 + 6.00814, 6.70247, 6.93787 /
405 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
406 + .03113, .01320, 2.84400, .57770, .00000,
407 + .00000, .29584, .57857,
408 + .03149, .01336, 4.49006, .58859, .00002,
409 + .00000, .30859, .58944,
410 + .03204, .01362, 7.26226, .61334, .02169,
411 + .00000, .33606, .61416,
412 + .03244, .01380, 9.55916, .63873, .05514,
413 + .00000, .36342, .63953,
414 + .03287, .01401, 12.13950, .67493, .09401,
415 + .00000, .40166, .67571,
416 + .03325, .01419, 14.67132, .71127, .13587,
417 + .00000, .43974, .71202,
418 + .03361, .01436, 17.21404, .75319, .17996,
419 + .00000, .48332, .75393,
420 + .03400, .01455, 20.13434, .80406, .23449,
421 + .00000, .53592, .80478 /
422 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
423 + .03434, .01472, 22.85784, .85387, .28813,
424 + .00000, .58722, .85457,
425 + .03468, .01488, 25.58490, .90772, .34414,
426 + .00000, .64249, .90841,
427 + .03494, .01501, 27.86062, .95405, .39269,
428 + .00000, .68993, .95472,
429 + .03551, .01529, 32.94036, 1.06429, .50746,
430 + .00027, .80252, 1.06494,
431 + .03601, .01554, 37.59021, 1.17167, .61997,
432 + .09365, .91188, 1.17230,
433 + .03657, .01583, 43.02061, 1.30543, .75993,
434 + .26804, 1.04783, 1.30604,
435 + .03716, .01613, 48.90368, 1.46052, .91809,
436 + .42287, 1.20514, 1.46111,
437 + .03770, .01640, 54.51081, 1.61445, 1.07564,
438 + .58478, 1.36104, 1.61501 /
439 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
440 + .03825, .01669, 60.44971, 1.78316, 1.24937,
441 + .76647, 1.53170, 1.78371,
442 + .03871, .01692, 65.51928, 1.93314, 1.40264,
443 + .92305, 1.68328, 1.93368,
444 + .03927, .01722, 71.83153, 2.12659, 1.59976,
445 + 1.12426, 1.87862, 2.12710,
446 + .03977, .01748, 77.65329, 2.30973, 1.78768,
447 + 1.31854, 2.06341, 2.31023,
448 + .04023, .01772, 83.01126, 2.48503, 1.96521,
449 + 1.49778, 2.24021, 2.48552,
450 + .04081, .01803, 90.03576, 2.72049, 2.20495,
451 + 1.74251, 2.47752, 2.72097,
452 + .04137, .01833, 96.83708, 2.95511, 2.44420,
453 + 1.98726, 2.71384, 2.95557,
454 + .04189, .01861, 103.20245, 3.18268, 2.67420,
455 + 2.21950, 2.94299, 3.18314 /
456 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
457 + .04242, .01889, 109.78229, 3.42253, 2.91815,
458 + 2.46827, 3.18439, 3.42298,
459 + .04294, .01917, 116.22827, 3.66466, 3.16305,
460 + 2.71602, 3.42801, 3.66510,
461 + .04343, .01944, 122.44904, 3.90320, 3.40490,
462 + 2.96160, 3.66794, 3.90363,
463 + .04390, .01970, 128.34305, 4.13458, 3.63894,
464 + 3.19851, 3.90061, 4.13500,
465 + .04437, .01995, 134.34097, 4.37457, 3.88193,
466 + 3.44489, 4.14187, 4.37498,
467 + .04484, .02021, 140.25114, 4.61626, 4.12613,
468 + 3.69178, 4.38480, 4.61667,
469 + .04528, .02045, 145.95520, 4.85338, 4.36615,
470 + 3.93512, 4.62308, 4.85378,
471 + .04571, .02069, 151.30153, 5.08051, 4.59523,
472 + 4.16627, 4.85130, 5.08091 /
473 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
474 + .04613, .02092, 156.85155, 5.31881, 4.83668,
475 + 4.41134, 5.09068, 5.31921,
476 + .04656, .02116, 162.17198, 5.55303, 5.07248,
477 + 4.64879, 5.32596, 5.55343,
478 + .04697, .02138, 167.37685, 5.78454, 5.30641,
479 + 4.88541, 5.55847, 5.78493,
480 + .04736, .02160, 172.29993, 6.00710, 5.53107,
481 + 5.11243, 5.78196, 6.00749,
482 + .04775, .02182, 177.24495, 6.23444, 5.76014,
483 + 5.34342, 6.01024, 6.23483 /
484 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
485 + .03797, .01619, 2.95410, .49346, .00000,
486 + .00000, .25332, .49313,
487 + .03843, .01643, 4.36491, .50491, .00002,
488 + .00000, .26628, .50458,
489 + .03912, .01679, 6.67868, .52882, .01996,
490 + .00000, .29238, .52846,
491 + .03964, .01706, 8.54772, .55202, .05023,
492 + .00000, .31717, .55166,
493 + .04018, .01735, 10.61083, .58367, .08430,
494 + .00000, .35046, .58330,
495 + .04066, .01761, 12.59987, .61492, .12018,
496 + .00000, .38311, .61454,
497 + .04113, .01785, 14.57125, .65015, .15730,
498 + .00000, .41966, .64976,
499 + .04163, .01812, 16.80486, .69226, .20256,
500 + .00000, .46317, .69187 /
501 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
502 + .04207, .01836, 18.86316, .73299, .24646,
503 + .00000, .50510, .73259,
504 + .04249, .01859, 20.90223, .77643, .29176,
505 + .00000, .54968, .77603,
506 + .04284, .01877, 22.58892, .81348, .33066,
507 + .00000, .58762, .81307,
508 + .04357, .01917, 26.30577, .90056, .42147,
509 + .00023, .67658, .90014,
510 + .04421, .01952, 29.65526, .98420, .50921,
511 + .07296, .76181, .98378,
512 + .04493, .01992, 33.50751, 1.08702, .61688,
513 + .20788, .86639, 1.08660,
514 + .04569, .02034, 37.62299, 1.20454, .73686,
515 + .32549, .98569, 1.20412,
516 + .04639, .02073, 41.49468, 1.31978, .85491,
517 + .44710, 1.10250, 1.31935 /
518 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
519 + .04709, .02112, 45.54741, 1.44470, .98364,
520 + .58212, 1.22899, 1.44428,
521 + .04769, .02146, 48.96956, 1.55464, 1.09608,
522 + .69723, 1.34021, 1.55423,
523 + .04841, .02186, 53.18588, 1.69508, 1.23927,
524 + .84372, 1.48217, 1.69466,
525 + .04905, .02223, 57.03621, 1.82681, 1.37455,
526 + .98395, 1.61522, 1.82640,
527 + .04965, .02256, 60.54451, 1.95181, 1.50121,
528 + 1.11204, 1.74141, 1.95141,
529 + .05040, .02299, 65.10178, 2.11828, 1.67083,
530 + 1.28559, 1.90937, 2.11789,
531 + .05112, .02340, 69.47065, 2.28266, 1.83862,
532 + 1.45764, 2.07512, 2.28227,
533 + .05180, .02378, 73.51698, 2.44073, 1.99847,
534 + 1.61934, 2.23445, 2.44035 /
535 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
536 + .05248, .02417, 77.66644, 2.60607, 2.16681,
537 + 1.79141, 2.40103, 2.60571,
538 + .05315, .02456, 81.69344, 2.77170, 2.33446,
539 + 1.96133, 2.56785, 2.77134,
540 + .05378, .02492, 85.54959, 2.93374, 2.49891,
541 + 2.12868, 2.73100, 2.93340,
542 + .05439, .02527, 89.17443, 3.08987, 2.65699,
543 + 2.28903, 2.88817, 3.08954,
544 + .05500, .02562, 92.83694, 3.25082, 2.82014,
545 + 2.45481, 3.05014, 3.25050,
546 + .05560, .02596, 96.41853, 3.41191, 2.98306,
547 + 2.61985, 3.21222, 3.41161,
548 + .05617, .02630, 99.85363, 3.56907, 3.14234,
549 + 2.78170, 3.37031, 3.56878,
550 + .05672, .02661, 103.04897, 3.71876, 3.29346,
551 + 2.93446, 3.52087, 3.71848 /
552 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
553 + .05727, .02693, 106.35128, 3.87508, 3.45207,
554 + 3.09586, 3.67806, 3.87481,
555 + .05782, .02725, 109.48943, 4.02783, 3.60600,
556 + 3.25111, 3.83165, 4.02757,
557 + .05834, .02755, 112.54659, 4.17816, 3.75809,
558 + 3.40531, 3.98278, 4.17791,
559 + .05885, .02784, 115.42027, 4.32199, 3.90347,
560 + 3.55252, 4.12737, 4.32176,
561 + .05935, .02814, 118.28902, 4.46823, 4.05101,
562 + 3.70158, 4.27436, 4.46802 /
563 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
564 + .04639, .02004, 3.06293, .42161, .00000,
565 + .00000, .21750, .42114,
566 + .04698, .02037, 4.24084, .43319, .00002,
567 + .00000, .23029, .43271,
568 + .04786, .02088, 6.13604, .45586, .01827,
569 + .00000, .25475, .45538,
570 + .04852, .02126, 7.63175, .47687, .04550,
571 + .00000, .27704, .47640,
572 + .04922, .02167, 9.25560, .50437, .07519,
573 + .00000, .30587, .50390,
574 + .04984, .02203, 10.79385, .53108, .10574,
575 + .00000, .33372, .53061,
576 + .05044, .02237, 12.29875, .56049, .13677,
577 + .00000, .36421, .56002,
578 + .05108, .02275, 13.98059, .59511, .17404,
579 + .00000, .39995, .59465 /
580 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
581 + .05164, .02308, 15.51177, .62815, .20968,
582 + .00000, .43397, .62769,
583 + .05219, .02340, 17.01226, .66288, .24601,
584 + .00000, .46963, .66243,
585 + .05263, .02366, 18.24235, .69224, .27690,
586 + .00000, .49971, .69180,
587 + .05358, .02422, 20.91710, .76032, .34811,
588 + .00021, .56932, .75989,
589 + .05440, .02471, 23.28836, .82476, .41588,
590 + .05647, .63505, .82434,
591 + .05533, .02526, 25.97167, .90288, .49791,
592 + .16016, .71460, .90248,
593 + .05632, .02584, 28.79719, .99082, .58798,
594 + .24886, .80398, .99043,
595 + .05722, .02638, 31.41946, 1.07596, .67549,
596 + .33953, .89041, 1.07560 /
597 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
598 + .05813, .02692, 34.13087, 1.16721, .76983,
599 + .43908, .98294, 1.16687,
600 + .05889, .02738, 36.39437, 1.24668, .85138,
601 + .52301, 1.06346, 1.24636,
602 + .05983, .02794, 39.15232, 1.34718, .95419,
603 + .62876, 1.16519, 1.34689,
604 + .06066, .02844, 41.64487, 1.44056, 1.05042,
605 + .72909, 1.25965, 1.44029,
606 + .06143, .02890, 43.89167, 1.52837, 1.13968,
607 + .81980, 1.34843, 1.52811,
608 + .06241, .02949, 46.78208, 1.64429, 1.25820,
609 + .94171, 1.46556, 1.64406,
610 + .06333, .03004, 49.52397, 1.75769, 1.37436,
611 + 1.06148, 1.58008, 1.75749,
612 + .06421, .03057, 52.03463, 1.86575, 1.48399,
613 + 1.17290, 1.68918, 1.86558 /
614 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
615 + .06508, .03109, 54.58787, 1.97793, 1.59861,
616 + 1.29068, 1.80237, 1.97779,
617 + .06595, .03161, 57.04021, 2.08938, 1.71181,
618 + 1.40596, 1.91480, 2.08927,
619 + .06677, .03211, 59.36906, 2.19765, 1.82207,
620 + 1.51874, 2.02398, 2.19757,
621 + .06755, .03257, 61.53922, 2.30126, 1.92733,
622 + 1.62602, 2.12844, 2.30121,
623 + .06833, .03305, 63.71518, 2.40738, 2.03528,
624 + 1.73627, 2.23540, 2.40736,
625 + .06911, .03351, 65.82523, 2.51292, 2.14237,
626 + 1.84528, 2.34175, 2.51293,
627 + .06985, .03396, 67.83522, 2.61529, 2.24650,
628 + 1.95161, 2.44489, 2.61532,
629 + .07055, .03438, 69.68893, 2.71221, 2.34466,
630 + 2.05131, 2.54252, 2.71227 /
631 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
632 + .07126, .03481, 71.59602, 2.81294, 2.44727,
633 + 2.15625, 2.64398, 2.81304,
634 + .07197, .03523, 73.38959, 2.91076, 2.54615,
635 + 2.25643, 2.74249, 2.91088,
636 + .07264, .03564, 75.12943, 3.00661, 2.64348,
637 + 2.35558, 2.83900, 3.00675,
638 + .07328, .03602, 76.75350, 3.09786, 2.73604,
639 + 2.44976, 2.93087, 3.09803,
640 + .07393, .03641, 78.36304, 3.19019, 2.82949,
641 + 2.54461, 3.02381, 3.19039 /
642 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
643 + .05222, .02286, 3.12376, .38501, .00000,
644 + .00000, .19938, .38478,
645 + .05290, .02327, 4.16793, .39649, .00002,
646 + .00000, .21194, .39626,
647 + .05393, .02389, 5.83460, .41827, .01727,
648 + .00000, .23531, .41806,
649 + .05470, .02435, 7.13319, .43798, .04276,
650 + .00000, .25615, .43777,
651 + .05552, .02485, 8.52999, .46318, .07001,
652 + .00000, .28254, .46299,
653 + .05623, .02528, 9.83948, .48742, .09768,
654 + .00000, .30779, .48723,
655 + .05693, .02570, 11.11092, .51374, .12547,
656 + .00000, .33508, .51357,
657 + .05768, .02616, 12.52029, .54444, .15854,
658 + .00000, .36678, .54428 /
659 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
660 + .05833, .02656, 13.79420, .57350, .18991,
661 + .00000, .39671, .57336,
662 + .05897, .02695, 15.03449, .60378, .22164,
663 + .00000, .42782, .60365,
664 + .05949, .02727, 16.04583, .62923, .24847,
665 + .00000, .45391, .62911,
666 + .06059, .02794, 18.22705, .68777, .30983,
667 + .00019, .51382, .68768,
668 + .06155, .02853, 20.14139, .74268, .36771,
669 + .04835, .56988, .74261,
670 + .06263, .02920, 22.28590, .80867, .43718,
671 + .13675, .63715, .80863,
672 + .06378, .02990, 24.52433, .88227, .51279,
673 + .21152, .71204, .88227,
674 + .06483, .03055, 26.58451, .95298, .58568,
675 + .28741, .78391, .95301 /
676 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
677 + .06589, .03120, 28.69873, 1.02825, .66373,
678 + .37019, .86032, 1.02831,
679 + .06678, .03175, 30.45131, 1.09337, .73076,
680 + .43952, .92638, 1.09346,
681 + .06787, .03242, 32.57201, 1.17523, .81477,
682 + .52633, 1.00935, 1.17536,
683 + .06884, .03302, 34.47643, 1.25085, .89295,
684 + .60825, 1.08594, 1.25101,
685 + .06973, .03357, 36.18145, 1.32157, .96506,
686 + .68185, 1.15753, 1.32176,
687 + .07087, .03427, 38.36169, 1.41443, 1.06032,
688 + .78029, 1.25149, 1.41467,
689 + .07195, .03494, 40.41636, 1.50477, 1.15316,
690 + .87647, 1.34283, 1.50504,
691 + .07296, .03556, 42.28400, 1.59038, 1.24028,
692 + .96539, 1.42937, 1.59069 /
693 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
694 + .07398, .03619, 44.17350, 1.67884, 1.33097,
695 + 1.05901, 1.51875, 1.67919,
696 + .07499, .03680, 45.97627, 1.76629, 1.42007,
697 + 1.15014, 1.60708, 1.76669,
698 + .07594, .03739, 47.67925, 1.85088, 1.50649,
699 + 1.23894, 1.69250, 1.85131,
700 + .07684, .03795, 49.25727, 1.93148, 1.58864,
701 + 1.32303, 1.77387, 1.93196,
702 + .07775, .03850, 50.83173, 2.01373, 1.67258,
703 + 1.40913, 1.85687, 2.01424,
704 + .07865, .03906, 52.35015, 2.09519, 1.75551,
705 + 1.49390, 1.93908, 2.09575,
706 + .07951, .03958, 53.79026, 2.17393, 1.83587,
707 + 1.57633, 2.01852, 2.17453,
708 + .08032, .04008, 55.11074, 2.24821, 1.91134,
709 + 1.65329, 2.09344, 2.24884 /
710 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
711 + .08114, .04058, 56.46558, 2.32519, 1.99002,
712 + 1.73413, 2.17108, 2.32586,
713 + .08196, .04108, 57.73061, 2.39965, 2.06552,
714 + 1.81093, 2.24617, 2.40036,
715 + .08274, .04156, 58.95456, 2.47242, 2.13966,
716 + 1.88678, 2.31954, 2.47316,
717 + .08348, .04201, 60.09168, 2.54148, 2.20994,
718 + 1.95860, 2.38917, 2.54226,
719 + .08423, .04247, 61.21302, 2.61115, 2.28068,
720 + 2.03070, 2.45940, 2.61196 /
721 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
722 + .05685, .02522, 3.16433, .36146, .00000,
723 + .00000, .18774, .36147,
724 + .05761, .02569, 4.11560, .37279, .00002,
725 + .00000, .20007, .37282,
726 + .05876, .02641, 5.62657, .39388, .01654,
727 + .00000, .22262, .39393,
728 + .05962, .02694, 6.79336, .41263, .04079,
729 + .00000, .24242, .41269,
730 + .06053, .02751, 8.04031, .43623, .06635,
731 + .00000, .26712, .43632,
732 + .06133, .02801, 9.20057, .45878, .09205,
733 + .00000, .29059, .45888,
734 + .06211, .02850, 10.32111, .48302, .11766,
735 + .00000, .31572, .48314,
736 + .06295, .02902, 11.55588, .51110, .14793,
737 + .00000, .34473, .51124 /
738 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
739 + .06368, .02948, 12.66617, .53752, .17647,
740 + .00000, .37195, .53768,
741 + .06440, .02993, 13.74211, .56488, .20518,
742 + .00000, .40008, .56506,
743 + .06497, .03029, 14.61602, .58777, .22936,
744 + .00000, .42357, .58797,
745 + .06620, .03106, 16.48958, .64012, .28433,
746 + .00018, .47719, .64036,
747 + .06727, .03173, 18.12166, .68890, .33586,
748 + .04314, .52704, .68917,
749 + .06849, .03250, 19.93624, .74716, .39731,
750 + .12177, .58648, .74747,
751 + .06977, .03330, 21.81818, .81170, .46377,
752 + .18775, .65222, .81205,
753 + .07094, .03403, 23.53963, .87335, .52749,
754 + .25436, .71494, .87374 /
755 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
756 + .07213, .03478, 25.29647, .93863, .59537,
757 + .32667, .78129, .93907,
758 + .07312, .03540, 26.74517, .99486, .65340,
759 + .38693, .83839, .99533,
760 + .07433, .03616, 28.48916, 1.06522, .72581,
761 + .46206, .90979, 1.06574,
762 + .07541, .03684, 30.04790, 1.12995, .79293,
763 + .53267, .97542, 1.13051,
764 + .07641, .03747, 31.43626, 1.19023, .85456,
765 + .59583, 1.03651, 1.19083,
766 + .07768, .03826, 33.20363, 1.26909, .93568,
767 + .68000, 1.11639, 1.26974,
768 + .07888, .03901, 34.86102, 1.34548, 1.01443,
769 + .76190, 1.19373, 1.34618,
770 + .08001, .03972, 36.35911, 1.41758, 1.08801,
771 + .83728, 1.26671, 1.41834 /
772 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
773 + .08115, .04043, 37.86890, 1.49183, 1.16435,
774 + .91641, 1.34182, 1.49264,
775 + .08227, .04112, 39.30195, 1.56497, 1.23908,
776 + .99314, 1.41578, 1.56583,
777 + .08333, .04178, 40.65031, 1.63549, 1.31134,
778 + 1.06767, 1.48708, 1.63639,
779 + .08433, .04240, 41.89430, 1.70248, 1.37981,
780 + 1.13803, 1.55479, 1.70343,
781 + .08534, .04303, 43.13081, 1.77063, 1.44958,
782 + 1.20986, 1.62366, 1.77163,
783 + .08634, .04365, 44.31818, 1.83795, 1.51831,
784 + 1.28038, 1.69167, 1.83900,
785 + .08729, .04424, 45.44058, 1.90285, 1.58474,
786 + 1.34878, 1.75723, 1.90394,
787 + .08819, .04480, 46.46502, 1.96390, 1.64694,
788 + 1.41245, 1.81889, 1.96503 /
789 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
790 + .08911, .04536, 47.51407, 2.02704, 1.71168,
791 + 1.47923, 1.88265, 2.02823,
792 + .09001, .04592, 48.48780, 2.08793, 1.77359,
793 + 1.54244, 1.94414, 2.08916,
794 + .09087, .04645, 49.42817, 2.14733, 1.83429,
795 + 1.60477, 2.00411, 2.14860,
796 + .09170, .04696, 50.29848, 2.20357, 1.89170,
797 + 1.66366, 2.06088, 2.20489,
798 + .09253, .04747, 51.15329, 2.26017, 1.94934,
799 + 1.72263, 2.11802, 2.26153 /
800 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
801 + .06076, .02744, 3.19612, .34535, .00000,
802 + .00000, .17961, .34532,
803 + .06159, .02797, 4.07957, .35657, .00002,
804 + .00000, .19176, .35655,
805 + .06285, .02877, 5.47187, .37707, .01595,
806 + .00000, .21361, .37708,
807 + .06379, .02937, 6.53831, .39503, .03919,
808 + .00000, .23256, .39507,
809 + .06480, .03001, 7.67199, .41737, .06344,
810 + .00000, .25592, .41743,
811 + .06568, .03057, 8.72036, .43857, .08763,
812 + .00000, .27800, .43867,
813 + .06653, .03112, 9.72854, .46120, .11157,
814 + .00000, .30145, .46132,
815 + .06745, .03170, 10.83420, .48726, .13972,
816 + .00000, .32838, .48741 /
817 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
818 + .06825, .03221, 11.82423, .51167, .16612,
819 + .00000, .35355, .51185,
820 + .06904, .03271, 12.78005, .53682, .19257,
821 + .00000, .37941, .53703,
822 + .06967, .03311, 13.55394, .55781, .21477,
823 + .00000, .40096, .55803,
824 + .07102, .03397, 15.20488, .60555, .26501,
825 + .00017, .44989, .60582,
826 + .07220, .03472, 16.63424, .64981, .31184,
827 + .03929, .49515, .65012,
828 + .07353, .03557, 18.21366, .70240, .36742,
829 + .11072, .54885, .70276,
830 + .07493, .03646, 19.84305, .76034, .42722,
831 + .17025, .60792, .76076,
832 + .07621, .03728, 21.32609, .81544, .48429,
833 + .23011, .66403, .81592 /
834 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
835 + .07751, .03810, 22.83273, .87356, .54484,
836 + .29484, .72315, .87409,
837 + .07860, .03879, 24.06967, .92342, .59642,
838 + .34856, .77383, .92399,
839 + .07993, .03963, 25.55252, .98559, .66053,
840 + .41530, .83697, .98622,
841 + .08111, .04038, 26.87277, 1.04258, .71977,
842 + .47783, .89482, 1.04327,
843 + .08220, .04106, 28.04374, 1.09549, .77398,
844 + .53354, .94850, 1.09623,
845 + .08359, .04194, 29.52871, 1.16448, .84511,
846 + .60759, 1.01845, 1.16528,
847 + .08490, .04276, 30.91543, 1.23109, .91394,
848 + .67941, 1.08596, 1.23195,
849 + .08614, .04354, 32.16307, 1.29375, .97803,
850 + .74526, 1.14944, 1.29468 /
851 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
852 + .08738, .04431, 33.41642, 1.35810, 1.04435,
853 + .81423, 1.21461, 1.35909,
854 + .08860, .04508, 34.60083, 1.42130, 1.10907,
855 + .88088, 1.27859, 1.42235,
856 + .08975, .04580, 35.71157, 1.48207, 1.17150,
857 + .94548, 1.34010, 1.48318,
858 + .09084, .04648, 36.73269, 1.53966, 1.23051,
859 + 1.00630, 1.39837, 1.54082,
860 + .09195, .04716, 37.74429, 1.59811, 1.29048,
861 + 1.06825, 1.45750, 1.59933,
862 + .09303, .04784, 38.71195, 1.65570, 1.34943,
863 + 1.12893, 1.51576, 1.65698,
864 + .09407, .04848, 39.62410, 1.71111, 1.40629,
865 + 1.18767, 1.57179, 1.71244,
866 + .09505, .04909, 40.45333, 1.76311, 1.45941,
867 + 1.24220, 1.62437, 1.76449 /
868 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
869 + .09604, .04970, 41.30114, 1.81681, 1.51462,
870 + 1.29933, 1.67867, 1.81825,
871 + .09702, .05030, 42.08379, 1.86846, 1.56726,
872 + 1.35325, 1.73088, 1.86995,
873 + .09796, .05088, 42.83852, 1.91876, 1.61881,
874 + 1.40636, 1.78173, 1.92031,
875 + .09885, .05143, 43.53482, 1.96631, 1.66747,
876 + 1.45643, 1.82979, 1.96790,
877 + .09975, .05199, 44.21644, 2.01407, 1.71624,
878 + 1.50647, 1.87806, 2.01571 /
879 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
880 + .07508, .03623, 3.26381, .30095, .00000,
881 + .00000, .15726, .30109,
882 + .07621, .03698, 3.94076, .31149, .00002,
883 + .00000, .16857, .31168,
884 + .07791, .03812, 4.98498, .32984, .01400,
885 + .00000, .18804, .33010,
886 + .07918, .03897, 5.76591, .34528, .03404,
887 + .00000, .20428, .34558,
888 + .08053, .03988, 6.58349, .36373, .05426,
889 + .00000, .22358, .36409,
890 + .08172, .04067, 7.32519, .38094, .07395,
891 + .00000, .24152, .38135,
892 + .08287, .04143, 8.02926, .39885, .09303,
893 + .00000, .26012, .39931,
894 + .08411, .04225, 8.78991, .41913, .11511,
895 + .00000, .28112, .41964 /
896 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
897 + .08519, .04297, 9.46212, .43783, .13548,
898 + .00000, .30046, .43840,
899 + .08625, .04366, 10.10345, .45681, .15561,
900 + .00000, .32003, .45743,
901 + .08709, .04422, 10.61757, .47247, .17232,
902 + .00000, .33616, .47313,
903 + .08890, .04541, 11.69679, .50757, .20960,
904 + .00014, .37226, .50832,
905 + .09048, .04644, 12.61228, .53955, .24377,
906 + .02893, .40510, .54038,
907 + .09227, .04761, 13.60275, .57696, .28369,
908 + .08109, .44345, .57787,
909 + .09414, .04882, 14.60749, .61745, .32591,
910 + .12366, .48491, .61847,
911 + .09585, .04992, 15.50695, .65540, .36563,
912 + .16589, .52372, .65651 /
913 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
914 + .09758, .05104, 16.40709, .69490, .40724,
915 + .21099, .56409, .69611,
916 + .09903, .05197, 17.13549, .72838, .44225,
917 + .24795, .59827, .72966,
918 + .10079, .05310, 17.99626, .76963, .48527,
919 + .29334, .64037, .77102,
920 + .10235, .05409, 18.75275, .80704, .52460,
921 + .33544, .67853, .80852,
922 + .10379, .05501, 19.41375, .84140, .56020,
923 + .37251, .71355, .84295,
924 + .10562, .05616, 20.24143, .88574, .60646,
925 + .42132, .75875, .88741,
926 + .10735, .05725, 21.00356, .92809, .65074,
927 + .46817, .80189, .92986,
928 + .10897, .05827, 21.67765, .96750, .69152,
929 + .51062, .84202, .96937 /
930 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
931 + .11059, .05929, 22.34751, 1.00761, .73337,
932 + .55475, .88286, 1.00958,
933 + .11218, .06028, 22.97047, 1.04661, .77380,
934 + .59694, .92256, 1.04868,
935 + .11368, .06121, 23.54779, 1.08380, .81249,
936 + .63752, .96040, 1.08596,
937 + .11510, .06209, 24.07136, 1.11875, .84875,
938 + .67540, .99596, 1.12100,
939 + .11653, .06297, 24.58404, 1.15395, .88533,
940 + .71372, 1.03178, 1.15629,
941 + .11793, .06384, 25.06767, 1.18836, .92100,
942 + .75094, 1.06678, 1.19078,
943 + .11927, .06466, 25.51892, 1.22123, .95519,
944 + .78675, 1.10022, 1.22374,
945 + .12053, .06543, 25.92270, 1.25185, .98687,
946 + .81972, 1.13136, 1.25443 /
947 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
948 + .12181, .06621, 26.33344, 1.28330, 1.01965,
949 + .85413, 1.16335, 1.28597,
950 + .12306, .06698, 26.70440, 1.31328, 1.05062,
951 + .88628, 1.19385, 1.31603,
952 + .12426, .06771, 27.06040, 1.34235, 1.08081,
953 + .91783, 1.22341, 1.34518,
954 + .12540, .06840, 27.38445, 1.36964, 1.10914,
955 + .94739, 1.25117, 1.37254,
956 + .12655, .06909, 27.69705, 1.39688, 1.13734,
957 + .97674, 1.27887, 1.39986 /
958 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
959 + .09409, .04952, 3.24185, .26559, .00000,
960 + .00000, .13904, .26601,
961 + .09566, .05059, 3.72768, .27487, .00002,
962 + .00000, .14897, .27538,
963 + .09803, .05220, 4.45878, .29034, .01174,
964 + .00000, .16542, .29099,
965 + .09980, .05339, 4.99154, .30287, .02827,
966 + .00000, .17865, .30362,
967 + .10168, .05465, 5.54112, .31732, .04442,
968 + .00000, .19384, .31818,
969 + .10333, .05575, 6.02998, .33056, .05979,
970 + .00000, .20772, .33152,
971 + .10492, .05680, 6.48794, .34401, .07437,
972 + .00000, .22178, .34507,
973 + .10662, .05792, 6.97511, .35898, .09095,
974 + .00000, .23740, .36014 /
975 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
976 + .10811, .05891, 7.39982, .37258, .10603,
977 + .00000, .25156, .37384,
978 + .10956, .05985, 7.80003, .38616, .12070,
979 + .00000, .26568, .38751,
980 + .11072, .06061, 8.11747, .39725, .13275,
981 + .00000, .27719, .39867,
982 + .11320, .06221, 8.77186, .42172, .15924,
983 + .00012, .30256, .42330,
984 + .11535, .06360, 9.31401, .44363, .18310,
985 + .02049, .32525, .44535,
986 + .11778, .06516, 9.88582, .46881, .21052,
987 + .05711, .35130, .47070,
988 + .12031, .06676, 10.45530, .49560, .23902,
989 + .08636, .37897, .49766,
990 + .12261, .06822, 10.95547, .52031, .26542,
991 + .11498, .40449, .52253 /
992 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
993 + .12493, .06968, 11.44748, .54567, .29272,
994 + .14515, .43066, .54805,
995 + .12687, .07089, 11.83889, .56689, .31539,
996 + .16954, .45255, .56941,
997 + .12921, .07234, 12.29353, .59272, .34292,
998 + .19914, .47917, .59540,
999 + .13129, .07362, 12.68704, .61586, .36780,
1000 + .22632, .50302, .61869,
1001 + .13319, .07479, 13.02433, .63686, .39006,
1002 + .24993, .52465, .63982,
1003 + .13559, .07626, 13.44020, .66367, .41869,
1004 + .28074, .55228, .66681,
1005 + .13786, .07764, 13.81644, .68898, .44579,
1006 + .30998, .57834, .69228,
1007 + .13997, .07891, 14.14149, .71223, .47043,
1008 + .33614, .60229, .71569 /
1009 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
1010 + .14207, .08018, 14.46016, .73567, .49551,
1011 + .36312, .62643, .73928,
1012 + .14413, .08140, 14.74975, .75821, .51947,
1013 + .38863, .64966, .76198,
1014 + .14607, .08256, 15.01388, .77950, .54219,
1015 + .41296, .67159, .78341,
1016 + .14789, .08364, 15.24876, .79931, .56329,
1017 + .43546, .69200, .80336,
1018 + .14972, .08471, 15.47489, .81909, .58442,
1019 + .45804, .71238, .82328,
1020 + .15151, .08576, 15.68364, .83825, .60483,
1021 + .47979, .73213, .84258,
1022 + .15320, .08676, 15.87554, .85642, .62425,
1023 + .50057, .75086, .86087,
1024 + .15480, .08768, 16.04272, .87317, .64209,
1025 + .51953, .76814, .87775 /
1026 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
1027 + .15642, .08862, 16.21190, .89029, .66046,
1028 + .53923, .78579, .89499,
1029 + .15799, .08953, 16.35846, .90643, .67763,
1030 + .55744, .80244, .91125,
1031 + .15949, .09039, 16.49837, .92199, .69429,
1032 + .57524, .81850, .92693,
1033 + .16092, .09121, 16.62263, .93649, .70980,
1034 + .59179, .83346, .94153,
1035 + .16235, .09202, 16.73916, .95084, .72513,
1036 + .60811, .84828, .95599 /
1037 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
1038 + .10852, .06032, 3.15396, .24803, .00000,
1039 + .00000, .12982, .24883,
1040 + .11046, .06162, 3.53640, .25626, .00002,
1041 + .00000, .13868, .25719,
1042 + .11338, .06356, 4.10350, .26968, .01027,
1043 + .00000, .15305, .27082,
1044 + .11554, .06499, 4.51033, .28033, .02460,
1045 + .00000, .16439, .28161,
1046 + .11784, .06649, 4.92668, .29240, .03837,
1047 + .00000, .17718, .29384,
1048 + .11984, .06780, 5.29291, .30333, .05130,
1049 + .00000, .18874, .30491,
1050 + .12178, .06905, 5.63342, .31429, .06341,
1051 + .00000, .20031, .31602,
1052 + .12385, .07038, 5.99232, .32638, .07707,
1053 + .00000, .21303, .32825 /
1054 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
1055 + .12566, .07154, 6.30264, .33726, .08938,
1056 + .00000, .22448, .33927,
1057 + .12741, .07265, 6.59295, .34803, .10126,
1058 + .00000, .23578, .35017,
1059 + .12880, .07353, 6.82180, .35677, .11095,
1060 + .00000, .24495, .35901,
1061 + .13179, .07541, 7.28789, .37588, .13208,
1062 + .00011, .26497, .37835,
1063 + .13437, .07703, 7.66787, .39281, .15092,
1064 + .01636, .28268, .39548,
1065 + .13727, .07882, 8.06142, .41209, .17237,
1066 + .04545, .30283, .41497,
1067 + .14028, .08067, 8.44881, .43237, .19443,
1068 + .06840, .32402, .43549,
1069 + .14301, .08234, 8.78473, .45090, .21469,
1070 + .09067, .34337, .45423 /
1071 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
1072 + .14576, .08400, 9.11138, .46976, .23547,
1073 + .11396, .36305, .47331,
1074 + .14804, .08537, 9.36824, .48541, .25259,
1075 + .13265, .37938, .48914,
1076 + .15080, .08702, 9.66291, .50431, .27324,
1077 + .15517, .39910, .50826,
1078 + .15323, .08846, 9.91527, .52113, .29178,
1079 + .17572, .41664, .52527,
1080 + .15544, .08976, 10.12820, .53627, .30823,
1081 + .19343, .43244, .54059,
1082 + .15824, .09141, 10.38777, .55547, .32928,
1083 + .21641, .45248, .56001,
1084 + .16087, .09293, 10.61949, .57345, .34906,
1085 + .23809, .47125, .57821,
1086 + .16330, .09434, 10.81558, .58984, .36691,
1087 + .25732, .48837, .59480 /
1088 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
1089 + .16573, .09573, 11.00588, .60627, .38498,
1090 + .27706, .50552, .61142,
1091 + .16809, .09707, 11.17543, .62194, .40212,
1092 + .29560, .52190, .62728,
1093 + .17031, .09833, 11.32784, .63664, .41829,
1094 + .31319, .53727, .64217,
1095 + .17239, .09950, 11.46075, .65024, .43322,
1096 + .32936, .55150, .65594,
1097 + .17447, .10067, 11.58672, .66374, .44808,
1098 + .34552, .56563, .66961,
1099 + .17649, .10180, 11.70050, .67674, .46237,
1100 + .36099, .57923, .68277,
1101 + .17841, .10286, 11.80362, .68899, .47590,
1102 + .37571, .59207, .69518,
1103 + .18021, .10385, 11.89083, .70020, .48825,
1104 + .38906, .60383, .70654 /
1105 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
1106 + .18202, .10485, 11.97881, .71163, .50094,
1107 + .40291, .61581, .71812,
1108 + .18378, .10581, 12.05124, .72231, .51270,
1109 + .41560, .62703, .72894,
1110 + .18547, .10673, 12.12015, .73258, .52409,
1111 + .42799, .63782, .73935,
1112 + .18705, .10758, 12.17943, .74208, .53464,
1113 + .43945, .64781, .74899,
1114 + .18864, .10844, 12.23290, .75143, .54501,
1115 + .45069, .65765, .75847 /
1116 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
1117 + .12095, .06982, 3.04339, .23669, .00000,
1118 + .00000, .12379, .23797,
1119 + .12320, .07129, 3.35786, .24402, .00002,
1120 + .00000, .13176, .24547,
1121 + .12658, .07349, 3.81920, .25582, .00917,
1122 + .00000, .14451, .25752,
1123 + .12909, .07510, 4.14636, .26505, .02188,
1124 + .00000, .15446, .26695,
1125 + .13174, .07678, 4.47939, .27539, .03396,
1126 + .00000, .16554, .27750,
1127 + .13405, .07825, 4.77007, .28470, .04521,
1128 + .00000, .17549, .28699,
1129 + .13628, .07964, 5.03891, .29395, .05566,
1130 + .00000, .18536, .29642,
1131 + .13865, .08112, 5.32046, .30408, .06738,
1132 + .00000, .19616, .30675 /
1133 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
1134 + .14073, .08241, 5.56252, .31316, .07787,
1135 + .00000, .20581, .31599,
1136 + .14273, .08364, 5.78776, .32208, .08794,
1137 + .00000, .21528, .32507,
1138 + .14432, .08461, 5.96451, .32928, .09613,
1139 + .00000, .22293, .33241,
1140 + .14772, .08668, 6.32113, .34496, .11385,
1141 + .00010, .23955, .34837,
1142 + .15065, .08845, 6.60816, .35874, .12956,
1143 + .01376, .25415, .36240,
1144 + .15393, .09041, 6.90102, .37432, .14732,
1145 + .03813, .27064, .37825,
1146 + .15732, .09242, 7.18665, .39059, .16545,
1147 + .05719, .28785, .39480,
1148 + .16039, .09422, 7.43186, .40535, .18200,
1149 + .07559, .30346, .40982 /
1150 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
1151 + .16348, .09602, 7.66812, .42028, .19888,
1152 + .09473, .31926, .42502,
1153 + .16603, .09749, 7.85201, .43260, .21272,
1154 + .11000, .33229, .43755,
1155 + .16909, .09924, 8.06074, .44739, .22931,
1156 + .12832, .34794, .45260,
1157 + .17180, .10078, 8.23788, .46048, .24415,
1158 + .14495, .36179, .46592,
1159 + .17424, .10217, 8.38525, .47219, .25724,
1160 + .15921, .37419, .47785,
1161 + .17734, .10390, 8.56307, .48697, .27391,
1162 + .17764, .38985, .49289,
1163 + .18023, .10551, 8.71986, .50073, .28951,
1164 + .19493, .40444, .50690,
1165 + .18290, .10698, 8.84983, .51319, .30350,
1166 + .21020, .41766, .51959 /
1167 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
1168 + .18556, .10844, 8.97477, .52562, .31761,
1169 + .22581, .43085, .53225,
1170 + .18813, .10983, 9.08370, .53740, .33092,
1171 + .24039, .44338, .54426,
1172 + .19054, .11114, 9.18018, .54841, .34343,
1173 + .25418, .45509, .55547,
1174 + .19279, .11235, 9.26257, .55853, .35493,
1175 + .26680, .46587, .56579,
1176 + .19503, .11354, 9.33925, .56853, .36634,
1177 + .27937, .47653, .57598,
1178 + .19722, .11470, 9.40671, .57810, .37725,
1179 + .29135, .48674, .58574,
1180 + .19928, .11579, 9.46678, .58709, .38756,
1181 + .30272, .49634, .59491,
1182 + .20120, .11679, 9.51556, .59526, .39691,
1183 + .31298, .50509, .60325 /
1184 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
1185 + .20315, .11781, 9.56466, .60357, .40651,
1186 + .32360, .51399, .61173,
1187 + .20502, .11878, 9.60203, .61128, .41535,
1188 + .33329, .52226, .61960,
1189 + .20682, .11970, 9.63748, .61867, .42389,
1190 + .34272, .53020, .62715,
1191 + .20850, .12056, 9.66642, .62547, .43178,
1192 + .35142, .53752, .63410,
1193 + .21018, .12142, 9.69072, .63213, .43949,
1194 + .35992, .54469, .64090 /
1195 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
1196 + .13220, .07843, 2.92461, .22831, .00000,
1197 + .00000, .11933, .23013,
1198 + .13473, .08004, 3.19001, .23487, .00002,
1199 + .00000, .12655, .23690,
1200 + .13853, .08244, 3.57625, .24531, .00829,
1201 + .00000, .13799, .24766,
1202 + .14134, .08419, 3.84778, .25342, .01974,
1203 + .00000, .14683, .25601,
1204 + .14430, .08602, 4.12305, .26243, .03053,
1205 + .00000, .15661, .26527,
1206 + .14688, .08760, 4.36196, .27048, .04052,
1207 + .00000, .16535, .27355,
1208 + .14936, .08911, 4.58210, .27845, .04974,
1209 + .00000, .17396, .28173,
1210 + .15200, .09070, 4.81154, .28713, .06004,
1211 + .00000, .18334, .29065 /
1212 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
1213 + .15430, .09208, 5.00794, .29488, .06921,
1214 + .00000, .19169, .29859,
1215 + .15651, .09340, 5.18997, .30246, .07799,
1216 + .00000, .19985, .30636,
1217 + .15827, .09444, 5.33234, .30856, .08510,
1218 + .00000, .20642, .31262,
1219 + .16201, .09664, 5.61724, .32177, .10043,
1220 + .00009, .22062, .32616,
1221 + .16524, .09852, 5.84402, .33333, .11394,
1222 + .01193, .23303, .33801,
1223 + .16884, .10060, 6.07241, .34632, .12915,
1224 + .03299, .24698, .35132,
1225 + .17254, .10271, 6.29326, .35980, .14459,
1226 + .04937, .26145, .36513,
1227 + .17588, .10460, 6.48132, .37197, .15862,
1228 + .06510, .27452, .37760 /
1229 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
1230 + .17924, .10648, 6.66113, .38422, .17287,
1231 + .08141, .28768, .39015,
1232 + .18199, .10801, 6.79985, .39429, .18450,
1233 + .09436, .29849, .40046,
1234 + .18531, .10983, 6.95556, .40630, .19839,
1235 + .10984, .31141, .41278,
1236 + .18822, .11143, 7.08656, .41689, .21076,
1237 + .12384, .32280, .42363,
1238 + .19085, .11285, 7.19405, .42632, .22164,
1239 + .13581, .33296, .43329,
1240 + .19417, .11463, 7.32250, .43816, .23544,
1241 + .15121, .34573, .44543,
1242 + .19726, .11628, 7.43441, .44914, .24830,
1243 + .16562, .35757, .45669,
1244 + .20010, .11778, 7.52509, .45902, .25978,
1245 + .17828, .36826, .46683 /
1246 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
1247 + .20292, .11926, 7.61137, .46884, .27133,
1248 + .19119, .37888, .47690,
1249 + .20564, .12067, 7.68467, .47810, .28218,
1250 + .20320, .38892, .48640,
1251 + .20819, .12198, 7.74858, .48671, .29234,
1252 + .21452, .39827, .49525,
1253 + .21056, .12320, 7.80186, .49459, .30165,
1254 + .22485, .40684, .50334,
1255 + .21292, .12440, 7.85026, .50235, .31085,
1256 + .23511, .41529, .51130,
1257 + .21521, .12555, 7.89123, .50972, .31962,
1258 + .24485, .42334, .51889,
1259 + .21737, .12663, 7.92687, .51663, .32788,
1260 + .25408, .43089, .52599,
1261 + .21937, .12763, 7.95409, .52288, .33535,
1262 + .26237, .43774, .53242 /
1263 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
1264 + .22140, .12863, 7.98144, .52922, .34300,
1265 + .27095, .44470, .53894,
1266 + .22334, .12959, 7.99942, .53505, .35001,
1267 + .27873, .45111, .54494,
1268 + .22520, .13050, 8.01641, .54063, .35678,
1269 + .28629, .45726, .55068,
1270 + .22693, .13134, 8.02868, .54573, .36300,
1271 + .29325, .46291, .55594,
1272 + .22866, .13217, 8.03703, .55070, .36907,
1273 + .30003, .46841, .56106 /
1274 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
1275 + .15265, .09385, 2.68378, .21597, .00000,
1276 + .00000, .11282, .21908,
1277 + .15566, .09567, 2.88282, .22125, .00002,
1278 + .00000, .11883, .22464,
1279 + .16018, .09836, 3.16921, .22956, .00696,
1280 + .00000, .12824, .23338,
1281 + .16349, .10031, 3.36791, .23594, .01650,
1282 + .00000, .13543, .24007,
1283 + .16698, .10233, 3.56848, .24295, .02541,
1284 + .00000, .14330, .24742,
1285 + .17001, .10408, 3.74120, .24918, .03360,
1286 + .00000, .15028, .25394,
1287 + .17290, .10573, 3.89945, .25529, .04109,
1288 + .00000, .15711, .26034,
1289 + .17596, .10747, 4.06330, .26192, .04941,
1290 + .00000, .16450, .26725 /
1291 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
1292 + .17863, .10897, 4.20275, .26778, .05678,
1293 + .00000, .17103, .27338,
1294 + .18119, .11040, 4.33113, .27350, .06379,
1295 + .00000, .17739, .27933,
1296 + .18322, .11152, 4.43100, .27807, .06944,
1297 + .00000, .18248, .28411,
1298 + .18751, .11388, 4.62839, .28792, .08155,
1299 + .00008, .19343, .29437,
1300 + .19119, .11589, 4.78269, .29647, .09216,
1301 + .00947, .20292, .30327,
1302 + .19528, .11809, 4.93443, .30599, .10402,
1303 + .02611, .21351, .31319,
1304 + .19946, .12031, 5.07912, .31580, .11596,
1305 + .03895, .22441, .32340,
1306 + .20321, .12228, 5.20052, .32458, .12673,
1307 + .05120, .23417, .33254 /
1308 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
1309 + .20696, .12423, 5.31487, .33334, .13761,
1310 + .06382, .24394, .34166,
1311 + .21002, .12581, 5.40144, .34049, .14644,
1312 + .07379, .25191, .34910,
1313 + .21368, .12767, 5.49677, .34895, .15691,
1314 + .08563, .26137, .35791,
1315 + .21689, .12930, 5.57571, .35636, .16620,
1316 + .09630, .26966, .36563,
1317 + .21976, .13073, 5.63853, .36291, .17431,
1318 + .10535, .27700, .37244,
1319 + .22338, .13252, 5.71195, .37106, .18455,
1320 + .11695, .28616, .38094,
1321 + .22673, .13416, 5.77408, .37855, .19403,
1322 + .12774, .29461, .38876,
1323 + .22978, .13564, 5.82169, .38523, .20243,
1324 + .13715, .30216, .39572 /
1325 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
1326 + .23281, .13709, 5.86592, .39183, .21084,
1327 + .14672, .30963, .40260,
1328 + .23571, .13846, 5.90104, .39797, .21869,
1329 + .15555, .31662, .40901,
1330 + .23841, .13974, 5.93008, .40364, .22601,
1331 + .16385, .32310, .41494,
1332 + .24091, .14090, 5.95221, .40879, .23267,
1333 + .17138, .32899, .42032,
1334 + .24339, .14205, 5.97071, .41381, .23922,
1335 + .17881, .33476, .42557,
1336 + .24577, .14314, 5.98412, .41855, .24543,
1337 + .18584, .34023, .43052,
1338 + .24802, .14416, 5.99445, .42295, .25125,
1339 + .19247, .34532, .43513,
1340 + .25009, .14509, 5.99947, .42687, .25648,
1341 + .19840, .34990, .43925 /
1342 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
1343 + .25219, .14602, 6.00450, .43085, .26182,
1344 + .20451, .35453, .44342,
1345 + .25418, .14690, 6.00308, .43443, .26666,
1346 + .21001, .35875, .44718,
1347 + .25608, .14773, 6.00168, .43786, .27133,
1348 + .21535, .36278, .45078,
1349 + .25784, .14849, 5.99763, .44096, .27560,
1350 + .22023, .36645, .45404,
1351 + .25959, .14925, 5.99069, .44393, .27974,
1352 + .22496, .37001, .45717 /
1353 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
1354 + .18041, .11395, 2.34265, .20255, .00000,
1355 + .00000, .10593, .20797,
1356 + .18401, .11595, 2.48367, .20637, .00001,
1357 + .00000, .11060, .21217,
1358 + .18937, .11888, 2.68460, .21234, .00558,
1359 + .00000, .11785, .21871,
1360 + .19329, .12100, 2.82235, .21688, .01320,
1361 + .00000, .12334, .22367,
1362 + .19737, .12317, 2.96102, .22186, .02025,
1363 + .00000, .12931, .22908,
1364 + .20090, .12504, 3.07968, .22626, .02669,
1365 + .00000, .13457, .23384,
1366 + .20425, .12679, 3.18799, .23055, .03255,
1367 + .00000, .13969, .23848,
1368 + .20780, .12863, 3.29938, .23518, .03901,
1369 + .00000, .14520, .24348 /
1370 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
1371 + .21087, .13020, 3.39360, .23925, .04472,
1372 + .00000, .15004, .24788,
1373 + .21379, .13168, 3.47979, .24321, .05011,
1374 + .00000, .15473, .25214,
1375 + .21609, .13285, 3.54652, .24637, .05445,
1376 + .00000, .15848, .25553,
1377 + .22095, .13528, 3.67636, .25312, .06370,
1378 + .00007, .16648, .26278,
1379 + .22510, .13732, 3.77556, .25893, .07174,
1380 + .00725, .17336, .26901,
1381 + .22966, .13955, 3.87015, .26535, .08067,
1382 + .01996, .18099, .27591,
1383 + .23430, .14177, 3.95881, .27191, .08960,
1384 + .02967, .18878, .28293,
1385 + .23842, .14371, 4.03146, .27772, .09760,
1386 + .03889, .19570, .28915 /
1387 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
1388 + .24251, .14563, 4.09842, .28346, .10564,
1389 + .04833, .20257, .29530,
1390 + .24583, .14716, 4.14772, .28810, .11211,
1391 + .05574, .20813, .30027,
1392 + .24977, .14895, 4.20023, .29355, .11975,
1393 + .06450, .21468, .30610,
1394 + .25320, .15050, 4.24254, .29827, .12648,
1395 + .07234, .22039, .31116,
1396 + .25625, .15184, 4.27419, .30239, .13232,
1397 + .07895, .22539, .31558,
1398 + .26006, .15350, 4.30962, .30748, .13964,
1399 + .08738, .23159, .32104,
1400 + .26356, .15502, 4.33783, .31211, .14639,
1401 + .09517, .23726, .32601,
1402 + .26672, .15636, 4.35654, .31616, .15231,
1403 + .10192, .24227, .33035 /
1404 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
1405 + .26985, .15767, 4.37273, .32012, .15821,
1406 + .10875, .24719, .33461,
1407 + .27281, .15889, 4.38251, .32376, .16367,
1408 + .11500, .25175, .33853,
1409 + .27555, .16000, 4.38884, .32707, .16873,
1410 + .12085, .25593, .34210,
1411 + .27806, .16101, 4.39115, .33003, .17330,
1412 + .12612, .25970, .34528,
1413 + .28054, .16199, 4.39081, .33288, .17778,
1414 + .13130, .26336, .34836,
1415 + .28291, .16292, 4.38708, .33552, .18198,
1416 + .13617, .26678, .35121,
1417 + .28513, .16377, 4.38186, .33794, .18591,
1418 + .14074, .26994, .35383,
1419 + .28716, .16454, 4.37358, .34005, .18940,
1420 + .14478, .27275, .35613 /
1421 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
1422 + .28920, .16531, 4.36531, .34218, .19296,
1423 + .14895, .27558, .35844,
1424 + .29111, .16601, 4.35260, .34403, .19615,
1425 + .15267, .27811, .36046,
1426 + .29293, .16667, 4.34055, .34580, .19921,
1427 + .15626, .28052, .36238,
1428 + .29461, .16728, 4.32731, .34736, .20200,
1429 + .15953, .28268, .36409,
1430 + .29626, .16786, 4.31202, .34881, .20467,
1431 + .16268, .28475, .36568 /
1432 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
1433 + .22265, .14220, 1.85814, .18524, .00000,
1434 + .00000, .09760, .19531,
1435 + .22694, .14429, 1.95213, .18739, .00001,
1436 + .00000, .10078, .19794,
1437 + .23326, .14732, 2.08542, .19077, .00415,
1438 + .00000, .10571, .20204,
1439 + .23784, .14949, 2.17611, .19336, .00980,
1440 + .00000, .10944, .20514,
1441 + .24257, .15168, 2.26733, .19623, .01501,
1442 + .00000, .11348, .20853,
1443 + .24663, .15354, 2.34504, .19875, .01976,
1444 + .00000, .11704, .21150,
1445 + .25045, .15527, 2.41570, .20123, .02405,
1446 + .00000, .12049, .21438,
1447 + .25445, .15707, 2.48793, .20389, .02877,
1448 + .00000, .12419, .21747 /
1449 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
1450 + .25789, .15860, 2.54868, .20624, .03292,
1451 + .00000, .12743, .22018,
1452 + .26115, .16002, 2.60379, .20851, .03684,
1453 + .00000, .13057, .22280,
1454 + .26371, .16112, 2.64619, .21032, .03997,
1455 + .00000, .13306, .22487,
1456 + .26905, .16340, 2.72714, .21417, .04663,
1457 + .00006, .13836, .22928,
1458 + .27356, .16529, 2.78721, .21746, .05238,
1459 + .00522, .14288, .23303,
1460 + .27847, .16731, 2.84210, .22106, .05873,
1461 + .01434, .14786, .23714,
1462 + .28337, .16927, 2.89174, .22470, .06503,
1463 + .02125, .15289, .24126,
1464 + .28769, .17097, 2.93090, .22787, .07063,
1465 + .02777, .15732, .24485 /
1466 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
1467 + .29193, .17261, 2.96558, .23097, .07622,
1468 + .03440, .16168, .24836,
1469 + .29534, .17390, 2.98965, .23344, .08069,
1470 + .03958, .16517, .25115,
1471 + .29932, .17537, 3.01333, .23628, .08593,
1472 + .04565, .16924, .25436,
1473 + .30276, .17662, 3.03117, .23871, .09052,
1474 + .05105, .17274, .25711,
1475 + .30577, .17768, 3.04230, .24078, .09445,
1476 + .05557, .17578, .25945,
1477 + .30949, .17897, 3.05294, .24329, .09936,
1478 + .06130, .17950, .26228,
1479 + .31287, .18011, 3.05923, .24552, .10384,
1480 + .06655, .18285, .26481,
1481 + .31586, .18108, 3.05952, .24739, .10773,
1482 + .07106, .18575, .26693 /
1483 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
1484 + .31879, .18202, 3.05810, .24919, .11158,
1485 + .07559, .18858, .26898,
1486 + .32152, .18286, 3.05244, .25078, .11510,
1487 + .07970, .19114, .27078,
1488 + .32402, .18361, 3.04508, .25218, .11834,
1489 + .08351, .19347, .27239,
1490 + .32630, .18426, 3.03561, .25337, .12123,
1491 + .08693, .19552, .27377,
1492 + .32851, .18487, 3.02434, .25448, .12404,
1493 + .09026, .19748, .27505,
1494 + .33057, .18544, 3.01099, .25546, .12665,
1495 + .09335, .19927, .27618,
1496 + .33249, .18594, 2.99723, .25632, .12907,
1497 + .09625, .20090, .27719,
1498 + .33421, .18637, 2.98195, .25702, .13119,
1499 + .09878, .20231, .27800 /
1500 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
1501 + .33594, .18679, 2.96673, .25771, .13335,
1502 + .10139, .20373, .27882,
1503 + .33751, .18715, 2.94870, .25822, .13524,
1504 + .10367, .20493, .27943,
1505 + .33900, .18748, 2.93168, .25870, .13706,
1506 + .10587, .20606, .28002,
1507 + .34036, .18776, 2.91439, .25907, .13869,
1508 + .10786, .20706, .28048,
1509 + .34166, .18802, 2.89571, .25937, .14023,
1510 + .10975, .20797, .28085 /
1511 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
1512 + .26180, .16592, 1.47710, .17029, .00000,
1513 + .00000, .09090, .18554,
1514 + .26649, .16793, 1.55132, .17135, .00001,
1515 + .00000, .09314, .18712,
1516 + .27335, .17082, 1.65674, .17310, .00329,
1517 + .00000, .09664, .18963,
1518 + .27828, .17285, 1.72845, .17449, .00778,
1519 + .00000, .09929, .19155,
1520 + .28331, .17488, 1.80038, .17608, .01192,
1521 + .00000, .10220, .19368,
1522 + .28761, .17659, 1.86151, .17749, .01569,
1523 + .00000, .10475, .19554,
1524 + .29164, .17816, 1.91680, .17890, .01909,
1525 + .00000, .10724, .19736,
1526 + .29582, .17976, 1.97297, .18042, .02283,
1527 + .00000, .10991, .19931 /
1528 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
1529 + .29938, .18111, 2.01994, .18177, .02612,
1530 + .00000, .11224, .20102,
1531 + .30273, .18235, 2.06215, .18308, .02922,
1532 + .00000, .11449, .20266,
1533 + .30535, .18330, 2.09446, .18413, .03169,
1534 + .00000, .11628, .20396,
1535 + .31076, .18523, 2.15522, .18636, .03692,
1536 + .00005, .12007, .20671,
1537 + .31528, .18680, 2.19932, .18826, .04143,
1538 + .00409, .12329, .20903,
1539 + .32014, .18846, 2.23830, .19032, .04638,
1540 + .01121, .12681, .21153,
1541 + .32492, .19002, 2.27205, .19238, .05127,
1542 + .01657, .13035, .21400,
1543 + .32908, .19133, 2.29753, .19414, .05559,
1544 + .02161, .13343, .21612 /
1545 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
1546 + .33312, .19256, 2.31899, .19583, .05987,
1547 + .02672, .13644, .21814,
1548 + .33632, .19349, 2.33267, .19715, .06328,
1549 + .03067, .13882, .21971,
1550 + .34002, .19453, 2.34451, .19863, .06725,
1551 + .03529, .14156, .22147,
1552 + .34318, .19539, 2.35234, .19986, .07070,
1553 + .03938, .14391, .22294,
1554 + .34590, .19608, 2.35510, .20086, .07364,
1555 + .04278, .14590, .22413,
1556 + .34920, .19689, 2.35572, .20204, .07728,
1557 + .04706, .14831, .22553,
1558 + .35216, .19758, 2.35324, .20305, .08058,
1559 + .05097, .15046, .22674,
1560 + .35473, .19811, 2.34629, .20383, .08341,
1561 + .05428, .15227, .22767 /
1562 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
1563 + .35722, .19861, 2.33803, .20455, .08620,
1564 + .05760, .15401, .22853,
1565 + .35948, .19901, 2.32659, .20510, .08871,
1566 + .06059, .15555, .22922,
1567 + .36153, .19934, 2.31422, .20556, .09101,
1568 + .06334, .15692, .22977,
1569 + .36334, .19960, 2.30059, .20589, .09305,
1570 + .06579, .15809, .23019,
1571 + .36507, .19981, 2.28559, .20616, .09501,
1572 + .06816, .15919, .23054,
1573 + .36667, .19997, 2.26914, .20633, .09681,
1574 + .07035, .16016, .23078,
1575 + .36812, .20009, 2.25276, .20644, .09846,
1576 + .07237, .16103, .23095,
1577 + .36938, .20016, 2.23557, .20645, .09990,
1578 + .07413, .16173, .23100 /
1579 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
1580 + .37065, .20022, 2.21850, .20646, .10136,
1581 + .07594, .16245, .23104,
1582 + .37174, .20021, 2.19937, .20634, .10260,
1583 + .07749, .16299, .23094,
1584 + .37277, .20020, 2.18137, .20622, .10380,
1585 + .07899, .16351, .23083,
1586 + .37368, .20016, 2.16350, .20605, .10485,
1587 + .08033, .16393, .23067,
1588 + .37452, .20008, 2.14460, .20581, .10583,
1589 + .08160, .16429, .23044 /
1590 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
1591 + .33338, .20382, .96403, .14323, .00000,
1592 + .00000, .07946, .16898,
1593 + .33826, .20539, 1.02835, .14312, .00001,
1594 + .00000, .08065, .16930,
1595 + .34527, .20757, 1.11953, .14315, .00239,
1596 + .00000, .08259, .16990,
1597 + .35023, .20905, 1.18134, .14328, .00567,
1598 + .00000, .08411, .17043,
1599 + .35517, .21046, 1.24179, .14355, .00870,
1600 + .00000, .08579, .17108,
1601 + .35934, .21162, 1.29269, .14383, .01145,
1602 + .00000, .08728, .17166,
1603 + .36316, .21263, 1.33767, .14416, .01394,
1604 + .00000, .08874, .17224,
1605 + .36707, .21362, 1.38262, .14454, .01667,
1606 + .00000, .09031, .17288 /
1607 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
1608 + .37036, .21443, 1.41958, .14489, .01906,
1609 + .00000, .09169, .17344,
1610 + .37339, .21512, 1.45191, .14525, .02130,
1611 + .00000, .09302, .17397,
1612 + .37572, .21564, 1.47626, .14554, .02308,
1613 + .00000, .09406, .17439,
1614 + .38043, .21662, 1.52072, .14617, .02683,
1615 + .00004, .09626, .17525,
1616 + .38427, .21735, 1.55169, .14670, .03003,
1617 + .00289, .09812, .17595,
1618 + .38833, .21802, 1.57740, .14723, .03352,
1619 + .00789, .10011, .17666,
1620 + .39212, .21855, 1.59726, .14774, .03691,
1621 + .01162, .10206, .17728,
1622 + .39530, .21891, 1.61041, .14813, .03988,
1623 + .01509, .10373, .17773 /
1624 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
1625 + .39831, .21918, 1.61977, .14845, .04278,
1626 + .01856, .10531, .17810,
1627 + .40060, .21930, 1.62383, .14866, .04506,
1628 + .02123, .10653, .17833,
1629 + .40312, .21933, 1.62470, .14882, .04768,
1630 + .02431, .10788, .17849,
1631 + .40521, .21931, 1.62325, .14892, .04993,
1632 + .02701, .10901, .17857,
1633 + .40689, .21918, 1.61821, .14892, .05181,
1634 + .02922, .10992, .17852,
1635 + .40885, .21895, 1.60960, .14885, .05411,
1636 + .03198, .11099, .17838,
1637 + .41052, .21867, 1.59919, .14871, .05616,
1638 + .03446, .11188, .17816,
1639 + .41182, .21829, 1.58590, .14846, .05788,
1640 + .03653, .11258, .17780 /
1641 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
1642 + .41303, .21788, 1.57177, .14818, .05955,
1643 + .03859, .11322, .17741,
1644 + .41398, .21739, 1.55551, .14782, .06103,
1645 + .04040, .11371, .17691,
1646 + .41478, .21688, 1.53913, .14742, .06235,
1647 + .04205, .11411, .17638,
1648 + .41540, .21635, 1.52239, .14698, .06349,
1649 + .04350, .11441, .17582,
1650 + .41592, .21577, 1.50481, .14650, .06457,
1651 + .04488, .11465, .17519,
1652 + .41631, .21516, 1.48646, .14597, .06554,
1653 + .04613, .11481, .17451,
1654 + .41660, .21455, 1.46868, .14544, .06642,
1655 + .04728, .11492, .17383,
1656 + .41675, .21393, 1.45083, .14487, .06714,
1657 + .04825, .11495, .17312 /
1658 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
1659 + .41690, .21330, 1.43317, .14430, .06788,
1660 + .04925, .11497, .17241,
1661 + .41686, .21262, 1.41431, .14366, .06847,
1662 + .05007, .11490, .17160,
1663 + .41683, .21197, 1.39666, .14305, .06904,
1664 + .05087, .11482, .17082,
1665 + .41672, .21132, 1.37952, .14244, .06952,
1666 + .05156, .11470, .17006,
1667 + .41652, .21063, 1.36178, .14178, .06996,
1668 + .05220, .11453, .16924 /
1669 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
1670 + .39710, .23228, .68739, .11890, .00000,
1671 + .00000, .06933, .15367,
1672 + .40154, .23318, .75268, .11837, .00001,
1673 + .00000, .07007, .15330,
1674 + .40778, .23434, .84374, .11778, .00200,
1675 + .00000, .07132, .15288,
1676 + .41207, .23506, .90432, .11746, .00475,
1677 + .00000, .07232, .15264,
1678 + .41625, .23564, .96142, .11725, .00726,
1679 + .00000, .07344, .15248,
1680 + .41972, .23607, 1.00884, .11711, .00954,
1681 + .00000, .07444, .15236,
1682 + .42280, .23638, 1.04936, .11703, .01158,
1683 + .00000, .07542, .15227,
1684 + .42589, .23661, 1.08896, .11697, .01381,
1685 + .00000, .07647, .15217 /
1686 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
1687 + .42844, .23674, 1.12075, .11694, .01575,
1688 + .00000, .07737, .15210,
1689 + .43070, .23679, 1.14765, .11692, .01755,
1690 + .00000, .07823, .15202,
1691 + .43240, .23680, 1.16746, .11692, .01898,
1692 + .00000, .07891, .15196,
1693 + .43573, .23667, 1.20219, .11691, .02195,
1694 + .00004, .08032, .15178,
1695 + .43832, .23643, 1.22492, .11688, .02446,
1696 + .00226, .08148, .15158,
1697 + .44089, .23605, 1.24193, .11682, .02715,
1698 + .00617, .08269, .15129,
1699 + .44309, .23546, 1.25251, .11669, .02973,
1700 + .00903, .08383, .15089,
1701 + .44481, .23481, 1.25744, .11651, .03195,
1702 + .01166, .08475, .15044 /
1703 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
1704 + .44629, .23405, 1.25878, .11627, .03409,
1705 + .01428, .08560, .14991,
1706 + .44729, .23333, 1.25653, .11602, .03575,
1707 + .01626, .08622, .14941,
1708 + .44820, .23238, 1.25025, .11566, .03762,
1709 + .01851, .08686, .14870,
1710 + .44885, .23148, 1.24282, .11531, .03920,
1711 + .02047, .08736, .14803,
1712 + .44921, .23055, 1.23292, .11489, .04050,
1713 + .02205, .08772, .14733,
1714 + .44948, .22932, 1.21865, .11433, .04206,
1715 + .02400, .08809, .14638,
1716 + .44953, .22812, 1.20346, .11376, .04343,
1717 + .02573, .08836, .14541,
1718 + .44931, .22687, 1.18656, .11312, .04454,
1719 + .02714, .08849, .14441 /
1720 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
1721 + .44900, .22561, 1.16920, .11246, .04560,
1722 + .02852, .08857, .14339,
1723 + .44847, .22430, 1.15047, .11174, .04651,
1724 + .02973, .08855, .14232,
1725 + .44786, .22303, 1.13220, .11104, .04731,
1726 + .03081, .08848, .14126,
1727 + .44716, .22178, 1.11417, .11033, .04798,
1728 + .03173, .08837, .14022,
1729 + .44635, .22050, 1.09565, .10959, .04859,
1730 + .03260, .08820, .13914,
1731 + .44543, .21921, 1.07684, .10882, .04912,
1732 + .03338, .08798, .13804,
1733 + .44449, .21797, 1.05889, .10808, .04959,
1734 + .03408, .08774, .13697,
1735 + .44346, .21676, 1.04132, .10733, .04995,
1736 + .03465, .08745, .13592 /
1737 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
1738 + .44243, .21555, 1.02401, .10659, .05032,
1739 + .03524, .08717, .13488,
1740 + .44123, .21429, 1.00609, .10580, .05058,
1741 + .03571, .08681, .13377,
1742 + .44010, .21309, .98938, .10506, .05083,
1743 + .03616, .08647, .13273,
1744 + .43895, .21194, .97339, .10433, .05103,
1745 + .03654, .08612, .13172,
1746 + .43771, .21075, .95706, .10356, .05118,
1747 + .03687, .08573, .13067 /
1748 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
1749 + .45318, .25344, .56164, .09745, .00000,
1750 + .00000, .06013, .13862,
1751 + .45671, .25356, .62744, .09689, .00001,
1752 + .00000, .06069, .13787,
1753 + .46152, .25356, .71690, .09624, .00182,
1754 + .00000, .06165, .13686,
1755 + .46471, .25342, .77478, .09586, .00430,
1756 + .00000, .06240, .13620,
1757 + .46767, .25309, .82726, .09556, .00654,
1758 + .00000, .06325, .13556,
1759 + .47004, .25274, .87005, .09533, .00855,
1760 + .00000, .06400, .13502,
1761 + .47203, .25229, .90523, .09514, .01033,
1762 + .00000, .06472, .13452,
1763 + .47392, .25172, .93866, .09497, .01226,
1764 + .00000, .06547, .13398 /
1765 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
1766 + .47541, .25116, .96469, .09483, .01392,
1767 + .00000, .06612, .13351,
1768 + .47663, .25054, .98577, .09469, .01544,
1769 + .00000, .06672, .13306,
1770 + .47751, .25001, 1.00084, .09459, .01663,
1771 + .00000, .06718, .13270,
1772 + .47902, .24876, 1.02548, .09435, .01909,
1773 + .00003, .06811, .13188,
1774 + .48002, .24757, 1.03973, .09412, .02114,
1775 + .00187, .06886, .13113,
1776 + .48079, .24613, 1.04776, .09381, .02331,
1777 + .00509, .06959, .13023,
1778 + .48109, .24445, 1.04935, .09344, .02534,
1779 + .00740, .07023, .12922,
1780 + .48105, .24283, 1.04659, .09303, .02705,
1781 + .00950, .07072, .12821 /
1782 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
1783 + .48077, .24112, 1.04063, .09257, .02869,
1784 + .01156, .07112, .12715,
1785 + .48029, .23963, 1.03280, .09214, .02993,
1786 + .01309, .07137, .12622,
1787 + .47944, .23773, 1.02039, .09156, .03130,
1788 + .01482, .07159, .12502,
1789 + .47855, .23602, 1.00799, .09101, .03244,
1790 + .01631, .07173, .12392,
1791 + .47746, .23436, .99418, .09045, .03335,
1792 + .01748, .07175, .12285,
1793 + .47592, .23223, .97551, .08969, .03442,
1794 + .01891, .07172, .12146,
1795 + .47430, .23018, .95679, .08894, .03534,
1796 + .02017, .07162, .12011,
1797 + .47248, .22819, .93734, .08817, .03605,
1798 + .02117, .07143, .11876 /
1799 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
1800 + .47060, .22620, .91780, .08739, .03673,
1801 + .02214, .07120, .11741,
1802 + .46857, .22419, .89759, .08657, .03727,
1803 + .02296, .07090, .11604,
1804 + .46655, .22227, .87829, .08576, .03774,
1805 + .02369, .07058, .11473,
1806 + .46451, .22043, .85969, .08498, .03811,
1807 + .02430, .07023, .11347,
1808 + .46240, .21856, .84093, .08417, .03843,
1809 + .02487, .06985, .11219,
1810 + .46021, .21670, .82225, .08334, .03869,
1811 + .02536, .06944, .11091,
1812 + .45808, .21493, .80464, .08256, .03891,
1813 + .02579, .06903, .10968,
1814 + .45593, .21323, .78773, .08179, .03906,
1815 + .02614, .06859, .10849 /
1816 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
1817 + .45378, .21154, .77116, .08103, .03921,
1818 + .02649, .06816, .10730,
1819 + .45149, .20982, .75435, .08022, .03928,
1820 + .02675, .06768, .10610,
1821 + .44933, .20820, .73876, .07947, .03934,
1822 + .02700, .06722, .10496,
1823 + .44722, .20664, .72400, .07874, .03937,
1824 + .02720, .06676, .10387,
1825 + .44502, .20506, .70912, .07799, .03937,
1826 + .02737, .06628, .10276 /
1827 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
1828 + .51262, .27158, .53053, .07499, .00000,
1829 + .00000, .04980, .11992,
1830 + .51456, .27069, .59181, .07465, .00001,
1831 + .00000, .05033, .11894,
1832 + .51696, .26918, .67195, .07426, .00170,
1833 + .00000, .05118, .11759,
1834 + .51833, .26794, .72147, .07403, .00399,
1835 + .00000, .05181, .11664,
1836 + .51932, .26645, .76409, .07384, .00602,
1837 + .00000, .05250, .11567,
1838 + .51998, .26511, .79769, .07370, .00780,
1839 + .00000, .05308, .11484,
1840 + .52030, .26373, .82366, .07357, .00936,
1841 + .00000, .05362, .11404,
1842 + .52041, .26218, .84707, .07342, .01101,
1843 + .00000, .05416, .11319 /
1844 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
1845 + .52034, .26078, .86425, .07330, .01241,
1846 + .00000, .05461, .11246,
1847 + .52004, .25935, .87686, .07316, .01368,
1848 + .00000, .05501, .11174,
1849 + .51970, .25818, .88523, .07304, .01466,
1850 + .00000, .05531, .11116,
1851 + .51865, .25560, .89610, .07276, .01665,
1852 + .00003, .05588, .10989,
1853 + .51742, .25329, .89912, .07248, .01827,
1854 + .00153, .05629, .10875,
1855 + .51572, .25062, .89562, .07211, .01995,
1856 + .00414, .05666, .10742,
1857 + .51344, .24771, .88634, .07165, .02147,
1858 + .00597, .05691, .10598,
1859 + .51110, .24499, .87462, .07117, .02273,
1860 + .00760, .05705, .10460 /
1861 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
1862 + .50852, .24221, .86046, .07063, .02390,
1863 + .00918, .05711, .10317,
1864 + .50614, .23986, .84662, .07013, .02476,
1865 + .01033, .05708, .10197,
1866 + .50301, .23696, .82787, .06947, .02569,
1867 + .01161, .05697, .10045,
1868 + .50013, .23438, .81051, .06887, .02644,
1869 + .01268, .05682, .09909,
1870 + .49725, .23195, .79299, .06826, .02701,
1871 + .01352, .05660, .09781,
1872 + .49348, .22887, .77034, .06745, .02766,
1873 + .01452, .05628, .09617,
1874 + .48980, .22598, .74861, .06666, .02820,
1875 + .01538, .05593, .09461,
1876 + .48612, .22319, .72724, .06586, .02858,
1877 + .01604, .05553, .09309 /
1878 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
1879 + .48240, .22044, .70620, .06506, .02893,
1880 + .01668, .05510, .09159,
1881 + .47858, .21773, .68521, .06424, .02918,
1882 + .01720, .05462, .09010,
1883 + .47490, .21516, .66558, .06344, .02938,
1884 + .01765, .05414, .08869,
1885 + .47135, .21273, .64709, .06267, .02952,
1886 + .01801, .05366, .08735,
1887 + .46773, .21030, .62877, .06189, .02962,
1888 + .01834, .05316, .08600,
1889 + .46408, .20790, .61085, .06111, .02967,
1890 + .01861, .05264, .08467,
1891 + .46059, .20563, .59419, .06036, .02970,
1892 + .01885, .05213, .08342,
1893 + .45721, .20346, .57848, .05963, .02968,
1894 + .01902, .05162, .08223 /
1895 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
1896 + .45384, .20131, .56317, .05890, .02967,
1897 + .01920, .05112, .08105,
1898 + .45035, .19916, .54797, .05817, .02960,
1899 + .01931, .05059, .07985,
1900 + .44706, .19714, .53395, .05749, .02953,
1901 + .01941, .05009, .07873,
1902 + .44390, .19522, .52085, .05683, .02945,
1903 + .01949, .04960, .07767,
1904 + .44067, .19327, .50779, .05614, .02934,
1905 + .01954, .04909, .07660 /
1906 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
1907 + .56037, .28216, .57114, .05725, .00000,
1908 + .00000, .04078, .10161,
1909 + .56041, .28025, .62218, .05719, .00001,
1910 + .00000, .04135, .10059,
1911 + .55995, .27725, .68567, .05716, .00161,
1912 + .00000, .04219, .09914,
1913 + .55923, .27493, .72239, .05716, .00376,
1914 + .00000, .04280, .09810,
1915 + .55801, .27234, .75165, .05715, .00561,
1916 + .00000, .04341, .09702,
1917 + .55675, .27006, .77342, .05713, .00720,
1918 + .00000, .04390, .09608,
1919 + .55522, .26781, .78841, .05711, .00857,
1920 + .00000, .04433, .09516,
1921 + .55338, .26535, .80034, .05705, .01000,
1922 + .00000, .04475, .09418 /
1923 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
1924 + .55162, .26316, .80777, .05698, .01119,
1925 + .00000, .04508, .09333,
1926 + .54971, .26099, .81144, .05689, .01225,
1927 + .00000, .04535, .09248,
1928 + .54811, .25925, .81292, .05681, .01306,
1929 + .00000, .04555, .09180,
1930 + .54434, .25550, .81011, .05658, .01467,
1931 + .00003, .04588, .09032,
1932 + .54081, .25220, .80240, .05632, .01595,
1933 + .00127, .04609, .08901,
1934 + .53660, .24846, .78827, .05596, .01725,
1935 + .00341, .04624, .08751,
1936 + .53176, .24448, .76946, .05549, .01838,
1937 + .00488, .04625, .08590,
1938 + .52712, .24085, .75027, .05501, .01930,
1939 + .00617, .04617, .08439 /
1940 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
1941 + .52228, .23719, .72956, .05448, .02012,
1942 + .00739, .04602, .08284,
1943 + .51810, .23413, .71111, .05399, .02070,
1944 + .00826, .04584, .08154,
1945 + .51281, .23039, .68779, .05334, .02130,
1946 + .00922, .04554, .07994,
1947 + .50806, .22712, .66705, .05276, .02178,
1948 + .01001, .04524, .07852,
1949 + .50352, .22407, .64721, .05215, .02212,
1950 + .01061, .04490, .07721,
1951 + .49770, .22024, .62226, .05136, .02248,
1952 + .01131, .04443, .07554,
1953 + .49215, .21667, .59903, .05060, .02276,
1954 + .01190, .04396, .07396,
1955 + .48676, .21330, .57702, .04986, .02293,
1956 + .01234, .04345, .07246 /
1957 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
1958 + .48138, .20998, .55570, .04911, .02307,
1959 + .01276, .04294, .07099,
1960 + .47599, .20672, .53495, .04835, .02314,
1961 + .01308, .04239, .06954,
1962 + .47088, .20368, .51586, .04762, .02318,
1963 + .01336, .04185, .06818,
1964 + .46602, .20082, .49822, .04691, .02317,
1965 + .01357, .04133, .06690,
1966 + .46111, .19797, .48096, .04620, .02314,
1967 + .01375, .04080, .06563,
1968 + .45622, .19518, .46437, .04550, .02307,
1969 + .01389, .04025, .06438,
1970 + .45160, .19256, .44909, .04483, .02299,
1971 + .01401, .03973, .06322,
1972 + .44717, .19008, .43489, .04417, .02289,
1973 + .01408, .03921, .06212 /
1974 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
1975 + .44278, .18763, .42112, .04353, .02278,
1976 + .01416, .03871, .06103,
1977 + .43832, .18519, .40769, .04288, .02264,
1978 + .01419, .03819, .05994,
1979 + .43413, .18290, .39535, .04228, .02251,
1980 + .01421, .03770, .05891,
1981 + .43013, .18074, .38394, .04170, .02237,
1982 + .01422, .03723, .05796,
1983 + .42606, .17856, .37268, .04110, .02221,
1984 + .01421, .03675, .05700 /
1985 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
1986 + .59685, .28647, .63752, .04365, .00000,
1987 + .00000, .03302, .08421,
1988 + .59481, .28363, .67462, .04386, .00001,
1989 + .00000, .03363, .08325,
1990 + .59126, .27927, .71718, .04417, .00151,
1991 + .00000, .03449, .08186,
1992 + .58830, .27599, .73883, .04437, .00351,
1993 + .00000, .03507, .08084,
1994 + .58472, .27243, .75317, .04453, .00519,
1995 + .00000, .03561, .07977,
1996 + .58145, .26933, .76224, .04464, .00661,
1997 + .00000, .03605, .07883,
1998 + .57804, .26630, .76591, .04471, .00780,
1999 + .00000, .03642, .07789,
2000 + .57422, .26303, .76640, .04474, .00902,
2001 + .00000, .03674, .07689 /
2002 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
2003 + .57077, .26017, .76439, .04474, .01003,
2004 + .00000, .03697, .07602,
2005 + .56723, .25738, .75966, .04470, .01090,
2006 + .00000, .03715, .07516,
2007 + .56435, .25517, .75482, .04465, .01157,
2008 + .00000, .03727, .07446,
2009 + .55794, .25041, .73981, .04447, .01287,
2010 + .00003, .03745, .07294,
2011 + .55220, .24629, .72291, .04424, .01387,
2012 + .00106, .03753, .07161,
2013 + .54555, .24169, .70003, .04392, .01486,
2014 + .00282, .03752, .07010,
2015 + .53830, .23683, .67380, .04347, .01569,
2016 + .00399, .03736, .06852,
2017 + .53155, .23246, .64906, .04302, .01634,
2018 + .00501, .03716, .06702 /
2019 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
2020 + .52463, .22809, .62377, .04252, .01691,
2021 + .00596, .03691, .06549,
2022 + .51876, .22447, .60235, .04205, .01729,
2023 + .00663, .03664, .06423,
2024 + .51154, .22010, .57628, .04144, .01766,
2025 + .00734, .03624, .06271,
2026 + .50515, .21628, .55370, .04087, .01794,
2027 + .00793, .03586, .06137,
2028 + .49914, .21277, .53284, .04031, .01812,
2029 + .00835, .03547, .06012,
2030 + .49152, .20839, .50716, .03959, .01829,
2031 + .00885, .03495, .05855,
2032 + .48435, .20434, .48379, .03890, .01841,
2033 + .00925, .03443, .05707,
2034 + .47750, .20053, .46218, .03821, .01844,
2035 + .00954, .03390, .05571 /
2036 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
2037 + .47074, .19681, .44154, .03752, .01845,
2038 + .00981, .03336, .05437,
2039 + .46404, .19320, .42187, .03684, .01840,
2040 + .01001, .03281, .05305,
2041 + .45773, .18983, .40401, .03619, .01834,
2042 + .01017, .03228, .05182,
2043 + .45177, .18670, .38776, .03557, .01825,
2044 + .01029, .03176, .05067,
2045 + .44581, .18358, .37201, .03495, .01814,
2046 + .01038, .03125, .04954,
2047 + .43995, .18054, .35704, .03432, .01801,
2048 + .01045, .03073, .04844,
2049 + .43442, .17769, .34338, .03373, .01788,
2050 + .01049, .03024, .04742,
2051 + .42917, .17502, .33086, .03317, .01773,
2052 + .01051, .02977, .04645 /
2053 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
2054 + .42397, .17238, .31878, .03261, .01759,
2055 + .01053, .02930, .04549,
2056 + .41874, .16977, .30718, .03206, .01742,
2057 + .01051, .02883, .04455,
2058 + .41383, .16734, .29658, .03154, .01726,
2059 + .01050, .02838, .04367,
2060 + .40920, .16504, .28684, .03105, .01710,
2061 + .01047, .02796, .04286,
2062 + .40453, .16274, .27731, .03053, .01693,
2063 + .01044, .02752, .04204 /
2064 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
2065 + .62256, .28570, .70266, .03351, .00000,
2066 + .00000, .02641, .06813,
2067 + .61838, .28200, .72413, .03391, .00001,
2068 + .00000, .02706, .06732,
2069 + .61170, .27642, .74433, .03445, .00140,
2070 + .00000, .02794, .06611,
2071 + .60648, .27230, .75059, .03479, .00322,
2072 + .00000, .02851, .06518,
2073 + .60061, .26786, .75022, .03504, .00472,
2074 + .00000, .02901, .06421,
2075 + .59540, .26403, .74721, .03521, .00597,
2076 + .00000, .02939, .06335,
2077 + .59016, .26033, .74039, .03532, .00699,
2078 + .00000, .02969, .06251,
2079 + .58442, .25640, .73057, .03539, .00803,
2080 + .00000, .02994, .06158 /
2081 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
2082 + .57932, .25299, .72030, .03543, .00887,
2083 + .00000, .03013, .06075,
2084 + .57424, .24967, .70838, .03541, .00959,
2085 + .00000, .03025, .05994,
2086 + .57017, .24705, .69824, .03537, .01013,
2087 + .00000, .03032, .05929,
2088 + .56131, .24145, .67337, .03521, .01115,
2089 + .00002, .03039, .05789,
2090 + .55352, .23665, .64937, .03500, .01193,
2091 + .00087, .03037, .05666,
2092 + .54466, .23135, .62012, .03471, .01267,
2093 + .00231, .03025, .05525,
2094 + .53520, .22584, .58880, .03429, .01327,
2095 + .00325, .03004, .05375,
2096 + .52655, .22090, .56054, .03385, .01371,
2097 + .00405, .02977, .05238 /
2098 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
2099 + .51781, .21600, .53260, .03337, .01408,
2100 + .00478, .02945, .05101,
2101 + .51049, .21197, .50969, .03295, .01432,
2102 + .00529, .02914, .04986,
2103 + .50156, .20715, .48256, .03238, .01453,
2104 + .00582, .02871, .04847,
2105 + .49374, .20296, .45951, .03186, .01467,
2106 + .00625, .02831, .04727,
2107 + .48649, .19913, .43872, .03135, .01474,
2108 + .00655, .02791, .04616,
2109 + .47736, .19437, .41356, .03069, .01478,
2110 + .00690, .02738, .04477,
2111 + .46885, .19000, .39106, .03007, .01478,
2112 + .00718, .02686, .04348,
2113 + .46081, .18593, .37070, .02946, .01473,
2114 + .00736, .02636, .04226 /
2115 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
2116 + .45292, .18196, .35145, .02885, .01466,
2117 + .00753, .02585, .04108,
2118 + .44519, .17811, .33342, .02824, .01456,
2119 + .00765, .02532, .03996,
2120 + .43795, .17455, .31721, .02766, .01444,
2121 + .00773, .02482, .03892,
2122 + .43117, .17123, .30261, .02711, .01431,
2123 + .00779, .02435, .03795,
2124 + .42442, .16796, .28863, .02656, .01416,
2125 + .00783, .02388, .03699,
2126 + .41780, .16480, .27550, .02602, .01401,
2127 + .00785, .02343, .03605,
2128 + .41159, .16185, .26361, .02551, .01385,
2129 + .00785, .02300, .03518,
2130 + .40572, .15909, .25280, .02503, .01369,
2131 + .00784, .02256, .03438 /
2132 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
2133 + .39993, .15637, .24243, .02455, .01353,
2134 + .00783, .02213, .03359,
2135 + .39416, .15369, .23257, .02408, .01336,
2136 + .00779, .02172, .03282,
2137 + .38877, .15119, .22360, .02364, .01320,
2138 + .00776, .02133, .03209,
2139 + .38369, .14884, .21543, .02321, .01303,
2140 + .00772, .02096, .03142,
2141 + .37859, .14648, .20750, .02278, .01286,
2142 + .00767, .02059, .03075 /
2143 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
2144 + .63820, .28068, .75190, .02602, .00000,
2145 + .00000, .02091, .05380,
2146 + .63191, .27624, .75779, .02652, .00001,
2147 + .00000, .02157, .05317,
2148 + .62221, .26960, .75653, .02716, .00127,
2149 + .00000, .02243, .05221,
2150 + .61486, .26475, .74861, .02755, .00290,
2151 + .00000, .02298, .05144,
2152 + .60677, .25959, .73504, .02784, .00422,
2153 + .00000, .02344, .05061,
2154 + .59970, .25518, .72151, .02805, .00530,
2155 + .00000, .02378, .04988,
2156 + .59271, .25095, .70578, .02818, .00616,
2157 + .00000, .02403, .04914,
2158 + .58519, .24647, .68748, .02827, .00703,
2159 + .00000, .02423, .04833 /
2160 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
2161 + .57861, .24260, .67061, .02831, .00772,
2162 + .00000, .02435, .04762,
2163 + .57214, .23885, .65310, .02828, .00830,
2164 + .00000, .02442, .04691,
2165 + .56701, .23591, .63893, .02823, .00872,
2166 + .00000, .02446, .04635,
2167 + .55592, .22968, .60686, .02807, .00952,
2168 + .00002, .02446, .04511,
2169 + .54629, .22439, .57800, .02787, .01011,
2170 + .00071, .02438, .04403,
2171 + .53550, .21858, .54473, .02757, .01065,
2172 + .00188, .02422, .04280,
2173 + .52410, .21262, .51059, .02720, .01107,
2174 + .00263, .02396, .04146,
2175 + .51382, .20727, .48074, .02678, .01136,
2176 + .00325, .02366, .04027 /
2177 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
2178 + .50355, .20198, .45191, .02631, .01159,
2179 + .00381, .02332, .03909,
2180 + .49502, .19769, .42880, .02591, .01172,
2181 + .00419, .02300, .03809,
2182 + .48470, .19257, .40194, .02540, .01182,
2183 + .00458, .02258, .03689,
2184 + .47571, .18814, .37948, .02494, .01187,
2185 + .00489, .02220, .03584,
2186 + .46748, .18411, .35966, .02446, .01187,
2187 + .00511, .02182, .03490,
2188 + .45716, .17913, .33596, .02386, .01184,
2189 + .00535, .02132, .03372,
2190 + .44758, .17460, .31505, .02332, .01177,
2191 + .00553, .02084, .03263,
2192 + .43866, .17036, .29646, .02275, .01167,
2193 + .00565, .02037, .03164 /
2194 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
2195 + .42993, .16625, .27905, .02220, .01156,
2196 + .00575, .01990, .03067,
2197 + .42139, .16233, .26295, .02168, .01142,
2198 + .00581, .01944, .02972,
2199 + .41346, .15870, .24862, .02119, .01128,
2200 + .00586, .01900, .02884,
2201 + .40606, .15532, .23584, .02071, .01114,
2202 + .00587, .01859, .02804,
2203 + .39875, .15200, .22371, .02024, .01098,
2204 + .00588, .01817, .02726,
2205 + .39163, .14880, .21242, .01977, .01082,
2206 + .00587, .01777, .02651,
2207 + .38497, .14582, .20228, .01933, .01067,
2208 + .00586, .01739, .02580,
2209 + .37869, .14304, .19316, .01893, .01051,
2210 + .00583, .01702, .02514 /
2211 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
2212 + .37250, .14031, .18443, .01854, .01035,
2213 + .00580, .01666, .02450,
2214 + .36638, .13763, .17622, .01814, .01019,
2215 + .00576, .01631, .02388,
2216 + .36068, .13514, .16878, .01777, .01004,
2217 + .00572, .01598, .02331,
2218 + .35531, .13281, .16204, .01741, .00989,
2219 + .00567, .01566, .02277,
2220 + .34994, .13048, .15552, .01705, .00973,
2221 + .00562, .01535, .02224 /
2222 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
2223 + .64458, .27216, .77864, .02043, .00000,
2224 + .00000, .01639, .04148,
2225 + .63628, .26713, .77032, .02098, .00001,
2226 + .00000, .01702, .04104,
2227 + .62369, .25969, .75014, .02168, .00113,
2228 + .00000, .01784, .04030,
2229 + .61433, .25426, .73014, .02207, .00256,
2230 + .00000, .01835, .03971,
2231 + .60420, .24854, .70570, .02236, .00370,
2232 + .00000, .01875, .03905,
2233 + .59545, .24367, .68376, .02256, .00461,
2234 + .00000, .01903, .03847,
2235 + .58692, .23903, .66114, .02268, .00533,
2236 + .00000, .01923, .03786,
2237 + .57783, .23413, .63647, .02275, .00604,
2238 + .00000, .01939, .03719 /
2239 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
2240 + .56993, .22991, .61480, .02277, .00660,
2241 + .00000, .01949, .03659,
2242 + .56221, .22588, .59339, .02274, .00706,
2243 + .00000, .01953, .03600,
2244 + .55612, .22272, .57653, .02270, .00740,
2245 + .00000, .01953, .03552,
2246 + .54308, .21606, .53995, .02254, .00801,
2247 + .00002, .01948, .03448,
2248 + .53189, .21043, .50838, .02234, .00845,
2249 + .00058, .01937, .03356,
2250 + .51948, .20428, .47326, .02204, .00884,
2251 + .00151, .01919, .03250,
2252 + .50654, .19799, .43833, .02166, .00912,
2253 + .00210, .01891, .03141,
2254 + .49491, .19242, .40844, .02128, .00930,
2255 + .00258, .01861, .03041 /
2256 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
2257 + .48335, .18694, .38010, .02087, .00943,
2258 + .00301, .01829, .02941,
2259 + .47387, .18248, .35778, .02050, .00949,
2260 + .00329, .01798, .02858,
2261 + .46252, .17716, .33226, .02000, .00951,
2262 + .00358, .01759, .02761,
2263 + .45269, .17260, .31121, .01954, .00951,
2264 + .00380, .01723, .02676,
2265 + .44367, .16851, .29291, .01914, .00946,
2266 + .00395, .01688, .02597,
2267 + .43246, .16346, .27128, .01861, .00938,
2268 + .00412, .01642, .02502,
2269 + .42215, .15883, .25241, .01811, .00929,
2270 + .00424, .01599, .02417,
2271 + .41258, .15459, .23590, .01763, .00917,
2272 + .00431, .01559, .02333 /
2273 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
2274 + .40324, .15048, .22057, .01716, .00904,
2275 + .00436, .01519, .02252,
2276 + .39420, .14654, .20656, .01670, .00889,
2277 + .00439, .01478, .02176,
2278 + .38583, .14292, .19419, .01627, .00875,
2279 + .00441, .01440, .02107,
2280 + .37805, .13957, .18326, .01586, .00861,
2281 + .00441, .01405, .02043,
2282 + .37037, .13629, .17297, .01545, .00846,
2283 + .00440, .01370, .01981,
2284 + .36293, .13314, .16347, .01507, .00830,
2285 + .00438, .01335, .01920,
2286 + .35599, .13021, .15498, .01470, .00816,
2287 + .00435, .01303, .01865,
2288 + .34947, .12749, .14738, .01436, .00801,
2289 + .00432, .01273, .01814 /
2290 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
2291 + .34307, .12482, .14015, .01403, .00787,
2292 + .00428, .01243, .01765,
2293 + .33679, .12221, .13341, .01369, .00772,
2294 + .00424, .01213, .01715,
2295 + .33093, .11978, .12732, .01338, .00759,
2296 + .00420, .01187, .01669,
2297 + .32545, .11752, .12184, .01309, .00746,
2298 + .00416, .01161, .01627,
2299 + .31996, .11526, .11658, .01280, .00732,
2300 + .00411, .01135, .01586 /
2301 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
2302 + .64218, .26127, .78165, .01653, .00000,
2303 + .00000, .01253, .03102,
2304 + .63211, .25572, .76124, .01703, .00001,
2305 + .00000, .01315, .03076,
2306 + .61697, .24758, .72558, .01765, .00099,
2307 + .00000, .01392, .03030,
2308 + .60584, .24171, .69610, .01800, .00223,
2309 + .00000, .01437, .02989,
2310 + .59394, .23557, .66340, .01824, .00319,
2311 + .00000, .01473, .02941,
2312 + .58373, .23035, .63535, .01839, .00396,
2313 + .00000, .01499, .02897,
2314 + .57390, .22536, .60793, .01846, .00455,
2315 + .00000, .01516, .02851,
2316 + .56344, .22018, .57905, .01851, .00513,
2317 + .00000, .01529, .02798 /
2318 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
2319 + .55438, .21577, .55436, .01852, .00557,
2320 + .00000, .01536, .02749,
2321 + .54564, .21153, .53065, .01846, .00594,
2322 + .00000, .01538, .02702,
2323 + .53878, .20821, .51229, .01839, .00620,
2324 + .00000, .01537, .02665,
2325 + .52418, .20125, .47362, .01819, .00666,
2326 + .00002, .01531, .02582,
2327 + .51174, .19540, .44121, .01798, .00698,
2328 + .00046, .01519, .02508,
2329 + .49806, .18902, .40608, .01767, .00725,
2330 + .00120, .01499, .02426,
2331 + .48389, .18255, .37190, .01729, .00743,
2332 + .00166, .01473, .02338,
2333 + .47126, .17687, .34317, .01692, .00753,
2334 + .00203, .01445, .02258 /
2335 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
2336 + .45879, .17130, .31636, .01652, .00759,
2337 + .00236, .01415, .02178,
2338 + .44861, .16678, .29558, .01618, .00760,
2339 + .00257, .01388, .02112,
2340 + .43645, .16147, .27214, .01574, .00757,
2341 + .00278, .01353, .02033,
2342 + .42596, .15692, .25302, .01534, .00753,
2343 + .00294, .01322, .01965,
2344 + .41645, .15282, .23658, .01497, .00747,
2345 + .00304, .01291, .01904,
2346 + .40467, .14778, .21734, .01451, .00736,
2347 + .00314, .01252, .01828,
2348 + .39387, .14320, .20076, .01408, .00725,
2349 + .00322, .01216, .01758,
2350 + .38389, .13902, .18642, .01365, .00713,
2351 + .00326, .01181, .01693 /
2352 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
2353 + .37421, .13499, .17322, .01324, .00700,
2354 + .00329, .01146, .01631,
2355 + .36490, .13113, .16128, .01284, .00686,
2356 + .00330, .01112, .01572,
2357 + .35628, .12759, .15083, .01248, .00672,
2358 + .00330, .01080, .01518,
2359 + .34829, .12434, .14166, .01214, .00659,
2360 + .00329, .01051, .01468,
2361 + .34044, .12116, .13307, .01181, .00645,
2362 + .00327, .01022, .01419,
2363 + .33287, .11810, .12519, .01148, .00632,
2364 + .00324, .00994, .01373,
2365 + .32584, .11528, .11820, .01117, .00619,
2366 + .00321, .00968, .01331,
2367 + .31928, .11266, .11200, .01089, .00606,
2368 + .00318, .00943, .01292 /
2369 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
2370 + .31283, .11010, .10612, .01061, .00594,
2371 + .00315, .00919, .01253,
2372 + .30651, .10760, .10068, .01034, .00581,
2373 + .00311, .00895, .01216,
2374 + .30063, .10528, .09577, .01009, .00569,
2375 + .00307, .00873, .01182,
2376 + .29515, .10313, .09139, .00985, .00558,
2377 + .00303, .00852, .01150,
2378 + .28968, .10099, .08719, .00961, .00547,
2379 + .00299, .00831, .01118 /
2380 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
2381 + .63256, .24773, .76223, .01318, .00000,
2382 + .00000, .00964, .02276,
2383 + .62085, .24185, .73236, .01365, .00001,
2384 + .00000, .01020, .02264,
2385 + .60343, .23327, .68509, .01422, .00084,
2386 + .00000, .01089, .02237,
2387 + .59072, .22712, .64889, .01451, .00189,
2388 + .00000, .01128, .02211,
2389 + .57732, .22068, .61066, .01470, .00269,
2390 + .00000, .01158, .02179,
2391 + .56587, .21525, .57871, .01482, .00333,
2392 + .00000, .01179, .02148,
2393 + .55488, .21011, .54844, .01487, .00380,
2394 + .00000, .01193, .02113,
2395 + .54329, .20477, .51730, .01488, .00426,
2396 + .00000, .01202, .02073 /
2397 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
2398 + .53332, .20023, .49120, .01487, .00461,
2399 + .00000, .01207, .02036,
2400 + .52375, .19588, .46666, .01479, .00489,
2401 + .00000, .01207, .02000,
2402 + .51626, .19248, .44790, .01471, .00508,
2403 + .00000, .01205, .01972,
2404 + .50041, .18540, .40911, .01452, .00542,
2405 + .00001, .01197, .01907,
2406 + .48699, .17949, .37732, .01431, .00565,
2407 + .00037, .01185, .01848,
2408 + .47232, .17309, .34362, .01400, .00583,
2409 + .00094, .01165, .01784,
2410 + .45725, .16661, .31141, .01366, .00594,
2411 + .00130, .01139, .01716,
2412 + .44390, .16094, .28476, .01332, .00599,
2413 + .00158, .01114, .01653 /
2414 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
2415 + .43078, .15541, .26019, .01297, .00600,
2416 + .00181, .01087, .01590,
2417 + .42013, .15094, .24138, .01266, .00598,
2418 + .00197, .01064, .01538,
2419 + .40748, .14570, .22041, .01227, .00594,
2420 + .00212, .01034, .01477,
2421 + .39662, .14124, .20347, .01192, .00588,
2422 + .00223, .01007, .01424,
2423 + .38678, .13724, .18910, .01162, .00580,
2424 + .00230, .00980, .01376,
2425 + .37468, .13233, .17244, .01121, .00570,
2426 + .00237, .00947, .01316,
2427 + .36366, .12787, .15822, .01081, .00558,
2428 + .00242, .00917, .01264,
2429 + .35352, .12383, .14603, .01046, .00547,
2430 + .00243, .00887, .01213 /
2431 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
2432 + .34370, .11994, .13490, .01012, .00535,
2433 + .00245, .00858, .01165,
2434 + .33431, .11622, .12493, .00977, .00522,
2435 + .00245, .00830, .01122,
2436 + .32564, .11282, .11625, .00947, .00510,
2437 + .00244, .00804, .01082,
2438 + .31763, .10972, .10869, .00920, .00498,
2439 + .00242, .00780, .01043,
2440 + .30980, .10670, .10166, .00893, .00486,
2441 + .00240, .00757, .01006,
2442 + .30229, .10380, .09525, .00865, .00475,
2443 + .00237, .00734, .00970,
2444 + .29532, .10112, .08960, .00840, .00464,
2445 + .00235, .00712, .00937,
2446 + .28882, .09863, .08461, .00816, .00453,
2447 + .00232, .00693, .00909 /
2448 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
2449 + .28245, .09620, .07989, .00794, .00443,
2450 + .00229, .00674, .00880,
2451 + .27625, .09385, .07556, .00771, .00432,
2452 + .00225, .00656, .00853,
2453 + .27049, .09167, .07167, .00750, .00422,
2454 + .00222, .00639, .00827,
2455 + .26511, .08965, .06820, .00731, .00413,
2456 + .00219, .00623, .00803,
2457 + .25976, .08766, .06491, .00713, .00404,
2458 + .00215, .00606, .00780 /
2459 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
2460 + .61605, .23281, .72410, .01067, .00000,
2461 + .00000, .00728, .01618,
2462 + .60298, .22669, .68747, .01107, .00001,
2463 + .00000, .00777, .01619,
2464 + .58371, .21778, .63243, .01151, .00071,
2465 + .00000, .00837, .01612,
2466 + .56980, .21140, .59216, .01172, .00158,
2467 + .00000, .00872, .01600,
2468 + .55511, .20486, .55093, .01187, .00224,
2469 + .00000, .00897, .01578,
2470 + .54263, .19935, .51714, .01197, .00275,
2471 + .00000, .00914, .01557,
2472 + .53075, .19416, .48585, .01199, .00313,
2473 + .00000, .00926, .01532,
2474 + .51831, .18875, .45416, .01197, .00349,
2475 + .00000, .00932, .01504 /
2476 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
2477 + .50767, .18414, .42796, .01192, .00376,
2478 + .00000, .00933, .01479,
2479 + .49748, .17977, .40372, .01184, .00397,
2480 + .00000, .00932, .01454,
2481 + .48950, .17638, .38538, .01176, .00411,
2482 + .00000, .00930, .01433,
2483 + .47277, .16932, .34808, .01154, .00436,
2484 + .00001, .00921, .01385,
2485 + .45870, .16343, .31807, .01132, .00451,
2486 + .00028, .00910, .01341,
2487 + .44337, .15708, .28678, .01105, .00463,
2488 + .00073, .00893, .01291,
2489 + .42772, .15073, .25732, .01073, .00469,
2490 + .00100, .00872, .01238,
2491 + .41395, .14517, .23329, .01043, .00470,
2492 + .00121, .00850, .01190 /
2493 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
2494 + .40049, .13976, .21141, .01012, .00469,
2495 + .00138, .00826, .01142,
2496 + .38960, .13543, .19483, .00984, .00466,
2497 + .00150, .00807, .01101,
2498 + .37672, .13034, .17653, .00950, .00459,
2499 + .00160, .00780, .01056,
2500 + .36569, .12600, .16190, .00921, .00453,
2501 + .00168, .00756, .01018,
2502 + .35582, .12215, .14961, .00892, .00446,
2503 + .00172, .00735, .00981,
2504 + .34367, .11744, .13547, .00856, .00435,
2505 + .00177, .00708, .00936,
2506 + .33261, .11321, .12352, .00824, .00425,
2507 + .00179, .00683, .00894,
2508 + .32245, .10936, .11337, .00797, .00415,
2509 + .00180, .00659, .00857 /
2510 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
2511 + .31266, .10567, .10417, .00771, .00404,
2512 + .00180, .00636, .00822,
2513 + .30337, .10216, .09597, .00742, .00393,
2514 + .00180, .00614, .00790,
2515 + .29483, .09895, .08889, .00716, .00383,
2516 + .00178, .00593, .00760,
2517 + .28699, .09602, .08277, .00692, .00373,
2518 + .00177, .00573, .00733,
2519 + .27932, .09318, .07711, .00670, .00363,
2520 + .00175, .00554, .00705,
2521 + .27195, .09048, .07197, .00649, .00353,
2522 + .00172, .00536, .00677,
2523 + .26514, .08798, .06746, .00629, .00344,
2524 + .00170, .00520, .00652,
2525 + .25885, .08567, .06352, .00610, .00335,
2526 + .00167, .00505, .00631 /
2527 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
2528 + .25269, .08342, .05980, .00591, .00327,
2529 + .00165, .00490, .00610,
2530 + .24670, .08123, .05639, .00572, .00318,
2531 + .00162, .00475, .00590,
2532 + .24114, .07922, .05334, .00555, .00310,
2533 + .00159, .00462, .00571,
2534 + .23598, .07735, .05064, .00540, .00303,
2535 + .00157, .00449, .00554,
2536 + .23084, .07551, .04808, .00525, .00296,
2537 + .00154, .00437, .00537 /
2538 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
2539 + .59381, .21663, .67143, .00853, .00000,
2540 + .00000, .00545, .01125,
2541 + .57964, .21040, .63069, .00885, .00001,
2542 + .00000, .00589, .01134,
2543 + .55889, .20136, .57149, .00919, .00058,
2544 + .00000, .00641, .01138,
2545 + .54398, .19495, .52949, .00935, .00129,
2546 + .00000, .00670, .01135,
2547 + .52831, .18841, .48745, .00949, .00183,
2548 + .00000, .00690, .01121,
2549 + .51509, .18289, .45352, .00955, .00223,
2550 + .00000, .00703, .01108,
2551 + .50265, .17766, .42265, .00952, .00253,
2552 + .00000, .00710, .01096,
2553 + .48960, .17228, .39180, .00947, .00280,
2554 + .00000, .00715, .01077 /
2555 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
2556 + .47844, .16776, .36659, .00942, .00301,
2557 + .00000, .00718, .01057,
2558 + .46783, .16345, .34354, .00933, .00316,
2559 + .00000, .00717, .01039,
2560 + .45957, .16011, .32625, .00923, .00327,
2561 + .00000, .00714, .01024,
2562 + .44227, .15319, .29158, .00905, .00344,
2563 + .00001, .00706, .00987,
2564 + .42778, .14746, .26412, .00886, .00355,
2565 + .00022, .00695, .00954,
2566 + .41209, .14130, .23589, .00862, .00362,
2567 + .00056, .00678, .00918,
2568 + .39621, .13511, .20974, .00832, .00364,
2569 + .00076, .00659, .00882,
2570 + .38228, .12974, .18860, .00806, .00364,
2571 + .00091, .00640, .00847 /
2572 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
2573 + .36872, .12455, .16955, .00778, .00361,
2574 + .00104, .00621, .00811,
2575 + .35780, .12040, .15529, .00753, .00357,
2576 + .00112, .00604, .00783,
2577 + .34495, .11556, .13970, .00724, .00350,
2578 + .00119, .00582, .00749,
2579 + .33399, .11146, .12732, .00699, .00344,
2580 + .00125, .00563, .00720,
2581 + .32417, .10780, .11702, .00678, .00337,
2582 + .00128, .00546, .00692,
2583 + .31217, .10335, .10527, .00649, .00328,
2584 + .00130, .00524, .00658,
2585 + .30132, .09934, .09541, .00620, .00319,
2586 + .00132, .00504, .00628,
2587 + .29140, .09573, .08712, .00597, .00310,
2588 + .00132, .00484, .00600 /
2589 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
2590 + .28186, .09228, .07964, .00575, .00301,
2591 + .00132, .00466, .00574,
2592 + .27282, .08901, .07303, .00552, .00292,
2593 + .00131, .00448, .00548,
2594 + .26454, .08604, .06736, .00532, .00283,
2595 + .00129, .00431, .00526,
2596 + .25693, .08332, .06247, .00514, .00275,
2597 + .00128, .00416, .00506,
2598 + .24952, .08069, .05798, .00496, .00267,
2599 + .00126, .00401, .00487,
2600 + .24246, .07819, .05394, .00478, .00259,
2601 + .00124, .00388, .00468,
2602 + .23594, .07588, .05040, .00462, .00252,
2603 + .00122, .00375, .00451,
2604 + .22992, .07376, .04732, .00447, .00245,
2605 + .00120, .00364, .00435 /
2606 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
2607 + .22404, .07168, .04442, .00432, .00238,
2608 + .00118, .00353, .00420,
2609 + .21831, .06969, .04179, .00418, .00232,
2610 + .00115, .00341, .00405,
2611 + .21302, .06786, .03944, .00406, .00225,
2612 + .00113, .00330, .00391,
2613 + .20812, .06616, .03736, .00394, .00220,
2614 + .00111, .00321, .00379,
2615 + .20328, .06448, .03540, .00382, .00214,
2616 + .00109, .00311, .00367 /
2617 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
2618 + .56668, .19968, .60861, .00671, .00000,
2619 + .00000, .00406, .00763,
2620 + .55165, .19345, .56612, .00698, .00001,
2621 + .00000, .00442, .00776,
2622 + .52978, .18446, .50592, .00726, .00047,
2623 + .00000, .00486, .00788,
2624 + .51418, .17811, .46423, .00736, .00104,
2625 + .00000, .00509, .00790,
2626 + .49795, .17163, .42321, .00742, .00146,
2627 + .00000, .00525, .00787,
2628 + .48426, .16620, .39051, .00745, .00178,
2629 + .00000, .00535, .00781,
2630 + .47135, .16111, .36114, .00742, .00201,
2631 + .00000, .00541, .00772,
2632 + .45793, .15585, .33216, .00737, .00222,
2633 + .00000, .00545, .00760 /
2634 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
2635 + .44653, .15141, .30874, .00732, .00237,
2636 + .00000, .00545, .00748,
2637 + .43572, .14723, .28753, .00722, .00248,
2638 + .00000, .00543, .00736,
2639 + .42732, .14399, .27173, .00712, .00256,
2640 + .00000, .00540, .00726,
2641 + .40979, .13731, .24046, .00695, .00268,
2642 + .00001, .00532, .00700,
2643 + .39517, .13180, .21603, .00679, .00275,
2644 + .00016, .00523, .00676,
2645 + .37941, .12590, .19121, .00657, .00279,
2646 + .00042, .00510, .00650,
2647 + .36351, .12003, .16850, .00636, .00279,
2648 + .00057, .00494, .00618,
2649 + .34968, .11493, .15037, .00611, .00277,
2650 + .00068, .00478, .00593 /
2651 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
2652 + .33629, .11000, .13419, .00585, .00273,
2653 + .00077, .00462, .00570,
2654 + .32553, .10608, .12217, .00565, .00269,
2655 + .00083, .00448, .00549,
2656 + .31293, .10152, .10915, .00541, .00264,
2657 + .00088, .00431, .00523,
2658 + .30222, .09768, .09891, .00520, .00258,
2659 + .00091, .00415, .00501,
2660 + .29264, .09426, .09045, .00502, .00252,
2661 + .00093, .00401, .00481,
2662 + .28097, .09011, .08085, .00480, .00244,
2663 + .00095, .00384, .00457,
2664 + .27045, .08640, .07286, .00458, .00236,
2665 + .00095, .00368, .00436,
2666 + .26089, .08306, .06621, .00439, .00229,
2667 + .00095, .00353, .00415 /
2668 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
2669 + .25172, .07987, .06025, .00422, .00221,
2670 + .00095, .00338, .00396,
2671 + .24304, .07686, .05500, .00404, .00214,
2672 + .00094, .00324, .00378,
2673 + .23512, .07413, .05053, .00389, .00207,
2674 + .00092, .00312, .00363,
2675 + .22788, .07164, .04670, .00376, .00201,
2676 + .00091, .00301, .00348,
2677 + .22085, .06924, .04320, .00362, .00194,
2678 + .00090, .00290, .00334,
2679 + .21416, .06696, .04005, .00347, .00188,
2680 + .00088, .00278, .00321,
2681 + .20800, .06486, .03731, .00334, .00182,
2682 + .00086, .00268, .00308,
2683 + .20233, .06293, .03494, .00322, .00177,
2684 + .00085, .00260, .00297 /
2685 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
2686 + .19681, .06106, .03272, .00310, .00172,
2687 + .00083, .00251, .00286,
2688 + .19144, .05926, .03071, .00300, .00166,
2689 + .00081, .00243, .00275,
2690 + .18649, .05760, .02892, .00290, .00162,
2691 + .00080, .00235, .00265,
2692 + .18191, .05608, .02734, .00282, .00157,
2693 + .00078, .00227, .00256,
2694 + .17738, .05458, .02586, .00273, .00153,
2695 + .00077, .00220, .00247 /
2696 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
2697 + .53544, .18252, .54010, .00530, .00000,
2698 + .00000, .00291, .00500,
2699 + .51988, .17637, .49789, .00550, .00001,
2700 + .00000, .00323, .00516,
2701 + .49735, .16756, .43925, .00569, .00038,
2702 + .00000, .00360, .00532,
2703 + .48131, .16138, .39938, .00577, .00083,
2704 + .00000, .00378, .00539,
2705 + .46473, .15506, .36077, .00580, .00116,
2706 + .00000, .00392, .00539,
2707 + .45082, .14980, .33033, .00580, .00140,
2708 + .00000, .00400, .00536,
2709 + .43776, .14488, .30329, .00577, .00157,
2710 + .00000, .00405, .00530,
2711 + .42423, .13983, .27689, .00571, .00173,
2712 + .00000, .00407, .00523 /
2713 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
2714 + .41277, .13557, .25576, .00564, .00184,
2715 + .00000, .00407, .00516,
2716 + .40192, .13156, .23679, .00556, .00192,
2717 + .00000, .00405, .00507,
2718 + .39351, .12847, .22275, .00549, .00197,
2719 + .00000, .00402, .00500,
2720 + .37605, .12210, .19523, .00533, .00205,
2721 + .00001, .00395, .00482,
2722 + .36159, .11686, .17402, .00517, .00209,
2723 + .00012, .00387, .00467,
2724 + .34606, .11127, .15279, .00496, .00211,
2725 + .00031, .00375, .00451,
2726 + .33050, .10571, .13349, .00476, .00210,
2727 + .00042, .00362, .00431,
2728 + .31695, .10094, .11827, .00459, .00208,
2729 + .00050, .00350, .00412 /
2730 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
2731 + .30386, .09636, .10481, .00440, .00204,
2732 + .00057, .00337, .00393,
2733 + .29342, .09270, .09488, .00424, .00201,
2734 + .00061, .00326, .00377,
2735 + .28123, .08847, .08422, .00404, .00195,
2736 + .00064, .00313, .00359,
2737 + .27090, .08490, .07590, .00387, .00191,
2738 + .00066, .00301, .00343,
2739 + .26169, .08175, .06907, .00373, .00185,
2740 + .00067, .00289, .00330,
2741 + .25052, .07794, .06139, .00355, .00179,
2742 + .00068, .00275, .00313,
2743 + .24050, .07454, .05504, .00337, .00173,
2744 + .00069, .00262, .00298,
2745 + .23143, .07149, .04979, .00323, .00167,
2746 + .00068, .00252, .00282 /
2747 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
2748 + .22275, .06858, .04510, .00309, .00161,
2749 + .00068, .00242, .00268,
2750 + .21455, .06584, .04100, .00296, .00155,
2751 + .00067, .00231, .00255,
2752 + .20709, .06336, .03753, .00284, .00150,
2753 + .00066, .00222, .00244,
2754 + .20031, .06111, .03458, .00272, .00145,
2755 + .00065, .00213, .00235,
2756 + .19375, .05894, .03189, .00261, .00140,
2757 + .00063, .00205, .00225,
2758 + .18750, .05688, .02949, .00250, .00135,
2759 + .00062, .00196, .00215,
2760 + .18176, .05500, .02741, .00240, .00130,
2761 + .00061, .00188, .00206,
2762 + .17646, .05328, .02560, .00232, .00126,
2763 + .00060, .00181, .00198 /
2764 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
2765 + .17131, .05161, .02392, .00224, .00122,
2766 + .00058, .00175, .00191,
2767 + .16636, .05001, .02240, .00216, .00118,
2768 + .00057, .00169, .00184,
2769 + .16180, .04853, .02106, .00208, .00115,
2770 + .00056, .00163, .00178,
2771 + .15758, .04717, .01987, .00201, .00111,
2772 + .00055, .00158, .00172,
2773 + .15341, .04583, .01877, .00195, .00108,
2774 + .00053, .00153, .00167 /
2775 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
2776 + .50113, .16522, .46946, .00405, .00000,
2777 + .00000, .00211, .00317,
2778 + .48526, .15928, .42912, .00421, .00000,
2779 + .00000, .00236, .00334,
2780 + .46237, .15079, .37400, .00437, .00029,
2781 + .00000, .00265, .00353,
2782 + .44619, .14485, .33717, .00444, .00064,
2783 + .00000, .00278, .00362,
2784 + .42958, .13880, .30193, .00445, .00089,
2785 + .00000, .00287, .00363,
2786 + .41570, .13377, .27444, .00443, .00108,
2787 + .00000, .00293, .00363,
2788 + .40267, .12910, .25030, .00441, .00121,
2789 + .00000, .00297, .00360,
2790 + .38922, .12430, .22693, .00437, .00132,
2791 + .00000, .00298, .00355 /
2792 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
2793 + .37787, .12027, .20835, .00433, .00140,
2794 + .00000, .00298, .00349,
2795 + .36718, .11648, .19183, .00426, .00146,
2796 + .00000, .00296, .00344,
2797 + .35893, .11356, .17969, .00419, .00149,
2798 + .00000, .00294, .00340,
2799 + .34185, .10759, .15609, .00404, .00155,
2800 + .00001, .00288, .00328,
2801 + .32774, .10269, .13809, .00390, .00157,
2802 + .00009, .00281, .00317,
2803 + .31264, .09745, .12024, .00374, .00158,
2804 + .00023, .00271, .00308,
2805 + .29757, .09233, .10422, .00357, .00156,
2806 + .00031, .00261, .00292,
2807 + .28453, .08792, .09171, .00341, .00154,
2808 + .00037, .00251, .00279 /
2809 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
2810 + .27197, .08368, .08073, .00326, .00151,
2811 + .00041, .00241, .00267,
2812 + .26197, .08031, .07271, .00314, .00147,
2813 + .00044, .00232, .00256,
2814 + .25036, .07643, .06416, .00298, .00143,
2815 + .00047, .00222, .00243,
2816 + .24056, .07317, .05752, .00284, .00139,
2817 + .00048, .00213, .00232,
2818 + .23187, .07030, .05212, .00273, .00135,
2819 + .00049, .00204, .00222,
2820 + .22133, .06684, .04607, .00258, .00129,
2821 + .00049, .00194, .00210,
2822 + .21190, .06376, .04110, .00246, .00124,
2823 + .00049, .00186, .00199,
2824 + .20340, .06100, .03702, .00235, .00120,
2825 + .00049, .00176, .00189 /
2826 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
2827 + .19528, .05838, .03340, .00225, .00115,
2828 + .00048, .00168, .00180,
2829 + .18765, .05592, .03027, .00214, .00111,
2830 + .00048, .00160, .00171,
2831 + .18074, .05370, .02761, .00205, .00107,
2832 + .00047, .00152, .00163,
2833 + .17447, .05170, .02536, .00196, .00103,
2834 + .00046, .00146, .00155,
2835 + .16840, .04976, .02332, .00187, .00099,
2836 + .00045, .00140, .00148,
2837 + .16265, .04793, .02151, .00177, .00095,
2838 + .00044, .00135, .00142,
2839 + .15738, .04626, .01994, .00170, .00092,
2840 + .00043, .00130, .00136,
2841 + .15252, .04474, .01860, .00164, .00089,
2842 + .00042, .00125, .00130 /
2843 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
2844 + .14780, .04326, .01734, .00159, .00086,
2845 + .00041, .00120, .00125,
2846 + .14329, .04183, .01621, .00152, .00083,
2847 + .00041, .00116, .00120,
2848 + .13914, .04052, .01521, .00145, .00080,
2849 + .00040, .00111, .00117,
2850 + .13530, .03933, .01434, .00140, .00078,
2851 + .00039, .00107, .00113,
2852 + .13150, .03816, .01352, .00136, .00076,
2853 + .00038, .00103, .00108 /
2854 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
2855 + .46441, .14809, .39966, .00296, .00000,
2856 + .00000, .00151, .00203,
2857 + .44851, .14242, .36239, .00309, .00000,
2858 + .00000, .00171, .00218,
2859 + .42568, .13434, .31223, .00323, .00023,
2860 + .00000, .00193, .00233,
2861 + .40966, .12869, .27919, .00328, .00049,
2862 + .00000, .00204, .00238,
2863 + .39324, .12296, .24792, .00328, .00068,
2864 + .00000, .00212, .00243,
2865 + .37956, .11822, .22374, .00326, .00082,
2866 + .00000, .00217, .00245,
2867 + .36679, .11382, .20271, .00322, .00091,
2868 + .00000, .00219, .00243,
2869 + .35366, .10932, .18251, .00318, .00099,
2870 + .00000, .00220, .00240 /
2871 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
2872 + .34261, .10555, .16660, .00313, .00105,
2873 + .00000, .00219, .00238,
2874 + .33221, .10202, .15254, .00307, .00109,
2875 + .00000, .00217, .00235,
2876 + .32420, .09932, .14226, .00301, .00111,
2877 + .00000, .00214, .00233,
2878 + .30765, .09378, .12251, .00292, .00115,
2879 + .00001, .00209, .00224,
2880 + .29406, .08926, .10760, .00284, .00116,
2881 + .00007, .00204, .00216,
2882 + .27962, .08445, .09296, .00270, .00116,
2883 + .00016, .00197, .00210,
2884 + .26525, .07973, .07994, .00255, .00114,
2885 + .00022, .00189, .00200,
2886 + .25288, .07568, .06985, .00242, .00112,
2887 + .00026, .00181, .00191 /
2888 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
2889 + .24101, .07182, .06109, .00231, .00109,
2890 + .00030, .00173, .00181,
2891 + .23158, .06878, .05474, .00221, .00106,
2892 + .00032, .00166, .00173,
2893 + .22064, .06526, .04803, .00211, .00103,
2894 + .00033, .00159, .00165,
2895 + .21144, .06233, .04285, .00201, .00099,
2896 + .00035, .00152, .00157,
2897 + .20335, .05975, .03865, .00191, .00096,
2898 + .00035, .00145, .00150,
2899 + .19355, .05665, .03398, .00180, .00092,
2900 + .00036, .00137, .00142,
2901 + .18476, .05389, .03018, .00171, .00088,
2902 + .00036, .00129, .00135,
2903 + .17690, .05144, .02708, .00162, .00085,
2904 + .00035, .00124, .00128 /
2905 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
2906 + .16943, .04911, .02434, .00154, .00081,
2907 + .00035, .00119, .00120,
2908 + .16244, .04692, .02198, .00146, .00078,
2909 + .00034, .00113, .00115,
2910 + .15610, .04495, .01999, .00139, .00075,
2911 + .00034, .00108, .00110,
2912 + .15036, .04318, .01831, .00133, .00072,
2913 + .00033, .00103, .00105,
2914 + .14482, .04148, .01680, .00127, .00069,
2915 + .00033, .00098, .00100,
2916 + .13957, .03987, .01546, .00121, .00066,
2917 + .00032, .00094, .00096,
2918 + .13478, .03841, .01431, .00116, .00064,
2919 + .00031, .00090, .00092,
2920 + .13038, .03708, .01332, .00111, .00062,
2921 + .00031, .00086, .00088 /
2922 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
2923 + .12613, .03580, .01239, .00107, .00060,
2924 + .00030, .00083, .00083,
2925 + .12204, .03456, .01157, .00103, .00058,
2926 + .00030, .00080, .00080,
2927 + .11828, .03343, .01085, .00100, .00056,
2928 + .00029, .00077, .00077,
2929 + .11483, .03239, .01021, .00096, .00054,
2930 + .00029, .00074, .00074,
2931 + .11145, .03137, .00961, .00092, .00052,
2932 + .00028, .00072, .00071 /
2933 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
2934 + .42608, .13153, .33340, .00217, .00000,
2935 + .00000, .00106, .00121,
2936 + .41042, .12615, .29993, .00226, .00000,
2937 + .00000, .00122, .00135,
2938 + .38804, .11852, .25550, .00233, .00017,
2939 + .00000, .00138, .00151,
2940 + .37236, .11323, .22665, .00236, .00037,
2941 + .00000, .00149, .00157,
2942 + .35636, .10788, .19962, .00235, .00051,
2943 + .00000, .00153, .00163,
2944 + .34309, .10346, .17892, .00233, .00061,
2945 + .00000, .00156, .00167,
2946 + .33078, .09936, .16106, .00229, .00068,
2947 + .00000, .00158, .00166,
2948 + .31814, .09519, .14405, .00224, .00074,
2949 + .00000, .00159, .00165 /
2950 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
2951 + .30753, .09171, .13075, .00219, .00077,
2952 + .00000, .00159, .00163,
2953 + .29755, .08846, .11910, .00215, .00080,
2954 + .00000, .00158, .00162,
2955 + .28986, .08597, .11063, .00213, .00081,
2956 + .00000, .00155, .00161,
2957 + .27411, .08090, .09445, .00205, .00083,
2958 + .00000, .00151, .00154,
2959 + .26124, .07677, .08235, .00195, .00084,
2960 + .00005, .00147, .00148,
2961 + .24761, .07239, .07060, .00182, .00083,
2962 + .00012, .00141, .00146,
2963 + .23404, .06812, .06028, .00175, .00082,
2964 + .00015, .00136, .00136,
2965 + .22245, .06448, .05235, .00166, .00080,
2966 + .00018, .00130, .00129 /
2967 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
2968 + .21137, .06101, .04550, .00157, .00078,
2969 + .00020, .00124, .00123,
2970 + .20258, .05828, .04057, .00150, .00075,
2971 + .00022, .00119, .00118,
2972 + .19244, .05515, .03538, .00142, .00072,
2973 + .00023, .00113, .00112,
2974 + .18393, .05253, .03141, .00135, .00070,
2975 + .00024, .00108, .00107,
2976 + .17646, .05024, .02823, .00128, .00068,
2977 + .00024, .00103, .00102,
2978 + .16747, .04749, .02471, .00120, .00065,
2979 + .00024, .00097, .00097,
2980 + .15947, .04504, .02185, .00112, .00062,
2981 + .00024, .00092, .00091,
2982 + .15229, .04289, .01953, .00107, .00059,
2983 + .00024, .00088, .00086 /
2984 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
2985 + .14547, .04085, .01749, .00103, .00057,
2986 + .00024, .00083, .00081,
2987 + .13911, .03894, .01575, .00097, .00054,
2988 + .00024, .00079, .00078,
2989 + .13337, .03722, .01428, .00092, .00052,
2990 + .00024, .00075, .00075,
2991 + .12818, .03568, .01305, .00087, .00050,
2992 + .00024, .00071, .00071,
2993 + .12320, .03421, .01195, .00083, .00048,
2994 + .00024, .00068, .00068,
2995 + .11850, .03282, .01097, .00078, .00047,
2996 + .00024, .00065, .00064,
2997 + .11421, .03155, .01014, .00075, .00045,
2998 + .00023, .00063, .00061,
2999 + .11028, .03039, .00942, .00072, .00043,
3000 + .00023, .00060, .00059 /
3001 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
3002 + .10648, .02928, .00875, .00069, .00042,
3003 + .00022, .00058, .00057,
3004 + .10286, .02822, .00816, .00065, .00041,
3005 + .00022, .00055, .00054,
3006 + .09955, .02726, .00764, .00062, .00039,
3007 + .00022, .00053, .00052,
3008 + .09649, .02637, .00718, .00060, .00038,
3009 + .00022, .00051, .00050,
3010 + .09348, .02550, .00676, .00058, .00037,
3011 + .00021, .00049, .00047 /
3012 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
3013 + .38703, .11576, .27271, .00162, .00000,
3014 + .00000, .00067, .00069,
3015 + .37182, .11076, .24354, .00169, .00000,
3016 + .00000, .00079, .00080,
3017 + .35014, .10371, .20529, .00177, .00013,
3018 + .00000, .00092, .00092,
3019 + .33505, .09881, .18078, .00178, .00027,
3020 + .00000, .00099, .00098,
3021 + .31976, .09387, .15797, .00175, .00038,
3022 + .00000, .00104, .00101,
3023 + .30710, .08981, .14065, .00174, .00045,
3024 + .00000, .00107, .00103,
3025 + .29535, .08606, .12587, .00172, .00050,
3026 + .00000, .00108, .00104,
3027 + .28333, .08225, .11189, .00169, .00054,
3028 + .00000, .00108, .00105 /
3029 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
3030 + .27327, .07908, .10101, .00166, .00057,
3031 + .00000, .00106, .00104,
3032 + .26385, .07613, .09155, .00161, .00059,
3033 + .00000, .00105, .00103,
3034 + .25663, .07388, .08472, .00157, .00060,
3035 + .00000, .00104, .00102,
3036 + .24188, .06929, .07178, .00149, .00061,
3037 + .00000, .00101, .00100,
3038 + .22984, .06556, .06220, .00143, .00061,
3039 + .00003, .00097, .00096,
3040 + .21707, .06165, .05295, .00137, .00061,
3041 + .00008, .00093, .00091,
3042 + .20451, .05781, .04489, .00131, .00059,
3043 + .00011, .00089, .00088,
3044 + .19380, .05456, .03876, .00123, .00058,
3045 + .00012, .00086, .00084 /
3046 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
3047 + .18360, .05149, .03350, .00115, .00056,
3048 + .00014, .00082, .00079,
3049 + .17557, .04908, .02974, .00109, .00054,
3050 + .00015, .00077, .00076,
3051 + .16630, .04631, .02582, .00103, .00052,
3052 + .00015, .00073, .00070,
3053 + .15855, .04400, .02283, .00099, .00050,
3054 + .00016, .00071, .00066,
3055 + .15176, .04199, .02044, .00093, .00049,
3056 + .00016, .00067, .00064,
3057 + .14359, .03958, .01781, .00087, .00046,
3058 + .00016, .00062, .00060,
3059 + .13635, .03744, .01570, .00082, .00044,
3060 + .00016, .00058, .00057,
3061 + .12990, .03556, .01399, .00078, .00043,
3062 + .00016, .00055, .00054 /
3063 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
3064 + .12379, .03379, .01249, .00074, .00041,
3065 + .00016, .00052, .00050,
3066 + .11808, .03214, .01122, .00071, .00039,
3067 + .00016, .00049, .00048,
3068 + .11295, .03066, .01015, .00068, .00038,
3069 + .00016, .00046, .00046,
3070 + .10834, .02933, .00927, .00064, .00036,
3071 + .00016, .00045, .00043,
3072 + .10392, .02806, .00847, .00060, .00035,
3073 + .00016, .00043, .00041,
3074 + .09976, .02686, .00776, .00056, .00034,
3075 + .00016, .00041, .00040,
3076 + .09597, .02578, .00716, .00053, .00033,
3077 + .00016, .00039, .00038,
3078 + .09251, .02479, .00665, .00051, .00032,
3079 + .00016, .00037, .00036 /
3080 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
3081 + .08918, .02384, .00617, .00049, .00031,
3082 + .00016, .00036, .00034,
3083 + .08597, .02295, .00575, .00048, .00030,
3084 + .00016, .00034, .00033,
3085 + .08303, .02213, .00537, .00047, .00029,
3086 + .00016, .00033, .00031,
3087 + .08034, .02137, .00505, .00045, .00028,
3088 + .00016, .00031, .00030,
3089 + .07773, .02064, .00475, .00043, .00027,
3090 + .00016, .00030, .00029 /
3091 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
3092 + .34764, .10050, .21796, .00103, .00000,
3093 + .00000, .00051, .00043,
3094 + .33308, .09591, .19324, .00108, .00000,
3095 + .00000, .00059, .00052,
3096 + .31246, .08946, .16120, .00113, .00009,
3097 + .00000, .00067, .00061,
3098 + .29814, .08500, .14088, .00114, .00020,
3099 + .00000, .00072, .00066,
3100 + .28363, .08052, .12220, .00116, .00027,
3101 + .00000, .00075, .00068,
3102 + .27167, .07685, .10811, .00116, .00032,
3103 + .00000, .00077, .00070,
3104 + .26064, .07347, .09616, .00114, .00036,
3105 + .00000, .00077, .00071,
3106 + .24940, .07005, .08494, .00111, .00039,
3107 + .00000, .00077, .00070 /
3108 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
3109 + .24001, .06721, .07629, .00109, .00041,
3110 + .00000, .00076, .00069,
3111 + .23124, .06457, .06880, .00106, .00042,
3112 + .00000, .00075, .00069,
3113 + .22452, .06256, .06341, .00105, .00042,
3114 + .00000, .00074, .00069,
3115 + .21085, .05847, .05329, .00100, .00043,
3116 + .00000, .00072, .00066,
3117 + .19975, .05517, .04588, .00095, .00043,
3118 + .00002, .00069, .00064,
3119 + .18804, .05170, .03880, .00090, .00043,
3120 + .00005, .00065, .00061,
3121 + .17653, .04834, .03267, .00086, .00041,
3122 + .00007, .00062, .00058,
3123 + .16677, .04548, .02805, .00082, .00040,
3124 + .00008, .00058, .00056 /
3125 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
3126 + .15751, .04278, .02411, .00076, .00039,
3127 + .00009, .00055, .00053,
3128 + .15022, .04068, .02131, .00072, .00038,
3129 + .00009, .00053, .00050,
3130 + .14187, .03827, .01841, .00067, .00036,
3131 + .00009, .00050, .00047,
3132 + .13491, .03627, .01621, .00063, .00035,
3133 + .00009, .00046, .00045,
3134 + .12881, .03453, .01446, .00060, .00034,
3135 + .00009, .00045, .00042,
3136 + .12150, .03245, .01255, .00057, .00032,
3137 + .00009, .00042, .00039,
3138 + .11504, .03063, .01103, .00053, .00031,
3139 + .00009, .00038, .00037,
3140 + .10931, .02901, .00980, .00051, .00030,
3141 + .00009, .00037, .00035 /
3142 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
3143 + .10391, .02749, .00873, .00048, .00028,
3144 + .00009, .00035, .00033,
3145 + .09890, .02608, .00782, .00044, .00027,
3146 + .00009, .00033, .00031,
3147 + .09439, .02482, .00707, .00042, .00026,
3148 + .00009, .00031, .00030,
3149 + .09032, .02371, .00644, .00040, .00026,
3150 + .00009, .00029, .00029,
3151 + .08643, .02263, .00587, .00038, .00025,
3152 + .00009, .00028, .00027,
3153 + .08278, .02162, .00538, .00036, .00024,
3154 + .00009, .00027, .00026,
3155 + .07947, .02071, .00495, .00034, .00023,
3156 + .00009, .00025, .00024,
3157 + .07647, .01988, .00459, .00033, .00023,
3158 + .00009, .00024, .00023 /
3159 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
3160 + .07357, .01908, .00426, .00032, .00022,
3161 + .00009, .00023, .00022,
3162 + .07080, .01833, .00396, .00031, .00022,
3163 + .00009, .00022, .00021,
3164 + .06826, .01765, .00370, .00030, .00021,
3165 + .00009, .00021, .00020,
3166 + .06595, .01702, .00348, .00029, .00021,
3167 + .00009, .00020, .00019,
3168 + .06369, .01641, .00327, .00028, .00020,
3169 + .00009, .00019, .00018 /
3170 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
3171 + .30873, .08631, .17035, .00065, .00000,
3172 + .00000, .00036, .00027,
3173 + .29500, .08215, .14994, .00069, .00000,
3174 + .00000, .00042, .00034,
3175 + .27562, .07631, .12380, .00072, .00006,
3176 + .00000, .00048, .00042,
3177 + .26220, .07230, .10742, .00075, .00014,
3178 + .00000, .00050, .00045,
3179 + .24869, .06829, .09245, .00074, .00019,
3180 + .00000, .00052, .00046,
3181 + .23758, .06502, .08127, .00074, .00022,
3182 + .00000, .00053, .00046,
3183 + .22735, .06201, .07187, .00072, .00024,
3184 + .00000, .00052, .00048,
3185 + .21696, .05898, .06310, .00070, .00026,
3186 + .00000, .00052, .00048 /
3187 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
3188 + .20832, .05646, .05637, .00068, .00027,
3189 + .00000, .00052, .00047,
3190 + .20028, .05413, .05059, .00067, .00027,
3191 + .00000, .00051, .00047,
3192 + .19414, .05235, .04647, .00065, .00028,
3193 + .00000, .00050, .00047,
3194 + .18166, .04874, .03875, .00062, .00028,
3195 + .00000, .00049, .00045,
3196 + .17155, .04584, .03314, .00059, .00028,
3197 + .00001, .00048, .00043,
3198 + .16093, .04281, .02782, .00057, .00027,
3199 + .00003, .00045, .00040,
3200 + .15059, .03990, .02328, .00052, .00026,
3201 + .00004, .00043, .00038,
3202 + .14180, .03743, .01988, .00050, .00025,
3203 + .00005, .00040, .00036 /
3204 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
3205 + .13349, .03510, .01700, .00047, .00024,
3206 + .00005, .00038, .00034,
3207 + .12699, .03329, .01497, .00043, .00023,
3208 + .00005, .00036, .00033,
3209 + .11955, .03122, .01287, .00041, .00022,
3210 + .00005, .00034, .00031,
3211 + .11336, .02950, .01129, .00039, .00021,
3212 + .00005, .00032, .00029,
3213 + .10798, .02802, .01004, .00037, .00020,
3214 + .00005, .00030, .00028,
3215 + .10155, .02625, .00868, .00034, .00019,
3216 + .00005, .00028, .00026,
3217 + .09587, .02471, .00760, .00032, .00018,
3218 + .00005, .00026, .00024,
3219 + .09084, .02335, .00674, .00031, .00017,
3220 + .00005, .00025, .00022 /
3221 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
3222 + .08611, .02207, .00599, .00030, .00017,
3223 + .00005, .00023, .00021,
3224 + .08174, .02089, .00536, .00028, .00016,
3225 + .00005, .00022, .00020,
3226 + .07783, .01983, .00483, .00026, .00015,
3227 + .00005, .00020, .00019,
3228 + .07432, .01889, .00439, .00025, .00014,
3229 + .00005, .00020, .00018,
3230 + .07097, .01799, .00400, .00023, .00014,
3231 + .00005, .00019, .00017,
3232 + .06783, .01715, .00366, .00022, .00014,
3233 + .00005, .00017, .00017,
3234 + .06498, .01640, .00337, .00021, .00013,
3235 + .00005, .00016, .00016,
3236 + .06240, .01572, .00312, .00020, .00013,
3237 + .00005, .00016, .00015 /
3238 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
3239 + .05991, .01506, .00289, .00019, .00013,
3240 + .00005, .00015, .00014,
3241 + .05755, .01444, .00269, .00018, .00013,
3242 + .00005, .00015, .00013,
3243 + .05540, .01387, .00251, .00017, .00013,
3244 + .00005, .00014, .00012,
3245 + .05344, .01336, .00236, .00016, .00013,
3246 + .00005, .00013, .00012,
3247 + .05153, .01285, .00222, .00015, .00013,
3248 + .00005, .00013, .00011 /
3249 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
3250 + .27101, .07335, .13022, .00047, .00000,
3251 + .00000, .00020, .00012,
3252 + .25823, .06963, .11382, .00049, .00000,
3253 + .00000, .00024, .00018,
3254 + .24027, .06442, .09303, .00052, .00004,
3255 + .00000, .00029, .00024,
3256 + .22791, .06086, .08015, .00052, .00009,
3257 + .00000, .00032, .00026,
3258 + .21549, .05730, .06850, .00053, .00013,
3259 + .00000, .00033, .00028,
3260 + .20532, .05441, .05985, .00053, .00015,
3261 + .00000, .00034, .00029,
3262 + .19600, .05178, .05262, .00051, .00016,
3263 + .00000, .00033, .00030,
3264 + .18656, .04912, .04592, .00049, .00017,
3265 + .00000, .00033, .00029 /
3266 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
3267 + .17873, .04691, .04082, .00049, .00018,
3268 + .00000, .00033, .00028,
3269 + .17145, .04488, .03647, .00048, .00018,
3270 + .00000, .00033, .00027,
3271 + .16588, .04334, .03337, .00047, .00018,
3272 + .00000, .00032, .00027,
3273 + .15463, .04022, .02763, .00045, .00018,
3274 + .00000, .00031, .00027,
3275 + .14556, .03772, .02349, .00043, .00018,
3276 + .00001, .00029, .00027,
3277 + .13609, .03511, .01961, .00039, .00018,
3278 + .00002, .00028, .00024,
3279 + .12691, .03259, .01630, .00037, .00017,
3280 + .00002, .00026, .00023,
3281 + .11912, .03047, .01385, .00034, .00016,
3282 + .00002, .00024, .00023 /
3283 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
3284 + .11178, .02849, .01178, .00031, .00015,
3285 + .00002, .00023, .00022,
3286 + .10608, .02694, .01034, .00030, .00015,
3287 + .00002, .00022, .00020,
3288 + .09954, .02519, .00885, .00028, .00014,
3289 + .00002, .00021, .00018,
3290 + .09413, .02375, .00774, .00027, .00013,
3291 + .00002, .00019, .00018,
3292 + .08943, .02251, .00687, .00026, .00013,
3293 + .00002, .00018, .00017,
3294 + .08384, .02103, .00593, .00024, .00012,
3295 + .00002, .00017, .00016,
3296 + .07894, .01973, .00518, .00022, .00011,
3297 + .00002, .00015, .00015,
3298 + .07461, .01859, .00458, .00021, .00011,
3299 + .00002, .00014, .00014 /
3300 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
3301 + .07055, .01753, .00406, .00020, .00010,
3302 + .00002, .00013, .00013,
3303 + .06681, .01655, .00363, .00017, .00009,
3304 + .00002, .00013, .00012,
3305 + .06346, .01568, .00327, .00016, .00009,
3306 + .00002, .00012, .00012,
3307 + .06046, .01491, .00297, .00016, .00008,
3308 + .00002, .00011, .00011,
3309 + .05759, .01417, .00270, .00015, .00008,
3310 + .00002, .00011, .00010,
3311 + .05492, .01347, .00247, .00014, .00008,
3312 + .00002, .00010, .00010,
3313 + .05251, .01285, .00227, .00014, .00007,
3314 + .00002, .00009, .00010,
3315 + .05033, .01229, .00210, .00013, .00007,
3316 + .00002, .00009, .00009 /
3317 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
3318 + .04824, .01176, .00195, .00012, .00007,
3319 + .00002, .00009, .00008,
3320 + .04624, .01126, .00181, .00012, .00007,
3321 + .00002, .00008, .00008,
3322 + .04443, .01080, .00169, .00012, .00007,
3323 + .00002, .00008, .00008,
3324 + .04278, .01038, .00159, .00012, .00007,
3325 + .00002, .00008, .00007,
3326 + .04117, .00997, .00149, .00011, .00007,
3327 + .00002, .00007, .00006 /
3328 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
3329 + .23457, .06127, .09678, .00023, .00000,
3330 + .00000, .00015, .00011,
3331 + .22287, .05800, .08400, .00025, .00000,
3332 + .00000, .00018, .00014,
3333 + .20650, .05345, .06796, .00028, .00003,
3334 + .00000, .00022, .00016,
3335 + .19528, .05034, .05814, .00029, .00006,
3336 + .00000, .00023, .00018,
3337 + .18405, .04726, .04934, .00029, .00008,
3338 + .00000, .00023, .00020,
3339 + .17488, .04475, .04284, .00029, .00010,
3340 + .00000, .00024, .00021,
3341 + .16649, .04247, .03744, .00029, .00011,
3342 + .00000, .00024, .00020,
3343 + .15803, .04018, .03248, .00029, .00011,
3344 + .00000, .00024, .00020 /
3345 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
3346 + .15102, .03829, .02872, .00028, .00011,
3347 + .00000, .00024, .00019,
3348 + .14454, .03655, .02554, .00027, .00012,
3349 + .00000, .00023, .00019,
3350 + .13961, .03522, .02328, .00027, .00012,
3351 + .00000, .00022, .00019,
3352 + .12966, .03256, .01914, .00024, .00011,
3353 + .00000, .00021, .00019,
3354 + .12166, .03044, .01618, .00023, .00011,
3355 + .00000, .00020, .00018,
3356 + .11331, .02824, .01341, .00023, .00011,
3357 + .00000, .00019, .00017,
3358 + .10526, .02612, .01109, .00021, .00010,
3359 + .00000, .00018, .00015,
3360 + .09847, .02435, .00937, .00020, .00010,
3361 + .00000, .00016, .00014 /
3362 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
3363 + .09210, .02269, .00794, .00019, .00009,
3364 + .00000, .00015, .00013,
3365 + .08715, .02140, .00694, .00018, .00009,
3366 + .00000, .00015, .00012,
3367 + .08152, .01995, .00592, .00016, .00008,
3368 + .00000, .00014, .00012,
3369 + .07687, .01875, .00517, .00014, .00008,
3370 + .00000, .00013, .00012,
3371 + .07284, .01772, .00457, .00014, .00007,
3372 + .00000, .00012, .00011,
3373 + .06806, .01650, .00393, .00013, .00007,
3374 + .00000, .00011, .00010,
3375 + .06387, .01544, .00342, .00013, .00007,
3376 + .00000, .00010, .00010,
3377 + .06021, .01451, .00302, .00012, .00006,
3378 + .00000, .00009, .00009 /
3379 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
3380 + .05678, .01364, .00268, .00010, .00006,
3381 + .00000, .00009, .00008,
3382 + .05361, .01285, .00239, .00010, .00005,
3383 + .00000, .00008, .00008,
3384 + .05079, .01214, .00215, .00009, .00005,
3385 + .00000, .00008, .00007,
3386 + .04827, .01151, .00195, .00009, .00005,
3387 + .00000, .00008, .00007,
3388 + .04588, .01091, .00178, .00008, .00005,
3389 + .00000, .00007, .00006,
3390 + .04366, .01036, .00162, .00008, .00004,
3391 + .00000, .00007, .00006,
3392 + .04166, .00986, .00149, .00007, .00004,
3393 + .00000, .00006, .00006,
3394 + .03984, .00941, .00138, .00007, .00004,
3395 + .00000, .00006, .00006 /
3396 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
3397 + .03811, .00899, .00128, .00006, .00004,
3398 + .00000, .00006, .00005,
3399 + .03646, .00858, .00119, .00006, .00004,
3400 + .00000, .00005, .00005,
3401 + .03497, .00822, .00111, .00005, .00004,
3402 + .00000, .00005, .00005,
3403 + .03361, .00788, .00104, .00005, .00004,
3404 + .00000, .00005, .00005,
3405 + .03229, .00756, .00098, .00005, .00004,
3406 + .00000, .00005, .00004 /
3407 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
3408 + .16829, .04098, .04919, .00008, .00000,
3409 + .00000, .00005, .00003,
3410 + .15893, .03856, .04209, .00010, .00000,
3411 + .00000, .00006, .00004,
3412 + .14595, .03522, .03337, .00011, .00001,
3413 + .00000, .00008, .00005,
3414 + .13713, .03297, .02814, .00011, .00002,
3415 + .00000, .00009, .00006,
3416 + .12838, .03074, .02353, .00011, .00003,
3417 + .00000, .00009, .00007,
3418 + .12129, .02894, .02018, .00011, .00003,
3419 + .00000, .00009, .00007,
3420 + .11484, .02732, .01745, .00010, .00003,
3421 + .00000, .00008, .00008,
3422 + .10837, .02570, .01496, .00010, .00003,
3423 + .00000, .00008, .00007 /
3424 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
3425 + .10304, .02437, .01310, .00010, .00003,
3426 + .00000, .00009, .00006,
3427 + .09813, .02315, .01155, .00010, .00003,
3428 + .00000, .00008, .00006,
3429 + .09442, .02223, .01046, .00010, .00003,
3430 + .00000, .00008, .00006,
3431 + .08698, .02039, .00848, .00010, .00003,
3432 + .00000, .00008, .00006,
3433 + .08107, .01893, .00709, .00009, .00003,
3434 + .00000, .00007, .00006,
3435 + .07496, .01743, .00581, .00007, .00003,
3436 + .00000, .00007, .00007,
3437 + .06909, .01599, .00475, .00007, .00003,
3438 + .00000, .00006, .00006,
3439 + .06418, .01480, .00398, .00006, .00003,
3440 + .00000, .00006, .00006 /
3441 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
3442 + .05961, .01370, .00335, .00006, .00003,
3443 + .00000, .00005, .00006,
3444 + .05607, .01285, .00291, .00006, .00003,
3445 + .00000, .00005, .00005,
3446 + .05209, .01190, .00247, .00006, .00003,
3447 + .00000, .00005, .00004,
3448 + .04883, .01112, .00215, .00005, .00003,
3449 + .00000, .00004, .00004,
3450 + .04602, .01045, .00189, .00005, .00003,
3451 + .00000, .00004, .00004,
3452 + .04272, .00967, .00162, .00004, .00003,
3453 + .00000, .00004, .00004,
3454 + .03984, .00899, .00141, .00004, .00003,
3455 + .00000, .00004, .00004,
3456 + .03734, .00840, .00124, .00003, .00003,
3457 + .00000, .00003, .00003 /
3458 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
3459 + .03501, .00785, .00110, .00002, .00003,
3460 + .00000, .00003, .00003,
3461 + .03286, .00735, .00098, .00003, .00003,
3462 + .00000, .00003, .00002,
3463 + .03096, .00691, .00088, .00003, .00003,
3464 + .00000, .00003, .00002,
3465 + .02929, .00652, .00080, .00003, .00003,
3466 + .00000, .00003, .00002,
3467 + .02770, .00615, .00073, .00003, .00003,
3468 + .00000, .00002, .00002,
3469 + .02623, .00581, .00067, .00002, .00002,
3470 + .00000, .00002, .00002,
3471 + .02491, .00551, .00061, .00002, .00002,
3472 + .00000, .00002, .00002,
3473 + .02372, .00524, .00057, .00002, .00002,
3474 + .00000, .00002, .00002 /
3475 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/
3476 + .02259, .00498, .00052, .00002, .00002,
3477 + .00000, .00002, .00002,
3478 + .02153, .00473, .00049, .00002, .00002,
3479 + .00000, .00002, .00002,
3480 + .02057, .00451, .00046, .00002, .00002,
3481 + .00000, .00002, .00002,
3482 + .01970, .00431, .00043, .00001, .00002,
3483 + .00000, .00002, .00002,
3484 + .01885, .00412, .00040, .00001, .00002,
3485 + .00000, .00001, .00002 /
3486 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/
3487 + .11224, .02531, .02174, .00004, .00000,
3488 + .00000, .00001, .00000,
3489 + .10532, .02367, .01833, .00003, .00000,
3490 + .00000, .00002, .00001,
3491 + .09580, .02142, .01425, .00003, .00000,
3492 + .00000, .00002, .00002,
3493 + .08936, .01992, .01185, .00004, .00000,
3494 + .00000, .00003, .00003,
3495 + .08307, .01844, .00976, .00004, .00000,
3496 + .00000, .00002, .00002,
3497 + .07799, .01725, .00827, .00004, .00000,
3498 + .00000, .00002, .00002,
3499 + .07339, .01619, .00707, .00004, .00000,
3500 + .00000, .00002, .00002,
3501 + .06882, .01514, .00600, .00004, .00000,
3502 + .00000, .00002, .00002 /
3503 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
3504 + .06508, .01428, .00521, .00003, .00000,
3505 + .00000, .00002, .00002,
3506 + .06166, .01349, .00456, .00003, .00000,
3507 + .00000, .00002, .00002,
3508 + .05909, .01290, .00410, .00004, .00000,
3509 + .00000, .00002, .00002,
3510 + .05397, .01173, .00328, .00003, .00000,
3511 + .00000, .00002, .00002,
3512 + .04993, .01082, .00272, .00002, .00000,
3513 + .00000, .00002, .00002,
3514 + .04577, .00988, .00221, .00002, .00000,
3515 + .00000, .00002, .00002,
3516 + .04183, .00899, .00179, .00002, .00000,
3517 + .00000, .00002, .00002,
3518 + .03856, .00826, .00150, .00003, .00000,
3519 + .00000, .00002, .00002 /
3520 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
3521 + .03555, .00759, .00125, .00003, .00000,
3522 + .00000, .00002, .00001,
3523 + .03324, .00708, .00108, .00002, .00000,
3524 + .00000, .00001, .00002,
3525 + .03065, .00650, .00092, .00002, .00000,
3526 + .00000, .00001, .00002,
3527 + .02854, .00604, .00079, .00002, .00000,
3528 + .00000, .00001, .00001,
3529 + .02675, .00564, .00070, .00001, .00000,
3530 + .00000, .00001, .00001,
3531 + .02464, .00518, .00060, .00001, .00000,
3532 + .00000, .00001, .00001,
3533 + .02282, .00479, .00052, .00001, .00000,
3534 + .00000, .00001, .00001,
3535 + .02125, .00444, .00046, .00001, .00000,
3536 + .00000, .00001, .00001 /
3537 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
3538 + .01980, .00413, .00041, .00001, .00000,
3539 + .00000, .00001, .00001,
3540 + .01847, .00384, .00036, .00001, .00000,
3541 + .00000, .00001, .00001,
3542 + .01730, .00359, .00033, .00001, .00000,
3543 + .00000, .00001, .00001,
3544 + .01628, .00337, .00030, .00001, .00000,
3545 + .00000, .00001, .00001,
3546 + .01531, .00316, .00027, .00001, .00000,
3547 + .00000, .00001, .00001,
3548 + .01442, .00297, .00025, .00001, .00000,
3549 + .00000, .00001, .00001,
3550 + .01363, .00280, .00023, .00001, .00000,
3551 + .00000, .00001, .00001,
3552 + .01293, .00265, .00021, .00001, .00000,
3553 + .00000, .00001, .00000 /
3554 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/
3555 + .01226, .00251, .00020, .00001, .00000,
3556 + .00000, .00001, .00000,
3557 + .01162, .00238, .00018, .00001, .00000,
3558 + .00000, .00000, .00000,
3559 + .01106, .00226, .00017, .00000, .00000,
3560 + .00000, .00000, .00000,
3561 + .01054, .00215, .00016, .00000, .00000,
3562 + .00000, .00000, .00000,
3563 + .01005, .00204, .00015, .00000, .00000,
3564 + .00000, .00000, .00000 /
3565 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/
3566 + .06802, .01409, .00799, .00001, .00000,
3567 + .00000, -.00001, .00000,
3568 + .06336, .01309, .00664, .00002, .00000,
3569 + .00000, .00000, .00000,
3570 + .05701, .01172, .00506, .00002, .00000,
3571 + .00000, .00000, .00000,
3572 + .05277, .01081, .00415, .00003, .00000,
3573 + .00000, .00000, .00000,
3574 + .04866, .00993, .00337, .00002, .00000,
3575 + .00000, .00000, .00000,
3576 + .04537, .00923, .00283, .00002, .00000,
3577 + .00000, .00000, .00000,
3578 + .04241, .00860, .00239, .00001, .00000,
3579 + .00000, .00000, .00000,
3580 + .03949, .00799, .00201, .00001, .00000,
3581 + .00000, .00000, .00000 /
3582 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
3583 + .03712, .00749, .00173, .00001, .00000,
3584 + .00000, .00000, .00000,
3585 + .03497, .00703, .00150, .00001, .00000,
3586 + .00000, .00000, .00000,
3587 + .03336, .00670, .00135, .00001, .00000,
3588 + .00000, .00000, .00000,
3589 + .03017, .00603, .00107, .00001, .00000,
3590 + .00000, .00000, .00000,
3591 + .02767, .00551, .00088, .00001, .00000,
3592 + .00000, .00000, .00000,
3593 + .02513, .00499, .00071, .00001, .00000,
3594 + .00000, .00000, .00000,
3595 + .02276, .00450, .00057, .00001, .00000,
3596 + .00000, .00000, .00000,
3597 + .02081, .00410, .00048, .00001, .00000,
3598 + .00000, .00000, .00000 /
3599 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/
3600 + .01901, .00374, .00040, .00001, .00000,
3601 + .00000, .00000, .00000,
3602 + .01765, .00346, .00035, .00001, .00000,
3603 + .00000, .00000, .00000,
3604 + .01614, .00315, .00029, .00001, .00000,
3605 + .00000, .00000, .00000,
3606 + .01493, .00291, .00025, .00000, .00000,
3607 + .00000, .00000, .00000,
3608 + .01389, .00270, .00022, .00001, .00000,
3609 + .00000, .00000, .00000,
3610 + .01269, .00246, .00019, .00000, .00000,
3611 + .00000, .00000, .00000,
3612 + .01167, .00225, .00017, .00000, .00000,
3613 + .00000, .00000, .00000,
3614 + .01078, .00208, .00015, .00000, .00000,
3615 + .00000, .00000, .00000 /
3616 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/
3617 + .00997, .00192, .00013, .00000, .00000,
3618 + .00000, .00000, .00000,
3619 + .00924, .00177, .00012, .00000, .00000,
3620 + .00000, .00000, .00000,
3621 + .00860, .00164, .00011, .00000, .00000,
3622 + .00000, .00000, .00000,
3623 + .00804, .00153, .00010, .00000, .00000,
3624 + .00000, .00000, .00000,
3625 + .00752, .00143, .00009, .00000, .00000,
3626 + .00000, .00000, .00000,
3627 + .00705, .00134, .00008, .00000, .00000,
3628 + .00000, .00000, .00000,
3629 + .00662, .00125, .00007, .00000, .00000,
3630 + .00000, .00000, .00000,
3631 + .00625, .00118, .00007, .00000, .00000,
3632 + .00000, .00000, .00000 /
3633 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=33,37)/
3634 + .00589, .00111, .00006, .00000, .00000,
3635 + .00000, .00000, .00000,
3636 + .00556, .00105, .00006, .00000, .00000,
3637 + .00000, .00000, .00000,
3638 + .00526, .00099, .00006, .00000, .00000,
3639 + .00000, .00000, .00000,
3640 + .00499, .00094, .00005, .00000, .00000,
3641 + .00000, .00000, .00000,
3642 + .00474, .00089, .00005, .00000, .00000,
3643 + .00000, .00000, .00000 /
3644 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/
3645 + .03588, .00672, .00226, .00000, .00000,
3646 + .00000, .00000, .00000,
3647 + .03315, .00619, .00185, .00000, .00000,
3648 + .00000, .00000, .00000,
3649 + .02946, .00548, .00138, .00000, .00000,
3650 + .00000, .00000, .00000,
3651 + .02703, .00501, .00112, .00000, .00000,
3652 + .00000, .00000, .00000,
3653 + .02468, .00456, .00090, .00000, .00000,
3654 + .00000, .00000, .00000,
3655 + .02283, .00420, .00075, .00000, .00000,
3656 + .00000, .00000, .00000,
3657 + .02117, .00389, .00063, .00000, .00000,
3658 + .00000, .00000, .00000,
3659 + .01956, .00358, .00052, .00000, .00000,
3660 + .00000, .00000, .00000 /
3661 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=9,16)/
3662 + .01826, .00333, .00045, .00000, .00000,
3663 + .00000, .00000, .00000,
3664 + .01708, .00311, .00039, .00000, .00000,
3665 + .00000, .00000, .00000,
3666 + .01621, .00295, .00035, .00000, .00000,
3667 + .00000, .00000, .00000,
3668 + .01449, .00263, .00027, .00000, .00000,
3669 + .00000, .00000, .00000,
3670 + .01316, .00238, .00022, .00000, .00000,
3671 + .00000, .00000, .00000,
3672 + .01183, .00213, .00018, .00000, .00000,
3673 + .00000, .00000, .00000,
3674 + .01059, .00190, .00015, .00000, .00000,
3675 + .00000, .00000, .00000,
3676 + .00959, .00171, .00012, .00000, .00000,
3677 + .00000, .00000, .00000 /
3678 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=17,24)/
3679 + .00868, .00155, .00010, .00000, .00000,
3680 + .00000, .00000, .00000,
3681 + .00799, .00142, .00009, .00000, .00000,
3682 + .00000, .00000, .00000,
3683 + .00723, .00128, .00008, .00000, .00000,
3684 + .00000, .00000, .00000,
3685 + .00663, .00117, .00007, .00000, .00000,
3686 + .00000, .00000, .00000,
3687 + .00613, .00108, .00006, .00000, .00000,
3688 + .00000, .00000, .00000,
3689 + .00554, .00097, .00005, .00000, .00000,
3690 + .00000, .00000, .00000,
3691 + .00505, .00088, .00004, .00000, .00000,
3692 + .00000, .00000, .00000,
3693 + .00462, .00081, .00004, .00000, .00000,
3694 + .00000, .00000, .00000 /
3695 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/
3696 + .00424, .00074, .00004, .00000, .00000,
3697 + .00000, .00000, .00000,
3698 + .00390, .00068, .00003, .00000, .00000,
3699 + .00000, .00000, .00000,
3700 + .00360, .00063, .00003, .00000, .00000,
3701 + .00000, .00000, .00000,
3702 + .00334, .00058, .00003, .00000, .00000,
3703 + .00000, .00000, .00000,
3704 + .00311, .00054, .00002, .00000, .00000,
3705 + .00000, .00000, .00000,
3706 + .00289, .00050, .00002, .00000, .00000,
3707 + .00000, .00000, .00000,
3708 + .00270, .00046, .00002, .00000, .00000,
3709 + .00000, .00000, .00000,
3710 + .00253, .00043, .00002, .00000, .00000,
3711 + .00000, .00000, .00000 /
3712 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/
3713 + .00237, .00041, .00002, .00000, .00000,
3714 + .00000, .00000, .00000,
3715 + .00222, .00038, .00002, .00000, .00000,
3716 + .00000, .00000, .00000,
3717 + .00209, .00036, .00002, .00000, .00000,
3718 + .00000, .00000, .00000,
3719 + .00197, .00034, .00001, .00000, .00000,
3720 + .00000, .00000, .00000,
3721 + .00186, .00032, .00001, .00000, .00000,
3722 + .00000, .00000, .00000 /
3723 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/
3724 + .00449, .00064, .00004, .00000, .00000,
3725 + .00000, .00000, .00000,
3726 + .00405, .00057, .00003, .00000, .00000,
3727 + .00000, .00000, .00000,
3728 + .00347, .00049, .00002, .00000, .00000,
3729 + .00000, .00000, .00000,
3730 + .00310, .00044, .00002, .00000, .00000,
3731 + .00000, .00000, .00000,
3732 + .00276, .00039, .00002, .00000, .00000,
3733 + .00000, .00000, .00000,
3734 + .00249, .00035, .00001, .00000, .00000,
3735 + .00000, .00000, .00000,
3736 + .00226, .00031, .00001, .00000, .00000,
3737 + .00000, .00000, .00000,
3738 + .00204, .00028, .00001, .00000, .00000,
3739 + .00000, .00000, .00000 /
3740 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/
3741 + .00186, .00026, .00001, .00000, .00000,
3742 + .00000, .00000, .00000,
3743 + .00171, .00024, .00001, .00000, .00000,
3744 + .00000, .00000, .00000,
3745 + .00160, .00022, .00001, .00000, .00000,
3746 + .00000, .00000, .00000,
3747 + .00138, .00019, .00001, .00000, .00000,
3748 + .00000, .00000, .00000,
3749 + .00122, .00017, .00001, .00000, .00000,
3750 + .00000, .00000, .00000,
3751 + .00106, .00015, .00000, .00000, .00000,
3752 + .00000, .00000, .00000,
3753 + .00092, .00013, .00000, .00000, .00000,
3754 + .00000, .00000, .00000,
3755 + .00081, .00011, .00000, .00000, .00000,
3756 + .00000, .00000, .00000 /
3757 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/
3758 + .00071, .00010, .00000, .00000, .00000,
3759 + .00000, .00000, .00000,
3760 + .00064, .00009, .00000, .00000, .00000,
3761 + .00000, .00000, .00000,
3762 + .00056, .00008, .00000, .00000, .00000,
3763 + .00000, .00000, .00000,
3764 + .00051, .00007, .00000, .00000, .00000,
3765 + .00000, .00000, .00000,
3766 + .00046, .00006, .00000, .00000, .00000,
3767 + .00000, .00000, .00000,
3768 + .00040, .00005, .00000, .00000, .00000,
3769 + .00000, .00000, .00000,
3770 + .00036, .00005, .00000, .00000, .00000,
3771 + .00000, .00000, .00000,
3772 + .00032, .00004, .00000, .00000, .00000,
3773 + .00000, .00000, .00000 /
3774 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
3775 + .00029, .00004, .00000, .00000, .00000,
3776 + .00000, .00000, .00000,
3777 + .00026, .00003, .00000, .00000, .00000,
3778 + .00000, .00000, .00000,
3779 + .00023, .00003, .00000, .00000, .00000,
3780 + .00000, .00000, .00000,
3781 + .00021, .00003, .00000, .00000, .00000,
3782 + .00000, .00000, .00000,
3783 + .00019, .00003, .00000, .00000, .00000,
3784 + .00000, .00000, .00000,
3785 + .00017, .00002, .00000, .00000, .00000,
3786 + .00000, .00000, .00000,
3787 + .00016, .00002, .00000, .00000, .00000,
3788 + .00000, .00000, .00000,
3789 + .00015, .00002, .00000, .00000, .00000,
3790 + .00000, .00000, .00000 /
3791 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
3792 + .00014, .00002, .00000, .00000, .00000,
3793 + .00000, .00000, .00000,
3794 + .00012, .00002, .00000, .00000, .00000,
3795 + .00000, .00000, .00000,
3796 + .00012, .00002, .00000, .00000, .00000,
3797 + .00000, .00000, .00000,
3798 + .00011, .00001, .00000, .00000, .00000,
3799 + .00000, .00000, .00000,
3800 + .00010, .00001, .00000, .00000, .00000,
3801 + .00000, .00000, .00000 /
3802 data xx/1d-5,2d-5,4d-5,6d-5,8d-5,
3803 . 1d-4,2d-4,4d-4,6d-4,8d-4,
3804 . 1d-3,2d-3,4d-3,6d-3,8d-3,
3805 . 1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2,
3806 . .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0,
3807 . .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0,
3808 . .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0,
3809 . .8d0,.9d0,1d0/
3810 data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1,
3811 . 1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2,
3812 . 1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4,
3813 . 1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6,
3814 . 1.8d6,3.2d6,5.6d6,1d7/
3815 data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/
3816 data n0/3,4,5,9,9,9,9,9/
3817 DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
3818 data init/0/
3819 save
3820 xsave=x
3821 q2save=qsq
3822 if(init.ne.0) goto 10
3823C open(unit=1,file='lo09a.dat',status='old')
3824 do 20 n=1,nx-1
3825 do 20 m=1,nq
3826C read(1,50)f(1,n,m),f(2,n,m),f(3,n,m),f(4,n,m),
3827C . f(5,n,m),f(7,n,m),f(6,n,m),f(8,n,m)
3828c notation: 1=uval 2=val 3=glue 4=usea 5=chm 6=str 7=btm 8=dsea
3829 do 25 i=1,np
3830 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i)
3831 20 continue
3832 do 31 j=1,ntenth-1
3833 xx(j)= log10(xx(j)/xx(ntenth))+xx(ntenth)
3834 do 31 i=1,8
3835 if(i.eq.5.or.i.eq.7) goto 31
3836 do 30 k=1,nq
3837 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k)
3838 31 continue
3839 50 format(8f10.5)
3840 do 40 i=1,np
3841 do 40 m=1,nq
3842 40 f(i,nx,m)=ZEROD
3843 init=1
3844 10 continue
3845 if(x.lt.xmin) x=xmin
3846 if(x.gt.xmax) x=xmax
3847 if(qsq.lt.qsqmin) qsq=qsqmin
3848 if(qsq.gt.qsqmax) qsq=qsqmax
3849 xxx=x
3850 if(x.lt.xx(ntenth)) xxx= log10(x/xx(ntenth))+xx(ntenth)
3851 n=0
3852 70 n=n+1
3853 if(xxx.gt.xx(n+1)) goto 70
3854 a=(xxx-xx(n))/(xx(n+1)-xx(n))
3855 m=0
3856 80 m=m+1
3857 if(qsq.gt.qq(m+1)) goto 80
3858 b=(qsq-qq(m))/(qq(m+1)-qq(m))
3859 do 60 i=1,np
3860 g(i)=(ONED-a)*(ONED-b)*f(i,n,m) + (ONED-a)*b*f(i,n,m+1)
3861 . + a*(ONED-b)*f(i,n+1,m) + a*b*f(i,n+1,m+1)
3862 if(n.ge.ntenth) goto 65
3863 if(i.eq.5.or.i.eq.7) goto 65
3864 fac=(ONED-b)*f(i,ntenth,m)+b*f(i,ntenth,m+1)
3865 g(i)=fac*10d0**(g(i)-fac)
3866 65 continue
3867 g(i)=g(i)*(ONED-x)**n0(i)
3868 60 continue
3869 upv=g(1)
3870 dnv=g(2)
3871 usea=g(4)
3872 dsea=g(8)
3873 str=g(6)
3874 chm=g(5)
3875 glu=g(3)
3876 bot=g(7)
3877 x=xsave
3878 qsq=q2save
3879 return
3880 end
3881