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

sfmrs_99a6.F

#include "pdf/pilot.h"
      subroutine sfmrs_99a6(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)/
     +     .00497,    .00177,   1.15210,    .89336,    .00000,
     +     .00000,    .47667,    .90539,
     +     .00513,    .00183,   2.47205,    .93052,    .00000,
     +     .00000,    .51900,    .94263,
     +     .00537,    .00192,   5.03464,   1.01120,    .00000,
     +     .00000,    .60700,   1.02342,
     +     .00554,    .00199,   7.43318,   1.08834,    .04830,
     +     .00000,    .68924,   1.10062,
     +     .00572,    .00207,  10.34505,   1.18713,    .16725,
     +     .00000,    .79318,   1.19948,
     +     .00588,    .00213,  13.33317,   1.28929,    .27343,
     +     .00000,    .89967,   1.30168,
     +     .00603,    .00220,  16.68069,   1.40013,    .39316,
     +     .00000,   1.01455,   1.41255,
     +     .00619,    .00227,  20.78683,   1.53255,    .53848,
     +     .00000,   1.15116,   1.54500 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
     +     .00633,    .00233,  24.80729,   1.66186,    .67612,
     +     .00000,   1.28403,   1.67433,
     +     .00647,    .00239,  29.09272,   1.79950,    .82038,
     +     .00000,   1.42504,   1.81200,
     +     .00658,    .00244,  32.87029,   1.91693,    .94795,
     +     .00000,   1.54509,   1.92944,
     +     .00681,    .00254,  41.55747,   2.19668,   1.24255,
     +     .04991,   1.83027,   2.20920,
     +     .00702,    .00263,  49.69793,   2.46693,   1.52425,
     +     .38292,   2.10503,   2.47945,
     +     .00725,    .00274,  60.02327,   2.80539,   1.87769,
     +     .78330,   2.44842,   2.81792,
     +     .00749,    .00285,  72.15387,   3.19814,   2.28702,
     +    1.21100,   2.84615,   3.21066,
     +     .00771,    .00295,  84.41103,   3.59208,   2.69672,
     +    1.63845,   3.24448,   3.60459 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
     +     .00794,    .00306,  98.05283,   4.02809,   3.14997,
     +    2.11006,   3.68481,   4.04058,
     +     .00813,    .00314, 110.37105,   4.42044,   3.55744,
     +    2.53295,   4.08066,   4.43291,
     +     .00836,    .00325, 126.40661,   4.93327,   4.08603,
     +    3.07418,   4.59765,   4.94571,
     +     .00857,    .00335, 141.74768,   5.42313,   4.59147,
     +    3.59405,   5.09109,   5.43554,
     +     .00876,    .00344, 156.87645,   5.90443,   5.08999,
     +    4.11059,   5.57562,   5.91681,
     +     .00900,    .00356, 177.12810,   6.55537,   5.75793,
     +    4.79199,   6.23056,   6.56771,
     +     .00924,    .00367, 197.54942,   7.21308,   6.43328,
     +    5.48291,   6.89194,   7.22538,
     +     .00946,    .00378, 217.98642,   7.87198,   7.11103,
     +    6.17877,   7.55422,   7.88424 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
     +     .00968,    .00389, 239.41856,   8.56906,   7.82488,
     +    6.90709,   8.25459,   8.58128,
     +     .00990,    .00399, 261.50864,   9.29117,   8.56406,
     +    7.66150,   8.97986,   9.30333,
     +     .01011,    .00410, 283.60461,  10.01490,   9.30620,
     +    8.42130,   9.70653,  10.02702,
     +     .01031,    .00419, 305.01801,  10.72516,  10.03058,
     +    9.15741,  10.41951,  10.73724,
     +     .01051,    .00429, 327.75452,  11.47855,  10.80199,
     +    9.94631,  11.17559,  11.49058,
     +     .01071,    .00439, 350.58826,  12.24562,  11.58317,
     +   10.73938,  11.94526,  12.25760,
     +     .01090,    .00449, 373.44971,  13.01297,  12.36754,
     +   11.54034,  12.71502,  13.02490,
     +     .01109,    .00458, 395.37778,  13.75926,  13.12668,
     +   12.31038,  13.46359,  13.77115 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
     +     .01127,    .00467, 418.56946,  14.54795,  13.93157,
     +   13.13096,  14.25452,  14.55980,
     +     .01146,    .00476, 441.74615,  15.34638,  14.74331,
     +   13.95443,  15.05515,  15.35818,
     +     .01164,    .00485, 464.72070,  16.13945,  15.55091,
     +   14.77582,  15.85027,  16.15120,
     +     .01181,    .00494, 486.97900,  16.91376,  16.33856,
     +   15.57600,  16.62651,  16.92547,
     +     .01198,    .00503, 509.94702,  17.71894,  17.15668,
     +   16.40602,  17.43362,  17.73061 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
     +     .00674,    .00246,   1.07231,    .76209,    .00000,
     +     .00000,    .40603,    .76909,
     +     .00696,    .00255,   2.26038,    .79622,    .00000,
     +     .00000,    .44423,    .80326,
     +     .00729,    .00269,   4.51702,    .86720,    .00000,
     +     .00000,    .52098,    .87430,
     +     .00754,    .00280,   6.58703,    .93350,    .04105,
     +     .00000,    .59129,    .94064,
     +     .00779,    .00291,   9.05823,   1.01709,    .14163,
     +     .00000,    .67892,   1.02425,
     +     .00801,    .00301,  11.55681,   1.10236,    .23019,
     +     .00000,    .76758,   1.10955,
     +     .00822,    .00310,  14.32226,   1.19408,    .32913,
     +     .00000,    .86248,   1.20129,
     +     .00845,    .00320,  17.67462,   1.30278,    .44817,
     +     .00000,    .97445,   1.31001 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
     +     .00864,    .00329,  20.92012,   1.40804,    .55992,
     +     .00000,   1.08250,   1.41529,
     +     .00883,    .00338,  24.34522,   1.51927,    .67616,
     +     .00000,   1.19636,   1.52653,
     +     .00899,    .00345,  27.34146,   1.61372,    .77840,
     +     .00000,   1.29285,   1.62098,
     +     .00931,    .00360,  34.14922,   1.83677,   1.01238,
     +     .04013,   1.52014,   1.84404,
     +     .00959,    .00373,  40.43729,   2.05021,   1.23391,
     +     .30140,   1.73709,   2.05748,
     +     .00991,    .00388,  48.31535,   2.31515,   1.50930,
     +     .61356,   2.00587,   2.32243,
     +     .01024,    .00404,  57.45286,   2.61968,   1.82517,
     +     .94323,   2.31427,   2.62696,
     +     .01055,    .00419,  66.57521,   2.92242,   2.13845,
     +    1.26964,   2.62042,   2.92969 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
     +     .01086,    .00434,  76.61635,   3.25472,   2.48216,
     +    1.62666,   2.95608,   3.26199,
     +     .01112,    .00447,  85.59460,   3.55153,   2.78884,
     +    1.94435,   3.25561,   3.55879,
     +     .01144,    .00462,  97.16595,   3.93651,   3.18360,
     +    2.34764,   3.64381,   3.94375,
     +     .01172,    .00476, 108.13094,   4.30154,   3.55834,
     +    2.73221,   4.01163,   4.30877,
     +     .01198,    .00489, 118.85684,   4.65794,   3.92568,
     +    3.11203,   4.37052,   4.66516,
     +     .01232,    .00506, 133.07704,   5.13635,   4.41410,
     +    3.60902,   4.85204,   5.14356,
     +     .01264,    .00521, 147.28285,   5.61618,   4.90440,
     +    4.10936,   5.33472,   5.62337,
     +     .01293,    .00536, 161.38051,   6.09369,   5.39326,
     +    4.61008,   5.81484,   6.10086 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
     +     .01324,    .00551, 176.03821,   6.59545,   5.90465,
     +    5.13048,   6.31916,   6.60260,
     +     .01353,    .00566, 191.02635,   7.11194,   6.43091,
     +    5.66620,   6.83810,   7.11907,
     +     .01382,    .00581, 205.91228,   7.62662,   6.95638,
     +    6.20286,   7.35505,   7.63373,
     +     .01409,    .00594, 220.22716,   8.12867,   7.46609,
     +    6.71942,   7.85921,   8.13575,
     +     .01436,    .00608, 235.33824,   8.65862,   8.00646,
     +    7.27071,   8.39124,   8.66569,
     +     .01463,    .00622, 250.40137,   9.19508,   8.55041,
     +    7.82144,   8.92971,   9.20212,
     +     .01489,    .00635, 265.40344,   9.72933,   9.09435,
     +    8.37556,   9.46585,   9.73635,
     +     .01514,    .00648, 279.69492,  10.24618,   9.61791,
     +    8.90520,   9.98446,  10.25319 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
     +     .01539,    .00661, 294.74033,  10.79024,  10.17103,
     +    9.46775,  10.53027,  10.79723,
     +     .01564,    .00673, 309.67938,  11.33826,  10.72596,
     +   10.02923,  11.07998,  11.34522,
     +     .01588,    .00686, 324.41992,  11.88047,  11.27606,
     +   10.58736,  11.62379,  11.88741,
     +     .01611,    .00698, 338.62619,  12.40765,  11.81034,
     +   11.12880,  12.15247,  12.41457,
     +     .01634,    .00710, 353.21179,  12.95363,  12.36305,
     +   11.68814,  12.69995,  12.96054 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
     +     .00914,    .00342,    .99915,    .64985,    .00000,
     +     .00000,    .34595,    .65332,
     +     .00945,    .00356,   2.06813,    .68101,    .00000,
     +     .00000,    .38031,    .68449,
     +     .00992,    .00377,   4.05388,    .74338,    .00000,
     +     .00000,    .44722,    .74689,
     +     .01025,    .00393,   5.83825,    .80034,    .03487,
     +     .00000,    .50732,    .80386,
     +     .01061,    .00409,   7.93215,    .87101,    .11989,
     +     .00000,    .58115,    .87454,
     +     .01091,    .00424,  10.01731,    .94212,    .19372,
     +     .00000,    .65491,    .94566,
     +     .01121,    .00438,  12.29688,   1.01792,    .27544,
     +     .00000,    .73320,   1.02148,
     +     .01152,    .00453,  15.02712,   1.10700,    .37288,
     +     .00000,    .82484,   1.11057 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
     +     .01179,    .00466,  17.63990,   1.19253,    .46353,
     +     .00000,    .91252,   1.19610,
     +     .01206,    .00479,  20.36929,   1.28221,    .55709,
     +     .00000,   1.00425,   1.28578,
     +     .01227,    .00489,  22.73849,   1.35799,    .63894,
     +     .00000,   1.08162,   1.36157,
     +     .01272,    .00511,  28.05524,   1.53533,    .82453,
     +     .03226,   1.26226,   1.53892,
     +     .01311,    .00530,  32.89364,   1.70338,    .99847,
     +     .23713,   1.43303,   1.70697,
     +     .01355,    .00552,  38.87954,   1.91007,   1.21269,
     +     .48037,   1.64269,   1.91367,
     +     .01401,    .00574,  45.73190,   2.14535,   1.45596,
     +     .73429,   1.88097,   2.14895,
     +     .01443,    .00595,  52.48901,   2.37710,   1.69501,
     +     .98333,   2.11536,   2.38070 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
     +     .01486,    .00617,  59.84299,   2.62934,   1.95504,
     +    1.25334,   2.37018,   2.63294,
     +     .01521,    .00635,  66.35276,   2.85291,   2.18529,
     +    1.49172,   2.59586,   2.85651,
     +     .01565,    .00657,  74.65672,   3.14063,   2.47930,
     +    1.79182,   2.88606,   3.14423,
     +     .01603,    .00676,  82.44904,   3.41140,   2.75633,
     +    2.07587,   3.15897,   3.41499,
     +     .01639,    .00695,  90.00859,   3.67406,   3.02620,
     +    2.35470,   3.42356,   3.67766,
     +     .01685,    .00718,  99.93141,   4.02395,   3.38220,
     +    2.71649,   3.77584,   4.02754,
     +     .01728,    .00740, 109.74957,   4.37224,   3.73692,
     +    3.07807,   4.12632,   4.37583,
     +     .01769,    .00761, 119.40958,   4.71649,   4.08828,
     +    3.43757,   4.47258,   4.72008 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
     +     .01810,    .00782, 129.36427,   5.07573,   4.45326,
     +    3.80850,   4.83378,   5.07931,
     +     .01850,    .00803, 139.46075,   5.44312,   4.82646,
     +    4.18793,   5.20306,   5.44671,
     +     .01889,    .00823, 149.41571,   5.80709,   5.19701,
     +    4.56595,   5.56878,   5.81068,
     +     .01925,    .00842, 158.91158,   6.15992,   5.55414,
     +    4.92734,   5.92323,   6.16350,
     +     .01962,    .00862, 168.87665,   6.53054,   5.93104,
     +    5.31142,   6.29545,   6.53411,
     +     .01998,    .00881, 178.73265,   6.90346,   6.30807,
     +    5.69259,   6.66991,   6.90703,
     +     .02033,    .00899, 188.49651,   7.27318,   6.68355,
     +    6.07466,   7.04109,   7.27675,
     +     .02067,    .00917, 197.73083,   7.62890,   7.04289,
     +    6.43763,   7.39815,   7.63247 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
     +     .02100,    .00934, 207.40767,   8.00186,   7.42115,
     +    6.82189,   7.77246,   8.00542,
     +     .02134,    .00952, 216.95029,   8.37558,   7.79860,
     +    7.20324,   8.14748,   8.37914,
     +     .02166,    .00969, 226.32225,   8.74389,   8.17137,
     +    7.58100,   8.51703,   8.74746,
     +     .02196,    .00985, 235.30515,   9.10045,   8.53187,
     +    7.94586,   8.87474,   9.10401,
     +     .02228,    .01002, 244.47920,   9.46819,   8.90327,
     +    8.32121,   9.24363,   9.47175 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
     +     .01092,    .00416,    .95959,    .59191,    .00000,
     +     .00000,    .31508,    .59391,
     +     .01130,    .00433,   1.96438,    .62137,    .00000,
     +     .00000,    .34734,    .62338,
     +     .01187,    .00460,   3.80630,    .67916,    .00000,
     +     .00000,    .40906,    .68118,
     +     .01228,    .00479,   5.44118,    .73125,    .03170,
     +     .00000,    .46388,    .73328,
     +     .01271,    .00500,   7.34003,    .79528,    .10873,
     +     .00000,    .53065,    .79732,
     +     .01308,    .00518,   9.21384,    .85918,    .17509,
     +     .00000,    .59685,    .86123,
     +     .01343,    .00536,  11.24731,    .92694,    .24812,
     +     .00000,    .66676,    .92899,
     +     .01382,    .00554,  13.66535,   1.00616,    .33475,
     +     .00000,    .74818,   1.00821 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
     +     .01415,    .00571,  15.96338,   1.08181,    .41490,
     +     .00000,    .82571,   1.08387,
     +     .01447,    .00587,  18.34937,   1.16078,    .49726,
     +     .00000,    .90644,   1.16284,
     +     .01472,    .00599,  20.41100,   1.22731,    .56907,
     +     .00000,    .97434,   1.22937,
     +     .01527,    .00627,  25.00319,   1.38216,    .73101,
     +     .02838,   1.13203,   1.38423,
     +     .01574,    .00650,  29.14494,   1.52803,    .88187,
     +     .20600,   1.28025,   1.53011,
     +     .01627,    .00677,  34.23050,   1.70645,   1.06662,
     +     .41613,   1.46122,   1.70853,
     +     .01682,    .00705,  40.00671,   1.90837,   1.27520,
     +     .63398,   1.66572,   1.91046,
     +     .01733,    .00731,  45.66071,   2.10616,   1.47902,
     +     .84644,   1.86579,   2.10826 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
     +     .01784,    .00758,  51.77266,   2.32035,   1.69959,
     +    1.07557,   2.08220,   2.32246,
     +     .01827,    .00780,  57.15047,   2.50934,   1.89402,
     +    1.27694,   2.27299,   2.51145,
     +     .01879,    .00807,  63.96812,   2.75140,   2.14109,
     +    1.52917,   2.51718,   2.75352,
     +     .01926,    .00831,  70.32844,   2.97818,   2.37286,
     +    1.76686,   2.74580,   2.98030,
     +     .01969,    .00853,  76.46835,   3.19733,   2.59781,
     +    1.99932,   2.96661,   3.19946,
     +     .02023,    .00882,  84.47935,   3.48791,   2.89313,
     +    2.29944,   3.25923,   3.49004,
     +     .02075,    .00909,  92.36030,   3.77587,   3.18610,
     +    2.59807,   3.54906,   3.77801,
     +     .02124,    .00935, 100.07452,   4.05934,   3.47513,
     +    2.89383,   3.83426,   4.06148 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
     +     .02173,    .00960, 107.98147,   4.35391,   3.77412,
     +    3.19767,   4.13051,   4.35606,
     +     .02221,    .00986, 115.96161,   4.65402,   4.07867,
     +    3.50728,   4.43223,   4.65618,
     +     .02267,    .01010, 123.79581,   4.95030,   4.38005,
     +    3.81474,   4.73001,   4.95246,
     +     .02310,    .01033, 131.23172,   5.23642,   4.66937,
     +    4.10747,   5.01752,   5.23859,
     +     .02354,    .01057, 139.00803,   5.53611,   4.97390,
     +    4.41781,   5.31858,   5.53829,
     +     .02398,    .01080, 146.66214,   5.83657,   5.27739,
     +    4.72455,   5.62036,   5.83875,
     +     .02439,    .01102, 154.22110,   6.13367,   5.57889,
     +    5.03134,   5.91870,   6.13585,
     +     .02479,    .01123, 161.33797,   6.41856,   5.86642,
     +    5.32172,   6.20474,   6.42075 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
     +     .02519,    .01144, 168.77577,   6.71656,   6.16846,
     +    5.62853,   6.50390,   6.71876,
     +     .02559,    .01166, 176.07950,   7.01423,   6.46885,
     +    5.93197,   6.80268,   7.01643,
     +     .02597,    .01186, 183.23259,   7.30691,   6.76488,
     +    6.23192,   7.09641,   7.30911,
     +     .02633,    .01206, 190.06569,   7.58951,   7.05041,
     +    6.52087,   7.38000,   7.59172,
     +     .02670,    .01225, 197.02168,   7.88025,   7.34384,
     +    6.81737,   7.67173,   7.88247 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
     +     .01240,    .00477,    .93307,    .55391,    .00000,
     +     .00000,    .29491,    .55511,
     +     .01284,    .00498,   1.89462,    .58220,    .00000,
     +     .00000,    .32573,    .58340,
     +     .01348,    .00529,   3.64052,    .63691,    .00000,
     +     .00000,    .38401,    .63812,
     +     .01395,    .00552,   5.17649,    .68579,    .02961,
     +     .00000,    .43536,    .68701,
     +     .01444,    .00577,   6.94727,    .74547,    .10143,
     +     .00000,    .49753,    .74670,
     +     .01487,    .00598,   8.68326,    .80469,    .16293,
     +     .00000,    .55882,    .80592,
     +     .01528,    .00618,  10.55722,    .86724,    .23035,
     +     .00000,    .62330,    .86848,
     +     .01572,    .00640,  12.77406,    .94009,    .31003,
     +     .00000,    .69815,    .94133 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
     +     .01610,    .00660,  14.87037,   1.00940,    .38345,
     +     .00000,    .76915,   1.01065,
     +     .01646,    .00678,  17.03738,   1.08150,    .45865,
     +     .00000,    .84284,   1.08275,
     +     .01676,    .00693,  18.90361,   1.14212,    .52407,
     +     .00000,    .90470,   1.14337,
     +     .01738,    .00725,  23.03825,   1.28265,    .67102,
     +     .02591,   1.04778,   1.28391,
     +     .01792,    .00752,  26.74322,   1.41446,    .80731,
     +     .18638,   1.18171,   1.41574,
     +     .01852,    .00783,  31.26778,   1.57505,    .97355,
     +     .37572,   1.34459,   1.57633,
     +     .01916,    .00816,  36.37778,   1.75602,   1.16044,
     +     .57106,   1.52788,   1.75731,
     +     .01973,    .00846,  41.35311,   1.93260,   1.34233,
     +     .76080,   1.70650,   1.93390 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
     +     .02032,    .00877,  46.70518,   2.12310,   1.53846,
     +     .96466,   1.89900,   2.12442,
     +     .02081,    .00902,  51.39396,   2.29064,   1.71076,
     +    1.14321,   2.06816,   2.29196,
     +     .02140,    .00934,  57.31154,   2.50450,   1.92897,
     +    1.36607,   2.28393,   2.50583,
     +     .02193,    .00962,  62.80886,   2.70421,   2.13300,
     +    1.57541,   2.48529,   2.70555,
     +     .02242,    .00987,  68.09689,   2.89668,   2.33050,
     +    1.77961,   2.67924,   2.89803,
     +     .02304,    .01020,  74.96618,   3.15102,   2.58889,
     +    2.04229,   2.93542,   3.15238,
     +     .02363,    .01051,  81.69593,   3.40225,   2.84441,
     +    2.30283,   3.18833,   3.40362,
     +     .02418,    .01081,  88.25879,   3.64885,   3.09578,
     +    2.56015,   3.43648,   3.65024 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
     +     .02474,    .01111,  94.95933,   3.90434,   3.35501,
     +    2.82366,   3.69347,   3.90574,
     +     .02528,    .01140, 101.69788,   4.16390,   3.61834,
     +    3.09145,   3.95448,   4.16532,
     +     .02580,    .01168, 108.29245,   4.41952,   3.87830,
     +    3.35674,   4.21144,   4.42095,
     +     .02630,    .01194, 114.52911,   4.66570,   4.12715,
     +    3.60857,   4.45886,   4.66714,
     +     .02679,    .01221, 121.03493,   4.92302,   4.38859,
     +    3.87508,   4.71741,   4.92447,
     +     .02729,    .01247, 127.41595,   5.18031,   4.64840,
     +    4.13773,   4.97589,   5.18178,
     +     .02776,    .01273, 133.70337,   5.43426,   4.90608,
     +    4.40001,   5.23095,   5.43573,
     +     .02820,    .01297, 139.60374,   5.67718,   5.15118,
     +    4.64757,   5.47490,   5.67866 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
     +     .02865,    .01321, 145.75816,   5.93085,   5.40826,
     +    4.90880,   5.72961,   5.93235,
     +     .02910,    .01346, 151.78264,   6.18367,   5.66333,
     +    5.16649,   5.98342,   6.18518,
     +     .02953,    .01369, 157.67101,   6.43182,   5.91430,
     +    5.42085,   6.23252,   6.43335,
     +     .02994,    .01391, 163.28220,   6.67099,   6.15591,
     +    5.66541,   6.47257,   6.67253,
     +     .03036,    .01414, 168.98079,   6.91661,   6.40375,
     +    5.91589,   6.71907,   6.91816 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
     +     .01368,    .00531,    .91347,    .52611,    .00000,
     +     .00000,    .28020,    .52681,
     +     .01417,    .00555,   1.84275,    .55349,    .00000,
     +     .00000,    .30993,    .55421,
     +     .01489,    .00591,   3.51742,    .60592,    .00000,
     +     .00000,    .36567,    .60664,
     +     .01541,    .00617,   4.98048,    .65244,    .02809,
     +     .00000,    .41447,    .65316,
     +     .01596,    .00644,   6.65742,    .70895,    .09609,
     +     .00000,    .47328,    .70968,
     +     .01643,    .00668,   8.29293,    .76475,    .15406,
     +     .00000,    .53100,    .76549,
     +     .01689,    .00692,  10.05108,    .82352,    .21742,
     +     .00000,    .59156,    .82426,
     +     .01737,    .00716,  12.12249,    .89176,    .29206,
     +     .00000,    .66165,    .89251 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
     +     .01779,    .00738,  14.07360,    .95649,    .36065,
     +     .00000,    .72794,    .95725,
     +     .01820,    .00759,  16.08353,   1.02365,    .43071,
     +     .00000,    .79657,   1.02442,
     +     .01853,    .00776,  17.81002,   1.08003,    .49155,
     +     .00000,    .85408,   1.08079,
     +     .01922,    .00811,  21.61888,   1.21030,    .62778,
     +     .02414,    .98672,   1.21108,
     +     .01981,    .00842,  25.01445,   1.33208,    .75371,
     +     .17242,   1.11045,   1.33287,
     +     .02049,    .00877,  29.14350,   1.47998,    .90682,
     +     .34703,   1.26047,   1.48078,
     +     .02119,    .00914,  33.78611,   1.64610,   1.07837,
     +     .52647,   1.42872,   1.64692,
     +     .02183,    .00948,  38.28744,   1.80768,   1.24482,
     +     .70022,   1.59218,   1.80851 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
     +     .02247,    .00982,  43.11102,   1.98151,   1.42377,
     +     .88636,   1.76785,   1.98235,
     +     .02301,    .01011,  47.32240,   2.13398,   1.58059,
     +    1.04895,   1.92182,   2.13484,
     +     .02367,    .01046,  52.61868,   2.32809,   1.77863,
     +    1.25133,   2.11768,   2.32896,
     +     .02426,    .01077,  57.52249,   2.50889,   1.96335,
     +    1.44095,   2.30001,   2.50978,
     +     .02480,    .01106,  62.22643,   2.68277,   2.14177,
     +    1.62553,   2.47525,   2.68367,
     +     .02548,    .01143,  68.31583,   2.91193,   2.37457,
     +    1.86230,   2.70610,   2.91285,
     +     .02613,    .01177,  74.26198,   3.13772,   2.60420,
     +    2.09657,   2.93343,   3.13866,
     +     .02674,    .01210,  80.04373,   3.35884,   2.82961,
     +    2.32742,   3.15597,   3.35979 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
     +     .02735,    .01243,  85.92854,   3.58739,   3.06150,
     +    2.56324,   3.38591,   3.58836,
     +     .02796,    .01276,  91.82995,   3.81907,   3.29655,
     +    2.80237,   3.61893,   3.82007,
     +     .02853,    .01307,  97.59109,   4.04680,   3.52816,
     +    3.03884,   3.84788,   4.04781,
     +     .02907,    .01336, 103.02381,   4.26563,   3.74937,
     +    3.26277,   4.06786,   4.26666,
     +     .02962,    .01366, 108.67991,   4.49401,   3.98141,
     +    3.49943,   4.29737,   4.49505,
     +     .03016,    .01395, 114.21176,   4.72188,   4.21152,
     +    3.73212,   4.52633,   4.72294,
     +     .03068,    .01424, 119.65307,   4.94646,   4.43942,
     +    3.96420,   4.75193,   4.94754,
     +     .03117,    .01450, 124.74576,   5.16088,   4.65576,
     +    4.18278,   4.96730,   5.16197 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
     +     .03167,    .01477, 130.04980,   5.38450,   4.88242,
     +    4.41319,   5.19187,   5.38561,
     +     .03216,    .01504, 135.22879,   5.60695,   5.10686,
     +    4.64002,   5.41524,   5.60808,
     +     .03263,    .01530, 140.28278,   5.82503,   5.32743,
     +    4.86365,   5.63418,   5.82617,
     +     .03308,    .01555, 145.08955,   6.03489,   5.53946,
     +    5.07835,   5.84486,   6.03605,
     +     .03354,    .01580, 149.96169,   6.25010,   5.75664,
     +    5.29791,   6.06088,   6.25128 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
     +     .01858,    .00744,    .85877,    .44833,    .00000,
     +     .00000,    .23924,    .44815,
     +     .01926,    .00780,   1.69452,    .47301,    .00000,
     +     .00000,    .26579,    .47284,
     +     .02027,    .00833,   3.16471,    .51883,    .00000,
     +     .00000,    .31425,    .51868,
     +     .02100,    .00871,   4.42077,    .55866,    .02381,
     +     .00000,    .35590,    .55852,
     +     .02176,    .00912,   5.83384,    .60626,    .08115,
     +     .00000,    .40533,    .60615,
     +     .02242,    .00947,   7.18944,    .65259,    .12932,
     +     .00000,    .45317,    .65249,
     +     .02305,    .00980,   8.62742,    .70090,    .18147,
     +     .00000,    .50290,    .70082,
     +     .02373,    .01017,  10.29975,    .75648,    .24233,
     +     .00000,    .55994,    .75642 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
     +     .02431,    .01048,  11.85531,    .80869,    .29772,
     +     .00000,    .61339,    .80865,
     +     .02488,    .01078,  13.44014,    .86240,    .35383,
     +     .00000,    .66825,    .86237,
     +     .02532,    .01103,  14.79030,    .90724,    .40228,
     +     .00000,    .71400,    .90722,
     +     .02628,    .01154,  17.72866,   1.00983,    .50971,
     +     .01933,    .81845,   1.00984,
     +     .02710,    .01199,  20.30523,   1.10470,    .60795,
     +     .13513,    .91485,   1.10474,
     +     .02802,    .01249,  23.39581,   1.21876,    .72619,
     +     .27063,   1.03058,   1.21883,
     +     .02899,    .01302,  26.82159,   1.34551,    .85728,
     +     .40819,   1.15901,   1.34562,
     +     .02986,    .01350,  30.09879,   1.46758,    .98320,
     +     .54007,   1.28255,   1.46772 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
     +     .03075,    .01399,  33.56760,   1.59769,   1.11734,
     +     .68003,   1.41411,   1.59786,
     +     .03149,    .01439,  36.56309,   1.71089,   1.23392,
     +     .80127,   1.52848,   1.71109,
     +     .03239,    .01489,  40.28756,   1.85375,   1.37987,
     +     .95083,   1.67272,   1.85398,
     +     .03319,    .01533,  43.69944,   1.98575,   1.51491,
     +    1.08985,   1.80590,   1.98601,
     +     .03392,    .01573,  46.94313,   2.11182,   1.64448,
     +    1.22429,   1.93305,   2.11212,
     +     .03485,    .01625,  51.09515,   2.27658,   1.81207,
     +    1.39517,   2.09913,   2.27692,
     +     .03573,    .01674,  55.10693,   2.43761,   1.97606,
     +    1.56291,   2.26137,   2.43799,
     +     .03656,    .01720,  58.97126,   2.59416,   2.13589,
     +    1.72706,   2.41903,   2.59458 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
     +     .03739,    .01766,  62.86501,   2.75476,   2.29905,
     +    1.89339,   2.58071,   2.75521,
     +     .03820,    .01811,  66.73438,   2.91642,   2.46329,
     +    2.06090,   2.74341,   2.91691,
     +     .03898,    .01854,  70.48190,   3.07434,   2.62415,
     +    2.22557,   2.90230,   3.07486,
     +     .03971,    .01895,  73.98219,   3.22503,   2.77668,
     +    2.38033,   3.05388,   3.22559,
     +     .04044,    .01936,  77.60398,   3.38150,   2.93592,
     +    2.54317,   3.21124,   3.38210,
     +     .04117,    .01977,  81.11302,   3.53658,   3.09272,
     +    2.70208,   3.36716,   3.53721,
     +     .04186,    .02015,  84.54561,   3.68871,   3.24736,
     +    2.85995,   3.52009,   3.68938,
     +     .04252,    .02052,  87.72998,   3.83305,   3.39318,
     +    3.00761,   3.66517,   3.83374 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
     +     .04318,    .02089,  91.03090,   3.98298,   3.54540,
     +    3.16274,   3.81585,   3.98371,
     +     .04384,    .02126,  94.22682,   4.13124,   3.69519,
     +    3.31446,   3.96483,   4.13200,
     +     .04447,    .02162,  97.33006,   4.27599,   3.84183,
     +    3.46349,   4.11025,   4.27679,
     +     .04507,    .02195, 100.26223,   4.41462,   3.98211,
     +    3.60587,   4.24953,   4.41545,
     +     .04568,    .02229, 103.21578,   4.55614,   4.12514,
     +    3.75078,   4.39168,   4.55700 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
     +     .02531,    .01051,    .81642,    .38240,    .00000,
     +     .00000,    .20480,    .38217,
     +     .02627,    .01104,   1.56805,    .40450,    .00000,
     +     .00000,    .22842,    .40430,
     +     .02767,    .01182,   2.85632,    .44439,    .00000,
     +     .00000,    .27045,    .44425,
     +     .02868,    .01238,   3.93113,    .47836,    .02012,
     +     .00000,    .30590,    .47826,
     +     .02974,    .01298,   5.11658,    .51831,    .06831,
     +     .00000,    .34733,    .51826,
     +     .03066,    .01349,   6.23410,    .55661,    .10821,
     +     .00000,    .38686,    .55659,
     +     .03154,    .01398,   7.40295,    .59614,    .15096,
     +     .00000,    .42753,    .59616,
     +     .03247,    .01451,   8.74377,    .64116,    .20037,
     +     .00000,    .47374,    .64123 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
     +     .03328,    .01496,   9.97448,    .68303,    .24489,
     +     .00000,    .51661,    .68313,
     +     .03406,    .01540,  11.21373,    .72571,    .28961,
     +     .00000,    .56023,    .72585,
     +     .03468,    .01575,  12.26040,    .76114,    .32800,
     +     .00000,    .59640,    .76131,
     +     .03600,    .01650,  14.50539,    .84134,    .41224,
     +     .01542,    .67810,    .84157,
     +     .03713,    .01714,  16.43926,    .91466,    .48841,
     +     .10540,    .75266,    .91495,
     +     .03840,    .01785,  18.72550,   1.00187,    .57913,
     +     .21001,    .84123,   1.00223,
     +     .03972,    .01860,  21.22160,   1.09771,    .67859,
     +     .31489,    .93843,   1.09814,
     +     .04092,    .01929,  23.57550,   1.18904,    .77313,
     +     .41438,   1.03095,   1.18952 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
     +     .04213,    .01998,  26.03455,   1.28544,    .87287,
     +     .51895,   1.12853,   1.28599,
     +     .04314,    .02055,  28.13335,   1.36858,    .95881,
     +     .60875,   1.21262,   1.36919,
     +     .04436,    .02125,  30.71111,   1.47255,   1.06541,
     +     .71848,   1.31771,   1.47323,
     +     .04544,    .02187,  33.04573,   1.56780,   1.16321,
     +     .81964,   1.41393,   1.56854,
     +     .04644,    .02243,  35.24431,   1.65813,   1.25639,
     +     .91679,   1.50513,   1.65893,
     +     .04770,    .02315,  38.02420,   1.77511,   1.37579,
     +    1.03909,   1.62318,   1.77598,
     +     .04889,    .02383,  40.67988,   1.88847,   1.49166,
     +    1.15814,   1.73752,   1.88941,
     +     .05001,    .02447,  43.21231,   1.99785,   1.60374,
     +    1.27379,   1.84781,   1.99885 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
     +     .05113,    .02511,  45.73605,   2.10914,   1.71721,
     +    1.38998,   1.95998,   2.11020,
     +     .05222,    .02574,  48.21922,   2.22035,   1.83060,
     +    1.50615,   2.07204,   2.22148,
     +     .05326,    .02633,  50.60384,   2.32828,   1.94095,
     +    1.61964,   2.18075,   2.32947,
     +     .05424,    .02689,  52.80751,   2.43050,   2.04477,
     +    1.72543,   2.28370,   2.43175,
     +     .05523,    .02746,  55.07288,   2.53608,   2.15264,
     +    1.83624,   2.39001,   2.53739,
     +     .05620,    .02801,  57.24446,   2.63996,   2.25802,
     +    1.94351,   2.49458,   2.64133,
     +     .05712,    .02854,  59.35657,   2.74138,   2.36151,
     +    2.04965,   2.59666,   2.74281,
     +     .05800,    .02904,  61.29600,   2.83695,   2.45840,
     +    2.14817,   2.69283,   2.83843 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
     +     .05889,    .02955,  63.29677,   2.93582,   2.55916,
     +    2.25132,   2.79231,   2.93736,
     +     .05976,    .03005,  65.21503,   3.03295,   2.65763,
     +    2.35148,   2.89003,   3.03455,
     +     .06060,    .03053,  67.06784,   3.12739,   2.75365,
     +    2.44950,   2.98502,   3.12903,
     +     .06139,    .03098,  68.80563,   3.21736,   2.84503,
     +    2.54265,   3.07552,   3.21906,
     +     .06220,    .03144,  70.54349,   3.30876,   2.93773,
     +    2.63698,   3.16744,   3.31050 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
     +     .03040,    .01295,    .79999,    .34893,    .00000,
     +     .00000,    .18741,    .34897,
     +     .03156,    .01361,   1.50634,    .36957,    .00000,
     +     .00000,    .20941,    .36967,
     +     .03326,    .01459,   2.69707,    .40626,    .00000,
     +     .00000,    .24800,    .40644,
     +     .03450,    .01530,   3.67581,    .43712,    .01819,
     +     .00000,    .28019,    .43736,
     +     .03578,    .01604,   4.74203,    .47307,    .06161,
     +     .00000,    .31747,    .47338,
     +     .03689,    .01667,   5.73626,    .50721,    .09723,
     +     .00000,    .35272,    .50759,
     +     .03795,    .01729,   6.76705,    .54224,    .13517,
     +     .00000,    .38877,    .54267,
     +     .03908,    .01794,   7.93944,    .58189,    .17877,
     +     .00000,    .42949,    .58239 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
     +     .04006,    .01850,   9.00668,    .61853,    .21781,
     +     .00000,    .46703,    .61908,
     +     .04100,    .01905,  10.07349,    .65567,    .25682,
     +     .00000,    .50501,    .65627,
     +     .04175,    .01948,  10.96970,    .68640,    .29018,
     +     .00000,    .53641,    .68705,
     +     .04334,    .02040,  12.87452,    .75549,    .36294,
     +     .01346,    .60686,    .75623,
     +     .04470,    .02119,  14.49702,    .81820,    .42827,
     +     .09078,    .67069,    .81903,
     +     .04623,    .02207,  16.39781,    .89232,    .50558,
     +     .18032,    .74602,    .89323,
     +     .04781,    .02299,  18.45350,    .97319,    .58976,
     +     .26940,    .82813,    .97420,
     +     .04925,    .02382,  20.37475,   1.04976,    .66926,
     +     .35337,    .90577,   1.05085 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
     +     .05071,    .02467,  22.36537,   1.13009,    .75263,
     +     .44109,    .98717,   1.13128,
     +     .05191,    .02537,  24.05191,   1.19900,    .82408,
     +     .51602,   1.05694,   1.20026,
     +     .05338,    .02621,  26.10727,   1.28468,    .91220,
     +     .60705,   1.14364,   1.28604,
     +     .05467,    .02696,  27.95543,   1.36277,    .99263,
     +     .69055,   1.22260,   1.36420,
     +     .05586,    .02765,  29.68559,   1.43649,   1.06893,
     +     .77040,   1.29711,   1.43800,
     +     .05736,    .02852,  31.85600,   1.53142,   1.16613,
     +     .87031,   1.39302,   1.53303,
     +     .05878,    .02935,  33.91458,   1.62293,   1.25996,
     +     .96707,   1.48542,   1.62464,
     +     .06011,    .03012,  35.86517,   1.71081,   1.35031,
     +    1.06064,   1.57413,   1.71260 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
     +     .06143,    .03088,  37.79520,   1.79978,   1.44130,
     +    1.15416,   1.66390,   1.80165,
     +     .06273,    .03164,  39.68221,   1.88827,   1.53182,
     +    1.24723,   1.75316,   1.89023,
     +     .06396,    .03235,  41.48458,   1.97380,   1.61956,
     +    1.33781,   1.83942,   1.97585,
     +     .06512,    .03302,  43.13845,   2.05443,   1.70170,
     +    1.42181,   1.92071,   2.05655,
     +     .06629,    .03370,  44.83183,   2.13745,   1.78680,
     +    1.50955,   2.00439,   2.13965,
     +     .06743,    .03436,  46.44350,   2.21874,   1.86953,
     +    1.59406,   2.08632,   2.22102,
     +     .06853,    .03499,  48.00557,   2.29788,   1.95056,
     +    1.67747,   2.16606,   2.30024,
     +     .06956,    .03559,  49.43001,   2.37214,   2.02606,
     +    1.75453,   2.24087,   2.37456 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
     +     .07060,    .03619,  50.89522,   2.44876,   2.10441,
     +    1.83504,   2.31805,   2.45125,
     +     .07163,    .03679,  52.29064,   2.52372,   2.18065,
     +    1.91286,   2.39356,   2.52629,
     +     .07261,    .03735,  53.63396,   2.59641,   2.25480,
     +    1.98884,   2.46676,   2.59905,
     +     .07355,    .03789,  54.88761,   2.66545,   2.32514,
     +    2.06081,   2.53628,   2.66815,
     +     .07449,    .03844,  56.13532,   2.73535,   2.39627,
     +    2.13345,   2.60666,   2.73811 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
     +     .03467,    .01509,    .79367,    .32741,    .00000,
     +     .00000,    .17623,    .32773,
     +     .03600,    .01587,   1.46940,    .34704,    .00000,
     +     .00000,    .19712,    .34743,
     +     .03796,    .01701,   2.59423,    .38154,    .00000,
     +     .00000,    .23340,    .38205,
     +     .03938,    .01784,   3.50849,    .41032,    .01690,
     +     .00000,    .26341,    .41091,
     +     .04085,    .01871,   4.49530,    .44361,    .05715,
     +     .00000,    .29793,    .44429,
     +     .04212,    .01945,   5.40800,    .47501,    .08996,
     +     .00000,    .33037,    .47577,
     +     .04334,    .02016,   6.34806,    .50708,    .12474,
     +     .00000,    .36339,    .50791,
     +     .04463,    .02092,   7.41044,    .54322,    .16453,
     +     .00000,    .40053,    .54413 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
     +     .04575,    .02158,   8.37156,    .57646,    .20001,
     +     .00000,    .43461,    .57744,
     +     .04683,    .02221,   9.32708,    .61001,    .23533,
     +     .00000,    .46895,    .61106,
     +     .04769,    .02271,  10.12657,    .63770,    .26545,
     +     .00000,    .49726,    .63881,
     +     .04950,    .02378,  11.81420,    .69966,    .33083,
     +     .01219,    .56048,    .70088,
     +     .05105,    .02469,  13.23952,    .75560,    .38924,
     +     .08143,    .61747,    .75692,
     +     .05279,    .02570,  14.89798,    .82138,    .45803,
     +     .16137,    .68440,    .82282,
     +     .05460,    .02676,  16.67888,    .89280,    .53254,
     +     .24046,    .75697,    .89436,
     +     .05623,    .02772,  18.33211,    .96008,    .60258,
     +     .31465,    .82527,    .96175 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
     +     .05788,    .02869,  20.03442,   1.03036,    .67571,
     +     .39183,    .89654,   1.03213,
     +     .05925,    .02950,  21.46873,   1.09040,    .73813,
     +     .45748,    .95740,   1.09227,
     +     .06091,    .03047,  23.20642,   1.16474,    .81479,
     +     .53690,   1.03269,   1.16672,
     +     .06237,    .03132,  24.76046,   1.23222,    .88448,
     +     .60947,   1.10100,   1.23430,
     +     .06372,    .03211,  26.20878,   1.29572,    .95039,
     +     .67866,   1.16525,   1.29789,
     +     .06542,    .03311,  28.01467,   1.37714,   1.03398,
     +     .76484,   1.24759,   1.37944,
     +     .06702,    .03404,  29.71816,   1.45532,   1.11436,
     +     .84798,   1.32662,   1.45773,
     +     .06852,    .03492,  31.32450,   1.53014,   1.19150,
     +     .92812,   1.40222,   1.53264 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
     +     .07001,    .03579,  32.90520,   1.60559,   1.26889,
     +    1.00789,   1.47843,   1.60820,
     +     .07147,    .03665,  34.44318,   1.68038,   1.34560,
     +    1.08702,   1.55395,   1.68309,
     +     .07286,    .03746,  35.90615,   1.75246,   1.41976,
     +    1.16381,   1.62672,   1.75527,
     +     .07416,    .03821,  37.24115,   1.82015,   1.48891,
     +    1.23475,   1.69504,   1.82306,
     +     .07547,    .03898,  38.60395,   1.88969,   1.56040,
     +    1.30870,   1.76521,   1.89269,
     +     .07676,    .03973,  39.89367,   1.95754,   1.62964,
     +    1.37965,   1.83367,   1.96063,
     +     .07798,    .04044,  41.14042,   2.02346,   1.69733,
     +    1.44955,   1.90017,   2.02664,
     +     .07914,    .04111,  42.27101,   2.08510,   1.76019,
     +    1.51389,   1.96233,   2.08836 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
     +     .08031,    .04179,  43.43150,   2.14859,   1.82530,
     +    1.58102,   2.02636,   2.15194,
     +     .08146,    .04246,  44.53075,   2.21051,   1.88845,
     +    1.64569,   2.08879,   2.21394,
     +     .08256,    .04310,  45.58630,   2.27044,   1.94976,
     +    1.70871,   2.14921,   2.27394,
     +     .08360,    .04370,  46.56750,   2.32721,   2.00778,
     +    1.76826,   2.20644,   2.33079,
     +     .08465,    .04431,  47.54026,   2.38456,   2.06630,
     +    1.82822,   2.26425,   2.38822 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
     +     .03846,    .01713,    .79574,    .31256,    .00000,
     +     .00000,    .16833,    .31290,
     +     .03995,    .01801,   1.44791,    .33141,    .00000,
     +     .00000,    .18835,    .33184,
     +     .04214,    .01930,   2.52251,    .36424,    .00000,
     +     .00000,    .22283,    .36481,
     +     .04372,    .02024,   3.38787,    .39142,    .01593,
     +     .00000,    .25117,    .39210,
     +     .04537,    .02122,   4.31463,    .42269,    .05377,
     +     .00000,    .28359,    .42347,
     +     .04678,    .02205,   5.16600,    .45204,    .08446,
     +     .00000,    .31390,    .45291,
     +     .04814,    .02285,   6.03804,    .48189,    .11688,
     +     .00000,    .34464,    .48285,
     +     .04957,    .02370,   7.01827,    .51541,    .15384,
     +     .00000,    .37910,    .51647 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
     +     .05082,    .02444,   7.90051,    .54613,    .18666,
     +     .00000,    .41060,    .54727,
     +     .05201,    .02515,   8.77361,    .57703,    .21924,
     +     .00000,    .44223,    .57825,
     +     .05296,    .02571,   9.50170,    .60248,    .24696,
     +     .00000,    .46826,    .60377,
     +     .05497,    .02690,  11.02979,    .65919,    .30691,
     +     .01125,    .52616,    .66062,
     +     .05669,    .02792,  12.31109,    .71018,    .36023,
     +     .07455,    .57813,    .71172,
     +     .05861,    .02905,  13.79350,    .76990,    .42279,
     +     .14746,    .63892,    .77158,
     +     .06061,    .03023,  15.37594,    .83446,    .49028,
     +     .21924,    .70456,    .83627,
     +     .06241,    .03130,  16.83659,    .89503,    .55346,
     +     .28633,    .76609,    .89697 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
     +     .06423,    .03237,  18.33274,    .95806,    .61919,
     +     .35586,    .83007,    .96014,
     +     .06574,    .03326,  19.58747,   1.01174,    .67511,
     +     .41482,    .88450,   1.01392,
     +     .06757,    .03434,  21.10022,   1.07797,    .74354,
     +     .48588,    .95163,   1.08028,
     +     .06918,    .03529,  22.44679,   1.13789,    .80555,
     +     .55061,   1.01233,   1.14032,
     +     .07066,    .03616,  23.69690,   1.19412,    .86405,
     +     .61217,   1.06927,   1.19666,
     +     .07252,    .03725,  25.24784,   1.26597,    .93797,
     +     .68856,   1.14198,   1.26864,
     +     .07428,    .03828,  26.70392,   1.33473,   1.00882,
     +     .76203,   1.21154,   1.33753,
     +     .07592,    .03925,  28.07131,   1.40034,   1.07662,
     +     .83264,   1.27790,   1.40326 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
     +     .07755,    .04020,  29.41074,   1.46629,   1.14442,
     +     .90271,   1.34457,   1.46933,
     +     .07915,    .04114,  30.70846,   1.53148,   1.21144,
     +     .97202,   1.41045,   1.53464,
     +     .08067,    .04203,  31.93857,   1.59416,   1.27608,
     +    1.03912,   1.47378,   1.59743,
     +     .08209,    .04286,  33.05578,   1.65284,   1.33616,
     +    1.10091,   1.53306,   1.65621,
     +     .08352,    .04369,  34.19343,   1.71301,   1.39816,
     +    1.16522,   1.59382,   1.71649,
     +     .08492,    .04451,  35.26458,   1.77154,   1.45803,
     +    1.22671,   1.65292,   1.77512,
     +     .08626,    .04529,  36.29782,   1.82830,   1.51646,
     +    1.28722,   1.71024,   1.83198,
     +     .08751,    .04602,  37.23009,   1.88123,   1.57056,
     +    1.34274,   1.76366,   1.88500 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
     +     .08879,    .04676,  38.18533,   1.93566,   1.62653,
     +    1.40060,   1.81861,   1.93953,
     +     .09004,    .04749,  39.08587,   1.98861,   1.68066,
     +    1.45617,   1.87204,   1.99257,
     +     .09123,    .04818,  39.94881,   2.03976,   1.73314,
     +    1.51026,   1.92367,   2.04382,
     +     .09236,    .04884,  40.74811,   2.08813,   1.78269,
     +    1.56125,   1.97247,   2.09226,
     +     .09350,    .04950,  41.53778,   2.13688,   1.83257,
     +    1.61250,   2.02166,   2.14110 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
     +     .05346,    .02571,    .82421,    .27192,    .00000,
     +     .00000,    .14689,    .27284,
     +     .05557,    .02700,   1.40678,    .28843,    .00000,
     +     .00000,    .16438,    .28950,
     +     .05865,    .02889,   2.33308,    .31633,    .00000,
     +     .00000,    .19366,    .31764,
     +     .06087,    .03025,   3.05597,    .33894,    .01315,
     +     .00000,    .21723,    .34042,
     +     .06317,    .03165,   3.81037,    .36446,    .04421,
     +     .00000,    .24372,    .36611,
     +     .06514,    .03284,   4.48788,    .38799,    .06895,
     +     .00000,    .26806,    .38980,
     +     .06702,    .03399,   5.16906,    .41163,    .09478,
     +     .00000,    .29246,    .41359,
     +     .06902,    .03519,   5.92117,    .43787,    .12389,
     +     .00000,    .31949,    .43998 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
     +     .07074,    .03624,   6.58650,    .46161,    .14943,
     +     .00000,    .34389,    .46385,
     +     .07239,    .03723,   7.23493,    .48523,    .17451,
     +     .00000,    .36814,    .48760,
     +     .07370,    .03802,   7.76962,    .50454,    .19571,
     +     .00000,    .38795,    .50702,
     +     .07645,    .03969,   8.87006,    .54703,    .24096,
     +     .00868,    .43145,    .54971,
     +     .07880,    .04110,   9.77022,    .58467,    .28066,
     +     .05606,    .46994,    .58754,
     +     .08141,    .04266,  10.79176,    .62818,    .32662,
     +     .11020,    .51437,    .63126,
     +     .08412,    .04428,  11.86036,    .67454,    .37553,
     +     .16269,    .56167,    .67784,
     +     .08656,    .04574,  12.82780,    .71746,    .42071,
     +     .21112,    .60542,    .72095 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
     +     .08901,    .04720,  13.80123,    .76158,    .46715,
     +     .26072,    .65035,    .76526,
     +     .09103,    .04841,  14.60460,    .79873,    .50623,
     +     .30231,    .68817,    .80258,
     +     .09347,    .04985,  15.55652,    .84403,    .55349,
     +     .35186,    .73425,    .84807,
     +     .09562,    .05113,  16.39053,    .88456,    .59587,
     +     .39654,    .77547,    .88877,
     +     .09758,    .05229,  17.15484,    .92226,    .63549,
     +     .43866,    .81379,    .92663,
     +     .10005,    .05375,  18.08579,    .96985,    .68496,
     +     .49028,    .86214,    .97441,
     +     .10236,    .05511,  18.94567,   1.01489,    .73186,
     +     .53943,    .90789,   1.01963,
     +     .10452,    .05638,  19.74168,   1.05745,    .77632,
     +     .58622,    .95111,   1.06237 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
     +     .10667,    .05763,  20.50825,   1.09977,    .82030,
     +     .63215,    .99407,   1.10486,
     +     .10876,    .05886,  21.23989,   1.14119,    .86337,
     +     .67716,   1.03611,   1.14645,
     +     .11073,    .06001,  21.92497,   1.18068,    .90457,
     +     .72040,   1.07619,   1.18610,
     +     .11257,    .06108,  22.53596,   1.21727,    .94246,
     +     .75979,   1.11331,   1.22283,
     +     .11442,    .06216,  23.15286,   1.25455,    .98133,
     +     .80056,   1.15113,   1.26026,
     +     .11623,    .06321,  23.72261,   1.29043,   1.01846,
     +     .83913,   1.18753,   1.29628,
     +     .11795,    .06421,  24.26826,   1.32503,   1.05452,
     +     .87690,   1.22263,   1.33102,
     +     .11956,    .06514,  24.75106,   1.35697,   1.08756,
     +     .91119,   1.25502,   1.36309 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
     +     .12119,    .06608,  25.24298,   1.38966,   1.12160,
     +     .94678,   1.28818,   1.39591,
     +     .12278,    .06700,  25.69785,   1.42115,   1.15420,
     +     .98064,   1.32011,   1.42753,
     +     .12430,    .06788,  26.13047,   1.45142,   1.18565,
     +    1.01344,   1.35081,   1.45792,
     +     .12574,    .06871,  26.52566,   1.47982,   1.21513,
     +    1.04415,   1.37961,   1.48644,
     +     .12719,    .06954,  26.91077,   1.50825,   1.24460,
     +    1.07479,   1.40845,   1.51498 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
     +     .07560,    .03967,    .91292,    .24032,    .00000,
     +     .00000,    .13006,    .24233,
     +     .07859,    .04153,   1.42618,    .25458,    .00000,
     +     .00000,    .14517,    .25685,
     +     .08294,    .04422,   2.20793,    .27787,    .00000,
     +     .00000,    .16967,    .28052,
     +     .08605,    .04613,   2.79638,    .29627,    .01070,
     +     .00000,    .18892,    .29920,
     +     .08926,    .04810,   3.39298,    .31663,    .03576,
     +     .00000,    .21014,    .31984,
     +     .09199,    .04976,   3.91513,    .33504,    .05534,
     +     .00000,    .22926,    .33849,
     +     .09459,    .05135,   4.42893,    .35328,    .07551,
     +     .00000,    .24817,    .35696,
     +     .09733,    .05301,   4.98466,    .37324,    .09794,
     +     .00000,    .26884,    .37716 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
     +     .09969,    .05444,   5.46656,    .39104,    .11735,
     +     .00000,    .28724,    .39517,
     +     .10195,    .05580,   5.92794,    .40854,    .13619,
     +     .00000,    .30530,    .41286,
     +     .10373,    .05687,   6.30342,    .42272,    .15198,
     +     .00000,    .31993,    .42720,
     +     .10747,    .05912,   7.05827,    .45346,    .18520,
     +     .00655,    .35160,    .45827,
     +     .11063,    .06101,   7.65711,    .48025,    .21388,
     +     .04107,    .37916,    .48534,
     +     .11414,    .06309,   8.32119,    .51073,    .24660,
     +     .08018,    .41048,    .51612,
     +     .11775,    .06523,   8.99907,    .54268,    .28086,
     +     .11743,    .44330,    .54839,
     +     .12099,    .06714,   9.59853,    .57180,    .31204,
     +     .15130,    .47318,    .57778 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
     +     .12422,    .06905,  10.18866,    .60130,    .34364,
     +     .18551,    .50344,    .60756,
     +     .12688,    .07061,  10.66596,    .62582,    .36990,
     +     .21385,    .52858,    .63231,
     +     .13007,    .07247,  11.21926,    .65528,    .40122,
     +     .24716,    .55879,    .66205,
     +     .13286,    .07410,  11.69438,    .68131,    .42896,
     +     .27684,    .58547,    .68833,
     +     .13541,    .07558,  12.12279,    .70527,    .45465,
     +     .30456,    .61001,    .71250,
     +     .13859,    .07742,  12.63177,    .73507,    .48625,
     +     .33804,    .64054,    .74257,
     +     .14156,    .07913,  13.09207,    .76290,    .51584,
     +     .36954,    .66906,    .77066,
     +     .14431,    .08072,  13.51032,    .78890,    .54359,
     +     .39922,    .69568,    .79690 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
     +     .14704,    .08228,  13.90359,    .81441,    .57068,
     +     .42798,    .72181,    .82264,
     +     .14968,    .08379,  14.27116,    .83908,    .59692,
     +     .45586,    .74709,    .84754,
     +     .15216,    .08520,  14.60968,    .86238,    .62179,
     +     .48242,    .77095,    .87104,
     +     .15447,    .08651,  14.90318,    .88367,    .64436,
     +     .50630,    .79276,    .89253,
     +     .15679,    .08783,  15.19638,    .90521,    .66737,
     +     .53086,    .81483,    .91426,
     +     .15903,    .08909,  15.45894,    .92565,    .68905,
     +     .55380,    .83577,    .93489,
     +     .16116,    .09029,  15.70822,    .94524,    .71000,
     +     .57615,    .85585,    .95466,
     +     .16314,    .09141,  15.92168,    .96309,    .72894,
     +     .59618,    .87414,    .97267 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
     +     .16515,    .09253,  16.13783,    .98126,    .74836,
     +     .61689,    .89277,    .99101,
     +     .16710,    .09362,  16.33095,    .99853,    .76674,
     +     .63635,    .91048,   1.00845,
     +     .16895,    .09466,  16.51272,   1.01504,    .78436,
     +     .65510,    .92741,   1.02511,
     +     .17070,    .09563,  16.67480,   1.03038,    .80074,
     +     .67251,    .94315,   1.04060,
     +     .17245,    .09660,  16.82891,   1.04560,    .81697,
     +     .68973,    .95876,   1.05596 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
     +     .09355,    .05163,   1.00255,    .22523,    .00000,
     +     .00000,    .12211,    .22844,
     +     .09721,    .05389,   1.46987,    .23815,    .00000,
     +     .00000,    .13585,    .24170,
     +     .10251,    .05714,   2.16566,    .25881,    .00000,
     +     .00000,    .15768,    .26286,
     +     .10628,    .05944,   2.67709,    .27487,    .00939,
     +     .00000,    .17457,    .27927,
     +     .11015,    .06178,   3.18584,    .29241,    .03127,
     +     .00000,    .19295,    .29717,
     +     .11344,    .06376,   3.62384,    .30807,    .04815,
     +     .00000,    .20931,    .31314,
     +     .11656,    .06564,   4.04870,    .32343,    .06538,
     +     .00000,    .22534,    .32879,
     +     .11984,    .06761,   4.50197,    .34009,    .08437,
     +     .00000,    .24270,    .34575 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
     +     .12265,    .06928,   4.88988,    .35482,    .10066,
     +     .00000,    .25802,    .36074,
     +     .12533,    .07088,   5.25689,    .36916,    .11634,
     +     .00000,    .27293,    .37533,
     +     .12745,    .07213,   5.55296,    .38073,    .12942,
     +     .00000,    .28494,    .38710,
     +     .13187,    .07474,   6.13851,    .40555,    .15667,
     +     .00547,    .31068,    .41232,
     +     .13559,    .07693,   6.59267,    .42694,    .17995,
     +     .03370,    .33285,    .43405,
     +     .13970,    .07933,   7.08845,    .45103,    .20624,
     +     .06549,    .35778,    .45851,
     +     .14391,    .08178,   7.58590,    .47599,    .23348,
     +     .09543,    .38361,    .48385,
     +     .14768,    .08395,   8.01823,    .49849,    .25802,
     +     .12238,    .40689,    .50669 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
     +     .15142,    .08611,   8.43715,    .52106,    .28267,
     +     .14937,    .43024,    .52960,
     +     .15449,    .08788,   8.77135,    .53965,    .30298,
     +     .17155,    .44947,    .54847,
     +     .15815,    .08996,   9.15197,    .56178,    .32698,
     +     .19738,    .47235,    .57092,
     +     .16135,    .09178,   9.47397,    .58116,    .34807,
     +     .22022,    .49238,    .59058,
     +     .16426,    .09343,   9.76091,    .59886,    .36746,
     +     .24141,    .51069,    .60854,
     +     .16788,    .09547,  10.09497,    .62065,    .39108,
     +     .26678,    .53322,    .63065,
     +     .17124,    .09736,  10.39181,    .64081,    .41302,
     +     .29045,    .55408,    .65111,
     +     .17435,    .09910,  10.65745,    .65950,    .43344,
     +     .31259,    .57341,    .67006 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
     +     .17741,    .10080,  10.90223,    .67766,    .45320,
     +     .33388,    .59221,    .68849,
     +     .18036,    .10244,  11.12703,    .69507,    .47219,
     +     .35436,    .61023,    .70615,
     +     .18314,    .10398,  11.33126,    .71139,    .49008,
     +     .37376,    .62714,    .72271,
     +     .18570,    .10539,  11.50352,    .72616,    .50617,
     +     .39105,    .64244,    .73770,
     +     .18827,    .10680,  11.67420,    .74103,    .52250,
     +     .40876,    .65786,    .75279,
     +     .19075,    .10815,  11.82219,    .75498,    .53774,
     +     .42515,    .67234,    .76695,
     +     .19311,    .10944,  11.96179,    .76830,    .55241,
     +     .44107,    .68616,    .78048,
     +     .19528,    .11062,  12.07692,    .78031,    .56555,
     +     .45522,    .69863,    .79266 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
     +     .19748,    .11181,  12.19303,    .79249,    .57899,
     +     .46980,    .71128,    .80504,
     +     .19960,    .11295,  12.29266,    .80396,    .59159,
     +     .48338,    .72320,    .81668,
     +     .20163,    .11404,  12.38553,    .81486,    .60362,
     +     .49643,    .73455,    .82775,
     +     .20352,    .11506,  12.46577,    .82492,    .61474,
     +     .50847,    .74502,    .83796,
     +     .20542,    .11608,  12.53953,    .83482,    .62568,
     +     .52032,    .75533,    .84802 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
     +     .10946,    .06247,   1.08535,    .21588,    .00000,
     +     .00000,    .11722,    .22034,
     +     .11367,    .06504,   1.51730,    .22780,    .00000,
     +     .00000,    .12998,    .23268,
     +     .11974,    .06870,   2.14972,    .24658,    .00000,
     +     .00000,    .14994,    .25205,
     +     .12405,    .07129,   2.60621,    .26100,    .00850,
     +     .00000,    .16521,    .26689,
     +     .12845,    .07391,   3.05364,    .27659,    .02824,
     +     .00000,    .18164,    .28290,
     +     .13218,    .07612,   3.43406,    .29036,    .04332,
     +     .00000,    .19614,    .29704,
     +     .13571,    .07821,   3.79900,    .30378,    .05860,
     +     .00000,    .21024,    .31079,
     +     .13940,    .08039,   4.18424,    .31823,    .07533,
     +     .00000,    .22540,    .32560 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
     +     .14257,    .08224,   4.51056,    .33091,    .08958,
     +     .00000,    .23868,    .33858,
     +     .14558,    .08399,   4.81642,    .34318,    .10322,
     +     .00000,    .25153,    .35113,
     +     .14795,    .08538,   5.06147,    .35303,    .11455,
     +     .00000,    .26184,    .36121,
     +     .15289,    .08823,   5.53957,    .37400,    .13797,
     +     .00477,    .28376,    .38264,
     +     .15702,    .09061,   5.90339,    .39191,    .15781,
     +     .02900,    .30247,    .40094,
     +     .16158,    .09322,   6.29537,    .41191,    .18005,
     +     .05617,    .32335,    .42136,
     +     .16624,    .09586,   6.68312,    .43246,    .20291,
     +     .08153,    .34479,    .44233,
     +     .17038,    .09820,   7.01530,    .45082,    .22334,
     +     .10419,    .36396,    .46107 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
     +     .17449,    .10052,   7.33283,    .46909,    .24371,
     +     .12673,    .38303,    .47972,
     +     .17784,    .10240,   7.58298,    .48403,    .26039,
     +     .14513,    .39863,    .49496,
     +     .18183,    .10462,   7.86358,    .50167,    .27996,
     +     .16642,    .41705,    .51296,
     +     .18531,    .10654,   8.09776,    .51700,    .29703,
     +     .18513,    .43306,    .52860,
     +     .18846,    .10828,   8.30422,    .53093,    .31266,
     +     .20240,    .44762,    .54281,
     +     .19237,    .11042,   8.53996,    .54791,    .33154,
     +     .22293,    .46538,    .56014,
     +     .19598,    .11240,   8.74601,    .56352,    .34896,
     +     .24196,    .48171,    .57606,
     +     .19932,    .11421,   8.92776,    .57788,    .36509,
     +     .25968,    .49674,    .59071 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
     +     .20259,    .11598,   9.09172,    .59172,    .38058,
     +     .27659,    .51124,    .60484,
     +     .20574,    .11767,   9.23951,    .60489,    .39537,
     +     .29278,    .52506,    .61828,
     +     .20869,    .11925,   9.37189,    .61717,    .40925,
     +     .30804,    .53794,    .63081,
     +     .21141,    .12070,   9.48006,    .62818,    .42162,
     +     .32154,    .54951,    .64205,
     +     .21412,    .12215,   9.58639,    .63922,    .43415,
     +     .33534,    .56112,    .65332,
     +     .21673,    .12352,   9.67493,    .64948,    .44574,
     +     .34801,    .57193,    .66380,
     +     .21921,    .12482,   9.75795,    .65924,    .45687,
     +     .36029,    .58221,    .67377,
     +     .22149,    .12602,   9.82301,    .66796,    .46676,
     +     .37112,    .59140,    .68267 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
     +     .22378,    .12722,   9.88844,    .67678,    .47685,
     +     .38226,    .60072,    .69169,
     +     .22599,    .12837,   9.94126,    .68499,    .48624,
     +     .39257,    .60940,    .70008,
     +     .22810,    .12946,   9.98985,    .69278,    .49518,
     +     .40244,    .61765,    .70804,
     +     .23006,    .13048,  10.02979,    .69991,    .50339,
     +     .41151,    .62520,    .71532,
     +     .23203,    .13149,  10.06443,    .70687,    .51143,
     +     .42039,    .63260,    .72245 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
     +     .12410,    .07252,   1.15929,    .20917,    .00000,
     +     .00000,    .11379,    .21494,
     +     .12878,    .07532,   1.56198,    .22029,    .00000,
     +     .00000,    .12577,    .22653,
     +     .13549,    .07932,   2.14341,    .23757,    .00000,
     +     .00000,    .14427,    .24449,
     +     .14026,    .08213,   2.55684,    .25071,    .00783,
     +     .00000,    .15829,    .25811,
     +     .14509,    .08496,   2.95711,    .26480,    .02597,
     +     .00000,    .17325,    .27267,
     +     .14918,    .08734,   3.29394,    .27715,    .03970,
     +     .00000,    .18634,    .28541,
     +     .15304,    .08958,   3.61406,    .28910,    .05354,
     +     .00000,    .19900,    .29774,
     +     .15708,    .09191,   3.94900,    .30189,    .06862,
     +     .00000,    .21253,    .31093 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
     +     .16053,    .09389,   4.23031,    .31305,    .08138,
     +     .00000,    .22432,    .32242,
     +     .16380,    .09576,   4.49187,    .32378,    .09353,
     +     .00000,    .23565,    .33347,
     +     .16637,    .09723,   4.70020,    .33237,    .10358,
     +     .00000,    .24472,    .34230,
     +     .17171,    .10026,   5.10186,    .35054,    .12426,
     +     .00427,    .26387,    .36097,
     +     .17617,    .10277,   5.40221,    .36593,    .14165,
     +     .02564,    .28010,    .37679,
     +     .18108,    .10550,   5.72203,    .38300,    .16102,
     +     .04952,    .29808,    .39432,
     +     .18606,    .10827,   6.03436,    .40040,    .18079,
     +     .07165,    .31642,    .41218,
     +     .19049,    .11072,   6.29852,    .41584,    .19835,
     +     .09131,    .33269,    .42802 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
     +     .19487,    .11312,   6.54792,    .43109,    .21575,
     +     .11074,    .34878,    .44367,
     +     .19843,    .11507,   6.74202,    .44348,    .22991,
     +     .12652,    .36186,    .45639,
     +     .20266,    .11736,   6.95646,    .45801,    .24643,
     +     .14468,    .37720,    .47129,
     +     .20632,    .11933,   7.13310,    .47055,    .26077,
     +     .16057,    .39046,    .48416,
     +     .20965,    .12112,   7.28726,    .48189,    .27383,
     +     .17517,    .40245,    .49579,
     +     .21374,    .12330,   7.45970,    .49561,    .28952,
     +     .19242,    .41697,    .50987,
     +     .21752,    .12531,   7.60792,    .50812,    .30391,
     +     .20833,    .43024,    .52271,
     +     .22101,    .12715,   7.73664,    .51957,    .31716,
     +     .22308,    .44239,    .53446 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
     +     .22442,    .12893,   7.84977,    .53052,    .32981,
     +     .23707,    .45403,    .54570,
     +     .22768,    .13063,   7.94971,    .54088,    .34183,
     +     .25040,    .46505,    .55633,
     +     .23073,    .13222,   8.03785,    .55048,    .35305,
     +     .26292,    .47529,    .56619,
     +     .23353,    .13366,   8.10684,    .55900,    .36300,
     +     .27394,    .48440,    .57494,
     +     .23633,    .13510,   8.17402,    .56753,    .37304,
     +     .28516,    .49351,    .58370,
     +     .23900,    .13646,   8.22701,    .57538,    .38227,
     +     .29541,    .50192,    .59176,
     +     .24153,    .13775,   8.27633,    .58282,    .39110,
     +     .30532,    .50991,    .59942,
     +     .24385,    .13892,   8.31174,    .58940,    .39890,
     +     .31400,    .51698,    .60618 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
     +     .24620,    .14010,   8.34726,    .59604,    .40684,
     +     .32293,    .52414,    .61301,
     +     .24844,    .14123,   8.37286,    .60216,    .41417,
     +     .33113,    .53075,    .61931,
     +     .25058,    .14229,   8.39585,    .60794,    .42114,
     +     .33897,    .53700,    .62526,
     +     .25256,    .14328,   8.41273,    .61320,    .42751,
     +     .34615,    .54270,    .63067,
     +     .25454,    .14426,   8.42525,    .61830,    .43371,
     +     .35314,    .54825,    .63593 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
     +     .15094,    .09091,   1.28407,    .19960,    .00000,
     +     .00000,    .10906,    .20807,
     +     .15638,    .09406,   1.63853,    .20940,    .00000,
     +     .00000,    .11979,    .21845,
     +     .16414,    .09852,   2.13917,    .22435,    .00000,
     +     .00000,    .13607,    .23418,
     +     .16960,    .10162,   2.48658,    .23553,    .00685,
     +     .00000,    .14818,    .24592,
     +     .17512,    .10474,   2.81601,    .24735,    .02263,
     +     .00000,    .16096,    .25829,
     +     .17976,    .10734,   3.08862,    .25757,    .03442,
     +     .00000,    .17198,    .26897,
     +     .18413,    .10978,   3.34378,    .26736,    .04619,
     +     .00000,    .18254,    .27919,
     +     .18868,    .11231,   3.60686,    .27774,    .05889,
     +     .00000,    .19373,    .29002 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
     +     .19256,    .11444,   3.82463,    .28670,    .06954,
     +     .00000,    .20337,    .29935,
     +     .19621,    .11644,   4.02435,    .29523,    .07961,
     +     .00000,    .21256,    .30824,
     +     .19909,    .11801,   4.18188,    .30203,    .08789,
     +     .00000,    .21987,    .31530,
     +     .20502,    .12122,   4.47894,    .31622,    .10474,
     +     .00356,    .23514,    .33006,
     +     .20993,    .12387,   4.69390,    .32811,    .11876,
     +     .02100,    .24792,    .34241,
     +     .21530,    .12673,   4.91790,    .34113,    .13422,
     +     .04038,    .26193,    .35592,
     +     .22074,    .12961,   5.13153,    .35421,    .14981,
     +     .05812,    .27604,    .36950,
     +     .22553,    .13212,   5.30770,    .36567,    .16352,
     +     .07372,    .28840,    .38139 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
     +     .23025,    .13458,   5.46988,    .37685,    .17697,
     +     .08901,    .30049,    .39299,
     +     .23407,    .13657,   5.59303,    .38585,    .18782,
     +     .10132,    .31022,    .40232,
     +     .23857,    .13888,   5.72512,    .39624,    .20033,
     +     .11536,    .32149,    .41310,
     +     .24246,    .14086,   5.83078,    .40512,    .21110,
     +     .12754,    .33114,    .42231,
     +     .24597,    .14264,   5.92086,    .41307,    .22085,
     +     .13866,    .33979,    .43056,
     +     .25027,    .14480,   6.01668,    .42253,    .23241,
     +     .15167,    .35013,    .44039,
     +     .25421,    .14677,   6.09572,    .43106,    .24292,
     +     .16357,    .35946,    .44924,
     +     .25783,    .14856,   6.16176,    .43877,    .25252,
     +     .17452,    .36793,    .45725 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
     +     .26134,    .15029,   6.21587,    .44604,    .26159,
     +     .18481,    .37593,    .46479,
     +     .26469,    .15192,   6.26045,    .45282,    .27013,
     +     .19454,    .38343,    .47184,
     +     .26781,    .15344,   6.29765,    .45905,    .27805,
     +     .20362,    .39033,    .47832,
     +     .27064,    .15480,   6.32243,    .46448,    .28498,
     +     .21153,    .39638,    .48396,
     +     .27347,    .15616,   6.34576,    .46987,    .29195,
     +     .21956,    .40240,    .48957,
     +     .27616,    .15743,   6.35926,    .47473,    .29827,
     +     .22681,    .40787,    .49464,
     +     .27869,    .15862,   6.37139,    .47932,    .30431,
     +     .23380,    .41303,    .49942,
     +     .28100,    .15970,   6.37489,    .48328,    .30956,
     +     .23986,    .41752,    .50355 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
     +     .28333,    .16078,   6.37839,    .48727,    .31489,
     +     .24607,    .42205,    .50770,
     +     .28553,    .16180,   6.37518,    .49085,    .31975,
     +     .25172,    .42615,    .51144,
     +     .28763,    .16277,   6.37123,    .49421,    .32435,
     +     .25710,    .43001,    .51495,
     +     .28957,    .16365,   6.36408,    .49721,    .32851,
     +     .26199,    .43348,    .51809,
     +     .29149,    .16452,   6.35376,    .50007,    .33253,
     +     .26671,    .43682,    .52108 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
     +     .18744,    .11549,   1.42374,    .18946,    .00000,
     +     .00000,    .10432,    .20212,
     +     .19371,    .11894,   1.72086,    .19772,    .00000,
     +     .00000,    .11362,    .21102,
     +     .20257,    .12376,   2.13009,    .21002,    .00000,
     +     .00000,    .12741,    .22422,
     +     .20877,    .12708,   2.40590,    .21904,    .00583,
     +     .00000,    .13749,    .23387,
     +     .21499,    .13039,   2.66073,    .22843,    .01916,
     +     .00000,    .14795,    .24386,
     +     .22018,    .13313,   2.86733,    .23642,    .02898,
     +     .00000,    .15684,    .25235,
     +     .22504,    .13568,   3.05714,    .24397,    .03868,
     +     .00000,    .16526,    .26037,
     +     .23008,    .13831,   3.24928,    .25189,    .04903,
     +     .00000,    .17407,    .26876 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
     +     .23434,    .14051,   3.40535,    .25863,    .05762,
     +     .00000,    .18157,    .27590,
     +     .23834,    .14256,   3.54596,    .26498,    .06565,
     +     .00000,    .18865,    .28262,
     +     .24148,    .14416,   3.65554,    .27000,    .07223,
     +     .00000,    .19424,    .28792,
     +     .24789,    .14741,   3.85566,    .28033,    .08544,
     +     .00288,    .20577,    .29883,
     +     .25317,    .15005,   3.99297,    .28885,    .09629,
     +     .01660,    .21528,    .30781,
     +     .25890,    .15290,   4.13168,    .29802,    .10811,
     +     .03175,    .22554,    .31748,
     +     .26465,    .15571,   4.25912,    .30707,    .11987,
     +     .04544,    .23572,    .32702,
     +     .26968,    .15816,   4.35989,    .31486,    .13008,
     +     .05734,    .24450,    .33523 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
     +     .27459,    .16052,   4.44873,    .32234,    .13998,
     +     .06887,    .25297,    .34311,
     +     .27854,    .16240,   4.51326,    .32825,    .14788,
     +     .07807,    .25969,    .34933,
     +     .28316,    .16457,   4.57804,    .33496,    .15688,
     +     .08845,    .26736,    .35641,
     +     .28711,    .16641,   4.62673,    .34059,    .16455,
     +     .09737,    .27383,    .36235,
     +     .29066,    .16806,   4.66617,    .34557,    .17142,
     +     .10546,    .27956,    .36759,
     +     .29497,    .17003,   4.70279,    .35135,    .17946,
     +     .11479,    .28629,    .37369,
     +     .29888,    .17179,   4.72898,    .35646,    .18669,
     +     .12326,    .29227,    .37908,
     +     .30245,    .17339,   4.74775,    .36100,    .19322,
     +     .13097,    .29762,    .38388 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
     +     .30588,    .17490,   4.75835,    .36517,    .19931,
     +     .13815,    .30258,    .38828,
     +     .30912,    .17632,   4.76292,    .36897,    .20497,
     +     .14487,    .30714,    .39230,
     +     .31212,    .17763,   4.76392,    .37240,    .21018,
     +     .15110,    .31130,    .39593,
     +     .31482,    .17878,   4.75809,    .37528,    .21466,
     +     .15645,    .31484,    .39898,
     +     .31751,    .17991,   4.75139,    .37812,    .21915,
     +     .16186,    .31834,    .40199,
     +     .32002,    .18095,   4.73833,    .38056,    .22314,
     +     .16669,    .32142,    .40459,
     +     .32239,    .18194,   4.72570,    .38285,    .22694,
     +     .17132,    .32432,    .40702,
     +     .32451,    .18280,   4.70873,    .38473,    .23019,
     +     .17527,    .32676,    .40902 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
     +     .32665,    .18367,   4.69184,    .38662,    .23347,
     +     .17932,    .32921,    .41103,
     +     .32865,    .18447,   4.67082,    .38821,    .23641,
     +     .18295,    .33135,    .41272,
     +     .33054,    .18521,   4.65041,    .38968,    .23917,
     +     .18639,    .33334,    .41430,
     +     .33228,    .18589,   4.62901,    .39094,    .24163,
     +     .18948,    .33509,    .41564,
     +     .33398,    .18655,   4.60554,    .39208,    .24398,
     +     .19245,    .33672,    .41687 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
     +     .24236,    .15092,   1.56293,    .17648,    .00000,
     +     .00000,    .09863,    .19613,
     +     .24945,    .15447,   1.78762,    .18273,    .00000,
     +     .00000,    .10610,    .20306,
     +     .25936,    .15936,   2.08698,    .19179,    .00000,
     +     .00000,    .11689,    .21303,
     +     .26620,    .16269,   2.28092,    .19827,    .00468,
     +     .00000,    .12459,    .22013,
     +     .27299,    .16595,   2.45289,    .20487,    .01529,
     +     .00000,    .13242,    .22732,
     +     .27860,    .16861,   2.58834,    .21035,    .02296,
     +     .00000,    .13895,    .23329,
     +     .28382,    .17106,   2.70953,    .21546,    .03044,
     +     .00000,    .14503,    .23883,
     +     .28918,    .17356,   2.82893,    .22071,    .03831,
     +     .00000,    .15130,    .24452 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
     +     .29367,    .17563,   2.92303,    .22510,    .04476,
     +     .00000,    .15656,    .24927,
     +     .29786,    .17753,   3.00531,    .22916,    .05071,
     +     .00000,    .16144,    .25366,
     +     .30113,    .17900,   3.06827,    .23233,    .05555,
     +     .00000,    .16526,    .25709,
     +     .30772,    .18196,   3.17620,    .23874,    .06513,
     +     .00218,    .17299,    .26399,
     +     .31308,    .18431,   3.24208,    .24388,    .07287,
     +     .01221,    .17924,    .26951,
     +     .31882,    .18679,   3.30396,    .24928,    .08116,
     +     .02320,    .18586,    .27531,
     +     .32450,    .18920,   3.35572,    .25445,    .08929,
     +     .03296,    .19225,    .28085,
     +     .32941,    .19125,   3.39198,    .25875,    .09622,
     +     .04133,    .19765,    .28547 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
     +     .33414,    .19318,   3.41952,    .26275,    .10283,
     +     .04934,    .20272,    .28976,
     +     .33790,    .19471,   3.43606,    .26583,    .10804,
     +     .05564,    .20668,    .29306,
     +     .34222,    .19641,   3.44715,    .26918,    .11387,
     +     .06266,    .21107,    .29666,
     +     .34588,    .19783,   3.45137,    .27190,    .11877,
     +     .06863,    .21468,    .29956,
     +     .34912,    .19908,   3.45197,    .27424,    .12311,
     +     .07398,    .21783,    .30206,
     +     .35299,    .20052,   3.44430,    .27680,    .12809,
     +     .08007,    .22140,    .30480,
     +     .35646,    .20177,   3.43235,    .27895,    .13248,
     +     .08551,    .22448,    .30711,
     +     .35958,    .20288,   3.41792,    .28077,    .13640,
     +     .09042,    .22716,    .30906 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
     +     .36251,    .20389,   3.39863,    .28232,    .13999,
     +     .09493,    .22953,    .31072,
     +     .36524,    .20481,   3.37662,    .28364,    .14327,
     +     .09909,    .23165,    .31212,
     +     .36774,    .20564,   3.35419,    .28477,    .14624,
     +     .10291,    .23353,    .31333,
     +     .36994,    .20633,   3.32924,    .28558,    .14874,
     +     .10614,    .23503,    .31420,
     +     .37211,    .20700,   3.30409,    .28636,    .15122,
     +     .10938,    .23649,    .31503,
     +     .37408,    .20757,   3.27591,    .28689,    .15336,
     +     .11222,    .23768,    .31561,
     +     .37593,    .20811,   3.24940,    .28737,    .15539,
     +     .11493,    .23879,    .31613,
     +     .37754,    .20855,   3.22158,    .28763,    .15706,
     +     .11719,    .23961,    .31640 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
     +     .37915,    .20898,   3.19403,    .28788,    .15875,
     +     .11950,    .24044,    .31667,
     +     .38061,    .20934,   3.16462,    .28795,    .16021,
     +     .12154,    .24107,    .31674,
     +     .38199,    .20968,   3.13670,    .28799,    .16156,
     +     .12345,    .24164,    .31678,
     +     .38322,    .20996,   3.10932,    .28793,    .16274,
     +     .12515,    .24208,    .31672,
     +     .38440,    .21021,   3.08087,    .28780,    .16384,
     +     .12675,    .24244,    .31658 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
     +     .29239,    .18124,   1.62085,    .16505,    .00000,
     +     .00000,    .09384,    .19140,
     +     .29981,    .18460,   1.79131,    .16975,    .00000,
     +     .00000,    .09989,    .19670,
     +     .31006,    .18914,   2.01192,    .17640,    .00000,
     +     .00000,    .10844,    .20414,
     +     .31706,    .19220,   2.14963,    .18106,    .00387,
     +     .00000,    .11443,    .20931,
     +     .32391,    .19515,   2.26652,    .18572,    .01258,
     +     .00000,    .12042,    .21445,
     +     .32954,    .19750,   2.35595,    .18951,    .01880,
     +     .00000,    .12533,    .21862,
     +     .33473,    .19965,   2.43380,    .19298,    .02480,
     +     .00000,    .12985,    .22242,
     +     .34001,    .20181,   2.50830,    .19648,    .03106,
     +     .00000,    .13445,    .22626 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
     +     .34439,    .20357,   2.56506,    .19936,    .03613,
     +     .00000,    .13825,    .22939,
     +     .34843,    .20517,   2.61281,    .20197,    .04077,
     +     .00000,    .14173,    .23223,
     +     .35158,    .20639,   2.64859,    .20400,    .04452,
     +     .00000,    .14443,    .23443,
     +     .35787,    .20879,   2.70410,    .20797,    .05185,
     +     .00173,    .14982,    .23872,
     +     .36288,    .21066,   2.73071,    .21107,    .05770,
     +     .00948,    .15408,    .24206,
     +     .36818,    .21257,   2.75156,    .21423,    .06390,
     +     .01793,    .15850,    .24545,
     +     .37335,    .21439,   2.76412,    .21712,    .06988,
     +     .02534,    .16267,    .24854,
     +     .37774,    .21588,   2.76788,    .21943,    .07492,
     +     .03162,    .16611,    .25099 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
     +     .38191,    .21724,   2.76538,    .22148,    .07968,
     +     .03757,    .16927,    .25317,
     +     .38518,    .21827,   2.75909,    .22298,    .08337,
     +     .04221,    .17166,    .25475,
     +     .38886,    .21938,   2.74548,    .22450,    .08746,
     +     .04733,    .17423,    .25634,
     +     .39192,    .22026,   2.72982,    .22565,    .09084,
     +     .05163,    .17630,    .25753,
     +     .39462,    .22101,   2.71350,    .22658,    .09381,
     +     .05546,    .17805,    .25850,
     +     .39773,    .22182,   2.68743,    .22746,    .09716,
     +     .05977,    .17994,    .25937,
     +     .40046,    .22248,   2.66020,    .22809,    .10008,
     +     .06358,    .18149,    .25999,
     +     .40288,    .22302,   2.63296,    .22854,    .10264,
     +     .06700,    .18279,    .26042 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
     +     .40509,    .22346,   2.60283,    .22878,    .10495,
     +     .07008,    .18386,    .26062,
     +     .40709,    .22382,   2.57178,    .22888,    .10702,
     +     .07291,    .18475,    .26066,
     +     .40889,    .22413,   2.54179,    .22889,    .10888,
     +     .07548,    .18550,    .26061,
     +     .41040,    .22431,   2.51128,    .22872,    .11040,
     +     .07762,    .18600,    .26036,
     +     .41189,    .22449,   2.48098,    .22851,    .11190,
     +     .07976,    .18647,    .26009,
     +     .41316,    .22457,   2.44925,    .22815,    .11315,
     +     .08160,    .18676,    .25965,
     +     .41436,    .22464,   2.41963,    .22780,    .11433,
     +     .08335,    .18701,    .25922,
     +     .41533,    .22463,   2.39008,    .22733,    .11526,
     +     .08479,    .18710,    .25865 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
     +     .41630,    .22462,   2.36091,    .22686,    .11621,
     +     .08625,    .18719,    .25808,
     +     .41711,    .22454,   2.33098,    .22626,    .11698,
     +     .08750,    .18713,    .25737,
     +     .41786,    .22446,   2.30279,    .22568,    .11770,
     +     .08869,    .18705,    .25668,
     +     .41850,    .22434,   2.27569,    .22506,    .11830,
     +     .08971,    .18691,    .25597,
     +     .41907,    .22419,   2.24802,    .22439,    .11883,
     +     .09067,    .18671,    .25519 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
     +     .38171,    .23052,   1.59408,    .14377,    .00000,
     +     .00000,    .08492,    .18155,
     +     .38877,    .23300,   1.69041,    .14628,    .00000,
     +     .00000,    .08886,    .18428,
     +     .39829,    .23621,   1.80770,    .14963,    .00000,
     +     .00000,    .09422,    .18789,
     +     .40464,    .23825,   1.87490,    .15188,    .00277,
     +     .00000,    .09787,    .19029,
     +     .41070,    .24012,   1.92527,    .15404,    .00894,
     +     .00000,    .10142,    .19253,
     +     .41554,    .24154,   1.96058,    .15571,    .01327,
     +     .00000,    .10424,    .19423,
     +     .41991,    .24277,   1.98880,    .15717,    .01738,
     +     .00000,    .10677,    .19570,
     +     .42428,    .24394,   2.01317,    .15857,    .02161,
     +     .00000,    .10928,    .19709 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
     +     .42782,    .24484,   2.02911,    .15965,    .02498,
     +     .00000,    .11130,    .19814,
     +     .43100,    .24560,   2.04002,    .16058,    .02803,
     +     .00000,    .11309,    .19900,
     +     .43343,    .24617,   2.04732,    .16128,    .03047,
     +     .00000,    .11447,    .19964,
     +     .43816,    .24714,   2.04972,    .16251,    .03516,
     +     .00118,    .11709,    .20074,
     +     .44176,    .24777,   2.03851,    .16336,    .03883,
     +     .00621,    .11907,    .20143,
     +     .44541,    .24831,   2.02124,    .16409,    .04265,
     +     .01167,    .12103,    .20195,
     +     .44878,    .24869,   1.99878,    .16459,    .04626,
     +     .01637,    .12276,    .20220,
     +     .45150,    .24888,   1.97476,    .16483,    .04923,
     +     .02029,    .12408,    .20220 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
     +     .45394,    .24894,   1.94772,    .16489,    .05198,
     +     .02395,    .12519,    .20200,
     +     .45575,    .24888,   1.92353,    .16482,    .05407,
     +     .02676,    .12597,    .20169,
     +     .45761,    .24868,   1.89158,    .16456,    .05633,
     +     .02981,    .12669,    .20113,
     +     .45905,    .24841,   1.86210,    .16420,    .05817,
     +     .03233,    .12719,    .20049,
     +     .46024,    .24811,   1.83464,    .16381,    .05975,
     +     .03456,    .12756,    .19984,
     +     .46140,    .24760,   1.79768,    .16314,    .06148,
     +     .03701,    .12781,    .19880,
     +     .46229,    .24703,   1.76228,    .16240,    .06294,
     +     .03914,    .12791,    .19772,
     +     .46297,    .24643,   1.72895,    .16163,    .06420,
     +     .04103,    .12791,    .19664 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
     +     .46342,    .24574,   1.69484,    .16076,    .06528,
     +     .04269,    .12778,    .19542,
     +     .46370,    .24499,   1.66130,    .15983,    .06622,
     +     .04419,    .12756,    .19415,
     +     .46387,    .24426,   1.62985,    .15892,    .06704,
     +     .04554,    .12730,    .19292,
     +     .46383,    .24348,   1.59957,    .15796,    .06767,
     +     .04663,    .12694,    .19165,
     +     .46376,    .24270,   1.56986,    .15699,    .06829,
     +     .04771,    .12656,    .19038,
     +     .46349,    .24184,   1.54014,    .15596,    .06876,
     +     .04861,    .12609,    .18903,
     +     .46322,    .24104,   1.51263,    .15498,    .06919,
     +     .04946,    .12564,    .18775,
     +     .46280,    .24020,   1.48619,    .15398,    .06950,
     +     .05013,    .12513,    .18646 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
     +     .46238,    .23938,   1.46023,    .15298,    .06981,
     +     .05081,    .12461,    .18518,
     +     .46183,    .23849,   1.43438,    .15193,    .07001,
     +     .05137,    .12403,    .18384,
     +     .46128,    .23764,   1.41023,    .15093,    .07020,
     +     .05189,    .12347,    .18258,
     +     .46067,    .23681,   1.38744,    .14996,    .07033,
     +     .05233,    .12290,    .18135,
     +     .45999,    .23594,   1.36453,    .14895,    .07042,
     +     .05272,    .12230,    .18008 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
     +     .45900,    .26801,   1.47257,    .12417,    .00000,
     +     .00000,    .07629,    .16991,
     +     .46480,    .26926,   1.52412,    .12526,    .00000,
     +     .00000,    .07877,    .17076,
     +     .47232,    .27066,   1.58168,    .12661,    .00000,
     +     .00000,    .08204,    .17168,
     +     .47714,    .27140,   1.61007,    .12745,    .00206,
     +     .00000,    .08420,    .17217,
     +     .48157,    .27191,   1.62529,    .12819,    .00661,
     +     .00000,    .08624,    .17253,
     +     .48495,    .27218,   1.63307,    .12868,    .00975,
     +     .00000,    .08780,    .17265,
     +     .48789,    .27231,   1.63678,    .12904,    .01272,
     +     .00000,    .08916,    .17264,
     +     .49073,    .27233,   1.63711,    .12933,    .01573,
     +     .00000,    .09046,    .17253 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
     +     .49291,    .27222,   1.63407,    .12948,    .01810,
     +     .00000,    .09147,    .17232,
     +     .49477,    .27203,   1.62838,    .12954,    .02023,
     +     .00000,    .09232,    .17201,
     +     .49615,    .27185,   1.62312,    .12956,    .02192,
     +     .00000,    .09296,    .17174,
     +     .49860,    .27125,   1.60334,    .12945,    .02513,
     +     .00085,    .09411,    .17102,
     +     .50023,    .27057,   1.57785,    .12922,    .02761,
     +     .00434,    .09489,    .17024,
     +     .50166,    .26965,   1.54710,    .12881,    .03014,
     +     .00812,    .09559,    .16920,
     +     .50272,    .26854,   1.51318,    .12824,    .03249,
     +     .01132,    .09610,    .16794,
     +     .50334,    .26741,   1.48096,    .12758,    .03440,
     +     .01396,    .09638,    .16667 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
     +     .50366,    .26615,   1.44749,    .12680,    .03613,
     +     .01639,    .09652,    .16528,
     +     .50371,    .26503,   1.41921,    .12608,    .03743,
     +     .01824,    .09654,    .16406,
     +     .50346,    .26354,   1.38400,    .12510,    .03880,
     +     .02022,    .09642,    .16245,
     +     .50301,    .26217,   1.35275,    .12418,    .03989,
     +     .02185,    .09622,    .16096,
     +     .50248,    .26089,   1.32437,    .12331,    .04081,
     +     .02326,    .09599,    .15957,
     +     .50148,    .25913,   1.28774,    .12207,    .04179,
     +     .02479,    .09555,    .15770,
     +     .50036,    .25741,   1.25362,    .12087,    .04260,
     +     .02611,    .09506,    .15588,
     +     .49917,    .25576,   1.22216,    .11971,    .04327,
     +     .02726,    .09456,    .15416 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
     +     .49776,    .25405,   1.19076,    .11849,    .04382,
     +     .02825,    .09396,    .15239,
     +     .49624,    .25233,   1.16045,    .11726,    .04428,
     +     .02913,    .09333,    .15062,
     +     .49472,    .25069,   1.13240,    .11609,    .04466,
     +     .02991,    .09271,    .14894,
     +     .49310,    .24907,   1.10597,    .11494,    .04493,
     +     .03053,    .09205,    .14730,
     +     .49146,    .24746,   1.08022,    .11380,    .04519,
     +     .03114,    .09140,    .14568,
     +     .48967,    .24580,   1.05492,    .11262,    .04536,
     +     .03163,    .09068,    .14404,
     +     .48797,    .24425,   1.03163,    .11152,    .04551,
     +     .03208,    .09001,    .14251,
     +     .48620,    .24272,   1.00962,    .11043,    .04558,
     +     .03243,    .08933,    .14101 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
     +     .48444,    .24120,    .98810,    .10936,    .04565,
     +     .03278,    .08865,    .13952,
     +     .48255,    .23966,    .96696,    .10827,    .04566,
     +     .03305,    .08794,    .13802,
     +     .48075,    .23819,    .94732,    .10724,    .04566,
     +     .03330,    .08726,    .13660,
     +     .47897,    .23678,    .92895,    .10625,    .04563,
     +     .03350,    .08660,    .13525,
     +     .47713,    .23534,    .91063,    .10524,    .04558,
     +     .03368,    .08592,    .13388 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
     +     .52532,    .29610,   1.31846,    .10652,    .00000,
     +     .00000,    .06792,    .15653,
     +     .52925,    .29596,   1.34323,    .10674,    .00000,
     +     .00000,    .06940,    .15603,
     +     .53396,    .29535,   1.36619,    .10689,    .00000,
     +     .00000,    .07125,    .15508,
     +     .53671,    .29471,   1.37301,    .10692,    .00157,
     +     .00000,    .07244,    .15427,
     +     .53901,    .29378,   1.36971,    .10683,    .00501,
     +     .00000,    .07350,    .15339,
     +     .54052,    .29285,   1.36328,    .10667,    .00738,
     +     .00000,    .07427,    .15246,
     +     .54168,    .29185,   1.35473,    .10644,    .00958,
     +     .00000,    .07490,    .15152,
     +     .54263,    .29068,   1.34342,    .10612,    .01180,
     +     .00000,    .07547,    .15046 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
     +     .54318,    .28958,   1.33152,    .10578,    .01354,
     +     .00000,    .07587,    .14947,
     +     .54346,    .28843,   1.31834,    .10539,    .01508,
     +     .00000,    .07617,    .14846,
     +     .54361,    .28750,   1.30754,    .10507,    .01630,
     +     .00000,    .07638,    .14765,
     +     .54344,    .28537,   1.27893,    .10429,    .01859,
     +     .00064,    .07668,    .14584,
     +     .54286,    .28340,   1.24874,    .10354,    .02033,
     +     .00316,    .07679,    .14423,
     +     .54183,    .28110,   1.21416,    .10262,    .02209,
     +     .00588,    .07678,    .14233,
     +     .54037,    .27858,   1.17774,    .10154,    .02371,
     +     .00816,    .07663,    .14027,
     +     .53874,    .27620,   1.14440,    .10049,    .02499,
     +     .01003,    .07639,    .13833 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
     +     .53681,    .27373,   1.11078,    .09938,    .02614,
     +     .01172,    .07604,    .13633,
     +     .53502,    .27164,   1.08304,    .09841,    .02699,
     +     .01300,    .07568,    .13465,
     +     .53256,    .26902,   1.04935,    .09718,    .02786,
     +     .01436,    .07516,    .13255,
     +     .53021,    .26666,   1.01998,    .09605,    .02854,
     +     .01545,    .07464,    .13068,
     +     .52798,    .26449,    .99363,    .09501,    .02911,
     +     .01641,    .07413,    .12897,
     +     .52482,    .26165,    .96033,    .09363,    .02969,
     +     .01742,    .07340,    .12675,
     +     .52170,    .25895,    .92974,    .09231,    .03015,
     +     .01828,    .07267,    .12465,
     +     .51868,    .25642,    .90185,    .09107,    .03052,
     +     .01901,    .07196,    .12269 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
     +     .51549,    .25384,    .87441,    .08979,    .03081,
     +     .01964,    .07119,    .12072,
     +     .51225,    .25130,    .84821,    .08855,    .03103,
     +     .02019,    .07042,    .11879,
     +     .50913,    .24892,    .82417,    .08738,    .03121,
     +     .02068,    .06968,    .11697,
     +     .50604,    .24660,    .80179,    .08623,    .03131,
     +     .02104,    .06895,    .11526,
     +     .50297,    .24430,    .78009,    .08509,    .03140,
     +     .02140,    .06822,    .11357,
     +     .49976,    .24200,    .75901,    .08395,    .03143,
     +     .02168,    .06745,    .11189,
     +     .49675,    .23986,    .73967,    .08289,    .03145,
     +     .02194,    .06674,    .11032,
     +     .49374,    .23779,    .72158,    .08187,    .03143,
     +     .02213,    .06604,    .10882 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
     +     .49076,    .23573,    .70396,    .08087,    .03141,
     +     .02231,    .06534,    .10733,
     +     .48770,    .23366,    .68680,    .07986,    .03134,
     +     .02245,    .06464,    .10585,
     +     .48480,    .23171,    .67092,    .07891,    .03127,
     +     .02257,    .06397,    .10446,
     +     .48200,    .22985,    .65614,    .07800,    .03119,
     +     .02266,    .06333,    .10315,
     +     .47913,    .22796,    .64149,    .07708,    .03109,
     +     .02273,    .06267,    .10183 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
     +     .59372,    .32030,   1.12518,    .08748,    .00000,
     +     .00000,    .05804,    .13821,
     +     .59474,    .31838,   1.13134,    .08710,    .00000,
     +     .00000,    .05868,    .13662,
     +     .59523,    .31527,   1.13110,    .08645,    .00000,
     +     .00000,    .05941,    .13414,
     +     .59500,    .31287,   1.12415,    .08592,    .00115,
     +     .00000,    .05982,    .13236,
     +     .59418,    .31024,   1.10970,    .08533,    .00366,
     +     .00000,    .06015,    .13046,
     +     .59309,    .30781,   1.09510,    .08473,    .00536,
     +     .00000,    .06032,    .12880,
     +     .59178,    .30543,   1.07977,    .08413,    .00693,
     +     .00000,    .06041,    .12719,
     +     .59013,    .30288,   1.06231,    .08345,    .00850,
     +     .00000,    .06044,    .12546 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
     +     .58845,    .30060,   1.04600,    .08283,    .00972,
     +     .00000,    .06041,    .12393,
     +     .58662,    .29834,   1.02933,    .08220,    .01079,
     +     .00000,    .06032,    .12245,
     +     .58513,    .29655,   1.01609,    .08169,    .01163,
     +     .00000,    .06022,    .12128,
     +     .58152,    .29265,    .98444,    .08055,    .01319,
     +     .00046,    .05993,    .11879,
     +     .57806,    .28926,    .95389,    .07953,    .01437,
     +     .00220,    .05960,    .11665,
     +     .57392,    .28538,    .91984,    .07835,    .01553,
     +     .00408,    .05915,    .11425,
     +     .56930,    .28131,    .88490,    .07707,    .01658,
     +     .00564,    .05859,    .11174,
     +     .56484,    .27760,    .85368,    .07588,    .01739,
     +     .00689,    .05801,    .10946 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
     +     .56014,    .27385,    .82278,    .07465,    .01811,
     +     .00803,    .05738,    .10716,
     +     .55611,    .27074,    .79768,    .07362,    .01863,
     +     .00887,    .05682,    .10527,
     +     .55103,    .26689,    .76772,    .07233,    .01915,
     +     .00975,    .05609,    .10298,
     +     .54643,    .26350,    .74195,    .07118,    .01954,
     +     .01045,    .05541,    .10098,
     +     .54217,    .26042,    .71907,    .07013,    .01986,
     +     .01106,    .05478,    .09918,
     +     .53651,    .25648,    .69059,    .06878,    .02017,
     +     .01169,    .05393,    .09689,
     +     .53111,    .25279,    .66472,    .06751,    .02040,
     +     .01222,    .05311,    .09477,
     +     .52602,    .24936,    .64137,    .06634,    .02057,
     +     .01267,    .05233,    .09281 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
     +     .52082,    .24594,    .61868,    .06515,    .02069,
     +     .01304,    .05154,    .09086,
     +     .51566,    .24259,    .59721,    .06399,    .02077,
     +     .01335,    .05075,    .08898,
     +     .51079,    .23947,    .57763,    .06291,    .02082,
     +     .01363,    .05002,    .08723,
     +     .50609,    .23649,    .55959,    .06188,    .02082,
     +     .01383,    .04930,    .08561,
     +     .50144,    .23355,    .54219,    .06086,    .02081,
     +     .01402,    .04858,    .08402,
     +     .49671,    .23066,    .52545,    .05986,    .02077,
     +     .01416,    .04787,    .08244,
     +     .49229,    .22796,    .51017,    .05893,    .02074,
     +     .01429,    .04720,    .08098,
     +     .48799,    .22538,    .49599,    .05805,    .02066,
     +     .01438,    .04656,    .07960 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
     +     .48374,    .22284,    .48222,    .05717,    .02059,
     +     .01446,    .04592,    .07823,
     +     .47946,    .22030,    .46891,    .05630,    .02050,
     +     .01451,    .04528,    .07690,
     +     .47542,    .21792,    .45664,    .05549,    .02040,
     +     .01455,    .04468,    .07565,
     +     .47156,    .21566,    .44528,    .05472,    .02030,
     +     .01458,    .04411,    .07448,
     +     .46764,    .21338,    .43409,    .05394,    .02019,
     +     .01459,    .04353,    .07332 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
     +     .64683,    .33444,    .95427,    .07172,    .00000,
     +     .00000,    .04896,    .11918,
     +     .64460,    .33085,    .95088,    .07107,    .00000,
     +     .00000,    .04911,    .11694,
     +     .64051,    .32533,    .93916,    .07000,    .00000,
     +     .00000,    .04917,    .11371,
     +     .63707,    .32129,    .92582,    .06924,    .00086,
     +     .00000,    .04915,    .11142,
     +     .63300,    .31705,    .90678,    .06840,    .00273,
     +     .00000,    .04905,    .10907,
     +     .62916,    .31331,    .88902,    .06765,    .00399,
     +     .00000,    .04890,    .10703,
     +     .62529,    .30970,    .87128,    .06690,    .00514,
     +     .00000,    .04870,    .10511,
     +     .62101,    .30588,    .85187,    .06608,    .00629,
     +     .00000,    .04843,    .10311 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
     +     .61710,    .30255,    .83438,    .06534,    .00716,
     +     .00000,    .04818,    .10138,
     +     .61318,    .29930,    .81703,    .06461,    .00793,
     +     .00000,    .04789,    .09973,
     +     .61006,    .29675,    .80342,    .06404,    .00852,
     +     .00000,    .04765,    .09844,
     +     .60305,    .29136,    .77229,    .06281,    .00962,
     +     .00034,    .04708,    .09571,
     +     .59683,    .28673,    .74352,    .06174,    .01043,
     +     .00158,    .04655,    .09342,
     +     .58968,    .28155,    .71197,    .06052,    .01122,
     +     .00292,    .04591,    .09090,
     +     .58204,    .27622,    .68008,    .05923,    .01192,
     +     .00401,    .04518,    .08830,
     +     .57499,    .27141,    .65198,    .05804,    .01245,
     +     .00488,    .04449,    .08601 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
     +     .56779,    .26660,    .62453,    .05684,    .01291,
     +     .00566,    .04376,    .08374,
     +     .56174,    .26264,    .60247,    .05585,    .01323,
     +     .00623,    .04314,    .08188,
     +     .55428,    .25786,    .57644,    .05464,    .01354,
     +     .00682,    .04235,    .07967,
     +     .54763,    .25369,    .55425,    .05357,    .01377,
     +     .00729,    .04165,    .07775,
     +     .54157,    .24994,    .53468,    .05261,    .01395,
     +     .00768,    .04101,    .07604,
     +     .53375,    .24515,    .51059,    .05137,    .01411,
     +     .00809,    .04017,    .07389,
     +     .52639,    .24073,    .48892,    .05024,    .01421,
     +     .00842,    .03938,    .07191,
     +     .51952,    .23666,    .46951,    .04919,    .01429,
     +     .00870,    .03864,    .07010 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
     +     .51261,    .23261,    .45080,    .04814,    .01432,
     +     .00893,    .03790,    .06834,
     +     .50586,    .22869,    .43323,    .04712,    .01432,
     +     .00911,    .03717,    .06664,
     +     .49954,    .22506,    .41731,    .04617,    .01431,
     +     .00927,    .03650,    .06508,
     +     .49350,    .22165,    .40274,    .04528,    .01428,
     +     .00938,    .03585,    .06363,
     +     .48754,    .21830,    .38875,    .04441,    .01424,
     +     .00949,    .03522,    .06220,
     +     .48160,    .21499,    .37542,    .04356,    .01416,
     +     .00956,    .03458,    .06083,
     +     .47606,    .21191,    .36329,    .04277,    .01410,
     +     .00962,    .03400,    .05955,
     +     .47076,    .20900,    .35208,    .04202,    .01402,
     +     .00965,    .03344,    .05836 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
     +     .46551,    .20614,    .34124,    .04128,    .01393,
     +     .00968,    .03289,    .05719,
     +     .46027,    .20330,    .33083,    .04055,    .01384,
     +     .00969,    .03234,    .05605,
     +     .45535,    .20064,    .32126,    .03988,    .01374,
     +     .00970,    .03182,    .05498,
     +     .45068,    .19814,    .31245,    .03924,    .01365,
     +     .00970,    .03134,    .05399,
     +     .44597,    .19564,    .30381,    .03861,    .01354,
     +     .00969,    .03085,    .05299 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
     +     .68551,    .34035,    .81257,    .05890,    .00000,
     +     .00000,    .04079,    .10043,
     +     .67997,    .33520,    .80407,    .05812,    .00000,
     +     .00000,    .04064,    .09795,
     +     .67116,    .32758,    .78645,    .05694,    .00000,
     +     .00000,    .04034,    .09439,
     +     .66449,    .32209,    .77009,    .05606,    .00066,
     +     .00000,    .04007,    .09193,
     +     .65721,    .31644,    .74926,    .05516,    .00208,
     +     .00000,    .03972,    .08945,
     +     .65068,    .31155,    .73045,    .05435,    .00303,
     +     .00000,    .03939,    .08735,
     +     .64432,    .30691,    .71209,    .05357,    .00389,
     +     .00000,    .03904,    .08537,
     +     .63748,    .30204,    .69240,    .05273,    .00473,
     +     .00000,    .03864,    .08332 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
     +     .63144,    .29783,    .67501,    .05198,    .00537,
     +     .00000,    .03826,    .08158,
     +     .62551,    .29378,    .65803,    .05125,    .00593,
     +     .00000,    .03788,    .07993,
     +     .62084,    .29062,    .64479,    .05069,    .00636,
     +     .00000,    .03758,    .07864,
     +     .61072,    .28398,    .61538,    .04947,    .00714,
     +     .00026,    .03688,    .07599,
     +     .60194,    .27837,    .58893,    .04843,    .00771,
     +     .00116,    .03627,    .07378,
     +     .59208,    .27216,    .56027,    .04724,    .00826,
     +     .00212,    .03557,    .07137,
     +     .58177,    .26583,    .53166,    .04603,    .00873,
     +     .00291,    .03481,    .06893,
     +     .57239,    .26019,    .50671,    .04494,    .00909,
     +     .00352,    .03410,    .06678 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
     +     .56295,    .25460,    .48254,    .04385,    .00938,
     +     .00407,    .03338,    .06467,
     +     .55515,    .25003,    .46330,    .04294,    .00958,
     +     .00446,    .03277,    .06298,
     +     .54565,    .24456,    .44081,    .04184,    .00977,
     +     .00487,    .03203,    .06098,
     +     .53731,    .23981,    .42181,    .04089,    .00990,
     +     .00518,    .03137,    .05925,
     +     .52976,    .23556,    .40518,    .04004,    .01000,
     +     .00545,    .03077,    .05771,
     +     .52014,    .23020,    .38487,    .03894,    .01007,
     +     .00572,    .03001,    .05581,
     +     .51117,    .22528,    .36674,    .03793,    .01011,
     +     .00593,    .02930,    .05408,
     +     .50287,    .22078,    .35060,    .03702,    .01013,
     +     .00610,    .02864,    .05250 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
     +     .49461,    .21632,    .33515,    .03611,    .01012,
     +     .00624,    .02798,    .05097,
     +     .48659,    .21205,    .32072,    .03525,    .01009,
     +     .00635,    .02734,    .04952,
     +     .47912,    .20810,    .30772,    .03445,    .01005,
     +     .00645,    .02675,    .04818,
     +     .47205,    .20441,    .29595,    .03369,    .01000,
     +     .00650,    .02619,    .04695,
     +     .46510,    .20080,    .28470,    .03296,    .00994,
     +     .00656,    .02565,    .04575,
     +     .45825,    .19726,    .27399,    .03224,    .00987,
     +     .00659,    .02511,    .04460,
     +     .45188,    .19398,    .26428,    .03158,    .00980,
     +     .00662,    .02461,    .04353,
     +     .44583,    .19088,    .25540,    .03095,    .00972,
     +     .00662,    .02415,    .04254 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
     +     .43986,    .18783,    .24683,    .03034,    .00964,
     +     .00663,    .02370,    .04156,
     +     .43394,    .18485,    .23864,    .02973,    .00955,
     +     .00663,    .02324,    .04062,
     +     .42840,    .18206,    .23113,    .02917,    .00947,
     +     .00662,    .02281,    .03975,
     +     .42316,    .17944,    .22425,    .02864,    .00938,
     +     .00660,    .02242,    .03893,
     +     .41790,    .17682,    .21753,    .02812,    .00929,
     +     .00658,    .02202,    .03812 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
     +     .71089,    .33942,    .69825,    .04851,    .00000,
     +     .00000,    .03359,    .08278,
     +     .70207,    .33293,    .68659,    .04770,    .00000,
     +     .00000,    .03329,    .08030,
     +     .68871,    .32348,    .66545,    .04647,    .00000,
     +     .00000,    .03278,    .07681,
     +     .67894,    .31678,    .64748,    .04558,    .00051,
     +     .00000,    .03238,    .07442,
     +     .66861,    .30994,    .62592,    .04467,    .00160,
     +     .00000,    .03196,    .07200,
     +     .65959,    .30409,    .60690,    .04385,    .00232,
     +     .00000,    .03154,    .07001,
     +     .65092,    .29859,    .58859,    .04308,    .00297,
     +     .00000,    .03112,    .06814,
     +     .64173,    .29287,    .56920,    .04226,    .00360,
     +     .00000,    .03067,    .06621 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
     +     .63374,    .28795,    .55232,    .04155,    .00408,
     +     .00000,    .03026,    .06457,
     +     .62601,    .28326,    .53605,    .04085,    .00448,
     +     .00000,    .02985,    .06304,
     +     .61996,    .27962,    .52345,    .04031,    .00480,
     +     .00000,    .02953,    .06186,
     +     .60705,    .27201,    .49599,    .03914,    .00536,
     +     .00019,    .02883,    .05944,
     +     .59604,    .26565,    .47191,    .03818,    .00576,
     +     .00085,    .02822,    .05742,
     +     .58380,    .25868,    .44604,    .03709,    .00614,
     +     .00156,    .02754,    .05526,
     +     .57118,    .25163,    .42044,    .03599,    .00646,
     +     .00213,    .02681,    .05308,
     +     .55987,    .24538,    .39836,    .03499,    .00670,
     +     .00257,    .02614,    .05119 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
     +     .54860,    .23921,    .37718,    .03398,    .00689,
     +     .00296,    .02547,    .04937,
     +     .53933,    .23424,    .36047,    .03318,    .00701,
     +     .00323,    .02491,    .04789,
     +     .52817,    .22831,    .34108,    .03222,    .00712,
     +     .00351,    .02425,    .04614,
     +     .51844,    .22320,    .32483,    .03138,    .00719,
     +     .00373,    .02366,    .04466,
     +     .50969,    .21863,    .31070,    .03063,    .00724,
     +     .00390,    .02313,    .04336,
     +     .49863,    .21293,    .29355,    .02969,    .00726,
     +     .00408,    .02247,    .04173,
     +     .48842,    .20770,    .27835,    .02883,    .00726,
     +     .00422,    .02185,    .04027,
     +     .47903,    .20293,    .26491,    .02805,    .00725,
     +     .00433,    .02127,    .03896 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
     +     .46973,    .19827,    .25217,    .02728,    .00722,
     +     .00441,    .02071,    .03769,
     +     .46078,    .19380,    .24035,    .02654,    .00718,
     +     .00448,    .02017,    .03649,
     +     .45250,    .18967,    .22976,    .02586,    .00713,
     +     .00453,    .01968,    .03539,
     +     .44471,    .18585,    .22020,    .02522,    .00707,
     +     .00456,    .01922,    .03438,
     +     .43707,    .18211,    .21108,    .02461,    .00702,
     +     .00459,    .01876,    .03339,
     +     .42959,    .17848,    .20250,    .02400,    .00695,
     +     .00460,    .01833,    .03244,
     +     .42265,    .17512,    .19475,    .02345,    .00688,
     +     .00460,    .01792,    .03157,
     +     .41608,    .17196,    .18768,    .02293,    .00681,
     +     .00460,    .01753,    .03078 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
     +     .40962,    .16886,    .18087,    .02242,    .00674,
     +     .00460,    .01715,    .03001,
     +     .40325,    .16583,    .17441,    .02193,    .00666,
     +     .00458,    .01678,    .02926,
     +     .39730,    .16300,    .16850,    .02148,    .00659,
     +     .00457,    .01644,    .02856,
     +     .39170,    .16036,    .16312,    .02106,    .00652,
     +     .00455,    .01612,    .02790,
     +     .38609,    .15774,    .15787,    .02065,    .00644,
     +     .00452,    .01581,    .02725 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
     +     .72401,    .33295,    .60640,    .04007,    .00000,
     +     .00000,    .02732,    .06679,
     +     .71209,    .32534,    .59235,    .03925,    .00000,
     +     .00000,    .02696,    .06448,
     +     .69454,    .31433,    .56865,    .03801,    .00000,
     +     .00000,    .02640,    .06126,
     +     .68192,    .30665,    .54960,    .03713,    .00039,
     +     .00000,    .02595,    .05909,
     +     .66879,    .29890,    .52775,    .03625,    .00124,
     +     .00000,    .02548,    .05690,
     +     .65752,    .29228,    .50876,    .03547,    .00179,
     +     .00000,    .02504,    .05510,
     +     .64682,    .28610,    .49072,    .03472,    .00228,
     +     .00000,    .02462,    .05343,
     +     .63559,    .27970,    .47187,    .03394,    .00275,
     +     .00000,    .02417,    .05172 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
     +     .62589,    .27426,    .45571,    .03326,    .00310,
     +     .00000,    .02377,    .05029,
     +     .61657,    .26910,    .44026,    .03261,    .00340,
     +     .00000,    .02338,    .04894,
     +     .60932,    .26512,    .42838,    .03211,    .00363,
     +     .00000,    .02306,    .04790,
     +     .59402,    .25682,    .40292,    .03105,    .00404,
     +     .00015,    .02241,    .04576,
     +     .58114,    .24992,    .38098,    .03015,    .00432,
     +     .00063,    .02185,    .04403,
     +     .56693,    .24246,    .35769,    .02919,    .00459,
     +     .00116,    .02121,    .04215,
     +     .55244,    .23490,    .33491,    .02817,    .00480,
     +     .00157,    .02055,    .04032,
     +     .53954,    .22826,    .31545,    .02729,    .00496,
     +     .00188,    .01996,    .03872 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
     +     .52676,    .22179,    .29695,    .02643,    .00508,
     +     .00216,    .01936,    .03715,
     +     .51637,    .21658,    .28243,    .02573,    .00515,
     +     .00235,    .01888,    .03591,
     +     .50392,    .21039,    .26577,    .02488,    .00521,
     +     .00255,    .01830,    .03446,
     +     .49317,    .20506,    .25189,    .02415,    .00524,
     +     .00269,    .01779,    .03324,
     +     .48356,    .20032,    .23988,    .02349,    .00526,
     +     .00281,    .01734,    .03217,
     +     .47144,    .19446,    .22547,    .02270,    .00526,
     +     .00293,    .01677,    .03084,
     +     .46033,    .18910,    .21280,    .02197,    .00524,
     +     .00302,    .01625,    .02965,
     +     .45017,    .18424,    .20167,    .02130,    .00522,
     +     .00309,    .01578,    .02858 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
     +     .44018,    .17950,    .19115,    .02063,    .00518,
     +     .00314,    .01531,    .02756,
     +     .43059,    .17499,    .18147,    .02002,    .00513,
     +     .00318,    .01486,    .02659,
     +     .42172,    .17084,    .17283,    .01947,    .00509,
     +     .00320,    .01445,    .02571,
     +     .41348,    .16699,    .16508,    .01894,    .00503,
     +     .00322,    .01407,    .02489,
     +     .40542,    .16325,    .15772,    .01843,    .00498,
     +     .00323,    .01370,    .02411,
     +     .39754,    .15963,    .15084,    .01793,    .00491,
     +     .00323,    .01334,    .02338,
     +     .39026,    .15630,    .14465,    .01747,    .00486,
     +     .00323,    .01300,    .02270,
     +     .38340,    .15317,    .13903,    .01706,    .00479,
     +     .00321,    .01270,    .02207 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
     +     .37666,    .15011,    .13364,    .01665,    .00473,
     +     .00320,    .01241,    .02145,
     +     .37007,    .14712,    .12854,    .01625,    .00467,
     +     .00319,    .01211,    .02087,
     +     .36393,    .14434,    .12389,    .01587,    .00461,
     +     .00317,    .01183,    .02033,
     +     .35816,    .14175,    .11965,    .01552,    .00455,
     +     .00315,    .01157,    .01983,
     +     .35238,    .13918,    .11555,    .01518,    .00449,
     +     .00313,    .01133,    .01934 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
     +     .72606,    .32198,    .53145,    .03309,    .00000,
     +     .00000,    .02199,    .05279,
     +     .71135,    .31346,    .51539,    .03230,    .00000,
     +     .00000,    .02160,    .05075,
     +     .68996,    .30131,    .48961,    .03110,    .00000,
     +     .00000,    .02099,    .04795,
     +     .67481,    .29287,    .46982,    .03028,    .00031,
     +     .00000,    .02056,    .04604,
     +     .65928,    .28440,    .44786,    .02946,    .00095,
     +     .00000,    .02009,    .04413,
     +     .64600,    .27729,    .42909,    .02874,    .00138,
     +     .00000,    .01968,    .04255,
     +     .63352,    .27065,    .41153,    .02804,    .00175,
     +     .00000,    .01928,    .04112,
     +     .62052,    .26380,    .39339,    .02732,    .00210,
     +     .00000,    .01885,    .03966 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
     +     .60940,    .25800,    .37794,    .02671,    .00236,
     +     .00000,    .01849,    .03841,
     +     .59879,    .25253,    .36335,    .02611,    .00258,
     +     .00000,    .01813,    .03727,
     +     .59056,    .24831,    .35221,    .02565,    .00275,
     +     .00000,    .01784,    .03640,
     +     .57334,    .23958,    .32871,    .02469,    .00304,
     +     .00011,    .01724,    .03462,
     +     .55891,    .23239,    .30889,    .02390,    .00324,
     +     .00047,    .01674,    .03316,
     +     .54319,    .22460,    .28803,    .02302,    .00343,
     +     .00086,    .01619,    .03161,
     +     .52725,    .21679,    .26781,    .02213,    .00357,
     +     .00116,    .01561,    .03010,
     +     .51315,    .20998,    .25073,    .02136,    .00367,
     +     .00138,    .01509,    .02879 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
     +     .49928,    .20336,    .23465,    .02061,    .00375,
     +     .00158,    .01459,    .02752,
     +     .48807,    .19802,    .22211,    .02000,    .00379,
     +     .00172,    .01418,    .02651,
     +     .47474,    .19175,    .20784,    .01928,    .00382,
     +     .00185,    .01370,    .02533,
     +     .46327,    .18637,    .19607,    .01865,    .00383,
     +     .00195,    .01327,    .02435,
     +     .45305,    .18160,    .18594,    .01808,    .00383,
     +     .00203,    .01289,    .02351,
     +     .44029,    .17572,    .17387,    .01739,    .00382,
     +     .00211,    .01241,    .02247,
     +     .42861,    .17039,    .16332,    .01677,    .00379,
     +     .00217,    .01198,    .02153,
     +     .41797,    .16556,    .15412,    .01622,    .00376,
     +     .00221,    .01159,    .02069 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
     +     .40758,    .16088,    .14549,    .01567,    .00372,
     +     .00224,    .01123,    .01985,
     +     .39764,    .15644,    .13759,    .01516,    .00368,
     +     .00226,    .01087,    .01909,
     +     .38850,    .15237,    .13058,    .01470,    .00363,
     +     .00227,    .01054,    .01840,
     +     .38001,    .14860,    .12433,    .01426,    .00359,
     +     .00228,    .01023,    .01779,
     +     .37174,    .14494,    .11842,    .01384,    .00354,
     +     .00228,    .00993,    .01721,
     +     .36371,    .14142,    .11291,    .01344,    .00349,
     +     .00227,    .00966,    .01662,
     +     .35631,    .13818,    .10796,    .01307,    .00344,
     +     .00227,    .00941,    .01608,
     +     .34935,    .13516,    .10350,    .01273,    .00339,
     +     .00225,    .00916,    .01561 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
     +     .34253,    .13221,    .09924,    .01240,    .00334,
     +     .00224,    .00892,    .01514,
     +     .33589,    .12933,    .09522,    .01207,    .00329,
     +     .00223,    .00868,    .01469,
     +     .32971,    .12666,    .09157,    .01177,    .00324,
     +     .00221,    .00847,    .01428,
     +     .32392,    .12418,    .08827,    .01149,    .00319,
     +     .00219,    .00827,    .01389,
     +     .31814,    .12173,    .08507,    .01123,    .00314,
     +     .00218,    .00808,    .01351 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
     +     .71789,    .30778,    .46867,    .02755,    .00000,
     +     .00000,    .01729,    .04071,
     +     .70076,    .29857,    .45083,    .02677,    .00000,
     +     .00000,    .01694,    .03899,
     +     .67616,    .28554,    .42329,    .02564,    .00000,
     +     .00000,    .01640,    .03663,
     +     .65886,    .27661,    .40299,    .02485,    .00024,
     +     .00000,    .01600,    .03501,
     +     .64133,    .26766,    .38116,    .02404,    .00074,
     +     .00000,    .01558,    .03346,
     +     .62651,    .26012,    .36281,    .02334,    .00106,
     +     .00000,    .01521,    .03218,
     +     .61260,    .25316,    .34580,    .02271,    .00134,
     +     .00000,    .01487,    .03099,
     +     .59819,    .24605,    .32844,    .02205,    .00161,
     +     .00000,    .01450,    .02977 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
     +     .58593,    .24005,    .31385,    .02148,    .00180,
     +     .00000,    .01416,    .02879,
     +     .57430,    .23440,    .30025,    .02094,    .00196,
     +     .00000,    .01385,    .02785,
     +     .56531,    .23005,    .28992,    .02053,    .00208,
     +     .00000,    .01361,    .02713,
     +     .54664,    .22109,    .26843,    .01966,    .00229,
     +     .00009,    .01310,    .02569,
     +     .53113,    .21376,    .25061,    .01895,    .00243,
     +     .00035,    .01267,    .02452,
     +     .51428,    .20587,    .23203,    .01818,    .00256,
     +     .00064,    .01221,    .02327,
     +     .49729,    .19802,    .21423,    .01742,    .00265,
     +     .00085,    .01173,    .02206,
     +     .48238,    .19118,    .19935,    .01674,    .00272,
     +     .00102,    .01130,    .02101 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
     +     .46784,    .18454,    .18547,    .01607,    .00276,
     +     .00116,    .01087,    .02003,
     +     .45614,    .17923,    .17474,    .01552,    .00278,
     +     .00125,    .01052,    .01927,
     +     .44226,    .17301,    .16258,    .01492,    .00279,
     +     .00135,    .01013,    .01832,
     +     .43035,    .16771,    .15264,    .01439,    .00279,
     +     .00141,    .00978,    .01756,
     +     .41976,    .16304,    .14417,    .01390,    .00278,
     +     .00147,    .00946,    .01693,
     +     .40666,    .15728,    .13415,    .01333,    .00276,
     +     .00152,    .00912,    .01608,
     +     .39475,    .15206,    .12544,    .01280,    .00274,
     +     .00155,    .00877,    .01535,
     +     .38395,    .14736,    .11788,    .01233,    .00271,
     +     .00158,    .00845,    .01472 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
     +     .37336,    .14283,    .11084,    .01192,    .00267,
     +     .00160,    .00816,    .01407,
     +     .36333,    .13853,    .10442,    .01150,    .00263,
     +     .00161,    .00788,    .01350,
     +     .35415,    .13461,    .09876,    .01109,    .00259,
     +     .00161,    .00761,    .01301,
     +     .34566,    .13100,    .09375,    .01073,    .00255,
     +     .00161,    .00737,    .01254,
     +     .33740,    .12750,    .08902,    .01038,    .00251,
     +     .00161,    .00714,    .01208,
     +     .32935,    .12416,    .08464,    .01008,    .00247,
     +     .00160,    .00692,    .01163,
     +     .32196,    .12108,    .08072,    .00980,    .00243,
     +     .00159,    .00671,    .01123,
     +     .31509,    .11820,    .07721,    .00952,    .00239,
     +     .00158,    .00653,    .01087 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
     +     .30838,    .11539,    .07385,    .00925,    .00235,
     +     .00157,    .00635,    .01053,
     +     .30182,    .11268,    .07070,    .00899,    .00231,
     +     .00156,    .00617,    .01020,
     +     .29572,    .11017,    .06785,    .00875,    .00227,
     +     .00154,    .00601,    .00990,
     +     .29005,    .10784,    .06527,    .00852,    .00223,
     +     .00153,    .00586,    .00962,
     +     .28442,    .10553,    .06280,    .00829,    .00219,
     +     .00151,    .00570,    .00934 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
     +     .70150,    .29044,    .41358,    .02255,    .00000,
     +     .00000,    .01362,    .03091,
     +     .68232,    .28077,    .39430,    .02180,    .00000,
     +     .00000,    .01328,    .02953,
     +     .65493,    .26727,    .36575,    .02075,    .00000,
     +     .00000,    .01280,    .02758,
     +     .63588,    .25803,    .34523,    .02005,    .00018,
     +     .00000,    .01244,    .02627,
     +     .61674,    .24879,    .32388,    .01931,    .00056,
     +     .00000,    .01206,    .02501,
     +     .60060,    .24114,    .30611,    .01871,    .00080,
     +     .00000,    .01173,    .02396,
     +     .58558,    .23406,    .28989,    .01813,    .00101,
     +     .00000,    .01141,    .02301,
     +     .57011,    .22682,    .27355,    .01753,    .00121,
     +     .00000,    .01108,    .02206 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
     +     .55701,    .22075,    .25996,    .01704,    .00135,
     +     .00000,    .01081,    .02124,
     +     .54464,    .21506,    .24740,    .01656,    .00147,
     +     .00000,    .01054,    .02050,
     +     .53509,    .21069,    .23793,    .01620,    .00156,
     +     .00000,    .01033,    .01994,
     +     .51535,    .20175,    .21846,    .01546,    .00170,
     +     .00007,    .00989,    .01879,
     +     .49907,    .19445,    .20263,    .01485,    .00180,
     +     .00026,    .00953,    .01787,
     +     .48152,    .18664,    .18631,    .01417,    .00189,
     +     .00046,    .00914,    .01690,
     +     .46397,    .17886,    .17080,    .01350,    .00195,
     +     .00062,    .00874,    .01596,
     +     .44860,    .17214,    .15795,    .01293,    .00199,
     +     .00074,    .00839,    .01515 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
     +     .43363,    .16567,    .14608,    .01238,    .00201,
     +     .00084,    .00805,    .01438,
     +     .42163,    .16052,    .13699,    .01194,    .00202,
     +     .00090,    .00777,    .01378,
     +     .40756,    .15447,    .12679,    .01141,    .00202,
     +     .00097,    .00745,    .01308,
     +     .39551,    .14935,    .11850,    .01097,    .00202,
     +     .00102,    .00717,    .01249,
     +     .38481,    .14485,    .11146,    .01060,    .00201,
     +     .00105,    .00693,    .01197,
     +     .37164,    .13930,    .10317,    .01013,    .00198,
     +     .00108,    .00664,    .01135,
     +     .35972,    .13432,    .09605,    .00970,    .00196,
     +     .00111,    .00637,    .01081,
     +     .34896,    .12984,    .08991,    .00932,    .00193,
     +     .00112,    .00612,    .01033 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
     +     .33850,    .12552,    .08422,    .00895,    .00190,
     +     .00113,    .00588,    .00987,
     +     .32859,    .12145,    .07906,    .00860,    .00187,
     +     .00113,    .00566,    .00944,
     +     .31952,    .11774,    .07453,    .00828,    .00183,
     +     .00114,    .00546,    .00906,
     +     .31116,    .11434,    .07055,    .00800,    .00180,
     +     .00113,    .00528,    .00871,
     +     .30306,    .11105,    .06680,    .00772,    .00177,
     +     .00113,    .00511,    .00837,
     +     .29523,    .10790,    .06334,    .00747,    .00174,
     +     .00112,    .00493,    .00806,
     +     .28804,    .10501,    .06025,    .00723,    .00170,
     +     .00111,    .00477,    .00777,
     +     .28135,    .10235,    .05750,    .00702,    .00167,
     +     .00110,    .00464,    .00749 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
     +     .27482,    .09975,    .05487,    .00681,    .00164,
     +     .00109,    .00450,    .00722,
     +     .26848,    .09724,    .05242,    .00661,    .00161,
     +     .00108,    .00436,    .00698,
     +     .26261,    .09491,    .05021,    .00642,    .00158,
     +     .00107,    .00424,    .00677,
     +     .25715,    .09275,    .04822,    .00624,    .00155,
     +     .00106,    .00412,    .00657,
     +     .25176,    .09061,    .04630,    .00605,    .00152,
     +     .00105,    .00401,    .00637 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
     +     .67750,    .27128,    .36405,    .01839,    .00000,
     +     .00000,    .01054,    .02297,
     +     .65663,    .26144,    .34386,    .01772,    .00000,
     +     .00000,    .01024,    .02185,
     +     .62716,    .24766,    .31485,    .01678,    .00000,
     +     .00000,    .00981,    .02031,
     +     .60683,    .23829,    .29458,    .01611,    .00014,
     +     .00000,    .00949,    .01930,
     +     .58645,    .22902,    .27391,    .01547,    .00042,
     +     .00000,    .00915,    .01831,
     +     .56942,    .22135,    .25708,    .01491,    .00060,
     +     .00000,    .00888,    .01750,
     +     .55363,    .21428,    .24187,    .01441,    .00076,
     +     .00000,    .00862,    .01675,
     +     .53743,    .20709,    .22668,    .01390,    .00090,
     +     .00000,    .00835,    .01598 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
     +     .52377,    .20106,    .21421,    .01345,    .00101,
     +     .00000,    .00812,    .01537,
     +     .51093,    .19541,    .20279,    .01304,    .00109,
     +     .00000,    .00790,    .01480,
     +     .50106,    .19109,    .19423,    .01273,    .00115,
     +     .00000,    .00773,    .01438,
     +     .48076,    .18233,    .17690,    .01208,    .00126,
     +     .00005,    .00739,    .01345,
     +     .46411,    .17518,    .16297,    .01155,    .00132,
     +     .00019,    .00709,    .01276,
     +     .44619,    .16758,    .14880,    .01098,    .00138,
     +     .00034,    .00677,    .01203,
     +     .42836,    .16005,    .13548,    .01042,    .00142,
     +     .00045,    .00645,    .01132,
     +     .41287,    .15356,    .12455,    .00994,    .00144,
     +     .00053,    .00616,    .01072 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
     +     .39787,    .14734,    .11451,    .00948,    .00145,
     +     .00060,    .00588,    .01014,
     +     .38587,    .14239,    .10688,    .00910,    .00146,
     +     .00065,    .00566,    .00970,
     +     .37180,    .13663,    .09840,    .00868,    .00145,
     +     .00069,    .00540,    .00918,
     +     .35987,    .13176,    .09156,    .00831,    .00144,
     +     .00072,    .00519,    .00875,
     +     .34935,    .12748,    .08578,    .00799,    .00143,
     +     .00075,    .00501,    .00837,
     +     .33635,    .12226,    .07903,    .00761,    .00141,
     +     .00077,    .00477,    .00790,
     +     .32462,    .11758,    .07327,    .00728,    .00139,
     +     .00078,    .00456,    .00748,
     +     .31408,    .11338,    .06832,    .00698,    .00137,
     +     .00079,    .00438,    .00711 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
     +     .30391,    .10933,    .06376,    .00669,    .00134,
     +     .00080,    .00420,    .00678,
     +     .29429,    .10553,    .05965,    .00641,    .00131,
     +     .00080,    .00403,    .00647,
     +     .28552,    .10209,    .05606,    .00615,    .00129,
     +     .00080,    .00387,    .00620,
     +     .27744,    .09894,    .05292,    .00594,    .00126,
     +     .00079,    .00373,    .00595,
     +     .26962,    .09590,    .04997,    .00574,    .00124,
     +     .00079,    .00360,    .00571,
     +     .26211,    .09299,    .04726,    .00553,    .00121,
     +     .00078,    .00348,    .00548,
     +     .25523,    .09033,    .04485,    .00534,    .00119,
     +     .00077,    .00336,    .00527,
     +     .24885,    .08788,    .04271,    .00517,    .00116,
     +     .00077,    .00325,    .00508 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
     +     .24263,    .08549,    .04068,    .00500,    .00114,
     +     .00076,    .00314,    .00491,
     +     .23662,    .08319,    .03880,    .00484,    .00112,
     +     .00075,    .00304,    .00473,
     +     .23106,    .08106,    .03710,    .00469,    .00109,
     +     .00074,    .00295,    .00457,
     +     .22590,    .07910,    .03556,    .00455,    .00107,
     +     .00073,    .00286,    .00442,
     +     .22081,    .07716,    .03409,    .00441,    .00105,
     +     .00072,    .00278,    .00427 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
     +     .64729,    .25073,    .31819,    .01478,    .00000,
     +     .00000,    .00806,    .01677,
     +     .62519,    .24086,    .29766,    .01418,    .00000,
     +     .00000,    .00782,    .01589,
     +     .59421,    .22712,    .26897,    .01335,    .00000,
     +     .00000,    .00744,    .01470,
     +     .57298,    .21782,    .24943,    .01276,    .00010,
     +     .00000,    .00717,    .01392,
     +     .55182,    .20867,    .22994,    .01220,    .00031,
     +     .00000,    .00691,    .01314,
     +     .53426,    .20109,    .21424,    .01172,    .00045,
     +     .00000,    .00666,    .01254,
     +     .51802,    .19416,    .20022,    .01127,    .00056,
     +     .00000,    .00645,    .01197,
     +     .50141,    .18714,    .18638,    .01083,    .00066,
     +     .00000,    .00623,    .01139 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
     +     .48743,    .18129,    .17514,    .01047,    .00074,
     +     .00000,    .00604,    .01092,
     +     .47439,    .17582,    .16493,    .01011,    .00080,
     +     .00000,    .00586,    .01050,
     +     .46441,    .17165,    .15732,    .00982,    .00084,
     +     .00000,    .00572,    .01018,
     +     .44391,    .16315,    .14213,    .00929,    .00091,
     +     .00004,    .00544,    .00953,
     +     .42719,    .15630,    .13010,    .00885,    .00096,
     +     .00014,    .00520,    .00900,
     +     .40929,    .14900,    .11795,    .00838,    .00100,
     +     .00024,    .00494,    .00845,
     +     .39153,    .14183,    .10664,    .00794,    .00102,
     +     .00032,    .00468,    .00792,
     +     .37620,    .13568,    .09745,    .00754,    .00103,
     +     .00038,    .00446,    .00747 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
     +     .36143,    .12979,    .08910,    .00715,    .00104,
     +     .00043,    .00425,    .00703,
     +     .34963,    .12514,    .08281,    .00688,    .00104,
     +     .00046,    .00409,    .00669,
     +     .33588,    .11972,    .07584,    .00652,    .00103,
     +     .00049,    .00388,    .00632,
     +     .32425,    .11515,    .07025,    .00621,    .00102,
     +     .00051,    .00371,    .00602,
     +     .31403,    .11115,    .06556,    .00593,    .00101,
     +     .00053,    .00358,    .00574,
     +     .30145,    .10630,    .06014,    .00565,    .00099,
     +     .00054,    .00339,    .00540,
     +     .29012,    .10196,    .05553,    .00540,    .00097,
     +     .00055,    .00324,    .00510,
     +     .27997,    .09808,    .05160,    .00517,    .00096,
     +     .00055,    .00310,    .00484 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
     +     .27023,    .09434,    .04799,    .00492,    .00094,
     +     .00056,    .00295,    .00461,
     +     .26106,    .09084,    .04476,    .00469,    .00092,
     +     .00055,    .00283,    .00438,
     +     .25271,    .08768,    .04196,    .00450,    .00090,
     +     .00055,    .00272,    .00418,
     +     .24504,    .08481,    .03949,    .00432,    .00088,
     +     .00055,    .00262,    .00401,
     +     .23763,    .08204,    .03719,    .00416,    .00086,
     +     .00054,    .00251,    .00385,
     +     .23055,    .07939,    .03510,    .00400,    .00084,
     +     .00054,    .00242,    .00368,
     +     .22408,    .07698,    .03324,    .00386,    .00082,
     +     .00053,    .00233,    .00353,
     +     .21811,    .07475,    .03159,    .00372,    .00080,
     +     .00053,    .00225,    .00340 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
     +     .21230,    .07258,    .03002,    .00358,    .00078,
     +     .00052,    .00217,    .00327,
     +     .20665,    .07051,    .02858,    .00347,    .00076,
     +     .00051,    .00210,    .00314,
     +     .20142,    .06861,    .02728,    .00337,    .00075,
     +     .00051,    .00204,    .00303,
     +     .19660,    .06685,    .02611,    .00328,    .00073,
     +     .00050,    .00197,    .00293,
     +     .19185,    .06511,    .02499,    .00317,    .00072,
     +     .00049,    .00191,    .00283 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
     +     .61192,    .22943,    .27527,    .01170,    .00000,
     +     .00000,    .00613,    .01199,
     +     .58911,    .21964,    .25502,    .01116,    .00000,
     +     .00000,    .00590,    .01135,
     +     .55721,    .20618,    .22740,    .01041,    .00000,
     +     .00000,    .00558,    .01048,
     +     .53546,    .19712,    .20898,    .00992,    .00008,
     +     .00000,    .00536,    .00987,
     +     .51397,    .18820,    .19095,    .00943,    .00023,
     +     .00000,    .00515,    .00930,
     +     .49613,    .18090,    .17668,    .00904,    .00033,
     +     .00000,    .00494,    .00884,
     +     .47976,    .17421,    .16404,    .00867,    .00041,
     +     .00000,    .00477,    .00842,
     +     .46309,    .16744,    .15167,    .00830,    .00048,
     +     .00000,    .00459,    .00800 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
     +     .44911,    .16183,    .14172,    .00801,    .00053,
     +     .00000,    .00444,    .00764,
     +     .43608,    .15662,    .13276,    .00772,    .00057,
     +     .00000,    .00430,    .00731,
     +     .42611,    .15265,    .12613,    .00750,    .00061,
     +     .00000,    .00419,    .00706,
     +     .40579,    .14457,    .11304,    .00703,    .00065,
     +     .00003,    .00395,    .00660,
     +     .38929,    .13807,    .10279,    .00669,    .00068,
     +     .00010,    .00376,    .00622,
     +     .37172,    .13121,    .09257,    .00629,    .00071,
     +     .00017,    .00359,    .00582,
     +     .35437,    .12447,    .08315,    .00591,    .00072,
     +     .00023,    .00339,    .00544,
     +     .33943,    .11871,    .07555,    .00560,    .00073,
     +     .00027,    .00321,    .00512 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
     +     .32509,    .11323,    .06869,    .00530,    .00073,
     +     .00030,    .00304,    .00482,
     +     .31368,    .10890,    .06356,    .00508,    .00073,
     +     .00032,    .00292,    .00458,
     +     .30048,    .10389,    .05795,    .00478,    .00072,
     +     .00034,    .00276,    .00430,
     +     .28931,    .09967,    .05346,    .00454,    .00071,
     +     .00036,    .00263,    .00408,
     +     .27950,    .09598,    .04970,    .00435,    .00070,
     +     .00037,    .00251,    .00390,
     +     .26753,    .09153,    .04540,    .00412,    .00069,
     +     .00038,    .00239,    .00366,
     +     .25681,    .08756,    .04177,    .00391,    .00068,
     +     .00038,    .00227,    .00344,
     +     .24722,    .08402,    .03868,    .00373,    .00066,
     +     .00038,    .00217,    .00325 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
     +     .23800,    .08063,    .03586,    .00355,    .00065,
     +     .00038,    .00207,    .00309,
     +     .22935,    .07746,    .03334,    .00338,    .00063,
     +     .00038,    .00198,    .00293,
     +     .22151,    .07460,    .03116,    .00323,    .00062,
     +     .00038,    .00190,    .00280,
     +     .21435,    .07200,    .02927,    .00309,    .00060,
     +     .00038,    .00182,    .00267,
     +     .20745,    .06951,    .02750,    .00296,    .00059,
     +     .00037,    .00174,    .00254,
     +     .20085,    .06713,    .02590,    .00285,    .00057,
     +     .00037,    .00167,    .00243,
     +     .19483,    .06496,    .02447,    .00274,    .00056,
     +     .00036,    .00160,    .00234,
     +     .18927,    .06298,    .02322,    .00265,    .00054,
     +     .00036,    .00155,    .00224 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
     +     .18387,    .06105,    .02204,    .00256,    .00053,
     +     .00035,    .00150,    .00215,
     +     .17870,    .05920,    .02094,    .00246,    .00052,
     +     .00035,    .00145,    .00207,
     +     .17393,    .05750,    .01996,    .00236,    .00051,
     +     .00034,    .00140,    .00200,
     +     .16952,    .05594,    .01908,    .00228,    .00050,
     +     .00034,    .00135,    .00193,
     +     .16515,    .05440,    .01823,    .00221,    .00048,
     +     .00033,    .00130,    .00186 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
     +     .57252,    .20798,    .23525,    .00920,    .00000,
     +     .00000,    .00453,    .00836,
     +     .54932,    .19849,    .21583,    .00873,    .00000,
     +     .00000,    .00434,    .00789,
     +     .51714,    .18544,    .18994,    .00810,    .00000,
     +     .00000,    .00407,    .00726,
     +     .49534,    .17673,    .17300,    .00766,    .00005,
     +     .00000,    .00391,    .00683,
     +     .47383,    .16819,    .15674,    .00725,    .00017,
     +     .00000,    .00374,    .00644,
     +     .45611,    .16123,    .14398,    .00694,    .00023,
     +     .00000,    .00359,    .00606,
     +     .43985,    .15488,    .13281,    .00665,    .00029,
     +     .00000,    .00345,    .00574,
     +     .42337,    .14849,    .12199,    .00634,    .00034,
     +     .00000,    .00330,    .00544 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
     +     .40964,    .14317,    .11338,    .00607,    .00038,
     +     .00000,    .00319,    .00521,
     +     .39687,    .13824,    .10568,    .00582,    .00041,
     +     .00000,    .00308,    .00499,
     +     .38713,    .13448,    .10001,    .00563,    .00043,
     +     .00000,    .00299,    .00482,
     +     .36735,    .12693,    .08893,    .00525,    .00046,
     +     .00002,    .00281,    .00449,
     +     .35133,    .12088,    .08037,    .00495,    .00048,
     +     .00007,    .00267,    .00422,
     +     .33432,    .11449,    .07190,    .00467,    .00050,
     +     .00012,    .00253,    .00393,
     +     .31759,    .10827,    .06419,    .00440,    .00051,
     +     .00016,    .00238,    .00364,
     +     .30327,    .10295,    .05802,    .00414,    .00051,
     +     .00019,    .00225,    .00342 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
     +     .28958,    .09788,    .05249,    .00390,    .00051,
     +     .00021,    .00212,    .00322,
     +     .27873,    .09391,    .04836,    .00372,    .00051,
     +     .00023,    .00204,    .00305,
     +     .26619,    .08935,    .04388,    .00351,    .00050,
     +     .00024,    .00192,    .00285,
     +     .25564,    .08552,    .04034,    .00333,    .00049,
     +     .00025,    .00183,    .00269,
     +     .24640,    .08217,    .03739,    .00317,    .00049,
     +     .00025,    .00174,    .00257,
     +     .23515,    .07814,    .03401,    .00299,    .00047,
     +     .00026,    .00164,    .00240,
     +     .22512,    .07454,    .03118,    .00283,    .00046,
     +     .00026,    .00155,    .00226,
     +     .21618,    .07135,    .02878,    .00269,    .00045,
     +     .00026,    .00148,    .00215 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
     +     .20761,    .06832,    .02661,    .00255,    .00044,
     +     .00026,    .00140,    .00203,
     +     .19958,    .06549,    .02467,    .00243,    .00043,
     +     .00026,    .00133,    .00192,
     +     .19231,    .06293,    .02300,    .00232,    .00042,
     +     .00026,    .00127,    .00182,
     +     .18572,    .06063,    .02156,    .00221,    .00041,
     +     .00026,    .00122,    .00174,
     +     .17939,    .05842,    .02022,    .00210,    .00040,
     +     .00025,    .00117,    .00165,
     +     .17332,    .05630,    .01900,    .00203,    .00039,
     +     .00025,    .00112,    .00157,
     +     .16780,    .05438,    .01792,    .00196,    .00038,
     +     .00025,    .00107,    .00150,
     +     .16274,    .05263,    .01698,    .00188,    .00037,
     +     .00024,    .00104,    .00144 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
     +     .15785,    .05093,    .01608,    .00180,    .00036,
     +     .00024,    .00101,    .00138,
     +     .15312,    .04930,    .01526,    .00173,    .00035,
     +     .00024,    .00097,    .00133,
     +     .14877,    .04780,    .01452,    .00167,    .00034,
     +     .00023,    .00093,    .00128,
     +     .14476,    .04643,    .01386,    .00161,    .00033,
     +     .00023,    .00090,    .00123,
     +     .14082,    .04508,    .01324,    .00155,    .00032,
     +     .00022,    .00086,    .00119 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
     +     .53021,    .18660,    .19793,    .00707,    .00000,
     +     .00000,    .00330,    .00572,
     +     .50706,    .17752,    .17994,    .00666,    .00000,
     +     .00000,    .00313,    .00543,
     +     .47505,    .16519,    .15630,    .00618,    .00000,
     +     .00000,    .00294,    .00492,
     +     .45354,    .15692,    .14117,    .00583,    .00004,
     +     .00000,    .00280,    .00461,
     +     .43243,    .14884,    .12685,    .00550,    .00012,
     +     .00000,    .00267,    .00431,
     +     .41508,    .14230,    .11574,    .00522,    .00016,
     +     .00000,    .00253,    .00410,
     +     .39921,    .13636,    .10608,    .00499,    .00020,
     +     .00000,    .00243,    .00388,
     +     .38319,    .13038,    .09682,    .00475,    .00024,
     +     .00000,    .00232,    .00365 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
     +     .36992,    .12542,    .08951,    .00453,    .00026,
     +     .00000,    .00223,    .00347,
     +     .35758,    .12085,    .08304,    .00434,    .00028,
     +     .00000,    .00215,    .00331,
     +     .34817,    .11738,    .07829,    .00419,    .00030,
     +     .00000,    .00209,    .00320,
     +     .32910,    .11041,    .06912,    .00395,    .00032,
     +     .00001,    .00195,    .00293,
     +     .31382,    .10482,    .06211,    .00369,    .00033,
     +     .00005,    .00184,    .00278,
     +     .29765,    .09895,    .05521,    .00345,    .00034,
     +     .00008,    .00173,    .00260,
     +     .28180,    .09327,    .04900,    .00324,    .00035,
     +     .00011,    .00162,    .00240,
     +     .26830,    .08843,    .04407,    .00303,    .00035,
     +     .00013,    .00152,    .00225 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
     +     .25543,    .08385,    .03967,    .00283,    .00035,
     +     .00015,    .00143,    .00211,
     +     .24522,    .08027,    .03643,    .00272,    .00035,
     +     .00015,    .00137,    .00198,
     +     .23351,    .07613,    .03291,    .00255,    .00034,
     +     .00016,    .00130,    .00184,
     +     .22369,    .07268,    .03014,    .00241,    .00033,
     +     .00017,    .00123,    .00174,
     +     .21510,    .06968,    .02786,    .00228,    .00033,
     +     .00017,    .00116,    .00167,
     +     .20468,    .06608,    .02525,    .00215,    .00032,
     +     .00018,    .00109,    .00155,
     +     .19543,    .06287,    .02307,    .00203,    .00031,
     +     .00018,    .00103,    .00145,
     +     .18721,    .06004,    .02123,    .00192,    .00030,
     +     .00018,    .00098,    .00136 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
     +     .17933,    .05734,    .01959,    .00183,    .00030,
     +     .00018,    .00093,    .00129,
     +     .17199,    .05484,    .01812,    .00174,    .00029,
     +     .00018,    .00088,    .00122,
     +     .16537,    .05259,    .01686,    .00165,    .00028,
     +     .00017,    .00084,    .00116,
     +     .15936,    .05056,    .01577,    .00157,    .00027,
     +     .00017,    .00080,    .00110,
     +     .15360,    .04861,    .01476,    .00150,    .00026,
     +     .00017,    .00077,    .00104,
     +     .14811,    .04677,    .01385,    .00144,    .00026,
     +     .00017,    .00073,    .00099,
     +     .14313,    .04510,    .01305,    .00138,    .00025,
     +     .00017,    .00070,    .00095,
     +     .13859,    .04356,    .01234,    .00132,    .00024,
     +     .00016,    .00068,    .00091 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
     +     .13419,    .04208,    .01167,    .00126,    .00024,
     +     .00016,    .00065,    .00087,
     +     .12993,    .04067,    .01106,    .00121,    .00023,
     +     .00016,    .00063,    .00083,
     +     .12602,    .03938,    .01051,    .00118,    .00023,
     +     .00015,    .00060,    .00079,
     +     .12243,    .03819,    .01002,    .00114,    .00022,
     +     .00015,    .00058,    .00076,
     +     .11891,    .03703,    .00955,    .00110,    .00021,
     +     .00015,    .00056,    .00073 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
     +     .48597,    .16564,    .16360,    .00528,    .00000,
     +     .00000,    .00240,    .00387,
     +     .46320,    .15710,    .14736,    .00498,    .00000,
     +     .00000,    .00227,    .00363,
     +     .43196,    .14548,    .12641,    .00454,    .00000,
     +     .00000,    .00212,    .00330,
     +     .41103,    .13776,    .11319,    .00427,    .00003,
     +     .00000,    .00200,    .00310,
     +     .39059,    .13026,    .10087,    .00399,    .00008,
     +     .00000,    .00189,    .00291,
     +     .37378,    .12421,    .09141,    .00382,    .00011,
     +     .00000,    .00181,    .00272,
     +     .35854,    .11871,    .08328,    .00363,    .00014,
     +     .00000,    .00173,    .00256,
     +     .34323,    .11319,    .07555,    .00342,    .00016,
     +     .00000,    .00164,    .00242 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
     +     .33054,    .10863,    .06949,    .00326,    .00018,
     +     .00000,    .00157,    .00231,
     +     .31881,    .10444,    .06415,    .00311,    .00019,
     +     .00000,    .00151,    .00219,
     +     .30990,    .10127,    .06025,    .00300,    .00020,
     +     .00000,    .00146,    .00210,
     +     .29185,    .09489,    .05282,    .00278,    .00022,
     +     .00001,    .00136,    .00195,
     +     .27740,    .08983,    .04718,    .00262,    .00023,
     +     .00003,    .00130,    .00181,
     +     .26221,    .08453,    .04170,    .00243,    .00023,
     +     .00006,    .00121,    .00169,
     +     .24742,    .07940,    .03680,    .00224,    .00023,
     +     .00008,    .00112,    .00156,
     +     .23482,    .07505,    .03293,    .00210,    .00023,
     +     .00009,    .00106,    .00146 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
     +     .22284,    .07095,    .02951,    .00197,    .00023,
     +     .00010,    .00100,    .00138,
     +     .21345,    .06775,    .02702,    .00186,    .00023,
     +     .00010,    .00095,    .00129,
     +     .20263,    .06409,    .02431,    .00175,    .00023,
     +     .00011,    .00088,    .00118,
     +     .19359,    .06103,    .02219,    .00165,    .00022,
     +     .00011,    .00083,    .00111,
     +     .18573,    .05836,    .02045,    .00155,    .00022,
     +     .00012,    .00079,    .00107,
     +     .17622,    .05518,    .01848,    .00146,    .00021,
     +     .00012,    .00075,    .00101,
     +     .16779,    .05237,    .01684,    .00137,    .00021,
     +     .00012,    .00071,    .00094,
     +     .16033,    .04989,    .01546,    .00129,    .00020,
     +     .00012,    .00067,    .00087 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
     +     .15323,    .04752,    .01422,    .00122,    .00020,
     +     .00012,    .00065,    .00082,
     +     .14661,    .04534,    .01313,    .00116,    .00019,
     +     .00012,    .00061,    .00078,
     +     .14064,    .04338,    .01219,    .00110,    .00018,
     +     .00012,    .00058,    .00074,
     +     .13525,    .04162,    .01138,    .00105,    .00018,
     +     .00011,    .00055,    .00071,
     +     .13008,    .03994,    .01063,    .00099,    .00017,
     +     .00011,    .00052,    .00067,
     +     .12518,    .03834,    .00996,    .00095,    .00017,
     +     .00011,    .00049,    .00064,
     +     .12073,    .03690,    .00937,    .00091,    .00016,
     +     .00011,    .00047,    .00062,
     +     .11667,    .03558,    .00885,    .00087,    .00016,
     +     .00011,    .00046,    .00058 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
     +     .11275,    .03432,    .00836,    .00084,    .00015,
     +     .00011,    .00044,    .00055,
     +     .10901,    .03310,    .00791,    .00080,    .00015,
     +     .00010,    .00042,    .00052,
     +     .10557,    .03199,    .00751,    .00076,    .00015,
     +     .00010,    .00040,    .00051,
     +     .10240,    .03098,    .00715,    .00073,    .00014,
     +     .00010,    .00039,    .00049,
     +     .09929,    .02999,    .00681,    .00071,    .00014,
     +     .00010,    .00037,    .00047 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
     +     .44077,    .14553,    .13267,    .00384,    .00000,
     +     .00000,    .00169,    .00257,
     +     .41872,    .13759,    .11843,    .00362,    .00000,
     +     .00000,    .00161,    .00238,
     +     .38859,    .12681,    .10032,    .00327,    .00000,
     +     .00000,    .00150,    .00217,
     +     .36850,    .11970,    .08912,    .00307,    .00002,
     +     .00000,    .00141,    .00203,
     +     .34901,    .11280,    .07876,    .00285,    .00005,
     +     .00000,    .00134,    .00189,
     +     .33311,    .10723,    .07092,    .00268,    .00008,
     +     .00000,    .00127,    .00178,
     +     .31868,    .10221,    .06423,    .00253,    .00009,
     +     .00000,    .00121,    .00169,
     +     .30418,    .09719,    .05792,    .00239,    .00011,
     +     .00000,    .00115,    .00159 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
     +     .29223,    .09305,    .05301,    .00225,    .00012,
     +     .00000,    .00110,    .00151,
     +     .28119,    .08926,    .04872,    .00214,    .00013,
     +     .00000,    .00106,    .00144,
     +     .27282,    .08640,    .04562,    .00206,    .00013,
     +     .00000,    .00102,    .00139,
     +     .25600,    .08067,    .03971,    .00190,    .00014,
     +     .00001,    .00096,    .00127,
     +     .24259,    .07613,    .03529,    .00177,    .00015,
     +     .00002,    .00089,    .00119,
     +     .22854,    .07140,    .03101,    .00162,    .00015,
     +     .00004,    .00084,    .00109,
     +     .21490,    .06683,    .02722,    .00150,    .00015,
     +     .00005,    .00078,    .00102,
     +     .20332,    .06297,    .02426,    .00139,    .00015,
     +     .00006,    .00073,    .00096 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
     +     .19235,    .05935,    .02166,    .00130,    .00015,
     +     .00007,    .00068,    .00089,
     +     .18375,    .05651,    .01976,    .00123,    .00015,
     +     .00007,    .00065,    .00084,
     +     .17391,    .05329,    .01772,    .00115,    .00015,
     +     .00007,    .00061,    .00078,
     +     .16572,    .05063,    .01613,    .00109,    .00015,
     +     .00008,    .00057,    .00073,
     +     .15862,    .04833,    .01483,    .00103,    .00014,
     +     .00008,    .00054,    .00068,
     +     .15002,    .04555,    .01335,    .00096,    .00014,
     +     .00008,    .00052,    .00064,
     +     .14245,    .04311,    .01214,    .00090,    .00013,
     +     .00008,    .00048,    .00060,
     +     .13577,    .04097,    .01112,    .00084,    .00013,
     +     .00008,    .00045,    .00057 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
     +     .12943,    .03893,    .01021,    .00079,    .00013,
     +     .00008,    .00043,    .00054,
     +     .12353,    .03705,    .00941,    .00074,    .00012,
     +     .00008,    .00041,    .00050,
     +     .11823,    .03538,    .00871,    .00071,    .00012,
     +     .00008,    .00039,    .00047,
     +     .11345,    .03387,    .00813,    .00067,    .00011,
     +     .00007,    .00037,    .00045,
     +     .10888,    .03243,    .00758,    .00063,    .00011,
     +     .00007,    .00036,    .00043,
     +     .10458,    .03107,    .00709,    .00060,    .00011,
     +     .00007,    .00034,    .00041,
     +     .10068,    .02984,    .00666,    .00057,    .00010,
     +     .00007,    .00032,    .00039,
     +     .09712,    .02872,    .00628,    .00055,    .00010,
     +     .00007,    .00031,    .00038 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
     +     .09368,    .02765,    .00593,    .00052,    .00010,
     +     .00007,    .00029,    .00036,
     +     .09040,    .02663,    .00561,    .00050,    .00010,
     +     .00007,    .00028,    .00034,
     +     .08739,    .02570,    .00532,    .00048,    .00009,
     +     .00007,    .00027,    .00032,
     +     .08464,    .02485,    .00506,    .00046,    .00009,
     +     .00006,    .00026,    .00030,
     +     .08194,    .02401,    .00481,    .00044,    .00009,
     +     .00006,    .00025,    .00030 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
     +     .39541,    .12663,    .10560,    .00289,    .00000,
     +     .00000,    .00110,    .00161,
     +     .37440,    .11935,    .09347,    .00268,    .00000,
     +     .00000,    .00103,    .00150,
     +     .34584,    .10950,    .07829,    .00243,    .00000,
     +     .00000,    .00097,    .00135,
     +     .32693,    .10302,    .06900,    .00225,    .00001,
     +     .00000,    .00092,    .00124,
     +     .30858,    .09681,    .06057,    .00211,    .00004,
     +     .00000,    .00085,    .00115,
     +     .29369,    .09176,    .05421,    .00198,    .00005,
     +     .00000,    .00081,    .00108,
     +     .28023,    .08724,    .04884,    .00186,    .00006,
     +     .00000,    .00077,    .00102,
     +     .26675,    .08274,    .04381,    .00174,    .00007,
     +     .00000,    .00072,    .00096 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
     +     .25564,    .07906,    .03992,    .00165,    .00008,
     +     .00000,    .00068,    .00091,
     +     .24545,    .07567,    .03655,    .00157,    .00008,
     +     .00000,    .00066,    .00087,
     +     .23774,    .07310,    .03411,    .00151,    .00009,
     +     .00000,    .00063,    .00083,
     +     .22221,    .06804,    .02951,    .00141,    .00009,
     +     .00001,    .00058,    .00075,
     +     .20994,    .06401,    .02611,    .00129,    .00010,
     +     .00001,    .00054,    .00071,
     +     .19712,    .05984,    .02285,    .00118,    .00010,
     +     .00003,    .00051,    .00066,
     +     .18468,    .05584,    .01996,    .00111,    .00010,
     +     .00003,    .00047,    .00059,
     +     .17420,    .05246,    .01773,    .00103,    .00010,
     +     .00004,    .00043,    .00055 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
     +     .16434,    .04928,    .01577,    .00095,    .00010,
     +     .00004,    .00040,    .00052,
     +     .15662,    .04684,    .01434,    .00090,    .00010,
     +     .00005,    .00039,    .00049,
     +     .14778,    .04404,    .01283,    .00084,    .00010,
     +     .00005,    .00036,    .00045,
     +     .14045,    .04173,    .01166,    .00079,    .00009,
     +     .00005,    .00034,    .00042,
     +     .13412,    .03974,    .01069,    .00075,    .00009,
     +     .00005,    .00032,    .00040,
     +     .12649,    .03736,    .00961,    .00070,    .00009,
     +     .00005,    .00030,    .00037,
     +     .11980,    .03526,    .00872,    .00065,    .00009,
     +     .00005,    .00028,    .00035,
     +     .11392,    .03341,    .00797,    .00060,    .00008,
     +     .00005,    .00027,    .00033 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
     +     .10835,    .03168,    .00730,    .00055,    .00008,
     +     .00005,    .00025,    .00030,
     +     .10316,    .03008,    .00672,    .00052,    .00008,
     +     .00005,    .00023,    .00029,
     +     .09850,    .02866,    .00622,    .00051,    .00008,
     +     .00005,    .00022,    .00027,
     +     .09433,    .02738,    .00579,    .00048,    .00007,
     +     .00005,    .00021,    .00026,
     +     .09036,    .02617,    .00540,    .00045,    .00007,
     +     .00005,    .00020,    .00024,
     +     .08659,    .02503,    .00504,    .00043,    .00007,
     +     .00005,    .00018,    .00023,
     +     .08318,    .02400,    .00473,    .00041,    .00007,
     +     .00005,    .00017,    .00021,
     +     .08010,    .02306,    .00446,    .00040,    .00006,
     +     .00005,    .00017,    .00020 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
     +     .07714,    .02216,    .00420,    .00038,    .00006,
     +     .00004,    .00016,    .00019,
     +     .07430,    .02130,    .00397,    .00036,    .00006,
     +     .00004,    .00015,    .00019,
     +     .07172,    .02052,    .00376,    .00035,    .00006,
     +     .00004,    .00015,    .00018,
     +     .06935,    .01981,    .00358,    .00033,    .00006,
     +     .00004,    .00014,    .00017,
     +     .06704,    .01912,    .00340,    .00031,    .00006,
     +     .00004,    .00014,    .00017 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
     +     .35062,    .10860,    .08190,    .00191,    .00000,
     +     .00000,    .00080,    .00106,
     +     .33086,    .10201,    .07190,    .00177,    .00000,
     +     .00000,    .00075,    .00098,
     +     .30418,    .09315,    .05958,    .00159,    .00000,
     +     .00000,    .00068,    .00088,
     +     .28655,    .08736,    .05212,    .00147,    .00001,
     +     .00000,    .00064,    .00081,
     +     .26948,    .08182,    .04544,    .00139,    .00002,
     +     .00000,    .00058,    .00076,
     +     .25573,    .07736,    .04044,    .00129,    .00003,
     +     .00000,    .00055,    .00071,
     +     .24335,    .07335,    .03624,    .00121,    .00004,
     +     .00000,    .00052,    .00066,
     +     .23098,    .06937,    .03234,    .00114,    .00005,
     +     .00000,    .00049,    .00062 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
     +     .22081,    .06612,    .02934,    .00109,    .00005,
     +     .00000,    .00046,    .00059,
     +     .21150,    .06315,    .02676,    .00103,    .00005,
     +     .00000,    .00044,    .00056,
     +     .20447,    .06091,    .02491,    .00098,    .00006,
     +     .00000,    .00042,    .00054,
     +     .19045,    .05648,    .02143,    .00089,    .00006,
     +     .00000,    .00038,    .00048,
     +     .17934,    .05297,    .01888,    .00084,    .00006,
     +     .00001,    .00036,    .00045,
     +     .16781,    .04935,    .01645,    .00077,    .00006,
     +     .00002,    .00033,    .00041,
     +     .15670,    .04589,    .01432,    .00071,    .00006,
     +     .00002,    .00031,    .00037,
     +     .14733,    .04299,    .01267,    .00065,    .00006,
     +     .00002,    .00029,    .00034 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
     +     .13853,    .04027,    .01124,    .00060,    .00006,
     +     .00003,    .00026,    .00032,
     +     .13170,    .03817,    .01020,    .00056,    .00006,
     +     .00003,    .00025,    .00031,
     +     .12389,    .03578,    .00910,    .00052,    .00006,
     +     .00003,    .00024,    .00028,
     +     .11742,    .03382,    .00824,    .00050,    .00006,
     +     .00003,    .00022,    .00026,
     +     .11183,    .03213,    .00755,    .00048,    .00006,
     +     .00003,    .00020,    .00023,
     +     .10518,    .03011,    .00677,    .00044,    .00006,
     +     .00003,    .00019,    .00022,
     +     .09932,    .02835,    .00613,    .00041,    .00005,
     +     .00003,    .00018,    .00021,
     +     .09417,    .02680,    .00560,    .00038,    .00005,
     +     .00003,    .00017,    .00020 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
     +     .08935,    .02534,    .00512,    .00034,    .00005,
     +     .00003,    .00015,    .00019,
     +     .08486,    .02401,    .00470,    .00032,    .00005,
     +     .00003,    .00014,    .00017,
     +     .08084,    .02282,    .00434,    .00032,    .00005,
     +     .00003,    .00013,    .00016,
     +     .07724,    .02176,    .00404,    .00031,    .00005,
     +     .00003,    .00013,    .00015,
     +     .07381,    .02075,    .00376,    .00030,    .00004,
     +     .00003,    .00012,    .00014,
     +     .07061,    .01980,    .00351,    .00027,    .00004,
     +     .00003,    .00012,    .00014,
     +     .06773,    .01895,    .00329,    .00025,    .00004,
     +     .00003,    .00011,    .00013,
     +     .06509,    .01817,    .00310,    .00024,    .00004,
     +     .00003,    .00010,    .00013 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
     +     .06255,    .01743,    .00292,    .00024,    .00004,
     +     .00003,    .00010,    .00012,
     +     .06014,    .01673,    .00275,    .00023,    .00004,
     +     .00003,    .00009,    .00011,
     +     .05794,    .01609,    .00261,    .00021,    .00004,
     +     .00003,    .00009,    .00011,
     +     .05594,    .01551,    .00247,    .00021,    .00004,
     +     .00003,    .00009,    .00010,
     +     .05398,    .01494,    .00235,    .00020,    .00003,
     +     .00003,    .00008,    .00010 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
     +     .30709,    .09204,    .06204,    .00124,    .00000,
     +     .00000,    .00055,    .00068,
     +     .28879,    .08616,    .05404,    .00116,    .00000,
     +     .00000,    .00051,    .00061,
     +     .26419,    .07830,    .04429,    .00103,    .00000,
     +     .00000,    .00046,    .00056,
     +     .24800,    .07320,    .03847,    .00095,    .00000,
     +     .00000,    .00042,    .00052,
     +     .23246,    .06829,    .03330,    .00089,    .00001,
     +     .00000,    .00040,    .00047,
     +     .21993,    .06439,    .02949,    .00083,    .00002,
     +     .00000,    .00037,    .00044,
     +     .20868,    .06090,    .02631,    .00078,    .00002,
     +     .00000,    .00035,    .00041,
     +     .19749,    .05743,    .02336,    .00072,    .00003,
     +     .00000,    .00033,    .00039 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
     +     .18836,    .05460,    .02112,    .00068,    .00003,
     +     .00000,    .00031,    .00036,
     +     .17998,    .05203,    .01919,    .00065,    .00003,
     +     .00000,    .00030,    .00034,
     +     .17366,    .05011,    .01781,    .00063,    .00003,
     +     .00000,    .00029,    .00033,
     +     .16117,    .04627,    .01525,    .00054,    .00004,
     +     .00000,    .00026,    .00030,
     +     .15128,    .04326,    .01338,    .00050,    .00004,
     +     .00001,    .00025,    .00027,
     +     .14102,    .04016,    .01161,    .00047,    .00004,
     +     .00001,    .00023,    .00025,
     +     .13118,    .03720,    .01007,    .00043,    .00004,
     +     .00001,    .00020,    .00023,
     +     .12293,    .03474,    .00889,    .00041,    .00004,
     +     .00002,    .00019,    .00021 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
     +     .11522,    .03245,    .00786,    .00038,    .00004,
     +     .00002,    .00018,    .00019,
     +     .10927,    .03067,    .00712,    .00034,    .00004,
     +     .00002,    .00017,    .00019,
     +     .10245,    .02866,    .00634,    .00033,    .00004,
     +     .00002,    .00016,    .00017,
     +     .09684,    .02701,    .00573,    .00030,    .00004,
     +     .00002,    .00015,    .00016,
     +     .09203,    .02560,    .00524,    .00028,    .00003,
     +     .00002,    .00014,    .00015,
     +     .08627,    .02392,    .00469,    .00025,    .00003,
     +     .00002,    .00012,    .00015,
     +     .08123,    .02245,    .00424,    .00023,    .00003,
     +     .00002,    .00011,    .00014,
     +     .07682,    .02117,    .00387,    .00022,    .00003,
     +     .00002,    .00011,    .00012 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
     +     .07268,    .01997,    .00353,    .00021,    .00003,
     +     .00002,    .00011,    .00011,
     +     .06886,    .01887,    .00324,    .00020,    .00003,
     +     .00002,    .00010,    .00010,
     +     .06545,    .01789,    .00299,    .00019,    .00003,
     +     .00002,    .00009,    .00010,
     +     .06239,    .01702,    .00278,    .00018,    .00003,
     +     .00002,    .00008,    .00009,
     +     .05948,    .01620,    .00259,    .00017,    .00003,
     +     .00002,    .00008,    .00008,
     +     .05677,    .01543,    .00241,    .00016,    .00003,
     +     .00002,    .00008,    .00008,
     +     .05434,    .01473,    .00226,    .00016,    .00002,
     +     .00002,    .00007,    .00008,
     +     .05211,    .01411,    .00212,    .00015,    .00002,
     +     .00002,    .00007,    .00007 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
     +     .04998,    .01351,    .00200,    .00015,    .00002,
     +     .00002,    .00007,    .00006,
     +     .04798,    .01294,    .00188,    .00013,    .00002,
     +     .00002,    .00006,    .00006,
     +     .04616,    .01242,    .00178,    .00012,    .00002,
     +     .00002,    .00006,    .00006,
     +     .04449,    .01195,    .00169,    .00011,    .00002,
     +     .00002,    .00005,    .00006,
     +     .04286,    .01150,    .00160,    .00011,    .00002,
     +     .00002,    .00005,    .00006 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
     +     .26561,    .07708,    .04586,    .00088,    .00000,
     +     .00000,    .00032,    .00039,
     +     .24892,    .07192,    .03967,    .00080,    .00000,
     +     .00000,    .00030,    .00035,
     +     .22656,    .06505,    .03219,    .00072,    .00000,
     +     .00000,    .00027,    .00033,
     +     .21196,    .06060,    .02779,    .00065,    .00000,
     +     .00000,    .00024,    .00030,
     +     .19798,    .05637,    .02391,    .00060,    .00001,
     +     .00000,    .00021,    .00027,
     +     .18676,    .05297,    .02107,    .00058,    .00001,
     +     .00000,    .00022,    .00024,
     +     .17672,    .04996,    .01872,    .00053,    .00001,
     +     .00000,    .00020,    .00022,
     +     .16678,    .04698,    .01655,    .00048,    .00002,
     +     .00000,    .00018,    .00020 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
     +     .15868,    .04455,    .01491,    .00044,    .00002,
     +     .00000,    .00018,    .00020,
     +     .15125,    .04235,    .01352,    .00043,    .00002,
     +     .00000,    .00017,    .00019,
     +     .14566,    .04071,    .01252,    .00042,    .00002,
     +     .00000,    .00016,    .00018,
     +     .13461,    .03745,    .01067,    .00038,    .00002,
     +     .00000,    .00014,    .00017,
     +     .12596,    .03493,    .00934,    .00034,    .00002,
     +     .00000,    .00013,    .00015,
     +     .11701,    .03231,    .00808,    .00031,    .00002,
     +     .00001,    .00012,    .00014,
     +     .10845,    .02982,    .00699,    .00029,    .00002,
     +     .00001,    .00011,    .00013,
     +     .10131,    .02775,    .00615,    .00027,    .00002,
     +     .00001,    .00010,    .00012 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
     +     .09464,    .02584,    .00543,    .00025,    .00002,
     +     .00001,    .00009,    .00011,
     +     .08949,    .02437,    .00491,    .00024,    .00002,
     +     .00001,    .00009,    .00009,
     +     .08368,    .02270,    .00436,    .00021,    .00002,
     +     .00001,    .00008,    .00009,
     +     .07888,    .02134,    .00394,    .00019,    .00002,
     +     .00001,    .00007,    .00008,
     +     .07477,    .02017,    .00360,    .00018,    .00002,
     +     .00001,    .00007,    .00008,
     +     .06987,    .01879,    .00322,    .00018,    .00002,
     +     .00001,    .00007,    .00007,
     +     .06558,    .01759,    .00291,    .00017,    .00002,
     +     .00001,    .00006,    .00007,
     +     .06185,    .01654,    .00265,    .00017,    .00002,
     +     .00001,    .00006,    .00007 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
     +     .05836,    .01556,    .00242,    .00015,    .00002,
     +     .00001,    .00005,    .00005,
     +     .05515,    .01467,    .00222,    .00014,    .00002,
     +     .00001,    .00005,    .00005,
     +     .05230,    .01388,    .00205,    .00013,    .00002,
     +     .00001,    .00005,    .00005,
     +     .04976,    .01318,    .00190,    .00012,    .00002,
     +     .00001,    .00004,    .00005,
     +     .04736,    .01251,    .00176,    .00010,    .00002,
     +     .00001,    .00003,    .00005,
     +     .04510,    .01189,    .00164,    .00010,    .00002,
     +     .00001,    .00004,    .00004,
     +     .04307,    .01133,    .00154,    .00010,    .00001,
     +     .00001,    .00004,    .00004,
     +     .04123,    .01083,    .00144,    .00009,    .00001,
     +     .00001,    .00003,    .00004 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
     +     .03947,    .01035,    .00136,    .00009,    .00001,
     +     .00001,    .00003,    .00004,
     +     .03781,    .00989,    .00128,    .00009,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03630,    .00948,    .00121,    .00008,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03493,    .00911,    .00114,    .00008,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03360,    .00875,    .00108,    .00008,    .00001,
     +     .00001,    .00003,    .00003 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
     +     .22629,    .06341,    .03282,    .00050,    .00000,
     +     .00000,    .00024,    .00026,
     +     .21132,    .05895,    .02818,    .00045,    .00000,
     +     .00000,    .00021,    .00025,
     +     .19136,    .05308,    .02266,    .00040,    .00000,
     +     .00000,    .00019,    .00020,
     +     .17837,    .04926,    .01944,    .00036,    .00000,
     +     .00000,    .00017,    .00020,
     +     .16600,    .04565,    .01663,    .00034,    .00000,
     +     .00000,    .00016,    .00017,
     +     .15612,    .04278,    .01460,    .00031,    .00001,
     +     .00000,    .00015,    .00016,
     +     .14727,    .04023,    .01292,    .00029,    .00001,
     +     .00000,    .00014,    .00015,
     +     .13852,    .03772,    .01138,    .00028,    .00001,
     +     .00000,    .00012,    .00013 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
     +     .13142,    .03568,    .01023,    .00027,    .00001,
     +     .00000,    .00011,    .00014,
     +     .12498,    .03384,    .00924,    .00025,    .00001,
     +     .00000,    .00011,    .00013,
     +     .12017,    .03246,    .00854,    .00023,    .00001,
     +     .00000,    .00010,    .00011,
     +     .11060,    .02974,    .00726,    .00020,    .00001,
     +     .00000,    .00010,    .00010,
     +     .10314,    .02763,    .00634,    .00018,    .00001,
     +     .00000,    .00009,    .00010,
     +     .09544,    .02546,    .00547,    .00017,    .00001,
     +     .00000,    .00008,    .00008,
     +     .08812,    .02342,    .00472,    .00015,    .00001,
     +     .00001,    .00008,    .00008,
     +     .08204,    .02173,    .00415,    .00013,    .00001,
     +     .00001,    .00007,    .00008 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
     +     .07639,    .02016,    .00365,    .00012,    .00001,
     +     .00001,    .00007,    .00007,
     +     .07203,    .01896,    .00330,    .00012,    .00001,
     +     .00001,    .00006,    .00007,
     +     .06711,    .01760,    .00293,    .00011,    .00001,
     +     .00001,    .00005,    .00006,
     +     .06308,    .01650,    .00265,    .00011,    .00001,
     +     .00001,    .00005,    .00005,
     +     .05964,    .01556,    .00241,    .00010,    .00001,
     +     .00001,    .00005,    .00005,
     +     .05555,    .01445,    .00215,    .00009,    .00001,
     +     .00001,    .00005,    .00004,
     +     .05199,    .01348,    .00194,    .00008,    .00001,
     +     .00001,    .00004,    .00004,
     +     .04890,    .01264,    .00177,    .00007,    .00001,
     +     .00001,    .00004,    .00004 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
     +     .04601,    .01186,    .00161,    .00007,    .00001,
     +     .00001,    .00003,    .00004,
     +     .04336,    .01115,    .00148,    .00007,    .00001,
     +     .00001,    .00003,    .00003,
     +     .04102,    .01052,    .00136,    .00006,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03893,    .00997,    .00126,    .00006,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03696,    .00944,    .00117,    .00005,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03511,    .00895,    .00109,    .00005,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03347,    .00851,    .00102,    .00005,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03198,    .00812,    .00096,    .00004,    .00001,
     +     .00001,    .00002,    .00003 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
     +     .03056,    .00774,    .00090,    .00004,    .00001,
     +     .00001,    .00002,    .00002,
     +     .02921,    .00738,    .00084,    .00004,    .00001,
     +     .00001,    .00002,    .00002,
     +     .02799,    .00706,    .00080,    .00004,    .00001,
     +     .00001,    .00002,    .00002,
     +     .02688,    .00678,    .00076,    .00004,    .00001,
     +     .00001,    .00002,    .00002,
     +     .02580,    .00650,    .00072,    .00004,    .00001,
     +     .00001,    .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)/
     +     .15671,    .04096,    .01530,    .00019,    .00000,
     +     .00000,    .00007,    .00007,
     +     .14523,    .03779,    .01297,    .00018,    .00000,
     +     .00000,    .00006,    .00007,
     +     .13011,    .03366,    .01027,    .00015,    .00000,
     +     .00000,    .00005,    .00006,
     +     .12037,    .03101,    .00872,    .00012,    .00000,
     +     .00000,    .00006,    .00004,
     +     .11113,    .02851,    .00740,    .00013,    .00000,
     +     .00000,    .00005,    .00004,
     +     .10386,    .02654,    .00645,    .00010,    .00000,
     +     .00000,    .00004,    .00004,
     +     .09738,    .02481,    .00568,    .00010,    .00000,
     +     .00000,    .00004,    .00004,
     +     .09101,    .02311,    .00498,    .00009,    .00000,
     +     .00000,    .00004,    .00004 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
     +     .08588,    .02175,    .00446,    .00009,    .00000,
     +     .00000,    .00004,    .00004,
     +     .08124,    .02052,    .00401,    .00008,    .00000,
     +     .00000,    .00003,    .00003,
     +     .07778,    .01961,    .00370,    .00007,    .00000,
     +     .00000,    .00003,    .00003,
     +     .07097,    .01781,    .00313,    .00006,    .00000,
     +     .00000,    .00003,    .00004,
     +     .06572,    .01643,    .00273,    .00006,    .00000,
     +     .00000,    .00003,    .00003,
     +     .06034,    .01503,    .00235,    .00005,    .00000,
     +     .00000,    .00003,    .00003,
     +     .05526,    .01371,    .00202,    .00005,    .00000,
     +     .00000,    .00002,    .00002,
     +     .05108,    .01263,    .00178,    .00005,    .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=17,24)/
     +     .04723,    .01164,    .00156,    .00004,    .00000,
     +     .00000,    .00002,    .00002,
     +     .04428,    .01088,    .00141,    .00003,    .00000,
     +     .00000,    .00002,    .00002,
     +     .04097,    .01003,    .00125,    .00003,    .00000,
     +     .00000,    .00001,    .00002,
     +     .03828,    .00935,    .00113,    .00003,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03598,    .00877,    .00103,    .00003,    .00000,
     +     .00000,    .00002,    .00001,
     +     .03330,    .00808,    .00092,    .00002,    .00000,
     +     .00000,    .00001,    .00002,
     +     .03096,    .00750,    .00083,    .00002,    .00000,
     +     .00000,    .00001,    .00002,
     +     .02894,    .00699,    .00075,    .00003,    .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=25,32)/
     +     .02707,    .00652,    .00068,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02537,    .00610,    .00062,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02387,    .00572,    .00057,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02255,    .00539,    .00053,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02131,    .00508,    .00049,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02015,    .00480,    .00046,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01911,    .00454,    .00043,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01818,    .00431,    .00040,    .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)/
     +     .01731,    .00410,    .00037,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01647,    .00389,    .00035,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01572,    .00371,    .00033,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01505,    .00355,    .00031,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01439,    .00338,    .00030,    .00001,    .00000,
     +     .00000,    .00001,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/
     +     .10030,    .02428,    .00607,    .00006,    .00000,
     +     .00000,    .00002,    .00003,
     +     .09219,    .02223,    .00511,    .00006,    .00000,
     +     .00000,    .00002,    .00001,
     +     .08161,    .01957,    .00400,    .00005,    .00000,
     +     .00000,    .00001,    .00002,
     +     .07488,    .01788,    .00339,    .00005,    .00000,
     +     .00000,    .00001,    .00001,
     +     .06857,    .01632,    .00286,    .00004,    .00000,
     +     .00000,    .00001,    .00001,
     +     .06362,    .01509,    .00249,    .00004,    .00000,
     +     .00000,    .00001,    .00001,
     +     .05926,    .01401,    .00219,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .05502,    .01296,    .00192,    .00003,    .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=9,16)/
     +     .05160,    .01212,    .00171,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04853,    .01137,    .00154,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04626,    .01082,    .00142,    .00003,    .00000,
     +     .00000,    .00000,    .00001,
     +     .04181,    .00974,    .00121,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03841,    .00892,    .00105,    .00002,    .00000,
     +     .00000,    .00000,    .00001,
     +     .03498,    .00809,    .00091,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .03176,    .00732,    .00078,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02913,    .00669,    .00069,    .00002,    .00000,
     +     .00000,    .00001,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
     +     .02673,    .00611,    .00060,    .00001,    .00000,
     +     .00000,    .00001,    .00000,
     +     .02489,    .00568,    .00055,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02287,    .00520,    .00048,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02123,    .00481,    .00044,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01984,    .00449,    .00040,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01822,    .00411,    .00035,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01683,    .00378,    .00032,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01564,    .00350,    .00029,    .00000,    .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)/
     +     .01453,    .00325,    .00026,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01353,    .00302,    .00024,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01266,    .00282,    .00022,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01189,    .00264,    .00020,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01117,    .00248,    .00019,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01051,    .00233,    .00017,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00993,    .00219,    .00016,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00940,    .00207,    .00015,    .00000,    .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)/
     +     .00890,    .00196,    .00014,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00844,    .00185,    .00013,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00802,    .00176,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00764,    .00167,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00728,    .00159,    .00011,    .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)/
     +     .05784,    .01287,    .00196,    .00003,    .00000,
     +     .00000,    .00000,    .00000,
     +     .05269,    .01167,    .00165,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04604,    .01014,    .00129,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04186,    .00919,    .00110,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03797,    .00830,    .00093,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03496,    .00762,    .00081,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03232,    .00702,    .00072,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02976,    .00644,    .00063,    .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)/
     +     .02772,    .00599,    .00057,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02592,    .00558,    .00051,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02458,    .00528,    .00047,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02199,    .00471,    .00040,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02003,    .00428,    .00035,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01806,    .00384,    .00031,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01624,    .00344,    .00026,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01476,    .00312,    .00023,    .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=17,24)/
     +     .01343,    .00283,    .00021,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01242,    .00261,    .00019,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01132,    .00237,    .00016,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01043,    .00217,    .00015,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00968,    .00201,    .00013,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00881,    .00183,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00807,    .00167,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00745,    .00154,    .00010,    .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)/
     +     .00687,    .00142,    .00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00636,    .00131,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00591,    .00121,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00552,    .00113,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00516,    .00105,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00482,    .00098,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00453,    .00092,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00426,    .00087,    .00005,    .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)/
     +     .00402,    .00082,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00379,    .00077,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00358,    .00072,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00340,    .00069,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00322,    .00065,    .00004,    .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)/
     +     .02870,    .00577,    .00047,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02586,    .00518,    .00040,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02226,    .00444,    .00033,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02002,    .00397,    .00028,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01797,    .00356,    .00024,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01639,    .00323,    .00021,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01502,    .00295,    .00019,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01370,    .00269,    .00017,    .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)/
     +     .01267,    .00248,    .00015,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01175,    .00229,    .00014,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01108,    .00216,    .00013,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00980,    .00190,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00883,    .00171,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00788,    .00152,    .00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00700,    .00134,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00630,    .00121,    .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,    .00108,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00520,    .00099,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00469,    .00089,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00429,    .00081,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00395,    .00075,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00356,    .00067,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00323,    .00061,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00296,    .00055,    .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=25,32)/
     +     .00271,    .00051,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00248,    .00046,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00229,    .00043,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00212,    .00039,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00197,    .00037,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00183,    .00034,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00171,    .00032,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00160,    .00030,    .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)/
     +     .00150,    .00028,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00140,    .00026,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00132,    .00024,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00125,    .00023,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00117,    .00022,    .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)/
     +     .00296,    .00045,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00258,    .00039,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00213,    .00032,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00185,    .00028,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00161,    .00024,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00143,    .00021,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00128,    .00019,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00114,    .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=9,16)/
     +     .00103,    .00015,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00093,    .00014,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00087,    .00013,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00074,    .00011,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00065,    .00010,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00056,    .00008,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00048,    .00007,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00042,    .00006,    .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)/
     +     .00037,    .00005,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00033,    .00005,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00029,    .00004,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00026,    .00004,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00023,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00020,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00018,    .00003,    .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,
     +     .00013,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00012,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00010,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00009,    .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 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
     +     .00007,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .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 /
      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='cor06.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