]> git.uio.no Git - u/mrichter/AliRoot.git/blob - PDF/spdf/sfmsap.F
SetChildMomentumRange, SetChildPtRange, SetChildPhiRange, SetChildThetaRange added.
[u/mrichter/AliRoot.git] / PDF / spdf / sfmsap.F
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.2  1996/10/30 08:30:12  cernlib
6 * Version 7.04
7 *
8 * Revision 1.1.1.1  1996/04/12 15:29:41  plothow
9 * Version 7.01
10 *
11 *
12 #include "pdf/pilot.h"
13       SUBROUTINE SFMSAP(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU)
14
15 C     THIS IS THE NEW  "Aprime" FIT -- Feb 1995 -- standard Q^2 range
16 C
17 #include "pdf/impdp.inc"
18 C
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.00341,   0.00574,  16.34894,   1.36777,   0.16849,
24      +    0.00000,   0.74209,   1.37043,
25      +    0.00380,   0.00601,  27.84977,   1.71293,   0.53041,
26      +    0.00000,   1.09672,   1.71625,
27      +    0.00417,   0.00625,  41.61470,   2.11989,   0.95188,
28      +    0.00000,   1.51192,   2.12382,
29      +    0.00452,   0.00647,  57.12130,   2.58001,   1.42481,
30      +    0.29549,   1.97933,   2.58449,
31      +    0.00485,   0.00669,  74.36945,   3.09151,   1.94783,
32      +    0.85447,   2.49742,   3.09651,
33      +    0.00516,   0.00689,  93.12980,   3.65043,   2.51725,
34      +    1.43583,   3.06235,   3.65592,
35      +    0.00546,   0.00708, 113.16151,   4.25147,   3.12793,
36      +    2.05929,   3.66894,   4.25743 /
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.00576,   0.00727, 134.27341,   4.89014,   3.77551,
39      +    2.71844,   4.31273,   4.89653,
40      +    0.00604,   0.00744, 156.31604,   5.56261,   4.45626,
41      +    3.40991,   4.98997,   5.56941,
42      +    0.00631,   0.00762, 179.17664,   6.26585,   5.16723,
43      +    4.13084,   5.69768,   6.27305,
44      +    0.00658,   0.00778, 202.77608,   6.99762,   5.90626,
45      +    4.87917,   6.43365,   7.00520,
46      +    0.00683,   0.00794, 227.00273,   7.75517,   6.67063,
47      +    5.65226,   7.19516,   7.76312,
48      +    0.00708,   0.00810, 251.47612,   8.53016,   7.45208,
49      +    6.44193,   7.97389,   8.53846,
50      +    0.00733,   0.00825, 276.50598,   9.32807,   8.25610,
51      +    7.25370,   8.77535,   9.33670 /
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.00756,   0.00840, 301.98294,  10.14641,   9.08025,
54      +    8.08518,   9.59707,  10.15537,
55      +    0.00780,   0.00854, 327.44116,  10.97447,   9.91385,
56      +    8.92575,  10.42836,  10.98375,
57      +    0.00802,   0.00868, 353.43365,  11.82398,  10.76864,
58      +    9.78716,  11.28094,  11.83356,
59      +    0.00825,   0.00882, 379.29434,  12.67963,  11.62935,
60      +   10.65419,  12.13954,  12.68951,
61      +    0.00846,   0.00895, 405.52954,  13.55245,  12.50701,
62      +   11.53788,  13.01519,  13.56261 /
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.00523,   0.00746,  14.27491,   1.20378,   0.14390,
65      +    0.00000,   0.64930,   1.20653,
66      +    0.00579,   0.00782,  23.56232,   1.48695,   0.44209,
67      +    0.00000,   0.94077,   1.49013,
68      +    0.00630,   0.00815,  34.37032,   1.81410,   0.78224,
69      +    0.00000,   1.27513,   1.81768,
70      +    0.00679,   0.00845,  46.26783,   2.17756,   1.15717,
71      +    0.23398,   1.64495,   2.18150,
72      +    0.00725,   0.00874,  59.24736,   2.57556,   1.56547,
73      +    0.67185,   2.04869,   2.57984,
74      +    0.00769,   0.00901,  73.12711,   3.00465,   2.00394,
75      +    1.12063,   2.48302,   3.00924,
76      +    0.00811,   0.00927,  87.72483,   3.46052,   2.46842,
77      +    1.59600,   2.94370,   3.46542 /
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.00851,   0.00952, 102.90147,   3.93963,   2.95547,
80      +    2.09293,   3.42725,   3.94481,
81      +    0.00890,   0.00976, 118.55226,   4.43904,   3.46226,
82      +    2.60888,   3.93080,   4.44449,
83      +    0.00928,   0.00999, 134.60143,   4.95651,   3.98662,
84      +    3.14173,   4.45214,   4.96221,
85      +    0.00965,   0.01021, 150.99817,   5.49039,   4.52695,
86      +    3.69000,   4.98964,   5.49633,
87      +    0.01000,   0.01042, 167.66873,   6.03869,   5.08132,
88      +    4.25181,   5.54136,   6.04487,
89      +    0.01034,   0.01063, 184.35077,   6.59534,   5.64372,
90      +    4.82121,   6.10124,   6.60174,
91      +    0.01068,   0.01083, 201.27243,   7.16452,   6.21833,
92      +    5.40243,   6.67348,   7.17113 /
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.01100,   0.01103, 218.36198,   7.74447,   6.80344,
95      +    5.99379,   7.25634,   7.75130,
96      +    0.01132,   0.01122, 235.30188,   8.32752,   7.39141,
97      +    6.58770,   7.84216,   8.33455,
98      +    0.01163,   0.01140, 252.48384,   8.92230,   7.99087,
99      +    7.19280,   8.43958,   8.92952,
100      +    0.01193,   0.01158, 269.45328,   9.51785,   8.59091,
101      +    7.79822,   9.03767,   9.52526,
102      +    0.01223,   0.01176, 286.56522,  10.12224,   9.19958,
103      +    8.41204,   9.64448,  10.12983 /
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.00790,   0.00970,  12.46120,   1.05878,   0.12275,
106      +    0.00000,   0.56794,   1.06166,
107      +    0.00869,   0.01019,  19.92904,   1.29013,   0.36761,
108      +    0.00000,   0.80661,   1.29328,
109      +    0.00942,   0.01064,  28.37716,   1.55193,   0.64110,
110      +    0.00000,   1.07475,   1.55533,
111      +    0.01010,   0.01105,  37.46199,   1.83766,   0.93712,
112      +    0.18454,   1.36608,   1.84129,
113      +    0.01074,   0.01144,  47.18013,   2.14581,   1.25452,
114      +    0.52621,   1.67926,   2.14965,
115      +    0.01135,   0.01180,  57.39457,   2.47355,   1.59067,
116      +    0.87124,   2.01158,   2.47759,
117      +    0.01194,   0.01215,  67.97319,   2.81751,   1.94234,
118      +    1.23218,   2.35975,   2.82173 /
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.01250,   0.01248,  78.81964,   3.17500,   2.30695,
121      +    1.60521,   2.72113,   3.17940,
122      +    0.01304,   0.01280,  89.86458,   3.54389,   2.68244,
123      +    1.98850,   3.09362,   3.54845,
124      +    0.01356,   0.01311, 101.06064,   3.92255,   3.06727,
125      +    2.38056,   3.47565,   3.92727,
126      +    0.01406,   0.01340, 112.37846,   4.30986,   3.46036,
127      +    2.78041,   3.86613,   4.31474,
128      +    0.01455,   0.01369, 123.77215,   4.70446,   3.86038,
129      +    3.18676,   4.26369,   4.70947,
130      +    0.01502,   0.01396, 135.06305,   5.10196,   4.26301,
131      +    3.59536,   4.66400,   5.10711,
132      +    0.01547,   0.01423, 146.42036,   5.50559,   4.67150,
133      +    4.00946,   5.07029,   5.51088 /
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.01592,   0.01448, 157.79880,   5.91415,   5.08467,
136      +    4.42794,   5.48138,   5.91957,
137      +    0.01635,   0.01473, 168.98354,   6.32219,   5.49709,
138      +    4.84542,   5.89181,   6.32772,
139      +    0.01677,   0.01498, 180.25227,   6.73607,   5.91515,
140      +    5.26827,   6.30799,   6.74172,
141      +    0.01718,   0.01521, 191.29652,   7.14800,   6.33107,
142      +    5.68878,   6.72211,   7.15377,
143      +    0.01759,   0.01544, 202.36566,   7.56387,   6.75077,
144      +    6.11285,   7.14008,   7.56975 /
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.01001,   0.01132,  11.50687,   0.98175,   0.11177,
147      +    0.00000,   0.52504,   0.98476,
148      +    0.01098,   0.01190,  18.06482,   1.18683,   0.32958,
149      +    0.00000,   0.73695,   1.19005,
150      +    0.01187,   0.01243,  25.36090,   1.41606,   0.56981,
151      +    0.00000,   0.97209,   1.41947,
152      +    0.01269,   0.01292,  33.09897,   1.66362,   0.82706,
153      +    0.16028,   1.22486,   1.66720,
154      +    0.01347,   0.01338,  41.28057,   1.92820,   1.10035,
155      +    0.45517,   1.49413,   1.93194,
156      +    0.01422,   0.01382,  49.79235,   2.20736,   1.38742,
157      +    0.75036,   1.77755,   2.21125,
158      +    0.01492,   0.01423,  58.52721,   2.49822,   1.68553,
159      +    1.05691,   2.07231,   2.50225 /
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.01560,   0.01463,  67.40930,   2.79855,   1.99255,
162      +    1.37159,   2.37625,   2.80271,
163      +    0.01625,   0.01501,  76.38609,   3.10659,   2.30680,
164      +    1.69293,   2.68764,   3.11088,
165      +    0.01688,   0.01537,  85.42310,   3.42106,   2.62706,
166      +    2.01977,   3.00523,   3.42546,
167      +    0.01748,   0.01571,  94.50066,   3.74108,   2.95251,
168      +    2.35136,   3.32818,   3.74560,
169      +    0.01807,   0.01605, 103.58522,   4.06556,   3.28209,
170      +    2.68669,   3.65542,   4.07019,
171      +    0.01863,   0.01637, 112.53505,   4.39093,   3.61228,
172      +    3.02230,   3.98339,   4.39566,
173      +    0.01918,   0.01669, 121.49236,   4.71996,   3.94586,
174      +    3.36100,   4.31488,   4.72479 /
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.01972,   0.01699, 130.42348,   5.05172,   4.28194,
177      +    3.70191,   4.64897,   5.05664,
178      +    0.02023,   0.01728, 139.15791,   5.38174,   4.61608,
179      +    4.04064,   4.98121,   5.38675,
180      +    0.02074,   0.01757, 147.92311,   5.71536,   4.95363,
181      +    4.38254,   5.31696,   5.72047,
182      +    0.02123,   0.01784, 156.47362,   6.04622,   5.28824,
183      +    4.72131,   5.64984,   6.05141,
184      +    0.02171,   0.01811, 165.01198,   6.37922,   5.62483,
185      +    5.06187,   5.98479,   6.38450 /
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.01181,   0.01262,  10.87302,   0.93026,   0.10455,
188      +    0.00000,   0.49651,   0.93338,
189      +    0.01293,   0.01329,  16.84599,   1.11830,   0.30481,
190      +    0.00000,   0.69108,   1.12161,
191      +    0.01395,   0.01389,  23.41261,   1.32664,   0.52370,
192      +    0.00000,   0.90505,   1.33011,
193      +    0.01490,   0.01445,  30.30828,   1.54994,   0.75629,
194      +    0.14487,   1.13332,   1.55355,
195      +    0.01580,   0.01497,  37.53857,   1.78706,   1.00176,
196      +    0.41022,   1.37490,   1.79081,
197      +    0.01665,   0.01546,  45.00551,   2.03581,   1.25810,
198      +    0.67418,   1.62771,   2.03968,
199      +    0.01746,   0.01593,  52.61781,   2.29365,   1.52290,
200      +    0.94686,   1.88927,   2.29765 /
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.01824,   0.01637,  60.31244,   2.55865,   1.79431,
203      +    1.22542,   2.15769,   2.56275,
204      +    0.01898,   0.01680,  68.04700,   2.82928,   2.07089,
205      +    1.50863,   2.43151,   2.83348,
206      +    0.01970,   0.01720,  75.79476,   3.10447,   2.35163,
207      +    1.79552,   2.70967,   3.10877,
208      +    0.02039,   0.01760,  83.54190,   3.38349,   2.63586,
209      +    2.08548,   2.99148,   3.38790,
210      +    0.02105,   0.01797,  91.26199,   3.66545,   2.92270,
211      +    2.37771,   3.27606,   3.66995,
212      +    0.02170,   0.01834,  98.83516,   3.94725,   3.20911,
213      +    2.66918,   3.56032,   3.95183,
214      +    0.02232,   0.01869, 106.38724,   4.23137,   3.49760,
215      +    2.96244,   3.84678,   4.23603 /
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.02293,   0.01903, 113.89106,   4.51705,   3.78743,
218      +    3.25677,   4.13468,   4.52179,
219      +    0.02351,   0.01936, 121.20264,   4.80043,   4.07475,
220      +    3.54838,   4.42017,   4.80525,
221      +    0.02409,   0.01968, 128.51881,   5.08622,   4.36429,
222      +    3.84200,   4.70797,   5.09111,
223      +    0.02464,   0.01999, 135.63156,   5.36890,   4.65057,
224      +    4.13215,   4.99258,   5.37387,
225      +    0.02519,   0.02029, 142.71542,   5.65280,   4.93790,
226      +    4.42319,   5.27832,   5.65783 /
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.01342,   0.01374,  10.40444,   0.89200,   0.09924,
229      +    0.00000,   0.47540,   0.89525,
230      +    0.01466,   0.01447,  15.95537,   1.06768,   0.28676,
231      +    0.00000,   0.65738,   1.07109,
232      +    0.01580,   0.01514,  22.00158,   1.26097,   0.49028,
233      +    0.00000,   0.85611,   1.26452,
234      +    0.01686,   0.01575,  28.30171,   1.46691,   0.70523,
235      +    0.13386,   1.06685,   1.47060,
236      +    0.01786,   0.01633,  34.86451,   1.68451,   0.93092,
237      +    0.37817,   1.28875,   1.68832,
238      +    0.01881,   0.01687,  41.60317,   1.91176,   1.16552,
239      +    0.62002,   1.51991,   1.91568,
240      +    0.01971,   0.01738,  48.43763,   2.14637,   1.40686,
241      +    0.86884,   1.75811,   2.15039 /
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.02057,   0.01787,  55.31372,   2.38660,   1.65331,
244      +    1.12207,   2.00164,   2.39072,
245      +    0.02139,   0.01834,  62.19605,   2.63112,   1.90360,
246      +    1.37864,   2.24923,   2.63533,
247      +    0.02219,   0.01878,  69.06330,   2.87899,   2.15685,
248      +    1.63773,   2.49997,   2.88330,
249      +    0.02295,   0.01921,  75.90525,   3.12961,   2.41250,
250      +    1.89882,   2.75327,   3.13400,
251      +    0.02369,   0.01962,  82.70053,   3.38218,   2.66981,
252      +    2.16123,   3.00836,   3.38665,
253      +    0.02440,   0.02002,  89.34396,   3.63396,   2.92605,
254      +    2.42227,   3.26252,   3.63850,
255      +    0.02509,   0.02040,  95.95007,   3.88723,   3.18355,
256      +    2.68429,   3.51804,   3.89185 /
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.02576,   0.02078, 102.49614,   4.14133,   3.44166,
259      +    2.94668,   3.77428,   4.14602,
260      +    0.02641,   0.02114, 108.85563,   4.39283,   3.69698,
261      +    3.20606,   4.02781,   4.39759,
262      +    0.02704,   0.02148, 115.20495,   4.64598,   3.95378,
263      +    3.46671,   4.28290,   4.65081,
264      +    0.02765,   0.02182, 121.36076,   4.89588,   4.20715,
265      +    3.72377,   4.53465,   4.90077,
266      +    0.02825,   0.02215, 127.47897,   5.14642,   4.46102,
267      +    3.98114,   4.78696,   5.15137 /
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.01982,   0.01792,   9.06611,   0.78170,   0.08426,
270      +    0.00000,   0.41502,   0.78550,
271      +    0.02157,   0.01891,  13.46304,   0.92319,   0.23655,
272      +    0.00000,   0.56221,   0.92713,
273      +    0.02318,   0.01981,  18.11430,   1.07546,   0.39816,
274      +    0.00000,   0.71942,   1.07954,
275      +    0.02466,   0.02064,  22.84342,   1.23470,   0.56562,
276      +    0.10422,   0.88300,   1.23889,
277      +    0.02605,   0.02141,  27.66872,   1.40031,   0.73860,
278      +    0.29241,   1.05249,   1.40460,
279      +    0.02736,   0.02213,  32.53346,   1.57082,   0.91583,
280      +    0.47583,   1.22655,   1.57523,
281      +    0.02861,   0.02282,  37.38685,   1.74464,   1.09579,
282      +    0.66212,   1.40361,   1.74914 /
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.02979,   0.02347,  42.19742,   1.92058,   1.27740,
285      +    0.84947,   1.58254,   1.92516,
286      +    0.03093,   0.02409,  46.94717,   2.09777,   1.45985,
287      +    1.03725,   1.76251,   2.10244,
288      +    0.03202,   0.02469,  51.62756,   2.27566,   1.64264,
289      +    1.22497,   1.94298,   2.28041,
290      +    0.03306,   0.02525,  56.23737,   2.45390,   1.82548,
291      +    1.41241,   2.12364,   2.45873,
292      +    0.03407,   0.02580,  60.76658,   2.63203,   2.00793,
293      +    1.59918,   2.30405,   2.63693,
294      +    0.03504,   0.02632,  65.14653,   2.80813,   2.18811,
295      +    1.78342,   2.48231,   2.81311,
296      +    0.03597,   0.02683,  69.46220,   2.98401,   2.36784,
297      +    1.96697,   2.66021,   2.98905 /
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.03688,   0.02732,  73.70121,   3.15924,   2.54674,
300      +    2.14949,   2.83738,   3.16435,
301      +    0.03776,   0.02779,  77.78007,   3.33145,   2.72243,
302      +    2.32861,   3.01142,   3.33662,
303      +    0.03861,   0.02825,  81.82326,   3.50378,   2.89807,
304      +    2.50751,   3.18550,   3.50901,
305      +    0.03944,   0.02869,  85.70834,   3.67278,   3.07024,
306      +    2.68279,   3.35616,   3.67806,
307      +    0.04025,   0.02912,  89.54416,   3.84130,   3.24180,
308      +    2.85731,   3.52628,   3.84664 /
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.02910,   0.02346,   7.88212,   0.68264,   0.07127,
311      +    0.00000,   0.36145,   0.68732,
312      +    0.03156,   0.02480,  11.32634,   0.79541,   0.19399,
313      +    0.00000,   0.47949,   0.80028,
314      +    0.03380,   0.02602,  14.86166,   0.91404,   0.32122,
315      +    0.00000,   0.60268,   0.91908,
316      +    0.03586,   0.02713,  18.36563,   1.03571,   0.45047,
317      +    0.08043,   0.72836,   1.04091,
318      +    0.03778,   0.02816,  21.86448,   1.16019,   0.58176,
319      +    0.22407,   0.85644,   1.16554,
320      +    0.03960,   0.02913,  25.32497,   1.28651,   0.71427,
321      +    0.36186,   0.98603,   1.29199,
322      +    0.04131,   0.03004,  28.71812,   1.41360,   0.84703,
323      +    0.49995,   1.11612,   1.41921 /
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.04294,   0.03091,  32.02872,   1.54070,   0.97937,
326      +    0.63714,   1.24599,   1.54643,
327      +    0.04449,   0.03173,  35.25054,   1.66732,   1.11085,
328      +    0.77311,   1.37518,   1.67317,
329      +    0.04598,   0.03252,  38.38342,   1.79316,   1.24122,
330      +    0.90764,   1.50342,   1.79911,
331      +    0.04740,   0.03327,  41.43144,   1.91808,   1.37039,
332      +    1.04069,   1.63058,   1.92414,
333      +    0.04876,   0.03399,  44.39192,   2.04184,   1.49814,
334      +    1.17207,   1.75645,   2.04800,
335      +    0.05007,   0.03468,  47.22102,   2.16314,   1.62321,
336      +    1.30056,   1.87974,   2.16940,
337      +    0.05134,   0.03534,  49.98155,   2.28337,   1.74701,
338      +    1.42758,   2.00186,   2.28972 /
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.05256,   0.03598,  52.66763,   2.40231,   1.86933,
341      +    1.55294,   2.12258,   2.40874,
342      +    0.05374,   0.03660,  55.22485,   2.51831,   1.98855,
343      +    1.67506,   2.24029,   2.52483,
344      +    0.05489,   0.03719,  57.74058,   2.63370,   2.10701,
345      +    1.79626,   2.35729,   2.64030,
346      +    0.05600,   0.03777,  60.13393,   2.74607,   2.22231,
347      +    1.91418,   2.47121,   2.75275,
348      +    0.05707,   0.03833,  62.48022,   2.85749,   2.33655,
349      +    2.03091,   2.58412,   2.86425 /
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.03635,   0.02756,   7.24898,   0.62902,   0.06443,
352      +    0.00000,   0.33273,   0.63441,
353      +    0.03934,   0.02916,  10.21210,   0.72709,   0.17204,
354      +    0.00000,   0.43588,   0.73273,
355      +    0.04206,   0.03060,  13.19847,   0.82885,   0.28204,
356      +    0.00000,   0.54203,   0.83470,
357      +    0.04454,   0.03192,  16.11250,   0.93199,   0.39245,
358      +    0.06872,   0.64904,   0.93805,
359      +    0.04687,   0.03314,  18.98394,   1.03647,   0.50346,
360      +    0.19063,   0.75699,   1.04271,
361      +    0.04905,   0.03429,  21.79053,   1.14156,   0.61449,
362      +    0.30646,   0.86525,   1.14798,
363      +    0.05111,   0.03537,  24.51313,   1.24645,   0.72482,
364      +    0.42161,   0.97303,   1.25303 /
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.05306,   0.03639,  27.14354,   1.35059,   0.83399,
367      +    0.53516,   1.07985,   1.35733,
368      +    0.05491,   0.03735,  29.68041,   1.45365,   0.94171,
369      +    0.64693,   1.18539,   1.46053,
370      +    0.05668,   0.03828,  32.12677,   1.55544,   1.04786,
371      +    0.75683,   1.28949,   1.56246,
372      +    0.05838,   0.03915,  34.48865,   1.65592,   1.15241,
373      +    0.86489,   1.39214,   1.66307,
374      +    0.06000,   0.04000,  36.76609,   1.75493,   1.25526,
375      +    0.97101,   1.49319,   1.76221,
376      +    0.06156,   0.04080,  38.92599,   1.85145,   1.35541,
377      +    1.07424,   1.59164,   1.85886,
378      +    0.06306,   0.04157,  41.02062,   1.94669,   1.45407,
379      +    1.17581,   1.68870,   1.95421 /
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.06451,   0.04232,  43.04662,   2.04048,   1.55112,
382      +    1.27561,   1.78423,   2.04812,
383      +    0.06590,   0.04304,  44.96209,   2.13154,   1.64527,
384      +    1.37236,   1.87693,   2.13928,
385      +    0.06725,   0.04373,  46.83757,   2.22177,   1.73846,
386      +    1.46803,   1.96874,   2.22962,
387      +    0.06856,   0.04440,  48.61013,   2.30926,   1.82877,
388      +    1.56070,   2.05773,   2.31721,
389      +    0.06983,   0.04505,  50.34008,   2.39573,   1.91794,
390      +    1.65211,   2.14563,   2.40377 /
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.04254,   0.03097,   6.82189,   0.59259,   0.05986,
393      +    0.00000,   0.31332,   0.59857,
394      +    0.04597,   0.03277,   9.47231,   0.68104,   0.15758,
395      +    0.00000,   0.40673,   0.68732,
396      +    0.04908,   0.03440,  12.10788,   0.77189,   0.25645,
397      +    0.00000,   0.50187,   0.77843,
398      +    0.05192,   0.03589,  14.65013,   0.86319,   0.35482,
399      +    0.06124,   0.59695,   0.86997,
400      +    0.05456,   0.03727,  17.13078,   0.95501,   0.45298,
401      +    0.16937,   0.69216,   0.96201,
402      +    0.05704,   0.03856,  19.53420,   1.04676,   0.55052,
403      +    0.27138,   0.78701,   1.05397,
404      +    0.05938,   0.03977,  21.84714,   1.13780,   0.64686,
405      +    0.37219,   0.88088,   1.14520 /
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.06159,   0.04091,  24.06540,   1.22771,   0.74166,
408      +    0.47106,   0.97341,   1.23530,
409      +    0.06369,   0.04199,  26.19033,   1.31624,   0.83474,
410      +    0.56790,   1.06438,   1.32401,
411      +    0.06569,   0.04302,  28.22665,   1.40329,   0.92603,
412      +    0.66268,   1.15370,   1.41122,
413      +    0.06760,   0.04401,  30.18129,   1.48886,   1.01557,
414      +    0.75548,   1.24140,   1.49695,
415      +    0.06943,   0.04494,  32.05577,   1.57285,   1.10330,
416      +    0.84625,   1.32739,   1.58109,
417      +    0.07118,   0.04584,  33.82315,   1.65440,   1.18838,
418      +    0.93419,   1.41083,   1.66278,
419      +    0.07286,   0.04670,  35.52917,   1.73459,   1.27191,
420      +    1.02042,   1.49281,   1.74311 /
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.07449,   0.04753,  37.17181,   1.81331,   1.35380,
423      +    1.10486,   1.57323,   1.82196,
424      +    0.07605,   0.04833,  38.71652,   1.88946,   1.43297,
425      +    1.18644,   1.65099,   1.89824,
426      +    0.07757,   0.04910,  40.22359,   1.96472,   1.51111,
427      +    1.26688,   1.72780,   1.97363,
428      +    0.07903,   0.04984,  41.64064,   2.03745,   1.58660,
429      +    1.34455,   1.80201,   2.04648,
430      +    0.08045,   0.05056,  43.01890,   2.10915,   1.66093,
431      +    1.42097,   1.87512,   2.11830 /
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.04809,   0.03401,   6.49679,   0.56487,   0.05640,
434      +    0.00000,   0.29842,   0.57126,
435      +    0.05189,   0.03600,   8.91391,   0.64615,   0.14674,
436      +    0.00000,   0.38455,   0.65286,
437      +    0.05533,   0.03780,  11.29112,   0.72896,   0.23739,
438      +    0.00000,   0.47156,   0.73596,
439      +    0.05846,   0.03943,  13.56253,   0.81160,   0.32694,
440      +    0.05578,   0.55789,   0.81886,
441      +    0.06137,   0.04094,  15.76106,   0.89422,   0.41577,
442      +    0.15388,   0.64384,   0.90172,
443      +    0.06410,   0.04235,  17.87583,   0.97635,   0.50355,
444      +    0.24589,   0.72900,   0.98408,
445      +    0.06667,   0.04368,  19.89749,   1.05745,   0.58983,
446      +    0.33639,   0.81287,   1.06539 /
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.06909,   0.04492,  21.82453,   1.13719,   0.67435,
449      +    0.42476,   0.89518,   1.14533,
450      +    0.07139,   0.04610,  23.66011,   1.21540,   0.75700,
451      +    0.51095,   0.97576,   1.22372,
452      +    0.07358,   0.04722,  25.40997,   1.29200,   0.83775,
453      +    0.59499,   1.05458,   1.30050,
454      +    0.07567,   0.04829,  27.08148,   1.36704,   0.91667,
455      +    0.67698,   1.13170,   1.37571,
456      +    0.07766,   0.04931,  28.67694,   1.44045,   0.99374,
457      +    0.75692,   1.20708,   1.44930,
458      +    0.07957,   0.05028,  30.17404,   1.51150,   1.06824,
459      +    0.83412,   1.27998,   1.52050,
460      +    0.08141,   0.05121,  31.61345,   1.58117,   1.14117,
461      +    0.90959,   1.35139,   1.59031 /
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.08318,   0.05210,  32.99401,   1.64937,   1.21248,
464      +    0.98330,   1.42126,   1.65867,
465      +    0.08487,   0.05296,  34.28631,   1.71516,   1.28122,
466      +    1.05432,   1.48863,   1.72459,
467      +    0.08652,   0.05379,  35.54338,   1.78004,   1.34891,
468      +    1.12417,   1.55502,   1.78960,
469      +    0.08810,   0.05459,  36.72006,   1.84256,   1.41411,
470      +    1.19144,   1.61898,   1.85225,
471      +    0.08964,   0.05537,  37.86131,   1.90406,   1.47819,
472      +    1.25748,   1.68187,   1.91388 /
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.07026,   0.04588,   5.55100,   0.48325,   0.04652,
475      +    0.00000,   0.25510,   0.49150,
476      +    0.07544,   0.04856,   7.33070,   0.54464,   0.11642,
477      +    0.00000,   0.32109,   0.55334,
478      +    0.08009,   0.05095,   9.01919,   0.60557,   0.18472,
479      +    0.00000,   0.38601,   0.61468,
480      +    0.08430,   0.05312,  10.58275,   0.66502,   0.25065,
481      +    0.04116,   0.44896,   0.67449,
482      +    0.08819,   0.05510,  12.05601,   0.72331,   0.31478,
483      +    0.11264,   0.51042,   0.73313,
484      +    0.09181,   0.05695,  13.43913,   0.78026,   0.37705,
485      +    0.17846,   0.57025,   0.79040,
486      +    0.09520,   0.05867,  14.73205,   0.83562,   0.43727,
487      +    0.24218,   0.62824,   0.84604 /
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.09839,   0.06028,  15.93910,   0.88926,   0.49541,
490      +    0.30351,   0.68432,   0.89996,
491      +    0.10139,   0.06180,  17.06683,   0.94117,   0.55150,
492      +    0.36253,   0.73848,   0.95213,
493      +    0.10424,   0.06323,  18.12267,   0.99139,   0.60561,
494      +    0.41937,   0.79081,   1.00259,
495      +    0.10694,   0.06459,  19.11442,   1.04001,   0.65789,
496      +    0.47420,   0.84142,   1.05145,
497      +    0.10952,   0.06588,  20.04600,   1.08708,   0.70840,
498      +    0.52708,   0.89036,   1.09874,
499      +    0.11197,   0.06710,  20.90477,   1.13212,   0.75668,
500      +    0.57759,   0.93715,   1.14399,
501      +    0.11432,   0.06827,  21.71924,   1.17588,   0.80350,
502      +    0.62652,   0.98257,   1.18795 /
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.11658,   0.06939,  22.48988,   1.21833,   0.84888,
505      +    0.67387,   1.02661,   1.23060,
506      +    0.11873,   0.07046,  23.19905,   1.25887,   0.89219,
507      +    0.71907,   1.06865,   1.27131,
508      +    0.12082,   0.07149,  23.88179,   1.29856,   0.93452,
509      +    0.76318,   1.10977,   1.31118,
510      +    0.12282,   0.07248,  24.51019,   1.33644,   0.97492,
511      +    0.80529,   1.14902,   1.34922,
512      +    0.12475,   0.07343,  25.11353,   1.37345,   1.01436,
513      +    0.84634,   1.18734,   1.38640 /
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.10240,   0.06303,   4.67694,   0.40698,   0.03770,
516      +    0.00000,   0.21496,   0.41783,
517      +    0.10929,   0.06656,   5.92991,   0.45155,   0.09028,
518      +    0.00000,   0.26392,   0.46304,
519      +    0.11542,   0.06968,   7.07151,   0.49456,   0.14022,
520      +    0.00000,   0.31072,   0.50661,
521      +    0.12092,   0.07246,   8.09113,   0.53547,   0.18723,
522      +    0.02947,   0.35497,   0.54802,
523      +    0.12596,   0.07500,   9.02240,   0.57473,   0.23198,
524      +    0.07997,   0.39723,   0.58773,
525      +    0.13062,   0.07733,   9.87177,   0.61235,   0.27459,
526      +    0.12552,   0.43758,   0.62577,
527      +    0.13495,   0.07949,  10.64485,   0.64826,   0.31508,
528      +    0.16887,   0.47600,   0.66207 /
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.13899,   0.08150,  11.34855,   0.68249,   0.35353,
531      +    0.20993,   0.51254,   0.69666,
532      +    0.14278,   0.08337,  11.99027,   0.71509,   0.39006,
533      +    0.24887,   0.54729,   0.72960,
534      +    0.14635,   0.08512,  12.57767,   0.74619,   0.42481,
535      +    0.28585,   0.58039,   0.76101,
536      +    0.14972,   0.08678,  13.11783,   0.77590,   0.45796,
537      +    0.32107,   0.61199,   0.79103,
538      +    0.15291,   0.08834,  13.61470,   0.80430,   0.48958,
539      +    0.35463,   0.64215,   0.81971,
540      +    0.15593,   0.08981,  14.06173,   0.83111,   0.51943,
541      +    0.38630,   0.67062,   0.84678,
542      +    0.15881,   0.09120,  14.47832,   0.85687,   0.54807,
543      +    0.41666,   0.69796,   0.87280 /
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.16156,   0.09254,  14.86561,   0.88161,   0.57555,
546      +    0.44575,   0.72420,   0.89777,
547      +    0.16418,   0.09380,  15.21296,   0.90492,   0.60146,
548      +    0.47319,   0.74893,   0.92131,
549      +    0.16670,   0.09501,  15.54287,   0.92756,   0.62657,
550      +    0.49975,   0.77293,   0.94417,
551      +    0.16910,   0.09616,  15.83879,   0.94891,   0.65029,
552      +    0.52486,   0.79557,   0.96573,
553      +    0.17142,   0.09726,  16.11901,   0.96961,   0.67326,
554      +    0.54914,   0.81751,   0.98662 /
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.12745,   0.07649,   4.19462,   0.36460,   0.03300,
557      +   -0.00001,   0.19297,   0.37764,
558      +    0.13548,   0.08056,   5.18766,   0.40068,   0.07681,
559      +   -0.00001,   0.23331,   0.41448,
560      +    0.14257,   0.08413,   6.06860,   0.43484,   0.11767,
561      +   -0.00001,   0.27118,   0.44932,
562      +    0.14889,   0.08728,   6.83642,   0.46682,   0.15554,
563      +    0.02382,   0.30641,   0.48189,
564      +    0.15464,   0.09013,   7.52282,   0.49708,   0.19109,
565      +    0.06430,   0.33959,   0.51268,
566      +    0.15993,   0.09274,   8.13662,   0.52570,   0.22453,
567      +    0.10034,   0.37086,   0.54179,
568      +    0.16482,   0.09514,   8.68463,   0.55269,   0.25593,
569      +    0.13428,   0.40029,   0.56922 /
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.16936,   0.09735,   9.17423,   0.57812,   0.28544,
572      +    0.16608,   0.42796,   0.59507,
573      +    0.17360,   0.09940,   9.61286,   0.60210,   0.31319,
574      +    0.19597,   0.45403,   0.61943,
575      +    0.17757,   0.10131,  10.00758,   0.62475,   0.33936,
576      +    0.22410,   0.47862,   0.64243,
577      +    0.18130,   0.10310,  10.36471,   0.64619,   0.36411,
578      +    0.25067,   0.50188,   0.66421,
579      +    0.18483,   0.10478,  10.68804,   0.66650,   0.38753,
580      +    0.27580,   0.52390,   0.68484,
581      +    0.18814,   0.10636,  10.97301,   0.68549,   0.40944,
582      +    0.29931,   0.54450,   0.70411,
583      +    0.19130,   0.10785,  11.23473,   0.70360,   0.43032,
584      +    0.32170,   0.56413,   0.72250 /
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.19431,   0.10926,  11.47438,   0.72085,   0.45021,
587      +    0.34301,   0.58284,   0.74002,
588      +    0.19715,   0.11059,  11.68461,   0.73697,   0.46882,
589      +    0.36296,   0.60033,   0.75638,
590      +    0.19988,   0.11187,  11.88214,   0.75253,   0.48677,
591      +    0.38218,   0.61720,   0.77218,
592      +    0.20247,   0.11307,  12.05502,   0.76707,   0.50358,
593      +    0.40021,   0.63299,   0.78694,
594      +    0.20497,   0.11422,  12.21671,   0.78108,   0.51978,
595      +    0.41756,   0.64821,   0.80117 /
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.14876,   0.08805,   3.86320,   0.33548,   0.02987,
598      +   -0.00001,   0.17799,   0.35048,
599      +    0.15761,   0.09248,   4.69173,   0.36608,   0.06800,
600      +   -0.00001,   0.21277,   0.38193,
601      +    0.16539,   0.09634,   5.41151,   0.39465,   0.10310,
602      +   -0.00001,   0.24497,   0.41125,
603      +    0.17228,   0.09973,   6.02668,   0.42106,   0.13523,
604      +    0.02028,   0.27455,   0.43830,
605      +    0.17852,   0.10277,   6.56719,   0.44576,   0.16509,
606      +    0.05453,   0.30212,   0.46360,
607      +    0.18424,   0.10554,   7.04262,   0.46889,   0.19291,
608      +    0.08474,   0.32785,   0.48726,
609      +    0.18950,   0.10807,   7.46029,   0.49050,   0.21881,
610      +    0.11295,   0.35183,   0.50935 /
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.19436,   0.11039,   7.82757,   0.51067,   0.24294,
613      +    0.13918,   0.37420,   0.52996,
614      +    0.19887,   0.11252,   8.15155,   0.52953,   0.26548,
615      +    0.16364,   0.39509,   0.54923,
616      +    0.20309,   0.11451,   8.43867,   0.54720,   0.28657,
617      +    0.18652,   0.41466,   0.56728,
618      +    0.20704,   0.11636,   8.69462,   0.56380,   0.30638,
619      +    0.20800,   0.43304,   0.58423,
620      +    0.21076,   0.11809,   8.92290,   0.57942,   0.32502,
621      +    0.22818,   0.45032,   0.60018,
622      +    0.21425,   0.11970,   9.12015,   0.59389,   0.34233,
623      +    0.24695,   0.46637,   0.61495,
624      +    0.21755,   0.12121,   9.29882,   0.60761,   0.35875,
625      +    0.26473,   0.48157,   0.62896 /
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.22069,   0.12265,   9.46000,   0.62060,   0.37430,
628      +    0.28157,   0.49598,   0.64223,
629      +    0.22365,   0.12399,   9.59801,   0.63264,   0.38875,
630      +    0.29725,   0.50935,   0.65451,
631      +    0.22648,   0.12527,   9.72629,   0.64420,   0.40263,
632      +    0.31228,   0.52219,   0.66632,
633      +    0.22916,   0.12647,   9.83543,   0.65492,   0.41556,
634      +    0.32630,   0.53412,   0.67726,
635      +    0.23173,   0.12763,   9.93618,   0.66520,   0.42796,
636      +    0.33975,   0.54557,   0.68776 /
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.16762,   0.09833,   3.61212,   0.31344,   0.02756,
639      +    0.00000,   0.16678,   0.33028,
640      +    0.17712,   0.10302,   4.32408,   0.34010,   0.06159,
641      +    0.00000,   0.19755,   0.35786,
642      +    0.18541,   0.10708,   4.93174,   0.36470,   0.09258,
643      +    0.00000,   0.22572,   0.38326,
644      +    0.19272,   0.11061,   5.44235,   0.38718,   0.12068,
645      +    0.01780,   0.25133,   0.40644,
646      +    0.19932,   0.11377,   5.88435,   0.40802,   0.14657,
647      +    0.04769,   0.27498,   0.42790,
648      +    0.20533,   0.11662,   6.26741,   0.42737,   0.17050,
649      +    0.07385,   0.29688,   0.44780,
650      +    0.21083,   0.11921,   6.59889,   0.44528,   0.19262,
651      +    0.09810,   0.31713,   0.46622 /
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.21590,   0.12158,   6.88616,   0.46189,   0.21310,
654      +    0.12053,   0.33589,   0.48328,
655      +    0.22060,   0.12375,   7.13598,   0.47729,   0.23210,
656      +    0.14131,   0.35329,   0.49911,
657      +    0.22497,   0.12575,   7.35402,   0.49161,   0.24977,
658      +    0.16064,   0.36947,   0.51382,
659      +    0.22905,   0.12761,   7.54555,   0.50498,   0.26628,
660      +    0.17868,   0.38458,   0.52755,
661      +    0.23288,   0.12935,   7.71402,   0.51748,   0.28173,
662      +    0.19557,   0.39871,   0.54038,
663      +    0.23645,   0.13095,   7.85628,   0.52897,   0.29600,
664      +    0.21119,   0.41174,   0.55218,
665      +    0.23983,   0.13245,   7.98334,   0.53981,   0.30947,
666      +    0.22591,   0.42403,   0.56330 /
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.24303,   0.13387,   8.09623,   0.55001,   0.32217,
669      +    0.23981,   0.43562,   0.57378,
670      +    0.24603,   0.13519,   8.19012,   0.55939,   0.33392,
671      +    0.25268,   0.44630,   0.58340,
672      +    0.24890,   0.13644,   8.27632,   0.56837,   0.34515,
673      +    0.26498,   0.45653,   0.59262,
674      +    0.25160,   0.13762,   8.34703,   0.57661,   0.35555,
675      +    0.27639,   0.46596,   0.60108,
676      +    0.25420,   0.13873,   8.41129,   0.58449,   0.36549,
677      +    0.28729,   0.47497,   0.60917 /
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.24212,   0.13901,   2.86282,   0.24796,   0.02101,
680      +    0.00000,   0.13429,   0.27290,
681      +    0.25325,   0.14405,   3.27095,   0.26394,   0.04394,
682      +    0.00000,   0.15419,   0.28993,
683      +    0.26276,   0.14827,   3.59596,   0.27805,   0.06406,
684      +   -0.00001,   0.17168,   0.30492,
685      +    0.27096,   0.15183,   3.85037,   0.29042,   0.08170,
686      +    0.01133,   0.18699,   0.31800,
687      +    0.27822,   0.15493,   4.05673,   0.30147,   0.09747,
688      +    0.03004,   0.20068,   0.32966,
689      +    0.28471,   0.15765,   4.22395,   0.31135,   0.11166,
690      +    0.04597,   0.21297,   0.34009,
691      +    0.29056,   0.16006,   4.35871,   0.32020,   0.12445,
692      +    0.06041,   0.22400,   0.34942 /
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.29583,   0.16220,   4.46693,   0.32814,   0.13600,
695      +    0.07346,   0.23394,   0.35776,
696      +    0.30064,   0.16411,   4.55346,   0.33525,   0.14646,
697      +    0.08530,   0.24291,   0.36524,
698      +    0.30504,   0.16582,   4.62246,   0.34166,   0.15600,
699      +    0.09611,   0.25104,   0.37197,
700      +    0.30909,   0.16738,   4.67741,   0.34746,   0.16472,
701      +    0.10601,   0.25846,   0.37807,
702      +    0.31283,   0.16879,   4.72050,   0.35273,   0.17273,
703      +    0.11512,   0.26523,   0.38360,
704      +    0.31625,   0.17006,   4.75054,   0.35738,   0.17996,
705      +    0.12338,   0.27130,   0.38849,
706      +    0.31945,   0.17123,   4.77357,   0.36165,   0.18667,
707      +    0.13105,   0.27690,   0.39296 /
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.32244,   0.17230,   4.79025,   0.36556,   0.19288,
710      +    0.13817,   0.28207,   0.39706,
711      +    0.32519,   0.17326,   4.79810,   0.36899,   0.19851,
712      +    0.14465,   0.28669,   0.40066,
713      +    0.32780,   0.17416,   4.80328,   0.37221,   0.20382,
714      +    0.15077,   0.29105,   0.40404,
715      +    0.33020,   0.17498,   4.80171,   0.37503,   0.20862,
716      +    0.15635,   0.29495,   0.40699,
717      +    0.33248,   0.17574,   4.79809,   0.37766,   0.21315,
718      +    0.16161,   0.29861,   0.40975 /
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.34690,   0.19378,   2.16021,   0.18644,   0.01541,
721      +   -0.00002,   0.10516,   0.22383,
722      +    0.35784,   0.19749,   2.34535,   0.19394,   0.02952,
723      +   -0.00001,   0.11631,   0.23197,
724      +    0.36678,   0.20036,   2.47500,   0.20010,   0.04136,
725      +   -0.00001,   0.12557,   0.23858,
726      +    0.37419,   0.20255,   2.56171,   0.20505,   0.05131,
727      +    0.00656,   0.13324,   0.24388,
728      +    0.38045,   0.20430,   2.62099,   0.20917,   0.05987,
729      +    0.01718,   0.13976,   0.24823,
730      +    0.38583,   0.20570,   2.65947,   0.21258,   0.06731,
731      +    0.02592,   0.14532,   0.25180,
732      +    0.39047,   0.20680,   2.68182,   0.21539,   0.07378,
733      +    0.03362,   0.15009,   0.25470 /
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.39451,   0.20766,   2.69185,   0.21767,   0.07944,
736      +    0.04039,   0.15417,   0.25705,
737      +    0.39800,   0.20833,   2.69258,   0.21954,   0.08441,
738      +    0.04637,   0.15767,   0.25894,
739      +    0.40107,   0.20885,   2.68637,   0.22105,   0.08880,
740      +    0.05170,   0.16070,   0.26044,
741      +    0.40378,   0.20923,   2.67506,   0.22226,   0.09270,
742      +    0.05646,   0.16333,   0.26163,
743      +    0.40617,   0.20951,   2.65975,   0.22323,   0.09618,
744      +    0.06074,   0.16560,   0.26255,
745      +    0.40823,   0.20967,   2.63998,   0.22391,   0.09921,
746      +    0.06453,   0.16751,   0.26315,
747      +    0.41007,   0.20976,   2.61860,   0.22443,   0.10195,
748      +    0.06797,   0.16918,   0.26359 /
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.41172,   0.20980,   2.59582,   0.22481,   0.10442,
751      +    0.07110,   0.17063,   0.26388,
752      +    0.41312,   0.20975,   2.57052,   0.22497,   0.10657,
753      +    0.07387,   0.17182,   0.26396,
754      +    0.41442,   0.20967,   2.54549,   0.22508,   0.10855,
755      +    0.07644,   0.17290,   0.26397,
756      +    0.41550,   0.20953,   2.51869,   0.22502,   0.11028,
757      +    0.07873,   0.17375,   0.26379,
758      +    0.41649,   0.20937,   2.49229,   0.22492,   0.11187,
759      +    0.08085,   0.17451,   0.26357 /
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.42423,   0.22960,   1.77386,   0.15099,   0.01247,
762      +    0.00000,   0.08880,   0.19660,
763      +    0.43290,   0.23102,   1.86216,   0.15454,   0.02243,
764      +    0.00000,   0.09570,   0.20005,
765      +    0.43956,   0.23178,   1.91224,   0.15713,   0.03051,
766      +    0.00000,   0.10114,   0.20244,
767      +    0.44467,   0.23204,   1.93455,   0.15892,   0.03708,
768      +    0.00448,   0.10538,   0.20396,
769      +    0.44869,   0.23198,   1.94049,   0.16019,   0.04258,
770      +    0.01158,   0.10880,   0.20489,
771      +    0.45187,   0.23168,   1.93474,   0.16101,   0.04722,
772      +    0.01730,   0.11156,   0.20539,
773      +    0.45438,   0.23120,   1.92064,   0.16147,   0.05115,
774      +    0.02223,   0.11376,   0.20550 /
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.45630,   0.23058,   1.90067,   0.16166,   0.05449,
777      +    0.02648,   0.11552,   0.20531,
778      +    0.45777,   0.22985,   1.87677,   0.16162,   0.05735,
779      +    0.03016,   0.11692,   0.20489,
780      +    0.45888,   0.22903,   1.85032,   0.16139,   0.05980,
781      +    0.03337,   0.11802,   0.20430,
782      +    0.45969,   0.22817,   1.82240,   0.16103,   0.06192,
783      +    0.03620,   0.11888,   0.20356,
784      +    0.46024,   0.22726,   1.79362,   0.16055,   0.06376,
785      +    0.03868,   0.11953,   0.20271,
786      +    0.46051,   0.22629,   1.76346,   0.15994,   0.06531,
787      +    0.04083,   0.11997,   0.20173,
788      +    0.46063,   0.22531,   1.73368,   0.15928,   0.06667,
789      +    0.04275,   0.12028,   0.20071 /
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.46061,   0.22432,   1.70431,   0.15857,   0.06787,
792      +    0.04447,   0.12049,   0.19964,
793      +    0.46040,   0.22329,   1.67450,   0.15776,   0.06885,
794      +    0.04596,   0.12055,   0.19848,
795      +    0.46013,   0.22228,   1.64587,   0.15695,   0.06975,
796      +    0.04732,   0.12057,   0.19735,
797      +    0.45969,   0.22124,   1.61714,   0.15608,   0.07049,
798      +    0.04850,   0.12046,   0.19613,
799      +    0.45920,   0.22023,   1.58952,   0.15522,   0.07115,
800      +    0.04958,   0.12032,   0.19494 /
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.48491,   0.25322,   1.51121,   0.12521,   0.01045,
803      +    0.00000,   0.07662,   0.17542,
804      +    0.49018,   0.25207,   1.54471,   0.12646,   0.01789,
805      +    0.00000,   0.08093,   0.17579,
806      +    0.49366,   0.25057,   1.55211,   0.12708,   0.02376,
807      +    0.00000,   0.08411,   0.17552,
808      +    0.49577,   0.24879,   1.54170,   0.12719,   0.02839,
809      +    0.00326,   0.08640,   0.17477,
810      +    0.49698,   0.24690,   1.52194,   0.12696,   0.03218,
811      +    0.00838,   0.08809,   0.17372,
812      +    0.49749,   0.24493,   1.49614,   0.12650,   0.03528,
813      +    0.01241,   0.08932,   0.17245,
814      +    0.49747,   0.24291,   1.46654,   0.12584,   0.03785,
815      +    0.01583,   0.09018,   0.17102 /
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.49700,   0.24087,   1.43478,   0.12504,   0.03997,
818      +    0.01872,   0.09074,   0.16948,
819      +    0.49620,   0.23882,   1.40200,   0.12413,   0.04174,
820      +    0.02118,   0.09107,   0.16786,
821      +    0.49515,   0.23679,   1.36903,   0.12315,   0.04321,
822      +    0.02329,   0.09122,   0.16619,
823      +    0.49390,   0.23479,   1.33646,   0.12212,   0.04445,
824      +    0.02512,   0.09123,   0.16451,
825      +    0.49251,   0.23282,   1.30453,   0.12105,   0.04549,
826      +    0.02669,   0.09113,   0.16282,
827      +    0.49092,   0.23084,   1.27281,   0.11994,   0.04633,
828      +    0.02803,   0.09090,   0.16109,
829      +    0.48926,   0.22893,   1.24236,   0.11882,   0.04704,
830      +    0.02921,   0.09061,   0.15939 /
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.48755,   0.22706,   1.21308,   0.11771,   0.04764,
833      +    0.03026,   0.09027,   0.15773,
834      +    0.48569,   0.22520,   1.18434,   0.11657,   0.04811,
835      +    0.03113,   0.08984,   0.15604,
836      +    0.48386,   0.22342,   1.15712,   0.11547,   0.04852,
837      +    0.03193,   0.08941,   0.15441,
838      +    0.48192,   0.22164,   1.13052,   0.11434,   0.04882,
839      +    0.03259,   0.08892,   0.15277,
840      +    0.48001,   0.21992,   1.10524,   0.11324,   0.04907,
841      +    0.03319,   0.08841,   0.15120 /
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.53287,   0.26788,   1.31364,   0.10457,   0.00886,
844      +   -0.00001,   0.06640,   0.15643,
845      +    0.53409,   0.26419,   1.31231,   0.10445,   0.01459,
846      +    0.00000,   0.06899,   0.15470,
847      +    0.53390,   0.26050,   1.29398,   0.10393,   0.01898,
848      +    0.00000,   0.07072,   0.15269,
849      +    0.53266,   0.25681,   1.26507,   0.10309,   0.02237,
850      +    0.00245,   0.07178,   0.15051,
851      +    0.53079,   0.25321,   1.23169,   0.10207,   0.02507,
852      +    0.00628,   0.07242,   0.14825,
853      +    0.52844,   0.24971,   1.19604,   0.10094,   0.02722,
854      +    0.00924,   0.07274,   0.14595,
855      +    0.52575,   0.24633,   1.15955,   0.09973,   0.02896,
856      +    0.01170,   0.07283,   0.14362 /
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.52284,   0.24302,   1.12318,   0.09846,   0.03036,
859      +    0.01376,   0.07272,   0.14134,
860      +    0.51972,   0.23984,   1.08759,   0.09717,   0.03148,
861      +    0.01548,   0.07248,   0.13908,
862      +    0.51651,   0.23675,   1.05319,   0.09587,   0.03239,
863      +    0.01693,   0.07212,   0.13688,
864      +    0.51325,   0.23377,   1.02024,   0.09456,   0.03312,
865      +    0.01817,   0.07169,   0.13474,
866      +    0.50992,   0.23094,   0.98875,   0.09329,   0.03372,
867      +    0.01923,   0.07120,   0.13265,
868      +    0.50653,   0.22813,   0.95833,   0.09200,   0.03417,
869      +    0.02010,   0.07065,   0.13058,
870      +    0.50317,   0.22545,   0.92960,   0.09074,   0.03453,
871      +    0.02086,   0.07008,   0.12860 /
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.49984,   0.22288,   0.90239,   0.08952,   0.03482,
874      +    0.02152,   0.06950,   0.12667,
875      +    0.49645,   0.22036,   0.87621,   0.08830,   0.03502,
876      +    0.02206,   0.06886,   0.12480,
877      +    0.49317,   0.21795,   0.85165,   0.08713,   0.03518,
878      +    0.02254,   0.06824,   0.12301,
879      +    0.48986,   0.21558,   0.82801,   0.08596,   0.03526,
880      +    0.02294,   0.06760,   0.12124,
881      +    0.48665,   0.21331,   0.80573,   0.08484,   0.03532,
882      +    0.02328,   0.06696,   0.11955 /
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.57802,   0.27659,   1.12050,   0.08345,   0.00723,
885      +   -0.00002,   0.05530,   0.13424,
886      +    0.57367,   0.26996,   1.09121,   0.08236,   0.01148,
887      +   -0.00001,   0.05647,   0.13087,
888      +    0.56858,   0.26382,   1.05363,   0.08108,   0.01462,
889      +   -0.00001,   0.05705,   0.12756,
890      +    0.56296,   0.25803,   1.01199,   0.07967,   0.01696,
891      +    0.00178,   0.05720,   0.12435,
892      +    0.55715,   0.25259,   0.97014,   0.07820,   0.01878,
893      +    0.00452,   0.05707,   0.12126,
894      +    0.55125,   0.24745,   0.92921,   0.07671,   0.02019,
895      +    0.00661,   0.05676,   0.11830,
896      +    0.54527,   0.24264,   0.88983,   0.07524,   0.02128,
897      +    0.00829,   0.05631,   0.11546 /
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.53934,   0.23804,   0.85237,   0.07377,   0.02212,
900      +    0.00969,   0.05576,   0.11276,
901      +    0.53348,   0.23368,   0.81702,   0.07232,   0.02276,
902      +    0.01083,   0.05516,   0.11019,
903      +    0.52769,   0.22956,   0.78383,   0.07093,   0.02326,
904      +    0.01177,   0.05451,   0.10772,
905      +    0.52204,   0.22566,   0.75279,   0.06958,   0.02364,
906      +    0.01256,   0.05383,   0.10536,
907      +    0.51653,   0.22194,   0.72376,   0.06827,   0.02392,
908      +    0.01323,   0.05314,   0.10314,
909      +    0.51106,   0.21835,   0.69632,   0.06699,   0.02411,
910      +    0.01376,   0.05243,   0.10099,
911      +    0.50577,   0.21495,   0.67077,   0.06577,   0.02424,
912      +    0.01422,   0.05172,   0.09895 /
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.50064,   0.21171,   0.64691,   0.06459,   0.02432,
915      +    0.01459,   0.05103,   0.09699,
916      +    0.49557,   0.20857,   0.62433,   0.06343,   0.02435,
917      +    0.01490,   0.05033,   0.09510,
918      +    0.49070,   0.20559,   0.60333,   0.06233,   0.02435,
919      +    0.01516,   0.04965,   0.09332,
920      +    0.48590,   0.20269,   0.58341,   0.06125,   0.02431,
921      +    0.01537,   0.04896,   0.09161,
922      +    0.48127,   0.19993,   0.56480,   0.06021,   0.02426,
923      +    0.01554,   0.04830,   0.08998 /
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.60888,   0.27714,   0.96513,   0.06618,   0.00588,
926      +   -0.00003,   0.04559,   0.11349,
927      +    0.59881,   0.26796,   0.91843,   0.06464,   0.00908,
928      +   -0.00003,   0.04592,   0.10926,
929      +    0.58881,   0.25971,   0.87002,   0.06304,   0.01139,
930      +   -0.00002,   0.04583,   0.10534,
931      +    0.57890,   0.25217,   0.82223,   0.06142,   0.01305,
932      +    0.00131,   0.04546,   0.10171,
933      +    0.56930,   0.24525,   0.77716,   0.05981,   0.01429,
934      +    0.00333,   0.04495,   0.09833,
935      +    0.56000,   0.23884,   0.73508,   0.05827,   0.01522,
936      +    0.00484,   0.04433,   0.09517,
937      +    0.55097,   0.23289,   0.69605,   0.05677,   0.01592,
938      +    0.00604,   0.04364,   0.09221 /
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.54229,   0.22732,   0.66000,   0.05532,   0.01643,
941      +    0.00701,   0.04291,   0.08945,
942      +    0.53390,   0.22211,   0.62678,   0.05394,   0.01680,
943      +    0.00778,   0.04217,   0.08685,
944      +    0.52583,   0.21723,   0.59622,   0.05262,   0.01706,
945      +    0.00842,   0.04142,   0.08441,
946      +    0.51809,   0.21264,   0.56812,   0.05136,   0.01725,
947      +    0.00894,   0.04067,   0.08212,
948      +    0.51063,   0.20832,   0.54226,   0.05017,   0.01736,
949      +    0.00936,   0.03993,   0.07995,
950      +    0.50340,   0.20418,   0.51819,   0.04900,   0.01740,
951      +    0.00969,   0.03920,   0.07793,
952      +    0.49646,   0.20028,   0.49604,   0.04791,   0.01742,
953      +    0.00997,   0.03849,   0.07601 /
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.48979,   0.19661,   0.47558,   0.04687,   0.01740,
956      +    0.01019,   0.03781,   0.07418,
957      +    0.48331,   0.19306,   0.45644,   0.04584,   0.01735,
958      +    0.01037,   0.03713,   0.07245,
959      +    0.47714,   0.18972,   0.43878,   0.04486,   0.01728,
960      +    0.01053,   0.03649,   0.07082,
961      +    0.47109,   0.18651,   0.42224,   0.04394,   0.01719,
962      +    0.01063,   0.03585,   0.06924,
963      +    0.46529,   0.18346,   0.40687,   0.04307,   0.01709,
964      +    0.01072,   0.03524,   0.06775 /
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.62718,   0.27150,   0.83506,   0.05198,   0.00476,
967      +   -0.00002,   0.03714,   0.09445,
968      +    0.61149,   0.26028,   0.77788,   0.05033,   0.00718,
969      +   -0.00001,   0.03695,   0.08990,
970      +    0.59681,   0.25037,   0.72395,   0.04870,   0.00886,
971      +   -0.00001,   0.03650,   0.08583,
972      +    0.58287,   0.24151,   0.67396,   0.04711,   0.01004,
973      +    0.00098,   0.03586,   0.08215,
974      +    0.56976,   0.23348,   0.62870,   0.04559,   0.01090,
975      +    0.00247,   0.03515,   0.07880,
976      +    0.55735,   0.22615,   0.58777,   0.04414,   0.01150,
977      +    0.00356,   0.03441,   0.07572,
978      +    0.54563,   0.21940,   0.55076,   0.04276,   0.01194,
979      +    0.00442,   0.03363,   0.07290 /
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.53451,   0.21316,   0.51731,   0.04145,   0.01225,
982      +    0.00510,   0.03287,   0.07027,
983      +    0.52396,   0.20736,   0.48705,   0.04020,   0.01245,
984      +    0.00564,   0.03211,   0.06786,
985      +    0.51395,   0.20197,   0.45965,   0.03903,   0.01258,
986      +    0.00607,   0.03137,   0.06561,
987      +    0.50443,   0.19695,   0.43481,   0.03794,   0.01265,
988      +    0.00641,   0.03065,   0.06350,
989      +    0.49537,   0.19226,   0.41224,   0.03691,   0.01267,
990      +    0.00670,   0.02995,   0.06154,
991      +    0.48669,   0.18779,   0.39150,   0.03589,   0.01265,
992      +    0.00690,   0.02927,   0.05973,
993      +    0.47843,   0.18361,   0.37261,   0.03495,   0.01260,
994      +    0.00706,   0.02862,   0.05802 /
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.47055,   0.17969,   0.35532,   0.03408,   0.01254,
997      +    0.00718,   0.02799,   0.05640,
998      +    0.46295,   0.17594,   0.33929,   0.03323,   0.01245,
999      +    0.00729,   0.02739,   0.05487,
1000      +    0.45574,   0.17240,   0.32458,   0.03242,   0.01236,
1001      +    0.00738,   0.02681,   0.05344,
1002      +    0.44874,   0.16901,   0.31093,   0.03165,   0.01226,
1003      +    0.00742,   0.02626,   0.05208,
1004      +    0.44207,   0.16581,   0.29833,   0.03092,   0.01215,
1005      +    0.00745,   0.02573,   0.05080 /
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.63432,   0.26127,   0.72328,   0.04038,   0.00381,
1008      +   -0.00002,   0.02983,   0.07731,
1009      +    0.61344,   0.24843,   0.66034,   0.03880,   0.00564,
1010      +   -0.00002,   0.02938,   0.07285,
1011      +    0.59442,   0.23730,   0.60435,   0.03729,   0.00690,
1012      +   -0.00002,   0.02875,   0.06893,
1013      +    0.57687,   0.22748,   0.55471,   0.03583,   0.00775,
1014      +    0.00075,   0.02803,   0.06545,
1015      +    0.56069,   0.21867,   0.51106,   0.03445,   0.00835,
1016      +    0.00185,   0.02728,   0.06234,
1017      +    0.54566,   0.21069,   0.47253,   0.03316,   0.00874,
1018      +    0.00266,   0.02653,   0.05953,
1019      +    0.53159,   0.20346,   0.43841,   0.03197,   0.00902,
1020      +    0.00328,   0.02579,   0.05692 /
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.51844,   0.19679,   0.40811,   0.03085,   0.00919,
1023      +    0.00376,   0.02506,   0.05458,
1024      +    0.50610,   0.19065,   0.38112,   0.02978,   0.00930,
1025      +    0.00414,   0.02434,   0.05244,
1026      +    0.49449,   0.18498,   0.35701,   0.02878,   0.00935,
1027      +    0.00444,   0.02366,   0.05047,
1028      +    0.48357,   0.17972,   0.33540,   0.02784,   0.00935,
1029      +    0.00466,   0.02302,   0.04865,
1030      +    0.47329,   0.17480,   0.31595,   0.02697,   0.00932,
1031      +    0.00483,   0.02240,   0.04697,
1032      +    0.46345,   0.17022,   0.29831,   0.02616,   0.00927,
1033      +    0.00496,   0.02181,   0.04535,
1034      +    0.45417,   0.16593,   0.28236,   0.02539,   0.00921,
1035      +    0.00507,   0.02124,   0.04386 /
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.44538,   0.16190,   0.26787,   0.02465,   0.00913,
1038      +    0.00515,   0.02070,   0.04249,
1039      +    0.43695,   0.15807,   0.25457,   0.02397,   0.00903,
1040      +    0.00521,   0.02018,   0.04122,
1041      +    0.42898,   0.15447,   0.24244,   0.02332,   0.00893,
1042      +    0.00526,   0.01969,   0.04002,
1043      +    0.42130,   0.15106,   0.23126,   0.02270,   0.00883,
1044      +    0.00527,   0.01922,   0.03888,
1045      +    0.41400,   0.14783,   0.22100,   0.02212,   0.00873,
1046      +    0.00528,   0.01877,   0.03781 /
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.63165,   0.24762,   0.62566,   0.03099,   0.00301,
1049      +   -0.00001,   0.02364,   0.06227,
1050      +    0.60605,   0.23364,   0.56038,   0.02957,   0.00443,
1051      +   -0.00002,   0.02308,   0.05811,
1052      +    0.58327,   0.22168,   0.50480,   0.02822,   0.00537,
1053      +   -0.00001,   0.02240,   0.05457,
1054      +    0.56262,   0.21124,   0.45705,   0.02696,   0.00597,
1055      +    0.00055,   0.02170,   0.05142,
1056      +    0.54384,   0.20197,   0.41611,   0.02577,   0.00639,
1057      +    0.00141,   0.02099,   0.04865,
1058      +    0.52660,   0.19365,   0.38070,   0.02469,   0.00665,
1059      +    0.00199,   0.02028,   0.04618,
1060      +    0.51068,   0.18613,   0.34987,   0.02369,   0.00682,
1061      +    0.00245,   0.01962,   0.04391 /
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.49594,   0.17927,   0.32291,   0.02273,   0.00691,
1064      +    0.00279,   0.01896,   0.04191,
1065      +    0.48218,   0.17301,   0.29923,   0.02186,   0.00696,
1066      +    0.00306,   0.01833,   0.04006,
1067      +    0.46936,   0.16725,   0.27833,   0.02106,   0.00697,
1068      +    0.00327,   0.01774,   0.03836,
1069      +    0.45738,   0.16193,   0.25978,   0.02030,   0.00694,
1070      +    0.00342,   0.01717,   0.03682,
1071      +    0.44616,   0.15699,   0.24326,   0.01959,   0.00689,
1072      +    0.00354,   0.01664,   0.03541,
1073      +    0.43551,   0.15240,   0.22837,   0.01893,   0.00682,
1074      +    0.00362,   0.01614,   0.03409,
1075      +    0.42552,   0.14812,   0.21504,   0.01831,   0.00674,
1076      +    0.00368,   0.01568,   0.03287 /
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.41612,   0.14411,   0.20303,   0.01773,   0.00666,
1079      +    0.00374,   0.01524,   0.03173,
1080      +    0.40713,   0.14033,   0.19210,   0.01718,   0.00658,
1081      +    0.00376,   0.01480,   0.03067,
1082      +    0.39867,   0.13680,   0.18218,   0.01667,   0.00649,
1083      +    0.00377,   0.01439,   0.02968,
1084      +    0.39056,   0.13344,   0.17309,   0.01619,   0.00640,
1085      +    0.00377,   0.01402,   0.02874,
1086      +    0.38288,   0.13029,   0.16479,   0.01573,   0.00631,
1087      +    0.00377,   0.01366,   0.02786 /
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.62040,   0.23155,   0.53954,   0.02345,   0.00239,
1090      +    0.00003,   0.01849,   0.04933,
1091      +    0.59072,   0.21693,   0.47462,   0.02226,   0.00345,
1092      +    0.00003,   0.01789,   0.04567,
1093      +    0.56471,   0.20456,   0.42107,   0.02116,   0.00413,
1094      +    0.00005,   0.01726,   0.04252,
1095      +    0.54159,   0.19377,   0.37636,   0.02009,   0.00456,
1096      +    0.00045,   0.01659,   0.03985,
1097      +    0.52072,   0.18435,   0.33877,   0.01913,   0.00485,
1098      +    0.00107,   0.01595,   0.03745,
1099      +    0.50178,   0.17592,   0.30683,   0.01823,   0.00502,
1100      +    0.00150,   0.01534,   0.03534,
1101      +    0.48445,   0.16836,   0.27945,   0.01741,   0.00512,
1102      +    0.00182,   0.01473,   0.03346 /
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.46847,   0.16154,   0.25580,   0.01666,   0.00516,
1105      +    0.00207,   0.01417,   0.03176,
1106      +    0.45372,   0.15530,   0.23531,   0.01596,   0.00516,
1107      +    0.00225,   0.01365,   0.03024,
1108      +    0.44010,   0.14958,   0.21741,   0.01531,   0.00514,
1109      +    0.00237,   0.01316,   0.02885,
1110      +    0.42743,   0.14434,   0.20166,   0.01470,   0.00511,
1111      +    0.00248,   0.01270,   0.02756,
1112      +    0.41558,   0.13954,   0.18772,   0.01416,   0.00505,
1113      +    0.00256,   0.01226,   0.02639,
1114      +    0.40444,   0.13504,   0.17532,   0.01363,   0.00498,
1115      +    0.00261,   0.01184,   0.02534,
1116      +    0.39404,   0.13087,   0.16427,   0.01314,   0.00490,
1117      +    0.00265,   0.01146,   0.02435 /
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.38427,   0.12699,   0.15436,   0.01270,   0.00483,
1120      +    0.00268,   0.01111,   0.02342,
1121      +    0.37496,   0.12336,   0.14542,   0.01228,   0.00475,
1122      +    0.00268,   0.01076,   0.02257,
1123      +    0.36624,   0.11996,   0.13735,   0.01189,   0.00467,
1124      +    0.00268,   0.01043,   0.02178,
1125      +    0.35796,   0.11674,   0.13001,   0.01151,   0.00460,
1126      +    0.00268,   0.01013,   0.02104,
1127      +    0.35015,   0.11372,   0.12333,   0.01115,   0.00452,
1128      +    0.00268,   0.00984,   0.02034 /
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.60158,   0.21430,   0.46356,   0.01776,   0.00170,
1131      +   -0.00013,   0.01410,   0.03846,
1132      +    0.56866,   0.19929,   0.40066,   0.01672,   0.00255,
1133      +   -0.00013,   0.01359,   0.03531,
1134      +    0.54017,   0.18675,   0.35027,   0.01578,   0.00308,
1135      +   -0.00013,   0.01301,   0.03269,
1136      +    0.51512,   0.17591,   0.30915,   0.01490,   0.00339,
1137      +    0.00023,   0.01246,   0.03042,
1138      +    0.49276,   0.16650,   0.27523,   0.01412,   0.00360,
1139      +    0.00070,   0.01192,   0.02842,
1140      +    0.47257,   0.15819,   0.24686,   0.01342,   0.00371,
1141      +    0.00103,   0.01141,   0.02667,
1142      +    0.45427,   0.15074,   0.22287,   0.01275,   0.00378,
1143      +    0.00128,   0.01093,   0.02512 /
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.43755,   0.14405,   0.20242,   0.01215,   0.00380,
1146      +    0.00146,   0.01047,   0.02375,
1147      +    0.42222,   0.13800,   0.18488,   0.01159,   0.00379,
1148      +    0.00159,   0.01004,   0.02251,
1149      +    0.40808,   0.13249,   0.16969,   0.01108,   0.00376,
1150      +    0.00169,   0.00964,   0.02139,
1151      +    0.39501,   0.12745,   0.15645,   0.01062,   0.00371,
1152      +    0.00177,   0.00926,   0.02037,
1153      +    0.38292,   0.12280,   0.14483,   0.01017,   0.00367,
1154      +    0.00183,   0.00892,   0.01944,
1155      +    0.37157,   0.11850,   0.13460,   0.00977,   0.00361,
1156      +    0.00186,   0.00859,   0.01858,
1157      +    0.36099,   0.11453,   0.12553,   0.00940,   0.00355,
1158      +    0.00188,   0.00829,   0.01780 /
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.35109,   0.11085,   0.11743,   0.00905,   0.00348,
1161      +    0.00189,   0.00801,   0.01709,
1162      +    0.34174,   0.10741,   0.11018,   0.00872,   0.00342,
1163      +    0.00189,   0.00774,   0.01642,
1164      +    0.33300,   0.10420,   0.10367,   0.00841,   0.00336,
1165      +    0.00189,   0.00748,   0.01580,
1166      +    0.32469,   0.10117,   0.09778,   0.00813,   0.00329,
1167      +    0.00189,   0.00725,   0.01522,
1168      +    0.31687,   0.09834,   0.09245,   0.00787,   0.00323,
1169      +    0.00188,   0.00702,   0.01468 /
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.57678,   0.19570,   0.39576,   0.01300,   0.00136,
1172      +   -0.00003,   0.01076,   0.02948,
1173      +    0.54128,   0.18076,   0.33634,   0.01220,   0.00199,
1174      +   -0.00002,   0.01027,   0.02689,
1175      +    0.51091,   0.16836,   0.28991,   0.01148,   0.00237,
1176      +   -0.00003,   0.00979,   0.02473,
1177      +    0.48443,   0.15781,   0.25278,   0.01085,   0.00259,
1178      +    0.00022,   0.00932,   0.02283,
1179      +    0.46109,   0.14863,   0.22267,   0.01021,   0.00272,
1180      +    0.00057,   0.00886,   0.02126,
1181      +    0.44017,   0.14058,   0.19783,   0.00966,   0.00279,
1182      +    0.00080,   0.00843,   0.01987,
1183      +    0.42133,   0.13343,   0.17710,   0.00915,   0.00281,
1184      +    0.00097,   0.00804,   0.01863 /
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.40424,   0.12703,   0.15964,   0.00868,   0.00281,
1187      +    0.00109,   0.00767,   0.01752,
1188      +    0.38861,   0.12127,   0.14479,   0.00827,   0.00280,
1189      +    0.00119,   0.00733,   0.01654,
1190      +    0.37431,   0.11603,   0.13205,   0.00788,   0.00277,
1191      +    0.00126,   0.00702,   0.01565,
1192      +    0.36118,   0.11126,   0.12104,   0.00753,   0.00272,
1193      +    0.00130,   0.00672,   0.01485,
1194      +    0.34899,   0.10691,   0.11147,   0.00722,   0.00267,
1195      +    0.00133,   0.00644,   0.01413,
1196      +    0.33767,   0.10287,   0.10307,   0.00691,   0.00262,
1197      +    0.00135,   0.00619,   0.01346,
1198      +    0.32716,   0.09916,   0.09568,   0.00663,   0.00257,
1199      +    0.00136,   0.00595,   0.01285 /
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.31737,   0.09574,   0.08913,   0.00637,   0.00252,
1202      +    0.00137,   0.00573,   0.01228,
1203      +    0.30814,   0.09253,   0.08330,   0.00613,   0.00246,
1204      +    0.00136,   0.00553,   0.01178,
1205      +    0.29953,   0.08956,   0.07809,   0.00590,   0.00241,
1206      +    0.00135,   0.00533,   0.01131,
1207      +    0.29139,   0.08678,   0.07340,   0.00569,   0.00235,
1208      +    0.00135,   0.00515,   0.01087,
1209      +    0.28375,   0.08419,   0.06917,   0.00549,   0.00230,
1210      +    0.00134,   0.00498,   0.01046 /
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.54685,   0.17698,   0.33584,   0.00946,   0.00101,
1213      +   -0.00004,   0.00801,   0.02224,
1214      +    0.50954,   0.16235,   0.28077,   0.00885,   0.00150,
1215      +   -0.00003,   0.00763,   0.02014,
1216      +    0.47800,   0.15034,   0.23870,   0.00831,   0.00176,
1217      +   -0.00002,   0.00724,   0.01839,
1218      +    0.45079,   0.14016,   0.20567,   0.00779,   0.00192,
1219      +    0.00016,   0.00685,   0.01692,
1220      +    0.42691,   0.13140,   0.17931,   0.00732,   0.00202,
1221      +    0.00042,   0.00648,   0.01566,
1222      +    0.40571,   0.12374,   0.15783,   0.00690,   0.00206,
1223      +    0.00060,   0.00615,   0.01455,
1224      +    0.38673,   0.11698,   0.14013,   0.00650,   0.00207,
1225      +    0.00071,   0.00584,   0.01360 /
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.36958,   0.11096,   0.12536,   0.00616,   0.00206,
1228      +    0.00080,   0.00554,   0.01273,
1229      +    0.35402,   0.10554,   0.11294,   0.00585,   0.00204,
1230      +    0.00086,   0.00527,   0.01198,
1231      +    0.33985,   0.10065,   0.10238,   0.00556,   0.00201,
1232      +    0.00091,   0.00503,   0.01129,
1233      +    0.32688,   0.09623,   0.09332,   0.00530,   0.00198,
1234      +    0.00094,   0.00481,   0.01066,
1235      +    0.31491,   0.09220,   0.08549,   0.00506,   0.00194,
1236      +    0.00096,   0.00460,   0.01011,
1237      +    0.30384,   0.08848,   0.07868,   0.00482,   0.00189,
1238      +    0.00097,   0.00440,   0.00961,
1239      +    0.29360,   0.08507,   0.07271,   0.00462,   0.00184,
1240      +    0.00097,   0.00422,   0.00915 /
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.28407,   0.08193,   0.06745,   0.00444,   0.00179,
1243      +    0.00096,   0.00405,   0.00873,
1244      +    0.27514,   0.07900,   0.06280,   0.00426,   0.00176,
1245      +    0.00096,   0.00389,   0.00835,
1246      +    0.26683,   0.07629,   0.05865,   0.00409,   0.00172,
1247      +    0.00096,   0.00375,   0.00799,
1248      +    0.25900,   0.07375,   0.05495,   0.00394,   0.00167,
1249      +    0.00095,   0.00362,   0.00766,
1250      +    0.25167,   0.07139,   0.05163,   0.00380,   0.00162,
1251      +    0.00094,   0.00349,   0.00735 /
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.51290,   0.15830,   0.28289,   0.00674,   0.00078,
1254      +    0.00000,   0.00590,   0.01649,
1255      +    0.47458,   0.14428,   0.23272,   0.00628,   0.00113,
1256      +    0.00000,   0.00559,   0.01483,
1257      +    0.44250,   0.13283,   0.19515,   0.00588,   0.00133,
1258      +    0.00000,   0.00529,   0.01346,
1259      +    0.41508,   0.12320,   0.16625,   0.00548,   0.00144,
1260      +    0.00013,   0.00497,   0.01234,
1261      +    0.39114,   0.11496,   0.14346,   0.00516,   0.00150,
1262      +    0.00032,   0.00469,   0.01134,
1263      +    0.37005,   0.10780,   0.12514,   0.00486,   0.00153,
1264      +    0.00044,   0.00444,   0.01048,
1265      +    0.35125,   0.10150,   0.11022,   0.00458,   0.00153,
1266      +    0.00053,   0.00419,   0.00975 /
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.33443,   0.09593,   0.09790,   0.00431,   0.00151,
1269      +    0.00060,   0.00396,   0.00910,
1270      +    0.31922,   0.09094,   0.08761,   0.00408,   0.00148,
1271      +    0.00063,   0.00376,   0.00854,
1272      +    0.30540,   0.08646,   0.07894,   0.00387,   0.00145,
1273      +    0.00066,   0.00357,   0.00802,
1274      +    0.29282,   0.08241,   0.07156,   0.00368,   0.00141,
1275      +    0.00068,   0.00341,   0.00755,
1276      +    0.28130,   0.07873,   0.06522,   0.00350,   0.00138,
1277      +    0.00070,   0.00325,   0.00716,
1278      +    0.27065,   0.07534,   0.05974,   0.00332,   0.00135,
1279      +    0.00070,   0.00310,   0.00677,
1280      +    0.26082,   0.07225,   0.05498,   0.00317,   0.00132,
1281      +    0.00069,   0.00296,   0.00642 /
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.25172,   0.06942,   0.05081,   0.00303,   0.00128,
1284      +    0.00070,   0.00284,   0.00611,
1285      +    0.24322,   0.06678,   0.04714,   0.00292,   0.00125,
1286      +    0.00070,   0.00273,   0.00583,
1287      +    0.23533,   0.06434,   0.04388,   0.00281,   0.00121,
1288      +    0.00070,   0.00262,   0.00557,
1289      +    0.22789,   0.06207,   0.04098,   0.00271,   0.00118,
1290      +    0.00069,   0.00251,   0.00532,
1291      +    0.22096,   0.05997,   0.03838,   0.00261,   0.00115,
1292      +    0.00067,   0.00242,   0.00510 /
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.47600,   0.14011,   0.23627,   0.00467,   0.00060,
1295      +    0.00005,   0.00429,   0.01201,
1296      +    0.43740,   0.12688,   0.19135,   0.00437,   0.00086,
1297      +    0.00005,   0.00407,   0.01072,
1298      +    0.40539,   0.11614,   0.15839,   0.00408,   0.00101,
1299      +    0.00004,   0.00381,   0.00968,
1300      +    0.37816,   0.10719,   0.13336,   0.00380,   0.00107,
1301      +    0.00014,   0.00358,   0.00883,
1302      +    0.35465,   0.09956,   0.11394,   0.00357,   0.00110,
1303      +    0.00026,   0.00336,   0.00808,
1304      +    0.33403,   0.09296,   0.09851,   0.00336,   0.00112,
1305      +    0.00036,   0.00316,   0.00746,
1306      +    0.31581,   0.08721,   0.08607,   0.00314,   0.00111,
1307      +    0.00041,   0.00298,   0.00690 /
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.29955,   0.08209,   0.07590,   0.00295,   0.00110,
1310      +    0.00045,   0.00281,   0.00641,
1311      +    0.28491,   0.07756,   0.06748,   0.00279,   0.00108,
1312      +    0.00047,   0.00265,   0.00598,
1313      +    0.27169,   0.07350,   0.06045,   0.00263,   0.00105,
1314      +    0.00049,   0.00251,   0.00561,
1315      +    0.25969,   0.06985,   0.05451,   0.00248,   0.00102,
1316      +    0.00050,   0.00238,   0.00529,
1317      +    0.24874,   0.06653,   0.04943,   0.00235,   0.00099,
1318      +    0.00051,   0.00226,   0.00498,
1319      +    0.23863,   0.06351,   0.04508,   0.00225,   0.00096,
1320      +    0.00051,   0.00216,   0.00470,
1321      +    0.22935,   0.06075,   0.04131,   0.00215,   0.00094,
1322      +    0.00052,   0.00207,   0.00445 /
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.22080,   0.05822,   0.03803,   0.00205,   0.00092,
1325      +    0.00052,   0.00198,   0.00422,
1326      +    0.21283,   0.05588,   0.03515,   0.00196,   0.00089,
1327      +    0.00051,   0.00189,   0.00400,
1328      +    0.20545,   0.05373,   0.03260,   0.00188,   0.00086,
1329      +    0.00049,   0.00180,   0.00381,
1330      +    0.19852,   0.05173,   0.03036,   0.00181,   0.00083,
1331      +    0.00048,   0.00173,   0.00363,
1332      +    0.19208,   0.04987,   0.02836,   0.00174,   0.00081,
1333      +    0.00047,   0.00167,   0.00348 /
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.43710,   0.12286,   0.19576,   0.00328,   0.00042,
1336      +    0.00002,   0.00304,   0.00857,
1337      +    0.39891,   0.11053,   0.15609,   0.00304,   0.00061,
1338      +    0.00001,   0.00285,   0.00763,
1339      +    0.36747,   0.10061,   0.12750,   0.00283,   0.00072,
1340      +    0.00000,   0.00267,   0.00685,
1341      +    0.34099,   0.09238,   0.10618,   0.00266,   0.00077,
1342      +    0.00009,   0.00251,   0.00619,
1343      +    0.31830,   0.08540,   0.08981,   0.00247,   0.00079,
1344      +    0.00018,   0.00235,   0.00565,
1345      +    0.29853,   0.07940,   0.07697,   0.00230,   0.00080,
1346      +    0.00024,   0.00220,   0.00519,
1347      +    0.28107,   0.07417,   0.06672,   0.00215,   0.00080,
1348      +    0.00029,   0.00207,   0.00479 /
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.26555,   0.06960,   0.05843,   0.00203,   0.00078,
1351      +    0.00031,   0.00194,   0.00443,
1352      +    0.25170,   0.06554,   0.05163,   0.00191,   0.00076,
1353      +    0.00033,   0.00183,   0.00412,
1354      +    0.23923,   0.06191,   0.04598,   0.00180,   0.00074,
1355      +    0.00035,   0.00173,   0.00386,
1356      +    0.22795,   0.05865,   0.04125,   0.00170,   0.00072,
1357      +    0.00036,   0.00164,   0.00362,
1358      +    0.21767,   0.05572,   0.03724,   0.00162,   0.00070,
1359      +    0.00036,   0.00155,   0.00340,
1360      +    0.20826,   0.05305,   0.03381,   0.00153,   0.00068,
1361      +    0.00034,   0.00147,   0.00320,
1362      +    0.19964,   0.05062,   0.03085,   0.00146,   0.00065,
1363      +    0.00034,   0.00140,   0.00302 /
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.19170,   0.04840,   0.02828,   0.00140,   0.00062,
1366      +    0.00035,   0.00133,   0.00287,
1367      +    0.18435,   0.04635,   0.02605,   0.00134,   0.00061,
1368      +    0.00034,   0.00127,   0.00272,
1369      +    0.17756,   0.04446,   0.02409,   0.00128,   0.00059,
1370      +    0.00033,   0.00122,   0.00258,
1371      +    0.17121,   0.04271,   0.02236,   0.00123,   0.00057,
1372      +    0.00032,   0.00116,   0.00246,
1373      +    0.16532,   0.04108,   0.02083,   0.00117,   0.00056,
1374      +    0.00032,   0.00112,   0.00235 /
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.39711,   0.10654,   0.16056,   0.00221,   0.00030,
1377      +    0.00003,   0.00212,   0.00601,
1378      +    0.35993,   0.09525,   0.12613,   0.00207,   0.00043,
1379      +    0.00002,   0.00199,   0.00531,
1380      +    0.32966,   0.08620,   0.10170,   0.00192,   0.00050,
1381      +    0.00002,   0.00184,   0.00478,
1382      +    0.30427,   0.07877,   0.08378,   0.00182,   0.00054,
1383      +    0.00006,   0.00172,   0.00427,
1384      +    0.28263,   0.07251,   0.07020,   0.00170,   0.00055,
1385      +    0.00013,   0.00160,   0.00389,
1386      +    0.26392,   0.06713,   0.05965,   0.00159,   0.00055,
1387      +    0.00017,   0.00150,   0.00356,
1388      +    0.24751,   0.06247,   0.05132,   0.00147,   0.00054,
1389      +    0.00020,   0.00140,   0.00328 /
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.23298,   0.05841,   0.04462,   0.00140,   0.00053,
1392      +    0.00022,   0.00131,   0.00302,
1393      +    0.22004,   0.05483,   0.03918,   0.00131,   0.00052,
1394      +    0.00022,   0.00123,   0.00280,
1395      +    0.20845,   0.05164,   0.03470,   0.00124,   0.00050,
1396      +    0.00023,   0.00116,   0.00260,
1397      +    0.19800,   0.04878,   0.03096,   0.00117,   0.00048,
1398      +    0.00024,   0.00110,   0.00243,
1399      +    0.18857,   0.04621,   0.02781,   0.00109,   0.00047,
1400      +    0.00024,   0.00104,   0.00229,
1401      +    0.17995,   0.04387,   0.02514,   0.00102,   0.00044,
1402      +    0.00024,   0.00098,   0.00216,
1403      +    0.17205,   0.04176,   0.02286,   0.00098,   0.00043,
1404      +    0.00023,   0.00093,   0.00204 /
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.16477,   0.03983,   0.02089,   0.00096,   0.00042,
1407      +    0.00022,   0.00089,   0.00191,
1408      +    0.15808,   0.03806,   0.01918,   0.00091,   0.00040,
1409      +    0.00022,   0.00085,   0.00180,
1410      +    0.15192,   0.03643,   0.01768,   0.00086,   0.00039,
1411      +    0.00021,   0.00080,   0.00171,
1412      +    0.14618,   0.03492,   0.01636,   0.00081,   0.00038,
1413      +    0.00021,   0.00077,   0.00163,
1414      +    0.14085,   0.03353,   0.01520,   0.00078,   0.00037,
1415      +    0.00020,   0.00073,   0.00156 /
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.35681,   0.09132,   0.13024,   0.00142,   0.00023,
1418      +    0.00004,   0.00147,   0.00412,
1419      +    0.32119,   0.08111,   0.10074,   0.00135,   0.00032,
1420      +    0.00004,   0.00137,   0.00365,
1421      +    0.29244,   0.07297,   0.08020,   0.00124,   0.00037,
1422      +    0.00004,   0.00128,   0.00324,
1423      +    0.26849,   0.06634,   0.06531,   0.00117,   0.00039,
1424      +    0.00007,   0.00119,   0.00289,
1425      +    0.24819,   0.06078,   0.05418,   0.00110,   0.00040,
1426      +    0.00011,   0.00110,   0.00263,
1427      +    0.23069,   0.05606,   0.04563,   0.00103,   0.00040,
1428      +    0.00013,   0.00102,   0.00237,
1429      +    0.21547,   0.05196,   0.03895,   0.00095,   0.00039,
1430      +    0.00014,   0.00096,   0.00217 /
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.20209,   0.04838,   0.03364,   0.00088,   0.00038,
1433      +    0.00016,   0.00089,   0.00202,
1434      +    0.19017,   0.04526,   0.02935,   0.00084,   0.00037,
1435      +    0.00017,   0.00084,   0.00187,
1436      +    0.17955,   0.04249,   0.02585,   0.00079,   0.00036,
1437      +    0.00017,   0.00079,   0.00172,
1438      +    0.17005,   0.04001,   0.02294,   0.00073,   0.00034,
1439      +    0.00017,   0.00074,   0.00160,
1440      +    0.16145,   0.03781,   0.02051,   0.00069,   0.00033,
1441      +    0.00017,   0.00069,   0.00150,
1442      +    0.15359,   0.03580,   0.01846,   0.00067,   0.00032,
1443      +    0.00017,   0.00066,   0.00141,
1444      +    0.14647,   0.03398,   0.01672,   0.00063,   0.00031,
1445      +    0.00017,   0.00063,   0.00133 /
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.13998,   0.03233,   0.01522,   0.00057,   0.00030,
1448      +    0.00016,   0.00059,   0.00126,
1449      +    0.13393,   0.03081,   0.01392,   0.00057,   0.00029,
1450      +    0.00016,   0.00056,   0.00119,
1451      +    0.12838,   0.02943,   0.01279,   0.00056,   0.00028,
1452      +    0.00015,   0.00053,   0.00112,
1453      +    0.12326,   0.02816,   0.01181,   0.00052,   0.00026,
1454      +    0.00015,   0.00051,   0.00107,
1455      +    0.11852,   0.02698,   0.01094,   0.00049,   0.00025,
1456      +    0.00015,   0.00049,   0.00101 /
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.31703,   0.07742,   0.10444,   0.00092,   0.00016,
1459      +    0.00003,   0.00099,   0.00276,
1460      +    0.28338,   0.06830,   0.07952,   0.00089,   0.00024,
1461      +    0.00002,   0.00093,   0.00241,
1462      +    0.25644,   0.06110,   0.06247,   0.00080,   0.00028,
1463      +    0.00004,   0.00087,   0.00214,
1464      +    0.23418,   0.05522,   0.05029,   0.00073,   0.00029,
1465      +    0.00005,   0.00081,   0.00192,
1466      +    0.21543,   0.05035,   0.04130,   0.00068,   0.00029,
1467      +    0.00008,   0.00075,   0.00174,
1468      +    0.19937,   0.04621,   0.03449,   0.00061,   0.00030,
1469      +    0.00011,   0.00070,   0.00155,
1470      +    0.18540,   0.04268,   0.02922,   0.00058,   0.00029,
1471      +    0.00013,   0.00065,   0.00143 /
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.17318,   0.03960,   0.02506,   0.00056,   0.00028,
1474      +    0.00013,   0.00060,   0.00132,
1475      +    0.16240,   0.03691,   0.02173,   0.00053,   0.00027,
1476      +    0.00013,   0.00057,   0.00120,
1477      +    0.15284,   0.03454,   0.01902,   0.00049,   0.00026,
1478      +    0.00013,   0.00054,   0.00110,
1479      +    0.14429,   0.03242,   0.01680,   0.00045,   0.00025,
1480      +    0.00013,   0.00051,   0.00102,
1481      +    0.13657,   0.03054,   0.01495,   0.00043,   0.00024,
1482      +    0.00014,   0.00048,   0.00096,
1483      +    0.12957,   0.02884,   0.01340,   0.00040,   0.00023,
1484      +    0.00013,   0.00045,   0.00090,
1485      +    0.12323,   0.02730,   0.01208,   0.00038,   0.00022,
1486      +    0.00012,   0.00042,   0.00084 /
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.11746,   0.02591,   0.01096,   0.00034,   0.00021,
1489      +    0.00012,   0.00039,   0.00079,
1490      +    0.11214,   0.02464,   0.01000,   0.00032,   0.00020,
1491      +    0.00012,   0.00038,   0.00076,
1492      +    0.10726,   0.02348,   0.00916,   0.00030,   0.00019,
1493      +    0.00012,   0.00036,   0.00072,
1494      +    0.10275,   0.02241,   0.00843,   0.00029,   0.00019,
1495      +    0.00011,   0.00034,   0.00068,
1496      +    0.09857,   0.02142,   0.00779,   0.00028,   0.00018,
1497      +    0.00011,   0.00032,   0.00065 /
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.27849,   0.06494,   0.08285,   0.00063,   0.00007,
1500      +   -0.00001,   0.00061,   0.00183,
1501      +    0.24727,   0.05693,   0.06216,   0.00060,   0.00013,
1502      +   -0.00001,   0.00058,   0.00159,
1503      +    0.22241,   0.05064,   0.04822,   0.00056,   0.00015,
1504      +   -0.00002,   0.00054,   0.00139,
1505      +    0.20204,   0.04555,   0.03842,   0.00051,   0.00017,
1506      +    0.00000,   0.00050,   0.00126,
1507      +    0.18495,   0.04135,   0.03126,   0.00049,   0.00018,
1508      +    0.00004,   0.00047,   0.00112,
1509      +    0.17041,   0.03781,   0.02589,   0.00046,   0.00017,
1510      +    0.00005,   0.00043,   0.00100,
1511      +    0.15782,   0.03478,   0.02176,   0.00044,   0.00017,
1512      +    0.00006,   0.00039,   0.00091 /
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.14691,   0.03215,   0.01855,   0.00039,   0.00016,
1515      +    0.00007,   0.00036,   0.00085,
1516      +    0.13730,   0.02986,   0.01599,   0.00037,   0.00016,
1517      +    0.00007,   0.00034,   0.00077,
1518      +    0.12878,   0.02786,   0.01393,   0.00035,   0.00015,
1519      +    0.00007,   0.00032,   0.00071,
1520      +    0.12118,   0.02608,   0.01224,   0.00033,   0.00014,
1521      +    0.00007,   0.00030,   0.00067,
1522      +    0.11435,   0.02451,   0.01084,   0.00032,   0.00014,
1523      +    0.00007,   0.00028,   0.00061,
1524      +    0.10820,   0.02308,   0.00968,   0.00029,   0.00013,
1525      +    0.00007,   0.00026,   0.00057,
1526      +    0.10264,   0.02180,   0.00870,   0.00027,   0.00013,
1527      +    0.00006,   0.00025,   0.00054 /
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.09758,   0.02064,   0.00787,   0.00026,   0.00012,
1530      +    0.00006,   0.00024,   0.00050,
1531      +    0.09293,   0.01958,   0.00715,   0.00025,   0.00012,
1532      +    0.00006,   0.00022,   0.00047,
1533      +    0.08868,   0.01861,   0.00653,   0.00024,   0.00012,
1534      +    0.00006,   0.00021,   0.00044,
1535      +    0.08477,   0.01773,   0.00600,   0.00023,   0.00011,
1536      +    0.00006,   0.00020,   0.00042,
1537      +    0.08116,   0.01692,   0.00553,   0.00021,   0.00010,
1538      +    0.00006,   0.00019,   0.00040 /
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.24129,   0.05358,   0.06458,   0.00036,   0.00008,
1541      +    0.00003,   0.00042,   0.00115,
1542      +    0.21274,   0.04667,   0.04773,   0.00034,   0.00011,
1543      +    0.00002,   0.00039,   0.00100,
1544      +    0.19019,   0.04128,   0.03655,   0.00031,   0.00012,
1545      +    0.00002,   0.00035,   0.00090,
1546      +    0.17184,   0.03693,   0.02880,   0.00029,   0.00012,
1547      +    0.00003,   0.00033,   0.00079,
1548      +    0.15653,   0.03337,   0.02322,   0.00029,   0.00012,
1549      +    0.00004,   0.00030,   0.00070,
1550      +    0.14358,   0.03038,   0.01906,   0.00026,   0.00013,
1551      +    0.00005,   0.00028,   0.00062,
1552      +    0.13242,   0.02783,   0.01590,   0.00025,   0.00012,
1553      +    0.00005,   0.00026,   0.00058 /
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.12277,   0.02563,   0.01346,   0.00024,   0.00012,
1556      +    0.00006,   0.00024,   0.00052,
1557      +    0.11432,   0.02373,   0.01153,   0.00021,   0.00011,
1558      +    0.00006,   0.00022,   0.00048,
1559      +    0.10686,   0.02206,   0.00999,   0.00020,   0.00010,
1560      +    0.00006,   0.00020,   0.00044,
1561      +    0.10023,   0.02059,   0.00874,   0.00019,   0.00010,
1562      +    0.00006,   0.00019,   0.00041,
1563      +    0.09433,   0.01928,   0.00770,   0.00017,   0.00009,
1564      +    0.00005,   0.00018,   0.00039,
1565      +    0.08899,   0.01811,   0.00685,   0.00017,   0.00009,
1566      +    0.00005,   0.00017,   0.00035,
1567      +    0.08418,   0.01706,   0.00613,   0.00016,   0.00009,
1568      +    0.00005,   0.00016,   0.00033 /
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.07982,   0.01611,   0.00553,   0.00015,   0.00008,
1571      +    0.00005,   0.00015,   0.00032,
1572      +    0.07583,   0.01525,   0.00501,   0.00015,   0.00008,
1573      +    0.00005,   0.00014,   0.00029,
1574      +    0.07219,   0.01447,   0.00456,   0.00014,   0.00007,
1575      +    0.00004,   0.00013,   0.00027,
1576      +    0.06884,   0.01375,   0.00418,   0.00014,   0.00007,
1577      +    0.00004,   0.00013,   0.00025,
1578      +    0.06576,   0.01309,   0.00384,   0.00013,   0.00006,
1579      +    0.00004,   0.00012,   0.00024 /
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.20632,   0.04363,   0.04960,   0.00019,   0.00007,
1582      +    0.00004,   0.00027,   0.00073,
1583      +    0.18062,   0.03774,   0.03610,   0.00020,   0.00009,
1584      +    0.00003,   0.00025,   0.00060,
1585      +    0.16046,   0.03316,   0.02727,   0.00017,   0.00009,
1586      +    0.00003,   0.00024,   0.00055,
1587      +    0.14417,   0.02953,   0.02125,   0.00016,   0.00009,
1588      +    0.00003,   0.00022,   0.00048,
1589      +    0.13066,   0.02655,   0.01696,   0.00016,   0.00009,
1590      +    0.00004,   0.00020,   0.00043,
1591      +    0.11927,   0.02405,   0.01380,   0.00015,   0.00009,
1592      +    0.00004,   0.00019,   0.00038,
1593      +    0.10955,   0.02194,   0.01143,   0.00014,   0.00008,
1594      +    0.00004,   0.00017,   0.00035 /
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.10117,   0.02014,   0.00960,   0.00013,   0.00008,
1597      +    0.00005,   0.00016,   0.00031,
1598      +    0.09386,   0.01857,   0.00818,   0.00011,   0.00008,
1599      +    0.00004,   0.00015,   0.00029,
1600      +    0.08743,   0.01721,   0.00704,   0.00010,   0.00007,
1601      +    0.00004,   0.00014,   0.00027,
1602      +    0.08175,   0.01601,   0.00613,   0.00009,   0.00007,
1603      +    0.00004,   0.00013,   0.00025,
1604      +    0.07669,   0.01494,   0.00538,   0.00008,   0.00007,
1605      +    0.00004,   0.00012,   0.00023,
1606      +    0.07213,   0.01400,   0.00477,   0.00009,   0.00006,
1607      +    0.00004,   0.00011,   0.00021,
1608      +    0.06803,   0.01315,   0.00425,   0.00009,   0.00006,
1609      +    0.00004,   0.00010,   0.00019 /
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.06432,   0.01239,   0.00382,   0.00009,   0.00005,
1612      +    0.00003,   0.00009,   0.00019,
1613      +    0.06095,   0.01170,   0.00345,   0.00008,   0.00005,
1614      +    0.00003,   0.00009,   0.00017,
1615      +    0.05790,   0.01107,   0.00313,   0.00007,   0.00005,
1616      +    0.00003,   0.00008,   0.00016,
1617      +    0.05509,   0.01049,   0.00286,   0.00006,   0.00005,
1618      +    0.00003,   0.00008,   0.00015,
1619      +    0.05252,   0.00997,   0.00262,   0.00006,   0.00004,
1620      +    0.00003,   0.00007,   0.00014 /
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.17410,   0.03508,   0.03756,   0.00013,   0.00002,
1623      +    0.00000,   0.00015,   0.00045,
1624      +    0.15131,   0.03014,   0.02689,   0.00013,   0.00005,
1625      +    0.00000,   0.00014,   0.00037,
1626      +    0.13357,   0.02632,   0.02007,   0.00012,   0.00004,
1627      +    0.00000,   0.00013,   0.00034,
1628      +    0.11932,   0.02330,   0.01546,   0.00012,   0.00005,
1629      +    0.00001,   0.00012,   0.00029,
1630      +    0.10760,   0.02085,   0.01222,   0.00011,   0.00005,
1631      +    0.00001,   0.00011,   0.00026,
1632      +    0.09778,   0.01881,   0.00986,   0.00011,   0.00005,
1633      +    0.00002,   0.00010,   0.00022,
1634      +    0.08943,   0.01709,   0.00810,   0.00008,   0.00004,
1635      +    0.00002,   0.00009,   0.00022 /
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.08225,   0.01562,   0.00676,   0.00008,   0.00004,
1638      +    0.00002,   0.00009,   0.00018,
1639      +    0.07600,   0.01436,   0.00572,   0.00009,   0.00004,
1640      +    0.00002,   0.00008,   0.00016,
1641      +    0.07054,   0.01326,   0.00490,   0.00009,   0.00004,
1642      +    0.00002,   0.00007,   0.00015,
1643      +    0.06573,   0.01230,   0.00425,   0.00008,   0.00003,
1644      +    0.00002,   0.00007,   0.00013,
1645      +    0.06146,   0.01145,   0.00371,   0.00007,   0.00003,
1646      +    0.00001,   0.00006,   0.00013,
1647      +    0.05765,   0.01069,   0.00328,   0.00007,   0.00003,
1648      +    0.00002,   0.00006,   0.00012,
1649      +    0.05424,   0.01001,   0.00291,   0.00007,   0.00003,
1650      +    0.00002,   0.00006,   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.05117,   0.00941,   0.00260,   0.00006,   0.00003,
1653      +    0.00002,   0.00005,   0.00010,
1654      +    0.04836,   0.00886,   0.00235,   0.00005,   0.00003,
1655      +    0.00001,   0.00005,   0.00010,
1656      +    0.04582,   0.00836,   0.00212,   0.00005,   0.00003,
1657      +    0.00001,   0.00004,   0.00009,
1658      +    0.04348,   0.00791,   0.00194,   0.00005,   0.00003,
1659      +    0.00001,   0.00004,   0.00009,
1660      +    0.04135,   0.00750,   0.00177,   0.00005,   0.00003,
1661      +    0.00001,   0.00004,   0.00008 /
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.14432,   0.02762,   0.02776,   0.00005,   0.00003,
1664      +    0.00002,   0.00010,   0.00025,
1665      +    0.12451,   0.02355,   0.01957,   0.00004,   0.00004,
1666      +    0.00002,   0.00010,   0.00021,
1667      +    0.10919,   0.02044,   0.01441,   0.00006,   0.00005,
1668      +    0.00002,   0.00010,   0.00018,
1669      +    0.09697,   0.01800,   0.01097,   0.00005,   0.00004,
1670      +    0.00002,   0.00008,   0.00017,
1671      +    0.08697,   0.01602,   0.00858,   0.00006,   0.00004,
1672      +    0.00002,   0.00007,   0.00014,
1673      +    0.07865,   0.01438,   0.00686,   0.00005,   0.00004,
1674      +    0.00002,   0.00007,   0.00013,
1675      +    0.07161,   0.01301,   0.00559,   0.00005,   0.00003,
1676      +    0.00002,   0.00006,   0.00012 /
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.06557,   0.01185,   0.00464,   0.00005,   0.00003,
1679      +    0.00002,   0.00005,   0.00011,
1680      +    0.06038,   0.01085,   0.00390,   0.00004,   0.00003,
1681      +    0.00002,   0.00005,   0.00010,
1682      +    0.05584,   0.00998,   0.00332,   0.00003,   0.00003,
1683      +    0.00002,   0.00005,   0.00009,
1684      +    0.05185,   0.00922,   0.00286,   0.00003,   0.00002,
1685      +    0.00002,   0.00005,   0.00008,
1686      +    0.04833,   0.00856,   0.00249,   0.00002,   0.00002,
1687      +    0.00001,   0.00004,   0.00008,
1688      +    0.04519,   0.00797,   0.00219,   0.00003,   0.00002,
1689      +    0.00002,   0.00004,   0.00007,
1690      +    0.04238,   0.00744,   0.00194,   0.00003,   0.00003,
1691      +    0.00002,   0.00004,   0.00006 /
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.03986,   0.00697,   0.00173,   0.00002,   0.00002,
1694      +    0.00001,   0.00003,   0.00006,
1695      +    0.03758,   0.00655,   0.00155,   0.00002,   0.00002,
1696      +    0.00001,   0.00003,   0.00005,
1697      +    0.03551,   0.00617,   0.00140,   0.00002,   0.00002,
1698      +    0.00001,   0.00003,   0.00005,
1699      +    0.03362,   0.00582,   0.00127,   0.00002,   0.00002,
1700      +    0.00001,   0.00003,   0.00005,
1701      +    0.03190,   0.00551,   0.00116,   0.00002,   0.00002,
1702      +    0.00001,   0.00003,   0.00004 /
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.09420,   0.01625,   0.01428,   0.00002,   0.00000,
1705      +    0.00000,   0.00003,   0.00008,
1706      +    0.08000,   0.01364,   0.00973,   0.00002,   0.00001,
1707      +    0.00000,   0.00003,   0.00006,
1708      +    0.06919,   0.01168,   0.00696,   0.00003,   0.00001,
1709      +    0.00000,   0.00002,   0.00005,
1710      +    0.06069,   0.01017,   0.00517,   0.00002,   0.00001,
1711      +    0.00000,   0.00002,   0.00005,
1712      +    0.05383,   0.00895,   0.00396,   0.00002,   0.00001,
1713      +    0.00000,   0.00002,   0.00005,
1714      +    0.04819,   0.00795,   0.00311,   0.00001,   0.00001,
1715      +    0.00000,   0.00002,   0.00004,
1716      +    0.04345,   0.00712,   0.00250,   0.00001,   0.00001,
1717      +    0.00001,   0.00002,   0.00004 /
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.03945,   0.00643,   0.00204,   0.00001,   0.00001,
1720      +    0.00001,   0.00002,   0.00003,
1721      +    0.03602,   0.00584,   0.00170,   0.00001,   0.00001,
1722      +    0.00000,   0.00002,   0.00003,
1723      +    0.03305,   0.00533,   0.00143,   0.00001,   0.00001,
1724      +    0.00001,   0.00002,   0.00003,
1725      +    0.03047,   0.00490,   0.00122,   0.00001,   0.00001,
1726      +    0.00001,   0.00001,   0.00002,
1727      +    0.02821,   0.00451,   0.00105,   0.00001,   0.00001,
1728      +    0.00001,   0.00001,   0.00002,
1729      +    0.02620,   0.00417,   0.00092,   0.00001,   0.00001,
1730      +    0.00000,   0.00001,   0.00002,
1731      +    0.02443,   0.00387,   0.00081,   0.00001,   0.00001,
1732      +    0.00000,   0.00001,   0.00002 /
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.02284,   0.00361,   0.00071,   0.00001,   0.00001,
1735      +    0.00001,   0.00001,   0.00002,
1736      +    0.02141,   0.00337,   0.00064,   0.00001,   0.00001,
1737      +    0.00001,   0.00001,   0.00002,
1738      +    0.02012,   0.00316,   0.00057,   0.00001,   0.00001,
1739      +    0.00000,   0.00001,   0.00001,
1740      +    0.01895,   0.00296,   0.00052,   0.00001,   0.00001,
1741      +    0.00000,   0.00001,   0.00001,
1742      +    0.01789,   0.00279,   0.00047,   0.00001,   0.00001,
1743      +    0.00001,   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.05623,   0.00867,   0.00655,   0.00002,   0.00000,
1746      +    0.00000,   0.00000,   0.00002,
1747      +    0.04695,   0.00716,   0.00431,   0.00001,   0.00000,
1748      +    0.00000,   0.00000,   0.00002,
1749      +    0.04001,   0.00604,   0.00299,   0.00000,   0.00000,
1750      +    0.00000,   0.00000,   0.00002,
1751      +    0.03463,   0.00519,   0.00217,   0.00000,   0.00000,
1752      +    0.00000,   0.00001,   0.00001,
1753      +    0.03035,   0.00451,   0.00163,   0.00001,   0.00000,
1754      +    0.00000,   0.00000,   0.00001,
1755      +    0.02686,   0.00397,   0.00125,   0.00001,   0.00000,
1756      +    0.00000,   0.00001,   0.00001,
1757      +    0.02398,   0.00352,   0.00099,   0.00001,   0.00000,
1758      +    0.00000,   0.00000,   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.02157,   0.00315,   0.00080,   0.00000,   0.00000,
1761      +    0.00000,   0.00000,   0.00001,
1762      +    0.01952,   0.00283,   0.00065,   0.00000,   0.00000,
1763      +    0.00000,   0.00000,   0.00001,
1764      +    0.01776,   0.00257,   0.00055,   0.00000,   0.00000,
1765      +    0.00000,   0.00000,   0.00001,
1766      +    0.01625,   0.00234,   0.00046,   0.00000,   0.00000,
1767      +    0.00000,   0.00000,   0.00001,
1768      +    0.01493,   0.00214,   0.00039,   0.00000,   0.00000,
1769      +    0.00000,   0.00000,   0.00001,
1770      +    0.01377,   0.00197,   0.00034,   0.00000,   0.00000,
1771      +    0.00000,   0.00000,   0.00001,
1772      +    0.01275,   0.00181,   0.00030,   0.00000,   0.00000,
1773      +    0.00000,   0.00000,   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.01185,   0.00168,   0.00026,   0.00000,   0.00000,
1776      +    0.00000,   0.00000,   0.00000,
1777      +    0.01103,   0.00156,   0.00023,   0.00000,   0.00000,
1778      +    0.00000,   0.00000,   0.00000,
1779      +    0.01031,   0.00145,   0.00021,   0.00000,   0.00000,
1780      +    0.00000,   0.00000,   0.00000,
1781      +    0.00966,   0.00136,   0.00019,   0.00000,   0.00000,
1782      +    0.00000,   0.00000,   0.00000,
1783      +    0.00907,   0.00127,   0.00017,   0.00000,   0.00000,
1784      +    0.00000,   0.00000,   0.00000 /
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.02985,   0.00406,   0.00258,   0.00001,   0.00000,
1787      +    0.00000,   0.00000,   0.00000,
1788      +    0.02444,   0.00329,   0.00163,   0.00000,   0.00000,
1789      +    0.00000,   0.00000,   0.00000,
1790      +    0.02049,   0.00273,   0.00110,   0.00000,   0.00000,
1791      +    0.00000,   0.00000,   0.00001,
1792      +    0.01747,   0.00231,   0.00077,   0.00000,   0.00000,
1793      +    0.00000,   0.00000,   0.00000,
1794      +    0.01510,   0.00199,   0.00057,   0.00000,   0.00000,
1795      +    0.00000,   0.00000,   0.00000,
1796      +    0.01320,   0.00172,   0.00043,   0.00000,   0.00000,
1797      +    0.00000,   0.00000,   0.00000,
1798      +    0.01166,   0.00151,   0.00033,   0.00000,   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.01037,   0.00134,   0.00026,   0.00000,   0.00000,
1802      +    0.00000,   0.00000,   0.00000,
1803      +    0.00929,   0.00119,   0.00021,   0.00000,   0.00000,
1804      +    0.00000,   0.00000,   0.00000,
1805      +    0.00838,   0.00107,   0.00018,   0.00000,   0.00000,
1806      +    0.00000,   0.00000,   0.00000,
1807      +    0.00759,   0.00097,   0.00015,   0.00000,   0.00000,
1808      +    0.00000,   0.00000,   0.00000,
1809      +    0.00692,   0.00088,   0.00013,   0.00000,   0.00000,
1810      +    0.00000,   0.00000,   0.00000,
1811      +    0.00633,   0.00080,   0.00011,   0.00000,   0.00000,
1812      +    0.00000,   0.00000,   0.00000,
1813      +    0.00582,   0.00073,   0.00009,   0.00000,   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.00537,   0.00067,   0.00008,   0.00000,   0.00000,
1817      +    0.00000,   0.00000,   0.00000,
1818      +    0.00497,   0.00062,   0.00007,   0.00000,   0.00000,
1819      +    0.00000,   0.00000,   0.00000,
1820      +    0.00461,   0.00058,   0.00006,   0.00000,   0.00000,
1821      +    0.00000,   0.00000,   0.00000,
1822      +    0.00429,   0.00053,   0.00006,   0.00000,   0.00000,
1823      +    0.00000,   0.00000,   0.00000,
1824      +    0.00401,   0.00050,   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.01333,   0.00157,   0.00081,   0.00000,   0.00000,
1828      +    0.00000,   0.00000,   0.00000,
1829      +    0.01068,   0.00124,   0.00049,   0.00000,   0.00000,
1830      +    0.00000,   0.00000,   0.00000,
1831      +    0.00878,   0.00101,   0.00032,   0.00000,   0.00000,
1832      +    0.00000,   0.00000,   0.00000,
1833      +    0.00736,   0.00084,   0.00022,   0.00000,   0.00000,
1834      +    0.00000,   0.00000,   0.00000,
1835      +    0.00627,   0.00071,   0.00016,   0.00000,   0.00000,
1836      +    0.00000,   0.00000,   0.00000,
1837      +    0.00540,   0.00061,   0.00011,   0.00000,   0.00000,
1838      +    0.00000,   0.00000,   0.00000,
1839      +    0.00470,   0.00053,   0.00009,   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.00413,   0.00046,   0.00007,   0.00000,   0.00000,
1843      +    0.00000,   0.00000,   0.00000,
1844      +    0.00366,   0.00041,   0.00006,   0.00000,   0.00000,
1845      +    0.00000,   0.00000,   0.00000,
1846      +    0.00327,   0.00036,   0.00005,   0.00000,   0.00000,
1847      +    0.00000,   0.00000,   0.00000,
1848      +    0.00293,   0.00032,   0.00004,   0.00000,   0.00000,
1849      +    0.00000,   0.00000,   0.00000,
1850      +    0.00265,   0.00029,   0.00003,   0.00000,   0.00000,
1851      +    0.00000,   0.00000,   0.00000,
1852      +    0.00240,   0.00026,   0.00003,   0.00000,   0.00000,
1853      +    0.00000,   0.00000,   0.00000,
1854      +    0.00218,   0.00024,   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.00200,   0.00022,   0.00002,   0.00000,   0.00000,
1858      +    0.00000,   0.00000,   0.00000,
1859      +    0.00183,   0.00020,   0.00002,   0.00000,   0.00000,
1860      +    0.00000,   0.00000,   0.00000,
1861      +    0.00169,   0.00018,   0.00002,   0.00000,   0.00000,
1862      +    0.00000,   0.00000,   0.00000,
1863      +    0.00156,   0.00017,   0.00001,   0.00000,   0.00000,
1864      +    0.00000,   0.00000,   0.00000,
1865      +    0.00145,   0.00016,   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.00099,   0.00008,   0.00002,   0.00000,   0.00000,
1869      +    0.00000,   0.00000,   0.00000,
1870      +    0.00074,   0.00006,   0.00001,   0.00000,   0.00000,
1871      +    0.00000,   0.00000,   0.00000,
1872      +    0.00058,   0.00004,   0.00001,   0.00000,   0.00000,
1873      +    0.00000,   0.00000,   0.00000,
1874      +    0.00046,   0.00004,   0.00001,   0.00000,   0.00000,
1875      +    0.00000,   0.00000,   0.00000,
1876      +    0.00037,   0.00003,   0.00000,   0.00000,   0.00000,
1877      +    0.00000,   0.00000,   0.00000,
1878      +    0.00031,   0.00002,   0.00000,   0.00000,   0.00000,
1879      +    0.00000,   0.00000,   0.00000,
1880      +    0.00026,   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.00022,   0.00002,   0.00000,   0.00000,   0.00000,
1884      +    0.00000,   0.00000,   0.00000,
1885      +    0.00019,   0.00001,   0.00000,   0.00000,   0.00000,
1886      +    0.00000,   0.00000,   0.00000,
1887      +    0.00016,   0.00001,   0.00000,   0.00000,   0.00000,
1888      +    0.00000,   0.00000,   0.00000,
1889      +    0.00014,   0.00001,   0.00000,   0.00000,   0.00000,
1890      +    0.00000,   0.00000,   0.00000,
1891      +    0.00012,   0.00001,   0.00000,   0.00000,   0.00000,
1892      +    0.00000,   0.00000,   0.00000,
1893      +    0.00011,   0.00001,   0.00000,   0.00000,   0.00000,
1894      +    0.00000,   0.00000,   0.00000,
1895      +    0.00010,   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.00009,   0.00001,   0.00000,   0.00000,   0.00000,
1899      +    0.00000,   0.00000,   0.00000,
1900      +    0.00008,   0.00001,   0.00000,   0.00000,   0.00000,
1901      +    0.00000,   0.00000,   0.00000,
1902      +    0.00007,   0.00001,   0.00000,   0.00000,   0.00000,
1903      +    0.00000,   0.00000,   0.00000,
1904      +    0.00006,   0.00001,   0.00000,   0.00000,   0.00000,
1905      +    0.00000,   0.00000,   0.00000,
1906      +    0.00006,   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,9,0,0,9,9/
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(30,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-DINT(RM)
1958       M=1+IDINT(RM)
1959       DO 60 I=1,8
1960       G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1)
1961      .    + A*(ONED-B)*F(I,N+1,M)  + A*B*F(I,N+1,M+1)
1962       IF(N.GE.NTENTH) GOTO 65
1963       IF(I.EQ.7) GOTO 65
1964           FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1)
1965           G(I)=FAC**(G(I)/FAC)
1966   65  CONTINUE
1967       G(I)=G(I)*(ONED-X)**N0(I)
1968   60  CONTINUE
1969       UPV=G(1)
1970       DNV=G(2)
1971       USEA=G(4)
1972       DSEA=G(8)
1973       STR=G(6)
1974       CHM=G(5)
1975       GLU=G(3)
1976       BOT=G(7)
1977
1978       X=XSAVE
1979
1980       RETURN
1981       END