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

sfmrs_98lo5.F

#include "pdf/pilot.h"
      subroutine sfmrs_98lo5(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)/
     +     .01522,    .00506,   4.20964,    .84794,    .00000,
     +     .00000,    .44092,    .85946,
     +     .01540,    .00511,   6.87150,    .86679,    .00000,
     +     .00000,    .46241,    .87825,
     +     .01567,    .00518,  12.04203,    .91271,    .00022,
     +     .00000,    .51218,    .92409,
     +     .01587,    .00523,  16.72429,    .96279,    .04817,
     +     .00000,    .56503,    .97410,
     +     .01607,    .00529,  22.54385,   1.03158,    .13938,
     +     .00000,    .63671,   1.04283,
     +     .01625,    .00534,  28.11045,   1.11130,    .21710,
     +     .00000,    .71889,   1.12248,
     +     .01643,    .00539,  34.28648,   1.20023,    .31514,
     +     .00000,    .81015,   1.21134,
     +     .01661,    .00545,  41.66399,   1.31153,    .43887,
     +     .00000,    .92390,   1.32258 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
     +     .01677,    .00550,  48.56876,   1.42686,    .55785,
     +     .00000,   1.04133,   1.43785,
     +     .01692,    .00555,  56.11204,   1.54972,    .69664,
     +     .00000,   1.16620,   1.56065,
     +     .01705,    .00559,  62.23749,   1.66141,    .80973,
     +     .00000,   1.27947,   1.67229,
     +     .01731,    .00568,  76.92472,   1.93061,   1.09827,
     +     .00003,   1.55199,   1.94139,
     +     .01753,    .00576,  91.00851,   2.20317,   1.39206,
     +     .18916,   1.82738,   2.21387,
     +     .01779,    .00585, 107.90884,   2.55480,   1.76329,
     +     .58833,   2.18211,   2.56539,
     +     .01805,    .00595, 127.29146,   2.97625,   2.20641,
     +    1.06503,   2.60674,   2.98674,
     +     .01830,    .00605, 146.49048,   3.40949,   2.66184,
     +    1.54018,   3.04282,   3.41988 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
     +     .01854,    .00614, 167.49516,   3.89907,   3.17727,
     +    2.08283,   3.53522,   3.90937,
     +     .01875,    .00623, 186.06137,   4.34675,   3.64576,
     +    2.56706,   3.98520,   4.35697,
     +     .01900,    .00633, 209.87674,   4.93958,   4.26291,
     +    3.20132,   4.58079,   4.94971,
     +     .01922,    .00642, 232.41144,   5.51494,   4.86353,
     +    3.82453,   5.15855,   5.52498,
     +     .01942,    .00651, 254.00319,   6.08221,   5.45190,
     +    4.42770,   5.72799,   6.09217,
     +     .01968,    .00663, 282.81448,   6.85906,   6.25632,
     +    5.25270,   6.50757,   6.86893,
     +     .01993,    .00673, 311.55673,   7.65365,   7.07978,
     +    6.10055,   7.30467,   7.66342,
     +     .02016,    .00684, 339.51544,   8.44806,   7.89857,
     +    6.93671,   8.10140,   8.45775 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
     +     .02040,    .00695, 368.69308,   9.29558,   8.77155,
     +    7.82919,   8.95122,   9.30519,
     +     .02063,    .00705, 398.62814,  10.18271,   9.68581,
     +    8.76618,   9.84057,  10.19224,
     +     .02085,    .00716, 427.53406,  11.05997,  10.58510,
     +    9.68071,  10.71991,  11.06943,
     +     .02106,    .00725, 456.20486,  11.94278,  11.49317,
     +   10.61085,  11.60465,  11.95217,
     +     .02127,    .00735, 485.20676,  12.85590,  12.42668,
     +   11.55820,  12.51968,  12.86522,
     +     .02148,    .00745, 515.20947,  13.81260,  13.40818,
     +   12.56139,  13.47825,  13.82185,
     +     .02168,    .00755, 543.78943,  14.74263,  14.35731,
     +   13.52386,  14.41004,  14.75182,
     +     .02187,    .00764, 572.03125,  15.67223,  15.30838,
     +   14.49327,  15.34128,  15.68136 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
     +     .02206,    .00774, 600.71460,  16.63219,  16.28762,
     +   15.48725,  16.30289,  16.64126,
     +     .02225,    .00783, 629.87500,  17.62051,  17.29615,
     +   16.51235,  17.29282,  17.62953,
     +     .02244,    .00792, 658.24414,  18.59479,  18.28989,
     +   17.52233,  18.26863,  18.60376,
     +     .02261,    .00801, 685.40521,  19.54059,  19.25282,
     +   18.49860,  19.21587,  19.54951,
     +     .02279,    .00810, 713.82660,  20.53977,  20.27151,
     +   19.53440,  20.21648,  20.54863 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
     +     .01866,    .00637,   3.98187,    .75094,    .00000,
     +     .00000,    .38862,    .75777,
     +     .01889,    .00645,   6.27331,    .76828,    .00000,
     +     .00000,    .40823,    .77507,
     +     .01924,    .00656,  10.59739,    .80879,    .00021,
     +     .00000,    .45206,    .81551,
     +     .01949,    .00664,  14.42244,    .85183,    .04126,
     +     .00000,    .49748,    .85850,
     +     .01976,    .00673,  19.09329,    .91008,    .11862,
     +     .00000,    .55821,    .91670,
     +     .01999,    .00681,  23.49726,    .97653,    .18315,
     +     .00000,    .62677,    .98309,
     +     .02022,    .00689,  28.32275,   1.05002,    .26370,
     +     .00000,    .70226,   1.05654,
     +     .02045,    .00698,  34.01944,   1.14116,    .36417,
     +     .00000,    .79550,   1.14764 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
     +     .02066,    .00706,  39.29349,   1.23466,    .45969,
     +     .00000,    .89080,   1.24109,
     +     .02086,    .00713,  45.00336,   1.33363,    .57028,
     +     .00000,    .99149,   1.34001,
     +     .02102,    .00720,  49.60126,   1.42285,    .65954,
     +     .00000,   1.08206,   1.42920,
     +     .02137,    .00733,  60.51071,   1.63605,    .88528,
     +     .00002,   1.29810,   1.64232,
     +     .02166,    .00745,  70.83442,   1.84947,   1.11245,
     +     .14530,   1.51393,   1.85569,
     +     .02199,    .00759,  83.05656,   2.12174,   1.39622,
     +     .45016,   1.78885,   2.12788,
     +     .02234,    .00773,  96.90530,   2.44437,   1.73117,
     +     .80992,   2.11419,   2.45044,
     +     .02266,    .00787, 110.46761,   2.77247,   2.07189,
     +    1.16444,   2.44471,   2.77847 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
     +     .02298,    .00801, 125.15162,   3.13956,   2.45388,
     +    1.56554,   2.81419,   3.14550,
     +     .02325,    .00813, 138.00935,   3.47227,   2.79814,
     +    1.92026,   3.14885,   3.47815,
     +     .02358,    .00828, 154.35030,   3.90905,   3.24788,
     +    2.38098,   3.58797,   3.91486,
     +     .02387,    .00841, 169.67639,   4.32931,   3.68215,
     +    2.83024,   4.01026,   4.33506,
     +     .02414,    .00853, 184.24153,   4.74054,   4.10444,
     +    3.26173,   4.42334,   4.74624,
     +     .02448,    .00869, 203.51265,   5.29922,   4.67748,
     +    3.84754,   4.98432,   5.30486,
     +     .02480,    .00885, 222.57230,   5.86590,   5.25960,
     +    4.44514,   5.55313,   5.87148,
     +     .02511,    .00899, 240.95566,   6.42812,   5.83410,
     +    5.02995,   6.11731,   6.43364 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
     +     .02541,    .00914, 259.99448,   7.02365,   6.44253,
     +    5.65006,   6.71478,   7.02911,
     +     .02571,    .00929, 279.38925,   7.64274,   7.07575,
     +    6.29718,   7.33574,   7.64816,
     +     .02600,    .00943, 297.97342,   8.25090,   7.69443,
     +    6.92438,   7.94564,   8.25626,
     +     .02627,    .00957, 316.30252,   8.85937,   8.31605,
     +    7.55943,   8.55574,   8.86468,
     +     .02655,    .00971, 334.70853,   9.48497,   8.95109,
     +    8.20191,   9.18296,   9.49024,
     +     .02682,    .00984, 353.65399,  10.13697,   9.61582,
     +    8.87959,   9.83653,  10.14220,
     +     .02708,    .00997, 371.57556,  10.76728,  10.25483,
     +    9.52566,  10.46832,  10.77247,
     +     .02733,    .01010, 389.20682,  11.39439,  10.89264,
     +   10.17412,  11.09681,  11.39954 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
     +     .02758,    .01023, 407.00687,  12.03878,  11.54601,
     +   10.83552,  11.74259,  12.04389,
     +     .02783,    .01036, 425.01764,  12.69923,  12.21616,
     +   11.51496,  12.40439,  12.70431,
     +     .02807,    .01048, 442.45279,  13.34742,  12.87369,
     +   12.18158,  13.05386,  13.35247,
     +     .02830,    .01060, 459.05978,  13.97396,  13.50809,
     +   12.82310,  13.68160,  13.97897,
     +     .02853,    .01072, 476.37503,  14.63340,  14.17706,
     +   13.50176,  14.34225,  14.63838 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
     +     .02288,    .00803,   3.76535,    .66432,    .00000,
     +     .00000,    .34249,    .66775,
     +     .02317,    .00814,   5.72565,    .68024,    .00000,
     +     .00000,    .36037,    .68364,
     +     .02362,    .00832,   9.32339,    .71594,    .00019,
     +     .00000,    .39894,    .71928,
     +     .02394,    .00844,  12.43359,    .75287,    .03533,
     +     .00000,    .43793,    .75618,
     +     .02429,    .00858,  16.16555,    .80209,    .10091,
     +     .00000,    .48928,    .80536,
     +     .02459,    .00870,  19.63433,    .85728,    .15444,
     +     .00000,    .54630,    .86052,
     +     .02488,    .00882,  23.38783,    .91779,    .22055,
     +     .00000,    .60853,    .92099,
     +     .02519,    .00895,  27.76694,    .99211,    .30205,
     +     .00000,    .68465,    .99527 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
     +     .02546,    .00907,  31.77701,   1.06754,    .37863,
     +     .00000,    .76163,   1.07067,
     +     .02572,    .00918,  36.07922,   1.14686,    .46661,
     +     .00000,    .84243,   1.14997,
     +     .02592,    .00927,  39.51414,   1.21775,    .53695,
     +     .00000,    .91448,   1.22084,
     +     .02637,    .00947,  47.57838,   1.38568,    .71325,
     +     .00002,   1.08485,   1.38872,
     +     .02675,    .00964,  55.10751,   1.55186,    .88856,
     +     .11154,   1.25309,   1.55485,
     +     .02719,    .00984,  63.89800,   1.76146,   1.10501,
     +     .34425,   1.46497,   1.76441,
     +     .02764,    .01005,  73.73700,   2.00700,   1.35760,
     +     .61556,   1.71282,   2.00990,
     +     .02805,    .01025,  83.26137,   2.25400,   1.61185,
     +     .87985,   1.96189,   2.25686 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
     +     .02847,    .01045,  93.46465,   2.52761,   1.89420,
     +    1.17603,   2.23753,   2.53042,
     +     .02882,    .01062, 102.31332,   2.77338,   2.14646,
     +    1.43557,   2.48498,   2.77616,
     +     .02925,    .01083, 113.45316,   3.09324,   2.47321,
     +    1.76977,   2.80683,   3.09598,
     +     .02963,    .01102, 123.80727,   3.39836,   2.78622,
     +    2.09316,   3.11367,   3.40106,
     +     .02998,    .01119, 133.56477,   3.69465,   3.08832,
     +    2.40131,   3.41153,   3.69732,
     +     .03043,    .01142, 146.36327,   4.09397,   3.49513,
     +    2.81651,   3.81281,   4.09660,
     +     .03085,    .01163, 158.90976,   4.49563,   3.90519,
     +    3.23688,   4.21628,   4.49823,
     +     .03125,    .01183, 170.90536,   4.89106,   4.30679,
     +    3.64498,   4.61337,   4.89362 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
     +     .03164,    .01204, 183.23145,   5.30690,   4.72921,
     +    4.07483,   5.03085,   5.30943,
     +     .03204,    .01224, 195.69661,   5.73623,   5.16604,
     +    4.52064,   5.46177,   5.73873,
     +     .03241,    .01244, 207.54509,   6.15515,   5.58991,
     +    4.94960,   5.88217,   6.15762,
     +     .03276,    .01262, 219.16406,   6.57185,   6.01365,
     +    5.38196,   6.30025,   6.57430,
     +     .03312,    .01281, 230.74216,   6.99770,   6.44376,
     +    5.81635,   6.72746,   7.00012,
     +     .03348,    .01300, 242.59944,   7.43918,   6.89196,
     +    6.27274,   7.17027,   7.44158,
     +     .03381,    .01318, 253.73288,   7.86354,   7.32019,
     +    6.70497,   7.59588,   7.86591,
     +     .03413,    .01335, 264.63751,   8.28380,   7.74592,
     +    7.13728,   8.01730,   8.28615 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
     +     .03446,    .01353, 275.57642,   8.71345,   8.17976,
     +    7.57580,   8.44812,   8.71578,
     +     .03478,    .01370, 286.59131,   9.15183,   8.62289,
     +    8.02449,   8.88765,   9.15414,
     +     .03509,    .01387, 297.19922,   9.58013,   9.05579,
     +    8.46283,   9.31703,   9.58243,
     +     .03539,    .01403, 307.24789,   9.99232,   9.47159,
     +    8.88272,   9.73023,   9.99460,
     +     .03569,    .01419, 317.68741,  10.42456,   9.90864,
     +    9.32562,  10.16349,  10.42682 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
     +     .02578,    .00920,   3.64332,    .61796,    .00000,
     +     .00000,    .31807,    .61994,
     +     .02612,    .00934,   5.42651,    .63309,    .00000,
     +     .00000,    .33500,    .63504,
     +     .02663,    .00956,   8.64830,    .66622,    .00018,
     +     .00000,    .37077,    .66813,
     +     .02701,    .00972,  11.39695,    .69996,    .03225,
     +     .00000,    .40641,    .70185,
     +     .02741,    .00990,  14.66167,    .74450,    .09177,
     +     .00000,    .45291,    .74635,
     +     .02776,    .01005,  17.67103,    .79392,    .13972,
     +     .00000,    .50401,    .79575,
     +     .02809,    .01020,  20.90358,    .84782,    .19858,
     +     .00000,    .55948,    .84962,
     +     .02845,    .01036,  24.64886,    .91361,    .27064,
     +     .00000,    .62694,    .91539 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
     +     .02876,    .01051,  28.05639,    .97996,    .33787,
     +     .00000,    .69471,    .98171,
     +     .02906,    .01065,  31.69275,   1.04947,    .41477,
     +     .00000,    .76558,   1.05120,
     +     .02930,    .01076,  34.58135,   1.11126,    .47590,
     +     .00000,    .82843,   1.11297,
     +     .02982,    .01101,  41.32073,   1.25688,    .62830,
     +     .00002,    .97628,   1.25855,
     +     .03027,    .01122,  47.56264,   1.39999,    .77879,
     +     .09551,   1.12129,   1.40164,
     +     .03077,    .01147,  54.78955,   1.57929,    .96330,
     +     .29411,   1.30267,   1.58090,
     +     .03130,    .01173,  62.81971,   1.78791,   1.17715,
     +     .52402,   1.51341,   1.78948,
     +     .03178,    .01197,  70.53969,   1.99644,   1.39108,
     +     .74645,   1.72383,   1.99799 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
     +     .03227,    .01222,  78.75777,   2.22607,   1.62730,
     +     .99431,   1.95533,   2.22759,
     +     .03268,    .01242,  85.84405,   2.43127,   1.83727,
     +    1.21033,   2.16205,   2.43276,
     +     .03318,    .01268,  94.71450,   2.69696,   2.10787,
     +    1.48707,   2.42956,   2.69842,
     +     .03362,    .01291, 102.91511,   2.94912,   2.36585,
     +    1.75362,   2.68330,   2.95056,
     +     .03403,    .01312, 110.60407,   3.19290,   2.61373,
     +    2.00643,   2.92851,   3.19432,
     +     .03455,    .01339, 120.63696,   3.51990,   2.94602,
     +    2.34551,   3.25729,   3.52129,
     +     .03504,    .01365, 130.42043,   3.84719,   3.27942,
     +    2.68728,   3.58624,   3.84856,
     +     .03551,    .01390, 139.72467,   4.16795,   3.60444,
     +    3.01748,   3.90851,   4.16929 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
     +     .03597,    .01415, 149.24026,   4.50383,   3.94492,
     +    3.36390,   4.24589,   4.50515,
     +     .03643,    .01439, 158.82104,   4.84920,   4.29569,
     +    3.72185,   4.59271,   4.85051,
     +     .03686,    .01463, 167.88298,   5.18487,   4.63464,
     +    4.06478,   4.92972,   5.18616,
     +     .03728,    .01485, 176.73967,   5.51762,   4.97249,
     +    4.40950,   5.26373,   5.51889,
     +     .03769,    .01508, 185.52283,   5.85644,   5.31408,
     +    4.75438,   5.60380,   5.85771,
     +     .03810,    .01530, 194.49126,   6.20662,   5.66910,
     +    5.11589,   5.95519,   6.20787,
     +     .03850,    .01552, 202.87347,   6.54207,   6.00704,
     +    5.45689,   6.29177,   6.54331,
     +     .03887,    .01573, 211.06198,   6.87339,   6.34224,
     +    5.79726,   6.62415,   6.87461 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
     +     .03925,    .01593, 219.24371,   7.21108,   6.68273,
     +    6.14136,   6.96291,   7.21229,
     +     .03962,    .01614, 227.45834,   7.55472,   7.02966,
     +    6.49261,   7.30758,   7.55592,
     +     .03998,    .01634, 235.34453,   7.88956,   7.36770,
     +    6.83487,   7.64341,   7.89075,
     +     .04032,    .01653, 242.78946,   8.21096,   7.69151,
     +    7.16181,   7.96573,   8.21215,
     +     .04067,    .01673, 250.50777,   8.54726,   8.03123,
     +    7.50608,   8.30295,   8.54844 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
     +     .02806,    .01014,   3.55855,    .58685,    .00000,
     +     .00000,    .30179,    .58803,
     +     .02844,    .01031,   5.22297,    .60142,    .00000,
     +     .00000,    .31807,    .60258,
     +     .02900,    .01056,   8.19782,    .63283,    .00017,
     +     .00000,    .35198,    .63395,
     +     .02942,    .01075,  10.71240,    .66446,    .03022,
     +     .00000,    .38540,    .66556,
     +     .02986,    .01096,  13.67770,    .70592,    .08577,
     +     .00000,    .42871,    .70699,
     +     .03025,    .01114,  16.39502,    .75158,    .13011,
     +     .00000,    .47594,    .75263,
     +     .03062,    .01131,  19.29865,    .80117,    .18429,
     +     .00000,    .52703,    .80220,
     +     .03102,    .01150,  22.64630,    .86145,    .25029,
     +     .00000,    .58887,    .86245 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
     +     .03136,    .01167,  25.67804,    .92195,    .31156,
     +     .00000,    .65071,    .92293,
     +     .03170,    .01183,  28.90111,    .98515,    .38142,
     +     .00000,    .71519,    .98612,
     +     .03197,    .01197,  31.45208,   1.04112,    .43672,
     +     .00000,    .77216,   1.04207,
     +     .03254,    .01225,  37.37722,   1.17252,    .57408,
     +     .00002,    .90568,   1.17345,
     +     .03304,    .01250,  42.83348,   1.30104,    .70903,
     +     .08553,   1.03598,   1.30195,
     +     .03360,    .01279,  49.11255,   1.46128,    .87366,
     +     .26295,   1.19817,   1.46216,
     +     .03419,    .01309,  56.05313,   1.64681,   1.06355,
     +     .46730,   1.38571,   1.64767,
     +     .03473,    .01336,  62.69258,   1.83143,   1.25266,
     +     .66403,   1.57210,   1.83227 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
     +     .03527,    .01365,  69.72842,   2.03388,   1.46063,
     +     .88237,   1.77631,   2.03469,
     +     .03573,    .01389,  75.77008,   2.21411,   1.64480,
     +    1.07193,   1.95798,   2.21491,
     +     .03628,    .01418,  83.30199,   2.44663,   1.88129,
     +    1.31386,   2.19221,   2.44741,
     +     .03678,    .01444,  90.23820,   2.66651,   2.10599,
     +    1.54612,   2.41358,   2.66728,
     +     .03723,    .01469,  96.71779,   2.87841,   2.32120,
     +    1.76566,   2.62682,   2.87916,
     +     .03781,    .01500, 105.14092,   3.16169,   2.60874,
     +    2.05917,   2.91177,   3.16242,
     +     .03836,    .01530, 113.32323,   3.44423,   2.89630,
     +    2.35404,   3.19587,   3.44495,
     +     .03887,    .01558, 121.07475,   3.72024,   3.17569,
     +    2.63796,   3.47330,   3.72094 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
     +     .03939,    .01586, 128.97507,   4.00837,   3.46753,
     +    2.93496,   3.76284,   4.00906,
     +     .03990,    .01614, 136.90460,   4.30381,   3.76737,
     +    3.24104,   4.05963,   4.30449,
     +     .04039,    .01641, 144.37753,   4.59011,   4.05624,
     +    3.53334,   4.34720,   4.59078,
     +     .04085,    .01667, 151.66348,   4.87325,   4.34357,
     +    3.82662,   4.63151,   4.87391,
     +     .04131,    .01693, 158.86346,   5.16080,   4.63324,
     +    4.11912,   4.92023,   5.16145,
     +     .04177,    .01718, 166.19995,   5.45734,   4.93375,
     +    4.42523,   5.21791,   5.45799,
     +     .04220,    .01743, 173.03319,   5.74071,   5.21903,
     +    4.71313,   5.50234,   5.74135,
     +     .04262,    .01766, 179.69626,   6.02004,   5.50153,
     +    5.00007,   5.78267,   6.02067 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
     +     .04304,    .01790, 186.33412,   6.30413,   5.78783,
     +    5.28946,   6.06776,   6.30476,
     +     .04346,    .01814, 192.98479,   6.59268,   6.07902,
     +    5.58436,   6.35728,   6.59330,
     +     .04385,    .01836, 199.35475,   6.87330,   6.36223,
     +    5.87118,   6.63882,   6.87392,
     +     .04424,    .01858, 205.35309,   7.14215,   6.63297,
     +    6.14459,   6.90853,   7.14276,
     +     .04462,    .01880, 211.56236,   7.42302,   6.91664,
     +    6.43216,   7.19027,   7.42364 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
     +     .02997,    .01094,   3.49370,    .56367,    .00000,
     +     .00000,    .28974,    .56435,
     +     .03038,    .01113,   5.06975,    .57783,    .00000,
     +     .00000,    .30552,    .57848,
     +     .03099,    .01141,   7.86360,    .60795,    .00017,
     +     .00000,    .33804,    .60858,
     +     .03144,    .01163,  10.20843,    .63803,    .02873,
     +     .00000,    .36982,    .63863,
     +     .03192,    .01186,  12.95823,    .67723,    .08137,
     +     .00000,    .41080,    .67781,
     +     .03233,    .01206,  15.46662,    .72013,    .12308,
     +     .00000,    .45522,    .72070,
     +     .03274,    .01226,  18.13613,    .76659,    .17388,
     +     .00000,    .50311,    .76714,
     +     .03317,    .01248,  21.20205,    .82287,    .23551,
     +     .00000,    .56088,    .82340 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
     +     .03354,    .01266,  23.96868,    .87914,    .29251,
     +     .00000,    .61843,    .87966,
     +     .03391,    .01285,  26.90123,    .93780,    .35733,
     +     .00000,    .67831,    .93830,
     +     .03420,    .01300,  29.21565,    .98958,    .40848,
     +     .00000,    .73105,    .99007,
     +     .03482,    .01332,  34.57262,   1.11081,    .53515,
     +     .00002,    .85430,   1.11128,
     +     .03537,    .01360,  39.48342,   1.22892,    .65910,
     +     .07849,    .97412,   1.22938,
     +     .03598,    .01391,  45.10780,   1.37563,    .80973,
     +     .24101,   1.12270,   1.37606,
     +     .03662,    .01425,  51.29933,   1.54486,    .98282,
     +     .42746,   1.29384,   1.54528,
     +     .03720,    .01456,  57.19919,   1.71266,   1.15458,
     +     .60626,   1.46333,   1.71306 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
     +     .03779,    .01488,  63.42905,   1.89606,   1.34288,
     +     .80408,   1.64842,   1.89645,
     +     .03829,    .01515,  68.76122,   2.05887,   1.50914,
     +     .97530,   1.81259,   2.05924,
     +     .03889,    .01547,  75.38713,   2.26831,   1.72203,
     +    1.19320,   2.02366,   2.26867,
     +     .03943,    .01577,  81.47045,   2.46581,   1.92377,
     +    1.40185,   2.22259,   2.46616,
     +     .03992,    .01604,  87.13692,   2.65567,   2.11650,
     +    1.59854,   2.41373,   2.65601,
     +     .04055,    .01639,  94.48097,   2.90882,   2.37335,
     +    1.86084,   2.66848,   2.90915,
     +     .04115,    .01672, 101.59372,   3.16063,   2.62955,
     +    2.12369,   2.92177,   3.16095,
     +     .04171,    .01703, 108.31135,   3.40598,   2.87783,
     +    2.37609,   3.16848,   3.40630 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
     +     .04227,    .01734, 115.13943,   3.66152,   3.13657,
     +    2.63951,   3.42537,   3.66183,
     +     .04282,    .01765, 121.97561,   3.92294,   3.40185,
     +    2.91043,   3.68808,   3.92325,
     +     .04335,    .01795, 128.39973,   4.17572,   3.65682,
     +    3.16852,   3.94206,   4.17602,
     +     .04385,    .01823, 134.65117,   4.42522,   3.91000,
     +    3.42707,   4.19269,   4.42552,
     +     .04435,    .01852, 140.81136,   4.67811,   4.16468,
     +    3.68432,   4.44669,   4.67841,
     +     .04485,    .01880, 147.07799,   4.93845,   4.42851,
     +    3.95319,   4.70811,   4.93875,
     +     .04532,    .01907, 152.89870,   5.18675,   4.67843,
     +    4.20548,   4.95742,   5.18704,
     +     .04577,    .01933, 158.56612,   5.43114,   4.92559,
     +    4.45665,   5.20277,   5.43143 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
     +     .04623,    .01959, 164.19890,   5.67928,   5.17563,
     +    4.70947,   5.45186,   5.67957,
     +     .04668,    .01985, 169.83310,   5.93093,   5.42959,
     +    4.96676,   5.70443,   5.93122,
     +     .04712,    .02010, 175.21950,   6.17530,   5.67621,
     +    5.21664,   5.94968,   6.17559,
     +     .04753,    .02034, 180.28142,   6.40907,   5.91163,
     +    5.45445,   6.18427,   6.40936,
     +     .04795,    .02058, 185.51512,   6.65300,   6.15802,
     +    5.70434,   6.42903,   6.65329 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
     +     .03678,    .01388,   3.29613,    .49667,    .00000,
     +     .00000,    .25523,    .49642,
     +     .03730,    .01415,   4.61716,    .50955,    .00000,
     +     .00000,    .26954,    .50928,
     +     .03808,    .01457,   6.90235,    .53596,    .00016,
     +     .00000,    .29805,    .53567,
     +     .03866,    .01488,   8.77904,    .56160,    .02451,
     +     .00000,    .32519,    .56130,
     +     .03927,    .01521,  10.94228,    .59443,    .06897,
     +     .00000,    .35959,    .59413,
     +     .03981,    .01551,  12.88794,    .62966,    .10341,
     +     .00000,    .39614,    .62935,
     +     .04033,    .01579,  14.93244,    .66743,    .14489,
     +     .00000,    .43516,    .66711,
     +     .04088,    .01610,  17.25252,    .71266,    .19460,
     +     .00000,    .48172,    .71234 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
     +     .04136,    .01637,  19.32249,    .75735,    .24002,
     +     .00000,    .52752,    .75702,
     +     .04183,    .01663,  21.49644,    .80361,    .29126,
     +     .00000,    .57486,    .80328,
     +     .04221,    .01684,  23.19662,    .84404,    .33128,
     +     .00000,    .61613,    .84371,
     +     .04301,    .01730,  27.08887,    .93784,    .42947,
     +     .00002,    .71171,    .93751,
     +     .04371,    .01769,  30.60603,   1.02813,    .52437,
     +     .05999,    .80348,   1.02779,
     +     .04450,    .01814,  34.57262,   1.13893,    .63827,
     +     .18347,    .91593,   1.13860,
     +     .04533,    .01862,  38.88286,   1.26525,    .76759,
     +     .32338,   1.04392,   1.26492,
     +     .04608,    .01905,  42.93943,   1.38911,    .89450,
     +     .45594,   1.16927,   1.38878 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
     +     .04685,    .01950,  47.17448,   1.52311,   1.03224,
     +     .60115,   1.30475,   1.52279,
     +     .04749,    .01987,  50.76159,   1.64099,   1.15275,
     +     .72562,   1.42382,   1.64066,
     +     .04827,    .02033,  55.17305,   1.79128,   1.30566,
     +     .88258,   1.57555,   1.79097,
     +     .04897,    .02073,  59.18406,   1.93177,   1.44936,
     +    1.03166,   1.71729,   1.93146,
     +     .04961,    .02111,  62.88540,   2.06578,   1.58554,
     +    1.17101,   1.85241,   2.06547,
     +     .05042,    .02159,  67.63684,   2.24300,   1.76555,
     +    1.35535,   2.03103,   2.24270,
     +     .05119,    .02205,  72.19431,   2.41777,   1.94364,
     +    1.53858,   2.20710,   2.41749,
     +     .05192,    .02248,  76.45595,   2.58671,   2.11480,
     +    1.71302,   2.37724,   2.58644 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
     +     .05265,    .02291,  80.74980,   2.76136,   2.29187,
     +    1.89377,   2.55306,   2.76110,
     +     .05336,    .02333,  85.01447,   2.93877,   2.47220,
     +    2.07845,   2.73160,   2.93852,
     +     .05404,    .02374,  88.98389,   3.10911,   2.64421,
     +    2.25297,   2.90300,   3.10887,
     +     .05468,    .02412,  92.82371,   3.27625,   2.81414,
     +    2.42700,   3.07112,   3.27603,
     +     .05533,    .02451,  96.57157,   3.44457,   2.98384,
     +    2.59878,   3.24041,   3.44435,
     +     .05597,    .02490, 100.36469,   3.61691,   3.15884,
     +    2.77762,   3.41371,   3.61672,
     +     .05659,    .02526, 103.85516,   3.78027,   3.32347,
     +    2.94418,   3.57795,   3.78009,
     +     .05717,    .02561, 107.23846,   3.94032,   3.48564,
     +    3.10940,   3.73883,   3.94014 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
     +     .05775,    .02596, 110.57428,   4.10192,   3.64872,
     +    3.27469,   3.90127,   4.10176,
     +     .05833,    .02631, 113.89301,   4.26505,   3.81364,
     +    3.44218,   4.06520,   4.26490,
     +     .05889,    .02665, 117.04645,   4.42271,   3.97304,
     +    3.60408,   4.22363,   4.42257,
     +     .05942,    .02697, 119.98976,   4.57280,   4.12443,
     +    3.75737,   4.37445,   4.57268,
     +     .05996,    .02729, 123.02187,   4.72885,   4.28237,
     +    3.91797,   4.53121,   4.72874 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
     +     .04521,    .01776,   3.10079,    .43659,    .00000,
     +     .00000,    .22470,    .43620,
     +     .04588,    .01816,   4.19360,    .44822,    .00000,
     +     .00000,    .23760,    .44783,
     +     .04688,    .01876,   6.04118,    .47124,    .00014,
     +     .00000,    .26249,    .47085,
     +     .04762,    .01920,   7.52655,    .49296,    .02082,
     +     .00000,    .28555,    .49257,
     +     .04841,    .01968,   9.20946,    .52028,    .05820,
     +     .00000,    .31425,    .51989,
     +     .04910,    .02009,  10.70181,    .54897,    .08648,
     +     .00000,    .34412,    .54858,
     +     .04976,    .02050,  12.24983,    .57939,    .12017,
     +     .00000,    .37566,    .57901,
     +     .05047,    .02093,  13.98515,    .61540,    .16005,
     +     .00000,    .41284,    .61503 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
     +     .05110,    .02131,  15.51542,    .65050,    .19602,
     +     .00000,    .44895,    .65014,
     +     .05171,    .02168,  17.10750,    .68660,    .23627,
     +     .00000,    .48600,    .68624,
     +     .05219,    .02198,  18.34082,    .71780,    .26737,
     +     .00000,    .51795,    .71745,
     +     .05323,    .02262,  21.13243,    .78954,    .34298,
     +     .00002,    .59126,    .78920,
     +     .05413,    .02318,  23.61727,    .85771,    .41511,
     +     .04559,    .66077,    .85738,
     +     .05515,    .02381,  26.37363,    .94035,    .50058,
     +     .13887,    .74488,    .94005,
     +     .05622,    .02447,  29.32838,   1.03343,    .59643,
     +     .24322,    .83945,   1.03314,
     +     .05720,    .02508,  32.07320,   1.12366,    .68942,
     +     .34088,    .93101,   1.12339 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
     +     .05819,    .02570,  34.90466,   1.22026,    .78930,
     +     .44676,   1.02893,   1.22002,
     +     .05902,    .02621,  37.27644,   1.30445,    .87585,
     +     .53661,   1.11419,   1.30422,
     +     .06003,    .02684,  40.16104,   1.41083,    .98465,
     +     .64885,   1.22185,   1.41062,
     +     .06093,    .02740,  42.75693,   1.50937,   1.08601,
     +     .75455,   1.32151,   1.50919,
     +     .06176,    .02792,  45.12833,   1.60262,   1.18125,
     +     .85250,   1.41576,   1.60246,
     +     .06281,    .02858,  48.14121,   1.72490,   1.30610,
     +     .98096,   1.53930,   1.72477,
     +     .06381,    .02920,  51.00142,   1.84445,   1.42856,
     +    1.10761,   1.66001,   1.84434,
     +     .06474,    .02979,  53.64687,   1.95906,   1.54524,
     +    1.22707,   1.77568,   1.95898 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
     +     .06568,    .03038,  56.28695,   2.07663,   1.66504,
     +    1.34994,   1.89431,   2.07658,
     +     .06660,    .03096,  58.88662,   2.19520,   1.78619,
     +    1.47462,   2.01390,   2.19518,
     +     .06748,    .03150,  61.28042,   2.30821,   1.90082,
     +    1.59144,   2.12785,   2.30821,
     +     .06831,    .03202,  63.58167,   2.41843,   2.01348,
     +    1.70737,   2.23896,   2.41846,
     +     .06915,    .03255,  65.80326,   2.52866,   2.12510,
     +    1.82086,   2.35006,   2.52871,
     +     .06997,    .03306,  68.03996,   2.64092,   2.23969,
     +    1.93853,   2.46318,   2.64101,
     +     .07076,    .03356,  70.07580,   2.74663,   2.34668,
     +    2.04723,   2.56968,   2.74674,
     +     .07150,    .03402,  72.04005,   2.84970,   2.45164,
     +    2.15468,   2.67350,   2.84984 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
     +     .07226,    .03450,  73.95877,   2.95317,   2.55653,
     +    2.26145,   2.77772,   2.95333,
     +     .07300,    .03496,  75.85645,   3.05711,   2.66211,
     +    2.36917,   2.88239,   3.05730,
     +     .07371,    .03541,  77.64714,   3.15706,   2.76366,
     +    2.47278,   2.98304,   3.15728,
     +     .07439,    .03583,  79.30514,   3.25174,   2.85958,
     +    2.57033,   3.07837,   3.25198,
     +     .07508,    .03627,  81.00677,   3.34980,   2.95933,
     +    2.67223,   3.17708,   3.35006 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
     +     .05107,    .02067,   2.98480,    .40440,    .00000,
     +     .00000,    .20847,    .40420,
     +     .05184,    .02116,   3.95519,    .41529,    .00000,
     +     .00000,    .22056,    .41510,
     +     .05301,    .02189,   5.57481,    .43644,    .00013,
     +     .00000,    .24345,    .43626,
     +     .05387,    .02244,   6.86088,    .45607,    .01885,
     +     .00000,    .26434,    .45589,
     +     .05479,    .02302,   8.30319,    .48046,    .05250,
     +     .00000,    .29004,    .48030,
     +     .05559,    .02353,   9.57147,    .50576,    .07760,
     +     .00000,    .31645,    .50561,
     +     .05636,    .02403,  10.87694,    .53241,    .10731,
     +     .00000,    .34415,    .53227,
     +     .05719,    .02456,  12.32965,    .56373,    .14220,
     +     .00000,    .37656,    .56360 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
     +     .05792,    .02502,  13.60164,    .59401,    .17343,
     +     .00000,    .40779,    .59389,
     +     .05863,    .02547,  14.91758,    .62501,    .20823,
     +     .00000,    .43969,    .62491,
     +     .05919,    .02584,  15.93101,    .65164,    .23493,
     +     .00000,    .46702,    .65155,
     +     .06040,    .02661,  18.20917,    .71251,    .29948,
     +     .00002,    .52938,    .71244,
     +     .06146,    .02729,  20.21820,    .76992,    .36059,
     +     .03864,    .58804,    .76987,
     +     .06264,    .02806,  22.42362,    .83899,    .43244,
     +     .11743,    .65850,    .83897,
     +     .06389,    .02886,  24.76809,    .91621,    .51241,
     +     .20491,    .73713,    .91622,
     +     .06503,    .02959,  26.92844,    .99056,    .58946,
     +     .28615,    .81274,    .99060 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
     +     .06619,    .03034,  29.14046,   1.06966,    .67170,
     +     .37370,    .89308,   1.06973,
     +     .06715,    .03096,  30.98054,   1.13821,    .74255,
     +     .44754,    .96265,   1.13831,
     +     .06833,    .03172,  33.20286,   1.22435,    .83110,
     +     .53925,   1.05000,   1.22448,
     +     .06937,    .03239,  35.18994,   1.30372,    .91316,
     +     .62518,   1.13042,   1.30388,
     +     .07033,    .03301,  36.99350,   1.37846,    .98988,
     +     .70437,   1.20612,   1.37865,
     +     .07156,    .03380,  39.26997,   1.47598,   1.08992,
     +     .80771,   1.30482,   1.47621,
     +     .07271,    .03454,  41.41702,   1.57080,   1.18755,
     +     .90907,   1.40075,   1.57107,
     +     .07380,    .03524,  43.38885,   1.66126,   1.28006,
     +    1.00415,   1.49222,   1.66156 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
     +     .07489,    .03594,  45.34467,   1.75362,   1.37461,
     +    1.10149,   1.58558,   1.75396,
     +     .07596,    .03663,  47.25998,   1.84636,   1.46982,
     +    1.19985,   1.67929,   1.84673,
     +     .07698,    .03729,  49.01102,   1.93433,   1.55945,
     +    1.29153,   1.76817,   1.93475,
     +     .07794,    .03790,  50.68794,   2.01984,   1.64726,
     +    1.38226,   1.85451,   2.02029,
     +     .07891,    .03852,  52.29477,   2.10498,   1.73385,
     +    1.47060,   1.94049,   2.10547,
     +     .07986,    .03913,  53.90745,   2.19141,   1.82248,
     +    1.56197,   2.02774,   2.19194,
     +     .08077,    .03971,  55.36417,   2.27246,   1.90485,
     +    1.64596,   2.10954,   2.27302,
     +     .08163,    .04027,  56.76581,   2.35126,   1.98547,
     +    1.72880,   2.18906,   2.35185 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
     +     .08251,    .04082,  58.12616,   2.43008,   2.06571,
     +    1.81078,   2.26859,   2.43070,
     +     .08337,    .04137,  59.46655,   2.50902,   2.14625,
     +    1.89325,   2.34823,   2.50968,
     +     .08419,    .04190,  60.72542,   2.58469,   2.22347,
     +    1.97234,   2.42457,   2.58539,
     +     .08497,    .04239,  61.88445,   2.65615,   2.29617,
     +    2.04654,   2.49664,   2.65687,
     +     .08577,    .04290,  63.07138,   2.72998,   2.37161,
     +    2.12391,   2.57111,   2.73074 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
     +     .05573,    .02314,   2.90028,    .38282,    .00000,
     +     .00000,    .19760,    .38282,
     +     .05659,    .02370,   3.78832,    .39319,    .00000,
     +     .00000,    .20911,    .39320,
     +     .05789,    .02455,   5.25710,    .41304,    .00013,
     +     .00000,    .23063,    .41306,
     +     .05885,    .02518,   6.41309,    .43124,    .01752,
     +     .00000,    .25004,    .43127,
     +     .05988,    .02585,   7.69998,    .45368,    .04867,
     +     .00000,    .27374,    .45374,
     +     .06077,    .02644,   8.82474,    .47674,    .07167,
     +     .00000,    .29786,    .47681,
     +     .06164,    .02701,   9.97600,    .50091,    .09876,
     +     .00000,    .32304,    .50100,
     +     .06257,    .02762,  11.25028,    .52917,    .13041,
     +     .00000,    .35235,    .52927 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
     +     .06338,    .02816,  12.36026,    .55633,    .15857,
     +     .00000,    .38041,    .55645,
     +     .06417,    .02868,  13.50389,    .58405,    .18984,
     +     .00000,    .40900,    .58418,
     +     .06480,    .02909,  14.38080,    .60774,    .21373,
     +     .00000,    .43337,    .60789,
     +     .06615,    .02999,  16.34212,    .66168,    .27123,
     +     .00002,    .48874,    .66186,
     +     .06733,    .03076,  18.05984,    .71227,    .32537,
     +     .03426,    .54054,    .71248,
     +     .06866,    .03164,  19.93069,    .77281,    .38866,
     +     .10391,    .60241,    .77305,
     +     .07005,    .03256,  21.90718,    .84013,    .45871,
     +     .18083,    .67108,    .84041,
     +     .07132,    .03339,  23.71752,    .90462,    .52587,
     +     .25188,    .73679,    .90494 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
     +     .07261,    .03424,  25.56090,    .97292,    .59722,
     +     .32808,    .80629,    .97328,
     +     .07369,    .03495,  27.08629,   1.03187,    .65843,
     +     .39208,    .86622,   1.03226,
     +     .07500,    .03581,  28.91886,   1.10564,    .73460,
     +     .47123,    .94116,   1.10608,
     +     .07616,    .03658,  30.54955,   1.17335,    .80493,
     +     .54511,   1.00989,   1.17383,
     +     .07724,    .03728,  32.02237,   1.23688,    .87042,
     +     .61293,   1.07434,   1.23740,
     +     .07860,    .03817,  33.87216,   1.31947,    .95551,
     +     .70110,   1.15808,   1.32002,
     +     .07989,    .03902,  35.60817,   1.39946,   1.03822,
     +     .78726,   1.23914,   1.40006,
     +     .08110,    .03981,  37.19380,   1.47548,   1.11630,
     +     .86775,   1.31614,   1.47613 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
     +     .08231,    .04060,  38.75918,   1.55284,   1.19581,
     +     .94988,   1.39447,   1.55353,
     +     .08350,    .04137,  40.28574,   1.63026,   1.27563,
     +    1.03261,   1.47283,   1.63100,
     +     .08463,    .04211,  41.67348,   1.70346,   1.35050,
     +    1.10942,   1.54691,   1.70424,
     +     .08570,    .04280,  42.99872,   1.77442,   1.42368,
     +    1.18528,   1.61868,   1.77524,
     +     .08677,    .04349,  44.26095,   1.84484,   1.49556,
     +    1.25885,   1.68991,   1.84571,
     +     .08783,    .04418,  45.52487,   1.91616,   1.56902,
     +    1.33481,   1.76203,   1.91707,
     +     .08884,    .04483,  46.65956,   1.98283,   1.63703,
     +    1.40437,   1.82944,   1.98378,
     +     .08980,    .04545,  47.74915,   2.04752,   1.70347,
     +    1.47287,   1.89482,   2.04851 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
     +     .09076,    .04607,  48.80110,   2.11204,   1.76941,
     +    1.54045,   1.96004,   2.11307,
     +     .09172,    .04668,  49.83452,   2.17652,   1.83546,
     +    1.60830,   2.02520,   2.17759,
     +     .09263,    .04727,  50.80153,   2.23819,   1.89865,
     +    1.67322,   2.08752,   2.23931,
     +     .09349,    .04783,  51.68776,   2.29628,   1.95798,
     +    1.73396,   2.14621,   2.29743,
     +     .09437,    .04839,  52.59384,   2.35621,   2.01946,
     +    1.79722,   2.20675,   2.35740 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
     +     .05966,    .02548,   2.83081,    .36696,    .00000,
     +     .00000,    .18946,    .36692,
     +     .06061,    .02611,   3.65680,    .37690,    .00000,
     +     .00000,    .20049,    .37687,
     +     .06203,    .02706,   5.01226,    .39570,    .00013,
     +     .00000,    .22092,    .39570,
     +     .06309,    .02777,   6.07123,    .41280,    .01650,
     +     .00000,    .23917,    .41281,
     +     .06421,    .02852,   7.24299,    .43374,    .04572,
     +     .00000,    .26133,    .43379,
     +     .06520,    .02918,   8.26211,    .45511,    .06713,
     +     .00000,    .28372,    .45517,
     +     .06615,    .02982,   9.30049,    .47742,    .09224,
     +     .00000,    .30701,    .47751,
     +     .06716,    .03050,  10.44489,    .50340,    .12146,
     +     .00000,    .33401,    .50351 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
     +     .06806,    .03110,  11.43751,    .52826,    .14734,
     +     .00000,    .35974,    .52839,
     +     .06892,    .03168,  12.45684,    .55357,    .17601,
     +     .00000,    .38588,    .55372,
     +     .06961,    .03214,  13.23565,    .57512,    .19781,
     +     .00000,    .40809,    .57529,
     +     .07110,    .03313,  14.97036,    .62402,    .25014,
     +     .00001,    .45837,    .62424,
     +     .07239,    .03400,  16.48096,    .66969,    .29918,
     +     .03105,    .50521,    .66994,
     +     .07384,    .03497,  18.11548,    .72409,    .35626,
     +     .09405,    .56090,    .72439,
     +     .07537,    .03599,  19.83346,    .78432,    .41915,
     +     .16331,    .62244,    .78467,
     +     .07676,    .03691,  21.39920,    .84179,    .47920,
     +     .22699,    .68109,    .84219 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
     +     .07817,    .03785,  22.98625,    .90243,    .54276,
     +     .29506,    .74289,    .90287,
     +     .07935,    .03863,  24.29393,    .95459,    .59709,
     +     .35202,    .79600,    .95507,
     +     .08079,    .03958,  25.85781,   1.01964,    .66449,
     +     .42221,    .86219,   1.02018,
     +     .08206,    .04042,  27.24377,   1.07916,    .72652,
     +     .48754,    .92269,   1.07974,
     +     .08323,    .04119,  28.49037,   1.13484,    .78411,
     +     .54733,    .97926,   1.13547,
     +     .08472,    .04217,  30.04955,   1.20699,    .85869,
     +     .62481,   1.05254,   1.20768,
     +     .08612,    .04310,  31.50676,   1.27667,    .93097,
     +     .70029,   1.12325,   1.27741,
     +     .08744,    .04396,  32.83133,   1.34267,    .99897,
     +     .77058,   1.19021,   1.34347 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
     +     .08876,    .04483,  34.13370,   1.40965,   1.06804,
     +     .84209,   1.25813,   1.41050,
     +     .09006,    .04568,  35.39923,   1.47650,   1.13720,
     +     .91395,   1.32589,   1.47740,
     +     .09129,    .04648,  36.54436,   1.53952,   1.20186,
     +     .98047,   1.38977,   1.54048,
     +     .09245,    .04723,  37.63538,   1.60048,   1.26495,
     +    1.04604,   1.45152,   1.60149,
     +     .09362,    .04799,  38.66879,   1.66083,   1.32674,
     +    1.10943,   1.51265,   1.66189,
     +     .09477,    .04873,  39.70168,   1.72183,   1.38978,
     +    1.17480,   1.57443,   1.72294,
     +     .09586,    .04944,  40.62400,   1.77869,   1.44797,
     +    1.23446,   1.63201,   1.77985,
     +     .09690,    .05011,  41.50821,   1.83377,   1.50475,
     +    1.29314,   1.68777,   1.83497 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
     +     .09795,    .05078,  42.35767,   1.88857,   1.56095,
     +    1.35088,   1.74325,   1.88982,
     +     .09898,    .05145,  43.18997,   1.94325,   1.61715,
     +    1.40877,   1.79858,   1.94455,
     +     .09997,    .05208,  43.96630,   1.99544,   1.67080,
     +    1.46405,   1.85141,   1.99678,
     +     .10091,    .05268,  44.67489,   2.04450,   1.72108,
     +    1.51566,   1.90106,   2.04589,
     +     .10186,    .05329,  45.39841,   2.09505,   1.77313,
     +    1.56936,   1.95220,   2.09648 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
     +     .07407,    .03482,   2.60406,    .32108,    .00000,
     +     .00000,    .16601,    .32113,
     +     .07534,    .03572,   3.25226,    .32964,    .00000,
     +     .00000,    .17558,    .32973,
     +     .07726,    .03708,   4.29063,    .34534,    .00011,
     +     .00000,    .19274,    .34548,
     +     .07869,    .03809,   5.08330,    .35921,    .01354,
     +     .00000,    .20767,    .35939,
     +     .08020,    .03916,   5.94363,    .37586,    .03726,
     +     .00000,    .22542,    .37609,
     +     .08153,    .04008,   6.68019,    .39247,    .05421,
     +     .00000,    .24297,    .39275,
     +     .08281,    .04098,   7.41980,    .40961,    .07385,
     +     .00000,    .26099,    .40993,
     +     .08417,    .04193,   8.22363,    .42930,    .09638,
     +     .00000,    .28162,    .42966 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
     +     .08537,    .04276,   8.91122,    .44786,    .11606,
     +     .00000,    .30098,    .44827,
     +     .08654,    .04357,   9.60986,    .46661,    .13766,
     +     .00000,    .32051,    .46706,
     +     .08746,    .04421,  10.13727,    .48238,    .15389,
     +     .00000,    .33687,    .48287,
     +     .08945,    .04558,  11.29627,    .51780,    .19244,
     +     .00001,    .37357,    .51837,
     +     .09118,    .04676,  12.28648,    .55041,    .22804,
     +     .02261,    .40726,    .55104,
     +     .09312,    .04809,  13.33388,    .58870,    .26887,
     +     .06816,    .44674,    .58941,
     +     .09515,    .04947,  14.41605,    .63051,    .31322,
     +     .11753,    .48976,    .63130,
     +     .09700,    .05072,  15.38580,    .66987,    .35500,
     +     .16228,    .53021,    .67075 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
     +     .09888,    .05198,  16.35352,    .71090,    .39871,
     +     .20955,    .57233,    .71186,
     +     .10044,    .05302,  17.13896,    .74581,    .43565,
     +     .24865,    .60812,    .74684,
     +     .10233,    .05429,  18.06389,    .78888,    .48096,
     +     .29630,    .65225,    .79000,
     +     .10401,    .05540,  18.87232,    .82787,    .52225,
     +     .34023,    .69217,    .82907,
     +     .10555,    .05642,  19.58885,    .86399,    .56019,
     +     .38000,    .72912,    .86526,
     +     .10750,    .05771,  20.47179,    .91033,    .60883,
     +     .43104,    .77651,    .91170,
     +     .10934,    .05891,  21.28502,    .95461,    .65551,
     +     .48028,    .82177,    .95607,
     +     .11106,    .06004,  22.01168,    .99613,    .69895,
     +     .52563,    .86419,    .99768 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
     +     .11278,    .06116,  22.71587,   1.03786,    .74266,
     +     .57136,    .90681,   1.03950,
     +     .11447,    .06225,  23.39154,   1.07916,    .78607,
     +     .61694,    .94897,   1.08088,
     +     .11606,    .06327,  23.99154,   1.11771,    .82625,
     +     .65868,    .98833,   1.11952,
     +     .11756,    .06424,  24.55867,   1.15475,    .86521,
     +     .69961,   1.02612,   1.15663,
     +     .11906,    .06520,  25.08462,   1.19106,    .90298,
     +     .73875,   1.06318,   1.19302,
     +     .12055,    .06615,  25.60719,   1.22755,    .94131,
     +     .77893,   1.10040,   1.22959,
     +     .12195,    .06704,  26.06350,   1.26123,    .97634,
     +     .81522,   1.13477,   1.26336,
     +     .12328,    .06788,  26.49865,   1.29370,   1.01037,
     +     .85077,   1.16788,   1.29589 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
     +     .12461,    .06872,  26.90870,   1.32573,   1.04376,
     +     .88545,   1.20056,   1.32800,
     +     .12593,    .06956,  27.30662,   1.35750,   1.07697,
     +     .92003,   1.23296,   1.35984,
     +     .12719,    .07035,  27.67292,   1.38762,   1.10847,
     +     .95285,   1.26369,   1.39004,
     +     .12837,    .07109,  28.00148,   1.41574,   1.13778,
     +     .98327,   1.29237,   1.41822,
     +     .12958,    .07184,  28.33557,   1.44459,   1.16800,
     +    1.01481,   1.32179,   1.44714 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
     +     .09315,    .04905,   2.34630,    .28014,    .00000,
     +     .00000,    .14490,    .28029,
     +     .09493,    .05032,   2.83833,    .28725,    .00000,
     +     .00000,    .15294,    .28748,
     +     .09760,    .05223,   3.60678,    .29989,    .00010,
     +     .00000,    .16694,    .30023,
     +     .09958,    .05363,   4.17894,    .31075,    .01084,
     +     .00000,    .17878,    .31117,
     +     .10168,    .05511,   4.78699,    .32353,    .02962,
     +     .00000,    .19260,    .32404,
     +     .10351,    .05638,   5.29864,    .33599,    .04269,
     +     .00000,    .20593,    .33659,
     +     .10527,    .05761,   5.80439,    .34868,    .05765,
     +     .00000,    .21946,    .34937,
     +     .10715,    .05891,   6.34566,    .36307,    .07456,
     +     .00000,    .23473,    .36385 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
     +     .10880,    .06003,   6.80137,    .37643,    .08911,
     +     .00000,    .24884,    .37729,
     +     .11039,    .06112,   7.25917,    .38981,    .10494,
     +     .00000,    .26296,    .39075,
     +     .11166,    .06198,   7.59987,    .40092,    .11667,
     +     .00000,    .27463,    .40192,
     +     .11436,    .06381,   8.33737,    .42559,    .14423,
     +     .00001,    .30051,    .42674,
     +     .11671,    .06538,   8.95353,    .44796,    .16930,
     +     .01599,    .32392,    .44923,
     +     .11933,    .06713,   9.58715,    .47382,    .19759,
     +     .04798,    .35091,    .47524,
     +     .12207,    .06893,  10.22861,    .50162,    .22784,
     +     .08212,    .37988,    .50319,
     +     .12455,    .07055,  10.79185,    .52742,    .25594,
     +     .11260,    .40672,    .52913 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
     +     .12705,    .07218,  11.34330,    .55395,    .28495,
     +     .14438,    .43429,    .55580,
     +     .12912,    .07352,  11.78243,    .57625,    .30917,
     +     .17034,    .45744,    .57822,
     +     .13162,    .07512,  12.28955,    .60342,    .33852,
     +     .20160,    .48564,    .60554,
     +     .13383,    .07654,  12.72522,    .62773,    .36496,
     +     .23011,    .51085,    .62999,
     +     .13586,    .07782,  13.10388,    .65000,    .38898,
     +     .25563,    .53393,    .65238,
     +     .13841,    .07942,  13.56124,    .67824,    .41944,
     +     .28802,    .56319,    .68078,
     +     .14080,    .08092,  13.97441,    .70490,    .44834,
     +     .31894,    .59081,    .70759,
     +     .14303,    .08231,  14.33476,    .72960,    .47491,
     +     .34706,    .61638,    .73243 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
     +     .14525,    .08368,  14.67707,    .75416,    .50137,
     +     .37514,    .64181,    .75713,
     +     .14742,    .08502,  14.99993,    .77821,    .52740,
     +     .40288,    .66671,    .78133,
     +     .14945,    .08625,  15.27799,    .80041,    .55121,
     +     .42797,    .68969,    .80365,
     +     .15137,    .08742,  15.53819,    .82157,    .57415,
     +     .45244,    .71159,    .82494,
     +     .15327,    .08857,  15.77128,    .84205,    .59610,
     +     .47554,    .73281,    .84555,
     +     .15515,    .08970,  16.00135,    .86251,    .61827,
     +     .49915,    .75399,    .86613,
     +     .15691,    .09075,  16.19454,    .88116,    .63828,
     +     .52020,    .77332,    .88490,
     +     .15858,    .09175,  16.37771,    .89904,    .65763,
     +     .54075,    .79184,    .90289 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
     +     .16025,    .09274,  16.54413,    .91649,    .67641,
     +     .56058,    .80992,    .92045,
     +     .16189,    .09371,  16.70311,    .93367,    .69498,
     +     .58024,    .82773,    .93775,
     +     .16345,    .09463,  16.84604,    .94984,    .71247,
     +     .59876,    .84449,    .95402,
     +     .16492,    .09549,  16.96993,    .96478,    .72858,
     +     .61578,    .85999,    .96906,
     +     .16641,    .09636,  17.09534,    .98004,    .74515,
     +     .63336,    .87582,    .98443 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
     +     .10760,    .06060,   2.17838,    .25817,    .00000,
     +     .00000,    .13354,    .25846,
     +     .10979,    .06214,   2.58946,    .26439,    .00000,
     +     .00000,    .14067,    .26480,
     +     .11307,    .06442,   3.22168,    .27528,    .00009,
     +     .00000,    .15289,    .27585,
     +     .11549,    .06609,   3.68513,    .28447,    .00939,
     +     .00000,    .16306,    .28518,
     +     .11805,    .06785,   4.17109,    .29518,    .02554,
     +     .00000,    .17479,    .29602,
     +     .12027,    .06935,   4.57540,    .30547,    .03661,
     +     .00000,    .18595,    .30644,
     +     .12241,    .07080,   4.97116,    .31589,    .04919,
     +     .00000,    .19719,    .31698,
     +     .12470,    .07232,   5.39058,    .32759,    .06328,
     +     .00000,    .20976,    .32881 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
     +     .12668,    .07364,   5.73995,    .33835,    .07529,
     +     .00000,    .22127,    .33969,
     +     .12860,    .07491,   6.08847,    .34908,    .08829,
     +     .00000,    .23273,    .35054,
     +     .13012,    .07590,   6.34523,    .35791,    .09784,
     +     .00000,    .24212,    .35946,
     +     .13337,    .07802,   6.89560,    .37739,    .12013,
     +     .00001,    .26281,    .37914,
     +     .13617,    .07983,   7.34838,    .39489,    .14021,
     +     .01286,    .28134,    .39682,
     +     .13930,    .08183,   7.80445,    .41491,    .16264,
     +     .03846,    .30249,    .41704,
     +     .14255,    .08388,   8.25957,    .43622,    .18640,
     +     .06553,    .32497,    .43856,
     +     .14548,    .08572,   8.65344,    .45580,    .20827,
     +     .08946,    .34560,    .45834 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
     +     .14843,    .08756,   9.03382,    .47577,    .23065,
     +     .11422,    .36662,    .47850,
     +     .15086,    .08906,   9.33247,    .49242,    .24920,
     +     .13428,    .38413,    .49532,
     +     .15379,    .09085,   9.67212,    .51253,    .27149,
     +     .15826,    .40528,    .51564,
     +     .15637,    .09242,   9.96012,    .53040,    .29143,
     +     .17998,    .42404,    .53368,
     +     .15872,    .09383,  10.20656,    .54663,    .30941,
     +     .19927,    .44110,    .55008,
     +     .16167,    .09561,  10.49940,    .56706,    .33205,
     +     .22360,    .46256,    .57071,
     +     .16443,    .09725,  10.75989,    .58620,    .35337,
     +     .24666,    .48266,    .59005,
     +     .16699,    .09876,  10.98248,    .60377,    .37281,
     +     .26746,    .50111,    .60780 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
     +     .16953,    .10024,  11.19001,    .62110,    .39205,
     +     .28810,    .51933,    .62533,
     +     .17201,    .10169,  11.38266,    .63797,    .41086,
     +     .30838,    .53706,    .64238,
     +     .17431,    .10302,  11.54403,    .65339,    .42791,
     +     .32657,    .55327,    .65797,
     +     .17649,    .10427,  11.69389,    .66802,    .44428,
     +     .34425,    .56866,    .67276,
     +     .17864,    .10549,  11.82327,    .68206,    .45981,
     +     .36079,    .58344,    .68696,
     +     .18075,    .10669,  11.95043,    .69602,    .47545,
     +     .37765,    .59814,    .70108,
     +     .18273,    .10780,  12.05218,    .70862,    .48943,
     +     .39256,    .61142,    .71383,
     +     .18460,    .10885,  12.14827,    .72066,    .50291,
     +     .40707,    .62411,    .72601 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
     +     .18646,    .10988,  12.23196,    .73231,    .51591,
     +     .42098,    .63640,    .73780,
     +     .18828,    .11089,  12.31053,    .74373,    .52870,
     +     .43471,    .64846,    .74936,
     +     .19002,    .11185,  12.37900,    .75440,    .54068,
     +     .44759,    .65973,    .76016,
     +     .19164,    .11274,  12.43542,    .76419,    .55165,
     +     .45935,    .67009,    .77008,
     +     .19328,    .11364,  12.49236,    .77417,    .56290,
     +     .47147,    .68064,    .78018 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
     +     .12001,    .07072,   2.05040,    .24336,    .00000,
     +     .00000,    .12587,    .24384,
     +     .12255,    .07246,   2.40883,    .24894,    .00000,
     +     .00000,    .13236,    .24958,
     +     .12635,    .07503,   2.95385,    .25858,    .00009,
     +     .00000,    .14335,    .25945,
     +     .12915,    .07690,   3.34872,    .26664,    .00841,
     +     .00000,    .15239,    .26769,
     +     .13211,    .07886,   3.75858,    .27595,    .02283,
     +     .00000,    .16272,    .27718,
     +     .13467,    .08053,   4.09658,    .28482,    .03259,
     +     .00000,    .17246,    .28622,
     +     .13713,    .08213,   4.42499,    .29374,    .04363,
     +     .00000,    .18221,    .29530,
     +     .13974,    .08381,   4.77042,    .30370,    .05591,
     +     .00000,    .19306,    .30544 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
     +     .14201,    .08526,   5.05574,    .31280,    .06631,
     +     .00000,    .20291,    .31469,
     +     .14421,    .08666,   5.33886,    .32184,    .07751,
     +     .00000,    .21269,    .32388,
     +     .14593,    .08774,   5.54572,    .32923,    .08569,
     +     .00000,    .22065,    .33139,
     +     .14963,    .09006,   5.98573,    .34546,    .10470,
     +     .00001,    .23810,    .34787,
     +     .15280,    .09202,   6.34320,    .35993,    .12170,
     +     .01092,    .25361,    .36257,
     +     .15633,    .09419,   6.69700,    .37636,    .14055,
     +     .03259,    .27119,    .37925,
     +     .15998,    .09640,   7.04591,    .39371,    .16036,
     +     .05534,    .28973,    .39686,
     +     .16326,    .09837,   7.34414,    .40954,    .17847,
     +     .07531,    .30662,    .41294 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
     +     .16655,    .10033,   7.62880,    .42557,    .19690,
     +     .09585,    .32372,    .42921,
     +     .16926,    .10192,   7.84953,    .43884,    .21207,
     +     .11239,    .33787,    .44270,
     +     .17251,    .10382,   8.09714,    .45478,    .23020,
     +     .13205,    .35486,    .45888,
     +     .17536,    .10547,   8.30466,    .46885,    .24633,
     +     .14976,    .36985,    .47317,
     +     .17795,    .10696,   8.47961,    .48155,    .26079,
     +     .16542,    .38339,    .48607,
     +     .18120,    .10881,   8.68435,    .49743,    .27889,
     +     .18504,    .40032,    .50221,
     +     .18423,    .11052,   8.86379,    .51222,    .29585,
     +     .20355,    .41609,    .51723,
     +     .18703,    .11208,   9.01384,    .52569,    .31122,
     +     .22014,    .43047,    .53093 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
     +     .18979,    .11362,   9.15119,    .53891,    .32633,
     +     .23653,    .44458,    .54436,
     +     .19247,    .11510,   9.27668,    .55169,    .34105,
     +     .25255,    .45824,    .55736,
     +     .19497,    .11646,   9.37838,    .56328,    .35430,
     +     .26684,    .47064,    .56915,
     +     .19732,    .11774,   9.47212,    .57425,    .36698,
     +     .28068,    .48238,    .58031,
     +     .19962,    .11897,   9.54932,    .58467,    .37893,
     +     .29355,    .49356,    .59092,
     +     .20189,    .12019,   9.62495,    .59501,    .39093,
     +     .30664,    .50465,    .60144,
     +     .20400,    .12131,   9.68170,    .60426,    .40158,
     +     .31813,    .51459,    .61086,
     +     .20600,    .12236,   9.73514,    .61307,    .41183,
     +     .32929,    .52406,    .61983 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
     +     .20797,    .12340,   9.77864,    .62153,    .42164,
     +     .33994,    .53318,    .62846,
     +     .20991,    .12441,   9.81839,    .62978,    .43128,
     +     .35041,    .54208,    .63687,
     +     .21174,    .12535,   9.85125,    .63746,    .44026,
     +     .36020,    .55037,    .64470,
     +     .21345,    .12623,   9.87579,    .64445,    .44844,
     +     .36909,    .55793,    .65183,
     +     .21519,    .12712,   9.90052,    .65155,    .45682,
     +     .37824,    .56562,    .65908 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
     +     .13123,    .07987,   1.94659,    .23224,    .00000,
     +     .00000,    .12014,    .23297,
     +     .13409,    .08175,   2.26700,    .23731,    .00000,
     +     .00000,    .12613,    .23824,
     +     .13836,    .08454,   2.74979,    .24601,    .00008,
     +     .00000,    .13618,    .24723,
     +     .14149,    .08657,   3.09625,    .25321,    .00770,
     +     .00000,    .14438,    .25465,
     +     .14480,    .08868,   3.45292,    .26148,    .02083,
     +     .00000,    .15369,    .26315,
     +     .14765,    .09048,   3.74479,    .26930,    .02965,
     +     .00000,    .16240,    .27118,
     +     .15038,    .09219,   4.02670,    .27713,    .03957,
     +     .00000,    .17108,    .27921,
     +     .15328,    .09400,   4.32137,    .28584,    .05056,
     +     .00000,    .18068,    .28813 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
     +     .15579,    .09554,   4.56299,    .29374,    .05981,
     +     .00000,    .18936,    .29622,
     +     .15822,    .09703,   4.80173,    .30157,    .06975,
     +     .00000,    .19794,    .30423,
     +     .16012,    .09818,   4.97489,    .30794,    .07697,
     +     .00000,    .20489,    .31074,
     +     .16418,    .10062,   5.34087,    .32187,    .09368,
     +     .00001,    .22007,    .32498,
     +     .16767,    .10270,   5.63499,    .33421,    .10853,
     +     .00957,    .23348,    .33760,
     +     .17153,    .10497,   5.92138,    .34813,    .12489,
     +     .02851,    .24858,    .35183,
     +     .17550,    .10727,   6.20085,    .36275,    .14200,
     +     .04828,    .26440,    .36675,
     +     .17907,    .10933,   6.43711,    .37599,    .15755,
     +     .06553,    .27874,    .38029 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
     +     .18263,    .11135,   6.66016,    .38933,    .17329,
     +     .08319,    .29317,    .39392,
     +     .18556,    .11300,   6.83100,    .40031,    .18618,
     +     .09734,    .30505,    .40514,
     +     .18905,    .11495,   7.02024,    .41342,    .20151,
     +     .11408,    .31923,    .41854,
     +     .19212,    .11665,   7.17707,    .42494,    .21508,
     +     .12910,    .33169,    .43031,
     +     .19489,    .11817,   7.30726,    .43528,    .22720,
     +     .14232,    .34288,    .44088,
     +     .19836,    .12005,   7.45727,    .44813,    .24229,
     +     .15881,    .35681,    .45402,
     +     .20158,    .12178,   7.58671,    .46003,    .25636,
     +     .17430,    .36971,    .46619,
     +     .20455,    .12336,   7.69231,    .47079,    .26904,
     +     .18812,    .38140,    .47721 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
     +     .20747,    .12490,   7.78707,    .48130,    .28147,
     +     .20170,    .39282,    .48796,
     +     .21030,    .12638,   7.87218,    .49141,    .29351,
     +     .21494,    .40383,    .49831,
     +     .21292,    .12774,   7.93826,    .50051,    .30430,
     +     .22668,    .41376,    .50764,
     +     .21538,    .12900,   7.99864,    .50910,    .31459,
     +     .23802,    .42313,    .51644,
     +     .21779,    .13023,   8.04515,    .51718,    .32423,
     +     .24852,    .43199,    .52473,
     +     .22016,    .13143,   8.09056,    .52518,    .33389,
     +     .25917,    .44075,    .53294,
     +     .22235,    .13252,   8.12130,    .53228,    .34241,
     +     .26847,    .44856,    .54022,
     +     .22442,    .13356,   8.15017,    .53903,    .35059,
     +     .27749,    .45598,    .54715 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
     +     .22646,    .13456,   8.17078,    .54545,    .35839,
     +     .28605,    .46307,    .55375,
     +     .22847,    .13555,   8.18853,    .55169,    .36602,
     +     .29445,    .46997,    .56017,
     +     .23036,    .13646,   8.20137,    .55746,    .37311,
     +     .30226,    .47637,    .56610,
     +     .23211,    .13731,   8.20819,    .56268,    .37953,
     +     .30934,    .48217,    .57148,
     +     .23389,    .13817,   8.21506,    .56798,    .38610,
     +     .31661,    .48807,    .57693 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
     +     .15158,    .09613,   1.78379,    .21592,    .00000,
     +     .00000,    .11179,    .21732,
     +     .15499,    .09824,   2.05162,    .22022,    .00000,
     +     .00000,    .11704,    .22188,
     +     .16006,    .10134,   2.44943,    .22749,    .00008,
     +     .00000,    .12574,    .22957,
     +     .16376,    .10357,   2.73054,    .23344,    .00668,
     +     .00000,    .13273,    .23583,
     +     .16765,    .10590,   3.01599,    .24021,    .01801,
     +     .00000,    .14059,    .24292,
     +     .17098,    .10786,   3.24670,    .24654,    .02551,
     +     .00000,    .14785,    .24953,
     +     .17417,    .10972,   3.46734,    .25283,    .03389,
     +     .00000,    .15504,    .25609,
     +     .17754,    .11167,   3.69554,    .25977,    .04310,
     +     .00000,    .16292,    .26333 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
     +     .18044,    .11333,   3.88038,    .26602,    .05079,
     +     .00000,    .16998,    .26983,
     +     .18324,    .11492,   4.06182,    .27218,    .05900,
     +     .00000,    .17694,    .27623,
     +     .18542,    .11615,   4.19160,    .27715,    .06492,
     +     .00000,    .18252,    .28139,
     +     .19007,    .11874,   4.46294,    .28795,    .07854,
     +     .00001,    .19463,    .29260,
     +     .19403,    .12092,   4.67683,    .29742,    .09053,
     +     .00777,    .20523,    .30243,
     +     .19840,    .12330,   4.87900,    .30799,    .10361,
     +     .02307,    .21703,    .31339,
     +     .20286,    .12569,   5.07249,    .31896,    .11716,
     +     .03890,    .22928,    .32477,
     +     .20685,    .12780,   5.23257,    .32880,    .12935,
     +     .05258,    .24027,    .33497 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
     +     .21081,    .12987,   5.38054,    .33861,    .14160,
     +     .06648,    .25122,    .34515,
     +     .21405,    .13154,   5.49125,    .34662,    .15155,
     +     .07753,    .26016,    .35344,
     +     .21789,    .13351,   5.61054,    .35607,    .16328,
     +     .09051,    .27074,    .36325,
     +     .22124,    .13520,   5.70706,    .36429,    .17359,
     +     .10207,    .27995,    .37179,
     +     .22426,    .13671,   5.78445,    .37160,    .18273,
     +     .11217,    .28816,    .37938,
     +     .22801,    .13856,   5.87046,    .38059,    .19402,
     +     .12469,    .29827,    .38872,
     +     .23148,    .14025,   5.94203,    .38883,    .20446,
     +     .13636,    .30755,    .39728,
     +     .23465,    .14178,   5.99693,    .39619,    .21379,
     +     .14668,    .31589,    .40494 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
     +     .23775,    .14326,   6.04340,    .40330,    .22285,
     +     .15676,    .32395,    .41234,
     +     .24075,    .14468,   6.08295,    .41008,    .23159,
     +     .16652,    .33166,    .41941,
     +     .24350,    .14596,   6.10944,    .41610,    .23933,
     +     .17511,    .33853,    .42568,
     +     .24609,    .14715,   6.13296,    .42173,    .24669,
     +     .18338,    .34498,    .43156,
     +     .24859,    .14829,   6.14619,    .42694,    .25350,
     +     .19095,    .35100,    .43701,
     +     .25106,    .14940,   6.15900,    .43208,    .26031,
     +     .19861,    .35693,    .44239,
     +     .25331,    .15040,   6.16211,    .43656,    .26625,
     +     .20524,    .36213,    .44707,
     +     .25543,    .15135,   6.16497,    .44080,    .27194,
     +     .21164,    .36707,    .45151 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
     +     .25751,    .15226,   6.16174,    .44476,    .27730,
     +     .21767,    .37172,    .45567,
     +     .25955,    .15314,   6.15677,    .44858,    .28253,
     +     .22356,    .37622,    .45968,
     +     .26145,    .15396,   6.14920,    .45207,    .28735,
     +     .22902,    .38035,    .46335,
     +     .26322,    .15470,   6.13831,    .45517,    .29168,
     +     .23392,    .38405,    .46662,
     +     .26500,    .15546,   6.12738,    .45831,    .29610,
     +     .23894,    .38780,    .46993 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
     +     .17919,    .11713,   1.60638,    .19884,    .00000,
     +     .00000,    .10323,    .20160,
     +     .18326,    .11943,   1.82471,    .20229,    .00000,
     +     .00000,    .10771,    .20544,
     +     .18928,    .12278,   2.14369,    .20805,    .00007,
     +     .00000,    .11503,    .21180,
     +     .19365,    .12517,   2.36499,    .21272,    .00569,
     +     .00000,    .12082,    .21690,
     +     .19822,    .12765,   2.58606,    .21797,    .01528,
     +     .00000,    .12726,    .22261,
     +     .20209,    .12971,   2.76190,    .22283,    .02152,
     +     .00000,    .13313,    .22785,
     +     .20578,    .13166,   2.92813,    .22762,    .02846,
     +     .00000,    .13889,    .23301,
     +     .20967,    .13369,   3.09787,    .23286,    .03600,
     +     .00000,    .14515,    .23864 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
     +     .21298,    .13540,   3.23313,    .23752,    .04223,
     +     .00000,    .15069,    .24364,
     +     .21619,    .13704,   3.36483,    .24210,    .04886,
     +     .00000,    .15613,    .24855,
     +     .21866,    .13829,   3.45730,    .24575,    .05358,
     +     .00000,    .16044,    .25245,
     +     .22390,    .14092,   3.64796,    .25363,    .06438,
     +     .00001,    .16973,    .26086,
     +     .22835,    .14311,   3.79429,    .26045,    .07379,
     +     .00614,    .17776,    .26814,
     +     .23320,    .14546,   3.92670,    .26796,    .08394,
     +     .01816,    .18660,    .27614,
     +     .23812,    .14781,   4.04971,    .27565,    .09432,
     +     .03047,    .19565,    .28434,
     +     .24248,    .14985,   4.14822,    .28244,    .10357,
     +     .04100,    .20367,    .29158 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
     +     .24678,    .15184,   4.23628,    .28913,    .11277,
     +     .05160,    .21158,    .29871,
     +     .25026,    .15343,   4.29950,    .29451,    .12017,
     +     .05995,    .21796,    .30445,
     +     .25437,    .15527,   4.36421,    .30077,    .12880,
     +     .06966,    .22541,    .31113,
     +     .25793,    .15684,   4.41427,    .30614,    .13633,
     +     .07826,    .23184,    .31688,
     +     .26110,    .15823,   4.45166,    .31086,    .14294,
     +     .08569,    .23750,    .32192,
     +     .26502,    .15991,   4.48971,    .31656,    .15102,
     +     .09483,    .24438,    .32802,
     +     .26861,    .16143,   4.51840,    .32171,    .15842,
     +     .10328,    .25063,    .33354,
     +     .27187,    .16277,   4.53632,    .32623,    .16496,
     +     .11068,    .25616,    .33839 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
     +     .27503,    .16406,   4.54812,    .33050,    .17126,
     +     .11785,    .26143,    .34299,
     +     .27807,    .16529,   4.55543,    .33453,    .17727,
     +     .12474,    .26642,    .34733,
     +     .28082,    .16637,   4.55463,    .33800,    .18253,
     +     .13073,    .27079,    .35108,
     +     .28339,    .16737,   4.55296,    .34124,    .18752,
     +     .13648,    .27487,    .35458,
     +     .28586,    .16830,   4.54394,    .34413,    .19206,
     +     .14167,    .27859,    .35772,
     +     .28829,    .16922,   4.53510,    .34696,    .19658,
     +     .14692,    .28225,    .36081,
     +     .29047,    .17001,   4.52044,    .34934,    .20046,
     +     .15139,    .28537,    .36340,
     +     .29253,    .17077,   4.50669,    .35158,    .20417,
     +     .15571,    .28833,    .36585 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
     +     .29451,    .17148,   4.48877,    .35360,    .20761,
     +     .15973,    .29105,    .36807,
     +     .29644,    .17216,   4.47005,    .35551,    .21095,
     +     .16364,    .29365,    .37017,
     +     .29824,    .17278,   4.45042,    .35722,    .21400,
     +     .16723,    .29601,    .37206,
     +     .29989,    .17334,   4.42940,    .35868,    .21670,
     +     .17042,    .29809,    .37368,
     +     .30156,    .17390,   4.40837,    .36016,    .21946,
     +     .17369,    .30019,    .37532 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
     +     .22120,    .14628,   1.40728,    .17869,    .00000,
     +     .00000,    .09358,    .18478,
     +     .22606,    .14866,   1.57690,    .18115,    .00000,
     +     .00000,    .09722,    .18781,
     +     .23317,    .15208,   1.81949,    .18523,    .00006,
     +     .00000,    .10307,    .19272,
     +     .23827,    .15449,   1.98368,    .18849,    .00468,
     +     .00000,    .10761,    .19659,
     +     .24357,    .15695,   2.14398,    .19212,    .01250,
     +     .00000,    .11258,    .20084,
     +     .24800,    .15898,   2.26862,    .19543,    .01750,
     +     .00000,    .11702,    .20467,
     +     .25221,    .16087,   2.38455,    .19866,    .02300,
     +     .00000,    .12134,    .20840,
     +     .25661,    .16282,   2.50069,    .20215,    .02891,
     +     .00000,    .12597,    .21242 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
     +     .26032,    .16443,   2.59094,    .20522,    .03372,
     +     .00000,    .13002,    .21593,
     +     .26389,    .16598,   2.67788,    .20821,    .03881,
     +     .00000,    .13396,    .21934,
     +     .26660,    .16713,   2.73711,    .21056,    .04239,
     +     .00000,    .13704,    .22200,
     +     .27234,    .16954,   2.85663,    .21558,    .05051,
     +     .00001,    .14361,    .22768,
     +     .27714,    .17151,   2.94430,    .21985,    .05748,
     +     .00460,    .14920,    .23250,
     +     .28232,    .17359,   3.01734,    .22444,    .06488,
     +     .01353,    .15523,    .23769,
     +     .28751,    .17561,   3.08126,    .22902,    .07234,
     +     .02257,    .16131,    .24287,
     +     .29204,    .17733,   3.12893,    .23298,    .07890,
     +     .03019,    .16658,    .24734 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
     +     .29645,    .17897,   3.16828,    .23679,    .08533,
     +     .03776,    .17170,    .25166,
     +     .29999,    .18025,   3.19355,    .23978,    .09043,
     +     .04367,    .17576,    .25504,
     +     .30409,    .18171,   3.21540,    .24317,    .09631,
     +     .05045,    .18041,    .25888,
     +     .30761,    .18293,   3.22950,    .24602,    .10138,
     +     .05639,    .18436,    .26211,
     +     .31070,    .18397,   3.23640,    .24843,    .10576,
     +     .06147,    .18776,    .26486,
     +     .31447,    .18520,   3.23877,    .25126,    .11105,
     +     .06764,    .19182,    .26810,
     +     .31789,    .18628,   3.23626,    .25373,    .11583,
     +     .07329,    .19544,    .27095,
     +     .32093,    .18720,   3.22786,    .25580,    .11998,
     +     .07817,    .19854,    .27334 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
     +     .32385,    .18806,   3.21560,    .25768,    .12393,
     +     .08284,    .20145,    .27552,
     +     .32661,    .18885,   3.20105,    .25938,    .12765,
     +     .08728,    .20415,    .27752,
     +     .32907,    .18951,   3.18240,    .26074,    .13084,
     +     .09109,    .20642,    .27913,
     +     .33135,    .19011,   3.16450,    .26199,    .13384,
     +     .09472,    .20852,    .28061,
     +     .33348,    .19063,   3.14191,    .26298,    .13652,
     +     .09795,    .21035,    .28182,
     +     .33556,    .19114,   3.12002,    .26396,    .13917,
     +     .10119,    .21214,    .28301,
     +     .33738,    .19154,   3.09548,    .26464,    .14138,
     +     .10390,    .21358,    .28387,
     +     .33910,    .19191,   3.07260,    .26528,    .14349,
     +     .10651,    .21493,    .28467 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
     +     .34071,    .19223,   3.04715,    .26576,    .14540,
     +     .10890,    .21611,    .28531,
     +     .34227,    .19253,   3.02164,    .26618,    .14723,
     +     .11121,    .21721,    .28588,
     +     .34369,    .19279,   2.99645,    .26650,    .14888,
     +     .11330,    .21817,    .28634,
     +     .34498,    .19299,   2.97127,    .26669,    .15031,
     +     .11513,    .21897,    .28665,
     +     .34627,    .19320,   2.94618,    .26689,    .15176,
     +     .11701,    .21976,    .28696 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
     +     .26018,    .17046,   1.27594,    .16290,    .00000,
     +     .00000,    .08653,    .17341,
     +     .26552,    .17272,   1.41540,    .16465,    .00000,
     +     .00000,    .08961,    .17586,
     +     .27327,    .17595,   1.61125,    .16756,    .00006,
     +     .00000,    .09446,    .17979,
     +     .27877,    .17819,   1.74096,    .16988,    .00404,
     +     .00000,    .09818,    .18282,
     +     .28443,    .18045,   1.86504,    .17243,    .01075,
     +     .00000,    .10219,    .18610,
     +     .28912,    .18226,   1.95940,    .17474,    .01497,
     +     .00000,    .10573,    .18900,
     +     .29354,    .18395,   2.04587,    .17697,    .01958,
     +     .00000,    .10913,    .19180,
     +     .29812,    .18567,   2.13098,    .17937,    .02448,
     +     .00000,    .11276,    .19476 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
     +     .30194,    .18706,   2.19538,    .18144,    .02843,
     +     .00000,    .11587,    .19731,
     +     .30561,    .18839,   2.25682,    .18345,    .03259,
     +     .00000,    .11889,    .19977,
     +     .30837,    .18935,   2.29729,    .18500,    .03548,
     +     .00000,    .12122,    .20166,
     +     .31417,    .19135,   2.37713,    .18827,    .04198,
     +     .00001,    .12614,    .20563,
     +     .31896,    .19295,   2.43258,    .19102,    .04751,
     +     .00368,    .13026,    .20894,
     +     .32403,    .19458,   2.47370,    .19388,    .05330,
     +     .01079,    .13464,    .21240,
     +     .32906,    .19612,   2.50654,    .19667,    .05906,
     +     .01791,    .13896,    .21577,
     +     .33339,    .19739,   2.52791,    .19900,    .06406,
     +     .02385,    .14264,    .21860 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
     +     .33756,    .19857,   2.54246,    .20117,    .06892,
     +     .02968,    .14616,    .22124,
     +     .34084,    .19946,   2.54874,    .20283,    .07273,
     +     .03419,    .14889,    .22325,
     +     .34460,    .20042,   2.54966,    .20462,    .07706,
     +     .03932,    .15196,    .22545,
     +     .34778,    .20120,   2.54660,    .20607,    .08075,
     +     .04378,    .15452,    .22724,
     +     .35054,    .20182,   2.53935,    .20724,    .08390,
     +     .04755,    .15668,    .22869,
     +     .35384,    .20251,   2.52549,    .20852,    .08767,
     +     .05209,    .15919,    .23031,
     +     .35679,    .20309,   2.50919,    .20958,    .09103,
     +     .05619,    .16138,    .23165,
     +     .35935,    .20353,   2.48979,    .21036,    .09391,
     +     .05970,    .16319,    .23268 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
     +     .36176,    .20390,   2.46776,    .21100,    .09660,
     +     .06303,    .16483,    .23355,
     +     .36401,    .20422,   2.44457,    .21153,    .09912,
     +     .06617,    .16633,    .23427,
     +     .36594,    .20442,   2.41935,    .21183,    .10123,
     +     .06883,    .16751,    .23474,
     +     .36773,    .20460,   2.39562,    .21209,    .10320,
     +     .07135,    .16859,    .23515,
     +     .36934,    .20468,   2.36883,    .21215,    .10492,
     +     .07355,    .16945,    .23534,
     +     .37090,    .20476,   2.34299,    .21220,    .10662,
     +     .07576,    .17028,    .23552,
     +     .37221,    .20475,   2.31596,    .21208,    .10799,
     +     .07757,    .17088,    .23549,
     +     .37343,    .20474,   2.29087,    .21196,    .10929,
     +     .07931,    .17143,    .23546 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
     +     .37453,    .20468,   2.26412,    .21171,    .11044,
     +     .08087,    .17185,    .23529,
     +     .37558,    .20459,   2.23766,    .21143,    .11153,
     +     .08237,    .17222,    .23508,
     +     .37651,    .20448,   2.21204,    .21111,    .11249,
     +     .08372,    .17250,    .23481,
     +     .37730,    .20434,   2.18704,    .21072,    .11330,
     +     .08488,    .17267,    .23446,
     +     .37811,    .20420,   2.16220,    .21033,    .11412,
     +     .08607,    .17284,    .23411 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
     +     .33173,    .20861,   1.11938,    .13627,    .00000,
     +     .00000,    .07564,    .15779,
     +     .33731,    .21035,   1.22095,    .13712,    .00000,
     +     .00000,    .07795,    .15938,
     +     .34527,    .21274,   1.35883,    .13856,    .00005,
     +     .00000,    .08151,    .16185,
     +     .35082,    .21432,   1.44631,    .13970,    .00324,
     +     .00000,    .08416,    .16369,
     +     .35642,    .21586,   1.52652,    .14094,    .00856,
     +     .00000,    .08695,    .16562,
     +     .36094,    .21703,   1.58466,    .14205,    .01182,
     +     .00000,    .08934,    .16726,
     +     .36514,    .21808,   1.63629,    .14310,    .01533,
     +     .00000,    .09161,    .16879,
     +     .36944,    .21910,   1.68507,    .14419,    .01901,
     +     .00000,    .09397,    .17036 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
     +     .37292,    .21987,   1.71963,    .14510,    .02192,
     +     .00000,    .09595,    .17165,
     +     .37624,    .22059,   1.75189,    .14598,    .02495,
     +     .00000,    .09784,    .17288,
     +     .37868,    .22105,   1.77117,    .14662,    .02702,
     +     .00000,    .09926,    .17376,
     +     .38370,    .22196,   1.80673,    .14793,    .03162,
     +     .00001,    .10221,    .17557,
     +     .38773,    .22262,   1.82701,    .14898,    .03546,
     +     .00261,    .10461,    .17698,
     +     .39188,    .22317,   1.83411,    .14994,    .03938,
     +     .00760,    .10704,    .17831,
     +     .39580,    .22358,   1.83453,    .15079,    .04320,
     +     .01250,    .10935,    .17947,
     +     .39904,    .22381,   1.82920,    .15139,    .04645,
     +     .01652,    .11124,    .18031 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
     +     .40206,    .22392,   1.81928,    .15187,    .04953,
     +     .02040,    .11296,    .18098,
     +     .40433,    .22392,   1.80740,    .15214,    .05190,
     +     .02335,    .11423,    .18139,
     +     .40681,    .22380,   1.78889,    .15232,    .05453,
     +     .02665,    .11557,    .18168,
     +     .40882,    .22362,   1.77037,    .15238,    .05674,
     +     .02947,    .11664,    .18181,
     +     .41045,    .22337,   1.75086,    .15232,    .05857,
     +     .03181,    .11746,    .18179,
     +     .41228,    .22296,   1.72367,    .15211,    .06071,
     +     .03459,    .11834,    .18160,
     +     .41381,    .22251,   1.69661,    .15182,    .06257,
     +     .03707,    .11904,    .18130,
     +     .41500,    .22198,   1.66915,    .15142,    .06412,
     +     .03913,    .11952,    .18086 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
     +     .41602,    .22139,   1.64065,    .15092,    .06552,
     +     .04106,    .11989,    .18030,
     +     .41690,    .22077,   1.61232,    .15038,    .06680,
     +     .04285,    .12017,    .17968,
     +     .41749,    .22010,   1.58401,    .14974,    .06783,
     +     .04432,    .12027,    .17895,
     +     .41801,    .21946,   1.55781,    .14913,    .06878,
     +     .04571,    .12035,    .17824,
     +     .41832,    .21871,   1.53010,    .14840,    .06955,
     +     .04688,    .12028,    .17740,
     +     .41861,    .21799,   1.50358,    .14768,    .07031,
     +     .04805,    .12022,    .17657,
     +     .41867,    .21723,   1.47734,    .14690,    .07087,
     +     .04898,    .12002,    .17565,
     +     .41872,    .21652,   1.45312,    .14617,    .07140,
     +     .04986,    .11983,    .17479 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
     +     .41864,    .21574,   1.42821,    .14536,    .07183,
     +     .05063,    .11955,    .17384,
     +     .41851,    .21497,   1.40392,    .14454,    .07222,
     +     .05135,    .11925,    .17288,
     +     .41832,    .21420,   1.38083,    .14374,    .07255,
     +     .05199,    .11893,    .17193,
     +     .41805,    .21344,   1.35879,    .14293,    .07279,
     +     .05251,    .11857,    .17097,
     +     .41777,    .21267,   1.33700,    .14212,    .07303,
     +     .05305,    .11820,    .17002 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
     +     .39575,    .23690,   1.03576,    .11288,    .00000,
     +     .00000,    .06669,    .14621,
     +     .40087,    .23788,   1.11208,    .11327,    .00000,
     +     .00000,    .06849,    .14710,
     +     .40802,    .23911,   1.21196,    .11395,    .00005,
     +     .00000,    .07120,    .14843,
     +     .41285,    .23984,   1.27225,    .11449,    .00273,
     +     .00000,    .07316,    .14935,
     +     .41763,    .24046,   1.32467,    .11507,    .00717,
     +     .00000,    .07519,    .15028,
     +     .42137,    .24081,   1.36031,    .11555,    .00983,
     +     .00000,    .07688,    .15100,
     +     .42478,    .24108,   1.39060,    .11600,    .01266,
     +     .00000,    .07844,    .15164,
     +     .42817,    .24127,   1.41749,    .11644,    .01558,
     +     .00000,    .08003,    .15224 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
     +     .43082,    .24130,   1.43438,    .11678,    .01786,
     +     .00000,    .08133,    .15267,
     +     .43332,    .24131,   1.44960,    .11710,    .02021,
     +     .00000,    .08255,    .15306,
     +     .43506,    .24121,   1.45666,    .11729,    .02179,
     +     .00000,    .08343,    .15329,
     +     .43856,    .24092,   1.46719,    .11765,    .02526,
     +     .00001,    .08522,    .15368,
     +     .44123,    .24056,   1.46816,    .11789,    .02809,
     +     .00198,    .08663,    .15387,
     +     .44378,    .23994,   1.45736,    .11799,    .03094,
     +     .00574,    .08798,    .15386,
     +     .44597,    .23916,   1.44130,    .11795,    .03366,
     +     .00937,    .08918,    .15366,
     +     .44762,    .23833,   1.42294,    .11779,    .03591,
     +     .01230,    .09008,    .15330 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
     +     .44899,    .23738,   1.40158,    .11752,    .03802,
     +     .01508,    .09084,    .15281,
     +     .44987,    .23650,   1.38160,    .11721,    .03960,
     +     .01717,    .09134,    .15228,
     +     .45063,    .23533,   1.35496,    .11673,    .04131,
     +     .01947,    .09179,    .15148,
     +     .45111,    .23424,   1.33037,    .11623,    .04272,
     +     .02141,    .09209,    .15069,
     +     .45133,    .23317,   1.30643,    .11569,    .04387,
     +     .02299,    .09225,    .14986,
     +     .45136,    .23172,   1.27498,    .11491,    .04517,
     +     .02484,    .09233,    .14870,
     +     .45119,    .23030,   1.24499,    .11412,    .04627,
     +     .02647,    .09231,    .14754,
     +     .45078,    .22890,   1.21601,    .11330,    .04714,
     +     .02779,    .09216,    .14634 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
     +     .45019,    .22745,   1.18684,    .11242,    .04791,
     +     .02901,    .09194,    .14507,
     +     .44950,    .22599,   1.15848,    .11153,    .04859,
     +     .03013,    .09166,    .14379,
     +     .44862,    .22454,   1.13110,    .11060,    .04910,
     +     .03102,    .09130,    .14248,
     +     .44778,    .22318,   1.10599,    .10973,    .04956,
     +     .03185,    .09094,    .14125,
     +     .44669,    .22174,   1.08025,    .10878,    .04989,
     +     .03253,    .09049,    .13992,
     +     .44562,    .22034,   1.05575,    .10786,    .05022,
     +     .03320,    .09004,    .13863,
     +     .44440,    .21894,   1.03213,    .10692,    .05042,
     +     .03371,    .08953,    .13733,
     +     .44325,    .21763,   1.01045,    .10605,    .05060,
     +     .03419,    .08905,    .13612 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
     +     .44195,    .21626,    .98856,    .10512,    .05072,
     +     .03460,    .08851,    .13484,
     +     .44064,    .21492,    .96740,    .10421,    .05081,
     +     .03497,    .08796,    .13357,
     +     .43932,    .21362,    .94750,    .10333,    .05086,
     +     .03529,    .08742,    .13234,
     +     .43797,    .21236,    .92875,    .10246,    .05087,
     +     .03553,    .08687,    .13116,
     +     .43662,    .21110,    .91029,    .10160,    .05088,
     +     .03578,    .08632,    .12997 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
     +     .45243,    .25776,    .98684,    .09209,    .00000,
     +     .00000,    .05873,    .13590,
     +     .45656,    .25788,   1.04349,    .09231,    .00000,
     +     .00000,    .06017,    .13616,
     +     .46214,    .25783,   1.11436,    .09270,    .00004,
     +     .00000,    .06228,    .13648,
     +     .46577,    .25761,   1.15430,    .09299,    .00236,
     +     .00000,    .06377,    .13665,
     +     .46921,    .25723,   1.18628,    .09328,    .00615,
     +     .00000,    .06525,    .13675,
     +     .47173,    .25674,   1.20567,    .09350,    .00838,
     +     .00000,    .06645,    .13673,
     +     .47394,    .25618,   1.22079,    .09368,    .01073,
     +     .00000,    .06753,    .13667,
     +     .47605,    .25549,   1.23237,    .09383,    .01311,
     +     .00000,    .06861,    .13654 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
     +     .47755,    .25478,   1.23716,    .09390,    .01495,
     +     .00000,    .06944,    .13632,
     +     .47893,    .25407,   1.24086,    .09396,    .01683,
     +     .00000,    .07023,    .13610,
     +     .47975,    .25341,   1.23984,    .09396,    .01807,
     +     .00000,    .07076,    .13584,
     +     .48129,    .25193,   1.23409,    .09391,    .02078,
     +     .00001,    .07182,    .13520,
     +     .48226,    .25054,   1.22289,    .09379,    .02295,
     +     .00156,    .07260,    .13454,
     +     .48284,    .24884,   1.20126,    .09351,    .02508,
     +     .00449,    .07327,    .13361,
     +     .48298,    .24693,   1.17567,    .09310,    .02708,
     +     .00729,    .07378,    .13249,
     +     .48276,    .24509,   1.15016,    .09264,    .02870,
     +     .00951,    .07409,    .13136 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
     +     .48225,    .24315,   1.12287,    .09208,    .03019,
     +     .01159,    .07428,    .13011,
     +     .48159,    .24147,   1.09898,    .09154,    .03127,
     +     .01313,    .07434,    .12900,
     +     .48047,    .23934,   1.06880,    .09081,    .03243,
     +     .01480,    .07429,    .12754,
     +     .47930,    .23743,   1.04187,    .09012,    .03335,
     +     .01619,    .07417,    .12619,
     +     .47802,    .23560,   1.01660,    .08942,    .03409,
     +     .01731,    .07396,    .12490,
     +     .47616,    .23324,    .98435,    .08847,    .03489,
     +     .01860,    .07362,    .12318,
     +     .47423,    .23099,    .95431,    .08754,    .03554,
     +     .01971,    .07323,    .12153,
     +     .47217,    .22883,    .92604,    .08662,    .03603,
     +     .02061,    .07277,    .11994 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
     +     .46998,    .22664,    .89812,    .08566,    .03645,
     +     .02141,    .07225,    .11829,
     +     .46774,    .22450,    .87137,    .08471,    .03679,
     +     .02213,    .07172,    .11667,
     +     .46540,    .22240,    .84609,    .08375,    .03701,
     +     .02269,    .07113,    .11508,
     +     .46319,    .22045,    .82307,    .08285,    .03721,
     +     .02321,    .07058,    .11361,
     +     .46075,    .21843,    .79994,    .08191,    .03731,
     +     .02362,    .06996,    .11207,
     +     .45839,    .21647,    .77802,    .08099,    .03742,
     +     .02402,    .06936,    .11059,
     +     .45593,    .21456,    .75726,    .08009,    .03743,
     +     .02431,    .06872,    .10913,
     +     .45364,    .21278,    .73828,    .07925,    .03745,
     +     .02458,    .06814,    .10777 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
     +     .45120,    .21095,    .71937,    .07837,    .03741,
     +     .02479,    .06751,    .10639,
     +     .44879,    .20915,    .70120,    .07750,    .03736,
     +     .02498,    .06688,    .10503,
     +     .44643,    .20743,    .68426,    .07667,    .03729,
     +     .02513,    .06627,    .10373,
     +     .44412,    .20578,    .66844,    .07587,    .03719,
     +     .02524,    .06567,    .10248,
     +     .44180,    .20414,    .65291,    .07507,    .03709,
     +     .02536,    .06508,    .10125 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
     +     .51293,    .27559,    .94714,    .07016,    .00000,
     +     .00000,    .04979,    .12286,
     +     .51531,    .27458,    .98354,    .07042,    .00000,
     +     .00000,    .05091,    .12242,
     +     .51822,    .27285,   1.02524,    .07081,    .00004,
     +     .00000,    .05248,    .12170,
     +     .51985,    .27142,   1.04521,    .07107,    .00199,
     +     .00000,    .05353,    .12109,
     +     .52115,    .26981,   1.05756,    .07129,    .00516,
     +     .00000,    .05456,    .12037,
     +     .52178,    .26826,   1.06166,    .07143,    .00698,
     +     .00000,    .05533,    .11966,
     +     .52217,    .26670,   1.06282,    .07153,    .00888,
     +     .00000,    .05600,    .11894,
     +     .52233,    .26497,   1.06060,    .07159,    .01077,
     +     .00000,    .05663,    .11812 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
     +     .52212,    .26336,   1.05468,    .07158,    .01220,
     +     .00000,    .05710,    .11731,
     +     .52185,    .26181,   1.04838,    .07156,    .01366,
     +     .00000,    .05753,    .11652,
     +     .52136,    .26048,   1.04050,    .07148,    .01460,
     +     .00000,    .05777,    .11583,
     +     .52012,    .25761,   1.02129,    .07128,    .01663,
     +     .00001,    .05823,    .11433,
     +     .51870,    .25506,   1.00044,    .07102,    .01822,
     +     .00119,    .05852,    .11296,
     +     .51661,    .25210,    .97076,    .07062,    .01974,
     +     .00340,    .05866,    .11128,
     +     .51403,    .24891,    .93852,    .07009,    .02113,
     +     .00548,    .05867,    .10946,
     +     .51138,    .24595,    .90845,    .06952,    .02223,
     +     .00710,    .05855,    .10774 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
     +     .50846,    .24292,    .87776,    .06889,    .02320,
     +     .00860,    .05834,    .10594,
     +     .50579,    .24038,    .85199,    .06832,    .02390,
     +     .00968,    .05809,    .10440,
     +     .50231,    .23724,    .82061,    .06754,    .02460,
     +     .01084,    .05770,    .10249,
     +     .49908,    .23445,    .79332,    .06683,    .02516,
     +     .01179,    .05730,    .10080,
     +     .49592,    .23187,    .76840,    .06615,    .02557,
     +     .01254,    .05687,    .09920,
     +     .49173,    .22858,    .73733,    .06523,    .02599,
     +     .01339,    .05626,    .09716,
     +     .48768,    .22548,    .70895,    .06434,    .02632,
     +     .01411,    .05566,    .09524,
     +     .48371,    .22254,    .68283,    .06346,    .02654,
     +     .01467,    .05502,    .09344 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
     +     .47962,    .21961,    .65749,    .06256,    .02669,
     +     .01516,    .05436,    .09164,
     +     .47555,    .21678,    .63355,    .06168,    .02680,
     +     .01559,    .05369,    .08988,
     +     .47154,    .21404,    .61134,    .06081,    .02684,
     +     .01591,    .05302,    .08820,
     +     .46781,    .21151,    .59126,    .06000,    .02687,
     +     .01621,    .05239,    .08665,
     +     .46383,    .20894,    .57144,    .05917,    .02683,
     +     .01642,    .05172,    .08506,
     +     .45998,    .20648,    .55277,    .05837,    .02678,
     +     .01663,    .05107,    .08353,
     +     .45619,    .20407,    .53536,    .05757,    .02669,
     +     .01677,    .05041,    .08207,
     +     .45267,    .20185,    .51953,    .05683,    .02661,
     +     .01690,    .04980,    .08072 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
     +     .44899,    .19958,    .50393,    .05607,    .02648,
     +     .01698,    .04917,    .07936,
     +     .44537,    .19738,    .48904,    .05533,    .02635,
     +     .01705,    .04855,    .07803,
     +     .44190,    .19528,    .47527,    .05462,    .02621,
     +     .01710,    .04795,    .07678,
     +     .43855,    .19327,    .46254,    .05394,    .02606,
     +     .01713,    .04737,    .07560,
     +     .43522,    .19128,    .45009,    .05326,    .02591,
     +     .01715,    .04680,    .07443 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
     +     .56200,    .28600,    .91473,    .05307,    .00000,
     +     .00000,    .04182,    .10876,
     +     .56225,    .28387,    .93414,    .05350,    .00000,
     +     .00000,    .04271,    .10777,
     +     .56199,    .28052,    .95209,    .05408,    .00004,
     +     .00000,    .04390,    .10626,
     +     .56129,    .27795,    .95627,    .05442,    .00169,
     +     .00000,    .04466,    .10510,
     +     .56013,    .27515,    .95353,    .05473,    .00436,
     +     .00000,    .04536,    .10381,
     +     .55866,    .27259,    .94615,    .05491,    .00586,
     +     .00000,    .04586,    .10262,
     +     .55704,    .27010,    .93707,    .05504,    .00740,
     +     .00000,    .04627,    .10145,
     +     .55508,    .26741,    .92499,    .05512,    .00892,
     +     .00000,    .04662,    .10018 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
     +     .55304,    .26498,    .91165,    .05512,    .01005,
     +     .00000,    .04684,    .09901,
     +     .55103,    .26266,    .89855,    .05512,    .01119,
     +     .00000,    .04703,    .09789,
     +     .54917,    .26074,    .88616,    .05504,    .01191,
     +     .00000,    .04711,    .09696,
     +     .54502,    .25665,    .85841,    .05484,    .01344,
     +     .00000,    .04721,    .09496,
     +     .54114,    .25309,    .83182,    .05461,    .01463,
     +     .00092,    .04720,    .09317,
     +     .53640,    .24903,    .79787,    .05422,    .01573,
     +     .00262,    .04705,    .09111,
     +     .53110,    .24475,    .76259,    .05372,    .01670,
     +     .00420,    .04677,    .08894,
     +     .52606,    .24086,    .73083,    .05319,    .01744,
     +     .00540,    .04643,    .08695 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
     +     .52078,    .23694,    .69934,    .05259,    .01808,
     +     .00649,    .04602,    .08494,
     +     .51623,    .23368,    .67357,    .05205,    .01852,
     +     .00727,    .04561,    .08326,
     +     .51047,    .22973,    .64293,    .05137,    .01895,
     +     .00809,    .04506,    .08120,
     +     .50531,    .22626,    .61675,    .05073,    .01927,
     +     .00876,    .04454,    .07939,
     +     .50047,    .22306,    .59331,    .05009,    .01949,
     +     .00927,    .04402,    .07775,
     +     .49419,    .21902,    .56457,    .04927,    .01969,
     +     .00984,    .04332,    .07567,
     +     .48822,    .21527,    .53872,    .04848,    .01983,
     +     .01031,    .04264,    .07374,
     +     .48251,    .21178,    .51534,    .04772,    .01989,
     +     .01066,    .04198,    .07193 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
     +     .47674,    .20830,    .49294,    .04693,    .01991,
     +     .01097,    .04130,    .07015,
     +     .47111,    .20494,    .47199,    .04616,    .01990,
     +     .01123,    .04062,    .06846,
     +     .46563,    .20177,    .45284,    .04542,    .01984,
     +     .01141,    .03994,    .06686,
     +     .46054,    .19885,    .43565,    .04473,    .01978,
     +     .01158,    .03932,    .06538,
     +     .45530,    .19589,    .41890,    .04402,    .01967,
     +     .01169,    .03867,    .06390,
     +     .45025,    .19304,    .40321,    .04334,    .01956,
     +     .01179,    .03805,    .06247,
     +     .44533,    .19032,    .38876,    .04266,    .01942,
     +     .01185,    .03744,    .06113,
     +     .44076,    .18780,    .37568,    .04204,    .01930,
     +     .01190,    .03688,    .05990 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
     +     .43608,    .18525,    .36293,    .04140,    .01915,
     +     .01192,    .03629,    .05867,
     +     .43150,    .18276,    .35083,    .04078,    .01899,
     +     .01193,    .03572,    .05748,
     +     .42713,    .18042,    .33970,    .04018,    .01883,
     +     .01193,    .03518,    .05636,
     +     .42296,    .17820,    .32948,    .03962,    .01867,
     +     .01192,    .03467,    .05530,
     +     .41881,    .17600,    .31951,    .03906,    .01852,
     +     .01190,    .03417,    .05426 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
     +     .59994,    .29039,    .88103,    .04070,    .00000,
     +     .00000,    .03478,    .09351,
     +     .59784,    .28722,    .88616,    .04130,    .00000,
     +     .00000,    .03548,    .09218,
     +     .59413,    .28240,    .88472,    .04207,    .00003,
     +     .00000,    .03639,    .09017,
     +     .59093,    .27880,    .87642,    .04253,    .00144,
     +     .00000,    .03693,    .08867,
     +     .58717,    .27496,    .86208,    .04295,    .00369,
     +     .00000,    .03740,    .08704,
     +     .58352,    .27150,    .84613,    .04319,    .00493,
     +     .00000,    .03770,    .08559,
     +     .57985,    .26818,    .82961,    .04337,    .00619,
     +     .00000,    .03793,    .08419,
     +     .57573,    .26465,    .81060,    .04349,    .00741,
     +     .00000,    .03809,    .08270 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
     +     .57185,    .26152,    .79224,    .04352,    .00830,
     +     .00000,    .03815,    .08137,
     +     .56809,    .25854,    .77465,    .04354,    .00920,
     +     .00000,    .03819,    .08009,
     +     .56487,    .25610,    .75940,    .04348,    .00975,
     +     .00000,    .03816,    .07905,
     +     .55791,    .25098,    .72654,    .04333,    .01092,
     +     .00000,    .03805,    .07684,
     +     .55166,    .24659,    .69687,    .04314,    .01180,
     +     .00072,    .03787,    .07492,
     +     .54436,    .24164,    .66123,    .04278,    .01260,
     +     .00204,    .03755,    .07276,
     +     .53652,    .23650,    .62519,    .04233,    .01328,
     +     .00324,    .03713,    .07053,
     +     .52923,    .23188,    .59358,    .04186,    .01378,
     +     .00414,    .03668,    .06852 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
     +     .52178,    .22727,    .56288,    .04133,    .01420,
     +     .00495,    .03617,    .06650,
     +     .51552,    .22345,    .53823,    .04085,    .01447,
     +     .00552,    .03572,    .06484,
     +     .50779,    .21885,    .50943,    .04023,    .01472,
     +     .00611,    .03511,    .06286,
     +     .50094,    .21485,    .48517,    .03965,    .01489,
     +     .00658,    .03455,    .06114,
     +     .49458,    .21121,    .46374,    .03909,    .01500,
     +     .00693,    .03403,    .05958,
     +     .48646,    .20666,    .43787,    .03837,    .01507,
     +     .00732,    .03334,    .05762,
     +     .47885,    .20246,    .41490,    .03769,    .01510,
     +     .00763,    .03267,    .05583,
     +     .47167,    .19855,    .39437,    .03702,    .01507,
     +     .00786,    .03202,    .05419 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
     +     .46450,    .19471,    .37493,    .03634,    .01502,
     +     .00805,    .03137,    .05259,
     +     .45755,    .19102,    .35695,    .03567,    .01495,
     +     .00820,    .03074,    .05105,
     +     .45092,    .18752,    .34066,    .03501,    .01484,
     +     .00831,    .03013,    .04964,
     +     .44479,    .18431,    .32611,    .03441,    .01474,
     +     .00840,    .02956,    .04835,
     +     .43853,    .18111,    .31212,    .03380,    .01461,
     +     .00845,    .02897,    .04706,
     +     .43250,    .17804,    .29907,    .03321,    .01448,
     +     .00849,    .02841,    .04583,
     +     .42671,    .17511,    .28718,    .03264,    .01433,
     +     .00850,    .02787,    .04467,
     +     .42135,    .17240,    .27645,    .03210,    .01419,
     +     .00851,    .02738,    .04361 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
     +     .41588,    .16969,    .26609,    .03157,    .01404,
     +     .00850,    .02687,    .04256,
     +     .41054,    .16706,    .25631,    .03105,    .01388,
     +     .00849,    .02637,    .04155,
     +     .40549,    .16459,    .24735,    .03056,    .01373,
     +     .00847,    .02590,    .04061,
     +     .40071,    .16225,    .23916,    .03008,    .01358,
     +     .00843,    .02547,    .03973,
     +     .39596,    .15994,    .23121,    .02961,    .01343,
     +     .00840,    .02503,    .03886 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
     +     .62725,    .28984,    .84226,    .03240,    .00000,
     +     .00000,    .02858,    .07769,
     +     .62271,    .28575,    .83554,    .03309,    .00000,
     +     .00000,    .02916,    .07620,
     +     .61547,    .27959,    .81853,    .03396,    .00003,
     +     .00000,    .02988,    .07399,
     +     .60977,    .27505,    .80056,    .03446,    .00122,
     +     .00000,    .03028,    .07237,
     +     .60347,    .27027,    .77755,    .03490,    .00311,
     +     .00000,    .03059,    .07065,
     +     .59766,    .26606,    .75542,    .03516,    .00413,
     +     .00000,    .03075,    .06914,
     +     .59196,    .26204,    .73370,    .03535,    .00516,
     +     .00000,    .03086,    .06770,
     +     .58575,    .25780,    .71002,    .03549,    .00614,
     +     .00000,    .03090,    .06616 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
     +     .58011,    .25408,    .68847,    .03552,    .00684,
     +     .00000,    .03088,    .06482,
     +     .57470,    .25054,    .66815,    .03554,    .00755,
     +     .00000,    .03084,    .06354,
     +     .57018,    .24772,    .65132,    .03549,    .00797,
     +     .00000,    .03075,    .06250,
     +     .56056,    .24177,    .61587,    .03535,    .00886,
     +     .00000,    .03052,    .06032,
     +     .55216,    .23668,    .58505,    .03513,    .00951,
     +     .00056,    .03025,    .05850,
     +     .54254,    .23103,    .54941,    .03480,    .01008,
     +     .00159,    .02985,    .05645,
     +     .53241,    .22521,    .51419,    .03436,    .01056,
     +     .00251,    .02938,    .05434,
     +     .52316,    .22002,    .48388,    .03391,    .01090,
     +     .00319,    .02890,    .05248 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
     +     .51382,    .21488,    .45492,    .03341,    .01116,
     +     .00379,    .02838,    .05064,
     +     .50603,    .21069,    .43204,    .03298,    .01133,
     +     .00421,    .02791,    .04912,
     +     .49660,    .20563,    .40569,    .03238,    .01146,
     +     .00463,    .02732,    .04737,
     +     .48833,    .20125,    .38376,    .03184,    .01153,
     +     .00496,    .02678,    .04585,
     +     .48069,    .19732,    .36462,    .03135,    .01156,
     +     .00521,    .02629,    .04446,
     +     .47106,    .19241,    .34177,    .03070,    .01156,
     +     .00547,    .02564,    .04276,
     +     .46213,    .18790,    .32169,    .03007,    .01153,
     +     .00568,    .02502,    .04122,
     +     .45378,    .18374,    .30394,    .02946,    .01146,
     +     .00582,    .02444,    .03982 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
     +     .44551,    .17965,    .28730,    .02885,    .01137,
     +     .00594,    .02385,    .03846,
     +     .43752,    .17574,    .27201,    .02826,    .01127,
     +     .00603,    .02328,    .03717,
     +     .42998,    .17208,    .25834,    .02768,    .01114,
     +     .00608,    .02275,    .03598,
     +     .42303,    .16873,    .24620,    .02715,    .01103,
     +     .00613,    .02226,    .03489,
     +     .41599,    .16539,    .23464,    .02661,    .01089,
     +     .00614,    .02175,    .03383,
     +     .40923,    .16220,    .22390,    .02610,    .01076,
     +     .00615,    .02126,    .03282,
     +     .40277,    .15919,    .21419,    .02560,    .01062,
     +     .00615,    .02080,    .03188,
     +     .39681,    .15641,    .20546,    .02515,    .01049,
     +     .00614,    .02037,    .03102 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
     +     .39081,    .15362,    .19707,    .02468,    .01034,
     +     .00611,    .01995,    .03017,
     +     .38499,    .15093,    .18919,    .02422,    .01020,
     +     .00609,    .01953,    .02935,
     +     .37948,    .14840,    .18201,    .02380,    .01007,
     +     .00605,    .01914,    .02859,
     +     .37427,    .14604,    .17551,    .02339,    .00993,
     +     .00602,    .01878,    .02789,
     +     .36911,    .14371,    .16920,    .02299,    .00979,
     +     .00598,    .01842,    .02719 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
     +     .64447,    .28526,    .79733,    .02725,    .00000,
     +     .00000,    .02326,    .06198,
     +     .63756,    .28032,    .78107,    .02792,    .00000,
     +     .00000,    .02374,    .06055,
     +     .62687,    .27301,    .75194,    .02875,    .00003,
     +     .00000,    .02430,    .05843,
     +     .61876,    .26769,    .72676,    .02923,    .00103,
     +     .00000,    .02458,    .05688,
     +     .61002,    .26212,    .69756,    .02960,    .00261,
     +     .00000,    .02480,    .05525,
     +     .60217,    .25727,    .67129,    .02982,    .00344,
     +     .00000,    .02489,    .05382,
     +     .59458,    .25268,    .64625,    .02996,    .00428,
     +     .00000,    .02493,    .05248,
     +     .58644,    .24786,    .61976,    .03005,    .00506,
     +     .00000,    .02490,    .05106 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
     +     .57918,    .24367,    .59646,    .03004,    .00562,
     +     .00000,    .02482,    .04983,
     +     .57226,    .23970,    .57474,    .03002,    .00616,
     +     .00000,    .02474,    .04866,
     +     .56660,    .23654,    .55729,    .02994,    .00649,
     +     .00000,    .02461,    .04773,
     +     .55462,    .22993,    .52113,    .02973,    .00716,
     +     .00000,    .02432,    .04580,
     +     .54428,    .22434,    .49049,    .02950,    .00765,
     +     .00044,    .02401,    .04416,
     +     .53262,    .21818,    .45618,    .02913,    .00805,
     +     .00124,    .02360,    .04234,
     +     .52050,    .21189,    .42280,    .02869,    .00838,
     +     .00194,    .02312,    .04051,
     +     .50957,    .20630,    .39454,    .02823,    .00860,
     +     .00246,    .02265,    .03890 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
     +     .49866,    .20079,    .36793,    .02773,    .00876,
     +     .00290,    .02215,    .03734,
     +     .48967,    .19630,    .34717,    .02727,    .00885,
     +     .00321,    .02171,    .03608,
     +     .47879,    .19100,    .32353,    .02672,    .00891,
     +     .00351,    .02117,    .03458,
     +     .46932,    .18642,    .30406,    .02622,    .00892,
     +     .00375,    .02068,    .03329,
     +     .46072,    .18228,    .28727,    .02572,    .00891,
     +     .00392,    .02024,    .03216,
     +     .44993,    .17715,    .26740,    .02510,    .00886,
     +     .00409,    .01965,    .03078,
     +     .43997,    .17246,    .25013,    .02451,    .00880,
     +     .00423,    .01910,    .02953,
     +     .43071,    .16818,    .23505,    .02395,    .00871,
     +     .00432,    .01859,    .02838 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
     +     .42160,    .16400,    .22099,    .02340,    .00861,
     +     .00439,    .01809,    .02728,
     +     .41285,    .16002,    .20815,    .02287,    .00850,
     +     .00444,    .01761,    .02624,
     +     .40464,    .15630,    .19679,    .02234,    .00838,
     +     .00446,    .01715,    .02530,
     +     .39711,    .15290,    .18675,    .02185,    .00827,
     +     .00448,    .01673,    .02446,
     +     .38953,    .14953,    .17726,    .02138,    .00814,
     +     .00448,    .01629,    .02362,
     +     .38228,    .14633,    .16847,    .02092,    .00801,
     +     .00448,    .01588,    .02283,
     +     .37541,    .14330,    .16060,    .02047,    .00788,
     +     .00446,    .01549,    .02210,
     +     .36907,    .14051,    .15355,    .02006,    .00777,
     +     .00444,    .01514,    .02144 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
     +     .36271,    .13773,    .14682,    .01965,    .00764,
     +     .00441,    .01479,    .02078,
     +     .35656,    .13505,    .14051,    .01925,    .00752,
     +     .00438,    .01446,    .02015,
     +     .35077,    .13254,    .13481,    .01888,    .00740,
     +     .00435,    .01414,    .01957,
     +     .34532,    .13020,    .12967,    .01852,    .00728,
     +     .00431,    .01383,    .01904,
     +     .33994,    .12788,    .12470,    .01816,    .00717,
     +     .00427,    .01353,    .01852 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
     +     .65239,    .27732,    .74652,    .02422,    .00000,
     +     .00000,    .01874,    .04726,
     +     .64318,    .27171,    .72294,    .02481,    .00000,
     +     .00000,    .01912,    .04600,
     +     .62924,    .26348,    .68490,    .02550,    .00003,
     +     .00000,    .01957,    .04413,
     +     .61887,    .25753,    .65472,    .02588,    .00086,
     +     .00000,    .01978,    .04277,
     +     .60784,    .25136,    .62153,    .02617,    .00217,
     +     .00000,    .01991,    .04134,
     +     .59814,    .24600,    .59276,    .02627,    .00285,
     +     .00000,    .01994,    .04015,
     +     .58885,    .24096,    .56592,    .02632,    .00352,
     +     .00000,    .01993,    .03901,
     +     .57898,    .23570,    .53813,    .02632,    .00415,
     +     .00000,    .01986,    .03780 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
     +     .57027,    .23118,    .51426,    .02626,    .00458,
     +     .00000,    .01975,    .03674,
     +     .56199,    .22692,    .49223,    .02619,    .00501,
     +     .00000,    .01964,    .03574,
     +     .55533,    .22351,    .47487,    .02606,    .00526,
     +     .00000,    .01950,    .03497,
     +     .54133,    .21642,    .43939,    .02577,    .00577,
     +     .00000,    .01919,    .03336,
     +     .52934,    .21048,    .40995,    .02547,    .00612,
     +     .00034,    .01888,    .03201,
     +     .51598,    .20397,    .37776,    .02504,    .00641,
     +     .00096,    .01849,    .03052,
     +     .50223,    .19738,    .34692,    .02454,    .00663,
     +     .00150,    .01804,    .02903,
     +     .48997,    .19155,    .32116,    .02404,    .00676,
     +     .00189,    .01760,    .02774 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
     +     .47780,    .18583,    .29719,    .02351,    .00686,
     +     .00222,    .01714,    .02649,
     +     .46780,    .18122,    .27870,    .02307,    .00690,
     +     .00244,    .01676,    .02547,
     +     .45584,    .17574,    .25789,    .02252,    .00691,
     +     .00266,    .01626,    .02431,
     +     .44550,    .17106,    .24091,    .02202,    .00689,
     +     .00283,    .01583,    .02331,
     +     .43614,    .16687,    .22640,    .02154,    .00686,
     +     .00295,    .01545,    .02241,
     +     .42449,    .16167,    .20937,    .02093,    .00679,
     +     .00307,    .01495,    .02132,
     +     .41381,    .15694,    .19468,    .02037,    .00671,
     +     .00316,    .01448,    .02034,
     +     .40393,    .15262,    .18200,    .01985,    .00662,
     +     .00321,    .01406,    .01947 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
     +     .39428,    .14842,    .17027,    .01932,    .00652,
     +     .00325,    .01363,    .01865,
     +     .38507,    .14443,    .15963,    .01880,    .00641,
     +     .00327,    .01321,    .01789,
     +     .37643,    .14074,    .15027,    .01834,    .00630,
     +     .00328,    .01283,    .01716,
     +     .36852,    .13738,    .14204,    .01791,    .00620,
     +     .00329,    .01249,    .01651,
     +     .36066,    .13405,    .13431,    .01745,    .00608,
     +     .00327,    .01213,    .01591,
     +     .35315,    .13087,    .12720,    .01701,    .00597,
     +     .00326,    .01180,    .01534,
     +     .34604,    .12791,    .12087,    .01661,    .00586,
     +     .00324,    .01148,    .01478,
     +     .33949,    .12520,    .11522,    .01625,    .00576,
     +     .00322,    .01120,    .01427 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
     +     .33296,    .12249,    .10986,    .01588,    .00565,
     +     .00319,    .01091,    .01379,
     +     .32667,    .11988,    .10485,    .01552,    .00554,
     +     .00316,    .01063,    .01334,
     +     .32076,    .11744,    .10034,    .01518,    .00544,
     +     .00313,    .01038,    .01292,
     +     .31522,    .11517,    .09628,    .01486,    .00535,
     +     .00310,    .01013,    .01254,
     +     .30974,    .11293,    .09237,    .01454,    .00525,
     +     .00307,    .00990,    .01216 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
     +     .65151,    .26704,    .69116,    .02273,    .00000,
     +     .00000,    .01475,    .03395,
     +     .64020,    .26087,    .66219,    .02314,    .00000,
     +     .00000,    .01509,    .03297,
     +     .62335,    .25186,    .61801,    .02358,    .00002,
     +     .00000,    .01545,    .03152,
     +     .61099,    .24539,    .58474,    .02377,    .00072,
     +     .00000,    .01562,    .03046,
     +     .59796,    .23873,    .54938,    .02389,    .00180,
     +     .00000,    .01573,    .02933,
     +     .58663,    .23303,    .51953,    .02386,    .00235,
     +     .00000,    .01574,    .02839,
     +     .57587,    .22766,    .49210,    .02378,    .00290,
     +     .00000,    .01571,    .02750,
     +     .56453,    .22207,    .46415,    .02365,    .00339,
     +     .00000,    .01563,    .02657 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
     +     .55463,    .21728,    .44060,    .02348,    .00373,
     +     .00000,    .01551,    .02576,
     +     .54526,    .21277,    .41905,    .02332,    .00406,
     +     .00000,    .01540,    .02499,
     +     .53774,    .20923,    .40233,    .02314,    .00425,
     +     .00000,    .01527,    .02439,
     +     .52205,    .20187,    .36857,    .02274,    .00463,
     +     .00000,    .01497,    .02315,
     +     .50876,    .19570,    .34107,    .02236,    .00488,
     +     .00027,    .01469,    .02209,
     +     .49405,    .18900,    .31149,    .02186,    .00508,
     +     .00075,    .01434,    .02095,
     +     .47908,    .18219,    .28357,    .02128,    .00523,
     +     .00116,    .01392,    .01986,
     +     .46578,    .17624,    .26053,    .02073,    .00531,
     +     .00145,    .01353,    .01890 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
     +     .45266,    .17046,    .23933,    .02018,    .00535,
     +     .00170,    .01313,    .01796,
     +     .44197,    .16580,    .22313,    .01972,    .00536,
     +     .00186,    .01280,    .01720,
     +     .42926,    .16031,    .20507,    .01915,    .00534,
     +     .00202,    .01239,    .01632,
     +     .41832,    .15561,    .19046,    .01865,    .00531,
     +     .00214,    .01203,    .01559,
     +     .40848,    .15141,    .17809,    .01818,    .00526,
     +     .00222,    .01169,    .01493,
     +     .39627,    .14626,    .16369,    .01758,    .00519,
     +     .00230,    .01128,    .01414,
     +     .38512,    .14159,    .15137,    .01703,    .00511,
     +     .00235,    .01089,    .01344,
     +     .37488,    .13734,    .14078,    .01653,    .00502,
     +     .00238,    .01053,    .01281 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
     +     .36492,    .13321,    .13108,    .01604,    .00492,
     +     .00240,    .01018,    .01221,
     +     .35546,    .12931,    .12235,    .01557,    .00482,
     +     .00242,    .00985,    .01164,
     +     .34664,    .12571,    .11473,    .01511,    .00473,
     +     .00241,    .00954,    .01113,
     +     .33860,    .12244,    .10805,    .01469,    .00464,
     +     .00241,    .00926,    .01068,
     +     .33059,    .11922,    .10182,    .01429,    .00454,
     +     .00239,    .00897,    .01024,
     +     .32297,    .11616,    .09610,    .01392,    .00444,
     +     .00238,    .00869,    .00983,
     +     .31580,    .11330,    .09104,    .01356,    .00435,
     +     .00236,    .00845,    .00945,
     +     .30921,    .11068,    .08654,    .01324,    .00426,
     +     .00234,    .00823,    .00911 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
     +     .30267,    .10809,    .08229,    .01289,    .00417,
     +     .00231,    .00800,    .00878,
     +     .29637,    .10561,    .07834,    .01255,    .00408,
     +     .00228,    .00778,    .00847,
     +     .29048,    .10329,    .07479,    .01225,    .00400,
     +     .00226,    .00758,    .00818,
     +     .28497,    .10114,    .07161,    .01198,    .00392,
     +     .00223,    .00739,    .00790,
     +     .27953,    .09902,    .06854,    .01171,    .00385,
     +     .00220,    .00720,    .00763 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
     +     .64320,    .25424,    .63211,    .02141,    .00000,
     +     .00000,    .01164,    .02288,
     +     .63000,    .24766,    .59964,    .02163,    .00000,
     +     .00000,    .01192,    .02221,
     +     .61054,    .23812,    .55184,    .02181,    .00002,
     +     .00000,    .01221,    .02119,
     +     .59641,    .23130,    .51707,    .02183,    .00059,
     +     .00000,    .01235,    .02043,
     +     .58168,    .22430,    .48105,    .02177,    .00147,
     +     .00000,    .01241,    .01964,
     +     .56896,    .21838,    .45129,    .02163,    .00191,
     +     .00000,    .01239,    .01896,
     +     .55695,    .21282,    .42429,    .02145,    .00235,
     +     .00000,    .01234,    .01832,
     +     .54439,    .20702,    .39715,    .02122,    .00273,
     +     .00000,    .01226,    .01766 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
     +     .53348,    .20211,    .37459,    .02097,    .00300,
     +     .00000,    .01214,    .01707,
     +     .52319,    .19751,    .35409,    .02074,    .00325,
     +     .00000,    .01202,    .01652,
     +     .51503,    .19388,    .33838,    .02050,    .00339,
     +     .00000,    .01191,    .01608,
     +     .49802,    .18637,    .30700,    .02000,    .00367,
     +     .00000,    .01164,    .01519,
     +     .48367,    .18014,    .28185,    .01956,    .00385,
     +     .00021,    .01138,    .01446,
     +     .46802,    .17335,    .25526,    .01899,    .00399,
     +     .00057,    .01107,    .01365,
     +     .45211,    .16656,    .23044,    .01837,    .00408,
     +     .00089,    .01069,    .01289,
     +     .43807,    .16063,    .21017,    .01781,    .00412,
     +     .00110,    .01036,    .01221 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
     +     .42430,    .15490,    .19170,    .01725,    .00414,
     +     .00128,    .01003,    .01154,
     +     .41315,    .15030,    .17773,    .01679,    .00413,
     +     .00140,    .00974,    .01100,
     +     .39998,    .14488,    .16229,    .01622,    .00410,
     +     .00151,    .00939,    .01039,
     +     .38869,    .14026,    .14990,    .01572,    .00405,
     +     .00160,    .00909,    .00990,
     +     .37856,    .13615,    .13949,    .01527,    .00401,
     +     .00165,    .00880,    .00947,
     +     .36608,    .13112,    .12746,    .01471,    .00393,
     +     .00170,    .00846,    .00892,
     +     .35474,    .12658,    .11723,    .01420,    .00386,
     +     .00174,    .00815,    .00842,
     +     .34441,    .12247,    .10854,    .01370,    .00378,
     +     .00176,    .00785,    .00799 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
     +     .33435,    .11850,    .10061,    .01324,    .00369,
     +     .00177,    .00757,    .00759,
     +     .32480,    .11476,    .09350,    .01281,    .00361,
     +     .00177,    .00730,    .00722,
     +     .31596,    .11132,    .08735,    .01240,    .00352,
     +     .00176,    .00705,    .00686,
     +     .30792,    .10821,    .08198,    .01203,    .00344,
     +     .00175,    .00682,    .00655,
     +     .29996,    .10513,    .07701,    .01166,    .00336,
     +     .00174,    .00660,    .00626,
     +     .29241,    .10221,    .07246,    .01130,    .00328,
     +     .00172,    .00639,    .00600,
     +     .28535,    .09950,    .06846,    .01096,    .00321,
     +     .00170,    .00619,    .00575,
     +     .27888,    .09702,    .06490,    .01065,    .00314,
     +     .00168,    .00601,    .00553 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
     +     .27246,    .09458,    .06156,    .01036,    .00306,
     +     .00166,    .00583,    .00531,
     +     .26628,    .09224,    .05846,    .01009,    .00299,
     +     .00164,    .00566,    .00509,
     +     .26052,    .09007,    .05569,    .00983,    .00293,
     +     .00162,    .00550,    .00490,
     +     .25514,    .08804,    .05323,    .00959,    .00286,
     +     .00159,    .00535,    .00473,
     +     .24984,    .08605,    .05086,    .00935,    .00280,
     +     .00157,    .00520,    .00456 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
     +     .62789,    .24002,    .57138,    .02029,    .00000,
     +     .00000,    .00903,    .01390,
     +     .61309,    .23314,    .53698,    .02032,    .00000,
     +     .00000,    .00927,    .01352,
     +     .59144,    .22323,    .48765,    .02024,    .00002,
     +     .00000,    .00951,    .01294,
     +     .57585,    .21621,    .45274,    .02009,    .00048,
     +     .00000,    .00961,    .01249,
     +     .55971,    .20904,    .41730,    .01987,    .00119,
     +     .00000,    .00966,    .01200,
     +     .54594,    .20294,    .38847,    .01959,    .00155,
     +     .00000,    .00963,    .01160,
     +     .53297,    .19727,    .36261,    .01931,    .00189,
     +     .00000,    .00959,    .01120,
     +     .51944,    .19143,    .33691,    .01899,    .00219,
     +     .00000,    .00952,    .01076 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
     +     .50779,    .18645,    .31582,    .01866,    .00239,
     +     .00000,    .00941,    .01041,
     +     .49683,    .18179,    .29679,    .01835,    .00258,
     +     .00000,    .00929,    .01008,
     +     .48817,    .17815,    .28238,    .01808,    .00268,
     +     .00000,    .00918,    .00981,
     +     .47023,    .17065,    .25384,    .01751,    .00289,
     +     .00000,    .00895,    .00924,
     +     .45523,    .16443,    .23128,    .01698,    .00302,
     +     .00016,    .00873,    .00877,
     +     .43887,    .15773,    .20778,    .01638,    .00311,
     +     .00044,    .00843,    .00828,
     +     .42238,    .15106,    .18604,    .01577,    .00316,
     +     .00067,    .00813,    .00776,
     +     .40792,    .14525,    .16851,    .01520,    .00318,
     +     .00084,    .00785,    .00732 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
     +     .39384,    .13962,    .15269,    .01464,    .00318,
     +     .00097,    .00758,    .00690,
     +     .38250,    .13511,    .14079,    .01418,    .00316,
     +     .00105,    .00735,    .00655,
     +     .36910,    .12987,    .12777,    .01364,    .00312,
     +     .00113,    .00707,    .00615,
     +     .35768,    .12541,    .11740,    .01317,    .00308,
     +     .00119,    .00682,    .00583,
     +     .34754,    .12144,    .10874,    .01271,    .00303,
     +     .00122,    .00658,    .00556,
     +     .33502,    .11662,    .09880,    .01218,    .00296,
     +     .00126,    .00630,    .00521,
     +     .32368,    .11229,    .09043,    .01172,    .00289,
     +     .00128,    .00605,    .00490,
     +     .31337,    .10838,    .08335,    .01127,    .00283,
     +     .00129,    .00581,    .00464 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
     +     .30341,    .10461,    .07693,    .01085,    .00275,
     +     .00129,    .00559,    .00439,
     +     .29400,    .10107,    .07121,    .01046,    .00268,
     +     .00129,    .00538,    .00416,
     +     .28536,    .09781,    .06630,    .01008,    .00261,
     +     .00128,    .00518,    .00395,
     +     .27751,    .09486,    .06203,    .00974,    .00255,
     +     .00127,    .00500,    .00376,
     +     .26975,    .09197,    .05809,    .00941,    .00248,
     +     .00126,    .00482,    .00358,
     +     .26240,    .08925,    .05449,    .00910,    .00242,
     +     .00124,    .00464,    .00341,
     +     .25553,    .08671,    .05134,    .00881,    .00235,
     +     .00123,    .00449,    .00326,
     +     .24925,    .08440,    .04856,    .00855,    .00230,
     +     .00121,    .00436,    .00313 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
     +     .24304,    .08214,    .04595,    .00829,    .00224,
     +     .00119,    .00422,    .00300,
     +     .23709,    .07997,    .04355,    .00803,    .00218,
     +     .00117,    .00408,    .00288,
     +     .23155,    .07796,    .04140,    .00780,    .00213,
     +     .00116,    .00396,    .00276,
     +     .22641,    .07609,    .03948,    .00759,    .00208,
     +     .00114,    .00384,    .00264,
     +     .22137,    .07425,    .03765,    .00738,    .00203,
     +     .00112,    .00373,    .00253 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
     +     .60671,    .22447,    .51022,    .01884,    .00000,
     +     .00000,    .00694,    .00720,
     +     .59057,    .21746,    .47528,    .01872,    .00000,
     +     .00000,    .00715,    .00706,
     +     .56714,    .20739,    .42621,    .01843,    .00002,
     +     .00000,    .00734,    .00684,
     +     .55041,    .20029,    .39222,    .01815,    .00039,
     +     .00000,    .00741,    .00666,
     +     .53321,    .19306,    .35832,    .01781,    .00096,
     +     .00000,    .00743,    .00644,
     +     .51860,    .18694,    .33109,    .01744,    .00124,
     +     .00000,    .00742,    .00623,
     +     .50491,    .18127,    .30692,    .01708,    .00150,
     +     .00000,    .00738,    .00605,
     +     .49068,    .17543,    .28316,    .01669,    .00173,
     +     .00000,    .00729,    .00586 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
     +     .47852,    .17051,    .26388,    .01632,    .00188,
     +     .00000,    .00720,    .00567,
     +     .46712,    .16591,    .24660,    .01598,    .00203,
     +     .00000,    .00711,    .00547,
     +     .45814,    .16232,    .23361,    .01568,    .00210,
     +     .00000,    .00703,    .00533,
     +     .43963,    .15494,    .20814,    .01506,    .00225,
     +     .00000,    .00682,    .00503,
     +     .42425,    .14885,    .18826,    .01451,    .00234,
     +     .00012,    .00662,    .00477,
     +     .40754,    .14232,    .16782,    .01394,    .00240,
     +     .00033,    .00640,    .00445,
     +     .39080,    .13581,    .14909,    .01332,    .00243,
     +     .00051,    .00614,    .00418,
     +     .37620,    .13020,    .13412,    .01278,    .00243,
     +     .00063,    .00591,    .00395 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
     +     .36204,    .12479,    .12073,    .01225,    .00242,
     +     .00072,    .00568,    .00372,
     +     .35071,    .12048,    .11076,    .01179,    .00239,
     +     .00078,    .00549,    .00352,
     +     .33739,    .11546,    .09991,    .01127,    .00236,
     +     .00084,    .00525,    .00330,
     +     .32606,    .11122,    .09134,    .01083,    .00232,
     +     .00088,    .00504,    .00312,
     +     .31601,    .10747,    .08422,    .01043,    .00227,
     +     .00090,    .00486,    .00295,
     +     .30369,    .10290,    .07613,    .00995,    .00221,
     +     .00092,    .00465,    .00275,
     +     .29259,    .09881,    .06935,    .00953,    .00216,
     +     .00094,    .00446,    .00258,
     +     .28254,    .09512,    .06365,    .00912,    .00210,
     +     .00094,    .00427,    .00243 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
     +     .27286,    .09159,    .05852,    .00874,    .00204,
     +     .00094,    .00409,    .00230,
     +     .26375,    .08828,    .05397,    .00839,    .00198,
     +     .00093,    .00391,    .00216,
     +     .25537,    .08525,    .05007,    .00806,    .00192,
     +     .00093,    .00376,    .00204,
     +     .24778,    .08251,    .04670,    .00777,    .00187,
     +     .00092,    .00362,    .00193,
     +     .24034,    .07984,    .04361,    .00747,    .00182,
     +     .00090,    .00349,    .00184,
     +     .23331,    .07732,    .04081,    .00719,    .00177,
     +     .00089,    .00336,    .00176,
     +     .22676,    .07498,    .03836,    .00695,    .00172,
     +     .00088,    .00324,    .00167,
     +     .22078,    .07285,    .03619,    .00672,    .00167,
     +     .00087,    .00313,    .00160 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
     +     .21487,    .07076,    .03418,    .00650,    .00163,
     +     .00085,    .00303,    .00152,
     +     .20922,    .06878,    .03232,    .00629,    .00158,
     +     .00084,    .00292,    .00146,
     +     .20398,    .06693,    .03067,    .00610,    .00154,
     +     .00082,    .00283,    .00140,
     +     .19913,    .06522,    .02921,    .00591,    .00150,
     +     .00081,    .00275,    .00133,
     +     .19437,    .06355,    .02781,    .00574,    .00147,
     +     .00079,    .00266,    .00128 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
     +     .58035,    .20815,    .45003,    .01706,    .00000,
     +     .00000,    .00530,    .00246,
     +     .56321,    .20109,    .41567,    .01681,    .00000,
     +     .00000,    .00546,    .00254,
     +     .53851,    .19098,    .36828,    .01635,    .00001,
     +     .00000,    .00563,    .00262,
     +     .52099,    .18389,    .33607,    .01597,    .00031,
     +     .00000,    .00569,    .00264,
     +     .50303,    .17672,    .30439,    .01554,    .00076,
     +     .00000,    .00570,    .00263,
     +     .48783,    .17070,    .27928,    .01515,    .00098,
     +     .00000,    .00566,    .00261,
     +     .47368,    .16513,    .25715,    .01476,    .00118,
     +     .00000,    .00562,    .00256,
     +     .45907,    .15942,    .23557,    .01434,    .00136,
     +     .00000,    .00557,    .00248 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
     +     .44663,    .15459,    .21829,    .01396,    .00147,
     +     .00000,    .00549,    .00242,
     +     .43500,    .15009,    .20291,    .01360,    .00158,
     +     .00000,    .00541,    .00237,
     +     .42588,    .14659,    .19142,    .01330,    .00163,
     +     .00000,    .00532,    .00233,
     +     .40715,    .13943,    .16907,    .01267,    .00174,
     +     .00000,    .00514,    .00223,
     +     .39166,    .13356,    .15183,    .01214,    .00180,
     +     .00009,    .00498,    .00212,
     +     .37488,    .12730,    .13428,    .01158,    .00183,
     +     .00025,    .00479,    .00201,
     +     .35824,    .12108,    .11843,    .01097,    .00185,
     +     .00038,    .00459,    .00188,
     +     .34375,    .11572,    .10584,    .01047,    .00184,
     +     .00047,    .00440,    .00177 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
     +     .32975,    .11058,    .09466,    .01000,    .00182,
     +     .00054,    .00421,    .00166,
     +     .31855,    .10651,    .08641,    .00960,    .00180,
     +     .00058,    .00406,    .00158,
     +     .30555,    .10177,    .07751,    .00910,    .00176,
     +     .00062,    .00388,    .00149,
     +     .29453,    .09777,    .07051,    .00869,    .00173,
     +     .00064,    .00373,    .00140,
     +     .28473,    .09427,    .06475,    .00835,    .00169,
     +     .00066,    .00359,    .00132,
     +     .27280,    .09000,    .05823,    .00793,    .00164,
     +     .00067,    .00341,    .00123,
     +     .26210,    .08619,    .05280,    .00755,    .00159,
     +     .00068,    .00324,    .00115,
     +     .25244,    .08278,    .04828,    .00721,    .00154,
     +     .00068,    .00310,    .00108 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
     +     .24315,    .07952,    .04422,    .00689,    .00149,
     +     .00068,    .00297,    .00101,
     +     .23443,    .07646,    .04063,    .00659,    .00145,
     +     .00067,    .00284,    .00095,
     +     .22644,    .07367,    .03758,    .00632,    .00140,
     +     .00066,    .00272,    .00089,
     +     .21923,    .07115,    .03495,    .00608,    .00136,
     +     .00066,    .00262,    .00084,
     +     .21218,    .06871,    .03255,    .00583,    .00132,
     +     .00065,    .00251,    .00080,
     +     .20553,    .06641,    .03037,    .00560,    .00128,
     +     .00064,    .00241,    .00077,
     +     .19937,    .06428,    .02849,    .00539,    .00124,
     +     .00062,    .00233,    .00073,
     +     .19376,    .06234,    .02683,    .00520,    .00120,
     +     .00061,    .00225,    .00069 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
     +     .18824,    .06045,    .02528,    .00500,    .00117,
     +     .00060,    .00217,    .00065,
     +     .18298,    .05866,    .02386,    .00482,    .00114,
     +     .00059,    .00209,    .00062,
     +     .17809,    .05700,    .02260,    .00466,    .00111,
     +     .00058,    .00202,    .00059,
     +     .17357,    .05546,    .02148,    .00451,    .00108,
     +     .00057,    .00195,    .00056,
     +     .16913,    .05395,    .02042,    .00436,    .00105,
     +     .00056,    .00189,    .00054 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
     +     .54966,    .19157,    .39221,    .01515,    .00000,
     +     .00000,    .00393,   -.00067,
     +     .53184,    .18455,    .35930,    .01480,    .00000,
     +     .00000,    .00407,   -.00042,
     +     .50630,    .17456,    .31462,    .01425,    .00001,
     +     .00000,    .00421,   -.00014,
     +     .48829,    .16760,    .28475,    .01382,    .00024,
     +     .00000,    .00426,    .00001,
     +     .46992,    .16057,    .25575,    .01335,    .00060,
     +     .00000,    .00429,    .00014,
     +     .45452,    .15469,    .23304,    .01290,    .00076,
     +     .00000,    .00425,    .00025,
     +     .44019,    .14928,    .21321,    .01250,    .00092,
     +     .00000,    .00421,    .00031,
     +     .42541,    .14377,    .19405,    .01210,    .00106,
     +     .00000,    .00416,    .00034 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
     +     .41290,    .13910,    .17880,    .01172,    .00114,
     +     .00000,    .00409,    .00039,
     +     .40125,    .13476,    .16529,    .01136,    .00122,
     +     .00000,    .00402,    .00043,
     +     .39213,    .13140,    .15533,    .01107,    .00126,
     +     .00000,    .00396,    .00043,
     +     .37345,    .12456,    .13608,    .01048,    .00133,
     +     .00000,    .00383,    .00045,
     +     .35808,    .11897,    .12134,    .00999,    .00137,
     +     .00007,    .00369,    .00047,
     +     .34159,    .11300,    .10654,    .00946,    .00139,
     +     .00018,    .00354,    .00046,
     +     .32524,    .10714,    .09327,    .00894,    .00139,
     +     .00028,    .00337,    .00044,
     +     .31114,    .10209,    .08283,    .00847,    .00138,
     +     .00034,    .00323,    .00043 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
     +     .29757,    .09726,    .07363,    .00801,    .00136,
     +     .00040,    .00310,    .00041,
     +     .28676,    .09345,    .06688,    .00765,    .00134,
     +     .00043,    .00296,    .00039,
     +     .27418,    .08904,    .05968,    .00723,    .00131,
     +     .00046,    .00282,    .00037,
     +     .26356,    .08534,    .05406,    .00689,    .00128,
     +     .00047,    .00270,    .00036,
     +     .25418,    .08209,    .04944,    .00660,    .00125,
     +     .00048,    .00259,    .00034,
     +     .24278,    .07816,    .04425,    .00624,    .00121,
     +     .00049,    .00246,    .00031,
     +     .23258,    .07465,    .03995,    .00592,    .00117,
     +     .00049,    .00233,    .00029,
     +     .22344,    .07150,    .03637,    .00562,    .00113,
     +     .00049,    .00223,    .00028 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
     +     .21469,    .06851,    .03319,    .00535,    .00109,
     +     .00049,    .00212,    .00026,
     +     .20649,    .06574,    .03042,    .00509,    .00105,
     +     .00048,    .00201,    .00024,
     +     .19901,    .06320,    .02805,    .00486,    .00102,
     +     .00048,    .00192,    .00023,
     +     .19228,    .06091,    .02601,    .00465,    .00098,
     +     .00047,    .00185,    .00021,
     +     .18570,    .05871,    .02416,    .00444,    .00095,
     +     .00046,    .00177,    .00020,
     +     .17951,    .05664,    .02249,    .00426,    .00092,
     +     .00045,    .00169,    .00019,
     +     .17378,    .05472,    .02105,    .00408,    .00089,
     +     .00045,    .00163,    .00019,
     +     .16858,    .05297,    .01978,    .00392,    .00087,
     +     .00044,    .00157,    .00019 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
     +     .16347,    .05127,    .01861,    .00377,    .00084,
     +     .00043,    .00151,    .00017,
     +     .15861,    .04967,    .01754,    .00363,    .00082,
     +     .00042,    .00146,    .00015,
     +     .15411,    .04818,    .01659,    .00351,    .00079,
     +     .00041,    .00141,    .00014,
     +     .14993,    .04681,    .01575,    .00340,    .00077,
     +     .00041,    .00137,    .00012,
     +     .14584,    .04548,    .01495,    .00329,    .00075,
     +     .00040,    .00132,    .00011 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
     +     .51572,    .17467,    .33733,    .01291,    .00000,
     +     .00000,    .00291,   -.00240,
     +     .49751,    .16782,    .30664,    .01256,    .00000,
     +     .00000,    .00302,   -.00208,
     +     .47153,    .15813,    .26554,    .01199,    .00001,
     +     .00000,    .00312,   -.00168,
     +     .45333,    .15139,    .23844,    .01156,    .00019,
     +     .00000,    .00316,   -.00143,
     +     .43486,    .14462,    .21244,    .01109,    .00046,
     +     .00000,    .00316,   -.00121,
     +     .41942,    .13899,    .19228,    .01069,    .00059,
     +     .00000,    .00313,   -.00106,
     +     .40512,    .13381,    .17483,    .01030,    .00071,
     +     .00000,    .00310,   -.00093,
     +     .39046,    .12852,    .15813,    .00991,    .00081,
     +     .00000,    .00306,   -.00082 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
     +     .37809,    .12409,    .14492,    .00957,    .00087,
     +     .00000,    .00300,   -.00074,
     +     .36659,    .11998,    .13330,    .00925,    .00093,
     +     .00000,    .00294,   -.00066,
     +     .35766,    .11681,    .12476,    .00899,    .00095,
     +     .00000,    .00290,   -.00061,
     +     .33938,    .11035,    .10838,    .00845,    .00100,
     +     .00000,    .00279,   -.00052,
     +     .32440,    .10509,    .09599,    .00802,    .00103,
     +     .00005,    .00268,   -.00046,
     +     .30840,    .09948,    .08371,    .00754,    .00104,
     +     .00014,    .00256,   -.00037,
     +     .29259,    .09401,    .07277,    .00710,    .00104,
     +     .00021,    .00243,   -.00032,
     +     .27902,    .08932,    .06423,    .00669,    .00103,
     +     .00025,    .00232,   -.00028 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
     +     .26602,    .08485,    .05677,    .00629,    .00101,
     +     .00029,    .00221,   -.00025,
     +     .25566,    .08135,    .05135,    .00601,    .00099,
     +     .00031,    .00212,   -.00024,
     +     .24371,    .07728,    .04556,    .00565,    .00096,
     +     .00033,    .00201,   -.00021,
     +     .23367,    .07387,    .04107,    .00534,    .00094,
     +     .00035,    .00191,   -.00019,
     +     .22480,    .07090,    .03742,    .00510,    .00091,
     +     .00036,    .00183,   -.00017,
     +     .21409,    .06730,    .03334,    .00480,    .00088,
     +     .00036,    .00173,   -.00015,
     +     .20455,    .06411,    .02998,    .00452,    .00085,
     +     .00036,    .00165,   -.00014,
     +     .19604,    .06126,    .02721,    .00427,    .00082,
     +     .00036,    .00156,   -.00013 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
     +     .18786,    .05857,    .02475,    .00406,    .00079,
     +     .00036,    .00148,   -.00013,
     +     .18020,    .05608,    .02259,    .00388,    .00076,
     +     .00036,    .00141,   -.00014,
     +     .17329,    .05379,    .02078,    .00367,    .00073,
     +     .00035,    .00134,   -.00012,
     +     .16709,    .05174,    .01922,    .00349,    .00071,
     +     .00035,    .00129,   -.00011,
     +     .16103,    .04976,    .01782,    .00334,    .00068,
     +     .00034,    .00123,   -.00011,
     +     .15533,    .04790,    .01655,    .00320,    .00066,
     +     .00033,    .00118,   -.00011,
     +     .15006,    .04620,    .01547,    .00306,    .00064,
     +     .00033,    .00113,   -.00010,
     +     .14529,    .04466,    .01451,    .00294,    .00062,
     +     .00032,    .00109,   -.00009 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
     +     .14062,    .04315,    .01363,    .00283,    .00060,
     +     .00032,    .00104,   -.00009,
     +     .13618,    .04171,    .01282,    .00272,    .00058,
     +     .00031,    .00100,   -.00008,
     +     .13210,    .04040,    .01210,    .00262,    .00056,
     +     .00031,    .00097,   -.00008,
     +     .12834,    .03920,    .01148,    .00252,    .00055,
     +     .00030,    .00093,   -.00008,
     +     .12467,    .03803,    .01088,    .00242,    .00053,
     +     .00030,    .00090,   -.00007 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
     +     .47915,    .15781,    .28622,    .01062,    .00000,
     +     .00000,    .00212,   -.00308,
     +     .46084,    .15121,    .25818,    .01025,    .00000,
     +     .00000,    .00221,   -.00273,
     +     .43487,    .14192,    .22108,    .00972,    .00001,
     +     .00000,    .00230,   -.00231,
     +     .41677,    .13549,    .19696,    .00932,    .00015,
     +     .00000,    .00233,   -.00204,
     +     .39851,    .12902,    .17410,    .00889,    .00035,
     +     .00000,    .00234,   -.00179,
     +     .38327,    .12366,    .15655,    .00851,    .00045,
     +     .00000,    .00233,   -.00159,
     +     .36923,    .11876,    .14145,    .00817,    .00054,
     +     .00000,    .00230,   -.00143,
     +     .35492,    .11378,    .12709,    .00782,    .00061,
     +     .00000,    .00227,   -.00130 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
     +     .34286,    .10961,    .11585,    .00751,    .00066,
     +     .00000,    .00222,   -.00118,
     +     .33167,    .10575,    .10601,    .00723,    .00070,
     +     .00000,    .00217,   -.00108,
     +     .32300,    .10278,    .09883,    .00702,    .00072,
     +     .00000,    .00213,   -.00103,
     +     .30535,    .09675,    .08517,    .00656,    .00075,
     +     .00000,    .00205,   -.00092,
     +     .29096,    .09186,    .07493,    .00618,    .00077,
     +     .00004,    .00198,   -.00082,
     +     .27566,    .08668,    .06487,    .00576,    .00077,
     +     .00010,    .00186,   -.00071,
     +     .26061,    .08163,    .05599,    .00538,    .00076,
     +     .00015,    .00178,   -.00063,
     +     .24771,    .07732,    .04913,    .00505,    .00075,
     +     .00018,    .00169,   -.00057 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
     +     .23541,    .07324,    .04318,    .00474,    .00074,
     +     .00021,    .00159,   -.00051,
     +     .22569,    .07003,    .03887,    .00449,    .00072,
     +     .00022,    .00152,   -.00047,
     +     .21447,    .06633,    .03431,    .00420,    .00070,
     +     .00023,    .00144,   -.00041,
     +     .20506,    .06324,    .03080,    .00397,    .00068,
     +     .00024,    .00137,   -.00037,
     +     .19680,    .06056,    .02796,    .00378,    .00066,
     +     .00025,    .00131,   -.00036,
     +     .18687,    .05732,    .02480,    .00352,    .00063,
     +     .00025,    .00123,   -.00032,
     +     .17806,    .05444,    .02221,    .00330,    .00061,
     +     .00026,    .00116,   -.00028,
     +     .17013,    .05190,    .02009,    .00314,    .00059,
     +     .00026,    .00110,   -.00027 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
     +     .16262,    .04950,    .01821,    .00297,    .00056,
     +     .00025,    .00105,   -.00026,
     +     .15564,    .04726,    .01657,    .00280,    .00054,
     +     .00025,    .00100,   -.00024,
     +     .14932,    .04524,    .01520,    .00264,    .00052,
     +     .00025,    .00095,   -.00022,
     +     .14365,    .04343,    .01403,    .00250,    .00051,
     +     .00025,    .00091,   -.00021,
     +     .13815,    .04168,    .01298,    .00239,    .00049,
     +     .00025,    .00087,   -.00020,
     +     .13299,    .04005,    .01203,    .00228,    .00047,
     +     .00025,    .00083,   -.00019,
     +     .12823,    .03854,    .01122,    .00218,    .00046,
     +     .00025,    .00079,   -.00017,
     +     .12392,    .03719,    .01051,    .00209,    .00044,
     +     .00025,    .00076,   -.00016 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
     +     .11972,    .03587,    .00985,    .00200,    .00043,
     +     .00024,    .00073,   -.00015,
     +     .11573,    .03462,    .00926,    .00191,    .00042,
     +     .00024,    .00070,   -.00014,
     +     .11206,    .03347,    .00873,    .00183,    .00041,
     +     .00024,    .00067,   -.00013,
     +     .10869,    .03242,    .00827,    .00176,    .00040,
     +     .00024,    .00064,   -.00013,
     +     .10541,    .03139,    .00782,    .00170,    .00039,
     +     .00023,    .00062,   -.00013 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
     +     .44073,    .14139,    .23955,    .00848,    .00000,
     +     .00000,    .00152,   -.00316,
     +     .42266,    .13508,    .21441,    .00813,    .00000,
     +     .00000,    .00161,   -.00282,
     +     .39714,    .12622,    .18159,    .00761,    .00001,
     +     .00000,    .00168,   -.00238,
     +     .37942,    .12012,    .16052,    .00725,    .00011,
     +     .00000,    .00170,   -.00211,
     +     .36161,    .11406,    .14076,    .00687,    .00027,
     +     .00000,    .00170,   -.00186,
     +     .34686,    .10901,    .12571,    .00652,    .00034,
     +     .00000,    .00170,   -.00166,
     +     .33328,    .10441,    .11289,    .00622,    .00041,
     +     .00000,    .00168,   -.00150,
     +     .31943,    .09976,    .10080,    .00594,    .00046,
     +     .00000,    .00165,   -.00135 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
     +     .30782,    .09590,    .09138,    .00569,    .00049,
     +     .00000,    .00162,   -.00125,
     +     .29708,    .09235,    .08317,    .00546,    .00052,
     +     .00000,    .00159,   -.00116,
     +     .28880,    .08958,    .07726,    .00527,    .00054,
     +     .00000,    .00156,   -.00108,
     +     .27201,    .08400,    .06606,    .00488,    .00056,
     +     .00000,    .00150,   -.00093,
     +     .25837,    .07951,    .05773,    .00457,    .00057,
     +     .00003,    .00144,   -.00083,
     +     .24390,    .07479,    .04963,    .00427,    .00057,
     +     .00007,    .00137,   -.00076,
     +     .22978,    .07019,    .04254,    .00395,    .00056,
     +     .00010,    .00129,   -.00069,
     +     .21768,    .06628,    .03711,    .00370,    .00055,
     +     .00013,    .00122,   -.00061 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
     +     .20618,    .06259,    .03244,    .00346,    .00054,
     +     .00014,    .00115,   -.00054,
     +     .19715,    .05970,    .02907,    .00327,    .00053,
     +     .00015,    .00109,   -.00050,
     +     .18677,    .05637,    .02554,    .00305,    .00051,
     +     .00016,    .00104,   -.00044,
     +     .17810,    .05361,    .02283,    .00286,    .00050,
     +     .00017,    .00099,   -.00040,
     +     .17054,    .05120,    .02065,    .00269,    .00048,
     +     .00017,    .00094,   -.00037,
     +     .16142,    .04833,    .01823,    .00251,    .00046,
     +     .00017,    .00089,   -.00034,
     +     .15332,    .04579,    .01626,    .00236,    .00045,
     +     .00017,    .00084,   -.00032,
     +     .14615,    .04353,    .01466,    .00221,    .00043,
     +     .00017,    .00079,   -.00029 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
     +     .13934,    .04141,    .01325,    .00207,    .00041,
     +     .00017,    .00075,   -.00026,
     +     .13302,    .03945,    .01203,    .00195,    .00040,
     +     .00017,    .00071,   -.00025,
     +     .12731,    .03768,    .01101,    .00184,    .00039,
     +     .00017,    .00067,   -.00023,
     +     .12221,    .03609,    .01014,    .00175,    .00037,
     +     .00017,    .00064,   -.00022,
     +     .11726,    .03456,    .00936,    .00166,    .00036,
     +     .00017,    .00061,   -.00020,
     +     .11262,    .03313,    .00866,    .00157,    .00035,
     +     .00017,    .00058,   -.00018,
     +     .10839,    .03183,    .00806,    .00150,    .00034,
     +     .00017,    .00056,   -.00017,
     +     .10456,    .03065,    .00754,    .00143,    .00033,
     +     .00017,    .00053,   -.00016 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
     +     .10084,    .02952,    .00706,    .00136,    .00032,
     +     .00017,    .00051,   -.00014,
     +     .09731,    .02844,    .00662,    .00129,    .00031,
     +     .00017,    .00049,   -.00013,
     +     .09406,    .02745,    .00623,    .00124,    .00031,
     +     .00017,    .00047,   -.00012,
     +     .09107,    .02655,    .00590,    .00119,    .00030,
     +     .00017,    .00045,   -.00013,
     +     .08816,    .02567,    .00558,    .00115,    .00029,
     +     .00017,    .00044,   -.00013 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
     +     .40142,    .12562,    .19780,    .00663,    .00000,
     +     .00000,    .00100,   -.00290,
     +     .38382,    .11969,    .17578,    .00633,    .00000,
     +     .00000,    .00107,   -.00260,
     +     .35906,    .11140,    .14733,    .00589,    .00001,
     +     .00000,    .00114,   -.00220,
     +     .34197,    .10571,    .12929,    .00558,    .00008,
     +     .00000,    .00116,   -.00195,
     +     .32488,    .10005,    .11253,    .00526,    .00020,
     +     .00000,    .00117,   -.00173,
     +     .31073,    .09542,    .09985,    .00501,    .00025,
     +     .00000,    .00115,   -.00156,
     +     .29777,    .09118,    .08913,    .00477,    .00030,
     +     .00000,    .00114,   -.00143,
     +     .28465,    .08690,    .07911,    .00451,    .00034,
     +     .00000,    .00113,   -.00129 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
     +     .27367,    .08333,    .07137,    .00431,    .00037,
     +     .00000,    .00110,   -.00118,
     +     .26353,    .08004,    .06465,    .00412,    .00039,
     +     .00000,    .00108,   -.00108,
     +     .25575,    .07753,    .05984,    .00397,    .00040,
     +     .00000,    .00106,   -.00102,
     +     .23998,    .07247,    .05078,    .00367,    .00042,
     +     .00000,    .00101,   -.00091,
     +     .22718,    .06840,    .04410,    .00345,    .00043,
     +     .00002,    .00096,   -.00082,
     +     .21376,    .06411,    .03768,    .00317,    .00043,
     +     .00005,    .00090,   -.00071,
     +     .20062,    .05997,    .03210,    .00295,    .00042,
     +     .00007,    .00085,   -.00062,
     +     .18948,    .05648,    .02784,    .00274,    .00041,
     +     .00009,    .00081,   -.00057 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
     +     .17894,    .05317,    .02421,    .00254,    .00040,
     +     .00010,    .00077,   -.00052,
     +     .17066,    .05058,    .02161,    .00241,    .00039,
     +     .00010,    .00073,   -.00047,
     +     .16119,    .04764,    .01890,    .00223,    .00038,
     +     .00010,    .00068,   -.00043,
     +     .15329,    .04519,    .01683,    .00209,    .00037,
     +     .00010,    .00065,   -.00039,
     +     .14640,    .04307,    .01517,    .00198,    .00036,
     +     .00010,    .00061,   -.00036,
     +     .13815,    .04053,    .01334,    .00184,    .00035,
     +     .00010,    .00057,   -.00032,
     +     .13089,    .03829,    .01186,    .00170,    .00033,
     +     .00010,    .00053,   -.00029,
     +     .12443,    .03632,    .01067,    .00160,    .00032,
     +     .00010,    .00050,   -.00027 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
     +     .11832,    .03447,    .00962,    .00150,    .00031,
     +     .00010,    .00048,   -.00025,
     +     .11266,    .03276,    .00871,    .00142,    .00030,
     +     .00010,    .00045,   -.00024,
     +     .10759,    .03122,    .00795,    .00133,    .00029,
     +     .00010,    .00043,   -.00022,
     +     .10306,    .02984,    .00731,    .00125,    .00028,
     +     .00010,    .00040,   -.00021,
     +     .09867,    .02852,    .00673,    .00119,    .00027,
     +     .00010,    .00039,   -.00019,
     +     .09458,    .02730,    .00622,    .00112,    .00027,
     +     .00010,    .00037,   -.00017,
     +     .09086,    .02618,    .00578,    .00106,    .00026,
     +     .00010,    .00035,   -.00016,
     +     .08749,    .02517,    .00540,    .00101,    .00025,
     +     .00010,    .00033,   -.00016 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
     +     .08421,    .02418,    .00505,    .00096,    .00025,
     +     .00010,    .00032,   -.00015,
     +     .08110,    .02325,    .00473,    .00092,    .00024,
     +     .00010,    .00031,   -.00014,
     +     .07826,    .02241,    .00445,    .00089,    .00024,
     +     .00010,    .00029,   -.00014,
     +     .07566,    .02164,    .00420,    .00085,    .00023,
     +     .00010,    .00028,   -.00013,
     +     .07313,    .02089,    .00397,    .00082,    .00023,
     +     .00010,    .00027,   -.00012 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
     +     .36162,    .11019,    .16047,    .00480,    .00000,
     +     .00000,    .00073,   -.00232,
     +     .34468,    .10471,    .14151,    .00458,    .00000,
     +     .00000,    .00079,   -.00208,
     +     .32098,    .09706,    .11736,    .00426,    .00001,
     +     .00000,    .00084,   -.00176,
     +     .30471,    .09182,    .10223,    .00402,    .00006,
     +     .00000,    .00084,   -.00155,
     +     .28851,    .08663,    .08830,    .00378,    .00015,
     +     .00000,    .00084,   -.00136,
     +     .27519,    .08239,    .07787,    .00357,    .00018,
     +     .00000,    .00083,   -.00123,
     +     .26302,    .07853,    .06910,    .00339,    .00022,
     +     .00000,    .00082,   -.00112,
     +     .25070,    .07464,    .06095,    .00322,    .00025,
     +     .00000,    .00082,   -.00102 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
     +     .24045,    .07142,    .05470,    .00306,    .00026,
     +     .00000,    .00079,   -.00094,
     +     .23100,    .06847,    .04932,    .00291,    .00028,
     +     .00000,    .00076,   -.00086,
     +     .22377,    .06620,    .04548,    .00279,    .00029,
     +     .00000,    .00074,   -.00080,
     +     .20918,    .06165,    .03829,    .00256,    .00030,
     +     .00000,    .00071,   -.00070,
     +     .19739,    .05801,    .03305,    .00238,    .00031,
     +     .00001,    .00067,   -.00062,
     +     .18505,    .05420,    .02805,    .00221,    .00031,
     +     .00003,    .00065,   -.00056,
     +     .17305,    .05051,    .02373,    .00203,    .00031,
     +     .00005,    .00060,   -.00049,
     +     .16292,    .04741,    .02048,    .00187,    .00030,
     +     .00005,    .00056,   -.00043 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
     +     .15336,    .04450,    .01771,    .00173,    .00030,
     +     .00006,    .00052,   -.00039,
     +     .14587,    .04224,    .01574,    .00163,    .00029,
     +     .00006,    .00049,   -.00035,
     +     .13730,    .03966,    .01370,    .00153,    .00028,
     +     .00006,    .00046,   -.00031,
     +     .13020,    .03752,    .01216,    .00144,    .00028,
     +     .00006,    .00044,   -.00029,
     +     .12406,    .03567,    .01092,    .00134,    .00027,
     +     .00006,    .00042,   -.00027,
     +     .11671,    .03347,    .00958,    .00123,    .00026,
     +     .00006,    .00039,   -.00024,
     +     .11024,    .03154,    .00849,    .00114,    .00025,
     +     .00006,    .00036,   -.00021,
     +     .10454,    .02984,    .00760,    .00106,    .00024,
     +     .00006,    .00034,   -.00020 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
     +     .09916,    .02823,    .00684,    .00099,    .00024,
     +     .00006,    .00033,   -.00018,
     +     .09419,    .02676,    .00618,    .00093,    .00023,
     +     .00006,    .00031,   -.00016,
     +     .08970,    .02544,    .00563,    .00088,    .00022,
     +     .00006,    .00029,   -.00015,
     +     .08569,    .02428,    .00516,    .00084,    .00022,
     +     .00006,    .00027,   -.00015,
     +     .08187,    .02316,    .00475,    .00079,    .00021,
     +     .00006,    .00026,   -.00013,
     +     .07832,    .02211,    .00438,    .00075,    .00021,
     +     .00006,    .00024,   -.00012,
     +     .07507,    .02116,    .00407,    .00071,    .00020,
     +     .00006,    .00023,   -.00012,
     +     .07214,    .02030,    .00379,    .00067,    .00020,
     +     .00006,    .00022,   -.00011 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
     +     .06930,    .01948,    .00354,    .00064,    .00020,
     +     .00006,    .00021,   -.00010,
     +     .06663,    .01870,    .00331,    .00061,    .00019,
     +     .00006,    .00020,   -.00009,
     +     .06418,    .01799,    .00311,    .00058,    .00019,
     +     .00006,    .00019,   -.00009,
     +     .06194,    .01734,    .00294,    .00055,    .00019,
     +     .00006,    .00018,   -.00008,
     +     .05977,    .01671,    .00277,    .00053,    .00019,
     +     .00006,    .00017,   -.00008 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
     +     .32207,    .09571,    .12802,    .00339,    .00000,
     +     .00000,    .00052,   -.00178,
     +     .30607,    .09065,    .11211,    .00320,    .00000,
     +     .00000,    .00056,   -.00156,
     +     .28377,    .08366,    .09198,    .00295,    .00000,
     +     .00000,    .00059,   -.00130,
     +     .26852,    .07891,    .07950,    .00278,    .00004,
     +     .00000,    .00060,   -.00115,
     +     .25338,    .07421,    .06813,    .00259,    .00010,
     +     .00000,    .00061,   -.00101,
     +     .24096,    .07037,    .05969,    .00244,    .00013,
     +     .00000,    .00059,   -.00089,
     +     .22966,    .06690,    .05266,    .00231,    .00015,
     +     .00000,    .00058,   -.00079,
     +     .21826,    .06342,    .04616,    .00218,    .00017,
     +     .00000,    .00057,   -.00072 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
     +     .20881,    .06055,    .04121,    .00207,    .00018,
     +     .00000,    .00055,   -.00066,
     +     .20013,    .05793,    .03698,    .00197,    .00019,
     +     .00000,    .00053,   -.00061,
     +     .19350,    .05591,    .03397,    .00190,    .00019,
     +     .00000,    .00052,   -.00057,
     +     .18018,    .05186,    .02838,    .00173,    .00020,
     +     .00000,    .00050,   -.00049,
     +     .16951,    .04862,    .02435,    .00158,    .00020,
     +     .00001,    .00046,   -.00043,
     +     .15829,    .04528,    .02052,    .00146,    .00020,
     +     .00002,    .00044,   -.00038,
     +     .14746,    .04205,    .01725,    .00135,    .00019,
     +     .00003,    .00042,   -.00033,
     +     .13836,    .03934,    .01480,    .00124,    .00019,
     +     .00003,    .00039,   -.00029 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
     +     .12981,    .03680,    .01274,    .00114,    .00018,
     +     .00003,    .00037,   -.00026,
     +     .12315,    .03484,    .01128,    .00107,    .00018,
     +     .00003,    .00035,   -.00024,
     +     .11555,    .03261,    .00977,    .00099,    .00017,
     +     .00003,    .00033,   -.00021,
     +     .10926,    .03077,    .00864,    .00092,    .00016,
     +     .00003,    .00031,   -.00019,
     +     .10382,    .02918,    .00774,    .00086,    .00016,
     +     .00003,    .00029,   -.00017,
     +     .09736,    .02729,    .00676,    .00079,    .00015,
     +     .00003,    .00027,   -.00015,
     +     .09171,    .02564,    .00597,    .00073,    .00014,
     +     .00003,    .00025,   -.00013,
     +     .08669,    .02419,    .00534,    .00069,    .00014,
     +     .00003,    .00023,   -.00013 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
     +     .08200,    .02284,    .00479,    .00064,    .00014,
     +     .00003,    .00022,   -.00011,
     +     .07771,    .02159,    .00431,    .00058,    .00013,
     +     .00003,    .00021,   -.00010,
     +     .07382,    .02048,    .00392,    .00056,    .00013,
     +     .00003,    .00019,   -.00010,
     +     .07036,    .01950,    .00359,    .00054,    .00013,
     +     .00003,    .00018,   -.00010,
     +     .06708,    .01855,    .00330,    .00050,    .00013,
     +     .00003,    .00017,   -.00009,
     +     .06403,    .01767,    .00304,    .00047,    .00013,
     +     .00003,    .00015,   -.00008,
     +     .06124,    .01688,    .00282,    .00044,    .00013,
     +     .00003,    .00015,   -.00007,
     +     .05873,    .01617,    .00262,    .00042,    .00013,
     +     .00003,    .00014,   -.00007 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
     +     .05631,    .01548,    .00245,    .00040,    .00013,
     +     .00003,    .00014,   -.00007,
     +     .05403,    .01483,    .00229,    .00037,    .00013,
     +     .00003,    .00013,   -.00006,
     +     .05196,    .01424,    .00215,    .00035,    .00013,
     +     .00003,    .00013,   -.00005,
     +     .05007,    .01370,    .00203,    .00033,    .00013,
     +     .00003,    .00012,   -.00005,
     +     .04823,    .01318,    .00191,    .00032,    .00013,
     +     .00003,    .00012,   -.00004 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
     +     .28358,    .08232,    .10051,    .00238,    .00000,
     +     .00000,    .00031,   -.00131,
     +     .26863,    .07774,    .08735,    .00225,    .00000,
     +     .00000,    .00034,   -.00115,
     +     .24790,    .07144,    .07091,    .00207,    .00000,
     +     .00000,    .00037,   -.00094,
     +     .23380,    .06717,    .06085,    .00194,    .00003,
     +     .00000,    .00038,   -.00083,
     +     .21990,    .06295,    .05177,    .00179,    .00007,
     +     .00000,    .00039,   -.00074,
     +     .20850,    .05955,    .04507,    .00169,    .00009,
     +     .00000,    .00038,   -.00065,
     +     .19817,    .05646,    .03952,    .00160,    .00010,
     +     .00000,    .00037,   -.00057,
     +     .18779,    .05338,    .03444,    .00150,    .00012,
     +     .00000,    .00036,   -.00052 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
     +     .17925,    .05083,    .03060,    .00140,    .00012,
     +     .00000,    .00035,   -.00046,
     +     .17142,    .04850,    .02732,    .00132,    .00013,
     +     .00000,    .00034,   -.00041,
     +     .16542,    .04673,    .02501,    .00127,    .00013,
     +     .00000,    .00034,   -.00039,
     +     .15340,    .04319,    .02074,    .00117,    .00013,
     +     .00000,    .00032,   -.00034,
     +     .14380,    .04037,    .01768,    .00107,    .00013,
     +     .00000,    .00030,   -.00030,
     +     .13380,    .03747,    .01481,    .00100,    .00012,
     +     .00001,    .00028,   -.00027,
     +     .12422,    .03466,    .01237,    .00089,    .00012,
     +     .00001,    .00025,   -.00022,
     +     .11615,    .03232,    .01056,    .00082,    .00012,
     +     .00001,    .00023,   -.00019 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
     +     .10860,    .03015,    .00905,    .00076,    .00011,
     +     .00001,    .00022,   -.00018,
     +     .10274,    .02847,    .00798,    .00071,    .00011,
     +     .00001,    .00021,   -.00017,
     +     .09608,    .02656,    .00689,    .00066,    .00010,
     +     .00001,    .00020,   -.00015,
     +     .09061,    .02498,    .00607,    .00061,    .00009,
     +     .00001,    .00019,   -.00013,
     +     .08589,    .02364,    .00542,    .00057,    .00009,
     +     .00001,    .00018,   -.00012,
     +     .08027,    .02204,    .00472,    .00053,    .00008,
     +     .00001,    .00016,   -.00011,
     +     .07537,    .02065,    .00416,    .00049,    .00008,
     +     .00001,    .00015,   -.00010,
     +     .07109,    .01943,    .00371,    .00044,    .00007,
     +     .00001,    .00014,   -.00009 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
     +     .06705,    .01830,    .00332,    .00041,    .00007,
     +     .00001,    .00013,   -.00008,
     +     .06333,    .01726,    .00298,    .00040,    .00007,
     +     .00001,    .00012,   -.00008,
     +     .06004,    .01632,    .00271,    .00037,    .00007,
     +     .00001,    .00011,   -.00007,
     +     .05712,    .01550,    .00248,    .00034,    .00007,
     +     .00001,    .00011,   -.00006,
     +     .05432,    .01472,    .00227,    .00032,    .00007,
     +     .00001,    .00010,   -.00006,
     +     .05172,    .01400,    .00209,    .00031,    .00007,
     +     .00001,    .00010,   -.00006,
     +     .04937,    .01334,    .00193,    .00029,    .00007,
     +     .00001,    .00009,   -.00005,
     +     .04726,    .01275,    .00180,    .00027,    .00007,
     +     .00001,    .00009,   -.00004 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
     +     .04522,    .01218,    .00168,    .00025,    .00007,
     +     .00001,    .00008,   -.00004,
     +     .04331,    .01166,    .00157,    .00023,    .00007,
     +     .00001,    .00007,   -.00004,
     +     .04157,    .01117,    .00147,    .00022,    .00007,
     +     .00001,    .00007,   -.00004,
     +     .03998,    .01073,    .00138,    .00021,    .00007,
     +     .00001,    .00007,   -.00003,
     +     .03845,    .01031,    .00130,    .00020,    .00007,
     +     .00001,    .00007,   -.00003 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
     +     .24626,    .06966,    .07711,    .00145,    .00000,
     +     .00000,    .00024,   -.00083,
     +     .23254,    .06559,    .06652,    .00138,    .00000,
     +     .00000,    .00026,   -.00073,
     +     .21359,    .06000,    .05343,    .00127,    .00000,
     +     .00000,    .00027,   -.00059,
     +     .20075,    .05623,    .04550,    .00119,    .00002,
     +     .00000,    .00027,   -.00050,
     +     .18808,    .05254,    .03841,    .00112,    .00005,
     +     .00000,    .00028,   -.00045,
     +     .17781,    .04955,    .03323,    .00105,    .00006,
     +     .00000,    .00027,   -.00040,
     +     .16852,    .04686,    .02896,    .00099,    .00007,
     +     .00000,    .00027,   -.00036,
     +     .15924,    .04416,    .02506,    .00093,    .00007,
     +     .00000,    .00027,   -.00032 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
     +     .15159,    .04195,    .02215,    .00087,    .00008,
     +     .00000,    .00026,   -.00029,
     +     .14460,    .03994,    .01969,    .00081,    .00008,
     +     .00000,    .00025,   -.00026,
     +     .13926,    .03841,    .01796,    .00078,    .00008,
     +     .00000,    .00024,   -.00025,
     +     .12859,    .03537,    .01478,    .00072,    .00008,
     +     .00000,    .00022,   -.00021,
     +     .12011,    .03295,    .01252,    .00067,    .00008,
     +     .00000,    .00021,   -.00018,
     +     .11135,    .03045,    .01042,    .00060,    .00007,
     +     .00000,    .00020,   -.00015,
     +     .10296,    .02807,    .00865,    .00053,    .00007,
     +     .00000,    .00018,   -.00012,
     +     .09595,    .02609,    .00735,    .00049,    .00007,
     +     .00000,    .00017,   -.00011 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
     +     .08939,    .02425,    .00626,    .00046,    .00006,
     +     .00000,    .00016,   -.00011,
     +     .08432,    .02283,    .00550,    .00043,    .00006,
     +     .00000,    .00015,   -.00010,
     +     .07860,    .02122,    .00473,    .00039,    .00006,
     +     .00000,    .00014,   -.00008,
     +     .07390,    .01991,    .00415,    .00035,    .00005,
     +     .00000,    .00013,   -.00006,
     +     .06985,    .01878,    .00370,    .00033,    .00005,
     +     .00000,    .00012,   -.00006,
     +     .06506,    .01746,    .00321,    .00031,    .00005,
     +     .00000,    .00011,   -.00005,
     +     .06090,    .01631,    .00282,    .00028,    .00005,
     +     .00000,    .00010,   -.00005,
     +     .05726,    .01530,    .00251,    .00025,    .00005,
     +     .00000,    .00009,   -.00004 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
     +     .05385,    .01437,    .00224,    .00023,    .00004,
     +     .00000,    .00008,   -.00004,
     +     .05073,    .01351,    .00201,    .00022,    .00004,
     +     .00000,    .00008,   -.00003,
     +     .04798,    .01275,    .00182,    .00020,    .00004,
     +     .00000,    .00008,   -.00003,
     +     .04554,    .01208,    .00166,    .00018,    .00004,
     +     .00000,    .00007,   -.00003,
     +     .04320,    .01144,    .00153,    .00017,    .00004,
     +     .00000,    .00007,   -.00003,
     +     .04104,    .01085,    .00140,    .00016,    .00004,
     +     .00000,    .00006,   -.00002,
     +     .03907,    .01032,    .00130,    .00015,    .00004,
     +     .00000,    .00006,   -.00002,
     +     .03732,    .00985,    .00120,    .00015,    .00004,
     +     .00000,    .00006,   -.00002 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
     +     .03563,    .00939,    .00112,    .00014,    .00004,
     +     .00000,    .00005,   -.00002,
     +     .03406,    .00896,    .00105,    .00013,    .00004,
     +     .00000,    .00005,   -.00002,
     +     .03262,    .00857,    .00098,    .00013,    .00004,
     +     .00000,    .00005,   -.00002,
     +     .03132,    .00822,    .00092,    .00012,    .00004,
     +     .00000,    .00005,   -.00002,
     +     .03006,    .00788,    .00087,    .00012,    .00004,
     +     .00000,    .00005,   -.00002 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
     +     .17787,    .04798,    .04254,    .00055,    .00000,
     +     .00000,    .00007,   -.00032,
     +     .16682,    .04489,    .03613,    .00052,    .00000,
     +     .00000,    .00008,   -.00027,
     +     .15170,    .04069,    .02839,    .00048,    .00000,
     +     .00000,    .00010,   -.00022,
     +     .14156,    .03787,    .02380,    .00046,    .00001,
     +     .00000,    .00011,   -.00019,
     +     .13165,    .03511,    .01978,    .00043,    .00002,
     +     .00000,    .00011,   -.00016,
     +     .12370,    .03290,    .01688,    .00038,    .00001,
     +     .00000,    .00010,   -.00013,
     +     .11654,    .03093,    .01453,    .00035,    .00001,
     +     .00000,    .00010,   -.00011,
     +     .10941,    .02898,    .01243,    .00033,    .00001,
     +     .00000,    .00010,   -.00011 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
     +     .10358,    .02739,    .01087,    .00031,    .00001,
     +     .00000,    .00009,   -.00009,
     +     .09829,    .02594,    .00957,    .00029,    .00001,
     +     .00000,    .00009,   -.00008,
     +     .09428,    .02485,    .00866,    .00028,    .00001,
     +     .00000,    .00008,   -.00007,
     +     .08632,    .02268,    .00702,    .00025,    .00001,
     +     .00000,    .00008,   -.00005,
     +     .08006,    .02097,    .00588,    .00022,    .00001,
     +     .00000,    .00007,   -.00004,
     +     .07360,    .01924,    .00483,    .00021,    .00001,
     +     .00000,    .00007,   -.00003,
     +     .06750,    .01759,    .00396,    .00018,    .00001,
     +     .00000,    .00007,   -.00004,
     +     .06243,    .01624,    .00333,    .00016,    .00001,
     +     .00000,    .00006,   -.00003 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
     +     .05774,    .01498,    .00282,    .00015,    .00001,
     +     .00000,    .00006,   -.00002,
     +     .05414,    .01402,    .00246,    .00014,    .00001,
     +     .00000,    .00005,   -.00002,
     +     .05011,    .01295,    .00210,    .00013,    .00001,
     +     .00000,    .00005,   -.00002,
     +     .04681,    .01207,    .00183,    .00012,    .00001,
     +     .00000,    .00005,   -.00002,
     +     .04400,    .01133,    .00162,    .00011,    .00001,
     +     .00000,    .00004,   -.00001,
     +     .04070,    .01045,    .00140,    .00010,    .00001,
     +     .00000,    .00004,   -.00001,
     +     .03785,    .00970,    .00123,    .00009,    .00001,
     +     .00000,    .00004,   -.00001,
     +     .03536,    .00905,    .00109,    .00008,    .00001,
     +     .00000,    .00003,   -.00001 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
     +     .03306,    .00844,    .00097,    .00008,    .00001,
     +     .00000,    .00003,   -.00001,
     +     .03097,    .00790,    .00087,    .00007,    .00001,
     +     .00000,    .00003,    .00000,
     +     .02912,    .00741,    .00078,    .00006,    .00001,
     +     .00000,    .00003,    .00000,
     +     .02750,    .00699,    .00071,    .00006,    .00001,
     +     .00000,    .00003,    .00000,
     +     .02595,    .00659,    .00065,    .00006,    .00001,
     +     .00000,    .00003,    .00000,
     +     .02452,    .00622,    .00060,    .00006,    .00001,
     +     .00000,    .00002,    .00000,
     +     .02324,    .00589,    .00055,    .00005,    .00001,
     +     .00000,    .00002,    .00000,
     +     .02210,    .00559,    .00051,    .00005,    .00001,
     +     .00000,    .00002,    .00000 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/
     +     .02101,    .00531,    .00048,    .00005,    .00001,
     +     .00000,    .00002,    .00000,
     +     .02000,    .00505,    .00044,    .00004,    .00001,
     +     .00000,    .00002,    .00000,
     +     .01908,    .00481,    .00041,    .00004,    .00001,
     +     .00000,    .00002,    .00000,
     +     .01826,    .00460,    .00039,    .00003,    .00001,
     +     .00000,    .00002,    .00000,
     +     .01746,    .00439,    .00037,    .00003,    .00001,
     +     .00000,    .00002,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/
     +     .11955,    .03073,    .02095,    .00017,    .00000,
     +     .00000,    .00001,   -.00008,
     +     .11129,    .02854,    .01751,    .00017,    .00000,
     +     .00000,    .00002,   -.00007,
     +     .10014,    .02559,    .01345,    .00015,    .00000,
     +     .00000,    .00003,   -.00006,
     +     .09275,    .02364,    .01110,    .00014,    .00000,
     +     .00000,    .00003,   -.00005,
     +     .08557,    .02176,    .00907,    .00012,    .00000,
     +     .00000,    .00003,   -.00004,
     +     .07982,    .02026,    .00764,    .00012,    .00000,
     +     .00000,    .00003,   -.00003,
     +     .07470,    .01892,    .00650,    .00011,    .00000,
     +     .00000,    .00003,   -.00003,
     +     .06965,    .01761,    .00548,    .00011,    .00000,
     +     .00000,    .00003,   -.00002 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
     +     .06555,    .01654,    .00475,    .00010,    .00000,
     +     .00000,    .00003,   -.00002,
     +     .06184,    .01559,    .00414,    .00009,    .00000,
     +     .00000,    .00003,   -.00001,
     +     .05906,    .01487,    .00372,    .00009,    .00000,
     +     .00000,    .00003,   -.00002,
     +     .05358,    .01345,    .00297,    .00008,    .00000,
     +     .00000,    .00003,   -.00002,
     +     .04930,    .01234,    .00246,    .00007,    .00000,
     +     .00000,    .00002,   -.00001,
     +     .04495,    .01122,    .00200,    .00006,    .00000,
     +     .00000,    .00002,   -.00001,
     +     .04084,    .01017,    .00162,    .00005,    .00000,
     +     .00000,    .00002,   -.00001,
     +     .03747,    .00931,    .00135,    .00005,    .00000,
     +     .00000,    .00002,   -.00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
     +     .03438,    .00853,    .00113,    .00005,    .00000,
     +     .00000,    .00002,    .00000,
     +     .03203,    .00793,    .00098,    .00004,    .00000,
     +     .00000,    .00002,    .00000,
     +     .02941,    .00727,    .00084,    .00004,    .00000,
     +     .00000,    .00002,    .00000,
     +     .02729,    .00673,    .00073,    .00003,    .00000,
     +     .00000,    .00001,    .00000,
     +     .02550,    .00628,    .00064,    .00003,    .00000,
     +     .00000,    .00001,    .00000,
     +     .02340,    .00575,    .00055,    .00003,    .00000,
     +     .00000,    .00001,    .00000,
     +     .02160,    .00530,    .00048,    .00003,    .00000,
     +     .00000,    .00001,    .00000,
     +     .02005,    .00491,    .00042,    .00002,    .00000,
     +     .00000,    .00001,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
     +     .01862,    .00455,    .00038,    .00002,    .00000,
     +     .00000,    .00001,    .00000,
     +     .01734,    .00423,    .00034,    .00002,    .00000,
     +     .00000,    .00001,    .00000,
     +     .01621,    .00395,    .00030,    .00002,    .00000,
     +     .00000,    .00001,    .00000,
     +     .01521,    .00370,    .00028,    .00002,    .00000,
     +     .00000,    .00001,    .00000,
     +     .01428,    .00347,    .00025,    .00002,    .00000,
     +     .00000,    .00001,    .00000,
     +     .01342,    .00326,    .00023,    .00002,    .00000,
     +     .00000,    .00001,    .00000,
     +     .01266,    .00307,    .00021,    .00001,    .00000,
     +     .00000,    .00001,    .00000,
     +     .01199,    .00290,    .00020,    .00001,    .00000,
     +     .00000,    .00001,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/
     +     .01134,    .00274,    .00018,    .00001,    .00000,
     +     .00000,    .00001,    .00000,
     +     .01074,    .00260,    .00017,    .00001,    .00000,
     +     .00000,    .00001,    .00000,
     +     .01020,    .00246,    .00016,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00972,    .00234,    .00015,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00925,    .00223,    .00014,    .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=1,8)/
     +     .07311,    .01788,    .00887,    .00005,    .00000,
     +     .00000,   -.00001,   -.00003,
     +     .06751,    .01647,    .00729,    .00005,    .00000,
     +     .00000,    .00000,   -.00002,
     +     .06001,    .01459,    .00546,    .00004,    .00000,
     +     .00000,    .00001,   -.00001,
     +     .05509,    .01337,    .00443,    .00004,    .00000,
     +     .00000,    .00000,   -.00001,
     +     .05037,    .01219,    .00356,    .00004,    .00000,
     +     .00000,    .00000,   -.00001,
     +     .04664,    .01127,    .00296,    .00003,    .00000,
     +     .00000,    .00000,   -.00001,
     +     .04334,    .01045,    .00248,    .00003,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04011,    .00965,    .00207,    .00003,    .00000,
     +     .00000,    .00001,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
     +     .03750,    .00901,    .00177,    .00002,    .00000,
     +     .00000,    .00001,    .00000,
     +     .03515,    .00843,    .00153,    .00002,    .00000,
     +     .00000,    .00001,    .00000,
     +     .03340,    .00800,    .00136,    .00003,    .00000,
     +     .00000,    .00001,    .00000,
     +     .02998,    .00717,    .00107,    .00002,    .00000,
     +     .00000,    .00001,    .00000,
     +     .02734,    .00652,    .00088,    .00002,    .00000,
     +     .00000,    .00001,    .00000,
     +     .02468,    .00587,    .00071,    .00002,    .00000,
     +     .00000,    .00001,    .00000,
     +     .02220,    .00527,    .00057,    .00001,    .00000,
     +     .00000,    .00001,    .00000,
     +     .02019,    .00478,    .00047,    .00001,    .00000,
     +     .00000,    .00001,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/
     +     .01836,    .00434,    .00039,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01697,    .00401,    .00034,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01545,    .00364,    .00029,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01424,    .00335,    .00025,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01321,    .00310,    .00022,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01201,    .00282,    .00019,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01100,    .00258,    .00016,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01013,    .00237,    .00014,    .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=25,32)/
     +     .00934,    .00218,    .00013,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00863,    .00201,    .00011,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00802,    .00187,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00748,    .00174,    .00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00698,    .00162,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00652,    .00151,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00612,    .00142,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00576,    .00133,    .00007,    .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)/
     +     .00542,    .00125,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00510,    .00118,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00482,    .00111,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00457,    .00106,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00434,    .00100,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/
     +     .03900,    .00901,    .00301,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03567,    .00823,    .00243,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03127,    .00719,    .00177,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02842,    .00652,    .00141,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02572,    .00589,    .00111,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02360,    .00540,    .00091,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02174,    .00496,    .00075,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01994,    .00454,    .00062,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=9,16)/
     +     .01850,    .00421,    .00053,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01722,    .00391,    .00045,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01627,    .00369,    .00040,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01442,    .00327,    .00031,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01302,    .00294,    .00025,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01161,    .00262,    .00020,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01033,    .00233,    .00016,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00929,    .00209,    .00013,    .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)/
     +     .00836,    .00188,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00767,    .00172,    .00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00691,    .00155,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00630,    .00141,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00580,    .00129,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00523,    .00116,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00474,    .00105,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00433,    .00096,    .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=25,32)/
     +     .00396,    .00088,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00362,    .00080,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00334,    .00074,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00309,    .00068,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00286,    .00063,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00266,    .00059,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00248,    .00055,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00232,    .00051,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/
     +     .00217,    .00048,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00203,    .00045,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00191,    .00042,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00180,    .00039,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00169,    .00037,    .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)/
     +     .00505,    .00102,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00449,    .00090,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00378,    .00076,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00334,    .00067,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00293,    .00059,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00262,    .00052,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00236,    .00047,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00211,    .00042,    .00002,    .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)/
     +     .00191,    .00038,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00174,    .00035,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00162,    .00032,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00139,    .00027,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00121,    .00024,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00105,    .00021,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00090,    .00018,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00079,    .00015,    .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)/
     +     .00069,    .00014,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00061,    .00012,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00054,    .00011,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00048,    .00009,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00043,    .00008,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00038,    .00007,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00033,    .00007,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00029,    .00006,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
     +     .00026,    .00005,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00024,    .00005,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00021,    .00004,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00019,    .00004,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00017,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00016,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00014,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00013,    .00003,    .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)/
     +     .00012,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00011,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00010,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00010,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00009,    .00002,    .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='lo07a.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