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

sfmrs_99a10.F

#include "pdf/pilot.h"
      subroutine sfmrs_99a10(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)/
     +     .00525,    .00225,   1.12228,    .89535,    .00000,
     +     .00000,    .47745,    .90766,
     +     .00541,    .00231,   2.40311,    .93067,    .00000,
     +     .00000,    .51822,    .94304,
     +     .00565,    .00242,   4.93807,   1.00814,    .00000,
     +     .00000,    .60340,   1.02058,
     +     .00583,    .00249,   7.38439,   1.08284,    .00000,
     +     .00000,    .68349,   1.09532,
     +     .00601,    .00257,  10.39913,   1.18129,    .02346,
     +     .00000,    .78739,   1.19382,
     +     .00617,    .00264,  13.34146,   1.28159,    .14145,
     +     .00000,    .89221,   1.29413,
     +     .00633,    .00271,  16.63801,   1.39105,    .27736,
     +     .00000,   1.00591,   1.40362,
     +     .00649,    .00279,  20.70532,   1.52237,    .42355,
     +     .00000,   1.14161,   1.53495 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
     +     .00664,    .00286,  24.65690,   1.65043,    .55883,
     +     .00000,   1.27340,   1.66302,
     +     .00678,    .00292,  28.90014,   1.78644,    .70347,
     +     .00000,   1.41292,   1.79903,
     +     .00689,    .00297,  32.61700,   1.90285,    .82992,
     +     .00000,   1.53207,   1.91544,
     +     .00713,    .00309,  41.21872,   2.17968,   1.12298,
     +     .02293,   1.81458,   2.19227,
     +     .00733,    .00318,  49.30855,   2.44747,   1.40347,
     +     .35118,   2.08709,   2.46004,
     +     .00757,    .00330,  59.52070,   2.78254,   1.75486,
     +     .75502,   2.42730,   2.79510,
     +     .00781,    .00342,  71.53603,   3.17173,   2.16203,
     +    1.17899,   2.82168,   3.18426,
     +     .00804,    .00353,  83.68587,   3.56207,   2.56968,
     +    1.60372,   3.21660,   3.57457 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
     +     .00827,    .00364,  97.21748,   3.99429,   3.02080,
     +    2.07185,   3.65332,   4.00676,
     +     .00846,    .00373, 109.39142,   4.38289,   3.42412,
     +    2.48593,   4.04557,   4.39534,
     +     .00870,    .00385, 125.31087,   4.89143,   3.94990,
     +    3.02384,   4.55843,   4.90383,
     +     .00891,    .00395, 140.55878,   5.37749,   4.45329,
     +    3.54107,   5.04822,   5.38985,
     +     .00910,    .00405, 155.52542,   5.85430,   4.94729,
     +    4.04895,   5.52839,   5.86663,
     +     .00935,    .00418, 175.65685,   6.50033,   5.61193,
     +    4.72622,   6.17858,   6.51260,
     +     .00958,    .00430, 195.97507,   7.15348,   6.28451,
     +    5.41334,   6.83555,   7.16570,
     +     .00981,    .00441, 216.32759,   7.80824,   6.96013,
     +    6.10577,   7.49380,   7.82042 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
     +     .01003,    .00453, 237.56422,   8.49924,   7.66784,
     +    6.82455,   8.18823,   8.51136,
     +     .01025,    .00464, 259.58493,   9.21725,   8.40484,
     +    7.57587,   8.90952,   9.22932,
     +     .01047,    .00475, 281.48926,   9.93490,   9.14117,
     +    8.32642,   9.63021,   9.94692,
     +     .01067,    .00485, 302.87012,  10.64187,   9.86407,
     +    9.06067,  10.34000,  10.65384,
     +     .01087,    .00496, 325.46841,  11.39003,  10.63113,
     +    9.84255,  11.09093,  11.40195,
     +     .01107,    .00507, 348.24216,  12.15321,  11.40980,
     +   10.63207,  11.85681,  12.16508,
     +     .01127,    .00517, 370.98849,  12.91572,  12.19038,
     +   11.42689,  12.62183,  12.92754,
     +     .01145,    .00526, 392.87900,  13.65874,  12.94753,
     +   12.19407,  13.36718,  13.67050 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
     +     .01164,    .00536, 415.90585,  14.44152,  13.74703,
     +   13.00650,  14.15229,  14.45324,
     +     .01183,    .00546, 439.12079,  15.23818,  14.55892,
     +   13.82971,  14.95122,  15.24985,
     +     .01201,    .00555, 461.94223,  16.02556,  15.36135,
     +   14.64348,  15.74072,  16.03719,
     +     .01218,    .00565, 484.27039,  16.79906,  16.15020,
     +   15.44438,  16.51622,  16.81065,
     +     .01236,    .00574, 507.09567,  17.59878,  16.96319,
     +   16.26715,  17.31792,  17.61032 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
     +     .00708,    .00307,   1.04676,    .75836,    .00000,
     +     .00000,    .40387,    .76549,
     +     .00731,    .00317,   2.20061,    .79119,    .00000,
     +     .00000,    .44095,    .79835,
     +     .00764,    .00332,   4.43490,    .85978,    .00000,
     +     .00000,    .51556,    .86698,
     +     .00789,    .00343,   6.54747,    .92421,    .00000,
     +     .00000,    .58419,    .93143,
     +     .00815,    .00355,   9.10738,   1.00755,    .01993,
     +     .00000,    .67176,   1.01479,
     +     .00837,    .00366,  11.56874,   1.09135,    .11828,
     +     .00000,    .75907,   1.09861,
     +     .00859,    .00376,  14.29358,   1.18201,    .23096,
     +     .00000,    .85302,   1.18928,
     +     .00881,    .00387,  17.61647,   1.28988,    .35077,
     +     .00000,    .96428,   1.29715 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
     +     .00901,    .00397,  20.80819,   1.39414,    .46066,
     +     .00000,   1.07143,   1.40142,
     +     .00921,    .00406,  24.20262,   1.50411,    .57732,
     +     .00000,   1.18412,   1.51139,
     +     .00936,    .00413,  27.15274,   1.59776,    .67871,
     +     .00000,   1.27989,   1.60505,
     +     .00969,    .00430,  33.89999,   1.81859,    .91164,
     +     .01872,   1.50510,   1.82587,
     +     .00998,    .00444,  40.15580,   2.03018,   1.13236,
     +     .27660,   1.72034,   2.03746,
     +     .01030,    .00460,  47.95551,   2.29261,   1.40635,
     +     .59191,   1.98673,   2.29988,
     +     .01064,    .00477,  57.01614,   2.59456,   1.72076,
     +     .91910,   2.29268,   2.60182,
     +     .01095,    .00492,  66.06915,   2.89472,   2.03270,
     +    1.24385,   2.59638,   2.90197 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
     +     .01126,    .00508,  76.04121,   3.22437,   2.37505,
     +    1.59869,   2.92949,   3.23160,
     +     .01152,    .00522,  84.92364,   3.51851,   2.67877,
     +    1.91006,   3.22644,   3.52573,
     +     .01184,    .00538,  96.42598,   3.90056,   3.07173,
     +    2.31143,   3.61182,   3.90776,
     +     .01213,    .00553, 107.33889,   4.26306,   3.44524,
     +    2.69458,   3.97720,   4.27025,
     +     .01239,    .00567, 117.96153,   4.61639,   3.80947,
     +    3.06840,   4.33310,   4.62356,
     +     .01273,    .00584, 132.11644,   5.09161,   4.29587,
     +    3.56307,   4.81152,   5.09875,
     +     .01305,    .00601, 146.27019,   5.56855,   4.78456,
     +    4.06135,   5.29140,   5.57568,
     +     .01335,    .00617, 160.32941,   6.04352,   5.27231,
     +    4.56030,   5.76906,   6.05062 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
     +     .01366,    .00633, 174.86993,   6.54130,   5.77961,
     +    5.07441,   6.26947,   6.54838,
     +     .01396,    .00649, 189.83273,   7.05538,   6.30480,
     +    5.60872,   6.78607,   7.06243,
     +     .01425,    .00664, 204.60663,   7.56616,   6.82648,
     +    6.13940,   7.29920,   7.57319,
     +     .01452,    .00678, 218.92163,   8.06642,   7.33565,
     +    6.65543,   7.80163,   8.07343,
     +     .01479,    .00693, 233.95966,   8.59319,   7.87338,
     +    7.20246,   8.33054,   8.60018,
     +     .01507,    .00707, 249.00482,   9.12747,   8.41606,
     +    7.75149,   8.86689,   9.13444,
     +     .01533,    .00721, 263.95044,   9.65888,   8.95780,
     +    8.30201,   9.40023,   9.66582,
     +     .01558,    .00734, 278.23807,  10.17401,   9.48047,
     +    8.83043,   9.91716,  10.18093 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
     +     .01583,    .00748, 293.19366,  10.71448,  10.03024,
     +    9.38798,  10.45942,  10.72138,
     +     .01608,    .00761, 308.18170,  11.26193,  10.58589,
     +    9.95019,  11.00862,  11.26881,
     +     .01632,    .00774, 322.84000,  11.80074,  11.13283,
     +   10.50371,  11.54907,  11.80760,
     +     .01655,    .00787, 337.11465,  12.32802,  11.66853,
     +   11.04652,  12.07789,  12.33486,
     +     .01679,    .00799, 351.62543,  12.87079,  12.21815,
     +   11.60155,  12.62219,  12.87761 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
     +     .00955,    .00419,    .97736,    .64207,    .00000,
     +     .00000,    .34173,    .64559,
     +     .00987,    .00434,   2.01640,    .67231,    .00000,
     +     .00000,    .37528,    .67584,
     +     .01034,    .00456,   3.98421,    .73292,    .00000,
     +     .00000,    .44057,    .73647,
     +     .01068,    .00473,   5.80641,    .78845,    .00000,
     +     .00000,    .49937,    .79201,
     +     .01104,    .00491,   7.97670,    .85896,    .01692,
     +     .00000,    .57315,    .86252,
     +     .01135,    .00506,  10.03171,    .92892,    .09886,
     +     .00000,    .64583,    .93249,
     +     .01165,    .00521,  12.27906,   1.00393,    .19225,
     +     .00000,    .72338,   1.00750,
     +     .01197,    .00537,  14.98715,   1.09241,    .29039,
     +     .00000,    .81448,   1.09599 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
     +     .01224,    .00551,  17.55810,   1.17715,    .37960,
     +     .00000,    .90145,   1.18073,
     +     .01251,    .00564,  20.26553,   1.26589,    .47361,
     +     .00000,    .99228,   1.26947,
     +     .01273,    .00575,  22.59988,   1.34107,    .55485,
     +     .00000,   1.06909,   1.34465,
     +     .01318,    .00599,  27.87453,   1.51676,    .73977,
     +     .01528,   1.24816,   1.52035,
     +     .01357,    .00619,  32.69355,   1.68348,    .91325,
     +     .21775,   1.41768,   1.68707,
     +     .01402,    .00642,  38.62614,   1.88836,   1.12657,
     +     .46382,   1.62560,   1.89195,
     +     .01448,    .00666,  45.42850,   2.12183,   1.36896,
     +     .71614,   1.86214,   2.12541,
     +     .01490,    .00688,  52.14231,   2.35181,   1.60722,
     +     .96424,   2.09482,   2.35539 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
     +     .01533,    .00711,  59.45475,   2.60226,   1.86648,
     +    1.23295,   2.34792,   2.60583,
     +     .01569,    .00730,  65.90182,   2.82399,   2.09467,
     +    1.46680,   2.57180,   2.82756,
     +     .01613,    .00753,  74.16721,   3.10979,   2.38764,
     +    1.76589,   2.86014,   3.11336,
     +     .01652,    .00773,  81.93324,   3.37895,   2.66407,
     +    2.04931,   3.13150,   3.38252,
     +     .01688,    .00793,  89.42848,   3.63958,   2.93186,
     +    2.32400,   3.39409,   3.64314,
     +     .01734,    .00817,  99.31969,   3.98748,   3.28675,
     +    2.68462,   3.74444,   3.99105,
     +     .01778,    .00840, 109.11588,   4.33405,   3.64070,
     +    3.04524,   4.09325,   4.33761,
     +     .01819,    .00862, 118.76360,   4.67686,   3.99166,
     +    3.40399,   4.43811,   4.68041 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
     +     .01860,    .00885, 128.65027,   5.03356,   4.35400,
     +    3.77081,   4.79682,   5.03712,
     +     .01900,    .00906, 138.74493,   5.39967,   4.72688,
     +    4.14981,   5.16485,   5.40322,
     +     .01939,    .00927, 148.63646,   5.76123,   5.09506,
     +    4.52400,   5.52820,   5.76478,
     +     .01976,    .00947, 158.14757,   6.11323,   5.45224,
     +    4.88561,   5.88185,   6.11677,
     +     .02013,    .00967, 168.07722,   6.48201,   5.82766,
     +    5.26717,   6.25226,   6.48555,
     +     .02050,    .00987, 177.93613,   6.85384,   6.20423,
     +    5.64771,   6.62567,   6.85738,
     +     .02085,    .01006, 187.67624,   7.22200,   6.57856,
     +    6.02776,   6.99530,   7.22553,
     +     .02118,    .01025, 196.92212,   7.57695,   6.93768,
     +    6.39043,   7.35163,   7.58048 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
     +     .02152,    .01043, 206.55217,   7.94781,   7.31398,
     +    6.77167,   7.72386,   7.95134,
     +     .02186,    .01062, 216.14240,   8.32164,   7.69241,
     +    7.15415,   8.09902,   8.32517,
     +     .02218,    .01079, 225.47247,   8.68800,   8.06336,
     +    7.52917,   8.46663,   8.69153,
     +     .02249,    .01096, 234.51477,   9.04512,   8.42533,
     +    7.89559,   8.82493,   9.04865,
     +     .02280,    .01113, 243.65152,   9.41106,   8.79495,
     +    8.26842,   9.19203,   9.41458 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
     +     .01139,    .00503,    .93976,    .58238,    .00000,
     +     .00000,    .30999,    .58441,
     +     .01177,    .00522,   1.91686,    .61110,    .00000,
     +     .00000,    .34157,    .61313,
     +     .01234,    .00550,   3.74307,    .66741,    .00000,
     +     .00000,    .40193,    .66945,
     +     .01276,    .00571,   5.41321,    .71829,    .00000,
     +     .00000,    .45562,    .72034,
     +     .01320,    .00593,   7.38202,    .78220,    .01537,
     +     .00000,    .52236,    .78425,
     +     .01357,    .00612,   9.22923,    .84512,    .08900,
     +     .00000,    .58762,    .84718,
     +     .01393,    .00631,  11.23462,    .91222,    .17264,
     +     .00000,    .65689,    .91427,
     +     .01431,    .00651,  13.63402,    .99095,    .25994,
     +     .00000,    .73788,    .99301 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
     +     .01465,    .00668,  15.89602,   1.06594,    .33887,
     +     .00000,    .81478,   1.06800,
     +     .01497,    .00685,  18.26413,   1.14413,    .42168,
     +     .00000,    .89476,   1.14619,
     +     .01523,    .00698,  20.29624,   1.21015,    .49300,
     +     .00000,    .96219,   1.21222,
     +     .01578,    .00727,  24.85473,   1.36364,    .65446,
     +     .01356,   1.11857,   1.36572,
     +     .01625,    .00752,  28.98272,   1.50844,    .80502,
     +     .18925,   1.26576,   1.51051,
     +     .01679,    .00780,  34.02618,   1.68539,    .98913,
     +     .40199,   1.44532,   1.68747,
     +     .01734,    .00810,  39.76410,   1.88587,   1.19709,
     +     .61863,   1.64842,   1.88796,
     +     .01785,    .00837,  45.38597,   2.08228,   1.40038,
     +     .83045,   1.84714,   2.08437 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
     +     .01837,    .00865,  51.46790,   2.29508,   1.62046,
     +    1.05866,   2.06221,   2.29718,
     +     .01880,    .00888,  56.79725,   2.48261,   1.81326,
     +    1.25631,   2.25157,   2.48471,
     +     .01933,    .00916,  63.58873,   2.72321,   2.05964,
     +    1.50791,   2.49434,   2.72532,
     +     .01979,    .00941,  69.93290,   2.94881,   2.29108,
     +    1.74527,   2.72181,   2.95092,
     +     .02023,    .00965,  76.02460,   3.16638,   2.51442,
     +    1.97442,   2.94106,   3.16849,
     +     .02077,    .00994,  84.01689,   3.45551,   2.80904,
     +    2.27383,   3.23227,   3.45763,
     +     .02129,    .01023,  91.88715,   3.74225,   3.10160,
     +    2.57192,   3.52092,   3.74438,
     +     .02178,    .01049,  99.59846,   4.02474,   3.39054,
     +    2.86733,   3.80515,   4.02687 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
     +     .02228,    .01076, 107.45668,   4.31742,   3.68753,
     +    3.16798,   4.09954,   4.31956,
     +     .02276,    .01103, 115.44278,   4.61670,   3.99206,
     +    3.47752,   4.40046,   4.61884,
     +     .02322,    .01128, 123.23236,   4.91120,   4.29169,
     +    3.78205,   4.69648,   4.91335,
     +     .02366,    .01152, 130.68756,   5.19688,   4.58130,
     +    4.07524,   4.98356,   5.19903,
     +     .02410,    .01176, 138.44206,   5.49528,   4.88483,
     +    4.38375,   5.28336,   5.49744,
     +     .02454,    .01200, 146.10555,   5.79509,   5.18818,
     +    4.69026,   5.58451,   5.79725,
     +     .02496,    .01223, 153.65193,   6.09112,   5.48897,
     +    4.99566,   5.88180,   6.09330,
     +     .02535,    .01245, 160.78462,   6.37562,   5.77655,
     +    5.28604,   6.16747,   6.37780 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
     +     .02575,    .01267, 168.19147,   6.67214,   6.07719,
     +    5.59063,   6.46515,   6.67433,
     +     .02615,    .01289, 175.53937,   6.97014,   6.37864,
     +    5.89528,   6.76429,   6.97234,
     +     .02654,    .01311, 182.66512,   7.26145,   6.67339,
     +    6.19325,   7.05666,   7.26365,
     +     .02690,    .01331, 189.55107,   7.54475,   6.96035,
     +    6.48373,   7.34096,   7.54696,
     +     .02727,    .01351, 196.48325,   7.83425,   7.25254,
     +    6.77843,   7.63145,   7.83646 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
     +     .01290,    .00573,    .91453,    .54337,    .00000,
     +     .00000,    .28933,    .54459,
     +     .01335,    .00595,   1.84989,    .57102,    .00000,
     +     .00000,    .31955,    .57224,
     +     .01400,    .00629,   3.58151,    .62443,    .00000,
     +     .00000,    .37661,    .62566,
     +     .01448,    .00653,   5.15101,    .67224,    .00000,
     +     .00000,    .42696,    .67348,
     +     .01497,    .00679,   6.98749,    .73184,    .01436,
     +     .00000,    .48909,    .73307,
     +     .01540,    .00701,   8.69919,    .79018,    .08258,
     +     .00000,    .54954,    .79142,
     +     .01582,    .00723,  10.54770,    .85214,    .15992,
     +     .00000,    .61346,    .85339,
     +     .01626,    .00746,  12.74810,    .92459,    .24024,
     +     .00000,    .68794,    .92584 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
     +     .01664,    .00766,  14.81205,    .99331,    .31258,
     +     .00000,    .75837,    .99456,
     +     .01701,    .00786,  16.96367,   1.06474,    .38825,
     +     .00000,    .83141,   1.06599,
     +     .01730,    .00801,  18.80372,   1.12491,    .45324,
     +     .00000,    .89284,   1.12617,
     +     .01793,    .00835,  22.90975,   1.26427,    .59984,
     +     .01246,   1.03480,   1.26554,
     +     .01847,    .00864,  26.60425,   1.39517,    .73593,
     +     .17127,   1.16784,   1.39645,
     +     .01908,    .00896,  31.09339,   1.55451,    .90169,
     +     .36309,   1.32952,   1.55580,
     +     .01971,    .00931,  36.17203,   1.73428,   1.08812,
     +     .55744,   1.51163,   1.73557,
     +     .02029,    .00962,  41.12167,   1.90970,   1.26965,
     +     .74672,   1.68911,   1.91100 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
     +     .02088,    .00994,  46.45036,   2.09906,   1.46545,
     +     .94988,   1.88051,   2.10038,
     +     .02137,    .01021,  51.09896,   2.26538,   1.63639,
     +    1.12520,   2.04846,   2.26670,
     +     .02197,    .01053,  56.99728,   2.47806,   1.85411,
     +    1.34763,   2.26308,   2.47939,
     +     .02250,    .01082,  62.48400,   2.67683,   2.05798,
     +    1.55682,   2.46353,   2.67818,
     +     .02299,    .01109,  67.73302,   2.86800,   2.25416,
     +    1.75819,   2.65619,   2.86935,
     +     .02362,    .01143,  74.59054,   3.12121,   2.51209,
     +    2.02041,   2.91126,   3.12257,
     +     .02421,    .01176,  81.31540,   3.37151,   2.76740,
     +    2.28065,   3.16327,   3.37289,
     +     .02476,    .01206,  87.88012,   3.61740,   3.01885,
     +    2.53782,   3.41072,   3.61879 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
     +     .02532,    .01237,  94.54267,   3.87136,   3.27647,
     +    2.79868,   3.66620,   3.87276,
     +     .02587,    .01267, 101.29082,   4.13036,   3.53995,
     +    3.06659,   3.92667,   4.13178,
     +     .02639,    .01296, 107.85107,   4.38456,   3.79852,
     +    3.32947,   4.18223,   4.38599,
     +     .02689,    .01324, 114.10844,   4.63050,   4.04778,
     +    3.58187,   4.42942,   4.63194,
     +     .02739,    .01351, 120.59962,   4.88685,   4.30850,
     +    3.84695,   4.68701,   4.88831,
     +     .02788,    .01379, 126.99264,   5.14374,   4.56835,
     +    4.10956,   4.94510,   5.14521,
     +     .02835,    .01405, 133.27339,   5.39691,   4.82555,
     +    4.37078,   5.19939,   5.39839,
     +     .02880,    .01430, 139.19069,   5.63963,   5.07085,
     +    4.61852,   5.44315,   5.64112 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
     +     .02925,    .01455, 145.32248,   5.89217,   5.32687,
     +    4.87796,   5.69673,   5.89367,
     +     .02970,    .01480, 151.38820,   6.14542,   5.58301,
     +    5.13688,   5.95100,   6.14694,
     +     .03013,    .01504, 157.25691,   6.39254,   5.83301,
     +    5.38966,   6.19907,   6.39407,
     +     .03054,    .01527, 162.91612,   6.63246,   6.07601,
     +    5.63571,   6.43988,   6.63400,
     +     .03096,    .01550, 168.59784,   6.87713,   6.32292,
     +    5.88478,   6.68544,   6.87869 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
     +     .01421,    .00634,    .89586,    .51491,    .00000,
     +     .00000,    .27429,    .51563,
     +     .01471,    .00659,   1.80006,    .54172,    .00000,
     +     .00000,    .30349,    .54245,
     +     .01544,    .00697,   3.46150,    .59298,    .00000,
     +     .00000,    .35811,    .59371,
     +     .01597,    .00725,   4.95680,    .63853,    .00000,
     +     .00000,    .40599,    .63926,
     +     .01652,    .00754,   6.69629,    .69496,    .01361,
     +     .00000,    .46477,    .69570,
     +     .01700,    .00779,   8.30917,    .74997,    .07792,
     +     .00000,    .52172,    .75071,
     +     .01745,    .00804,  10.04378,    .80821,    .15068,
     +     .00000,    .58177,    .80896,
     +     .01794,    .00830,  12.10030,    .87611,    .22596,
     +     .00000,    .65153,    .87687 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
     +     .01837,    .00852,  14.02164,    .94031,    .29355,
     +     .00000,    .71731,    .94107,
     +     .01878,    .00874,  16.01795,   1.00687,    .36409,
     +     .00000,    .78536,   1.00764,
     +     .01910,    .00892,  17.72059,   1.06284,    .42455,
     +     .00000,    .84249,   1.06362,
     +     .01980,    .00929,  21.50437,   1.19208,    .56052,
     +     .01166,    .97411,   1.19287,
     +     .02040,    .00962,  24.89169,   1.31306,    .68633,
     +     .15847,   1.09707,   1.31386,
     +     .02107,    .00998,  28.98990,   1.45987,    .83906,
     +     .33545,   1.24602,   1.46068,
     +     .02178,    .01037,  33.60579,   1.62495,   1.01028,
     +     .51407,   1.41325,   1.62577,
     +     .02242,    .01072,  38.08572,   1.78554,   1.17647,
     +     .68747,   1.57574,   1.78638 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
     +     .02307,    .01107,  42.89031,   1.95840,   1.35521,
     +     .87304,   1.75046,   1.95925,
     +     .02361,    .01137,  47.06711,   2.10981,   1.51084,
     +    1.03275,   1.90338,   2.11068,
     +     .02427,    .01174,  52.34855,   2.30293,   1.70854,
     +    1.23484,   2.09828,   2.30381,
     +     .02486,    .01206,  57.24530,   2.48297,   1.89321,
     +    1.42441,   2.27985,   2.48386,
     +     .02540,    .01236,  61.91633,   2.65573,   2.07051,
     +    1.60650,   2.45399,   2.65664,
     +     .02609,    .01274,  67.99828,   2.88397,   2.30301,
     +    1.84297,   2.68393,   2.88490,
     +     .02674,    .01310,  73.94312,   3.10903,   2.53258,
     +    2.07708,   2.91056,   3.10998,
     +     .02735,    .01344,  79.72946,   3.32961,   2.75817,
     +    2.30792,   3.13257,   3.33058 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
     +     .02797,    .01378,  85.58313,   3.55689,   2.98871,
     +    2.54145,   3.36124,   3.55787,
     +     .02857,    .01412,  91.49623,   3.78818,   3.22402,
     +    2.78081,   3.59387,   3.78918,
     +     .02915,    .01444,  97.22963,   4.01473,   3.45448,
     +    3.01520,   3.82167,   4.01575,
     +     .02969,    .01474, 102.68355,   4.23346,   3.67618,
     +    3.23977,   4.04155,   4.23450,
     +     .03024,    .01505, 108.32943,   4.46107,   3.90769,
     +    3.47525,   4.27029,   4.46213,
     +     .03078,    .01535, 113.87471,   4.68869,   4.13795,
     +    3.70803,   4.49901,   4.68976,
     +     .03130,    .01564, 119.31264,   4.91268,   4.36554,
     +    3.93927,   4.72403,   4.91377,
     +     .03179,    .01592, 124.42277,   5.12702,   4.58216,
     +    4.15812,   4.93933,   5.12813 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
     +     .03229,    .01620, 129.70924,   5.34972,   4.80796,
     +    4.38703,   5.16298,   5.35085,
     +     .03278,    .01647, 134.92703,   5.57268,   5.03348,
     +    4.61507,   5.38687,   5.57383,
     +     .03326,    .01674, 139.96600,   5.78992,   5.25329,
     +    4.83739,   5.60498,   5.79109,
     +     .03371,    .01699, 144.81709,   6.00056,   5.46666,
     +    5.05352,   5.81644,   6.00174,
     +     .03417,    .01725, 149.67650,   6.21503,   5.68311,
     +    5.27193,   6.03172,   6.21622 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
     +     .01923,    .00871,    .84367,    .43567,    .00000,
     +     .00000,    .23264,    .43550,
     +     .01992,    .00909,   1.65750,    .45994,    .00000,
     +     .00000,    .25879,    .45979,
     +     .02093,    .00964,   3.11732,    .50492,    .00000,
     +     .00000,    .30642,    .50479,
     +     .02166,    .01005,   4.40189,    .54403,    .00000,
     +     .00000,    .34737,    .54391,
     +     .02243,    .01047,   5.86864,    .59161,    .01153,
     +     .00000,    .39679,    .59151,
     +     .02309,    .01084,   7.20615,    .63735,    .06496,
     +     .00000,    .44404,    .63727,
     +     .02373,    .01119,   8.62575,    .68531,    .12509,
     +     .00000,    .49342,    .68524,
     +     .02440,    .01156,  10.28732,    .74069,    .18653,
     +     .00000,    .55026,    .74064 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
     +     .02499,    .01189,  11.82007,    .79252,    .24119,
     +     .00000,    .60333,    .79249,
     +     .02555,    .01221,  13.39576,    .84583,    .29779,
     +     .00000,    .65780,    .84582,
     +     .02600,    .01246,  14.72825,    .89041,    .34601,
     +     .00000,    .70328,    .89041,
     +     .02696,    .01299,  17.65043,    .99232,    .45341,
     +     .00949,    .80705,    .99236,
     +     .02778,    .01346,  20.22408,   1.08670,    .55171,
     +     .12429,    .90296,   1.08676,
     +     .02871,    .01398,  23.29516,   1.20008,    .66987,
     +     .26184,   1.01801,   1.20017,
     +     .02967,    .01452,  26.70554,   1.32622,    .80092,
     +     .39895,   1.14583,   1.32635,
     +     .03055,    .01502,  29.97158,   1.44771,    .92687,
     +     .53075,   1.26880,   1.44788 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
     +     .03144,    .01552,  33.43157,   1.57730,   1.06109,
     +     .67048,   1.39983,   1.57750,
     +     .03218,    .01594,  36.40583,   1.68984,   1.17695,
     +     .78969,   1.51354,   1.69008,
     +     .03308,    .01645,  40.12552,   1.83220,   1.32291,
     +     .93927,   1.65727,   1.83247,
     +     .03388,    .01690,  43.53792,   1.96384,   1.45816,
     +    1.07848,   1.79011,   1.96415,
     +     .03461,    .01732,  46.76278,   2.08927,   1.58711,
     +    1.21125,   1.91660,   2.08961,
     +     .03555,    .01785,  50.91646,   2.25363,   1.75479,
     +    1.38218,   2.08228,   2.25401,
     +     .03643,    .01835,  54.93406,   2.41439,   1.91903,
     +    1.55008,   2.24425,   2.41481,
     +     .03726,    .01882,  58.80806,   2.57082,   2.07930,
     +    1.71448,   2.40179,   2.57128 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
     +     .03809,    .01929,  62.68601,   2.73072,   2.24174,
     +    1.87938,   2.56277,   2.73122,
     +     .03890,    .01975,  66.56994,   2.89238,   2.40648,
     +    2.04734,   2.72546,   2.89291,
     +     .03967,    .02020,  70.30402,   3.04969,   2.56677,
     +    2.21074,   2.88374,   3.05026,
     +     .04040,    .02061,  73.82474,   3.20057,   2.71993,
     +    2.36622,   3.03551,   3.20118,
     +     .04114,    .02103,  77.44503,   3.35674,   2.87907,
     +    2.52846,   3.19256,   3.35738,
     +     .04187,    .02145,  80.96884,   3.51189,   3.03625,
     +    2.68769,   3.34856,   3.51257,
     +     .04256,    .02184,  84.40439,   3.66384,   3.19093,
     +    2.84520,   3.50131,   3.66456,
     +     .04322,    .02222,  87.60541,   3.80836,   3.33721,
     +    2.99328,   3.64657,   3.80911 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
     +     .04389,    .02260,  90.89925,   3.95787,   3.48907,
     +    3.14757,   3.79681,   3.95865,
     +     .04454,    .02297,  94.12605,   4.10674,   3.63990,
     +    3.30040,   3.94640,   4.10756,
     +     .04517,    .02333,  97.22351,   4.25113,   3.78624,
     +    3.44872,   4.09146,   4.25197,
     +     .04577,    .02367, 100.18954,   4.39053,   3.92772,
     +    3.59234,   4.23150,   4.39141,
     +     .04638,    .02402, 103.13859,   4.53174,   4.07045,
     +    3.73664,   4.37334,   4.53265 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
     +     .02608,    .01207,    .80311,    .36902,    .00000,
     +     .00000,    .19789,    .36881,
     +     .02704,    .01262,   1.53565,    .39083,    .00000,
     +     .00000,    .22121,    .39066,
     +     .02845,    .01343,   2.81595,    .43011,    .00000,
     +     .00000,    .26262,    .43000,
     +     .02947,    .01402,   3.91590,    .46356,    .00000,
     +     .00000,    .29755,    .46349,
     +     .03054,    .01463,   5.14732,    .50353,    .00974,
     +     .00000,    .33899,    .50350,
     +     .03145,    .01516,   6.25057,    .54140,    .05397,
     +     .00000,    .37808,    .54142,
     +     .03233,    .01567,   7.40527,    .58071,    .10348,
     +     .00000,    .41853,    .58077,
     +     .03326,    .01621,   8.73857,    .62566,    .15345,
     +     .00000,    .46465,    .62577 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
     +     .03407,    .01668,   9.95205,    .66728,    .19745,
     +     .00000,    .50725,    .66742,
     +     .03485,    .01713,  11.18557,    .70972,    .24266,
     +     .00000,    .55063,    .70990,
     +     .03547,    .01749,  12.21937,    .74500,    .28093,
     +     .00000,    .58663,    .74521,
     +     .03679,    .01825,  14.45469,    .82481,    .36532,
     +     .00769,    .66793,    .82508,
     +     .03792,    .01891,  16.38918,    .89787,    .44169,
     +     .09702,    .74223,    .89820,
     +     .03918,    .01965,  18.66395,    .98472,    .53253,
     +     .20339,    .83041,    .98512,
     +     .04050,    .02041,  21.15230,   1.08026,    .63217,
     +     .30807,    .92730,   1.08074,
     +     .04170,    .02111,  23.50172,   1.17133,    .72694,
     +     .40766,   1.01955,   1.17187 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
     +     .04291,    .02182,  25.95836,   1.26752,    .82696,
     +     .51222,   1.11690,   1.26812,
     +     .04392,    .02240,  28.04485,   1.35031,    .91253,
     +     .60061,   1.20063,   1.35097,
     +     .04514,    .02311,  30.62366,   1.45411,   1.01937,
     +     .71054,   1.30553,   1.45484,
     +     .04623,    .02374,  32.96280,   1.54928,   1.11755,
     +     .81201,   1.40167,   1.55008,
     +     .04722,    .02432,  35.15145,   1.63929,   1.21046,
     +     .90806,   1.49254,   1.64015,
     +     .04848,    .02505,  37.93750,   1.75621,   1.33019,
     +    1.03061,   1.61051,   1.75713,
     +     .04967,    .02574,  40.60201,   1.86960,   1.44650,
     +    1.14998,   1.72488,   1.87059,
     +     .05079,    .02639,  43.14568,   1.97910,   1.55915,
     +    1.26601,   1.83527,   1.98016 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
     +     .05190,    .02704,  45.66245,   2.09009,   1.67233,
     +    1.38134,   1.94713,   2.09121,
     +     .05300,    .02768,  48.16002,   2.20151,   1.78633,
     +    1.49804,   2.05939,   2.20270,
     +     .05403,    .02828,  50.53921,   2.30919,   1.89650,
     +    1.61079,   2.16785,   2.31045,
     +     .05501,    .02885,  52.76058,   2.41174,   2.00101,
     +    1.71729,   2.27112,   2.41306,
     +     .05600,    .02942,  55.02855,   2.51731,   2.10901,
     +    1.82784,   2.37739,   2.51868,
     +     .05697,    .02998,  57.21357,   2.62143,   2.21490,
     +    1.93551,   2.48220,   2.62287,
     +     .05789,    .03052,  59.33088,   2.72291,   2.31863,
     +    2.04157,   2.58433,   2.72441,
     +     .05876,    .03102,  61.28451,   2.81879,   2.41605,
     +    2.14055,   2.68080,   2.82034 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
     +     .05965,    .03153,  63.28346,   2.91753,   2.51675,
     +    2.24326,   2.78015,   2.91914,
     +     .06052,    .03204,  65.22508,   3.01527,   2.61616,
     +    2.34438,   2.87847,   3.01693,
     +     .06136,    .03252,  67.07655,   3.10960,   2.71215,
     +    2.44204,   2.97335,   3.11132,
     +     .06215,    .03298,  68.83904,   3.20028,   2.80456,
     +    2.53621,   3.06455,   3.20205,
     +     .06295,    .03345,  70.57619,   3.29161,   2.89723,
     +    2.63025,   3.15639,   3.29343 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
     +     .03125,    .01471,    .78728,    .33541,    .00000,
     +     .00000,    .18046,    .33548,
     +     .03241,    .01539,   1.47607,    .35581,    .00000,
     +     .00000,    .20221,    .35594,
     +     .03412,    .01640,   2.66008,    .39199,    .00000,
     +     .00000,    .24028,    .39222,
     +     .03536,    .01714,   3.66217,    .42243,    .00000,
     +     .00000,    .27204,    .42272,
     +     .03665,    .01790,   4.77032,    .45841,    .00880,
     +     .00000,    .30933,    .45877,
     +     .03776,    .01855,   5.75224,    .49222,    .04829,
     +     .00000,    .34423,    .49264,
     +     .03882,    .01918,   6.77103,    .52709,    .09236,
     +     .00000,    .38012,    .52758,
     +     .03994,    .01984,   7.93750,    .56673,    .13648,
     +     .00000,    .42080,    .56727 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
     +     .04092,    .02042,   8.99029,    .60318,    .17511,
     +     .00000,    .45813,    .60378,
     +     .04186,    .02098,  10.05298,    .64016,    .21461,
     +     .00000,    .49595,    .64082,
     +     .04261,    .02142,  10.93865,    .67078,    .24791,
     +     .00000,    .52722,    .67149,
     +     .04419,    .02235,  12.83681,    .73962,    .32089,
     +     .00677,    .59740,    .74042,
     +     .04555,    .02316,  14.46139,    .80219,    .38649,
     +     .08360,    .66107,    .80307,
     +     .04707,    .02405,  16.35427,    .87608,    .46401,
     +     .17474,    .73616,    .87706,
     +     .04866,    .02499,  18.40549,    .95681,    .54847,
     +     .26374,    .81810,    .95788,
     +     .05009,    .02584,  20.32501,   1.03325,    .62828,
     +     .34787,    .89561,   1.03441 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
     +     .05155,    .02669,  22.31572,   1.11351,    .71201,
     +     .43567,    .97691,   1.11476,
     +     .05275,    .02740,  23.99372,   1.18220,    .78324,
     +     .50948,   1.04645,   1.18353,
     +     .05421,    .02826,  26.05224,   1.26785,    .87170,
     +     .60078,   1.13309,   1.26928,
     +     .05550,    .02902,  27.90619,   1.34598,    .95257,
     +     .68462,   1.21208,   1.34749,
     +     .05668,    .02972,  29.62998,   1.41952,   1.02875,
     +     .76362,   1.28640,   1.42111,
     +     .05818,    .03060,  31.80782,   1.51452,   1.12637,
     +     .86385,   1.38236,   1.51621,
     +     .05960,    .03143,  33.87578,   1.60618,   1.22072,
     +     .96098,   1.47490,   1.60796,
     +     .06092,    .03221,  35.83751,   1.69428,   1.31167,
     +    1.05497,   1.56381,   1.69614 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
     +     .06224,    .03299,  37.76382,   1.78309,   1.40255,
     +    1.14786,   1.65341,   1.78505,
     +     .06354,    .03375,  39.66434,   1.87187,   1.49370,
     +    1.24147,   1.74295,   1.87392,
     +     .06477,    .03446,  41.46411,   1.95731,   1.58142,
     +    1.33153,   1.82910,   1.95943,
     +     .06592,    .03514,  43.13371,   2.03831,   1.66425,
     +    1.41620,   1.91075,   2.04051,
     +     .06709,    .03582,  44.83072,   2.12141,   1.74957,
     +    1.50382,   1.99450,   2.12369,
     +     .06823,    .03649,  46.45452,   2.20300,   1.83283,
     +    1.58875,   2.07671,   2.20536,
     +     .06932,    .03713,  48.02207,   2.28228,   1.91416,
     +    1.67217,   2.15659,   2.28472,
     +     .07035,    .03772,  49.45889,   2.35687,   1.99021,
     +    1.74968,   2.23172,   2.35937 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
     +     .07139,    .03833,  50.92385,   2.43347,   2.06861,
     +    1.82991,   2.30887,   2.43605,
     +     .07241,    .03893,  52.33867,   2.50901,   2.14572,
     +    1.90858,   2.38494,   2.51166,
     +     .07339,    .03950,  53.68195,   2.58170,   2.21994,
     +    1.98434,   2.45813,   2.58442,
     +     .07433,    .04004,  54.95578,   2.65139,   2.29121,
     +    2.05721,   2.52829,   2.65417,
     +     .07527,    .04059,  56.20375,   2.72131,   2.36240,
     +    2.12968,   2.59868,   2.72415 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
     +     .03557,    .01701,    .78110,    .31390,    .00000,
     +     .00000,    .16931,    .31426,
     +     .03691,    .01781,   1.44034,    .33332,    .00000,
     +     .00000,    .18998,    .33376,
     +     .03887,    .01898,   2.55929,    .36739,    .00000,
     +     .00000,    .22580,    .36794,
     +     .04030,    .01984,   3.49571,    .39580,    .00000,
     +     .00000,    .25543,    .39645,
     +     .04178,    .02072,   4.52177,    .42913,    .00817,
     +     .00000,    .28998,    .42986,
     +     .04304,    .02148,   5.42346,    .46025,    .04454,
     +     .00000,    .32211,    .46107,
     +     .04426,    .02221,   6.35293,    .49221,    .08503,
     +     .00000,    .35501,    .49310,
     +     .04555,    .02298,   7.41043,    .52836,    .12533,
     +     .00000,    .39214,    .52934 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
     +     .04666,    .02365,   8.35890,    .56146,    .16047,
     +     .00000,    .42605,    .56250,
     +     .04774,    .02429,   9.31130,    .59490,    .19626,
     +     .00000,    .46028,    .59602,
     +     .04859,    .02480,  10.10174,    .62252,    .22636,
     +     .00000,    .48850,    .62369,
     +     .05040,    .02588,  11.78455,    .68430,    .29201,
     +     .00618,    .55153,    .68559,
     +     .05194,    .02680,  13.21281,    .74017,    .35072,
     +     .07502,    .60842,    .74156,
     +     .05368,    .02784,  14.86551,    .80582,    .41978,
     +     .15646,    .67520,    .80733,
     +     .05548,    .02891,  16.64384,    .87717,    .49463,
     +     .23552,    .74768,    .87880,
     +     .05711,    .02988,  18.29688,    .94441,    .56502,
     +     .30991,    .81592,    .94615 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
     +     .05876,    .03086,  20.00068,   1.01469,    .63856,
     +     .38722,    .88718,   1.01654,
     +     .06012,    .03167,  21.42863,   1.07459,    .70085,
     +     .45193,    .94788,   1.07654,
     +     .06177,    .03265,  23.17052,   1.14898,    .77790,
     +     .53164,   1.02320,   1.15104,
     +     .06323,    .03352,  24.73088,   1.21657,    .84806,
     +     .60458,   1.09160,   1.21873,
     +     .06457,    .03431,  26.17481,   1.27997,    .91393,
     +     .67307,   1.15573,   1.28222,
     +     .06627,    .03531,  27.98859,   1.36153,    .99800,
     +     .75960,   1.23820,   1.36391,
     +     .06786,    .03625,  29.70154,   1.43992,   1.07893,
     +     .84314,   1.31742,   1.44241,
     +     .06935,    .03714,  31.31868,   1.51500,   1.15668,
     +     .92370,   1.39326,   1.51759 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
     +     .07084,    .03801,  32.89736,   1.59039,   1.23405,
     +    1.00299,   1.46940,   1.59309,
     +     .07230,    .03887,  34.44798,   1.66550,   1.31141,
     +    1.08265,   1.54523,   1.66831,
     +     .07368,    .03968,  35.90975,   1.73756,   1.38562,
     +    1.15904,   1.61796,   1.74046,
     +     .07498,    .04045,  37.25903,   1.80564,   1.45545,
     +    1.23062,   1.68666,   1.80864,
     +     .07629,    .04121,  38.62578,   1.87531,   1.52722,
     +    1.30452,   1.75695,   1.87840,
     +     .07757,    .04196,  39.92655,   1.94348,   1.59699,
     +    1.37588,   1.82571,   1.94667,
     +     .07879,    .04268,  41.17870,   2.00958,   1.66502,
     +    1.44585,   1.89237,   2.01285,
     +     .07994,    .04335,  42.32035,   2.07156,   1.72840,
     +    1.51062,   1.95487,   2.07492 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
     +     .08110,    .04403,  43.48128,   2.13509,   1.79363,
     +    1.57756,   2.01892,   2.13853,
     +     .08225,    .04470,  44.59736,   2.19756,   1.85759,
     +    1.64300,   2.08190,   2.20108,
     +     .08335,    .04534,  45.65340,   2.25753,   1.91903,
     +    1.70588,   2.14235,   2.26113,
     +     .08439,    .04595,  46.65189,   2.31491,   1.97790,
     +    1.76623,   2.20017,   2.31858,
     +     .08543,    .04655,  47.62526,   2.37232,   2.03653,
     +    1.82609,   2.25803,   2.37607 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
     +     .03941,    .01919,    .78296,    .29917,    .00000,
     +     .00000,    .16148,    .29957,
     +     .04091,    .02009,   1.41963,    .31783,    .00000,
     +     .00000,    .18130,    .31833,
     +     .04310,    .02142,   2.48903,    .35028,    .00000,
     +     .00000,    .21537,    .35091,
     +     .04468,    .02238,   3.37566,    .37714,    .00000,
     +     .00000,    .24338,    .37788,
     +     .04633,    .02337,   4.33970,    .40846,    .00770,
     +     .00000,    .27583,    .40931,
     +     .04774,    .02422,   5.18106,    .43756,    .04172,
     +     .00000,    .30587,    .43851,
     +     .04909,    .02504,   6.04357,    .46732,    .07952,
     +     .00000,    .33651,    .46836,
     +     .05052,    .02590,   7.01971,    .50088,    .11697,
     +     .00000,    .37098,    .50202 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
     +     .05176,    .02665,   7.89069,    .53148,    .14951,
     +     .00000,    .40234,    .53270,
     +     .05295,    .02737,   8.76142,    .56230,    .18255,
     +     .00000,    .43389,    .56361,
     +     .05390,    .02794,   9.48153,    .58769,    .21027,
     +     .00000,    .45984,    .58906,
     +     .05590,    .02914,  11.00616,    .64429,    .27052,
     +     .00574,    .51760,    .64580,
     +     .05761,    .03017,  12.29099,    .69525,    .32417,
     +     .06870,    .56952,    .69688,
     +     .05953,    .03131,  13.76914,    .75489,    .38704,
     +     .14303,    .63021,    .75666,
     +     .06152,    .03250,  15.35035,    .81944,    .45489,
     +     .21484,    .69582,    .82135,
     +     .06332,    .03358,  16.81192,    .88002,    .51845,
     +     .28215,    .75734,    .88206 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
     +     .06513,    .03466,  18.31051,    .94311,    .58461,
     +     .35184,    .82135,    .94528,
     +     .06663,    .03556,  19.56041,    .99670,    .64047,
     +     .40997,    .87568,    .99898,
     +     .06845,    .03664,  21.07775,   1.06302,    .70931,
     +     .48136,    .94288,   1.06543,
     +     .07005,    .03759,  22.43083,   1.12309,    .77182,
     +     .54646,   1.00371,   1.12561,
     +     .07153,    .03847,  23.67800,   1.17928,    .83033,
     +     .60743,   1.06058,   1.18191,
     +     .07339,    .03957,  25.23697,   1.25131,    .90475,
     +     .68419,   1.13347,   1.25409,
     +     .07513,    .04060,  26.70254,   1.32032,    .97616,
     +     .75806,   1.20326,   1.32322,
     +     .07677,    .04157,  28.08057,   1.38622,   1.04458,
     +     .82911,   1.26988,   1.38924 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
     +     .07840,    .04253,  29.41881,   1.45217,   1.11242,
     +     .89878,   1.33653,   1.45531,
     +     .07999,    .04347,  30.72837,   1.51770,   1.18009,
     +     .96861,   1.40275,   1.52096,
     +     .08150,    .04435,  31.95821,   1.58040,   1.24483,
     +    1.03540,   1.46608,   1.58377,
     +     .08291,    .04518,  33.08833,   1.63947,   1.30557,
     +    1.09780,   1.52574,   1.64295,
     +     .08434,    .04602,  34.22974,   1.69979,   1.36788,
     +    1.16210,   1.58664,   1.70338,
     +     .08573,    .04684,  35.31110,   1.75865,   1.42827,
     +    1.22401,   1.64606,   1.76234,
     +     .08707,    .04762,  36.34955,   1.81561,   1.48705,
     +    1.28460,   1.70355,   1.81940,
     +     .08832,    .04835,  37.29206,   1.86888,   1.54167,
     +    1.34055,   1.75731,   1.87276 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
     +     .08958,    .04908,  38.24831,   1.92339,   1.59779,
     +    1.39826,   1.81232,   1.92737,
     +     .09083,    .04981,  39.16380,   1.97686,   1.65269,
     +    1.45456,   1.86627,   1.98093,
     +     .09202,    .05050,  40.02744,   2.02810,   1.70531,
     +    1.50854,   1.91796,   2.03225,
     +     .09315,    .05116,  40.84192,   2.07702,   1.75566,
     +    1.56028,   1.96732,   2.08126,
     +     .09428,    .05182,  41.63239,   2.12586,   1.80568,
     +    1.61146,   2.01657,   2.13018 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
     +     .05456,    .02827,    .80937,    .25901,    .00000,
     +     .00000,    .14033,    .26003,
     +     .05666,    .02958,   1.37925,    .27539,    .00000,
     +     .00000,    .15767,    .27657,
     +     .05974,    .03149,   2.30233,    .30305,    .00000,
     +     .00000,    .18669,    .30447,
     +     .06197,    .03287,   3.04403,    .32545,    .00000,
     +     .00000,    .21003,    .32704,
     +     .06427,    .03429,   3.83014,    .35103,    .00635,
     +     .00000,    .23655,    .35280,
     +     .06622,    .03549,   4.50051,    .37442,    .03379,
     +     .00000,    .26073,    .37634,
     +     .06809,    .03664,   5.17521,    .39805,    .06408,
     +     .00000,    .28510,    .40012,
     +     .07008,    .03785,   5.92540,    .42437,    .09365,
     +     .00000,    .31219,    .42660 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
     +     .07178,    .03889,   6.58322,    .44806,    .11904,
     +     .00000,    .33653,    .45043,
     +     .07342,    .03989,   7.23123,    .47169,    .14457,
     +     .00000,    .36076,    .47418,
     +     .07472,    .04068,   7.76093,    .49100,    .16582,
     +     .00000,    .38055,    .49360,
     +     .07747,    .04235,   8.86133,    .53351,    .21145,
     +     .00451,    .42405,    .53632,
     +     .07980,    .04376,   9.76637,    .57123,    .25153,
     +     .05173,    .46259,    .57423,
     +     .08240,    .04533,  10.78734,    .61481,    .29788,
     +     .10706,    .50706,    .61801,
     +     .08509,    .04695,  11.85777,    .66130,    .34723,
     +     .15968,    .55447,    .66472,
     +     .08752,    .04840,  12.82840,    .70436,    .39286,
     +     .20838,    .59833,    .70797 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
     +     .08995,    .04986,  13.80609,    .74865,    .43978,
     +     .25820,    .64342,    .75246,
     +     .09196,    .05106,  14.60804,    .78584,    .47895,
     +     .29929,    .68125,    .78981,
     +     .09439,    .05250,  15.56565,    .83134,    .52669,
     +     .34919,    .72752,    .83551,
     +     .09652,    .05376,  16.40630,    .87211,    .56957,
     +     .39424,    .76895,    .87645,
     +     .09847,    .05492,  17.17041,    .90988,    .60934,
     +     .43603,    .80732,    .91438,
     +     .10093,    .05637,  18.10909,    .95775,    .65935,
     +     .48805,    .85594,    .96245,
     +     .10323,    .05772,  18.97738,   1.00310,    .70682,
     +     .53759,    .90198,   1.00798,
     +     .10538,    .05898,  19.78228,   1.04600,    .75189,
     +     .58480,    .94551,   1.05105 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
     +     .10751,    .06023,  20.54962,   1.08843,    .79605,
     +     .63056,    .98857,   1.09365,
     +     .10959,    .06144,  21.29057,   1.13022,    .83972,
     +     .67604,   1.03096,   1.13561,
     +     .11155,    .06258,  21.97678,   1.16984,    .88113,
     +     .71916,   1.07114,   1.17539,
     +     .11338,    .06364,  22.59724,   1.20681,    .91961,
     +     .75906,   1.10863,   1.21250,
     +     .11522,    .06471,  23.21758,   1.24429,    .95883,
     +     .79992,   1.14664,   1.25014,
     +     .11702,    .06575,  23.79474,   1.28050,    .99645,
     +     .83885,   1.18335,   1.28649,
     +     .11873,    .06674,  24.34449,   1.31533,   1.03287,
     +     .87676,   1.21866,   1.32146,
     +     .12033,    .06766,  24.83438,   1.34759,   1.06637,
     +     .91141,   1.25136,   1.35384 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
     +     .12195,    .06859,  25.32753,   1.38042,   1.10062,
     +     .94698,   1.28464,   1.38680,
     +     .12353,    .06950,  25.79220,   1.41235,   1.13385,
     +     .98140,   1.31700,   1.41886,
     +     .12504,    .07036,  26.22563,   1.44274,   1.16549,
     +    1.01419,   1.34781,   1.44937,
     +     .12647,    .07118,  26.63048,   1.47160,   1.19560,
     +    1.04545,   1.37706,   1.47834,
     +     .12791,    .07200,  27.01632,   1.50015,   1.22526,
     +    1.07611,   1.40600,   1.50701 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
     +     .07683,    .04284,    .89165,    .22802,    .00000,
     +     .00000,    .12386,    .23021,
     +     .07981,    .04470,   1.39515,    .24219,    .00000,
     +     .00000,    .13886,    .24465,
     +     .08415,    .04738,   2.17596,    .26534,    .00000,
     +     .00000,    .16318,    .26818,
     +     .08726,    .04931,   2.78138,    .28363,    .00000,
     +     .00000,    .18230,    .28674,
     +     .09046,    .05127,   3.40509,    .30405,    .00516,
     +     .00000,    .20356,    .30745,
     +     .09317,    .05292,   3.92287,    .32240,    .02690,
     +     .00000,    .22260,    .32604,
     +     .09575,    .05449,   4.43303,    .34068,    .05071,
     +     .00000,    .24153,    .34455,
     +     .09847,    .05615,   4.98884,    .36077,    .07357,
     +     .00000,    .26230,    .36487 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
     +     .10081,    .05756,   5.46652,    .37859,    .09293,
     +     .00000,    .28070,    .38290,
     +     .10304,    .05890,   5.92908,    .39615,    .11220,
     +     .00000,    .29881,    .40066,
     +     .10481,    .05997,   6.30208,    .41038,    .12809,
     +     .00000,    .31347,    .41504,
     +     .10852,    .06219,   7.05958,    .44124,    .16175,
     +     .00347,    .34523,    .44623,
     +     .11166,    .06406,   7.66416,    .46819,    .19084,
     +     .03796,    .37293,    .47346,
     +     .11514,    .06612,   8.33031,    .49885,    .22400,
     +     .07805,    .40440,    .50442,
     +     .11872,    .06823,   9.01198,    .53102,    .25874,
     +     .11550,    .43741,    .53691,
     +     .12194,    .07011,   9.61570,    .56036,    .29040,
     +     .14966,    .46748,    .56652 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
     +     .12515,    .07199,  10.21072,    .59010,    .32250,
     +     .18413,    .49796,    .59654,
     +     .12778,    .07353,  10.68889,    .61474,    .34895,
     +     .21219,    .52321,    .62141,
     +     .13095,    .07536,  11.24799,    .64449,    .38077,
     +     .24585,    .55366,    .65143,
     +     .13372,    .07696,  11.72915,    .67080,    .40901,
     +     .27589,    .58060,    .67798,
     +     .13624,    .07841,  12.15880,    .69490,    .43492,
     +     .30346,    .60527,    .70230,
     +     .13941,    .08022,  12.67449,    .72502,    .46706,
     +     .33731,    .63610,    .73270,
     +     .14235,    .08190,  13.14147,    .75319,    .49720,
     +     .36918,    .66492,    .76112,
     +     .14509,    .08346,  13.56634,    .77953,    .52550,
     +     .39923,    .69187,    .78770 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
     +     .14779,    .08498,  13.96089,    .80522,    .55284,
     +     .42796,    .71815,    .81361,
     +     .15041,    .08646,  14.33510,    .83025,    .57962,
     +     .45624,    .74376,    .83886,
     +     .15287,    .08785,  14.67500,    .85372,    .60475,
     +     .48278,    .76777,    .86254,
     +     .15517,    .08913,  14.97512,    .87536,    .62783,
     +     .50707,    .78991,    .88438,
     +     .15746,    .09041,  15.27119,    .89712,    .65118,
     +     .53176,    .81219,    .90634,
     +     .15969,    .09165,  15.53860,    .91787,    .67329,
     +     .55499,    .83341,    .92726,
     +     .16180,    .09282,  15.79061,    .93768,    .69457,
     +     .57749,    .85370,    .94726,
     +     .16378,    .09391,  16.00841,    .95581,    .71391,
     +     .59781,    .87225,    .96555 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
     +     .16576,    .09500,  16.22535,    .97414,    .73356,
     +     .61855,    .89102,    .98404,
     +     .16770,    .09607,  16.42417,    .99176,    .75242,
     +     .63842,    .90907,   1.00183,
     +     .16954,    .09707,  16.60621,   1.00840,    .77026,
     +     .65721,    .92611,   1.01861,
     +     .17128,    .09802,  16.77372,   1.02408,    .78712,
     +     .67502,    .94218,   1.03445,
     +     .17301,    .09897,  16.92801,   1.03944,    .80354,
     +     .69229,    .95791,   1.04994 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
     +     .09485,    .05516,    .97419,    .21325,    .00000,
     +     .00000,    .11609,    .21668,
     +     .09849,    .05740,   1.43445,    .22610,    .00000,
     +     .00000,    .12974,    .22988,
     +     .10376,    .06063,   2.13097,    .24668,    .00000,
     +     .00000,    .15146,    .25095,
     +     .10753,    .06292,   2.65865,    .26267,    .00000,
     +     .00000,    .16826,    .26731,
     +     .11140,    .06525,   3.19242,    .28029,    .00453,
     +     .00000,    .18670,    .28529,
     +     .11465,    .06720,   3.62775,    .29594,    .02328,
     +     .00000,    .20302,    .30124,
     +     .11774,    .06904,   4.05063,    .31138,    .04373,
     +     .00000,    .21911,    .31696,
     +     .12099,    .07098,   4.50518,    .32819,    .06315,
     +     .00000,    .23659,    .33408 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
     +     .12377,    .07262,   4.89073,    .34296,    .07944,
     +     .00000,    .25194,    .34911,
     +     .12643,    .07419,   5.25980,    .35741,    .09554,
     +     .00000,    .26693,    .36380,
     +     .12852,    .07542,   5.55473,    .36905,    .10875,
     +     .00000,    .27899,    .37563,
     +     .13290,    .07798,   6.14416,    .39405,    .13646,
     +     .00294,    .30489,    .40104,
     +     .13659,    .08012,   6.60446,    .41565,    .16016,
     +     .03120,    .32723,    .42297,
     +     .14067,    .08248,   7.10331,    .43995,    .18692,
     +     .06386,    .35235,    .44764,
     +     .14484,    .08487,   7.60527,    .46518,    .21466,
     +     .09402,    .37842,    .47325,
     +     .14857,    .08700,   8.04250,    .48794,    .23969,
     +     .12127,    .40193,    .49635 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
     +     .15229,    .08911,   8.46667,    .51080,    .26484,
     +     .14852,    .42553,    .51954,
     +     .15532,    .09083,   8.80225,    .52955,    .28538,
     +     .17053,    .44489,    .53856,
     +     .15895,    .09287,   9.18841,    .55199,    .30988,
     +     .19670,    .46805,    .56132,
     +     .16213,    .09465,   9.51575,    .57166,    .33145,
     +     .21987,    .48836,    .58127,
     +     .16501,    .09625,   9.80406,    .58954,    .35110,
     +     .24099,    .50681,    .59940,
     +     .16859,    .09824,  10.14396,    .61166,    .37524,
     +     .26671,    .52965,    .62184,
     +     .17193,    .10007,  10.44646,    .63216,    .39770,
     +     .29072,    .55082,    .64263,
     +     .17502,    .10177,  10.71752,    .65118,    .41863,
     +     .31320,    .57046,    .66192 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
     +     .17804,    .10342,  10.96373,    .66954,    .43867,
     +     .33450,    .58943,    .68054,
     +     .18098,    .10501,  11.19376,    .68729,    .45815,
     +     .35534,    .60777,    .69854,
     +     .18373,    .10650,  11.39914,    .70381,    .47631,
     +     .37476,    .62484,    .71529,
     +     .18627,    .10787,  11.57618,    .71889,    .49286,
     +     .39240,    .64044,    .73059,
     +     .18882,    .10923,  11.74877,    .73398,    .50951,
     +     .41024,    .65605,    .74590,
     +     .19128,    .11054,  11.90024,    .74821,    .52514,
     +     .42689,    .67079,    .76034,
     +     .19360,    .11178,  12.04179,    .76176,    .54012,
     +     .44295,    .68481,    .77408,
     +     .19577,    .11293,  12.15999,    .77402,    .55361,
     +     .45734,    .69751,    .78652 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
     +     .19794,    .11408,  12.27660,    .78635,    .56727,
     +     .47197,    .71029,    .79904,
     +     .20005,    .11519,  12.38010,    .79812,    .58028,
     +     .48588,    .72250,    .81098,
     +     .20205,    .11623,  12.47294,    .80916,    .59252,
     +     .49898,    .73396,    .82219,
     +     .20394,    .11722,  12.55687,    .81952,    .60404,
     +     .51134,    .74471,    .83270,
     +     .20582,    .11819,  12.63059,    .82955,    .61516,
     +     .52323,    .75513,    .84288 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
     +     .11079,    .06624,   1.05102,    .20408,    .00000,
     +     .00000,    .11132,    .20881,
     +     .11498,    .06877,   1.47766,    .21596,    .00000,
     +     .00000,    .12401,    .22111,
     +     .12101,    .07239,   2.11233,    .23470,    .00000,
     +     .00000,    .14390,    .24044,
     +     .12531,    .07495,   2.58482,    .24910,    .00000,
     +     .00000,    .15911,    .25525,
     +     .12971,    .07754,   3.05610,    .26478,    .00410,
     +     .00000,    .17562,    .27136,
     +     .13339,    .07970,   3.43513,    .27858,    .02087,
     +     .00000,    .19011,    .28551,
     +     .13688,    .08174,   3.79930,    .29211,    .03910,
     +     .00000,    .20429,    .29937,
     +     .14054,    .08387,   4.18670,    .30673,    .05625,
     +     .00000,    .21960,    .31434 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
     +     .14367,    .08568,   4.51192,    .31948,    .07055,
     +     .00000,    .23294,    .32739,
     +     .14664,    .08739,   4.82043,    .33188,    .08459,
     +     .00000,    .24589,    .34007,
     +     .14899,    .08874,   5.06520,    .34182,    .09606,
     +     .00000,    .25627,    .35023,
     +     .15388,    .09152,   5.54804,    .36301,    .11996,
     +     .00259,    .27838,    .37188,
     +     .15798,    .09384,   5.91822,    .38116,    .14024,
     +     .02689,    .29729,    .39041,
     +     .16249,    .09638,   6.31395,    .40142,    .16296,
     +     .05485,    .31839,    .41109,
     +     .16710,    .09895,   6.70658,    .42226,    .18633,
     +     .08045,    .34010,    .43235,
     +     .17120,    .10123,   7.04377,    .44090,    .20725,
     +     .10341,    .35951,    .45137 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
     +     .17528,    .10347,   7.36649,    .45948,    .22812,
     +     .12622,    .37886,    .47031,
     +     .17859,    .10529,   7.61839,    .47460,    .24505,
     +     .14450,    .39461,    .48574,
     +     .18255,    .10744,   7.90420,    .49257,    .26510,
     +     .16612,    .41332,    .50405,
     +     .18599,    .10931,   8.14325,    .50820,    .28265,
     +     .18514,    .42961,    .51999,
     +     .18911,    .11099,   8.35123,    .52232,    .29854,
     +     .20239,    .44433,    .53439,
     +     .19298,    .11306,   8.59209,    .53965,    .31793,
     +     .22325,    .46240,    .55206,
     +     .19656,    .11497,   8.80300,    .55559,    .33585,
     +     .24260,    .47903,    .56830,
     +     .19988,    .11672,   8.98930,    .57028,    .35246,
     +     .26063,    .49436,    .58328 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
     +     .20311,    .11842,   9.15452,    .58433,    .36823,
     +     .27758,    .50904,    .59760,
     +     .20624,    .12005,   9.30653,    .59783,    .38349,
     +     .29409,    .52315,    .61137,
     +     .20915,    .12157,   9.43980,    .61031,    .39763,
     +     .30939,    .53621,    .62410,
     +     .21185,    .12296,   9.55172,    .62161,    .41042,
     +     .32320,    .54805,    .63563,
     +     .21454,    .12435,   9.65948,    .63287,    .42325,
     +     .33712,    .55984,    .64711,
     +     .21712,    .12567,   9.75064,    .64339,    .43520,
     +     .35003,    .57089,    .65785,
     +     .21957,    .12692,   9.83505,    .65337,    .44662,
     +     .36243,    .58136,    .66803,
     +     .22183,    .12807,   9.90233,    .66231,    .45683,
     +     .37347,    .59076,    .67716 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
     +     .22410,    .12922,   9.96795,    .67128,    .46713,
     +     .38467,    .60019,    .68631,
     +     .22630,    .13032,  10.02354,    .67977,    .47689,
     +     .39526,    .60913,    .69498,
     +     .22837,    .13137,  10.07186,    .68769,    .48602,
     +     .40518,    .61748,    .70306,
     +     .23033,    .13234,  10.11441,    .69508,    .49458,
     +     .41452,    .62528,    .71061,
     +     .23227,    .13330,  10.14875,    .70217,    .50280,
     +     .42344,    .63278,    .71786 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
     +     .12544,    .07644,   1.11978,    .19749,    .00000,
     +     .00000,    .10797,    .20356,
     +     .13009,    .07920,   1.51877,    .20859,    .00000,
     +     .00000,    .11989,    .21513,
     +     .13676,    .08312,   2.10383,    .22588,    .00000,
     +     .00000,    .13837,    .23308,
     +     .14151,    .08589,   2.53325,    .23903,    .00000,
     +     .00000,    .15236,    .24670,
     +     .14634,    .08867,   2.95663,    .25323,    .00378,
     +     .00000,    .16741,    .26138,
     +     .15037,    .09099,   3.29309,    .26564,    .01908,
     +     .00000,    .18053,    .27418,
     +     .15418,    .09317,   3.61345,    .27772,    .03566,
     +     .00000,    .19329,    .28663,
     +     .15818,    .09544,   3.95131,    .29071,    .05115,
     +     .00000,    .20699,    .30000 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
     +     .16158,    .09735,   4.23243,    .30196,    .06399,
     +     .00000,    .21885,    .31159,
     +     .16482,    .09917,   4.49706,    .31285,    .07655,
     +     .00000,    .23031,    .32278,
     +     .16737,    .10059,   4.70575,    .32154,    .08676,
     +     .00000,    .23946,    .33171,
     +     .17265,    .10353,   5.11278,    .33996,    .10792,
     +     .00234,    .25883,    .35063,
     +     .17707,    .10596,   5.41959,    .35562,    .12576,
     +     .02381,    .27528,    .36670,
     +     .18191,    .10861,   5.74361,    .37298,    .14561,
     +     .04844,    .29351,    .38451,
     +     .18685,    .11129,   6.06104,    .39070,    .16590,
     +     .07081,    .31213,    .40268,
     +     .19123,    .11365,   6.33015,    .40643,    .18394,
     +     .09076,    .32866,    .41882 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
     +     .19557,    .11596,   6.58452,    .42200,    .20184,
     +     .11046,    .34503,    .43478,
     +     .19909,    .11784,   6.78042,    .43460,    .21627,
     +     .12618,    .35828,    .44769,
     +     .20327,    .12004,   6.99979,    .44946,    .23327,
     +     .14465,    .37391,    .46292,
     +     .20691,    .12195,   7.18097,    .46231,    .24807,
     +     .16083,    .38745,    .47609,
     +     .21019,    .12366,   7.33673,    .47386,    .26141,
     +     .17544,    .39962,    .48792,
     +     .21425,    .12576,   7.51375,    .48792,    .27758,
     +     .19300,    .41444,    .50233,
     +     .21800,    .12768,   7.66619,    .50076,    .29244,
     +     .20921,    .42800,    .51550,
     +     .22145,    .12945,   7.79886,    .51253,    .30615,
     +     .22425,    .44045,    .52757 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
     +     .22481,    .13115,   7.91326,    .52369,    .31908,
     +     .23830,    .45226,    .53901,
     +     .22805,    .13278,   8.01657,    .53436,    .33153,
     +     .25192,    .46356,    .54995,
     +     .23107,    .13429,   8.10505,    .54416,    .34302,
     +     .26450,    .47396,    .56000,
     +     .23385,    .13567,   8.17711,    .55297,    .35336,
     +     .27579,    .48333,    .56904,
     +     .23661,    .13704,   8.24553,    .56171,    .36368,
     +     .28713,    .49262,    .57800,
     +     .23926,    .13834,   8.30040,    .56980,    .37324,
     +     .29759,    .50125,    .58631,
     +     .24176,    .13957,   8.35060,    .57745,    .38235,
     +     .30762,    .50941,    .59415,
     +     .24406,    .14068,   8.38767,    .58424,    .39043,
     +     .31649,    .51668,    .60113 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
     +     .24637,    .14180,   8.42319,    .59104,    .39858,
     +     .32546,    .52395,    .60811,
     +     .24861,    .14287,   8.45078,    .59741,    .40624,
     +     .33391,    .53079,    .61465,
     +     .25071,    .14388,   8.47329,    .60332,    .41339,
     +     .34180,    .53714,    .62072,
     +     .25269,    .14482,   8.49199,    .60881,    .42007,
     +     .34919,    .54306,    .62637,
     +     .25464,    .14574,   8.50393,    .61402,    .42644,
     +     .35623,    .54869,    .63173 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
     +     .15226,    .09499,   1.23678,    .18807,    .00000,
     +     .00000,    .10334,    .19687,
     +     .15765,    .09806,   1.59034,    .19791,    .00000,
     +     .00000,    .11407,    .20727,
     +     .16536,    .10239,   2.09716,    .21294,    .00000,
     +     .00000,    .13038,    .22309,
     +     .17080,    .10543,   2.46073,    .22419,    .00000,
     +     .00000,    .14254,    .23488,
     +     .17631,    .10847,   2.81240,    .23617,    .00331,
     +     .00000,    .15543,    .24740,
     +     .18088,    .11098,   3.08632,    .24651,    .01649,
     +     .00000,    .16654,    .25819,
     +     .18520,    .11332,   3.34317,    .25647,    .03070,
     +     .00000,    .17724,    .26857,
     +     .18970,    .11575,   3.61018,    .26708,    .04383,
     +     .00000,    .18861,    .27961 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
     +     .19351,    .11780,   3.82916,    .27618,    .05460,
     +     .00000,    .19837,    .28907,
     +     .19712,    .11973,   4.03258,    .28490,    .06507,
     +     .00000,    .20771,    .29814,
     +     .19996,    .12123,   4.19136,    .29182,    .07353,
     +     .00000,    .21512,    .30534,
     +     .20581,    .12432,   4.49450,    .30634,    .09089,
     +     .00198,    .23065,    .32039,
     +     .21068,    .12685,   4.71605,    .31852,    .10536,
     +     .01955,    .24369,    .33302,
     +     .21599,    .12960,   4.94472,    .33187,    .12131,
     +     .03960,    .25798,    .34685,
     +     .22136,    .13235,   5.16345,    .34531,    .13742,
     +     .05761,    .27239,    .36078,
     +     .22610,    .13476,   5.34439,    .35710,    .15160,
     +     .07350,    .28504,    .37299 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
     +     .23077,    .13711,   5.51126,    .36862,    .16553,
     +     .08906,    .29742,    .38492,
     +     .23454,    .13899,   5.63640,    .37784,    .17666,
     +     .10135,    .30733,    .39446,
     +     .23899,    .14119,   5.77270,    .38857,    .18964,
     +     .11568,    .31890,    .40558,
     +     .24285,    .14308,   5.88215,    .39776,    .20084,
     +     .12813,    .32881,    .41509,
     +     .24631,    .14476,   5.97364,    .40592,    .21086,
     +     .13929,    .33764,    .42354,
     +     .25056,    .14682,   6.07299,    .41573,    .22288,
     +     .15258,    .34827,    .43370,
     +     .25446,    .14868,   6.15519,    .42458,    .23383,
     +     .16475,    .35789,    .44287,
     +     .25805,    .15038,   6.22412,    .43260,    .24384,
     +     .17595,    .36663,    .45118 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
     +     .26151,    .15200,   6.27874,    .44009,    .25318,
     +     .18631,    .37481,    .45894,
     +     .26483,    .15355,   6.32566,    .44716,    .26211,
     +     .19629,    .38256,    .46627,
     +     .26790,    .15497,   6.36319,    .45358,    .27027,
     +     .20544,    .38961,    .47293,
     +     .27071,    .15626,   6.38996,    .45926,    .27755,
     +     .21357,    .39588,    .47883,
     +     .27351,    .15753,   6.41384,    .46486,    .28477,
     +     .22171,    .40207,    .48463,
     +     .27616,    .15872,   6.42837,    .46994,    .29138,
     +     .22913,    .40771,    .48991,
     +     .27867,    .15984,   6.44083,    .47471,    .29765,
     +     .23622,    .41302,    .49486,
     +     .28095,    .16085,   6.44508,    .47886,    .30315,
     +     .24243,    .41768,    .49918 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
     +     .28324,    .16186,   6.44811,    .48298,    .30867,
     +     .24869,    .42230,    .50346,
     +     .28544,    .16281,   6.44590,    .48678,    .31381,
     +     .25453,    .42660,    .50742,
     +     .28750,    .16371,   6.44122,    .49027,    .31856,
     +     .25995,    .43055,    .51105,
     +     .28943,    .16454,   6.43501,    .49348,    .32298,
     +     .26501,    .43420,    .51439,
     +     .29132,    .16534,   6.42393,    .49645,    .32714,
     +     .26977,    .43761,    .51748 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
     +     .18867,    .11955,   1.37062,    .17811,    .00000,
     +     .00000,    .09871,    .19108,
     +     .19488,    .12286,   1.67020,    .18647,    .00000,
     +     .00000,    .10807,    .20007,
     +     .20367,    .12749,   2.08876,    .19898,    .00000,
     +     .00000,    .12200,    .21346,
     +     .20983,    .13071,   2.38117,    .20816,    .00000,
     +     .00000,    .13219,    .22324,
     +     .21604,    .13390,   2.65745,    .21776,    .00283,
     +     .00000,    .14283,    .23345,
     +     .22115,    .13651,   2.86707,    .22594,    .01387,
     +     .00000,    .15186,    .24210,
     +     .22594,    .13893,   3.06003,    .23372,    .02570,
     +     .00000,    .16045,    .25034,
     +     .23091,    .14143,   3.25713,    .24191,    .03648,
     +     .00000,    .16949,    .25899 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
     +     .23510,    .14351,   3.41569,    .24884,    .04524,
     +     .00000,    .17714,    .26631,
     +     .23905,    .14546,   3.56049,    .25542,    .05367,
     +     .00000,    .18440,    .27324,
     +     .24213,    .14698,   3.67204,    .26059,    .06044,
     +     .00000,    .19012,    .27869,
     +     .24848,    .15006,   3.87871,    .27130,    .07417,
     +     .00163,    .20195,    .28996,
     +     .25369,    .15256,   4.02238,    .28015,    .08548,
     +     .01552,    .21174,    .29926,
     +     .25934,    .15524,   4.16578,    .28969,    .09778,
     +     .03128,    .22231,    .30927,
     +     .26501,    .15789,   4.29808,    .29913,    .11005,
     +     .04524,    .23281,    .31919,
     +     .26998,    .16019,   4.40306,    .30727,    .12072,
     +     .05741,    .24189,    .32774 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
     +     .27482,    .16242,   4.49580,    .31510,    .13108,
     +     .06921,    .25064,    .33595,
     +     .27872,    .16417,   4.56216,    .32126,    .13925,
     +     .07843,    .25755,    .34241,
     +     .28328,    .16620,   4.63015,    .32831,    .14869,
     +     .08908,    .26551,    .34981,
     +     .28719,    .16793,   4.68164,    .33424,    .15675,
     +     .09824,    .27223,    .35605,
     +     .29069,    .16946,   4.72220,    .33944,    .16388,
     +     .10638,    .27814,    .36151,
     +     .29494,    .17129,   4.76098,    .34556,    .17233,
     +     .11597,    .28514,    .36793,
     +     .29881,    .17293,   4.78920,    .35097,    .17994,
     +     .12466,    .29137,    .37361,
     +     .30234,    .17442,   4.80984,    .35579,    .18683,
     +     .13259,    .29695,    .37868 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
     +     .30571,    .17580,   4.82041,    .36017,    .19316,
     +     .13983,    .30207,    .38328,
     +     .30892,    .17711,   4.82617,    .36423,    .19916,
     +     .14675,    .30686,    .38756,
     +     .31188,    .17831,   4.82686,    .36785,    .20458,
     +     .15304,    .31114,    .39136,
     +     .31456,    .17936,   4.82176,    .37096,    .20935,
     +     .15857,    .31488,    .39464,
     +     .31720,    .18040,   4.81478,    .37398,    .21406,
     +     .16407,    .31852,    .39783,
     +     .31968,    .18135,   4.80186,    .37663,    .21829,
     +     .16903,    .32176,    .40062,
     +     .32202,    .18224,   4.78889,    .37908,    .22229,
     +     .17374,    .32479,    .40321,
     +     .32412,    .18303,   4.77185,    .38112,    .22573,
     +     .17781,    .32735,    .40537 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
     +     .32621,    .18381,   4.75409,    .38313,    .22917,
     +     .18189,    .32988,    .40749,
     +     .32820,    .18454,   4.73326,    .38490,    .23232,
     +     .18566,    .33217,    .40936,
     +     .33006,    .18520,   4.71187,    .38648,    .23522,
     +     .18913,    .33423,    .41104,
     +     .33179,    .18582,   4.69062,    .38790,    .23788,
     +     .19234,    .33611,    .41255,
     +     .33346,    .18640,   4.66615,    .38914,    .24034,
     +     .19533,    .33780,    .41386 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
     +     .24335,    .15453,   1.51187,    .16544,    .00000,
     +     .00000,    .09321,    .18530,
     +     .25035,    .15789,   1.74288,    .17193,    .00000,
     +     .00000,    .10085,    .19244,
     +     .26016,    .16250,   2.05510,    .18136,    .00000,
     +     .00000,    .11191,    .20276,
     +     .26697,    .16566,   2.26579,    .18810,    .00000,
     +     .00000,    .11981,    .21010,
     +     .27373,    .16875,   2.45808,    .19501,    .00229,
     +     .00000,    .12789,    .21759,
     +     .27924,    .17123,   2.59811,    .20077,    .01100,
     +     .00000,    .13462,    .22381,
     +     .28437,    .17352,   2.72358,    .20617,    .02027,
     +     .00000,    .14094,    .22963,
     +     .28965,    .17584,   2.84847,    .21175,    .02859,
     +     .00000,    .14747,    .23563 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
     +     .29406,    .17776,   2.94590,    .21639,    .03524,
     +     .00000,    .15291,    .24061,
     +     .29818,    .17953,   3.03244,    .22072,    .04158,
     +     .00000,    .15800,    .24525,
     +     .30139,    .18089,   3.09776,    .22409,    .04663,
     +     .00000,    .16198,    .24886,
     +     .30790,    .18362,   3.21191,    .23092,    .05672,
     +     .00126,    .17005,    .25617,
     +     .31317,    .18579,   3.28312,    .23643,    .06489,
     +     .01149,    .17659,    .26205,
     +     .31882,    .18807,   3.34904,    .24222,    .07365,
     +     .02301,    .18351,    .26822,
     +     .32442,    .19028,   3.40453,    .24779,    .08225,
     +     .03304,    .19023,    .27414,
     +     .32925,    .19214,   3.44373,    .25245,    .08959,
     +     .04167,    .19591,    .27911 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
     +     .33392,    .19390,   3.47390,    .25680,    .09662,
     +     .04991,    .20127,    .28374,
     +     .33761,    .19527,   3.49144,    .26013,    .10208,
     +     .05627,    .20540,    .28728,
     +     .34187,    .19681,   3.50432,    .26381,    .10829,
     +     .06352,    .21005,    .29119,
     +     .34548,    .19809,   3.50991,    .26681,    .11352,
     +     .06968,    .21389,    .29437,
     +     .34867,    .19920,   3.51064,    .26937,    .11809,
     +     .07510,    .21719,    .29708,
     +     .35248,    .20047,   3.50379,    .27223,    .12340,
     +     .08138,    .22099,    .30012,
     +     .35590,    .20158,   3.49231,    .27465,    .12811,
     +     .08701,    .22427,    .30269,
     +     .35899,    .20256,   3.47816,    .27672,    .13232,
     +     .09209,    .22713,    .30488 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
     +     .36185,    .20343,   3.45808,    .27847,    .13610,
     +     .09665,    .22965,    .30673,
     +     .36455,    .20422,   3.43599,    .28001,    .13964,
     +     .10096,    .23194,    .30835,
     +     .36701,    .20492,   3.41251,    .28130,    .14279,
     +     .10482,    .23392,    .30971,
     +     .36918,    .20550,   3.38720,    .28230,    .14549,
     +     .10817,    .23556,    .31077,
     +     .37130,    .20606,   3.36106,    .28323,    .14814,
     +     .11148,    .23713,    .31175,
     +     .37324,    .20654,   3.33211,    .28392,    .15046,
     +     .11440,    .23843,    .31247,
     +     .37506,    .20699,   3.30459,    .28454,    .15264,
     +     .11716,    .23962,    .31311,
     +     .37665,    .20733,   3.27596,    .28492,    .15446,
     +     .11950,    .24054,    .31351 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
     +     .37822,    .20767,   3.24710,    .28528,    .15625,
     +     .12183,    .24142,    .31389,
     +     .37968,    .20795,   3.21704,    .28549,    .15786,
     +     .12395,    .24215,    .31410,
     +     .38102,    .20820,   3.18783,    .28562,    .15931,
     +     .12588,    .24277,    .31423,
     +     .38224,    .20842,   3.15986,    .28570,    .16063,
     +     .12765,    .24330,    .31429,
     +     .38339,    .20859,   3.13010,    .28563,    .16180,
     +     .12925,    .24369,    .31421 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
     +     .29308,    .18412,   1.58144,    .15445,    .00000,
     +     .00000,    .08865,    .18084,
     +     .30037,    .18725,   1.76041,    .15949,    .00000,
     +     .00000,    .09494,    .18644,
     +     .31050,    .19146,   1.99539,    .16664,    .00000,
     +     .00000,    .10387,    .19435,
     +     .31745,    .19430,   2.14925,    .17165,    .00000,
     +     .00000,    .11012,    .19985,
     +     .32430,    .19702,   2.28496,    .17667,    .00192,
     +     .00000,    .11641,    .20535,
     +     .32981,    .19917,   2.37939,    .18080,    .00904,
     +     .00000,    .12157,    .20983,
     +     .33489,    .20112,   2.46164,    .18460,    .01659,
     +     .00000,    .12635,    .21396,
     +     .34008,    .20308,   2.54130,    .18847,    .02329,
     +     .00000,    .13122,    .21815 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
     +     .34438,    .20467,   2.60128,    .19162,    .02858,
     +     .00000,    .13523,    .22155,
     +     .34836,    .20611,   2.65277,    .19452,    .03358,
     +     .00000,    .13893,    .22466,
     +     .35144,    .20721,   2.69068,    .19675,    .03754,
     +     .00000,    .14179,    .22705,
     +     .35761,    .20935,   2.75129,    .20118,    .04536,
     +     .00102,    .14752,    .23178,
     +     .36255,    .21100,   2.78197,    .20465,    .05162,
     +     .00898,    .15207,    .23547,
     +     .36776,    .21270,   2.80552,    .20820,    .05824,
     +     .01790,    .15679,    .23924,
     +     .37284,    .21428,   2.82038,    .21150,    .06465,
     +     .02556,    .16126,    .24272,
     +     .37716,    .21557,   2.82582,    .21415,    .07006,
     +     .03207,    .16496,    .24551 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
     +     .38126,    .21674,   2.82457,    .21654,    .07517,
     +     .03823,    .16837,    .24801,
     +     .38445,    .21761,   2.81834,    .21828,    .07909,
     +     .04293,    .17093,    .24981,
     +     .38807,    .21855,   2.80511,    .22010,    .08350,
     +     .04824,    .17373,    .25170,
     +     .39110,    .21928,   2.78965,    .22151,    .08716,
     +     .05271,    .17598,    .25315,
     +     .39373,    .21987,   2.77272,    .22265,    .09032,
     +     .05660,    .17787,    .25431,
     +     .39679,    .22051,   2.74624,    .22378,    .09395,
     +     .06107,    .17994,    .25544,
     +     .39948,    .22101,   2.71835,    .22464,    .09712,
     +     .06503,    .18166,    .25629,
     +     .40186,    .22142,   2.69034,    .22531,    .09991,
     +     .06856,    .18311,    .25693 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
     +     .40400,    .22172,   2.65878,    .22573,    .10238,
     +     .07169,    .18429,    .25730,
     +     .40598,    .22196,   2.62677,    .22602,    .10465,
     +     .07462,    .18531,    .25754,
     +     .40773,    .22213,   2.59522,    .22617,    .10664,
     +     .07723,    .18614,    .25763,
     +     .40923,    .22221,   2.56371,    .22616,    .10832,
     +     .07946,    .18675,    .25754,
     +     .41067,    .22227,   2.53197,    .22609,    .10994,
     +     .08164,    .18730,    .25740,
     +     .41193,    .22225,   2.49896,    .22585,    .11133,
     +     .08353,    .18766,    .25708,
     +     .41310,    .22222,   2.46795,    .22560,    .11261,
     +     .08532,    .18797,    .25675,
     +     .41404,    .22213,   2.43721,    .22524,    .11366,
     +     .08680,    .18811,    .25629 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
     +     .41497,    .22203,   2.40655,    .22485,    .11468,
     +     .08827,    .18823,    .25580,
     +     .41578,    .22188,   2.37555,    .22436,    .11556,
     +     .08958,    .18824,    .25521,
     +     .41649,    .22171,   2.34592,    .22385,    .11634,
     +     .09076,    .18820,    .25459,
     +     .41713,    .22153,   2.31789,    .22334,    .11704,
     +     .09184,    .18812,    .25397,
     +     .41768,    .22131,   2.28883,    .22272,    .11763,
     +     .09279,    .18794,    .25325 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
     +     .38163,    .23154,   1.59060,    .13435,    .00000,
     +     .00000,    .08028,    .17178,
     +     .38858,    .23372,   1.69617,    .13730,    .00000,
     +     .00000,    .08456,    .17495,
     +     .39795,    .23651,   1.82702,    .14131,    .00000,
     +     .00000,    .09042,    .17919,
     +     .40424,    .23829,   1.90746,    .14399,    .00000,
     +     .00000,    .09439,    .18200,
     +     .41026,    .23989,   1.97220,    .14659,    .00141,
     +     .00000,    .09827,    .18467,
     +     .41499,    .24107,   2.01125,    .14863,    .00644,
     +     .00000,    .10136,    .18674,
     +     .41926,    .24208,   2.04248,    .15045,    .01175,
     +     .00000,    .10416,    .18857,
     +     .42354,    .24303,   2.07012,    .15223,    .01637,
     +     .00000,    .10696,    .19033 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
     +     .42698,    .24374,   2.08789,    .15361,    .01996,
     +     .00000,    .10918,    .19166,
     +     .43010,    .24432,   2.10070,    .15481,    .02332,
     +     .00000,    .11118,    .19281,
     +     .43248,    .24474,   2.10891,    .15571,    .02594,
     +     .00000,    .11271,    .19366,
     +     .43709,    .24544,   2.11326,    .15738,    .03105,
     +     .00072,    .11565,    .19519,
     +     .44061,    .24586,   2.10317,    .15858,    .03505,
     +     .00595,    .11789,    .19621,
     +     .44418,    .24616,   2.08588,    .15967,    .03921,
     +     .01178,    .12011,    .19710,
     +     .44748,    .24630,   2.06292,    .16052,    .04314,
     +     .01668,    .12208,    .19771,
     +     .45014,    .24629,   2.03810,    .16106,    .04640,
     +     .02078,    .12360,    .19801 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
     +     .45252,    .24615,   2.00994,    .16141,    .04940,
     +     .02459,    .12491,    .19809,
     +     .45425,    .24593,   1.98419,    .16154,    .05166,
     +     .02746,    .12580,    .19799,
     +     .45608,    .24556,   1.95062,    .16152,    .05415,
     +     .03064,    .12669,    .19768,
     +     .45748,    .24515,   1.91962,    .16137,    .05617,
     +     .03328,    .12732,    .19725,
     +     .45860,    .24472,   1.89031,    .16114,    .05789,
     +     .03555,    .12778,    .19676,
     +     .45974,    .24404,   1.85122,    .16067,    .05979,
     +     .03810,    .12815,    .19593,
     +     .46060,    .24332,   1.81379,    .16011,    .06142,
     +     .04032,    .12836,    .19504,
     +     .46125,    .24260,   1.77855,    .15951,    .06282,
     +     .04227,    .12846,    .19412 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
     +     .46165,    .24178,   1.74216,    .15876,    .06400,
     +     .04396,    .12839,    .19303,
     +     .46193,    .24093,   1.70671,    .15796,    .06506,
     +     .04552,    .12824,    .19191,
     +     .46206,    .24008,   1.67316,    .15715,    .06596,
     +     .04687,    .12802,    .19079,
     +     .46201,    .23921,   1.64122,    .15630,    .06668,
     +     .04801,    .12772,    .18963,
     +     .46190,    .23834,   1.60967,    .15543,    .06737,
     +     .04911,    .12738,    .18845,
     +     .46163,    .23741,   1.57824,    .15448,    .06791,
     +     .05003,    .12695,    .18719,
     +     .46134,    .23652,   1.54905,    .15357,    .06841,
     +     .05088,    .12653,    .18600,
     +     .46092,    .23562,   1.52112,    .15264,    .06877,
     +     .05157,    .12604,    .18478 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
     +     .46047,    .23471,   1.49355,    .15170,    .06912,
     +     .05225,    .12554,    .18356,
     +     .45991,    .23377,   1.46636,    .15073,    .06938,
     +     .05283,    .12499,    .18230,
     +     .45933,    .23286,   1.44077,    .14978,    .06960,
     +     .05334,    .12444,    .18109,
     +     .45875,    .23198,   1.41685,    .14887,    .06978,
     +     .05379,    .12390,    .17993,
     +     .45804,    .23105,   1.39260,    .14790,    .06989,
     +     .05418,    .12329,    .17870 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
     +     .45813,    .26692,   1.50687,    .11608,    .00000,
     +     .00000,    .07227,    .16118,
     +     .46381,    .26784,   1.56554,    .11766,    .00000,
     +     .00000,    .07513,    .16254,
     +     .47116,    .26882,   1.63267,    .11971,    .00000,
     +     .00000,    .07890,    .16415,
     +     .47594,    .26927,   1.67006,    .12099,    .00000,
     +     .00000,    .08139,    .16510,
     +     .48031,    .26951,   1.69473,    .12215,    .00107,
     +     .00000,    .08376,    .16587,
     +     .48358,    .26954,   1.70388,    .12302,    .00478,
     +     .00000,    .08559,    .16636,
     +     .48644,    .26945,   1.70831,    .12373,    .00867,
     +     .00000,    .08720,    .16671,
     +     .48921,    .26924,   1.70932,    .12436,    .01202,
     +     .00000,    .08875,    .16696 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
     +     .49131,    .26896,   1.70620,    .12477,    .01459,
     +     .00000,    .08995,    .16703,
     +     .49311,    .26860,   1.70043,    .12509,    .01696,
     +     .00000,    .09098,    .16700,
     +     .49443,    .26829,   1.69470,    .12531,    .01880,
     +     .00000,    .09175,    .16694,
     +     .49680,    .26744,   1.67390,    .12558,    .02235,
     +     .00054,    .09316,    .16660,
     +     .49837,    .26655,   1.64707,    .12565,    .02508,
     +     .00419,    .09415,    .16612,
     +     .49974,    .26543,   1.61392,    .12556,    .02787,
     +     .00824,    .09505,    .16541,
     +     .50073,    .26411,   1.57733,    .12527,    .03047,
     +     .01161,    .09576,    .16446,
     +     .50131,    .26280,   1.54253,    .12485,    .03258,
     +     .01438,    .09619,    .16344 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
     +     .50160,    .26137,   1.50635,    .12430,    .03450,
     +     .01693,    .09648,    .16229,
     +     .50159,    .26010,   1.47552,    .12374,    .03591,
     +     .01881,    .09659,    .16124,
     +     .50130,    .25848,   1.43748,    .12296,    .03744,
     +     .02089,    .09657,    .15983,
     +     .50084,    .25700,   1.40376,    .12219,    .03865,
     +     .02258,    .09647,    .15852,
     +     .50027,    .25560,   1.37290,    .12144,    .03967,
     +     .02402,    .09630,    .15726,
     +     .49926,    .25371,   1.33337,    .12036,    .04076,
     +     .02562,    .09594,    .15557,
     +     .49813,    .25189,   1.29660,    .11929,    .04167,
     +     .02699,    .09552,    .15390,
     +     .49693,    .25017,   1.26274,    .11825,    .04243,
     +     .02817,    .09507,    .15231 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
     +     .49549,    .24834,   1.22880,    .11712,    .04304,
     +     .02917,    .09451,    .15063,
     +     .49397,    .24655,   1.19629,    .11600,    .04358,
     +     .03009,    .09392,    .14897,
     +     .49242,    .24483,   1.16606,    .11490,    .04401,
     +     .03087,    .09332,    .14738,
     +     .49081,    .24316,   1.13782,    .11383,    .04434,
     +     .03150,    .09269,    .14583,
     +     .48916,    .24148,   1.11019,    .11275,    .04464,
     +     .03211,    .09206,    .14427,
     +     .48737,    .23977,   1.08318,    .11163,    .04484,
     +     .03261,    .09136,    .14270,
     +     .48566,    .23817,   1.05828,    .11058,    .04502,
     +     .03307,    .09071,    .14123,
     +     .48390,    .23660,   1.03484,    .10955,    .04512,
     +     .03341,    .09004,    .13979 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
     +     .48212,    .23503,   1.01185,    .10852,    .04522,
     +     .03375,    .08937,    .13835,
     +     .48027,    .23345,    .98945,    .10748,    .04526,
     +     .03403,    .08867,    .13690,
     +     .47845,    .23195,    .96853,    .10648,    .04528,
     +     .03427,    .08799,    .13553,
     +     .47670,    .23052,    .94911,    .10553,    .04528,
     +     .03447,    .08734,    .13423,
     +     .47483,    .22904,    .92965,    .10455,    .04524,
     +     .03463,    .08665,    .13289 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
     +     .52365,    .29286,   1.38353,    .09977,    .00000,
     +     .00000,    .06454,    .14903,
     +     .52744,    .29241,   1.41207,    .10050,    .00000,
     +     .00000,    .06638,    .14904,
     +     .53202,    .29140,   1.43947,    .10131,    .00000,
     +     .00000,    .06873,    .14876,
     +     .53474,    .29047,   1.45099,    .10173,    .00000,
     +     .00000,    .07021,    .14840,
     +     .53695,    .28931,   1.45250,    .10205,    .00083,
     +     .00000,    .07156,    .14788,
     +     .53840,    .28815,   1.44501,    .10222,    .00363,
     +     .00000,    .07257,    .14732,
     +     .53950,    .28694,   1.43502,    .10228,    .00656,
     +     .00000,    .07342,    .14672,
     +     .54039,    .28559,   1.42216,    .10227,    .00906,
     +     .00000,    .07419,    .14599 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
     +     .54086,    .28433,   1.40843,    .10217,    .01096,
     +     .00000,    .07475,    .14525,
     +     .54111,    .28305,   1.39354,    .10200,    .01269,
     +     .00000,    .07521,    .14448,
     +     .54122,    .28200,   1.38114,    .10185,    .01404,
     +     .00000,    .07553,    .14384,
     +     .54097,    .27967,   1.34914,    .10140,    .01658,
     +     .00041,    .07604,    .14238,
     +     .54036,    .27753,   1.31585,    .10089,    .01852,
     +     .00306,    .07631,    .14103,
     +     .53931,    .27505,   1.27734,    .10021,    .02048,
     +     .00599,    .07647,    .13941,
     +     .53783,    .27238,   1.23688,    .09937,    .02227,
     +     .00839,    .07646,    .13760,
     +     .53616,    .26987,   1.19995,    .09852,    .02370,
     +     .01034,    .07632,    .13589 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
     +     .53422,    .26729,   1.16277,    .09758,    .02498,
     +     .01213,    .07606,    .13410,
     +     .53240,    .26509,   1.13198,    .09674,    .02591,
     +     .01343,    .07578,    .13254,
     +     .52993,    .26237,   1.09490,    .09565,    .02690,
     +     .01485,    .07533,    .13061,
     +     .52758,    .25994,   1.06268,    .09465,    .02766,
     +     .01599,    .07488,    .12888,
     +     .52531,    .25769,   1.03368,    .09370,    .02829,
     +     .01695,    .07441,    .12727,
     +     .52219,    .25475,    .99726,    .09243,    .02895,
     +     .01800,    .07373,    .12519,
     +     .51909,    .25200,    .96393,    .09121,    .02947,
     +     .01889,    .07304,    .12321,
     +     .51607,    .24943,    .93362,    .09006,    .02991,
     +     .01965,    .07236,    .12136 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
     +     .51286,    .24679,    .90374,    .08886,    .03023,
     +     .02028,    .07162,    .11947,
     +     .50964,    .24422,    .87543,    .08768,    .03050,
     +     .02084,    .07088,    .11763,
     +     .50651,    .24179,    .84938,    .08656,    .03070,
     +     .02132,    .07014,    .11589,
     +     .50345,    .23946,    .82532,    .08547,    .03084,
     +     .02170,    .06942,    .11424,
     +     .50037,    .23713,    .80194,    .08438,    .03095,
     +     .02205,    .06869,    .11261,
     +     .49718,    .23482,    .77933,    .08329,    .03101,
     +     .02233,    .06794,    .11097,
     +     .49417,    .23265,    .75858,    .08227,    .03106,
     +     .02258,    .06724,    .10945,
     +     .49120,    .23056,    .73927,    .08128,    .03105,
     +     .02277,    .06655,    .10799 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
     +     .48821,    .22848,    .72040,    .08031,    .03104,
     +     .02294,    .06585,    .10654,
     +     .48519,    .22642,    .70217,    .07933,    .03099,
     +     .02308,    .06515,    .10510,
     +     .48228,    .22446,    .68523,    .07841,    .03093,
     +     .02319,    .06447,    .10374,
     +     .47952,    .22261,    .66958,    .07754,    .03087,
     +     .02328,    .06384,    .10246,
     +     .47664,    .22071,    .65402,    .07664,    .03077,
     +     .02333,    .06317,    .10116 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
     +     .59107,    .31451,   1.21478,    .08232,    .00000,
     +     .00000,    .05543,    .13229,
     +     .59201,    .31232,   1.22037,    .08238,    .00000,
     +     .00000,    .05639,    .13116,
     +     .59239,    .30888,   1.21854,    .08228,    .00000,
     +     .00000,    .05754,    .12931,
     +     .59211,    .30625,   1.21169,    .08211,    .00000,
     +     .00000,    .05819,    .12789,
     +     .59126,    .30336,   1.19745,    .08183,    .00062,
     +     .00000,    .05874,    .12636,
     +     .59012,    .30080,   1.17935,    .08152,    .00264,
     +     .00000,    .05910,    .12500,
     +     .58878,    .29829,   1.16048,    .08116,    .00475,
     +     .00000,    .05937,    .12365,
     +     .58711,    .29559,   1.13941,    .08073,    .00653,
     +     .00000,    .05957,    .12219 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
     +     .58540,    .29319,   1.11978,    .08029,    .00786,
     +     .00000,    .05965,    .12089,
     +     .58357,    .29084,   1.10009,    .07982,    .00908,
     +     .00000,    .05967,    .11961,
     +     .58205,    .28897,   1.08433,    .07944,    .01001,
     +     .00000,    .05966,    .11859,
     +     .57843,    .28493,   1.04759,    .07855,    .01175,
     +     .00030,    .05953,    .11636,
     +     .57498,    .28142,   1.01277,    .07772,    .01306,
     +     .00213,    .05931,    .11444,
     +     .57082,    .27747,    .97388,    .07673,    .01436,
     +     .00415,    .05896,    .11226,
     +     .56618,    .27334,    .93421,    .07563,    .01553,
     +     .00579,    .05851,    .10994,
     +     .56175,    .26956,    .89895,    .07458,    .01645,
     +     .00710,    .05802,    .10782 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
     +     .55709,    .26574,    .86423,    .07347,    .01725,
     +     .00828,    .05745,    .10569,
     +     .55307,    .26256,    .83602,    .07253,    .01782,
     +     .00914,    .05692,    .10391,
     +     .54800,    .25870,    .80267,    .07135,    .01841,
     +     .01005,    .05623,    .10174,
     +     .54341,    .25530,    .77412,    .07030,    .01886,
     +     .01079,    .05559,    .09984,
     +     .53914,    .25220,    .74874,    .06931,    .01922,
     +     .01139,    .05498,    .09812,
     +     .53354,    .24824,    .71739,    .06805,    .01957,
     +     .01205,    .05417,    .09592,
     +     .52819,    .24455,    .68906,    .06684,    .01984,
     +     .01259,    .05338,    .09388,
     +     .52315,    .24112,    .66358,    .06571,    .02006,
     +     .01304,    .05262,    .09201 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
     +     .51794,    .23769,    .63879,    .06457,    .02020,
     +     .01341,    .05184,    .09012,
     +     .51283,    .23436,    .61553,    .06347,    .02030,
     +     .01373,    .05106,    .08830,
     +     .50797,    .23124,    .59432,    .06243,    .02037,
     +     .01400,    .05033,    .08661,
     +     .50330,    .22829,    .57493,    .06144,    .02039,
     +     .01420,    .04962,    .08502,
     +     .49865,    .22538,    .55621,    .06046,    .02041,
     +     .01439,    .04892,    .08345,
     +     .49396,    .22251,    .53827,    .05949,    .02038,
     +     .01452,    .04820,    .08191,
     +     .48956,    .21984,    .52188,    .05858,    .02035,
     +     .01465,    .04754,    .08049,
     +     .48529,    .21729,    .50677,    .05772,    .02029,
     +     .01473,    .04689,    .07914 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
     +     .48104,    .21476,    .49207,    .05688,    .02023,
     +     .01481,    .04625,    .07780,
     +     .47681,    .21225,    .47798,    .05602,    .02014,
     +     .01485,    .04562,    .07650,
     +     .47280,    .20988,    .46496,    .05521,    .02006,
     +     .01489,    .04501,    .07528,
     +     .46900,    .20766,    .45298,    .05446,    .01997,
     +     .01491,    .04444,    .07414,
     +     .46508,    .20541,    .44114,    .05370,    .01986,
     +     .01491,    .04385,    .07299 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
     +     .64332,    .32634,   1.05341,    .06793,    .00000,
     +     .00000,    .04704,    .11483,
     +     .64103,    .32255,   1.04591,    .06764,    .00000,
     +     .00000,    .04745,    .11297,
     +     .63689,    .31679,   1.02809,    .06703,    .00000,
     +     .00000,    .04784,    .11024,
     +     .63343,    .31257,   1.01163,    .06651,    .00000,
     +     .00000,    .04802,    .10825,
     +     .62935,    .30813,    .98972,    .06594,    .00047,
     +     .00000,    .04808,    .10618,
     +     .62551,    .30430,    .96700,    .06539,    .00195,
     +     .00000,    .04807,    .10441,
     +     .62166,    .30063,    .94455,    .06482,    .00351,
     +     .00000,    .04800,    .10272,
     +     .61740,    .29674,    .92044,    .06418,    .00480,
     +     .00000,    .04786,    .10094 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
     +     .61348,    .29335,    .89895,    .06361,    .00576,
     +     .00000,    .04769,    .09936,
     +     .60957,    .29008,    .87799,    .06302,    .00663,
     +     .00000,    .04748,    .09785,
     +     .60643,    .28751,    .86150,    .06254,    .00729,
     +     .00000,    .04729,    .09666,
     +     .59946,    .28207,    .82472,    .06150,    .00851,
     +     .00023,    .04683,    .09415,
     +     .59327,    .27740,    .79141,    .06057,    .00941,
     +     .00152,    .04638,    .09201,
     +     .58617,    .27222,    .75499,    .05948,    .01030,
     +     .00295,    .04581,    .08966,
     +     .57860,    .26687,    .71847,    .05830,    .01109,
     +     .00409,    .04515,    .08723,
     +     .57159,    .26207,    .68654,    .05722,    .01169,
     +     .00500,    .04450,    .08506 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
     +     .56442,    .25729,    .65555,    .05613,    .01220,
     +     .00581,    .04382,    .08289,
     +     .55838,    .25335,    .63070,    .05520,    .01256,
     +     .00638,    .04323,    .08112,
     +     .55099,    .24859,    .60167,    .05406,    .01292,
     +     .00699,    .04248,    .07898,
     +     .54442,    .24445,    .57709,    .05305,    .01319,
     +     .00748,    .04180,    .07713,
     +     .53836,    .24073,    .55545,    .05214,    .01339,
     +     .00787,    .04118,    .07546,
     +     .53059,    .23602,    .52896,    .05096,    .01358,
     +     .00829,    .04036,    .07338,
     +     .52330,    .23164,    .50529,    .04986,    .01372,
     +     .00862,    .03958,    .07147,
     +     .51652,    .22762,    .48418,    .04885,    .01381,
     +     .00891,    .03885,    .06973 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
     +     .50963,    .22362,    .46386,    .04783,    .01386,
     +     .00912,    .03811,    .06799,
     +     .50294,    .21978,    .44490,    .04686,    .01389,
     +     .00931,    .03740,    .06634,
     +     .49662,    .21619,    .42773,    .04594,    .01389,
     +     .00946,    .03672,    .06480,
     +     .49064,    .21285,    .41216,    .04508,    .01387,
     +     .00957,    .03608,    .06338,
     +     .48471,    .20955,    .39720,    .04424,    .01384,
     +     .00967,    .03544,    .06198,
     +     .47881,    .20631,    .38300,    .04340,    .01378,
     +     .00974,    .03481,    .06063,
     +     .47331,    .20329,    .37009,    .04263,    .01372,
     +     .00980,    .03423,    .05939,
     +     .46807,    .20043,    .35825,    .04189,    .01365,
     +     .00983,    .03367,    .05821 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
     +     .46286,    .19761,    .34678,    .04115,    .01357,
     +     .00985,    .03312,    .05705,
     +     .45768,    .19485,    .33583,    .04044,    .01349,
     +     .00986,    .03257,    .05593,
     +     .45277,    .19224,    .32575,    .03978,    .01340,
     +     .00986,    .03204,    .05488,
     +     .44815,    .18981,    .31651,    .03916,    .01331,
     +     .00986,    .03155,    .05390,
     +     .44344,    .18736,    .30744,    .03854,    .01321,
     +     .00984,    .03107,    .05292 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
     +     .68130,    .33021,    .90952,    .05625,    .00000,
     +     .00000,    .03948,    .09749,
     +     .67575,    .32494,    .89460,    .05576,    .00000,
     +     .00000,    .03953,    .09529,
     +     .66694,    .31718,    .86815,    .05491,    .00000,
     +     .00000,    .03944,    .09216,
     +     .66022,    .31164,    .84684,    .05426,    .00000,
     +     .00000,    .03931,    .08990,
     +     .65294,    .30586,    .82150,    .05353,    .00036,
     +     .00000,    .03909,    .08761,
     +     .64648,    .30096,    .79718,    .05288,    .00147,
     +     .00000,    .03887,    .08568,
     +     .64017,    .29633,    .77376,    .05223,    .00262,
     +     .00000,    .03861,    .08387,
     +     .63338,    .29147,    .74913,    .05152,    .00358,
     +     .00000,    .03830,    .08199 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
     +     .62738,    .28725,    .72765,    .05088,    .00428,
     +     .00000,    .03798,    .08038,
     +     .62150,    .28323,    .70704,    .05026,    .00491,
     +     .00000,    .03765,    .07884,
     +     .61683,    .28011,    .69101,    .04976,    .00538,
     +     .00000,    .03739,    .07763,
     +     .60681,    .27348,    .65615,    .04867,    .00626,
     +     .00017,    .03678,    .07512,
     +     .59810,    .26792,    .62555,    .04773,    .00689,
     +     .00110,    .03622,    .07302,
     +     .58831,    .26180,    .59252,    .04666,    .00750,
     +     .00213,    .03556,    .07073,
     +     .57807,    .25555,    .55981,    .04554,    .00804,
     +     .00294,    .03484,    .06839,
     +     .56878,    .24999,    .53157,    .04451,    .00844,
     +     .00358,    .03417,    .06633 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
     +     .55944,    .24447,    .50447,    .04346,    .00878,
     +     .00414,    .03348,    .06430,
     +     .55168,    .23998,    .48294,    .04261,    .00901,
     +     .00454,    .03289,    .06264,
     +     .54226,    .23460,    .45805,    .04157,    .00923,
     +     .00495,    .03216,    .06070,
     +     .53401,    .22995,    .43716,    .04064,    .00939,
     +     .00528,    .03152,    .05903,
     +     .52652,    .22575,    .41890,    .03981,    .00950,
     +     .00554,    .03093,    .05753,
     +     .51693,    .22054,    .39676,    .03878,    .00960,
     +     .00581,    .03017,    .05566,
     +     .50804,    .21573,    .37711,    .03782,    .00966,
     +     .00603,    .02947,    .05396,
     +     .49984,    .21132,    .35970,    .03693,    .00970,
     +     .00620,    .02882,    .05242 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
     +     .49163,    .20696,    .34310,    .03603,    .00970,
     +     .00634,    .02816,    .05093,
     +     .48368,    .20280,    .32769,    .03518,    .00969,
     +     .00645,    .02752,    .04950,
     +     .47622,    .19896,    .31382,    .03441,    .00966,
     +     .00653,    .02693,    .04818,
     +     .46923,    .19536,    .30133,    .03368,    .00962,
     +     .00659,    .02638,    .04696,
     +     .46234,    .19183,    .28939,    .03295,    .00958,
     +     .00665,    .02583,    .04578,
     +     .45555,    .18839,    .27811,    .03224,    .00951,
     +     .00667,    .02530,    .04463,
     +     .44923,    .18520,    .26789,    .03159,    .00945,
     +     .00669,    .02480,    .04358,
     +     .44322,    .18220,    .25859,    .03098,    .00938,
     +     .00670,    .02433,    .04259 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
     +     .43727,    .17925,    .24960,    .03038,    .00931,
     +     .00670,    .02387,    .04163,
     +     .43142,    .17635,    .24106,    .02979,    .00922,
     +     .00669,    .02341,    .04070,
     +     .42590,    .17362,    .23323,    .02923,    .00914,
     +     .00668,    .02299,    .03984,
     +     .42073,    .17109,    .22608,    .02871,    .00907,
     +     .00667,    .02259,    .03904,
     +     .41550,    .16854,    .21908,    .02818,    .00898,
     +     .00664,    .02219,    .03823 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
     +     .70607,    .32762,    .78522,    .04681,    .00000,
     +     .00000,    .03275,    .08098,
     +     .69732,    .32107,    .76606,    .04616,    .00000,
     +     .00000,    .03259,    .07877,
     +     .68400,    .31163,    .73502,    .04520,    .00000,
     +     .00000,    .03225,    .07555,
     +     .67425,    .30490,    .71139,    .04445,    .00000,
     +     .00000,    .03194,    .07332,
     +     .66393,    .29802,    .68480,    .04366,    .00028,
     +     .00000,    .03159,    .07103,
     +     .65498,    .29228,    .66041,    .04298,    .00111,
     +     .00000,    .03126,    .06915,
     +     .64640,    .28686,    .63731,    .04231,    .00198,
     +     .00000,    .03092,    .06738,
     +     .63732,    .28120,    .61332,    .04158,    .00269,
     +     .00000,    .03053,    .06555 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
     +     .62941,    .27634,    .59272,    .04093,    .00320,
     +     .00000,    .03016,    .06403,
     +     .62175,    .27174,    .57318,    .04031,    .00366,
     +     .00000,    .02978,    .06257,
     +     .61573,    .26818,    .55809,    .03983,    .00401,
     +     .00000,    .02948,    .06143,
     +     .60293,    .26071,    .52595,    .03877,    .00464,
     +     .00013,    .02884,    .05907,
     +     .59201,    .25446,    .49828,    .03786,    .00509,
     +     .00081,    .02826,    .05716,
     +     .57991,    .24764,    .46879,    .03684,    .00552,
     +     .00156,    .02761,    .05506,
     +     .56743,    .24073,    .43995,    .03578,    .00588,
     +     .00214,    .02691,    .05295,
     +     .55621,    .23463,    .41529,    .03484,    .00615,
     +     .00259,    .02626,    .05112 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
     +     .54501,    .22864,    .39182,    .03390,    .00637,
     +     .00299,    .02560,    .04932,
     +     .53581,    .22377,    .37336,    .03312,    .00652,
     +     .00326,    .02506,    .04788,
     +     .52477,    .21800,    .35216,    .03218,    .00665,
     +     .00355,    .02440,    .04617,
     +     .51515,    .21303,    .33449,    .03137,    .00674,
     +     .00376,    .02381,    .04473,
     +     .50647,    .20857,    .31916,    .03063,    .00680,
     +     .00394,    .02328,    .04345,
     +     .49550,    .20305,    .30072,    .02972,    .00685,
     +     .00412,    .02261,    .04184,
     +     .48538,    .19798,    .28448,    .02889,    .00687,
     +     .00426,    .02200,    .04040,
     +     .47609,    .19336,    .27019,    .02812,    .00688,
     +     .00437,    .02144,    .03910 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
     +     .46684,    .18883,    .25664,    .02736,    .00686,
     +     .00445,    .02088,    .03783,
     +     .45798,    .18451,    .24415,    .02664,    .00683,
     +     .00451,    .02035,    .03664,
     +     .44974,    .18052,    .23296,    .02596,    .00679,
     +     .00456,    .01985,    .03554,
     +     .44204,    .17682,    .22296,    .02534,    .00674,
     +     .00459,    .01939,    .03454,
     +     .43447,    .17319,    .21344,    .02472,    .00669,
     +     .00461,    .01893,    .03358,
     +     .42703,    .16969,    .20448,    .02414,    .00663,
     +     .00462,    .01848,    .03264,
     +     .42012,    .16646,    .19639,    .02360,    .00658,
     +     .00463,    .01806,    .03178,
     +     .41360,    .16342,    .18905,    .02309,    .00651,
     +     .00462,    .01768,    .03098 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
     +     .40717,    .16042,    .18199,    .02259,    .00645,
     +     .00461,    .01731,    .03020,
     +     .40087,    .15750,    .17532,    .02210,    .00638,
     +     .00460,    .01694,    .02946,
     +     .39496,    .15477,    .16923,    .02164,    .00631,
     +     .00458,    .01659,    .02876,
     +     .38944,    .15223,    .16368,    .02122,    .00625,
     +     .00456,    .01627,    .02812,
     +     .38386,    .14970,    .15827,    .02080,    .00617,
     +     .00454,    .01595,    .02748 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
     +     .71878,    .31979,    .67911,    .03907,    .00000,
     +     .00000,    .02690,    .06594,
     +     .70696,    .31222,    .65749,    .03839,    .00000,
     +     .00000,    .02663,    .06379,
     +     .68949,    .30136,    .62412,    .03734,    .00000,
     +     .00000,    .02615,    .06077,
     +     .67691,    .29374,    .59961,    .03656,    .00000,
     +     .00000,    .02576,    .05867,
     +     .66383,    .28600,    .57296,    .03575,    .00022,
     +     .00000,    .02536,    .05655,
     +     .65268,    .27956,    .54923,    .03505,    .00084,
     +     .00000,    .02497,    .05483,
     +     .64209,    .27354,    .52705,    .03438,    .00150,
     +     .00000,    .02459,    .05323,
     +     .63096,    .26732,    .50426,    .03367,    .00203,
     +     .00000,    .02417,    .05158 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
     +     .62135,    .26201,    .48492,    .03305,    .00241,
     +     .00000,    .02380,    .05019,
     +     .61215,    .25698,    .46678,    .03245,    .00275,
     +     .00000,    .02343,    .04888,
     +     .60496,    .25309,    .45288,    .03199,    .00300,
     +     .00000,    .02314,    .04786,
     +     .58984,    .24500,    .42363,    .03097,    .00345,
     +     .00010,    .02250,    .04581,
     +     .57706,    .23831,    .39892,    .03013,    .00377,
     +     .00059,    .02195,    .04411,
     +     .56301,    .23106,    .37286,    .02920,    .00407,
     +     .00114,    .02134,    .04228,
     +     .54866,    .22374,    .34761,    .02823,    .00432,
     +     .00156,    .02069,    .04046,
     +     .53590,    .21731,    .32622,    .02738,    .00450,
     +     .00188,    .02011,    .03888 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
     +     .52327,    .21103,    .30605,    .02654,    .00465,
     +     .00216,    .01953,    .03734,
     +     .51295,    .20596,    .29031,    .02584,    .00474,
     +     .00235,    .01905,    .03612,
     +     .50064,    .19999,    .27235,    .02501,    .00482,
     +     .00255,    .01846,    .03470,
     +     .48999,    .19487,    .25751,    .02430,    .00487,
     +     .00270,    .01796,    .03349,
     +     .48040,    .19030,    .24470,    .02367,    .00490,
     +     .00282,    .01750,    .03241,
     +     .46842,    .18462,    .22943,    .02288,    .00491,
     +     .00293,    .01694,    .03110,
     +     .45742,    .17947,    .21606,    .02216,    .00491,
     +     .00302,    .01641,    .02992,
     +     .44735,    .17480,    .20436,    .02151,    .00490,
     +     .00309,    .01594,    .02885 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
     +     .43744,    .17022,    .19336,    .02085,    .00487,
     +     .00314,    .01548,    .02783,
     +     .42797,    .16587,    .18326,    .02023,    .00484,
     +     .00318,    .01503,    .02686,
     +     .41920,    .16187,    .17424,    .01966,    .00480,
     +     .00320,    .01461,    .02599,
     +     .41101,    .15819,    .16621,    .01915,    .00475,
     +     .00322,    .01423,    .02518,
     +     .40298,    .15460,    .15859,    .01865,    .00470,
     +     .00323,    .01387,    .02439,
     +     .39515,    .15113,    .15150,    .01817,    .00465,
     +     .00322,    .01351,    .02365,
     +     .38790,    .14793,    .14512,    .01772,    .00460,
     +     .00322,    .01317,    .02297,
     +     .38114,    .14492,    .13936,    .01729,    .00455,
     +     .00321,    .01286,    .02234 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
     +     .37448,    .14197,    .13382,    .01686,    .00449,
     +     .00320,    .01256,    .02173,
     +     .36795,    .13912,    .12861,    .01646,    .00444,
     +     .00318,    .01226,    .02113,
     +     .36181,    .13647,    .12386,    .01609,    .00438,
     +     .00316,    .01198,    .02059,
     +     .35610,    .13401,    .11955,    .01575,    .00433,
     +     .00314,    .01173,    .02008,
     +     .35036,    .13154,    .11537,    .01542,    .00427,
     +     .00312,    .01147,    .01957 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
     +     .72055,    .30780,    .58849,    .03267,    .00000,
     +     .00000,    .02187,    .05263,
     +     .70596,    .29943,    .56552,    .03197,    .00000,
     +     .00000,    .02153,    .05068,
     +     .68471,    .28756,    .53122,    .03094,    .00000,
     +     .00000,    .02100,    .04792,
     +     .66961,    .27927,    .50659,    .03017,    .00000,
     +     .00000,    .02059,    .04606,
     +     .65410,    .27093,    .48058,    .02938,    .00017,
     +     .00000,    .02012,    .04420,
     +     .64102,    .26404,    .45794,    .02870,    .00064,
     +     .00000,    .01974,    .04268,
     +     .62871,    .25760,    .43697,    .02805,    .00113,
     +     .00000,    .01937,    .04129,
     +     .61588,    .25096,    .41564,    .02737,    .00153,
     +     .00000,    .01896,    .03986 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
     +     .60483,    .24536,    .39777,    .02679,    .00181,
     +     .00000,    .01861,    .03865,
     +     .59436,    .24007,    .38114,    .02623,    .00206,
     +     .00000,    .01826,    .03752,
     +     .58622,    .23597,    .36847,    .02579,    .00224,
     +     .00000,    .01798,    .03666,
     +     .56915,    .22757,    .34214,    .02486,    .00257,
     +     .00008,    .01741,    .03490,
     +     .55493,    .22060,    .32028,    .02408,    .00280,
     +     .00044,    .01691,    .03347,
     +     .53937,    .21310,    .29744,    .02325,    .00301,
     +     .00084,    .01636,    .03192,
     +     .52357,    .20561,    .27550,    .02238,    .00318,
     +     .00114,    .01578,    .03041,
     +     .50961,    .19906,    .25709,    .02162,    .00330,
     +     .00137,    .01528,    .02911 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
     +     .49591,    .19268,    .23987,    .02087,    .00339,
     +     .00157,    .01479,    .02784,
     +     .48482,    .18752,    .22651,    .02026,    .00345,
     +     .00170,    .01437,    .02685,
     +     .47163,    .18149,    .21143,    .01954,    .00349,
     +     .00184,    .01387,    .02569,
     +     .46026,    .17634,    .19901,    .01892,    .00352,
     +     .00194,    .01344,    .02471,
     +     .45011,    .17177,    .18832,    .01837,    .00353,
     +     .00202,    .01307,    .02385,
     +     .43744,    .16615,    .17571,    .01769,    .00353,
     +     .00210,    .01259,    .02279,
     +     .42588,    .16105,    .16476,    .01708,    .00352,
     +     .00216,    .01216,    .02184,
     +     .41539,    .15643,    .15523,    .01651,    .00350,
     +     .00220,    .01178,    .02099 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
     +     .40506,    .15193,    .14631,    .01598,    .00347,
     +     .00223,    .01139,    .02018,
     +     .39523,    .14767,    .13817,    .01546,    .00344,
     +     .00225,    .01103,    .01943,
     +     .38616,    .14377,    .13094,    .01498,    .00340,
     +     .00226,    .01069,    .01875,
     +     .37775,    .14018,    .12454,    .01455,    .00336,
     +     .00226,    .01039,    .01811,
     +     .36953,    .13670,    .11849,    .01415,    .00332,
     +     .00226,    .01011,    .01748,
     +     .36157,    .13334,    .11287,    .01374,    .00327,
     +     .00226,    .00982,    .01691,
     +     .35422,    .13024,    .10783,    .01336,    .00323,
     +     .00225,    .00956,    .01638,
     +     .34733,    .12737,    .10330,    .01301,    .00319,
     +     .00224,    .00932,    .01589 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
     +     .34056,    .12455,    .09897,    .01268,    .00314,
     +     .00223,    .00908,    .01541,
     +     .33397,    .12182,    .09489,    .01235,    .00310,
     +     .00221,    .00884,    .01496,
     +     .32781,    .11928,    .09119,    .01205,    .00305,
     +     .00219,    .00862,    .01455,
     +     .32208,    .11692,    .08784,    .01177,    .00301,
     +     .00218,    .00841,    .01417,
     +     .31636,    .11457,    .08462,    .01149,    .00297,
     +     .00216,    .00821,    .01379 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
     +     .71226,    .29290,    .51066,    .02759,    .00000,
     +     .00000,    .01739,    .04101,
     +     .69530,    .28394,    .48695,    .02686,    .00000,
     +     .00000,    .01706,    .03932,
     +     .67084,    .27132,    .45246,    .02580,    .00000,
     +     .00000,    .01655,    .03697,
     +     .65365,    .26257,    .42832,    .02503,    .00000,
     +     .00000,    .01616,    .03539,
     +     .63615,    .25381,    .40330,    .02424,    .00013,
     +     .00000,    .01573,    .03384,
     +     .62153,    .24660,    .38197,    .02358,    .00049,
     +     .00000,    .01538,    .03258,
     +     .60781,    .23993,    .36245,    .02296,    .00086,
     +     .00000,    .01504,    .03139,
     +     .59357,    .23309,    .34278,    .02233,    .00115,
     +     .00000,    .01469,    .03018 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
     +     .58149,    .22728,    .32642,    .02177,    .00136,
     +     .00000,    .01436,    .02920,
     +     .57004,    .22185,    .31131,    .02123,    .00154,
     +     .00000,    .01405,    .02828,
     +     .56115,    .21766,    .29987,    .02081,    .00168,
     +     .00000,    .01382,    .02758,
     +     .54262,    .20912,    .27641,    .02000,    .00191,
     +     .00006,    .01330,    .02611,
     +     .52726,    .20208,    .25722,    .01930,    .00208,
     +     .00032,    .01289,    .02493,
     +     .51059,    .19454,    .23732,    .01854,    .00222,
     +     .00062,    .01242,    .02368,
     +     .49382,    .18701,    .21839,    .01777,    .00234,
     +     .00084,    .01193,    .02247,
     +     .47911,    .18045,    .20265,    .01708,    .00242,
     +     .00100,    .01149,    .02144 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
     +     .46473,    .17410,    .18804,    .01641,    .00248,
     +     .00114,    .01106,    .02044,
     +     .45309,    .16902,    .17681,    .01588,    .00251,
     +     .00124,    .01072,    .01966,
     +     .43933,    .16310,    .16417,    .01527,    .00254,
     +     .00133,    .01033,    .01872,
     +     .42754,    .15807,    .15386,    .01474,    .00255,
     +     .00140,    .00998,    .01795,
     +     .41704,    .15359,    .14509,    .01427,    .00255,
     +     .00145,    .00967,    .01729,
     +     .40408,    .14809,    .13475,    .01370,    .00254,
     +     .00150,    .00928,    .01645,
     +     .39228,    .14313,    .12581,    .01318,    .00252,
     +     .00154,    .00894,    .01570,
     +     .38157,    .13868,    .11807,    .01271,    .00250,
     +     .00157,    .00863,    .01504 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
     +     .37110,    .13434,    .11087,    .01226,    .00247,
     +     .00158,    .00833,    .01443,
     +     .36118,    .13025,    .10434,    .01181,    .00244,
     +     .00159,    .00804,    .01385,
     +     .35208,    .12652,    .09857,    .01139,    .00241,
     +     .00160,    .00777,    .01333,
     +     .34363,    .12309,    .09349,    .01104,    .00238,
     +     .00159,    .00753,    .01284,
     +     .33538,    .11977,    .08870,    .01072,    .00234,
     +     .00159,    .00730,    .01238,
     +     .32745,    .11658,    .08427,    .01038,    .00231,
     +     .00158,    .00707,    .01194,
     +     .32015,    .11364,    .08030,    .01007,    .00227,
     +     .00158,    .00686,    .01154,
     +     .31331,    .11093,    .07676,    .00980,    .00223,
     +     .00157,    .00667,    .01117 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
     +     .30660,    .10828,    .07338,    .00954,    .00220,
     +     .00155,    .00649,    .01081,
     +     .30011,    .10572,    .07022,    .00928,    .00216,
     +     .00154,    .00631,    .01047,
     +     .29406,    .10334,    .06735,    .00903,    .00213,
     +     .00153,    .00614,    .01017,
     +     .28845,    .10113,    .06476,    .00880,    .00210,
     +     .00151,    .00599,    .00988,
     +     .28285,    .09894,    .06226,    .00858,    .00206,
     +     .00150,    .00583,    .00960 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
     +     .69586,    .27517,    .44233,    .02289,    .00000,
     +     .00000,    .01386,    .03151,
     +     .67680,    .26590,    .41853,    .02220,    .00000,
     +     .00000,    .01354,    .03007,
     +     .64967,    .25286,    .38463,    .02119,    .00000,
     +     .00000,    .01303,    .02813,
     +     .63075,    .24387,    .36129,    .02046,    .00000,
     +     .00000,    .01267,    .02682,
     +     .61159,    .23495,    .33762,    .01975,    .00010,
     +     .00000,    .01229,    .02551,
     +     .59568,    .22765,    .31783,    .01915,    .00036,
     +     .00000,    .01197,    .02446,
     +     .58087,    .22089,    .29986,    .01858,    .00064,
     +     .00000,    .01165,    .02351,
     +     .56561,    .21398,    .28190,    .01800,    .00086,
     +     .00000,    .01132,    .02255 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
     +     .55267,    .20818,    .26714,    .01750,    .00101,
     +     .00000,    .01104,    .02174,
     +     .54047,    .20273,    .25359,    .01702,    .00115,
     +     .00000,    .01078,    .02100,
     +     .53105,    .19853,    .24337,    .01665,    .00124,
     +     .00000,    .01057,    .02043,
     +     .51151,    .19003,    .22267,    .01592,    .00141,
     +     .00005,    .01013,    .01927,
     +     .49544,    .18305,    .20596,    .01529,    .00152,
     +     .00024,    .00976,    .01834,
     +     .47809,    .17561,    .18883,    .01462,    .00163,
     +     .00045,    .00936,    .01736,
     +     .46068,    .16824,    .17265,    .01395,    .00170,
     +     .00061,    .00896,    .01640,
     +     .44548,    .16185,    .15931,    .01337,    .00176,
     +     .00072,    .00860,    .01558 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
     +     .43071,    .15568,    .14704,    .01280,    .00179,
     +     .00082,    .00825,    .01479,
     +     .41883,    .15075,    .13766,    .01234,    .00181,
     +     .00089,    .00797,    .01419,
     +     .40488,    .14502,    .12719,    .01181,    .00182,
     +     .00095,    .00765,    .01346,
     +     .39296,    .14017,    .11870,    .01137,    .00183,
     +     .00100,    .00738,    .01286,
     +     .38237,    .13590,    .11149,    .01099,    .00182,
     +     .00103,    .00712,    .01233,
     +     .36934,    .13064,    .10307,    .01051,    .00181,
     +     .00107,    .00681,    .01171,
     +     .35752,    .12592,    .09584,    .01008,    .00179,
     +     .00109,    .00654,    .01116,
     +     .34683,    .12168,    .08962,    .00970,    .00177,
     +     .00111,    .00628,    .01066 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
     +     .33645,    .11758,    .08386,    .00932,    .00175,
     +     .00111,    .00605,    .01019,
     +     .32664,    .11373,    .07866,    .00896,    .00172,
     +     .00112,    .00582,    .00975,
     +     .31764,    .11023,    .07409,    .00864,    .00170,
     +     .00112,    .00561,    .00935,
     +     .30938,    .10702,    .07008,    .00834,    .00167,
     +     .00112,    .00543,    .00899,
     +     .30134,    .10390,    .06632,    .00805,    .00164,
     +     .00111,    .00525,    .00865,
     +     .29356,    .10094,    .06285,    .00780,    .00161,
     +     .00110,    .00508,    .00833,
     +     .28640,    .09822,    .05974,    .00757,    .00159,
     +     .00110,    .00492,    .00803,
     +     .27978,    .09569,    .05699,    .00734,    .00156,
     +     .00109,    .00477,    .00776 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
     +     .27331,    .09322,    .05436,    .00711,    .00153,
     +     .00108,    .00463,    .00750,
     +     .26704,    .09085,    .05191,    .00690,    .00150,
     +     .00107,    .00449,    .00725,
     +     .26121,    .08865,    .04971,    .00671,    .00148,
     +     .00106,    .00436,    .00701,
     +     .25581,    .08662,    .04772,    .00654,    .00145,
     +     .00104,    .00425,    .00679,
     +     .25042,    .08462,    .04581,    .00636,    .00143,
     +     .00103,    .00413,    .00659 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
     +     .67193,    .25595,    .38198,    .01898,    .00000,
     +     .00000,    .01085,    .02366,
     +     .65124,    .24652,    .35853,    .01834,    .00000,
     +     .00000,    .01055,    .02250,
     +     .62205,    .23331,    .32580,    .01737,    .00000,
     +     .00000,    .01011,    .02094,
     +     .60185,    .22424,    .30367,    .01666,    .00000,
     +     .00000,    .00978,    .01993,
     +     .58146,    .21536,    .28155,    .01603,    .00008,
     +     .00000,    .00945,    .01885,
     +     .56470,    .20806,    .26338,    .01548,    .00027,
     +     .00000,    .00916,    .01804,
     +     .54915,    .20134,    .24707,    .01496,    .00048,
     +     .00000,    .00890,    .01728,
     +     .53317,    .19451,    .23091,    .01444,    .00064,
     +     .00000,    .00863,    .01651 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
     +     .51968,    .18880,    .21769,    .01399,    .00075,
     +     .00000,    .00840,    .01586,
     +     .50704,    .18345,    .20566,    .01356,    .00084,
     +     .00000,    .00817,    .01528,
     +     .49730,    .17936,    .19666,    .01322,    .00091,
     +     .00000,    .00799,    .01484,
     +     .47718,    .17101,    .17864,    .01258,    .00103,
     +     .00004,    .00762,    .01396,
     +     .46072,    .16423,    .16426,    .01204,    .00111,
     +     .00017,    .00731,    .01325,
     +     .44302,    .15704,    .14961,    .01146,    .00118,
     +     .00033,    .00698,    .01250,
     +     .42539,    .14992,    .13593,    .01089,    .00124,
     +     .00044,    .00666,    .01175,
     +     .41007,    .14378,    .12476,    .01040,    .00127,
     +     .00052,    .00638,    .01111 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
     +     .39524,    .13790,    .11454,    .00992,    .00129,
     +     .00059,    .00609,    .01051,
     +     .38335,    .13322,    .10677,    .00954,    .00130,
     +     .00064,    .00587,    .01004,
     +     .36943,    .12778,    .09818,    .00910,    .00131,
     +     .00068,    .00560,    .00953,
     +     .35761,    .12319,    .09125,    .00872,    .00130,
     +     .00071,    .00537,    .00909,
     +     .34717,    .11915,    .08541,    .00838,    .00130,
     +     .00073,    .00518,    .00868,
     +     .33432,    .11421,    .07862,    .00799,    .00128,
     +     .00076,    .00494,    .00822,
     +     .32271,    .10979,    .07280,    .00765,    .00127,
     +     .00077,    .00473,    .00780,
     +     .31226,    .10584,    .06782,    .00734,    .00125,
     +     .00078,    .00454,    .00741 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
     +     .30211,    .10203,    .06326,    .00704,    .00123,
     +     .00078,    .00434,    .00707,
     +     .29257,    .09846,    .05916,    .00676,    .00121,
     +     .00078,    .00417,    .00675,
     +     .28387,    .09520,    .05558,    .00649,    .00119,
     +     .00078,    .00401,    .00647,
     +     .27590,    .09224,    .05243,    .00624,    .00117,
     +     .00078,    .00387,    .00621,
     +     .26818,    .08937,    .04948,    .00601,    .00115,
     +     .00078,    .00374,    .00595,
     +     .26073,    .08664,    .04678,    .00581,    .00112,
     +     .00077,    .00360,    .00572,
     +     .25389,    .08415,    .04437,    .00562,    .00110,
     +     .00076,    .00348,    .00550,
     +     .24757,    .08184,    .04225,    .00544,    .00108,
     +     .00075,    .00337,    .00530 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
     +     .24139,    .07960,    .04023,    .00526,    .00106,
     +     .00075,    .00327,    .00511,
     +     .23544,    .07744,    .03834,    .00509,    .00104,
     +     .00074,    .00317,    .00492,
     +     .22991,    .07544,    .03664,    .00494,    .00102,
     +     .00073,    .00307,    .00476,
     +     .22479,    .07360,    .03512,    .00480,    .00100,
     +     .00072,    .00298,    .00461,
     +     .21970,    .07178,    .03366,    .00467,    .00098,
     +     .00071,    .00289,    .00446 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
     +     .64184,    .23562,    .32795,    .01552,    .00000,
     +     .00000,    .00841,    .01746,
     +     .62004,    .22613,    .30530,    .01489,    .00000,
     +     .00000,    .00815,    .01658,
     +     .58936,    .21304,    .27420,    .01401,    .00000,
     +     .00000,    .00776,    .01535,
     +     .56820,    .20415,    .25357,    .01342,    .00000,
     +     .00000,    .00748,    .01451,
     +     .54710,    .19536,    .23330,    .01283,    .00006,
     +     .00000,    .00721,    .01370,
     +     .52978,    .18822,    .21688,    .01234,    .00020,
     +     .00000,    .00696,    .01307,
     +     .51376,    .18169,    .20225,    .01190,    .00035,
     +     .00000,    .00673,    .01248,
     +     .49739,    .17506,    .18787,    .01144,    .00047,
     +     .00000,    .00651,    .01189 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
     +     .48365,    .16950,    .17624,    .01104,    .00055,
     +     .00000,    .00630,    .01142,
     +     .47079,    .16434,    .16574,    .01067,    .00062,
     +     .00000,    .00612,    .01097,
     +     .46091,    .16040,    .15793,    .01040,    .00067,
     +     .00000,    .00598,    .01062,
     +     .44064,    .15240,    .14238,    .00983,    .00075,
     +     .00003,    .00567,    .00994,
     +     .42409,    .14594,    .13014,    .00937,    .00080,
     +     .00012,    .00542,    .00940,
     +     .40641,    .13908,    .11779,    .00888,    .00085,
     +     .00023,    .00516,    .00883,
     +     .38886,    .13233,    .10635,    .00840,    .00089,
     +     .00031,    .00489,    .00829,
     +     .37367,    .12653,    .09708,    .00797,    .00091,
     +     .00037,    .00466,    .00783 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
     +     .35903,    .12099,    .08868,    .00758,    .00092,
     +     .00042,    .00445,    .00739,
     +     .34736,    .11658,    .08234,    .00728,    .00092,
     +     .00045,    .00426,    .00704,
     +     .33375,    .11152,    .07536,    .00692,    .00092,
     +     .00048,    .00406,    .00664,
     +     .32224,    .10724,    .06975,    .00660,    .00092,
     +     .00050,    .00389,    .00630,
     +     .31211,    .10347,    .06505,    .00633,    .00091,
     +     .00052,    .00374,    .00602,
     +     .29964,    .09891,    .05964,    .00603,    .00090,
     +     .00053,    .00355,    .00567,
     +     .28844,    .09484,    .05503,    .00575,    .00089,
     +     .00054,    .00338,    .00537,
     +     .27841,    .09119,    .05109,    .00550,    .00088,
     +     .00054,    .00324,    .00510 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
     +     .26871,    .08771,    .04751,    .00526,    .00086,
     +     .00055,    .00310,    .00484,
     +     .25960,    .08444,    .04429,    .00503,    .00084,
     +     .00055,    .00297,    .00461,
     +     .25129,    .08146,    .04149,    .00482,    .00083,
     +     .00054,    .00285,    .00441,
     +     .24372,    .07876,    .03904,    .00463,    .00081,
     +     .00054,    .00274,    .00423,
     +     .23639,    .07616,    .03676,    .00444,    .00079,
     +     .00054,    .00262,    .00405,
     +     .22935,    .07369,    .03468,    .00428,    .00078,
     +     .00053,    .00253,    .00387,
     +     .22291,    .07143,    .03284,    .00413,    .00076,
     +     .00052,    .00245,    .00371,
     +     .21698,    .06934,    .03120,    .00399,    .00074,
     +     .00052,    .00236,    .00358 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
     +     .21121,    .06731,    .02965,    .00384,    .00073,
     +     .00051,    .00228,    .00345,
     +     .20563,    .06538,    .02821,    .00372,    .00071,
     +     .00051,    .00220,    .00333,
     +     .20045,    .06360,    .02692,    .00361,    .00070,
     +     .00050,    .00213,    .00321,
     +     .19567,    .06196,    .02576,    .00350,    .00068,
     +     .00049,    .00206,    .00310,
     +     .19096,    .06033,    .02465,    .00339,    .00067,
     +     .00048,    .00200,    .00300 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
     +     .60678,    .21464,    .27927,    .01249,    .00000,
     +     .00000,    .00648,    .01266,
     +     .58418,    .20538,    .25777,    .01191,    .00000,
     +     .00000,    .00626,    .01198,
     +     .55261,    .19259,    .22891,    .01114,    .00000,
     +     .00000,    .00591,    .01105,
     +     .53100,    .18395,    .20997,    .01062,    .00000,
     +     .00000,    .00568,    .01041,
     +     .50952,    .17549,    .19168,    .01010,    .00004,
     +     .00000,    .00541,    .00981,
     +     .49197,    .16863,    .17706,    .00969,    .00015,
     +     .00000,    .00523,    .00930,
     +     .47583,    .16235,    .16415,    .00929,    .00025,
     +     .00000,    .00505,    .00887,
     +     .45940,    .15599,    .15158,    .00888,    .00034,
     +     .00000,    .00485,    .00845 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
     +     .44561,    .15071,    .14150,    .00857,    .00039,
     +     .00000,    .00468,    .00807,
     +     .43275,    .14581,    .13244,    .00828,    .00044,
     +     .00000,    .00453,    .00773,
     +     .42290,    .14207,    .12572,    .00804,    .00048,
     +     .00000,    .00442,    .00748,
     +     .40282,    .13450,    .11251,    .00756,    .00054,
     +     .00002,    .00417,    .00698,
     +     .38652,    .12839,    .10224,    .00716,    .00057,
     +     .00009,    .00398,    .00660,
     +     .36913,    .12197,    .09197,    .00675,    .00060,
     +     .00017,    .00376,    .00618,
     +     .35198,    .11566,    .08253,    .00636,    .00063,
     +     .00022,    .00356,    .00577,
     +     .33721,    .11027,    .07495,    .00603,    .00064,
     +     .00026,    .00339,    .00542 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
     +     .32300,    .10513,    .06813,    .00571,    .00065,
     +     .00030,    .00322,    .00509,
     +     .31174,    .10107,    .06301,    .00545,    .00065,
     +     .00032,    .00308,    .00484,
     +     .29862,    .09638,    .05741,    .00517,    .00065,
     +     .00034,    .00292,    .00457,
     +     .28755,    .09245,    .05294,    .00492,    .00064,
     +     .00035,    .00279,    .00433,
     +     .27783,    .08901,    .04920,    .00471,    .00064,
     +     .00036,    .00268,    .00410,
     +     .26599,    .08484,    .04492,    .00446,    .00063,
     +     .00037,    .00253,    .00386,
     +     .25536,    .08113,    .04130,    .00423,    .00062,
     +     .00037,    .00240,    .00365,
     +     .24585,    .07782,    .03822,    .00404,    .00061,
     +     .00038,    .00229,    .00346 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
     +     .23669,    .07467,    .03544,    .00386,    .00059,
     +     .00038,    .00219,    .00327,
     +     .22812,    .07172,    .03295,    .00369,    .00058,
     +     .00038,    .00209,    .00310,
     +     .22036,    .06904,    .03079,    .00351,    .00057,
     +     .00037,    .00200,    .00296,
     +     .21325,    .06661,    .02890,    .00337,    .00055,
     +     .00037,    .00192,    .00284,
     +     .20638,    .06428,    .02715,    .00324,    .00054,
     +     .00037,    .00185,    .00273,
     +     .19984,    .06207,    .02556,    .00312,    .00053,
     +     .00036,    .00178,    .00260,
     +     .19386,    .06005,    .02415,    .00301,    .00052,
     +     .00036,    .00171,    .00247,
     +     .18837,    .05820,    .02290,    .00289,    .00051,
     +     .00035,    .00165,    .00238 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
     +     .18303,    .05641,    .02173,    .00277,    .00049,
     +     .00035,    .00158,    .00229,
     +     .17789,    .05469,    .02064,    .00267,    .00048,
     +     .00034,    .00153,    .00220,
     +     .17314,    .05311,    .01968,    .00257,    .00047,
     +     .00034,    .00148,    .00212,
     +     .16876,    .05166,    .01881,    .00249,    .00046,
     +     .00033,    .00144,    .00204,
     +     .16442,    .05023,    .01797,    .00242,    .00045,
     +     .00033,    .00139,    .00197 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
     +     .56773,    .19374,    .23557,    .00999,    .00000,
     +     .00000,    .00487,    .00895,
     +     .54476,    .18481,    .21560,    .00951,    .00000,
     +     .00000,    .00465,    .00845,
     +     .51287,    .17255,    .18922,    .00882,    .00000,
     +     .00000,    .00437,    .00775,
     +     .49116,    .16429,    .17220,    .00836,    .00000,
     +     .00000,    .00417,    .00730,
     +     .46974,    .15617,    .15597,    .00792,    .00003,
     +     .00000,    .00400,    .00683,
     +     .45230,    .14965,    .14316,    .00754,    .00010,
     +     .00000,    .00383,    .00650,
     +     .43630,    .14372,    .13196,    .00721,    .00018,
     +     .00000,    .00368,    .00619,
     +     .42005,    .13773,    .12113,    .00688,    .00024,
     +     .00000,    .00353,    .00586 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
     +     .40648,    .13277,    .11250,    .00661,    .00028,
     +     .00000,    .00340,    .00559,
     +     .39389,    .12817,    .10481,    .00635,    .00031,
     +     .00000,    .00328,    .00533,
     +     .38426,    .12467,    .09915,    .00615,    .00034,
     +     .00000,    .00320,    .00514,
     +     .36464,    .11763,    .08814,    .00578,    .00038,
     +     .00002,    .00301,    .00478,
     +     .34881,    .11196,    .07962,    .00545,    .00040,
     +     .00006,    .00286,    .00450,
     +     .33201,    .10601,    .07120,    .00513,    .00042,
     +     .00012,    .00271,    .00418,
     +     .31551,    .10019,    .06353,    .00480,    .00044,
     +     .00016,    .00255,    .00390,
     +     .30135,    .09523,    .05740,    .00452,    .00045,
     +     .00018,    .00241,    .00367 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
     +     .28776,    .09054,    .05191,    .00427,    .00045,
     +     .00021,    .00228,    .00344,
     +     .27705,    .08683,    .04784,    .00407,    .00045,
     +     .00022,    .00216,    .00327,
     +     .26463,    .08257,    .04340,    .00383,    .00045,
     +     .00023,    .00205,    .00307,
     +     .25418,    .07900,    .03988,    .00364,    .00044,
     +     .00024,    .00195,    .00290,
     +     .24502,    .07588,    .03695,    .00348,    .00044,
     +     .00025,    .00186,    .00276,
     +     .23383,    .07213,    .03361,    .00330,    .00043,
     +     .00025,    .00177,    .00257,
     +     .22389,    .06880,    .03080,    .00312,    .00042,
     +     .00026,    .00167,    .00242,
     +     .21506,    .06584,    .02841,    .00295,    .00041,
     +     .00026,    .00159,    .00230 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
     +     .20656,    .06300,    .02626,    .00280,    .00040,
     +     .00026,    .00151,    .00218,
     +     .19860,    .06037,    .02436,    .00266,    .00040,
     +     .00026,    .00144,    .00207,
     +     .19137,    .05799,    .02271,    .00256,    .00039,
     +     .00025,    .00138,    .00196,
     +     .18484,    .05585,    .02128,    .00244,    .00038,
     +     .00025,    .00132,    .00186,
     +     .17855,    .05380,    .01995,    .00233,    .00037,
     +     .00025,    .00127,    .00177,
     +     .17253,    .05185,    .01874,    .00224,    .00036,
     +     .00025,    .00121,    .00169,
     +     .16704,    .05008,    .01768,    .00215,    .00035,
     +     .00024,    .00116,    .00161,
     +     .16201,    .04846,    .01674,    .00207,    .00034,
     +     .00024,    .00112,    .00155 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
     +     .15713,    .04688,    .01586,    .00199,    .00033,
     +     .00024,    .00109,    .00148,
     +     .15245,    .04537,    .01505,    .00192,    .00033,
     +     .00023,    .00105,    .00143,
     +     .14812,    .04399,    .01432,    .00185,    .00032,
     +     .00023,    .00100,    .00138,
     +     .14415,    .04271,    .01367,    .00178,    .00031,
     +     .00022,    .00096,    .00133,
     +     .14022,    .04147,    .01304,    .00173,    .00030,
     +     .00022,    .00093,    .00129 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
     +     .52582,    .17310,    .19621,    .00781,    .00000,
     +     .00000,    .00361,    .00623,
     +     .50287,    .16462,    .17814,    .00742,    .00000,
     +     .00000,    .00341,    .00586,
     +     .47125,    .15298,    .15458,    .00683,    .00000,
     +     .00000,    .00320,    .00537,
     +     .44977,    .14523,    .13956,    .00647,    .00000,
     +     .00000,    .00303,    .00500,
     +     .42870,    .13763,    .12543,    .00607,    .00002,
     +     .00000,    .00289,    .00470,
     +     .41161,    .13154,    .11446,    .00579,    .00007,
     +     .00000,    .00275,    .00444,
     +     .39601,    .12600,    .10489,    .00552,    .00013,
     +     .00000,    .00264,    .00421,
     +     .38024,    .12041,    .09569,    .00524,    .00017,
     +     .00000,    .00253,    .00398 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
     +     .36709,    .11584,    .08846,    .00503,    .00020,
     +     .00000,    .00243,    .00376,
     +     .35491,    .11161,    .08206,    .00483,    .00022,
     +     .00000,    .00234,    .00357,
     +     .34562,    .10839,    .07736,    .00467,    .00024,
     +     .00000,    .00226,    .00344,
     +     .32683,    .10188,    .06828,    .00434,    .00026,
     +     .00001,    .00211,    .00321,
     +     .31167,    .09670,    .06136,    .00410,    .00028,
     +     .00004,    .00200,    .00300,
     +     .29565,    .09127,    .05457,    .00385,    .00029,
     +     .00008,    .00189,    .00278,
     +     .28002,    .08598,    .04842,    .00359,    .00030,
     +     .00011,    .00177,    .00257,
     +     .26667,    .08149,    .04354,    .00336,    .00031,
     +     .00013,    .00166,    .00241 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
     +     .25392,    .07723,    .03920,    .00316,    .00031,
     +     .00014,    .00156,    .00227,
     +     .24382,    .07389,    .03599,    .00301,    .00031,
     +     .00015,    .00148,    .00215,
     +     .23217,    .07008,    .03252,    .00285,    .00031,
     +     .00016,    .00140,    .00200,
     +     .22242,    .06689,    .02978,    .00270,    .00030,
     +     .00017,    .00133,    .00189,
     +     .21391,    .06412,    .02751,    .00257,    .00030,
     +     .00017,    .00126,    .00179,
     +     .20361,    .06076,    .02494,    .00241,    .00029,
     +     .00017,    .00118,    .00167,
     +     .19443,    .05780,    .02279,    .00227,    .00029,
     +     .00017,    .00112,    .00157,
     +     .18626,    .05518,    .02097,    .00216,    .00028,
     +     .00018,    .00108,    .00147 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
     +     .17847,    .05269,    .01934,    .00204,    .00027,
     +     .00017,    .00102,    .00139,
     +     .17121,    .05037,    .01789,    .00193,    .00027,
     +     .00017,    .00096,    .00132,
     +     .16462,    .04828,    .01664,    .00184,    .00026,
     +     .00017,    .00092,    .00126,
     +     .15866,    .04640,    .01556,    .00176,    .00025,
     +     .00017,    .00088,    .00120,
     +     .15293,    .04460,    .01456,    .00168,    .00025,
     +     .00017,    .00085,    .00113,
     +     .14750,    .04290,    .01366,    .00161,    .00024,
     +     .00017,    .00081,    .00108,
     +     .14256,    .04135,    .01287,    .00154,    .00023,
     +     .00016,    .00078,    .00103,
     +     .13803,    .03994,    .01217,    .00148,    .00023,
     +     .00016,    .00074,    .00099 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
     +     .13363,    .03858,    .01151,    .00142,    .00022,
     +     .00016,    .00071,    .00095,
     +     .12942,    .03728,    .01090,    .00137,    .00022,
     +     .00016,    .00068,    .00091,
     +     .12553,    .03608,    .01036,    .00132,    .00021,
     +     .00015,    .00065,    .00088,
     +     .12197,    .03499,    .00988,    .00128,    .00021,
     +     .00015,    .00063,    .00084,
     +     .11847,    .03391,    .00942,    .00122,    .00020,
     +     .00015,    .00060,    .00082 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
     +     .48199,    .15301,    .16105,    .00594,    .00000,
     +     .00000,    .00265,    .00428,
     +     .45944,    .14504,    .14501,    .00561,    .00000,
     +     .00000,    .00251,    .00401,
     +     .42850,    .13419,    .12439,    .00514,    .00000,
     +     .00000,    .00235,    .00363,
     +     .40763,    .12697,    .11142,    .00483,    .00000,
     +     .00000,    .00220,    .00339,
     +     .38723,    .11993,    .09937,    .00453,    .00002,
     +     .00000,    .00209,    .00316,
     +     .37076,    .11431,    .09010,    .00429,    .00005,
     +     .00000,    .00199,    .00299,
     +     .35576,    .10921,    .08210,    .00408,    .00009,
     +     .00000,    .00190,    .00283,
     +     .34064,    .10410,    .07448,    .00386,    .00012,
     +     .00000,    .00181,    .00267 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
     +     .32808,    .09990,    .06853,    .00368,    .00013,
     +     .00000,    .00173,    .00255,
     +     .31648,    .09603,    .06329,    .00352,    .00015,
     +     .00000,    .00166,    .00243,
     +     .30765,    .09309,    .05947,    .00340,    .00016,
     +     .00000,    .00161,    .00234,
     +     .28987,    .08721,    .05214,    .00314,    .00018,
     +     .00001,    .00150,    .00215,
     +     .27557,    .08253,    .04660,    .00296,    .00019,
     +     .00003,    .00142,    .00199,
     +     .26053,    .07762,    .04119,    .00276,    .00020,
     +     .00006,    .00133,    .00185,
     +     .24588,    .07288,    .03635,    .00258,    .00020,
     +     .00007,    .00123,    .00172,
     +     .23341,    .06886,    .03254,    .00241,    .00021,
     +     .00009,    .00116,    .00161 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
     +     .22158,    .06507,    .02917,    .00224,    .00021,
     +     .00010,    .00110,    .00150,
     +     .21225,    .06213,    .02670,    .00214,    .00021,
     +     .00010,    .00105,    .00139,
     +     .20155,    .05873,    .02402,    .00199,    .00021,
     +     .00011,    .00098,    .00130,
     +     .19260,    .05591,    .02193,    .00187,    .00020,
     +     .00011,    .00093,    .00123,
     +     .18479,    .05348,    .02021,    .00178,    .00020,
     +     .00011,    .00088,    .00116,
     +     .17535,    .05053,    .01826,    .00168,    .00020,
     +     .00012,    .00082,    .00108,
     +     .16700,    .04794,    .01663,    .00157,    .00019,
     +     .00012,    .00078,    .00102,
     +     .15960,    .04566,    .01527,    .00148,    .00019,
     +     .00012,    .00074,    .00097 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
     +     .15253,    .04348,    .01404,    .00140,    .00018,
     +     .00012,    .00070,    .00092,
     +     .14595,    .04148,    .01296,    .00132,    .00018,
     +     .00012,    .00067,    .00086,
     +     .14002,    .03968,    .01204,    .00126,    .00017,
     +     .00011,    .00064,    .00081,
     +     .13468,    .03805,    .01124,    .00120,    .00017,
     +     .00011,    .00061,    .00076,
     +     .12957,    .03649,    .01050,    .00113,    .00016,
     +     .00011,    .00057,    .00073,
     +     .12470,    .03503,    .00983,    .00109,    .00016,
     +     .00011,    .00055,    .00069,
     +     .12027,    .03371,    .00924,    .00105,    .00015,
     +     .00011,    .00053,    .00066,
     +     .11624,    .03250,    .00873,    .00100,    .00015,
     +     .00011,    .00050,    .00063 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
     +     .11235,    .03133,    .00825,    .00094,    .00015,
     +     .00010,    .00048,    .00061,
     +     .10861,    .03023,    .00780,    .00090,    .00014,
     +     .00010,    .00046,    .00058,
     +     .10516,    .02921,    .00740,    .00088,    .00014,
     +     .00010,    .00045,    .00056,
     +     .10201,    .02828,    .00705,    .00086,    .00013,
     +     .00010,    .00043,    .00054,
     +     .09893,    .02737,    .00672,    .00082,    .00013,
     +     .00010,    .00041,    .00051 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
     +     .43719,    .13385,    .13012,    .00445,    .00000,
     +     .00000,    .00192,    .00288,
     +     .41537,    .12647,    .11617,    .00418,    .00000,
     +     .00000,    .00181,    .00269,
     +     .38558,    .11645,    .09850,    .00377,    .00000,
     +     .00000,    .00168,    .00243,
     +     .36555,    .10980,    .08754,    .00352,    .00000,
     +     .00000,    .00158,    .00229,
     +     .34609,    .10337,    .07748,    .00326,    .00001,
     +     .00000,    .00149,    .00212,
     +     .33042,    .09827,    .06983,    .00309,    .00003,
     +     .00000,    .00142,    .00199,
     +     .31622,    .09364,    .06328,    .00293,    .00006,
     +     .00000,    .00135,    .00188,
     +     .30194,    .08901,    .05708,    .00275,    .00008,
     +     .00000,    .00128,    .00177 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
     +     .29009,    .08521,    .05228,    .00263,    .00009,
     +     .00000,    .00123,    .00168,
     +     .27920,    .08173,    .04807,    .00250,    .00010,
     +     .00000,    .00118,    .00160,
     +     .27095,    .07909,    .04502,    .00240,    .00011,
     +     .00000,    .00114,    .00155,
     +     .25433,    .07382,    .03921,    .00219,    .00012,
     +     .00001,    .00107,    .00142,
     +     .24103,    .06963,    .03487,    .00206,    .00013,
     +     .00002,    .00100,    .00132,
     +     .22713,    .06527,    .03067,    .00189,    .00013,
     +     .00004,    .00093,    .00123,
     +     .21362,    .06108,    .02692,    .00176,    .00014,
     +     .00005,    .00087,    .00114,
     +     .20214,    .05754,    .02399,    .00164,    .00014,
     +     .00006,    .00082,    .00106 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
     +     .19129,    .05421,    .02142,    .00152,    .00014,
     +     .00006,    .00077,    .00099,
     +     .18278,    .05161,    .01954,    .00143,    .00014,
     +     .00007,    .00072,    .00093,
     +     .17303,    .04867,    .01753,    .00135,    .00014,
     +     .00007,    .00068,    .00085,
     +     .16490,    .04621,    .01596,    .00127,    .00013,
     +     .00007,    .00065,    .00080,
     +     .15785,    .04408,    .01466,    .00119,    .00013,
     +     .00008,    .00061,    .00077,
     +     .14936,    .04154,    .01321,    .00110,    .00013,
     +     .00008,    .00057,    .00071,
     +     .14185,    .03930,    .01201,    .00104,    .00012,
     +     .00008,    .00054,    .00067,
     +     .13520,    .03733,    .01100,    .00099,    .00012,
     +     .00008,    .00051,    .00064 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
     +     .12890,    .03547,    .01009,    .00092,    .00012,
     +     .00008,    .00049,    .00060,
     +     .12305,    .03375,    .00929,    .00087,    .00011,
     +     .00008,    .00046,    .00056,
     +     .11778,    .03222,    .00861,    .00082,    .00011,
     +     .00008,    .00043,    .00053,
     +     .11304,    .03083,    .00803,    .00078,    .00011,
     +     .00007,    .00041,    .00050,
     +     .10852,    .02951,    .00749,    .00074,    .00010,
     +     .00007,    .00039,    .00048,
     +     .10423,    .02827,    .00700,    .00071,    .00010,
     +     .00007,    .00037,    .00045,
     +     .10033,    .02716,    .00658,    .00068,    .00010,
     +     .00007,    .00036,    .00042,
     +     .09678,    .02614,    .00620,    .00065,    .00010,
     +     .00007,    .00034,    .00040 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
     +     .09335,    .02515,    .00585,    .00062,    .00009,
     +     .00007,    .00033,    .00038,
     +     .09010,    .02422,    .00553,    .00059,    .00009,
     +     .00007,    .00031,    .00037,
     +     .08711,    .02337,    .00524,    .00057,    .00009,
     +     .00007,    .00030,    .00035,
     +     .08438,    .02259,    .00499,    .00055,    .00009,
     +     .00006,    .00029,    .00034,
     +     .08171,    .02182,    .00475,    .00052,    .00008,
     +     .00006,    .00028,    .00033 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
     +     .39235,    .11596,    .10345,    .00335,    .00000,
     +     .00000,    .00129,    .00185,
     +     .37155,    .10921,    .09166,    .00313,    .00000,
     +     .00000,    .00121,    .00173,
     +     .34327,    .10014,    .07687,    .00283,    .00000,
     +     .00000,    .00111,    .00155,
     +     .32436,    .09412,    .06782,    .00266,    .00000,
     +     .00000,    .00104,    .00144,
     +     .30605,    .08832,    .05962,    .00245,    .00001,
     +     .00000,    .00098,    .00134,
     +     .29137,    .08374,    .05343,    .00232,    .00002,
     +     .00000,    .00094,    .00123,
     +     .27812,    .07959,    .04818,    .00219,    .00004,
     +     .00000,    .00089,    .00116,
     +     .26485,    .07545,    .04325,    .00203,    .00005,
     +     .00000,    .00082,    .00111 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
     +     .25390,    .07207,    .03943,    .00192,    .00006,
     +     .00000,    .00079,    .00106,
     +     .24382,    .06897,    .03612,    .00183,    .00007,
     +     .00000,    .00075,    .00099,
     +     .23618,    .06664,    .03373,    .00177,    .00007,
     +     .00000,    .00073,    .00094,
     +     .22088,    .06199,    .02921,    .00161,    .00008,
     +     .00000,    .00067,    .00087,
     +     .20870,    .05830,    .02585,    .00149,    .00008,
     +     .00001,    .00063,    .00081,
     +     .19598,    .05448,    .02264,    .00139,    .00009,
     +     .00002,    .00058,    .00075,
     +     .18366,    .05082,    .01979,    .00130,    .00009,
     +     .00003,    .00054,    .00068,
     +     .17327,    .04774,    .01757,    .00122,    .00009,
     +     .00004,    .00050,    .00063 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
     +     .16349,    .04485,    .01564,    .00112,    .00009,
     +     .00004,    .00047,    .00059,
     +     .15585,    .04261,    .01422,    .00105,    .00009,
     +     .00005,    .00045,    .00055,
     +     .14710,    .04004,    .01272,    .00098,    .00009,
     +     .00005,    .00041,    .00051,
     +     .13984,    .03793,    .01155,    .00092,    .00009,
     +     .00005,    .00039,    .00049,
     +     .13356,    .03610,    .01059,    .00087,    .00009,
     +     .00005,    .00038,    .00046,
     +     .12604,    .03393,    .00952,    .00078,    .00008,
     +     .00005,    .00034,    .00043,
     +     .11937,    .03202,    .00863,    .00074,    .00008,
     +     .00005,    .00032,    .00040,
     +     .11346,    .03034,    .00789,    .00072,    .00008,
     +     .00005,    .00031,    .00038 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
     +     .10791,    .02876,    .00723,    .00067,    .00008,
     +     .00005,    .00029,    .00035,
     +     .10279,    .02730,    .00665,    .00062,    .00007,
     +     .00005,    .00027,    .00033,
     +     .09818,    .02600,    .00615,    .00059,    .00007,
     +     .00005,    .00025,    .00032,
     +     .09403,    .02483,    .00572,    .00056,    .00007,
     +     .00005,    .00024,    .00030,
     +     .09005,    .02373,    .00533,    .00053,    .00007,
     +     .00005,    .00022,    .00028,
     +     .08632,    .02269,    .00498,    .00051,    .00007,
     +     .00005,    .00021,    .00026,
     +     .08294,    .02175,    .00467,    .00050,    .00006,
     +     .00005,    .00020,    .00024,
     +     .07987,    .02090,    .00440,    .00047,    .00006,
     +     .00004,    .00019,    .00023 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
     +     .07691,    .02008,    .00415,    .00045,    .00006,
     +     .00004,    .00019,    .00022,
     +     .07410,    .01930,    .00392,    .00043,    .00006,
     +     .00004,    .00018,    .00021,
     +     .07153,    .01858,    .00371,    .00040,    .00006,
     +     .00004,    .00017,    .00020,
     +     .06918,    .01794,    .00353,    .00039,    .00006,
     +     .00004,    .00016,    .00020,
     +     .06688,    .01730,    .00335,    .00037,    .00005,
     +     .00004,    .00016,    .00019 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
     +     .34796,    .09898,    .08039,    .00229,    .00000,
     +     .00000,    .00094,    .00124,
     +     .32838,    .09294,    .07070,    .00215,    .00000,
     +     .00000,    .00087,    .00114,
     +     .30187,    .08483,    .05866,    .00195,    .00000,
     +     .00000,    .00080,    .00099,
     +     .28435,    .07946,    .05138,    .00179,    .00000,
     +     .00000,    .00074,    .00093,
     +     .26733,    .07432,    .04486,    .00166,    .00001,
     +     .00000,    .00069,    .00088,
     +     .25381,    .07026,    .03997,    .00154,    .00001,
     +     .00000,    .00065,    .00082,
     +     .24159,    .06661,    .03586,    .00145,    .00003,
     +     .00000,    .00061,    .00076,
     +     .22937,    .06299,    .03203,    .00138,    .00003,
     +     .00000,    .00058,    .00070 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
     +     .21934,    .06002,    .02909,    .00131,    .00004,
     +     .00000,    .00055,    .00066,
     +     .21015,    .05731,    .02654,    .00124,    .00004,
     +     .00000,    .00053,    .00063,
     +     .20321,    .05527,    .02471,    .00118,    .00005,
     +     .00000,    .00051,    .00062,
     +     .18932,    .05124,    .02129,    .00109,    .00005,
     +     .00000,    .00046,    .00055,
     +     .17832,    .04804,    .01876,    .00101,    .00005,
     +     .00001,    .00042,    .00052,
     +     .16688,    .04474,    .01635,    .00094,    .00006,
     +     .00002,    .00040,    .00047,
     +     .15586,    .04159,    .01423,    .00086,    .00006,
     +     .00002,    .00037,    .00042,
     +     .14659,    .03895,    .01259,    .00079,    .00006,
     +     .00002,    .00034,    .00040 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
     +     .13788,    .03648,    .01117,    .00073,    .00006,
     +     .00003,    .00031,    .00038,
     +     .13107,    .03457,    .01014,    .00071,    .00006,
     +     .00003,    .00029,    .00035,
     +     .12335,    .03240,    .00904,    .00065,    .00006,
     +     .00003,    .00027,    .00032,
     +     .11694,    .03061,    .00819,    .00060,    .00005,
     +     .00003,    .00025,    .00030,
     +     .11140,    .02906,    .00750,    .00058,    .00005,
     +     .00003,    .00024,    .00028,
     +     .10480,    .02723,    .00672,    .00053,    .00005,
     +     .00003,    .00022,    .00026,
     +     .09899,    .02563,    .00608,    .00049,    .00005,
     +     .00003,    .00021,    .00024,
     +     .09388,    .02423,    .00554,    .00045,    .00005,
     +     .00003,    .00019,    .00023 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
     +     .08905,    .02290,    .00507,    .00043,    .00005,
     +     .00003,    .00018,    .00021,
     +     .08460,    .02169,    .00466,    .00041,    .00005,
     +     .00003,    .00017,    .00020,
     +     .08061,    .02061,    .00430,    .00039,    .00004,
     +     .00003,    .00016,    .00019,
     +     .07704,    .01964,    .00400,    .00037,    .00004,
     +     .00003,    .00015,    .00018,
     +     .07363,    .01873,    .00372,    .00035,    .00004,
     +     .00003,    .00015,    .00017,
     +     .07043,    .01787,    .00347,    .00033,    .00004,
     +     .00003,    .00014,    .00016,
     +     .06756,    .01710,    .00325,    .00031,    .00004,
     +     .00003,    .00013,    .00015,
     +     .06493,    .01640,    .00306,    .00030,    .00004,
     +     .00003,    .00012,    .00014 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
     +     .06240,    .01572,    .00288,    .00029,    .00004,
     +     .00003,    .00012,    .00013,
     +     .06002,    .01509,    .00272,    .00027,    .00004,
     +     .00003,    .00011,    .00013,
     +     .05784,    .01450,    .00257,    .00025,    .00004,
     +     .00003,    .00010,    .00013,
     +     .05585,    .01397,    .00244,    .00023,    .00003,
     +     .00003,    .00010,    .00012,
     +     .05390,    .01346,    .00232,    .00023,    .00003,
     +     .00003,    .00010,    .00012 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
     +     .30481,    .08349,    .06118,    .00157,    .00000,
     +     .00000,    .00066,    .00078,
     +     .28671,    .07813,    .05336,    .00144,    .00000,
     +     .00000,    .00062,    .00073,
     +     .26233,    .07095,    .04381,    .00128,    .00000,
     +     .00000,    .00055,    .00065,
     +     .24616,    .06626,    .03812,    .00121,    .00000,
     +     .00000,    .00052,    .00058,
     +     .23066,    .06176,    .03305,    .00110,    .00000,
     +     .00000,    .00047,    .00055,
     +     .21832,    .05820,    .02930,    .00103,    .00001,
     +     .00000,    .00044,    .00053,
     +     .20723,    .05504,    .02615,    .00096,    .00002,
     +     .00000,    .00042,    .00050,
     +     .19619,    .05191,    .02324,    .00090,    .00002,
     +     .00000,    .00038,    .00045 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
     +     .18716,    .04933,    .02102,    .00085,    .00002,
     +     .00000,    .00037,    .00043,
     +     .17889,    .04700,    .01912,    .00080,    .00003,
     +     .00000,    .00035,    .00040,
     +     .17266,    .04525,    .01776,    .00076,    .00003,
     +     .00000,    .00034,    .00037,
     +     .16024,    .04178,    .01521,    .00070,    .00003,
     +     .00000,    .00032,    .00035,
     +     .15046,    .03905,    .01336,    .00063,    .00003,
     +     .00001,    .00029,    .00032,
     +     .14031,    .03624,    .01159,    .00058,    .00003,
     +     .00001,    .00026,    .00030,
     +     .13056,    .03357,    .01005,    .00053,    .00003,
     +     .00001,    .00024,    .00027,
     +     .12239,    .03134,    .00886,    .00050,    .00004,
     +     .00002,    .00022,    .00025 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
     +     .11475,    .02926,    .00784,    .00046,    .00004,
     +     .00002,    .00021,    .00023,
     +     .10883,    .02764,    .00710,    .00042,    .00003,
     +     .00002,    .00019,    .00022,
     +     .10210,    .02583,    .00631,    .00038,    .00003,
     +     .00002,    .00018,    .00021,
     +     .09653,    .02433,    .00571,    .00036,    .00003,
     +     .00002,    .00017,    .00019,
     +     .09171,    .02305,    .00522,    .00035,    .00003,
     +     .00002,    .00016,    .00018,
     +     .08602,    .02154,    .00467,    .00032,    .00003,
     +     .00002,    .00015,    .00016,
     +     .08101,    .02022,    .00422,    .00029,    .00003,
     +     .00002,    .00014,    .00015,
     +     .07660,    .01906,    .00384,    .00028,    .00003,
     +     .00002,    .00013,    .00014 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
     +     .07247,    .01797,    .00351,    .00027,    .00003,
     +     .00002,    .00012,    .00013,
     +     .06868,    .01697,    .00322,    .00025,    .00003,
     +     .00002,    .00011,    .00012,
     +     .06529,    .01609,    .00297,    .00023,    .00003,
     +     .00002,    .00010,    .00012,
     +     .06225,    .01530,    .00276,    .00021,    .00003,
     +     .00002,    .00010,    .00011,
     +     .05937,    .01456,    .00256,    .00020,    .00003,
     +     .00002,    .00009,    .00010,
     +     .05667,    .01386,    .00239,    .00019,    .00002,
     +     .00002,    .00008,    .00010,
     +     .05424,    .01323,    .00223,    .00018,    .00002,
     +     .00002,    .00008,    .00010,
     +     .05204,    .01267,    .00210,    .00017,    .00002,
     +     .00002,    .00008,    .00009 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
     +     .04993,    .01212,    .00197,    .00016,    .00002,
     +     .00002,    .00007,    .00009,
     +     .04791,    .01161,    .00186,    .00016,    .00002,
     +     .00002,    .00007,    .00008,
     +     .04607,    .01115,    .00176,    .00016,    .00002,
     +     .00002,    .00007,    .00007,
     +     .04440,    .01073,    .00167,    .00016,    .00002,
     +     .00002,    .00006,    .00007,
     +     .04279,    .01032,    .00158,    .00015,    .00002,
     +     .00002,    .00006,    .00007 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
     +     .26373,    .06960,    .04554,    .00110,    .00000,
     +     .00000,    .00040,    .00049,
     +     .24723,    .06490,    .03944,    .00101,    .00000,
     +     .00000,    .00038,    .00045,
     +     .22504,    .05868,    .03209,    .00091,    .00000,
     +     .00000,    .00033,    .00038,
     +     .21048,    .05461,    .02771,    .00084,    .00000,
     +     .00000,    .00031,    .00035,
     +     .19652,    .05072,    .02388,    .00075,    .00000,
     +     .00000,    .00027,    .00033,
     +     .18547,    .04767,    .02107,    .00071,    .00001,
     +     .00000,    .00026,    .00030,
     +     .17557,    .04495,    .01873,    .00066,    .00001,
     +     .00000,    .00025,    .00028,
     +     .16575,    .04227,    .01658,    .00060,    .00001,
     +     .00000,    .00023,    .00026 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
     +     .15770,    .04008,    .01494,    .00057,    .00001,
     +     .00000,    .00022,    .00025,
     +     .15037,    .03809,    .01354,    .00054,    .00002,
     +     .00000,    .00021,    .00023,
     +     .14486,    .03660,    .01255,    .00052,    .00002,
     +     .00000,    .00020,    .00022,
     +     .13389,    .03367,    .01070,    .00050,    .00002,
     +     .00000,    .00018,    .00019,
     +     .12532,    .03138,    .00936,    .00045,    .00002,
     +     .00000,    .00017,    .00018,
     +     .11647,    .02902,    .00810,    .00040,    .00002,
     +     .00001,    .00016,    .00017,
     +     .10800,    .02678,    .00700,    .00036,    .00002,
     +     .00001,    .00014,    .00016,
     +     .10091,    .02492,    .00616,    .00034,    .00002,
     +     .00001,    .00012,    .00014 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
     +     .09430,    .02320,    .00544,    .00031,    .00002,
     +     .00001,    .00012,    .00012,
     +     .08918,    .02186,    .00491,    .00029,    .00002,
     +     .00001,    .00011,    .00012,
     +     .08339,    .02036,    .00436,    .00028,    .00002,
     +     .00001,    .00010,    .00011,
     +     .07863,    .01914,    .00394,    .00026,    .00002,
     +     .00001,    .00009,    .00010,
     +     .07455,    .01809,    .00359,    .00023,    .00002,
     +     .00001,    .00008,    .00010,
     +     .06970,    .01684,    .00321,    .00021,    .00002,
     +     .00001,    .00007,    .00009,
     +     .06545,    .01576,    .00290,    .00020,    .00002,
     +     .00001,    .00007,    .00008,
     +     .06172,    .01482,    .00264,    .00020,    .00002,
     +     .00001,    .00007,    .00007 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
     +     .05824,    .01394,    .00240,    .00018,    .00002,
     +     .00001,    .00006,    .00006,
     +     .05505,    .01314,    .00220,    .00017,    .00002,
     +     .00001,    .00006,    .00006,
     +     .05221,    .01242,    .00203,    .00016,    .00002,
     +     .00001,    .00006,    .00006,
     +     .04967,    .01179,    .00188,    .00015,    .00002,
     +     .00001,    .00005,    .00006,
     +     .04727,    .01119,    .00175,    .00014,    .00002,
     +     .00001,    .00005,    .00006,
     +     .04502,    .01063,    .00163,    .00014,    .00002,
     +     .00001,    .00005,    .00005,
     +     .04300,    .01013,    .00152,    .00013,    .00001,
     +     .00001,    .00005,    .00005,
     +     .04119,    .00968,    .00143,    .00012,    .00001,
     +     .00001,    .00005,    .00004 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
     +     .03945,    .00925,    .00134,    .00011,    .00001,
     +     .00001,    .00004,    .00004,
     +     .03779,    .00884,    .00126,    .00010,    .00001,
     +     .00001,    .00004,    .00004,
     +     .03628,    .00847,    .00119,    .00010,    .00001,
     +     .00001,    .00004,    .00004,
     +     .03491,    .00814,    .00113,    .00010,    .00001,
     +     .00001,    .00003,    .00004,
     +     .03357,    .00781,    .00107,    .00010,    .00001,
     +     .00001,    .00003,    .00003 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
     +     .22477,    .05697,    .03290,    .00066,    .00000,
     +     .00000,    .00029,    .00031,
     +     .20994,    .05296,    .02828,    .00061,    .00000,
     +     .00000,    .00026,    .00030,
     +     .19012,    .04763,    .02279,    .00054,    .00000,
     +     .00000,    .00024,    .00025,
     +     .17720,    .04417,    .01956,    .00048,    .00000,
     +     .00000,    .00022,    .00023,
     +     .16481,    .04089,    .01676,    .00043,    .00000,
     +     .00000,    .00019,    .00020,
     +     .15504,    .03831,    .01472,    .00042,    .00000,
     +     .00000,    .00018,    .00020,
     +     .14633,    .03601,    .01303,    .00040,    .00001,
     +     .00000,    .00017,    .00019,
     +     .13773,    .03375,    .01148,    .00036,    .00001,
     +     .00000,    .00016,    .00017 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
     +     .13073,    .03193,    .01032,    .00033,    .00001,
     +     .00000,    .00015,    .00016,
     +     .12436,    .03027,    .00933,    .00030,    .00001,
     +     .00000,    .00013,    .00015,
     +     .11957,    .02903,    .00862,    .00029,    .00001,
     +     .00000,    .00012,    .00015,
     +     .11007,    .02660,    .00732,    .00027,    .00001,
     +     .00000,    .00011,    .00013,
     +     .10265,    .02471,    .00639,    .00025,    .00001,
     +     .00000,    .00011,    .00012,
     +     .09504,    .02276,    .00551,    .00022,    .00001,
     +     .00000,    .00010,    .00011,
     +     .08779,    .02093,    .00475,    .00020,    .00001,
     +     .00001,    .00009,    .00010,
     +     .08176,    .01941,    .00417,    .00019,    .00001,
     +     .00001,    .00008,    .00009 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
     +     .07615,    .01800,    .00367,    .00017,    .00001,
     +     .00001,    .00007,    .00009,
     +     .07181,    .01693,    .00331,    .00016,    .00001,
     +     .00001,    .00007,    .00007,
     +     .06693,    .01572,    .00294,    .00015,    .00001,
     +     .00001,    .00007,    .00007,
     +     .06293,    .01473,    .00265,    .00013,    .00001,
     +     .00001,    .00006,    .00006,
     +     .05951,    .01388,    .00241,    .00012,    .00001,
     +     .00001,    .00006,    .00006,
     +     .05544,    .01288,    .00215,    .00012,    .00001,
     +     .00001,    .00005,    .00005,
     +     .05191,    .01202,    .00194,    .00011,    .00001,
     +     .00001,    .00005,    .00005,
     +     .04884,    .01127,    .00176,    .00009,    .00001,
     +     .00001,    .00004,    .00005 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
     +     .04594,    .01057,    .00161,    .00009,    .00001,
     +     .00001,    .00004,    .00004,
     +     .04330,    .00994,    .00147,    .00009,    .00001,
     +     .00001,    .00004,    .00004,
     +     .04096,    .00937,    .00135,    .00009,    .00001,
     +     .00001,    .00004,    .00004,
     +     .03889,    .00887,    .00125,    .00008,    .00001,
     +     .00001,    .00004,    .00003,
     +     .03693,    .00840,    .00116,    .00007,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03508,    .00797,    .00108,    .00007,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03343,    .00758,    .00101,    .00007,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03195,    .00722,    .00095,    .00006,    .00001,
     +     .00001,    .00003,    .00003 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
     +     .03053,    .00689,    .00089,    .00006,    .00001,
     +     .00001,    .00003,    .00003,
     +     .02919,    .00657,    .00084,    .00005,    .00001,
     +     .00001,    .00003,    .00003,
     +     .02798,    .00628,    .00079,    .00005,    .00001,
     +     .00001,    .00003,    .00003,
     +     .02687,    .00602,    .00075,    .00005,    .00001,
     +     .00001,    .00002,    .00002,
     +     .02580,    .00577,    .00071,    .00005,    .00001,
     +     .00001,    .00002,    .00002 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
     +     .15581,    .03641,    .01573,    .00028,    .00000,
     +     .00000,    .00009,    .00009,
     +     .14444,    .03358,    .01335,    .00024,    .00000,
     +     .00000,    .00008,    .00010,
     +     .12942,    .02988,    .01057,    .00020,    .00000,
     +     .00000,    .00008,    .00008,
     +     .11966,    .02750,    .00898,    .00019,    .00000,
     +     .00000,    .00006,    .00007,
     +     .11040,    .02527,    .00761,    .00019,    .00000,
     +     .00000,    .00006,    .00006,
     +     .10322,    .02352,    .00663,    .00016,    .00000,
     +     .00000,    .00005,    .00007,
     +     .09684,    .02198,    .00583,    .00014,    .00000,
     +     .00000,    .00005,    .00007,
     +     .09057,    .02047,    .00511,    .00012,    .00000,
     +     .00000,    .00005,    .00006 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
     +     .08549,    .01926,    .00457,    .00012,    .00000,
     +     .00000,    .00005,    .00005,
     +     .08089,    .01817,    .00411,    .00011,    .00000,
     +     .00000,    .00005,    .00005,
     +     .07745,    .01736,    .00379,    .00011,    .00000,
     +     .00000,    .00004,    .00005,
     +     .07072,    .01577,    .00320,    .00009,    .00000,
     +     .00000,    .00004,    .00005,
     +     .06548,    .01454,    .00278,    .00009,    .00000,
     +     .00000,    .00003,    .00004,
     +     .06015,    .01329,    .00239,    .00008,    .00000,
     +     .00000,    .00003,    .00003,
     +     .05513,    .01213,    .00205,    .00007,    .00000,
     +     .00000,    .00003,    .00003,
     +     .05097,    .01117,    .00180,    .00006,    .00000,
     +     .00000,    .00003,    .00003 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
     +     .04713,    .01029,    .00158,    .00006,    .00000,
     +     .00000,    .00003,    .00002,
     +     .04419,    .00962,    .00142,    .00006,    .00000,
     +     .00000,    .00003,    .00002,
     +     .04091,    .00887,    .00126,    .00004,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03824,    .00826,    .00113,    .00004,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03596,    .00774,    .00103,    .00004,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03327,    .00714,    .00092,    .00004,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03095,    .00662,    .00082,    .00003,    .00000,
     +     .00000,    .00002,    .00001,
     +     .02895,    .00617,    .00075,    .00003,    .00000,
     +     .00000,    .00002,    .00001 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
     +     .02707,    .00575,    .00068,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02538,    .00538,    .00062,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02389,    .00505,    .00057,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02257,    .00476,    .00053,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02132,    .00448,    .00049,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02017,    .00423,    .00045,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01913,    .00400,    .00042,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01820,    .00380,    .00040,    .00002,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/
     +     .01731,    .00361,    .00037,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01649,    .00343,    .00035,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01574,    .00327,    .00033,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01507,    .00312,    .00031,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01442,    .00298,    .00029,    .00001,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/
     +     .09983,    .02134,    .00647,    .00010,    .00000,
     +     .00000,    .00003,    .00002,
     +     .09180,    .01952,    .00543,    .00008,    .00000,
     +     .00000,    .00001,    .00003,
     +     .08128,    .01717,    .00425,    .00008,    .00000,
     +     .00000,    .00002,    .00002,
     +     .07454,    .01568,    .00358,    .00007,    .00000,
     +     .00000,    .00002,    .00001,
     +     .06822,    .01428,    .00301,    .00006,    .00000,
     +     .00000,    .00001,    .00001,
     +     .06333,    .01320,    .00262,    .00005,    .00000,
     +     .00000,    .00002,    .00002,
     +     .05901,    .01226,    .00229,    .00005,    .00000,
     +     .00000,    .00001,    .00002,
     +     .05481,    .01134,    .00200,    .00004,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
     +     .05144,    .01061,    .00179,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04840,    .00995,    .00161,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04614,    .00947,    .00148,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04174,    .00852,    .00124,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03836,    .00780,    .00108,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03493,    .00707,    .00093,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03173,    .00639,    .00080,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02911,    .00584,    .00070,    .00002,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
     +     .02672,    .00534,    .00061,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02490,    .00496,    .00055,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02287,    .00454,    .00049,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02124,    .00420,    .00044,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01985,    .00392,    .00040,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01823,    .00359,    .00035,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01685,    .00330,    .00032,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01566,    .00306,    .00029,    .00001,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
     +     .01455,    .00284,    .00026,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01356,    .00263,    .00024,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01269,    .00246,    .00022,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01192,    .00230,    .00020,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01120,    .00216,    .00019,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01054,    .00203,    .00017,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00995,    .00191,    .00016,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00943,    .00180,    .00015,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/
     +     .00893,    .00171,    .00014,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00846,    .00161,    .00013,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00804,    .00153,    .00012,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00766,    .00146,    .00012,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00730,    .00139,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/
     +     .05768,    .01115,    .00218,    .00003,    .00000,
     +     .00000,    .00000,    .00000,
     +     .05255,    .01011,    .00182,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04591,    .00878,    .00142,    .00003,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04173,    .00795,    .00119,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03784,    .00717,    .00100,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .03485,    .00658,    .00087,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03223,    .00606,    .00077,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02970,    .00557,    .00067,    .00001,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
     +     .02768,    .00517,    .00060,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02588,    .00482,    .00054,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02455,    .00456,    .00050,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02198,    .00407,    .00042,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02003,    .00369,    .00036,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01807,    .00331,    .00031,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01626,    .00297,    .00027,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01478,    .00269,    .00024,    .00001,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/
     +     .01345,    .00244,    .00021,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01244,    .00225,    .00019,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01134,    .00204,    .00017,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01045,    .00187,    .00015,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00970,    .00174,    .00013,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00884,    .00158,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00810,    .00144,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00747,    .00132,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/
     +     .00690,    .00122,    .00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00638,    .00113,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00593,    .00104,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00554,    .00097,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00518,    .00091,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00484,    .00085,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00455,    .00079,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00429,    .00074,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=33,37)/
     +     .00404,    .00070,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00381,    .00066,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00360,    .00062,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00342,    .00059,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00324,    .00056,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/
     +     .02866,    .00492,    .00056,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02584,    .00442,    .00047,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02225,    .00378,    .00037,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02000,    .00338,    .00031,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01793,    .00302,    .00027,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01637,    .00275,    .00023,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01501,    .00251,    .00021,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01370,    .00228,    .00018,    .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)/
     +     .01268,    .00211,    .00016,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01176,    .00195,    .00015,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01110,    .00183,    .00014,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00981,    .00162,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00885,    .00145,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00790,    .00129,    .00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00703,    .00114,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00632,    .00102,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=17,24)/
     +     .00569,    .00092,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00522,    .00084,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00471,    .00076,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00431,    .00069,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00397,    .00063,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00358,    .00057,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00325,    .00052,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00298,    .00047,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/
     +     .00272,    .00043,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00250,    .00039,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00231,    .00036,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00214,    .00033,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00198,    .00031,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00184,    .00029,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00172,    .00027,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00161,    .00025,    .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)/
     +     .00151,    .00023,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00141,    .00022,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00133,    .00021,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00126,    .00019,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00118,    .00018,    .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)/
     +     .00298,    .00036,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00260,    .00032,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00214,    .00026,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00187,    .00023,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00162,    .00020,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00144,    .00017,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00129,    .00015,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00115,    .00014,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/
     +     .00104,    .00012,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00094,    .00011,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00087,    .00010,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00075,    .00009,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00065,    .00008,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00056,    .00007,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00049,    .00006,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00042,    .00005,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/
     +     .00037,    .00004,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00033,    .00004,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00029,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00026,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00023,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00020,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00018,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00016,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
     +     .00014,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00013,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00012,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00011,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00010,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00009,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00008,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00007,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
     +     .00007,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00006,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00006,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00005,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00005,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
      data xx/1d-5,2d-5,4d-5,6d-5,8d-5,
     .            1d-4,2d-4,4d-4,6d-4,8d-4,
     .            1d-3,2d-3,4d-3,6d-3,8d-3,
     .            1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2,
     .         .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0,
     .         .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0,
     .         .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0,
     .         .8d0,.9d0,1d0/
      data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1,
     .        1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2,
     .        1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4,
     .        1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6,
     .        1.8d6,3.2d6,5.6d6,1d7/
      data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/
      data n0/3,4,5,9,9,9,9,9/
      DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
      data init/0/
      save
      xsave=x
      q2save=qsq
      if(init.ne.0) goto 10
