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