]> git.uio.no Git - u/mrichter/AliRoot.git/blob - PDF/spdf/sfmsba.F
CLHEP version set explicitely to 1.5.0.0
[u/mrichter/AliRoot.git] / PDF / spdf / sfmsba.F
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.2  1996/10/30 08:30:14  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 SFMSBA(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU)
14 C
15 C     THIS IS THE NEW  "A" FIT -- May 1994 -- 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.00383,   0.00653,  28.15842,   2.66466,   0.26782,
24      +    0.00000,   1.41125,   2.66188,
25      +    0.00424,   0.00681,  40.95661,   3.06669,   0.72520,
26      +    0.00000,   1.84358,   3.06487,
27      +    0.00462,   0.00707,  55.69226,   3.52457,   1.23064,
28      +    0.00000,   2.32757,   3.52363,
29      +    0.00497,   0.00731,  71.98843,   4.03218,   1.77997,
30      +    0.34007,   2.85815,   4.03207,
31      +    0.00531,   0.00753,  89.79082,   4.58542,   2.37052,
32      +    0.97946,   3.43198,   4.58611,
33      +    0.00563,   0.00774, 108.92063,   5.18108,   2.99995,
34      +    1.62786,   4.04631,   5.18253,
35      +    0.00594,   0.00795, 129.17682,   5.81455,   3.66427,
36      +    2.31175,   4.69687,   5.81673 /
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.00624,   0.00814, 150.39406,   6.48174,   4.35982,
39      +    3.02502,   5.37980,   6.48462,
40      +    0.00652,   0.00833, 172.43767,   7.17909,   5.08341,
41      +    3.76499,   6.09173,   7.18264,
42      +    0.00680,   0.00851, 195.20667,   7.90361,   5.83233,
43      +    4.52908,   6.82983,   7.90783,
44      +    0.00707,   0.00868, 218.62808,   8.65304,   6.60453,
45      +    5.31542,   7.59195,   8.65788,
46      +    0.00733,   0.00885, 242.57538,   9.42471,   7.39756,
47      +    6.12166,   8.37553,   9.43016,
48      +    0.00759,   0.00901, 266.79108,  10.21366,   8.20665,
49      +    6.94318,   9.17574,  10.21972,
50      +    0.00783,   0.00917, 291.48782,  11.02185,   9.03382,
51      +    7.78204,   9.99453,  11.02848 /
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.00808,   0.00932, 316.54001,  11.84695,   9.87688,
54      +    8.63616,  10.82968,  11.85414,
55      +    0.00831,   0.00947, 341.62692,  12.68269,  10.72970,
56      +    9.49945,  11.67498,  12.69042,
57      +    0.00854,   0.00961, 367.17233,  13.53576,  11.59899,
58      +   10.37867,  12.53714,  13.54402,
59      +    0.00877,   0.00976, 392.56421,  14.39482,  12.47355,
60      +   11.26270,  13.40489,  14.40360,
61      +    0.00899,   0.00989, 418.32065,  15.26866,  13.36216,
62      +   12.16033,  14.28701,  15.27794 /
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.00579,   0.00839,  22.78315,   2.15515,   0.21426,
65      +    0.00000,   1.13797,   2.15464,
66      +    0.00636,   0.00877,  32.73079,   2.46979,   0.57339,
67      +    0.00000,   1.47669,   2.46986,
68      +    0.00689,   0.00911,  43.96273,   2.82321,   0.96497,
69      +    0.00000,   1.85080,   2.82382,
70      +    0.00738,   0.00943,  56.16534,   3.21005,   1.38526,
71      +    0.25995,   2.25582,   3.21117,
72      +    0.00785,   0.00973,  69.29437,   3.62713,   1.83220,
73      +    0.74521,   2.68916,   3.62872,
74      +    0.00830,   0.01002,  83.20822,   4.07170,   2.30378,
75      +    1.23206,   3.14846,   4.07376,
76      +    0.00872,   0.01029,  97.75517,   4.54012,   2.79684,
77      +    1.74079,   3.63033,   4.54261 /
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.00913,   0.01054, 112.81502,   5.02922,   3.30858,
80      +    2.26672,   4.13180,   5.03214,
81      +    0.00953,   0.01079, 128.29343,   5.53634,   3.83662,
82      +    2.80787,   4.65036,   5.53965,
83      +    0.00991,   0.01103, 144.12270,   6.05927,   4.37899,
84      +    3.36238,   5.18395,   6.06298,
85      +    0.01028,   0.01125, 160.25618,   6.59641,   4.93426,
86      +    3.92896,   5.73103,   6.60049,
87      +    0.01064,   0.01147, 176.60817,   7.14582,   5.50066,
88      +    4.50594,   6.28976,   7.15026,
89      +    0.01098,   0.01169, 193.00063,   7.70383,   6.07467,
90      +    5.08989,   6.85655,   7.70862,
91      +    0.01132,   0.01189, 209.59521,   8.27215,   6.65806,
92      +    5.68264,   7.43316,   8.27728 /
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.01165,   0.01209, 226.30714,   8.84913,   7.24931,
95      +    6.28271,   8.01798,   8.85459,
96      +    0.01197,   0.01229, 242.91707,   9.43015,   7.84388,
97      +    6.88566,   8.60646,   9.43594,
98      +    0.01228,   0.01247, 259.72992,  10.02044,   8.44703,
99      +    7.49675,   9.20383,  10.02654,
100      +    0.01259,   0.01266, 276.32343,  10.61163,   9.05049,
101      +    8.10778,   9.80177,  10.61803,
102      +    0.01288,   0.01284, 293.06424,  11.21039,   9.66095,
103      +    8.72545,  10.40698,  11.21708 /
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.00862,   0.01079,  18.43334,   1.74251,   0.17137,
106      +    0.00000,   0.91755,   1.74354,
107      +    0.00942,   0.01129,  26.15385,   1.98844,   0.45309,
108      +    0.00000,   1.18265,   1.98981,
109      +    0.01016,   0.01176,  34.69698,   2.26072,   0.75605,
110      +    0.00000,   1.47138,   2.26242,
111      +    0.01085,   0.01218,  43.80949,   2.55486,   1.07703,
112      +    0.19835,   1.77993,   2.55686,
113      +    0.01150,   0.01258,  53.46115,   2.86845,   1.41456,
114      +    0.56595,   2.10639,   2.87073,
115      +    0.01212,   0.01296,  63.54490,   3.19929,   1.76704,
116      +    0.93070,   2.44886,   3.20183,
117      +    0.01271,   0.01331,  73.95010,   3.54455,   2.13201,
118      +    1.30822,   2.80473,   3.54734 /
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.01327,   0.01365,  84.59291,   3.90185,   2.50741,
121      +    1.69498,   3.17178,   3.90489,
122      +    0.01381,   0.01398,  95.41053,   4.26926,   2.89153,
123      +    2.08959,   3.54820,   4.27252,
124      +    0.01434,   0.01429, 106.36025,   4.64524,   3.28302,
125      +    2.49080,   3.93254,   4.64872,
126      +    0.01484,   0.01459, 117.41489,   5.02866,   3.68091,
127      +    2.89773,   4.32378,   5.03236,
128      +    0.01533,   0.01488, 128.51851,   5.41818,   4.08396,
129      +    3.30925,   4.72060,   5.42208,
130      +    0.01580,   0.01516, 139.54984,   5.81109,   4.48961,
131      +    3.72285,   5.12040,   5.81519,
132      +    0.01626,   0.01543, 150.63226,   6.20892,   4.89945,
133      +    4.14017,   5.52471,   6.21321 /
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.01671,   0.01569, 161.71013,   6.61051,   5.31237,
136      +    4.56016,   5.93243,   6.61498,
137      +    0.01714,   0.01594, 172.63414,   7.01250,   5.72513,
138      +    4.97961,   6.34024,   7.01715,
139      +    0.01756,   0.01619, 183.62479,   7.41894,   6.14179,
140      +    5.40262,   6.75221,   7.42377,
141      +    0.01798,   0.01643, 194.39084,   7.82370,   6.55629,
142      +    5.82317,   7.16224,   7.82869,
143      +    0.01838,   0.01666, 205.19286,   8.23184,   6.97373,
144      +    6.24637,   7.57542,   8.23700 /
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.01083,   0.01250,  16.28428,   1.53846,   0.15036,
147      +    0.00000,   0.80894,   1.54017,
148      +    0.01181,   0.01310,  22.93523,   1.75120,   0.39465,
149      +    0.00000,   1.03849,   1.75318,
150      +    0.01270,   0.01365,  30.20590,   1.98472,   0.65519,
151      +    0.00000,   1.28641,   1.98694,
152      +    0.01354,   0.01415,  37.87578,   2.23498,   0.92907,
153      +    0.16916,   1.54928,   2.23742,
154      +    0.01432,   0.01462,  45.92312,   2.50000,   1.21515,
155      +    0.48132,   1.82553,   2.50264,
156      +    0.01507,   0.01506,  54.25890,   2.77786,   1.51203,
157      +    0.78902,   2.11355,   2.78069,
158      +    0.01578,   0.01549,  62.79275,   3.06616,   1.81766,
159      +    1.10565,   2.41111,   3.06918 /
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.01646,   0.01589,  71.45830,   3.36294,   2.13034,
162      +    1.42830,   2.71639,   3.36613,
163      +    0.01711,   0.01627,  80.20737,   3.66660,   2.44867,
164      +    1.75584,   3.02790,   3.66996,
165      +    0.01774,   0.01663,  89.00863,   3.97591,   2.77159,
166      +    2.08729,   3.34449,   3.97943,
167      +    0.01835,   0.01699,  97.84350,   4.29001,   3.09837,
168      +    2.42202,   3.66537,   4.29367,
169      +    0.01894,   0.01732, 106.66942,   4.60778,   3.42802,
170      +    2.75909,   3.98951,   4.61160,
171      +    0.01950,   0.01765, 115.38995,   4.92701,   3.75841,
172      +    3.09646,   4.31471,   4.93097,
173      +    0.02005,   0.01797, 124.11079,   5.24911,   4.09103,
174      +    3.43564,   4.64244,   5.25320 /
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.02058,   0.01827, 132.78889,   5.57313,   4.42499,
177      +    3.77580,   4.97179,   5.57736,
178      +    0.02110,   0.01857, 141.30566,   5.89632,   4.75760,
179      +    4.11428,   5.30002,   5.90066,
180      +    0.02161,   0.01885, 149.84323,   6.22216,   5.09238,
181      +    4.45463,   5.63065,   6.22663,
182      +    0.02210,   0.01913, 158.16785,   6.54552,   5.42427,
183      +    4.79183,   5.95859,   6.55011,
184      +    0.02258,   0.01940, 166.49304,   6.87075,   5.75763,
185      +    5.13024,   6.28818,   6.87545 /
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.01271,   0.01388,  14.91292,   1.40814,   0.13702,
188      +    0.00000,   0.73975,   1.41028,
189      +    0.01383,   0.01456,  20.89327,   1.60001,   0.35774,
190      +    0.00000,   0.94694,   1.60238,
191      +    0.01486,   0.01517,  27.37356,   1.80930,   0.59174,
192      +    0.00000,   1.16936,   1.81186,
193      +    0.01581,   0.01574,  34.15500,   2.03230,   0.83633,
194      +    0.15102,   1.40383,   2.03505,
195      +    0.01671,   0.01627,  41.22172,   2.26730,   1.09057,
196      +    0.42883,   1.64906,   2.27022,
197      +    0.01757,   0.01677,  48.49636,   2.51259,   1.35323,
198      +    0.70137,   1.90358,   2.51566,
199      +    0.01838,   0.01724,  55.90141,   2.76604,   1.62250,
200      +    0.98067,   2.16544,   2.76926 /
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.01916,   0.01769,  63.38121,   3.02593,   1.89691,
203      +    1.26417,   2.43306,   3.02930,
204      +    0.01990,   0.01812,  70.89649,   3.29090,   2.17526,
205      +    1.55092,   2.70515,   3.29440,
206      +    0.02062,   0.01853,  78.42281,   3.55990,   2.45668,
207      +    1.84011,   2.98076,   3.56353,
208      +    0.02131,   0.01892,  85.94665,   3.83222,   2.74057,
209      +    2.13124,   3.25923,   3.83597,
210      +    0.02197,   0.01930,  93.43315,   4.10692,   3.02609,
211      +    2.42353,   3.53969,   4.11078,
212      +    0.02262,   0.01967, 100.80080,   4.38205,   3.31140,
213      +    2.71520,   3.82025,   4.38603,
214      +    0.02324,   0.02002, 108.14440,   4.65896,   3.59789,
215      +    3.00767,   4.10226,   4.66305 /
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.02385,   0.02036, 115.42803,   4.93683,   3.88482,
218      +    3.30025,   4.38495,   4.94102,
219      +    0.02443,   0.02069, 122.55126,   5.21326,   4.16983,
220      +    3.59061,   4.66595,   5.21755,
221      +    0.02501,   0.02101, 129.67320,   5.49139,   4.45611,
222      +    3.88197,   4.94842,   5.49578,
223      +    0.02556,   0.02132, 136.59415,   5.76672,   4.73921,
224      +    4.16990,   5.22789,   5.77120,
225      +    0.02610,   0.02162, 143.49922,   6.04313,   5.02301,
226      +    4.45831,   5.50824,   6.04770 /
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.01437,   0.01506,  13.92903,   1.31459,   0.12748,
229      +    0.00000,   0.69017,   1.31704,
230      +    0.01561,   0.01580,  19.43438,   1.49164,   0.33147,
231      +    0.00000,   0.88149,   1.49428,
232      +    0.01676,   0.01648,  25.35865,   1.68380,   0.54669,
233      +    0.00000,   1.08587,   1.68663,
234      +    0.01782,   0.01710,  31.51905,   1.88763,   0.77066,
235      +    0.13825,   1.30038,   1.89062,
236      +    0.01882,   0.01768,  37.90410,   2.10159,   1.00258,
237      +    0.39196,   1.52386,   2.10473,
238      +    0.01977,   0.01822,  44.44489,   2.32414,   1.24132,
239      +    0.63992,   1.75499,   2.32742,
240      +    0.02067,   0.01874,  51.07295,   2.55334,   1.48527,
241      +    0.89320,   1.99201,   2.55675 /
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.02153,   0.01923,  57.74014,   2.78765,   1.73311,
244      +    1.14949,   2.23349,   2.79119,
245      +    0.02236,   0.01970,  64.41331,   3.02587,   1.98380,
246      +    1.40800,   2.47832,   3.02952,
247      +    0.02315,   0.02015,  71.07264,   3.26707,   2.23658,
248      +    1.66801,   2.72566,   3.27084,
249      +    0.02391,   0.02058,  77.70800,   3.51066,   2.49094,
250      +    1.92912,   2.97497,   3.51453,
251      +    0.02465,   0.02099,  84.28979,   3.75581,   2.74618,
252      +    2.19064,   3.22547,   3.75978,
253      +    0.02536,   0.02139,  90.74677,   4.00077,   3.00061,
254      +    2.45100,   3.47545,   4.00484,
255      +    0.02605,   0.02177,  97.16567,   4.24682,   3.25559,
256      +    2.71154,   3.72623,   4.25098 /
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.02671,   0.02214, 103.51585,   4.49325,   3.51045,
259      +    2.97165,   3.97714,   4.49750,
260      +    0.02736,   0.02250, 109.70876,   4.73789,   3.76308,
261      +    3.22926,   4.22601,   4.74222,
262      +    0.02799,   0.02285, 115.88792,   4.98364,   4.01642,
263      +    3.48733,   4.47580,   4.98807,
264      +    0.02860,   0.02319, 121.87642,   5.22645,   4.26645,
265      +    3.74185,   4.72243,   5.23095,
266      +    0.02920,   0.02352, 127.84000,   5.46984,   4.51673,
267      +    3.99642,   4.96948,   5.47442 /
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.02093,   0.01941,  11.26643,   1.06105,   0.10183,
270      +    0.00000,   0.55629,   1.06444,
271      +    0.02268,   0.02041,  15.51377,   1.19866,   0.26125,
272      +    0.00000,   0.70541,   1.20223,
273      +    0.02428,   0.02130,  19.98321,   1.34567,   0.42692,
274      +    0.00000,   0.86226,   1.34940,
275      +    0.02575,   0.02213,  24.53687,   1.49934,   0.59687,
276      +    0.10483,   1.02451,   1.50321,
277      +    0.02713,   0.02290,  29.17542,   1.65866,   0.77070,
278      +    0.29572,   1.19148,   1.66267,
279      +    0.02844,   0.02362,  33.85272,   1.82251,   0.94763,
280      +    0.48005,   1.36222,   1.82664,
281      +    0.02968,   0.02430,  38.52400,   1.98949,   1.12652,
282      +    0.66639,   1.53548,   1.99373 /
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.03086,   0.02495,  43.16029,   2.15854,   1.30648,
285      +    0.85312,   1.71027,   2.16289,
286      +    0.03199,   0.02557,  47.74363,   2.32885,   1.48686,
287      +    1.03974,   1.88589,   2.33330,
288      +    0.03307,   0.02616,  52.26545,   2.49987,   1.66720,
289      +    1.22587,   2.06181,   2.50441,
290      +    0.03411,   0.02672,  56.72363,   2.67124,   1.84726,
291      +    1.41131,   2.23775,   2.67587,
292      +    0.03511,   0.02726,  61.10136,   2.84242,   2.02656,
293      +    1.59564,   2.41321,   2.84714,
294      +    0.03607,   0.02778,  65.35197,   3.01218,   2.20396,
295      +    1.77777,   2.58699,   3.01698,
296      +    0.03700,   0.02828,  69.54204,   3.18162,   2.38058,
297      +    1.95884,   2.76022,   3.18650 /
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.03790,   0.02876,  73.65256,   3.35028,   2.55602,
300      +    2.13848,   2.93244,   3.35523,
301      +    0.03877,   0.02923,  77.62486,   3.51659,   2.72877,
302      +    2.31520,   3.10214,   3.52162,
303      +    0.03962,   0.02968,  81.56219,   3.68282,   2.90110,
304      +    2.49131,   3.27158,   3.68792,
305      +    0.04044,   0.03012,  85.34420,   3.84601,   3.07010,
306      +    2.66389,   3.43782,   3.85117,
307      +    0.04124,   0.03055,  89.08799,   4.00884,   3.23846,
308      +    2.83568,   3.60356,   4.01406 /
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.03032,   0.02511,   9.10952,   0.85512,   0.08122,
311      +    0.00000,   0.44819,   0.85959,
312      +    0.03276,   0.02644,  12.36868,   0.96155,   0.20539,
313      +    0.00000,   0.56399,   0.96625,
314      +    0.03498,   0.02763,  15.71702,   1.07334,   0.33235,
315      +    0.00000,   0.68380,   1.07825,
316      +    0.03701,   0.02873,  19.05450,   1.18838,   0.46064,
317      +    0.07908,   0.80583,   1.19348,
318      +    0.03892,   0.02974,  22.39167,   1.30611,   0.59016,
319      +    0.22192,   0.92978,   1.31137,
320      +    0.04071,   0.03070,  25.70026,   1.42573,   0.72041,
321      +    0.35811,   1.05501,   1.43115,
322      +    0.04241,   0.03160,  28.95338,   1.54627,   0.85063,
323      +    0.49428,   1.18066,   1.55184 /
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.04402,   0.03245,  32.13588,   1.66706,   0.98029,
326      +    0.62934,   1.30612,   1.67276,
327      +    0.04555,   0.03326,  35.24037,   1.78758,   1.10899,
328      +    0.76302,   1.43095,   1.79342,
329      +    0.04702,   0.03403,  38.26561,   1.90753,   1.23652,
330      +    0.89517,   1.55490,   1.91349,
331      +    0.04842,   0.03476,  41.21448,   2.02674,   1.36278,
332      +    1.02573,   1.67783,   2.03281,
333      +    0.04977,   0.03547,  44.07856,   2.14488,   1.48753,
334      +    1.15449,   1.79945,   2.15107,
335      +    0.05106,   0.03614,  46.82820,   2.26109,   1.60994,
336      +    1.28068,   1.91893,   2.26739,
337      +    0.05231,   0.03679,  49.51406,   2.37632,   1.73101,
338      +    1.40529,   2.03723,   2.38272 /
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.05352,   0.03742,  52.12506,   2.49026,   1.85046,
341      +    1.52809,   2.15407,   2.49675,
342      +    0.05469,   0.03802,  54.62273,   2.60181,   1.96723,
343      +    1.64804,   2.26838,   2.60840,
344      +    0.05582,   0.03860,  57.08110,   2.71272,   2.08310,
345      +    1.76692,   2.38190,   2.71940,
346      +    0.05691,   0.03917,  59.41876,   2.82084,   2.19594,
347      +    1.88262,   2.49251,   2.82761,
348      +    0.05798,   0.03972,  61.71810,   2.92821,   2.30782,
349      +    1.99722,   2.60225,   2.93506 /
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.03759,   0.02928,   8.04229,   0.75299,   0.07107,
352      +    0.00000,   0.39483,   0.75825,
353      +    0.04054,   0.03084,  10.82227,   0.84422,   0.17806,
354      +    0.00000,   0.49442,   0.84977,
355      +    0.04322,   0.03225,  13.63543,   0.93905,   0.28637,
356      +    0.00000,   0.59640,   0.94486,
357      +    0.04567,   0.03354,  16.40099,   1.03570,   0.39478,
358      +    0.06681,   0.69927,   1.04173,
359      +    0.04796,   0.03474,  19.13413,   1.13379,   0.50335,
360      +    0.18688,   0.80292,   1.14004,
361      +    0.05011,   0.03586,  21.81510,   1.23270,   0.61172,
362      +    0.30047,   0.90685,   1.23915,
363      +    0.05214,   0.03691,  24.42526,   1.33169,   0.71931,
364      +    0.41327,   1.01040,   1.33833 /
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.05407,   0.03791,  26.95555,   1.43024,   0.82574,
367      +    0.52443,   1.11312,   1.43705,
368      +    0.05589,   0.03885,  29.40300,   1.52799,   0.93076,
369      +    0.63382,   1.21473,   1.53497,
370      +    0.05764,   0.03975,  31.76937,   1.62473,   1.03425,
371      +    0.74134,   1.31504,   1.63187,
372      +    0.05931,   0.04061,  34.05931,   1.72038,   1.13618,
373      +    0.84703,   1.41402,   1.72766,
374      +    0.06091,   0.04143,  36.26794,   1.81471,   1.23638,
375      +    0.95075,   1.51146,   1.82213,
376      +    0.06244,   0.04221,  38.37289,   1.90703,   1.33422,
377      +    1.05189,   1.60671,   1.91459,
378      +    0.06392,   0.04297,  40.41710,   1.99819,   1.43057,
379      +    1.15135,   1.70062,   2.00588 /
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.06534,   0.04369,  42.39277,   2.08795,   1.52525,
382      +    1.24895,   1.79299,   2.09577,
383      +    0.06672,   0.04439,  44.27015,   2.17545,   1.61739,
384      +    1.34387,   1.88294,   2.18338,
385      +    0.06805,   0.04507,  46.10979,   2.26215,   1.70851,
386      +    1.43762,   1.97198,   2.27019,
387      +    0.06934,   0.04572,  47.84745,   2.34630,   1.79686,
388      +    1.52848,   2.05836,   2.35446,
389      +    0.07059,   0.04635,  49.54973,   2.42961,   1.88418,
390      +    1.61820,   2.14380,   2.43788 /
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.04376,   0.03271,   7.36026,   0.68763,   0.06460,
393      +    0.00000,   0.36076,   0.69355,
394      +    0.04714,   0.03447,   9.83669,   0.76922,   0.16068,
395      +    0.00000,   0.45006,   0.77548,
396      +    0.05019,   0.03606,  12.31420,   0.85336,   0.25723,
397      +    0.00000,   0.54081,   0.85992,
398      +    0.05299,   0.03751,  14.72451,   0.93849,   0.35318,
399      +    0.05913,   0.63171,   0.94532,
400      +    0.05559,   0.03885,  17.08565,   1.02437,   0.44870,
401      +    0.16500,   0.72272,   1.03145,
402      +    0.05803,   0.04010,  19.38313,   1.11048,   0.54352,
403      +    0.26457,   0.81347,   1.11779,
404      +    0.06033,   0.04128,  21.60332,   1.19621,   0.63717,
405      +    0.36296,   0.90341,   1.20374 /
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.06250,   0.04239,  23.74072,   1.28114,   0.72936,
408      +    0.45946,   0.99222,   1.28888,
409      +    0.06457,   0.04344,  25.79492,   1.36500,   0.81993,
410      +    0.55399,   1.07965,   1.37294,
411      +    0.06653,   0.04444,  27.76928,   1.44766,   0.90880,
412      +    0.64654,   1.16562,   1.45578,
413      +    0.06841,   0.04540,  29.66939,   1.52907,   0.99600,
414      +    0.73716,   1.25012,   1.53736,
415      +    0.07021,   0.04631,  31.49225,   1.60905,   1.08140,
416      +    0.82576,   1.33299,   1.61752,
417      +    0.07194,   0.04718,  33.21981,   1.68704,   1.16447,
418      +    0.91183,   1.41369,   1.69567,
419      +    0.07360,   0.04801,  34.89013,   1.76381,   1.24603,
420      +    0.99621,   1.49301,   1.77258 /
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.07520,   0.04881,  36.49722,   1.83917,   1.32592,
423      +    1.07877,   1.57078,   1.84809,
424      +    0.07673,   0.04959,  38.01646,   1.91237,   1.40341,
425      +    1.15878,   1.64627,   1.92143,
426      +    0.07822,   0.05033,  39.50019,   1.98473,   1.47985,
427      +    1.23761,   1.72081,   1.99393,
428      +    0.07966,   0.05105,  40.89431,   2.05473,   1.55373,
429      +    1.31377,   1.79288,   2.06406,
430      +    0.08106,   0.05175,  42.25586,   2.12388,   1.62658,
431      +    1.38879,   1.86400,   2.13334 /
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.04928,   0.03574,   6.86937,   0.64065,   0.05990,
434      +    0.00000,   0.33610,   0.64709,
435      +    0.05301,   0.03768,   9.12498,   0.71525,   0.14804,
436      +    0.00000,   0.41792,   0.72206,
437      +    0.05639,   0.03942,  11.35974,   0.79168,   0.23607,
438      +    0.00000,   0.50053,   0.79882,
439      +    0.05947,   0.04101,  13.51488,   0.86854,   0.32304,
440      +    0.05360,   0.58278,   0.87597,
441      +    0.06233,   0.04247,  15.61026,   0.94568,   0.40919,
442      +    0.14928,   0.66472,   0.95337,
443      +    0.06501,   0.04384,  17.63542,   1.02266,   0.49431,
444      +    0.23882,   0.74604,   1.03061,
445      +    0.06753,   0.04512,  19.58012,   1.09897,   0.57802,
446      +    0.32693,   0.82629,   1.10715 /
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.06992,   0.04633,  21.44131,   1.17426,   0.66010,
449      +    0.41301,   0.90520,   1.18266,
450      +    0.07218,   0.04748,  23.22055,   1.24834,   0.74043,
451      +    0.49702,   0.98261,   1.25694,
452      +    0.07433,   0.04856,  24.92199,   1.32109,   0.81899,
453      +    0.57899,   1.05846,   1.32989,
454      +    0.07638,   0.04959,  26.55169,   1.39251,   0.89583,
455      +    0.65901,   1.13278,   1.40150,
456      +    0.07834,   0.05058,  28.10815,   1.46247,   0.97085,
457      +    0.73699,   1.20543,   1.47164,
458      +    0.08022,   0.05152,  29.57612,   1.53046,   1.04359,
459      +    0.81253,   1.27596,   1.53980,
460      +    0.08202,   0.05242,  30.99007,   1.59721,   1.11482,
461      +    0.88638,   1.34510,   1.60671 /
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.08376,   0.05329,  32.34525,   1.66257,   1.18441,
464      +    0.95844,   1.41272,   1.67222,
465      +    0.08543,   0.05412,  33.62056,   1.72588,   1.25173,
466      +    1.02810,   1.47816,   1.73568,
467      +    0.08705,   0.05492,  34.86252,   1.78833,   1.31800,
468      +    1.09659,   1.54266,   1.79828,
469      +    0.08860,   0.05569,  36.02439,   1.84858,   1.38187,
470      +    1.16258,   1.60484,   1.85866,
471      +    0.09012,   0.05644,  37.15619,   1.90798,   1.44473,
472      +    1.22746,   1.66609,   1.91820 /
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.07115,   0.04744,   5.53899,   0.51305,   0.04724,
475      +    0.00000,   0.26968,   0.52174,
476      +    0.07622,   0.05002,   7.20629,   0.56895,   0.11419,
477      +    0.00000,   0.33152,   0.57813,
478      +    0.08077,   0.05232,   8.80460,   0.62496,   0.17967,
479      +    0.00000,   0.39264,   0.63459,
480      +    0.08490,   0.05440,  10.30043,   0.68015,   0.24312,
481      +    0.03913,   0.45228,   0.69018,
482      +    0.08872,   0.05631,  11.71833,   0.73460,   0.30493,
483      +    0.10827,   0.51069,   0.74499,
484      +    0.09227,   0.05809,  13.05725,   0.78808,   0.36506,
485      +    0.17194,   0.56776,   0.79881,
486      +    0.09559,   0.05974,  14.31548,   0.84032,   0.42336,
487      +    0.23372,   0.62326,   0.85136 /
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.09872,   0.06129,  15.49562,   0.89117,   0.47977,
490      +    0.29330,   0.67711,   0.90250,
491      +    0.10167,   0.06275,  16.60275,   0.94056,   0.53429,
492      +    0.35074,   0.72927,   0.95217,
493      +    0.10446,   0.06413,  17.64306,   0.98851,   0.58700,
494      +    0.40615,   0.77979,   1.00038,
495      +    0.10712,   0.06544,  18.62338,   1.03508,   0.63800,
496      +    0.45967,   0.82875,   1.04719,
497      +    0.10965,   0.06668,  19.54482,   1.08021,   0.68729,
498      +    0.51132,   0.87613,   1.09256,
499      +    0.11205,   0.06785,  20.39902,   1.12360,   0.73458,
500      +    0.56081,   0.92162,   1.13616,
501      +    0.11436,   0.06898,  21.21094,   1.16582,   0.78048,
502      +    0.60879,   0.96583,   1.17860 /
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.07006,  21.97861,   1.20680,   0.82495,
505      +    0.65521,   1.00869,   1.21978,
506      +    0.11870,   0.07109,  22.68923,   1.24611,   0.86755,
507      +    0.69967,   1.04977,   1.25927,
508      +    0.12075,   0.07208,  23.37444,   1.28462,   0.90921,
509      +    0.74308,   1.08999,   1.29798,
510      +    0.12272,   0.07303,  24.00451,   1.32141,   0.94897,
511      +    0.78453,   1.12839,   1.33494,
512      +    0.12462,   0.07395,  24.61268,   1.35746,   0.98788,
513      +    0.82503,   1.16598,   1.37117 /
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.10262,   0.06404,   4.45704,   0.40977,   0.03700,
516      +    0.00000,   0.21612,   0.42153,
517      +    0.10936,   0.06741,   5.65313,   0.45065,   0.08690,
518      +    0.00000,   0.26192,   0.46307,
519      +    0.11536,   0.07039,   6.75557,   0.49056,   0.13455,
520      +    0.00000,   0.30606,   0.50357,
521      +    0.12076,   0.07306,   7.75081,   0.52896,   0.17970,
522      +    0.02790,   0.34814,   0.54247,
523      +    0.12570,   0.07549,   8.66580,   0.56608,   0.22286,
524      +    0.07664,   0.38855,   0.58006,
525      +    0.13027,   0.07773,   9.50576,   0.60186,   0.26410,
526      +    0.12069,   0.42731,   0.61627,
527      +    0.13452,   0.07980,  10.27447,   0.63621,   0.30344,
528      +    0.16278,   0.46439,   0.65102 /
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.13849,   0.08172,  10.97758,   0.66911,   0.34091,
531      +    0.20275,   0.49978,   0.68428,
532      +    0.14221,   0.08351,  11.62169,   0.70059,   0.37661,
533      +    0.24076,   0.53357,   0.71610,
534      +    0.14572,   0.08520,  12.21352,   0.73072,   0.41067,
535      +    0.27696,   0.56585,   0.74656,
536      +    0.14903,   0.08678,  12.75969,   0.75961,   0.44322,
537      +    0.31150,   0.59674,   0.77575,
538      +    0.15217,   0.08828,  13.26261,   0.78725,   0.47430,
539      +    0.34443,   0.62626,   0.80367,
540      +    0.15514,   0.08969,  13.71802,   0.81348,   0.50376,
541      +    0.37563,   0.65425,   0.83017,
542      +    0.15798,   0.09104,  14.14334,   0.83874,   0.53207,
543      +    0.40558,   0.68118,   0.85568 /
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.16069,   0.09232,  14.53804,   0.86300,   0.55921,
546      +    0.43426,   0.70701,   0.88018,
547      +    0.16327,   0.09353,  14.89501,   0.88597,   0.58492,
548      +    0.46143,   0.73147,   0.90338,
549      +    0.16576,   0.09469,  15.23480,   0.90830,   0.60986,
550      +    0.48776,   0.75524,   0.92593,
551      +    0.16812,   0.09580,  15.53910,   0.92937,   0.63341,
552      +    0.51262,   0.77766,   0.94721,
553      +    0.17041,   0.09686,  15.82931,   0.94987,   0.65628,
554      +    0.53675,   0.79945,   0.96790 /
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.12706,   0.07692,   3.91963,   0.35886,   0.03197,
557      +   -0.00001,   0.18999,   0.37308,
558      +    0.13492,   0.08081,   4.88547,   0.39235,   0.07352,
559      +   -0.00001,   0.22792,   0.40733,
560      +    0.14187,   0.08422,   5.75208,   0.42447,   0.11258,
561      +   -0.00001,   0.26387,   0.44013,
562      +    0.14807,   0.08724,   6.51529,   0.45488,   0.14905,
563      +    0.02258,   0.29761,   0.47112,
564      +    0.15373,   0.08997,   7.20213,   0.48387,   0.18346,
565      +    0.06173,   0.32959,   0.50065,
566      +    0.15893,   0.09247,   7.82023,   0.51147,   0.21597,
567      +    0.09669,   0.35990,   0.52873,
568      +    0.16374,   0.09477,   8.37516,   0.53764,   0.24663,
569      +    0.12975,   0.38854,   0.55534 /
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.16821,   0.09689,   8.87344,   0.56244,   0.27555,
572      +    0.16084,   0.41561,   0.58054,
573      +    0.17238,   0.09886,   9.32211,   0.58591,   0.30284,
574      +    0.19013,   0.44118,   0.60440,
575      +    0.17629,   0.10069,   9.72756,   0.60816,   0.32863,
576      +    0.21778,   0.46538,   0.62700,
577      +    0.17997,   0.10241,  10.09574,   0.62929,   0.35309,
578      +    0.24396,   0.48834,   0.64846,
579      +    0.18345,   0.10403,  10.42926,   0.64935,   0.37626,
580      +    0.26874,   0.51012,   0.66883,
581      +    0.18672,   0.10554,  10.72539,   0.66819,   0.39802,
582      +    0.29201,   0.53056,   0.68795,
583      +    0.18984,   0.10698,  10.99823,   0.68619,   0.41879,
584      +    0.31421,   0.55009,   0.70623 /
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.19281,   0.10834,  11.24775,   0.70336,   0.43858,
587      +    0.33533,   0.56870,   0.72365,
588      +    0.19561,   0.10962,  11.46847,   0.71947,   0.45717,
589      +    0.35519,   0.58617,   0.74000,
590      +    0.19832,   0.11085,  11.67636,   0.73504,   0.47511,
591      +    0.37434,   0.60305,   0.75581,
592      +    0.20087,   0.11200,  11.85815,   0.74960,   0.49192,
593      +    0.39229,   0.61884,   0.77058,
594      +    0.20334,   0.11312,  12.02975,   0.76368,   0.50817,
595      +    0.40963,   0.63412,   0.78488 /
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.14782,   0.08793,   3.57509,   0.32656,   0.02878,
598      +   -0.00001,   0.17350,   0.34287,
599      +    0.15651,   0.09217,   4.39473,   0.35533,   0.06502,
600      +   -0.00001,   0.20642,   0.37248,
601      +    0.16415,   0.09587,   5.11463,   0.38254,   0.09868,
602      +   -0.00001,   0.23722,   0.40042,
603      +    0.17093,   0.09911,   5.73604,   0.40796,   0.12975,
604      +    0.01928,   0.26577,   0.42648,
605      +    0.17708,   0.10204,   6.28565,   0.43193,   0.15878,
606      +    0.05251,   0.29255,   0.45103,
607      +    0.18271,   0.10469,   6.77214,   0.45452,   0.18596,
608      +    0.08191,   0.31768,   0.47413,
609      +    0.18790,   0.10712,   7.20198,   0.47573,   0.21137,
610      +    0.10948,   0.34121,   0.49581 /
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.19269,   0.10935,   7.58193,   0.49565,   0.23514,
613      +    0.13522,   0.36326,   0.51615,
614      +    0.19715,   0.11141,   7.91886,   0.51434,   0.25741,
615      +    0.15931,   0.38394,   0.53525,
616      +    0.20131,   0.11332,   8.21884,   0.53191,   0.27831,
617      +    0.18188,   0.40335,   0.55319,
618      +    0.20522,   0.11510,   8.48738,   0.54848,   0.29799,
619      +    0.20313,   0.42165,   0.57010,
620      +    0.20890,   0.11676,   8.72705,   0.56410,   0.31653,
621      +    0.22312,   0.43888,   0.58603,
622      +    0.21235,   0.11831,   8.93594,   0.57864,   0.33382,
623      +    0.24177,   0.45493,   0.60086,
624      +    0.21562,   0.11978,   9.12589,   0.59245,   0.35023,
625      +    0.25947,   0.47019,   0.61495 /
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.21872,   0.12116,   9.29704,   0.60554,   0.36579,
628      +    0.27624,   0.48464,   0.62830,
629      +    0.22165,   0.12245,   9.44518,   0.61772,   0.38031,
630      +    0.29190,   0.49811,   0.64072,
631      +    0.22446,   0.12369,   9.58329,   0.62945,   0.39427,
632      +    0.30695,   0.51106,   0.65268,
633      +    0.22711,   0.12485,   9.70083,   0.64031,   0.40726,
634      +    0.32097,   0.52310,   0.66376,
635      +    0.22966,   0.12596,   9.81063,   0.65078,   0.41976,
636      +    0.33446,   0.53469,   0.67444 /
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.16621,   0.09771,   3.32673,   0.30346,   0.02650,
639      +    0.00000,   0.16182,   0.32167,
640      +    0.17555,   0.10221,   4.04194,   0.32881,   0.05896,
641      +    0.00000,   0.19115,   0.34793,
642      +    0.18371,   0.10610,   4.65887,   0.35251,   0.08880,
643      +   -0.00001,   0.21827,   0.37240,
644      +    0.19092,   0.10949,   5.18219,   0.37441,   0.11608,
645      +    0.01696,   0.24317,   0.39497,
646      +    0.19743,   0.11253,   5.63806,   0.39487,   0.14136,
647      +    0.04607,   0.26631,   0.41602,
648      +    0.20337,   0.11527,   6.03570,   0.41397,   0.16484,
649      +    0.07162,   0.28785,   0.43566,
650      +    0.20881,   0.11777,   6.38188,   0.43176,   0.18664,
651      +    0.09542,   0.30788,   0.45394 /
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.21382,   0.12005,   6.68365,   0.44833,   0.20690,
654      +    0.11750,   0.32650,   0.47094,
655      +    0.21847,   0.12214,   6.94738,   0.46377,   0.22576,
656      +    0.13803,   0.34383,   0.48678,
657      +    0.22279,   0.12407,   7.17876,   0.47818,   0.24335,
658      +    0.15717,   0.36001,   0.50156,
659      +    0.22684,   0.12587,   7.38304,   0.49168,   0.25984,
660      +    0.17510,   0.37517,   0.51541,
661      +    0.23063,   0.12754,   7.56283,   0.50431,   0.27527,
662      +    0.19187,   0.38935,   0.52835,
663      +    0.23418,   0.12909,   7.71659,   0.51599,   0.28958,
664      +    0.20745,   0.40248,   0.54032,
665      +    0.23753,   0.13055,   7.85442,   0.52702,   0.30312,
666      +    0.22217,   0.41490,   0.55163 /
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.24070,   0.13192,   7.97654,   0.53741,   0.31588,
669      +    0.23605,   0.42660,   0.56228,
670      +    0.24368,   0.13319,   8.07988,   0.54701,   0.32773,
671      +    0.24895,   0.43744,   0.57211,
672      +    0.24654,   0.13441,   8.17520,   0.55622,   0.33908,
673      +    0.26130,   0.44783,   0.58154,
674      +    0.24922,   0.13554,   8.25361,   0.56467,   0.34957,
675      +    0.27275,   0.45741,   0.59020,
676      +    0.25181,   0.13663,   8.32597,   0.57279,   0.35965,
677      +    0.28374,   0.46661,   0.59853 /
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.23909,   0.13644,   2.64474,   0.24060,   0.02040,
680      +    0.00000,   0.13077,   0.26678,
681      +    0.25014,   0.14133,   3.07957,   0.25651,   0.04269,
682      +   -0.00001,   0.15029,   0.28367,
683      +    0.25959,   0.14543,   3.42895,   0.27073,   0.06243,
684      +    0.00000,   0.16761,   0.29869,
685      +    0.26776,   0.14890,   3.70512,   0.28330,   0.07986,
686      +    0.01097,   0.18291,   0.31193,
687      +    0.27500,   0.15192,   3.93073,   0.29460,   0.09555,
688      +    0.02948,   0.19666,   0.32381,
689      +    0.28148,   0.15458,   4.11511,   0.30478,   0.10972,
690      +    0.04528,   0.20906,   0.33449,
691      +    0.28731,   0.15693,   4.26501,   0.31394,   0.12253,
692      +    0.05965,   0.22025,   0.34409 /
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.29259,   0.15902,   4.38661,   0.32218,   0.13414,
695      +    0.07268,   0.23036,   0.35271,
696      +    0.29741,   0.16090,   4.48505,   0.32961,   0.14471,
697      +    0.08455,   0.23952,   0.36047,
698      +    0.30181,   0.16258,   4.56467,   0.33633,   0.15435,
699      +    0.09540,   0.24785,   0.36749,
700      +    0.30587,   0.16412,   4.62914,   0.34244,   0.16319,
701      +    0.10536,   0.25547,   0.37387,
702      +    0.30962,   0.16551,   4.68024,   0.34798,   0.17131,
703      +    0.11453,   0.26242,   0.37966,
704      +    0.31306,   0.16676,   4.71772,   0.35292,   0.17867,
705      +    0.12286,   0.26869,   0.38480,
706      +    0.31628,   0.16791,   4.74756,   0.35747,   0.18551,
707      +    0.13062,   0.27448,   0.38954 /
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.31928,   0.16897,   4.77000,   0.36162,   0.19184,
710      +    0.13782,   0.27983,   0.39388,
711      +    0.32204,   0.16992,   4.78330,   0.36531,   0.19759,
712      +    0.14439,   0.28464,   0.39771,
713      +    0.32467,   0.17082,   4.79354,   0.36878,   0.20303,
714      +    0.15060,   0.28918,   0.40132,
715      +    0.32709,   0.17163,   4.79590,   0.37181,   0.20794,
716      +    0.15625,   0.29324,   0.40447,
717      +    0.32939,   0.17238,   4.79631,   0.37467,   0.21260,
718      +    0.16161,   0.29707,   0.40744 /
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.34271,   0.18927,   2.06404,   0.18589,   0.01537,
721      +   -0.00001,   0.10497,   0.22364,
722      +    0.35374,   0.19299,   2.27574,   0.19369,   0.02950,
723      +   -0.00002,   0.11625,   0.23204,
724      +    0.36280,   0.19588,   2.42600,   0.20013,   0.04142,
725      +   -0.00002,   0.12569,   0.23892,
726      +    0.37028,   0.19813,   2.52849,   0.20539,   0.05149,
727      +    0.00649,   0.13355,   0.24446,
728      +    0.37666,   0.19992,   2.60026,   0.20977,   0.06018,
729      +    0.01722,   0.14026,   0.24905,
730      +    0.38214,   0.20136,   2.64872,   0.21341,   0.06775,
731      +    0.02607,   0.14601,   0.25285,
732      +    0.38687,   0.20250,   2.67907,   0.21644,   0.07436,
733      +    0.03387,   0.15094,   0.25596 /
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.39099,   0.20342,   2.69554,   0.21892,   0.08013,
736      +    0.04075,   0.15517,   0.25850,
737      +    0.39457,   0.20414,   2.70144,   0.22096,   0.08522,
738      +    0.04683,   0.15882,   0.26055,
739      +    0.39771,   0.20470,   2.69946,   0.22263,   0.08971,
740      +    0.05224,   0.16197,   0.26220,
741      +    0.40050,   0.20513,   2.69167,   0.22399,   0.09371,
742      +    0.05710,   0.16472,   0.26353,
743      +    0.40296,   0.20546,   2.67899,   0.22507,   0.09727,
744      +    0.06145,   0.16709,   0.26457,
745      +    0.40510,   0.20566,   2.66139,   0.22587,   0.10039,
746      +    0.06532,   0.16909,   0.26529,
747      +    0.40701,   0.20580,   2.64186,   0.22649,   0.10320,
748      +    0.06883,   0.17085,   0.26584 /
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.40873,   0.20587,   2.62045,   0.22695,   0.10574,
751      +    0.07202,   0.17238,   0.26622,
752      +    0.41020,   0.20586,   2.59630,   0.22721,   0.10795,
753      +    0.07485,   0.17365,   0.26636,
754      +    0.41155,   0.20583,   2.57226,   0.22740,   0.11001,
755      +    0.07748,   0.17479,   0.26645,
756      +    0.41269,   0.20573,   2.54596,   0.22739,   0.11177,
757      +    0.07980,   0.17570,   0.26633,
758      +    0.41375,   0.20560,   2.52015,   0.22734,   0.11341,
759      +    0.08196,   0.17652,   0.26618 /
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.42019,   0.22459,   1.74940,   0.15320,   0.01264,
762      +    0.00000,   0.08988,   0.19859,
763      +    0.42908,   0.22617,   1.85509,   0.15691,   0.02280,
764      +    0.00000,   0.09697,   0.20223,
765      +    0.43594,   0.22709,   1.91718,   0.15965,   0.03105,
766      +    0.00001,   0.10258,   0.20478,
767      +    0.44121,   0.22750,   1.94774,   0.16157,   0.03778,
768      +    0.00449,   0.10696,   0.20644,
769      +    0.44540,   0.22757,   1.95939,   0.16293,   0.04342,
770      +    0.01176,   0.11050,   0.20750,
771      +    0.44875,   0.22739,   1.95773,   0.16382,   0.04817,
772      +    0.01761,   0.11336,   0.20807,
773      +    0.45139,   0.22702,   1.94648,   0.16434,   0.05220,
774      +    0.02265,   0.11565,   0.20827 /
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.45345,   0.22649,   1.92844,   0.16456,   0.05563,
777      +    0.02698,   0.11748,   0.20815,
778      +    0.45505,   0.22586,   1.90574,   0.16455,   0.05856,
779      +    0.03075,   0.11893,   0.20777,
780      +    0.45628,   0.22514,   1.88002,   0.16434,   0.06107,
781      +    0.03403,   0.12008,   0.20721,
782      +    0.45720,   0.22435,   1.85251,   0.16398,   0.06325,
783      +    0.03692,   0.12098,   0.20652,
784      +    0.45784,   0.22353,   1.82368,   0.16351,   0.06513,
785      +    0.03946,   0.12166,   0.20569,
786      +    0.45822,   0.22263,   1.79338,   0.16289,   0.06672,
787      +    0.04166,   0.12212,   0.20472,
788      +    0.45843,   0.22173,   1.76337,   0.16222,   0.06811,
789      +    0.04363,   0.12245,   0.20371 /
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.45848,   0.22081,   1.73355,   0.16150,   0.06933,
792      +    0.04538,   0.12267,   0.20263,
793      +    0.45834,   0.21985,   1.70326,   0.16069,   0.07034,
794      +    0.04690,   0.12274,   0.20148,
795      +    0.45815,   0.21891,   1.67414,   0.15987,   0.07126,
796      +    0.04830,   0.12276,   0.20034,
797      +    0.45778,   0.21793,   1.64475,   0.15897,   0.07200,
798      +    0.04948,   0.12265,   0.19910,
799      +    0.45737,   0.21697,   1.61658,   0.15808,   0.07268,
800      +    0.05058,   0.12251,   0.19789 /
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.48154,   0.24849,   1.52710,   0.12792,   0.01066,
803      +   -0.00001,   0.07792,   0.17772,
804      +    0.48710,   0.24759,   1.56946,   0.12922,   0.01833,
805      +    0.00000,   0.08238,   0.17821,
806      +    0.49084,   0.24631,   1.58186,   0.12986,   0.02437,
807      +    0.00000,   0.08568,   0.17803,
808      +    0.49316,   0.24473,   1.57417,   0.12996,   0.02914,
809      +    0.00330,   0.08806,   0.17734,
810      +    0.49456,   0.24302,   1.55566,   0.12973,   0.03304,
811      +    0.00856,   0.08981,   0.17632,
812      +    0.49525,   0.24120,   1.53020,   0.12923,   0.03623,
813      +    0.01271,   0.09109,   0.17508,
814      +    0.49539,   0.23931,   1.50033,   0.12853,   0.03886,
815      +    0.01621,   0.09198,   0.17365 /
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.49507,   0.23740,   1.46792,   0.12769,   0.04104,
818      +    0.01917,   0.09256,   0.17211,
819      +    0.49441,   0.23546,   1.43427,   0.12673,   0.04285,
820      +    0.02169,   0.09289,   0.17048,
821      +    0.49349,   0.23354,   1.40030,   0.12571,   0.04435,
822      +    0.02385,   0.09304,   0.16880,
823      +    0.49235,   0.23164,   1.36666,   0.12463,   0.04561,
824      +    0.02572,   0.09305,   0.16710,
825      +    0.49105,   0.22976,   1.33354,   0.12351,   0.04666,
826      +    0.02733,   0.09294,   0.16539,
827      +    0.48957,   0.22787,   1.30069,   0.12233,   0.04751,
828      +    0.02870,   0.09269,   0.16364,
829      +    0.48800,   0.22604,   1.26915,   0.12117,   0.04823,
830      +    0.02990,   0.09239,   0.16192 /
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.48635,   0.22425,   1.23873,   0.12001,   0.04883,
833      +    0.03094,   0.09202,   0.16022,
834      +    0.48458,   0.22247,   1.20894,   0.11882,   0.04930,
835      +    0.03184,   0.09159,   0.15850,
836      +    0.48284,   0.22074,   1.18072,   0.11766,   0.04971,
837      +    0.03265,   0.09114,   0.15685,
838      +    0.48098,   0.21901,   1.15308,   0.11647,   0.05001,
839      +    0.03332,   0.09062,   0.15519,
840      +    0.47914,   0.21735,   1.12689,   0.11533,   0.05026,
841      +    0.03393,   0.09011,   0.15359 /
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.53041,   0.26380,   1.35090,   0.10680,   0.00904,
844      +    0.00000,   0.06749,   0.15835,
845      +    0.53194,   0.26038,   1.35189,   0.10663,   0.01499,
846      +   -0.00001,   0.07019,   0.15671,
847      +    0.53201,   0.25694,   1.33372,   0.10606,   0.01953,
848      +   -0.00001,   0.07199,   0.15478,
849      +    0.53099,   0.25346,   1.30385,   0.10517,   0.02302,
850      +    0.00250,   0.07311,   0.15260,
851      +    0.52931,   0.25006,   1.26890,   0.10410,   0.02580,
852      +    0.00644,   0.07378,   0.15033,
853      +    0.52714,   0.24672,   1.23142,   0.10290,   0.02801,
854      +    0.00948,   0.07412,   0.14802,
855      +    0.52461,   0.24345,   1.19300,   0.10162,   0.02979,
856      +    0.01201,   0.07420,   0.14570 /
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.52182,   0.24028,   1.15472,   0.10028,   0.03121,
859      +    0.01412,   0.07408,   0.14340,
860      +    0.51884,   0.23720,   1.11726,   0.09892,   0.03235,
861      +    0.01588,   0.07382,   0.14112,
862      +    0.51574,   0.23424,   1.08108,   0.09755,   0.03327,
863      +    0.01736,   0.07345,   0.13887,
864      +    0.51257,   0.23138,   1.04646,   0.09619,   0.03402,
865      +    0.01862,   0.07301,   0.13668,
866      +    0.50935,   0.22860,   1.01335,   0.09484,   0.03462,
867      +    0.01968,   0.07250,   0.13455,
868      +    0.50604,   0.22588,   0.98146,   0.09349,   0.03506,
869      +    0.02058,   0.07192,   0.13247,
870      +    0.50276,   0.22328,   0.95137,   0.09217,   0.03542,
871      +    0.02136,   0.07133,   0.13047 /
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.49950,   0.22077,   0.92285,   0.09090,   0.03570,
874      +    0.02203,   0.07072,   0.12851,
875      +    0.49619,   0.21831,   0.89548,   0.08963,   0.03589,
876      +    0.02256,   0.07007,   0.12660,
877      +    0.49299,   0.21595,   0.86981,   0.08841,   0.03604,
878      +    0.02304,   0.06943,   0.12476,
879      +    0.48972,   0.21364,   0.84513,   0.08720,   0.03612,
880      +    0.02342,   0.06875,   0.12296,
881      +    0.48656,   0.21143,   0.82193,   0.08603,   0.03617,
882      +    0.02377,   0.06809,   0.12124 /
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.57673,   0.27349,   1.16857,   0.08458,   0.00737,
885      +   -0.00001,   0.05594,   0.13551,
886      +    0.57268,   0.26716,   1.13617,   0.08346,   0.01176,
887      +   -0.00001,   0.05721,   0.13219,
888      +    0.56783,   0.26121,   1.09503,   0.08212,   0.01502,
889      +   -0.00001,   0.05783,   0.12895,
890      +    0.56241,   0.25562,   1.04985,   0.08064,   0.01743,
891      +    0.00180,   0.05800,   0.12574,
892      +    0.55678,   0.25034,   1.00464,   0.07910,   0.01930,
893      +    0.00462,   0.05788,   0.12268,
894      +    0.55101,   0.24536,   0.96062,   0.07756,   0.02074,
895      +    0.00676,   0.05757,   0.11968,
896      +    0.54518,   0.24065,   0.91844,   0.07601,   0.02184,
897      +    0.00851,   0.05711,   0.11683 /
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.53936,   0.23617,   0.87847,   0.07449,   0.02268,
900      +    0.00992,   0.05656,   0.11411,
901      +    0.53357,   0.23192,   0.84086,   0.07300,   0.02334,
902      +    0.01107,   0.05593,   0.11150,
903      +    0.52788,   0.22789,   0.80565,   0.07155,   0.02384,
904      +    0.01204,   0.05526,   0.10900,
905      +    0.52233,   0.22404,   0.77279,   0.07014,   0.02422,
906      +    0.01285,   0.05456,   0.10664,
907      +    0.51688,   0.22038,   0.74210,   0.06878,   0.02449,
908      +    0.01352,   0.05385,   0.10438,
909      +    0.51149,   0.21686,   0.71321,   0.06744,   0.02468,
910      +    0.01405,   0.05312,   0.10221,
911      +    0.50626,   0.21351,   0.68636,   0.06618,   0.02480,
912      +    0.01450,   0.05239,   0.10014 /
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.50117,   0.21033,   0.66128,   0.06498,   0.02486,
915      +    0.01489,   0.05168,   0.09815,
916      +    0.49616,   0.20723,   0.63763,   0.06378,   0.02488,
917      +    0.01520,   0.05096,   0.09625,
918      +    0.49135,   0.20429,   0.61566,   0.06264,   0.02488,
919      +    0.01546,   0.05026,   0.09444,
920      +    0.48655,   0.20146,   0.59484,   0.06154,   0.02483,
921      +    0.01567,   0.04956,   0.09267,
922      +    0.48195,   0.19875,   0.57544,   0.06049,   0.02477,
923      +    0.01584,   0.04888,   0.09100 /
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.60864,   0.27503,   1.01392,   0.06628,   0.00596,
926      +   -0.00003,   0.04583,   0.11422,
927      +    0.59882,   0.26609,   0.96111,   0.06473,   0.00927,
928      +   -0.00003,   0.04623,   0.11005,
929      +    0.58901,   0.25802,   0.90733,   0.06310,   0.01165,
930      +   -0.00002,   0.04618,   0.10619,
931      +    0.57929,   0.25061,   0.85494,   0.06143,   0.01336,
932      +    0.00132,   0.04583,   0.10257,
933      +    0.56983,   0.24381,   0.80589,   0.05979,   0.01462,
934      +    0.00340,   0.04532,   0.09921,
935      +    0.56061,   0.23750,   0.76041,   0.05821,   0.01556,
936      +    0.00494,   0.04470,   0.09604,
937      +    0.55171,   0.23163,   0.71846,   0.05667,   0.01626,
938      +    0.00617,   0.04401,   0.09308 /
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.54308,   0.22616,   0.67991,   0.05520,   0.01677,
941      +    0.00716,   0.04327,   0.09030,
942      +    0.53477,   0.22102,   0.64453,   0.05379,   0.01714,
943      +    0.00794,   0.04251,   0.08768,
944      +    0.52677,   0.21618,   0.61211,   0.05244,   0.01740,
945      +    0.00858,   0.04175,   0.08523,
946      +    0.51908,   0.21164,   0.58240,   0.05115,   0.01757,
947      +    0.00911,   0.04099,   0.08293,
948      +    0.51165,   0.20736,   0.55506,   0.04993,   0.01768,
949      +    0.00954,   0.04025,   0.08076,
950      +    0.50447,   0.20327,   0.52976,   0.04874,   0.01773,
951      +    0.00987,   0.03951,   0.07869,
952      +    0.49759,   0.19941,   0.50653,   0.04762,   0.01774,
953      +    0.01015,   0.03879,   0.07674 /
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.49096,   0.19576,   0.48508,   0.04655,   0.01771,
956      +    0.01038,   0.03808,   0.07491,
957      +    0.48449,   0.19225,   0.46511,   0.04552,   0.01764,
958      +    0.01054,   0.03739,   0.07316,
959      +    0.47833,   0.18894,   0.44670,   0.04455,   0.01757,
960      +    0.01068,   0.03673,   0.07151,
961      +    0.47230,   0.18575,   0.42945,   0.04361,   0.01747,
962      +    0.01079,   0.03608,   0.06992,
963      +    0.46653,   0.18272,   0.41348,   0.04272,   0.01736,
964      +    0.01088,   0.03545,   0.06842 /
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.62786,   0.27019,   0.87934,   0.05126,   0.00479,
967      +   -0.00001,   0.03709,   0.09488,
968      +    0.61237,   0.25914,   0.81474,   0.04965,   0.00728,
969      +   -0.00001,   0.03695,   0.09039,
970      +    0.59778,   0.24939,   0.75488,   0.04804,   0.00901,
971      +   -0.00001,   0.03653,   0.08638,
972      +    0.58398,   0.24060,   0.70015,   0.04645,   0.01022,
973      +    0.00099,   0.03593,   0.08271,
974      +    0.57096,   0.23266,   0.65100,   0.04493,   0.01108,
975      +    0.00251,   0.03523,   0.07936,
976      +    0.55866,   0.22537,   0.60687,   0.04347,   0.01171,
977      +    0.00361,   0.03449,   0.07628,
978      +    0.54699,   0.21868,   0.56723,   0.04208,   0.01214,
979      +    0.00449,   0.03372,   0.07345 /
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.53591,   0.21248,   0.53158,   0.04078,   0.01244,
982      +    0.00518,   0.03294,   0.07083,
983      +    0.52541,   0.20671,   0.49950,   0.03953,   0.01263,
984      +    0.00571,   0.03218,   0.06841,
985      +    0.51542,   0.20136,   0.47056,   0.03835,   0.01275,
986      +    0.00614,   0.03143,   0.06616,
987      +    0.50592,   0.19638,   0.44440,   0.03726,   0.01282,
988      +    0.00649,   0.03070,   0.06404,
989      +    0.49689,   0.19169,   0.42069,   0.03623,   0.01285,
990      +    0.00677,   0.02999,   0.06206,
991      +    0.48821,   0.18725,   0.39898,   0.03522,   0.01281,
992      +    0.00697,   0.02931,   0.06023,
993      +    0.47996,   0.18310,   0.37923,   0.03428,   0.01276,
994      +    0.00714,   0.02866,   0.05850 /
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.47207,   0.17918,   0.36118,   0.03340,   0.01270,
997      +    0.00728,   0.02803,   0.05687,
998      +    0.46449,   0.17544,   0.34454,   0.03255,   0.01260,
999      +    0.00737,   0.02742,   0.05534,
1000      +    0.45730,   0.17190,   0.32930,   0.03174,   0.01250,
1001      +    0.00744,   0.02684,   0.05390,
1002      +    0.45030,   0.16853,   0.31518,   0.03098,   0.01239,
1003      +    0.00748,   0.02627,   0.05254,
1004      +    0.44364,   0.16534,   0.30216,   0.03025,   0.01228,
1005      +    0.00752,   0.02572,   0.05124 /
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.63571,   0.26057,   0.76061,   0.03916,   0.00380,
1008      +   -0.00002,   0.02961,   0.07759,
1009      +    0.61492,   0.24785,   0.69015,   0.03764,   0.00570,
1010      +   -0.00002,   0.02921,   0.07320,
1011      +    0.59599,   0.23680,   0.62849,   0.03617,   0.00697,
1012      +   -0.00003,   0.02862,   0.06932,
1013      +    0.57852,   0.22701,   0.57445,   0.03476,   0.00784,
1014      +    0.00073,   0.02792,   0.06585,
1015      +    0.56240,   0.21822,   0.52734,   0.03341,   0.00842,
1016      +    0.00187,   0.02718,   0.06277,
1017      +    0.54738,   0.21029,   0.48607,   0.03215,   0.00884,
1018      +    0.00268,   0.02643,   0.05995,
1019      +    0.53336,   0.20304,   0.44979,   0.03096,   0.00911,
1020      +    0.00332,   0.02569,   0.05738 /
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.52023,   0.19641,   0.41774,   0.02986,   0.00927,
1023      +    0.00380,   0.02497,   0.05502,
1024      +    0.50790,   0.19028,   0.38931,   0.02883,   0.00937,
1025      +    0.00417,   0.02426,   0.05285,
1026      +    0.49631,   0.18461,   0.36400,   0.02785,   0.00941,
1027      +    0.00446,   0.02358,   0.05087,
1028      +    0.48539,   0.17936,   0.34139,   0.02694,   0.00940,
1029      +    0.00469,   0.02293,   0.04904,
1030      +    0.47508,   0.17446,   0.32109,   0.02608,   0.00938,
1031      +    0.00487,   0.02231,   0.04735,
1032      +    0.46525,   0.16987,   0.30275,   0.02527,   0.00932,
1033      +    0.00500,   0.02172,   0.04574,
1034      +    0.45596,   0.16558,   0.28620,   0.02451,   0.00925,
1035      +    0.00510,   0.02115,   0.04426 /
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.44716,   0.16154,   0.27120,   0.02380,   0.00917,
1038      +    0.00517,   0.02060,   0.04289,
1039      +    0.43870,   0.15773,   0.25747,   0.02313,   0.00908,
1040      +    0.00523,   0.02009,   0.04157,
1041      +    0.43072,   0.15415,   0.24498,   0.02251,   0.00899,
1042      +    0.00527,   0.01961,   0.04034,
1043      +    0.42305,   0.15072,   0.23347,   0.02188,   0.00887,
1044      +    0.00528,   0.01913,   0.03922,
1045      +    0.41577,   0.14748,   0.22293,   0.02130,   0.00876,
1046      +    0.00528,   0.01868,   0.03816 /
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.63353,   0.24733,   0.65531,   0.02949,   0.00299,
1049      +   -0.00002,   0.02335,   0.06253,
1050      +    0.60799,   0.23340,   0.58311,   0.02817,   0.00444,
1051      +   -0.00001,   0.02283,   0.05845,
1052      +    0.58526,   0.22144,   0.52246,   0.02688,   0.00539,
1053      +   -0.00002,   0.02219,   0.05492,
1054      +    0.56463,   0.21101,   0.47102,   0.02570,   0.00601,
1055      +    0.00056,   0.02149,   0.05179,
1056      +    0.54586,   0.20174,   0.42728,   0.02458,   0.00641,
1057      +    0.00142,   0.02080,   0.04902,
1058      +    0.52859,   0.19343,   0.38971,   0.02355,   0.00667,
1059      +    0.00201,   0.02011,   0.04653,
1060      +    0.51268,   0.18589,   0.35721,   0.02258,   0.00683,
1061      +    0.00246,   0.01944,   0.04429 /
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.49791,   0.17904,   0.32891,   0.02166,   0.00693,
1064      +    0.00280,   0.01878,   0.04228,
1065      +    0.48417,   0.17275,   0.30416,   0.02082,   0.00696,
1066      +    0.00307,   0.01817,   0.04043,
1067      +    0.47137,   0.16696,   0.28238,   0.02003,   0.00696,
1068      +    0.00326,   0.01759,   0.03873,
1069      +    0.45939,   0.16163,   0.26312,   0.01931,   0.00694,
1070      +    0.00341,   0.01703,   0.03717,
1071      +    0.44809,   0.15673,   0.24601,   0.01864,   0.00689,
1072      +    0.00353,   0.01652,   0.03571,
1073      +    0.43745,   0.15212,   0.23069,   0.01799,   0.00681,
1074      +    0.00361,   0.01601,   0.03441,
1075      +    0.42745,   0.14781,   0.21697,   0.01739,   0.00673,
1076      +    0.00367,   0.01554,   0.03319 /
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.41802,   0.14379,   0.20461,   0.01684,   0.00665,
1079      +    0.00372,   0.01509,   0.03205,
1080      +    0.40900,   0.14001,   0.19339,   0.01631,   0.00656,
1081      +    0.00374,   0.01466,   0.03098,
1082      +    0.40052,   0.13648,   0.18323,   0.01582,   0.00647,
1083      +    0.00376,   0.01426,   0.02999,
1084      +    0.39238,   0.13312,   0.17395,   0.01536,   0.00638,
1085      +    0.00377,   0.01388,   0.02906,
1086      +    0.38469,   0.12996,   0.16548,   0.01492,   0.00628,
1087      +    0.00377,   0.01352,   0.02819 /
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.62259,   0.23148,   0.56179,   0.02188,   0.00236,
1090      +    0.00002,   0.01819,   0.04966,
1091      +    0.59295,   0.21682,   0.49090,   0.02080,   0.00345,
1092      +    0.00002,   0.01762,   0.04601,
1093      +    0.56695,   0.20441,   0.43319,   0.01979,   0.00413,
1094      +    0.00003,   0.01699,   0.04291,
1095      +    0.54376,   0.19365,   0.38555,   0.01882,   0.00455,
1096      +    0.00046,   0.01637,   0.04019,
1097      +    0.52290,   0.18418,   0.34581,   0.01793,   0.00483,
1098      +    0.00106,   0.01575,   0.03780,
1099      +    0.50390,   0.17575,   0.31224,   0.01711,   0.00500,
1100      +    0.00150,   0.01512,   0.03569,
1101      +    0.48655,   0.16816,   0.28363,   0.01632,   0.00509,
1102      +    0.00181,   0.01454,   0.03380 /
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.47059,   0.16127,   0.25905,   0.01560,   0.00512,
1105      +    0.00206,   0.01399,   0.03211,
1106      +    0.45583,   0.15503,   0.23781,   0.01494,   0.00512,
1107      +    0.00224,   0.01348,   0.03056,
1108      +    0.44214,   0.14932,   0.21931,   0.01434,   0.00510,
1109      +    0.00237,   0.01299,   0.02915,
1110      +    0.42941,   0.14408,   0.20310,   0.01378,   0.00507,
1111      +    0.00247,   0.01253,   0.02787,
1112      +    0.41754,   0.13924,   0.18885,   0.01326,   0.00502,
1113      +    0.00255,   0.01210,   0.02670,
1114      +    0.40638,   0.13472,   0.17617,   0.01276,   0.00495,
1115      +    0.00259,   0.01169,   0.02563,
1116      +    0.39593,   0.13055,   0.16489,   0.01231,   0.00487,
1117      +    0.00262,   0.01131,   0.02463 /
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.38609,   0.12666,   0.15481,   0.01190,   0.00480,
1120      +    0.00265,   0.01096,   0.02369,
1121      +    0.37681,   0.12300,   0.14571,   0.01148,   0.00472,
1122      +    0.00265,   0.01061,   0.02284,
1123      +    0.36809,   0.11958,   0.13751,   0.01110,   0.00464,
1124      +    0.00266,   0.01029,   0.02206,
1125      +    0.35975,   0.11638,   0.13007,   0.01074,   0.00456,
1126      +    0.00266,   0.00998,   0.02130,
1127      +    0.35189,   0.11337,   0.12331,   0.01042,   0.00448,
1128      +    0.00265,   0.00970,   0.02060 /
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.60398,   0.21422,   0.47915,   0.01623,   0.00169,
1131      +   -0.00014,   0.01382,   0.03885,
1132      +    0.57099,   0.19920,   0.41142,   0.01535,   0.00253,
1133      +   -0.00013,   0.01334,   0.03569,
1134      +    0.54250,   0.18657,   0.35785,   0.01449,   0.00304,
1135      +   -0.00012,   0.01280,   0.03307,
1136      +    0.51735,   0.17574,   0.31456,   0.01373,   0.00337,
1137      +    0.00021,   0.01225,   0.03077,
1138      +    0.49494,   0.16629,   0.27910,   0.01301,   0.00357,
1139      +    0.00069,   0.01171,   0.02879,
1140      +    0.47473,   0.15792,   0.24960,   0.01237,   0.00368,
1141      +    0.00102,   0.01122,   0.02701,
1142      +    0.45639,   0.15045,   0.22480,   0.01176,   0.00373,
1143      +    0.00127,   0.01075,   0.02546 /
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.43964,   0.14373,   0.20377,   0.01119,   0.00374,
1146      +    0.00143,   0.01029,   0.02409,
1147      +    0.42426,   0.13764,   0.18575,   0.01068,   0.00374,
1148      +    0.00158,   0.00987,   0.02285,
1149      +    0.41009,   0.13211,   0.17022,   0.01021,   0.00371,
1150      +    0.00168,   0.00948,   0.02170,
1151      +    0.39698,   0.12706,   0.15674,   0.00977,   0.00367,
1152      +    0.00174,   0.00912,   0.02066,
1153      +    0.38479,   0.12239,   0.14494,   0.00939,   0.00363,
1154      +    0.00179,   0.00877,   0.01973,
1155      +    0.37341,   0.11808,   0.13454,   0.00901,   0.00356,
1156      +    0.00183,   0.00845,   0.01886,
1157      +    0.36281,   0.11411,   0.12534,   0.00866,   0.00350,
1158      +    0.00185,   0.00815,   0.01806 /
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.35289,   0.11042,   0.11716,   0.00833,   0.00343,
1161      +    0.00186,   0.00787,   0.01734,
1162      +    0.34351,   0.10696,   0.10984,   0.00803,   0.00337,
1163      +    0.00186,   0.00760,   0.01666,
1164      +    0.33474,   0.10374,   0.10327,   0.00774,   0.00331,
1165      +    0.00186,   0.00736,   0.01605,
1166      +    0.32640,   0.10072,   0.09735,   0.00747,   0.00324,
1167      +    0.00185,   0.00712,   0.01546,
1168      +    0.31854,   0.09789,   0.09200,   0.00723,   0.00318,
1169      +    0.00185,   0.00690,   0.01492 /
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.57919,   0.19555,   0.40568,   0.01166,   0.00134,
1172      +   -0.00002,   0.01052,   0.02990,
1173      +    0.54360,   0.18057,   0.34266,   0.01099,   0.00196,
1174      +   -0.00003,   0.01007,   0.02729,
1175      +    0.51323,   0.16808,   0.29389,   0.01036,   0.00234,
1176      +   -0.00003,   0.00960,   0.02508,
1177      +    0.48668,   0.15748,   0.25527,   0.00977,   0.00255,
1178      +    0.00021,   0.00913,   0.02324,
1179      +    0.46327,   0.14828,   0.22417,   0.00922,   0.00267,
1180      +    0.00055,   0.00870,   0.02161,
1181      +    0.44231,   0.14017,   0.19863,   0.00873,   0.00273,
1182      +    0.00078,   0.00828,   0.02021,
1183      +    0.42339,   0.13300,   0.17743,   0.00828,   0.00276,
1184      +    0.00095,   0.00789,   0.01895 /
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.40622,   0.12657,   0.15963,   0.00788,   0.00277,
1187      +    0.00108,   0.00753,   0.01781,
1188      +    0.39055,   0.12079,   0.14454,   0.00750,   0.00275,
1189      +    0.00117,   0.00719,   0.01681,
1190      +    0.37620,   0.11554,   0.13166,   0.00715,   0.00272,
1191      +    0.00123,   0.00688,   0.01592,
1192      +    0.36300,   0.11075,   0.12056,   0.00682,   0.00268,
1193      +    0.00127,   0.00659,   0.01512,
1194      +    0.35080,   0.10637,   0.11090,   0.00651,   0.00262,
1195      +    0.00130,   0.00632,   0.01440,
1196      +    0.33944,   0.10234,   0.10245,   0.00624,   0.00257,
1197      +    0.00132,   0.00607,   0.01372,
1198      +    0.32888,   0.09864,   0.09503,   0.00599,   0.00252,
1199      +    0.00133,   0.00584,   0.01309 /
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.31903,   0.09521,   0.08848,   0.00575,   0.00246,
1202      +    0.00133,   0.00562,   0.01253,
1203      +    0.30975,   0.09199,   0.08264,   0.00555,   0.00241,
1204      +    0.00133,   0.00541,   0.01201,
1205      +    0.30110,   0.08901,   0.07742,   0.00537,   0.00236,
1206      +    0.00133,   0.00522,   0.01154,
1207      +    0.29293,   0.08622,   0.07275,   0.00517,   0.00230,
1208      +    0.00132,   0.00504,   0.01109,
1209      +    0.28528,   0.08362,   0.06854,   0.00498,   0.00225,
1210      +    0.00131,   0.00488,   0.01067 /
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.54919,   0.17662,   0.34122,   0.00829,   0.00100,
1213      +   -0.00004,   0.00784,   0.02270,
1214      +    0.51179,   0.16196,   0.28359,   0.00782,   0.00147,
1215      +   -0.00003,   0.00746,   0.02055,
1216      +    0.48021,   0.14985,   0.24004,   0.00734,   0.00173,
1217      +   -0.00004,   0.00708,   0.01880,
1218      +    0.45291,   0.13964,   0.20611,   0.00689,   0.00189,
1219      +    0.00014,   0.00670,   0.01730,
1220      +    0.42896,   0.13085,   0.17915,   0.00649,   0.00198,
1221      +    0.00040,   0.00635,   0.01600,
1222      +    0.40769,   0.12316,   0.15733,   0.00613,   0.00202,
1223      +    0.00058,   0.00602,   0.01488,
1224      +    0.38863,   0.11637,   0.13943,   0.00580,   0.00202,
1225      +    0.00070,   0.00570,   0.01391 /
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.37145,   0.11032,   0.12454,   0.00547,   0.00201,
1228      +    0.00078,   0.00543,   0.01304,
1229      +    0.35584,   0.10490,   0.11204,   0.00519,   0.00198,
1230      +    0.00083,   0.00517,   0.01226,
1231      +    0.34160,   0.10001,   0.10145,   0.00495,   0.00195,
1232      +    0.00087,   0.00493,   0.01155,
1233      +    0.32857,   0.09558,   0.09239,   0.00473,   0.00192,
1234      +    0.00091,   0.00471,   0.01091,
1235      +    0.31656,   0.09153,   0.08456,   0.00451,   0.00188,
1236      +    0.00093,   0.00451,   0.01036,
1237      +    0.30543,   0.08782,   0.07777,   0.00431,   0.00184,
1238      +    0.00094,   0.00431,   0.00985,
1239      +    0.29514,   0.08440,   0.07184,   0.00413,   0.00179,
1240      +    0.00095,   0.00413,   0.00938 /
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.28557,   0.08125,   0.06662,   0.00396,   0.00175,
1243      +    0.00095,   0.00397,   0.00897,
1244      +    0.27662,   0.07832,   0.06200,   0.00378,   0.00171,
1245      +    0.00094,   0.00381,   0.00858,
1246      +    0.26829,   0.07561,   0.05789,   0.00363,   0.00167,
1247      +    0.00093,   0.00367,   0.00821,
1248      +    0.26039,   0.07308,   0.05424,   0.00350,   0.00163,
1249      +    0.00092,   0.00354,   0.00787,
1250      +    0.25302,   0.07073,   0.05095,   0.00339,   0.00159,
1251      +    0.00091,   0.00342,   0.00755 /
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.51514,   0.15768,   0.28475,   0.00577,   0.00076,
1254      +    0.00000,   0.00578,   0.01695,
1255      +    0.47674,   0.14362,   0.23299,   0.00541,   0.00109,
1256      +    0.00000,   0.00547,   0.01527,
1257      +    0.44456,   0.13212,   0.19461,   0.00510,   0.00130,
1258      +    0.00000,   0.00517,   0.01384,
1259      +    0.41700,   0.12248,   0.16529,   0.00479,   0.00140,
1260      +    0.00013,   0.00487,   0.01267,
1261      +    0.39304,   0.11420,   0.14226,   0.00449,   0.00146,
1262      +    0.00032,   0.00458,   0.01168,
1263      +    0.37184,   0.10705,   0.12386,   0.00425,   0.00147,
1264      +    0.00043,   0.00433,   0.01079,
1265      +    0.35302,   0.10073,   0.10893,   0.00399,   0.00147,
1266      +    0.00051,   0.00409,   0.01004 /
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.33610,   0.09514,   0.09660,   0.00379,   0.00146,
1269      +    0.00058,   0.00388,   0.00937,
1270      +    0.32086,   0.09015,   0.08636,   0.00358,   0.00143,
1271      +    0.00062,   0.00368,   0.00878,
1272      +    0.30700,   0.08566,   0.07775,   0.00339,   0.00140,
1273      +    0.00064,   0.00349,   0.00825,
1274      +    0.29435,   0.08162,   0.07042,   0.00323,   0.00138,
1275      +    0.00066,   0.00333,   0.00778,
1276      +    0.28276,   0.07793,   0.06417,   0.00306,   0.00134,
1277      +    0.00067,   0.00317,   0.00737,
1278      +    0.27204,   0.07456,   0.05875,   0.00293,   0.00131,
1279      +    0.00067,   0.00303,   0.00698,
1280      +    0.26216,   0.07148,   0.05404,   0.00281,   0.00128,
1281      +    0.00067,   0.00289,   0.00663 /
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.25303,   0.06864,   0.04993,   0.00268,   0.00124,
1284      +    0.00068,   0.00276,   0.00632,
1285      +    0.24449,   0.06600,   0.04631,   0.00257,   0.00121,
1286      +    0.00067,   0.00266,   0.00603,
1287      +    0.23657,   0.06357,   0.04311,   0.00247,   0.00118,
1288      +    0.00067,   0.00256,   0.00575,
1289      +    0.22912,   0.06131,   0.04025,   0.00237,   0.00114,
1290      +    0.00065,   0.00245,   0.00550,
1291      +    0.22217,   0.05921,   0.03770,   0.00228,   0.00111,
1292      +    0.00064,   0.00236,   0.00527 /
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.47803,   0.13922,   0.23556,   0.00390,   0.00060,
1295      +    0.00004,   0.00422,   0.01243,
1296      +    0.43933,   0.12596,   0.18990,   0.00368,   0.00084,
1297      +    0.00005,   0.00397,   0.01113,
1298      +    0.40722,   0.11520,   0.15658,   0.00345,   0.00097,
1299      +    0.00004,   0.00373,   0.01005,
1300      +    0.37997,   0.10622,   0.13151,   0.00322,   0.00105,
1301      +    0.00013,   0.00350,   0.00915,
1302      +    0.35637,   0.09859,   0.11214,   0.00303,   0.00108,
1303      +    0.00026,   0.00329,   0.00839,
1304      +    0.33571,   0.09201,   0.09679,   0.00286,   0.00109,
1305      +    0.00034,   0.00309,   0.00770,
1306      +    0.31740,   0.08624,   0.08445,   0.00268,   0.00107,
1307      +    0.00040,   0.00291,   0.00715 /
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.30106,   0.08115,   0.07441,   0.00251,   0.00105,
1310      +    0.00043,   0.00274,   0.00667,
1311      +    0.28636,   0.07663,   0.06611,   0.00238,   0.00104,
1312      +    0.00046,   0.00259,   0.00622,
1313      +    0.27306,   0.07258,   0.05918,   0.00227,   0.00101,
1314      +    0.00048,   0.00245,   0.00582,
1315      +    0.26098,   0.06894,   0.05334,   0.00217,   0.00098,
1316      +    0.00049,   0.00233,   0.00547,
1317      +    0.24998,   0.06563,   0.04835,   0.00203,   0.00096,
1318      +    0.00049,   0.00221,   0.00517,
1319      +    0.23985,   0.06262,   0.04409,   0.00194,   0.00092,
1320      +    0.00049,   0.00211,   0.00488,
1321      +    0.23054,   0.05988,   0.04041,   0.00186,   0.00090,
1322      +    0.00048,   0.00201,   0.00462 /
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.22194,   0.05737,   0.03720,   0.00178,   0.00088,
1325      +    0.00048,   0.00192,   0.00438,
1326      +    0.21393,   0.05505,   0.03438,   0.00170,   0.00085,
1327      +    0.00047,   0.00184,   0.00416,
1328      +    0.20651,   0.05291,   0.03190,   0.00164,   0.00083,
1329      +    0.00046,   0.00176,   0.00396,
1330      +    0.19958,   0.05090,   0.02970,   0.00157,   0.00080,
1331      +    0.00046,   0.00169,   0.00378,
1332      +    0.19313,   0.04905,   0.02775,   0.00150,   0.00078,
1333      +    0.00046,   0.00162,   0.00361 /
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.43891,   0.12168,   0.19331,   0.00267,   0.00040,
1336      +    0.00001,   0.00298,   0.00902,
1337      +    0.40065,   0.10937,   0.15350,   0.00250,   0.00058,
1338      +    0.00000,   0.00280,   0.00797,
1339      +    0.36916,   0.09945,   0.12501,   0.00234,   0.00069,
1340      +    0.00001,   0.00262,   0.00717,
1341      +    0.34256,   0.09123,   0.10386,   0.00221,   0.00074,
1342      +    0.00008,   0.00246,   0.00650,
1343      +    0.31978,   0.08429,   0.08771,   0.00207,   0.00076,
1344      +    0.00017,   0.00230,   0.00590,
1345      +    0.29991,   0.07830,   0.07507,   0.00195,   0.00076,
1346      +    0.00023,   0.00215,   0.00542,
1347      +    0.28244,   0.07309,   0.06503,   0.00181,   0.00076,
1348      +    0.00027,   0.00202,   0.00500 /
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.26685,   0.06852,   0.05691,   0.00171,   0.00075,
1351      +    0.00030,   0.00189,   0.00464,
1352      +    0.25296,   0.06448,   0.05027,   0.00161,   0.00072,
1353      +    0.00032,   0.00179,   0.00432,
1354      +    0.24044,   0.06090,   0.04476,   0.00153,   0.00071,
1355      +    0.00033,   0.00169,   0.00402,
1356      +    0.22909,   0.05767,   0.04014,   0.00146,   0.00069,
1357      +    0.00033,   0.00159,   0.00376,
1358      +    0.21876,   0.05474,   0.03623,   0.00139,   0.00065,
1359      +    0.00032,   0.00152,   0.00354,
1360      +    0.20932,   0.05210,   0.03290,   0.00132,   0.00064,
1361      +    0.00033,   0.00144,   0.00333,
1362      +    0.20067,   0.04968,   0.03003,   0.00125,   0.00062,
1363      +    0.00033,   0.00137,   0.00315 /
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.19271,   0.04747,   0.02754,   0.00118,   0.00060,
1366      +    0.00033,   0.00129,   0.00300,
1367      +    0.18533,   0.04545,   0.02537,   0.00112,   0.00058,
1368      +    0.00032,   0.00124,   0.00284,
1369      +    0.17851,   0.04358,   0.02347,   0.00107,   0.00056,
1370      +    0.00032,   0.00119,   0.00269,
1371      +    0.17215,   0.04183,   0.02179,   0.00103,   0.00055,
1372      +    0.00032,   0.00114,   0.00257,
1373      +    0.16623,   0.04022,   0.02030,   0.00099,   0.00054,
1374      +    0.00032,   0.00110,   0.00245 /
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.39872,   0.10510,   0.15704,   0.00175,   0.00030,
1377      +    0.00003,   0.00210,   0.00636,
1378      +    0.36144,   0.09386,   0.12291,   0.00167,   0.00042,
1379      +    0.00003,   0.00196,   0.00563,
1380      +    0.33109,   0.08486,   0.09888,   0.00160,   0.00049,
1381      +    0.00002,   0.00183,   0.00499,
1382      +    0.30567,   0.07746,   0.08131,   0.00148,   0.00052,
1383      +    0.00007,   0.00169,   0.00452,
1384      +    0.28395,   0.07123,   0.06805,   0.00139,   0.00052,
1385      +    0.00012,   0.00157,   0.00411,
1386      +    0.26514,   0.06591,   0.05779,   0.00131,   0.00052,
1387      +    0.00016,   0.00146,   0.00376,
1388      +    0.24864,   0.06130,   0.04969,   0.00124,   0.00051,
1389      +    0.00018,   0.00137,   0.00345 /
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.23408,   0.05726,   0.04320,   0.00116,   0.00050,
1392      +    0.00020,   0.00128,   0.00319,
1393      +    0.22111,   0.05369,   0.03793,   0.00109,   0.00049,
1394      +    0.00021,   0.00120,   0.00295,
1395      +    0.20950,   0.05054,   0.03359,   0.00102,   0.00048,
1396      +    0.00022,   0.00113,   0.00275,
1397      +    0.19903,   0.04772,   0.02997,   0.00097,   0.00046,
1398      +    0.00022,   0.00107,   0.00256,
1399      +    0.18950,   0.04518,   0.02693,   0.00092,   0.00044,
1400      +    0.00022,   0.00101,   0.00241,
1401      +    0.18081,   0.04288,   0.02435,   0.00089,   0.00042,
1402      +    0.00021,   0.00095,   0.00226,
1403      +    0.17289,   0.04079,   0.02215,   0.00084,   0.00040,
1404      +    0.00021,   0.00090,   0.00213 /
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.16563,   0.03888,   0.02025,   0.00079,   0.00039,
1407      +    0.00022,   0.00086,   0.00203,
1408      +    0.15888,   0.03714,   0.01860,   0.00077,   0.00039,
1409      +    0.00021,   0.00082,   0.00191,
1410      +    0.15266,   0.03553,   0.01715,   0.00075,   0.00038,
1411      +    0.00021,   0.00078,   0.00180,
1412      +    0.14690,   0.03404,   0.01588,   0.00070,   0.00036,
1413      +    0.00020,   0.00074,   0.00172,
1414      +    0.14157,   0.03267,   0.01476,   0.00066,   0.00035,
1415      +    0.00020,   0.00071,   0.00164 /
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.35819,   0.08968,   0.12614,   0.00109,   0.00022,
1418      +    0.00004,   0.00145,   0.00442,
1419      +    0.32249,   0.07955,   0.09729,   0.00105,   0.00032,
1420      +    0.00004,   0.00135,   0.00389,
1421      +    0.29363,   0.07151,   0.07732,   0.00101,   0.00036,
1422      +    0.00003,   0.00126,   0.00344,
1423      +    0.26966,   0.06492,   0.06288,   0.00093,   0.00038,
1424      +    0.00006,   0.00116,   0.00310,
1425      +    0.24927,   0.05942,   0.05212,   0.00089,   0.00038,
1426      +    0.00010,   0.00108,   0.00279,
1427      +    0.23174,   0.05474,   0.04389,   0.00082,   0.00038,
1428      +    0.00013,   0.00100,   0.00254,
1429      +    0.21648,   0.05071,   0.03747,   0.00076,   0.00037,
1430      +    0.00014,   0.00093,   0.00232 /
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.20301,   0.04719,   0.03236,   0.00072,   0.00037,
1433      +    0.00015,   0.00088,   0.00213,
1434      +    0.19108,   0.04410,   0.02824,   0.00068,   0.00036,
1435      +    0.00016,   0.00082,   0.00198,
1436      +    0.18043,   0.04137,   0.02487,   0.00064,   0.00035,
1437      +    0.00016,   0.00077,   0.00184,
1438      +    0.17087,   0.03894,   0.02209,   0.00060,   0.00033,
1439      +    0.00016,   0.00072,   0.00171,
1440      +    0.16226,   0.03676,   0.01976,   0.00056,   0.00031,
1441      +    0.00016,   0.00068,   0.00160,
1442      +    0.15438,   0.03479,   0.01780,   0.00054,   0.00030,
1443      +    0.00016,   0.00065,   0.00150,
1444      +    0.14721,   0.03301,   0.01613,   0.00052,   0.00029,
1445      +    0.00016,   0.00061,   0.00141 /
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.14065,   0.03139,   0.01469,   0.00049,   0.00028,
1448      +    0.00016,   0.00057,   0.00133,
1449      +    0.13460,   0.02990,   0.01345,   0.00047,   0.00027,
1450      +    0.00015,   0.00055,   0.00126,
1451      +    0.12905,   0.02853,   0.01237,   0.00046,   0.00026,
1452      +    0.00014,   0.00052,   0.00118,
1453      +    0.12389,   0.02728,   0.01143,   0.00043,   0.00025,
1454      +    0.00014,   0.00050,   0.00113,
1455      +    0.11913,   0.02613,   0.01059,   0.00041,   0.00024,
1456      +    0.00014,   0.00047,   0.00107 /
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.31817,   0.07563,   0.10021,   0.00068,   0.00016,
1459      +    0.00003,   0.00099,   0.00300,
1460      +    0.28451,   0.06662,   0.07613,   0.00064,   0.00023,
1461      +    0.00003,   0.00092,   0.00262,
1462      +    0.25747,   0.05950,   0.05972,   0.00061,   0.00026,
1463      +    0.00001,   0.00086,   0.00232,
1464      +    0.23515,   0.05374,   0.04805,   0.00057,   0.00028,
1465      +    0.00005,   0.00080,   0.00206,
1466      +    0.21633,   0.04894,   0.03946,   0.00053,   0.00028,
1467      +    0.00008,   0.00074,   0.00186,
1468      +    0.20020,   0.04489,   0.03296,   0.00050,   0.00028,
1469      +    0.00010,   0.00069,   0.00167,
1470      +    0.18621,   0.04141,   0.02792,   0.00048,   0.00027,
1471      +    0.00011,   0.00063,   0.00153 /
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.17399,   0.03839,   0.02396,   0.00043,   0.00026,
1474      +    0.00012,   0.00060,   0.00140,
1475      +    0.16319,   0.03574,   0.02078,   0.00039,   0.00025,
1476      +    0.00013,   0.00056,   0.00130,
1477      +    0.15357,   0.03342,   0.01821,   0.00036,   0.00024,
1478      +    0.00013,   0.00053,   0.00121,
1479      +    0.14498,   0.03136,   0.01609,   0.00034,   0.00023,
1480      +    0.00012,   0.00050,   0.00112,
1481      +    0.13725,   0.02952,   0.01433,   0.00033,   0.00022,
1482      +    0.00013,   0.00046,   0.00103,
1483      +    0.13021,   0.02786,   0.01286,   0.00032,   0.00022,
1484      +    0.00012,   0.00044,   0.00096,
1485      +    0.12384,   0.02636,   0.01161,   0.00030,   0.00021,
1486      +    0.00012,   0.00042,   0.00091 /
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.11805,   0.02499,   0.01054,   0.00027,   0.00020,
1489      +    0.00012,   0.00040,   0.00085,
1490      +    0.11270,   0.02375,   0.00962,   0.00026,   0.00020,
1491      +    0.00012,   0.00037,   0.00080,
1492      +    0.10780,   0.02261,   0.00882,   0.00025,   0.00019,
1493      +    0.00011,   0.00035,   0.00075,
1494      +    0.10324,   0.02158,   0.00813,   0.00024,   0.00018,
1495      +    0.00011,   0.00034,   0.00072,
1496      +    0.09904,   0.02063,   0.00752,   0.00023,   0.00017,
1497      +    0.00011,   0.00033,   0.00069 /
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.27940,   0.06308,   0.07877,   0.00049,   0.00008,
1500      +   -0.00002,   0.00062,   0.00199,
1501      +    0.24813,   0.05520,   0.05899,   0.00047,   0.00012,
1502      +   -0.00001,   0.00057,   0.00175,
1503      +    0.22326,   0.04904,   0.04574,   0.00044,   0.00015,
1504      +   -0.00002,   0.00054,   0.00151,
1505      +    0.20279,   0.04407,   0.03644,   0.00043,   0.00016,
1506      +    0.00001,   0.00049,   0.00135,
1507      +    0.18568,   0.03995,   0.02966,   0.00039,   0.00017,
1508      +    0.00003,   0.00046,   0.00121,
1509      +    0.17110,   0.03648,   0.02458,   0.00036,   0.00016,
1510      +    0.00004,   0.00042,   0.00110,
1511      +    0.15851,   0.03352,   0.02069,   0.00034,   0.00015,
1512      +    0.00005,   0.00039,   0.00100 /
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.14755,   0.03096,   0.01764,   0.00032,   0.00015,
1515      +    0.00006,   0.00036,   0.00091,
1516      +    0.13792,   0.02873,   0.01522,   0.00030,   0.00014,
1517      +    0.00006,   0.00034,   0.00083,
1518      +    0.12937,   0.02678,   0.01327,   0.00027,   0.00014,
1519      +    0.00006,   0.00032,   0.00077,
1520      +    0.12174,   0.02505,   0.01167,   0.00026,   0.00014,
1521      +    0.00006,   0.00030,   0.00071,
1522      +    0.11490,   0.02352,   0.01036,   0.00025,   0.00013,
1523      +    0.00007,   0.00028,   0.00067,
1524      +    0.10873,   0.02213,   0.00926,   0.00023,   0.00012,
1525      +    0.00006,   0.00026,   0.00062,
1526      +    0.10313,   0.02089,   0.00833,   0.00022,   0.00011,
1527      +    0.00005,   0.00025,   0.00058 /
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.09803,   0.01977,   0.00754,   0.00021,   0.00011,
1530      +    0.00005,   0.00023,   0.00054,
1531      +    0.09337,   0.01874,   0.00686,   0.00021,   0.00010,
1532      +    0.00005,   0.00022,   0.00050,
1533      +    0.08911,   0.01781,   0.00628,   0.00020,   0.00010,
1534      +    0.00005,   0.00021,   0.00047,
1535      +    0.08518,   0.01695,   0.00577,   0.00018,   0.00010,
1536      +    0.00005,   0.00020,   0.00045,
1537      +    0.08156,   0.01617,   0.00532,   0.00017,   0.00010,
1538      +    0.00005,   0.00019,   0.00043 /
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.24204,   0.05168,   0.06086,   0.00025,   0.00009,
1541      +    0.00002,   0.00043,   0.00128,
1542      +    0.21349,   0.04492,   0.04492,   0.00023,   0.00011,
1543      +    0.00002,   0.00040,   0.00111,
1544      +    0.19087,   0.03967,   0.03440,   0.00025,   0.00013,
1545      +    0.00002,   0.00037,   0.00095,
1546      +    0.17248,   0.03546,   0.02713,   0.00023,   0.00012,
1547      +    0.00003,   0.00034,   0.00086,
1548      +    0.15714,   0.03200,   0.02188,   0.00021,   0.00012,
1549      +    0.00003,   0.00030,   0.00076,
1550      +    0.14414,   0.02909,   0.01798,   0.00020,   0.00011,
1551      +    0.00004,   0.00027,   0.00070,
1552      +    0.13298,   0.02662,   0.01502,   0.00019,   0.00011,
1553      +    0.00005,   0.00025,   0.00064 /
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.12329,   0.02450,   0.01273,   0.00017,   0.00011,
1556      +    0.00005,   0.00023,   0.00057,
1557      +    0.11479,   0.02266,   0.01092,   0.00017,   0.00010,
1558      +    0.00005,   0.00022,   0.00052,
1559      +    0.10731,   0.02106,   0.00947,   0.00017,   0.00009,
1560      +    0.00004,   0.00020,   0.00048,
1561      +    0.10067,   0.01964,   0.00830,   0.00015,   0.00009,
1562      +    0.00005,   0.00019,   0.00044,
1563      +    0.09475,   0.01837,   0.00733,   0.00013,   0.00008,
1564      +    0.00005,   0.00018,   0.00042,
1565      +    0.08940,   0.01724,   0.00653,   0.00012,   0.00008,
1566      +    0.00005,   0.00017,   0.00039,
1567      +    0.08456,   0.01623,   0.00585,   0.00013,   0.00008,
1568      +    0.00005,   0.00016,   0.00036 /
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.08018,   0.01532,   0.00528,   0.00013,   0.00008,
1571      +    0.00004,   0.00014,   0.00033,
1572      +    0.07616,   0.01449,   0.00479,   0.00013,   0.00007,
1573      +    0.00004,   0.00013,   0.00031,
1574      +    0.07251,   0.01374,   0.00437,   0.00012,   0.00007,
1575      +    0.00004,   0.00013,   0.00030,
1576      +    0.06916,   0.01305,   0.00401,   0.00012,   0.00007,
1577      +    0.00004,   0.00012,   0.00027,
1578      +    0.06608,   0.01242,   0.00369,   0.00011,   0.00006,
1579      +    0.00004,   0.00012,   0.00025 /
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.20691,   0.04176,   0.04632,   0.00013,   0.00006,
1582      +    0.00004,   0.00028,   0.00080,
1583      +    0.18121,   0.03604,   0.03370,   0.00013,   0.00009,
1584      +    0.00004,   0.00027,   0.00069,
1585      +    0.16102,   0.03163,   0.02549,   0.00012,   0.00008,
1586      +    0.00002,   0.00023,   0.00061,
1587      +    0.14467,   0.02812,   0.01987,   0.00013,   0.00009,
1588      +    0.00003,   0.00021,   0.00054,
1589      +    0.13116,   0.02525,   0.01588,   0.00010,   0.00008,
1590      +    0.00004,   0.00019,   0.00048,
1591      +    0.11973,   0.02285,   0.01294,   0.00010,   0.00008,
1592      +    0.00004,   0.00018,   0.00043,
1593      +    0.10998,   0.02083,   0.01074,   0.00011,   0.00008,
1594      +    0.00004,   0.00017,   0.00038 /
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.10157,   0.01909,   0.00903,   0.00009,   0.00008,
1597      +    0.00004,   0.00015,   0.00035,
1598      +    0.09422,   0.01759,   0.00770,   0.00009,   0.00008,
1599      +    0.00004,   0.00014,   0.00032,
1600      +    0.08777,   0.01628,   0.00665,   0.00009,   0.00007,
1601      +    0.00004,   0.00013,   0.00029,
1602      +    0.08206,   0.01513,   0.00580,   0.00009,   0.00006,
1603      +    0.00004,   0.00012,   0.00028,
1604      +    0.07698,   0.01412,   0.00510,   0.00008,   0.00006,
1605      +    0.00004,   0.00011,   0.00025,
1606      +    0.07242,   0.01321,   0.00452,   0.00007,   0.00006,
1607      +    0.00003,   0.00011,   0.00023,
1608      +    0.06833,   0.01240,   0.00404,   0.00007,   0.00006,
1609      +    0.00003,   0.00010,   0.00022 /
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.06462,   0.01167,   0.00363,   0.00007,   0.00005,
1612      +    0.00003,   0.00009,   0.00020,
1613      +    0.06123,   0.01101,   0.00329,   0.00007,   0.00005,
1614      +    0.00003,   0.00009,   0.00019,
1615      +    0.05814,   0.01042,   0.00299,   0.00006,   0.00005,
1616      +    0.00003,   0.00008,   0.00018,
1617      +    0.05533,   0.00987,   0.00274,   0.00005,   0.00004,
1618      +    0.00002,   0.00008,   0.00017,
1619      +    0.05275,   0.00937,   0.00251,   0.00005,   0.00004,
1620      +    0.00002,   0.00007,   0.00016 /
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.17455,   0.03329,   0.03478,   0.00009,   0.00002,
1623      +    0.00000,   0.00015,   0.00050,
1624      +    0.15174,   0.02853,   0.02492,   0.00010,   0.00004,
1625      +    0.00000,   0.00014,   0.00042,
1626      +    0.13397,   0.02490,   0.01862,   0.00009,   0.00005,
1627      +    0.00001,   0.00013,   0.00038,
1628      +    0.11972,   0.02200,   0.01436,   0.00008,   0.00005,
1629      +    0.00000,   0.00012,   0.00032,
1630      +    0.10798,   0.01965,   0.01137,   0.00008,   0.00005,
1631      +    0.00001,   0.00011,   0.00029,
1632      +    0.09813,   0.01771,   0.00920,   0.00008,   0.00004,
1633      +    0.00002,   0.00010,   0.00026,
1634      +    0.08976,   0.01607,   0.00757,   0.00007,   0.00004,
1635      +    0.00002,   0.00009,   0.00025 /
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.08255,   0.01467,   0.00633,   0.00007,   0.00004,
1638      +    0.00001,   0.00008,   0.00021,
1639      +    0.07629,   0.01347,   0.00537,   0.00007,   0.00004,
1640      +    0.00002,   0.00008,   0.00019,
1641      +    0.07083,   0.01243,   0.00461,   0.00007,   0.00004,
1642      +    0.00002,   0.00007,   0.00017,
1643      +    0.06600,   0.01152,   0.00400,   0.00006,   0.00003,
1644      +    0.00001,   0.00006,   0.00015,
1645      +    0.06171,   0.01071,   0.00351,   0.00007,   0.00003,
1646      +    0.00001,   0.00006,   0.00015,
1647      +    0.05790,   0.01000,   0.00310,   0.00005,   0.00003,
1648      +    0.00001,   0.00006,   0.00014,
1649      +    0.05448,   0.00936,   0.00276,   0.00004,   0.00003,
1650      +    0.00001,   0.00005,   0.00013 /
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.05137,   0.00878,   0.00248,   0.00005,   0.00003,
1653      +    0.00001,   0.00005,   0.00012,
1654      +    0.04855,   0.00827,   0.00224,   0.00005,   0.00003,
1655      +    0.00001,   0.00005,   0.00011,
1656      +    0.04600,   0.00780,   0.00203,   0.00005,   0.00002,
1657      +    0.00001,   0.00004,   0.00011,
1658      +    0.04367,   0.00737,   0.00185,   0.00004,   0.00002,
1659      +    0.00001,   0.00004,   0.00010,
1660      +    0.04154,   0.00698,   0.00169,   0.00004,   0.00002,
1661      +    0.00001,   0.00004,   0.00009 /
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.14466,   0.02595,   0.02551,   0.00002,   0.00004,
1664      +    0.00003,   0.00011,   0.00029,
1665      +    0.12481,   0.02208,   0.01800,   0.00004,   0.00004,
1666      +    0.00002,   0.00010,   0.00025,
1667      +    0.10951,   0.01914,   0.01327,   0.00002,   0.00004,
1668      +    0.00001,   0.00009,   0.00021,
1669      +    0.09728,   0.01682,   0.01013,   0.00003,   0.00004,
1670      +    0.00002,   0.00008,   0.00019,
1671      +    0.08727,   0.01495,   0.00794,   0.00003,   0.00003,
1672      +    0.00002,   0.00007,   0.00017,
1673      +    0.07893,   0.01341,   0.00637,   0.00003,   0.00003,
1674      +    0.00002,   0.00007,   0.00015,
1675      +    0.07186,   0.01211,   0.00520,   0.00003,   0.00003,
1676      +    0.00002,   0.00006,   0.00013 /
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.06582,   0.01101,   0.00432,   0.00003,   0.00003,
1679      +    0.00002,   0.00006,   0.00011,
1680      +    0.06059,   0.01007,   0.00364,   0.00003,   0.00003,
1681      +    0.00002,   0.00005,   0.00011,
1682      +    0.05604,   0.00926,   0.00311,   0.00003,   0.00003,
1683      +    0.00002,   0.00005,   0.00010,
1684      +    0.05205,   0.00855,   0.00269,   0.00003,   0.00002,
1685      +    0.00001,   0.00004,   0.00008,
1686      +    0.04850,   0.00793,   0.00235,   0.00003,   0.00003,
1687      +    0.00001,   0.00004,   0.00008,
1688      +    0.04536,   0.00737,   0.00207,   0.00003,   0.00002,
1689      +    0.00001,   0.00004,   0.00007,
1690      +    0.04255,   0.00688,   0.00183,   0.00002,   0.00002,
1691      +    0.00001,   0.00004,   0.00007 /
1692         DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=15,19)/
1693      +    0.04002,   0.00644,   0.00164,   0.00002,   0.00002,
1694      +    0.00001,   0.00003,   0.00007,
1695      +    0.03773,   0.00604,   0.00148,   0.00002,   0.00002,
1696      +    0.00001,   0.00003,   0.00006,
1697      +    0.03565,   0.00569,   0.00134,   0.00002,   0.00002,
1698      +    0.00001,   0.00003,   0.00006,
1699      +    0.03376,   0.00537,   0.00122,   0.00002,   0.00001,
1700      +    0.00001,   0.00003,   0.00005,
1701      +    0.03204,   0.00507,   0.00111,   0.00001,   0.00001,
1702      +    0.00001,   0.00002,   0.00005 /
1703         DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,7)/
1704      +    0.09437,   0.01492,   0.01292,   0.00001,   0.00001,
1705      +    0.00000,   0.00003,   0.00009,
1706      +    0.08017,   0.01250,   0.00883,   0.00001,   0.00001,
1707      +    0.00000,   0.00003,   0.00007,
1708      +    0.06937,   0.01068,   0.00634,   0.00001,   0.00001,
1709      +    0.00000,   0.00003,   0.00006,
1710      +    0.06086,   0.00928,   0.00472,   0.00001,   0.00001,
1711      +    0.00000,   0.00002,   0.00005,
1712      +    0.05399,   0.00816,   0.00363,   0.00001,   0.00001,
1713      +    0.00000,   0.00002,   0.00005,
1714      +    0.04833,   0.00724,   0.00286,   0.00001,   0.00001,
1715      +    0.00000,   0.00002,   0.00004,
1716      +    0.04360,   0.00648,   0.00230,   0.00001,   0.00001,
1717      +    0.00000,   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.03957,   0.00584,   0.00189,   0.00001,   0.00001,
1720      +    0.00000,   0.00002,   0.00004,
1721      +    0.03614,   0.00530,   0.00158,   0.00001,   0.00001,
1722      +    0.00000,   0.00001,   0.00003,
1723      +    0.03318,   0.00483,   0.00133,   0.00000,   0.00001,
1724      +    0.00000,   0.00001,   0.00003,
1725      +    0.03059,   0.00443,   0.00114,   0.00000,   0.00001,
1726      +    0.00000,   0.00001,   0.00003,
1727      +    0.02832,   0.00408,   0.00099,   0.00000,   0.00001,
1728      +    0.00000,   0.00001,   0.00002,
1729      +    0.02630,   0.00377,   0.00086,   0.00000,   0.00001,
1730      +    0.00000,   0.00001,   0.00002,
1731      +    0.02452,   0.00350,   0.00076,   0.00000,   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.02293,   0.00325,   0.00068,   0.00000,   0.00001,
1735      +    0.00000,   0.00001,   0.00002,
1736      +    0.02149,   0.00304,   0.00061,   0.00000,   0.00001,
1737      +    0.00000,   0.00001,   0.00002,
1738      +    0.02020,   0.00284,   0.00055,   0.00001,   0.00001,
1739      +    0.00000,   0.00001,   0.00001,
1740      +    0.01903,   0.00267,   0.00049,   0.00001,   0.00001,
1741      +    0.00000,   0.00001,   0.00001,
1742      +    0.01796,   0.00251,   0.00045,   0.00001,   0.00000,
1743      +    0.00000,   0.00001,   0.00001 /
1744         DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,7)/
1745      +    0.05631,   0.00773,   0.00585,   0.00001,   0.00000,
1746      +    0.00000,   0.00000,   0.00002,
1747      +    0.04704,   0.00637,   0.00386,   0.00000,   0.00000,
1748      +    0.00000,   0.00001,   0.00002,
1749      +    0.04008,   0.00537,   0.00269,   0.00001,   0.00000,
1750      +    0.00000,   0.00001,   0.00002,
1751      +    0.03471,   0.00460,   0.00196,   0.00001,   0.00000,
1752      +    0.00000,   0.00000,   0.00001,
1753      +    0.03043,   0.00400,   0.00148,   0.00001,   0.00000,
1754      +    0.00000,   0.00001,   0.00001,
1755      +    0.02693,   0.00351,   0.00114,   0.00001,   0.00000,
1756      +    0.00000,   0.00000,   0.00001,
1757      +    0.02406,   0.00311,   0.00091,   0.00000,   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.02164,   0.00277,   0.00073,   0.00000,   0.00000,
1761      +    0.00000,   0.00000,   0.00001,
1762      +    0.01958,   0.00250,   0.00060,   0.00000,   0.00000,
1763      +    0.00000,   0.00000,   0.00001,
1764      +    0.01782,   0.00226,   0.00051,   0.00000,   0.00000,
1765      +    0.00000,   0.00000,   0.00001,
1766      +    0.01630,   0.00205,   0.00043,   0.00000,   0.00000,
1767      +    0.00000,   0.00000,   0.00001,
1768      +    0.01498,   0.00188,   0.00037,   0.00000,   0.00000,
1769      +    0.00000,   0.00000,   0.00001,
1770      +    0.01382,   0.00172,   0.00032,   0.00000,   0.00000,
1771      +    0.00000,   0.00000,   0.00001,
1772      +    0.01279,   0.00159,   0.00028,   0.00000,   0.00000,
1773      +    0.00000,   0.00000,   0.00000 /
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.01188,   0.00147,   0.00025,   0.00001,   0.00000,
1776      +    0.00000,   0.00000,   0.00000,
1777      +    0.01107,   0.00136,   0.00022,   0.00000,   0.00000,
1778      +    0.00000,   0.00000,   0.00000,
1779      +    0.01035,   0.00127,   0.00020,   0.00000,   0.00000,
1780      +    0.00000,   0.00000,   0.00000,
1781      +    0.00970,   0.00118,   0.00018,   0.00000,   0.00000,
1782      +    0.00000,   0.00000,   0.00000,
1783      +    0.00911,   0.00111,   0.00016,   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.02987,   0.00349,   0.00227,   0.00000,   0.00000,
1787      +    0.00000,   0.00000,   0.00001,
1788      +    0.02449,   0.00282,   0.00145,   0.00000,   0.00000,
1789      +    0.00000,   0.00000,   0.00000,
1790      +    0.02052,   0.00234,   0.00098,   0.00000,   0.00000,
1791      +    0.00000,   0.00000,   0.00000,
1792      +    0.01752,   0.00198,   0.00069,   0.00000,   0.00000,
1793      +    0.00000,   0.00000,   0.00000,
1794      +    0.01514,   0.00169,   0.00051,   0.00000,   0.00000,
1795      +    0.00000,   0.00000,   0.00000,
1796      +    0.01324,   0.00147,   0.00039,   0.00000,   0.00000,
1797      +    0.00000,   0.00000,   0.00001,
1798      +    0.01169,   0.00129,   0.00030,   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.01040,   0.00114,   0.00024,   0.00000,   0.00000,
1802      +    0.00000,   0.00000,   0.00000,
1803      +    0.00932,   0.00101,   0.00020,   0.00000,   0.00000,
1804      +    0.00000,   0.00000,   0.00000,
1805      +    0.00840,   0.00091,   0.00016,   0.00000,   0.00000,
1806      +    0.00000,   0.00000,   0.00000,
1807      +    0.00762,   0.00082,   0.00014,   0.00000,   0.00000,
1808      +    0.00000,   0.00000,   0.00000,
1809      +    0.00695,   0.00074,   0.00012,   0.00000,   0.00000,
1810      +    0.00000,   0.00000,   0.00000,
1811      +    0.00636,   0.00068,   0.00010,   0.00000,   0.00000,
1812      +    0.00000,   0.00000,   0.00000,
1813      +    0.00584,   0.00062,   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.00539,   0.00057,   0.00008,   0.00000,   0.00000,
1817      +    0.00000,   0.00000,   0.00000,
1818      +    0.00499,   0.00052,   0.00007,   0.00000,   0.00000,
1819      +    0.00000,   0.00000,   0.00000,
1820      +    0.00463,   0.00048,   0.00006,   0.00000,   0.00000,
1821      +    0.00000,   0.00000,   0.00000,
1822      +    0.00431,   0.00045,   0.00006,   0.00000,   0.00000,
1823      +    0.00000,   0.00000,   0.00000,
1824      +    0.00402,   0.00042,   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.01334,   0.00129,   0.00070,   0.00000,   0.00000,
1828      +    0.00000,   0.00000,   0.00000,
1829      +    0.01070,   0.00102,   0.00043,   0.00000,   0.00000,
1830      +    0.00000,   0.00000,   0.00000,
1831      +    0.00880,   0.00083,   0.00028,   0.00000,   0.00000,
1832      +    0.00000,   0.00000,   0.00000,
1833      +    0.00738,   0.00069,   0.00019,   0.00000,   0.00000,
1834      +    0.00000,   0.00000,   0.00000,
1835      +    0.00628,   0.00058,   0.00014,   0.00000,   0.00000,
1836      +    0.00000,   0.00000,   0.00000,
1837      +    0.00542,   0.00050,   0.00010,   0.00000,   0.00000,
1838      +    0.00000,   0.00000,   0.00000,
1839      +    0.00472,   0.00043,   0.00008,   0.00000,   0.00000,
1840      +    0.00000,   0.00000,   0.00000 /
1841         DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=8,14)/
1842      +    0.00414,   0.00038,   0.00006,   0.00000,   0.00000,
1843      +    0.00000,   0.00000,   0.00000,
1844      +    0.00367,   0.00033,   0.00005,   0.00000,   0.00000,
1845      +    0.00000,   0.00000,   0.00000,
1846      +    0.00328,   0.00029,   0.00004,   0.00000,   0.00000,
1847      +    0.00000,   0.00000,   0.00000,
1848      +    0.00294,   0.00026,   0.00004,   0.00000,   0.00000,
1849      +    0.00000,   0.00000,   0.00000,
1850      +    0.00265,   0.00023,   0.00003,   0.00000,   0.00000,
1851      +    0.00000,   0.00000,   0.00000,
1852      +    0.00241,   0.00021,   0.00003,   0.00000,   0.00000,
1853      +    0.00000,   0.00000,   0.00000,
1854      +    0.00219,   0.00019,   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.00201,   0.00018,   0.00002,   0.00000,   0.00000,
1858      +    0.00000,   0.00000,   0.00000,
1859      +    0.00184,   0.00016,   0.00002,   0.00000,   0.00000,
1860      +    0.00000,   0.00000,   0.00000,
1861      +    0.00170,   0.00015,   0.00002,   0.00000,   0.00000,
1862      +    0.00000,   0.00000,   0.00000,
1863      +    0.00157,   0.00014,   0.00001,   0.00000,   0.00000,
1864      +    0.00000,   0.00000,   0.00000,
1865      +    0.00145,   0.00013,   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.00005,   0.00002,   0.00000,   0.00000,
1869      +    0.00000,   0.00000,   0.00000,
1870      +    0.00074,   0.00004,   0.00001,   0.00000,   0.00000,
1871      +    0.00000,   0.00000,   0.00000,
1872      +    0.00058,   0.00003,   0.00001,   0.00000,   0.00000,
1873      +    0.00000,   0.00000,   0.00000,
1874      +    0.00046,   0.00002,   0.00000,   0.00000,   0.00000,
1875      +    0.00000,   0.00000,   0.00000,
1876      +    0.00038,   0.00002,   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.00001,   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.00001,   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(33,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(7,N,M),
1928 C    .          F(6,N,M),F(8,N,M)
1929 C 1=UV 2=DV 3=GLUE 4=UBAR 5=CBAR 7=BBAR 6=SBAR 8=DBAR
1930          DO 25 I=1,8
1931   25     F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I)
1932   20  CONTINUE
1933       DO 31 J=1,NTENTH-1
1934       XX(J)= LOG10(XX(J))+ONEDO
1935       DO 31 I=1,8
1936       IF(I.EQ.7) GO TO 31
1937       DO 30 K=1,19
1938   30  F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K))
1939   31  CONTINUE
1940   50  FORMAT(8F10.5)
1941       DO 40 I=1,8
1942       DO 40 M=1,19
1943   40  F(I,NX,M)=ZEROD
1944   10  CONTINUE
1945       IF(X.LT.XMIN) X=XMIN
1946       IF(X.GT.XMAX) X=XMAX
1947       QSQ=SCALE**2
1948       IF(QSQ.LT.QSQMIN) QSQ=QSQMIN
1949       IF(QSQ.GT.QSQMAX) QSQ=QSQMAX
1950       XXX=X
1951       IF(X.LT.PONED) XXX= LOG10(X)+ONEDO
1952       N=0
1953   70  N=N+1
1954       IF(XXX.GT.XX(N+1)) GOTO 70
1955       A=(XXX-XX(N))/(XX(N+1)-XX(N))
1956       RM= LOG(QSQ/QSQMIN)/ LOG(TWOD)
1957       B=RM-AINT(RM)
1958       M=1+  INT(RM)
1959       DO 60 I=1,8
1960       G(I)= (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 C
1978       X=XSAVE
1979 C
1980       RETURN
1981       END
1982 C