]> git.uio.no Git - u/mrichter/AliRoot.git/blame - PDF/spdf/sfmsbdm.F
Possibility to have different binaries in the same tree introduced
[u/mrichter/AliRoot.git] / PDF / spdf / sfmsbdm.F
CommitLineData
fe4da5cc 1*
2* $Id$
3*
4* $Log$
5* Revision 1.1.1.2 1996/10/30 08:30:20 cernlib
6* Version 7.04
7*
8* Revision 1.1.1.1 1996/04/12 15:29:43 plothow
9* Version 7.01
10*
11*
12#include "pdf/pilot.h"
13 SUBROUTINE SFMSBDM(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU)
14
15C THIS IS THE NEW B--TYPE FIT "D-'" WITH UBAR < DBAR (230 MEV)
16
17#include "pdf/impdp.inc"
18 PARAMETER(NX=47)
19 PARAMETER(NTENTH=21)
20 DIMENSION F(8,NX,20),G(8),XX(NX),N0(8)
21 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,7)/
22 + 0.00678, 0.00419, 113.36284, 5.27780, 0.35692,
23 + 0.00000, 2.84427, 5.29945,
24 + 0.00730, 0.00436, 131.82452, 6.20395, 1.45539,
25 + 0.00002, 3.85845, 6.22611,
26 + 0.00777, 0.00453, 151.84360, 7.13090, 2.52854,
27 + 0.00000, 4.86021, 7.15350,
28 + 0.00821, 0.00469, 173.24471, 8.05506, 3.57931,
29 + 0.00002, 5.84926, 8.07807,
30 + 0.00861, 0.00484, 195.67310, 8.98680, 4.62236,
31 + 0.22312, 6.83812, 9.01019,
32 + 0.00900, 0.00499, 218.97154, 9.92759, 5.66247,
33 + 1.19609, 7.82991, 9.95134,
34 + 0.00936, 0.00514, 243.08543, 10.88139, 6.70616,
35 + 2.34336, 8.82993, 10.90546 /
36 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=8,14)/
37 + 0.00971, 0.00527, 267.88794, 11.84809, 7.75492,
38 + 3.46835, 9.83886, 11.87251,
39 + 0.01004, 0.00541, 293.24634, 12.82652, 8.80872,
40 + 4.59493, 10.85609, 12.85123,
41 + 0.01036, 0.00554, 319.05518, 13.81594, 9.86774,
42 + 5.72057, 11.88139, 13.84097,
43 + 0.01067, 0.00567, 345.24023, 14.81560, 10.93198,
44 + 6.84680, 12.91434, 14.84097,
45 + 0.01096, 0.00580, 371.73511, 15.82350, 12.00007,
46 + 7.97259, 13.95329, 15.84915,
47 + 0.01125, 0.00592, 398.40186, 16.83650, 13.06944,
48 + 9.09607, 14.99539, 16.86246,
49 + 0.01153, 0.00604, 425.26733, 17.85757, 14.14339,
50 + 10.22076, 16.04376, 17.88382 /
51 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=15,19)/
52 + 0.01180, 0.00615, 452.28052, 18.88461, 15.22017,
53 + 11.34535, 17.09650, 18.91115,
54 + 0.01206, 0.00627, 479.26636, 19.91306, 16.29565,
55 + 12.46604, 18.14926, 19.93991,
56 + 0.01232, 0.00638, 506.41284, 20.94939, 17.37643,
57 + 13.58954, 19.20856, 20.97653,
58 + 0.01257, 0.00649, 533.42773, 21.98399, 18.45329,
59 + 14.70706, 20.26501, 22.01143,
60 + 0.01281, 0.00660, 560.54785, 23.02464, 19.53406,
61 + 15.82642, 21.32640, 23.05238 /
62 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/
63 + 0.00939, 0.00549, 80.27980, 3.87419, 0.25437,
64 + 0.00000, 2.07839, 3.88658,
65 + 0.01008, 0.00576, 93.60220, 4.53371, 1.03551,
66 + 0.00000, 2.79968, 4.54639,
67 + 0.01071, 0.00600, 107.86388, 5.19118, 1.79613,
68 + 0.00000, 3.50961, 5.20409,
69 + 0.01129, 0.00623, 122.91042, 5.84359, 2.53785,
70 + 0.00001, 4.20749, 5.85673,
71 + 0.01183, 0.00645, 138.51331, 6.49805, 3.27081,
72 + 0.15652, 4.90196, 6.51140,
73 + 0.01234, 0.00667, 154.56241, 7.15547, 3.99826,
74 + 0.83751, 5.59509, 7.16902,
75 + 0.01282, 0.00687, 171.01875, 7.81849, 4.72466,
76 + 1.63737, 6.29047, 7.83222 /
77 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=8,14)/
78 + 0.01328, 0.00707, 187.79852, 8.48701, 5.45104,
79 + 2.41790, 6.98854, 8.50095,
80 + 0.01373, 0.00726, 204.81503, 9.16018, 6.17734,
81 + 3.19589, 7.68887, 9.17431,
82 + 0.01415, 0.00744, 222.00342, 9.83761, 6.90384,
83 + 3.96968, 8.39140, 9.85194,
84 + 0.01456, 0.00762, 239.31995, 10.51890, 7.63064,
85 + 4.74047, 9.09596, 10.53339,
86 + 0.01495, 0.00779, 256.72217, 11.20261, 8.35678,
87 + 5.50756, 9.80139, 11.21728,
88 + 0.01533, 0.00796, 274.10986, 11.88644, 9.08034,
89 + 6.26951, 10.50556, 11.90128,
90 + 0.01570, 0.00813, 291.52759, 12.57295, 9.80411,
91 + 7.02928, 11.21116, 12.58797 /
92 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=15,19)/
93 + 0.01605, 0.00829, 308.94043, 13.26074, 10.52696,
94 + 7.78604, 11.91692, 13.27591,
95 + 0.01640, 0.00845, 326.22144, 13.94627, 11.24564,
96 + 8.53678, 12.61945, 13.96163,
97 + 0.01674, 0.00860, 343.52930, 14.63490, 11.96560,
98 + 9.28704, 13.32413, 14.65041,
99 + 0.01707, 0.00876, 360.64111, 15.31921, 12.67969,
100 + 10.02994, 14.02371, 15.33488,
101 + 0.01739, 0.00890, 377.74976, 16.00546, 13.39423,
102 + 10.77185, 14.72448, 16.02132 /
103 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/
104 + 0.01300, 0.00721, 56.85426, 2.84456, 0.18115,
105 + 0.00000, 1.51946, 2.85167,
106 + 0.01392, 0.00760, 66.46410, 3.31391, 0.73626,
107 + 0.00000, 2.03211, 3.32119,
108 + 0.01476, 0.00795, 76.62157, 3.77994, 1.27502,
109 + 0.00001, 2.53489, 3.78738,
110 + 0.01553, 0.00829, 87.19536, 4.24018, 1.79820,
111 + 0.00001, 3.02696, 4.24776,
112 + 0.01625, 0.00860, 98.04134, 4.69950, 2.31283,
113 + 0.10972, 3.51426, 4.70722,
114 + 0.01693, 0.00890, 109.08383, 5.15846, 2.82113,
115 + 0.58597, 3.99820, 5.16630,
116 + 0.01757, 0.00919, 120.29666, 5.61885, 3.32615,
117 + 1.14314, 4.48120, 5.62680 /
118 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=8,14)/
119 + 0.01818, 0.00947, 131.62527, 6.08059, 3.82862,
120 + 1.68411, 4.96357, 6.08866,
121 + 0.01876, 0.00974, 143.01680, 6.54310, 4.32855,
122 + 2.22076, 5.44505, 6.55128,
123 + 0.01932, 0.00999, 154.43156, 7.00618, 4.82617,
124 + 2.75198, 5.92565, 7.01447,
125 + 0.01986, 0.01024, 165.84703, 7.46966, 5.32169,
126 + 3.27876, 6.40538, 7.47806,
127 + 0.02038, 0.01049, 177.23659, 7.93260, 5.81449,
128 + 3.80066, 6.88347, 7.94109,
129 + 0.02088, 0.01072, 188.52869, 8.39322, 6.30307,
130 + 4.31651, 7.35828, 8.40183,
131 + 0.02137, 0.01095, 199.77345, 8.85376, 6.78984,
132 + 4.82886, 7.83214, 8.86251 /
133 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=15,19)/
134 + 0.02184, 0.01118, 210.94688, 9.31324, 7.27400,
135 + 5.33710, 8.30415, 9.32209,
136 + 0.02229, 0.01139, 221.95897, 9.76902, 7.75311,
137 + 5.83896, 8.77178, 9.77798,
138 + 0.02274, 0.01160, 232.93710, 10.22538, 8.23151,
139 + 6.33889, 9.23934, 10.23443,
140 + 0.02317, 0.01181, 243.71588, 10.67667, 8.70375,
141 + 6.83158, 9.70126, 10.68579,
142 + 0.02359, 0.01201, 254.44711, 11.12789, 9.17487,
143 + 7.32211, 10.16260, 11.13712 /
144 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/
145 + 0.01571, 0.00846, 46.46518, 2.37480, 0.14849,
146 + 0.00000, 1.26558, 2.38015,
147 + 0.01680, 0.00894, 54.40184, 2.75933, 0.60292,
148 + 0.00000, 1.68528, 2.76483,
149 + 0.01780, 0.00938, 62.72838, 3.14024, 1.04310,
150 + 0.00000, 2.09603, 3.14587,
151 + 0.01871, 0.00980, 71.32774, 3.51535, 1.46949,
152 + 0.00000, 2.49698, 3.52112,
153 + 0.01956, 0.01019, 80.09055, 3.88856, 1.88777,
154 + 0.08910, 2.89289, 3.89444,
155 + 0.02036, 0.01055, 88.95720, 4.26029, 2.29968,
156 + 0.47528, 3.28488, 4.26627,
157 + 0.02111, 0.01090, 97.90706, 4.63199, 2.70773,
158 + 0.92601, 3.67491, 4.63807 /
159 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=8,14)/
160 + 0.02183, 0.01124, 106.89931, 5.00356, 3.11248,
161 + 1.36230, 4.06321, 5.00974,
162 + 0.02252, 0.01157, 115.89412, 5.37458, 3.51397,
163 + 1.79388, 4.44960, 5.38086,
164 + 0.02318, 0.01188, 124.86359, 5.74492, 3.91244,
165 + 2.21988, 4.83414, 5.75130,
166 + 0.02382, 0.01219, 133.79311, 6.11453, 4.30813,
167 + 2.64118, 5.21692, 6.12100,
168 + 0.02443, 0.01248, 142.66318, 6.48263, 4.70054,
169 + 3.05743, 5.59728, 6.48918,
170 + 0.02502, 0.01276, 151.41556, 6.84775, 5.08843,
171 + 3.46764, 5.97390, 6.85438,
172 + 0.02559, 0.01304, 160.09944, 7.21192, 5.47394,
173 + 3.87411, 6.34885, 7.21864 /
174 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=15,19)/
175 + 0.02614, 0.01331, 168.69635, 7.57432, 5.85644,
176 + 4.27633, 6.72140, 7.58113,
177 + 0.02668, 0.01357, 177.13249, 7.93274, 6.23385,
178 + 4.67237, 7.08941, 7.93963,
179 + 0.02720, 0.01383, 185.51929, 8.29092, 6.60999,
180 + 5.06613, 7.45666, 8.29790,
181 + 0.02770, 0.01408, 193.71812, 8.64407, 6.98018,
182 + 5.45308, 7.81842, 8.65114,
183 + 0.02820, 0.01432, 201.86037, 8.99654, 7.34885,
184 + 5.83766, 8.17907, 9.00368 /
185 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/
186 + 0.01797, 0.00949, 40.26817, 2.08970, 0.12893,
187 + 0.00000, 1.11193, 2.09428,
188 + 0.01920, 0.01004, 47.19662, 2.42345, 0.52315,
189 + 0.00000, 1.47604, 2.42817,
190 + 0.02032, 0.01056, 54.42696, 2.75351, 0.90449,
191 + 0.00000, 1.83186, 2.75836,
192 + 0.02135, 0.01103, 61.85147, 3.07787, 1.27320,
193 + 0.00000, 2.17850, 3.08285,
194 + 0.02231, 0.01148, 69.38116, 3.39987, 1.63417,
195 + 0.07684, 2.52009, 3.40497,
196 + 0.02320, 0.01191, 76.96577, 3.71986, 1.98891,
197 + 0.40958, 2.85755, 3.72506,
198 + 0.02405, 0.01231, 84.58859, 4.03907, 2.33956,
199 + 0.79724, 3.19256, 4.04436 /
200 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=8,14)/
201 + 0.02486, 0.01270, 92.21600, 4.35743, 2.68660,
202 + 1.17169, 3.52534, 4.36282,
203 + 0.02564, 0.01308, 99.81659, 4.67458, 3.03009,
204 + 1.54130, 3.85574, 4.68007,
205 + 0.02638, 0.01344, 107.36899, 4.99047, 3.37029,
206 + 1.90541, 4.18385, 4.99604,
207 + 0.02709, 0.01378, 114.86278, 5.30504, 3.70742,
208 + 2.26477, 4.50977, 5.31070,
209 + 0.02778, 0.01412, 122.28268, 5.61768, 4.04108,
210 + 2.61913, 4.83299, 5.62343,
211 + 0.02844, 0.01445, 129.57832, 5.92712, 4.37018,
212 + 2.96762, 5.15232, 5.93294,
213 + 0.02908, 0.01476, 136.79765, 6.23517, 4.69669,
214 + 3.31231, 5.46965, 6.24106 /
215 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=15,19)/
216 + 0.02970, 0.01507, 143.92532, 6.54117, 5.02006,
217 + 3.65280, 5.78439, 6.54714,
218 + 0.03030, 0.01537, 150.89703, 6.84317, 5.33847,
219 + 3.98739, 6.09465, 6.84922,
220 + 0.03088, 0.01566, 157.81467, 7.14453, 5.65535,
221 + 4.31957, 6.40382, 7.15065,
222 + 0.03145, 0.01594, 164.55515, 7.44102, 5.96657,
223 + 4.64533, 6.70772, 7.44721,
224 + 0.03200, 0.01622, 171.23663, 7.73653, 6.27610,
225 + 4.96866, 7.01029, 7.74279 /
226 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/
227 + 0.01994, 0.01037, 36.03723, 1.89259, 0.11555,
228 + 0.00000, 1.00594, 1.89680,
229 + 0.02129, 0.01099, 42.27234, 2.19158, 0.46859,
230 + 0.00000, 1.33204, 2.19595,
231 + 0.02252, 0.01157, 48.75197, 2.48688, 0.80972,
232 + 0.00000, 1.65031, 2.49138,
233 + 0.02365, 0.01210, 55.37572, 2.77661, 1.13908,
234 + 0.00001, 1.95992, 2.78124,
235 + 0.02470, 0.01261, 62.06821, 3.06372, 1.46102,
236 + 0.06850, 2.26450, 3.06847,
237 + 0.02568, 0.01308, 68.78519, 3.34853, 1.77687,
238 + 0.36487, 2.56488, 3.35338,
239 + 0.02661, 0.01353, 75.51291, 3.63210, 2.08854,
240 + 0.70970, 2.86255, 3.63705 /
241 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=8,14)/
242 + 0.02750, 0.01397, 82.22302, 3.91441, 2.39647,
243 + 1.04220, 3.15771, 3.91946,
244 + 0.02835, 0.01438, 88.88927, 4.19513, 2.70073,
245 + 1.36987, 3.45025, 4.20028,
246 + 0.02916, 0.01478, 95.49414, 4.47425, 3.00157,
247 + 1.69214, 3.74026, 4.47948,
248 + 0.02994, 0.01517, 102.03079, 4.75174, 3.29922,
249 + 2.00972, 4.02787, 4.75706,
250 + 0.03069, 0.01554, 108.48605, 5.02709, 3.59334,
251 + 2.32239, 4.31264, 5.03249,
252 + 0.03141, 0.01591, 114.81557, 5.29909, 3.88292,
253 + 2.62935, 4.59346, 5.30457,
254 + 0.03211, 0.01626, 121.06581, 5.56951, 4.16982,
255 + 2.93256, 4.87215, 5.57507 /
256 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=15,19)/
257 + 0.03278, 0.01660, 127.22301, 5.83775, 4.45358,
258 + 3.23166, 5.14818, 5.84338,
259 + 0.03344, 0.01693, 133.23058, 6.10203, 4.73251,
260 + 3.52509, 5.41981, 6.10773,
261 + 0.03407, 0.01725, 139.18147, 6.36545, 5.00980,
262 + 3.81609, 5.69019, 6.37123,
263 + 0.03469, 0.01756, 144.96507, 6.62418, 5.28169,
264 + 4.10101, 5.95552, 6.63002,
265 + 0.03529, 0.01787, 150.68996, 6.88177, 5.55181,
266 + 4.38349, 6.21940, 6.88768 /
267 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/
268 + 0.02751, 0.01370, 25.53156, 1.39294, 0.08218,
269 + 0.00000, 0.73834, 1.39713,
270 + 0.02932, 0.01459, 30.02258, 1.60524, 0.33270,
271 + 0.00000, 0.96975, 1.60963,
272 + 0.03096, 0.01542, 34.62773, 1.81402, 0.57387,
273 + 0.00000, 1.19472, 1.81858,
274 + 0.03247, 0.01618, 39.26733, 2.01777, 0.80562,
275 + 0.00000, 1.41246, 2.02249,
276 + 0.03387, 0.01688, 43.89818, 2.21853, 1.03099,
277 + 0.04789, 1.62551, 2.22340,
278 + 0.03517, 0.01755, 48.49229, 2.41650, 1.25091,
279 + 0.25451, 1.83445, 2.42150,
280 + 0.03641, 0.01819, 53.04248, 2.61245, 1.46671,
281 + 0.49388, 2.04031, 2.61758 /
282 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=8,14)/
283 + 0.03759, 0.01879, 57.53278, 2.80635, 1.67872,
284 + 0.72340, 2.24326, 2.81160,
285 + 0.03871, 0.01937, 61.94952, 2.99804, 1.88704,
286 + 0.94839, 2.44325, 3.00341,
287 + 0.03978, 0.01993, 66.28516, 3.18755, 2.09190,
288 + 1.16851, 2.64043, 3.19303,
289 + 0.04080, 0.02046, 70.53885, 3.37495, 2.29355,
290 + 1.38435, 2.83494, 3.38053,
291 + 0.04179, 0.02098, 74.70436, 3.55992, 2.49178,
292 + 1.59580, 3.02653, 3.56559,
293 + 0.04274, 0.02147, 78.75093, 3.74158, 2.68586,
294 + 1.80225, 3.21438, 3.74734,
295 + 0.04366, 0.02196, 82.71915, 3.92134, 2.87728,
296 + 2.00528, 3.39996, 3.92720 /
297 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=15,19)/
298 + 0.04454, 0.02242, 86.60075, 4.09883, 3.06573,
299 + 2.20466, 3.58292, 4.10477,
300 + 0.04540, 0.02287, 90.35558, 4.27273, 3.24999,
301 + 2.39925, 3.76199, 4.27876,
302 + 0.04623, 0.02331, 94.05588, 4.44544, 3.43252,
303 + 2.59153, 3.93960, 4.45155,
304 + 0.04704, 0.02374, 97.62140, 4.61413, 3.61051,
305 + 2.77879, 4.11292, 4.62031,
306 + 0.04782, 0.02416, 101.13344, 4.78153, 3.78675,
307 + 2.96385, 4.28473, 4.78777 /
308 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/
309 + 0.03790, 0.01824, 18.09737, 1.02881, 0.05844,
310 + 0.00000, 0.54464, 1.03437,
311 + 0.04032, 0.01952, 21.32814, 1.17929, 0.23607,
312 + 0.00000, 0.70871, 1.18513,
313 + 0.04252, 0.02068, 24.59242, 1.32652, 0.40634,
314 + 0.00000, 0.86748, 1.33260,
315 + 0.04453, 0.02175, 27.82928, 1.46937, 0.56910,
316 + 0.00000, 1.02028, 1.47567,
317 + 0.04639, 0.02275, 31.01701, 1.60922, 0.72645,
318 + 0.03339, 1.16889, 1.61572,
319 + 0.04812, 0.02368, 34.13919, 1.74625, 0.87909,
320 + 0.17704, 1.31372, 1.75293,
321 + 0.04976, 0.02456, 37.19345, 1.88098, 1.02796,
322 + 0.34266, 1.45552, 1.88784 /
323 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=8,14)/
324 + 0.05131, 0.02540, 40.17247, 2.01344, 1.17332,
325 + 0.50050, 1.59443, 2.02046,
326 + 0.05279, 0.02621, 43.07063, 2.14356, 1.31528,
327 + 0.65434, 1.73047, 2.15073,
328 + 0.05420, 0.02697, 45.88628, 2.27141, 1.45406,
329 + 0.80400, 1.86378, 2.27872,
330 + 0.05555, 0.02771, 48.62247, 2.39709, 1.58990,
331 + 0.94996, 1.99454, 2.40454,
332 + 0.05684, 0.02842, 51.27676, 2.52042, 1.72270,
333 + 1.09217, 2.12260, 2.52800,
334 + 0.05809, 0.02910, 53.82848, 2.64079, 1.85191,
335 + 1.23020, 2.24739, 2.64848,
336 + 0.05929, 0.02975, 56.31184, 2.75931, 1.97875,
337 + 1.36531, 2.37006, 2.76712 /
338 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=15,19)/
339 + 0.06044, 0.03039, 58.72153, 2.87573, 2.10300,
340 + 1.49735, 2.49039, 2.88365,
341 + 0.06156, 0.03100, 61.03021, 2.98911, 2.22377,
342 + 1.62549, 2.60746, 2.99713,
343 + 0.06264, 0.03160, 63.29239, 3.10128, 2.34295,
344 + 1.75162, 2.72314, 3.10940,
345 + 0.06369, 0.03217, 65.45084, 3.21017, 2.45848,
346 + 1.87376, 2.83534, 3.21838,
347 + 0.06471, 0.03274, 67.56570, 3.31783, 2.57247,
348 + 1.99403, 2.94616, 3.32614 /
349 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/
350 + 0.04567, 0.02171, 14.80340, 0.86449, 0.04787,
351 + 0.00000, 0.45771, 0.87137,
352 + 0.04855, 0.02327, 17.46556, 0.98736, 0.19307,
353 + 0.00000, 0.59180, 0.99457,
354 + 0.05115, 0.02470, 20.12881, 1.10716, 0.33181,
355 + 0.00000, 0.72112, 1.11466,
356 + 0.05352, 0.02600, 22.74222, 1.22292, 0.46396,
357 + 0.00000, 0.84511, 1.23068,
358 + 0.05571, 0.02721, 25.29341, 1.33578, 0.59124,
359 + 0.02698, 0.96521, 1.34378,
360 + 0.05776, 0.02834, 27.77130, 1.44588, 0.71421,
361 + 0.14286, 1.08178, 1.45410,
362 + 0.05968, 0.02941, 30.17592, 1.55369, 0.83366,
363 + 0.27603, 1.19544, 1.56211 /
364 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=8,14)/
365 + 0.06151, 0.03042, 32.50339, 1.65923, 0.94984,
366 + 0.40245, 1.30632, 1.66784,
367 + 0.06324, 0.03139, 34.75139, 1.76247, 1.06286,
368 + 0.52521, 1.41447, 1.77126,
369 + 0.06489, 0.03231, 36.92084, 1.86351, 1.17293,
370 + 0.64421, 1.52004, 1.87246,
371 + 0.06647, 0.03320, 39.01585, 1.96247, 1.28027,
372 + 0.75985, 1.62321, 1.97158,
373 + 0.06798, 0.03404, 41.03569, 2.05921, 1.38483,
374 + 0.87214, 1.72388, 2.06847,
375 + 0.06943, 0.03486, 42.96425, 2.15324, 1.48618,
376 + 0.98073, 1.82158, 2.16264,
377 + 0.07083, 0.03564, 44.83162, 2.24554, 1.58535,
378 + 1.08669, 1.91733, 2.25507 /
379 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=15,19)/
380 + 0.07218, 0.03640, 46.63419, 2.33591, 1.68220,
381 + 1.18992, 2.01095, 2.34556,
382 + 0.07348, 0.03713, 48.35025, 2.42357, 1.77598,
383 + 1.28974, 2.10168, 2.43335,
384 + 0.07473, 0.03784, 50.02550, 2.51009, 1.86830,
385 + 1.38777, 2.19112, 2.51999,
386 + 0.07595, 0.03852, 51.61328, 2.59374, 1.95745,
387 + 1.48235, 2.27752, 2.60374,
388 + 0.07713, 0.03918, 53.16382, 2.67626, 2.04522,
389 + 1.57527, 2.36268, 2.68638 /
390 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/
391 + 0.05211, 0.02468, 12.84036, 0.76596, 0.04154,
392 + 0.00000, 0.40574, 0.77396,
393 + 0.05535, 0.02648, 15.15948, 0.87227, 0.16733,
394 + 0.00000, 0.52187, 0.88064,
395 + 0.05828, 0.02812, 17.46109, 0.97562, 0.28723,
396 + 0.00000, 0.63357, 0.98432,
397 + 0.06095, 0.02962, 19.70105, 1.07516, 0.40108,
398 + 0.00000, 0.74034, 1.08415,
399 + 0.06341, 0.03100, 21.87273, 1.17189, 0.51041,
400 + 0.02317, 0.84342, 1.18114,
401 + 0.06570, 0.03230, 23.96823, 1.26594, 0.61572,
402 + 0.12249, 0.94315, 1.27543,
403 + 0.06786, 0.03352, 25.98907, 1.35772, 0.71769,
404 + 0.23637, 1.04007, 1.36743 /
405 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=8,14)/
406 + 0.06990, 0.03467, 27.93349, 1.44728, 0.81655,
407 + 0.34414, 1.13433, 1.45720,
408 + 0.07184, 0.03577, 29.80106, 1.53461, 0.91244,
409 + 0.44850, 1.22598, 1.54472,
410 + 0.07368, 0.03682, 31.59392, 1.61981, 1.00556,
411 + 0.54937, 1.31517, 1.63011,
412 + 0.07544, 0.03782, 33.31693, 1.70302, 1.09612,
413 + 0.64714, 1.40209, 1.71349,
414 + 0.07713, 0.03878, 34.97005, 1.78414, 1.18409,
415 + 0.74183, 1.48667, 1.79476,
416 + 0.07874, 0.03970, 36.54018, 1.86273, 1.26910,
417 + 0.83313, 1.56850, 1.87350,
418 + 0.08030, 0.04059, 38.05452, 1.93968, 1.35208,
419 + 0.92201, 1.64850, 1.95060 /
420 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=15,19)/
421 + 0.08180, 0.04144, 39.51041, 2.01483, 1.43293,
422 + 1.00841, 1.72652, 2.02590,
423 + 0.08324, 0.04227, 40.88936, 2.08753, 1.51099,
424 + 1.09173, 1.80193, 2.09872,
425 + 0.08463, 0.04306, 42.23164, 2.15914, 1.58770,
426 + 1.17340, 1.87611, 2.17046,
427 + 0.08598, 0.04383, 43.49719, 2.22816, 1.66156,
428 + 1.25197, 1.94757, 2.23960,
429 + 0.08729, 0.04458, 44.72981, 2.29613, 1.73414,
430 + 1.32903, 2.01787, 2.30769 /
431 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/
432 + 0.05764, 0.02747, 11.50222, 0.70077, 0.03720,
433 + 0.00000, 0.37103, 0.70946,
434 + 0.06120, 0.02949, 13.58566, 0.79569, 0.14963,
435 + 0.00001, 0.47479, 0.80478,
436 + 0.06441, 0.03131, 15.63766, 0.88772, 0.25653,
437 + 0.00001, 0.57433, 0.89715,
438 + 0.06732, 0.03298, 17.61949, 0.97609, 0.35777,
439 + 0.00002, 0.66920, 0.98584,
440 + 0.07002, 0.03452, 19.52823, 1.06169, 0.45472,
441 + 0.02056, 0.76053, 1.07172,
442 + 0.07252, 0.03595, 21.35942, 1.14465, 0.54781,
443 + 0.10845, 0.84861, 1.15493,
444 + 0.07487, 0.03730, 23.11586, 1.22538, 0.63772,
445 + 0.20903, 0.93398, 1.23590 /
446 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=8,14)/
447 + 0.07709, 0.03858, 24.79561, 1.30392, 0.72464,
448 + 0.30394, 1.01675, 1.31465,
449 + 0.07920, 0.03979, 26.40141, 1.38028, 0.80872,
450 + 0.39562, 1.09701, 1.39122,
451 + 0.08120, 0.04094, 27.93648, 1.45460, 0.89018,
452 + 0.48403, 1.17494, 1.46573,
453 + 0.08312, 0.04204, 29.40570, 1.52699, 0.96920,
454 + 0.56952, 1.25068, 1.53830,
455 + 0.08494, 0.04310, 30.80994, 1.59738, 1.04578,
456 + 0.65212, 1.32419, 1.60886,
457 + 0.08669, 0.04411, 32.13626, 1.66541, 1.11960,
458 + 0.73159, 1.39515, 1.67704,
459 + 0.08838, 0.04508, 33.41130, 1.73188, 1.19152,
460 + 0.80880, 1.46437, 1.74366 /
461 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=15,19)/
462 + 0.09000, 0.04601, 34.63304, 1.79663, 1.26142,
463 + 0.88368, 1.53172, 1.80856,
464 + 0.09156, 0.04691, 35.78522, 1.85909, 1.32873,
465 + 0.95570, 1.59663, 1.87115,
466 + 0.09307, 0.04778, 36.90384, 1.92050, 1.39475,
467 + 1.02618, 1.66038, 1.93270,
468 + 0.09452, 0.04861, 37.95329, 1.97958, 1.45819,
469 + 1.09385, 1.72165, 1.99189,
470 + 0.09593, 0.04943, 38.97290, 2.03766, 1.52045,
471 + 1.16012, 1.78185, 2.05009 /
472 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/
473 + 0.07889, 0.03880, 8.18436, 0.53559, 0.02634,
474 + 0.00000, 0.28389, 0.54729,
475 + 0.08362, 0.04163, 9.67033, 0.60193, 0.10544,
476 + 0.00000, 0.35674, 0.61410,
477 + 0.08786, 0.04416, 11.09429, 0.66557, 0.17996,
478 + 0.00001, 0.42592, 0.67815,
479 + 0.09170, 0.04645, 12.43272, 0.72602, 0.24984,
480 + 0.00001, 0.49118, 0.73896,
481 + 0.09522, 0.04856, 13.69332, 0.78394, 0.31609,
482 + 0.01404, 0.55335, 0.79720,
483 + 0.09848, 0.05050, 14.87773, 0.83947, 0.37908,
484 + 0.07376, 0.61268, 0.85302,
485 + 0.10153, 0.05233, 15.99150, 0.89295, 0.43932,
486 + 0.14159, 0.66961, 0.90677 /
487 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=8,14)/
488 + 0.10441, 0.05403, 17.03688, 0.94443, 0.49701,
489 + 0.20499, 0.72425, 0.95850,
490 + 0.10712, 0.05565, 18.01881, 0.99401, 0.55230,
491 + 0.26570, 0.77674, 1.00830,
492 + 0.10969, 0.05717, 18.94221, 1.04181, 0.60539,
493 + 0.32377, 0.82723, 1.05631,
494 + 0.11214, 0.05862, 19.81262, 1.08795, 0.65646,
495 + 0.37946, 0.87589, 1.10265,
496 + 0.11447, 0.06000, 20.63210, 1.13243, 0.70554,
497 + 0.43285, 0.92272, 1.14731,
498 + 0.11669, 0.06132, 21.39287, 1.17501, 0.75245,
499 + 0.48379, 0.96750, 1.19006,
500 + 0.11883, 0.06257, 22.11525, 1.21631, 0.79781,
501 + 0.53293, 1.01087, 1.23152 /
502 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=15,19)/
503 + 0.12087, 0.06378, 22.79848, 1.25624, 0.84159,
504 + 0.58027, 1.05276, 1.27161,
505 + 0.12283, 0.06493, 23.43222, 1.29441, 0.88339,
506 + 0.62544, 1.09278, 1.30992,
507 + 0.12473, 0.06605, 24.04205, 1.33172, 0.92417,
508 + 0.66940, 1.13186, 1.34737,
509 + 0.12654, 0.06711, 24.60417, 1.36729, 0.96301,
510 + 0.71127, 1.16909, 1.38306,
511 + 0.12830, 0.06815, 25.14577, 1.40208, 1.00094,
512 + 0.75207, 1.20548, 1.41798 /
513 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/
514 + 0.10815, 0.05629, 5.84701, 0.41831, 0.01855,
515 + 0.00001, 0.22226, 0.43374,
516 + 0.11439, 0.06014, 6.89168, 0.46387, 0.07371,
517 + 0.00001, 0.27276, 0.47981,
518 + 0.11993, 0.06356, 7.85723, 0.50693, 0.12500,
519 + 0.00002, 0.32006, 0.52332,
520 + 0.12492, 0.06660, 8.73285, 0.54723, 0.17247,
521 + 0.00002, 0.36403, 0.56399,
522 + 0.12947, 0.06937, 9.53477, 0.58530, 0.21688,
523 + 0.00943, 0.40536, 0.60239,
524 + 0.13365, 0.07191, 10.26739, 0.62130, 0.25858,
525 + 0.04923, 0.44429, 0.63868,
526 + 0.13754, 0.07426, 10.93883, 0.65549, 0.29797,
527 + 0.09400, 0.48115, 0.67313 /
528 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=8,14)/
529 + 0.14119, 0.07645, 11.55508, 0.68796, 0.33522,
530 + 0.13534, 0.51607, 0.70586,
531 + 0.14461, 0.07849, 12.11970, 0.71889, 0.37055,
532 + 0.17456, 0.54926, 0.73700,
533 + 0.14784, 0.08042, 12.63923, 0.74834, 0.40411,
534 + 0.21166, 0.58081, 0.76665,
535 + 0.15089, 0.08223, 13.11969, 0.77643, 0.43603,
536 + 0.24689, 0.61086, 0.79493,
537 + 0.15378, 0.08396, 13.56279, 0.80324, 0.46643,
538 + 0.28037, 0.63951, 0.82190,
539 + 0.15653, 0.08557, 13.96378, 0.82858, 0.49513,
540 + 0.31196, 0.66657, 0.84740,
541 + 0.15916, 0.08712, 14.33820, 0.85292, 0.52266,
542 + 0.34219, 0.69255, 0.87189 /
543 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=15,19)/
544 + 0.16167, 0.08858, 14.68612, 0.87625, 0.54901,
545 + 0.37108, 0.71742, 0.89535,
546 + 0.16405, 0.08998, 15.00078, 0.89828, 0.57390,
547 + 0.39837, 0.74090, 0.91751,
548 + 0.16634, 0.09132, 15.29998, 0.91967, 0.59800,
549 + 0.42475, 0.76368, 0.93901,
550 + 0.16854, 0.09259, 15.56985, 0.93983, 0.62076,
551 + 0.44966, 0.78517, 0.95929,
552 + 0.17067, 0.09382, 15.82652, 0.95942, 0.64283,
553 + 0.47379, 0.80602, 0.97899 /
554 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/
555 + 0.13041, 0.07061, 4.81657, 0.36507, 0.01504,
556 + 0.00001, 0.19455, 0.38309,
557 + 0.13770, 0.07512, 5.65548, 0.40111, 0.05944,
558 + 0.00001, 0.23492, 0.41965,
559 + 0.14414, 0.07908, 6.41075, 0.43480, 0.10031,
560 + 0.00001, 0.27232, 0.45375,
561 + 0.14990, 0.08259, 7.07913, 0.46599, 0.13778,
562 + 0.00003, 0.30674, 0.48531,
563 + 0.15511, 0.08575, 7.67787, 0.49512, 0.17249,
564 + 0.00738, 0.33874, 0.51474,
565 + 0.15990, 0.08862, 8.21503, 0.52238, 0.20479,
566 + 0.03837, 0.36859, 0.54229,
567 + 0.16433, 0.09126, 8.69875, 0.54805, 0.23504,
568 + 0.07303, 0.39661, 0.56820 /
569 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=8,14)/
570 + 0.16843, 0.09372, 9.13327, 0.57222, 0.26344,
571 + 0.10479, 0.42296, 0.59257,
572 + 0.17229, 0.09600, 9.52586, 0.59499, 0.29012,
573 + 0.13467, 0.44773, 0.61553,
574 + 0.17591, 0.09812, 9.88058, 0.61648, 0.31526,
575 + 0.16273, 0.47109, 0.63720,
576 + 0.17933, 0.10011, 10.20232, 0.63683, 0.33903,
577 + 0.18921, 0.49319, 0.65772,
578 + 0.18256, 0.10199, 10.49513, 0.65610, 0.36150,
579 + 0.21422, 0.51411, 0.67713,
580 + 0.18560, 0.10374, 10.75471, 0.67415, 0.38256,
581 + 0.23766, 0.53369, 0.69530,
582 + 0.18849, 0.10541, 10.99390, 0.69139, 0.40265,
583 + 0.25996, 0.55238, 0.71266 /
584 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=15,19)/
585 + 0.19125, 0.10699, 11.21303, 0.70781, 0.42176,
586 + 0.28117, 0.57018, 0.72919,
587 + 0.19387, 0.10848, 11.40742, 0.72316, 0.43968,
588 + 0.30106, 0.58684, 0.74465,
589 + 0.19640, 0.10991, 11.59032, 0.73799, 0.45696,
590 + 0.32021, 0.60292, 0.75958,
591 + 0.19878, 0.11126, 11.74983, 0.75183, 0.47313,
592 + 0.33815, 0.61794, 0.77349,
593 + 0.20108, 0.11257, 11.90003, 0.76521, 0.48875,
594 + 0.35545, 0.63246, 0.78695 /
595 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/
596 + 0.14923, 0.08319, 4.20492, 0.33269, 0.01292,
597 + 0.00001, 0.17779, 0.35271,
598 + 0.15732, 0.08815, 4.91633, 0.36289, 0.05083,
599 + 0.00001, 0.21198, 0.38341,
600 + 0.16444, 0.09248, 5.54333, 0.39085, 0.08544,
601 + 0.00001, 0.24338, 0.41175,
602 + 0.17077, 0.09628, 6.08681, 0.41650, 0.11691,
603 + 0.00002, 0.27202, 0.43773,
604 + 0.17647, 0.09969, 6.56528, 0.44024, 0.14583,
605 + 0.00616, 0.29842, 0.46174,
606 + 0.18168, 0.10276, 6.98754, 0.46227, 0.17255,
607 + 0.03192, 0.32286, 0.48402,
608 + 0.18649, 0.10557, 7.36174, 0.48284, 0.19740,
609 + 0.06059, 0.34563, 0.50480 /
610 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=8,14)/
611 + 0.19092, 0.10816, 7.69255, 0.50207, 0.22057,
612 + 0.08669, 0.36687, 0.52419,
613 + 0.19506, 0.11056, 7.98688, 0.52004, 0.24220,
614 + 0.11110, 0.38671, 0.54231,
615 + 0.19895, 0.11278, 8.24886, 0.53687, 0.26246,
616 + 0.13390, 0.40529, 0.55930,
617 + 0.20260, 0.11485, 8.48311, 0.55270, 0.28149,
618 + 0.15530, 0.42276, 0.57527,
619 + 0.20604, 0.11679, 8.69319, 0.56760, 0.29940,
620 + 0.17540, 0.43920, 0.59027,
621 + 0.20926, 0.11860, 8.87573, 0.58144, 0.31607,
622 + 0.19414, 0.45448, 0.60421,
623 + 0.21232, 0.12031, 9.04169, 0.59459, 0.33190,
624 + 0.21190, 0.46899, 0.61744 /
625 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=15,19)/
626 + 0.21523, 0.12193, 9.19145, 0.60704, 0.34688,
627 + 0.22870, 0.48272, 0.62997,
628 + 0.21798, 0.12344, 9.32139, 0.61859, 0.36085,
629 + 0.24439, 0.49550, 0.64160,
630 + 0.22063, 0.12489, 9.44241, 0.62969, 0.37427,
631 + 0.25943, 0.50778, 0.65278,
632 + 0.22311, 0.12626, 9.54491, 0.63997, 0.38675,
633 + 0.27345, 0.51918, 0.66311,
634 + 0.22551, 0.12757, 9.64039, 0.64988, 0.39877,
635 + 0.28692, 0.53015, 0.67306 /
636 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/
637 + 0.16590, 0.09454, 3.78909, 0.30995, 0.01148,
638 + 0.00004, 0.16610, 0.33160,
639 + 0.17465, 0.09982, 4.41062, 0.33606, 0.04492,
640 + 0.00003, 0.19600, 0.35817,
641 + 0.18230, 0.10439, 4.94869, 0.36005, 0.07523,
642 + 0.00004, 0.22325, 0.38250,
643 + 0.18905, 0.10839, 5.40636, 0.38184, 0.10257,
644 + 0.00003, 0.24789, 0.40455,
645 + 0.19513, 0.11193, 5.80367, 0.40187, 0.12756,
646 + 0.00536, 0.27047, 0.42482,
647 + 0.20065, 0.11512, 6.14841, 0.42034, 0.15051,
648 + 0.02759, 0.29122, 0.44350,
649 + 0.20572, 0.11801, 6.44982, 0.43741, 0.17170,
650 + 0.05218, 0.31040, 0.46075 /
651 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=8,14)/
652 + 0.21041, 0.12067, 6.71309, 0.45326, 0.19134,
653 + 0.07446, 0.32819, 0.47674,
654 + 0.21475, 0.12311, 6.94215, 0.46799, 0.20959,
655 + 0.09521, 0.34472, 0.49159,
656 + 0.21881, 0.12537, 7.14344, 0.48171, 0.22659,
657 + 0.11449, 0.36011, 0.50542,
658 + 0.22260, 0.12747, 7.32200, 0.49453, 0.24249,
659 + 0.13250, 0.37448, 0.51833,
660 + 0.22615, 0.12943, 7.47954, 0.50651, 0.25735,
661 + 0.14934, 0.38793, 0.53037,
662 + 0.22951, 0.13124, 7.61383, 0.51756, 0.27114,
663 + 0.16497, 0.40037, 0.54151,
664 + 0.23269, 0.13294, 7.73413, 0.52799, 0.28417,
665 + 0.17973, 0.41212, 0.55201 /
666 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=15,19)/
667 + 0.23568, 0.13454, 7.84075, 0.53781, 0.29644,
668 + 0.19364, 0.42318, 0.56189,
669 + 0.23848, 0.13604, 7.93079, 0.54687, 0.30783,
670 + 0.20656, 0.43341, 0.57098,
671 + 0.24116, 0.13748, 8.01371, 0.55554, 0.31873,
672 + 0.21892, 0.44321, 0.57968,
673 + 0.24371, 0.13882, 8.08165, 0.56351, 0.32882,
674 + 0.23038, 0.45224, 0.58768,
675 + 0.24616, 0.14009, 8.14413, 0.57115, 0.33851,
676 + 0.24138, 0.46091, 0.59536 /
677 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/
678 + 0.23277, 0.14039, 2.76158, 0.24847, 0.00774,
679 + 0.00001, 0.13481, 0.27530,
680 + 0.24337, 0.14613, 3.14364, 0.26388, 0.02990,
681 + 0.00002, 0.15363, 0.29085,
682 + 0.25243, 0.15096, 3.45111, 0.27752, 0.04937,
683 + 0.00002, 0.17021, 0.30456,
684 + 0.26030, 0.15503, 3.69408, 0.28944, 0.06644,
685 + 0.00001, 0.18472, 0.31654,
686 + 0.26727, 0.15852, 3.89128, 0.30005, 0.08167,
687 + 0.00331, 0.19766, 0.32717,
688 + 0.27345, 0.16161, 4.05216, 0.30951, 0.09530,
689 + 0.01681, 0.20921, 0.33664,
690 + 0.27902, 0.16433, 4.18312, 0.31799, 0.10762,
691 + 0.03151, 0.21961, 0.34509 /
692 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=8,14)/
693 + 0.28409, 0.16675, 4.28890, 0.32561, 0.11878,
694 + 0.04454, 0.22899, 0.35269,
695 + 0.28872, 0.16893, 4.37443, 0.33248, 0.12894,
696 + 0.05646, 0.23749, 0.35951,
697 + 0.29297, 0.17091, 4.44350, 0.33868, 0.13822,
698 + 0.06736, 0.24523, 0.36566,
699 + 0.29689, 0.17269, 4.49922, 0.34430, 0.14673,
700 + 0.07738, 0.25229, 0.37122,
701 + 0.30052, 0.17428, 4.54317, 0.34938, 0.15454,
702 + 0.08657, 0.25871, 0.37624,
703 + 0.30386, 0.17575, 4.57534, 0.35394, 0.16165,
704 + 0.09499, 0.26454, 0.38071,
705 + 0.30697, 0.17710, 4.60048, 0.35813, 0.16826,
706 + 0.10282, 0.26992, 0.38482 /
707 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=15,19)/
708 + 0.30988, 0.17834, 4.61870, 0.36194, 0.17438,
709 + 0.11009, 0.27486, 0.38856,
710 + 0.31257, 0.17946, 4.62927, 0.36531, 0.17994,
711 + 0.11673, 0.27930, 0.39186,
712 + 0.31513, 0.18052, 4.63718, 0.36847, 0.18519,
713 + 0.12300, 0.28349, 0.39495,
714 + 0.31748, 0.18146, 4.63799, 0.37124, 0.18996,
715 + 0.12873, 0.28722, 0.39765,
716 + 0.31973, 0.18235, 4.63702, 0.37385, 0.19447,
717 + 0.13417, 0.29076, 0.40018 /
718 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/
719 + 0.33122, 0.20310, 2.02602, 0.19318, 0.00489,
720 + -0.00013, 0.10663, 0.22373,
721 + 0.34217, 0.20732, 2.21553, 0.20019, 0.01867,
722 + -0.00010, 0.11693, 0.23034,
723 + 0.35118, 0.21056, 2.34974, 0.20595, 0.03026,
724 + -0.00010, 0.12552, 0.23573,
725 + 0.35864, 0.21308, 2.44077, 0.21061, 0.04006,
726 + -0.00009, 0.13263, 0.23999,
727 + 0.36495, 0.21507, 2.50405, 0.21441, 0.04846,
728 + 0.00174, 0.13866, 0.24348,
729 + 0.37041, 0.21664, 2.54612, 0.21756, 0.05574,
730 + 0.00923, 0.14380, 0.24626,
731 + 0.37510, 0.21789, 2.57231, 0.22015, 0.06213,
732 + 0.01724, 0.14821, 0.24854 /
733 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=8,14)/
734 + 0.37923, 0.21888, 2.58620, 0.22224, 0.06771,
735 + 0.02415, 0.15196, 0.25036,
736 + 0.38278, 0.21969, 2.59060, 0.22398, 0.07265,
737 + 0.03029, 0.15522, 0.25173,
738 + 0.38591, 0.22032, 2.58795, 0.22538, 0.07703,
739 + 0.03579, 0.15803, 0.25281,
740 + 0.38873, 0.22079, 2.58009, 0.22650, 0.08094,
741 + 0.04073, 0.16046, 0.25365,
742 + 0.39125, 0.22114, 2.56781, 0.22734, 0.08441,
743 + 0.04515, 0.16256, 0.25420,
744 + 0.39341, 0.22138, 2.55110, 0.22793, 0.08749,
745 + 0.04907, 0.16433, 0.25455,
746 + 0.39537, 0.22152, 2.53267, 0.22837, 0.09029,
747 + 0.05268, 0.16589, 0.25477 /
748 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=15,19)/
749 + 0.39717, 0.22157, 2.51257, 0.22869, 0.09282,
750 + 0.05603, 0.16725, 0.25485,
751 + 0.39868, 0.22155, 2.49006, 0.22882, 0.09504,
752 + 0.05899, 0.16837, 0.25473,
753 + 0.40008, 0.22151, 2.46764, 0.22889, 0.09709,
754 + 0.06173, 0.16939, 0.25456,
755 + 0.40127, 0.22138, 2.44285, 0.22879, 0.09886,
756 + 0.06415, 0.17016, 0.25420,
757 + 0.40238, 0.22123, 2.41859, 0.22865, 0.10052,
758 + 0.06642, 0.17085, 0.25383 /
759 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/
760 + 0.40727, 0.24374, 1.67848, 0.15957, 0.00365,
761 + 0.00002, 0.08936, 0.19050,
762 + 0.41626, 0.24529, 1.77422, 0.16268, 0.01357,
763 + 0.00000, 0.09563, 0.19279,
764 + 0.42335, 0.24608, 1.83018, 0.16482, 0.02166,
765 + -0.00001, 0.10063, 0.19432,
766 + 0.42876, 0.24633, 1.85716, 0.16633, 0.02821,
767 + -0.00002, 0.10451, 0.19516,
768 + 0.43302, 0.24631, 1.86716, 0.16731, 0.03375,
769 + 0.00123, 0.10759, 0.19551,
770 + 0.43646, 0.24598, 1.86508, 0.16789, 0.03840,
771 + 0.00619, 0.11006, 0.19553,
772 + 0.43920, 0.24547, 1.85443, 0.16817, 0.04234,
773 + 0.01140, 0.11204, 0.19526 /
774 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=8,14)/
775 + 0.44145, 0.24474, 1.83759, 0.16816, 0.04571,
776 + 0.01584, 0.11363, 0.19479,
777 + 0.44315, 0.24395, 1.81657, 0.16800, 0.04860,
778 + 0.01967, 0.11487, 0.19410,
779 + 0.44446, 0.24310, 1.79276, 0.16764, 0.05113,
780 + 0.02302, 0.11583, 0.19330,
781 + 0.44551, 0.24217, 1.76724, 0.16712, 0.05335,
782 + 0.02601, 0.11658, 0.19242,
783 + 0.44626, 0.24119, 1.74053, 0.16655, 0.05525,
784 + 0.02866, 0.11716, 0.19143,
785 + 0.44673, 0.24014, 1.71261, 0.16587, 0.05688,
786 + 0.03102, 0.11751, 0.19035,
787 + 0.44708, 0.23907, 1.68484, 0.16513, 0.05833,
788 + 0.03311, 0.11776, 0.18925 /
789 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=15,19)/
790 + 0.44731, 0.23798, 1.65711, 0.16431, 0.05961,
791 + 0.03494, 0.11794, 0.18810,
792 + 0.44728, 0.23686, 1.62902, 0.16342, 0.06068,
793 + 0.03656, 0.11796, 0.18690,
794 + 0.44719, 0.23577, 1.60202, 0.16254, 0.06164,
795 + 0.03806, 0.11793, 0.18572,
796 + 0.44693, 0.23464, 1.57470, 0.16162, 0.06245,
797 + 0.03941, 0.11778, 0.18448,
798 + 0.44663, 0.23355, 1.54849, 0.16070, 0.06319,
799 + 0.04063, 0.11761, 0.18327 /
800 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/
801 + 0.46855, 0.27008, 1.44890, 0.13408, 0.00293,
802 + 0.00006, 0.07593, 0.16380,
803 + 0.47443, 0.26863, 1.48757, 0.13487, 0.01042,
804 + 0.00007, 0.07986, 0.16363,
805 + 0.47842, 0.26686, 1.49868, 0.13513, 0.01638,
806 + 0.00005, 0.08277, 0.16292,
807 + 0.48086, 0.26495, 1.49133, 0.13501, 0.02112,
808 + 0.00005, 0.08482, 0.16181,
809 + 0.48248, 0.26279, 1.47410, 0.13452, 0.02499,
810 + 0.00094, 0.08631, 0.16056,
811 + 0.48341, 0.26053, 1.45070, 0.13376, 0.02817,
812 + 0.00452, 0.08737, 0.15927,
813 + 0.48367, 0.25835, 1.42331, 0.13293, 0.03079,
814 + 0.00814, 0.08809, 0.15775 /
815 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=8,14)/
816 + 0.48357, 0.25607, 1.39353, 0.13195, 0.03303,
817 + 0.01115, 0.08857, 0.15613,
818 + 0.48306, 0.25385, 1.36263, 0.13090, 0.03488,
819 + 0.01379, 0.08883, 0.15446,
820 + 0.48232, 0.25162, 1.33144, 0.12977, 0.03644,
821 + 0.01606, 0.08893, 0.15282,
822 + 0.48141, 0.24938, 1.30051, 0.12861, 0.03778,
823 + 0.01802, 0.08889, 0.15122,
824 + 0.48023, 0.24724, 1.26997, 0.12751, 0.03888,
825 + 0.01976, 0.08875, 0.14957,
826 + 0.47894, 0.24506, 1.23963, 0.12620, 0.03980,
827 + 0.02121, 0.08850, 0.14799,
828 + 0.47754, 0.24298, 1.21047, 0.12496, 0.04061,
829 + 0.02250, 0.08820, 0.14636 /
830 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=15,19)/
831 + 0.47599, 0.24101, 1.18233, 0.12381, 0.04132,
832 + 0.02364, 0.08785, 0.14465,
833 + 0.47437, 0.23898, 1.15475, 0.12258, 0.04186,
834 + 0.02464, 0.08740, 0.14308,
835 + 0.47278, 0.23702, 1.12862, 0.12138, 0.04233,
836 + 0.02556, 0.08694, 0.14158,
837 + 0.47108, 0.23504, 1.10297, 0.12014, 0.04272,
838 + 0.02632, 0.08645, 0.14004,
839 + 0.46939, 0.23314, 1.07864, 0.11894, 0.04306,
840 + 0.02702, 0.08597, 0.13856 /
841 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/
842 + 0.51782, 0.28603, 1.27311, 0.11335, 0.00229,
843 + 0.00008, 0.06475, 0.14101,
844 + 0.51973, 0.28171, 1.27403, 0.11278, 0.00821,
845 + 0.00009, 0.06714, 0.13919,
846 + 0.52014, 0.27748, 1.25719, 0.11192, 0.01270,
847 + 0.00007, 0.06867, 0.13730,
848 + 0.51924, 0.27341, 1.22963, 0.11081, 0.01623,
849 + 0.00008, 0.06961, 0.13513,
850 + 0.51780, 0.26939, 1.19756, 0.10954, 0.01901,
851 + 0.00068, 0.07017, 0.13301,
852 + 0.51585, 0.26555, 1.16335, 0.10821, 0.02126,
853 + 0.00333, 0.07043, 0.13086,
854 + 0.51360, 0.26177, 1.12824, 0.10675, 0.02310,
855 + 0.00596, 0.07046, 0.12878 /
856 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=8,14)/
857 + 0.51107, 0.25809, 1.09321, 0.10533, 0.02460,
858 + 0.00814, 0.07033, 0.12670,
859 + 0.50836, 0.25458, 1.05890, 0.10383, 0.02584,
860 + 0.01001, 0.07008, 0.12463,
861 + 0.50545, 0.25123, 1.02570, 0.10236, 0.02684,
862 + 0.01159, 0.06973, 0.12264,
863 + 0.50244, 0.24800, 0.99387, 0.10097, 0.02764,
864 + 0.01294, 0.06930, 0.12074,
865 + 0.49945, 0.24483, 0.96340, 0.09955, 0.02832,
866 + 0.01414, 0.06879, 0.11891,
867 + 0.49631, 0.24181, 0.93397, 0.09815, 0.02891,
868 + 0.01512, 0.06826, 0.11698,
869 + 0.49321, 0.23890, 0.90616, 0.09680, 0.02938,
870 + 0.01598, 0.06771, 0.11516 /
871 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=15,19)/
872 + 0.49013, 0.23605, 0.87977, 0.09550, 0.02972,
873 + 0.01672, 0.06712, 0.11346,
874 + 0.48699, 0.23331, 0.85445, 0.09419, 0.02999,
875 + 0.01734, 0.06651, 0.11175,
876 + 0.48394, 0.23070, 0.83069, 0.09292, 0.03021,
877 + 0.01791, 0.06592, 0.11011,
878 + 0.48085, 0.22812, 0.80782, 0.09164, 0.03040,
879 + 0.01836, 0.06529, 0.10857,
880 + 0.47785, 0.22566, 0.78629, 0.09042, 0.03056,
881 + 0.01878, 0.06468, 0.10706 /
882 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/
883 + 0.56490, 0.29470, 1.09500, 0.09193, 0.00179,
884 + 0.00011, 0.05307, 0.11654,
885 + 0.56112, 0.28724, 1.06534, 0.09045, 0.00622,
886 + 0.00007, 0.05418, 0.11366,
887 + 0.55647, 0.28034, 1.02751, 0.08885, 0.00957,
888 + 0.00010, 0.05475, 0.11078,
889 + 0.55144, 0.27375, 0.98597, 0.08702, 0.01204,
890 + 0.00007, 0.05484, 0.10816,
891 + 0.54606, 0.26776, 0.94460, 0.08532, 0.01392,
892 + 0.00055, 0.05473, 0.10556,
893 + 0.54065, 0.26208, 0.90446, 0.08356, 0.01546,
894 + 0.00240, 0.05444, 0.10307,
895 + 0.53504, 0.25682, 0.86598, 0.08189, 0.01666,
896 + 0.00428, 0.05400, 0.10069 /
897 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=8,14)/
898 + 0.52949, 0.25185, 0.82946, 0.08024, 0.01761,
899 + 0.00575, 0.05351, 0.09832,
900 + 0.52399, 0.24709, 0.79505, 0.07868, 0.01837,
901 + 0.00695, 0.05293, 0.09606,
902 + 0.51857, 0.24257, 0.76276, 0.07712, 0.01895,
903 + 0.00800, 0.05229, 0.09400,
904 + 0.51325, 0.23831, 0.73257, 0.07559, 0.01939,
905 + 0.00890, 0.05164, 0.09205,
906 + 0.50796, 0.23431, 0.70432, 0.07421, 0.01974,
907 + 0.00962, 0.05099, 0.09010,
908 + 0.50279, 0.23042, 0.67772, 0.07280, 0.02004,
909 + 0.01026, 0.05033, 0.08820,
910 + 0.49779, 0.22671, 0.65298, 0.07142, 0.02028,
911 + 0.01080, 0.04967, 0.08645 /
912 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=15,19)/
913 + 0.49295, 0.22315, 0.62985, 0.07006, 0.02046,
914 + 0.01125, 0.04901, 0.08484,
915 + 0.48805, 0.21978, 0.60792, 0.06885, 0.02056,
916 + 0.01164, 0.04835, 0.08319,
917 + 0.48334, 0.21658, 0.58752, 0.06770, 0.02063,
918 + 0.01199, 0.04772, 0.08161,
919 + 0.47876, 0.21346, 0.56824, 0.06648, 0.02064,
920 + 0.01224, 0.04708, 0.08018,
921 + 0.47433, 0.21049, 0.55024, 0.06534, 0.02064,
922 + 0.01247, 0.04646, 0.07879 /
923 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/
924 + 0.59747, 0.29399, 0.94589, 0.07433, 0.00146,
925 + 0.00016, 0.04332, 0.09587,
926 + 0.58780, 0.28389, 0.89751, 0.07248, 0.00480,
927 + 0.00017, 0.04370, 0.09238,
928 + 0.57829, 0.27467, 0.84810, 0.07043, 0.00725,
929 + 0.00018, 0.04363, 0.08934,
930 + 0.56881, 0.26635, 0.80009, 0.06856, 0.00901,
931 + 0.00012, 0.04332, 0.08634,
932 + 0.55959, 0.25886, 0.75528, 0.06672, 0.01039,
933 + 0.00045, 0.04284, 0.08354,
934 + 0.55072, 0.25188, 0.71393, 0.06493, 0.01140,
935 + 0.00180, 0.04224, 0.08105,
936 + 0.54218, 0.24539, 0.67574, 0.06321, 0.01221,
937 + 0.00312, 0.04159, 0.07866 /
938 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=8,14)/
939 + 0.53392, 0.23934, 0.64056, 0.06150, 0.01282,
940 + 0.00411, 0.04095, 0.07642,
941 + 0.52589, 0.23374, 0.60823, 0.05993, 0.01326,
942 + 0.00497, 0.04025, 0.07428,
943 + 0.51815, 0.22847, 0.57857, 0.05847, 0.01359,
944 + 0.00568, 0.03958, 0.07225,
945 + 0.51073, 0.22351, 0.55131, 0.05706, 0.01384,
946 + 0.00626, 0.03893, 0.07033,
947 + 0.50357, 0.21886, 0.52613, 0.05569, 0.01408,
948 + 0.00680, 0.03823, 0.06853,
949 + 0.49661, 0.21441, 0.50286, 0.05442, 0.01418,
950 + 0.00719, 0.03755, 0.06685,
951 + 0.48991, 0.21021, 0.48150, 0.05321, 0.01425,
952 + 0.00755, 0.03688, 0.06528 /
953 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=15,19)/
954 + 0.48343, 0.20624, 0.46179, 0.05203, 0.01430,
955 + 0.00789, 0.03621, 0.06382,
956 + 0.47717, 0.20242, 0.44326, 0.05092, 0.01435,
957 + 0.00808, 0.03557, 0.06235,
958 + 0.47121, 0.19881, 0.42615, 0.04986, 0.01437,
959 + 0.00824, 0.03497, 0.06096,
960 + 0.46537, 0.19535, 0.41013, 0.04877, 0.01435,
961 + 0.00841, 0.03435, 0.05972,
962 + 0.45979, 0.19206, 0.39528, 0.04776, 0.01431,
963 + 0.00855, 0.03377, 0.05852 /
964 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/
965 + 0.61684, 0.28669, 0.81692, 0.06006, 0.00106,
966 + 0.00003, 0.03516, 0.07820,
967 + 0.60177, 0.27418, 0.75773, 0.05788, 0.00362,
968 + 0.00004, 0.03503, 0.07479,
969 + 0.58746, 0.26333, 0.70292, 0.05585, 0.00547,
970 + 0.00001, 0.03464, 0.07162,
971 + 0.57397, 0.25358, 0.65280, 0.05377, 0.00679,
972 + 0.00000, 0.03411, 0.06877,
973 + 0.56124, 0.24488, 0.60795, 0.05201, 0.00779,
974 + 0.00028, 0.03346, 0.06608,
975 + 0.54939, 0.23695, 0.56790, 0.05025, 0.00852,
976 + 0.00125, 0.03284, 0.06361,
977 + 0.53823, 0.22958, 0.53185, 0.04861, 0.00902,
978 + 0.00220, 0.03215, 0.06139 /
979 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=8,14)/
980 + 0.52747, 0.22291, 0.49937, 0.04709, 0.00940,
981 + 0.00306, 0.03152, 0.05925,
982 + 0.51727, 0.21670, 0.47006, 0.04563, 0.00972,
983 + 0.00366, 0.03080, 0.05734,
984 + 0.50754, 0.21095, 0.44355, 0.04430, 0.00993,
985 + 0.00413, 0.03007, 0.05557,
986 + 0.49831, 0.20559, 0.41957, 0.04306, 0.01006,
987 + 0.00455, 0.02938, 0.05388,
988 + 0.48967, 0.20039, 0.39788, 0.04180, 0.01018,
989 + 0.00489, 0.02873, 0.05236,
990 + 0.48125, 0.19561, 0.37794, 0.04062, 0.01027,
991 + 0.00517, 0.02812, 0.05085,
992 + 0.47323, 0.19113, 0.35974, 0.03953, 0.01030,
993 + 0.00539, 0.02754, 0.04945 /
994 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=15,19)/
995 + 0.46557, 0.18690, 0.34305, 0.03853, 0.01028,
996 + 0.00556, 0.02699, 0.04814,
997 + 0.45807, 0.18299, 0.32767, 0.03761, 0.01030,
998 + 0.00568, 0.02640, 0.04681,
999 + 0.45095, 0.17932, 0.31357, 0.03675, 0.01030,
1000 + 0.00578, 0.02584, 0.04555,
1001 + 0.44412, 0.17570, 0.30049, 0.03588, 0.01022,
1002 + 0.00589, 0.02531, 0.04449,
1003 + 0.43762, 0.17228, 0.28842, 0.03506, 0.01015,
1004 + 0.00598, 0.02481, 0.04346 /
1005 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/
1006 + 0.62493, 0.27424, 0.70391, 0.04815, 0.00086,
1007 + 0.00007, 0.02831, 0.06336,
1008 + 0.60442, 0.26023, 0.63960, 0.04609, 0.00276,
1009 + 0.00001, 0.02792, 0.06000,
1010 + 0.58584, 0.24813, 0.58320, 0.04416, 0.00418,
1011 + 0.00005, 0.02740, 0.05686,
1012 + 0.56881, 0.23734, 0.53394, 0.04218, 0.00514,
1013 + 0.00006, 0.02673, 0.05435,
1014 + 0.55311, 0.22790, 0.49127, 0.04052, 0.00580,
1015 + 0.00033, 0.02607, 0.05187,
1016 + 0.53859, 0.21934, 0.45407, 0.03898, 0.00630,
1017 + 0.00095, 0.02541, 0.04963,
1018 + 0.52511, 0.21153, 0.42092, 0.03748, 0.00669,
1019 + 0.00165, 0.02467, 0.04767 /
1020 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=8,14)/
1021 + 0.51241, 0.20439, 0.39167, 0.03610, 0.00689,
1022 + 0.00218, 0.02400, 0.04590,
1023 + 0.50034, 0.19793, 0.36585, 0.03485, 0.00708,
1024 + 0.00261, 0.02333, 0.04420,
1025 + 0.48901, 0.19196, 0.34281, 0.03370, 0.00725,
1026 + 0.00296, 0.02272, 0.04254,
1027 + 0.47838, 0.18640, 0.32214, 0.03262, 0.00734,
1028 + 0.00324, 0.02216, 0.04100,
1029 + 0.46828, 0.18124, 0.30354, 0.03156, 0.00735,
1030 + 0.00344, 0.02156, 0.03975,
1031 + 0.45868, 0.17641, 0.28666, 0.03059, 0.00736,
1032 + 0.00362, 0.02101, 0.03843,
1033 + 0.44965, 0.17184, 0.27142, 0.02968, 0.00736,
1034 + 0.00376, 0.02049, 0.03724 /
1035 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=15,19)/
1036 + 0.44110, 0.16748, 0.25758, 0.02882, 0.00733,
1037 + 0.00387, 0.01999, 0.03619,
1038 + 0.43284, 0.16344, 0.24484, 0.02805, 0.00729,
1039 + 0.00395, 0.01948, 0.03513,
1040 + 0.42502, 0.15967, 0.23322, 0.02734, 0.00726,
1041 + 0.00401, 0.01900, 0.03412,
1042 + 0.41748, 0.15610, 0.22260, 0.02662, 0.00719,
1043 + 0.00402, 0.01857, 0.03318,
1044 + 0.41034, 0.15273, 0.21285, 0.02594, 0.00713,
1045 + 0.00405, 0.01815, 0.03230 /
1046 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/
1047 + 0.62282, 0.25822, 0.60417, 0.03842, 0.00065,
1048 + 0.00010, 0.02265, 0.05087,
1049 + 0.59772, 0.24309, 0.53850, 0.03643, 0.00208,
1050 + 0.00004, 0.02216, 0.04781,
1051 + 0.57554, 0.23003, 0.48351, 0.03453, 0.00312,
1052 + 0.00002, 0.02153, 0.04517,
1053 + 0.55511, 0.21906, 0.43649, 0.03291, 0.00381,
1054 + 0.00009, 0.02082, 0.04276,
1055 + 0.53694, 0.20907, 0.39690, 0.03138, 0.00432,
1056 + 0.00023, 0.02017, 0.04063,
1057 + 0.52028, 0.20022, 0.36291, 0.02997, 0.00471,
1058 + 0.00071, 0.01950, 0.03866,
1059 + 0.50482, 0.19230, 0.33354, 0.02867, 0.00495,
1060 + 0.00125, 0.01890, 0.03694 /
1061 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=8,14)/
1062 + 0.49040, 0.18515, 0.30784, 0.02758, 0.00508,
1063 + 0.00162, 0.01830, 0.03529,
1064 + 0.47704, 0.17853, 0.28540, 0.02653, 0.00519,
1065 + 0.00183, 0.01776, 0.03377,
1066 + 0.46461, 0.17241, 0.26566, 0.02552, 0.00526,
1067 + 0.00208, 0.01721, 0.03245,
1068 + 0.45293, 0.16683, 0.24811, 0.02460, 0.00529,
1069 + 0.00237, 0.01665, 0.03125,
1070 + 0.44180, 0.16179, 0.23236, 0.02385, 0.00534,
1071 + 0.00256, 0.01616, 0.02996,
1072 + 0.43150, 0.15688, 0.21825, 0.02294, 0.00533,
1073 + 0.00263, 0.01563, 0.02903,
1074 + 0.42178, 0.15235, 0.20559, 0.02214, 0.00530,
1075 + 0.00265, 0.01515, 0.02812 /
1076 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=15,19)/
1077 + 0.41254, 0.14818, 0.19418, 0.02148, 0.00527,
1078 + 0.00264, 0.01472, 0.02717,
1079 + 0.40374, 0.14422, 0.18386, 0.02083, 0.00518,
1080 + 0.00277, 0.01432, 0.02635,
1081 + 0.39543, 0.14052, 0.17451, 0.02022, 0.00509,
1082 + 0.00289, 0.01395, 0.02558,
1083 + 0.38737, 0.13710, 0.16599, 0.01970, 0.00506,
1084 + 0.00287, 0.01359, 0.02475,
1085 + 0.37979, 0.13387, 0.15816, 0.01919, 0.00502,
1086 + 0.00285, 0.01326, 0.02398 /
1087 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/
1088 + 0.61202, 0.23977, 0.51600, 0.03039, 0.00047,
1089 + 0.00012, 0.01805, 0.04048,
1090 + 0.58296, 0.22404, 0.45166, 0.02857, 0.00161,
1091 + 0.00001, 0.01743, 0.03778,
1092 + 0.55760, 0.21064, 0.39929, 0.02685, 0.00234,
1093 + 0.00010, 0.01688, 0.03543,
1094 + 0.53501, 0.19902, 0.35603, 0.02538, 0.00300,
1095 + 0.00013, 0.01623, 0.03325,
1096 + 0.51462, 0.18910, 0.32010, 0.02403, 0.00336,
1097 + 0.00011, 0.01558, 0.03144,
1098 + 0.49600, 0.18049, 0.28972, 0.02299, 0.00359,
1099 + 0.00056, 0.01493, 0.02972,
1100 + 0.47914, 0.17257, 0.26391, 0.02187, 0.00375,
1101 + 0.00095, 0.01437, 0.02833 /
1102 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=8,14)/
1103 + 0.46353, 0.16552, 0.24174, 0.02087, 0.00378,
1104 + 0.00115, 0.01389, 0.02703,
1105 + 0.44924, 0.15894, 0.22254, 0.02000, 0.00383,
1106 + 0.00140, 0.01340, 0.02578,
1107 + 0.43594, 0.15295, 0.20564, 0.01916, 0.00386,
1108 + 0.00158, 0.01293, 0.02468,
1109 + 0.42346, 0.14757, 0.19076, 0.01839, 0.00385,
1110 + 0.00168, 0.01250, 0.02369,
1111 + 0.41183, 0.14255, 0.17781, 0.01777, 0.00386,
1112 + 0.00175, 0.01207, 0.02270,
1113 + 0.40088, 0.13795, 0.16626, 0.01715, 0.00386,
1114 + 0.00184, 0.01170, 0.02171,
1115 + 0.39070, 0.13364, 0.15594, 0.01653, 0.00381,
1116 + 0.00190, 0.01132, 0.02092 /
1117 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=15,19)/
1118 + 0.38118, 0.12955, 0.14666, 0.01588, 0.00371,
1119 + 0.00192, 0.01093, 0.02036,
1120 + 0.37222, 0.12575, 0.13833, 0.01529, 0.00370,
1121 + 0.00197, 0.01060, 0.01961,
1122 + 0.36378, 0.12222, 0.13080, 0.01475, 0.00370,
1123 + 0.00201, 0.01031, 0.01889,
1124 + 0.35546, 0.11895, 0.12395, 0.01435, 0.00366,
1125 + 0.00199, 0.00999, 0.01831,
1126 + 0.34767, 0.11586, 0.11770, 0.01395, 0.00360,
1127 + 0.00197, 0.00970, 0.01776 /
1128 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/
1129 + 0.59403, 0.21962, 0.43807, 0.02368, 0.00033,
1130 + 0.00005, 0.01427, 0.03207,
1131 + 0.56162, 0.20377, 0.37693, 0.02216, 0.00137,
1132 + 0.00001, 0.01369, 0.02943,
1133 + 0.53335, 0.19069, 0.32854, 0.02082, 0.00185,
1134 + 0.00014, 0.01313, 0.02740,
1135 + 0.50883, 0.17922, 0.28928, 0.01950, 0.00222,
1136 + 0.00019, 0.01246, 0.02579,
1137 + 0.48682, 0.16954, 0.25737, 0.01849, 0.00247,
1138 + 0.00016, 0.01189, 0.02416,
1139 + 0.46723, 0.16089, 0.23068, 0.01747, 0.00264,
1140 + 0.00044, 0.01138, 0.02281,
1141 + 0.44929, 0.15329, 0.20830, 0.01661, 0.00275,
1142 + 0.00078, 0.01093, 0.02154 /
1143 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=8,14)/
1144 + 0.43307, 0.14632, 0.18953, 0.01579, 0.00283,
1145 + 0.00095, 0.01048, 0.02044,
1146 + 0.41814, 0.14002, 0.17326, 0.01505, 0.00283,
1147 + 0.00105, 0.01001, 0.01950,
1148 + 0.40435, 0.13429, 0.15918, 0.01437, 0.00285,
1149 + 0.00114, 0.00965, 0.01853,
1150 + 0.39157, 0.12907, 0.14698, 0.01374, 0.00288,
1151 + 0.00123, 0.00936, 0.01761,
1152 + 0.37961, 0.12442, 0.13626, 0.01315, 0.00284,
1153 + 0.00128, 0.00898, 0.01691,
1154 + 0.36847, 0.12003, 0.12671, 0.01262, 0.00284,
1155 + 0.00129, 0.00867, 0.01618,
1156 + 0.35810, 0.11594, 0.11830, 0.01219, 0.00280,
1157 + 0.00132, 0.00835, 0.01551 /
1158 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=15,19)/
1159 + 0.34840, 0.11211, 0.11086, 0.01185, 0.00274,
1160 + 0.00137, 0.00802, 0.01490,
1161 + 0.33920, 0.10862, 0.10413, 0.01135, 0.00268,
1162 + 0.00141, 0.00775, 0.01444,
1163 + 0.33061, 0.10537, 0.09807, 0.01086, 0.00262,
1164 + 0.00144, 0.00750, 0.01402,
1165 + 0.32257, 0.10224, 0.09259, 0.01040, 0.00258,
1166 + 0.00143, 0.00729, 0.01355,
1167 + 0.31495, 0.09932, 0.08763, 0.01001, 0.00254,
1168 + 0.00143, 0.00709, 0.01311 /
1169 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/
1170 + 0.56961, 0.19894, 0.36960, 0.01832, 0.00034,
1171 + 0.00010, 0.01105, 0.02513,
1172 + 0.53457, 0.18336, 0.31264, 0.01703, 0.00099,
1173 + 0.00010, 0.01058, 0.02295,
1174 + 0.50460, 0.17043, 0.26862, 0.01584, 0.00140,
1175 + 0.00006, 0.01007, 0.02130,
1176 + 0.47846, 0.15956, 0.23397, 0.01492, 0.00170,
1177 + 0.00007, 0.00952, 0.01970,
1178 + 0.45566, 0.15004, 0.20585, 0.01388, 0.00187,
1179 + 0.00003, 0.00906, 0.01851,
1180 + 0.43533, 0.14173, 0.18290, 0.01305, 0.00197,
1181 + 0.00034, 0.00861, 0.01744,
1182 + 0.41698, 0.13437, 0.16403, 0.01234, 0.00203,
1183 + 0.00056, 0.00827, 0.01638 /
1184 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=8,14)/
1185 + 0.40023, 0.12788, 0.14795, 0.01168, 0.00209,
1186 + 0.00071, 0.00787, 0.01547,
1187 + 0.38493, 0.12200, 0.13442, 0.01111, 0.00210,
1188 + 0.00076, 0.00755, 0.01465,
1189 + 0.37089, 0.11666, 0.12279, 0.01062, 0.00209,
1190 + 0.00081, 0.00723, 0.01388,
1191 + 0.35799, 0.11180, 0.11264, 0.01017, 0.00208,
1192 + 0.00088, 0.00692, 0.01317,
1193 + 0.34616, 0.10730, 0.10386, 0.00965, 0.00208,
1194 + 0.00088, 0.00666, 0.01255,
1195 + 0.33501, 0.10319, 0.09622, 0.00912, 0.00202,
1196 + 0.00095, 0.00637, 0.01218,
1197 + 0.32466, 0.09942, 0.08949, 0.00873, 0.00197,
1198 + 0.00099, 0.00612, 0.01175 /
1199 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=15,19)/
1200 + 0.31502, 0.09594, 0.08351, 0.00848, 0.00195,
1201 + 0.00099, 0.00591, 0.01122,
1202 + 0.30608, 0.09268, 0.07817, 0.00806, 0.00193,
1203 + 0.00102, 0.00569, 0.01079,
1204 + 0.29773, 0.08966, 0.07339, 0.00767, 0.00192,
1205 + 0.00104, 0.00549, 0.01039,
1206 + 0.28963, 0.08683, 0.06908, 0.00750, 0.00188,
1207 + 0.00102, 0.00533, 0.00996,
1208 + 0.28205, 0.08418, 0.06517, 0.00730, 0.00184,
1209 + 0.00100, 0.00516, 0.00958 /
1210 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/
1211 + 0.53978, 0.17880, 0.30992, 0.01437, 0.00017,
1212 + -0.00010, 0.00845, 0.01935,
1213 + 0.50316, 0.16353, 0.25795, 0.01317, 0.00065,
1214 + -0.00015, 0.00798, 0.01774,
1215 + 0.47192, 0.15125, 0.21878, 0.01232, 0.00102,
1216 + -0.00009, 0.00759, 0.01608,
1217 + 0.44536, 0.14057, 0.18824, 0.01131, 0.00119,
1218 + -0.00005, 0.00717, 0.01500,
1219 + 0.42202, 0.13161, 0.16411, 0.01052, 0.00128,
1220 + -0.00007, 0.00676, 0.01404,
1221 + 0.40125, 0.12388, 0.14463, 0.00995, 0.00143,
1222 + 0.00009, 0.00638, 0.01303,
1223 + 0.38284, 0.11695, 0.12866, 0.00923, 0.00144,
1224 + 0.00030, 0.00609, 0.01233 /
1225 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=8,14)/
1226 + 0.36623, 0.11087, 0.11540, 0.00861, 0.00143,
1227 + 0.00040, 0.00580, 0.01161,
1228 + 0.35103, 0.10542, 0.10413, 0.00820, 0.00144,
1229 + 0.00047, 0.00550, 0.01091,
1230 + 0.33702, 0.10051, 0.09454, 0.00780, 0.00146,
1231 + 0.00052, 0.00524, 0.01037,
1232 + 0.32418, 0.09604, 0.08634, 0.00738, 0.00145,
1233 + 0.00057, 0.00501, 0.00991,
1234 + 0.31257, 0.09188, 0.07921, 0.00698, 0.00143,
1235 + 0.00062, 0.00484, 0.00941,
1236 + 0.30175, 0.08813, 0.07308, 0.00672, 0.00145,
1237 + 0.00064, 0.00464, 0.00888,
1238 + 0.29173, 0.08468, 0.06770, 0.00645, 0.00144,
1239 + 0.00067, 0.00446, 0.00844 /
1240 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=15,19)/
1241 + 0.28242, 0.08147, 0.06294, 0.00617, 0.00139,
1242 + 0.00070, 0.00428, 0.00811,
1243 + 0.27364, 0.07851, 0.05868, 0.00595, 0.00135,
1244 + 0.00072, 0.00412, 0.00779,
1245 + 0.26545, 0.07578, 0.05488, 0.00574, 0.00132,
1246 + 0.00072, 0.00396, 0.00749,
1247 + 0.25769, 0.07322, 0.05148, 0.00551, 0.00126,
1248 + 0.00069, 0.00380, 0.00719,
1249 + 0.25043, 0.07085, 0.04844, 0.00531, 0.00123,
1250 + 0.00067, 0.00365, 0.00692 /
1251 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/
1252 + 0.50633, 0.15814, 0.25712, 0.01068, 0.00027,
1253 + 0.00016, 0.00663, 0.01481,
1254 + 0.46856, 0.14380, 0.21080, 0.00977, 0.00061,
1255 + 0.00012, 0.00618, 0.01345,
1256 + 0.43679, 0.13228, 0.17632, 0.00909, 0.00079,
1257 + 0.00010, 0.00581, 0.01221,
1258 + 0.40990, 0.12231, 0.15023, 0.00827, 0.00097,
1259 + 0.00011, 0.00540, 0.01136,
1260 + 0.38641, 0.11407, 0.12987, 0.00774, 0.00109,
1261 + 0.00013, 0.00512, 0.01040,
1262 + 0.36609, 0.10686, 0.11352, 0.00714, 0.00110,
1263 + 0.00019, 0.00484, 0.00967,
1264 + 0.34786, 0.10050, 0.10022, 0.00654, 0.00113,
1265 + 0.00028, 0.00459, 0.00923 /
1266 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=8,14)/
1267 + 0.33134, 0.09485, 0.08923, 0.00621, 0.00108,
1268 + 0.00037, 0.00434, 0.00873,
1269 + 0.31632, 0.08987, 0.07999, 0.00589, 0.00107,
1270 + 0.00044, 0.00410, 0.00821,
1271 + 0.30284, 0.08541, 0.07224, 0.00556, 0.00106,
1272 + 0.00048, 0.00389, 0.00768,
1273 + 0.29059, 0.08137, 0.06567, 0.00531, 0.00104,
1274 + 0.00046, 0.00371, 0.00716,
1275 + 0.27903, 0.07776, 0.05998, 0.00517, 0.00104,
1276 + 0.00041, 0.00348, 0.00677,
1277 + 0.26866, 0.07441, 0.05506, 0.00490, 0.00103,
1278 + 0.00045, 0.00334, 0.00637,
1279 + 0.25904, 0.07132, 0.05080, 0.00466, 0.00102,
1280 + 0.00049, 0.00321, 0.00606 /
1281 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=15,19)/
1282 + 0.25004, 0.06845, 0.04710, 0.00448, 0.00099,
1283 + 0.00051, 0.00309, 0.00584,
1284 + 0.24166, 0.06585, 0.04375, 0.00435, 0.00097,
1285 + 0.00051, 0.00298, 0.00552,
1286 + 0.23389, 0.06344, 0.04076, 0.00421, 0.00095,
1287 + 0.00049, 0.00286, 0.00524,
1288 + 0.22660, 0.06110, 0.03814, 0.00393, 0.00089,
1289 + 0.00048, 0.00271, 0.00514,
1290 + 0.21978, 0.05895, 0.03579, 0.00372, 0.00086,
1291 + 0.00047, 0.00258, 0.00502 /
1292 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/
1293 + 0.46977, 0.13906, 0.21210, 0.00829, 0.00014,
1294 + -0.00005, 0.00492, 0.01109,
1295 + 0.43185, 0.12555, 0.17131, 0.00744, 0.00035,
1296 + 0.00002, 0.00454, 0.01018,
1297 + 0.40040, 0.11462, 0.14174, 0.00675, 0.00054,
1298 + -0.00001, 0.00428, 0.00920,
1299 + 0.37355, 0.10566, 0.11944, 0.00623, 0.00063,
1300 + -0.00004, 0.00395, 0.00849,
1301 + 0.35048, 0.09799, 0.10216, 0.00590, 0.00073,
1302 + 0.00001, 0.00370, 0.00773,
1303 + 0.33060, 0.09144, 0.08863, 0.00532, 0.00073,
1304 + 0.00011, 0.00349, 0.00727,
1305 + 0.31298, 0.08564, 0.07769, 0.00488, 0.00074,
1306 + 0.00019, 0.00332, 0.00679 /
1307 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=8,14)/
1308 + 0.29684, 0.08058, 0.06870, 0.00470, 0.00072,
1309 + 0.00024, 0.00308, 0.00636,
1310 + 0.28240, 0.07612, 0.06124, 0.00450, 0.00071,
1311 + 0.00024, 0.00291, 0.00590,
1312 + 0.26947, 0.07210, 0.05501, 0.00424, 0.00073,
1313 + 0.00027, 0.00276, 0.00549,
1314 + 0.25780, 0.06847, 0.04974, 0.00397, 0.00074,
1315 + 0.00032, 0.00259, 0.00519,
1316 + 0.24723, 0.06518, 0.04523, 0.00369, 0.00071,
1317 + 0.00031, 0.00241, 0.00493,
1318 + 0.23707, 0.06218, 0.04137, 0.00361, 0.00068,
1319 + 0.00032, 0.00231, 0.00471,
1320 + 0.22790, 0.05945, 0.03801, 0.00346, 0.00065,
1321 + 0.00029, 0.00222, 0.00444 /
1322 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=15,19)/
1323 + 0.21965, 0.05695, 0.03508, 0.00323, 0.00063,
1324 + 0.00023, 0.00213, 0.00410,
1325 + 0.21190, 0.05463, 0.03249, 0.00304, 0.00064,
1326 + 0.00028, 0.00204, 0.00391,
1327 + 0.20468, 0.05249, 0.03021, 0.00287, 0.00064,
1328 + 0.00034, 0.00196, 0.00376,
1329 + 0.19775, 0.05048, 0.02819, 0.00280, 0.00061,
1330 + 0.00032, 0.00189, 0.00364,
1331 + 0.19131, 0.04862, 0.02639, 0.00272, 0.00058,
1332 + 0.00031, 0.00182, 0.00352 /
1333 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/
1334 + 0.43135, 0.12053, 0.17320, 0.00604, 0.00016,
1335 + 0.00007, 0.00369, 0.00836,
1336 + 0.39409, 0.10813, 0.13788, 0.00516, 0.00032,
1337 + 0.00005, 0.00340, 0.00765,
1338 + 0.36263, 0.09841, 0.11273, 0.00505, 0.00045,
1339 + 0.00005, 0.00323, 0.00675,
1340 + 0.33681, 0.09007, 0.09393, 0.00441, 0.00053,
1341 + 0.00004, 0.00300, 0.00624,
1342 + 0.31459, 0.08317, 0.07961, 0.00408, 0.00056,
1343 + 0.00004, 0.00274, 0.00571,
1344 + 0.29519, 0.07732, 0.06846, 0.00383, 0.00055,
1345 + 0.00007, 0.00250, 0.00531,
1346 + 0.27827, 0.07218, 0.05963, 0.00359, 0.00053,
1347 + 0.00014, 0.00240, 0.00486 /
1348 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=8,14)/
1349 + 0.26308, 0.06763, 0.05237, 0.00345, 0.00053,
1350 + 0.00016, 0.00228, 0.00450,
1351 + 0.24946, 0.06368, 0.04646, 0.00325, 0.00050,
1352 + 0.00018, 0.00210, 0.00421,
1353 + 0.23736, 0.06011, 0.04151, 0.00301, 0.00049,
1354 + 0.00018, 0.00196, 0.00395,
1355 + 0.22645, 0.05686, 0.03732, 0.00280, 0.00049,
1356 + 0.00019, 0.00188, 0.00371,
1357 + 0.21635, 0.05399, 0.03382, 0.00269, 0.00051,
1358 + 0.00025, 0.00183, 0.00344,
1359 + 0.20697, 0.05136, 0.03081, 0.00257, 0.00051,
1360 + 0.00026, 0.00171, 0.00331,
1361 + 0.19841, 0.04900, 0.02820, 0.00246, 0.00050,
1362 + 0.00025, 0.00161, 0.00315 /
1363 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=15,19)/
1364 + 0.19057, 0.04686, 0.02594, 0.00236, 0.00049,
1365 + 0.00022, 0.00155, 0.00296,
1366 + 0.18341, 0.04485, 0.02397, 0.00219, 0.00043,
1367 + 0.00020, 0.00143, 0.00279,
1368 + 0.17680, 0.04300, 0.02223, 0.00204, 0.00038,
1369 + 0.00018, 0.00133, 0.00264,
1370 + 0.17049, 0.04126, 0.02069, 0.00199, 0.00038,
1371 + 0.00020, 0.00130, 0.00255,
1372 + 0.16463, 0.03967, 0.01932, 0.00195, 0.00038,
1373 + 0.00022, 0.00126, 0.00245 /
1374 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/
1375 + 0.39208, 0.10357, 0.14022, 0.00431, 0.00014,
1376 + 0.00002, 0.00274, 0.00615,
1377 + 0.35560, 0.09237, 0.11010, 0.00390, 0.00022,
1378 + 0.00000, 0.00246, 0.00557,
1379 + 0.32564, 0.08340, 0.08892, 0.00363, 0.00030,
1380 + 0.00000, 0.00224, 0.00499,
1381 + 0.30068, 0.07609, 0.07332, 0.00333, 0.00031,
1382 + 0.00002, 0.00208, 0.00454,
1383 + 0.27968, 0.06999, 0.06161, 0.00296, 0.00033,
1384 + 0.00005, 0.00197, 0.00416,
1385 + 0.26140, 0.06479, 0.05263, 0.00283, 0.00033,
1386 + 0.00007, 0.00182, 0.00376,
1387 + 0.24527, 0.06029, 0.04548, 0.00267, 0.00030,
1388 + 0.00010, 0.00165, 0.00346 /
1389 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=8,14)/
1390 + 0.23103, 0.05631, 0.03971, 0.00253, 0.00032,
1391 + 0.00012, 0.00152, 0.00323,
1392 + 0.21848, 0.05278, 0.03505, 0.00231, 0.00035,
1393 + 0.00013, 0.00142, 0.00303,
1394 + 0.20717, 0.04969, 0.03115, 0.00216, 0.00034,
1395 + 0.00013, 0.00135, 0.00280,
1396 + 0.19693, 0.04694, 0.02789, 0.00205, 0.00032,
1397 + 0.00011, 0.00128, 0.00256,
1398 + 0.18779, 0.04439, 0.02518, 0.00183, 0.00028,
1399 + 0.00008, 0.00117, 0.00239,
1400 + 0.17928, 0.04210, 0.02282, 0.00179, 0.00033,
1401 + 0.00011, 0.00115, 0.00227,
1402 + 0.17145, 0.04003, 0.02081, 0.00173, 0.00033,
1403 + 0.00013, 0.00110, 0.00216 /
1404 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=15,19)/
1405 + 0.16422, 0.03817, 0.01909, 0.00163, 0.00027,
1406 + 0.00013, 0.00100, 0.00206,
1407 + 0.15752, 0.03650, 0.01758, 0.00161, 0.00026,
1408 + 0.00013, 0.00096, 0.00194,
1409 + 0.15137, 0.03495, 0.01626, 0.00159, 0.00026,
1410 + 0.00013, 0.00093, 0.00183,
1411 + 0.14576, 0.03346, 0.01510, 0.00152, 0.00024,
1412 + 0.00012, 0.00088, 0.00172,
1413 + 0.14057, 0.03210, 0.01406, 0.00144, 0.00023,
1414 + 0.00010, 0.00084, 0.00164 /
1415 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/
1416 + 0.35228, 0.08785, 0.11228, 0.00317, 0.00010,
1417 + 0.00005, 0.00198, 0.00462,
1418 + 0.31729, 0.07783, 0.08682, 0.00273, 0.00014,
1419 + 0.00003, 0.00183, 0.00410,
1420 + 0.28892, 0.06989, 0.06915, 0.00245, 0.00024,
1421 + 0.00000, 0.00162, 0.00366,
1422 + 0.26535, 0.06333, 0.05647, 0.00230, 0.00024,
1423 + 0.00001, 0.00150, 0.00326,
1424 + 0.24544, 0.05796, 0.04697, 0.00215, 0.00024,
1425 + -0.00001, 0.00142, 0.00289,
1426 + 0.22861, 0.05340, 0.03978, 0.00189, 0.00026,
1427 + 0.00005, 0.00130, 0.00261,
1428 + 0.21374, 0.04947, 0.03413, 0.00171, 0.00029,
1429 + 0.00007, 0.00119, 0.00246 /
1430 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=8,14)/
1431 + 0.20053, 0.04608, 0.02961, 0.00167, 0.00026,
1432 + 0.00008, 0.00109, 0.00222,
1433 + 0.18865, 0.04304, 0.02596, 0.00166, 0.00024,
1434 + 0.00009, 0.00101, 0.00206,
1435 + 0.17821, 0.04035, 0.02296, 0.00155, 0.00025,
1436 + 0.00008, 0.00094, 0.00192,
1437 + 0.16899, 0.03798, 0.02047, 0.00141, 0.00025,
1438 + 0.00006, 0.00087, 0.00175,
1439 + 0.16055, 0.03585, 0.01837, 0.00138, 0.00021,
1440 + 0.00007, 0.00085, 0.00158,
1441 + 0.15286, 0.03394, 0.01661, 0.00126, 0.00023,
1442 + 0.00011, 0.00081, 0.00153,
1443 + 0.14585, 0.03221, 0.01510, 0.00119, 0.00022,
1444 + 0.00012, 0.00076, 0.00146 /
1445 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=15,19)/
1446 + 0.13941, 0.03062, 0.01380, 0.00116, 0.00019,
1447 + 0.00009, 0.00072, 0.00136,
1448 + 0.13367, 0.02918, 0.01266, 0.00100, 0.00020,
1449 + 0.00010, 0.00069, 0.00129,
1450 + 0.12839, 0.02786, 0.01167, 0.00085, 0.00020,
1451 + 0.00011, 0.00067, 0.00124,
1452 + 0.12328, 0.02664, 0.01082, 0.00082, 0.00021,
1453 + 0.00010, 0.00063, 0.00118,
1454 + 0.11853, 0.02551, 0.01006, 0.00080, 0.00021,
1455 + 0.00010, 0.00060, 0.00112 /
1456 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/
1457 + 0.31328, 0.07380, 0.08902, 0.00222, 0.00001,
1458 + -0.00004, 0.00136, 0.00333,
1459 + 0.28009, 0.06493, 0.06780, 0.00199, 0.00006,
1460 + -0.00007, 0.00121, 0.00296,
1461 + 0.25343, 0.05798, 0.05334, 0.00181, 0.00010,
1462 + -0.00004, 0.00114, 0.00256,
1463 + 0.23165, 0.05233, 0.04318, 0.00168, 0.00015,
1464 + -0.00006, 0.00101, 0.00226,
1465 + 0.21335, 0.04769, 0.03564, 0.00157, 0.00017,
1466 + -0.00002, 0.00091, 0.00205,
1467 + 0.19763, 0.04374, 0.02992, 0.00151, 0.00018,
1468 + 0.00001, 0.00089, 0.00178,
1469 + 0.18401, 0.04036, 0.02548, 0.00136, 0.00019,
1470 + 0.00000, 0.00083, 0.00165 /
1471 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=8,14)/
1472 + 0.17205, 0.03744, 0.02201, 0.00128, 0.00018,
1473 + -0.00001, 0.00073, 0.00148,
1474 + 0.16153, 0.03485, 0.01918, 0.00124, 0.00019,
1475 + 0.00001, 0.00071, 0.00134,
1476 + 0.15214, 0.03258, 0.01688, 0.00114, 0.00018,
1477 + 0.00003, 0.00068, 0.00128,
1478 + 0.14374, 0.03057, 0.01498, 0.00101, 0.00016,
1479 + 0.00003, 0.00061, 0.00124,
1480 + 0.13629, 0.02878, 0.01338, 0.00091, 0.00016,
1481 + 0.00002, 0.00057, 0.00111,
1482 + 0.12938, 0.02719, 0.01206, 0.00084, 0.00014,
1483 + 0.00004, 0.00052, 0.00105,
1484 + 0.12311, 0.02573, 0.01093, 0.00078, 0.00013,
1485 + 0.00006, 0.00049, 0.00102 /
1486 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=15,19)/
1487 + 0.11742, 0.02438, 0.00996, 0.00072, 0.00012,
1488 + 0.00006, 0.00048, 0.00101,
1489 + 0.11220, 0.02318, 0.00912, 0.00070, 0.00012,
1490 + 0.00006, 0.00046, 0.00093,
1491 + 0.10742, 0.02209, 0.00839, 0.00067, 0.00012,
1492 + 0.00006, 0.00043, 0.00085,
1493 + 0.10297, 0.02108, 0.00775, 0.00059, 0.00012,
1494 + 0.00006, 0.00042, 0.00083,
1495 + 0.09888, 0.02015, 0.00718, 0.00052, 0.00012,
1496 + 0.00007, 0.00041, 0.00080 /
1497 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/
1498 + 0.27525, 0.06108, 0.06946, 0.00146, -0.00003,
1499 + -0.00006, 0.00097, 0.00235,
1500 + 0.24439, 0.05344, 0.05230, 0.00138, 0.00000,
1501 + 0.00000, 0.00084, 0.00209,
1502 + 0.21967, 0.04743, 0.04072, 0.00141, 0.00008,
1503 + -0.00003, 0.00080, 0.00179,
1504 + 0.20002, 0.04256, 0.03254, 0.00112, 0.00008,
1505 + -0.00001, 0.00071, 0.00164,
1506 + 0.18305, 0.03861, 0.02665, 0.00118, 0.00008,
1507 + -0.00002, 0.00063, 0.00139,
1508 + 0.16888, 0.03527, 0.02221, 0.00110, 0.00009,
1509 + 0.00000, 0.00060, 0.00123,
1510 + 0.15659, 0.03244, 0.01880, 0.00102, 0.00007,
1511 + -0.00002, 0.00052, 0.00110 /
1512 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=8,14)/
1513 + 0.14610, 0.02996, 0.01611, 0.00086, 0.00010,
1514 + -0.00001, 0.00048, 0.00103,
1515 + 0.13670, 0.02781, 0.01396, 0.00076, 0.00012,
1516 + 0.00001, 0.00046, 0.00099,
1517 + 0.12837, 0.02593, 0.01223, 0.00069, 0.00011,
1518 + 0.00002, 0.00043, 0.00090,
1519 + 0.12096, 0.02427, 0.01081, 0.00065, 0.00009,
1520 + 0.00001, 0.00040, 0.00079,
1521 + 0.11416, 0.02279, 0.00963, 0.00065, 0.00008,
1522 + 0.00000, 0.00037, 0.00074,
1523 + 0.10823, 0.02144, 0.00864, 0.00054, 0.00010,
1524 + 0.00002, 0.00036, 0.00068,
1525 + 0.10280, 0.02023, 0.00780, 0.00046, 0.00011,
1526 + 0.00004, 0.00034, 0.00066 /
1527 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=15,19)/
1528 + 0.09774, 0.01915, 0.00708, 0.00043, 0.00010,
1529 + 0.00004, 0.00032, 0.00067,
1530 + 0.09314, 0.01816, 0.00647, 0.00041, 0.00011,
1531 + 0.00006, 0.00032, 0.00063,
1532 + 0.08893, 0.01726, 0.00594, 0.00040, 0.00011,
1533 + 0.00007, 0.00032, 0.00059,
1534 + 0.08499, 0.01643, 0.00547, 0.00037, 0.00009,
1535 + 0.00004, 0.00028, 0.00058,
1536 + 0.08139, 0.01567, 0.00506, 0.00035, 0.00007,
1537 + 0.00002, 0.00025, 0.00056 /
1538 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,7)/
1539 + 0.23862, 0.04997, 0.05362, 0.00121, -0.00002,
1540 + -0.00004, 0.00065, 0.00166,
1541 + 0.21057, 0.04335, 0.03974, 0.00104, 0.00001,
1542 + -0.00008, 0.00056, 0.00137,
1543 + 0.18820, 0.03826, 0.03052, 0.00105, 0.00003,
1544 + -0.00004, 0.00048, 0.00112,
1545 + 0.17020, 0.03419, 0.02414, 0.00083, 0.00004,
1546 + -0.00003, 0.00045, 0.00107,
1547 + 0.15520, 0.03084, 0.01958, 0.00077, 0.00005,
1548 + -0.00005, 0.00040, 0.00092,
1549 + 0.14269, 0.02801, 0.01618, 0.00066, 0.00005,
1550 + -0.00006, 0.00038, 0.00078,
1551 + 0.13175, 0.02565, 0.01360, 0.00060, 0.00008,
1552 + -0.00002, 0.00037, 0.00073 /
1553 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=8,14)/
1554 + 0.12234, 0.02361, 0.01159, 0.00049, 0.00007,
1555 + -0.00001, 0.00035, 0.00072,
1556 + 0.11407, 0.02184, 0.00999, 0.00046, 0.00008,
1557 + 0.00000, 0.00032, 0.00063,
1558 + 0.10667, 0.02029, 0.00871, 0.00048, 0.00009,
1559 + 0.00002, 0.00030, 0.00056,
1560 + 0.10010, 0.01892, 0.00766, 0.00045, 0.00008,
1561 + 0.00002, 0.00029, 0.00053,
1562 + 0.09439, 0.01769, 0.00679, 0.00034, 0.00007,
1563 + 0.00001, 0.00027, 0.00052,
1564 + 0.08915, 0.01662, 0.00607, 0.00029, 0.00008,
1565 + 0.00002, 0.00025, 0.00049,
1566 + 0.08438, 0.01565, 0.00547, 0.00028, 0.00008,
1567 + 0.00003, 0.00024, 0.00046 /
1568 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=15,19)/
1569 + 0.08001, 0.01478, 0.00496, 0.00029, 0.00007,
1570 + 0.00003, 0.00024, 0.00042,
1571 + 0.07609, 0.01396, 0.00451, 0.00023, 0.00006,
1572 + 0.00003, 0.00021, 0.00040,
1573 + 0.07252, 0.01323, 0.00413, 0.00018, 0.00006,
1574 + 0.00002, 0.00019, 0.00038,
1575 + 0.06916, 0.01257, 0.00380, 0.00020, 0.00006,
1576 + 0.00003, 0.00019, 0.00035,
1577 + 0.06607, 0.01196, 0.00351, 0.00021, 0.00007,
1578 + 0.00004, 0.00019, 0.00032 /
1579 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,7)/
1580 + 0.20442, 0.04018, 0.04066, 0.00071, 0.00000,
1581 + -0.00001, 0.00043, 0.00115,
1582 + 0.17896, 0.03463, 0.02967, 0.00066, -0.00002,
1583 + -0.00006, 0.00033, 0.00091,
1584 + 0.15894, 0.03037, 0.02249, 0.00064, 0.00001,
1585 + -0.00005, 0.00037, 0.00081,
1586 + 0.14287, 0.02695, 0.01761, 0.00058, 0.00003,
1587 + -0.00004, 0.00033, 0.00068,
1588 + 0.12979, 0.02418, 0.01413, 0.00043, 0.00005,
1589 + -0.00003, 0.00028, 0.00061,
1590 + 0.11863, 0.02188, 0.01159, 0.00040, 0.00007,
1591 + -0.00001, 0.00027, 0.00052,
1592 + 0.10906, 0.01994, 0.00968, 0.00042, 0.00006,
1593 + 0.00000, 0.00024, 0.00047 /
1594 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=8,14)/
1595 + 0.10082, 0.01829, 0.00820, 0.00034, 0.00008,
1596 + 0.00001, 0.00025, 0.00044,
1597 + 0.09367, 0.01685, 0.00703, 0.00029, 0.00007,
1598 + 0.00002, 0.00025, 0.00041,
1599 + 0.08742, 0.01559, 0.00610, 0.00022, 0.00006,
1600 + 0.00003, 0.00022, 0.00040,
1601 + 0.08188, 0.01449, 0.00534, 0.00014, 0.00006,
1602 + 0.00003, 0.00020, 0.00037,
1603 + 0.07686, 0.01354, 0.00473, 0.00015, 0.00008,
1604 + 0.00002, 0.00019, 0.00030,
1605 + 0.07233, 0.01266, 0.00421, 0.00014, 0.00007,
1606 + 0.00002, 0.00018, 0.00029,
1607 + 0.06823, 0.01187, 0.00377, 0.00015, 0.00007,
1608 + 0.00002, 0.00017, 0.00028 /
1609 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=15,19)/
1610 + 0.06448, 0.01118, 0.00340, 0.00018, 0.00005,
1611 + 0.00002, 0.00016, 0.00024,
1612 + 0.06114, 0.01054, 0.00309, 0.00016, 0.00006,
1613 + 0.00003, 0.00016, 0.00025,
1614 + 0.05811, 0.00997, 0.00282, 0.00014, 0.00007,
1615 + 0.00004, 0.00015, 0.00025,
1616 + 0.05532, 0.00945, 0.00259, 0.00013, 0.00007,
1617 + 0.00003, 0.00014, 0.00022,
1618 + 0.05276, 0.00898, 0.00239, 0.00012, 0.00006,
1619 + 0.00003, 0.00013, 0.00020 /
1620 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/
1621 + 0.17266, 0.03194, 0.03046, 0.00066, -0.00006,
1622 + -0.00009, 0.00023, 0.00070,
1623 + 0.15014, 0.02735, 0.02189, 0.00049, -0.00003,
1624 + -0.00008, 0.00021, 0.00064,
1625 + 0.13279, 0.02382, 0.01640, 0.00037, 0.00001,
1626 + -0.00008, 0.00022, 0.00054,
1627 + 0.11866, 0.02103, 0.01272, 0.00035, 0.00001,
1628 + -0.00007, 0.00018, 0.00043,
1629 + 0.10704, 0.01876, 0.01014, 0.00033, 0.00002,
1630 + -0.00005, 0.00016, 0.00040,
1631 + 0.09736, 0.01692, 0.00825, 0.00031, 0.00001,
1632 + -0.00004, 0.00015, 0.00035,
1633 + 0.08928, 0.01536, 0.00684, 0.00024, 0.00002,
1634 + -0.00003, 0.00015, 0.00031 /
1635 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=8,14)/
1636 + 0.08223, 0.01402, 0.00576, 0.00022, 0.00003,
1637 + -0.00001, 0.00014, 0.00028,
1638 + 0.07603, 0.01288, 0.00491, 0.00019, 0.00003,
1639 + -0.00001, 0.00013, 0.00028,
1640 + 0.07063, 0.01188, 0.00424, 0.00018, 0.00003,
1641 + 0.00000, 0.00012, 0.00027,
1642 + 0.06591, 0.01101, 0.00370, 0.00016, 0.00003,
1643 + 0.00000, 0.00012, 0.00024,
1644 + 0.06173, 0.01024, 0.00326, 0.00011, 0.00003,
1645 + 0.00001, 0.00010, 0.00020,
1646 + 0.05793, 0.00955, 0.00290, 0.00011, 0.00002,
1647 + 0.00001, 0.00009, 0.00021,
1648 + 0.05453, 0.00894, 0.00259, 0.00010, 0.00002,
1649 + 0.00001, 0.00009, 0.00020 /
1650 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=15,19)/
1651 + 0.05149, 0.00840, 0.00233, 0.00009, 0.00003,
1652 + 0.00001, 0.00010, 0.00017,
1653 + 0.04870, 0.00790, 0.00212, 0.00009, 0.00004,
1654 + 0.00001, 0.00009, 0.00015,
1655 + 0.04617, 0.00746, 0.00193, 0.00009, 0.00004,
1656 + 0.00002, 0.00009, 0.00014,
1657 + 0.04380, 0.00706, 0.00177, 0.00010, 0.00003,
1658 + 0.00002, 0.00008, 0.00013,
1659 + 0.04165, 0.00669, 0.00162, 0.00011, 0.00003,
1660 + 0.00002, 0.00007, 0.00013 /
1661 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,7)/
1662 + 0.14342, 0.02477, 0.02224, 0.00027, -0.00005,
1663 + -0.00003, 0.00016, 0.00052,
1664 + 0.12384, 0.02109, 0.01581, 0.00033, 0.00000,
1665 + -0.00001, 0.00015, 0.00041,
1666 + 0.10858, 0.01828, 0.01173, 0.00037, 0.00000,
1667 + -0.00003, 0.00013, 0.00030,
1668 + 0.09667, 0.01606, 0.00903, 0.00025, -0.00001,
1669 + -0.00002, 0.00010, 0.00030,
1670 + 0.08690, 0.01428, 0.00713, 0.00023, 0.00000,
1671 + -0.00001, 0.00010, 0.00024,
1672 + 0.07868, 0.01283, 0.00576, 0.00023, 0.00000,
1673 + -0.00002, 0.00009, 0.00019,
1674 + 0.07174, 0.01159, 0.00475, 0.00021, 0.00001,
1675 + -0.00001, 0.00007, 0.00020 /
1676 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=8,14)/
1677 + 0.06589, 0.01056, 0.00398, 0.00015, 0.00001,
1678 + 0.00000, 0.00008, 0.00020,
1679 + 0.06077, 0.00967, 0.00338, 0.00012, 0.00000,
1680 + 0.00000, 0.00007, 0.00018,
1681 + 0.05628, 0.00889, 0.00291, 0.00011, 0.00000,
1682 + 0.00000, 0.00005, 0.00016,
1683 + 0.05233, 0.00821, 0.00253, 0.00010, 0.00000,
1684 + -0.00001, 0.00005, 0.00014,
1685 + 0.04883, 0.00761, 0.00222, 0.00009, 0.00001,
1686 + -0.00002, 0.00005, 0.00011,
1687 + 0.04569, 0.00709, 0.00196, 0.00009, 0.00001,
1688 + -0.00001, 0.00004, 0.00012,
1689 + 0.04288, 0.00663, 0.00175, 0.00009, 0.00001,
1690 + 0.00000, 0.00004, 0.00012 /
1691 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=15,19)/
1692 + 0.04036, 0.00621, 0.00157, 0.00007, 0.00000,
1693 + 0.00000, 0.00004, 0.00011,
1694 + 0.03806, 0.00583, 0.00142, 0.00008, 0.00000,
1695 + -0.00001, 0.00003, 0.00011,
1696 + 0.03598, 0.00549, 0.00129, 0.00009, 0.00001,
1697 + -0.00001, 0.00003, 0.00010,
1698 + 0.03412, 0.00517, 0.00118, 0.00007, 0.00001,
1699 + 0.00000, 0.00003, 0.00010,
1700 + 0.03242, 0.00489, 0.00108, 0.00006, 0.00001,
1701 + 0.00000, 0.00003, 0.00009 /
1702 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,7)/
1703 + 0.09368, 0.01408, 0.01114, 0.00016, 0.00000,
1704 + 0.00000, 0.00007, 0.00017,
1705 + 0.07970, 0.01178, 0.00766, 0.00011, 0.00000,
1706 + -0.00002, 0.00005, 0.00016,
1707 + 0.06904, 0.01007, 0.00553, 0.00010, 0.00001,
1708 + -0.00001, 0.00007, 0.00009,
1709 + 0.06060, 0.00874, 0.00416, 0.00009, 0.00001,
1710 + -0.00001, 0.00004, 0.00009,
1711 + 0.05385, 0.00769, 0.00322, 0.00007, 0.00000,
1712 + 0.00000, 0.00005, 0.00010,
1713 + 0.04831, 0.00683, 0.00257, 0.00006, 0.00001,
1714 + 0.00000, 0.00004, 0.00008,
1715 + 0.04364, 0.00613, 0.00208, 0.00005, 0.00001,
1716 + 0.00000, 0.00004, 0.00007 /
1717 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=8,14)/
1718 + 0.03971, 0.00553, 0.00172, 0.00003, 0.00001,
1719 + 0.00000, 0.00004, 0.00005,
1720 + 0.03631, 0.00502, 0.00145, 0.00002, 0.00001,
1721 + 0.00000, 0.00004, 0.00006,
1722 + 0.03336, 0.00458, 0.00123, 0.00002, 0.00001,
1723 + 0.00000, 0.00003, 0.00006,
1724 + 0.03081, 0.00420, 0.00106, 0.00002, 0.00001,
1725 + 0.00001, 0.00003, 0.00005,
1726 + 0.02855, 0.00387, 0.00093, 0.00002, 0.00001,
1727 + 0.00000, 0.00003, 0.00003,
1728 + 0.02655, 0.00358, 0.00081, 0.00002, 0.00001,
1729 + 0.00000, 0.00002, 0.00003,
1730 + 0.02477, 0.00332, 0.00072, 0.00001, 0.00000,
1731 + 0.00000, 0.00002, 0.00003 /
1732 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=15,19)/
1733 + 0.02317, 0.00309, 0.00064, 0.00001, 0.00000,
1734 + 0.00000, 0.00002, 0.00004,
1735 + 0.02172, 0.00289, 0.00058, 0.00001, 0.00000,
1736 + 0.00000, 0.00002, 0.00004,
1737 + 0.02043, 0.00270, 0.00052, 0.00001, 0.00000,
1738 + 0.00000, 0.00002, 0.00003,
1739 + 0.01926, 0.00254, 0.00048, 0.00001, 0.00000,
1740 + 0.00000, 0.00002, 0.00003,
1741 + 0.01821, 0.00239, 0.00044, 0.00001, 0.00000,
1742 + 0.00000, 0.00001, 0.00003 /
1743 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,7)/
1744 + 0.05629, 0.00727, 0.00502, 0.00011, -0.00001,
1745 + -0.00001, 0.00002, 0.00004,
1746 + 0.04705, 0.00598, 0.00333, 0.00006, -0.00001,
1747 + -0.00002, 0.00000, 0.00004,
1748 + 0.04015, 0.00504, 0.00234, 0.00004, -0.00001,
1749 + -0.00002, 0.00001, 0.00004,
1750 + 0.03483, 0.00432, 0.00172, 0.00002, 0.00000,
1751 + 0.00000, 0.00002, 0.00004,
1752 + 0.03055, 0.00375, 0.00131, 0.00003, 0.00000,
1753 + 0.00000, 0.00001, 0.00002,
1754 + 0.02710, 0.00330, 0.00102, 0.00002, 0.00000,
1755 + 0.00000, 0.00001, 0.00002,
1756 + 0.02423, 0.00292, 0.00082, 0.00001, 0.00000,
1757 + -0.00001, 0.00001, 0.00002 /
1758 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=8,14)/
1759 + 0.02182, 0.00261, 0.00067, 0.00002, 0.00001,
1760 + 0.00000, 0.00001, 0.00002,
1761 + 0.01978, 0.00235, 0.00056, 0.00001, 0.00001,
1762 + 0.00000, 0.00001, 0.00002,
1763 + 0.01802, 0.00213, 0.00047, 0.00001, 0.00000,
1764 + 0.00000, 0.00001, 0.00002,
1765 + 0.01650, 0.00194, 0.00040, 0.00001, 0.00000,
1766 + 0.00000, 0.00001, 0.00001,
1767 + 0.01518, 0.00177, 0.00035, 0.00001, 0.00000,
1768 + 0.00000, 0.00001, 0.00001,
1769 + 0.01403, 0.00163, 0.00030, 0.00001, 0.00000,
1770 + 0.00000, 0.00001, 0.00001,
1771 + 0.01301, 0.00150, 0.00027, 0.00000, 0.00000,
1772 + 0.00000, 0.00001, 0.00001 /
1773 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=15,19)/
1774 + 0.01210, 0.00139, 0.00024, 0.00000, 0.00000,
1775 + 0.00000, 0.00001, 0.00001,
1776 + 0.01127, 0.00129, 0.00021, 0.00000, 0.00000,
1777 + 0.00000, 0.00000, 0.00001,
1778 + 0.01054, 0.00120, 0.00019, 0.00000, 0.00000,
1779 + 0.00000, 0.00000, 0.00001,
1780 + 0.00988, 0.00112, 0.00017, 0.00000, 0.00000,
1781 + 0.00000, 0.00000, 0.00001,
1782 + 0.00928, 0.00105, 0.00016, 0.00000, 0.00000,
1783 + 0.00000, 0.00000, 0.00001 /
1784 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,7)/
1785 + 0.03004, 0.00326, 0.00193, 0.00002, -0.00001,
1786 + -0.00001, 0.00000, 0.00001,
1787 + 0.02465, 0.00264, 0.00124, 0.00002, 0.00000,
1788 + -0.00001, 0.00000, 0.00001,
1789 + 0.02070, 0.00218, 0.00085, 0.00001, 0.00000,
1790 + 0.00000, 0.00001, 0.00001,
1791 + 0.01768, 0.00185, 0.00061, 0.00000, 0.00000,
1792 + 0.00000, 0.00000, 0.00000,
1793 + 0.01532, 0.00158, 0.00045, 0.00000, 0.00000,
1794 + 0.00000, 0.00000, 0.00001,
1795 + 0.01342, 0.00138, 0.00035, 0.00000, 0.00000,
1796 + 0.00000, 0.00000, 0.00001,
1797 + 0.01187, 0.00121, 0.00028, 0.00000, 0.00000,
1798 + 0.00000, 0.00000, 0.00001 /
1799 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=8,14)/
1800 + 0.01059, 0.00107, 0.00022, -0.00001, 0.00000,
1801 + 0.00000, 0.00000, 0.00001,
1802 + 0.00949, 0.00095, 0.00018, 0.00000, 0.00000,
1803 + 0.00000, 0.00000, 0.00000,
1804 + 0.00857, 0.00085, 0.00015, 0.00001, 0.00000,
1805 + 0.00000, 0.00000, 0.00000,
1806 + 0.00779, 0.00077, 0.00013, 0.00000, 0.00000,
1807 + 0.00000, 0.00000, 0.00001,
1808 + 0.00711, 0.00070, 0.00011, 0.00000, 0.00000,
1809 + 0.00000, 0.00000, 0.00000,
1810 + 0.00651, 0.00064, 0.00010, 0.00000, 0.00000,
1811 + 0.00000, 0.00000, 0.00000,
1812 + 0.00599, 0.00058, 0.00009, 0.00000, 0.00000,
1813 + 0.00000, 0.00000, 0.00000 /
1814 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=15,19)/
1815 + 0.00553, 0.00054, 0.00008, 0.00000, 0.00000,
1816 + 0.00000, 0.00000, 0.00000,
1817 + 0.00512, 0.00050, 0.00007, 0.00000, 0.00000,
1818 + 0.00000, 0.00000, 0.00000,
1819 + 0.00476, 0.00046, 0.00006, 0.00000, 0.00000,
1820 + 0.00000, 0.00000, 0.00000,
1821 + 0.00443, 0.00043, 0.00005, 0.00000, 0.00000,
1822 + 0.00000, 0.00000, 0.00000,
1823 + 0.00414, 0.00040, 0.00005, 0.00000, 0.00000,
1824 + 0.00000, 0.00000, 0.00000 /
1825 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,7)/
1826 + 0.01362, 0.00121, 0.00060, 0.00000, 0.00000,
1827 + 0.00000, 0.00000, 0.00000,
1828 + 0.01091, 0.00095, 0.00037, 0.00000, 0.00000,
1829 + 0.00000, 0.00000, 0.00001,
1830 + 0.00897, 0.00077, 0.00024, 0.00000, 0.00000,
1831 + 0.00000, 0.00000, 0.00001,
1832 + 0.00753, 0.00064, 0.00017, 0.00000, 0.00000,
1833 + 0.00000, 0.00000, 0.00000,
1834 + 0.00642, 0.00054, 0.00012, 0.00000, 0.00000,
1835 + 0.00000, 0.00000, 0.00000,
1836 + 0.00555, 0.00046, 0.00009, 0.00000, 0.00000,
1837 + 0.00000, 0.00000, 0.00000,
1838 + 0.00484, 0.00040, 0.00007, 0.00000, 0.00000,
1839 + 0.00000, 0.00000, 0.00000 /
1840 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=8,14)/
1841 + 0.00426, 0.00035, 0.00006, 0.00000, 0.00000,
1842 + 0.00000, 0.00000, 0.00000,
1843 + 0.00378, 0.00031, 0.00005, 0.00000, 0.00000,
1844 + 0.00000, 0.00000, 0.00000,
1845 + 0.00337, 0.00028, 0.00004, 0.00000, 0.00000,
1846 + 0.00000, 0.00000, 0.00000,
1847 + 0.00303, 0.00025, 0.00003, 0.00000, 0.00000,
1848 + 0.00000, 0.00000, 0.00000,
1849 + 0.00274, 0.00022, 0.00003, 0.00000, 0.00000,
1850 + 0.00000, 0.00000, 0.00000,
1851 + 0.00249, 0.00020, 0.00003, 0.00000, 0.00000,
1852 + 0.00000, 0.00000, 0.00000,
1853 + 0.00227, 0.00018, 0.00002, 0.00000, 0.00000,
1854 + 0.00000, 0.00000, 0.00000 /
1855 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=15,19)/
1856 + 0.00208, 0.00017, 0.00002, 0.00000, 0.00000,
1857 + 0.00000, 0.00000, 0.00000,
1858 + 0.00191, 0.00015, 0.00002, 0.00000, 0.00000,
1859 + 0.00000, 0.00000, 0.00000,
1860 + 0.00176, 0.00014, 0.00002, 0.00000, 0.00000,
1861 + 0.00000, 0.00000, 0.00000,
1862 + 0.00163, 0.00013, 0.00001, 0.00000, 0.00000,
1863 + 0.00000, 0.00000, 0.00000,
1864 + 0.00151, 0.00012, 0.00001, 0.00000, 0.00000,
1865 + 0.00000, 0.00000, 0.00000 /
1866 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,7)/
1867 + 0.00104, 0.00005, 0.00002, 0.00000, 0.00000,
1868 + 0.00000, 0.00000, 0.00000,
1869 + 0.00078, 0.00004, 0.00001, 0.00000, 0.00000,
1870 + 0.00000, 0.00000, 0.00000,
1871 + 0.00061, 0.00003, 0.00001, 0.00000, 0.00000,
1872 + 0.00000, 0.00000, 0.00000,
1873 + 0.00049, 0.00002, 0.00000, 0.00000, 0.00000,
1874 + 0.00000, 0.00000, 0.00000,
1875 + 0.00040, 0.00002, 0.00000, 0.00000, 0.00000,
1876 + 0.00000, 0.00000, 0.00000,
1877 + 0.00033, 0.00002, 0.00000, 0.00000, 0.00000,
1878 + 0.00000, 0.00000, 0.00000,
1879 + 0.00028, 0.00001, 0.00000, 0.00000, 0.00000,
1880 + 0.00000, 0.00000, 0.00000 /
1881 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=8,14)/
1882 + 0.00024, 0.00001, 0.00000, 0.00000, 0.00000,
1883 + 0.00000, 0.00000, 0.00000,
1884 + 0.00020, 0.00001, 0.00000, 0.00000, 0.00000,
1885 + 0.00000, 0.00000, 0.00000,
1886 + 0.00018, 0.00001, 0.00000, 0.00000, 0.00000,
1887 + 0.00000, 0.00000, 0.00000,
1888 + 0.00015, 0.00001, 0.00000, 0.00000, 0.00000,
1889 + 0.00000, 0.00000, 0.00000,
1890 + 0.00013, 0.00001, 0.00000, 0.00000, 0.00000,
1891 + 0.00000, 0.00000, 0.00000,
1892 + 0.00012, 0.00001, 0.00000, 0.00000, 0.00000,
1893 + 0.00000, 0.00000, 0.00000,
1894 + 0.00011, 0.00001, 0.00000, 0.00000, 0.00000,
1895 + 0.00000, 0.00000, 0.00000 /
1896 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=15,19)/
1897 + 0.00009, 0.00001, 0.00000, 0.00000, 0.00000,
1898 + 0.00000, 0.00000, 0.00000,
1899 + 0.00008, 0.00001, 0.00000, 0.00000, 0.00000,
1900 + 0.00000, 0.00000, 0.00000,
1901 + 0.00007, 0.00001, 0.00000, 0.00000, 0.00000,
1902 + 0.00000, 0.00000, 0.00000,
1903 + 0.00007, 0.00001, 0.00000, 0.00000, 0.00000,
1904 + 0.00000, 0.00000, 0.00000,
1905 + 0.00006, 0.00001, 0.00000, 0.00000, 0.00000,
1906 + 0.00000, 0.00000, 0.00000 /
1907 DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5,
1908 . 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4,
1909 . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3,
1910 . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2,
1911 . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0,
1912 . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0,
1913 . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0,
1914 . .8D0,.9D0,1.D0/
1915 DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/
1916 DATA N0/2,5,5,7,0,0,7,7/
1917 DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
1918 DATA INIT/0/
1919
1920
1921 XSAVE=X
1922
1923 IF(INIT.NE.0) GOTO 10
1924 INIT=1
1925 DO 20 N=1,NX-1
1926 DO 20 M=1,19
1927C READ(84,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(7,N,M),
1928C . F(6,N,M),F(8,N,M)
1929C 1=UV 2=DV 3=GLUE 4=UBAR 5=CBAR 7=BBAR 6=SBAR 8=DBAR
1930 DO 25 I=1,8
1931 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I)
1932 20 CONTINUE
1933 DO 31 J=1,NTENTH-1
1934 XX(J)= LOG10(XX(J))+ONEDO
1935 DO 31 I=1,8
1936 IF(I.EQ.7) GO TO 31
1937 DO 30 K=1,19
1938 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K))
1939 31 CONTINUE
1940 50 FORMAT(8F10.5)
1941 DO 40 I=1,8
1942 DO 40 M=1,19
1943 40 F(I,NX,M)=ZEROD
1944 10 CONTINUE
1945 IF(X.LT.XMIN) X=XMIN
1946 IF(X.GT.XMAX) X=XMAX
1947 QSQ=SCALE**2
1948 IF(QSQ.LT.QSQMIN) QSQ=QSQMIN
1949 IF(QSQ.GT.QSQMAX) QSQ=QSQMAX
1950 XXX=X
1951 IF(X.LT.PONED) XXX= LOG10(X)+ONEDO
1952 N=0
1953 70 N=N+1
1954 IF(XXX.GT.XX(N+1)) GOTO 70
1955 A=(XXX-XX(N))/(XX(N+1)-XX(N))
1956 RM= LOG(QSQ/QSQMIN)/ LOG(TWOD)
1957 B=RM-AINT(RM)
1958 M=1+ INT(RM)
1959 DO 60 I=1,8
1960 G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1)
1961 . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1)
1962 IF(N.GE.NTENTH) GOTO 65
1963 IF(I.EQ.7) GOTO 65
1964 FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1)
1965 G(I)=FAC**(G(I)/FAC)
1966 65 CONTINUE
1967 G(I)=G(I)*(ONED-X)**N0(I)
1968 60 CONTINUE
1969 UPV=G(1)
1970 DNV=G(2)
1971 USEA=G(4)
1972 DSEA=G(8)
1973 STR=G(6)
1974 CHM=G(5)
1975 GLU=G(3)
1976 BOT=G(7)
1977
1978 X=XSAVE
1979
1980 RETURN
1981 END