2 subroutine sfmrs_98lo5(x,qsq,upv,dnv,usea,dsea,str,chm,bot,glu)
4 #include "pdf/impdp.inc"
6 parameter(nx=49,nq=37,ntenth=23,np=8)
8 #include "pdf/expdp.inc"
9 + f(np,nx,nq+1),qq(nq),xx(nx),g(np),n0(np)
10 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,8)/
11 + .01522, .00506, 4.20964, .84794, .00000,
12 + .00000, .44092, .85946,
13 + .01540, .00511, 6.87150, .86679, .00000,
14 + .00000, .46241, .87825,
15 + .01567, .00518, 12.04203, .91271, .00022,
16 + .00000, .51218, .92409,
17 + .01587, .00523, 16.72429, .96279, .04817,
18 + .00000, .56503, .97410,
19 + .01607, .00529, 22.54385, 1.03158, .13938,
20 + .00000, .63671, 1.04283,
21 + .01625, .00534, 28.11045, 1.11130, .21710,
22 + .00000, .71889, 1.12248,
23 + .01643, .00539, 34.28648, 1.20023, .31514,
24 + .00000, .81015, 1.21134,
25 + .01661, .00545, 41.66399, 1.31153, .43887,
26 + .00000, .92390, 1.32258 /
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 + .01677, .00550, 48.56876, 1.42686, .55785,
29 + .00000, 1.04133, 1.43785,
30 + .01692, .00555, 56.11204, 1.54972, .69664,
31 + .00000, 1.16620, 1.56065,
32 + .01705, .00559, 62.23749, 1.66141, .80973,
33 + .00000, 1.27947, 1.67229,
34 + .01731, .00568, 76.92472, 1.93061, 1.09827,
35 + .00003, 1.55199, 1.94139,
36 + .01753, .00576, 91.00851, 2.20317, 1.39206,
37 + .18916, 1.82738, 2.21387,
38 + .01779, .00585, 107.90884, 2.55480, 1.76329,
39 + .58833, 2.18211, 2.56539,
40 + .01805, .00595, 127.29146, 2.97625, 2.20641,
41 + 1.06503, 2.60674, 2.98674,
42 + .01830, .00605, 146.49048, 3.40949, 2.66184,
43 + 1.54018, 3.04282, 3.41988 /
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 + .01854, .00614, 167.49516, 3.89907, 3.17727,
46 + 2.08283, 3.53522, 3.90937,
47 + .01875, .00623, 186.06137, 4.34675, 3.64576,
48 + 2.56706, 3.98520, 4.35697,
49 + .01900, .00633, 209.87674, 4.93958, 4.26291,
50 + 3.20132, 4.58079, 4.94971,
51 + .01922, .00642, 232.41144, 5.51494, 4.86353,
52 + 3.82453, 5.15855, 5.52498,
53 + .01942, .00651, 254.00319, 6.08221, 5.45190,
54 + 4.42770, 5.72799, 6.09217,
55 + .01968, .00663, 282.81448, 6.85906, 6.25632,
56 + 5.25270, 6.50757, 6.86893,
57 + .01993, .00673, 311.55673, 7.65365, 7.07978,
58 + 6.10055, 7.30467, 7.66342,
59 + .02016, .00684, 339.51544, 8.44806, 7.89857,
60 + 6.93671, 8.10140, 8.45775 /
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 + .02040, .00695, 368.69308, 9.29558, 8.77155,
63 + 7.82919, 8.95122, 9.30519,
64 + .02063, .00705, 398.62814, 10.18271, 9.68581,
65 + 8.76618, 9.84057, 10.19224,
66 + .02085, .00716, 427.53406, 11.05997, 10.58510,
67 + 9.68071, 10.71991, 11.06943,
68 + .02106, .00725, 456.20486, 11.94278, 11.49317,
69 + 10.61085, 11.60465, 11.95217,
70 + .02127, .00735, 485.20676, 12.85590, 12.42668,
71 + 11.55820, 12.51968, 12.86522,
72 + .02148, .00745, 515.20947, 13.81260, 13.40818,
73 + 12.56139, 13.47825, 13.82185,
74 + .02168, .00755, 543.78943, 14.74263, 14.35731,
75 + 13.52386, 14.41004, 14.75182,
76 + .02187, .00764, 572.03125, 15.67223, 15.30838,
77 + 14.49327, 15.34128, 15.68136 /
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 + .02206, .00774, 600.71460, 16.63219, 16.28762,
80 + 15.48725, 16.30289, 16.64126,
81 + .02225, .00783, 629.87500, 17.62051, 17.29615,
82 + 16.51235, 17.29282, 17.62953,
83 + .02244, .00792, 658.24414, 18.59479, 18.28989,
84 + 17.52233, 18.26863, 18.60376,
85 + .02261, .00801, 685.40521, 19.54059, 19.25282,
86 + 18.49860, 19.21587, 19.54951,
87 + .02279, .00810, 713.82660, 20.53977, 20.27151,
88 + 19.53440, 20.21648, 20.54863 /
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 + .01866, .00637, 3.98187, .75094, .00000,
91 + .00000, .38862, .75777,
92 + .01889, .00645, 6.27331, .76828, .00000,
93 + .00000, .40823, .77507,
94 + .01924, .00656, 10.59739, .80879, .00021,
95 + .00000, .45206, .81551,
96 + .01949, .00664, 14.42244, .85183, .04126,
97 + .00000, .49748, .85850,
98 + .01976, .00673, 19.09329, .91008, .11862,
99 + .00000, .55821, .91670,
100 + .01999, .00681, 23.49726, .97653, .18315,
101 + .00000, .62677, .98309,
102 + .02022, .00689, 28.32275, 1.05002, .26370,
103 + .00000, .70226, 1.05654,
104 + .02045, .00698, 34.01944, 1.14116, .36417,
105 + .00000, .79550, 1.14764 /
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 + .02066, .00706, 39.29349, 1.23466, .45969,
108 + .00000, .89080, 1.24109,
109 + .02086, .00713, 45.00336, 1.33363, .57028,
110 + .00000, .99149, 1.34001,
111 + .02102, .00720, 49.60126, 1.42285, .65954,
112 + .00000, 1.08206, 1.42920,
113 + .02137, .00733, 60.51071, 1.63605, .88528,
114 + .00002, 1.29810, 1.64232,
115 + .02166, .00745, 70.83442, 1.84947, 1.11245,
116 + .14530, 1.51393, 1.85569,
117 + .02199, .00759, 83.05656, 2.12174, 1.39622,
118 + .45016, 1.78885, 2.12788,
119 + .02234, .00773, 96.90530, 2.44437, 1.73117,
120 + .80992, 2.11419, 2.45044,
121 + .02266, .00787, 110.46761, 2.77247, 2.07189,
122 + 1.16444, 2.44471, 2.77847 /
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 + .02298, .00801, 125.15162, 3.13956, 2.45388,
125 + 1.56554, 2.81419, 3.14550,
126 + .02325, .00813, 138.00935, 3.47227, 2.79814,
127 + 1.92026, 3.14885, 3.47815,
128 + .02358, .00828, 154.35030, 3.90905, 3.24788,
129 + 2.38098, 3.58797, 3.91486,
130 + .02387, .00841, 169.67639, 4.32931, 3.68215,
131 + 2.83024, 4.01026, 4.33506,
132 + .02414, .00853, 184.24153, 4.74054, 4.10444,
133 + 3.26173, 4.42334, 4.74624,
134 + .02448, .00869, 203.51265, 5.29922, 4.67748,
135 + 3.84754, 4.98432, 5.30486,
136 + .02480, .00885, 222.57230, 5.86590, 5.25960,
137 + 4.44514, 5.55313, 5.87148,
138 + .02511, .00899, 240.95566, 6.42812, 5.83410,
139 + 5.02995, 6.11731, 6.43364 /
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 + .02541, .00914, 259.99448, 7.02365, 6.44253,
142 + 5.65006, 6.71478, 7.02911,
143 + .02571, .00929, 279.38925, 7.64274, 7.07575,
144 + 6.29718, 7.33574, 7.64816,
145 + .02600, .00943, 297.97342, 8.25090, 7.69443,
146 + 6.92438, 7.94564, 8.25626,
147 + .02627, .00957, 316.30252, 8.85937, 8.31605,
148 + 7.55943, 8.55574, 8.86468,
149 + .02655, .00971, 334.70853, 9.48497, 8.95109,
150 + 8.20191, 9.18296, 9.49024,
151 + .02682, .00984, 353.65399, 10.13697, 9.61582,
152 + 8.87959, 9.83653, 10.14220,
153 + .02708, .00997, 371.57556, 10.76728, 10.25483,
154 + 9.52566, 10.46832, 10.77247,
155 + .02733, .01010, 389.20682, 11.39439, 10.89264,
156 + 10.17412, 11.09681, 11.39954 /
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 + .02758, .01023, 407.00687, 12.03878, 11.54601,
159 + 10.83552, 11.74259, 12.04389,
160 + .02783, .01036, 425.01764, 12.69923, 12.21616,
161 + 11.51496, 12.40439, 12.70431,
162 + .02807, .01048, 442.45279, 13.34742, 12.87369,
163 + 12.18158, 13.05386, 13.35247,
164 + .02830, .01060, 459.05978, 13.97396, 13.50809,
165 + 12.82310, 13.68160, 13.97897,
166 + .02853, .01072, 476.37503, 14.63340, 14.17706,
167 + 13.50176, 14.34225, 14.63838 /
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 + .02288, .00803, 3.76535, .66432, .00000,
170 + .00000, .34249, .66775,
171 + .02317, .00814, 5.72565, .68024, .00000,
172 + .00000, .36037, .68364,
173 + .02362, .00832, 9.32339, .71594, .00019,
174 + .00000, .39894, .71928,
175 + .02394, .00844, 12.43359, .75287, .03533,
176 + .00000, .43793, .75618,
177 + .02429, .00858, 16.16555, .80209, .10091,
178 + .00000, .48928, .80536,
179 + .02459, .00870, 19.63433, .85728, .15444,
180 + .00000, .54630, .86052,
181 + .02488, .00882, 23.38783, .91779, .22055,
182 + .00000, .60853, .92099,
183 + .02519, .00895, 27.76694, .99211, .30205,
184 + .00000, .68465, .99527 /
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 + .02546, .00907, 31.77701, 1.06754, .37863,
187 + .00000, .76163, 1.07067,
188 + .02572, .00918, 36.07922, 1.14686, .46661,
189 + .00000, .84243, 1.14997,
190 + .02592, .00927, 39.51414, 1.21775, .53695,
191 + .00000, .91448, 1.22084,
192 + .02637, .00947, 47.57838, 1.38568, .71325,
193 + .00002, 1.08485, 1.38872,
194 + .02675, .00964, 55.10751, 1.55186, .88856,
195 + .11154, 1.25309, 1.55485,
196 + .02719, .00984, 63.89800, 1.76146, 1.10501,
197 + .34425, 1.46497, 1.76441,
198 + .02764, .01005, 73.73700, 2.00700, 1.35760,
199 + .61556, 1.71282, 2.00990,
200 + .02805, .01025, 83.26137, 2.25400, 1.61185,
201 + .87985, 1.96189, 2.25686 /
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 + .02847, .01045, 93.46465, 2.52761, 1.89420,
204 + 1.17603, 2.23753, 2.53042,
205 + .02882, .01062, 102.31332, 2.77338, 2.14646,
206 + 1.43557, 2.48498, 2.77616,
207 + .02925, .01083, 113.45316, 3.09324, 2.47321,
208 + 1.76977, 2.80683, 3.09598,
209 + .02963, .01102, 123.80727, 3.39836, 2.78622,
210 + 2.09316, 3.11367, 3.40106,
211 + .02998, .01119, 133.56477, 3.69465, 3.08832,
212 + 2.40131, 3.41153, 3.69732,
213 + .03043, .01142, 146.36327, 4.09397, 3.49513,
214 + 2.81651, 3.81281, 4.09660,
215 + .03085, .01163, 158.90976, 4.49563, 3.90519,
216 + 3.23688, 4.21628, 4.49823,
217 + .03125, .01183, 170.90536, 4.89106, 4.30679,
218 + 3.64498, 4.61337, 4.89362 /
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 + .03164, .01204, 183.23145, 5.30690, 4.72921,
221 + 4.07483, 5.03085, 5.30943,
222 + .03204, .01224, 195.69661, 5.73623, 5.16604,
223 + 4.52064, 5.46177, 5.73873,
224 + .03241, .01244, 207.54509, 6.15515, 5.58991,
225 + 4.94960, 5.88217, 6.15762,
226 + .03276, .01262, 219.16406, 6.57185, 6.01365,
227 + 5.38196, 6.30025, 6.57430,
228 + .03312, .01281, 230.74216, 6.99770, 6.44376,
229 + 5.81635, 6.72746, 7.00012,
230 + .03348, .01300, 242.59944, 7.43918, 6.89196,
231 + 6.27274, 7.17027, 7.44158,
232 + .03381, .01318, 253.73288, 7.86354, 7.32019,
233 + 6.70497, 7.59588, 7.86591,
234 + .03413, .01335, 264.63751, 8.28380, 7.74592,
235 + 7.13728, 8.01730, 8.28615 /
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 + .03446, .01353, 275.57642, 8.71345, 8.17976,
238 + 7.57580, 8.44812, 8.71578,
239 + .03478, .01370, 286.59131, 9.15183, 8.62289,
240 + 8.02449, 8.88765, 9.15414,
241 + .03509, .01387, 297.19922, 9.58013, 9.05579,
242 + 8.46283, 9.31703, 9.58243,
243 + .03539, .01403, 307.24789, 9.99232, 9.47159,
244 + 8.88272, 9.73023, 9.99460,
245 + .03569, .01419, 317.68741, 10.42456, 9.90864,
246 + 9.32562, 10.16349, 10.42682 /
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 + .02578, .00920, 3.64332, .61796, .00000,
249 + .00000, .31807, .61994,
250 + .02612, .00934, 5.42651, .63309, .00000,
251 + .00000, .33500, .63504,
252 + .02663, .00956, 8.64830, .66622, .00018,
253 + .00000, .37077, .66813,
254 + .02701, .00972, 11.39695, .69996, .03225,
255 + .00000, .40641, .70185,
256 + .02741, .00990, 14.66167, .74450, .09177,
257 + .00000, .45291, .74635,
258 + .02776, .01005, 17.67103, .79392, .13972,
259 + .00000, .50401, .79575,
260 + .02809, .01020, 20.90358, .84782, .19858,
261 + .00000, .55948, .84962,
262 + .02845, .01036, 24.64886, .91361, .27064,
263 + .00000, .62694, .91539 /
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 + .02876, .01051, 28.05639, .97996, .33787,
266 + .00000, .69471, .98171,
267 + .02906, .01065, 31.69275, 1.04947, .41477,
268 + .00000, .76558, 1.05120,
269 + .02930, .01076, 34.58135, 1.11126, .47590,
270 + .00000, .82843, 1.11297,
271 + .02982, .01101, 41.32073, 1.25688, .62830,
272 + .00002, .97628, 1.25855,
273 + .03027, .01122, 47.56264, 1.39999, .77879,
274 + .09551, 1.12129, 1.40164,
275 + .03077, .01147, 54.78955, 1.57929, .96330,
276 + .29411, 1.30267, 1.58090,
277 + .03130, .01173, 62.81971, 1.78791, 1.17715,
278 + .52402, 1.51341, 1.78948,
279 + .03178, .01197, 70.53969, 1.99644, 1.39108,
280 + .74645, 1.72383, 1.99799 /
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 + .03227, .01222, 78.75777, 2.22607, 1.62730,
283 + .99431, 1.95533, 2.22759,
284 + .03268, .01242, 85.84405, 2.43127, 1.83727,
285 + 1.21033, 2.16205, 2.43276,
286 + .03318, .01268, 94.71450, 2.69696, 2.10787,
287 + 1.48707, 2.42956, 2.69842,
288 + .03362, .01291, 102.91511, 2.94912, 2.36585,
289 + 1.75362, 2.68330, 2.95056,
290 + .03403, .01312, 110.60407, 3.19290, 2.61373,
291 + 2.00643, 2.92851, 3.19432,
292 + .03455, .01339, 120.63696, 3.51990, 2.94602,
293 + 2.34551, 3.25729, 3.52129,
294 + .03504, .01365, 130.42043, 3.84719, 3.27942,
295 + 2.68728, 3.58624, 3.84856,
296 + .03551, .01390, 139.72467, 4.16795, 3.60444,
297 + 3.01748, 3.90851, 4.16929 /
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 + .03597, .01415, 149.24026, 4.50383, 3.94492,
300 + 3.36390, 4.24589, 4.50515,
301 + .03643, .01439, 158.82104, 4.84920, 4.29569,
302 + 3.72185, 4.59271, 4.85051,
303 + .03686, .01463, 167.88298, 5.18487, 4.63464,
304 + 4.06478, 4.92972, 5.18616,
305 + .03728, .01485, 176.73967, 5.51762, 4.97249,
306 + 4.40950, 5.26373, 5.51889,
307 + .03769, .01508, 185.52283, 5.85644, 5.31408,
308 + 4.75438, 5.60380, 5.85771,
309 + .03810, .01530, 194.49126, 6.20662, 5.66910,
310 + 5.11589, 5.95519, 6.20787,
311 + .03850, .01552, 202.87347, 6.54207, 6.00704,
312 + 5.45689, 6.29177, 6.54331,
313 + .03887, .01573, 211.06198, 6.87339, 6.34224,
314 + 5.79726, 6.62415, 6.87461 /
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 + .03925, .01593, 219.24371, 7.21108, 6.68273,
317 + 6.14136, 6.96291, 7.21229,
318 + .03962, .01614, 227.45834, 7.55472, 7.02966,
319 + 6.49261, 7.30758, 7.55592,
320 + .03998, .01634, 235.34453, 7.88956, 7.36770,
321 + 6.83487, 7.64341, 7.89075,
322 + .04032, .01653, 242.78946, 8.21096, 7.69151,
323 + 7.16181, 7.96573, 8.21215,
324 + .04067, .01673, 250.50777, 8.54726, 8.03123,
325 + 7.50608, 8.30295, 8.54844 /
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 + .02806, .01014, 3.55855, .58685, .00000,
328 + .00000, .30179, .58803,
329 + .02844, .01031, 5.22297, .60142, .00000,
330 + .00000, .31807, .60258,
331 + .02900, .01056, 8.19782, .63283, .00017,
332 + .00000, .35198, .63395,
333 + .02942, .01075, 10.71240, .66446, .03022,
334 + .00000, .38540, .66556,
335 + .02986, .01096, 13.67770, .70592, .08577,
336 + .00000, .42871, .70699,
337 + .03025, .01114, 16.39502, .75158, .13011,
338 + .00000, .47594, .75263,
339 + .03062, .01131, 19.29865, .80117, .18429,
340 + .00000, .52703, .80220,
341 + .03102, .01150, 22.64630, .86145, .25029,
342 + .00000, .58887, .86245 /
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 + .03136, .01167, 25.67804, .92195, .31156,
345 + .00000, .65071, .92293,
346 + .03170, .01183, 28.90111, .98515, .38142,
347 + .00000, .71519, .98612,
348 + .03197, .01197, 31.45208, 1.04112, .43672,
349 + .00000, .77216, 1.04207,
350 + .03254, .01225, 37.37722, 1.17252, .57408,
351 + .00002, .90568, 1.17345,
352 + .03304, .01250, 42.83348, 1.30104, .70903,
353 + .08553, 1.03598, 1.30195,
354 + .03360, .01279, 49.11255, 1.46128, .87366,
355 + .26295, 1.19817, 1.46216,
356 + .03419, .01309, 56.05313, 1.64681, 1.06355,
357 + .46730, 1.38571, 1.64767,
358 + .03473, .01336, 62.69258, 1.83143, 1.25266,
359 + .66403, 1.57210, 1.83227 /
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 + .03527, .01365, 69.72842, 2.03388, 1.46063,
362 + .88237, 1.77631, 2.03469,
363 + .03573, .01389, 75.77008, 2.21411, 1.64480,
364 + 1.07193, 1.95798, 2.21491,
365 + .03628, .01418, 83.30199, 2.44663, 1.88129,
366 + 1.31386, 2.19221, 2.44741,
367 + .03678, .01444, 90.23820, 2.66651, 2.10599,
368 + 1.54612, 2.41358, 2.66728,
369 + .03723, .01469, 96.71779, 2.87841, 2.32120,
370 + 1.76566, 2.62682, 2.87916,
371 + .03781, .01500, 105.14092, 3.16169, 2.60874,
372 + 2.05917, 2.91177, 3.16242,
373 + .03836, .01530, 113.32323, 3.44423, 2.89630,
374 + 2.35404, 3.19587, 3.44495,
375 + .03887, .01558, 121.07475, 3.72024, 3.17569,
376 + 2.63796, 3.47330, 3.72094 /
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 + .03939, .01586, 128.97507, 4.00837, 3.46753,
379 + 2.93496, 3.76284, 4.00906,
380 + .03990, .01614, 136.90460, 4.30381, 3.76737,
381 + 3.24104, 4.05963, 4.30449,
382 + .04039, .01641, 144.37753, 4.59011, 4.05624,
383 + 3.53334, 4.34720, 4.59078,
384 + .04085, .01667, 151.66348, 4.87325, 4.34357,
385 + 3.82662, 4.63151, 4.87391,
386 + .04131, .01693, 158.86346, 5.16080, 4.63324,
387 + 4.11912, 4.92023, 5.16145,
388 + .04177, .01718, 166.19995, 5.45734, 4.93375,
389 + 4.42523, 5.21791, 5.45799,
390 + .04220, .01743, 173.03319, 5.74071, 5.21903,
391 + 4.71313, 5.50234, 5.74135,
392 + .04262, .01766, 179.69626, 6.02004, 5.50153,
393 + 5.00007, 5.78267, 6.02067 /
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, .01790, 186.33412, 6.30413, 5.78783,
396 + 5.28946, 6.06776, 6.30476,
397 + .04346, .01814, 192.98479, 6.59268, 6.07902,
398 + 5.58436, 6.35728, 6.59330,
399 + .04385, .01836, 199.35475, 6.87330, 6.36223,
400 + 5.87118, 6.63882, 6.87392,
401 + .04424, .01858, 205.35309, 7.14215, 6.63297,
402 + 6.14459, 6.90853, 7.14276,
403 + .04462, .01880, 211.56236, 7.42302, 6.91664,
404 + 6.43216, 7.19027, 7.42364 /
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 + .02997, .01094, 3.49370, .56367, .00000,
407 + .00000, .28974, .56435,
408 + .03038, .01113, 5.06975, .57783, .00000,
409 + .00000, .30552, .57848,
410 + .03099, .01141, 7.86360, .60795, .00017,
411 + .00000, .33804, .60858,
412 + .03144, .01163, 10.20843, .63803, .02873,
413 + .00000, .36982, .63863,
414 + .03192, .01186, 12.95823, .67723, .08137,
415 + .00000, .41080, .67781,
416 + .03233, .01206, 15.46662, .72013, .12308,
417 + .00000, .45522, .72070,
418 + .03274, .01226, 18.13613, .76659, .17388,
419 + .00000, .50311, .76714,
420 + .03317, .01248, 21.20205, .82287, .23551,
421 + .00000, .56088, .82340 /
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 + .03354, .01266, 23.96868, .87914, .29251,
424 + .00000, .61843, .87966,
425 + .03391, .01285, 26.90123, .93780, .35733,
426 + .00000, .67831, .93830,
427 + .03420, .01300, 29.21565, .98958, .40848,
428 + .00000, .73105, .99007,
429 + .03482, .01332, 34.57262, 1.11081, .53515,
430 + .00002, .85430, 1.11128,
431 + .03537, .01360, 39.48342, 1.22892, .65910,
432 + .07849, .97412, 1.22938,
433 + .03598, .01391, 45.10780, 1.37563, .80973,
434 + .24101, 1.12270, 1.37606,
435 + .03662, .01425, 51.29933, 1.54486, .98282,
436 + .42746, 1.29384, 1.54528,
437 + .03720, .01456, 57.19919, 1.71266, 1.15458,
438 + .60626, 1.46333, 1.71306 /
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 + .03779, .01488, 63.42905, 1.89606, 1.34288,
441 + .80408, 1.64842, 1.89645,
442 + .03829, .01515, 68.76122, 2.05887, 1.50914,
443 + .97530, 1.81259, 2.05924,
444 + .03889, .01547, 75.38713, 2.26831, 1.72203,
445 + 1.19320, 2.02366, 2.26867,
446 + .03943, .01577, 81.47045, 2.46581, 1.92377,
447 + 1.40185, 2.22259, 2.46616,
448 + .03992, .01604, 87.13692, 2.65567, 2.11650,
449 + 1.59854, 2.41373, 2.65601,
450 + .04055, .01639, 94.48097, 2.90882, 2.37335,
451 + 1.86084, 2.66848, 2.90915,
452 + .04115, .01672, 101.59372, 3.16063, 2.62955,
453 + 2.12369, 2.92177, 3.16095,
454 + .04171, .01703, 108.31135, 3.40598, 2.87783,
455 + 2.37609, 3.16848, 3.40630 /
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 + .04227, .01734, 115.13943, 3.66152, 3.13657,
458 + 2.63951, 3.42537, 3.66183,
459 + .04282, .01765, 121.97561, 3.92294, 3.40185,
460 + 2.91043, 3.68808, 3.92325,
461 + .04335, .01795, 128.39973, 4.17572, 3.65682,
462 + 3.16852, 3.94206, 4.17602,
463 + .04385, .01823, 134.65117, 4.42522, 3.91000,
464 + 3.42707, 4.19269, 4.42552,
465 + .04435, .01852, 140.81136, 4.67811, 4.16468,
466 + 3.68432, 4.44669, 4.67841,
467 + .04485, .01880, 147.07799, 4.93845, 4.42851,
468 + 3.95319, 4.70811, 4.93875,
469 + .04532, .01907, 152.89870, 5.18675, 4.67843,
470 + 4.20548, 4.95742, 5.18704,
471 + .04577, .01933, 158.56612, 5.43114, 4.92559,
472 + 4.45665, 5.20277, 5.43143 /
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 + .04623, .01959, 164.19890, 5.67928, 5.17563,
475 + 4.70947, 5.45186, 5.67957,
476 + .04668, .01985, 169.83310, 5.93093, 5.42959,
477 + 4.96676, 5.70443, 5.93122,
478 + .04712, .02010, 175.21950, 6.17530, 5.67621,
479 + 5.21664, 5.94968, 6.17559,
480 + .04753, .02034, 180.28142, 6.40907, 5.91163,
481 + 5.45445, 6.18427, 6.40936,
482 + .04795, .02058, 185.51512, 6.65300, 6.15802,
483 + 5.70434, 6.42903, 6.65329 /
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 + .03678, .01388, 3.29613, .49667, .00000,
486 + .00000, .25523, .49642,
487 + .03730, .01415, 4.61716, .50955, .00000,
488 + .00000, .26954, .50928,
489 + .03808, .01457, 6.90235, .53596, .00016,
490 + .00000, .29805, .53567,
491 + .03866, .01488, 8.77904, .56160, .02451,
492 + .00000, .32519, .56130,
493 + .03927, .01521, 10.94228, .59443, .06897,
494 + .00000, .35959, .59413,
495 + .03981, .01551, 12.88794, .62966, .10341,
496 + .00000, .39614, .62935,
497 + .04033, .01579, 14.93244, .66743, .14489,
498 + .00000, .43516, .66711,
499 + .04088, .01610, 17.25252, .71266, .19460,
500 + .00000, .48172, .71234 /
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 + .04136, .01637, 19.32249, .75735, .24002,
503 + .00000, .52752, .75702,
504 + .04183, .01663, 21.49644, .80361, .29126,
505 + .00000, .57486, .80328,
506 + .04221, .01684, 23.19662, .84404, .33128,
507 + .00000, .61613, .84371,
508 + .04301, .01730, 27.08887, .93784, .42947,
509 + .00002, .71171, .93751,
510 + .04371, .01769, 30.60603, 1.02813, .52437,
511 + .05999, .80348, 1.02779,
512 + .04450, .01814, 34.57262, 1.13893, .63827,
513 + .18347, .91593, 1.13860,
514 + .04533, .01862, 38.88286, 1.26525, .76759,
515 + .32338, 1.04392, 1.26492,
516 + .04608, .01905, 42.93943, 1.38911, .89450,
517 + .45594, 1.16927, 1.38878 /
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 + .04685, .01950, 47.17448, 1.52311, 1.03224,
520 + .60115, 1.30475, 1.52279,
521 + .04749, .01987, 50.76159, 1.64099, 1.15275,
522 + .72562, 1.42382, 1.64066,
523 + .04827, .02033, 55.17305, 1.79128, 1.30566,
524 + .88258, 1.57555, 1.79097,
525 + .04897, .02073, 59.18406, 1.93177, 1.44936,
526 + 1.03166, 1.71729, 1.93146,
527 + .04961, .02111, 62.88540, 2.06578, 1.58554,
528 + 1.17101, 1.85241, 2.06547,
529 + .05042, .02159, 67.63684, 2.24300, 1.76555,
530 + 1.35535, 2.03103, 2.24270,
531 + .05119, .02205, 72.19431, 2.41777, 1.94364,
532 + 1.53858, 2.20710, 2.41749,
533 + .05192, .02248, 76.45595, 2.58671, 2.11480,
534 + 1.71302, 2.37724, 2.58644 /
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 + .05265, .02291, 80.74980, 2.76136, 2.29187,
537 + 1.89377, 2.55306, 2.76110,
538 + .05336, .02333, 85.01447, 2.93877, 2.47220,
539 + 2.07845, 2.73160, 2.93852,
540 + .05404, .02374, 88.98389, 3.10911, 2.64421,
541 + 2.25297, 2.90300, 3.10887,
542 + .05468, .02412, 92.82371, 3.27625, 2.81414,
543 + 2.42700, 3.07112, 3.27603,
544 + .05533, .02451, 96.57157, 3.44457, 2.98384,
545 + 2.59878, 3.24041, 3.44435,
546 + .05597, .02490, 100.36469, 3.61691, 3.15884,
547 + 2.77762, 3.41371, 3.61672,
548 + .05659, .02526, 103.85516, 3.78027, 3.32347,
549 + 2.94418, 3.57795, 3.78009,
550 + .05717, .02561, 107.23846, 3.94032, 3.48564,
551 + 3.10940, 3.73883, 3.94014 /
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 + .05775, .02596, 110.57428, 4.10192, 3.64872,
554 + 3.27469, 3.90127, 4.10176,
555 + .05833, .02631, 113.89301, 4.26505, 3.81364,
556 + 3.44218, 4.06520, 4.26490,
557 + .05889, .02665, 117.04645, 4.42271, 3.97304,
558 + 3.60408, 4.22363, 4.42257,
559 + .05942, .02697, 119.98976, 4.57280, 4.12443,
560 + 3.75737, 4.37445, 4.57268,
561 + .05996, .02729, 123.02187, 4.72885, 4.28237,
562 + 3.91797, 4.53121, 4.72874 /
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 + .04521, .01776, 3.10079, .43659, .00000,
565 + .00000, .22470, .43620,
566 + .04588, .01816, 4.19360, .44822, .00000,
567 + .00000, .23760, .44783,
568 + .04688, .01876, 6.04118, .47124, .00014,
569 + .00000, .26249, .47085,
570 + .04762, .01920, 7.52655, .49296, .02082,
571 + .00000, .28555, .49257,
572 + .04841, .01968, 9.20946, .52028, .05820,
573 + .00000, .31425, .51989,
574 + .04910, .02009, 10.70181, .54897, .08648,
575 + .00000, .34412, .54858,
576 + .04976, .02050, 12.24983, .57939, .12017,
577 + .00000, .37566, .57901,
578 + .05047, .02093, 13.98515, .61540, .16005,
579 + .00000, .41284, .61503 /
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 + .05110, .02131, 15.51542, .65050, .19602,
582 + .00000, .44895, .65014,
583 + .05171, .02168, 17.10750, .68660, .23627,
584 + .00000, .48600, .68624,
585 + .05219, .02198, 18.34082, .71780, .26737,
586 + .00000, .51795, .71745,
587 + .05323, .02262, 21.13243, .78954, .34298,
588 + .00002, .59126, .78920,
589 + .05413, .02318, 23.61727, .85771, .41511,
590 + .04559, .66077, .85738,
591 + .05515, .02381, 26.37363, .94035, .50058,
592 + .13887, .74488, .94005,
593 + .05622, .02447, 29.32838, 1.03343, .59643,
594 + .24322, .83945, 1.03314,
595 + .05720, .02508, 32.07320, 1.12366, .68942,
596 + .34088, .93101, 1.12339 /
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 + .05819, .02570, 34.90466, 1.22026, .78930,
599 + .44676, 1.02893, 1.22002,
600 + .05902, .02621, 37.27644, 1.30445, .87585,
601 + .53661, 1.11419, 1.30422,
602 + .06003, .02684, 40.16104, 1.41083, .98465,
603 + .64885, 1.22185, 1.41062,
604 + .06093, .02740, 42.75693, 1.50937, 1.08601,
605 + .75455, 1.32151, 1.50919,
606 + .06176, .02792, 45.12833, 1.60262, 1.18125,
607 + .85250, 1.41576, 1.60246,
608 + .06281, .02858, 48.14121, 1.72490, 1.30610,
609 + .98096, 1.53930, 1.72477,
610 + .06381, .02920, 51.00142, 1.84445, 1.42856,
611 + 1.10761, 1.66001, 1.84434,
612 + .06474, .02979, 53.64687, 1.95906, 1.54524,
613 + 1.22707, 1.77568, 1.95898 /
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 + .06568, .03038, 56.28695, 2.07663, 1.66504,
616 + 1.34994, 1.89431, 2.07658,
617 + .06660, .03096, 58.88662, 2.19520, 1.78619,
618 + 1.47462, 2.01390, 2.19518,
619 + .06748, .03150, 61.28042, 2.30821, 1.90082,
620 + 1.59144, 2.12785, 2.30821,
621 + .06831, .03202, 63.58167, 2.41843, 2.01348,
622 + 1.70737, 2.23896, 2.41846,
623 + .06915, .03255, 65.80326, 2.52866, 2.12510,
624 + 1.82086, 2.35006, 2.52871,
625 + .06997, .03306, 68.03996, 2.64092, 2.23969,
626 + 1.93853, 2.46318, 2.64101,
627 + .07076, .03356, 70.07580, 2.74663, 2.34668,
628 + 2.04723, 2.56968, 2.74674,
629 + .07150, .03402, 72.04005, 2.84970, 2.45164,
630 + 2.15468, 2.67350, 2.84984 /
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 + .07226, .03450, 73.95877, 2.95317, 2.55653,
633 + 2.26145, 2.77772, 2.95333,
634 + .07300, .03496, 75.85645, 3.05711, 2.66211,
635 + 2.36917, 2.88239, 3.05730,
636 + .07371, .03541, 77.64714, 3.15706, 2.76366,
637 + 2.47278, 2.98304, 3.15728,
638 + .07439, .03583, 79.30514, 3.25174, 2.85958,
639 + 2.57033, 3.07837, 3.25198,
640 + .07508, .03627, 81.00677, 3.34980, 2.95933,
641 + 2.67223, 3.17708, 3.35006 /
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 + .05107, .02067, 2.98480, .40440, .00000,
644 + .00000, .20847, .40420,
645 + .05184, .02116, 3.95519, .41529, .00000,
646 + .00000, .22056, .41510,
647 + .05301, .02189, 5.57481, .43644, .00013,
648 + .00000, .24345, .43626,
649 + .05387, .02244, 6.86088, .45607, .01885,
650 + .00000, .26434, .45589,
651 + .05479, .02302, 8.30319, .48046, .05250,
652 + .00000, .29004, .48030,
653 + .05559, .02353, 9.57147, .50576, .07760,
654 + .00000, .31645, .50561,
655 + .05636, .02403, 10.87694, .53241, .10731,
656 + .00000, .34415, .53227,
657 + .05719, .02456, 12.32965, .56373, .14220,
658 + .00000, .37656, .56360 /
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 + .05792, .02502, 13.60164, .59401, .17343,
661 + .00000, .40779, .59389,
662 + .05863, .02547, 14.91758, .62501, .20823,
663 + .00000, .43969, .62491,
664 + .05919, .02584, 15.93101, .65164, .23493,
665 + .00000, .46702, .65155,
666 + .06040, .02661, 18.20917, .71251, .29948,
667 + .00002, .52938, .71244,
668 + .06146, .02729, 20.21820, .76992, .36059,
669 + .03864, .58804, .76987,
670 + .06264, .02806, 22.42362, .83899, .43244,
671 + .11743, .65850, .83897,
672 + .06389, .02886, 24.76809, .91621, .51241,
673 + .20491, .73713, .91622,
674 + .06503, .02959, 26.92844, .99056, .58946,
675 + .28615, .81274, .99060 /
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 + .06619, .03034, 29.14046, 1.06966, .67170,
678 + .37370, .89308, 1.06973,
679 + .06715, .03096, 30.98054, 1.13821, .74255,
680 + .44754, .96265, 1.13831,
681 + .06833, .03172, 33.20286, 1.22435, .83110,
682 + .53925, 1.05000, 1.22448,
683 + .06937, .03239, 35.18994, 1.30372, .91316,
684 + .62518, 1.13042, 1.30388,
685 + .07033, .03301, 36.99350, 1.37846, .98988,
686 + .70437, 1.20612, 1.37865,
687 + .07156, .03380, 39.26997, 1.47598, 1.08992,
688 + .80771, 1.30482, 1.47621,
689 + .07271, .03454, 41.41702, 1.57080, 1.18755,
690 + .90907, 1.40075, 1.57107,
691 + .07380, .03524, 43.38885, 1.66126, 1.28006,
692 + 1.00415, 1.49222, 1.66156 /
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 + .07489, .03594, 45.34467, 1.75362, 1.37461,
695 + 1.10149, 1.58558, 1.75396,
696 + .07596, .03663, 47.25998, 1.84636, 1.46982,
697 + 1.19985, 1.67929, 1.84673,
698 + .07698, .03729, 49.01102, 1.93433, 1.55945,
699 + 1.29153, 1.76817, 1.93475,
700 + .07794, .03790, 50.68794, 2.01984, 1.64726,
701 + 1.38226, 1.85451, 2.02029,
702 + .07891, .03852, 52.29477, 2.10498, 1.73385,
703 + 1.47060, 1.94049, 2.10547,
704 + .07986, .03913, 53.90745, 2.19141, 1.82248,
705 + 1.56197, 2.02774, 2.19194,
706 + .08077, .03971, 55.36417, 2.27246, 1.90485,
707 + 1.64596, 2.10954, 2.27302,
708 + .08163, .04027, 56.76581, 2.35126, 1.98547,
709 + 1.72880, 2.18906, 2.35185 /
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 + .08251, .04082, 58.12616, 2.43008, 2.06571,
712 + 1.81078, 2.26859, 2.43070,
713 + .08337, .04137, 59.46655, 2.50902, 2.14625,
714 + 1.89325, 2.34823, 2.50968,
715 + .08419, .04190, 60.72542, 2.58469, 2.22347,
716 + 1.97234, 2.42457, 2.58539,
717 + .08497, .04239, 61.88445, 2.65615, 2.29617,
718 + 2.04654, 2.49664, 2.65687,
719 + .08577, .04290, 63.07138, 2.72998, 2.37161,
720 + 2.12391, 2.57111, 2.73074 /
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 + .05573, .02314, 2.90028, .38282, .00000,
723 + .00000, .19760, .38282,
724 + .05659, .02370, 3.78832, .39319, .00000,
725 + .00000, .20911, .39320,
726 + .05789, .02455, 5.25710, .41304, .00013,
727 + .00000, .23063, .41306,
728 + .05885, .02518, 6.41309, .43124, .01752,
729 + .00000, .25004, .43127,
730 + .05988, .02585, 7.69998, .45368, .04867,
731 + .00000, .27374, .45374,
732 + .06077, .02644, 8.82474, .47674, .07167,
733 + .00000, .29786, .47681,
734 + .06164, .02701, 9.97600, .50091, .09876,
735 + .00000, .32304, .50100,
736 + .06257, .02762, 11.25028, .52917, .13041,
737 + .00000, .35235, .52927 /
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 + .06338, .02816, 12.36026, .55633, .15857,
740 + .00000, .38041, .55645,
741 + .06417, .02868, 13.50389, .58405, .18984,
742 + .00000, .40900, .58418,
743 + .06480, .02909, 14.38080, .60774, .21373,
744 + .00000, .43337, .60789,
745 + .06615, .02999, 16.34212, .66168, .27123,
746 + .00002, .48874, .66186,
747 + .06733, .03076, 18.05984, .71227, .32537,
748 + .03426, .54054, .71248,
749 + .06866, .03164, 19.93069, .77281, .38866,
750 + .10391, .60241, .77305,
751 + .07005, .03256, 21.90718, .84013, .45871,
752 + .18083, .67108, .84041,
753 + .07132, .03339, 23.71752, .90462, .52587,
754 + .25188, .73679, .90494 /
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 + .07261, .03424, 25.56090, .97292, .59722,
757 + .32808, .80629, .97328,
758 + .07369, .03495, 27.08629, 1.03187, .65843,
759 + .39208, .86622, 1.03226,
760 + .07500, .03581, 28.91886, 1.10564, .73460,
761 + .47123, .94116, 1.10608,
762 + .07616, .03658, 30.54955, 1.17335, .80493,
763 + .54511, 1.00989, 1.17383,
764 + .07724, .03728, 32.02237, 1.23688, .87042,
765 + .61293, 1.07434, 1.23740,
766 + .07860, .03817, 33.87216, 1.31947, .95551,
767 + .70110, 1.15808, 1.32002,
768 + .07989, .03902, 35.60817, 1.39946, 1.03822,
769 + .78726, 1.23914, 1.40006,
770 + .08110, .03981, 37.19380, 1.47548, 1.11630,
771 + .86775, 1.31614, 1.47613 /
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 + .08231, .04060, 38.75918, 1.55284, 1.19581,
774 + .94988, 1.39447, 1.55353,
775 + .08350, .04137, 40.28574, 1.63026, 1.27563,
776 + 1.03261, 1.47283, 1.63100,
777 + .08463, .04211, 41.67348, 1.70346, 1.35050,
778 + 1.10942, 1.54691, 1.70424,
779 + .08570, .04280, 42.99872, 1.77442, 1.42368,
780 + 1.18528, 1.61868, 1.77524,
781 + .08677, .04349, 44.26095, 1.84484, 1.49556,
782 + 1.25885, 1.68991, 1.84571,
783 + .08783, .04418, 45.52487, 1.91616, 1.56902,
784 + 1.33481, 1.76203, 1.91707,
785 + .08884, .04483, 46.65956, 1.98283, 1.63703,
786 + 1.40437, 1.82944, 1.98378,
787 + .08980, .04545, 47.74915, 2.04752, 1.70347,
788 + 1.47287, 1.89482, 2.04851 /
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 + .09076, .04607, 48.80110, 2.11204, 1.76941,
791 + 1.54045, 1.96004, 2.11307,
792 + .09172, .04668, 49.83452, 2.17652, 1.83546,
793 + 1.60830, 2.02520, 2.17759,
794 + .09263, .04727, 50.80153, 2.23819, 1.89865,
795 + 1.67322, 2.08752, 2.23931,
796 + .09349, .04783, 51.68776, 2.29628, 1.95798,
797 + 1.73396, 2.14621, 2.29743,
798 + .09437, .04839, 52.59384, 2.35621, 2.01946,
799 + 1.79722, 2.20675, 2.35740 /
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 + .05966, .02548, 2.83081, .36696, .00000,
802 + .00000, .18946, .36692,
803 + .06061, .02611, 3.65680, .37690, .00000,
804 + .00000, .20049, .37687,
805 + .06203, .02706, 5.01226, .39570, .00013,
806 + .00000, .22092, .39570,
807 + .06309, .02777, 6.07123, .41280, .01650,
808 + .00000, .23917, .41281,
809 + .06421, .02852, 7.24299, .43374, .04572,
810 + .00000, .26133, .43379,
811 + .06520, .02918, 8.26211, .45511, .06713,
812 + .00000, .28372, .45517,
813 + .06615, .02982, 9.30049, .47742, .09224,
814 + .00000, .30701, .47751,
815 + .06716, .03050, 10.44489, .50340, .12146,
816 + .00000, .33401, .50351 /
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 + .06806, .03110, 11.43751, .52826, .14734,
819 + .00000, .35974, .52839,
820 + .06892, .03168, 12.45684, .55357, .17601,
821 + .00000, .38588, .55372,
822 + .06961, .03214, 13.23565, .57512, .19781,
823 + .00000, .40809, .57529,
824 + .07110, .03313, 14.97036, .62402, .25014,
825 + .00001, .45837, .62424,
826 + .07239, .03400, 16.48096, .66969, .29918,
827 + .03105, .50521, .66994,
828 + .07384, .03497, 18.11548, .72409, .35626,
829 + .09405, .56090, .72439,
830 + .07537, .03599, 19.83346, .78432, .41915,
831 + .16331, .62244, .78467,
832 + .07676, .03691, 21.39920, .84179, .47920,
833 + .22699, .68109, .84219 /
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 + .07817, .03785, 22.98625, .90243, .54276,
836 + .29506, .74289, .90287,
837 + .07935, .03863, 24.29393, .95459, .59709,
838 + .35202, .79600, .95507,
839 + .08079, .03958, 25.85781, 1.01964, .66449,
840 + .42221, .86219, 1.02018,
841 + .08206, .04042, 27.24377, 1.07916, .72652,
842 + .48754, .92269, 1.07974,
843 + .08323, .04119, 28.49037, 1.13484, .78411,
844 + .54733, .97926, 1.13547,
845 + .08472, .04217, 30.04955, 1.20699, .85869,
846 + .62481, 1.05254, 1.20768,
847 + .08612, .04310, 31.50676, 1.27667, .93097,
848 + .70029, 1.12325, 1.27741,
849 + .08744, .04396, 32.83133, 1.34267, .99897,
850 + .77058, 1.19021, 1.34347 /
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 + .08876, .04483, 34.13370, 1.40965, 1.06804,
853 + .84209, 1.25813, 1.41050,
854 + .09006, .04568, 35.39923, 1.47650, 1.13720,
855 + .91395, 1.32589, 1.47740,
856 + .09129, .04648, 36.54436, 1.53952, 1.20186,
857 + .98047, 1.38977, 1.54048,
858 + .09245, .04723, 37.63538, 1.60048, 1.26495,
859 + 1.04604, 1.45152, 1.60149,
860 + .09362, .04799, 38.66879, 1.66083, 1.32674,
861 + 1.10943, 1.51265, 1.66189,
862 + .09477, .04873, 39.70168, 1.72183, 1.38978,
863 + 1.17480, 1.57443, 1.72294,
864 + .09586, .04944, 40.62400, 1.77869, 1.44797,
865 + 1.23446, 1.63201, 1.77985,
866 + .09690, .05011, 41.50821, 1.83377, 1.50475,
867 + 1.29314, 1.68777, 1.83497 /
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 + .09795, .05078, 42.35767, 1.88857, 1.56095,
870 + 1.35088, 1.74325, 1.88982,
871 + .09898, .05145, 43.18997, 1.94325, 1.61715,
872 + 1.40877, 1.79858, 1.94455,
873 + .09997, .05208, 43.96630, 1.99544, 1.67080,
874 + 1.46405, 1.85141, 1.99678,
875 + .10091, .05268, 44.67489, 2.04450, 1.72108,
876 + 1.51566, 1.90106, 2.04589,
877 + .10186, .05329, 45.39841, 2.09505, 1.77313,
878 + 1.56936, 1.95220, 2.09648 /
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 + .07407, .03482, 2.60406, .32108, .00000,
881 + .00000, .16601, .32113,
882 + .07534, .03572, 3.25226, .32964, .00000,
883 + .00000, .17558, .32973,
884 + .07726, .03708, 4.29063, .34534, .00011,
885 + .00000, .19274, .34548,
886 + .07869, .03809, 5.08330, .35921, .01354,
887 + .00000, .20767, .35939,
888 + .08020, .03916, 5.94363, .37586, .03726,
889 + .00000, .22542, .37609,
890 + .08153, .04008, 6.68019, .39247, .05421,
891 + .00000, .24297, .39275,
892 + .08281, .04098, 7.41980, .40961, .07385,
893 + .00000, .26099, .40993,
894 + .08417, .04193, 8.22363, .42930, .09638,
895 + .00000, .28162, .42966 /
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 + .08537, .04276, 8.91122, .44786, .11606,
898 + .00000, .30098, .44827,
899 + .08654, .04357, 9.60986, .46661, .13766,
900 + .00000, .32051, .46706,
901 + .08746, .04421, 10.13727, .48238, .15389,
902 + .00000, .33687, .48287,
903 + .08945, .04558, 11.29627, .51780, .19244,
904 + .00001, .37357, .51837,
905 + .09118, .04676, 12.28648, .55041, .22804,
906 + .02261, .40726, .55104,
907 + .09312, .04809, 13.33388, .58870, .26887,
908 + .06816, .44674, .58941,
909 + .09515, .04947, 14.41605, .63051, .31322,
910 + .11753, .48976, .63130,
911 + .09700, .05072, 15.38580, .66987, .35500,
912 + .16228, .53021, .67075 /
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 + .09888, .05198, 16.35352, .71090, .39871,
915 + .20955, .57233, .71186,
916 + .10044, .05302, 17.13896, .74581, .43565,
917 + .24865, .60812, .74684,
918 + .10233, .05429, 18.06389, .78888, .48096,
919 + .29630, .65225, .79000,
920 + .10401, .05540, 18.87232, .82787, .52225,
921 + .34023, .69217, .82907,
922 + .10555, .05642, 19.58885, .86399, .56019,
923 + .38000, .72912, .86526,
924 + .10750, .05771, 20.47179, .91033, .60883,
925 + .43104, .77651, .91170,
926 + .10934, .05891, 21.28502, .95461, .65551,
927 + .48028, .82177, .95607,
928 + .11106, .06004, 22.01168, .99613, .69895,
929 + .52563, .86419, .99768 /
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 + .11278, .06116, 22.71587, 1.03786, .74266,
932 + .57136, .90681, 1.03950,
933 + .11447, .06225, 23.39154, 1.07916, .78607,
934 + .61694, .94897, 1.08088,
935 + .11606, .06327, 23.99154, 1.11771, .82625,
936 + .65868, .98833, 1.11952,
937 + .11756, .06424, 24.55867, 1.15475, .86521,
938 + .69961, 1.02612, 1.15663,
939 + .11906, .06520, 25.08462, 1.19106, .90298,
940 + .73875, 1.06318, 1.19302,
941 + .12055, .06615, 25.60719, 1.22755, .94131,
942 + .77893, 1.10040, 1.22959,
943 + .12195, .06704, 26.06350, 1.26123, .97634,
944 + .81522, 1.13477, 1.26336,
945 + .12328, .06788, 26.49865, 1.29370, 1.01037,
946 + .85077, 1.16788, 1.29589 /
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 + .12461, .06872, 26.90870, 1.32573, 1.04376,
949 + .88545, 1.20056, 1.32800,
950 + .12593, .06956, 27.30662, 1.35750, 1.07697,
951 + .92003, 1.23296, 1.35984,
952 + .12719, .07035, 27.67292, 1.38762, 1.10847,
953 + .95285, 1.26369, 1.39004,
954 + .12837, .07109, 28.00148, 1.41574, 1.13778,
955 + .98327, 1.29237, 1.41822,
956 + .12958, .07184, 28.33557, 1.44459, 1.16800,
957 + 1.01481, 1.32179, 1.44714 /
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 + .09315, .04905, 2.34630, .28014, .00000,
960 + .00000, .14490, .28029,
961 + .09493, .05032, 2.83833, .28725, .00000,
962 + .00000, .15294, .28748,
963 + .09760, .05223, 3.60678, .29989, .00010,
964 + .00000, .16694, .30023,
965 + .09958, .05363, 4.17894, .31075, .01084,
966 + .00000, .17878, .31117,
967 + .10168, .05511, 4.78699, .32353, .02962,
968 + .00000, .19260, .32404,
969 + .10351, .05638, 5.29864, .33599, .04269,
970 + .00000, .20593, .33659,
971 + .10527, .05761, 5.80439, .34868, .05765,
972 + .00000, .21946, .34937,
973 + .10715, .05891, 6.34566, .36307, .07456,
974 + .00000, .23473, .36385 /
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 + .10880, .06003, 6.80137, .37643, .08911,
977 + .00000, .24884, .37729,
978 + .11039, .06112, 7.25917, .38981, .10494,
979 + .00000, .26296, .39075,
980 + .11166, .06198, 7.59987, .40092, .11667,
981 + .00000, .27463, .40192,
982 + .11436, .06381, 8.33737, .42559, .14423,
983 + .00001, .30051, .42674,
984 + .11671, .06538, 8.95353, .44796, .16930,
985 + .01599, .32392, .44923,
986 + .11933, .06713, 9.58715, .47382, .19759,
987 + .04798, .35091, .47524,
988 + .12207, .06893, 10.22861, .50162, .22784,
989 + .08212, .37988, .50319,
990 + .12455, .07055, 10.79185, .52742, .25594,
991 + .11260, .40672, .52913 /
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 + .12705, .07218, 11.34330, .55395, .28495,
994 + .14438, .43429, .55580,
995 + .12912, .07352, 11.78243, .57625, .30917,
996 + .17034, .45744, .57822,
997 + .13162, .07512, 12.28955, .60342, .33852,
998 + .20160, .48564, .60554,
999 + .13383, .07654, 12.72522, .62773, .36496,
1000 + .23011, .51085, .62999,
1001 + .13586, .07782, 13.10388, .65000, .38898,
1002 + .25563, .53393, .65238,
1003 + .13841, .07942, 13.56124, .67824, .41944,
1004 + .28802, .56319, .68078,
1005 + .14080, .08092, 13.97441, .70490, .44834,
1006 + .31894, .59081, .70759,
1007 + .14303, .08231, 14.33476, .72960, .47491,
1008 + .34706, .61638, .73243 /
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 + .14525, .08368, 14.67707, .75416, .50137,
1011 + .37514, .64181, .75713,
1012 + .14742, .08502, 14.99993, .77821, .52740,
1013 + .40288, .66671, .78133,
1014 + .14945, .08625, 15.27799, .80041, .55121,
1015 + .42797, .68969, .80365,
1016 + .15137, .08742, 15.53819, .82157, .57415,
1017 + .45244, .71159, .82494,
1018 + .15327, .08857, 15.77128, .84205, .59610,
1019 + .47554, .73281, .84555,
1020 + .15515, .08970, 16.00135, .86251, .61827,
1021 + .49915, .75399, .86613,
1022 + .15691, .09075, 16.19454, .88116, .63828,
1023 + .52020, .77332, .88490,
1024 + .15858, .09175, 16.37771, .89904, .65763,
1025 + .54075, .79184, .90289 /
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 + .16025, .09274, 16.54413, .91649, .67641,
1028 + .56058, .80992, .92045,
1029 + .16189, .09371, 16.70311, .93367, .69498,
1030 + .58024, .82773, .93775,
1031 + .16345, .09463, 16.84604, .94984, .71247,
1032 + .59876, .84449, .95402,
1033 + .16492, .09549, 16.96993, .96478, .72858,
1034 + .61578, .85999, .96906,
1035 + .16641, .09636, 17.09534, .98004, .74515,
1036 + .63336, .87582, .98443 /
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 + .10760, .06060, 2.17838, .25817, .00000,
1039 + .00000, .13354, .25846,
1040 + .10979, .06214, 2.58946, .26439, .00000,
1041 + .00000, .14067, .26480,
1042 + .11307, .06442, 3.22168, .27528, .00009,
1043 + .00000, .15289, .27585,
1044 + .11549, .06609, 3.68513, .28447, .00939,
1045 + .00000, .16306, .28518,
1046 + .11805, .06785, 4.17109, .29518, .02554,
1047 + .00000, .17479, .29602,
1048 + .12027, .06935, 4.57540, .30547, .03661,
1049 + .00000, .18595, .30644,
1050 + .12241, .07080, 4.97116, .31589, .04919,
1051 + .00000, .19719, .31698,
1052 + .12470, .07232, 5.39058, .32759, .06328,
1053 + .00000, .20976, .32881 /
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 + .12668, .07364, 5.73995, .33835, .07529,
1056 + .00000, .22127, .33969,
1057 + .12860, .07491, 6.08847, .34908, .08829,
1058 + .00000, .23273, .35054,
1059 + .13012, .07590, 6.34523, .35791, .09784,
1060 + .00000, .24212, .35946,
1061 + .13337, .07802, 6.89560, .37739, .12013,
1062 + .00001, .26281, .37914,
1063 + .13617, .07983, 7.34838, .39489, .14021,
1064 + .01286, .28134, .39682,
1065 + .13930, .08183, 7.80445, .41491, .16264,
1066 + .03846, .30249, .41704,
1067 + .14255, .08388, 8.25957, .43622, .18640,
1068 + .06553, .32497, .43856,
1069 + .14548, .08572, 8.65344, .45580, .20827,
1070 + .08946, .34560, .45834 /
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 + .14843, .08756, 9.03382, .47577, .23065,
1073 + .11422, .36662, .47850,
1074 + .15086, .08906, 9.33247, .49242, .24920,
1075 + .13428, .38413, .49532,
1076 + .15379, .09085, 9.67212, .51253, .27149,
1077 + .15826, .40528, .51564,
1078 + .15637, .09242, 9.96012, .53040, .29143,
1079 + .17998, .42404, .53368,
1080 + .15872, .09383, 10.20656, .54663, .30941,
1081 + .19927, .44110, .55008,
1082 + .16167, .09561, 10.49940, .56706, .33205,
1083 + .22360, .46256, .57071,
1084 + .16443, .09725, 10.75989, .58620, .35337,
1085 + .24666, .48266, .59005,
1086 + .16699, .09876, 10.98248, .60377, .37281,
1087 + .26746, .50111, .60780 /
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 + .16953, .10024, 11.19001, .62110, .39205,
1090 + .28810, .51933, .62533,
1091 + .17201, .10169, 11.38266, .63797, .41086,
1092 + .30838, .53706, .64238,
1093 + .17431, .10302, 11.54403, .65339, .42791,
1094 + .32657, .55327, .65797,
1095 + .17649, .10427, 11.69389, .66802, .44428,
1096 + .34425, .56866, .67276,
1097 + .17864, .10549, 11.82327, .68206, .45981,
1098 + .36079, .58344, .68696,
1099 + .18075, .10669, 11.95043, .69602, .47545,
1100 + .37765, .59814, .70108,
1101 + .18273, .10780, 12.05218, .70862, .48943,
1102 + .39256, .61142, .71383,
1103 + .18460, .10885, 12.14827, .72066, .50291,
1104 + .40707, .62411, .72601 /
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 + .18646, .10988, 12.23196, .73231, .51591,
1107 + .42098, .63640, .73780,
1108 + .18828, .11089, 12.31053, .74373, .52870,
1109 + .43471, .64846, .74936,
1110 + .19002, .11185, 12.37900, .75440, .54068,
1111 + .44759, .65973, .76016,
1112 + .19164, .11274, 12.43542, .76419, .55165,
1113 + .45935, .67009, .77008,
1114 + .19328, .11364, 12.49236, .77417, .56290,
1115 + .47147, .68064, .78018 /
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 + .12001, .07072, 2.05040, .24336, .00000,
1118 + .00000, .12587, .24384,
1119 + .12255, .07246, 2.40883, .24894, .00000,
1120 + .00000, .13236, .24958,
1121 + .12635, .07503, 2.95385, .25858, .00009,
1122 + .00000, .14335, .25945,
1123 + .12915, .07690, 3.34872, .26664, .00841,
1124 + .00000, .15239, .26769,
1125 + .13211, .07886, 3.75858, .27595, .02283,
1126 + .00000, .16272, .27718,
1127 + .13467, .08053, 4.09658, .28482, .03259,
1128 + .00000, .17246, .28622,
1129 + .13713, .08213, 4.42499, .29374, .04363,
1130 + .00000, .18221, .29530,
1131 + .13974, .08381, 4.77042, .30370, .05591,
1132 + .00000, .19306, .30544 /
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 + .14201, .08526, 5.05574, .31280, .06631,
1135 + .00000, .20291, .31469,
1136 + .14421, .08666, 5.33886, .32184, .07751,
1137 + .00000, .21269, .32388,
1138 + .14593, .08774, 5.54572, .32923, .08569,
1139 + .00000, .22065, .33139,
1140 + .14963, .09006, 5.98573, .34546, .10470,
1141 + .00001, .23810, .34787,
1142 + .15280, .09202, 6.34320, .35993, .12170,
1143 + .01092, .25361, .36257,
1144 + .15633, .09419, 6.69700, .37636, .14055,
1145 + .03259, .27119, .37925,
1146 + .15998, .09640, 7.04591, .39371, .16036,
1147 + .05534, .28973, .39686,
1148 + .16326, .09837, 7.34414, .40954, .17847,
1149 + .07531, .30662, .41294 /
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 + .16655, .10033, 7.62880, .42557, .19690,
1152 + .09585, .32372, .42921,
1153 + .16926, .10192, 7.84953, .43884, .21207,
1154 + .11239, .33787, .44270,
1155 + .17251, .10382, 8.09714, .45478, .23020,
1156 + .13205, .35486, .45888,
1157 + .17536, .10547, 8.30466, .46885, .24633,
1158 + .14976, .36985, .47317,
1159 + .17795, .10696, 8.47961, .48155, .26079,
1160 + .16542, .38339, .48607,
1161 + .18120, .10881, 8.68435, .49743, .27889,
1162 + .18504, .40032, .50221,
1163 + .18423, .11052, 8.86379, .51222, .29585,
1164 + .20355, .41609, .51723,
1165 + .18703, .11208, 9.01384, .52569, .31122,
1166 + .22014, .43047, .53093 /
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 + .18979, .11362, 9.15119, .53891, .32633,
1169 + .23653, .44458, .54436,
1170 + .19247, .11510, 9.27668, .55169, .34105,
1171 + .25255, .45824, .55736,
1172 + .19497, .11646, 9.37838, .56328, .35430,
1173 + .26684, .47064, .56915,
1174 + .19732, .11774, 9.47212, .57425, .36698,
1175 + .28068, .48238, .58031,
1176 + .19962, .11897, 9.54932, .58467, .37893,
1177 + .29355, .49356, .59092,
1178 + .20189, .12019, 9.62495, .59501, .39093,
1179 + .30664, .50465, .60144,
1180 + .20400, .12131, 9.68170, .60426, .40158,
1181 + .31813, .51459, .61086,
1182 + .20600, .12236, 9.73514, .61307, .41183,
1183 + .32929, .52406, .61983 /
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 + .20797, .12340, 9.77864, .62153, .42164,
1186 + .33994, .53318, .62846,
1187 + .20991, .12441, 9.81839, .62978, .43128,
1188 + .35041, .54208, .63687,
1189 + .21174, .12535, 9.85125, .63746, .44026,
1190 + .36020, .55037, .64470,
1191 + .21345, .12623, 9.87579, .64445, .44844,
1192 + .36909, .55793, .65183,
1193 + .21519, .12712, 9.90052, .65155, .45682,
1194 + .37824, .56562, .65908 /
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 + .13123, .07987, 1.94659, .23224, .00000,
1197 + .00000, .12014, .23297,
1198 + .13409, .08175, 2.26700, .23731, .00000,
1199 + .00000, .12613, .23824,
1200 + .13836, .08454, 2.74979, .24601, .00008,
1201 + .00000, .13618, .24723,
1202 + .14149, .08657, 3.09625, .25321, .00770,
1203 + .00000, .14438, .25465,
1204 + .14480, .08868, 3.45292, .26148, .02083,
1205 + .00000, .15369, .26315,
1206 + .14765, .09048, 3.74479, .26930, .02965,
1207 + .00000, .16240, .27118,
1208 + .15038, .09219, 4.02670, .27713, .03957,
1209 + .00000, .17108, .27921,
1210 + .15328, .09400, 4.32137, .28584, .05056,
1211 + .00000, .18068, .28813 /
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 + .15579, .09554, 4.56299, .29374, .05981,
1214 + .00000, .18936, .29622,
1215 + .15822, .09703, 4.80173, .30157, .06975,
1216 + .00000, .19794, .30423,
1217 + .16012, .09818, 4.97489, .30794, .07697,
1218 + .00000, .20489, .31074,
1219 + .16418, .10062, 5.34087, .32187, .09368,
1220 + .00001, .22007, .32498,
1221 + .16767, .10270, 5.63499, .33421, .10853,
1222 + .00957, .23348, .33760,
1223 + .17153, .10497, 5.92138, .34813, .12489,
1224 + .02851, .24858, .35183,
1225 + .17550, .10727, 6.20085, .36275, .14200,
1226 + .04828, .26440, .36675,
1227 + .17907, .10933, 6.43711, .37599, .15755,
1228 + .06553, .27874, .38029 /
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 + .18263, .11135, 6.66016, .38933, .17329,
1231 + .08319, .29317, .39392,
1232 + .18556, .11300, 6.83100, .40031, .18618,
1233 + .09734, .30505, .40514,
1234 + .18905, .11495, 7.02024, .41342, .20151,
1235 + .11408, .31923, .41854,
1236 + .19212, .11665, 7.17707, .42494, .21508,
1237 + .12910, .33169, .43031,
1238 + .19489, .11817, 7.30726, .43528, .22720,
1239 + .14232, .34288, .44088,
1240 + .19836, .12005, 7.45727, .44813, .24229,
1241 + .15881, .35681, .45402,
1242 + .20158, .12178, 7.58671, .46003, .25636,
1243 + .17430, .36971, .46619,
1244 + .20455, .12336, 7.69231, .47079, .26904,
1245 + .18812, .38140, .47721 /
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 + .20747, .12490, 7.78707, .48130, .28147,
1248 + .20170, .39282, .48796,
1249 + .21030, .12638, 7.87218, .49141, .29351,
1250 + .21494, .40383, .49831,
1251 + .21292, .12774, 7.93826, .50051, .30430,
1252 + .22668, .41376, .50764,
1253 + .21538, .12900, 7.99864, .50910, .31459,
1254 + .23802, .42313, .51644,
1255 + .21779, .13023, 8.04515, .51718, .32423,
1256 + .24852, .43199, .52473,
1257 + .22016, .13143, 8.09056, .52518, .33389,
1258 + .25917, .44075, .53294,
1259 + .22235, .13252, 8.12130, .53228, .34241,
1260 + .26847, .44856, .54022,
1261 + .22442, .13356, 8.15017, .53903, .35059,
1262 + .27749, .45598, .54715 /
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 + .22646, .13456, 8.17078, .54545, .35839,
1265 + .28605, .46307, .55375,
1266 + .22847, .13555, 8.18853, .55169, .36602,
1267 + .29445, .46997, .56017,
1268 + .23036, .13646, 8.20137, .55746, .37311,
1269 + .30226, .47637, .56610,
1270 + .23211, .13731, 8.20819, .56268, .37953,
1271 + .30934, .48217, .57148,
1272 + .23389, .13817, 8.21506, .56798, .38610,
1273 + .31661, .48807, .57693 /
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 + .15158, .09613, 1.78379, .21592, .00000,
1276 + .00000, .11179, .21732,
1277 + .15499, .09824, 2.05162, .22022, .00000,
1278 + .00000, .11704, .22188,
1279 + .16006, .10134, 2.44943, .22749, .00008,
1280 + .00000, .12574, .22957,
1281 + .16376, .10357, 2.73054, .23344, .00668,
1282 + .00000, .13273, .23583,
1283 + .16765, .10590, 3.01599, .24021, .01801,
1284 + .00000, .14059, .24292,
1285 + .17098, .10786, 3.24670, .24654, .02551,
1286 + .00000, .14785, .24953,
1287 + .17417, .10972, 3.46734, .25283, .03389,
1288 + .00000, .15504, .25609,
1289 + .17754, .11167, 3.69554, .25977, .04310,
1290 + .00000, .16292, .26333 /
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 + .18044, .11333, 3.88038, .26602, .05079,
1293 + .00000, .16998, .26983,
1294 + .18324, .11492, 4.06182, .27218, .05900,
1295 + .00000, .17694, .27623,
1296 + .18542, .11615, 4.19160, .27715, .06492,
1297 + .00000, .18252, .28139,
1298 + .19007, .11874, 4.46294, .28795, .07854,
1299 + .00001, .19463, .29260,
1300 + .19403, .12092, 4.67683, .29742, .09053,
1301 + .00777, .20523, .30243,
1302 + .19840, .12330, 4.87900, .30799, .10361,
1303 + .02307, .21703, .31339,
1304 + .20286, .12569, 5.07249, .31896, .11716,
1305 + .03890, .22928, .32477,
1306 + .20685, .12780, 5.23257, .32880, .12935,
1307 + .05258, .24027, .33497 /
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 + .21081, .12987, 5.38054, .33861, .14160,
1310 + .06648, .25122, .34515,
1311 + .21405, .13154, 5.49125, .34662, .15155,
1312 + .07753, .26016, .35344,
1313 + .21789, .13351, 5.61054, .35607, .16328,
1314 + .09051, .27074, .36325,
1315 + .22124, .13520, 5.70706, .36429, .17359,
1316 + .10207, .27995, .37179,
1317 + .22426, .13671, 5.78445, .37160, .18273,
1318 + .11217, .28816, .37938,
1319 + .22801, .13856, 5.87046, .38059, .19402,
1320 + .12469, .29827, .38872,
1321 + .23148, .14025, 5.94203, .38883, .20446,
1322 + .13636, .30755, .39728,
1323 + .23465, .14178, 5.99693, .39619, .21379,
1324 + .14668, .31589, .40494 /
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 + .23775, .14326, 6.04340, .40330, .22285,
1327 + .15676, .32395, .41234,
1328 + .24075, .14468, 6.08295, .41008, .23159,
1329 + .16652, .33166, .41941,
1330 + .24350, .14596, 6.10944, .41610, .23933,
1331 + .17511, .33853, .42568,
1332 + .24609, .14715, 6.13296, .42173, .24669,
1333 + .18338, .34498, .43156,
1334 + .24859, .14829, 6.14619, .42694, .25350,
1335 + .19095, .35100, .43701,
1336 + .25106, .14940, 6.15900, .43208, .26031,
1337 + .19861, .35693, .44239,
1338 + .25331, .15040, 6.16211, .43656, .26625,
1339 + .20524, .36213, .44707,
1340 + .25543, .15135, 6.16497, .44080, .27194,
1341 + .21164, .36707, .45151 /
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 + .25751, .15226, 6.16174, .44476, .27730,
1344 + .21767, .37172, .45567,
1345 + .25955, .15314, 6.15677, .44858, .28253,
1346 + .22356, .37622, .45968,
1347 + .26145, .15396, 6.14920, .45207, .28735,
1348 + .22902, .38035, .46335,
1349 + .26322, .15470, 6.13831, .45517, .29168,
1350 + .23392, .38405, .46662,
1351 + .26500, .15546, 6.12738, .45831, .29610,
1352 + .23894, .38780, .46993 /
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 + .17919, .11713, 1.60638, .19884, .00000,
1355 + .00000, .10323, .20160,
1356 + .18326, .11943, 1.82471, .20229, .00000,
1357 + .00000, .10771, .20544,
1358 + .18928, .12278, 2.14369, .20805, .00007,
1359 + .00000, .11503, .21180,
1360 + .19365, .12517, 2.36499, .21272, .00569,
1361 + .00000, .12082, .21690,
1362 + .19822, .12765, 2.58606, .21797, .01528,
1363 + .00000, .12726, .22261,
1364 + .20209, .12971, 2.76190, .22283, .02152,
1365 + .00000, .13313, .22785,
1366 + .20578, .13166, 2.92813, .22762, .02846,
1367 + .00000, .13889, .23301,
1368 + .20967, .13369, 3.09787, .23286, .03600,
1369 + .00000, .14515, .23864 /
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 + .21298, .13540, 3.23313, .23752, .04223,
1372 + .00000, .15069, .24364,
1373 + .21619, .13704, 3.36483, .24210, .04886,
1374 + .00000, .15613, .24855,
1375 + .21866, .13829, 3.45730, .24575, .05358,
1376 + .00000, .16044, .25245,
1377 + .22390, .14092, 3.64796, .25363, .06438,
1378 + .00001, .16973, .26086,
1379 + .22835, .14311, 3.79429, .26045, .07379,
1380 + .00614, .17776, .26814,
1381 + .23320, .14546, 3.92670, .26796, .08394,
1382 + .01816, .18660, .27614,
1383 + .23812, .14781, 4.04971, .27565, .09432,
1384 + .03047, .19565, .28434,
1385 + .24248, .14985, 4.14822, .28244, .10357,
1386 + .04100, .20367, .29158 /
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 + .24678, .15184, 4.23628, .28913, .11277,
1389 + .05160, .21158, .29871,
1390 + .25026, .15343, 4.29950, .29451, .12017,
1391 + .05995, .21796, .30445,
1392 + .25437, .15527, 4.36421, .30077, .12880,
1393 + .06966, .22541, .31113,
1394 + .25793, .15684, 4.41427, .30614, .13633,
1395 + .07826, .23184, .31688,
1396 + .26110, .15823, 4.45166, .31086, .14294,
1397 + .08569, .23750, .32192,
1398 + .26502, .15991, 4.48971, .31656, .15102,
1399 + .09483, .24438, .32802,
1400 + .26861, .16143, 4.51840, .32171, .15842,
1401 + .10328, .25063, .33354,
1402 + .27187, .16277, 4.53632, .32623, .16496,
1403 + .11068, .25616, .33839 /
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 + .27503, .16406, 4.54812, .33050, .17126,
1406 + .11785, .26143, .34299,
1407 + .27807, .16529, 4.55543, .33453, .17727,
1408 + .12474, .26642, .34733,
1409 + .28082, .16637, 4.55463, .33800, .18253,
1410 + .13073, .27079, .35108,
1411 + .28339, .16737, 4.55296, .34124, .18752,
1412 + .13648, .27487, .35458,
1413 + .28586, .16830, 4.54394, .34413, .19206,
1414 + .14167, .27859, .35772,
1415 + .28829, .16922, 4.53510, .34696, .19658,
1416 + .14692, .28225, .36081,
1417 + .29047, .17001, 4.52044, .34934, .20046,
1418 + .15139, .28537, .36340,
1419 + .29253, .17077, 4.50669, .35158, .20417,
1420 + .15571, .28833, .36585 /
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 + .29451, .17148, 4.48877, .35360, .20761,
1423 + .15973, .29105, .36807,
1424 + .29644, .17216, 4.47005, .35551, .21095,
1425 + .16364, .29365, .37017,
1426 + .29824, .17278, 4.45042, .35722, .21400,
1427 + .16723, .29601, .37206,
1428 + .29989, .17334, 4.42940, .35868, .21670,
1429 + .17042, .29809, .37368,
1430 + .30156, .17390, 4.40837, .36016, .21946,
1431 + .17369, .30019, .37532 /
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 + .22120, .14628, 1.40728, .17869, .00000,
1434 + .00000, .09358, .18478,
1435 + .22606, .14866, 1.57690, .18115, .00000,
1436 + .00000, .09722, .18781,
1437 + .23317, .15208, 1.81949, .18523, .00006,
1438 + .00000, .10307, .19272,
1439 + .23827, .15449, 1.98368, .18849, .00468,
1440 + .00000, .10761, .19659,
1441 + .24357, .15695, 2.14398, .19212, .01250,
1442 + .00000, .11258, .20084,
1443 + .24800, .15898, 2.26862, .19543, .01750,
1444 + .00000, .11702, .20467,
1445 + .25221, .16087, 2.38455, .19866, .02300,
1446 + .00000, .12134, .20840,
1447 + .25661, .16282, 2.50069, .20215, .02891,
1448 + .00000, .12597, .21242 /
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 + .26032, .16443, 2.59094, .20522, .03372,
1451 + .00000, .13002, .21593,
1452 + .26389, .16598, 2.67788, .20821, .03881,
1453 + .00000, .13396, .21934,
1454 + .26660, .16713, 2.73711, .21056, .04239,
1455 + .00000, .13704, .22200,
1456 + .27234, .16954, 2.85663, .21558, .05051,
1457 + .00001, .14361, .22768,
1458 + .27714, .17151, 2.94430, .21985, .05748,
1459 + .00460, .14920, .23250,
1460 + .28232, .17359, 3.01734, .22444, .06488,
1461 + .01353, .15523, .23769,
1462 + .28751, .17561, 3.08126, .22902, .07234,
1463 + .02257, .16131, .24287,
1464 + .29204, .17733, 3.12893, .23298, .07890,
1465 + .03019, .16658, .24734 /
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 + .29645, .17897, 3.16828, .23679, .08533,
1468 + .03776, .17170, .25166,
1469 + .29999, .18025, 3.19355, .23978, .09043,
1470 + .04367, .17576, .25504,
1471 + .30409, .18171, 3.21540, .24317, .09631,
1472 + .05045, .18041, .25888,
1473 + .30761, .18293, 3.22950, .24602, .10138,
1474 + .05639, .18436, .26211,
1475 + .31070, .18397, 3.23640, .24843, .10576,
1476 + .06147, .18776, .26486,
1477 + .31447, .18520, 3.23877, .25126, .11105,
1478 + .06764, .19182, .26810,
1479 + .31789, .18628, 3.23626, .25373, .11583,
1480 + .07329, .19544, .27095,
1481 + .32093, .18720, 3.22786, .25580, .11998,
1482 + .07817, .19854, .27334 /
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 + .32385, .18806, 3.21560, .25768, .12393,
1485 + .08284, .20145, .27552,
1486 + .32661, .18885, 3.20105, .25938, .12765,
1487 + .08728, .20415, .27752,
1488 + .32907, .18951, 3.18240, .26074, .13084,
1489 + .09109, .20642, .27913,
1490 + .33135, .19011, 3.16450, .26199, .13384,
1491 + .09472, .20852, .28061,
1492 + .33348, .19063, 3.14191, .26298, .13652,
1493 + .09795, .21035, .28182,
1494 + .33556, .19114, 3.12002, .26396, .13917,
1495 + .10119, .21214, .28301,
1496 + .33738, .19154, 3.09548, .26464, .14138,
1497 + .10390, .21358, .28387,
1498 + .33910, .19191, 3.07260, .26528, .14349,
1499 + .10651, .21493, .28467 /
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 + .34071, .19223, 3.04715, .26576, .14540,
1502 + .10890, .21611, .28531,
1503 + .34227, .19253, 3.02164, .26618, .14723,
1504 + .11121, .21721, .28588,
1505 + .34369, .19279, 2.99645, .26650, .14888,
1506 + .11330, .21817, .28634,
1507 + .34498, .19299, 2.97127, .26669, .15031,
1508 + .11513, .21897, .28665,
1509 + .34627, .19320, 2.94618, .26689, .15176,
1510 + .11701, .21976, .28696 /
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 + .26018, .17046, 1.27594, .16290, .00000,
1513 + .00000, .08653, .17341,
1514 + .26552, .17272, 1.41540, .16465, .00000,
1515 + .00000, .08961, .17586,
1516 + .27327, .17595, 1.61125, .16756, .00006,
1517 + .00000, .09446, .17979,
1518 + .27877, .17819, 1.74096, .16988, .00404,
1519 + .00000, .09818, .18282,
1520 + .28443, .18045, 1.86504, .17243, .01075,
1521 + .00000, .10219, .18610,
1522 + .28912, .18226, 1.95940, .17474, .01497,
1523 + .00000, .10573, .18900,
1524 + .29354, .18395, 2.04587, .17697, .01958,
1525 + .00000, .10913, .19180,
1526 + .29812, .18567, 2.13098, .17937, .02448,
1527 + .00000, .11276, .19476 /
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 + .30194, .18706, 2.19538, .18144, .02843,
1530 + .00000, .11587, .19731,
1531 + .30561, .18839, 2.25682, .18345, .03259,
1532 + .00000, .11889, .19977,
1533 + .30837, .18935, 2.29729, .18500, .03548,
1534 + .00000, .12122, .20166,
1535 + .31417, .19135, 2.37713, .18827, .04198,
1536 + .00001, .12614, .20563,
1537 + .31896, .19295, 2.43258, .19102, .04751,
1538 + .00368, .13026, .20894,
1539 + .32403, .19458, 2.47370, .19388, .05330,
1540 + .01079, .13464, .21240,
1541 + .32906, .19612, 2.50654, .19667, .05906,
1542 + .01791, .13896, .21577,
1543 + .33339, .19739, 2.52791, .19900, .06406,
1544 + .02385, .14264, .21860 /
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 + .33756, .19857, 2.54246, .20117, .06892,
1547 + .02968, .14616, .22124,
1548 + .34084, .19946, 2.54874, .20283, .07273,
1549 + .03419, .14889, .22325,
1550 + .34460, .20042, 2.54966, .20462, .07706,
1551 + .03932, .15196, .22545,
1552 + .34778, .20120, 2.54660, .20607, .08075,
1553 + .04378, .15452, .22724,
1554 + .35054, .20182, 2.53935, .20724, .08390,
1555 + .04755, .15668, .22869,
1556 + .35384, .20251, 2.52549, .20852, .08767,
1557 + .05209, .15919, .23031,
1558 + .35679, .20309, 2.50919, .20958, .09103,
1559 + .05619, .16138, .23165,
1560 + .35935, .20353, 2.48979, .21036, .09391,
1561 + .05970, .16319, .23268 /
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 + .36176, .20390, 2.46776, .21100, .09660,
1564 + .06303, .16483, .23355,
1565 + .36401, .20422, 2.44457, .21153, .09912,
1566 + .06617, .16633, .23427,
1567 + .36594, .20442, 2.41935, .21183, .10123,
1568 + .06883, .16751, .23474,
1569 + .36773, .20460, 2.39562, .21209, .10320,
1570 + .07135, .16859, .23515,
1571 + .36934, .20468, 2.36883, .21215, .10492,
1572 + .07355, .16945, .23534,
1573 + .37090, .20476, 2.34299, .21220, .10662,
1574 + .07576, .17028, .23552,
1575 + .37221, .20475, 2.31596, .21208, .10799,
1576 + .07757, .17088, .23549,
1577 + .37343, .20474, 2.29087, .21196, .10929,
1578 + .07931, .17143, .23546 /
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 + .37453, .20468, 2.26412, .21171, .11044,
1581 + .08087, .17185, .23529,
1582 + .37558, .20459, 2.23766, .21143, .11153,
1583 + .08237, .17222, .23508,
1584 + .37651, .20448, 2.21204, .21111, .11249,
1585 + .08372, .17250, .23481,
1586 + .37730, .20434, 2.18704, .21072, .11330,
1587 + .08488, .17267, .23446,
1588 + .37811, .20420, 2.16220, .21033, .11412,
1589 + .08607, .17284, .23411 /
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 + .33173, .20861, 1.11938, .13627, .00000,
1592 + .00000, .07564, .15779,
1593 + .33731, .21035, 1.22095, .13712, .00000,
1594 + .00000, .07795, .15938,
1595 + .34527, .21274, 1.35883, .13856, .00005,
1596 + .00000, .08151, .16185,
1597 + .35082, .21432, 1.44631, .13970, .00324,
1598 + .00000, .08416, .16369,
1599 + .35642, .21586, 1.52652, .14094, .00856,
1600 + .00000, .08695, .16562,
1601 + .36094, .21703, 1.58466, .14205, .01182,
1602 + .00000, .08934, .16726,
1603 + .36514, .21808, 1.63629, .14310, .01533,
1604 + .00000, .09161, .16879,
1605 + .36944, .21910, 1.68507, .14419, .01901,
1606 + .00000, .09397, .17036 /
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 + .37292, .21987, 1.71963, .14510, .02192,
1609 + .00000, .09595, .17165,
1610 + .37624, .22059, 1.75189, .14598, .02495,
1611 + .00000, .09784, .17288,
1612 + .37868, .22105, 1.77117, .14662, .02702,
1613 + .00000, .09926, .17376,
1614 + .38370, .22196, 1.80673, .14793, .03162,
1615 + .00001, .10221, .17557,
1616 + .38773, .22262, 1.82701, .14898, .03546,
1617 + .00261, .10461, .17698,
1618 + .39188, .22317, 1.83411, .14994, .03938,
1619 + .00760, .10704, .17831,
1620 + .39580, .22358, 1.83453, .15079, .04320,
1621 + .01250, .10935, .17947,
1622 + .39904, .22381, 1.82920, .15139, .04645,
1623 + .01652, .11124, .18031 /
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 + .40206, .22392, 1.81928, .15187, .04953,
1626 + .02040, .11296, .18098,
1627 + .40433, .22392, 1.80740, .15214, .05190,
1628 + .02335, .11423, .18139,
1629 + .40681, .22380, 1.78889, .15232, .05453,
1630 + .02665, .11557, .18168,
1631 + .40882, .22362, 1.77037, .15238, .05674,
1632 + .02947, .11664, .18181,
1633 + .41045, .22337, 1.75086, .15232, .05857,
1634 + .03181, .11746, .18179,
1635 + .41228, .22296, 1.72367, .15211, .06071,
1636 + .03459, .11834, .18160,
1637 + .41381, .22251, 1.69661, .15182, .06257,
1638 + .03707, .11904, .18130,
1639 + .41500, .22198, 1.66915, .15142, .06412,
1640 + .03913, .11952, .18086 /
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 + .41602, .22139, 1.64065, .15092, .06552,
1643 + .04106, .11989, .18030,
1644 + .41690, .22077, 1.61232, .15038, .06680,
1645 + .04285, .12017, .17968,
1646 + .41749, .22010, 1.58401, .14974, .06783,
1647 + .04432, .12027, .17895,
1648 + .41801, .21946, 1.55781, .14913, .06878,
1649 + .04571, .12035, .17824,
1650 + .41832, .21871, 1.53010, .14840, .06955,
1651 + .04688, .12028, .17740,
1652 + .41861, .21799, 1.50358, .14768, .07031,
1653 + .04805, .12022, .17657,
1654 + .41867, .21723, 1.47734, .14690, .07087,
1655 + .04898, .12002, .17565,
1656 + .41872, .21652, 1.45312, .14617, .07140,
1657 + .04986, .11983, .17479 /
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 + .41864, .21574, 1.42821, .14536, .07183,
1660 + .05063, .11955, .17384,
1661 + .41851, .21497, 1.40392, .14454, .07222,
1662 + .05135, .11925, .17288,
1663 + .41832, .21420, 1.38083, .14374, .07255,
1664 + .05199, .11893, .17193,
1665 + .41805, .21344, 1.35879, .14293, .07279,
1666 + .05251, .11857, .17097,
1667 + .41777, .21267, 1.33700, .14212, .07303,
1668 + .05305, .11820, .17002 /
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 + .39575, .23690, 1.03576, .11288, .00000,
1671 + .00000, .06669, .14621,
1672 + .40087, .23788, 1.11208, .11327, .00000,
1673 + .00000, .06849, .14710,
1674 + .40802, .23911, 1.21196, .11395, .00005,
1675 + .00000, .07120, .14843,
1676 + .41285, .23984, 1.27225, .11449, .00273,
1677 + .00000, .07316, .14935,
1678 + .41763, .24046, 1.32467, .11507, .00717,
1679 + .00000, .07519, .15028,
1680 + .42137, .24081, 1.36031, .11555, .00983,
1681 + .00000, .07688, .15100,
1682 + .42478, .24108, 1.39060, .11600, .01266,
1683 + .00000, .07844, .15164,
1684 + .42817, .24127, 1.41749, .11644, .01558,
1685 + .00000, .08003, .15224 /
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 + .43082, .24130, 1.43438, .11678, .01786,
1688 + .00000, .08133, .15267,
1689 + .43332, .24131, 1.44960, .11710, .02021,
1690 + .00000, .08255, .15306,
1691 + .43506, .24121, 1.45666, .11729, .02179,
1692 + .00000, .08343, .15329,
1693 + .43856, .24092, 1.46719, .11765, .02526,
1694 + .00001, .08522, .15368,
1695 + .44123, .24056, 1.46816, .11789, .02809,
1696 + .00198, .08663, .15387,
1697 + .44378, .23994, 1.45736, .11799, .03094,
1698 + .00574, .08798, .15386,
1699 + .44597, .23916, 1.44130, .11795, .03366,
1700 + .00937, .08918, .15366,
1701 + .44762, .23833, 1.42294, .11779, .03591,
1702 + .01230, .09008, .15330 /
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 + .44899, .23738, 1.40158, .11752, .03802,
1705 + .01508, .09084, .15281,
1706 + .44987, .23650, 1.38160, .11721, .03960,
1707 + .01717, .09134, .15228,
1708 + .45063, .23533, 1.35496, .11673, .04131,
1709 + .01947, .09179, .15148,
1710 + .45111, .23424, 1.33037, .11623, .04272,
1711 + .02141, .09209, .15069,
1712 + .45133, .23317, 1.30643, .11569, .04387,
1713 + .02299, .09225, .14986,
1714 + .45136, .23172, 1.27498, .11491, .04517,
1715 + .02484, .09233, .14870,
1716 + .45119, .23030, 1.24499, .11412, .04627,
1717 + .02647, .09231, .14754,
1718 + .45078, .22890, 1.21601, .11330, .04714,
1719 + .02779, .09216, .14634 /
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 + .45019, .22745, 1.18684, .11242, .04791,
1722 + .02901, .09194, .14507,
1723 + .44950, .22599, 1.15848, .11153, .04859,
1724 + .03013, .09166, .14379,
1725 + .44862, .22454, 1.13110, .11060, .04910,
1726 + .03102, .09130, .14248,
1727 + .44778, .22318, 1.10599, .10973, .04956,
1728 + .03185, .09094, .14125,
1729 + .44669, .22174, 1.08025, .10878, .04989,
1730 + .03253, .09049, .13992,
1731 + .44562, .22034, 1.05575, .10786, .05022,
1732 + .03320, .09004, .13863,
1733 + .44440, .21894, 1.03213, .10692, .05042,
1734 + .03371, .08953, .13733,
1735 + .44325, .21763, 1.01045, .10605, .05060,
1736 + .03419, .08905, .13612 /
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 + .44195, .21626, .98856, .10512, .05072,
1739 + .03460, .08851, .13484,
1740 + .44064, .21492, .96740, .10421, .05081,
1741 + .03497, .08796, .13357,
1742 + .43932, .21362, .94750, .10333, .05086,
1743 + .03529, .08742, .13234,
1744 + .43797, .21236, .92875, .10246, .05087,
1745 + .03553, .08687, .13116,
1746 + .43662, .21110, .91029, .10160, .05088,
1747 + .03578, .08632, .12997 /
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 + .45243, .25776, .98684, .09209, .00000,
1750 + .00000, .05873, .13590,
1751 + .45656, .25788, 1.04349, .09231, .00000,
1752 + .00000, .06017, .13616,
1753 + .46214, .25783, 1.11436, .09270, .00004,
1754 + .00000, .06228, .13648,
1755 + .46577, .25761, 1.15430, .09299, .00236,
1756 + .00000, .06377, .13665,
1757 + .46921, .25723, 1.18628, .09328, .00615,
1758 + .00000, .06525, .13675,
1759 + .47173, .25674, 1.20567, .09350, .00838,
1760 + .00000, .06645, .13673,
1761 + .47394, .25618, 1.22079, .09368, .01073,
1762 + .00000, .06753, .13667,
1763 + .47605, .25549, 1.23237, .09383, .01311,
1764 + .00000, .06861, .13654 /
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 + .47755, .25478, 1.23716, .09390, .01495,
1767 + .00000, .06944, .13632,
1768 + .47893, .25407, 1.24086, .09396, .01683,
1769 + .00000, .07023, .13610,
1770 + .47975, .25341, 1.23984, .09396, .01807,
1771 + .00000, .07076, .13584,
1772 + .48129, .25193, 1.23409, .09391, .02078,
1773 + .00001, .07182, .13520,
1774 + .48226, .25054, 1.22289, .09379, .02295,
1775 + .00156, .07260, .13454,
1776 + .48284, .24884, 1.20126, .09351, .02508,
1777 + .00449, .07327, .13361,
1778 + .48298, .24693, 1.17567, .09310, .02708,
1779 + .00729, .07378, .13249,
1780 + .48276, .24509, 1.15016, .09264, .02870,
1781 + .00951, .07409, .13136 /
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 + .48225, .24315, 1.12287, .09208, .03019,
1784 + .01159, .07428, .13011,
1785 + .48159, .24147, 1.09898, .09154, .03127,
1786 + .01313, .07434, .12900,
1787 + .48047, .23934, 1.06880, .09081, .03243,
1788 + .01480, .07429, .12754,
1789 + .47930, .23743, 1.04187, .09012, .03335,
1790 + .01619, .07417, .12619,
1791 + .47802, .23560, 1.01660, .08942, .03409,
1792 + .01731, .07396, .12490,
1793 + .47616, .23324, .98435, .08847, .03489,
1794 + .01860, .07362, .12318,
1795 + .47423, .23099, .95431, .08754, .03554,
1796 + .01971, .07323, .12153,
1797 + .47217, .22883, .92604, .08662, .03603,
1798 + .02061, .07277, .11994 /
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 + .46998, .22664, .89812, .08566, .03645,
1801 + .02141, .07225, .11829,
1802 + .46774, .22450, .87137, .08471, .03679,
1803 + .02213, .07172, .11667,
1804 + .46540, .22240, .84609, .08375, .03701,
1805 + .02269, .07113, .11508,
1806 + .46319, .22045, .82307, .08285, .03721,
1807 + .02321, .07058, .11361,
1808 + .46075, .21843, .79994, .08191, .03731,
1809 + .02362, .06996, .11207,
1810 + .45839, .21647, .77802, .08099, .03742,
1811 + .02402, .06936, .11059,
1812 + .45593, .21456, .75726, .08009, .03743,
1813 + .02431, .06872, .10913,
1814 + .45364, .21278, .73828, .07925, .03745,
1815 + .02458, .06814, .10777 /
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 + .45120, .21095, .71937, .07837, .03741,
1818 + .02479, .06751, .10639,
1819 + .44879, .20915, .70120, .07750, .03736,
1820 + .02498, .06688, .10503,
1821 + .44643, .20743, .68426, .07667, .03729,
1822 + .02513, .06627, .10373,
1823 + .44412, .20578, .66844, .07587, .03719,
1824 + .02524, .06567, .10248,
1825 + .44180, .20414, .65291, .07507, .03709,
1826 + .02536, .06508, .10125 /
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 + .51293, .27559, .94714, .07016, .00000,
1829 + .00000, .04979, .12286,
1830 + .51531, .27458, .98354, .07042, .00000,
1831 + .00000, .05091, .12242,
1832 + .51822, .27285, 1.02524, .07081, .00004,
1833 + .00000, .05248, .12170,
1834 + .51985, .27142, 1.04521, .07107, .00199,
1835 + .00000, .05353, .12109,
1836 + .52115, .26981, 1.05756, .07129, .00516,
1837 + .00000, .05456, .12037,
1838 + .52178, .26826, 1.06166, .07143, .00698,
1839 + .00000, .05533, .11966,
1840 + .52217, .26670, 1.06282, .07153, .00888,
1841 + .00000, .05600, .11894,
1842 + .52233, .26497, 1.06060, .07159, .01077,
1843 + .00000, .05663, .11812 /
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 + .52212, .26336, 1.05468, .07158, .01220,
1846 + .00000, .05710, .11731,
1847 + .52185, .26181, 1.04838, .07156, .01366,
1848 + .00000, .05753, .11652,
1849 + .52136, .26048, 1.04050, .07148, .01460,
1850 + .00000, .05777, .11583,
1851 + .52012, .25761, 1.02129, .07128, .01663,
1852 + .00001, .05823, .11433,
1853 + .51870, .25506, 1.00044, .07102, .01822,
1854 + .00119, .05852, .11296,
1855 + .51661, .25210, .97076, .07062, .01974,
1856 + .00340, .05866, .11128,
1857 + .51403, .24891, .93852, .07009, .02113,
1858 + .00548, .05867, .10946,
1859 + .51138, .24595, .90845, .06952, .02223,
1860 + .00710, .05855, .10774 /
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 + .50846, .24292, .87776, .06889, .02320,
1863 + .00860, .05834, .10594,
1864 + .50579, .24038, .85199, .06832, .02390,
1865 + .00968, .05809, .10440,
1866 + .50231, .23724, .82061, .06754, .02460,
1867 + .01084, .05770, .10249,
1868 + .49908, .23445, .79332, .06683, .02516,
1869 + .01179, .05730, .10080,
1870 + .49592, .23187, .76840, .06615, .02557,
1871 + .01254, .05687, .09920,
1872 + .49173, .22858, .73733, .06523, .02599,
1873 + .01339, .05626, .09716,
1874 + .48768, .22548, .70895, .06434, .02632,
1875 + .01411, .05566, .09524,
1876 + .48371, .22254, .68283, .06346, .02654,
1877 + .01467, .05502, .09344 /
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 + .47962, .21961, .65749, .06256, .02669,
1880 + .01516, .05436, .09164,
1881 + .47555, .21678, .63355, .06168, .02680,
1882 + .01559, .05369, .08988,
1883 + .47154, .21404, .61134, .06081, .02684,
1884 + .01591, .05302, .08820,
1885 + .46781, .21151, .59126, .06000, .02687,
1886 + .01621, .05239, .08665,
1887 + .46383, .20894, .57144, .05917, .02683,
1888 + .01642, .05172, .08506,
1889 + .45998, .20648, .55277, .05837, .02678,
1890 + .01663, .05107, .08353,
1891 + .45619, .20407, .53536, .05757, .02669,
1892 + .01677, .05041, .08207,
1893 + .45267, .20185, .51953, .05683, .02661,
1894 + .01690, .04980, .08072 /
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 + .44899, .19958, .50393, .05607, .02648,
1897 + .01698, .04917, .07936,
1898 + .44537, .19738, .48904, .05533, .02635,
1899 + .01705, .04855, .07803,
1900 + .44190, .19528, .47527, .05462, .02621,
1901 + .01710, .04795, .07678,
1902 + .43855, .19327, .46254, .05394, .02606,
1903 + .01713, .04737, .07560,
1904 + .43522, .19128, .45009, .05326, .02591,
1905 + .01715, .04680, .07443 /
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 + .56200, .28600, .91473, .05307, .00000,
1908 + .00000, .04182, .10876,
1909 + .56225, .28387, .93414, .05350, .00000,
1910 + .00000, .04271, .10777,
1911 + .56199, .28052, .95209, .05408, .00004,
1912 + .00000, .04390, .10626,
1913 + .56129, .27795, .95627, .05442, .00169,
1914 + .00000, .04466, .10510,
1915 + .56013, .27515, .95353, .05473, .00436,
1916 + .00000, .04536, .10381,
1917 + .55866, .27259, .94615, .05491, .00586,
1918 + .00000, .04586, .10262,
1919 + .55704, .27010, .93707, .05504, .00740,
1920 + .00000, .04627, .10145,
1921 + .55508, .26741, .92499, .05512, .00892,
1922 + .00000, .04662, .10018 /
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 + .55304, .26498, .91165, .05512, .01005,
1925 + .00000, .04684, .09901,
1926 + .55103, .26266, .89855, .05512, .01119,
1927 + .00000, .04703, .09789,
1928 + .54917, .26074, .88616, .05504, .01191,
1929 + .00000, .04711, .09696,
1930 + .54502, .25665, .85841, .05484, .01344,
1931 + .00000, .04721, .09496,
1932 + .54114, .25309, .83182, .05461, .01463,
1933 + .00092, .04720, .09317,
1934 + .53640, .24903, .79787, .05422, .01573,
1935 + .00262, .04705, .09111,
1936 + .53110, .24475, .76259, .05372, .01670,
1937 + .00420, .04677, .08894,
1938 + .52606, .24086, .73083, .05319, .01744,
1939 + .00540, .04643, .08695 /
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 + .52078, .23694, .69934, .05259, .01808,
1942 + .00649, .04602, .08494,
1943 + .51623, .23368, .67357, .05205, .01852,
1944 + .00727, .04561, .08326,
1945 + .51047, .22973, .64293, .05137, .01895,
1946 + .00809, .04506, .08120,
1947 + .50531, .22626, .61675, .05073, .01927,
1948 + .00876, .04454, .07939,
1949 + .50047, .22306, .59331, .05009, .01949,
1950 + .00927, .04402, .07775,
1951 + .49419, .21902, .56457, .04927, .01969,
1952 + .00984, .04332, .07567,
1953 + .48822, .21527, .53872, .04848, .01983,
1954 + .01031, .04264, .07374,
1955 + .48251, .21178, .51534, .04772, .01989,
1956 + .01066, .04198, .07193 /
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 + .47674, .20830, .49294, .04693, .01991,
1959 + .01097, .04130, .07015,
1960 + .47111, .20494, .47199, .04616, .01990,
1961 + .01123, .04062, .06846,
1962 + .46563, .20177, .45284, .04542, .01984,
1963 + .01141, .03994, .06686,
1964 + .46054, .19885, .43565, .04473, .01978,
1965 + .01158, .03932, .06538,
1966 + .45530, .19589, .41890, .04402, .01967,
1967 + .01169, .03867, .06390,
1968 + .45025, .19304, .40321, .04334, .01956,
1969 + .01179, .03805, .06247,
1970 + .44533, .19032, .38876, .04266, .01942,
1971 + .01185, .03744, .06113,
1972 + .44076, .18780, .37568, .04204, .01930,
1973 + .01190, .03688, .05990 /
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 + .43608, .18525, .36293, .04140, .01915,
1976 + .01192, .03629, .05867,
1977 + .43150, .18276, .35083, .04078, .01899,
1978 + .01193, .03572, .05748,
1979 + .42713, .18042, .33970, .04018, .01883,
1980 + .01193, .03518, .05636,
1981 + .42296, .17820, .32948, .03962, .01867,
1982 + .01192, .03467, .05530,
1983 + .41881, .17600, .31951, .03906, .01852,
1984 + .01190, .03417, .05426 /
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 + .59994, .29039, .88103, .04070, .00000,
1987 + .00000, .03478, .09351,
1988 + .59784, .28722, .88616, .04130, .00000,
1989 + .00000, .03548, .09218,
1990 + .59413, .28240, .88472, .04207, .00003,
1991 + .00000, .03639, .09017,
1992 + .59093, .27880, .87642, .04253, .00144,
1993 + .00000, .03693, .08867,
1994 + .58717, .27496, .86208, .04295, .00369,
1995 + .00000, .03740, .08704,
1996 + .58352, .27150, .84613, .04319, .00493,
1997 + .00000, .03770, .08559,
1998 + .57985, .26818, .82961, .04337, .00619,
1999 + .00000, .03793, .08419,
2000 + .57573, .26465, .81060, .04349, .00741,
2001 + .00000, .03809, .08270 /
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 + .57185, .26152, .79224, .04352, .00830,
2004 + .00000, .03815, .08137,
2005 + .56809, .25854, .77465, .04354, .00920,
2006 + .00000, .03819, .08009,
2007 + .56487, .25610, .75940, .04348, .00975,
2008 + .00000, .03816, .07905,
2009 + .55791, .25098, .72654, .04333, .01092,
2010 + .00000, .03805, .07684,
2011 + .55166, .24659, .69687, .04314, .01180,
2012 + .00072, .03787, .07492,
2013 + .54436, .24164, .66123, .04278, .01260,
2014 + .00204, .03755, .07276,
2015 + .53652, .23650, .62519, .04233, .01328,
2016 + .00324, .03713, .07053,
2017 + .52923, .23188, .59358, .04186, .01378,
2018 + .00414, .03668, .06852 /
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 + .52178, .22727, .56288, .04133, .01420,
2021 + .00495, .03617, .06650,
2022 + .51552, .22345, .53823, .04085, .01447,
2023 + .00552, .03572, .06484,
2024 + .50779, .21885, .50943, .04023, .01472,
2025 + .00611, .03511, .06286,
2026 + .50094, .21485, .48517, .03965, .01489,
2027 + .00658, .03455, .06114,
2028 + .49458, .21121, .46374, .03909, .01500,
2029 + .00693, .03403, .05958,
2030 + .48646, .20666, .43787, .03837, .01507,
2031 + .00732, .03334, .05762,
2032 + .47885, .20246, .41490, .03769, .01510,
2033 + .00763, .03267, .05583,
2034 + .47167, .19855, .39437, .03702, .01507,
2035 + .00786, .03202, .05419 /
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 + .46450, .19471, .37493, .03634, .01502,
2038 + .00805, .03137, .05259,
2039 + .45755, .19102, .35695, .03567, .01495,
2040 + .00820, .03074, .05105,
2041 + .45092, .18752, .34066, .03501, .01484,
2042 + .00831, .03013, .04964,
2043 + .44479, .18431, .32611, .03441, .01474,
2044 + .00840, .02956, .04835,
2045 + .43853, .18111, .31212, .03380, .01461,
2046 + .00845, .02897, .04706,
2047 + .43250, .17804, .29907, .03321, .01448,
2048 + .00849, .02841, .04583,
2049 + .42671, .17511, .28718, .03264, .01433,
2050 + .00850, .02787, .04467,
2051 + .42135, .17240, .27645, .03210, .01419,
2052 + .00851, .02738, .04361 /
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 + .41588, .16969, .26609, .03157, .01404,
2055 + .00850, .02687, .04256,
2056 + .41054, .16706, .25631, .03105, .01388,
2057 + .00849, .02637, .04155,
2058 + .40549, .16459, .24735, .03056, .01373,
2059 + .00847, .02590, .04061,
2060 + .40071, .16225, .23916, .03008, .01358,
2061 + .00843, .02547, .03973,
2062 + .39596, .15994, .23121, .02961, .01343,
2063 + .00840, .02503, .03886 /
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 + .62725, .28984, .84226, .03240, .00000,
2066 + .00000, .02858, .07769,
2067 + .62271, .28575, .83554, .03309, .00000,
2068 + .00000, .02916, .07620,
2069 + .61547, .27959, .81853, .03396, .00003,
2070 + .00000, .02988, .07399,
2071 + .60977, .27505, .80056, .03446, .00122,
2072 + .00000, .03028, .07237,
2073 + .60347, .27027, .77755, .03490, .00311,
2074 + .00000, .03059, .07065,
2075 + .59766, .26606, .75542, .03516, .00413,
2076 + .00000, .03075, .06914,
2077 + .59196, .26204, .73370, .03535, .00516,
2078 + .00000, .03086, .06770,
2079 + .58575, .25780, .71002, .03549, .00614,
2080 + .00000, .03090, .06616 /
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 + .58011, .25408, .68847, .03552, .00684,
2083 + .00000, .03088, .06482,
2084 + .57470, .25054, .66815, .03554, .00755,
2085 + .00000, .03084, .06354,
2086 + .57018, .24772, .65132, .03549, .00797,
2087 + .00000, .03075, .06250,
2088 + .56056, .24177, .61587, .03535, .00886,
2089 + .00000, .03052, .06032,
2090 + .55216, .23668, .58505, .03513, .00951,
2091 + .00056, .03025, .05850,
2092 + .54254, .23103, .54941, .03480, .01008,
2093 + .00159, .02985, .05645,
2094 + .53241, .22521, .51419, .03436, .01056,
2095 + .00251, .02938, .05434,
2096 + .52316, .22002, .48388, .03391, .01090,
2097 + .00319, .02890, .05248 /
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 + .51382, .21488, .45492, .03341, .01116,
2100 + .00379, .02838, .05064,
2101 + .50603, .21069, .43204, .03298, .01133,
2102 + .00421, .02791, .04912,
2103 + .49660, .20563, .40569, .03238, .01146,
2104 + .00463, .02732, .04737,
2105 + .48833, .20125, .38376, .03184, .01153,
2106 + .00496, .02678, .04585,
2107 + .48069, .19732, .36462, .03135, .01156,
2108 + .00521, .02629, .04446,
2109 + .47106, .19241, .34177, .03070, .01156,
2110 + .00547, .02564, .04276,
2111 + .46213, .18790, .32169, .03007, .01153,
2112 + .00568, .02502, .04122,
2113 + .45378, .18374, .30394, .02946, .01146,
2114 + .00582, .02444, .03982 /
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 + .44551, .17965, .28730, .02885, .01137,
2117 + .00594, .02385, .03846,
2118 + .43752, .17574, .27201, .02826, .01127,
2119 + .00603, .02328, .03717,
2120 + .42998, .17208, .25834, .02768, .01114,
2121 + .00608, .02275, .03598,
2122 + .42303, .16873, .24620, .02715, .01103,
2123 + .00613, .02226, .03489,
2124 + .41599, .16539, .23464, .02661, .01089,
2125 + .00614, .02175, .03383,
2126 + .40923, .16220, .22390, .02610, .01076,
2127 + .00615, .02126, .03282,
2128 + .40277, .15919, .21419, .02560, .01062,
2129 + .00615, .02080, .03188,
2130 + .39681, .15641, .20546, .02515, .01049,
2131 + .00614, .02037, .03102 /
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 + .39081, .15362, .19707, .02468, .01034,
2134 + .00611, .01995, .03017,
2135 + .38499, .15093, .18919, .02422, .01020,
2136 + .00609, .01953, .02935,
2137 + .37948, .14840, .18201, .02380, .01007,
2138 + .00605, .01914, .02859,
2139 + .37427, .14604, .17551, .02339, .00993,
2140 + .00602, .01878, .02789,
2141 + .36911, .14371, .16920, .02299, .00979,
2142 + .00598, .01842, .02719 /
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 + .64447, .28526, .79733, .02725, .00000,
2145 + .00000, .02326, .06198,
2146 + .63756, .28032, .78107, .02792, .00000,
2147 + .00000, .02374, .06055,
2148 + .62687, .27301, .75194, .02875, .00003,
2149 + .00000, .02430, .05843,
2150 + .61876, .26769, .72676, .02923, .00103,
2151 + .00000, .02458, .05688,
2152 + .61002, .26212, .69756, .02960, .00261,
2153 + .00000, .02480, .05525,
2154 + .60217, .25727, .67129, .02982, .00344,
2155 + .00000, .02489, .05382,
2156 + .59458, .25268, .64625, .02996, .00428,
2157 + .00000, .02493, .05248,
2158 + .58644, .24786, .61976, .03005, .00506,
2159 + .00000, .02490, .05106 /
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 + .57918, .24367, .59646, .03004, .00562,
2162 + .00000, .02482, .04983,
2163 + .57226, .23970, .57474, .03002, .00616,
2164 + .00000, .02474, .04866,
2165 + .56660, .23654, .55729, .02994, .00649,
2166 + .00000, .02461, .04773,
2167 + .55462, .22993, .52113, .02973, .00716,
2168 + .00000, .02432, .04580,
2169 + .54428, .22434, .49049, .02950, .00765,
2170 + .00044, .02401, .04416,
2171 + .53262, .21818, .45618, .02913, .00805,
2172 + .00124, .02360, .04234,
2173 + .52050, .21189, .42280, .02869, .00838,
2174 + .00194, .02312, .04051,
2175 + .50957, .20630, .39454, .02823, .00860,
2176 + .00246, .02265, .03890 /
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 + .49866, .20079, .36793, .02773, .00876,
2179 + .00290, .02215, .03734,
2180 + .48967, .19630, .34717, .02727, .00885,
2181 + .00321, .02171, .03608,
2182 + .47879, .19100, .32353, .02672, .00891,
2183 + .00351, .02117, .03458,
2184 + .46932, .18642, .30406, .02622, .00892,
2185 + .00375, .02068, .03329,
2186 + .46072, .18228, .28727, .02572, .00891,
2187 + .00392, .02024, .03216,
2188 + .44993, .17715, .26740, .02510, .00886,
2189 + .00409, .01965, .03078,
2190 + .43997, .17246, .25013, .02451, .00880,
2191 + .00423, .01910, .02953,
2192 + .43071, .16818, .23505, .02395, .00871,
2193 + .00432, .01859, .02838 /
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 + .42160, .16400, .22099, .02340, .00861,
2196 + .00439, .01809, .02728,
2197 + .41285, .16002, .20815, .02287, .00850,
2198 + .00444, .01761, .02624,
2199 + .40464, .15630, .19679, .02234, .00838,
2200 + .00446, .01715, .02530,
2201 + .39711, .15290, .18675, .02185, .00827,
2202 + .00448, .01673, .02446,
2203 + .38953, .14953, .17726, .02138, .00814,
2204 + .00448, .01629, .02362,
2205 + .38228, .14633, .16847, .02092, .00801,
2206 + .00448, .01588, .02283,
2207 + .37541, .14330, .16060, .02047, .00788,
2208 + .00446, .01549, .02210,
2209 + .36907, .14051, .15355, .02006, .00777,
2210 + .00444, .01514, .02144 /
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 + .36271, .13773, .14682, .01965, .00764,
2213 + .00441, .01479, .02078,
2214 + .35656, .13505, .14051, .01925, .00752,
2215 + .00438, .01446, .02015,
2216 + .35077, .13254, .13481, .01888, .00740,
2217 + .00435, .01414, .01957,
2218 + .34532, .13020, .12967, .01852, .00728,
2219 + .00431, .01383, .01904,
2220 + .33994, .12788, .12470, .01816, .00717,
2221 + .00427, .01353, .01852 /
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 + .65239, .27732, .74652, .02422, .00000,
2224 + .00000, .01874, .04726,
2225 + .64318, .27171, .72294, .02481, .00000,
2226 + .00000, .01912, .04600,
2227 + .62924, .26348, .68490, .02550, .00003,
2228 + .00000, .01957, .04413,
2229 + .61887, .25753, .65472, .02588, .00086,
2230 + .00000, .01978, .04277,
2231 + .60784, .25136, .62153, .02617, .00217,
2232 + .00000, .01991, .04134,
2233 + .59814, .24600, .59276, .02627, .00285,
2234 + .00000, .01994, .04015,
2235 + .58885, .24096, .56592, .02632, .00352,
2236 + .00000, .01993, .03901,
2237 + .57898, .23570, .53813, .02632, .00415,
2238 + .00000, .01986, .03780 /
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 + .57027, .23118, .51426, .02626, .00458,
2241 + .00000, .01975, .03674,
2242 + .56199, .22692, .49223, .02619, .00501,
2243 + .00000, .01964, .03574,
2244 + .55533, .22351, .47487, .02606, .00526,
2245 + .00000, .01950, .03497,
2246 + .54133, .21642, .43939, .02577, .00577,
2247 + .00000, .01919, .03336,
2248 + .52934, .21048, .40995, .02547, .00612,
2249 + .00034, .01888, .03201,
2250 + .51598, .20397, .37776, .02504, .00641,
2251 + .00096, .01849, .03052,
2252 + .50223, .19738, .34692, .02454, .00663,
2253 + .00150, .01804, .02903,
2254 + .48997, .19155, .32116, .02404, .00676,
2255 + .00189, .01760, .02774 /
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 + .47780, .18583, .29719, .02351, .00686,
2258 + .00222, .01714, .02649,
2259 + .46780, .18122, .27870, .02307, .00690,
2260 + .00244, .01676, .02547,
2261 + .45584, .17574, .25789, .02252, .00691,
2262 + .00266, .01626, .02431,
2263 + .44550, .17106, .24091, .02202, .00689,
2264 + .00283, .01583, .02331,
2265 + .43614, .16687, .22640, .02154, .00686,
2266 + .00295, .01545, .02241,
2267 + .42449, .16167, .20937, .02093, .00679,
2268 + .00307, .01495, .02132,
2269 + .41381, .15694, .19468, .02037, .00671,
2270 + .00316, .01448, .02034,
2271 + .40393, .15262, .18200, .01985, .00662,
2272 + .00321, .01406, .01947 /
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 + .39428, .14842, .17027, .01932, .00652,
2275 + .00325, .01363, .01865,
2276 + .38507, .14443, .15963, .01880, .00641,
2277 + .00327, .01321, .01789,
2278 + .37643, .14074, .15027, .01834, .00630,
2279 + .00328, .01283, .01716,
2280 + .36852, .13738, .14204, .01791, .00620,
2281 + .00329, .01249, .01651,
2282 + .36066, .13405, .13431, .01745, .00608,
2283 + .00327, .01213, .01591,
2284 + .35315, .13087, .12720, .01701, .00597,
2285 + .00326, .01180, .01534,
2286 + .34604, .12791, .12087, .01661, .00586,
2287 + .00324, .01148, .01478,
2288 + .33949, .12520, .11522, .01625, .00576,
2289 + .00322, .01120, .01427 /
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 + .33296, .12249, .10986, .01588, .00565,
2292 + .00319, .01091, .01379,
2293 + .32667, .11988, .10485, .01552, .00554,
2294 + .00316, .01063, .01334,
2295 + .32076, .11744, .10034, .01518, .00544,
2296 + .00313, .01038, .01292,
2297 + .31522, .11517, .09628, .01486, .00535,
2298 + .00310, .01013, .01254,
2299 + .30974, .11293, .09237, .01454, .00525,
2300 + .00307, .00990, .01216 /
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 + .65151, .26704, .69116, .02273, .00000,
2303 + .00000, .01475, .03395,
2304 + .64020, .26087, .66219, .02314, .00000,
2305 + .00000, .01509, .03297,
2306 + .62335, .25186, .61801, .02358, .00002,
2307 + .00000, .01545, .03152,
2308 + .61099, .24539, .58474, .02377, .00072,
2309 + .00000, .01562, .03046,
2310 + .59796, .23873, .54938, .02389, .00180,
2311 + .00000, .01573, .02933,
2312 + .58663, .23303, .51953, .02386, .00235,
2313 + .00000, .01574, .02839,
2314 + .57587, .22766, .49210, .02378, .00290,
2315 + .00000, .01571, .02750,
2316 + .56453, .22207, .46415, .02365, .00339,
2317 + .00000, .01563, .02657 /
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 + .55463, .21728, .44060, .02348, .00373,
2320 + .00000, .01551, .02576,
2321 + .54526, .21277, .41905, .02332, .00406,
2322 + .00000, .01540, .02499,
2323 + .53774, .20923, .40233, .02314, .00425,
2324 + .00000, .01527, .02439,
2325 + .52205, .20187, .36857, .02274, .00463,
2326 + .00000, .01497, .02315,
2327 + .50876, .19570, .34107, .02236, .00488,
2328 + .00027, .01469, .02209,
2329 + .49405, .18900, .31149, .02186, .00508,
2330 + .00075, .01434, .02095,
2331 + .47908, .18219, .28357, .02128, .00523,
2332 + .00116, .01392, .01986,
2333 + .46578, .17624, .26053, .02073, .00531,
2334 + .00145, .01353, .01890 /
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 + .45266, .17046, .23933, .02018, .00535,
2337 + .00170, .01313, .01796,
2338 + .44197, .16580, .22313, .01972, .00536,
2339 + .00186, .01280, .01720,
2340 + .42926, .16031, .20507, .01915, .00534,
2341 + .00202, .01239, .01632,
2342 + .41832, .15561, .19046, .01865, .00531,
2343 + .00214, .01203, .01559,
2344 + .40848, .15141, .17809, .01818, .00526,
2345 + .00222, .01169, .01493,
2346 + .39627, .14626, .16369, .01758, .00519,
2347 + .00230, .01128, .01414,
2348 + .38512, .14159, .15137, .01703, .00511,
2349 + .00235, .01089, .01344,
2350 + .37488, .13734, .14078, .01653, .00502,
2351 + .00238, .01053, .01281 /
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 + .36492, .13321, .13108, .01604, .00492,
2354 + .00240, .01018, .01221,
2355 + .35546, .12931, .12235, .01557, .00482,
2356 + .00242, .00985, .01164,
2357 + .34664, .12571, .11473, .01511, .00473,
2358 + .00241, .00954, .01113,
2359 + .33860, .12244, .10805, .01469, .00464,
2360 + .00241, .00926, .01068,
2361 + .33059, .11922, .10182, .01429, .00454,
2362 + .00239, .00897, .01024,
2363 + .32297, .11616, .09610, .01392, .00444,
2364 + .00238, .00869, .00983,
2365 + .31580, .11330, .09104, .01356, .00435,
2366 + .00236, .00845, .00945,
2367 + .30921, .11068, .08654, .01324, .00426,
2368 + .00234, .00823, .00911 /
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 + .30267, .10809, .08229, .01289, .00417,
2371 + .00231, .00800, .00878,
2372 + .29637, .10561, .07834, .01255, .00408,
2373 + .00228, .00778, .00847,
2374 + .29048, .10329, .07479, .01225, .00400,
2375 + .00226, .00758, .00818,
2376 + .28497, .10114, .07161, .01198, .00392,
2377 + .00223, .00739, .00790,
2378 + .27953, .09902, .06854, .01171, .00385,
2379 + .00220, .00720, .00763 /
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 + .64320, .25424, .63211, .02141, .00000,
2382 + .00000, .01164, .02288,
2383 + .63000, .24766, .59964, .02163, .00000,
2384 + .00000, .01192, .02221,
2385 + .61054, .23812, .55184, .02181, .00002,
2386 + .00000, .01221, .02119,
2387 + .59641, .23130, .51707, .02183, .00059,
2388 + .00000, .01235, .02043,
2389 + .58168, .22430, .48105, .02177, .00147,
2390 + .00000, .01241, .01964,
2391 + .56896, .21838, .45129, .02163, .00191,
2392 + .00000, .01239, .01896,
2393 + .55695, .21282, .42429, .02145, .00235,
2394 + .00000, .01234, .01832,
2395 + .54439, .20702, .39715, .02122, .00273,
2396 + .00000, .01226, .01766 /
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 + .53348, .20211, .37459, .02097, .00300,
2399 + .00000, .01214, .01707,
2400 + .52319, .19751, .35409, .02074, .00325,
2401 + .00000, .01202, .01652,
2402 + .51503, .19388, .33838, .02050, .00339,
2403 + .00000, .01191, .01608,
2404 + .49802, .18637, .30700, .02000, .00367,
2405 + .00000, .01164, .01519,
2406 + .48367, .18014, .28185, .01956, .00385,
2407 + .00021, .01138, .01446,
2408 + .46802, .17335, .25526, .01899, .00399,
2409 + .00057, .01107, .01365,
2410 + .45211, .16656, .23044, .01837, .00408,
2411 + .00089, .01069, .01289,
2412 + .43807, .16063, .21017, .01781, .00412,
2413 + .00110, .01036, .01221 /
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 + .42430, .15490, .19170, .01725, .00414,
2416 + .00128, .01003, .01154,
2417 + .41315, .15030, .17773, .01679, .00413,
2418 + .00140, .00974, .01100,
2419 + .39998, .14488, .16229, .01622, .00410,
2420 + .00151, .00939, .01039,
2421 + .38869, .14026, .14990, .01572, .00405,
2422 + .00160, .00909, .00990,
2423 + .37856, .13615, .13949, .01527, .00401,
2424 + .00165, .00880, .00947,
2425 + .36608, .13112, .12746, .01471, .00393,
2426 + .00170, .00846, .00892,
2427 + .35474, .12658, .11723, .01420, .00386,
2428 + .00174, .00815, .00842,
2429 + .34441, .12247, .10854, .01370, .00378,
2430 + .00176, .00785, .00799 /
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 + .33435, .11850, .10061, .01324, .00369,
2433 + .00177, .00757, .00759,
2434 + .32480, .11476, .09350, .01281, .00361,
2435 + .00177, .00730, .00722,
2436 + .31596, .11132, .08735, .01240, .00352,
2437 + .00176, .00705, .00686,
2438 + .30792, .10821, .08198, .01203, .00344,
2439 + .00175, .00682, .00655,
2440 + .29996, .10513, .07701, .01166, .00336,
2441 + .00174, .00660, .00626,
2442 + .29241, .10221, .07246, .01130, .00328,
2443 + .00172, .00639, .00600,
2444 + .28535, .09950, .06846, .01096, .00321,
2445 + .00170, .00619, .00575,
2446 + .27888, .09702, .06490, .01065, .00314,
2447 + .00168, .00601, .00553 /
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 + .27246, .09458, .06156, .01036, .00306,
2450 + .00166, .00583, .00531,
2451 + .26628, .09224, .05846, .01009, .00299,
2452 + .00164, .00566, .00509,
2453 + .26052, .09007, .05569, .00983, .00293,
2454 + .00162, .00550, .00490,
2455 + .25514, .08804, .05323, .00959, .00286,
2456 + .00159, .00535, .00473,
2457 + .24984, .08605, .05086, .00935, .00280,
2458 + .00157, .00520, .00456 /
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 + .62789, .24002, .57138, .02029, .00000,
2461 + .00000, .00903, .01390,
2462 + .61309, .23314, .53698, .02032, .00000,
2463 + .00000, .00927, .01352,
2464 + .59144, .22323, .48765, .02024, .00002,
2465 + .00000, .00951, .01294,
2466 + .57585, .21621, .45274, .02009, .00048,
2467 + .00000, .00961, .01249,
2468 + .55971, .20904, .41730, .01987, .00119,
2469 + .00000, .00966, .01200,
2470 + .54594, .20294, .38847, .01959, .00155,
2471 + .00000, .00963, .01160,
2472 + .53297, .19727, .36261, .01931, .00189,
2473 + .00000, .00959, .01120,
2474 + .51944, .19143, .33691, .01899, .00219,
2475 + .00000, .00952, .01076 /
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 + .50779, .18645, .31582, .01866, .00239,
2478 + .00000, .00941, .01041,
2479 + .49683, .18179, .29679, .01835, .00258,
2480 + .00000, .00929, .01008,
2481 + .48817, .17815, .28238, .01808, .00268,
2482 + .00000, .00918, .00981,
2483 + .47023, .17065, .25384, .01751, .00289,
2484 + .00000, .00895, .00924,
2485 + .45523, .16443, .23128, .01698, .00302,
2486 + .00016, .00873, .00877,
2487 + .43887, .15773, .20778, .01638, .00311,
2488 + .00044, .00843, .00828,
2489 + .42238, .15106, .18604, .01577, .00316,
2490 + .00067, .00813, .00776,
2491 + .40792, .14525, .16851, .01520, .00318,
2492 + .00084, .00785, .00732 /
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 + .39384, .13962, .15269, .01464, .00318,
2495 + .00097, .00758, .00690,
2496 + .38250, .13511, .14079, .01418, .00316,
2497 + .00105, .00735, .00655,
2498 + .36910, .12987, .12777, .01364, .00312,
2499 + .00113, .00707, .00615,
2500 + .35768, .12541, .11740, .01317, .00308,
2501 + .00119, .00682, .00583,
2502 + .34754, .12144, .10874, .01271, .00303,
2503 + .00122, .00658, .00556,
2504 + .33502, .11662, .09880, .01218, .00296,
2505 + .00126, .00630, .00521,
2506 + .32368, .11229, .09043, .01172, .00289,
2507 + .00128, .00605, .00490,
2508 + .31337, .10838, .08335, .01127, .00283,
2509 + .00129, .00581, .00464 /
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 + .30341, .10461, .07693, .01085, .00275,
2512 + .00129, .00559, .00439,
2513 + .29400, .10107, .07121, .01046, .00268,
2514 + .00129, .00538, .00416,
2515 + .28536, .09781, .06630, .01008, .00261,
2516 + .00128, .00518, .00395,
2517 + .27751, .09486, .06203, .00974, .00255,
2518 + .00127, .00500, .00376,
2519 + .26975, .09197, .05809, .00941, .00248,
2520 + .00126, .00482, .00358,
2521 + .26240, .08925, .05449, .00910, .00242,
2522 + .00124, .00464, .00341,
2523 + .25553, .08671, .05134, .00881, .00235,
2524 + .00123, .00449, .00326,
2525 + .24925, .08440, .04856, .00855, .00230,
2526 + .00121, .00436, .00313 /
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 + .24304, .08214, .04595, .00829, .00224,
2529 + .00119, .00422, .00300,
2530 + .23709, .07997, .04355, .00803, .00218,
2531 + .00117, .00408, .00288,
2532 + .23155, .07796, .04140, .00780, .00213,
2533 + .00116, .00396, .00276,
2534 + .22641, .07609, .03948, .00759, .00208,
2535 + .00114, .00384, .00264,
2536 + .22137, .07425, .03765, .00738, .00203,
2537 + .00112, .00373, .00253 /
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 + .60671, .22447, .51022, .01884, .00000,
2540 + .00000, .00694, .00720,
2541 + .59057, .21746, .47528, .01872, .00000,
2542 + .00000, .00715, .00706,
2543 + .56714, .20739, .42621, .01843, .00002,
2544 + .00000, .00734, .00684,
2545 + .55041, .20029, .39222, .01815, .00039,
2546 + .00000, .00741, .00666,
2547 + .53321, .19306, .35832, .01781, .00096,
2548 + .00000, .00743, .00644,
2549 + .51860, .18694, .33109, .01744, .00124,
2550 + .00000, .00742, .00623,
2551 + .50491, .18127, .30692, .01708, .00150,
2552 + .00000, .00738, .00605,
2553 + .49068, .17543, .28316, .01669, .00173,
2554 + .00000, .00729, .00586 /
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 + .47852, .17051, .26388, .01632, .00188,
2557 + .00000, .00720, .00567,
2558 + .46712, .16591, .24660, .01598, .00203,
2559 + .00000, .00711, .00547,
2560 + .45814, .16232, .23361, .01568, .00210,
2561 + .00000, .00703, .00533,
2562 + .43963, .15494, .20814, .01506, .00225,
2563 + .00000, .00682, .00503,
2564 + .42425, .14885, .18826, .01451, .00234,
2565 + .00012, .00662, .00477,
2566 + .40754, .14232, .16782, .01394, .00240,
2567 + .00033, .00640, .00445,
2568 + .39080, .13581, .14909, .01332, .00243,
2569 + .00051, .00614, .00418,
2570 + .37620, .13020, .13412, .01278, .00243,
2571 + .00063, .00591, .00395 /
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 + .36204, .12479, .12073, .01225, .00242,
2574 + .00072, .00568, .00372,
2575 + .35071, .12048, .11076, .01179, .00239,
2576 + .00078, .00549, .00352,
2577 + .33739, .11546, .09991, .01127, .00236,
2578 + .00084, .00525, .00330,
2579 + .32606, .11122, .09134, .01083, .00232,
2580 + .00088, .00504, .00312,
2581 + .31601, .10747, .08422, .01043, .00227,
2582 + .00090, .00486, .00295,
2583 + .30369, .10290, .07613, .00995, .00221,
2584 + .00092, .00465, .00275,
2585 + .29259, .09881, .06935, .00953, .00216,
2586 + .00094, .00446, .00258,
2587 + .28254, .09512, .06365, .00912, .00210,
2588 + .00094, .00427, .00243 /
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 + .27286, .09159, .05852, .00874, .00204,
2591 + .00094, .00409, .00230,
2592 + .26375, .08828, .05397, .00839, .00198,
2593 + .00093, .00391, .00216,
2594 + .25537, .08525, .05007, .00806, .00192,
2595 + .00093, .00376, .00204,
2596 + .24778, .08251, .04670, .00777, .00187,
2597 + .00092, .00362, .00193,
2598 + .24034, .07984, .04361, .00747, .00182,
2599 + .00090, .00349, .00184,
2600 + .23331, .07732, .04081, .00719, .00177,
2601 + .00089, .00336, .00176,
2602 + .22676, .07498, .03836, .00695, .00172,
2603 + .00088, .00324, .00167,
2604 + .22078, .07285, .03619, .00672, .00167,
2605 + .00087, .00313, .00160 /
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 + .21487, .07076, .03418, .00650, .00163,
2608 + .00085, .00303, .00152,
2609 + .20922, .06878, .03232, .00629, .00158,
2610 + .00084, .00292, .00146,
2611 + .20398, .06693, .03067, .00610, .00154,
2612 + .00082, .00283, .00140,
2613 + .19913, .06522, .02921, .00591, .00150,
2614 + .00081, .00275, .00133,
2615 + .19437, .06355, .02781, .00574, .00147,
2616 + .00079, .00266, .00128 /
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 + .58035, .20815, .45003, .01706, .00000,
2619 + .00000, .00530, .00246,
2620 + .56321, .20109, .41567, .01681, .00000,
2621 + .00000, .00546, .00254,
2622 + .53851, .19098, .36828, .01635, .00001,
2623 + .00000, .00563, .00262,
2624 + .52099, .18389, .33607, .01597, .00031,
2625 + .00000, .00569, .00264,
2626 + .50303, .17672, .30439, .01554, .00076,
2627 + .00000, .00570, .00263,
2628 + .48783, .17070, .27928, .01515, .00098,
2629 + .00000, .00566, .00261,
2630 + .47368, .16513, .25715, .01476, .00118,
2631 + .00000, .00562, .00256,
2632 + .45907, .15942, .23557, .01434, .00136,
2633 + .00000, .00557, .00248 /
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 + .44663, .15459, .21829, .01396, .00147,
2636 + .00000, .00549, .00242,
2637 + .43500, .15009, .20291, .01360, .00158,
2638 + .00000, .00541, .00237,
2639 + .42588, .14659, .19142, .01330, .00163,
2640 + .00000, .00532, .00233,
2641 + .40715, .13943, .16907, .01267, .00174,
2642 + .00000, .00514, .00223,
2643 + .39166, .13356, .15183, .01214, .00180,
2644 + .00009, .00498, .00212,
2645 + .37488, .12730, .13428, .01158, .00183,
2646 + .00025, .00479, .00201,
2647 + .35824, .12108, .11843, .01097, .00185,
2648 + .00038, .00459, .00188,
2649 + .34375, .11572, .10584, .01047, .00184,
2650 + .00047, .00440, .00177 /
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 + .32975, .11058, .09466, .01000, .00182,
2653 + .00054, .00421, .00166,
2654 + .31855, .10651, .08641, .00960, .00180,
2655 + .00058, .00406, .00158,
2656 + .30555, .10177, .07751, .00910, .00176,
2657 + .00062, .00388, .00149,
2658 + .29453, .09777, .07051, .00869, .00173,
2659 + .00064, .00373, .00140,
2660 + .28473, .09427, .06475, .00835, .00169,
2661 + .00066, .00359, .00132,
2662 + .27280, .09000, .05823, .00793, .00164,
2663 + .00067, .00341, .00123,
2664 + .26210, .08619, .05280, .00755, .00159,
2665 + .00068, .00324, .00115,
2666 + .25244, .08278, .04828, .00721, .00154,
2667 + .00068, .00310, .00108 /
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 + .24315, .07952, .04422, .00689, .00149,
2670 + .00068, .00297, .00101,
2671 + .23443, .07646, .04063, .00659, .00145,
2672 + .00067, .00284, .00095,
2673 + .22644, .07367, .03758, .00632, .00140,
2674 + .00066, .00272, .00089,
2675 + .21923, .07115, .03495, .00608, .00136,
2676 + .00066, .00262, .00084,
2677 + .21218, .06871, .03255, .00583, .00132,
2678 + .00065, .00251, .00080,
2679 + .20553, .06641, .03037, .00560, .00128,
2680 + .00064, .00241, .00077,
2681 + .19937, .06428, .02849, .00539, .00124,
2682 + .00062, .00233, .00073,
2683 + .19376, .06234, .02683, .00520, .00120,
2684 + .00061, .00225, .00069 /
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 + .18824, .06045, .02528, .00500, .00117,
2687 + .00060, .00217, .00065,
2688 + .18298, .05866, .02386, .00482, .00114,
2689 + .00059, .00209, .00062,
2690 + .17809, .05700, .02260, .00466, .00111,
2691 + .00058, .00202, .00059,
2692 + .17357, .05546, .02148, .00451, .00108,
2693 + .00057, .00195, .00056,
2694 + .16913, .05395, .02042, .00436, .00105,
2695 + .00056, .00189, .00054 /
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 + .54966, .19157, .39221, .01515, .00000,
2698 + .00000, .00393, -.00067,
2699 + .53184, .18455, .35930, .01480, .00000,
2700 + .00000, .00407, -.00042,
2701 + .50630, .17456, .31462, .01425, .00001,
2702 + .00000, .00421, -.00014,
2703 + .48829, .16760, .28475, .01382, .00024,
2704 + .00000, .00426, .00001,
2705 + .46992, .16057, .25575, .01335, .00060,
2706 + .00000, .00429, .00014,
2707 + .45452, .15469, .23304, .01290, .00076,
2708 + .00000, .00425, .00025,
2709 + .44019, .14928, .21321, .01250, .00092,
2710 + .00000, .00421, .00031,
2711 + .42541, .14377, .19405, .01210, .00106,
2712 + .00000, .00416, .00034 /
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 + .41290, .13910, .17880, .01172, .00114,
2715 + .00000, .00409, .00039,
2716 + .40125, .13476, .16529, .01136, .00122,
2717 + .00000, .00402, .00043,
2718 + .39213, .13140, .15533, .01107, .00126,
2719 + .00000, .00396, .00043,
2720 + .37345, .12456, .13608, .01048, .00133,
2721 + .00000, .00383, .00045,
2722 + .35808, .11897, .12134, .00999, .00137,
2723 + .00007, .00369, .00047,
2724 + .34159, .11300, .10654, .00946, .00139,
2725 + .00018, .00354, .00046,
2726 + .32524, .10714, .09327, .00894, .00139,
2727 + .00028, .00337, .00044,
2728 + .31114, .10209, .08283, .00847, .00138,
2729 + .00034, .00323, .00043 /
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 + .29757, .09726, .07363, .00801, .00136,
2732 + .00040, .00310, .00041,
2733 + .28676, .09345, .06688, .00765, .00134,
2734 + .00043, .00296, .00039,
2735 + .27418, .08904, .05968, .00723, .00131,
2736 + .00046, .00282, .00037,
2737 + .26356, .08534, .05406, .00689, .00128,
2738 + .00047, .00270, .00036,
2739 + .25418, .08209, .04944, .00660, .00125,
2740 + .00048, .00259, .00034,
2741 + .24278, .07816, .04425, .00624, .00121,
2742 + .00049, .00246, .00031,
2743 + .23258, .07465, .03995, .00592, .00117,
2744 + .00049, .00233, .00029,
2745 + .22344, .07150, .03637, .00562, .00113,
2746 + .00049, .00223, .00028 /
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 + .21469, .06851, .03319, .00535, .00109,
2749 + .00049, .00212, .00026,
2750 + .20649, .06574, .03042, .00509, .00105,
2751 + .00048, .00201, .00024,
2752 + .19901, .06320, .02805, .00486, .00102,
2753 + .00048, .00192, .00023,
2754 + .19228, .06091, .02601, .00465, .00098,
2755 + .00047, .00185, .00021,
2756 + .18570, .05871, .02416, .00444, .00095,
2757 + .00046, .00177, .00020,
2758 + .17951, .05664, .02249, .00426, .00092,
2759 + .00045, .00169, .00019,
2760 + .17378, .05472, .02105, .00408, .00089,
2761 + .00045, .00163, .00019,
2762 + .16858, .05297, .01978, .00392, .00087,
2763 + .00044, .00157, .00019 /
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 + .16347, .05127, .01861, .00377, .00084,
2766 + .00043, .00151, .00017,
2767 + .15861, .04967, .01754, .00363, .00082,
2768 + .00042, .00146, .00015,
2769 + .15411, .04818, .01659, .00351, .00079,
2770 + .00041, .00141, .00014,
2771 + .14993, .04681, .01575, .00340, .00077,
2772 + .00041, .00137, .00012,
2773 + .14584, .04548, .01495, .00329, .00075,
2774 + .00040, .00132, .00011 /
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 + .51572, .17467, .33733, .01291, .00000,
2777 + .00000, .00291, -.00240,
2778 + .49751, .16782, .30664, .01256, .00000,
2779 + .00000, .00302, -.00208,
2780 + .47153, .15813, .26554, .01199, .00001,
2781 + .00000, .00312, -.00168,
2782 + .45333, .15139, .23844, .01156, .00019,
2783 + .00000, .00316, -.00143,
2784 + .43486, .14462, .21244, .01109, .00046,
2785 + .00000, .00316, -.00121,
2786 + .41942, .13899, .19228, .01069, .00059,
2787 + .00000, .00313, -.00106,
2788 + .40512, .13381, .17483, .01030, .00071,
2789 + .00000, .00310, -.00093,
2790 + .39046, .12852, .15813, .00991, .00081,
2791 + .00000, .00306, -.00082 /
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 + .37809, .12409, .14492, .00957, .00087,
2794 + .00000, .00300, -.00074,
2795 + .36659, .11998, .13330, .00925, .00093,
2796 + .00000, .00294, -.00066,
2797 + .35766, .11681, .12476, .00899, .00095,
2798 + .00000, .00290, -.00061,
2799 + .33938, .11035, .10838, .00845, .00100,
2800 + .00000, .00279, -.00052,
2801 + .32440, .10509, .09599, .00802, .00103,
2802 + .00005, .00268, -.00046,
2803 + .30840, .09948, .08371, .00754, .00104,
2804 + .00014, .00256, -.00037,
2805 + .29259, .09401, .07277, .00710, .00104,
2806 + .00021, .00243, -.00032,
2807 + .27902, .08932, .06423, .00669, .00103,
2808 + .00025, .00232, -.00028 /
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 + .26602, .08485, .05677, .00629, .00101,
2811 + .00029, .00221, -.00025,
2812 + .25566, .08135, .05135, .00601, .00099,
2813 + .00031, .00212, -.00024,
2814 + .24371, .07728, .04556, .00565, .00096,
2815 + .00033, .00201, -.00021,
2816 + .23367, .07387, .04107, .00534, .00094,
2817 + .00035, .00191, -.00019,
2818 + .22480, .07090, .03742, .00510, .00091,
2819 + .00036, .00183, -.00017,
2820 + .21409, .06730, .03334, .00480, .00088,
2821 + .00036, .00173, -.00015,
2822 + .20455, .06411, .02998, .00452, .00085,
2823 + .00036, .00165, -.00014,
2824 + .19604, .06126, .02721, .00427, .00082,
2825 + .00036, .00156, -.00013 /
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 + .18786, .05857, .02475, .00406, .00079,
2828 + .00036, .00148, -.00013,
2829 + .18020, .05608, .02259, .00388, .00076,
2830 + .00036, .00141, -.00014,
2831 + .17329, .05379, .02078, .00367, .00073,
2832 + .00035, .00134, -.00012,
2833 + .16709, .05174, .01922, .00349, .00071,
2834 + .00035, .00129, -.00011,
2835 + .16103, .04976, .01782, .00334, .00068,
2836 + .00034, .00123, -.00011,
2837 + .15533, .04790, .01655, .00320, .00066,
2838 + .00033, .00118, -.00011,
2839 + .15006, .04620, .01547, .00306, .00064,
2840 + .00033, .00113, -.00010,
2841 + .14529, .04466, .01451, .00294, .00062,
2842 + .00032, .00109, -.00009 /
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 + .14062, .04315, .01363, .00283, .00060,
2845 + .00032, .00104, -.00009,
2846 + .13618, .04171, .01282, .00272, .00058,
2847 + .00031, .00100, -.00008,
2848 + .13210, .04040, .01210, .00262, .00056,
2849 + .00031, .00097, -.00008,
2850 + .12834, .03920, .01148, .00252, .00055,
2851 + .00030, .00093, -.00008,
2852 + .12467, .03803, .01088, .00242, .00053,
2853 + .00030, .00090, -.00007 /
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 + .47915, .15781, .28622, .01062, .00000,
2856 + .00000, .00212, -.00308,
2857 + .46084, .15121, .25818, .01025, .00000,
2858 + .00000, .00221, -.00273,
2859 + .43487, .14192, .22108, .00972, .00001,
2860 + .00000, .00230, -.00231,
2861 + .41677, .13549, .19696, .00932, .00015,
2862 + .00000, .00233, -.00204,
2863 + .39851, .12902, .17410, .00889, .00035,
2864 + .00000, .00234, -.00179,
2865 + .38327, .12366, .15655, .00851, .00045,
2866 + .00000, .00233, -.00159,
2867 + .36923, .11876, .14145, .00817, .00054,
2868 + .00000, .00230, -.00143,
2869 + .35492, .11378, .12709, .00782, .00061,
2870 + .00000, .00227, -.00130 /
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 + .34286, .10961, .11585, .00751, .00066,
2873 + .00000, .00222, -.00118,
2874 + .33167, .10575, .10601, .00723, .00070,
2875 + .00000, .00217, -.00108,
2876 + .32300, .10278, .09883, .00702, .00072,
2877 + .00000, .00213, -.00103,
2878 + .30535, .09675, .08517, .00656, .00075,
2879 + .00000, .00205, -.00092,
2880 + .29096, .09186, .07493, .00618, .00077,
2881 + .00004, .00198, -.00082,
2882 + .27566, .08668, .06487, .00576, .00077,
2883 + .00010, .00186, -.00071,
2884 + .26061, .08163, .05599, .00538, .00076,
2885 + .00015, .00178, -.00063,
2886 + .24771, .07732, .04913, .00505, .00075,
2887 + .00018, .00169, -.00057 /
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 + .23541, .07324, .04318, .00474, .00074,
2890 + .00021, .00159, -.00051,
2891 + .22569, .07003, .03887, .00449, .00072,
2892 + .00022, .00152, -.00047,
2893 + .21447, .06633, .03431, .00420, .00070,
2894 + .00023, .00144, -.00041,
2895 + .20506, .06324, .03080, .00397, .00068,
2896 + .00024, .00137, -.00037,
2897 + .19680, .06056, .02796, .00378, .00066,
2898 + .00025, .00131, -.00036,
2899 + .18687, .05732, .02480, .00352, .00063,
2900 + .00025, .00123, -.00032,
2901 + .17806, .05444, .02221, .00330, .00061,
2902 + .00026, .00116, -.00028,
2903 + .17013, .05190, .02009, .00314, .00059,
2904 + .00026, .00110, -.00027 /
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 + .16262, .04950, .01821, .00297, .00056,
2907 + .00025, .00105, -.00026,
2908 + .15564, .04726, .01657, .00280, .00054,
2909 + .00025, .00100, -.00024,
2910 + .14932, .04524, .01520, .00264, .00052,
2911 + .00025, .00095, -.00022,
2912 + .14365, .04343, .01403, .00250, .00051,
2913 + .00025, .00091, -.00021,
2914 + .13815, .04168, .01298, .00239, .00049,
2915 + .00025, .00087, -.00020,
2916 + .13299, .04005, .01203, .00228, .00047,
2917 + .00025, .00083, -.00019,
2918 + .12823, .03854, .01122, .00218, .00046,
2919 + .00025, .00079, -.00017,
2920 + .12392, .03719, .01051, .00209, .00044,
2921 + .00025, .00076, -.00016 /
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 + .11972, .03587, .00985, .00200, .00043,
2924 + .00024, .00073, -.00015,
2925 + .11573, .03462, .00926, .00191, .00042,
2926 + .00024, .00070, -.00014,
2927 + .11206, .03347, .00873, .00183, .00041,
2928 + .00024, .00067, -.00013,
2929 + .10869, .03242, .00827, .00176, .00040,
2930 + .00024, .00064, -.00013,
2931 + .10541, .03139, .00782, .00170, .00039,
2932 + .00023, .00062, -.00013 /
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 + .44073, .14139, .23955, .00848, .00000,
2935 + .00000, .00152, -.00316,
2936 + .42266, .13508, .21441, .00813, .00000,
2937 + .00000, .00161, -.00282,
2938 + .39714, .12622, .18159, .00761, .00001,
2939 + .00000, .00168, -.00238,
2940 + .37942, .12012, .16052, .00725, .00011,
2941 + .00000, .00170, -.00211,
2942 + .36161, .11406, .14076, .00687, .00027,
2943 + .00000, .00170, -.00186,
2944 + .34686, .10901, .12571, .00652, .00034,
2945 + .00000, .00170, -.00166,
2946 + .33328, .10441, .11289, .00622, .00041,
2947 + .00000, .00168, -.00150,
2948 + .31943, .09976, .10080, .00594, .00046,
2949 + .00000, .00165, -.00135 /
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 + .30782, .09590, .09138, .00569, .00049,
2952 + .00000, .00162, -.00125,
2953 + .29708, .09235, .08317, .00546, .00052,
2954 + .00000, .00159, -.00116,
2955 + .28880, .08958, .07726, .00527, .00054,
2956 + .00000, .00156, -.00108,
2957 + .27201, .08400, .06606, .00488, .00056,
2958 + .00000, .00150, -.00093,
2959 + .25837, .07951, .05773, .00457, .00057,
2960 + .00003, .00144, -.00083,
2961 + .24390, .07479, .04963, .00427, .00057,
2962 + .00007, .00137, -.00076,
2963 + .22978, .07019, .04254, .00395, .00056,
2964 + .00010, .00129, -.00069,
2965 + .21768, .06628, .03711, .00370, .00055,
2966 + .00013, .00122, -.00061 /
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 + .20618, .06259, .03244, .00346, .00054,
2969 + .00014, .00115, -.00054,
2970 + .19715, .05970, .02907, .00327, .00053,
2971 + .00015, .00109, -.00050,
2972 + .18677, .05637, .02554, .00305, .00051,
2973 + .00016, .00104, -.00044,
2974 + .17810, .05361, .02283, .00286, .00050,
2975 + .00017, .00099, -.00040,
2976 + .17054, .05120, .02065, .00269, .00048,
2977 + .00017, .00094, -.00037,
2978 + .16142, .04833, .01823, .00251, .00046,
2979 + .00017, .00089, -.00034,
2980 + .15332, .04579, .01626, .00236, .00045,
2981 + .00017, .00084, -.00032,
2982 + .14615, .04353, .01466, .00221, .00043,
2983 + .00017, .00079, -.00029 /
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 + .13934, .04141, .01325, .00207, .00041,
2986 + .00017, .00075, -.00026,
2987 + .13302, .03945, .01203, .00195, .00040,
2988 + .00017, .00071, -.00025,
2989 + .12731, .03768, .01101, .00184, .00039,
2990 + .00017, .00067, -.00023,
2991 + .12221, .03609, .01014, .00175, .00037,
2992 + .00017, .00064, -.00022,
2993 + .11726, .03456, .00936, .00166, .00036,
2994 + .00017, .00061, -.00020,
2995 + .11262, .03313, .00866, .00157, .00035,
2996 + .00017, .00058, -.00018,
2997 + .10839, .03183, .00806, .00150, .00034,
2998 + .00017, .00056, -.00017,
2999 + .10456, .03065, .00754, .00143, .00033,
3000 + .00017, .00053, -.00016 /
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 + .10084, .02952, .00706, .00136, .00032,
3003 + .00017, .00051, -.00014,
3004 + .09731, .02844, .00662, .00129, .00031,
3005 + .00017, .00049, -.00013,
3006 + .09406, .02745, .00623, .00124, .00031,
3007 + .00017, .00047, -.00012,
3008 + .09107, .02655, .00590, .00119, .00030,
3009 + .00017, .00045, -.00013,
3010 + .08816, .02567, .00558, .00115, .00029,
3011 + .00017, .00044, -.00013 /
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 + .40142, .12562, .19780, .00663, .00000,
3014 + .00000, .00100, -.00290,
3015 + .38382, .11969, .17578, .00633, .00000,
3016 + .00000, .00107, -.00260,
3017 + .35906, .11140, .14733, .00589, .00001,
3018 + .00000, .00114, -.00220,
3019 + .34197, .10571, .12929, .00558, .00008,
3020 + .00000, .00116, -.00195,
3021 + .32488, .10005, .11253, .00526, .00020,
3022 + .00000, .00117, -.00173,
3023 + .31073, .09542, .09985, .00501, .00025,
3024 + .00000, .00115, -.00156,
3025 + .29777, .09118, .08913, .00477, .00030,
3026 + .00000, .00114, -.00143,
3027 + .28465, .08690, .07911, .00451, .00034,
3028 + .00000, .00113, -.00129 /
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 + .27367, .08333, .07137, .00431, .00037,
3031 + .00000, .00110, -.00118,
3032 + .26353, .08004, .06465, .00412, .00039,
3033 + .00000, .00108, -.00108,
3034 + .25575, .07753, .05984, .00397, .00040,
3035 + .00000, .00106, -.00102,
3036 + .23998, .07247, .05078, .00367, .00042,
3037 + .00000, .00101, -.00091,
3038 + .22718, .06840, .04410, .00345, .00043,
3039 + .00002, .00096, -.00082,
3040 + .21376, .06411, .03768, .00317, .00043,
3041 + .00005, .00090, -.00071,
3042 + .20062, .05997, .03210, .00295, .00042,
3043 + .00007, .00085, -.00062,
3044 + .18948, .05648, .02784, .00274, .00041,
3045 + .00009, .00081, -.00057 /
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 + .17894, .05317, .02421, .00254, .00040,
3048 + .00010, .00077, -.00052,
3049 + .17066, .05058, .02161, .00241, .00039,
3050 + .00010, .00073, -.00047,
3051 + .16119, .04764, .01890, .00223, .00038,
3052 + .00010, .00068, -.00043,
3053 + .15329, .04519, .01683, .00209, .00037,
3054 + .00010, .00065, -.00039,
3055 + .14640, .04307, .01517, .00198, .00036,
3056 + .00010, .00061, -.00036,
3057 + .13815, .04053, .01334, .00184, .00035,
3058 + .00010, .00057, -.00032,
3059 + .13089, .03829, .01186, .00170, .00033,
3060 + .00010, .00053, -.00029,
3061 + .12443, .03632, .01067, .00160, .00032,
3062 + .00010, .00050, -.00027 /
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 + .11832, .03447, .00962, .00150, .00031,
3065 + .00010, .00048, -.00025,
3066 + .11266, .03276, .00871, .00142, .00030,
3067 + .00010, .00045, -.00024,
3068 + .10759, .03122, .00795, .00133, .00029,
3069 + .00010, .00043, -.00022,
3070 + .10306, .02984, .00731, .00125, .00028,
3071 + .00010, .00040, -.00021,
3072 + .09867, .02852, .00673, .00119, .00027,
3073 + .00010, .00039, -.00019,
3074 + .09458, .02730, .00622, .00112, .00027,
3075 + .00010, .00037, -.00017,
3076 + .09086, .02618, .00578, .00106, .00026,
3077 + .00010, .00035, -.00016,
3078 + .08749, .02517, .00540, .00101, .00025,
3079 + .00010, .00033, -.00016 /
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 + .08421, .02418, .00505, .00096, .00025,
3082 + .00010, .00032, -.00015,
3083 + .08110, .02325, .00473, .00092, .00024,
3084 + .00010, .00031, -.00014,
3085 + .07826, .02241, .00445, .00089, .00024,
3086 + .00010, .00029, -.00014,
3087 + .07566, .02164, .00420, .00085, .00023,
3088 + .00010, .00028, -.00013,
3089 + .07313, .02089, .00397, .00082, .00023,
3090 + .00010, .00027, -.00012 /
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 + .36162, .11019, .16047, .00480, .00000,
3093 + .00000, .00073, -.00232,
3094 + .34468, .10471, .14151, .00458, .00000,
3095 + .00000, .00079, -.00208,
3096 + .32098, .09706, .11736, .00426, .00001,
3097 + .00000, .00084, -.00176,
3098 + .30471, .09182, .10223, .00402, .00006,
3099 + .00000, .00084, -.00155,
3100 + .28851, .08663, .08830, .00378, .00015,
3101 + .00000, .00084, -.00136,
3102 + .27519, .08239, .07787, .00357, .00018,
3103 + .00000, .00083, -.00123,
3104 + .26302, .07853, .06910, .00339, .00022,
3105 + .00000, .00082, -.00112,
3106 + .25070, .07464, .06095, .00322, .00025,
3107 + .00000, .00082, -.00102 /
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 + .24045, .07142, .05470, .00306, .00026,
3110 + .00000, .00079, -.00094,
3111 + .23100, .06847, .04932, .00291, .00028,
3112 + .00000, .00076, -.00086,
3113 + .22377, .06620, .04548, .00279, .00029,
3114 + .00000, .00074, -.00080,
3115 + .20918, .06165, .03829, .00256, .00030,
3116 + .00000, .00071, -.00070,
3117 + .19739, .05801, .03305, .00238, .00031,
3118 + .00001, .00067, -.00062,
3119 + .18505, .05420, .02805, .00221, .00031,
3120 + .00003, .00065, -.00056,
3121 + .17305, .05051, .02373, .00203, .00031,
3122 + .00005, .00060, -.00049,
3123 + .16292, .04741, .02048, .00187, .00030,
3124 + .00005, .00056, -.00043 /
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 + .15336, .04450, .01771, .00173, .00030,
3127 + .00006, .00052, -.00039,
3128 + .14587, .04224, .01574, .00163, .00029,
3129 + .00006, .00049, -.00035,
3130 + .13730, .03966, .01370, .00153, .00028,
3131 + .00006, .00046, -.00031,
3132 + .13020, .03752, .01216, .00144, .00028,
3133 + .00006, .00044, -.00029,
3134 + .12406, .03567, .01092, .00134, .00027,
3135 + .00006, .00042, -.00027,
3136 + .11671, .03347, .00958, .00123, .00026,
3137 + .00006, .00039, -.00024,
3138 + .11024, .03154, .00849, .00114, .00025,
3139 + .00006, .00036, -.00021,
3140 + .10454, .02984, .00760, .00106, .00024,
3141 + .00006, .00034, -.00020 /
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 + .09916, .02823, .00684, .00099, .00024,
3144 + .00006, .00033, -.00018,
3145 + .09419, .02676, .00618, .00093, .00023,
3146 + .00006, .00031, -.00016,
3147 + .08970, .02544, .00563, .00088, .00022,
3148 + .00006, .00029, -.00015,
3149 + .08569, .02428, .00516, .00084, .00022,
3150 + .00006, .00027, -.00015,
3151 + .08187, .02316, .00475, .00079, .00021,
3152 + .00006, .00026, -.00013,
3153 + .07832, .02211, .00438, .00075, .00021,
3154 + .00006, .00024, -.00012,
3155 + .07507, .02116, .00407, .00071, .00020,
3156 + .00006, .00023, -.00012,
3157 + .07214, .02030, .00379, .00067, .00020,
3158 + .00006, .00022, -.00011 /
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 + .06930, .01948, .00354, .00064, .00020,
3161 + .00006, .00021, -.00010,
3162 + .06663, .01870, .00331, .00061, .00019,
3163 + .00006, .00020, -.00009,
3164 + .06418, .01799, .00311, .00058, .00019,
3165 + .00006, .00019, -.00009,
3166 + .06194, .01734, .00294, .00055, .00019,
3167 + .00006, .00018, -.00008,
3168 + .05977, .01671, .00277, .00053, .00019,
3169 + .00006, .00017, -.00008 /
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 + .32207, .09571, .12802, .00339, .00000,
3172 + .00000, .00052, -.00178,
3173 + .30607, .09065, .11211, .00320, .00000,
3174 + .00000, .00056, -.00156,
3175 + .28377, .08366, .09198, .00295, .00000,
3176 + .00000, .00059, -.00130,
3177 + .26852, .07891, .07950, .00278, .00004,
3178 + .00000, .00060, -.00115,
3179 + .25338, .07421, .06813, .00259, .00010,
3180 + .00000, .00061, -.00101,
3181 + .24096, .07037, .05969, .00244, .00013,
3182 + .00000, .00059, -.00089,
3183 + .22966, .06690, .05266, .00231, .00015,
3184 + .00000, .00058, -.00079,
3185 + .21826, .06342, .04616, .00218, .00017,
3186 + .00000, .00057, -.00072 /
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 + .20881, .06055, .04121, .00207, .00018,
3189 + .00000, .00055, -.00066,
3190 + .20013, .05793, .03698, .00197, .00019,
3191 + .00000, .00053, -.00061,
3192 + .19350, .05591, .03397, .00190, .00019,
3193 + .00000, .00052, -.00057,
3194 + .18018, .05186, .02838, .00173, .00020,
3195 + .00000, .00050, -.00049,
3196 + .16951, .04862, .02435, .00158, .00020,
3197 + .00001, .00046, -.00043,
3198 + .15829, .04528, .02052, .00146, .00020,
3199 + .00002, .00044, -.00038,
3200 + .14746, .04205, .01725, .00135, .00019,
3201 + .00003, .00042, -.00033,
3202 + .13836, .03934, .01480, .00124, .00019,
3203 + .00003, .00039, -.00029 /
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 + .12981, .03680, .01274, .00114, .00018,
3206 + .00003, .00037, -.00026,
3207 + .12315, .03484, .01128, .00107, .00018,
3208 + .00003, .00035, -.00024,
3209 + .11555, .03261, .00977, .00099, .00017,
3210 + .00003, .00033, -.00021,
3211 + .10926, .03077, .00864, .00092, .00016,
3212 + .00003, .00031, -.00019,
3213 + .10382, .02918, .00774, .00086, .00016,
3214 + .00003, .00029, -.00017,
3215 + .09736, .02729, .00676, .00079, .00015,
3216 + .00003, .00027, -.00015,
3217 + .09171, .02564, .00597, .00073, .00014,
3218 + .00003, .00025, -.00013,
3219 + .08669, .02419, .00534, .00069, .00014,
3220 + .00003, .00023, -.00013 /
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 + .08200, .02284, .00479, .00064, .00014,
3223 + .00003, .00022, -.00011,
3224 + .07771, .02159, .00431, .00058, .00013,
3225 + .00003, .00021, -.00010,
3226 + .07382, .02048, .00392, .00056, .00013,
3227 + .00003, .00019, -.00010,
3228 + .07036, .01950, .00359, .00054, .00013,
3229 + .00003, .00018, -.00010,
3230 + .06708, .01855, .00330, .00050, .00013,
3231 + .00003, .00017, -.00009,
3232 + .06403, .01767, .00304, .00047, .00013,
3233 + .00003, .00015, -.00008,
3234 + .06124, .01688, .00282, .00044, .00013,
3235 + .00003, .00015, -.00007,
3236 + .05873, .01617, .00262, .00042, .00013,
3237 + .00003, .00014, -.00007 /
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 + .05631, .01548, .00245, .00040, .00013,
3240 + .00003, .00014, -.00007,
3241 + .05403, .01483, .00229, .00037, .00013,
3242 + .00003, .00013, -.00006,
3243 + .05196, .01424, .00215, .00035, .00013,
3244 + .00003, .00013, -.00005,
3245 + .05007, .01370, .00203, .00033, .00013,
3246 + .00003, .00012, -.00005,
3247 + .04823, .01318, .00191, .00032, .00013,
3248 + .00003, .00012, -.00004 /
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 + .28358, .08232, .10051, .00238, .00000,
3251 + .00000, .00031, -.00131,
3252 + .26863, .07774, .08735, .00225, .00000,
3253 + .00000, .00034, -.00115,
3254 + .24790, .07144, .07091, .00207, .00000,
3255 + .00000, .00037, -.00094,
3256 + .23380, .06717, .06085, .00194, .00003,
3257 + .00000, .00038, -.00083,
3258 + .21990, .06295, .05177, .00179, .00007,
3259 + .00000, .00039, -.00074,
3260 + .20850, .05955, .04507, .00169, .00009,
3261 + .00000, .00038, -.00065,
3262 + .19817, .05646, .03952, .00160, .00010,
3263 + .00000, .00037, -.00057,
3264 + .18779, .05338, .03444, .00150, .00012,
3265 + .00000, .00036, -.00052 /
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 + .17925, .05083, .03060, .00140, .00012,
3268 + .00000, .00035, -.00046,
3269 + .17142, .04850, .02732, .00132, .00013,
3270 + .00000, .00034, -.00041,
3271 + .16542, .04673, .02501, .00127, .00013,
3272 + .00000, .00034, -.00039,
3273 + .15340, .04319, .02074, .00117, .00013,
3274 + .00000, .00032, -.00034,
3275 + .14380, .04037, .01768, .00107, .00013,
3276 + .00000, .00030, -.00030,
3277 + .13380, .03747, .01481, .00100, .00012,
3278 + .00001, .00028, -.00027,
3279 + .12422, .03466, .01237, .00089, .00012,
3280 + .00001, .00025, -.00022,
3281 + .11615, .03232, .01056, .00082, .00012,
3282 + .00001, .00023, -.00019 /
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 + .10860, .03015, .00905, .00076, .00011,
3285 + .00001, .00022, -.00018,
3286 + .10274, .02847, .00798, .00071, .00011,
3287 + .00001, .00021, -.00017,
3288 + .09608, .02656, .00689, .00066, .00010,
3289 + .00001, .00020, -.00015,
3290 + .09061, .02498, .00607, .00061, .00009,
3291 + .00001, .00019, -.00013,
3292 + .08589, .02364, .00542, .00057, .00009,
3293 + .00001, .00018, -.00012,
3294 + .08027, .02204, .00472, .00053, .00008,
3295 + .00001, .00016, -.00011,
3296 + .07537, .02065, .00416, .00049, .00008,
3297 + .00001, .00015, -.00010,
3298 + .07109, .01943, .00371, .00044, .00007,
3299 + .00001, .00014, -.00009 /
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 + .06705, .01830, .00332, .00041, .00007,
3302 + .00001, .00013, -.00008,
3303 + .06333, .01726, .00298, .00040, .00007,
3304 + .00001, .00012, -.00008,
3305 + .06004, .01632, .00271, .00037, .00007,
3306 + .00001, .00011, -.00007,
3307 + .05712, .01550, .00248, .00034, .00007,
3308 + .00001, .00011, -.00006,
3309 + .05432, .01472, .00227, .00032, .00007,
3310 + .00001, .00010, -.00006,
3311 + .05172, .01400, .00209, .00031, .00007,
3312 + .00001, .00010, -.00006,
3313 + .04937, .01334, .00193, .00029, .00007,
3314 + .00001, .00009, -.00005,
3315 + .04726, .01275, .00180, .00027, .00007,
3316 + .00001, .00009, -.00004 /
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 + .04522, .01218, .00168, .00025, .00007,
3319 + .00001, .00008, -.00004,
3320 + .04331, .01166, .00157, .00023, .00007,
3321 + .00001, .00007, -.00004,
3322 + .04157, .01117, .00147, .00022, .00007,
3323 + .00001, .00007, -.00004,
3324 + .03998, .01073, .00138, .00021, .00007,
3325 + .00001, .00007, -.00003,
3326 + .03845, .01031, .00130, .00020, .00007,
3327 + .00001, .00007, -.00003 /
3328 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
3329 + .24626, .06966, .07711, .00145, .00000,
3330 + .00000, .00024, -.00083,
3331 + .23254, .06559, .06652, .00138, .00000,
3332 + .00000, .00026, -.00073,
3333 + .21359, .06000, .05343, .00127, .00000,
3334 + .00000, .00027, -.00059,
3335 + .20075, .05623, .04550, .00119, .00002,
3336 + .00000, .00027, -.00050,
3337 + .18808, .05254, .03841, .00112, .00005,
3338 + .00000, .00028, -.00045,
3339 + .17781, .04955, .03323, .00105, .00006,
3340 + .00000, .00027, -.00040,
3341 + .16852, .04686, .02896, .00099, .00007,
3342 + .00000, .00027, -.00036,
3343 + .15924, .04416, .02506, .00093, .00007,
3344 + .00000, .00027, -.00032 /
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 + .15159, .04195, .02215, .00087, .00008,
3347 + .00000, .00026, -.00029,
3348 + .14460, .03994, .01969, .00081, .00008,
3349 + .00000, .00025, -.00026,
3350 + .13926, .03841, .01796, .00078, .00008,
3351 + .00000, .00024, -.00025,
3352 + .12859, .03537, .01478, .00072, .00008,
3353 + .00000, .00022, -.00021,
3354 + .12011, .03295, .01252, .00067, .00008,
3355 + .00000, .00021, -.00018,
3356 + .11135, .03045, .01042, .00060, .00007,
3357 + .00000, .00020, -.00015,
3358 + .10296, .02807, .00865, .00053, .00007,
3359 + .00000, .00018, -.00012,
3360 + .09595, .02609, .00735, .00049, .00007,
3361 + .00000, .00017, -.00011 /
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 + .08939, .02425, .00626, .00046, .00006,
3364 + .00000, .00016, -.00011,
3365 + .08432, .02283, .00550, .00043, .00006,
3366 + .00000, .00015, -.00010,
3367 + .07860, .02122, .00473, .00039, .00006,
3368 + .00000, .00014, -.00008,
3369 + .07390, .01991, .00415, .00035, .00005,
3370 + .00000, .00013, -.00006,
3371 + .06985, .01878, .00370, .00033, .00005,
3372 + .00000, .00012, -.00006,
3373 + .06506, .01746, .00321, .00031, .00005,
3374 + .00000, .00011, -.00005,
3375 + .06090, .01631, .00282, .00028, .00005,
3376 + .00000, .00010, -.00005,
3377 + .05726, .01530, .00251, .00025, .00005,
3378 + .00000, .00009, -.00004 /
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 + .05385, .01437, .00224, .00023, .00004,
3381 + .00000, .00008, -.00004,
3382 + .05073, .01351, .00201, .00022, .00004,
3383 + .00000, .00008, -.00003,
3384 + .04798, .01275, .00182, .00020, .00004,
3385 + .00000, .00008, -.00003,
3386 + .04554, .01208, .00166, .00018, .00004,
3387 + .00000, .00007, -.00003,
3388 + .04320, .01144, .00153, .00017, .00004,
3389 + .00000, .00007, -.00003,
3390 + .04104, .01085, .00140, .00016, .00004,
3391 + .00000, .00006, -.00002,
3392 + .03907, .01032, .00130, .00015, .00004,
3393 + .00000, .00006, -.00002,
3394 + .03732, .00985, .00120, .00015, .00004,
3395 + .00000, .00006, -.00002 /
3396 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
3397 + .03563, .00939, .00112, .00014, .00004,
3398 + .00000, .00005, -.00002,
3399 + .03406, .00896, .00105, .00013, .00004,
3400 + .00000, .00005, -.00002,
3401 + .03262, .00857, .00098, .00013, .00004,
3402 + .00000, .00005, -.00002,
3403 + .03132, .00822, .00092, .00012, .00004,
3404 + .00000, .00005, -.00002,
3405 + .03006, .00788, .00087, .00012, .00004,
3406 + .00000, .00005, -.00002 /
3407 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
3408 + .17787, .04798, .04254, .00055, .00000,
3409 + .00000, .00007, -.00032,
3410 + .16682, .04489, .03613, .00052, .00000,
3411 + .00000, .00008, -.00027,
3412 + .15170, .04069, .02839, .00048, .00000,
3413 + .00000, .00010, -.00022,
3414 + .14156, .03787, .02380, .00046, .00001,
3415 + .00000, .00011, -.00019,
3416 + .13165, .03511, .01978, .00043, .00002,
3417 + .00000, .00011, -.00016,
3418 + .12370, .03290, .01688, .00038, .00001,
3419 + .00000, .00010, -.00013,
3420 + .11654, .03093, .01453, .00035, .00001,
3421 + .00000, .00010, -.00011,
3422 + .10941, .02898, .01243, .00033, .00001,
3423 + .00000, .00010, -.00011 /
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 + .10358, .02739, .01087, .00031, .00001,
3426 + .00000, .00009, -.00009,
3427 + .09829, .02594, .00957, .00029, .00001,
3428 + .00000, .00009, -.00008,
3429 + .09428, .02485, .00866, .00028, .00001,
3430 + .00000, .00008, -.00007,
3431 + .08632, .02268, .00702, .00025, .00001,
3432 + .00000, .00008, -.00005,
3433 + .08006, .02097, .00588, .00022, .00001,
3434 + .00000, .00007, -.00004,
3435 + .07360, .01924, .00483, .00021, .00001,
3436 + .00000, .00007, -.00003,
3437 + .06750, .01759, .00396, .00018, .00001,
3438 + .00000, .00007, -.00004,
3439 + .06243, .01624, .00333, .00016, .00001,
3440 + .00000, .00006, -.00003 /
3441 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
3442 + .05774, .01498, .00282, .00015, .00001,
3443 + .00000, .00006, -.00002,
3444 + .05414, .01402, .00246, .00014, .00001,
3445 + .00000, .00005, -.00002,
3446 + .05011, .01295, .00210, .00013, .00001,
3447 + .00000, .00005, -.00002,
3448 + .04681, .01207, .00183, .00012, .00001,
3449 + .00000, .00005, -.00002,
3450 + .04400, .01133, .00162, .00011, .00001,
3451 + .00000, .00004, -.00001,
3452 + .04070, .01045, .00140, .00010, .00001,
3453 + .00000, .00004, -.00001,
3454 + .03785, .00970, .00123, .00009, .00001,
3455 + .00000, .00004, -.00001,
3456 + .03536, .00905, .00109, .00008, .00001,
3457 + .00000, .00003, -.00001 /
3458 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
3459 + .03306, .00844, .00097, .00008, .00001,
3460 + .00000, .00003, -.00001,
3461 + .03097, .00790, .00087, .00007, .00001,
3462 + .00000, .00003, .00000,
3463 + .02912, .00741, .00078, .00006, .00001,
3464 + .00000, .00003, .00000,
3465 + .02750, .00699, .00071, .00006, .00001,
3466 + .00000, .00003, .00000,
3467 + .02595, .00659, .00065, .00006, .00001,
3468 + .00000, .00003, .00000,
3469 + .02452, .00622, .00060, .00006, .00001,
3470 + .00000, .00002, .00000,
3471 + .02324, .00589, .00055, .00005, .00001,
3472 + .00000, .00002, .00000,
3473 + .02210, .00559, .00051, .00005, .00001,
3474 + .00000, .00002, .00000 /
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 + .02101, .00531, .00048, .00005, .00001,
3477 + .00000, .00002, .00000,
3478 + .02000, .00505, .00044, .00004, .00001,
3479 + .00000, .00002, .00000,
3480 + .01908, .00481, .00041, .00004, .00001,
3481 + .00000, .00002, .00000,
3482 + .01826, .00460, .00039, .00003, .00001,
3483 + .00000, .00002, .00000,
3484 + .01746, .00439, .00037, .00003, .00001,
3485 + .00000, .00002, .00000 /
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 + .11955, .03073, .02095, .00017, .00000,
3488 + .00000, .00001, -.00008,
3489 + .11129, .02854, .01751, .00017, .00000,
3490 + .00000, .00002, -.00007,
3491 + .10014, .02559, .01345, .00015, .00000,
3492 + .00000, .00003, -.00006,
3493 + .09275, .02364, .01110, .00014, .00000,
3494 + .00000, .00003, -.00005,
3495 + .08557, .02176, .00907, .00012, .00000,
3496 + .00000, .00003, -.00004,
3497 + .07982, .02026, .00764, .00012, .00000,
3498 + .00000, .00003, -.00003,
3499 + .07470, .01892, .00650, .00011, .00000,
3500 + .00000, .00003, -.00003,
3501 + .06965, .01761, .00548, .00011, .00000,
3502 + .00000, .00003, -.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 + .06555, .01654, .00475, .00010, .00000,
3505 + .00000, .00003, -.00002,
3506 + .06184, .01559, .00414, .00009, .00000,
3507 + .00000, .00003, -.00001,
3508 + .05906, .01487, .00372, .00009, .00000,
3509 + .00000, .00003, -.00002,
3510 + .05358, .01345, .00297, .00008, .00000,
3511 + .00000, .00003, -.00002,
3512 + .04930, .01234, .00246, .00007, .00000,
3513 + .00000, .00002, -.00001,
3514 + .04495, .01122, .00200, .00006, .00000,
3515 + .00000, .00002, -.00001,
3516 + .04084, .01017, .00162, .00005, .00000,
3517 + .00000, .00002, -.00001,
3518 + .03747, .00931, .00135, .00005, .00000,
3519 + .00000, .00002, -.00001 /
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 + .03438, .00853, .00113, .00005, .00000,
3522 + .00000, .00002, .00000,
3523 + .03203, .00793, .00098, .00004, .00000,
3524 + .00000, .00002, .00000,
3525 + .02941, .00727, .00084, .00004, .00000,
3526 + .00000, .00002, .00000,
3527 + .02729, .00673, .00073, .00003, .00000,
3528 + .00000, .00001, .00000,
3529 + .02550, .00628, .00064, .00003, .00000,
3530 + .00000, .00001, .00000,
3531 + .02340, .00575, .00055, .00003, .00000,
3532 + .00000, .00001, .00000,
3533 + .02160, .00530, .00048, .00003, .00000,
3534 + .00000, .00001, .00000,
3535 + .02005, .00491, .00042, .00002, .00000,
3536 + .00000, .00001, .00000 /
3537 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
3538 + .01862, .00455, .00038, .00002, .00000,
3539 + .00000, .00001, .00000,
3540 + .01734, .00423, .00034, .00002, .00000,
3541 + .00000, .00001, .00000,
3542 + .01621, .00395, .00030, .00002, .00000,
3543 + .00000, .00001, .00000,
3544 + .01521, .00370, .00028, .00002, .00000,
3545 + .00000, .00001, .00000,
3546 + .01428, .00347, .00025, .00002, .00000,
3547 + .00000, .00001, .00000,
3548 + .01342, .00326, .00023, .00002, .00000,
3549 + .00000, .00001, .00000,
3550 + .01266, .00307, .00021, .00001, .00000,
3551 + .00000, .00001, .00000,
3552 + .01199, .00290, .00020, .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 + .01134, .00274, .00018, .00001, .00000,
3556 + .00000, .00001, .00000,
3557 + .01074, .00260, .00017, .00001, .00000,
3558 + .00000, .00001, .00000,
3559 + .01020, .00246, .00016, .00001, .00000,
3560 + .00000, .00000, .00000,
3561 + .00972, .00234, .00015, .00001, .00000,
3562 + .00000, .00000, .00000,
3563 + .00925, .00223, .00014, .00001, .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 + .07311, .01788, .00887, .00005, .00000,
3567 + .00000, -.00001, -.00003,
3568 + .06751, .01647, .00729, .00005, .00000,
3569 + .00000, .00000, -.00002,
3570 + .06001, .01459, .00546, .00004, .00000,
3571 + .00000, .00001, -.00001,
3572 + .05509, .01337, .00443, .00004, .00000,
3573 + .00000, .00000, -.00001,
3574 + .05037, .01219, .00356, .00004, .00000,
3575 + .00000, .00000, -.00001,
3576 + .04664, .01127, .00296, .00003, .00000,
3577 + .00000, .00000, -.00001,
3578 + .04334, .01045, .00248, .00003, .00000,
3579 + .00000, .00000, .00000,
3580 + .04011, .00965, .00207, .00003, .00000,
3581 + .00000, .00001, .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 + .03750, .00901, .00177, .00002, .00000,
3584 + .00000, .00001, .00000,
3585 + .03515, .00843, .00153, .00002, .00000,
3586 + .00000, .00001, .00000,
3587 + .03340, .00800, .00136, .00003, .00000,
3588 + .00000, .00001, .00000,
3589 + .02998, .00717, .00107, .00002, .00000,
3590 + .00000, .00001, .00000,
3591 + .02734, .00652, .00088, .00002, .00000,
3592 + .00000, .00001, .00000,
3593 + .02468, .00587, .00071, .00002, .00000,
3594 + .00000, .00001, .00000,
3595 + .02220, .00527, .00057, .00001, .00000,
3596 + .00000, .00001, .00000,
3597 + .02019, .00478, .00047, .00001, .00000,
3598 + .00000, .00001, .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 + .01836, .00434, .00039, .00001, .00000,
3601 + .00000, .00000, .00000,
3602 + .01697, .00401, .00034, .00001, .00000,
3603 + .00000, .00000, .00000,
3604 + .01545, .00364, .00029, .00001, .00000,
3605 + .00000, .00000, .00000,
3606 + .01424, .00335, .00025, .00001, .00000,
3607 + .00000, .00000, .00000,
3608 + .01321, .00310, .00022, .00001, .00000,
3609 + .00000, .00000, .00000,
3610 + .01201, .00282, .00019, .00001, .00000,
3611 + .00000, .00000, .00000,
3612 + .01100, .00258, .00016, .00001, .00000,
3613 + .00000, .00000, .00000,
3614 + .01013, .00237, .00014, .00001, .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 + .00934, .00218, .00013, .00001, .00000,
3618 + .00000, .00000, .00000,
3619 + .00863, .00201, .00011, .00001, .00000,
3620 + .00000, .00000, .00000,
3621 + .00802, .00187, .00010, .00000, .00000,
3622 + .00000, .00000, .00000,
3623 + .00748, .00174, .00009, .00000, .00000,
3624 + .00000, .00000, .00000,
3625 + .00698, .00162, .00008, .00000, .00000,
3626 + .00000, .00000, .00000,
3627 + .00652, .00151, .00008, .00000, .00000,
3628 + .00000, .00000, .00000,
3629 + .00612, .00142, .00007, .00000, .00000,
3630 + .00000, .00000, .00000,
3631 + .00576, .00133, .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 + .00542, .00125, .00006, .00000, .00000,
3635 + .00000, .00000, .00000,
3636 + .00510, .00118, .00006, .00000, .00000,
3637 + .00000, .00000, .00000,
3638 + .00482, .00111, .00005, .00000, .00000,
3639 + .00000, .00000, .00000,
3640 + .00457, .00106, .00005, .00000, .00000,
3641 + .00000, .00000, .00000,
3642 + .00434, .00100, .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 + .03900, .00901, .00301, .00000, .00000,
3646 + .00000, .00000, .00000,
3647 + .03567, .00823, .00243, .00000, .00000,
3648 + .00000, .00000, .00000,
3649 + .03127, .00719, .00177, .00000, .00000,
3650 + .00000, .00000, .00000,
3651 + .02842, .00652, .00141, .00000, .00000,
3652 + .00000, .00000, .00000,
3653 + .02572, .00589, .00111, .00000, .00000,
3654 + .00000, .00000, .00000,
3655 + .02360, .00540, .00091, .00000, .00000,
3656 + .00000, .00000, .00000,
3657 + .02174, .00496, .00075, .00000, .00000,
3658 + .00000, .00000, .00000,
3659 + .01994, .00454, .00062, .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 + .01850, .00421, .00053, .00000, .00000,
3663 + .00000, .00000, .00000,
3664 + .01722, .00391, .00045, .00000, .00000,
3665 + .00000, .00000, .00000,
3666 + .01627, .00369, .00040, .00000, .00000,
3667 + .00000, .00000, .00000,
3668 + .01442, .00327, .00031, .00000, .00000,
3669 + .00000, .00000, .00000,
3670 + .01302, .00294, .00025, .00000, .00000,
3671 + .00000, .00000, .00000,
3672 + .01161, .00262, .00020, .00000, .00000,
3673 + .00000, .00000, .00000,
3674 + .01033, .00233, .00016, .00000, .00000,
3675 + .00000, .00000, .00000,
3676 + .00929, .00209, .00013, .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 + .00836, .00188, .00011, .00000, .00000,
3680 + .00000, .00000, .00000,
3681 + .00767, .00172, .00009, .00000, .00000,
3682 + .00000, .00000, .00000,
3683 + .00691, .00155, .00008, .00000, .00000,
3684 + .00000, .00000, .00000,
3685 + .00630, .00141, .00007, .00000, .00000,
3686 + .00000, .00000, .00000,
3687 + .00580, .00129, .00006, .00000, .00000,
3688 + .00000, .00000, .00000,
3689 + .00523, .00116, .00005, .00000, .00000,
3690 + .00000, .00000, .00000,
3691 + .00474, .00105, .00004, .00000, .00000,
3692 + .00000, .00000, .00000,
3693 + .00433, .00096, .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 + .00396, .00088, .00004, .00000, .00000,
3697 + .00000, .00000, .00000,
3698 + .00362, .00080, .00003, .00000, .00000,
3699 + .00000, .00000, .00000,
3700 + .00334, .00074, .00003, .00000, .00000,
3701 + .00000, .00000, .00000,
3702 + .00309, .00068, .00003, .00000, .00000,
3703 + .00000, .00000, .00000,
3704 + .00286, .00063, .00002, .00000, .00000,
3705 + .00000, .00000, .00000,
3706 + .00266, .00059, .00002, .00000, .00000,
3707 + .00000, .00000, .00000,
3708 + .00248, .00055, .00002, .00000, .00000,
3709 + .00000, .00000, .00000,
3710 + .00232, .00051, .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 + .00217, .00048, .00002, .00000, .00000,
3714 + .00000, .00000, .00000,
3715 + .00203, .00045, .00002, .00000, .00000,
3716 + .00000, .00000, .00000,
3717 + .00191, .00042, .00001, .00000, .00000,
3718 + .00000, .00000, .00000,
3719 + .00180, .00039, .00001, .00000, .00000,
3720 + .00000, .00000, .00000,
3721 + .00169, .00037, .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 + .00505, .00102, .00010, .00000, .00000,
3725 + .00000, .00000, .00000,
3726 + .00449, .00090, .00008, .00000, .00000,
3727 + .00000, .00000, .00000,
3728 + .00378, .00076, .00005, .00000, .00000,
3729 + .00000, .00000, .00000,
3730 + .00334, .00067, .00004, .00000, .00000,
3731 + .00000, .00000, .00000,
3732 + .00293, .00059, .00003, .00000, .00000,
3733 + .00000, .00000, .00000,
3734 + .00262, .00052, .00002, .00000, .00000,
3735 + .00000, .00000, .00000,
3736 + .00236, .00047, .00002, .00000, .00000,
3737 + .00000, .00000, .00000,
3738 + .00211, .00042, .00002, .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 + .00191, .00038, .00001, .00000, .00000,
3742 + .00000, .00000, .00000,
3743 + .00174, .00035, .00001, .00000, .00000,
3744 + .00000, .00000, .00000,
3745 + .00162, .00032, .00001, .00000, .00000,
3746 + .00000, .00000, .00000,
3747 + .00139, .00027, .00001, .00000, .00000,
3748 + .00000, .00000, .00000,
3749 + .00121, .00024, .00001, .00000, .00000,
3750 + .00000, .00000, .00000,
3751 + .00105, .00021, .00001, .00000, .00000,
3752 + .00000, .00000, .00000,
3753 + .00090, .00018, .00000, .00000, .00000,
3754 + .00000, .00000, .00000,
3755 + .00079, .00015, .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 + .00069, .00014, .00000, .00000, .00000,
3759 + .00000, .00000, .00000,
3760 + .00061, .00012, .00000, .00000, .00000,
3761 + .00000, .00000, .00000,
3762 + .00054, .00011, .00000, .00000, .00000,
3763 + .00000, .00000, .00000,
3764 + .00048, .00009, .00000, .00000, .00000,
3765 + .00000, .00000, .00000,
3766 + .00043, .00008, .00000, .00000, .00000,
3767 + .00000, .00000, .00000,
3768 + .00038, .00007, .00000, .00000, .00000,
3769 + .00000, .00000, .00000,
3770 + .00033, .00007, .00000, .00000, .00000,
3771 + .00000, .00000, .00000,
3772 + .00029, .00006, .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 + .00026, .00005, .00000, .00000, .00000,
3776 + .00000, .00000, .00000,
3777 + .00024, .00005, .00000, .00000, .00000,
3778 + .00000, .00000, .00000,
3779 + .00021, .00004, .00000, .00000, .00000,
3780 + .00000, .00000, .00000,
3781 + .00019, .00004, .00000, .00000, .00000,
3782 + .00000, .00000, .00000,
3783 + .00017, .00003, .00000, .00000, .00000,
3784 + .00000, .00000, .00000,
3785 + .00016, .00003, .00000, .00000, .00000,
3786 + .00000, .00000, .00000,
3787 + .00014, .00003, .00000, .00000, .00000,
3788 + .00000, .00000, .00000,
3789 + .00013, .00003, .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 + .00012, .00002, .00000, .00000, .00000,
3793 + .00000, .00000, .00000,
3794 + .00011, .00002, .00000, .00000, .00000,
3795 + .00000, .00000, .00000,
3796 + .00010, .00002, .00000, .00000, .00000,
3797 + .00000, .00000, .00000,
3798 + .00010, .00002, .00000, .00000, .00000,
3799 + .00000, .00000, .00000,
3800 + .00009, .00002, .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,
3810 data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1,
3811 . 1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2,
3812 . 1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4,
3813 . 1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6,
3814 . 1.8d6,3.2d6,5.6d6,1d7/
3815 data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/
3816 data n0/3,4,5,9,9,9,9,9/
3817 DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
3822 if(init.ne.0) goto 10
3823 C open(unit=1,file='lo07a.dat',status='old')
3826 C read(1,50)f(1,n,m),f(2,n,m),f(3,n,m),f(4,n,m),
3827 C . f(5,n,m),f(7,n,m),f(6,n,m),f(8,n,m)
3828 c notation: 1=uval 2=val 3=glue 4=usea 5=chm 6=str 7=btm 8=dsea
3830 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i)
3833 xx(j)= log10(xx(j)/xx(ntenth))+xx(ntenth)
3835 if(i.eq.5.or.i.eq.7) goto 31
3837 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k)
3845 if(x.lt.xmin) x=xmin
3846 if(x.gt.xmax) x=xmax
3847 if(qsq.lt.qsqmin) qsq=qsqmin
3848 if(qsq.gt.qsqmax) qsq=qsqmax
3850 if(x.lt.xx(ntenth)) xxx= log10(x/xx(ntenth))+xx(ntenth)
3853 if(xxx.gt.xx(n+1)) goto 70
3854 a=(xxx-xx(n))/(xx(n+1)-xx(n))
3857 if(qsq.gt.qq(m+1)) goto 80
3858 b=(qsq-qq(m))/(qq(m+1)-qq(m))
3860 g(i)=(ONED-a)*(ONED-b)*f(i,n,m) + (ONED-a)*b*f(i,n,m+1)
3861 . + a*(ONED-b)*f(i,n+1,m) + a*b*f(i,n+1,m+1)
3862 if(n.ge.ntenth) goto 65
3863 if(i.eq.5.or.i.eq.7) goto 65
3864 fac=(ONED-b)*f(i,ntenth,m)+b*f(i,ntenth,m+1)
3865 g(i)=fac*10d0**(g(i)-fac)
3867 g(i)=g(i)*(ONED-x)**n0(i)
git://git.uio.no / u / mrichter / AliRoot.git / blob