]> git.uio.no Git - u/mrichter/AliRoot.git/blame - PDF/spdf/sfdisd0.F
git://git.uio.no / u / mrichter / AliRoot.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / PDF / spdf / sfdisd0.F
CommitLineData
fe4da5cc 1*
2* $Id$
3*
4* $Log$
5* Revision 1.1.1.2 1996/10/30 08:29:39 cernlib
6* Version 7.04
7*
8* Revision 1.1.1.1 1996/04/12 15:29:33 plothow
9* Version 7.01
10*
11*
12#include "pdf/pilot.h"
13 SUBROUTINE SFDISD0(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU)
14
15C THIS IS THE NEW B0-TYPE FIT "D0'" WITH UBAR < DBAR (230 MEV)
16C IN THE ** DIS ** SCHEME
17C
18#include "pdf/impdp.inc"
19 PARAMETER(NX=47)
20 PARAMETER(NTENTH=21)
21 DIMENSION F(8,NX,20),G(8),XX(NX),N0(8)
22 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,7)/
23 + 0.00930, 0.00352, 4.30034, 0.47321, 0.06807,
24 + 0.00000, 0.27447, 0.47849,
25 + 0.00976, 0.00366, 11.00467, 0.65733, 0.25226,
26 + 0.00000, 0.45879, 0.66265,
27 + 0.01020, 0.00380, 19.93318, 0.89179, 0.48679,
28 + 0.00000, 0.69346, 0.89715,
29 + 0.01060, 0.00393, 30.63055, 1.17179, 0.76686,
30 + 0.00000, 0.97364, 1.17720,
31 + 0.01098, 0.00406, 43.07445, 1.49553, 1.09068,
32 + 0.07132, 1.29756, 1.50100,
33 + 0.01134, 0.00418, 57.04886, 1.86041, 1.45562,
34 + 0.40646, 1.66261, 1.86591,
35 + 0.01168, 0.00431, 72.39754, 2.26499, 1.86027,
36 + 0.83916, 2.06736, 2.27054 /
37 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=8,14)/
38 + 0.01201, 0.00442, 88.96280, 2.70667, 2.30201,
39 + 1.30378, 2.50917, 2.71224,
40 + 0.01234, 0.00454, 106.60825, 3.18275, 2.77815,
41 + 1.80435, 2.98540, 3.18836,
42 + 0.01264, 0.00466, 125.23030, 3.69120, 3.28666,
43 + 2.33731, 3.49399, 3.69685,
44 + 0.01294, 0.00478, 144.75316, 4.23047, 3.82598,
45 + 2.90128, 4.03339, 4.23615,
46 + 0.01323, 0.00489, 165.02708, 4.79753, 4.39310,
47 + 3.49297, 4.60057, 4.80326,
48 + 0.01351, 0.00499, 185.74925, 5.38564, 4.98127,
49 + 4.10534, 5.18881, 5.39140,
50 + 0.01378, 0.00510, 207.19238, 6.00021, 5.59589,
51 + 4.74396, 5.80350, 6.00601 /
52 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=15,19)/
53 + 0.01405, 0.00521, 229.19391, 6.63778, 6.23352,
54 + 5.40525, 6.44118, 6.64362,
55 + 0.01431, 0.00531, 251.37769, 7.28997, 6.88577,
56 + 6.08051, 7.09349, 7.29585,
57 + 0.01456, 0.00541, 274.24219, 7.96752, 7.56338,
58 + 6.78087, 7.77116, 7.97344,
59 + 0.01481, 0.00551, 297.05859, 8.65364, 8.24955,
60 + 7.48899, 8.45738, 8.65965,
61 + 0.01505, 0.00561, 320.44653, 9.36224, 8.95821,
62 + 8.21925, 9.16609, 9.36827 /
63 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/
64 + 0.01259, 0.00479, 4.16478, 0.46504, 0.06334,
65 + 0.00000, 0.26692, 0.46940,
66 + 0.01320, 0.00501, 10.00315, 0.62742, 0.22605,
67 + 0.00000, 0.42958, 0.63184,
68 + 0.01378, 0.00521, 17.46046, 0.82840, 0.42734,
69 + 0.00000, 0.63082, 0.83288,
70 + 0.01430, 0.00540, 26.12637, 1.06285, 0.66208,
71 + 0.00000, 0.86551, 1.06738,
72 + 0.01480, 0.00558, 35.96332, 1.32860, 0.92810,
73 + 0.05844, 1.13149, 1.33316,
74 + 0.01527, 0.00576, 46.78426, 1.62303, 1.22278,
75 + 0.32996, 1.42615, 1.62765,
76 + 0.01573, 0.00595, 58.45795, 1.94464, 1.54464,
77 + 0.67577, 1.74796, 1.94930 /
78 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=8,14)/
79 + 0.01617, 0.00612, 70.85808, 2.29108, 1.89131,
80 + 1.04175, 2.09460, 2.29578,
81 + 0.01659, 0.00629, 83.87958, 2.66004, 2.26049,
82 + 1.43112, 2.46375, 2.66479,
83 + 0.01700, 0.00645, 97.44549, 3.04980, 2.65045,
84 + 1.84095, 2.85367, 3.05457,
85 + 0.01739, 0.00661, 111.50072, 3.45902, 3.05988,
86 + 2.27012, 3.26308, 3.46383,
87 + 0.01776, 0.00677, 125.93797, 3.88536, 3.48643,
88 + 2.71604, 3.68959, 3.89023,
89 + 0.01813, 0.00691, 140.54074, 4.32375, 3.92499,
90 + 3.17347, 4.12812, 4.32864,
91 + 0.01849, 0.00706, 155.51309, 4.77817, 4.37961,
92 + 3.64656, 4.58271, 4.78312 /
93 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=15,19)/
94 + 0.01883, 0.00721, 170.74072, 5.24610, 4.84771,
95 + 4.13266, 5.05078, 5.25107,
96 + 0.01917, 0.00735, 185.96050, 5.72129, 5.32308,
97 + 4.62538, 5.52612, 5.72630,
98 + 0.01949, 0.00749, 201.53256, 6.21173, 5.81370,
99 + 5.13296, 6.01671, 6.21678,
100 + 0.01981, 0.00764, 216.94591, 6.70518, 6.30732,
101 + 5.64278, 6.51029, 6.71027,
102 + 0.02012, 0.00777, 232.64290, 7.21178, 6.81408,
103 + 6.16538, 7.01702, 7.21691 /
104 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/
105 + 0.01703, 0.00655, 4.03320, 0.45621, 0.05864,
106 + 0.00000, 0.25929, 0.46003,
107 + 0.01785, 0.00685, 9.09126, 0.59826, 0.20126,
108 + 0.00000, 0.40170, 0.60215,
109 + 0.01859, 0.00715, 15.29068, 0.76919, 0.37273,
110 + 0.00000, 0.57297, 0.77315,
111 + 0.01929, 0.00742, 22.27757, 0.96407, 0.56809,
112 + 0.00000, 0.76815, 0.96809,
113 + 0.01994, 0.00770, 30.01537, 1.18069, 0.78516,
114 + 0.04761, 0.98505, 1.18476,
115 + 0.02057, 0.00796, 38.35127, 1.41665, 1.02158,
116 + 0.26639, 1.22130, 1.42079,
117 + 0.02116, 0.00821, 47.18178, 1.67063, 1.27597,
118 + 0.54128, 1.47553, 1.67483 /
119 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=8,14)/
120 + 0.02174, 0.00845, 56.41171, 1.94061, 1.54634,
121 + 0.82802, 1.74576, 1.94485,
122 + 0.02229, 0.00868, 65.96436, 2.22474, 1.83085,
123 + 1.12931, 2.03013, 2.22904,
124 + 0.02282, 0.00891, 75.78619, 2.52162, 2.12809,
125 + 1.44280, 2.32722, 2.52596,
126 + 0.02333, 0.00914, 85.84114, 2.83023, 2.43705,
127 + 1.76766, 2.63605, 2.83461,
128 + 0.02382, 0.00935, 96.05449, 3.14877, 2.75594,
129 + 2.10195, 2.95481, 3.15321,
130 + 0.02430, 0.00957, 106.27458, 3.47349, 3.08099,
131 + 2.44181, 3.27974, 3.47799,
132 + 0.02477, 0.00978, 116.65524, 3.80741, 3.41522,
133 + 2.79038, 3.61385, 3.81194 /
134 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=15,19)/
135 + 0.02522, 0.00998, 127.11835, 4.14866, 3.75679,
136 + 3.14577, 3.95529, 4.15324,
137 + 0.02566, 0.01018, 137.48166, 4.49272, 4.10115,
138 + 3.50332, 4.29955, 4.49735,
139 + 0.02608, 0.01038, 148.00665, 4.84548, 4.45421,
140 + 3.86915, 4.65249, 4.85016,
141 + 0.02649, 0.01057, 158.33673, 5.19808, 4.80709,
142 + 4.23413, 5.00525, 5.20279,
143 + 0.02690, 0.01076, 168.78696, 5.55796, 5.16725,
144 + 4.60601, 5.36531, 5.56271 /
145 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/
146 + 0.02032, 0.00786, 3.95792, 0.45065, 0.05589,
147 + 0.00000, 0.25476, 0.45434,
148 + 0.02127, 0.00824, 8.59567, 0.58140, 0.18738,
149 + 0.00000, 0.38592, 0.58517,
150 + 0.02215, 0.00861, 14.14575, 0.73620, 0.34286,
151 + 0.00000, 0.54112, 0.74006,
152 + 0.02297, 0.00896, 20.28943, 0.91037, 0.51766,
153 + 0.00000, 0.71566, 0.91431,
154 + 0.02374, 0.00929, 26.99515, 1.10181, 0.70969,
155 + 0.04210, 0.90743, 1.10583,
156 + 0.02447, 0.00960, 34.13046, 1.30835, 0.91679,
157 + 0.23435, 1.11429, 1.31244,
158 + 0.02518, 0.00992, 41.60805, 1.52875, 1.13771,
159 + 0.47401, 1.33499, 1.53290 /
160 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=8,14)/
161 + 0.02584, 0.01021, 49.34917, 1.76126, 1.37071,
162 + 0.72190, 1.56778, 1.76547,
163 + 0.02649, 0.01049, 57.29214, 2.00425, 1.61419,
164 + 0.98047, 1.81105, 2.00852,
165 + 0.02710, 0.01078, 65.39511, 2.25655, 1.86695,
166 + 1.24772, 2.06360, 2.26088,
167 + 0.02770, 0.01105, 73.63124, 2.51728, 2.12814,
168 + 1.52295, 2.32460, 2.52167,
169 + 0.02828, 0.01132, 81.94168, 2.78495, 2.39625,
170 + 1.80457, 2.59252, 2.78940,
171 + 0.02884, 0.01158, 90.20387, 3.05645, 2.66816,
172 + 2.08939, 2.86425, 3.06095,
173 + 0.02938, 0.01183, 98.54913, 3.33434, 2.94644,
174 + 2.38008, 3.14236, 3.33888 /
175 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=15,19)/
176 + 0.02990, 0.01207, 106.91562, 3.61706, 3.22957,
177 + 2.67509, 3.42531, 3.62166,
178 + 0.03042, 0.01231, 115.15706, 3.90090, 3.51379,
179 + 2.97059, 3.70937, 3.90555,
180 + 0.03091, 0.01255, 123.49012, 4.19080, 3.80406,
181 + 3.27173, 3.99947, 4.19549,
182 + 0.03139, 0.01278, 131.62665, 4.47943, 4.09306,
183 + 3.57098, 4.28832, 4.48418,
184 + 0.03186, 0.01301, 139.82590, 4.77302, 4.38699,
185 + 3.87479, 4.58210, 4.77781 /
186 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/
187 + 0.02302, 0.00895, 3.90519, 0.44646, 0.05393,
188 + 0.00000, 0.25149, 0.45017,
189 + 0.02409, 0.00941, 8.25971, 0.56944, 0.17778,
190 + 0.00000, 0.37494, 0.57324,
191 + 0.02508, 0.00982, 13.38381, 0.71341, 0.32254,
192 + 0.00000, 0.51934, 0.71731,
193 + 0.02600, 0.01023, 18.98395, 0.87391, 0.48377,
194 + 0.00000, 0.68024, 0.87789,
195 + 0.02685, 0.01061, 25.03314, 1.04893, 0.65948,
196 + 0.03852, 0.85564, 1.05300,
197 + 0.02767, 0.01097, 31.41321, 1.23647, 0.84766,
198 + 0.21366, 1.04353, 1.24062,
199 + 0.02846, 0.01133, 38.04781, 1.43539, 1.04721,
200 + 0.43078, 1.24279, 1.43962 /
201 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=8,14)/
202 + 0.02921, 0.01168, 44.86905, 1.64411, 1.25652,
203 + 0.65401, 1.45184, 1.64841,
204 + 0.02993, 0.01201, 51.82478, 1.86119, 1.47416,
205 + 0.88566, 1.66923, 1.86556,
206 + 0.03062, 0.01233, 58.88084, 2.08556, 1.69907,
207 + 1.12394, 1.89390, 2.09000,
208 + 0.03129, 0.01265, 66.01596, 2.31648, 1.93052,
209 + 1.36828, 2.12510, 2.32099,
210 + 0.03193, 0.01296, 73.18097, 2.55265, 2.16719,
211 + 1.61728, 2.36154, 2.55722,
212 + 0.03256, 0.01325, 80.27115, 2.79133, 2.40635,
213 + 1.86815, 2.60049, 2.79595,
214 + 0.03315, 0.01354, 87.40392, 3.03480, 2.65030,
215 + 2.12331, 2.84422, 3.03948 /
216 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=15,19)/
217 + 0.03374, 0.01383, 94.52690, 3.28175, 2.89769,
218 + 2.38141, 3.09141, 3.28649,
219 + 0.03431, 0.01409, 101.51570, 3.52892, 3.14531,
220 + 2.63914, 3.33883, 3.53372,
221 + 0.03486, 0.01437, 108.55965, 3.78067, 3.39749,
222 + 2.90102, 3.59082, 3.78552,
223 + 0.03539, 0.01463, 115.41191, 4.03062, 3.64786,
224 + 3.16052, 3.84099, 4.03552,
225 + 0.03592, 0.01489, 122.29738, 4.28423, 3.90188,
226 + 3.42330, 4.09483, 4.28918 /
227 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/
228 + 0.02537, 0.00991, 3.86466, 0.44311, 0.05242,
229 + 0.00000, 0.24892, 0.44686,
230 + 0.02653, 0.01041, 8.00759, 0.56020, 0.17053,
231 + 0.00000, 0.36655, 0.56407,
232 + 0.02761, 0.01089, 12.81977, 0.69609, 0.30735,
233 + 0.00000, 0.50293, 0.70006,
234 + 0.02861, 0.01134, 18.02698, 0.84651, 0.45862,
235 + 0.00000, 0.65380, 0.85058,
236 + 0.02955, 0.01177, 23.60628, 1.00956, 0.62247,
237 + 0.03593, 0.81728, 1.01372,
238 + 0.03044, 0.01218, 29.45024, 1.18336, 0.79701,
239 + 0.19869, 0.99149, 1.18760,
240 + 0.03129, 0.01258, 35.49059, 1.36685, 0.98123,
241 + 0.39962, 1.17536, 1.37119 /
242 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=8,14)/
243 + 0.03212, 0.01296, 41.66748, 1.55859, 1.17364,
244 + 0.60524, 1.36746, 1.56301,
245 + 0.03290, 0.01334, 47.93552, 1.75725, 1.37294,
246 + 0.81775, 1.56648, 1.76174,
247 + 0.03365, 0.01369, 54.26602, 1.96188, 1.57819,
248 + 1.03554, 1.77143, 1.96644,
249 + 0.03437, 0.01405, 60.64156, 2.17180, 1.78871,
250 + 1.25811, 1.98168, 2.17645,
251 + 0.03507, 0.01439, 67.01950, 2.38586, 2.00335,
252 + 1.48421, 2.19605, 2.39058,
253 + 0.03575, 0.01472, 73.30774, 2.60160, 2.21962,
254 + 1.71136, 2.41208, 2.60638,
255 + 0.03641, 0.01503, 79.61375, 2.82111, 2.43965,
256 + 1.94175, 2.63186, 2.82595 /
257 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=15,19)/
258 + 0.03704, 0.01535, 85.89183, 3.04319, 2.66225,
259 + 2.17421, 2.85423, 3.04810,
260 + 0.03767, 0.01565, 92.03229, 3.26495, 2.88451,
261 + 2.40575, 3.07625, 3.26991,
262 + 0.03827, 0.01595, 98.20593, 3.49033, 3.11038,
263 + 2.64051, 3.30189, 3.49536,
264 + 0.03885, 0.01624, 104.19360, 3.71363, 3.33415,
265 + 2.87262, 3.52545, 3.71871,
266 + 0.03942, 0.01653, 110.19688, 3.93976, 3.56073,
267 + 3.10719, 3.75182, 3.94490 /
268 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/
269 + 0.03425, 0.01362, 3.74033, 0.43143, 0.04762,
270 + 0.00000, 0.24055, 0.43580,
271 + 0.03578, 0.01434, 7.26782, 0.53101, 0.14856,
272 + 0.00000, 0.34083, 0.53554,
273 + 0.03719, 0.01501, 11.20423, 0.64354, 0.26233,
274 + 0.00000, 0.45401, 0.64822,
275 + 0.03850, 0.01566, 15.33313, 0.76547, 0.38541,
276 + 0.00000, 0.57654, 0.77029,
277 + 0.03972, 0.01625, 19.64542, 0.89523, 0.51625,
278 + 0.02874, 0.70687, 0.90018,
279 + 0.04089, 0.01684, 24.06464, 1.03135, 0.65338,
280 + 0.15761, 0.84351, 1.03641,
281 + 0.04201, 0.01740, 28.54543, 1.17303, 0.79602,
282 + 0.31460, 0.98569, 1.17822 /
283 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=8,14)/
284 + 0.04308, 0.01794, 33.04964, 1.31920, 0.94310,
285 + 0.47294, 1.13234, 1.32449,
286 + 0.04410, 0.01846, 37.54993, 1.46889, 1.09365,
287 + 0.63456, 1.28249, 1.47429,
288 + 0.04507, 0.01896, 42.03134, 1.62143, 1.24702,
289 + 0.79829, 1.43545, 1.62692,
290 + 0.04602, 0.01945, 46.48680, 1.77637, 1.40275,
291 + 0.96383, 1.59081, 1.78196,
292 + 0.04694, 0.01992, 50.89040, 1.93290, 1.56005,
293 + 1.13036, 1.74774, 1.93859,
294 + 0.04781, 0.02037, 55.18082, 2.08930, 1.71718,
295 + 1.29613, 1.90453, 2.09507,
296 + 0.04866, 0.02083, 59.43996, 2.24715, 1.87574,
297 + 1.46283, 2.06274, 2.25300 /
298 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=15,19)/
299 + 0.04948, 0.02126, 63.63884, 2.40563, 2.03491,
300 + 1.62969, 2.22159, 2.41156,
301 + 0.05028, 0.02167, 67.70392, 2.56271, 2.19264,
302 + 1.79460, 2.37901, 2.56872,
303 + 0.05106, 0.02209, 71.75874, 2.72129, 2.35186,
304 + 1.96064, 2.53792, 2.72738,
305 + 0.05180, 0.02249, 75.65318, 2.87732, 2.50853,
306 + 2.12364, 2.69428, 2.88349,
307 + 0.05255, 0.02288, 79.53020, 3.03439, 2.66619,
308 + 2.28734, 2.85166, 3.04061 /
309 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/
310 + 0.04617, 0.01882, 3.61733, 0.41736, 0.04261,
311 + 0.00000, 0.23127, 0.42307,
312 + 0.04818, 0.01984, 6.58533, 0.50052, 0.12751,
313 + 0.00000, 0.31536, 0.50646,
314 + 0.05001, 0.02080, 9.76781, 0.59212, 0.22069,
315 + 0.00000, 0.40779, 0.59826,
316 + 0.05172, 0.02168, 13.00129, 0.68937, 0.31940,
317 + 0.00000, 0.50581, 0.69568,
318 + 0.05332, 0.02253, 16.29041, 0.79105, 0.42243,
319 + 0.02273, 0.60820, 0.79754,
320 + 0.05484, 0.02334, 19.58540, 0.89605, 0.52871,
321 + 0.12364, 0.71387, 0.90269,
322 + 0.05629, 0.02413, 22.86000, 1.00381, 0.63770,
323 + 0.24494, 0.82228, 1.01060 /
324 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=8,14)/
325 + 0.05767, 0.02488, 26.09285, 1.11359, 0.74865,
326 + 0.36551, 0.93267, 1.12052,
327 + 0.05900, 0.02560, 29.27072, 1.22471, 0.86088,
328 + 0.48701, 1.04437, 1.23178,
329 + 0.06027, 0.02630, 32.38834, 1.33674, 0.97396,
330 + 0.60866, 1.15696, 1.34393,
331 + 0.06149, 0.02698, 35.44592, 1.44940, 1.08764,
332 + 0.73033, 1.27015, 1.45671,
333 + 0.06266, 0.02763, 38.42929, 1.56215, 1.20137,
334 + 0.85150, 1.38342, 1.56958,
335 + 0.06381, 0.02826, 41.29901, 1.67382, 1.31397,
336 + 0.97098, 1.49557, 1.68135,
337 + 0.06489, 0.02887, 44.11739, 1.78559, 1.42665,
338 + 1.09008, 1.60781, 1.79323 /
339 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=15,19)/
340 + 0.06596, 0.02947, 46.86678, 1.89693, 1.53887,
341 + 1.20831, 1.71962, 1.90468,
342 + 0.06698, 0.03005, 49.49901, 2.00645, 1.64924,
343 + 1.32423, 1.82957, 2.01429,
344 + 0.06798, 0.03061, 52.10284, 2.11626, 1.75987,
345 + 1.44009, 1.93981, 2.12420,
346 + 0.06894, 0.03115, 54.57664, 2.22354, 1.86794,
347 + 1.55300, 2.04751, 2.23156,
348 + 0.06989, 0.03169, 57.02118, 2.33086, 1.97604,
349 + 1.66567, 2.15523, 2.33897 /
350 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/
351 + 0.05494, 0.02282, 3.54508, 0.40767, 0.03953,
352 + 0.00000, 0.22523, 0.41451,
353 + 0.05727, 0.02406, 6.20753, 0.48175, 0.11561,
354 + 0.00000, 0.30037, 0.48885,
355 + 0.05941, 0.02521, 8.99580, 0.56216, 0.19784,
356 + 0.00000, 0.38176, 0.56948,
357 + 0.06140, 0.02631, 11.77479, 0.64655, 0.28392,
358 + 0.00000, 0.46704, 0.65409,
359 + 0.06327, 0.02734, 14.55657, 0.73390, 0.37284,
360 + 0.01969, 0.55521, 0.74163,
361 + 0.06504, 0.02833, 17.30482, 0.82328, 0.46369,
362 + 0.10656, 0.64538, 0.83119,
363 + 0.06672, 0.02928, 20.00250, 0.91426, 0.55608,
364 + 0.21017, 0.73712, 0.92235 /
365 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=8,14)/
366 + 0.06833, 0.03019, 22.63635, 1.00626, 0.64942,
367 + 0.31224, 0.82982, 1.01451,
368 + 0.06987, 0.03106, 25.19928, 1.09875, 0.74319,
369 + 0.41433, 0.92298, 1.10714,
370 + 0.07135, 0.03191, 27.69032, 1.19140, 0.83705,
371 + 0.51582, 1.01627, 1.19994,
372 + 0.07276, 0.03272, 30.11273, 1.28401, 0.93083,
373 + 0.61666, 1.10950, 1.29268,
374 + 0.07412, 0.03351, 32.45729, 1.37619, 1.02413,
375 + 0.71647, 1.20226, 1.38498,
376 + 0.07543, 0.03426, 34.69431, 1.46697, 1.11599,
377 + 0.81433, 1.29362, 1.47589,
378 + 0.07670, 0.03500, 36.87650, 1.55740, 1.20745,
379 + 0.91137, 1.38458, 1.56643 /
380 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=15,19)/
381 + 0.07792, 0.03571, 38.99127, 1.64706, 1.29810,
382 + 1.00721, 1.47476, 1.65619,
383 + 0.07910, 0.03640, 41.00131, 1.73483, 1.38684,
384 + 1.10071, 1.56304, 1.74407,
385 + 0.08025, 0.03707, 42.97942, 1.82247, 1.47543,
386 + 1.19376, 1.65118, 1.83182,
387 + 0.08136, 0.03772, 44.84538, 1.90772, 1.56158,
388 + 1.28403, 1.73690, 1.91716,
389 + 0.08244, 0.03836, 46.68073, 1.99268, 1.64743,
390 + 1.37374, 1.82232, 2.00221 /
391 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/
392 + 0.06212, 0.02617, 3.49319, 0.40002, 0.03729,
393 + 0.00000, 0.22061, 0.40784,
394 + 0.06472, 0.02760, 5.94688, 0.46792, 0.10740,
395 + 0.00000, 0.28969, 0.47602,
396 + 0.06711, 0.02895, 8.47302, 0.54087, 0.18238,
397 + 0.00000, 0.36373, 0.54923,
398 + 0.06932, 0.03021, 10.95557, 0.61684, 0.26020,
399 + 0.00000, 0.44068, 0.62542,
400 + 0.07139, 0.03139, 13.41141, 0.69490, 0.34000,
401 + 0.01771, 0.51967, 0.70368,
402 + 0.07336, 0.03253, 15.81283, 0.77426, 0.42099,
403 + 0.09553, 0.59991, 0.78324,
404 + 0.07524, 0.03362, 18.14856, 0.85457, 0.50286,
405 + 0.18781, 0.68103, 0.86373 /
406 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=8,14)/
407 + 0.07702, 0.03466, 20.41023, 0.93535, 0.58511,
408 + 0.27815, 0.76260, 0.94466,
409 + 0.07873, 0.03566, 22.59435, 1.01614, 0.66730,
410 + 0.36799, 0.84413, 1.02562,
411 + 0.08037, 0.03663, 24.70258, 1.09668, 0.74919,
412 + 0.45684, 0.92538, 1.10632,
413 + 0.08193, 0.03755, 26.73956, 1.17686, 0.83064,
414 + 0.54470, 1.00623, 1.18662,
415 + 0.08343, 0.03845, 28.69916, 1.25632, 0.91134,
416 + 0.63128, 1.08634, 1.26622,
417 + 0.08488, 0.03931, 30.55730, 1.33426, 0.99047,
418 + 0.71580, 1.16491, 1.34430,
419 + 0.08628, 0.04014, 32.36076, 1.41162, 1.06897,
420 + 0.79929, 1.24287, 1.42177 /
421 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=15,19)/
422 + 0.08764, 0.04095, 34.09976, 1.48805, 1.14650,
423 + 0.88144, 1.31988, 1.49832,
424 + 0.08895, 0.04173, 35.74342, 1.56260, 1.22213,
425 + 0.96130, 1.39500, 1.57298,
426 + 0.09021, 0.04248, 37.35477, 1.63683, 1.29738,
427 + 1.04051, 1.46977, 1.64731,
428 + 0.09143, 0.04323, 38.86623, 1.70878, 1.37033,
429 + 1.11709, 1.54224, 1.71936,
430 + 0.09263, 0.04394, 40.34767, 1.78030, 1.44282,
431 + 1.19299, 1.61427, 1.79097 /
432 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/
433 + 0.06823, 0.02930, 3.45185, 0.39349, 0.03552,
434 + 0.00000, 0.21660, 0.40196,
435 + 0.07105, 0.03091, 5.74432, 0.45677, 0.10126,
436 + 0.00000, 0.28119, 0.46554,
437 + 0.07365, 0.03240, 8.07149, 0.52425, 0.17098,
438 + 0.00000, 0.34985, 0.53327,
439 + 0.07605, 0.03380, 10.33184, 0.59402, 0.24282,
440 + 0.00000, 0.42071, 0.60328,
441 + 0.07830, 0.03512, 12.54625, 0.66531, 0.31601,
442 + 0.01627, 0.49302, 0.67480,
443 + 0.08044, 0.03639, 14.69372, 0.73738, 0.38989,
444 + 0.08749, 0.56603, 0.74706,
445 + 0.08247, 0.03759, 16.76697, 0.80994, 0.46416,
446 + 0.17154, 0.63951, 0.81982 /
447 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=8,14)/
448 + 0.08440, 0.03875, 18.76009, 0.88259, 0.53842,
449 + 0.25335, 0.71301, 0.89264,
450 + 0.08625, 0.03986, 20.67302, 0.95494, 0.61231,
451 + 0.33435, 0.78618, 0.96516,
452 + 0.08801, 0.04092, 22.50847, 1.02681, 0.68564,
453 + 0.41412, 0.85881, 1.03717,
454 + 0.08971, 0.04194, 24.27223, 1.09805, 0.75830,
455 + 0.49268, 0.93080, 1.10857,
456 + 0.09134, 0.04292, 25.96126, 1.16844, 0.83001,
457 + 0.56981, 1.00189, 1.17909,
458 + 0.09290, 0.04387, 27.55463, 1.23725, 0.90012,
459 + 0.64485, 1.07137, 1.24804,
460 + 0.09441, 0.04479, 29.09367, 1.30533, 0.96944,
461 + 0.71872, 1.14011, 1.31625 /
462 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=15,19)/
463 + 0.09586, 0.04567, 30.56998, 1.37240, 1.03771,
464 + 0.79119, 1.20781, 1.38344,
465 + 0.09727, 0.04652, 31.96104, 1.43763, 1.10408,
466 + 0.86142, 1.27364, 1.44878,
467 + 0.09864, 0.04735, 33.32074, 1.50241, 1.16997,
468 + 0.93090, 1.33900, 1.51366,
469 + 0.09995, 0.04816, 34.58902, 1.56502, 1.23365,
470 + 0.99788, 1.40217, 1.57638,
471 + 0.10123, 0.04894, 35.82820, 1.62712, 1.29679,
472 + 1.06411, 1.46482, 1.63858 /
473 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/
474 + 0.09112, 0.04183, 3.31902, 0.36936, 0.02965,
475 + 0.00000, 0.20230, 0.38041,
476 + 0.09476, 0.04409, 5.13839, 0.41917, 0.08259,
477 + 0.00000, 0.25378, 0.43056,
478 + 0.09811, 0.04618, 6.90384, 0.47100, 0.13726,
479 + 0.00000, 0.30711, 0.48270,
480 + 0.10121, 0.04812, 8.55537, 0.52349, 0.19237,
481 + 0.00000, 0.36098, 0.53545,
482 + 0.10409, 0.04994, 10.12249, 0.57611, 0.24740,
483 + 0.01230, 0.41487, 0.58832,
484 + 0.10683, 0.05167, 11.60013, 0.62838, 0.30194,
485 + 0.06555, 0.46834, 0.64082,
486 + 0.10942, 0.05332, 12.99109, 0.68017, 0.35587,
487 + 0.12743, 0.52125, 0.69282 /
488 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=8,14)/
489 + 0.11189, 0.05487, 14.29765, 0.73125, 0.40897,
490 + 0.18663, 0.57340, 0.74408,
491 + 0.11423, 0.05636, 15.52510, 0.78143, 0.46107,
492 + 0.24436, 0.62460, 0.79444,
493 + 0.11647, 0.05778, 16.67973, 0.83064, 0.51210,
494 + 0.30042, 0.67475, 0.84382,
495 + 0.11860, 0.05914, 17.76906, 0.87885, 0.56205,
496 + 0.35492, 0.72387, 0.89219,
497 + 0.12066, 0.06045, 18.79407, 0.92593, 0.61079,
498 + 0.40779, 0.77183, 0.93941,
499 + 0.12262, 0.06169, 19.74326, 0.97144, 0.65789,
500 + 0.45862, 0.81816, 0.98506,
501 + 0.12451, 0.06289, 20.64661, 1.01603, 0.70399,
502 + 0.50814, 0.86354, 1.02977 /
503 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=15,19)/
504 + 0.12632, 0.06404, 21.50026, 1.05952, 0.74896,
505 + 0.55624, 0.90781, 1.07339,
506 + 0.12807, 0.06515, 22.29103, 1.10140, 0.79224,
507 + 0.60238, 0.95041, 1.11537,
508 + 0.12977, 0.06623, 23.05534, 1.14265, 0.83485,
509 + 0.64763, 0.99237, 1.15673,
510 + 0.13140, 0.06727, 23.75552, 1.18214, 0.87565,
511 + 0.69085, 1.03254, 1.19632,
512 + 0.13299, 0.06826, 24.43269, 1.22101, 0.91579,
513 + 0.73325, 1.07208, 1.23528 /
514 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/
515 + 0.12137, 0.06045, 3.17302, 0.33802, 0.02317,
516 + 0.00001, 0.18413, 0.35222,
517 + 0.12605, 0.06356, 4.55432, 0.37577, 0.06479,
518 + 0.00001, 0.22393, 0.39034,
519 + 0.13035, 0.06641, 5.82961, 0.41410, 0.10661,
520 + 0.00002, 0.26410, 0.42900,
521 + 0.13430, 0.06903, 6.97356, 0.45203, 0.14772,
522 + 0.00002, 0.30370, 0.46721,
523 + 0.13797, 0.07146, 8.01993, 0.48928, 0.18792,
524 + 0.00905, 0.34250, 0.50471,
525 + 0.14143, 0.07376, 8.97472, 0.52556, 0.22693,
526 + 0.04767, 0.38019, 0.54121,
527 + 0.14470, 0.07591, 9.84731, 0.56084, 0.26479,
528 + 0.09180, 0.41683, 0.57669 /
529 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=8,14)/
530 + 0.14778, 0.07794, 10.64545, 0.59507, 0.30145,
531 + 0.13323, 0.45233, 0.61111,
532 + 0.15072, 0.07985, 11.37539, 0.62817, 0.33685,
533 + 0.17295, 0.48662, 0.64437,
534 + 0.15350, 0.08166, 12.04496, 0.66014, 0.37099,
535 + 0.21090, 0.51972, 0.67648,
536 + 0.15614, 0.08339, 12.66244, 0.69101, 0.40393,
537 + 0.24727, 0.55166, 0.70750,
538 + 0.15866, 0.08503, 13.23087, 0.72078, 0.43566,
539 + 0.28207, 0.58245, 0.73739,
540 + 0.16108, 0.08659, 13.74389, 0.74919, 0.46596,
541 + 0.31511, 0.61183, 0.76592,
542 + 0.16340, 0.08807, 14.22304, 0.77669, 0.49526,
543 + 0.34692, 0.64025, 0.79352 /
544 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=15,19)/
545 + 0.16561, 0.08950, 14.66714, 0.80320, 0.52349,
546 + 0.37744, 0.66765, 0.82014,
547 + 0.16773, 0.09086, 15.06887, 0.82840, 0.55037,
548 + 0.40639, 0.69372, 0.84543,
549 + 0.16977, 0.09218, 15.45178, 0.85301, 0.57657,
550 + 0.43451, 0.71914, 0.87013,
551 + 0.17173, 0.09342, 15.79320, 0.87628, 0.60138,
552 + 0.46108, 0.74321, 0.89347,
553 + 0.17365, 0.09464, 16.11903, 0.89901, 0.62559,
554 + 0.48692, 0.76669, 0.91627 /
555 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/
556 + 0.14342, 0.07512, 3.07660, 0.31604, 0.01904,
557 + 0.00001, 0.17161, 0.33229,
558 + 0.14884, 0.07883, 4.21919, 0.34742, 0.05474,
559 + 0.00001, 0.20525, 0.36404,
560 + 0.15380, 0.08218, 5.24090, 0.37880, 0.09001,
561 + 0.00003, 0.23867, 0.39573,
562 + 0.15835, 0.08525, 6.13208, 0.40939, 0.12414,
563 + 0.00002, 0.27110, 0.42660,
564 + 0.16257, 0.08807, 6.92730, 0.43904, 0.15703,
565 + 0.00742, 0.30244, 0.45647,
566 + 0.16649, 0.09070, 7.63787, 0.46753, 0.18853,
567 + 0.03885, 0.33249, 0.48515,
568 + 0.17021, 0.09315, 8.27315, 0.49489, 0.21873,
569 + 0.07440, 0.36132, 0.51270 /
570 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=8,14)/
571 + 0.17370, 0.09544, 8.84254, 0.52115, 0.24763,
572 + 0.10733, 0.38894, 0.53909,
573 + 0.17700, 0.09759, 9.35405, 0.54625, 0.27525,
574 + 0.13857, 0.41533, 0.56435,
575 + 0.18011, 0.09962, 9.81489, 0.57027, 0.30164,
576 + 0.16814, 0.44058, 0.58849,
577 + 0.18307, 0.10155, 10.23244, 0.59328, 0.32688,
578 + 0.19623, 0.46473, 0.61160,
579 + 0.18587, 0.10337, 10.61008, 0.61522, 0.35097,
580 + 0.22285, 0.48778, 0.63364,
581 + 0.18855, 0.10507, 10.94457, 0.63597, 0.37375,
582 + 0.24791, 0.50956, 0.65448,
583 + 0.19111, 0.10669, 11.25268, 0.65589, 0.39562,
584 + 0.27184, 0.53048, 0.67450 /
585 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=15,19)/
586 + 0.19356, 0.10825, 11.53408, 0.67495, 0.41655,
587 + 0.29464, 0.55050, 0.69364,
588 + 0.19588, 0.10973, 11.78216, 0.69291, 0.43630,
589 + 0.31608, 0.56936, 0.71166,
590 + 0.19813, 0.11115, 12.01576, 0.71033, 0.45542,
591 + 0.33678, 0.58765, 0.72913,
592 + 0.20026, 0.11249, 12.21901, 0.72665, 0.47340,
593 + 0.35620, 0.60480, 0.74550,
594 + 0.20234, 0.11378, 12.41085, 0.74249, 0.49084,
595 + 0.37498, 0.62146, 0.76139 /
596 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/
597 + 0.16147, 0.08764, 3.00073, 0.29862, 0.01597,
598 + 0.00001, 0.16174, 0.31640,
599 + 0.16748, 0.09180, 3.98180, 0.32581, 0.04780,
600 + 0.00001, 0.19136, 0.34394,
601 + 0.17297, 0.09553, 4.83776, 0.35268, 0.07884,
602 + 0.00003, 0.22040, 0.37111,
603 + 0.17796, 0.09891, 5.56809, 0.37857, 0.10849,
604 + 0.00001, 0.24824, 0.39724,
605 + 0.18259, 0.10199, 6.20721, 0.40340, 0.13677,
606 + 0.00638, 0.27484, 0.42229,
607 + 0.18688, 0.10484, 6.76805, 0.42703, 0.16359,
608 + 0.03327, 0.30011, 0.44604,
609 + 0.19092, 0.10750, 7.26082, 0.44949, 0.18904,
610 + 0.06342, 0.32411, 0.46866 /
611 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=8,14)/
612 + 0.19470, 0.10994, 7.69514, 0.47083, 0.21319,
613 + 0.09110, 0.34688, 0.49012,
614 + 0.19826, 0.11222, 8.07902, 0.49107, 0.23605,
615 + 0.11714, 0.36846, 0.51047,
616 + 0.20160, 0.11438, 8.41936, 0.51028, 0.25775,
617 + 0.14160, 0.38895, 0.52977,
618 + 0.20476, 0.11641, 8.72300, 0.52854, 0.27836,
619 + 0.16467, 0.40841, 0.54809,
620 + 0.20777, 0.11832, 8.99337, 0.54581, 0.29788,
621 + 0.18638, 0.42682, 0.56545,
622 + 0.21062, 0.12009, 9.22818, 0.56203, 0.31623,
623 + 0.20669, 0.44413, 0.58173,
624 + 0.21334, 0.12178, 9.44151, 0.57749, 0.33373,
625 + 0.22596, 0.46063, 0.59726 /
626 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=15,19)/
627 + 0.21593, 0.12339, 9.63339, 0.59219, 0.35038,
628 + 0.24422, 0.47631, 0.61202,
629 + 0.21838, 0.12491, 9.79865, 0.60594, 0.36597,
630 + 0.26129, 0.49098, 0.62579,
631 + 0.22073, 0.12637, 9.95258, 0.61920, 0.38102,
632 + 0.27769, 0.50513, 0.63907,
633 + 0.22297, 0.12772, 10.08275, 0.63152, 0.39505,
634 + 0.29299, 0.51832, 0.65142,
635 + 0.22515, 0.12905, 10.20421, 0.64342, 0.40862,
636 + 0.30771, 0.53106, 0.66335 /
637 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/
638 + 0.17684, 0.09866, 2.93643, 0.28433, 0.01360,
639 + 0.00003, 0.15388, 0.30324,
640 + 0.18338, 0.10317, 3.79703, 0.30849, 0.04267,
641 + 0.00003, 0.18056, 0.32772,
642 + 0.18931, 0.10721, 4.53271, 0.33213, 0.07071,
643 + 0.00004, 0.20647, 0.35162,
644 + 0.19472, 0.11083, 5.14857, 0.35467, 0.09723,
645 + 0.00004, 0.23105, 0.37435,
646 + 0.19968, 0.11411, 5.67919, 0.37609, 0.12227,
647 + 0.00566, 0.25432, 0.39593,
648 + 0.20428, 0.11711, 6.13669, 0.39627, 0.14580,
649 + 0.02932, 0.27620, 0.41627,
650 + 0.20858, 0.11986, 6.53273, 0.41531, 0.16797,
651 + 0.05568, 0.29684, 0.43543 /
652 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=8,14)/
653 + 0.21258, 0.12242, 6.87682, 0.43327, 0.18884,
654 + 0.07969, 0.31628, 0.45349,
655 + 0.21633, 0.12480, 7.17569, 0.45017, 0.20849,
656 + 0.10213, 0.33456, 0.47046,
657 + 0.21987, 0.12700, 7.43658, 0.46609, 0.22698,
658 + 0.12307, 0.35179, 0.48644,
659 + 0.22320, 0.12907, 7.66622, 0.48111, 0.24445,
660 + 0.14270, 0.36805, 0.50150,
661 + 0.22634, 0.13102, 7.86790, 0.49523, 0.26088,
662 + 0.16107, 0.38333, 0.51566,
663 + 0.22930, 0.13282, 8.03932, 0.50836, 0.27620,
664 + 0.17811, 0.39755, 0.52882,
665 + 0.23212, 0.13453, 8.19258, 0.52083, 0.29075,
666 + 0.19424, 0.41106, 0.54131 /
667 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=15,19)/
668 + 0.23480, 0.13614, 8.32788, 0.53263, 0.30456,
669 + 0.20947, 0.42387, 0.55313,
670 + 0.23735, 0.13765, 8.44142, 0.54355, 0.31739,
671 + 0.22362, 0.43576, 0.56408,
672 + 0.23980, 0.13910, 8.54592, 0.55404, 0.32974,
673 + 0.23717, 0.44719, 0.57460,
674 + 0.24210, 0.14045, 8.63130, 0.56376, 0.34122,
675 + 0.24976, 0.45779, 0.58431,
676 + 0.24432, 0.14175, 8.71006, 0.57311, 0.35225,
677 + 0.26184, 0.46797, 0.59366 /
678 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/
679 + 0.23577, 0.14170, 2.68956, 0.23378, 0.00583,
680 + 0.00000, 0.12578, 0.25617,
681 + 0.24410, 0.14711, 3.20585, 0.24968, 0.02715,
682 + 0.00002, 0.14440, 0.27219,
683 + 0.25155, 0.15174, 3.61381, 0.26460, 0.04690,
684 + 0.00001, 0.16173, 0.28719,
685 + 0.25815, 0.15578, 3.92986, 0.27828, 0.06486,
686 + 0.00002, 0.17753, 0.30088,
687 + 0.26410, 0.15930, 4.18309, 0.29080, 0.08128,
688 + 0.00368, 0.19201, 0.31338,
689 + 0.26946, 0.16243, 4.38658, 0.30217, 0.09622,
690 + 0.01877, 0.20512, 0.32470,
691 + 0.27438, 0.16524, 4.55016, 0.31252, 0.10988,
692 + 0.03524, 0.21710, 0.33499 /
693 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=8,14)/
694 + 0.27892, 0.16776, 4.68128, 0.32196, 0.12242,
695 + 0.04985, 0.22806, 0.34438,
696 + 0.28310, 0.17001, 4.78554, 0.33056, 0.13390,
697 + 0.06317, 0.23809, 0.35291,
698 + 0.28695, 0.17206, 4.86872, 0.33841, 0.14446,
699 + 0.07531, 0.24727, 0.36068,
700 + 0.29055, 0.17395, 4.93511, 0.34560, 0.15419,
701 + 0.08646, 0.25570, 0.36778,
702 + 0.29385, 0.17569, 4.98624, 0.35217, 0.16317,
703 + 0.09671, 0.26343, 0.37425,
704 + 0.29693, 0.17725, 5.02253, 0.35809, 0.17136,
705 + 0.10605, 0.27046, 0.38007,
706 + 0.29984, 0.17869, 5.05074, 0.36356, 0.17899,
707 + 0.11473, 0.27698, 0.38544 /
708 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=15,19)/
709 + 0.30258, 0.18003, 5.07113, 0.36855, 0.18605,
710 + 0.12275, 0.28297, 0.39035,
711 + 0.30513, 0.18122, 5.08129, 0.37303, 0.19251,
712 + 0.13009, 0.28842, 0.39474,
713 + 0.30756, 0.18236, 5.08812, 0.37725, 0.19863,
714 + 0.13703, 0.29357, 0.39888,
715 + 0.30978, 0.18339, 5.08587, 0.38101, 0.20417,
716 + 0.14335, 0.29819, 0.40253,
717 + 0.31191, 0.18438, 5.08184, 0.38454, 0.20943,
718 + 0.14933, 0.30256, 0.40597 /
719 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/
720 + 0.31675, 0.19817, 2.33149, 0.17843, 0.00001,
721 + 0.00011, 0.09467, 0.20244,
722 + 0.32671, 0.20322, 2.55776, 0.18772, 0.01323,
723 + 0.00010, 0.10662, 0.21145,
724 + 0.33511, 0.20726, 2.71158, 0.19587, 0.02620,
725 + 0.00012, 0.11707, 0.21926,
726 + 0.34226, 0.21044, 2.81105, 0.20280, 0.03748,
727 + 0.00012, 0.12606, 0.22586,
728 + 0.34845, 0.21304, 2.87604, 0.20872, 0.04732,
729 + 0.00200, 0.13387, 0.23150,
730 + 0.35382, 0.21516, 2.91558, 0.21374, 0.05590,
731 + 0.01061, 0.14058, 0.23616,
732 + 0.35852, 0.21686, 2.93654, 0.21800, 0.06344,
733 + 0.01974, 0.14639, 0.24010 /
734 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=8,14)/
735 + 0.36269, 0.21825, 2.94294, 0.22159, 0.07012,
736 + 0.02757, 0.15146, 0.24341,
737 + 0.36635, 0.21943, 2.93888, 0.22464, 0.07602,
738 + 0.03452, 0.15584, 0.24619,
739 + 0.36961, 0.22040, 2.92715, 0.22722, 0.08127,
740 + 0.04070, 0.15968, 0.24850,
741 + 0.37255, 0.22118, 2.90980, 0.22942, 0.08599,
742 + 0.04623, 0.16306, 0.25040,
743 + 0.37518, 0.22181, 2.88783, 0.23130, 0.09020,
744 + 0.05118, 0.16603, 0.25197,
745 + 0.37750, 0.22228, 2.86153, 0.23278, 0.09390,
746 + 0.05557, 0.16853, 0.25320,
747 + 0.37962, 0.22265, 2.83369, 0.23401, 0.09722,
748 + 0.05956, 0.17074, 0.25422 /
749 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=15,19)/
750 + 0.38155, 0.22293, 2.80427, 0.23499, 0.10021,
751 + 0.06316, 0.17268, 0.25502,
752 + 0.38325, 0.22311, 2.77247, 0.23573, 0.10285,
753 + 0.06634, 0.17433, 0.25552,
754 + 0.38482, 0.22325, 2.74123, 0.23636, 0.10529,
755 + 0.06931, 0.17581, 0.25593,
756 + 0.38618, 0.22329, 2.70816, 0.23676, 0.10744,
757 + 0.07194, 0.17702, 0.25610,
758 + 0.38744, 0.22331, 2.67594, 0.23709, 0.10945,
759 + 0.07440, 0.17811, 0.25621 /
760 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/
761 + 0.37716, 0.23432, 2.04614, 0.14605, 0.00001,
762 + 0.00000, 0.07662, 0.16943,
763 + 0.38715, 0.23771, 2.13651, 0.15212, 0.00667,
764 + 0.00003, 0.08529, 0.17487,
765 + 0.39510, 0.24007, 2.18071, 0.15705, 0.01640,
766 + 0.00003, 0.09244, 0.17918,
767 + 0.40150, 0.24165, 2.19287, 0.16082, 0.02454,
768 + 0.00001, 0.09823, 0.18231,
769 + 0.40673, 0.24267, 2.18715, 0.16382, 0.03143,
770 + 0.00144, 0.10304, 0.18473,
771 + 0.41101, 0.24323, 2.16903, 0.16608, 0.03721,
772 + 0.00715, 0.10692, 0.18655,
773 + 0.41457, 0.24336, 2.14268, 0.16776, 0.04218,
774 + 0.01304, 0.11007, 0.18774 /
775 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=8,14)/
776 + 0.41749, 0.24330, 2.11091, 0.16895, 0.04642,
777 + 0.01797, 0.11270, 0.18858,
778 + 0.41987, 0.24306, 2.07567, 0.16983, 0.05009,
779 + 0.02232, 0.11485, 0.18902,
780 + 0.42188, 0.24264, 2.03849, 0.17040, 0.05329,
781 + 0.02612, 0.11664, 0.18919,
782 + 0.42355, 0.24211, 2.00049, 0.17072, 0.05606,
783 + 0.02944, 0.11812, 0.18916,
784 + 0.42485, 0.24153, 1.96204, 0.17089, 0.05842,
785 + 0.03238, 0.11928, 0.18895,
786 + 0.42586, 0.24088, 1.92301, 0.17078, 0.06046,
787 + 0.03486, 0.12015, 0.18845,
788 + 0.42670, 0.24014, 1.88496, 0.17056, 0.06228,
789 + 0.03710, 0.12086, 0.18791 /
790 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=15,19)/
791 + 0.42736, 0.23933, 1.84771, 0.17021, 0.06389,
792 + 0.03911, 0.12141, 0.18732,
793 + 0.42783, 0.23845, 1.81057, 0.16971, 0.06524,
794 + 0.04088, 0.12177, 0.18656,
795 + 0.42819, 0.23758, 1.77513, 0.16918, 0.06645,
796 + 0.04249, 0.12205, 0.18578,
797 + 0.42835, 0.23665, 1.73997, 0.16854, 0.06744,
798 + 0.04387, 0.12218, 0.18488,
799 + 0.42846, 0.23572, 1.70644, 0.16789, 0.06835,
800 + 0.04514, 0.12226, 0.18397 /
801 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/
802 + 0.42581, 0.25814, 1.80115, 0.12381, 0.00001,
803 + 0.00007, 0.06420, 0.14518,
804 + 0.43471, 0.25940, 1.81457, 0.12765, 0.00306,
805 + 0.00005, 0.07065, 0.14825,
806 + 0.44129, 0.25975, 1.80085, 0.13045, 0.01081,
807 + 0.00009, 0.07572, 0.15018,
808 + 0.44611, 0.25935, 1.76984, 0.13232, 0.01701,
809 + 0.00009, 0.07958, 0.15141,
810 + 0.44973, 0.25854, 1.73120, 0.13353, 0.02210,
811 + 0.00111, 0.08255, 0.15202,
812 + 0.45238, 0.25736, 1.68831, 0.13417, 0.02631,
813 + 0.00512, 0.08484, 0.15211,
814 + 0.45414, 0.25602, 1.64338, 0.13441, 0.02977,
815 + 0.00923, 0.08660, 0.15189 /
816 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=8,14)/
817 + 0.45534, 0.25452, 1.59761, 0.13439, 0.03266,
818 + 0.01261, 0.08790, 0.15135,
819 + 0.45609, 0.25289, 1.55215, 0.13412, 0.03512,
820 + 0.01550, 0.08887, 0.15060,
821 + 0.45647, 0.25119, 1.50778, 0.13364, 0.03721,
822 + 0.01799, 0.08959, 0.14971,
823 + 0.45654, 0.24949, 1.46494, 0.13303, 0.03898,
824 + 0.02015, 0.09008, 0.14870,
825 + 0.45630, 0.24779, 1.42360, 0.13239, 0.04046,
826 + 0.02203, 0.09038, 0.14760,
827 + 0.45582, 0.24599, 1.38349, 0.13160, 0.04172,
828 + 0.02361, 0.09046, 0.14642,
829 + 0.45521, 0.24419, 1.34542, 0.13071, 0.04279,
830 + 0.02500, 0.09046, 0.14522 /
831 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=15,19)/
832 + 0.45448, 0.24242, 1.30910, 0.12974, 0.04370,
833 + 0.02623, 0.09038, 0.14398,
834 + 0.45357, 0.24062, 1.27398, 0.12876, 0.04442,
835 + 0.02725, 0.09018, 0.14271,
836 + 0.45262, 0.23887, 1.24091, 0.12778, 0.04504,
837 + 0.02817, 0.08994, 0.14146,
838 + 0.45148, 0.23714, 1.20892, 0.12673, 0.04558,
839 + 0.02897, 0.08960, 0.14014,
840 + 0.45033, 0.23546, 1.17876, 0.12569, 0.04604,
841 + 0.02969, 0.08923, 0.13886 /
842 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/
843 + 0.46658, 0.27334, 1.58593, 0.10650, 0.00001,
844 + 0.00007, 0.05433, 0.12564,
845 + 0.47323, 0.27236, 1.55280, 0.10877, 0.00073,
846 + 0.00007, 0.05917, 0.12682,
847 + 0.47775, 0.27046, 1.50636, 0.10999, 0.00688,
848 + 0.00007, 0.06266, 0.12743,
849 + 0.48045, 0.26811, 1.45307, 0.11057, 0.01179,
850 + 0.00004, 0.06522, 0.12715,
851 + 0.48187, 0.26563, 1.39881, 0.11064, 0.01574,
852 + 0.00078, 0.06703, 0.12645,
853 + 0.48223, 0.26289, 1.34532, 0.11039, 0.01886,
854 + 0.00373, 0.06827, 0.12551,
855 + 0.48200, 0.26005, 1.29339, 0.10983, 0.02139,
856 + 0.00669, 0.06913, 0.12433 /
857 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=8,14)/
858 + 0.48130, 0.25717, 1.24366, 0.10898, 0.02343,
859 + 0.00905, 0.06964, 0.12315,
860 + 0.48019, 0.25422, 1.19639, 0.10799, 0.02513,
861 + 0.01110, 0.06992, 0.12183,
862 + 0.47873, 0.25139, 1.15171, 0.10699, 0.02657,
863 + 0.01284, 0.07003, 0.12032,
864 + 0.47703, 0.24866, 1.10970, 0.10596, 0.02779,
865 + 0.01429, 0.06998, 0.11875,
866 + 0.47521, 0.24592, 1.07018, 0.10482, 0.02874,
867 + 0.01545, 0.06980, 0.11729,
868 + 0.47313, 0.24320, 1.03270, 0.10368, 0.02953,
869 + 0.01654, 0.06954, 0.11574,
870 + 0.47100, 0.24058, 0.99767, 0.10251, 0.03020,
871 + 0.01747, 0.06921, 0.11423 /
872 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=15,19)/
873 + 0.46882, 0.23802, 0.96477, 0.10131, 0.03072,
874 + 0.01825, 0.06881, 0.11277,
875 + 0.46656, 0.23547, 0.93347, 0.10006, 0.03117,
876 + 0.01888, 0.06837, 0.11130,
877 + 0.46432, 0.23302, 0.90427, 0.09884, 0.03154,
878 + 0.01945, 0.06792, 0.10988,
879 + 0.46190, 0.23061, 0.87657, 0.09766, 0.03181,
880 + 0.01995, 0.06739, 0.10844,
881 + 0.45951, 0.22830, 0.85065, 0.09650, 0.03204,
882 + 0.02039, 0.06687, 0.10705 /
883 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/
884 + 0.50652, 0.28284, 1.35102, 0.08926, 0.00001,
885 + 0.00008, 0.04486, 0.10529,
886 + 0.50988, 0.27866, 1.28468, 0.08989, 0.00001,
887 + 0.00004, 0.04820, 0.10508,
888 + 0.51092, 0.27418, 1.21704, 0.08994, 0.00417,
889 + 0.00011, 0.05049, 0.10409,
890 + 0.51031, 0.26953, 1.15112, 0.08934, 0.00790,
891 + 0.00006, 0.05187, 0.10280,
892 + 0.50858, 0.26505, 1.08961, 0.08861, 0.01075,
893 + 0.00058, 0.05272, 0.10125,
894 + 0.50614, 0.26051, 1.03265, 0.08751, 0.01299,
895 + 0.00260, 0.05321, 0.09965,
896 + 0.50314, 0.25608, 0.97995, 0.08630, 0.01481,
897 + 0.00464, 0.05342, 0.09791 /
898 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=8,14)/
899 + 0.49993, 0.25167, 0.93124, 0.08496, 0.01625,
900 + 0.00629, 0.05334, 0.09623,
901 + 0.49635, 0.24755, 0.88635, 0.08364, 0.01738,
902 + 0.00760, 0.05314, 0.09444,
903 + 0.49266, 0.24352, 0.84504, 0.08230, 0.01828,
904 + 0.00869, 0.05284, 0.09266,
905 + 0.48894, 0.23959, 0.80701, 0.08091, 0.01904,
906 + 0.00964, 0.05245, 0.09098,
907 + 0.48506, 0.23594, 0.77191, 0.07957, 0.01965,
908 + 0.01041, 0.05198, 0.08932,
909 + 0.48113, 0.23231, 0.73924, 0.07820, 0.02012,
910 + 0.01105, 0.05145, 0.08764,
911 + 0.47718, 0.22888, 0.70913, 0.07689, 0.02047,
912 + 0.01161, 0.05092, 0.08605 /
913 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=15,19)/
914 + 0.47320, 0.22564, 0.68125, 0.07563, 0.02070,
915 + 0.01208, 0.05037, 0.08453,
916 + 0.46927, 0.22240, 0.65519, 0.07441, 0.02092,
917 + 0.01247, 0.04981, 0.08295,
918 + 0.46547, 0.21930, 0.63109, 0.07324, 0.02111,
919 + 0.01282, 0.04926, 0.08145,
920 + 0.46163, 0.21629, 0.60840, 0.07203, 0.02121,
921 + 0.01310, 0.04865, 0.08004,
922 + 0.45791, 0.21341, 0.58734, 0.07088, 0.02129,
923 + 0.01334, 0.04807, 0.07871 /
924 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/
925 + 0.53667, 0.28422, 1.14794, 0.07452, 0.00001,
926 + 0.00017, 0.03719, 0.08793,
927 + 0.53576, 0.27723, 1.06488, 0.07421, 0.00001,
928 + 0.00012, 0.03937, 0.08670,
929 + 0.53298, 0.27026, 0.98862, 0.07327, 0.00240,
930 + 0.00014, 0.04074, 0.08501,
931 + 0.52855, 0.26380, 0.91938, 0.07231, 0.00528,
932 + 0.00015, 0.04137, 0.08296,
933 + 0.52365, 0.25748, 0.85763, 0.07090, 0.00751,
934 + 0.00049, 0.04167, 0.08100,
935 + 0.51826, 0.25141, 0.80251, 0.06941, 0.00915,
936 + 0.00196, 0.04162, 0.07914,
937 + 0.51251, 0.24572, 0.75290, 0.06795, 0.01039,
938 + 0.00333, 0.04142, 0.07714 /
939 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=8,14)/
940 + 0.50655, 0.24032, 0.70830, 0.06651, 0.01141,
941 + 0.00443, 0.04109, 0.07510,
942 + 0.50067, 0.23516, 0.66795, 0.06501, 0.01220,
943 + 0.00533, 0.04064, 0.07323,
944 + 0.49480, 0.23027, 0.63143, 0.06352, 0.01281,
945 + 0.00606, 0.04018, 0.07139,
946 + 0.48896, 0.22565, 0.59837, 0.06210, 0.01330,
947 + 0.00667, 0.03969, 0.06962,
948 + 0.48330, 0.22114, 0.56832, 0.06068, 0.01367,
949 + 0.00713, 0.03907, 0.06807,
950 + 0.47751, 0.21697, 0.54066, 0.05945, 0.01391,
951 + 0.00752, 0.03851, 0.06639,
952 + 0.47198, 0.21296, 0.51545, 0.05820, 0.01414,
953 + 0.00789, 0.03792, 0.06481 /
954 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=15,19)/
955 + 0.46670, 0.20906, 0.49238, 0.05691, 0.01433,
956 + 0.00827, 0.03734, 0.06333,
957 + 0.46134, 0.20539, 0.47115, 0.05570, 0.01441,
958 + 0.00852, 0.03672, 0.06199,
959 + 0.45614, 0.20192, 0.45164, 0.05455, 0.01446,
960 + 0.00873, 0.03612, 0.06071,
961 + 0.45096, 0.19860, 0.43326, 0.05348, 0.01449,
962 + 0.00884, 0.03553, 0.05941,
963 + 0.44599, 0.19542, 0.41633, 0.05246, 0.01451,
964 + 0.00896, 0.03495, 0.05817 /
965 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/
966 + 0.55780, 0.27971, 0.97191, 0.06190, 0.00001,
967 + 0.00006, 0.03043, 0.07284,
968 + 0.55207, 0.27012, 0.88223, 0.06085, 0.00001,
969 + 0.00007, 0.03192, 0.07092,
970 + 0.54482, 0.26136, 0.80448, 0.05964, 0.00138,
971 + 0.00006, 0.03264, 0.06858,
972 + 0.53704, 0.25287, 0.73694, 0.05803, 0.00361,
973 + 0.00001, 0.03287, 0.06648,
974 + 0.52875, 0.24525, 0.67862, 0.05645, 0.00529,
975 + 0.00028, 0.03286, 0.06425,
976 + 0.52031, 0.23809, 0.62775, 0.05479, 0.00652,
977 + 0.00137, 0.03265, 0.06219,
978 + 0.51207, 0.23131, 0.58301, 0.05319, 0.00753,
979 + 0.00235, 0.03218, 0.06019 /
980 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=8,14)/
981 + 0.50384, 0.22501, 0.54340, 0.05165, 0.00821,
982 + 0.00310, 0.03165, 0.05841,
983 + 0.49570, 0.21911, 0.50822, 0.05016, 0.00874,
984 + 0.00377, 0.03117, 0.05660,
985 + 0.48774, 0.21361, 0.47688, 0.04877, 0.00918,
986 + 0.00431, 0.03061, 0.05485,
987 + 0.48003, 0.20849, 0.44881, 0.04749, 0.00951,
988 + 0.00473, 0.02997, 0.05324,
989 + 0.47259, 0.20370, 0.42348, 0.04623, 0.00969,
990 + 0.00507, 0.02939, 0.05171,
991 + 0.46549, 0.19894, 0.40045, 0.04487, 0.00985,
992 + 0.00541, 0.02883, 0.05036,
993 + 0.45860, 0.19450, 0.37966, 0.04368, 0.00998,
994 + 0.00565, 0.02825, 0.04902 /
995 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=15,19)/
996 + 0.45187, 0.19035, 0.36079, 0.04265, 0.01008,
997 + 0.00577, 0.02766, 0.04765,
998 + 0.44525, 0.18642, 0.34354, 0.04159, 0.01012,
999 + 0.00589, 0.02712, 0.04641,
1000 + 0.43893, 0.18271, 0.32781, 0.04059, 0.01014,
1001 + 0.00601, 0.02660, 0.04524,
1002 + 0.43281, 0.17912, 0.31332, 0.03962, 0.01016,
1003 + 0.00608, 0.02605, 0.04412,
1004 + 0.42696, 0.17570, 0.29997, 0.03870, 0.01016,
1005 + 0.00614, 0.02553, 0.04306 /
1006 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/
1007 + 0.57041, 0.27068, 0.81970, 0.05094, 0.00001,
1008 + 0.00002, 0.02472, 0.05939,
1009 + 0.55964, 0.25905, 0.72974, 0.04959, 0.00001,
1010 + 0.00000, 0.02563, 0.05710,
1011 + 0.54846, 0.24829, 0.65482, 0.04783, 0.00058,
1012 + 0.00005, 0.02595, 0.05500,
1013 + 0.53681, 0.23875, 0.59176, 0.04618, 0.00234,
1014 + 0.00004, 0.02589, 0.05276,
1015 + 0.52531, 0.23012, 0.53851, 0.04460, 0.00362,
1016 + 0.00034, 0.02565, 0.05057,
1017 + 0.51426, 0.22199, 0.49304, 0.04306, 0.00456,
1018 + 0.00104, 0.02516, 0.04865,
1019 + 0.50346, 0.21459, 0.45365, 0.04158, 0.00525,
1020 + 0.00176, 0.02465, 0.04678 /
1021 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=8,14)/
1022 + 0.49304, 0.20771, 0.41933, 0.04008, 0.00586,
1023 + 0.00232, 0.02413, 0.04500,
1024 + 0.48301, 0.20137, 0.38928, 0.03865, 0.00620,
1025 + 0.00274, 0.02360, 0.04345,
1026 + 0.47339, 0.19552, 0.36282, 0.03735, 0.00647,
1027 + 0.00301, 0.02307, 0.04191,
1028 + 0.46419, 0.19006, 0.33936, 0.03615, 0.00674,
1029 + 0.00324, 0.02253, 0.04037,
1030 + 0.45535, 0.18490, 0.31839, 0.03500, 0.00692,
1031 + 0.00352, 0.02202, 0.03900,
1032 + 0.44684, 0.18011, 0.29952, 0.03395, 0.00700,
1033 + 0.00366, 0.02144, 0.03774,
1034 + 0.43871, 0.17558, 0.28259, 0.03297, 0.00705,
1035 + 0.00378, 0.02088, 0.03658 /
1036 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=15,19)/
1037 + 0.43088, 0.17127, 0.26732, 0.03209, 0.00708,
1038 + 0.00391, 0.02037, 0.03548,
1039 + 0.42335, 0.16726, 0.25344, 0.03120, 0.00710,
1040 + 0.00403, 0.01990, 0.03433,
1041 + 0.41621, 0.16349, 0.24083, 0.03036, 0.00711,
1042 + 0.00413, 0.01947, 0.03327,
1043 + 0.40937, 0.15980, 0.22926, 0.02946, 0.00711,
1044 + 0.00417, 0.01906, 0.03236,
1045 + 0.40284, 0.15633, 0.21867, 0.02865, 0.00710,
1046 + 0.00421, 0.01864, 0.03152 /
1047 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/
1048 + 0.57544, 0.25807, 0.68826, 0.04122, 0.00001,
1049 + 0.00001, 0.01974, 0.04813,
1050 + 0.55979, 0.24471, 0.60187, 0.03965, 0.00001,
1051 + 0.00009, 0.02025, 0.04584,
1052 + 0.54425, 0.23296, 0.53213, 0.03815, 0.00020,
1053 + 0.00004, 0.02042, 0.04317,
1054 + 0.52913, 0.22243, 0.47499, 0.03649, 0.00154,
1055 + 0.00007, 0.02022, 0.04118,
1056 + 0.51504, 0.21276, 0.42763, 0.03484, 0.00256,
1057 + 0.00023, 0.01975, 0.03943,
1058 + 0.50148, 0.20414, 0.38774, 0.03336, 0.00338,
1059 + 0.00074, 0.01934, 0.03746,
1060 + 0.48822, 0.19664, 0.35371, 0.03206, 0.00383,
1061 + 0.00121, 0.01886, 0.03574 /
1062 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=8,14)/
1063 + 0.47601, 0.18942, 0.32449, 0.03071, 0.00415,
1064 + 0.00165, 0.01828, 0.03438,
1065 + 0.46440, 0.18279, 0.29914, 0.02951, 0.00440,
1066 + 0.00195, 0.01781, 0.03295,
1067 + 0.45342, 0.17669, 0.27697, 0.02837, 0.00459,
1068 + 0.00215, 0.01732, 0.03161,
1069 + 0.44300, 0.17105, 0.25749, 0.02729, 0.00475,
1070 + 0.00231, 0.01679, 0.03042,
1071 + 0.43286, 0.16599, 0.24029, 0.02641, 0.00484,
1072 + 0.00246, 0.01633, 0.02925,
1073 + 0.42350, 0.16090, 0.22504, 0.02540, 0.00495,
1074 + 0.00265, 0.01585, 0.02828,
1075 + 0.41459, 0.15627, 0.21133, 0.02452, 0.00501,
1076 + 0.00274, 0.01536, 0.02732 /
1077 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=15,19)/
1078 + 0.40606, 0.15210, 0.19889, 0.02377, 0.00499,
1079 + 0.00272, 0.01491, 0.02634,
1080 + 0.39772, 0.14818, 0.18788, 0.02305, 0.00501,
1081 + 0.00276, 0.01452, 0.02541,
1082 + 0.38984, 0.14447, 0.17796, 0.02239, 0.00502,
1083 + 0.00280, 0.01415, 0.02453,
1084 + 0.38246, 0.14084, 0.16883, 0.02170, 0.00497,
1085 + 0.00280, 0.01381, 0.02375,
1086 + 0.37544, 0.13743, 0.16054, 0.02106, 0.00491,
1087 + 0.00281, 0.01348, 0.02303 /
1088 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/
1089 + 0.57296, 0.24331, 0.57498, 0.03323, 0.00001,
1090 + 0.00000, 0.01564, 0.03790,
1091 + 0.55287, 0.22837, 0.49443, 0.03152, 0.00001,
1092 + 0.00015, 0.01586, 0.03580,
1093 + 0.53348, 0.21570, 0.43117, 0.02996, 0.00001,
1094 + 0.00003, 0.01587, 0.03381,
1095 + 0.51557, 0.20430, 0.38020, 0.02816, 0.00101,
1096 + 0.00014, 0.01560, 0.03199,
1097 + 0.49880, 0.19429, 0.33882, 0.02671, 0.00183,
1098 + 0.00017, 0.01515, 0.03027,
1099 + 0.48293, 0.18554, 0.30443, 0.02552, 0.00237,
1100 + 0.00053, 0.01468, 0.02866,
1101 + 0.46813, 0.17757, 0.27543, 0.02427, 0.00272,
1102 + 0.00090, 0.01427, 0.02732 /
1103 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=8,14)/
1104 + 0.45440, 0.17028, 0.25084, 0.02316, 0.00307,
1105 + 0.00122, 0.01376, 0.02599,
1106 + 0.44124, 0.16387, 0.22975, 0.02226, 0.00330,
1107 + 0.00146, 0.01334, 0.02458,
1108 + 0.42895, 0.15791, 0.21147, 0.02133, 0.00343,
1109 + 0.00158, 0.01292, 0.02342,
1110 + 0.41757, 0.15227, 0.19548, 0.02040, 0.00350,
1111 + 0.00166, 0.01249, 0.02255,
1112 + 0.40679, 0.14708, 0.18137, 0.01956, 0.00351,
1113 + 0.00181, 0.01205, 0.02169,
1114 + 0.39644, 0.14238, 0.16919, 0.01895, 0.00352,
1115 + 0.00187, 0.01164, 0.02076,
1116 + 0.38674, 0.13798, 0.15832, 0.01831, 0.00355,
1117 + 0.00190, 0.01126, 0.01991 /
1118 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=15,19)/
1119 + 0.37764, 0.13385, 0.14851, 0.01762, 0.00355,
1120 + 0.00190, 0.01089, 0.01918,
1121 + 0.36924, 0.12985, 0.13974, 0.01689, 0.00351,
1122 + 0.00192, 0.01058, 0.01851,
1123 + 0.36130, 0.12612, 0.13186, 0.01624, 0.00345,
1124 + 0.00194, 0.01029, 0.01788,
1125 + 0.35325, 0.12277, 0.12476, 0.01583, 0.00345,
1126 + 0.00202, 0.00995, 0.01720,
1127 + 0.34571, 0.11959, 0.11829, 0.01540, 0.00345,
1128 + 0.00206, 0.00965, 0.01660 /
1129 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/
1130 + 0.56518, 0.22574, 0.47773, 0.02572, 0.00001,
1131 + 0.00017, 0.01219, 0.02999,
1132 + 0.54022, 0.21032, 0.40443, 0.02428, 0.00001,
1133 + 0.00008, 0.01231, 0.02779,
1134 + 0.51757, 0.19695, 0.34790, 0.02272, 0.00001,
1135 + 0.00001, 0.01225, 0.02602,
1136 + 0.49637, 0.18579, 0.30341, 0.02165, 0.00073,
1137 + 0.00005, 0.01176, 0.02436,
1138 + 0.47738, 0.17567, 0.26767, 0.02038, 0.00129,
1139 + 0.00015, 0.01135, 0.02300,
1140 + 0.45973, 0.16694, 0.23843, 0.01935, 0.00174,
1141 + 0.00045, 0.01097, 0.02155,
1142 + 0.44350, 0.15904, 0.21412, 0.01829, 0.00198,
1143 + 0.00070, 0.01058, 0.02049 /
1144 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=8,14)/
1145 + 0.42843, 0.15191, 0.19373, 0.01738, 0.00217,
1146 + 0.00087, 0.01023, 0.01934,
1147 + 0.41435, 0.14556, 0.17633, 0.01661, 0.00229,
1148 + 0.00102, 0.00983, 0.01830,
1149 + 0.40135, 0.13964, 0.16141, 0.01588, 0.00238,
1150 + 0.00114, 0.00943, 0.01742,
1151 + 0.38933, 0.13414, 0.14855, 0.01516, 0.00245,
1152 + 0.00122, 0.00907, 0.01663,
1153 + 0.37813, 0.12913, 0.13733, 0.01444, 0.00252,
1154 + 0.00122, 0.00879, 0.01582,
1155 + 0.36744, 0.12454, 0.12739, 0.01386, 0.00257,
1156 + 0.00130, 0.00849, 0.01505,
1157 + 0.35745, 0.12028, 0.11868, 0.01330, 0.00255,
1158 + 0.00135, 0.00818, 0.01442 /
1159 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=15,19)/
1160 + 0.34809, 0.11628, 0.11101, 0.01276, 0.00250,
1161 + 0.00135, 0.00787, 0.01392,
1162 + 0.33926, 0.11259, 0.10409, 0.01209, 0.00250,
1163 + 0.00138, 0.00764, 0.01354,
1164 + 0.33095, 0.10919, 0.09788, 0.01148, 0.00249,
1165 + 0.00140, 0.00743, 0.01317,
1166 + 0.32294, 0.10598, 0.09234, 0.01107, 0.00244,
1167 + 0.00137, 0.00715, 0.01265,
1168 + 0.31537, 0.10296, 0.08731, 0.01071, 0.00240,
1169 + 0.00135, 0.00691, 0.01219 /
1170 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/
1171 + 0.55060, 0.20783, 0.39443, 0.01979, 0.00001,
1172 + 0.00015, 0.00934, 0.02282,
1173 + 0.52171, 0.19198, 0.32888, 0.01862, 0.00001,
1174 + 0.00003, 0.00944, 0.02101,
1175 + 0.49584, 0.17870, 0.27941, 0.01751, 0.00001,
1176 + 0.00000, 0.00928, 0.01940,
1177 + 0.47296, 0.16688, 0.24109, 0.01615, 0.00048,
1178 + 0.00003, 0.00903, 0.01825,
1179 + 0.45189, 0.15716, 0.21062, 0.01529, 0.00099,
1180 + 0.00010, 0.00868, 0.01687,
1181 + 0.43312, 0.14840, 0.18611, 0.01438, 0.00119,
1182 + 0.00035, 0.00831, 0.01594,
1183 + 0.41585, 0.14068, 0.16583, 0.01350, 0.00147,
1184 + 0.00053, 0.00786, 0.01507 /
1185 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=8,14)/
1186 + 0.39990, 0.13380, 0.14919, 0.01273, 0.00163,
1187 + 0.00068, 0.00751, 0.01429,
1188 + 0.38524, 0.12762, 0.13513, 0.01208, 0.00174,
1189 + 0.00073, 0.00724, 0.01339,
1190 + 0.37180, 0.12198, 0.12301, 0.01149, 0.00178,
1191 + 0.00081, 0.00695, 0.01263,
1192 + 0.35946, 0.11684, 0.11254, 0.01088, 0.00178,
1193 + 0.00091, 0.00664, 0.01201,
1194 + 0.34797, 0.11216, 0.10354, 0.01030, 0.00186,
1195 + 0.00090, 0.00637, 0.01129,
1196 + 0.33693, 0.10781, 0.09569, 0.00980, 0.00181,
1197 + 0.00092, 0.00616, 0.01090,
1198 + 0.32670, 0.10381, 0.08880, 0.00936, 0.00179,
1199 + 0.00095, 0.00596, 0.01046 /
1200 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=15,19)/
1201 + 0.31718, 0.10010, 0.08270, 0.00897, 0.00183,
1202 + 0.00099, 0.00575, 0.00994,
1203 + 0.30824, 0.09662, 0.07732, 0.00856, 0.00181,
1204 + 0.00101, 0.00552, 0.00963,
1205 + 0.29988, 0.09338, 0.07252, 0.00817, 0.00179,
1206 + 0.00102, 0.00531, 0.00935,
1207 + 0.29184, 0.09038, 0.06823, 0.00790, 0.00178,
1208 + 0.00102, 0.00514, 0.00896,
1209 + 0.28433, 0.08761, 0.06433, 0.00763, 0.00176,
1210 + 0.00102, 0.00497, 0.00859 /
1211 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/
1212 + 0.53121, 0.19009, 0.32396, 0.01562, 0.00001,
1213 + 0.00009, 0.00666, 0.01711,
1214 + 0.49937, 0.17349, 0.26604, 0.01416, 0.00001,
1215 + 0.00008, 0.00674, 0.01605,
1216 + 0.47097, 0.16040, 0.22326, 0.01321, 0.00001,
1217 + 0.00011, 0.00662, 0.01471,
1218 + 0.44583, 0.14920, 0.19074, 0.01237, 0.00018,
1219 + 0.00006, 0.00648, 0.01344,
1220 + 0.42380, 0.13944, 0.16526, 0.01150, 0.00054,
1221 + 0.00001, 0.00628, 0.01242,
1222 + 0.40392, 0.13099, 0.14509, 0.01069, 0.00081,
1223 + 0.00017, 0.00595, 0.01171,
1224 + 0.38621, 0.12365, 0.12854, 0.00980, 0.00095,
1225 + 0.00031, 0.00572, 0.01105 /
1226 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=8,14)/
1227 + 0.36983, 0.11707, 0.11472, 0.00933, 0.00107,
1228 + 0.00039, 0.00540, 0.01034,
1229 + 0.35484, 0.11119, 0.10330, 0.00890, 0.00117,
1230 + 0.00049, 0.00518, 0.00968,
1231 + 0.34113, 0.10588, 0.09359, 0.00835, 0.00123,
1232 + 0.00051, 0.00497, 0.00913,
1233 + 0.32848, 0.10105, 0.08524, 0.00783, 0.00125,
1234 + 0.00051, 0.00472, 0.00873,
1235 + 0.31668, 0.09665, 0.07809, 0.00753, 0.00123,
1236 + 0.00061, 0.00452, 0.00843,
1237 + 0.30596, 0.09263, 0.07190, 0.00714, 0.00125,
1238 + 0.00064, 0.00431, 0.00785,
1239 + 0.29591, 0.08896, 0.06650, 0.00683, 0.00124,
1240 + 0.00065, 0.00413, 0.00741 /
1241 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=15,19)/
1242 + 0.28641, 0.08560, 0.06174, 0.00657, 0.00121,
1243 + 0.00067, 0.00397, 0.00713,
1244 + 0.27773, 0.08238, 0.05754, 0.00622, 0.00122,
1245 + 0.00066, 0.00381, 0.00679,
1246 + 0.26963, 0.07941, 0.05381, 0.00588, 0.00123,
1247 + 0.00066, 0.00367, 0.00647,
1248 + 0.26176, 0.07672, 0.05045, 0.00562, 0.00120,
1249 + 0.00066, 0.00354, 0.00623,
1250 + 0.25439, 0.07419, 0.04744, 0.00540, 0.00118,
1251 + 0.00066, 0.00341, 0.00599 /
1252 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/
1253 + 0.50755, 0.17053, 0.26316, 0.01106, 0.00001,
1254 + 0.00016, 0.00518, 0.01269,
1255 + 0.47243, 0.15488, 0.21340, 0.01031, 0.00001,
1256 + 0.00012, 0.00513, 0.01162,
1257 + 0.44244, 0.14194, 0.17721, 0.00946, 0.00001,
1258 + 0.00013, 0.00504, 0.01059,
1259 + 0.41618, 0.13122, 0.14992, 0.00870, 0.00029,
1260 + 0.00006, 0.00476, 0.00981,
1261 + 0.39347, 0.12199, 0.12888, 0.00794, 0.00048,
1262 + 0.00012, 0.00457, 0.00911,
1263 + 0.37321, 0.11404, 0.11212, 0.00737, 0.00063,
1264 + 0.00022, 0.00445, 0.00841,
1265 + 0.35479, 0.10714, 0.09864, 0.00702, 0.00085,
1266 + 0.00028, 0.00423, 0.00773 /
1267 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=8,14)/
1268 + 0.33840, 0.10098, 0.08757, 0.00633, 0.00082,
1269 + 0.00039, 0.00393, 0.00752,
1270 + 0.32319, 0.09555, 0.07841, 0.00602, 0.00092,
1271 + 0.00041, 0.00372, 0.00707,
1272 + 0.30945, 0.09063, 0.07069, 0.00574, 0.00095,
1273 + 0.00041, 0.00355, 0.00662,
1274 + 0.29704, 0.08626, 0.06412, 0.00541, 0.00088,
1275 + 0.00043, 0.00340, 0.00623,
1276 + 0.28541, 0.08250, 0.05854, 0.00533, 0.00090,
1277 + 0.00044, 0.00320, 0.00564,
1278 + 0.27487, 0.07871, 0.05369, 0.00499, 0.00091,
1279 + 0.00043, 0.00305, 0.00542,
1280 + 0.26513, 0.07526, 0.04947, 0.00463, 0.00090,
1281 + 0.00042, 0.00288, 0.00522 /
1282 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=15,19)/
1283 + 0.25605, 0.07217, 0.04578, 0.00430, 0.00086,
1284 + 0.00041, 0.00273, 0.00503,
1285 + 0.24741, 0.06930, 0.04254, 0.00420, 0.00083,
1286 + 0.00047, 0.00265, 0.00482,
1287 + 0.23934, 0.06666, 0.03967, 0.00413, 0.00082,
1288 + 0.00053, 0.00259, 0.00461,
1289 + 0.23155, 0.06423, 0.03712, 0.00409, 0.00083,
1290 + 0.00049, 0.00249, 0.00436,
1291 + 0.22440, 0.06199, 0.03484, 0.00399, 0.00083,
1292 + 0.00046, 0.00239, 0.00413 /
1293 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/
1294 + 0.48033, 0.15264, 0.21305, 0.00836, 0.00001,
1295 + 0.00002, 0.00357, 0.00909,
1296 + 0.44304, 0.13739, 0.17039, 0.00774, 0.00001,
1297 + 0.00001, 0.00358, 0.00829,
1298 + 0.41195, 0.12495, 0.13987, 0.00689, 0.00001,
1299 + 0.00004, 0.00350, 0.00760,
1300 + 0.38523, 0.11467, 0.11712, 0.00624, 0.00004,
1301 + 0.00002, 0.00337, 0.00710,
1302 + 0.36185, 0.10601, 0.09981, 0.00572, 0.00029,
1303 + 0.00003, 0.00324, 0.00657,
1304 + 0.34121, 0.09871, 0.08628, 0.00542, 0.00042,
1305 + 0.00012, 0.00299, 0.00608,
1306 + 0.32287, 0.09229, 0.07548, 0.00499, 0.00042,
1307 + 0.00011, 0.00283, 0.00569 /
1308 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=8,14)/
1309 + 0.30647, 0.08679, 0.06658, 0.00477, 0.00057,
1310 + 0.00020, 0.00269, 0.00520,
1311 + 0.29188, 0.08178, 0.05928, 0.00441, 0.00056,
1312 + 0.00022, 0.00251, 0.00482,
1313 + 0.27861, 0.07724, 0.05321, 0.00408, 0.00058,
1314 + 0.00023, 0.00236, 0.00449,
1315 + 0.26641, 0.07317, 0.04808, 0.00384, 0.00065,
1316 + 0.00025, 0.00223, 0.00424,
1317 + 0.25518, 0.06944, 0.04369, 0.00364, 0.00056,
1318 + 0.00025, 0.00212, 0.00420,
1319 + 0.24480, 0.06623, 0.03997, 0.00358, 0.00054,
1320 + 0.00027, 0.00207, 0.00383,
1321 + 0.23528, 0.06326, 0.03674, 0.00342, 0.00053,
1322 + 0.00028, 0.00198, 0.00357 /
1323 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=15,19)/
1324 + 0.22649, 0.06047, 0.03392, 0.00316, 0.00054,
1325 + 0.00027, 0.00184, 0.00348,
1326 + 0.21826, 0.05793, 0.03140, 0.00306, 0.00054,
1327 + 0.00028, 0.00177, 0.00327,
1328 + 0.21067, 0.05562, 0.02917, 0.00295, 0.00054,
1329 + 0.00030, 0.00172, 0.00307,
1330 + 0.20387, 0.05341, 0.02723, 0.00267, 0.00051,
1331 + 0.00030, 0.00162, 0.00295,
1332 + 0.19744, 0.05139, 0.02550, 0.00248, 0.00050,
1333 + 0.00030, 0.00155, 0.00282 /
1334 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/
1335 + 0.44937, 0.13485, 0.17056, 0.00582, 0.00001,
1336 + 0.00008, 0.00249, 0.00658,
1337 + 0.41181, 0.12006, 0.13469, 0.00503, 0.00001,
1338 + 0.00005, 0.00253, 0.00598,
1339 + 0.37920, 0.10859, 0.10935, 0.00489, 0.00001,
1340 + 0.00003, 0.00259, 0.00529,
1341 + 0.35221, 0.09901, 0.09074, 0.00420, 0.00009,
1342 + 0.00001, 0.00238, 0.00497,
1343 + 0.32881, 0.09099, 0.07678, 0.00402, 0.00023,
1344 + 0.00002, 0.00227, 0.00458,
1345 + 0.30871, 0.08440, 0.06584, 0.00368, 0.00028,
1346 + 0.00010, 0.00215, 0.00427,
1347 + 0.29082, 0.07850, 0.05720, 0.00350, 0.00032,
1348 + 0.00013, 0.00206, 0.00382 /
1349 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=8,14)/
1350 + 0.27484, 0.07337, 0.05025, 0.00328, 0.00035,
1351 + 0.00014, 0.00188, 0.00355,
1352 + 0.26061, 0.06888, 0.04449, 0.00304, 0.00036,
1353 + 0.00018, 0.00179, 0.00335,
1354 + 0.24770, 0.06490, 0.03975, 0.00286, 0.00039,
1355 + 0.00022, 0.00170, 0.00310,
1356 + 0.23596, 0.06132, 0.03580, 0.00274, 0.00041,
1357 + 0.00023, 0.00159, 0.00286,
1358 + 0.22540, 0.05811, 0.03241, 0.00256, 0.00036,
1359 + 0.00023, 0.00147, 0.00274,
1360 + 0.21580, 0.05517, 0.02952, 0.00227, 0.00036,
1361 + 0.00020, 0.00139, 0.00261,
1362 + 0.20686, 0.05250, 0.02703, 0.00214, 0.00038,
1363 + 0.00020, 0.00134, 0.00244 /
1364 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=15,19)/
1365 + 0.19847, 0.05006, 0.02488, 0.00218, 0.00039,
1366 + 0.00024, 0.00133, 0.00223,
1367 + 0.19082, 0.04785, 0.02301, 0.00212, 0.00042,
1368 + 0.00023, 0.00126, 0.00208,
1369 + 0.18376, 0.04582, 0.02136, 0.00205, 0.00043,
1370 + 0.00021, 0.00118, 0.00194,
1371 + 0.17709, 0.04389, 0.01987, 0.00195, 0.00042,
1372 + 0.00020, 0.00110, 0.00190,
1373 + 0.17094, 0.04214, 0.01855, 0.00183, 0.00038,
1374 + 0.00019, 0.00104, 0.00185 /
1375 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/
1376 + 0.41755, 0.11759, 0.13558, 0.00373, 0.00001,
1377 + 0.00004, 0.00168, 0.00454,
1378 + 0.37836, 0.10426, 0.10575, 0.00366, 0.00001,
1379 + 0.00004, 0.00176, 0.00415,
1380 + 0.34619, 0.09359, 0.08497, 0.00346, 0.00001,
1381 + 0.00007, 0.00152, 0.00395,
1382 + 0.31940, 0.08485, 0.06994, 0.00307, 0.00001,
1383 + 0.00003, 0.00151, 0.00361,
1384 + 0.29667, 0.07765, 0.05870, 0.00280, 0.00002,
1385 + 0.00004, 0.00145, 0.00330,
1386 + 0.27701, 0.07150, 0.04999, 0.00258, 0.00014,
1387 + 0.00006, 0.00138, 0.00304,
1388 + 0.25957, 0.06627, 0.04314, 0.00254, 0.00018,
1389 + 0.00009, 0.00127, 0.00258 /
1390 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=8,14)/
1391 + 0.24431, 0.06167, 0.03767, 0.00232, 0.00017,
1392 + 0.00010, 0.00116, 0.00251,
1393 + 0.23086, 0.05769, 0.03322, 0.00211, 0.00020,
1394 + 0.00008, 0.00113, 0.00229,
1395 + 0.21867, 0.05416, 0.02956, 0.00197, 0.00024,
1396 + 0.00007, 0.00107, 0.00206,
1397 + 0.20759, 0.05101, 0.02651, 0.00185, 0.00024,
1398 + 0.00008, 0.00101, 0.00196,
1399 + 0.19761, 0.04823, 0.02390, 0.00176, 0.00024,
1400 + 0.00010, 0.00095, 0.00181,
1401 + 0.18831, 0.04566, 0.02171, 0.00178, 0.00023,
1402 + 0.00012, 0.00086, 0.00165,
1403 + 0.17988, 0.04332, 0.01983, 0.00177, 0.00023,
1404 + 0.00011, 0.00080, 0.00151 /
1405 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=15,19)/
1406 + 0.17222, 0.04122, 0.01820, 0.00169, 0.00023,
1407 + 0.00009, 0.00077, 0.00139,
1408 + 0.16524, 0.03929, 0.01678, 0.00154, 0.00022,
1409 + 0.00010, 0.00075, 0.00136,
1410 + 0.15884, 0.03754, 0.01554, 0.00140, 0.00018,
1411 + 0.00011, 0.00073, 0.00133,
1412 + 0.15284, 0.03591, 0.01445, 0.00131, 0.00018,
1413 + 0.00010, 0.00068, 0.00123,
1414 + 0.14724, 0.03440, 0.01347, 0.00125, 0.00018,
1415 + 0.00010, 0.00064, 0.00115 /
1416 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/
1417 + 0.38293, 0.10184, 0.10666, 0.00263, 0.00001,
1418 + 0.00006, 0.00115, 0.00317,
1419 + 0.34411, 0.08923, 0.08197, 0.00232, 0.00001,
1420 + 0.00002, 0.00120, 0.00296,
1421 + 0.31216, 0.07943, 0.06514, 0.00215, 0.00001,
1422 + 0.00002, 0.00115, 0.00277,
1423 + 0.28619, 0.07153, 0.05305, 0.00202, 0.00006,
1424 + 0.00001, 0.00110, 0.00235,
1425 + 0.26418, 0.06511, 0.04410, 0.00192, 0.00015,
1426 + 0.00004, 0.00103, 0.00199,
1427 + 0.24524, 0.05962, 0.03733, 0.00175, 0.00018,
1428 + 0.00002, 0.00098, 0.00189,
1429 + 0.22900, 0.05505, 0.03204, 0.00153, 0.00015,
1430 + 0.00004, 0.00094, 0.00170 /
1431 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=8,14)/
1432 + 0.21466, 0.05096, 0.02782, 0.00143, 0.00021,
1433 + 0.00007, 0.00088, 0.00151,
1434 + 0.20176, 0.04746, 0.02440, 0.00136, 0.00019,
1435 + 0.00007, 0.00078, 0.00139,
1436 + 0.19018, 0.04441, 0.02161, 0.00136, 0.00016,
1437 + 0.00007, 0.00071, 0.00128,
1438 + 0.17989, 0.04164, 0.01929, 0.00133, 0.00018,
1439 + 0.00006, 0.00070, 0.00117,
1440 + 0.17080, 0.03913, 0.01733, 0.00111, 0.00018,
1441 + 0.00004, 0.00062, 0.00106,
1442 + 0.16229, 0.03697, 0.01569, 0.00115, 0.00019,
1443 + 0.00007, 0.00064, 0.00098,
1444 + 0.15463, 0.03502, 0.01429, 0.00107, 0.00020,
1445 + 0.00010, 0.00063, 0.00096 /
1446 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=15,19)/
1447 + 0.14776, 0.03320, 0.01307, 0.00089, 0.00019,
1448 + 0.00011, 0.00058, 0.00101,
1449 + 0.14137, 0.03155, 0.01202, 0.00085, 0.00018,
1450 + 0.00010, 0.00054, 0.00092,
1451 + 0.13552, 0.03005, 0.01111, 0.00081, 0.00018,
1452 + 0.00008, 0.00049, 0.00081,
1453 + 0.13011, 0.02868, 0.01031, 0.00070, 0.00018,
1454 + 0.00008, 0.00047, 0.00076,
1455 + 0.12509, 0.02742, 0.00960, 0.00063, 0.00018,
1456 + 0.00009, 0.00046, 0.00071 /
1457 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/
1458 + 0.34789, 0.08725, 0.08307, 0.00190, 0.00001,
1459 + 0.00007, 0.00067, 0.00216,
1460 + 0.30996, 0.07585, 0.06310, 0.00152, 0.00001,
1461 + 0.00003, 0.00070, 0.00199,
1462 + 0.27929, 0.06697, 0.04952, 0.00141, 0.00001,
1463 + 0.00007, 0.00073, 0.00188,
1464 + 0.25415, 0.06005, 0.03998, 0.00139, 0.00001,
1465 + 0.00002, 0.00071, 0.00149,
1466 + 0.23318, 0.05422, 0.03302, 0.00118, 0.00002,
1467 + 0.00002, 0.00064, 0.00142,
1468 + 0.21539, 0.04942, 0.02776, 0.00114, 0.00006,
1469 + 0.00001, 0.00061, 0.00129,
1470 + 0.20027, 0.04538, 0.02371, 0.00107, 0.00010,
1471 + 0.00003, 0.00061, 0.00112 /
1472 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=8,14)/
1473 + 0.18663, 0.04195, 0.02047, 0.00109, 0.00010,
1474 + 0.00002, 0.00051, 0.00098,
1475 + 0.17472, 0.03891, 0.01788, 0.00101, 0.00010,
1476 + 0.00001, 0.00046, 0.00087,
1477 + 0.16435, 0.03621, 0.01577, 0.00085, 0.00011,
1478 + 0.00002, 0.00044, 0.00084,
1479 + 0.15506, 0.03385, 0.01402, 0.00073, 0.00012,
1480 + 0.00005, 0.00042, 0.00085,
1481 + 0.14650, 0.03174, 0.01256, 0.00076, 0.00011,
1482 + 0.00005, 0.00042, 0.00076,
1483 + 0.13866, 0.02990, 0.01134, 0.00080, 0.00013,
1484 + 0.00003, 0.00039, 0.00067,
1485 + 0.13179, 0.02822, 0.01029, 0.00073, 0.00014,
1486 + 0.00003, 0.00037, 0.00062 /
1487 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=15,19)/
1488 + 0.12580, 0.02666, 0.00940, 0.00055, 0.00013,
1489 + 0.00005, 0.00035, 0.00061,
1490 + 0.11992, 0.02529, 0.00863, 0.00055, 0.00014,
1491 + 0.00004, 0.00031, 0.00055,
1492 + 0.11452, 0.02405, 0.00795, 0.00057, 0.00013,
1493 + 0.00003, 0.00029, 0.00049,
1494 + 0.10970, 0.02287, 0.00736, 0.00047, 0.00012,
1495 + 0.00003, 0.00027, 0.00049,
1496 + 0.10524, 0.02178, 0.00683, 0.00040, 0.00011,
1497 + 0.00003, 0.00026, 0.00048 /
1498 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/
1499 + 0.31257, 0.07367, 0.06381, 0.00095, 0.00001,
1500 + 0.00001, 0.00037, 0.00153,
1501 + 0.27561, 0.06356, 0.04786, 0.00110, 0.00001,
1502 + 0.00005, 0.00041, 0.00114,
1503 + 0.24679, 0.05572, 0.03721, 0.00089, 0.00001,
1504 + 0.00007, 0.00038, 0.00124,
1505 + 0.22307, 0.04957, 0.02978, 0.00088, 0.00001,
1506 + 0.00002, 0.00044, 0.00105,
1507 + 0.20313, 0.04457, 0.02442, 0.00099, 0.00001,
1508 + 0.00002, 0.00038, 0.00095,
1509 + 0.18690, 0.04044, 0.02040, 0.00090, 0.00000,
1510 + 0.00002, 0.00038, 0.00071,
1511 + 0.17258, 0.03697, 0.01729, 0.00085, 0.00001,
1512 + 0.00001, 0.00034, 0.00070 /
1513 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=8,14)/
1514 + 0.16048, 0.03397, 0.01486, 0.00076, 0.00001,
1515 + 0.00001, 0.00032, 0.00061,
1516 + 0.14961, 0.03135, 0.01291, 0.00077, 0.00004,
1517 + 0.00001, 0.00029, 0.00050,
1518 + 0.14000, 0.02908, 0.01134, 0.00073, 0.00006,
1519 + 0.00001, 0.00027, 0.00047,
1520 + 0.13161, 0.02712, 0.01006, 0.00061, 0.00009,
1521 + 0.00003, 0.00026, 0.00047,
1522 + 0.12412, 0.02538, 0.00898, 0.00054, 0.00007,
1523 + 0.00003, 0.00025, 0.00049,
1524 + 0.11732, 0.02380, 0.00808, 0.00043, 0.00008,
1525 + 0.00004, 0.00024, 0.00047,
1526 + 0.11121, 0.02238, 0.00732, 0.00034, 0.00008,
1527 + 0.00004, 0.00023, 0.00043 /
1528 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=15,19)/
1529 + 0.10567, 0.02111, 0.00666, 0.00030, 0.00010,
1530 + 0.00003, 0.00024, 0.00037,
1531 + 0.10044, 0.01996, 0.00610, 0.00032, 0.00009,
1532 + 0.00003, 0.00023, 0.00035,
1533 + 0.09568, 0.01893, 0.00561, 0.00035, 0.00008,
1534 + 0.00004, 0.00021, 0.00034,
1535 + 0.09135, 0.01796, 0.00518, 0.00030, 0.00008,
1536 + 0.00003, 0.00019, 0.00032,
1537 + 0.08739, 0.01709, 0.00481, 0.00026, 0.00008,
1538 + 0.00002, 0.00018, 0.00031 /
1539 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,7)/
1540 + 0.27775, 0.06166, 0.04845, 0.00067, 0.00001,
1541 + 0.00009, 0.00009, 0.00081,
1542 + 0.24296, 0.05256, 0.03586, 0.00060, 0.00001,
1543 + 0.00005, 0.00021, 0.00081,
1544 + 0.21511, 0.04590, 0.02751, 0.00096, 0.00001,
1545 + 0.00005, 0.00022, 0.00046,
1546 + 0.19303, 0.04040, 0.02185, 0.00076, 0.00001,
1547 + 0.00004, 0.00021, 0.00061,
1548 + 0.17528, 0.03607, 0.01775, 0.00061, 0.00001,
1549 + 0.00006, 0.00022, 0.00047,
1550 + 0.16027, 0.03255, 0.01472, 0.00041, 0.00001,
1551 + 0.00006, 0.00019, 0.00049,
1552 + 0.14731, 0.02958, 0.01241, 0.00048, 0.00002,
1553 + 0.00004, 0.00021, 0.00046 /
1554 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=8,14)/
1555 + 0.13615, 0.02708, 0.01061, 0.00048, 0.00004,
1556 + 0.00001, 0.00021, 0.00038,
1557 + 0.12661, 0.02490, 0.00917, 0.00037, 0.00008,
1558 + 0.00003, 0.00020, 0.00032,
1559 + 0.11801, 0.02302, 0.00802, 0.00033, 0.00007,
1560 + 0.00003, 0.00019, 0.00033,
1561 + 0.11030, 0.02138, 0.00708, 0.00034, 0.00005,
1562 + 0.00002, 0.00018, 0.00033,
1563 + 0.10374, 0.01990, 0.00630, 0.00030, 0.00007,
1564 + 0.00003, 0.00018, 0.00028,
1565 + 0.09766, 0.01862, 0.00566, 0.00028, 0.00008,
1566 + 0.00004, 0.00019, 0.00026,
1567 + 0.09221, 0.01746, 0.00511, 0.00024, 0.00008,
1568 + 0.00004, 0.00017, 0.00027 /
1569 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=15,19)/
1570 + 0.08731, 0.01641, 0.00464, 0.00018, 0.00006,
1571 + 0.00003, 0.00014, 0.00030,
1572 + 0.08286, 0.01548, 0.00424, 0.00016, 0.00004,
1573 + 0.00003, 0.00014, 0.00027,
1574 + 0.07880, 0.01464, 0.00389, 0.00014, 0.00004,
1575 + 0.00003, 0.00014, 0.00024,
1576 + 0.07499, 0.01385, 0.00359, 0.00018, 0.00006,
1577 + 0.00003, 0.00013, 0.00019,
1578 + 0.07153, 0.01313, 0.00332, 0.00018, 0.00006,
1579 + 0.00003, 0.00013, 0.00017 /
1580 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,7)/
1581 + 0.24363, 0.05050, 0.03616, 0.00020, 0.00001,
1582 + 0.00001, 0.00011, 0.00064,
1583 + 0.21020, 0.04275, 0.02638, 0.00058, 0.00001,
1584 + 0.00007, 0.00010, 0.00043,
1585 + 0.18553, 0.03685, 0.02003, 0.00022, 0.00001,
1586 + 0.00004, 0.00016, 0.00041,
1587 + 0.16530, 0.03234, 0.01573, 0.00027, 0.00001,
1588 + 0.00005, 0.00015, 0.00030,
1589 + 0.14900, 0.02868, 0.01268, 0.00015, 0.00002,
1590 + 0.00002, 0.00018, 0.00034,
1591 + 0.13511, 0.02575, 0.01044, 0.00024, 0.00003,
1592 + 0.00000, 0.00020, 0.00037,
1593 + 0.12373, 0.02328, 0.00875, 0.00017, 0.00006,
1594 + 0.00000, 0.00018, 0.00033 /
1595 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=8,14)/
1596 + 0.11392, 0.02119, 0.00744, 0.00015, 0.00005,
1597 + 0.00001, 0.00014, 0.00028,
1598 + 0.10533, 0.01941, 0.00641, 0.00011, 0.00007,
1599 + 0.00001, 0.00013, 0.00026,
1600 + 0.09784, 0.01787, 0.00558, 0.00009, 0.00008,
1601 + 0.00002, 0.00013, 0.00024,
1602 + 0.09122, 0.01652, 0.00490, 0.00012, 0.00006,
1603 + 0.00003, 0.00013, 0.00019,
1604 + 0.08522, 0.01534, 0.00436, 0.00017, 0.00007,
1605 + 0.00003, 0.00010, 0.00018,
1606 + 0.08008, 0.01427, 0.00390, 0.00009, 0.00006,
1607 + 0.00002, 0.00011, 0.00014,
1608 + 0.07542, 0.01334, 0.00351, 0.00004, 0.00005,
1609 + 0.00002, 0.00013, 0.00011 /
1610 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=15,19)/
1611 + 0.07115, 0.01252, 0.00318, 0.00007, 0.00005,
1612 + 0.00002, 0.00011, 0.00009,
1613 + 0.06725, 0.01177, 0.00290, 0.00008, 0.00007,
1614 + 0.00003, 0.00010, 0.00009,
1615 + 0.06373, 0.01110, 0.00266, 0.00007, 0.00007,
1616 + 0.00003, 0.00009, 0.00009,
1617 + 0.06059, 0.01048, 0.00244, 0.00001, 0.00005,
1618 + 0.00002, 0.00007, 0.00010,
1619 + 0.05769, 0.00993, 0.00226, 0.00001, 0.00005,
1620 + 0.00002, 0.00006, 0.00010 /
1621 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/
1622 + 0.21093, 0.04119, 0.02669, 0.00049, 0.00001,
1623 + 0.00011, 0.00001, 0.00028,
1624 + 0.18109, 0.03447, 0.01920, 0.00024, 0.00001,
1625 + 0.00008, 0.00003, 0.00026,
1626 + 0.15780, 0.02952, 0.01443, 0.00030, 0.00001,
1627 + 0.00005, 0.00002, 0.00028,
1628 + 0.13985, 0.02566, 0.01124, 0.00017, 0.00001,
1629 + 0.00005, 0.00004, 0.00025,
1630 + 0.12514, 0.02263, 0.00900, 0.00013, 0.00001,
1631 + 0.00004, 0.00007, 0.00022,
1632 + 0.11301, 0.02021, 0.00737, 0.00018, 0.00002,
1633 + 0.00003, 0.00008, 0.00016,
1634 + 0.10282, 0.01816, 0.00615, 0.00018, 0.00001,
1635 + 0.00003, 0.00007, 0.00011 /
1636 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=8,14)/
1637 + 0.09406, 0.01649, 0.00520, 0.00014, 0.00003,
1638 + 0.00001, 0.00007, 0.00012,
1639 + 0.08661, 0.01503, 0.00446, 0.00016, 0.00002,
1640 + 0.00000, 0.00007, 0.00012,
1641 + 0.08018, 0.01376, 0.00387, 0.00012, 0.00001,
1642 + 0.00000, 0.00008, 0.00011,
1643 + 0.07454, 0.01268, 0.00340, 0.00004, 0.00002,
1644 + 0.00000, 0.00008, 0.00011,
1645 + 0.06950, 0.01174, 0.00301, 0.00002, 0.00005,
1646 + 0.00001, 0.00010, 0.00012,
1647 + 0.06499, 0.01090, 0.00268, 0.00004, 0.00003,
1648 + 0.00001, 0.00007, 0.00012,
1649 + 0.06096, 0.01015, 0.00241, 0.00005, 0.00003,
1650 + 0.00001, 0.00006, 0.00010 /
1651 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=15,19)/
1652 + 0.05734, 0.00950, 0.00218, 0.00003, 0.00002,
1653 + 0.00001, 0.00006, 0.00009,
1654 + 0.05405, 0.00891, 0.00198, 0.00004, 0.00002,
1655 + 0.00000, 0.00006, 0.00009,
1656 + 0.05108, 0.00837, 0.00181, 0.00006, 0.00004,
1657 + 0.00000, 0.00006, 0.00008,
1658 + 0.04833, 0.00789, 0.00167, 0.00010, 0.00004,
1659 + 0.00001, 0.00006, 0.00007,
1660 + 0.04585, 0.00745, 0.00154, 0.00011, 0.00004,
1661 + 0.00002, 0.00006, 0.00005 /
1662 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,7)/
1663 + 0.17976, 0.03267, 0.01921, 0.00012, 0.00001,
1664 + 0.00003, 0.00001, 0.00023,
1665 + 0.15272, 0.02717, 0.01370, 0.00019, 0.00001,
1666 + 0.00004, 0.00001, 0.00017,
1667 + 0.13247, 0.02309, 0.01022, 0.00007, 0.00001,
1668 + 0.00005, 0.00001, 0.00011,
1669 + 0.11623, 0.01999, 0.00790, 0.00019, 0.00001,
1670 + 0.00002, 0.00002, 0.00011,
1671 + 0.10335, 0.01755, 0.00627, 0.00019, 0.00001,
1672 + 0.00002, 0.00003, 0.00004,
1673 + 0.09286, 0.01558, 0.00510, 0.00018, 0.00001,
1674 + 0.00001, 0.00002, 0.00008,
1675 + 0.08418, 0.01395, 0.00423, 0.00012, 0.00001,
1676 + 0.00002, 0.00002, 0.00005 /
1677 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=8,14)/
1678 + 0.07671, 0.01259, 0.00357, 0.00011, 0.00001,
1679 + 0.00000, 0.00004, 0.00008,
1680 + 0.07036, 0.01144, 0.00305, 0.00006, 0.00002,
1681 + 0.00000, 0.00004, 0.00009,
1682 + 0.06481, 0.01046, 0.00264, 0.00004, 0.00001,
1683 + 0.00001, 0.00003, 0.00008,
1684 + 0.05991, 0.00961, 0.00231, 0.00007, 0.00001,
1685 + 0.00001, 0.00002, 0.00007,
1686 + 0.05566, 0.00886, 0.00204, 0.00006, 0.00001,
1687 + 0.00001, 0.00000, 0.00006,
1688 + 0.05191, 0.00820, 0.00181, 0.00004, 0.00001,
1689 + 0.00000, 0.00001, 0.00007,
1690 + 0.04854, 0.00762, 0.00162, 0.00004, 0.00001,
1691 + 0.00000, 0.00002, 0.00009 /
1692 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=15,19)/
1693 + 0.04550, 0.00711, 0.00147, 0.00007, 0.00001,
1694 + 0.00001, 0.00002, 0.00006,
1695 + 0.04279, 0.00663, 0.00133, 0.00005, 0.00001,
1696 + 0.00000, 0.00001, 0.00006,
1697 + 0.04035, 0.00622, 0.00122, 0.00004, 0.00001,
1698 + 0.00001, 0.00001, 0.00006,
1699 + 0.03814, 0.00585, 0.00111, 0.00002, 0.00001,
1700 + 0.00001, 0.00001, 0.00005,
1701 + 0.03613, 0.00552, 0.00103, 0.00002, 0.00001,
1702 + 0.00001, 0.00001, 0.00005 /
1703 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,7)/
1704 + 0.12416, 0.01946, 0.00935, 0.00003, 0.00001,
1705 + 0.00000, 0.00001, 0.00001,
1706 + 0.10312, 0.01588, 0.00647, 0.00011, 0.00001,
1707 + 0.00002, 0.00001, 0.00000,
1708 + 0.08767, 0.01326, 0.00471, 0.00010, 0.00001,
1709 + 0.00001, 0.00002, 0.00001,
1710 + 0.07588, 0.01130, 0.00357, 0.00004, 0.00001,
1711 + 0.00001, 0.00001, 0.00001,
1712 + 0.06658, 0.00977, 0.00279, 0.00002, 0.00001,
1713 + 0.00001, 0.00000, 0.00002,
1714 + 0.05909, 0.00857, 0.00224, 0.00001, 0.00001,
1715 + 0.00000, 0.00002, 0.00001,
1716 + 0.05290, 0.00759, 0.00184, 0.00002, 0.00002,
1717 + 0.00000, 0.00002, 0.00001 /
1718 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=8,14)/
1719 + 0.04770, 0.00678, 0.00153, 0.00001, 0.00001,
1720 + 0.00000, 0.00002, 0.00001,
1721 + 0.04328, 0.00610, 0.00130, 0.00000, 0.00001,
1722 + 0.00000, 0.00001, 0.00004,
1723 + 0.03950, 0.00552, 0.00111, 0.00001, 0.00001,
1724 + 0.00000, 0.00001, 0.00004,
1725 + 0.03624, 0.00502, 0.00097, 0.00003, 0.00001,
1726 + 0.00000, 0.00001, 0.00001,
1727 + 0.03342, 0.00460, 0.00085, 0.00001, 0.00001,
1728 + 0.00000, 0.00002, 0.00001,
1729 + 0.03088, 0.00422, 0.00075, 0.00003, 0.00001,
1730 + 0.00000, 0.00001, 0.00001,
1731 + 0.02866, 0.00391, 0.00067, 0.00003, 0.00001,
1732 + 0.00000, 0.00001, 0.00001 /
1733 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=15,19)/
1734 + 0.02672, 0.00362, 0.00060, 0.00001, 0.00001,
1735 + 0.00000, 0.00001, 0.00001,
1736 + 0.02497, 0.00335, 0.00054, 0.00001, 0.00001,
1737 + 0.00000, 0.00001, 0.00001,
1738 + 0.02340, 0.00313, 0.00049, 0.00001, 0.00001,
1739 + 0.00000, 0.00001, 0.00001,
1740 + 0.02197, 0.00292, 0.00045, 0.00001, 0.00001,
1741 + 0.00000, 0.00001, 0.00001,
1742 + 0.02067, 0.00274, 0.00041, 0.00001, 0.00001,
1743 + 0.00001, 0.00001, 0.00001 /
1744 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,7)/
1745 + 0.07915, 0.01062, 0.00410, 0.00005, 0.00001,
1746 + 0.00002, 0.00001, 0.00001,
1747 + 0.06445, 0.00847, 0.00275, 0.00002, 0.00001,
1748 + 0.00000, 0.00001, 0.00001,
1749 + 0.05365, 0.00694, 0.00196, 0.00003, 0.00001,
1750 + 0.00001, 0.00001, 0.00001,
1751 + 0.04567, 0.00582, 0.00145, 0.00001, 0.00001,
1752 + 0.00001, 0.00001, 0.00003,
1753 + 0.03941, 0.00496, 0.00112, 0.00001, 0.00001,
1754 + 0.00000, 0.00001, 0.00001,
1755 + 0.03453, 0.00429, 0.00088, 0.00001, 0.00001,
1756 + 0.00001, 0.00001, 0.00001,
1757 + 0.03052, 0.00376, 0.00072, 0.00001, 0.00001,
1758 + 0.00000, 0.00001, 0.00001 /
1759 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=8,14)/
1760 + 0.02719, 0.00332, 0.00059, 0.00001, 0.00001,
1761 + 0.00000, 0.00001, 0.00001,
1762 + 0.02444, 0.00295, 0.00050, 0.00001, 0.00001,
1763 + 0.00000, 0.00001, 0.00001,
1764 + 0.02208, 0.00265, 0.00042, 0.00001, 0.00001,
1765 + 0.00000, 0.00001, 0.00001,
1766 + 0.02005, 0.00239, 0.00036, 0.00001, 0.00001,
1767 + 0.00000, 0.00001, 0.00001,
1768 + 0.01832, 0.00216, 0.00032, 0.00001, 0.00001,
1769 + 0.00000, 0.00001, 0.00001,
1770 + 0.01680, 0.00198, 0.00028, 0.00001, 0.00001,
1771 + 0.00000, 0.00001, 0.00001,
1772 + 0.01548, 0.00181, 0.00025, 0.00001, 0.00001,
1773 + 0.00000, 0.00001, 0.00001 /
1774 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=15,19)/
1775 + 0.01432, 0.00166, 0.00022, 0.00001, 0.00001,
1776 + 0.00000, 0.00001, 0.00001,
1777 + 0.01329, 0.00154, 0.00020, 0.00001, 0.00001,
1778 + 0.00000, 0.00001, 0.00001,
1779 + 0.01237, 0.00142, 0.00018, 0.00001, 0.00001,
1780 + 0.00000, 0.00001, 0.00001,
1781 + 0.01154, 0.00132, 0.00017, 0.00001, 0.00001,
1782 + 0.00000, 0.00001, 0.00001,
1783 + 0.01079, 0.00123, 0.00015, 0.00001, 0.00001,
1784 + 0.00000, 0.00001, 0.00001 /
1785 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,7)/
1786 + 0.04508, 0.00507, 0.00154, 0.00001, 0.00001,
1787 + 0.00000, 0.00001, 0.00001,
1788 + 0.03580, 0.00395, 0.00100, 0.00001, 0.00001,
1789 + 0.00001, 0.00001, 0.00001,
1790 + 0.02927, 0.00318, 0.00070, 0.00001, 0.00001,
1791 + 0.00000, 0.00001, 0.00001,
1792 + 0.02440, 0.00262, 0.00051, 0.00001, 0.00001,
1793 + 0.00000, 0.00001, 0.00001,
1794 + 0.02071, 0.00220, 0.00038, 0.00002, 0.00001,
1795 + 0.00000, 0.00001, 0.00002,
1796 + 0.01785, 0.00187, 0.00030, 0.00002, 0.00001,
1797 + 0.00000, 0.00001, 0.00001,
1798 + 0.01558, 0.00161, 0.00024, 0.00001, 0.00001,
1799 + 0.00000, 0.00001, 0.00001 /
1800 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=8,14)/
1801 + 0.01372, 0.00140, 0.00020, 0.00001, 0.00001,
1802 + 0.00000, 0.00001, 0.00001,
1803 + 0.01218, 0.00124, 0.00016, 0.00001, 0.00001,
1804 + 0.00000, 0.00001, 0.00001,
1805 + 0.01088, 0.00110, 0.00014, 0.00001, 0.00001,
1806 + 0.00000, 0.00001, 0.00001,
1807 + 0.00979, 0.00099, 0.00012, 0.00001, 0.00001,
1808 + 0.00000, 0.00001, 0.00001,
1809 + 0.00884, 0.00089, 0.00010, 0.00001, 0.00001,
1810 + 0.00000, 0.00001, 0.00001,
1811 + 0.00806, 0.00080, 0.00009, 0.00001, 0.00001,
1812 + 0.00000, 0.00001, 0.00001,
1813 + 0.00737, 0.00072, 0.00008, 0.00001, 0.00001,
1814 + 0.00000, 0.00001, 0.00001 /
1815 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=15,19)/
1816 + 0.00675, 0.00067, 0.00007, 0.00001, 0.00001,
1817 + 0.00000, 0.00001, 0.00001,
1818 + 0.00622, 0.00060, 0.00006, 0.00001, 0.00001,
1819 + 0.00000, 0.00001, 0.00001,
1820 + 0.00574, 0.00056, 0.00006, 0.00001, 0.00001,
1821 + 0.00000, 0.00001, 0.00001,
1822 + 0.00531, 0.00051, 0.00005, 0.00001, 0.00001,
1823 + 0.00000, 0.00001, 0.00001,
1824 + 0.00494, 0.00047, 0.00005, 0.00001, 0.00001,
1825 + 0.00000, 0.00001, 0.00001 /
1826 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,7)/
1827 + 0.02188, 0.00201, 0.00046, 0.00001, 0.00001,
1828 + 0.00000, 0.00001, 0.00001,
1829 + 0.01684, 0.00152, 0.00029, 0.00001, 0.00001,
1830 + 0.00000, 0.00001, 0.00001,
1831 + 0.01339, 0.00119, 0.00020, 0.00002, 0.00001,
1832 + 0.00000, 0.00001, 0.00001,
1833 + 0.01094, 0.00098, 0.00014, 0.00001, 0.00001,
1834 + 0.00000, 0.00001, 0.00001,
1835 + 0.00910, 0.00079, 0.00010, 0.00001, 0.00001,
1836 + 0.00000, 0.00001, 0.00001,
1837 + 0.00770, 0.00065, 0.00008, 0.00001, 0.00001,
1838 + 0.00000, 0.00001, 0.00001,
1839 + 0.00660, 0.00057, 0.00006, 0.00001, 0.00001,
1840 + 0.00000, 0.00001, 0.00001 /
1841 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=8,14)/
1842 + 0.00572, 0.00049, 0.00005, 0.00001, 0.00001,
1843 + 0.00000, 0.00001, 0.00001,
1844 + 0.00500, 0.00042, 0.00004, 0.00001, 0.00001,
1845 + 0.00000, 0.00001, 0.00001,
1846 + 0.00441, 0.00036, 0.00004, 0.00001, 0.00001,
1847 + 0.00000, 0.00001, 0.00001,
1848 + 0.00393, 0.00031, 0.00003, 0.00001, 0.00001,
1849 + 0.00000, 0.00001, 0.00001,
1850 + 0.00351, 0.00028, 0.00003, 0.00001, 0.00001,
1851 + 0.00000, 0.00001, 0.00001,
1852 + 0.00316, 0.00025, 0.00002, 0.00001, 0.00001,
1853 + 0.00000, 0.00001, 0.00001,
1854 + 0.00285, 0.00022, 0.00002, 0.00001, 0.00001,
1855 + 0.00000, 0.00001, 0.00001 /
1856 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=15,19)/
1857 + 0.00260, 0.00019, 0.00002, 0.00001, 0.00001,
1858 + 0.00000, 0.00001, 0.00001,
1859 + 0.00237, 0.00018, 0.00002, 0.00001, 0.00001,
1860 + 0.00000, 0.00001, 0.00001,
1861 + 0.00217, 0.00017, 0.00002, 0.00001, 0.00001,
1862 + 0.00000, 0.00001, 0.00001,
1863 + 0.00199, 0.00015, 0.00001, 0.00001, 0.00001,
1864 + 0.00000, 0.00001, 0.00001,
1865 + 0.00184, 0.00014, 0.00001, 0.00001, 0.00001,
1866 + 0.00000, 0.00001, 0.00001 /
1867 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,7)/
1868 + 0.00198, 0.00011, 0.00001, 0.00001, 0.00001,
1869 + 0.00000, 0.00001, 0.00001,
1870 + 0.00141, 0.00008, 0.00001, 0.00001, 0.00001,
1871 + 0.00000, 0.00001, 0.00001,
1872 + 0.00106, 0.00006, 0.00001, 0.00001, 0.00001,
1873 + 0.00000, 0.00001, 0.00001,
1874 + 0.00080, 0.00004, 0.00000, 0.00001, 0.00001,
1875 + 0.00000, 0.00001, 0.00001,
1876 + 0.00063, 0.00004, 0.00000, 0.00000, 0.00000,
1877 + 0.00000, 0.00000, 0.00000,
1878 + 0.00051, 0.00003, 0.00000, 0.00000, 0.00000,
1879 + 0.00000, 0.00000, 0.00000,
1880 + 0.00042, 0.00002, 0.00000, 0.00000, 0.00000,
1881 + 0.00000, 0.00000, 0.00000 /
1882 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=8,14)/
1883 + 0.00035, 0.00002, 0.00000, 0.00000, 0.00000,
1884 + 0.00000, 0.00000, 0.00000,
1885 + 0.00030, 0.00002, 0.00000, 0.00000, 0.00000,
1886 + 0.00000, 0.00000, 0.00000,
1887 + 0.00026, 0.00002, 0.00000, 0.00000, 0.00000,
1888 + 0.00000, 0.00000, 0.00000,
1889 + 0.00022, 0.00002, 0.00000, 0.00000, 0.00000,
1890 + 0.00000, 0.00000, 0.00000,
1891 + 0.00019, 0.00002, 0.00000, 0.00000, 0.00000,
1892 + 0.00000, 0.00000, 0.00000,
1893 + 0.00016, 0.00002, 0.00000, 0.00000, 0.00000,
1894 + 0.00000, 0.00000, 0.00000,
1895 + 0.00015, 0.00001, 0.00000, 0.00000, 0.00000,
1896 + 0.00000, 0.00000, 0.00000 /
1897 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=15,19)/
1898 + 0.00013, 0.00001, 0.00000, 0.00000, 0.00000,
1899 + 0.00000, 0.00000, 0.00000,
1900 + 0.00012, 0.00001, 0.00000, 0.00000, 0.00000,
1901 + 0.00000, 0.00000, 0.00000,
1902 + 0.00010, 0.00001, 0.00000, 0.00000, 0.00000,
1903 + 0.00000, 0.00000, 0.00000,
1904 + 0.00009, 0.00001, 0.00000, 0.00000, 0.00000,
1905 + 0.00000, 0.00000, 0.00000,
1906 + 0.00008, 0.00001, 0.00000, 0.00000, 0.00000,
1907 + 0.00000, 0.00000, 0.00000 /
1908 DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5,
1909 . 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4,
1910 . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3,
1911 . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2,
1912 . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0,
1913 . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0,
1914 . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0,
1915 . .8D0,.9D0,1.D0/
1916 DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/
1917 DATA N0/2,5,5,10,0,0,10,10/
1918 DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
1919 DATA INIT/0/
1920
1921
1922 XSAVE=X
1923
1924 IF(INIT.NE.0) GOTO 10
1925 INIT=1
1926 DO 20 N=1,NX-1
1927 DO 20 M=1,19
1928C READ(53,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(7,N,M),
1929C . F(6,N,M),F(8,N,M)
1930C 1=UV 2=DV 3=GLUE 4=UBAR 5=CBAR 7=BBAR 6=SBAR 8=DBAR
1931 DO 25 I=1,8
1932 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I)
1933 20 CONTINUE
1934 DO 31 J=1,NTENTH-1
1935 XX(J)= LOG10(XX(J))+ONEDO
1936 DO 31 I=1,8
1937 IF(I.EQ.7) GO TO 31
1938 DO 30 K=1,19
1939 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K))
1940 31 CONTINUE
1941 50 FORMAT(8F10.5)
1942 DO 40 I=1,8
1943 DO 40 M=1,19
1944 40 F(I,NX,M)=ZEROD
1945 10 CONTINUE
1946 IF(X.LT.XMIN) X=XMIN
1947 IF(X.GT.XMAX) X=XMAX
1948 QSQ=SCALE**2
1949 IF(QSQ.LT.QSQMIN) QSQ=QSQMIN
1950 IF(QSQ.GT.QSQMAX) QSQ=QSQMAX
1951 XXX=X
1952 IF(X.LT.PONED) XXX= LOG10(X)+ONEDO
1953 N=0
1954 70 N=N+1
1955 IF(XXX.GT.XX(N+1)) GOTO 70
1956 A=(XXX-XX(N))/(XX(N+1)-XX(N))
1957 RM= LOG(QSQ/QSQMIN)/ LOG(TWOD)
1958 B=RM-AINT(RM)
1959 M=1+ INT(RM)
1960 DO 60 I=1,8
1961 G(I)=ZEROD
1962 IF(XXX.GE.ONED) GOTO 60
1963 G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1)
1964 . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1)
1965 IF(N.GE.NTENTH) GOTO 65
1966 IF(I.EQ.7) GOTO 65
1967 FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1)
1968 G(I)=FAC**(G(I)/FAC)
1969 65 CONTINUE
1970 G(I)=G(I)*(ONED-X)**N0(I)
1971 60 CONTINUE
1972 UPV=G(1)
1973 DNV=G(2)
1974 USEA=G(4)
1975 DSEA=G(8)
1976 STR=G(6)
1977 CHM=G(5)
1978 GLU=G(3)
1979 BOT=G(7)
1980
1981 X=XSAVE
1982
1983 RETURN
1984 END