Logo Search packages:      
Sourcecode: cernlib version File versions  Download package

sfmrs_99d11.F

#include "pdf/pilot.h"
      subroutine sfmrs_99d11(x,qsq,upv,dnv,usea,dsea,str,chm,bot,glu)
C
#include "pdf/impdp.inc"
C
      parameter(nx=49,nq=37,ntenth=23,np=8)
C
#include "pdf/expdp.inc"
     +       f(np,nx,nq+1),qq(nq),xx(nx),g(np),n0(np)
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,8)/
     +     .00643,    .00286,   1.14446,    .88535,    .00000,
     +     .00000,    .47531,    .89745,
     +     .00656,    .00291,   2.37217,    .92504,    .00000,
     +     .00000,    .51979,    .93722,
     +     .00675,    .00299,   4.68859,   1.00687,    .06115,
     +     .00000,    .60845,   1.01914,
     +     .00690,    .00306,   6.85114,   1.08200,    .15939,
     +     .00000,    .68839,   1.09432,
     +     .00706,    .00312,   9.65336,   1.17892,    .26390,
     +     .00000,    .79027,   1.19129,
     +     .00719,    .00318,  12.52149,   1.27669,    .36740,
     +     .00000,    .89222,   1.28910,
     +     .00732,    .00324,  15.75260,   1.38241,    .48220,
     +     .00000,   1.00186,   1.39484,
     +     .00747,    .00330,  19.73471,   1.50833,    .61997,
     +     .00000,   1.13186,   1.52079 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
     +     .00758,    .00336,  23.61896,   1.63105,    .74972,
     +     .00000,   1.25806,   1.64352,
     +     .00770,    .00341,  27.79681,   1.76091,    .88701,
     +     .00000,   1.39121,   1.77340,
     +     .00780,    .00346,  31.46172,   1.87174,   1.00625,
     +     .00000,   1.50460,   1.88422,
     +     .00801,    .00356,  40.19745,   2.13484,   1.28392,
     +     .00000,   1.77307,   2.14734,
     +     .00819,    .00365,  47.94481,   2.38893,   1.54993,
     +     .35871,   2.03164,   2.40142,
     +     .00840,    .00375,  58.09385,   2.70650,   1.88252,
     +     .74530,   2.35410,   2.71898,
     +     .00861,    .00385,  70.04822,   3.07516,   2.26773,
     +    1.15010,   2.72773,   3.08763,
     +     .00882,    .00395,  82.14747,   3.44491,   2.65335,
     +    1.55548,   3.10188,   3.45736 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
     +     .00903,    .00405,  95.63206,   3.85452,   3.08015,
     +    2.00230,   3.51580,   3.86694,
     +     .00920,    .00413, 107.76947,   4.22306,   3.46230,
     +    2.39751,   3.88786,   4.23545,
     +     .00941,    .00424, 123.64727,   4.70582,   3.96109,
     +    2.91113,   4.37480,   4.71817,
     +     .00960,    .00433, 138.86093,   5.16774,   4.43881,
     +    3.40545,   4.84033,   5.18007,
     +     .00979,    .00443, 153.79768,   5.62142,   4.90798,
     +    3.89126,   5.29725,   5.63371,
     +     .01001,    .00454, 173.89207,   6.23698,   5.54072,
     +    4.53956,   5.91686,   6.24923,
     +     .01023,    .00466, 194.17670,   6.86031,   6.18165,
     +    5.19815,   6.54389,   6.87249,
     +     .01043,    .00476, 214.49835,   7.48609,   6.82597,
     +    5.86268,   7.17309,   7.49825 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
     +     .01065,    .00486, 235.70280,   8.14767,   7.50275,
     +    6.55320,   7.83800,   8.15978,
     +     .01085,    .00497, 257.69163,   8.83610,   8.20807,
     +    7.27593,   8.52962,   8.84815,
     +     .01105,    .00507, 279.56451,   9.52519,   8.91367,
     +    7.99880,   9.22170,   9.53720,
     +     .01123,    .00517, 300.91295,  10.20506,   9.60768,
     +    8.70677,   9.90431,  10.21701,
     +     .01142,    .00527, 323.47764,  10.92539,  10.34451,
     +    9.46155,  10.62737,  10.93730,
     +     .01162,    .00536, 346.21507,  11.66127,  11.09406,
     +   10.22452,  11.36588,  11.67314,
     +     .01180,    .00546, 368.92585,  12.39730,  11.84573,
     +   10.99343,  12.10437,  12.40911,
     +     .01198,    .00555, 390.78066,  13.11557,  12.57629,
     +   11.73637,  12.82493,  13.12733 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
     +     .01215,    .00565, 413.77109,  13.87305,  13.34807,
     +   12.52388,  13.58470,  13.88477,
     +     .01233,    .00573, 436.94658,  14.64485,  14.13291,
     +   13.32262,  14.35872,  14.65652,
     +     .01250,    .00582, 459.72822,  15.40844,  14.90930,
     +   14.11291,  15.12440,  15.42007,
     +     .01266,    .00591, 482.01725,  16.15924,  15.67308,
     +   14.89134,  15.87716,  16.17082,
     +     .01283,    .00600, 504.79942,  16.93635,  16.46147,
     +   15.69178,  16.65622,  16.94788 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
     +     .00873,    .00394,   1.05603,    .75097,    .00000,
     +     .00000,    .40316,    .75806,
     +     .00892,    .00402,   2.16348,    .78758,    .00000,
     +     .00000,    .44348,    .79472,
     +     .00918,    .00414,   4.20749,    .85983,    .05384,
     +     .00000,    .52101,    .86700,
     +     .00938,    .00423,   6.07932,    .92455,    .13815,
     +     .00000,    .58945,    .93175,
     +     .00960,    .00433,   8.46498,   1.00651,    .22629,
     +     .00000,    .67525,   1.01375,
     +     .00978,    .00442,  10.87119,   1.08808,    .31260,
     +     .00000,    .76004,   1.09532,
     +     .00996,    .00450,  13.54926,   1.17548,    .40745,
     +     .00000,    .85047,   1.18274,
     +     .01015,    .00460,  16.81091,   1.27873,    .52027,
     +     .00000,    .95686,   1.28601 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
     +     .01032,    .00468,  19.95607,   1.37847,    .62558,
     +     .00000,   1.05927,   1.38575,
     +     .01049,    .00476,  23.30626,   1.48329,    .73623,
     +     .00000,   1.16663,   1.49058,
     +     .01062,    .00482,  26.22195,   1.57230,    .83177,
     +     .00000,   1.25763,   1.57960,
     +     .01090,    .00495,  33.09720,   1.78191,   1.05241,
     +     .00000,   1.47135,   1.78921,
     +     .01115,    .00509,  39.09176,   1.98248,   1.26175,
     +     .28252,   1.67537,   1.98978,
     +     .01143,    .00523,  46.86115,   2.23105,   1.52116,
     +     .58419,   1.92769,   2.23834,
     +     .01174,    .00537,  55.89554,   2.51698,   1.81880,
     +     .89641,   2.21744,   2.52427,
     +     .01201,    .00551,  64.92972,   2.80133,   2.11413,
     +    1.20626,   2.50515,   2.80860 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
     +     .01229,    .00566,  74.88704,   3.11381,   2.43838,
     +    1.54493,   2.82096,   3.12108,
     +     .01253,    .00577,  83.75978,   3.39291,   2.72655,
     +    1.84214,   3.10276,   3.40017,
     +     .01282,    .00593,  95.25328,   3.75588,   3.09993,
     +    2.22552,   3.46892,   3.76312,
     +     .01308,    .00605, 106.16109,   4.10073,   3.45502,
     +    2.59190,   3.81654,   4.10795,
     +     .01332,    .00618, 116.78076,   4.43730,   3.80158,
     +    2.94972,   4.15560,   4.44450,
     +     .01363,    .00635, 130.93309,   4.89072,   4.26560,
     +    3.42364,   4.61212,   4.89790,
     +     .01392,    .00649, 145.08583,   5.34657,   4.73232,
     +    3.90173,   5.07082,   5.35374,
     +     .01420,    .00664, 159.14525,   5.80128,   5.19855,
     +    4.38115,   5.52813,   5.80842 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
     +     .01449,    .00679, 173.68530,   6.27871,   5.68486,
     +    4.87569,   6.00812,   6.28582,
     +     .01477,    .00694, 188.64797,   6.77253,   6.18876,
     +    5.39040,   6.50440,   6.77961,
     +     .01503,    .00707, 203.42125,   7.26396,   6.68995,
     +    5.90227,   6.99811,   7.27102,
     +     .01528,    .00720, 217.73390,   7.74601,   7.18008,
     +    6.40064,   7.48228,   7.75305,
     +     .01554,    .00734, 232.76927,   8.25425,   7.69799,
     +    6.92960,   7.99261,   8.26127,
     +     .01579,    .00747, 247.80967,   8.77053,   8.22184,
     +    7.46108,   8.51091,   8.77754,
     +     .01604,    .00761, 262.75084,   9.28460,   8.74495,
     +    7.99463,   9.02688,   9.29159,
     +     .01627,    .00773, 277.03271,   9.78370,   9.25069,
     +    8.50729,   9.52773,   9.79065 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
     +     .01651,    .00786, 291.98255,  10.30787,   9.78290,
     +    9.04875,  10.05367,  10.31481,
     +     .01674,    .00798, 306.96229,  10.83946,  10.32157,
     +    9.59528,  10.58696,  10.84637,
     +     .01697,    .00810, 321.61232,  11.36319,  10.85228,
     +   10.13388,  11.11231,  11.37009,
     +     .01719,    .00822, 335.87805,  11.87619,  11.37244,
     +   10.66251,  11.62682,  11.88307,
     +     .01740,    .00834, 350.37756,  12.40486,  11.90698,
     +   11.20356,  12.15698,  12.41172 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
     +     .01187,    .00544,    .97357,    .63721,    .00000,
     +     .00000,    .34250,    .64086,
     +     .01211,    .00555,   1.97239,    .67068,    .00000,
     +     .00000,    .37884,    .67434,
     +     .01247,    .00573,   3.77488,    .73422,    .04761,
     +     .00000,    .44649,    .73791,
     +     .01275,    .00587,   5.39372,    .78986,    .11986,
     +     .00000,    .50499,    .79355,
     +     .01305,    .00600,   7.42228,    .85904,    .19408,
     +     .00000,    .57712,    .86273,
     +     .01329,    .00614,   9.43772,    .92694,    .26591,
     +     .00000,    .64749,    .93063,
     +     .01354,    .00626,  11.65326,    .99903,    .34415,
     +     .00000,    .72192,   1.00274,
     +     .01381,    .00638,  14.31911,   1.08348,    .43637,
     +     .00000,    .80877,   1.08718 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
     +     .01403,    .00650,  16.85960,   1.16432,    .52166,
     +     .00000,    .89165,   1.16802,
     +     .01426,    .00662,  19.53891,   1.24868,    .61064,
     +     .00000,    .97797,   1.25237,
     +     .01444,    .00671,  21.85201,   1.31995,    .68704,
     +     .00000,   1.05076,   1.32366,
     +     .01483,    .00691,  27.24656,   1.48640,    .86195,
     +     .00000,   1.22034,   1.49009,
     +     .01517,    .00708,  31.86776,   1.64418,   1.02632,
     +     .22193,   1.38075,   1.64787,
     +     .01556,    .00728,  37.79199,   1.83799,   1.22816,
     +     .45711,   1.57744,   1.84169,
     +     .01597,    .00750,  44.59061,   2.05889,   1.45752,
     +     .69766,   1.80124,   2.06258,
     +     .01635,    .00769,  51.30546,   2.27664,   1.68310,
     +     .93422,   2.02157,   2.28033 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
     +     .01673,    .00790,  58.62266,   2.51403,   1.92874,
     +    1.19059,   2.26148,   2.51771,
     +     .01705,    .00806,  65.07582,   2.72447,   2.14538,
     +    1.41378,   2.47396,   2.72814,
     +     .01745,    .00827,  73.35094,   2.99612,   2.42399,
     +    1.69949,   2.74805,   2.99979,
     +     .01780,    .00845,  81.12773,   3.25235,   2.68707,
     +    1.97060,   3.00639,   3.25602,
     +     .01813,    .00863,  88.63420,   3.50084,   2.94219,
     +    2.23367,   3.25678,   3.50451,
     +     .01855,    .00885,  98.54063,   3.83317,   3.28127,
     +    2.57943,   3.59145,   3.83684,
     +     .01894,    .00906, 108.35231,   4.16486,   3.61987,
     +    2.92574,   3.92531,   4.16851,
     +     .01932,    .00927, 118.01532,   4.49354,   3.95594,
     +    3.27084,   4.25596,   4.49718 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
     +     .01969,    .00947, 127.91659,   4.83623,   4.30399,
     +    3.62413,   4.60061,   4.83988,
     +     .02007,    .00967, 138.02579,   5.18854,   4.66249,
     +    3.98973,   4.95478,   5.19218,
     +     .02042,    .00986, 147.93081,   5.53706,   5.01698,
     +    4.35120,   5.30502,   5.54069,
     +     .02077,    .01005, 157.45325,   5.87692,   5.36158,
     +    4.70098,   5.64650,   5.88055,
     +     .02111,    .01023, 167.39429,   6.23346,   5.72400,
     +    5.07055,   6.00461,   6.23708,
     +     .02146,    .01042, 177.26260,   6.59354,   6.08838,
     +    5.43957,   6.36623,   6.59715,
     +     .02179,    .01060, 187.01181,   6.95045,   6.45070,
     +    5.80856,   6.72459,   6.95407,
     +     .02209,    .01077, 196.26510,   7.29513,   6.79908,
     +    6.16107,   7.07061,   7.29875 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
     +     .02241,    .01093, 205.90277,   7.65564,   7.16427,
     +    6.53202,   7.43245,   7.65925,
     +     .02272,    .01110, 215.49898,   8.01949,   7.53209,
     +    6.90457,   7.79759,   8.02309,
     +     .02303,    .01127, 224.83391,   8.37644,   7.89296,
     +    7.27021,   8.15576,   8.38003,
     +     .02332,    .01143, 233.88043,   8.72470,   8.24532,
     +    7.62777,   8.50518,   8.72830,
     +     .02361,    .01159, 243.02012,   9.08198,   8.60576,
     +    7.99197,   8.86360,   9.08557 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
     +     .01419,    .00657,    .92776,    .57905,    .00000,
     +     .00000,    .31173,    .58130,
     +     .01448,    .00672,   1.86816,    .61067,    .00000,
     +     .00000,    .34582,    .61290,
     +     .01491,    .00694,   3.54235,    .66950,    .04444,
     +     .00000,    .40815,    .67174,
     +     .01525,    .00711,   5.02891,    .72032,    .11039,
     +     .00000,    .46146,    .72257,
     +     .01559,    .00728,   6.87283,    .78289,    .17741,
     +     .00000,    .52655,    .78513,
     +     .01591,    .00744,   8.68840,    .84379,    .24186,
     +     .00000,    .58958,    .84604,
     +     .01621,    .00758,  10.66950,    .90811,    .31168,
     +     .00000,    .65590,    .91036,
     +     .01652,    .00775,  13.03604,    .98307,    .39352,
     +     .00000,    .73293,    .98531 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
     +     .01680,    .00789,  15.27542,   1.05443,    .46883,
     +     .00000,    .80604,   1.05668,
     +     .01706,    .00804,  17.62314,   1.12860,    .54706,
     +     .00000,    .88187,   1.13084,
     +     .01728,    .00814,  19.64023,   1.19108,    .61400,
     +     .00000,    .94564,   1.19332,
     +     .01775,    .00839,  24.31375,   1.33622,    .76649,
     +     .00000,   1.09348,   1.33847,
     +     .01816,    .00860,  28.27499,   1.47305,    .90896,
     +     .19233,   1.23256,   1.47530,
     +     .01862,    .00885,  33.31983,   1.64027,   1.08299,
     +     .39549,   1.40222,   1.64251,
     +     .01912,    .00910,  39.06370,   1.82980,   1.27963,
     +     .60184,   1.59424,   1.83203,
     +     .01957,    .00935,  44.69486,   2.01566,   1.47201,
     +     .80369,   1.78228,   2.01790 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
     +     .02003,    .00959,  50.78944,   2.21729,   1.68046,
     +    1.02133,   1.98607,   2.21954,
     +     .02041,    .00979,  56.13104,   2.39525,   1.86348,
     +    1.20992,   2.16577,   2.39749,
     +     .02089,    .01005,  62.93931,   2.62396,   2.09783,
     +    1.45024,   2.39655,   2.62620,
     +     .02130,    .01028,  69.30013,   2.83876,   2.31814,
     +    1.67731,   2.61315,   2.84101,
     +     .02169,    .01049,  75.40816,   3.04629,   2.53101,
     +    1.89682,   2.82229,   3.04854,
     +     .02219,    .01075,  83.42176,   3.32264,   2.81265,
     +    2.18398,   3.10063,   3.32488,
     +     .02267,    .01102,  91.31287,   3.59725,   3.09272,
     +    2.47040,   3.37708,   3.59950,
     +     .02312,    .01125,  99.04431,   3.86831,   3.36961,
     +    2.75472,   3.64982,   3.87056 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
     +     .02357,    .01150, 106.92179,   4.14975,   3.65516,
     +    3.04448,   3.93291,   4.15200,
     +     .02401,    .01175, 114.92701,   4.43804,   3.94823,
     +    3.34332,   4.22278,   4.44029,
     +     .02443,    .01198, 122.73427,   4.72222,   4.23702,
     +    3.63774,   4.50843,   4.72448,
     +     .02484,    .01220, 130.20485,   4.99836,   4.51675,
     +    3.92160,   4.78594,   5.00062,
     +     .02525,    .01242, 137.97483,   5.28720,   4.81011,
     +    4.22071,   5.07613,   5.28947,
     +     .02566,    .01264, 145.65180,   5.57790,   5.10400,
     +    4.51825,   5.36813,   5.58017,
     +     .02605,    .01286, 153.21122,   5.86527,   5.39550,
     +    4.81507,   5.65672,   5.86754,
     +     .02642,    .01306, 160.35487,   6.14190,   5.67485,
     +    5.09764,   5.93448,   6.14418 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
     +     .02679,    .01327, 167.77302,   6.43052,   5.96701,
     +    5.39435,   6.22426,   6.43281,
     +     .02717,    .01348, 175.13079,   6.72098,   6.26039,
     +    5.69143,   6.51580,   6.72326,
     +     .02753,    .01367, 182.26524,   7.00520,   6.54752,
     +    5.98228,   6.80107,   7.00750,
     +     .02787,    .01386, 189.15919,   7.28187,   6.82726,
     +    6.26609,   7.07872,   7.28418,
     +     .02822,    .01405, 196.09812,   7.56493,   7.11261,
     +    6.55431,   7.36275,   7.56724 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
     +     .01610,    .00752,    .89637,    .54118,    .00000,
     +     .00000,    .29179,    .54266,
     +     .01643,    .00769,   1.79747,    .57148,    .00000,
     +     .00000,    .32432,    .57295,
     +     .01693,    .00794,   3.38605,    .62710,    .04238,
     +     .00000,    .38310,    .62856,
     +     .01731,    .00813,   4.78514,    .67474,    .10415,
     +     .00000,    .43296,    .67621,
     +     .01771,    .00834,   6.50792,    .73292,    .16646,
     +     .00000,    .49343,    .73440,
     +     .01806,    .00852,   8.19316,    .78926,    .22609,
     +     .00000,    .55168,    .79074,
     +     .01840,    .00870,  10.02226,    .84853,    .29044,
     +     .00000,    .61272,    .84999,
     +     .01875,    .00889,  12.19584,    .91735,    .36559,
     +     .00000,    .68340,    .91882 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
     +     .01907,    .00906,  14.24214,    .98260,    .43448,
     +     .00000,    .75024,    .98408,
     +     .01938,    .00921,  16.37824,   1.05023,    .50582,
     +     .00000,    .81936,   1.05170,
     +     .01964,    .00935,  18.20716,   1.10707,    .56672,
     +     .00000,    .87736,   1.10853,
     +     .02016,    .00962,  22.42468,   1.23865,    .70496,
     +     .00000,   1.01134,   1.24012,
     +     .02063,    .00987,  25.97236,   1.36219,    .83360,
     +     .17354,   1.13690,   1.36367,
     +     .02116,    .01016,  30.46877,   1.51262,    .99011,
     +     .35657,   1.28951,   1.51409,
     +     .02172,    .01046,  35.55909,   1.68242,   1.16626,
     +     .54156,   1.46154,   1.68390,
     +     .02223,    .01073,  40.52279,   1.84833,   1.33794,
     +     .72184,   1.62940,   1.84981 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
     +     .02276,    .01102,  45.86854,   2.02768,   1.52332,
     +     .91550,   1.81069,   2.02918,
     +     .02319,    .01126,  50.53285,   2.18547,   1.68554,
     +    1.08274,   1.97003,   2.18697,
     +     .02373,    .01154,  56.45174,   2.38763,   1.89261,
     +    1.29518,   2.17404,   2.38913,
     +     .02421,    .01180,  61.95820,   2.57692,   2.08668,
     +    1.49529,   2.36493,   2.57842,
     +     .02464,    .01204,  67.22610,   2.75929,   2.27368,
     +    1.68821,   2.54873,   2.76081,
     +     .02522,    .01235,  74.10799,   3.00138,   2.52031,
     +    1.93974,   2.79260,   3.00290,
     +     .02575,    .01264,  80.85629,   3.24122,   2.76481,
     +    2.18987,   3.03407,   3.24274,
     +     .02626,    .01292,  87.44339,   3.47728,   3.00588,
     +    2.43750,   3.27164,   3.47881 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
     +     .02677,    .01320,  94.12738,   3.72164,   3.25370,
     +    2.68903,   3.51747,   3.72318,
     +     .02727,    .01348, 100.89659,   3.97130,   3.50741,
     +    2.94779,   3.76854,   3.97285,
     +     .02776,    .01375, 107.47630,   4.21678,   3.75679,
     +    3.20211,   4.01533,   4.21834,
     +     .02821,    .01400, 113.75072,   4.45471,   3.99773,
     +    3.44665,   4.25447,   4.45628,
     +     .02868,    .01425, 120.25905,   4.70305,   4.24988,
     +    3.70382,   4.50403,   4.70463,
     +     .02913,    .01451, 126.66725,   4.95236,   4.50185,
     +    3.95894,   4.75449,   4.95395,
     +     .02957,    .01475, 132.96256,   5.19835,   4.75130,
     +    4.21302,   5.00157,   5.19995,
     +     .02999,    .01498, 138.89246,   5.43458,   4.98979,
     +    4.45429,   5.23883,   5.43619 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
     +     .03041,    .01522, 145.03704,   5.68064,   5.23879,
     +    4.70723,   5.48590,   5.68227,
     +     .03083,    .01545, 151.11426,   5.92774,   5.48831,
     +    4.95993,   5.73396,   5.92937,
     +     .03124,    .01567, 156.99319,   6.16910,   5.73208,
     +    5.20690,   5.97625,   6.17074,
     +     .03163,    .01589, 162.66194,   6.40365,   5.96918,
     +    5.44751,   6.21168,   6.40530,
     +     .03201,    .01611, 168.35186,   6.64314,   6.21053,
     +    5.69132,   6.45203,   6.64479 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
     +     .01776,    .00835,    .87298,    .51358,    .00000,
     +     .00000,    .27730,    .51456,
     +     .01813,    .00854,   1.74479,    .54287,    .00000,
     +     .00000,    .30865,    .54384,
     +     .01868,    .00882,   3.26984,    .59608,    .04089,
     +     .00000,    .36478,    .59705,
     +     .01910,    .00905,   4.60465,    .64135,    .09957,
     +     .00000,    .41209,    .64232,
     +     .01955,    .00928,   6.23873,    .69635,    .15842,
     +     .00000,    .46919,    .69732,
     +     .01993,    .00948,   7.82907,    .74935,    .21454,
     +     .00000,    .52394,    .75032,
     +     .02031,    .00968,   9.54791,    .80493,    .27492,
     +     .00000,    .58119,    .80592,
     +     .02071,    .00989,  11.58209,    .86931,    .34522,
     +     .00000,    .64726,    .87029 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
     +     .02106,    .01008,  13.48946,    .93016,    .40947,
     +     .00000,    .70956,    .93114,
     +     .02140,    .01026,  15.47382,    .99307,    .47586,
     +     .00000,    .77384,    .99405,
     +     .02167,    .01040,  17.16821,   1.04586,    .53243,
     +     .00000,    .82770,   1.04685,
     +     .02226,    .01072,  21.06100,   1.16772,    .66047,
     +     .00000,    .95178,   1.16871,
     +     .02277,    .01099,  24.31646,   1.28179,    .77925,
     +     .16011,   1.06769,   1.28278,
     +     .02337,    .01130,  28.42670,   1.42025,    .92334,
     +     .32887,   1.20817,   1.42124,
     +     .02398,    .01165,  33.05889,   1.57607,   1.08499,
     +     .49877,   1.36604,   1.57709,
     +     .02455,    .01195,  37.55680,   1.72788,   1.24207,
     +     .66384,   1.51963,   1.72890 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
     +     .02512,    .01226,  42.38211,   1.89155,   1.41121,
     +     .84067,   1.68507,   1.89257,
     +     .02561,    .01253,  46.57739,   2.03518,   1.55887,
     +     .99299,   1.83013,   2.03621,
     +     .02620,    .01285,  51.88260,   2.21872,   1.74685,
     +    1.18596,   2.01538,   2.21977,
     +     .02672,    .01313,  56.80166,   2.39018,   1.92263,
     +    1.36731,   2.18830,   2.39124,
     +     .02721,    .01340,  61.49380,   2.55503,   2.09163,
     +    1.54177,   2.35448,   2.55609,
     +     .02783,    .01375,  67.60276,   2.77331,   2.31398,
     +    1.76863,   2.57438,   2.77439,
     +     .02842,    .01407,  73.57335,   2.98903,   2.53387,
     +    1.99370,   2.79161,   2.99012,
     +     .02898,    .01438,  79.38411,   3.20089,   2.75021,
     +    2.21603,   3.00485,   3.20200 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
     +     .02954,    .01469,  85.26112,   3.41968,   2.97206,
     +    2.44129,   3.22499,   3.42080,
     +     .03010,    .01500,  91.19704,   3.64276,   3.19874,
     +    2.67259,   3.44936,   3.64389,
     +     .03063,    .01530,  96.95153,   3.86166,   3.42111,
     +    2.89947,   3.66947,   3.86281,
     +     .03113,    .01557, 102.42401,   4.07341,   3.63551,
     +    3.11715,   3.88234,   4.07458,
     +     .03164,    .01586, 108.08861,   4.29407,   3.85953,
     +    3.34573,   4.10409,   4.29524,
     +     .03214,    .01614, 113.65060,   4.51513,   4.08293,
     +    3.57200,   4.32623,   4.51633,
     +     .03262,    .01641, 119.10445,   4.73294,   4.30381,
     +    3.79706,   4.54504,   4.73414,
     +     .03308,    .01666, 124.22854,   4.94172,   4.51456,
     +    4.01033,   4.75475,   4.94294 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
     +     .03355,    .01692, 129.52917,   5.15889,   4.73431,
     +    4.23365,   4.97285,   5.16013,
     +     .03401,    .01718, 134.75967,   5.37661,   4.95415,
     +    4.45638,   5.19146,   5.37786,
     +     .03445,    .01742, 139.81027,   5.58896,   5.16863,
     +    4.67374,   5.40467,   5.59023,
     +     .03487,    .01766, 144.67207,   5.79507,   5.37697,
     +    4.88525,   5.61157,   5.79636,
     +     .03531,    .01790, 149.54116,   6.00519,   5.58870,
     +    5.09921,   5.82248,   6.00648 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
     +     .02417,    .01164,    .80374,    .43728,    .00000,
     +     .00000,    .23770,    .43745,
     +     .02467,    .01190,   1.59118,    .46340,    .00000,
     +     .00000,    .26544,    .46358,
     +     .02542,    .01231,   2.93418,    .50948,    .03679,
     +     .00000,    .31381,    .50966,
     +     .02600,    .01262,   4.08659,    .54791,    .08669,
     +     .00000,    .35387,    .54811,
     +     .02660,    .01294,   5.47142,    .59382,    .13579,
     +     .00000,    .40143,    .59403,
     +     .02713,    .01322,   6.79718,    .63749,    .18207,
     +     .00000,    .44646,    .63769,
     +     .02763,    .01350,   8.21086,    .68284,    .23143,
     +     .00000,    .49310,    .68306,
     +     .02819,    .01380,   9.86202,    .73490,    .28837,
     +     .00000,    .54649,    .73513 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
     +     .02866,    .01406,  11.39038,    .78365,    .33993,
     +     .00000,    .59638,    .78389,
     +     .02912,    .01432,  12.96327,    .83369,    .39281,
     +     .00000,    .64747,    .83393,
     +     .02949,    .01452,  14.29469,    .87544,    .43763,
     +     .00000,    .69008,    .87571,
     +     .03029,    .01496,  17.31755,    .97099,    .53817,
     +     .00000,    .78735,    .97128,
     +     .03100,    .01534,  19.79784,   1.05955,    .63053,
     +     .12378,    .87735,   1.05986,
     +     .03179,    .01579,  22.89036,   1.16607,    .74152,
     +     .25456,    .98543,   1.16640,
     +     .03264,    .01626,  26.32562,   1.28479,    .86481,
     +     .38464,   1.10573,   1.28514,
     +     .03340,    .01669,  29.61629,   1.39936,    .98350,
     +     .50984,   1.22170,   1.39974 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
     +     .03418,    .01712,  33.10270,   1.52185,   1.11023,
     +     .64279,   1.34556,   1.52226,
     +     .03484,    .01749,  36.09943,   1.62848,   1.21995,
     +     .75634,   1.45330,   1.62891,
     +     .03563,    .01794,  39.84688,   1.76369,   1.35856,
     +     .89906,   1.58983,   1.76415,
     +     .03634,    .01834,  43.28434,   1.88903,   1.48717,
     +    1.03218,   1.71631,   1.88952,
     +     .03700,    .01871,  46.53235,   2.00874,   1.61001,
     +    1.15938,   1.83703,   2.00925,
     +     .03784,    .01918,  50.71486,   2.16600,   1.77034,
     +    1.32343,   1.99556,   2.16656,
     +     .03863,    .01963,  54.75934,   2.32023,   1.92768,
     +    1.48493,   2.15096,   2.32081,
     +     .03939,    .02005,  58.65833,   2.47065,   2.08143,
     +    1.64342,   2.30245,   2.47128 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
     +     .04015,    .02048,  62.55994,   2.62483,   2.23786,
     +    1.80266,   2.45767,   2.62548,
     +     .04089,    .02091,  66.46664,   2.78101,   2.39670,
     +    1.96518,   2.61485,   2.78170,
     +     .04159,    .02131,  70.22150,   2.93331,   2.55154,
     +    2.12358,   2.76807,   2.93402,
     +     .04227,    .02168,  73.76060,   3.07968,   2.69985,
     +    2.27454,   2.91531,   3.08043,
     +     .04295,    .02207,  77.39920,   3.23142,   2.85406,
     +    2.43231,   3.06791,   3.23220,
     +     .04362,    .02246,  80.93934,   3.38247,   3.00681,
     +    2.58740,   3.21978,   3.38328,
     +     .04427,    .02282,  84.39031,   3.53060,   3.15716,
     +    2.74101,   3.36868,   3.53143,
     +     .04487,    .02317,  87.60490,   3.67174,   3.29973,
     +    2.88563,   3.51054,   3.67261 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
     +     .04550,    .02352,  90.91236,   3.81793,   3.44781,
     +    3.03649,   3.65745,   3.81883,
     +     .04610,    .02387,  94.15145,   3.96371,   3.59513,
     +    3.18610,   3.80393,   3.96464,
     +     .04669,    .02421,  97.26017,   4.10525,   3.73820,
     +    3.33146,   3.94613,   4.10621,
     +     .04726,    .02452, 100.23656,   4.24206,   3.87662,
     +    3.47233,   4.08355,   4.24305,
     +     .04783,    .02485, 103.19506,   4.38082,   4.01656,
     +    3.61406,   4.22292,   4.38183 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
     +     .03303,    .01632,    .74244,    .37397,    .00000,
     +     .00000,    .20545,    .37423,
     +     .03370,    .01668,   1.45515,    .39687,    .00000,
     +     .00000,    .22968,    .39715,
     +     .03472,    .01724,   2.63690,    .43624,    .03346,
     +     .00000,    .27092,    .43657,
     +     .03548,    .01765,   3.63061,    .46852,    .07555,
     +     .00000,    .30449,    .46887,
     +     .03629,    .01812,   4.80116,    .50645,    .11616,
     +     .00000,    .34376,    .50684,
     +     .03700,    .01851,   5.90222,    .54206,    .15402,
     +     .00000,    .38047,    .54246,
     +     .03769,    .01890,   7.05955,    .57870,    .19402,
     +     .00000,    .41816,    .57914,
     +     .03843,    .01932,   8.39245,    .62040,    .23976,
     +     .00000,    .46093,    .62087 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
     +     .03908,    .01968,   9.60933,    .65907,    .28080,
     +     .00000,    .50052,    .65958,
     +     .03970,    .02003,  10.84731,    .69848,    .32258,
     +     .00000,    .54078,    .69901,
     +     .04020,    .02031,  11.88558,    .73119,    .35779,
     +     .00000,    .57418,    .73175,
     +     .04128,    .02094,  14.21342,    .80538,    .43610,
     +     .00000,    .64975,    .80598,
     +     .04223,    .02147,  16.08599,    .87347,    .50731,
     +     .09416,    .71900,    .87412,
     +     .04331,    .02208,  18.38802,    .95458,    .59210,
     +     .19489,    .80138,    .95529,
     +     .04443,    .02274,  20.90602,   1.04408,    .68533,
     +     .29381,    .89214,   1.04484,
     +     .04547,    .02334,  23.28322,   1.12964,    .77421,
     +     .38811,    .97883,   1.13045 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
     +     .04653,    .02394,  25.76838,   1.22030,    .86828,
     +     .48736,   1.07059,   1.22117,
     +     .04741,    .02444,  27.87840,   1.29859,    .94907,
     +     .57140,   1.14977,   1.29950,
     +     .04848,    .02506,  30.48541,   1.39704,   1.05026,
     +     .67616,   1.24928,   1.39801,
     +     .04943,    .02561,  32.84933,   1.48759,   1.14345,
     +     .77312,   1.34075,   1.48863,
     +     .05032,    .02613,  35.06037,   1.57348,   1.23182,
     +     .86512,   1.42746,   1.57455,
     +     .05145,    .02677,  37.87367,   1.68538,   1.34620,
     +     .98274,   1.54039,   1.68653,
     +     .05251,    .02739,  40.56305,   1.79426,   1.45755,
     +    1.09763,   1.65020,   1.79546,
     +     .05352,    .02797,  43.12941,   1.89968,   1.56560,
     +    1.20959,   1.75648,   1.90095 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
     +     .05453,    .02855,  45.66726,   2.00687,   1.67462,
     +    1.32109,   1.86450,   2.00819,
     +     .05552,    .02913,  48.18482,   2.11472,   1.78459,
     +    1.43418,   1.97317,   2.11610,
     +     .05647,    .02968,  50.58205,   2.21919,   1.89109,
     +    1.54367,   2.07840,   2.22063,
     +     .05736,    .03019,  52.81912,   2.31893,   1.99239,
     +    1.64727,   2.17883,   2.32043,
     +     .05827,    .03072,  55.10254,   2.42177,   2.09717,
     +    1.75501,   2.28235,   2.42331,
     +     .05916,    .03123,  57.30125,   2.52343,   2.20021,
     +    1.86011,   2.38469,   2.52503,
     +     .06002,    .03172,  59.43138,   2.62265,   2.30119,
     +    1.96379,   2.48454,   2.62431,
     +     .06082,    .03219,  61.39607,   2.71660,   2.39630,
     +    2.06071,   2.57906,   2.71830 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
     +     .06164,    .03266,  63.40602,   2.81346,   2.49466,
     +    2.16140,   2.67651,   2.81521,
     +     .06245,    .03313,  65.35750,   2.90950,   2.59195,
     +    2.26066,   2.77311,   2.91130,
     +     .06324,    .03359,  67.21790,   3.00230,   2.68598,
     +    2.35665,   2.86646,   3.00416,
     +     .06398,    .03401,  68.98856,   3.09161,   2.77659,
     +    2.44931,   2.95627,   3.09351,
     +     .06473,    .03444,  70.73311,   3.18169,   2.86764,
     +    2.54194,   3.04685,   3.18364 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
     +     .03971,    .01991,    .71353,    .34231,    .00000,
     +     .00000,    .18961,    .34297,
     +     .04049,    .02036,   1.38668,    .36330,    .00000,
     +     .00000,    .21178,    .36401,
     +     .04169,    .02103,   2.48247,    .39893,    .03178,
     +     .00000,    .24909,    .39969,
     +     .04259,    .02154,   3.39253,    .42786,    .06967,
     +     .00000,    .27919,    .42867,
     +     .04357,    .02210,   4.45118,    .46157,    .10580,
     +     .00000,    .31408,    .46241,
     +     .04441,    .02258,   5.43606,    .49295,    .13925,
     +     .00000,    .34648,    .49385,
     +     .04523,    .02304,   6.46192,    .52511,    .17443,
     +     .00000,    .37955,    .52604,
     +     .04610,    .02355,   7.63308,    .56150,    .21444,
     +     .00000,    .41692,    .56248 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
     +     .04688,    .02399,   8.69308,    .59508,    .25014,
     +     .00000,    .45131,    .59610,
     +     .04761,    .02442,   9.76368,    .62912,    .28635,
     +     .00000,    .48614,    .63020,
     +     .04822,    .02477,  10.65643,    .65731,    .31676,
     +     .00000,    .51493,    .65842,
     +     .04949,    .02550,  12.64237,    .72090,    .38403,
     +     .00000,    .57976,    .72208,
     +     .05063,    .02616,  14.22070,    .77891,    .44485,
     +     .07935,    .63881,    .78015,
     +     .05192,    .02691,  16.14298,    .84764,    .51685,
     +     .16540,    .70867,    .84896,
     +     .05326,    .02769,  18.22529,    .92299,    .59555,
     +     .24926,    .78517,    .92440,
     +     .05449,    .02841,  20.17323,    .99463,    .67016,
     +     .32876,    .85782,    .99611 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
     +     .05574,    .02914,  22.19256,   1.07012,    .74867,
     +     .41195,    .93432,   1.07169,
     +     .05679,    .02975,  23.89377,   1.13499,    .81576,
     +     .48204,    .99999,   1.13661,
     +     .05806,    .03050,  25.97969,   1.21615,    .89939,
     +     .56896,   1.08211,   1.21786,
     +     .05919,    .03116,  27.85735,   1.29046,    .97602,
     +     .64904,   1.15724,   1.29224,
     +     .06025,    .03177,  29.60231,   1.36063,   1.04839,
     +     .72469,   1.22816,   1.36247,
     +     .06157,    .03255,  31.80557,   1.45160,   1.14158,
     +     .82091,   1.32004,   1.45353,
     +     .06284,    .03329,  33.89643,   1.53966,   1.23186,
     +     .91444,   1.40895,   1.54167,
     +     .06404,    .03399,  35.87880,   1.62456,   1.31907,
     +    1.00519,   1.49465,   1.62665 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
     +     .06523,    .03468,  37.82408,   1.71044,   1.40662,
     +    1.09508,   1.58129,   1.71262,
     +     .06640,    .03537,  39.74236,   1.79652,   1.49457,
     +    1.18589,   1.66809,   1.79877,
     +     .06751,    .03602,  41.55799,   1.87955,   1.57939,
     +    1.27345,   1.75181,   1.88187,
     +     .06857,    .03663,  43.24131,   1.95848,   1.65973,
     +    1.35594,   1.83137,   1.96087,
     +     .06964,    .03725,  44.95167,   2.03959,   1.74257,
     +    1.44147,   1.91311,   2.04206,
     +     .07069,    .03787,  46.58717,   2.11943,   1.82366,
     +    1.52451,   1.99356,   2.12197,
     +     .07169,    .03846,  48.16558,   2.19712,   1.90291,
     +    1.60621,   2.07183,   2.19972,
     +     .07265,    .03900,  49.61165,   2.27039,   1.97724,
     +    1.68224,   2.14562,   2.27306 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
     +     .07360,    .03956,  51.08580,   2.34572,   2.05391,
     +    1.76104,   2.22149,   2.34846,
     +     .07456,    .04012,  52.50875,   2.42014,   2.12947,
     +    1.83844,   2.29643,   2.42294,
     +     .07548,    .04065,  53.85932,   2.49185,   2.20228,
     +    1.91306,   2.36863,   2.49471,
     +     .07634,    .04116,  55.13978,   2.56066,   2.27225,
     +    1.98490,   2.43790,   2.56358,
     +     .07722,    .04166,  56.39362,   2.62983,   2.34231,
     +    2.05645,   2.50752,   2.63281 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
     +     .04525,    .02294,    .69982,    .32170,    .00000,
     +     .00000,    .17947,    .32286,
     +     .04614,    .02344,   1.34639,    .34136,    .00000,
     +     .00000,    .20022,    .34257,
     +     .04749,    .02421,   2.38415,    .37444,    .03063,
     +     .00000,    .23484,    .37572,
     +     .04851,    .02480,   3.23805,    .40113,    .06570,
     +     .00000,    .26261,    .40247,
     +     .04960,    .02543,   4.22197,    .43205,    .09881,
     +     .00000,    .29463,    .43344,
     +     .05055,    .02599,   5.12976,    .46069,    .12938,
     +     .00000,    .32419,    .46214,
     +     .05147,    .02652,   6.06894,    .48992,    .16138,
     +     .00000,    .35429,    .49142,
     +     .05247,    .02710,   7.13406,    .52288,    .19767,
     +     .00000,    .38815,    .52445 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
     +     .05334,    .02762,   8.09189,    .55318,    .22991,
     +     .00000,    .41920,    .55478,
     +     .05418,    .02811,   9.05409,    .58379,    .26251,
     +     .00000,    .45054,    .58546,
     +     .05486,    .02851,   9.85295,    .60909,    .28983,
     +     .00000,    .47639,    .61079,
     +     .05631,    .02936,  11.61959,    .66594,    .35005,
     +     .00000,    .53440,    .66773,
     +     .05759,    .03011,  13.01109,    .71757,    .40426,
     +     .06991,    .58700,    .71944,
     +     .05904,    .03097,  14.69365,    .77848,    .46817,
     +     .14664,    .64897,    .78044,
     +     .06057,    .03186,  16.50305,    .84498,    .53770,
     +     .22100,    .71653,    .84703,
     +     .06196,    .03268,  18.18406,    .90792,    .60334,
     +     .29119,    .78042,    .91006 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
     +     .06337,    .03352,  19.91563,    .97398,    .67217,
     +     .36437,    .84740,    .97623,
     +     .06455,    .03421,  21.36586,   1.03053,    .73075,
     +     .42578,    .90471,   1.03285,
     +     .06599,    .03506,  23.13378,   1.10103,    .80350,
     +     .50165,    .97610,   1.10344,
     +     .06728,    .03582,  24.71644,   1.16534,    .86992,
     +     .57130,   1.04118,   1.16784,
     +     .06845,    .03651,  26.18009,   1.22587,    .93246,
     +     .63691,   1.10242,   1.22845,
     +     .06996,    .03740,  28.01733,   1.30405,   1.01267,
     +     .72000,   1.18146,   1.30673,
     +     .07139,    .03823,  29.75120,   1.37946,   1.09009,
     +     .80049,   1.25766,   1.38223,
     +     .07272,    .03902,  31.38701,   1.45192,   1.16465,
     +     .87833,   1.33086,   1.45479 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
     +     .07406,    .03981,  32.98270,   1.52493,   1.23920,
     +     .95515,   1.40459,   1.52790,
     +     .07538,    .04058,  34.54912,   1.59788,   1.31388,
     +    1.03251,   1.47824,   1.60094,
     +     .07664,    .04133,  36.02488,   1.66805,   1.38568,
     +    1.10688,   1.54904,   1.67119,
     +     .07782,    .04202,  37.38615,   1.73453,   1.45345,
     +    1.17671,   1.61611,   1.73775,
     +     .07902,    .04272,  38.76451,   1.80267,   1.52317,
     +    1.24893,   1.68486,   1.80598,
     +     .08020,    .04340,  40.07532,   1.86953,   1.59119,
     +    1.31882,   1.75229,   1.87292,
     +     .08132,    .04407,  41.33674,   1.93445,   1.65752,
     +    1.38745,   1.81774,   1.93792,
     +     .08239,    .04469,  42.48623,   1.99547,   1.71955,
     +    1.45110,   1.87928,   1.99902 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
     +     .08346,    .04532,  43.65487,   2.05810,   1.78340,
     +    1.51696,   1.94241,   2.06172,
     +     .08452,    .04594,  44.77770,   2.11979,   1.84614,
     +    1.58145,   2.00459,   2.12350,
     +     .08555,    .04653,  45.83975,   2.17910,   1.90648,
     +    1.64349,   2.06436,   2.18288,
     +     .08652,    .04710,  46.84366,   2.23590,   1.96434,
     +    1.70311,   2.12160,   2.23975,
     +     .08749,    .04767,  47.82180,   2.29283,   2.02211,
     +    1.76231,   2.17896,   2.29675 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
     +     .05012,    .02572,    .69649,    .30762,    .00000,
     +     .00000,    .17225,    .30886,
     +     .05110,    .02628,   1.32290,    .32622,    .00000,
     +     .00000,    .19187,    .32753,
     +     .05257,    .02714,   2.31676,    .35733,    .02968,
     +     .00000,    .22440,    .35872,
     +     .05370,    .02779,   3.12821,    .38232,    .06258,
     +     .00000,    .25039,    .38377,
     +     .05491,    .02850,   4.05573,    .41112,    .09346,
     +     .00000,    .28020,    .41265,
     +     .05595,    .02912,   4.90552,    .43771,    .12184,
     +     .00000,    .30765,    .43930,
     +     .05697,    .02971,   5.77966,    .46476,    .15151,
     +     .00000,    .33548,    .46641,
     +     .05807,    .03036,   6.76555,    .49518,    .18503,
     +     .00000,    .36674,    .49690 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
     +     .05903,    .03093,   7.64736,    .52305,    .21472,
     +     .00000,    .39531,    .52483,
     +     .05996,    .03148,   8.52916,    .55115,    .24467,
     +     .00000,    .42409,    .55299,
     +     .06071,    .03192,   9.25863,    .57432,    .26972,
     +     .00000,    .44777,    .57621,
     +     .06231,    .03287,  10.86397,    .62624,    .32478,
     +     .00000,    .50077,    .62824,
     +     .06371,    .03371,  12.11891,    .67323,    .37418,
     +     .06309,    .54866,    .67532,
     +     .06531,    .03465,  13.62734,    .72847,    .43222,
     +     .13302,    .60489,    .73068,
     +     .06699,    .03564,  15.23948,    .78856,    .49512,
     +     .20048,    .66598,    .79087,
     +     .06851,    .03656,  16.72858,    .84523,    .55431,
     +     .26395,    .72353,    .84766 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
     +     .07008,    .03748,  18.25438,    .90453,    .61615,
     +     .32988,    .78370,    .90706,
     +     .07137,    .03824,  19.52585,    .95512,    .66864,
     +     .38504,    .83501,    .95775,
     +     .07295,    .03918,  21.06853,   1.01802,    .73360,
     +     .45299,    .89873,   1.02074,
     +     .07436,    .04001,  22.44310,   1.07521,    .79275,
     +     .51518,    .95665,   1.07804,
     +     .07565,    .04078,  23.70895,   1.12890,    .84829,
     +     .57360,   1.01100,   1.13182,
     +     .07730,    .04175,  25.28997,   1.19802,    .91930,
     +     .64736,   1.08093,   1.20106,
     +     .07886,    .04267,  26.77506,   1.26448,    .98764,
     +     .71860,   1.14814,   1.26764,
     +     .08032,    .04353,  28.17045,   1.32816,   1.05326,
     +     .78731,   1.21252,   1.33143 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
     +     .08179,    .04439,  29.52444,   1.39215,   1.11867,
     +     .85489,   1.27718,   1.39551,
     +     .08323,    .04524,  30.84848,   1.45591,   1.18401,
     +     .92277,   1.34158,   1.45938,
     +     .08461,    .04604,  32.09092,   1.51706,   1.24669,
     +     .98787,   1.40336,   1.52063,
     +     .08589,    .04680,  33.23203,   1.57485,   1.30569,
     +    1.04883,   1.46171,   1.57852,
     +     .08720,    .04757,  34.38416,   1.63397,   1.36627,
     +    1.11176,   1.52139,   1.63773,
     +     .08848,    .04831,  35.47455,   1.69181,   1.42521,
     +    1.17248,   1.57977,   1.69567,
     +     .08971,    .04903,  36.52132,   1.74788,   1.48257,
     +    1.23200,   1.63636,   1.75183,
     +     .09087,    .04971,  37.47067,   1.80044,   1.53607,
     +    1.28706,   1.68939,   1.80447 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
     +     .09204,    .05039,  38.43360,   1.85428,   1.59106,
     +    1.34393,   1.74371,   1.85840,
     +     .09319,    .05106,  39.35494,   1.90721,   1.64497,
     +    1.39950,   1.79710,   1.91140,
     +     .09430,    .05171,  40.22374,   1.95798,   1.69672,
     +    1.45286,   1.84832,   1.96227,
     +     .09535,    .05232,  41.04288,   2.00654,   1.74625,
     +    1.50405,   1.89728,   2.01090,
     +     .09641,    .05294,  41.83752,   2.05508,   1.79560,
     +    1.55476,   1.94624,   2.05953 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
     +     .06904,    .03684,    .70544,    .26940,    .00000,
     +     .00000,    .15317,    .27166,
     +     .07033,    .03762,   1.27345,    .28468,    .00000,
     +     .00000,    .16925,    .28702,
     +     .07232,    .03882,   2.13903,    .30984,    .02673,
     +     .00000,    .19556,    .31231,
     +     .07383,    .03974,   2.82719,    .32980,    .05339,
     +     .00000,    .21634,    .33238,
     +     .07545,    .04073,   3.59284,    .35252,    .07785,
     +     .00000,    .23990,    .35520,
     +     .07687,    .04158,   4.27810,    .37326,    .10012,
     +     .00000,    .26134,    .37605,
     +     .07824,    .04241,   4.96942,    .39418,    .12323,
     +     .00000,    .28292,    .39707,
     +     .07973,    .04331,   5.73468,    .41751,    .14910,
     +     .00000,    .30694,    .42050 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
     +     .08102,    .04409,   6.40681,    .43869,    .17180,
     +     .00000,    .32870,    .44178,
     +     .08228,    .04486,   7.06872,    .45988,    .19453,
     +     .00000,    .35045,    .46308,
     +     .08329,    .04547,   7.60964,    .47725,    .21344,
     +     .00000,    .36825,    .48052,
     +     .08545,    .04677,   8.78057,    .51582,    .25458,
     +     .00000,    .40773,    .51926,
     +     .08734,    .04791,   9.67307,    .55035,    .29108,
     +     .04447,    .44301,    .55392,
     +     .08948,    .04921,  10.72290,    .59049,    .33350,
     +     .09630,    .48398,    .59422,
     +     .09173,    .05055,  11.82172,    .63362,    .37894,
     +     .14556,    .52795,    .63753,
     +     .09377,    .05178,  12.81673,    .67383,    .42120,
     +     .19138,    .56892,    .67789 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
     +     .09584,    .05302,  13.81772,    .71546,    .46489,
     +     .23847,    .61129,    .71968,
     +     .09757,    .05405,  14.63767,    .75062,    .50158,
     +     .27746,    .64704,    .75497,
     +     .09967,    .05530,  15.61579,    .79385,    .54654,
     +     .32500,    .69101,    .79838,
     +     .10154,    .05641,  16.47336,    .83279,    .58709,
     +     .36811,    .73058,    .83747,
     +     .10324,    .05742,  17.25186,    .86902,    .62482,
     +     .40825,    .76737,    .87384,
     +     .10542,    .05870,  18.20704,    .91519,    .67255,
     +     .45838,    .81424,    .92017,
     +     .10746,    .05991,  19.08953,    .95911,    .71802,
     +     .50632,    .85881,    .96425,
     +     .10939,    .06104,  19.90674,   1.00081,    .76130,
     +     .55217,    .90112,   1.00610 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
     +     .11130,    .06216,  20.68488,   1.04225,    .80396,
     +     .59674,    .94315,   1.04770,
     +     .11318,    .06325,  21.43549,   1.08319,    .84623,
     +     .64118,    .98467,   1.08878,
     +     .11496,    .06429,  22.12986,   1.12213,    .88642,
     +     .68342,   1.02413,   1.12786,
     +     .11663,    .06527,  22.75723,   1.15857,    .92391,
     +     .72261,   1.06108,   1.16444,
     +     .11832,    .06625,  23.38416,   1.19560,    .96214,
     +     .76281,   1.09860,   1.20161,
     +     .11996,    .06721,  23.96663,   1.23148,    .99898,
     +     .80122,   1.13496,   1.23761,
     +     .12154,    .06812,  24.52115,   1.26605,   1.03465,
     +     .83867,   1.17000,   1.27231,
     +     .12302,    .06898,  25.01474,   1.29816,   1.06759,
     +     .87300,   1.20252,   1.30454 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
     +     .12452,    .06984,  25.51142,   1.33087,   1.10128,
     +     .90827,   1.23566,   1.33737,
     +     .12600,    .07069,  25.97900,   1.36276,   1.13403,
     +     .94246,   1.26798,   1.36937,
     +     .12740,    .07149,  26.41491,   1.39315,   1.16527,
     +     .97508,   1.29876,   1.39989,
     +     .12875,    .07226,  26.82194,   1.42205,   1.19503,
     +    1.00623,   1.32804,   1.42890,
     +     .13009,    .07303,  27.20949,   1.45071,   1.22441,
     +    1.03681,   1.35706,   1.45765 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
     +     .09563,    .05321,    .77712,    .23907,    .00000,
     +     .00000,    .13766,    .24297,
     +     .09737,    .05430,   1.28784,    .25100,    .00000,
     +     .00000,    .15027,    .25504,
     +     .10005,    .05597,   2.03031,    .27053,    .02309,
     +     .00000,    .17076,    .27477,
     +     .10210,    .05723,   2.60169,    .28592,    .04417,
     +     .00000,    .18683,    .29032,
     +     .10428,    .05859,   3.21855,    .30325,    .06302,
     +     .00000,    .20487,    .30783,
     +     .10619,    .05976,   3.75591,    .31892,    .08006,
     +     .00000,    .22114,    .32366,
     +     .10805,    .06090,   4.28582,    .33460,    .09759,
     +     .00000,    .23738,    .33950,
     +     .11005,    .06213,   4.85976,    .35195,    .11706,
     +     .00000,    .25532,    .35701 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
     +     .11179,    .06320,   5.35336,    .36754,    .13397,
     +     .00000,    .27143,    .37276,
     +     .11349,    .06422,   5.83079,    .38304,    .15077,
     +     .00000,    .28740,    .38839,
     +     .11485,    .06506,   6.21541,    .39566,    .16465,
     +     .00000,    .30040,    .40113,
     +     .11774,    .06680,   7.03232,    .42340,    .19457,
     +     .00000,    .32893,    .42911,
     +     .12027,    .06832,   7.63689,    .44791,    .22079,
     +     .02917,    .35412,    .45384,
     +     .12312,    .07002,   8.32786,    .47607,    .25088,
     +     .06662,    .38301,    .48224,
     +     .12609,    .07179,   9.03310,    .50590,    .28268,
     +     .10163,    .41360,    .51233,
     +     .12879,    .07340,   9.65633,    .53335,    .31188,
     +     .13379,    .44174,    .54002 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
     +     .13152,    .07500,  10.26926,    .56141,    .34169,
     +     .16643,    .47046,    .56831,
     +     .13378,    .07634,  10.76065,    .58483,    .36643,
     +     .19313,    .49444,    .59192,
     +     .13651,    .07793,  11.33423,    .61330,    .39639,
     +     .22533,    .52357,    .62062,
     +     .13893,    .07934,  11.82700,    .63864,    .42310,
     +     .25420,    .54947,    .64616,
     +     .14115,    .08063,  12.26634,    .66196,    .44772,
     +     .28083,    .57332,    .66967,
     +     .14394,    .08225,  12.79269,    .69129,    .47845,
     +     .31366,    .60330,    .69924,
     +     .14657,    .08376,  13.26835,    .71886,    .50740,
     +     .34471,    .63148,    .72704,
     +     .14903,    .08517,  13.70037,    .74475,    .53466,
     +     .37410,    .65795,    .75315 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
     +     .15146,    .08655,  14.10098,    .77015,    .56118,
     +     .40231,    .68390,    .77874,
     +     .15384,    .08791,  14.48035,    .79498,    .58720,
     +     .43016,    .70926,    .80377,
     +     .15608,    .08917,  14.82437,    .81833,    .61171,
     +     .45640,    .73313,    .82731,
     +     .15818,    .09037,  15.12755,    .83996,    .63430,
     +     .48046,    .75522,    .84912,
     +     .16029,    .09155,  15.42637,    .86175,    .65717,
     +     .50498,    .77750,    .87109,
     +     .16235,    .09271,  15.69580,    .88260,    .67894,
     +     .52812,    .79881,    .89211,
     +     .16431,    .09380,  15.94958,    .90255,    .69989,
     +     .55056,    .81919,    .91222,
     +     .16613,    .09482,  16.16837,    .92085,    .71901,
     +     .57088,    .83791,    .93068 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
     +     .16799,    .09584,  16.38617,    .93938,    .73844,
     +     .59165,    .85686,    .94937,
     +     .16980,    .09685,  16.58555,    .95725,    .75715,
     +     .61158,    .87513,    .96740,
     +     .17153,    .09779,  16.76800,    .97416,    .77486,
     +     .63047,    .89242,    .98444,
     +     .17316,    .09869,  16.93572,    .99011,    .79160,
     +     .64838,    .90874,   1.00053,
     +     .17479,    .09959,  17.08986,   1.00575,    .80798,
     +     .66580,    .92475,   1.01631 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
     +     .11591,    .06597,    .86312,    .22319,    .00000,
     +     .00000,    .12921,    .22852,
     +     .11801,    .06730,   1.33520,    .23328,    .00000,
     +     .00000,    .13991,    .23879,
     +     .12121,    .06933,   2.00494,    .24974,    .02030,
     +     .00000,    .15727,    .25554,
     +     .12365,    .07086,   2.50845,    .26271,    .03843,
     +     .00000,    .17088,    .26871,
     +     .12627,    .07248,   3.04160,    .27722,    .05441,
     +     .00000,    .18606,    .28346,
     +     .12855,    .07387,   3.49794,    .29028,    .06876,
     +     .00000,    .19968,    .29672,
     +     .13077,    .07524,   3.94114,    .30330,    .08349,
     +     .00000,    .21323,    .30993,
     +     .13316,    .07669,   4.41429,    .31761,    .09976,
     +     .00000,    .22813,    .32447 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
     +     .13523,    .07795,   4.81560,    .33043,    .11378,
     +     .00000,    .24141,    .33746,
     +     .13725,    .07916,   5.19911,    .34308,    .12766,
     +     .00000,    .25453,    .35030,
     +     .13886,    .08013,   5.50515,    .35334,    .13908,
     +     .00000,    .26516,    .36071,
     +     .14228,    .08219,   6.14683,    .37577,    .16353,
     +     .00000,    .28835,    .38343,
     +     .14526,    .08395,   6.61262,    .39541,    .18477,
     +     .02152,    .30865,    .40336,
     +     .14859,    .08591,   7.13294,    .41779,    .20896,
     +     .05205,    .33175,    .42602,
     +     .15207,    .08794,   7.65467,    .44127,    .23430,
     +     .08029,    .35598,    .44983,
     +     .15521,    .08977,   8.10775,    .46270,    .25736,
     +     .10601,    .37807,    .47154 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
     +     .15838,    .09160,   8.54605,    .48441,    .28071,
     +     .13190,    .40045,    .49352,
     +     .16099,    .09310,   8.89187,    .50236,    .29994,
     +     .15293,    .41895,    .51172,
     +     .16415,    .09491,   9.28900,    .52401,    .32304,
     +     .17809,    .44125,    .53364,
     +     .16693,    .09648,   9.62491,    .54313,    .34348,
     +     .20049,    .46095,    .55300,
     +     .16947,    .09793,   9.92018,    .56060,    .36219,
     +     .22101,    .47895,    .57070,
     +     .17265,    .09971,  10.26708,    .58238,    .38535,
     +     .24611,    .50138,    .59276,
     +     .17564,    .10139,  10.57529,    .60268,    .40698,
     +     .26965,    .52229,    .61331,
     +     .17842,    .10294,  10.85108,    .62159,    .42722,
     +     .29180,    .54177,    .63247 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
     +     .18117,    .10446,  11.10053,    .63995,    .44672,
     +     .31287,    .56070,    .65106,
     +     .18386,    .10593,  11.33318,    .65778,    .46573,
     +     .33354,    .57907,    .66912,
     +     .18637,    .10731,  11.54053,    .67442,    .48351,
     +     .35288,    .59624,    .68598,
     +     .18871,    .10859,  11.71885,    .68969,    .49977,
     +     .37050,    .61199,    .70146,
     +     .19107,    .10987,  11.89247,    .70499,    .51615,
     +     .38835,    .62778,    .71697,
     +     .19334,    .11110,  12.04423,    .71950,    .53161,
     +     .40508,    .64275,    .73166,
     +     .19551,    .11227,  12.18590,    .73331,    .54642,
     +     .42123,    .65702,    .74566,
     +     .19754,    .11334,  12.30395,    .74588,    .55982,
     +     .43574,    .67001,    .75840 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
     +     .19957,    .11443,  12.42034,    .75854,    .57338,
     +     .45051,    .68309,    .77123,
     +     .20157,    .11549,  12.52337,    .77064,    .58635,
     +     .46460,    .69561,    .78351,
     +     .20345,    .11649,  12.61560,    .78203,    .59856,
     +     .47788,    .70739,    .79505,
     +     .20523,    .11743,  12.69890,    .79272,    .61005,
     +     .49042,    .71845,    .80588,
     +     .20700,    .11837,  12.77177,    .80310,    .62120,
     +     .50252,    .72921,    .81641 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
     +     .13297,    .07682,    .94876,    .21235,    .00000,
     +     .00000,    .12313,    .21899,
     +     .13536,    .07835,   1.39005,    .22120,    .00000,
     +     .00000,    .13256,    .22806,
     +     .13902,    .08067,   2.00619,    .23565,    .01785,
     +     .00000,    .14787,    .24284,
     +     .14181,    .08240,   2.46044,    .24700,    .03405,
     +     .00000,    .15985,    .25446,
     +     .14479,    .08424,   2.93443,    .25968,    .04816,
     +     .00000,    .17319,    .26743,
     +     .14739,    .08582,   3.33469,    .27105,    .06080,
     +     .00000,    .18510,    .27904,
     +     .14991,    .08734,   3.71891,    .28232,    .07373,
     +     .00000,    .19692,    .29055,
     +     .15261,    .08897,   4.12452,    .29470,    .08794,
     +     .00000,    .20985,    .30318 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
     +     .15494,    .09037,   4.46481,    .30570,    .10015,
     +     .00000,    .22135,    .31441,
     +     .15722,    .09173,   4.78690,    .31655,    .11217,
     +     .00000,    .23264,    .32545,
     +     .15903,    .09281,   5.04201,    .32531,    .12203,
     +     .00000,    .24178,    .33439,
     +     .16288,    .09507,   5.57161,    .34435,    .14303,
     +     .00000,    .26159,    .35378,
     +     .16620,    .09699,   5.95028,    .36092,    .16117,
     +     .01660,    .27882,    .37067,
     +     .16992,    .09914,   6.36459,    .37966,    .18169,
     +     .04280,    .29828,    .38975,
     +     .17376,    .10136,   6.77391,    .39920,    .20302,
     +     .06683,    .31858,    .40964,
     +     .17725,    .10333,   7.12417,    .41686,    .22230,
     +     .08858,    .33693,    .42763 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
     +     .18074,    .10530,   7.45823,    .43466,    .24172,
     +     .11035,    .35540,    .44574,
     +     .18362,    .10691,   7.71816,    .44928,    .25759,
     +     .12791,    .37057,    .46062,
     +     .18707,    .10883,   8.01231,    .46678,    .27654,
     +     .14881,    .38875,    .47843,
     +     .19011,    .11052,   8.25769,    .48212,    .29321,
     +     .16730,    .40469,    .49405,
     +     .19288,    .11204,   8.47061,    .49607,    .30839,
     +     .18416,    .41918,    .50825,
     +     .19635,    .11394,   8.71617,    .51332,    .32704,
     +     .20465,    .43711,    .52580,
     +     .19957,    .11568,   8.93074,    .52928,    .34437,
     +     .22376,    .45370,    .54206,
     +     .20258,    .11731,   9.11993,    .54406,    .36047,
     +     .24163,    .46907,    .55710 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
     +     .20554,    .11889,   9.28679,    .55829,    .37589,
     +     .25853,    .48389,    .57158,
     +     .20840,    .12042,   9.43995,    .57202,    .39083,
     +     .27502,    .49818,    .58556,
     +     .21109,    .12185,   9.57386,    .58476,    .40471,
     +     .29036,    .51145,    .59854,
     +     .21359,    .12316,   9.68591,    .59636,    .41735,
     +     .30427,    .52356,    .61035,
     +     .21610,    .12447,   9.79364,    .60794,    .43001,
     +     .31830,    .53564,    .62214,
     +     .21851,    .12573,   9.88415,    .61881,    .44188,
     +     .33136,    .54700,    .63322,
     +     .22080,    .12692,   9.96786,    .62913,    .45321,
     +     .34393,    .55778,    .64373,
     +     .22293,    .12802,  10.03425,    .63844,    .46340,
     +     .35516,    .56752,    .65321 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
     +     .22507,    .12912,  10.09896,    .64777,    .47367,
     +     .36655,    .57730,    .66273,
     +     .22715,    .13017,  10.15345,    .65665,    .48343,
     +     .37735,    .58659,    .67177,
     +     .22912,    .13118,  10.20063,    .66494,    .49258,
     +     .38750,    .59529,    .68022,
     +     .23098,    .13213,  10.24203,    .67269,    .50116,
     +     .39705,    .60342,    .68813,
     +     .23283,    .13305,  10.27507,    .68015,    .50943,
     +     .40621,    .61128,    .69573 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
     +     .14787,    .08636,   1.03013,    .20376,    .00000,
     +     .00000,    .11810,    .21153,
     +     .15056,    .08807,   1.44540,    .21168,    .00000,
     +     .00000,    .12661,    .21973,
     +     .15465,    .09064,   2.01816,    .22467,    .01562,
     +     .00000,    .14044,    .23311,
     +     .15774,    .09255,   2.43307,    .23487,    .03043,
     +     .00000,    .15127,    .24363,
     +     .16104,    .09457,   2.86095,    .24622,    .04321,
     +     .00000,    .16328,    .25530,
     +     .16390,    .09629,   3.21825,    .25637,    .05462,
     +     .00000,    .17397,    .26572,
     +     .16668,    .09795,   3.55791,    .26641,    .06625,
     +     .00000,    .18454,    .27604,
     +     .16964,    .09972,   3.91312,    .27737,    .07900,
     +     .00000,    .19608,    .28731 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
     +     .17223,    .10125,   4.20838,    .28710,    .08990,
     +     .00000,    .20630,    .29728,
     +     .17472,    .10270,   4.48557,    .29663,    .10061,
     +     .00000,    .21630,    .30705,
     +     .17671,    .10386,   4.70366,    .30433,    .10937,
     +     .00000,    .22437,    .31494,
     +     .18090,    .10629,   5.15288,    .32096,    .12793,
     +     .00000,    .24179,    .33198,
     +     .18451,    .10835,   5.46997,    .33535,    .14389,
     +     .01306,    .25685,    .34671,
     +     .18854,    .11062,   5.81005,    .35152,    .16182,
     +     .03620,    .27378,    .36326,
     +     .19270,    .11295,   6.14157,    .36826,    .18036,
     +     .05730,    .29129,    .38039,
     +     .19645,    .11502,   6.42140,    .38332,    .19703,
     +     .07629,    .30705,    .39580 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
     +     .20020,    .11709,   6.68492,    .39838,    .21371,
     +     .09520,    .32281,    .41121,
     +     .20327,    .11878,   6.88721,    .41068,    .22728,
     +     .11038,    .33570,    .42379,
     +     .20696,    .12077,   7.11282,    .42532,    .24339,
     +     .12834,    .35103,    .43876,
     +     .21018,    .12251,   7.29856,    .43809,    .25750,
     +     .14417,    .36440,    .45182,
     +     .21313,    .12409,   7.45784,    .44962,    .27026,
     +     .15852,    .37649,    .46361,
     +     .21679,    .12602,   7.63773,    .46379,    .28589,
     +     .17589,    .39137,    .47811,
     +     .22020,    .12782,   7.79218,    .47682,    .30030,
     +     .19200,    .40505,    .49144,
     +     .22336,    .12948,   7.92629,    .48881,    .31364,
     +     .20701,    .41765,    .50372 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
     +     .22645,    .13107,   8.04126,    .50027,    .32632,
     +     .22110,    .42972,    .51544,
     +     .22945,    .13261,   8.14479,    .51127,    .33857,
     +     .23481,    .44131,    .52670,
     +     .23225,    .13405,   8.23318,    .52142,    .34990,
     +     .24752,    .45200,    .53708,
     +     .23484,    .13537,   8.30471,    .53059,    .36014,
     +     .25896,    .46169,    .54648,
     +     .23744,    .13668,   8.37244,    .53970,    .37038,
     +     .27049,    .47132,    .55581,
     +     .23993,    .13792,   8.42607,    .54820,    .37990,
     +     .28114,    .48032,    .56452,
     +     .24230,    .13912,   8.47504,    .55624,    .38898,
     +     .29138,    .48885,    .57275,
     +     .24448,    .14019,   8.51068,    .56342,    .39708,
     +     .30047,    .49647,    .58010 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
     +     .24668,    .14128,   8.54474,    .57061,    .40523,
     +     .30968,    .50411,    .58746,
     +     .24880,    .14231,   8.57086,    .57737,    .41292,
     +     .31836,    .51132,    .59441,
     +     .25081,    .14329,   8.59198,    .58367,    .42011,
     +     .32649,    .51803,    .60087,
     +     .25271,    .14421,   8.60930,    .58952,    .42683,
     +     .33412,    .52429,    .60687,
     +     .25458,    .14512,   8.61964,    .59511,    .43327,
     +     .34140,    .53028,    .61261 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
     +     .17380,    .10289,   1.17383,    .19053,    .00000,
     +     .00000,    .11010,    .20052,
     +     .17699,    .10491,   1.54500,    .19718,    .00000,
     +     .00000,    .11733,    .20752,
     +     .18184,    .10789,   2.04842,    .20810,    .01172,
     +     .00000,    .12911,    .21897,
     +     .18547,    .11009,   2.40178,    .21667,    .02459,
     +     .00000,    .13833,    .22792,
     +     .18931,    .11237,   2.75922,    .22617,    .03553,
     +     .00000,    .14850,    .23781,
     +     .19263,    .11432,   3.05230,    .23459,    .04524,
     +     .00000,    .15751,    .24658,
     +     .19584,    .11619,   3.32645,    .24288,    .05511,
     +     .00000,    .16637,    .25520,
     +     .19926,    .11816,   3.60877,    .25189,    .06585,
     +     .00000,    .17597,    .26455 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
     +     .20221,    .11984,   3.83981,    .25981,    .07497,
     +     .00000,    .18441,    .27278,
     +     .20507,    .12145,   4.05373,    .26753,    .08386,
     +     .00000,    .19264,    .28080,
     +     .20734,    .12273,   4.22029,    .27373,    .09112,
     +     .00000,    .19924,    .28721,
     +     .21207,    .12537,   4.55828,    .28704,    .10638,
     +     .00000,    .21337,    .30099,
     +     .21613,    .12758,   4.79196,    .29842,    .11935,
     +     .00819,    .22546,    .31276,
     +     .22062,    .13001,   5.03240,    .31107,    .13382,
     +     .02719,    .23893,    .32586,
     +     .22523,    .13247,   5.26104,    .32403,    .14862,
     +     .04433,    .25271,    .33924,
     +     .22935,    .13466,   5.44913,    .33555,    .16180,
     +     .05963,    .26498,    .35114 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
     +     .23346,    .13681,   5.62171,    .34694,    .17486,
     +     .07472,    .27713,    .36292,
     +     .23682,    .13854,   5.75061,    .35614,    .18539,
     +     .08673,    .28695,    .37244,
     +     .24081,    .14059,   5.88999,    .36699,    .19778,
     +     .10084,    .29853,    .38363,
     +     .24429,    .14236,   6.00142,    .37633,    .20853,
     +     .11317,    .30853,    .39329,
     +     .24745,    .14395,   6.09428,    .38470,    .21819,
     +     .12428,    .31750,    .40194,
     +     .25135,    .14590,   6.19438,    .39485,    .22989,
     +     .13759,    .32840,    .41243,
     +     .25496,    .14769,   6.27659,    .40407,    .24059,
     +     .14985,    .33832,    .42196,
     +     .25829,    .14931,   6.34505,    .41247,    .25041,
     +     .16117,    .34738,    .43066 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
     +     .26152,    .15088,   6.39871,    .42039,    .25965,
     +     .17172,    .35593,    .43884,
     +     .26464,    .15238,   6.44436,    .42791,    .26849,
     +     .18190,    .36408,    .44661,
     +     .26756,    .15377,   6.48038,    .43477,    .27660,
     +     .19126,    .37152,    .45371,
     +     .27023,    .15503,   6.50551,    .44089,    .28386,
     +     .19963,    .37819,    .46004,
     +     .27288,    .15627,   6.52769,    .44691,    .29107,
     +     .20801,    .38477,    .46628,
     +     .27542,    .15745,   6.54031,    .45244,    .29772,
     +     .21569,    .39082,    .47200,
     +     .27783,    .15855,   6.55096,    .45761,    .30401,
     +     .22303,    .39653,    .47738,
     +     .28002,    .15956,   6.55332,    .46218,    .30956,
     +     .22949,    .40155,    .48210 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
     +     .28222,    .16056,   6.55448,    .46672,    .31512,
     +     .23601,    .40656,    .48681,
     +     .28435,    .16151,   6.55034,    .47092,    .32032,
     +     .24211,    .41123,    .49116,
     +     .28635,    .16241,   6.54381,    .47477,    .32514,
     +     .24777,    .41554,    .49518,
     +     .28823,    .16323,   6.53581,    .47834,    .32961,
     +     .25307,    .41952,    .49887,
     +     .29007,    .16404,   6.52277,    .48168,    .33385,
     +     .25808,    .42328,    .50235 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
     +     .20645,    .12353,   1.34903,    .17544,    .00000,
     +     .00000,    .10055,    .18840,
     +     .21034,    .12592,   1.66553,    .18090,    .00000,
     +     .00000,    .10665,    .19433,
     +     .21616,    .12938,   2.08875,    .18987,    .00692,
     +     .00000,    .11657,    .20398,
     +     .22046,    .13186,   2.37308,    .19688,    .01792,
     +     .00000,    .12429,    .21148,
     +     .22497,    .13444,   2.65435,    .20456,    .02716,
     +     .00000,    .13271,    .21966,
     +     .22885,    .13660,   2.87991,    .21131,    .03530,
     +     .00000,    .14011,    .22683,
     +     .23257,    .13866,   3.08677,    .21791,    .04349,
     +     .00000,    .14733,    .23384,
     +     .23651,    .14081,   3.29569,    .22502,    .05235,
     +     .00000,    .15510,    .24136 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
     +     .23989,    .14263,   3.46328,    .23122,    .05980,
     +     .00000,    .16187,    .24791,
     +     .24312,    .14435,   3.61571,    .23720,    .06702,
     +     .00000,    .16840,    .25423,
     +     .24568,    .14571,   3.73275,    .24197,    .07286,
     +     .00000,    .17361,    .25926,
     +     .25104,    .14850,   3.96583,    .25209,    .08505,
     +     .00000,    .18468,    .26993,
     +     .25552,    .15080,   4.12249,    .26064,    .09530,
     +     .00371,    .19401,    .27891,
     +     .26045,    .15329,   4.27273,    .27001,    .10659,
     +     .01887,    .20426,    .28873,
     +     .26547,    .15580,   4.41015,    .27944,    .11798,
     +     .03239,    .21460,    .29864,
     +     .26994,    .15797,   4.51841,    .28769,    .12802,
     +     .04432,    .22368,    .30730 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
     +     .27434,    .16011,   4.61330,    .29575,    .13784,
     +     .05597,    .23255,    .31575,
     +     .27790,    .16181,   4.68046,    .30216,    .14568,
     +     .06516,    .23962,    .32248,
     +     .28212,    .16379,   4.74869,    .30958,    .15479,
     +     .07583,    .24786,    .33026,
     +     .28576,    .16548,   4.79973,    .31589,    .16262,
     +     .08509,    .25489,    .33687,
     +     .28903,    .16698,   4.83936,    .32147,    .16958,
     +     .09334,    .26111,    .34273,
     +     .29305,    .16881,   4.87661,    .32811,    .17791,
     +     .10314,    .26856,    .34968,
     +     .29673,    .17045,   4.90301,    .33405,    .18544,
     +     .11207,    .27523,    .35591,
     +     .30010,    .17194,   4.92165,    .33937,    .19228,
     +     .12025,    .28126,    .36149 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
     +     .30336,    .17335,   4.92984,    .34426,    .19862,
     +     .12778,    .28684,    .36663,
     +     .30646,    .17468,   4.93321,    .34883,    .20463,
     +     .13498,    .29209,    .37142,
     +     .30933,    .17589,   4.93161,    .35293,    .21008,
     +     .14155,    .29682,    .37574,
     +     .31193,    .17699,   4.92402,    .35651,    .21490,
     +     .14736,    .30098,    .37949,
     +     .31452,    .17805,   4.91452,    .35997,    .21965,
     +     .15314,    .30504,    .38314,
     +     .31696,    .17904,   4.89913,    .36306,    .22396,
     +     .15838,    .30868,    .38640,
     +     .31926,    .17996,   4.88389,    .36594,    .22801,
     +     .16337,    .31209,    .38943,
     +     .32134,    .18077,   4.86456,    .36838,    .23153,
     +     .16770,    .31503,    .39200 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
     +     .32343,    .18159,   4.84453,    .37078,    .23503,
     +     .17204,    .31794,    .39453,
     +     .32540,    .18235,   4.82146,    .37293,    .23826,
     +     .17607,    .32058,    .39679,
     +     .32726,    .18305,   4.79797,    .37486,    .24122,
     +     .17978,    .32299,    .39884,
     +     .32898,    .18370,   4.77476,    .37661,    .24395,
     +     .18323,    .32518,    .40070,
     +     .33065,    .18431,   4.74825,    .37819,    .24648,
     +     .18645,    .32718,    .40236 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
     +     .25186,    .15138,   1.55003,    .15656,    .00000,
     +     .00000,    .08849,    .17441,
     +     .25673,    .15418,   1.79422,    .16085,    .00000,
     +     .00000,    .09352,    .17930,
     +     .26386,    .15812,   2.11760,    .16781,    .00093,
     +     .00000,    .10163,    .18714,
     +     .26900,    .16087,   2.31969,    .17319,    .01007,
     +     .00000,    .10784,    .19311,
     +     .27435,    .16365,   2.51349,    .17898,    .01764,
     +     .00000,    .11453,    .19950,
     +     .27886,    .16598,   2.66392,    .18400,    .02421,
     +     .00000,    .12031,    .20501,
     +     .28316,    .16816,   2.79804,    .18884,    .03076,
     +     .00000,    .12586,    .21029,
     +     .28766,    .17040,   2.92967,    .19397,    .03775,
     +     .00000,    .13177,    .21590 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
     +     .29149,    .17226,   3.03186,    .19837,    .04355,
     +     .00000,    .13685,    .22068,
     +     .29511,    .17401,   3.12208,    .20258,    .04912,
     +     .00000,    .14168,    .22524,
     +     .29796,    .17537,   3.18984,    .20589,    .05359,
     +     .00000,    .14549,    .22883,
     +     .30384,    .17811,   3.32066,    .21282,    .06278,
     +     .00000,    .15347,    .23630,
     +     .30866,    .18031,   3.40416,    .21852,    .07038,
     +    -.00040,    .16007,    .24242,
     +     .31390,    .18265,   3.47116,    .22464,    .07862,
     +     .01100,    .16718,    .24898,
     +     .31915,    .18494,   3.52655,    .23064,    .08681,
     +     .02103,    .17420,    .25542,
     +     .32375,    .18690,   3.56474,    .23577,    .09388,
     +     .02974,    .18025,    .26091 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
     +     .32823,    .18877,   3.59309,    .24064,    .10071,
     +     .03814,    .18601,    .26612,
     +     .33181,    .19023,   3.60867,    .24443,    .10608,
     +     .04469,    .19055,    .27016,
     +     .33597,    .19190,   3.61876,    .24869,    .11223,
     +     .05221,    .19569,    .27472,
     +     .33953,    .19328,   3.62169,    .25221,    .11742,
     +     .05863,    .19999,    .27848,
     +     .34269,    .19449,   3.61986,    .25526,    .12199,
     +     .06431,    .20373,    .28172,
     +     .34650,    .19591,   3.60930,    .25874,    .12735,
     +     .07094,    .20808,    .28544,
     +     .34993,    .19717,   3.59423,    .26175,    .13212,
     +     .07691,    .21190,    .28865,
     +     .35306,    .19827,   3.57669,    .26437,    .13638,
     +     .08232,    .21526,    .29144 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
     +     .35599,    .19927,   3.55304,    .26664,    .14026,
     +     .08722,    .21828,    .29387,
     +     .35876,    .20018,   3.52759,    .26870,    .14387,
     +     .09186,    .22104,    .29606,
     +     .36127,    .20101,   3.50109,    .27047,    .14711,
     +     .09604,    .22346,    .29793,
     +     .36352,    .20170,   3.47284,    .27192,    .14991,
     +     .09969,    .22550,    .29946,
     +     .36573,    .20237,   3.44379,    .27328,    .15264,
     +     .10328,    .22748,    .30091,
     +     .36775,    .20295,   3.41200,    .27437,    .15505,
     +     .10649,    .22915,    .30207,
     +     .36965,    .20350,   3.38187,    .27536,    .15730,
     +     .10951,    .23070,    .30313,
     +     .37133,    .20393,   3.35077,    .27610,    .15920,
     +     .11211,    .23195,    .30391 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
     +     .37299,    .20437,   3.31950,    .27680,    .16107,
     +     .11468,    .23316,    .30464,
     +     .37454,    .20474,   3.28711,    .27734,    .16276,
     +     .11704,    .23420,    .30522,
     +     .37596,    .20507,   3.25576,    .27776,    .16427,
     +     .11918,    .23511,    .30567,
     +     .37727,    .20537,   3.22581,    .27812,    .16565,
     +     .12116,    .23591,    .30605,
     +     .37851,    .20562,   3.19404,    .27832,    .16688,
     +     .12298,    .23655,    .30627 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
     +     .28989,    .17386,   1.67044,    .14144,    .00000,
     +     .00000,    .07901,    .16350,
     +     .29563,    .17690,   1.85760,    .14499,    .00000,
     +     .00000,    .08346,    .16779,
     +     .30384,    .18109,   2.10545,    .15068,   -.00318,
     +     .00000,    .09046,    .17445,
     +     .30965,    .18393,   2.24851,    .15499,    .00475,
     +     .00000,    .09573,    .17942,
     +     .31558,    .18677,   2.38155,    .15955,    .01127,
     +     .00000,    .10128,    .18461,
     +     .32053,    .18909,   2.48142,    .16343,    .01687,
     +     .00000,    .10601,    .18900,
     +     .32520,    .19121,   2.56782,    .16712,    .02237,
     +     .00000,    .11052,    .19315,
     +     .33004,    .19338,   2.64999,    .17099,    .02819,
     +     .00000,    .11523,    .19747 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
     +     .33409,    .19517,   2.71125,    .17425,    .03297,
     +     .00000,    .11921,    .20110,
     +     .33789,    .19682,   2.76331,    .17731,    .03751,
     +     .00000,    .12299,    .20450,
     +     .34088,    .19807,   2.80137,    .17970,    .04113,
     +     .00000,    .12592,    .20714,
     +     .34692,    .20057,   2.87184,    .18462,    .04849,
     +     .00000,    .13198,    .21256,
     +     .35181,    .20250,   2.91306,    .18858,    .05449,
     +    -.00252,    .13690,    .21688,
     +     .35701,    .20450,   2.93398,    .19273,    .06091,
     +     .00656,    .14211,    .22138,
     +     .36215,    .20641,   2.94533,    .19668,    .06719,
     +     .01448,    .14714,    .22567,
     +     .36658,    .20800,   2.94706,    .19995,    .07255,
     +     .02127,    .15137,    .22921 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
     +     .37082,    .20947,   2.94174,    .20298,    .07765,
     +     .02775,    .15535,    .23246,
     +     .37416,    .21059,   2.93193,    .20525,    .08161,
     +     .03274,    .15839,    .23490,
     +     .37799,    .21179,   2.91424,    .20772,    .08609,
     +     .03843,    .16179,    .23756,
     +     .38121,    .21277,   2.89478,    .20969,    .08983,
     +     .04324,    .16456,    .23966,
     +     .38403,    .21360,   2.87417,    .21134,    .09307,
     +     .04745,    .16692,    .24142,
     +     .38735,    .21451,   2.84289,    .21312,    .09682,
     +     .05232,    .16959,    .24330,
     +     .39029,    .21528,   2.81066,    .21457,    .10011,
     +     .05666,    .17185,    .24482,
     +     .39292,    .21593,   2.77876,    .21576,    .10301,
     +     .06054,    .17380,    .24605 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
     +     .39529,    .21646,   2.74319,    .21668,    .10559,
     +     .06402,    .17544,    .24699,
     +     .39752,    .21691,   2.70742,    .21746,    .10799,
     +     .06729,    .17691,    .24777,
     +     .39950,    .21727,   2.67243,    .21803,    .11008,
     +     .07020,    .17814,    .24835,
     +     .40122,    .21753,   2.63778,    .21841,    .11186,
     +     .07271,    .17912,    .24872,
     +     .40287,    .21777,   2.60305,    .21872,    .11358,
     +     .07517,    .18004,    .24901,
     +     .40435,    .21792,   2.56712,    .21885,    .11505,
     +     .07733,    .18075,    .24910,
     +     .40572,    .21805,   2.53347,    .21892,    .11642,
     +     .07936,    .18138,    .24915,
     +     .40685,    .21810,   2.50027,    .21886,    .11753,
     +     .08106,    .18181,    .24904 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
     +     .40797,    .21813,   2.46724,    .21876,    .11862,
     +     .08275,    .18220,    .24887,
     +     .40897,    .21812,   2.43396,    .21855,    .11958,
     +     .08428,    .18248,    .24860,
     +     .40986,    .21807,   2.40225,    .21828,    .12041,
     +     .08566,    .18268,    .24827,
     +     .41067,    .21800,   2.37231,    .21800,    .12116,
     +     .08691,    .18282,    .24792,
     +     .41137,    .21789,   2.34135,    .21762,    .12180,
     +     .08804,    .18287,    .24745 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
     +     .35485,    .20927,   1.74584,    .11798,    .00000,
     +     .00000,    .06552,    .14842,
     +     .36175,    .21240,   1.85088,    .12053,    .00000,
     +     .00000,    .06915,    .15167,
     +     .37129,    .21648,   1.99301,    .12443,   -.00789,
     +     .00000,    .07462,    .15648,
     +     .37773,    .21911,   2.05821,    .12731,   -.00156,
     +     .00000,    .07857,    .15986,
     +     .38415,    .22162,   2.11379,    .13020,    .00362,
     +     .00000,    .08261,    .16326,
     +     .38939,    .22359,   2.15117,    .13260,    .00795,
     +     .00000,    .08595,    .16601,
     +     .39420,    .22532,   2.18027,    .13480,    .01213,
     +     .00000,    .08905,    .16850,
     +     .39907,    .22703,   2.20456,    .13703,    .01646,
     +     .00000,    .09222,    .17100 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
     +     .40308,    .22836,   2.21904,    .13886,    .01997,
     +     .00000,    .09482,    .17300,
     +     .40676,    .22954,   2.22850,    .14051,    .02325,
     +     .00000,    .09722,    .17482,
     +     .40959,    .23042,   2.23398,    .14177,    .02582,
     +     .00000,    .09906,    .17620,
     +     .41517,    .23205,   2.23965,    .14427,    .03098,
     +     .00000,    .10275,    .17888,
     +     .41946,    .23317,   2.23693,    .14615,    .03508,
     +    -.00428,    .10564,    .18085,
     +     .42388,    .23422,   2.21266,    .14802,    .03937,
     +     .00199,    .10858,    .18275,
     +     .42807,    .23510,   2.18250,    .14964,    .04348,
     +     .00738,    .11129,    .18437,
     +     .43152,    .23571,   2.15122,    .15087,    .04691,
     +     .01193,    .11347,    .18555 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
     +     .43469,    .23618,   2.11672,    .15189,    .05009,
     +     .01619,    .11541,    .18651,
     +     .43707,    .23644,   2.08588,    .15255,    .05252,
     +     .01943,    .11683,    .18707,
     +     .43965,    .23662,   2.04630,    .15316,    .05520,
     +     .02305,    .11830,    .18751,
     +     .44171,    .23668,   2.01019,    .15354,    .05738,
     +     .02607,    .11943,    .18774,
     +     .44343,    .23665,   1.97641,    .15376,    .05924,
     +     .02867,    .12033,    .18782,
     +     .44529,    .23646,   1.93188,    .15383,    .06134,
     +     .03164,    .12125,    .18768,
     +     .44681,    .23618,   1.88962,    .15376,    .06312,
     +     .03423,    .12193,    .18739,
     +     .44806,    .23584,   1.85012,    .15357,    .06467,
     +     .03652,    .12245,    .18698 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
     +     .44904,    .23539,   1.80960,    .15324,    .06599,
     +     .03853,    .12278,    .18641,
     +     .44985,    .23488,   1.77034,    .15282,    .06717,
     +     .04038,    .12301,    .18574,
     +     .45049,    .23434,   1.73339,    .15234,    .06818,
     +     .04201,    .12311,    .18502,
     +     .45090,    .23374,   1.69838,    .15179,    .06900,
     +     .04339,    .12310,    .18422,
     +     .45125,    .23313,   1.66392,    .15119,    .06978,
     +     .04472,    .12304,    .18338,
     +     .45140,    .23244,   1.62976,    .15050,    .07040,
     +     .04585,    .12287,    .18244,
     +     .45151,    .23178,   1.59811,    .14984,    .07097,
     +     .04692,    .12269,    .18152,
     +     .45143,    .23108,   1.56794,    .14912,    .07138,
     +     .04778,    .12241,    .18057 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
     +     .45134,    .23037,   1.53824,    .14838,    .07179,
     +     .04862,    .12210,    .17959,
     +     .45111,    .22962,   1.50903,    .14759,    .07211,
     +     .04938,    .12174,    .17857,
     +     .45083,    .22889,   1.48160,    .14682,    .07237,
     +     .05004,    .12135,    .17756,
     +     .45053,    .22817,   1.45601,    .14606,    .07259,
     +     .05063,    .12097,    .17659,
     +     .45011,    .22740,   1.43014,    .14524,    .07274,
     +     .05114,    .12052,    .17553 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
     +     .40943,    .23593,   1.69849,    .09970,    .00000,
     +     .00000,    .05605,    .13698,
     +     .41690,    .23871,   1.75012,    .10151,    .00000,
     +     .00000,    .05905,    .13927,
     +     .42684,    .24217,   1.82437,    .10421,   -.00978,
     +     .00000,    .06336,    .14246,
     +     .43329,    .24422,   1.84361,    .10608,   -.00459,
     +     .00000,    .06639,    .14456,
     +     .43954,    .24607,   1.85512,    .10792,   -.00033,
     +     .00000,    .06936,    .14656,
     +     .44448,    .24740,   1.85805,    .10937,    .00317,
     +     .00000,    .07176,    .14805,
     +     .44891,    .24851,   1.85655,    .11065,    .00648,
     +     .00000,    .07391,    .14934,
     +     .45329,    .24949,   1.85086,    .11190,    .00986,
     +     .00000,    .07607,    .15057 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
     +     .45676,    .25018,   1.84187,    .11286,    .01257,
     +     .00000,    .07781,    .15147,
     +     .45986,    .25074,   1.83053,    .11369,    .01508,
     +     .00000,    .07937,    .15223,
     +     .46218,    .25110,   1.82053,    .11431,    .01701,
     +     .00000,    .08052,    .15275,
     +     .46657,    .25164,   1.79624,    .11547,    .02084,
     +     .00000,    .08281,    .15365,
     +     .46971,    .25176,   1.77399,    .11624,    .02383,
     +    -.00465,    .08451,    .15417,
     +     .47273,    .25171,   1.73198,    .11690,    .02692,
     +    -.00004,    .08616,    .15447,
     +     .47538,    .25142,   1.68666,    .11734,    .02982,
     +     .00388,    .08759,    .15452,
     +     .47735,    .25097,   1.64438,    .11755,    .03218,
     +     .00713,    .08866,    .15433 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
     +     .47899,    .25037,   1.60111,    .11760,    .03434,
     +     .01014,    .08955,    .15395,
     +     .48005,    .24975,   1.56470,    .11752,    .03596,
     +     .01241,    .09011,    .15350,
     +     .48102,    .24884,   1.52026,    .11725,    .03771,
     +     .01491,    .09063,    .15279,
     +     .48161,    .24793,   1.48126,    .11690,    .03912,
     +     .01696,    .09096,    .15205,
     +     .48195,    .24706,   1.44584,    .11652,    .04030,
     +     .01872,    .09117,    .15127,
     +     .48205,    .24578,   1.40087,    .11590,    .04158,
     +     .02068,    .09127,    .15012,
     +     .48189,    .24450,   1.35936,    .11522,    .04265,
     +     .02239,    .09123,    .14895,
     +     .48157,    .24325,   1.32136,    .11451,    .04356,
     +     .02387,    .09111,    .14777 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
     +     .48096,    .24187,   1.28353,    .11368,    .04430,
     +     .02514,    .09088,    .14647,
     +     .48022,    .24048,   1.24747,    .11284,    .04494,
     +     .02631,    .09058,    .14516,
     +     .47937,    .23911,   1.21408,    .11200,    .04547,
     +     .02731,    .09023,    .14388,
     +     .47839,    .23777,   1.18304,    .11114,    .04588,
     +     .02815,    .08983,    .14260,
     +     .47735,    .23641,   1.15279,    .11026,    .04626,
     +     .02895,    .08940,    .14130,
     +     .47612,    .23499,   1.12333,    .10933,    .04654,
     +     .02963,    .08889,    .13996,
     +     .47493,    .23364,   1.09624,    .10845,    .04677,
     +     .03024,    .08841,    .13868,
     +     .47363,    .23229,   1.07084,    .10756,    .04693,
     +     .03073,    .08788,    .13743 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
     +     .47230,    .23095,   1.04599,    .10667,    .04707,
     +     .03121,    .08736,    .13616,
     +     .47088,    .22959,   1.02183,    .10576,    .04715,
     +     .03161,    .08679,    .13487,
     +     .46946,    .22827,    .99934,    .10487,    .04721,
     +     .03197,    .08623,    .13364,
     +     .46808,    .22701,    .97848,    .10403,    .04724,
     +     .03228,    .08568,    .13247,
     +     .46656,    .22569,    .95765,    .10315,    .04723,
     +     .03254,    .08510,    .13125 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
     +     .45675,    .25656,   1.59078,    .08483,    .00000,
     +     .00000,    .04891,    .12718,
     +     .46430,    .25875,   1.60786,    .08607,    .00000,
     +     .00000,    .05129,    .12848,
     +     .47394,    .26120,   1.63826,    .08785,   -.01025,
     +     .00000,    .05465,    .13014,
     +     .47991,    .26245,   1.63012,    .08904,   -.00592,
     +     .00000,    .05689,    .13118,
     +     .48544,    .26342,   1.61618,    .09014,   -.00238,
     +     .00000,    .05906,    .13198,
     +     .48965,    .26397,   1.59983,    .09096,    .00050,
     +     .00000,    .06075,    .13249,
     +     .49327,    .26430,   1.58174,    .09165,    .00318,
     +     .00000,    .06225,    .13284,
     +     .49669,    .26447,   1.56033,    .09228,    .00589,
     +     .00000,    .06370,    .13309 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
     +     .49929,    .26443,   1.53944,    .09270,    .00803,
     +     .00000,    .06481,    .13319,
     +     .50147,    .26426,   1.51790,    .09305,    .00999,
     +     .00000,    .06578,    .13317,
     +     .50305,    .26404,   1.50044,    .09328,    .01151,
     +     .00000,    .06651,    .13309,
     +     .50577,    .26337,   1.46253,    .09364,    .01446,
     +     .00000,    .06785,    .13275,
     +     .50739,    .26248,   1.43183,    .09378,    .01672,
     +    -.00449,    .06880,    .13226,
     +     .50865,    .26125,   1.38382,    .09376,    .01903,
     +    -.00100,    .06966,    .13154,
     +     .50942,    .25975,   1.33424,    .09354,    .02115,
     +     .00194,    .07031,    .13059,
     +     .50965,    .25824,   1.28967,    .09323,    .02286,
     +     .00436,    .07070,    .12958 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
     +     .50950,    .25659,   1.24537,    .09279,    .02441,
     +     .00659,    .07098,    .12842,
     +     .50909,    .25508,   1.20909,    .09231,    .02554,
     +     .00824,    .07109,    .12737,
     +     .50820,    .25318,   1.16580,    .09166,    .02675,
     +     .01004,    .07108,    .12598,
     +     .50717,    .25140,   1.12852,    .09102,    .02770,
     +     .01151,    .07097,    .12468,
     +     .50606,    .24970,   1.09518,    .09036,    .02848,
     +     .01275,    .07080,    .12345,
     +     .50427,    .24745,   1.05367,    .08944,    .02932,
     +     .01413,    .07050,    .12178,
     +     .50236,    .24526,   1.01594,    .08851,    .03001,
     +     .01531,    .07012,    .12016,
     +     .50042,    .24315,    .98184,    .08761,    .03056,
     +     .01633,    .06970,    .11863 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
     +     .49817,    .24099,    .94845,    .08664,    .03101,
     +     .01719,    .06919,    .11703,
     +     .49587,    .23884,    .91694,    .08567,    .03138,
     +     .01796,    .06866,    .11544,
     +     .49355,    .23676,    .88808,    .08472,    .03168,
     +     .01863,    .06813,    .11390,
     +     .49120,    .23475,    .86153,    .08379,    .03188,
     +     .01917,    .06757,    .11244,
     +     .48882,    .23273,    .83582,    .08285,    .03206,
     +     .01968,    .06700,    .11098,
     +     .48627,    .23070,    .81110,    .08189,    .03218,
     +     .02011,    .06639,    .10951,
     +     .48384,    .22879,    .78849,    .08099,    .03227,
     +     .02048,    .06580,    .10812,
     +     .48138,    .22694,    .76749,    .08011,    .03231,
     +     .02079,    .06522,    .10678 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
     +     .47889,    .22508,    .74702,    .07923,    .03234,
     +     .02107,    .06463,    .10544,
     +     .47634,    .22321,    .72730,    .07834,    .03232,
     +     .02131,    .06402,    .10412,
     +     .47387,    .22143,    .70904,    .07749,    .03230,
     +     .02151,    .06342,    .10286,
     +     .47148,    .21974,    .69218,    .07669,    .03225,
     +     .02169,    .06286,    .10167,
     +     .46898,    .21801,    .67546,    .07585,    .03218,
     +     .02183,    .06227,    .10044 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
     +     .50728,    .27496,   1.42574,    .06949,    .00000,
     +     .00000,    .04164,    .11501,
     +     .51401,    .27615,   1.41647,    .07029,    .00000,
     +     .00000,    .04339,    .11521,
     +     .52212,    .27706,   1.41323,    .07133,   -.00986,
     +     .00000,    .04576,    .11530,
     +     .52676,    .27711,   1.38616,    .07198,   -.00639,
     +     .00000,    .04730,    .11519,
     +     .53074,    .27678,   1.35510,    .07251,   -.00352,
     +     .00000,    .04870,    .11493,
     +     .53349,    .27624,   1.32641,    .07286,   -.00125,
     +     .00000,    .04977,    .11452,
     +     .53563,    .27552,   1.29804,    .07310,    .00086,
     +     .00000,    .05066,    .11405,
     +     .53743,    .27457,   1.26729,    .07327,    .00296,
     +     .00000,    .05150,    .11346 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
     +     .53854,    .27356,   1.23975,    .07334,    .00460,
     +     .00000,    .05212,    .11281,
     +     .53930,    .27247,   1.21284,    .07333,    .00610,
     +     .00000,    .05264,    .11213,
     +     .53971,    .27155,   1.19168,    .07328,    .00723,
     +     .00000,    .05300,    .11157,
     +     .53993,    .26935,   1.14734,    .07311,    .00942,
     +     .00000,    .05360,    .11028,
     +     .53935,    .26719,   1.11322,    .07280,    .01108,
     +    -.00401,    .05396,    .10906,
     +     .53814,    .26460,   1.06479,    .07237,    .01274,
     +    -.00146,    .05421,    .10756,
     +     .53631,    .26174,   1.01615,    .07179,    .01425,
     +     .00068,    .05430,    .10590,
     +     .53422,    .25901,    .97353,    .07115,    .01544,
     +     .00242,    .05425,    .10430 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
     +     .53173,    .25614,    .93204,    .07043,    .01649,
     +     .00399,    .05410,    .10262,
     +     .52936,    .25371,    .89868,    .06978,    .01725,
     +     .00514,    .05389,    .10119,
     +     .52617,    .25067,    .85959,    .06892,    .01805,
     +     .00640,    .05355,    .09941,
     +     .52313,    .24793,    .82641,    .06813,    .01868,
     +     .00741,    .05318,    .09781,
     +     .52016,    .24540,    .79714,    .06739,    .01917,
     +     .00825,    .05280,    .09631,
     +     .51610,    .24209,    .76123,    .06635,    .01968,
     +     .00917,    .05225,    .09440,
     +     .51210,    .23895,    .72903,    .06536,    .02009,
     +     .00995,    .05168,    .09260,
     +     .50822,    .23602,    .70023,    .06441,    .02041,
     +     .01061,    .05111,    .09091 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
     +     .50412,    .23302,    .67241,    .06343,    .02065,
     +     .01116,    .05050,    .08921,
     +     .50001,    .23009,    .64642,    .06245,    .02084,
     +     .01165,    .04988,    .08755,
     +     .49601,    .22733,    .62283,    .06153,    .02098,
     +     .01207,    .04926,    .08597,
     +     .49211,    .22469,    .60138,    .06065,    .02105,
     +     .01239,    .04866,    .08449,
     +     .48818,    .22207,    .58073,    .05977,    .02112,
     +     .01270,    .04806,    .08302,
     +     .48417,    .21945,    .56105,    .05888,    .02114,
     +     .01295,    .04744,    .08156,
     +     .48037,    .21700,    .54311,    .05806,    .02115,
     +     .01318,    .04685,    .08022,
     +     .47667,    .21466,    .52664,    .05725,    .02113,
     +     .01335,    .04628,    .07894 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
     +     .47296,    .21231,    .51067,    .05646,    .02109,
     +     .01351,    .04570,    .07767,
     +     .46920,    .20998,    .49538,    .05566,    .02103,
     +     .01363,    .04512,    .07642,
     +     .46561,    .20778,    .48128,    .05490,    .02097,
     +     .01373,    .04457,    .07525,
     +     .46219,    .20570,    .46835,    .05419,    .02090,
     +     .01381,    .04404,    .07414,
     +     .45865,    .20359,    .45561,    .05347,    .02081,
     +     .01388,    .04350,    .07300 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
     +     .54945,    .28721,   1.25567,    .05717,    .00000,
     +     .00000,    .03548,    .10263,
     +     .55476,    .28709,   1.23165,    .05764,    .00000,
     +     .00000,    .03671,    .10198,
     +     .56054,    .28605,   1.20917,    .05818,   -.00907,
     +     .00000,    .03838,    .10091,
     +     .56325,    .28482,   1.17285,    .05846,   -.00623,
     +     .00000,    .03940,    .10003,
     +     .56513,    .28313,   1.13401,    .05866,   -.00390,
     +     .00000,    .04031,    .09893,
     +     .56599,    .28144,   1.10009,    .05870,   -.00206,
     +     .00000,    .04094,    .09791,
     +     .56632,    .27964,   1.06774,    .05870,   -.00038,
     +     .00000,    .04145,    .09688,
     +     .56615,    .27758,   1.03377,    .05862,    .00126,
     +     .00000,    .04188,    .09572 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
     +     .56556,    .27561,   1.00428,    .05847,    .00255,
     +     .00000,    .04217,    .09467,
     +     .56465,    .27363,    .97611,    .05827,    .00370,
     +     .00000,    .04239,    .09363,
     +     .56374,    .27200,    .95430,    .05809,    .00458,
     +     .00000,    .04251,    .09278,
     +     .56115,    .26841,    .90948,    .05763,    .00625,
     +     .00000,    .04270,    .09090,
     +     .55820,    .26511,    .87563,    .05715,    .00749,
     +    -.00346,    .04271,    .08927,
     +     .55441,    .26125,    .83021,    .05651,    .00871,
     +    -.00156,    .04262,    .08740,
     +     .54993,    .25714,    .78538,    .05575,    .00981,
     +     .00003,    .04240,    .08542,
     +     .54545,    .25337,    .74671,    .05501,    .01067,
     +     .00130,    .04211,    .08357 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
     +     .54062,    .24949,    .70958,    .05421,    .01142,
     +     .00245,    .04173,    .08171,
     +     .53636,    .24626,    .68013,    .05352,    .01195,
     +     .00329,    .04138,    .08015,
     +     .53096,    .24227,    .64601,    .05262,    .01249,
     +     .00418,    .04089,    .07824,
     +     .52600,    .23872,    .61739,    .05180,    .01290,
     +     .00489,    .04042,    .07657,
     +     .52135,    .23549,    .59233,    .05104,    .01322,
     +     .00548,    .03994,    .07506,
     +     .51516,    .23137,    .56198,    .05003,    .01355,
     +     .00612,    .03931,    .07315,
     +     .50923,    .22751,    .53502,    .04909,    .01380,
     +     .00665,    .03869,    .07136,
     +     .50363,    .22392,    .51114,    .04821,    .01399,
     +     .00709,    .03809,    .06969 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
     +     .49780,    .22032,    .48826,    .04730,    .01412,
     +     .00747,    .03747,    .06804,
     +     .49208,    .21682,    .46704,    .04643,    .01422,
     +     .00779,    .03685,    .06646,
     +     .48663,    .21353,    .44793,    .04559,    .01428,
     +     .00806,    .03625,    .06499,
     +     .48140,    .21044,    .43068,    .04478,    .01431,
     +     .00827,    .03569,    .06363,
     +     .47618,    .20739,    .41419,    .04400,    .01431,
     +     .00846,    .03511,    .06228,
     +     .47096,    .20435,    .39859,    .04322,    .01429,
     +     .00861,    .03453,    .06097,
     +     .46604,    .20152,    .38445,    .04248,    .01426,
     +     .00874,    .03399,    .05975,
     +     .46127,    .19885,    .37154,    .04179,    .01421,
     +     .00883,    .03347,    .05859 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
     +     .45651,    .19620,    .35907,    .04110,    .01416,
     +     .00893,    .03296,    .05744,
     +     .45177,    .19357,    .34720,    .04044,    .01409,
     +     .00899,    .03244,    .05633,
     +     .44727,    .19110,    .33630,    .03979,    .01402,
     +     .00904,    .03195,    .05530,
     +     .44303,    .18878,    .32634,    .03919,    .01395,
     +     .00909,    .03149,    .05433,
     +     .43867,    .18644,    .31659,    .03858,    .01386,
     +     .00911,    .03104,    .05335 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
     +     .58402,    .29403,   1.09536,    .04723,    .00000,
     +     .00000,    .03007,    .09000,
     +     .58722,    .29258,   1.06342,    .04750,    .00000,
     +     .00000,    .03096,    .08867,
     +     .58973,    .28970,   1.03041,    .04778,   -.00815,
     +     .00000,    .03200,    .08675,
     +     .59010,    .28716,    .99017,    .04790,   -.00582,
     +     .00000,    .03265,    .08530,
     +     .58948,    .28414,    .94851,    .04786,   -.00391,
     +     .00000,    .03315,    .08376,
     +     .58821,    .28133,    .91309,    .04778,   -.00241,
     +     .00000,    .03350,    .08236,
     +     .58650,    .27848,    .87998,    .04762,   -.00105,
     +     .00000,    .03374,    .08100,
     +     .58419,    .27532,    .84584,    .04738,    .00026,
     +     .00000,    .03392,    .07958 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
     +     .58174,    .27251,    .81669,    .04712,    .00129,
     +     .00000,    .03400,    .07830,
     +     .57903,    .26972,    .78931,    .04684,    .00220,
     +     .00000,    .03402,    .07704,
     +     .57673,    .26748,    .76827,    .04659,    .00288,
     +     .00000,    .03401,    .07605,
     +     .57128,    .26260,    .72549,    .04601,    .00417,
     +     .00000,    .03391,    .07394,
     +     .56595,    .25828,    .69376,    .04543,    .00512,
     +    -.00295,    .03374,    .07215,
     +     .55954,    .25339,    .65259,    .04472,    .00605,
     +    -.00150,    .03346,    .07016,
     +     .55246,    .24826,    .61250,    .04394,    .00686,
     +    -.00030,    .03308,    .06808,
     +     .54573,    .24360,    .57830,    .04318,    .00750,
     +     .00066,    .03268,    .06620 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
     +     .53873,    .23891,    .54582,    .04237,    .00803,
     +     .00150,    .03222,    .06434,
     +     .53276,    .23499,    .52033,    .04168,    .00841,
     +     .00212,    .03180,    .06281,
     +     .52527,    .23027,    .49108,    .04082,    .00879,
     +     .00277,    .03127,    .06097,
     +     .51856,    .22615,    .46674,    .04005,    .00908,
     +     .00329,    .03076,    .05938,
     +     .51239,    .22241,    .44563,    .03932,    .00930,
     +     .00371,    .03028,    .05795,
     +     .50437,    .21764,    .42025,    .03839,    .00951,
     +     .00416,    .02965,    .05617,
     +     .49678,    .21323,    .39791,    .03752,    .00966,
     +     .00453,    .02906,    .05453,
     +     .48965,    .20916,    .37828,    .03673,    .00977,
     +     .00484,    .02849,    .05302 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
     +     .48243,    .20511,    .35963,    .03591,    .00984,
     +     .00509,    .02791,    .05154,
     +     .47540,    .20121,    .34244,    .03512,    .00989,
     +     .00531,    .02734,    .05014,
     +     .46877,    .19757,    .32706,    .03438,    .00991,
     +     .00549,    .02680,    .04883,
     +     .46245,    .19418,    .31327,    .03367,    .00991,
     +     .00563,    .02629,    .04763,
     +     .45617,    .19086,    .30013,    .03299,    .00989,
     +     .00575,    .02578,    .04644,
     +     .44994,    .18757,    .28779,    .03231,    .00986,
     +     .00585,    .02528,    .04530,
     +     .44413,    .18452,    .27666,    .03169,    .00982,
     +     .00592,    .02481,    .04424,
     +     .43856,    .18164,    .26654,    .03110,    .00976,
     +     .00598,    .02436,    .04325 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
     +     .43304,    .17878,    .25680,    .03052,    .00971,
     +     .00603,    .02392,    .04228,
     +     .42757,    .17600,    .24757,    .02994,    .00965,
     +     .00608,    .02349,    .04133,
     +     .42237,    .17338,    .23913,    .02941,    .00958,
     +     .00610,    .02307,    .04046,
     +     .41749,    .17093,    .23146,    .02891,    .00951,
     +     .00612,    .02269,    .03964,
     +     .41256,    .16846,    .22399,    .02839,    .00943,
     +     .00613,    .02230,    .03883 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
     +     .61097,    .29648,    .94985,    .03930,    .00000,
     +     .00000,    .02518,    .07724,
     +     .61174,    .29355,    .91398,    .03940,    .00000,
     +     .00000,    .02575,    .07563,
     +     .61056,    .28877,    .87535,    .03951,   -.00725,
     +     .00000,    .02646,    .07319,
     +     .60831,    .28489,    .83423,    .03946,   -.00532,
     +     .00000,    .02685,    .07148,
     +     .60495,    .28061,    .79241,    .03935,   -.00373,
     +     .00000,    .02712,    .06968,
     +     .60140,    .27673,    .75753,    .03910,   -.00250,
     +     .00000,    .02725,    .06817,
     +     .59752,    .27294,    .72530,    .03886,   -.00140,
     +     .00000,    .02734,    .06670,
     +     .59296,    .26886,    .69249,    .03855,   -.00033,
     +     .00000,    .02736,    .06513 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
     +     .58861,    .26524,    .66492,    .03824,    .00049,
     +     .00000,    .02733,    .06375,
     +     .58414,    .26171,    .63920,    .03790,    .00121,
     +     .00000,    .02726,    .06246,
     +     .58048,    .25891,    .61959,    .03761,    .00176,
     +     .00000,    .02717,    .06146,
     +     .57219,    .25294,    .58015,    .03697,    .00277,
     +     .00000,    .02691,    .05934,
     +     .56460,    .24774,    .55115,    .03637,    .00351,
     +    -.00248,    .02665,    .05757,
     +     .55577,    .24196,    .51454,    .03565,    .00421,
     +    -.00137,    .02628,    .05563,
     +     .54628,    .23601,    .47928,    .03486,    .00483,
     +    -.00045,    .02584,    .05364,
     +     .53750,    .23065,    .44955,    .03410,    .00530,
     +     .00027,    .02540,    .05188 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
     +     .52851,    .22530,    .42160,    .03332,    .00570,
     +     .00091,    .02490,    .05016,
     +     .52094,    .22091,    .39982,    .03268,    .00597,
     +     .00136,    .02449,    .04875,
     +     .51167,    .21566,    .37503,    .03186,    .00624,
     +     .00185,    .02396,    .04707,
     +     .50347,    .21109,    .35456,    .03115,    .00644,
     +     .00223,    .02350,    .04565,
     +     .49595,    .20696,    .33695,    .03051,    .00659,
     +     .00253,    .02305,    .04436,
     +     .48637,    .20178,    .31598,    .02965,    .00673,
     +     .00286,    .02245,    .04278,
     +     .47738,    .19701,    .29762,    .02888,    .00683,
     +     .00312,    .02191,    .04133,
     +     .46904,    .19266,    .28156,    .02818,    .00690,
     +     .00334,    .02140,    .04002 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
     +     .46068,    .18834,    .26645,    .02745,    .00693,
     +     .00351,    .02089,    .03873,
     +     .45258,    .18421,    .25262,    .02677,    .00694,
     +     .00366,    .02039,    .03753,
     +     .44498,    .18036,    .24033,    .02612,    .00695,
     +     .00379,    .01992,    .03643,
     +     .43785,    .17680,    .22936,    .02553,    .00693,
     +     .00388,    .01947,    .03540,
     +     .43080,    .17330,    .21895,    .02492,    .00690,
     +     .00395,    .01903,    .03442,
     +     .42384,    .16987,    .20921,    .02435,    .00686,
     +     .00401,    .01861,    .03347,
     +     .41733,    .16671,    .20046,    .02382,    .00683,
     +     .00407,    .01820,    .03259,
     +     .41117,    .16375,    .19257,    .02332,    .00678,
     +     .00410,    .01783,    .03176 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
     +     .40506,    .16083,    .18500,    .02283,    .00672,
     +     .00413,    .01747,    .03097,
     +     .39907,    .15798,    .17788,    .02235,    .00667,
     +     .00415,    .01711,    .03019,
     +     .39341,    .15530,    .17141,    .02190,    .00661,
     +     .00416,    .01677,    .02946,
     +     .38811,    .15281,    .16552,    .02149,    .00655,
     +     .00416,    .01645,    .02879,
     +     .38274,    .15031,    .15980,    .02107,    .00649,
     +     .00417,    .01614,    .02812 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
     +     .63081,    .29486,    .81947,    .03284,    .00000,
     +     .00000,    .02082,    .06494,
     +     .62871,    .29059,    .78203,    .03292,    .00000,
     +     .00000,    .02124,    .06309,
     +     .62351,    .28395,    .74086,    .03286,   -.00641,
     +     .00000,    .02169,    .06056,
     +     .61851,    .27885,    .70053,    .03268,   -.00480,
     +     .00000,    .02192,    .05882,
     +     .61235,    .27334,    .66011,    .03245,   -.00346,
     +     .00000,    .02207,    .05698,
     +     .60641,    .26858,    .62677,    .03221,   -.00244,
     +     .00000,    .02213,    .05538,
     +     .60032,    .26395,    .59640,    .03190,   -.00153,
     +     .00000,    .02209,    .05391,
     +     .59355,    .25903,    .56574,    .03153,   -.00066,
     +     .00000,    .02202,    .05239 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
     +     .58735,    .25472,    .54026,    .03118,   -.00001,
     +     .00000,    .02191,    .05108,
     +     .58116,    .25060,    .51671,    .03081,    .00057,
     +     .00000,    .02176,    .04986,
     +     .57615,    .24736,    .49886,    .03052,    .00101,
     +     .00000,    .02162,    .04890,
     +     .56523,    .24045,    .46328,    .02985,    .00181,
     +     .00000,    .02130,    .04690,
     +     .55553,    .23458,    .43729,    .02923,    .00239,
     +    -.00207,    .02098,    .04529,
     +     .54447,    .22813,    .40526,    .02851,    .00293,
     +    -.00122,    .02060,    .04350,
     +     .53282,    .22152,    .37470,    .02775,    .00340,
     +    -.00051,    .02014,    .04172,
     +     .52218,    .21566,    .34918,    .02705,    .00376,
     +     .00005,    .01970,    .04013 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
     +     .51144,    .20991,    .32537,    .02634,    .00405,
     +     .00053,    .01925,    .03857,
     +     .50258,    .20514,    .30700,    .02572,    .00426,
     +     .00088,    .01885,    .03736,
     +     .49180,    .19951,    .28628,    .02499,    .00445,
     +     .00123,    .01836,    .03590,
     +     .48233,    .19466,    .26927,    .02435,    .00459,
     +     .00151,    .01793,    .03465,
     +     .47374,    .19030,    .25471,    .02376,    .00469,
     +     .00173,    .01752,    .03355,
     +     .46285,    .18489,    .23750,    .02305,    .00478,
     +     .00197,    .01701,    .03219,
     +     .45280,    .17992,    .22257,    .02236,    .00484,
     +     .00216,    .01653,    .03097,
     +     .44357,    .17537,    .20961,    .02170,    .00489,
     +     .00232,    .01610,    .02986 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
     +     .43429,    .17094,    .19750,    .02109,    .00490,
     +     .00244,    .01564,    .02880,
     +     .42537,    .16671,    .18646,    .02051,    .00490,
     +     .00255,    .01521,    .02779,
     +     .41707,    .16280,    .17669,    .01997,    .00489,
     +     .00262,    .01481,    .02688,
     +     .40931,    .15918,    .16803,    .01946,    .00487,
     +     .00269,    .01444,    .02604,
     +     .40167,    .15565,    .15987,    .01896,    .00484,
     +     .00273,    .01408,    .02523,
     +     .39422,    .15221,    .15227,    .01848,    .00480,
     +     .00277,    .01372,    .02445,
     +     .38731,    .14902,    .14545,    .01804,    .00477,
     +     .00281,    .01338,    .02374,
     +     .38077,    .14605,    .13933,    .01760,    .00473,
     +     .00283,    .01309,    .02309 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
     +     .37431,    .14313,    .13349,    .01718,    .00469,
     +     .00285,    .01279,    .02244,
     +     .36799,    .14030,    .12802,    .01677,    .00464,
     +     .00285,    .01249,    .02183,
     +     .36204,    .13765,    .12306,    .01640,    .00459,
     +     .00285,    .01221,    .02126,
     +     .35650,    .13519,    .11856,    .01605,    .00454,
     +     .00285,    .01194,    .02074,
     +     .35092,    .13272,    .11422,    .01569,    .00449,
     +     .00285,    .01169,    .02022 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
     +     .64382,    .28958,    .70259,    .02745,    .00000,
     +     .00000,    .01719,    .05343,
     +     .63858,    .28412,    .66518,    .02745,    .00000,
     +     .00000,    .01744,    .05167,
     +     .62915,    .27579,    .62367,    .02731,   -.00563,
     +     .00000,    .01769,    .04918,
     +     .62120,    .26974,    .58516,    .02719,   -.00427,
     +     .00000,    .01778,    .04741,
     +     .61215,    .26327,    .54703,    .02690,   -.00315,
     +     .00000,    .01782,    .04567,
     +     .60393,    .25767,    .51602,    .02660,   -.00229,
     +     .00000,    .01775,    .04421,
     +     .59577,    .25233,    .48799,    .02627,   -.00155,
     +     .00000,    .01765,    .04283,
     +     .58686,    .24671,    .45995,    .02590,   -.00083,
     +     .00000,    .01752,    .04142 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
     +     .57893,    .24185,    .43686,    .02552,   -.00029,
     +     .00000,    .01737,    .04024,
     +     .57113,    .23722,    .41570,    .02517,    .00017,
     +     .00000,    .01719,    .03913,
     +     .56491,    .23361,    .39976,    .02488,    .00052,
     +     .00000,    .01705,    .03825,
     +     .55151,    .22607,    .36819,    .02423,    .00115,
     +     .00000,    .01672,    .03646,
     +     .53985,    .21975,    .34530,    .02366,    .00161,
     +    -.00172,    .01641,    .03499,
     +     .52682,    .21283,    .31767,    .02299,    .00203,
     +    -.00105,    .01602,    .03341,
     +     .51333,    .20580,    .29153,    .02227,    .00239,
     +    -.00051,    .01558,    .03187,
     +     .50117,    .19961,    .26990,    .02162,    .00267,
     +    -.00008,    .01516,    .03051 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
     +     .48901,    .19351,    .24991,    .02098,    .00289,
     +     .00029,    .01476,    .02918,
     +     .47901,    .18860,    .23459,    .02044,    .00303,
     +     .00055,    .01442,    .02812,
     +     .46706,    .18275,    .21744,    .01976,    .00317,
     +     .00081,    .01397,    .02694,
     +     .45667,    .17771,    .20351,    .01916,    .00327,
     +     .00103,    .01356,    .02593,
     +     .44731,    .17326,    .19165,    .01861,    .00334,
     +     .00119,    .01320,    .02503,
     +     .43548,    .16773,    .17772,    .01798,    .00341,
     +     .00136,    .01279,    .02390,
     +     .42458,    .16271,    .16572,    .01739,    .00345,
     +     .00150,    .01238,    .02289,
     +     .41460,    .15816,    .15538,    .01685,    .00347,
     +     .00162,    .01199,    .02200 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
     +     .40476,    .15369,    .14576,    .01631,    .00347,
     +     .00169,    .01162,    .02113,
     +     .39536,    .14945,    .13703,    .01580,    .00347,
     +     .00177,    .01127,    .02033,
     +     .38664,    .14554,    .12937,    .01532,    .00345,
     +     .00183,    .01094,    .01961,
     +     .37852,    .14196,    .12259,    .01488,    .00344,
     +     .00187,    .01063,    .01894,
     +     .37057,    .13846,    .11623,    .01445,    .00341,
     +     .00190,    .01033,    .01830,
     +     .36279,    .13509,    .11037,    .01405,    .00338,
     +     .00193,    .01005,    .01768,
     +     .35559,    .13199,    .10515,    .01369,    .00335,
     +     .00195,    .00978,    .01711,
     +     .34884,    .12909,    .10047,    .01334,    .00331,
     +     .00196,    .00952,    .01660 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
     +     .34219,    .12626,    .09601,    .01300,    .00327,
     +     .00197,    .00928,    .01609,
     +     .33573,    .12351,    .09183,    .01266,    .00323,
     +     .00197,    .00905,    .01562,
     +     .32967,    .12094,    .08806,    .01234,    .00320,
     +     .00197,    .00884,    .01518,
     +     .32403,    .11857,    .08465,    .01205,    .00316,
     +     .00197,    .00863,    .01477,
     +     .31837,    .11620,    .08137,    .01176,    .00312,
     +     .00197,    .00843,    .01436 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
     +     .64901,    .28234,    .59782,    .02387,    .00000,
     +     .00000,    .01339,    .04256,
     +     .64085,    .27560,    .56140,    .02375,    .00000,
     +     .00000,    .01363,    .04094,
     +     .62727,    .26578,    .52081,    .02343,   -.00488,
     +     .00000,    .01384,    .03870,
     +     .61667,    .25868,    .48473,    .02313,   -.00375,
     +     .00000,    .01395,    .03721,
     +     .60499,    .25130,    .44944,    .02276,   -.00280,
     +     .00000,    .01397,    .03564,
     +     .59459,    .24501,    .42111,    .02241,   -.00209,
     +     .00000,    .01389,    .03436,
     +     .58447,    .23910,    .39567,    .02204,   -.00147,
     +     .00000,    .01380,    .03318,
     +     .57362,    .23294,    .37050,    .02162,   -.00089,
     +     .00000,    .01367,    .03196 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
     +     .56411,    .22767,    .34995,    .02124,   -.00045,
     +     .00000,    .01353,    .03093,
     +     .55492,    .22263,    .33126,    .02085,   -.00007,
     +     .00000,    .01338,    .02997,
     +     .54768,    .21872,    .31727,    .02051,    .00020,
     +     .00000,    .01324,    .02925,
     +     .53213,    .21068,    .28978,    .01990,    .00071,
     +     .00000,    .01290,    .02772,
     +     .51898,    .20394,    .26998,    .01929,    .00107,
     +    -.00140,    .01261,    .02652,
     +     .50437,    .19663,    .24648,    .01861,    .00140,
     +    -.00089,    .01227,    .02525,
     +     .48936,    .18934,    .22449,    .01792,    .00168,
     +    -.00046,    .01187,    .02399,
     +     .47597,    .18296,    .20644,    .01734,    .00189,
     +    -.00014,    .01153,    .02285 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
     +     .46268,    .17677,    .18991,    .01674,    .00205,
     +     .00015,    .01119,    .02173,
     +     .45192,    .17175,    .17732,    .01621,    .00216,
     +     .00034,    .01086,    .02091,
     +     .43904,    .16584,    .16338,    .01563,    .00226,
     +     .00054,    .01049,    .01993,
     +     .42789,    .16081,    .15213,    .01512,    .00233,
     +     .00069,    .01017,    .01908,
     +     .41790,    .15634,    .14259,    .01470,    .00238,
     +     .00082,    .00988,    .01832,
     +     .40549,    .15083,    .13148,    .01409,    .00243,
     +     .00095,    .00952,    .01744,
     +     .39409,    .14584,    .12198,    .01357,    .00245,
     +     .00104,    .00919,    .01664,
     +     .38369,    .14136,    .11382,    .01311,    .00246,
     +     .00112,    .00889,    .01593 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
     +     .37347,    .13696,    .10633,    .01267,    .00246,
     +     .00119,    .00857,    .01527,
     +     .36377,    .13281,    .09957,    .01224,    .00245,
     +     .00124,    .00828,    .01463,
     +     .35484,    .12901,    .09367,    .01181,    .00244,
     +     .00127,    .00800,    .01407,
     +     .34656,    .12554,    .08847,    .01143,    .00242,
     +     .00130,    .00776,    .01355,
     +     .33845,    .12217,    .08359,    .01106,    .00240,
     +     .00133,    .00754,    .01307,
     +     .33059,    .11891,    .07913,    .01072,    .00237,
     +     .00134,    .00731,    .01258,
     +     .32333,    .11591,    .07517,    .01040,    .00235,
     +     .00135,    .00709,    .01215,
     +     .31655,    .11315,    .07164,    .01013,    .00232,
     +     .00136,    .00690,    .01175 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
     +     .30988,    .11043,    .06827,    .00985,    .00228,
     +     .00136,    .00671,    .01138,
     +     .30340,    .10782,    .06516,    .00958,    .00226,
     +     .00137,    .00653,    .01100,
     +     .29733,    .10538,    .06236,    .00934,    .00223,
     +     .00136,    .00635,    .01066,
     +     .29170,    .10313,    .05984,    .00910,    .00219,
     +     .00136,    .00620,    .01035,
     +     .28611,    .10090,    .05743,    .00886,    .00216,
     +     .00135,    .00603,    .01005 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
     +     .64864,    .27157,    .50220,    .02004,    .00000,
     +     .00000,    .01070,    .03353,
     +     .63727,    .26391,    .46782,    .01985,    .00000,
     +     .00000,    .01090,    .03209,
     +     .61961,    .25281,    .42925,    .01953,   -.00420,
     +     .00000,    .01106,    .03012,
     +     .60635,    .24503,    .39627,    .01924,   -.00326,
     +     .00000,    .01107,    .02883,
     +     .59206,    .23703,    .36435,    .01886,   -.00246,
     +     .00000,    .01101,    .02751,
     +     .57967,    .23024,    .33898,    .01848,   -.00187,
     +     .00000,    .01095,    .02642,
     +     .56780,    .22383,    .31645,    .01810,   -.00136,
     +     .00000,    .01084,    .02543,
     +     .55524,    .21724,    .29433,    .01767,   -.00089,
     +     .00000,    .01068,    .02442 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
     +     .54429,    .21172,    .27643,    .01732,   -.00053,
     +     .00000,    .01053,    .02353,
     +     .53380,    .20650,    .26022,    .01697,   -.00022,
     +     .00000,    .01038,    .02273,
     +     .52559,    .20245,    .24820,    .01665,   -.00001,
     +     .00000,    .01027,    .02212,
     +     .50831,    .19410,    .22481,    .01605,    .00040,
     +     .00000,    .00998,    .02083,
     +     .49378,    .18722,    .20794,    .01552,    .00068,
     +    -.00114,    .00969,    .01986,
     +     .47784,    .17980,    .18828,    .01495,    .00094,
     +    -.00074,    .00938,    .01880,
     +     .46168,    .17241,    .17012,    .01433,    .00116,
     +    -.00041,    .00906,    .01775,
     +     .44738,    .16599,    .15539,    .01379,    .00131,
     +    -.00016,    .00874,    .01682 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
     +     .43329,    .15978,    .14199,    .01326,    .00144,
     +     .00005,    .00843,    .01596,
     +     .42190,    .15479,    .13186,    .01280,    .00151,
     +     .00019,    .00817,    .01531,
     +     .40842,    .14896,    .12075,    .01228,    .00159,
     +     .00035,    .00785,    .01451,
     +     .39686,    .14400,    .11181,    .01184,    .00165,
     +     .00046,    .00760,    .01384,
     +     .38655,    .13960,    .10433,    .01142,    .00168,
     +     .00055,    .00735,    .01327,
     +     .37372,    .13422,    .09564,    .01093,    .00171,
     +     .00064,    .00705,    .01260,
     +     .36209,    .12937,    .08828,    .01048,    .00172,
     +     .00071,    .00677,    .01199,
     +     .35154,    .12503,    .08198,    .01007,    .00173,
     +     .00077,    .00652,    .01145 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
     +     .34120,    .12082,    .07625,    .00970,    .00173,
     +     .00082,    .00628,    .01091,
     +     .33142,    .11686,    .07112,    .00934,    .00172,
     +     .00085,    .00604,    .01042,
     +     .32244,    .11324,    .06665,    .00900,    .00171,
     +     .00088,    .00584,    .00998,
     +     .31412,    .10993,    .06274,    .00871,    .00169,
     +     .00090,    .00564,    .00957,
     +     .30602,    .10672,    .05910,    .00844,    .00168,
     +     .00092,    .00546,    .00919,
     +     .29821,    .10366,    .05577,    .00814,    .00166,
     +     .00093,    .00528,    .00884,
     +     .29103,    .10083,    .05281,    .00788,    .00163,
     +     .00093,    .00513,    .00852,
     +     .28435,    .09822,    .05022,    .00764,    .00161,
     +     .00093,    .00497,    .00823 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
     +     .27782,    .09567,    .04777,    .00739,    .00159,
     +     .00094,    .00482,    .00795,
     +     .27149,    .09322,    .04547,    .00718,    .00157,
     +     .00094,    .00467,    .00768,
     +     .26561,    .09095,    .04341,    .00696,    .00154,
     +     .00094,    .00454,    .00743,
     +     .26014,    .08885,    .04157,    .00676,    .00151,
     +     .00093,    .00442,    .00720,
     +     .25466,    .08677,    .03980,    .00659,    .00149,
     +     .00093,    .00430,    .00698 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
     +     .64167,    .25911,    .41528,    .01713,    .00000,
     +     .00000,    .00826,    .02556,
     +     .62731,    .25069,    .38351,    .01690,    .00000,
     +     .00000,    .00845,    .02436,
     +     .60582,    .23861,    .34791,    .01649,   -.00358,
     +     .00000,    .00857,    .02281,
     +     .59018,    .23024,    .31841,    .01613,   -.00278,
     +     .00000,    .00859,    .02174,
     +     .57368,    .22161,    .29014,    .01573,   -.00212,
     +     .00000,    .00852,    .02068,
     +     .55956,    .21445,    .26790,    .01532,   -.00163,
     +     .00000,    .00844,    .01984,
     +     .54609,    .20783,    .24838,    .01494,   -.00122,
     +     .00000,    .00836,    .01900,
     +     .53200,    .20108,    .22934,    .01458,   -.00083,
     +     .00000,    .00824,    .01811 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
     +     .51993,    .19534,    .21403,    .01421,   -.00054,
     +     .00000,    .00812,    .01744,
     +     .50844,    .18995,    .20037,    .01384,   -.00030,
     +     .00000,    .00798,    .01679,
     +     .49950,    .18579,    .19025,    .01356,   -.00012,
     +     .00000,    .00787,    .01629,
     +     .48077,    .17729,    .17074,    .01301,    .00019,
     +     .00000,    .00759,    .01533,
     +     .46528,    .17035,    .15676,    .01247,    .00042,
     +    -.00092,    .00738,    .01455,
     +     .44841,    .16297,    .14078,    .01191,    .00062,
     +    -.00060,    .00710,    .01371,
     +     .43141,    .15563,    .12607,    .01136,    .00079,
     +    -.00035,    .00681,    .01291,
     +     .41650,    .14929,    .11428,    .01088,    .00090,
     +    -.00017,    .00655,    .01222 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
     +     .40198,    .14316,    .10367,    .01040,    .00100,
     +    -.00001,    .00630,    .01154,
     +     .39026,    .13829,    .09573,    .01003,    .00106,
     +     .00011,    .00609,    .01099,
     +     .37650,    .13262,    .08706,    .00955,    .00112,
     +     .00022,    .00584,    .01038,
     +     .36468,    .12785,    .08014,    .00919,    .00115,
     +     .00030,    .00562,    .00989,
     +     .35415,    .12363,    .07436,    .00889,    .00118,
     +     .00037,    .00543,    .00946,
     +     .34125,    .11846,    .06778,    .00847,    .00120,
     +     .00044,    .00517,    .00892,
     +     .32958,    .11383,    .06224,    .00809,    .00121,
     +     .00049,    .00495,    .00845,
     +     .31905,    .10969,    .05752,    .00775,    .00121,
     +     .00053,    .00477,    .00803 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
     +     .30884,    .10570,    .05323,    .00742,    .00121,
     +     .00057,    .00456,    .00765,
     +     .29917,    .10197,    .04941,    .00711,    .00120,
     +     .00059,    .00437,    .00730,
     +     .29024,    .09856,    .04614,    .00686,    .00119,
     +     .00061,    .00423,    .00696,
     +     .28210,    .09545,    .04329,    .00660,    .00118,
     +     .00062,    .00407,    .00667,
     +     .27420,    .09245,    .04065,    .00636,    .00116,
     +     .00063,    .00393,    .00639,
     +     .26660,    .08958,    .03826,    .00612,    .00115,
     +     .00064,    .00378,    .00614,
     +     .25964,    .08696,    .03614,    .00592,    .00113,
     +     .00065,    .00364,    .00591,
     +     .25318,    .08455,    .03427,    .00571,    .00112,
     +     .00065,    .00354,    .00569 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
     +     .24685,    .08221,    .03250,    .00553,    .00110,
     +     .00065,    .00342,    .00548,
     +     .24076,    .07995,    .03088,    .00535,    .00107,
     +     .00064,    .00332,    .00527,
     +     .23509,    .07785,    .02942,    .00520,    .00106,
     +     .00064,    .00322,    .00509,
     +     .22984,    .07592,    .02812,    .00505,    .00105,
     +     .00064,    .00313,    .00491,
     +     .22464,    .07403,    .02690,    .00490,    .00102,
     +     .00063,    .00304,    .00474 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
     +     .62884,    .24499,    .33581,    .01444,    .00000,
     +     .00000,    .00634,    .01907,
     +     .61187,    .23576,    .30722,    .01418,    .00000,
     +     .00000,    .00646,    .01821,
     +     .58692,    .22297,    .27541,    .01374,   -.00300,
     +     .00000,    .00660,    .01690,
     +     .56924,    .21413,    .24967,    .01332,   -.00234,
     +     .00000,    .00658,    .01612,
     +     .55070,    .20530,    .22531,    .01293,   -.00180,
     +     .00000,    .00656,    .01525,
     +     .53500,    .19796,    .20640,    .01258,   -.00140,
     +     .00000,    .00650,    .01452,
     +     .52031,    .19118,    .18989,    .01220,   -.00106,
     +     .00000,    .00641,    .01391,
     +     .50509,    .18425,    .17395,    .01177,   -.00075,
     +     .00000,    .00627,    .01331 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
     +     .49207,    .17844,    .16129,    .01146,   -.00051,
     +     .00000,    .00617,    .01272,
     +     .47976,    .17301,    .15001,    .01114,   -.00032,
     +     .00000,    .00605,    .01224,
     +     .47023,    .16886,    .14173,    .01090,   -.00018,
     +     .00000,    .00592,    .01189,
     +     .45062,    .16039,    .12588,    .01030,    .00007,
     +     .00000,    .00571,    .01115,
     +     .43433,    .15360,    .11468,    .00991,    .00024,
     +    -.00073,    .00551,    .01049,
     +     .41680,    .14633,    .10198,    .00947,    .00040,
     +    -.00049,    .00529,    .00983,
     +     .39934,    .13916,    .09045,    .00897,    .00052,
     +    -.00029,    .00507,    .00921,
     +     .38413,    .13301,    .08126,    .00854,    .00061,
     +    -.00016,    .00486,    .00869 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
     +     .36933,    .12714,    .07312,    .00812,    .00069,
     +    -.00003,    .00465,    .00818,
     +     .35749,    .12246,    .06707,    .00781,    .00073,
     +     .00005,    .00449,    .00776,
     +     .34365,    .11702,    .06052,    .00742,    .00077,
     +     .00013,    .00429,    .00735,
     +     .33190,    .11245,    .05535,    .00708,    .00080,
     +     .00019,    .00409,    .00699,
     +     .32152,    .10845,    .05109,    .00679,    .00082,
     +     .00025,    .00393,    .00665,
     +     .30877,    .10360,    .04626,    .00644,    .00083,
     +     .00029,    .00375,    .00623,
     +     .29727,    .09926,    .04219,    .00615,    .00083,
     +     .00033,    .00359,    .00589,
     +     .28693,    .09538,    .03877,    .00589,    .00083,
     +     .00036,    .00343,    .00559 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
     +     .27692,    .09166,    .03573,    .00560,    .00084,
     +     .00039,    .00329,    .00528,
     +     .26751,    .08817,    .03303,    .00536,    .00082,
     +     .00040,    .00314,    .00502,
     +     .25895,    .08501,    .03068,    .00514,    .00082,
     +     .00042,    .00302,    .00479,
     +     .25108,    .08214,    .02869,    .00493,    .00081,
     +     .00042,    .00289,    .00459,
     +     .24348,    .07939,    .02683,    .00474,    .00080,
     +     .00043,    .00278,    .00440,
     +     .23621,    .07676,    .02517,    .00455,    .00078,
     +     .00043,    .00267,    .00421,
     +     .22955,    .07436,    .02370,    .00438,    .00077,
     +     .00044,    .00259,    .00403,
     +     .22336,    .07215,    .02243,    .00425,    .00076,
     +     .00044,    .00250,    .00387 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
     +     .21733,    .07001,    .02122,    .00411,    .00074,
     +     .00044,    .00242,    .00372,
     +     .21156,    .06797,    .02012,    .00397,    .00074,
     +     .00044,    .00233,    .00357,
     +     .20622,    .06607,    .01916,    .00383,    .00073,
     +     .00044,    .00226,    .00342,
     +     .20129,    .06433,    .01829,    .00370,    .00071,
     +     .00043,    .00218,    .00330,
     +     .19637,    .06261,    .01745,    .00360,    .00069,
     +     .00043,    .00212,    .00319 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
     +     .61099,    .22898,    .26358,    .01176,    .00000,
     +     .00000,    .00492,    .01408,
     +     .59154,    .21941,    .23877,    .01151,    .00000,
     +     .00000,    .00502,    .01335,
     +     .56352,    .20622,    .21123,    .01109,   -.00248,
     +     .00000,    .00506,    .01245,
     +     .54396,    .19726,    .18937,    .01077,   -.00194,
     +     .00000,    .00513,    .01173,
     +     .52387,    .18822,    .16913,    .01034,   -.00149,
     +     .00000,    .00502,    .01112,
     +     .50693,    .18087,    .15343,    .01005,   -.00117,
     +     .00000,    .00498,    .01055,
     +     .49120,    .17410,    .13988,    .00974,   -.00089,
     +     .00000,    .00489,    .01007,
     +     .47504,    .16720,    .12697,    .00939,   -.00065,
     +     .00000,    .00477,    .00960 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
     +     .46137,    .16143,    .11683,    .00905,   -.00047,
     +     .00000,    .00468,    .00923,
     +     .44855,    .15609,    .10789,    .00875,   -.00031,
     +     .00000,    .00456,    .00884,
     +     .43868,    .15203,    .10133,    .00852,   -.00020,
     +     .00000,    .00450,    .00852,
     +     .41831,    .14374,    .08895,    .00809,    .00000,
     +     .00000,    .00429,    .00794,
     +     .40168,    .13710,    .08032,    .00772,    .00012,
     +    -.00057,    .00412,    .00747,
     +     .38394,    .13010,    .07058,    .00727,    .00025,
     +    -.00038,    .00396,    .00699,
     +     .36628,    .12326,    .06189,    .00688,    .00033,
     +    -.00025,    .00376,    .00650,
     +     .35098,    .11739,    .05508,    .00653,    .00040,
     +    -.00014,    .00358,    .00610 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
     +     .33632,    .11175,    .04903,    .00618,    .00046,
     +    -.00004,    .00343,    .00574,
     +     .32455,    .10734,    .04458,    .00590,    .00049,
     +     .00002,    .00329,    .00546,
     +     .31087,    .10226,    .03986,    .00561,    .00052,
     +     .00008,    .00311,    .00511,
     +     .29932,    .09799,    .03619,    .00535,    .00054,
     +     .00012,    .00296,    .00484,
     +     .28916,    .09423,    .03316,    .00512,    .00056,
     +     .00016,    .00286,    .00459,
     +     .27676,    .08970,    .02976,    .00482,    .00056,
     +     .00019,    .00273,    .00431,
     +     .26563,    .08568,    .02696,    .00457,    .00057,
     +     .00023,    .00258,    .00407,
     +     .25566,    .08211,    .02462,    .00435,    .00057,
     +     .00024,    .00245,    .00384 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
     +     .24602,    .07869,    .02254,    .00416,    .00057,
     +     .00026,    .00234,    .00363,
     +     .23701,    .07551,    .02072,    .00396,    .00056,
     +     .00027,    .00225,    .00344,
     +     .22881,    .07263,    .01916,    .00380,    .00055,
     +     .00028,    .00215,    .00325,
     +     .22136,    .07001,    .01785,    .00363,    .00055,
     +     .00028,    .00205,    .00310,
     +     .21415,    .06750,    .01664,    .00348,    .00054,
     +     .00029,    .00197,    .00297,
     +     .20729,    .06513,    .01556,    .00334,    .00053,
     +     .00029,    .00189,    .00282,
     +     .20103,    .06298,    .01462,    .00320,    .00053,
     +     .00030,    .00181,    .00268,
     +     .19524,    .06098,    .01379,    .00308,    .00051,
     +     .00030,    .00175,    .00258 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
     +     .18961,    .05904,    .01301,    .00297,    .00051,
     +     .00030,    .00168,    .00248,
     +     .18420,    .05721,    .01230,    .00287,    .00050,
     +     .00030,    .00162,    .00239,
     +     .17920,    .05551,    .01169,    .00277,    .00048,
     +     .00029,    .00156,    .00230,
     +     .17460,    .05395,    .01116,    .00267,    .00048,
     +     .00030,    .00151,    .00221,
     +     .17009,    .05244,    .01063,    .00257,    .00047,
     +     .00029,    .00147,    .00213 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
     +     .58761,    .21284,    .19856,    .01001,    .00000,
     +     .00000,    .00354,    .00981,
     +     .56619,    .20293,    .17764,    .00965,    .00000,
     +     .00000,    .00364,    .00940,
     +     .53585,    .18940,    .15487,    .00914,   -.00201,
     +     .00000,    .00377,    .00866,
     +     .51490,    .18032,    .13707,    .00877,   -.00158,
     +     .00000,    .00375,    .00829,
     +     .49355,    .17135,    .12070,    .00844,   -.00122,
     +     .00000,    .00374,    .00777,
     +     .47586,    .16399,    .10827,    .00809,   -.00096,
     +     .00000,    .00367,    .00741,
     +     .45946,    .15727,    .09767,    .00780,   -.00075,
     +     .00000,    .00360,    .00706,
     +     .44270,    .15048,    .08770,    .00747,   -.00055,
     +     .00000,    .00353,    .00669 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
     +     .42866,    .14484,    .07990,    .00717,   -.00040,
     +     .00000,    .00343,    .00643,
     +     .41546,    .13967,    .07307,    .00693,   -.00029,
     +     .00000,    .00335,    .00616,
     +     .40534,    .13575,    .06816,    .00674,   -.00020,
     +     .00000,    .00328,    .00593,
     +     .38469,    .12782,    .05902,    .00635,   -.00005,
     +     .00000,    .00314,    .00546,
     +     .36802,    .12146,    .05257,    .00600,    .00005,
     +    -.00044,    .00302,    .00514,
     +     .35028,    .11480,    .04548,    .00566,    .00014,
     +    -.00030,    .00288,    .00478,
     +     .33279,    .10828,    .03924,    .00532,    .00021,
     +    -.00019,    .00272,    .00446,
     +     .31776,    .10274,    .03440,    .00500,    .00026,
     +    -.00011,    .00258,    .00419 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
     +     .30332,    .09748,    .03020,    .00471,    .00031,
     +    -.00004,    .00244,    .00396,
     +     .29187,    .09336,    .02720,    .00451,    .00033,
     +     .00000,    .00233,    .00372,
     +     .27866,    .08863,    .02397,    .00423,    .00035,
     +     .00005,    .00221,    .00347,
     +     .26750,    .08468,    .02153,    .00400,    .00036,
     +     .00007,    .00212,    .00325,
     +     .25768,    .08124,    .01953,    .00384,    .00037,
     +     .00010,    .00203,    .00308,
     +     .24577,    .07706,    .01731,    .00361,    .00038,
     +     .00013,    .00190,    .00290,
     +     .23514,    .07337,    .01552,    .00341,    .00039,
     +     .00015,    .00181,    .00273,
     +     .22568,    .07011,    .01405,    .00323,    .00038,
     +     .00016,    .00172,    .00258 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
     +     .21661,    .06702,    .01275,    .00305,    .00038,
     +     .00017,    .00164,    .00243,
     +     .20813,    .06414,    .01163,    .00290,    .00038,
     +     .00018,    .00155,    .00229,
     +     .20043,    .06155,    .01069,    .00277,    .00037,
     +     .00019,    .00148,    .00216,
     +     .19344,    .05919,    .00989,    .00265,    .00037,
     +     .00019,    .00142,    .00207,
     +     .18673,    .05694,    .00916,    .00252,    .00036,
     +     .00019,    .00136,    .00198,
     +     .18032,    .05481,    .00854,    .00242,    .00036,
     +     .00020,    .00131,    .00187,
     +     .17449,    .05288,    .00799,    .00231,    .00035,
     +     .00019,    .00125,    .00179,
     +     .16914,    .05112,    .00752,    .00223,    .00035,
     +     .00020,    .00121,    .00171 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
     +     .16393,    .04942,    .00709,    .00214,    .00034,
     +     .00020,    .00115,    .00162,
     +     .15896,    .04778,    .00670,    .00205,    .00033,
     +     .00019,    .00111,    .00155,
     +     .15437,    .04628,    .00634,    .00199,    .00033,
     +     .00020,    .00108,    .00149,
     +     .15015,    .04492,    .00603,    .00192,    .00032,
     +     .00020,    .00103,    .00144,
     +     .14598,    .04357,    .00575,    .00185,    .00031,
     +     .00019,    .00100,    .00139 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
     +     .56049,    .19563,    .14049,    .00809,    .00000,
     +     .00000,    .00258,    .00676,
     +     .53728,    .18572,    .12386,    .00780,    .00000,
     +     .00000,    .00264,    .00647,
     +     .50501,    .17228,    .10594,    .00740,   -.00161,
     +     .00000,    .00271,    .00597,
     +     .48299,    .16339,    .09214,    .00706,   -.00126,
     +     .00000,    .00269,    .00569,
     +     .46078,    .15461,    .07961,    .00679,   -.00097,
     +     .00000,    .00267,    .00532,
     +     .44250,    .14738,    .07024,    .00648,   -.00077,
     +     .00000,    .00263,    .00510,
     +     .42573,    .14089,    .06240,    .00620,   -.00061,
     +     .00000,    .00257,    .00485,
     +     .40866,    .13440,    .05509,    .00593,   -.00045,
     +     .00000,    .00250,    .00457 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
     +     .39442,    .12898,    .04942,    .00573,   -.00034,
     +     .00000,    .00248,    .00433,
     +     .38124,    .12398,    .04459,    .00548,   -.00025,
     +     .00000,    .00240,    .00415,
     +     .37117,    .12018,    .04116,    .00527,   -.00019,
     +     .00000,    .00234,    .00402,
     +     .35063,    .11265,    .03473,    .00495,   -.00007,
     +     .00000,    .00223,    .00371,
     +     .33418,    .10666,    .03042,    .00467,    .00001,
     +    -.00033,    .00211,    .00346,
     +     .31675,    .10040,    .02562,    .00437,    .00008,
     +    -.00023,    .00199,    .00322,
     +     .29971,    .09434,    .02143,    .00407,    .00013,
     +    -.00015,    .00190,    .00299,
     +     .28512,    .08919,    .01832,    .00379,    .00017,
     +    -.00009,    .00180,    .00279 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
     +     .27121,    .08433,    .01567,    .00357,    .00019,
     +    -.00005,    .00170,    .00260,
     +     .26015,    .08056,    .01376,    .00342,    .00022,
     +    -.00001,    .00161,    .00245,
     +     .24745,    .07620,    .01184,    .00322,    .00023,
     +     .00002,    .00153,    .00227,
     +     .23683,    .07258,    .01037,    .00305,    .00024,
     +     .00005,    .00146,    .00214,
     +     .22753,    .06943,    .00923,    .00290,    .00025,
     +     .00006,    .00138,    .00202,
     +     .21628,    .06566,    .00797,    .00271,    .00026,
     +     .00008,    .00130,    .00190,
     +     .20629,    .06235,    .00698,    .00256,    .00026,
     +     .00010,    .00123,    .00176,
     +     .19742,    .05943,    .00620,    .00242,    .00026,
     +     .00011,    .00116,    .00164 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
     +     .18891,    .05664,    .00552,    .00230,    .00026,
     +     .00012,    .00110,    .00155,
     +     .18101,    .05405,    .00495,    .00218,    .00025,
     +     .00012,    .00104,    .00147,
     +     .17389,    .05172,    .00450,    .00207,    .00025,
     +     .00012,    .00099,    .00140,
     +     .16745,    .04964,    .00412,    .00196,    .00025,
     +     .00013,    .00094,    .00132,
     +     .16129,    .04764,    .00378,    .00184,    .00024,
     +     .00013,    .00090,    .00125,
     +     .15539,    .04578,    .00349,    .00178,    .00023,
     +     .00013,    .00087,    .00118,
     +     .15003,    .04408,    .00323,    .00172,    .00024,
     +     .00013,    .00084,    .00112,
     +     .14515,    .04252,    .00303,    .00164,    .00023,
     +     .00013,    .00080,    .00108 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
     +     .14045,    .04101,    .00284,    .00155,    .00022,
     +     .00013,    .00076,    .00104,
     +     .13593,    .03957,    .00269,    .00149,    .00021,
     +     .00013,    .00072,    .00099,
     +     .13176,    .03825,    .00255,    .00143,    .00022,
     +     .00013,    .00070,    .00095,
     +     .12793,    .03705,    .00243,    .00139,    .00021,
     +     .00013,    .00068,    .00091,
     +     .12416,    .03588,    .00232,    .00133,    .00021,
     +     .00013,    .00066,    .00088 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
     +     .52931,    .17803,    .08978,    .00632,    .00000,
     +     .00000,    .00190,    .00460,
     +     .50487,    .16826,    .07729,    .00612,    .00000,
     +     .00000,    .00200,    .00432,
     +     .47139,    .15506,    .06431,    .00565,   -.00126,
     +     .00000,    .00196,    .00414,
     +     .44870,    .14639,    .05431,    .00542,   -.00099,
     +     .00000,    .00199,    .00388,
     +     .42614,    .13784,    .04537,    .00518,   -.00076,
     +     .00000,    .00197,    .00364,
     +     .40767,    .13095,    .03896,    .00494,   -.00061,
     +     .00000,    .00190,    .00341,
     +     .39080,    .12473,    .03356,    .00470,   -.00048,
     +     .00000,    .00186,    .00326,
     +     .37380,    .11850,    .02860,    .00445,   -.00036,
     +     .00000,    .00183,    .00312 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
     +     .35962,    .11342,    .02496,    .00426,   -.00028,
     +     .00000,    .00175,    .00297,
     +     .34651,    .10874,    .02187,    .00409,   -.00021,
     +     .00000,    .00170,    .00282,
     +     .33655,    .10520,    .01968,    .00396,   -.00016,
     +     .00000,    .00165,    .00272,
     +     .31640,    .09810,    .01578,    .00367,   -.00008,
     +     .00000,    .00159,    .00252,
     +     .30034,    .09255,    .01317,    .00347,   -.00001,
     +    -.00024,    .00152,    .00232,
     +     .28352,    .08677,    .01026,    .00321,    .00003,
     +    -.00017,    .00145,    .00215,
     +     .26709,    .08116,    .00791,    .00297,    .00007,
     +    -.00012,    .00135,    .00200,
     +     .25309,    .07647,    .00618,    .00280,    .00010,
     +    -.00007,    .00127,    .00188 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
     +     .23983,    .07205,    .00480,    .00259,    .00012,
     +    -.00004,    .00119,    .00175,
     +     .22944,    .06858,    .00389,    .00243,    .00013,
     +    -.00002,    .00112,    .00164,
     +     .21751,    .06467,    .00294,    .00226,    .00015,
     +     .00001,    .00106,    .00151,
     +     .20753,    .06142,    .00227,    .00214,    .00015,
     +     .00002,    .00101,    .00142,
     +     .19882,    .05860,    .00175,    .00202,    .00016,
     +     .00004,    .00097,    .00135,
     +     .18831,    .05523,    .00128,    .00190,    .00016,
     +     .00005,    .00092,    .00124,
     +     .17905,    .05226,    .00092,    .00178,    .00016,
     +     .00006,    .00086,    .00116,
     +     .17088,    .04964,    .00066,    .00167,    .00017,
     +     .00007,    .00082,    .00108 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
     +     .16307,    .04718,    .00045,    .00156,    .00017,
     +     .00008,    .00076,    .00105,
     +     .15583,    .04492,    .00030,    .00147,    .00016,
     +     .00008,    .00073,    .00097,
     +     .14934,    .04289,    .00017,    .00138,    .00017,
     +     .00009,    .00070,    .00092,
     +     .14347,    .04105,    .00011,    .00131,    .00016,
     +     .00008,    .00066,    .00087,
     +     .13783,    .03931,    .00006,    .00125,    .00015,
     +     .00008,    .00063,    .00082,
     +     .13249,    .03766,    .00001,    .00119,    .00015,
     +     .00008,    .00059,    .00079,
     +     .12764,    .03618,    .00000,    .00113,    .00015,
     +     .00009,    .00056,    .00075,
     +     .12322,    .03483,   -.00001,    .00110,    .00015,
     +     .00009,    .00054,    .00070 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
     +     .11894,    .03354,   -.00001,    .00107,    .00014,
     +     .00008,    .00052,    .00067,
     +     .11488,    .03232,   -.00001,    .00102,    .00014,
     +     .00008,    .00049,    .00065,
     +     .11115,    .03119,    .00000,    .00097,    .00013,
     +     .00008,    .00047,    .00062,
     +     .10775,    .03016,    .00000,    .00093,    .00014,
     +     .00009,    .00045,    .00060,
     +     .10439,    .02915,    .00002,    .00090,    .00014,
     +     .00009,    .00044,    .00057 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
     +     .49516,    .16033,    .04652,    .00481,    .00000,
     +     .00000,    .00139,    .00306,
     +     .46997,    .15073,    .03808,    .00454,    .00000,
     +     .00000,    .00147,    .00299,
     +     .43558,    .13801,    .02985,    .00429,   -.00097,
     +     .00000,    .00154,    .00271,
     +     .41279,    .12967,    .02337,    .00405,   -.00076,
     +     .00000,    .00147,    .00262,
     +     .39017,    .12155,    .01783,    .00377,   -.00059,
     +     .00000,    .00146,    .00247,
     +     .37180,    .11503,    .01384,    .00355,   -.00047,
     +     .00000,    .00146,    .00235,
     +     .35510,    .10918,    .01070,    .00336,   -.00037,
     +     .00000,    .00142,    .00223,
     +     .33830,    .10335,    .00799,    .00320,   -.00028,
     +     .00000,    .00138,    .00209 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
     +     .32441,    .09860,    .00600,    .00305,   -.00022,
     +     .00000,    .00135,    .00199,
     +     .31165,    .09424,    .00438,    .00290,   -.00017,
     +     .00000,    .00131,    .00190,
     +     .30199,    .09094,    .00333,    .00277,   -.00013,
     +     .00000,    .00127,    .00184,
     +     .28251,    .08442,    .00148,    .00259,   -.00007,
     +     .00000,    .00117,    .00171,
     +     .26716,    .07931,    .00033,    .00238,   -.00003,
     +    -.00018,    .00113,    .00162,
     +     .25109,    .07403,   -.00090,    .00220,    .00001,
     +    -.00012,    .00106,    .00147,
     +     .23553,    .06897,   -.00187,    .00203,    .00003,
     +    -.00009,    .00098,    .00137,
     +     .22234,    .06473,   -.00246,    .00189,    .00006,
     +    -.00005,    .00093,    .00128 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
     +     .20988,    .06078,   -.00287,    .00177,    .00007,
     +    -.00004,    .00089,    .00116,
     +     .20021,    .05771,   -.00310,    .00164,    .00009,
     +    -.00001,    .00084,    .00110,
     +     .18907,    .05419,   -.00323,    .00154,    .00009,
     +     .00000,    .00079,    .00102,
     +     .17979,    .05131,   -.00328,    .00146,    .00010,
     +     .00001,    .00074,    .00096,
     +     .17173,    .04882,   -.00326,    .00137,    .00010,
     +     .00003,    .00070,    .00090,
     +     .16217,    .04586,   -.00322,    .00127,    .00010,
     +     .00003,    .00066,    .00084,
     +     .15369,    .04327,   -.00312,    .00117,    .00010,
     +     .00004,    .00062,    .00079,
     +     .14621,    .04100,   -.00301,    .00110,    .00010,
     +     .00004,    .00059,    .00074 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
     +     .13913,    .03885,   -.00288,    .00104,    .00011,
     +     .00005,    .00056,    .00067,
     +     .13256,    .03687,   -.00273,    .00099,    .00010,
     +     .00005,    .00052,    .00062,
     +     .12666,    .03511,   -.00257,    .00094,    .00011,
     +     .00006,    .00048,    .00059,
     +     .12138,    .03354,   -.00243,    .00088,    .00010,
     +     .00005,    .00047,    .00057,
     +     .11634,    .03204,   -.00228,    .00083,    .00010,
     +     .00005,    .00045,    .00053,
     +     .11159,    .03063,   -.00214,    .00077,    .00009,
     +     .00005,    .00042,    .00051,
     +     .10731,    .02937,   -.00202,    .00072,    .00009,
     +     .00005,    .00040,    .00049,
     +     .10337,    .02822,   -.00191,    .00071,    .00010,
     +     .00006,    .00038,    .00046 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
     +     .09958,    .02711,   -.00179,    .00069,    .00009,
     +     .00006,    .00037,    .00044,
     +     .09598,    .02606,   -.00167,    .00065,    .00009,
     +     .00006,    .00036,    .00041,
     +     .09270,    .02511,   -.00158,    .00062,    .00009,
     +     .00006,    .00034,    .00040,
     +     .08971,    .02423,   -.00146,    .00058,    .00009,
     +     .00005,    .00032,    .00038,
     +     .08676,    .02339,   -.00136,    .00056,    .00008,
     +     .00005,    .00031,    .00036 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
     +     .45883,    .14361,    .00992,    .00408,    .00000,
     +     .00000,    .00077,    .00174,
     +     .43330,    .13447,    .00538,    .00382,    .00000,
     +     .00000,    .00076,    .00176,
     +     .39904,    .12228,    .00159,    .00344,   -.00072,
     +     .00000,    .00084,    .00162,
     +     .37634,    .11439,   -.00175,    .00326,   -.00057,
     +     .00000,    .00092,    .00151,
     +     .35404,    .10674,   -.00435,    .00307,   -.00044,
     +     .00000,    .00089,    .00143,
     +     .33599,    .10063,   -.00603,    .00289,   -.00036,
     +     .00000,    .00089,    .00137,
     +     .31973,    .09517,   -.00724,    .00271,   -.00028,
     +     .00000,    .00086,    .00131,
     +     .30351,    .08976,   -.00813,    .00250,   -.00022,
     +     .00000,    .00083,    .00128 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
     +     .29016,    .08536,   -.00874,    .00239,   -.00017,
     +     .00000,    .00081,    .00122,
     +     .27790,    .08134,   -.00906,    .00229,   -.00013,
     +     .00000,    .00078,    .00115,
     +     .26861,    .07833,   -.00923,    .00222,   -.00010,
     +     .00000,    .00077,    .00109,
     +     .25017,    .07236,   -.00935,    .00196,   -.00006,
     +     .00000,    .00070,    .00103,
     +     .23556,    .06774,   -.00921,    .00186,   -.00003,
     +    -.00013,    .00067,    .00094,
     +     .22047,    .06298,   -.00923,    .00171,   -.00001,
     +    -.00009,    .00065,    .00086,
     +     .20591,    .05843,   -.00902,    .00158,    .00001,
     +    -.00007,    .00059,    .00078,
     +     .19366,    .05465,   -.00874,    .00147,    .00003,
     +    -.00004,    .00056,    .00071 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
     +     .18217,    .05111,   -.00837,    .00134,    .00004,
     +    -.00003,    .00053,    .00067,
     +     .17318,    .04838,   -.00805,    .00128,    .00005,
     +    -.00001,    .00050,    .00062,
     +     .16297,    .04529,   -.00759,    .00117,    .00006,
     +     .00000,    .00045,    .00060,
     +     .15453,    .04275,   -.00719,    .00109,    .00006,
     +     .00001,    .00043,    .00056,
     +     .14724,    .04057,   -.00683,    .00103,    .00006,
     +     .00001,    .00043,    .00051,
     +     .13854,    .03797,   -.00634,    .00094,    .00007,
     +     .00002,    .00039,    .00048,
     +     .13087,    .03569,   -.00591,    .00088,    .00006,
     +     .00002,    .00037,    .00044,
     +     .12410,    .03371,   -.00553,    .00085,    .00007,
     +     .00003,    .00034,    .00044 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
     +     .11776,    .03187,   -.00512,    .00077,    .00007,
     +     .00003,    .00031,    .00040,
     +     .11191,    .03018,   -.00476,    .00072,    .00006,
     +     .00003,    .00029,    .00037,
     +     .10665,    .02867,   -.00444,    .00070,    .00006,
     +     .00003,    .00029,    .00033,
     +     .10197,    .02731,   -.00415,    .00066,    .00007,
     +     .00004,    .00028,    .00031,
     +     .09753,    .02602,   -.00387,    .00061,    .00007,
     +     .00004,    .00027,    .00030,
     +     .09333,    .02482,   -.00361,    .00058,    .00006,
     +     .00004,    .00026,    .00028,
     +     .08952,    .02374,   -.00338,    .00056,    .00006,
     +     .00004,    .00023,    .00027,
     +     .08608,    .02276,   -.00316,    .00053,    .00006,
     +     .00004,    .00022,    .00025 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
     +     .08276,    .02184,   -.00297,    .00051,    .00006,
     +     .00003,    .00021,    .00024,
     +     .07963,    .02096,   -.00277,    .00048,    .00005,
     +     .00003,    .00020,    .00023,
     +     .07675,    .02015,   -.00260,    .00046,    .00005,
     +     .00003,    .00018,    .00022,
     +     .07414,    .01942,   -.00246,    .00043,    .00005,
     +     .00003,    .00019,    .00022,
     +     .07157,    .01871,   -.00230,    .00042,    .00005,
     +     .00003,    .00017,    .00021 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
     +     .42036,    .12644,   -.01892,    .00279,    .00000,
     +     .00000,    .00061,    .00113,
     +     .39508,    .11780,   -.02013,    .00267,    .00000,
     +     .00000,    .00064,    .00106,
     +     .36111,    .10643,   -.02013,    .00244,   -.00053,
     +     .00000,    .00070,    .00106,
     +     .33908,    .09914,   -.02064,    .00221,   -.00042,
     +     .00000,    .00066,    .00101,
     +     .31737,    .09210,   -.02082,    .00209,   -.00032,
     +     .00000,    .00066,    .00099,
     +     .30007,    .08644,   -.02064,    .00196,   -.00026,
     +     .00000,    .00062,    .00096,
     +     .28447,    .08144,   -.02026,    .00185,   -.00021,
     +     .00000,    .00063,    .00089,
     +     .26894,    .07656,   -.01969,    .00176,   -.00016,
     +     .00000,    .00063,    .00082 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
     +     .25620,    .07258,   -.01902,    .00166,   -.00013,
     +     .00000,    .00058,    .00078,
     +     .24464,    .06898,   -.01836,    .00155,   -.00011,
     +     .00000,    .00056,    .00074,
     +     .23595,    .06631,   -.01784,    .00149,   -.00008,
     +     .00000,    .00054,    .00070,
     +     .21864,    .06097,   -.01663,    .00135,   -.00005,
     +     .00000,    .00048,    .00063,
     +     .20507,    .05684,   -.01556,    .00124,   -.00003,
     +    -.00009,    .00047,    .00059,
     +     .19111,    .05261,   -.01466,    .00113,   -.00001,
     +    -.00006,    .00043,    .00058,
     +     .17772,    .04861,   -.01366,    .00106,    .00000,
     +    -.00005,    .00040,    .00053,
     +     .16647,    .04528,   -.01271,    .00098,    .00001,
     +    -.00004,    .00038,    .00048 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
     +     .15597,    .04221,   -.01178,    .00088,    .00002,
     +    -.00002,    .00036,    .00043,
     +     .14782,    .03984,   -.01106,    .00083,    .00003,
     +    -.00001,    .00034,    .00041,
     +     .13856,    .03715,   -.01021,    .00079,    .00004,
     +     .00000,    .00032,    .00038,
     +     .13094,    .03495,   -.00948,    .00075,    .00003,
     +     .00000,    .00029,    .00036,
     +     .12441,    .03309,   -.00886,    .00070,    .00003,
     +     .00000,    .00027,    .00034,
     +     .11665,    .03085,   -.00808,    .00063,    .00004,
     +     .00001,    .00026,    .00029,
     +     .10983,    .02892,   -.00742,    .00057,    .00004,
     +     .00001,    .00023,    .00027,
     +     .10387,    .02724,   -.00685,    .00054,    .00004,
     +     .00001,    .00022,    .00023 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
     +     .09826,    .02567,   -.00631,    .00050,    .00004,
     +     .00002,    .00021,    .00024,
     +     .09310,    .02423,   -.00582,    .00046,    .00004,
     +     .00002,    .00019,    .00023,
     +     .08850,    .02295,   -.00540,    .00044,    .00004,
     +     .00002,    .00018,    .00023,
     +     .08438,    .02182,   -.00500,    .00043,    .00004,
     +     .00002,    .00016,    .00020,
     +     .08048,    .02074,   -.00466,    .00042,    .00004,
     +     .00002,    .00015,    .00019,
     +     .07683,    .01974,   -.00432,    .00039,    .00004,
     +     .00002,    .00014,    .00018,
     +     .07356,    .01884,   -.00402,    .00037,    .00003,
     +     .00002,    .00014,    .00015,
     +     .07058,    .01804,   -.00376,    .00034,    .00003,
     +     .00002,    .00013,    .00015 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
     +     .06773,    .01726,   -.00352,    .00032,    .00003,
     +     .00002,    .00013,    .00014,
     +     .06503,    .01653,   -.00329,    .00029,    .00003,
     +     .00002,    .00012,    .00014,
     +     .06256,    .01586,   -.00308,    .00028,    .00003,
     +     .00002,    .00012,    .00013,
     +     .06032,    .01525,   -.00290,    .00027,    .00004,
     +     .00003,    .00011,    .00013,
     +     .05814,    .01468,   -.00273,    .00026,    .00004,
     +     .00003,    .00011,    .00013 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
     +     .38075,    .11001,   -.04077,    .00182,    .00000,
     +     .00000,    .00047,    .00078,
     +     .35594,    .10197,   -.03918,    .00173,    .00000,
     +     .00000,    .00054,    .00078,
     +     .32308,    .09152,   -.03573,    .00160,   -.00038,
     +     .00000,    .00047,    .00071,
     +     .30188,    .08486,   -.03413,    .00148,   -.00030,
     +     .00000,    .00051,    .00066,
     +     .28123,    .07842,   -.03234,    .00139,   -.00024,
     +     .00000,    .00050,    .00066,
     +     .26470,    .07342,   -.03058,    .00128,   -.00018,
     +     .00000,    .00048,    .00060,
     +     .24997,    .06895,   -.02892,    .00120,   -.00015,
     +     .00000,    .00043,    .00057,
     +     .23543,    .06452,   -.02720,    .00112,   -.00011,
     +     .00000,    .00040,    .00055 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
     +     .22359,    .06097,   -.02577,    .00107,   -.00009,
     +     .00000,    .00041,    .00051,
     +     .21284,    .05776,   -.02440,    .00101,   -.00007,
     +     .00000,    .00042,    .00047,
     +     .20478,    .05533,   -.02334,    .00095,   -.00006,
     +     .00000,    .00042,    .00047,
     +     .18869,    .05065,   -.02116,    .00088,   -.00004,
     +     .00000,    .00040,    .00043,
     +     .17630,    .04703,   -.01943,    .00081,   -.00003,
     +    -.00006,    .00034,    .00040,
     +     .16353,    .04336,   -.01776,    .00074,   -.00002,
     +    -.00005,    .00030,    .00036,
     +     .15136,    .03988,   -.01614,    .00067,   -.00001,
     +    -.00004,    .00028,    .00034,
     +     .14126,    .03701,   -.01482,    .00061,    .00000,
     +    -.00002,    .00028,    .00030 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
     +     .13185,    .03434,   -.01353,    .00055,    .00001,
     +    -.00001,    .00025,    .00029,
     +     .12455,    .03232,   -.01254,    .00050,    .00001,
     +    -.00001,    .00024,    .00027,
     +     .11634,    .03003,   -.01143,    .00046,    .00002,
     +     .00000,    .00021,    .00026,
     +     .10960,    .02817,   -.01052,    .00044,    .00002,
     +     .00000,    .00020,    .00022,
     +     .10378,    .02658,   -.00975,    .00041,    .00002,
     +     .00000,    .00019,    .00022,
     +     .09692,    .02470,   -.00884,    .00039,    .00003,
     +     .00001,    .00018,    .00020,
     +     .09094,    .02307,   -.00806,    .00037,    .00003,
     +     .00001,    .00017,    .00018,
     +     .08572,    .02167,   -.00736,    .00034,    .00002,
     +     .00001,    .00015,    .00016 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
     +     .08084,    .02036,   -.00674,    .00031,    .00002,
     +     .00001,    .00014,    .00015,
     +     .07638,    .01917,   -.00616,    .00029,    .00002,
     +     .00001,    .00013,    .00014,
     +     .07244,    .01810,   -.00569,    .00026,    .00002,
     +     .00001,    .00013,    .00013,
     +     .06889,    .01716,   -.00526,    .00025,    .00002,
     +     .00001,    .00012,    .00013,
     +     .06551,    .01628,   -.00486,    .00024,    .00002,
     +     .00001,    .00012,    .00011,
     +     .06239,    .01546,   -.00451,    .00023,    .00002,
     +     .00001,    .00010,    .00012,
     +     .05960,    .01471,   -.00418,    .00020,    .00003,
     +     .00002,    .00009,    .00012,
     +     .05707,    .01405,   -.00390,    .00019,    .00003,
     +     .00002,    .00009,    .00010 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
     +     .05463,    .01342,   -.00363,    .00018,    .00002,
     +     .00002,    .00008,    .00010,
     +     .05235,    .01282,   -.00338,    .00018,    .00002,
     +     .00002,    .00008,    .00009,
     +     .05026,    .01228,   -.00318,    .00017,    .00002,
     +     .00002,    .00008,    .00009,
     +     .04837,    .01180,   -.00300,    .00016,    .00002,
     +     .00002,    .00008,    .00009,
     +     .04653,    .01132,   -.00279,    .00014,    .00002,
     +     .00002,    .00007,    .00008 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
     +     .34133,    .09508,   -.05705,    .00153,    .00000,
     +     .00000,    .00018,    .00031,
     +     .31756,    .08772,   -.05305,    .00136,    .00000,
     +     .00000,    .00024,    .00034,
     +     .28607,    .07819,   -.04698,    .00127,   -.00027,
     +     .00000,    .00025,    .00036,
     +     .26593,    .07215,   -.04358,    .00121,   -.00021,
     +     .00000,    .00027,    .00032,
     +     .24656,    .06636,   -.04003,    .00104,   -.00017,
     +     .00000,    .00023,    .00032,
     +     .23117,    .06185,   -.03722,    .00097,   -.00013,
     +     .00000,    .00022,    .00030,
     +     .21748,    .05785,   -.03466,    .00090,   -.00010,
     +     .00000,    .00024,    .00028,
     +     .20400,    .05393,   -.03212,    .00085,   -.00008,
     +     .00000,    .00025,    .00028 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
     +     .19306,    .05078,   -.03002,    .00081,   -.00007,
     +     .00000,    .00023,    .00028,
     +     .18319,    .04796,   -.02800,    .00074,   -.00006,
     +     .00000,    .00020,    .00025,
     +     .17580,    .04587,   -.02658,    .00071,   -.00005,
     +     .00000,    .00019,    .00025,
     +     .16125,    .04179,   -.02377,    .00062,   -.00002,
     +     .00000,    .00019,    .00025,
     +     .14997,    .03864,   -.02159,    .00060,   -.00002,
     +    -.00005,    .00017,    .00022,
     +     .13848,    .03546,   -.01948,    .00053,   -.00001,
     +    -.00003,    .00016,    .00019,
     +     .12763,    .03247,   -.01748,    .00045,    .00000,
     +    -.00002,    .00015,    .00018,
     +     .11861,    .03000,   -.01580,    .00042,    .00001,
     +    -.00001,    .00012,    .00016 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
     +     .11021,    .02773,   -.01432,    .00041,    .00001,
     +    -.00001,    .00013,    .00015,
     +     .10376,    .02601,   -.01316,    .00040,    .00000,
     +    -.00001,    .00012,    .00014,
     +     .09658,    .02408,   -.01188,    .00034,    .00000,
     +    -.00001,    .00011,    .00013,
     +     .09068,    .02252,   -.01087,    .00031,    .00001,
     +     .00000,    .00010,    .00013,
     +     .08565,    .02118,   -.00999,    .00029,    .00001,
     +     .00000,    .00010,    .00010,
     +     .07969,    .01962,   -.00900,    .00026,    .00001,
     +     .00000,    .00009,    .00010,
     +     .07452,    .01825,   -.00813,    .00023,    .00001,
     +     .00000,    .00007,    .00009,
     +     .07003,    .01708,   -.00742,    .00022,    .00001,
     +     .00000,    .00008,    .00009 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
     +     .06583,    .01600,   -.00677,    .00022,    .00001,
     +     .00000,    .00006,    .00008,
     +     .06199,    .01502,   -.00620,    .00021,    .00001,
     +     .00000,    .00007,    .00008,
     +     .05861,    .01415,   -.00567,    .00019,    .00002,
     +     .00001,    .00005,    .00007,
     +     .05561,    .01338,   -.00522,    .00018,    .00002,
     +     .00001,    .00005,    .00007,
     +     .05278,    .01266,   -.00484,    .00017,    .00002,
     +     .00001,    .00006,    .00007,
     +     .05014,    .01198,   -.00446,    .00015,    .00002,
     +     .00001,    .00006,    .00006,
     +     .04778,    .01139,   -.00415,    .00016,    .00002,
     +     .00001,    .00006,    .00006,
     +     .04563,    .01086,   -.00385,    .00014,    .00002,
     +     .00001,    .00004,    .00006 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
     +     .04359,    .01034,   -.00357,    .00013,    .00001,
     +     .00001,    .00004,    .00006,
     +     .04167,    .00986,   -.00334,    .00013,    .00001,
     +     .00001,    .00005,    .00006,
     +     .03994,    .00943,   -.00311,    .00012,    .00001,
     +     .00001,    .00005,    .00004,
     +     .03836,    .00903,   -.00290,    .00010,    .00001,
     +     .00001,    .00003,    .00004,
     +     .03683,    .00866,   -.00273,    .00010,    .00001,
     +     .00001,    .00003,    .00004 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
     +     .30157,    .08032,   -.06695,    .00083,    .00000,
     +     .00000,    .00026,    .00029,
     +     .27897,    .07377,   -.06110,    .00080,    .00000,
     +     .00000,    .00024,    .00026,
     +     .24963,    .06530,   -.05317,    .00069,   -.00018,
     +     .00000,    .00023,    .00029,
     +     .23097,    .05999,   -.04853,    .00063,   -.00014,
     +     .00000,    .00023,    .00027,
     +     .21299,    .05494,   -.04396,    .00059,   -.00011,
     +     .00000,    .00021,    .00023,
     +     .19881,    .05097,   -.04035,    .00056,   -.00009,
     +     .00000,    .00020,    .00022,
     +     .18628,    .04751,   -.03718,    .00053,   -.00007,
     +     .00000,    .00018,    .00021,
     +     .17402,    .04413,   -.03400,    .00048,   -.00006,
     +     .00000,    .00016,    .00019 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
     +     .16412,    .04142,   -.03149,    .00043,   -.00005,
     +     .00000,    .00015,    .00019,
     +     .15520,    .03901,   -.02923,    .00042,   -.00004,
     +     .00000,    .00016,    .00018,
     +     .14853,    .03722,   -.02759,    .00041,   -.00004,
     +     .00000,    .00015,    .00017,
     +     .13547,    .03371,   -.02430,    .00036,   -.00003,
     +     .00000,    .00014,    .00014,
     +     .12551,    .03103,   -.02191,    .00032,   -.00002,
     +    -.00003,    .00013,    .00015,
     +     .11536,    .02834,   -.01955,    .00028,   -.00001,
     +    -.00002,    .00012,    .00013,
     +     .10577,    .02583,   -.01739,    .00025,   -.00001,
     +    -.00001,    .00012,    .00011,
     +     .09787,    .02379,   -.01563,    .00024,   -.00001,
     +    -.00001,    .00011,    .00011 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
     +     .09061,    .02190,   -.01401,    .00021,    .00000,
     +     .00000,    .00009,    .00010,
     +     .08505,    .02046,   -.01283,    .00020,    .00000,
     +     .00000,    .00010,    .00008,
     +     .07877,    .01887,   -.01150,    .00019,    .00000,
     +     .00000,    .00008,    .00008,
     +     .07368,    .01758,   -.01045,    .00018,    .00000,
     +     .00000,    .00007,    .00008,
     +     .06937,    .01648,   -.00956,    .00016,    .00000,
     +     .00000,    .00007,    .00007,
     +     .06429,    .01521,   -.00855,    .00015,    .00000,
     +     .00000,    .00006,    .00006,
     +     .05990,    .01411,   -.00770,    .00013,    .00000,
     +     .00000,    .00006,    .00006,
     +     .05612,    .01317,   -.00700,    .00012,    .00001,
     +     .00001,    .00006,    .00006 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
     +     .05258,    .01229,   -.00634,    .00011,    .00001,
     +     .00001,    .00004,    .00005,
     +     .04937,    .01150,   -.00578,    .00009,    .00001,
     +     .00001,    .00005,    .00005,
     +     .04653,    .01080,   -.00529,    .00009,    .00001,
     +     .00001,    .00005,    .00005,
     +     .04402,    .01019,   -.00486,    .00010,    .00001,
     +     .00001,    .00005,    .00004,
     +     .04166,    .00961,   -.00445,    .00008,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03947,    .00907,   -.00410,    .00008,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03752,    .00861,   -.00379,    .00007,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03576,    .00817,   -.00352,    .00007,    .00001,
     +     .00001,    .00003,    .00003 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
     +     .03407,    .00777,   -.00327,    .00007,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03249,    .00739,   -.00304,    .00007,    .00001,
     +     .00001,    .00002,    .00003,
     +     .03109,    .00706,   -.00283,    .00006,    .00001,
     +     .00001,    .00002,    .00003,
     +     .02980,    .00674,   -.00266,    .00006,    .00001,
     +     .00001,    .00002,    .00003,
     +     .02854,    .00645,   -.00248,    .00006,    .00001,
     +     .00001,    .00002,    .00003 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
     +     .22544,    .05528,   -.07256,    .00041,    .00000,
     +     .00000,    .00006,    .00007,
     +     .20629,    .05020,   -.06474,    .00033,    .00000,
     +     .00000,    .00008,    .00008,
     +     .18177,    .04378,   -.05481,    .00031,   -.00007,
     +     .00000,    .00008,    .00004,
     +     .16639,    .03983,   -.04897,    .00029,   -.00006,
     +     .00000,    .00007,    .00005,
     +     .15183,    .03608,   -.04346,    .00023,   -.00005,
     +     .00000,    .00007,    .00007,
     +     .14051,    .03318,   -.03929,    .00019,   -.00004,
     +     .00000,    .00009,    .00009,
     +     .13054,    .03067,   -.03563,    .00017,   -.00003,
     +     .00000,    .00008,    .00009,
     +     .12088,    .02826,   -.03214,    .00018,   -.00003,
     +     .00000,    .00006,    .00008 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
     +     .11319,    .02633,   -.02941,    .00017,   -.00002,
     +     .00000,    .00006,    .00006,
     +     .10629,    .02462,   -.02701,    .00017,   -.00002,
     +     .00000,    .00006,    .00006,
     +     .10119,    .02336,   -.02520,    .00015,   -.00002,
     +     .00000,    .00005,    .00005,
     +     .09126,    .02093,   -.02185,    .00014,   -.00001,
     +     .00000,    .00005,    .00005,
     +     .08376,    .01910,   -.01942,    .00013,   -.00001,
     +    -.00001,    .00005,    .00003,
     +     .07622,    .01728,   -.01707,    .00011,   -.00001,
     +    -.00001,    .00003,    .00005,
     +     .06919,    .01559,   -.01494,    .00009,   -.00001,
     +    -.00001,    .00003,    .00005,
     +     .06344,    .01422,   -.01324,    .00009,   -.00001,
     +    -.00001,    .00004,    .00004 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
     +     .05819,    .01300,   -.01173,    .00009,   -.00001,
     +    -.00001,    .00004,    .00002,
     +     .05424,    .01205,   -.01061,    .00008,    .00000,
     +     .00000,    .00002,    .00002,
     +     .04986,    .01102,   -.00941,    .00006,    .00000,
     +     .00000,    .00002,    .00002,
     +     .04632,    .01019,   -.00850,    .00005,    .00000,
     +     .00000,    .00003,    .00002,
     +     .04330,    .00950,   -.00770,    .00005,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03979,    .00869,   -.00682,    .00005,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03679,    .00801,   -.00612,    .00005,    .00000,
     +     .00000,    .00003,    .00003,
     +     .03422,    .00742,   -.00550,    .00004,    .00000,
     +     .00000,    .00003,    .00003 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
     +     .03185,    .00688,   -.00495,    .00004,    .00000,
     +     .00000,    .00003,    .00001,
     +     .02971,    .00639,   -.00446,    .00004,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02783,    .00596,   -.00405,    .00004,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02619,    .00560,   -.00371,    .00002,    .00000,
     +     .00000,    .00001,    .00003,
     +     .02465,    .00525,   -.00340,    .00002,    .00000,
     +     .00000,    .00001,    .00003,
     +     .02322,    .00494,   -.00310,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02194,    .00465,   -.00285,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02082,    .00441,   -.00264,    .00002,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/
     +     .01975,    .00416,   -.00245,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01875,    .00394,   -.00226,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01786,    .00375,   -.00210,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01704,    .00357,   -.00196,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01625,    .00340,   -.00182,    .00001,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/
     +     .15683,    .03505,   -.06398,    .00008,    .00000,
     +     .00000,    .00001,    .00003,
     +     .14187,    .03149,   -.05631,    .00010,    .00000,
     +     .00000,    .00001,    .00004,
     +     .12296,    .02704,   -.04676,    .00010,   -.00003,
     +     .00000,    .00002,    .00005,
     +     .11130,    .02432,   -.04113,    .00008,   -.00002,
     +     .00000,    .00003,    .00005,
     +     .10042,    .02180,   -.03596,    .00008,   -.00002,
     +     .00000,    .00003,    .00003,
     +     .09200,    .01987,   -.03203,    .00008,   -.00001,
     +     .00000,    .00001,    .00001,
     +     .08473,    .01821,   -.02870,    .00008,   -.00001,
     +     .00000,    .00001,   -.00001,
     +     .07776,    .01663,   -.02560,    .00006,   -.00001,
     +     .00000,    .00001,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
     +     .07223,    .01538,   -.02321,    .00004,   -.00001,
     +     .00000,    .00001,    .00001,
     +     .06733,    .01426,   -.02110,    .00004,   -.00001,
     +     .00000,    .00001,    .00001,
     +     .06372,    .01345,   -.01959,    .00004,   -.00001,
     +     .00000,    .00001,    .00001,
     +     .05676,    .01192,   -.01674,    .00004,    .00000,
     +     .00000,    .00001,    .00001,
     +     .05161,    .01077,   -.01471,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04645,    .00965,   -.01278,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04171,    .00862,   -.01106,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03787,    .00778,   -.00968,    .00002,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
     +     .03442,    .00703,   -.00850,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03183,    .00648,   -.00765,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02898,    .00588,   -.00673,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02670,    .00538,   -.00599,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02480,    .00498,   -.00541,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02258,    .00452,   -.00475,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02071,    .00412,   -.00419,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01914,    .00380,   -.00375,    .00001,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
     +     .01766,    .00349,   -.00335,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01635,    .00323,   -.00300,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01523,    .00299,   -.00271,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01423,    .00280,   -.00247,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01331,    .00260,   -.00223,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01246,    .00243,   -.00204,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01171,    .00228,   -.00186,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01106,    .00214,   -.00172,    .00001,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/
     +     .01043,    .00201,   -.00157,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00986,    .00190,   -.00145,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00933,    .00180,   -.00134,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00887,    .00170,   -.00124,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00843,    .00162,   -.00115,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/
     +     .09934,    .02003,   -.04829,    .00010,    .00000,
     +     .00000,   -.00001,   -.00001,
     +     .08870,    .01780,   -.04180,    .00007,    .00000,
     +     .00000,   -.00001,   -.00004,
     +     .07555,    .01501,   -.03410,    .00004,   -.00001,
     +     .00000,   -.00001,   -.00001,
     +     .06756,    .01333,   -.02958,    .00004,   -.00001,
     +     .00000,   -.00001,   -.00001,
     +     .06017,    .01180,   -.02553,    .00004,    .00000,
     +     .00000,    .00000,    .00000,
     +     .05456,    .01066,   -.02252,    .00004,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04974,    .00966,   -.01998,    .00002,    .00000,
     +     .00000,    .00000,    .00002,
     +     .04517,    .00873,   -.01764,    .00002,    .00000,
     +     .00000,    .00000,    .00002 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
     +     .04158,    .00800,   -.01580,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03845,    .00738,   -.01427,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03614,    .00691,   -.01315,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03180,    .00605,   -.01111,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02858,    .00541,   -.00966,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02541,    .00478,   -.00828,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02255,    .00421,   -.00706,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02025,    .00377,   -.00614,    .00002,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/
     +     .01821,    .00337,   -.00533,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01669,    .00308,   -.00473,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01503,    .00276,   -.00411,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01372,    .00252,   -.00364,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01265,    .00231,   -.00326,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01141,    .00207,   -.00283,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01037,    .00188,   -.00249,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00948,    .00171,   -.00220,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/
     +     .00869,    .00156,   -.00195,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00798,    .00143,   -.00174,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00737,    .00131,   -.00156,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00684,    .00121,   -.00140,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00635,    .00113,   -.00127,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00592,    .00104,   -.00115,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00553,    .00097,   -.00105,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00518,    .00091,   -.00095,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=33,37)/
     +     .00485,    .00085,   -.00087,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00456,    .00080,   -.00080,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00429,    .00075,   -.00073,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00405,    .00071,   -.00068,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00384,    .00066,   -.00062,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/
     +     .05510,    .00971,   -.03058,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04852,    .00852,   -.02623,    .00000,    .00000,
     +     .00000,    .00000,    .00002,
     +     .04048,    .00710,   -.02099,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03568,    .00621,   -.01795,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03133,    .00543,   -.01530,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02805,    .00483,   -.01331,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02528,    .00434,   -.01169,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02270,    .00388,   -.01022,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=9,16)/
     +     .02068,    .00351,   -.00907,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01894,    .00323,   -.00814,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01765,    .00299,   -.00742,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01529,    .00257,   -.00617,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01356,    .00228,   -.00531,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01190,    .00198,   -.00449,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01039,    .00173,   -.00378,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00921,    .00153,   -.00324,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=17,24)/
     +     .00818,    .00136,   -.00278,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00741,    .00122,   -.00245,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00660,    .00110,   -.00211,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00597,    .00098,   -.00185,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00543,    .00088,   -.00162,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00485,    .00080,   -.00141,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00436,    .00070,   -.00122,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00395,    .00064,   -.00107,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/
     +     .00357,    .00056,   -.00093,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00326,    .00052,   -.00083,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00297,    .00049,   -.00074,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00274,    .00044,   -.00066,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00253,    .00040,   -.00059,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00232,    .00037,   -.00052,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00216,    .00034,   -.00048,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00202,    .00031,   -.00044,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/
     +     .00188,    .00030,   -.00040,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00175,    .00027,   -.00036,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00164,    .00026,   -.00033,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00154,    .00024,   -.00030,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00144,    .00022,   -.00027,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/
     +     .00785,    .00104,   -.00553,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00662,    .00086,   -.00454,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00520,    .00067,   -.00344,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00440,    .00057,   -.00284,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00369,    .00048,   -.00232,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00319,    .00042,   -.00196,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00279,    .00036,   -.00167,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00241,    .00031,   -.00140,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/
     +     .00213,    .00028,   -.00122,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00189,    .00023,   -.00105,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00174,    .00023,   -.00097,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00144,    .00018,   -.00077,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00122,    .00015,   -.00063,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00102,    .00013,   -.00052,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00086,    .00011,   -.00042,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00074,    .00009,   -.00035,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/
     +     .00064,    .00007,   -.00029,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00056,    .00007,   -.00025,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00048,    .00005,   -.00020,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00041,    .00005,   -.00017,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00037,    .00005,   -.00015,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00032,    .00003,   -.00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00027,    .00003,   -.00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00024,    .00003,   -.00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
     +     .00022,    .00003,   -.00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00019,    .00003,   -.00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00017,    .00001,   -.00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00016,    .00001,   -.00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00014,    .00001,   -.00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00012,    .00001,   -.00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00011,    .00001,   -.00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00010,    .00001,   -.00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
     +     .00009,    .00001,   -.00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00008,    .00001,   -.00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00008,    .00001,   -.00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00007,    .00001,   -.00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00007,    .00001,   -.00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
      data xx/1d-5,2d-5,4d-5,6d-5,8d-5,
     .            1d-4,2d-4,4d-4,6d-4,8d-4,
     .            1d-3,2d-3,4d-3,6d-3,8d-3,
     .            1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2,
     .         .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0,
     .         .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0,
     .         .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0,
     .         .8d0,.9d0,1d0/
      data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1,
     .        1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2,
     .        1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4,
     .        1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6,
     .        1.8d6,3.2d6,5.6d6,1d7/
      data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/
      data n0/3,4,5,9,9,9,9,9/
      DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
      data init/0/
      save
      xsave=x
      q2save=qsq
      if(init.ne.0) goto 10
