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

sfmrsc3.F

#include "pdf/pilot.h"
      subroutine sfmrsc3(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)/
     +     .00258,    .00689,   1.14806,    .85861,    .00000,
     +     .00000,    .45800,    .86391,
     +     .00277,    .00697,   2.42849,    .89638,    .01185,
     +     .00000,    .50017,    .90214,
     +     .00304,    .00710,   4.96211,    .97683,    .09806,
     +     .00000,    .58693,    .98325,
     +     .00325,    .00720,   7.41708,   1.05385,    .17636,
     +     .00000,    .66842,   1.06073,
     +     .00346,    .00730,  10.55312,   1.15475,    .27666,
     +     .00000,    .77390,   1.16211,
     +     .00365,    .00738,  13.76159,   1.25869,    .37864,
     +     .00000,    .88168,   1.26644,
     +     .00383,    .00747,  17.37161,   1.37239,    .49342,
     +     .00000,    .99898,   1.38050,
     +     .00402,    .00756,  21.81108,   1.50921,    .63369,
     +     .00000,   1.13954,   1.51770 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
     +     .00419,    .00764,  26.12737,   1.64364,    .76808,
     +     .00000,   1.27715,   1.65245,
     +     .00435,    .00771,  30.75916,   1.78670,    .91133,
     +     .00000,   1.42324,   1.79581,
     +     .00448,    .00778,  34.81681,   1.90947,   1.03633,
     +     .00000,   1.54835,   1.91880,
     +     .00476,    .00791,  44.32189,   2.20200,   1.32967,
     +     .02787,   1.84579,   2.21180,
     +     .00500,    .00802,  53.50489,   2.48779,   1.61375,
     +     .43733,   2.13570,   2.49798,
     +     .00527,    .00815,  65.12843,   2.84747,   1.97154,
     +     .92081,   2.49987,   2.85808,
     +     .00556,    .00829,  78.79559,   3.26815,   2.38932,
     +    1.40475,   2.92512,   3.27918,
     +     .00582,    .00842,  92.61547,   3.69260,   2.81055,
     +    1.87731,   3.35359,   3.70398 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
     +     .00609,    .00855, 107.98018,   4.16443,   3.27920,
     +    2.38844,   3.82939,   4.17615,
     +     .00631,    .00866, 121.76965,   4.58990,   3.70076,
     +    2.83574,   4.25808,   4.60189,
     +     .00659,    .00879, 139.74814,   5.14769,   4.25285,
     +    3.41330,   4.81970,   5.15999,
     +     .00683,    .00891, 156.92575,   5.68184,   4.78295,
     +    3.96611,   5.35716,   5.69441,
     +     .00705,    .00902, 173.74388,   6.20658,   5.30457,
     +    4.50763,   5.88488,   6.21939,
     +     .00734,    .00916, 196.26759,   6.91735,   6.00896,
     +    5.23028,   6.59935,   6.93043,
     +     .00761,    .00929, 218.92592,   7.63631,   6.72304,
     +    5.96296,   7.32172,   7.64965,
     +     .00787,    .00942, 241.55801,   8.35747,   7.44128,
     +    6.70091,   8.04601,   8.37103 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
     +     .00813,    .00954, 265.05768,   9.11715,   8.19520,
     +    7.46866,   8.80875,   9.13092,
     +     .00839,    .00967, 289.35907,   9.90649,   8.98064,
     +    8.27069,   9.60104,   9.92046,
     +     .00863,    .00979, 313.45605,  10.69498,   9.76585,
     +    9.07211,  10.39226,  10.70912,
     +     .00886,    .00991, 336.88663,  11.47034,  10.53702,
     +    9.85665,  11.17016,  11.48465,
     +     .00910,    .01002, 361.59863,  12.29091,  11.35535,
     +   10.69154,  11.99324,  12.30538,
     +     .00933,    .01014, 386.39938,  13.12581,  12.18600,
     +   11.53506,  12.83056,  13.14042,
     +     .00955,    .01025, 411.12766,  13.96017,  13.01861,
     +   12.38349,  13.66719,  13.97491,
     +     .00976,    .01035, 434.83429,  14.77101,  13.82584,
     +   13.20258,  14.48015,  14.78587 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
     +     .00998,    .01046, 459.72943,  15.62518,  14.67805,
     +   14.06937,  15.33643,  15.64015,
     +     .01019,    .01057, 484.74979,  16.49272,  15.54287,
     +   14.94731,  16.20602,  16.50780,
     +     .01040,    .01067, 509.28992,  17.34928,  16.39721,
     +   15.81470,  17.06452,  17.36445,
     +     .01059,    .01077, 533.25323,  18.19009,  17.23674,
     +   16.66779,  17.90714,  18.20536,
     +     .01079,    .01087, 557.67255,  19.05720,  18.10114,
     +   17.54373,  18.77607,  19.07255 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
     +     .00427,    .00843,   1.06935,    .73999,    .00000,
     +     .00000,    .39431,    .74414,
     +     .00452,    .00855,   2.22558,    .77429,    .01062,
     +     .00000,    .43216,    .77873,
     +     .00489,    .00873,   4.46074,    .84480,    .08677,
     +     .00000,    .50776,    .84966,
     +     .00517,    .00887,   6.58048,    .91088,    .15428,
     +     .00000,    .57743,    .91603,
     +     .00547,    .00901,   9.23991,    .99604,    .23941,
     +     .00000,    .66627,   1.00149,
     +     .00572,    .00914,  11.91834,   1.08267,    .32478,
     +     .00000,    .75598,   1.08837,
     +     .00597,    .00926,  14.89336,   1.17661,    .41984,
     +     .00000,    .85280,   1.18254,
     +     .00623,    .00939,  18.50627,   1.28870,    .53481,
     +     .00000,    .96788,   1.29487 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
     +     .00646,    .00950,  21.97669,   1.39785,    .64387,
     +     .00000,   1.07958,   1.40423,
     +     .00668,    .00961,  25.66308,   1.51321,    .75920,
     +     .00000,   1.19733,   1.51977,
     +     .00685,    .00970,  28.86595,   1.61165,    .85918,
     +     .00000,   1.29765,   1.61836,
     +     .00723,    .00988,  36.27455,   1.84419,   1.09159,
     +     .02278,   1.53409,   1.85120,
     +     .00756,    .01004,  43.32248,   2.06903,   1.31421,
     +     .34461,   1.76221,   2.07629,
     +     .00793,    .01022,  52.12724,   2.34931,   1.59176,
     +     .72130,   2.04606,   2.35684,
     +     .00832,    .01041,  62.34169,   2.67382,   1.91247,
     +    1.09285,   2.37418,   2.68162,
     +     .00867,    .01059,  72.54090,   2.99811,   2.23269,
     +    1.45170,   2.70166,   3.00614 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
     +     .00903,    .01077,  83.75018,   3.35544,   2.58580,
     +    1.83600,   3.06213,   3.36369,
     +     .00933,    .01091,  93.70589,   3.67508,   2.90087,
     +    2.16933,   3.38432,   3.68351,
     +     .00970,    .01109, 106.55493,   4.09084,   3.31026,
     +    2.59618,   3.80310,   4.09948,
     +     .01003,    .01126, 118.71117,   4.48591,   3.70035,
     +    3.00161,   4.20079,   4.49472,
     +     .01033,    .01140, 130.51088,   4.87138,   4.08164,
     +    3.39608,   4.58861,   4.88035,
     +     .01071,    .01160, 146.16129,   5.38957,   4.59264,
     +    3.91834,   5.10972,   5.39873,
     +     .01108,    .01178, 161.75487,   5.90973,   5.10680,
     +    4.44396,   5.63256,   5.91905,
     +     .01142,    .01195, 177.19695,   6.42785,   5.62047,
     +    4.96989,   6.15315,   6.43733 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
     +     .01177,    .01212, 193.08632,   6.96979,   6.15584,
     +    5.51299,   6.69750,   6.97941,
     +     .01211,    .01229, 209.39034,   7.52934,   6.71017,
     +    6.07703,   7.25937,   7.53909,
     +     .01244,    .01245, 225.43550,   8.08486,   7.26103,
     +    6.63731,   7.81705,   8.09474,
     +     .01275,    .01260, 240.92027,   8.62790,   7.79885,
     +    7.18250,   8.36208,   8.63789,
     +     .01306,    .01276, 257.15128,   9.19964,   8.36674,
     +    7.75999,   8.93580,   9.20974,
     +     .01337,    .01291, 273.32095,   9.77802,   8.93985,
     +    8.33993,   9.51609,   9.78822,
     +     .01366,    .01306, 289.35507,  10.35332,   9.51178,
     +    8.92088,  10.09318,  10.36362,
     +     .01394,    .01320, 304.62338,  10.90949,  10.06333,
     +    9.47863,  10.65102,  10.91988 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
     +     .01423,    .01334, 320.57779,  11.49290,  10.64328,
     +   10.06665,  11.23609,  11.50337,
     +     .01451,    .01348, 336.51559,  12.08263,  11.22901,
     +   10.65936,  11.82744,  12.09318,
     +     .01478,    .01362, 352.06702,  12.66242,  11.80526,
     +   11.24258,  12.40876,  12.67304,
     +     .01504,    .01375, 367.18179,  13.22932,  12.36937,
     +   11.81410,  12.97709,  13.24001,
     +     .01531,    .01388, 382.49710,  13.81141,  12.94763,
     +   12.39822,  13.56060,  13.82216 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
     +     .00670,    .01031,    .99732,    .63735,    .00000,
     +     .00000,    .33949,    .64069,
     +     .00705,    .01049,   2.04110,    .66840,    .00952,
     +     .00000,    .37342,    .67191,
     +     .00757,    .01075,   4.01147,    .73015,    .07678,
     +     .00000,    .43927,    .73390,
     +     .00795,    .01094,   5.83946,    .78681,    .13496,
     +     .00000,    .49882,    .79073,
     +     .00835,    .01114,   8.09089,    .85861,    .20716,
     +     .00000,    .57358,    .86271,
     +     .00870,    .01132,  10.32220,    .93070,    .27854,
     +     .00000,    .64814,    .93495,
     +     .00904,    .01149,  12.76816,   1.00816,    .35717,
     +     .00000,    .72791,   1.01255,
     +     .00940,    .01167,  15.70073,   1.09979,    .45127,
     +     .00000,    .82192,   1.10431 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
     +     .00971,    .01182,  18.48290,   1.18819,    .53964,
     +     .00000,    .91236,   1.19283,
     +     .01001,    .01197,  21.40765,   1.28092,    .63232,
     +     .00000,   1.00701,   1.28568,
     +     .01025,    .01209,  23.92749,   1.35961,    .71214,
     +     .00000,   1.08719,   1.36446,
     +     .01077,    .01235,  29.68100,   1.54384,    .89591,
     +     .01861,   1.27452,   1.54886,
     +     .01121,    .01257,  35.06790,   1.72007,   1.06996,
     +     .27143,   1.45336,   1.72525,
     +     .01172,    .01282,  41.70796,   1.93761,   1.28475,
     +     .56476,   1.67373,   1.94295,
     +     .01224,    .01308,  49.30594,   2.18687,   1.53029,
     +     .84979,   1.92585,   2.19237,
     +     .01272,    .01332,  56.79535,   2.43354,   1.77302,
     +    1.12201,   2.17504,   2.43918 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
     +     .01321,    .01357,  64.92997,   2.70291,   2.03826,
     +    1.41060,   2.44689,   2.70869,
     +     .01362,    .01377,  72.07808,   2.94189,   2.27299,
     +    1.65864,   2.68788,   2.94778,
     +     .01411,    .01401,  81.20795,   3.25025,   2.57554,
     +    1.97359,   2.99862,   3.25627,
     +     .01455,    .01423,  89.75897,   3.54097,   2.86160,
     +    2.27039,   3.29140,   3.54710,
     +     .01496,    .01443,  97.98599,   3.82266,   3.13929,
     +    2.55715,   3.57494,   3.82889,
     +     .01548,    .01469, 108.78947,   4.19843,   3.50858,
     +    2.93375,   3.95301,   4.20478,
     +     .01597,    .01493, 119.44830,   4.57269,   3.87732,
     +    3.30992,   4.32938,   4.57915,
     +     .01643,    .01516, 129.91092,   4.94287,   4.24319,
     +    3.68378,   4.70149,   4.94943 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
     +     .01689,    .01539, 140.57541,   5.32726,   4.62172,
     +    4.06690,   5.08778,   5.33392,
     +     .01735,    .01562, 151.43144,   5.72159,   5.01122,
     +    4.46238,   5.48393,   5.72834,
     +     .01779,    .01584, 162.03230,   6.11065,   5.39593,
     +    4.85287,   5.87469,   6.11749,
     +     .01820,    .01604, 172.18329,   6.48867,   5.76924,
     +    5.23047,   6.25427,   6.49558,
     +     .01861,    .01625, 182.75668,   6.88459,   6.16146,
     +    5.62856,   6.65174,   6.89157,
     +     .01902,    .01645, 193.20845,   7.28274,   6.55491,
     +    6.02583,   7.05139,   7.28980,
     +     .01942,    .01664, 203.51527,   7.67690,   6.94580,
     +    6.42215,   7.44696,   7.68403,
     +     .01979,    .01683, 213.26010,   8.05591,   7.32069,
     +    6.80045,   7.82727,   8.06309 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
     +     .02017,    .01702, 223.39165,   8.45177,   7.71329,
     +    7.19778,   8.22444,   8.45902,
     +     .02055,    .01720, 233.44849,   8.84998,   8.10785,
     +    7.59625,   8.62391,   8.85728,
     +     .02091,    .01738, 243.20926,   9.23978,   8.49439,
     +    7.98672,   9.01491,   9.24714,
     +     .02125,    .01755, 252.65016,   9.61939,   8.87132,
     +    8.36794,   9.39565,   9.62681,
     +     .02160,    .01772, 262.15836,  10.00741,   9.25593,
     +    8.75569,   9.78479,  10.01487 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
     +     .00859,    .01161,    .95848,    .58382,    .00000,
     +     .00000,    .31105,    .58685,
     +     .00901,    .01183,   1.94154,    .61307,    .00893,
     +     .00000,    .34284,    .61622,
     +     .00964,    .01215,   3.77108,    .67017,    .07147,
     +     .00000,    .40358,    .67350,
     +     .01010,    .01238,   5.44625,    .72192,    .12480,
     +     .00000,    .45789,    .72537,
     +     .01059,    .01262,   7.48678,    .78686,    .19033,
     +     .00000,    .52543,    .79044,
     +     .01101,    .01284,   9.48971,    .85155,    .25459,
     +     .00000,    .59230,    .85523,
     +     .01142,    .01304,  11.66813,    .92068,    .32490,
     +     .00000,    .66346,    .92445,
     +     .01185,    .01326,  14.26002,   1.00200,    .40853,
     +     .00000,    .74689,   1.00588 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
     +     .01222,    .01344,  16.70078,   1.08003,    .48660,
     +     .00000,    .82670,   1.08399,
     +     .01259,    .01363,  19.25074,   1.16152,    .56807,
     +     .00000,    .90987,   1.16556,
     +     .01288,    .01377,  21.43669,   1.23043,    .63797,
     +     .00000,    .98009,   1.23454,
     +     .01349,    .01408,  26.38913,   1.39089,    .79796,
     +     .01653,   1.14328,   1.39513,
     +     .01403,    .01435,  30.98164,   1.54341,    .94849,
     +     .23597,   1.29807,   1.54776,
     +     .01463,    .01465,  36.59739,   1.73057,   1.13310,
     +     .48926,   1.48771,   1.73503,
     +     .01526,    .01496,  42.97072,   1.94369,   1.34281,
     +     .73322,   1.70332,   1.94827,
     +     .01583,    .01525,  49.20474,   2.15337,   1.54889,
     +     .96465,   1.91521,   2.15806 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
     +     .01642,    .01554,  55.92823,   2.38111,   1.77288,
     +    1.20852,   2.14512,   2.38591,
     +     .01690,    .01578,  61.79861,   2.58218,   1.97012,
     +    1.41698,   2.34794,   2.58706,
     +     .01749,    .01607,  69.24979,   2.84038,   2.22313,
     +    1.68035,   2.60821,   2.84536,
     +     .01802,    .01633,  76.18650,   3.08267,   2.46125,
     +    1.92737,   2.85230,   3.08773,
     +     .01850,    .01657,  82.82520,   3.31647,   2.69146,
     +    2.16505,   3.08771,   3.32161,
     +     .01912,    .01688,  91.49043,   3.62691,   2.99619,
     +    2.47567,   3.40016,   3.63215,
     +     .01970,    .01717,  99.98937,   3.93469,   3.29908,
     +    2.78452,   3.70976,   3.94001,
     +     .02025,    .01744, 108.28806,   4.23783,   3.59839,
     +    3.09026,   4.01459,   4.24324 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
     +     .02080,    .01771, 116.69842,   4.55125,   3.90669,
     +    3.40211,   4.32966,   4.55673,
     +     .02134,    .01798, 125.21895,   4.87154,   4.22275,
     +    3.72288,   4.65153,   4.87709,
     +     .02186,    .01823, 133.50034,   5.18639,   4.53378,
     +    4.03844,   4.96785,   5.19201,
     +     .02235,    .01848, 141.39267,   5.49119,   4.83451,
     +    4.34245,   5.27401,   5.49687,
     +     .02284,    .01872, 149.58260,   5.80943,   5.14952,
     +    4.66205,   5.59360,   5.81518,
     +     .02332,    .01896, 157.63989,   6.12833,   5.46438,
     +    4.97978,   5.91380,   6.13414,
     +     .02379,    .01919, 165.55927,   6.44316,   5.77636,
     +    5.29598,   6.22985,   6.44902,
     +     .02423,    .01941, 173.01379,   6.74489,   6.07457,
     +    5.59674,   6.53272,   6.75081 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
     +     .02468,    .01963, 180.74088,   7.05926,   6.38613,
     +    5.91192,   6.84822,   7.06523,
     +     .02512,    .01985, 188.38113,   7.37455,   6.69831,
     +    6.22704,   7.16460,   7.38057,
     +     .02554,    .02005, 195.77267,   7.68238,   7.00337,
     +    6.53507,   7.47348,   7.68845,
     +     .02595,    .02025, 202.90105,   7.98147,   7.30017,
     +    6.83513,   7.77354,   7.98759,
     +     .02636,    .02046, 210.05336,   8.28635,   7.60216,
     +    7.13943,   8.07939,   8.29250 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
     +     .01019,    .01264,    .93254,    .54846,    .00000,
     +     .00000,    .29233,    .55137,
     +     .01067,    .01288,   1.87465,    .57647,    .00854,
     +     .00000,    .32269,    .57947,
     +     .01139,    .01325,   3.61006,    .63048,    .06793,
     +     .00000,    .38003,    .63361,
     +     .01192,    .01351,   5.18404,    .67900,    .11805,
     +     .00000,    .43090,    .68223,
     +     .01248,    .01380,   7.08612,    .73945,    .17922,
     +     .00000,    .49373,    .74277,
     +     .01296,    .01404,   8.94021,    .79932,    .23883,
     +     .00000,    .55560,    .80273,
     +     .01342,    .01427,  10.94537,    .86304,    .30377,
     +     .00000,    .62118,    .86653,
     +     .01392,    .01452,  13.31800,    .93772,    .38065,
     +     .00000,    .69779,    .94129 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
     +     .01434,    .01473,  15.54035,   1.00908,    .45211,
     +     .00000,    .77078,   1.01272,
     +     .01476,    .01494,  17.85175,   1.08336,    .52642,
     +     .00000,    .84660,   1.08706,
     +     .01509,    .01511,  19.82608,   1.14603,    .58999,
     +     .00000,    .91046,   1.14978,
     +     .01579,    .01546,  24.27394,   1.29137,    .73492,
     +     .01520,   1.05829,   1.29523,
     +     .01640,    .01576,  28.36990,   1.42888,    .87061,
     +     .21360,   1.19787,   1.43282,
     +     .01709,    .01610,  33.34963,   1.59690,   1.03631,
     +     .44178,   1.36815,   1.60094,
     +     .01780,    .01646,  38.96780,   1.78737,   1.22366,
     +     .66015,   1.56090,   1.79152,
     +     .01845,    .01678,  44.43269,   1.97399,   1.40699,
     +     .86632,   1.74952,   1.97821 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
     +     .01912,    .01711,  50.29672,   2.17589,   1.60547,
     +    1.08262,   1.95340,   2.18021,
     +     .01967,    .01738,  55.39304,   2.35352,   1.77963,
     +    1.26680,   2.13262,   2.35791,
     +     .02034,    .01772,  61.83253,   2.58084,   2.00227,
     +    1.49864,   2.36183,   2.58531,
     +     .02093,    .01801,  67.80136,   2.79344,   2.21111,
     +    1.71535,   2.57605,   2.79798,
     +     .02148,    .01828,  73.49202,   2.99797,   2.41242,
     +    1.92324,   2.78206,   3.00258,
     +     .02218,    .01863,  80.88731,   3.26866,   2.67801,
     +    2.19397,   3.05456,   3.27335,
     +     .02283,    .01896,  88.10972,   3.53613,   2.94113,
     +    2.46229,   3.32369,   3.54089,
     +     .02346,    .01926,  95.13513,   3.79879,   3.20036,
     +    2.72714,   3.58788,   3.80362 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
     +     .02408,    .01957, 102.22534,   4.06949,   3.46655,
     +    2.99637,   3.86008,   4.07439,
     +     .02469,    .01987, 109.38365,   4.34537,   3.73869,
     +    3.27258,   4.13739,   4.35034,
     +     .02527,    .02016, 116.31742,   4.61585,   4.00581,
     +    3.54360,   4.40920,   4.62088,
     +     .02582,    .02043, 122.90256,   4.87700,   4.26339,
     +    3.80399,   4.67159,   4.88209,
     +     .02637,    .02070, 129.71748,   5.14907,   4.53265,
     +    4.07718,   4.94488,   5.15421,
     +     .02692,    .02097, 136.39856,   5.42100,   4.80105,
     +    4.34802,   5.21798,   5.42620,
     +     .02744,    .02123, 142.94978,   5.68892,   5.06650,
     +    4.61708,   5.48701,   5.69417,
     +     .02794,    .02147, 149.09645,   5.94510,   5.31963,
     +    4.87235,   5.74422,   5.95040 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
     +     .02844,    .02172, 155.45416,   6.21151,   5.58362,
     +    5.13943,   6.01166,   6.21686,
     +     .02894,    .02197, 161.72232,   6.47814,   5.84757,
     +    5.40587,   6.27929,   6.48354,
     +     .02941,    .02220, 167.77206,   6.73799,   6.10504,
     +    5.66584,   6.54007,   6.74343,
     +     .02987,    .02242, 173.59416,   6.99002,   6.35512,
     +    5.91868,   6.79299,   6.99550,
     +     .03033,    .02265, 179.41945,   7.24641,   6.60904,
     +    6.17454,   7.05026,   7.25193 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
     +     .01160,    .01350,    .91344,    .52245,    .00000,
     +     .00000,    .27861,    .52530,
     +     .01213,    .01377,   1.82496,    .54952,    .00824,
     +     .00000,    .30788,    .55245,
     +     .01294,    .01418,   3.49048,    .60122,    .06531,
     +     .00000,    .36271,    .60427,
     +     .01352,    .01447,   4.98986,    .64737,    .11307,
     +     .00000,    .41106,    .65049,
     +     .01414,    .01478,   6.79046,    .70453,    .17104,
     +     .00000,    .47045,    .70774,
     +     .01468,    .01505,   8.53608,    .76090,    .22728,
     +     .00000,    .52869,    .76418,
     +     .01519,    .01531,  10.41555,    .82070,    .28831,
     +     .00000,    .59023,    .82404,
     +     .01574,    .01558,  12.62985,    .89057,    .36031,
     +     .00000,    .66190,    .89398 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
     +     .01621,    .01582,  14.69517,    .95712,    .42701,
     +     .00000,    .72997,    .96059,
     +     .01667,    .01605,  16.83572,   1.02622,    .49618,
     +     .00000,    .80051,   1.02974,
     +     .01704,    .01623,  18.65894,   1.08440,    .55522,
     +     .00000,    .85981,   1.08797,
     +     .01782,    .01662,  22.74818,   1.21892,    .68939,
     +     .01423,    .99665,   1.22258,
     +     .01849,    .01696,  26.49324,   1.34572,    .81454,
     +     .19768,   1.12539,   1.34946,
     +     .01925,    .01733,  31.02574,   1.50015,    .96683,
     +     .40807,   1.28192,   1.50397,
     +     .02004,    .01773,  36.11561,   1.67459,   1.13840,
     +     .60839,   1.45848,   1.67850,
     +     .02076,    .01808,  41.04498,   1.84493,   1.30573,
     +     .79682,   1.63069,   1.84892 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
     +     .02149,    .01845,  46.31329,   2.02868,   1.48634,
     +     .99384,   1.81627,   2.03274,
     +     .02210,    .01875,  50.87516,   2.18988,   1.64437,
     +    1.16108,   1.97896,   2.19401,
     +     .02283,    .01911,  56.61886,   2.39563,   1.84585,
     +    1.37099,   2.18646,   2.39983,
     +     .02349,    .01944,  61.92459,   2.58754,   2.03434,
     +    1.56669,   2.37989,   2.59181,
     +     .02409,    .01974,  66.96776,   2.77175,   2.21563,
     +    1.75398,   2.56546,   2.77608,
     +     .02486,    .02012,  73.49903,   3.01490,   2.45417,
     +    1.99721,   2.81030,   3.01930,
     +     .02558,    .02047,  79.85612,   3.25452,   2.68988,
     +    2.23765,   3.05147,   3.25900,
     +     .02627,    .02081,  86.02132,   3.48929,   2.92158,
     +    2.47445,   3.28766,   3.49383 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
     +     .02695,    .02115,  92.22269,   3.73065,   3.15889,
     +    2.71452,   3.53041,   3.73526,
     +     .02762,    .02148,  98.46655,   3.97611,   3.40101,
     +    2.96031,   3.77719,   3.98077,
     +     .02826,    .02179, 104.49836,   4.21624,   3.63817,
     +    3.20100,   4.01857,   4.22097,
     +     .02886,    .02209, 110.21112,   4.44763,   3.86638,
     +    3.43174,   4.25110,   4.45241,
     +     .02947,    .02239, 116.11056,   4.68827,   4.10453,
     +    3.67344,   4.49287,   4.69310,
     +     .03007,    .02268, 121.87805,   4.92829,   4.34144,
     +    3.91254,   4.73399,   4.93318,
     +     .03064,    .02296, 127.52287,   5.16441,   4.57541,
     +    4.14975,   4.97114,   5.16935,
     +     .03118,    .02323, 132.80536,   5.38976,   4.79807,
     +    4.37434,   5.19744,   5.39474 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
     +     .03173,    .02350, 138.25984,   5.62379,   5.02999,
     +    4.60902,   5.43242,   5.62882,
     +     .03228,    .02377, 143.62531,   5.85760,   5.26148,
     +    4.84273,   5.66716,   5.86268,
     +     .03280,    .02402, 148.79410,   6.08514,   5.48695,
     +    5.07045,   5.89557,   6.09026,
     +     .03329,    .02427, 153.76004,   6.30553,   5.70567,
     +    5.29164,   6.11679,   6.31070,
     +     .03380,    .02452, 158.71748,   6.52940,   5.92739,
     +    5.51509,   6.34147,   6.53460 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
     +     .01713,    .01660,    .86075,    .44884,    .00000,
     +     .00000,    .24001,    .45186,
     +     .01789,    .01698,   1.68349,    .47313,    .00739,
     +     .00000,    .26613,    .47621,
     +     .01900,    .01753,   3.14801,    .51821,    .05779,
     +     .00000,    .31380,    .52137,
     +     .01982,    .01794,   4.43534,    .55763,    .09887,
     +     .00000,    .35504,    .56085,
     +     .02068,    .01837,   5.95061,    .60559,    .14789,
     +     .00000,    .40485,    .60888,
     +     .02142,    .01873,   7.39420,    .65222,    .19474,
     +     .00000,    .45301,    .65556,
     +     .02213,    .01909,   8.92655,    .70118,    .24499,
     +     .00000,    .50341,    .70457,
     +     .02288,    .01946,  10.70712,    .75783,    .30361,
     +     .00000,    .56154,    .76128 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
     +     .02354,    .01978,  12.34563,    .81123,    .35732,
     +     .00000,    .61619,    .81473,
     +     .02417,    .02010,  14.02485,    .86622,    .41255,
     +     .00000,    .67236,    .86976,
     +     .02467,    .02034,  15.44233,    .91224,    .45935,
     +     .00000,    .71930,    .91582,
     +     .02574,    .02087,  18.57651,   1.01757,    .56463,
     +     .01159,    .82654,   1.02123,
     +     .02666,    .02133,  21.39634,   1.11571,    .66165,
     +     .15515,    .92625,   1.11943,
     +     .02769,    .02184,  24.75994,   1.23396,    .77842,
     +     .31832,   1.04622,   1.23775,
     +     .02877,    .02237,  28.48142,   1.36603,    .90848,
     +     .47124,   1.18003,   1.36991,
     +     .02975,    .02285,  32.03538,   1.49365,   1.03398,
     +     .61337,   1.30917,   1.49760 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
     +     .03074,    .02334,  35.78537,   1.62998,   1.16813,
     +     .76037,   1.44700,   1.63401,
     +     .03156,    .02374,  38.99463,   1.74855,   1.28447,
     +     .88393,   1.56677,   1.75263,
     +     .03256,    .02423,  42.98937,   1.89856,   1.43152,
     +    1.03761,   1.71821,   1.90271,
     +     .03345,    .02467,  46.63905,   2.03733,   1.56796,
     +    1.17967,   1.85821,   2.04154,
     +     .03426,    .02507,  50.07476,   2.16954,   1.69822,
     +    1.31462,   1.99154,   2.17382,
     +     .03529,    .02557,  54.47460,   2.34262,   1.86817,
     +    1.48831,   2.16597,   2.34697,
     +     .03626,    .02605,  58.71094,   2.51177,   2.03475,
     +    1.65861,   2.33639,   2.51620,
     +     .03718,    .02650,  62.77994,   2.67627,   2.19729,
     +    1.82513,   2.50203,   2.68076 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
     +     .03809,    .02694,  66.82854,   2.84405,   2.36243,
     +    1.99251,   2.67094,   2.84861,
     +     .03899,    .02738,  70.86932,   3.01351,   2.52979,
     +    2.16277,   2.84148,   3.01814,
     +     .03984,    .02780,  74.73900,   3.17821,   2.69265,
     +    2.32840,   3.00718,   3.18290,
     +     .04064,    .02819,  78.37093,   3.33585,   2.84832,
     +    2.48609,   3.16575,   3.34060,
     +     .04145,    .02859,  82.09612,   3.49890,   3.00992,
     +    2.65045,   3.32973,   3.50371,
     +     .04224,    .02897,  85.70422,   3.66048,   3.16959,
     +    2.81188,   3.49218,   3.66534,
     +     .04300,    .02934,  89.21493,   3.81865,   3.32654,
     +    2.97135,   3.65119,   3.82357,
     +     .04372,    .02970,  92.47161,   3.96869,   3.47499,
     +    3.12135,   3.80200,   3.97367 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
     +     .04444,    .03005,  95.81638,   4.12382,   3.62895,
     +    3.27746,   3.95791,   4.12886,
     +     .04516,    .03040,  99.08143,   4.27797,   3.78178,
     +    3.43204,   4.11281,   4.28306,
     +     .04585,    .03073, 102.20765,   4.42729,   3.92995,
     +    3.58197,   4.26283,   4.43243,
     +     .04650,    .03105, 105.19489,   4.57131,   4.07310,
     +    3.72703,   4.40752,   4.57650,
     +     .04716,    .03138, 108.15430,   4.71684,   4.21744,
     +    3.87275,   4.55371,   4.72208 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
     +     .02497,    .02056,    .82165,    .38507,    .00000,
     +     .00000,    .20691,    .38878,
     +     .02602,    .02107,   1.56436,    .40675,    .00664,
     +     .00000,    .23014,    .41054,
     +     .02758,    .02183,   2.84942,    .44590,    .05113,
     +     .00000,    .27150,    .44981,
     +     .02871,    .02238,   3.95068,    .47943,    .08642,
     +     .00000,    .30657,    .48342,
     +     .02990,    .02296,   5.21965,    .51950,    .12776,
     +     .00000,    .34821,    .52358,
     +     .03093,    .02346,   6.40646,    .55787,    .16666,
     +     .00000,    .38789,    .56203,
     +     .03191,    .02394,   7.64745,    .59773,    .20786,
     +     .00000,    .42896,    .60197,
     +     .03295,    .02444,   9.06856,    .64338,    .25538,
     +     .00000,    .47587,    .64769 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
     +     .03385,    .02488,  10.35772,    .68593,    .29842,
     +     .00000,    .51947,    .69031,
     +     .03472,    .02531,  11.66333,    .72937,    .34227,
     +     .00000,    .56391,    .73381,
     +     .03541,    .02564,  12.75502,    .76548,    .37916,
     +     .00000,    .60080,    .76998,
     +     .03687,    .02635,  15.13235,    .84728,    .46124,
     +     .00941,    .68421,    .85189,
     +     .03813,    .02697,  17.23071,    .92254,    .53593,
     +     .12123,    .76081,    .92724,
     +     .03954,    .02766,  19.69551,   1.01220,    .62480,
     +     .24716,    .85194,   1.01702,
     +     .04100,    .02837,  22.37996,   1.11117,    .72259,
     +     .36323,    .95237,   1.11610,
     +     .04233,    .02902,  24.90566,   1.20575,    .81590,
     +     .46977,   1.04824,   1.21078 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
     +     .04367,    .02967,  27.53461,   1.30576,    .91464,
     +     .57870,   1.14952,   1.31090,
     +     .04478,    .03021,  29.75644,   1.39193,    .99947,
     +     .66933,   1.23671,   1.39715,
     +     .04613,    .03087,  32.48829,   1.49998,   1.10571,
     +     .78096,   1.34596,   1.50530,
     +     .04732,    .03144,  34.95506,   1.59905,   1.20343,
     +     .88324,   1.44607,   1.60447,
     +     .04841,    .03198,  37.25327,   1.69272,   1.29602,
     +     .97963,   1.54068,   1.69822,
     +     .04979,    .03265,  40.16072,   1.81425,   1.41574,
     +    1.10254,   1.66337,   1.81986,
     +     .05109,    .03328,  42.92770,   1.93200,   1.53207,
     +    1.22202,   1.78219,   1.93772,
     +     .05231,    .03387,  45.55807,   2.04562,   1.64472,
     +    1.33795,   1.89679,   2.05144 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
     +     .05353,    .03446,  48.14392,   2.16054,   1.75819,
     +    1.45343,   2.01265,   2.16645,
     +     .05472,    .03504,  50.70055,   2.27578,   1.87238,
     +    1.57010,   2.12881,   2.28179,
     +     .05584,    .03559,  53.12588,   2.38701,   1.98273,
     +    1.68281,   2.24088,   2.39310,
     +     .05690,    .03610,  55.37930,   2.49271,   2.08745,
     +    1.78933,   2.34738,   2.49889,
     +     .05797,    .03662,  57.67388,   2.60143,   2.19556,
     +    1.89977,   2.45687,   2.60770,
     +     .05902,    .03713,  59.87297,   2.70840,   2.30162,
     +    2.00742,   2.56459,   2.71475,
     +     .06002,    .03762,  61.99949,   2.81259,   2.40537,
     +    2.11328,   2.66949,   2.81903,
     +     .06096,    .03807,  63.95244,   2.91078,   2.50283,
     +    2.21215,   2.76834,   2.91729 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
     +     .06192,    .03854,  65.94678,   3.01184,   2.60347,
     +    2.31462,   2.87005,   3.01843,
     +     .06286,    .03899,  67.87664,   3.11167,   2.70278,
     +    2.41547,   2.97052,   3.11833,
     +     .06375,    .03943,  69.71193,   3.20789,   2.79860,
     +    2.51282,   3.06734,   3.21463,
     +     .06461,    .03984,  71.45519,   3.30029,   2.89077,
     +    2.60661,   3.16031,   3.30710,
     +     .06547,    .04026,  73.16676,   3.39314,   2.98317,
     +    2.70025,   3.25371,   3.40001 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
     +     .03100,    .02341,    .80823,    .35188,    .00000,
     +     .00000,    .18980,    .35625,
     +     .03228,    .02403,   1.50773,    .37210,    .00623,
     +     .00000,    .21146,    .37658,
     +     .03416,    .02494,   2.69614,    .40806,    .04759,
     +     .00000,    .24944,    .41270,
     +     .03554,    .02560,   3.69850,    .43847,    .07984,
     +     .00000,    .28128,    .44324,
     +     .03698,    .02629,   4.83830,    .47443,    .11720,
     +     .00000,    .31868,    .47931,
     +     .03821,    .02689,   5.89210,    .50854,    .15199,
     +     .00000,    .35399,    .51353,
     +     .03939,    .02746,   6.98372,    .54374,    .18858,
     +     .00000,    .39032,    .54884,
     +     .04065,    .02807,   8.22249,    .58379,    .23047,
     +     .00000,    .43153,    .58900 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
     +     .04173,    .02859,   9.33630,    .62087,    .26814,
     +     .00000,    .46959,    .62617,
     +     .04277,    .02910,  10.45600,    .65852,    .30629,
     +     .00000,    .50816,    .66391,
     +     .04360,    .02950,  11.38673,    .68970,    .33825,
     +     .00000,    .54006,    .69516,
     +     .04536,    .03035,  13.39428,    .75986,    .40889,
     +     .00830,    .61170,    .76547,
     +     .04686,    .03108,  15.14489,    .82390,    .47266,
     +     .10456,    .67698,    .82964,
     +     .04855,    .03189,  17.18159,    .89968,    .54799,
     +     .21234,    .75411,    .90557,
     +     .05030,    .03274,  19.37809,    .98271,    .63028,
     +     .31066,    .83849,    .98875,
     +     .05188,    .03351,  21.42552,   1.06151,    .70825,
     +     .40021,    .91848,   1.06768 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
     +     .05348,    .03428,  23.53855,   1.14432,    .79024,
     +     .49114,   1.00247,   1.15063,
     +     .05480,    .03492,  25.31027,   1.21525,    .86028,
     +     .56630,   1.07435,   1.22168,
     +     .05639,    .03570,  27.47192,   1.30369,    .94750,
     +     .65833,   1.16391,   1.31026,
     +     .05780,    .03638,  29.40938,   1.38435,   1.02729,
     +     .74220,   1.24553,   1.39104,
     +     .05910,    .03701,  31.20271,   1.46025,   1.10252,
     +     .82084,   1.32230,   1.46705,
     +     .06073,    .03780,  33.45379,   1.55818,   1.19928,
     +     .92054,   1.42131,   1.56513,
     +     .06226,    .03854,  35.58032,   1.65257,   1.29279,
     +    1.01695,   1.51668,   1.65965,
     +     .06370,    .03924,  37.58868,   1.74320,   1.38291,
     +    1.11005,   1.60822,   1.75041 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
     +     .06513,    .03993,  39.54761,   1.83438,   1.47320,
     +    1.20227,   1.70028,   1.84171,
     +     .06653,    .04061,  41.47281,   1.92542,   1.56367,
     +    1.29504,   1.79217,   1.93287,
     +     .06785,    .04125,  43.28807,   2.01290,   1.65072,
     +    1.38428,   1.88045,   2.02047,
     +     .06909,    .04185,  44.96352,   2.09568,   1.73297,
     +    1.46823,   1.96396,   2.10336,
     +     .07034,    .04245,  46.66174,   2.18051,   1.81759,
     +    1.55499,   2.04952,   2.18830,
     +     .07157,    .04305,  48.27782,   2.26361,   1.90021,
     +    1.63915,   2.13332,   2.27151,
     +     .07274,    .04361,  49.83459,   2.34431,   1.98081,
     +    1.72170,   2.21468,   2.35231,
     +     .07384,    .04414,  51.25456,   2.42003,   2.05620,
     +    1.79843,   2.29101,   2.42813 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
     +     .07495,    .04468,  52.69943,   2.49775,   2.13384,
     +    1.87777,   2.36935,   2.50595,
     +     .07604,    .04521,  54.08931,   2.57424,   2.21016,
     +    1.95555,   2.44643,   2.58254,
     +     .07709,    .04571,  55.40521,   2.64775,   2.28357,
     +    2.03040,   2.52050,   2.65613,
     +     .07808,    .04619,  56.65030,   2.71814,   2.35400,
     +    2.10233,   2.59142,   2.72661,
     +     .07908,    .04667,  57.86508,   2.78861,   2.42435,
     +    2.17387,   2.66241,   2.79717 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
     +     .03611,    .02577,    .80486,    .33007,    .00000,
     +     .00000,    .17859,    .33502,
     +     .03757,    .02647,   1.47505,    .34929,    .00596,
     +     .00000,    .19917,    .35438,
     +     .03973,    .02751,   2.59786,    .38308,    .04523,
     +     .00000,    .23488,    .38837,
     +     .04130,    .02826,   3.53369,    .41142,    .07546,
     +     .00000,    .26456,    .41685,
     +     .04295,    .02905,   4.58731,    .44463,    .11018,
     +     .00000,    .29915,    .45023,
     +     .04436,    .02973,   5.55310,    .47594,    .14228,
     +     .00000,    .33159,    .48167,
     +     .04570,    .03038,   6.54656,    .50809,    .17585,
     +     .00000,    .36481,    .51394,
     +     .04713,    .03107,   7.66631,    .54450,    .21406,
     +     .00000,    .40231,    .55048 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
     +     .04837,    .03166,   8.66645,    .57803,    .24825,
     +     .00000,    .43677,    .58413,
     +     .04955,    .03224,   9.66634,    .61194,    .28273,
     +     .00000,    .47156,    .61816,
     +     .05049,    .03269,  10.49384,    .63994,    .31152,
     +     .00000,    .50025,    .64624,
     +     .05248,    .03365,  12.26589,    .70263,    .37482,
     +     .00758,    .56435,    .70912,
     +     .05419,    .03448,  13.79702,    .75954,    .43163,
     +     .09390,    .62244,    .76619,
     +     .05610,    .03540,  15.56563,    .82653,    .49840,
     +     .19014,    .69071,    .83336,
     +     .05808,    .03636,  17.45902,    .89952,    .57092,
     +     .27726,    .76499,    .90653,
     +     .05987,    .03722,  19.21159,    .96843,    .63929,
     +     .35615,    .83504,    .97562 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
     +     .06167,    .03809,  21.00875,   1.04053,    .71084,
     +     .43584,    .90825,   1.04788,
     +     .06316,    .03881,  22.50665,   1.10201,    .77170,
     +     .50140,    .97065,   1.10951,
     +     .06495,    .03968,  24.32353,   1.17836,    .84717,
     +     .58132,   1.04806,   1.18602,
     +     .06654,    .04045,  25.94290,   1.24770,    .91594,
     +     .65385,   1.11832,   1.25551,
     +     .06799,    .04115,  27.43443,   1.31272,    .98055,
     +     .72162,   1.18418,   1.32067,
     +     .06982,    .04204,  29.29551,   1.39627,   1.06330,
     +     .80716,   1.26876,   1.40439,
     +     .07154,    .04287,  31.04373,   1.47647,   1.14296,
     +     .88955,   1.34990,   1.48475,
     +     .07315,    .04365,  32.68665,   1.55321,   1.21947,
     +     .96884,   1.42752,   1.56164 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
     +     .07475,    .04442,  34.27938,   1.63011,   1.29580,
     +    1.04704,   1.50526,   1.63869,
     +     .07631,    .04518,  35.83756,   1.70663,   1.37204,
     +    1.12547,   1.58260,   1.71536,
     +     .07779,    .04589,  37.29990,   1.77993,   1.44516,
     +    1.20068,   1.65666,   1.78880,
     +     .07918,    .04656,  38.64263,   1.84906,   1.51402,
     +    1.27118,   1.72648,   1.85805,
     +     .08057,    .04724,  39.99887,   1.91972,   1.58468,
     +    1.34386,   1.79785,   1.92884,
     +     .08194,    .04790,  41.28231,   1.98870,   1.65345,
     +    1.41411,   1.86750,   1.99795,
     +     .08324,    .04852,  42.51507,   2.05554,   1.72037,
     +    1.48288,   1.93497,   2.06490,
     +     .08446,    .04911,  43.63335,   2.11805,   1.78277,
     +    1.54659,   1.99807,   2.12754 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
     +     .08569,    .04971,  44.76816,   2.18209,   1.84691,
     +    1.61234,   2.06269,   2.19168,
     +     .08691,    .05029,  45.85463,   2.24493,   1.90978,
     +    1.67661,   2.12611,   2.25464,
     +     .08807,    .05085,  46.87968,   2.30518,   1.97011,
     +    1.73832,   2.18690,   2.31499,
     +     .08916,    .05138,  47.84660,   2.36275,   2.02788,
     +    1.79751,   2.24498,   2.37267,
     +     .09027,    .05192,  48.78518,   2.42024,   2.08542,
     +    1.85620,   2.30297,   2.43025 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
     +     .04070,    .02791,    .81012,    .31435,    .00000,
     +     .00000,    .17033,    .31960,
     +     .04233,    .02869,   1.45724,    .33280,    .00576,
     +     .00000,    .19006,    .33821,
     +     .04472,    .02984,   2.52946,    .36494,    .04346,
     +     .00000,    .22401,    .37057,
     +     .04646,    .03068,   3.41454,    .39170,    .07217,
     +     .00000,    .25204,    .39750,
     +     .04827,    .03156,   4.40274,    .42286,    .10492,
     +     .00000,    .28449,    .42883,
     +     .04983,    .03232,   5.30215,    .45207,    .13501,
     +     .00000,    .31478,    .45819,
     +     .05131,    .03304,   6.22190,    .48195,    .16633,
     +     .00000,    .34566,    .48821,
     +     .05289,    .03380,   7.25273,    .51565,    .20182,
     +     .00000,    .38041,    .52206 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
     +     .05425,    .03446,   8.16843,    .54657,    .23343,
     +     .00000,    .41220,    .55311,
     +     .05555,    .03509,   9.07968,    .57774,    .26520,
     +     .00000,    .44419,    .58440,
     +     .05659,    .03559,   9.83104,    .60340,    .29165,
     +     .00000,    .47050,    .61016,
     +     .05878,    .03665,  11.43037,    .66065,    .34958,
     +     .00704,    .52908,    .66762,
     +     .06065,    .03756,  12.80159,    .71236,    .40131,
     +     .08606,    .58191,    .71951,
     +     .06275,    .03858,  14.37601,    .77298,    .46185,
     +     .17386,    .64374,    .78033,
     +     .06492,    .03963,  16.05118,    .83873,    .52729,
     +     .25283,    .71071,    .84629,
     +     .06687,    .04058,  17.59269,    .90055,    .58873,
     +     .32399,    .77361,    .90829 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
     +     .06884,    .04154,  19.16495,    .96497,    .65278,
     +     .39556,    .83908,    .97290,
     +     .07047,    .04233,  20.46893,   1.01971,    .70706,
     +     .45421,    .89468,   1.02780,
     +     .07243,    .04328,  22.04251,   1.08745,    .77414,
     +     .52544,    .96343,   1.09572,
     +     .07416,    .04412,  23.43849,   1.14878,    .83506,
     +     .58987,   1.02563,   1.15721,
     +     .07574,    .04489,  24.71906,   1.20610,    .89213,
     +     .64990,   1.08375,   1.21469,
     +     .07773,    .04586,  26.30879,   1.27952,    .96497,
     +     .72538,   1.15814,   1.28829,
     +     .07960,    .04676,  27.79498,   1.34975,   1.03486,
     +     .79785,   1.22926,   1.35870,
     +     .08135,    .04761,  29.18575,   1.41675,   1.10179,
     +     .86740,   1.29709,   1.42587 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
     +     .08308,    .04845,  30.52699,   1.48367,   1.16833,
     +     .93575,   1.36481,   1.49295,
     +     .08478,    .04927,  31.83397,   1.55008,   1.23463,
     +    1.00412,   1.43200,   1.55952,
     +     .08638,    .05005,  33.05558,   1.61352,   1.29804,
     +    1.06951,   1.49616,   1.62311,
     +     .08788,    .05078,  34.17229,   1.67318,   1.35759,
     +    1.13063,   1.55649,   1.68292,
     +     .08939,    .05151,  35.29696,   1.73404,   1.41857,
     +    1.19352,   1.61801,   1.74392,
     +     .09086,    .05222,  36.35587,   1.79328,   1.47774,
     +    1.25413,   1.67789,   1.80329,
     +     .09226,    .05290,  37.37049,   1.85056,   1.53523,
     +    1.31335,   1.73578,   1.86071,
     +     .09358,    .05353,  38.28664,   1.90400,   1.58869,
     +    1.36807,   1.78978,   1.91428 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
     +     .09491,    .05418,  39.21431,   1.95864,   1.64354,
     +    1.42445,   1.84498,   1.96904,
     +     .09622,    .05481,  40.09851,   2.01214,   1.69717,
     +    1.47943,   1.89902,   2.02266,
     +     .09747,    .05541,  40.93009,   2.06333,   1.74856,
     +    1.53212,   1.95073,   2.07397,
     +     .09865,    .05598,  41.71250,   2.11217,   1.79767,
     +    1.58258,   2.00005,   2.12292,
     +     .09984,    .05656,  42.46859,   2.16081,   1.84647,
     +    1.63249,   2.04917,   2.17167 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
     +     .05888,    .03625,    .85433,    .27025,    .00000,
     +     .00000,    .14752,    .27723,
     +     .06111,    .03735,   1.43344,    .28643,    .00519,
     +     .00000,    .16479,    .29364,
     +     .06438,    .03896,   2.35562,    .31377,    .03846,
     +     .00000,    .19368,    .32130,
     +     .06675,    .04012,   3.09227,    .33600,    .06287,
     +     .00000,    .21701,    .34378,
     +     .06921,    .04134,   3.89246,    .36133,    .09005,
     +     .00000,    .24345,    .36936,
     +     .07131,    .04237,   4.60362,    .38466,    .11451,
     +     .00000,    .26770,    .39290,
     +     .07332,    .04336,   5.31667,    .40821,    .13957,
     +     .00000,    .29211,    .41665,
     +     .07544,    .04440,   6.10086,    .43443,    .16753,
     +     .00000,    .31923,    .44309 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
     +     .07726,    .04530,   6.78478,    .45815,    .19207,
     +     .00000,    .34371,    .46699,
     +     .07900,    .04616,   7.45492,    .48180,    .21644,
     +     .00000,    .36808,    .49082,
     +     .08038,    .04684,   8.00072,    .50112,    .23653,
     +     .00000,    .38796,    .51029,
     +     .08330,    .04828,   9.13882,    .54364,    .27994,
     +     .00556,    .43163,    .55310,
     +     .08579,    .04951,  10.08880,    .58145,    .31808,
     +     .06501,    .47041,    .59116,
     +     .08855,    .05087,  11.15766,    .62514,    .36206,
     +     .13028,    .51515,    .63513,
     +     .09141,    .05227,  12.27158,    .67182,    .40888,
     +     .18774,    .56289,    .68209,
     +     .09397,    .05353,  13.27634,    .71509,    .45221,
     +     .23870,    .60709,    .72561 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
     +     .09654,    .05480,  14.28251,    .75959,    .49679,
     +     .28921,    .65252,    .77038,
     +     .09866,    .05584,  15.10268,    .79697,    .53413,
     +     .33006,    .69064,    .80796,
     +     .10120,    .05709,  16.07559,    .84267,    .57974,
     +     .37908,    .73722,    .85391,
     +     .10343,    .05818,  16.92475,    .88358,    .62070,
     +     .42293,    .77890,    .89504,
     +     .10547,    .05918,  17.69253,    .92145,    .65870,
     +     .46337,    .81746,    .93311,
     +     .10803,    .06044,  18.62860,    .96938,    .70664,
     +     .51362,    .86625,    .98130,
     +     .11042,    .06161,  19.48914,   1.01473,    .75214,
     +     .56134,    .91238,   1.02687,
     +     .11265,    .06269,  20.28266,   1.05755,    .79528,
     +     .60671,    .95594,   1.06992 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
     +     .11485,    .06377,  21.03331,   1.09984,    .83769,
     +     .65076,    .99893,   1.11242,
     +     .11700,    .06482,  21.75478,   1.14142,    .87957,
     +     .69446,   1.04120,   1.15421,
     +     .11902,    .06580,  22.41942,   1.18079,    .91927,
     +     .73588,   1.08121,   1.19377,
     +     .12091,    .06672,  23.01684,   1.21744,    .95620,
     +     .77423,   1.11845,   1.23061,
     +     .12280,    .06764,  23.61230,   1.25458,    .99376,
     +     .81343,   1.15618,   1.26793,
     +     .12464,    .06854,  24.16234,   1.29036,   1.02983,
     +     .85083,   1.19252,   1.30388,
     +     .12639,    .06939,  24.68501,   1.32475,   1.06469,
     +     .88718,   1.22745,   1.33844,
     +     .12803,    .07018,  25.14795,   1.35652,   1.09678,
     +     .92043,   1.25972,   1.37037 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
     +     .12969,    .07099,  25.61294,   1.38883,   1.12955,
     +     .95453,   1.29253,   1.40283,
     +     .13130,    .07177,  26.04880,   1.42019,   1.16132,
     +     .98751,   1.32438,   1.43435,
     +     .13284,    .07251,  26.45392,   1.45001,   1.19156,
     +    1.01892,   1.35466,   1.46432,
     +     .13430,    .07322,  26.83133,   1.47829,   1.22031,
     +    1.04883,   1.38338,   1.49273,
     +     .13576,    .07392,  27.18903,   1.50622,   1.24864,
     +    1.07817,   1.41173,   1.52080 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
     +     .08500,    .04872,    .97827,    .23408,    .00000,
     +     .00000,    .12881,    .24349,
     +     .08803,    .05025,   1.48832,    .24818,    .00474,
     +     .00000,    .14385,    .25792,
     +     .09243,    .05249,   2.26106,    .27113,    .03422,
     +     .00000,    .16813,    .28135,
     +     .09561,    .05409,   2.85548,    .28929,    .05486,
     +     .00000,    .18724,    .29986,
     +     .09890,    .05576,   3.48234,    .30948,    .07717,
     +     .00000,    .20839,    .32040,
     +     .10170,    .05717,   4.02447,    .32769,    .09675,
     +     .00000,    .22739,    .33891,
     +     .10436,    .05851,   4.55571,    .34579,    .11643,
     +     .00000,    .24624,    .35729,
     +     .10715,    .05992,   5.12735,    .36564,    .13799,
     +     .00000,    .26687,    .37744 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
     +     .10955,    .06113,   5.61549,    .38331,    .15658,
     +     .00000,    .28520,    .39537,
     +     .11184,    .06228,   6.08527,    .40071,    .17478,
     +     .00000,    .30322,    .41301,
     +     .11364,    .06319,   6.46246,    .41479,    .18962,
     +     .00000,    .31779,    .42727,
     +     .11744,    .06510,   7.22964,    .44529,    .22117,
     +     .00430,    .34930,    .45817,
     +     .12067,    .06671,   7.84892,    .47191,    .24836,
     +     .04792,    .37677,    .48513,
     +     .12423,    .06850,   8.52906,    .50216,    .27918,
     +     .09515,    .40794,    .51575,
     +     .12789,    .07032,   9.22060,    .53391,    .31140,
     +     .13569,    .44064,    .54788,
     +     .13116,    .07196,   9.82952,    .56286,    .34073,
     +     .17099,    .47041,    .57716 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
     +     .13443,    .07358,  10.42578,    .59218,    .37047,
     +     .20540,    .50056,    .60682,
     +     .13710,    .07490,  10.90136,    .61646,    .39502,
     +     .23281,    .52551,    .63137,
     +     .14030,    .07649,  11.45348,    .64574,    .42461,
     +     .26525,    .55557,    .66096,
     +     .14310,    .07787,  11.92562,    .67160,    .45084,
     +     .29389,    .58213,    .68711,
     +     .14564,    .07913,  12.34475,    .69527,    .47490,
     +     .32000,    .60642,    .71103,
     +     .14882,    .08069,  12.84331,    .72479,    .50485,
     +     .35200,    .63671,    .74086,
     +     .15177,    .08214,  13.29172,    .75236,    .53290,
     +     .38202,    .66499,    .76872,
     +     .15452,    .08348,  13.69738,    .77810,    .55921,
     +     .41025,    .69140,    .79473 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
     +     .15721,    .08480,  14.07051,    .80315,    .58472,
     +     .43728,    .71709,    .82004,
     +     .15982,    .08608,  14.42247,    .82751,    .60965,
     +     .46384,    .74208,    .84465,
     +     .16227,    .08727,  14.74013,    .85032,    .63304,
     +     .48875,    .76548,    .86770,
     +     .16455,    .08838,  15.01855,    .87131,    .65454,
     +     .51156,    .78700,    .88891,
     +     .16684,    .08948,  15.29223,    .89239,    .67624,
     +     .53471,    .80863,    .91021,
     +     .16904,    .09055,  15.53716,    .91245,    .69683,
     +     .55652,    .82920,    .93047,
     +     .17113,    .09156,  15.76738,    .93159,    .71659,
     +     .57760,    .84885,    .94981,
     +     .17308,    .09250,  15.96453,    .94906,    .73458,
     +     .59666,    .86677,    .96745 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
     +     .17504,    .09344,  16.16038,    .96670,    .75282,
     +     .61609,    .88487,    .98528,
     +     .17695,    .09436,  16.33860,    .98364,    .77034,
     +     .63469,    .90226,   1.00239,
     +     .17876,    .09522,  16.50102,    .99961,    .78689,
     +     .65229,    .91866,   1.01853,
     +     .18047,    .09604,  16.64990,   1.01465,    .80251,
     +     .66894,    .93411,   1.03373,
     +     .18217,    .09686,  16.78572,   1.02934,    .81774,
     +     .68511,    .94919,   1.04857 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
     +     .10533,    .05891,   1.10223,    .21636,    .00000,
     +     .00000,    .11981,    .22790,
     +     .10892,    .06076,   1.56312,    .22924,    .00449,
     +     .00000,    .13357,    .24119,
     +     .11412,    .06344,   2.24426,    .24971,    .03187,
     +     .00000,    .15528,    .26223,
     +     .11787,    .06536,   2.75570,    .26561,    .05045,
     +     .00000,    .17207,    .27856,
     +     .12173,    .06734,   3.28477,    .28301,    .07013,
     +     .00000,    .19037,    .29639,
     +     .12500,    .06902,   3.73447,    .29849,    .08711,
     +     .00000,    .20659,    .31222,
     +     .12810,    .07060,   4.16847,    .31371,    .10395,
     +     .00000,    .22252,    .32777,
     +     .13136,    .07225,   4.62881,    .33023,    .12218,
     +     .00000,    .23979,    .34465 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
     +     .13414,    .07367,   5.01655,    .34479,    .13771,
     +     .00000,    .25496,    .35950,
     +     .13679,    .07501,   5.38520,    .35899,    .15277,
     +     .00000,    .26976,    .37399,
     +     .13888,    .07606,   5.67833,    .37041,    .16496,
     +     .00000,    .28164,    .38563,
     +     .14325,    .07827,   6.26422,    .39490,    .19059,
     +     .00365,    .30709,    .41058,
     +     .14695,    .08014,   6.72568,    .41600,    .21239,
     +     .03944,    .32900,    .43207,
     +     .15103,    .08218,   7.22413,    .43972,    .23683,
     +     .07785,    .35361,    .45621,
     +     .15519,    .08426,   7.72233,    .46431,    .26207,
     +     .11028,    .37910,    .48123,
     +     .15890,    .08612,   8.15352,    .48647,    .28480,
     +     .13818,    .40206,    .50377 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
     +     .16259,    .08795,   8.56906,    .50870,    .30761,
     +     .16508,    .42508,    .52637,
     +     .16561,    .08944,   8.89536,    .52692,    .32626,
     +     .18629,    .44395,    .54489,
     +     .16919,    .09121,   9.26798,    .54869,    .34854,
     +     .21116,    .46648,    .56701,
     +     .17232,    .09275,   9.58166,    .56774,    .36813,
     +     .23294,    .48620,    .58637,
     +     .17516,    .09415,   9.85616,    .58504,    .38596,
     +     .25265,    .50410,    .60395,
     +     .17869,    .09587,  10.17645,    .60640,    .40794,
     +     .27658,    .52621,    .62565,
     +     .18196,    .09746,  10.45935,    .62616,    .42837,
     +     .29884,    .54667,    .64573,
     +     .18498,    .09893,  10.71122,    .64446,    .44737,
     +     .31963,    .56562,    .66432 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
     +     .18794,    .10036,  10.93740,    .66209,    .46562,
     +     .33936,    .58387,    .68222,
     +     .19080,    .10175,  11.14726,    .67910,    .48334,
     +     .35861,    .60150,    .69950,
     +     .19348,    .10303,  11.33310,    .69491,    .49984,
     +     .37655,    .61788,    .71556,
     +     .19596,    .10422,  11.49211,    .70933,    .51489,
     +     .39285,    .63283,    .73020,
     +     .19843,    .10540,  11.64655,    .72372,    .53000,
     +     .40931,    .64776,    .74482,
     +     .20081,    .10654,  11.78022,    .73728,    .54421,
     +     .42470,    .66183,    .75860,
     +     .20307,    .10761,  11.90469,    .75017,    .55779,
     +     .43950,    .67520,    .77168,
     +     .20516,    .10860,  12.00716,    .76180,    .57004,
     +     .45279,    .68729,    .78350 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
     +     .20726,    .10959,  12.10788,    .77350,    .58242,
     +     .46628,    .69944,    .79539,
     +     .20930,    .11055,  12.19632,    .78464,    .59422,
     +     .47911,    .71103,    .80670,
     +     .21123,    .11146,  12.27507,    .79508,    .60530,
     +     .49119,    .72189,    .81732,
     +     .21305,    .11231,  12.34584,    .80486,    .61572,
     +     .50257,    .73207,    .82726,
     +     .21485,    .11316,  12.40695,    .81432,    .62579,
     +     .51353,    .74193,    .83686 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
     +     .12267,    .06800,   1.21449,    .20537,    .00000,
     +     .00000,    .11430,    .21886,
     +     .12670,    .07009,   1.63724,    .21734,    .00430,
     +     .00000,    .12712,    .23129,
     +     .13253,    .07312,   2.24916,    .23602,    .03016,
     +     .00000,    .14700,    .25063,
     +     .13672,    .07528,   2.70033,    .25034,    .04729,
     +     .00000,    .16218,    .26542,
     +     .14102,    .07749,   3.16042,    .26581,    .06515,
     +     .00000,    .17852,    .28137,
     +     .14466,    .07935,   3.54632,    .27941,    .08035,
     +     .00000,    .19286,    .29537,
     +     .14809,    .08111,   3.91441,    .29269,    .09529,
     +     .00000,    .20682,    .30902,
     +     .15169,    .08295,   4.30052,    .30699,    .11129,
     +     .00000,    .22184,    .32370 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
     +     .15476,    .08451,   4.62230,    .31947,    .12480,
     +     .00000,    .23494,    .33652,
     +     .15768,    .08598,   4.92535,    .33158,    .13780,
     +     .00000,    .24762,    .34893,
     +     .15998,    .08714,   5.16451,    .34126,    .14827,
     +     .00000,    .25776,    .35886,
     +     .16477,    .08956,   5.63561,    .36185,    .17008,
     +     .00322,    .27930,    .37995,
     +     .16881,    .09159,   5.99890,    .37942,    .18846,
     +     .03399,    .29766,    .39794,
     +     .17326,    .09381,   6.38600,    .39899,    .20887,
     +     .06679,    .31811,    .41797,
     +     .17778,    .09606,   6.76756,    .41909,    .22976,
     +     .09414,    .33910,    .43852,
     +     .18180,    .09805,   7.09309,    .43704,    .24841,
     +     .11745,    .35785,    .45688 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
     +     .18577,    .10001,   7.40254,    .45490,    .26698,
     +     .13974,    .37649,    .47513,
     +     .18901,    .10160,   7.64219,    .46942,    .28205,
     +     .15718,    .39166,    .48997,
     +     .19286,    .10348,   7.91191,    .48663,    .29993,
     +     .17749,    .40963,    .50755,
     +     .19620,    .10511,   8.13582,    .50159,    .31554,
     +     .19516,    .42526,    .52283,
     +     .19923,    .10658,   8.32924,    .51508,    .32967,
     +     .21106,    .43935,    .53661,
     +     .20298,    .10839,   8.55067,    .53161,    .34696,
     +     .23022,    .45663,    .55349,
     +     .20644,    .11005,   8.74293,    .54678,    .36291,
     +     .24794,    .47250,    .56898,
     +     .20964,    .11158,   8.91150,    .56074,    .37767,
     +     .26440,    .48710,    .58323 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
     +     .21275,    .11307,   9.05896,    .57406,    .39174,
     +     .27990,    .50106,    .59683,
     +     .21575,    .11449,   9.19349,    .58684,    .40532,
     +     .29495,    .51445,    .60988,
     +     .21855,    .11581,   9.31022,    .59864,    .41789,
     +     .30891,    .52683,    .62193,
     +     .22113,    .11703,   9.40723,    .60931,    .42929,
     +     .32151,    .53803,    .63282,
     +     .22371,    .11824,   9.50019,    .61992,    .44068,
     +     .33419,    .54917,    .64365,
     +     .22618,    .11939,   9.57723,    .62982,    .45131,
     +     .34596,    .55959,    .65376,
     +     .22851,    .12047,   9.64822,    .63919,    .46144,
     +     .35726,    .56946,    .66334,
     +     .23067,    .12147,   9.70347,    .64758,    .47052,
     +     .36733,    .57830,    .67190 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
     +     .23283,    .12247,   9.75706,    .65598,    .47965,
     +     .37753,    .58716,    .68048,
     +     .23492,    .12343,   9.80146,    .66391,    .48831,
     +     .38717,    .59554,    .68859,
     +     .23690,    .12433,   9.83948,    .67131,    .49640,
     +     .39622,    .60337,    .69615,
     +     .23875,    .12518,   9.87251,    .67821,    .50398,
     +     .40471,    .61067,    .70320,
     +     .24059,    .12602,   9.89797,    .68482,    .51125,
     +     .41284,    .61768,    .70995 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
     +     .13812,    .07635,   1.31339,    .19762,    .00000,
     +     .00000,    .11049,    .21298,
     +     .14252,    .07864,   1.70355,    .20883,    .00413,
     +     .00000,    .12254,    .22470,
     +     .14887,    .08194,   2.25872,    .22609,    .02873,
     +     .00000,    .14098,    .24267,
     +     .15342,    .08428,   2.66206,    .23916,    .04471,
     +     .00000,    .15490,    .25625,
     +     .15808,    .08668,   3.06864,    .25313,    .06116,
     +     .00000,    .16974,    .27073,
     +     .16200,    .08869,   3.40590,    .26531,    .07501,
     +     .00000,    .18265,    .28334,
     +     .16571,    .09058,   3.72450,    .27710,    .08850,
     +     .00000,    .19513,    .29554,
     +     .16958,    .09255,   4.05565,    .28973,    .10285,
     +     .00000,    .20848,    .30858 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
     +     .17288,    .09421,   4.32914,    .30068,    .11487,
     +     .00000,    .22005,    .31988,
     +     .17601,    .09579,   4.58469,    .31124,    .12637,
     +     .00000,    .23118,    .33076,
     +     .17847,    .09703,   4.78511,    .31965,    .13558,
     +     .00000,    .24005,    .33943,
     +     .18358,    .09959,   5.17473,    .33741,    .15464,
     +     .00290,    .25875,    .35771,
     +     .18789,    .10173,   5.46935,    .35243,    .17057,
     +     .03005,    .27458,    .37318,
     +     .19260,    .10407,   5.77957,    .36904,    .18813,
     +     .05883,    .29207,    .39026,
     +     .19739,    .10642,   6.08159,    .38597,    .20597,
     +     .08260,    .30989,    .40766,
     +     .20163,    .10850,   6.33590,    .40096,    .22177,
     +     .10270,    .32569,    .42307 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
     +     .20581,    .11054,   6.57460,    .41578,    .23740,
     +     .12179,    .34130,    .43828,
     +     .20921,    .11219,   6.75699,    .42774,    .25002,
     +     .13664,    .35391,    .45057,
     +     .21323,    .11413,   6.95953,    .44183,    .26490,
     +     .15382,    .36877,    .46503,
     +     .21672,    .11581,   7.12540,    .45399,    .27781,
     +     .16869,    .38161,    .47751,
     +     .21987,    .11731,   7.26680,    .46490,    .28944,
     +     .18202,    .39313,    .48871,
     +     .22375,    .11915,   7.42550,    .47817,    .30359,
     +     .19798,    .40716,    .50232,
     +     .22733,    .12084,   7.56082,    .49027,    .31657,
     +     .21266,    .41996,    .51473,
     +     .23063,    .12239,   7.67755,    .50132,    .32852,
     +     .22624,    .43167,    .52608 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
     +     .23383,    .12389,   7.77628,    .51179,    .33983,
     +     .23894,    .44278,    .53682,
     +     .23691,    .12532,   7.86472,    .52179,    .35070,
     +     .25124,    .45340,    .54708,
     +     .23977,    .12664,   7.93972,    .53095,    .36071,
     +     .26258,    .46315,    .55648,
     +     .24240,    .12785,   7.99953,    .53918,    .36974,
     +     .27278,    .47192,    .56492,
     +     .24502,    .12905,   8.05581,    .54732,    .37873,
     +     .28301,    .48060,    .57328,
     +     .24752,    .13018,   8.09950,    .55486,    .38706,
     +     .29245,    .48866,    .58101,
     +     .24989,    .13126,   8.13920,    .56197,    .39499,
     +     .30149,    .49627,    .58831,
     +     .25206,    .13223,   8.16709,    .56827,    .40203,
     +     .30950,    .50304,    .59478 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
     +     .25424,    .13321,   8.19350,    .57457,    .40911,
     +     .31759,    .50980,    .60124,
     +     .25634,    .13415,   8.21287,    .58046,    .41577,
     +     .32521,    .51616,    .60730,
     +     .25832,    .13503,   8.22795,    .58593,    .42198,
     +     .33233,    .52206,    .61291,
     +     .26018,    .13585,   8.23982,    .59101,    .42778,
     +     .33900,    .52754,    .61812,
     +     .26201,    .13665,   8.24543,    .59581,    .43330,
     +     .34535,    .53275,    .62306 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
     +     .16539,    .09158,   1.47476,    .18702,    .00000,
     +     .00000,    .10543,    .20592,
     +     .17039,    .09417,   1.80967,    .19696,    .00384,
     +     .00000,    .11621,    .21642,
     +     .17755,    .09786,   2.27321,    .21192,    .02630,
     +     .00000,    .13238,    .23218,
     +     .18266,    .10046,   2.60229,    .22305,    .04047,
     +     .00000,    .14437,    .24386,
     +     .18787,    .10311,   2.92778,    .23473,    .05476,
     +     .00000,    .15694,    .25610,
     +     .19224,    .10531,   3.19313,    .24478,    .06659,
     +     .00000,    .16773,    .26661,
     +     .19635,    .10738,   3.43985,    .25440,    .07797,
     +     .00000,    .17806,    .27666,
     +     .20063,    .10952,   3.69241,    .26459,    .08992,
     +     .00000,    .18899,    .28728 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
     +     .20425,    .11132,   3.89794,    .27333,    .09980,
     +     .00000,    .19835,    .29638,
     +     .20768,    .11302,   4.08738,    .28167,    .10917,
     +     .00000,    .20729,    .30507,
     +     .21037,    .11434,   4.23438,    .28826,    .11662,
     +     .00000,    .21436,    .31193,
     +     .21594,    .11707,   4.51337,    .30204,    .13186,
     +     .00245,    .22912,    .32625,
     +     .22060,    .11934,   4.71651,    .31353,    .14442,
     +     .02454,    .24143,    .33818,
     +     .22568,    .12179,   4.92585,    .32608,    .15811,
     +     .04779,    .25489,    .35121,
     +     .23081,    .12425,   5.12508,    .33868,    .17185,
     +     .06669,    .26843,    .36428,
     +     .23533,    .12639,   5.28869,    .34971,    .18387,
     +     .08248,    .28028,    .37571 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
     +     .23976,    .12849,   5.43854,    .36046,    .19565,
     +     .09732,    .29186,    .38686,
     +     .24334,    .13016,   5.55003,    .36904,    .20506,
     +     .10874,    .30111,    .39575,
     +     .24756,    .13212,   5.67008,    .37902,    .21604,
     +     .12185,    .31189,    .40609,
     +     .25120,    .13381,   5.76544,    .38755,    .22549,
     +     .13310,    .32112,    .41492,
     +     .25447,    .13531,   5.84434,    .39513,    .23393,
     +     .14310,    .32933,    .42276,
     +     .25848,    .13713,   5.92874,    .40420,    .24408,
     +     .15497,    .33920,    .43215,
     +     .26216,    .13879,   5.99735,    .41238,    .25332,
     +     .16580,    .34810,    .44061,
     +     .26553,    .14030,   6.05391,    .41977,    .26174,
     +     .17574,    .35618,    .44827 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
     +     .26877,    .14174,   6.09755,    .42666,    .26963,
     +     .18495,    .36373,    .45540,
     +     .27188,    .14311,   6.13411,    .43316,    .27715,
     +     .19381,    .37088,    .46212,
     +     .27476,    .14437,   6.16225,    .43906,    .28403,
     +     .20192,    .37738,    .46822,
     +     .27738,    .14551,   6.18100,    .44427,    .29015,
     +     .20915,    .38316,    .47362,
     +     .27999,    .14663,   6.19715,    .44940,    .29622,
     +     .21637,    .38884,    .47892,
     +     .28246,    .14769,   6.20500,    .45404,    .30179,
     +     .22296,    .39404,    .48373,
     +     .28480,    .14868,   6.21128,    .45840,    .30705,
     +     .22926,    .39891,    .48825,
     +     .28692,    .14957,   6.21057,    .46219,    .31167,
     +     .23478,    .40318,    .49217 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
     +     .28904,    .15046,   6.20878,    .46595,    .31630,
     +     .24034,    .40742,    .49606,
     +     .29108,    .15130,   6.20236,    .46940,    .32060,
     +     .24554,    .41134,    .49963,
     +     .29298,    .15209,   6.19397,    .47257,    .32458,
     +     .25036,    .41495,    .50291,
     +     .29477,    .15282,   6.18450,    .47547,    .32828,
     +     .25486,    .41828,    .50592,
     +     .29652,    .15353,   6.17076,    .47817,    .33176,
     +     .25911,    .42139,    .50871 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
     +     .20079,    .11200,   1.64019,    .17677,    .00000,
     +     .00000,    .10072,    .20058,
     +     .20642,    .11485,   1.90809,    .18513,    .00346,
     +     .00000,    .10997,    .20954,
     +     .21444,    .11886,   2.26690,    .19741,    .02323,
     +     .00000,    .12354,    .22265,
     +     .22012,    .12168,   2.51504,    .20635,    .03534,
     +     .00000,    .13340,    .23216,
     +     .22589,    .12451,   2.75524,    .21556,    .04728,
     +     .00000,    .14355,    .24193,
     +     .23069,    .12685,   2.94697,    .22334,    .05699,
     +     .00000,    .15213,    .25017,
     +     .23518,    .12902,   3.12189,    .23070,    .06620,
     +     .00000,    .16025,    .25796,
     +     .23985,    .13126,   3.29768,    .23839,    .07574,
     +     .00000,    .16873,    .26608 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
     +     .24378,    .13313,   3.43808,    .24489,    .08351,
     +     .00000,    .17590,    .27294,
     +     .24747,    .13488,   3.56530,    .25104,    .09081,
     +     .00000,    .18268,    .27941,
     +     .25035,    .13624,   3.66274,    .25586,    .09657,
     +     .00000,    .18800,    .28449,
     +     .25630,    .13902,   3.84113,    .26578,    .10820,
     +     .00199,    .19897,    .29492,
     +     .26124,    .14130,   3.96332,    .27391,    .11764,
     +     .01926,    .20798,    .30345,
     +     .26658,    .14374,   4.08514,    .28264,    .12779,
     +     .03727,    .21769,    .31262,
     +     .27192,    .14616,   4.19714,    .29126,    .13783,
     +     .05168,    .22730,    .32165,
     +     .27659,    .14825,   4.28545,    .29867,    .14650,
     +     .06356,    .23559,    .32941 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
     +     .28115,    .15026,   4.36289,    .30578,    .15489,
     +     .07460,    .24358,    .33686,
     +     .28480,    .15185,   4.41742,    .31137,    .16151,
     +     .08301,    .24988,    .34270,
     +     .28907,    .15370,   4.47257,    .31775,    .16916,
     +     .09256,    .25711,    .34938,
     +     .29272,    .15526,   4.51355,    .32312,    .17566,
     +     .10067,    .26322,    .35499,
     +     .29598,    .15664,   4.54509,    .32782,    .18141,
     +     .10782,    .26859,    .35990,
     +     .29994,    .15830,   4.57389,    .33333,    .18825,
     +     .11622,    .27494,    .36565,
     +     .30354,    .15979,   4.59372,    .33821,    .19439,
     +     .12382,    .28059,    .37074,
     +     .30682,    .16113,   4.60719,    .34255,    .19995,
     +     .13072,    .28565,    .37527 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
     +     .30995,    .16238,   4.61179,    .34649,    .20506,
     +     .13705,    .29028,    .37936,
     +     .31292,    .16356,   4.61240,    .35013,    .20990,
     +     .14309,    .29461,    .38316,
     +     .31565,    .16463,   4.60892,    .35337,    .21427,
     +     .14858,    .29849,    .38654,
     +     .31812,    .16558,   4.60061,    .35616,    .21811,
     +     .15342,    .30187,    .38944,
     +     .32055,    .16651,   4.59068,    .35886,    .22190,
     +     .15822,    .30516,    .39225,
     +     .32283,    .16737,   4.57579,    .36123,    .22530,
     +     .16256,    .30809,    .39470,
     +     .32497,    .16817,   4.56108,    .36342,    .22851,
     +     .16668,    .31082,    .39698,
     +     .32690,    .16887,   4.54302,    .36524,    .23128,
     +     .17026,    .31314,    .39887 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
     +     .32882,    .16957,   4.52433,    .36703,    .23403,
     +     .17384,    .31543,    .40072,
     +     .33064,    .17021,   4.50308,    .36860,    .23655,
     +     .17715,    .31749,    .40235,
     +     .33234,    .17081,   4.48156,    .37000,    .23886,
     +     .18021,    .31935,    .40380,
     +     .33392,    .17136,   4.46035,    .37126,    .24098,
     +     .18304,    .32105,    .40510,
     +     .33544,    .17187,   4.43638,    .37235,    .24294,
     +     .18568,    .32258,    .40623 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
     +     .25160,    .14178,   1.76492,    .16524,    .00000,
     +     .00000,    .09566,    .19638,
     +     .25788,    .14473,   1.94915,    .17146,    .00290,
     +     .00000,    .10290,    .20315,
     +     .26674,    .14886,   2.18475,    .18034,    .01903,
     +     .00000,    .11322,    .21277,
     +     .27294,    .15170,   2.34248,    .18663,    .02862,
     +     .00000,    .12055,    .21957,
     +     .27917,    .15452,   2.49081,    .19296,    .03785,
     +     .00000,    .12793,    .22638,
     +     .28431,    .15681,   2.60583,    .19820,    .04521,
     +     .00000,    .13405,    .23200,
     +     .28909,    .15893,   2.70809,    .20307,    .05208,
     +     .00000,    .13976,    .23722,
     +     .29400,    .16108,   2.80822,    .20807,    .05910,
     +     .00000,    .14565,    .24256 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
     +     .29810,    .16285,   2.88587,    .21223,    .06473,
     +     .00000,    .15054,    .24699,
     +     .30193,    .16448,   2.95436,    .21608,    .06995,
     +     .00000,    .15511,    .25110,
     +     .30491,    .16574,   3.00576,    .21908,    .07403,
     +     .00000,    .15865,    .25429,
     +     .31098,    .16828,   3.09335,    .22512,    .08215,
     +     .00152,    .16585,    .26069,
     +     .31595,    .17031,   3.14509,    .22995,    .08863,
     +     .01395,    .17165,    .26579,
     +     .32127,    .17246,   3.19281,    .23500,    .09548,
     +     .02684,    .17777,    .27112,
     +     .32652,    .17453,   3.23302,    .23985,    .10214,
     +     .03696,    .18370,    .27622,
     +     .33104,    .17628,   3.26093,    .24389,    .10781,
     +     .04518,    .18871,    .28047 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
     +     .33539,    .17793,   3.28167,    .24767,    .11320,
     +     .05273,    .19343,    .28443,
     +     .33884,    .17921,   3.29294,    .25055,    .11740,
     +     .05840,    .19708,    .28743,
     +     .34280,    .18065,   3.29987,    .25373,    .12217,
     +     .06476,    .20118,    .29075,
     +     .34616,    .18184,   3.30132,    .25633,    .12617,
     +     .07011,    .20457,    .29344,
     +     .34913,    .18287,   3.29908,    .25853,    .12967,
     +     .07477,    .20750,    .29573,
     +     .35266,    .18405,   3.28985,    .26100,    .13376,
     +     .08018,    .21086,    .29827,
     +     .35582,    .18509,   3.27706,    .26309,    .13737,
     +     .08501,    .21377,    .30040,
     +     .35866,    .18600,   3.26232,    .26488,    .14059,
     +     .08936,    .21632,    .30223 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
     +     .36130,    .18681,   3.24274,    .26637,    .14350,
     +     .09328,    .21856,    .30374,
     +     .36378,    .18754,   3.22159,    .26770,    .14620,
     +     .09699,    .22060,    .30507,
     +     .36603,    .18819,   3.19948,    .26880,    .14861,
     +     .10033,    .22237,    .30616,
     +     .36801,    .18873,   3.17598,    .26965,    .15068,
     +     .10323,    .22384,    .30700,
     +     .36996,    .18924,   3.15182,    .27044,    .15270,
     +     .10609,    .22524,    .30777,
     +     .37172,    .18969,   3.12540,    .27103,    .15447,
     +     .10863,    .22641,    .30831,
     +     .37337,    .19009,   3.10033,    .27155,    .15612,
     +     .11104,    .22749,    .30879,
     +     .37481,    .19041,   3.07441,    .27186,    .15751,
     +     .11308,    .22832,    .30906 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
     +     .37623,    .19072,   3.04831,    .27215,    .15887,
     +     .11512,    .22913,    .30930,
     +     .37754,    .19098,   3.02120,    .27232,    .16008,
     +     .11698,    .22979,    .30941,
     +     .37874,    .19121,   2.99490,    .27241,    .16117,
     +     .11868,    .23036,    .30943,
     +     .37984,    .19141,   2.96974,    .27245,    .16215,
     +     .12024,    .23085,    .30941,
     +     .38086,    .19156,   2.94304,    .27237,    .16303,
     +     .12167,    .23122,    .30927 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
     +     .29652,    .16766,   1.76359,    .15602,    .00000,
     +     .00000,    .09174,    .19344,
     +     .30308,    .17048,   1.88891,    .16054,    .00243,
     +     .00000,    .09737,    .19840,
     +     .31223,    .17434,   2.04221,    .16684,    .01570,
     +     .00000,    .10526,    .20525,
     +     .31859,    .17697,   2.14236,    .17122,    .02347,
     +     .00000,    .11077,    .20999,
     +     .32490,    .17952,   2.23414,    .17554,    .03083,
     +     .00000,    .11624,    .21465,
     +     .33005,    .18158,   2.30340,    .17906,    .03663,
     +     .00000,    .12072,    .21841,
     +     .33481,    .18344,   2.36351,    .18228,    .04199,
     +     .00000,    .12485,    .22184,
     +     .33966,    .18530,   2.42089,    .18554,    .04742,
     +     .00000,    .12905,    .22530 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
     +     .34368,    .18680,   2.46394,    .18819,    .05173,
     +     .00000,    .13251,    .22812,
     +     .34740,    .18818,   2.50071,    .19062,    .05570,
     +     .00000,    .13571,    .23068,
     +     .35026,    .18924,   2.52768,    .19249,    .05878,
     +     .00000,    .13817,    .23264,
     +     .35605,    .19130,   2.56855,    .19619,    .06485,
     +     .00121,    .14310,    .23649,
     +     .36074,    .19291,   2.58574,    .19904,    .06963,
     +     .01071,    .14699,    .23945,
     +     .36566,    .19455,   2.59818,    .20195,    .07463,
     +     .02052,    .15103,    .24245,
     +     .37045,    .19609,   2.60525,    .20465,    .07943,
     +     .02813,    .15487,    .24519,
     +     .37452,    .19735,   2.60618,    .20680,    .08347,
     +     .03426,    .15804,    .24737 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
     +     .37837,    .19849,   2.60237,    .20874,    .08727,
     +     .03982,    .16097,    .24930,
     +     .38136,    .19934,   2.59546,    .21015,    .09019,
     +     .04397,    .16318,    .25068,
     +     .38476,    .20024,   2.58283,    .21162,    .09347,
     +     .04858,    .16560,    .25210,
     +     .38758,    .20095,   2.56881,    .21275,    .09620,
     +     .05242,    .16756,    .25317,
     +     .39003,    .20153,   2.55384,    .21366,    .09856,
     +     .05575,    .16921,    .25402,
     +     .39288,    .20216,   2.53084,    .21456,    .10127,
     +     .05957,    .17103,    .25481,
     +     .39537,    .20266,   2.50688,    .21525,    .10363,
     +     .06295,    .17255,    .25536,
     +     .39757,    .20306,   2.48299,    .21577,    .10571,
     +     .06598,    .17384,    .25576 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
     +     .39955,    .20335,   2.45605,    .21606,    .10756,
     +     .06867,    .17489,    .25591,
     +     .40137,    .20359,   2.42876,    .21625,    .10925,
     +     .07120,    .17580,    .25596,
     +     .40298,    .20376,   2.40191,    .21633,    .11073,
     +     .07345,    .17656,    .25590,
     +     .40434,    .20385,   2.37514,    .21627,    .11198,
     +     .07539,    .17712,    .25569,
     +     .40564,    .20393,   2.34819,    .21617,    .11319,
     +     .07729,    .17763,    .25544,
     +     .40678,    .20392,   2.32004,    .21593,    .11421,
     +     .07895,    .17798,    .25503,
     +     .40782,    .20390,   2.29357,    .21568,    .11516,
     +     .08052,    .17829,    .25463,
     +     .40868,    .20382,   2.26731,    .21531,    .11593,
     +     .08183,    .17845,    .25411 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
     +     .40951,    .20373,   2.24110,    .21493,    .11667,
     +     .08313,    .17857,    .25356,
     +     .41022,    .20359,   2.21453,    .21447,    .11731,
     +     .08430,    .17861,    .25294,
     +     .41085,    .20344,   2.18908,    .21399,    .11787,
     +     .08536,    .17861,    .25231,
     +     .41141,    .20328,   2.16498,    .21351,    .11837,
     +     .08632,    .17857,    .25168,
     +     .41187,    .20307,   2.13995,    .21295,    .11878,
     +     .08719,    .17844,    .25094 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
     +     .37568,    .21057,   1.56740,    .13935,    .00000,
     +     .00000,    .08450,    .18629,
     +     .38206,    .21265,   1.62461,    .14142,    .00176,
     +     .00000,    .08783,    .18845,
     +     .39071,    .21538,   1.68832,    .14424,    .01107,
     +     .00000,    .09240,    .19126,
     +     .39658,    .21714,   1.72845,    .14612,    .01645,
     +     .00000,    .09552,    .19312,
     +     .40228,    .21876,   1.76341,    .14790,    .02147,
     +     .00000,    .09856,    .19482,
     +     .40684,    .21997,   1.78820,    .14928,    .02538,
     +     .00000,    .10100,    .19612,
     +     .41096,    .22102,   1.80849,    .15050,    .02896,
     +     .00000,    .10320,    .19723,
     +     .41507,    .22202,   1.82652,    .15169,    .03255,
     +     .00000,    .10540,    .19829 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
     +     .41838,    .22276,   1.83849,    .15262,    .03536,
     +     .00000,    .10718,    .19907,
     +     .42138,    .22339,   1.84748,    .15342,    .03792,
     +     .00000,    .10879,    .19972,
     +     .42367,    .22385,   1.85344,    .15402,    .03990,
     +     .00000,    .11002,    .20019,
     +     .42815,    .22463,   1.85590,    .15509,    .04374,
     +     .00084,    .11239,    .20100,
     +     .43161,    .22513,   1.84686,    .15581,    .04672,
     +     .00700,    .11419,    .20144,
     +     .43511,    .22553,   1.83355,    .15645,    .04979,
     +     .01334,    .11598,    .20174,
     +     .43834,    .22576,   1.81726,    .15690,    .05269,
     +     .01818,    .11760,    .20182,
     +     .44094,    .22584,   1.80000,    .15713,    .05508,
     +     .02202,    .11885,    .20169 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
     +     .44326,    .22578,   1.78045,    .15722,    .05729,
     +     .02547,    .11995,    .20141,
     +     .44497,    .22564,   1.76248,    .15717,    .05896,
     +     .02800,    .12071,    .20105,
     +     .44675,    .22534,   1.73872,    .15697,    .06080,
     +     .03078,    .12145,    .20046,
     +     .44811,    .22501,   1.71651,    .15670,    .06229,
     +     .03307,    .12199,    .19983,
     +     .44921,    .22464,   1.69531,    .15638,    .06356,
     +     .03504,    .12240,    .19917,
     +     .45031,    .22406,   1.66660,    .15583,    .06498,
     +     .03725,    .12275,    .19817,
     +     .45114,    .22343,   1.63874,    .15523,    .06619,
     +     .03918,    .12295,    .19714,
     +     .45178,    .22279,   1.61223,    .15459,    .06723,
     +     .04088,    .12306,    .19611 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
     +     .45216,    .22205,   1.58441,    .15385,    .06811,
     +     .04237,    .12303,    .19495,
     +     .45241,    .22129,   1.55707,    .15307,    .06890,
     +     .04375,    .12294,    .19377,
     +     .45253,    .22052,   1.53097,    .15228,    .06956,
     +     .04496,    .12278,    .19259,
     +     .45248,    .21973,   1.50582,    .15146,    .07010,
     +     .04598,    .12255,    .19141,
     +     .45238,    .21893,   1.48084,    .15062,    .07060,
     +     .04697,    .12228,    .19020,
     +     .45210,    .21807,   1.45567,    .14972,    .07098,
     +     .04781,    .12193,    .18893,
     +     .45181,    .21726,   1.43220,    .14886,    .07133,
     +     .04859,    .12159,    .18772,
     +     .45139,    .21643,   1.40951,    .14799,    .07158,
     +     .04923,    .12119,    .18651 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
     +     .45095,    .21559,   1.38702,    .14710,    .07181,
     +     .04985,    .12077,    .18530,
     +     .45041,    .21473,   1.36465,    .14618,    .07199,
     +     .05040,    .12031,    .18406,
     +     .44984,    .21388,   1.34347,    .14529,    .07212,
     +     .05088,    .11984,    .18285,
     +     .44926,    .21307,   1.32358,    .14443,    .07223,
     +     .05131,    .11938,    .18170,
     +     .44857,    .21221,   1.30327,    .14353,    .07228,
     +     .05168,    .11887,    .18049 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
     +     .44473,    .24386,   1.28592,    .12337,    .00000,
     +     .00000,    .07717,    .17615,
     +     .45013,    .24487,   1.31605,    .12399,    .00134,
     +     .00000,    .07906,    .17642,
     +     .45725,    .24598,   1.34699,    .12475,    .00830,
     +     .00000,    .08163,    .17661,
     +     .46193,    .24655,   1.36616,    .12520,    .01230,
     +     .00000,    .08336,    .17664,
     +     .46626,    .24695,   1.38210,    .12558,    .01602,
     +     .00000,    .08501,    .17652,
     +     .46962,    .24712,   1.39253,    .12582,    .01889,
     +     .00000,    .08630,    .17633,
     +     .47255,    .24716,   1.40032,    .12599,    .02151,
     +     .00000,    .08745,    .17607,
     +     .47537,    .24709,   1.40633,    .12611,    .02411,
     +     .00000,    .08857,    .17572 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
     +     .47754,    .24691,   1.40915,    .12615,    .02613,
     +     .00000,    .08945,    .17535,
     +     .47941,    .24667,   1.41011,    .12613,    .02796,
     +     .00000,    .09022,    .17493,
     +     .48079,    .24645,   1.41009,    .12610,    .02937,
     +     .00000,    .09080,    .17457,
     +     .48329,    .24579,   1.40273,    .12592,    .03207,
     +     .00064,    .09186,    .17367,
     +     .48503,    .24506,   1.38832,    .12561,    .03415,
     +     .00501,    .09260,    .17277,
     +     .48658,    .24410,   1.37016,    .12518,    .03625,
     +     .00951,    .09328,    .17164,
     +     .48775,    .24296,   1.34982,    .12460,    .03820,
     +     .01290,    .09381,    .17032,
     +     .48847,    .24179,   1.32981,    .12397,    .03979,
     +     .01556,    .09414,    .16902 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
     +     .48890,    .24052,   1.30830,    .12325,    .04124,
     +     .01792,    .09436,    .16763,
     +     .48901,    .23938,   1.28936,    .12258,    .04231,
     +     .01964,    .09443,    .16641,
     +     .48885,    .23793,   1.26519,    .12169,    .04346,
     +     .02150,    .09442,    .16483,
     +     .48851,    .23658,   1.24316,    .12085,    .04438,
     +     .02302,    .09433,    .16338,
     +     .48805,    .23529,   1.22254,    .12004,    .04515,
     +     .02430,    .09418,    .16203,
     +     .48718,    .23355,   1.19528,    .11893,    .04598,
     +     .02573,    .09388,    .16022,
     +     .48618,    .23187,   1.16932,    .11784,    .04667,
     +     .02696,    .09352,    .15849,
     +     .48510,    .23026,   1.14498,    .11678,    .04724,
     +     .02803,    .09313,    .15684 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
     +     .48377,    .22859,   1.11989,    .11567,    .04769,
     +     .02895,    .09266,    .15512,
     +     .48237,    .22692,   1.09550,    .11455,    .04808,
     +     .02978,    .09215,    .15342,
     +     .48093,    .22532,   1.07248,    .11347,    .04839,
     +     .03050,    .09163,    .15180,
     +     .47943,    .22376,   1.05056,    .11242,    .04862,
     +     .03110,    .09109,    .15023,
     +     .47788,    .22220,   1.02895,    .11136,    .04882,
     +     .03167,    .09053,    .14866,
     +     .47618,    .22062,   1.00742,    .11027,    .04894,
     +     .03214,    .08992,    .14707,
     +     .47457,    .21912,    .98745,    .10925,    .04905,
     +     .03257,    .08935,    .14559,
     +     .47289,    .21766,    .96836,    .10825,    .04909,
     +     .03291,    .08875,    .14414 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
     +     .47119,    .21620,    .94953,    .10725,    .04912,
     +     .03324,    .08815,    .14269,
     +     .46942,    .21473,    .93097,    .10624,    .04911,
     +     .03351,    .08753,    .14124,
     +     .46769,    .21331,    .91351,    .10527,    .04908,
     +     .03374,    .08692,    .13987,
     +     .46603,    .21198,    .89719,    .10435,    .04904,
     +     .03395,    .08634,    .13856,
     +     .46425,    .21060,    .88066,    .10339,    .04896,
     +     .03411,    .08572,    .13723 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
     +     .50528,    .26906,   1.02241,    .10802,    .00000,
     +     .00000,    .06967,    .16353,
     +     .50914,    .26884,   1.04632,    .10781,    .00109,
     +     .00000,    .07070,    .16257,
     +     .51395,    .26814,   1.07099,    .10743,    .00665,
     +     .00000,    .07206,    .16108,
     +     .51690,    .26743,   1.08614,    .10712,    .00983,
     +     .00000,    .07296,    .15996,
     +     .51941,    .26650,   1.09843,    .10675,    .01277,
     +     .00000,    .07378,    .15873,
     +     .52117,    .26553,   1.10608,    .10637,    .01502,
     +     .00000,    .07441,    .15763,
     +     .52255,    .26452,   1.11137,    .10598,    .01705,
     +     .00000,    .07494,    .15653,
     +     .52373,    .26336,   1.11493,    .10554,    .01907,
     +     .00000,    .07545,    .15534 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
     +     .52446,    .26225,   1.11583,    .10513,    .02062,
     +     .00000,    .07581,    .15428,
     +     .52494,    .26112,   1.11508,    .10469,    .02201,
     +     .00000,    .07610,    .15323,
     +     .52523,    .26019,   1.11379,    .10433,    .02307,
     +     .00000,    .07630,    .15240,
     +     .52538,    .25810,   1.10482,    .10350,    .02510,
     +     .00050,    .07663,    .15052,
     +     .52511,    .25617,   1.09037,    .10272,    .02662,
     +     .00381,    .07678,    .14884,
     +     .52442,    .25390,   1.07233,    .10176,    .02815,
     +     .00720,    .07683,    .14693,
     +     .52329,    .25143,   1.05222,    .10069,    .02955,
     +     .00972,    .07676,    .14487,
     +     .52194,    .24912,   1.03264,    .09967,    .03066,
     +     .01167,    .07660,    .14293 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
     +     .52027,    .24674,   1.01181,    .09861,    .03165,
     +     .01339,    .07635,    .14094,
     +     .51868,    .24471,    .99365,    .09766,    .03236,
     +     .01462,    .07607,    .13927,
     +     .51651,    .24215,    .97069,    .09646,    .03312,
     +     .01594,    .07566,    .13721,
     +     .51442,    .23987,    .94997,    .09538,    .03370,
     +     .01700,    .07523,    .13539,
     +     .51235,    .23776,    .93074,    .09438,    .03418,
     +     .01789,    .07480,    .13370,
     +     .50946,    .23504,    .90559,    .09306,    .03466,
     +     .01887,    .07419,    .13152,
     +     .50660,    .23245,    .88185,    .09180,    .03505,
     +     .01970,    .07356,    .12946,
     +     .50382,    .23001,    .85976,    .09061,    .03535,
     +     .02041,    .07294,    .12754 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
     +     .50081,    .22754,    .83725,    .08938,    .03556,
     +     .02100,    .07226,    .12560,
     +     .49779,    .22512,    .81552,    .08817,    .03573,
     +     .02153,    .07157,    .12371,
     +     .49485,    .22283,    .79515,    .08703,    .03586,
     +     .02198,    .07090,    .12193,
     +     .49196,    .22063,    .77593,    .08592,    .03591,
     +     .02234,    .07023,    .12024,
     +     .48906,    .21845,    .75707,    .08482,    .03595,
     +     .02268,    .06956,    .11856,
     +     .48603,    .21628,    .73845,    .08373,    .03593,
     +     .02295,    .06886,    .11688,
     +     .48316,    .21424,    .72127,    .08271,    .03591,
     +     .02319,    .06820,    .11531,
     +     .48033,    .21228,    .70496,    .08172,    .03585,
     +     .02337,    .06754,    .11381 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
     +     .47748,    .21033,    .68895,    .08073,    .03578,
     +     .02354,    .06689,    .11232,
     +     .47460,    .20838,    .67327,    .07974,    .03568,
     +     .02367,    .06623,    .11086,
     +     .47184,    .20653,    .65859,    .07880,    .03557,
     +     .02378,    .06559,    .10947,
     +     .46920,    .20478,    .64493,    .07792,    .03546,
     +     .02387,    .06498,    .10817,
     +     .46644,    .20300,    .63119,    .07702,    .03532,
     +     .02392,    .06434,    .10683 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
     +     .56968,    .29085,    .77506,    .09007,    .00000,
     +     .00000,    .06033,    .14556,
     +     .57112,    .28899,    .80237,    .08938,    .00091,
     +     .00000,    .06078,    .14374,
     +     .57228,    .28600,    .83157,    .08836,    .00544,
     +     .00000,    .06129,    .14106,
     +     .57259,    .28366,    .84886,    .08760,    .00800,
     +     .00000,    .06161,    .13914,
     +     .57237,    .28105,    .86237,    .08679,    .01033,
     +     .00000,    .06187,    .13715,
     +     .57174,    .27873,    .87040,    .08607,    .01209,
     +     .00000,    .06203,    .13541,
     +     .57087,    .27644,    .87570,    .08538,    .01367,
     +     .00000,    .06213,    .13374,
     +     .56970,    .27398,    .87894,    .08464,    .01520,
     +     .00000,    .06218,    .13198 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
     +     .56842,    .27175,    .87928,    .08395,    .01637,
     +     .00000,    .06217,    .13045,
     +     .56698,    .26957,    .87786,    .08327,    .01740,
     +     .00000,    .06213,    .12898,
     +     .56576,    .26784,    .87599,    .08274,    .01819,
     +     .00000,    .06209,    .12782,
     +     .56273,    .26410,    .86627,    .08158,    .01965,
     +     .00039,    .06189,    .12533,
     +     .55977,    .26080,    .85195,    .08051,    .02073,
     +     .00284,    .06162,    .12318,
     +     .55614,    .25706,    .83407,    .07929,    .02178,
     +     .00535,    .06125,    .12076,
     +     .55202,    .25314,    .81409,    .07799,    .02272,
     +     .00717,    .06078,    .11824,
     +     .54802,    .24956,    .79476,    .07678,    .02343,
     +     .00857,    .06028,    .11596 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
     +     .54377,    .24594,    .77439,    .07554,    .02405,
     +     .00977,    .05972,    .11367,
     +     .54005,    .24295,    .75680,    .07449,    .02448,
     +     .01063,    .05922,    .11177,
     +     .53535,    .23928,    .73484,    .07321,    .02491,
     +     .01153,    .05855,    .10947,
     +     .53109,    .23605,    .71524,    .07206,    .02523,
     +     .01224,    .05792,    .10746,
     +     .52710,    .23310,    .69722,    .07099,    .02547,
     +     .01283,    .05734,    .10564,
     +     .52184,    .22934,    .67395,    .06963,    .02568,
     +     .01345,    .05654,    .10333,
     +     .51679,    .22584,    .65225,    .06835,    .02583,
     +     .01397,    .05576,    .10118,
     +     .51201,    .22260,    .63226,    .06716,    .02593,
     +     .01440,    .05503,    .09919 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
     +     .50706,    .21935,    .61215,    .06596,    .02596,
     +     .01476,    .05425,    .09720,
     +     .50219,    .21620,    .59292,    .06480,    .02596,
     +     .01506,    .05349,    .09529,
     +     .49755,    .21324,    .57507,    .06370,    .02594,
     +     .01531,    .05275,    .09351,
     +     .49309,    .21046,    .55840,    .06266,    .02588,
     +     .01550,    .05205,    .09184,
     +     .48863,    .20770,    .54214,    .06164,    .02580,
     +     .01568,    .05134,    .09019,
     +     .48414,    .20498,    .52626,    .06062,    .02569,
     +     .01580,    .05063,    .08857,
     +     .47992,    .20245,    .51167,    .05967,    .02558,
     +     .01591,    .04997,    .08707,
     +     .47584,    .20003,    .49799,    .05876,    .02545,
     +     .01598,    .04932,    .08565 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
     +     .47176,    .19763,    .48464,    .05787,    .02531,
     +     .01605,    .04867,    .08425,
     +     .46769,    .19526,    .47165,    .05698,    .02516,
     +     .01608,    .04803,    .08287,
     +     .46380,    .19303,    .45956,    .05614,    .02500,
     +     .01611,    .04742,    .08157,
     +     .46013,    .19094,    .44838,    .05535,    .02485,
     +     .01612,    .04685,    .08036,
     +     .45635,    .18881,    .43724,    .05456,    .02468,
     +     .01611,    .04625,    .07914 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
     +     .62178,    .30339,    .62837,    .07391,    .00000,
     +     .00000,    .05136,    .12662,
     +     .62038,    .29996,    .65964,    .07308,    .00079,
     +     .00000,    .05151,    .12442,
     +     .61744,    .29475,    .69237,    .07186,    .00468,
     +     .00000,    .05163,    .12122,
     +     .61480,    .29088,    .71055,    .07099,    .00683,
     +     .00000,    .05168,    .11893,
     +     .61154,    .28675,    .72362,    .07004,    .00875,
     +     .00000,    .05163,    .11660,
     +     .60838,    .28315,    .73054,    .06921,    .01017,
     +     .00000,    .05154,    .11460,
     +     .60512,    .27970,    .73440,    .06841,    .01142,
     +     .00000,    .05141,    .11270,
     +     .60147,    .27604,    .73579,    .06755,    .01263,
     +     .00000,    .05124,    .11071 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
     +     .59806,    .27285,    .73430,    .06679,    .01352,
     +     .00000,    .05105,    .10899,
     +     .59462,    .26976,    .73107,    .06606,    .01431,
     +     .00000,    .05083,    .10735,
     +     .59184,    .26733,    .72775,    .06549,    .01489,
     +     .00000,    .05063,    .10607,
     +     .58563,    .26213,    .71538,    .06421,    .01596,
     +     .00032,    .05017,    .10337,
     +     .57996,    .25768,    .69950,    .06309,    .01672,
     +     .00219,    .04969,    .10105,
     +     .57341,    .25272,    .68010,    .06182,    .01744,
     +     .00409,    .04910,    .09849,
     +     .56637,    .24760,    .65879,    .06049,    .01805,
     +     .00546,    .04843,    .09587,
     +     .55982,    .24300,    .63863,    .05926,    .01850,
     +     .00648,    .04778,    .09351 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
     +     .55308,    .23843,    .61778,    .05803,    .01886,
     +     .00735,    .04708,    .09118,
     +     .54738,    .23465,    .60008,    .05700,    .01910,
     +     .00795,    .04647,    .08927,
     +     .54035,    .23012,    .57838,    .05575,    .01931,
     +     .00857,    .04571,    .08697,
     +     .53410,    .22616,    .55930,    .05465,    .01945,
     +     .00906,    .04502,    .08499,
     +     .52837,    .22257,    .54196,    .05363,    .01954,
     +     .00945,    .04437,    .08322,
     +     .52094,    .21806,    .51995,    .05236,    .01958,
     +     .00986,    .04353,    .08097,
     +     .51394,    .21389,    .49971,    .05117,    .01958,
     +     .01018,    .04272,    .07890,
     +     .50742,    .21007,    .48128,    .05008,    .01956,
     +     .01045,    .04196,    .07702 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
     +     .50078,    .20627,    .46302,    .04899,    .01948,
     +     .01066,    .04118,    .07516,
     +     .49433,    .20261,    .44575,    .04793,    .01939,
     +     .01083,    .04043,    .07337,
     +     .48826,    .19919,    .42989,    .04694,    .01928,
     +     .01096,    .03972,    .07172,
     +     .48247,    .19600,    .41525,    .04602,    .01916,
     +     .01105,    .03905,    .07018,
     +     .47673,    .19287,    .40107,    .04511,    .01903,
     +     .01113,    .03838,    .06867,
     +     .47102,    .18980,    .38738,    .04422,    .01887,
     +     .01118,    .03771,    .06720,
     +     .46569,    .18694,    .37488,    .04339,    .01872,
     +     .01122,    .03709,    .06584,
     +     .46059,    .18424,    .36327,    .04260,    .01856,
     +     .01123,    .03649,    .06457 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
     +     .45552,    .18156,    .35199,    .04183,    .01840,
     +     .01124,    .03590,    .06332,
     +     .45049,    .17895,    .34112,    .04107,    .01822,
     +     .01123,    .03531,    .06209,
     +     .44571,    .17649,    .33107,    .04036,    .01805,
     +     .01121,    .03476,    .06095,
     +     .44122,    .17419,    .32184,    .03969,    .01789,
     +     .01119,    .03424,    .05988,
     +     .43666,    .17187,    .31269,    .03901,    .01771,
     +     .01115,    .03372,    .05881 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
     +     .66183,    .30812,    .56250,    .05971,    .00000,
     +     .00000,    .04302,    .10791,
     +     .65737,    .30328,    .59310,    .05893,    .00071,
     +     .00000,    .04303,    .10563,
     +     .65004,    .29611,    .62267,    .05777,    .00410,
     +     .00000,    .04296,    .10229,
     +     .64431,    .29092,    .63743,    .05692,    .00593,
     +     .00000,    .04284,    .09993,
     +     .63795,    .28546,    .64617,    .05599,    .00752,
     +     .00000,    .04262,    .09750,
     +     .63218,    .28079,    .64907,    .05519,    .00868,
     +     .00000,    .04240,    .09543,
     +     .62652,    .27635,    .64901,    .05441,    .00969,
     +     .00000,    .04216,    .09348,
     +     .62039,    .27169,    .64630,    .05357,    .01063,
     +     .00000,    .04186,    .09146 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
     +     .61490,    .26768,    .64138,    .05283,    .01132,
     +     .00000,    .04157,    .08975,
     +     .60950,    .26385,    .63499,    .05211,    .01191,
     +     .00000,    .04125,    .08810,
     +     .60521,    .26085,    .62926,    .05155,    .01235,
     +     .00000,    .04099,    .08681,
     +     .59591,    .25449,    .61251,    .05032,    .01312,
     +     .00026,    .04038,    .08413,
     +     .58767,    .24914,    .59383,    .04926,    .01364,
     +     .00170,    .03982,    .08183,
     +     .57839,    .24322,    .57185,    .04806,    .01412,
     +     .00317,    .03914,    .07932,
     +     .56868,    .23716,    .54847,    .04679,    .01451,
     +     .00420,    .03839,    .07680,
     +     .55981,    .23179,    .52697,    .04565,    .01477,
     +     .00495,    .03767,    .07456 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
     +     .55082,    .22650,    .50528,    .04451,    .01495,
     +     .00559,    .03694,    .07234,
     +     .54334,    .22218,    .48728,    .04357,    .01506,
     +     .00602,    .03631,    .07054,
     +     .53428,    .21702,    .46565,    .04242,    .01513,
     +     .00645,    .03553,    .06841,
     +     .52630,    .21255,    .44696,    .04143,    .01515,
     +     .00679,    .03484,    .06657,
     +     .51903,    .20854,    .43023,    .04053,    .01515,
     +     .00705,    .03421,    .06492,
     +     .50976,    .20352,    .40936,    .03939,    .01509,
     +     .00731,    .03339,    .06287,
     +     .50113,    .19892,    .39048,    .03834,    .01501,
     +     .00752,    .03262,    .06100,
     +     .49315,    .19471,    .37350,    .03738,    .01491,
     +     .00768,    .03192,    .05930 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
     +     .48515,    .19055,    .35695,    .03641,    .01478,
     +     .00779,    .03119,    .05764,
     +     .47742,    .18658,    .34146,    .03550,    .01465,
     +     .00788,    .03050,    .05605,
     +     .47016,    .18290,    .32735,    .03466,    .01450,
     +     .00795,    .02985,    .05458,
     +     .46333,    .17948,    .31449,    .03387,    .01435,
     +     .00799,    .02924,    .05323,
     +     .45660,    .17612,    .30213,    .03309,    .01419,
     +     .00801,    .02864,    .05192,
     +     .44994,    .17286,    .29035,    .03234,    .01402,
     +     .00802,    .02805,    .05064,
     +     .44373,    .16984,    .27965,    .03164,    .01385,
     +     .00802,    .02750,    .04946,
     +     .43785,    .16699,    .26983,    .03098,    .01369,
     +     .00800,    .02697,    .04837 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
     +     .43204,    .16418,    .26033,    .03033,    .01352,
     +     .00798,    .02645,    .04730,
     +     .42630,    .16145,    .25125,    .02971,    .01335,
     +     .00795,    .02595,    .04626,
     +     .42088,    .15888,    .24292,    .02913,    .01319,
     +     .00792,    .02548,    .04527,
     +     .41579,    .15649,    .23529,    .02858,    .01303,
     +     .00788,    .02504,    .04436,
     +     .41066,    .15408,    .22781,    .02802,    .01286,
     +     .00783,    .02459,    .04347 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
     +     .69011,    .30639,    .54930,    .04754,    .00000,
     +     .00000,    .03544,    .09024,
     +     .68256,    .30030,    .57361,    .04687,    .00063,
     +     .00000,    .03540,    .08804,
     +     .67085,    .29146,    .59314,    .04585,    .00357,
     +     .00000,    .03525,    .08483,
     +     .66211,    .28513,    .60038,    .04509,    .00513,
     +     .00000,    .03505,    .08256,
     +     .65271,    .27855,    .60145,    .04424,    .00644,
     +     .00000,    .03479,    .08023,
     +     .64444,    .27299,    .59811,    .04350,    .00738,
     +     .00000,    .03450,    .07824,
     +     .63648,    .26775,    .59244,    .04279,    .00818,
     +     .00000,    .03420,    .07639,
     +     .62801,    .26229,    .58418,    .04202,    .00891,
     +     .00000,    .03385,    .07447 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
     +     .62056,    .25763,    .57487,    .04133,    .00944,
     +     .00000,    .03351,    .07284,
     +     .61335,    .25321,    .56464,    .04068,    .00988,
     +     .00000,    .03317,    .07127,
     +     .60766,    .24977,    .55611,    .04016,    .01019,
     +     .00000,    .03289,    .07005,
     +     .59544,    .24259,    .53445,    .03906,    .01074,
     +     .00021,    .03223,    .06753,
     +     .58493,    .23652,    .51265,    .03808,    .01108,
     +     .00133,    .03164,    .06541,
     +     .57323,    .22989,    .48799,    .03699,    .01139,
     +     .00245,    .03094,    .06311,
     +     .56111,    .22320,    .46265,    .03586,    .01161,
     +     .00323,    .03019,    .06079,
     +     .55020,    .21730,    .44003,    .03485,    .01173,
     +     .00379,    .02950,    .05874 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
     +     .53931,    .21151,    .41777,    .03383,    .01180,
     +     .00425,    .02879,    .05673,
     +     .53035,    .20681,    .39971,    .03299,    .01182,
     +     .00455,    .02820,    .05511,
     +     .51956,    .20124,    .37842,    .03199,    .01181,
     +     .00486,    .02746,    .05322,
     +     .51013,    .19646,    .36035,    .03113,    .01176,
     +     .00508,    .02681,    .05159,
     +     .50160,    .19219,    .34444,    .03036,    .01170,
     +     .00526,    .02622,    .05014,
     +     .49085,    .18689,    .32492,    .02939,    .01159,
     +     .00542,    .02548,    .04833,
     +     .48092,    .18203,    .30751,    .02849,    .01146,
     +     .00555,    .02479,    .04670,
     +     .47180,    .17762,    .29205,    .02767,    .01133,
     +     .00564,    .02416,    .04523 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
     +     .46268,    .17331,    .27722,    .02688,    .01118,
     +     .00570,    .02353,    .04378,
     +     .45393,    .16921,    .26347,    .02612,    .01102,
     +     .00574,    .02292,    .04242,
     +     .44579,    .16541,    .25109,    .02542,    .01087,
     +     .00577,    .02235,    .04118,
     +     .43820,    .16189,    .23993,    .02476,    .01071,
     +     .00577,    .02182,    .04004,
     +     .43073,    .15846,    .22929,    .02411,    .01055,
     +     .00577,    .02130,    .03893,
     +     .42341,    .15511,    .21926,    .02348,    .01038,
     +     .00575,    .02079,    .03787,
     +     .41660,    .15202,    .21021,    .02291,    .01023,
     +     .00574,    .02032,    .03690,
     +     .41017,    .14915,    .20197,    .02238,    .01007,
     +     .00571,    .01988,    .03598 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
     +     .40382,    .14633,    .19404,    .02186,    .00991,
     +     .00568,    .01944,    .03508,
     +     .39760,    .14358,    .18653,    .02135,    .00976,
     +     .00564,    .01901,    .03421,
     +     .39177,    .14100,    .17967,    .02087,    .00961,
     +     .00560,    .01862,    .03341,
     +     .38631,    .13861,    .17344,    .02042,    .00947,
     +     .00556,    .01825,    .03267,
     +     .38079,    .13621,    .16737,    .01998,    .00932,
     +     .00551,    .01788,    .03193 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
     +     .70717,    .29929,    .56250,    .03727,    .00000,
     +     .00000,    .02876,    .07417,
     +     .69660,    .29220,    .57622,    .03674,    .00055,
     +     .00000,    .02871,    .07214,
     +     .68074,    .28195,    .58096,    .03587,    .00306,
     +     .00000,    .02851,    .06921,
     +     .66914,    .27471,    .57827,    .03521,    .00436,
     +     .00000,    .02830,    .06712,
     +     .65687,    .26729,    .57000,    .03448,    .00543,
     +     .00000,    .02801,    .06496,
     +     .64626,    .26106,    .55947,    .03385,    .00618,
     +     .00000,    .02772,    .06313,
     +     .63616,    .25523,    .54760,    .03322,    .00680,
     +     .00000,    .02740,    .06144,
     +     .62554,    .24919,    .53351,    .03254,    .00736,
     +     .00000,    .02703,    .05970 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
     +     .61633,    .24406,    .51983,    .03194,    .00775,
     +     .00000,    .02669,    .05821,
     +     .60749,    .23921,    .50591,    .03136,    .00807,
     +     .00000,    .02634,    .05680,
     +     .60057,    .23546,    .49476,    .03091,    .00829,
     +     .00000,    .02605,    .05571,
     +     .58590,    .22763,    .46869,    .02992,    .00867,
     +     .00017,    .02542,    .05345,
     +     .57337,    .22111,    .44430,    .02906,    .00889,
     +     .00102,    .02485,    .05155,
     +     .55956,    .21406,    .41764,    .02812,    .00907,
     +     .00188,    .02419,    .04950,
     +     .54543,    .20697,    .39110,    .02714,    .00917,
     +     .00246,    .02349,    .04745,
     +     .53283,    .20075,    .36805,    .02628,    .00921,
     +     .00287,    .02285,    .04565 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
     +     .52035,    .19469,    .34583,    .02543,    .00921,
     +     .00320,    .02220,    .04389,
     +     .51015,    .18980,    .32819,    .02472,    .00918,
     +     .00342,    .02166,    .04250,
     +     .49796,    .18405,    .30777,    .02388,    .00911,
     +     .00363,    .02100,    .04086,
     +     .48741,    .17913,    .29072,    .02316,    .00903,
     +     .00378,    .02042,    .03945,
     +     .47792,    .17476,    .27592,    .02250,    .00894,
     +     .00390,    .01991,    .03821,
     +     .46607,    .16930,    .25805,    .02168,    .00881,
     +     .00400,    .01926,    .03671,
     +     .45515,    .16438,    .24233,    .02094,    .00867,
     +     .00407,    .01866,    .03534,
     +     .44516,    .15994,    .22852,    .02028,    .00853,
     +     .00413,    .01811,    .03410 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
     +     .43529,    .15558,    .21547,    .01963,    .00837,
     +     .00415,    .01757,    .03290,
     +     .42587,    .15145,    .20350,    .01901,    .00822,
     +     .00416,    .01705,    .03176,
     +     .41714,    .14766,    .19284,    .01845,    .00807,
     +     .00417,    .01657,    .03072,
     +     .40902,    .14415,    .18330,    .01791,    .00792,
     +     .00416,    .01613,    .02980,
     +     .40107,    .14074,    .17427,    .01738,    .00778,
     +     .00414,    .01569,    .02890,
     +     .39329,    .13745,    .16586,    .01689,    .00763,
     +     .00412,    .01527,    .02802,
     +     .38609,    .13443,    .15831,    .01644,    .00749,
     +     .00409,    .01489,    .02721,
     +     .37934,    .13161,    .15149,    .01602,    .00735,
     +     .00406,    .01453,    .02647 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
     +     .37268,    .12885,    .14497,    .01560,    .00722,
     +     .00403,    .01418,    .02575,
     +     .36618,    .12617,    .13884,    .01520,    .00708,
     +     .00399,    .01383,    .02505,
     +     .36008,    .12367,    .13328,    .01484,    .00695,
     +     .00395,    .01351,    .02439,
     +     .35440,    .12135,    .12824,    .01450,    .00683,
     +     .00391,    .01321,    .02380,
     +     .34871,    .11903,    .12335,    .01414,    .00671,
     +     .00387,    .01291,    .02321 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
     +     .71368,    .28788,    .58174,    .02877,    .00000,
     +     .00000,    .02299,    .05996,
     +     .70028,    .28001,    .58264,    .02835,    .00047,
     +     .00000,    .02294,    .05816,
     +     .68049,    .26879,    .57074,    .02768,    .00257,
     +     .00000,    .02272,    .05551,
     +     .66625,    .26091,    .55756,    .02715,    .00363,
     +     .00000,    .02250,    .05364,
     +     .65140,    .25287,    .53990,    .02654,    .00448,
     +     .00000,    .02219,    .05175,
     +     .63873,    .24616,    .52250,    .02600,    .00506,
     +     .00000,    .02190,    .05012,
     +     .62676,    .23992,    .50496,    .02547,    .00554,
     +     .00000,    .02159,    .04862,
     +     .61427,    .23349,    .48576,    .02489,    .00597,
     +     .00000,    .02124,    .04709 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
     +     .60351,    .22807,    .46840,    .02439,    .00625,
     +     .00000,    .02090,    .04578,
     +     .59327,    .22297,    .45151,    .02390,    .00648,
     +     .00000,    .02057,    .04455,
     +     .58530,    .21904,    .43830,    .02351,    .00663,
     +     .00000,    .02029,    .04361,
     +     .56852,    .21089,    .40910,    .02268,    .00688,
     +     .00013,    .01972,    .04162,
     +     .55433,    .20411,    .38321,    .02197,    .00701,
     +     .00078,    .01920,    .03998,
     +     .53884,    .19681,    .35569,    .02117,    .00711,
     +     .00142,    .01860,    .03822,
     +     .52312,    .18953,    .32896,    .02035,    .00714,
     +     .00186,    .01797,    .03647,
     +     .50921,    .18319,    .30627,    .01963,    .00713,
     +     .00216,    .01740,    .03494 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
     +     .49553,    .17703,    .28488,    .01892,    .00709,
     +     .00239,    .01684,    .03348,
     +     .48440,    .17210,    .26818,    .01833,    .00703,
     +     .00255,    .01638,    .03230,
     +     .47120,    .16632,    .24918,    .01766,    .00694,
     +     .00269,    .01582,    .03092,
     +     .45984,    .16138,    .23352,    .01706,    .00684,
     +     .00279,    .01533,    .02976,
     +     .44970,    .15700,    .22006,    .01650,    .00675,
     +     .00286,    .01489,    .02875,
     +     .43700,    .15164,    .20410,    .01587,    .00661,
     +     .00293,    .01434,    .02748,
     +     .42543,    .14678,    .19025,    .01528,    .00648,
     +     .00297,    .01384,    .02635,
     +     .41493,    .14239,    .17822,    .01474,    .00634,
     +     .00299,    .01338,    .02534 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
     +     .40460,    .13812,    .16696,    .01421,    .00620,
     +     .00300,    .01294,    .02437,
     +     .39475,    .13410,    .15674,    .01373,    .00606,
     +     .00300,    .01251,    .02345,
     +     .38564,    .13041,    .14771,    .01330,    .00593,
     +     .00299,    .01212,    .02262,
     +     .37725,    .12702,    .13974,    .01286,    .00580,
     +     .00297,    .01176,    .02187,
     +     .36907,    .12372,    .13223,    .01242,    .00568,
     +     .00295,    .01142,    .02115,
     +     .36110,    .12055,    .12527,    .01204,    .00555,
     +     .00293,    .01108,    .02046,
     +     .35374,    .11764,    .11906,    .01169,    .00543,
     +     .00290,    .01077,    .01982,
     +     .34683,    .11494,    .11351,    .01137,    .00532,
     +     .00287,    .01049,    .01922 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
     +     .34005,    .11230,    .10822,    .01106,    .00520,
     +     .00284,    .01020,    .01864,
     +     .33344,    .10975,    .10329,    .01075,    .00509,
     +     .00281,    .00993,    .01810,
     +     .32727,    .10737,    .09884,    .01046,    .00499,
     +     .00277,    .00969,    .01760,
     +     .32153,    .10517,    .09483,    .01020,    .00489,
     +     .00274,    .00945,    .01714,
     +     .31579,    .10299,    .09097,    .00994,    .00479,
     +     .00270,    .00922,    .01669 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
     +     .71006,    .27348,    .59370,    .02215,    .00000,
     +     .00000,    .01792,    .04750,
     +     .69414,    .26505,    .58155,    .02182,    .00039,
     +     .00000,    .01788,    .04594,
     +     .67101,    .25305,    .55370,    .02124,    .00211,
     +     .00000,    .01768,    .04370,
     +     .65448,    .24475,    .53098,    .02081,    .00296,
     +     .00000,    .01749,    .04206,
     +     .63746,    .23630,    .50519,    .02027,    .00363,
     +     .00000,    .01720,    .04046,
     +     .62303,    .22930,    .48216,    .01981,    .00408,
     +     .00000,    .01694,    .03907,
     +     .60949,    .22283,    .46013,    .01937,    .00444,
     +     .00000,    .01666,    .03778,
     +     .59545,    .21620,    .43704,    .01889,    .00475,
     +     .00000,    .01634,    .03647 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
     +     .58346,    .21061,    .41715,    .01847,    .00495,
     +     .00000,    .01606,    .03535,
     +     .57210,    .20537,    .39833,    .01805,    .00510,
     +     .00000,    .01576,    .03431,
     +     .56330,    .20134,    .38390,    .01771,    .00521,
     +     .00000,    .01553,    .03352,
     +     .54480,    .19308,    .35316,    .01705,    .00536,
     +     .00010,    .01502,    .03184,
     +     .52935,    .18623,    .32699,    .01645,    .00544,
     +     .00059,    .01456,    .03048,
     +     .51261,    .17888,    .29979,    .01577,    .00547,
     +     .00107,    .01405,    .02903,
     +     .49573,    .17159,    .27391,    .01509,    .00546,
     +     .00139,    .01352,    .02758,
     +     .48088,    .16528,    .25240,    .01450,    .00543,
     +     .00160,    .01304,    .02632 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
     +     .46636,    .15919,    .23247,    .01391,    .00536,
     +     .00177,    .01256,    .02513,
     +     .45463,    .15431,    .21713,    .01345,    .00530,
     +     .00188,    .01217,    .02416,
     +     .44076,    .14865,    .19995,    .01291,    .00520,
     +     .00197,    .01171,    .02303,
     +     .42887,    .14384,    .18599,    .01245,    .00511,
     +     .00204,    .01132,    .02208,
     +     .41829,    .13957,    .17413,    .01203,    .00502,
     +     .00208,    .01097,    .02124,
     +     .40521,    .13435,    .16022,    .01149,    .00489,
     +     .00212,    .01052,    .02025,
     +     .39330,    .12966,    .14829,    .01102,    .00477,
     +     .00214,    .01011,    .01936,
     +     .38249,    .12545,    .13803,    .01059,    .00465,
     +     .00215,    .00974,    .01857 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
     +     .37196,    .12136,    .12855,    .01019,    .00453,
     +     .00215,    .00938,    .01778,
     +     .36196,    .11751,    .12000,    .00980,    .00441,
     +     .00214,    .00905,    .01705,
     +     .35275,    .11400,    .11250,    .00945,    .00430,
     +     .00213,    .00875,    .01641,
     +     .34424,    .11079,    .10595,    .00914,    .00419,
     +     .00211,    .00847,    .01583,
     +     .33595,    .10768,    .09981,    .00884,    .00409,
     +     .00209,    .00819,    .01526,
     +     .32795,    .10470,    .09419,    .00855,    .00399,
     +     .00207,    .00792,    .01472,
     +     .32059,    .10196,    .08920,    .00828,    .00389,
     +     .00204,    .00768,    .01423,
     +     .31373,    .09942,    .08475,    .00802,    .00380,
     +     .00202,    .00745,    .01377 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
     +     .30701,    .09694,    .08052,    .00777,    .00371,
     +     .00199,    .00723,    .01332,
     +     .30048,    .09455,    .07661,    .00754,    .00362,
     +     .00196,    .00703,    .01291,
     +     .29440,    .09233,    .07310,    .00732,    .00354,
     +     .00193,    .00684,    .01253,
     +     .28875,    .09029,    .06995,    .00712,    .00346,
     +     .00191,    .00666,    .01218,
     +     .28310,    .08826,    .06692,    .00693,    .00338,
     +     .00188,    .00648,    .01183 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
     +     .69798,    .25614,    .59069,    .01652,    .00000,
     +     .00000,    .01392,    .03721,
     +     .67983,    .24739,    .56699,    .01628,    .00032,
     +     .00000,    .01386,    .03588,
     +     .65375,    .23502,    .52573,    .01585,    .00168,
     +     .00000,    .01368,    .03394,
     +     .63530,    .22650,    .49546,    .01548,    .00234,
     +     .00000,    .01349,    .03259,
     +     .61638,    .21793,    .46362,    .01510,    .00285,
     +     .00000,    .01323,    .03119,
     +     .60054,    .21081,    .43668,    .01472,    .00318,
     +     .00000,    .01298,    .03004,
     +     .58575,    .20426,    .41176,    .01435,    .00345,
     +     .00000,    .01272,    .02898,
     +     .57046,    .19760,    .38642,    .01397,    .00367,
     +     .00000,    .01244,    .02789 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
     +     .55746,    .19203,    .36525,    .01364,    .00381,
     +     .00000,    .01220,    .02694,
     +     .54521,    .18682,    .34565,    .01332,    .00392,
     +     .00000,    .01195,    .02606,
     +     .53575,    .18281,    .33082,    .01306,    .00399,
     +     .00000,    .01175,    .02538,
     +     .51616,    .17455,    .30019,    .01248,    .00408,
     +     .00008,    .01129,    .02407,
     +     .49981,    .16779,    .27483,    .01200,    .00411,
     +     .00043,    .01090,    .02295,
     +     .48211,    .16059,    .24900,    .01150,    .00412,
     +     .00079,    .01047,    .02175,
     +     .46442,    .15350,    .22492,    .01098,    .00409,
     +     .00101,    .01004,    .02055,
     +     .44897,    .14737,    .20523,    .01051,    .00404,
     +     .00117,    .00965,    .01953 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
     +     .43395,    .14147,    .18725,    .01004,    .00397,
     +     .00128,    .00925,    .01857,
     +     .42186,    .13679,    .17363,    .00969,    .00391,
     +     .00136,    .00893,    .01781,
     +     .40769,    .13134,    .15854,    .00925,    .00382,
     +     .00142,    .00855,    .01692,
     +     .39558,    .12673,    .14641,    .00887,    .00373,
     +     .00146,    .00823,    .01618,
     +     .38481,    .12267,    .13622,    .00856,    .00366,
     +     .00149,    .00795,    .01552,
     +     .37155,    .11771,    .12442,    .00817,    .00355,
     +     .00151,    .00760,    .01472,
     +     .35956,    .11326,    .11439,    .00783,    .00344,
     +     .00152,    .00729,    .01402,
     +     .34875,    .10928,    .10585,    .00751,    .00335,
     +     .00152,    .00700,    .01339 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
     +     .33822,    .10544,    .09804,    .00718,    .00325,
     +     .00152,    .00672,    .01281,
     +     .32827,    .10184,    .09105,    .00688,    .00315,
     +     .00151,    .00646,    .01225,
     +     .31914,    .09857,    .08498,    .00663,    .00306,
     +     .00149,    .00622,    .01175,
     +     .31074,    .09558,    .07970,    .00639,    .00298,
     +     .00148,    .00600,    .01129,
     +     .30258,    .09269,    .07478,    .00617,    .00290,
     +     .00146,    .00578,    .01086,
     +     .29476,    .08992,    .07032,    .00594,    .00282,
     +     .00144,    .00559,    .01045,
     +     .28757,    .08738,    .06636,    .00572,    .00274,
     +     .00142,    .00541,    .01008,
     +     .28086,    .08505,    .06286,    .00554,    .00267,
     +     .00140,    .00524,    .00974 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
     +     .27429,    .08278,    .05955,    .00537,    .00260,
     +     .00137,    .00507,    .00941,
     +     .26793,    .08060,    .05650,    .00521,    .00253,
     +     .00135,    .00491,    .00909,
     +     .26202,    .07858,    .05377,    .00506,    .00247,
     +     .00133,    .00477,    .00879,
     +     .25656,    .07671,    .05133,    .00492,    .00241,
     +     .00131,    .00464,    .00852,
     +     .25114,    .07486,    .04900,    .00476,    .00235,
     +     .00129,    .00451,    .00826 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
     +     .67791,    .23718,    .57073,    .01220,    .00000,
     +     .00000,    .01058,    .02862,
     +     .65793,    .22834,    .53796,    .01203,    .00025,
     +     .00000,    .01052,    .02750,
     +     .62943,    .21591,    .48694,    .01172,    .00130,
     +     .00000,    .01035,    .02588,
     +     .60948,    .20734,    .45165,    .01142,    .00181,
     +     .00000,    .01019,    .02477,
     +     .58918,    .19877,    .41614,    .01109,    .00219,
     +     .00000,    .00995,    .02365,
     +     .57223,    .19173,    .38718,    .01081,    .00243,
     +     .00000,    .00974,    .02268,
     +     .55650,    .18527,    .36105,    .01052,    .00262,
     +     .00000,    .00953,    .02180,
     +     .54036,    .17869,    .33507,    .01021,    .00278,
     +     .00000,    .00930,    .02092 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
     +     .52670,    .17319,    .31379,    .00995,    .00288,
     +     .00000,    .00908,    .02017,
     +     .51389,    .16807,    .29446,    .00968,    .00294,
     +     .00000,    .00887,    .01946,
     +     .50403,    .16415,    .28002,    .00947,    .00299,
     +     .00000,    .00871,    .01893,
     +     .48360,    .15617,    .25076,    .00905,    .00304,
     +     .00006,    .00833,    .01782,
     +     .46670,    .14962,    .22719,    .00866,    .00305,
     +     .00031,    .00803,    .01694,
     +     .44854,    .14268,    .20357,    .00824,    .00303,
     +     .00057,    .00767,    .01602,
     +     .43046,    .13588,    .18188,    .00785,    .00300,
     +     .00073,    .00731,    .01508,
     +     .41475,    .13004,    .16443,    .00750,    .00295,
     +     .00084,    .00699,    .01427 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
     +     .39954,    .12445,    .14873,    .00715,    .00289,
     +     .00092,    .00668,    .01351,
     +     .38739,    .12000,    .13698,    .00687,    .00283,
     +     .00097,    .00644,    .01290,
     +     .37313,    .11485,    .12410,    .00655,    .00275,
     +     .00101,    .00614,    .01224,
     +     .36104,    .11052,    .11387,    .00627,    .00268,
     +     .00104,    .00590,    .01165,
     +     .35038,    .10672,    .10533,    .00603,    .00262,
     +     .00105,    .00569,    .01111,
     +     .33727,    .10210,    .09554,    .00573,    .00253,
     +     .00106,    .00540,    .01052,
     +     .32544,    .09796,    .08731,    .00545,    .00245,
     +     .00107,    .00515,    .01000,
     +     .31479,    .09426,    .08036,    .00521,    .00237,
     +     .00107,    .00494,    .00953 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
     +     .30447,    .09072,    .07406,    .00500,    .00229,
     +     .00106,    .00473,    .00908,
     +     .29475,    .08741,    .06845,    .00479,    .00222,
     +     .00105,    .00453,    .00866,
     +     .28589,    .08439,    .06360,    .00458,    .00215,
     +     .00103,    .00435,    .00829,
     +     .27777,    .08165,    .05943,    .00440,    .00208,
     +     .00102,    .00419,    .00796,
     +     .26988,    .07900,    .05557,    .00423,    .00202,
     +     .00101,    .00402,    .00764,
     +     .26232,    .07649,    .05208,    .00408,    .00196,
     +     .00099,    .00388,    .00732,
     +     .25537,    .07420,    .04900,    .00395,    .00190,
     +     .00097,    .00375,    .00703,
     +     .24895,    .07209,    .04629,    .00381,    .00185,
     +     .00096,    .00363,    .00677 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
     +     .24267,    .07004,    .04374,    .00367,    .00180,
     +     .00094,    .00350,    .00652,
     +     .23662,    .06806,    .04141,    .00355,    .00175,
     +     .00092,    .00339,    .00629,
     +     .23101,    .06623,    .03933,    .00343,    .00170,
     +     .00091,    .00328,    .00609,
     +     .22582,    .06454,    .03747,    .00332,    .00166,
     +     .00089,    .00318,    .00590,
     +     .22068,    .06288,    .03570,    .00321,    .00162,
     +     .00088,    .00308,    .00571 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
     +     .65096,    .21717,    .53475,    .00884,    .00000,
     +     .00000,    .00795,    .02163,
     +     .62958,    .20838,    .49592,    .00873,    .00019,
     +     .00000,    .00789,    .02071,
     +     .59938,    .19604,    .43921,    .00843,    .00098,
     +     .00000,    .00771,    .01946,
     +     .57838,    .18759,    .40141,    .00821,    .00136,
     +     .00000,    .00759,    .01853,
     +     .55703,    .17926,    .36471,    .00797,    .00164,
     +     .00000,    .00738,    .01763,
     +     .53938,    .17239,    .33547,    .00773,    .00181,
     +     .00000,    .00720,    .01687,
     +     .52306,    .16610,    .30962,    .00752,    .00194,
     +     .00000,    .00702,    .01617,
     +     .50637,    .15975,    .28436,    .00729,    .00205,
     +     .00000,    .00682,    .01546 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
     +     .49231,    .15447,    .26401,    .00710,    .00212,
     +     .00000,    .00665,    .01484,
     +     .47916,    .14956,    .24579,    .00690,    .00216,
     +     .00000,    .00647,    .01430,
     +     .46907,    .14582,    .23233,    .00674,    .00218,
     +     .00000,    .00632,    .01389,
     +     .44828,    .13818,    .20553,    .00642,    .00221,
     +     .00005,    .00604,    .01302,
     +     .43118,    .13198,    .18440,    .00613,    .00221,
     +     .00022,    .00580,    .01231,
     +     .41288,    .12542,    .16352,    .00583,    .00219,
     +     .00040,    .00552,    .01158,
     +     .39479,    .11901,    .14464,    .00552,    .00215,
     +     .00052,    .00525,    .01085,
     +     .37915,    .11353,    .12966,    .00525,    .00210,
     +     .00059,    .00500,    .01023 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
     +     .36405,    .10830,    .11633,    .00499,    .00205,
     +     .00065,    .00475,    .00966,
     +     .35201,    .10416,    .10644,    .00480,    .00200,
     +     .00068,    .00456,    .00918,
     +     .33800,    .09940,    .09574,    .00455,    .00194,
     +     .00070,    .00434,    .00867,
     +     .32617,    .09539,    .08731,    .00434,    .00189,
     +     .00072,    .00415,    .00825,
     +     .31577,    .09187,    .08033,    .00414,    .00183,
     +     .00073,    .00399,    .00788,
     +     .30298,    .08763,    .07244,    .00393,    .00177,
     +     .00074,    .00377,    .00742,
     +     .29151,    .08385,    .06584,    .00374,    .00170,
     +     .00074,    .00359,    .00702,
     +     .28124,    .08048,    .06028,    .00358,    .00164,
     +     .00073,    .00343,    .00667 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
     +     .27128,    .07727,    .05532,    .00343,    .00159,
     +     .00072,    .00328,    .00632,
     +     .26197,    .07426,    .05093,    .00327,    .00153,
     +     .00072,    .00313,    .00601,
     +     .25353,    .07151,    .04715,    .00310,    .00148,
     +     .00071,    .00300,    .00575,
     +     .24579,    .06905,    .04392,    .00297,    .00143,
     +     .00070,    .00287,    .00550,
     +     .23828,    .06668,    .04093,    .00287,    .00138,
     +     .00068,    .00276,    .00525,
     +     .23112,    .06442,    .03825,    .00275,    .00134,
     +     .00067,    .00265,    .00503,
     +     .22457,    .06236,    .03589,    .00264,    .00130,
     +     .00066,    .00255,    .00484,
     +     .21848,    .06048,    .03383,    .00256,    .00126,
     +     .00065,    .00246,    .00465 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
     +     .21254,    .05865,    .03189,    .00249,    .00122,
     +     .00064,    .00238,    .00447,
     +     .20685,    .05690,    .03012,    .00241,    .00119,
     +     .00062,    .00230,    .00430,
     +     .20159,    .05529,    .02854,    .00232,    .00115,
     +     .00061,    .00221,    .00414,
     +     .19675,    .05381,    .02714,    .00224,    .00112,
     +     .00060,    .00214,    .00400,
     +     .19196,    .05233,    .02582,    .00217,    .00109,
     +     .00059,    .00207,    .00386 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
     +     .61836,    .19649,    .48592,    .00619,    .00000,
     +     .00000,    .00589,    .01617,
     +     .59601,    .18795,    .44408,    .00614,    .00015,
     +     .00000,    .00583,    .01539,
     +     .56460,    .17601,    .38562,    .00592,    .00072,
     +     .00000,    .00569,    .01436,
     +     .54282,    .16794,    .34780,    .00580,    .00099,
     +     .00000,    .00555,    .01363,
     +     .52100,    .15988,    .31189,    .00560,    .00119,
     +     .00000,    .00538,    .01293,
     +     .50297,    .15331,    .28387,    .00541,    .00131,
     +     .00000,    .00523,    .01234,
     +     .48636,    .14732,    .25948,    .00525,    .00140,
     +     .00000,    .00509,    .01178,
     +     .46945,    .14128,    .23601,    .00509,    .00148,
     +     .00000,    .00493,    .01122 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
     +     .45528,    .13628,    .21742,    .00493,    .00152,
     +     .00000,    .00479,    .01075,
     +     .44207,    .13165,    .20093,    .00479,    .00154,
     +     .00000,    .00466,    .01031,
     +     .43194,    .12813,    .18883,    .00469,    .00156,
     +     .00000,    .00457,    .00997,
     +     .41120,    .12096,    .16518,    .00443,    .00157,
     +     .00003,    .00432,    .00934,
     +     .39420,    .11516,    .14684,    .00423,    .00156,
     +     .00016,    .00412,    .00879,
     +     .37616,    .10905,    .12895,    .00399,    .00154,
     +     .00028,    .00391,    .00825,
     +     .35834,    .10311,    .11301,    .00376,    .00150,
     +     .00036,    .00369,    .00771,
     +     .34301,    .09805,    .10051,    .00358,    .00147,
     +     .00041,    .00350,    .00725 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
     +     .32833,    .09322,    .08949,    .00338,    .00143,
     +     .00045,    .00333,    .00680,
     +     .31664,    .08944,    .08140,    .00323,    .00139,
     +     .00047,    .00318,    .00647,
     +     .30310,    .08509,    .07274,    .00306,    .00134,
     +     .00049,    .00302,    .00608,
     +     .29167,    .08146,    .06597,    .00292,    .00130,
     +     .00050,    .00288,    .00575,
     +     .28163,    .07828,    .06040,    .00280,    .00126,
     +     .00050,    .00276,    .00547,
     +     .26940,    .07443,    .05414,    .00266,    .00121,
     +     .00050,    .00260,    .00513,
     +     .25848,    .07102,    .04896,    .00252,    .00116,
     +     .00050,    .00246,    .00485,
     +     .24873,    .06799,    .04465,    .00238,    .00112,
     +     .00050,    .00235,    .00461 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
     +     .23934,    .06511,    .04082,    .00227,    .00108,
     +     .00049,    .00223,    .00435,
     +     .23054,    .06243,    .03744,    .00217,    .00104,
     +     .00048,    .00213,    .00411,
     +     .22253,    .06000,    .03455,    .00208,    .00100,
     +     .00048,    .00203,    .00392,
     +     .21528,    .05780,    .03209,    .00198,    .00097,
     +     .00047,    .00194,    .00374,
     +     .20828,    .05569,    .02983,    .00188,    .00094,
     +     .00046,    .00186,    .00358,
     +     .20158,    .05370,    .02781,    .00181,    .00090,
     +     .00045,    .00178,    .00342,
     +     .19546,    .05189,    .02603,    .00175,    .00087,
     +     .00044,    .00171,    .00327,
     +     .18983,    .05022,    .02449,    .00168,    .00085,
     +     .00043,    .00165,    .00313 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
     +     .18436,    .04860,    .02304,    .00162,    .00082,
     +     .00043,    .00159,    .00300,
     +     .17912,    .04706,    .02173,    .00156,    .00080,
     +     .00042,    .00153,    .00288,
     +     .17428,    .04564,    .02056,    .00150,    .00077,
     +     .00041,    .00147,    .00279,
     +     .16981,    .04434,    .01953,    .00145,    .00075,
     +     .00040,    .00142,    .00270,
     +     .16539,    .04306,    .01855,    .00140,    .00073,
     +     .00040,    .00138,    .00259 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
     +     .58090,    .17609,    .42878,    .00441,    .00000,
     +     .00000,    .00424,    .01173,
     +     .55805,    .16784,    .38669,    .00435,    .00011,
     +     .00000,    .00419,    .01115,
     +     .52612,    .15644,    .32977,    .00415,    .00052,
     +     .00000,    .00406,    .01036,
     +     .50409,    .14877,    .29374,    .00406,    .00071,
     +     .00000,    .00393,    .00981,
     +     .48214,    .14112,    .26030,    .00391,    .00084,
     +     .00000,    .00381,    .00925,
     +     .46406,    .13495,    .23465,    .00377,    .00093,
     +     .00000,    .00369,    .00881,
     +     .44749,    .12934,    .21259,    .00364,    .00099,
     +     .00000,    .00358,    .00840,
     +     .43069,    .12369,    .19161,    .00352,    .00104,
     +     .00000,    .00346,    .00796 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
     +     .41666,    .11900,    .17517,    .00340,    .00106,
     +     .00000,    .00335,    .00761,
     +     .40360,    .11470,    .16077,    .00329,    .00108,
     +     .00000,    .00324,    .00729,
     +     .39361,    .11143,    .15031,    .00322,    .00109,
     +     .00000,    .00316,    .00705,
     +     .37333,    .10479,    .13013,    .00301,    .00109,
     +     .00002,    .00300,    .00656,
     +     .35671,    .09947,    .11470,    .00289,    .00108,
     +     .00011,    .00285,    .00615,
     +     .33914,    .09388,    .09985,    .00273,    .00106,
     +     .00019,    .00269,    .00574,
     +     .32191,    .08845,    .08675,    .00256,    .00103,
     +     .00024,    .00254,    .00534,
     +     .30714,    .08385,    .07660,    .00243,    .00100,
     +     .00028,    .00240,    .00501 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
     +     .29305,    .07949,    .06774,    .00229,    .00097,
     +     .00030,    .00226,    .00469,
     +     .28193,    .07605,    .06129,    .00218,    .00094,
     +     .00032,    .00216,    .00444,
     +     .26903,    .07212,    .05444,    .00206,    .00091,
     +     .00033,    .00204,    .00417,
     +     .25818,    .06886,    .04914,    .00197,    .00088,
     +     .00034,    .00194,    .00393,
     +     .24868,    .06603,    .04481,    .00189,    .00085,
     +     .00035,    .00185,    .00373,
     +     .23717,    .06261,    .03997,    .00178,    .00081,
     +     .00035,    .00175,    .00348,
     +     .22692,    .05956,    .03600,    .00167,    .00078,
     +     .00035,    .00165,    .00328,
     +     .21779,    .05687,    .03270,    .00158,    .00075,
     +     .00035,    .00156,    .00311 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
     +     .20903,    .05433,    .02978,    .00150,    .00072,
     +     .00034,    .00147,    .00293,
     +     .20084,    .05197,    .02724,    .00143,    .00069,
     +     .00034,    .00140,    .00277,
     +     .19341,    .04983,    .02507,    .00138,    .00067,
     +     .00034,    .00134,    .00261,
     +     .18668,    .04791,    .02323,    .00132,    .00064,
     +     .00033,    .00128,    .00249,
     +     .18022,    .04608,    .02154,    .00126,    .00062,
     +     .00033,    .00122,    .00237,
     +     .17408,    .04432,    .02003,    .00120,    .00060,
     +     .00032,    .00117,    .00226,
     +     .16848,    .04273,    .01872,    .00116,    .00058,
     +     .00032,    .00112,    .00217,
     +     .16335,    .04128,    .01758,    .00110,    .00056,
     +     .00031,    .00108,    .00208 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
     +     .15836,    .03989,    .01652,    .00105,    .00054,
     +     .00031,    .00104,    .00199,
     +     .15356,    .03856,    .01556,    .00102,    .00053,
     +     .00030,    .00100,    .00191,
     +     .14913,    .03734,    .01471,    .00098,    .00051,
     +     .00030,    .00096,    .00183,
     +     .14507,    .03622,    .01395,    .00095,    .00050,
     +     .00029,    .00092,    .00176,
     +     .14109,    .03513,    .01324,    .00092,    .00049,
     +     .00029,    .00089,    .00168 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
     +     .53998,    .15591,    .36745,    .00300,    .00000,
     +     .00000,    .00300,    .00843,
     +     .51705,    .14813,    .32740,    .00292,    .00008,
     +     .00000,    .00296,    .00798,
     +     .48504,    .13750,    .27465,    .00285,    .00036,
     +     .00000,    .00284,    .00733,
     +     .46318,    .13031,    .24188,    .00276,    .00049,
     +     .00000,    .00274,    .00693,
     +     .44143,    .12321,    .21201,    .00267,    .00058,
     +     .00000,    .00264,    .00650,
     +     .42360,    .11750,    .18937,    .00259,    .00064,
     +     .00000,    .00254,    .00617,
     +     .40734,    .11231,    .17016,    .00250,    .00068,
     +     .00000,    .00245,    .00585,
     +     .39092,    .10711,    .15213,    .00241,    .00071,
     +     .00000,    .00236,    .00552 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
     +     .37723,    .10283,    .13815,    .00234,    .00072,
     +     .00000,    .00229,    .00526,
     +     .36456,    .09888,    .12600,    .00227,    .00073,
     +     .00000,    .00221,    .00503,
     +     .35492,    .09589,    .11723,    .00220,    .00074,
     +     .00000,    .00214,    .00487,
     +     .33530,    .08987,    .10047,    .00206,    .00074,
     +     .00002,    .00201,    .00450,
     +     .31936,    .08503,    .08788,    .00197,    .00073,
     +     .00007,    .00191,    .00420,
     +     .30256,    .07998,    .07587,    .00188,    .00071,
     +     .00013,    .00181,    .00389,
     +     .28617,    .07510,    .06540,    .00176,    .00069,
     +     .00016,    .00169,    .00360,
     +     .27218,    .07097,    .05737,    .00165,    .00067,
     +     .00018,    .00158,    .00337 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
     +     .25886,    .06706,    .05043,    .00155,    .00065,
     +     .00020,    .00148,    .00315,
     +     .24838,    .06402,    .04541,    .00147,    .00063,
     +     .00021,    .00142,    .00297,
     +     .23630,    .06054,    .04012,    .00139,    .00060,
     +     .00022,    .00134,    .00277,
     +     .22617,    .05764,    .03606,    .00132,    .00058,
     +     .00022,    .00127,    .00261,
     +     .21732,    .05512,    .03277,    .00127,    .00056,
     +     .00022,    .00120,    .00248,
     +     .20664,    .05211,    .02911,    .00119,    .00054,
     +     .00022,    .00112,    .00231,
     +     .19716,    .04945,    .02612,    .00112,    .00052,
     +     .00022,    .00106,    .00216,
     +     .18875,    .04711,    .02365,    .00106,    .00050,
     +     .00022,    .00101,    .00203 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
     +     .18069,    .04487,    .02148,    .00099,    .00048,
     +     .00022,    .00095,    .00192,
     +     .17320,    .04281,    .01959,    .00093,    .00046,
     +     .00022,    .00090,    .00181,
     +     .16643,    .04098,    .01800,    .00089,    .00045,
     +     .00022,    .00085,    .00171,
     +     .16030,    .03931,    .01664,    .00085,    .00043,
     +     .00022,    .00081,    .00163,
     +     .15441,    .03772,    .01540,    .00082,    .00042,
     +     .00022,    .00077,    .00155,
     +     .14882,    .03622,    .01431,    .00079,    .00040,
     +     .00022,    .00074,    .00146,
     +     .14375,    .03487,    .01335,    .00076,    .00039,
     +     .00022,    .00071,    .00138,
     +     .13911,    .03363,    .01252,    .00073,    .00038,
     +     .00022,    .00068,    .00132 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
     +     .13461,    .03243,    .01175,    .00069,    .00037,
     +     .00022,    .00065,    .00127,
     +     .13031,    .03129,    .01105,    .00067,    .00036,
     +     .00022,    .00062,    .00121,
     +     .12635,    .03025,    .01044,    .00064,    .00035,
     +     .00022,    .00060,    .00116,
     +     .12271,    .02930,    .00989,    .00062,    .00035,
     +     .00022,    .00058,    .00111,
     +     .11913,    .02836,    .00938,    .00060,    .00034,
     +     .00022,    .00056,    .00107 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
     +     .49645,    .13643,    .30580,    .00197,    .00000,
     +     .00000,    .00213,    .00592,
     +     .47374,    .12922,    .26945,    .00192,    .00005,
     +     .00000,    .00205,    .00562,
     +     .44231,    .11937,    .22253,    .00185,    .00024,
     +     .00000,    .00196,    .00515,
     +     .42091,    .11275,    .19391,    .00180,    .00033,
     +     .00000,    .00189,    .00483,
     +     .39975,    .10627,    .16818,    .00174,    .00039,
     +     .00000,    .00183,    .00449,
     +     .38250,    .10104,    .14894,    .00168,    .00043,
     +     .00000,    .00174,    .00423,
     +     .36679,    .09631,    .13279,    .00161,    .00046,
     +     .00000,    .00167,    .00401,
     +     .35097,    .09159,    .11777,    .00154,    .00048,
     +     .00000,    .00161,    .00379 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
     +     .33787,    .08770,    .10624,    .00149,    .00049,
     +     .00000,    .00156,    .00360,
     +     .32576,    .08414,    .09632,    .00143,    .00049,
     +     .00000,    .00150,    .00344,
     +     .31655,    .08145,    .08921,    .00139,    .00049,
     +     .00000,    .00145,    .00333,
     +     .29789,    .07604,    .07578,    .00130,    .00049,
     +     .00001,    .00135,    .00307,
     +     .28278,    .07173,    .06580,    .00126,    .00049,
     +     .00005,    .00128,    .00283,
     +     .26692,    .06725,    .05639,    .00119,    .00047,
     +     .00008,    .00120,    .00261,
     +     .25155,    .06291,    .04827,    .00111,    .00046,
     +     .00010,    .00113,    .00241,
     +     .23850,    .05925,    .04208,    .00103,    .00045,
     +     .00012,    .00106,    .00225 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
     +     .22612,    .05581,    .03677,    .00096,    .00043,
     +     .00013,    .00098,    .00210,
     +     .21636,    .05315,    .03299,    .00093,    .00042,
     +     .00013,    .00094,    .00197,
     +     .20520,    .05010,    .02902,    .00086,    .00041,
     +     .00013,    .00089,    .00184,
     +     .19588,    .04757,    .02597,    .00081,    .00039,
     +     .00013,    .00084,    .00173,
     +     .18776,    .04540,    .02351,    .00079,    .00038,
     +     .00013,    .00080,    .00162,
     +     .17797,    .04278,    .02081,    .00074,    .00037,
     +     .00013,    .00075,    .00150,
     +     .16934,    .04048,    .01862,    .00069,    .00036,
     +     .00013,    .00070,    .00141,
     +     .16171,    .03845,    .01682,    .00063,    .00034,
     +     .00013,    .00067,    .00132 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
     +     .15440,    .03655,    .01524,    .00060,    .00033,
     +     .00013,    .00062,    .00124,
     +     .14761,    .03479,    .01387,    .00057,    .00032,
     +     .00013,    .00059,    .00117,
     +     .14150,    .03320,    .01272,    .00055,    .00031,
     +     .00013,    .00056,    .00112,
     +     .13600,    .03178,    .01174,    .00052,    .00031,
     +     .00013,    .00053,    .00106,
     +     .13073,    .03044,    .01085,    .00049,    .00030,
     +     .00013,    .00051,    .00100,
     +     .12574,    .02916,    .01007,    .00046,    .00029,
     +     .00013,    .00048,    .00095,
     +     .12121,    .02801,    .00939,    .00044,    .00028,
     +     .00013,    .00045,    .00091,
     +     .11707,    .02697,    .00880,    .00043,    .00028,
     +     .00013,    .00044,    .00086 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
     +     .11306,    .02596,    .00825,    .00042,    .00027,
     +     .00013,    .00042,    .00082,
     +     .10926,    .02500,    .00776,    .00040,    .00027,
     +     .00013,    .00041,    .00078,
     +     .10576,    .02412,    .00732,    .00038,    .00026,
     +     .00013,    .00039,    .00075,
     +     .10256,    .02333,    .00693,    .00037,    .00026,
     +     .00013,    .00038,    .00072,
     +     .09940,    .02255,    .00656,    .00036,    .00025,
     +     .00013,    .00036,    .00069 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
     +     .45140,    .11804,    .24734,    .00125,    .00000,
     +     .00000,    .00145,    .00409,
     +     .42926,    .11141,    .21561,    .00126,    .00004,
     +     .00000,    .00140,    .00383,
     +     .39887,    .10242,    .17547,    .00117,    .00016,
     +     .00000,    .00136,    .00349,
     +     .37832,    .09641,    .15135,    .00110,    .00021,
     +     .00000,    .00129,    .00327,
     +     .35797,    .09055,    .12997,    .00106,    .00025,
     +     .00000,    .00124,    .00307,
     +     .34149,    .08584,    .11419,    .00102,    .00028,
     +     .00000,    .00119,    .00288,
     +     .32657,    .08159,    .10105,    .00097,    .00029,
     +     .00000,    .00114,    .00271,
     +     .31158,    .07737,    .08896,    .00093,    .00031,
     +     .00000,    .00109,    .00254 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
     +     .29916,    .07391,    .07979,    .00091,    .00032,
     +     .00000,    .00106,    .00240,
     +     .28776,    .07074,    .07194,    .00086,    .00032,
     +     .00000,    .00101,    .00230,
     +     .27914,    .06835,    .06634,    .00082,    .00032,
     +     .00000,    .00097,    .00223,
     +     .26164,    .06357,    .05586,    .00078,    .00032,
     +     .00001,    .00092,    .00203,
     +     .24759,    .05974,    .04820,    .00073,    .00032,
     +     .00003,    .00087,    .00189,
     +     .23286,    .05580,    .04102,    .00069,    .00032,
     +     .00005,    .00080,    .00174,
     +     .21864,    .05203,    .03488,    .00064,    .00032,
     +     .00006,    .00075,    .00159,
     +     .20661,    .04885,    .03026,    .00060,    .00031,
     +     .00007,    .00070,    .00147 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
     +     .19522,    .04588,    .02632,    .00056,    .00031,
     +     .00007,    .00065,    .00137,
     +     .18633,    .04355,    .02352,    .00052,    .00030,
     +     .00007,    .00062,    .00131,
     +     .17616,    .04093,    .02060,    .00049,    .00029,
     +     .00007,    .00058,    .00121,
     +     .16769,    .03877,    .01838,    .00047,    .00028,
     +     .00007,    .00055,    .00112,
     +     .16034,    .03689,    .01661,    .00045,    .00028,
     +     .00007,    .00052,    .00106,
     +     .15153,    .03467,    .01466,    .00040,    .00027,
     +     .00007,    .00049,    .00098,
     +     .14375,    .03272,    .01308,    .00037,    .00026,
     +     .00007,    .00046,    .00092,
     +     .13687,    .03101,    .01180,    .00035,    .00026,
     +     .00007,    .00043,    .00086 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
     +     .13034,    .02938,    .01067,    .00035,    .00025,
     +     .00007,    .00041,    .00080,
     +     .12431,    .02789,    .00969,    .00033,    .00024,
     +     .00007,    .00039,    .00076,
     +     .11890,    .02656,    .00887,    .00030,    .00024,
     +     .00007,    .00036,    .00072,
     +     .11402,    .02538,    .00818,    .00029,    .00023,
     +     .00007,    .00034,    .00068,
     +     .10936,    .02425,    .00756,    .00028,    .00023,
     +     .00007,    .00033,    .00064,
     +     .10496,    .02318,    .00701,    .00026,    .00022,
     +     .00007,    .00031,    .00061,
     +     .10098,    .02222,    .00652,    .00024,    .00022,
     +     .00007,    .00029,    .00058,
     +     .09735,    .02136,    .00611,    .00023,    .00022,
     +     .00007,    .00028,    .00055 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
     +     .09384,    .02052,    .00573,    .00023,    .00021,
     +     .00007,    .00027,    .00052,
     +     .09051,    .01973,    .00538,    .00022,    .00021,
     +     .00007,    .00026,    .00049,
     +     .08745,    .01901,    .00507,    .00022,    .00021,
     +     .00007,    .00025,    .00047,
     +     .08466,    .01835,    .00480,    .00021,    .00021,
     +     .00007,    .00024,    .00045,
     +     .08193,    .01770,    .00455,    .00020,    .00020,
     +     .00007,    .00023,    .00044 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
     +     .40572,    .10103,    .19461,    .00093,    .00000,
     +     .00000,    .00091,    .00268,
     +     .38465,    .09505,    .16802,    .00086,    .00002,
     +     .00000,    .00088,    .00254,
     +     .35564,    .08699,    .13493,    .00084,    .00010,
     +     .00000,    .00082,    .00229,
     +     .33616,    .08161,    .11535,    .00080,    .00013,
     +     .00000,    .00078,    .00213,
     +     .31701,    .07640,    .09816,    .00074,    .00016,
     +     .00000,    .00074,    .00198,
     +     .30153,    .07222,    .08561,    .00073,    .00017,
     +     .00000,    .00072,    .00183,
     +     .28753,    .06848,    .07528,    .00071,    .00018,
     +     .00000,    .00069,    .00172,
     +     .27352,    .06475,    .06584,    .00068,    .00019,
     +     .00000,    .00065,    .00162 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
     +     .26200,    .06171,    .05873,    .00064,    .00019,
     +     .00000,    .00063,    .00152,
     +     .25143,    .05893,    .05271,    .00062,    .00020,
     +     .00000,    .00060,    .00145,
     +     .24343,    .05684,    .04844,    .00060,    .00020,
     +     .00000,    .00058,    .00140,
     +     .22730,    .05266,    .04049,    .00057,    .00019,
     +     .00001,    .00054,    .00128,
     +     .21439,    .04936,    .03474,    .00054,    .00019,
     +     .00002,    .00051,    .00117,
     +     .20095,    .04594,    .02941,    .00049,    .00019,
     +     .00003,    .00046,    .00108,
     +     .18801,    .04268,    .02488,    .00046,    .00019,
     +     .00003,    .00043,    .00099,
     +     .17709,    .03995,    .02148,    .00043,    .00019,
     +     .00003,    .00040,    .00091 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
     +     .16681,    .03741,    .01861,    .00040,    .00019,
     +     .00004,    .00038,    .00084,
     +     .15877,    .03544,    .01659,    .00040,    .00019,
     +     .00004,    .00036,    .00078,
     +     .14966,    .03320,    .01449,    .00036,    .00019,
     +     .00004,    .00033,    .00072,
     +     .14210,    .03136,    .01291,    .00033,    .00019,
     +     .00004,    .00031,    .00067,
     +     .13554,    .02978,    .01164,    .00033,    .00019,
     +     .00004,    .00030,    .00063,
     +     .12771,    .02790,    .01025,    .00029,    .00019,
     +     .00004,    .00027,    .00059,
     +     .12081,    .02625,    .00913,    .00027,    .00019,
     +     .00004,    .00025,    .00055,
     +     .11474,    .02482,    .00822,    .00026,    .00019,
     +     .00004,    .00024,    .00051 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
     +     .10899,    .02347,    .00743,    .00025,    .00019,
     +     .00004,    .00022,    .00047,
     +     .10369,    .02223,    .00675,    .00024,    .00019,
     +     .00004,    .00021,    .00044,
     +     .09894,    .02112,    .00617,    .00023,    .00019,
     +     .00004,    .00020,    .00041,
     +     .09468,    .02013,    .00569,    .00021,    .00018,
     +     .00004,    .00019,    .00039,
     +     .09062,    .01919,    .00525,    .00020,    .00018,
     +     .00004,    .00018,    .00038,
     +     .08680,    .01831,    .00487,    .00019,    .00018,
     +     .00004,    .00017,    .00035,
     +     .08334,    .01753,    .00453,    .00019,    .00018,
     +     .00004,    .00016,    .00033,
     +     .08019,    .01681,    .00424,    .00018,    .00018,
     +     .00004,    .00015,    .00031 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
     +     .07716,    .01613,    .00397,    .00018,    .00018,
     +     .00004,    .00014,    .00029,
     +     .07429,    .01548,    .00373,    .00017,    .00018,
     +     .00004,    .00014,    .00028,
     +     .07166,    .01489,    .00352,    .00016,    .00018,
     +     .00004,    .00013,    .00027,
     +     .06926,    .01435,    .00333,    .00015,    .00018,
     +     .00004,    .00013,    .00026,
     +     .06692,    .01382,    .00315,    .00014,    .00018,
     +     .00004,    .00012,    .00026 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
     +     .36021,    .08505,    .14828,    .00048,    .00000,
     +     .00000,    .00063,    .00181,
     +     .34026,    .07978,    .12683,    .00047,    .00001,
     +     .00000,    .00062,    .00167,
     +     .31313,    .07263,    .10056,    .00044,    .00006,
     +     .00000,    .00056,    .00151,
     +     .29494,    .06794,    .08521,    .00041,    .00008,
     +     .00000,    .00054,    .00139,
     +     .27708,    .06338,    .07189,    .00043,    .00009,
     +     .00000,    .00049,    .00129,
     +     .26277,    .05973,    .06230,    .00039,    .00010,
     +     .00000,    .00048,    .00120,
     +     .24987,    .05648,    .05445,    .00037,    .00010,
     +     .00000,    .00045,    .00113,
     +     .23700,    .05327,    .04733,    .00036,    .00011,
     +     .00000,    .00041,    .00105 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
     +     .22645,    .05064,    .04200,    .00034,    .00011,
     +     .00000,    .00039,    .00098,
     +     .21678,    .04825,    .03752,    .00034,    .00011,
     +     .00000,    .00038,    .00092,
     +     .20947,    .04645,    .03437,    .00033,    .00011,
     +     .00000,    .00037,    .00088,
     +     .19481,    .04289,    .02854,    .00032,    .00011,
     +     .00000,    .00034,    .00081,
     +     .18316,    .04006,    .02436,    .00028,    .00011,
     +     .00001,    .00032,    .00075,
     +     .17103,    .03715,    .02051,    .00027,    .00011,
     +     .00001,    .00029,    .00069,
     +     .15942,    .03439,    .01727,    .00026,    .00011,
     +     .00001,    .00027,    .00061,
     +     .14966,    .03208,    .01487,    .00023,    .00011,
     +     .00001,    .00025,    .00056 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
     +     .14050,    .02994,    .01284,    .00022,    .00011,
     +     .00001,    .00023,    .00053,
     +     .13341,    .02829,    .01142,    .00020,    .00011,
     +     .00001,    .00021,    .00050,
     +     .12535,    .02642,    .00995,    .00018,    .00011,
     +     .00001,    .00019,    .00046,
     +     .11868,    .02489,    .00884,    .00017,    .00011,
     +     .00001,    .00018,    .00043,
     +     .11290,    .02358,    .00796,    .00018,    .00011,
     +     .00001,    .00018,    .00039,
     +     .10603,    .02203,    .00701,    .00017,    .00011,
     +     .00001,    .00017,    .00036,
     +     .10001,    .02067,    .00624,    .00016,    .00011,
     +     .00001,    .00015,    .00033,
     +     .09474,    .01948,    .00561,    .00015,    .00011,
     +     .00001,    .00014,    .00031 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
     +     .08976,    .01837,    .00507,    .00014,    .00011,
     +     .00001,    .00013,    .00029,
     +     .08517,    .01736,    .00460,    .00013,    .00011,
     +     .00001,    .00013,    .00027,
     +     .08108,    .01645,    .00420,    .00013,    .00011,
     +     .00001,    .00012,    .00025,
     +     .07741,    .01565,    .00387,    .00012,    .00011,
     +     .00001,    .00011,    .00024,
     +     .07391,    .01490,    .00358,    .00012,    .00011,
     +     .00001,    .00010,    .00023,
     +     .07063,    .01418,    .00331,    .00011,    .00011,
     +     .00001,    .00010,    .00021,
     +     .06768,    .01354,    .00308,    .00011,    .00011,
     +     .00001,    .00009,    .00020,
     +     .06501,    .01296,    .00289,    .00010,    .00011,
     +     .00001,    .00009,    .00019 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
     +     .06244,    .01241,    .00270,    .00009,    .00011,
     +     .00001,    .00008,    .00018,
     +     .06000,    .01189,    .00254,    .00009,    .00011,
     +     .00001,    .00008,    .00017,
     +     .05778,    .01142,    .00239,    .00009,    .00011,
     +     .00001,    .00008,    .00016,
     +     .05575,    .01099,    .00226,    .00008,    .00011,
     +     .00001,    .00007,    .00015,
     +     .05377,    .01057,    .00214,    .00008,    .00011,
     +     .00001,    .00007,    .00015 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
     +     .31569,    .07066,    .10957,    .00025,    .00000,
     +     .00000,    .00043,    .00116,
     +     .29716,    .06605,    .09288,    .00026,    .00001,
     +     .00000,    .00041,    .00107,
     +     .27210,    .05987,    .07275,    .00022,    .00003,
     +     .00000,    .00037,    .00095,
     +     .25536,    .05581,    .06112,    .00023,    .00004,
     +     .00000,    .00033,    .00086,
     +     .23903,    .05185,    .05119,    .00024,    .00005,
     +     .00000,    .00032,    .00082,
     +     .22598,    .04874,    .04408,    .00021,    .00005,
     +     .00000,    .00030,    .00075,
     +     .21428,    .04595,    .03830,    .00019,    .00005,
     +     .00000,    .00029,    .00069,
     +     .20263,    .04320,    .03310,    .00018,    .00006,
     +     .00000,    .00027,    .00065 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
     +     .19307,    .04096,    .02924,    .00019,    .00005,
     +     .00000,    .00025,    .00061,
     +     .18437,    .03894,    .02601,    .00018,    .00005,
     +     .00000,    .00025,    .00056,
     +     .17783,    .03742,    .02375,    .00018,    .00005,
     +     .00000,    .00024,    .00053,
     +     .16471,    .03441,    .01961,    .00017,    .00005,
     +     .00000,    .00022,    .00049,
     +     .15433,    .03203,    .01667,    .00015,    .00005,
     +     .00000,    .00020,    .00045,
     +     .14361,    .02959,    .01397,    .00014,    .00005,
     +     .00000,    .00019,    .00040,
     +     .13335,    .02729,    .01172,    .00013,    .00005,
     +     .00000,    .00016,    .00038,
     +     .12475,    .02538,    .01006,    .00013,    .00005,
     +     .00000,    .00015,    .00035 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
     +     .11672,    .02361,    .00868,    .00012,    .00005,
     +     .00000,    .00015,    .00032,
     +     .11049,    .02224,    .00770,    .00012,    .00005,
     +     .00000,    .00014,    .00030,
     +     .10348,    .02070,    .00670,    .00010,    .00005,
     +     .00000,    .00013,    .00028,
     +     .09770,    .01945,    .00595,    .00010,    .00005,
     +     .00000,    .00012,    .00026,
     +     .09271,    .01838,    .00535,    .00009,    .00005,
     +     .00000,    .00011,    .00024,
     +     .08680,    .01711,    .00471,    .00008,    .00005,
     +     .00000,    .00010,    .00021,
     +     .08163,    .01601,    .00419,    .00008,    .00005,
     +     .00000,    .00009,    .00019,
     +     .07709,    .01506,    .00376,    .00008,    .00005,
     +     .00000,    .00009,    .00018 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
     +     .07285,    .01416,    .00340,    .00007,    .00005,
     +     .00000,    .00008,    .00017,
     +     .06895,    .01334,    .00308,    .00006,    .00005,
     +     .00000,    .00008,    .00016,
     +     .06547,    .01262,    .00282,    .00007,    .00005,
     +     .00000,    .00007,    .00015,
     +     .06236,    .01197,    .00260,    .00006,    .00005,
     +     .00000,    .00007,    .00014,
     +     .05941,    .01136,    .00240,    .00006,    .00005,
     +     .00000,    .00006,    .00014,
     +     .05665,    .01080,    .00222,    .00006,    .00005,
     +     .00000,    .00006,    .00013,
     +     .05417,    .01029,    .00207,    .00006,    .00005,
     +     .00000,    .00006,    .00012,
     +     .05192,    .00983,    .00194,    .00006,    .00005,
     +     .00000,    .00006,    .00011 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
     +     .04976,    .00939,    .00181,    .00006,    .00005,
     +     .00000,    .00005,    .00010,
     +     .04773,    .00898,    .00170,    .00006,    .00005,
     +     .00000,    .00005,    .00010,
     +     .04588,    .00861,    .00160,    .00005,    .00005,
     +     .00000,    .00005,    .00010,
     +     .04419,    .00827,    .00152,    .00005,    .00005,
     +     .00000,    .00005,    .00010,
     +     .04255,    .00794,    .00143,    .00004,    .00005,
     +     .00000,    .00004,    .00009 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
     +     .27304,    .05794,    .07854,    .00019,    .00000,
     +     .00000,    .00024,    .00069,
     +     .25615,    .05397,    .06602,    .00017,    .00000,
     +     .00000,    .00021,    .00066,
     +     .23333,    .04869,    .05114,    .00018,    .00002,
     +     .00000,    .00019,    .00057,
     +     .21819,    .04521,    .04265,    .00017,    .00002,
     +     .00000,    .00018,    .00052,
     +     .20351,    .04188,    .03546,    .00018,    .00003,
     +     .00000,    .00016,    .00047,
     +     .19183,    .03924,    .03036,    .00014,    .00003,
     +     .00000,    .00016,    .00044,
     +     .18137,    .03689,    .02625,    .00011,    .00003,
     +     .00000,    .00015,    .00041,
     +     .17099,    .03457,    .02258,    .00011,    .00003,
     +     .00000,    .00014,    .00038 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
     +     .16251,    .03271,    .01988,    .00013,    .00003,
     +     .00000,    .00013,    .00035,
     +     .15481,    .03102,    .01763,    .00013,    .00003,
     +     .00000,    .00012,    .00034,
     +     .14903,    .02974,    .01605,    .00012,    .00003,
     +     .00000,    .00012,    .00033,
     +     .13747,    .02725,    .01320,    .00012,    .00003,
     +     .00000,    .00011,    .00030,
     +     .12837,    .02527,    .01118,    .00009,    .00003,
     +     .00000,    .00010,    .00027,
     +     .11899,    .02327,    .00934,    .00009,    .00003,
     +     .00000,    .00009,    .00024,
     +     .11006,    .02138,    .00782,    .00009,    .00003,
     +     .00000,    .00008,    .00022,
     +     .10263,    .01982,    .00670,    .00007,    .00003,
     +     .00000,    .00007,    .00021 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
     +     .09573,    .01837,    .00577,    .00007,    .00003,
     +     .00000,    .00007,    .00018,
     +     .09038,    .01727,    .00512,    .00007,    .00003,
     +     .00000,    .00007,    .00016,
     +     .08433,    .01602,    .00445,    .00007,    .00003,
     +     .00000,    .00006,    .00015,
     +     .07938,    .01501,    .00395,    .00007,    .00003,
     +     .00000,    .00005,    .00014,
     +     .07515,    .01415,    .00356,    .00006,    .00003,
     +     .00000,    .00005,    .00013,
     +     .07013,    .01313,    .00313,    .00006,    .00003,
     +     .00000,    .00004,    .00012,
     +     .06575,    .01225,    .00278,    .00005,    .00003,
     +     .00000,    .00004,    .00011,
     +     .06193,    .01148,    .00250,    .00005,    .00003,
     +     .00000,    .00004,    .00010 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
     +     .05835,    .01077,    .00226,    .00005,    .00003,
     +     .00000,    .00004,    .00009,
     +     .05507,    .01012,    .00205,    .00005,    .00003,
     +     .00000,    .00004,    .00008,
     +     .05216,    .00955,    .00188,    .00006,    .00003,
     +     .00000,    .00004,    .00008,
     +     .04959,    .00904,    .00173,    .00005,    .00003,
     +     .00000,    .00003,    .00007,
     +     .04715,    .00856,    .00160,    .00004,    .00003,
     +     .00000,    .00003,    .00007,
     +     .04486,    .00812,    .00148,    .00004,    .00003,
     +     .00000,    .00003,    .00006,
     +     .04281,    .00772,    .00138,    .00004,    .00003,
     +     .00000,    .00003,    .00006,
     +     .04094,    .00736,    .00129,    .00004,    .00003,
     +     .00000,    .00002,    .00006 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
     +     .03916,    .00702,    .00121,    .00004,    .00003,
     +     .00000,    .00002,    .00006,
     +     .03749,    .00670,    .00113,    .00004,    .00003,
     +     .00000,    .00002,    .00005,
     +     .03596,    .00641,    .00107,    .00004,    .00003,
     +     .00000,    .00002,    .00005,
     +     .03458,    .00615,    .00101,    .00004,    .00003,
     +     .00000,    .00002,    .00005,
     +     .03324,    .00589,    .00095,    .00003,    .00003,
     +     .00000,    .00002,    .00004 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
     +     .23240,    .04657,    .05419,    .00007,    .00000,
     +     .00000,    .00017,    .00043,
     +     .21725,    .04323,    .04520,    .00005,    .00000,
     +     .00000,    .00016,    .00040,
     +     .19688,    .03880,    .03466,    .00006,    .00000,
     +     .00000,    .00014,    .00034,
     +     .18342,    .03590,    .02870,    .00007,    .00000,
     +     .00000,    .00013,    .00031,
     +     .17043,    .03313,    .02370,    .00006,    .00000,
     +     .00000,    .00012,    .00028,
     +     .16013,    .03093,    .02018,    .00004,    .00000,
     +     .00000,    .00012,    .00026,
     +     .15093,    .02900,    .01737,    .00004,    .00000,
     +     .00000,    .00011,    .00024,
     +     .14183,    .02710,    .01489,    .00004,    .00000,
     +     .00000,    .00010,    .00022 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
     +     .13444,    .02556,    .01306,    .00004,    .00000,
     +     .00000,    .00009,    .00021,
     +     .12773,    .02418,    .01155,    .00004,    .00000,
     +     .00000,    .00008,    .00020,
     +     .12270,    .02314,    .01050,    .00004,    .00000,
     +     .00000,    .00007,    .00019,
     +     .11272,    .02111,    .00860,    .00005,    .00000,
     +     .00000,    .00007,    .00018,
     +     .10487,    .01951,    .00727,    .00004,    .00000,
     +     .00000,    .00006,    .00016,
     +     .09683,    .01790,    .00606,    .00003,    .00000,
     +     .00000,    .00006,    .00015,
     +     .08921,    .01638,    .00507,    .00002,    .00000,
     +     .00000,    .00005,    .00013,
     +     .08289,    .01512,    .00434,    .00002,    .00000,
     +     .00000,    .00005,    .00011 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
     +     .07702,    .01397,    .00373,    .00003,    .00000,
     +     .00000,    .00005,    .00009,
     +     .07251,    .01310,    .00331,    .00003,    .00000,
     +     .00000,    .00005,    .00009,
     +     .06743,    .01211,    .00288,    .00004,    .00000,
     +     .00000,    .00004,    .00008,
     +     .06329,    .01131,    .00256,    .00003,    .00000,
     +     .00000,    .00004,    .00008,
     +     .05977,    .01063,    .00230,    .00001,    .00000,
     +     .00000,    .00003,    .00007,
     +     .05558,    .00984,    .00203,    .00002,    .00000,
     +     .00000,    .00003,    .00006,
     +     .05194,    .00915,    .00181,    .00002,    .00000,
     +     .00000,    .00003,    .00006,
     +     .04877,    .00855,    .00163,    .00002,    .00000,
     +     .00000,    .00003,    .00006 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
     +     .04582,    .00800,    .00147,    .00002,    .00000,
     +     .00000,    .00002,    .00005,
     +     .04314,    .00749,    .00133,    .00002,    .00000,
     +     .00000,    .00002,    .00005,
     +     .04076,    .00705,    .00122,    .00002,    .00000,
     +     .00000,    .00002,    .00005,
     +     .03864,    .00666,    .00112,    .00002,    .00000,
     +     .00000,    .00002,    .00004,
     +     .03664,    .00629,    .00104,    .00002,    .00000,
     +     .00000,    .00002,    .00004,
     +     .03478,    .00595,    .00096,    .00002,    .00000,
     +     .00000,    .00002,    .00003,
     +     .03311,    .00565,    .00090,    .00002,    .00000,
     +     .00000,    .00002,    .00003,
     +     .03161,    .00537,    .00084,    .00001,    .00000,
     +     .00000,    .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)/
     +     .03018,    .00511,    .00078,    .00001,    .00000,
     +     .00000,    .00001,    .00003,
     +     .02883,    .00487,    .00074,    .00001,    .00000,
     +     .00000,    .00001,    .00003,
     +     .02760,    .00465,    .00069,    .00001,    .00000,
     +     .00000,    .00001,    .00003,
     +     .02649,    .00445,    .00066,    .00001,    .00000,
     +     .00000,    .00001,    .00003,
     +     .02542,    .00426,    .00062,    .00001,    .00000,
     +     .00000,    .00001,    .00002 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
     +     .16031,    .02854,    .02307,    .00003,    .00000,
     +     .00000,    .00004,    .00014,
     +     .14872,    .02629,    .01898,    .00003,    .00000,
     +     .00000,    .00004,    .00011,
     +     .13331,    .02334,    .01429,    .00002,    .00000,
     +     .00000,    .00004,    .00010,
     +     .12326,    .02143,    .01170,    .00001,    .00000,
     +     .00000,    .00003,    .00009,
     +     .11362,    .01963,    .00956,    .00002,    .00000,
     +     .00000,    .00003,    .00007,
     +     .10601,    .01821,    .00809,    .00002,    .00000,
     +     .00000,    .00003,    .00007,
     +     .09928,    .01696,    .00692,    .00001,    .00000,
     +     .00000,    .00002,    .00007,
     +     .09269,    .01574,    .00590,    .00000,    .00000,
     +     .00000,    .00002,    .00008 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
     +     .08736,    .01477,    .00516,    .00001,    .00000,
     +     .00000,    .00002,    .00006,
     +     .08256,    .01389,    .00455,    .00001,    .00000,
     +     .00000,    .00002,    .00006,
     +     .07898,    .01324,    .00413,    .00000,    .00000,
     +     .00000,    .00002,    .00005,
     +     .07192,    .01197,    .00337,    .00000,    .00000,
     +     .00000,    .00002,    .00004,
     +     .06640,    .01099,    .00285,    .00001,    .00000,
     +     .00000,    .00002,    .00004,
     +     .06079,    .01000,    .00238,    .00002,    .00000,
     +     .00000,    .00002,    .00004,
     +     .05555,    .00907,    .00199,    .00001,    .00000,
     +     .00000,    .00002,    .00003,
     +     .05124,    .00832,    .00171,    .00000,    .00000,
     +     .00000,    .00002,    .00003 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
     +     .04725,    .00763,    .00147,    .00000,    .00000,
     +     .00000,    .00001,    .00003,
     +     .04421,    .00710,    .00131,    .00001,    .00000,
     +     .00000,    .00001,    .00002,
     +     .04082,    .00652,    .00114,    .00001,    .00000,
     +     .00000,    .00001,    .00002,
     +     .03808,    .00605,    .00102,    .00001,    .00000,
     +     .00000,    .00001,    .00003,
     +     .03575,    .00566,    .00092,    .00000,    .00000,
     +     .00000,    .00001,    .00003,
     +     .03302,    .00520,    .00081,    .00000,    .00000,
     +     .00000,    .00001,    .00002,
     +     .03066,    .00480,    .00072,    .00000,    .00000,
     +     .00000,    .00001,    .00002,
     +     .02863,    .00446,    .00065,    .00000,    .00000,
     +     .00000,    .00001,    .00002 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
     +     .02673,    .00415,    .00059,    .00000,    .00000,
     +     .00000,    .00001,    .00002,
     +     .02501,    .00387,    .00054,    .00000,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02351,    .00362,    .00049,    .00000,    .00000,
     +     .00000,    .00001,    .00002,
     +     .02217,    .00340,    .00045,    .00000,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02091,    .00320,    .00042,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01976,    .00301,    .00039,    .00000,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01873,    .00284,    .00036,    .00000,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01780,    .00269,    .00034,    .00000,    .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)/
     +     .01692,    .00255,    .00032,    .00000,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01609,    .00242,    .00030,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01534,    .00230,    .00028,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01467,    .00220,    .00026,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01402,    .00209,    .00025,    .00000,    .00000,
     +     .00000,    .00000,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/
     +     .10182,    .01590,    .00817,    .00001,    .00000,
     +     .00000,    .00000,    .00004,
     +     .09370,    .01453,    .00665,    .00000,    .00000,
     +     .00000,    .00000,    .00004,
     +     .08299,    .01275,    .00496,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .07608,    .01161,    .00404,    .00001,    .00000,
     +     .00000,    .00001,    .00002,
     +     .06954,    .01054,    .00329,    .00001,    .00000,
     +     .00000,    .00000,    .00002,
     +     .06441,    .00971,    .00278,    .00001,    .00000,
     +     .00000,    .00001,    .00002,
     +     .05990,    .00898,    .00238,    .00001,    .00000,
     +     .00000,    .00001,    .00002,
     +     .05552,    .00828,    .00203,    .00001,    .00000,
     +     .00000,    .00000,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
     +     .05202,    .00772,    .00178,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .04887,    .00722,    .00157,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .04653,    .00685,    .00143,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .04198,    .00614,    .00117,   -.00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03845,    .00559,    .00100,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .03489,    .00504,    .00084,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .03159,    .00453,    .00071,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02889,    .00412,    .00061,    .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=17,24)/
     +     .02644,    .00375,    .00053,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02458,    .00347,    .00047,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02252,    .00316,    .00041,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02086,    .00292,    .00037,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01946,    .00271,    .00034,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01783,    .00247,    .00030,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01644,    .00227,    .00027,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01525,    .00209,    .00024,    .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)/
     +     .01415,    .00193,    .00022,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01316,    .00179,    .00020,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01229,    .00166,    .00018,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01153,    .00156,    .00017,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01082,    .00145,    .00015,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01016,    .00136,    .00014,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00958,    .00128,    .00013,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00907,    .00121,    .00012,    .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)/
     +     .00858,    .00114,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00812,    .00108,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00771,    .00102,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00735,    .00097,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00699,    .00092,    .00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/
     +     .05802,    .00781,    .00228,    .00001,    .00000,
     +     .00000,   -.00001,    .00000,
     +     .05290,    .00707,    .00186,    .00001,    .00000,
     +     .00000,   -.00001,    .00000,
     +     .04625,    .00612,    .00139,    .00001,    .00000,
     +     .00000,   -.00001,    .00000,
     +     .04198,    .00553,    .00114,    .00001,    .00000,
     +     .00000,   -.00001,    .00000,
     +     .03802,    .00497,    .00094,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03493,    .00454,    .00080,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03224,    .00417,    .00069,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02964,    .00381,    .00059,    .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=9,16)/
     +     .02757,    .00353,    .00052,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02573,    .00328,    .00047,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02438,    .00310,    .00043,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02175,    .00275,    .00036,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01975,    .00248,    .00031,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01775,    .00221,    .00026,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01590,    .00197,    .00022,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01441,    .00177,    .00019,    .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)/
     +     .01307,    .00160,    .00017,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01206,    .00147,    .00015,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01096,    .00133,    .00013,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01007,    .00122,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00933,    .00112,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00848,    .00101,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00775,    .00092,    .00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00713,    .00085,    .00008,    .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)/
     +     .00657,    .00078,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00607,    .00071,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00563,    .00066,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00525,    .00061,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00490,    .00057,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00458,    .00053,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00429,    .00050,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00404,    .00047,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=33,37)/
     +     .00380,    .00044,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00358,    .00041,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00338,    .00039,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00320,    .00037,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00304,    .00035,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/
     +     .02824,    .00318,    .00046,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02548,    .00285,    .00039,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02194,    .00243,    .00030,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01971,    .00217,    .00025,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01764,    .00193,    .00021,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01606,    .00175,    .00019,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01469,    .00159,    .00016,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01338,    .00144,    .00014,    .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)/
     +     .01235,    .00133,    .00013,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01144,    .00122,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01077,    .00115,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00949,    .00100,    .00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00852,    .00090,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00757,    .00079,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00670,    .00070,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00601,    .00062,    .00005,    .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)/
     +     .00540,    .00056,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00494,    .00051,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00444,    .00045,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00404,    .00041,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00372,    .00038,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00334,    .00034,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00303,    .00030,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00276,    .00028,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/
     +     .00252,    .00025,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00231,    .00023,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00213,    .00021,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00197,    .00019,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00182,    .00018,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00169,    .00017,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00158,    .00015,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00147,    .00014,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/
     +     .00138,    .00013,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00129,    .00012,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00121,    .00012,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00114,    .00011,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00108,    .00010,    .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)/
     +     .00270,    .00018,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00237,    .00016,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00195,    .00013,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00170,    .00011,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00147,    .00010,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00130,    .00009,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00116,    .00008,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00103,    .00007,    .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=9,16)/
     +     .00093,    .00006,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00084,    .00005,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00078,    .00005,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00066,    .00004,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00058,    .00004,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00050,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00042,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00037,    .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=17,24)/
     +     .00032,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00029,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00025,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00022,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00020,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00017,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00015,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00014,    .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=25,32)/
     +     .00012,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00011,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00010,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00009,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00008,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00007,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00007,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00006,    .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)/
     +     .00005,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00005,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00005,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00004,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00004,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
      data xx/1d-5,2d-5,4d-5,6d-5,8d-5,
     .            1d-4,2d-4,4d-4,6d-4,8d-4,
     .            1d-3,2d-3,4d-3,6d-3,8d-3,
     .            1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2,
     .         .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0,
     .         .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0,
     .         .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0,
     .         .8d0,.9d0,1d0/
      data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1,
     .        1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2,
     .        1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4,
     .        1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6,
     .        1.8d6,3.2d6,5.6d6,1d7/
      data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/
      data n0/3,4,5,9,9,9,9,9/
      DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
      data init/0/
      save
      xsave=x
      q2save=qsq
      if(init.ne.0) goto 10
C        open(unit=3,file='mrschm3.dat',status='old')
        do 20 n=1,nx-1
        do 20 m=1,nq
C        read(3,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