]> git.uio.no Git - u/mrichter/AliRoot.git/blame - PDF/spdf/sfmsbd0.F
git://git.uio.no / u / mrichter / AliRoot.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Mostly minor style modifications to be ready for cloning with EMCAL
[u/mrichter/AliRoot.git] / PDF / spdf / sfmsbd0.F
CommitLineData
21886bb6 1*
2* $Id$
3*
4* $Log$
5* Revision 1.1.1.2 1996/10/30 08:30:18 cernlib
6* Version 7.04
7*
8* Revision 1.1.1.1 1996/04/12 15:29:42 plothow
9* Version 7.01
10*
11*
12#include "pdf/pilot.h"
13 SUBROUTINE SFMSBD0(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)
16
17#include "pdf/impdp.inc"
18 PARAMETER(NX=47)
19 PARAMETER(NTENTH=21)
20 DIMENSION F(8,NX,20),G(8),XX(NX),N0(8)
21 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,7)/
22 + 0.00820, 0.00305, 4.30034, 0.45159, 0.04557,
23 + 0.00000, 0.25246, 0.45682,
24 + 0.00874, 0.00321, 11.00467, 0.62975, 0.22381,
25 + 0.00000, 0.43083, 0.63503,
26 + 0.00924, 0.00337, 19.93318, 0.86387, 0.45800,
27 + 0.00000, 0.66515, 0.86919,
28 + 0.00970, 0.00352, 30.63055, 1.14801, 0.74220,
29 + 0.00000, 0.94947, 1.15338,
30 + 0.01012, 0.00367, 43.07445, 1.47932, 1.07358,
31 + 0.07132, 1.28095, 1.48474,
32 + 0.01052, 0.00380, 57.04886, 1.85438, 1.44870,
33 + 0.40646, 1.65617, 1.85983,
34 + 0.01090, 0.00394, 72.39754, 2.27129, 1.86567,
35 + 0.83916, 2.07324, 2.27679 /
36 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=8,14)/
37 + 0.01126, 0.00407, 88.96280, 2.72696, 2.32140,
38 + 1.30378, 2.52905, 2.73249,
39 + 0.01161, 0.00420, 106.60825, 3.21829, 2.81279,
40 + 1.80435, 3.02052, 3.22386,
41 + 0.01194, 0.00433, 125.23030, 3.74290, 3.33746,
42 + 2.33731, 3.54527, 3.74851,
43 + 0.01226, 0.00445, 144.75316, 4.29899, 3.89361,
44 + 2.90128, 4.10149, 4.30463,
45 + 0.01257, 0.00457, 165.02708, 4.88328, 4.47796,
46 + 3.49297, 4.68590, 4.88897,
47 + 0.01287, 0.00468, 185.74925, 5.48867, 5.08341,
48 + 4.10534, 5.29142, 5.49439,
49 + 0.01316, 0.00480, 207.19238, 6.12070, 5.71550,
50 + 4.74396, 5.92357, 6.12646 /
51 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=15,19)/
52 + 0.01345, 0.00491, 229.19391, 6.77573, 6.37060,
53 + 5.40525, 6.57872, 6.78154,
54 + 0.01372, 0.00502, 251.37769, 7.44504, 7.03997,
55 + 6.08051, 7.24814, 7.45088,
56 + 0.01399, 0.00513, 274.24219, 8.13973, 7.73473,
57 + 6.78087, 7.94296, 8.14562,
58 + 0.01425, 0.00523, 297.05859, 8.84242, 8.43748,
59 + 7.48899, 8.64576, 8.84840,
60 + 0.01450, 0.00534, 320.44653, 9.56751, 9.16264,
61 + 8.21925, 9.37096, 9.57351 /
62 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/
63 + 0.01112, 0.00413, 4.16478, 0.44450, 0.04167,
64 + 0.00000, 0.24582, 0.44874,
65 + 0.01184, 0.00438, 10.00315, 0.60301, 0.20054,
66 + 0.00000, 0.40463, 0.60732,
67 + 0.01250, 0.00461, 17.46046, 0.80490, 0.40275,
68 + 0.00000, 0.60679, 0.80927,
69 + 0.01310, 0.00483, 26.12637, 1.04382, 0.64197,
70 + 0.00000, 0.84596, 1.04825,
71 + 0.01366, 0.00504, 35.96332, 1.31660, 0.91503,
72 + 0.05844, 1.11897, 1.32107,
73 + 0.01419, 0.00524, 46.78426, 1.61989, 1.21858,
74 + 0.32996, 1.42249, 1.62442,
75 + 0.01469, 0.00544, 58.45796, 1.95180, 1.55074,
76 + 0.67577, 1.75460, 1.95637 /
77 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=8,14)/
78 + 0.01517, 0.00563, 70.85809, 2.30957, 1.90874,
79 + 1.04175, 2.11257, 2.31418,
80 + 0.01563, 0.00581, 83.87959, 2.69056, 2.28996,
81 + 1.43112, 2.49375, 2.69523,
82 + 0.01607, 0.00599, 97.44550, 3.09280, 2.69241,
83 + 1.84095, 2.89616, 3.09750,
84 + 0.01649, 0.00616, 111.50073, 3.51478, 3.11461,
85 + 2.27012, 3.31833, 3.51952,
86 + 0.01689, 0.00633, 125.93799, 3.95397, 3.55401,
87 + 2.71604, 3.75769, 3.95876,
88 + 0.01729, 0.00649, 140.54076, 4.40504, 4.00527,
89 + 3.17347, 4.20891, 4.40987,
90 + 0.01767, 0.00665, 155.51311, 4.87211, 4.47255,
91 + 3.64656, 4.67615, 4.87699 /
92 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=15,19)/
93 + 0.01804, 0.00681, 170.74074, 5.35252, 4.95314,
94 + 4.13266, 5.15671, 5.35743,
95 + 0.01840, 0.00696, 185.96053, 5.83980, 5.44061,
96 + 4.62538, 5.64414, 5.84475,
97 + 0.01874, 0.00711, 201.53259, 6.34221, 5.94321,
98 + 5.13296, 6.14670, 6.34720,
99 + 0.01908, 0.00726, 216.94594, 6.84709, 6.44827,
100 + 5.64278, 6.65172, 6.85212,
101 + 0.01941, 0.00740, 232.64294, 7.36496, 6.96631,
102 + 6.16538, 7.16973, 7.37004 /
103 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/
104 + 0.01507, 0.00561, 4.03320, 0.43694, 0.03787,
105 + 0.00000, 0.23922, 0.44054,
106 + 0.01603, 0.00597, 9.09126, 0.57700, 0.17859,
107 + 0.00000, 0.37969, 0.58069,
108 + 0.01690, 0.00631, 15.29068, 0.74990, 0.35210,
109 + 0.00000, 0.55297, 0.75367,
110 + 0.01770, 0.00663, 22.27757, 0.94947, 0.55222,
111 + 0.00000, 0.75288, 0.95332,
112 + 0.01844, 0.00694, 30.01537, 1.17262, 0.77587,
113 + 0.04761, 0.97634, 1.17654,
114 + 0.01914, 0.00723, 38.35127, 1.41634, 1.02008,
115 + 0.26639, 1.22036, 1.42033,
116 + 0.01980, 0.00751, 47.18178, 1.67895, 1.28314,
117 + 0.54128, 1.48325, 1.68301 /
118 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=8,14)/
119 + 0.02043, 0.00777, 56.41171, 1.95814, 1.56275,
120 + 0.82802, 1.76270, 1.96225,
121 + 0.02103, 0.00803, 65.96436, 2.25180, 1.85682,
122 + 1.12931, 2.05661, 2.25597,
123 + 0.02161, 0.00828, 75.78619, 2.55834, 2.16375,
124 + 1.44280, 2.36339, 2.56256,
125 + 0.02216, 0.00853, 85.84114, 2.87664, 2.48243,
126 + 1.76766, 2.68192, 2.88091,
127 + 0.02269, 0.00876, 96.05449, 3.20477, 2.81093,
128 + 2.10195, 3.01028, 3.20910,
129 + 0.02321, 0.00899, 106.27458, 3.53881, 3.14532,
130 + 2.44181, 3.34454, 3.54320,
131 + 0.02371, 0.00922, 116.65524, 3.88188, 3.48873,
132 + 2.79038, 3.68781, 3.88631 /
133 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=15,19)/
134 + 0.02419, 0.00943, 127.11835, 4.23204, 3.83923,
135 + 3.14577, 4.03818, 4.23652,
136 + 0.02466, 0.00965, 137.48166, 4.58461, 4.19212,
137 + 3.50332, 4.39095, 4.58914,
138 + 0.02511, 0.00986, 148.00665, 4.94570, 4.55352,
139 + 3.86915, 4.75223, 4.95028,
140 + 0.02555, 0.01006, 158.33673, 5.30615, 4.91428,
141 + 4.23413, 5.11286, 5.31077,
142 + 0.02598, 0.01026, 168.78696, 5.67369, 5.28212,
143 + 4.60601, 5.48059, 5.67836 /
144 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/
145 + 0.01800, 0.00671, 3.95792, 0.43222, 0.03569,
146 + 0.00000, 0.23537, 0.43564,
147 + 0.01913, 0.00716, 8.59567, 0.56200, 0.16634,
148 + 0.00000, 0.36564, 0.56553,
149 + 0.02016, 0.00759, 14.14575, 0.71932, 0.32444,
150 + 0.00000, 0.52341, 0.72296,
151 + 0.02110, 0.00799, 20.28943, 0.89830, 0.50413,
152 + 0.00000, 0.70280, 0.90203,
153 + 0.02198, 0.00837, 26.99515, 1.09601, 0.70250,
154 + 0.04210, 0.90088, 1.09983,
155 + 0.02280, 0.00872, 34.13046, 1.30974, 0.91685,
156 + 0.23435, 1.11496, 1.31364,
157 + 0.02358, 0.00907, 41.60805, 1.53796, 1.14564,
158 + 0.47401, 1.34351, 1.54193 /
159 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=8,14)/
160 + 0.02431, 0.00940, 49.34917, 1.77864, 1.38687,
161 + 0.72190, 1.58450, 1.78269,
162 + 0.02502, 0.00971, 57.29214, 2.02996, 1.63872,
163 + 0.98047, 1.83612, 2.03408,
164 + 0.02569, 0.01002, 65.39511, 2.29060, 1.89986,
165 + 1.24772, 2.09704, 2.29478,
166 + 0.02634, 0.01032, 73.63124, 2.55959, 2.16934,
167 + 1.52295, 2.36631, 2.56384,
168 + 0.02697, 0.01061, 81.94168, 2.83535, 2.44557,
169 + 1.80457, 2.64234, 2.83966,
170 + 0.02757, 0.01089, 90.20387, 3.11462, 2.72529,
171 + 2.08939, 2.92186, 3.11899,
172 + 0.02815, 0.01116, 98.54913, 3.40008, 3.01117,
173 + 2.38008, 3.20756, 3.40450 /
174 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=15,19)/
175 + 0.02871, 0.01142, 106.91562, 3.69011, 3.30163,
176 + 2.67509, 3.49783, 3.69459,
177 + 0.02926, 0.01168, 115.15706, 3.98087, 3.59280,
178 + 2.97059, 3.78882, 3.98540,
179 + 0.02979, 0.01193, 123.49013, 4.27749, 3.88981,
180 + 3.27173, 4.08566, 4.28207,
181 + 0.03030, 0.01218, 131.62666, 4.57241, 4.18512,
182 + 3.57098, 4.38081, 4.57705,
183 + 0.03080, 0.01242, 139.82591, 4.87209, 4.48517,
184 + 3.87479, 4.68069, 4.87678 /
185 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/
186 + 0.02042, 0.00762, 3.90519, 0.42868, 0.03416,
187 + 0.00000, 0.23262, 0.43208,
188 + 0.02169, 0.00816, 8.25971, 0.55139, 0.15789,
189 + 0.00000, 0.35589, 0.55492,
190 + 0.02285, 0.00865, 13.38381, 0.69824, 0.30565,
191 + 0.00000, 0.50324, 0.70189,
192 + 0.02391, 0.00912, 18.98395, 0.86361, 0.47185,
193 + 0.00000, 0.66906, 0.86736,
194 + 0.02489, 0.00956, 25.03314, 1.04473, 0.65374,
195 + 0.03852, 0.85060, 1.04858,
196 + 0.02581, 0.00997, 31.41321, 1.23909, 0.84882,
197 + 0.21366, 1.04536, 1.24304,
198 + 0.02668, 0.01037, 38.04781, 1.44531, 1.05572,
199 + 0.43078, 1.25195, 1.44935 /
200 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=8,14)/
201 + 0.02751, 0.01075, 44.86905, 1.66156, 1.27261,
202 + 0.65401, 1.46855, 1.66568,
203 + 0.02830, 0.01112, 51.82478, 1.88621, 1.49788,
204 + 0.88566, 1.69355, 1.89041,
205 + 0.02905, 0.01147, 58.88084, 2.11810, 1.73035,
206 + 1.12394, 1.92576, 2.12238,
207 + 0.02978, 0.01182, 66.01596, 2.35640, 1.96922,
208 + 1.36828, 2.16436, 2.36075,
209 + 0.03047, 0.01215, 73.18097, 2.59973, 2.21309,
210 + 1.61728, 2.40799, 2.60415,
211 + 0.03115, 0.01247, 80.27115, 2.84525, 2.45913,
212 + 1.86815, 2.65379, 2.84973,
213 + 0.03179, 0.01278, 87.40392, 3.09533, 2.70972,
214 + 2.12331, 2.90415, 3.09988 /
215 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=15,19)/
216 + 0.03242, 0.01309, 94.52690, 3.34863, 2.96349,
217 + 2.38141, 3.15771, 3.35324,
218 + 0.03303, 0.01338, 101.51570, 3.60176, 3.21710,
219 + 2.63914, 3.41110, 3.60643,
220 + 0.03362, 0.01367, 108.55965, 3.85927, 3.47507,
221 + 2.90102, 3.66887, 3.86400,
222 + 0.03419, 0.01395, 115.41191, 4.11458, 3.73083,
223 + 3.16052, 3.92442, 4.11937,
224 + 0.03475, 0.01423, 122.29738, 4.37336, 3.99004,
225 + 3.42330, 4.18343, 4.37820 /
226 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/
227 + 0.02252, 0.00842, 3.86466, 0.42582, 0.03299,
228 + 0.00000, 0.23047, 0.42926,
229 + 0.02391, 0.00902, 8.00759, 0.54317, 0.15148,
230 + 0.00000, 0.34844, 0.54676,
231 + 0.02518, 0.00958, 12.81977, 0.68221, 0.29154,
232 + 0.00000, 0.48803, 0.68593,
233 + 0.02634, 0.01011, 18.02698, 0.83755, 0.44781,
234 + 0.00000, 0.64387, 0.84139,
235 + 0.02741, 0.01060, 23.60628, 1.00657, 0.61769,
236 + 0.03593, 0.81335, 1.01052,
237 + 0.02841, 0.01107, 29.45024, 1.18693, 0.79885,
238 + 0.19869, 0.99415, 1.19098,
239 + 0.02936, 0.01151, 35.49059, 1.37734, 0.99003,
240 + 0.39962, 1.18497, 1.38150 /
241 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=8,14)/
242 + 0.03027, 0.01194, 41.66748, 1.57614, 1.18954,
243 + 0.60524, 1.38415, 1.58039,
244 + 0.03113, 0.01235, 47.93552, 1.78184, 1.39593,
245 + 0.81775, 1.59023, 1.78618,
246 + 0.03195, 0.01274, 54.26602, 1.99340, 1.60814,
247 + 1.03554, 1.80213, 1.99782,
248 + 0.03274, 0.01313, 60.64156, 2.21008, 1.82546,
249 + 1.25811, 2.01916, 2.21459,
250 + 0.03350, 0.01350, 67.01950, 2.43066, 2.04664,
251 + 1.48421, 2.24006, 2.43524,
252 + 0.03423, 0.01386, 73.30774, 2.65258, 2.26913,
253 + 1.71136, 2.46229, 2.65723,
254 + 0.03494, 0.01420, 79.61375, 2.87803, 2.49514,
255 + 1.94175, 2.68803, 2.88275 /
256 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=15,19)/
257 + 0.03562, 0.01454, 85.89183, 3.10579, 2.72344,
258 + 2.17421, 2.91609, 3.11058,
259 + 0.03629, 0.01487, 92.03229, 3.33285, 2.95103,
260 + 2.40575, 3.14343, 3.33770,
261 + 0.03693, 0.01519, 98.20593, 3.56334, 3.18203,
262 + 2.64051, 3.37419, 3.56826,
263 + 0.03755, 0.01550, 104.19360, 3.79136, 3.41055,
264 + 2.87262, 3.60248, 3.79634,
265 + 0.03816, 0.01581, 110.19688, 4.02202, 3.64168,
266 + 3.10719, 3.83339, 4.02706 /
267 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/
268 + 0.03052, 0.01150, 3.74033, 0.41605, 0.02941,
269 + 0.00000, 0.22366, 0.42006,
270 + 0.03236, 0.01238, 7.26782, 0.51741, 0.13232,
271 + 0.00000, 0.32584, 0.52162,
272 + 0.03403, 0.01319, 11.20423, 0.63383, 0.25014,
273 + 0.00000, 0.44300, 0.63823,
274 + 0.03556, 0.01395, 15.33313, 0.76078, 0.37836,
275 + 0.00000, 0.57062, 0.76534,
276 + 0.03697, 0.01465, 19.64542, 0.89612, 0.51488,
277 + 0.02874, 0.70658, 0.90084,
278 + 0.03829, 0.01532, 24.06464, 1.03805, 0.65790,
279 + 0.15761, 0.84908, 1.04290,
280 + 0.03954, 0.01595, 28.54543, 1.18561, 0.80649,
281 + 0.31460, 0.99718, 1.19060 /
282 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=8,14)/
283 + 0.04072, 0.01655, 33.04964, 1.33757, 0.95943,
284 + 0.47294, 1.14966, 1.34268,
285 + 0.04185, 0.01713, 37.54993, 1.49288, 1.11566,
286 + 0.63456, 1.30545, 1.49811,
287 + 0.04292, 0.01769, 42.03134, 1.65080, 1.27447,
288 + 0.79829, 1.46383, 1.65614,
289 + 0.04395, 0.01823, 46.48680, 1.81087, 1.43539,
290 + 0.96383, 1.62435, 1.81632,
291 + 0.04495, 0.01874, 50.89040, 1.97225, 1.59758,
292 + 1.13036, 1.78615, 1.97780,
293 + 0.04590, 0.01924, 55.18082, 2.13315, 1.75926,
294 + 1.29613, 1.94746, 2.13879,
295 + 0.04682, 0.01973, 59.43996, 2.29525, 1.92211,
296 + 1.46283, 2.10995, 2.30098 /
297 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=15,19)/
298 + 0.04770, 0.02020, 63.63884, 2.45772, 2.08531,
299 + 1.62969, 2.27280, 2.46354,
300 + 0.04856, 0.02065, 67.70392, 2.61845, 2.24674,
301 + 1.79460, 2.43390, 2.62436,
302 + 0.04939, 0.02110, 71.75874, 2.78050, 2.40946,
303 + 1.96064, 2.59630, 2.78649,
304 + 0.05019, 0.02153, 75.65318, 2.93968, 2.56931,
305 + 2.12364, 2.75582, 2.94575,
306 + 0.05098, 0.02195, 79.53020, 3.09973, 2.72999,
307 + 2.28734, 2.91620, 3.10586 /
308 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/
309 + 0.04133, 0.01583, 3.61733, 0.40444, 0.02592,
310 + 0.00000, 0.21638, 0.40975,
311 + 0.04377, 0.01711, 6.58533, 0.49074, 0.11428,
312 + 0.00000, 0.30378, 0.49633,
313 + 0.04596, 0.01828, 9.76781, 0.58684, 0.21222,
314 + 0.00000, 0.40086, 0.59267,
315 + 0.04797, 0.01935, 13.00129, 0.68913, 0.31619,
316 + 0.00000, 0.50403, 0.69517,
317 + 0.04983, 0.02036, 16.29041, 0.79600, 0.42460,
318 + 0.02273, 0.61171, 0.80224,
319 + 0.05156, 0.02130, 19.58540, 0.90613, 0.53616,
320 + 0.12364, 0.72260, 0.91255,
321 + 0.05319, 0.02220, 22.86000, 1.01888, 0.65026,
322 + 0.24494, 0.83606, 1.02547 /
323 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=8,14)/
324 + 0.05473, 0.02305, 26.09285, 1.13340, 0.76606,
325 + 0.36551, 0.95125, 1.14015,
326 + 0.05620, 0.02386, 29.27072, 1.24898, 0.88285,
327 + 0.48701, 1.06746, 1.25587,
328 + 0.05760, 0.02464, 32.38834, 1.36516, 1.00018,
329 + 0.60866, 1.18425, 1.37219,
330 + 0.05894, 0.02539, 35.44592, 1.48168, 1.11780,
331 + 0.73033, 1.30134, 1.48884,
332 + 0.06022, 0.02611, 38.42929, 1.59799, 1.23517,
333 + 0.85150, 1.41821, 1.60528,
334 + 0.06146, 0.02680, 41.29901, 1.71288, 1.35106,
335 + 0.97098, 1.53362, 1.72028,
336 + 0.06264, 0.02747, 44.11739, 1.82763, 1.46679,
337 + 1.09008, 1.64888, 1.83515 /
338 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=15,19)/
339 + 0.06379, 0.02812, 46.86678, 1.94172, 1.58181,
340 + 1.20831, 1.76346, 1.94935,
341 + 0.06489, 0.02875, 49.49901, 2.05369, 1.69469,
342 + 1.32423, 1.87590, 2.06142,
343 + 0.06596, 0.02936, 52.10284, 2.16578, 1.80766,
344 + 1.44009, 1.98845, 2.17362,
345 + 0.06699, 0.02994, 54.57664, 2.27508, 1.91780,
346 + 1.55300, 2.09819, 2.28301,
347 + 0.06800, 0.03052, 57.02118, 2.38429, 2.02783,
348 + 1.66567, 2.20782, 2.39231 /
349 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/
350 + 0.04933, 0.01921, 3.54508, 0.39642, 0.02392,
351 + 0.00000, 0.21172, 0.40286,
352 + 0.05219, 0.02079, 6.20753, 0.47433, 0.10423,
353 + 0.00000, 0.29091, 0.48109,
354 + 0.05477, 0.02223, 8.99580, 0.55951, 0.19156,
355 + 0.00000, 0.37724, 0.56654,
356 + 0.05712, 0.02356, 11.77479, 0.64890, 0.28290,
357 + 0.00000, 0.46766, 0.65618,
358 + 0.05930, 0.02479, 14.55657, 0.74118, 0.37698,
359 + 0.01969, 0.56089, 0.74868,
360 + 0.06132, 0.02595, 17.30482, 0.83530, 0.47276,
361 + 0.10656, 0.65589, 0.84300,
362 + 0.06322, 0.02704, 20.00250, 0.93077, 0.56980,
363 + 0.21017, 0.75220, 0.93867 /
364 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=8,14)/
365 + 0.06502, 0.02807, 22.63635, 1.02695, 0.66745,
366 + 0.31224, 0.84916, 1.03502,
367 + 0.06673, 0.02906, 25.19928, 1.12329, 0.76519,
368 + 0.41433, 0.94623, 1.13152,
369 + 0.06836, 0.03001, 27.69032, 1.21946, 0.86269,
370 + 0.51582, 1.04310, 1.22785,
371 + 0.06991, 0.03091, 30.11273, 1.31529, 0.95979,
372 + 0.61666, 1.13960, 1.32382,
373 + 0.07140, 0.03178, 32.45729, 1.41039, 1.05610,
374 + 0.71647, 1.23533, 1.41905,
375 + 0.07283, 0.03261, 34.69431, 1.50377, 1.15065,
376 + 0.81433, 1.32933, 1.51257,
377 + 0.07420, 0.03342, 36.87650, 1.59657, 1.24456,
378 + 0.91137, 1.42271, 1.60549 /
379 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=15,19)/
380 + 0.07552, 0.03420, 38.99127, 1.68838, 1.33744,
381 + 1.00721, 1.51508, 1.69741,
382 + 0.07680, 0.03495, 41.00131, 1.77803, 1.42813,
383 + 1.10071, 1.60528, 1.78718,
384 + 0.07803, 0.03567, 42.97942, 1.86741, 1.51851,
385 + 1.19376, 1.69518, 1.87667,
386 + 0.07922, 0.03638, 44.84538, 1.95416, 1.60623,
387 + 1.28403, 1.78243, 1.96352,
388 + 0.08038, 0.03706, 46.68073, 2.04050, 1.69351,
389 + 1.37374, 1.86926, 2.04995 /
390 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/
391 + 0.05590, 0.02213, 3.49319, 0.38999, 0.02253,
392 + 0.00000, 0.20811, 0.39739,
393 + 0.05911, 0.02397, 5.94688, 0.46213, 0.09734,
394 + 0.00000, 0.28168, 0.46987,
395 + 0.06200, 0.02565, 8.47302, 0.53997, 0.17757,
396 + 0.00000, 0.36080, 0.54801,
397 + 0.06463, 0.02718, 10.95557, 0.62082, 0.26058,
398 + 0.00000, 0.44280, 0.62913,
399 + 0.06705, 0.02860, 13.41141, 0.70357, 0.34532,
400 + 0.01771, 0.52661, 0.71211,
401 + 0.06931, 0.02993, 15.81283, 0.78734, 0.43093,
402 + 0.09553, 0.61136, 0.79610,
403 + 0.07143, 0.03118, 18.14856, 0.87175, 0.51707,
404 + 0.18781, 0.69668, 0.88071 /
405 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=8,14)/
406 + 0.07343, 0.03237, 20.41023, 0.95627, 0.60322,
407 + 0.27815, 0.78207, 0.96541,
408 + 0.07533, 0.03350, 22.59435, 1.04046, 0.68895,
409 + 0.36799, 0.86707, 1.04978,
410 + 0.07714, 0.03458, 24.70258, 1.12407, 0.77403,
411 + 0.45684, 0.95146, 1.13356,
412 + 0.07886, 0.03561, 26.73956, 1.20701, 0.85836,
413 + 0.54470, 1.03513, 1.21664,
414 + 0.08051, 0.03660, 28.69916, 1.28894, 0.94163,
415 + 0.63128, 1.11777, 1.29872,
416 + 0.08209, 0.03755, 30.55730, 1.36906, 1.02303,
417 + 0.71580, 1.19856, 1.37898,
418 + 0.08361, 0.03846, 32.36076, 1.44837, 1.10357,
419 + 0.79929, 1.27852, 1.45842 /
420 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=15,19)/
421 + 0.08508, 0.03934, 34.09976, 1.52655, 1.18293,
422 + 0.88144, 1.35732, 1.53672,
423 + 0.08649, 0.04019, 35.74342, 1.60261, 1.26014,
424 + 0.96130, 1.43398, 1.61290,
425 + 0.08785, 0.04101, 37.35477, 1.67821, 1.33683,
426 + 1.04051, 1.51016, 1.68861,
427 + 0.08916, 0.04181, 38.86623, 1.75132, 1.41101,
428 + 1.11709, 1.58383, 1.76183,
429 + 0.09044, 0.04258, 40.34767, 1.82390, 1.48461,
430 + 1.19299, 1.65694, 1.83450 /
431 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/
432 + 0.06152, 0.02491, 3.45185, 0.38434, 0.02147,
433 + 0.00000, 0.20490, 0.39244,
434 + 0.06502, 0.02698, 5.74432, 0.45211, 0.09215,
435 + 0.00000, 0.27423, 0.46057,
436 + 0.06817, 0.02885, 8.07149, 0.52448, 0.16712,
437 + 0.00000, 0.34798, 0.53325,
438 + 0.07104, 0.03056, 10.33184, 0.59900, 0.24400,
439 + 0.00000, 0.42375, 0.60805,
440 + 0.07368, 0.03214, 12.54625, 0.67474, 0.32189,
441 + 0.01627, 0.50064, 0.68405,
442 + 0.07613, 0.03362, 14.69372, 0.75093, 0.40008,
443 + 0.08749, 0.57788, 0.76046,
444 + 0.07843, 0.03501, 16.76697, 0.82728, 0.47830,
445 + 0.17154, 0.65522, 0.83702 /
446 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=8,14)/
447 + 0.08060, 0.03633, 18.76009, 0.90333, 0.55611,
448 + 0.25335, 0.73220, 0.91326,
449 + 0.08266, 0.03758, 20.67302, 0.97873, 0.63318,
450 + 0.33435, 0.80849, 0.98885,
451 + 0.08461, 0.03877, 22.50847, 1.05332, 0.70935,
452 + 0.41412, 0.88390, 1.06360,
453 + 0.08648, 0.03990, 24.27223, 1.12699, 0.78454,
454 + 0.49268, 0.95837, 1.13744,
455 + 0.08827, 0.04099, 25.96126, 1.19952, 0.85850,
456 + 0.56981, 1.03166, 1.21011,
457 + 0.08998, 0.04203, 27.55463, 1.27019, 0.93056,
458 + 0.64485, 1.10305, 1.28093,
459 + 0.09162, 0.04304, 29.09367, 1.33993, 1.00162,
460 + 0.71872, 1.17349, 1.35080 /
461 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=15,19)/
462 + 0.09319, 0.04400, 30.56998, 1.40846, 1.07142,
463 + 0.79119, 1.24268, 1.41946,
464 + 0.09471, 0.04493, 31.96104, 1.47493, 1.13911,
465 + 0.86142, 1.30979, 1.48605,
466 + 0.09618, 0.04583, 33.32074, 1.54083, 1.20619,
467 + 0.93090, 1.37631, 1.55206,
468 + 0.09759, 0.04670, 34.58902, 1.60437, 1.27087,
469 + 0.99788, 1.44044, 1.61571,
470 + 0.09896, 0.04754, 35.82820, 1.66730, 1.33490,
471 + 1.06411, 1.50395, 1.67875 /
472 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/
473 + 0.08280, 0.03636, 3.31902, 0.36375, 0.01828,
474 + 0.00000, 0.19371, 0.37454,
475 + 0.08739, 0.03929, 5.13839, 0.41854, 0.07679,
476 + 0.00000, 0.25049, 0.42974,
477 + 0.09150, 0.04192, 6.90384, 0.47511, 0.13666,
478 + 0.00000, 0.30881, 0.48667,
479 + 0.09523, 0.04430, 8.55537, 0.53179, 0.19633,
480 + 0.00000, 0.36707, 0.54365,
481 + 0.09864, 0.04648, 10.12249, 0.58808, 0.25535,
482 + 0.01230, 0.42480, 0.60022,
483 + 0.10180, 0.04851, 11.60013, 0.64358, 0.31336,
484 + 0.06555, 0.48162, 0.65597,
485 + 0.10475, 0.05040, 12.99109, 0.69819, 0.37032,
486 + 0.12743, 0.53747, 0.71081 /
487 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=8,14)/
488 + 0.10753, 0.05217, 14.29765, 0.75170, 0.42603,
489 + 0.18663, 0.59213, 0.76452,
490 + 0.11015, 0.05385, 15.52510, 0.80396, 0.48037,
491 + 0.24436, 0.64549, 0.81697,
492 + 0.11264, 0.05544, 16.67973, 0.85494, 0.53332,
493 + 0.30042, 0.69749, 0.86813,
494 + 0.11500, 0.05695, 17.76906, 0.90466, 0.58491,
495 + 0.35492, 0.74819, 0.91802,
496 + 0.11726, 0.05839, 18.79407, 0.95301, 0.63504,
497 + 0.40779, 0.79748, 0.96652,
498 + 0.11940, 0.05976, 19.74326, 0.99957, 0.68330,
499 + 0.45862, 0.84492, 1.01322,
500 + 0.12146, 0.06107, 20.64661, 1.04504, 0.73039,
501 + 0.50814, 0.89123, 1.05882 /
502 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=15,19)/
503 + 0.12343, 0.06232, 21.50026, 1.08927, 0.77618,
504 + 0.55624, 0.93628, 1.10318,
505 + 0.12532, 0.06352, 22.29103, 1.13173, 0.82013,
506 + 0.60238, 0.97951, 1.14575,
507 + 0.12715, 0.06469, 23.05534, 1.17347, 0.86332,
508 + 0.64763, 1.02200, 1.18761,
509 + 0.12890, 0.06580, 23.75552, 1.21332, 0.90455,
510 + 0.69085, 1.06257, 1.22756,
511 + 0.13060, 0.06687, 24.43269, 1.25249, 0.94506,
512 + 0.73325, 1.10244, 1.26682 /
513 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/
514 + 0.11155, 0.05435, 3.17302, 0.33669, 0.01523,
515 + 0.00001, 0.17948, 0.35085,
516 + 0.11754, 0.05837, 4.55432, 0.37941, 0.06258,
517 + 0.00001, 0.22464, 0.39399,
518 + 0.12287, 0.06193, 5.82961, 0.42194, 0.10920,
519 + 0.00002, 0.26932, 0.43688,
520 + 0.12766, 0.06512, 6.97356, 0.46326, 0.15419,
521 + 0.00002, 0.31256, 0.47851,
522 + 0.13202, 0.06801, 8.01993, 0.50326, 0.19753,
523 + 0.00905, 0.35431, 0.51878,
524 + 0.13603, 0.07067, 8.97472, 0.54182, 0.23914,
525 + 0.04767, 0.39445, 0.55757,
526 + 0.13976, 0.07313, 9.84731, 0.57898, 0.27915,
527 + 0.09180, 0.43310, 0.59494 /
528 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=8,14)/
529 + 0.14325, 0.07542, 10.64545, 0.61473, 0.31756,
530 + 0.13323, 0.47023, 0.63088,
531 + 0.14654, 0.07756, 11.37539, 0.64904, 0.35438,
532 + 0.17295, 0.50584, 0.66536,
533 + 0.14963, 0.07957, 12.04496, 0.68197, 0.38966,
534 + 0.21090, 0.53999, 0.69844,
535 + 0.15255, 0.08148, 12.66244, 0.71360, 0.42352,
536 + 0.24727, 0.57277, 0.73022,
537 + 0.15532, 0.08327, 13.23087, 0.74395, 0.45598,
538 + 0.28207, 0.60421, 0.76069,
539 + 0.15796, 0.08497, 13.74389, 0.77277, 0.48682,
540 + 0.31511, 0.63407, 0.78963,
541 + 0.16048, 0.08658, 14.22304, 0.80057, 0.51655,
542 + 0.34692, 0.66286, 0.81754 /
543 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=15,19)/
544 + 0.16288, 0.08812, 14.66714, 0.82729, 0.54510,
545 + 0.37744, 0.69052, 0.84436,
546 + 0.16516, 0.08958, 15.06887, 0.85260, 0.57218,
547 + 0.40639, 0.71674, 0.86976,
548 + 0.16736, 0.09099, 15.45178, 0.87726, 0.59853,
549 + 0.43451, 0.74227, 0.89451,
550 + 0.16946, 0.09232, 15.79320, 0.90051, 0.62341,
551 + 0.46108, 0.76635, 0.91783,
552 + 0.17150, 0.09361, 16.11903, 0.92318, 0.64764,
553 + 0.48692, 0.78982, 0.94057 /
554 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/
555 + 0.13310, 0.06923, 3.07660, 0.31734, 0.01350,
556 + 0.00001, 0.16953, 0.33378,
557 + 0.14006, 0.07396, 4.21919, 0.35343, 0.05474,
558 + 0.00001, 0.20830, 0.37026,
559 + 0.14622, 0.07810, 5.24090, 0.38853, 0.09438,
560 + 0.00003, 0.24577, 0.40569,
561 + 0.15172, 0.08178, 6.13208, 0.42195, 0.13186,
562 + 0.00002, 0.28130, 0.43939,
563 + 0.15672, 0.08508, 6.92730, 0.45377, 0.16735,
564 + 0.00742, 0.31502, 0.47144,
565 + 0.16127, 0.08810, 7.63787, 0.48399, 0.20093,
566 + 0.03885, 0.34697, 0.50185,
567 + 0.16551, 0.09087, 8.27315, 0.51271, 0.23277,
568 + 0.07440, 0.37730, 0.53075 /
569 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=8,14)/
570 + 0.16945, 0.09343, 8.84254, 0.53999, 0.26295,
571 + 0.10733, 0.40607, 0.55817,
572 + 0.17314, 0.09581, 9.35405, 0.56586, 0.29155,
573 + 0.13857, 0.43334, 0.58419,
574 + 0.17659, 0.09805, 9.81489, 0.59044, 0.31869,
575 + 0.16814, 0.45924, 0.60889,
576 + 0.17985, 0.10015, 10.23244, 0.61384, 0.34450,
577 + 0.19623, 0.48387, 0.63238,
578 + 0.18292, 0.10212, 10.61008, 0.63603, 0.36899,
579 + 0.22285, 0.50724, 0.65467,
580 + 0.18584, 0.10396, 10.94457, 0.65690, 0.39204,
581 + 0.24791, 0.52922, 0.67563,
582 + 0.18861, 0.10570, 11.25268, 0.67687, 0.41409,
583 + 0.27184, 0.55025, 0.69569 /
584 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=15,19)/
585 + 0.19125, 0.10736, 11.53408, 0.69591, 0.43511,
586 + 0.29464, 0.57031, 0.71481,
587 + 0.19375, 0.10894, 11.78216, 0.71378, 0.45487,
588 + 0.31608, 0.58912, 0.73273,
589 + 0.19615, 0.11044, 12.01576, 0.73107, 0.47397,
590 + 0.33678, 0.60733, 0.75007,
591 + 0.19843, 0.11186, 12.21901, 0.74721, 0.49186,
592 + 0.35620, 0.62435, 0.76626,
593 + 0.20064, 0.11322, 12.41085, 0.76285, 0.50918,
594 + 0.37498, 0.64085, 0.78195 /
595 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/
596 + 0.15116, 0.08235, 3.00073, 0.30180, 0.01230,
597 + 0.00001, 0.16158, 0.31998,
598 + 0.15887, 0.08757, 3.98180, 0.33339, 0.04938,
599 + 0.00001, 0.19602, 0.35191,
600 + 0.16566, 0.09210, 4.83776, 0.36357, 0.08439,
601 + 0.00003, 0.22870, 0.38238,
602 + 0.17169, 0.09609, 5.56809, 0.39185, 0.11697,
603 + 0.00001, 0.25920, 0.41089,
604 + 0.17715, 0.09965, 6.20721, 0.41843, 0.14744,
605 + 0.00638, 0.28777, 0.43767,
606 + 0.18210, 0.10288, 6.76805, 0.44339, 0.17594,
607 + 0.03327, 0.31454, 0.46276,
608 + 0.18669, 0.10584, 7.26082, 0.46685, 0.20268,
609 + 0.06342, 0.33968, 0.48636 /
610 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=8,14)/
611 + 0.19094, 0.10855, 7.69514, 0.48890, 0.22779,
612 + 0.09110, 0.36329, 0.50852,
613 + 0.19490, 0.11105, 8.07902, 0.50962, 0.25136,
614 + 0.11714, 0.38546, 0.52934,
615 + 0.19860, 0.11339, 8.41936, 0.52913, 0.27356,
616 + 0.14160, 0.40634, 0.54893,
617 + 0.20207, 0.11558, 8.72300, 0.54755, 0.29451,
618 + 0.16467, 0.42605, 0.56741,
619 + 0.20535, 0.11763, 8.99337, 0.56488, 0.31424,
620 + 0.18638, 0.44460, 0.58481,
621 + 0.20844, 0.11952, 9.22818, 0.58105, 0.33268,
622 + 0.20669, 0.46192, 0.60104,
623 + 0.21137, 0.12132, 9.44151, 0.59641, 0.35021,
624 + 0.22596, 0.47838, 0.61645 /
625 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=15,19)/
626 + 0.21415, 0.12302, 9.63339, 0.61096, 0.36682,
627 + 0.24422, 0.49397, 0.63105,
628 + 0.21677, 0.12462, 9.79865, 0.62450, 0.38232,
629 + 0.26129, 0.50849, 0.64461,
630 + 0.21928, 0.12615, 9.95258, 0.63754, 0.39724,
631 + 0.27769, 0.52246, 0.65766,
632 + 0.22166, 0.12757, 10.08275, 0.64960, 0.41111,
633 + 0.29299, 0.53544, 0.66975,
634 + 0.22396, 0.12895, 10.20421, 0.66124, 0.42449,
635 + 0.30771, 0.54795, 0.68141 /
636 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/
637 + 0.16706, 0.09424, 2.93643, 0.28874, 0.01140,
638 + 0.00003, 0.15495, 0.30829,
639 + 0.17537, 0.09979, 3.79703, 0.31697, 0.04535,
640 + 0.00003, 0.18611, 0.33681,
641 + 0.18265, 0.10459, 4.53271, 0.34354, 0.07694,
642 + 0.00004, 0.21526, 0.36361,
643 + 0.18911, 0.10878, 5.14857, 0.36811, 0.10598,
644 + 0.00004, 0.24212, 0.38834,
645 + 0.19491, 0.11250, 5.67919, 0.39094, 0.13284,
646 + 0.00566, 0.26701, 0.41131,
647 + 0.20017, 0.11585, 6.13669, 0.41216, 0.15772,
648 + 0.02932, 0.29008, 0.43265,
649 + 0.20502, 0.11888, 6.53273, 0.43192, 0.18089,
650 + 0.05568, 0.31158, 0.45252 /
651 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=8,14)/
652 + 0.20948, 0.12167, 6.87682, 0.45036, 0.20247,
653 + 0.07969, 0.33161, 0.47103,
654 + 0.21363, 0.12424, 7.17569, 0.46753, 0.22259,
655 + 0.10213, 0.35027, 0.48826,
656 + 0.21751, 0.12661, 7.43658, 0.48357, 0.24139,
657 + 0.12307, 0.36771, 0.50434,
658 + 0.22114, 0.12881, 7.66622, 0.49860, 0.25903,
659 + 0.14270, 0.38406, 0.51940,
660 + 0.22453, 0.13088, 7.86790, 0.51265, 0.27553,
661 + 0.16107, 0.39934, 0.53347,
662 + 0.22772, 0.13278, 8.03932, 0.52562, 0.29083,
663 + 0.17811, 0.41347, 0.54646,
664 + 0.23074, 0.13457, 8.19258, 0.53789, 0.30531,
665 + 0.19424, 0.42685, 0.55874 /
666 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=15,19)/
667 + 0.23360, 0.13626, 8.32788, 0.54946, 0.31899,
668 + 0.20947, 0.43948, 0.57031,
669 + 0.23631, 0.13783, 8.44142, 0.56011, 0.33166,
670 + 0.22362, 0.45115, 0.58098,
671 + 0.23890, 0.13933, 8.54592, 0.57032, 0.34382,
672 + 0.23717, 0.46234, 0.59121,
673 + 0.24132, 0.14073, 8.63130, 0.57974, 0.35508,
674 + 0.24976, 0.47268, 0.60061,
675 + 0.24366, 0.14207, 8.71006, 0.58878, 0.36589,
676 + 0.26184, 0.48260, 0.60964 /
677 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/
678 + 0.23037, 0.14238, 2.68956, 0.24290, 0.00859,
679 + 0.00000, 0.13163, 0.26645,
680 + 0.24048, 0.14841, 3.20585, 0.26142, 0.03334,
681 + 0.00002, 0.15326, 0.28495,
682 + 0.24919, 0.15344, 3.61381, 0.27788, 0.05525,
683 + 0.00001, 0.17244, 0.30138,
684 + 0.25672, 0.15772, 3.92986, 0.29236, 0.07452,
685 + 0.00002, 0.18930, 0.31579,
686 + 0.26337, 0.16140, 4.18309, 0.30525, 0.09172,
687 + 0.00368, 0.20435, 0.32859,
688 + 0.26927, 0.16464, 4.38658, 0.31677, 0.10712,
689 + 0.01877, 0.21777, 0.33999,
690 + 0.27461, 0.16752, 4.55016, 0.32709, 0.12103,
691 + 0.03524, 0.22986, 0.35021 /
692 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=8,14)/
693 + 0.27949, 0.17008, 4.68128, 0.33637, 0.13364,
694 + 0.04985, 0.24078, 0.35939,
695 + 0.28394, 0.17235, 4.78554, 0.34471, 0.14507,
696 + 0.06317, 0.25065, 0.36762,
697 + 0.28802, 0.17440, 4.86872, 0.35224, 0.15549,
698 + 0.07531, 0.25960, 0.37504,
699 + 0.29179, 0.17628, 4.93511, 0.35907, 0.16503,
700 + 0.08646, 0.26776, 0.38175,
701 + 0.29524, 0.17801, 4.98624, 0.36527, 0.17378,
702 + 0.09671, 0.27519, 0.38781,
703 + 0.29844, 0.17954, 5.02253, 0.37079, 0.18171,
704 + 0.10605, 0.28189, 0.39321,
705 + 0.30145, 0.18095, 5.05074, 0.37586, 0.18906,
706 + 0.11473, 0.28807, 0.39816 /
707 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=15,19)/
708 + 0.30427, 0.18226, 5.07113, 0.38046, 0.19584,
709 + 0.12275, 0.29373, 0.40266,
710 + 0.30688, 0.18342, 5.08129, 0.38455, 0.20200,
711 + 0.13009, 0.29884, 0.40664,
712 + 0.30937, 0.18452, 5.08812, 0.38839, 0.20784,
713 + 0.13703, 0.30366, 0.41038,
714 + 0.31163, 0.18552, 5.08587, 0.39177, 0.21309,
715 + 0.14335, 0.30795, 0.41364,
716 + 0.31379, 0.18647, 5.08184, 0.39495, 0.21807,
717 + 0.14933, 0.31200, 0.41670 /
718 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/
719 + 0.32353, 0.20822, 2.33149, 0.19143, 0.00582,
720 + -0.00011, 0.10494, 0.21682,
721 + 0.33420, 0.21261, 2.55776, 0.20135, 0.02213,
722 + -0.00010, 0.11792, 0.22624,
723 + 0.34293, 0.21602, 2.71158, 0.20948, 0.03571,
724 + -0.00012, 0.12865, 0.23386,
725 + 0.35019, 0.21864, 2.81105, 0.21602, 0.04711,
726 + -0.00012, 0.13749, 0.23993,
727 + 0.35636, 0.22072, 2.87604, 0.22139, 0.05681,
728 + 0.00200, 0.14494, 0.24491,
729 + 0.36167, 0.22240, 2.91558, 0.22584, 0.06514,
730 + 0.01061, 0.15124, 0.24893,
731 + 0.36627, 0.22371, 2.93654, 0.22952, 0.07237,
732 + 0.01974, 0.15659, 0.25222 /
733 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=8,14)/
734 + 0.37031, 0.22474, 2.94294, 0.23252, 0.07869,
735 + 0.02757, 0.16118, 0.25489,
736 + 0.37381, 0.22559, 2.93888, 0.23499, 0.08421,
737 + 0.03452, 0.16508, 0.25704,
738 + 0.37691, 0.22625, 2.92715, 0.23702, 0.08908,
739 + 0.04070, 0.16845, 0.25875,
740 + 0.37968, 0.22675, 2.90980, 0.23869, 0.09342,
741 + 0.04623, 0.17138, 0.26009,
742 + 0.38212, 0.22713, 2.88783, 0.24007, 0.09726,
743 + 0.05118, 0.17391, 0.26112,
744 + 0.38427, 0.22736, 2.86153, 0.24107, 0.10060,
745 + 0.05557, 0.17599, 0.26184,
746 + 0.38621, 0.22751, 2.83369, 0.24186, 0.10359,
747 + 0.05956, 0.17781, 0.26239 /
748 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=15,19)/
749 + 0.38797, 0.22758, 2.80427, 0.24243, 0.10626,
750 + 0.06316, 0.17939, 0.26276,
751 + 0.38950, 0.22757, 2.77247, 0.24278, 0.10860,
752 + 0.06634, 0.18069, 0.26285,
753 + 0.39091, 0.22753, 2.74123, 0.24305, 0.11076,
754 + 0.06931, 0.18185, 0.26288,
755 + 0.39211, 0.22740, 2.70816, 0.24311, 0.11264,
756 + 0.07194, 0.18275, 0.26270,
757 + 0.39322, 0.22726, 2.67594, 0.24312, 0.11439,
758 + 0.07440, 0.18356, 0.26248 /
759 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/
760 + 0.39633, 0.25075, 2.04614, 0.16000, 0.00439,
761 + 0.00000, 0.08830, 0.18444,
762 + 0.40534, 0.25230, 2.13651, 0.16546, 0.01621,
763 + 0.00003, 0.09675, 0.18908,
764 + 0.41228, 0.25314, 2.18071, 0.16952, 0.02570,
765 + 0.00003, 0.10333, 0.19236,
766 + 0.41768, 0.25345, 2.19287, 0.17235, 0.03336,
767 + 0.00001, 0.10840, 0.19445,
768 + 0.42198, 0.25339, 2.18715, 0.17442, 0.03969,
769 + 0.00144, 0.11245, 0.19586,
770 + 0.42547, 0.25308, 2.16903, 0.17585, 0.04495,
771 + 0.00715, 0.11565, 0.19678,
772 + 0.42830, 0.25248, 2.14268, 0.17678, 0.04940,
773 + 0.01304, 0.11818, 0.19717 /
774 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=8,14)/
775 + 0.43055, 0.25177, 2.11091, 0.17729, 0.05314,
776 + 0.01797, 0.12021, 0.19727,
777 + 0.43231, 0.25095, 2.07567, 0.17753, 0.05635,
778 + 0.02232, 0.12181, 0.19704,
779 + 0.43373, 0.25001, 2.03849, 0.17752, 0.05911,
780 + 0.02612, 0.12309, 0.19659,
781 + 0.43486, 0.24902, 2.00049, 0.17732, 0.06148,
782 + 0.02944, 0.12410, 0.19601,
783 + 0.43565, 0.24803, 1.96204, 0.17701, 0.06348,
784 + 0.03238, 0.12484, 0.19529,
785 + 0.43619, 0.24699, 1.92301, 0.17647, 0.06518,
786 + 0.03486, 0.12532, 0.19434,
787 + 0.43659, 0.24591, 1.88496, 0.17585, 0.06669,
788 + 0.03710, 0.12567, 0.19338 /
789 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=15,19)/
790 + 0.43685, 0.24479, 1.84771, 0.17514, 0.06801,
791 + 0.03911, 0.12590, 0.19241,
792 + 0.43693, 0.24362, 1.81057, 0.17431, 0.06909,
793 + 0.04088, 0.12596, 0.19131,
794 + 0.43694, 0.24248, 1.77513, 0.17348, 0.07006,
795 + 0.04249, 0.12597, 0.19022,
796 + 0.43676, 0.24131, 1.73997, 0.17257, 0.07083,
797 + 0.04387, 0.12585, 0.18903,
798 + 0.43655, 0.24016, 1.70644, 0.17166, 0.07154,
799 + 0.04514, 0.12570, 0.18786 /
800 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/
801 + 0.45572, 0.27815, 1.80115, 0.13715, 0.00346,
802 + 0.00007, 0.07584, 0.15922,
803 + 0.46175, 0.27667, 1.81457, 0.13970, 0.01240,
804 + 0.00005, 0.08134, 0.16081,
805 + 0.46591, 0.27483, 1.80085, 0.14121, 0.01938,
806 + 0.00009, 0.08537, 0.16140,
807 + 0.46863, 0.27269, 1.76984, 0.14191, 0.02481,
808 + 0.00009, 0.08825, 0.16134,
809 + 0.47042, 0.27046, 1.73120, 0.14208, 0.02917,
810 + 0.00111, 0.09033, 0.16082,
811 + 0.47154, 0.26814, 1.68831, 0.14186, 0.03273,
812 + 0.00512, 0.09185, 0.15999,
813 + 0.47201, 0.26584, 1.64338, 0.14135, 0.03562,
814 + 0.00923, 0.09294, 0.15896 /
815 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=8,14)/
816 + 0.47205, 0.26350, 1.59761, 0.14064, 0.03799,
817 + 0.01261, 0.09364, 0.15773,
818 + 0.47176, 0.26114, 1.55215, 0.13976, 0.03998,
819 + 0.01550, 0.09408, 0.15637,
820 + 0.47119, 0.25881, 1.50778, 0.13876, 0.04165,
821 + 0.01799, 0.09432, 0.15493,
822 + 0.47040, 0.25655, 1.46494, 0.13770, 0.04305,
823 + 0.02015, 0.09439, 0.15343,
824 + 0.46939, 0.25435, 1.42360, 0.13663, 0.04420,
825 + 0.02203, 0.09432, 0.15191,
826 + 0.46820, 0.25210, 1.38349, 0.13547, 0.04515,
827 + 0.02361, 0.09407, 0.15034,
828 + 0.46694, 0.24991, 1.34542, 0.13426, 0.04595,
829 + 0.02500, 0.09377, 0.14880 /
830 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=15,19)/
831 + 0.46561, 0.24778, 1.30910, 0.13300, 0.04662,
832 + 0.02623, 0.09342, 0.14726,
833 + 0.46415, 0.24565, 1.27398, 0.13175, 0.04712,
834 + 0.02725, 0.09298, 0.14572,
835 + 0.46270, 0.24360, 1.24091, 0.13053, 0.04755,
836 + 0.02817, 0.09253, 0.14423,
837 + 0.46109, 0.24160, 1.20892, 0.12926, 0.04790,
838 + 0.02897, 0.09199, 0.14269,
839 + 0.45950, 0.23967, 1.17876, 0.12803, 0.04820,
840 + 0.02969, 0.09145, 0.14121 /
841 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/
842 + 0.50431, 0.29450, 1.58593, 0.11854, 0.00275,
843 + 0.00007, 0.06551, 0.13798,
844 + 0.50642, 0.29013, 1.55280, 0.11917, 0.00962,
845 + 0.00007, 0.06901, 0.13748,
846 + 0.50722, 0.28567, 1.50636, 0.11900, 0.01480,
847 + 0.00007, 0.07131, 0.13656,
848 + 0.50683, 0.28131, 1.45307, 0.11838, 0.01881,
849 + 0.00004, 0.07279, 0.13504,
850 + 0.50567, 0.27721, 1.39881, 0.11745, 0.02196,
851 + 0.00078, 0.07369, 0.13330,
852 + 0.50397, 0.27319, 1.34532, 0.11636, 0.02442,
853 + 0.00373, 0.07418, 0.13153,
854 + 0.50198, 0.26930, 1.29339, 0.11510, 0.02639,
855 + 0.00669, 0.07441, 0.12964 /
856 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=8,14)/
857 + 0.49974, 0.26551, 1.24366, 0.11366, 0.02794,
858 + 0.00905, 0.07436, 0.12784,
859 + 0.49727, 0.26181, 1.19639, 0.11217, 0.02920,
860 + 0.01110, 0.07416, 0.12599,
861 + 0.49461, 0.25831, 1.15171, 0.11072, 0.03026,
862 + 0.01284, 0.07385, 0.12403,
863 + 0.49184, 0.25499, 1.10970, 0.10930, 0.03114,
864 + 0.01429, 0.07344, 0.12208,
865 + 0.48906, 0.25174, 1.07018, 0.10782, 0.03180,
866 + 0.01545, 0.07294, 0.12028,
867 + 0.48611, 0.24857, 1.03270, 0.10638, 0.03233,
868 + 0.01654, 0.07239, 0.11843,
869 + 0.48319, 0.24555, 0.99767, 0.10495, 0.03276,
870 + 0.01747, 0.07181, 0.11666 /
871 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=15,19)/
872 + 0.48029, 0.24264, 0.96477, 0.10352, 0.03307,
873 + 0.01825, 0.07119, 0.11496,
874 + 0.47738, 0.23977, 0.93347, 0.10208, 0.03333,
875 + 0.01888, 0.07055, 0.11328,
876 + 0.47454, 0.23703, 0.90427, 0.10069, 0.03354,
877 + 0.01945, 0.06992, 0.11167,
878 + 0.47158, 0.23436, 0.87657, 0.09934, 0.03366,
879 + 0.01995, 0.06923, 0.11007,
880 + 0.46869, 0.23181, 0.85065, 0.09804, 0.03375,
881 + 0.02039, 0.06857, 0.10854 /
882 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/
883 + 0.55124, 0.30335, 1.35102, 0.09895, 0.00206,
884 + 0.00008, 0.05452, 0.11495,
885 + 0.54815, 0.29549, 1.28468, 0.09788, 0.00714,
886 + 0.00004, 0.05628, 0.11298,
887 + 0.54417, 0.28824, 1.21704, 0.09653, 0.01092,
888 + 0.00011, 0.05729, 0.11060,
889 + 0.53949, 0.28150, 1.15112, 0.09487, 0.01368,
890 + 0.00006, 0.05762, 0.10818,
891 + 0.53448, 0.27534, 1.08961, 0.09323, 0.01575,
892 + 0.00058, 0.05764, 0.10575,
893 + 0.52942, 0.26949, 1.03265, 0.09143, 0.01735,
894 + 0.00260, 0.05744, 0.10346,
895 + 0.52423, 0.26400, 0.97995, 0.08966, 0.01863,
896 + 0.00464, 0.05709, 0.10115 /
897 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=8,14)/
898 + 0.51911, 0.25873, 0.93124, 0.08786, 0.01962,
899 + 0.00629, 0.05655, 0.09897,
900 + 0.51390, 0.25385, 0.88635, 0.08613, 0.02037,
901 + 0.00760, 0.05596, 0.09679,
902 + 0.50877, 0.24919, 0.84504, 0.08445, 0.02095,
903 + 0.00869, 0.05533, 0.09468,
904 + 0.50378, 0.24472, 0.80701, 0.08279, 0.02142,
905 + 0.00964, 0.05466, 0.09271,
906 + 0.49879, 0.24057, 0.77191, 0.08120, 0.02179,
907 + 0.01041, 0.05394, 0.09082,
908 + 0.49386, 0.23653, 0.73924, 0.07963, 0.02204,
909 + 0.01105, 0.05320, 0.08894,
910 + 0.48903, 0.23273, 0.70913, 0.07815, 0.02221,
911 + 0.01161, 0.05248, 0.08717 /
912 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=15,19)/
913 + 0.48427, 0.22915, 0.68125, 0.07673, 0.02229,
914 + 0.01208, 0.05177, 0.08549,
915 + 0.47962, 0.22563, 0.65519, 0.07537, 0.02236,
916 + 0.01247, 0.05107, 0.08380,
917 + 0.47516, 0.22228, 0.63109, 0.07408, 0.02242,
918 + 0.01282, 0.05039, 0.08219,
919 + 0.47072, 0.21904, 0.60840, 0.07277, 0.02241,
920 + 0.01310, 0.04967, 0.08068,
921 + 0.46645, 0.21596, 0.58734, 0.07153, 0.02239,
922 + 0.01334, 0.04899, 0.07926 /
923 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/
924 + 0.58452, 0.30236, 1.14794, 0.08190, 0.00165,
925 + 0.00017, 0.04510, 0.09494,
926 + 0.57578, 0.29170, 1.06488, 0.07997, 0.00536,
927 + 0.00012, 0.04573, 0.09210,
928 + 0.56701, 0.28211, 0.98862, 0.07786, 0.00808,
929 + 0.00014, 0.04589, 0.08919,
930 + 0.55798, 0.27357, 0.91938, 0.07590, 0.01001,
931 + 0.00015, 0.04560, 0.08629,
932 + 0.54933, 0.26572, 0.85763, 0.07380, 0.01149,
933 + 0.00049, 0.04517, 0.08362,
934 + 0.54098, 0.25846, 0.80251, 0.07176, 0.01255,
935 + 0.00196, 0.04457, 0.08121,
936 + 0.53282, 0.25179, 0.75290, 0.06986, 0.01334,
937 + 0.00333, 0.04390, 0.07880 /
938 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=8,14)/
939 + 0.52483, 0.24559, 0.70830, 0.06806, 0.01396,
940 + 0.00443, 0.04319, 0.07647,
941 + 0.51717, 0.23977, 0.66795, 0.06627, 0.01442,
942 + 0.00533, 0.04245, 0.07433,
943 + 0.50976, 0.23433, 0.63143, 0.06456, 0.01476,
944 + 0.00606, 0.04173, 0.07227,
945 + 0.50259, 0.22924, 0.59837, 0.06296, 0.01502,
946 + 0.00667, 0.04101, 0.07032,
947 + 0.49575, 0.22435, 0.56832, 0.06139, 0.01519,
948 + 0.00713, 0.04022, 0.06860,
949 + 0.48896, 0.21981, 0.54066, 0.06000, 0.01527,
950 + 0.00752, 0.03950, 0.06682,
951 + 0.48253, 0.21549, 0.51545, 0.05863, 0.01535,
952 + 0.00789, 0.03878, 0.06515 /
953 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=15,19)/
954 + 0.47642, 0.21133, 0.49238, 0.05727, 0.01541,
955 + 0.00827, 0.03808, 0.06358,
956 + 0.47033, 0.20743, 0.47115, 0.05598, 0.01539,
957 + 0.00852, 0.03737, 0.06215,
958 + 0.46448, 0.20376, 0.45164, 0.05477, 0.01534,
959 + 0.00873, 0.03670, 0.06080,
960 + 0.45873, 0.20025, 0.43326, 0.05363, 0.01529,
961 + 0.00884, 0.03603, 0.05945,
962 + 0.45324, 0.19690, 0.41633, 0.05256, 0.01524,
963 + 0.00896, 0.03539, 0.05817 /
964 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/
965 + 0.60533, 0.29434, 0.97191, 0.06716, 0.00123,
966 + 0.00006, 0.03677, 0.07749,
967 + 0.59099, 0.28144, 0.88223, 0.06474, 0.00403,
968 + 0.00007, 0.03678, 0.07424,
969 + 0.57737, 0.27024, 0.80448, 0.06248, 0.00606,
970 + 0.00006, 0.03644, 0.07103,
971 + 0.56459, 0.26006, 0.73694, 0.06016, 0.00742,
972 + -0.00001, 0.03587, 0.06824,
973 + 0.55242, 0.25110, 0.67862, 0.05805, 0.00843,
974 + 0.00028, 0.03524, 0.06553,
975 + 0.54096, 0.24291, 0.62775, 0.05601, 0.00916,
976 + 0.00137, 0.03455, 0.06310,
977 + 0.53020, 0.23536, 0.58301, 0.05412, 0.00974,
978 + 0.00235, 0.03374, 0.06083 /
979 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=8,14)/
980 + 0.51990, 0.22841, 0.54340, 0.05233, 0.01011,
981 + 0.00310, 0.03293, 0.05881,
982 + 0.51001, 0.22199, 0.50822, 0.05065, 0.01037,
983 + 0.00377, 0.03222, 0.05684,
984 + 0.50057, 0.21606, 0.47688, 0.04911, 0.01058,
985 + 0.00431, 0.03148, 0.05497,
986 + 0.49158, 0.21056, 0.44881, 0.04770, 0.01073,
987 + 0.00473, 0.03070, 0.05324,
988 + 0.48302, 0.20545, 0.42348, 0.04634, 0.01077,
989 + 0.00507, 0.03000, 0.05163,
990 + 0.47493, 0.20045, 0.40045, 0.04493, 0.01080,
991 + 0.00541, 0.02932, 0.05020,
992 + 0.46717, 0.19580, 0.37966, 0.04368, 0.01081,
993 + 0.00565, 0.02865, 0.04881 /
994 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=15,19)/
995 + 0.45968, 0.19146, 0.36079, 0.04260, 0.01081,
996 + 0.00577, 0.02799, 0.04741,
997 + 0.45240, 0.18737, 0.34354, 0.04150, 0.01077,
998 + 0.00589, 0.02739, 0.04613,
999 + 0.44549, 0.18352, 0.32781, 0.04047, 0.01072,
1000 + 0.00601, 0.02682, 0.04493,
1001 + 0.43885, 0.17980, 0.31332, 0.03947, 0.01068,
1002 + 0.00608, 0.02623, 0.04379,
1003 + 0.43253, 0.17627, 0.29997, 0.03852, 0.01062,
1004 + 0.00614, 0.02568, 0.04272 /
1005 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/
1006 + 0.61483, 0.28119, 0.81970, 0.05440, 0.00090,
1007 + 0.00002, 0.02965, 0.06228,
1008 + 0.59524, 0.26673, 0.72974, 0.05190, 0.00303,
1009 + 0.00000, 0.02924, 0.05897,
1010 + 0.57749, 0.25410, 0.65482, 0.04945, 0.00445,
1011 + -0.00005, 0.02868, 0.05605,
1012 + 0.56094, 0.24314, 0.59176, 0.04724, 0.00543,
1013 + 0.00004, 0.02796, 0.05337,
1014 + 0.54571, 0.23341, 0.53851, 0.04525, 0.00613,
1015 + 0.00034, 0.02721, 0.05091,
1016 + 0.53170, 0.22454, 0.49304, 0.04344, 0.00665,
1017 + 0.00104, 0.02639, 0.04871,
1018 + 0.51848, 0.21660, 0.45365, 0.04176, 0.00698,
1019 + 0.00176, 0.02562, 0.04668 /
1020 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=8,14)/
1021 + 0.50612, 0.20925, 0.41933, 0.04012, 0.00729,
1022 + 0.00232, 0.02488, 0.04481,
1023 + 0.49446, 0.20255, 0.38928, 0.03860, 0.00742,
1024 + 0.00274, 0.02419, 0.04314,
1025 + 0.48347, 0.19639, 0.36282, 0.03722, 0.00751,
1026 + 0.00301, 0.02352, 0.04153,
1027 + 0.47311, 0.19067, 0.33936, 0.03595, 0.00762,
1028 + 0.00324, 0.02287, 0.03998,
1029 + 0.46325, 0.18533, 0.31839, 0.03477, 0.00767,
1030 + 0.00352, 0.02227, 0.03858,
1031 + 0.45389, 0.18035, 0.29952, 0.03367, 0.00766,
1032 + 0.00366, 0.02163, 0.03731,
1033 + 0.44502, 0.17567, 0.28259, 0.03266, 0.00763,
1034 + 0.00378, 0.02102, 0.03613 /
1035 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=15,19)/
1036 + 0.43655, 0.17127, 0.26732, 0.03175, 0.00758,
1037 + 0.00391, 0.02046, 0.03502,
1038 + 0.42844, 0.16717, 0.25344, 0.03085, 0.00754,
1039 + 0.00403, 0.01995, 0.03388,
1040 + 0.42079, 0.16332, 0.24083, 0.03000, 0.00750,
1041 + 0.00413, 0.01949, 0.03282,
1042 + 0.41349, 0.15957, 0.22926, 0.02911, 0.00745,
1043 + 0.00417, 0.01905, 0.03191,
1044 + 0.40656, 0.15605, 0.21867, 0.02830, 0.00739,
1045 + 0.00421, 0.01861, 0.03106 /
1046 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/
1047 + 0.61442, 0.26435, 0.68826, 0.04337, 0.00063,
1048 + 0.00001, 0.02354, 0.04950,
1049 + 0.59020, 0.24878, 0.60187, 0.04090, 0.00221,
1050 + 0.00009, 0.02292, 0.04645,
1051 + 0.56847, 0.23558, 0.53213, 0.03879, 0.00333,
1052 + 0.00004, 0.02233, 0.04345,
1053 + 0.54880, 0.22403, 0.47499, 0.03673, 0.00402,
1054 + 0.00007, 0.02159, 0.04113,
1055 + 0.53118, 0.21369, 0.42763, 0.03485, 0.00454,
1056 + 0.00023, 0.02076, 0.03913,
1057 + 0.51491, 0.20461, 0.38774, 0.03323, 0.00496,
1058 + 0.00074, 0.02007, 0.03707,
1059 + 0.49960, 0.19667, 0.35371, 0.03178, 0.00513,
1060 + 0.00121, 0.01939, 0.03530 /
1061 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=8,14)/
1062 + 0.48565, 0.18918, 0.32449, 0.03037, 0.00525,
1063 + 0.00165, 0.01867, 0.03384,
1064 + 0.47258, 0.18240, 0.29914, 0.02914, 0.00533,
1065 + 0.00195, 0.01808, 0.03234,
1066 + 0.46039, 0.17616, 0.27697, 0.02797, 0.00538,
1067 + 0.00215, 0.01750, 0.03098,
1068 + 0.44899, 0.17039, 0.25749, 0.02687, 0.00541,
1069 + 0.00231, 0.01690, 0.02980,
1070 + 0.43806, 0.16520, 0.24029, 0.02595, 0.00540,
1071 + 0.00246, 0.01638, 0.02865,
1072 + 0.42794, 0.16009, 0.22504, 0.02497, 0.00542,
1073 + 0.00265, 0.01586, 0.02766,
1074 + 0.41840, 0.15543, 0.21133, 0.02410, 0.00541,
1075 + 0.00274, 0.01535, 0.02670 /
1076 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=15,19)/
1077 + 0.40935, 0.15121, 0.19889, 0.02334, 0.00534,
1078 + 0.00272, 0.01487, 0.02575,
1079 + 0.40061, 0.14723, 0.18788, 0.02260, 0.00531,
1080 + 0.00276, 0.01446, 0.02485,
1081 + 0.39239, 0.14348, 0.17796, 0.02192, 0.00527,
1082 + 0.00280, 0.01408, 0.02401,
1083 + 0.38462, 0.13986, 0.16883, 0.02126, 0.00519,
1084 + 0.00280, 0.01371, 0.02324,
1085 + 0.37727, 0.13646, 0.16054, 0.02064, 0.00511,
1086 + 0.00281, 0.01337, 0.02253 /
1087 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/
1088 + 0.60512, 0.24522, 0.57498, 0.03420, 0.00045,
1089 + 0.00000, 0.01849, 0.03850,
1090 + 0.57695, 0.22895, 0.49443, 0.03189, 0.00170,
1091 + 0.00015, 0.01779, 0.03579,
1092 + 0.55200, 0.21537, 0.43117, 0.02992, 0.00239,
1093 + -0.00003, 0.01718, 0.03346,
1094 + 0.52992, 0.20351, 0.38020, 0.02800, 0.00299,
1095 + 0.00014, 0.01646, 0.03145,
1096 + 0.51011, 0.19317, 0.33882, 0.02641, 0.00337,
1097 + 0.00017, 0.01574, 0.02963,
1098 + 0.49198, 0.18418, 0.30443, 0.02511, 0.00360,
1099 + 0.00053, 0.01508, 0.02797,
1100 + 0.47542, 0.17606, 0.27543, 0.02380, 0.00372,
1101 + 0.00090, 0.01451, 0.02661 /
1102 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=8,14)/
1103 + 0.46024, 0.16869, 0.25084, 0.02266, 0.00387,
1104 + 0.00122, 0.01391, 0.02528,
1105 + 0.44596, 0.16220, 0.22975, 0.02173, 0.00395,
1106 + 0.00146, 0.01340, 0.02390,
1107 + 0.43277, 0.15619, 0.21147, 0.02080, 0.00397,
1108 + 0.00158, 0.01292, 0.02277,
1109 + 0.42063, 0.15054, 0.19548, 0.01988, 0.00395,
1110 + 0.00166, 0.01244, 0.02189,
1111 + 0.40924, 0.14536, 0.18137, 0.01905, 0.00390,
1112 + 0.00181, 0.01198, 0.02102,
1113 + 0.39838, 0.14066, 0.16919, 0.01842, 0.00386,
1114 + 0.00187, 0.01156, 0.02012,
1115 + 0.38825, 0.13628, 0.15832, 0.01779, 0.00383,
1116 + 0.00190, 0.01116, 0.01931 /
1117 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=15,19)/
1118 + 0.37878, 0.13217, 0.14851, 0.01712, 0.00379,
1119 + 0.00190, 0.01078, 0.01861,
1120 + 0.37003, 0.12822, 0.13974, 0.01640, 0.00372,
1121 + 0.00192, 0.01046, 0.01798,
1122 + 0.36180, 0.12454, 0.13186, 0.01576, 0.00364,
1123 + 0.00194, 0.01016, 0.01739,
1124 + 0.35354, 0.12122, 0.12476, 0.01535, 0.00361,
1125 + 0.00202, 0.00982, 0.01674,
1126 + 0.34582, 0.11807, 0.11829, 0.01493, 0.00358,
1127 + 0.00206, 0.00952, 0.01616 /
1128 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/
1129 + 0.58881, 0.22418, 0.47773, 0.02622, 0.00031,
1130 + 0.00017, 0.01429, 0.02978,
1131 + 0.55701, 0.20797, 0.40443, 0.02428, 0.00134,
1132 + 0.00008, 0.01365, 0.02731,
1133 + 0.52957, 0.19433, 0.34790, 0.02253, 0.00189,
1134 + -0.00001, 0.01308, 0.02532,
1135 + 0.50518, 0.18286, 0.30341, 0.02118, 0.00226,
1136 + 0.00005, 0.01234, 0.02361,
1137 + 0.48373, 0.17275, 0.26767, 0.01987, 0.00249,
1138 + 0.00015, 0.01173, 0.02215,
1139 + 0.46435, 0.16398, 0.23843, 0.01877, 0.00266,
1140 + 0.00045, 0.01119, 0.02077,
1141 + 0.44678, 0.15612, 0.21412, 0.01769, 0.00273,
1142 + 0.00070, 0.01068, 0.01970 /
1143 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=8,14)/
1144 + 0.43066, 0.14906, 0.19373, 0.01678, 0.00278,
1145 + 0.00087, 0.01024, 0.01861,
1146 + 0.41577, 0.14277, 0.17633, 0.01601, 0.00280,
1147 + 0.00102, 0.00980, 0.01759,
1148 + 0.40213, 0.13695, 0.16141, 0.01529, 0.00280,
1149 + 0.00114, 0.00937, 0.01673,
1150 + 0.38960, 0.13156, 0.14855, 0.01458, 0.00279,
1151 + 0.00122, 0.00898, 0.01597,
1152 + 0.37797, 0.12666, 0.13733, 0.01390, 0.00280,
1153 + 0.00122, 0.00867, 0.01519,
1154 + 0.36694, 0.12216, 0.12739, 0.01333, 0.00279,
1155 + 0.00130, 0.00836, 0.01448,
1156 + 0.35667, 0.11799, 0.11868, 0.01279, 0.00274,
1157 + 0.00135, 0.00805, 0.01388 /
1158 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=15,19)/
1159 + 0.34708, 0.11408, 0.11101, 0.01228, 0.00267,
1160 + 0.00135, 0.00774, 0.01339,
1161 + 0.33807, 0.11047, 0.10409, 0.01166, 0.00264,
1162 + 0.00138, 0.00750, 0.01302,
1163 + 0.32962, 0.10713, 0.09788, 0.01109, 0.00261,
1164 + 0.00140, 0.00728, 0.01266,
1165 + 0.32149, 0.10400, 0.09234, 0.01070, 0.00255,
1166 + 0.00137, 0.00701, 0.01217,
1167 + 0.31383, 0.10105, 0.08731, 0.01036, 0.00249,
1168 + 0.00135, 0.00677, 0.01173 /
1169 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/
1170 + 0.56553, 0.20303, 0.39443, 0.01997, 0.00038,
1171 + 0.00015, 0.01084, 0.02238,
1172 + 0.53116, 0.18700, 0.32888, 0.01835, 0.00099,
1173 + 0.00003, 0.01030, 0.02044,
1174 + 0.50162, 0.17386, 0.27941, 0.01704, 0.00140,
1175 + 0.00000, 0.00977, 0.01873,
1176 + 0.47614, 0.16239, 0.24109, 0.01567, 0.00166,
1177 + 0.00003, 0.00928, 0.01746,
1178 + 0.45346, 0.15282, 0.21062, 0.01472, 0.00187,
1179 + 0.00010, 0.00880, 0.01613,
1180 + 0.43342, 0.14430, 0.18611, 0.01379, 0.00190,
1181 + 0.00035, 0.00833, 0.01520,
1182 + 0.41528, 0.13680, 0.16583, 0.01291, 0.00201,
1183 + 0.00053, 0.00785, 0.01434 /
1184 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=8,14)/
1185 + 0.39870, 0.13012, 0.14919, 0.01217, 0.00205,
1186 + 0.00068, 0.00744, 0.01358,
1187 + 0.38355, 0.12413, 0.13513, 0.01155, 0.00208,
1188 + 0.00073, 0.00713, 0.01274,
1189 + 0.36974, 0.11868, 0.12301, 0.01097, 0.00206,
1190 + 0.00081, 0.00682, 0.01203,
1191 + 0.35710, 0.11371, 0.11254, 0.01039, 0.00201,
1192 + 0.00091, 0.00650, 0.01145,
1193 + 0.34537, 0.10920, 0.10354, 0.00987, 0.00203,
1194 + 0.00090, 0.00622, 0.01081,
1195 + 0.33426, 0.10500, 0.09569, 0.00940, 0.00196,
1196 + 0.00092, 0.00600, 0.01039,
1197 + 0.32396, 0.10114, 0.08880, 0.00898, 0.00192,
1198 + 0.00095, 0.00579, 0.00996 /
1199 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=15,19)/
1200 + 0.31438, 0.09757, 0.08270, 0.00861, 0.00192,
1201 + 0.00099, 0.00558, 0.00950,
1202 + 0.30542, 0.09421, 0.07732, 0.00822, 0.00189,
1203 + 0.00101, 0.00536, 0.00919,
1204 + 0.29705, 0.09109, 0.07252, 0.00785, 0.00186,
1205 + 0.00102, 0.00516, 0.00891,
1206 + 0.28901, 0.08820, 0.06823, 0.00759, 0.00183,
1207 + 0.00102, 0.00499, 0.00855,
1208 + 0.28151, 0.08552, 0.06433, 0.00733, 0.00180,
1209 + 0.00102, 0.00482, 0.00821 /
1210 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/
1211 + 0.53721, 0.18207, 0.32396, 0.01520, 0.00016,
1212 + -0.00009, 0.00795, 0.01659,
1213 + 0.50117, 0.16632, 0.26604, 0.01368, 0.00064,
1214 + -0.00008, 0.00748, 0.01525,
1215 + 0.47035, 0.15375, 0.22326, 0.01260, 0.00095,
1216 + -0.00011, 0.00705, 0.01390,
1217 + 0.44374, 0.14311, 0.19074, 0.01167, 0.00116,
1218 + -0.00006, 0.00667, 0.01272,
1219 + 0.42073, 0.13388, 0.16526, 0.01081, 0.00127,
1220 + 0.00001, 0.00634, 0.01175,
1221 + 0.40023, 0.12588, 0.14509, 0.01005, 0.00136,
1222 + 0.00017, 0.00596, 0.01103,
1223 + 0.38200, 0.11890, 0.12854, 0.00928, 0.00140,
1224 + 0.00031, 0.00567, 0.01035 /
1225 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=8,14)/
1226 + 0.36539, 0.11266, 0.11472, 0.00877, 0.00141,
1227 + 0.00039, 0.00532, 0.00974,
1228 + 0.35025, 0.10709, 0.10330, 0.00835, 0.00144,
1229 + 0.00049, 0.00507, 0.00913,
1230 + 0.33647, 0.10205, 0.09359, 0.00786, 0.00145,
1231 + 0.00051, 0.00484, 0.00861,
1232 + 0.32383, 0.09747, 0.08524, 0.00739, 0.00142,
1233 + 0.00051, 0.00459, 0.00822,
1234 + 0.31207, 0.09333, 0.07809, 0.00712, 0.00137,
1235 + 0.00061, 0.00438, 0.00790,
1236 + 0.30139, 0.08950, 0.07190, 0.00676, 0.00136,
1237 + 0.00064, 0.00418, 0.00739,
1238 + 0.29142, 0.08600, 0.06650, 0.00645, 0.00133,
1239 + 0.00065, 0.00400, 0.00700 /
1240 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=15,19)/
1241 + 0.28204, 0.08279, 0.06174, 0.00619, 0.00129,
1242 + 0.00067, 0.00383, 0.00675,
1243 + 0.27341, 0.07974, 0.05754, 0.00589, 0.00128,
1244 + 0.00066, 0.00368, 0.00644,
1245 + 0.26538, 0.07692, 0.05381, 0.00560, 0.00127,
1246 + 0.00066, 0.00355, 0.00614,
1247 + 0.25761, 0.07435, 0.05045, 0.00537, 0.00124,
1248 + 0.00066, 0.00342, 0.00591,
1249 + 0.25035, 0.07194, 0.04744, 0.00517, 0.00121,
1250 + 0.00066, 0.00330, 0.00568 /
1251 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/
1252 + 0.50481, 0.16081, 0.26316, 0.01088, 0.00025,
1253 + 0.00016, 0.00600, 0.01214,
1254 + 0.46737, 0.14623, 0.21340, 0.00990, 0.00057,
1255 + 0.00012, 0.00557, 0.01096,
1256 + 0.43606, 0.13426, 0.17721, 0.00900, 0.00081,
1257 + 0.00013, 0.00523, 0.00994,
1258 + 0.40927, 0.12432, 0.14992, 0.00819, 0.00095,
1259 + 0.00006, 0.00484, 0.00918,
1260 + 0.38622, 0.11579, 0.12888, 0.00749, 0.00099,
1261 + 0.00012, 0.00456, 0.00850,
1262 + 0.36585, 0.10844, 0.11212, 0.00696, 0.00102,
1263 + 0.00022, 0.00435, 0.00786,
1264 + 0.34751, 0.10201, 0.09864, 0.00659, 0.00110,
1265 + 0.00028, 0.00410, 0.00723 /
1266 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=8,14)/
1267 + 0.33121, 0.09630, 0.08757, 0.00601, 0.00105,
1268 + 0.00039, 0.00381, 0.00696,
1269 + 0.31628, 0.09123, 0.07841, 0.00569, 0.00108,
1270 + 0.00041, 0.00359, 0.00654,
1271 + 0.30278, 0.08664, 0.07069, 0.00540, 0.00107,
1272 + 0.00041, 0.00341, 0.00613,
1273 + 0.29056, 0.08254, 0.06412, 0.00510, 0.00100,
1274 + 0.00043, 0.00325, 0.00578,
1275 + 0.27919, 0.07896, 0.05854, 0.00499, 0.00098,
1276 + 0.00044, 0.00306, 0.00532,
1277 + 0.26884, 0.07545, 0.05369, 0.00470, 0.00097,
1278 + 0.00043, 0.00292, 0.00508,
1279 + 0.25929, 0.07224, 0.04947, 0.00439, 0.00094,
1280 + 0.00042, 0.00277, 0.00488 /
1281 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=15,19)/
1282 + 0.25042, 0.06933, 0.04578, 0.00409, 0.00090,
1283 + 0.00041, 0.00262, 0.00471,
1284 + 0.24200, 0.06664, 0.04254, 0.00399, 0.00087,
1285 + 0.00047, 0.00254, 0.00451,
1286 + 0.23416, 0.06416, 0.03967, 0.00392, 0.00085,
1287 + 0.00053, 0.00248, 0.00431,
1288 + 0.22666, 0.06187, 0.03712, 0.00384, 0.00085,
1289 + 0.00049, 0.00238, 0.00409,
1290 + 0.21975, 0.05975, 0.03484, 0.00373, 0.00084,
1291 + 0.00046, 0.00228, 0.00389 /
1292 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/
1293 + 0.46931, 0.14113, 0.21305, 0.00797, 0.00013,
1294 + -0.00002, 0.00425, 0.00869,
1295 + 0.43155, 0.12744, 0.17039, 0.00718, 0.00039,
1296 + -0.00001, 0.00394, 0.00779,
1297 + 0.40020, 0.11635, 0.13987, 0.00646, 0.00058,
1298 + -0.00004, 0.00367, 0.00707,
1299 + 0.37377, 0.10712, 0.11712, 0.00579, 0.00060,
1300 + -0.00002, 0.00341, 0.00655,
1301 + 0.35087, 0.09932, 0.09981, 0.00533, 0.00069,
1302 + 0.00003, 0.00321, 0.00604,
1303 + 0.33079, 0.09271, 0.08628, 0.00500, 0.00071,
1304 + 0.00012, 0.00295, 0.00560,
1305 + 0.31297, 0.08686, 0.07548, 0.00464, 0.00066,
1306 + 0.00011, 0.00277, 0.00519 /
1307 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=8,14)/
1308 + 0.29707, 0.08180, 0.06658, 0.00441, 0.00073,
1309 + 0.00020, 0.00260, 0.00477,
1310 + 0.28293, 0.07723, 0.05928, 0.00409, 0.00069,
1311 + 0.00022, 0.00243, 0.00444,
1312 + 0.27009, 0.07309, 0.05321, 0.00380, 0.00068,
1313 + 0.00023, 0.00228, 0.00414,
1314 + 0.25832, 0.06936, 0.04808, 0.00359, 0.00072,
1315 + 0.00025, 0.00215, 0.00391,
1316 + 0.24754, 0.06595, 0.04369, 0.00340, 0.00063,
1317 + 0.00025, 0.00203, 0.00385,
1318 + 0.23758, 0.06297, 0.03997, 0.00331, 0.00060,
1319 + 0.00027, 0.00197, 0.00354,
1320 + 0.22843, 0.06022, 0.03674, 0.00317, 0.00058,
1321 + 0.00028, 0.00189, 0.00331 /
1322 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=15,19)/
1323 + 0.21998, 0.05764, 0.03392, 0.00296, 0.00058,
1324 + 0.00027, 0.00177, 0.00321,
1325 + 0.21208, 0.05529, 0.03140, 0.00287, 0.00058,
1326 + 0.00028, 0.00170, 0.00302,
1327 + 0.20480, 0.05314, 0.02917, 0.00277, 0.00057,
1328 + 0.00030, 0.00164, 0.00284,
1329 + 0.19822, 0.05109, 0.02723, 0.00252, 0.00054,
1330 + 0.00030, 0.00155, 0.00274,
1331 + 0.19201, 0.04921, 0.02550, 0.00235, 0.00052,
1332 + 0.00030, 0.00148, 0.00263 /
1333 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/
1334 + 0.43142, 0.12230, 0.17056, 0.00552, 0.00014,
1335 + 0.00008, 0.00301, 0.00621,
1336 + 0.39442, 0.10961, 0.13469, 0.00480, 0.00031,
1337 + 0.00005, 0.00279, 0.00554,
1338 + 0.36316, 0.09960, 0.10935, 0.00453, 0.00046,
1339 + 0.00003, 0.00262, 0.00495,
1340 + 0.33732, 0.09124, 0.09074, 0.00394, 0.00046,
1341 + 0.00001, 0.00238, 0.00456,
1342 + 0.31510, 0.08421, 0.07678, 0.00371, 0.00050,
1343 + 0.00002, 0.00222, 0.00418,
1344 + 0.29593, 0.07831, 0.06584, 0.00340, 0.00049,
1345 + 0.00010, 0.00208, 0.00389,
1346 + 0.27891, 0.07307, 0.05720, 0.00323, 0.00048,
1347 + 0.00013, 0.00196, 0.00347 /
1348 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=8,14)/
1349 + 0.26376, 0.06847, 0.05025, 0.00302, 0.00047,
1350 + 0.00014, 0.00179, 0.00324,
1351 + 0.25027, 0.06443, 0.04449, 0.00280, 0.00046,
1352 + 0.00018, 0.00169, 0.00304,
1353 + 0.23804, 0.06084, 0.03975, 0.00264, 0.00046,
1354 + 0.00022, 0.00160, 0.00282,
1355 + 0.22692, 0.05761, 0.03580, 0.00252, 0.00046,
1356 + 0.00023, 0.00150, 0.00262,
1357 + 0.21691, 0.05470, 0.03241, 0.00236, 0.00041,
1358 + 0.00023, 0.00139, 0.00250,
1359 + 0.20775, 0.05203, 0.02952, 0.00215, 0.00040,
1360 + 0.00020, 0.00131, 0.00237,
1361 + 0.19927, 0.04960, 0.02703, 0.00204, 0.00041,
1362 + 0.00020, 0.00126, 0.00222 /
1363 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=15,19)/
1364 + 0.19136, 0.04737, 0.02488, 0.00204, 0.00041,
1365 + 0.00024, 0.00124, 0.00205,
1366 + 0.18412, 0.04534, 0.02301, 0.00197, 0.00043,
1367 + 0.00023, 0.00118, 0.00192,
1368 + 0.17744, 0.04348, 0.02136, 0.00190, 0.00043,
1369 + 0.00021, 0.00111, 0.00180,
1370 + 0.17113, 0.04171, 0.01987, 0.00180, 0.00041,
1371 + 0.00020, 0.00104, 0.00176,
1372 + 0.16530, 0.04010, 0.01855, 0.00170, 0.00038,
1373 + 0.00019, 0.00098, 0.00171 /
1374 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/
1375 + 0.39292, 0.10473, 0.13558, 0.00368, 0.00011,
1376 + 0.00004, 0.00209, 0.00431,
1377 + 0.35631, 0.09346, 0.10575, 0.00339, 0.00018,
1378 + 0.00004, 0.00194, 0.00384,
1379 + 0.32636, 0.08442, 0.08497, 0.00313, 0.00028,
1380 + 0.00007, 0.00166, 0.00358,
1381 + 0.30153, 0.07698, 0.06994, 0.00280, 0.00024,
1382 + 0.00003, 0.00156, 0.00321,
1383 + 0.28047, 0.07080, 0.05870, 0.00256, 0.00028,
1384 + 0.00004, 0.00145, 0.00291,
1385 + 0.26221, 0.06546, 0.04999, 0.00235, 0.00032,
1386 + 0.00006, 0.00136, 0.00269,
1387 + 0.24609, 0.06090, 0.04314, 0.00227, 0.00031,
1388 + 0.00009, 0.00125, 0.00232 /
1389 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=8,14)/
1390 + 0.23191, 0.05686, 0.03767, 0.00209, 0.00029,
1391 + 0.00010, 0.00114, 0.00222,
1392 + 0.21935, 0.05334, 0.03322, 0.00192, 0.00029,
1393 + 0.00008, 0.00108, 0.00203,
1394 + 0.20799, 0.05021, 0.02956, 0.00180, 0.00030,
1395 + 0.00007, 0.00102, 0.00185,
1396 + 0.19769, 0.04741, 0.02651, 0.00170, 0.00029,
1397 + 0.00008, 0.00096, 0.00176,
1398 + 0.18841, 0.04491, 0.02390, 0.00160, 0.00028,
1399 + 0.00010, 0.00090, 0.00163,
1400 + 0.17975, 0.04262, 0.02171, 0.00162, 0.00027,
1401 + 0.00012, 0.00083, 0.00149,
1402 + 0.17190, 0.04053, 0.01983, 0.00159, 0.00026,
1403 + 0.00011, 0.00078, 0.00138 /
1404 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=15,19)/
1405 + 0.16478, 0.03863, 0.01820, 0.00150, 0.00026,
1406 + 0.00009, 0.00074, 0.00129,
1407 + 0.15824, 0.03689, 0.01678, 0.00138, 0.00024,
1408 + 0.00010, 0.00072, 0.00125,
1409 + 0.15223, 0.03530, 0.01554, 0.00127, 0.00021,
1410 + 0.00011, 0.00069, 0.00121,
1411 + 0.14661, 0.03382, 0.01445, 0.00118, 0.00020,
1412 + 0.00010, 0.00065, 0.00113,
1413 + 0.14137, 0.03245, 0.01347, 0.00112, 0.00020,
1414 + 0.00010, 0.00061, 0.00106 /
1415 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/
1416 + 0.35342, 0.08888, 0.10666, 0.00257, 0.00010,
1417 + 0.00006, 0.00143, 0.00299,
1418 + 0.31843, 0.07865, 0.08197, 0.00221, 0.00015,
1419 + 0.00002, 0.00131, 0.00267,
1420 + 0.28982, 0.07058, 0.06514, 0.00200, 0.00016,
1421 + -0.00002, 0.00119, 0.00246,
1422 + 0.26638, 0.06403, 0.05305, 0.00186, 0.00025,
1423 + -0.00001, 0.00110, 0.00209,
1424 + 0.24653, 0.05861, 0.04410, 0.00173, 0.00027,
1425 + 0.00004, 0.00100, 0.00181,
1426 + 0.22940, 0.05395, 0.03733, 0.00158, 0.00027,
1427 + 0.00002, 0.00094, 0.00169,
1428 + 0.21463, 0.05002, 0.03204, 0.00141, 0.00023,
1429 + 0.00004, 0.00089, 0.00152 /
1430 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=8,14)/
1431 + 0.20153, 0.04651, 0.02782, 0.00133, 0.00026,
1432 + 0.00007, 0.00082, 0.00135,
1433 + 0.18978, 0.04347, 0.02440, 0.00126, 0.00023,
1434 + 0.00007, 0.00073, 0.00124,
1435 + 0.17925, 0.04079, 0.02161, 0.00122, 0.00020,
1436 + 0.00007, 0.00067, 0.00115,
1437 + 0.16985, 0.03837, 0.01929, 0.00118, 0.00021,
1438 + 0.00006, 0.00065, 0.00107,
1439 + 0.16148, 0.03617, 0.01733, 0.00102, 0.00020,
1440 + 0.00004, 0.00059, 0.00098,
1441 + 0.15365, 0.03426, 0.01569, 0.00104, 0.00021,
1442 + 0.00007, 0.00060, 0.00090,
1443 + 0.14662, 0.03252, 0.01429, 0.00097, 0.00021,
1444 + 0.00010, 0.00058, 0.00088 /
1445 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=15,19)/
1446 + 0.14031, 0.03090, 0.01307, 0.00080, 0.00020,
1447 + 0.00011, 0.00054, 0.00091,
1448 + 0.13439, 0.02943, 0.01202, 0.00077, 0.00019,
1449 + 0.00010, 0.00050, 0.00083,
1450 + 0.12895, 0.02809, 0.01111, 0.00075, 0.00019,
1451 + 0.00008, 0.00046, 0.00074,
1452 + 0.12394, 0.02685, 0.01031, 0.00065, 0.00018,
1453 + 0.00008, 0.00044, 0.00070,
1454 + 0.11929, 0.02571, 0.00960, 0.00058, 0.00018,
1455 + 0.00009, 0.00043, 0.00066 /
1456 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/
1457 + 0.31454, 0.07454, 0.08307, 0.00176, -0.00001,
1458 + -0.00007, 0.00091, 0.00204,
1459 + 0.28150, 0.06557, 0.06310, 0.00148, 0.00005,
1460 + -0.00003, 0.00082, 0.00176,
1461 + 0.25488, 0.05849, 0.04952, 0.00133, 0.00009,
1462 + -0.00007, 0.00076, 0.00163,
1463 + 0.23292, 0.05285, 0.03998, 0.00126, 0.00012,
1464 + -0.00002, 0.00071, 0.00134,
1465 + 0.21451, 0.04809, 0.03302, 0.00111, 0.00013,
1466 + -0.00002, 0.00063, 0.00125,
1467 + 0.19881, 0.04410, 0.02776, 0.00104, 0.00014,
1468 + -0.00001, 0.00059, 0.00112,
1469 + 0.18529, 0.04070, 0.02371, 0.00098, 0.00015,
1470 + 0.00003, 0.00057, 0.00099 /
1471 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=8,14)/
1472 + 0.17320, 0.03779, 0.02047, 0.00097, 0.00014,
1473 + 0.00002, 0.00049, 0.00087,
1474 + 0.16256, 0.03519, 0.01788, 0.00091, 0.00014,
1475 + 0.00001, 0.00044, 0.00077,
1476 + 0.15321, 0.03288, 0.01577, 0.00078, 0.00014,
1477 + 0.00002, 0.00042, 0.00074,
1478 + 0.14484, 0.03085, 0.01402, 0.00068, 0.00014,
1479 + 0.00005, 0.00040, 0.00075,
1480 + 0.13716, 0.02903, 0.01256, 0.00069, 0.00013,
1481 + 0.00005, 0.00039, 0.00068,
1482 + 0.13011, 0.02742, 0.01134, 0.00070, 0.00014,
1483 + 0.00003, 0.00037, 0.00061,
1484 + 0.12388, 0.02595, 0.01029, 0.00063, 0.00015,
1485 + 0.00003, 0.00035, 0.00057 /
1486 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=15,19)/
1487 + 0.11840, 0.02459, 0.00940, 0.00049, 0.00014,
1488 + 0.00005, 0.00033, 0.00055,
1489 + 0.11305, 0.02338, 0.00863, 0.00049, 0.00014,
1490 + 0.00004, 0.00030, 0.00050,
1491 + 0.10812, 0.02228, 0.00795, 0.00051, 0.00013,
1492 + 0.00003, 0.00028, 0.00045,
1493 + 0.10370, 0.02123, 0.00736, 0.00043, 0.00012,
1494 + 0.00003, 0.00026, 0.00045,
1495 + 0.09961, 0.02027, 0.00683, 0.00037, 0.00011,
1496 + 0.00003, 0.00025, 0.00044 /
1497 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/
1498 + 0.27666, 0.06165, 0.06381, 0.00102, -0.00004,
1499 + -0.00001, 0.00056, 0.00138,
1500 + 0.24572, 0.05389, 0.04786, 0.00103, 0.00004,
1501 + -0.00005, 0.00051, 0.00107,
1502 + 0.22130, 0.04782, 0.03721, 0.00089, -0.00001,
1503 + -0.00007, 0.00044, 0.00102,
1504 + 0.20116, 0.04293, 0.02978, 0.00082, 0.00007,
1505 + -0.00002, 0.00044, 0.00090,
1506 + 0.18426, 0.03892, 0.02442, 0.00084, 0.00006,
1507 + -0.00002, 0.00039, 0.00080,
1508 + 0.17016, 0.03556, 0.02040, 0.00075, 0.00007,
1509 + -0.00002, 0.00037, 0.00065,
1510 + 0.15773, 0.03269, 0.01729, 0.00072, 0.00006,
1511 + -0.00001, 0.00033, 0.00062 /
1512 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=8,14)/
1513 + 0.14710, 0.03021, 0.01486, 0.00065, 0.00006,
1514 + 0.00001, 0.00031, 0.00054,
1515 + 0.13760, 0.02802, 0.01291, 0.00064, 0.00008,
1516 + 0.00001, 0.00028, 0.00046,
1517 + 0.12914, 0.02611, 0.01134, 0.00060, 0.00009,
1518 + 0.00001, 0.00026, 0.00043,
1519 + 0.12168, 0.02444, 0.01006, 0.00052, 0.00010,
1520 + 0.00003, 0.00025, 0.00043,
1521 + 0.11503, 0.02295, 0.00898, 0.00047, 0.00009,
1522 + 0.00003, 0.00024, 0.00043,
1523 + 0.10897, 0.02160, 0.00808, 0.00038, 0.00009,
1524 + 0.00004, 0.00023, 0.00041,
1525 + 0.10350, 0.02038, 0.00732, 0.00031, 0.00009,
1526 + 0.00004, 0.00022, 0.00038 /
1527 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=15,19)/
1528 + 0.09853, 0.01928, 0.00666, 0.00027, 0.00010,
1529 + 0.00003, 0.00022, 0.00034,
1530 + 0.09385, 0.01828, 0.00610, 0.00028, 0.00009,
1531 + 0.00003, 0.00021, 0.00032,
1532 + 0.08957, 0.01738, 0.00561, 0.00030, 0.00008,
1533 + 0.00004, 0.00020, 0.00031,
1534 + 0.08566, 0.01653, 0.00518, 0.00027, 0.00008,
1535 + 0.00003, 0.00018, 0.00029,
1536 + 0.08207, 0.01576, 0.00481, 0.00024, 0.00008,
1537 + 0.00002, 0.00017, 0.00028 /
1538 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,7)/
1539 + 0.24039, 0.05039, 0.04845, 0.00069, -0.00006,
1540 + -0.00009, 0.00030, 0.00082,
1541 + 0.21212, 0.04368, 0.03586, 0.00064, -0.00004,
1542 + -0.00005, 0.00030, 0.00072,
1543 + 0.18958, 0.03860, 0.02751, 0.00074, 0.00002,
1544 + -0.00005, 0.00027, 0.00048,
1545 + 0.17136, 0.03440, 0.02185, 0.00061, 0.00005,
1546 + -0.00004, 0.00024, 0.00053,
1547 + 0.15652, 0.03101, 0.01775, 0.00049, 0.00004,
1548 + -0.00006, 0.00024, 0.00043,
1549 + 0.14378, 0.02821, 0.01472, 0.00037, 0.00004,
1550 + -0.00006, 0.00021, 0.00044,
1551 + 0.13279, 0.02581, 0.01241, 0.00040, 0.00006,
1552 + -0.00004, 0.00021, 0.00040 /
1553 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=8,14)/
1554 + 0.12324, 0.02377, 0.01061, 0.00039, 0.00007,
1555 + 0.00001, 0.00020, 0.00034,
1556 + 0.11500, 0.02198, 0.00917, 0.00031, 0.00009,
1557 + 0.00003, 0.00019, 0.00030,
1558 + 0.10758, 0.02042, 0.00802, 0.00027, 0.00008,
1559 + 0.00003, 0.00018, 0.00030,
1560 + 0.10090, 0.01905, 0.00708, 0.00028, 0.00006,
1561 + 0.00002, 0.00017, 0.00029,
1562 + 0.09513, 0.01781, 0.00630, 0.00026, 0.00008,
1563 + 0.00003, 0.00017, 0.00025,
1564 + 0.08982, 0.01672, 0.00566, 0.00023, 0.00008,
1565 + 0.00004, 0.00017, 0.00023,
1566 + 0.08503, 0.01574, 0.00511, 0.00020, 0.00008,
1567 + 0.00004, 0.00016, 0.00023 /
1568 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=15,19)/
1569 + 0.08069, 0.01485, 0.00464, 0.00016, 0.00006,
1570 + 0.00003, 0.00013, 0.00025,
1571 + 0.07674, 0.01405, 0.00424, 0.00014, 0.00005,
1572 + 0.00003, 0.00013, 0.00023,
1573 + 0.07312, 0.01332, 0.00389, 0.00013, 0.00005,
1574 + 0.00003, 0.00013, 0.00021,
1575 + 0.06974, 0.01264, 0.00359, 0.00015, 0.00006,
1576 + 0.00003, 0.00012, 0.00017,
1577 + 0.06665, 0.01202, 0.00332, 0.00015, 0.00006,
1578 + 0.00003, 0.00012, 0.00015 /
1579 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,7)/
1580 + 0.20605, 0.04044, 0.03616, 0.00038, 0.00000,
1581 + -0.00001, 0.00021, 0.00057,
1582 + 0.18017, 0.03485, 0.02638, 0.00050, 0.00000,
1583 + -0.00007, 0.00017, 0.00041,
1584 + 0.16046, 0.03051, 0.02003, 0.00027, 0.00000,
1585 + -0.00004, 0.00017, 0.00037,
1586 + 0.14426, 0.02711, 0.01573, 0.00027, 0.00004,
1587 + -0.00005, 0.00016, 0.00029,
1588 + 0.13100, 0.02431, 0.01268, 0.00018, 0.00005,
1589 + -0.00002, 0.00017, 0.00029,
1590 + 0.11959, 0.02202, 0.01044, 0.00023, 0.00005,
1591 + 0.00000, 0.00018, 0.00030,
1592 + 0.11008, 0.02006, 0.00875, 0.00018, 0.00007,
1593 + 0.00000, 0.00016, 0.00026 /
1594 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=8,14)/
1595 + 0.10181, 0.01839, 0.00744, 0.00015, 0.00006,
1596 + 0.00001, 0.00013, 0.00023,
1597 + 0.09456, 0.01695, 0.00641, 0.00012, 0.00007,
1598 + 0.00001, 0.00012, 0.00022,
1599 + 0.08820, 0.01569, 0.00558, 0.00010, 0.00007,
1600 + 0.00002, 0.00012, 0.00020,
1601 + 0.08254, 0.01458, 0.00490, 0.00011, 0.00006,
1602 + 0.00003, 0.00012, 0.00017,
1603 + 0.07741, 0.01360, 0.00436, 0.00014, 0.00007,
1604 + 0.00003, 0.00010, 0.00016,
1605 + 0.07295, 0.01271, 0.00390, 0.00008, 0.00006,
1606 + 0.00002, 0.00010, 0.00013,
1607 + 0.06890, 0.01193, 0.00351, 0.00005, 0.00005,
1608 + 0.00002, 0.00011, 0.00011 /
1609 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=15,19)/
1610 + 0.06518, 0.01124, 0.00318, 0.00007, 0.00005,
1611 + 0.00002, 0.00010, 0.00009,
1612 + 0.06177, 0.01060, 0.00290, 0.00007, 0.00006,
1613 + 0.00003, 0.00009, 0.00009,
1614 + 0.05868, 0.01003, 0.00266, 0.00007, 0.00006,
1615 + 0.00003, 0.00008, 0.00009,
1616 + 0.05590, 0.00950, 0.00244, 0.00003, 0.00005,
1617 + 0.00002, 0.00007, 0.00009,
1618 + 0.05333, 0.00902, 0.00226, 0.00002, 0.00005,
1619 + 0.00002, 0.00006, 0.00009 /
1620 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/
1621 + 0.17410, 0.03211, 0.02669, 0.00040, -0.00007,
1622 + -0.00011, 0.00007, 0.00030,
1623 + 0.15158, 0.02746, 0.01920, 0.00026, -0.00004,
1624 + -0.00008, 0.00009, 0.00025,
1625 + 0.13383, 0.02392, 0.01443, 0.00025, -0.00002,
1626 + -0.00005, 0.00006, 0.00023,
1627 + 0.11977, 0.02111, 0.01124, 0.00018, 0.00002,
1628 + -0.00005, 0.00007, 0.00021,
1629 + 0.10815, 0.01885, 0.00900, 0.00015, 0.00003,
1630 + -0.00004, 0.00008, 0.00017,
1631 + 0.09841, 0.01700, 0.00737, 0.00017, 0.00003,
1632 + -0.00003, 0.00008, 0.00014,
1633 + 0.09013, 0.01541, 0.00615, 0.00016, 0.00002,
1634 + -0.00003, 0.00007, 0.00010 /
1635 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=8,14)/
1636 + 0.08294, 0.01410, 0.00520, 0.00013, 0.00004,
1637 + -0.00001, 0.00007, 0.00011,
1638 + 0.07677, 0.01294, 0.00446, 0.00013, 0.00003,
1639 + 0.00000, 0.00007, 0.00011,
1640 + 0.07139, 0.01193, 0.00387, 0.00010, 0.00002,
1641 + 0.00000, 0.00007, 0.00010,
1642 + 0.06663, 0.01106, 0.00340, 0.00005, 0.00002,
1643 + 0.00000, 0.00007, 0.00010,
1644 + 0.06238, 0.01029, 0.00301, 0.00003, 0.00004,
1645 + 0.00001, 0.00008, 0.00010,
1646 + 0.05855, 0.00960, 0.00268, 0.00004, 0.00003,
1647 + 0.00001, 0.00006, 0.00010,
1648 + 0.05511, 0.00898, 0.00241, 0.00005, 0.00003,
1649 + 0.00001, 0.00005, 0.00009 /
1650 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=15,19)/
1651 + 0.05200, 0.00844, 0.00218, 0.00004, 0.00002,
1652 + 0.00001, 0.00005, 0.00008,
1653 + 0.04917, 0.00794, 0.00198, 0.00004, 0.00002,
1654 + 0.00000, 0.00005, 0.00008,
1655 + 0.04660, 0.00749, 0.00181, 0.00005, 0.00003,
1656 + 0.00000, 0.00005, 0.00007,
1657 + 0.04422, 0.00708, 0.00167, 0.00008, 0.00003,
1658 + 0.00001, 0.00005, 0.00006,
1659 + 0.04206, 0.00671, 0.00154, 0.00009, 0.00003,
1660 + 0.00002, 0.00005, 0.00005 /
1661 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,7)/
1662 + 0.14469, 0.02489, 0.01921, 0.00016, -0.00001,
1663 + -0.00003, 0.00007, 0.00020,
1664 + 0.12499, 0.02117, 0.01370, 0.00019, -0.00002,
1665 + -0.00004, 0.00005, 0.00015,
1666 + 0.10991, 0.01833, 0.01022, 0.00010, 0.00000,
1667 + -0.00005, 0.00002, 0.00010,
1668 + 0.09765, 0.01612, 0.00790, 0.00015, 0.00000,
1669 + -0.00002, 0.00004, 0.00010,
1670 + 0.08775, 0.01434, 0.00627, 0.00015, 0.00000,
1671 + -0.00002, 0.00004, 0.00005,
1672 + 0.07952, 0.01287, 0.00510, 0.00014, 0.00000,
1673 + -0.00001, 0.00003, 0.00007,
1674 + 0.07260, 0.01163, 0.00423, 0.00010, 0.00002,
1675 + -0.00002, 0.00003, 0.00005 /
1676 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=8,14)/
1677 + 0.06659, 0.01059, 0.00357, 0.00009, 0.00002,
1678 + 0.00000, 0.00004, 0.00007,
1679 + 0.06144, 0.00969, 0.00305, 0.00005, 0.00002,
1680 + 0.00000, 0.00004, 0.00008,
1681 + 0.05690, 0.00892, 0.00264, 0.00004, 0.00001,
1682 + -0.00001, 0.00003, 0.00007,
1683 + 0.05286, 0.00825, 0.00231, 0.00006, 0.00000,
1684 + -0.00001, 0.00002, 0.00006,
1685 + 0.04934, 0.00765, 0.00204, 0.00005, 0.00000,
1686 + -0.00001, 0.00001, 0.00005,
1687 + 0.04620, 0.00712, 0.00181, 0.00004, 0.00000,
1688 + 0.00000, 0.00001, 0.00006,
1689 + 0.04337, 0.00665, 0.00162, 0.00004, 0.00001,
1690 + 0.00000, 0.00002, 0.00007 /
1691 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=15,19)/
1692 + 0.04081, 0.00623, 0.00147, 0.00006, 0.00001,
1693 + 0.00001, 0.00002, 0.00005,
1694 + 0.03851, 0.00584, 0.00133, 0.00004, 0.00000,
1695 + 0.00000, 0.00001, 0.00005,
1696 + 0.03643, 0.00550, 0.00122, 0.00003, 0.00000,
1697 + -0.00001, 0.00000, 0.00005,
1698 + 0.03453, 0.00519, 0.00111, 0.00002, 0.00000,
1699 + -0.00001, 0.00001, 0.00004,
1700 + 0.03280, 0.00491, 0.00103, 0.00002, 0.00000,
1701 + -0.00001, 0.00001, 0.00004 /
1702 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,7)/
1703 + 0.09485, 0.01410, 0.00935, 0.00006, -0.00001,
1704 + 0.00000, 0.00001, 0.00002,
1705 + 0.08057, 0.01182, 0.00647, 0.00009, 0.00000,
1706 + -0.00002, 0.00000, 0.00002,
1707 + 0.06975, 0.01009, 0.00471, 0.00008, 0.00000,
1708 + -0.00001, 0.00003, 0.00001,
1709 + 0.06131, 0.00876, 0.00357, 0.00003, 0.00000,
1710 + -0.00001, 0.00002, 0.00002,
1711 + 0.05450, 0.00770, 0.00279, 0.00002, 0.00000,
1712 + -0.00001, 0.00001, 0.00002,
1713 + 0.04890, 0.00684, 0.00224, 0.00001, 0.00001,
1714 + 0.00000, 0.00002, 0.00001,
1715 + 0.04418, 0.00613, 0.00184, 0.00002, 0.00002,
1716 + 0.00000, 0.00002, 0.00001 /
1717 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=8,14)/
1718 + 0.04017, 0.00553, 0.00153, 0.00001, 0.00001,
1719 + 0.00000, 0.00002, 0.00001,
1720 + 0.03673, 0.00502, 0.00130, 0.00000, 0.00000,
1721 + 0.00000, 0.00001, 0.00003,
1722 + 0.03375, 0.00458, 0.00111, 0.00001, 0.00000,
1723 + 0.00000, 0.00001, 0.00003,
1724 + 0.03115, 0.00420, 0.00097, 0.00002, 0.00001,
1725 + 0.00000, 0.00001, 0.00001,
1726 + 0.02889, 0.00387, 0.00085, 0.00001, 0.00001,
1727 + 0.00000, 0.00002, 0.00001,
1728 + 0.02684, 0.00358, 0.00075, 0.00002, 0.00001,
1729 + 0.00000, 0.00001, 0.00000,
1730 + 0.02503, 0.00333, 0.00067, 0.00002, 0.00001,
1731 + 0.00000, 0.00001, 0.00000 /
1732 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=15,19)/
1733 + 0.02344, 0.00310, 0.00060, 0.00001, 0.00001,
1734 + 0.00000, 0.00001, 0.00000,
1735 + 0.02200, 0.00289, 0.00054, 0.00001, 0.00001,
1736 + 0.00000, 0.00000, 0.00000,
1737 + 0.02070, 0.00271, 0.00049, 0.00000, 0.00000,
1738 + 0.00000, 0.00000, 0.00000,
1739 + 0.01950, 0.00254, 0.00045, 0.00001, 0.00000,
1740 + 0.00000, 0.00001, 0.00000,
1741 + 0.01841, 0.00239, 0.00041, 0.00001, 0.00001,
1742 + 0.00001, 0.00001, 0.00001 /
1743 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,7)/
1744 + 0.05704, 0.00726, 0.00410, 0.00004, -0.00001,
1745 + -0.00002, -0.00001, -0.00001,
1746 + 0.04773, 0.00598, 0.00275, 0.00002, 0.00000,
1747 + 0.00000, 0.00001, 0.00000,
1748 + 0.04067, 0.00503, 0.00196, 0.00002, 0.00000,
1749 + -0.00001, 0.00001, 0.00000,
1750 + 0.03528, 0.00431, 0.00145, -0.00001, 0.00000,
1751 + -0.00001, 0.00001, 0.00002,
1752 + 0.03095, 0.00375, 0.00112, 0.00001, 0.00000,
1753 + 0.00000, 0.00000, 0.00001,
1754 + 0.02748, 0.00329, 0.00088, -0.00001, 0.00000,
1755 + -0.00001, 0.00000, 0.00000,
1756 + 0.02457, 0.00292, 0.00072, 0.00000, 0.00000,
1757 + 0.00000, 0.00000, 0.00000 /
1758 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=8,14)/
1759 + 0.02212, 0.00261, 0.00059, 0.00000, 0.00000,
1760 + 0.00000, 0.00000, 0.00001,
1761 + 0.02006, 0.00235, 0.00050, -0.00001, 0.00000,
1762 + 0.00000, 0.00000, 0.00001,
1763 + 0.01828, 0.00213, 0.00042, -0.00001, 0.00000,
1764 + 0.00000, 0.00000, 0.00001,
1765 + 0.01673, 0.00194, 0.00036, 0.00000, 0.00000,
1766 + 0.00000, 0.00000, 0.00001,
1767 + 0.01539, 0.00177, 0.00032, 0.00000, 0.00000,
1768 + 0.00000, 0.00000, 0.00000,
1769 + 0.01421, 0.00163, 0.00028, 0.00000, 0.00000,
1770 + 0.00000, 0.00000, 0.00000,
1771 + 0.01317, 0.00150, 0.00025, 0.00000, 0.00000,
1772 + 0.00000, 0.00000, 0.00000 /
1773 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=15,19)/
1774 + 0.01225, 0.00139, 0.00022, -0.00001, 0.00000,
1775 + 0.00000, 0.00000, 0.00000,
1776 + 0.01143, 0.00129, 0.00020, 0.00000, 0.00000,
1777 + 0.00000, 0.00000, 0.00000,
1778 + 0.01069, 0.00120, 0.00018, 0.00000, 0.00000,
1779 + 0.00000, 0.00000, 0.00000,
1780 + 0.01001, 0.00112, 0.00017, 0.00000, 0.00000,
1781 + 0.00000, 0.00000, 0.00000,
1782 + 0.00940, 0.00105, 0.00015, 0.00001, 0.00000,
1783 + 0.00000, 0.00000, 0.00000 /
1784 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,7)/
1785 + 0.03047, 0.00325, 0.00154, 0.00001, 0.00000,
1786 + 0.00000, 0.00000, 0.00000,
1787 + 0.02501, 0.00263, 0.00100, 0.00000, 0.00000,
1788 + -0.00001, -0.00001, 0.00000,
1789 + 0.02101, 0.00218, 0.00070, -0.00001, 0.00000,
1790 + 0.00000, 0.00000, 0.00000,
1791 + 0.01793, 0.00184, 0.00051, 0.00000, 0.00000,
1792 + 0.00000, 0.00000, 0.00000,
1793 + 0.01552, 0.00158, 0.00038, 0.00001, 0.00000,
1794 + 0.00000, 0.00000, 0.00001,
1795 + 0.01360, 0.00137, 0.00030, 0.00001, 0.00000,
1796 + 0.00000, 0.00000, 0.00000,
1797 + 0.01203, 0.00120, 0.00024, 0.00000, 0.00000,
1798 + 0.00000, 0.00000, 0.00000 /
1799 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=8,14)/
1800 + 0.01073, 0.00106, 0.00020, 0.00000, 0.00000,
1801 + 0.00000, 0.00000, 0.00000,
1802 + 0.00963, 0.00095, 0.00016, 0.00000, 0.00000,
1803 + 0.00000, 0.00000, 0.00000,
1804 + 0.00869, 0.00085, 0.00014, 0.00000, 0.00000,
1805 + 0.00000, 0.00000, 0.00000,
1806 + 0.00789, 0.00077, 0.00012, 0.00000, 0.00000,
1807 + 0.00000, 0.00000, 0.00000,
1808 + 0.00719, 0.00070, 0.00010, 0.00001, 0.00000,
1809 + 0.00000, 0.00000, 0.00000,
1810 + 0.00660, 0.00064, 0.00009, 0.00000, 0.00000,
1811 + 0.00000, 0.00000, 0.00000,
1812 + 0.00608, 0.00058, 0.00008, 0.00000, 0.00000,
1813 + 0.00000, 0.00000, 0.00000 /
1814 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=15,19)/
1815 + 0.00561, 0.00054, 0.00007, 0.00000, 0.00000,
1816 + 0.00000, 0.00000, 0.00000,
1817 + 0.00520, 0.00049, 0.00006, 0.00000, 0.00000,
1818 + 0.00000, 0.00000, 0.00000,
1819 + 0.00483, 0.00046, 0.00006, 0.00000, 0.00000,
1820 + 0.00000, 0.00000, 0.00000,
1821 + 0.00449, 0.00042, 0.00005, 0.00000, 0.00000,
1822 + 0.00000, 0.00000, 0.00000,
1823 + 0.00420, 0.00039, 0.00005, 0.00000, 0.00000,
1824 + 0.00000, 0.00000, 0.00000 /
1825 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,7)/
1826 + 0.01382, 0.00120, 0.00046, 0.00000, 0.00000,
1827 + 0.00000, 0.00000, 0.00000,
1828 + 0.01108, 0.00095, 0.00029, 0.00000, 0.00000,
1829 + 0.00000, 0.00000, 0.00000,
1830 + 0.00911, 0.00077, 0.00020, 0.00001, 0.00000,
1831 + 0.00000, 0.00000, 0.00000,
1832 + 0.00765, 0.00064, 0.00014, 0.00000, 0.00000,
1833 + 0.00000, 0.00000, 0.00000,
1834 + 0.00652, 0.00054, 0.00010, 0.00000, 0.00000,
1835 + 0.00000, 0.00000, 0.00000,
1836 + 0.00563, 0.00046, 0.00008, 0.00000, 0.00000,
1837 + 0.00000, 0.00000, 0.00000,
1838 + 0.00491, 0.00040, 0.00006, 0.00000, 0.00000,
1839 + 0.00000, 0.00000, 0.00000 /
1840 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=8,14)/
1841 + 0.00432, 0.00035, 0.00005, 0.00000, 0.00000,
1842 + 0.00000, 0.00000, 0.00000,
1843 + 0.00383, 0.00031, 0.00004, 0.00000, 0.00000,
1844 + 0.00000, 0.00000, 0.00000,
1845 + 0.00342, 0.00027, 0.00004, 0.00000, 0.00000,
1846 + 0.00000, 0.00000, 0.00000,
1847 + 0.00308, 0.00024, 0.00003, 0.00000, 0.00000,
1848 + 0.00000, 0.00000, 0.00000,
1849 + 0.00278, 0.00022, 0.00003, 0.00000, 0.00000,
1850 + 0.00000, 0.00000, 0.00000,
1851 + 0.00252, 0.00020, 0.00002, 0.00000, 0.00000,
1852 + 0.00000, 0.00000, 0.00000,
1853 + 0.00230, 0.00018, 0.00002, 0.00000, 0.00000,
1854 + 0.00000, 0.00000, 0.00000 /
1855 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=15,19)/
1856 + 0.00211, 0.00016, 0.00002, 0.00000, 0.00000,
1857 + 0.00000, 0.00000, 0.00000,
1858 + 0.00194, 0.00015, 0.00002, 0.00000, 0.00000,
1859 + 0.00000, 0.00000, 0.00000,
1860 + 0.00179, 0.00014, 0.00002, 0.00000, 0.00000,
1861 + 0.00000, 0.00000, 0.00000,
1862 + 0.00165, 0.00013, 0.00001, 0.00000, 0.00000,
1863 + 0.00000, 0.00000, 0.00000,
1864 + 0.00153, 0.00012, 0.00001, 0.00000, 0.00000,
1865 + 0.00000, 0.00000, 0.00000 /
1866 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,7)/
1867 + 0.00105, 0.00005, 0.00001, 0.00000, 0.00000,
1868 + 0.00000, 0.00000, 0.00000,
1869 + 0.00079, 0.00004, 0.00001, 0.00000, 0.00000,
1870 + 0.00000, 0.00000, 0.00000,
1871 + 0.00062, 0.00003, 0.00001, 0.00000, 0.00000,
1872 + 0.00000, 0.00000, 0.00000,
1873 + 0.00049, 0.00002, 0.00000, 0.00000, 0.00000,
1874 + 0.00000, 0.00000, 0.00000,
1875 + 0.00040, 0.00002, 0.00000, 0.00000, 0.00000,
1876 + 0.00000, 0.00000, 0.00000,
1877 + 0.00033, 0.00002, 0.00000, 0.00000, 0.00000,
1878 + 0.00000, 0.00000, 0.00000,
1879 + 0.00028, 0.00001, 0.00000, 0.00000, 0.00000,
1880 + 0.00000, 0.00000, 0.00000 /
1881 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=8,14)/
1882 + 0.00024, 0.00001, 0.00000, 0.00000, 0.00000,
1883 + 0.00000, 0.00000, 0.00000,
1884 + 0.00021, 0.00001, 0.00000, 0.00000, 0.00000,
1885 + 0.00000, 0.00000, 0.00000,
1886 + 0.00018, 0.00001, 0.00000, 0.00000, 0.00000,
1887 + 0.00000, 0.00000, 0.00000,
1888 + 0.00016, 0.00001, 0.00000, 0.00000, 0.00000,
1889 + 0.00000, 0.00000, 0.00000,
1890 + 0.00014, 0.00001, 0.00000, 0.00000, 0.00000,
1891 + 0.00000, 0.00000, 0.00000,
1892 + 0.00012, 0.00001, 0.00000, 0.00000, 0.00000,
1893 + 0.00000, 0.00000, 0.00000,
1894 + 0.00011, 0.00001, 0.00000, 0.00000, 0.00000,
1895 + 0.00000, 0.00000, 0.00000 /
1896 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=15,19)/
1897 + 0.00010, 0.00001, 0.00000, 0.00000, 0.00000,
1898 + 0.00000, 0.00000, 0.00000,
1899 + 0.00009, 0.00001, 0.00000, 0.00000, 0.00000,
1900 + 0.00000, 0.00000, 0.00000,
1901 + 0.00008, 0.00001, 0.00000, 0.00000, 0.00000,
1902 + 0.00000, 0.00000, 0.00000,
1903 + 0.00007, 0.00001, 0.00000, 0.00000, 0.00000,
1904 + 0.00000, 0.00000, 0.00000,
1905 + 0.00006, 0.00001, 0.00000, 0.00000, 0.00000,
1906 + 0.00000, 0.00000, 0.00000 /
1907 DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5,
1908 . 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4,
1909 . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3,
1910 . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2,
1911 . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0,
1912 . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0,
1913 . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0,
1914 . .8D0,.9D0,1.D0/
1915 DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/
1916 DATA N0/2,5,5,10,0,0,10,10/
1917 DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
1918 DATA INIT/0/
1919
1920
1921 XSAVE=X
1922
1923 IF(INIT.NE.0) GOTO 10
1924 INIT=1
1925 DO 20 N=1,NX-1
1926 DO 20 M=1,19
1927C READ(83,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),
1928C . F(6,N,M),F(8,N,M)
1929C 1=UV 2=DV 3=GLUE 4=UBAR 5=CBAR 7=BBAR 6=SBAR 8=DBAR
1930 DO 25 I=1,8
1931 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I)
1932 20 CONTINUE
1933 DO 31 J=1,NTENTH-1
1934 XX(J)= LOG10(XX(J))+ONEDO
1935 DO 31 I=1,8
1936 IF(I.EQ.7) GO TO 31
1937 DO 30 K=1,19
1938 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K))
1939 31 CONTINUE
1940 50 FORMAT(8F10.5)
1941 DO 40 I=1,8
1942 DO 40 M=1,19
1943 40 F(I,NX,M)=ZEROD
1944 10 CONTINUE
1945 IF(X.LT.XMIN) X=XMIN
1946 IF(X.GT.XMAX) X=XMAX
1947 QSQ=SCALE**2
1948 IF(QSQ.LT.QSQMIN) QSQ=QSQMIN
1949 IF(QSQ.GT.QSQMAX) QSQ=QSQMAX
1950 XXX=X
1951 IF(X.LT.PONED) XXX= LOG10(X)+ONEDO
1952 N=0
1953 70 N=N+1
1954 IF(XXX.GT.XX(N+1)) GOTO 70
1955 A=(XXX-XX(N))/(XX(N+1)-XX(N))
1956 RM= LOG(QSQ/QSQMIN)/ LOG(TWOD)
1957 B=RM-AINT(RM)
1958 M=1+ INT(RM)
1959 DO 60 I=1,8
1960 G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1)
1961 . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1)
1962 IF(N.GE.NTENTH) GOTO 65
1963 IF(I.EQ.7) GOTO 65
1964 FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1)
1965 G(I)=FAC**(G(I)/FAC)
1966 65 CONTINUE
1967 G(I)=G(I)*(ONED-X)**N0(I)
1968 60 CONTINUE
1969 UPV=G(1)
1970 DNV=G(2)
1971 USEA=G(4)
1972 DSEA=G(8)
1973 STR=G(6)
1974 CHM=G(5)
1975 GLU=G(3)
1976 BOT=G(7)
1977
1978 X=XSAVE
1979
1980 RETURN
1981 END