]> git.uio.no Git - u/mrichter/AliRoot.git/blame - PDF/spdf/sfmrsg.F
Changes needed on Mac (F.Carminati)
[u/mrichter/AliRoot.git] / PDF / spdf / sfmrsg.F
CommitLineData
21886bb6 1*
2* $Id$
3*
4* $Log$
5* Revision 1.1.1.3 2000/04/19 13:28:45 mclareni
6* Import version 8.04
7*
8* Revision 1.2 2000/04/17 18:54:48 plothow
9* version 8.04: small mods, dlog to log
10*
11* Revision 1.1.1.1 1996/04/12 15:29:39 plothow
12* Version 7.01
13*
14*
15#include "pdf/pilot.h"
16 SUBROUTINE SFMRSG(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU)
17C
18C THIS IS THE NEW "G" FIT -- Feb 1995 -- standard Q^2 range
19C
20#include "pdf/impdp.inc"
21C
22 PARAMETER(NX=47)
23 PARAMETER(NTENTH=21)
24 DIMENSION F(8,NX,20),G(8),XX(NX),N0(8)
25 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,7)/
26 + 0.00269, 0.00519, 55.04009, 0.93808, 0.23085,
27 + 0.00000, 0.56956, 0.94157,
28 + 0.00308, 0.00544, 74.12506, 1.65007, 0.94742,
29 + 0.00000, 1.28439, 1.65404,
30 + 0.00344, 0.00568, 95.23531, 2.44308, 1.74440,
31 + 0.02544, 2.07989, 2.44748,
32 + 0.00378, 0.00590, 117.89208, 3.27437, 2.57920,
33 + 0.63342, 2.91339, 3.27916,
34 + 0.00410, 0.00610, 141.99054, 4.15617, 3.46418,
35 + 1.57435, 3.79720, 4.16132,
36 + 0.00441, 0.00630, 167.27766, 5.07568, 4.38660,
37 + 2.52873, 4.71856, 5.08117,
38 + 0.00471, 0.00649, 193.47682, 6.02122, 5.33482,
39 + 3.50576, 5.66582, 6.02703 /
40 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=8,14)/
41 + 0.00499, 0.00667, 220.46440, 6.99424, 6.31033,
42 + 4.50790, 6.64044, 7.00035,
43 + 0.00527, 0.00685, 248.05037, 7.98816, 7.30658,
44 + 5.52860, 7.63585, 7.99455,
45 + 0.00554, 0.00701, 276.08490, 8.99885, 8.31945,
46 + 6.56410, 8.64794, 9.00551,
47 + 0.00580, 0.00718, 304.50995, 10.02678, 9.34943,
48 + 7.61513, 9.67720, 10.03370,
49 + 0.00605, 0.00733, 333.27853, 11.07132, 10.39592,
50 + 8.68126, 10.72300, 11.07848,
51 + 0.00630, 0.00749, 362.36829, 12.13224, 11.45868,
52 + 9.76243, 11.78512, 12.13963,
53 + 0.00654, 0.00764, 391.36038, 13.19210, 12.52029,
54 + 10.84137, 12.84611, 13.19972 /
55 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=15,19)/
56 + 0.00677, 0.00778, 420.55627, 14.26562, 13.59549,
57 + 11.93292, 13.92072, 14.27346,
58 + 0.00700, 0.00792, 449.91208, 15.35062, 14.68209,
59 + 13.03497, 15.00677, 15.35866,
60 + 0.00723, 0.00806, 479.00864, 16.43104, 15.76404,
61 + 14.13160, 16.08818, 16.43928,
62 + 0.00745, 0.00820, 508.37811, 17.52810, 16.86257,
63 + 15.24407, 17.18620, 17.53654,
64 + 0.00766, 0.00833, 537.33978, 18.61555, 17.95145,
65 + 16.34625, 18.27459, 18.62418 /
66 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/
67 + 0.00429, 0.00679, 43.63768, 0.86288, 0.19610,
68 + 0.00000, 0.51435, 0.86602,
69 + 0.00485, 0.00714, 57.84075, 1.42877, 0.76670,
70 + 0.00000, 1.08300, 1.43224,
71 + 0.00536, 0.00746, 73.25481, 2.03758, 1.37960,
72 + 0.01945, 1.69422, 2.04136,
73 + 0.00584, 0.00776, 89.52473, 2.66278, 2.00842,
74 + 0.47742, 2.32156, 2.66683,
75 + 0.00629, 0.00805, 106.58344, 3.31543, 2.66435,
76 + 1.17743, 2.97615, 3.31973,
77 + 0.00673, 0.00831, 124.25308, 3.98727, 3.33918,
78 + 1.87794, 3.64977, 3.99180,
79 + 0.00715, 0.00857, 142.34306, 4.67060, 4.02528,
80 + 2.58719, 4.33475, 4.67535 /
81 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=8,14)/
82 + 0.00755, 0.00882, 160.77849, 5.36695, 4.72419,
83 + 3.30749, 5.03263, 5.37191,
84 + 0.00794, 0.00905, 179.43553, 6.07203, 5.43166,
85 + 4.03459, 5.73914, 6.07718,
86 + 0.00831, 0.00928, 198.22041, 6.78326, 6.14514,
87 + 4.76625, 6.45172, 6.78860,
88 + 0.00867, 0.00950, 217.10510, 7.50129, 6.86528,
89 + 5.50328, 7.17101, 7.50680,
90 + 0.00902, 0.00971, 236.06654, 8.22592, 7.59192,
91 + 6.24569, 7.89685, 8.23160,
92 + 0.00937, 0.00992, 255.09875, 8.95725, 8.32515,
93 + 6.99369, 8.62932, 8.96309,
94 + 0.00970, 0.01012, 273.92307, 9.68334, 9.05305,
95 + 7.73550, 9.35650, 9.68934 /
96 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=15,19)/
97 + 0.01002, 0.01031, 292.75638, 10.41469, 9.78612,
98 + 8.48169, 10.08889, 10.42083,
99 + 0.01034, 0.01050, 311.57574, 11.14995, 10.52303,
100 + 9.23100, 10.82514, 11.15623,
101 + 0.01065, 0.01068, 330.10516, 11.87821, 11.25286,
102 + 9.97261, 11.55435, 11.88463,
103 + 0.01095, 0.01086, 348.71143, 12.61431, 11.99048,
104 + 10.72141, 12.29137, 12.62087,
105 + 0.01124, 0.01103, 366.94412, 13.34034, 12.71798,
106 + 11.45957, 13.01829, 13.34703 /
107 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/
108 + 0.00670, 0.00888, 34.58309, 0.79334, 0.16527,
109 + 0.00000, 0.46419, 0.79626,
110 + 0.00749, 0.00937, 45.11368, 1.23843, 0.61523,
111 + 0.00000, 0.91200, 1.24158,
112 + 0.00822, 0.00981, 56.32086, 1.70222, 1.08323,
113 + 0.01479, 1.37815, 1.70557,
114 + 0.00890, 0.01022, 67.94986, 2.16941, 1.55416,
115 + 0.35792, 1.84744, 2.17294,
116 + 0.00955, 0.01061, 79.96514, 2.64965, 2.03778,
117 + 0.87616, 2.32958, 2.65335,
118 + 0.01016, 0.01098, 92.24657, 3.13785, 2.52908,
119 + 1.38801, 2.81953, 3.14172,
120 + 0.01074, 0.01133, 104.66766, 3.62911, 3.02320,
121 + 1.90067, 3.31240, 3.63312 /
122 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=8,14)/
123 + 0.01131, 0.01166, 117.18735, 4.12490, 3.52164,
124 + 2.41621, 3.80968, 4.12905,
125 + 0.01185, 0.01198, 129.72842, 4.62253, 4.02175,
126 + 2.93203, 4.30872, 4.62681,
127 + 0.01237, 0.01228, 142.23572, 5.12049, 4.52203,
128 + 3.44685, 4.80799, 5.12489,
129 + 0.01287, 0.01258, 154.69917, 5.61948, 5.02320,
130 + 3.96154, 5.30821, 5.62400,
131 + 0.01336, 0.01286, 167.11168, 6.11959, 5.52539,
132 + 4.47634, 5.80950, 6.12423,
133 + 0.01383, 0.01313, 179.47678, 6.62111, 6.02887,
134 + 4.99163, 6.31213, 6.62585,
135 + 0.01429, 0.01340, 191.60965, 7.11592, 6.52555,
136 + 5.49942, 6.80799, 7.12076 /
137 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=15,19)/
138 + 0.01474, 0.01366, 203.66759, 7.61150, 7.02291,
139 + 6.00726, 7.30458, 7.61644,
140 + 0.01517, 0.01391, 215.64014, 8.10708, 7.52019,
141 + 6.51446, 7.80113, 8.11212,
142 + 0.01559, 0.01415, 227.34645, 8.59527, 8.01001,
143 + 7.01369, 8.29024, 8.60040,
144 + 0.01601, 0.01439, 239.03926, 9.08645, 8.50276,
145 + 7.51537, 8.78231, 9.09166,
146 + 0.01641, 0.01462, 250.42131, 9.56843, 8.98625,
147 + 8.00738, 9.26515, 9.57373 /
148 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/
149 + 0.00863, 0.01040, 30.17398, 0.75498, 0.14890,
150 + 0.00000, 0.43697, 0.75786,
151 + 0.00961, 0.01099, 38.99531, 1.13951, 0.53839,
152 + 0.00000, 0.82421, 1.14258,
153 + 0.01050, 0.01152, 48.27411, 1.53337, 0.93655,
154 + 0.01256, 1.22043, 1.53660,
155 + 0.01134, 0.01202, 57.80405, 1.92597, 1.33297,
156 + 0.30154, 1.61513, 1.92934,
157 + 0.01212, 0.01248, 67.56464, 2.32604, 1.73650,
158 + 0.73507, 2.01710, 2.32955,
159 + 0.01287, 0.01292, 77.46257, 2.72985, 2.14348,
160 + 1.16005, 2.42265, 2.73349,
161 + 0.01358, 0.01333, 87.40008, 3.13370, 2.55024,
162 + 1.58306, 2.82810, 3.13745 /
163 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=8,14)/
164 + 0.01427, 0.01373, 97.35071, 3.53898, 2.95823,
165 + 2.00603, 3.23487, 3.54284,
166 + 0.01492, 0.01411, 107.25739, 3.94370, 3.36548,
167 + 2.42704, 3.64099, 3.94767,
168 + 0.01556, 0.01447, 117.08073, 4.34678, 3.77095,
169 + 2.84523, 4.04538, 4.35085,
170 + 0.01616, 0.01482, 126.81818, 4.74894, 4.17534,
171 + 3.26146, 4.44877, 4.75310,
172 + 0.01675, 0.01516, 136.46843, 5.15037, 4.57889,
173 + 3.67604, 4.85137, 5.15462,
174 + 0.01733, 0.01548, 146.03833, 5.55141, 4.98193,
175 + 4.08943, 5.25351, 5.55575,
176 + 0.01788, 0.01580, 155.38332, 5.94561, 5.37805,
177 + 4.49528, 5.64877, 5.95004 /
178 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=15,19)/
179 + 0.01842, 0.01610, 164.63324, 6.33911, 5.77337,
180 + 4.89978, 6.04327, 6.34362,
181 + 0.01894, 0.01640, 173.78258, 6.73138, 6.16738,
182 + 5.30245, 6.43650, 6.73596,
183 + 0.01945, 0.01669, 182.69046, 7.11652, 6.55420,
184 + 5.69750, 6.82256, 7.12117,
185 + 0.01994, 0.01697, 191.55995, 7.50298, 6.94226,
186 + 6.09338, 7.20991, 7.50771,
187 + 0.02043, 0.01724, 200.15868, 7.88105, 7.32187,
188 + 6.48044, 7.58883, 7.88584 /
189 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/
190 + 0.01030, 0.01164, 27.38437, 0.72870, 0.13799,
191 + 0.00000, 0.41854, 0.73161,
192 + 0.01143, 0.01231, 35.15528, 1.07428, 0.48860,
193 + 0.00000, 0.76684, 1.07734,
194 + 0.01247, 0.01292, 43.26037, 1.42424, 0.84294,
195 + 0.01117, 1.11918, 1.42745,
196 + 0.01343, 0.01348, 51.52355, 1.77062, 1.19321,
197 + 0.26662, 1.46766, 1.77396,
198 + 0.01434, 0.01400, 59.93344, 2.12149, 1.54759,
199 + 0.64808, 1.82044, 2.12495,
200 + 0.01520, 0.01450, 68.41301, 2.47388, 1.90319,
201 + 1.02005, 2.17457, 2.47744,
202 + 0.01602, 0.01497, 76.88164, 2.82477, 2.25705,
203 + 1.38869, 2.52707, 2.82844 /
204 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=8,14)/
205 + 0.01680, 0.01542, 85.32117, 3.17551, 2.61056,
206 + 1.75582, 2.87931, 3.17928,
207 + 0.01756, 0.01585, 93.68624, 3.52451, 2.96213,
208 + 2.11990, 3.22971, 3.52837,
209 + 0.01828, 0.01626, 101.94651, 3.87094, 3.31098,
210 + 2.48032, 3.57745, 3.87489,
211 + 0.01898, 0.01666, 110.10349, 4.21549, 3.65781,
212 + 2.83790, 3.92323, 4.21952,
213 + 0.01965, 0.01704, 118.15879, 4.55843, 4.00290,
214 + 3.19303, 4.26734, 4.56254,
215 + 0.02030, 0.01740, 126.12068, 4.90012, 4.34663,
216 + 3.54615, 4.61014, 4.90430,
217 + 0.02094, 0.01776, 133.86815, 5.23508, 4.68354,
218 + 3.89191, 4.94616, 5.23934 /
219 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=15,19)/
220 + 0.02155, 0.01810, 141.51456, 5.56865, 5.01896,
221 + 4.23567, 5.28073, 5.57298,
222 + 0.02215, 0.01843, 149.05692, 5.90042, 5.35251,
223 + 4.57709, 5.61346, 5.90481,
224 + 0.02272, 0.01876, 156.37718, 6.22540, 5.67919,
225 + 4.91125, 5.93937, 6.22986,
226 + 0.02329, 0.01907, 163.64955, 6.55086, 6.00628,
227 + 5.24545, 6.26572, 6.55539,
228 + 0.02384, 0.01938, 170.67847, 6.86855, 6.32554,
229 + 5.57147, 6.58426, 6.87314 /
230 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/
231 + 0.01180, 0.01270, 25.39465, 0.70881, 0.12991,
232 + 0.00000, 0.40472, 0.71177,
233 + 0.01306, 0.01344, 32.43248, 1.02630, 0.45250,
234 + 0.00000, 0.72495, 1.02940,
235 + 0.01422, 0.01411, 39.72435, 1.34516, 0.77581,
236 + 0.01019, 1.04621, 1.34840,
237 + 0.01530, 0.01474, 47.11535, 1.65912, 1.09370,
238 + 0.24213, 1.36228, 1.66247,
239 + 0.01631, 0.01532, 54.60041, 1.97569, 1.41383,
240 + 0.58724, 1.68076, 1.97915,
241 + 0.01727, 0.01587, 62.11357, 2.29242, 1.73382,
242 + 0.92243, 1.99925, 2.29599,
243 + 0.01819, 0.01638, 69.58585, 2.60676, 2.05118,
244 + 1.25351, 2.31521, 2.61042 /
245 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=8,14)/
246 + 0.01906, 0.01688, 77.00473, 2.92000, 2.36722,
247 + 1.58220, 2.62996, 2.92376,
248 + 0.01990, 0.01735, 84.33237, 3.23082, 2.68065,
249 + 1.90724, 2.94218, 3.23466,
250 + 0.02070, 0.01780, 91.54472, 3.53854, 2.99083,
251 + 2.22816, 3.25122, 3.54247,
252 + 0.02148, 0.01824, 98.64532, 3.84386, 3.29846,
253 + 2.54577, 3.55779, 3.84786,
254 + 0.02223, 0.01865, 105.63778, 4.14707, 3.60385,
255 + 2.86047, 3.86216, 4.15114,
256 + 0.02295, 0.01906, 112.53145, 4.44852, 3.90738,
257 + 3.17272, 4.16474, 4.45267,
258 + 0.02365, 0.01945, 119.22063, 4.74344, 4.20427,
259 + 3.47782, 4.46072, 4.74765 /
260 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=15,19)/
261 + 0.02433, 0.01982, 125.80739, 5.03657, 4.49929,
262 + 3.78057, 4.75486, 5.04085,
263 + 0.02499, 0.02019, 132.29031, 5.32761, 4.79213,
264 + 4.08072, 5.04687, 5.33196,
265 + 0.02563, 0.02054, 138.56662, 5.61218, 5.07842,
266 + 4.37394, 5.33236, 5.61658,
267 + 0.02625, 0.02088, 144.79092, 5.89673, 5.36463,
268 + 4.66674, 5.61780, 5.90119,
269 + 0.02686, 0.02122, 150.79224, 6.17400, 5.64349,
270 + 4.95187, 5.89593, 6.17852 /
271 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/
272 + 0.01784, 0.01668, 20.05825, 0.64939, 0.10686,
273 + 0.00000, 0.36425, 0.65272,
274 + 0.01965, 0.01770, 25.20509, 0.89038, 0.35320,
275 + 0.00000, 0.60808, 0.89386,
276 + 0.02130, 0.01862, 30.42582, 1.12707, 0.59455,
277 + 0.00761, 0.84725, 1.13068,
278 + 0.02282, 0.01947, 35.62016, 1.35667, 0.82829,
279 + 0.17844, 1.07904, 1.36040,
280 + 0.02424, 0.02026, 40.79804, 1.58504, 1.06041,
281 + 0.42995, 1.30940, 1.58887,
282 + 0.02559, 0.02100, 45.92116, 1.81091, 1.28971,
283 + 0.67126, 1.53709, 1.81485,
284 + 0.02687, 0.02170, 50.94894, 2.03280, 1.51477,
285 + 0.90718, 1.76066, 2.03683 /
286 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=8,14)/
287 + 0.02808, 0.02237, 55.88126, 2.25183, 1.73675,
288 + 1.13915, 1.98126, 2.25595,
289 + 0.02925, 0.02300, 60.69846, 2.46728, 1.95495,
290 + 1.36652, 2.19816, 2.47149,
291 + 0.03036, 0.02361, 65.39013, 2.67885, 2.16912,
292 + 1.58916, 2.41111, 2.68314,
293 + 0.03143, 0.02419, 69.96445, 2.88719, 2.37989,
294 + 1.80781, 2.62073, 2.89155,
295 + 0.03246, 0.02475, 74.42881, 3.09261, 2.58761,
296 + 2.02288, 2.82738, 3.09705,
297 + 0.03345, 0.02528, 78.79345, 3.29551, 2.79270,
298 + 2.23484, 3.03143, 3.30002,
299 + 0.03441, 0.02580, 82.99005, 3.49269, 2.99197,
300 + 2.44058, 3.22972, 3.49727 /
301 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=15,19)/
302 + 0.03534, 0.02630, 87.09189, 3.68753, 3.18879,
303 + 2.64350, 3.42560, 3.69218,
304 + 0.03624, 0.02678, 91.10059, 3.87989, 3.38306,
305 + 2.84353, 3.61898, 3.88461,
306 + 0.03711, 0.02725, 94.94978, 4.06687, 3.57186,
307 + 3.03779, 3.80692, 4.07165,
308 + 0.03796, 0.02770, 98.74551, 4.25296, 3.75969,
309 + 3.23081, 3.99393, 4.25780,
310 + 0.03878, 0.02814, 102.37583, 4.43327, 3.94168,
311 + 3.41774, 4.17513, 4.43817 /
312 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/
313 + 0.02677, 0.02201, 15.77720, 0.59273, 0.08675,
314 + 0.00000, 0.32699, 0.59684,
315 + 0.02933, 0.02341, 19.50018, 0.77156, 0.27127,
316 + 0.00000, 0.50885, 0.77588,
317 + 0.03166, 0.02466, 23.19359, 0.94432, 0.44898,
318 + 0.00562, 0.68424, 0.94881,
319 + 0.03380, 0.02581, 26.79719, 1.10977, 0.61883,
320 + 0.13008, 0.85204, 1.11442,
321 + 0.03579, 0.02688, 30.33009, 1.27224, 0.78529,
322 + 0.31146, 1.01663, 1.27704,
323 + 0.03767, 0.02789, 33.77290, 1.43114, 0.94785,
324 + 0.48344, 1.17748, 1.43608,
325 + 0.03945, 0.02883, 37.10410, 1.58569, 1.10578,
326 + 0.64988, 1.33383, 1.59076 /
327 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=8,14)/
328 + 0.04113, 0.02972, 40.33062, 1.73679, 1.26002,
329 + 0.81196, 1.48660, 1.74199,
330 + 0.04273, 0.03057, 43.44416, 1.88412, 1.41029,
331 + 0.96940, 1.63549, 1.88944,
332 + 0.04426, 0.03138, 46.44238, 2.02761, 1.55654,
333 + 1.12229, 1.78045, 2.03304,
334 + 0.04573, 0.03215, 49.33528, 2.16779, 1.69932,
335 + 1.27124, 1.92202, 2.17333,
336 + 0.04713, 0.03289, 52.13140, 2.30502, 1.83901,
337 + 1.41667, 2.06055, 2.31066,
338 + 0.04849, 0.03360, 54.84068, 2.43963, 1.97596,
339 + 1.55899, 2.19641, 2.44538,
340 + 0.04979, 0.03429, 57.41934, 2.56955, 2.10810,
341 + 1.69619, 2.32751, 2.57539 /
342 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=15,19)/
343 + 0.05105, 0.03495, 59.91969, 2.69714, 2.23781,
344 + 1.83067, 2.45622, 2.70308,
345 + 0.05227, 0.03558, 62.34460, 2.82239, 2.36508,
346 + 1.96244, 2.58255, 2.82842,
347 + 0.05345, 0.03619, 64.65158, 2.94337, 2.48801,
348 + 2.08963, 2.70456, 2.94948,
349 + 0.05459, 0.03679, 66.91292, 3.06318, 2.60968,
350 + 2.21536, 2.82537, 3.06938,
351 + 0.05570, 0.03736, 69.05586, 3.17858, 2.72687,
352 + 2.33641, 2.94171, 3.18485 /
353 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/
354 + 0.03384, 0.02599, 13.66262, 0.56034, 0.07632,
355 + 0.00000, 0.30639, 0.56512,
356 + 0.03698, 0.02766, 16.71935, 0.70863, 0.23054,
357 + 0.00000, 0.45786, 0.71367,
358 + 0.03982, 0.02917, 19.71086, 0.85086, 0.37793,
359 + 0.00467, 0.60286, 0.85613,
360 + 0.04242, 0.03054, 22.59473, 0.98619, 0.51785,
361 + 0.10739, 0.74065, 0.99167,
362 + 0.04484, 0.03181, 25.39314, 1.11811, 0.65394,
363 + 0.25622, 0.87481, 1.12378,
364 + 0.04711, 0.03300, 28.09462, 1.24630, 0.78595,
365 + 0.39637, 1.00505, 1.25216,
366 + 0.04925, 0.03412, 30.68545, 1.37025, 0.91342,
367 + 0.53120, 1.13089, 1.37627 /
368 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=8,14)/
369 + 0.05127, 0.03518, 33.17494, 1.49075, 1.03720,
370 + 0.66173, 1.25315, 1.49693,
371 + 0.05320, 0.03619, 35.55912, 1.60762, 1.15714,
372 + 0.78786, 1.37166, 1.61396,
373 + 0.05503, 0.03714, 37.83856, 1.72087, 1.27327,
374 + 0.90972, 1.48646, 1.72735,
375 + 0.05678, 0.03805, 40.02342, 1.83099, 1.38611,
376 + 1.02787, 1.59804, 1.83762,
377 + 0.05847, 0.03892, 42.12228, 1.93831, 1.49599,
378 + 1.14271, 1.70674, 1.94507,
379 + 0.06008, 0.03976, 44.14441, 2.04316, 1.60327,
380 + 1.25462, 1.81289, 2.05004,
381 + 0.06163, 0.04056, 46.05630, 2.14392, 1.70635,
382 + 1.36206, 1.91489, 2.15092 /
383 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=15,19)/
384 + 0.06313, 0.04133, 47.90068, 2.24249, 1.80714,
385 + 1.46695, 2.01465, 2.24962,
386 + 0.06457, 0.04207, 49.68069, 2.33892, 1.90568,
387 + 1.56936, 2.11221, 2.34616,
388 + 0.06596, 0.04279, 51.36375, 2.43170, 2.00049,
389 + 1.66784, 2.20608, 2.43905,
390 + 0.06732, 0.04348, 53.00735, 2.52330, 2.09404,
391 + 1.76488, 2.29873, 2.53077,
392 + 0.06862, 0.04415, 54.55517, 2.61120, 2.18381,
393 + 1.85797, 2.38763, 2.61877 /
394 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/
395 + 0.03993, 0.02932, 12.30660, 0.53746, 0.06952,
396 + 0.00000, 0.29218, 0.54282,
397 + 0.04355, 0.03122, 14.95107, 0.66647, 0.20464,
398 + 0.00000, 0.42449, 0.67213,
399 + 0.04681, 0.03293, 17.51349, 0.78966, 0.33317,
400 + 0.00409, 0.55056, 0.79560,
401 + 0.04978, 0.03448, 19.96186, 0.90635, 0.45461,
402 + 0.09337, 0.66982, 0.91254,
403 + 0.05255, 0.03592, 22.31970, 1.01952, 0.57207,
404 + 0.22221, 0.78531, 1.02594,
405 + 0.05514, 0.03727, 24.57994, 1.12898, 0.68548,
406 + 0.34293, 0.89690, 1.13562,
407 + 0.05758, 0.03853, 26.73329, 1.23436, 0.79450,
408 + 0.45856, 1.00425, 1.24120 /
409 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=8,14)/
410 + 0.05988, 0.03972, 28.79006, 1.33639, 0.89992,
411 + 0.57005, 1.10811, 1.34343,
412 + 0.06206, 0.04085, 30.74858, 1.43497, 1.00167,
413 + 0.67736, 1.20840, 1.44219,
414 + 0.06414, 0.04192, 32.61092, 1.53014, 1.09981,
415 + 0.78065, 1.30518, 1.53754,
416 + 0.06612, 0.04294, 34.38702, 1.62237, 1.19484,
417 + 0.88044, 1.39892, 1.62993,
418 + 0.06802, 0.04391, 36.08525, 1.71196, 1.28708,
419 + 0.97712, 1.48994, 1.71967,
420 + 0.06984, 0.04484, 37.71435, 1.79921, 1.37684,
421 + 1.07105, 1.57855, 1.80708,
422 + 0.07159, 0.04573, 39.24672, 1.88279, 1.46282,
423 + 1.16093, 1.66342, 1.89081 /
424 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=15,19)/
425 + 0.07327, 0.04659, 40.71925, 1.96434, 1.54665,
426 + 1.24845, 1.74621, 1.97250,
427 + 0.07489, 0.04742, 42.13503, 2.04390, 1.62840,
428 + 1.33367, 1.82695, 2.05219,
429 + 0.07646, 0.04822, 43.46724, 2.12023, 1.70682,
430 + 1.41538, 1.90441, 2.12865,
431 + 0.07797, 0.04899, 44.76455, 2.19543, 1.78402,
432 + 1.49571, 1.98069, 2.20398,
433 + 0.07943, 0.04973, 45.98016, 2.26738, 1.85790,
434 + 1.57256, 2.05368, 2.27605 /
435 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/
436 + 0.04544, 0.03232, 11.31137, 0.51949, 0.06475,
437 + 0.00000, 0.28121, 0.52522,
438 + 0.04945, 0.03443, 13.65905, 0.63506, 0.18659,
439 + 0.00000, 0.40017, 0.64113,
440 + 0.05307, 0.03631, 15.91589, 0.74479, 0.30180,
441 + 0.00367, 0.51286, 0.75116,
442 + 0.05636, 0.03802, 18.05700, 0.84826, 0.41014,
443 + 0.08343, 0.61896, 0.85490,
444 + 0.05942, 0.03961, 20.10622, 0.94814, 0.51444,
445 + 0.19812, 0.72123, 0.95505,
446 + 0.06227, 0.04108, 22.05949, 1.04439, 0.61472,
447 + 0.30512, 0.81966, 1.05153,
448 + 0.06495, 0.04247, 23.91000, 1.13671, 0.71078,
449 + 0.40726, 0.91400, 1.14408 /
450 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=8,14)/
451 + 0.06748, 0.04377, 25.66904, 1.22579, 0.80334,
452 + 0.50539, 1.00496, 1.23337,
453 + 0.06988, 0.04500, 27.33588, 1.31157, 0.89236,
454 + 0.59953, 1.09250, 1.31936,
455 + 0.07215, 0.04616, 28.91352, 1.39416, 0.97799,
456 + 0.68988, 1.17673, 1.40213,
457 + 0.07432, 0.04727, 30.41193, 1.47395, 1.06065,
458 + 0.77692, 1.25807, 1.48210,
459 + 0.07639, 0.04833, 31.83911, 1.55124, 1.14066,
460 + 0.86102, 1.33684, 1.55957,
461 + 0.07838, 0.04934, 33.20328, 1.62635, 1.21834,
462 + 0.94251, 1.41333, 1.63484,
463 + 0.08028, 0.05031, 34.48087, 1.69810, 1.29254,
464 + 1.02030, 1.48641, 1.70675 /
465 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=15,19)/
466 + 0.08211, 0.05124, 35.70431, 1.76794, 1.36472,
467 + 1.09585, 1.55751, 1.77675,
468 + 0.08388, 0.05214, 36.87663, 1.83593, 1.43494,
469 + 1.16927, 1.62671, 1.84489,
470 + 0.08558, 0.05300, 37.97540, 1.90102, 1.50216,
471 + 1.23951, 1.69295, 1.91012,
472 + 0.08723, 0.05383, 39.04290, 1.96502, 1.56822,
473 + 1.30843, 1.75807, 1.97426,
474 + 0.08881, 0.05463, 40.03866, 2.02611, 1.63128,
475 + 1.37422, 1.82022, 2.03548 /
476 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/
477 + 0.06768, 0.04415, 8.61584, 0.46308, 0.05142,
478 + 0.00000, 0.24796, 0.47059,
479 + 0.07319, 0.04700, 10.20898, 0.54291, 0.13808,
480 + 0.00000, 0.33152, 0.55091,
481 + 0.07812, 0.04954, 11.70121, 0.61754, 0.21867,
482 + 0.00258, 0.40941, 0.62598,
483 + 0.08256, 0.05183, 13.08360, 0.68701, 0.29342,
484 + 0.05790, 0.48176, 0.69584,
485 + 0.08666, 0.05393, 14.37958, 0.75315, 0.36435,
486 + 0.13658, 0.55052, 0.76235,
487 + 0.09047, 0.05588, 15.59109, 0.81610, 0.43169,
488 + 0.20904, 0.61587, 0.82565,
489 + 0.09403, 0.05769, 16.71752, 0.87581, 0.49544,
490 + 0.27742, 0.67778, 0.88567 /
491 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=8,14)/
492 + 0.09736, 0.05938, 17.77018, 0.93280, 0.55618,
493 + 0.34240, 0.73682, 0.94296,
494 + 0.10051, 0.06097, 18.75124, 0.98712, 0.61399,
495 + 0.40410, 0.79305, 0.99756,
496 + 0.10347, 0.06247, 19.66505, 1.03890, 0.66904,
497 + 0.46274, 0.84661, 1.04960,
498 + 0.10629, 0.06389, 20.52015, 1.08846, 0.72169,
499 + 0.51871, 0.89786, 1.09941,
500 + 0.10897, 0.06524, 21.32339, 1.13605, 0.77219,
501 + 0.57231, 0.94704, 1.14723,
502 + 0.11154, 0.06653, 22.08137, 1.18190, 0.82081,
503 + 0.62383, 0.99441, 1.19332,
504 + 0.11398, 0.06775, 22.77973, 1.22533, 0.86687,
505 + 0.67259, 1.03927, 1.23696 /
506 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=15,19)/
507 + 0.11632, 0.06892, 23.44060, 1.26729, 0.91132,
508 + 0.71960, 1.08259, 1.27912,
509 + 0.11857, 0.07004, 24.06660, 1.30783, 0.95425,
510 + 0.76495, 1.12444, 1.31987,
511 + 0.12072, 0.07111, 24.64403, 1.34632, 0.99503,
512 + 0.80801, 1.16418, 1.35855,
513 + 0.12280, 0.07214, 25.20043, 1.38396, 1.03485,
514 + 0.85000, 1.20301, 1.39637,
515 + 0.12480, 0.07313, 25.71060, 1.41958, 1.07257,
516 + 0.88977, 1.23977, 1.43216 /
517 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/
518 + 0.10038, 0.06152, 6.39838, 0.40386, 0.04028,
519 + 0.00000, 0.21467, 0.41396,
520 + 0.10775, 0.06531, 7.43979, 0.45628, 0.10009,
521 + 0.00000, 0.27117, 0.46708,
522 + 0.11426, 0.06864, 8.38713, 0.50450, 0.15473,
523 + 0.00177, 0.32293, 0.51592,
524 + 0.12008, 0.07161, 9.24073, 0.54876, 0.20467,
525 + 0.03897, 0.37032, 0.56073,
526 + 0.12540, 0.07430, 10.02179, 0.59029, 0.25132,
527 + 0.09130, 0.41467, 0.60277,
528 + 0.13031, 0.07678, 10.73483, 0.62929, 0.29500,
529 + 0.13880, 0.45625, 0.64224,
530 + 0.13485, 0.07906, 11.38255, 0.66583, 0.33584,
531 + 0.18310, 0.49516, 0.67920 /
532 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=8,14)/
533 + 0.13908, 0.08117, 11.97523, 0.70027, 0.37426,
534 + 0.22469, 0.53180, 0.71404,
535 + 0.14304, 0.08315, 12.51620, 0.73272, 0.41042,
536 + 0.26374, 0.56629, 0.74686,
537 + 0.14676, 0.08499, 13.00955, 0.76331, 0.44447,
538 + 0.30046, 0.59878, 0.77780,
539 + 0.15026, 0.08672, 13.46212, 0.79227, 0.47669,
540 + 0.33515, 0.62954, 0.80708,
541 + 0.15358, 0.08836, 13.87946, 0.81980, 0.50729,
542 + 0.36805, 0.65876, 0.83492,
543 + 0.15674, 0.08991, 14.26664, 0.84607, 0.53647,
544 + 0.39937, 0.68664, 0.86149,
545 + 0.15972, 0.09137, 14.61512, 0.87068, 0.56383,
546 + 0.42875, 0.71276, 0.88637 /
547 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=15,19)/
548 + 0.16257, 0.09276, 14.93951, 0.89425, 0.59002,
549 + 0.45683, 0.73777, 0.91020,
550 + 0.16530, 0.09409, 15.24181, 0.91684, 0.61510,
551 + 0.48370, 0.76174, 0.93305,
552 + 0.16790, 0.09534, 15.51394, 0.93806, 0.63870,
553 + 0.50899, 0.78426, 0.95450,
554 + 0.17040, 0.09655, 15.77335, 0.95866, 0.66159,
555 + 0.53348, 0.80612, 0.97533,
556 + 0.17278, 0.09770, 16.00476, 0.97795, 0.68306,
557 + 0.55647, 0.82661, 0.99484 /
558 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/
559 + 0.12610, 0.07531, 5.29865, 0.36750, 0.03459,
560 + -0.00001, 0.19502, 0.37986,
561 + 0.13467, 0.07969, 6.09709, 0.40718, 0.08192,
562 + -0.00001, 0.23895, 0.42039,
563 + 0.14219, 0.08351, 6.80911, 0.44333, 0.12471,
564 + 0.00138, 0.27879, 0.45729,
565 + 0.14888, 0.08687, 7.43835, 0.47623, 0.16346,
566 + 0.03040, 0.31493, 0.49085,
567 + 0.15494, 0.08992, 8.00421, 0.50683, 0.19933,
568 + 0.07093, 0.34845, 0.52204,
569 + 0.16051, 0.09268, 8.51220, 0.53532, 0.23262,
570 + 0.10741, 0.37961, 0.55108,
571 + 0.16562, 0.09522, 8.96579, 0.56179, 0.26349,
572 + 0.14117, 0.40852, 0.57805 /
573 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=8,14)/
574 + 0.17037, 0.09755, 9.37393, 0.58654, 0.29232,
575 + 0.17262, 0.43553, 0.60326,
576 + 0.17479, 0.09972, 9.74081, 0.60968, 0.31924,
577 + 0.20195, 0.46077, 0.62682,
578 + 0.17892, 0.10173, 10.06995, 0.63132, 0.34440,
579 + 0.22933, 0.48435, 0.64885,
580 + 0.18279, 0.10360, 10.36721, 0.65165, 0.36805,
581 + 0.25503, 0.50651, 0.66955,
582 + 0.18645, 0.10537, 10.63731, 0.67084, 0.39035,
583 + 0.27925, 0.52743, 0.68909,
584 + 0.18991, 0.10703, 10.88445, 0.68904, 0.41150,
585 + 0.30217, 0.54726, 0.70761,
586 + 0.19317, 0.10858, 11.10213, 0.70595, 0.43120,
587 + 0.32354, 0.56572, 0.72483 /
588 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=15,19)/
589 + 0.19627, 0.11006, 11.30211, 0.72204, 0.44993,
590 + 0.34385, 0.58327, 0.74121,
591 + 0.19922, 0.11146, 11.48601, 0.73737, 0.46778,
592 + 0.36318, 0.59999, 0.75681,
593 + 0.20202, 0.11278, 11.64761, 0.75165, 0.48446,
594 + 0.38126, 0.61559, 0.77135,
595 + 0.20471, 0.11405, 11.80025, 0.76545, 0.50057,
596 + 0.39870, 0.63067, 0.78540,
597 + 0.20727, 0.11524, 11.93268, 0.77827, 0.51559,
598 + 0.41498, 0.64470, 0.79845 /
599 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/
600 + 0.14803, 0.08722, 4.59800, 0.34083, 0.03090,
601 + -0.00001, 0.18093, 0.35524,
602 + 0.15748, 0.09200, 5.25438, 0.37279, 0.07066,
603 + -0.00001, 0.21725, 0.38818,
604 + 0.16572, 0.09614, 5.83030, 0.40173, 0.10632,
605 + 0.00115, 0.24994, 0.41795,
606 + 0.17299, 0.09976, 6.33107, 0.42789, 0.13841,
607 + 0.02528, 0.27940, 0.44485,
608 + 0.17957, 0.10300, 6.77501, 0.45205, 0.16789,
609 + 0.05880, 0.30652, 0.46966,
610 + 0.18557, 0.10594, 7.16787, 0.47439, 0.19508,
611 + 0.08877, 0.33157, 0.49260,
612 + 0.19105, 0.10861, 7.51347, 0.49501, 0.22014,
613 + 0.11634, 0.35466, 0.51376 /
614 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=8,14)/
615 + 0.19613, 0.11106, 7.82012, 0.51417, 0.24339,
616 + 0.14189, 0.37609, 0.53342,
617 + 0.20082, 0.11332, 8.09182, 0.53196, 0.26498,
618 + 0.16558, 0.39600, 0.55167,
619 + 0.20520, 0.11540, 8.33199, 0.54849, 0.28505,
620 + 0.18758, 0.41448, 0.56861,
621 + 0.20928, 0.11734, 8.54581, 0.56393, 0.30380,
622 + 0.20813, 0.43176, 0.58444,
623 + 0.21313, 0.11915, 8.73740, 0.57841, 0.32140,
624 + 0.22739, 0.44797, 0.59929,
625 + 0.21675, 0.12085, 8.91042, 0.59206, 0.33800,
626 + 0.24555, 0.46327, 0.61329,
627 + 0.22015, 0.12243, 9.05964, 0.60467, 0.35339,
628 + 0.26239, 0.47741, 0.62621 /
629 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=15,19)/
630 + 0.22337, 0.12392, 9.19486, 0.61659, 0.36795,
631 + 0.27832, 0.49080, 0.63843,
632 + 0.22644, 0.12533, 9.31747, 0.62789, 0.38177,
633 + 0.29342, 0.50349, 0.65001,
634 + 0.22933, 0.12665, 9.42245, 0.63834, 0.39461,
635 + 0.30748, 0.51526, 0.66073,
636 + 0.23210, 0.12792, 9.52071, 0.64841, 0.40696,
637 + 0.32099, 0.52659, 0.67105,
638 + 0.23472, 0.12910, 9.60318, 0.65768, 0.41842,
639 + 0.33355, 0.53707, 0.68055 /
640 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/
641 + 0.16748, 0.09785, 4.09947, 0.31969, 0.02823,
642 + 0.00000, 0.16998, 0.33606,
643 + 0.17759, 0.10292, 4.66121, 0.34639, 0.06278,
644 + 0.00000, 0.20108, 0.36382,
645 + 0.18636, 0.10727, 5.14709, 0.37042, 0.09358,
646 + 0.00100, 0.22891, 0.38877,
647 + 0.19407, 0.11104, 5.56341, 0.39204, 0.12114,
648 + 0.02179, 0.25384, 0.41116,
649 + 0.20100, 0.11441, 5.92782, 0.41188, 0.14632,
650 + 0.05057, 0.27667, 0.43171,
651 + 0.20729, 0.11744, 6.24610, 0.43012, 0.16941,
652 + 0.07616, 0.29762, 0.45058,
653 + 0.21303, 0.12018, 6.52246, 0.44687, 0.19059,
654 + 0.09960, 0.31684, 0.46789 /
655 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=8,14)/
656 + 0.21830, 0.12267, 6.76435, 0.46232, 0.21013,
657 + 0.12120, 0.33457, 0.48386,
658 + 0.22318, 0.12496, 6.97560, 0.47660, 0.22819,
659 + 0.14114, 0.35095, 0.49861,
660 + 0.22769, 0.12706, 7.15981, 0.48979, 0.24491,
661 + 0.15959, 0.36611, 0.51223,
662 + 0.23190, 0.12900, 7.32142, 0.50204, 0.26046,
663 + 0.17674, 0.38019, 0.52487,
664 + 0.23584, 0.13081, 7.46428, 0.51346, 0.27499,
665 + 0.19276, 0.39334, 0.53667,
666 + 0.23955, 0.13250, 7.59165, 0.52417, 0.28863,
667 + 0.20779, 0.40568, 0.54773,
668 + 0.24300, 0.13406, 7.69881, 0.53399, 0.30120,
669 + 0.22167, 0.41702, 0.55787 /
670 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=15,19)/
671 + 0.24628, 0.13554, 7.79458, 0.54324, 0.31307,
672 + 0.23476, 0.42772, 0.56741,
673 + 0.24938, 0.13692, 7.88015, 0.55196, 0.32428,
674 + 0.24712, 0.43782, 0.57641,
675 + 0.25229, 0.13821, 7.95121, 0.55997, 0.33466,
676 + 0.25859, 0.44714, 0.58468,
677 + 0.25509, 0.13945, 8.01701, 0.56766, 0.34461,
678 + 0.26958, 0.45608, 0.59262,
679 + 0.25771, 0.14059, 8.06985, 0.57468, 0.35379,
680 + 0.27973, 0.46429, 0.59986 /
681 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/
682 + 0.24419, 0.14014, 2.79566, 0.25224, 0.02089,
683 + 0.00000, 0.13632, 0.27748,
684 + 0.25595, 0.14557, 3.13467, 0.26619, 0.04257,
685 + 0.00000, 0.15464, 0.29264,
686 + 0.26590, 0.15008, 3.41080, 0.27849, 0.06150,
687 + 0.00062, 0.17067, 0.30593,
688 + 0.27446, 0.15387, 3.63307, 0.28929, 0.07808,
689 + 0.01330, 0.18471, 0.31756,
690 + 0.28200, 0.15716, 3.81685, 0.29896, 0.09292,
691 + 0.03060, 0.19728, 0.32794,
692 + 0.28872, 0.16003, 3.96810, 0.30764, 0.10627,
693 + 0.04570, 0.20857, 0.33723,
694 + 0.29473, 0.16255, 4.09096, 0.31537, 0.11826,
695 + 0.05928, 0.21867, 0.34550 /
696 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=8,14)/
697 + 0.30015, 0.16478, 4.19167, 0.32234, 0.12913,
698 + 0.07160, 0.22781, 0.35293,
699 + 0.30507, 0.16678, 4.27336, 0.32860, 0.13899,
700 + 0.08277, 0.23606, 0.35959,
701 + 0.30956, 0.16855, 4.33881, 0.33420, 0.14794,
702 + 0.09294, 0.24351, 0.36556,
703 + 0.31366, 0.17016, 4.39139, 0.33926, 0.15612,
704 + 0.10224, 0.25030, 0.37095,
705 + 0.31744, 0.17161, 4.43360, 0.34386, 0.16364,
706 + 0.11080, 0.25650, 0.37583,
707 + 0.32096, 0.17294, 4.46755, 0.34806, 0.17059,
708 + 0.11873, 0.26222, 0.38030,
709 + 0.32416, 0.17413, 4.49085, 0.35177, 0.17688,
710 + 0.12592, 0.26734, 0.38423 /
711 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=15,19)/
712 + 0.32716, 0.17522, 4.50865, 0.35517, 0.18273,
713 + 0.13262, 0.27208, 0.38784,
714 + 0.32997, 0.17622, 4.52167, 0.35829, 0.18817,
715 + 0.13887, 0.27647, 0.39116,
716 + 0.33254, 0.17713, 4.52744, 0.36103, 0.19310,
717 + 0.14456, 0.28040, 0.39405,
718 + 0.33499, 0.17798, 4.53140, 0.36361, 0.19778,
719 + 0.14996, 0.28413, 0.39679,
720 + 0.33724, 0.17873, 4.52925, 0.36585, 0.20201,
721 + 0.15487, 0.28744, 0.39916 /
722 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/
723 + 0.35111, 0.19714, 1.86020, 0.18489, 0.01497,
724 + -0.00002, 0.10460, 0.22397,
725 + 0.36249, 0.20108, 2.05100, 0.19073, 0.02794,
726 + -0.00001, 0.11438, 0.23055,
727 + 0.37170, 0.20408, 2.19024, 0.19561, 0.03890,
728 + 0.00035, 0.12259, 0.23596,
729 + 0.37926, 0.20637, 2.28925, 0.19964, 0.04819,
730 + 0.00762, 0.12948, 0.24035,
731 + 0.38564, 0.20818, 2.36156, 0.20303, 0.05626,
732 + 0.01735, 0.13539, 0.24398,
733 + 0.39109, 0.20960, 2.41274, 0.20585, 0.06328,
734 + 0.02560, 0.14047, 0.24699,
735 + 0.39574, 0.21069, 2.44654, 0.20817, 0.06941,
736 + 0.03284, 0.14483, 0.24942 /
737 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=8,14)/
738 + 0.39975, 0.21155, 2.46789, 0.21009, 0.07482,
739 + 0.03925, 0.14860, 0.25140,
740 + 0.40322, 0.21221, 2.47914, 0.21165, 0.07957,
741 + 0.04492, 0.15185, 0.25297,
742 + 0.40623, 0.21268, 2.48220, 0.21289, 0.08377,
743 + 0.04997, 0.15464, 0.25419,
744 + 0.40887, 0.21301, 2.47939, 0.21387, 0.08750,
745 + 0.05448, 0.15706, 0.25513,
746 + 0.41118, 0.21325, 2.47221, 0.21465, 0.09083,
747 + 0.05854, 0.15917, 0.25585,
748 + 0.41323, 0.21340, 2.46187, 0.21526, 0.09384,
749 + 0.06222, 0.16103, 0.25639,
750 + 0.41499, 0.21343, 2.44706, 0.21564, 0.09647,
751 + 0.06549, 0.16257, 0.25667 /
752 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=15,19)/
753 + 0.41654, 0.21341, 2.43065, 0.21590, 0.09886,
754 + 0.06846, 0.16393, 0.25683,
755 + 0.41791, 0.21335, 2.41297, 0.21607, 0.10102,
756 + 0.07119, 0.16512, 0.25688,
757 + 0.41907, 0.21320, 2.39269, 0.21607, 0.10291,
758 + 0.07360, 0.16609, 0.25675,
759 + 0.42015, 0.21303, 2.37264, 0.21603, 0.10467,
760 + 0.07586, 0.16697, 0.25659,
761 + 0.42102, 0.21280, 2.35049, 0.21584, 0.10619,
762 + 0.07785, 0.16765, 0.25627 /
763 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/
764 + 0.42907, 0.23418, 1.47819, 0.14703, 0.01209,
765 + 0.00000, 0.08733, 0.19523,
766 + 0.43796, 0.23560, 1.59814, 0.14970, 0.02138,
767 + 0.00000, 0.09346, 0.19776,
768 + 0.44468, 0.23633, 1.67494, 0.15169, 0.02897,
769 + 0.00026, 0.09834, 0.19950,
770 + 0.44978, 0.23651, 1.72030, 0.15311, 0.03522,
771 + 0.00527, 0.10223, 0.20058,
772 + 0.45377, 0.23637, 1.74629, 0.15410, 0.04049,
773 + 0.01187, 0.10539, 0.20121,
774 + 0.45686, 0.23598, 1.75777, 0.15475, 0.04497,
775 + 0.01736, 0.10796, 0.20146,
776 + 0.45924, 0.23539, 1.75797, 0.15509, 0.04876,
777 + 0.02206, 0.11003, 0.20139 /
778 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=8,14)/
779 + 0.46106, 0.23465, 1.75075, 0.15520, 0.05200,
780 + 0.02612, 0.11168, 0.20105,
781 + 0.46240, 0.23381, 1.73789, 0.15511, 0.05479,
782 + 0.02965, 0.11300, 0.20054,
783 + 0.46335, 0.23288, 1.72084, 0.15485, 0.05719,
784 + 0.03274, 0.11404, 0.19986,
785 + 0.46399, 0.23190, 1.70110, 0.15447, 0.05925,
786 + 0.03544, 0.11485, 0.19904,
787 + 0.46439, 0.23088, 1.67969, 0.15399, 0.06105,
788 + 0.03782, 0.11547, 0.19815,
789 + 0.46460, 0.22984, 1.65737, 0.15345, 0.06262,
790 + 0.03995, 0.11595, 0.19721,
791 + 0.46455, 0.22874, 1.63319, 0.15279, 0.06395,
792 + 0.04180, 0.11624, 0.19614 /
793 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=15,19)/
794 + 0.46437, 0.22765, 1.60900, 0.15210, 0.06513,
795 + 0.04344, 0.11644, 0.19505,
796 + 0.46409, 0.22656, 1.58493, 0.15138, 0.06616,
797 + 0.04492, 0.11654, 0.19393,
798 + 0.46363, 0.22543, 1.56008, 0.15059, 0.06702,
799 + 0.04620, 0.11653, 0.19274,
800 + 0.46314, 0.22434, 1.53619, 0.14981, 0.06781,
801 + 0.04738, 0.11649, 0.19158,
802 + 0.46249, 0.22321, 1.51173, 0.14895, 0.06844,
803 + 0.04840, 0.11633, 0.19036 /
804 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/
805 + 0.48971, 0.25836, 1.26878, 0.12090, 0.01018,
806 + 0.00000, 0.07514, 0.17407,
807 + 0.49497, 0.25702, 1.34015, 0.12184, 0.01730,
808 + 0.00000, 0.07908, 0.17392,
809 + 0.49836, 0.25527, 1.37658, 0.12225, 0.02293,
810 + 0.00019, 0.08202, 0.17334,
811 + 0.50032, 0.25330, 1.38917, 0.12229, 0.02744,
812 + 0.00392, 0.08417, 0.17237,
813 + 0.50137, 0.25120, 1.38823, 0.12205, 0.03115,
814 + 0.00876, 0.08578, 0.17118,
815 + 0.50170, 0.24905, 1.37774, 0.12160, 0.03420,
816 + 0.01269, 0.08696, 0.16981,
817 + 0.50145, 0.24682, 1.36033, 0.12096, 0.03670,
818 + 0.01598, 0.08778, 0.16832 /
819 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=8,14)/
820 + 0.50081, 0.24459, 1.33898, 0.12021, 0.03880,
821 + 0.01880, 0.08832, 0.16673,
822 + 0.49980, 0.24238, 1.31489, 0.11936, 0.04055,
823 + 0.02119, 0.08865, 0.16507,
824 + 0.49853, 0.24018, 1.28910, 0.11844, 0.04200,
825 + 0.02322, 0.08880, 0.16336,
826 + 0.49707, 0.23801, 1.26261, 0.11745, 0.04321,
827 + 0.02498, 0.08880, 0.16165,
828 + 0.49548, 0.23588, 1.23604, 0.11644, 0.04424,
829 + 0.02650, 0.08870, 0.15995,
830 + 0.49378, 0.23381, 1.20982, 0.11542, 0.04510,
831 + 0.02784, 0.08852, 0.15827,
832 + 0.49192, 0.23174, 1.18322, 0.11436, 0.04580,
833 + 0.02897, 0.08823, 0.15655 /
834 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=15,19)/
835 + 0.49001, 0.22974, 1.15744, 0.11331, 0.04640,
836 + 0.02997, 0.08789, 0.15487,
837 + 0.48807, 0.22780, 1.13248, 0.11227, 0.04690,
838 + 0.03085, 0.08752, 0.15322,
839 + 0.48603, 0.22587, 1.10772, 0.11119, 0.04728,
840 + 0.03159, 0.08708, 0.15157,
841 + 0.48404, 0.22401, 1.08422, 0.11015, 0.04761,
842 + 0.03227, 0.08663, 0.15000,
843 + 0.48193, 0.22217, 1.06092, 0.10909, 0.04784,
844 + 0.03282, 0.08613, 0.14840 /
845 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/
846 + 0.53736, 0.27314, 1.13097, 0.10088, 0.00871,
847 + 0.00000, 0.06527, 0.15565,
848 + 0.53839, 0.26906, 1.16509, 0.10072, 0.01433,
849 + 0.00000, 0.06771, 0.15362,
850 + 0.53793, 0.26500, 1.17234, 0.10021, 0.01864,
851 + 0.00014, 0.06935, 0.15143,
852 + 0.53643, 0.26099, 1.16261, 0.09943, 0.02200,
853 + 0.00302, 0.07038, 0.14911,
854 + 0.53431, 0.25711, 1.14423, 0.09850, 0.02467,
855 + 0.00670, 0.07102, 0.14676,
856 + 0.53171, 0.25334, 1.12030, 0.09745, 0.02681,
857 + 0.00961, 0.07134, 0.14442,
858 + 0.52874, 0.24969, 1.09283, 0.09633, 0.02854,
859 + 0.01202, 0.07141, 0.14204 /
860 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=8,14)/
861 + 0.52556, 0.24616, 1.06393, 0.09513, 0.02992,
862 + 0.01402, 0.07132, 0.13972,
863 + 0.52223, 0.24275, 1.03439, 0.09391, 0.03103,
864 + 0.01572, 0.07109, 0.13744,
865 + 0.51876, 0.23947, 1.00484, 0.09268, 0.03193,
866 + 0.01712, 0.07073, 0.13520,
867 + 0.51523, 0.23631, 0.97589, 0.09145, 0.03266,
868 + 0.01831, 0.07031, 0.13302,
869 + 0.51169, 0.23328, 0.94788, 0.09023, 0.03324,
870 + 0.01934, 0.06982, 0.13091,
871 + 0.50817, 0.23037, 0.92099, 0.08904, 0.03371,
872 + 0.02022, 0.06930, 0.12888,
873 + 0.50459, 0.22752, 0.89463, 0.08783, 0.03405,
874 + 0.02095, 0.06873, 0.12687 /
875 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=15,19)/
876 + 0.50106, 0.22480, 0.86955, 0.08666, 0.03433,
877 + 0.02156, 0.06815, 0.12494,
878 + 0.49758, 0.22218, 0.84568, 0.08553, 0.03455,
879 + 0.02210, 0.06755, 0.12308,
880 + 0.49408, 0.21962, 0.82253, 0.08438, 0.03468,
881 + 0.02254, 0.06692, 0.12126,
882 + 0.49070, 0.21718, 0.80076, 0.08328, 0.03479,
883 + 0.02294, 0.06631, 0.11952,
884 + 0.48728, 0.21477, 0.77962, 0.08220, 0.03483,
885 + 0.02326, 0.06566, 0.11781 /
886 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/
887 + 0.58201, 0.28159, 1.00361, 0.08093, 0.00719,
888 + 0.00000, 0.05468, 0.13423,
889 + 0.57728, 0.27439, 1.00191, 0.07996, 0.01147,
890 + -0.00001, 0.05584, 0.13062,
891 + 0.57175, 0.26774, 0.98296, 0.07878, 0.01464,
892 + 0.00009, 0.05642, 0.12717,
893 + 0.56578, 0.26151, 0.95448, 0.07745, 0.01698,
894 + 0.00223, 0.05656, 0.12386,
895 + 0.55963, 0.25572, 0.92242, 0.07609, 0.01880,
896 + 0.00489, 0.05645, 0.12069,
897 + 0.55337, 0.25029, 0.88878, 0.07470, 0.02022,
898 + 0.00698, 0.05613, 0.11767,
899 + 0.54709, 0.24514, 0.85472, 0.07328, 0.02129,
900 + 0.00865, 0.05569, 0.11478 /
901 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=8,14)/
902 + 0.54087, 0.24029, 0.82149, 0.07187, 0.02213,
903 + 0.01003, 0.05515, 0.11202,
904 + 0.53471, 0.23572, 0.78946, 0.07051, 0.02276,
905 + 0.01115, 0.05454, 0.10940,
906 + 0.52864, 0.23138, 0.75881, 0.06917, 0.02324,
907 + 0.01206, 0.05388, 0.10689,
908 + 0.52273, 0.22726, 0.72979, 0.06786, 0.02360,
909 + 0.01282, 0.05319, 0.10451,
910 + 0.51698, 0.22335, 0.70247, 0.06659, 0.02387,
911 + 0.01346, 0.05250, 0.10224,
912 + 0.51141, 0.21965, 0.67684, 0.06537, 0.02407,
913 + 0.01398, 0.05181, 0.10007,
914 + 0.50589, 0.21607, 0.65239, 0.06417, 0.02419,
915 + 0.01441, 0.05109, 0.09800 /
916 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=15,19)/
917 + 0.50056, 0.21268, 0.62951, 0.06301, 0.02425,
918 + 0.01477, 0.05039, 0.09603,
919 + 0.49540, 0.20944, 0.60805, 0.06191, 0.02428,
920 + 0.01507, 0.04970, 0.09415,
921 + 0.49031, 0.20632, 0.58765, 0.06082, 0.02426,
922 + 0.01531, 0.04901, 0.09234,
923 + 0.48543, 0.20335, 0.56864, 0.05979, 0.02422,
924 + 0.01551, 0.04834, 0.09062,
925 + 0.48060, 0.20048, 0.55050, 0.05879, 0.02415,
926 + 0.01565, 0.04766, 0.08895 /
927 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/
928 + 0.61244, 0.28164, 0.89881, 0.06478, 0.00591,
929 + -0.00002, 0.04539, 0.11398,
930 + 0.60177, 0.27174, 0.87070, 0.06336, 0.00920,
931 + -0.00003, 0.04574, 0.10954,
932 + 0.59122, 0.26290, 0.83391, 0.06185, 0.01155,
933 + 0.00006, 0.04567, 0.10547,
934 + 0.58084, 0.25489, 0.79378, 0.06032, 0.01323,
935 + 0.00167, 0.04530, 0.10169,
936 + 0.57082, 0.24758, 0.75406, 0.05879, 0.01449,
937 + 0.00365, 0.04477, 0.09821,
938 + 0.56116, 0.24080, 0.71572, 0.05727, 0.01542,
939 + 0.00517, 0.04415, 0.09498,
940 + 0.55178, 0.23454, 0.67920, 0.05582, 0.01611,
941 + 0.00637, 0.04345, 0.09193 /
942 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=8,14)/
943 + 0.54275, 0.22872, 0.64505, 0.05442, 0.01660,
944 + 0.00731, 0.04271, 0.08910,
945 + 0.53408, 0.22327, 0.61323, 0.05306, 0.01695,
946 + 0.00808, 0.04195, 0.08646,
947 + 0.52574, 0.21816, 0.58366, 0.05175, 0.01720,
948 + 0.00869, 0.04117, 0.08398,
949 + 0.51771, 0.21337, 0.55631, 0.05051, 0.01736,
950 + 0.00919, 0.04041, 0.08163,
951 + 0.51003, 0.20886, 0.53105, 0.04933, 0.01746,
952 + 0.00960, 0.03966, 0.07943,
953 + 0.50270, 0.20462, 0.50773, 0.04820, 0.01750,
954 + 0.00993, 0.03894, 0.07736,
955 + 0.49552, 0.20058, 0.48595, 0.04712, 0.01750,
956 + 0.01018, 0.03821, 0.07538 /
957 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=15,19)/
958 + 0.48867, 0.19676, 0.46581, 0.04608, 0.01746,
959 + 0.01039, 0.03751, 0.07354,
960 + 0.48212, 0.19312, 0.44712, 0.04508, 0.01740,
961 + 0.01056, 0.03684, 0.07181,
962 + 0.47572, 0.18966, 0.42962, 0.04413, 0.01732,
963 + 0.01068, 0.03617, 0.07013,
964 + 0.46961, 0.18639, 0.41344, 0.04323, 0.01723,
965 + 0.01078, 0.03553, 0.06854,
966 + 0.46363, 0.18324, 0.39820, 0.04236, 0.01711,
967 + 0.01084, 0.03491, 0.06702 /
968 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/
969 + 0.63045, 0.27534, 0.80467, 0.05142, 0.00481,
970 + -0.00001, 0.03720, 0.09515,
971 + 0.61398, 0.26332, 0.75791, 0.04988, 0.00733,
972 + -0.00001, 0.03703, 0.09038,
973 + 0.59861, 0.25279, 0.70971, 0.04828, 0.00908,
974 + 0.00006, 0.03657, 0.08613,
975 + 0.58412, 0.24343, 0.66308, 0.04674, 0.01027,
976 + 0.00126, 0.03592, 0.08230,
977 + 0.57054, 0.23500, 0.61987, 0.04525, 0.01113,
978 + 0.00275, 0.03521, 0.07882,
979 + 0.55776, 0.22731, 0.58015, 0.04380, 0.01175,
980 + 0.00383, 0.03444, 0.07566,
981 + 0.54562, 0.22027, 0.54375, 0.04244, 0.01216,
982 + 0.00468, 0.03364, 0.07273 /
983 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=8,14)/
984 + 0.53418, 0.21376, 0.51070, 0.04114, 0.01244,
985 + 0.00535, 0.03284, 0.07005,
986 + 0.52331, 0.20777, 0.48067, 0.03991, 0.01263,
987 + 0.00587, 0.03206, 0.06755,
988 + 0.51301, 0.20217, 0.45338, 0.03873, 0.01273,
989 + 0.00628, 0.03129, 0.06525,
990 + 0.50324, 0.19696, 0.42857, 0.03762, 0.01278,
991 + 0.00661, 0.03055, 0.06310,
992 + 0.49397, 0.19208, 0.40600, 0.03657, 0.01278,
993 + 0.00686, 0.02983, 0.06111,
994 + 0.48520, 0.18752, 0.38545, 0.03556, 0.01275,
995 + 0.00706, 0.02915, 0.05927,
996 + 0.47670, 0.18322, 0.36649, 0.03464, 0.01268,
997 + 0.00721, 0.02847, 0.05751 /
998 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=15,19)/
999 + 0.46863, 0.17917, 0.34915, 0.03376, 0.01260,
1000 + 0.00732, 0.02783, 0.05586,
1001 + 0.46095, 0.17535, 0.33323, 0.03291, 0.01251,
1002 + 0.00741, 0.02722, 0.05432,
1003 + 0.45355, 0.17171, 0.31851, 0.03210, 0.01241,
1004 + 0.00747, 0.02662, 0.05286,
1005 + 0.44652, 0.16828, 0.30499, 0.03134, 0.01230,
1006 + 0.00752, 0.02606, 0.05148,
1007 + 0.43969, 0.16499, 0.29238, 0.03061, 0.01217,
1008 + 0.00754, 0.02551, 0.05018 /
1009 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/
1010 + 0.63743, 0.26442, 0.71660, 0.04042, 0.00386,
1011 + -0.00001, 0.03003, 0.07800,
1012 + 0.61558, 0.25075, 0.65751, 0.03887, 0.00581,
1013 + -0.00002, 0.02958, 0.07328,
1014 + 0.59577, 0.23898, 0.60287, 0.03735, 0.00710,
1015 + 0.00004, 0.02894, 0.06919,
1016 + 0.57763, 0.22864, 0.55348, 0.03588, 0.00795,
1017 + 0.00095, 0.02818, 0.06558,
1018 + 0.56095, 0.21943, 0.50968, 0.03450, 0.00855,
1019 + 0.00206, 0.02740, 0.06235,
1020 + 0.54545, 0.21115, 0.47078, 0.03320, 0.00895,
1021 + 0.00287, 0.02661, 0.05943,
1022 + 0.53099, 0.20360, 0.43615, 0.03200, 0.00920,
1023 + 0.00348, 0.02584, 0.05675 /
1024 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=8,14)/
1025 + 0.51748, 0.19673, 0.40539, 0.03085, 0.00935,
1026 + 0.00396, 0.02507, 0.05435,
1027 + 0.50488, 0.19039, 0.37803, 0.02977, 0.00942,
1028 + 0.00431, 0.02435, 0.05213,
1029 + 0.49297, 0.18454, 0.35351, 0.02877, 0.00945,
1030 + 0.00458, 0.02364, 0.05009,
1031 + 0.48180, 0.17912, 0.33157, 0.02781, 0.00945,
1032 + 0.00479, 0.02295, 0.04823,
1033 + 0.47129, 0.17408, 0.31187, 0.02691, 0.00941,
1034 + 0.00496, 0.02231, 0.04650,
1035 + 0.46138, 0.16940, 0.29411, 0.02608, 0.00935,
1036 + 0.00508, 0.02171, 0.04489,
1037 + 0.45191, 0.16498, 0.27797, 0.02530, 0.00925,
1038 + 0.00517, 0.02112, 0.04339 /
1039 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=15,19)/
1040 + 0.44295, 0.16086, 0.26335, 0.02456, 0.00915,
1041 + 0.00524, 0.02057, 0.04200,
1042 + 0.43447, 0.15698, 0.25003, 0.02385, 0.00905,
1043 + 0.00529, 0.02004, 0.04070,
1044 + 0.42631, 0.15330, 0.23782, 0.02320, 0.00894,
1045 + 0.00531, 0.01954, 0.03947,
1046 + 0.41861, 0.14984, 0.22666, 0.02259, 0.00884,
1047 + 0.00532, 0.01906, 0.03832,
1048 + 0.41117, 0.14657, 0.21636, 0.02200, 0.00872,
1049 + 0.00532, 0.01860, 0.03721 /
1050 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/
1051 + 0.63473, 0.25010, 0.63318, 0.03136, 0.00307,
1052 + -0.00001, 0.02388, 0.06278,
1053 + 0.60801, 0.23528, 0.56697, 0.02990, 0.00456,
1054 + -0.00002, 0.02329, 0.05844,
1055 + 0.58431, 0.22271, 0.50968, 0.02853, 0.00553,
1056 + 0.00002, 0.02260, 0.05467,
1057 + 0.56301, 0.21175, 0.46035, 0.02723, 0.00614,
1058 + 0.00072, 0.02186, 0.05141,
1059 + 0.54369, 0.20212, 0.41796, 0.02603, 0.00655,
1060 + 0.00156, 0.02110, 0.04852,
1061 + 0.52600, 0.19349, 0.38127, 0.02490, 0.00680,
1062 + 0.00215, 0.02036, 0.04596,
1063 + 0.50966, 0.18570, 0.34940, 0.02385, 0.00694,
1064 + 0.00260, 0.01964, 0.04367 /
1065 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=8,14)/
1066 + 0.49455, 0.17866, 0.32163, 0.02289, 0.00701,
1067 + 0.00294, 0.01895, 0.04159,
1068 + 0.48055, 0.17221, 0.29723, 0.02198, 0.00704,
1069 + 0.00319, 0.01831, 0.03969,
1070 + 0.46746, 0.16629, 0.27577, 0.02113, 0.00702,
1071 + 0.00336, 0.01770, 0.03797,
1072 + 0.45522, 0.16086, 0.25678, 0.02035, 0.00697,
1073 + 0.00350, 0.01711, 0.03639,
1074 + 0.44379, 0.15582, 0.23992, 0.01962, 0.00691,
1075 + 0.00360, 0.01656, 0.03494,
1076 + 0.43311, 0.15115, 0.22488, 0.01894, 0.00684,
1077 + 0.00368, 0.01604, 0.03360,
1078 + 0.42290, 0.14680, 0.21133, 0.01832, 0.00675,
1079 + 0.00373, 0.01556, 0.03234 /
1080 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=15,19)/
1081 + 0.41332, 0.14273, 0.19916, 0.01773, 0.00666,
1082 + 0.00377, 0.01510, 0.03119,
1083 + 0.40430, 0.13891, 0.18818, 0.01718, 0.00656,
1084 + 0.00379, 0.01466, 0.03012,
1085 + 0.39569, 0.13530, 0.17817, 0.01664, 0.00647,
1086 + 0.00379, 0.01424, 0.02912,
1087 + 0.38758, 0.13192, 0.16908, 0.01614, 0.00637,
1088 + 0.00379, 0.01385, 0.02819,
1089 + 0.37979, 0.12872, 0.16076, 0.01568, 0.00626,
1090 + 0.00377, 0.01348, 0.02730 /
1091 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/
1092 + 0.62355, 0.23340, 0.55429, 0.02396, 0.00244,
1093 + 0.00004, 0.01872, 0.04963,
1094 + 0.59260, 0.21795, 0.48528, 0.02273, 0.00356,
1095 + 0.00003, 0.01808, 0.04575,
1096 + 0.56564, 0.20494, 0.42830, 0.02154, 0.00424,
1097 + 0.00007, 0.01739, 0.04252,
1098 + 0.54173, 0.19377, 0.38090, 0.02044, 0.00467,
1099 + 0.00057, 0.01668, 0.03968,
1100 + 0.52029, 0.18401, 0.34127, 0.01944, 0.00494,
1101 + 0.00117, 0.01601, 0.03719,
1102 + 0.50093, 0.17528, 0.30775, 0.01848, 0.00512,
1103 + 0.00160, 0.01535, 0.03503,
1104 + 0.48313, 0.16752, 0.27914, 0.01764, 0.00517,
1105 + 0.00193, 0.01473, 0.03309 /
1106 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=8,14)/
1107 + 0.46684, 0.16049, 0.25456, 0.01684, 0.00522,
1108 + 0.00214, 0.01416, 0.03134,
1109 + 0.45184, 0.15413, 0.23335, 0.01612, 0.00518,
1110 + 0.00230, 0.01360, 0.02979,
1111 + 0.43792, 0.14833, 0.21490, 0.01543, 0.00516,
1112 + 0.00244, 0.01307, 0.02836,
1113 + 0.42502, 0.14297, 0.19873, 0.01481, 0.00510,
1114 + 0.00253, 0.01260, 0.02706,
1115 + 0.41301, 0.13806, 0.18453, 0.01423, 0.00503,
1116 + 0.00259, 0.01215, 0.02587,
1117 + 0.40180, 0.13354, 0.17198, 0.01370, 0.00495,
1118 + 0.00264, 0.01173, 0.02479,
1119 + 0.39121, 0.12932, 0.16076, 0.01320, 0.00488,
1120 + 0.00267, 0.01132, 0.02378 /
1121 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=15,19)/
1122 + 0.38130, 0.12539, 0.15075, 0.01273, 0.00480,
1123 + 0.00268, 0.01095, 0.02286,
1124 + 0.37202, 0.12173, 0.14179, 0.01228, 0.00472,
1125 + 0.00268, 0.01060, 0.02202,
1126 + 0.36315, 0.11827, 0.13369, 0.01188, 0.00462,
1127 + 0.00268, 0.01028, 0.02122,
1128 + 0.35483, 0.11505, 0.12638, 0.01151, 0.00453,
1129 + 0.00268, 0.00997, 0.02048,
1130 + 0.34690, 0.11201, 0.11973, 0.01114, 0.00444,
1131 + 0.00265, 0.00966, 0.01979 /
1132 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/
1133 + 0.60485, 0.21558, 0.48069, 0.01831, 0.00176,
1134 + -0.00013, 0.01427, 0.03851,
1135 + 0.57053, 0.19980, 0.41189, 0.01720, 0.00261,
1136 + -0.00014, 0.01371, 0.03523,
1137 + 0.54097, 0.18669, 0.35728, 0.01621, 0.00313,
1138 + -0.00010, 0.01311, 0.03246,
1139 + 0.51512, 0.17547, 0.31317, 0.01526, 0.00345,
1140 + 0.00030, 0.01251, 0.03012,
1141 + 0.49216, 0.16577, 0.27705, 0.01442, 0.00365,
1142 + 0.00078, 0.01193, 0.02806,
1143 + 0.47155, 0.15720, 0.24712, 0.01365, 0.00376,
1144 + 0.00110, 0.01138, 0.02628,
1145 + 0.45284, 0.14957, 0.22195, 0.01294, 0.00379,
1146 + 0.00133, 0.01086, 0.02471 /
1147 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=8,14)/
1148 + 0.43578, 0.14277, 0.20066, 0.01232, 0.00379,
1149 + 0.00152, 0.01039, 0.02328,
1150 + 0.42016, 0.13658, 0.18255, 0.01173, 0.00378,
1151 + 0.00163, 0.00995, 0.02202,
1152 + 0.40579, 0.13096, 0.16690, 0.01120, 0.00372,
1153 + 0.00171, 0.00953, 0.02087,
1154 + 0.39252, 0.12584, 0.15339, 0.01070, 0.00368,
1155 + 0.00178, 0.00914, 0.01985,
1156 + 0.38023, 0.12115, 0.14160, 0.01024, 0.00362,
1157 + 0.00183, 0.00878, 0.01891,
1158 + 0.36880, 0.11684, 0.13124, 0.00984, 0.00356,
1159 + 0.00186, 0.00846, 0.01804,
1160 + 0.35808, 0.11283, 0.12209, 0.00943, 0.00349,
1161 + 0.00186, 0.00814, 0.01727 /
1162 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=15,19)/
1163 + 0.34808, 0.10911, 0.11398, 0.00907, 0.00342,
1164 + 0.00186, 0.00785, 0.01655,
1165 + 0.33872, 0.10565, 0.10674, 0.00873, 0.00335,
1166 + 0.00187, 0.00758, 0.01588,
1167 + 0.32987, 0.10241, 0.10025, 0.00840, 0.00328,
1168 + 0.00186, 0.00732, 0.01527,
1169 + 0.32158, 0.09940, 0.09441, 0.00810, 0.00321,
1170 + 0.00185, 0.00708, 0.01470,
1171 + 0.31367, 0.09656, 0.08914, 0.00784, 0.00314,
1172 + 0.00184, 0.00685, 0.01416 /
1173 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/
1174 + 0.58019, 0.19652, 0.41208, 0.01353, 0.00137,
1175 + -0.00004, 0.01086, 0.02939,
1176 + 0.54314, 0.18088, 0.34615, 0.01265, 0.00202,
1177 + -0.00003, 0.01034, 0.02665,
1178 + 0.51169, 0.16796, 0.29534, 0.01184, 0.00240,
1179 + -0.00001, 0.00982, 0.02438,
1180 + 0.48442, 0.15703, 0.25529, 0.01113, 0.00262,
1181 + 0.00028, 0.00931, 0.02245,
1182 + 0.46046, 0.14762, 0.22320, 0.01045, 0.00274,
1183 + 0.00061, 0.00882, 0.02082,
1184 + 0.43905, 0.13936, 0.19701, 0.00986, 0.00278,
1185 + 0.00084, 0.00836, 0.01942,
1186 + 0.41982, 0.13207, 0.17534, 0.00931, 0.00281,
1187 + 0.00100, 0.00795, 0.01812 /
1188 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=8,14)/
1189 + 0.40238, 0.12555, 0.15722, 0.00882, 0.00279,
1190 + 0.00112, 0.00757, 0.01702,
1191 + 0.38652, 0.11969, 0.14193, 0.00837, 0.00276,
1192 + 0.00119, 0.00721, 0.01604,
1193 + 0.37202, 0.11438, 0.12894, 0.00794, 0.00271,
1194 + 0.00125, 0.00687, 0.01516,
1195 + 0.35862, 0.10958, 0.11778, 0.00759, 0.00266,
1196 + 0.00129, 0.00658, 0.01433,
1197 + 0.34628, 0.10518, 0.10812, 0.00727, 0.00261,
1198 + 0.00131, 0.00630, 0.01360,
1199 + 0.33494, 0.10114, 0.09971, 0.00693, 0.00255,
1200 + 0.00132, 0.00603, 0.01296,
1201 + 0.32431, 0.09740, 0.09232, 0.00663, 0.00250,
1202 + 0.00132, 0.00579, 0.01235 /
1203 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=15,19)/
1204 + 0.31441, 0.09396, 0.08582, 0.00636, 0.00244,
1205 + 0.00132, 0.00557, 0.01179,
1206 + 0.30519, 0.09076, 0.08006, 0.00613, 0.00238,
1207 + 0.00132, 0.00536, 0.01128,
1208 + 0.29649, 0.08778, 0.07492, 0.00588, 0.00232,
1209 + 0.00131, 0.00516, 0.01082,
1210 + 0.28837, 0.08501, 0.07032, 0.00566, 0.00227,
1211 + 0.00131, 0.00498, 0.01039,
1212 + 0.28063, 0.08240, 0.06618, 0.00547, 0.00220,
1213 + 0.00130, 0.00480, 0.00999 /
1214 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/
1215 + 0.55038, 0.17742, 0.34954, 0.00991, 0.00103,
1216 + -0.00004, 0.00807, 0.02200,
1217 + 0.51147, 0.16214, 0.28808, 0.00922, 0.00150,
1218 + -0.00003, 0.00764, 0.01980,
1219 + 0.47881, 0.14966, 0.24195, 0.00859, 0.00177,
1220 + -0.00002, 0.00722, 0.01799,
1221 + 0.45071, 0.13920, 0.20641, 0.00803, 0.00192,
1222 + 0.00020, 0.00680, 0.01648,
1223 + 0.42626, 0.13019, 0.17841, 0.00751, 0.00199,
1224 + 0.00044, 0.00640, 0.01520,
1225 + 0.40458, 0.12238, 0.15592, 0.00705, 0.00204,
1226 + 0.00061, 0.00606, 0.01407,
1227 + 0.38518, 0.11551, 0.13752, 0.00664, 0.00203,
1228 + 0.00073, 0.00573, 0.01309 /
1229 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=8,14)/
1230 + 0.36772, 0.10940, 0.12239, 0.00626, 0.00201,
1231 + 0.00080, 0.00543, 0.01225,
1232 + 0.35196, 0.10391, 0.10972, 0.00592, 0.00199,
1233 + 0.00085, 0.00515, 0.01147,
1234 + 0.33753, 0.09900, 0.09902, 0.00562, 0.00194,
1235 + 0.00090, 0.00489, 0.01080,
1236 + 0.32436, 0.09453, 0.08993, 0.00534, 0.00191,
1237 + 0.00092, 0.00467, 0.01018,
1238 + 0.31228, 0.09047, 0.08213, 0.00508, 0.00186,
1239 + 0.00093, 0.00446, 0.00963,
1240 + 0.30116, 0.08676, 0.07538, 0.00483, 0.00181,
1241 + 0.00094, 0.00426, 0.00916,
1242 + 0.29080, 0.08334, 0.06950, 0.00463, 0.00176,
1243 + 0.00094, 0.00407, 0.00870 /
1244 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=15,19)/
1245 + 0.28119, 0.08019, 0.06434, 0.00443, 0.00172,
1246 + 0.00094, 0.00390, 0.00828,
1247 + 0.27225, 0.07729, 0.05978, 0.00425, 0.00167,
1248 + 0.00094, 0.00375, 0.00790,
1249 + 0.26388, 0.07457, 0.05577, 0.00407, 0.00162,
1250 + 0.00092, 0.00360, 0.00755,
1251 + 0.25610, 0.07206, 0.05218, 0.00390, 0.00158,
1252 + 0.00090, 0.00346, 0.00723,
1253 + 0.24870, 0.06971, 0.04897, 0.00376, 0.00154,
1254 + 0.00089, 0.00333, 0.00693 /
1255 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/
1256 + 0.51658, 0.15844, 0.29304, 0.00708, 0.00077,
1257 + -0.00001, 0.00592, 0.01619,
1258 + 0.47655, 0.14384, 0.23711, 0.00658, 0.00112,
1259 + 0.00000, 0.00557, 0.01445,
1260 + 0.44332, 0.13197, 0.19622, 0.00610, 0.00131,
1261 + 0.00001, 0.00524, 0.01304,
1262 + 0.41502, 0.12209, 0.16531, 0.00567, 0.00141,
1263 + 0.00016, 0.00490, 0.01188,
1264 + 0.39052, 0.11367, 0.14133, 0.00528, 0.00146,
1265 + 0.00034, 0.00461, 0.01089,
1266 + 0.36899, 0.10639, 0.12233, 0.00493, 0.00147,
1267 + 0.00045, 0.00432, 0.01003,
1268 + 0.34979, 0.09998, 0.10701, 0.00464, 0.00146,
1269 + 0.00054, 0.00407, 0.00931 /
1270 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=8,14)/
1271 + 0.33269, 0.09435, 0.09450, 0.00434, 0.00145,
1272 + 0.00058, 0.00385, 0.00866,
1273 + 0.31719, 0.08934, 0.08416, 0.00413, 0.00142,
1274 + 0.00061, 0.00363, 0.00807,
1275 + 0.30321, 0.08482, 0.07551, 0.00388, 0.00139,
1276 + 0.00064, 0.00344, 0.00759,
1277 + 0.29046, 0.08074, 0.06820, 0.00367, 0.00135,
1278 + 0.00066, 0.00327, 0.00714,
1279 + 0.27880, 0.07705, 0.06196, 0.00349, 0.00132,
1280 + 0.00067, 0.00310, 0.00673,
1281 + 0.26810, 0.07371, 0.05661, 0.00332, 0.00128,
1282 + 0.00067, 0.00295, 0.00638,
1283 + 0.25818, 0.07062, 0.05198, 0.00316, 0.00124,
1284 + 0.00067, 0.00282, 0.00605 /
1285 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=15,19)/
1286 + 0.24900, 0.06779, 0.04794, 0.00302, 0.00120,
1287 + 0.00066, 0.00269, 0.00574,
1288 + 0.24048, 0.06517, 0.04439, 0.00290, 0.00117,
1289 + 0.00065, 0.00258, 0.00544,
1290 + 0.23254, 0.06274, 0.04128, 0.00277, 0.00113,
1291 + 0.00064, 0.00247, 0.00519,
1292 + 0.22518, 0.06050, 0.03851, 0.00264, 0.00110,
1293 + 0.00062, 0.00237, 0.00497,
1294 + 0.21820, 0.05840, 0.03603, 0.00255, 0.00108,
1295 + 0.00062, 0.00228, 0.00475 /
1296 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/
1297 + 0.47972, 0.14004, 0.24269, 0.00495, 0.00061,
1298 + 0.00004, 0.00428, 0.01165,
1299 + 0.43943, 0.12625, 0.19300, 0.00455, 0.00085,
1300 + 0.00006, 0.00400, 0.01036,
1301 + 0.40620, 0.11518, 0.15740, 0.00423, 0.00099,
1302 + 0.00005, 0.00374, 0.00927,
1303 + 0.37820, 0.10600, 0.13101, 0.00391, 0.00104,
1304 + 0.00016, 0.00349, 0.00841,
1305 + 0.35409, 0.09823, 0.11085, 0.00363, 0.00106,
1306 + 0.00027, 0.00326, 0.00768,
1307 + 0.33305, 0.09153, 0.09504, 0.00337, 0.00107,
1308 + 0.00035, 0.00305, 0.00704,
1309 + 0.31441, 0.08570, 0.08248, 0.00317, 0.00106,
1310 + 0.00040, 0.00286, 0.00649 /
1311 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=8,14)/
1312 + 0.29782, 0.08057, 0.07233, 0.00297, 0.00104,
1313 + 0.00044, 0.00268, 0.00604,
1314 + 0.28300, 0.07602, 0.06398, 0.00279, 0.00101,
1315 + 0.00045, 0.00253, 0.00559,
1316 + 0.26960, 0.07195, 0.05707, 0.00264, 0.00098,
1317 + 0.00047, 0.00239, 0.00521,
1318 + 0.25745, 0.06829, 0.05130, 0.00249, 0.00095,
1319 + 0.00048, 0.00226, 0.00489,
1320 + 0.24637, 0.06498, 0.04640, 0.00235, 0.00092,
1321 + 0.00048, 0.00214, 0.00461,
1322 + 0.23623, 0.06199, 0.04219, 0.00223, 0.00089,
1323 + 0.00047, 0.00204, 0.00436,
1324 + 0.22689, 0.05923, 0.03859, 0.00213, 0.00087,
1325 + 0.00048, 0.00194, 0.00411 /
1326 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=15,19)/
1327 + 0.21825, 0.05671, 0.03547, 0.00204, 0.00084,
1328 + 0.00047, 0.00186, 0.00389,
1329 + 0.21026, 0.05441, 0.03275, 0.00196, 0.00081,
1330 + 0.00046, 0.00177, 0.00368,
1331 + 0.20285, 0.05226, 0.03036, 0.00186, 0.00079,
1332 + 0.00046, 0.00169, 0.00351,
1333 + 0.19599, 0.05028, 0.02824, 0.00176, 0.00077,
1334 + 0.00045, 0.00161, 0.00336,
1335 + 0.18951, 0.04843, 0.02635, 0.00170, 0.00074,
1336 + 0.00044, 0.00155, 0.00321 /
1337 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/
1338 + 0.44083, 0.12264, 0.19865, 0.00347, 0.00041,
1339 + 0.00001, 0.00300, 0.00824,
1340 + 0.40094, 0.10983, 0.15531, 0.00317, 0.00060,
1341 + 0.00001, 0.00279, 0.00726,
1342 + 0.36834, 0.09962, 0.12491, 0.00293, 0.00069,
1343 + 0.00002, 0.00259, 0.00648,
1344 + 0.34107, 0.09121, 0.10277, 0.00271, 0.00073,
1345 + 0.00010, 0.00241, 0.00583,
1346 + 0.31778, 0.08411, 0.08606, 0.00250, 0.00075,
1347 + 0.00018, 0.00224, 0.00529,
1348 + 0.29753, 0.07803, 0.07315, 0.00231, 0.00074,
1349 + 0.00023, 0.00209, 0.00486,
1350 + 0.27971, 0.07278, 0.06298, 0.00218, 0.00074,
1351 + 0.00028, 0.00196, 0.00444 /
1352 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=8,14)/
1353 + 0.26398, 0.06817, 0.05484, 0.00202, 0.00072,
1354 + 0.00030, 0.00184, 0.00410,
1355 + 0.24992, 0.06409, 0.04825, 0.00190, 0.00071,
1356 + 0.00032, 0.00172, 0.00380,
1357 + 0.23730, 0.06047, 0.04279, 0.00178, 0.00067,
1358 + 0.00032, 0.00161, 0.00354,
1359 + 0.22588, 0.05723, 0.03826, 0.00168, 0.00065,
1360 + 0.00032, 0.00152, 0.00331,
1361 + 0.21552, 0.05431, 0.03446, 0.00158, 0.00063,
1362 + 0.00033, 0.00144, 0.00310,
1363 + 0.20609, 0.05166, 0.03121, 0.00150, 0.00062,
1364 + 0.00033, 0.00137, 0.00290,
1365 + 0.19741, 0.04923, 0.02845, 0.00142, 0.00059,
1366 + 0.00032, 0.00130, 0.00274 /
1367 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=15,19)/
1368 + 0.18943, 0.04702, 0.02607, 0.00135, 0.00057,
1369 + 0.00031, 0.00124, 0.00260,
1370 + 0.18208, 0.04500, 0.02399, 0.00129, 0.00054,
1371 + 0.00031, 0.00118, 0.00248,
1372 + 0.17524, 0.04313, 0.02217, 0.00123, 0.00053,
1373 + 0.00030, 0.00112, 0.00235,
1374 + 0.16892, 0.04142, 0.02057, 0.00116, 0.00052,
1375 + 0.00030, 0.00106, 0.00223,
1376 + 0.16302, 0.03982, 0.01916, 0.00111, 0.00049,
1377 + 0.00029, 0.00102, 0.00212 /
1378 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/
1379 + 0.40084, 0.10620, 0.16042, 0.00233, 0.00030,
1380 + 0.00003, 0.00208, 0.00569,
1381 + 0.36197, 0.09450, 0.12346, 0.00214, 0.00041,
1382 + 0.00002, 0.00192, 0.00500,
1383 + 0.33053, 0.08521, 0.09797, 0.00199, 0.00047,
1384 + 0.00003, 0.00176, 0.00444,
1385 + 0.30438, 0.07763, 0.07970, 0.00184, 0.00050,
1386 + 0.00008, 0.00164, 0.00396,
1387 + 0.28222, 0.07127, 0.06611, 0.00168, 0.00050,
1388 + 0.00013, 0.00151, 0.00359,
1389 + 0.26302, 0.06585, 0.05572, 0.00159, 0.00050,
1390 + 0.00017, 0.00140, 0.00327,
1391 + 0.24632, 0.06117, 0.04762, 0.00144, 0.00050,
1392 + 0.00018, 0.00130, 0.00300 /
1393 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=8,14)/
1394 + 0.23158, 0.05709, 0.04121, 0.00134, 0.00047,
1395 + 0.00020, 0.00122, 0.00276,
1396 + 0.21843, 0.05351, 0.03603, 0.00128, 0.00046,
1397 + 0.00019, 0.00113, 0.00254,
1398 + 0.20670, 0.05032, 0.03179, 0.00119, 0.00045,
1399 + 0.00019, 0.00106, 0.00237,
1400 + 0.19614, 0.04747, 0.02830, 0.00112, 0.00042,
1401 + 0.00020, 0.00100, 0.00222,
1402 + 0.18661, 0.04492, 0.02537, 0.00106, 0.00041,
1403 + 0.00021, 0.00094, 0.00207,
1404 + 0.17797, 0.04263, 0.02290, 0.00099, 0.00039,
1405 + 0.00020, 0.00089, 0.00193,
1406 + 0.16998, 0.04054, 0.02080, 0.00096, 0.00038,
1407 + 0.00021, 0.00084, 0.00182 /
1408 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=15,19)/
1409 + 0.16268, 0.03863, 0.01899, 0.00093, 0.00037,
1410 + 0.00021, 0.00079, 0.00171,
1411 + 0.15598, 0.03689, 0.01743, 0.00089, 0.00036,
1412 + 0.00020, 0.00075, 0.00161,
1413 + 0.14980, 0.03527, 0.01607, 0.00083, 0.00035,
1414 + 0.00019, 0.00072, 0.00153,
1415 + 0.14411, 0.03379, 0.01487, 0.00078, 0.00033,
1416 + 0.00019, 0.00068, 0.00146,
1417 + 0.13875, 0.03243, 0.01382, 0.00076, 0.00032,
1418 + 0.00018, 0.00066, 0.00138 /
1419 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/
1420 + 0.36038, 0.09094, 0.12773, 0.00153, 0.00022,
1421 + 0.00004, 0.00142, 0.00387,
1422 + 0.32316, 0.08037, 0.09671, 0.00141, 0.00030,
1423 + 0.00004, 0.00131, 0.00336,
1424 + 0.29326, 0.07205, 0.07573, 0.00129, 0.00033,
1425 + 0.00003, 0.00120, 0.00297,
1426 + 0.26860, 0.06528, 0.06093, 0.00119, 0.00035,
1427 + 0.00006, 0.00110, 0.00263,
1428 + 0.24777, 0.05967, 0.05004, 0.00110, 0.00036,
1429 + 0.00011, 0.00102, 0.00237,
1430 + 0.22989, 0.05488, 0.04182, 0.00102, 0.00036,
1431 + 0.00013, 0.00094, 0.00215,
1432 + 0.21434, 0.05078, 0.03547, 0.00094, 0.00034,
1433 + 0.00014, 0.00088, 0.00197 /
1434 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=8,14)/
1435 + 0.20074, 0.04723, 0.03050, 0.00087, 0.00034,
1436 + 0.00015, 0.00081, 0.00180,
1437 + 0.18874, 0.04410, 0.02651, 0.00078, 0.00033,
1438 + 0.00014, 0.00075, 0.00167,
1439 + 0.17797, 0.04134, 0.02328, 0.00076, 0.00032,
1440 + 0.00016, 0.00071, 0.00153,
1441 + 0.16835, 0.03888, 0.02063, 0.00071, 0.00031,
1442 + 0.00016, 0.00067, 0.00142,
1443 + 0.15968, 0.03668, 0.01842, 0.00066, 0.00030,
1444 + 0.00015, 0.00063, 0.00133,
1445 + 0.15183, 0.03471, 0.01657, 0.00063, 0.00028,
1446 + 0.00015, 0.00060, 0.00124,
1447 + 0.14463, 0.03292, 0.01500, 0.00060, 0.00027,
1448 + 0.00015, 0.00056, 0.00117 /
1449 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=15,19)/
1450 + 0.13808, 0.03129, 0.01366, 0.00057, 0.00026,
1451 + 0.00014, 0.00053, 0.00110,
1452 + 0.13208, 0.02980, 0.01250, 0.00054, 0.00025,
1453 + 0.00013, 0.00050, 0.00104,
1454 + 0.12654, 0.02844, 0.01149, 0.00052, 0.00024,
1455 + 0.00013, 0.00048, 0.00097,
1456 + 0.12145, 0.02719, 0.01061, 0.00049, 0.00023,
1457 + 0.00013, 0.00046, 0.00092,
1458 + 0.11670, 0.02604, 0.00984, 0.00046, 0.00022,
1459 + 0.00013, 0.00043, 0.00087 /
1460 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/
1461 + 0.32048, 0.07704, 0.10025, 0.00098, 0.00016,
1462 + 0.00003, 0.00095, 0.00254,
1463 + 0.28528, 0.06760, 0.07466, 0.00088, 0.00022,
1464 + 0.00003, 0.00087, 0.00221,
1465 + 0.25724, 0.06022, 0.05766, 0.00082, 0.00025,
1466 + 0.00002, 0.00081, 0.00194,
1467 + 0.23432, 0.05427, 0.04588, 0.00072, 0.00026,
1468 + 0.00006, 0.00073, 0.00172,
1469 + 0.21508, 0.04934, 0.03733, 0.00067, 0.00026,
1470 + 0.00009, 0.00069, 0.00152,
1471 + 0.19862, 0.04520, 0.03094, 0.00062, 0.00025,
1472 + 0.00010, 0.00063, 0.00138,
1473 + 0.18439, 0.04164, 0.02607, 0.00058, 0.00025,
1474 + 0.00010, 0.00058, 0.00124 /
1475 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=8,14)/
1476 + 0.17199, 0.03858, 0.02227, 0.00054, 0.00024,
1477 + 0.00012, 0.00054, 0.00116,
1478 + 0.16110, 0.03589, 0.01925, 0.00049, 0.00023,
1479 + 0.00012, 0.00051, 0.00105,
1480 + 0.15141, 0.03353, 0.01683, 0.00046, 0.00022,
1481 + 0.00012, 0.00047, 0.00097,
1482 + 0.14276, 0.03145, 0.01485, 0.00042, 0.00021,
1483 + 0.00012, 0.00044, 0.00090,
1484 + 0.13500, 0.02959, 0.01321, 0.00039, 0.00020,
1485 + 0.00012, 0.00041, 0.00084,
1486 + 0.12798, 0.02792, 0.01183, 0.00038, 0.00020,
1487 + 0.00011, 0.00040, 0.00077,
1488 + 0.12161, 0.02640, 0.01068, 0.00035, 0.00019,
1489 + 0.00012, 0.00037, 0.00073 /
1490 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=15,19)/
1491 + 0.11581, 0.02503, 0.00970, 0.00032, 0.00018,
1492 + 0.00011, 0.00035, 0.00069,
1493 + 0.11051, 0.02379, 0.00885, 0.00030, 0.00017,
1494 + 0.00011, 0.00033, 0.00065,
1495 + 0.10562, 0.02265, 0.00812, 0.00029, 0.00017,
1496 + 0.00011, 0.00032, 0.00060,
1497 + 0.10113, 0.02160, 0.00748, 0.00028, 0.00016,
1498 + 0.00011, 0.00030, 0.00056,
1499 + 0.09694, 0.02064, 0.00692, 0.00028, 0.00015,
1500 + 0.00010, 0.00028, 0.00053 /
1501 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/
1502 + 0.28175, 0.06457, 0.07758, 0.00067, 0.00008,
1503 + -0.00001, 0.00058, 0.00164,
1504 + 0.24898, 0.05630, 0.05693, 0.00064, 0.00011,
1505 + -0.00001, 0.00053, 0.00141,
1506 + 0.22316, 0.04988, 0.04346, 0.00057, 0.00013,
1507 + -0.00001, 0.00048, 0.00123,
1508 + 0.20212, 0.04472, 0.03422, 0.00053, 0.00015,
1509 + 0.00001, 0.00044, 0.00109,
1510 + 0.18464, 0.04047, 0.02761, 0.00047, 0.00014,
1511 + 0.00002, 0.00041, 0.00098,
1512 + 0.16977, 0.03692, 0.02272, 0.00044, 0.00014,
1513 + 0.00004, 0.00037, 0.00087,
1514 + 0.15695, 0.03389, 0.01901, 0.00041, 0.00014,
1515 + 0.00006, 0.00035, 0.00079 /
1516 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=8,14)/
1517 + 0.14588, 0.03128, 0.01616, 0.00037, 0.00013,
1518 + 0.00005, 0.00031, 0.00072,
1519 + 0.13613, 0.02900, 0.01389, 0.00034, 0.00013,
1520 + 0.00005, 0.00029, 0.00066,
1521 + 0.12751, 0.02702, 0.01209, 0.00033, 0.00012,
1522 + 0.00006, 0.00027, 0.00061,
1523 + 0.11984, 0.02526, 0.01063, 0.00031, 0.00012,
1524 + 0.00006, 0.00026, 0.00056,
1525 + 0.11298, 0.02369, 0.00942, 0.00029, 0.00011,
1526 + 0.00005, 0.00024, 0.00052,
1527 + 0.10683, 0.02229, 0.00842, 0.00026, 0.00011,
1528 + 0.00005, 0.00022, 0.00050,
1529 + 0.10123, 0.02104, 0.00758, 0.00025, 0.00010,
1530 + 0.00005, 0.00021, 0.00046 /
1531 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=15,19)/
1532 + 0.09616, 0.01990, 0.00686, 0.00023, 0.00009,
1533 + 0.00005, 0.00020, 0.00043,
1534 + 0.09153, 0.01887, 0.00625, 0.00022, 0.00009,
1535 + 0.00005, 0.00018, 0.00040,
1536 + 0.08728, 0.01792, 0.00572, 0.00022, 0.00009,
1537 + 0.00005, 0.00018, 0.00037,
1538 + 0.08339, 0.01706, 0.00526, 0.00021, 0.00008,
1539 + 0.00005, 0.00017, 0.00034,
1540 + 0.07978, 0.01626, 0.00486, 0.00019, 0.00008,
1541 + 0.00004, 0.00016, 0.00033 /
1542 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,7)/
1543 + 0.24431, 0.05323, 0.05881, 0.00036, 0.00008,
1544 + 0.00003, 0.00040, 0.00102,
1545 + 0.21437, 0.04610, 0.04254, 0.00034, 0.00010,
1546 + 0.00002, 0.00035, 0.00089,
1547 + 0.19088, 0.04061, 0.03207, 0.00034, 0.00010,
1548 + 0.00002, 0.00032, 0.00076,
1549 + 0.17195, 0.03621, 0.02499, 0.00029, 0.00011,
1550 + 0.00003, 0.00029, 0.00068,
1551 + 0.15628, 0.03262, 0.01998, 0.00025, 0.00010,
1552 + 0.00004, 0.00027, 0.00060,
1553 + 0.14300, 0.02962, 0.01633, 0.00024, 0.00011,
1554 + 0.00004, 0.00024, 0.00054,
1555 + 0.13164, 0.02707, 0.01357, 0.00024, 0.00010,
1556 + 0.00004, 0.00022, 0.00049 /
1557 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=8,14)/
1558 + 0.12185, 0.02490, 0.01146, 0.00021, 0.00009,
1559 + 0.00005, 0.00020, 0.00045,
1560 + 0.11331, 0.02301, 0.00982, 0.00020, 0.00009,
1561 + 0.00004, 0.00019, 0.00040,
1562 + 0.10576, 0.02136, 0.00851, 0.00018, 0.00008,
1563 + 0.00005, 0.00017, 0.00037,
1564 + 0.09906, 0.01991, 0.00745, 0.00018, 0.00008,
1565 + 0.00005, 0.00016, 0.00034,
1566 + 0.09310, 0.01863, 0.00658, 0.00018, 0.00007,
1567 + 0.00004, 0.00015, 0.00031,
1568 + 0.08777, 0.01748, 0.00586, 0.00016, 0.00006,
1569 + 0.00004, 0.00014, 0.00029,
1570 + 0.08296, 0.01644, 0.00526, 0.00014, 0.00006,
1571 + 0.00004, 0.00013, 0.00027 /
1572 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=15,19)/
1573 + 0.07860, 0.01551, 0.00475, 0.00013, 0.00006,
1574 + 0.00004, 0.00012, 0.00025,
1575 + 0.07463, 0.01468, 0.00432, 0.00013, 0.00006,
1576 + 0.00004, 0.00011, 0.00024,
1577 + 0.07098, 0.01391, 0.00395, 0.00012, 0.00006,
1578 + 0.00003, 0.00011, 0.00022,
1579 + 0.06766, 0.01321, 0.00362, 0.00012, 0.00006,
1580 + 0.00003, 0.00010, 0.00021,
1581 + 0.06458, 0.01257, 0.00334, 0.00011, 0.00005,
1582 + 0.00003, 0.00010, 0.00020 /
1583 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,7)/
1584 + 0.20907, 0.04333, 0.04381, 0.00020, 0.00007,
1585 + 0.00004, 0.00026, 0.00061,
1586 + 0.18208, 0.03726, 0.03120, 0.00019, 0.00007,
1587 + 0.00003, 0.00023, 0.00053,
1588 + 0.16111, 0.03261, 0.02323, 0.00016, 0.00008,
1589 + 0.00003, 0.00021, 0.00046,
1590 + 0.14429, 0.02892, 0.01792, 0.00015, 0.00008,
1591 + 0.00003, 0.00019, 0.00040,
1592 + 0.13042, 0.02592, 0.01420, 0.00015, 0.00007,
1593 + 0.00003, 0.00017, 0.00037,
1594 + 0.11876, 0.02343, 0.01151, 0.00014, 0.00007,
1595 + 0.00004, 0.00016, 0.00032,
1596 + 0.10887, 0.02133, 0.00952, 0.00014, 0.00007,
1597 + 0.00004, 0.00014, 0.00028 /
1598 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=8,14)/
1599 + 0.10036, 0.01953, 0.00799, 0.00012, 0.00006,
1600 + 0.00003, 0.00013, 0.00026,
1601 + 0.09296, 0.01799, 0.00681, 0.00010, 0.00006,
1602 + 0.00004, 0.00012, 0.00023,
1603 + 0.08644, 0.01664, 0.00588, 0.00011, 0.00006,
1604 + 0.00003, 0.00011, 0.00021,
1605 + 0.08072, 0.01546, 0.00513, 0.00010, 0.00005,
1606 + 0.00003, 0.00010, 0.00020,
1607 + 0.07565, 0.01441, 0.00451, 0.00009, 0.00005,
1608 + 0.00003, 0.00010, 0.00018,
1609 + 0.07111, 0.01348, 0.00401, 0.00008, 0.00005,
1610 + 0.00003, 0.00009, 0.00016,
1611 + 0.06699, 0.01265, 0.00359, 0.00008, 0.00004,
1612 + 0.00003, 0.00008, 0.00016 /
1613 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=15,19)/
1614 + 0.06328, 0.01191, 0.00324, 0.00008, 0.00004,
1615 + 0.00003, 0.00008, 0.00015,
1616 + 0.05992, 0.01124, 0.00294, 0.00008, 0.00004,
1617 + 0.00003, 0.00007, 0.00014,
1618 + 0.05686, 0.01062, 0.00268, 0.00008, 0.00004,
1619 + 0.00003, 0.00007, 0.00013,
1620 + 0.05407, 0.01006, 0.00245, 0.00007, 0.00004,
1621 + 0.00002, 0.00006, 0.00012,
1622 + 0.05150, 0.00956, 0.00226, 0.00007, 0.00003,
1623 + 0.00002, 0.00006, 0.00011 /
1624 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/
1625 + 0.17651, 0.03484, 0.03207, 0.00013, 0.00002,
1626 + 0.00000, 0.00013, 0.00037,
1627 + 0.15256, 0.02974, 0.02249, 0.00014, 0.00003,
1628 + 0.00000, 0.00012, 0.00031,
1629 + 0.13411, 0.02586, 0.01655, 0.00012, 0.00004,
1630 + 0.00000, 0.00011, 0.00027,
1631 + 0.11940, 0.02281, 0.01265, 0.00012, 0.00003,
1632 + 0.00001, 0.00010, 0.00024,
1633 + 0.10738, 0.02035, 0.00994, 0.00011, 0.00004,
1634 + 0.00001, 0.00009, 0.00020,
1635 + 0.09735, 0.01830, 0.00800, 0.00008, 0.00004,
1636 + 0.00001, 0.00008, 0.00019,
1637 + 0.08885, 0.01659, 0.00657, 0.00007, 0.00003,
1638 + 0.00002, 0.00007, 0.00018 /
1639 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=8,14)/
1640 + 0.08155, 0.01514, 0.00549, 0.00007, 0.00003,
1641 + 0.00001, 0.00007, 0.00015,
1642 + 0.07524, 0.01389, 0.00466, 0.00007, 0.00003,
1643 + 0.00002, 0.00006, 0.00014,
1644 + 0.06973, 0.01281, 0.00401, 0.00007, 0.00002,
1645 + 0.00001, 0.00006, 0.00012,
1646 + 0.06491, 0.01186, 0.00349, 0.00006, 0.00002,
1647 + 0.00001, 0.00005, 0.00011,
1648 + 0.06063, 0.01102, 0.00306, 0.00005, 0.00002,
1649 + 0.00001, 0.00005, 0.00010,
1650 + 0.05681, 0.01029, 0.00271, 0.00005, 0.00002,
1651 + 0.00001, 0.00005, 0.00009,
1652 + 0.05338, 0.00962, 0.00242, 0.00005, 0.00002,
1653 + 0.00001, 0.00004, 0.00009 /
1654 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=15,19)/
1655 + 0.05030, 0.00903, 0.00218, 0.00004, 0.00002,
1656 + 0.00001, 0.00004, 0.00009,
1657 + 0.04752, 0.00850, 0.00197, 0.00004, 0.00002,
1658 + 0.00001, 0.00004, 0.00008,
1659 + 0.04497, 0.00802, 0.00180, 0.00004, 0.00002,
1660 + 0.00001, 0.00003, 0.00007,
1661 + 0.04265, 0.00758, 0.00164, 0.00005, 0.00002,
1662 + 0.00001, 0.00003, 0.00007,
1663 + 0.04052, 0.00718, 0.00151, 0.00005, 0.00002,
1664 + 0.00001, 0.00003, 0.00006 /
1665 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,7)/
1666 + 0.14643, 0.02742, 0.02285, 0.00005, 0.00003,
1667 + 0.00002, 0.00009, 0.00020,
1668 + 0.12561, 0.02323, 0.01579, 0.00004, 0.00003,
1669 + 0.00002, 0.00008, 0.00017,
1670 + 0.10965, 0.02008, 0.01149, 0.00004, 0.00003,
1671 + 0.00002, 0.00008, 0.00016,
1672 + 0.09704, 0.01761, 0.00869, 0.00004, 0.00003,
1673 + 0.00002, 0.00007, 0.00013,
1674 + 0.08681, 0.01562, 0.00677, 0.00003, 0.00003,
1675 + 0.00002, 0.00006, 0.00011,
1676 + 0.07829, 0.01399, 0.00541, 0.00004, 0.00003,
1677 + 0.00002, 0.00005, 0.00010,
1678 + 0.07111, 0.01262, 0.00442, 0.00003, 0.00003,
1679 + 0.00002, 0.00005, 0.00010 /
1680 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=8,14)/
1681 + 0.06500, 0.01147, 0.00367, 0.00004, 0.00003,
1682 + 0.00002, 0.00004, 0.00008,
1683 + 0.05971, 0.01048, 0.00310, 0.00004, 0.00003,
1684 + 0.00002, 0.00004, 0.00007,
1685 + 0.05515, 0.00963, 0.00266, 0.00003, 0.00002,
1686 + 0.00001, 0.00004, 0.00007,
1687 + 0.05114, 0.00889, 0.00231, 0.00003, 0.00002,
1688 + 0.00001, 0.00003, 0.00006,
1689 + 0.04760, 0.00823, 0.00202, 0.00003, 0.00002,
1690 + 0.00001, 0.00003, 0.00005,
1691 + 0.04446, 0.00766, 0.00178, 0.00003, 0.00002,
1692 + 0.00001, 0.00003, 0.00005,
1693 + 0.04167, 0.00714, 0.00159, 0.00002, 0.00002,
1694 + 0.00001, 0.00003, 0.00005 /
1695 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=15,19)/
1696 + 0.03915, 0.00669, 0.00143, 0.00002, 0.00002,
1697 + 0.00001, 0.00003, 0.00005,
1698 + 0.03687, 0.00628, 0.00129, 0.00002, 0.00001,
1699 + 0.00001, 0.00003, 0.00004,
1700 + 0.03481, 0.00590, 0.00117, 0.00002, 0.00001,
1701 + 0.00001, 0.00002, 0.00004,
1702 + 0.03295, 0.00557, 0.00107, 0.00001, 0.00001,
1703 + 0.00001, 0.00002, 0.00003,
1704 + 0.03124, 0.00526, 0.00098, 0.00001, 0.00001,
1705 + 0.00001, 0.00002, 0.00003 /
1706 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,7)/
1707 + 0.09569, 0.01614, 0.01080, 0.00002, 0.00000,
1708 + 0.00000, 0.00002, 0.00006,
1709 + 0.08074, 0.01346, 0.00724, 0.00001, 0.00001,
1710 + 0.00000, 0.00002, 0.00006,
1711 + 0.06949, 0.01147, 0.00514, 0.00002, 0.00001,
1712 + 0.00000, 0.00002, 0.00004,
1713 + 0.06072, 0.00993, 0.00381, 0.00001, 0.00001,
1714 + 0.00000, 0.00002, 0.00003,
1715 + 0.05369, 0.00871, 0.00292, 0.00001, 0.00001,
1716 + 0.00000, 0.00002, 0.00003,
1717 + 0.04793, 0.00772, 0.00231, 0.00001, 0.00001,
1718 + 0.00000, 0.00001, 0.00003,
1719 + 0.04311, 0.00690, 0.00187, 0.00001, 0.00001,
1720 + 0.00000, 0.00001, 0.00002 /
1721 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=8,14)/
1722 + 0.03904, 0.00622, 0.00154, 0.00001, 0.00001,
1723 + 0.00000, 0.00001, 0.00002,
1724 + 0.03558, 0.00564, 0.00129, 0.00001, 0.00001,
1725 + 0.00001, 0.00001, 0.00002,
1726 + 0.03261, 0.00514, 0.00110, 0.00001, 0.00001,
1727 + 0.00001, 0.00001, 0.00002,
1728 + 0.03001, 0.00471, 0.00095, 0.00000, 0.00001,
1729 + 0.00000, 0.00001, 0.00002,
1730 + 0.02774, 0.00433, 0.00082, 0.00001, 0.00001,
1731 + 0.00000, 0.00001, 0.00001,
1732 + 0.02574, 0.00400, 0.00073, 0.00001, 0.00001,
1733 + 0.00000, 0.00001, 0.00001,
1734 + 0.02397, 0.00371, 0.00064, 0.00000, 0.00001,
1735 + 0.00000, 0.00001, 0.00001 /
1736 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=15,19)/
1737 + 0.02239, 0.00345, 0.00058, 0.00000, 0.00001,
1738 + 0.00000, 0.00001, 0.00001,
1739 + 0.02096, 0.00323, 0.00052, 0.00001, 0.00001,
1740 + 0.00000, 0.00001, 0.00001,
1741 + 0.01968, 0.00302, 0.00047, 0.00000, 0.00001,
1742 + 0.00000, 0.00001, 0.00001,
1743 + 0.01852, 0.00283, 0.00043, 0.00000, 0.00000,
1744 + 0.00000, 0.00001, 0.00001,
1745 + 0.01747, 0.00266, 0.00039, 0.00000, 0.00000,
1746 + 0.00000, 0.00001, 0.00001 /
1747 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,7)/
1748 + 0.05720, 0.00862, 0.00448, 0.00001, 0.00000,
1749 + 0.00000, 0.00000, 0.00001,
1750 + 0.04740, 0.00707, 0.00291, 0.00000, 0.00000,
1751 + 0.00000, 0.00000, 0.00002,
1752 + 0.04017, 0.00593, 0.00202, 0.00001, 0.00000,
1753 + 0.00000, 0.00000, 0.00001,
1754 + 0.03463, 0.00507, 0.00147, 0.00000, 0.00000,
1755 + 0.00000, 0.00000, 0.00001,
1756 + 0.03024, 0.00439, 0.00112, 0.00000, 0.00000,
1757 + 0.00000, 0.00000, 0.00001,
1758 + 0.02668, 0.00385, 0.00087, 0.00001, 0.00000,
1759 + 0.00000, 0.00000, 0.00001,
1760 + 0.02375, 0.00341, 0.00070, 0.00001, 0.00000,
1761 + 0.00000, 0.00000, 0.00000 /
1762 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=8,14)/
1763 + 0.02130, 0.00304, 0.00057, 0.00000, 0.00000,
1764 + 0.00000, 0.00000, 0.00001,
1765 + 0.01925, 0.00274, 0.00048, 0.00000, 0.00000,
1766 + 0.00000, 0.00000, 0.00000,
1767 + 0.01749, 0.00247, 0.00040, 0.00000, 0.00000,
1768 + 0.00000, 0.00000, 0.00000,
1769 + 0.01596, 0.00225, 0.00035, 0.00000, 0.00000,
1770 + 0.00000, 0.00000, 0.00000,
1771 + 0.01464, 0.00205, 0.00030, 0.00000, 0.00000,
1772 + 0.00000, 0.00000, 0.00000,
1773 + 0.01349, 0.00188, 0.00026, 0.00000, 0.00000,
1774 + 0.00000, 0.00000, 0.00000,
1775 + 0.01247, 0.00174, 0.00023, 0.00000, 0.00000,
1776 + 0.00000, 0.00000, 0.00000 /
1777 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=15,19)/
1778 + 0.01158, 0.00161, 0.00021, 0.00000, 0.00000,
1779 + 0.00000, 0.00000, 0.00000,
1780 + 0.01078, 0.00149, 0.00019, 0.00000, 0.00000,
1781 + 0.00000, 0.00000, 0.00000,
1782 + 0.01006, 0.00138, 0.00017, 0.00000, 0.00000,
1783 + 0.00000, 0.00000, 0.00000,
1784 + 0.00942, 0.00129, 0.00015, 0.00000, 0.00000,
1785 + 0.00000, 0.00000, 0.00000,
1786 + 0.00883, 0.00121, 0.00014, 0.00000, 0.00000,
1787 + 0.00000, 0.00000, 0.00000 /
1788 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,7)/
1789 + 0.03038, 0.00405, 0.00156, 0.00000, 0.00000,
1790 + 0.00000, 0.00000, 0.00001,
1791 + 0.02468, 0.00326, 0.00099, 0.00001, 0.00000,
1792 + 0.00000, 0.00000, 0.00000,
1793 + 0.02056, 0.00269, 0.00067, 0.00000, 0.00000,
1794 + 0.00000, 0.00000, 0.00000,
1795 + 0.01745, 0.00226, 0.00048, 0.00000, 0.00000,
1796 + 0.00000, 0.00000, 0.00000,
1797 + 0.01503, 0.00194, 0.00036, 0.00000, 0.00000,
1798 + 0.00000, 0.00000, 0.00000,
1799 + 0.01309, 0.00168, 0.00028, 0.00000, 0.00000,
1800 + 0.00000, 0.00000, 0.00000,
1801 + 0.01152, 0.00147, 0.00022, 0.00000, 0.00000,
1802 + 0.00000, 0.00000, 0.00000 /
1803 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=8,14)/
1804 + 0.01022, 0.00129, 0.00018, 0.00000, 0.00000,
1805 + 0.00000, 0.00000, 0.00000,
1806 + 0.00914, 0.00115, 0.00015, 0.00000, 0.00000,
1807 + 0.00000, 0.00000, 0.00000,
1808 + 0.00822, 0.00103, 0.00013, 0.00000, 0.00000,
1809 + 0.00000, 0.00000, 0.00000,
1810 + 0.00744, 0.00093, 0.00011, 0.00000, 0.00000,
1811 + 0.00000, 0.00000, 0.00000,
1812 + 0.00677, 0.00084, 0.00009, 0.00000, 0.00000,
1813 + 0.00000, 0.00000, 0.00000,
1814 + 0.00619, 0.00077, 0.00008, 0.00000, 0.00000,
1815 + 0.00000, 0.00000, 0.00000,
1816 + 0.00568, 0.00070, 0.00007, 0.00000, 0.00000,
1817 + 0.00000, 0.00000, 0.00000 /
1818 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=15,19)/
1819 + 0.00523, 0.00064, 0.00006, 0.00000, 0.00000,
1820 + 0.00000, 0.00000, 0.00000,
1821 + 0.00483, 0.00059, 0.00006, 0.00000, 0.00000,
1822 + 0.00000, 0.00000, 0.00000,
1823 + 0.00448, 0.00055, 0.00005, 0.00000, 0.00000,
1824 + 0.00000, 0.00000, 0.00000,
1825 + 0.00417, 0.00051, 0.00005, 0.00000, 0.00000,
1826 + 0.00000, 0.00000, 0.00000,
1827 + 0.00389, 0.00047, 0.00004, 0.00000, 0.00000,
1828 + 0.00000, 0.00000, 0.00000 /
1829 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,7)/
1830 + 0.01357, 0.00157, 0.00042, 0.00000, 0.00000,
1831 + 0.00000, 0.00000, 0.00000,
1832 + 0.01079, 0.00124, 0.00026, 0.00000, 0.00000,
1833 + 0.00000, 0.00000, 0.00000,
1834 + 0.00881, 0.00100, 0.00017, 0.00000, 0.00000,
1835 + 0.00000, 0.00000, 0.00000,
1836 + 0.00734, 0.00083, 0.00012, 0.00000, 0.00000,
1837 + 0.00000, 0.00000, 0.00000,
1838 + 0.00622, 0.00070, 0.00009, 0.00000, 0.00000,
1839 + 0.00000, 0.00000, 0.00000,
1840 + 0.00534, 0.00060, 0.00007, 0.00000, 0.00000,
1841 + 0.00000, 0.00000, 0.00000,
1842 + 0.00464, 0.00051, 0.00006, 0.00000, 0.00000,
1843 + 0.00000, 0.00000, 0.00000 /
1844 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=8,14)/
1845 + 0.00407, 0.00045, 0.00005, 0.00000, 0.00000,
1846 + 0.00000, 0.00000, 0.00000,
1847 + 0.00359, 0.00039, 0.00004, 0.00000, 0.00000,
1848 + 0.00000, 0.00000, 0.00000,
1849 + 0.00319, 0.00035, 0.00003, 0.00000, 0.00000,
1850 + 0.00000, 0.00000, 0.00000,
1851 + 0.00286, 0.00031, 0.00003, 0.00000, 0.00000,
1852 + 0.00000, 0.00000, 0.00000,
1853 + 0.00258, 0.00028, 0.00002, 0.00000, 0.00000,
1854 + 0.00000, 0.00000, 0.00000,
1855 + 0.00233, 0.00025, 0.00002, 0.00000, 0.00000,
1856 + 0.00000, 0.00000, 0.00000,
1857 + 0.00212, 0.00023, 0.00002, 0.00000, 0.00000,
1858 + 0.00000, 0.00000, 0.00000 /
1859 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=15,19)/
1860 + 0.00194, 0.00021, 0.00002, 0.00000, 0.00000,
1861 + 0.00000, 0.00000, 0.00000,
1862 + 0.00178, 0.00019, 0.00002, 0.00000, 0.00000,
1863 + 0.00000, 0.00000, 0.00000,
1864 + 0.00163, 0.00017, 0.00001, 0.00000, 0.00000,
1865 + 0.00000, 0.00000, 0.00000,
1866 + 0.00151, 0.00016, 0.00001, 0.00000, 0.00000,
1867 + 0.00000, 0.00000, 0.00000,
1868 + 0.00140, 0.00015, 0.00001, 0.00000, 0.00000,
1869 + 0.00000, 0.00000, 0.00000 /
1870 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,7)/
1871 + 0.00100, 0.00008, 0.00001, 0.00000, 0.00000,
1872 + 0.00000, 0.00000, 0.00000,
1873 + 0.00075, 0.00006, 0.00001, 0.00000, 0.00000,
1874 + 0.00000, 0.00000, 0.00000,
1875 + 0.00058, 0.00004, 0.00000, 0.00000, 0.00000,
1876 + 0.00000, 0.00000, 0.00000,
1877 + 0.00046, 0.00004, 0.00000, 0.00000, 0.00000,
1878 + 0.00000, 0.00000, 0.00000,
1879 + 0.00037, 0.00003, 0.00000, 0.00000, 0.00000,
1880 + 0.00000, 0.00000, 0.00000,
1881 + 0.00030, 0.00002, 0.00000, 0.00000, 0.00000,
1882 + 0.00000, 0.00000, 0.00000,
1883 + 0.00025, 0.00002, 0.00000, 0.00000, 0.00000,
1884 + 0.00000, 0.00000, 0.00000 /
1885 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=8,14)/
1886 + 0.00021, 0.00002, 0.00000, 0.00000, 0.00000,
1887 + 0.00000, 0.00000, 0.00000,
1888 + 0.00018, 0.00001, 0.00000, 0.00000, 0.00000,
1889 + 0.00000, 0.00000, 0.00000,
1890 + 0.00016, 0.00001, 0.00000, 0.00000, 0.00000,
1891 + 0.00000, 0.00000, 0.00000,
1892 + 0.00014, 0.00001, 0.00000, 0.00000, 0.00000,
1893 + 0.00000, 0.00000, 0.00000,
1894 + 0.00012, 0.00001, 0.00000, 0.00000, 0.00000,
1895 + 0.00000, 0.00000, 0.00000,
1896 + 0.00011, 0.00001, 0.00000, 0.00000, 0.00000,
1897 + 0.00000, 0.00000, 0.00000,
1898 + 0.00009, 0.00001, 0.00000, 0.00000, 0.00000,
1899 + 0.00000, 0.00000, 0.00000 /
1900 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=15,19)/
1901 + 0.00008, 0.00001, 0.00000, 0.00000, 0.00000,
1902 + 0.00000, 0.00000, 0.00000,
1903 + 0.00007, 0.00001, 0.00000, 0.00000, 0.00000,
1904 + 0.00000, 0.00000, 0.00000,
1905 + 0.00007, 0.00001, 0.00000, 0.00000, 0.00000,
1906 + 0.00000, 0.00000, 0.00000,
1907 + 0.00006, 0.00001, 0.00000, 0.00000, 0.00000,
1908 + 0.00000, 0.00000, 0.00000,
1909 + 0.00005, 0.00001, 0.00000, 0.00000, 0.00000,
1910 + 0.00000, 0.00000, 0.00000 /
1911 DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5,
1912 . 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4,
1913 . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3,
1914 . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2,
1915 . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0,
1916 . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0,
1917 . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0,
1918 . .8D0,.9D0,1.D0/
1919 DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/
1920 DATA N0/2,5,5,9,0,0,9,9/
1921 DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
1922 DATA INIT/0/
1923
1924 XSAVE=X
1925C
1926 IF(INIT.NE.0) GOTO 10
1927 INIT=1
1928 DO 20 N=1,NX-1
1929 DO 20 M=1,19
1930C READ(31,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),
1931C . F(6,N,M),F(8,N,M)
1932C 1=UV 2=DV 3=GLUE 4=UBAR 5=CBAR 7=BBAR 6=SBAR 8=DBAR
1933 DO 25 I=1,8
1934 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I)
1935 20 CONTINUE
1936 DO 31 J=1,NTENTH-1
1937 XX(J)= LOG10(XX(J))+ONEDO
1938 DO 31 I=1,8
1939 IF(I.EQ.7) GO TO 31
1940 DO 30 K=1,19
1941 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K))
1942 31 CONTINUE
1943 50 FORMAT(8F10.5)
1944 DO 40 I=1,8
1945 DO 40 M=1,19
1946 40 F(I,NX,M)=ZEROD
1947 10 CONTINUE
1948 IF(X.LT.XMIN) X=XMIN
1949 IF(X.GT.XMAX) X=XMAX
1950 QSQ=SCALE**2
1951 IF(QSQ.LT.QSQMIN) QSQ=QSQMIN
1952 IF(QSQ.GT.QSQMAX) QSQ=QSQMAX
1953 XXX=X
1954 IF(X.LT.PONED) XXX= LOG10(X)+ONEDO
1955 N=0
1956 70 N=N+1
1957 IF(XXX.GT.XX(N+1)) GOTO 70
1958 A=(XXX-XX(N))/(XX(N+1)-XX(N))
1959 RM= LOG(QSQ/QSQMIN)/ LOG(TWOD)
1960 B=RM-AINT(RM)
1961 M=1+ INT(RM)
1962 DO 60 I=1,8
1963 G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1)
1964 . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1)
1965 IF(N.GE.NTENTH) GOTO 65
1966 IF(I.EQ.7) GOTO 65
1967 FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1)
1968 G(I)=FAC**(G(I)/FAC)
1969 65 CONTINUE
1970 G(I)=G(I)*(ONED-X)**N0(I)
1971 60 CONTINUE
1972 UPV=G(1)
1973 DNV=G(2)
1974 USEA=G(4)
1975 DSEA=G(8)
1976 STR=G(6)
1977 CHM=G(5)
1978 GLU=G(3)
1979 BOT=G(7)
1980
1981 X=XSAVE
1982
1983 RETURN
1984 END