]> git.uio.no Git - u/mrichter/AliRoot.git/blame - PDF/spdf/sfmrsc1.F
git://git.uio.no / u / mrichter / AliRoot.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
New methods and data member added by M. Horner.
[u/mrichter/AliRoot.git] / PDF / spdf / sfmrsc1.F
CommitLineData
21886bb6 1#include "pdf/pilot.h"
2 subroutine sfmrsc1(x,qsq,upv,dnv,usea,dsea,str,chm,bot,glu)
3C
4#include "pdf/impdp.inc"
5C
6 parameter(nx=49,nq=37,ntenth=23,np=8)
7C
8#include "pdf/expdp.inc"
9 + f(np,nx,nq+1),qq(nq),xx(nx),g(np),n0(np)
10 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,8)/
11 + .00258, .00689, 1.15756, .85917, .00000,
12 + .00000, .45861, .86447,
13 + .00277, .00697, 2.45491, .89755, .00000,
14 + .00000, .50143, .90332,
15 + .00305, .00710, 5.00214, .97862, .03883,
16 + .00000, .58883, .98505,
17 + .00325, .00720, 7.45487, 1.05580, .12956,
18 + .00000, .67047, 1.06269,
19 + .00347, .00730, 10.58622, 1.15694, .23121,
20 + .00000, .77619, 1.16431,
21 + .00365, .00739, 13.79342, 1.26105, .33535,
22 + .00000, .88415, 1.26881,
23 + .00383, .00747, 17.40199, 1.37491, .45323,
24 + .00000, 1.00161, 1.38304,
25 + .00403, .00756, 21.83961, 1.51190, .59680,
26 + .00000, 1.14233, 1.52040 /
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 + .00419, .00764, 26.15555, 1.64646, .73333,
29 + .00000, 1.28008, 1.65528,
30 + .00436, .00772, 30.78736, 1.78966, .87873,
31 + .00000, 1.42629, 1.79877,
32 + .00449, .00778, 34.84520, 1.91252, 1.00559,
33 + .00000, 1.55151, 1.92187,
34 + .00477, .00791, 44.35209, 2.20527, 1.30218,
35 + .02790, 1.84916, 2.21509,
36 + .00501, .00803, 53.53778, 2.49124, 1.58862,
37 + .43777, 2.13925, 2.50144,
38 + .00528, .00816, 65.16561, 2.85113, 1.94887,
39 + .92169, 2.50364, 2.86175,
40 + .00557, .00830, 78.83840, 3.27204, 2.36894,
41 + 1.40603, 2.92910, 3.28307,
42 + .00583, .00842, 92.66468, 3.69669, 2.79204,
43 + 1.87894, 3.35778, 3.70808 /
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 + .00610, .00855, 108.03751, 4.16874, 3.26245,
46 + 2.39043, 3.83380, 4.18047,
47 + .00632, .00866, 121.83418, 4.59440, 3.68530,
48 + 2.83803, 4.26268, 4.60640,
49 + .00659, .00879, 139.82239, 5.15245, 4.23885,
50 + 3.41596, 4.82456, 5.16476,
51 + .00684, .00891, 157.00899, 5.68684, 4.77028,
52 + 3.96912, 5.36226, 5.69941,
53 + .00706, .00902, 173.83554, 6.21179, 5.29311,
54 + 4.51096, 5.89018, 6.22460,
55 + .00735, .00916, 196.37132, 6.92284, 5.99891,
56 + 5.23403, 6.60494, 6.93593,
57 + .00762, .00929, 219.04234, 7.64210, 6.71438,
58 + 5.96712, 7.32760, 7.65544,
59 + .00788, .00942, 241.68716, 8.36356, 7.43400,
60 + 6.70545, 8.05218, 8.37712 /
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 + .00814, .00955, 265.19839, 9.12356, 8.18918,
63 + 7.47361, 8.81525, 9.13733,
64 + .00840, .00968, 289.51141, 9.91323, 8.97595,
65 + 8.27607, 9.60786, 9.92720,
66 + .00864, .00980, 313.61917, 10.70199, 9.76245,
67 + 9.07790, 10.39936, 10.71614,
68 + .00887, .00991, 337.06161, 11.47762, 10.53480,
69 + 9.86281, 11.17753, 11.49193,
70 + .00911, .01003, 361.78699, 12.29847, 11.35442,
71 + 10.69809, 12.00088, 12.31293,
72 + .00934, .01014, 386.60083, 13.13369, 12.18624,
73 + 11.54200, 12.83853, 13.14830,
74 + .00956, .01025, 411.34216, 13.96836, 13.02006,
75 + 12.39083, 13.67547, 13.98310,
76 + .00977, .01036, 435.05972, 14.77948, 13.82837,
77 + 13.21030, 14.48872, 14.79434 /
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 + .00999, .01047, 459.96515, 15.63393, 14.68177,
80 + 14.07748, 15.34527, 15.64891,
81 + .01020, .01057, 484.99625, 16.50177, 15.54774,
82 + 14.95579, 16.21516, 16.51685,
83 + .01041, .01068, 509.54715, 17.35859, 16.40320,
84 + 15.82355, 17.07392, 17.37377,
85 + .01060, .01077, 533.52081, 18.19968, 17.24384,
86 + 16.67700, 17.91682, 18.21495,
87 + .01080, .01087, 557.95074, 19.06711, 18.10931,
88 + 17.55329, 18.78606, 19.08246 /
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 + .00427, .00843, 1.07802, .74050, .00000,
91 + .00000, .39486, .74465,
92 + .00452, .00855, 2.24945, .77534, .00000,
93 + .00000, .43329, .77979,
94 + .00490, .00874, 4.49760, .84642, .03390,
95 + .00000, .50946, .85128,
96 + .00518, .00887, 6.61525, .91264, .11244,
97 + .00000, .57927, .91780,
98 + .00547, .00902, 9.27112, .99803, .19869,
99 + .00000, .66834, 1.00349,
100 + .00573, .00914, 11.94867, 1.08482, .28588,
101 + .00000, .75821, 1.09053,
102 + .00597, .00926, 14.92269, 1.17890, .38351,
103 + .00000, .85518, 1.18484,
104 + .00624, .00939, 18.53436, 1.29115, .50119,
105 + .00000, .97041, 1.29733 /
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 + .00646, .00950, 22.00469, 1.40044, .61196,
108 + .00000, 1.08224, 1.40682,
109 + .00669, .00961, 25.69129, 1.51591, .72898,
110 + .00000, 1.20012, 1.52248,
111 + .00686, .00970, 28.89443, 1.61444, .83043,
112 + .00000, 1.30053, 1.62116,
113 + .00724, .00988, 36.30473, 1.84719, 1.06533,
114 + .02281, 1.53718, 1.85421,
115 + .00757, .01005, 43.35494, 2.07221, 1.28969,
116 + .34501, 1.76547, 2.07947,
117 + .00794, .01023, 52.16318, 2.35268, 1.56903,
118 + .72210, 2.04951, 2.36022,
119 + .00833, .01042, 62.38201, 2.67740, 1.89134,
120 + 1.09399, 2.37784, 2.68520,
121 + .00868, .01059, 72.58606, 3.00189, 2.21283,
122 + 1.45315, 2.70552, 3.00993 /
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 + .00904, .01077, 83.80127, 3.35943, 2.56710,
125 + 1.83775, 3.06620, 3.36769,
126 + .00934, .01092, 93.76221, 3.67924, 2.88298,
127 + 2.17134, 3.38856, 3.68768,
128 + .00971, .01110, 106.61810, 4.09524, 3.29327,
129 + 2.59850, 3.80757, 4.10388,
130 + .01004, .01126, 118.78059, 4.49051, 3.68417,
131 + 3.00421, 4.20547, 4.49933,
132 + .01034, .01141, 130.58595, 4.87617, 4.06619,
133 + 3.39894, 4.59348, 4.88515,
134 + .01072, .01160, 146.24445, 5.39461, 4.57800,
135 + 3.92154, 5.11483, 5.40377,
136 + .01109, .01178, 161.84636, 5.91501, 5.09296,
137 + 4.44747, 5.63792, 5.92434,
138 + .01143, .01195, 177.29677, 6.43339, 5.60744,
139 + 4.97371, 6.15876, 6.44287 /
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 + .01178, .01212, 193.19324, 6.97560, 6.14349,
142 + 5.51713, 6.70339, 6.98523,
143 + .01212, .01229, 209.50439, 7.53540, 6.69856,
144 + 6.08148, 7.26551, 7.54517,
145 + .01245, .01246, 225.55603, 8.09116, 7.25014,
146 + 6.64207, 7.82342, 8.10105,
147 + .01276, .01261, 241.04805, 8.63442, 7.78860,
148 + 7.18754, 8.36868, 8.64442,
149 + .01307, .01276, 257.28693, 9.20637, 8.35721,
150 + 7.76530, 8.94260, 9.21648,
151 + .01338, .01292, 273.46436, 9.78500, 8.93093,
152 + 8.34553, 9.52314, 9.79521,
153 + .01368, .01306, 289.50620, 10.36054, 9.50351,
154 + 8.92675, 10.10048, 10.37085,
155 + .01396, .01321, 304.78027, 10.91693, 10.05563,
156 + 9.48477, 10.65854, 10.92733 /
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 + .01424, .01335, 320.73999, 11.50057, 10.63622,
159 + 10.07307, 11.24383, 11.51104,
160 + .01453, .01349, 336.68365, 12.09050, 11.22255,
161 + 10.66604, 11.83539, 12.10106,
162 + .01480, .01362, 352.24097, 12.67049, 11.79939,
163 + 11.24951, 12.41690, 12.68112,
164 + .01506, .01375, 367.36096, 13.23759, 12.36409,
165 + 11.82127, 12.98542, 13.24828,
166 + .01532, .01389, 382.68192, 13.81989, 12.94289,
167 + 12.40563, 13.56916, 13.83065 /
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 + .00670, .01031, 1.00523, .63782, .00000,
170 + .00000, .33999, .64116,
171 + .00706, .01049, 2.06267, .66935, .00000,
172 + .00000, .37442, .67286,
173 + .00758, .01076, 4.04541, .73161, .02960,
174 + .00000, .44080, .73537,
175 + .00796, .01095, 5.87140, .78839, .09758,
176 + .00000, .50047, .79232,
177 + .00836, .01115, 8.12017, .86041, .17072,
178 + .00000, .57544, .86451,
179 + .00871, .01133, 10.35087, .93265, .24367,
180 + .00000, .65015, .93690,
181 + .00905, .01149, 12.79614, 1.01024, .32446,
182 + .00000, .73006, 1.01463,
183 + .00941, .01167, 15.72787, 1.10201, .42081,
184 + .00000, .82421, 1.10654 /
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 + .00972, .01183, 18.51008, 1.19053, .51057,
187 + .00000, .91476, 1.19518,
188 + .01002, .01198, 21.43510, 1.28338, .60461,
189 + .00000, 1.00953, 1.28814,
190 + .01027, .01210, 23.95523, 1.36216, .68560,
191 + .00000, 1.08980, 1.36701,
192 + .01078, .01236, 29.71019, 1.54657, .87131,
193 + .01864, 1.27732, 1.55160,
194 + .01123, .01258, 35.09890, 1.72296, 1.04669,
195 + .27178, 1.45631, 1.72814,
196 + .01173, .01283, 41.74166, 1.94068, 1.26280,
197 + .56546, 1.67686, 1.94602,
198 + .01226, .01309, 49.34293, 2.19013, 1.50949,
199 + .85080, 1.92917, 2.19564,
200 + .01274, .01333, 56.83593, 2.43698, 1.75312,
201 + 1.12328, 2.17854, 2.44263 /
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 + .01322, .01357, 64.97485, 2.70653, 2.01916,
204 + 1.41212, 2.45057, 2.71231,
205 + .01363, .01377, 72.12663, 2.94567, 2.25442,
206 + 1.66037, 2.69172, 2.95156,
207 + .01413, .01402, 81.26118, 3.25422, 2.55754,
208 + 1.97557, 3.00266, 3.26025,
209 + .01457, .01424, 89.81630, 3.54512, 2.84411,
210 + 2.27260, 3.29561, 3.55125,
211 + .01497, .01444, 98.04717, 3.82697, 3.12226,
212 + 2.55958, 3.57931, 3.83320,
213 + .01549, .01470, 108.85589, 4.20294, 3.49202,
214 + 2.93644, 3.95758, 4.20929,
215 + .01598, .01494, 119.51986, 4.57740, 3.86123,
216 + 3.31285, 4.33415, 4.58387,
217 + .01645, .01517, 129.98756, 4.94778, 4.22759,
218 + 3.68695, 4.70647, 4.95435 /
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 + .01691, .01540, 140.65654, 5.33239, 4.60650,
221 + 4.07029, 5.09297, 5.33905,
222 + .01737, .01563, 151.51668, 5.72692, 4.99642,
223 + 4.46601, 5.48932, 5.73367,
224 + .01780, .01584, 162.12126, 6.11616, 5.38153,
225 + 4.85673, 5.88026, 6.12300,
226 + .01821, .01605, 172.27634, 6.49435, 5.75520,
227 + 5.23453, 6.26001, 6.50126,
228 + .01863, .01625, 182.85405, 6.89043, 6.14783,
229 + 5.63282, 6.65764, 6.89742,
230 + .01904, .01646, 193.31027, 7.28876, 6.54160,
231 + 6.03029, 7.05747, 7.29583,
232 + .01944, .01665, 203.62137, 7.68310, 6.93285,
233 + 6.42681, 7.45322, 7.69023,
234 + .01981, .01684, 213.36905, 8.06227, 7.30804,
235 + 6.80530, 7.83369, 8.06946 /
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 + .02019, .01703, 223.50320, 8.45830, 7.70099,
238 + 7.20281, 8.23103, 8.46555,
239 + .02056, .01721, 233.56284, 8.85665, 8.09587,
240 + 7.60147, 8.63064, 8.86396,
241 + .02093, .01739, 243.32642, 9.24658, 8.48272,
242 + 7.99211, 9.02177, 9.25395,
243 + .02127, .01756, 252.76994, 9.62634, 8.85997,
244 + 8.37348, 9.40265, 9.63375,
245 + .02162, .01773, 262.28101, 10.01451, 9.24485,
246 + 8.76138, 9.79194, 10.02197 /
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 + .00859, .01161, .96599, .58427, .00000,
249 + .00000, .31152, .58730,
250 + .00902, .01183, 1.96188, .61395, .00000,
251 + .00000, .34378, .61711,
252 + .00965, .01215, 3.80341, .67154, .02734,
253 + .00000, .40501, .67487,
254 + .01011, .01238, 5.47664, .72341, .08981,
255 + .00000, .45943, .72686,
256 + .01060, .01263, 7.51494, .78855, .15621,
257 + .00000, .52718, .79213,
258 + .01102, .01284, 9.51737, .85339, .22190,
259 + .00000, .59419, .85707,
260 + .01143, .01305, 11.69522, .92264, .29419,
261 + .00000, .66547, .92641,
262 + .01186, .01326, 14.28643, 1.00410, .37984,
263 + .00000, .74904, 1.00798 /
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 + .01224, .01345, 16.72726, 1.08224, .45915,
266 + .00000, .82896, 1.08621,
267 + .01260, .01363, 19.27749, 1.16383, .54183,
268 + .00000, .91224, 1.16788,
269 + .01289, .01378, 21.46373, 1.23283, .61276,
270 + .00000, .98255, 1.23694,
271 + .01351, .01409, 26.41743, 1.39347, .77445,
272 + .01655, 1.14591, 1.39771,
273 + .01404, .01435, 31.01151, 1.54614, .92612,
274 + .23630, 1.30085, 1.55049,
275 + .01465, .01466, 36.62952, 1.73346, 1.11187,
276 + .48991, 1.49066, 1.73793,
277 + .01528, .01497, 43.00559, 1.94676, 1.32255,
278 + .73414, 1.70645, 1.95135,
279 + .01585, .01526, 49.24252, 2.15660, 1.52937,
280 + .96581, 1.91850, 2.16130 /
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 + .01643, .01554, 55.96951, 2.38451, 1.75401,
283 + 1.20991, 2.14857, 2.38931,
284 + .01692, .01579, 61.84280, 2.58572, 1.95168,
285 + 1.41856, 2.35153, 2.59060,
286 + .01751, .01608, 69.29768, 2.84409, 2.20514,
287 + 1.68215, 2.61198, 2.84908,
288 + .01804, .01634, 76.23763, 3.08654, 2.44366,
289 + 1.92937, 2.85623, 3.09161,
290 + .01852, .01658, 82.87928, 3.32049, 2.67423,
291 + 2.16724, 3.09178, 3.32563,
292 + .01914, .01689, 91.54856, 3.63111, 2.97932,
293 + 2.47808, 3.40440, 3.63635,
294 + .01972, .01718, 100.05138, 3.93906, 3.28257,
295 + 2.78714, 3.71419, 3.94438,
296 + .02027, .01745, 108.35376, 4.24238, 3.58224,
297 + 3.09309, 4.01919, 4.24778 /
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 + .02082, .01772, 116.76727, 4.55598, 3.89082,
300 + 3.40513, 4.33443, 4.56146,
301 + .02136, .01799, 125.29080, 4.87644, 4.20719,
302 + 3.72609, 4.65648, 4.88199,
303 + .02188, .01824, 133.57477, 5.19144, 4.51853,
304 + 4.04184, 4.97295, 5.19706,
305 + .02237, .01849, 141.46996, 5.49638, 4.81950,
306 + 4.34602, 5.27924, 5.50206,
307 + .02286, .01873, 149.66286, 5.81475, 5.13482,
308 + 4.66578, 5.59897, 5.82051,
309 + .02334, .01897, 157.72319, 6.13381, 5.44990,
310 + 4.98368, 5.91932, 6.13962,
311 + .02381, .01920, 165.64557, 6.44878, 5.76215,
312 + 5.30004, 6.23552, 6.45465,
313 + .02425, .01942, 173.10184, 6.75065, 6.06058,
314 + 5.60094, 6.53852, 6.75657 /
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 + .02470, .01964, 180.83054, 7.06514, 6.37238,
317 + 5.91627, 6.85415, 7.07112,
318 + .02514, .01986, 188.47260, 7.38055, 6.68479,
319 + 6.23154, 7.17066, 7.38657,
320 + .02556, .02007, 195.86577, 7.68850, 6.99006,
321 + 6.53969, 7.47964, 7.69457,
322 + .02597, .02027, 202.99579, 7.98769, 7.28709,
323 + 6.83988, 7.77981, 7.99381,
324 + .02638, .02047, 210.14963, 8.29269, 7.58926,
325 + 7.14430, 8.08578, 8.29885 /
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 + .01019, .01264, .93978, .54889, .00000,
328 + .00000, .29279, .55180,
329 + .01068, .01289, 1.89415, .57732, .00000,
330 + .00000, .32358, .58032,
331 + .01140, .01325, 3.64130, .63179, .02584,
332 + .00000, .38139, .63492,
333 + .01193, .01352, 5.21337, .68041, .08467,
334 + .00000, .43237, .68364,
335 + .01249, .01380, 7.11347, .74107, .14665,
336 + .00000, .49540, .74439,
337 + .01297, .01405, 8.96714, .80108, .20763,
338 + .00000, .55741, .80448,
339 + .01344, .01428, 10.97180, .86492, .27441,
340 + .00000, .62311, .86841,
341 + .01393, .01453, 13.34384, .93973, .35317,
342 + .00000, .69985, .94330 /
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 + .01436, .01474, 15.56627, 1.01120, .42578,
345 + .00000, .77295, 1.01483,
346 + .01477, .01495, 17.87793, 1.08558, .50121,
347 + .00000, .84887, 1.08928,
348 + .01510, .01511, 19.85252, 1.14833, .56573,
349 + .00000, .91281, 1.15208,
350 + .01581, .01546, 24.30153, 1.29384, .71221,
351 + .01522, 1.06081, 1.29770,
352 + .01642, .01577, 28.39886, 1.43149, .84895,
353 + .21391, 1.20053, 1.43544,
354 + .01710, .01611, 33.38058, 1.59967, 1.01566,
355 + .44240, 1.37097, 1.60372,
356 + .01782, .01647, 39.00112, 1.79031, 1.20388,
357 + .66102, 1.56389, 1.79445,
358 + .01847, .01679, 44.46851, 1.97707, 1.38786,
359 + .86741, 1.75266, 1.98130 /
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 + .01913, .01712, 50.33555, 2.17914, 1.58692,
362 + 1.08393, 1.95669, 2.18345,
363 + .01968, .01739, 55.43434, 2.35689, 1.76146,
364 + 1.26828, 2.13604, 2.36128,
365 + .02035, .01773, 61.87690, 2.58438, 1.98448,
366 + 1.50032, 2.36541, 2.58885,
367 + .02095, .01802, 67.84845, 2.79711, 2.19366,
368 + 1.71721, 2.57978, 2.80166,
369 + .02150, .01829, 73.54152, 3.00178, 2.39528,
370 + 1.92527, 2.78591, 3.00639,
371 + .02220, .01864, 80.94009, 3.27263, 2.66116,
372 + 2.19620, 3.05858, 3.27732,
373 + .02286, .01897, 88.16562, 3.54026, 2.92458,
374 + 2.46471, 3.32787, 3.54502,
375 + .02348, .01927, 95.19398, 3.80307, 3.18413,
376 + 2.72974, 3.59220, 3.80790 /
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 + .02410, .01958, 102.28668, 4.07394, 3.45054,
379 + 2.99914, 3.86457, 4.07884,
380 + .02471, .01988, 109.44725, 4.34997, 3.72295,
381 + 3.27552, 4.14203, 4.35494,
382 + .02529, .02017, 116.38294, 4.62058, 3.99031,
383 + 3.54671, 4.41397, 4.62561,
384 + .02584, .02044, 122.97027, 4.88185, 4.24810,
385 + 3.80724, 4.67648, 4.88694,
386 + .02640, .02071, 129.78745, 5.15404, 4.51760,
387 + 4.08057, 4.94989, 5.15919,
388 + .02694, .02098, 136.47078, 5.42610, 4.78619,
389 + 4.35155, 5.22313, 5.43130,
390 + .02747, .02124, 143.02425, 5.69415, 5.05186,
391 + 4.62075, 5.49229, 5.69940,
392 + .02796, .02149, 149.17210, 5.95044, 5.30515,
393 + 4.87615, 5.74960, 5.95574 /
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 + .02846, .02173, 155.53069, 6.21696, 5.56934,
396 + 5.14335, 6.01715, 6.22231,
397 + .02896, .02198, 161.80014, 6.48369, 5.83347,
398 + 5.40990, 6.28488, 6.48909,
399 + .02944, .02221, 167.85104, 6.74363, 6.09111,
400 + 5.66998, 6.54575, 6.74907,
401 + .02989, .02244, 173.67413, 6.99575, 6.34137,
402 + 5.92293, 6.79876, 7.00123,
403 + .03035, .02266, 179.50040, 7.25224, 6.59544,
404 + 6.17889, 7.05613, 7.25777 /
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 + .01160, .01350, .92047, .52287, .00000,
407 + .00000, .27905, .52572,
408 + .01215, .01378, 1.84385, .55034, .00000,
409 + .00000, .30874, .55327,
410 + .01295, .01418, 3.52090, .60249, .02474,
411 + .00000, .36403, .60553,
412 + .01354, .01448, 5.01839, .64873, .08089,
413 + .00000, .41247, .65186,
414 + .01416, .01479, 6.81721, .70610, .13964,
415 + .00000, .47207, .70931,
416 + .01469, .01506, 8.56244, .76260, .19718,
417 + .00000, .53043, .76588,
418 + .01521, .01532, 10.44146, .82252, .25997,
419 + .00000, .59209, .82586,
420 + .01575, .01559, 12.65523, .89251, .33375,
421 + .00000, .66389, .89593 /
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 + .01623, .01583, 14.72062, .95917, .40154,
424 + .00000, .73207, .96264,
425 + .01669, .01606, 16.86141, 1.02836, .47176,
426 + .00000, .80270, 1.03189,
427 + .01705, .01624, 18.68488, 1.08662, .53170,
428 + .00000, .86208, 1.09019,
429 + .01783, .01663, 22.77517, 1.22130, .66732,
430 + .01425, .99908, 1.22497,
431 + .01851, .01697, 26.52146, 1.34824, .79343,
432 + .19798, 1.12795, 1.35198,
433 + .01927, .01734, 31.05574, 1.50282, .94666,
434 + .40865, 1.28464, 1.50665,
435 + .02006, .01774, 36.14773, 1.67742, 1.11903,
436 + .60922, 1.46136, 1.68133,
437 + .02078, .01809, 41.07930, 1.84791, 1.28696,
438 + .79786, 1.63371, 1.85190 /
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 + .02151, .01846, 46.35024, 2.03180, 1.46810,
441 + .99508, 1.81944, 2.03587,
442 + .02212, .01876, 50.91429, 2.19313, 1.62647,
443 + 1.16248, 1.98225, 2.19726,
444 + .02285, .01912, 56.66069, 2.39902, 1.82830,
445 + 1.37258, 2.18990, 2.40322,
446 + .02351, .01945, 61.96870, 2.59106, 2.01710,
447 + 1.56844, 2.38346, 2.59533,
448 + .02411, .01975, 67.01392, 2.77539, 2.19866,
449 + 1.75589, 2.56915, 2.77972,
450 + .02488, .02013, 73.54794, 3.01869, 2.43746,
451 + 1.99930, 2.81414, 3.02310,
452 + .02561, .02048, 79.90766, 3.25847, 2.67344,
453 + 2.23992, 3.05546, 3.26294,
454 + .02629, .02082, 86.07531, 3.49337, 2.90542,
455 + 2.47687, 3.29178, 3.49791 /
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 + .02697, .02116, 92.27869, 3.73488, 3.14292,
458 + 2.71710, 3.53468, 3.73949,
459 + .02764, .02149, 98.52441, 3.98047, 3.38527,
460 + 2.96305, 3.78160, 3.98514,
461 + .02828, .02180, 104.55782, 4.22073, 3.62264,
462 + 3.20388, 4.02310, 4.22546,
463 + .02888, .02210, 110.27225, 4.45222, 3.85103,
464 + 3.43475, 4.25574, 4.45700,
465 + .02949, .02240, 116.17352, 4.69297, 4.08940,
466 + 3.67658, 4.49761, 4.69780,
467 + .03009, .02270, 121.94275, 4.93311, 4.32647,
468 + 3.91581, 4.73885, 4.93800,
469 + .03067, .02298, 127.58935, 5.16934, 4.56062,
470 + 4.15314, 4.97611, 5.17428,
471 + .03121, .02324, 132.87256, 5.39479, 4.78343,
472 + 4.37784, 5.20251, 5.39977 /
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 + .03176, .02351, 138.32784, 5.62891, 5.01552,
475 + 4.61263, 5.43759, 5.63394,
476 + .03230, .02378, 143.69402, 5.86281, 5.24715,
477 + 4.84644, 5.67241, 5.86789,
478 + .03282, .02404, 148.86365, 6.09043, 5.47277,
479 + 5.07425, 5.90090, 6.09555,
480 + .03332, .02428, 153.83031, 6.31090, 5.69164,
481 + 5.29554, 6.12220, 6.31607,
482 + .03382, .02453, 158.78842, 6.53485, 5.91349,
483 + 5.51907, 6.34696, 6.54006 /
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 + .01714, .01661, .86720, .44922, .00000,
486 + .00000, .24041, .45224,
487 + .01790, .01699, 1.70058, .47386, .00000,
488 + .00000, .26689, .47694,
489 + .01902, .01754, 3.17604, .51935, .02159,
490 + .00000, .31498, .52251,
491 + .01984, .01795, 4.46154, .55885, .07015,
492 + .00000, .35630, .56207,
493 + .02070, .01838, 5.97551, .60700, .11987,
494 + .00000, .40629, .61028,
495 + .02144, .01874, 7.41880, .65374, .16786,
496 + .00000, .45457, .65708,
497 + .02215, .01910, 8.95078, .70281, .21963,
498 + .00000, .50507, .70620,
499 + .02290, .01947, 10.73095, .75957, .27977,
500 + .00000, .56332, .76302 /
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 + .02356, .01979, 12.36952, .81306, .33441,
503 + .00000, .61806, .81656,
504 + .02419, .02011, 14.04892, .86814, .39051,
505 + .00000, .67432, .87168,
506 + .02469, .02035, 15.46656, .91423, .43806,
507 + .00000, .72132, .91781,
508 + .02576, .02088, 18.60147, 1.01971, .54453,
509 + .01161, .82871, 1.02337,
510 + .02669, .02134, 21.42215, 1.11796, .64234,
511 + .15541, .92854, 1.12168,
512 + .02772, .02185, 24.78696, 1.23634, .75987,
513 + .31882, 1.04864, 1.24014,
514 + .02880, .02238, 28.50984, 1.36854, .89056,
515 + .47195, 1.18258, 1.37242,
516 + .02978, .02286, 32.06524, 1.49628, 1.01654,
517 + .61425, 1.31184, 1.50023 /
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 + .03077, .02335, 35.81694, 1.63274, 1.15110,
520 + .76141, 1.44979, 1.63676,
521 + .03159, .02375, 39.02758, 1.75139, 1.26771,
522 + .88511, 1.56965, 1.75548,
523 + .03259, .02425, 43.02390, 1.90153, 1.41502,
524 + 1.03893, 1.72122, 1.90568,
525 + .03348, .02468, 46.67496, 2.04040, 1.55169,
526 + 1.18112, 1.86132, 2.04462,
527 + .03429, .02508, 50.11185, 2.17271, 1.68216,
528 + 1.31619, 1.99473, 2.17699,
529 + .03532, .02559, 54.51323, 2.34589, 1.85231,
530 + 1.49002, 2.16929, 2.35025,
531 + .03629, .02606, 58.75096, 2.51516, 2.01908,
532 + 1.66045, 2.33981, 2.51958,
533 + .03721, .02651, 62.82129, 2.67975, 2.18183,
534 + 1.82709, 2.50555, 2.68425 /
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 + .03812, .02696, 66.87081, 2.84764, 2.34711,
537 + 1.99458, 2.67456, 2.85220,
538 + .03902, .02740, 70.91238, 3.01720, 2.51464,
539 + 2.16496, 2.84520, 3.02182,
540 + .03987, .02781, 74.78267, 3.18198, 2.67765,
541 + 2.33069, 3.01099, 3.18667,
542 + .04067, .02821, 78.41530, 3.33970, 2.83345,
543 + 2.48848, 3.16963, 3.34445,
544 + .04148, .02860, 82.14119, 3.50282, 2.99520,
545 + 2.65292, 3.33368, 3.50764,
546 + .04227, .02899, 85.75004, 3.66447, 3.15497,
547 + 2.81444, 3.49622, 3.66934,
548 + .04303, .02936, 89.26144, 3.82272, 3.31206,
549 + 2.97399, 3.65529, 3.82765,
550 + .04375, .02971, 92.51823, 3.97283, 3.46060,
551 + 3.12405, 3.80617, 3.97781 /
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 + .04448, .03007, 95.86295, 4.12802, 3.61468,
554 + 3.28023, 3.96214, 4.13305,
555 + .04520, .03042, 99.12802, 4.28222, 3.76760,
556 + 3.43489, 4.11709, 4.28731,
557 + .04588, .03075, 102.25430, 4.43158, 3.91588,
558 + 3.58488, 4.26716, 4.43673,
559 + .04654, .03107, 105.24154, 4.57565, 4.05913,
560 + 3.72999, 4.41189, 4.58084,
561 + .04720, .03139, 108.20094, 4.72123, 4.20355,
562 + 3.87576, 4.55814, 4.72647 /
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 + .02498, .02056, .82761, .38541, .00000,
565 + .00000, .20727, .38912,
566 + .02604, .02108, 1.57987, .40739, .00000,
567 + .00000, .23081, .41118,
568 + .02760, .02184, 2.87531, .44691, .01883,
569 + .00000, .27254, .45081,
570 + .02874, .02239, 3.97475, .48051, .06080,
571 + .00000, .30769, .48451,
572 + .02993, .02297, 5.24281, .52075, .10278,
573 + .00000, .34950, .52484,
574 + .03096, .02347, 6.42935, .55923, .14269,
575 + .00000, .38927, .56339,
576 + .03194, .02395, 7.67002, .59918, .18523,
577 + .00000, .43045, .60342,
578 + .03298, .02446, 9.09078, .64493, .23404,
579 + .00000, .47745, .64924 /
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 + .03388, .02490, 10.37995, .68756, .27787,
582 + .00000, .52114, .69194,
583 + .03475, .02532, 11.68564, .73107, .32246,
584 + .00000, .56565, .73552,
585 + .03544, .02566, 12.77741, .76725, .35998,
586 + .00000, .60260, .77175,
587 + .03690, .02637, 15.15519, .84917, .44306,
588 + .00942, .68614, .85378,
589 + .03816, .02698, 17.25403, .92453, .51841,
590 + .12145, .76283, .92923,
591 + .03957, .02767, 19.71958, 1.01430, .60790,
592 + .24759, .85407, 1.01912,
593 + .04104, .02839, 22.40486, 1.11338, .70622,
594 + .36383, .95461, 1.11831,
595 + .04237, .02903, 24.93139, 1.20805, .79992,
596 + .47050, 1.05057, 1.21308 /
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 + .04371, .02969, 27.56135, 1.30816, .89899,
599 + .57957, 1.15194, 1.31330,
600 + .04482, .03023, 29.78394, 1.39441, .98404,
601 + .67030, 1.23921, 1.39963,
602 + .04617, .03088, 32.51666, 1.50254, 1.09051,
603 + .78205, 1.34855, 1.50787,
604 + .04736, .03146, 34.98410, 1.60169, 1.18842,
605 + .88443, 1.44874, 1.60711,
606 + .04845, .03199, 37.28289, 1.69542, 1.28118,
607 + .98091, 1.54342, 1.70093,
608 + .04983, .03267, 40.19109, 1.81704, 1.40107,
609 + 1.10392, 1.66619, 1.82265,
610 + .05113, .03330, 42.95868, 1.93487, 1.51756,
611 + 1.22350, 1.78508, 1.94059,
612 + .05235, .03389, 45.58954, 2.04856, 1.63038,
613 + 1.33952, 1.89975, 2.05438 /
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 + .05357, .03448, 48.17566, 2.16355, 1.74396,
616 + 1.45508, 2.01569, 2.16946,
617 + .05476, .03506, 50.73244, 2.27886, 1.85828,
618 + 1.57183, 2.13191, 2.28486,
619 + .05588, .03561, 53.15782, 2.39013, 1.96876,
620 + 1.68461, 2.24404, 2.39623,
621 + .05694, .03612, 55.41137, 2.49589, 2.07358,
622 + 1.79119, 2.35058, 2.50208,
623 + .05801, .03664, 57.70598, 2.60465, 2.18182,
624 + 1.90169, 2.46013, 2.61093,
625 + .05906, .03715, 59.90518, 2.71167, 2.28796,
626 + 2.00940, 2.56789, 2.71803,
627 + .06006, .03764, 62.03185, 2.81591, 2.39181,
628 + 2.11532, 2.67284, 2.82235,
629 + .06100, .03809, 63.98450, 2.91414, 2.48935,
630 + 2.21423, 2.77172, 2.92065 /
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 + .06196, .03856, 65.97842, 3.01523, 2.59008,
633 + 2.31675, 2.87347, 3.02182,
634 + .06290, .03901, 67.90794, 3.11509, 2.68947,
635 + 2.41764, 2.97397, 3.12176,
636 + .06380, .03945, 69.74295, 3.21134, 2.78536,
637 + 2.51502, 3.07082, 3.21808,
638 + .06465, .03986, 71.48587, 3.30377, 2.87761,
639 + 2.60884, 3.16381, 3.31058,
640 + .06551, .04028, 73.19709, 3.39664, 2.97007,
641 + 2.70251, 3.25724, 3.40352 /
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 + .03101, .02342, .81394, .35219, .00000,
644 + .00000, .19014, .35657,
645 + .03230, .02404, 1.52241, .37270, .00000,
646 + .00000, .21208, .37718,
647 + .03420, .02495, 2.72090, .40899, .01738,
648 + .00000, .25041, .41364,
649 + .03557, .02562, 3.72145, .43948, .05588,
650 + .00000, .28232, .44425,
651 + .03701, .02631, 4.86050, .47559, .09385,
652 + .00000, .31987, .48048,
653 + .03825, .02691, 5.91403, .50980, .12960,
654 + .00000, .35528, .51479,
655 + .03943, .02748, 7.00534, .54509, .16741,
656 + .00000, .39170, .55019,
657 + .04068, .02809, 8.24377, .58524, .21049,
658 + .00000, .43300, .59044 /
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 + .04177, .02861, 9.35754, .62239, .24888,
661 + .00000, .47114, .62769,
662 + .04281, .02912, 10.47727, .66011, .28772,
663 + .00000, .50978, .66550,
664 + .04364, .02952, 11.40805, .69134, .32024,
665 + .00000, .54173, .69680,
666 + .04539, .03037, 13.41586, .76161, .39178,
667 + .00832, .61348, .76722,
668 + .04690, .03110, 15.16679, .82574, .45614,
669 + .10476, .67886, .83149,
670 + .04859, .03191, 17.20398, .90162, .53204,
671 + .21272, .75608, .90751,
672 + .05034, .03276, 19.40104, .98474, .61480,
673 + .31120, .84056, .99078,
674 + .05192, .03353, 21.44903, 1.06362, .69313,
675 + .40087, .92063, 1.06980 /
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 + .05352, .03430, 23.56273, 1.14651, .77542,
678 + .49192, 1.00469, 1.15283,
679 + .05484, .03494, 25.33495, 1.21751, .84565,
680 + .56717, 1.07664, 1.22394,
681 + .05644, .03572, 27.49710, 1.30603, .93308,
682 + .65930, 1.16627, 1.31260,
683 + .05785, .03640, 29.43495, 1.38675, 1.01304,
684 + .74325, 1.24796, 1.39345,
685 + .05914, .03703, 31.22861, 1.46270, 1.08844,
686 + .82197, 1.32479, 1.46951,
687 + .06077, .03782, 33.48008, 1.56071, 1.18534,
688 + .92176, 1.42386, 1.56766,
689 + .06231, .03856, 35.60687, 1.65515, 1.27900,
690 + 1.01824, 1.51929, 1.66223,
691 + .06374, .03926, 37.61542, 1.74584, 1.36928,
692 + 1.11143, 1.61089, 1.75305 /
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 + .06517, .03995, 39.57437, 1.83707, 1.45967,
695 + 1.20370, 1.70301, 1.84441,
696 + .06657, .04063, 41.49950, 1.92816, 1.55027,
697 + 1.29654, 1.79495, 1.93562,
698 + .06790, .04127, 43.31460, 2.01569, 1.63743,
699 + 1.38584, 1.88327, 2.02326,
700 + .06914, .04187, 44.98993, 2.09850, 1.71977,
701 + 1.46984, 1.96681, 2.10618,
702 + .07039, .04248, 46.68798, 2.18337, 1.80450,
703 + 1.55664, 2.05241, 2.19117,
704 + .07162, .04307, 48.30399, 2.26651, 1.88721,
705 + 1.64085, 2.13624, 2.27441,
706 + .07279, .04363, 49.86068, 2.34723, 1.96790,
707 + 1.72343, 2.21763, 2.35524,
708 + .07389, .04417, 51.28020, 2.42299, 2.04335,
709 + 1.80020, 2.29399, 2.43109 /
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 + .07500, .04470, 52.72455, 2.50073, 2.12107,
712 + 1.87957, 2.37235, 2.50893,
713 + .07609, .04523, 54.11400, 2.57724, 2.19746,
714 + 1.95738, 2.44946, 2.58554,
715 + .07714, .04574, 55.42947, 2.65076, 2.27095,
716 + 2.03227, 2.52354, 2.65915,
717 + .07813, .04622, 56.67415, 2.72117, 2.34145,
718 + 2.10421, 2.59447, 2.72964,
719 + .07913, .04670, 57.88851, 2.79165, 2.41185,
720 + 2.17577, 2.66548, 2.80022 /
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 + .03612, .02578, .81042, .33038, .00000,
723 + .00000, .17891, .33532,
724 + .03760, .02649, 1.48918, .34986, .00000,
725 + .00000, .19976, .35495,
726 + .03977, .02753, 2.62189, .38397, .01641,
727 + .00000, .23579, .38926,
728 + .04134, .02828, 3.55588, .41237, .05261,
729 + .00000, .26554, .41781,
730 + .04299, .02907, 4.60887, .44574, .08792,
731 + .00000, .30028, .45133,
732 + .04440, .02975, 5.57439, .47713, .12094,
733 + .00000, .33282, .48286,
734 + .04574, .03040, 6.56752, .50937, .15566,
735 + .00000, .36611, .51522,
736 + .04717, .03109, 7.68694, .54586, .19499,
737 + .00000, .40371, .55185 /
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 + .04841, .03168, 8.68701, .57947, .22986,
740 + .00000, .43824, .58557,
741 + .04959, .03226, 9.68689, .61344, .26498,
742 + .00000, .47309, .61966,
743 + .05053, .03271, 10.51439, .64149, .29429,
744 + .00000, .50183, .64780,
745 + .05253, .03367, 12.28661, .70429, .35843,
746 + .00759, .56604, .71079,
747 + .05424, .03450, 13.81793, .76128, .41580,
748 + .09408, .62421, .76793,
749 + .05615, .03542, 15.58688, .82835, .48309,
750 + .19049, .69256, .83519,
751 + .05813, .03638, 17.48065, .90143, .55605,
752 + .27775, .76693, .90845,
753 + .05992, .03725, 19.23361, .97042, .62475,
754 + .35676, .83706, .97761 /
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 + .06172, .03812, 21.03124, 1.04258, .69658,
757 + .43656, .91034, 1.04994,
758 + .06320, .03884, 22.52947, 1.10413, .75763,
759 + .50219, .97279, 1.11163,
760 + .06500, .03971, 24.34665, 1.18054, .83329,
761 + .58221, 1.05027, 1.18820,
762 + .06659, .04047, 25.96624, 1.24994, .90223,
763 + .65481, 1.12059, 1.25775,
764 + .06804, .04118, 27.45792, 1.31500, .96699,
765 + .72265, 1.18649, 1.32296,
766 + .06987, .04206, 29.31918, 1.39861, 1.04988,
767 + .80827, 1.27113, 1.40674,
768 + .07159, .04290, 31.06750, 1.47887, 1.12968,
769 + .89073, 1.35232, 1.48715,
770 + .07320, .04367, 32.71043, 1.55565, 1.20633,
771 + .97008, 1.42998, 1.56409 /
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 + .07480, .04445, 34.30303, 1.63260, 1.28276,
774 + 1.04834, 1.50777, 1.64118,
775 + .07637, .04520, 35.86103, 1.70916, 1.35912,
776 + 1.12682, 1.58515, 1.71789,
777 + .07784, .04592, 37.32309, 1.78250, 1.43235,
778 + 1.20208, 1.65925, 1.79136,
779 + .07923, .04659, 38.66558, 1.85165, 1.50129,
780 + 1.27262, 1.72910, 1.86065,
781 + .08063, .04726, 40.02157, 1.92234, 1.57207,
782 + 1.34534, 1.80049, 1.93147,
783 + .08199, .04792, 41.30480, 1.99135, 1.64090,
784 + 1.41563, 1.87017, 2.00060,
785 + .08329, .04855, 42.53736, 2.05821, 1.70792,
786 + 1.48443, 1.93766, 2.06758,
787 + .08451, .04914, 43.65517, 2.12074, 1.77038,
788 + 1.54817, 2.00079, 2.13023 /
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 + .08575, .04973, 44.78945, 2.18479, 1.83460,
791 + 1.61394, 2.06543, 2.19439,
792 + .08696, .05032, 45.87542, 2.24765, 1.89753,
793 + 1.67824, 2.12885, 2.25736,
794 + .08812, .05088, 46.90002, 2.30791, 1.95793,
795 + 1.73997, 2.18966, 2.31773,
796 + .08922, .05141, 47.86650, 2.36550, 2.01576,
797 + 1.79917, 2.24775, 2.37542,
798 + .09033, .05194, 48.80461, 2.42299, 2.07335,
799 + 1.85788, 2.30575, 2.43302 /
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 + .04072, .02792, .81565, .31464, .00000,
802 + .00000, .17064, .31990,
803 + .04236, .02871, 1.47099, .33334, .00000,
804 + .00000, .19062, .33875,
805 + .04476, .02986, 2.55299, .36579, .01568,
806 + .00000, .22489, .37142,
807 + .04650, .03070, 3.43621, .39260, .05016,
808 + .00000, .25298, .39841,
809 + .04831, .03158, 4.42385, .42392, .08348,
810 + .00000, .28558, .42989,
811 + .04987, .03234, 5.32298, .45321, .11446,
812 + .00000, .31595, .45934,
813 + .05136, .03306, 6.24241, .48317, .14688,
814 + .00000, .34691, .48943,
815 + .05293, .03382, 7.27292, .51696, .18344,
816 + .00000, .38174, .52337 /
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 + .05429, .03448, 8.18851, .54794, .21569,
819 + .00000, .41360, .55449,
820 + .05560, .03511, 9.09972, .57917, .24807,
821 + .00000, .44565, .58584,
822 + .05663, .03561, 9.85107, .60489, .27501,
823 + .00000, .47202, .61165,
824 + .05882, .03668, 11.45046, .66223, .33372,
825 + .00706, .53069, .66920,
826 + .06070, .03759, 12.82175, .71402, .38598,
827 + .08624, .58360, .72117,
828 + .06280, .03860, 14.39635, .77472, .44700,
829 + .17420, .64550, .78207,
830 + .06497, .03966, 16.07180, .84055, .51286,
831 + .25329, .71256, .84811,
832 + .06692, .04061, 17.61359, .90244, .57460,
833 + .32456, .77552, .91018 /
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 + .06889, .04156, 19.18614, .96692, .63892,
836 + .39623, .84106, .97486,
837 + .07052, .04235, 20.49016, 1.02172, .69337,
838 + .45495, .89672, 1.02981,
839 + .07248, .04331, 22.06402, 1.08952, .76064,
840 + .52627, .96553, 1.09779,
841 + .07421, .04415, 23.46020, 1.15089, .82171,
842 + .59077, 1.02777, 1.15933,
843 + .07579, .04491, 24.74079, 1.20826, .87893,
844 + .65086, 1.08593, 1.21685,
845 + .07779, .04588, 26.33048, 1.28173, .95190,
846 + .72641, 1.16037, 1.29050,
847 + .07966, .04679, 27.81655, 1.35201, 1.02192,
848 + .79894, 1.23155, 1.36096,
849 + .08141, .04764, 29.20715, 1.41905, 1.08898,
850 + .86855, 1.29942, 1.42817 /
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 + .08314, .04848, 30.54824, 1.48601, 1.15563,
853 + .93694, 1.36717, 1.49529,
854 + .08483, .04930, 31.85506, 1.55245, 1.22203,
855 + 1.00537, 1.43439, 1.56189,
856 + .08644, .05008, 33.07652, 1.61592, 1.28555,
857 + 1.07080, 1.49858, 1.62552,
858 + .08794, .05080, 34.19300, 1.67560, 1.34517,
859 + 1.13195, 1.55893, 1.68534,
860 + .08945, .05153, 35.31734, 1.73648, 1.40626,
861 + 1.19488, 1.62048, 1.74637,
862 + .09092, .05225, 36.37597, 1.79574, 1.46550,
863 + 1.25552, 1.68037, 1.80576,
864 + .09232, .05292, 37.39030, 1.85304, 1.52307,
865 + 1.31477, 1.73828, 1.86319,
866 + .09364, .05356, 38.30572, 1.90650, 1.57659,
867 + 1.36951, 1.79230, 1.91678 /
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 + .09497, .05421, 39.23249, 1.96116, 1.63151,
870 + 1.42591, 1.84752, 1.97156,
871 + .09628, .05484, 40.11618, 2.01467, 1.68521,
872 + 1.48091, 1.90157, 2.02519,
873 + .09753, .05544, 40.94746, 2.06587, 1.73666,
874 + 1.53363, 1.95329, 2.07651,
875 + .09871, .05601, 41.72955, 2.11471, 1.78583,
876 + 1.58410, 2.00262, 2.12547,
877 + .09990, .05658, 42.48520, 2.16336, 1.83468,
878 + 1.63402, 2.05175, 2.17423 /
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 + .05891, .03627, .85963, .27051, .00000,
881 + .00000, .14779, .27748,
882 + .06115, .03737, 1.44612, .28689, .00000,
883 + .00000, .16527, .29410,
884 + .06443, .03898, 2.37780, .31449, .01362,
885 + .00000, .19443, .32204,
886 + .06680, .04015, 3.11246, .33678, .04323,
887 + .00000, .21781, .34456,
888 + .06927, .04136, 3.91226, .36225, .07095,
889 + .00000, .24439, .37028,
890 + .07137, .04240, 4.62308, .38565, .09621,
891 + .00000, .26871, .39390,
892 + .07338, .04339, 5.33575, .40926, .12223,
893 + .00000, .29319, .41771,
894 + .07550, .04443, 6.11957, .43555, .15111,
895 + .00000, .32038, .44422 /
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 + .07732, .04533, 6.80329, .45933, .17619,
898 + .00000, .34492, .46818,
899 + .07906, .04619, 7.47328, .48303, .20107,
900 + .00000, .36933, .49206,
901 + .08045, .04687, 8.01898, .50240, .22158,
902 + .00000, .38925, .51157,
903 + .08336, .04831, 9.15690, .54500, .26565,
904 + .00557, .43301, .55446,
905 + .08585, .04954, 10.10672, .58287, .30422,
906 + .06515, .47184, .59258,
907 + .08862, .05090, 11.17547, .62662, .34860,
908 + .13056, .51665, .63661,
909 + .09147, .05230, 12.28930, .67336, .39576,
910 + .18812, .56445, .68364,
911 + .09404, .05357, 13.29401, .71668, .43935,
912 + .23916, .60870, .72721 /
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 + .09661, .05483, 14.30012, .76123, .48416,
915 + .28975, .65418, .77202,
916 + .09872, .05587, 15.12008, .79864, .52165,
917 + .33066, .69234, .80964,
918 + .10127, .05712, 16.09291, .84439, .56741,
919 + .37974, .73896, .85564,
920 + .10350, .05821, 16.94196, .88533, .60851,
921 + .42363, .78067, .89680,
922 + .10554, .05921, 17.70952, .92323, .64664,
923 + .46412, .81927, .93490,
924 + .10810, .06047, 18.64526, .97119, .69470,
925 + .51442, .86808, .98311,
926 + .11049, .06164, 19.50544, 1.01656, .74032,
927 + .56218, .91424, 1.02872,
928 + .11272, .06273, 20.29860, 1.05942, .78358,
929 + .60758, .95783, 1.07180 /
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 + .11492, .06380, 21.04888, 1.10172, .82608,
932 + .65167, 1.00084, 1.11431,
933 + .11707, .06485, 21.76998, 1.14333, .86806,
934 + .69540, 1.04313, 1.15612,
935 + .11909, .06584, 22.43427, 1.18270, .90786,
936 + .73685, 1.08315, 1.19570,
937 + .12098, .06676, 23.03131, 1.21937, .94485,
938 + .77522, 1.12041, 1.23255,
939 + .12287, .06768, 23.62634, 1.25652, .98250,
940 + .81445, 1.15814, 1.26987,
941 + .12471, .06857, 24.17598, 1.29230, 1.01865,
942 + .85186, 1.19449, 1.30583,
943 + .12647, .06942, 24.69825, 1.32670, 1.05358,
944 + .88823, 1.22943, 1.34040,
945 + .12810, .07022, 25.16052, 1.35848, 1.08573,
946 + .92150, 1.26170, 1.37233 /
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 + .12976, .07102, 25.62478, 1.39079, 1.11856,
949 + .95560, 1.29452, 1.40481,
950 + .13137, .07180, 26.06013, 1.42216, 1.15039,
951 + .98859, 1.32637, 1.43633,
952 + .13291, .07255, 26.46490, 1.45198, 1.18069,
953 + 1.02001, 1.35665, 1.46629,
954 + .13437, .07325, 26.84194, 1.48026, 1.20950,
955 + 1.04993, 1.38537, 1.49471,
956 + .13583, .07396, 27.19921, 1.50819, 1.23787,
957 + 1.07928, 1.41373, 1.52277 /
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 + .08504, .04874, .98296, .23429, .00000,
960 + .00000, .12904, .24370,
961 + .08809, .05028, 1.50011, .24856, .00000,
962 + .00000, .14425, .25831,
963 + .09251, .05252, 2.28230, .27174, .01185,
964 + .00000, .16876, .28197,
965 + .09568, .05413, 2.87449, .28994, .03723,
966 + .00000, .18791, .30051,
967 + .09898, .05580, 3.50104, .31025, .06008,
968 + .00000, .20918, .32118,
969 + .10177, .05721, 4.04271, .32852, .08039,
970 + .00000, .22824, .33975,
971 + .10443, .05855, 4.57348, .34667, .10092,
972 + .00000, .24715, .35818,
973 + .10723, .05996, 5.14469, .36658, .12327,
974 + .00000, .26784, .37839 /
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 + .10962, .06117, 5.63256, .38430, .14233,
977 + .00000, .28621, .39637,
978 + .11191, .06232, 6.10205, .40174, .16097,
979 + .00000, .30427, .41404,
980 + .11372, .06323, 6.47897, .41585, .17616,
981 + .00000, .31887, .42835,
982 + .11752, .06514, 7.24576, .44641, .20826,
983 + .00431, .35044, .45930,
984 + .12074, .06675, 7.86471, .47308, .23581,
985 + .04803, .37796, .48630,
986 + .12431, .06854, 8.54452, .50337, .26698,
987 + .09537, .40918, .51697,
988 + .12797, .07036, 9.23573, .53517, .29950,
989 + .13599, .44192, .54914,
990 + .13124, .07199, 9.84434, .56415, .32905,
991 + .17135, .47173, .57846 /
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 + .13451, .07362, 10.44025, .59351, .35899,
994 + .20582, .50191, .60815,
995 + .13718, .07494, 10.91552, .61781, .38368,
996 + .23327, .52687, .63272,
997 + .14038, .07653, 11.46728, .64711, .41342,
998 + .26575, .55697, .66234,
999 + .14318, .07791, 11.93902, .67299, .43978,
1000 + .29442, .58354, .68851,
1001 + .14572, .07917, 12.35769, .69668, .46396,
1002 + .32057, .60785, .71244,
1003 + .14890, .08073, 12.85584, .72623, .49403,
1004 + .35260, .63817, .74231,
1005 + .15185, .08218, 13.30391, .75381, .52220,
1006 + .38265, .66647, .77018,
1007 + .15460, .08352, 13.70926, .77956, .54862,
1008 + .41090, .69288, .79620 /
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 + .15729, .08484, 14.08188, .80461, .57423,
1011 + .43795, .71858, .82151,
1012 + .15990, .08612, 14.43332, .82899, .59926,
1013 + .46453, .74357, .84614,
1014 + .16236, .08731, 14.75048, .85180, .62274,
1015 + .48946, .76697, .86919,
1016 + .16464, .08842, 15.02843, .87279, .64431,
1017 + .51228, .78850, .89039,
1018 + .16691, .08952, 15.30161, .89388, .66610,
1019 + .53544, .81014, .91170,
1020 + .16912, .09059, 15.54611, .91393, .68676,
1021 + .55726, .83071, .93196,
1022 + .17121, .09160, 15.77591, .93307, .70660,
1023 + .57835, .85035, .95130,
1024 + .17316, .09254, 15.97261, .95054, .72465,
1025 + .59741, .86827, .96894 /
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 + .17512, .09348, 16.16796, .96818, .74296,
1028 + .61685, .88638, .98677,
1029 + .17703, .09439, 16.34581, .98512, .76054,
1030 + .63546, .90376, 1.00388,
1031 + .17884, .09526, 16.50793, 1.00108, .77715,
1032 + .65306, .92016, 1.02001,
1033 + .18055, .09608, 16.65647, 1.01612, .79283,
1034 + .66971, .93560, 1.03520,
1035 + .18225, .09689, 16.79183, 1.03080, .80811,
1036 + .68588, .95068, 1.05004 /
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 + .10537, .05894, 1.10678, .21655, .00000,
1039 + .00000, .12001, .22810,
1040 + .10899, .06080, 1.57450, .22957, .00000,
1041 + .00000, .13392, .24153,
1042 + .11421, .06349, 2.26514, .25025, .01089,
1043 + .00000, .15584, .26279,
1044 + .11796, .06541, 2.77414, .26619, .03394,
1045 + .00000, .17267, .27915,
1046 + .12182, .06739, 3.30290, .28369, .05417,
1047 + .00000, .19107, .29708,
1048 + .12509, .06906, 3.75203, .29922, .07185,
1049 + .00000, .20735, .31296,
1050 + .12819, .07064, 4.18545, .31449, .08948,
1051 + .00000, .22332, .32856,
1052 + .13145, .07230, 4.64521, .33107, .10844,
1053 + .00000, .24064, .34549 /
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 + .13423, .07371, 5.03258, .34566, .12440,
1056 + .00000, .25585, .36038,
1057 + .13688, .07505, 5.40094, .35990, .13986,
1058 + .00000, .27068, .37490,
1059 + .13897, .07611, 5.69386, .37134, .15237,
1060 + .00000, .28259, .38657,
1061 + .14334, .07832, 6.27924, .39588, .17851,
1062 + .00366, .30809, .41157,
1063 + .14704, .08018, 6.74021, .41702, .20065,
1064 + .03954, .33004, .43310,
1065 + .15111, .08223, 7.23820, .44077, .22541,
1066 + .07804, .35468, .45727,
1067 + .15528, .08431, 7.73594, .46540, .25093,
1068 + .11054, .38020, .48232,
1069 + .15899, .08616, 8.16669, .48759, .27388,
1070 + .13848, .40320, .50489 /
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 + .16268, .08799, 8.58177, .50984, .29688,
1073 + .16543, .42624, .52751,
1074 + .16569, .08948, 8.90772, .52807, .31567,
1075 + .18667, .44512, .54605,
1076 + .16928, .09126, 9.27982, .54986, .33810,
1077 + .21158, .46766, .56819,
1078 + .17241, .09280, 9.59302, .56892, .35782,
1079 + .23338, .48740, .58757,
1080 + .17525, .09419, 9.86709, .58623, .37577,
1081 + .25311, .50531, .60515,
1082 + .17878, .09591, 10.18703, .60761, .39788,
1083 + .27707, .52744, .62687,
1084 + .18204, .09750, 10.46949, .62738, .41842,
1085 + .29936, .54791, .64696,
1086 + .18507, .09897, 10.72083, .64569, .43755,
1087 + .32016, .56686, .66555 /
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 + .18803, .10040, 10.94649, .66332, .45590,
1090 + .33990, .58512, .68346,
1091 + .19089, .10179, 11.15599, .68034, .47372,
1092 + .35917, .60275, .70075,
1093 + .19357, .10307, 11.34167, .69615, .49031,
1094 + .37712, .61914, .71680,
1095 + .19604, .10426, 11.50019, .71056, .50545,
1096 + .39343, .63408, .73144,
1097 + .19852, .10545, 11.65401, .72495, .52064,
1098 + .40990, .64901, .74606,
1099 + .20090, .10658, 11.78719, .73850, .53493,
1100 + .42529, .66307, .75983,
1101 + .20315, .10765, 11.91121, .75138, .54859,
1102 + .44010, .67644, .77291,
1103 + .20524, .10864, 12.01340, .76301, .56091,
1104 + .45339, .68852, .78472 /
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 + .20735, .10963, 12.11386, .77470, .57336,
1107 + .46688, .70067, .79660,
1108 + .20938, .11059, 12.20195, .78584, .58522,
1109 + .47972, .71225, .80791,
1110 + .21131, .11150, 12.28030, .79628, .59637,
1111 + .49179, .72311, .81852,
1112 + .21313, .11235, 12.35067, .80605, .60685,
1113 + .50317, .73329, .82845,
1114 + .21493, .11319, 12.41129, .81550, .61697,
1115 + .51414, .74313, .83806 /
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 + .12271, .06802, 1.21885, .20554, .00000,
1118 + .00000, .11449, .21904,
1119 + .12678, .07013, 1.64826, .21764, .00000,
1120 + .00000, .12743, .23160,
1121 + .13263, .07317, 2.26975, .23651, .01020,
1122 + .00000, .14751, .25114,
1123 + .13681, .07532, 2.71833, .25086, .03161,
1124 + .00000, .16272, .26596,
1125 + .14112, .07754, 3.17806, .26642, .05002,
1126 + .00000, .17916, .28199,
1127 + .14475, .07940, 3.56332, .28008, .06591,
1128 + .00000, .19354, .29604,
1129 + .14819, .08116, 3.93077, .29339, .08159,
1130 + .00000, .20754, .30973,
1131 + .15179, .08299, 4.31626, .30773, .09828,
1132 + .00000, .22261, .32447 /
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 + .15486, .08455, 4.63761, .32025, .11220,
1135 + .00000, .23574, .33731,
1136 + .15778, .08603, 4.94031, .33239, .12558,
1137 + .00000, .24845, .34976,
1138 + .16007, .08719, 5.17923, .34209, .13635,
1139 + .00000, .25861, .35971,
1140 + .16487, .08961, 5.64973, .36272, .15864,
1141 + .00323, .28019, .38084,
1142 + .16891, .09164, 6.01248, .38033, .17734,
1143 + .03408, .29859, .39886,
1144 + .17335, .09386, 6.39905, .39992, .19806,
1145 + .06695, .31907, .41891,
1146 + .17787, .09611, 6.78008, .42005, .21923,
1147 + .09437, .34008, .43950,
1148 + .18189, .09810, 7.10511, .43802, .23809,
1149 + .11771, .35885, .45787 /
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 + .18587, .10006, 7.41405, .45590, .25685,
1152 + .14004, .37751, .47614,
1153 + .18911, .10165, 7.65332, .47043, .27206,
1154 + .15751, .39268, .49099,
1155 + .19295, .10353, 7.92248, .48766, .29009,
1156 + .17785, .41067, .50859,
1157 + .19630, .10516, 8.14590, .50263, .30584,
1158 + .19554, .42631, .52388,
1159 + .19932, .10663, 8.33888, .51613, .32009,
1160 + .21146, .44042, .53766,
1161 + .20307, .10843, 8.55993, .53266, .33751,
1162 + .23064, .45770, .55455,
1163 + .20653, .11010, 8.75173, .54784, .35359,
1164 + .24838, .47358, .57005,
1165 + .20972, .11163, 8.91981, .56180, .36847,
1166 + .26485, .48818, .58430 /
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 + .21284, .11311, 9.06677, .57512, .38264,
1169 + .28036, .50214, .59790,
1170 + .21584, .11453, 9.20094, .58790, .39633,
1171 + .29542, .51553, .61095,
1172 + .21864, .11586, 9.31746, .59970, .40900,
1173 + .30939, .52791, .62300,
1174 + .22122, .11707, 9.41402, .61037, .42048,
1175 + .32200, .53911, .63389,
1176 + .22379, .11828, 9.50644, .62097, .43196,
1177 + .33468, .55025, .64471,
1178 + .22626, .11943, 9.58303, .63086, .44268,
1179 + .34646, .56065, .65482,
1180 + .22860, .12051, 9.65363, .64023, .45289,
1181 + .35776, .57051, .66438,
1182 + .23075, .12151, 9.70861, .64861, .46203,
1183 + .36783, .57935, .67294 /
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 + .23291, .12251, 9.76195, .65700, .47125,
1186 + .37803, .58820, .68151,
1187 + .23501, .12347, 9.80603, .66493, .47997,
1188 + .38768, .59658, .68961,
1189 + .23698, .12437, 9.84371, .67233, .48813,
1190 + .39672, .60440, .69717,
1191 + .23883, .12522, 9.87639, .67922, .49577,
1192 + .40521, .61170, .70421,
1193 + .24067, .12605, 9.90143, .68582, .50310,
1194 + .41334, .61870, .71095 /
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 + .13817, .07638, 1.31755, .19778, .00000,
1197 + .00000, .11067, .21315,
1198 + .14260, .07869, 1.71425, .20911, .00000,
1199 + .00000, .12283, .22498,
1200 + .14898, .08199, 2.27905, .22654, .00964,
1201 + .00000, .14145, .24313,
1202 + .15352, .08433, 2.67966, .23963, .02974,
1203 + .00000, .15540, .25674,
1204 + .15818, .08673, 3.08579, .25369, .04674,
1205 + .00000, .17033, .27131,
1206 + .16211, .08874, 3.42236, .26591, .06126,
1207 + .00000, .18327, .28395,
1208 + .16582, .09063, 3.74027, .27775, .07547,
1209 + .00000, .19580, .29619,
1210 + .16969, .09260, 4.07074, .29042, .09047,
1211 + .00000, .20919, .30928 /
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 + .17298, .09426, 4.34383, .30140, .10288,
1214 + .00000, .22078, .32060,
1215 + .17611, .09584, 4.59897, .31198, .11474,
1216 + .00000, .23194, .33151,
1217 + .17857, .09708, 4.79906, .32041, .12424,
1218 + .00000, .24083, .34020,
1219 + .18369, .09964, 5.18803, .33820, .14376,
1220 + .00291, .25957, .35852,
1221 + .18799, .10178, 5.48208, .35325, .16000,
1222 + .03013, .27542, .37401,
1223 + .19270, .10412, 5.79172, .36989, .17786,
1224 + .05898, .29294, .39111,
1225 + .19749, .10647, 6.09326, .38683, .19596,
1226 + .08280, .31078, .40853,
1227 + .20173, .10855, 6.34708, .40185, .21197,
1228 + .10293, .32660, .42396 /
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 + .20591, .11059, 6.58520, .41668, .22780,
1231 + .12206, .34222, .43919,
1232 + .20931, .11224, 6.76723, .42865, .24056,
1233 + .13693, .35484, .45149,
1234 + .21333, .11418, 6.96926, .44275, .25559,
1235 + .15414, .36971, .46595,
1236 + .21682, .11585, 7.13467, .45492, .26865,
1237 + .16903, .38256, .47845,
1238 + .21996, .11736, 7.27565, .46583, .28040,
1239 + .18237, .39408, .48965,
1240 + .22385, .11920, 7.43386, .47910, .29468,
1241 + .19835, .40811, .50326,
1242 + .22742, .12089, 7.56864, .49120, .30779,
1243 + .21305, .42091, .51567,
1244 + .23072, .12244, 7.68479, .50226, .31986,
1245 + .22663, .43263, .52702 /
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 + .23392, .12393, 7.78334, .51273, .33128,
1248 + .23935, .44374, .53777,
1249 + .23700, .12536, 7.87144, .52272, .34226,
1250 + .25165, .45435, .54802,
1251 + .23986, .12668, 7.94593, .53188, .35238,
1252 + .26300, .46410, .55741,
1253 + .24249, .12789, 8.00525, .54010, .36149,
1254 + .27320, .47286, .56585,
1255 + .24511, .12909, 8.06101, .54824, .37057,
1256 + .28343, .48154, .57420,
1257 + .24761, .13022, 8.10433, .55577, .37899,
1258 + .29288, .48960, .58193,
1259 + .24998, .13129, 8.14370, .56288, .38700,
1260 + .30192, .49720, .58922,
1261 + .25215, .13227, 8.17138, .56917, .39412,
1262 + .30993, .50396, .59568 /
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 + .25432, .13325, 8.19759, .57546, .40127,
1265 + .31803, .51071, .60214,
1266 + .25642, .13418, 8.21665, .58135, .40801,
1267 + .32565, .51706, .60819,
1268 + .25840, .13506, 8.23137, .58681, .41428,
1269 + .33276, .52296, .61380,
1270 + .26026, .13589, 8.24294, .59189, .42014,
1271 + .33943, .52844, .61901,
1272 + .26208, .13669, 8.24835, .59669, .42572,
1273 + .34578, .53365, .62394 /
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 + .16545, .09161, 1.47854, .18716, .00000,
1276 + .00000, .10557, .20607,
1277 + .17048, .09422, 1.81978, .19720, .00000,
1278 + .00000, .11646, .21667,
1279 + .17767, .09791, 2.29300, .21231, .00872,
1280 + .00000, .13279, .23258,
1281 + .18277, .10052, 2.61914, .22345, .02671,
1282 + .00000, .14479, .24428,
1283 + .18798, .10316, 2.94416, .23522, .04156,
1284 + .00000, .15745, .25660,
1285 + .19235, .10537, 3.20871, .24530, .05402,
1286 + .00000, .16827, .26713,
1287 + .19646, .10743, 3.45467, .25495, .06606,
1288 + .00000, .17863, .27721,
1289 + .20074, .10957, 3.70653, .26517, .07861,
1290 + .00000, .18959, .28788 /
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 + .20437, .11137, 3.91152, .27393, .08886,
1293 + .00000, .19897, .29700,
1294 + .20780, .11307, 4.10051, .28229, .09857,
1295 + .00000, .20793, .30570,
1296 + .21048, .11439, 4.24717, .28890, .10628,
1297 + .00000, .21502, .31258,
1298 + .21605, .11712, 4.52552, .30271, .12195,
1299 + .00245, .22980, .32693,
1300 + .22071, .11939, 4.72808, .31421, .13481,
1301 + .02461, .24214, .33888,
1302 + .22579, .12184, 4.93661, .32677, .14878,
1303 + .04791, .25561, .35192,
1304 + .23092, .12429, 5.13527, .33939, .16278,
1305 + .06685, .26916, .36501,
1306 + .23543, .12644, 5.29845, .35043, .17501,
1307 + .08267, .28103, .37645 /
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 + .23987, .12853, 5.44772, .36119, .18698,
1310 + .09754, .29261, .38760,
1311 + .24344, .13021, 5.55884, .36978, .19653,
1312 + .10898, .30187, .39650,
1313 + .24766, .13217, 5.67836, .37977, .20767,
1314 + .12211, .31266, .40684,
1315 + .25130, .13385, 5.77330, .38830, .21726,
1316 + .13337, .32189, .41568,
1317 + .25457, .13535, 5.85190, .39587, .22582,
1318 + .14338, .33009, .42351,
1319 + .25858, .13717, 5.93573, .40495, .23612,
1320 + .15527, .33997, .43291,
1321 + .26225, .13883, 6.00388, .41313, .24548,
1322 + .16611, .34887, .44137,
1323 + .26562, .14034, 6.06008, .42053, .25403,
1324 + .17605, .35695, .44903 /
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 + .26886, .14178, 6.10321, .42741, .26204,
1327 + .18527, .36450, .45615,
1328 + .27197, .14314, 6.13933, .43391, .26967,
1329 + .19413, .37165, .46288,
1330 + .27485, .14440, 6.16713, .43980, .27664,
1331 + .20225, .37814, .46898,
1332 + .27747, .14554, 6.18555, .44500, .28286,
1333 + .20948, .38391, .47436,
1334 + .28008, .14666, 6.20137, .45012, .28903,
1335 + .21670, .38958, .47965,
1336 + .28254, .14772, 6.20889, .45476, .29468,
1337 + .22330, .39477, .48445,
1338 + .28487, .14871, 6.21486, .45912, .30002,
1339 + .22959, .39964, .48896,
1340 + .28699, .14960, 6.21387, .46290, .30472,
1341 + .23512, .40390, .49287 /
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 + .28912, .15049, 6.21180, .46665, .30942,
1344 + .24068, .40814, .49675,
1345 + .29115, .15133, 6.20518, .47009, .31380,
1346 + .24587, .41205, .50032,
1347 + .29306, .15212, 6.19664, .47325, .31785,
1348 + .25069, .41566, .50359,
1349 + .29484, .15285, 6.18699, .47615, .32161,
1350 + .25519, .41898, .50660,
1351 + .29659, .15356, 6.17299, .47884, .32515,
1352 + .25943, .42209, .50939 /
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 + .20085, .11204, 1.64343, .17688, .00000,
1355 + .00000, .10084, .20070,
1356 + .20653, .11490, 1.91739, .18532, .00000,
1357 + .00000, .11018, .20974,
1358 + .21457, .11893, 2.28575, .19772, .00761,
1359 + .00000, .12387, .22297,
1360 + .22025, .12174, 2.53085, .20667, .02314,
1361 + .00000, .13375, .23249,
1362 + .22601, .12456, 2.77037, .21595, .03563,
1363 + .00000, .14396, .24234,
1364 + .23081, .12691, 2.96122, .22376, .04591,
1365 + .00000, .15257, .25060,
1366 + .23531, .12908, 3.13533, .23114, .05571,
1367 + .00000, .16071, .25841,
1368 + .23997, .13132, 3.31039, .23886, .06579,
1369 + .00000, .16921, .26656 /
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 + .24389, .13318, 3.45024, .24538, .07392,
1372 + .00000, .17640, .27344,
1373 + .24758, .13493, 3.57698, .25154, .08152,
1374 + .00000, .18320, .27992,
1375 + .25047, .13629, 3.67403, .25637, .08751,
1376 + .00000, .18853, .28501,
1377 + .25642, .13907, 3.85166, .26630, .09953,
1378 + .00200, .19952, .29545,
1379 + .26135, .14135, 3.97320, .27445, .10924,
1380 + .01931, .20854, .30400,
1381 + .26668, .14379, 4.09438, .28319, .11966,
1382 + .03737, .21826, .31318,
1383 + .27203, .14620, 4.20582, .29182, .12995,
1384 + .05181, .22788, .32222,
1385 + .27670, .14829, 4.29357, .29923, .13882,
1386 + .06371, .23618, .32999 /
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 + .28125, .15030, 4.37039, .30635, .14739,
1389 + .07477, .24417, .33744,
1390 + .28490, .15190, 4.42457, .31194, .15416,
1391 + .08319, .25047, .34328,
1392 + .28917, .15374, 4.47932, .31832, .16196,
1393 + .09275, .25770, .34996,
1394 + .29282, .15530, 4.51993, .32369, .16860,
1395 + .10088, .26381, .35556,
1396 + .29608, .15668, 4.55110, .32839, .17448,
1397 + .10804, .26918, .36047,
1398 + .30004, .15833, 4.57951, .33390, .18145,
1399 + .11645, .27553, .36622,
1400 + .30363, .15982, 4.59894, .33877, .18773,
1401 + .12405, .28117, .37130,
1402 + .30690, .16116, 4.61201, .34312, .19340,
1403 + .13096, .28624, .37583 /
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 + .31003, .16241, 4.61622, .34704, .19863,
1406 + .13729, .29086, .37993,
1407 + .31300, .16359, 4.61646, .35068, .20357,
1408 + .14333, .29518, .38372,
1409 + .31573, .16466, 4.61262, .35392, .20805,
1410 + .14882, .29906, .38708,
1411 + .31819, .16561, 4.60405, .35670, .21198,
1412 + .15366, .30243, .38998,
1413 + .32062, .16654, 4.59389, .35940, .21585,
1414 + .15847, .30571, .39279,
1415 + .32290, .16739, 4.57866, .36175, .21934,
1416 + .16281, .30864, .39524,
1417 + .32504, .16819, 4.56364, .36394, .22263,
1418 + .16693, .31137, .39751,
1419 + .32697, .16889, 4.54534, .36576, .22547,
1420 + .17050, .31368, .39939 /
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 + .32889, .16959, 4.52643, .36754, .22829,
1423 + .17408, .31596, .40123,
1424 + .33070, .17023, 4.50502, .36910, .23089,
1425 + .17739, .31802, .40286,
1426 + .33240, .17083, 4.48338, .37050, .23326,
1427 + .18045, .31988, .40431,
1428 + .33398, .17138, 4.46204, .37176, .23545,
1429 + .18328, .32157, .40561,
1430 + .33550, .17189, 4.43787, .37284, .23746,
1431 + .18591, .32309, .40672 /
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 + .25168, .14181, 1.76739, .16532, .00000,
1434 + .00000, .09576, .19646,
1435 + .25800, .14479, 1.95721, .17159, .00000,
1436 + .00000, .10305, .20330,
1437 + .26688, .14891, 2.20185, .18056, .00617,
1438 + .00000, .11346, .21301,
1439 + .27306, .15176, 2.35658, .18686, .01859,
1440 + .00000, .12079, .21981,
1441 + .27929, .15457, 2.50400, .19324, .02832,
1442 + .00000, .12823, .22667,
1443 + .28443, .15687, 2.61814, .19850, .03617,
1444 + .00000, .13438, .23231,
1445 + .28920, .15898, 2.71960, .20339, .04355,
1446 + .00000, .14010, .23754,
1447 + .29411, .16113, 2.81899, .20841, .05102,
1448 + .00000, .14600, .24290 /
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 + .29822, .16289, 2.89609, .21256, .05694,
1451 + .00000, .15090, .24734,
1452 + .30205, .16453, 2.96409, .21643, .06242,
1453 + .00000, .15548, .25146,
1454 + .30502, .16579, 3.01514, .21944, .06670,
1455 + .00000, .15904, .25465,
1456 + .31109, .16832, 3.10189, .22550, .07516,
1457 + .00152, .16625, .26107,
1458 + .31606, .17035, 3.15299, .23032, .08187,
1459 + .01399, .17205, .26617,
1460 + .32136, .17249, 3.20011, .23538, .08897,
1461 + .02691, .17817, .27151,
1462 + .32661, .17457, 3.23973, .24023, .09585,
1463 + .03705, .18411, .27662,
1464 + .33114, .17631, 3.26714, .24428, .10169,
1465 + .04529, .18912, .28087 /
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 + .33549, .17796, 3.28744, .24806, .10725,
1468 + .05284, .19385, .28482,
1469 + .33893, .17924, 3.29835, .25094, .11157,
1470 + .05852, .19750, .28783,
1471 + .34289, .18068, 3.30487, .25412, .11649,
1472 + .06489, .20160, .29115,
1473 + .34625, .18186, 3.30599, .25672, .12062,
1474 + .07025, .20499, .29384,
1475 + .34920, .18289, 3.30350, .25892, .12423,
1476 + .07492, .20791, .29611,
1477 + .35273, .18408, 3.29388, .26138, .12844,
1478 + .08033, .21127, .29865,
1479 + .35588, .18511, 3.28076, .26347, .13217,
1480 + .08516, .21418, .30078,
1481 + .35872, .18602, 3.26572, .26526, .13550,
1482 + .08952, .21672, .30261 /
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 + .36136, .18682, 3.24583, .26675, .13850,
1485 + .09344, .21895, .30411,
1486 + .36384, .18756, 3.22441, .26807, .14131,
1487 + .09716, .22098, .30544,
1488 + .36608, .18820, 3.20208, .26916, .14381,
1489 + .10050, .22275, .30653,
1490 + .36807, .18874, 3.17837, .27002, .14596,
1491 + .10340, .22422, .30736,
1492 + .37000, .18926, 3.15399, .27081, .14806,
1493 + .10626, .22562, .30812,
1494 + .37176, .18970, 3.12739, .27138, .14990,
1495 + .10880, .22678, .30865,
1496 + .37341, .19010, 3.10216, .27189, .15163,
1497 + .11120, .22785, .30913,
1498 + .37485, .19042, 3.07606, .27220, .15307,
1499 + .11325, .22868, .30940 /
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 + .37627, .19072, 3.04978, .27249, .15450,
1502 + .11529, .22948, .30963,
1503 + .37758, .19098, 3.02252, .27264, .15577,
1504 + .11714, .23014, .30973,
1505 + .37878, .19121, 2.99609, .27273, .15692,
1506 + .11884, .23071, .30976,
1507 + .37988, .19141, 2.97080, .27277, .15796,
1508 + .12040, .23119, .30973,
1509 + .38090, .19156, 2.94399, .27268, .15888,
1510 + .12182, .23155, .30958 /
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 + .29658, .16769, 1.76549, .15608, .00000,
1513 + .00000, .09181, .19351,
1514 + .30319, .17054, 1.89580, .16064, .00000,
1515 + .00000, .09748, .19849,
1516 + .31238, .17440, 2.05751, .16701, .00506,
1517 + .00000, .10545, .20542,
1518 + .31872, .17701, 2.15481, .17139, .01517,
1519 + .00000, .11096, .21017,
1520 + .32502, .17957, 2.24563, .17575, .02298,
1521 + .00000, .11648, .21486,
1522 + .33018, .18162, 2.31402, .17928, .02920,
1523 + .00000, .12097, .21863,
1524 + .33493, .18348, 2.37335, .18251, .03498,
1525 + .00000, .12511, .22208,
1526 + .33979, .18534, 2.43000, .18577, .04079,
1527 + .00000, .12932, .22555 /
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 + .34379, .18685, 2.47249, .18844, .04535,
1530 + .00000, .13279, .22837,
1531 + .34751, .18822, 2.50878, .19088, .04953,
1532 + .00000, .13599, .23094,
1533 + .35039, .18926, 2.53540, .19275, .05278,
1534 + .00000, .13846, .23291,
1535 + .35616, .19132, 2.57557, .19645, .05914,
1536 + .00121, .14339, .23676,
1537 + .36083, .19294, 2.59218, .19932, .06413,
1538 + .01074, .14729, .23973,
1539 + .36576, .19458, 2.60410, .20223, .06934,
1540 + .02057, .15133, .24273,
1541 + .37054, .19612, 2.61067, .20492, .07433,
1542 + .02820, .15517, .24547,
1543 + .37460, .19737, 2.61117, .20709, .07852,
1544 + .03434, .15834, .24765 /
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 + .37845, .19851, 2.60697, .20903, .08246,
1547 + .03991, .16127, .24959,
1548 + .38143, .19936, 2.59976, .21044, .08549,
1549 + .04406, .16348, .25096,
1550 + .38482, .20025, 2.58676, .21191, .08891,
1551 + .04868, .16591, .25238,
1552 + .38764, .20096, 2.57242, .21304, .09174,
1553 + .05253, .16786, .25345,
1554 + .39009, .20155, 2.55719, .21393, .09419,
1555 + .05586, .16951, .25429,
1556 + .39294, .20216, 2.53388, .21484, .09701,
1557 + .05968, .17132, .25508,
1558 + .39543, .20265, 2.50963, .21551, .09948,
1559 + .06307, .17284, .25563,
1560 + .39763, .20305, 2.48545, .21602, .10166,
1561 + .06609, .17413, .25602 /
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 + .39960, .20335, 2.45834, .21632, .10359,
1564 + .06879, .17518, .25617,
1565 + .40141, .20359, 2.43088, .21651, .10536,
1566 + .07132, .17609, .25622,
1567 + .40301, .20375, 2.40384, .21658, .10692,
1568 + .07357, .17684, .25615,
1569 + .40437, .20384, 2.37688, .21652, .10824,
1570 + .07551, .17740, .25594,
1571 + .40569, .20391, 2.34973, .21641, .10952,
1572 + .07741, .17790, .25568,
1573 + .40681, .20390, 2.32142, .21616, .11061,
1574 + .07907, .17825, .25527,
1575 + .40784, .20389, 2.29480, .21591, .11161,
1576 + .08064, .17854, .25486,
1577 + .40869, .20381, 2.26844, .21555, .11243,
1578 + .08195, .17870, .25434 /
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 + .40952, .20372, 2.24213, .21517, .11323,
1581 + .08325, .17883, .25380,
1582 + .41023, .20359, 2.21544, .21471, .11392,
1583 + .08442, .17887, .25316,
1584 + .41086, .20344, 2.18989, .21422, .11453,
1585 + .08547, .17885, .25251,
1586 + .41141, .20328, 2.16568, .21374, .11507,
1587 + .08643, .17880, .25187,
1588 + .41188, .20306, 2.14056, .21316, .11552,
1589 + .08730, .17867, .25114 /
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 + .37575, .21059, 1.56851, .13937, .00000,
1592 + .00000, .08455, .18631,
1593 + .38217, .21269, 1.62973, .14146, .00000,
1594 + .00000, .08790, .18849,
1595 + .39083, .21541, 1.70020, .14432, .00355,
1596 + .00000, .09252, .19135,
1597 + .39669, .21717, 1.73799, .14620, .01059,
1598 + .00000, .09564, .19320,
1599 + .40240, .21878, 1.77201, .14800, .01595,
1600 + .00000, .09870, .19494,
1601 + .40694, .22000, 1.79612, .14940, .02017,
1602 + .00000, .10114, .19623,
1603 + .41105, .22104, 1.81575, .15063, .02405,
1604 + .00000, .10336, .19736,
1605 + .41517, .22203, 1.83312, .15182, .02791,
1606 + .00000, .10557, .19842 /
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 + .41848, .22277, 1.84471, .15275, .03090,
1609 + .00000, .10735, .19921,
1610 + .42147, .22340, 1.85329, .15356, .03362,
1611 + .00000, .10896, .19987,
1612 + .42375, .22386, 1.85890, .15416, .03572,
1613 + .00000, .11019, .20035,
1614 + .42821, .22464, 1.86084, .15525, .03977,
1615 + .00085, .11256, .20115,
1616 + .43167, .22513, 1.85136, .15597, .04290,
1617 + .00702, .11437, .20160,
1618 + .43517, .22552, 1.83762, .15660, .04612,
1619 + .01337, .11617, .20190,
1620 + .43839, .22576, 1.82093, .15705, .04915,
1621 + .01823, .11778, .20197,
1622 + .44098, .22583, 1.80334, .15729, .05166,
1623 + .02207, .11904, .20184 /
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 + .44330, .22577, 1.78348, .15738, .05397,
1626 + .02552, .12013, .20156,
1627 + .44499, .22562, 1.76528, .15733, .05572,
1628 + .02806, .12089, .20119,
1629 + .44677, .22533, 1.74128, .15713, .05765,
1630 + .03085, .12163, .20060,
1631 + .44813, .22499, 1.71886, .15686, .05922,
1632 + .03314, .12218, .19997,
1633 + .44922, .22462, 1.69747, .15654, .06056,
1634 + .03510, .12258, .19931,
1635 + .45032, .22404, 1.66853, .15599, .06207,
1636 + .03732, .12293, .19831,
1637 + .45114, .22341, 1.64048, .15538, .06335,
1638 + .03925, .12313, .19727,
1639 + .45176, .22277, 1.61382, .15475, .06445,
1640 + .04096, .12324, .19624 /
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 + .45214, .22202, 1.58584, .15400, .06539,
1643 + .04245, .12321, .19508,
1644 + .45240, .22125, 1.55836, .15321, .06624,
1645 + .04383, .12311, .19389,
1646 + .45252, .22047, 1.53213, .15241, .06697,
1647 + .04503, .12295, .19272,
1648 + .45247, .21969, 1.50687, .15159, .06754,
1649 + .04605, .12271, .19153,
1650 + .45236, .21889, 1.48179, .15075, .06809,
1651 + .04704, .12244, .19032,
1652 + .45207, .21803, 1.45649, .14985, .06852,
1653 + .04788, .12208, .18905,
1654 + .45178, .21722, 1.43291, .14899, .06892,
1655 + .04867, .12174, .18785,
1656 + .45136, .21639, 1.41014, .14811, .06921,
1657 + .04930, .12133, .18664 /
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 + .45091, .21555, 1.38758, .14722, .06948,
1660 + .04992, .12091, .18542,
1661 + .45037, .21468, 1.36514, .14630, .06969,
1662 + .05047, .12044, .18417,
1663 + .44979, .21384, 1.34389, .14541, .06986,
1664 + .05095, .11998, .18296,
1665 + .44921, .21303, 1.32394, .14456, .07000,
1666 + .05138, .11953, .18180,
1667 + .44852, .21217, 1.30358, .14365, .07008,
1668 + .05175, .11901, .18059 /
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 + .44479, .24387, 1.28667, .12338, .00000,
1671 + .00000, .07720, .17614,
1672 + .45022, .24488, 1.31995, .12400, .00000,
1673 + .00000, .07910, .17642,
1674 + .45734, .24599, 1.35623, .12479, .00266,
1675 + .00000, .08169, .17664,
1676 + .46201, .24655, 1.37352, .12524, .00791,
1677 + .00000, .08343, .17668,
1678 + .46635, .24694, 1.38871, .12564, .01188,
1679 + .00000, .08510, .17658,
1680 + .46970, .24710, 1.39856, .12589, .01499,
1681 + .00000, .08639, .17639,
1682 + .47262, .24714, 1.40583, .12606, .01783,
1683 + .00000, .08754, .17614,
1684 + .47543, .24708, 1.41135, .12619, .02063,
1685 + .00000, .08867, .17579 /
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 + .47758, .24691, 1.41381, .12623, .02279,
1688 + .00000, .08955, .17542,
1689 + .47945, .24666, 1.41445, .12621, .02474,
1690 + .00000, .09033, .17500,
1691 + .48083, .24643, 1.41421, .12618, .02623,
1692 + .00000, .09091, .17465,
1693 + .48332, .24576, 1.40642, .12600, .02909,
1694 + .00064, .09198, .17375,
1695 + .48504, .24503, 1.39168, .12571, .03127,
1696 + .00502, .09272, .17284,
1697 + .48658, .24407, 1.37316, .12528, .03349,
1698 + .00953, .09340, .17171,
1699 + .48775, .24292, 1.35252, .12469, .03555,
1700 + .01293, .09393, .17041,
1701 + .48847, .24175, 1.33227, .12406, .03722,
1702 + .01560, .09426, .16911 /
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 + .48889, .24048, 1.31053, .12335, .03874,
1705 + .01796, .09448, .16771,
1706 + .48899, .23934, 1.29141, .12268, .03987,
1707 + .01968, .09455, .16649,
1708 + .48883, .23787, 1.26704, .12179, .04110,
1709 + .02154, .09454, .16491,
1710 + .48849, .23651, 1.24485, .12095, .04208,
1711 + .02306, .09445, .16347,
1712 + .48802, .23523, 1.22410, .12014, .04289,
1713 + .02435, .09430, .16211,
1714 + .48714, .23349, 1.19667, .11903, .04379,
1715 + .02578, .09400, .16031,
1716 + .48612, .23181, 1.17057, .11794, .04453,
1717 + .02701, .09364, .15856,
1718 + .48503, .23022, 1.14609, .11689, .04515,
1719 + .02808, .09325, .15691 /
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 + .48370, .22854, 1.12089, .11577, .04565,
1722 + .02900, .09277, .15519,
1723 + .48229, .22687, 1.09639, .11465, .04608,
1724 + .02983, .09226, .15349,
1725 + .48086, .22526, 1.07327, .11356, .04644,
1726 + .03056, .09174, .15186,
1727 + .47935, .22371, 1.05127, .11251, .04670,
1728 + .03115, .09120, .15029,
1729 + .47780, .22214, 1.02958, .11145, .04694,
1730 + .03172, .09064, .14872,
1731 + .47610, .22055, 1.00797, .11036, .04710,
1732 + .03219, .09003, .14713,
1733 + .47447, .21906, .98794, .10934, .04724,
1734 + .03262, .08945, .14564,
1735 + .47280, .21760, .96879, .10833, .04731,
1736 + .03296, .08885, .14419 /
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 + .47111, .21613, .94991, .10733, .04737,
1739 + .03329, .08825, .14275,
1740 + .46934, .21466, .93129, .10631, .04739,
1741 + .03356, .08762, .14131,
1742 + .46762, .21324, .91377, .10534, .04739,
1743 + .03379, .08701, .13993,
1744 + .46595, .21190, .89742, .10441, .04738,
1745 + .03399, .08643, .13863,
1746 + .46417, .21052, .88085, .10346, .04732,
1747 + .03415, .08581, .13729 /
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 + .50531, .26906, 1.02301, .10801, .00000,
1750 + .00000, .06969, .16351,
1751 + .50920, .26883, 1.04944, .10780, .00000,
1752 + .00000, .07071, .16256,
1753 + .51401, .26812, 1.07836, .10744, .00212,
1754 + .00000, .07210, .16108,
1755 + .51696, .26739, 1.09204, .10714, .00631,
1756 + .00000, .07300, .15997,
1757 + .51946, .26645, 1.10368, .10677, .00945,
1758 + .00000, .07385, .15876,
1759 + .52119, .26549, 1.11086, .10640, .01188,
1760 + .00000, .07448, .15766,
1761 + .52256, .26448, 1.11575, .10603, .01410,
1762 + .00000, .07501, .15657,
1763 + .52372, .26333, 1.11892, .10561, .01627,
1764 + .00000, .07551, .15538 /
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 + .52444, .26222, 1.11953, .10519, .01793,
1767 + .00000, .07589, .15432,
1768 + .52493, .26107, 1.11853, .10475, .01942,
1769 + .00000, .07619, .15327,
1770 + .52523, .26014, 1.11706, .10439, .02055,
1771 + .00000, .07640, .15243,
1772 + .52537, .25805, 1.10773, .10357, .02269,
1773 + .00050, .07672, .15057,
1774 + .52508, .25611, 1.09301, .10278, .02431,
1775 + .00382, .07687, .14889,
1776 + .52438, .25384, 1.07471, .10183, .02593,
1777 + .00721, .07693, .14697,
1778 + .52324, .25138, 1.05435, .10077, .02740,
1779 + .00974, .07686, .14490,
1780 + .52188, .24906, 1.03456, .09974, .02858,
1781 + .01170, .07669, .14297 /
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 + .52023, .24666, 1.01354, .09865, .02963,
1784 + .01342, .07644, .14101,
1785 + .51865, .24461, .99524, .09771, .03040,
1786 + .01465, .07616, .13933,
1787 + .51644, .24207, .97212, .09653, .03121,
1788 + .01597, .07575, .13727,
1789 + .51432, .23980, .95128, .09546, .03184,
1790 + .01704, .07532, .13543,
1791 + .51225, .23770, .93194, .09446, .03236,
1792 + .01793, .07489, .13373,
1793 + .50937, .23496, .90665, .09313, .03289,
1794 + .01891, .07427, .13156,
1795 + .50650, .23237, .88279, .09186, .03332,
1796 + .01973, .07364, .12951,
1797 + .50372, .22995, .86060, .09066, .03367,
1798 + .02044, .07301, .12760 /
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 + .50072, .22746, .83801, .08944, .03392,
1801 + .02103, .07233, .12565,
1802 + .49770, .22504, .81620, .08824, .03413,
1803 + .02157, .07165, .12375,
1804 + .49474, .22275, .79573, .08710, .03428,
1805 + .02202, .07098, .12194,
1806 + .49183, .22057, .77645, .08600, .03437,
1807 + .02237, .07031, .12025,
1808 + .48890, .21839, .75754, .08490, .03444,
1809 + .02271, .06963, .11857,
1810 + .48588, .21621, .73887, .08380, .03446,
1811 + .02298, .06893, .11689,
1812 + .48303, .21417, .72162, .08277, .03446,
1813 + .02323, .06826, .11533,
1814 + .48020, .21220, .70527, .08177, .03442,
1815 + .02341, .06761, .11385 /
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 + .47735, .21024, .68922, .08077, .03438,
1818 + .02358, .06695, .11237,
1819 + .47447, .20830, .67349, .07978, .03430,
1820 + .02371, .06628, .11090,
1821 + .47170, .20645, .65877, .07885, .03422,
1822 + .02381, .06564, .10951,
1823 + .46905, .20470, .64508, .07797, .03413,
1824 + .02390, .06503, .10820,
1825 + .46630, .20292, .63131, .07706, .03401,
1826 + .02396, .06440, .10687 /
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 + .56970, .29080, .77562, .09005, .00000,
1829 + .00000, .06035, .14554,
1830 + .57111, .28895, .80492, .08936, .00000,
1831 + .00000, .06078, .14371,
1832 + .57227, .28594, .83744, .08836, .00173,
1833 + .00000, .06132, .14104,
1834 + .57258, .28359, .85357, .08760, .00511,
1835 + .00000, .06164, .13914,
1836 + .57234, .28099, .86660, .08681, .00761,
1837 + .00000, .06191, .13713,
1838 + .57170, .27866, .87426, .08610, .00952,
1839 + .00000, .06208, .13539,
1840 + .57084, .27637, .87923, .08540, .01124,
1841 + .00000, .06218, .13374,
1842 + .56966, .27389, .88216, .08465, .01291,
1843 + .00000, .06223, .13200 /
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 + .56836, .27168, .88226, .08398, .01416,
1846 + .00000, .06224, .13046,
1847 + .56690, .26951, .88064, .08332, .01527,
1848 + .00000, .06219, .12899,
1849 + .56567, .26778, .87862, .08278, .01611,
1850 + .00000, .06214, .12784,
1851 + .56264, .26403, .86860, .08162, .01767,
1852 + .00039, .06195, .12534,
1853 + .55968, .26071, .85406, .08056, .01882,
1854 + .00285, .06169, .12318,
1855 + .55603, .25698, .83597, .07934, .01995,
1856 + .00536, .06132, .12077,
1857 + .55190, .25306, .81578, .07804, .02095,
1858 + .00719, .06085, .11825,
1859 + .54789, .24948, .79628, .07684, .02173,
1860 + .00859, .06035, .11597 /
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 + .54362, .24587, .77576, .07560, .02240,
1863 + .00980, .05979, .11368,
1864 + .53991, .24285, .75806, .07454, .02287,
1865 + .01065, .05928, .11179,
1866 + .53522, .23918, .73597, .07324, .02335,
1867 + .01155, .05861, .10950,
1868 + .53095, .23595, .71626, .07209, .02370,
1869 + .01226, .05798, .10749,
1870 + .52696, .23300, .69815, .07104, .02398,
1871 + .01285, .05739, .10565,
1872 + .52166, .22926, .67478, .06969, .02424,
1873 + .01348, .05659, .10333,
1874 + .51661, .22576, .65299, .06841, .02443,
1875 + .01399, .05582, .10117,
1876 + .51184, .22250, .63292, .06722, .02456,
1877 + .01443, .05509, .09920 /
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 + .50689, .21924, .61273, .06601, .02463,
1880 + .01478, .05430, .09722,
1881 + .50203, .21609, .59343, .06484, .02467,
1882 + .01509, .05353, .09531,
1883 + .49739, .21314, .57552, .06374, .02467,
1884 + .01534, .05280, .09353,
1885 + .49292, .21036, .55879, .06270, .02464,
1886 + .01553, .05209, .09186,
1887 + .48845, .20761, .54249, .06168, .02459,
1888 + .01570, .05139, .09020,
1889 + .48396, .20489, .52658, .06065, .02451,
1890 + .01583, .05068, .08859,
1891 + .47975, .20234, .51197, .05970, .02442,
1892 + .01594, .05001, .08709,
1893 + .47567, .19992, .49824, .05879, .02432,
1894 + .01601, .04936, .08567 /
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 + .47160, .19752, .48483, .05789, .02420,
1897 + .01607, .04871, .08427,
1898 + .46752, .19516, .47181, .05700, .02407,
1899 + .01611, .04807, .08289,
1900 + .46363, .19292, .45970, .05617, .02393,
1901 + .01613, .04745, .08159,
1902 + .45996, .19083, .44851, .05538, .02380,
1903 + .01615, .04687, .08038,
1904 + .45617, .18871, .43734, .05459, .02364,
1905 + .01614, .04628, .07916 /
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 + .62177, .30334, .62895, .07390, .00000,
1908 + .00000, .05137, .12660,
1909 + .62033, .29989, .66191, .07307, .00000,
1910 + .00000, .05151, .12437,
1911 + .61736, .29465, .69739, .07186, .00147,
1912 + .00000, .05165, .12119,
1913 + .61472, .29079, .71456, .07097, .00434,
1914 + .00000, .05169, .11892,
1915 + .61142, .28668, .72727, .07005, .00640,
1916 + .00000, .05166, .11657,
1917 + .60826, .28306, .73385, .06922, .00795,
1918 + .00000, .05157, .11458,
1919 + .60501, .27960, .73742, .06842, .00933,
1920 + .00000, .05144, .11269,
1921 + .60135, .27594, .73853, .06757, .01065,
1922 + .00000, .05127, .11071 /
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 + .59792, .27276, .73685, .06682, .01162,
1925 + .00000, .05108, .10899,
1926 + .59448, .26966, .73344, .06609, .01247,
1927 + .00000, .05087, .10735,
1928 + .59171, .26723, .72999, .06552, .01311,
1929 + .00000, .05068, .10607,
1930 + .58546, .26204, .71733, .06425, .01426,
1931 + .00032, .05021, .10336,
1932 + .57980, .25758, .70128, .06312, .01509,
1933 + .00220, .04973, .10105,
1934 + .57325, .25261, .68168, .06185, .01587,
1935 + .00410, .04914, .09849,
1936 + .56620, .24749, .66022, .06053, .01655,
1937 + .00547, .04847, .09586,
1938 + .55964, .24289, .63990, .05930, .01705,
1939 + .00649, .04781, .09352 /
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 + .55290, .23831, .61889, .05806, .01746,
1942 + .00736, .04712, .09119,
1943 + .54721, .23453, .60110, .05702, .01774,
1944 + .00797, .04651, .08928,
1945 + .54018, .23000, .57928, .05578, .01800,
1946 + .00859, .04575, .08698,
1947 + .53392, .22604, .56010, .05468, .01818,
1948 + .00908, .04506, .08499,
1949 + .52817, .22247, .54269, .05367, .01830,
1950 + .00947, .04440, .08322,
1951 + .52075, .21795, .52060, .05239, .01839,
1952 + .00988, .04356, .08097,
1953 + .51375, .21378, .50029, .05120, .01843,
1954 + .01020, .04276, .07891,
1955 + .50722, .20996, .48180, .05010, .01843,
1956 + .01047, .04200, .07703 /
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 + .50059, .20614, .46348, .04901, .01839,
1959 + .01067, .04122, .07517,
1960 + .49413, .20248, .44615, .04796, .01833,
1961 + .01085, .04046, .07338,
1962 + .48803, .19909, .43022, .04697, .01825,
1963 + .01098, .03975, .07172,
1964 + .48226, .19589, .41553, .04604, .01815,
1965 + .01107, .03907, .07019,
1966 + .47653, .19274, .40131, .04513, .01804,
1967 + .01115, .03839, .06869,
1968 + .47083, .18967, .38759, .04423, .01791,
1969 + .01120, .03772, .06722,
1970 + .46549, .18683, .37507, .04340, .01778,
1971 + .01124, .03710, .06586,
1972 + .46038, .18413, .36344, .04261, .01764,
1973 + .01125, .03651, .06458 /
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 + .45531, .18147, .35213, .04184, .01750,
1976 + .01126, .03592, .06332,
1977 + .45028, .17885, .34125, .04108, .01734,
1978 + .01125, .03534, .06209,
1979 + .44552, .17638, .33119, .04036, .01719,
1980 + .01123, .03479, .06094,
1981 + .44103, .17407, .32193, .03970, .01704,
1982 + .01121, .03427, .05988,
1983 + .43646, .17175, .31278, .03902, .01688,
1984 + .01117, .03375, .05881 /
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 + .66176, .30807, .56306, .05970, .00000,
1987 + .00000, .04302, .10789,
1988 + .65726, .30318, .59517, .05891, .00000,
1989 + .00000, .04304, .10559,
1990 + .64991, .29598, .62725, .05777, .00128,
1991 + .00000, .04296, .10226,
1992 + .64417, .29079, .64105, .05692, .00373,
1993 + .00000, .04284, .09989,
1994 + .63778, .28534, .64943, .05601, .00547,
1995 + .00000, .04265, .09747,
1996 + .63201, .28066, .65203, .05520, .00674,
1997 + .00000, .04244, .09541,
1998 + .62635, .27622, .65172, .05442, .00786,
1999 + .00000, .04218, .09348,
2000 + .62023, .27155, .64876, .05357, .00891,
2001 + .00000, .04188, .09148 /
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 + .61474, .26754, .64362, .05283, .00966,
2004 + .00000, .04159, .08975,
2005 + .60933, .26370, .63706, .05212, .01031,
2006 + .00000, .04128, .08810,
2007 + .60503, .26072, .63122, .05157, .01079,
2008 + .00000, .04102, .08680,
2009 + .59569, .25437, .61424, .05034, .01165,
2010 + .00026, .04043, .08411,
2011 + .58748, .24899, .59535, .04926, .01224,
2012 + .00171, .03985, .08183,
2013 + .57819, .24308, .57318, .04807, .01278,
2014 + .00318, .03916, .07934,
2015 + .56845, .23705, .54963, .04681, .01322,
2016 + .00421, .03842, .07679,
2017 + .55957, .23168, .52800, .04567, .01353,
2018 + .00496, .03771, .07455 /
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 + .55060, .22638, .50617, .04452, .01377,
2021 + .00560, .03696, .07234,
2022 + .54313, .22205, .48811, .04358, .01391,
2023 + .00603, .03634, .07053,
2024 + .53406, .21689, .46638, .04243, .01402,
2025 + .00646, .03557, .06840,
2026 + .52607, .21242, .44761, .04143, .01408,
2027 + .00680, .03488, .06656,
2028 + .51878, .20843, .43080, .04055, .01411,
2029 + .00706, .03424, .06490,
2030 + .50952, .20341, .40988, .03941, .01409,
2031 + .00732, .03342, .06285,
2032 + .50089, .19881, .39094, .03836, .01405,
2033 + .00753, .03265, .06099,
2034 + .49290, .19460, .37390, .03740, .01398,
2035 + .00769, .03193, .05930 /
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 + .48487, .19044, .35726, .03645, .01388,
2038 + .00780, .03122, .05762,
2039 + .47714, .18647, .34171, .03553, .01377,
2040 + .00789, .03052, .05604,
2041 + .46992, .18279, .32758, .03467, .01365,
2042 + .00796, .02986, .05459,
2043 + .46309, .17937, .31469, .03388, .01352,
2044 + .00800, .02925, .05323,
2045 + .45634, .17602, .30231, .03311, .01338,
2046 + .00803, .02865, .05190,
2047 + .44969, .17275, .29051, .03235, .01323,
2048 + .00803, .02806, .05064,
2049 + .44350, .16972, .27981, .03165, .01309,
2050 + .00803, .02751, .04947,
2051 + .43762, .16688, .26996, .03100, .01294,
2052 + .00801, .02699, .04836 /
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 + .43180, .16407, .26043, .03035, .01279,
2055 + .00799, .02648, .04728,
2056 + .42607, .16132, .25134, .02971, .01264,
2057 + .00796, .02597, .04624,
2058 + .42068, .15875, .24299, .02911, .01250,
2059 + .00793, .02550, .04527,
2060 + .41561, .15635, .23535, .02856, .01235,
2061 + .00789, .02505, .04438,
2062 + .41045, .15396, .22786, .02802, .01220,
2063 + .00784, .02459, .04347 /
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 + .69002, .30631, .54982, .04753, .00000,
2066 + .00000, .03543, .09022,
2067 + .68240, .30018, .57550, .04685, .00000,
2068 + .00000, .03541, .08801,
2069 + .67066, .29130, .59740, .04585, .00110,
2070 + .00000, .03524, .08479,
2071 + .66192, .28496, .60371, .04507, .00320,
2072 + .00000, .03507, .08253,
2073 + .65249, .27840, .60446, .04425, .00465,
2074 + .00000, .03481, .08019,
2075 + .64423, .27283, .60081, .04350, .00569,
2076 + .00000, .03453, .07822,
2077 + .63625, .26759, .59488, .04278, .00659,
2078 + .00000, .03422, .07638,
2079 + .62776, .26216, .58638, .04202, .00742,
2080 + .00000, .03386, .07446 /
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 + .62030, .25751, .57687, .04134, .00800,
2083 + .00000, .03353, .07281,
2084 + .61309, .25308, .56648, .04069, .00850,
2085 + .00000, .03318, .07126,
2086 + .60740, .24963, .55784, .04018, .00886,
2087 + .00000, .03290, .07005,
2088 + .59521, .24244, .53595, .03906, .00948,
2089 + .00021, .03224, .06753,
2090 + .58469, .23638, .51398, .03808, .00989,
2091 + .00133, .03165, .06541,
2092 + .57298, .22976, .48914, .03699, .01025,
2093 + .00245, .03096, .06310,
2094 + .56086, .22306, .46364, .03586, .01052,
2095 + .00323, .03021, .06077,
2096 + .54996, .21716, .44091, .03484, .01070,
2097 + .00379, .02952, .05874 /
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 + .53906, .21137, .41855, .03383, .01081,
2100 + .00426, .02880, .05674,
2101 + .53008, .20669, .40042, .03300, .01087,
2102 + .00456, .02821, .05511,
2103 + .51927, .20113, .37904, .03201, .01089,
2104 + .00487, .02748, .05320,
2105 + .50984, .19635, .36090, .03115, .01088,
2106 + .00509, .02683, .05156,
2107 + .50132, .19208, .34491, .03037, .01084,
2108 + .00527, .02624, .05011,
2109 + .49059, .18676, .32533, .02939, .01077,
2110 + .00543, .02550, .04832,
2111 + .48065, .18191, .30786, .02849, .01067,
2112 + .00556, .02480, .04670,
2113 + .47150, .17751, .29235, .02768, .01057,
2114 + .00565, .02417, .04523 /
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 + .46241, .17319, .27748, .02688, .01045,
2117 + .00571, .02353, .04379,
2118 + .45369, .16907, .26369, .02611, .01032,
2119 + .00575, .02293, .04242,
2120 + .44559, .16527, .25129, .02539, .01018,
2121 + .00578, .02237, .04117,
2122 + .43799, .16174, .24012, .02473, .01005,
2123 + .00578, .02184, .04004,
2124 + .43052, .15830, .22946, .02409, .00991,
2125 + .00578, .02132, .03893,
2126 + .42319, .15498, .21940, .02347, .00976,
2127 + .00577, .02080, .03786,
2128 + .41638, .15191, .21031, .02290, .00962,
2129 + .00575, .02033, .03687,
2130 + .40995, .14904, .20205, .02237, .00948,
2131 + .00572, .01989, .03596 /
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 + .40359, .14622, .19410, .02184, .00935,
2134 + .00568, .01945, .03506,
2135 + .39736, .14348, .18659, .02134, .00920,
2136 + .00565, .01903, .03420,
2137 + .39149, .14092, .17974, .02088, .00907,
2138 + .00560, .01863, .03339,
2139 + .38601, .13854, .17349, .02045, .00894,
2140 + .00556, .01826, .03264,
2141 + .38051, .13614, .16740, .02000, .00881,
2142 + .00552, .01789, .03191 /
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 + .70704, .29922, .56289, .03727, .00000,
2145 + .00000, .02874, .07416,
2146 + .69641, .29204, .57790, .03673, .00000,
2147 + .00000, .02871, .07211,
2148 + .68046, .28180, .58495, .03587, .00094,
2149 + .00000, .02852, .06915,
2150 + .66886, .27456, .58137, .03520, .00270,
2151 + .00000, .02831, .06708,
2152 + .65658, .26714, .57274, .03447, .00389,
2153 + .00000, .02802, .06495,
2154 + .64598, .26090, .56190, .03383, .00474,
2155 + .00000, .02771, .06314,
2156 + .63588, .25507, .54976, .03320, .00545,
2157 + .00000, .02739, .06144,
2158 + .62526, .24904, .53542, .03254, .00609,
2159 + .00000, .02704, .05968 /
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 + .61602, .24392, .52159, .03195, .00654,
2162 + .00000, .02669, .05819,
2163 + .60719, .23906, .50751, .03136, .00691,
2164 + .00000, .02634, .05679,
2165 + .60029, .23530, .49621, .03090, .00717,
2166 + .00000, .02606, .05571,
2167 + .58560, .22749, .46993, .02991, .00761,
2168 + .00017, .02543, .05345,
2169 + .57304, .22099, .44542, .02908, .00789,
2170 + .00102, .02486, .05153,
2171 + .55925, .21391, .41863, .02813, .00812,
2172 + .00188, .02420, .04949,
2173 + .54514, .20680, .39192, .02714, .00827,
2174 + .00247, .02349, .04746,
2175 + .53254, .20060, .36873, .02628, .00836,
2176 + .00288, .02285, .04565 /
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 + .52004, .19456, .34644, .02543, .00840,
2179 + .00321, .02221, .04389,
2180 + .50982, .18969, .32874, .02474, .00840,
2181 + .00343, .02166, .04248,
2182 + .49765, .18392, .30825, .02389, .00837,
2183 + .00364, .02101, .04085,
2184 + .48713, .17898, .29115, .02315, .00832,
2185 + .00379, .02044, .03945,
2186 + .47767, .17458, .27628, .02249, .00825,
2187 + .00390, .01992, .03822,
2188 + .46580, .16915, .25834, .02168, .00815,
2189 + .00401, .01927, .03669,
2190 + .45488, .16423, .24257, .02095, .00804,
2191 + .00408, .01868, .03531,
2192 + .44489, .15979, .22874, .02028, .00792,
2193 + .00413, .01813, .03407 /
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 + .43506, .15543, .21566, .01960, .00780,
2196 + .00416, .01758, .03289,
2197 + .42563, .15131, .20366, .01898, .00767,
2198 + .00417, .01706, .03177,
2199 + .41688, .14753, .19297, .01841, .00754,
2200 + .00417, .01658, .03073,
2201 + .40874, .14404, .18342, .01790, .00741,
2202 + .00416, .01614, .02979,
2203 + .40076, .14063, .17437, .01740, .00728,
2204 + .00415, .01570, .02888,
2205 + .39301, .13734, .16593, .01690, .00715,
2206 + .00412, .01528, .02800,
2207 + .38584, .13431, .15835, .01644, .00702,
2208 + .00410, .01490, .02719,
2209 + .37907, .13150, .15153, .01602, .00690,
2210 + .00406, .01454, .02645 /
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 + .37240, .12874, .14501, .01561, .00678,
2213 + .00403, .01418, .02572,
2214 + .36591, .12606, .13888, .01521, .00665,
2215 + .00399, .01384, .02503,
2216 + .35984, .12356, .13330, .01483, .00654,
2217 + .00395, .01351, .02439,
2218 + .35417, .12124, .12825, .01448, .00643,
2219 + .00392, .01321, .02379,
2220 + .34847, .11893, .12336, .01413, .00632,
2221 + .00387, .01292, .02320 /
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 + .71351, .28780, .58197, .02877, .00000,
2224 + .00000, .02297, .05995,
2225 + .69999, .27988, .58412, .02836, .00000,
2226 + .00000, .02293, .05811,
2227 + .68016, .26862, .57448, .02768, .00078,
2228 + .00000, .02272, .05547,
2229 + .66592, .26074, .56039, .02713, .00223,
2230 + .00000, .02249, .05363,
2231 + .65109, .25269, .54236, .02654, .00320,
2232 + .00000, .02219, .05172,
2233 + .63841, .24598, .52470, .02598, .00386,
2234 + .00000, .02190, .05012,
2235 + .62644, .23975, .50690, .02545, .00442,
2236 + .00000, .02159, .04862,
2237 + .61393, .23334, .48744, .02490, .00491,
2238 + .00000, .02123, .04706 /
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 + .60318, .22793, .46991, .02439, .00525,
2241 + .00000, .02092, .04574,
2242 + .59293, .22284, .45287, .02391, .00552,
2243 + .00000, .02058, .04451,
2244 + .58494, .21890, .43957, .02353, .00571,
2245 + .00000, .02031, .04356,
2246 + .56820, .21072, .41015, .02268, .00602,
2247 + .00013, .01973, .04160,
2248 + .55400, .20396, .38414, .02197, .00620,
2249 + .00078, .01920, .03996,
2250 + .53851, .19667, .35649, .02118, .00633,
2251 + .00143, .01860, .03820,
2252 + .52279, .18938, .32965, .02036, .00642,
2253 + .00186, .01798, .03645,
2254 + .50888, .18303, .30688, .01963, .00644,
2255 + .00216, .01742, .03494 /
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 + .49521, .17688, .28537, .01891, .00644,
2258 + .00240, .01685, .03346,
2259 + .48411, .17196, .26859, .01832, .00641,
2260 + .00255, .01638, .03228,
2261 + .47091, .16617, .24953, .01764, .00635,
2262 + .00269, .01582, .03090,
2263 + .45954, .16124, .23384, .01705, .00628,
2264 + .00279, .01534, .02974,
2265 + .44937, .15688, .22037, .01652, .00621,
2266 + .00287, .01490, .02871,
2267 + .43670, .15152, .20434, .01588, .00610,
2268 + .00293, .01435, .02746,
2269 + .42515, .14665, .19044, .01528, .00599,
2270 + .00297, .01384, .02634,
2271 + .41467, .14225, .17838, .01473, .00587,
2272 + .00300, .01338, .02534 /
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 + .40430, .13800, .16708, .01422, .00576,
2275 + .00300, .01295, .02435,
2276 + .39446, .13398, .15683, .01372, .00564,
2277 + .00300, .01252, .02344,
2278 + .38540, .13027, .14777, .01326, .00552,
2279 + .00299, .01212, .02263,
2280 + .37699, .12690, .13979, .01285, .00541,
2281 + .00298, .01176, .02187,
2282 + .36877, .12362, .13229, .01246, .00529,
2283 + .00296, .01143, .02112,
2284 + .36079, .12046, .12533, .01207, .00518,
2285 + .00293, .01109, .02043,
2286 + .35341, .11755, .11911, .01172, .00508,
2287 + .00290, .01077, .01979,
2288 + .34653, .11485, .11355, .01138, .00497,
2289 + .00287, .01048, .01921 /
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 + .33978, .11220, .10826, .01105, .00487,
2292 + .00284, .01020, .01865,
2293 + .33319, .10964, .10332, .01074, .00477,
2294 + .00281, .00992, .01810,
2295 + .32702, .10727, .09886, .01046, .00468,
2296 + .00277, .00967, .01759,
2297 + .32128, .10508, .09484, .01020, .00459,
2298 + .00274, .00944, .01712,
2299 + .31555, .10289, .09097, .00994, .00450,
2300 + .00271, .00920, .01666 /
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 + .70986, .27339, .59381, .02215, .00000,
2303 + .00000, .01791, .04749,
2304 + .69384, .26488, .58283, .02182, .00000,
2305 + .00000, .01786, .04591,
2306 + .67060, .25290, .55711, .02125, .00064,
2307 + .00000, .01769, .04363,
2308 + .65412, .24455, .53354, .02079, .00181,
2309 + .00000, .01748, .04205,
2310 + .63709, .23612, .50734, .02026, .00258,
2311 + .00000, .01721, .04043,
2312 + .62266, .22913, .48403, .01981, .00310,
2313 + .00000, .01695, .03904,
2314 + .60913, .22266, .46179, .01936, .00352,
2315 + .00000, .01666, .03776,
2316 + .59510, .21602, .43853, .01887, .00389,
2317 + .00000, .01634, .03646 /
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 + .58313, .21042, .41844, .01844, .00414,
2320 + .00000, .01606, .03535,
2321 + .57178, .20518, .39949, .01802, .00433,
2322 + .00000, .01577, .03431,
2323 + .56297, .20116, .38496, .01769, .00447,
2324 + .00000, .01553, .03351,
2325 + .54450, .19289, .35405, .01703, .00467,
2326 + .00010, .01502, .03183,
2327 + .52904, .18605, .32773, .01643, .00479,
2328 + .00059, .01455, .03049,
2329 + .51226, .17873, .30040, .01578, .00486,
2330 + .00107, .01404, .02902,
2331 + .49537, .17145, .27446, .01510, .00489,
2332 + .00139, .01351, .02756,
2333 + .48052, .16515, .25288, .01451, .00489,
2334 + .00161, .01303, .02631 /
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 + .46599, .15906, .23284, .01394, .00486,
2337 + .00177, .01256, .02509,
2338 + .45428, .15419, .21750, .01346, .00481,
2339 + .00188, .01217, .02414,
2340 + .44043, .14853, .20024, .01291, .00474,
2341 + .00198, .01171, .02301,
2342 + .42855, .14372, .18622, .01244, .00467,
2343 + .00204, .01132, .02206,
2344 + .41797, .13946, .17433, .01201, .00460,
2345 + .00209, .01096, .02125,
2346 + .40489, .13424, .16040, .01149, .00450,
2347 + .00212, .01050, .02025,
2348 + .39301, .12954, .14843, .01102, .00440,
2349 + .00214, .01010, .01935,
2350 + .38224, .12532, .13813, .01059, .00430,
2351 + .00216, .00974, .01853 /
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 + .37164, .12124, .12864, .01019, .00419,
2354 + .00215, .00938, .01778,
2355 + .36162, .11741, .12008, .00981, .00409,
2356 + .00214, .00904, .01706,
2357 + .35244, .11390, .11258, .00947, .00399,
2358 + .00213, .00874, .01639,
2359 + .34396, .11069, .10600, .00914, .00390,
2360 + .00211, .00846, .01580,
2361 + .33570, .10758, .09985, .00882, .00381,
2362 + .00209, .00819, .01523,
2363 + .32771, .10459, .09422, .00853, .00371,
2364 + .00207, .00792, .01470,
2365 + .32034, .10185, .08920, .00826, .00363,
2366 + .00204, .00767, .01422,
2367 + .31347, .09932, .08476, .00801, .00354,
2368 + .00202, .00745, .01377 /
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 + .30673, .09685, .08055, .00777, .00346,
2371 + .00199, .00724, .01332,
2372 + .30021, .09446, .07663, .00754, .00338,
2373 + .00196, .00703, .01290,
2374 + .29415, .09225, .07311, .00731, .00331,
2375 + .00193, .00683, .01252,
2376 + .28852, .09020, .06994, .00711, .00324,
2377 + .00191, .00665, .01216,
2378 + .28286, .08817, .06691, .00693, .00317,
2379 + .00188, .00647, .01181 /
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 + .69777, .25603, .59065, .01653, .00000,
2382 + .00000, .01393, .03717,
2383 + .67948, .24724, .56801, .01629, .00000,
2384 + .00000, .01388, .03581,
2385 + .65329, .23488, .52876, .01585, .00050,
2386 + .00000, .01367, .03391,
2387 + .63489, .22631, .49771, .01548, .00143,
2388 + .00000, .01347, .03257,
2389 + .61600, .21774, .46546, .01508, .00202,
2390 + .00000, .01322, .03118,
2391 + .60012, .21065, .43828, .01472, .00241,
2392 + .00000, .01298, .03002,
2393 + .58534, .20410, .41316, .01436, .00273,
2394 + .00000, .01273, .02895,
2395 + .57009, .19740, .38763, .01396, .00300,
2396 + .00000, .01246, .02786 /
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 + .55713, .19182, .36628, .01362, .00318,
2399 + .00000, .01221, .02693,
2400 + .54489, .18660, .34657, .01329, .00332,
2401 + .00000, .01195, .02606,
2402 + .53542, .18260, .33168, .01303, .00341,
2403 + .00000, .01175, .02541,
2404 + .51578, .17439, .30086, .01249, .00354,
2405 + .00008, .01131, .02402,
2406 + .49941, .16765, .27542, .01202, .00361,
2407 + .00043, .01090, .02292,
2408 + .48174, .16046, .24946, .01149, .00365,
2409 + .00079, .01048, .02171,
2410 + .46406, .15336, .22529, .01096, .00365,
2411 + .00102, .01003, .02053,
2412 + .44862, .14724, .20557, .01050, .00363,
2413 + .00117, .00963, .01952 /
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 + .43362, .14133, .18754, .01003, .00359,
2416 + .00129, .00925, .01856,
2417 + .42154, .13665, .17387, .00967, .00354,
2418 + .00136, .00892, .01782,
2419 + .40737, .13119, .15875, .00923, .00347,
2420 + .00142, .00855, .01693,
2421 + .39527, .12658, .14659, .00887, .00341,
2422 + .00146, .00824, .01617,
2423 + .38453, .12253, .13636, .00856, .00334,
2424 + .00149, .00795, .01550,
2425 + .37127, .11758, .12455, .00816, .00325,
2426 + .00151, .00760, .01473,
2427 + .35927, .11315, .11451, .00781, .00317,
2428 + .00152, .00728, .01402,
2429 + .34844, .10918, .10594, .00750, .00309,
2430 + .00152, .00700, .01338 /
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 + .33792, .10535, .09812, .00718, .00300,
2433 + .00152, .00672, .01278,
2434 + .32799, .10175, .09112, .00689, .00292,
2435 + .00151, .00645, .01223,
2436 + .31887, .09846, .08502, .00662, .00284,
2437 + .00149, .00622, .01173,
2438 + .31049, .09548, .07973, .00638, .00276,
2439 + .00148, .00600, .01129,
2440 + .30234, .09260, .07481, .00615, .00269,
2441 + .00146, .00580, .01086,
2442 + .29450, .08983, .07033, .00593, .00262,
2443 + .00144, .00559, .01045,
2444 + .28731, .08730, .06636, .00572, .00255,
2445 + .00142, .00541, .01007,
2446 + .28061, .08497, .06286, .00553, .00249,
2447 + .00140, .00523, .00973 /
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 + .27405, .08270, .05956, .00536, .00243,
2450 + .00137, .00506, .00940,
2451 + .26771, .08052, .05651, .00519, .00236,
2452 + .00135, .00491, .00908,
2453 + .26180, .07850, .05377, .00503, .00231,
2454 + .00133, .00477, .00879,
2455 + .25635, .07664, .05132, .00489, .00225,
2456 + .00131, .00464, .00852,
2457 + .25092, .07478, .04899, .00474, .00220,
2458 + .00129, .00450, .00827 /
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 + .67761, .23714, .57058, .01225, .00000,
2461 + .00000, .01059, .02855,
2462 + .65758, .22816, .53875, .01201, .00000,
2463 + .00000, .01052, .02748,
2464 + .62900, .21569, .48958, .01170, .00039,
2465 + .00000, .01034, .02588,
2466 + .60907, .20714, .45357, .01141, .00110,
2467 + .00000, .01018, .02475,
2468 + .58876, .19860, .41774, .01109, .00155,
2469 + .00000, .00995, .02363,
2470 + .57184, .19154, .38852, .01078, .00184,
2471 + .00000, .00974, .02268,
2472 + .55612, .18508, .36218, .01050, .00207,
2473 + .00000, .00953, .02179,
2474 + .53997, .17851, .33603, .01020, .00227,
2475 + .00000, .00931, .02088 /
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 + .52635, .17300, .31462, .00992, .00239,
2478 + .00000, .00909, .02014,
2479 + .51354, .16790, .29518, .00966, .00249,
2480 + .00000, .00888, .01945,
2481 + .50365, .16401, .28065, .00945, .00255,
2482 + .00000, .00870, .01892,
2483 + .48324, .15600, .25128, .00903, .00263,
2484 + .00006, .00833, .01782,
2485 + .46630, .14950, .22762, .00867, .00267,
2486 + .00032, .00801, .01692,
2487 + .44816, .14256, .20391, .00826, .00268,
2488 + .00057, .00766, .01598,
2489 + .43011, .13575, .18219, .00785, .00267,
2490 + .00073, .00731, .01504,
2491 + .41441, .12991, .16471, .00750, .00264,
2492 + .00084, .00699, .01425 /
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 + .39921, .12431, .14895, .00714, .00260,
2495 + .00092, .00668, .01351,
2496 + .38708, .11987, .13714, .00685, .00256,
2497 + .00097, .00643, .01292,
2498 + .37284, .11473, .12424, .00653, .00250,
2499 + .00101, .00614, .01222,
2500 + .36075, .11040, .11399, .00626, .00244,
2501 + .00104, .00589, .01164,
2502 + .35008, .10660, .10543, .00602, .00239,
2503 + .00105, .00567, .01114,
2504 + .33696, .10199, .09563, .00572, .00232,
2505 + .00106, .00540, .01053,
2506 + .32513, .09786, .08738, .00546, .00225,
2507 + .00107, .00516, .00999,
2508 + .31449, .09418, .08041, .00522, .00218,
2509 + .00106, .00495, .00951 /
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 + .30415, .09064, .07409, .00501, .00211,
2512 + .00106, .00473, .00907,
2513 + .29445, .08732, .06849, .00480, .00205,
2514 + .00105, .00453, .00865,
2515 + .28560, .08431, .06366, .00459, .00199,
2516 + .00103, .00436, .00827,
2517 + .27748, .08156, .05948, .00441, .00193,
2518 + .00102, .00419, .00794,
2519 + .26961, .07892, .05560, .00423, .00187,
2520 + .00101, .00403, .00762,
2521 + .26206, .07641, .05209, .00407, .00182,
2522 + .00099, .00388, .00731,
2523 + .25513, .07412, .04899, .00392, .00177,
2524 + .00097, .00375, .00703,
2525 + .24870, .07201, .04629, .00379, .00172,
2526 + .00096, .00361, .00678 /
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 + .24243, .06996, .04375, .00367, .00167,
2529 + .00094, .00349, .00653,
2530 + .23639, .06799, .04140, .00355, .00163,
2531 + .00092, .00337, .00629,
2532 + .23079, .06616, .03930, .00343, .00159,
2533 + .00091, .00327, .00607,
2534 + .22560, .06447, .03743, .00333, .00155,
2535 + .00089, .00317, .00588,
2536 + .22044, .06282, .03567, .00324, .00151,
2537 + .00088, .00307, .00569 /
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 + .65073, .21705, .53448, .00884, .00000,
2540 + .00000, .00794, .02163,
2541 + .62924, .20815, .49644, .00868, .00000,
2542 + .00000, .00788, .02074,
2543 + .59891, .19584, .44145, .00844, .00029,
2544 + .00000, .00772, .01942,
2545 + .57787, .18746, .40307, .00822, .00082,
2546 + .00000, .00756, .01852,
2547 + .55660, .17908, .36597, .00797, .00115,
2548 + .00000, .00741, .01758,
2549 + .53894, .17221, .33656, .00774, .00136,
2550 + .00000, .00721, .01683,
2551 + .52264, .16592, .31053, .00751, .00153,
2552 + .00000, .00702, .01615,
2553 + .50596, .15957, .28510, .00727, .00167,
2554 + .00000, .00683, .01545 /
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 + .49189, .15431, .26469, .00709, .00175,
2557 + .00000, .00665, .01484,
2558 + .47875, .14941, .24639, .00689, .00182,
2559 + .00000, .00648, .01428,
2560 + .46867, .14566, .23286, .00674, .00186,
2561 + .00000, .00634, .01386,
2562 + .44793, .13803, .20594, .00640, .00191,
2563 + .00005, .00605, .01298,
2564 + .43082, .13184, .18476, .00613, .00193,
2565 + .00022, .00581, .01228,
2566 + .41254, .12529, .16382, .00580, .00193,
2567 + .00040, .00552, .01158,
2568 + .39443, .11888, .14486, .00550, .00191,
2569 + .00052, .00524, .01086,
2570 + .37878, .11339, .12982, .00525, .00188,
2571 + .00059, .00500, .01024 /
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 + .36373, .10817, .11646, .00499, .00185,
2574 + .00065, .00475, .00965,
2575 + .35170, .10406, .10655, .00477, .00181,
2576 + .00068, .00456, .00920,
2577 + .33772, .09930, .09583, .00453, .00176,
2578 + .00070, .00434, .00867,
2579 + .32588, .09529, .08738, .00433, .00172,
2580 + .00072, .00415, .00823,
2581 + .31543, .09179, .08039, .00417, .00167,
2582 + .00073, .00398, .00785,
2583 + .30267, .08755, .07249, .00394, .00162,
2584 + .00074, .00376, .00740,
2585 + .29123, .08376, .06587, .00374, .00156,
2586 + .00074, .00358, .00701,
2587 + .28099, .08039, .06031, .00356, .00151,
2588 + .00073, .00343, .00665 /
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 + .27105, .07717, .05534, .00340, .00146,
2591 + .00072, .00327, .00633,
2592 + .26173, .07417, .05094, .00324, .00141,
2593 + .00072, .00312, .00602,
2594 + .25325, .07147, .04715, .00311, .00137,
2595 + .00071, .00300, .00573,
2596 + .24551, .06899, .04391, .00299, .00133,
2597 + .00070, .00287, .00548,
2598 + .23802, .06660, .04092, .00288, .00128,
2599 + .00068, .00276, .00524,
2600 + .23087, .06435, .03824, .00275, .00124,
2601 + .00067, .00264, .00502,
2602 + .22434, .06231, .03588, .00263, .00121,
2603 + .00066, .00254, .00482,
2604 + .21826, .06041, .03382, .00255, .00117,
2605 + .00065, .00245, .00464 /
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 + .21234, .05858, .03190, .00247, .00114,
2608 + .00064, .00237, .00447,
2609 + .20666, .05682, .03013, .00239, .00111,
2610 + .00062, .00229, .00430,
2611 + .20140, .05521, .02855, .00232, .00108,
2612 + .00061, .00221, .00414,
2613 + .19655, .05372, .02714, .00225, .00105,
2614 + .00060, .00214, .00400,
2615 + .19174, .05226, .02581, .00218, .00102,
2616 + .00059, .00207, .00386 /
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 + .61808, .19643, .48563, .00623, .00000,
2619 + .00000, .00589, .01611,
2620 + .59560, .18779, .44454, .00612, .00000,
2621 + .00000, .00582, .01538,
2622 + .56409, .17585, .38750, .00592, .00022,
2623 + .00000, .00569, .01434,
2624 + .54237, .16774, .34917, .00578, .00060,
2625 + .00000, .00556, .01360,
2626 + .52055, .15971, .31288, .00559, .00084,
2627 + .00000, .00538, .01290,
2628 + .50250, .15314, .28472, .00543, .00099,
2629 + .00000, .00523, .01230,
2630 + .48591, .14716, .26020, .00526, .00110,
2631 + .00000, .00508, .01176,
2632 + .46903, .14113, .23661, .00508, .00120,
2633 + .00000, .00492, .01121 /
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 + .45487, .13614, .21789, .00491, .00126,
2636 + .00000, .00479, .01075,
2637 + .44167, .13151, .20133, .00476, .00130,
2638 + .00000, .00465, .01032,
2639 + .43156, .12798, .18920, .00465, .00132,
2640 + .00000, .00455, .00999,
2641 + .41080, .12084, .16547, .00442, .00135,
2642 + .00003, .00432, .00934,
2643 + .39377, .11505, .14708, .00425, .00136,
2644 + .00016, .00411, .00879,
2645 + .37576, .10894, .12915, .00400, .00136,
2646 + .00028, .00391, .00825,
2647 + .35799, .10299, .11317, .00376, .00134,
2648 + .00036, .00370, .00770,
2649 + .34268, .09794, .10063, .00357, .00131,
2650 + .00041, .00351, .00723 /
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 + .32800, .09313, .08958, .00338, .00128,
2653 + .00045, .00333, .00681,
2654 + .31633, .08935, .08148, .00324, .00125,
2655 + .00047, .00318, .00646,
2656 + .30280, .08500, .07281, .00306, .00122,
2657 + .00049, .00302, .00608,
2658 + .29138, .08136, .06603, .00292, .00118,
2659 + .00050, .00288, .00575,
2660 + .28135, .07817, .06046, .00280, .00115,
2661 + .00050, .00275, .00546,
2662 + .26913, .07434, .05419, .00266, .00111,
2663 + .00050, .00260, .00512,
2664 + .25822, .07093, .04900, .00251, .00107,
2665 + .00050, .00247, .00483,
2666 + .24849, .06790, .04468, .00238, .00103,
2667 + .00050, .00234, .00459 /
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 + .23908, .06502, .04083, .00226, .00099,
2670 + .00049, .00223, .00435,
2671 + .23030, .06233, .03744, .00215, .00096,
2672 + .00048, .00213, .00413,
2673 + .22234, .05990, .03455, .00205, .00093,
2674 + .00048, .00203, .00393,
2675 + .21507, .05772, .03209, .00197, .00090,
2676 + .00047, .00194, .00374,
2677 + .20804, .05563, .02982, .00190, .00087,
2678 + .00046, .00185, .00355,
2679 + .20134, .05364, .02780, .00182, .00084,
2680 + .00045, .00178, .00340,
2681 + .19522, .05182, .02602, .00175, .00081,
2682 + .00044, .00171, .00326,
2683 + .18961, .05016, .02448, .00168, .00079,
2684 + .00043, .00164, .00314 /
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 + .18416, .04854, .02303, .00161, .00076,
2687 + .00043, .00158, .00302,
2688 + .17893, .04700, .02171, .00154, .00074,
2689 + .00042, .00153, .00290,
2690 + .17409, .04558, .02055, .00148, .00072,
2691 + .00041, .00147, .00279,
2692 + .16963, .04428, .01951, .00143, .00070,
2693 + .00040, .00142, .00269,
2694 + .16520, .04301, .01854, .00139, .00068,
2695 + .00040, .00137, .00259 /
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 + .58063, .17599, .42844, .00443, .00000,
2698 + .00000, .00423, .01172,
2699 + .55765, .16767, .38697, .00433, .00000,
2700 + .00000, .00417, .01114,
2701 + .52561, .15629, .33127, .00417, .00015,
2702 + .00000, .00404, .01034,
2703 + .50366, .14856, .29483, .00404, .00043,
2704 + .00000, .00393, .00982,
2705 + .48169, .14096, .26106, .00389, .00059,
2706 + .00000, .00382, .00924,
2707 + .46362, .13480, .23527, .00377, .00070,
2708 + .00000, .00370, .00879,
2709 + .44706, .12920, .21312, .00365, .00078,
2710 + .00000, .00357, .00838,
2711 + .43026, .12357, .19206, .00352, .00084,
2712 + .00000, .00344, .00795 /
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 + .41623, .11890, .17558, .00340, .00088,
2715 + .00000, .00334, .00761,
2716 + .40319, .11459, .16114, .00330, .00091,
2717 + .00000, .00324, .00729,
2718 + .39322, .11132, .15064, .00323, .00092,
2719 + .00000, .00316, .00705,
2720 + .37290, .10470, .13034, .00304, .00094,
2721 + .00002, .00299, .00655,
2722 + .35637, .09935, .11486, .00286, .00094,
2723 + .00011, .00286, .00615,
2724 + .33880, .09377, .09996, .00271, .00093,
2725 + .00019, .00269, .00574,
2726 + .32156, .08835, .08683, .00258, .00092,
2727 + .00024, .00253, .00532,
2728 + .30683, .08375, .07665, .00244, .00090,
2729 + .00028, .00240, .00499 /
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 + .29277, .07939, .06778, .00228, .00087,
2732 + .00030, .00227, .00469,
2733 + .28162, .07597, .06133, .00217, .00085,
2734 + .00032, .00216, .00444,
2735 + .26873, .07206, .05448, .00206, .00082,
2736 + .00033, .00204, .00414,
2737 + .25790, .06879, .04917, .00197, .00080,
2738 + .00034, .00193, .00391,
2739 + .24842, .06594, .04485, .00188, .00078,
2740 + .00035, .00184, .00371,
2741 + .23692, .06252, .04000, .00177, .00074,
2742 + .00035, .00173, .00347,
2743 + .22665, .05950, .03601, .00168, .00072,
2744 + .00035, .00164, .00327,
2745 + .21750, .05683, .03271, .00161, .00069,
2746 + .00035, .00155, .00308 /
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 + .20876, .05427, .02979, .00152, .00066,
2749 + .00034, .00148, .00291,
2750 + .20059, .05190, .02724, .00144, .00064,
2751 + .00034, .00141, .00275,
2752 + .19319, .04976, .02506, .00137, .00062,
2753 + .00034, .00134, .00262,
2754 + .18650, .04784, .02322, .00130, .00060,
2755 + .00033, .00128, .00250,
2756 + .18008, .04600, .02153, .00122, .00058,
2757 + .00033, .00121, .00238,
2758 + .17391, .04426, .02003, .00118, .00056,
2759 + .00033, .00116, .00227,
2760 + .16828, .04268, .01872, .00115, .00054,
2761 + .00032, .00112, .00217,
2762 + .16315, .04124, .01758, .00111, .00052,
2763 + .00031, .00108, .00208 /
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 + .15818, .03984, .01651, .00106, .00051,
2766 + .00031, .00104, .00198,
2767 + .15339, .03851, .01555, .00102, .00049,
2768 + .00030, .00100, .00190,
2769 + .14897, .03729, .01470, .00098, .00048,
2770 + .00030, .00096, .00182,
2771 + .14491, .03618, .01394, .00094, .00047,
2772 + .00029, .00092, .00176,
2773 + .14093, .03507, .01323, .00090, .00045,
2774 + .00029, .00089, .00169 /
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 + .53970, .15581, .36708, .00301, .00000,
2777 + .00000, .00301, .00840,
2778 + .51659, .14801, .32756, .00295, .00000,
2779 + .00000, .00295, .00793,
2780 + .48453, .13734, .27580, .00285, .00011,
2781 + .00000, .00285, .00731,
2782 + .46269, .13016, .24275, .00278, .00029,
2783 + .00000, .00275, .00690,
2784 + .44099, .12307, .21259, .00266, .00041,
2785 + .00000, .00263, .00649,
2786 + .42318, .11735, .18987, .00258, .00048,
2787 + .00000, .00254, .00616,
2788 + .40693, .11218, .17056, .00249, .00053,
2789 + .00000, .00244, .00586,
2790 + .39054, .10698, .15242, .00238, .00058,
2791 + .00000, .00234, .00555 /
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 + .37690, .10268, .13839, .00231, .00060,
2794 + .00000, .00227, .00529,
2795 + .36423, .09875, .12621, .00225, .00062,
2796 + .00000, .00220, .00503,
2797 + .35455, .09577, .11741, .00221, .00063,
2798 + .00000, .00214, .00484,
2799 + .33496, .08976, .10060, .00206, .00064,
2800 + .00002, .00202, .00450,
2801 + .31902, .08492, .08797, .00196, .00064,
2802 + .00007, .00191, .00420,
2803 + .30223, .07986, .07596, .00185, .00063,
2804 + .00013, .00179, .00392,
2805 + .28586, .07499, .06548, .00173, .00062,
2806 + .00016, .00167, .00362,
2807 + .27188, .07087, .05743, .00164, .00060,
2808 + .00018, .00158, .00337 /
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 + .25858, .06698, .05048, .00155, .00059,
2811 + .00020, .00149, .00314,
2812 + .24809, .06394, .04546, .00148, .00057,
2813 + .00021, .00141, .00296,
2814 + .23602, .06046, .04015, .00140, .00055,
2815 + .00022, .00133, .00276,
2816 + .22590, .05757, .03607, .00133, .00053,
2817 + .00022, .00126, .00260,
2818 + .21706, .05506, .03277, .00127, .00052,
2819 + .00022, .00119, .00247,
2820 + .20641, .05205, .02911, .00119, .00050,
2821 + .00022, .00113, .00229,
2822 + .19693, .04939, .02612, .00112, .00048,
2823 + .00022, .00106, .00215,
2824 + .18851, .04704, .02365, .00107, .00046,
2825 + .00022, .00100, .00202 /
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 + .18044, .04483, .02148, .00102, .00044,
2828 + .00022, .00094, .00191,
2829 + .17295, .04278, .01959, .00097, .00043,
2830 + .00022, .00090, .00180,
2831 + .16620, .04092, .01799, .00093, .00042,
2832 + .00022, .00087, .00169,
2833 + .16008, .03926, .01663, .00088, .00040,
2834 + .00022, .00082, .00161,
2835 + .15420, .03767, .01540, .00083, .00039,
2836 + .00022, .00078, .00154,
2837 + .14863, .03617, .01430, .00080, .00038,
2838 + .00022, .00074, .00147,
2839 + .14357, .03481, .01334, .00077, .00037,
2840 + .00022, .00071, .00140,
2841 + .13894, .03358, .01252, .00073, .00036,
2842 + .00022, .00068, .00134 /
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 + .13445, .03239, .01175, .00069, .00035,
2845 + .00022, .00064, .00128,
2846 + .13016, .03125, .01105, .00066, .00034,
2847 + .00022, .00061, .00122,
2848 + .12620, .03021, .01043, .00064, .00034,
2849 + .00022, .00059, .00117,
2850 + .12257, .02926, .00988, .00062, .00033,
2851 + .00022, .00057, .00113,
2852 + .11899, .02832, .00937, .00060, .00032,
2853 + .00022, .00055, .00108 /
2854 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
2855 + .49613, .13638, .30550, .00198, .00000,
2856 + .00000, .00211, .00592,
2857 + .47329, .12911, .26952, .00196, .00000,
2858 + .00000, .00205, .00557,
2859 + .44184, .11921, .22342, .00186, .00007,
2860 + .00000, .00196, .00512,
2861 + .42047, .11262, .19460, .00183, .00020,
2862 + .00000, .00189, .00478,
2863 + .39928, .10615, .16858, .00176, .00027,
2864 + .00000, .00181, .00448,
2865 + .38208, .10091, .14930, .00166, .00032,
2866 + .00000, .00175, .00426,
2867 + .36639, .09619, .13308, .00160, .00036,
2868 + .00000, .00169, .00403,
2869 + .35057, .09149, .11799, .00155, .00039,
2870 + .00000, .00163, .00377 /
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 + .33751, .08760, .10644, .00148, .00040,
2873 + .00000, .00157, .00358,
2874 + .32542, .08404, .09649, .00143, .00042,
2875 + .00000, .00150, .00342,
2876 + .31622, .08135, .08935, .00140, .00042,
2877 + .00000, .00145, .00330,
2878 + .29756, .07595, .07587, .00131, .00043,
2879 + .00001, .00136, .00305,
2880 + .28247, .07163, .06586, .00125, .00043,
2881 + .00005, .00129, .00283,
2882 + .26668, .06713, .05644, .00116, .00043,
2883 + .00008, .00120, .00262,
2884 + .25131, .06280, .04831, .00107, .00042,
2885 + .00010, .00112, .00243,
2886 + .23825, .05916, .04211, .00102, .00041,
2887 + .00012, .00105, .00225 /
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 + .22587, .05574, .03680, .00096, .00040,
2890 + .00013, .00099, .00207,
2891 + .21614, .05306, .03300, .00090, .00039,
2892 + .00013, .00093, .00197,
2893 + .20495, .05003, .02903, .00087, .00037,
2894 + .00013, .00088, .00184,
2895 + .19563, .04751, .02598, .00083, .00036,
2896 + .00013, .00084, .00172,
2897 + .18757, .04533, .02352, .00075, .00035,
2898 + .00013, .00079, .00162,
2899 + .17779, .04272, .02082, .00072, .00034,
2900 + .00013, .00075, .00150,
2901 + .16913, .04043, .01862, .00069, .00033,
2902 + .00013, .00070, .00140,
2903 + .16146, .03842, .01681, .00065, .00032,
2904 + .00013, .00066, .00131 /
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 + .15418, .03650, .01523, .00061, .00031,
2907 + .00013, .00062, .00124,
2908 + .14742, .03474, .01386, .00058, .00031,
2909 + .00013, .00059, .00117,
2910 + .14131, .03316, .01271, .00055, .00030,
2911 + .00013, .00056, .00111,
2912 + .13580, .03175, .01174, .00053, .00029,
2913 + .00013, .00053, .00105,
2914 + .13052, .03040, .01085, .00051, .00028,
2915 + .00013, .00050, .00100,
2916 + .12555, .02912, .01007, .00049, .00028,
2917 + .00013, .00048, .00094,
2918 + .12104, .02797, .00938, .00046, .00027,
2919 + .00013, .00045, .00089,
2920 + .11691, .02693, .00879, .00044, .00027,
2921 + .00013, .00044, .00085 /
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 + .11292, .02592, .00824, .00042, .00026,
2924 + .00013, .00042, .00082,
2925 + .10911, .02497, .00775, .00039, .00026,
2926 + .00013, .00040, .00078,
2927 + .10561, .02410, .00731, .00037, .00025,
2928 + .00013, .00038, .00075,
2929 + .10241, .02331, .00692, .00036, .00025,
2930 + .00013, .00037, .00073,
2931 + .09926, .02253, .00656, .00035, .00024,
2932 + .00013, .00035, .00069 /
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 + .45110, .11798, .24708, .00127, .00000,
2935 + .00000, .00144, .00406,
2936 + .42887, .11132, .21566, .00124, .00000,
2937 + .00000, .00140, .00383,
2938 + .39841, .10230, .17613, .00117, .00005,
2939 + .00000, .00134, .00348,
2940 + .37785, .09629, .15187, .00109, .00013,
2941 + .00000, .00128, .00327,
2942 + .35755, .09044, .13024, .00105, .00018,
2943 + .00000, .00123, .00305,
2944 + .34111, .08573, .11442, .00101, .00021,
2945 + .00000, .00118, .00287,
2946 + .32618, .08148, .10125, .00098, .00023,
2947 + .00000, .00113, .00271,
2948 + .31119, .07726, .08911, .00094, .00025,
2949 + .00000, .00109, .00254 /
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 + .29881, .07381, .07990, .00090, .00026,
2952 + .00000, .00104, .00242,
2953 + .28741, .07065, .07203, .00086, .00027,
2954 + .00000, .00100, .00230,
2955 + .27876, .06826, .06642, .00083, .00027,
2956 + .00000, .00098, .00221,
2957 + .26133, .06346, .05594, .00076, .00028,
2958 + .00001, .00090, .00205,
2959 + .24730, .05966, .04824, .00071, .00028,
2960 + .00003, .00086, .00189,
2961 + .23260, .05573, .04105, .00067, .00028,
2962 + .00005, .00081, .00174,
2963 + .21837, .05195, .03491, .00064, .00028,
2964 + .00006, .00075, .00159,
2965 + .20633, .04878, .03027, .00060, .00028,
2966 + .00007, .00070, .00147 /
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 + .19498, .04580, .02633, .00056, .00028,
2969 + .00007, .00065, .00137,
2970 + .18612, .04350, .02352, .00052, .00028,
2971 + .00007, .00062, .00129,
2972 + .17592, .04089, .02060, .00050, .00027,
2973 + .00007, .00058, .00120,
2974 + .16746, .03872, .01839, .00048, .00027,
2975 + .00007, .00055, .00112,
2976 + .16013, .03685, .01661, .00045, .00027,
2977 + .00007, .00053, .00105,
2978 + .15133, .03462, .01466, .00041, .00026,
2979 + .00007, .00048, .00099,
2980 + .14356, .03267, .01308, .00038, .00025,
2981 + .00007, .00045, .00092,
2982 + .13672, .03095, .01179, .00035, .00024,
2983 + .00007, .00043, .00086 /
2984 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
2985 + .13018, .02935, .01066, .00035, .00024,
2986 + .00007, .00040, .00080,
2987 + .12414, .02786, .00969, .00033, .00023,
2988 + .00007, .00038, .00075,
2989 + .11874, .02653, .00887, .00030, .00023,
2990 + .00007, .00036, .00072,
2991 + .11387, .02535, .00818, .00028, .00023,
2992 + .00007, .00034, .00068,
2993 + .10921, .02422, .00756, .00028, .00022,
2994 + .00007, .00032, .00063,
2995 + .10480, .02315, .00700, .00028, .00022,
2996 + .00007, .00031, .00060,
2997 + .10081, .02219, .00652, .00027, .00021,
2998 + .00007, .00030, .00057,
2999 + .09719, .02132, .00611, .00026, .00021,
3000 + .00007, .00029, .00054 /
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 + .09370, .02049, .00572, .00024, .00021,
3003 + .00007, .00027, .00052,
3004 + .09038, .01970, .00537, .00023, .00021,
3005 + .00007, .00026, .00049,
3006 + .08733, .01898, .00507, .00022, .00021,
3007 + .00007, .00025, .00047,
3008 + .08454, .01832, .00480, .00021, .00020,
3009 + .00007, .00024, .00044,
3010 + .08181, .01768, .00454, .00020, .00020,
3011 + .00007, .00023, .00043 /
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 + .40552, .10094, .19439, .00090, .00000,
3014 + .00000, .00091, .00269,
3015 + .38423, .09493, .16801, .00088, .00000,
3016 + .00000, .00087, .00254,
3017 + .35520, .08687, .13538, .00084, .00003,
3018 + .00000, .00082, .00229,
3019 + .33572, .08151, .11566, .00084, .00008,
3020 + .00000, .00078, .00212,
3021 + .31659, .07630, .09835, .00078, .00011,
3022 + .00000, .00076, .00196,
3023 + .30113, .07213, .08577, .00074, .00013,
3024 + .00000, .00071, .00182,
3025 + .28716, .06838, .07541, .00070, .00014,
3026 + .00000, .00068, .00172,
3027 + .27318, .06466, .06596, .00067, .00015,
3028 + .00000, .00064, .00162 /
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 + .26169, .06162, .05883, .00065, .00016,
3031 + .00000, .00062, .00153,
3032 + .25113, .05884, .05278, .00062, .00016,
3033 + .00000, .00060, .00145,
3034 + .24312, .05675, .04849, .00060, .00017,
3035 + .00000, .00059, .00138,
3036 + .22700, .05260, .04055, .00056, .00017,
3037 + .00001, .00053, .00127,
3038 + .21411, .04930, .03477, .00053, .00017,
3039 + .00002, .00050, .00119,
3040 + .20071, .04588, .02941, .00048, .00017,
3041 + .00003, .00046, .00107,
3042 + .18779, .04262, .02488, .00044, .00017,
3043 + .00003, .00043, .00098,
3044 + .17687, .03989, .02149, .00042, .00017,
3045 + .00003, .00040, .00090 /
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 + .16659, .03735, .01861, .00041, .00017,
3048 + .00004, .00038, .00082,
3049 + .15858, .03538, .01659, .00039, .00017,
3050 + .00004, .00036, .00077,
3051 + .14948, .03315, .01449, .00035, .00017,
3052 + .00004, .00033, .00072,
3053 + .14192, .03131, .01290, .00033, .00017,
3054 + .00004, .00031, .00068,
3055 + .13535, .02973, .01163, .00032, .00017,
3056 + .00004, .00029, .00064,
3057 + .12752, .02785, .01025, .00030, .00017,
3058 + .00004, .00027, .00059,
3059 + .12062, .02621, .00913, .00028, .00017,
3060 + .00004, .00025, .00054,
3061 + .11456, .02479, .00822, .00028, .00017,
3062 + .00004, .00024, .00050 /
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 + .10884, .02342, .00743, .00025, .00017,
3065 + .00004, .00022, .00048,
3066 + .10355, .02218, .00674, .00023, .00017,
3067 + .00004, .00021, .00045,
3068 + .09881, .02108, .00617, .00023, .00017,
3069 + .00004, .00019, .00042,
3070 + .09455, .02010, .00568, .00022, .00017,
3071 + .00004, .00018, .00039,
3072 + .09048, .01917, .00525, .00021, .00017,
3073 + .00004, .00017, .00036,
3074 + .08666, .01829, .00486, .00020, .00017,
3075 + .00004, .00016, .00034,
3076 + .08320, .01750, .00453, .00019, .00017,
3077 + .00004, .00016, .00033,
3078 + .08007, .01679, .00424, .00018, .00016,
3079 + .00004, .00015, .00032 /
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 + .07706, .01610, .00397, .00016, .00016,
3082 + .00004, .00014, .00031,
3083 + .07420, .01545, .00373, .00015, .00016,
3084 + .00004, .00014, .00029,
3085 + .07157, .01486, .00352, .00015, .00016,
3086 + .00004, .00013, .00028,
3087 + .06917, .01432, .00333, .00015, .00016,
3088 + .00004, .00013, .00026,
3089 + .06682, .01380, .00315, .00014, .00016,
3090 + .00004, .00012, .00025 /
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 + .35997, .08499, .14809, .00047, .00000,
3093 + .00000, .00062, .00181,
3094 + .33988, .07969, .12682, .00049, .00000,
3095 + .00000, .00060, .00166,
3096 + .31270, .07255, .10091, .00043, .00002,
3097 + .00000, .00055, .00150,
3098 + .29452, .06787, .08545, .00045, .00005,
3099 + .00000, .00053, .00137,
3100 + .27678, .06328, .07203, .00039, .00006,
3101 + .00000, .00050, .00128,
3102 + .26246, .05964, .06240, .00037, .00007,
3103 + .00000, .00047, .00121,
3104 + .24952, .05640, .05453, .00038, .00008,
3105 + .00000, .00044, .00112,
3106 + .23664, .05319, .04739, .00039, .00009,
3107 + .00000, .00042, .00103 /
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 + .22613, .05056, .04207, .00036, .00009,
3110 + .00000, .00040, .00098,
3111 + .21649, .04817, .03757, .00033, .00009,
3112 + .00000, .00038, .00093,
3113 + .20920, .04638, .03440, .00032, .00009,
3114 + .00000, .00037, .00089,
3115 + .19459, .04282, .02855, .00030, .00009,
3116 + .00000, .00034, .00081,
3117 + .18291, .04000, .02437, .00029, .00009,
3118 + .00001, .00032, .00073,
3119 + .17079, .03710, .02052, .00028, .00009,
3120 + .00001, .00030, .00066,
3121 + .15917, .03433, .01728, .00027, .00009,
3122 + .00001, .00027, .00061,
3123 + .14944, .03204, .01487, .00025, .00009,
3124 + .00001, .00026, .00057 /
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 + .14031, .02990, .01284, .00023, .00009,
3127 + .00001, .00024, .00053,
3128 + .13318, .02825, .01141, .00023, .00009,
3129 + .00001, .00022, .00049,
3130 + .12513, .02638, .00995, .00021, .00009,
3131 + .00001, .00020, .00045,
3132 + .11849, .02486, .00884, .00019, .00009,
3133 + .00001, .00019, .00042,
3134 + .11275, .02354, .00796, .00017, .00009,
3135 + .00001, .00018, .00039,
3136 + .10589, .02199, .00700, .00017, .00009,
3137 + .00001, .00017, .00035,
3138 + .09987, .02064, .00623, .00016, .00009,
3139 + .00001, .00015, .00033,
3140 + .09460, .01946, .00560, .00014, .00009,
3141 + .00001, .00013, .00031 /
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 + .08960, .01835, .00506, .00015, .00009,
3144 + .00001, .00013, .00029,
3145 + .08502, .01733, .00459, .00015, .00009,
3146 + .00001, .00013, .00027,
3147 + .08094, .01643, .00420, .00015, .00009,
3148 + .00001, .00012, .00025,
3149 + .07729, .01563, .00387, .00013, .00009,
3150 + .00001, .00011, .00023,
3151 + .07382, .01486, .00357, .00011, .00009,
3152 + .00001, .00010, .00022,
3153 + .07054, .01415, .00331, .00011, .00009,
3154 + .00001, .00010, .00021,
3155 + .06758, .01352, .00308, .00011, .00009,
3156 + .00001, .00009, .00019,
3157 + .06491, .01294, .00288, .00010, .00009,
3158 + .00001, .00009, .00019 /
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 + .06234, .01239, .00270, .00010, .00009,
3161 + .00001, .00009, .00018,
3162 + .05991, .01187, .00253, .00009, .00009,
3163 + .00001, .00008, .00017,
3164 + .05770, .01140, .00239, .00009, .00009,
3165 + .00001, .00007, .00017,
3166 + .05567, .01097, .00226, .00008, .00009,
3167 + .00001, .00007, .00016,
3168 + .05368, .01055, .00214, .00009, .00009,
3169 + .00001, .00007, .00015 /
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 + .31548, .07060, .10941, .00025, .00000,
3172 + .00000, .00043, .00115,
3173 + .29686, .06597, .09282, .00023, .00000,
3174 + .00000, .00040, .00107,
3175 + .27168, .05979, .07298, .00024, .00001,
3176 + .00000, .00036, .00095,
3177 + .25500, .05572, .06130, .00022, .00003,
3178 + .00000, .00034, .00088,
3179 + .23875, .05178, .05127, .00020, .00003,
3180 + .00000, .00032, .00080,
3181 + .22569, .04866, .04414, .00020, .00004,
3182 + .00000, .00029, .00076,
3183 + .21399, .04588, .03834, .00019, .00004,
3184 + .00000, .00027, .00071,
3185 + .20237, .04313, .03313, .00017, .00004,
3186 + .00000, .00026, .00066 /
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 + .19283, .04090, .02927, .00018, .00004,
3189 + .00000, .00025, .00061,
3190 + .18413, .03887, .02603, .00017, .00004,
3191 + .00000, .00024, .00057,
3192 + .17759, .03736, .02377, .00017, .00004,
3193 + .00000, .00023, .00055,
3194 + .16454, .03434, .01962, .00014, .00004,
3195 + .00000, .00021, .00052,
3196 + .15413, .03197, .01667, .00014, .00004,
3197 + .00000, .00020, .00047,
3198 + .14339, .02955, .01398, .00014, .00004,
3199 + .00000, .00018, .00042,
3200 + .13313, .02725, .01172, .00013, .00004,
3201 + .00000, .00017, .00038,
3202 + .12456, .02533, .01006, .00012, .00004,
3203 + .00000, .00015, .00035 /
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 + .11657, .02356, .00867, .00011, .00004,
3206 + .00000, .00015, .00032,
3207 + .11036, .02220, .00770, .00011, .00004,
3208 + .00000, .00014, .00030,
3209 + .10333, .02067, .00670, .00010, .00004,
3210 + .00000, .00013, .00027,
3211 + .09754, .01942, .00595, .00010, .00004,
3212 + .00000, .00012, .00025,
3213 + .09256, .01835, .00535, .00011, .00004,
3214 + .00000, .00012, .00022,
3215 + .08666, .01708, .00470, .00009, .00004,
3216 + .00000, .00010, .00021,
3217 + .08151, .01598, .00418, .00007, .00004,
3218 + .00000, .00009, .00020,
3219 + .07700, .01503, .00376, .00006, .00004,
3220 + .00000, .00009, .00019 /
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 + .07275, .01413, .00340, .00006, .00004,
3223 + .00000, .00008, .00017,
3224 + .06885, .01332, .00308, .00006, .00004,
3225 + .00000, .00007, .00016,
3226 + .06537, .01259, .00282, .00006, .00004,
3227 + .00000, .00007, .00015,
3228 + .06226, .01195, .00260, .00006, .00004,
3229 + .00000, .00006, .00014,
3230 + .05932, .01134, .00240, .00007, .00004,
3231 + .00000, .00006, .00012,
3232 + .05656, .01078, .00222, .00006, .00004,
3233 + .00000, .00006, .00012,
3234 + .05408, .01027, .00207, .00006, .00004,
3235 + .00000, .00005, .00012,
3236 + .05184, .00981, .00193, .00005, .00004,
3237 + .00000, .00005, .00012 /
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 + .04969, .00938, .00181, .00004, .00004,
3240 + .00000, .00005, .00011,
3241 + .04767, .00897, .00170, .00004, .00004,
3242 + .00000, .00005, .00010,
3243 + .04582, .00859, .00160, .00004, .00004,
3244 + .00000, .00004, .00010,
3245 + .04414, .00826, .00151, .00004, .00004,
3246 + .00000, .00004, .00009,
3247 + .04249, .00793, .00143, .00004, .00004,
3248 + .00000, .00004, .00009 /
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 + .27283, .05791, .07840, .00018, .00000,
3251 + .00000, .00023, .00069,
3252 + .25584, .05393, .06599, .00017, .00000,
3253 + .00000, .00022, .00064,
3254 + .23299, .04862, .05131, .00016, .00001,
3255 + .00000, .00019, .00057,
3256 + .21792, .04515, .04277, .00015, .00001,
3257 + .00000, .00018, .00052,
3258 + .20325, .04182, .03552, .00016, .00002,
3259 + .00000, .00018, .00046,
3260 + .19155, .03918, .03040, .00015, .00002,
3261 + .00000, .00016, .00042,
3262 + .18109, .03683, .02628, .00013, .00002,
3263 + .00000, .00015, .00040,
3264 + .17073, .03452, .02260, .00012, .00002,
3265 + .00000, .00014, .00038 /
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 + .16227, .03266, .01989, .00012, .00002,
3268 + .00000, .00013, .00036,
3269 + .15457, .03097, .01764, .00012, .00002,
3270 + .00000, .00013, .00034,
3271 + .14880, .02970, .01606, .00011, .00002,
3272 + .00000, .00013, .00032,
3273 + .13729, .02719, .01320, .00009, .00002,
3274 + .00000, .00011, .00028,
3275 + .12815, .02524, .01118, .00011, .00002,
3276 + .00000, .00010, .00026,
3277 + .11880, .02324, .00934, .00010, .00002,
3278 + .00000, .00009, .00023,
3279 + .10989, .02134, .00782, .00009, .00002,
3280 + .00000, .00009, .00022,
3281 + .10246, .01978, .00670, .00009, .00002,
3282 + .00000, .00008, .00020 /
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 + .09555, .01834, .00577, .00009, .00002,
3285 + .00000, .00007, .00018,
3286 + .09021, .01723, .00512, .00009, .00002,
3287 + .00000, .00007, .00016,
3288 + .08421, .01599, .00445, .00007, .00002,
3289 + .00000, .00006, .00015,
3290 + .07928, .01498, .00395, .00007, .00002,
3291 + .00000, .00006, .00013,
3292 + .07503, .01412, .00356, .00007, .00002,
3293 + .00000, .00006, .00012,
3294 + .07000, .01310, .00313, .00007, .00002,
3295 + .00000, .00005, .00011,
3296 + .06563, .01223, .00278, .00006, .00002,
3297 + .00000, .00004, .00011,
3298 + .06183, .01147, .00250, .00005, .00002,
3299 + .00000, .00004, .00011 /
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 + .05827, .01076, .00226, .00004, .00002,
3302 + .00000, .00004, .00010,
3303 + .05500, .01011, .00205, .00005, .00002,
3304 + .00000, .00003, .00008,
3305 + .05208, .00953, .00188, .00005, .00002,
3306 + .00000, .00003, .00007,
3307 + .04950, .00903, .00173, .00005, .00002,
3308 + .00000, .00003, .00007,
3309 + .04706, .00855, .00159, .00004, .00002,
3310 + .00000, .00003, .00007,
3311 + .04478, .00811, .00148, .00004, .00002,
3312 + .00000, .00003, .00007,
3313 + .04274, .00771, .00137, .00003, .00002,
3314 + .00000, .00003, .00006,
3315 + .04088, .00735, .00129, .00004, .00002,
3316 + .00000, .00002, .00006 /
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 + .03910, .00701, .00120, .00004, .00002,
3319 + .00000, .00002, .00006,
3320 + .03742, .00669, .00113, .00004, .00002,
3321 + .00000, .00002, .00005,
3322 + .03590, .00640, .00107, .00004, .00002,
3323 + .00000, .00002, .00005,
3324 + .03453, .00614, .00101, .00004, .00002,
3325 + .00000, .00002, .00005,
3326 + .03319, .00588, .00095, .00003, .00002,
3327 + .00000, .00002, .00004 /
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 + .23222, .04652, .05408, .00005, .00000,
3330 + .00000, .00017, .00045,
3331 + .21697, .04317, .04517, .00005, .00000,
3332 + .00000, .00016, .00040,
3333 + .19659, .03873, .03475, .00005, .00000,
3334 + .00000, .00014, .00035,
3335 + .18320, .03584, .02878, .00004, .00000,
3336 + .00000, .00013, .00033,
3337 + .17021, .03308, .02373, .00004, .00000,
3338 + .00000, .00012, .00029,
3339 + .15989, .03088, .02021, .00005, .00000,
3340 + .00000, .00011, .00026,
3341 + .15069, .02895, .01740, .00005, .00000,
3342 + .00000, .00011, .00024,
3343 + .14161, .02705, .01490, .00004, .00000,
3344 + .00000, .00010, .00022 /
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 + .13422, .02552, .01307, .00005, .00000,
3347 + .00000, .00008, .00021,
3348 + .12752, .02414, .01155, .00004, .00000,
3349 + .00000, .00008, .00020,
3350 + .12250, .02311, .01050, .00004, .00000,
3351 + .00000, .00008, .00018,
3352 + .11256, .02107, .00860, .00002, .00000,
3353 + .00000, .00007, .00018,
3354 + .10472, .01948, .00727, .00003, .00000,
3355 + .00000, .00007, .00015,
3356 + .09667, .01787, .00606, .00003, .00000,
3357 + .00000, .00006, .00014,
3358 + .08905, .01635, .00506, .00003, .00000,
3359 + .00000, .00005, .00012,
3360 + .08274, .01510, .00434, .00004, .00000,
3361 + .00000, .00005, .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 + .07690, .01395, .00373, .00003, .00000,
3364 + .00000, .00005, .00010,
3365 + .07240, .01307, .00331, .00003, .00000,
3366 + .00000, .00005, .00009,
3367 + .06733, .01209, .00288, .00003, .00000,
3368 + .00000, .00004, .00009,
3369 + .06319, .01129, .00256, .00002, .00000,
3370 + .00000, .00004, .00008,
3371 + .05966, .01061, .00230, .00002, .00000,
3372 + .00000, .00004, .00007,
3373 + .05546, .00982, .00202, .00003, .00000,
3374 + .00000, .00003, .00006,
3375 + .05184, .00913, .00180, .00003, .00000,
3376 + .00000, .00003, .00006,
3377 + .04871, .00854, .00162, .00001, .00000,
3378 + .00000, .00003, .00006 /
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 + .04575, .00798, .00147, .00002, .00000,
3381 + .00000, .00003, .00005,
3382 + .04306, .00748, .00133, .00002, .00000,
3383 + .00000, .00003, .00005,
3384 + .04068, .00704, .00122, .00002, .00000,
3385 + .00000, .00002, .00004,
3386 + .03857, .00665, .00112, .00002, .00000,
3387 + .00000, .00002, .00004,
3388 + .03658, .00628, .00104, .00001, .00000,
3389 + .00000, .00002, .00004,
3390 + .03472, .00594, .00096, .00001, .00000,
3391 + .00000, .00002, .00004,
3392 + .03306, .00564, .00089, .00001, .00000,
3393 + .00000, .00002, .00004,
3394 + .03156, .00537, .00084, .00001, .00000,
3395 + .00000, .00002, .00003 /
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 + .03013, .00511, .00078, .00001, .00000,
3398 + .00000, .00002, .00003,
3399 + .02879, .00486, .00073, .00001, .00000,
3400 + .00000, .00001, .00003,
3401 + .02756, .00464, .00069, .00001, .00000,
3402 + .00000, .00001, .00003,
3403 + .02646, .00444, .00065, .00001, .00000,
3404 + .00000, .00001, .00003,
3405 + .02538, .00425, .00062, .00001, .00000,
3406 + .00000, .00001, .00003 /
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 + .16018, .02851, .02302, .00003, .00000,
3409 + .00000, .00004, .00012,
3410 + .14854, .02626, .01896, .00002, .00000,
3411 + .00000, .00003, .00012,
3412 + .13311, .02330, .01433, .00001, .00000,
3413 + .00000, .00003, .00011,
3414 + .12306, .02139, .01173, .00002, .00000,
3415 + .00000, .00003, .00009,
3416 + .11342, .01959, .00958, .00002, .00000,
3417 + .00000, .00003, .00008,
3418 + .10584, .01817, .00809, .00001, .00000,
3419 + .00000, .00003, .00007,
3420 + .09911, .01693, .00692, .00001, .00000,
3421 + .00000, .00003, .00006,
3422 + .09251, .01572, .00590, .00001, .00000,
3423 + .00000, .00003, .00007 /
3424 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
3425 + .08721, .01474, .00516, .00001, .00000,
3426 + .00000, .00002, .00006,
3427 + .08241, .01387, .00455, .00001, .00000,
3428 + .00000, .00002, .00006,
3429 + .07883, .01322, .00413, .00001, .00000,
3430 + .00000, .00002, .00005,
3431 + .07178, .01195, .00337, .00002, .00000,
3432 + .00000, .00002, .00004,
3433 + .06628, .01097, .00285, .00002, .00000,
3434 + .00000, .00002, .00004,
3435 + .06069, .00998, .00238, .00001, .00000,
3436 + .00000, .00002, .00004,
3437 + .05545, .00905, .00199, .00001, .00000,
3438 + .00000, .00002, .00004,
3439 + .05113, .00830, .00171, .00001, .00000,
3440 + .00000, .00002, .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 + .04716, .00761, .00147, .00001, .00000,
3443 + .00000, .00001, .00003,
3444 + .04414, .00709, .00131, .00001, .00000,
3445 + .00000, .00002, .00003,
3446 + .04076, .00651, .00114, .00000, .00000,
3447 + .00000, .00001, .00002,
3448 + .03802, .00604, .00102, .00000, .00000,
3449 + .00000, .00001, .00002,
3450 + .03569, .00565, .00092, .00001, .00000,
3451 + .00000, .00001, .00002,
3452 + .03295, .00519, .00081, .00000, .00000,
3453 + .00000, .00001, .00002,
3454 + .03060, .00479, .00072, .00000, .00000,
3455 + .00000, .00001, .00002,
3456 + .02857, .00445, .00065, .00000, .00000,
3457 + .00000, .00001, .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 + .02667, .00414, .00059, .00000, .00000,
3460 + .00000, .00001, .00001,
3461 + .02496, .00386, .00054, .00000, .00000,
3462 + .00000, .00001, .00002,
3463 + .02346, .00361, .00049, .00000, .00000,
3464 + .00000, .00001, .00001,
3465 + .02212, .00339, .00045, .00000, .00000,
3466 + .00000, .00001, .00001,
3467 + .02087, .00319, .00042, .00000, .00000,
3468 + .00000, .00000, .00001,
3469 + .01972, .00300, .00039, .00000, .00000,
3470 + .00000, .00000, .00001,
3471 + .01869, .00284, .00036, .00000, .00000,
3472 + .00000, .00000, .00001,
3473 + .01776, .00269, .00034, .00000, .00000,
3474 + .00000, .00000, .00001 /
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 + .01688, .00255, .00032, .00000, .00000,
3477 + .00000, .00000, .00001,
3478 + .01606, .00242, .00030, .00000, .00000,
3479 + .00000, .00000, .00001,
3480 + .01531, .00230, .00028, .00001, .00000,
3481 + .00000, .00000, .00001,
3482 + .01464, .00219, .00026, .00001, .00000,
3483 + .00000, .00000, .00001,
3484 + .01400, .00209, .00025, .00000, .00000,
3485 + .00000, .00000, .00001 /
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 + .10172, .01588, .00815, .00002, .00000,
3488 + .00000, .00001, .00003,
3489 + .09355, .01451, .00665, .00001, .00000,
3490 + .00000, .00000, .00004,
3491 + .08285, .01272, .00497, .00001, .00000,
3492 + .00000, .00000, .00002,
3493 + .07595, .01159, .00405, .00001, .00000,
3494 + .00000, .00001, .00002,
3495 + .06941, .01052, .00329, .00000, .00000,
3496 + .00000, .00000, .00002,
3497 + .06429, .00969, .00278, .00001, .00000,
3498 + .00000, .00000, .00002,
3499 + .05978, .00896, .00238, .00001, .00000,
3500 + .00000, .00001, .00001,
3501 + .05541, .00826, .00203, .00001, .00000,
3502 + .00000, .00000, .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 + .05190, .00770, .00178, .00001, .00000,
3505 + .00000, .00000, .00001,
3506 + .04877, .00721, .00157, .00000, .00000,
3507 + .00000, .00000, .00002,
3508 + .04645, .00684, .00143, .00000, .00000,
3509 + .00000, .00001, .00002,
3510 + .04190, .00612, .00117, .00000, .00000,
3511 + .00000, .00000, .00001,
3512 + .03837, .00557, .00100, .00000, .00000,
3513 + .00000, .00000, .00001,
3514 + .03482, .00503, .00084, .00000, .00000,
3515 + .00000, .00000, .00001,
3516 + .03152, .00452, .00071, .00000, .00000,
3517 + .00000, .00000, .00001,
3518 + .02883, .00411, .00061, .00000, .00000,
3519 + .00000, .00000, .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 + .02639, .00374, .00053, .00000, .00000,
3522 + .00000, .00000, .00000,
3523 + .02453, .00347, .00047, .00000, .00000,
3524 + .00000, .00000, .00000,
3525 + .02248, .00316, .00041, .00000, .00000,
3526 + .00000, .00000, .00000,
3527 + .02082, .00291, .00037, .00000, .00000,
3528 + .00000, .00000, .00000,
3529 + .01942, .00270, .00034, .00000, .00000,
3530 + .00000, .00000, .00000,
3531 + .01779, .00246, .00030, .00000, .00000,
3532 + .00000, .00000, .00000,
3533 + .01641, .00226, .00027, .00000, .00000,
3534 + .00000, .00000, .00000,
3535 + .01522, .00209, .00024, .00000, .00000,
3536 + .00000, .00000, .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 + .01412, .00193, .00022, .00000, .00000,
3539 + .00000, .00000, .00000,
3540 + .01313, .00178, .00020, .00000, .00000,
3541 + .00000, .00000, .00000,
3542 + .01226, .00166, .00018, .00000, .00000,
3543 + .00000, .00000, .00000,
3544 + .01150, .00155, .00017, .00000, .00000,
3545 + .00000, .00000, .00000,
3546 + .01080, .00145, .00015, .00000, .00000,
3547 + .00000, .00000, .00000,
3548 + .01014, .00136, .00014, .00000, .00000,
3549 + .00000, .00000, .00000,
3550 + .00957, .00128, .00013, .00000, .00000,
3551 + .00000, .00000, .00000,
3552 + .00905, .00121, .00012, .00000, .00000,
3553 + .00000, .00000, .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 + .00856, .00114, .00012, .00000, .00000,
3556 + .00000, .00000, .00000,
3557 + .00811, .00107, .00011, .00000, .00000,
3558 + .00000, .00000, .00000,
3559 + .00770, .00102, .00010, .00000, .00000,
3560 + .00000, .00000, .00000,
3561 + .00733, .00096, .00010, .00000, .00000,
3562 + .00000, .00000, .00000,
3563 + .00698, .00092, .00009, .00000, .00000,
3564 + .00000, .00000, .00000 /
3565 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/
3566 + .05796, .00780, .00228, .00001, .00000,
3567 + .00000, .00000, .00000,
3568 + .05282, .00706, .00186, .00001, .00000,
3569 + .00000, -.00001, .00000,
3570 + .04614, .00611, .00140, .00002, .00000,
3571 + .00000, .00000, .00000,
3572 + .04192, .00551, .00114, .00000, .00000,
3573 + .00000, .00000, .00001,
3574 + .03794, .00496, .00094, .00000, .00000,
3575 + .00000, -.00001, .00000,
3576 + .03485, .00453, .00080, .00001, .00000,
3577 + .00000, .00000, .00000,
3578 + .03216, .00416, .00069, .00001, .00000,
3579 + .00000, .00000, .00000,
3580 + .02957, .00380, .00059, .00000, .00000,
3581 + .00000, .00000, .00001 /
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 + .02751, .00352, .00052, .00000, .00000,
3584 + .00000, .00000, .00000,
3585 + .02568, .00327, .00047, .00000, .00000,
3586 + .00000, .00000, .00000,
3587 + .02433, .00309, .00043, .00000, .00000,
3588 + .00000, .00000, .00000,
3589 + .02171, .00274, .00036, .00000, .00000,
3590 + .00000, .00000, .00000,
3591 + .01970, .00247, .00031, .00000, .00000,
3592 + .00000, .00000, .00000,
3593 + .01770, .00221, .00026, .00000, .00000,
3594 + .00000, .00000, .00000,
3595 + .01586, .00197, .00022, .00000, .00000,
3596 + .00000, .00000, .00000,
3597 + .01438, .00177, .00019, .00000, .00000,
3598 + .00000, .00000, .00000 /
3599 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/
3600 + .01304, .00160, .00017, .00000, .00000,
3601 + .00000, .00000, .00000,
3602 + .01204, .00147, .00015, .00000, .00000,
3603 + .00000, .00000, .00000,
3604 + .01093, .00133, .00013, .00000, .00000,
3605 + .00000, .00000, .00000,
3606 + .01005, .00121, .00012, .00000, .00000,
3607 + .00000, .00000, .00000,
3608 + .00931, .00112, .00011, .00000, .00000,
3609 + .00000, .00000, .00000,
3610 + .00846, .00101, .00010, .00000, .00000,
3611 + .00000, .00000, .00000,
3612 + .00774, .00092, .00009, .00000, .00000,
3613 + .00000, .00000, .00000,
3614 + .00712, .00084, .00008, .00000, .00000,
3615 + .00000, .00000, .00000 /
3616 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/
3617 + .00656, .00077, .00007, .00000, .00000,
3618 + .00000, .00000, .00000,
3619 + .00606, .00071, .00006, .00000, .00000,
3620 + .00000, .00000, .00000,
3621 + .00562, .00066, .00006, .00000, .00000,
3622 + .00000, .00000, .00000,
3623 + .00524, .00061, .00005, .00000, .00000,
3624 + .00000, .00000, .00000,
3625 + .00489, .00057, .00005, .00000, .00000,
3626 + .00000, .00000, .00000,
3627 + .00456, .00053, .00005, .00000, .00000,
3628 + .00000, .00000, .00000,
3629 + .00428, .00049, .00004, .00000, .00000,
3630 + .00000, .00000, .00000,
3631 + .00403, .00046, .00004, .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 + .00379, .00044, .00004, .00000, .00000,
3635 + .00000, .00000, .00000,
3636 + .00357, .00041, .00003, .00000, .00000,
3637 + .00000, .00000, .00000,
3638 + .00337, .00039, .00003, .00000, .00000,
3639 + .00000, .00000, .00000,
3640 + .00320, .00036, .00003, .00000, .00000,
3641 + .00000, .00000, .00000,
3642 + .00303, .00034, .00003, .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 + .02822, .00318, .00046, -.00001, .00000,
3646 + .00000, .00000, .00000,
3647 + .02543, .00285, .00039, .00000, .00000,
3648 + .00000, .00000, .00000,
3649 + .02189, .00243, .00030, .00000, .00000,
3650 + .00000, .00000, .00000,
3651 + .01966, .00217, .00025, .00000, .00000,
3652 + .00000, .00000, .00000,
3653 + .01760, .00193, .00021, .00000, .00000,
3654 + .00000, .00000, .00000,
3655 + .01602, .00175, .00019, .00000, .00000,
3656 + .00000, .00000, .00000,
3657 + .01465, .00159, .00016, .00000, .00000,
3658 + .00000, .00000, .00000,
3659 + .01334, .00144, .00014, .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 + .01232, .00132, .00013, .00000, .00000,
3663 + .00000, .00000, .00000,
3664 + .01141, .00122, .00012, .00000, .00000,
3665 + .00000, .00000, .00000,
3666 + .01075, .00115, .00011, .00000, .00000,
3667 + .00000, .00000, .00000,
3668 + .00947, .00100, .00009, .00000, .00000,
3669 + .00000, .00000, .00000,
3670 + .00850, .00090, .00008, .00000, .00000,
3671 + .00000, .00000, .00000,
3672 + .00755, .00079, .00007, .00000, .00000,
3673 + .00000, .00000, .00000,
3674 + .00669, .00070, .00006, .00000, .00000,
3675 + .00000, .00000, .00000,
3676 + .00600, .00062, .00005, .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 + .00538, .00055, .00005, .00000, .00000,
3680 + .00000, .00000, .00000,
3681 + .00493, .00050, .00004, .00000, .00000,
3682 + .00000, .00000, .00000,
3683 + .00443, .00045, .00004, .00000, .00000,
3684 + .00000, .00000, .00000,
3685 + .00403, .00041, .00003, .00000, .00000,
3686 + .00000, .00000, .00000,
3687 + .00371, .00037, .00003, .00000, .00000,
3688 + .00000, .00000, .00000,
3689 + .00333, .00034, .00003, .00000, .00000,
3690 + .00000, .00000, .00000,
3691 + .00302, .00030, .00002, .00000, .00000,
3692 + .00000, .00000, .00000,
3693 + .00276, .00028, .00002, .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 + .00252, .00025, .00002, .00000, .00000,
3697 + .00000, .00000, .00000,
3698 + .00231, .00023, .00002, .00000, .00000,
3699 + .00000, .00000, .00000,
3700 + .00212, .00021, .00002, .00000, .00000,
3701 + .00000, .00000, .00000,
3702 + .00197, .00019, .00001, .00000, .00000,
3703 + .00000, .00000, .00000,
3704 + .00182, .00018, .00001, .00000, .00000,
3705 + .00000, .00000, .00000,
3706 + .00169, .00016, .00001, .00000, .00000,
3707 + .00000, .00000, .00000,
3708 + .00157, .00015, .00001, .00000, .00000,
3709 + .00000, .00000, .00000,
3710 + .00147, .00014, .00001, .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 + .00137, .00013, .00001, .00000, .00000,
3714 + .00000, .00000, .00000,
3715 + .00129, .00012, .00001, .00000, .00000,
3716 + .00000, .00000, .00000,
3717 + .00121, .00012, .00001, .00000, .00000,
3718 + .00000, .00000, .00000,
3719 + .00114, .00011, .00001, .00000, .00000,
3720 + .00000, .00000, .00000,
3721 + .00107, .00010, .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 + .00270, .00018, .00000, .00000, .00000,
3725 + .00000, .00000, .00000,
3726 + .00236, .00016, .00000, .00000, .00000,
3727 + .00000, .00000, .00000,
3728 + .00194, .00013, .00000, .00000, .00000,
3729 + .00000, .00000, .00000,
3730 + .00169, .00011, .00000, .00000, .00000,
3731 + .00000, .00000, .00000,
3732 + .00147, .00010, .00000, .00000, .00000,
3733 + .00000, .00000, .00000,
3734 + .00130, .00009, .00000, .00000, .00000,
3735 + .00000, .00000, .00000,
3736 + .00116, .00008, .00000, .00000, .00000,
3737 + .00000, .00000, .00000,
3738 + .00103, .00007, .00000, .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 + .00093, .00006, .00000, .00000, .00000,
3742 + .00000, .00000, .00000,
3743 + .00084, .00005, .00000, .00000, .00000,
3744 + .00000, .00000, .00000,
3745 + .00078, .00005, .00000, .00000, .00000,
3746 + .00000, .00000, .00000,
3747 + .00066, .00004, .00000, .00000, .00000,
3748 + .00000, .00000, .00000,
3749 + .00057, .00004, .00000, .00000, .00000,
3750 + .00000, .00000, .00000,
3751 + .00049, .00003, .00000, .00000, .00000,
3752 + .00000, .00000, .00000,
3753 + .00042, .00003, .00000, .00000, .00000,
3754 + .00000, .00000, .00000,
3755 + .00037, .00002, .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 + .00032, .00002, .00000, .00000, .00000,
3759 + .00000, .00000, .00000,
3760 + .00029, .00002, .00000, .00000, .00000,
3761 + .00000, .00000, .00000,
3762 + .00025, .00002, .00000, .00000, .00000,
3763 + .00000, .00000, .00000,
3764 + .00022, .00001, .00000, .00000, .00000,
3765 + .00000, .00000, .00000,
3766 + .00020, .00001, .00000, .00000, .00000,
3767 + .00000, .00000, .00000,
3768 + .00017, .00001, .00000, .00000, .00000,
3769 + .00000, .00000, .00000,
3770 + .00015, .00001, .00000, .00000, .00000,
3771 + .00000, .00000, .00000,
3772 + .00014, .00001, .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 + .00012, .00001, .00000, .00000, .00000,
3776 + .00000, .00000, .00000,
3777 + .00011, .00001, .00000, .00000, .00000,
3778 + .00000, .00000, .00000,
3779 + .00010, .00001, .00000, .00000, .00000,
3780 + .00000, .00000, .00000,
3781 + .00009, .00001, .00000, .00000, .00000,
3782 + .00000, .00000, .00000,
3783 + .00008, .00001, .00000, .00000, .00000,
3784 + .00000, .00000, .00000,
3785 + .00007, .00001, .00000, .00000, .00000,
3786 + .00000, .00000, .00000,
3787 + .00007, .00001, .00000, .00000, .00000,
3788 + .00000, .00000, .00000,
3789 + .00006, .00001, .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 + .00005, .00001, .00000, .00000, .00000,
3793 + .00000, .00000, .00000,
3794 + .00005, .00001, .00000, .00000, .00000,
3795 + .00000, .00000, .00000,
3796 + .00005, .00001, .00000, .00000, .00000,
3797 + .00000, .00000, .00000,
3798 + .00004, .00001, .00000, .00000, .00000,
3799 + .00000, .00000, .00000,
3800 + .00004, .00001, .00000, .00000, .00000,
3801 + .00000, .00000, .00000 /
3802 data xx/1d-5,2d-5,4d-5,6d-5,8d-5,
3803 . 1d-4,2d-4,4d-4,6d-4,8d-4,
3804 . 1d-3,2d-3,4d-3,6d-3,8d-3,
3805 . 1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2,
3806 . .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0,
3807 . .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0,
3808 . .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0,
3809 . .8d0,.9d0,1d0/
3810 data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1,
3811 . 1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2,
3812 . 1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4,
3813 . 1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6,
3814 . 1.8d6,3.2d6,5.6d6,1d7/
3815 data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/
3816 data n0/3,4,5,9,9,9,9,9/
3817 DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
3818 data init/0/
3819 save
3820 xsave=x
3821 q2save=qsq
3822 if(init.ne.0) goto 10
3823C open(unit=1,file='mrschm1.dat',status='old')
3824 do 20 n=1,nx-1
3825 do 20 m=1,nq
3826C read(1,50)f(1,n,m),f(2,n,m),f(3,n,m),f(4,n,m),
3827C . f(5,n,m),f(7,n,m),f(6,n,m),f(8,n,m)
3828c notation: 1=uval 2=val 3=glue 4=usea 5=chm 6=str 7=btm 8=dsea
3829 do 25 i=1,np
3830 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i)
3831 20 continue
3832 do 31 j=1,ntenth-1
3833 xx(j)= log10(xx(j)/xx(ntenth))+xx(ntenth)
3834 do 31 i=1,8
3835 if(i.eq.5.or.i.eq.7) goto 31
3836 do 30 k=1,nq
3837 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k)
3838 31 continue
3839 50 format(8f10.5)
3840 do 40 i=1,np
3841 do 40 m=1,nq
3842 40 f(i,nx,m)=ZEROD
3843 init=1
3844 10 continue
3845 if(x.lt.xmin) x=xmin
3846 if(x.gt.xmax) x=xmax
3847 if(qsq.lt.qsqmin) qsq=qsqmin
3848 if(qsq.gt.qsqmax) qsq=qsqmax
3849 xxx=x
3850 if(x.lt.xx(ntenth)) xxx= log10(x/xx(ntenth))+xx(ntenth)
3851 n=0
3852 70 n=n+1
3853 if(xxx.gt.xx(n+1)) goto 70
3854 a=(xxx-xx(n))/(xx(n+1)-xx(n))
3855 m=0
3856 80 m=m+1
3857 if(qsq.gt.qq(m+1)) goto 80
3858 b=(qsq-qq(m))/(qq(m+1)-qq(m))
3859 do 60 i=1,np
3860 g(i)=(ONED-a)*(ONED-b)*f(i,n,m) + (ONED-a)*b*f(i,n,m+1)
3861 . + a*(ONED-b)*f(i,n+1,m) + a*b*f(i,n+1,m+1)
3862 if(n.ge.ntenth) goto 65
3863 if(i.eq.5.or.i.eq.7) goto 65
3864 fac=(ONED-b)*f(i,ntenth,m)+b*f(i,ntenth,m+1)
3865 g(i)=fac*10d0**(g(i)-fac)
3866 65 continue
3867 g(i)=g(i)*(ONED-x)**n0(i)
3868 60 continue
3869 upv=g(1)
3870 dnv=g(2)
3871 usea=g(4)
3872 dsea=g(8)
3873 str=g(6)
3874 chm=g(5)
3875 glu=g(3)
3876 bot=g(7)
3877 x=xsave
3878 qsq=q2save
3879 return
3880 end
3881
3882