]> git.uio.no Git - u/mrichter/AliRoot.git/blame - PDF/spdf/sfdish.F
New methods and data member added by M. Horner.
[u/mrichter/AliRoot.git] / PDF / spdf / sfdish.F
CommitLineData
21886bb6 1*
2* $Id$
3*
4* $Log$
5* Revision 1.1.1.2 1996/10/30 08:29:43 cernlib
6* Version 7.04
7*
8* Revision 1.1.1.1 1996/04/12 15:29:34 plothow
9* Version 7.01
10*
11*
12#include "pdf/pilot.h"
13 SUBROUTINE SFDISH(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU)
14
15C THIS IS THE NEW H FIT TO THE 1993 HERA F2 DATA
16C WITH UBAR < DBAR (230 MeV)
17C IN THE ** DIS ** SCHEME
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.01508, 0.00234, 28.57361, 2.50233, 0.14546,
24 + 0.00000, 1.34132, 2.52798,
25 + 0.01551, 0.00248, 41.41998, 2.90445, 0.59834,
26 + 0.00001, 1.76941, 2.92978,
27 + 0.01591, 0.00262, 56.22984, 3.35828, 1.09605,
28 + 0.00001, 2.24573, 3.38329,
29 + 0.01629, 0.00274, 72.60197, 3.85731, 1.63369,
30 + 0.00001, 2.76459, 3.88201,
31 + 0.01665, 0.00287, 90.39349, 4.39562, 2.20645,
32 + 0.12740, 3.32062, 4.42005,
33 + 0.01698, 0.00300, 109.40785, 4.96962, 2.81165,
34 + 0.69649, 3.91070, 4.99380,
35 + 0.01730, 0.00311, 129.52321, 5.57897, 3.44960,
36 + 1.39599, 4.53479, 5.60291 /
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.01761, 0.00324, 150.59039, 6.22099, 4.11796,
39 + 2.11291, 5.19041, 6.24470,
40 + 0.01791, 0.00335, 172.47517, 6.89236, 4.81379,
41 + 2.85689, 5.87442, 6.91586,
42 + 0.01820, 0.00346, 195.07593, 7.59054, 5.53473,
43 + 3.62358, 6.58438, 7.61385,
44 + 0.01848, 0.00357, 218.32326, 8.31348, 6.27895,
45 + 4.41183, 7.31835, 8.33663,
46 + 0.01874, 0.00367, 242.10217, 9.05856, 7.04403,
47 + 5.21909, 8.07380, 9.08157,
48 + 0.01901, 0.00378, 266.14624, 9.82123, 7.82554,
49 + 6.04096, 8.84624, 9.84408,
50 + 0.01927, 0.00389, 290.66772, 10.60346, 8.62559,
51 + 6.87977, 9.63772, 10.62618 /
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.01951, 0.00399, 315.54395, 11.40309, 9.44207,
54 + 7.73350, 10.44611, 11.42568,
55 + 0.01975, 0.00408, 340.46313, 12.21363, 10.26866,
56 + 8.59568, 11.26500, 12.23610,
57 + 0.01999, 0.00419, 365.83740, 13.04181, 11.11208,
58 + 9.47343, 12.10109, 13.06417,
59 + 0.02021, 0.00428, 391.07251, 13.87698, 11.96183,
60 + 10.35593, 12.94386, 13.89926,
61 + 0.02044, 0.00438, 416.66797, 14.72739, 12.82614,
62 + 11.25187, 13.80151, 14.74957 /
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.01910, 0.00337, 23.12250, 2.03841, 0.11542,
65 + 0.00000, 1.08670, 2.05327,
66 + 0.01968, 0.00359, 33.11473, 2.35319, 0.47102,
67 + 0.00000, 1.42219, 2.36782,
68 + 0.02022, 0.00378, 44.40931, 2.70360, 0.85671,
69 + 0.00001, 1.79052, 2.71801,
70 + 0.02072, 0.00397, 56.67399, 3.08411, 1.26826,
71 + 0.00000, 2.18684, 3.09833,
72 + 0.02118, 0.00415, 69.79973, 3.49027, 1.70207,
73 + 0.09624, 2.60708, 3.50430,
74 + 0.02163, 0.00433, 83.63523, 3.91914, 2.15598,
75 + 0.52392, 3.04873, 3.93300,
76 + 0.02205, 0.00451, 98.08751, 4.37030, 2.63008,
77 + 1.04547, 3.51159, 4.38401 /
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.02246, 0.00467, 113.04887, 4.84163, 3.12254,
80 + 1.57516, 3.99372, 4.85519,
81 + 0.02285, 0.00484, 128.42445, 5.33066, 3.63115,
82 + 2.12040, 4.49277, 5.34410,
83 + 0.02323, 0.00499, 144.14645, 5.83550, 4.15422,
84 + 2.67801, 5.00693, 5.84881,
85 + 0.02359, 0.00515, 160.17074, 6.35465, 4.69040,
86 + 3.24717, 5.53480, 6.36785,
87 + 0.02394, 0.00531, 176.41951, 6.88621, 5.23795,
88 + 3.82612, 6.07457, 6.89931,
89 + 0.02428, 0.00546, 192.70798, 7.42673, 5.79356,
90 + 4.41154, 6.62283, 7.43974,
91 + 0.02461, 0.00560, 209.19710, 7.97800, 6.35906,
92 + 5.00551, 7.18140, 7.99092 /
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.02493, 0.00575, 225.80480, 8.53840, 6.93295,
95 + 5.60657, 7.74873, 8.55127,
96 + 0.02524, 0.00589, 242.31673, 9.10323, 7.51058,
97 + 6.21002, 8.32013, 9.11601,
98 + 0.02555, 0.00602, 259.02999, 9.67763, 8.09716,
99 + 6.82136, 8.90079, 9.69039,
100 + 0.02584, 0.00616, 275.53486, 10.25374, 8.68491,
101 + 7.43260, 9.48288, 10.26643,
102 + 0.02613, 0.00629, 292.18452, 10.83787, 9.28013,
103 + 8.05038, 10.07273, 10.85050 /
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.02417, 0.00488, 18.71066, 1.65943, 0.09145,
106 + 0.00000, 0.88033, 1.66758,
107 + 0.02494, 0.00517, 26.47142, 1.90530, 0.37020,
108 + 0.00000, 1.14277, 1.91330,
109 + 0.02563, 0.00547, 35.06683, 2.17515, 0.66844,
110 + 0.00000, 1.42694, 2.18303,
111 + 0.02629, 0.00574, 44.22931, 2.46448, 0.98272,
112 + 0.00000, 1.72885, 2.47225,
113 + 0.02690, 0.00600, 53.88190, 2.76996, 1.31043,
114 + 0.07253, 2.04556, 2.77763,
115 + 0.02748, 0.00626, 63.91248, 3.08932, 1.64989,
116 + 0.39322, 2.37508, 3.09689,
117 + 0.02804, 0.00650, 74.25426, 3.42216, 2.00114,
118 + 0.78114, 2.71723, 3.42965 /
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.02857, 0.00675, 84.83257, 3.76689, 2.36283,
121 + 1.17147, 3.07054, 3.77432,
122 + 0.02908, 0.00698, 95.58434, 4.12171, 2.73335,
123 + 1.56995, 3.43331, 4.12907,
124 + 0.02957, 0.00721, 106.46631, 4.48525, 3.11149,
125 + 1.97427, 3.80425, 4.49254,
126 + 0.03004, 0.00743, 117.45285, 4.85648, 3.49637,
127 + 2.38397, 4.18240, 4.86371,
128 + 0.03050, 0.00765, 128.49417, 5.23406, 3.88676,
129 + 2.79781, 4.56646, 5.24124,
130 + 0.03093, 0.00786, 139.46341, 5.61542, 4.28018,
131 + 3.21339, 4.95394, 5.62256,
132 + 0.03136, 0.00807, 150.48344, 6.00210, 4.67826,
133 + 3.63247, 5.34640, 6.00920 /
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.03178, 0.00827, 161.50014, 6.39301, 5.07995,
136 + 4.05410, 5.74279, 6.40008,
137 + 0.03218, 0.00847, 172.36797, 6.78466, 5.48185,
138 + 4.47482, 6.13963, 6.79170,
139 + 0.03256, 0.00866, 183.30180, 7.18108, 5.88799,
140 + 4.89894, 6.54099, 7.18809,
141 + 0.03295, 0.00885, 194.01912, 7.57645, 6.29266,
142 + 5.32057, 6.94109, 7.58344,
143 + 0.03332, 0.00904, 204.77129, 7.97556, 6.70065,
144 + 5.74476, 7.34471, 7.98253 /
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.02772, 0.00605, 16.53067, 1.47072, 0.07972,
147 + 0.00000, 0.77826, 1.47640,
148 + 0.02861, 0.00643, 23.21927, 1.68322, 0.32122,
149 + 0.00000, 1.00530, 1.68881,
150 + 0.02944, 0.00679, 30.53673, 1.91450, 0.57752,
151 + 0.00000, 1.24915, 1.92001,
152 + 0.03020, 0.00712, 38.25038, 2.16056, 0.84557,
153 + 0.00000, 1.50626, 2.16601,
154 + 0.03091, 0.00744, 46.30000, 2.41869, 1.12326,
155 + 0.06140, 1.77423, 2.42408,
156 + 0.03159, 0.00777, 54.59346, 2.68694, 1.40923,
157 + 0.33205, 2.05139, 2.69229,
158 + 0.03224, 0.00807, 63.07721, 2.96498, 1.70347,
159 + 0.65786, 2.33758, 2.97028 /
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.03286, 0.00837, 71.69281, 3.25146, 2.00488,
162 + 0.98389, 2.63158, 3.25673,
163 + 0.03345, 0.00865, 80.39113, 3.54491, 2.31214,
164 + 1.31506, 2.93198, 3.55014,
165 + 0.03402, 0.00893, 89.14072, 3.84423, 2.62431,
166 + 1.64953, 3.23778, 3.84943,
167 + 0.03456, 0.00921, 97.92462, 4.14861, 2.94069,
168 + 1.98698, 3.54821, 4.15380,
169 + 0.03509, 0.00948, 106.70447, 4.45696, 3.26029,
170 + 2.32641, 3.86223, 4.46210,
171 + 0.03560, 0.00973, 115.37932, 4.76715, 3.58110,
172 + 2.66585, 4.17777, 4.77228,
173 + 0.03610, 0.00998, 124.05480, 5.08060, 3.90455,
174 + 3.00694, 4.49626, 5.08572 /
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.03658, 0.01022, 132.68862, 5.39638, 4.22981,
177 + 3.34887, 4.81683, 5.40148,
178 + 0.03704, 0.01047, 141.16511, 5.71167, 4.55410,
179 + 3.68886, 5.13665, 5.71676,
180 + 0.03750, 0.01071, 149.66236, 6.02989, 4.88087,
181 + 4.03056, 5.45919, 6.03497,
182 + 0.03794, 0.01093, 157.95304, 6.34620, 5.20535,
183 + 4.36910, 5.77962, 6.35127,
184 + 0.03836, 0.01116, 166.24386, 6.66467, 5.53162,
185 + 4.70876, 6.10203, 6.66975 /
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.03054, 0.00704, 15.13950, 1.34971, 0.07229,
188 + 0.00000, 0.71307, 1.35417,
189 + 0.03154, 0.00749, 21.15556, 1.54117, 0.29027,
190 + 0.00000, 0.91781, 1.54558,
191 + 0.03246, 0.00790, 27.67900, 1.74829, 0.52029,
192 + 0.00000, 1.13641, 1.75265,
193 + 0.03330, 0.00830, 34.50014, 1.96745, 0.75956,
194 + 0.00000, 1.36565, 1.97178,
195 + 0.03410, 0.00868, 41.56969, 2.19628, 1.00629,
196 + 0.05451, 1.60346, 2.20059,
197 + 0.03485, 0.00904, 48.80835, 2.43308, 1.25928,
198 + 0.29431, 1.84837, 2.43736,
199 + 0.03558, 0.00940, 56.17104, 2.67753, 1.51854,
200 + 0.58199, 2.10025, 2.68179 /
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.03626, 0.00974, 63.60899, 2.92847, 1.78313,
203 + 0.86870, 2.35804, 2.93273,
204 + 0.03692, 0.01008, 71.08234, 3.18464, 2.05191,
205 + 1.15891, 2.62055, 3.18888,
206 + 0.03755, 0.01039, 78.56602, 3.44508, 2.32410,
207 + 1.45101, 2.88688, 3.44931,
208 + 0.03817, 0.01072, 86.04810, 3.70914, 2.59913,
209 + 1.74479, 3.15645, 3.71337,
210 + 0.03875, 0.01102, 93.49756, 3.97587, 2.87615,
211 + 2.03942, 3.42836, 3.98010,
212 + 0.03932, 0.01132, 100.82874, 4.24340, 3.15337,
213 + 2.33317, 3.70076, 4.24764,
214 + 0.03987, 0.01161, 108.13600, 4.51309, 3.43219,
215 + 2.62757, 3.97504, 4.51732 /
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.04040, 0.01189, 115.38472, 4.78414, 3.71189,
218 + 2.92197, 4.25042, 4.78836,
219 + 0.04092, 0.01217, 122.47620, 5.05405, 3.99002,
220 + 3.21392, 4.52447, 5.05827,
221 + 0.04141, 0.01244, 129.56682, 5.32595, 4.26973,
222 + 3.50673, 4.80029, 5.33019,
223 + 0.04190, 0.01270, 136.46161, 5.59553, 4.54677,
224 + 3.79609, 5.07362, 5.59977,
225 + 0.04239, 0.01297, 143.34029, 5.86647, 4.82482,
226 + 4.08586, 5.34813, 5.87072 /
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.03292, 0.00793, 14.14132, 1.26262, 0.06697,
229 + 0.00000, 0.66628, 1.26634,
230 + 0.03400, 0.00843, 19.68086, 1.43912, 0.26826,
231 + 0.00000, 0.85518, 1.44282,
232 + 0.03500, 0.00890, 25.64561, 1.62915, 0.47969,
233 + 0.00000, 1.05592, 1.63285,
234 + 0.03593, 0.00934, 31.84277, 1.82937, 0.69869,
235 + 0.00000, 1.26554, 1.83306,
236 + 0.03679, 0.00977, 38.23102, 2.03768, 0.92373,
237 + 0.04969, 1.48221, 2.04136,
238 + 0.03760, 0.01018, 44.74008, 2.25249, 1.15367,
239 + 0.26791, 1.70461, 2.25618,
240 + 0.03839, 0.01058, 51.33093, 2.47356, 1.38857,
241 + 0.52899, 1.93261, 2.47725 /
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.03914, 0.01097, 57.96184, 2.69985, 1.62760,
244 + 0.78837, 2.16528, 2.70355,
245 + 0.03986, 0.01134, 64.59860, 2.93022, 1.86976,
246 + 1.05019, 2.40156, 2.93392,
247 + 0.04055, 0.01170, 71.22144, 3.16385, 2.11435,
248 + 1.31302, 2.64067, 3.16756,
249 + 0.04120, 0.01206, 77.82121, 3.40016, 2.36090,
250 + 1.57670, 2.88212, 3.40388,
251 + 0.04184, 0.01239, 84.37195, 3.63832, 2.60867,
252 + 1.84053, 3.12509, 3.64206,
253 + 0.04245, 0.01272, 90.79819, 3.87666, 2.85606,
254 + 2.10294, 3.36796, 3.88041,
255 + 0.04305, 0.01305, 97.18675, 4.11645, 3.10437,
256 + 2.36541, 3.61203, 4.12021 /
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.04362, 0.01337, 103.50786, 4.35699, 3.35299,
259 + 2.62735, 3.85662, 4.36077,
260 + 0.04418, 0.01368, 109.67487, 4.59604, 3.59971,
261 + 2.88658, 4.09952, 4.59983,
262 + 0.04473, 0.01397, 115.82816, 4.83648, 3.84742,
263 + 3.14614, 4.34359, 4.84027,
264 + 0.04525, 0.01427, 121.79561, 5.07441, 4.09230,
265 + 3.40214, 4.58501, 5.07821,
266 + 0.04576, 0.01456, 127.73788, 5.31318, 4.33771,
267 + 3.65810, 4.82710, 5.31700 /
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.04155, 0.01147, 11.43973, 1.02530, 0.05266,
270 + 0.00000, 0.53956, 1.02817,
271 + 0.04294, 0.01218, 15.71670, 1.16188, 0.20932,
272 + 0.00000, 0.68616, 1.16481,
273 + 0.04422, 0.01287, 20.21892, 1.30675, 0.37153,
274 + 0.00000, 0.83970, 1.30975,
275 + 0.04541, 0.01351, 24.80116, 1.45733, 0.53732,
276 + 0.00000, 0.99787, 1.46039,
277 + 0.04652, 0.01411, 29.44316, 1.61220, 0.70572,
278 + 0.03716, 1.15949, 1.61531,
279 + 0.04758, 0.01471, 34.09891, 1.77021, 0.87597,
280 + 0.19950, 1.32362, 1.77338,
281 + 0.04858, 0.01527, 38.74529, 1.93122, 1.04817,
282 + 0.39205, 1.49020, 1.93444 /
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.04954, 0.01582, 43.35803, 2.09451, 1.22177,
285 + 0.58144, 1.65864, 2.09777,
286 + 0.05045, 0.01635, 47.91843, 2.25933, 1.39610,
287 + 0.77090, 1.82820, 2.26264,
288 + 0.05133, 0.01687, 52.41753, 2.42513, 1.57078,
289 + 0.95950, 1.99845, 2.42850,
290 + 0.05218, 0.01736, 56.85410, 2.59160, 1.74553,
291 + 1.14723, 2.16904, 2.59501,
292 + 0.05299, 0.01784, 61.21371, 2.75817, 1.91985,
293 + 1.33365, 2.33948, 2.76162,
294 + 0.05378, 0.01831, 65.44678, 2.92364, 2.09264,
295 + 1.51769, 2.50860, 2.92714,
296 + 0.05454, 0.01876, 69.61964, 3.08911, 2.26500,
297 + 1.70058, 2.67750, 3.09264 /
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.05527, 0.01920, 73.71400, 3.25409, 2.43649,
300 + 1.88195, 2.84573, 3.25766,
301 + 0.05598, 0.01964, 77.67226, 3.41700, 2.60559,
302 + 2.06026, 3.01172, 3.42061,
303 + 0.05668, 0.02005, 81.59584, 3.58002, 2.77450,
304 + 2.23785, 3.17768, 3.58367,
305 + 0.05735, 0.02046, 85.36723, 3.74035, 2.94044,
306 + 2.41191, 3.34080, 3.74404,
307 + 0.05801, 0.02087, 89.10036, 3.90050, 3.10595,
308 + 2.58510, 3.50363, 3.90423 /
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.05244, 0.01662, 9.25090, 0.83129, 0.04108,
311 + 0.00000, 0.43682, 0.83477,
312 + 0.05421, 0.01766, 12.53508, 0.93613, 0.16225,
313 + 0.00000, 0.54983, 0.93974,
314 + 0.05583, 0.01863, 15.90942, 1.04568, 0.28587,
315 + 0.00000, 0.66642, 1.04938,
316 + 0.05735, 0.01955, 19.26860, 1.15795, 0.41050,
317 + 0.00000, 0.78486, 1.16175,
318 + 0.05876, 0.02041, 22.60866, 1.27205, 0.53561,
319 + 0.02762, 0.90447, 1.27594,
320 + 0.06010, 0.02124, 25.90247, 1.38718, 0.66069,
321 + 0.14764, 1.02458, 1.39118,
322 + 0.06138, 0.02206, 29.13887, 1.50330, 0.78589,
323 + 0.28871, 1.14523, 1.50737 /
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.06261, 0.02282, 32.30612, 1.61994, 0.91089,
326 + 0.42601, 1.26604, 1.62408,
327 + 0.06378, 0.02357, 35.39610, 1.73659, 1.03531,
328 + 0.56207, 1.38658, 1.74082,
329 + 0.06490, 0.02429, 38.40730, 1.85300, 1.15890,
330 + 0.69633, 1.50657, 1.85729,
331 + 0.06598, 0.02499, 41.34314, 1.96893, 1.28157,
332 + 0.82886, 1.62588, 1.97329,
333 + 0.06700, 0.02567, 44.19688, 2.08407, 1.40301,
334 + 0.95943, 1.74416, 2.08850,
335 + 0.06801, 0.02632, 46.93665, 2.19758, 1.52245,
336 + 1.08731, 1.86063, 2.20206,
337 + 0.06897, 0.02695, 49.61301, 2.31035, 1.64083,
338 + 1.21354, 1.97620, 2.31489 /
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.06991, 0.02756, 52.21521, 2.42209, 1.75786,
341 + 1.33788, 2.09057, 2.42668,
342 + 0.07081, 0.02816, 54.70546, 2.53165, 1.87246,
343 + 1.45927, 2.20265, 2.53630,
344 + 0.07169, 0.02874, 57.15674, 2.64074, 1.98632,
345 + 1.57950, 2.31412, 2.64543,
346 + 0.07255, 0.02931, 59.48952, 2.74729, 2.09742,
347 + 1.69655, 2.42294, 2.75202,
348 + 0.07337, 0.02985, 61.78384, 2.85322, 2.20772,
349 + 1.81243, 2.53105, 2.85801 /
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.06010, 0.02068, 8.16771, 0.73475, 0.03533,
352 + 0.00000, 0.38595, 0.73899,
353 + 0.06215, 0.02195, 10.97002, 0.82411, 0.13917,
354 + 0.00000, 0.48259, 0.82850,
355 + 0.06401, 0.02315, 13.80556, 0.91663, 0.24418,
356 + 0.00000, 0.58137, 0.92113,
357 + 0.06575, 0.02427, 16.58923, 1.01064, 0.34917,
358 + 0.00000, 0.68089, 1.01526,
359 + 0.06736, 0.02534, 19.32477, 1.10552, 0.45380,
360 + 0.02313, 0.78066, 1.11023,
361 + 0.06891, 0.02637, 21.99377, 1.20060, 0.55771,
362 + 0.12326, 0.88017, 1.20542,
363 + 0.07039, 0.02735, 24.59062, 1.29587, 0.66105,
364 + 0.24031, 0.97949, 1.30079 /
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.07179, 0.02830, 27.10899, 1.39101, 0.76363,
367 + 0.35349, 1.07836, 1.39601,
368 + 0.07313, 0.02921, 29.54529, 1.48566, 0.86514,
369 + 0.46499, 1.17645, 1.49073,
370 + 0.07442, 0.03008, 31.90111, 1.57960, 0.96547,
371 + 0.57442, 1.27358, 1.58475,
372 + 0.07566, 0.03093, 34.18138, 1.67272, 1.06457,
373 + 0.68189, 1.36970, 1.67794,
374 + 0.07685, 0.03175, 36.38255, 1.76477, 1.16222,
375 + 0.78726, 1.46455, 1.77004,
376 + 0.07800, 0.03254, 38.48053, 1.85508, 1.25780,
377 + 0.88994, 1.55750, 1.86042,
378 + 0.07911, 0.03329, 40.51802, 1.94443, 1.35214,
379 + 0.99087, 1.64936, 1.94984 /
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.08019, 0.03403, 42.48756, 2.03263, 1.44504,
382 + 1.08989, 1.73990, 2.03808,
383 + 0.08122, 0.03475, 44.35997, 2.11873, 1.53561,
384 + 1.18613, 1.82825, 2.12426,
385 + 0.08223, 0.03545, 46.19490, 2.20419, 1.62532,
386 + 1.28114, 1.91584, 2.20976,
387 + 0.08321, 0.03613, 47.92944, 2.28731, 1.71250,
388 + 1.37323, 2.00098, 2.29293,
389 + 0.08415, 0.03680, 49.62872, 2.36971, 1.79876,
390 + 1.46414, 2.08531, 2.37537 /
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.06624, 0.02414, 7.47539, 0.67282, 0.03164,
393 + 0.00000, 0.35348, 0.67779,
394 + 0.06847, 0.02562, 9.97223, 0.75245, 0.12455,
395 + 0.00000, 0.43978, 0.75754,
396 + 0.07053, 0.02702, 12.46965, 0.83431, 0.21790,
397 + 0.00000, 0.52743, 0.83953,
398 + 0.07245, 0.02832, 14.89576, 0.91699, 0.31065,
399 + 0.00000, 0.61516, 0.92231,
400 + 0.07424, 0.02955, 17.25882, 0.99998, 0.40261,
401 + 0.02033, 0.70266, 1.00540,
402 + 0.07594, 0.03074, 19.54593, 1.08273, 0.49346,
403 + 0.10814, 0.78948, 1.08824,
404 + 0.07758, 0.03188, 21.75473, 1.16525, 0.58341,
405 + 0.21035, 0.87574, 1.17084 /
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.07913, 0.03297, 23.88213, 1.24729, 0.67228,
408 + 0.30870, 0.96120, 1.25296,
409 + 0.08061, 0.03401, 25.92714, 1.32856, 0.75988,
410 + 0.40519, 1.04565, 1.33430,
411 + 0.08203, 0.03501, 27.89279, 1.40891, 0.84611,
412 + 0.49949, 1.12895, 1.41473,
413 + 0.08340, 0.03598, 29.78505, 1.48828, 0.93096,
414 + 0.59175, 1.21108, 1.49416,
415 + 0.08471, 0.03691, 31.60204, 1.56645, 1.01430,
416 + 0.68189, 1.29184, 1.57239,
417 + 0.08598, 0.03780, 33.32407, 1.64286, 1.09557,
418 + 0.76940, 1.37070, 1.64887,
419 + 0.08720, 0.03868, 34.98917, 1.71825, 1.17554,
420 + 0.85516, 1.44840, 1.72431 /
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.08839, 0.03952, 36.59158, 1.79243, 1.25405,
423 + 0.93903, 1.52475, 1.79855,
424 + 0.08954, 0.04034, 38.10712, 1.86463, 1.33036,
425 + 1.02028, 1.59900, 1.87079,
426 + 0.09064, 0.04113, 39.58728, 1.93610, 1.40575,
427 + 1.10029, 1.67244, 1.94231,
428 + 0.09172, 0.04189, 40.97926, 2.00539, 1.47878,
429 + 1.17760, 1.74361, 2.01165,
430 + 0.09277, 0.04264, 42.33871, 2.07394, 1.55089,
431 + 1.25374, 1.81395, 2.08024 /
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.07148, 0.02735, 6.97721, 0.62867, 0.02893,
434 + 0.00000, 0.33006, 0.63388,
435 + 0.07391, 0.02902, 9.25154, 0.70124, 0.11395,
436 + 0.00000, 0.40888, 0.70660,
437 + 0.07615, 0.03059, 11.50403, 0.77545, 0.19890,
438 + 0.00000, 0.48849, 0.78094,
439 + 0.07822, 0.03204, 13.67303, 0.85001, 0.28289,
440 + 0.00002, 0.56780, 0.85563,
441 + 0.08017, 0.03342, 15.77015, 0.92449, 0.36577,
442 + 0.01834, 0.64650, 0.93022,
443 + 0.08202, 0.03473, 17.78607, 0.99845, 0.44732,
444 + 0.09732, 0.72428, 1.00429,
445 + 0.08378, 0.03600, 19.72060, 1.07192, 0.52773,
446 + 0.18896, 0.80122, 1.07783 /
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.08547, 0.03720, 21.57309, 1.14469, 0.60690,
449 + 0.27677, 0.87721, 1.15070,
450 + 0.08708, 0.03836, 23.34392, 1.21652, 0.68465,
451 + 0.36262, 0.95201, 1.22261,
452 + 0.08861, 0.03947, 25.03760, 1.28729, 0.76095,
453 + 0.44622, 1.02557, 1.29346,
454 + 0.09009, 0.04054, 26.66037, 1.35700, 0.83580,
455 + 0.52777, 1.09786, 1.36324,
456 + 0.09151, 0.04156, 28.21049, 1.42545, 0.90909,
457 + 0.60720, 1.16874, 1.43176,
458 + 0.09289, 0.04255, 29.67432, 1.49217, 0.98035,
459 + 0.68409, 1.23774, 1.49854,
460 + 0.09421, 0.04351, 31.08479, 1.55783, 1.05030,
461 + 0.75924, 1.30555, 1.56426 /
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.09549, 0.04444, 32.43724, 1.62229, 1.11882,
464 + 0.83256, 1.37205, 1.62877,
465 + 0.09673, 0.04533, 33.70975, 1.68483, 1.18523,
466 + 0.90340, 1.43653, 1.69137,
467 + 0.09793, 0.04620, 34.94885, 1.74664, 1.25070,
468 + 0.97302, 1.50018, 1.75323,
469 + 0.09909, 0.04704, 36.10852, 1.80639, 1.31395,
470 + 1.04010, 1.56169, 1.81303,
471 + 0.10022, 0.04786, 37.23849, 1.86539, 1.37629,
472 + 1.10603, 1.62236, 1.87207 /
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.09073, 0.04042, 5.62636, 0.50845, 0.02147,
475 + 0.00000, 0.26664, 0.51491,
476 + 0.09386, 0.04279, 7.30762, 0.56213, 0.08530,
477 + 0.00000, 0.32544, 0.56877,
478 + 0.09674, 0.04498, 8.91820, 0.61605, 0.14799,
479 + 0.00000, 0.38379, 0.62283,
480 + 0.09943, 0.04702, 10.42288, 0.66934, 0.20897,
481 + 0.00001, 0.44095, 0.67625,
482 + 0.10194, 0.04893, 11.84112, 0.72179, 0.26828,
483 + 0.01314, 0.49687, 0.72882,
484 + 0.10432, 0.05074, 13.17321, 0.77315, 0.32585,
485 + 0.06936, 0.55135, 0.78028,
486 + 0.10659, 0.05247, 14.42432, 0.82347, 0.38187,
487 + 0.13384, 0.60455, 0.83069 /
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.10875, 0.05410, 15.59858, 0.87272, 0.43636,
490 + 0.19482, 0.65644, 0.88002,
491 + 0.11082, 0.05566, 16.70023, 0.92077, 0.48926,
492 + 0.25373, 0.70694, 0.92816,
493 + 0.11280, 0.05715, 17.73563, 0.96761, 0.54062,
494 + 0.31046, 0.75605, 0.97507,
495 + 0.11469, 0.05858, 18.71164, 1.01326, 0.59050,
496 + 0.36522, 0.80384, 1.02079,
497 + 0.11650, 0.05994, 19.62926, 1.05765, 0.63887,
498 + 0.41804, 0.85023, 1.06525,
499 + 0.11825, 0.06125, 20.48106, 1.10048, 0.68543,
500 + 0.46864, 0.89493, 1.10812,
501 + 0.11994, 0.06250, 21.29117, 1.14226, 0.73075,
502 + 0.51769, 0.93851, 1.14998 /
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.12155, 0.06371, 22.05750, 1.18294, 0.77476,
505 + 0.56513, 0.98086, 1.19070,
506 + 0.12312, 0.06487, 22.76675, 1.22204, 0.81705,
507 + 0.61056, 1.02156, 1.22985,
508 + 0.12464, 0.06600, 23.45059, 1.26041, 0.85845,
509 + 0.65489, 1.06146, 1.26826,
510 + 0.12611, 0.06708, 24.07961, 1.29717, 0.89809,
511 + 0.69723, 1.09967, 1.30507,
512 + 0.12753, 0.06813, 24.68698, 1.33324, 0.93692,
513 + 0.73859, 1.13713, 1.34117 /
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.11612, 0.05999, 4.52734, 0.41093, 0.01511,
516 + 0.00002, 0.21501, 0.41883,
517 + 0.12021, 0.06325, 5.73271, 0.44951, 0.06199,
518 + 0.00001, 0.25778, 0.45759,
519 + 0.12400, 0.06625, 6.84270, 0.48755, 0.10722,
520 + 0.00002, 0.29946, 0.49577,
521 + 0.12750, 0.06900, 7.84306, 0.52442, 0.15040,
522 + 0.00002, 0.33952, 0.53278,
523 + 0.13076, 0.07156, 8.75681, 0.56014, 0.19174,
524 + 0.00920, 0.37808, 0.56858,
525 + 0.13384, 0.07397, 9.59102, 0.59451, 0.23122,
526 + 0.04814, 0.41504, 0.60305,
527 + 0.13679, 0.07622, 10.35507, 0.62768, 0.26910,
528 + 0.09226, 0.45058, 0.63631 /
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.13957, 0.07834, 11.05375, 0.65970, 0.30544,
531 + 0.13337, 0.48477, 0.66841,
532 + 0.14222, 0.08035, 11.69351, 0.69051, 0.34025,
533 + 0.17253, 0.51760, 0.69926,
534 + 0.14474, 0.08225, 12.28241, 0.72013, 0.37364,
535 + 0.20976, 0.54912, 0.72894,
536 + 0.14715, 0.08406, 12.82666, 0.74866, 0.40568,
537 + 0.24529, 0.57943, 0.75753,
538 + 0.14945, 0.08578, 13.32714, 0.77610, 0.43642,
539 + 0.27918, 0.60853, 0.78501,
540 + 0.15165, 0.08741, 13.78036, 0.80221, 0.46564,
541 + 0.31125, 0.63620, 0.81116,
542 + 0.15378, 0.08897, 14.20426, 0.82743, 0.49379,
543 + 0.34202, 0.66290, 0.83643 /
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.15582, 0.09047, 14.59854, 0.85172, 0.52089,
546 + 0.37151, 0.68861, 0.86077,
547 + 0.15777, 0.09188, 14.95536, 0.87485, 0.54668,
548 + 0.39948, 0.71307, 0.88391,
549 + 0.15966, 0.09324, 15.29492, 0.89736, 0.57172,
550 + 0.42656, 0.73685, 0.90646,
551 + 0.16148, 0.09456, 15.59800, 0.91864, 0.59542,
552 + 0.45213, 0.75934, 0.92777,
553 + 0.16324, 0.09583, 15.88724, 0.93937, 0.61846,
554 + 0.47693, 0.78125, 0.94853 /
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.13480, 0.07546, 3.98165, 0.36243, 0.01180,
557 + 0.00002, 0.18930, 0.37118,
558 + 0.13962, 0.07935, 4.95415, 0.39371, 0.05048,
559 + 0.00003, 0.22434, 0.40262,
560 + 0.14405, 0.08290, 5.82556, 0.42416, 0.08736,
561 + 0.00003, 0.25805, 0.43319,
562 + 0.14816, 0.08611, 6.59158, 0.45332, 0.12219,
563 + 0.00003, 0.29007, 0.46246,
564 + 0.15199, 0.08906, 7.27642, 0.48123, 0.15518,
565 + 0.00735, 0.32055, 0.49046,
566 + 0.15559, 0.09181, 7.89017, 0.50779, 0.18635,
567 + 0.03830, 0.34945, 0.51711,
568 + 0.15899, 0.09438, 8.44100, 0.53318, 0.21598,
569 + 0.07307, 0.37698, 0.54255 /
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.16221, 0.09679, 8.93561, 0.55739, 0.24411,
572 + 0.10512, 0.40316, 0.56683,
573 + 0.16525, 0.09904, 9.38150, 0.58047, 0.27084,
574 + 0.13539, 0.42807, 0.58997,
575 + 0.16815, 0.10115, 9.78434, 0.60251, 0.29627,
576 + 0.16395, 0.45183, 0.61204,
577 + 0.17092, 0.10315, 10.15014, 0.62354, 0.32051,
578 + 0.19100, 0.47448, 0.63312,
579 + 0.17354, 0.10505, 10.48254, 0.64358, 0.34355,
580 + 0.21658, 0.49603, 0.65319,
581 + 0.17604, 0.10683, 10.77755, 0.66252, 0.36532,
582 + 0.24065, 0.51639, 0.67216,
583 + 0.17843, 0.10853, 11.04940, 0.68067, 0.38616,
584 + 0.26358, 0.53589, 0.69034 /
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.18072, 0.11016, 11.29810, 0.69804, 0.40607,
587 + 0.28540, 0.55454, 0.70771,
588 + 0.18292, 0.11169, 11.51828, 0.71437, 0.42484,
589 + 0.30592, 0.57210, 0.72408,
590 + 0.18504, 0.11317, 11.72573, 0.73020, 0.44299,
591 + 0.32569, 0.58909, 0.73992,
592 + 0.18708, 0.11455, 11.90742, 0.74503, 0.46004,
593 + 0.34424, 0.60504, 0.75478,
594 + 0.18905, 0.11590, 12.07889, 0.75942, 0.47655,
595 + 0.36216, 0.62048, 0.76917 /
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.15029, 0.08868, 3.63159, 0.33129, 0.00955,
598 + 0.00002, 0.17277, 0.34067,
599 + 0.15572, 0.09304, 4.45618, 0.35796, 0.04311,
600 + 0.00002, 0.20293, 0.36749,
601 + 0.16071, 0.09698, 5.17942, 0.38370, 0.07481,
602 + 0.00003, 0.23168, 0.39331,
603 + 0.16532, 0.10049, 5.80246, 0.40808, 0.10448,
604 + 0.00003, 0.25873, 0.41781,
605 + 0.16960, 0.10372, 6.34982, 0.43121, 0.13235,
606 + 0.00621, 0.28426, 0.44102,
607 + 0.17362, 0.10670, 6.83238, 0.45303, 0.15850,
608 + 0.03227, 0.30828, 0.46291,
609 + 0.17737, 0.10946, 7.25862, 0.47370, 0.18312,
610 + 0.06136, 0.33094, 0.48360 /
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.18092, 0.11204, 7.63543, 0.49326, 0.20637,
613 + 0.08796, 0.35234, 0.50320,
614 + 0.18427, 0.11442, 7.96998, 0.51174, 0.22828,
615 + 0.11291, 0.37255, 0.52173,
616 + 0.18745, 0.11666, 8.26775, 0.52927, 0.24902,
617 + 0.13631, 0.39168, 0.53928,
618 + 0.19046, 0.11876, 8.53430, 0.54588, 0.26865,
619 + 0.15834, 0.40982, 0.55592,
620 + 0.19332, 0.12074, 8.77298, 0.56160, 0.28720,
621 + 0.17905, 0.42696, 0.57166,
622 + 0.19603, 0.12258, 8.98090, 0.57635, 0.30461,
623 + 0.19841, 0.44305, 0.58642,
624 + 0.19861, 0.12434, 9.17000, 0.59041, 0.32122,
625 + 0.21678, 0.45837, 0.60048 /
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.20108, 0.12602, 9.34047, 0.60376, 0.33697,
628 + 0.23416, 0.47293, 0.61383,
629 + 0.20344, 0.12760, 9.48812, 0.61623, 0.35176,
630 + 0.25042, 0.48656, 0.62632,
631 + 0.20572, 0.12911, 9.62581, 0.62826, 0.36599,
632 + 0.26602, 0.49969, 0.63835,
633 + 0.20789, 0.13052, 9.74323, 0.63944, 0.37927,
634 + 0.28058, 0.51193, 0.64954,
635 + 0.20999, 0.13188, 9.85289, 0.65023, 0.39209,
636 + 0.29459, 0.52374, 0.66034 /
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.16352, 0.10032, 3.37937, 0.30848, 0.00790,
639 + 0.00002, 0.16083, 0.31828,
640 + 0.16954, 0.10506, 4.09838, 0.33198, 0.03789,
641 + 0.00004, 0.18760, 0.34191,
642 + 0.17509, 0.10927, 4.71769, 0.35442, 0.06601,
643 + 0.00004, 0.21292, 0.36448,
644 + 0.18013, 0.11305, 5.24194, 0.37553, 0.09213,
645 + 0.00003, 0.23653, 0.38562,
646 + 0.18480, 0.11647, 5.69572, 0.39538, 0.11650,
647 + 0.00545, 0.25865, 0.40554,
648 + 0.18916, 0.11960, 6.08940, 0.41395, 0.13920,
649 + 0.02810, 0.27928, 0.42415,
650 + 0.19324, 0.12247, 6.43224, 0.43142, 0.16047,
651 + 0.05329, 0.29867, 0.44166 /
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.19707, 0.12514, 6.73166, 0.44780, 0.18039,
654 + 0.07616, 0.31682, 0.45808,
655 + 0.20067, 0.12760, 6.99285, 0.46321, 0.19907,
656 + 0.09751, 0.33388, 0.47350,
657 + 0.20405, 0.12990, 7.22282, 0.47771, 0.21664,
658 + 0.11741, 0.34990, 0.48799,
659 + 0.20727, 0.13205, 7.42642, 0.49135, 0.23319,
660 + 0.13604, 0.36498, 0.50165,
661 + 0.21033, 0.13405, 7.60415, 0.50417, 0.24875,
662 + 0.15348, 0.37919, 0.51450,
663 + 0.21319, 0.13594, 7.75704, 0.51611, 0.26326,
664 + 0.16968, 0.39241, 0.52642,
665 + 0.21592, 0.13772, 7.89445, 0.52745, 0.27703,
666 + 0.18501, 0.40497, 0.53774 /
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.21854, 0.13938, 8.01655, 0.53817, 0.29009,
669 + 0.19948, 0.41686, 0.54848,
670 + 0.22102, 0.14094, 8.11928, 0.54810, 0.30224,
671 + 0.21292, 0.42788, 0.55840,
672 + 0.22342, 0.14243, 8.21397, 0.55762, 0.31388,
673 + 0.22578, 0.43847, 0.56792,
674 + 0.22569, 0.14384, 8.29227, 0.56642, 0.32472,
675 + 0.23772, 0.44828, 0.57670,
676 + 0.22787, 0.14517, 8.36434, 0.57488, 0.33513,
677 + 0.24917, 0.45771, 0.58514 /
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.21657, 0.14561, 2.68652, 0.24625, 0.00301,
680 + 0.00001, 0.12777, 0.25730,
681 + 0.22475, 0.15119, 3.12191, 0.26105, 0.02355,
682 + 0.00002, 0.14543, 0.27214,
683 + 0.23206, 0.15600, 3.47119, 0.27473, 0.04231,
684 + 0.00000, 0.16162, 0.28581,
685 + 0.23858, 0.16017, 3.74667, 0.28716, 0.05927,
686 + 0.00002, 0.17630, 0.29820,
687 + 0.24448, 0.16382, 3.96980, 0.29849, 0.07471,
688 + 0.00345, 0.18965, 0.30949,
689 + 0.24989, 0.16704, 4.15146, 0.30875, 0.08872,
690 + 0.01754, 0.20177, 0.31970,
691 + 0.25484, 0.16990, 4.29869, 0.31804, 0.10152,
692 + 0.03288, 0.21279, 0.32897 /
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.25940, 0.17247, 4.41846, 0.32651, 0.11326,
695 + 0.04651, 0.22287, 0.33740,
696 + 0.26362, 0.17480, 4.51544, 0.33427, 0.12405,
697 + 0.05900, 0.23212, 0.34510,
698 + 0.26753, 0.17691, 4.59424, 0.34134, 0.13397,
699 + 0.07041, 0.24060, 0.35210,
700 + 0.27118, 0.17885, 4.65814, 0.34781, 0.14314,
701 + 0.08088, 0.24839, 0.35851,
702 + 0.27460, 0.18061, 4.70790, 0.35373, 0.15160,
703 + 0.09055, 0.25557, 0.36440,
704 + 0.27777, 0.18220, 4.74467, 0.35906, 0.15935,
705 + 0.09936, 0.26207, 0.36965,
706 + 0.28076, 0.18365, 4.77407, 0.36398, 0.16656,
707 + 0.10755, 0.26812, 0.37453 /
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.28359, 0.18500, 4.79632, 0.36848, 0.17327,
710 + 0.11516, 0.27372, 0.37901,
711 + 0.28621, 0.18622, 4.80952, 0.37255, 0.17942,
712 + 0.12214, 0.27881, 0.38300,
713 + 0.28870, 0.18739, 4.81959, 0.37638, 0.18523,
714 + 0.12874, 0.28361, 0.38676,
715 + 0.29102, 0.18844, 4.82134, 0.37976, 0.19051,
716 + 0.13475, 0.28792, 0.39010,
717 + 0.29325, 0.18943, 4.82118, 0.38294, 0.19552,
718 + 0.14045, 0.29200, 0.39324 /
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.29475, 0.20433, 2.09615, 0.19190, 0.00001,
721 + 0.00012, 0.09825, 0.20318,
722 + 0.30508, 0.20942, 2.30651, 0.19956, 0.01189,
723 + 0.00014, 0.10874, 0.21073,
724 + 0.31388, 0.21346, 2.45504, 0.20630, 0.02372,
725 + 0.00009, 0.11796, 0.21726,
726 + 0.32137, 0.21670, 2.55577, 0.21203, 0.03400,
727 + 0.00010, 0.12588, 0.22279,
728 + 0.32791, 0.21931, 2.62536, 0.21694, 0.04302,
729 + 0.00184, 0.13278, 0.22753,
730 + 0.33360, 0.22141, 2.67192, 0.22103, 0.05095,
731 + 0.00979, 0.13874, 0.23148,
732 + 0.33867, 0.22308, 2.70094, 0.22454, 0.05796,
733 + 0.01828, 0.14396, 0.23481 /
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.34318, 0.22445, 2.71617, 0.22747, 0.06418,
736 + 0.02557, 0.14851, 0.23759,
737 + 0.34720, 0.22557, 2.72121, 0.22993, 0.06974,
738 + 0.03208, 0.15249, 0.23995,
739 + 0.35078, 0.22647, 2.71849, 0.23203, 0.07470,
740 + 0.03789, 0.15598, 0.24191,
741 + 0.35401, 0.22722, 2.70995, 0.23382, 0.07916,
742 + 0.04311, 0.15905, 0.24354,
743 + 0.35694, 0.22781, 2.69663, 0.23531, 0.08320,
744 + 0.04784, 0.16176, 0.24491,
745 + 0.35953, 0.22823, 2.67878, 0.23646, 0.08675,
746 + 0.05202, 0.16407, 0.24591,
747 + 0.36190, 0.22858, 2.65897, 0.23739, 0.08998,
748 + 0.05581, 0.16613, 0.24674 /
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.36407, 0.22884, 2.63718, 0.23811, 0.09290,
751 + 0.05923, 0.16793, 0.24741,
752 + 0.36600, 0.22898, 2.61265, 0.23864, 0.09549,
753 + 0.06236, 0.16945, 0.24787,
754 + 0.36781, 0.22906, 2.58826, 0.23910, 0.09789,
755 + 0.06528, 0.17084, 0.24823,
756 + 0.36939, 0.22908, 2.56176, 0.23934, 0.10000,
757 + 0.06783, 0.17200, 0.24833,
758 + 0.37087, 0.22905, 2.53572, 0.23952, 0.10196,
759 + 0.07022, 0.17305, 0.24837 /
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.35617, 0.24127, 1.77708, 0.16036, 0.00001,
762 + 0.00000, 0.08124, 0.17114,
763 + 0.36684, 0.24466, 1.88087, 0.16450, 0.00655,
764 + 0.00001, 0.08835, 0.17499,
765 + 0.37554, 0.24696, 1.94096, 0.16790, 0.01526,
766 + 0.00005, 0.09434, 0.17806,
767 + 0.38259, 0.24840, 1.96970, 0.17044, 0.02262,
768 + 0.00003, 0.09919, 0.18041,
769 + 0.38844, 0.24925, 1.97969, 0.17243, 0.02889,
770 + 0.00132, 0.10323, 0.18207,
771 + 0.39329, 0.24964, 1.97654, 0.17385, 0.03423,
772 + 0.00664, 0.10655, 0.18323,
773 + 0.39733, 0.24973, 1.96431, 0.17479, 0.03891,
774 + 0.01216, 0.10933, 0.18407 /
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.40074, 0.24955, 1.94539, 0.17543, 0.04292,
777 + 0.01685, 0.11157, 0.18453,
778 + 0.40353, 0.24924, 1.92203, 0.17585, 0.04636,
779 + 0.02097, 0.11345, 0.18472,
780 + 0.40590, 0.24878, 1.89570, 0.17604, 0.04938,
781 + 0.02456, 0.11499, 0.18468,
782 + 0.40797, 0.24816, 1.86760, 0.17599, 0.05205,
783 + 0.02772, 0.11626, 0.18446,
784 + 0.40973, 0.24742, 1.83844, 0.17574, 0.05440,
785 + 0.03057, 0.11731, 0.18409,
786 + 0.41108, 0.24666, 1.80774, 0.17538, 0.05642,
787 + 0.03303, 0.11807, 0.18357,
788 + 0.41222, 0.24584, 1.77732, 0.17492, 0.05824,
789 + 0.03524, 0.11869, 0.18297 /
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.41321, 0.24494, 1.74710, 0.17436, 0.05987,
792 + 0.03722, 0.11917, 0.18230,
793 + 0.41396, 0.24396, 1.71651, 0.17370, 0.06122,
794 + 0.03895, 0.11950, 0.18152,
795 + 0.41461, 0.24300, 1.68711, 0.17302, 0.06244,
796 + 0.04053, 0.11975, 0.18072,
797 + 0.41504, 0.24200, 1.65738, 0.17225, 0.06347,
798 + 0.04189, 0.11985, 0.17981,
799 + 0.41539, 0.24101, 1.62891, 0.17147, 0.06443,
800 + 0.04314, 0.11991, 0.17891 /
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.40731, 0.26516, 1.55169, 0.13673, 0.00001,
803 + 0.00008, 0.06860, 0.14665,
804 + 0.41708, 0.26630, 1.59176, 0.13869, 0.00350,
805 + 0.00006, 0.07363, 0.14818,
806 + 0.42450, 0.26648, 1.60210, 0.14000, 0.01038,
807 + 0.00005, 0.07764, 0.14908,
808 + 0.43018, 0.26579, 1.59256, 0.14067, 0.01602,
809 + 0.00009, 0.08071, 0.14955,
810 + 0.43449, 0.26486, 1.57257, 0.14097, 0.02069,
811 + 0.00103, 0.08314, 0.14959,
812 + 0.43765, 0.26354, 1.54594, 0.14093, 0.02457,
813 + 0.00483, 0.08501, 0.14929,
814 + 0.44000, 0.26203, 1.51525, 0.14062, 0.02785,
815 + 0.00876, 0.08641, 0.14871 /
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.44171, 0.26037, 1.48214, 0.14016, 0.03064,
818 + 0.01200, 0.08749, 0.14790,
819 + 0.44295, 0.25858, 1.44787, 0.13944, 0.03301,
820 + 0.01480, 0.08828, 0.14702,
821 + 0.44380, 0.25672, 1.41340, 0.13858, 0.03503,
822 + 0.01719, 0.08881, 0.14603,
823 + 0.44431, 0.25485, 1.37933, 0.13764, 0.03678,
824 + 0.01926, 0.08914, 0.14496,
825 + 0.44452, 0.25297, 1.34583, 0.13660, 0.03831,
826 + 0.02106, 0.08937, 0.14380,
827 + 0.44438, 0.25107, 1.31263, 0.13557, 0.03954,
828 + 0.02266, 0.08942, 0.14258,
829 + 0.44406, 0.24922, 1.28073, 0.13453, 0.04061,
830 + 0.02406, 0.08939, 0.14133 /
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.44362, 0.24737, 1.24994, 0.13348, 0.04153,
833 + 0.02527, 0.08927, 0.14004,
834 + 0.44301, 0.24547, 1.21982, 0.13229, 0.04231,
835 + 0.02634, 0.08904, 0.13884,
836 + 0.44234, 0.24362, 1.19131, 0.13113, 0.04300,
837 + 0.02732, 0.08879, 0.13767,
838 + 0.44142, 0.24184, 1.16340, 0.13000, 0.04355,
839 + 0.02811, 0.08844, 0.13630,
840 + 0.44049, 0.24009, 1.13695, 0.12889, 0.04404,
841 + 0.02883, 0.08809, 0.13499 /
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.45065, 0.28029, 1.37264, 0.11722, 0.00001,
844 + 0.00008, 0.05790, 0.12589,
845 + 0.45864, 0.27879, 1.37121, 0.11760, 0.00136,
846 + 0.00007, 0.06146, 0.12598,
847 + 0.46405, 0.27661, 1.35088, 0.11760, 0.00694,
848 + 0.00007, 0.06415, 0.12555,
849 + 0.46745, 0.27411, 1.31920, 0.11713, 0.01138,
850 + 0.00011, 0.06605, 0.12479,
851 + 0.46955, 0.27137, 1.28289, 0.11649, 0.01504,
852 + 0.00078, 0.06745, 0.12370,
853 + 0.47069, 0.26833, 1.24451, 0.11555, 0.01800,
854 + 0.00362, 0.06838, 0.12254,
855 + 0.47104, 0.26525, 1.20543, 0.11440, 0.02042,
856 + 0.00644, 0.06898, 0.12127 /
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.47085, 0.26217, 1.16658, 0.11318, 0.02246,
859 + 0.00878, 0.06937, 0.11987,
860 + 0.47018, 0.25911, 1.12864, 0.11195, 0.02414,
861 + 0.01076, 0.06953, 0.11839,
862 + 0.46915, 0.25612, 1.09201, 0.11067, 0.02552,
863 + 0.01242, 0.06955, 0.11691,
864 + 0.46785, 0.25321, 1.05697, 0.10936, 0.02666,
865 + 0.01384, 0.06947, 0.11544,
866 + 0.46627, 0.25043, 1.02352, 0.10808, 0.02764,
867 + 0.01513, 0.06927, 0.11385,
868 + 0.46453, 0.24759, 0.99127, 0.10674, 0.02847,
869 + 0.01618, 0.06896, 0.11231,
870 + 0.46274, 0.24481, 0.96083, 0.10537, 0.02918,
871 + 0.01708, 0.06859, 0.11086 /
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.46092, 0.24206, 0.93196, 0.10397, 0.02976,
874 + 0.01784, 0.06817, 0.10952,
875 + 0.45885, 0.23947, 0.90429, 0.10267, 0.03022,
876 + 0.01852, 0.06770, 0.10802,
877 + 0.45677, 0.23700, 0.87835, 0.10144, 0.03061,
878 + 0.01915, 0.06723, 0.10655,
879 + 0.45459, 0.23449, 0.85343, 0.10014, 0.03092,
880 + 0.01967, 0.06672, 0.10518,
881 + 0.45246, 0.23209, 0.83000, 0.09890, 0.03119,
882 + 0.02013, 0.06620, 0.10384 /
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.49430, 0.28888, 1.18740, 0.09657, 0.00001,
885 + 0.00004, 0.04705, 0.10414,
886 + 0.49866, 0.28440, 1.15255, 0.09585, 0.00001,
887 + 0.00006, 0.04952, 0.10290,
888 + 0.50065, 0.27954, 1.10937, 0.09489, 0.00436,
889 + 0.00008, 0.05112, 0.10140,
890 + 0.50086, 0.27457, 1.06249, 0.09356, 0.00787,
891 + 0.00010, 0.05217, 0.09981,
892 + 0.49985, 0.26976, 1.01611, 0.09213, 0.01055,
893 + 0.00061, 0.05278, 0.09826,
894 + 0.49798, 0.26496, 0.97144, 0.09066, 0.01274,
895 + 0.00259, 0.05310, 0.09649,
896 + 0.49544, 0.26037, 0.92871, 0.08918, 0.01451,
897 + 0.00457, 0.05313, 0.09462 /
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.49267, 0.25580, 0.88821, 0.08760, 0.01587,
900 + 0.00617, 0.05300, 0.09290,
901 + 0.48956, 0.25140, 0.85014, 0.08599, 0.01704,
902 + 0.00751, 0.05277, 0.09117,
903 + 0.48617, 0.24725, 0.81454, 0.08446, 0.01800,
904 + 0.00865, 0.05241, 0.08944,
905 + 0.48264, 0.24330, 0.78133, 0.08298, 0.01876,
906 + 0.00960, 0.05198, 0.08774,
907 + 0.47901, 0.23951, 0.75025, 0.08153, 0.01938,
908 + 0.01036, 0.05155, 0.08608,
909 + 0.47539, 0.23574, 0.72100, 0.08009, 0.01986,
910 + 0.01102, 0.05104, 0.08446,
911 + 0.47175, 0.23215, 0.69387, 0.07870, 0.02024,
912 + 0.01161, 0.05050, 0.08292 /
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.46802, 0.22874, 0.66857, 0.07737, 0.02053,
915 + 0.01212, 0.04995, 0.08148,
916 + 0.46432, 0.22542, 0.64465, 0.07601, 0.02076,
917 + 0.01250, 0.04941, 0.08002,
918 + 0.46072, 0.22226, 0.62242, 0.07472, 0.02098,
919 + 0.01282, 0.04888, 0.07860,
920 + 0.45707, 0.21916, 0.60137, 0.07346, 0.02113,
921 + 0.01311, 0.04827, 0.07726,
922 + 0.45352, 0.21621, 0.58173, 0.07226, 0.02125,
923 + 0.01336, 0.04768, 0.07596 /
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.52775, 0.28932, 1.03032, 0.07908, 0.00001,
926 + 0.00012, 0.03823, 0.08528,
927 + 0.52784, 0.28186, 0.97512, 0.07771, 0.00001,
928 + 0.00016, 0.03979, 0.08353,
929 + 0.52556, 0.27483, 0.91944, 0.07616, 0.00270,
930 + 0.00014, 0.04073, 0.08172,
931 + 0.52203, 0.26787, 0.86550, 0.07450, 0.00542,
932 + 0.00013, 0.04120, 0.07970,
933 + 0.51775, 0.26122, 0.81547, 0.07282, 0.00758,
934 + 0.00051, 0.04136, 0.07765,
935 + 0.51272, 0.25505, 0.76943, 0.07117, 0.00922,
936 + 0.00195, 0.04122, 0.07569,
937 + 0.50733, 0.24916, 0.72705, 0.06947, 0.01043,
938 + 0.00335, 0.04097, 0.07383 /
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.50185, 0.24349, 0.68803, 0.06785, 0.01145,
941 + 0.00447, 0.04064, 0.07193,
942 + 0.49626, 0.23822, 0.65228, 0.06622, 0.01226,
943 + 0.00539, 0.04014, 0.07018,
944 + 0.49066, 0.23320, 0.61950, 0.06464, 0.01288,
945 + 0.00616, 0.03967, 0.06846,
946 + 0.48510, 0.22838, 0.58943, 0.06315, 0.01336,
947 + 0.00680, 0.03927, 0.06676,
948 + 0.47959, 0.22378, 0.56185, 0.06174, 0.01375,
949 + 0.00732, 0.03873, 0.06519,
950 + 0.47406, 0.21946, 0.53623, 0.06034, 0.01406,
951 + 0.00773, 0.03812, 0.06371,
952 + 0.46868, 0.21536, 0.51271, 0.05904, 0.01431,
953 + 0.00809, 0.03750, 0.06228 /
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.46345, 0.21144, 0.49099, 0.05783, 0.01452,
956 + 0.00841, 0.03688, 0.06085,
957 + 0.45831, 0.20762, 0.47080, 0.05658, 0.01464,
958 + 0.00869, 0.03631, 0.05954,
959 + 0.45334, 0.20401, 0.45219, 0.05537, 0.01473,
960 + 0.00893, 0.03576, 0.05830,
961 + 0.44839, 0.20055, 0.43474, 0.05426, 0.01475,
962 + 0.00906, 0.03520, 0.05708,
963 + 0.44363, 0.19724, 0.41857, 0.05318, 0.01476,
964 + 0.00918, 0.03466, 0.05594 /
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.55155, 0.28393, 0.89347, 0.06418, 0.00001,
967 + 0.00004, 0.03060, 0.06934,
968 + 0.54675, 0.27390, 0.82658, 0.06247, 0.00001,
969 + 0.00001, 0.03167, 0.06735,
970 + 0.54026, 0.26460, 0.76486, 0.06075, 0.00167,
971 + 0.00002, 0.03222, 0.06515,
972 + 0.53281, 0.25604, 0.70869, 0.05902, 0.00384,
973 + 0.00001, 0.03238, 0.06298,
974 + 0.52514, 0.24797, 0.65873, 0.05718, 0.00552,
975 + 0.00035, 0.03224, 0.06104,
976 + 0.51712, 0.24061, 0.61410, 0.05548, 0.00670,
977 + 0.00139, 0.03204, 0.05906,
978 + 0.50906, 0.23377, 0.57406, 0.05373, 0.00769,
979 + 0.00243, 0.03170, 0.05722 /
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.50111, 0.22729, 0.53806, 0.05208, 0.00844,
982 + 0.00324, 0.03117, 0.05558,
983 + 0.49325, 0.22126, 0.50557, 0.05063, 0.00902,
984 + 0.00397, 0.03062, 0.05387,
985 + 0.48554, 0.21562, 0.47630, 0.04920, 0.00946,
986 + 0.00453, 0.03010, 0.05227,
987 + 0.47808, 0.21029, 0.44993, 0.04777, 0.00978,
988 + 0.00493, 0.02960, 0.05082,
989 + 0.47092, 0.20519, 0.42605, 0.04650, 0.00998,
990 + 0.00528, 0.02905, 0.04944,
991 + 0.46381, 0.20055, 0.40396, 0.04528, 0.01021,
992 + 0.00558, 0.02847, 0.04800,
993 + 0.45701, 0.19610, 0.38391, 0.04409, 0.01038,
994 + 0.00582, 0.02792, 0.04670 /
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.45048, 0.19178, 0.36563, 0.04290, 0.01046,
997 + 0.00598, 0.02739, 0.04559,
998 + 0.44408, 0.18771, 0.34877, 0.04182, 0.01052,
999 + 0.00611, 0.02688, 0.04442,
1000 + 0.43793, 0.18391, 0.33331, 0.04081, 0.01055,
1001 + 0.00623, 0.02638, 0.04328,
1002 + 0.43177, 0.18034, 0.31892, 0.03987, 0.01055,
1003 + 0.00631, 0.02589, 0.04221,
1004 + 0.42593, 0.17694, 0.30570, 0.03898, 0.01053,
1005 + 0.00639, 0.02541, 0.04118 /
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.56657, 0.27385, 0.77290, 0.05154, 0.00001,
1008 + 0.00000, 0.02418, 0.05592,
1009 + 0.55642, 0.26187, 0.70031, 0.04989, 0.00001,
1010 + 0.00002, 0.02490, 0.05366,
1011 + 0.54561, 0.25099, 0.63701, 0.04826, 0.00079,
1012 + 0.00006, 0.02519, 0.05146,
1013 + 0.53441, 0.24104, 0.58177, 0.04645, 0.00265,
1014 + 0.00004, 0.02521, 0.04939,
1015 + 0.52340, 0.23207, 0.53394, 0.04461, 0.00394,
1016 + 0.00029, 0.02498, 0.04760,
1017 + 0.51261, 0.22376, 0.49229, 0.04305, 0.00492,
1018 + 0.00105, 0.02463, 0.04576,
1019 + 0.50181, 0.21638, 0.45567, 0.04167, 0.00558,
1020 + 0.00181, 0.02422, 0.04398 /
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.49159, 0.20941, 0.42329, 0.04020, 0.00616,
1023 + 0.00240, 0.02379, 0.04234,
1024 + 0.48193, 0.20276, 0.39454, 0.03868, 0.00655,
1025 + 0.00283, 0.02326, 0.04105,
1026 + 0.47246, 0.19676, 0.36890, 0.03738, 0.00687,
1027 + 0.00317, 0.02269, 0.03970,
1028 + 0.46331, 0.19126, 0.34601, 0.03622, 0.00713,
1029 + 0.00347, 0.02213, 0.03832,
1030 + 0.45478, 0.18593, 0.32555, 0.03498, 0.00724,
1031 + 0.00373, 0.02162, 0.03721,
1032 + 0.44627, 0.18111, 0.30698, 0.03395, 0.00738,
1033 + 0.00390, 0.02118, 0.03593,
1034 + 0.43822, 0.17649, 0.29019, 0.03298, 0.00747,
1035 + 0.00407, 0.02073, 0.03478 /
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.43059, 0.17204, 0.27493, 0.03203, 0.00751,
1038 + 0.00424, 0.02026, 0.03380,
1039 + 0.42318, 0.16794, 0.26109, 0.03112, 0.00753,
1040 + 0.00434, 0.01979, 0.03283,
1041 + 0.41613, 0.16410, 0.24849, 0.03025, 0.00755,
1042 + 0.00442, 0.01935, 0.03191,
1043 + 0.40919, 0.16048, 0.23672, 0.02947, 0.00750,
1044 + 0.00442, 0.01889, 0.03107,
1045 + 0.40260, 0.15705, 0.22597, 0.02874, 0.00746,
1046 + 0.00443, 0.01845, 0.03027 /
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.57320, 0.26055, 0.66597, 0.04112, 0.00001,
1049 + 0.00008, 0.01880, 0.04445,
1050 + 0.55803, 0.24685, 0.59189, 0.03946, 0.00001,
1051 + 0.00008, 0.01958, 0.04212,
1052 + 0.54300, 0.23468, 0.52989, 0.03771, 0.00022,
1053 + 0.00008, 0.01959, 0.04049,
1054 + 0.52818, 0.22397, 0.47756, 0.03616, 0.00172,
1055 + 0.00009, 0.01944, 0.03848,
1056 + 0.51431, 0.21407, 0.43304, 0.03457, 0.00274,
1057 + 0.00021, 0.01917, 0.03689,
1058 + 0.50084, 0.20543, 0.39519, 0.03308, 0.00349,
1059 + 0.00076, 0.01884, 0.03532,
1060 + 0.48800, 0.19750, 0.36238, 0.03172, 0.00409,
1061 + 0.00133, 0.01833, 0.03383 /
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.47584, 0.19028, 0.33366, 0.03051, 0.00452,
1064 + 0.00171, 0.01791, 0.03232,
1065 + 0.46421, 0.18367, 0.30864, 0.02942, 0.00479,
1066 + 0.00198, 0.01748, 0.03093,
1067 + 0.45326, 0.17753, 0.28664, 0.02836, 0.00502,
1068 + 0.00223, 0.01702, 0.02972,
1069 + 0.44293, 0.17179, 0.26714, 0.02734, 0.00522,
1070 + 0.00247, 0.01653, 0.02863,
1071 + 0.43306, 0.16640, 0.24979, 0.02637, 0.00535,
1072 + 0.00270, 0.01609, 0.02767,
1073 + 0.42367, 0.16147, 0.23419, 0.02545, 0.00540,
1074 + 0.00284, 0.01568, 0.02665,
1075 + 0.41474, 0.15688, 0.22028, 0.02459, 0.00542,
1076 + 0.00292, 0.01529, 0.02574 /
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.40624, 0.15257, 0.20783, 0.02376, 0.00539,
1079 + 0.00296, 0.01492, 0.02494,
1080 + 0.39801, 0.14859, 0.19640, 0.02306, 0.00537,
1081 + 0.00301, 0.01449, 0.02416,
1082 + 0.39022, 0.14486, 0.18606, 0.02241, 0.00535,
1083 + 0.00305, 0.01409, 0.02343,
1084 + 0.38288, 0.14112, 0.17672, 0.02172, 0.00534,
1085 + 0.00309, 0.01375, 0.02271,
1086 + 0.37586, 0.13766, 0.16816, 0.02106, 0.00531,
1087 + 0.00312, 0.01341, 0.02205 /
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.57227, 0.24490, 0.57098, 0.03244, 0.00001,
1090 + 0.00001, 0.01463, 0.03454,
1091 + 0.55263, 0.22950, 0.49826, 0.03067, 0.00001,
1092 + 0.00005, 0.01506, 0.03305,
1093 + 0.53356, 0.21649, 0.43921, 0.02912, 0.00022,
1094 + 0.00002, 0.01518, 0.03109,
1095 + 0.51563, 0.20511, 0.39068, 0.02775, 0.00131,
1096 + 0.00009, 0.01496, 0.02952,
1097 + 0.49888, 0.19512, 0.35043, 0.02633, 0.00215,
1098 + 0.00023, 0.01454, 0.02817,
1099 + 0.48317, 0.18618, 0.31648, 0.02522, 0.00272,
1100 + 0.00064, 0.01426, 0.02665,
1101 + 0.46845, 0.17813, 0.28761, 0.02403, 0.00316,
1102 + 0.00095, 0.01388, 0.02544 /
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.45458, 0.17093, 0.26274, 0.02294, 0.00338,
1105 + 0.00125, 0.01352, 0.02436,
1106 + 0.44172, 0.16420, 0.24127, 0.02195, 0.00359,
1107 + 0.00150, 0.01315, 0.02324,
1108 + 0.42952, 0.15810, 0.22253, 0.02113, 0.00370,
1109 + 0.00167, 0.01275, 0.02223,
1110 + 0.41797, 0.15256, 0.20607, 0.02041, 0.00374,
1111 + 0.00178, 0.01232, 0.02135,
1112 + 0.40730, 0.14727, 0.19155, 0.01957, 0.00388,
1113 + 0.00189, 0.01188, 0.02055,
1114 + 0.39716, 0.14243, 0.17887, 0.01882, 0.00390,
1115 + 0.00201, 0.01149, 0.01979,
1116 + 0.38760, 0.13795, 0.16751, 0.01810, 0.00390,
1117 + 0.00209, 0.01115, 0.01910 /
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.37851, 0.13376, 0.15724, 0.01742, 0.00390,
1120 + 0.00210, 0.01084, 0.01848,
1121 + 0.36999, 0.12980, 0.14796, 0.01679, 0.00390,
1122 + 0.00213, 0.01052, 0.01778,
1123 + 0.36193, 0.12613, 0.13959, 0.01621, 0.00389,
1124 + 0.00215, 0.01022, 0.01713,
1125 + 0.35404, 0.12274, 0.13203, 0.01570, 0.00384,
1126 + 0.00218, 0.00994, 0.01657,
1127 + 0.34657, 0.11954, 0.12517, 0.01521, 0.00379,
1128 + 0.00219, 0.00967, 0.01603 /
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.56538, 0.22677, 0.48679, 0.02493, 0.00001,
1131 + 0.00010, 0.01125, 0.02674,
1132 + 0.54059, 0.21110, 0.41754, 0.02362, 0.00001,
1133 + 0.00004, 0.01150, 0.02509,
1134 + 0.51810, 0.19754, 0.36280, 0.02226, 0.00004,
1135 + 0.00009, 0.01152, 0.02372,
1136 + 0.49725, 0.18600, 0.31868, 0.02104, 0.00095,
1137 + 0.00012, 0.01126, 0.02253,
1138 + 0.47797, 0.17605, 0.28261, 0.02006, 0.00146,
1139 + 0.00015, 0.01103, 0.02126,
1140 + 0.46054, 0.16712, 0.25296, 0.01899, 0.00183,
1141 + 0.00047, 0.01069, 0.02030,
1142 + 0.44439, 0.15914, 0.22776, 0.01801, 0.00221,
1143 + 0.00077, 0.01039, 0.01917 /
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.42925, 0.15205, 0.20665, 0.01728, 0.00247,
1146 + 0.00090, 0.01003, 0.01807,
1147 + 0.41522, 0.14553, 0.18838, 0.01656, 0.00259,
1148 + 0.00109, 0.00965, 0.01726,
1149 + 0.40223, 0.13955, 0.17264, 0.01580, 0.00266,
1150 + 0.00126, 0.00933, 0.01652,
1151 + 0.39029, 0.13407, 0.15908, 0.01501, 0.00274,
1152 + 0.00135, 0.00905, 0.01579,
1153 + 0.37934, 0.12907, 0.14720, 0.01415, 0.00281,
1154 + 0.00136, 0.00872, 0.01512,
1155 + 0.36836, 0.12445, 0.13660, 0.01371, 0.00285,
1156 + 0.00144, 0.00843, 0.01446,
1157 + 0.35837, 0.12013, 0.12722, 0.01320, 0.00284,
1158 + 0.00149, 0.00815, 0.01390 /
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.34934, 0.11605, 0.11888, 0.01254, 0.00279,
1161 + 0.00149, 0.00786, 0.01342,
1162 + 0.34021, 0.11244, 0.11151, 0.01209, 0.00279,
1163 + 0.00155, 0.00765, 0.01297,
1164 + 0.33161, 0.10908, 0.10490, 0.01167, 0.00279,
1165 + 0.00159, 0.00747, 0.01255,
1166 + 0.32368, 0.10578, 0.09886, 0.01125, 0.00273,
1167 + 0.00156, 0.00722, 0.01213,
1168 + 0.31617, 0.10270, 0.09342, 0.01087, 0.00269,
1169 + 0.00153, 0.00699, 0.01171 /
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.55161, 0.20834, 0.41234, 0.01882, 0.00001,
1172 + 0.00010, 0.00846, 0.02046,
1173 + 0.52309, 0.19192, 0.34778, 0.01775, 0.00001,
1174 + 0.00000, 0.00868, 0.01921,
1175 + 0.49732, 0.17840, 0.29790, 0.01675, 0.00001,
1176 + 0.00010, 0.00874, 0.01797,
1177 + 0.47384, 0.16703, 0.25853, 0.01590, 0.00063,
1178 + 0.00007, 0.00861, 0.01677,
1179 + 0.45313, 0.15697, 0.22705, 0.01487, 0.00118,
1180 + 0.00016, 0.00842, 0.01571,
1181 + 0.43434, 0.14821, 0.20114, 0.01398, 0.00150,
1182 + 0.00036, 0.00808, 0.01494,
1183 + 0.41707, 0.14043, 0.17977, 0.01323, 0.00173,
1184 + 0.00055, 0.00778, 0.01414 /
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.40096, 0.13356, 0.16184, 0.01256, 0.00186,
1187 + 0.00073, 0.00748, 0.01348,
1188 + 0.38638, 0.12729, 0.14652, 0.01194, 0.00193,
1189 + 0.00084, 0.00721, 0.01278,
1190 + 0.37288, 0.12164, 0.13346, 0.01139, 0.00203,
1191 + 0.00090, 0.00692, 0.01209,
1192 + 0.36030, 0.11654, 0.12224, 0.01086, 0.00208,
1193 + 0.00094, 0.00662, 0.01149,
1194 + 0.34863, 0.11186, 0.11247, 0.01034, 0.00199,
1195 + 0.00101, 0.00645, 0.01102,
1196 + 0.33783, 0.10752, 0.10394, 0.00976, 0.00205,
1197 + 0.00105, 0.00619, 0.01061,
1198 + 0.32769, 0.10350, 0.09643, 0.00932, 0.00210,
1199 + 0.00109, 0.00594, 0.01019 /
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.31810, 0.09977, 0.08980, 0.00902, 0.00212,
1202 + 0.00115, 0.00574, 0.00976,
1203 + 0.30922, 0.09632, 0.08383, 0.00857, 0.00208,
1204 + 0.00112, 0.00554, 0.00936,
1205 + 0.30094, 0.09312, 0.07851, 0.00814, 0.00201,
1206 + 0.00109, 0.00534, 0.00900,
1207 + 0.29306, 0.09006, 0.07380, 0.00784, 0.00200,
1208 + 0.00111, 0.00516, 0.00864,
1209 + 0.28559, 0.08722, 0.06954, 0.00758, 0.00199,
1210 + 0.00113, 0.00499, 0.00832 /
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.53275, 0.18980, 0.34717, 0.01472, 0.00001,
1213 + 0.00007, 0.00592, 0.01533,
1214 + 0.50046, 0.17362, 0.28792, 0.01377, 0.00001,
1215 + 0.00004, 0.00624, 0.01432,
1216 + 0.47216, 0.16028, 0.24361, 0.01288, 0.00001,
1217 + 0.00012, 0.00630, 0.01339,
1218 + 0.44743, 0.14867, 0.20883, 0.01192, 0.00037,
1219 + 0.00006, 0.00612, 0.01259,
1220 + 0.42526, 0.13897, 0.18143, 0.01116, 0.00069,
1221 + 0.00005, 0.00601, 0.01182,
1222 + 0.40536, 0.13054, 0.15956, 0.01046, 0.00095,
1223 + 0.00014, 0.00583, 0.01110,
1224 + 0.38734, 0.12327, 0.14159, 0.00977, 0.00120,
1225 + 0.00033, 0.00561, 0.01048 /
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.37117, 0.11660, 0.12646, 0.00918, 0.00131,
1228 + 0.00042, 0.00528, 0.00991,
1229 + 0.35595, 0.11079, 0.11384, 0.00889, 0.00140,
1230 + 0.00054, 0.00511, 0.00921,
1231 + 0.34224, 0.10551, 0.10312, 0.00838, 0.00145,
1232 + 0.00062, 0.00497, 0.00873,
1233 + 0.32984, 0.10063, 0.09393, 0.00778, 0.00146,
1234 + 0.00065, 0.00479, 0.00841,
1235 + 0.31791, 0.09624, 0.08602, 0.00755, 0.00147,
1236 + 0.00068, 0.00460, 0.00799,
1237 + 0.30715, 0.09225, 0.07912, 0.00720, 0.00144,
1238 + 0.00072, 0.00439, 0.00750,
1239 + 0.29710, 0.08857, 0.07306, 0.00682, 0.00142,
1240 + 0.00072, 0.00420, 0.00711 /
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.28766, 0.08516, 0.06772, 0.00642, 0.00141,
1243 + 0.00068, 0.00404, 0.00685,
1244 + 0.27867, 0.08201, 0.06308, 0.00613, 0.00139,
1245 + 0.00071, 0.00391, 0.00665,
1246 + 0.27031, 0.07911, 0.05895, 0.00588, 0.00139,
1247 + 0.00074, 0.00379, 0.00646,
1248 + 0.26267, 0.07633, 0.05519, 0.00564, 0.00138,
1249 + 0.00077, 0.00362, 0.00614,
1250 + 0.25542, 0.07375, 0.05182, 0.00545, 0.00136,
1251 + 0.00078, 0.00349, 0.00585 /
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.50914, 0.17015, 0.28913, 0.01049, 0.00001,
1254 + 0.00012, 0.00455, 0.01127,
1255 + 0.47426, 0.15417, 0.23659, 0.00972, 0.00001,
1256 + 0.00008, 0.00473, 0.01058,
1257 + 0.44395, 0.14141, 0.19727, 0.00918, 0.00001,
1258 + 0.00003, 0.00476, 0.00965,
1259 + 0.41794, 0.13044, 0.16745, 0.00837, 0.00030,
1260 + 0.00010, 0.00466, 0.00919,
1261 + 0.39481, 0.12128, 0.14411, 0.00784, 0.00062,
1262 + 0.00014, 0.00446, 0.00864,
1263 + 0.37437, 0.11346, 0.12554, 0.00749, 0.00080,
1264 + 0.00024, 0.00426, 0.00798,
1265 + 0.35603, 0.10655, 0.11047, 0.00693, 0.00090,
1266 + 0.00033, 0.00408, 0.00759 /
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.33928, 0.10054, 0.09801, 0.00665, 0.00100,
1269 + 0.00040, 0.00397, 0.00701,
1270 + 0.32454, 0.09503, 0.08765, 0.00610, 0.00102,
1271 + 0.00043, 0.00382, 0.00674,
1272 + 0.31096, 0.09012, 0.07896, 0.00560, 0.00106,
1273 + 0.00048, 0.00363, 0.00646,
1274 + 0.29826, 0.08579, 0.07158, 0.00536, 0.00112,
1275 + 0.00053, 0.00346, 0.00604,
1276 + 0.28656, 0.08189, 0.06527, 0.00524, 0.00110,
1277 + 0.00050, 0.00331, 0.00567,
1278 + 0.27593, 0.07821, 0.05978, 0.00492, 0.00111,
1279 + 0.00050, 0.00316, 0.00536,
1280 + 0.26610, 0.07483, 0.05497, 0.00465, 0.00109,
1281 + 0.00051, 0.00302, 0.00512 /
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.25692, 0.07173, 0.05074, 0.00445, 0.00106,
1284 + 0.00055, 0.00286, 0.00497,
1285 + 0.24814, 0.06890, 0.04703, 0.00437, 0.00105,
1286 + 0.00056, 0.00277, 0.00464,
1287 + 0.23998, 0.06631, 0.04375, 0.00430, 0.00104,
1288 + 0.00056, 0.00269, 0.00433,
1289 + 0.23238, 0.06386, 0.04090, 0.00415, 0.00096,
1290 + 0.00055, 0.00257, 0.00423,
1291 + 0.22539, 0.06157, 0.03833, 0.00398, 0.00091,
1292 + 0.00055, 0.00247, 0.00412 /
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.48189, 0.15218, 0.23951, 0.00794, 0.00001,
1295 + 0.00001, 0.00301, 0.00802,
1296 + 0.44468, 0.13685, 0.19286, 0.00734, 0.00001,
1297 + 0.00002, 0.00327, 0.00772,
1298 + 0.41316, 0.12445, 0.15879, 0.00682, 0.00001,
1299 + 0.00002, 0.00328, 0.00718,
1300 + 0.38650, 0.11416, 0.13337, 0.00631, 0.00005,
1301 + 0.00003, 0.00322, 0.00661,
1302 + 0.36315, 0.10543, 0.11373, 0.00580, 0.00035,
1303 + 0.00006, 0.00316, 0.00616,
1304 + 0.34227, 0.09806, 0.09825, 0.00542, 0.00053,
1305 + 0.00013, 0.00305, 0.00590,
1306 + 0.32419, 0.09170, 0.08583, 0.00488, 0.00064,
1307 + 0.00019, 0.00293, 0.00555 /
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.30779, 0.08615, 0.07577, 0.00471, 0.00068,
1310 + 0.00020, 0.00272, 0.00506,
1311 + 0.29284, 0.08123, 0.06732, 0.00455, 0.00070,
1312 + 0.00023, 0.00254, 0.00467,
1313 + 0.27940, 0.07676, 0.06023, 0.00423, 0.00076,
1314 + 0.00026, 0.00246, 0.00445,
1315 + 0.26727, 0.07269, 0.05431, 0.00390, 0.00080,
1316 + 0.00029, 0.00238, 0.00428,
1317 + 0.25617, 0.06899, 0.04930, 0.00371, 0.00073,
1318 + 0.00033, 0.00226, 0.00398,
1319 + 0.24576, 0.06577, 0.04492, 0.00358, 0.00069,
1320 + 0.00033, 0.00213, 0.00381,
1321 + 0.23624, 0.06281, 0.04116, 0.00337, 0.00068,
1322 + 0.00033, 0.00202, 0.00367 /
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.22755, 0.06005, 0.03791, 0.00311, 0.00067,
1325 + 0.00035, 0.00192, 0.00353,
1326 + 0.21927, 0.05753, 0.03502, 0.00308, 0.00065,
1327 + 0.00034, 0.00184, 0.00325,
1328 + 0.21158, 0.05520, 0.03247, 0.00309, 0.00065,
1329 + 0.00032, 0.00177, 0.00298,
1330 + 0.20438, 0.05302, 0.03025, 0.00299, 0.00063,
1331 + 0.00033, 0.00171, 0.00287,
1332 + 0.19773, 0.05103, 0.02826, 0.00289, 0.00062,
1333 + 0.00034, 0.00165, 0.00274 /
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.45140, 0.13384, 0.19629, 0.00549, 0.00001,
1336 + 0.00002, 0.00212, 0.00592,
1337 + 0.41297, 0.11927, 0.15587, 0.00502, 0.00001,
1338 + 0.00002, 0.00234, 0.00551,
1339 + 0.38107, 0.10777, 0.12669, 0.00472, 0.00001,
1340 + 0.00007, 0.00245, 0.00504,
1341 + 0.35339, 0.09828, 0.10534, 0.00434, 0.00015,
1342 + 0.00004, 0.00233, 0.00485,
1343 + 0.33017, 0.09046, 0.08908, 0.00403, 0.00032,
1344 + 0.00006, 0.00224, 0.00444,
1345 + 0.31005, 0.08364, 0.07629, 0.00368, 0.00041,
1346 + 0.00011, 0.00215, 0.00419,
1347 + 0.29212, 0.07787, 0.06611, 0.00352, 0.00042,
1348 + 0.00012, 0.00201, 0.00377 /
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.27577, 0.07283, 0.05790, 0.00343, 0.00039,
1351 + 0.00015, 0.00195, 0.00355,
1352 + 0.26156, 0.06824, 0.05116, 0.00319, 0.00043,
1353 + 0.00018, 0.00184, 0.00331,
1354 + 0.24884, 0.06423, 0.04558, 0.00285, 0.00046,
1355 + 0.00021, 0.00173, 0.00312,
1356 + 0.23713, 0.06074, 0.04090, 0.00259, 0.00048,
1357 + 0.00021, 0.00167, 0.00298,
1358 + 0.22628, 0.05757, 0.03692, 0.00257, 0.00047,
1359 + 0.00022, 0.00156, 0.00274,
1360 + 0.21651, 0.05464, 0.03349, 0.00246, 0.00045,
1361 + 0.00025, 0.00150, 0.00257,
1362 + 0.20756, 0.05197, 0.03055, 0.00235, 0.00047,
1363 + 0.00026, 0.00144, 0.00240 /
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.19928, 0.04956, 0.02803, 0.00226, 0.00051,
1366 + 0.00025, 0.00139, 0.00222,
1367 + 0.19158, 0.04737, 0.02583, 0.00220, 0.00050,
1368 + 0.00028, 0.00133, 0.00212,
1369 + 0.18449, 0.04538, 0.02390, 0.00211, 0.00048,
1370 + 0.00029, 0.00126, 0.00203,
1371 + 0.17789, 0.04346, 0.02220, 0.00194, 0.00046,
1372 + 0.00023, 0.00118, 0.00197,
1373 + 0.17175, 0.04171, 0.02069, 0.00181, 0.00043,
1374 + 0.00019, 0.00110, 0.00190 /
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.41866, 0.11687, 0.15953, 0.00362, 0.00001,
1377 + 0.00008, 0.00143, 0.00412,
1378 + 0.37996, 0.10336, 0.12489, 0.00345, 0.00001,
1379 + 0.00007, 0.00161, 0.00391,
1380 + 0.34768, 0.09286, 0.10038, 0.00318, 0.00001,
1381 + 0.00000, 0.00163, 0.00375,
1382 + 0.32090, 0.08415, 0.08252, 0.00289, 0.00001,
1383 + 0.00002, 0.00151, 0.00349,
1384 + 0.29787, 0.07684, 0.06909, 0.00281, 0.00011,
1385 + 0.00006, 0.00144, 0.00319,
1386 + 0.27790, 0.07097, 0.05877, 0.00267, 0.00018,
1387 + 0.00007, 0.00143, 0.00283,
1388 + 0.26062, 0.06573, 0.05059, 0.00256, 0.00026,
1389 + 0.00012, 0.00134, 0.00264 /
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.24556, 0.06109, 0.04403, 0.00228, 0.00025,
1392 + 0.00013, 0.00124, 0.00250,
1393 + 0.23178, 0.05713, 0.03870, 0.00219, 0.00027,
1394 + 0.00012, 0.00120, 0.00234,
1395 + 0.21940, 0.05363, 0.03428, 0.00212, 0.00031,
1396 + 0.00011, 0.00112, 0.00215,
1397 + 0.20837, 0.05050, 0.03058, 0.00201, 0.00034,
1398 + 0.00011, 0.00104, 0.00199,
1399 + 0.19835, 0.04765, 0.02748, 0.00192, 0.00037,
1400 + 0.00015, 0.00111, 0.00189,
1401 + 0.18919, 0.04511, 0.02488, 0.00182, 0.00033,
1402 + 0.00011, 0.00098, 0.00163,
1403 + 0.18073, 0.04283, 0.02264, 0.00178, 0.00028,
1404 + 0.00010, 0.00091, 0.00151 /
1405 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=15,19)/
1406 + 0.17287, 0.04077, 0.02070, 0.00180, 0.00025,
1407 + 0.00014, 0.00087, 0.00151,
1408 + 0.16586, 0.03887, 0.01901, 0.00166, 0.00027,
1409 + 0.00014, 0.00084, 0.00137,
1410 + 0.15945, 0.03712, 0.01752, 0.00153, 0.00029,
1411 + 0.00013, 0.00081, 0.00124,
1412 + 0.15322, 0.03551, 0.01623, 0.00153, 0.00027,
1413 + 0.00010, 0.00075, 0.00120,
1414 + 0.14755, 0.03403, 0.01508, 0.00148, 0.00026,
1415 + 0.00009, 0.00069, 0.00117 /
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.38446, 0.10083, 0.12828, 0.00241, 0.00001,
1418 + 0.00001, 0.00104, 0.00289,
1419 + 0.34532, 0.08856, 0.09880, 0.00224, 0.00001,
1420 + 0.00003, 0.00110, 0.00262,
1421 + 0.31328, 0.07871, 0.07835, 0.00229, 0.00001,
1422 + 0.00006, 0.00108, 0.00252,
1423 + 0.28709, 0.07086, 0.06381, 0.00208, 0.00003,
1424 + 0.00001, 0.00114, 0.00223,
1425 + 0.26527, 0.06441, 0.05285, 0.00181, 0.00011,
1426 + 0.00002, 0.00110, 0.00206,
1427 + 0.24629, 0.05896, 0.04453, 0.00184, 0.00017,
1428 + 0.00004, 0.00101, 0.00191,
1429 + 0.22988, 0.05437, 0.03809, 0.00174, 0.00020,
1430 + 0.00007, 0.00094, 0.00163 /
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.21536, 0.05041, 0.03290, 0.00156, 0.00025,
1433 + 0.00008, 0.00092, 0.00158,
1434 + 0.20238, 0.04693, 0.02871, 0.00150, 0.00026,
1435 + 0.00007, 0.00085, 0.00151,
1436 + 0.19088, 0.04387, 0.02531, 0.00147, 0.00026,
1437 + 0.00008, 0.00079, 0.00133,
1438 + 0.18064, 0.04116, 0.02248, 0.00141, 0.00026,
1439 + 0.00009, 0.00077, 0.00117,
1440 + 0.17127, 0.03876, 0.02011, 0.00131, 0.00024,
1441 + 0.00009, 0.00071, 0.00111,
1442 + 0.16283, 0.03658, 0.01811, 0.00128, 0.00024,
1443 + 0.00011, 0.00073, 0.00110,
1444 + 0.15522, 0.03460, 0.01641, 0.00119, 0.00025,
1445 + 0.00011, 0.00070, 0.00108 /
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.14831, 0.03281, 0.01494, 0.00102, 0.00026,
1448 + 0.00010, 0.00064, 0.00104,
1449 + 0.14181, 0.03117, 0.01368, 0.00099, 0.00025,
1450 + 0.00012, 0.00061, 0.00099,
1451 + 0.13584, 0.02969, 0.01257, 0.00098, 0.00025,
1452 + 0.00013, 0.00059, 0.00094,
1453 + 0.13044, 0.02832, 0.01162, 0.00087, 0.00026,
1454 + 0.00014, 0.00057, 0.00089,
1455 + 0.12541, 0.02706, 0.01077, 0.00079, 0.00026,
1456 + 0.00014, 0.00055, 0.00084 /
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.34970, 0.08634, 0.10210, 0.00144, 0.00001,
1459 + 0.00002, 0.00044, 0.00217,
1460 + 0.31109, 0.07503, 0.07750, 0.00164, 0.00001,
1461 + 0.00002, 0.00061, 0.00193,
1462 + 0.28053, 0.06625, 0.06078, 0.00141, 0.00001,
1463 + 0.00006, 0.00065, 0.00179,
1464 + 0.25532, 0.05930, 0.04893, 0.00126, 0.00003,
1465 + 0.00001, 0.00068, 0.00175,
1466 + 0.23414, 0.05361, 0.04021, 0.00122, 0.00005,
1467 + 0.00001, 0.00067, 0.00163,
1468 + 0.21632, 0.04889, 0.03361, 0.00122, 0.00009,
1469 + 0.00001, 0.00065, 0.00129,
1470 + 0.20086, 0.04483, 0.02853, 0.00114, 0.00014,
1471 + 0.00003, 0.00062, 0.00119 /
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.18713, 0.04140, 0.02447, 0.00115, 0.00009,
1474 + 0.00000, 0.00055, 0.00115,
1475 + 0.17529, 0.03838, 0.02126, 0.00114, 0.00012,
1476 + 0.00002, 0.00052, 0.00100,
1477 + 0.16486, 0.03575, 0.01864, 0.00104, 0.00014,
1478 + 0.00003, 0.00049, 0.00086,
1479 + 0.15552, 0.03344, 0.01648, 0.00093, 0.00013,
1480 + 0.00003, 0.00045, 0.00077,
1481 + 0.14717, 0.03134, 0.01469, 0.00086, 0.00015,
1482 + 0.00005, 0.00045, 0.00068,
1483 + 0.13953, 0.02948, 0.01318, 0.00075, 0.00017,
1484 + 0.00006, 0.00044, 0.00072,
1485 + 0.13246, 0.02783, 0.01191, 0.00073, 0.00016,
1486 + 0.00006, 0.00041, 0.00072 /
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.12589, 0.02633, 0.01081, 0.00079, 0.00014,
1489 + 0.00005, 0.00038, 0.00067,
1490 + 0.12026, 0.02496, 0.00986, 0.00069, 0.00016,
1491 + 0.00005, 0.00037, 0.00059,
1492 + 0.11513, 0.02372, 0.00904, 0.00056, 0.00016,
1493 + 0.00005, 0.00037, 0.00050,
1494 + 0.11021, 0.02256, 0.00833, 0.00048, 0.00013,
1495 + 0.00005, 0.00034, 0.00052,
1496 + 0.10569, 0.02152, 0.00770, 0.00042, 0.00011,
1497 + 0.00006, 0.00032, 0.00054 /
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.31340, 0.07287, 0.08010, 0.00120, 0.00001,
1500 + 0.00000, 0.00026, 0.00137,
1501 + 0.27667, 0.06280, 0.05995, 0.00110, 0.00001,
1502 + 0.00001, 0.00043, 0.00136,
1503 + 0.24737, 0.05510, 0.04647, 0.00115, 0.00001,
1504 + 0.00001, 0.00044, 0.00107,
1505 + 0.22381, 0.04895, 0.03700, 0.00105, 0.00001,
1506 + 0.00005, 0.00050, 0.00094,
1507 + 0.20373, 0.04404, 0.03013, 0.00121, 0.00001,
1508 + 0.00005, 0.00043, 0.00079,
1509 + 0.18738, 0.03996, 0.02500, 0.00103, 0.00003,
1510 + 0.00002, 0.00040, 0.00075,
1511 + 0.17334, 0.03646, 0.02106, 0.00095, 0.00005,
1512 + 0.00001, 0.00036, 0.00067 /
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.16108, 0.03352, 0.01798, 0.00088, 0.00009,
1515 + 0.00003, 0.00036, 0.00061,
1516 + 0.15027, 0.03098, 0.01552, 0.00074, 0.00007,
1517 + 0.00003, 0.00033, 0.00065,
1518 + 0.14064, 0.02873, 0.01354, 0.00071, 0.00008,
1519 + 0.00001, 0.00031, 0.00054,
1520 + 0.13214, 0.02678, 0.01192, 0.00072, 0.00011,
1521 + 0.00002, 0.00031, 0.00045,
1522 + 0.12473, 0.02501, 0.01058, 0.00051, 0.00009,
1523 + 0.00004, 0.00030, 0.00057,
1524 + 0.11790, 0.02348, 0.00945, 0.00043, 0.00010,
1525 + 0.00004, 0.00028, 0.00051,
1526 + 0.11168, 0.02208, 0.00849, 0.00039, 0.00010,
1527 + 0.00004, 0.00026, 0.00044 /
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.10602, 0.02082, 0.00769, 0.00039, 0.00009,
1530 + 0.00003, 0.00024, 0.00040,
1531 + 0.10082, 0.01970, 0.00700, 0.00038, 0.00009,
1532 + 0.00004, 0.00023, 0.00039,
1533 + 0.09609, 0.01867, 0.00640, 0.00039, 0.00011,
1534 + 0.00005, 0.00023, 0.00040,
1535 + 0.09175, 0.01774, 0.00588, 0.00036, 0.00009,
1536 + 0.00005, 0.00021, 0.00035,
1537 + 0.08775, 0.01688, 0.00543, 0.00034, 0.00010,
1538 + 0.00005, 0.00020, 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.27888, 0.06083, 0.06204, 0.00057, 0.00001,
1541 + 0.00005, 0.00015, 0.00079,
1542 + 0.24346, 0.05199, 0.04573, 0.00083, 0.00001,
1543 + 0.00003, 0.00020, 0.00080,
1544 + 0.21650, 0.04514, 0.03499, 0.00051, 0.00001,
1545 + 0.00001, 0.00022, 0.00075,
1546 + 0.19412, 0.03987, 0.02754, 0.00064, 0.00001,
1547 + 0.00006, 0.00024, 0.00061,
1548 + 0.17601, 0.03561, 0.02221, 0.00056, 0.00001,
1549 + 0.00006, 0.00020, 0.00052,
1550 + 0.16082, 0.03211, 0.01828, 0.00058, 0.00003,
1551 + 0.00002, 0.00025, 0.00050,
1552 + 0.14782, 0.02920, 0.01528, 0.00054, 0.00002,
1553 + 0.00002, 0.00025, 0.00052 /
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.13676, 0.02670, 0.01295, 0.00045, 0.00007,
1556 + 0.00001, 0.00021, 0.00041,
1557 + 0.12707, 0.02456, 0.01112, 0.00040, 0.00009,
1558 + 0.00001, 0.00022, 0.00039,
1559 + 0.11846, 0.02270, 0.00964, 0.00037, 0.00008,
1560 + 0.00003, 0.00023, 0.00042,
1561 + 0.11088, 0.02105, 0.00844, 0.00033, 0.00009,
1562 + 0.00003, 0.00022, 0.00042,
1563 + 0.10430, 0.01963, 0.00746, 0.00024, 0.00008,
1564 + 0.00002, 0.00023, 0.00039,
1565 + 0.09809, 0.01833, 0.00665, 0.00031, 0.00009,
1566 + 0.00002, 0.00021, 0.00029,
1567 + 0.09258, 0.01719, 0.00596, 0.00031, 0.00009,
1568 + 0.00003, 0.00018, 0.00025 /
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.08775, 0.01616, 0.00538, 0.00021, 0.00009,
1571 + 0.00004, 0.00018, 0.00030,
1572 + 0.08322, 0.01524, 0.00488, 0.00021, 0.00009,
1573 + 0.00004, 0.00018, 0.00027,
1574 + 0.07909, 0.01442, 0.00445, 0.00021, 0.00009,
1575 + 0.00005, 0.00017, 0.00025,
1576 + 0.07531, 0.01364, 0.00408, 0.00020, 0.00010,
1577 + 0.00005, 0.00016, 0.00023,
1578 + 0.07185, 0.01294, 0.00376, 0.00019, 0.00008,
1579 + 0.00005, 0.00015, 0.00021 /
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.24440, 0.04987, 0.04722, 0.00033, 0.00001,
1582 + 0.00005, 0.00006, 0.00047,
1583 + 0.21132, 0.04215, 0.03429, 0.00041, 0.00001,
1584 + 0.00006, 0.00011, 0.00044,
1585 + 0.18597, 0.03635, 0.02586, 0.00051, 0.00001,
1586 + 0.00004, 0.00014, 0.00039,
1587 + 0.16571, 0.03185, 0.02013, 0.00040, 0.00004,
1588 + 0.00001, 0.00018, 0.00049,
1589 + 0.14944, 0.02827, 0.01609, 0.00030, 0.00004,
1590 + 0.00003, 0.00020, 0.00034,
1591 + 0.13588, 0.02534, 0.01313, 0.00022, 0.00003,
1592 + 0.00002, 0.00018, 0.00031,
1593 + 0.12427, 0.02291, 0.01090, 0.00023, 0.00005,
1594 + 0.00001, 0.00018, 0.00030 /
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.11431, 0.02089, 0.00917, 0.00024, 0.00007,
1597 + 0.00001, 0.00019, 0.00027,
1598 + 0.10559, 0.01912, 0.00783, 0.00027, 0.00005,
1599 + 0.00001, 0.00013, 0.00019,
1600 + 0.09806, 0.01760, 0.00676, 0.00023, 0.00005,
1601 + 0.00000, 0.00012, 0.00018,
1602 + 0.09151, 0.01627, 0.00589, 0.00016, 0.00007,
1603 + 0.00002, 0.00016, 0.00020,
1604 + 0.08567, 0.01509, 0.00519, 0.00013, 0.00009,
1605 + 0.00004, 0.00016, 0.00016,
1606 + 0.08042, 0.01407, 0.00461, 0.00009, 0.00008,
1607 + 0.00003, 0.00013, 0.00016,
1608 + 0.07566, 0.01315, 0.00412, 0.00008, 0.00008,
1609 + 0.00003, 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.07131, 0.01232, 0.00370, 0.00012, 0.00008,
1612 + 0.00002, 0.00012, 0.00014,
1613 + 0.06746, 0.01159, 0.00335, 0.00011, 0.00007,
1614 + 0.00003, 0.00013, 0.00015,
1615 + 0.06399, 0.01093, 0.00304, 0.00009, 0.00007,
1616 + 0.00003, 0.00013, 0.00015,
1617 + 0.06076, 0.01032, 0.00279, 0.00007, 0.00005,
1618 + 0.00003, 0.00010, 0.00014,
1619 + 0.05782, 0.00976, 0.00256, 0.00005, 0.00005,
1620 + 0.00002, 0.00009, 0.00013 /
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.21180, 0.04060, 0.03552, 0.00040, 0.00001,
1623 + 0.00010, 0.00001, 0.00035,
1624 + 0.18146, 0.03395, 0.02538, 0.00045, 0.00001,
1625 + 0.00006, 0.00002, 0.00030,
1626 + 0.15829, 0.02909, 0.01893, 0.00044, 0.00001,
1627 + 0.00007, 0.00008, 0.00024,
1628 + 0.14038, 0.02532, 0.01458, 0.00021, 0.00001,
1629 + 0.00007, 0.00007, 0.00017,
1630 + 0.12549, 0.02231, 0.01155, 0.00023, 0.00001,
1631 + 0.00004, 0.00009, 0.00026,
1632 + 0.11345, 0.01988, 0.00936, 0.00021, 0.00002,
1633 + 0.00005, 0.00008, 0.00016,
1634 + 0.10312, 0.01790, 0.00771, 0.00027, 0.00003,
1635 + 0.00002, 0.00012, 0.00015 /
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.09442, 0.01622, 0.00646, 0.00023, 0.00003,
1638 + 0.00002, 0.00010, 0.00016,
1639 + 0.08701, 0.01480, 0.00549, 0.00015, 0.00004,
1640 + 0.00000, 0.00008, 0.00014,
1641 + 0.08055, 0.01356, 0.00472, 0.00010, 0.00004,
1642 + 0.00000, 0.00009, 0.00013,
1643 + 0.07481, 0.01248, 0.00410, 0.00008, 0.00004,
1644 + 0.00000, 0.00008, 0.00013,
1645 + 0.06965, 0.01154, 0.00359, 0.00013, 0.00004,
1646 + 0.00001, 0.00006, 0.00014,
1647 + 0.06513, 0.01073, 0.00317, 0.00012, 0.00003,
1648 + 0.00001, 0.00007, 0.00013,
1649 + 0.06113, 0.00999, 0.00283, 0.00011, 0.00003,
1650 + 0.00000, 0.00007, 0.00011 /
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.05755, 0.00934, 0.00254, 0.00007, 0.00002,
1653 + 0.00001, 0.00007, 0.00010,
1654 + 0.05429, 0.00876, 0.00229, 0.00006, 0.00002,
1655 + 0.00001, 0.00006, 0.00007,
1656 + 0.05135, 0.00824, 0.00208, 0.00004, 0.00002,
1657 + 0.00000, 0.00006, 0.00006,
1658 + 0.04866, 0.00776, 0.00190, 0.00001, 0.00004,
1659 + 0.00001, 0.00006, 0.00009,
1660 + 0.04620, 0.00733, 0.00174, 0.00002, 0.00004,
1661 + 0.00002, 0.00006, 0.00011 /
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.18063, 0.03217, 0.02606, 0.00015, 0.00001,
1664 + 0.00004, 0.00001, 0.00014,
1665 + 0.15337, 0.02677, 0.01841, 0.00024, 0.00001,
1666 + 0.00003, 0.00001, 0.00016,
1667 + 0.13272, 0.02277, 0.01358, 0.00022, 0.00001,
1668 + 0.00004, 0.00002, 0.00018,
1669 + 0.11667, 0.01970, 0.01038, 0.00022, 0.00001,
1670 + 0.00002, 0.00002, 0.00012,
1671 + 0.10374, 0.01728, 0.00815, 0.00023, 0.00001,
1672 + 0.00001, 0.00003, 0.00008,
1673 + 0.09320, 0.01534, 0.00655, 0.00017, 0.00001,
1674 + 0.00002, 0.00001, 0.00012,
1675 + 0.08453, 0.01373, 0.00537, 0.00009, 0.00001,
1676 + 0.00002, 0.00000, 0.00009 /
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.07706, 0.01240, 0.00447, 0.00008, 0.00001,
1679 + 0.00001, 0.00002, 0.00010,
1680 + 0.07062, 0.01126, 0.00378, 0.00009, 0.00001,
1681 + 0.00000, 0.00004, 0.00011,
1682 + 0.06505, 0.01029, 0.00323, 0.00010, 0.00000,
1683 + 0.00000, 0.00003, 0.00009,
1684 + 0.06018, 0.00946, 0.00279, 0.00012, 0.00000,
1685 + 0.00001, 0.00003, 0.00007,
1686 + 0.05588, 0.00872, 0.00244, 0.00012, 0.00000,
1687 + 0.00001, 0.00003, 0.00005,
1688 + 0.05210, 0.00807, 0.00215, 0.00010, 0.00001,
1689 + 0.00000, 0.00003, 0.00007,
1690 + 0.04872, 0.00750, 0.00191, 0.00008, 0.00001,
1691 + 0.00000, 0.00003, 0.00007 /
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.04565, 0.00699, 0.00171, 0.00009, 0.00001,
1694 + 0.00000, 0.00002, 0.00007,
1695 + 0.04298, 0.00653, 0.00154, 0.00006, 0.00001,
1696 + 0.00000, 0.00002, 0.00007,
1697 + 0.04058, 0.00612, 0.00139, 0.00002, 0.00001,
1698 + 0.00000, 0.00002, 0.00007,
1699 + 0.03832, 0.00576, 0.00127, 0.00003, 0.00001,
1700 + 0.00000, 0.00002, 0.00006,
1701 + 0.03629, 0.00542, 0.00116, 0.00003, 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.12459, 0.01917, 0.01314, 0.00001, 0.00001,
1705 + 0.00001, 0.00001, 0.00005,
1706 + 0.10362, 0.01561, 0.00898, 0.00008, 0.00001,
1707 + 0.00000, 0.00001, 0.00002,
1708 + 0.08808, 0.01306, 0.00644, 0.00006, 0.00001,
1709 + 0.00002, 0.00000, 0.00002,
1710 + 0.07623, 0.01111, 0.00480, 0.00003, 0.00001,
1711 + 0.00000, 0.00001, 0.00005,
1712 + 0.06687, 0.00962, 0.00370, 0.00001, 0.00000,
1713 + 0.00000, 0.00001, 0.00007,
1714 + 0.05939, 0.00844, 0.00292, 0.00001, 0.00000,
1715 + 0.00000, 0.00002, 0.00006,
1716 + 0.05313, 0.00748, 0.00236, 0.00001, 0.00001,
1717 + 0.00000, 0.00002, 0.00005 /
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.04796, 0.00668, 0.00194, 0.00001, 0.00002,
1720 + 0.00000, 0.00002, 0.00001,
1721 + 0.04353, 0.00600, 0.00162, 0.00001, 0.00002,
1722 + 0.00000, 0.00002, 0.00002,
1723 + 0.03969, 0.00543, 0.00137, 0.00001, 0.00001,
1724 + 0.00000, 0.00002, 0.00004,
1725 + 0.03639, 0.00495, 0.00118, 0.00003, 0.00001,
1726 + 0.00000, 0.00002, 0.00002,
1727 + 0.03356, 0.00453, 0.00102, 0.00001, 0.00001,
1728 + 0.00000, 0.00001, 0.00004,
1729 + 0.03104, 0.00417, 0.00089, 0.00001, 0.00001,
1730 + 0.00000, 0.00001, 0.00001,
1731 + 0.02881, 0.00383, 0.00079, 0.00002, 0.00001,
1732 + 0.00000, 0.00001, 0.00001 /
1733 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=15,19)/
1734 + 0.02684, 0.00356, 0.00070, 0.00002, 0.00001,
1735 + 0.00001, 0.00002, 0.00001,
1736 + 0.02508, 0.00331, 0.00063, 0.00002, 0.00001,
1737 + 0.00000, 0.00001, 0.00001,
1738 + 0.02350, 0.00309, 0.00056, 0.00002, 0.00001,
1739 + 0.00000, 0.00001, 0.00001,
1740 + 0.02209, 0.00288, 0.00051, 0.00001, 0.00001,
1741 + 0.00000, 0.00001, 0.00001,
1742 + 0.02080, 0.00270, 0.00047, 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.07957, 0.01048, 0.00596, 0.00004, 0.00001,
1746 + 0.00001, 0.00001, 0.00001,
1747 + 0.06469, 0.00834, 0.00393, 0.00007, 0.00001,
1748 + 0.00001, 0.00001, 0.00001,
1749 + 0.05390, 0.00684, 0.00274, 0.00003, 0.00001,
1750 + 0.00001, 0.00001, 0.00004,
1751 + 0.04590, 0.00574, 0.00200, 0.00001, 0.00001,
1752 + 0.00000, 0.00001, 0.00003,
1753 + 0.03967, 0.00488, 0.00151, 0.00001, 0.00001,
1754 + 0.00000, 0.00001, 0.00001,
1755 + 0.03470, 0.00422, 0.00117, 0.00001, 0.00001,
1756 + 0.00000, 0.00001, 0.00001,
1757 + 0.03070, 0.00370, 0.00093, 0.00001, 0.00001,
1758 + 0.00000, 0.00001, 0.00001 /
1759 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=8,14)/
1760 + 0.02737, 0.00326, 0.00076, 0.00001, 0.00001,
1761 + 0.00000, 0.00001, 0.00001,
1762 + 0.02458, 0.00292, 0.00062, 0.00001, 0.00001,
1763 + 0.00000, 0.00001, 0.00001,
1764 + 0.02222, 0.00261, 0.00052, 0.00001, 0.00001,
1765 + 0.00000, 0.00001, 0.00001,
1766 + 0.02021, 0.00236, 0.00044, 0.00001, 0.00001,
1767 + 0.00000, 0.00001, 0.00001,
1768 + 0.01843, 0.00213, 0.00038, 0.00001, 0.00001,
1769 + 0.00000, 0.00001, 0.00001,
1770 + 0.01690, 0.00194, 0.00033, 0.00001, 0.00001,
1771 + 0.00000, 0.00001, 0.00001,
1772 + 0.01559, 0.00179, 0.00029, 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.01441, 0.00164, 0.00026, 0.00001, 0.00001,
1776 + 0.00000, 0.00001, 0.00001,
1777 + 0.01337, 0.00151, 0.00023, 0.00001, 0.00001,
1778 + 0.00000, 0.00001, 0.00001,
1779 + 0.01244, 0.00140, 0.00021, 0.00001, 0.00001,
1780 + 0.00000, 0.00001, 0.00001,
1781 + 0.01161, 0.00129, 0.00019, 0.00001, 0.00001,
1782 + 0.00000, 0.00001, 0.00001,
1783 + 0.01087, 0.00121, 0.00017, 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.04536, 0.00498, 0.00231, 0.00001, 0.00001,
1787 + 0.00001, 0.00001, 0.00001,
1788 + 0.03601, 0.00389, 0.00147, 0.00001, 0.00001,
1789 + 0.00000, 0.00001, 0.00001,
1790 + 0.02947, 0.00313, 0.00100, 0.00000, 0.00001,
1791 + 0.00000, 0.00001, 0.00001,
1792 + 0.02460, 0.00257, 0.00071, 0.00000, 0.00000,
1793 + 0.00000, 0.00000, 0.00000,
1794 + 0.02086, 0.00217, 0.00052, 0.00001, 0.00000,
1795 + 0.00000, 0.00000, 0.00001,
1796 + 0.01798, 0.00184, 0.00040, 0.00001, 0.00000,
1797 + 0.00000, 0.00000, 0.00000,
1798 + 0.01568, 0.00160, 0.00031, 0.00001, 0.00000,
1799 + 0.00000, 0.00000, 0.00000 /
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.01382, 0.00139, 0.00025, 0.00000, 0.00000,
1802 + 0.00000, 0.00000, 0.00000,
1803 + 0.01226, 0.00123, 0.00021, 0.00000, 0.00000,
1804 + 0.00000, 0.00000, 0.00000,
1805 + 0.01096, 0.00109, 0.00017, 0.00001, 0.00000,
1806 + 0.00000, 0.00000, 0.00000,
1807 + 0.00987, 0.00097, 0.00014, 0.00000, 0.00000,
1808 + 0.00000, 0.00000, 0.00000,
1809 + 0.00894, 0.00087, 0.00012, 0.00000, 0.00000,
1810 + 0.00000, 0.00000, 0.00000,
1811 + 0.00812, 0.00079, 0.00011, 0.00000, 0.00000,
1812 + 0.00000, 0.00000, 0.00000,
1813 + 0.00741, 0.00071, 0.00009, 0.00001, 0.00000,
1814 + 0.00000, 0.00000, 0.00000 /
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.00680, 0.00066, 0.00008, 0.00001, 0.00000,
1817 + 0.00000, 0.00000, 0.00000,
1818 + 0.00627, 0.00060, 0.00007, 0.00000, 0.00000,
1819 + 0.00000, 0.00000, 0.00000,
1820 + 0.00579, 0.00055, 0.00007, 0.00000, 0.00000,
1821 + 0.00000, 0.00000, 0.00000,
1822 + 0.00536, 0.00051, 0.00006, 0.00000, 0.00000,
1823 + 0.00000, 0.00000, 0.00000,
1824 + 0.00498, 0.00047, 0.00005, 0.00000, 0.00000,
1825 + 0.00000, 0.00000, 0.00000 /
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.02210, 0.00199, 0.00072, 0.00000, 0.00000,
1828 + 0.00000, 0.00000, 0.00000,
1829 + 0.01702, 0.00150, 0.00044, 0.00000, 0.00000,
1830 + 0.00000, 0.00000, 0.00000,
1831 + 0.01355, 0.00117, 0.00029, 0.00001, 0.00000,
1832 + 0.00000, 0.00000, 0.00001,
1833 + 0.01104, 0.00096, 0.00020, 0.00001, 0.00000,
1834 + 0.00000, 0.00000, 0.00000,
1835 + 0.00919, 0.00077, 0.00014, 0.00000, 0.00000,
1836 + 0.00000, 0.00000, 0.00000,
1837 + 0.00778, 0.00065, 0.00011, 0.00000, 0.00000,
1838 + 0.00000, 0.00000, 0.00000,
1839 + 0.00668, 0.00057, 0.00008, 0.00000, 0.00000,
1840 + 0.00000, 0.00000, 0.00000 /
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.00579, 0.00049, 0.00007, 0.00000, 0.00000,
1843 + 0.00000, 0.00000, 0.00000,
1844 + 0.00507, 0.00041, 0.00005, 0.00000, 0.00000,
1845 + 0.00000, 0.00000, 0.00000,
1846 + 0.00448, 0.00036, 0.00004, 0.00000, 0.00000,
1847 + 0.00000, 0.00000, 0.00000,
1848 + 0.00398, 0.00031, 0.00004, 0.00000, 0.00000,
1849 + 0.00000, 0.00000, 0.00000,
1850 + 0.00356, 0.00028, 0.00003, 0.00000, 0.00000,
1851 + 0.00000, 0.00000, 0.00000,
1852 + 0.00321, 0.00025, 0.00003, 0.00000, 0.00000,
1853 + 0.00000, 0.00000, 0.00000,
1854 + 0.00289, 0.00022, 0.00002, 0.00000, 0.00000,
1855 + 0.00000, 0.00000, 0.00000 /
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.00264, 0.00019, 0.00002, 0.00000, 0.00000,
1858 + 0.00000, 0.00000, 0.00000,
1859 + 0.00240, 0.00018, 0.00002, 0.00000, 0.00000,
1860 + 0.00000, 0.00000, 0.00000,
1861 + 0.00220, 0.00017, 0.00002, 0.00000, 0.00000,
1862 + 0.00000, 0.00000, 0.00000,
1863 + 0.00202, 0.00015, 0.00002, 0.00000, 0.00000,
1864 + 0.00000, 0.00000, 0.00000,
1865 + 0.00186, 0.00014, 0.00001, 0.00000, 0.00000,
1866 + 0.00000, 0.00000, 0.00000 /
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.00204, 0.00011, 0.00002, 0.00000, 0.00000,
1869 + 0.00000, 0.00000, 0.00000,
1870 + 0.00145, 0.00008, 0.00001, 0.00000, 0.00000,
1871 + 0.00000, 0.00000, 0.00000,
1872 + 0.00107, 0.00006, 0.00001, 0.00001, 0.00000,
1873 + 0.00000, 0.00000, 0.00000,
1874 + 0.00084, 0.00004, 0.00001, 0.00001, 0.00000,
1875 + 0.00000, 0.00000, 0.00000,
1876 + 0.00065, 0.00004, 0.00000, 0.00000, 0.00000,
1877 + 0.00000, 0.00000, 0.00000,
1878 + 0.00052, 0.00003, 0.00000, 0.00000, 0.00000,
1879 + 0.00000, 0.00000, 0.00000,
1880 + 0.00044, 0.00002, 0.00000, 0.00000, 0.00000,
1881 + 0.00000, 0.00000, 0.00000 /
1882 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=8,14)/
1883 + 0.00037, 0.00002, 0.00000, 0.00000, 0.00000,
1884 + 0.00000, 0.00000, 0.00000,
1885 + 0.00030, 0.00002, 0.00000, 0.00000, 0.00000,
1886 + 0.00000, 0.00000, 0.00000,
1887 + 0.00026, 0.00002, 0.00000, 0.00000, 0.00000,
1888 + 0.00000, 0.00000, 0.00000,
1889 + 0.00022, 0.00002, 0.00000, 0.00000, 0.00000,
1890 + 0.00000, 0.00000, 0.00000,
1891 + 0.00019, 0.00002, 0.00000, 0.00000, 0.00000,
1892 + 0.00000, 0.00000, 0.00000,
1893 + 0.00016, 0.00002, 0.00000, 0.00000, 0.00000,
1894 + 0.00000, 0.00000, 0.00000,
1895 + 0.00015, 0.00001, 0.00000, 0.00000, 0.00000,
1896 + 0.00000, 0.00000, 0.00000 /
1897 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=15,19)/
1898 + 0.00013, 0.00001, 0.00000, 0.00000, 0.00000,
1899 + 0.00000, 0.00000, 0.00000,
1900 + 0.00012, 0.00001, 0.00000, 0.00000, 0.00000,
1901 + 0.00000, 0.00000, 0.00000,
1902 + 0.00010, 0.00001, 0.00000, 0.00000, 0.00000,
1903 + 0.00000, 0.00000, 0.00000,
1904 + 0.00009, 0.00001, 0.00000, 0.00000, 0.00000,
1905 + 0.00000, 0.00000, 0.00000,
1906 + 0.00008, 0.00001, 0.00000, 0.00000, 0.00000,
1907 + 0.00000, 0.00000, 0.00000 /
1908 DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5,
1909 . 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4,
1910 . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3,
1911 . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2,
1912 . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0,
1913 . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0,
1914 . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0,
1915 . .8D0,.9D0,1.D0/
1916 DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/
1917 DATA N0/2,5,5,7,0,0,7,7/
1918 DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
1919 DATA INIT/0/
1920C
1921 XSAVE=X
1922C
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(55,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)=ZEROD
1961 IF(XXX.GE.ONED) GOTO 60
1962 G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1)
1963 . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1)
1964 IF(N.GE.NTENTH) GOTO 65
1965 IF(I.EQ.7) GOTO 65
1966 FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1)
1967 G(I)=FAC**(G(I)/FAC)
1968 65 CONTINUE
1969 G(I)=G(I)*(ONED-X)**N0(I)
1970 60 CONTINUE
1971 UPV=G(1)
1972 DNV=G(2)
1973 USEA=G(4)
1974 DSEA=G(8)
1975 STR=G(6)
1976 CHM=G(5)
1977 GLU=G(3)
1978 BOT=G(7)
1979C
1980 X=XSAVE
1981C
1982 RETURN
1983 END