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

sfmrs_98a5.F

#include "pdf/pilot.h"
      subroutine sfmrs_98a5(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)/
     +     .00410,    .00145,   1.13388,    .83967,    .00000,
     +     .00000,    .45131,    .84958,
     +     .00428,    .00152,   2.46682,    .88357,    .00000,
     +     .00000,    .50061,    .89360,
     +     .00454,    .00164,   5.12623,    .97573,    .00584,
     +     .00000,    .60030,    .98593,
     +     .00474,    .00172,   7.66479,   1.06610,    .09987,
     +     .00000,    .69587,   1.07640,
     +     .00494,    .00181,  10.97657,   1.18300,    .21322,
     +     .00000,    .81801,   1.19340,
     +     .00511,    .00189,  14.39152,   1.30330,    .32526,
     +     .00000,    .94266,   1.31377,
     +     .00528,    .00196,  18.21165,   1.43557,    .45087,
     +     .00000,   1.07896,   1.44610,
     +     .00546,    .00204,  22.89839,   1.59464,    .60467,
     +     .00000,   1.24218,   1.60524 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
     +     .00562,    .00211,  27.54395,   1.74911,    .75680,
     +     .00000,   1.40015,   1.75976,
     +     .00577,    .00218,  32.51232,   1.91379,    .91771,
     +     .00000,   1.56811,   1.92447,
     +     .00589,    .00224,  36.78433,   2.05526,   1.05509,
     +     .00000,   1.71214,   2.06598,
     +     .00615,    .00236,  47.02047,   2.39013,   1.38482,
     +     .00022,   2.05228,   2.40090,
     +     .00637,    .00246,  57.00503,   2.71686,   1.70798,
     +     .25956,   2.38340,   2.72767,
     +     .00663,    .00258,  69.51163,   3.12614,   2.11314,
     +     .73923,   2.79744,   3.13699,
     +     .00689,    .00271,  84.17986,   3.60333,   2.58631,
     +    1.23387,   3.27942,   3.61421,
     +     .00714,    .00283,  98.98543,   4.08292,   3.06269,
     +    1.73405,   3.76321,   4.09381 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
     +     .00738,    .00295, 115.39584,   4.61376,   3.59078,
     +    2.28479,   4.29817,   4.62467,
     +     .00759,    .00305, 130.12375,   5.09085,   4.06508,
     +    2.77515,   4.77859,   5.10177,
     +     .00784,    .00317, 149.29649,   5.71410,   4.68404,
     +    3.41134,   5.40578,   5.72503,
     +     .00807,    .00328, 167.53966,   6.30824,   5.27513,
     +    4.02004,   6.00331,   6.31916,
     +     .00828,    .00338, 185.42651,   6.89065,   5.85675,
     +    4.62274,   6.58877,   6.90157,
     +     .00854,    .00352, 209.40271,   7.67782,   6.64045,
     +    5.42625,   7.37970,   7.68873,
     +     .00880,    .00364, 233.33664,   8.46901,   7.42793,
     +    6.23138,   8.17434,   8.47991,
     +     .00903,    .00376, 257.12515,   9.25852,   8.21548,
     +    7.03898,   8.96701,   9.26941 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
     +     .00928,    .00388, 282.23935,  10.09585,   9.05207,
     +    7.89802,   9.80742,  10.10672,
     +     .00951,    .00400, 307.69244,  10.95471,   9.90738,
     +    8.76888,  10.66923,  10.96556,
     +     .00974,    .00412, 333.04498,  11.81293,  10.76460,
     +    9.64581,  11.53019,  11.82376,
     +     .00996,    .00423, 357.79376,  12.65770,  11.60784,
     +   10.50605,  12.37750,  12.66852,
     +     .01017,    .00434, 383.53339,  13.54268,  12.49139,
     +   11.40692,  13.26498,  13.55348,
     +     .01039,    .00445, 409.83307,  14.45196,  13.40018,
     +   12.33434,  14.17666,  14.46273,
     +     .01060,    .00455, 435.42999,  15.34584,  14.29254,
     +   13.24219,  15.07280,  15.35658,
     +     .01080,    .00466, 460.52698,  16.22608,  15.17262,
     +   14.13922,  15.95515,  16.23681 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
     +     .01100,    .00476, 486.35519,  17.14026,  16.08592,
     +   15.06805,  16.87141,  17.15097,
     +     .01120,    .00486, 512.59387,  18.07448,  17.01988,
     +   16.01822,  17.80765,  18.08516,
     +     .01139,    .00496, 538.23193,  18.99353,  17.93896,
     +   16.95323,  18.72861,  19.00418,
     +     .01157,    .00506, 562.95007,  19.88759,  18.83228,
     +   17.86014,  19.62446,  19.89822,
     +     .01176,    .00515, 588.86542,  20.82639,  19.77244,
     +   18.81786,  20.56503,  20.83700 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
     +     .00563,    .00205,   1.02152,    .72019,    .00000,
     +     .00000,    .38635,    .72598,
     +     .00589,    .00216,   2.19801,    .75914,    .00000,
     +     .00000,    .42966,    .76500,
     +     .00626,    .00233,   4.50084,    .83853,    .00506,
     +     .00000,    .51509,    .84448,
     +     .00654,    .00246,   6.65561,    .91472,    .08408,
     +     .00000,    .59546,    .92074,
     +     .00682,    .00259,   9.42200,   1.01195,    .17804,
     +     .00000,    .69687,   1.01802,
     +     .00707,    .00270,  12.23286,   1.11084,    .26971,
     +     .00000,    .79923,   1.11695,
     +     .00731,    .00281,  15.33844,   1.21858,    .37148,
     +     .00000,    .91018,   1.22473,
     +     .00756,    .00293,  19.10337,   1.34707,    .49494,
     +     .00000,   1.04197,   1.35326 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
     +     .00778,    .00304,  22.79481,   1.47090,    .61606,
     +     .00000,   1.16857,   1.47711,
     +     .00799,    .00314,  26.70347,   1.60195,    .74321,
     +     .00000,   1.30223,   1.60819,
     +     .00816,    .00322,  30.03565,   1.71384,    .85108,
     +     .00000,   1.41614,   1.72009,
     +     .00852,    .00339,  37.93092,   1.97660,   1.10790,
     +     .00019,   1.68307,   1.98289,
     +     .00883,    .00355,  45.52346,   2.23045,   1.35711,
     +     .19998,   1.94040,   2.23677,
     +     .00919,    .00372,  54.90745,   2.54543,   1.66662,
     +     .56709,   2.25913,   2.55178,
     +     .00955,    .00390,  65.76954,   2.90907,   2.02457,
     +     .94117,   2.62653,   2.91544,
     +     .00989,    .00407,  76.59892,   3.27113,   2.38165,
     +    1.31588,   2.99191,   3.27752 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
     +     .01023,    .00424,  88.46689,   3.66845,   2.77419,
     +    1.72485,   3.39247,   3.67486,
     +     .01052,    .00438,  99.01054,   4.02277,   3.12406,
     +    2.08608,   3.74940,   4.02919,
     +     .01086,    .00456, 112.60005,   4.48211,   3.57721,
     +    2.55111,   4.21183,   4.48853,
     +     .01117,    .00471, 125.40544,   4.91667,   4.00679,
     +    2.99276,   4.64906,   4.92311,
     +     .01146,    .00486, 137.85715,   5.33989,   4.42686,
     +    3.42735,   5.07465,   5.34633,
     +     .01182,    .00505, 154.39085,   5.90772,   4.98878,
     +    4.00236,   5.64543,   5.91416,
     +     .01217,    .00522, 170.73593,   6.47412,   5.54922,
     +    4.57419,   6.21454,   6.48057,
     +     .01250,    .00539, 186.84367,   7.03549,   6.10607,
     +    5.14409,   6.77838,   7.04194 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
     +     .01283,    .00556, 203.71295,   7.62705,   6.69395,
     +    5.74658,   7.37235,   7.63350,
     +     .01315,    .00573, 220.66245,   8.22977,   7.29094,
     +    6.35306,   7.97738,   8.23621,
     +     .01346,    .00589, 237.42674,   8.82858,   7.88604,
     +    6.96060,   8.57833,   8.83503,
     +     .01375,    .00604, 253.67505,   9.41470,   8.46818,
     +    7.55321,   9.16643,   9.42114,
     +     .01405,    .00619, 270.46054,  10.02542,   9.07497,
     +    8.17056,   9.77911,  10.03186,
     +     .01434,    .00635, 287.50439,  10.64974,   9.69605,
     +    8.80307,  10.40532,  10.65617,
     +     .01462,    .00649, 303.98273,  11.26029,  10.30274,
     +    9.41895,  11.01764,  11.26672,
     +     .01489,    .00663, 320.05313,  11.85890,  10.89859,
     +   10.02503,  11.61788,  11.86533 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
     +     .01516,    .00678, 336.49298,  12.47767,  11.51406,
     +   10.64961,  12.23829,  12.48409,
     +     .01543,    .00692, 353.10620,  13.10729,  12.14083,
     +   11.28594,  12.86950,  13.11371,
     +     .01569,    .00705, 369.25400,  13.72408,  12.75510,
     +   11.90957,  13.48778,  13.73050,
     +     .01593,    .00719, 384.73975,  14.32161,  13.34966,
     +   12.51189,  14.08671,  14.32802,
     +     .01619,    .00732, 400.91336,  14.94693,  13.97348,
     +   13.14616,  14.71342,  14.95333 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
     +     .00774,    .00291,    .92050,    .61742,    .00000,
     +     .00000,    .33079,    .62031,
     +     .00810,    .00308,   1.95876,    .65191,    .00000,
     +     .00000,    .36879,    .65483,
     +     .00864,    .00333,   3.95190,    .72025,    .00438,
     +     .00000,    .44199,    .72322,
     +     .00902,    .00351,   5.77922,    .78445,    .07076,
     +     .00000,    .50952,    .78744,
     +     .00943,    .00371,   8.08707,    .86521,    .14862,
     +     .00000,    .59363,    .86823,
     +     .00977,    .00388,  10.39688,    .94636,    .22358,
     +     .00000,    .67755,    .94940,
     +     .01011,    .00404,  12.91673,   1.03394,    .30597,
     +     .00000,    .76768,   1.03701,
     +     .01046,    .00421,  15.93458,   1.13747,    .40498,
     +     .00000,    .87384,   1.14056 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
     +     .01077,    .00437,  18.86076,   1.23646,    .50132,
     +     .00000,    .97503,   1.23956,
     +     .01107,    .00451,  21.92757,   1.34044,    .60168,
     +     .00000,   1.08107,   1.34356,
     +     .01130,    .00463,  24.51922,   1.42865,    .68626,
     +     .00000,   1.17088,   1.43178,
     +     .01180,    .00488,  30.59000,   1.63414,    .88602,
     +     .00017,   1.37967,   1.63730,
     +     .01224,    .00510,  36.34333,   1.83066,   1.07790,
     +     .15400,   1.57893,   1.83384,
     +     .01273,    .00535,  43.35708,   2.07215,   1.31392,
     +     .43482,   1.82337,   2.07534,
     +     .01324,    .00561,  51.36691,   2.34813,   1.58416,
     +     .71754,   2.10231,   2.35134,
     +     .01370,    .00585,  59.25225,   2.62032,   1.85126,
     +     .99804,   2.37710,   2.62355 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
     +     .01417,    .00610,  67.79415,   2.91640,   2.14234,
     +    1.30143,   2.67572,   2.91965,
     +     .01457,    .00630,  75.30418,   3.17835,   2.39978,
     +    1.56725,   2.93972,   3.18162,
     +     .01505,    .00655,  84.88493,   3.51530,   2.73064,
     +    1.90674,   3.27908,   3.51858,
     +     .01547,    .00677,  93.82304,   3.83163,   3.04195,
     +    2.22672,   3.59748,   3.83492,
     +     .01586,    .00698, 102.44107,   4.13765,   3.34444,
     +    2.53962,   3.90537,   4.14095,
     +     .01636,    .00724, 113.77300,   4.54519,   3.74605,
     +    2.95038,   4.31521,   4.54851,
     +     .01684,    .00749, 124.86413,   4.94857,   4.14357,
     +    3.35571,   4.72070,   4.95190,
     +     .01728,    .00772, 135.69891,   5.34561,   4.53591,
     +    3.75702,   5.11966,   5.34895 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
     +     .01773,    .00796, 146.95236,   5.76127,   4.94751,
     +    4.17862,   5.53720,   5.76462,
     +     .01817,    .00819, 158.15775,   6.18188,   5.36260,
     +    4.59992,   5.95960,   6.18525,
     +     .01859,    .00842, 169.16113,   6.59733,   5.77408,
     +    5.01972,   6.37673,   6.60071,
     +     .01898,    .00863, 179.74683,   7.00164,   6.17430,
     +    5.42682,   6.78257,   7.00502,
     +     .01939,    .00884, 190.60670,   7.42062,   6.58924,
     +    5.84864,   7.20307,   7.42401,
     +     .01978,    .00905, 201.56267,   7.84671,   7.01184,
     +    6.27869,   7.63063,   7.85012,
     +     .02016,    .00926, 212.08163,   8.26120,   7.42244,
     +    6.69512,   8.04649,   8.26461,
     +     .02052,    .00945, 222.28381,   8.66575,   7.82398,
     +    7.10323,   8.45232,   8.66918 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
     +     .02089,    .00965, 232.65549,   9.08193,   8.23674,
     +    7.52175,   8.86977,   9.08537,
     +     .02125,    .00984, 243.07906,   9.50356,   8.65531,
     +    7.94633,   9.29263,   9.50700,
     +     .02160,    .01003, 253.15546,   9.91481,   9.06380,
     +    8.36071,   9.70504,   9.91826,
     +     .02193,    .01021, 262.76459,  10.31151,   9.45747,
     +    8.75915,  10.10283,  10.31497,
     +     .02226,    .01039, 272.76151,  10.72525,   9.86925,
     +    9.17755,  10.51766,  10.72872 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
     +     .00933,    .00357,    .86626,    .56409,    .00000,
     +     .00000,    .30210,    .56577,
     +     .00977,    .00378,   1.83127,    .59618,    .00000,
     +     .00000,    .33728,    .59788,
     +     .01042,    .00410,   3.66250,    .65875,    .00403,
     +     .00000,    .40415,    .66048,
     +     .01089,    .00433,   5.32102,    .71679,    .06396,
     +     .00000,    .46512,    .71854,
     +     .01139,    .00458,   7.39525,    .78919,    .13369,
     +     .00000,    .54046,    .79096,
     +     .01181,    .00479,   9.45261,    .86140,    .20029,
     +     .00000,    .61510,    .86319,
     +     .01222,    .00499,  11.68011,    .93890,    .27307,
     +     .00000,    .69483,    .94070,
     +     .01265,    .00521,  14.32850,   1.03002,    .36005,
     +     .00000,    .78825,   1.03184 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
     +     .01303,    .00540,  16.87945,   1.11673,    .44426,
     +     .00000,    .87689,   1.11856,
     +     .01339,    .00559,  19.53665,   1.20740,    .53158,
     +     .00000,    .96937,   1.20924,
     +     .01367,    .00573,  21.77038,   1.28402,    .60489,
     +     .00000,   1.04738,   1.28588,
     +     .01428,    .00605,  26.96716,   1.46166,    .77719,
     +     .00016,   1.22790,   1.46354,
     +     .01481,    .00632,  31.84917,   1.63052,    .94171,
     +     .13212,   1.39914,   1.63242,
     +     .01540,    .00663,  37.75180,   1.83681,   1.14291,
     +     .37210,   1.60801,   1.83873,
     +     .01602,    .00695,  44.43860,   2.07115,   1.37192,
     +     .61198,   1.84492,   2.07309,
     +     .01658,    .00724,  50.97178,   2.30097,   1.59701,
     +     .84863,   2.07700,   2.30293 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
     +     .01715,    .00754,  57.99986,   2.54966,   1.84106,
     +    1.10324,   2.32788,   2.55163,
     +     .01762,    .00779,  64.14041,   2.76864,   2.05589,
     +    1.32523,   2.54864,   2.77063,
     +     .01820,    .00810,  71.92599,   3.04901,   2.33072,
     +    1.60741,   2.83110,   3.05102,
     +     .01871,    .00837,  79.14590,   3.31101,   2.58815,
     +    1.87217,   3.09491,   3.31304,
     +     .01918,    .00862,  86.07211,   3.56349,   2.83735,
     +    2.13011,   3.34900,   3.56554,
     +     .01978,    .00894,  95.12583,   3.89822,   3.16673,
     +    2.46714,   3.68572,   3.90029,
     +     .02035,    .00925, 103.93383,   4.22801,   3.49126,
     +    2.79816,   4.01732,   4.23010,
     +     .02089,    .00953, 112.49309,   4.55128,   3.81030,
     +    3.12461,   4.34226,   4.55339 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
     +     .02142,    .00982, 121.33900,   4.88840,   4.14373,
     +    3.46628,   4.68100,   4.89053,
     +     .02195,    .01010, 130.09888,   5.22814,   4.47858,
     +    3.80621,   5.02229,   5.23028,
     +     .02245,    .01037, 138.66365,   5.56255,   4.80944,
     +    4.14385,   5.35815,   5.56471,
     +     .02292,    .01063, 146.86635,   5.88687,   5.13013,
     +    4.47013,   5.68379,   5.88905,
     +     .02340,    .01089, 155.24594,   6.22186,   5.46155,
     +    4.80711,   6.02009,   6.22405,
     +     .02387,    .01115, 163.66696,   6.56149,   5.79808,
     +    5.14966,   6.36100,   6.56371,
     +     .02432,    .01139, 171.71750,   6.89082,   6.12400,
     +    5.48026,   6.69151,   6.89305,
     +     .02475,    .01162, 179.49989,   7.21140,   6.44192,
     +    5.80345,   7.01319,   7.21364 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
     +     .02519,    .01186, 187.38124,   7.54024,   6.76777,
     +    6.13389,   7.34312,   7.54250,
     +     .02562,    .01210, 195.27574,   7.87250,   7.09737,
     +    6.46828,   7.67646,   7.87478,
     +     .02603,    .01232, 202.88179,   8.19577,   7.41821,
     +    6.79381,   8.00072,   8.19806,
     +     .02642,    .01253, 210.11015,   8.50678,   7.72661,
     +    7.10597,   8.31267,   8.50909,
     +     .02682,    .01275, 217.61317,   8.83052,   8.04861,
     +    7.43323,   8.63735,   8.83285 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
     +     .01064,    .00413,    .82983,    .52899,    .00000,
     +     .00000,    .28328,    .53001,
     +     .01116,    .00438,   1.74602,    .55946,    .00000,
     +     .00000,    .31659,    .56050,
     +     .01191,    .00475,   3.47019,    .61823,    .00380,
     +     .00000,    .37928,    .61929,
     +     .01245,    .00503,   5.01807,    .67224,    .05952,
     +     .00000,    .43598,    .67331,
     +     .01302,    .00532,   6.94034,    .73921,    .12399,
     +     .00000,    .50564,    .74030,
     +     .01351,    .00557,   8.83459,    .80564,    .18522,
     +     .00000,    .57429,    .80676,
     +     .01398,    .00581,  10.87433,    .87665,    .25185,
     +     .00000,    .64734,    .87777,
     +     .01448,    .00606,  13.28681,    .95982,    .33116,
     +     .00000,    .73260,    .96096 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
     +     .01491,    .00628,  15.59946,   1.03869,    .40767,
     +     .00000,    .81323,   1.03984,
     +     .01532,    .00650,  17.99779,   1.12090,    .48676,
     +     .00000,    .89708,   1.12206,
     +     .01565,    .00667,  20.00627,   1.19017,    .55297,
     +     .00000,    .96762,   1.19135,
     +     .01635,    .00704,  24.65609,   1.35022,    .70803,
     +     .00015,   1.13028,   1.35142,
     +     .01696,    .00735,  28.99665,   1.50169,    .85546,
     +     .11848,   1.28392,   1.50291,
     +     .01763,    .00771,  34.21339,   1.68597,   1.03502,
     +     .33307,   1.47053,   1.68721,
     +     .01834,    .00808,  40.08891,   1.89439,   1.23852,
     +     .54649,   1.68130,   1.89566,
     +     .01898,    .00843,  45.79812,   2.09797,   1.43773,
     +     .75617,   1.88692,   2.09926 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
     +     .01963,    .00877,  51.90907,   2.31743,   1.65293,
     +     .98090,   2.10837,   2.31874,
     +     .02017,    .00906,  57.22418,   2.51002,   1.84173,
     +    1.17617,   2.30257,   2.51136,
     +     .02083,    .00942,  63.93317,   2.75578,   2.08246,
     +    1.42353,   2.55022,   2.75714,
     +     .02142,    .00973,  70.12782,   2.98468,   2.30722,
     +    1.65487,   2.78075,   2.98606,
     +     .02195,    .01002,  76.04879,   3.20464,   2.52420,
     +    1.87964,   3.00217,   3.20604,
     +     .02264,    .01039,  83.75541,   3.49532,   2.81007,
     +    2.17233,   3.29465,   3.49675,
     +     .02328,    .01074,  91.22005,   3.78076,   3.09081,
     +    2.45886,   3.58174,   3.78222,
     +     .02389,    .01107,  98.44627,   4.05974,   3.36600,
     +    2.74062,   3.86221,   4.06122 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
     +     .02450,    .01140, 105.88766,   4.34985,   3.65284,
     +    3.03472,   4.15380,   4.35136,
     +     .02510,    .01172, 113.22719,   4.64135,   3.94001,
     +    3.32639,   4.44670,   4.64288,
     +     .02566,    .01203, 120.38084,   4.92757,   4.22309,
     +    3.61543,   4.73422,   4.92912,
     +     .02620,    .01233, 127.20954,   5.20446,   4.49679,
     +    3.89404,   5.01231,   5.20604,
     +     .02674,    .01262, 134.16409,   5.48979,   4.77899,
     +    4.18112,   5.29882,   5.49139,
     +     .02728,    .01292, 141.13313,   5.77844,   5.06493,
     +    4.47231,   5.58861,   5.78006,
     +     .02779,    .01320, 147.77486,   6.05768,   5.34120,
     +    4.75267,   5.86892,   6.05932,
     +     .02827,    .01346, 154.18007,   6.32898,   5.61019,
     +    5.02626,   6.14122,   6.33064 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
     +     .02876,    .01373, 160.64821,   6.60669,   5.88532,
     +    5.30538,   6.41991,   6.60837,
     +     .02925,    .01400, 167.11160,   6.88677,   6.16309,
     +    5.58733,   6.70095,   6.88847,
     +     .02972,    .01426, 173.32370,   7.15875,   6.43299,
     +    5.86129,   6.97384,   7.16047,
     +     .03016,    .01450, 179.21219,   7.41993,   6.69194,
     +    6.12350,   7.23587,   7.42168,
     +     .03061,    .01475, 185.31451,   7.69142,   6.96196,
     +    6.39806,   7.50820,   7.69319 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
     +     .01180,    .00462,    .80271,    .50324,    .00000,
     +     .00000,    .26951,    .50386,
     +     .01237,    .00491,   1.68274,    .53250,    .00000,
     +     .00000,    .30143,    .53313,
     +     .01321,    .00534,   3.32807,    .58845,    .00362,
     +     .00000,    .36105,    .58911,
     +     .01382,    .00565,   4.79499,    .63952,    .05629,
     +     .00000,    .41463,    .64019,
     +     .01445,    .00597,   6.60664,    .70254,    .11694,
     +     .00000,    .48017,    .70323,
     +     .01500,    .00626,   8.38278,    .76480,    .17429,
     +     .00000,    .54449,    .76550,
     +     .01552,    .00653,  10.28715,    .83112,    .23649,
     +     .00000,    .61272,    .83184,
     +     .01607,    .00681,  12.53027,    .90857,    .31031,
     +     .00000,    .69211,    .90930 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
     +     .01655,    .00707,  14.67251,    .98181,    .38132,
     +     .00000,    .76700,    .98256,
     +     .01702,    .00731,  16.88642,   1.05796,    .45453,
     +     .00000,    .84467,   1.05872,
     +     .01738,    .00750,  18.73492,   1.12198,    .51570,
     +     .00000,    .90988,   1.12276,
     +     .01816,    .00791,  22.99788,   1.26950,    .65854,
     +     .00015,   1.05983,   1.27031,
     +     .01883,    .00827,  26.95747,   1.40864,    .79389,
     +     .10885,   1.20099,   1.40947,
     +     .01959,    .00867,  31.69399,   1.57735,    .95821,
     +     .30557,   1.37187,   1.57821,
     +     .02037,    .00909,  37.00429,   1.76753,   1.14382,
     +     .50043,   1.56422,   1.76842,
     +     .02108,    .00948,  42.14212,   1.95269,   1.32494,
     +     .69128,   1.75127,   1.95360 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
     +     .02180,    .00987,  47.61976,   2.15171,   1.52004,
     +     .89522,   1.95214,   2.15265,
     +     .02240,    .01019,  52.36707,   2.32590,   1.69075,
     +    1.07193,   2.12782,   2.32686,
     +     .02313,    .01058,  58.33833,   2.54758,   1.90785,
     +    1.29518,   2.35127,   2.54858,
     +     .02378,    .01093,  63.83298,   2.75354,   2.11002,
     +    1.50345,   2.55873,   2.75456,
     +     .02437,    .01126,  69.06982,   2.95101,   2.30480,
     +    1.70537,   2.75755,   2.95205,
     +     .02513,    .01167,  75.86281,   3.21131,   2.56075,
     +    1.96763,   3.01952,   3.21239,
     +     .02584,    .01206,  82.41984,   3.46625,   2.81145,
     +    2.22367,   3.27598,   3.46736,
     +     .02651,    .01243,  88.74841,   3.71485,   3.05665,
     +    2.47490,   3.52597,   3.71598 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
     +     .02718,    .01279,  95.24689,   3.97280,   3.31168,
     +    2.73656,   3.78528,   3.97396,
     +     .02784,    .01316, 101.63587,   4.23138,   3.56640,
     +    2.99542,   4.04516,   4.23258,
     +     .02847,    .01350, 107.84773,   4.48479,   3.81702,
     +    3.25149,   4.29977,   4.48601,
     +     .02906,    .01383, 113.76205,   4.72945,   4.05887,
     +    3.49781,   4.54554,   4.73070,
     +     .02966,    .01416, 119.77055,   4.98111,   4.30777,
     +    3.75116,   4.79829,   4.98238,
     +     .03025,    .01448, 125.77811,   5.23525,   4.55954,
     +    4.00771,   5.05349,   5.23655,
     +     .03081,    .01479, 131.48927,   5.48066,   4.80234,
     +    4.25424,   5.29989,   5.48199,
     +     .03134,    .01509, 136.98662,   5.71873,   5.03841,
     +    4.49448,   5.53889,   5.72009 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
     +     .03188,    .01538, 142.52556,   5.96203,   5.27946,
     +    4.73916,   5.78310,   5.96341,
     +     .03242,    .01568, 148.04964,   6.20704,   5.52248,
     +    4.98597,   6.02900,   6.20845,
     +     .03293,    .01596, 153.34877,   6.44462,   5.75827,
     +    5.22544,   6.26741,   6.44605,
     +     .03342,    .01623, 158.36150,   6.67242,   5.98415,
     +    5.45428,   6.49600,   6.67388,
     +     .03391,    .01651, 163.54970,   6.90896,   6.21945,
     +    5.69368,   6.73333,   6.91044 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
     +     .01624,    .00659,    .72458,    .43078,    .00000,
     +     .00000,    .23096,    .43068,
     +     .01706,    .00702,   1.50119,    .45651,    .00000,
     +     .00000,    .25888,    .45643,
     +     .01824,    .00765,   2.92311,    .50447,    .00313,
     +     .00000,    .30986,    .50444,
     +     .01910,    .00811,   4.16307,    .54731,    .04727,
     +     .00000,    .35475,    .54730,
     +     .01999,    .00859,   5.66756,    .59937,    .09739,
     +     .00000,    .40887,    .59940,
     +     .02076,    .00901,   7.11862,    .65012,    .14413,
     +     .00000,    .46131,    .65017,
     +     .02149,    .00941,   8.65329,    .70361,    .19429,
     +     .00000,    .51635,    .70370,
     +     .02226,    .00983,  10.43737,    .76548,    .25324,
     +     .00000,    .57981,    .76560 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
     +     .02293,    .01019,  12.12091,    .82349,    .30945,
     +     .00000,    .63914,    .82363,
     +     .02358,    .01055,  13.84153,    .88329,    .36694,
     +     .00000,    .70020,    .88346,
     +     .02409,    .01083,  15.26450,    .93323,    .41463,
     +     .00000,    .75109,    .93342,
     +     .02517,    .01142,  18.50588,   1.04728,    .52506,
     +     .00013,    .86712,   1.04752,
     +     .02610,    .01194,  21.46863,   1.15369,    .62858,
     +     .08349,    .97515,   1.15397,
     +     .02715,    .01251,  24.95956,   1.28136,    .75297,
     +     .23336,   1.10458,   1.28169,
     +     .02823,    .01311,  28.81644,   1.42374,    .89199,
     +     .37996,   1.24871,   1.42411,
     +     .02922,    .01366,  32.49687,   1.56095,   1.02630,
     +     .52211,   1.38745,   1.56137 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
     +     .03021,    .01421,  36.37123,   1.70705,   1.16964,
     +     .67256,   1.53504,   1.70753,
     +     .03103,    .01467,  39.69075,   1.83385,   1.29401,
     +     .80180,   1.66305,   1.83437,
     +     .03203,    .01523,  43.81907,   1.99388,   1.45087,
     +     .96371,   1.82449,   1.99445,
     +     .03292,    .01572,  47.57631,   2.14134,   1.59578,
     +    1.11353,   1.97316,   2.14196,
     +     .03373,    .01618,  51.12434,   2.28174,   1.73443,
     +    1.25781,   2.11464,   2.28240,
     +     .03476,    .01676,  55.67641,   2.46533,   1.91516,
     +    1.44362,   2.29957,   2.46604,
     +     .03573,    .01730,  60.02129,   2.64364,   2.09072,
     +    1.62351,   2.47910,   2.64441,
     +     .03664,    .01781,  64.17437,   2.81624,   2.26119,
     +    1.79876,   2.65282,   2.81706 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
     +     .03756,    .01832,  68.40000,   2.99410,   2.43730,
     +    1.98006,   2.83177,   2.99497,
     +     .03845,    .01882,  72.51099,   3.17106,   2.61184,
     +    2.15797,   3.00977,   3.17198,
     +     .03929,    .01930,  76.47652,   3.34341,   2.78256,
     +    2.33296,   3.18309,   3.34438,
     +     .04009,    .01975,  80.21996,   3.50878,   2.94627,
     +    2.50022,   3.34935,   3.50979,
     +     .04090,    .02020,  83.99282,   3.67787,   3.11376,
     +    2.67122,   3.51932,   3.67893,
     +     .04169,    .02065,  87.73776,   3.84770,   3.28228,
     +    2.84347,   3.68999,   3.84880,
     +     .04245,    .02107,  91.26865,   4.01072,   3.44382,
     +    3.00797,   3.85380,   4.01186,
     +     .04316,    .02148,  94.64660,   4.16812,   3.60017,
     +    3.16756,   4.01194,   4.16931 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
     +     .04388,    .02188,  98.02460,   4.32812,   3.75896,
     +    3.32921,   4.17267,   4.32935,
     +     .04460,    .02229, 101.37252,   4.48849,   3.91830,
     +    3.49150,   4.33376,   4.48976,
     +     .04528,    .02267, 104.56365,   4.64326,   4.07219,
     +    3.64825,   4.48920,   4.64458,
     +     .04593,    .02304, 107.56161,   4.79096,   4.21889,
     +    3.79729,   4.63753,   4.79232,
     +     .04659,    .02341, 110.65234,   4.94380,   4.37124,
     +    3.95277,   4.79100,   4.94519 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
     +     .02244,    .00947,    .65549,    .36863,    .00000,
     +     .00000,    .19815,    .36854,
     +     .02359,    .01011,   1.34104,    .39113,    .00000,
     +     .00000,    .22249,    .39110,
     +     .02526,    .01105,   2.56846,    .43207,    .00270,
     +     .00000,    .26597,    .43212,
     +     .02646,    .01173,   3.61386,    .46784,    .03959,
     +     .00000,    .30346,    .46795,
     +     .02772,    .01244,   4.85871,    .51064,    .08087,
     +     .00000,    .34798,    .51082,
     +     .02879,    .01304,   6.03871,    .55178,    .11882,
     +     .00000,    .39053,    .55201,
     +     .02982,    .01362,   7.26877,    .59466,    .15911,
     +     .00000,    .43472,    .59496,
     +     .03090,    .01424,   8.67903,    .64376,    .20597,
     +     .00000,    .48515,    .64412 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
     +     .03183,    .01477,   9.99307,    .68937,    .25026,
     +     .00000,    .53188,    .68978,
     +     .03273,    .01528,  11.32032,    .73600,    .29517,
     +     .00000,    .57954,    .73646,
     +     .03344,    .01568,  12.40690,    .77464,    .33216,
     +     .00000,    .61898,    .77514,
     +     .03494,    .01654,  14.84996,    .86209,    .41706,
     +     .00011,    .70809,    .86268,
     +     .03624,    .01728,  17.04504,    .94275,    .49574,
     +     .06374,    .79011,    .94341,
     +     .03768,    .01810,  19.59000,   1.03847,    .58929,
     +     .17733,    .88731,   1.03923,
     +     .03917,    .01896,  22.35831,   1.14401,    .69267,
     +     .28702,    .99431,   1.14486,
     +     .04053,    .01973,  24.96137,   1.24464,    .79151,
     +     .39226,   1.09623,   1.24557 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
     +     .04189,    .02051,  27.66475,   1.35075,    .89599,
     +     .50257,   1.20359,   1.35177,
     +     .04302,    .02116,  29.95267,   1.44203,    .98584,
     +     .59647,   1.29588,   1.44312,
     +     .04439,    .02194,  32.76359,   1.55622,   1.09818,
     +     .71306,   1.41125,   1.55740,
     +     .04560,    .02264,  35.29183,   1.66054,   1.20107,
     +     .82004,   1.51658,   1.66179,
     +     .04670,    .02327,  37.65590,   1.75913,   1.29883,
     +     .92235,   1.61609,   1.76046,
     +     .04810,    .02408,  40.65289,   1.88697,   1.42515,
     +    1.05292,   1.74506,   1.88840,
     +     .04942,    .02483,  43.47881,   2.01006,   1.54680,
     +    1.17822,   1.86917,   2.01157,
     +     .05065,    .02554,  46.15185,   2.12829,   1.66403,
     +    1.29939,   1.98833,   2.12988 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
     +     .05188,    .02624,  48.84473,   2.24923,   1.78427,
     +    1.42384,   2.11020,   2.25090,
     +     .05309,    .02693,  51.43415,   2.36860,   1.90245,
     +    1.54492,   2.23044,   2.37035,
     +     .05423,    .02759,  53.91073,   2.48411,   2.01735,
     +    1.66330,   2.34677,   2.48595,
     +     .05530,    .02820,  56.22662,   2.59422,   2.12678,
     +    1.77568,   2.45762,   2.59612,
     +     .05638,    .02882,  58.54014,   2.70609,   2.23805,
     +    1.88986,   2.57023,   2.70807,
     +     .05744,    .02943,  60.81844,   2.81780,   2.34936,
     +    2.00422,   2.68266,   2.81985,
     +     .05845,    .03001,  62.94639,   2.92436,   2.45538,
     +    2.11272,   2.78989,   2.92648,
     +     .05940,    .03055,  64.96874,   3.02674,   2.55750,
     +    2.21749,   2.89289,   3.02892 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
     +     .06036,    .03110,  66.97388,   3.13021,   2.66061,
     +    2.32298,   2.99698,   3.13246,
     +     .06131,    .03165,  68.94745,   3.23340,   2.76357,
     +    2.42837,   3.10078,   3.23572,
     +     .06222,    .03217,  70.81503,   3.33249,   2.86252,
     +    2.52967,   3.20044,   3.33487,
     +     .06308,    .03266,  72.55582,   3.42657,   2.95635,
     +    2.62546,   3.29505,   3.42901,
     +     .06395,    .03316,  74.34308,   3.52358,   3.05348,
     +    2.72509,   3.39259,   3.52608 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
     +     .02717,    .01178,    .61929,    .33661,    .00000,
     +     .00000,    .18133,    .33679,
     +     .02858,    .01259,   1.25681,    .35735,    .00000,
     +     .00000,    .20374,    .35761,
     +     .03062,    .01377,   2.38209,    .39454,    .00248,
     +     .00000,    .24325,    .39494,
     +     .03209,    .01462,   3.32638,    .42662,    .03560,
     +     .00000,    .27691,    .42710,
     +     .03363,    .01551,   4.43773,    .46465,    .07236,
     +     .00000,    .31651,    .46523,
     +     .03493,    .01626,   5.47983,    .50088,    .10585,
     +     .00000,    .35404,    .50155,
     +     .03618,    .01699,   6.55638,    .53841,    .14118,
     +     .00000,    .39276,    .53916,
     +     .03749,    .01775,   7.78003,    .58110,    .18203,
     +     .00000,    .43667,    .58193 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
     +     .03863,    .01841,   8.91125,    .62054,    .22041,
     +     .00000,    .47713,    .62145,
     +     .03972,    .01904,  10.04549,    .66064,    .25913,
     +     .00000,    .51819,    .66162,
     +     .04057,    .01954,  10.96819,    .69372,    .29088,
     +     .00000,    .55200,    .69476,
     +     .04240,    .02060,  13.02600,    .76817,    .36335,
     +     .00010,    .62798,    .76934,
     +     .04396,    .02150,  14.85514,    .83636,    .43006,
     +     .05421,    .69742,    .83763,
     +     .04570,    .02252,  16.95439,    .91674,    .50885,
     +     .15040,    .77916,    .91813,
     +     .04750,    .02356,  19.21574,   1.00474,    .59533,
     +     .24255,    .86851,   1.00626,
     +     .04913,    .02451,  21.32254,   1.08811,    .67748,
     +     .33040,    .95306,   1.08974 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
     +     .05077,    .02546,  23.49199,   1.17548,    .76380,
     +     .42192,   1.04159,   1.17723,
     +     .05212,    .02625,  25.31384,   1.25023,    .83763,
     +     .49941,   1.11727,   1.25207,
     +     .05376,    .02720,  27.53496,   1.34324,    .92944,
     +     .59509,   1.21137,   1.34519,
     +     .05520,    .02804,  29.51785,   1.42775,   1.01309,
     +     .68243,   1.29683,   1.42981,
     +     .05653,    .02881,  31.36050,   1.50727,   1.09222,
     +     .76560,   1.37720,   1.50943,
     +     .05820,    .02978,  33.67862,   1.60984,   1.19393,
     +     .87116,   1.48080,   1.61212,
     +     .05976,    .03069,  35.84742,   1.70805,   1.29133,
     +     .97190,   1.57997,   1.71044,
     +     .06123,    .03154,  37.88526,   1.80194,   1.38477,
     +    1.06887,   1.67473,   1.80444 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
     +     .06269,    .03239,  39.92525,   1.89756,   1.48018,
     +    1.16803,   1.77120,   1.90016,
     +     .06412,    .03321,  41.87185,   1.99145,   1.57347,
     +    1.26399,   1.86591,   1.99416,
     +     .06547,    .03399,  43.72355,   2.08196,   1.66382,
     +    1.35747,   1.95718,   2.08477,
     +     .06674,    .03473,  45.44446,   2.16787,   1.74951,
     +    1.44582,   2.04378,   2.17077,
     +     .06801,    .03547,  47.15368,   2.25481,   1.83631,
     +    1.53525,   2.13142,   2.25781,
     +     .06927,    .03619,  48.82821,   2.34132,   1.92283,
     +    1.62450,   2.21860,   2.34441,
     +     .07045,    .03688,  50.38250,   2.42351,   2.00490,
     +    1.70883,   2.30141,   2.42669,
     +     .07158,    .03752,  51.85331,   2.50223,   2.08372,
     +    1.79002,   2.38072,   2.50549 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
     +     .07271,    .03818,  53.30327,   2.58150,   2.16301,
     +    1.87147,   2.46057,   2.58485,
     +     .07383,    .03882,  54.72388,   2.66032,   2.24195,
     +    1.95260,   2.53995,   2.66375,
     +     .07489,    .03943,  56.06176,   2.73577,   2.31757,
     +    2.03033,   2.61593,   2.73927,
     +     .07590,    .04002,  57.30203,   2.80716,   2.38904,
     +    2.10359,   2.68782,   2.81074,
     +     .07692,    .04061,  58.57233,   2.88062,   2.46289,
     +    2.17965,   2.76178,   2.88428 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
     +     .03117,    .01382,    .59558,    .31575,    .00000,
     +     .00000,    .17038,    .31620,
     +     .03280,    .01478,   1.20122,    .33527,    .00000,
     +     .00000,    .19148,    .33584,
     +     .03516,    .01616,   2.25866,    .36995,    .00232,
     +     .00000,    .22833,    .37067,
     +     .03686,    .01716,   3.13611,    .39957,    .03297,
     +     .00000,    .25944,    .40042,
     +     .03862,    .01820,   4.15973,    .43445,    .06676,
     +     .00000,    .29581,    .43542,
     +     .04013,    .01908,   5.11180,    .46748,    .09735,
     +     .00000,    .33006,    .46856,
     +     .04156,    .01992,   6.08873,    .50152,    .12946,
     +     .00000,    .36523,    .50270,
     +     .04306,    .02081,   7.19201,    .54007,    .16642,
     +     .00000,    .40493,    .54135 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
     +     .04437,    .02157,   8.20596,    .57553,    .20101,
     +     .00000,    .44137,    .57691,
     +     .04561,    .02231,   9.21704,    .61145,    .23577,
     +     .00000,    .47819,    .61292,
     +     .04660,    .02289,  10.03565,    .64098,    .26418,
     +     .00000,    .50842,    .64252,
     +     .04868,    .02411,  11.85028,    .70717,    .32876,
     +     .00010,    .57605,    .70887,
     +     .05046,    .02516,  13.45022,    .76748,    .38792,
     +     .04818,    .63755,    .76930,
     +     .05245,    .02633,  15.27243,    .83821,    .45744,
     +     .13342,    .70958,    .84019,
     +     .05451,    .02754,  17.22106,    .91526,    .53337,
     +     .21460,    .78791,    .91738,
     +     .05636,    .02862,  19.02391,    .98789,    .60515,
     +     .29163,    .86167,    .99015 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
     +     .05822,    .02972,  20.86851,   1.06367,    .68024,
     +     .37152,    .93855,   1.06608,
     +     .05976,    .03062,  22.40849,   1.12824,    .74421,
     +     .43888,   1.00401,   1.13076,
     +     .06162,    .03171,  24.27503,   1.20826,    .82343,
     +     .52173,   1.08508,   1.21092,
     +     .06325,    .03266,  25.93193,   1.28068,    .89533,
     +     .59706,   1.15840,   1.28347,
     +     .06475,    .03354,  27.46446,   1.34860,    .96313,
     +     .66856,   1.22714,   1.35151,
     +     .06664,    .03465,  29.38113,   1.43586,   1.04993,
     +     .75894,   1.31539,   1.43891,
     +     .06841,    .03568,  31.16366,   1.51908,   1.13271,
     +     .84485,   1.39952,   1.52226,
     +     .07006,    .03664,  32.83003,   1.59835,   1.21185,
     +     .92727,   1.47963,   1.60166 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
     +     .07171,    .03761,  34.49012,   1.67881,   1.29240,
     +    1.01127,   1.56091,   1.68224,
     +     .07332,    .03854,  36.06473,   1.75752,   1.37085,
     +    1.09223,   1.64040,   1.76108,
     +     .07484,    .03942,  37.55641,   1.83317,   1.44661,
     +    1.17088,   1.71678,   1.83684,
     +     .07626,    .04025,  38.93604,   1.90474,   1.51825,
     +    1.24499,   1.78903,   1.90853,
     +     .07769,    .04108,  40.30014,   1.97698,   1.59059,
     +    1.31978,   1.86193,   1.98087,
     +     .07910,    .04190,  41.63123,   2.04865,   1.66251,
     +    1.39423,   1.93425,   2.05266,
     +     .08043,    .04267,  42.86063,   2.11654,   1.73053,
     +    1.46435,   2.00275,   2.12065,
     +     .08169,    .04340,  44.02017,   2.18142,   1.79570,
     +    1.53172,   2.06819,   2.18562 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
     +     .08295,    .04413,  45.15802,   2.24657,   1.86109,
     +    1.59912,   2.13390,   2.25087,
     +     .08420,    .04485,  46.26883,   2.31120,   1.92603,
     +    1.66610,   2.19907,   2.31560,
     +     .08539,    .04554,  47.31100,   2.37291,   1.98811,
     +    1.73012,   2.26130,   2.37740,
     +     .08652,    .04618,  48.27291,   2.43116,   2.04662,
     +    1.79030,   2.32004,   2.43574,
     +     .08766,    .04684,  49.25630,   2.49101,   2.10700,
     +    1.85271,   2.38038,   2.49568 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
     +     .03476,    .01577,    .57875,    .30090,    .00000,
     +     .00000,    .16242,    .30142,
     +     .03658,    .01685,   1.16106,    .31949,    .00000,
     +     .00000,    .18250,    .32014,
     +     .03922,    .01842,   2.16807,    .35224,    .00221,
     +     .00000,    .21731,    .35308,
     +     .04112,    .01955,   2.99565,    .38001,    .03098,
     +     .00000,    .24648,    .38099,
     +     .04309,    .02072,   3.95388,    .41253,    .06255,
     +     .00000,    .28040,    .41366,
     +     .04477,    .02171,   4.83905,    .44317,    .09098,
     +     .00000,    .31220,    .44443,
     +     .04636,    .02266,   5.74221,    .47463,    .12070,
     +     .00000,    .34472,    .47600,
     +     .04804,    .02365,   6.75663,    .51011,    .15478,
     +     .00000,    .38130,    .51162 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
     +     .04949,    .02451,   7.68432,    .54266,    .18658,
     +     .00000,    .41476,    .54427,
     +     .05088,    .02534,   8.60514,    .57551,    .21842,
     +     .00000,    .44847,    .57723,
     +     .05197,    .02598,   9.34772,    .60245,    .24439,
     +     .00000,    .47606,    .60425,
     +     .05428,    .02735,  10.98547,    .66263,    .30322,
     +     .00009,    .53761,    .66461,
     +     .05626,    .02852,  12.41967,    .71723,    .35687,
     +     .04379,    .59334,    .71936,
     +     .05846,    .02982,  14.04263,    .78100,    .41968,
     +     .12106,    .65833,    .78330,
     +     .06073,    .03116,  15.76751,    .85018,    .48799,
     +     .19430,    .72873,    .85265,
     +     .06278,    .03237,  17.35410,    .91513,    .55232,
     +     .26352,    .79475,    .91776 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
     +     .06483,    .03358,  18.96874,    .98265,    .61937,
     +     .33506,    .86331,    .98544,
     +     .06653,    .03458,  20.31007,   1.03998,    .67630,
     +     .39517,    .92149,   1.04291,
     +     .06857,    .03578,  21.92767,   1.11080,    .74657,
     +     .46886,    .99331,   1.11389,
     +     .07037,    .03684,  23.35687,   1.17469,    .81015,
     +     .53565,   1.05805,   1.17792,
     +     .07202,    .03780,  24.67366,   1.23444,    .86994,
     +     .59888,   1.11858,   1.23781,
     +     .07409,    .03902,  26.31215,   1.31095,    .94622,
     +     .67854,   1.19603,   1.31448,
     +     .07603,    .04015,  27.82808,   1.38367,   1.01874,
     +     .75400,   1.26962,   1.38735,
     +     .07784,    .04121,  29.23924,   1.45274,   1.08787,
     +     .82619,   1.33949,   1.45656 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
     +     .07964,    .04226,  30.63946,   1.52265,   1.15803,
     +     .89957,   1.41018,   1.52661,
     +     .08140,    .04328,  31.96045,   1.59082,   1.22615,
     +     .97006,   1.47910,   1.59492,
     +     .08305,    .04425,  33.20750,   1.65618,   1.29178,
     +    1.03838,   1.54515,   1.66041,
     +     .08461,    .04515,  34.35619,   1.71787,   1.35367,
     +    1.10260,   1.60749,   1.72222,
     +     .08617,    .04606,  35.48737,   1.77996,   1.41603,
     +    1.16724,   1.67022,   1.78444,
     +     .08770,    .04694,  36.58731,   1.84143,   1.47789,
     +    1.23146,   1.73230,   1.84603,
     +     .08914,    .04778,  37.59894,   1.89950,   1.53624,
     +    1.29178,   1.79095,   1.90422,
     +     .09051,    .04857,  38.55046,   1.95490,   1.59205,
     +    1.34964,   1.84689,   1.95972 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
     +     .09188,    .04937,  39.48029,   2.01040,   1.64791,
     +    1.40738,   1.90293,   2.01533,
     +     .09324,    .05015,  40.38515,   2.06535,   1.70329,
     +    1.46466,   1.95840,   2.07039,
     +     .09453,    .05089,  41.23124,   2.11772,   1.75611,
     +    1.51930,   2.01126,   2.12286,
     +     .09575,    .05159,  42.00910,   2.16704,   1.80581,
     +    1.57056,   2.06105,   2.17228,
     +     .09698,    .05231,  42.80313,   2.21765,   1.85702,
     +    1.62366,   2.11213,   2.22298 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
     +     .04907,    .02404,    .53246,    .25955,    .00000,
     +     .00000,    .14045,    .26077,
     +     .05167,    .02563,   1.04800,    .27537,    .00000,
     +     .00000,    .15755,    .27680,
     +     .05543,    .02793,   1.91090,    .30254,    .00187,
     +     .00000,    .18651,    .30429,
     +     .05811,    .02956,   2.59731,    .32504,    .02541,
     +     .00000,    .21023,    .32701,
     +     .06088,    .03124,   3.37238,    .35093,    .05080,
     +     .00000,    .23734,    .35313,
     +     .06323,    .03267,   4.07204,    .37493,    .07327,
     +     .00000,    .26235,    .37734,
     +     .06546,    .03401,   4.77245,    .39926,    .09648,
     +     .00000,    .28761,    .40185,
     +     .06779,    .03542,   5.54499,    .42638,    .12276,
     +     .00000,    .31568,    .42917 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
     +     .06980,    .03664,   6.23989,    .45098,    .14701,
     +     .00000,    .34109,    .45394,
     +     .07172,    .03779,   6.91902,    .47556,    .17105,
     +     .00000,    .36642,    .47868,
     +     .07323,    .03870,   7.45941,    .49553,    .19047,
     +     .00000,    .38697,    .49878,
     +     .07640,    .04060,   8.63100,    .53967,    .23401,
     +     .00008,    .43231,    .54319,
     +     .07911,    .04222,   9.63341,    .57915,    .27318,
     +     .03221,    .47279,    .58290,
     +     .08211,    .04401,  10.74309,    .62465,    .31843,
     +     .08857,    .51937,    .62865,
     +     .08519,    .04584,  11.89814,    .67331,    .36697,
     +     .14115,    .56912,    .67758,
     +     .08795,    .04749,  12.93957,    .71841,    .41209,
     +     .19021,    .61517,    .72291 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
     +     .09072,    .04912,  13.97996,    .76471,    .45855,
     +     .24031,    .66241,    .76944,
     +     .09299,    .05046,  14.82960,    .80359,    .49757,
     +     .28194,    .70204,    .80851,
     +     .09571,    .05207,  15.83674,    .85108,    .54521,
     +     .33242,    .75042,    .85623,
     +     .09810,    .05347,  16.71188,    .89345,    .58784,
     +     .37769,    .79357,    .89881,
     +     .10028,    .05475,  17.50723,    .93272,    .62758,
     +     .42018,    .83353,    .93827,
     +     .10302,    .05635,  18.47938,    .98245,    .67773,
     +     .47312,    .88412,    .98822,
     +     .10556,    .05784,  19.36260,   1.02918,    .72487,
     +     .52271,    .93163,   1.03517,
     +     .10793,    .05922,  20.17226,   1.07312,    .76938,
     +     .56970,    .97630,   1.07931 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
     +     .11028,    .06058,  20.96395,   1.11719,    .81414,
     +     .61705,   1.02108,   1.12357,
     +     .11256,    .06190,  21.69655,   1.15968,    .85712,
     +     .66203,   1.06425,   1.16626,
     +     .11470,    .06314,  22.37956,   1.20010,    .89822,
     +     .70531,   1.10530,   1.20685,
     +     .11671,    .06430,  22.99899,   1.23790,    .93663,
     +     .74562,   1.14369,   1.24482,
     +     .11871,    .06545,  23.60015,   1.27563,    .97501,
     +     .78588,   1.18200,   1.28272,
     +     .12067,    .06658,  24.17735,   1.31270,   1.01281,
     +     .82558,   1.21964,   1.31995,
     +     .12251,    .06763,  24.69933,   1.34741,   1.04815,
     +     .86256,   1.25488,   1.35481,
     +     .12426,    .06863,  25.18521,   1.38031,   1.08175,
     +     .89781,   1.28828,   1.38786 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
     +     .12600,    .06963,  25.65246,   1.41300,   1.11512,
     +     .93271,   1.32146,   1.42070,
     +     .12771,    .07061,  26.10175,   1.44515,   1.14798,
     +     .96712,   1.35409,   1.45299,
     +     .12934,    .07153,  26.51638,   1.47558,   1.17912,
     +     .99974,   1.38498,   1.48355,
     +     .13087,    .07240,  26.89153,   1.50403,   1.20819,
     +    1.03011,   1.41385,   1.51212,
     +     .13243,    .07329,  27.27262,   1.53310,   1.23805,
     +    1.06146,   1.44336,   1.54132 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
     +     .07055,    .03763,    .49685,    .22564,    .00000,
     +     .00000,    .12233,    .22815,
     +     .07426,    .03992,    .95333,    .23880,    .00000,
     +     .00000,    .13663,    .24167,
     +     .07959,    .04320,   1.68786,    .26085,    .00157,
     +     .00000,    .16027,    .26422,
     +     .08336,    .04551,   2.25008,    .27867,    .02058,
     +     .00000,    .17918,    .28238,
     +     .08723,    .04787,   2.86654,    .29879,    .04070,
     +     .00000,    .20040,    .30287,
     +     .09050,    .04985,   3.40818,    .31713,    .05818,
     +     .00000,    .21965,    .32151,
     +     .09358,    .05171,   3.93848,    .33546,    .07597,
     +     .00000,    .23881,    .34012,
     +     .09680,    .05365,   4.51113,    .35562,    .09584,
     +     .00000,    .25984,    .36058 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
     +     .09956,    .05531,   5.01636,    .37369,    .11394,
     +     .00000,    .27864,    .37890,
     +     .10218,    .05688,   5.50119,    .39153,    .13168,
     +     .00000,    .29717,    .39698,
     +     .10422,    .05810,   5.88089,    .40588,    .14588,
     +     .00000,    .31205,    .41152,
     +     .10853,    .06066,   6.68758,    .43721,    .17730,
     +     .00007,    .34448,    .44325,
     +     .11217,    .06282,   7.35863,    .46480,    .20513,
     +     .02312,    .37298,    .47116,
     +     .11618,    .06518,   8.08192,    .49610,    .23680,
     +     .06317,    .40528,    .50283,
     +     .12027,    .06758,   8.81605,    .52904,    .27023,
     +     .09988,    .43922,    .53613,
     +     .12392,    .06972,   9.46193,    .55909,    .30085,
     +     .13364,    .47017,    .56652 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
     +     .12755,    .07183,  10.09255,    .58952,    .33195,
     +     .16765,    .50146,    .59727,
     +     .13051,    .07355,  10.59659,    .61474,    .35773,
     +     .19555,    .52739,    .62275,
     +     .13405,    .07559,  11.18120,    .64513,    .38880,
     +     .22897,    .55862,    .65346,
     +     .13714,    .07737,  11.67837,    .67191,    .41627,
     +     .25858,    .58612,    .68051,
     +     .13994,    .07898,  12.12234,    .69645,    .44162,
     +     .28610,    .61132,    .70530,
     +     .14343,    .08097,  12.65230,    .72713,    .47319,
     +     .31995,    .64280,    .73628,
     +     .14667,    .08281,  13.12217,    .75555,    .50248,
     +     .35125,    .67197,    .76499,
     +     .14966,    .08451,  13.54411,    .78198,    .52983,
     +     .38060,    .69908,    .79167 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
     +     .15262,    .08619,  13.94847,    .80818,    .55704,
     +     .40987,    .72596,    .81813,
     +     .15546,    .08778,  14.31236,    .83310,    .58282,
     +     .43730,    .75153,    .84329,
     +     .15813,    .08928,  14.64579,    .85657,    .60726,
     +     .46349,    .77560,    .86699,
     +     .16061,    .09067,  14.94109,    .87827,    .62986,
     +     .48762,    .79787,    .88890,
     +     .16308,    .09205,  15.22151,    .89971,    .65221,
     +     .51150,    .81987,    .91055,
     +     .16548,    .09339,  15.48580,    .92059,    .67404,
     +     .53485,    .84129,    .93164,
     +     .16774,    .09464,  15.71809,    .93991,    .69423,
     +     .55637,    .86112,    .95115,
     +     .16986,    .09581,  15.93089,    .95808,    .71330,
     +     .57676,    .87977,    .96950 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
     +     .17197,    .09697,  16.13009,    .97595,    .73203,
     +     .59674,    .89811,    .98753,
     +     .17404,    .09811,  16.31798,    .99337,    .75035,
     +     .61630,    .91600,   1.00513,
     +     .17599,    .09919,  16.48752,   1.00972,    .76756,
     +     .63470,    .93278,   1.02164,
     +     .17783,    .10019,  16.63647,   1.02485,    .78349,
     +     .65168,    .94833,   1.03692,
     +     .17969,    .10120,  16.78692,   1.04024,    .79978,
     +     .66914,    .96414,   1.05247 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
     +     .08817,    .04936,    .48365,    .20873,    .00000,
     +     .00000,    .11340,    .21260,
     +     .09272,    .05216,    .90820,    .22040,    .00000,
     +     .00000,    .12617,    .22472,
     +     .09922,    .05612,   1.57347,    .23966,    .00141,
     +     .00000,    .14697,    .24462,
     +     .10379,    .05889,   2.06974,    .25498,    .01809,
     +     .00000,    .16335,    .26039,
     +     .10847,    .06171,   2.60330,    .27209,    .03554,
     +     .00000,    .18153,    .27795,
     +     .11241,    .06407,   3.06371,    .28751,    .05051,
     +     .00000,    .19783,    .29375,
     +     .11610,    .06627,   3.50782,    .30278,    .06559,
     +     .00000,    .21392,    .30938,
     +     .11994,    .06855,   3.98056,    .31944,    .08229,
     +     .00000,    .23142,    .32640 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
     +     .12322,    .07050,   4.39222,    .33424,    .09738,
     +     .00000,    .24695,    .34151,
     +     .12633,    .07233,   4.78238,    .34876,    .11205,
     +     .00000,    .26214,    .35632,
     +     .12875,    .07375,   5.08466,    .36035,    .12371,
     +     .00000,    .27426,    .36815,
     +     .13382,    .07671,   5.71802,    .38546,    .14932,
     +     .00006,    .30044,    .39373,
     +     .13810,    .07920,   6.23453,    .40733,    .17175,
     +     .01879,    .32322,    .41599,
     +     .14277,    .08190,   6.78070,    .43189,    .19703,
     +     .05112,    .34876,    .44099,
     +     .14753,    .08463,   7.32527,    .45745,    .22343,
     +     .08041,    .37532,    .46699,
     +     .15175,    .08705,   7.79599,    .48053,    .24737,
     +     .10710,    .39929,    .49046 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
     +     .15593,    .08942,   8.24799,    .50368,    .27146,
     +     .13374,    .42330,    .51398,
     +     .15933,    .09135,   8.60366,    .52269,    .29127,
     +     .15541,    .44301,    .53329,
     +     .16337,    .09362,   9.00932,    .54538,    .31492,
     +     .18116,    .46654,    .55635,
     +     .16687,    .09559,   9.34871,    .56520,    .33567,
     +     .20379,    .48708,    .57648,
     +     .17005,    .09736,   9.64780,    .58324,    .35468,
     +     .22469,    .50577,    .59480,
     +     .17399,    .09955,   9.99805,    .60556,    .37815,
     +     .25017,    .52890,    .61747,
     +     .17762,    .10156,  10.30228,    .62605,    .39972,
     +     .27354,    .55013,    .63827,
     +     .18096,    .10340,  10.57091,    .64493,    .41971,
     +     .29529,    .56971,    .65744 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
     +     .18426,    .10521,  10.82411,    .66351,    .43946,
     +     .31683,    .58896,    .67630,
     +     .18741,    .10693,  11.04603,    .68100,    .45800,
     +     .33685,    .60710,    .69406,
     +     .19036,    .10853,  11.24648,    .69737,    .47546,
     +     .35584,    .62407,    .71067,
     +     .19309,    .11001,  11.42033,    .71237,    .49149,
     +     .37323,    .63964,    .72591,
     +     .19580,    .11147,  11.58182,    .72708,    .50724,
     +     .39032,    .65491,    .74084,
     +     .19843,    .11289,  11.73120,    .74130,    .52253,
     +     .40694,    .66968,    .75529,
     +     .20088,    .11420,  11.85875,    .75435,    .53656,
     +     .42215,    .68324,    .76854,
     +     .20318,    .11542,  11.97382,    .76655,    .54974,
     +     .43649,    .69592,    .78093 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
     +     .20547,    .11664,  12.07811,    .77845,    .56260,
     +     .45045,    .70830,    .79301,
     +     .20770,    .11782,  12.17428,    .78998,    .57511,
     +     .46405,    .72030,    .80472,
     +     .20980,    .11893,  12.25873,    .80073,    .58679,
     +     .47677,    .73148,    .81564,
     +     .21177,    .11996,  12.33005,    .81059,    .59753,
     +     .48844,    .74176,    .82566,
     +     .21375,    .12101,  12.40180,    .82060,    .60848,
     +     .50041,    .75219,    .83582 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
     +     .10388,    .06005,    .47987,    .19796,    .00000,
     +     .00000,    .10779,    .20323,
     +     .10912,    .06323,    .88251,    .20859,    .00000,
     +     .00000,    .11951,    .21439,
     +     .11657,    .06772,   1.50055,    .22595,    .00131,
     +     .00000,    .13840,    .23250,
     +     .12179,    .07083,   1.95246,    .23961,    .01648,
     +     .00000,    .15312,    .24668,
     +     .12712,    .07399,   2.43094,    .25471,    .03220,
     +     .00000,    .16929,    .26231,
     +     .13157,    .07661,   2.83802,    .26822,    .04554,
     +     .00000,    .18368,    .27625,
     +     .13574,    .07905,   3.22610,    .28150,    .05890,
     +     .00000,    .19778,    .28994,
     +     .14007,    .08158,   3.63457,    .29589,    .07357,
     +     .00000,    .21302,    .30475 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
     +     .14375,    .08372,   3.98662,    .30859,    .08675,
     +     .00000,    .22645,    .31781,
     +     .14723,    .08573,   4.31699,    .32098,    .09948,
     +     .00000,    .23951,    .33053,
     +     .14993,    .08728,   4.57071,    .33082,    .10955,
     +     .00000,    .24988,    .34063,
     +     .15558,    .09052,   5.09642,    .35199,    .13151,
     +     .00006,    .27214,    .36233,
     +     .16032,    .09321,   5.51821,    .37028,    .15060,
     +     .01609,    .29134,    .38106,
     +     .16548,    .09613,   5.95720,    .39064,    .17192,
     +     .04365,    .31270,    .40190,
     +     .17071,    .09907,   6.38846,    .41166,    .19402,
     +     .06839,    .33472,    .42340,
     +     .17534,    .10165,   6.75574,    .43047,    .21390,
     +     .09076,    .35443,    .44263 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
     +     .17989,    .10418,   7.10344,    .44919,    .23376,
     +     .11293,    .37402,    .46176,
     +     .18359,    .10622,   7.37325,    .46445,    .24997,
     +     .13086,    .38999,    .47735,
     +     .18796,    .10862,   7.67647,    .48253,    .26921,
     +     .15201,    .40892,    .49582,
     +     .19175,    .11068,   7.92648,    .49821,    .28597,
     +     .17049,    .42532,    .51183,
     +     .19517,    .11254,   8.14420,    .51239,    .30124,
     +     .18747,    .44017,    .52631,
     +     .19939,    .11482,   8.39453,    .52980,    .31996,
     +     .20804,    .45840,    .54408,
     +     .20326,    .11690,   8.60778,    .54564,    .33704,
     +     .22677,    .47500,    .56026,
     +     .20682,    .11880,   8.79302,    .56015,    .35277,
     +     .24411,    .49020,    .57506 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
     +     .21032,    .12066,   8.96473,    .57432,    .36823,
     +     .26119,    .50506,    .58953,
     +     .21364,    .12241,   9.11109,    .58755,    .38262,
     +     .27695,    .51895,    .60303,
     +     .21675,    .12404,   9.24129,    .59985,    .39612,
     +     .29184,    .53187,    .61559,
     +     .21962,    .12554,   9.35145,    .61105,    .40843,
     +     .30539,    .54364,    .62702,
     +     .22244,    .12701,   9.45127,    .62195,    .42046,
     +     .31864,    .55511,    .63816,
     +     .22518,    .12844,   9.54162,    .63243,    .43207,
     +     .33147,    .56614,    .64886,
     +     .22773,    .12975,   9.61584,    .64197,    .44267,
     +     .34315,    .57620,    .65860,
     +     .23012,    .13098,   9.68147,    .65084,    .45258,
     +     .35411,    .58556,    .66766 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
     +     .23248,    .13218,   9.73830,    .65943,    .46219,
     +     .36473,    .59463,    .67644,
     +     .23478,    .13335,   9.78899,    .66771,    .47149,
     +     .37503,    .60338,    .68489,
     +     .23694,    .13445,   9.83161,    .67537,    .48015,
     +     .38463,    .61149,    .69272,
     +     .23895,    .13547,   9.86516,    .68235,    .48805,
     +     .39338,    .61889,    .69985,
     +     .24099,    .13649,   9.89879,    .68941,    .49609,
     +     .40235,    .62638,    .70707 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
     +     .11839,    .07000,    .48199,    .19019,    .00000,
     +     .00000,    .10384,    .19688,
     +     .12422,    .07348,    .86778,    .20003,    .00000,
     +     .00000,    .11479,    .20732,
     +     .13247,    .07837,   1.44995,    .21596,    .00123,
     +     .00000,    .13226,    .22409,
     +     .13823,    .08175,   1.86859,    .22837,    .01531,
     +     .00000,    .14574,    .23708,
     +     .14408,    .08516,   2.30623,    .24200,    .02978,
     +     .00000,    .16046,    .25129,
     +     .14896,    .08799,   2.67413,    .25410,    .04196,
     +     .00000,    .17345,    .26387,
     +     .15352,    .09061,   3.02142,    .26592,    .05407,
     +     .00000,    .18611,    .27614,
     +     .15823,    .09330,   3.38353,    .27866,    .06730,
     +     .00000,    .19971,    .28934 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
     +     .16224,    .09558,   3.69288,    .28985,    .07911,
     +     .00000,    .21164,    .30092,
     +     .16601,    .09772,   3.98073,    .30070,    .09046,
     +     .00000,    .22318,    .31213,
     +     .16893,    .09937,   4.20010,    .30929,    .09940,
     +     .00000,    .23229,    .32099,
     +     .17502,    .10278,   4.65031,    .32765,    .11879,
     +     .00005,    .25177,    .33993,
     +     .18012,    .10561,   5.00638,    .34340,    .13553,
     +     .01420,    .26845,    .35615,
     +     .18565,    .10867,   5.37171,    .36081,    .15411,
     +     .03841,    .28687,    .37407,
     +     .19123,    .11173,   5.72586,    .37864,    .17322,
     +     .05999,    .30573,    .39241,
     +     .19615,    .11441,   6.02353,    .39449,    .19030,
     +     .07937,    .32248,    .40870 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
     +     .20098,    .11702,   6.30168,    .41015,    .20725,
     +     .09848,    .33904,    .42479,
     +     .20488,    .11912,   6.51450,    .42283,    .22101,
     +     .11384,    .35244,    .43782,
     +     .20948,    .12157,   6.75057,    .43776,    .23724,
     +     .13187,    .36823,    .45315,
     +     .21345,    .12368,   6.94252,    .45062,    .25130,
     +     .14754,    .38184,    .46634,
     +     .21702,    .12557,   7.10775,    .46219,    .26405,
     +     .16188,    .39408,    .47822,
     +     .22143,    .12787,   7.29399,    .47629,    .27959,
     +     .17914,    .40902,    .49269,
     +     .22545,    .12997,   7.44964,    .48903,    .29368,
     +     .19478,    .42253,    .50577,
     +     .22914,    .13187,   7.58250,    .50062,    .30659,
     +     .20918,    .43483,    .51766 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
     +     .23275,    .13373,   7.70339,    .51187,    .31921,
     +     .22331,    .44678,    .52920,
     +     .23617,    .13547,   7.80301,    .52228,    .33088,
     +     .23627,    .45786,    .53989,
     +     .23935,    .13709,   7.89004,    .53192,    .34178,
     +     .24846,    .46812,    .54978,
     +     .24228,    .13857,   7.96141,    .54063,    .35167,
     +     .25950,    .47741,    .55872,
     +     .24516,    .14002,   8.02399,    .54905,    .36128,
     +     .27026,    .48641,    .56736,
     +     .24795,    .14141,   8.07902,    .55711,    .37053,
     +     .28063,    .49503,    .57563,
     +     .25053,    .14269,   8.12168,    .56438,    .37890,
     +     .29002,    .50282,    .58310,
     +     .25295,    .14389,   8.15825,    .57111,    .38672,
     +     .29882,    .51005,    .59002 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
     +     .25532,    .14505,   8.18740,    .57757,    .39425,
     +     .30729,    .51701,    .59666,
     +     .25763,    .14618,   8.21176,    .58377,    .40152,
     +     .31548,    .52368,    .60302,
     +     .25980,    .14724,   8.23032,    .58946,    .40824,
     +     .32309,    .52983,    .60888,
     +     .26181,    .14821,   8.24237,    .59461,    .41435,
     +     .32999,    .53541,    .61417,
     +     .26385,    .14919,   8.25436,    .59982,    .42056,
     +     .33705,    .54104,    .61952 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
     +     .14511,    .08830,    .49745,    .17920,    .00000,
     +     .00000,    .09849,    .18877,
     +     .15189,    .09222,    .85766,    .18788,    .00000,
     +     .00000,    .10832,    .19815,
     +     .16142,    .09767,   1.38611,    .20170,    .00112,
     +     .00000,    .12375,    .21296,
     +     .16802,    .10141,   1.75590,    .21231,    .01367,
     +     .00000,    .13547,    .22422,
     +     .17469,    .10516,   2.13442,    .22381,    .02640,
     +     .00000,    .14811,    .23639,
     +     .18023,    .10824,   2.44641,    .23390,    .03696,
     +     .00000,    .15912,    .24702,
     +     .18536,    .11108,   2.73604,    .24366,    .04734,
     +     .00000,    .16975,    .25727,
     +     .19065,    .11399,   3.03320,    .25406,    .05857,
     +     .00000,    .18106,    .26819 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
     +     .19513,    .11644,   3.28333,    .26313,    .06851,
     +     .00000,    .19090,    .27768,
     +     .19933,    .11872,   3.51274,    .27184,    .07797,
     +     .00000,    .20033,    .28679,
     +     .20256,    .12046,   3.68530,    .27868,    .08537,
     +     .00000,    .20773,    .29393,
     +     .20928,    .12406,   4.03351,    .29318,    .10126,
     +     .00005,    .22338,    .30904,
     +     .21486,    .12703,   4.30187,    .30545,    .11482,
     +     .01164,    .23662,    .32181,
     +     .22089,    .13020,   4.57021,    .31885,    .12970,
     +     .03136,    .25108,    .33575,
     +     .22692,    .13335,   4.82416,    .33239,    .14483,
     +     .04871,    .26569,    .34982,
     +     .23220,    .13608,   5.03221,    .34427,    .15819,
     +     .06414,    .27851,    .36216 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
     +     .23735,    .13873,   5.22172,    .35587,    .17132,
     +     .07920,    .29104,    .37419,
     +     .24149,    .14084,   5.36300,    .36515,    .18187,
     +     .09119,    .30108,    .38381,
     +     .24635,    .14328,   5.51519,    .37594,    .19419,
     +     .10515,    .31276,    .39501,
     +     .25051,    .14537,   5.63534,    .38513,    .20476,
     +     .11718,    .32272,    .40453,
     +     .25424,    .14722,   5.73626,    .39332,    .21428,
     +     .12811,    .33161,    .41302,
     +     .25879,    .14947,   5.84525,    .40316,    .22574,
     +     .14114,    .34231,    .42321,
     +     .26293,    .15149,   5.93188,    .41193,    .23603,
     +     .15283,    .35187,    .43230,
     +     .26670,    .15331,   6.00268,    .41981,    .24537,
     +     .16352,    .36049,    .44046 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
     +     .27037,    .15508,   6.06410,    .42737,    .25442,
     +     .17392,    .36877,    .44830,
     +     .27381,    .15672,   6.10987,    .43425,    .26270,
     +     .18336,    .37633,    .45542,
     +     .27701,    .15823,   6.14762,    .44054,    .27036,
     +     .19219,    .38328,    .46194,
     +     .27994,    .15959,   6.17513,    .44616,    .27725,
     +     .20012,    .38949,    .46777,
     +     .28280,    .16092,   6.19610,    .45152,    .28389,
     +     .20779,    .39544,    .47332,
     +     .28555,    .16219,   6.21201,    .45658,    .29023,
     +     .21514,    .40108,    .47857,
     +     .28808,    .16335,   6.21999,    .46107,    .29591,
     +     .22173,    .40610,    .48323,
     +     .29043,    .16442,   6.22483,    .46520,    .30117,
     +     .22787,    .41073,    .48751 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
     +     .29274,    .16546,   6.22430,    .46909,    .30620,
     +     .23374,    .41512,    .49155,
     +     .29496,    .16646,   6.22078,    .47277,    .31100,
     +     .23938,    .41929,    .49537,
     +     .29704,    .16738,   6.21426,    .47611,    .31542,
     +     .24458,    .42309,    .49883,
     +     .29896,    .16823,   6.20429,    .47906,    .31938,
     +     .24926,    .42648,    .50191,
     +     .30090,    .16907,   6.19422,    .48204,    .32340,
     +     .25404,    .42990,    .50501 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
     +     .18159,    .11290,    .53827,    .16809,    .00000,
     +     .00000,    .09346,    .18200,
     +     .18941,    .11719,    .86934,    .17556,    .00000,
     +     .00000,    .10216,    .19026,
     +     .20030,    .12310,   1.33967,    .18720,    .00101,
     +     .00000,    .11553,    .20299,
     +     .20777,    .12710,   1.65816,    .19596,    .01210,
     +     .00000,    .12549,    .21248,
     +     .21526,    .13108,   1.97594,    .20531,    .02314,
     +     .00000,    .13604,    .22254,
     +     .22143,    .13432,   2.23164,    .21337,    .03213,
     +     .00000,    .14510,    .23119,
     +     .22712,    .13728,   2.46415,    .22108,    .04086,
     +     .00000,    .15374,    .23942,
     +     .23294,    .14029,   2.69796,    .22920,    .05018,
     +     .00000,    .16282,    .24806 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
     +     .23784,    .14280,   2.89110,    .23619,    .05833,
     +     .00000,    .17063,    .25549,
     +     .24240,    .14512,   3.06495,    .24283,    .06600,
     +     .00000,    .17803,    .26254,
     +     .24590,    .14688,   3.19354,    .24800,    .07195,
     +     .00000,    .18378,    .26800,
     +     .25312,    .15049,   3.44723,    .25880,    .08458,
     +     .00004,    .19582,    .27942,
     +     .25906,    .15343,   3.63571,    .26779,    .09520,
     +     .00928,    .20584,    .28890,
     +     .26542,    .15654,   3.81721,    .27745,    .10669,
     +     .02487,    .21661,    .29907,
     +     .27173,    .15958,   3.98295,    .28704,    .11819,
     +     .03838,    .22732,    .30916,
     +     .27720,    .16219,   4.11364,    .29531,    .12822,
     +     .05025,    .23658,    .31785 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
     +     .28249,    .16469,   4.22786,    .30323,    .13794,
     +     .06170,    .24548,    .32617,
     +     .28670,    .16665,   4.30937,    .30948,    .14566,
     +     .07072,    .25251,    .33272,
     +     .29160,    .16891,   4.39251,    .31660,    .15455,
     +     .08110,    .26056,    .34020,
     +     .29576,    .17080,   4.45446,    .32257,    .16209,
     +     .08995,    .26733,    .34645,
     +     .29946,    .17247,   4.50394,    .32782,    .16881,
     +     .09793,    .27330,    .35194,
     +     .30395,    .17447,   4.55210,    .33397,    .17680,
     +     .10732,    .28035,    .35839,
     +     .30797,    .17623,   4.58554,    .33934,    .18386,
     +     .11566,    .28653,    .36401,
     +     .31161,    .17780,   4.60921,    .34407,    .19020,
     +     .12320,    .29202,    .36897 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
     +     .31512,    .17930,   4.62607,    .34853,    .19627,
     +     .13048,    .29722,    .37364,
     +     .31838,    .18067,   4.63231,    .35246,    .20174,
     +     .13700,    .30186,    .37776,
     +     .32138,    .18192,   4.63446,    .35601,    .20675,
     +     .14305,    .30606,    .38147,
     +     .32409,    .18303,   4.63103,    .35908,    .21119,
     +     .14843,    .30975,    .38469,
     +     .32672,    .18410,   4.62306,    .36195,    .21542,
     +     .15358,    .31321,    .38768,
     +     .32923,    .18510,   4.61216,    .36459,    .21942,
     +     .15847,    .31644,    .39045,
     +     .33152,    .18600,   4.59716,    .36685,    .22294,
     +     .16282,    .31924,    .39282,
     +     .33363,    .18682,   4.58139,    .36889,    .22618,
     +     .16683,    .32179,    .39495 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
     +     .33568,    .18760,   4.56193,    .37074,    .22922,
     +     .17063,    .32414,    .39689,
     +     .33764,    .18834,   4.54091,    .37244,    .23210,
     +     .17425,    .32634,    .39867,
     +     .33945,    .18901,   4.51900,    .37393,    .23471,
     +     .17756,    .32829,    .40023,
     +     .34110,    .18962,   4.49592,    .37519,    .23702,
     +     .18051,    .32998,    .40155,
     +     .34277,    .19022,   4.47283,    .37645,    .23935,
     +     .18351,    .33168,    .40286 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
     +     .23668,    .14859,    .63070,    .15514,    .00000,
     +     .00000,    .08819,    .17619,
     +     .24552,    .15303,    .92326,    .16122,    .00000,
     +     .00000,    .09562,    .18308,
     +     .25768,    .15904,   1.32120,    .17040,    .00090,
     +     .00000,    .10670,    .19334,
     +     .26591,    .16304,   1.57918,    .17710,    .01043,
     +     .00000,    .11470,    .20074,
     +     .27407,    .16696,   1.82781,    .18408,    .01969,
     +     .00000,    .12299,    .20840,
     +     .28070,    .17010,   2.02126,    .18997,    .02705,
     +     .00000,    .12997,    .21481,
     +     .28676,    .17293,   2.19209,    .19549,    .03406,
     +     .00000,    .13648,    .22080,
     +     .29291,    .17576,   2.35893,    .20119,    .04142,
     +     .00000,    .14322,    .22697 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
     +     .29804,    .17810,   2.49296,    .20600,    .04775,
     +     .00000,    .14891,    .23217,
     +     .30276,    .18023,   2.61022,    .21051,    .05362,
     +     .00000,    .15423,    .23701,
     +     .30635,    .18183,   2.69463,    .21396,    .05811,
     +     .00000,    .15830,    .24070,
     +     .31367,    .18505,   2.85516,    .22103,    .06751,
     +     .00004,    .16667,    .24826,
     +     .31962,    .18762,   2.96693,    .22676,    .07525,
     +     .00698,    .17348,    .25437,
     +     .32589,    .19028,   3.06700,    .23275,    .08346,
     +     .01856,    .18064,    .26074,
     +     .33202,    .19282,   3.15201,    .23851,    .09152,
     +     .02841,    .18758,    .26685,
     +     .33726,    .19494,   3.21343,    .24332,    .09840,
     +     .03691,    .19342,    .27195 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
     +     .34223,    .19693,   3.26189,    .24780,    .10495,
     +     .04499,    .19890,    .27667,
     +     .34614,    .19845,   3.29214,    .25122,    .11005,
     +     .05125,    .20313,    .28027,
     +     .35061,    .20014,   3.31762,    .25499,    .11584,
     +     .05836,    .20785,    .28424,
     +     .35435,    .20153,   3.33203,    .25803,    .12065,
     +     .06434,    .21171,    .28743,
     +     .35764,    .20273,   3.34023,    .26063,    .12488,
     +     .06967,    .21504,    .29015,
     +     .36153,    .20410,   3.34079,    .26354,    .12980,
     +     .07584,    .21886,    .29319,
     +     .36496,    .20526,   3.33376,    .26593,    .13406,
     +     .08123,    .22208,    .29568,
     +     .36801,    .20627,   3.32247,    .26795,    .13782,
     +     .08605,    .22485,    .29777 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
     +     .37090,    .20720,   3.30715,    .26976,    .14136,
     +     .09063,    .22741,    .29964,
     +     .37352,    .20799,   3.28597,    .27121,    .14445,
     +     .09466,    .22956,    .30113,
     +     .37589,    .20869,   3.26400,    .27245,    .14725,
     +     .09837,    .23145,    .30240,
     +     .37799,    .20928,   3.24024,    .27343,    .14968,
     +     .10161,    .23303,    .30339,
     +     .37998,    .20982,   3.21396,    .27425,    .15194,
     +     .10467,    .23444,    .30422,
     +     .38186,    .21030,   3.18664,    .27494,    .15404,
     +     .10755,    .23571,    .30492,
     +     .38351,    .21069,   3.15823,    .27542,    .15583,
     +     .11006,    .23672,    .30538,
     +     .38502,    .21104,   3.13077,    .27581,    .15746,
     +     .11235,    .23760,    .30575 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
     +     .38643,    .21134,   3.10129,    .27606,    .15894,
     +     .11449,    .23834,    .30596,
     +     .38777,    .21161,   3.07149,    .27622,    .16031,
     +     .11651,    .23898,    .30609,
     +     .38898,    .21182,   3.04230,    .27629,    .16152,
     +     .11832,    .23950,    .30612,
     +     .39004,    .21199,   3.01356,    .27625,    .16255,
     +     .11991,    .23988,    .30605,
     +     .39111,    .21215,   2.98497,    .27621,    .16359,
     +     .12152,    .24025,    .30596 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
     +     .28699,    .17936,    .73496,    .14481,    .00000,
     +     .00000,    .08430,    .17256,
     +     .29626,    .18358,    .99215,    .14984,    .00000,
     +     .00000,    .09078,    .17832,
     +     .30884,    .18918,   1.33135,    .15725,    .00082,
     +     .00000,    .10019,    .18663,
     +     .31724,    .19285,   1.54277,    .16250,    .00926,
     +     .00000,    .10680,    .19245,
     +     .32549,    .19637,   1.74041,    .16783,    .01730,
     +     .00000,    .11351,    .19831,
     +     .33211,    .19915,   1.88953,    .17223,    .02356,
     +     .00000,    .11904,    .20311,
     +     .33810,    .20161,   2.01760,    .17628,    .02942,
     +     .00000,    .12412,    .20750,
     +     .34410,    .20403,   2.13916,    .18038,    .03549,
     +     .00000,    .12929,    .21192 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
     +     .34905,    .20600,   2.23414,    .18379,    .04064,
     +     .00000,    .13360,    .21558,
     +     .35358,    .20776,   2.31476,    .18692,    .04535,
     +     .00000,    .13756,    .21892,
     +     .35700,    .20906,   2.37108,    .18926,    .04892,
     +     .00000,    .14055,    .22142,
     +     .36388,    .21163,   2.47367,    .19398,    .05628,
     +     .00003,    .14659,    .22643,
     +     .36938,    .21362,   2.53907,    .19769,    .06224,
     +     .00555,    .15140,    .23034,
     +     .37507,    .21562,   2.59132,    .20145,    .06846,
     +     .01468,    .15633,    .23426,
     +     .38054,    .21745,   2.63033,    .20493,    .07446,
     +     .02232,    .16098,    .23788,
     +     .38512,    .21892,   2.65341,    .20771,    .07949,
     +     .02881,    .16479,    .24076 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
     +     .38940,    .22023,   2.66640,    .21020,    .08420,
     +     .03491,    .16827,    .24330,
     +     .39270,    .22120,   2.66988,    .21201,    .08781,
     +     .03959,    .17087,    .24512,
     +     .39638,    .22221,   2.66594,    .21389,    .09184,
     +     .04482,    .17369,    .24700,
     +     .39940,    .22299,   2.65679,    .21531,    .09513,
     +     .04918,    .17592,    .24841,
     +     .40201,    .22362,   2.64509,    .21647,    .09798,
     +     .05301,    .17779,    .24953,
     +     .40502,    .22428,   2.62366,    .21762,    .10124,
     +     .05741,    .17983,    .25064,
     +     .40759,    .22477,   2.59861,    .21844,    .10400,
     +     .06119,    .18145,    .25138,
     +     .40981,    .22515,   2.57234,    .21904,    .10639,
     +     .06454,    .18278,    .25189 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
     +     .41187,    .22545,   2.54378,    .21949,    .10860,
     +     .06768,    .18394,    .25222,
     +     .41363,    .22564,   2.51210,    .21968,    .11048,
     +     .07040,    .18480,    .25230,
     +     .41520,    .22576,   2.48129,    .21978,    .11215,
     +     .07288,    .18551,    .25227,
     +     .41653,    .22581,   2.45057,    .21973,    .11355,
     +     .07502,    .18603,    .25210,
     +     .41774,    .22580,   2.41852,    .21956,    .11483,
     +     .07701,    .18643,    .25181,
     +     .41884,    .22574,   2.38645,    .21931,    .11599,
     +     .07887,    .18672,    .25143,
     +     .41975,    .22563,   2.35470,    .21895,    .11695,
     +     .08045,    .18686,    .25093,
     +     .42055,    .22550,   2.32464,    .21857,    .11780,
     +     .08190,    .18695,    .25041 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
     +     .42125,    .22532,   2.29350,    .21808,    .11853,
     +     .08322,    .18692,    .24978,
     +     .42187,    .22512,   2.26263,    .21754,    .11920,
     +     .08444,    .18683,    .24910,
     +     .42239,    .22489,   2.23300,    .21698,    .11976,
     +     .08554,    .18669,    .24840,
     +     .42280,    .22463,   2.20444,    .21637,    .12020,
     +     .08647,    .18647,    .24765,
     +     .42321,    .22437,   2.17615,    .21576,    .12065,
     +     .08741,    .18625,    .24691 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
     +     .37712,    .22979,    .92855,    .12683,    .00000,
     +     .00000,    .07751,    .16595,
     +     .38600,    .23295,   1.12210,    .13033,    .00000,
     +     .00000,    .08248,    .16970,
     +     .39775,    .23695,   1.36186,    .13517,    .00069,
     +     .00000,    .08935,    .17481,
     +     .40535,    .23942,   1.50001,    .13839,    .00750,
     +     .00000,    .09393,    .17814,
     +     .41261,    .24164,   1.62134,    .14151,    .01380,
     +     .00000,    .09842,    .18130,
     +     .41829,    .24328,   1.70687,    .14394,    .01852,
     +     .00000,    .10196,    .18373,
     +     .42329,    .24465,   1.77571,    .14608,    .02284,
     +     .00000,    .10511,    .18583,
     +     .42817,    .24592,   1.83658,    .14815,    .02720,
     +     .00000,    .10820,    .18782 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
     +     .43210,    .24688,   1.88072,    .14979,    .03082,
     +     .00000,    .11071,    .18937,
     +     .43560,    .24766,   1.91484,    .15122,    .03406,
     +     .00000,    .11294,    .19070,
     +     .43816,    .24819,   1.93625,    .15224,    .03647,
     +     .00000,    .11457,    .19161,
     +     .44316,    .24911,   1.96887,    .15417,    .04132,
     +     .00003,    .11774,    .19329,
     +     .44697,    .24968,   1.98045,    .15553,    .04514,
     +     .00380,    .12013,    .19440,
     +     .45072,    .25009,   1.97933,    .15673,    .04901,
     +     .00996,    .12242,    .19531,
     +     .45410,    .25028,   1.96901,    .15766,    .05262,
     +     .01497,    .12443,    .19590,
     +     .45673,    .25028,   1.95262,    .15824,    .05556,
     +     .01915,    .12595,    .19614 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
     +     .45901,    .25013,   1.93057,    .15860,    .05822,
     +     .02298,    .12721,    .19614,
     +     .46062,    .24988,   1.90857,    .15873,    .06020,
     +     .02586,    .12805,    .19594,
     +     .46222,    .24945,   1.87804,    .15867,    .06234,
     +     .02902,    .12883,    .19549,
     +     .46339,    .24895,   1.84860,    .15847,    .06403,
     +     .03160,    .12934,    .19494,
     +     .46430,    .24843,   1.82048,    .15820,    .06545,
     +     .03384,    .12970,    .19433,
     +     .46513,    .24766,   1.78217,    .15766,    .06701,
     +     .03634,    .12994,    .19336,
     +     .46564,    .24681,   1.74449,    .15700,    .06827,
     +     .03844,    .12997,    .19229,
     +     .46594,    .24595,   1.70865,    .15629,    .06931,
     +     .04026,    .12989,    .19118 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
     +     .46608,    .24504,   1.67251,    .15550,    .07022,
     +     .04194,    .12972,    .19000,
     +     .46596,    .24404,   1.63601,    .15459,    .07094,
     +     .04335,    .12938,    .18869,
     +     .46574,    .24307,   1.60184,    .15368,    .07154,
     +     .04462,    .12900,    .18741,
     +     .46538,    .24210,   1.56947,    .15277,    .07201,
     +     .04568,    .12857,    .18613,
     +     .46491,    .24108,   1.53698,    .15179,    .07240,
     +     .04665,    .12806,    .18478,
     +     .46436,    .24005,   1.50538,    .15078,    .07272,
     +     .04752,    .12751,    .18343,
     +     .46370,    .23902,   1.47527,    .14977,    .07294,
     +     .04825,    .12692,    .18207,
     +     .46303,    .23804,   1.44728,    .14880,    .07311,
     +     .04889,    .12633,    .18078 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
     +     .46224,    .23700,   1.41912,    .14777,    .07322,
     +     .04946,    .12569,    .17943,
     +     .46140,    .23596,   1.39172,    .14673,    .07328,
     +     .04998,    .12502,    .17807,
     +     .46054,    .23495,   1.36590,    .14572,    .07331,
     +     .05042,    .12436,    .17675,
     +     .45964,    .23396,   1.34156,    .14473,    .07328,
     +     .05078,    .12369,    .17547,
     +     .45874,    .23297,   1.31758,    .14374,    .07325,
     +     .05115,    .12302,    .17419 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
     +     .45554,    .26860,   1.07185,    .11076,    .00000,
     +     .00000,    .07087,    .15779,
     +     .46293,    .27025,   1.20777,    .11311,    .00000,
     +     .00000,    .07461,    .15981,
     +     .47232,    .27206,   1.36482,    .11616,    .00058,
     +     .00000,    .07952,    .16231,
     +     .47812,    .27296,   1.44644,    .11803,    .00612,
     +     .00000,    .08264,    .16373,
     +     .48343,    .27357,   1.51211,    .11972,    .01112,
     +     .00000,    .08557,    .16491,
     +     .48739,    .27385,   1.55346,    .12094,    .01477,
     +     .00000,    .08779,    .16566,
     +     .49072,    .27393,   1.58281,    .12192,    .01804,
     +     .00000,    .08968,    .16618,
     +     .49380,    .27385,   1.60473,    .12278,    .02127,
     +     .00000,    .09147,    .16654 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
     +     .49616,    .27365,   1.61737,    .12341,    .02391,
     +     .00000,    .09286,    .16671,
     +     .49815,    .27333,   1.62365,    .12387,    .02623,
     +     .00000,    .09404,    .16674,
     +     .49949,    .27300,   1.62479,    .12416,    .02793,
     +     .00000,    .09486,    .16667,
     +     .50189,    .27214,   1.61836,    .12456,    .03128,
     +     .00002,    .09635,    .16632,
     +     .50346,    .27120,   1.60159,    .12469,    .03386,
     +     .00274,    .09738,    .16579,
     +     .50469,    .26998,   1.57400,    .12461,    .03639,
     +     .00712,    .09824,    .16494,
     +     .50545,    .26852,   1.54070,    .12429,    .03869,
     +     .01062,    .09885,    .16384,
     +     .50572,    .26706,   1.50720,    .12382,    .04051,
     +     .01347,    .09918,    .16267 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
     +     .50565,    .26546,   1.47109,    .12320,    .04211,
     +     .01605,    .09933,    .16133,
     +     .50533,    .26404,   1.43972,    .12257,    .04326,
     +     .01795,    .09931,    .16010,
     +     .50460,    .26222,   1.40038,    .12169,    .04445,
     +     .02001,    .09913,    .15851,
     +     .50372,    .26055,   1.36511,    .12082,    .04536,
     +     .02166,    .09885,    .15701,
     +     .50277,    .25898,   1.33289,    .11998,    .04610,
     +     .02307,    .09852,    .15560,
     +     .50127,    .25689,   1.29149,    .11879,    .04687,
     +     .02462,    .09798,    .15368,
     +     .49962,    .25485,   1.25266,    .11758,    .04744,
     +     .02590,    .09735,    .15181,
     +     .49792,    .25290,   1.21687,    .11641,    .04788,
     +     .02698,    .09670,    .15002 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
     +     .49609,    .25093,   1.18176,    .11521,    .04824,
     +     .02796,    .09600,    .14819,
     +     .49405,    .24893,   1.14750,    .11396,    .04847,
     +     .02876,    .09521,    .14634,
     +     .49206,    .24702,   1.11598,    .11276,    .04865,
     +     .02946,    .09444,    .14460,
     +     .49008,    .24518,   1.08676,    .11159,    .04875,
     +     .03004,    .09368,    .14292,
     +     .48797,    .24331,   1.05797,    .11040,    .04879,
     +     .03055,    .09287,    .14121,
     +     .48584,    .24147,   1.03037,    .10923,    .04880,
     +     .03100,    .09206,    .13954,
     +     .48369,    .23969,   1.00454,    .10808,    .04875,
     +     .03136,    .09125,    .13792,
     +     .48164,    .23800,    .98077,    .10699,    .04868,
     +     .03167,    .09047,    .13639 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
     +     .47947,    .23628,    .95721,    .10587,    .04858,
     +     .03193,    .08966,    .13483,
     +     .47729,    .23458,    .93452,    .10477,    .04845,
     +     .03216,    .08885,    .13331,
     +     .47517,    .23294,    .91336,    .10371,    .04831,
     +     .03235,    .08807,    .13185,
     +     .47308,    .23137,    .89364,    .10269,    .04814,
     +     .03248,    .08730,    .13046,
     +     .47099,    .22980,    .87428,    .10168,    .04798,
     +     .03262,    .08655,    .12907 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
     +     .52331,    .29803,   1.15360,    .09635,    .00000,
     +     .00000,    .06418,    .14770,
     +     .52844,    .29799,   1.23967,    .09784,    .00000,
     +     .00000,    .06688,    .14825,
     +     .53452,    .29738,   1.32955,    .09959,    .00049,
     +     .00000,    .07026,    .14867,
     +     .53792,    .29659,   1.36792,    .10054,    .00498,
     +     .00000,    .07229,    .14863,
     +     .54071,    .29548,   1.39283,    .10127,    .00896,
     +     .00000,    .07409,    .14835,
     +     .54250,    .29432,   1.40317,    .10171,    .01180,
     +     .00000,    .07538,    .14789,
     +     .54376,    .29308,   1.40581,    .10197,    .01431,
     +     .00000,    .07642,    .14730,
     +     .54468,    .29164,   1.40232,    .10211,    .01675,
     +     .00000,    .07734,    .14656 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
     +     .54518,    .29029,   1.39512,    .10213,    .01870,
     +     .00000,    .07800,    .14582,
     +     .54536,    .28890,   1.38441,    .10204,    .02040,
     +     .00000,    .07851,    .14502,
     +     .54530,    .28774,   1.37355,    .10191,    .02162,
     +     .00000,    .07882,    .14431,
     +     .54477,    .28515,   1.34501,    .10147,    .02400,
     +     .00002,    .07930,    .14271,
     +     .54386,    .28277,   1.31334,    .10093,    .02578,
     +     .00202,    .07952,    .14118,
     +     .54236,    .28000,   1.27298,    .10018,    .02749,
     +     .00523,    .07955,    .13934,
     +     .54033,    .27701,   1.22960,    .09925,    .02901,
     +     .00775,    .07939,    .13728,
     +     .53813,    .27422,   1.18946,    .09829,    .03016,
     +     .00977,    .07908,    .13532 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
     +     .53562,    .27132,   1.14874,    .09723,    .03114,
     +     .01157,    .07864,    .13329,
     +     .53331,    .26887,   1.11498,    .09628,    .03183,
     +     .01289,    .07820,    .13154,
     +     .53023,    .26583,   1.07430,    .09506,    .03251,
     +     .01428,    .07755,    .12939,
     +     .52732,    .26312,   1.03897,    .09392,    .03301,
     +     .01539,    .07690,    .12746,
     +     .52456,    .26063,   1.00740,    .09286,    .03340,
     +     .01632,    .07627,    .12568,
     +     .52079,    .25743,    .96798,    .09146,    .03375,
     +     .01732,    .07539,    .12338,
     +     .51706,    .25438,    .93193,    .09011,    .03399,
     +     .01813,    .07449,    .12120,
     +     .51348,    .25151,    .89929,    .08882,    .03415,
     +     .01881,    .07363,    .11917 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
     +     .50982,    .24865,    .86777,    .08752,    .03425,
     +     .01942,    .07274,    .11714,
     +     .50602,    .24581,    .83765,    .08622,    .03427,
     +     .01989,    .07181,    .11513,
     +     .50239,    .24316,    .81024,    .08499,    .03425,
     +     .02030,    .07093,    .11325,
     +     .49890,    .24064,    .78516,    .08383,    .03420,
     +     .02063,    .07008,    .11148,
     +     .49532,    .23811,    .76073,    .08264,    .03411,
     +     .02091,    .06921,    .10972,
     +     .49177,    .23562,    .73752,    .08148,    .03400,
     +     .02115,    .06836,    .10800,
     +     .48830,    .23326,    .71606,    .08038,    .03386,
     +     .02133,    .06752,    .10637,
     +     .48501,    .23104,    .69643,    .07935,    .03371,
     +     .02149,    .06673,    .10484 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
     +     .48164,    .22880,    .67718,    .07830,    .03354,
     +     .02160,    .06592,    .10330,
     +     .47830,    .22659,    .65878,    .07726,    .03335,
     +     .02170,    .06512,    .10181,
     +     .47508,    .22449,    .64173,    .07628,    .03316,
     +     .02177,    .06436,    .10039,
     +     .47198,    .22249,    .62595,    .07535,    .03297,
     +     .02181,    .06363,    .09904,
     +     .46888,    .22050,    .61051,    .07443,    .03277,
     +     .02186,    .06291,    .09771 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
     +     .59391,    .32387,   1.17651,    .08074,    .00000,
     +     .00000,    .05595,    .13295,
     +     .59559,    .32162,   1.21317,    .08145,    .00000,
     +     .00000,    .05761,    .13211,
     +     .59668,    .31797,   1.24013,    .08207,    .00040,
     +     .00000,    .05954,    .13058,
     +     .59654,    .31509,   1.24035,    .08226,    .00382,
     +     .00000,    .06060,    .12926,
     +     .59572,    .31188,   1.23094,    .08224,    .00682,
     +     .00000,    .06142,    .12774,
     +     .59446,    .30902,   1.21629,    .08208,    .00891,
     +     .00000,    .06193,    .12629,
     +     .59287,    .30620,   1.19824,    .08181,    .01072,
     +     .00000,    .06227,    .12484,
     +     .59085,    .30314,   1.17594,    .08142,    .01245,
     +     .00000,    .06249,    .12325 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
     +     .58885,    .30045,   1.15466,    .08101,    .01382,
     +     .00000,    .06258,    .12183,
     +     .58667,    .29781,   1.13243,    .08056,    .01498,
     +     .00000,    .06260,    .12040,
     +     .58478,    .29569,   1.11381,    .08015,    .01581,
     +     .00000,    .06255,    .11925,
     +     .58044,    .29114,   1.07194,    .07919,    .01740,
     +     .00002,    .06230,    .11678,
     +     .57635,    .28717,   1.03248,    .07826,    .01855,
     +     .00142,    .06196,    .11460,
     +     .57144,    .28269,    .98668,    .07712,    .01962,
     +     .00364,    .06144,    .11214,
     +     .56596,    .27803,    .94020,    .07587,    .02054,
     +     .00536,    .06079,    .10953,
     +     .56076,    .27380,    .89916,    .07468,    .02122,
     +     .00671,    .06010,    .10716 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
     +     .55532,    .26952,    .85902,    .07342,    .02177,
     +     .00790,    .05933,    .10478,
     +     .55064,    .26599,    .82675,    .07235,    .02213,
     +     .00875,    .05864,    .10282,
     +     .54479,    .26171,    .78894,    .07103,    .02246,
     +     .00965,    .05777,    .10042,
     +     .53952,    .25795,    .75684,    .06984,    .02269,
     +     .01034,    .05696,    .09833,
     +     .53465,    .25454,    .72864,    .06876,    .02285,
     +     .01092,    .05620,    .09645,
     +     .52831,    .25022,    .69421,    .06736,    .02296,
     +     .01154,    .05519,    .09407,
     +     .52226,    .24617,    .66332,    .06603,    .02300,
     +     .01202,    .05423,    .09186,
     +     .51657,    .24242,    .63577,    .06479,    .02300,
     +     .01241,    .05332,    .08982 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
     +     .51087,    .23872,    .60951,    .06356,    .02296,
     +     .01275,    .05241,    .08782,
     +     .50515,    .23511,    .58482,    .06235,    .02287,
     +     .01301,    .05149,    .08588,
     +     .49977,    .23174,    .56257,    .06122,    .02277,
     +     .01323,    .05064,    .08408,
     +     .49466,    .22859,    .54244,    .06017,    .02265,
     +     .01339,    .04982,    .08241,
     +     .48952,    .22544,    .52303,    .05911,    .02251,
     +     .01353,    .04900,    .08077,
     +     .48448,    .22239,    .50475,    .05808,    .02235,
     +     .01364,    .04819,    .07918,
     +     .47965,    .21949,    .48800,    .05711,    .02219,
     +     .01372,    .04743,    .07768,
     +     .47512,    .21679,    .47279,    .05620,    .02202,
     +     .01377,    .04673,    .07628 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
     +     .47050,    .21408,    .45799,    .05529,    .02184,
     +     .01381,    .04601,    .07489,
     +     .46597,    .21144,    .44392,    .05441,    .02166,
     +     .01383,    .04531,    .07355,
     +     .46164,    .20894,    .43098,    .05358,    .02148,
     +     .01384,    .04464,    .07229,
     +     .45753,    .20658,    .41908,    .05279,    .02130,
     +     .01383,    .04401,    .07110,
     +     .45343,    .20425,    .40749,    .05201,    .02111,
     +     .01383,    .04338,    .06993 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
     +     .64964,    .33952,   1.13188,    .06771,    .00000,
     +     .00000,    .04812,    .11685,
     +     .64743,    .33515,   1.13348,    .06784,    .00000,
     +     .00000,    .04902,    .11506,
     +     .64310,    .32858,   1.11839,    .06772,    .00032,
     +     .00000,    .04994,    .11231,
     +     .63919,    .32374,   1.09486,    .06742,    .00292,
     +     .00000,    .05035,    .11020,
     +     .63456,    .31860,   1.06526,    .06696,    .00518,
     +     .00000,    .05055,    .10798,
     +     .63014,    .31418,   1.03677,    .06646,    .00671,
     +     .00000,    .05059,    .10599,
     +     .62563,    .30994,   1.00795,    .06591,    .00803,
     +     .00000,    .05050,    .10409,
     +     .62062,    .30546,    .97650,    .06525,    .00927,
     +     .00000,    .05034,    .10206 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
     +     .61612,    .30158,    .94887,    .06462,    .01024,
     +     .00000,    .05013,    .10031,
     +     .61163,    .29785,    .92191,    .06398,    .01105,
     +     .00000,    .04986,    .09864,
     +     .60793,    .29490,    .90044,    .06344,    .01162,
     +     .00000,    .04960,    .09731,
     +     .59988,    .28869,    .85458,    .06227,    .01269,
     +     .00002,    .04898,    .09448,
     +     .59273,    .28339,    .81408,    .06121,    .01345,
     +     .00101,    .04838,    .09207,
     +     .58457,    .27752,    .76911,    .05997,    .01415,
     +     .00258,    .04763,    .08940,
     +     .57590,    .27149,    .72483,    .05863,    .01471,
     +     .00377,    .04677,    .08669,
     +     .56794,    .26611,    .68676,    .05739,    .01511,
     +     .00470,    .04595,    .08427 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
     +     .55982,    .26077,    .65034,    .05615,    .01542,
     +     .00550,    .04509,    .08186,
     +     .55304,    .25638,    .62164,    .05509,    .01561,
     +     .00608,    .04435,    .07993,
     +     .54474,    .25116,    .58853,    .05383,    .01576,
     +     .00666,    .04343,    .07760,
     +     .53740,    .24660,    .56086,    .05270,    .01585,
     +     .00711,    .04261,    .07560,
     +     .53073,    .24249,    .53683,    .05168,    .01590,
     +     .00749,    .04186,    .07382,
     +     .52220,    .23736,    .50789,    .05040,    .01591,
     +     .00787,    .04090,    .07157,
     +     .51418,    .23258,    .48228,    .04919,    .01587,
     +     .00816,    .03998,    .06954,
     +     .50672,    .22821,    .45967,    .04807,    .01580,
     +     .00840,    .03913,    .06768 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
     +     .49933,    .22394,    .43833,    .04698,    .01571,
     +     .00860,    .03830,    .06587,
     +     .49203,    .21979,    .41848,    .04594,    .01560,
     +     .00874,    .03747,    .06412,
     +     .48523,    .21595,    .40074,    .04496,    .01548,
     +     .00886,    .03671,    .06252,
     +     .47885,    .21238,    .38483,    .04403,    .01535,
     +     .00894,    .03598,    .06105,
     +     .47246,    .20884,    .36960,    .04313,    .01520,
     +     .00900,    .03526,    .05961,
     +     .46624,    .20542,    .35534,    .04226,    .01505,
     +     .00905,    .03457,    .05822,
     +     .46034,    .20221,    .34236,    .04144,    .01490,
     +     .00908,    .03392,    .05692,
     +     .45482,    .19923,    .33061,    .04068,    .01475,
     +     .00909,    .03332,    .05572 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
     +     .44927,    .19624,    .31925,    .03991,    .01459,
     +     .00909,    .03271,    .05454,
     +     .44386,    .19333,    .30852,    .03917,    .01443,
     +     .00909,    .03211,    .05340,
     +     .43872,    .19060,    .29869,    .03847,    .01428,
     +     .00907,    .03156,    .05234,
     +     .43386,    .18804,    .28972,    .03783,    .01413,
     +     .00905,    .03103,    .05133,
     +     .42903,    .18551,    .28099,    .03719,    .01398,
     +     .00902,    .03052,    .05034 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
     +     .69135,    .34671,   1.04411,    .05698,    .00000,
     +     .00000,    .04089,    .10041,
     +     .68511,    .34040,   1.02322,    .05672,    .00000,
     +     .00000,    .04125,    .09807,
     +     .67513,    .33127,    .98290,    .05615,    .00025,
     +     .00000,    .04148,    .09463,
     +     .66740,    .32472,    .94640,    .05557,    .00223,
     +     .00000,    .04143,    .09215,
     +     .65900,    .31790,    .90667,    .05486,    .00392,
     +     .00000,    .04126,    .08957,
     +     .65147,    .31215,    .87194,    .05419,    .00507,
     +     .00000,    .04100,    .08737,
     +     .64414,    .30670,    .83883,    .05349,    .00603,
     +     .00000,    .04068,    .08530,
     +     .63627,    .30101,    .80430,    .05270,    .00693,
     +     .00000,    .04029,    .08314 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
     +     .62939,    .29617,    .77502,    .05199,    .00762,
     +     .00000,    .03991,    .08131,
     +     .62266,    .29156,    .74732,    .05129,    .00820,
     +     .00000,    .03951,    .07957,
     +     .61729,    .28794,    .72579,    .05070,    .00859,
     +     .00000,    .03917,    .07821,
     +     .60583,    .28038,    .68106,    .04946,    .00933,
     +     .00001,    .03840,    .07537,
     +     .59592,    .27402,    .64295,    .04839,    .00984,
     +     .00073,    .03769,    .07300,
     +     .58484,    .26705,    .60175,    .04715,    .01029,
     +     .00185,    .03685,    .07043,
     +     .57333,    .25998,    .56197,    .04585,    .01065,
     +     .00269,    .03596,    .06783,
     +     .56293,    .25375,    .52837,    .04468,    .01088,
     +     .00334,    .03513,    .06556 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
     +     .55254,    .24761,    .49672,    .04350,    .01106,
     +     .00390,    .03428,    .06334,
     +     .54394,    .24262,    .47204,    .04253,    .01115,
     +     .00428,    .03358,    .06155,
     +     .53356,    .23672,    .44396,    .04139,    .01122,
     +     .00468,    .03272,    .05943,
     +     .52452,    .23160,    .42076,    .04037,    .01124,
     +     .00498,    .03195,    .05764,
     +     .51637,    .22701,    .40078,    .03943,    .01123,
     +     .00522,    .03126,    .05606,
     +     .50603,    .22134,    .37697,    .03830,    .01119,
     +     .00547,    .03040,    .05408,
     +     .49642,    .21612,    .35610,    .03725,    .01112,
     +     .00565,    .02959,    .05229,
     +     .48756,    .21136,    .33782,    .03629,    .01104,
     +     .00579,    .02884,    .05067 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
     +     .47885,    .20672,    .32070,    .03535,    .01094,
     +     .00591,    .02811,    .04912,
     +     .47037,    .20224,    .30488,    .03443,    .01082,
     +     .00599,    .02741,    .04763,
     +     .46250,    .19812,    .29082,    .03359,    .01071,
     +     .00605,    .02676,    .04626,
     +     .45515,    .19432,    .27831,    .03282,    .01059,
     +     .00610,    .02616,    .04501,
     +     .44784,    .19057,    .26637,    .03206,    .01046,
     +     .00612,    .02556,    .04379,
     +     .44078,    .18695,    .25525,    .03134,    .01033,
     +     .00614,    .02497,    .04263,
     +     .43411,    .18356,    .24520,    .03065,    .01020,
     +     .00614,    .02443,    .04156,
     +     .42792,    .18043,    .23615,    .03000,    .01008,
     +     .00614,    .02393,    .04057 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
     +     .42170,    .17731,    .22744,    .02937,    .00995,
     +     .00613,    .02343,    .03960,
     +     .41564,    .17430,    .21923,    .02877,    .00982,
     +     .00611,    .02295,    .03866,
     +     .40994,    .17147,    .21173,    .02820,    .00969,
     +     .00609,    .02250,    .03779,
     +     .40456,    .16881,    .20491,    .02767,    .00957,
     +     .00606,    .02207,    .03698,
     +     .39924,    .16619,    .19829,    .02715,    .00945,
     +     .00603,    .02166,    .03618 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
     +     .71993,    .34692,    .93434,    .04815,    .00000,
     +     .00000,    .03435,    .08445,
     +     .70968,    .33892,    .90079,    .04765,    .00000,
     +     .00000,    .03435,    .08188,
     +     .69429,    .32752,    .84761,    .04675,    .00020,
     +     .00000,    .03416,    .07822,
     +     .68291,    .31949,    .80560,    .04600,    .00170,
     +     .00000,    .03386,    .07566,
     +     .67089,    .31130,    .76236,    .04515,    .00298,
     +     .00000,    .03347,    .07304,
     +     .66048,    .30442,    .72617,    .04438,    .00383,
     +     .00000,    .03307,    .07083,
     +     .65053,    .29797,    .69270,    .04362,    .00454,
     +     .00000,    .03263,    .06880,
     +     .64003,    .29132,    .65864,    .04278,    .00520,
     +     .00000,    .03215,    .06671 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
     +     .63098,    .28570,    .63032,    .04204,    .00570,
     +     .00000,    .03171,    .06495,
     +     .62230,    .28036,    .60401,    .04131,    .00611,
     +     .00000,    .03125,    .06331,
     +     .61542,    .27622,    .58388,    .04074,    .00639,
     +     .00000,    .03087,    .06203,
     +     .60092,    .26765,    .54274,    .03952,    .00690,
     +     .00001,    .03006,    .05938,
     +     .58859,    .26050,    .50848,    .03847,    .00724,
     +     .00053,    .02935,    .05720,
     +     .57498,    .25274,    .47213,    .03730,    .00754,
     +     .00134,    .02853,    .05486,
     +     .56105,    .24495,    .43753,    .03610,    .00776,
     +     .00194,    .02768,    .05252,
     +     .54862,    .23811,    .40865,    .03502,    .00790,
     +     .00240,    .02691,    .05049 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
     +     .53631,    .23143,    .38175,    .03395,    .00799,
     +     .00279,    .02612,    .04854,
     +     .52627,    .22604,    .36100,    .03307,    .00803,
     +     .00305,    .02549,    .04698,
     +     .51425,    .21969,    .33759,    .03204,    .00805,
     +     .00332,    .02472,    .04515,
     +     .50383,    .21423,    .31840,    .03114,    .00804,
     +     .00352,    .02405,    .04360,
     +     .49448,    .20938,    .30198,    .03034,    .00801,
     +     .00368,    .02345,    .04223,
     +     .48275,    .20341,    .28258,    .02935,    .00795,
     +     .00384,    .02270,    .04055,
     +     .47197,    .19793,    .26568,    .02843,    .00787,
     +     .00396,    .02201,    .03905,
     +     .46209,    .19295,    .25098,    .02760,    .00779,
     +     .00404,    .02138,    .03770 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
     +     .45244,    .18812,    .23730,    .02680,    .00769,
     +     .00412,    .02076,    .03640,
     +     .44308,    .18350,    .22477,    .02602,    .00759,
     +     .00416,    .02018,    .03517,
     +     .43443,    .17926,    .21368,    .02532,    .00749,
     +     .00419,    .01964,    .03405,
     +     .42639,    .17536,    .20383,    .02467,    .00739,
     +     .00421,    .01913,    .03304,
     +     .41846,    .17153,    .19451,    .02404,    .00728,
     +     .00422,    .01863,    .03205,
     +     .41082,    .16788,    .18587,    .02343,    .00717,
     +     .00422,    .01815,    .03111,
     +     .40365,    .16445,    .17807,    .02286,    .00707,
     +     .00421,    .01772,    .03023,
     +     .39701,    .16128,    .17106,    .02233,    .00697,
     +     .00420,    .01732,    .02943 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
     +     .39037,    .15816,    .16435,    .02182,    .00686,
     +     .00418,    .01692,    .02864,
     +     .38392,    .15515,    .15804,    .02134,    .00676,
     +     .00416,    .01653,    .02788,
     +     .37788,    .15232,    .15230,    .02087,    .00666,
     +     .00414,    .01617,    .02719,
     +     .37223,    .14966,    .14709,    .02042,    .00656,
     +     .00412,    .01584,    .02656,
     +     .36666,    .14704,    .14204,    .01998,    .00647,
     +     .00409,    .01551,    .02594 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
     +     .73641,    .34135,    .81852,    .04085,    .00000,
     +     .00000,    .02856,    .06959,
     +     .72238,    .33190,    .77927,    .04016,    .00000,
     +     .00000,    .02836,    .06705,
     +     .70189,    .31864,    .72153,    .03907,    .00016,
     +     .00000,    .02790,    .06349,
     +     .68715,    .30940,    .67873,    .03822,    .00130,
     +     .00000,    .02749,    .06103,
     +     .67185,    .30008,    .63598,    .03729,    .00227,
     +     .00000,    .02700,    .05856,
     +     .65883,    .29232,    .60109,    .03647,    .00291,
     +     .00000,    .02652,    .05653,
     +     .64652,    .28513,    .56938,    .03568,    .00343,
     +     .00000,    .02605,    .05465,
     +     .63369,    .27776,    .53762,    .03484,    .00391,
     +     .00000,    .02553,    .05273 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
     +     .62274,    .27156,    .51156,    .03412,    .00427,
     +     .00000,    .02508,    .05113,
     +     .61231,    .26574,    .48765,    .03343,    .00457,
     +     .00000,    .02462,    .04964,
     +     .60413,    .26121,    .46950,    .03287,    .00477,
     +     .00000,    .02426,    .04850,
     +     .58706,    .25192,    .43288,    .03171,    .00512,
     +     .00001,    .02348,    .04616,
     +     .57271,    .24423,    .40292,    .03073,    .00536,
     +     .00039,    .02281,    .04423,
     +     .55703,    .23595,    .37154,    .02964,    .00555,
     +     .00098,    .02206,    .04220,
     +     .54112,    .22768,    .34195,    .02855,    .00569,
     +     .00141,    .02128,    .04019,
     +     .52709,    .22048,    .31750,    .02758,    .00577,
     +     .00173,    .02059,    .03845 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
     +     .51330,    .21350,    .29495,    .02662,    .00581,
     +     .00201,    .01991,    .03678,
     +     .50210,    .20789,    .27766,    .02585,    .00583,
     +     .00219,    .01935,    .03546,
     +     .48883,    .20132,    .25831,    .02494,    .00581,
     +     .00238,    .01868,    .03393,
     +     .47738,    .19571,    .24255,    .02417,    .00579,
     +     .00251,    .01811,    .03265,
     +     .46717,    .19074,    .22915,    .02348,    .00575,
     +     .00262,    .01759,    .03152,
     +     .45453,    .18461,    .21340,    .02258,    .00569,
     +     .00272,    .01698,    .03014,
     +     .44286,    .17908,    .19980,    .02183,    .00561,
     +     .00279,    .01639,    .02891,
     +     .43224,    .17406,    .18803,    .02113,    .00554,
     +     .00285,    .01586,    .02781 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
     +     .42197,    .16920,    .17711,    .02043,    .00546,
     +     .00289,    .01538,    .02677,
     +     .41206,    .16458,    .16718,    .01978,    .00537,
     +     .00291,    .01489,    .02576,
     +     .40294,    .16036,    .15841,    .01919,    .00528,
     +     .00293,    .01444,    .02486,
     +     .39451,    .15648,    .15067,    .01866,    .00520,
     +     .00293,    .01403,    .02405,
     +     .38622,    .15268,    .14337,    .01813,    .00511,
     +     .00293,    .01363,    .02326,
     +     .37827,    .14906,    .13661,    .01761,    .00502,
     +     .00293,    .01326,    .02252,
     +     .37082,    .14569,    .13056,    .01714,    .00494,
     +     .00292,    .01290,    .02183,
     +     .36394,    .14260,    .12513,    .01671,    .00486,
     +     .00290,    .01257,    .02119 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
     +     .35710,    .13954,    .11995,    .01629,    .00477,
     +     .00289,    .01225,    .02059,
     +     .35048,    .13659,    .11509,    .01589,    .00469,
     +     .00287,    .01194,    .02001,
     +     .34428,    .13384,    .11069,    .01551,    .00462,
     +     .00285,    .01166,    .01948,
     +     .33850,    .13127,    .10671,    .01516,    .00454,
     +     .00282,    .01139,    .01898,
     +     .33280,    .12875,    .10286,    .01481,    .00447,
     +     .00280,    .01113,    .01850 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
     +     .74190,    .33102,    .70729,    .03467,    .00000,
     +     .00000,    .02351,    .05628,
     +     .72432,    .32048,    .66683,    .03390,    .00000,
     +     .00000,    .02316,    .05390,
     +     .69916,    .30579,    .60957,    .03272,    .00013,
     +     .00000,    .02258,    .05062,
     +     .68135,    .29569,    .56864,    .03186,    .00100,
     +     .00000,    .02211,    .04835,
     +     .66316,    .28554,    .52849,    .03092,    .00173,
     +     .00000,    .02157,    .04615,
     +     .64787,    .27715,    .49624,    .03009,    .00221,
     +     .00000,    .02109,    .04435,
     +     .63354,    .26943,    .46726,    .02932,    .00260,
     +     .00000,    .02062,    .04270,
     +     .61874,    .26155,    .43854,    .02851,    .00296,
     +     .00000,    .02012,    .04101 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
     +     .60620,    .25496,    .41520,    .02782,    .00322,
     +     .00000,    .01969,    .03962,
     +     .59434,    .24879,    .39395,    .02716,    .00343,
     +     .00000,    .01926,    .03834,
     +     .58509,    .24404,    .37795,    .02664,    .00357,
     +     .00000,    .01892,    .03735,
     +     .56597,    .23429,    .34596,    .02556,    .00382,
     +     .00001,    .01822,    .03534,
     +     .55003,    .22627,    .32012,    .02465,    .00398,
     +     .00028,    .01762,    .03373,
     +     .53270,    .21773,    .29330,    .02368,    .00411,
     +     .00071,    .01694,    .03200,
     +     .51529,    .20927,    .26825,    .02270,    .00419,
     +     .00103,    .01627,    .03032,
     +     .50006,    .20191,    .24776,    .02183,    .00423,
     +     .00126,    .01568,    .02889 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
     +     .48518,    .19481,    .22896,    .02100,    .00425,
     +     .00145,    .01510,    .02751,
     +     .47320,    .18916,    .21465,    .02031,    .00425,
     +     .00158,    .01462,    .02644,
     +     .45907,    .18253,    .19871,    .01951,    .00422,
     +     .00171,    .01406,    .02519,
     +     .44697,    .17690,    .18581,    .01883,    .00419,
     +     .00180,    .01357,    .02416,
     +     .43621,    .17194,    .17488,    .01822,    .00415,
     +     .00187,    .01314,    .02326,
     +     .42290,    .16587,    .16213,    .01751,    .00409,
     +     .00194,    .01263,    .02213,
     +     .41077,    .16040,    .15118,    .01685,    .00403,
     +     .00199,    .01216,    .02114,
     +     .39977,    .15546,    .14176,    .01626,    .00396,
     +     .00202,    .01174,    .02026 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
     +     .38912,    .15070,    .13307,    .01568,    .00389,
     +     .00204,    .01134,    .01944,
     +     .37892,    .14619,    .12519,    .01514,    .00382,
     +     .00205,    .01094,    .01866,
     +     .36958,    .14208,    .11827,    .01464,    .00375,
     +     .00206,    .01058,    .01796,
     +     .36100,    .13831,    .11217,    .01419,    .00368,
     +     .00206,    .01026,    .01732,
     +     .35258,    .13464,    .10645,    .01374,    .00361,
     +     .00205,    .00994,    .01672,
     +     .34453,    .13114,    .10117,    .01332,    .00354,
     +     .00204,    .00964,    .01615,
     +     .33701,    .12791,    .09646,    .01293,    .00347,
     +     .00203,    .00935,    .01562,
     +     .33008,    .12496,    .09226,    .01258,    .00341,
     +     .00202,    .00909,    .01512 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
     +     .32322,    .12204,    .08824,    .01224,    .00335,
     +     .00200,    .00884,    .01465,
     +     .31660,    .11923,    .08448,    .01192,    .00328,
     +     .00199,    .00861,    .01420,
     +     .31043,    .11662,    .08109,    .01162,    .00322,
     +     .00197,    .00839,    .01379,
     +     .30468,    .11418,    .07804,    .01133,    .00317,
     +     .00195,    .00818,    .01341,
     +     .29901,    .11179,    .07510,    .01104,    .00311,
     +     .00193,    .00798,    .01304 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
     +     .73701,    .31733,    .60675,    .02970,    .00000,
     +     .00000,    .01895,    .04444,
     +     .71639,    .30588,    .56757,    .02884,    .00000,
     +     .00000,    .01858,    .04236,
     +     .68723,    .29012,    .51331,    .02759,    .00010,
     +     .00000,    .01800,    .03949,
     +     .66691,    .27933,    .47544,    .02667,    .00077,
     +     .00000,    .01752,    .03759,
     +     .64630,    .26861,    .43872,    .02573,    .00133,
     +     .00000,    .01703,    .03568,
     +     .62911,    .25983,    .40955,    .02494,    .00169,
     +     .00000,    .01658,    .03414,
     +     .61315,    .25177,    .38356,    .02419,    .00198,
     +     .00000,    .01614,    .03274,
     +     .59676,    .24358,    .35802,    .02341,    .00225,
     +     .00000,    .01568,    .03135 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
     +     .58296,    .23677,    .33741,    .02275,    .00244,
     +     .00000,    .01529,    .03020,
     +     .57001,    .23041,    .31876,    .02212,    .00259,
     +     .00000,    .01491,    .02913,
     +     .55996,    .22554,    .30481,    .02164,    .00269,
     +     .00000,    .01462,    .02830,
     +     .53923,    .21560,    .27712,    .02066,    .00286,
     +     .00001,    .01401,    .02665,
     +     .52208,    .20748,    .25497,    .01983,    .00297,
     +     .00021,    .01349,    .02532,
     +     .50364,    .19885,    .23220,    .01894,    .00305,
     +     .00053,    .01292,    .02392,
     +     .48521,    .19034,    .21109,    .01806,    .00310,
     +     .00076,    .01235,    .02256,
     +     .46917,    .18300,    .19393,    .01730,    .00312,
     +     .00092,    .01183,    .02142 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
     +     .45360,    .17597,    .17828,    .01657,    .00312,
     +     .00106,    .01135,    .02031,
     +     .44116,    .17035,    .16645,    .01597,    .00311,
     +     .00115,    .01095,    .01945,
     +     .42650,    .16385,    .15336,    .01528,    .00308,
     +     .00124,    .01051,    .01847,
     +     .41401,    .15835,    .14283,    .01470,    .00304,
     +     .00130,    .01012,    .01764,
     +     .40298,    .15351,    .13396,    .01419,    .00301,
     +     .00135,    .00976,    .01692,
     +     .38938,    .14762,    .12366,    .01357,    .00295,
     +     .00139,    .00935,    .01606,
     +     .37707,    .14229,    .11484,    .01301,    .00290,
     +     .00142,    .00897,    .01530,
     +     .36595,    .13752,    .10730,    .01250,    .00284,
     +     .00144,    .00862,    .01462 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
     +     .35521,    .13299,    .10037,    .01203,    .00279,
     +     .00145,    .00830,    .01395,
     +     .34498,    .12866,    .09412,    .01158,    .00273,
     +     .00145,    .00799,    .01336,
     +     .33564,    .12473,    .08866,    .01117,    .00267,
     +     .00145,    .00771,    .01282,
     +     .32708,    .12115,    .08388,    .01079,    .00261,
     +     .00145,    .00745,    .01234,
     +     .31872,    .11767,    .07938,    .01043,    .00256,
     +     .00144,    .00719,    .01188,
     +     .31073,    .11437,    .07524,    .01009,    .00250,
     +     .00143,    .00696,    .01144,
     +     .30333,    .11131,    .07157,    .00977,    .00245,
     +     .00142,    .00674,    .01104,
     +     .29653,    .10852,    .06830,    .00947,    .00240,
     +     .00141,    .00654,    .01068 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
     +     .28979,    .10577,    .06520,    .00920,    .00235,
     +     .00140,    .00635,    .01032,
     +     .28329,    .10314,    .06232,    .00894,    .00230,
     +     .00138,    .00617,    .00999,
     +     .27726,    .10070,    .05971,    .00870,    .00226,
     +     .00137,    .00599,    .00968,
     +     .27166,    .09844,    .05735,    .00846,    .00221,
     +     .00135,    .00583,    .00939,
     +     .26616,    .09623,    .05508,    .00823,    .00217,
     +     .00134,    .00567,    .00911 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
     +     .72380,    .30026,    .51888,    .02496,    .00000,
     +     .00000,    .01531,    .03467,
     +     .70048,    .28825,    .48211,    .02411,    .00000,
     +     .00000,    .01493,    .03288,
     +     .66789,    .27183,    .43188,    .02291,    .00008,
     +     .00000,    .01435,    .03043,
     +     .64538,    .26072,    .39735,    .02204,    .00059,
     +     .00000,    .01389,    .02882,
     +     .62280,    .24969,    .36424,    .02115,    .00102,
     +     .00000,    .01342,    .02724,
     +     .60411,    .24069,    .33814,    .02038,    .00129,
     +     .00000,    .01300,    .02599,
     +     .58685,    .23250,    .31509,    .01969,    .00150,
     +     .00000,    .01262,    .02482,
     +     .56921,    .22424,    .29254,    .01900,    .00170,
     +     .00000,    .01221,    .02365 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
     +     .55443,    .21739,    .27445,    .01842,    .00183,
     +     .00000,    .01186,    .02269,
     +     .54063,    .21102,    .25819,    .01786,    .00194,
     +     .00000,    .01153,    .02183,
     +     .53000,    .20611,    .24608,    .01742,    .00201,
     +     .00000,    .01127,    .02118,
     +     .50819,    .19619,    .22221,    .01653,    .00213,
     +     .00001,    .01074,    .01985,
     +     .49022,    .18817,    .20328,    .01581,    .00221,
     +     .00016,    .01030,    .01876,
     +     .47104,    .17964,    .18399,    .01502,    .00226,
     +     .00039,    .00982,    .01765,
     +     .45204,    .17127,    .16623,    .01424,    .00228,
     +     .00055,    .00933,    .01660,
     +     .43556,    .16412,    .15190,    .01358,    .00229,
     +     .00067,    .00891,    .01569 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
     +     .41962,    .15728,    .13894,    .01297,    .00228,
     +     .00077,    .00852,    .01480,
     +     .40695,    .15183,    .12920,    .01245,    .00226,
     +     .00083,    .00820,    .01416,
     +     .39210,    .14559,    .11847,    .01188,    .00223,
     +     .00089,    .00783,    .01337,
     +     .37950,    .14031,    .10988,    .01141,    .00220,
     +     .00093,    .00751,    .01272,
     +     .36841,    .13567,    .10267,    .01099,    .00217,
     +     .00096,    .00722,    .01217,
     +     .35489,    .13002,    .09437,    .01043,    .00212,
     +     .00099,    .00689,    .01152,
     +     .34261,    .12498,    .08730,    .00997,    .00208,
     +     .00101,    .00658,    .01094,
     +     .33157,    .12047,    .08127,    .00956,    .00203,
     +     .00102,    .00631,    .01043 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
     +     .32098,    .11616,    .07575,    .00916,    .00199,
     +     .00102,    .00605,    .00993,
     +     .31090,    .11211,    .07082,    .00880,    .00194,
     +     .00102,    .00581,    .00948,
     +     .30175,    .10844,    .06651,    .00847,    .00189,
     +     .00102,    .00560,    .00906,
     +     .29342,    .10508,    .06275,    .00816,    .00185,
     +     .00102,    .00541,    .00869,
     +     .28527,    .10184,    .05924,    .00787,    .00181,
     +     .00101,    .00521,    .00834,
     +     .27751,    .09878,    .05604,    .00760,    .00176,
     +     .00100,    .00502,    .00801,
     +     .27033,    .09595,    .05318,    .00734,    .00172,
     +     .00099,    .00484,    .00771,
     +     .26375,    .09337,    .05063,    .00711,    .00169,
     +     .00098,    .00469,    .00744 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
     +     .25727,    .09084,    .04823,    .00688,    .00165,
     +     .00097,    .00454,    .00718,
     +     .25106,    .08841,    .04601,    .00667,    .00161,
     +     .00096,    .00440,    .00694,
     +     .24528,    .08616,    .04400,    .00647,    .00158,
     +     .00095,    .00427,    .00671,
     +     .23992,    .08409,    .04219,    .00629,    .00154,
     +     .00093,    .00415,    .00651,
     +     .23466,    .08206,    .04046,    .00611,    .00151,
     +     .00092,    .00404,    .00630 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
     +     .70264,    .28125,    .44415,    .02097,    .00000,
     +     .00000,    .01217,    .02646,
     +     .67714,    .26894,    .40999,    .02014,    .00000,
     +     .00000,    .01181,    .02498,
     +     .64187,    .25218,    .36395,    .01896,    .00007,
     +     .00000,    .01125,    .02301,
     +     .61775,    .24088,    .33269,    .01813,    .00045,
     +     .00000,    .01086,    .02171,
     +     .59367,    .22980,    .30292,    .01730,    .00078,
     +     .00000,    .01044,    .02043,
     +     .57386,    .22080,    .27963,    .01661,    .00098,
     +     .00000,    .01008,    .01941,
     +     .55568,    .21263,    .25919,    .01599,    .00114,
     +     .00000,    .00973,    .01848,
     +     .53724,    .20440,    .23932,    .01535,    .00128,
     +     .00000,    .00938,    .01755 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
     +     .52186,    .19761,    .22346,    .01481,    .00138,
     +     .00000,    .00909,    .01680,
     +     .50753,    .19133,    .20932,    .01432,    .00146,
     +     .00000,    .00882,    .01611,
     +     .49651,    .18655,    .19883,    .01394,    .00150,
     +     .00000,    .00860,    .01558,
     +     .47407,    .17686,    .17828,    .01315,    .00159,
     +     .00001,    .00816,    .01454,
     +     .45572,    .16900,    .16213,    .01251,    .00163,
     +     .00011,    .00778,    .01372,
     +     .43616,    .16075,    .14582,    .01184,    .00166,
     +     .00028,    .00736,    .01287,
     +     .41692,    .15270,    .13094,    .01117,    .00167,
     +     .00040,    .00697,    .01204,
     +     .40036,    .14582,    .11901,    .01061,    .00167,
     +     .00049,    .00665,    .01132 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
     +     .38443,    .13928,    .10827,    .01008,    .00166,
     +     .00055,    .00633,    .01064,
     +     .37178,    .13413,    .10026,    .00965,    .00164,
     +     .00060,    .00606,    .01014,
     +     .35706,    .12818,    .09147,    .00917,    .00162,
     +     .00064,    .00577,    .00954,
     +     .34462,    .12317,    .08449,    .00876,    .00159,
     +     .00067,    .00552,    .00907,
     +     .33371,    .11879,    .07866,    .00839,    .00156,
     +     .00069,    .00530,    .00867,
     +     .32037,    .11353,    .07197,    .00798,    .00152,
     +     .00070,    .00503,    .00814,
     +     .30839,    .10882,    .06632,    .00760,    .00149,
     +     .00071,    .00479,    .00770,
     +     .29766,    .10461,    .06152,    .00726,    .00145,
     +     .00072,    .00458,    .00732 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
     +     .28740,    .10062,    .05714,    .00694,    .00141,
     +     .00072,    .00439,    .00694,
     +     .27768,    .09685,    .05325,    .00663,    .00137,
     +     .00072,    .00419,    .00662,
     +     .26886,    .09345,    .04986,    .00636,    .00134,
     +     .00072,    .00401,    .00633,
     +     .26082,    .09037,    .04692,    .00613,    .00131,
     +     .00071,    .00386,    .00605,
     +     .25303,    .08739,    .04418,    .00589,    .00127,
     +     .00071,    .00372,    .00580,
     +     .24564,    .08457,    .04168,    .00565,    .00124,
     +     .00070,    .00358,    .00556,
     +     .23880,    .08199,    .03947,    .00546,    .00121,
     +     .00069,    .00345,    .00534,
     +     .23254,    .07964,    .03752,    .00529,    .00118,
     +     .00068,    .00334,    .00514 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
     +     .22640,    .07733,    .03567,    .00511,    .00115,
     +     .00067,    .00322,    .00495,
     +     .22053,    .07513,    .03395,    .00492,    .00113,
     +     .00066,    .00311,    .00478,
     +     .21508,    .07310,    .03242,    .00476,    .00110,
     +     .00065,    .00301,    .00462,
     +     .21003,    .07123,    .03104,    .00463,    .00108,
     +     .00065,    .00293,    .00445,
     +     .20508,    .06940,    .02971,    .00449,    .00105,
     +     .00064,    .00284,    .00430 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
     +     .67498,    .26065,    .38118,    .01735,    .00000,
     +     .00000,    .00959,    .01988,
     +     .64782,    .24824,    .34951,    .01656,    .00000,
     +     .00000,    .00926,    .01870,
     +     .61051,    .23152,    .30721,    .01549,    .00005,
     +     .00000,    .00878,    .01710,
     +     .58522,    .22031,    .27887,    .01472,    .00034,
     +     .00000,    .00842,    .01608,
     +     .56013,    .20934,    .25211,    .01399,    .00059,
     +     .00000,    .00805,    .01508,
     +     .53964,    .20047,    .23132,    .01336,    .00074,
     +     .00000,    .00772,    .01430,
     +     .52090,    .19248,    .21321,    .01279,    .00085,
     +     .00000,    .00744,    .01357,
     +     .50198,    .18447,    .19571,    .01222,    .00096,
     +     .00000,    .00716,    .01283 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
     +     .48629,    .17788,    .18185,    .01175,    .00103,
     +     .00000,    .00691,    .01224,
     +     .47172,    .17179,    .16957,    .01131,    .00108,
     +     .00000,    .00668,    .01173,
     +     .46056,    .16715,    .16049,    .01098,    .00111,
     +     .00000,    .00650,    .01133,
     +     .43789,    .15783,    .14283,    .01032,    .00117,
     +     .00000,    .00613,    .01051,
     +     .41945,    .15034,    .12910,    .00979,    .00120,
     +     .00008,    .00582,    .00987,
     +     .39994,    .14248,    .11535,    .00922,    .00121,
     +     .00020,    .00550,    .00921,
     +     .38081,    .13483,    .10290,    .00867,    .00122,
     +     .00029,    .00518,    .00859,
     +     .36442,    .12833,    .09300,    .00820,    .00121,
     +     .00035,    .00492,    .00806 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
     +     .34876,    .12217,    .08415,    .00775,    .00120,
     +     .00040,    .00465,    .00757,
     +     .33639,    .11732,    .07759,    .00739,    .00118,
     +     .00043,    .00445,    .00719,
     +     .32200,    .11178,    .07043,    .00701,    .00116,
     +     .00045,    .00421,    .00672,
     +     .30992,    .10713,    .06478,    .00668,    .00114,
     +     .00047,    .00402,    .00636,
     +     .29937,    .10308,    .06009,    .00638,    .00111,
     +     .00049,    .00384,    .00607,
     +     .28649,    .09820,    .05473,    .00604,    .00108,
     +     .00050,    .00363,    .00569,
     +     .27499,    .09385,    .05023,    .00572,    .00105,
     +     .00050,    .00345,    .00536,
     +     .26473,    .08998,    .04643,    .00544,    .00103,
     +     .00051,    .00329,    .00508 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
     +     .25493,    .08631,    .04298,    .00518,    .00100,
     +     .00051,    .00314,    .00482,
     +     .24568,    .08288,    .03992,    .00495,    .00097,
     +     .00050,    .00299,    .00457,
     +     .23732,    .07979,    .03727,    .00474,    .00094,
     +     .00050,    .00287,    .00435,
     +     .22974,    .07699,    .03498,    .00453,    .00092,
     +     .00049,    .00276,    .00416,
     +     .22237,    .07430,    .03286,    .00436,    .00089,
     +     .00049,    .00265,    .00398,
     +     .21538,    .07175,    .03093,    .00420,    .00087,
     +     .00048,    .00254,    .00381,
     +     .20897,    .06943,    .02923,    .00404,    .00085,
     +     .00048,    .00245,    .00366,
     +     .20313,    .06732,    .02773,    .00388,    .00082,
     +     .00047,    .00236,    .00351 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
     +     .19741,    .06525,    .02631,    .00374,    .00080,
     +     .00046,    .00227,    .00337,
     +     .19194,    .06328,    .02499,    .00361,    .00078,
     +     .00046,    .00218,    .00324,
     +     .18688,    .06147,    .02382,    .00349,    .00076,
     +     .00045,    .00211,    .00312,
     +     .18220,    .05979,    .02277,    .00337,    .00075,
     +     .00044,    .00204,    .00302,
     +     .17763,    .05815,    .02177,    .00326,    .00073,
     +     .00044,    .00197,    .00291 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
     +     .64178,    .23914,    .32787,    .01413,    .00000,
     +     .00000,    .00748,    .01469,
     +     .61346,    .22687,    .29837,    .01341,    .00000,
     +     .00000,    .00718,    .01378,
     +     .57486,    .21042,    .25945,    .01243,    .00004,
     +     .00000,    .00676,    .01255,
     +     .54888,    .19946,    .23373,    .01176,    .00026,
     +     .00000,    .00646,    .01176,
     +     .52321,    .18884,    .20965,    .01113,    .00044,
     +     .00000,    .00615,    .01095,
     +     .50245,    .18024,    .19113,    .01056,    .00055,
     +     .00000,    .00590,    .01035,
     +     .48350,    .17254,    .17508,    .01009,    .00063,
     +     .00000,    .00565,    .00980,
     +     .46441,    .16486,    .15973,    .00961,    .00071,
     +     .00000,    .00540,    .00925 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
     +     .44866,    .15856,    .14765,    .00920,    .00076,
     +     .00000,    .00520,    .00880,
     +     .43413,    .15274,    .13696,    .00882,    .00079,
     +     .00000,    .00502,    .00840,
     +     .42303,    .14833,    .12914,    .00854,    .00082,
     +     .00000,    .00486,    .00811,
     +     .40058,    .13949,    .11403,    .00797,    .00085,
     +     .00000,    .00457,    .00750,
     +     .38238,    .13241,    .10241,    .00754,    .00087,
     +     .00006,    .00434,    .00699,
     +     .36322,    .12502,    .09088,    .00708,    .00088,
     +     .00014,    .00406,    .00651,
     +     .34456,    .11788,    .08052,    .00660,    .00088,
     +     .00020,    .00381,    .00605,
     +     .32863,    .11184,    .07234,    .00621,    .00087,
     +     .00025,    .00360,    .00565 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
     +     .31344,    .10613,    .06507,    .00586,    .00086,
     +     .00028,    .00340,    .00528,
     +     .30150,    .10165,    .05974,    .00555,    .00084,
     +     .00030,    .00324,    .00503,
     +     .28769,    .09654,    .05398,    .00525,    .00082,
     +     .00032,    .00305,    .00469,
     +     .27612,    .09228,    .04943,    .00499,    .00080,
     +     .00033,    .00290,    .00442,
     +     .26604,    .08857,    .04567,    .00475,    .00079,
     +     .00034,    .00277,    .00420,
     +     .25384,    .08411,    .04141,    .00447,    .00076,
     +     .00035,    .00261,    .00393,
     +     .24295,    .08016,    .03786,    .00422,    .00074,
     +     .00036,    .00247,    .00369,
     +     .23325,    .07666,    .03487,    .00401,    .00072,
     +     .00036,    .00234,    .00349 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
     +     .22401,    .07334,    .03217,    .00381,    .00070,
     +     .00036,    .00223,    .00330,
     +     .21534,    .07027,    .02979,    .00363,    .00068,
     +     .00036,    .00212,    .00312,
     +     .20752,    .06750,    .02773,    .00346,    .00066,
     +     .00036,    .00203,    .00296,
     +     .20046,    .06499,    .02596,    .00330,    .00064,
     +     .00036,    .00194,    .00283,
     +     .19363,    .06258,    .02432,    .00315,    .00062,
     +     .00035,    .00185,    .00270,
     +     .18717,    .06031,    .02283,    .00302,    .00060,
     +     .00035,    .00177,    .00257,
     +     .18124,    .05825,    .02153,    .00290,    .00059,
     +     .00034,    .00170,    .00246,
     +     .17583,    .05637,    .02039,    .00280,    .00057,
     +     .00034,    .00164,    .00236 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
     +     .17054,    .05454,    .01931,    .00270,    .00056,
     +     .00033,    .00158,    .00226,
     +     .16551,    .05280,    .01831,    .00261,    .00054,
     +     .00033,    .00152,    .00218,
     +     .16086,    .05120,    .01742,    .00252,    .00053,
     +     .00032,    .00147,    .00209,
     +     .15657,    .04973,    .01663,    .00244,    .00052,
     +     .00032,    .00142,    .00201,
     +     .15239,    .04830,    .01587,    .00236,    .00050,
     +     .00032,    .00137,    .00193 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
     +     .60405,    .21735,    .28249,    .01145,    .00000,
     +     .00000,    .00569,    .01059,
     +     .57510,    .20540,    .25489,    .01080,    .00000,
     +     .00000,    .00545,    .00991,
     +     .53590,    .18949,    .21898,    .00993,    .00003,
     +     .00000,    .00510,    .00897,
     +     .50972,    .17894,    .19564,    .00932,    .00019,
     +     .00000,    .00485,    .00839,
     +     .48398,    .16877,    .17398,    .00877,    .00032,
     +     .00000,    .00458,    .00781,
     +     .46321,    .16058,    .15749,    .00830,    .00040,
     +     .00000,    .00437,    .00736,
     +     .44439,    .15326,    .14333,    .00789,    .00046,
     +     .00000,    .00418,    .00693,
     +     .42552,    .14597,    .12989,    .00747,    .00052,
     +     .00000,    .00399,    .00653 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
     +     .40999,    .14001,    .11939,    .00713,    .00055,
     +     .00000,    .00383,    .00622,
     +     .39570,    .13458,    .11018,    .00683,    .00058,
     +     .00000,    .00368,    .00590,
     +     .38482,    .13045,    .10346,    .00659,    .00059,
     +     .00000,    .00356,    .00567,
     +     .36288,    .12219,    .09060,    .00613,    .00061,
     +     .00000,    .00332,    .00522,
     +     .34522,    .11562,    .08082,    .00577,    .00062,
     +     .00004,    .00313,    .00486,
     +     .32672,    .10877,    .07121,    .00538,    .00063,
     +     .00010,    .00294,    .00450,
     +     .30877,    .10217,    .06267,    .00500,    .00062,
     +     .00014,    .00274,    .00417,
     +     .29350,    .09660,    .05597,    .00469,    .00062,
     +     .00017,    .00257,    .00390 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
     +     .27907,    .09138,    .05006,    .00437,    .00060,
     +     .00019,    .00242,    .00365,
     +     .26767,    .08732,    .04575,    .00417,    .00059,
     +     .00021,    .00230,    .00342,
     +     .25464,    .08266,    .04111,    .00392,    .00058,
     +     .00022,    .00217,    .00317,
     +     .24372,    .07880,    .03749,    .00371,    .00056,
     +     .00023,    .00205,    .00299,
     +     .23421,    .07545,    .03452,    .00353,    .00055,
     +     .00024,    .00195,    .00285,
     +     .22281,    .07143,    .03116,    .00329,    .00053,
     +     .00024,    .00183,    .00266,
     +     .21263,    .06788,    .02837,    .00310,    .00052,
     +     .00024,    .00173,    .00250,
     +     .20361,    .06476,    .02604,    .00294,    .00050,
     +     .00024,    .00164,    .00235 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
     +     .19505,    .06182,    .02395,    .00278,    .00049,
     +     .00024,    .00155,    .00220,
     +     .18702,    .05907,    .02211,    .00265,    .00047,
     +     .00024,    .00147,    .00208,
     +     .17981,    .05660,    .02053,    .00252,    .00046,
     +     .00024,    .00140,    .00198,
     +     .17332,    .05437,    .01917,    .00240,    .00045,
     +     .00024,    .00134,    .00189,
     +     .16706,    .05225,    .01792,    .00229,    .00043,
     +     .00024,    .00128,    .00180,
     +     .16116,    .05026,    .01678,    .00219,    .00042,
     +     .00024,    .00122,    .00171,
     +     .15575,    .04844,    .01579,    .00210,    .00041,
     +     .00024,    .00117,    .00163,
     +     .15083,    .04679,    .01492,    .00202,    .00040,
     +     .00024,    .00113,    .00156 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
     +     .14602,    .04519,    .01411,    .00194,    .00039,
     +     .00024,    .00109,    .00149,
     +     .14145,    .04368,    .01336,    .00187,    .00038,
     +     .00024,    .00104,    .00142,
     +     .13724,    .04229,    .01269,    .00180,    .00037,
     +     .00024,    .00100,    .00137,
     +     .13338,    .04101,    .01210,    .00173,    .00037,
     +     .00024,    .00096,    .00132,
     +     .12962,    .03976,    .01153,    .00166,    .00036,
     +     .00024,    .00092,    .00127 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
     +     .56296,    .19552,    .24292,    .00906,    .00000,
     +     .00000,    .00429,    .00753,
     +     .53386,    .18409,    .21715,    .00851,    .00000,
     +     .00000,    .00407,    .00701,
     +     .49473,    .16892,    .18412,    .00776,    .00002,
     +     .00000,    .00377,    .00634,
     +     .46867,    .15897,    .16300,    .00728,    .00014,
     +     .00000,    .00357,    .00587,
     +     .44330,    .14935,    .14361,    .00680,    .00023,
     +     .00000,    .00337,    .00545,
     +     .42285,    .14169,    .12905,    .00643,    .00029,
     +     .00000,    .00319,    .00512,
     +     .40445,    .13482,    .11662,    .00608,    .00033,
     +     .00000,    .00305,    .00480,
     +     .38610,    .12801,    .10494,    .00573,    .00037,
     +     .00000,    .00290,    .00450 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
     +     .37103,    .12247,    .09591,    .00546,    .00039,
     +     .00000,    .00276,    .00426,
     +     .35718,    .11742,    .08802,    .00522,    .00041,
     +     .00000,    .00264,    .00405,
     +     .34668,    .11362,    .08230,    .00503,    .00042,
     +     .00000,    .00255,    .00389,
     +     .32560,    .10602,    .07145,    .00465,    .00044,
     +     .00000,    .00237,    .00357,
     +     .30870,    .09998,    .06331,    .00435,    .00045,
     +     .00003,    .00222,    .00332,
     +     .29106,    .09372,    .05538,    .00405,    .00045,
     +     .00007,    .00208,    .00306,
     +     .27401,    .08772,    .04838,    .00376,    .00045,
     +     .00010,    .00193,    .00280,
     +     .25962,    .08268,    .04295,    .00352,    .00044,
     +     .00012,    .00180,    .00261 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
     +     .24604,    .07795,    .03821,    .00328,    .00043,
     +     .00013,    .00168,    .00244,
     +     .23541,    .07428,    .03476,    .00309,    .00042,
     +     .00014,    .00159,    .00230,
     +     .22322,    .07011,    .03108,    .00290,    .00041,
     +     .00015,    .00150,    .00213,
     +     .21307,    .06665,    .02822,    .00274,    .00040,
     +     .00015,    .00141,    .00200,
     +     .20427,    .06367,    .02589,    .00259,    .00040,
     +     .00015,    .00134,    .00188,
     +     .19371,    .06009,    .02327,    .00242,    .00038,
     +     .00015,    .00125,    .00175,
     +     .18431,    .05696,    .02111,    .00229,    .00037,
     +     .00015,    .00117,    .00163,
     +     .17604,    .05421,    .01931,    .00216,    .00036,
     +     .00015,    .00111,    .00153 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
     +     .16825,    .05161,    .01771,    .00201,    .00035,
     +     .00015,    .00105,    .00145,
     +     .16093,    .04920,    .01629,    .00191,    .00035,
     +     .00015,    .00099,    .00136,
     +     .15436,    .04704,    .01509,    .00182,    .00034,
     +     .00015,    .00094,    .00129,
     +     .14844,    .04511,    .01405,    .00173,    .00033,
     +     .00015,    .00089,    .00122,
     +     .14276,    .04325,    .01311,    .00165,    .00032,
     +     .00015,    .00085,    .00116,
     +     .13743,    .04151,    .01225,    .00158,    .00032,
     +     .00015,    .00081,    .00110,
     +     .13256,    .03993,    .01151,    .00150,    .00031,
     +     .00015,    .00078,    .00105,
     +     .12816,    .03850,    .01086,    .00143,    .00030,
     +     .00015,    .00075,    .00100 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
     +     .12385,    .03711,    .01025,    .00138,    .00030,
     +     .00015,    .00072,    .00096,
     +     .11976,    .03580,    .00969,    .00132,    .00029,
     +     .00015,    .00069,    .00092,
     +     .11600,    .03460,    .00919,    .00128,    .00029,
     +     .00015,    .00066,    .00088,
     +     .11254,    .03350,    .00875,    .00123,    .00028,
     +     .00015,    .00063,    .00085,
     +     .10918,    .03244,    .00833,    .00119,    .00028,
     +     .00015,    .00060,    .00082 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
     +     .51944,    .17402,    .20772,    .00697,    .00000,
     +     .00000,    .00320,    .00529,
     +     .49063,    .16323,    .18375,    .00651,    .00000,
     +     .00000,    .00304,    .00490,
     +     .45208,    .14898,    .15351,    .00592,    .00002,
     +     .00000,    .00279,    .00440,
     +     .42666,    .13967,    .13456,    .00551,    .00010,
     +     .00000,    .00263,    .00407,
     +     .40198,    .13070,    .11741,    .00508,    .00016,
     +     .00000,    .00247,    .00378,
     +     .38218,    .12360,    .10463,    .00481,    .00020,
     +     .00000,    .00233,    .00353,
     +     .36442,    .11726,    .09385,    .00453,    .00023,
     +     .00000,    .00220,    .00331,
     +     .34678,    .11100,    .08383,    .00425,    .00026,
     +     .00000,    .00209,    .00310 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
     +     .33237,    .10591,    .07613,    .00403,    .00027,
     +     .00000,    .00199,    .00293,
     +     .31914,    .10128,    .06945,    .00384,    .00029,
     +     .00000,    .00190,    .00277,
     +     .30915,    .09781,    .06466,    .00370,    .00029,
     +     .00000,    .00183,    .00265,
     +     .28918,    .09090,    .05565,    .00339,    .00031,
     +     .00000,    .00170,    .00243,
     +     .27324,    .08542,    .04896,    .00314,    .00031,
     +     .00002,    .00158,    .00227,
     +     .25668,    .07978,    .04251,    .00289,    .00031,
     +     .00005,    .00147,    .00208,
     +     .24074,    .07439,    .03687,    .00266,    .00031,
     +     .00007,    .00137,    .00191,
     +     .22732,    .06988,    .03253,    .00248,    .00031,
     +     .00008,    .00128,    .00177 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
     +     .21469,    .06567,    .02877,    .00231,    .00031,
     +     .00009,    .00118,    .00164,
     +     .20485,    .06241,    .02606,    .00217,    .00031,
     +     .00009,    .00112,    .00154,
     +     .19364,    .05872,    .02318,    .00201,    .00031,
     +     .00009,    .00104,    .00143,
     +     .18432,    .05567,    .02096,    .00190,    .00030,
     +     .00009,    .00098,    .00134,
     +     .17624,    .05306,    .01916,    .00182,    .00030,
     +     .00009,    .00093,    .00126,
     +     .16663,    .04992,    .01715,    .00166,    .00030,
     +     .00009,    .00087,    .00117,
     +     .15811,    .04719,    .01550,    .00156,    .00029,
     +     .00009,    .00081,    .00109,
     +     .15059,    .04478,    .01413,    .00147,    .00029,
     +     .00009,    .00076,    .00102 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
     +     .14351,    .04252,    .01291,    .00140,    .00028,
     +     .00009,    .00072,    .00096,
     +     .13696,    .04042,    .01185,    .00131,    .00027,
     +     .00009,    .00068,    .00090,
     +     .13108,    .03856,    .01095,    .00123,    .00026,
     +     .00009,    .00065,    .00085,
     +     .12578,    .03689,    .01017,    .00118,    .00026,
     +     .00009,    .00062,    .00081,
     +     .12070,    .03530,    .00947,    .00112,    .00025,
     +     .00009,    .00059,    .00076,
     +     .11593,    .03382,    .00883,    .00106,    .00025,
     +     .00009,    .00055,    .00071,
     +     .11161,    .03247,    .00828,    .00100,    .00025,
     +     .00009,    .00053,    .00068,
     +     .10770,    .03124,    .00780,    .00095,    .00024,
     +     .00009,    .00050,    .00065 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
     +     .10390,    .03007,    .00735,    .00091,    .00024,
     +     .00009,    .00048,    .00062,
     +     .10028,    .02896,    .00694,    .00088,    .00023,
     +     .00009,    .00047,    .00059,
     +     .09696,    .02794,    .00657,    .00085,    .00023,
     +     .00009,    .00045,    .00057,
     +     .09393,    .02700,    .00625,    .00081,    .00023,
     +     .00009,    .00043,    .00055,
     +     .09097,    .02609,    .00594,    .00078,    .00023,
     +     .00009,    .00042,    .00053 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
     +     .47440,    .15332,    .17599,    .00529,    .00000,
     +     .00000,    .00236,    .00362,
     +     .44630,    .14323,    .15390,    .00489,    .00000,
     +     .00000,    .00223,    .00336,
     +     .40894,    .12997,    .12660,    .00441,    .00001,
     +     .00000,    .00203,    .00300,
     +     .38442,    .12138,    .10979,    .00406,    .00007,
     +     .00000,    .00190,    .00279,
     +     .36080,    .11315,    .09483,    .00371,    .00011,
     +     .00000,    .00178,    .00259,
     +     .34190,    .10663,    .08379,    .00347,    .00014,
     +     .00000,    .00168,    .00241,
     +     .32501,    .10085,    .07458,    .00325,    .00016,
     +     .00000,    .00160,    .00226,
     +     .30827,    .09517,    .06609,    .00303,    .00017,
     +     .00000,    .00150,    .00212 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
     +     .29464,    .09059,    .05964,    .00285,    .00019,
     +     .00000,    .00142,    .00200,
     +     .28221,    .08640,    .05411,    .00270,    .00019,
     +     .00000,    .00137,    .00189,
     +     .27282,    .08327,    .05016,    .00259,    .00020,
     +     .00000,    .00132,    .00181,
     +     .25414,    .07707,    .04278,    .00237,    .00020,
     +     .00000,    .00122,    .00164,
     +     .23932,    .07217,    .03736,    .00218,    .00020,
     +     .00001,    .00113,    .00153,
     +     .22394,    .06716,    .03220,    .00201,    .00020,
     +     .00003,    .00103,    .00140,
     +     .20921,    .06239,    .02772,    .00185,    .00020,
     +     .00004,    .00096,    .00127,
     +     .19687,    .05842,    .02431,    .00172,    .00020,
     +     .00005,    .00090,    .00117 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
     +     .18531,    .05471,    .02138,    .00159,    .00020,
     +     .00005,    .00083,    .00110,
     +     .17634,    .05186,    .01928,    .00150,    .00020,
     +     .00005,    .00078,    .00103,
     +     .16614,    .04864,    .01707,    .00139,    .00020,
     +     .00005,    .00073,    .00095,
     +     .15772,    .04598,    .01538,    .00130,    .00020,
     +     .00005,    .00068,    .00088,
     +     .15046,    .04369,    .01400,    .00122,    .00020,
     +     .00005,    .00065,    .00083,
     +     .14176,    .04099,    .01248,    .00112,    .00020,
     +     .00005,    .00060,    .00077,
     +     .13412,    .03863,    .01125,    .00105,    .00020,
     +     .00005,    .00057,    .00072,
     +     .12741,    .03656,    .01022,    .00098,    .00020,
     +     .00005,    .00053,    .00068 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
     +     .12111,    .03462,    .00932,    .00091,    .00020,
     +     .00005,    .00050,    .00064,
     +     .11526,    .03284,    .00853,    .00086,    .00020,
     +     .00005,    .00046,    .00059,
     +     .11003,    .03126,    .00786,    .00081,    .00020,
     +     .00005,    .00043,    .00056,
     +     .10536,    .02984,    .00729,    .00077,    .00020,
     +     .00005,    .00042,    .00053,
     +     .10088,    .02849,    .00677,    .00073,    .00020,
     +     .00005,    .00040,    .00050,
     +     .09668,    .02723,    .00631,    .00071,    .00020,
     +     .00005,    .00037,    .00047,
     +     .09289,    .02609,    .00590,    .00067,    .00020,
     +     .00005,    .00036,    .00044,
     +     .08947,    .02506,    .00555,    .00063,    .00020,
     +     .00005,    .00035,    .00042 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
     +     .08615,    .02407,    .00522,    .00060,    .00020,
     +     .00005,    .00033,    .00040,
     +     .08301,    .02314,    .00492,    .00057,    .00020,
     +     .00005,    .00031,    .00039,
     +     .08012,    .02228,    .00465,    .00054,    .00020,
     +     .00005,    .00030,    .00037,
     +     .07748,    .02150,    .00442,    .00052,    .00020,
     +     .00005,    .00029,    .00036,
     +     .07492,    .02075,    .00419,    .00050,    .00020,
     +     .00005,    .00028,    .00034 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
     +     .42873,    .13379,    .14742,    .00404,    .00000,
     +     .00000,    .00161,    .00239,
     +     .40176,    .12452,    .12745,    .00371,    .00000,
     +     .00000,    .00151,    .00221,
     +     .36610,    .11239,    .10324,    .00332,    .00001,
     +     .00000,    .00137,    .00196,
     +     .34282,    .10456,    .08860,    .00305,    .00004,
     +     .00000,    .00128,    .00181,
     +     .32048,    .09710,    .07571,    .00279,    .00007,
     +     .00000,    .00119,    .00165,
     +     .30267,    .09124,    .06636,    .00262,    .00009,
     +     .00000,    .00112,    .00154,
     +     .28686,    .08605,    .05864,    .00244,    .00010,
     +     .00000,    .00106,    .00142,
     +     .27123,    .08096,    .05158,    .00227,    .00011,
     +     .00000,    .00099,    .00132 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
     +     .25852,    .07685,    .04626,    .00215,    .00012,
     +     .00000,    .00093,    .00125,
     +     .24700,    .07313,    .04173,    .00205,    .00012,
     +     .00000,    .00089,    .00117,
     +     .23834,    .07034,    .03851,    .00194,    .00013,
     +     .00000,    .00085,    .00112,
     +     .22112,    .06484,    .03257,    .00175,    .00013,
     +     .00000,    .00077,    .00102,
     +     .20748,    .06053,    .02825,    .00162,    .00013,
     +     .00001,    .00071,    .00094,
     +     .19346,    .05611,    .02417,    .00147,    .00013,
     +     .00002,    .00065,    .00087,
     +     .18008,    .05194,    .02068,    .00135,    .00013,
     +     .00002,    .00060,    .00078,
     +     .16889,    .04848,    .01803,    .00126,    .00013,
     +     .00002,    .00056,    .00072 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
     +     .15848,    .04526,    .01578,    .00115,    .00013,
     +     .00002,    .00052,    .00067,
     +     .15041,    .04280,    .01417,    .00108,    .00013,
     +     .00002,    .00049,    .00061,
     +     .14125,    .04001,    .01249,    .00100,    .00013,
     +     .00002,    .00045,    .00056,
     +     .13369,    .03773,    .01122,    .00094,    .00013,
     +     .00002,    .00042,    .00053,
     +     .12720,    .03578,    .01018,    .00089,    .00013,
     +     .00002,    .00040,    .00050,
     +     .11951,    .03346,    .00904,    .00082,    .00013,
     +     .00002,    .00037,    .00046,
     +     .11274,    .03144,    .00812,    .00077,    .00013,
     +     .00002,    .00034,    .00042,
     +     .10681,    .02969,    .00736,    .00072,    .00013,
     +     .00002,    .00032,    .00039 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
     +     .10126,    .02805,    .00669,    .00068,    .00013,
     +     .00002,    .00030,    .00036,
     +     .09613,    .02653,    .00611,    .00063,    .00013,
     +     .00002,    .00028,    .00035,
     +     .09156,    .02519,    .00562,    .00060,    .00013,
     +     .00002,    .00026,    .00033,
     +     .08748,    .02399,    .00521,    .00057,    .00013,
     +     .00002,    .00025,    .00031,
     +     .08360,    .02286,    .00483,    .00054,    .00013,
     +     .00002,    .00023,    .00029,
     +     .07997,    .02181,    .00449,    .00050,    .00013,
     +     .00002,    .00022,    .00027,
     +     .07667,    .02086,    .00419,    .00048,    .00013,
     +     .00002,    .00021,    .00025,
     +     .07370,    .02000,    .00394,    .00046,    .00013,
     +     .00002,    .00020,    .00024 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
     +     .07083,    .01917,    .00370,    .00043,    .00013,
     +     .00002,    .00019,    .00023,
     +     .06814,    .01839,    .00348,    .00041,    .00013,
     +     .00002,    .00018,    .00022,
     +     .06566,    .01768,    .00329,    .00038,    .00013,
     +     .00002,    .00017,    .00022,
     +     .06339,    .01704,    .00312,    .00037,    .00013,
     +     .00002,    .00016,    .00021,
     +     .06120,    .01642,    .00296,    .00036,    .00013,
     +     .00002,    .00015,    .00020 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
     +     .38312,    .11506,    .12110,    .00282,    .00000,
     +     .00000,    .00119,    .00163,
     +     .35755,    .10667,    .10347,    .00258,    .00000,
     +     .00000,    .00108,    .00152,
     +     .32393,    .09577,    .08245,    .00231,    .00001,
     +     .00000,    .00098,    .00130,
     +     .30211,    .08876,    .07004,    .00210,    .00003,
     +     .00000,    .00090,    .00120,
     +     .28127,    .08211,    .05921,    .00191,    .00005,
     +     .00000,    .00083,    .00110,
     +     .26480,    .07689,    .05145,    .00177,    .00006,
     +     .00000,    .00078,    .00101,
     +     .25013,    .07230,    .04512,    .00167,    .00006,
     +     .00000,    .00072,    .00094,
     +     .23572,    .06781,    .03939,    .00155,    .00007,
     +     .00000,    .00067,    .00087 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
     +     .22409,    .06419,    .03510,    .00145,    .00007,
     +     .00000,    .00063,    .00082,
     +     .21354,    .06093,    .03147,    .00136,    .00007,
     +     .00000,    .00060,    .00076,
     +     .20564,    .05850,    .02892,    .00130,    .00007,
     +     .00000,    .00057,    .00072,
     +     .18997,    .05369,    .02425,    .00118,    .00007,
     +     .00000,    .00052,    .00067,
     +     .17762,    .04995,    .02089,    .00109,    .00007,
     +     .00000,    .00048,    .00061,
     +     .16497,    .04615,    .01775,    .00100,    .00007,
     +     .00000,    .00045,    .00053,
     +     .15297,    .04255,    .01509,    .00091,    .00007,
     +     .00000,    .00041,    .00050,
     +     .14296,    .03957,    .01308,    .00084,    .00007,
     +     .00000,    .00037,    .00047 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
     +     .13366,    .03683,    .01139,    .00077,    .00007,
     +     .00000,    .00034,    .00041,
     +     .12648,    .03472,    .01020,    .00072,    .00007,
     +     .00000,    .00032,    .00040,
     +     .11842,    .03235,    .00895,    .00066,    .00007,
     +     .00000,    .00029,    .00037,
     +     .11179,    .03042,    .00800,    .00061,    .00007,
     +     .00000,    .00027,    .00034,
     +     .10610,    .02877,    .00725,    .00057,    .00007,
     +     .00000,    .00024,    .00032,
     +     .09933,    .02683,    .00641,    .00054,    .00007,
     +     .00000,    .00022,    .00029,
     +     .09345,    .02513,    .00574,    .00049,    .00007,
     +     .00000,    .00022,    .00026,
     +     .08830,    .02366,    .00519,    .00045,    .00007,
     +     .00000,    .00020,    .00024 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
     +     .08347,    .02230,    .00471,    .00043,    .00007,
     +     .00000,    .00019,    .00023,
     +     .07904,    .02104,    .00429,    .00040,    .00007,
     +     .00000,    .00018,    .00022,
     +     .07510,    .01993,    .00394,    .00038,    .00007,
     +     .00000,    .00016,    .00020,
     +     .07159,    .01894,    .00364,    .00036,    .00007,
     +     .00000,    .00015,    .00019,
     +     .06825,    .01801,    .00337,    .00034,    .00007,
     +     .00000,    .00015,    .00018,
     +     .06514,    .01714,    .00313,    .00032,    .00007,
     +     .00000,    .00014,    .00017,
     +     .06233,    .01636,    .00292,    .00031,    .00007,
     +     .00000,    .00013,    .00016,
     +     .05980,    .01566,    .00274,    .00029,    .00007,
     +     .00000,    .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)/
     +     .05736,    .01498,    .00257,    .00028,    .00007,
     +     .00000,    .00012,    .00015,
     +     .05506,    .01435,    .00242,    .00026,    .00007,
     +     .00000,    .00011,    .00014,
     +     .05297,    .01377,    .00228,    .00025,    .00007,
     +     .00000,    .00011,    .00014,
     +     .05105,    .01325,    .00216,    .00025,    .00007,
     +     .00000,    .00010,    .00013,
     +     .04920,    .01275,    .00205,    .00024,    .00007,
     +     .00000,    .00010,    .00012 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
     +     .33835,    .09781,    .09751,    .00194,    .00000,
     +     .00000,    .00084,    .00107,
     +     .31444,    .09031,    .08231,    .00178,    .00000,
     +     .00000,    .00077,    .00097,
     +     .28324,    .08061,    .06455,    .00155,    .00000,
     +     .00000,    .00067,    .00085,
     +     .26312,    .07439,    .05420,    .00141,    .00002,
     +     .00000,    .00062,    .00079,
     +     .24396,    .06854,    .04533,    .00127,    .00003,
     +     .00000,    .00058,    .00071,
     +     .22886,    .06398,    .03905,    .00118,    .00003,
     +     .00000,    .00053,    .00066,
     +     .21550,    .05996,    .03398,    .00110,    .00003,
     +     .00000,    .00049,    .00061,
     +     .20240,    .05605,    .02944,    .00102,    .00003,
     +     .00000,    .00046,    .00056 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
     +     .19184,    .05292,    .02607,    .00096,    .00003,
     +     .00000,    .00043,    .00053,
     +     .18232,    .05010,    .02325,    .00090,    .00003,
     +     .00000,    .00040,    .00050,
     +     .17522,    .04799,    .02127,    .00085,    .00003,
     +     .00000,    .00038,    .00048,
     +     .16119,    .04387,    .01769,    .00075,    .00003,
     +     .00000,    .00035,    .00044,
     +     .15017,    .04067,    .01514,    .00069,    .00003,
     +     .00000,    .00033,    .00039,
     +     .13891,    .03742,    .01277,    .00064,    .00003,
     +     .00000,    .00030,    .00035,
     +     .12828,    .03437,    .01079,    .00057,    .00003,
     +     .00000,    .00026,    .00032,
     +     .11947,    .03186,    .00931,    .00052,    .00003,
     +     .00000,    .00024,    .00030 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
     +     .11132,    .02954,    .00807,    .00048,    .00003,
     +     .00000,    .00023,    .00027,
     +     .10507,    .02777,    .00719,    .00044,    .00003,
     +     .00000,    .00021,    .00025,
     +     .09803,    .02579,    .00629,    .00040,    .00003,
     +     .00000,    .00019,    .00023,
     +     .09226,    .02418,    .00561,    .00037,    .00003,
     +     .00000,    .00017,    .00021,
     +     .08732,    .02281,    .00507,    .00035,    .00003,
     +     .00000,    .00016,    .00020,
     +     .08149,    .02119,    .00447,    .00033,    .00003,
     +     .00000,    .00016,    .00018,
     +     .07642,    .01980,    .00399,    .00030,    .00003,
     +     .00000,    .00015,    .00016,
     +     .07201,    .01859,    .00360,    .00028,    .00003,
     +     .00000,    .00014,    .00015 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
     +     .06788,    .01747,    .00326,    .00027,    .00003,
     +     .00000,    .00013,    .00014,
     +     .06410,    .01644,    .00296,    .00025,    .00003,
     +     .00000,    .00011,    .00013,
     +     .06076,    .01554,    .00272,    .00023,    .00003,
     +     .00000,    .00011,    .00012,
     +     .05779,    .01473,    .00251,    .00021,    .00003,
     +     .00000,    .00010,    .00011,
     +     .05497,    .01397,    .00232,    .00020,    .00003,
     +     .00000,    .00009,    .00011,
     +     .05236,    .01327,    .00215,    .00018,    .00003,
     +     .00000,    .00009,    .00010,
     +     .04998,    .01264,    .00200,    .00018,    .00003,
     +     .00000,    .00008,    .00010,
     +     .04784,    .01207,    .00187,    .00017,    .00003,
     +     .00000,    .00008,    .00009 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
     +     .04581,    .01153,    .00176,    .00016,    .00003,
     +     .00000,    .00007,    .00008,
     +     .04390,    .01102,    .00165,    .00014,    .00003,
     +     .00000,    .00007,    .00008,
     +     .04216,    .01056,    .00156,    .00013,    .00003,
     +     .00000,    .00007,    .00008,
     +     .04056,    .01014,    .00147,    .00013,    .00003,
     +     .00000,    .00006,    .00008,
     +     .03902,    .00974,    .00139,    .00013,    .00003,
     +     .00000,    .00006,    .00007 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
     +     .29518,    .08218,    .07680,    .00139,    .00000,
     +     .00000,    .00051,    .00066,
     +     .27321,    .07556,    .06407,    .00125,    .00000,
     +     .00000,    .00048,    .00060,
     +     .24468,    .06705,    .04942,    .00107,    .00000,
     +     .00000,    .00041,    .00053,
     +     .22636,    .06165,    .04107,    .00098,    .00001,
     +     .00000,    .00038,    .00048,
     +     .20897,    .05658,    .03399,    .00088,    .00001,
     +     .00000,    .00035,    .00042,
     +     .19536,    .05263,    .02905,    .00082,    .00001,
     +     .00000,    .00031,    .00038,
     +     .18339,    .04917,    .02510,    .00075,    .00001,
     +     .00000,    .00030,    .00036,
     +     .17169,    .04581,    .02158,    .00070,    .00001,
     +     .00000,    .00028,    .00033 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
     +     .16228,    .04313,    .01900,    .00066,    .00001,
     +     .00000,    .00026,    .00031,
     +     .15384,    .04072,    .01686,    .00060,    .00001,
     +     .00000,    .00025,    .00028,
     +     .14753,    .03893,    .01537,    .00057,    .00001,
     +     .00000,    .00024,    .00027,
     +     .13510,    .03543,    .01268,    .00051,    .00001,
     +     .00000,    .00020,    .00026,
     +     .12541,    .03273,    .01078,    .00046,    .00001,
     +     .00000,    .00018,    .00024,
     +     .11556,    .03000,    .00905,    .00042,    .00001,
     +     .00000,    .00017,    .00021,
     +     .10629,    .02744,    .00759,    .00039,    .00001,
     +     .00000,    .00015,    .00018,
     +     .09865,    .02535,    .00652,    .00035,    .00001,
     +     .00000,    .00014,    .00016 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
     +     .09159,    .02343,    .00563,    .00033,    .00001,
     +     .00000,    .00013,    .00014,
     +     .08620,    .02196,    .00501,    .00029,    .00001,
     +     .00000,    .00012,    .00014,
     +     .08014,    .02033,    .00436,    .00027,    .00001,
     +     .00000,    .00010,    .00012,
     +     .07519,    .01901,    .00388,    .00025,    .00001,
     +     .00000,    .00009,    .00011,
     +     .07098,    .01789,    .00350,    .00024,    .00001,
     +     .00000,    .00009,    .00010,
     +     .06602,    .01656,    .00308,    .00022,    .00001,
     +     .00000,    .00008,    .00010,
     +     .06172,    .01543,    .00274,    .00020,    .00001,
     +     .00000,    .00007,    .00009,
     +     .05799,    .01444,    .00247,    .00019,    .00001,
     +     .00000,    .00007,    .00009 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
     +     .05453,    .01353,    .00223,    .00018,    .00001,
     +     .00000,    .00006,    .00008,
     +     .05137,    .01270,    .00203,    .00016,    .00001,
     +     .00000,    .00006,    .00007,
     +     .04856,    .01197,    .00185,    .00015,    .00001,
     +     .00000,    .00005,    .00007,
     +     .04607,    .01132,    .00171,    .00014,    .00001,
     +     .00000,    .00005,    .00007,
     +     .04371,    .01072,    .00158,    .00014,    .00001,
     +     .00000,    .00005,    .00006,
     +     .04153,    .01016,    .00146,    .00013,    .00001,
     +     .00000,    .00005,    .00005,
     +     .03958,    .00965,    .00136,    .00012,    .00001,
     +     .00000,    .00004,    .00005,
     +     .03784,    .00920,    .00127,    .00010,    .00001,
     +     .00000,    .00004,    .00005 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
     +     .03615,    .00877,    .00119,    .00010,    .00001,
     +     .00000,    .00004,    .00005,
     +     .03456,    .00837,    .00112,    .00010,    .00001,
     +     .00000,    .00004,    .00004,
     +     .03312,    .00800,    .00105,    .00010,    .00001,
     +     .00000,    .00003,    .00004,
     +     .03181,    .00767,    .00100,    .00009,    .00001,
     +     .00000,    .00003,    .00004,
     +     .03055,    .00736,    .00094,    .00009,    .00001,
     +     .00000,    .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)/
     +     .25383,    .06781,    .05866,    .00085,    .00000,
     +     .00000,    .00038,    .00045,
     +     .23392,    .06209,    .04835,    .00076,    .00000,
     +     .00000,    .00034,    .00040,
     +     .20823,    .05477,    .03669,    .00064,    .00000,
     +     .00000,    .00028,    .00035,
     +     .19181,    .05016,    .03018,    .00059,    .00000,
     +     .00000,    .00027,    .00030,
     +     .17631,    .04584,    .02474,    .00054,    .00000,
     +     .00000,    .00024,    .00027,
     +     .16424,    .04248,    .02096,    .00049,    .00000,
     +     .00000,    .00022,    .00026,
     +     .15365,    .03955,    .01797,    .00045,    .00000,
     +     .00000,    .00021,    .00024,
     +     .14334,    .03672,    .01534,    .00041,    .00000,
     +     .00000,    .00018,    .00022 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
     +     .13510,    .03447,    .01343,    .00038,    .00000,
     +     .00000,    .00016,    .00021,
     +     .12768,    .03246,    .01185,    .00036,    .00000,
     +     .00000,    .00015,    .00019,
     +     .12217,    .03097,    .01076,    .00033,    .00000,
     +     .00000,    .00015,    .00018,
     +     .11138,    .02807,    .00881,    .00030,    .00000,
     +     .00000,    .00013,    .00016,
     +     .10301,    .02583,    .00745,    .00027,    .00000,
     +     .00000,    .00012,    .00014,
     +     .09453,    .02356,    .00622,    .00024,    .00000,
     +     .00000,    .00011,    .00013,
     +     .08656,    .02147,    .00519,    .00022,    .00000,
     +     .00000,    .00010,    .00012,
     +     .08002,    .01976,    .00444,    .00020,    .00000,
     +     .00000,    .00009,    .00011 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
     +     .07402,    .01819,    .00382,    .00018,    .00000,
     +     .00000,    .00008,    .00010,
     +     .06946,    .01701,    .00339,    .00016,    .00000,
     +     .00000,    .00007,    .00009,
     +     .06434,    .01569,    .00295,    .00015,    .00000,
     +     .00000,    .00007,    .00008,
     +     .06018,    .01462,    .00261,    .00014,    .00000,
     +     .00000,    .00006,    .00007,
     +     .05666,    .01371,    .00235,    .00013,    .00000,
     +     .00000,    .00006,    .00006,
     +     .05252,    .01266,    .00206,    .00012,    .00000,
     +     .00000,    .00005,    .00006,
     +     .04894,    .01175,    .00184,    .00011,    .00000,
     +     .00000,    .00005,    .00006,
     +     .04584,    .01097,    .00165,    .00010,    .00000,
     +     .00000,    .00004,    .00005 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
     +     .04297,    .01025,    .00149,    .00010,    .00000,
     +     .00000,    .00004,    .00004,
     +     .04036,    .00959,    .00135,    .00009,    .00000,
     +     .00000,    .00004,    .00004,
     +     .03806,    .00902,    .00123,    .00008,    .00000,
     +     .00000,    .00004,    .00004,
     +     .03603,    .00851,    .00114,    .00007,    .00000,
     +     .00000,    .00003,    .00004,
     +     .03410,    .00804,    .00105,    .00007,    .00000,
     +     .00000,    .00003,    .00003,
     +     .03232,    .00759,    .00097,    .00007,    .00000,
     +     .00000,    .00003,    .00004,
     +     .03073,    .00720,    .00090,    .00006,    .00000,
     +     .00000,    .00003,    .00003,
     +     .02931,    .00685,    .00084,    .00006,    .00000,
     +     .00000,    .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)/
     +     .02795,    .00651,    .00079,    .00006,    .00000,
     +     .00000,    .00003,    .00003,
     +     .02667,    .00620,    .00074,    .00005,    .00000,
     +     .00000,    .00002,    .00003,
     +     .02551,    .00592,    .00069,    .00005,    .00000,
     +     .00000,    .00002,    .00002,
     +     .02446,    .00567,    .00066,    .00005,    .00000,
     +     .00000,    .00002,    .00002,
     +     .02345,    .00542,    .00062,    .00004,    .00000,
     +     .00000,    .00002,    .00002 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
     +     .17943,    .04409,    .03117,    .00036,    .00000,
     +     .00000,    .00013,    .00015,
     +     .16387,    .04001,    .02509,    .00031,    .00000,
     +     .00000,    .00011,    .00013,
     +     .14401,    .03484,    .01845,    .00025,    .00000,
     +     .00000,    .00009,    .00013,
     +     .13149,    .03162,    .01486,    .00022,    .00000,
     +     .00000,    .00009,    .00010,
     +     .11976,    .02864,    .01195,    .00020,    .00000,
     +     .00000,    .00008,    .00009,
     +     .11073,    .02634,    .00998,    .00018,    .00000,
     +     .00000,    .00007,    .00009,
     +     .10285,    .02435,    .00844,    .00016,    .00000,
     +     .00000,    .00006,    .00009,
     +     .09525,    .02245,    .00712,    .00014,    .00000,
     +     .00000,    .00005,    .00008 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
     +     .08921,    .02094,    .00616,    .00013,    .00000,
     +     .00000,    .00005,    .00007,
     +     .08383,    .01961,    .00539,    .00012,    .00000,
     +     .00000,    .00006,    .00006,
     +     .07985,    .01862,    .00486,    .00011,    .00000,
     +     .00000,    .00005,    .00006,
     +     .07210,    .01671,    .00394,    .00010,    .00000,
     +     .00000,    .00005,    .00005,
     +     .06614,    .01526,    .00330,    .00009,    .00000,
     +     .00000,    .00004,    .00004,
     +     .06016,    .01381,    .00273,    .00008,    .00000,
     +     .00000,    .00004,    .00004,
     +     .05461,    .01247,    .00226,    .00008,    .00000,
     +     .00000,    .00003,    .00004,
     +     .05010,    .01139,    .00192,    .00007,    .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=17,24)/
     +     .04600,    .01040,    .00165,    .00006,    .00000,
     +     .00000,    .00003,    .00003,
     +     .04288,    .00966,    .00145,    .00005,    .00000,
     +     .00000,    .00002,    .00003,
     +     .03943,    .00885,    .00126,    .00005,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03663,    .00819,    .00111,    .00005,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03428,    .00764,    .00100,    .00005,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03155,    .00700,    .00088,    .00004,    .00000,
     +     .00000,    .00002,    .00002,
     +     .02920,    .00646,    .00078,    .00003,    .00000,
     +     .00000,    .00002,    .00002,
     +     .02718,    .00599,    .00070,    .00004,    .00000,
     +     .00000,    .00002,    .00002 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
     +     .02533,    .00556,    .00063,    .00004,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02366,    .00518,    .00057,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02219,    .00484,    .00052,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02089,    .00454,    .00048,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01967,    .00427,    .00044,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01855,    .00401,    .00040,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01755,    .00379,    .00037,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01667,    .00359,    .00035,    .00001,    .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)/
     +     .01582,    .00340,    .00033,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01503,    .00322,    .00031,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01431,    .00306,    .00029,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01368,    .00292,    .00027,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01306,    .00278,    .00025,    .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)/
     +     .11760,    .02634,    .01407,    .00013,    .00000,
     +     .00000,    .00003,    .00004,
     +     .10634,    .02367,    .01108,    .00011,    .00000,
     +     .00000,    .00003,    .00004,
     +     .09216,    .02034,    .00793,    .00009,    .00000,
     +     .00000,    .00003,    .00003,
     +     .08333,    .01828,    .00627,    .00008,    .00000,
     +     .00000,    .00002,    .00002,
     +     .07517,    .01640,    .00496,    .00006,    .00000,
     +     .00000,    .00002,    .00002,
     +     .06891,    .01496,    .00409,    .00006,    .00000,
     +     .00000,    .00002,    .00002,
     +     .06352,    .01372,    .00342,    .00006,    .00000,
     +     .00000,    .00001,    .00002,
     +     .05837,    .01255,    .00286,    .00004,    .00000,
     +     .00000,    .00001,    .00002 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
     +     .05431,    .01163,    .00246,    .00004,    .00000,
     +     .00000,    .00001,    .00002,
     +     .05069,    .01082,    .00214,    .00005,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04804,    .01023,    .00192,    .00005,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04294,    .00909,    .00154,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03905,    .00822,    .00129,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03519,    .00737,    .00106,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03165,    .00659,    .00087,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02879,    .00597,    .00074,    .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=17,24)/
     +     .02620,    .00541,    .00063,    .00002,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02426,    .00499,    .00056,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02212,    .00453,    .00048,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02041,    .00417,    .00043,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01899,    .00386,    .00038,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01733,    .00351,    .00033,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01592,    .00322,    .00030,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01472,    .00296,    .00027,    .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)/
     +     .01363,    .00273,    .00024,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01264,    .00253,    .00022,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01178,    .00235,    .00020,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01103,    .00219,    .00018,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01033,    .00205,    .00017,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00969,    .00192,    .00015,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00912,    .00180,    .00014,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00862,    .00170,    .00013,    .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)/
     +     .00814,    .00160,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00770,    .00151,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00731,    .00143,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00695,    .00136,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00661,    .00129,    .00009,    .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)/
     +     .06979,    .01408,    .00513,    .00004,    .00000,
     +     .00000,    .00000,    .00001,
     +     .06242,    .01251,    .00397,    .00004,    .00000,
     +     .00000,    .00000,    .00000,
     +     .05324,    .01059,    .00277,    .00004,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04762,    .00942,    .00216,    .00002,    .00000,
     +     .00000,    .00000,    .00001,
     +     .04249,    .00835,    .00169,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03859,    .00755,    .00138,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03527,    .00687,    .00115,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03212,    .00623,    .00096,    .00001,    .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=9,16)/
     +     .02965,    .00573,    .00082,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02748,    .00529,    .00071,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02591,    .00497,    .00064,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02288,    .00437,    .00051,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02060,    .00391,    .00043,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01837,    .00347,    .00035,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01634,    .00307,    .00029,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01472,    .00275,    .00025,    .00001,    .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)/
     +     .01327,    .00247,    .00021,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01220,    .00226,    .00019,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01102,    .00204,    .00016,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01009,    .00186,    .00014,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00932,    .00171,    .00013,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00843,    .00154,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00768,    .00140,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00705,    .00128,    .00009,    .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)/
     +     .00647,    .00117,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00596,    .00108,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00552,    .00099,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00514,    .00092,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00478,    .00086,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00446,    .00080,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00417,    .00074,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00392,    .00070,    .00004,    .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)/
     +     .00368,    .00065,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00346,    .00061,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00327,    .00058,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00310,    .00055,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00293,    .00052,    .00003,    .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)/
     +     .03586,    .00638,    .00138,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03166,    .00560,    .00106,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02652,    .00466,    .00073,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02343,    .00409,    .00057,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02062,    .00358,    .00044,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01854,    .00320,    .00036,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01677,    .00289,    .00030,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01512,    .00259,    .00025,    .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)/
     +     .01383,    .00236,    .00022,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01271,    .00216,    .00019,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01190,    .00202,    .00017,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01037,    .00175,    .00014,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00924,    .00155,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00813,    .00136,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00714,    .00119,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00636,    .00105,    .00007,    .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)/
     +     .00567,    .00094,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00517,    .00085,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00462,    .00076,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00419,    .00068,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00383,    .00062,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00343,    .00056,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00310,    .00050,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00282,    .00045,    .00002,    .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)/
     +     .00256,    .00041,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00234,    .00037,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00215,    .00034,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00199,    .00032,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00183,    .00029,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00170,    .00027,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00158,    .00025,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00147,    .00023,    .00001,    .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)/
     +     .00138,    .00022,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00129,    .00020,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00121,    .00019,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00114,    .00018,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00107,    .00017,    .00001,    .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)/
     +     .00412,    .00051,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00350,    .00043,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00278,    .00034,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00237,    .00029,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00201,    .00024,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00175,    .00021,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00154,    .00019,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00135,    .00016,    .00001,    .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)/
     +     .00120,    .00014,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00108,    .00013,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00099,    .00012,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00083,    .00010,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00071,    .00008,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00061,    .00007,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00051,    .00006,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00044,    .00005,    .00000,    .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)/
     +     .00038,    .00004,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00034,    .00004,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00029,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00026,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00023,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00020,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00018,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00016,    .00002,    .00000,    .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)/
     +     .00014,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00012,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00011,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00010,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00009,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00008,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00007,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00007,    .00001,    .00000,    .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)/
     +     .00006,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00006,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00005,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00005,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00004,    .00001,    .00000,    .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='ft23a.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