C        open(unit=1,file='cor10.dat',status='old')
        do 20 n=1,nx-1
        do 20 m=1,nq
C        read(1,50)f(1,n,m),f(2,n,m),f(3,n,m),f(4,n,m),
C     .             f(5,n,m),f(7,n,m),f(6,n,m),f(8,n,m)
c notation: 1=uval 2=val 3=glue 4=usea 5=chm 6=str 7=btm 8=dsea
      do 25 i=1,np
  25   f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i)
  20  continue
      do 31 j=1,ntenth-1
      xx(j)= log10(xx(j)/xx(ntenth))+xx(ntenth)
      do 31 i=1,8
      if(i.eq.5.or.i.eq.7) goto 31
      do 30 k=1,nq
  30  f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k)
  31  continue
  50  format(8f10.5)
      do 40 i=1,np
      do 40 m=1,nq
  40  f(i,nx,m)=ZEROD
      init=1
  10  continue
      if(x.lt.xmin) x=xmin
      if(x.gt.xmax) x=xmax
      if(qsq.lt.qsqmin) qsq=qsqmin
      if(qsq.gt.qsqmax) qsq=qsqmax
      xxx=x
      if(x.lt.xx(ntenth)) xxx= log10(x/xx(ntenth))+xx(ntenth)
      n=0
  70  n=n+1
      if(xxx.gt.xx(n+1)) goto 70
      a=(xxx-xx(n))/(xx(n+1)-xx(n))
      m=0
  80  m=m+1
      if(qsq.gt.qq(m+1)) goto 80
      b=(qsq-qq(m))/(qq(m+1)-qq(m))
      do 60 i=1,np
      g(i)=(ONED-a)*(ONED-b)*f(i,n,m) + (ONED-a)*b*f(i,n,m+1)
     .        +      a*(ONED-b)*f(i,n+1,m) +     a*b*f(i,n+1,m+1)
      if(n.ge.ntenth) goto 65
      if(i.eq.5.or.i.eq.7) goto 65
        fac=(ONED-b)*f(i,ntenth,m)+b*f(i,ntenth,m+1)
        g(i)=fac*10d0**(g(i)-fac)
  65  continue
      g(i)=g(i)*(ONED-x)**n0(i)
  60  continue
      upv=g(1)
      dnv=g(2)
      usea=g(4)
      dsea=g(8)
      str=g(6)
      chm=g(5)
      glu=g(3) 
      bot=g(7)
        x=xsave
        qsq=q2save
      return
      end

Generated by  Doxygen 1.6.0   Back to index