C        open(unit=1,file='cor11dis.dat',status='old')
        do 20 n=1,nx-1
        do 20 m=1,nq
C        read(1,50)f(1,n,m),f(2,n,m),f(3,n,m),f(4,n,m),
C     .             f(5,n,m),f(7,n,m),f(6,n,m),f(8,n,m)
c notation: 1=uval 2=val 3=glue 4=usea 5=chm 6=str 7=btm 8=dsea
      do 25 i=1,np
  25   f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i)
  20  continue
      do 31 j=1,ntenth-1
      xx(j)= log10(xx(j)/xx(ntenth))+xx(ntenth)
      do 31 i=1,8
      if(i.eq.5.or.i.eq.7) goto 31
      do 30 k=1,nq
  30  f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k)
  31  continue
  50  format(8f10.5)
      do 40 i=1,np
      do 40 m=1,nq
  40  f(i,nx,m)=ZEROD
      init=1
  10  continue
      if(x.lt.xmin) x=xmin
      if(x.gt.xmax) x=xmax
      if(qsq.lt.qsqmin) qsq=qsqmin
      if(qsq.gt.qsqmax) qsq=qsqmax
      xxx=x
      if(x.lt.xx(ntenth)) xxx= log10(x/xx(ntenth))+xx(ntenth)
      n=0
  70  n=n+1
      if(xxx.gt.xx(n+1)) goto 70
      a=(xxx-xx(n))/(xx(n+1)-xx(n))
      m=0
  80  m=m+1
      if(qsq.gt.qq(m+1)) goto 80
      b=(qsq-qq(m))/(qq(m+1)-qq(m))
      do 60 i=1,np
      g(i)=(ONED-a)*(ONED-b)*f(i,n,m) + (ONED-a)*b*f(i,n,m+1)
     .        +      a*(ONED-b)*f(i,n+1,m) +     a*b*f(i,n+1,m+1)
      if(n.ge.ntenth) goto 65
      if(i.eq.5.or.i.eq.7) goto 65
        fac=(ONED-b)*f(i,ntenth,m)+b*f(i,ntenth,m+1)
        g(i)=fac*10d0**(g(i)-fac)
  65  continue
      g(i)=g(i)*(ONED-x)**n0(i)
  60  continue
      upv=g(1)
      dnv=g(2)
      usea=g(4)
      dsea=g(8)
      str=g(6)
      chm=g(5)
      glu=g(3) 
      bot=g(7)
        x=xsave
        qsq=q2save
      return
      end
      

Generated by  Doxygen 1.6.0   Back to index