]> git.uio.no Git - u/mrichter/AliRoot.git/blame - PDF/spdf/sfdiss0.F
Default shish-kebab geometry for EMCAL
[u/mrichter/AliRoot.git] / PDF / spdf / sfdiss0.F
CommitLineData
21886bb6 1*
2* $Id$
3*
4* $Log$
5* Revision 1.1.1.2 1996/10/30 08:29:44 cernlib
6* Version 7.04
7*
8* Revision 1.1.1.1 1996/04/12 15:29:35 plothow
9* Version 7.01
10*
11*
12#include "pdf/pilot.h"
13 SUBROUTINE SFDISS0(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU)
14
15C THIS IS THE NEW B0-TYPE FIT "S0'" 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.01733, 0.00079, 4.29007, 0.46317, 0.06785,
24 + 0.00000, 0.26832, 0.46689,
25 + 0.01777, 0.00090, 10.96969, 0.64698, 0.25154,
26 + 0.00000, 0.45214, 0.65044,
27 + 0.01819, 0.00100, 19.87027, 0.88114, 0.48562,
28 + 0.00000, 0.68633, 0.88438,
29 + 0.01858, 0.00109, 30.53786, 1.16076, 0.76516,
30 + 0.00000, 0.96597, 1.16378,
31 + 0.01894, 0.00119, 42.94975, 1.48412, 1.08844,
32 + 0.07130, 1.28936, 1.48695,
33 + 0.01930, 0.00129, 56.89287, 1.84855, 1.45281,
34 + 0.40611, 1.65382, 1.85121,
35 + 0.01963, 0.00138, 72.20888, 2.25266, 1.85687,
36 + 0.83810, 2.05797, 2.25515 /
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.01995, 0.00148, 88.74004, 2.69380, 2.29795,
39 + 1.30203, 2.49913, 2.69614,
40 + 0.02026, 0.00156, 106.35173, 3.16932, 2.77343,
41 + 1.80186, 2.97468, 3.17151,
42 + 0.02056, 0.00165, 124.94041, 3.67720, 3.28127,
43 + 2.33410, 3.48260, 3.67926,
44 + 0.02084, 0.00174, 144.43050, 4.21585, 3.81988,
45 + 2.89732, 4.02129, 4.21778,
46 + 0.02112, 0.00182, 164.67508, 4.78220, 4.38619,
47 + 3.48814, 4.58766, 4.78400,
48 + 0.02139, 0.00192, 185.36879, 5.36963, 4.97359,
49 + 4.09972, 5.17514, 5.37133,
50 + 0.02166, 0.00200, 206.77844, 5.98353, 5.58747,
51 + 4.73755, 5.78907, 5.98512 /
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.02191, 0.00208, 228.74190, 6.62047, 6.22438,
54 + 5.39807, 6.42604, 6.62195,
55 + 0.02216, 0.00216, 250.89102, 7.27179, 6.87569,
56 + 6.07236, 7.07740, 7.27318,
57 + 0.02240, 0.00225, 273.72388, 7.94850, 7.55238,
58 + 6.77177, 7.75415, 7.94980,
59 + 0.02263, 0.00232, 296.51294, 8.63398, 8.23784,
60 + 7.47914, 8.43966, 8.63524,
61 + 0.02287, 0.00241, 319.87012, 9.34186, 8.94570,
62 + 8.20858, 9.14757, 9.34301 /
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.02186, 0.00133, 4.15525, 0.45567, 0.06315,
65 + 0.00000, 0.26117, 0.45787,
66 + 0.02247, 0.00149, 9.97353, 0.61785, 0.22549,
67 + 0.00000, 0.42346, 0.61985,
68 + 0.02302, 0.00165, 17.40932, 0.81862, 0.42641,
69 + 0.00000, 0.62433, 0.82044,
70 + 0.02353, 0.00180, 26.05307, 1.05278, 0.66072,
71 + 0.00000, 0.85859, 1.05443,
72 + 0.02401, 0.00195, 35.86687, 1.31822, 0.92630,
73 + 0.05842, 1.12414, 1.31974,
74 + 0.02448, 0.00209, 46.66591, 1.61230, 1.22052,
75 + 0.32968, 1.41834, 1.61370,
76 + 0.02491, 0.00223, 58.31685, 1.93355, 1.54190,
77 + 0.67492, 1.73969, 1.93482 /
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.02533, 0.00237, 70.69379, 2.27958, 1.88805,
80 + 1.04033, 2.08582, 2.28074,
81 + 0.02573, 0.00251, 83.69285, 2.64813, 2.25672,
82 + 1.42913, 2.45444, 2.64918,
83 + 0.02613, 0.00264, 97.23681, 3.03745, 2.64616,
84 + 1.83841, 2.84386, 3.03840,
85 + 0.02650, 0.00278, 111.27096, 3.44624, 3.05506,
86 + 2.26700, 3.25275, 3.44709,
87 + 0.02686, 0.00291, 125.68948, 3.87206, 3.48100,
88 + 2.71229, 3.67866, 3.87283,
89 + 0.02720, 0.00303, 140.27439, 4.30995, 3.91899,
90 + 3.16911, 4.11663, 4.31065,
91 + 0.02755, 0.00316, 155.22564, 4.76391, 4.37306,
92 + 3.64162, 4.57067, 4.76452 /
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.02788, 0.00328, 170.42950, 5.23139, 4.84064,
95 + 4.12717, 5.03822, 5.23192,
96 + 0.02819, 0.00341, 185.62791, 5.70599, 5.31534,
97 + 4.61919, 5.51290, 5.70646,
98 + 0.02850, 0.00353, 201.18077, 6.19587, 5.80532,
99 + 5.12611, 6.00286, 6.19627,
100 + 0.02881, 0.00365, 216.57878, 6.68886, 6.29841,
101 + 5.63539, 6.49594, 6.68921,
102 + 0.02910, 0.00376, 232.25762, 7.19497, 6.80463,
103 + 6.15741, 7.00213, 7.19528 /
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.02751, 0.00222, 4.02437, 0.44755, 0.05849,
106 + 0.00000, 0.25394, 0.44862,
107 + 0.02829, 0.00247, 9.06631, 0.58947, 0.20083,
108 + 0.00000, 0.39608, 0.59042,
109 + 0.02902, 0.00271, 15.24934, 0.76026, 0.37199,
110 + 0.00000, 0.56707, 0.76109,
111 + 0.02970, 0.00295, 22.21999, 0.95491, 0.56702,
112 + 0.00000, 0.76193, 0.95565,
113 + 0.03033, 0.00317, 29.94127, 1.17131, 0.78374,
114 + 0.04760, 0.97850, 1.17195,
115 + 0.03092, 0.00339, 38.26198, 1.40703, 1.01979,
116 + 0.26617, 1.21441, 1.40760,
117 + 0.03149, 0.00361, 47.07710, 1.66074, 1.27381,
118 + 0.54061, 1.46829, 1.66123 /
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.03203, 0.00382, 56.29138, 1.93044, 1.54379,
121 + 0.82692, 1.73814, 1.93085,
122 + 0.03255, 0.00402, 65.82938, 2.21426, 1.82790,
123 + 1.12776, 2.02212, 2.21461,
124 + 0.03305, 0.00423, 75.63731, 2.51083, 2.12475,
125 + 1.44084, 2.31885, 2.51113,
126 + 0.03353, 0.00442, 85.67871, 2.81913, 2.43332,
127 + 1.76527, 2.62730, 2.81938,
128 + 0.03400, 0.00462, 95.88033, 3.13733, 2.75177,
129 + 2.09910, 2.94564, 3.13750,
130 + 0.03444, 0.00481, 106.08917, 3.46172, 3.07641,
131 + 2.43852, 3.27017, 3.46186,
132 + 0.03487, 0.00500, 116.45706, 3.79532, 3.41025,
133 + 2.78668, 3.60390, 3.79541 /
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.03530, 0.00518, 126.90576, 4.13628, 3.75145,
136 + 3.14167, 3.94499, 4.13633,
137 + 0.03570, 0.00536, 137.25620, 4.47995, 4.09535,
138 + 3.49873, 4.28879, 4.47995,
139 + 0.03609, 0.00555, 147.76971, 4.83234, 4.44797,
140 + 3.86410, 4.64131, 4.83231,
141 + 0.03648, 0.00571, 158.09094, 5.18467, 4.80051,
142 + 4.22873, 4.99375, 5.18460,
143 + 0.03685, 0.00589, 168.53088, 5.54422, 5.16028,
144 + 4.60020, 5.35343, 5.54412 /
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.03140, 0.00299, 3.94949, 0.44243, 0.05576,
147 + 0.00000, 0.24964, 0.44302,
148 + 0.03233, 0.00332, 8.57318, 0.57309, 0.18700,
149 + 0.00000, 0.38060, 0.57360,
150 + 0.03317, 0.00363, 14.10938, 0.72779, 0.34224,
151 + 0.00000, 0.53558, 0.72822,
152 + 0.03395, 0.00392, 20.23964, 0.90180, 0.51673,
153 + 0.00000, 0.70983, 0.90217,
154 + 0.03469, 0.00421, 26.93188, 1.09307, 0.70846,
155 + 0.04209, 0.90134, 1.09339,
156 + 0.03537, 0.00449, 34.05507, 1.29941, 0.91524,
157 + 0.23417, 1.10791, 1.29967,
158 + 0.03603, 0.00477, 41.52043, 1.51959, 1.13586,
159 + 0.47344, 1.32832, 1.51980 /
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.03667, 0.00503, 49.24931, 1.75186, 1.36853,
162 + 0.72097, 1.56080, 1.75203,
163 + 0.03726, 0.00529, 57.18089, 1.99461, 1.61168,
164 + 0.97916, 1.80376, 1.99475,
165 + 0.03783, 0.00555, 65.27330, 2.24667, 1.86411,
166 + 1.24606, 2.05602, 2.24678,
167 + 0.03839, 0.00581, 73.49934, 2.50718, 2.12497,
168 + 1.52094, 2.31670, 2.50724,
169 + 0.03893, 0.00605, 81.80083, 2.77459, 2.39273,
170 + 1.80219, 2.58429, 2.77462,
171 + 0.03944, 0.00629, 90.05473, 3.04582, 2.66430,
172 + 2.08664, 2.85570, 3.04582,
173 + 0.03994, 0.00652, 98.39052, 3.32346, 2.94226,
174 + 2.37699, 3.13351, 3.32343 /
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.04042, 0.00675, 106.74629, 3.60596, 3.22508,
177 + 2.67168, 3.41617, 3.60591,
178 + 0.04089, 0.00699, 114.97829, 3.88949, 3.50894,
179 + 2.96679, 3.69988, 3.88943,
180 + 0.04134, 0.00721, 123.30288, 4.17912, 3.79886,
181 + 3.26757, 3.98966, 4.17902,
182 + 0.04178, 0.00742, 131.43360, 4.46755, 4.08758,
183 + 3.56652, 4.27824, 4.46743,
184 + 0.04221, 0.00764, 139.62537, 4.76089, 4.38122,
185 + 3.87001, 4.57173, 4.76075 /
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.03447, 0.00370, 3.89704, 0.43859, 0.05382,
188 + 0.00000, 0.24655, 0.43894,
189 + 0.03550, 0.00408, 8.23885, 0.56152, 0.17745,
190 + 0.00000, 0.36983, 0.56181,
191 + 0.03643, 0.00445, 13.35069, 0.70540, 0.32198,
192 + 0.00000, 0.51403, 0.70564,
193 + 0.03730, 0.00480, 18.93910, 0.86576, 0.48294,
194 + 0.00000, 0.67470, 0.86597,
195 + 0.03812, 0.00515, 24.97672, 1.04064, 0.65838,
196 + 0.03852, 0.84986, 1.04080,
197 + 0.03888, 0.00548, 31.34653, 1.22802, 0.84630,
198 + 0.21350, 1.03751, 1.22815,
199 + 0.03961, 0.00581, 37.97078, 1.42677, 1.04555,
200 + 0.43028, 1.23651, 1.42687 /
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.04030, 0.00612, 44.78175, 1.63530, 1.25457,
203 + 0.65319, 1.44529, 1.63537,
204 + 0.04096, 0.00643, 51.72809, 1.85217, 1.47192,
205 + 0.88451, 1.66241, 1.85223,
206 + 0.04160, 0.00674, 58.77548, 2.07636, 1.69655,
207 + 1.12249, 1.88683, 2.07640,
208 + 0.04221, 0.00703, 65.90230, 2.30709, 1.92772,
209 + 1.36652, 2.11779, 2.30711,
210 + 0.04280, 0.00732, 73.05998, 2.54304, 2.16409,
211 + 1.61519, 2.35395, 2.54305,
212 + 0.04337, 0.00761, 80.14357, 2.78151, 2.40296,
213 + 1.86575, 2.59261, 2.78150,
214 + 0.04392, 0.00788, 87.26857, 3.02479, 2.64663,
215 + 2.12062, 2.83610, 3.02476 /
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.04444, 0.00815, 94.38304, 3.27156, 2.89377,
218 + 2.37844, 3.08306, 3.27151,
219 + 0.04496, 0.00842, 101.36421, 3.51848, 3.14107,
220 + 2.63584, 3.33017, 3.51842,
221 + 0.04546, 0.00868, 108.40167, 3.77000, 3.39296,
222 + 2.89741, 3.58188, 3.76994,
223 + 0.04595, 0.00894, 115.24945, 4.01979, 3.64310,
224 + 3.15667, 3.83185, 4.01972,
225 + 0.04641, 0.00919, 122.12920, 4.27322, 3.89686,
226 + 3.41918, 4.08545, 4.27313 /
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.03705, 0.00435, 3.85671, 0.43552, 0.05231,
229 + 0.00000, 0.24411, 0.43571,
230 + 0.03816, 0.00480, 7.98792, 0.55257, 0.17023,
231 + 0.00000, 0.36158, 0.55273,
232 + 0.03917, 0.00522, 12.78898, 0.68841, 0.30683,
233 + 0.00000, 0.49780, 0.68854,
234 + 0.04010, 0.00562, 17.98566, 0.83871, 0.45786,
235 + 0.00000, 0.64847, 0.83881,
236 + 0.04098, 0.00601, 23.55469, 1.00164, 0.62147,
237 + 0.03592, 0.81174, 1.00172,
238 + 0.04181, 0.00639, 29.38963, 1.17530, 0.79576,
239 + 0.19855, 0.98572, 1.17537,
240 + 0.04260, 0.00676, 35.42102, 1.35865, 0.97971,
241 + 0.39916, 1.16938, 1.35870 /
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.04335, 0.00713, 41.58891, 1.55022, 1.17186,
244 + 0.60449, 1.36125, 1.55027,
245 + 0.04407, 0.00748, 47.84892, 1.74872, 1.37090,
246 + 0.81671, 1.56001, 1.74875,
247 + 0.04475, 0.00782, 54.17197, 1.95319, 1.57589,
248 + 1.03422, 1.76475, 1.95322,
249 + 0.04541, 0.00816, 60.54033, 2.16297, 1.78617,
250 + 1.25652, 1.97479, 2.16299,
251 + 0.04604, 0.00848, 66.91216, 2.37685, 2.00054,
252 + 1.48234, 2.18891, 2.37686,
253 + 0.04665, 0.00880, 73.19493, 2.59240, 2.21656,
254 + 1.70920, 2.40470, 2.59241,
255 + 0.04724, 0.00911, 79.49432, 2.81174, 2.43635,
256 + 1.93933, 2.62427, 2.81174 /
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.04781, 0.00943, 85.76529, 3.03369, 2.65873,
259 + 2.17155, 2.84643, 3.03368,
260 + 0.04837, 0.00972, 91.89941, 3.25525, 2.88071,
261 + 2.40281, 3.06821, 3.25524,
262 + 0.04890, 0.01002, 98.06761, 3.48046, 3.10632,
263 + 2.63730, 3.29362, 3.48044,
264 + 0.04943, 0.01031, 104.05170, 3.70361, 3.32989,
265 + 2.86919, 3.51699, 3.70360,
266 + 0.04993, 0.01059, 110.05058, 3.92959, 3.55624,
267 + 3.10353, 3.74316, 3.92957 /
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.04617, 0.00719, 3.73301, 0.42494, 0.04753,
270 + 0.00000, 0.23618, 0.42491,
271 + 0.04757, 0.00787, 7.25156, 0.52456, 0.14833,
272 + 0.00000, 0.33638, 0.52454,
273 + 0.04884, 0.00851, 11.17987, 0.63710, 0.26195,
274 + 0.00000, 0.44946, 0.63709,
275 + 0.05003, 0.00912, 15.30139, 0.75899, 0.38485,
276 + 0.00000, 0.57186, 0.75902,
277 + 0.05113, 0.00971, 19.60672, 0.88872, 0.51550,
278 + 0.02874, 0.70205, 0.88877,
279 + 0.05217, 0.01028, 24.02007, 1.02478, 0.65245,
280 + 0.15752, 0.83856, 1.02486,
281 + 0.05316, 0.01084, 28.49510, 1.16640, 0.79491,
282 + 0.31428, 0.98060, 1.16650 /
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.05411, 0.01138, 32.99355, 1.31251, 0.94180,
285 + 0.47242, 1.12711, 1.31262,
286 + 0.05501, 0.01190, 37.48895, 1.46213, 1.09217,
287 + 0.63383, 1.27711, 1.46226,
288 + 0.05587, 0.01241, 41.96594, 1.61460, 1.24538,
289 + 0.79737, 1.42995, 1.61476,
290 + 0.05669, 0.01291, 46.41725, 1.76949, 1.40095,
291 + 0.96273, 1.58517, 1.76965,
292 + 0.05749, 0.01339, 50.81726, 1.92594, 1.55807,
293 + 1.12906, 1.74196, 1.92613,
294 + 0.05826, 0.01386, 55.10451, 2.08227, 1.71502,
295 + 1.29465, 1.89861, 2.08246,
296 + 0.05900, 0.01431, 59.35997, 2.24004, 1.87341,
297 + 1.46118, 2.05668, 2.24024 /
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.05971, 0.01476, 63.55490, 2.39847, 2.03245,
300 + 1.62788, 2.21542, 2.39869,
301 + 0.06040, 0.01519, 67.61636, 2.55546, 2.19000,
302 + 1.79261, 2.37269, 2.55569,
303 + 0.06108, 0.01562, 71.66826, 2.71396, 2.34906,
304 + 1.95847, 2.53147, 2.71421,
305 + 0.06173, 0.01603, 75.56110, 2.86995, 2.50560,
306 + 2.12134, 2.68774, 2.87022,
307 + 0.06236, 0.01644, 79.43605, 3.02695, 2.66313,
308 + 2.28489, 2.84500, 3.02723 /
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.05724, 0.01180, 3.61060, 0.41244, 0.04254,
311 + 0.00000, 0.22740, 0.41242,
312 + 0.05898, 0.01282, 6.57201, 0.49574, 0.12734,
313 + 0.00000, 0.31146, 0.49577,
314 + 0.06057, 0.01380, 9.74883, 0.58745, 0.22041,
315 + 0.00000, 0.40385, 0.58750,
316 + 0.06204, 0.01472, 12.97729, 0.68475, 0.31899,
317 + 0.00000, 0.50180, 0.68485,
318 + 0.06340, 0.01560, 16.26187, 0.78648, 0.42191,
319 + 0.02274, 0.60414, 0.78662,
320 + 0.06469, 0.01645, 19.55322, 0.89152, 0.52806,
321 + 0.12360, 0.70974, 0.89170,
322 + 0.06592, 0.01727, 22.82423, 0.99932, 0.63694,
323 + 0.24474, 0.81808, 0.99952 /
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.06710, 0.01807, 26.05367, 1.10912, 0.74776,
326 + 0.36517, 0.92840, 1.10936,
327 + 0.06822, 0.01885, 29.22864, 1.22027, 0.85987,
328 + 0.48654, 1.04003, 1.22053,
329 + 0.06929, 0.01959, 32.34377, 1.33232, 0.97285,
330 + 0.60806, 1.15255, 1.33261,
331 + 0.07032, 0.02031, 35.39905, 1.44500, 1.08642,
332 + 0.72962, 1.26568, 1.44532,
333 + 0.07131, 0.02101, 38.38046, 1.55777, 1.20004,
334 + 0.85067, 1.37888, 1.55811,
335 + 0.07226, 0.02169, 41.24855, 1.66944, 1.31254,
336 + 0.97003, 1.49096, 1.66981,
337 + 0.07318, 0.02236, 44.06503, 1.78122, 1.42511,
338 + 1.08903, 1.60314, 1.78160 /
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.07407, 0.02299, 46.81233, 1.89259, 1.53725,
341 + 1.20716, 1.71490, 1.89300,
342 + 0.07494, 0.02362, 49.44273, 2.00210, 1.64751,
343 + 1.32297, 1.82477, 2.00253,
344 + 0.07577, 0.02423, 52.04507, 2.11192, 1.75804,
345 + 1.43873, 1.93496, 2.11235,
346 + 0.07657, 0.02482, 54.51849, 2.21922, 1.86604,
347 + 1.55156, 2.04260, 2.21968,
348 + 0.07736, 0.02541, 56.96199, 2.32655, 1.97406,
349 + 1.66414, 2.15028, 2.32703 /
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.06478, 0.01572, 3.53868, 0.40397, 0.03947,
352 + 0.00000, 0.22167, 0.40399,
353 + 0.06673, 0.01701, 6.19576, 0.47825, 0.11548,
354 + 0.00000, 0.29683, 0.47830,
355 + 0.06853, 0.01825, 8.97954, 0.55882, 0.19762,
356 + 0.00000, 0.37820, 0.55892,
357 + 0.07019, 0.01942, 11.75466, 0.64334, 0.28360,
358 + 0.00000, 0.46345, 0.64346,
359 + 0.07173, 0.02052, 14.53299, 0.73080, 0.37242,
360 + 0.01969, 0.55161, 0.73096,
361 + 0.07320, 0.02159, 17.27850, 0.82028, 0.46318,
362 + 0.10654, 0.64174, 0.82047,
363 + 0.07459, 0.02263, 19.97362, 0.91136, 0.55548,
364 + 0.21002, 0.73344, 0.91156 /
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.07592, 0.02363, 22.60497, 1.00344, 0.64873,
367 + 0.31199, 0.82610, 1.00367,
368 + 0.07718, 0.02458, 25.16585, 1.09600, 0.74240,
369 + 0.41398, 0.91923, 1.09625,
370 + 0.07840, 0.02550, 27.65526, 1.18873, 0.83619,
371 + 0.51538, 1.01248, 1.18899,
372 + 0.07956, 0.02641, 30.07607, 1.28140, 0.92989,
373 + 0.61614, 1.10569, 1.28170,
374 + 0.08069, 0.02727, 32.41937, 1.37364, 1.02310,
375 + 0.71586, 1.19841, 1.37395,
376 + 0.08177, 0.02810, 34.65535, 1.46448, 1.11489,
377 + 0.81364, 1.28973, 1.46481,
378 + 0.08281, 0.02892, 36.83626, 1.55496, 1.20628,
379 + 0.91060, 1.38067, 1.55531 /
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.08381, 0.02970, 38.94960, 1.64468, 1.29688,
382 + 1.00637, 1.47083, 1.64505,
383 + 0.08479, 0.03046, 40.95848, 1.73249, 1.38554,
384 + 1.09978, 1.55907, 1.73286,
385 + 0.08573, 0.03122, 42.93570, 1.82018, 1.47406,
386 + 1.19277, 1.64717, 1.82057,
387 + 0.08666, 0.03194, 44.80157, 1.90548, 1.56016,
388 + 1.28298, 1.73287, 1.90589,
389 + 0.08755, 0.03264, 46.63640, 1.99050, 1.64595,
390 + 1.37264, 1.81828, 1.99091 /
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.07065, 0.01922, 3.48702, 0.39740, 0.03723,
393 + 0.00000, 0.21731, 0.39740,
394 + 0.07277, 0.02077, 5.93614, 0.46554, 0.10727,
395 + 0.00000, 0.28641, 0.46556,
396 + 0.07471, 0.02223, 8.45852, 0.53870, 0.18218,
397 + 0.00000, 0.36047, 0.53874,
398 + 0.07652, 0.02359, 10.93790, 0.61483, 0.25993,
399 + 0.00000, 0.43742, 0.61489,
400 + 0.07822, 0.02490, 13.39093, 0.69305, 0.33966,
401 + 0.01772, 0.51640, 0.69314,
402 + 0.07981, 0.02615, 15.79024, 0.77254, 0.42056,
403 + 0.09552, 0.59662, 0.77264,
404 + 0.08134, 0.02735, 18.12395, 0.85298, 0.50237,
405 + 0.18770, 0.67774, 0.85310 /
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.08279, 0.02852, 20.38364, 0.93387, 0.58454,
408 + 0.27795, 0.75929, 0.93400,
409 + 0.08418, 0.02964, 22.56622, 1.01477, 0.66666,
410 + 0.36771, 0.84080, 1.01491,
411 + 0.08550, 0.03070, 24.67316, 1.09543, 0.74849,
412 + 0.45649, 0.92205, 1.09559,
413 + 0.08678, 0.03173, 26.70900, 1.17570, 0.82989,
414 + 0.54429, 1.00289, 1.17588,
415 + 0.08801, 0.03273, 28.66769, 1.25524, 0.91051,
416 + 0.63080, 1.08298, 1.25543,
417 + 0.08919, 0.03370, 30.52516, 1.33327, 0.98959,
418 + 0.71525, 1.16153, 1.33347,
419 + 0.09033, 0.03464, 32.32776, 1.41071, 1.06803,
420 + 0.79868, 1.23947, 1.41092 /
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.09144, 0.03554, 34.06572, 1.48724, 1.14552,
423 + 0.88078, 1.31649, 1.48745,
424 + 0.09250, 0.03641, 35.70857, 1.56185, 1.22108,
425 + 0.96057, 1.39158, 1.56208,
426 + 0.09354, 0.03727, 37.31926, 1.63615, 1.29628,
427 + 1.03973, 1.46634, 1.63638,
428 + 0.09453, 0.03810, 38.83084, 1.70817, 1.36920,
429 + 1.11628, 1.53880, 1.70843,
430 + 0.09551, 0.03891, 40.31206, 1.77977, 1.44164,
431 + 1.19213, 1.61083, 1.78002 /
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.07575, 0.02246, 3.44586, 0.39158, 0.03547,
434 + 0.00000, 0.21354, 0.39165,
435 + 0.07804, 0.02421, 5.73444, 0.45514, 0.10115,
436 + 0.00000, 0.27817, 0.45524,
437 + 0.08014, 0.02585, 8.05824, 0.52284, 0.17080,
438 + 0.00000, 0.34685, 0.52297,
439 + 0.08208, 0.02740, 10.31600, 0.59281, 0.24258,
440 + 0.00000, 0.41773, 0.59296,
441 + 0.08389, 0.02887, 12.52815, 0.66427, 0.31570,
442 + 0.01627, 0.49003, 0.66444,
443 + 0.08562, 0.03028, 14.67377, 0.73650, 0.38952,
444 + 0.08748, 0.56306, 0.73671,
445 + 0.08726, 0.03163, 16.74510, 0.80921, 0.46371,
446 + 0.17143, 0.63653, 0.80943 /
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.08883, 0.03293, 18.73683, 0.88200, 0.53791,
449 + 0.25319, 0.71003, 0.88223,
450 + 0.09032, 0.03417, 20.64867, 0.95449, 0.61176,
451 + 0.33414, 0.78321, 0.95475,
452 + 0.09175, 0.03537, 22.48331, 1.02648, 0.68504,
453 + 0.41384, 0.85585, 1.02675,
454 + 0.09312, 0.03652, 24.24609, 1.09785, 0.75764,
455 + 0.49234, 0.92784, 1.09813,
456 + 0.09443, 0.03763, 25.93327, 1.16834, 0.82932,
457 + 0.56942, 0.99893, 1.16864,
458 + 0.09571, 0.03870, 27.52582, 1.23724, 0.89936,
459 + 0.64439, 1.06840, 1.23756,
460 + 0.09694, 0.03973, 29.06483, 1.30540, 0.96862,
461 + 0.71820, 1.13712, 1.30574 /
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.09812, 0.04073, 30.54247, 1.37257, 1.03683,
464 + 0.79061, 1.20481, 1.37290,
465 + 0.09927, 0.04170, 31.93173, 1.43787, 1.10316,
466 + 0.86079, 1.27063, 1.43822,
467 + 0.10038, 0.04264, 33.28932, 1.50274, 1.16901,
468 + 0.93022, 1.33599, 1.50309,
469 + 0.10146, 0.04355, 34.55812, 1.56545, 1.23268,
470 + 0.99719, 1.39919, 1.56581,
471 + 0.10251, 0.04444, 35.79784, 1.62763, 1.29579,
472 + 1.06338, 1.46183, 1.62801 /
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.09387, 0.03612, 3.31354, 0.37050, 0.02961,
475 + 0.00000, 0.20010, 0.37051,
476 + 0.09673, 0.03868, 5.13062, 0.42065, 0.08251,
477 + 0.00000, 0.25164, 0.42070,
478 + 0.09937, 0.04107, 6.89413, 0.47280, 0.13715,
479 + 0.00000, 0.30504, 0.47285,
480 + 0.10183, 0.04329, 8.54430, 0.52555, 0.19221,
481 + 0.00000, 0.35895, 0.52563,
482 + 0.10412, 0.04538, 10.11025, 0.57841, 0.24719,
483 + 0.01230, 0.41289, 0.57850,
484 + 0.10631, 0.04737, 11.58706, 0.63089, 0.30168,
485 + 0.06555, 0.46640, 0.63101,
486 + 0.10839, 0.04925, 12.97707, 0.68288, 0.35558,
487 + 0.12737, 0.51934, 0.68302 /
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.11037, 0.05105, 14.28305, 0.73416, 0.40865,
490 + 0.18654, 0.57152, 0.73430,
491 + 0.11225, 0.05276, 15.51007, 0.78453, 0.46073,
492 + 0.24425, 0.62275, 0.78469,
493 + 0.11407, 0.05440, 16.66443, 0.83390, 0.51173,
494 + 0.30027, 0.67295, 0.83408,
495 + 0.11581, 0.05596, 17.75340, 0.88226, 0.56164,
496 + 0.35474, 0.72209, 0.88245,
497 + 0.11747, 0.05746, 18.77751, 0.92949, 0.61036,
498 + 0.40758, 0.77007, 0.92968,
499 + 0.11907, 0.05890, 19.72649, 0.97514, 0.65743,
500 + 0.45838, 0.81643, 0.97533,
501 + 0.12062, 0.06028, 20.63014, 1.01983, 0.70350,
502 + 0.50786, 0.86182, 1.02003 /
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.12211, 0.06161, 21.48483, 1.06344, 0.74843,
505 + 0.55592, 0.90609, 1.06366,
506 + 0.12355, 0.06288, 22.27466, 1.10543, 0.79170,
507 + 0.60203, 0.94872, 1.10566,
508 + 0.12494, 0.06412, 23.03784, 1.14680, 0.83429,
509 + 0.64727, 0.99071, 1.14702,
510 + 0.12629, 0.06531, 23.73854, 1.18640, 0.87508,
511 + 0.69048, 1.03091, 1.18663,
512 + 0.12760, 0.06647, 24.41621, 1.22538, 0.91521,
513 + 0.73287, 1.07046, 1.22562 /
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.11706, 0.05734, 3.16801, 0.34287, 0.02313,
516 + 0.00002, 0.18302, 0.34292,
517 + 0.12074, 0.06097, 4.54812, 0.38102, 0.06471,
518 + 0.00002, 0.22291, 0.38110,
519 + 0.12415, 0.06430, 5.82263, 0.41969, 0.10652,
520 + 0.00001, 0.26316, 0.41980,
521 + 0.12732, 0.06736, 6.96601, 0.45791, 0.14759,
522 + 0.00002, 0.30282, 0.45805,
523 + 0.13030, 0.07020, 8.01228, 0.49543, 0.18776,
524 + 0.00905, 0.34167, 0.49559,
525 + 0.13310, 0.07286, 8.96691, 0.53194, 0.22675,
526 + 0.04768, 0.37944, 0.53212,
527 + 0.13578, 0.07537, 9.83846, 0.56743, 0.26459,
528 + 0.09177, 0.41611, 0.56762 /
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.13833, 0.07772, 10.63628, 0.60187, 0.30123,
531 + 0.13317, 0.45165, 0.60207,
532 + 0.14075, 0.07995, 11.36589, 0.63516, 0.33661,
533 + 0.17288, 0.48600, 0.63537,
534 + 0.14305, 0.08205, 12.03519, 0.66731, 0.37076,
535 + 0.21083, 0.51915, 0.66752,
536 + 0.14526, 0.08405, 12.65259, 0.69835, 0.40370,
537 + 0.24719, 0.55115, 0.69857,
538 + 0.14737, 0.08596, 13.22074, 0.72824, 0.43538,
539 + 0.28195, 0.58194, 0.72846,
540 + 0.14941, 0.08775, 13.73528, 0.75676, 0.46564,
541 + 0.31496, 0.61134, 0.75699,
542 + 0.15136, 0.08947, 14.21533, 0.78438, 0.49494,
543 + 0.34675, 0.63980, 0.78463 /
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.15324, 0.09113, 14.65937, 0.81104, 0.52319,
546 + 0.37729, 0.66726, 0.81130,
547 + 0.15504, 0.09270, 15.06073, 0.83635, 0.55004,
548 + 0.40621, 0.69334, 0.83660,
549 + 0.15678, 0.09422, 15.44333, 0.86105, 0.57622,
550 + 0.43431, 0.71878, 0.86130,
551 + 0.15847, 0.09567, 15.78525, 0.88444, 0.60104,
552 + 0.46089, 0.74289, 0.88469,
553 + 0.16010, 0.09706, 16.11134, 0.90725, 0.62524,
554 + 0.48672, 0.76639, 0.90751 /
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.13371, 0.07456, 3.07186, 0.32337, 0.01902,
557 + 0.00001, 0.17120, 0.32337,
558 + 0.13806, 0.07890, 4.21376, 0.35516, 0.05469,
559 + 0.00003, 0.20495, 0.35520,
560 + 0.14207, 0.08286, 5.23497, 0.38687, 0.08993,
561 + 0.00001, 0.23843, 0.38693,
562 + 0.14580, 0.08643, 6.12600, 0.41776, 0.12404,
563 + 0.00003, 0.27096, 0.41783,
564 + 0.14927, 0.08973, 6.92145, 0.44766, 0.15690,
565 + 0.00743, 0.30235, 0.44775,
566 + 0.15258, 0.09279, 7.63109, 0.47636, 0.18839,
567 + 0.03887, 0.33246, 0.47647,
568 + 0.15569, 0.09563, 8.26689, 0.50392, 0.21855,
569 + 0.07437, 0.36133, 0.50404 /
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.15864, 0.09831, 8.83561, 0.53036, 0.24745,
572 + 0.10729, 0.38899, 0.53048,
573 + 0.16145, 0.10080, 9.34709, 0.55563, 0.27505,
574 + 0.13852, 0.41544, 0.55576,
575 + 0.16412, 0.10315, 9.80844, 0.57980, 0.30144,
576 + 0.16808, 0.44073, 0.57994,
577 + 0.16667, 0.10538, 10.22624, 0.60294, 0.32668,
578 + 0.19616, 0.46492, 0.60308,
579 + 0.16909, 0.10747, 10.60383, 0.62501, 0.35076,
580 + 0.22278, 0.48800, 0.62518,
581 + 0.17140, 0.10944, 10.93835, 0.64585, 0.37350,
582 + 0.24780, 0.50980, 0.64601,
583 + 0.17364, 0.11131, 11.24630, 0.66588, 0.39536,
584 + 0.27170, 0.53073, 0.66603 /
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.17577, 0.11309, 11.52735, 0.68504, 0.41628,
587 + 0.29450, 0.55078, 0.68520,
588 + 0.17781, 0.11478, 11.77610, 0.70310, 0.43603,
589 + 0.31595, 0.56967, 0.70327,
590 + 0.17980, 0.11641, 12.01053, 0.72060, 0.45516,
591 + 0.33667, 0.58800, 0.72078,
592 + 0.18168, 0.11795, 12.21411, 0.73700, 0.47314,
593 + 0.35608, 0.60518, 0.73719,
594 + 0.18352, 0.11943, 12.40637, 0.75291, 0.49056,
595 + 0.37485, 0.62186, 0.75310 /
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.14743, 0.08941, 2.99614, 0.30777, 0.01596,
598 + 0.00001, 0.16188, 0.30779,
599 + 0.15235, 0.09428, 3.97682, 0.33534, 0.04777,
600 + 0.00002, 0.19159, 0.33541,
601 + 0.15689, 0.09867, 4.83251, 0.36253, 0.07876,
602 + 0.00001, 0.22070, 0.36262,
603 + 0.16110, 0.10260, 5.56287, 0.38870, 0.10841,
604 + 0.00003, 0.24862, 0.38881,
605 + 0.16501, 0.10620, 6.20227, 0.41377, 0.13666,
606 + 0.00640, 0.27529, 0.41389,
607 + 0.16870, 0.10949, 6.76239, 0.43757, 0.16346,
608 + 0.03328, 0.30059, 0.43770,
609 + 0.17219, 0.11254, 7.25574, 0.46018, 0.18887,
610 + 0.06340, 0.32461, 0.46034 /
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.17546, 0.11539, 7.68960, 0.48168, 0.21301,
613 + 0.09107, 0.34743, 0.48182,
614 + 0.17857, 0.11803, 8.07348, 0.50206, 0.23588,
615 + 0.11709, 0.36907, 0.50221,
616 + 0.18153, 0.12050, 8.41432, 0.52140, 0.25758,
617 + 0.14155, 0.38958, 0.52155,
618 + 0.18434, 0.12282, 8.71826, 0.53976, 0.27817,
619 + 0.16461, 0.40907, 0.53992,
620 + 0.18699, 0.12500, 8.98860, 0.55715, 0.29770,
621 + 0.18633, 0.42753, 0.55732,
622 + 0.18953, 0.12704, 9.22349, 0.57343, 0.31602,
623 + 0.20660, 0.44483, 0.57360,
624 + 0.19196, 0.12897, 9.43674, 0.58896, 0.33350,
625 + 0.22585, 0.46134, 0.58914 /
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.19429, 0.13080, 9.62837, 0.60375, 0.35014,
628 + 0.24411, 0.47705, 0.60392,
629 + 0.19651, 0.13251, 9.79422, 0.61755, 0.36574,
630 + 0.26118, 0.49175, 0.61774,
631 + 0.19866, 0.13416, 9.94882, 0.63087, 0.38079,
632 + 0.27759, 0.50593, 0.63107,
633 + 0.20070, 0.13572, 10.07921, 0.64326, 0.39483,
634 + 0.29288, 0.51914, 0.64345,
635 + 0.20267, 0.13721, 10.20098, 0.65522, 0.40839,
636 + 0.30760, 0.53190, 0.65539 /
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.15902, 0.10267, 2.93193, 0.29486, 0.01357,
639 + 0.00003, 0.15442, 0.29492,
640 + 0.16452, 0.10793, 3.79241, 0.31936, 0.04262,
641 + 0.00003, 0.18121, 0.31944,
642 + 0.16959, 0.11262, 4.52823, 0.34328, 0.07064,
643 + 0.00004, 0.20717, 0.34341,
644 + 0.17423, 0.11680, 5.14390, 0.36609, 0.09714,
645 + 0.00004, 0.23181, 0.36619,
646 + 0.17855, 0.12057, 5.67441, 0.38770, 0.12217,
647 + 0.00567, 0.25514, 0.38782,
648 + 0.18261, 0.12403, 6.13175, 0.40804, 0.14568,
649 + 0.02933, 0.27707, 0.40819,
650 + 0.18641, 0.12721, 6.52844, 0.42722, 0.16784,
651 + 0.05567, 0.29774, 0.42738 /
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.18998, 0.13013, 6.87192, 0.44531, 0.18870,
654 + 0.07967, 0.31722, 0.44548,
655 + 0.19338, 0.13283, 7.17072, 0.46232, 0.20833,
656 + 0.10209, 0.33554, 0.46250,
657 + 0.19656, 0.13534, 7.43224, 0.47832, 0.22681,
658 + 0.12301, 0.35279, 0.47850,
659 + 0.19957, 0.13770, 7.66248, 0.49342, 0.24426,
660 + 0.14262, 0.36905, 0.49358,
661 + 0.20241, 0.13991, 7.86430, 0.50761, 0.26068,
662 + 0.16099, 0.38436, 0.50776,
663 + 0.20514, 0.14194, 8.03505, 0.52082, 0.27602,
664 + 0.17804, 0.39862, 0.52098,
665 + 0.20775, 0.14387, 8.18813, 0.53334, 0.29057,
666 + 0.19417, 0.41216, 0.53351 /
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.21022, 0.14569, 8.32394, 0.54518, 0.30435,
669 + 0.20939, 0.42497, 0.54533,
670 + 0.21258, 0.14740, 8.43829, 0.55617, 0.31720,
671 + 0.22355, 0.43688, 0.55632,
672 + 0.21486, 0.14902, 8.54348, 0.56672, 0.32954,
673 + 0.23710, 0.44832, 0.56688,
674 + 0.21701, 0.15053, 8.62821, 0.57642, 0.34098,
675 + 0.24965, 0.45890, 0.57659,
676 + 0.21911, 0.15199, 8.70650, 0.58575, 0.35199,
677 + 0.26169, 0.46907, 0.58593 /
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.20616, 0.15390, 2.68535, 0.24856, 0.00583,
680 + 0.00002, 0.12758, 0.24859,
681 + 0.21388, 0.15999, 3.20192, 0.26461, 0.02713,
682 + 0.00003, 0.14623, 0.26462,
683 + 0.22084, 0.16520, 3.61007, 0.27963, 0.04684,
684 + 0.00001, 0.16359, 0.27966,
685 + 0.22713, 0.16963, 3.92668, 0.29331, 0.06479,
686 + 0.00002, 0.17940, 0.29338,
687 + 0.23284, 0.17355, 4.17998, 0.30586, 0.08119,
688 + 0.00369, 0.19386, 0.30593,
689 + 0.23805, 0.17696, 4.38400, 0.31721, 0.09613,
690 + 0.01878, 0.20700, 0.31731,
691 + 0.24286, 0.18001, 4.54719, 0.32755, 0.10979,
692 + 0.03523, 0.21899, 0.32763 /
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.24730, 0.18275, 4.67801, 0.33697, 0.12230,
695 + 0.04982, 0.22992, 0.33703,
696 + 0.25144, 0.18517, 4.78318, 0.34553, 0.13377,
697 + 0.06313, 0.23994, 0.34559,
698 + 0.25529, 0.18737, 4.86669, 0.35333, 0.14432,
699 + 0.07527, 0.24910, 0.35340,
700 + 0.25888, 0.18939, 4.93266, 0.36046, 0.15405,
701 + 0.08641, 0.25752, 0.36053,
702 + 0.26227, 0.19121, 4.98391, 0.36697, 0.16302,
703 + 0.09666, 0.26525, 0.36705,
704 + 0.26538, 0.19288, 5.02071, 0.37283, 0.17122,
705 + 0.10599, 0.27228, 0.37289,
706 + 0.26834, 0.19441, 5.04895, 0.37824, 0.17884,
707 + 0.11467, 0.27880, 0.37830 /
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.27113, 0.19581, 5.06879, 0.38319, 0.18592,
710 + 0.12271, 0.28481, 0.38327,
711 + 0.27374, 0.19707, 5.07871, 0.38762, 0.19237,
712 + 0.13004, 0.29023, 0.38770,
713 + 0.27622, 0.19825, 5.08545, 0.39177, 0.19846,
714 + 0.13697, 0.29536, 0.39187,
715 + 0.27852, 0.19933, 5.08372, 0.39546, 0.20400,
716 + 0.14326, 0.29995, 0.39551,
717 + 0.28073, 0.20035, 5.08013, 0.39891, 0.20925,
718 + 0.14923, 0.30430, 0.39896 /
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.27907, 0.21842, 2.32789, 0.19544, 0.00001,
721 + 0.00013, 0.09712, 0.19532,
722 + 0.28940, 0.22357, 2.55412, 0.20447, 0.01320,
723 + 0.00012, 0.10902, 0.20439,
724 + 0.29821, 0.22765, 2.70850, 0.21237, 0.02621,
725 + 0.00009, 0.11943, 0.21218,
726 + 0.30588, 0.23078, 2.80796, 0.21900, 0.03742,
727 + 0.00010, 0.12836, 0.21887,
728 + 0.31262, 0.23324, 2.87312, 0.22462, 0.04726,
729 + 0.00201, 0.13609, 0.22454,
730 + 0.31848, 0.23523, 2.91302, 0.22939, 0.05584,
731 + 0.01059, 0.14274, 0.22922,
732 + 0.32369, 0.23678, 2.93383, 0.23334, 0.06336,
733 + 0.01972, 0.14848, 0.23325 /
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.32831, 0.23802, 2.94055, 0.23675, 0.07002,
736 + 0.02757, 0.15349, 0.23661,
737 + 0.33252, 0.23899, 2.93646, 0.23954, 0.07593,
738 + 0.03451, 0.15785, 0.23946,
739 + 0.33629, 0.23977, 2.92475, 0.24189, 0.08118,
740 + 0.04067, 0.16164, 0.24183,
741 + 0.33963, 0.24040, 2.90766, 0.24390, 0.08588,
742 + 0.04619, 0.16498, 0.24379,
743 + 0.34274, 0.24084, 2.88592, 0.24551, 0.09008,
744 + 0.05113, 0.16789, 0.24545,
745 + 0.34551, 0.24111, 2.85969, 0.24680, 0.09378,
746 + 0.05553, 0.17037, 0.24670,
747 + 0.34804, 0.24131, 2.83185, 0.24786, 0.09713,
748 + 0.05950, 0.17257, 0.24772 /
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.35033, 0.24146, 2.80239, 0.24870, 0.10014,
751 + 0.06307, 0.17447, 0.24854,
752 + 0.35241, 0.24146, 2.77069, 0.24927, 0.10280,
753 + 0.06630, 0.17607, 0.24912,
754 + 0.35437, 0.24142, 2.73959, 0.24975, 0.10525,
755 + 0.06931, 0.17752, 0.24961,
756 + 0.35610, 0.24129, 2.70671, 0.24996, 0.10736,
757 + 0.07194, 0.17871, 0.24989,
758 + 0.35773, 0.24114, 2.67463, 0.25012, 0.10932,
759 + 0.07440, 0.17978, 0.25007 /
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.33941, 0.25693, 2.04288, 0.16248, 0.00001,
762 + 0.00001, 0.07895, 0.16235,
763 + 0.35065, 0.25980, 2.13345, 0.16795, 0.00673,
764 + 0.00003, 0.08752, 0.16785,
765 + 0.35979, 0.26163, 2.17803, 0.17231, 0.01638,
766 + 0.00000, 0.09454, 0.17237,
767 + 0.36730, 0.26270, 2.19021, 0.17562, 0.02458,
768 + 0.00004, 0.10025, 0.17555,
769 + 0.37356, 0.26316, 2.18454, 0.17818, 0.03141,
770 + 0.00144, 0.10495, 0.17812,
771 + 0.37868, 0.26328, 2.16673, 0.18004, 0.03715,
772 + 0.00708, 0.10873, 0.17998,
773 + 0.38307, 0.26304, 2.14048, 0.18135, 0.04212,
774 + 0.01303, 0.11187, 0.18133 /
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.38678, 0.26257, 2.10900, 0.18227, 0.04639,
777 + 0.01800, 0.11441, 0.18214,
778 + 0.38992, 0.26192, 2.07380, 0.18283, 0.05004,
779 + 0.02231, 0.11652, 0.18263,
780 + 0.39267, 0.26110, 2.03669, 0.18306, 0.05321,
781 + 0.02610, 0.11824, 0.18296,
782 + 0.39506, 0.26016, 1.99883, 0.18306, 0.05598,
783 + 0.02944, 0.11961, 0.18307,
784 + 0.39704, 0.25921, 1.96039, 0.18292, 0.05838,
785 + 0.03230, 0.12074, 0.18284,
786 + 0.39870, 0.25819, 1.92139, 0.18256, 0.06042,
787 + 0.03484, 0.12157, 0.18252,
788 + 0.40011, 0.25711, 1.88338, 0.18210, 0.06221,
789 + 0.03711, 0.12225, 0.18210 /
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.40133, 0.25599, 1.84621, 0.18154, 0.06380,
792 + 0.03912, 0.12277, 0.18155,
793 + 0.40227, 0.25483, 1.80925, 0.18085, 0.06515,
794 + 0.04085, 0.12310, 0.18081,
795 + 0.40310, 0.25370, 1.77396, 0.18012, 0.06639,
796 + 0.04244, 0.12335, 0.18006,
797 + 0.40366, 0.25256, 1.73879, 0.17930, 0.06740,
798 + 0.04384, 0.12344, 0.17921,
799 + 0.40417, 0.25143, 1.70527, 0.17848, 0.06833,
800 + 0.04513, 0.12348, 0.17836 /
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.39163, 0.27995, 1.79822, 0.13843, 0.00001,
803 + 0.00006, 0.06620, 0.13841,
804 + 0.40222, 0.28028, 1.81193, 0.14154, 0.00308,
805 + 0.00005, 0.07249, 0.14159,
806 + 0.41043, 0.27972, 1.79822, 0.14370, 0.01081,
807 + 0.00006, 0.07741, 0.14366,
808 + 0.41655, 0.27861, 1.76751, 0.14500, 0.01695,
809 + 0.00004, 0.08117, 0.14505,
810 + 0.42142, 0.27708, 1.72906, 0.14576, 0.02206,
811 + 0.00108, 0.08403, 0.14577,
812 + 0.42513, 0.27527, 1.68630, 0.14594, 0.02620,
813 + 0.00510, 0.08623, 0.14604,
814 + 0.42795, 0.27330, 1.64136, 0.14578, 0.02971,
815 + 0.00923, 0.08792, 0.14586 /
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.43008, 0.27123, 1.59578, 0.14537, 0.03267,
818 + 0.01259, 0.08916, 0.14546,
819 + 0.43168, 0.26909, 1.55051, 0.14479, 0.03511,
820 + 0.01548, 0.09007, 0.14486,
821 + 0.43286, 0.26690, 1.50624, 0.14401, 0.03717,
822 + 0.01797, 0.09072, 0.14405,
823 + 0.43368, 0.26473, 1.46346, 0.14310, 0.03892,
824 + 0.02013, 0.09115, 0.14312,
825 + 0.43414, 0.26254, 1.42223, 0.14213, 0.04040,
826 + 0.02199, 0.09138, 0.14221,
827 + 0.43434, 0.26036, 1.38219, 0.14104, 0.04167,
828 + 0.02358, 0.09146, 0.14110,
829 + 0.43433, 0.25823, 1.34416, 0.13991, 0.04275,
830 + 0.02497, 0.09144, 0.13995 /
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.43411, 0.25616, 1.30786, 0.13874, 0.04368,
833 + 0.02618, 0.09132, 0.13876,
834 + 0.43365, 0.25410, 1.27284, 0.13757, 0.04441,
835 + 0.02724, 0.09108, 0.13754,
836 + 0.43313, 0.25210, 1.23987, 0.13642, 0.04504,
837 + 0.02820, 0.09080, 0.13636,
838 + 0.43254, 0.25002, 1.20796, 0.13513, 0.04557,
839 + 0.02900, 0.09043, 0.13514,
840 + 0.43190, 0.24802, 1.17785, 0.13387, 0.04601,
841 + 0.02972, 0.09005, 0.13394 /
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.43722, 0.29297, 1.58334, 0.11907, 0.00001,
844 + 0.00007, 0.05583, 0.11915,
845 + 0.44591, 0.29078, 1.55044, 0.12060, 0.00071,
846 + 0.00007, 0.06049, 0.12052,
847 + 0.45213, 0.28783, 1.50408, 0.12116, 0.00690,
848 + 0.00006, 0.06397, 0.12114,
849 + 0.45621, 0.28456, 1.45096, 0.12117, 0.01181,
850 + 0.00006, 0.06634, 0.12110,
851 + 0.45900, 0.28113, 1.39691, 0.12064, 0.01568,
852 + 0.00082, 0.06810, 0.12074,
853 + 0.46053, 0.27774, 1.34365, 0.11996, 0.01877,
854 + 0.00375, 0.06923, 0.11997,
855 + 0.46133, 0.27424, 1.29186, 0.11894, 0.02137,
856 + 0.00671, 0.06999, 0.11893 /
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.46147, 0.27080, 1.24220, 0.11781, 0.02343,
859 + 0.00908, 0.07050, 0.11769,
860 + 0.46118, 0.26741, 1.19502, 0.11651, 0.02514,
861 + 0.01106, 0.07073, 0.11650,
862 + 0.46052, 0.26408, 1.15044, 0.11517, 0.02655,
863 + 0.01277, 0.07076, 0.11522,
864 + 0.45953, 0.26083, 1.10852, 0.11383, 0.02773,
865 + 0.01427, 0.07067, 0.11385,
866 + 0.45834, 0.25763, 1.06908, 0.11243, 0.02875,
867 + 0.01552, 0.07048, 0.11244,
868 + 0.45690, 0.25454, 1.03167, 0.11101, 0.02953,
869 + 0.01651, 0.07020, 0.11099,
870 + 0.45535, 0.25154, 0.99670, 0.10961, 0.03017,
871 + 0.01740, 0.06985, 0.10958 /
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.45371, 0.24863, 0.96384, 0.10821, 0.03069,
874 + 0.01822, 0.06943, 0.10824,
875 + 0.45194, 0.24576, 0.93268, 0.10678, 0.03112,
876 + 0.01887, 0.06893, 0.10686,
877 + 0.45015, 0.24302, 0.90360, 0.10540, 0.03150,
878 + 0.01945, 0.06842, 0.10551,
879 + 0.44804, 0.24042, 0.87593, 0.10409, 0.03174,
880 + 0.01993, 0.06787, 0.10415,
881 + 0.44600, 0.23791, 0.85001, 0.10281, 0.03195,
882 + 0.02036, 0.06732, 0.10282 /
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.48368, 0.29879, 1.34867, 0.09928, 0.00001,
885 + 0.00009, 0.04589, 0.09920,
886 + 0.48910, 0.29321, 1.28265, 0.09921, 0.00001,
887 + 0.00009, 0.04912, 0.09917,
888 + 0.49181, 0.28762, 1.21518, 0.09859, 0.00414,
889 + 0.00010, 0.05122, 0.09849,
890 + 0.49257, 0.28205, 1.14948, 0.09744, 0.00788,
891 + 0.00010, 0.05256, 0.09748,
892 + 0.49206, 0.27679, 1.08813, 0.09622, 0.01079,
893 + 0.00058, 0.05333, 0.09605,
894 + 0.49076, 0.27143, 1.03129, 0.09462, 0.01304,
895 + 0.00263, 0.05377, 0.09467,
896 + 0.48869, 0.26638, 0.97867, 0.09305, 0.01480,
897 + 0.00464, 0.05389, 0.09317 /
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.48622, 0.26150, 0.93011, 0.09145, 0.01623,
900 + 0.00627, 0.05379, 0.09160,
901 + 0.48334, 0.25687, 0.88531, 0.08986, 0.01738,
902 + 0.00759, 0.05355, 0.08995,
903 + 0.48025, 0.25245, 0.84407, 0.08828, 0.01830,
904 + 0.00869, 0.05324, 0.08828,
905 + 0.47708, 0.24819, 0.80612, 0.08667, 0.01904,
906 + 0.00965, 0.05282, 0.08668,
907 + 0.47382, 0.24408, 0.77108, 0.08501, 0.01963,
908 + 0.01044, 0.05231, 0.08522,
909 + 0.47031, 0.24018, 0.73850, 0.08351, 0.02011,
910 + 0.01111, 0.05179, 0.08358,
911 + 0.46680, 0.23648, 0.70846, 0.08205, 0.02050,
912 + 0.01166, 0.05123, 0.08204 /
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.46329, 0.23291, 0.68065, 0.08059, 0.02078,
915 + 0.01210, 0.05063, 0.08063,
916 + 0.45976, 0.22943, 0.65463, 0.07918, 0.02098,
917 + 0.01248, 0.05008, 0.07913,
918 + 0.45630, 0.22611, 0.63058, 0.07785, 0.02113,
919 + 0.01282, 0.04957, 0.07769,
920 + 0.45273, 0.22289, 0.60800, 0.07655, 0.02123,
921 + 0.01308, 0.04896, 0.07633,
922 + 0.44927, 0.21981, 0.58700, 0.07528, 0.02131,
923 + 0.01331, 0.04835, 0.07508 /
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.52013, 0.29609, 1.14602, 0.08237, 0.00001,
926 + 0.00013, 0.03778, 0.08239,
927 + 0.52111, 0.28781, 1.06317, 0.08124, 0.00001,
928 + 0.00014, 0.03990, 0.08153,
929 + 0.51957, 0.27995, 0.98714, 0.07979, 0.00238,
930 + 0.00019, 0.04107, 0.08019,
931 + 0.51641, 0.27266, 0.91811, 0.07830, 0.00524,
932 + 0.00012, 0.04170, 0.07836,
933 + 0.51252, 0.26563, 0.85648, 0.07656, 0.00746,
934 + 0.00049, 0.04195, 0.07660,
935 + 0.50796, 0.25901, 0.80148, 0.07471, 0.00917,
936 + 0.00194, 0.04190, 0.07478,
937 + 0.50285, 0.25288, 0.75199, 0.07302, 0.01041,
938 + 0.00333, 0.04160, 0.07301 /
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.49760, 0.24701, 0.70743, 0.07120, 0.01143,
941 + 0.00445, 0.04119, 0.07127,
942 + 0.49228, 0.24145, 0.66719, 0.06942, 0.01222,
943 + 0.00535, 0.04078, 0.06949,
944 + 0.48688, 0.23626, 0.63080, 0.06775, 0.01283,
945 + 0.00607, 0.04027, 0.06781,
946 + 0.48143, 0.23136, 0.59783, 0.06620, 0.01329,
947 + 0.00666, 0.03971, 0.06621,
948 + 0.47606, 0.22670, 0.56777, 0.06472, 0.01366,
949 + 0.00719, 0.03919, 0.06451,
950 + 0.47072, 0.22219, 0.54020, 0.06321, 0.01392,
951 + 0.00758, 0.03857, 0.06306,
952 + 0.46556, 0.21788, 0.51506, 0.06175, 0.01413,
953 + 0.00793, 0.03796, 0.06168 /
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.46058, 0.21377, 0.49201, 0.06035, 0.01428,
956 + 0.00828, 0.03734, 0.06035,
957 + 0.45547, 0.20993, 0.47070, 0.05901, 0.01437,
958 + 0.00850, 0.03671, 0.05909,
959 + 0.45051, 0.20632, 0.45114, 0.05773, 0.01443,
960 + 0.00868, 0.03612, 0.05788,
961 + 0.44549, 0.20288, 0.43296, 0.05663, 0.01450,
962 + 0.00883, 0.03555, 0.05652,
963 + 0.44072, 0.19957, 0.41617, 0.05555, 0.01452,
964 + 0.00896, 0.03500, 0.05530 /
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.54639, 0.28815, 0.97029, 0.06787, 0.00001,
967 + 0.00001, 0.03069, 0.06788,
968 + 0.54230, 0.27737, 0.88081, 0.06616, 0.00001,
969 + 0.00005, 0.03213, 0.06634,
970 + 0.53613, 0.26783, 0.80328, 0.06457, 0.00133,
971 + 0.00007, 0.03277, 0.06431,
972 + 0.52921, 0.25879, 0.73595, 0.06242, 0.00366,
973 + 0.00005, 0.03300, 0.06251,
974 + 0.52184, 0.25048, 0.67774, 0.06047, 0.00532,
975 + 0.00026, 0.03286, 0.06061,
976 + 0.51404, 0.24286, 0.62694, 0.05861, 0.00654,
977 + 0.00128, 0.03256, 0.05874,
978 + 0.50631, 0.23576, 0.58226, 0.05667, 0.00752,
979 + 0.00237, 0.03228, 0.05683 /
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.49843, 0.22922, 0.54281, 0.05494, 0.00820,
982 + 0.00318, 0.03179, 0.05510,
983 + 0.49056, 0.22317, 0.50770, 0.05337, 0.00875,
984 + 0.00385, 0.03120, 0.05341,
985 + 0.48299, 0.21744, 0.47636, 0.05182, 0.00917,
986 + 0.00435, 0.03059, 0.05183,
987 + 0.47571, 0.21201, 0.44831, 0.05030, 0.00947,
988 + 0.00472, 0.02999, 0.05038,
989 + 0.46862, 0.20689, 0.42303, 0.04882, 0.00977,
990 + 0.00507, 0.02944, 0.04893,
991 + 0.46177, 0.20194, 0.40022, 0.04742, 0.00988,
992 + 0.00537, 0.02882, 0.04770,
993 + 0.45504, 0.19740, 0.37952, 0.04618, 0.00998,
994 + 0.00561, 0.02823, 0.04642 /
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.44840, 0.19326, 0.36061, 0.04505, 0.01011,
997 + 0.00582, 0.02766, 0.04510,
998 + 0.44201, 0.18921, 0.34345, 0.04392, 0.01021,
999 + 0.00594, 0.02708, 0.04386,
1000 + 0.43591, 0.18536, 0.32779, 0.04284, 0.01028,
1001 + 0.00603, 0.02651, 0.04272,
1002 + 0.43004, 0.18157, 0.31326, 0.04168, 0.01019,
1003 + 0.00607, 0.02599, 0.04182,
1004 + 0.42437, 0.17803, 0.29989, 0.04062, 0.01013,
1005 + 0.00612, 0.02550, 0.04090 /
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.56337, 0.27601, 0.81835, 0.05530, 0.00001,
1008 + 0.00002, 0.02480, 0.05523,
1009 + 0.55386, 0.26343, 0.72857, 0.05339, 0.00001,
1010 + 0.00000, 0.02562, 0.05339,
1011 + 0.54332, 0.25231, 0.65389, 0.05123, 0.00059,
1012 + 0.00009, 0.02586, 0.05156,
1013 + 0.53225, 0.24228, 0.59091, 0.04946, 0.00230,
1014 + 0.00013, 0.02595, 0.04932,
1015 + 0.52134, 0.23329, 0.53783, 0.04746, 0.00364,
1016 + 0.00032, 0.02556, 0.04754,
1017 + 0.51063, 0.22502, 0.49241, 0.04569, 0.00462,
1018 + 0.00103, 0.02517, 0.04562,
1019 + 0.50016, 0.21740, 0.45331, 0.04408, 0.00525,
1020 + 0.00177, 0.02461, 0.04396 /
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.49009, 0.21026, 0.41904, 0.04235, 0.00578,
1023 + 0.00224, 0.02411, 0.04244,
1024 + 0.48041, 0.20367, 0.38898, 0.04083, 0.00622,
1025 + 0.00264, 0.02356, 0.04087,
1026 + 0.47100, 0.19767, 0.36246, 0.03944, 0.00656,
1027 + 0.00299, 0.02298, 0.03938,
1028 + 0.46196, 0.19207, 0.33901, 0.03807, 0.00681,
1029 + 0.00329, 0.02241, 0.03808,
1030 + 0.45343, 0.18670, 0.31826, 0.03673, 0.00692,
1031 + 0.00356, 0.02183, 0.03697,
1032 + 0.44502, 0.18184, 0.29932, 0.03564, 0.00697,
1033 + 0.00372, 0.02132, 0.03572,
1034 + 0.43700, 0.17725, 0.28233, 0.03461, 0.00705,
1035 + 0.00383, 0.02081, 0.03456 /
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.42933, 0.17291, 0.26705, 0.03359, 0.00714,
1038 + 0.00390, 0.02030, 0.03347,
1039 + 0.42193, 0.16881, 0.25327, 0.03256, 0.00713,
1040 + 0.00400, 0.01979, 0.03257,
1041 + 0.41489, 0.16495, 0.24075, 0.03160, 0.00708,
1042 + 0.00410, 0.01933, 0.03174,
1043 + 0.40802, 0.16127, 0.22923, 0.03079, 0.00704,
1044 + 0.00416, 0.01887, 0.03084,
1045 + 0.40149, 0.15779, 0.21872, 0.02998, 0.00701,
1046 + 0.00422, 0.01844, 0.03000 /
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.57156, 0.26115, 0.68716, 0.04457, 0.00001,
1049 + 0.00008, 0.01959, 0.04441,
1050 + 0.55656, 0.24731, 0.60099, 0.04265, 0.00001,
1051 + 0.00007, 0.02026, 0.04234,
1052 + 0.54172, 0.23498, 0.53134, 0.04057, 0.00018,
1053 + 0.00006, 0.02030, 0.04042,
1054 + 0.52709, 0.22421, 0.47441, 0.03863, 0.00158,
1055 + 0.00010, 0.02001, 0.03861,
1056 + 0.51318, 0.21444, 0.42700, 0.03692, 0.00250,
1057 + 0.00024, 0.01969, 0.03688,
1058 + 0.49971, 0.20583, 0.38731, 0.03525, 0.00323,
1059 + 0.00076, 0.01919, 0.03527,
1060 + 0.48676, 0.19816, 0.35331, 0.03377, 0.00384,
1061 + 0.00126, 0.01861, 0.03363 /
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.47463, 0.19087, 0.32420, 0.03235, 0.00419,
1064 + 0.00162, 0.01815, 0.03223,
1065 + 0.46317, 0.18415, 0.29893, 0.03102, 0.00441,
1066 + 0.00191, 0.01768, 0.03092,
1067 + 0.45233, 0.17795, 0.27680, 0.02976, 0.00458,
1068 + 0.00217, 0.01720, 0.02975,
1069 + 0.44204, 0.17222, 0.25732, 0.02857, 0.00474,
1070 + 0.00238, 0.01670, 0.02865,
1071 + 0.43219, 0.16699, 0.24006, 0.02760, 0.00490,
1072 + 0.00248, 0.01623, 0.02746,
1073 + 0.42284, 0.16196, 0.22481, 0.02656, 0.00493,
1074 + 0.00257, 0.01574, 0.02660,
1075 + 0.41392, 0.15734, 0.21120, 0.02561, 0.00494,
1076 + 0.00267, 0.01528, 0.02575 /
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.40538, 0.15310, 0.19898, 0.02477, 0.00498,
1079 + 0.00278, 0.01485, 0.02485,
1080 + 0.39712, 0.14912, 0.18792, 0.02404, 0.00498,
1081 + 0.00281, 0.01449, 0.02393,
1082 + 0.38931, 0.14540, 0.17792, 0.02336, 0.00497,
1083 + 0.00283, 0.01413, 0.02308,
1084 + 0.38185, 0.14180, 0.16877, 0.02266, 0.00496,
1085 + 0.00285, 0.01369, 0.02242,
1086 + 0.37477, 0.13840, 0.16047, 0.02198, 0.00492,
1087 + 0.00286, 0.01331, 0.02179 /
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.57159, 0.24442, 0.57404, 0.03537, 0.00001,
1090 + 0.00006, 0.01545, 0.03516,
1091 + 0.55174, 0.22937, 0.49400, 0.03333, 0.00001,
1092 + 0.00021, 0.01572, 0.03339,
1093 + 0.53272, 0.21644, 0.43060, 0.03154, 0.00001,
1094 + 0.00010, 0.01576, 0.03138,
1095 + 0.51464, 0.20533, 0.37984, 0.02987, 0.00108,
1096 + 0.00012, 0.01534, 0.02969,
1097 + 0.49811, 0.19514, 0.33841, 0.02819, 0.00180,
1098 + 0.00022, 0.01500, 0.02823,
1099 + 0.48247, 0.18629, 0.30410, 0.02665, 0.00246,
1100 + 0.00055, 0.01462, 0.02676,
1101 + 0.46780, 0.17832, 0.27527, 0.02546, 0.00279,
1102 + 0.00094, 0.01415, 0.02545 /
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.45369, 0.17132, 0.25076, 0.02440, 0.00302,
1105 + 0.00121, 0.01369, 0.02417,
1106 + 0.44083, 0.16463, 0.22973, 0.02319, 0.00325,
1107 + 0.00137, 0.01321, 0.02318,
1108 + 0.42871, 0.15854, 0.21139, 0.02219, 0.00340,
1109 + 0.00151, 0.01277, 0.02213,
1110 + 0.41713, 0.15309, 0.19537, 0.02143, 0.00348,
1111 + 0.00165, 0.01238, 0.02107,
1112 + 0.40623, 0.14800, 0.18153, 0.02067, 0.00352,
1113 + 0.00176, 0.01193, 0.02019,
1114 + 0.39623, 0.14313, 0.16924, 0.01970, 0.00358,
1115 + 0.00184, 0.01157, 0.01942,
1116 + 0.38671, 0.13866, 0.15830, 0.01887, 0.00359,
1117 + 0.00189, 0.01122, 0.01871 /
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.37754, 0.13457, 0.14850, 0.01821, 0.00355,
1120 + 0.00194, 0.01087, 0.01807,
1121 + 0.36895, 0.13062, 0.13980, 0.01754, 0.00350,
1122 + 0.00198, 0.01049, 0.01747,
1123 + 0.36086, 0.12694, 0.13197, 0.01691, 0.00346,
1124 + 0.00200, 0.01014, 0.01690,
1125 + 0.35308, 0.12358, 0.12477, 0.01633, 0.00351,
1126 + 0.00203, 0.00986, 0.01621,
1127 + 0.34573, 0.12039, 0.11828, 0.01577, 0.00352,
1128 + 0.00203, 0.00958, 0.01562 /
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.56500, 0.22609, 0.47688, 0.02730, 0.00001,
1131 + 0.00013, 0.01201, 0.02751,
1132 + 0.53994, 0.21087, 0.40379, 0.02581, 0.00001,
1133 + 0.00008, 0.01212, 0.02559,
1134 + 0.51732, 0.19759, 0.34743, 0.02415, 0.00001,
1135 + 0.00008, 0.01195, 0.02400,
1136 + 0.49653, 0.18603, 0.30312, 0.02263, 0.00078,
1137 + 0.00012, 0.01170, 0.02259,
1138 + 0.47728, 0.17619, 0.26746, 0.02138, 0.00129,
1139 + 0.00016, 0.01129, 0.02130,
1140 + 0.45975, 0.16742, 0.23836, 0.02017, 0.00164,
1141 + 0.00039, 0.01089, 0.02019,
1142 + 0.44367, 0.15942, 0.21392, 0.01899, 0.00195,
1143 + 0.00063, 0.01051, 0.01913 /
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.42863, 0.15237, 0.19344, 0.01812, 0.00219,
1146 + 0.00091, 0.01007, 0.01805,
1147 + 0.41457, 0.14595, 0.17634, 0.01731, 0.00225,
1148 + 0.00103, 0.00965, 0.01718,
1149 + 0.40153, 0.14011, 0.16150, 0.01644, 0.00234,
1150 + 0.00113, 0.00931, 0.01641,
1151 + 0.38949, 0.13479, 0.14849, 0.01556, 0.00246,
1152 + 0.00124, 0.00899, 0.01564,
1153 + 0.37832, 0.12988, 0.13729, 0.01473, 0.00255,
1154 + 0.00129, 0.00860, 0.01498,
1155 + 0.36764, 0.12530, 0.12747, 0.01418, 0.00250,
1156 + 0.00129, 0.00835, 0.01422,
1157 + 0.35758, 0.12105, 0.11877, 0.01365, 0.00245,
1158 + 0.00130, 0.00810, 0.01360 /
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.34807, 0.11711, 0.11101, 0.01311, 0.00244,
1161 + 0.00133, 0.00780, 0.01310,
1162 + 0.33919, 0.11341, 0.10414, 0.01252, 0.00245,
1163 + 0.00135, 0.00755, 0.01265,
1164 + 0.33086, 0.10996, 0.09798, 0.01197, 0.00246,
1165 + 0.00137, 0.00733, 0.01223,
1166 + 0.32293, 0.10667, 0.09236, 0.01152, 0.00245,
1167 + 0.00139, 0.00710, 0.01185,
1168 + 0.31539, 0.10361, 0.08729, 0.01111, 0.00241,
1169 + 0.00140, 0.00688, 0.01147 /
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.55153, 0.20744, 0.39385, 0.02076, 0.00001,
1172 + 0.00006, 0.00901, 0.02116,
1173 + 0.52235, 0.19185, 0.32842, 0.01951, 0.00001,
1174 + 0.00012, 0.00915, 0.01937,
1175 + 0.49622, 0.17879, 0.27907, 0.01840, 0.00001,
1176 + 0.00012, 0.00907, 0.01802,
1177 + 0.47325, 0.16719, 0.24084, 0.01686, 0.00047,
1178 + 0.00007, 0.00883, 0.01698,
1179 + 0.45217, 0.15753, 0.21043, 0.01593, 0.00090,
1180 + 0.00014, 0.00849, 0.01578,
1181 + 0.43341, 0.14884, 0.18599, 0.01489, 0.00126,
1182 + 0.00038, 0.00816, 0.01480,
1183 + 0.41609, 0.14118, 0.16600, 0.01395, 0.00148,
1184 + 0.00058, 0.00775, 0.01406 /
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.40003, 0.13435, 0.14919, 0.01325, 0.00167,
1187 + 0.00066, 0.00740, 0.01326,
1188 + 0.38555, 0.12809, 0.13494, 0.01245, 0.00175,
1189 + 0.00073, 0.00712, 0.01255,
1190 + 0.37200, 0.12252, 0.12287, 0.01180, 0.00175,
1191 + 0.00081, 0.00682, 0.01188,
1192 + 0.35926, 0.11754, 0.11257, 0.01134, 0.00173,
1193 + 0.00090, 0.00653, 0.01125,
1194 + 0.34763, 0.11289, 0.10363, 0.01082, 0.00177,
1195 + 0.00098, 0.00631, 0.01068,
1196 + 0.33692, 0.10859, 0.09572, 0.01010, 0.00185,
1197 + 0.00096, 0.00610, 0.01021,
1198 + 0.32691, 0.10458, 0.08882, 0.00949, 0.00190,
1199 + 0.00095, 0.00587, 0.00979 /
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.31746, 0.10084, 0.08278, 0.00901, 0.00187,
1202 + 0.00098, 0.00565, 0.00943,
1203 + 0.30828, 0.09741, 0.07738, 0.00871, 0.00183,
1204 + 0.00100, 0.00541, 0.00914,
1205 + 0.29970, 0.09423, 0.07256, 0.00844, 0.00179,
1206 + 0.00101, 0.00521, 0.00886,
1207 + 0.29175, 0.09126, 0.06829, 0.00812, 0.00175,
1208 + 0.00102, 0.00503, 0.00845,
1209 + 0.28429, 0.08848, 0.06442, 0.00784, 0.00173,
1210 + 0.00102, 0.00488, 0.00807 /
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.53226, 0.18952, 0.32346, 0.01622, 0.00001,
1213 + 0.00010, 0.00646, 0.01587,
1214 + 0.49971, 0.17383, 0.26569, 0.01500, 0.00001,
1215 + 0.00009, 0.00675, 0.01435,
1216 + 0.47142, 0.16058, 0.22306, 0.01370, 0.00001,
1217 + 0.00017, 0.00651, 0.01361,
1218 + 0.44631, 0.14944, 0.19049, 0.01275, 0.00020,
1219 + 0.00014, 0.00630, 0.01256,
1220 + 0.42423, 0.13978, 0.16520, 0.01179, 0.00048,
1221 + 0.00002, 0.00603, 0.01183,
1222 + 0.40414, 0.13162, 0.14495, 0.01113, 0.00074,
1223 + 0.00013, 0.00580, 0.01092,
1224 + 0.38627, 0.12439, 0.12843, 0.01027, 0.00094,
1225 + 0.00028, 0.00562, 0.01016 /
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.37007, 0.11782, 0.11473, 0.00944, 0.00104,
1228 + 0.00037, 0.00530, 0.00971,
1229 + 0.35484, 0.11204, 0.10325, 0.00914, 0.00115,
1230 + 0.00050, 0.00506, 0.00908,
1231 + 0.34097, 0.10675, 0.09356, 0.00872, 0.00121,
1232 + 0.00056, 0.00490, 0.00860,
1233 + 0.32848, 0.10186, 0.08530, 0.00807, 0.00120,
1234 + 0.00056, 0.00472, 0.00824,
1235 + 0.31708, 0.09753, 0.07814, 0.00755, 0.00123,
1236 + 0.00057, 0.00451, 0.00770,
1237 + 0.30596, 0.09349, 0.07194, 0.00724, 0.00125,
1238 + 0.00063, 0.00431, 0.00741,
1239 + 0.29574, 0.08984, 0.06656, 0.00696, 0.00124,
1240 + 0.00067, 0.00412, 0.00707 /
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.28636, 0.08650, 0.06186, 0.00668, 0.00124,
1243 + 0.00070, 0.00393, 0.00664,
1244 + 0.27756, 0.08336, 0.05765, 0.00634, 0.00122,
1245 + 0.00067, 0.00378, 0.00633,
1246 + 0.26933, 0.08044, 0.05389, 0.00603, 0.00118,
1247 + 0.00065, 0.00362, 0.00608,
1248 + 0.26145, 0.07777, 0.05056, 0.00578, 0.00116,
1249 + 0.00063, 0.00347, 0.00588,
1250 + 0.25409, 0.07524, 0.04758, 0.00555, 0.00115,
1251 + 0.00064, 0.00335, 0.00569 /
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.50834, 0.17046, 0.26302, 0.01146, 0.00001,
1254 + 0.00008, 0.00510, 0.01150,
1255 + 0.47323, 0.15487, 0.21310, 0.01044, 0.00001,
1256 + 0.00013, 0.00489, 0.01093,
1257 + 0.44283, 0.14226, 0.17698, 0.00983, 0.00001,
1258 + 0.00008, 0.00483, 0.00986,
1259 + 0.41641, 0.13177, 0.14977, 0.00901, 0.00030,
1260 + 0.00008, 0.00473, 0.00897,
1261 + 0.39340, 0.12267, 0.12868, 0.00826, 0.00053,
1262 + 0.00014, 0.00447, 0.00840,
1263 + 0.37272, 0.11497, 0.11215, 0.00776, 0.00068,
1264 + 0.00022, 0.00422, 0.00794,
1265 + 0.35461, 0.10810, 0.09863, 0.00711, 0.00084,
1266 + 0.00029, 0.00410, 0.00737 /
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.33831, 0.10201, 0.08756, 0.00643, 0.00083,
1269 + 0.00037, 0.00386, 0.00707,
1270 + 0.32337, 0.09662, 0.07838, 0.00609, 0.00085,
1271 + 0.00042, 0.00370, 0.00661,
1272 + 0.30958, 0.09183, 0.07072, 0.00587, 0.00088,
1273 + 0.00043, 0.00352, 0.00608,
1274 + 0.29689, 0.08748, 0.06423, 0.00558, 0.00089,
1275 + 0.00042, 0.00330, 0.00568,
1276 + 0.28533, 0.08338, 0.05858, 0.00520, 0.00090,
1277 + 0.00042, 0.00316, 0.00549,
1278 + 0.27475, 0.07974, 0.05375, 0.00501, 0.00093,
1279 + 0.00045, 0.00301, 0.00507,
1280 + 0.26486, 0.07644, 0.04955, 0.00484, 0.00092,
1281 + 0.00047, 0.00288, 0.00474 /
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.25550, 0.07343, 0.04587, 0.00469, 0.00088,
1284 + 0.00047, 0.00278, 0.00455,
1285 + 0.24688, 0.07051, 0.04264, 0.00450, 0.00087,
1286 + 0.00046, 0.00264, 0.00441,
1287 + 0.23888, 0.06781, 0.03977, 0.00431, 0.00086,
1288 + 0.00045, 0.00252, 0.00428,
1289 + 0.23132, 0.06545, 0.03721, 0.00414, 0.00085,
1290 + 0.00044, 0.00242, 0.00402,
1291 + 0.22431, 0.06321, 0.03491, 0.00396, 0.00082,
1292 + 0.00044, 0.00232, 0.00380 /
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.48053, 0.15315, 0.21254, 0.00875, 0.00001,
1295 + 0.00004, 0.00337, 0.00839,
1296 + 0.44307, 0.13812, 0.17031, 0.00809, 0.00001,
1297 + 0.00000, 0.00343, 0.00755,
1298 + 0.41193, 0.12582, 0.13974, 0.00704, 0.00001,
1299 + 0.00001, 0.00345, 0.00707,
1300 + 0.38541, 0.11573, 0.11714, 0.00638, 0.00014,
1301 + 0.00000, 0.00332, 0.00636,
1302 + 0.36195, 0.10710, 0.09976, 0.00587, 0.00030,
1303 + 0.00004, 0.00319, 0.00602,
1304 + 0.34119, 0.09979, 0.08621, 0.00541, 0.00047,
1305 + 0.00016, 0.00300, 0.00571,
1306 + 0.32272, 0.09350, 0.07547, 0.00493, 0.00044,
1307 + 0.00017, 0.00277, 0.00544 /
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.30619, 0.08799, 0.06664, 0.00485, 0.00051,
1310 + 0.00024, 0.00268, 0.00486,
1311 + 0.29139, 0.08301, 0.05933, 0.00458, 0.00058,
1312 + 0.00023, 0.00252, 0.00440,
1313 + 0.27798, 0.07854, 0.05323, 0.00427, 0.00061,
1314 + 0.00023, 0.00236, 0.00415,
1315 + 0.26577, 0.07455, 0.04809, 0.00404, 0.00061,
1316 + 0.00027, 0.00220, 0.00396,
1317 + 0.25467, 0.07096, 0.04373, 0.00380, 0.00059,
1318 + 0.00029, 0.00210, 0.00375,
1319 + 0.24450, 0.06762, 0.04002, 0.00351, 0.00058,
1320 + 0.00028, 0.00202, 0.00357,
1321 + 0.23507, 0.06460, 0.03680, 0.00327, 0.00057,
1322 + 0.00028, 0.00193, 0.00343 /
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.22623, 0.06187, 0.03399, 0.00309, 0.00054,
1325 + 0.00027, 0.00181, 0.00331,
1326 + 0.21795, 0.05928, 0.03150, 0.00305, 0.00057,
1327 + 0.00027, 0.00174, 0.00306,
1328 + 0.21030, 0.05690, 0.02929, 0.00300, 0.00059,
1329 + 0.00028, 0.00168, 0.00282,
1330 + 0.20327, 0.05474, 0.02736, 0.00285, 0.00058,
1331 + 0.00031, 0.00162, 0.00272,
1332 + 0.19670, 0.05273, 0.02563, 0.00270, 0.00056,
1333 + 0.00034, 0.00157, 0.00262 /
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.44954, 0.13564, 0.17036, 0.00592, 0.00001,
1336 + 0.00009, 0.00236, 0.00609,
1337 + 0.41177, 0.12116, 0.13452, 0.00513, 0.00001,
1338 + 0.00009, 0.00250, 0.00551,
1339 + 0.37956, 0.10980, 0.10933, 0.00478, 0.00001,
1340 + 0.00004, 0.00242, 0.00493,
1341 + 0.35175, 0.10045, 0.09073, 0.00437, 0.00006,
1342 + 0.00003, 0.00231, 0.00465,
1343 + 0.32833, 0.09263, 0.07678, 0.00414, 0.00026,
1344 + 0.00003, 0.00221, 0.00417,
1345 + 0.30806, 0.08593, 0.06591, 0.00365, 0.00025,
1346 + 0.00011, 0.00203, 0.00408,
1347 + 0.29021, 0.08001, 0.05726, 0.00355, 0.00034,
1348 + 0.00014, 0.00192, 0.00371 /
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.27418, 0.07494, 0.05026, 0.00329, 0.00037,
1351 + 0.00012, 0.00182, 0.00343,
1352 + 0.25999, 0.07043, 0.04456, 0.00306, 0.00039,
1353 + 0.00018, 0.00172, 0.00317,
1354 + 0.24719, 0.06640, 0.03982, 0.00289, 0.00041,
1355 + 0.00020, 0.00165, 0.00297,
1356 + 0.23549, 0.06278, 0.03583, 0.00271, 0.00041,
1357 + 0.00020, 0.00159, 0.00278,
1358 + 0.22479, 0.05957, 0.03248, 0.00260, 0.00040,
1359 + 0.00024, 0.00145, 0.00251,
1360 + 0.21500, 0.05663, 0.02960, 0.00251, 0.00041,
1361 + 0.00023, 0.00141, 0.00240,
1362 + 0.20605, 0.05395, 0.02712, 0.00238, 0.00040,
1363 + 0.00021, 0.00134, 0.00229 /
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.19779, 0.05149, 0.02495, 0.00221, 0.00036,
1366 + 0.00017, 0.00123, 0.00214,
1367 + 0.19018, 0.04926, 0.02307, 0.00211, 0.00036,
1368 + 0.00019, 0.00118, 0.00202,
1369 + 0.18316, 0.04721, 0.02142, 0.00202, 0.00035,
1370 + 0.00021, 0.00113, 0.00190,
1371 + 0.17655, 0.04529, 0.01996, 0.00194, 0.00037,
1372 + 0.00021, 0.00109, 0.00183,
1373 + 0.17042, 0.04351, 0.01867, 0.00186, 0.00038,
1374 + 0.00020, 0.00105, 0.00175 /
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.41699, 0.11897, 0.13532, 0.00396, 0.00001,
1377 + 0.00005, 0.00165, 0.00405,
1378 + 0.37771, 0.10601, 0.10567, 0.00381, 0.00001,
1379 + 0.00001, 0.00173, 0.00366,
1380 + 0.34544, 0.09535, 0.08486, 0.00354, 0.00001,
1381 + 0.00000, 0.00154, 0.00346,
1382 + 0.31876, 0.08659, 0.06991, 0.00304, 0.00001,
1383 + 0.00002, 0.00150, 0.00344,
1384 + 0.29619, 0.07936, 0.05867, 0.00278, 0.00007,
1385 + 0.00002, 0.00143, 0.00288,
1386 + 0.27639, 0.07329, 0.05003, 0.00257, 0.00011,
1387 + 0.00001, 0.00130, 0.00269,
1388 + 0.25916, 0.06802, 0.04319, 0.00246, 0.00014,
1389 + 0.00003, 0.00121, 0.00248 /
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.24360, 0.06352, 0.03773, 0.00241, 0.00019,
1392 + 0.00007, 0.00118, 0.00228,
1393 + 0.23007, 0.05946, 0.03328, 0.00216, 0.00020,
1394 + 0.00009, 0.00110, 0.00222,
1395 + 0.21791, 0.05587, 0.02960, 0.00203, 0.00019,
1396 + 0.00008, 0.00104, 0.00199,
1397 + 0.20686, 0.05270, 0.02654, 0.00201, 0.00021,
1398 + 0.00008, 0.00099, 0.00175,
1399 + 0.19710, 0.04980, 0.02397, 0.00179, 0.00026,
1400 + 0.00012, 0.00094, 0.00171,
1401 + 0.18785, 0.04719, 0.02179, 0.00173, 0.00027,
1402 + 0.00011, 0.00086, 0.00159,
1403 + 0.17942, 0.04485, 0.01991, 0.00165, 0.00025,
1404 + 0.00010, 0.00080, 0.00149 /
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.17173, 0.04273, 0.01827, 0.00157, 0.00022,
1407 + 0.00010, 0.00073, 0.00140,
1408 + 0.16464, 0.04079, 0.01685, 0.00153, 0.00021,
1409 + 0.00010, 0.00070, 0.00130,
1410 + 0.15813, 0.03902, 0.01559, 0.00151, 0.00022,
1411 + 0.00010, 0.00069, 0.00121,
1412 + 0.15212, 0.03733, 0.01450, 0.00140, 0.00021,
1413 + 0.00009, 0.00067, 0.00115,
1414 + 0.14655, 0.03579, 0.01353, 0.00131, 0.00021,
1415 + 0.00009, 0.00063, 0.00111 /
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.38208, 0.10396, 0.10650, 0.00264, 0.00001,
1418 + 0.00005, 0.00106, 0.00276,
1419 + 0.34289, 0.09137, 0.08191, 0.00248, 0.00001,
1420 + 0.00000, 0.00112, 0.00272,
1421 + 0.31133, 0.08155, 0.06503, 0.00233, 0.00001,
1422 + 0.00006, 0.00113, 0.00244,
1423 + 0.28533, 0.07371, 0.05307, 0.00191, 0.00006,
1424 + 0.00000, 0.00107, 0.00217,
1425 + 0.26320, 0.06714, 0.04416, 0.00192, 0.00009,
1426 + 0.00004, 0.00099, 0.00197,
1427 + 0.24433, 0.06160, 0.03734, 0.00180, 0.00017,
1428 + 0.00005, 0.00097, 0.00175,
1429 + 0.22797, 0.05695, 0.03206, 0.00166, 0.00018,
1430 + 0.00006, 0.00091, 0.00152 /
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.21399, 0.05290, 0.02787, 0.00136, 0.00020,
1433 + 0.00006, 0.00082, 0.00140,
1434 + 0.20097, 0.04931, 0.02447, 0.00138, 0.00024,
1435 + 0.00006, 0.00080, 0.00124,
1436 + 0.18938, 0.04616, 0.02166, 0.00135, 0.00022,
1437 + 0.00006, 0.00075, 0.00115,
1438 + 0.17929, 0.04335, 0.01932, 0.00119, 0.00017,
1439 + 0.00007, 0.00070, 0.00111,
1440 + 0.17014, 0.04083, 0.01738, 0.00115, 0.00018,
1441 + 0.00009, 0.00069, 0.00103,
1442 + 0.16182, 0.03858, 0.01575, 0.00102, 0.00019,
1443 + 0.00011, 0.00064, 0.00102,
1444 + 0.15420, 0.03655, 0.01436, 0.00097, 0.00020,
1445 + 0.00011, 0.00059, 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.14716, 0.03475, 0.01315, 0.00097, 0.00019,
1448 + 0.00009, 0.00055, 0.00083,
1449 + 0.14071, 0.03307, 0.01210, 0.00093, 0.00019,
1450 + 0.00008, 0.00052, 0.00077,
1451 + 0.13482, 0.03152, 0.01118, 0.00089, 0.00018,
1452 + 0.00007, 0.00048, 0.00074,
1453 + 0.12938, 0.03009, 0.01037, 0.00081, 0.00019,
1454 + 0.00008, 0.00048, 0.00072,
1455 + 0.12438, 0.02878, 0.00966, 0.00073, 0.00019,
1456 + 0.00009, 0.00047, 0.00069 /
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.34682, 0.08969, 0.08288, 0.00184, 0.00001,
1459 + 0.00003, 0.00062, 0.00194,
1460 + 0.30886, 0.07826, 0.06302, 0.00152, 0.00001,
1461 + 0.00004, 0.00067, 0.00170,
1462 + 0.27815, 0.06934, 0.04961, 0.00154, 0.00001,
1463 + 0.00006, 0.00062, 0.00162,
1464 + 0.25331, 0.06222, 0.04006, 0.00125, 0.00001,
1465 + 0.00005, 0.00062, 0.00145,
1466 + 0.23218, 0.05639, 0.03309, 0.00131, 0.00002,
1467 + 0.00004, 0.00063, 0.00123,
1468 + 0.21437, 0.05155, 0.02783, 0.00132, 0.00004,
1469 + 0.00001, 0.00061, 0.00121,
1470 + 0.19911, 0.04737, 0.02374, 0.00118, 0.00012,
1471 + 0.00003, 0.00057, 0.00117 /
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.18549, 0.04382, 0.02051, 0.00124, 0.00006,
1474 + 0.00001, 0.00048, 0.00094,
1475 + 0.17375, 0.04077, 0.01793, 0.00113, 0.00004,
1476 + 0.00001, 0.00046, 0.00078,
1477 + 0.16355, 0.03804, 0.01582, 0.00096, 0.00010,
1478 + 0.00002, 0.00048, 0.00069,
1479 + 0.15433, 0.03559, 0.01407, 0.00087, 0.00017,
1480 + 0.00006, 0.00048, 0.00065,
1481 + 0.14563, 0.03348, 0.01262, 0.00087, 0.00013,
1482 + 0.00007, 0.00041, 0.00068,
1483 + 0.13813, 0.03152, 0.01139, 0.00073, 0.00013,
1484 + 0.00005, 0.00037, 0.00068,
1485 + 0.13126, 0.02976, 0.01035, 0.00068, 0.00013,
1486 + 0.00005, 0.00034, 0.00063 /
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.12486, 0.02817, 0.00946, 0.00074, 0.00012,
1489 + 0.00005, 0.00035, 0.00054,
1490 + 0.11926, 0.02674, 0.00868, 0.00065, 0.00014,
1491 + 0.00005, 0.00034, 0.00049,
1492 + 0.11415, 0.02543, 0.00800, 0.00054, 0.00014,
1493 + 0.00006, 0.00033, 0.00047,
1494 + 0.10934, 0.02423, 0.00741, 0.00041, 0.00012,
1495 + 0.00005, 0.00030, 0.00051,
1496 + 0.10487, 0.02313, 0.00688, 0.00032, 0.00011,
1497 + 0.00005, 0.00027, 0.00053 /
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.31107, 0.07643, 0.06374, 0.00106, 0.00001,
1500 + 0.00005, 0.00034, 0.00132,
1501 + 0.27476, 0.06619, 0.04782, 0.00088, 0.00001,
1502 + 0.00001, 0.00040, 0.00126,
1503 + 0.24561, 0.05831, 0.03722, 0.00090, 0.00001,
1504 + 0.00003, 0.00042, 0.00113,
1505 + 0.22204, 0.05198, 0.02981, 0.00091, 0.00001,
1506 + 0.00002, 0.00037, 0.00098,
1507 + 0.20242, 0.04683, 0.02444, 0.00081, 0.00001,
1508 + 0.00005, 0.00030, 0.00089,
1509 + 0.18599, 0.04259, 0.02041, 0.00083, 0.00004,
1510 + 0.00004, 0.00032, 0.00063,
1511 + 0.17167, 0.03901, 0.01733, 0.00095, 0.00000,
1512 + 0.00001, 0.00031, 0.00057 /
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.15976, 0.03590, 0.01491, 0.00066, 0.00000,
1515 + 0.00000, 0.00028, 0.00058,
1516 + 0.14910, 0.03322, 0.01297, 0.00057, 0.00003,
1517 + 0.00001, 0.00025, 0.00055,
1518 + 0.13946, 0.03086, 0.01140, 0.00064, 0.00004,
1519 + 0.00001, 0.00026, 0.00050,
1520 + 0.13094, 0.02880, 0.01010, 0.00063, 0.00008,
1521 + 0.00001, 0.00028, 0.00046,
1522 + 0.12351, 0.02695, 0.00903, 0.00051, 0.00011,
1523 + 0.00004, 0.00028, 0.00047,
1524 + 0.11676, 0.02532, 0.00812, 0.00048, 0.00008,
1525 + 0.00003, 0.00026, 0.00037,
1526 + 0.11062, 0.02386, 0.00736, 0.00046, 0.00008,
1527 + 0.00003, 0.00024, 0.00032 /
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.10501, 0.02254, 0.00671, 0.00044, 0.00009,
1530 + 0.00004, 0.00023, 0.00033,
1531 + 0.09992, 0.02134, 0.00615, 0.00037, 0.00008,
1532 + 0.00004, 0.00022, 0.00032,
1533 + 0.09527, 0.02026, 0.00566, 0.00032, 0.00007,
1534 + 0.00004, 0.00020, 0.00031,
1535 + 0.09098, 0.01926, 0.00523, 0.00025, 0.00006,
1536 + 0.00003, 0.00019, 0.00033,
1537 + 0.08703, 0.01834, 0.00485, 0.00021, 0.00006,
1538 + 0.00003, 0.00018, 0.00033 /
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.27641, 0.06454, 0.04839, 0.00067, 0.00001,
1541 + 0.00004, 0.00014, 0.00080,
1542 + 0.24134, 0.05542, 0.03583, 0.00074, 0.00001,
1543 + 0.00007, 0.00018, 0.00081,
1544 + 0.21404, 0.04838, 0.02757, 0.00077, 0.00001,
1545 + 0.00007, 0.00023, 0.00057,
1546 + 0.19208, 0.04284, 0.02186, 0.00068, 0.00001,
1547 + 0.00007, 0.00017, 0.00055,
1548 + 0.17429, 0.03840, 0.01777, 0.00061, 0.00001,
1549 + 0.00003, 0.00022, 0.00047,
1550 + 0.15939, 0.03470, 0.01476, 0.00055, 0.00002,
1551 + 0.00002, 0.00024, 0.00039,
1552 + 0.14683, 0.03158, 0.01244, 0.00039, 0.00005,
1553 + 0.00002, 0.00024, 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.13558, 0.02898, 0.01064, 0.00042, 0.00006,
1556 + 0.00001, 0.00021, 0.00036,
1557 + 0.12574, 0.02671, 0.00921, 0.00045, 0.00005,
1558 + 0.00001, 0.00017, 0.00028,
1559 + 0.11728, 0.02472, 0.00806, 0.00038, 0.00004,
1560 + 0.00001, 0.00016, 0.00027,
1561 + 0.10988, 0.02299, 0.00712, 0.00030, 0.00003,
1562 + 0.00000, 0.00016, 0.00026,
1563 + 0.10323, 0.02144, 0.00634, 0.00028, 0.00005,
1564 + 0.00001, 0.00016, 0.00023,
1565 + 0.09721, 0.02006, 0.00570, 0.00022, 0.00006,
1566 + 0.00003, 0.00016, 0.00026,
1567 + 0.09185, 0.01883, 0.00515, 0.00019, 0.00008,
1568 + 0.00004, 0.00017, 0.00026 /
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.08706, 0.01773, 0.00468, 0.00015, 0.00010,
1571 + 0.00004, 0.00017, 0.00021,
1572 + 0.08250, 0.01673, 0.00427, 0.00016, 0.00008,
1573 + 0.00003, 0.00016, 0.00020,
1574 + 0.07836, 0.01583, 0.00393, 0.00016, 0.00007,
1575 + 0.00002, 0.00015, 0.00020,
1576 + 0.07462, 0.01500, 0.00362, 0.00014, 0.00007,
1577 + 0.00003, 0.00014, 0.00023,
1578 + 0.07120, 0.01424, 0.00335, 0.00011, 0.00006,
1579 + 0.00003, 0.00013, 0.00025 /
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.24174, 0.05358, 0.03612, 0.00044, 0.00001,
1582 + 0.00000, 0.00016, 0.00052,
1583 + 0.20941, 0.04551, 0.02638, 0.00026, 0.00001,
1584 + 0.00005, 0.00007, 0.00045,
1585 + 0.18424, 0.03942, 0.02008, 0.00038, 0.00001,
1586 + 0.00006, 0.00014, 0.00033,
1587 + 0.16416, 0.03464, 0.01576, 0.00041, 0.00001,
1588 + 0.00004, 0.00015, 0.00033,
1589 + 0.14806, 0.03083, 0.01272, 0.00024, 0.00004,
1590 + 0.00003, 0.00015, 0.00037,
1591 + 0.13447, 0.02774, 0.01048, 0.00023, 0.00001,
1592 + 0.00004, 0.00013, 0.00026,
1593 + 0.12297, 0.02513, 0.00879, 0.00026, 0.00007,
1594 + 0.00000, 0.00017, 0.00022 /
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.11320, 0.02292, 0.00748, 0.00019, 0.00006,
1597 + 0.00000, 0.00014, 0.00025,
1598 + 0.10463, 0.02103, 0.00644, 0.00019, 0.00006,
1599 + 0.00000, 0.00013, 0.00020,
1600 + 0.09719, 0.01939, 0.00561, 0.00018, 0.00007,
1601 + 0.00001, 0.00015, 0.00019,
1602 + 0.09068, 0.01797, 0.00494, 0.00012, 0.00006,
1603 + 0.00002, 0.00014, 0.00020,
1604 + 0.08482, 0.01671, 0.00439, 0.00010, 0.00005,
1605 + 0.00001, 0.00009, 0.00018,
1606 + 0.07954, 0.01559, 0.00393, 0.00013, 0.00006,
1607 + 0.00002, 0.00011, 0.00016,
1608 + 0.07487, 0.01459, 0.00354, 0.00013, 0.00006,
1609 + 0.00002, 0.00012, 0.00015 /
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.07073, 0.01368, 0.00322, 0.00009, 0.00005,
1612 + 0.00002, 0.00011, 0.00012,
1613 + 0.06692, 0.01287, 0.00293, 0.00006, 0.00007,
1614 + 0.00003, 0.00011, 0.00013,
1615 + 0.06347, 0.01215, 0.00269, 0.00003, 0.00007,
1616 + 0.00004, 0.00010, 0.00014,
1617 + 0.06030, 0.01150, 0.00247, 0.00004, 0.00007,
1618 + 0.00004, 0.00010, 0.00011,
1619 + 0.05738, 0.01090, 0.00229, 0.00005, 0.00006,
1620 + 0.00003, 0.00009, 0.00009 /
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.20948, 0.04429, 0.02665, 0.00063, 0.00001,
1623 + 0.00009, 0.00001, 0.00016,
1624 + 0.17959, 0.03723, 0.01920, 0.00050, 0.00001,
1625 + 0.00009, 0.00001, 0.00024,
1626 + 0.15654, 0.03197, 0.01444, 0.00050, 0.00001,
1627 + 0.00007, 0.00001, 0.00016,
1628 + 0.13900, 0.02793, 0.01127, 0.00019, 0.00000,
1629 + 0.00005, 0.00006, 0.00017,
1630 + 0.12435, 0.02466, 0.00902, 0.00015, 0.00001,
1631 + 0.00005, 0.00007, 0.00018,
1632 + 0.11217, 0.02207, 0.00739, 0.00025, 0.00001,
1633 + 0.00004, 0.00007, 0.00013,
1634 + 0.10220, 0.01989, 0.00617, 0.00022, 0.00001,
1635 + 0.00003, 0.00007, 0.00012 /
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.09371, 0.01804, 0.00523, 0.00015, 0.00001,
1638 + 0.00002, 0.00006, 0.00011,
1639 + 0.08631, 0.01650, 0.00449, 0.00009, 0.00003,
1640 + 0.00000, 0.00007, 0.00014,
1641 + 0.07984, 0.01516, 0.00390, 0.00007, 0.00003,
1642 + 0.00000, 0.00006, 0.00011,
1643 + 0.07415, 0.01398, 0.00342, 0.00008, 0.00003,
1644 + 0.00001, 0.00005, 0.00006,
1645 + 0.06908, 0.01296, 0.00303, 0.00009, 0.00002,
1646 + 0.00000, 0.00007, 0.00008,
1647 + 0.06467, 0.01205, 0.00271, 0.00007, 0.00003,
1648 + 0.00001, 0.00007, 0.00008,
1649 + 0.06070, 0.01123, 0.00244, 0.00005, 0.00003,
1650 + 0.00001, 0.00007, 0.00008 /
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.05713, 0.01052, 0.00220, 0.00002, 0.00003,
1653 + 0.00001, 0.00007, 0.00008,
1654 + 0.05385, 0.00987, 0.00201, 0.00004, 0.00002,
1655 + 0.00001, 0.00006, 0.00008,
1656 + 0.05088, 0.00929, 0.00184, 0.00005, 0.00002,
1657 + 0.00000, 0.00005, 0.00006,
1658 + 0.04821, 0.00877, 0.00169, 0.00004, 0.00002,
1659 + 0.00001, 0.00005, 0.00005,
1660 + 0.04578, 0.00829, 0.00156, 0.00004, 0.00002,
1661 + 0.00001, 0.00004, 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.17878, 0.03552, 0.01919, 0.00016, 0.00001,
1664 + 0.00001, 0.00001, 0.00012,
1665 + 0.15198, 0.02970, 0.01370, 0.00010, 0.00001,
1666 + 0.00004, 0.00001, 0.00015,
1667 + 0.13163, 0.02539, 0.01022, 0.00013, 0.00001,
1668 + 0.00001, 0.00003, 0.00013,
1669 + 0.11556, 0.02201, 0.00791, 0.00019, 0.00001,
1670 + 0.00002, 0.00004, 0.00012,
1671 + 0.10277, 0.01935, 0.00630, 0.00015, 0.00001,
1672 + 0.00003, 0.00001, 0.00012,
1673 + 0.09241, 0.01723, 0.00513, 0.00008, 0.00001,
1674 + 0.00002, 0.00000, 0.00012,
1675 + 0.08364, 0.01547, 0.00426, 0.00009, 0.00001,
1676 + 0.00001, 0.00003, 0.00014 /
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.07628, 0.01401, 0.00359, 0.00009, 0.00001,
1679 + 0.00002, 0.00003, 0.00008,
1680 + 0.06996, 0.01274, 0.00307, 0.00010, 0.00001,
1681 + 0.00001, 0.00002, 0.00008,
1682 + 0.06450, 0.01166, 0.00266, 0.00006, 0.00000,
1683 + 0.00000, 0.00003, 0.00010,
1684 + 0.05973, 0.01071, 0.00233, 0.00003, 0.00000,
1685 + 0.00000, 0.00003, 0.00011,
1686 + 0.05546, 0.00991, 0.00206, 0.00008, 0.00001,
1687 + 0.00000, 0.00003, 0.00004,
1688 + 0.05170, 0.00918, 0.00183, 0.00008, 0.00001,
1689 + 0.00000, 0.00003, 0.00004,
1690 + 0.04837, 0.00853, 0.00164, 0.00006, 0.00001,
1691 + 0.00000, 0.00003, 0.00004 /
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.04540, 0.00796, 0.00149, 0.00004, 0.00001,
1694 + 0.00000, 0.00002, 0.00004,
1695 + 0.04266, 0.00747, 0.00135, 0.00005, 0.00001,
1696 + 0.00000, 0.00001, 0.00004,
1697 + 0.04021, 0.00701, 0.00123, 0.00005, 0.00001,
1698 + 0.00000, 0.00001, 0.00004,
1699 + 0.03799, 0.00659, 0.00113, 0.00006, 0.00001,
1700 + 0.00000, 0.00001, 0.00004,
1701 + 0.03599, 0.00621, 0.00104, 0.00006, 0.00001,
1702 + 0.00000, 0.00002, 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.12352, 0.02187, 0.00934, 0.00001, 0.00001,
1705 + 0.00000, 0.00001, 0.00011,
1706 + 0.10268, 0.01787, 0.00648, 0.00000, 0.00001,
1707 + 0.00001, 0.00001, 0.00005,
1708 + 0.08738, 0.01499, 0.00472, 0.00007, 0.00001,
1709 + 0.00000, 0.00001, 0.00000,
1710 + 0.07562, 0.01283, 0.00358, 0.00001, 0.00001,
1711 + 0.00002, 0.00000, 0.00000,
1712 + 0.06638, 0.01112, 0.00281, 0.00001, 0.00001,
1713 + 0.00001, 0.00002, 0.00002,
1714 + 0.05884, 0.00977, 0.00225, 0.00005, 0.00001,
1715 + 0.00000, 0.00002, 0.00002,
1716 + 0.05276, 0.00867, 0.00185, 0.00002, 0.00001,
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.04758, 0.00776, 0.00155, 0.00003, 0.00001,
1720 + 0.00000, 0.00001, 0.00001,
1721 + 0.04319, 0.00699, 0.00131, 0.00001, 0.00001,
1722 + 0.00001, 0.00001, 0.00004,
1723 + 0.03943, 0.00634, 0.00113, 0.00001, 0.00001,
1724 + 0.00000, 0.00001, 0.00004,
1725 + 0.03619, 0.00580, 0.00098, 0.00001, 0.00001,
1726 + 0.00000, 0.00001, 0.00002,
1727 + 0.03337, 0.00531, 0.00086, 0.00000, 0.00001,
1728 + 0.00000, 0.00001, 0.00003,
1729 + 0.03088, 0.00487, 0.00076, 0.00001, 0.00001,
1730 + 0.00000, 0.00001, 0.00003,
1731 + 0.02867, 0.00451, 0.00068, 0.00001, 0.00001,
1732 + 0.00001, 0.00001, 0.00004 /
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.02667, 0.00418, 0.00061, 0.00003, 0.00001,
1735 + 0.00000, 0.00001, 0.00002,
1736 + 0.02494, 0.00388, 0.00055, 0.00001, 0.00001,
1737 + 0.00000, 0.00001, 0.00002,
1738 + 0.02340, 0.00363, 0.00050, 0.00001, 0.00001,
1739 + 0.00000, 0.00001, 0.00002,
1740 + 0.02197, 0.00339, 0.00046, 0.00001, 0.00001,
1741 + 0.00000, 0.00001, 0.00002,
1742 + 0.02069, 0.00317, 0.00042, 0.00001, 0.00001,
1743 + 0.00000, 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.07898, 0.01234, 0.00409, 0.00007, 0.00001,
1746 + 0.00001, 0.00001, 0.00001,
1747 + 0.06427, 0.00989, 0.00276, 0.00007, 0.00001,
1748 + 0.00001, 0.00001, 0.00001,
1749 + 0.05362, 0.00814, 0.00196, 0.00003, 0.00001,
1750 + 0.00000, 0.00001, 0.00003,
1751 + 0.04567, 0.00682, 0.00146, 0.00001, 0.00001,
1752 + 0.00001, 0.00001, 0.00001,
1753 + 0.03947, 0.00583, 0.00113, 0.00001, 0.00001,
1754 + 0.00001, 0.00001, 0.00001,
1755 + 0.03456, 0.00506, 0.00089, 0.00001, 0.00001,
1756 + 0.00001, 0.00001, 0.00001,
1757 + 0.03057, 0.00443, 0.00073, 0.00001, 0.00001,
1758 + 0.00001, 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.02726, 0.00393, 0.00060, 0.00001, 0.00001,
1761 + 0.00000, 0.00001, 0.00001,
1762 + 0.02449, 0.00350, 0.00050, 0.00001, 0.00001,
1763 + 0.00000, 0.00001, 0.00001,
1764 + 0.02214, 0.00315, 0.00043, 0.00001, 0.00001,
1765 + 0.00000, 0.00001, 0.00001,
1766 + 0.02013, 0.00283, 0.00037, 0.00001, 0.00001,
1767 + 0.00000, 0.00001, 0.00001,
1768 + 0.01840, 0.00258, 0.00033, 0.00001, 0.00001,
1769 + 0.00000, 0.00001, 0.00001,
1770 + 0.01687, 0.00236, 0.00029, 0.00001, 0.00001,
1771 + 0.00000, 0.00001, 0.00001,
1772 + 0.01555, 0.00216, 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.01439, 0.00198, 0.00023, 0.00001, 0.00001,
1776 + 0.00000, 0.00001, 0.00001,
1777 + 0.01335, 0.00184, 0.00021, 0.00001, 0.00001,
1778 + 0.00000, 0.00001, 0.00001,
1779 + 0.01243, 0.00170, 0.00019, 0.00001, 0.00001,
1780 + 0.00000, 0.00001, 0.00001,
1781 + 0.01161, 0.00158, 0.00017, 0.00001, 0.00001,
1782 + 0.00000, 0.00001, 0.00001,
1783 + 0.01086, 0.00147, 0.00016, 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.04533, 0.00611, 0.00154, 0.00001, 0.00001,
1787 + 0.00000, 0.00001, 0.00001,
1788 + 0.03595, 0.00478, 0.00101, 0.00002, 0.00001,
1789 + 0.00000, 0.00001, 0.00001,
1790 + 0.02945, 0.00384, 0.00070, 0.00001, 0.00001,
1791 + 0.00000, 0.00001, 0.00001,
1792 + 0.02459, 0.00319, 0.00051, 0.00001, 0.00001,
1793 + 0.00000, 0.00001, 0.00001,
1794 + 0.02087, 0.00267, 0.00039, 0.00002, 0.00001,
1795 + 0.00000, 0.00001, 0.00001,
1796 + 0.01799, 0.00229, 0.00030, 0.00002, 0.00001,
1797 + 0.00000, 0.00001, 0.00001,
1798 + 0.01572, 0.00198, 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.01385, 0.00172, 0.00020, 0.00001, 0.00001,
1802 + 0.00000, 0.00001, 0.00001,
1803 + 0.01230, 0.00152, 0.00017, 0.00001, 0.00001,
1804 + 0.00000, 0.00001, 0.00001,
1805 + 0.01100, 0.00135, 0.00014, 0.00001, 0.00001,
1806 + 0.00000, 0.00001, 0.00001,
1807 + 0.00990, 0.00121, 0.00012, 0.00001, 0.00001,
1808 + 0.00000, 0.00001, 0.00001,
1809 + 0.00898, 0.00109, 0.00011, 0.00001, 0.00001,
1810 + 0.00000, 0.00001, 0.00001,
1811 + 0.00816, 0.00099, 0.00009, 0.00001, 0.00001,
1812 + 0.00000, 0.00001, 0.00001,
1813 + 0.00746, 0.00089, 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.00684, 0.00081, 0.00007, 0.00001, 0.00001,
1817 + 0.00000, 0.00001, 0.00001,
1818 + 0.00630, 0.00075, 0.00007, 0.00001, 0.00001,
1819 + 0.00000, 0.00001, 0.00001,
1820 + 0.00582, 0.00069, 0.00006, 0.00001, 0.00001,
1821 + 0.00000, 0.00001, 0.00001,
1822 + 0.00539, 0.00064, 0.00005, 0.00001, 0.00001,
1823 + 0.00000, 0.00001, 0.00001,
1824 + 0.00501, 0.00059, 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.02219, 0.00251, 0.00047, 0.00002, 0.00001,
1828 + 0.00000, 0.00001, 0.00001,
1829 + 0.01715, 0.00193, 0.00029, 0.00001, 0.00001,
1830 + 0.00000, 0.00001, 0.00001,
1831 + 0.01365, 0.00151, 0.00020, 0.00001, 0.00001,
1832 + 0.00000, 0.00001, 0.00001,
1833 + 0.01113, 0.00123, 0.00014, 0.00001, 0.00001,
1834 + 0.00000, 0.00001, 0.00001,
1835 + 0.00928, 0.00099, 0.00011, 0.00001, 0.00001,
1836 + 0.00000, 0.00001, 0.00001,
1837 + 0.00787, 0.00085, 0.00008, 0.00001, 0.00001,
1838 + 0.00000, 0.00001, 0.00001,
1839 + 0.00674, 0.00071, 0.00007, 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.00586, 0.00061, 0.00005, 0.00001, 0.00001,
1843 + 0.00000, 0.00001, 0.00001,
1844 + 0.00513, 0.00055, 0.00004, 0.00001, 0.00001,
1845 + 0.00000, 0.00001, 0.00001,
1846 + 0.00453, 0.00047, 0.00004, 0.00001, 0.00001,
1847 + 0.00000, 0.00001, 0.00001,
1848 + 0.00403, 0.00043, 0.00003, 0.00001, 0.00001,
1849 + 0.00000, 0.00001, 0.00001,
1850 + 0.00360, 0.00037, 0.00003, 0.00001, 0.00001,
1851 + 0.00000, 0.00001, 0.00001,
1852 + 0.00324, 0.00033, 0.00002, 0.00001, 0.00001,
1853 + 0.00000, 0.00001, 0.00001,
1854 + 0.00293, 0.00029, 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.00267, 0.00026, 0.00002, 0.00001, 0.00001,
1858 + 0.00000, 0.00001, 0.00001,
1859 + 0.00243, 0.00023, 0.00002, 0.00001, 0.00001,
1860 + 0.00000, 0.00001, 0.00001,
1861 + 0.00222, 0.00022, 0.00002, 0.00001, 0.00001,
1862 + 0.00000, 0.00001, 0.00001,
1863 + 0.00205, 0.00019, 0.00001, 0.00001, 0.00001,
1864 + 0.00000, 0.00001, 0.00001,
1865 + 0.00188, 0.00018, 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.00211, 0.00016, 0.00001, 0.00001, 0.00001,
1869 + 0.00000, 0.00001, 0.00001,
1870 + 0.00150, 0.00010, 0.00001, 0.00001, 0.00001,
1871 + 0.00000, 0.00001, 0.00001,
1872 + 0.00112, 0.00008, 0.00001, 0.00001, 0.00001,
1873 + 0.00000, 0.00001, 0.00001,
1874 + 0.00087, 0.00006, 0.00000, 0.00001, 0.00001,
1875 + 0.00000, 0.00001, 0.00001,
1876 + 0.00068, 0.00005, 0.00000, 0.00000, 0.00000,
1877 + 0.00000, 0.00000, 0.00000,
1878 + 0.00056, 0.00003, 0.00000, 0.00000, 0.00000,
1879 + 0.00000, 0.00000, 0.00000,
1880 + 0.00045, 0.00003, 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.00038, 0.00003, 0.00000, 0.00000, 0.00000,
1884 + 0.00000, 0.00000, 0.00000,
1885 + 0.00032, 0.00002, 0.00000, 0.00000, 0.00000,
1886 + 0.00000, 0.00000, 0.00000,
1887 + 0.00027, 0.00002, 0.00000, 0.00000, 0.00000,
1888 + 0.00000, 0.00000, 0.00000,
1889 + 0.00024, 0.00002, 0.00000, 0.00000, 0.00000,
1890 + 0.00000, 0.00000, 0.00000,
1891 + 0.00021, 0.00002, 0.00000, 0.00000, 0.00000,
1892 + 0.00000, 0.00000, 0.00000,
1893 + 0.00018, 0.00002, 0.00000, 0.00000, 0.00000,
1894 + 0.00000, 0.00000, 0.00000,
1895 + 0.00016, 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.00009, 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(52,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