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

sfmsr4.F

#include "pdf/pilot.h"
      SUBROUTINE SFMSR4(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)/
     +     .00085,    .00577,   2.56858,    .38075,    .00454,
     +     .00000,    .22725,    .38319,
     +     .00101,    .00587,   4.01857,    .46959,    .01054,
     +     .00000,    .30477,    .47228,
     +     .00125,    .00603,   6.81849,    .63039,    .02592,
     +     .00000,    .44554,    .63344,
     +     .00143,    .00614,   9.43938,    .77039,    .04470,
     +     .00000,    .56873,    .77369,
     +     .00161,    .00625,  12.75915,    .93797,    .07493,
     +     .00000,    .71723,    .94153,
     +     .00177,    .00636,  16.13222,   1.09925,    .11332,
     +     .00000,    .86140,   1.10304,
     +     .00193,    .00645,  19.85547,   1.26857,    .16497,
     +     .00000,   1.01433,   1.27256,
     +     .00209,    .00656,  24.29172,   1.46164,    .24055,
     +     .00000,   1.19106,   1.46586 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
     +     .00224,    .00665,  28.61800,   1.64040,    .32852,
     +     .00000,   1.35722,   1.64480,
     +     .00238,    .00674,  33.27514,   1.82287,    .43786,
     +     .00000,   1.52960,   1.82745,
     +     .00249,    .00681,  37.23265,   1.97163,    .54366,
     +     .00000,   1.67250,   1.97635,
     +     .00273,    .00696,  46.68842,   2.30432,    .83561,
     +     .00000,   1.99997,   2.30934,
     +     .00294,    .00709,  55.90504,   2.60501,   1.16498,
     +     .09285,   2.30524,   2.61028,
     +     .00318,    .00724,  67.43512,   2.95954,   1.61773,
     +     .42666,   2.67434,   2.96508,
     +     .00343,    .00739,  80.85163,   3.35709,   2.17214,
     +     .90696,   3.09485,   3.36291,
     +     .00366,    .00753,  94.33593,   3.75256,   2.73373,
     +    1.36649,   3.51455,   3.75864 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
     +     .00390,    .00768, 109.24551,   4.19324,   3.34208,
     +    1.87519,   3.97967,   4.19957,
     +     .00409,    .00780, 122.62965,   4.59523,   3.87113,
     +    2.32900,   4.40021,   4.60177,
     +     .00433,    .00795, 140.00378,   5.12802,   4.53496,
     +    2.91779,   4.95219,   5.13481,
     +     .00455,    .00808, 156.53906,   5.64486,   5.14401,
     +    3.47700,   5.48261,   5.65186,
     +     .00475,    .00820, 172.76350,   6.15896,   5.72387,
     +    4.02424,   6.00648,   6.16616,
     +     .00501,    .00835, 194.48903,   6.85921,   6.48538,
     +    4.75983,   6.71594,   6.86664,
     +     .00525,    .00850, 216.24652,   7.56982,   7.23542,
     +    5.49809,   7.43261,   7.57748,
     +     .00549,    .00864, 237.91757,   8.28391,   7.97451,
     +    6.23434,   8.15068,   8.29178 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
     +     .00572,    .00878, 260.72931,   9.04224,   8.74955,
     +    7.01215,   8.91178,   9.05032,
     +     .00595,    .00892, 284.01913,   9.82395,   9.54204,
     +    7.81108,   9.69541,   9.83223,
     +     .00617,    .00906, 307.27795,  10.60802,  10.33283,
     +    8.61019,  10.48079,  10.61649,
     +     .00638,    .00918, 329.87732,  11.37711,  11.10617,
     +    9.39267,  11.25081,  11.38574,
     +     .00660,    .00931, 353.61807,  12.18847,  11.92046,
     +   10.21689,  12.06291,  12.19728,
     +     .00681,    .00944, 377.71402,  13.01834,  12.75233,
     +   11.05900,  12.89338,  13.02731,
     +     .00701,    .00956, 401.46371,  13.84067,  13.57605,
     +   11.89264,  13.71621,  13.84980,
     +     .00721,    .00967, 424.54773,  14.64564,  14.38203,
     +   12.70811,  14.52160,  14.65491 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
     +     .00741,    .00979, 448.64511,  15.48957,  15.22679,
     +   13.56243,  15.36592,  15.49900,
     +     .00760,    .00991, 472.87659,  16.34567,  16.08359,
     +   14.42863,  16.22239,  16.35524,
     +     .00779,    .01002, 496.93295,  17.19730,  16.93581,
     +   15.28976,  17.07436,  17.20701,
     +     .00798,    .01013, 519.86127,  18.01829,  17.75731,
     +   16.11967,  17.89566,  18.02812,
     +     .00816,    .01024, 543.92712,  18.88156,  18.62108,
     +   16.99184,  18.75923,  18.89152 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
     +     .00192,    .00721,   2.37730,    .36163,    .00407,
     +     .00000,    .21337,    .36402,
     +     .00215,    .00736,   3.65051,    .43973,    .00937,
     +     .00000,    .28151,    .44229,
     +     .00249,    .00758,   6.05576,    .57854,    .02273,
     +     .00000,    .40303,    .58137,
     +     .00275,    .00774,   8.26371,    .69738,    .03884,
     +     .00000,    .50764,    .70039,
     +     .00301,    .00791,  11.01689,    .83774,    .06452,
     +     .00000,    .63206,    .84094,
     +     .00324,    .00805,  13.77586,    .97120,    .09684,
     +     .00000,    .75145,    .97456,
     +     .00346,    .00819,  16.78551,   1.10984,    .13997,
     +     .00000,    .87680,   1.11335,
     +     .00369,    .00833,  20.32963,   1.26633,    .20263,
     +     .00000,   1.02025,   1.27000 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
     +     .00390,    .00846,  23.75004,   1.40981,    .27503,
     +     .00000,   1.15390,   1.41362,
     +     .00410,    .00858,  27.39928,   1.55500,    .36443,
     +     .00000,   1.29142,   1.55893,
     +     .00426,    .00868,  30.47500,   1.67248,    .45047,
     +     .00000,   1.40464,   1.67651,
     +     .00460,    .00889,  37.74792,   1.93251,    .68597,
     +     .00000,   1.66166,   1.93676,
     +     .00490,    .00907,  44.74713,   2.16461,    .94902,
     +     .07250,   1.89860,   2.16904,
     +     .00523,    .00927,  53.39957,   2.43525,   1.30695,
     +     .33138,   2.18216,   2.43988,
     +     .00558,    .00948,  63.34490,   2.73565,   1.74029,
     +     .70091,   2.50202,   2.74048,
     +     .00591,    .00968,  73.22697,   3.03205,   2.17423,
     +    1.05088,   2.81847,   3.03706 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
     +     .00624,    .00987,  84.03941,   3.36013,   2.63907,
     +    1.43501,   3.16650,   3.36532,
     +     .00651,    .01004,  93.65524,   3.65772,   3.03915,
     +    1.77503,   3.47906,   3.66306,
     +     .00685,    .01024, 106.02145,   4.04990,   3.53605,
     +    2.21284,   3.88660,   4.05542,
     +     .00715,    .01041, 117.68421,   4.42815,   3.98735,
     +    2.62551,   4.27562,   4.43382,
     +     .00743,    .01058, 129.03972,   4.80241,   4.41336,
     +    3.02670,   4.65760,   4.80823,
     +     .00779,    .01079, 144.11060,   5.30907,   4.96791,
     +    3.56212,   5.17148,   5.31505,
     +     .00813,    .01099, 159.06821,   5.81983,   5.50929,
     +    4.09547,   5.68698,   5.82598,
     +     .00845,    .01117, 173.84781,   6.32995,   6.03873,
     +    4.62379,   6.20019,   6.33625 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
     +     .00877,    .01136, 189.28453,   6.86840,   6.59007,
     +    5.17834,   6.74081,   6.87485,
     +     .00909,    .01155, 204.92181,   7.42008,   7.15004,
     +    5.74432,   7.29399,   7.42667,
     +     .00940,    .01172, 220.43465,   7.97040,   7.70554,
     +    6.30719,   7.84534,   7.97713,
     +     .00969,    .01189, 235.40076,   8.50724,   8.24568,
     +    6.85524,   8.38293,   8.51409,
     +     .00998,    .01206, 251.02997,   9.07080,   8.81153,
     +    7.42960,   8.94708,   9.07777,
     +     .01027,    .01223, 266.79172,   9.64426,   9.38659,
     +    8.01335,   9.52104,   9.65136,
     +     .01055,    .01239, 282.23801,  10.20985,   9.95331,
     +    8.58847,  10.08704,  10.21707,
     +     .01082,    .01254, 297.16647,  10.76098,  10.50528,
     +    9.14844,  10.63853,  10.76830 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
     +     .01109,    .01269, 312.67249,  11.33640,  11.08141,
     +    9.73261,  11.21427,  11.34383,
     +     .01136,    .01285, 328.17569,  11.91746,  11.66307,
     +   10.32218,  11.79564,  11.92499,
     +     .01161,    .01300, 343.50232,  12.49337,  12.23951,
     +   10.90610,  12.37185,  12.50101,
     +     .01186,    .01314, 358.02451,  13.04610,  12.79271,
     +   11.46635,  12.92485,  13.05383,
     +     .01211,    .01328, 373.21063,  13.62540,  13.37245,
     +   12.05314,  13.50441,  13.63322 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
     +     .00358,    .00903,   2.19981,    .34318,    .00363,
     +     .00000,    .20022,    .34559,
     +     .00392,    .00924,   3.31547,    .41147,    .00828,
     +     .00000,    .25980,    .41400,
     +     .00441,    .00955,   5.37717,    .53068,    .01985,
     +     .00000,    .36418,    .53339,
     +     .00477,    .00977,   7.23278,    .63106,    .03361,
     +     .00000,    .45256,    .63390,
     +     .00515,    .01000,   9.51015,    .74803,    .05533,
     +     .00000,    .55632,    .75101,
     +     .00548,    .01020,  11.76054,    .85793,    .08243,
     +     .00000,    .65471,    .86102,
     +     .00580,    .01039,  14.18619,    .97089,    .11831,
     +     .00000,    .75696,    .97408,
     +     .00613,    .01059,  17.00868,   1.09710,    .17005,
     +     .00000,    .87285,   1.10041 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
     +     .00643,    .01077,  19.70396,   1.21171,    .22942,
     +     .00000,    .97984,   1.21511,
     +     .00671,    .01094,  22.55363,   1.32665,    .30227,
     +     .00000,   1.08903,   1.33014,
     +     .00694,    .01107,  24.93547,   1.41895,    .37199,
     +     .00000,   1.17830,   1.42251,
     +     .00742,    .01136,  30.50853,   1.62112,    .56133,
     +     .00000,   1.37905,   1.62483,
     +     .00784,    .01161,  35.80270,   1.79928,    .77074,
     +     .05639,   1.56203,   1.80312,
     +     .00831,    .01188,  42.26857,   2.00470,   1.05283,
     +     .25640,   1.77878,   2.00867,
     +     .00881,    .01217,  49.60823,   2.23036,   1.39049,
     +     .53965,   2.02083,   2.23447,
     +     .00926,    .01244,  56.81680,   2.45120,   1.72473,
     +     .80516,   2.25823,   2.45544 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
     +     .00972,    .01270,  64.61993,   2.69406,   2.07874,
     +    1.09410,   2.51730,   2.69843,
     +     .01011,    .01292,  71.49364,   2.91313,   2.38024,
     +    1.34787,   2.74844,   2.91760,
     +     .01058,    .01319,  80.24876,   3.20025,   2.75081,
     +    1.67213,   3.04781,   3.20485,
     +     .01100,    .01343,  88.42969,   3.47559,   3.08389,
     +    1.97543,   3.33169,   3.48030,
     +     .01139,    .01365,  96.33264,   3.74663,   3.39558,
     +    2.26835,   3.60880,   3.75144,
     +     .01188,    .01393, 106.72553,   4.11129,   3.79761,
     +    2.65644,   3.97913,   4.11622,
     +     .01235,    .01420, 116.94547,   4.47649,   4.18657,
     +    3.04013,   4.34802,   4.48153,
     +     .01280,    .01445, 126.96151,   4.83897,   4.56400,
     +    3.41760,   4.71293,   4.84412 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
     +     .01325,    .01470, 137.33948,   5.21927,   4.95423,
     +    3.81122,   5.09492,   5.22452,
     +     .01369,    .01495, 147.76689,   5.60650,   5.34787,
     +    4.21036,   5.48334,   5.61186,
     +     .01411,    .01518, 158.04164,   5.99067,   5.73605,
     +    4.60502,   5.86833,   5.99612,
     +     .01450,    .01540, 167.88145,   6.36330,   6.11127,
     +    4.98706,   6.24156,   6.36884,
     +     .01491,    .01563, 178.09494,   6.75254,   6.50233,
     +    5.38538,   6.63130,   6.75817,
     +     .01531,    .01585, 188.32661,   7.14657,   6.89765,
     +    5.78807,   7.02573,   7.15228,
     +     .01569,    .01606, 198.29472,   7.53333,   7.28535,
     +    6.18286,   7.41284,   7.53913,
     +     .01605,    .01626, 207.87163,   7.90845,   7.66119,
     +    6.56543,   7.78826,   7.91432 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
     +     .01642,    .01646, 217.76846,   8.29845,   8.05181,
     +    6.96282,   8.17855,   8.30440,
     +     .01679,    .01666, 227.60396,   8.69046,   8.44436,
     +    7.36201,   8.57082,   8.69648,
     +     .01714,    .01686, 237.28651,   9.07756,   8.83195,
     +    7.75587,   8.95818,   9.08366,
     +     .01747,    .01704, 246.40302,   9.44736,   9.20218,
     +    8.13202,   9.32822,   9.45353,
     +     .01782,    .01723, 255.90115,   9.83367,   9.58891,
     +    8.52466,   9.71477,   9.83991 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
     +     .00493,    .01030,   2.10183,    .33263,    .00339,
     +     .00000,    .19284,    .33511,
     +     .00535,    .01055,   3.13339,    .39558,    .00769,
     +     .00000,    .24777,    .39816,
     +     .00597,    .01093,   5.01512,    .50433,    .01829,
     +     .00000,    .34301,    .50706,
     +     .00642,    .01120,   6.68910,    .59502,    .03082,
     +     .00000,    .42289,    .59785,
     +     .00689,    .01148,   8.72434,    .69989,    .05047,
     +     .00000,    .51594,    .70283,
     +     .00729,    .01172,  10.71884,    .79771,    .07486,
     +     .00000,    .60358,    .80075,
     +     .00768,    .01195,  12.85347,    .89766,    .10701,
     +     .00000,    .69412,    .90077,
     +     .00809,    .01220,  15.31973,   1.00866,    .15317,
     +     .00000,    .79615,   1.01187 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
     +     .00846,    .01241,  17.66008,   1.10888,    .20593,
     +     .00000,    .88984,   1.11217,
     +     .00881,    .01261,  20.12126,   1.20887,    .27043,
     +     .00000,    .98500,   1.21223,
     +     .00908,    .01277,  22.16815,   1.28880,    .33197,
     +     .00000,   1.06249,   1.29222,
     +     .00968,    .01312,  26.92763,   1.46279,    .49831,
     +     .00000,   1.23577,   1.46633,
     +     .01019,    .01342,  31.41416,   1.61496,    .68125,
     +     .04858,   1.39266,   1.61860,
     +     .01077,    .01375,  36.85427,   1.78922,    .92623,
     +     .22022,   1.57738,   1.79298,
     +     .01138,    .01409,  42.98371,   1.97950,   1.21752,
     +     .46217,   1.78245,   1.98336,
     +     .01193,    .01441,  48.96198,   2.16483,   1.50393,
     +     .68760,   1.98254,   2.16880 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
     +     .01249,    .01472,  55.39217,   2.36786,   1.80524,
     +     .93170,   2.19993,   2.37194,
     +     .01296,    .01499,  61.02420,   2.55044,   2.06026,
     +    1.14510,   2.39312,   2.55461,
     +     .01354,    .01531,  68.15676,   2.78897,   2.37176,
     +    1.41654,   2.64238,   2.79324,
     +     .01405,    .01559,  74.78467,   3.01697,   2.65002,
     +    1.66930,   2.87782,   3.02132,
     +     .01452,    .01586,  81.15728,   3.24073,   2.90903,
     +    1.91244,   3.10686,   3.24516,
     +     .01512,    .01619,  89.49157,   3.54070,   3.24131,
     +    2.23321,   3.41175,   3.54523,
     +     .01569,    .01650,  97.64192,   3.83995,   3.56104,
     +    2.54892,   3.71421,   3.84457,
     +     .01622,    .01680, 105.59069,   4.13590,   3.86985,
     +    2.85826,   4.01226,   4.14062 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
     +     .01676,    .01709, 113.78700,   4.44528,   4.18777,
     +    3.17959,   4.32311,   4.45008,
     +     .01729,    .01739, 121.98212,   4.75915,   4.50716,
     +    3.50417,   4.63802,   4.76404,
     +     .01780,    .01766, 130.02464,   5.06952,   4.82101,
     +    3.82400,   4.94912,   5.07449,
     +     .01828,    .01792, 137.69200,   5.36956,   5.12330,
     +    4.13254,   5.24970,   5.37460,
     +     .01876,    .01819, 145.62180,   5.68205,   5.43740,
     +    4.45325,   5.56264,   5.68717,
     +     .01924,    .01845, 153.53380,   5.99741,   5.75392,
     +    4.77645,   5.87836,   6.00259,
     +     .01970,    .01870, 161.21461,   6.30607,   6.06344,
     +    5.09239,   6.18735,   6.31132,
     +     .02013,    .01893, 168.56754,   6.60461,   6.36265,
     +    5.39768,   6.48616,   6.60993 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
     +     .02058,    .01917, 176.14275,   6.91421,   6.67284,
     +    5.71398,   6.79604,   6.91960,
     +     .02101,    .01940, 183.64317,   7.22454,   6.98369,
     +    6.03083,   7.10662,   7.22999,
     +     .02144,    .01963, 191.00850,   7.53033,   7.28994,
     +    6.34274,   7.41265,   7.53584,
     +     .02183,    .01985, 197.91620,   7.82164,   7.58167,
     +    6.63979,   7.70418,   7.82720,
     +     .02224,    .02006, 205.09738,   8.12536,   7.88581,
     +    6.94926,   8.00812,   8.13099 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
     +     .00611,    .01131,   2.03473,    .32523,    .00322,
     +     .00000,    .18774,    .32779,
     +     .00660,    .01160,   3.00995,    .38456,    .00729,
     +     .00000,    .23952,    .38721,
     +     .00732,    .01203,   4.77252,    .48630,    .01725,
     +     .00000,    .32864,    .48909,
     +     .00784,    .01234,   6.32747,    .57057,    .02895,
     +     .00000,    .40288,    .57345,
     +     .00839,    .01266,   8.20531,    .66748,    .04723,
     +     .00000,    .48891,    .67045,
     +     .00886,    .01294,  10.03464,    .75744,    .06983,
     +     .00000,    .56953,    .76049,
     +     .00931,    .01320,  11.98258,    .84894,    .09955,
     +     .00000,    .65248,    .85207,
     +     .00979,    .01348,  14.22167,    .95014,    .14208,
     +     .00000,    .74558,    .95334 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
     +     .01021,    .01372,  16.33688,   1.04114,    .19055,
     +     .00000,    .83074,   1.04441,
     +     .01062,    .01396,  18.55279,   1.13159,    .24965,
     +     .00000,    .91694,   1.13492,
     +     .01094,    .01414,  20.38906,   1.20366,    .30592,
     +     .00000,    .98693,   1.20705,
     +     .01163,    .01453,  24.63976,   1.35984,    .45752,
     +     .00000,   1.14283,   1.36333,
     +     .01222,    .01487,  28.62448,   1.49569,    .62357,
     +     .04366,   1.28330,   1.49927,
     +     .01289,    .01525,  33.43116,   1.65051,    .84501,
     +     .19748,   1.44798,   1.65419,
     +     .01359,    .01564,  38.81794,   1.81881,   1.10709,
     +     .41361,   1.63002,   1.82260,
     +     .01423,    .01599,  44.04568,   1.98220,   1.36352,
     +     .61412,   1.80701,   1.98608 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
     +     .01487,    .01635,  49.64278,   2.16071,   1.63201,
     +     .83046,   1.99868,   2.16469,
     +     .01541,    .01665,  54.52503,   2.32090,   1.85824,
     +    1.01896,   2.16855,   2.32495,
     +     .01607,    .01702,  60.68240,   2.52970,   2.13334,
     +    1.25796,   2.38711,   2.53383,
     +     .01666,    .01734,  66.38128,   2.72882,   2.37798,
     +    1.47980,   2.59299,   2.73303,
     +     .01720,    .01763,  71.84218,   2.92383,   2.60484,
     +    1.69261,   2.79279,   2.92812,
     +     .01788,    .01801,  78.95563,   3.18459,   2.89473,
     +    1.97249,   3.05800,   3.18897,
     +     .01853,    .01836,  85.88413,   3.44400,   3.17258,
     +    2.24707,   3.32032,   3.44847,
     +     .01915,    .01870,  92.61746,   3.69990,   3.44003,
     +    2.51534,   3.57812,   3.70445 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
     +     .01976,    .01903,  99.53631,   3.96672,   3.71454,
     +    2.79323,   3.84628,   3.97135,
     +     .02037,    .01936, 106.42950,   4.23670,   3.98949,
     +    3.07315,   4.11721,   4.24140,
     +     .02095,    .01967, 113.17472,   4.50305,   4.25899,
     +    3.34830,   4.38424,   4.50783,
     +     .02149,    .01996, 119.58417,   4.75992,   4.51791,
     +    3.61308,   4.64160,   4.76476,
     +     .02204,    .02026, 126.19558,   5.02688,   4.78635,
     +    3.88770,   4.90898,   5.03179,
     +     .02259,    .02055, 132.77275,   5.29568,   5.05624,
     +    4.16382,   5.17814,   5.30065,
     +     .02311,    .02083, 139.14139,   5.55825,   5.31962,
     +    4.43317,   5.44101,   5.56328,
     +     .02360,    .02109, 145.22203,   5.81169,   5.57370,
     +    4.69292,   5.69472,   5.81678 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
     +     .02411,    .02136, 151.47275,   6.07406,   5.83664,
     +    4.96154,   5.95735,   6.07921,
     +     .02460,    .02162, 157.64485,   6.33651,   6.09960,
     +    5.23007,   6.22005,   6.34172,
     +     .02508,    .02187, 163.69498,   6.59472,   6.35827,
     +    5.49400,   6.47850,   6.59999,
     +     .02553,    .02211, 169.35281,   6.84021,   6.60417,
     +    5.74485,   6.72419,   6.84552,
     +     .02600,    .02236, 175.22527,   7.09581,   6.86018,
     +    6.00581,   6.98001,   7.10117 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
     +     .00717,    .01216,   1.98398,    .31952,    .00310,
     +     .00000,    .18385,    .32217,
     +     .00772,    .01249,   2.91728,    .37614,    .00699,
     +     .00000,    .23327,    .37888,
     +     .00853,    .01297,   4.59199,    .47267,    .01647,
     +     .00000,    .31785,    .47553,
     +     .00912,    .01331,   6.05984,    .55221,    .02756,
     +     .00000,    .38794,    .55515,
     +     .00974,    .01367,   7.82318,    .64328,    .04483,
     +     .00000,    .46881,    .64631,
     +     .01027,    .01398,   9.53299,    .72750,    .06613,
     +     .00000,    .54433,    .73060,
     +     .01078,    .01427,  11.34644,    .81287,    .09406,
     +     .00000,    .62176,    .81605,
     +     .01132,    .01458,  13.42261,    .90699,    .13395,
     +     .00000,    .70840,    .91024 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
     +     .01179,    .01484,  15.37700,    .99135,    .17931,
     +     .00000,    .78742,    .99466,
     +     .01224,    .01510,  17.41828,   1.07495,    .23450,
     +     .00000,    .86719,   1.07832,
     +     .01260,    .01530,  19.10509,   1.14141,    .28696,
     +     .00000,    .93182,   1.14482,
     +     .01337,    .01574,  22.99612,   1.28490,    .42794,
     +     .00000,   1.07532,   1.28842,
     +     .01404,    .01611,  26.62782,   1.40919,    .58188,
     +     .04016,   1.20414,   1.41279,
     +     .01479,    .01653,  30.99090,   1.55029,    .78652,
     +     .18136,   1.35465,   1.55398,
     +     .01557,    .01696,  35.86000,   1.70315,   1.02781,
     +     .37923,   1.52049,   1.70694,
     +     .01628,    .01735,  40.56685,   1.85116,   1.26304,
     +     .56221,   1.68125,   1.85503 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
     +     .01700,    .01775,  45.58806,   2.01255,   1.50839,
     +     .75907,   1.85493,   2.01651,
     +     .01760,    .01807,  49.95387,   2.15712,   1.71441,
     +     .93016,   2.00853,   2.16115,
     +     .01833,    .01847,  55.44192,   2.34525,   1.96405,
     +    1.14654,   2.20573,   2.34936,
     +     .01898,    .01883,  60.50534,   2.52434,   2.18528,
     +    1.34687,   2.39109,   2.52853,
     +     .01958,    .01915,  65.34453,   2.69944,   2.38982,
     +    1.53864,   2.57063,   2.70370,
     +     .02035,    .01957,  71.62815,   2.93313,   2.65038,
     +    1.79023,   2.80843,   2.93747,
     +     .02107,    .01995,  77.72909,   3.16511,   2.89934,
     +    2.03645,   3.04310,   3.16953,
     +     .02175,    .02032,  83.64171,   3.39348,   3.13836,
     +    2.27646,   3.27324,   3.39798 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
     +     .02243,    .02068,  89.70061,   3.63112,   3.38308,
     +    2.52454,   3.51214,   3.63569,
     +     .02310,    .02104,  95.71994,   3.87108,   3.62764,
     +    2.77389,   3.75298,   3.87573,
     +     .02374,    .02138, 101.59648,   4.10739,   3.86687,
     +    3.01852,   3.98993,   4.11211,
     +     .02434,    .02170, 107.16599,   4.33485,   4.09625,
     +    3.25347,   4.21787,   4.33963,
     +     .02495,    .02203, 112.89919,   4.57086,   4.33365,
     +    3.49674,   4.45428,   4.57570,
     +     .02555,    .02234, 118.58936,   4.80808,   4.57190,
     +    3.74089,   4.69184,   4.81298,
     +     .02613,    .02265, 124.08789,   5.03943,   4.80403,
     +    3.97868,   4.92349,   5.04439,
     +     .02668,    .02294, 129.32684,   5.26238,   5.02762,
     +    4.20761,   5.14671,   5.26740 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
     +     .02723,    .02323, 134.70294,   5.49287,   5.25866,
     +    4.44403,   5.37745,   5.49794,
     +     .02778,    .02351, 139.99979,   5.72306,   5.48936,
     +    4.67999,   5.60788,   5.72819,
     +     .02830,    .02379, 145.18486,   5.94927,   5.71602,
     +    4.91161,   5.83432,   5.95445,
     +     .02880,    .02405, 150.02211,   6.16397,   5.93114,
     +    5.13141,   6.04923,   6.16920,
     +     .02931,    .02432, 155.03711,   6.38728,   6.15486,
     +    5.35980,   6.27275,   6.39256 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
     +     .01149,    .01529,   1.83282,    .30192,    .00273,
     +     .00000,    .17211,    .30501,
     +     .01230,    .01575,   2.64519,    .35058,    .00611,
     +     .00000,    .21465,    .35375,
     +     .01348,    .01641,   4.07025,    .43210,    .01420,
     +     .00000,    .28616,    .43539,
     +     .01433,    .01688,   5.29387,    .49818,    .02355,
     +     .00000,    .34447,    .50155,
     +     .01522,    .01737,   6.73957,    .57286,    .03797,
     +     .00000,    .41088,    .57631,
     +     .01599,    .01779,   8.12089,    .64110,    .05561,
     +     .00000,    .47218,    .64463,
     +     .01672,    .01819,   9.56762,    .70955,    .07855,
     +     .00000,    .53439,    .71315,
     +     .01749,    .01861,  11.20301,    .78425,    .11109,
     +     .00000,    .60334,    .78791 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
     +     .01816,    .01898,  12.72532,    .85054,    .14785,
     +     .00000,    .66565,    .85427,
     +     .01881,    .01933,  14.30028,    .91564,    .19229,
     +     .00000,    .72802,    .91943,
     +     .01932,    .01960,  15.59008,    .96698,    .23431,
     +     .00000,    .77820,    .97081,
     +     .02042,    .02019,  18.53244,   1.07661,    .34638,
     +     .00000,    .88853,   1.08053,
     +     .02136,    .02070,  21.24089,   1.17027,    .46757,
     +     .03085,    .98643,   1.17427,
     +     .02241,    .02126,  24.45296,   1.27532,    .62707,
     +     .13858,   1.09959,   1.27942,
     +     .02351,    .02184,  27.98982,   1.38791,    .81301,
     +     .28838,   1.22299,   1.39210,
     +     .02450,    .02237,  31.36629,   1.49603,    .99216,
     +     .42545,   1.34155,   1.50030 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
     +     .02551,    .02291,  34.92696,   1.61319,   1.17685,
     +     .57163,   1.46866,   1.61755,
     +     .02635,    .02335,  37.99105,   1.71761,   1.33022,
     +     .69766,   1.58032,   1.72205,
     +     .02737,    .02388,  41.80252,   1.85279,   1.51401,
     +     .85580,   1.72272,   1.85730,
     +     .02828,    .02436,  45.28389,   1.98077,   1.67506,
     +    1.00105,   1.85568,   1.98536,
     +     .02911,    .02479,  48.58305,   2.10528,   1.82256,
     +    1.13913,   1.98370,   2.10994,
     +     .03016,    .02534,  52.82338,   2.27042,   2.00859,
     +    1.31893,   2.15211,   2.27516,
     +     .03116,    .02586,  56.89876,   2.43325,   2.18460,
     +    1.49350,   2.31709,   2.43808,
     +     .03209,    .02634,  60.81327,   2.59254,   2.35217,
     +    1.66246,   2.47781,   2.59745 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
     +     .03303,    .02682,  64.78919,   2.75726,   2.52241,
     +    1.83589,   2.64355,   2.76224,
     +     .03395,    .02730,  68.70295,   2.92249,   2.69128,
     +    2.00901,   2.80954,   2.92755,
     +     .03482,    .02775,  72.49606,   3.08429,   2.85543,
     +    2.17784,   2.97189,   3.08941,
     +     .03564,    .02817,  76.06029,   3.23908,   3.01180,
     +    2.33898,   3.12712,   3.24427,
     +     .03647,    .02859,  79.70510,   3.39886,   3.17278,
     +    2.50491,   3.28727,   3.40411,
     +     .03729,    .02901,  83.29496,   3.55856,   3.33339,
     +    2.67050,   3.44730,   3.56388,
     +     .03807,    .02941,  86.74123,   3.71351,   3.48908,
     +    2.83094,   3.60255,   3.71890,
     +     .03881,    .02979,  90.00233,   3.86211,   3.63827,
     +    2.98462,   3.75140,   3.86755 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
     +     .03956,    .03017,  93.32998,   4.01503,   3.79175,
     +    3.14260,   3.90459,   4.02053,
     +     .04030,    .03054,  96.58501,   4.16698,   3.94422,
     +    3.29947,   4.05678,   4.17254,
     +     .04101,    .03090,  99.75745,   4.31574,   4.09344,
     +    3.45285,   4.20577,   4.32135,
     +     .04168,    .03124, 102.69358,   4.45619,   4.23432,
     +    3.59764,   4.34644,   4.46186,
     +     .04236,    .03159, 105.72601,   4.60179,   4.38035,
     +    3.74757,   4.49226,   4.60750 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
     +     .01795,    .01936,   1.68967,    .28426,    .00240,
     +     .00000,    .16080,    .28811,
     +     .01912,    .01998,   2.39354,    .32563,    .00531,
     +     .00000,    .19704,    .32958,
     +     .02084,    .02088,   3.59984,    .39372,    .01217,
     +     .00000,    .25692,    .39783,
     +     .02207,    .02153,   4.61383,    .44804,    .02000,
     +     .00000,    .30497,    .45225,
     +     .02335,    .02220,   5.79136,    .50863,    .03195,
     +     .00000,    .35898,    .51295,
     +     .02444,    .02278,   6.89936,    .56334,    .04643,
     +     .00000,    .40826,    .56776,
     +     .02549,    .02332,   8.04475,    .61764,    .06513,
     +     .00000,    .45778,    .62215,
     +     .02659,    .02389,   9.32237,    .67629,    .09146,
     +     .00000,    .51211,    .68090 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
     +     .02755,    .02439,  10.49782,    .72781,    .12101,
     +     .00000,    .56075,    .73250,
     +     .02847,    .02487,  11.70198,    .77794,    .15652,
     +     .00000,    .60904,    .78271,
     +     .02920,    .02524,  12.67879,    .81714,    .18991,
     +     .00000,    .64760,    .82197,
     +     .03074,    .02604,  14.88149,    .89989,    .27829,
     +     .00000,    .73156,    .90485,
     +     .03207,    .02672,  16.87975,    .96958,    .37294,
     +     .02349,    .80515,    .97465,
     +     .03355,    .02748,  19.21758,   1.04675,    .49627,
     +     .10499,    .88928,   1.05195,
     +     .03509,    .02827,  21.75570,   1.12853,    .63841,
     +     .21742,    .98006,   1.13386,
     +     .03648,    .02897,  24.14689,   1.20642,    .77373,
     +     .31919,   1.06649,   1.21186 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
     +     .03788,    .02969,  26.63796,   1.29031,    .91156,
     +     .42676,   1.15841,   1.29587,
     +     .03905,    .03028,  28.75829,   1.36471,   1.02471,
     +     .51874,   1.23862,   1.37036,
     +     .04046,    .03099,  31.36637,   1.46052,   1.15874,
     +     .63320,   1.34022,   1.46629,
     +     .04171,    .03162,  33.72319,   1.55076,   1.27482,
     +     .73749,   1.43443,   1.55663,
     +     .04285,    .03220,  35.93679,   1.63812,   1.38007,
     +     .83594,   1.52460,   1.64408,
     +     .04430,    .03292,  38.75061,   1.75325,   1.51143,
     +     .96311,   1.64237,   1.75933,
     +     .04566,    .03361,  41.42558,   1.86599,   1.63442,
     +    1.08558,   1.75687,   1.87218,
     +     .04694,    .03425,  43.97060,   1.97558,   1.75047,
     +    1.20323,   1.86766,   1.98187 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
     +     .04822,    .03489,  46.53087,   2.08815,   1.86743,
     +    1.32314,   1.98113,   2.09455,
     +     .04947,    .03551,  49.02591,   2.20031,   1.98251,
     +    1.44198,   2.09397,   2.20681,
     +     .05065,    .03610,  51.42525,   2.30950,   2.09366,
     +    1.55714,   2.20368,   2.31609,
     +     .05176,    .03665,  53.65855,   2.41328,   2.19881,
     +    1.66634,   2.30789,   2.41996,
     +     .05288,    .03720,  55.92618,   2.51983,   2.30645,
     +    1.77816,   2.41483,   2.52660,
     +     .05399,    .03775,  58.14085,   2.62570,   2.41319,
     +    1.88908,   2.52105,   2.63256,
     +     .05503,    .03827,  60.25170,   2.72789,   2.51609,
     +    1.99596,   2.62355,   2.73483,
     +     .05603,    .03876,  62.23399,   2.82535,   2.61418,
     +    2.09780,   2.72130,   2.83237 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
     +     .05703,    .03925,  64.24445,   2.92519,   2.71460,
     +    2.20197,   2.82143,   2.93229,
     +     .05802,    .03974,  66.19498,   3.02386,   2.81382,
     +    2.30486,   2.92037,   3.03103,
     +     .05896,    .04020,  68.08741,   3.12007,   2.91055,
     +    2.40505,   3.01685,   3.12733,
     +     .05986,    .04064,  69.82254,   3.21040,   3.00134,
     +    2.49910,   3.10741,   3.21772,
     +     .06076,    .04109,  71.60773,   3.30371,   3.09513,
     +    2.59614,   3.20098,   3.31111 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
     +     .02314,    .02233,   1.60840,    .27377,    .00222,
     +     .00000,    .15427,    .27822,
     +     .02460,    .02308,   2.25374,    .31114,    .00488,
     +     .00000,    .18710,    .31573,
     +     .02672,    .02417,   3.34417,    .37203,    .01109,
     +     .00000,    .24076,    .37682,
     +     .02824,    .02495,   4.24897,    .42014,    .01811,
     +     .00000,    .28341,    .42507,
     +     .02982,    .02576,   5.28867,    .47341,    .02877,
     +     .00000,    .33101,    .47848,
     +     .03117,    .02644,   6.25788,    .52116,    .04161,
     +     .00000,    .37413,    .52636,
     +     .03246,    .02710,   7.25180,    .56827,    .05813,
     +     .00000,    .41719,    .57359,
     +     .03381,    .02778,   8.35139,    .61884,    .08128,
     +     .00000,    .46418,    .62428 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
     +     .03498,    .02837,   9.35580,    .66299,    .10716,
     +     .00000,    .50600,    .66854,
     +     .03611,    .02894,  10.37855,    .70570,    .13814,
     +     .00000,    .54731,    .71135,
     +     .03699,    .02939,  11.20332,    .73893,    .16719,
     +     .00000,    .58016,    .74466,
     +     .03888,    .03034,  13.04999,    .80859,    .24371,
     +     .00000,    .65124,    .81449,
     +     .04050,    .03115,  14.71023,    .86674,    .32520,
     +     .01992,    .71310,    .87278,
     +     .04230,    .03205,  16.63633,    .93061,    .43075,
     +     .08877,    .78333,    .93681,
     +     .04416,    .03298,  18.70919,    .99783,    .55157,
     +     .18328,    .85863,   1.00420,
     +     .04584,    .03382,  20.64608,   1.06153,    .66576,
     +     .26828,    .92992,   1.06805 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
     +     .04754,    .03467,  22.64858,   1.12991,    .78124,
     +     .35764,   1.00538,   1.13657,
     +     .04894,    .03537,  24.34144,   1.19037,    .87538,
     +     .43367,   1.07096,   1.19716,
     +     .05064,    .03621,  26.40907,   1.26801,    .98610,
     +     .52782,   1.15369,   1.27495,
     +     .05214,    .03695,  28.26501,   1.34090,   1.08130,
     +     .61317,   1.23008,   1.34797,
     +     .05351,    .03763,  29.99847,   1.41127,   1.16709,
     +     .69340,   1.30294,   1.41846,
     +     .05525,    .03848,  32.18651,   1.50365,   1.27347,
     +     .79654,   1.39768,   1.51099,
     +     .05688,    .03928,  34.25222,   1.59375,   1.37241,
     +     .89536,   1.48937,   1.60122,
     +     .05840,    .04003,  36.20583,   1.68098,   1.46527,
     +     .98988,   1.57771,   1.68858 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
     +     .05992,    .04078,  38.15918,   1.77023,   1.55837,
     +    1.08578,   1.66781,   1.77796,
     +     .06141,    .04151,  40.05043,   1.85877,   1.64954,
     +    1.18041,   1.75703,   1.86664,
     +     .06281,    .04219,  41.86030,   1.94466,   1.73722,
     +    1.27176,   1.84345,   1.95265,
     +     .06413,    .04284,  43.53445,   2.02598,   1.81983,
     +    1.35803,   1.92521,   2.03407,
     +     .06546,    .04348,  45.22674,   2.10919,   1.90409,
     +    1.44606,   2.00882,   2.11739,
     +     .06676,    .04412,  46.87040,   2.19156,   1.98733,
     +    1.53307,   2.09157,   2.19988,
     +     .06800,    .04472,  48.42981,   2.27080,   2.06732,
     +    1.61663,   2.17116,   2.27922,
     +     .06917,    .04529,  49.88694,   2.34614,   2.14329,
     +    1.69597,   2.24681,   2.35465 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
     +     .07035,    .04586,  51.35899,   2.42309,   2.22086,
     +    1.77690,   2.32407,   2.43170,
     +     .07151,    .04642,  52.77934,   2.49886,   2.29722,
     +    1.85656,   2.40015,   2.50758,
     +     .07263,    .04696,  54.15359,   2.57259,   2.37150,
     +    1.93394,   2.47417,   2.58140,
     +     .07367,    .04747,  55.40548,   2.64155,   2.44096,
     +    2.00632,   2.54339,   2.65044,
     +     .07474,    .04798,  56.69048,   2.71264,   2.51257,
     +    2.08083,   2.61476,   2.72163 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
     +     .02767,    .02481,   1.55126,    .26619,    .00210,
     +     .00000,    .14964,    .27115,
     +     .02937,    .02567,   2.15695,    .30083,    .00459,
     +     .00000,    .18013,    .30595,
     +     .03183,    .02691,   3.16980,    .35687,    .01036,
     +     .00000,    .22963,    .36223,
     +     .03360,    .02780,   4.00224,    .40085,    .01685,
     +     .00000,    .26870,    .40639,
     +     .03543,    .02872,   4.95140,    .44928,    .02665,
     +     .00000,    .31205,    .45499,
     +     .03699,    .02950,   5.83011,    .49248,    .03842,
     +     .00000,    .35114,    .49835,
     +     .03847,    .03024,   6.72593,    .53491,    .05350,
     +     .00000,    .39002,    .54092,
     +     .04003,    .03102,   7.71094,    .58024,    .07458,
     +     .00000,    .43225,    .58640 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
     +     .04138,    .03169,   8.60593,    .61965,    .09806,
     +     .00000,    .46969,    .62593,
     +     .04268,    .03233,   9.51320,    .65761,    .12610,
     +     .00000,    .50654,    .66402,
     +     .04370,    .03284,  10.24164,    .68704,    .15233,
     +     .00000,    .53574,    .69354,
     +     .04587,    .03392,  11.86404,    .74840,    .22121,
     +     .00000,    .59866,    .75511,
     +     .04772,    .03483,  13.31290,    .79928,    .29426,
     +     .01766,    .65311,    .80616,
     +     .04978,    .03585,  14.98328,    .85484,    .38847,
     +     .07853,    .71464,    .86191,
     +     .05190,    .03690,  16.76921,    .91301,    .49577,
     +     .16181,    .78028,    .92028,
     +     .05383,    .03784,  18.42776,    .96794,    .59667,
     +     .23635,    .84217,    .97539 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
     +     .05576,    .03879,  20.13278,   1.02674,    .69815,
     +     .31440,    .90748,   1.03437,
     +     .05736,    .03958,  21.56677,   1.07865,    .78046,
     +     .38056,    .96405,   1.08642,
     +     .05928,    .04052,  23.30890,   1.14515,    .87676,
     +     .46219,   1.03520,   1.15309,
     +     .06098,    .04135,  24.86480,   1.20745,    .95913,
     +     .53594,   1.10071,   1.21555,
     +     .06254,    .04211,  26.31197,   1.26747,   1.03301,
     +     .60503,   1.16303,   1.27571,
     +     .06451,    .04307,  28.12886,   1.34605,   1.12417,
     +     .69354,   1.24379,   1.35447,
     +     .06635,    .04396,  29.83519,   1.42245,   1.20855,
     +     .77804,   1.32169,   1.43103,
     +     .06807,    .04480,  31.44160,   1.49621,   1.28742,
     +     .85858,   1.39651,   1.50495 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
     +     .06978,    .04563,  33.04035,   1.57145,   1.36620,
     +     .94005,   1.47259,   1.58034,
     +     .07145,    .04644,  34.58054,   1.64587,   1.44305,
     +    1.02017,   1.54768,   1.65491,
     +     .07304,    .04720,  36.04903,   1.71786,   1.51675,
     +    1.09729,   1.62022,   1.72705,
     +     .07452,    .04792,  37.40087,   1.78582,   1.58596,
     +    1.16990,   1.68863,   1.79513,
     +     .07601,    .04864,  38.76268,   1.85519,   1.65637,
     +    1.24382,   1.75843,   1.86464,
     +     .07747,    .04934,  40.07969,   1.92367,   1.72573,
     +    1.31666,   1.82731,   1.93325,
     +     .07885,    .05001,  41.32477,   1.98939,   1.79221,
     +    1.38645,   1.89340,   1.99909,
     +     .08016,    .05064,  42.48364,   2.05171,   1.85520,
     +    1.45255,   1.95606,   2.06153 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
     +     .08148,    .05127,  43.65089,   2.11524,   1.91937,
     +    1.51983,   2.01992,   2.12517,
     +     .08278,    .05189,  44.77221,   2.17763,   1.98238,
     +    1.58588,   2.08264,   2.18767,
     +     .08402,    .05249,  45.85492,   2.23823,   2.04356,
     +    1.64993,   2.14355,   2.24839,
     +     .08519,    .05304,  46.83604,   2.29475,   2.10061,
     +    1.70967,   2.20036,   2.30500,
     +     .08637,    .05361,  47.84144,   2.35293,   2.15934,
     +    1.77109,   2.25883,   2.36329 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
     +     .03188,    .02707,   1.50536,    .26013,    .00201,
     +     .00000,    .14588,    .26544,
     +     .03379,    .02802,   2.08069,    .29269,    .00437,
     +     .00000,    .17459,    .29818,
     +     .03654,    .02941,   3.03457,    .34507,    .00982,
     +     .00000,    .22093,    .35083,
     +     .03852,    .03039,   3.81245,    .38597,    .01591,
     +     .00000,    .25731,    .39191,
     +     .04056,    .03141,   4.69378,    .43080,    .02507,
     +     .00000,    .29751,    .43694,
     +     .04230,    .03227,   5.50506,    .47063,    .03603,
     +     .00000,    .33361,    .47693,
     +     .04395,    .03309,   6.32813,    .50960,    .05004,
     +     .00000,    .36938,    .51606,
     +     .04568,    .03395,   7.22861,    .55109,    .06957,
     +     .00000,    .40811,    .55771 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
     +     .04718,    .03470,   8.04321,    .58703,    .09128,
     +     .00000,    .44233,    .59379,
     +     .04862,    .03541,   8.86598,    .62153,    .11715,
     +     .00000,    .47591,    .62843,
     +     .04975,    .03597,   9.52413,    .64819,    .14131,
     +     .00000,    .50246,    .65520,
     +     .05216,    .03715,  10.98367,    .70354,    .20457,
     +     .00000,    .55944,    .71077,
     +     .05421,    .03816,  12.27984,    .74919,    .27144,
     +     .01602,    .60853,    .75660,
     +     .05648,    .03928,  13.76643,    .79879,    .35737,
     +     .07113,    .66378,    .80641,
     +     .05883,    .04043,  15.34731,    .85049,    .45486,
     +     .14630,    .72250,    .85833,
     +     .06095,    .04147,  16.80792,    .89916,    .54613,
     +     .21332,    .77768,    .90720 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
     +     .06307,    .04251,  18.30226,    .95117,    .63754,
     +     .28327,    .83573,    .95940,
     +     .06483,    .04336,  19.55371,    .99700,    .71137,
     +     .34240,    .88590,   1.00539,
     +     .06695,    .04439,  21.06742,   1.05562,    .79737,
     +     .41512,    .94883,   1.06420,
     +     .06881,    .04530,  22.41353,   1.11044,    .87061,
     +     .48062,   1.00664,   1.11919,
     +     .07052,    .04613,  23.66113,   1.16316,    .93605,
     +     .54184,   1.06151,   1.17207,
     +     .07266,    .04717,  25.22055,   1.23204,   1.01648,
     +     .62003,   1.13243,   1.24113,
     +     .07468,    .04814,  26.67834,   1.29883,   1.09063,
     +     .69445,   1.20065,   1.30811,
     +     .07655,    .04905,  28.04554,   1.36317,   1.15969,
     +     .76519,   1.26601,   1.37261 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
     +     .07843,    .04995,  29.40101,   1.42863,   1.22845,
     +     .83655,   1.33229,   1.43824,
     +     .08024,    .05083,  30.70124,   1.49322,   1.29534,
     +     .90654,   1.39754,   1.50299,
     +     .08197,    .05165,  31.93709,   1.55557,   1.35932,
     +     .97376,   1.46043,   1.56549,
     +     .08358,    .05243,  33.06989,   1.61426,   1.41923,
     +    1.03688,   1.51959,   1.62433,
     +     .08520,    .05320,  34.20782,   1.67406,   1.48006,
     +    1.10100,   1.57983,   1.68427,
     +     .08678,    .05396,  35.30437,   1.73296,   1.53984,
     +    1.16406,   1.63913,   1.74330,
     +     .08828,    .05468,  36.33779,   1.78936,   1.59701,
     +    1.22434,   1.69592,   1.79984,
     +     .08970,    .05536,  37.29630,   1.84274,   1.65107,
     +    1.28132,   1.74965,   1.85334 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
     +     .09113,    .05604,  38.25936,   1.89705,   1.70605,
     +    1.33922,   1.80431,   1.90778,
     +     .09253,    .05671,  39.18117,   1.95028,   1.75991,
     +    1.39593,   1.85787,   1.96113,
     +     .09387,    .05734,  40.06975,   2.00191,   1.81214,
     +    1.45085,   1.90983,   2.01288,
     +     .09513,    .05794,  40.87091,   2.04994,   1.86072,
     +    1.50195,   1.95816,   2.06102,
     +     .09641,    .05855,  41.69076,   2.09933,   1.91066,
     +    1.55442,   2.00785,   2.11052 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
     +     .04927,    .03596,   1.36633,    .24058,    .00175,
     +     .00000,    .13424,    .24757,
     +     .05197,    .03729,   1.85383,    .26705,    .00376,
     +     .00000,    .15776,    .27430,
     +     .05585,    .03921,   2.63963,    .30891,    .00829,
     +     .00000,    .19505,    .31654,
     +     .05861,    .04056,   3.26414,    .34104,    .01325,
     +     .00000,    .22384,    .34894,
     +     .06145,    .04196,   3.95693,    .37578,    .02062,
     +     .00000,    .25521,    .38397,
     +     .06386,    .04314,   4.58279,    .40626,    .02934,
     +     .00000,    .28304,    .41468,
     +     .06615,    .04426,   5.20763,    .43573,    .04038,
     +     .00000,    .31031,    .44437,
     +     .06853,    .04543,   5.87980,    .46674,    .05564,
     +     .00000,    .33950,    .47561 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
     +     .07058,    .04643,   6.47907,    .49328,    .07248,
     +     .00000,    .36503,    .50234,
     +     .07255,    .04739,   7.07706,    .51847,    .09239,
     +     .00000,    .38983,    .52773,
     +     .07410,    .04814,   7.54954,    .53775,    .11089,
     +     .00000,    .40927,    .54715,
     +     .07736,    .04973,   8.58230,    .57718,    .15888,
     +     .00000,    .45051,    .58689,
     +     .08013,    .05108,   9.48250,    .60908,    .20908,
     +     .01170,    .48552,    .61906,
     +     .08319,    .05256,  10.49706,    .64318,    .27288,
     +     .05163,    .52440,    .65345,
     +     .08633,    .05408,  11.55633,    .67822,    .34431,
     +     .10561,    .56518,    .68878,
     +     .08915,    .05544,  12.51819,    .71088,    .41028,
     +     .15314,    .60309,    .72170 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
     +     .09197,    .05680,  13.48654,    .74555,    .47543,
     +     .20222,    .64260,    .75664,
     +     .09430,    .05791,  14.28568,    .77596,    .52734,
     +     .24330,    .67648,    .78727,
     +     .09708,    .05925,  15.23749,    .81466,    .58695,
     +     .29334,    .71863,    .82622,
     +     .09952,    .06042,  16.07168,    .85066,    .63698,
     +     .33797,    .75704,    .86244,
     +     .10175,    .06149,  16.83567,    .88510,    .68112,
     +     .37934,    .79325,    .89709,
     +     .10454,    .06282,  17.77546,    .92975,    .73463,
     +     .43167,    .83963,    .94199,
     +     .10714,    .06406,  18.64043,    .97270,    .78330,
     +     .48098,    .88383,    .98518,
     +     .10957,    .06521,  19.44093,   1.01376,    .82812,
     +     .52743,    .92583,   1.02646 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
     +     .11197,    .06635,  20.22356,   1.05520,    .87227,
     +     .57388,    .96805,   1.06812,
     +     .11430,    .06745,  20.96282,   1.09572,    .91478,
     +     .61903,   1.00924,   1.10885,
     +     .11649,    .06849,  21.65794,   1.13457,    .95510,
     +     .66206,   1.04866,   1.14789,
     +     .11854,    .06945,  22.28532,   1.17082,    .99252,
     +     .70214,   1.08541,   1.18433,
     +     .12059,    .07042,  22.90916,   1.20751,   1.03023,
     +     .74257,   1.12258,   1.22120,
     +     .12258,    .07136,  23.50215,   1.24337,   1.06700,
     +     .78202,   1.15889,   1.25723,
     +     .12448,    .07225,  24.05485,   1.27747,   1.10192,
     +     .81948,   1.19342,   1.29150,
     +     .12625,    .07308,  24.56099,   1.30951,   1.13470,
     +     .85465,   1.22585,   1.32370 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
     +     .12804,    .07392,  25.06487,   1.34192,   1.16784,
     +     .89017,   1.25866,   1.35626,
     +     .12979,    .07473,  25.54005,   1.37344,   1.20006,
     +     .92472,   1.29056,   1.38794,
     +     .13146,    .07551,  25.99553,   1.40388,   1.23116,
     +     .95801,   1.32137,   1.41852,
     +     .13302,    .07624,  26.39841,   1.43195,   1.25984,
     +     .98875,   1.34977,   1.44672,
     +     .13460,    .07698,  26.80886,   1.46069,   1.28922,
     +    1.02017,   1.37887,   1.47561 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
     +     .07586,    .04931,   1.23002,    .21969,    .00155,
     +     .00000,    .12223,    .22912,
     +     .07959,    .05115,   1.63809,    .24061,    .00327,
     +     .00000,    .14104,    .25042,
     +     .08492,    .05377,   2.27504,    .27311,    .00701,
     +     .00000,    .17031,    .28345,
     +     .08869,    .05563,   2.76656,    .29762,    .01101,
     +     .00000,    .19252,    .30835,
     +     .09255,    .05752,   3.29883,    .32375,    .01686,
     +     .00000,    .21638,    .33486,
     +     .09580,    .05911,   3.76946,    .34636,    .02368,
     +     .00000,    .23725,    .35779,
     +     .09887,    .06060,   4.23075,    .36794,    .03221,
     +     .00000,    .25747,    .37968,
     +     .10206,    .06216,   4.71726,    .39034,    .04389,
     +     .00000,    .27884,    .40239 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
     +     .10480,    .06348,   5.14378,    .40926,    .05665,
     +     .00000,    .29732,    .42158,
     +     .10741,    .06475,   5.56356,    .42700,    .07163,
     +     .00000,    .31507,    .43957,
     +     .10945,    .06574,   5.89042,    .44040,    .08545,
     +     .00000,    .32885,    .45317,
     +     .11375,    .06781,   6.59297,    .46736,    .12097,
     +     .00000,    .35771,    .48055,
     +     .11737,    .06956,   7.19210,    .48869,    .15768,
     +     .00831,    .38180,    .50222,
     +     .12134,    .07147,   7.85353,    .51102,    .20377,
     +     .03645,    .40813,    .52493,
     +     .12541,    .07341,   8.52903,    .53356,    .25466,
     +     .07412,    .43535,    .54785,
     +     .12903,    .07514,   9.12980,    .55434,    .30097,
     +     .10682,    .46033,    .56898 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
     +     .13264,    .07686,   9.72303,    .57627,    .34599,
     +     .14021,    .48611,    .59124,
     +     .13559,    .07826,  10.20388,    .59541,    .38131,
     +     .16785,    .50802,    .61065,
     +     .13910,    .07992,  10.76553,    .61964,    .42123,
     +     .20115,    .53502,    .63521,
     +     .14218,    .08137,  11.24905,    .64205,    .45418,
     +     .23053,    .55940,    .65790,
     +     .14497,    .08269,  11.68550,    .66338,    .48283,
     +     .25750,    .58221,    .67949,
     +     .14845,    .08432,  12.21105,    .69080,    .51701,
     +     .29125,    .61112,    .70722,
     +     .15167,    .08583,  12.68515,    .71693,    .54761,
     +     .32269,    .63837,    .73364,
     +     .15465,    .08722,  13.11652,    .74169,    .57541,
     +     .35202,    .66402,    .75867 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
     +     .15760,    .08859,  13.53062,    .76646,    .60246,
     +     .38106,    .68956,    .78370,
     +     .16043,    .08991,  13.91350,    .79041,    .62818,
     +     .40898,    .71420,    .80790,
     +     .16310,    .09114,  14.26853,    .81319,    .65234,
     +     .43538,    .73758,    .83092,
     +     .16557,    .09228,  14.58187,    .83423,    .67452,
     +     .45972,    .75915,    .85216,
     +     .16803,    .09341,  14.88923,    .85535,    .69668,
     +     .48409,    .78080,    .87350,
     +     .17043,    .09451,  15.17560,    .87579,    .71809,
     +     .50766,    .80174,    .89415,
     +     .17268,    .09555,  15.43833,    .89508,    .73825,
     +     .52987,    .82150,    .91363,
     +     .17479,    .09651,  15.67432,    .91304,    .75701,
     +     .55055,    .83989,    .93176 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
     +     .17690,    .09747,  15.90614,    .93107,    .77584,
     +     .57129,    .85836,    .94998,
     +     .17896,    .09841,  16.11941,    .94843,    .79397,
     +     .59129,    .87614,    .96751,
     +     .18092,    .09930,  16.32247,    .96511,    .81138,
     +     .61046,    .89323,    .98436,
     +     .18274,    .10013,  16.49630,    .98032,    .82727,
     +     .62799,    .90882,    .99972,
     +     .18459,    .10096,  16.67254,    .99583,    .84347,
     +     .64584,    .92471,   1.01539 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
     +     .09741,    .06021,   1.15401,    .20673,    .00147,
     +     .00000,    .11511,    .21829,
     +     .10186,    .06241,   1.51927,    .22466,    .00304,
     +     .00000,    .13139,    .23668,
     +     .10819,    .06552,   2.07739,    .25221,    .00640,
     +    -.00001,    .15645,    .26488,
     +     .11265,    .06771,   2.49982,    .27278,    .00992,
     +    -.00001,    .17526,    .28591,
     +     .11719,    .06993,   2.95001,    .29450,    .01499,
     +    -.00001,    .19529,    .30809,
     +     .12101,    .07180,   3.34243,    .31313,    .02084,
     +    -.00001,    .21266,    .32710,
     +     .12461,    .07354,   3.72236,    .33077,    .02812,
     +    -.00001,    .22936,    .34510,
     +     .12833,    .07534,   4.11786,    .34892,    .03799,
     +    -.00001,    .24687,    .36361 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
     +     .13150,    .07688,   4.46064,    .36411,    .04871,
     +    -.00001,    .26190,    .37912,
     +     .13454,    .07834,   4.79487,    .37823,    .06123,
     +    -.00001,    .27624,    .39354,
     +     .13689,    .07947,   5.05255,    .38881,    .07272,
     +    -.00001,    .28729,    .40435,
     +     .14184,    .08185,   5.60029,    .40985,    .10209,
     +    -.00001,    .31024,    .42586,
     +     .14599,    .08383,   6.06033,    .42622,    .13221,
     +     .00670,    .32919,    .44263,
     +     .15053,    .08600,   6.56101,    .44311,    .16974,
     +     .02927,    .34969,    .45995,
     +     .15515,    .08819,   7.06458,    .45995,    .21079,
     +     .05930,    .37066,    .47722,
     +     .15926,    .09012,   7.50590,    .47536,    .24780,
     +     .08514,    .38975,    .49301 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
     +     .16332,    .09204,   7.93574,    .49155,    .28341,
     +     .11131,    .40931,    .50958,
     +     .16664,    .09359,   8.27963,    .50566,    .31110,
     +     .13284,    .42584,    .52400,
     +     .17057,    .09543,   8.67572,    .52346,    .34204,
     +     .15859,    .44608,    .54214,
     +     .17399,    .09702,   9.01213,    .53986,    .36730,
     +     .18114,    .46426,    .55886,
     +     .17709,    .09846,   9.31252,    .55544,    .38906,
     +     .20173,    .48117,    .57471,
     +     .18094,    .10023,   9.66848,    .57534,    .41474,
     +     .22730,    .50246,    .59496,
     +     .18449,    .10186,   9.98467,    .59419,    .43747,
     +     .25095,    .52238,    .61412,
     +     .18776,    .10337,  10.26865,    .61195,    .45794,
     +     .27286,    .54101,    .63217 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
     +     .19099,    .10484,  10.53730,    .62961,    .47770,
     +     .29442,    .55944,    .65009,
     +     .19407,    .10624,  10.78104,    .64654,    .49630,
     +     .31500,    .57707,    .66729,
     +     .19697,    .10755,  11.00455,    .66255,    .51367,
     +     .33435,    .59370,    .68355,
     +     .19964,    .10876,  11.19810,    .67723,    .52949,
     +     .35208,    .60894,    .69845,
     +     .20229,    .10995,  11.38579,    .69189,    .54521,
     +     .36973,    .62414,    .71333,
     +     .20486,    .11110,  11.55744,    .70597,    .56029,
     +     .38670,    .63875,    .72762,
     +     .20727,    .11218,  11.71269,    .71918,    .57441,
     +     .40261,    .65245,    .74102,
     +     .20953,    .11318,  11.84955,    .73139,    .58746,
     +     .41734,    .66512,    .75342 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
     +     .21178,    .11418,  11.98237,    .74360,    .60051,
     +     .43205,    .67778,    .76581,
     +     .21396,    .11515,  12.10151,    .75526,    .61298,
     +     .44615,    .68989,    .77764,
     +     .21603,    .11606,  12.21439,    .76643,    .62492,
     +     .45963,    .70149,    .78898,
     +     .21795,    .11691,  12.30742,    .77651,    .63572,
     +     .47186,    .71196,    .79921,
     +     .21989,    .11776,  12.40146,    .78678,    .64671,
     +     .48428,    .72263,    .80963 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
     +     .11618,    .06988,   1.10275,    .19721,    .00142,
     +     .00000,    .11003,    .21071,
     +     .12119,    .07235,   1.43901,    .21314,    .00292,
     +     .00000,    .12462,    .22716,
     +     .12829,    .07583,   1.94446,    .23742,    .00603,
     +    -.00001,    .14690,    .25218,
     +     .13327,    .07827,   2.32131,    .25541,    .00924,
     +    -.00001,    .16349,    .27067,
     +     .13832,    .08073,   2.71796,    .27426,    .01382,
     +     .00000,    .18104,    .29005,
     +     .14256,    .08279,   3.05988,    .29033,    .01905,
     +    -.00001,    .19616,    .30654,
     +     .14654,    .08471,   3.38777,    .30544,    .02551,
     +    -.00001,    .21060,    .32205,
     +     .15064,    .08669,   3.72554,    .32089,    .03423,
     +    -.00001,    .22566,    .33790 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
     +     .15414,    .08836,   4.01568,    .33372,    .04364,
     +    -.00001,    .23851,    .35107,
     +     .15747,    .08996,   4.29656,    .34557,    .05459,
     +    -.00001,    .25070,    .36325,
     +     .16005,    .09119,   4.51136,    .35439,    .06460,
     +    -.00001,    .26005,    .37232,
     +     .16546,    .09376,   4.96388,    .37176,    .09005,
     +    -.00001,    .27933,    .39020,
     +     .16998,    .09590,   5.33935,    .38510,    .11601,
     +     .00570,    .29511,    .40396,
     +     .17491,    .09823,   5.74331,    .39868,    .14815,
     +     .02483,    .31204,    .41800,
     +     .17990,    .10057,   6.14455,    .41208,    .18309,
     +     .05017,    .32922,    .43187,
     +     .18432,    .10263,   6.49195,    .42427,    .21434,
     +     .07183,    .34476,    .44446 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
     +     .18869,    .10465,   6.82642,    .43704,    .24420,
     +     .09364,    .36059,    .45763,
     +     .19223,    .10629,   7.09111,    .44816,    .26723,
     +     .11148,    .37391,    .46906,
     +     .19643,    .10822,   7.39225,    .46214,    .29276,
     +     .13270,    .39014,    .48341,
     +     .20006,    .10988,   7.64509,    .47501,    .31342,
     +     .15119,    .40464,    .49660,
     +     .20335,    .11138,   7.86879,    .48720,    .33108,
     +     .16799,    .41809,    .50907,
     +     .20741,    .11322,   8.13000,    .50270,    .35175,
     +     .18874,    .43491,    .52493,
     +     .21114,    .11490,   8.35876,    .51731,    .36989,
     +     .20782,    .45056,    .53985,
     +     .21458,    .11644,   8.56176,    .53102,    .38611,
     +     .22541,    .46512,    .55384 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
     +     .21795,    .11795,   8.75113,    .54456,    .40165,
     +     .24263,    .47944,    .56766,
     +     .22116,    .11938,   8.91993,    .55748,    .41618,
     +     .25898,    .49306,    .58083,
     +     .22417,    .12071,   9.07313,    .56963,    .42968,
     +     .27428,    .50584,    .59323,
     +     .22693,    .12192,   9.20309,    .58069,    .44189,
     +     .28823,    .51748,    .60452,
     +     .22967,    .12312,   9.32770,    .59169,    .45398,
     +     .30206,    .52904,    .61573,
     +     .23231,    .12428,   9.43941,    .60220,    .46549,
     +     .31530,    .54008,    .62643,
     +     .23479,    .12536,   9.53891,    .61200,    .47623,
     +     .32765,    .55039,    .63642,
     +     .23709,    .12635,   9.62477,    .62100,    .48611,
     +     .33905,    .55987,    .64561 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
     +     .23939,    .12734,   9.70699,    .62997,    .49594,
     +     .35038,    .56930,    .65475,
     +     .24161,    .12829,   9.77845,    .63847,    .50528,
     +     .36120,    .57827,    .66342,
     +     .24372,    .12919,   9.84584,    .64660,    .51421,
     +     .37150,    .58683,    .67170,
     +     .24566,    .13002,   9.89855,    .65387,    .52222,
     +     .38081,    .59450,    .67911,
     +     .24762,    .13085,   9.95171,    .66125,    .53035,
     +     .39023,    .60229,    .68663 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
     +     .13312,    .07872,   1.06537,    .18963,    .00140,
     +     .00000,    .10611,    .20499,
     +     .13858,    .08141,   1.37982,    .20407,    .00284,
     +     .00000,    .11946,    .22000,
     +     .14629,    .08518,   1.84611,    .22595,    .00578,
     +     .00000,    .13970,    .24268,
     +     .15168,    .08780,   2.18942,    .24205,    .00878,
     +     .00000,    .15467,    .25933,
     +     .15714,    .09045,   2.54705,    .25884,    .01300,
     +     .00000,    .17042,    .27666,
     +     .16171,    .09265,   2.85246,    .27305,    .01779,
     +     .00000,    .18391,    .29133,
     +     .16598,    .09470,   3.14302,    .28635,    .02366,
     +     .00000,    .19675,    .30506,
     +     .17038,    .09680,   3.43965,    .29987,    .03154,
     +     .00000,    .21006,    .31900 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
     +     .17412,    .09858,   3.69255,    .31103,    .04002,
     +     .00000,    .22135,    .33053,
     +     .17767,    .10026,   3.93589,    .32128,    .04984,
     +     .00000,    .23203,    .34111,
     +     .18042,    .10156,   4.12071,    .32886,    .05879,
     +     .00000,    .24018,    .34895,
     +     .18617,    .10427,   4.50709,    .34365,    .08146,
     +     .00000,    .25689,    .36429,
     +     .19096,    .10651,   4.82431,    .35488,    .10446,
     +     .00501,    .27046,    .37596,
     +     .19617,    .10893,   5.16216,    .36619,    .13280,
     +     .02175,    .28492,    .38774,
     +     .20141,    .11136,   5.49416,    .37723,    .16343,
     +     .04382,    .29948,    .39926,
     +     .20605,    .11349,   5.77850,    .38723,    .19067,
     +     .06259,    .31259,    .40967 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
     +     .21061,    .11557,   6.04933,    .39768,    .21654,
     +     .08140,    .32588,    .42052,
     +     .21431,    .11725,   6.26168,    .40676,    .23635,
     +     .09672,    .33702,    .42992,
     +     .21867,    .11922,   6.50045,    .41818,    .25818,
     +     .11486,    .35053,    .44171,
     +     .22244,    .12091,   6.69873,    .42866,    .27572,
     +     .13059,    .36256,    .45251,
     +     .22584,    .12243,   6.87262,    .43858,    .29062,
     +     .14484,    .37367,    .46271,
     +     .23002,    .12428,   7.07297,    .45114,    .30791,
     +     .16234,    .38750,    .47561,
     +     .23385,    .12597,   7.24606,    .46293,    .32299,
     +     .17836,    .40031,    .48770,
     +     .23737,    .12751,   7.39776,    .47393,    .33638,
     +     .19307,    .41217,    .49899 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
     +     .24080,    .12901,   7.53705,    .48476,    .34913,
     +     .20740,    .42377,    .51009,
     +     .24407,    .13043,   7.65901,    .49503,    .36098,
     +     .22095,    .43474,    .52060,
     +     .24712,    .13174,   7.76855,    .50465,    .37195,
     +     .23359,    .44501,    .53046,
     +     .24992,    .13294,   7.85941,    .51336,    .38180,
     +     .24506,    .45429,    .53937,
     +     .25269,    .13412,   7.94543,    .52197,    .39152,
     +     .25640,    .46348,    .54819,
     +     .25534,    .13524,   8.02070,    .53016,    .40074,
     +     .26720,    .47221,    .55656,
     +     .25782,    .13629,   8.08650,    .53776,    .40930,
     +     .27725,    .48032,    .56434,
     +     .26013,    .13725,   8.14172,    .54470,    .41713,
     +     .28648,    .48775,    .57145 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
     +     .26242,    .13821,   8.19374,    .55159,    .42490,
     +     .29564,    .49511,    .57849,
     +     .26463,    .13912,   8.23716,    .55807,    .43225,
     +     .30434,    .50206,    .58513,
     +     .26673,    .13999,   8.27786,    .56425,    .43925,
     +     .31262,    .50869,    .59146,
     +     .26865,    .14077,   8.30697,    .56973,    .44549,
     +     .32005,    .51457,    .59706,
     +     .27058,    .14156,   8.33627,    .57528,    .45181,
     +     .32756,    .52054,    .60273 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
     +     .16330,    .09475,   1.01436,    .17785,    .00139,
     +     .00000,    .10027,    .19675,
     +     .16944,    .09774,   1.29675,    .19017,    .00276,
     +     .00000,    .11184,    .20970,
     +     .17808,    .10191,   1.70637,    .20865,    .00549,
     +     .00001,    .12920,    .22905,
     +     .18409,    .10479,   2.00180,    .22209,    .00819,
     +     .00001,    .14189,    .24309,
     +     .19014,    .10767,   2.30433,    .23597,    .01192,
     +     .00001,    .15512,    .25756,
     +     .19518,    .11005,   2.55872,    .24761,    .01609,
     +     .00001,    .16636,    .26969,
     +     .19987,    .11226,   2.79753,    .25841,    .02116,
     +     .00000,    .17697,    .28094,
     +     .20468,    .11451,   3.03770,    .26927,    .02788,
     +     .00001,    .18787,    .29224 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
     +     .20875,    .11640,   3.23988,    .27814,    .03506,
     +     .00001,    .19704,    .30149,
     +     .21261,    .11819,   3.43243,    .28621,    .04333,
     +     .00001,    .20565,    .30991,
     +     .21558,    .11956,   3.57688,    .29210,    .05082,
     +     .00001,    .21217,    .31608,
     +     .22177,    .12239,   3.87494,    .30345,    .06967,
     +     .00000,    .22541,    .32797,
     +     .22690,    .12472,   4.11530,    .31186,    .08863,
     +     .00408,    .23602,    .33683,
     +     .23245,    .12722,   4.36682,    .32015,    .11181,
     +     .01762,    .24719,    .34560,
     +     .23800,    .12971,   4.60916,    .32811,    .13663,
     +     .03536,    .25832,    .35402,
     +     .24288,    .13187,   4.81267,    .33524,    .15849,
     +     .05030,    .26823,    .36156 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
     +     .24765,    .13396,   5.00286,    .34268,    .17903,
     +     .06516,    .27820,    .36938,
     +     .25150,    .13565,   5.14927,    .34914,    .19461,
     +     .07717,    .28650,    .37614,
     +     .25601,    .13760,   5.31023,    .35724,    .21158,
     +     .09129,    .29649,    .38458,
     +     .25988,    .13926,   5.44114,    .36466,    .22504,
     +     .10345,    .30532,    .39230,
     +     .26336,    .14075,   5.55407,    .37166,    .23637,
     +     .11439,    .31344,    .39956,
     +     .26761,    .14254,   5.68033,    .38047,    .24934,
     +     .12774,    .32346,    .40867,
     +     .27149,    .14416,   5.78609,    .38867,    .26051,
     +     .13985,    .33265,    .41715,
     +     .27503,    .14563,   5.87642,    .39628,    .27033,
     +     .15090,    .34109,    .42500 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
     +     .27846,    .14705,   5.95675,    .40369,    .27957,
     +     .16159,    .34927,    .43265,
     +     .28170,    .14837,   6.02391,    .41064,    .28807,
     +     .17161,    .35693,    .43981,
     +     .28472,    .14959,   6.08269,    .41711,    .29588,
     +     .18091,    .36405,    .44648,
     +     .28746,    .15069,   6.12851,    .42289,    .30283,
     +     .18929,    .37042,    .45242,
     +     .29017,    .15177,   6.17039,    .42857,    .30963,
     +     .19752,    .37667,    .45827,
     +     .29275,    .15279,   6.20439,    .43389,    .31601,
     +     .20530,    .38255,    .46374,
     +     .29515,    .15373,   6.23234,    .43879,    .32190,
     +     .21251,    .38797,    .46878,
     +     .29736,    .15458,   6.25351,    .44322,    .32725,
     +     .21909,    .39289,    .47334 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
     +     .29956,    .15543,   6.27213,    .44757,    .33252,
     +     .22558,    .39773,    .47782,
     +     .30165,    .15623,   6.28463,    .45162,    .33745,
     +     .23170,    .40224,    .48197,
     +     .30364,    .15698,   6.29608,    .45545,    .34213,
     +     .23751,    .40652,    .48591,
     +     .30544,    .15766,   6.30012,    .45878,    .34625,
     +     .24267,    .41027,    .48933,
     +     .30726,    .15833,   6.30416,    .46215,    .35041,
     +     .24788,    .41405,    .49278 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
     +     .20259,    .11602,    .96974,    .16488,    .00140,
     +     .00000,    .09418,    .18868,
     +     .20944,    .11926,   1.21875,    .17510,    .00273,
     +     .00000,    .10399,    .19957,
     +     .21898,    .12373,   1.57066,    .19022,    .00527,
     +     .00000,    .11852,    .21560,
     +     .22557,    .12678,   1.81827,    .20108,    .00769,
     +     .00000,    .12900,    .22706,
     +     .23217,    .12981,   2.06664,    .21215,    .01096,
     +     .00000,    .13980,    .23873,
     +     .23762,    .13229,   2.27162,    .22133,    .01456,
     +     .00000,    .14888,    .24839,
     +     .24267,    .13458,   2.46090,    .22975,    .01885,
     +     .00000,    .15736,    .25725,
     +     .24782,    .13689,   2.64776,    .23809,    .02448,
     +     .00000,    .16598,    .26603 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
     +     .25215,    .13881,   2.80256,    .24482,    .03042,
     +     .00000,    .17316,    .27312,
     +     .25624,    .14062,   2.94809,    .25086,    .03721,
     +     .00000,    .17984,    .27949,
     +     .25938,    .14199,   3.05557,    .25520,    .04333,
     +     .00000,    .18485,    .28408,
     +     .26586,    .14481,   3.27370,    .26338,    .05857,
     +     .00000,    .19489,    .29277,
     +     .27120,    .14711,   3.44538,    .26925,    .07376,
     +     .00321,    .20281,    .29904,
     +     .27692,    .14954,   3.62073,    .27485,    .09215,
     +     .01383,    .21101,    .30507,
     +     .28260,    .15192,   3.78513,    .28007,    .11162,
     +     .02765,    .21904,    .31070,
     +     .28755,    .15397,   3.91943,    .28469,    .12857,
     +     .03916,    .22611,    .31566 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
     +     .29235,    .15594,   4.04145,    .28950,    .14430,
     +     .05051,    .23315,    .32078,
     +     .29619,    .15750,   4.13266,    .29367,    .15609,
     +     .05961,    .23896,    .32521,
     +     .30066,    .15928,   4.22955,    .29889,    .16875,
     +     .07020,    .24588,    .33070,
     +     .30446,    .16078,   4.30559,    .30367,    .17865,
     +     .07924,    .25195,    .33571,
     +     .30785,    .16211,   4.36932,    .30818,    .18687,
     +     .08732,    .25749,    .34042,
     +     .31196,    .16369,   4.43670,    .31379,    .19614,
     +     .09708,    .26424,    .34625,
     +     .31567,    .16509,   4.48990,    .31895,    .20398,
     +     .10586,    .27035,    .35161,
     +     .31903,    .16634,   4.53292,    .32370,    .21078,
     +     .11379,    .27591,    .35652 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
     +     .32226,    .16754,   4.56828,    .32827,    .21710,
     +     .12141,    .28123,    .36124,
     +     .32528,    .16863,   4.59429,    .33247,    .22282,
     +     .12849,    .28614,    .36557,
     +     .32807,    .16962,   4.61533,    .33634,    .22802,
     +     .13500,    .29065,    .36956,
     +     .33057,    .17051,   4.62812,    .33972,    .23259,
     +     .14082,    .29462,    .37304,
     +     .33302,    .17136,   4.63802,    .34300,    .23701,
     +     .14650,    .29848,    .37642,
     +     .33535,    .17214,   4.64269,    .34602,    .24112,
     +     .15183,    .30205,    .37952,
     +     .33750,    .17286,   4.64411,    .34875,    .24487,
     +     .15672,    .30530,    .38232,
     +     .33945,    .17351,   4.64182,    .35116,    .24823,
     +     .16114,    .30820,    .38479 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
     +     .34137,    .17413,   4.63767,    .35351,    .25151,
     +     .16549,    .31102,    .38719,
     +     .34319,    .17470,   4.62949,    .35562,    .25453,
     +     .16954,    .31360,    .38935,
     +     .34491,    .17524,   4.62150,    .35761,    .25739,
     +     .17337,    .31604,    .39139,
     +     .34644,    .17571,   4.60932,    .35926,    .25985,
     +     .17674,    .31810,    .39306,
     +     .34798,    .17618,   4.59713,    .36092,    .26233,
     +     .18012,    .32018,    .39476 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
     +     .25859,    .14663,    .93501,    .14938,    .00145,
     +    -.00001,    .08738,    .18048,
     +     .26606,    .14993,   1.14572,    .15738,    .00277,
     +    -.00001,    .09533,    .18909,
     +     .27634,    .15440,   1.43362,    .16900,    .00513,
     +    -.00002,    .10688,    .20151,
     +     .28336,    .15741,   1.62962,    .17717,    .00729,
     +    -.00002,    .11507,    .21022,
     +     .29031,    .16034,   1.82084,    .18536,    .01010,
     +    -.00002,    .12336,    .21892,
     +     .29601,    .16272,   1.97461,    .19204,    .01311,
     +    -.00002,    .13023,    .22598,
     +     .30125,    .16488,   2.11340,    .19805,    .01662,
     +    -.00001,    .13656,    .23235,
     +     .30652,    .16702,   2.24679,    .20389,    .02114,
     +    -.00002,    .14289,    .23852 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
     +     .31092,    .16878,   2.35476,    .20849,    .02584,
     +    -.00002,    .14808,    .24339,
     +     .31505,    .17042,   2.45438,    .21253,    .03115,
     +    -.00002,    .15284,    .24768,
     +     .31818,    .17165,   2.52619,    .21537,    .03589,
     +    -.00002,    .15637,    .25069,
     +     .32461,    .17413,   2.66822,    .22050,    .04756,
     +    -.00002,    .16330,    .25617,
     +     .32983,    .17611,   2.77573,    .22396,    .05903,
     +     .00237,    .16862,    .25990,
     +     .33535,    .17815,   2.88130,    .22704,    .07272,
     +     .01022,    .17400,    .26324,
     +     .34075,    .18011,   2.97564,    .22975,    .08701,
     +     .02032,    .17914,    .26619,
     +     .34539,    .18175,   3.04877,    .23207,    .09927,
     +     .02862,    .18356,    .26870 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
     +     .34982,    .18327,   3.11160,    .23450,    .11046,
     +     .03671,    .18790,    .27128,
     +     .35331,    .18445,   3.15581,    .23663,    .11871,
     +     .04312,    .19144,    .27351,
     +     .35732,    .18577,   3.19883,    .23928,    .12741,
     +     .05050,    .19559,    .27628,
     +     .36068,    .18684,   3.22964,    .24172,    .13407,
     +     .05672,    .19918,    .27880,
     +     .36365,    .18776,   3.25347,    .24403,    .13949,
     +     .06223,    .20242,    .28117,
     +     .36716,    .18881,   3.27393,    .24684,    .14546,
     +     .06880,    .20628,    .28403,
     +     .37027,    .18971,   3.28599,    .24938,    .15040,
     +     .07464,    .20970,    .28660,
     +     .37305,    .19048,   3.29261,    .25166,    .15459,
     +     .07986,    .21276,    .28890 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
     +     .37567,    .19118,   3.29412,    .25380,    .15840,
     +     .08481,    .21562,    .29103,
     +     .37807,    .19178,   3.28998,    .25568,    .16177,
     +     .08935,    .21817,    .29289,
     +     .38025,    .19231,   3.28387,    .25737,    .16479,
     +     .09349,    .22048,    .29457,
     +     .38217,    .19274,   3.27349,    .25876,    .16737,
     +     .09713,    .22244,    .29592,
     +     .38401,    .19314,   3.26138,    .26007,    .16984,
     +     .10066,    .22431,    .29719,
     +     .38571,    .19348,   3.24641,    .26120,    .17208,
     +     .10393,    .22597,    .29827,
     +     .38726,    .19378,   3.23042,    .26218,    .17408,
     +     .10690,    .22745,    .29919,
     +     .38863,    .19401,   3.21310,    .26297,    .17584,
     +     .10956,    .22871,    .29993 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
     +     .38997,    .19422,   3.19471,    .26371,    .17753,
     +     .11214,    .22990,    .30061,
     +     .39119,    .19438,   3.17423,    .26429,    .17905,
     +     .11453,    .23094,    .30113,
     +     .39234,    .19453,   3.15483,    .26484,    .18047,
     +     .11676,    .23190,    .30161,
     +     .39330,    .19462,   3.13364,    .26519,    .18163,
     +     .11869,    .23264,    .30188,
     +     .39428,    .19470,   3.11253,    .26554,    .18281,
     +     .12062,    .23338,    .30216 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
     +     .30729,    .17288,    .92297,    .13761,    .00151,
     +    -.00001,    .08250,    .17496,
     +     .31494,    .17596,   1.10543,    .14413,    .00283,
     +    -.00001,    .08920,    .18196,
     +     .32534,    .18006,   1.34791,    .15344,    .00510,
     +    -.00001,    .09876,    .19185,
     +     .33235,    .18276,   1.50844,    .15987,    .00710,
     +    -.00001,    .10543,    .19864,
     +     .33924,    .18535,   1.66129,    .16619,    .00962,
     +    -.00002,    .11209,    .20531,
     +     .34483,    .18741,   1.78141,    .17125,    .01224,
     +    -.00002,    .11752,    .21063,
     +     .34991,    .18926,   1.88761,    .17575,    .01525,
     +    -.00001,    .12246,    .21534,
     +     .35500,    .19105,   1.98713,    .18001,    .01906,
     +    -.00002,    .12734,    .21978 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
     +     .35919,    .19249,   2.06588,    .18329,    .02298,
     +    -.00002,    .13128,    .22320,
     +     .36309,    .19381,   2.13723,    .18609,    .02735,
     +    -.00002,    .13485,    .22614,
     +     .36603,    .19479,   2.18737,    .18801,    .03122,
     +    -.00002,    .13745,    .22812,
     +     .37197,    .19671,   2.28389,    .19131,    .04065,
     +    -.00002,    .14247,    .23157,
     +     .37672,    .19820,   2.35388,    .19335,    .04980,
     +     .00188,    .14623,    .23368,
     +     .38168,    .19968,   2.41939,    .19497,    .06062,
     +     .00806,    .14991,    .23536,
     +     .38646,    .20104,   2.47435,    .19624,    .07178,
     +     .01597,    .15334,    .23666,
     +     .39048,    .20212,   2.51386,    .19727,    .08122,
     +     .02239,    .15623,    .23769 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
     +     .39425,    .20308,   2.54479,    .19836,    .08973,
     +     .02858,    .15902,    .23875,
     +     .39718,    .20379,   2.56408,    .19934,    .09590,
     +     .03344,    .16125,    .23968,
     +     .40045,    .20452,   2.57926,    .20059,    .10230,
     +     .03898,    .16383,    .24085,
     +     .40314,    .20507,   2.58714,    .20174,    .10711,
     +     .04362,    .16603,    .24192,
     +     .40549,    .20552,   2.59103,    .20285,    .11098,
     +     .04768,    .16799,    .24295,
     +     .40819,    .20597,   2.58875,    .20415,    .11513,
     +     .05248,    .17026,    .24411,
     +     .41050,    .20629,   2.58147,    .20528,    .11848,
     +     .05670,    .17222,    .24510,
     +     .41252,    .20652,   2.57141,    .20626,    .12126,
     +     .06043,    .17393,    .24594 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
     +     .41437,    .20668,   2.55780,    .20713,    .12374,
     +     .06394,    .17548,    .24665,
     +     .41599,    .20675,   2.54059,    .20781,    .12588,
     +     .06712,    .17679,    .24716,
     +     .41743,    .20679,   2.52300,    .20839,    .12776,
     +     .07000,    .17795,    .24757,
     +     .41864,    .20675,   2.50338,    .20877,    .12933,
     +     .07250,    .17887,    .24779,
     +     .41977,    .20668,   2.48270,    .20909,    .13080,
     +     .07490,    .17971,    .24794,
     +     .42076,    .20656,   2.46039,    .20928,    .13210,
     +     .07711,    .18041,    .24797,
     +     .42162,    .20641,   2.43820,    .20939,    .13323,
     +     .07910,    .18099,    .24791,
     +     .42234,    .20623,   2.41592,    .20941,    .13420,
     +     .08085,    .18144,    .24776 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
     +     .42302,    .20603,   2.39303,    .20938,    .13511,
     +     .08254,    .18184,    .24756,
     +     .42357,    .20578,   2.36901,    .20924,    .13590,
     +     .08408,    .18211,    .24725,
     +     .42409,    .20554,   2.34642,    .20910,    .13662,
     +     .08552,    .18236,    .24694,
     +     .42445,    .20526,   2.32320,    .20884,    .13717,
     +     .08673,    .18246,    .24652,
     +     .42481,    .20498,   2.30015,    .20858,    .13772,
     +     .08793,    .18256,    .24609 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
     +     .39104,    .21575,    .92414,    .11914,    .00163,
     +     .00000,    .07491,    .16598,
     +     .39819,    .21790,   1.06383,    .12369,    .00296,
     +     .00000,    .07989,    .17059,
     +     .40764,    .22061,   1.24062,    .12995,    .00511,
     +     .00000,    .08677,    .17684,
     +     .41385,    .22228,   1.35180,    .13412,    .00688,
     +     .00000,    .09141,    .18095,
     +     .41979,    .22377,   1.45288,    .13807,    .00901,
     +     .00000,    .09592,    .18481,
     +     .42449,    .22489,   1.52876,    .14112,    .01113,
     +    -.00001,    .09951,    .18774,
     +     .42870,    .22580,   1.59302,    .14370,    .01349,
     +    -.00001,    .10268,    .19022,
     +     .43273,    .22662,   1.64984,    .14605,    .01638,
     +     .00000,    .10572,    .19237 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
     +     .43600,    .22721,   1.69245,    .14773,    .01929,
     +     .00000,    .10810,    .19390,
     +     .43898,    .22771,   1.72942,    .14907,    .02247,
     +     .00000,    .11019,    .19509,
     +     .44115,    .22802,   1.75366,    .14990,    .02525,
     +     .00000,    .11167,    .19575,
     +     .44543,    .22855,   1.79689,    .15107,    .03190,
     +     .00000,    .11440,    .19661,
     +     .44870,    .22882,   1.82395,    .15149,    .03822,
     +     .00132,    .11629,    .19673,
     +     .45194,    .22896,   1.84478,    .15150,    .04555,
     +     .00554,    .11801,    .19637,
     +     .45485,    .22894,   1.85710,    .15122,    .05295,
     +     .01087,    .11949,    .19568,
     +     .45715,    .22877,   1.86115,    .15088,    .05907,
     +     .01512,    .12064,    .19497 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
     +     .45916,    .22848,   1.85932,    .15056,    .06446,
     +     .01915,    .12170,    .19426,
     +     .46060,    .22815,   1.85378,    .15035,    .06828,
     +     .02227,    .12250,    .19371,
     +     .46204,    .22763,   1.84195,    .15012,    .07210,
     +     .02576,    .12337,    .19307,
     +     .46310,    .22709,   1.82826,    .14996,    .07488,
     +     .02863,    .12407,    .19252,
     +     .46392,    .22655,   1.81396,    .14985,    .07704,
     +     .03112,    .12468,    .19205,
     +     .46467,    .22575,   1.79174,    .14963,    .07925,
     +     .03401,    .12528,    .19137,
     +     .46515,    .22492,   1.76818,    .14937,    .08095,
     +     .03649,    .12572,    .19066,
     +     .46544,    .22409,   1.74466,    .14908,    .08229,
     +     .03867,    .12605,    .18995 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
     +     .46556,    .22319,   1.71955,    .14871,    .08342,
     +     .04067,    .12627,    .18916,
     +     .46548,    .22224,   1.69316,    .14825,    .08433,
     +     .04244,    .12636,    .18828,
     +     .46532,    .22132,   1.66791,    .14778,    .08509,
     +     .04402,    .12639,    .18742,
     +     .46499,    .22039,   1.64271,    .14724,    .08567,
     +     .04537,    .12630,    .18650,
     +     .46460,    .21944,   1.61728,    .14666,    .08618,
     +     .04664,    .12617,    .18555,
     +     .46409,    .21846,   1.59158,    .14602,    .08660,
     +     .04779,    .12596,    .18454,
     +     .46352,    .21751,   1.56697,    .14538,    .08693,
     +     .04880,    .12571,    .18354,
     +     .46289,    .21658,   1.54329,    .14472,    .08716,
     +     .04967,    .12541,    .18254 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
     +     .46221,    .21563,   1.51951,    .14403,    .08736,
     +     .05049,    .12508,    .18151,
     +     .46143,    .21465,   1.49557,    .14328,    .08749,
     +     .05122,    .12469,    .18043,
     +     .46069,    .21373,   1.47322,    .14258,    .08759,
     +     .05190,    .12431,    .17942,
     +     .45984,    .21280,   1.45129,    .14185,    .08762,
     +     .05246,    .12388,    .17838,
     +     .45899,    .21187,   1.42961,    .14111,    .08763,
     +     .05301,    .12344,    .17733 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
     +     .46207,    .24846,    .93381,    .10396,    .00170,
     +     .00000,    .06827,    .15662,
     +     .46791,    .24934,   1.04023,    .10721,    .00304,
     +     .00000,    .07205,    .15946,
     +     .47536,    .25020,   1.16847,    .11148,    .00508,
     +     .00000,    .07711,    .16311,
     +     .48004,    .25054,   1.24483,    .11420,    .00668,
     +     .00000,    .08041,    .16533,
     +     .48433,    .25067,   1.31063,    .11668,    .00853,
     +     .00000,    .08352,    .16727,
     +     .48758,    .25063,   1.35727,    .11849,    .01031,
     +     .00000,    .08593,    .16860,
     +     .49037,    .25047,   1.39455,    .11994,    .01222,
     +    -.00001,    .08800,    .16960,
     +     .49289,    .25014,   1.42465,    .12114,    .01452,
     +     .00000,    .08989,    .17027 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
     +     .49482,    .24976,   1.44519,    .12190,    .01677,
     +     .00000,    .09132,    .17058,
     +     .49650,    .24933,   1.46160,    .12241,    .01920,
     +     .00000,    .09253,    .17067,
     +     .49763,    .24892,   1.47066,    .12263,    .02129,
     +     .00000,    .09334,    .17053,
     +     .49968,    .24791,   1.48342,    .12266,    .02622,
     +     .00000,    .09473,    .16982,
     +     .50101,    .24691,   1.48680,    .12224,    .03081,
     +     .00097,    .09557,    .16875,
     +     .50208,    .24566,   1.48385,    .12145,    .03605,
     +     .00406,    .09620,    .16722,
     +     .50275,    .24422,   1.47433,    .12041,    .04124,
     +     .00791,    .09661,    .16543,
     +     .50299,    .24280,   1.46094,    .11942,    .04545,
     +     .01093,    .09684,    .16376 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
     +     .50293,    .24128,   1.44370,    .11847,    .04908,
     +     .01376,    .09700,    .16210,
     +     .50267,    .23995,   1.42695,    .11771,    .05158,
     +     .01593,    .09707,    .16077,
     +     .50206,    .23823,   1.40357,    .11682,    .05402,
     +     .01831,    .09708,    .15918,
     +     .50130,    .23667,   1.38119,    .11606,    .05572,
     +     .02024,    .09704,    .15781,
     +     .50048,    .23521,   1.35990,    .11541,    .05700,
     +     .02190,    .09697,    .15660,
     +     .49916,    .23326,   1.33066,    .11453,    .05823,
     +     .02378,    .09677,    .15502,
     +     .49770,    .23138,   1.30204,    .11367,    .05910,
     +     .02538,    .09651,    .15350,
     +     .49620,    .22959,   1.27483,    .11284,    .05975,
     +     .02676,    .09620,    .15206 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
     +     .49454,    .22776,   1.24708,    .11198,    .06025,
     +     .02801,    .09583,    .15058,
     +     .49273,    .22593,   1.21923,    .11107,    .06059,
     +     .02909,    .09538,    .14908,
     +     .49096,    .22419,   1.19315,    .11020,    .06084,
     +     .03004,    .09492,    .14766,
     +     .48913,    .22251,   1.16808,    .10931,    .06099,
     +     .03084,    .09441,    .14626,
     +     .48724,    .22082,   1.14321,    .10842,    .06110,
     +     .03158,    .09389,    .14485,
     +     .48528,    .21912,   1.11867,    .10749,    .06113,
     +     .03223,    .09332,    .14343,
     +     .48335,    .21751,   1.09557,    .10660,    .06113,
     +     .03279,    .09276,    .14206,
     +     .48144,    .21596,   1.07375,    .10572,    .06107,
     +     .03326,    .09218,    .14075 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
     +     .47948,    .21440,   1.05209,    .10484,    .06100,
     +     .03370,    .09158,    .13942,
     +     .47745,    .21284,   1.03068,    .10394,    .06087,
     +     .03408,    .09095,    .13807,
     +     .47552,    .21138,   1.01080,    .10309,    .06074,
     +     .03442,    .09036,    .13681,
     +     .47356,    .20994,    .99172,    .10223,    .06057,
     +     .03468,    .08975,    .13557,
     +     .47161,    .20850,    .97295,    .10138,    .06039,
     +     .03493,    .08914,    .13433 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
     +     .52311,    .27286,    .94066,    .09061,    .00173,
     +    -.00001,    .06187,    .14599,
     +     .52710,    .27232,   1.01949,    .09291,    .00304,
     +     .00000,    .06475,    .14749,
     +     .53176,    .27116,   1.10907,    .09582,    .00498,
     +     .00000,    .06846,    .14913,
     +     .53442,    .27010,   1.15874,    .09756,    .00643,
     +     .00000,    .07079,    .14998,
     +     .53662,    .26879,   1.19831,    .09903,    .00805,
     +    -.00001,    .07291,    .15053,
     +     .53807,    .26755,   1.22380,    .10002,    .00955,
     +    -.00001,    .07449,    .15075,
     +     .53912,    .26629,   1.24202,    .10074,    .01113,
     +    -.00001,    .07580,    .15074,
     +     .53984,    .26479,   1.25368,    .10122,    .01298,
     +    -.00001,    .07692,    .15043 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
     +     .54017,    .26344,   1.25936,    .10142,    .01476,
     +    -.00001,    .07772,    .14993,
     +     .54031,    .26211,   1.26217,    .10144,    .01665,
     +    -.00001,    .07836,    .14928,
     +     .54025,    .26099,   1.26139,    .10131,    .01826,
     +    -.00001,    .07875,    .14862,
     +     .53978,    .25850,   1.25492,    .10068,    .02198,
     +    -.00001,    .07929,    .14693,
     +     .53897,    .25627,   1.24392,    .09981,    .02540,
     +     .00073,    .07948,    .14516,
     +     .53767,    .25369,   1.22703,    .09861,    .02924,
     +     .00307,    .07947,    .14295,
     +     .53592,    .25092,   1.20524,    .09722,    .03298,
     +     .00596,    .07927,    .14054,
     +     .53400,    .24835,   1.18254,    .09594,    .03595,
     +     .00819,    .07898,    .13833 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
     +     .53179,    .24572,   1.15750,    .09468,    .03846,
     +     .01025,    .07862,    .13617,
     +     .52976,    .24349,   1.13541,    .09369,    .04015,
     +     .01181,    .07830,    .13442,
     +     .52705,    .24072,   1.10699,    .09249,    .04173,
     +     .01351,    .07785,    .13236,
     +     .52446,    .23826,   1.08116,    .09149,    .04279,
     +     .01487,    .07742,    .13058,
     +     .52199,    .23601,   1.05737,    .09061,    .04355,
     +     .01602,    .07700,    .12899,
     +     .51863,    .23308,   1.02624,    .08944,    .04422,
     +     .01730,    .07641,    .12696,
     +     .51526,    .23032,    .99675,    .08834,    .04465,
     +     .01838,    .07579,    .12507,
     +     .51201,    .22774,    .96937,    .08731,    .04492,
     +     .01929,    .07518,    .12331 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
     +     .50866,    .22514,    .94210,    .08626,    .04508,
     +     .02010,    .07454,    .12154,
     +     .50524,    .22256,    .91539,    .08518,    .04514,
     +     .02079,    .07384,    .11979,
     +     .50197,    .22015,    .89073,    .08417,    .04515,
     +     .02139,    .07318,    .11815,
     +     .49874,    .21786,    .86750,    .08320,    .04509,
     +     .02188,    .07250,    .11657,
     +     .49547,    .21558,    .84470,    .08222,    .04500,
     +     .02233,    .07180,    .11500,
     +     .49218,    .21333,    .82252,    .08123,    .04486,
     +     .02271,    .07110,    .11345,
     +     .48901,    .21119,    .80187,    .08029,    .04471,
     +     .02304,    .07042,    .11198,
     +     .48594,    .20917,    .78260,    .07938,    .04453,
     +     .02330,    .06976,    .11058 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
     +     .48284,    .20714,    .76361,    .07847,    .04433,
     +     .02354,    .06908,    .10917,
     +     .47970,    .20513,    .74507,    .07756,    .04411,
     +     .02374,    .06839,    .10778,
     +     .47673,    .20325,    .72793,    .07671,    .04390,
     +     .02391,    .06775,    .10647,
     +     .47381,    .20143,    .71172,    .07587,    .04365,
     +     .02403,    .06710,    .10521,
     +     .47090,    .19962,    .69582,    .07503,    .04341,
     +     .02416,    .06645,    .10397 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
     +     .58703,    .29356,    .93950,    .07576,    .00172,
     +    -.00001,    .05402,    .13118,
     +     .58815,    .29121,    .98960,    .07724,    .00298,
     +    -.00002,    .05604,    .13138,
     +     .58870,    .28749,   1.04039,    .07893,    .00475,
     +    -.00001,    .05851,    .13129,
     +     .58841,    .28468,   1.06430,    .07984,    .00603,
     +    -.00001,    .05998,    .13093,
     +     .58756,    .28164,   1.07929,    .08052,    .00739,
     +    -.00002,    .06124,    .13030,
     +     .58644,    .27898,   1.08551,    .08088,    .00862,
     +    -.00002,    .06212,    .12957,
     +     .58507,    .27640,   1.08680,    .08104,    .00988,
     +    -.00001,    .06278,    .12872,
     +     .58326,    .27356,   1.08251,    .08097,    .01130,
     +    -.00001,    .06328,    .12760 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
     +     .58146,    .27106,   1.07565,    .08074,    .01264,
     +    -.00001,    .06358,    .12649,
     +     .57959,    .26865,   1.06726,    .08040,    .01404,
     +    -.00001,    .06377,    .12531,
     +     .57794,    .26671,   1.05856,    .08002,    .01521,
     +    -.00001,    .06382,    .12428,
     +     .57412,    .26258,   1.03709,    .07900,    .01788,
     +    -.00001,    .06372,    .12190,
     +     .57051,    .25898,   1.01535,    .07788,    .02027,
     +     .00053,    .06343,    .11966,
     +     .56618,    .25495,    .98858,    .07648,    .02291,
     +     .00222,    .06295,    .11705,
     +     .56135,    .25076,    .95867,    .07495,    .02543,
     +     .00430,    .06233,    .11429,
     +     .55673,    .24696,    .93029,    .07356,    .02739,
     +     .00588,    .06170,    .11181 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
     +     .55188,    .24313,    .90096,    .07220,    .02899,
     +     .00731,    .06103,    .10939,
     +     .54772,    .23996,    .87630,    .07110,    .03002,
     +     .00838,    .06046,    .10746,
     +     .54246,    .23613,    .84599,    .06982,    .03096,
     +     .00952,    .05973,    .10515,
     +     .53770,    .23275,    .81935,    .06873,    .03154,
     +     .01042,    .05907,    .10318,
     +     .53332,    .22968,    .79536,    .06775,    .03191,
     +     .01118,    .05846,    .10143,
     +     .52754,    .22579,    .76494,    .06651,    .03219,
     +     .01201,    .05764,    .09924,
     +     .52202,    .22215,    .73687,    .06534,    .03231,
     +     .01270,    .05686,    .09722,
     +     .51680,    .21878,    .71128,    .06426,    .03232,
     +     .01327,    .05611,    .09535 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
     +     .51152,    .21546,    .68629,    .06319,    .03227,
     +     .01377,    .05533,    .09352,
     +     .50624,    .21221,    .66231,    .06213,    .03216,
     +     .01418,    .05454,    .09171,
     +     .50129,    .20919,    .64042,    .06114,    .03202,
     +     .01452,    .05380,    .09003,
     +     .49654,    .20633,    .62012,    .06017,    .03185,
     +     .01480,    .05308,    .08846,
     +     .49178,    .20351,    .60041,    .05921,    .03166,
     +     .01505,    .05236,    .08690,
     +     .48705,    .20074,    .58150,    .05828,    .03144,
     +     .01525,    .05163,    .08538,
     +     .48254,    .19814,    .56406,    .05741,    .03121,
     +     .01541,    .05093,    .08396,
     +     .47825,    .19571,    .54796,    .05658,    .03098,
     +     .01553,    .05027,    .08261 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
     +     .47394,    .19328,    .53223,    .05574,    .03074,
     +     .01564,    .04961,    .08128,
     +     .46965,    .19088,    .51702,    .05491,    .03048,
     +     .01571,    .04894,    .07997,
     +     .46562,    .18863,    .50303,    .05412,    .03024,
     +     .01578,    .04833,    .07874,
     +     .46169,    .18649,    .48994,    .05338,    .02999,
     +     .01582,    .04772,    .07756,
     +     .45779,    .18437,    .47716,    .05264,    .02974,
     +     .01587,    .04713,    .07640 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
     +     .63816,    .30509,    .92573,    .06267,    .00166,
     +    -.00002,    .04645,    .11539,
     +     .63607,    .30098,    .95221,    .06357,    .00284,
     +    -.00004,    .04784,    .11476,
     +     .63198,    .29489,    .97230,    .06449,    .00445,
     +    -.00003,    .04945,    .11346,
     +     .62849,    .29046,    .97659,    .06487,    .00557,
     +    -.00003,    .05033,    .11234,
     +     .62438,    .28583,    .97348,    .06504,    .00672,
     +    -.00003,    .05100,    .11101,
     +     .62056,    .28187,    .96595,    .06500,    .00772,
     +    -.00003,    .05143,    .10973,
     +     .61672,    .27808,    .95549,    .06482,    .00871,
     +    -.00003,    .05169,    .10841,
     +     .61229,    .27406,    .94048,    .06445,    .00981,
     +    -.00004,    .05180,    .10687 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
     +     .60828,    .27058,    .92546,    .06401,    .01082,
     +    -.00004,    .05179,    .10543,
     +     .60434,    .26726,    .90999,    .06351,    .01186,
     +    -.00003,    .05170,    .10398,
     +     .60107,    .26463,    .89645,    .06303,    .01272,
     +    -.00003,    .05155,    .10278,
     +     .59396,    .25907,    .86621,    .06184,    .01464,
     +    -.00003,    .05111,    .10012,
     +     .58760,    .25435,    .83862,    .06067,    .01634,
     +     .00037,    .05059,    .09772,
     +     .58033,    .24914,    .80694,    .05926,    .01817,
     +     .00164,    .04989,    .09500,
     +     .57257,    .24380,    .77350,    .05776,    .01987,
     +     .00317,    .04908,    .09221,
     +     .56539,    .23903,    .74312,    .05642,    .02116,
     +     .00431,    .04831,    .08973 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
     +     .55807,    .23428,    .71278,    .05511,    .02218,
     +     .00534,    .04752,    .08732,
     +     .55195,    .23038,    .68796,    .05406,    .02282,
     +     .00611,    .04685,    .08538,
     +     .54439,    .22570,    .65827,    .05282,    .02334,
     +     .00689,    .04603,    .08312,
     +     .53767,    .22164,    .63271,    .05177,    .02364,
     +     .00751,    .04531,    .08119,
     +     .53154,    .21799,    .61006,    .05083,    .02380,
     +     .00802,    .04465,    .07947,
     +     .52368,    .21338,    .58191,    .04964,    .02387,
     +     .00858,    .04379,    .07734,
     +     .51625,    .20913,    .55640,    .04855,    .02382,
     +     .00903,    .04296,    .07539,
     +     .50932,    .20524,    .53346,    .04755,    .02373,
     +     .00939,    .04220,    .07360 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
     +     .50240,    .20141,    .51135,    .04656,    .02358,
     +     .00970,    .04143,    .07184,
     +     .49560,    .19768,    .49045,    .04559,    .02340,
     +     .00994,    .04066,    .07016,
     +     .48924,    .19424,    .47155,    .04469,    .02320,
     +     .01015,    .03994,    .06861,
     +     .48321,    .19102,    .45425,    .04384,    .02299,
     +     .01030,    .03927,    .06716,
     +     .47720,    .18786,    .43758,    .04300,    .02277,
     +     .01043,    .03859,    .06573,
     +     .47129,    .18479,    .42173,    .04218,    .02253,
     +     .01053,    .03791,    .06434,
     +     .46572,    .18191,    .40725,    .04141,    .02230,
     +     .01061,    .03728,    .06305,
     +     .46046,    .17921,    .39399,    .04069,    .02206,
     +     .01067,    .03669,    .06184 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
     +     .45520,    .17654,    .38111,    .03997,    .02182,
     +     .01072,    .03609,    .06065,
     +     .44998,    .17392,    .36877,    .03926,    .02158,
     +     .01075,    .03550,    .05949,
     +     .44510,    .17149,    .35746,    .03859,    .02135,
     +     .01077,    .03494,    .05842,
     +     .44043,    .16915,    .34698,    .03795,    .02111,
     +     .01076,    .03442,    .05740,
     +     .43579,    .16684,    .33678,    .03732,    .02088,
     +     .01076,    .03389,    .05639 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
     +     .67715,    .30896,    .89993,    .05123,    .00157,
     +    -.00001,    .03932,    .09950,
     +     .67159,    .30333,    .90714,    .05177,    .00265,
     +    -.00001,    .04025,    .09831,
     +     .66269,    .29516,    .90306,    .05219,    .00407,
     +     .00000,    .04122,    .09635,
     +     .65589,    .28933,    .89250,    .05224,    .00502,
     +     .00000,    .04169,    .09480,
     +     .64850,    .28332,    .87612,    .05211,    .00598,
     +    -.00001,    .04198,    .09307,
     +     .64197,    .27826,    .85886,    .05186,    .00679,
     +    -.00001,    .04210,    .09151,
     +     .63560,    .27349,    .84036,    .05152,    .00757,
     +    -.00001,    .04211,    .08997,
     +     .62862,    .26849,    .81829,    .05102,    .00842,
     +    -.00002,    .04198,    .08823 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
     +     .62248,    .26421,    .79810,    .05049,    .00918,
     +    -.00002,    .04179,    .08669,
     +     .61654,    .26015,    .77833,    .04993,    .00995,
     +    -.00002,    .04155,    .08517,
     +     .61173,    .25696,    .76201,    .04943,    .01056,
     +    -.00001,    .04131,    .08392,
     +     .60146,    .25030,    .72703,    .04826,    .01194,
     +    -.00001,    .04069,    .08123,
     +     .59254,    .24469,    .69669,    .04714,    .01313,
     +     .00029,    .04006,    .07888,
     +     .58254,    .23858,    .66317,    .04584,    .01439,
     +     .00123,    .03928,    .07629,
     +     .57212,    .23237,    .62894,    .04447,    .01553,
     +     .00236,    .03843,    .07364,
     +     .56267,    .22687,    .59870,    .04325,    .01637,
     +     .00318,    .03763,    .07132 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
     +     .55315,    .22144,    .56919,    .04206,    .01701,
     +     .00391,    .03682,    .06907,
     +     .54527,    .21703,    .54550,    .04112,    .01739,
     +     .00445,    .03616,    .06726,
     +     .53572,    .21180,    .51770,    .04000,    .01766,
     +     .00501,    .03536,    .06516,
     +     .52732,    .20727,    .49415,    .03905,    .01779,
     +     .00544,    .03465,    .06337,
     +     .51970,    .20322,    .47349,    .03822,    .01783,
     +     .00580,    .03400,    .06179,
     +     .51005,    .19817,    .44823,    .03716,    .01779,
     +     .00616,    .03319,    .05984,
     +     .50103,    .19354,    .42568,    .03621,    .01767,
     +     .00644,    .03242,    .05806,
     +     .49272,    .18929,    .40562,    .03533,    .01752,
     +     .00667,    .03171,    .05646 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
     +     .48451,    .18513,    .38646,    .03444,    .01733,
     +     .00687,    .03100,    .05492,
     +     .47649,    .18114,    .36858,    .03359,    .01713,
     +     .00702,    .03031,    .05341,
     +     .46902,    .17747,    .35254,    .03281,    .01693,
     +     .00714,    .02968,    .05203,
     +     .46197,    .17406,    .33802,    .03209,    .01672,
     +     .00722,    .02906,    .05076,
     +     .45502,    .17072,    .32410,    .03138,    .01650,
     +     .00729,    .02846,    .04952,
     +     .44824,    .16746,    .31098,    .03068,    .01627,
     +     .00734,    .02788,    .04833,
     +     .44187,    .16444,    .29905,    .03003,    .01605,
     +     .00738,    .02733,    .04721,
     +     .43587,    .16162,    .28822,    .02943,    .01584,
     +     .00740,    .02682,    .04618 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
     +     .42990,    .15885,    .27776,    .02884,    .01563,
     +     .00741,    .02631,    .04516,
     +     .42402,    .15614,    .26781,    .02825,    .01541,
     +     .00741,    .02580,    .04417,
     +     .41853,    .15362,    .25874,    .02771,    .01521,
     +     .00741,    .02533,    .04326,
     +     .41329,    .15124,    .25039,    .02720,    .01500,
     +     .00738,    .02489,    .04239,
     +     .40810,    .14889,    .24228,    .02669,    .01479,
     +     .00736,    .02445,    .04153 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
     +     .70452,    .30656,    .86364,    .04136,    .00144,
     +    -.00002,    .03276,    .08423,
     +     .69551,    .29959,    .85536,    .04165,    .00240,
     +    -.00002,    .03337,    .08275,
     +     .68187,    .28961,    .83255,    .04175,    .00366,
     +    -.00003,    .03392,    .08043,
     +     .67183,    .28261,    .81094,    .04161,    .00447,
     +    -.00003,    .03412,    .07869,
     +     .66123,    .27550,    .78507,    .04133,    .00526,
     +    -.00003,    .03418,    .07681,
     +     .65209,    .26955,    .76113,    .04099,    .00591,
     +    -.00003,    .03411,    .07516,
     +     .64334,    .26400,    .73732,    .04058,    .00652,
     +    -.00002,    .03396,    .07357,
     +     .63397,    .25822,    .71088,    .04004,    .00717,
     +    -.00002,    .03371,    .07183 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
     +     .62582,    .25331,    .68768,    .03950,    .00774,
     +    -.00001,    .03343,    .07030,
     +     .61802,    .24869,    .66556,    .03894,    .00830,
     +    -.00001,    .03312,    .06883,
     +     .61181,    .24508,    .64786,    .03846,    .00875,
     +    -.00002,    .03283,    .06764,
     +     .59869,    .23758,    .61089,    .03735,    .00973,
     +    -.00001,    .03217,    .06511,
     +     .58747,    .23133,    .57983,    .03635,    .01056,
     +     .00021,    .03153,    .06293,
     +     .57509,    .22455,    .54637,    .03519,    .01142,
     +     .00092,    .03076,    .06055,
     +     .56234,    .21774,    .51303,    .03398,    .01218,
     +     .00176,    .02994,    .05816,
     +     .55089,    .21176,    .48418,    .03293,    .01271,
     +     .00236,    .02919,    .05607 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
     +     .53949,    .20590,    .45650,    .03190,    .01310,
     +     .00289,    .02844,    .05405,
     +     .53016,    .20117,    .43460,    .03107,    .01331,
     +     .00329,    .02782,    .05245,
     +     .51892,    .19559,    .40930,    .03013,    .01344,
     +     .00369,    .02707,    .05058,
     +     .50914,    .19079,    .38812,    .02930,    .01347,
     +     .00399,    .02642,    .04901,
     +     .50035,    .18650,    .36973,    .02857,    .01345,
     +     .00423,    .02584,    .04762,
     +     .48929,    .18119,    .34754,    .02767,    .01333,
     +     .00448,    .02511,    .04592,
     +     .47904,    .17635,    .32795,    .02685,    .01319,
     +     .00468,    .02443,    .04438,
     +     .46962,    .17196,    .31069,    .02610,    .01302,
     +     .00483,    .02380,    .04299 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
     +     .46037,    .16767,    .29438,    .02536,    .01284,
     +     .00495,    .02319,    .04165,
     +     .45140,    .16357,    .27929,    .02466,    .01264,
     +     .00503,    .02259,    .04036,
     +     .44309,    .15982,    .26583,    .02403,    .01246,
     +     .00510,    .02204,    .03918,
     +     .43535,    .15634,    .25374,    .02342,    .01226,
     +     .00514,    .02152,    .03810,
     +     .42772,    .15294,    .24224,    .02283,    .01207,
     +     .00518,    .02101,    .03705,
     +     .42030,    .14965,    .23149,    .02227,    .01186,
     +     .00520,    .02051,    .03605,
     +     .41336,    .14661,    .22177,    .02174,    .01167,
     +     .00521,    .02005,    .03513,
     +     .40685,    .14378,    .21300,    .02124,    .01149,
     +     .00521,    .01962,    .03427 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
     +     .40040,    .14100,    .20456,    .02075,    .01131,
     +     .00520,    .01920,    .03343,
     +     .39408,    .13830,    .19657,    .02030,    .01112,
     +     .00519,    .01879,    .03261,
     +     .38818,    .13579,    .18931,    .01988,    .01094,
     +     .00519,    .01841,    .03185,
     +     .38259,    .13342,    .18268,    .01947,    .01077,
     +     .00517,    .01804,    .03116,
     +     .37706,    .13109,    .17627,    .01907,    .01059,
     +     .00514,    .01767,    .03048 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
     +     .72093,    .29898,    .81877,    .03295,    .00130,
     +    -.00002,    .02690,    .07004,
     +     .70858,    .29090,    .79835,    .03307,    .00216,
     +    -.00003,    .02728,    .06846,
     +     .69036,    .27950,    .76143,    .03299,    .00324,
     +    -.00003,    .02755,    .06606,
     +     .67726,    .27159,    .73191,    .03277,    .00392,
     +    -.00002,    .02758,    .06431,
     +     .66370,    .26360,    .69958,    .03241,    .00456,
     +     .00000,    .02749,    .06247,
     +     .65215,    .25699,    .67135,    .03203,    .00509,
     +     .00000,    .02733,    .06086,
     +     .64122,    .25087,    .64437,    .03161,    .00556,
     +    -.00001,    .02712,    .05930,
     +     .62966,    .24452,    .61556,    .03109,    .00606,
     +     .00001,    .02680,    .05766 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
     +     .61973,    .23916,    .59095,    .03058,    .00648,
     +     .00000,    .02649,    .05625,
     +     .61029,    .23414,    .56788,    .03006,    .00688,
     +    -.00001,    .02616,    .05489,
     +     .60285,    .23023,    .54978,    .02962,    .00720,
     +    -.00002,    .02588,    .05380,
     +     .58724,    .22217,    .51269,    .02866,    .00789,
     +    -.00002,    .02523,    .05151,
     +     .57403,    .21550,    .48227,    .02779,    .00846,
     +     .00017,    .02461,    .04958,
     +     .55957,    .20835,    .45012,    .02680,    .00904,
     +     .00071,    .02390,    .04749,
     +     .54485,    .20119,    .41870,    .02578,    .00954,
     +     .00133,    .02316,    .04538,
     +     .53178,    .19493,    .39196,    .02489,    .00987,
     +     .00179,    .02248,    .04357 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
     +     .51887,    .18885,    .36667,    .02402,    .01010,
     +     .00218,    .02180,    .04183,
     +     .50839,    .18394,    .34691,    .02331,    .01020,
     +     .00246,    .02126,    .04048,
     +     .49582,    .17821,    .32432,    .02250,    .01025,
     +     .00274,    .02061,    .03886,
     +     .48497,    .17329,    .30563,    .02182,    .01022,
     +     .00296,    .02004,    .03751,
     +     .47527,    .16892,    .28956,    .02122,    .01015,
     +     .00313,    .01954,    .03634,
     +     .46314,    .16353,    .27035,    .02048,    .01002,
     +     .00330,    .01892,    .03490,
     +     .45198,    .15865,    .25358,    .01979,    .00987,
     +     .00343,    .01832,    .03361,
     +     .44178,    .15424,    .23892,    .01917,    .00971,
     +     .00352,    .01778,    .03245 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
     +     .43177,    .14997,    .22516,    .01860,    .00954,
     +     .00359,    .01727,    .03131,
     +     .42217,    .14590,    .21257,    .01802,    .00936,
     +     .00365,    .01676,    .03024,
     +     .41334,    .14217,    .20142,    .01748,    .00920,
     +     .00369,    .01630,    .02927,
     +     .40512,    .13873,    .19146,    .01699,    .00903,
     +     .00371,    .01588,    .02838,
     +     .39704,    .13538,    .18205,    .01653,    .00885,
     +     .00372,    .01546,    .02752,
     +     .38921,    .13218,    .17331,    .01609,    .00868,
     +     .00372,    .01506,    .02668,
     +     .38192,    .12920,    .16545,    .01567,    .00851,
     +     .00372,    .01468,    .02593,
     +     .37513,    .12644,    .15836,    .01528,    .00835,
     +     .00371,    .01433,    .02525 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
     +     .36842,    .12372,    .15159,    .01489,    .00819,
     +     .00370,    .01398,    .02458,
     +     .36186,    .12111,    .14522,    .01452,    .00804,
     +     .00367,    .01365,    .02392,
     +     .35575,    .11869,    .13945,    .01418,    .00790,
     +     .00365,    .01333,    .02332,
     +     .35000,    .11640,    .13422,    .01386,    .00776,
     +     .00363,    .01305,    .02275,
     +     .34433,    .11415,    .12916,    .01355,    .00762,
     +     .00361,    .01276,    .02220 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
     +     .72700,    .28729,    .76735,    .02589,    .00116,
     +     .00005,    .02177,    .05727,
     +     .71151,    .27838,    .73775,    .02594,    .00191,
     +     .00004,    .02199,    .05571,
     +     .68904,    .26596,    .69074,    .02579,    .00282,
     +     .00004,    .02207,    .05340,
     +     .67315,    .25740,    .65591,    .02554,    .00338,
     +     .00004,    .02200,    .05173,
     +     .65690,    .24881,    .61958,    .02518,    .00390,
     +     .00004,    .02183,    .04999,
     +     .64322,    .24172,    .58894,    .02481,    .00430,
     +     .00004,    .02163,    .04852,
     +     .63040,    .23520,    .56041,    .02441,    .00466,
     +     .00005,    .02137,    .04713,
     +     .61693,    .22852,    .53072,    .02394,    .00502,
     +     .00004,    .02106,    .04563 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
     +     .60544,    .22290,    .50584,    .02349,    .00533,
     +     .00003,    .02074,    .04437,
     +     .59460,    .21765,    .48284,    .02304,    .00563,
     +     .00003,    .02042,    .04316,
     +     .58611,    .21357,    .46508,    .02267,    .00586,
     +     .00002,    .02015,    .04221,
     +     .56839,    .20523,    .42922,    .02185,    .00633,
     +     .00003,    .01955,    .04022,
     +     .55357,    .19833,    .40033,    .02111,    .00671,
     +     .00016,    .01900,    .03856,
     +     .53751,    .19096,    .37028,    .02028,    .00709,
     +     .00056,    .01838,    .03678,
     +     .52128,    .18365,    .34139,    .01943,    .00740,
     +     .00101,    .01771,    .03502,
     +     .50694,    .17732,    .31713,    .01869,    .00760,
     +     .00134,    .01712,    .03350 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
     +     .49288,    .17118,    .29445,    .01798,    .00772,
     +     .00164,    .01656,    .03202,
     +     .48149,    .16628,    .27693,    .01742,    .00776,
     +     .00183,    .01610,    .03085,
     +     .46796,    .16055,    .25712,    .01677,    .00775,
     +     .00203,    .01554,    .02952,
     +     .45636,    .15566,    .24088,    .01620,    .00769,
     +     .00217,    .01506,    .02841,
     +     .44605,    .15134,    .22700,    .01570,    .00761,
     +     .00228,    .01463,    .02743,
     +     .43319,    .14602,    .21059,    .01511,    .00749,
     +     .00239,    .01411,    .02623,
     +     .42144,    .14121,    .19640,    .01455,    .00734,
     +     .00248,    .01363,    .02518,
     +     .41076,    .13688,    .18410,    .01404,    .00719,
     +     .00254,    .01319,    .02424 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
     +     .40033,    .13273,    .17268,    .01357,    .00704,
     +     .00258,    .01276,    .02331,
     +     .39034,    .12878,    .16226,    .01313,    .00689,
     +     .00261,    .01234,    .02244,
     +     .38118,    .12517,    .15307,    .01273,    .00675,
     +     .00264,    .01197,    .02165,
     +     .37269,    .12187,    .14493,    .01235,    .00660,
     +     .00264,    .01163,    .02094,
     +     .36440,    .11864,    .13728,    .01197,    .00645,
     +     .00264,    .01129,    .02026,
     +     .35646,    .11554,    .13020,    .01159,    .00631,
     +     .00265,    .01096,    .01962,
     +     .34905,    .11269,    .12388,    .01125,    .00618,
     +     .00264,    .01066,    .01902,
     +     .34214,    .11008,    .11823,    .01096,    .00605,
     +     .00263,    .01038,    .01845 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
     +     .33532,    .10752,    .11283,    .01068,    .00593,
     +     .00261,    .01011,    .01790,
     +     .32869,    .10504,    .10777,    .01040,    .00580,
     +     .00258,    .00985,    .01737,
     +     .32253,    .10274,    .10319,    .01014,    .00568,
     +     .00256,    .00961,    .01689,
     +     .31677,    .10058,    .09908,    .00989,    .00557,
     +     .00254,    .00938,    .01646,
     +     .31110,    .09846,    .09511,    .00964,    .00546,
     +     .00253,    .00916,    .01604 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
     +     .72321,    .27273,    .71144,    .02031,    .00092,
     +    -.00016,    .01719,    .04602,
     +     .70494,    .26321,    .67523,    .02028,    .00156,
     +    -.00016,    .01732,    .04458,
     +     .67881,    .25003,    .62145,    .02007,    .00234,
     +    -.00015,    .01733,    .04246,
     +     .66051,    .24103,    .58345,    .01982,    .00280,
     +    -.00014,    .01722,    .04095,
     +     .64195,    .23208,    .54508,    .01947,    .00322,
     +    -.00015,    .01704,    .03940,
     +     .62647,    .22473,    .51352,    .01912,    .00354,
     +    -.00015,    .01682,    .03810,
     +     .61203,    .21800,    .48463,    .01877,    .00382,
     +    -.00013,    .01657,    .03688,
     +     .59706,    .21109,    .45524,    .01832,    .00409,
     +    -.00015,    .01627,    .03562 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
     +     .58433,    .20533,    .43093,    .01794,    .00431,
     +    -.00014,    .01599,    .03451,
     +     .57235,    .19999,    .40870,    .01757,    .00452,
     +    -.00012,    .01571,    .03346,
     +     .56301,    .19585,    .39177,    .01726,    .00467,
     +    -.00012,    .01547,    .03266,
     +     .54370,    .18739,    .35800,    .01655,    .00499,
     +    -.00011,    .01494,    .03101,
     +     .52764,    .18048,    .33120,    .01594,    .00525,
     +     .00000,    .01447,    .02961,
     +     .51034,    .17312,    .30368,    .01526,    .00550,
     +     .00029,    .01395,    .02811,
     +     .49295,    .16586,    .27760,    .01459,    .00569,
     +     .00064,    .01340,    .02663,
     +     .47771,    .15958,    .25599,    .01399,    .00580,
     +     .00091,    .01290,    .02539 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
     +     .46288,    .15352,    .23599,    .01341,    .00585,
     +     .00113,    .01242,    .02421,
     +     .45092,    .14872,    .22068,    .01294,    .00585,
     +     .00127,    .01205,    .02326,
     +     .43684,    .14311,    .20355,    .01241,    .00582,
     +     .00142,    .01159,    .02216,
     +     .42477,    .13835,    .18963,    .01197,    .00575,
     +     .00153,    .01119,    .02125,
     +     .41405,    .13415,    .17782,    .01158,    .00567,
     +     .00161,    .01084,    .02047,
     +     .40082,    .12903,    .16402,    .01108,    .00555,
     +     .00169,    .01041,    .01952,
     +     .38877,    .12442,    .15212,    .01064,    .00542,
     +     .00175,    .01003,    .01867,
     +     .37785,    .12028,    .14187,    .01025,    .00530,
     +     .00180,    .00968,    .01790 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
     +     .36725,    .11632,    .13242,    .00988,    .00516,
     +     .00182,    .00934,    .01716,
     +     .35715,    .11255,    .12387,    .00953,    .00504,
     +     .00184,    .00900,    .01648,
     +     .34790,    .10912,    .11639,    .00921,    .00492,
     +     .00186,    .00870,    .01586,
     +     .33938,    .10599,    .10980,    .00892,    .00479,
     +     .00186,    .00843,    .01531,
     +     .33106,    .10297,    .10363,    .00864,    .00467,
     +     .00186,    .00817,    .01477,
     +     .32305,    .10009,    .09795,    .00837,    .00456,
     +     .00186,    .00792,    .01424,
     +     .31566,    .09742,    .09289,    .00811,    .00446,
     +     .00185,    .00769,    .01376,
     +     .30884,    .09496,    .08838,    .00786,    .00436,
     +     .00183,    .00747,    .01334 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
     +     .30213,    .09256,    .08410,    .00763,    .00426,
     +     .00182,    .00726,    .01293,
     +     .29560,    .09025,    .08012,    .00741,    .00416,
     +     .00180,    .00705,    .01253,
     +     .28955,    .08812,    .07653,    .00722,    .00406,
     +     .00179,    .00686,    .01217,
     +     .28388,    .08613,    .07330,    .00702,    .00398,
     +     .00177,    .00669,    .01182,
     +     .27830,    .08419,    .07020,    .00683,    .00390,
     +     .00176,    .00652,    .01147 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
     +     .71114,    .25538,    .65241,    .01550,    .00083,
     +    -.00005,    .01356,    .03637,
     +     .69038,    .24555,    .61183,    .01544,    .00136,
     +    -.00005,    .01361,    .03513,
     +     .66104,    .23197,    .55414,    .01524,    .00199,
     +    -.00003,    .01354,    .03328,
     +     .64069,    .22279,    .51471,    .01502,    .00237,
     +    -.00003,    .01341,    .03196,
     +     .62020,    .21371,    .47584,    .01473,    .00270,
     +    -.00002,    .01320,    .03061,
     +     .60322,    .20630,    .44448,    .01445,    .00294,
     +    -.00002,    .01299,    .02950,
     +     .58748,    .19954,    .41624,    .01415,    .00314,
     +    -.00002,    .01276,    .02847,
     +     .57126,    .19262,    .38791,    .01378,    .00333,
     +    -.00003,    .01250,    .02740 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
     +     .55756,    .18687,    .36483,    .01346,    .00349,
     +    -.00003,    .01225,    .02648,
     +     .54474,    .18154,    .34394,    .01315,    .00364,
     +    -.00003,    .01200,    .02561,
     +     .53478,    .17744,    .32814,    .01289,    .00374,
     +    -.00002,    .01180,    .02494,
     +     .51431,    .16908,    .29696,    .01232,    .00395,
     +    -.00002,    .01135,    .02356,
     +     .49734,    .16228,    .27259,    .01184,    .00411,
     +     .00006,    .01095,    .02243,
     +     .47917,    .15511,    .24789,    .01131,    .00425,
     +     .00028,    .01051,    .02122,
     +     .46107,    .14804,    .22474,    .01077,    .00437,
     +     .00053,    .01006,    .02003,
     +     .44530,    .14196,    .20575,    .01030,    .00442,
     +     .00071,    .00965,    .01902 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
     +     .43000,    .13614,    .18838,    .00985,    .00443,
     +     .00087,    .00926,    .01805,
     +     .41774,    .13151,    .17520,    .00948,    .00441,
     +     .00097,    .00896,    .01731,
     +     .40336,    .12615,    .16057,    .00906,    .00436,
     +     .00108,    .00858,    .01645,
     +     .39109,    .12161,    .14878,    .00872,    .00429,
     +     .00115,    .00826,    .01572,
     +     .38024,    .11763,    .13885,    .00843,    .00422,
     +     .00121,    .00798,    .01508,
     +     .36689,    .11279,    .12732,    .00804,    .00411,
     +     .00125,    .00765,    .01433,
     +     .35482,    .10844,    .11746,    .00769,    .00399,
     +     .00129,    .00734,    .01366,
     +     .34392,    .10455,    .10903,    .00739,    .00389,
     +     .00131,    .00706,    .01307 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
     +     .33336,    .10083,    .10130,    .00711,    .00378,
     +     .00132,    .00678,    .01251,
     +     .32335,    .09733,    .09435,    .00684,    .00367,
     +     .00134,    .00653,    .01197,
     +     .31423,    .09415,    .08829,    .00659,    .00358,
     +     .00134,    .00630,    .01147,
     +     .30583,    .09125,    .08300,    .00636,    .00348,
     +     .00134,    .00608,    .01104,
     +     .29767,    .08844,    .07806,    .00614,    .00339,
     +     .00133,    .00588,    .01063,
     +     .28985,    .08577,    .07354,    .00593,    .00330,
     +     .00132,    .00568,    .01024,
     +     .28264,    .08332,    .06953,    .00573,    .00321,
     +     .00131,    .00550,    .00988,
     +     .27600,    .08106,    .06598,    .00555,    .00313,
     +     .00130,    .00534,    .00955 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
     +     .26947,    .07887,    .06262,    .00538,    .00305,
     +     .00128,    .00518,    .00922,
     +     .26315,    .07676,    .05950,    .00522,    .00298,
     +     .00127,    .00502,    .00892,
     +     .25730,    .07482,    .05669,    .00507,    .00290,
     +     .00126,    .00487,    .00865,
     +     .25184,    .07301,    .05418,    .00493,    .00283,
     +     .00125,    .00474,    .00840,
     +     .24647,    .07123,    .05177,    .00480,    .00277,
     +     .00123,    .00461,    .00815 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
     +     .69119,    .23652,    .59214,    .01170,    .00069,
     +    -.00004,    .01046,    .02832,
     +     .66842,    .22654,    .54912,    .01165,    .00114,
     +    -.00006,    .01049,    .02722,
     +     .63645,    .21295,    .48986,    .01149,    .00164,
     +    -.00004,    .01040,    .02564,
     +     .61449,    .20376,    .45040,    .01130,    .00193,
     +    -.00003,    .01027,    .02454,
     +     .59254,    .19471,    .41224,    .01105,    .00218,
     +    -.00003,    .01008,    .02343,
     +     .57446,    .18737,    .38194,    .01080,    .00237,
     +    -.00004,    .00989,    .02252,
     +     .55781,    .18068,    .35502,    .01055,    .00253,
     +    -.00003,    .00970,    .02166,
     +     .54070,    .17391,    .32839,    .01027,    .00267,
     +    -.00004,    .00948,    .02073 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
     +     .52632,    .16828,    .30688,    .01002,    .00278,
     +    -.00003,    .00926,    .01999,
     +     .51291,    .16308,    .28758,    .00977,    .00289,
     +    -.00002,    .00904,    .01930,
     +     .50257,    .15908,    .27314,    .00956,    .00295,
     +    -.00002,    .00887,    .01877,
     +     .48129,    .15102,    .24494,    .00912,    .00307,
     +    -.00003,    .00850,    .01765,
     +     .46384,    .14447,    .22316,    .00874,    .00318,
     +     .00002,    .00818,    .01674,
     +     .44524,    .13757,    .20130,    .00831,    .00326,
     +     .00019,    .00782,    .01578,
     +     .42681,    .13082,    .18103,    .00789,    .00332,
     +     .00039,    .00746,    .01484,
     +     .41083,    .12504,    .16459,    .00752,    .00334,
     +     .00052,    .00714,    .01403 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
     +     .39539,    .11950,    .14969,    .00717,    .00332,
     +     .00063,    .00683,    .01330,
     +     .38305,    .11515,    .13850,    .00691,    .00329,
     +     .00071,    .00657,    .01272,
     +     .36866,    .11010,    .12615,    .00659,    .00322,
     +     .00078,    .00629,    .01203,
     +     .35646,    .10586,    .11627,    .00631,    .00316,
     +     .00083,    .00604,    .01147,
     +     .34571,    .10215,    .10801,    .00607,    .00310,
     +     .00087,    .00581,    .01100,
     +     .33252,    .09764,    .09845,    .00577,    .00301,
     +     .00089,    .00554,    .01042,
     +     .32067,    .09361,    .09037,    .00550,    .00292,
     +     .00092,    .00530,    .00989,
     +     .31000,    .09001,    .08351,    .00528,    .00284,
     +     .00094,    .00508,    .00942 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
     +     .29966,    .08659,    .07727,    .00509,    .00275,
     +     .00095,    .00488,    .00897,
     +     .28991,    .08337,    .07167,    .00488,    .00266,
     +     .00094,    .00468,    .00857,
     +     .28106,    .08046,    .06681,    .00468,    .00258,
     +     .00094,    .00449,    .00821,
     +     .27298,    .07781,    .06259,    .00450,    .00251,
     +     .00094,    .00433,    .00788,
     +     .26513,    .07526,    .05867,    .00433,    .00243,
     +     .00093,    .00418,    .00756,
     +     .25760,    .07283,    .05509,    .00417,    .00236,
     +     .00092,    .00403,    .00728,
     +     .25067,    .07060,    .05194,    .00403,    .00229,
     +     .00091,    .00389,    .00701,
     +     .24429,    .06857,    .04915,    .00392,    .00223,
     +     .00091,    .00377,    .00674 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
     +     .23805,    .06659,    .04652,    .00380,    .00217,
     +     .00090,    .00364,    .00650,
     +     .23204,    .06469,    .04410,    .00367,    .00211,
     +     .00089,    .00353,    .00628,
     +     .22650,    .06294,    .04193,    .00355,    .00206,
     +     .00088,    .00342,    .00609,
     +     .22133,    .06132,    .03998,    .00344,    .00201,
     +     .00087,    .00332,    .00590,
     +     .21625,    .05973,    .03812,    .00334,    .00195,
     +     .00086,    .00323,    .00571 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
     +     .66447,    .21662,    .53184,    .00869,    .00060,
     +    -.00001,    .00799,    .02163,
     +     .64010,    .20675,    .48800,    .00865,    .00094,
     +    -.00001,    .00800,    .02074,
     +     .60625,    .19327,    .42910,    .00847,    .00135,
     +    -.00001,    .00789,    .01948,
     +     .58313,    .18427,    .39071,    .00832,    .00158,
     +     .00000,    .00776,    .01859,
     +     .56015,    .17544,    .35417,    .00813,    .00177,
     +     .00000,    .00761,    .01765,
     +     .54134,    .16832,    .32557,    .00793,    .00191,
     +     .00001,    .00746,    .01688,
     +     .52409,    .16185,    .30045,    .00772,    .00202,
     +     .00001,    .00728,    .01622,
     +     .50642,    .15530,    .27585,    .00751,    .00213,
     +     .00000,    .00708,    .01549 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
     +     .49162,    .14992,    .25625,    .00733,    .00220,
     +    -.00001,    .00690,    .01489,
     +     .47789,    .14496,    .23879,    .00715,    .00226,
     +     .00000,    .00673,    .01434,
     +     .46734,    .14116,    .22578,    .00699,    .00229,
     +     .00000,    .00659,    .01391,
     +     .44581,    .13345,    .20063,    .00664,    .00239,
     +     .00000,    .00630,    .01303,
     +     .42817,    .12723,    .18145,    .00636,    .00244,
     +     .00004,    .00604,    .01232,
     +     .40949,    .12072,    .16240,    .00602,    .00247,
     +     .00017,    .00575,    .01159,
     +     .39108,    .11438,    .14494,    .00568,    .00250,
     +     .00031,    .00546,    .01087,
     +     .37517,    .10899,    .13090,    .00541,    .00249,
     +     .00040,    .00522,    .01023 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
     +     .35987,    .10385,    .11829,    .00516,    .00247,
     +     .00048,    .00498,    .00964,
     +     .34775,    .09979,    .10884,    .00496,    .00244,
     +     .00054,    .00479,    .00918,
     +     .33363,    .09512,    .09855,    .00470,    .00238,
     +     .00058,    .00455,    .00869,
     +     .32170,    .09121,    .09037,    .00450,    .00232,
     +     .00062,    .00435,    .00827,
     +     .31123,    .08779,    .08355,    .00431,    .00227,
     +     .00064,    .00419,    .00790,
     +     .29843,    .08368,    .07575,    .00408,    .00219,
     +     .00066,    .00398,    .00745,
     +     .28692,    .08000,    .06918,    .00390,    .00212,
     +     .00067,    .00380,    .00705,
     +     .27661,    .07673,    .06364,    .00374,    .00205,
     +     .00068,    .00363,    .00671 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
     +     .26670,    .07362,    .05860,    .00358,    .00198,
     +     .00068,    .00346,    .00639,
     +     .25740,    .07070,    .05415,    .00342,    .00191,
     +     .00068,    .00331,    .00609,
     +     .24896,    .06807,    .05031,    .00328,    .00185,
     +     .00067,    .00318,    .00581,
     +     .24126,    .06570,    .04698,    .00315,    .00179,
     +     .00067,    .00306,    .00555,
     +     .23379,    .06341,    .04389,    .00303,    .00173,
     +     .00066,    .00294,    .00532,
     +     .22668,    .06123,    .04109,    .00292,    .00168,
     +     .00066,    .00283,    .00510,
     +     .22014,    .05924,    .03863,    .00283,    .00163,
     +     .00065,    .00273,    .00490,
     +     .21415,    .05743,    .03646,    .00273,    .00158,
     +     .00063,    .00263,    .00471 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
     +     .20830,    .05566,    .03442,    .00263,    .00154,
     +     .00062,    .00254,    .00454,
     +     .20269,    .05398,    .03255,    .00252,    .00149,
     +     .00061,    .00246,    .00438,
     +     .19753,    .05244,    .03088,    .00243,    .00144,
     +     .00061,    .00238,    .00423,
     +     .19266,    .05100,    .02939,    .00237,    .00140,
     +     .00060,    .00231,    .00409,
     +     .18791,    .04961,    .02796,    .00231,    .00137,
     +     .00060,    .00224,    .00395 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
     +     .63204,    .19617,    .47273,    .00627,    .00052,
     +     .00006,    .00603,    .01630,
     +     .60655,    .18656,    .42936,    .00627,    .00080,
     +     .00006,    .00602,    .01554,
     +     .57137,    .17355,    .37232,    .00616,    .00112,
     +     .00007,    .00593,    .01450,
     +     .54752,    .16487,    .33584,    .00605,    .00129,
     +     .00006,    .00582,    .01378,
     +     .52397,    .15640,    .30161,    .00589,    .00143,
     +     .00006,    .00568,    .01307,
     +     .50479,    .14959,    .27513,    .00573,    .00154,
     +     .00006,    .00554,    .01248,
     +     .48722,    .14346,    .25212,    .00558,    .00160,
     +     .00005,    .00539,    .01196,
     +     .46935,    .13726,    .22988,    .00542,    .00167,
     +     .00005,    .00524,    .01138 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
     +     .45449,    .13216,    .21227,    .00528,    .00172,
     +     .00004,    .00510,    .01090,
     +     .44073,    .12747,    .19669,    .00513,    .00176,
     +     .00004,    .00496,    .01046,
     +     .43015,    .12389,    .18520,    .00501,    .00179,
     +     .00005,    .00485,    .01014,
     +     .40870,    .11667,    .16311,    .00473,    .00183,
     +     .00005,    .00462,    .00947,
     +     .39122,    .11089,    .14644,    .00451,    .00186,
     +     .00007,    .00441,    .00894,
     +     .37276,    .10485,    .13005,    .00430,    .00187,
     +     .00016,    .00419,    .00836,
     +     .35464,    .09899,    .11517,    .00407,    .00188,
     +     .00026,    .00398,    .00779,
     +     .33912,    .09400,    .10334,    .00385,    .00186,
     +     .00033,    .00378,    .00734 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
     +     .32428,    .08929,    .09278,    .00363,    .00183,
     +     .00037,    .00359,    .00691,
     +     .31248,    .08558,    .08495,    .00349,    .00179,
     +     .00041,    .00344,    .00656,
     +     .29887,    .08133,    .07646,    .00329,    .00175,
     +     .00045,    .00327,    .00617,
     +     .28738,    .07778,    .06976,    .00315,    .00170,
     +     .00046,    .00312,    .00585,
     +     .27730,    .07469,    .06422,    .00304,    .00165,
     +     .00047,    .00298,    .00558,
     +     .26509,    .07096,    .05789,    .00286,    .00160,
     +     .00049,    .00282,    .00526,
     +     .25416,    .06765,    .05262,    .00272,    .00153,
     +     .00049,    .00268,    .00497,
     +     .24439,    .06473,    .04820,    .00260,    .00147,
     +     .00049,    .00256,    .00470 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
     +     .23504,    .06195,    .04421,    .00248,    .00142,
     +     .00050,    .00245,    .00445,
     +     .22626,    .05936,    .04069,    .00237,    .00137,
     +     .00049,    .00234,    .00422,
     +     .21832,    .05703,    .03765,    .00227,    .00132,
     +     .00048,    .00224,    .00402,
     +     .21111,    .05491,    .03505,    .00216,    .00128,
     +     .00048,    .00214,    .00387,
     +     .20414,    .05288,    .03264,    .00207,    .00123,
     +     .00048,    .00205,    .00370,
     +     .19749,    .05097,    .03047,    .00201,    .00119,
     +     .00047,    .00198,    .00351,
     +     .19142,    .04923,    .02857,    .00194,    .00115,
     +     .00046,    .00190,    .00336,
     +     .18587,    .04763,    .02689,    .00186,    .00111,
     +     .00045,    .00183,    .00325 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
     +     .18046,    .04608,    .02533,    .00179,    .00107,
     +     .00044,    .00176,    .00313,
     +     .17526,    .04461,    .02390,    .00173,    .00104,
     +     .00043,    .00170,    .00300,
     +     .17047,    .04326,    .02262,    .00168,    .00101,
     +     .00043,    .00165,    .00288,
     +     .16603,    .04201,    .02149,    .00162,    .00098,
     +     .00042,    .00159,    .00279,
     +     .16168,    .04078,    .02040,    .00157,    .00095,
     +     .00041,    .00154,    .00270 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
     +     .59482,    .17589,    .41588,    .00456,    .00040,
     +     .00002,    .00441,    .01203,
     +     .56870,    .16668,    .37405,    .00454,    .00063,
     +     .00001,    .00440,    .01145,
     +     .53287,    .15429,    .32002,    .00447,    .00087,
     +     .00003,    .00432,    .01063,
     +     .50876,    .14606,    .28603,    .00437,    .00099,
     +     .00002,    .00423,    .01008,
     +     .48504,    .13805,    .25457,    .00425,    .00109,
     +     .00002,    .00412,    .00953,
     +     .46582,    .13164,    .23052,    .00414,    .00116,
     +     .00002,    .00402,    .00908,
     +     .44831,    .12589,    .20982,    .00403,    .00123,
     +     .00002,    .00391,    .00864,
     +     .43058,    .12009,    .18996,    .00389,    .00127,
     +     .00002,    .00378,    .00824 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
     +     .41587,    .11534,    .17438,    .00379,    .00130,
     +     .00002,    .00368,    .00788,
     +     .40229,    .11098,    .16069,    .00369,    .00132,
     +     .00002,    .00358,    .00754,
     +     .39190,    .10768,    .15065,    .00358,    .00134,
     +     .00001,    .00350,    .00729,
     +     .37085,    .10103,    .13156,    .00340,    .00136,
     +     .00002,    .00331,    .00677,
     +     .35380,    .09571,    .11729,    .00325,    .00137,
     +     .00004,    .00315,    .00635,
     +     .33588,    .09018,    .10338,    .00306,    .00137,
     +     .00010,    .00298,    .00593,
     +     .31842,    .08483,    .09088,    .00286,    .00136,
     +     .00017,    .00282,    .00555,
     +     .30349,    .08031,    .08100,    .00271,    .00134,
     +     .00021,    .00267,    .00519 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
     +     .28925,    .07604,    .07226,    .00258,    .00132,
     +     .00025,    .00253,    .00485,
     +     .27805,    .07269,    .06584,    .00245,    .00129,
     +     .00028,    .00242,    .00461,
     +     .26509,    .06886,    .05891,    .00232,    .00125,
     +     .00030,    .00229,    .00433,
     +     .25421,    .06569,    .05348,    .00220,    .00121,
     +     .00031,    .00218,    .00409,
     +     .24471,    .06294,    .04902,    .00210,    .00117,
     +     .00033,    .00208,    .00388,
     +     .23317,    .05962,    .04397,    .00200,    .00112,
     +     .00033,    .00197,    .00365,
     +     .22292,    .05668,    .03978,    .00190,    .00108,
     +     .00034,    .00187,    .00344,
     +     .21381,    .05408,    .03628,    .00180,    .00104,
     +     .00034,    .00178,    .00326 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
     +     .20512,    .05163,    .03314,    .00170,    .00100,
     +     .00033,    .00169,    .00308,
     +     .19697,    .04935,    .03039,    .00163,    .00096,
     +     .00034,    .00161,    .00290,
     +     .18961,    .04731,    .02803,    .00156,    .00092,
     +     .00034,    .00154,    .00274,
     +     .18293,    .04547,    .02600,    .00150,    .00089,
     +     .00033,    .00147,    .00263,
     +     .17650,    .04369,    .02414,    .00144,    .00086,
     +     .00033,    .00141,    .00252,
     +     .17043,    .04202,    .02247,    .00138,    .00082,
     +     .00032,    .00134,    .00241,
     +     .16487,    .04050,    .02101,    .00132,    .00079,
     +     .00032,    .00129,    .00230,
     +     .15977,    .03912,    .01974,    .00128,    .00077,
     +     .00031,    .00124,    .00221 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
     +     .15481,    .03778,    .01855,    .00124,    .00074,
     +     .00030,    .00120,    .00211,
     +     .15009,    .03651,    .01746,    .00119,    .00071,
     +     .00030,    .00115,    .00202,
     +     .14575,    .03535,    .01648,    .00115,    .00069,
     +     .00029,    .00111,    .00194,
     +     .14172,    .03427,    .01563,    .00111,    .00067,
     +     .00028,    .00107,    .00187,
     +     .13780,    .03322,    .01482,    .00107,    .00065,
     +     .00028,    .00103,    .00181 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
     +     .55391,    .15596,    .36194,    .00320,    .00029,
     +     .00003,    .00319,    .00874,
     +     .52759,    .14730,    .32248,    .00322,    .00048,
     +     .00003,    .00318,    .00828,
     +     .49177,    .13566,    .27234,    .00318,    .00066,
     +     .00002,    .00311,    .00764,
     +     .46780,    .12797,    .24126,    .00312,    .00075,
     +     .00003,    .00303,    .00722,
     +     .44435,    .12055,    .21283,    .00303,    .00083,
     +     .00004,    .00295,    .00681,
     +     .42541,    .11462,    .19132,    .00295,    .00087,
     +     .00003,    .00287,    .00647,
     +     .40823,    .10929,    .17298,    .00288,    .00091,
     +     .00002,    .00278,    .00616,
     +     .39092,    .10397,    .15553,    .00276,    .00093,
     +     .00001,    .00267,    .00587 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
     +     .37661,    .09961,    .14195,    .00267,    .00095,
     +     .00002,    .00259,    .00560,
     +     .36344,    .09562,    .13012,    .00259,    .00096,
     +     .00003,    .00252,    .00534,
     +     .35336,    .09261,    .12150,    .00254,    .00097,
     +     .00002,    .00245,    .00515,
     +     .33305,    .08655,    .10520,    .00242,    .00098,
     +     .00002,    .00232,    .00478,
     +     .31672,    .08173,    .09313,    .00229,    .00098,
     +     .00003,    .00220,    .00447,
     +     .29960,    .07675,    .08149,    .00217,    .00098,
     +     .00008,    .00208,    .00415,
     +     .28297,    .07195,    .07110,    .00204,    .00097,
     +     .00013,    .00196,    .00386,
     +     .26883,    .06791,    .06296,    .00193,    .00094,
     +     .00015,    .00185,    .00360 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
     +     .25538,    .06411,    .05583,    .00183,    .00092,
     +     .00017,    .00174,    .00336,
     +     .24485,    .06114,    .05062,    .00173,    .00090,
     +     .00019,    .00166,    .00319,
     +     .23269,    .05776,    .04504,    .00165,    .00087,
     +     .00021,    .00156,    .00297,
     +     .22254,    .05494,    .04070,    .00156,    .00083,
     +     .00022,    .00149,    .00280,
     +     .21373,    .05250,    .03714,    .00148,    .00080,
     +     .00022,    .00143,    .00266,
     +     .20305,    .04959,    .03315,    .00140,    .00077,
     +     .00022,    .00133,    .00249,
     +     .19355,    .04702,    .02985,    .00133,    .00073,
     +     .00022,    .00126,    .00234,
     +     .18514,    .04475,    .02711,    .00127,    .00070,
     +     .00022,    .00119,    .00221 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
     +     .17718,    .04261,    .02466,    .00119,    .00067,
     +     .00022,    .00114,    .00210,
     +     .16972,    .04063,    .02253,    .00114,    .00064,
     +     .00021,    .00108,    .00198,
     +     .16300,    .03886,    .02071,    .00109,    .00061,
     +     .00021,    .00102,    .00188,
     +     .15693,    .03727,    .01915,    .00104,    .00059,
     +     .00021,    .00097,    .00178,
     +     .15110,    .03574,    .01773,    .00099,    .00057,
     +     .00021,    .00093,    .00169,
     +     .14559,    .03431,    .01646,    .00096,    .00055,
     +     .00021,    .00089,    .00160,
     +     .14056,    .03301,    .01535,    .00092,    .00053,
     +     .00020,    .00086,    .00153,
     +     .13598,    .03182,    .01439,    .00088,    .00051,
     +     .00019,    .00082,    .00147 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
     +     .13153,    .03068,    .01349,    .00084,    .00050,
     +     .00019,    .00079,    .00141,
     +     .12728,    .02960,    .01267,    .00081,    .00048,
     +     .00019,    .00076,    .00135,
     +     .12338,    .02861,    .01194,    .00079,    .00046,
     +     .00018,    .00073,    .00129,
     +     .11977,    .02769,    .01130,    .00076,    .00044,
     +     .00018,    .00070,    .00125,
     +     .11626,    .02680,    .01070,    .00074,    .00042,
     +     .00017,    .00067,    .00121 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
     +     .51027,    .13668,    .31134,    .00220,    .00026,
     +     .00007,    .00230,    .00620,
     +     .48425,    .12861,    .27480,    .00221,    .00039,
     +     .00004,    .00228,    .00586,
     +     .44903,    .11785,    .22912,    .00216,    .00051,
     +     .00005,    .00222,    .00541,
     +     .42558,    .11079,    .20116,    .00212,    .00058,
     +     .00005,    .00216,    .00509,
     +     .40271,    .10399,    .17588,    .00207,    .00064,
     +     .00005,    .00210,    .00477,
     +     .38432,    .09857,    .15696,    .00202,    .00068,
     +     .00004,    .00204,    .00452,
     +     .36774,    .09373,    .14095,    .00194,    .00070,
     +     .00004,    .00198,    .00429,
     +     .35104,    .08891,    .12586,    .00191,    .00072,
     +     .00004,    .00192,    .00403 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
     +     .33733,    .08496,    .11422,    .00184,    .00073,
     +     .00004,    .00185,    .00385,
     +     .32474,    .08136,    .10412,    .00177,    .00073,
     +     .00004,    .00178,    .00369,
     +     .31513,    .07866,    .09682,    .00172,    .00072,
     +     .00004,    .00173,    .00356,
     +     .29583,    .07324,    .08312,    .00165,    .00073,
     +     .00003,    .00163,    .00328,
     +     .28041,    .06893,    .07307,    .00154,    .00074,
     +     .00004,    .00155,    .00307,
     +     .26432,    .06448,    .06344,    .00143,    .00072,
     +     .00007,    .00146,    .00285,
     +     .24871,    .06024,    .05495,    .00135,    .00070,
     +     .00011,    .00137,    .00263,
     +     .23548,    .05668,    .04836,    .00127,    .00069,
     +     .00012,    .00129,    .00245 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
     +     .22298,    .05331,    .04261,    .00120,    .00066,
     +     .00013,    .00121,    .00230,
     +     .21318,    .05072,    .03843,    .00115,    .00065,
     +     .00014,    .00115,    .00216,
     +     .20200,    .04775,    .03400,    .00107,    .00062,
     +     .00015,    .00108,    .00202,
     +     .19268,    .04530,    .03057,    .00101,    .00059,
     +     .00016,    .00103,    .00189,
     +     .18458,    .04319,    .02778,    .00096,    .00058,
     +     .00017,    .00099,    .00177,
     +     .17482,    .04068,    .02467,    .00090,    .00056,
     +     .00016,    .00093,    .00166,
     +     .16616,    .03846,    .02210,    .00085,    .00053,
     +     .00017,    .00087,    .00158,
     +     .15851,    .03651,    .01999,    .00081,    .00050,
     +     .00017,    .00082,    .00150 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
     +     .15130,    .03468,    .01813,    .00077,    .00048,
     +     .00016,    .00078,    .00140,
     +     .14455,    .03298,    .01649,    .00073,    .00046,
     +     .00017,    .00074,    .00131,
     +     .13849,    .03147,    .01510,    .00070,    .00044,
     +     .00017,    .00070,    .00124,
     +     .13306,    .03011,    .01393,    .00066,    .00042,
     +     .00016,    .00066,    .00117,
     +     .12784,    .02881,    .01286,    .00063,    .00040,
     +     .00015,    .00063,    .00112,
     +     .12289,    .02760,    .01191,    .00061,    .00038,
     +     .00015,    .00060,    .00106,
     +     .11841,    .02650,    .01108,    .00059,    .00036,
     +     .00015,    .00058,    .00102,
     +     .11435,    .02550,    .01036,    .00055,    .00035,
     +     .00015,    .00056,    .00098 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
     +     .11041,    .02454,    .00968,    .00053,    .00034,
     +     .00014,    .00053,    .00093,
     +     .10664,    .02363,    .00908,    .00051,    .00033,
     +     .00014,    .00051,    .00089,
     +     .10319,    .02280,    .00854,    .00050,    .00032,
     +     .00014,    .00049,    .00084,
     +     .10002,    .02204,    .00807,    .00048,    .00031,
     +     .00014,    .00047,    .00081,
     +     .09693,    .02130,    .00762,    .00046,    .00030,
     +     .00013,    .00045,    .00078 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
     +     .46496,    .11848,    .26469,    .00148,    .00021,
     +     .00005,    .00160,    .00430,
     +     .43964,    .11105,    .23150,    .00146,    .00029,
     +     .00005,    .00160,    .00407,
     +     .40547,    .10122,    .19047,    .00143,    .00039,
     +     .00003,    .00156,    .00374,
     +     .38286,    .09481,    .16576,    .00139,    .00045,
     +     .00004,    .00152,    .00352,
     +     .36091,    .08866,    .14365,    .00136,    .00049,
     +     .00004,    .00148,    .00328,
     +     .34337,    .08379,    .12727,    .00131,    .00051,
     +     .00003,    .00143,    .00310,
     +     .32764,    .07942,    .11351,    .00125,    .00053,
     +     .00003,    .00139,    .00295,
     +     .31183,    .07510,    .10068,    .00122,    .00054,
     +     .00003,    .00134,    .00278 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
     +     .29885,    .07159,    .09084,    .00117,    .00055,
     +     .00003,    .00129,    .00264,
     +     .28698,    .06841,    .08238,    .00113,    .00056,
     +     .00003,    .00125,    .00251,
     +     .27796,    .06600,    .07628,    .00109,    .00056,
     +     .00003,    .00122,    .00242,
     +     .25989,    .06121,    .06491,    .00104,    .00055,
     +     .00004,    .00114,    .00222,
     +     .24546,    .05742,    .05665,    .00099,    .00054,
     +     .00004,    .00109,    .00205,
     +     .23049,    .05353,    .04883,    .00094,    .00053,
     +     .00005,    .00102,    .00190,
     +     .21610,    .04981,    .04198,    .00086,    .00052,
     +     .00008,    .00096,    .00176,
     +     .20395,    .04669,    .03671,    .00079,    .00050,
     +     .00010,    .00090,    .00164 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
     +     .19247,    .04380,    .03215,    .00076,    .00049,
     +     .00010,    .00083,    .00152,
     +     .18353,    .04155,    .02885,    .00072,    .00047,
     +     .00012,    .00079,    .00144,
     +     .17333,    .03901,    .02537,    .00068,    .00045,
     +     .00012,    .00075,    .00133,
     +     .16486,    .03690,    .02270,    .00064,    .00043,
     +     .00012,    .00071,    .00125,
     +     .15753,    .03509,    .02054,    .00060,    .00041,
     +     .00013,    .00067,    .00119,
     +     .14876,    .03295,    .01814,    .00055,    .00039,
     +     .00013,    .00063,    .00109,
     +     .14098,    .03106,    .01618,    .00053,    .00037,
     +     .00012,    .00059,    .00102,
     +     .13413,    .02941,    .01458,    .00050,    .00035,
     +     .00012,    .00056,    .00096 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
     +     .12767,    .02787,    .01316,    .00047,    .00034,
     +     .00012,    .00053,    .00090,
     +     .12168,    .02644,    .01193,    .00045,    .00032,
     +     .00012,    .00050,    .00085,
     +     .11632,    .02516,    .01089,    .00042,    .00031,
     +     .00012,    .00047,    .00080,
     +     .11149,    .02402,    .01002,    .00040,    .00029,
     +     .00012,    .00045,    .00076,
     +     .10688,    .02294,    .00922,    .00038,    .00028,
     +     .00011,    .00043,    .00072,
     +     .10254,    .02193,    .00851,    .00037,    .00027,
     +     .00011,    .00041,    .00068,
     +     .09860,    .02101,    .00790,    .00035,    .00026,
     +     .00011,    .00039,    .00065,
     +     .09501,    .02018,    .00737,    .00035,    .00025,
     +     .00011,    .00037,    .00063 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
     +     .09155,    .01938,    .00688,    .00033,    .00024,
     +     .00011,    .00036,    .00060,
     +     .08828,    .01863,    .00643,    .00031,    .00023,
     +     .00011,    .00034,    .00057,
     +     .08529,    .01794,    .00604,    .00029,    .00022,
     +     .00010,    .00033,    .00055,
     +     .08252,    .01732,    .00570,    .00028,    .00021,
     +     .00010,    .00032,    .00052,
     +     .07984,    .01671,    .00537,    .00028,    .00021,
     +     .00010,    .00030,    .00050 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
     +     .41895,    .10160,    .22254,    .00108,    .00010,
     +    -.00002,    .00104,    .00292,
     +     .39464,    .09490,    .19289,    .00108,    .00018,
     +    -.00002,    .00103,    .00276,
     +     .36210,    .08608,    .15677,    .00103,    .00025,
     +    -.00002,    .00101,    .00253,
     +     .34068,    .08034,    .13528,    .00100,    .00028,
     +    -.00001,    .00099,    .00236,
     +     .31998,    .07486,    .11625,    .00097,    .00031,
     +    -.00002,    .00095,    .00220,
     +     .30345,    .07054,    .10227,    .00096,    .00033,
     +    -.00002,    .00092,    .00208,
     +     .28866,    .06669,    .09062,    .00093,    .00034,
     +     .00000,    .00090,    .00195,
     +     .27390,    .06287,    .07986,    .00090,    .00034,
     +    -.00001,    .00086,    .00186 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
     +     .26183,    .05980,    .07167,    .00086,    .00034,
     +    -.00001,    .00082,    .00176,
     +     .25082,    .05701,    .06466,    .00083,    .00034,
     +    -.00001,    .00079,    .00167,
     +     .24248,    .05490,    .05963,    .00082,    .00035,
     +    -.00002,    .00077,    .00160,
     +     .22580,    .05072,    .05033,    .00078,    .00034,
     +    -.00001,    .00073,    .00146,
     +     .21258,    .04744,    .04363,    .00073,    .00034,
     +    -.00001,    .00068,    .00137,
     +     .19891,    .04407,    .03733,    .00067,    .00033,
     +     .00001,    .00064,    .00126,
     +     .18582,    .04087,    .03187,    .00062,    .00031,
     +     .00002,    .00059,    .00116,
     +     .17480,    .03820,    .02769,    .00058,    .00030,
     +     .00003,    .00055,    .00108 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
     +     .16444,    .03571,    .02411,    .00054,    .00029,
     +     .00005,    .00052,    .00100,
     +     .15642,    .03380,    .02154,    .00051,    .00028,
     +     .00005,    .00050,    .00093,
     +     .14724,    .03163,    .01884,    .00049,    .00027,
     +     .00005,    .00046,    .00086,
     +     .13966,    .02985,    .01678,    .00047,    .00026,
     +     .00005,    .00044,    .00081,
     +     .13313,    .02833,    .01512,    .00044,    .00024,
     +     .00006,    .00041,    .00076,
     +     .12530,    .02652,    .01329,    .00043,    .00023,
     +     .00006,    .00039,    .00070,
     +     .11843,    .02493,    .01181,    .00039,    .00022,
     +     .00006,    .00036,    .00066,
     +     .11240,    .02354,    .01060,    .00036,    .00021,
     +     .00006,    .00033,    .00062 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
     +     .10671,    .02225,    .00953,    .00034,    .00019,
     +     .00006,    .00031,    .00059,
     +     .10144,    .02105,    .00861,    .00033,    .00018,
     +     .00006,    .00030,    .00055,
     +     .09674,    .01999,    .00784,    .00032,    .00018,
     +     .00006,    .00029,    .00051,
     +     .09252,    .01906,    .00718,    .00031,    .00017,
     +     .00006,    .00027,    .00048,
     +     .08850,    .01816,    .00659,    .00029,    .00016,
     +     .00006,    .00025,    .00045,
     +     .08474,    .01733,    .00607,    .00027,    .00015,
     +     .00006,    .00024,    .00043,
     +     .08133,    .01657,    .00563,    .00026,    .00015,
     +     .00006,    .00023,    .00041,
     +     .07824,    .01589,    .00524,    .00025,    .00014,
     +     .00006,    .00022,    .00039 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
     +     .07525,    .01523,    .00488,    .00024,    .00013,
     +     .00005,    .00021,    .00037,
     +     .07242,    .01461,    .00455,    .00023,    .00013,
     +     .00005,    .00020,    .00036,
     +     .06984,    .01405,    .00426,    .00023,    .00013,
     +     .00005,    .00019,    .00034,
     +     .06747,    .01354,    .00402,    .00021,    .00012,
     +     .00005,    .00018,    .00033,
     +     .06517,    .01304,    .00378,    .00020,    .00012,
     +     .00005,    .00017,    .00032 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
     +     .37284,    .08573,    .18425,    .00063,    .00011,
     +     .00004,    .00072,    .00195,
     +     .34987,    .07982,    .15827,    .00064,    .00015,
     +     .00004,    .00071,    .00181,
     +     .31927,    .07202,    .12703,    .00062,    .00020,
     +     .00004,    .00070,    .00165,
     +     .29922,    .06699,    .10867,    .00062,    .00022,
     +     .00004,    .00069,    .00153,
     +     .27997,    .06220,    .09256,    .00060,    .00024,
     +     .00004,    .00067,    .00143,
     +     .26469,    .05843,    .08085,    .00058,    .00024,
     +     .00005,    .00064,    .00135,
     +     .25105,    .05506,    .07118,    .00054,    .00025,
     +     .00003,    .00060,    .00131,
     +     .23745,    .05178,    .06230,    .00055,    .00024,
     +     .00002,    .00058,    .00120 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
     +     .22637,    .04911,    .05558,    .00054,    .00024,
     +     .00002,    .00056,    .00114,
     +     .21632,    .04669,    .04987,    .00052,    .00025,
     +     .00003,    .00054,    .00109,
     +     .20876,    .04488,    .04580,    .00049,    .00025,
     +     .00003,    .00053,    .00104,
     +     .19362,    .04130,    .03833,    .00048,    .00024,
     +     .00003,    .00049,    .00095,
     +     .18164,    .03850,    .03301,    .00045,    .00023,
     +     .00003,    .00045,    .00089,
     +     .16933,    .03564,    .02803,    .00041,    .00023,
     +     .00003,    .00042,    .00081,
     +     .15756,    .03293,    .02374,    .00039,    .00022,
     +     .00004,    .00039,    .00073,
     +     .14771,    .03068,    .02050,    .00036,    .00021,
     +     .00005,    .00037,    .00068 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
     +     .13850,    .02860,    .01774,    .00034,    .00020,
     +     .00005,    .00035,    .00064,
     +     .13136,    .02699,    .01577,    .00034,    .00019,
     +     .00005,    .00032,    .00059,
     +     .12327,    .02518,    .01372,    .00030,    .00018,
     +     .00005,    .00030,    .00055,
     +     .11660,    .02370,    .01216,    .00028,    .00017,
     +     .00005,    .00028,    .00051,
     +     .11085,    .02243,    .01091,    .00027,    .00016,
     +     .00006,    .00027,    .00048,
     +     .10400,    .02093,    .00954,    .00025,    .00015,
     +     .00005,    .00024,    .00045,
     +     .09801,    .01962,    .00844,    .00024,    .00014,
     +     .00005,    .00023,    .00042,
     +     .09276,    .01848,    .00754,    .00022,    .00014,
     +     .00005,    .00022,    .00039 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
     +     .08784,    .01742,    .00675,    .00020,    .00013,
     +     .00005,    .00020,    .00037,
     +     .08327,    .01645,    .00608,    .00020,    .00012,
     +     .00005,    .00019,    .00034,
     +     .07921,    .01559,    .00552,    .00021,    .00012,
     +     .00005,    .00017,    .00031,
     +     .07559,    .01482,    .00505,    .00019,    .00011,
     +     .00004,    .00016,    .00030,
     +     .07215,    .01409,    .00462,    .00018,    .00010,
     +     .00004,    .00016,    .00029,
     +     .06893,    .01341,    .00424,    .00017,    .00010,
     +     .00004,    .00015,    .00027,
     +     .06602,    .01280,    .00392,    .00016,    .00010,
     +     .00004,    .00014,    .00026,
     +     .06338,    .01225,    .00364,    .00016,    .00009,
     +     .00004,    .00014,    .00025 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
     +     .06085,    .01172,    .00338,    .00015,    .00009,
     +     .00004,    .00013,    .00023,
     +     .05846,    .01123,    .00315,    .00014,    .00008,
     +     .00004,    .00012,    .00022,
     +     .05628,    .01077,    .00295,    .00013,    .00008,
     +     .00003,    .00012,    .00020,
     +     .05428,    .01036,    .00277,    .00013,    .00008,
     +     .00003,    .00011,    .00019,
     +     .05234,    .00997,    .00260,    .00013,    .00007,
     +     .00003,    .00011,    .00018 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
     +     .32763,    .07142,    .15045,    .00034,    .00009,
     +     .00005,    .00049,    .00124,
     +     .30626,    .06622,    .12804,    .00035,    .00012,
     +     .00005,    .00048,    .00118,
     +     .27793,    .05944,    .10145,    .00036,    .00016,
     +     .00005,    .00047,    .00106,
     +     .25949,    .05508,    .08602,    .00035,    .00016,
     +     .00004,    .00045,    .00098,
     +     .24183,    .05096,    .07263,    .00035,    .00017,
     +     .00004,    .00043,    .00091,
     +     .22787,    .04772,    .06297,    .00035,    .00018,
     +     .00004,    .00042,    .00085,
     +     .21547,    .04485,    .05505,    .00033,    .00018,
     +     .00004,    .00041,    .00081,
     +     .20316,    .04203,    .04786,    .00033,    .00017,
     +     .00002,    .00038,    .00077 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
     +     .19317,    .03976,    .04245,    .00033,    .00017,
     +     .00002,    .00037,    .00071,
     +     .18411,    .03771,    .03787,    .00032,    .00017,
     +     .00002,    .00035,    .00067,
     +     .17729,    .03618,    .03463,    .00030,    .00018,
     +     .00002,    .00034,    .00064,
     +     .16378,    .03317,    .02873,    .00028,    .00017,
     +     .00003,    .00032,    .00059,
     +     .15310,    .03081,    .02456,    .00026,    .00016,
     +     .00003,    .00030,    .00055,
     +     .14216,    .02841,    .02070,    .00025,    .00016,
     +     .00003,    .00028,    .00050,
     +     .13177,    .02614,    .01741,    .00023,    .00015,
     +     .00003,    .00026,    .00046,
     +     .12312,    .02427,    .01493,    .00021,    .00014,
     +     .00004,    .00024,    .00042 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
     +     .11506,    .02255,    .01284,    .00019,    .00014,
     +     .00004,    .00022,    .00039,
     +     .10882,    .02123,    .01136,    .00019,    .00013,
     +     .00004,    .00021,    .00035,
     +     .10177,    .01974,    .00982,    .00017,    .00012,
     +     .00004,    .00019,    .00034,
     +     .09598,    .01852,    .00866,    .00016,    .00012,
     +     .00004,    .00018,    .00032,
     +     .09102,    .01748,    .00774,    .00014,    .00011,
     +     .00004,    .00017,    .00031,
     +     .08512,    .01626,    .00673,    .00014,    .00010,
     +     .00004,    .00016,    .00028,
     +     .07995,    .01520,    .00593,    .00014,    .00010,
     +     .00004,    .00014,    .00025,
     +     .07545,    .01428,    .00528,    .00014,    .00009,
     +     .00004,    .00014,    .00023 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
     +     .07126,    .01342,    .00471,    .00012,    .00009,
     +     .00004,    .00013,    .00022,
     +     .06738,    .01264,    .00423,    .00012,    .00008,
     +     .00003,    .00012,    .00020,
     +     .06394,    .01194,    .00382,    .00012,    .00008,
     +     .00003,    .00011,    .00019,
     +     .06088,    .01133,    .00349,    .00010,    .00007,
     +     .00003,    .00011,    .00018,
     +     .05798,    .01075,    .00318,    .00010,    .00007,
     +     .00003,    .00010,    .00017,
     +     .05525,    .01021,    .00291,    .00010,    .00006,
     +     .00002,    .00009,    .00016,
     +     .05280,    .00972,    .00269,    .00009,    .00006,
     +     .00002,    .00009,    .00015,
     +     .05060,    .00929,    .00249,    .00009,    .00006,
     +     .00002,    .00008,    .00014 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
     +     .04848,    .00887,    .00231,    .00009,    .00006,
     +     .00002,    .00008,    .00013,
     +     .04649,    .00848,    .00215,    .00008,    .00005,
     +     .00002,    .00008,    .00013,
     +     .04467,    .00812,    .00200,    .00007,    .00005,
     +     .00002,    .00007,    .00013,
     +     .04301,    .00780,    .00188,    .00007,    .00005,
     +     .00002,    .00007,    .00012,
     +     .04141,    .00749,    .00177,    .00007,    .00005,
     +     .00003,    .00007,    .00011 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
     +     .28416,    .05872,    .12111,    .00025,    .00004,
     +     .00001,    .00029,    .00079,
     +     .26458,    .05425,    .10216,    .00025,    .00006,
     +     .00001,    .00029,    .00073,
     +     .23877,    .04845,    .07990,    .00028,    .00008,
     +     .00000,    .00028,    .00063,
     +     .22208,    .04473,    .06717,    .00027,    .00009,
     +     .00000,    .00027,    .00059,
     +     .20617,    .04121,    .05623,    .00025,    .00009,
     +     .00000,    .00025,    .00057,
     +     .19364,    .03847,    .04840,    .00024,    .00009,
     +     .00000,    .00023,    .00054,
     +     .18254,    .03606,    .04205,    .00024,    .00010,
     +     .00000,    .00023,    .00049,
     +     .17160,    .03368,    .03629,    .00021,    .00010,
     +     .00000,    .00021,    .00047 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
     +     .16271,    .03178,    .03200,    .00021,    .00009,
     +     .00000,    .00021,    .00045,
     +     .15467,    .03008,    .02839,    .00021,    .00009,
     +     .00001,    .00020,    .00043,
     +     .14864,    .02879,    .02586,    .00020,    .00009,
     +     .00001,    .00020,    .00041,
     +     .13672,    .02628,    .02127,    .00019,    .00009,
     +     .00001,    .00019,    .00036,
     +     .12736,    .02433,    .01806,    .00018,    .00010,
     +     .00001,    .00017,    .00033,
     +     .11781,    .02235,    .01510,    .00017,    .00009,
     +     .00001,    .00016,    .00031,
     +     .10878,    .02050,    .01261,    .00015,    .00008,
     +     .00001,    .00015,    .00027,
     +     .10127,    .01897,    .01074,    .00015,    .00008,
     +     .00002,    .00013,    .00025 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
     +     .09431,    .01756,    .00918,    .00014,    .00008,
     +     .00001,    .00012,    .00024,
     +     .08895,    .01648,    .00808,    .00013,    .00007,
     +     .00001,    .00011,    .00022,
     +     .08293,    .01527,    .00695,    .00011,    .00007,
     +     .00002,    .00010,    .00021,
     +     .07797,    .01430,    .00610,    .00011,    .00006,
     +     .00002,    .00010,    .00019,
     +     .07374,    .01347,    .00543,    .00012,    .00006,
     +     .00002,    .00010,    .00017,
     +     .06874,    .01249,    .00470,    .00010,    .00006,
     +     .00002,    .00009,    .00016,
     +     .06439,    .01164,    .00412,    .00009,    .00005,
     +     .00002,    .00008,    .00015,
     +     .06060,    .01090,    .00365,    .00009,    .00005,
     +     .00002,    .00008,    .00014 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
     +     .05706,    .01022,    .00325,    .00008,    .00004,
     +     .00001,    .00007,    .00013,
     +     .05382,    .00960,    .00291,    .00008,    .00004,
     +     .00002,    .00006,    .00012,
     +     .05095,    .00905,    .00262,    .00008,    .00004,
     +     .00002,    .00006,    .00011,
     +     .04839,    .00856,    .00238,    .00007,    .00004,
     +     .00001,    .00006,    .00011,
     +     .04597,    .00810,    .00217,    .00007,    .00004,
     +     .00001,    .00005,    .00010,
     +     .04372,    .00768,    .00198,    .00007,    .00003,
     +     .00001,    .00005,    .00009,
     +     .04170,    .00730,    .00182,    .00007,    .00003,
     +     .00001,    .00005,    .00009,
     +     .03987,    .00696,    .00169,    .00006,    .00003,
     +     .00001,    .00005,    .00009 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
     +     .03813,    .00663,    .00156,    .00005,    .00003,
     +     .00001,    .00004,    .00008,
     +     .03649,    .00633,    .00145,    .00005,    .00003,
     +     .00001,    .00004,    .00008,
     +     .03500,    .00606,    .00135,    .00005,    .00003,
     +     .00001,    .00004,    .00007,
     +     .03364,    .00580,    .00126,    .00005,    .00002,
     +     .00001,    .00004,    .00007,
     +     .03233,    .00556,    .00118,    .00004,    .00002,
     +     .00001,    .00003,    .00006 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
     +     .24256,    .04735,    .09559,    .00010,    .00006,
     +     .00004,    .00021,    .00046,
     +     .22496,    .04357,    .07990,    .00009,    .00006,
     +     .00003,    .00020,    .00043,
     +     .20189,    .03869,    .06168,    .00010,    .00007,
     +     .00004,    .00019,    .00037,
     +     .18703,    .03558,    .05138,    .00010,    .00007,
     +     .00003,    .00018,    .00035,
     +     .17292,    .03266,    .04261,    .00009,    .00007,
     +     .00003,    .00017,    .00034,
     +     .16183,    .03038,    .03639,    .00011,    .00007,
     +     .00003,    .00015,    .00032,
     +     .15205,    .02838,    .03139,    .00011,    .00007,
     +     .00003,    .00015,    .00030,
     +     .14245,    .02643,    .02690,    .00010,    .00007,
     +     .00003,    .00015,    .00028 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
     +     .13469,    .02488,    .02358,    .00010,    .00007,
     +     .00002,    .00014,    .00026,
     +     .12769,    .02348,    .02080,    .00011,    .00007,
     +     .00002,    .00014,    .00024,
     +     .12246,    .02244,    .01886,    .00010,    .00007,
     +     .00002,    .00013,    .00022,
     +     .11216,    .02038,    .01537,    .00009,    .00007,
     +     .00002,    .00012,    .00021,
     +     .10410,    .01880,    .01295,    .00008,    .00006,
     +     .00002,    .00011,    .00020,
     +     .09591,    .01721,    .01075,    .00008,    .00006,
     +     .00002,    .00010,    .00018,
     +     .08819,    .01572,    .00890,    .00007,    .00006,
     +     .00002,    .00009,    .00016,
     +     .08180,    .01449,    .00753,    .00006,    .00005,
     +     .00002,    .00009,    .00015 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
     +     .07589,    .01337,    .00640,    .00006,    .00005,
     +     .00002,    .00008,    .00014,
     +     .07136,    .01251,    .00560,    .00006,    .00005,
     +     .00002,    .00008,    .00013,
     +     .06628,    .01156,    .00479,    .00007,    .00005,
     +     .00002,    .00007,    .00011,
     +     .06214,    .01078,    .00419,    .00006,    .00004,
     +     .00002,    .00006,    .00011,
     +     .05863,    .01013,    .00371,    .00004,    .00004,
     +     .00002,    .00006,    .00010,
     +     .05445,    .00936,    .00319,    .00005,    .00004,
     +     .00002,    .00006,    .00009,
     +     .05084,    .00869,    .00279,    .00004,    .00004,
     +     .00002,    .00005,    .00009,
     +     .04772,    .00812,    .00246,    .00004,    .00003,
     +     .00001,    .00005,    .00008 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
     +     .04481,    .00759,    .00218,    .00003,    .00003,
     +     .00001,    .00004,    .00007,
     +     .04214,    .00711,    .00194,    .00003,    .00003,
     +     .00001,    .00004,    .00006,
     +     .03979,    .00669,    .00174,    .00003,    .00003,
     +     .00001,    .00004,    .00007,
     +     .03770,    .00631,    .00158,    .00003,    .00003,
     +     .00001,    .00004,    .00006,
     +     .03572,    .00596,    .00144,    .00003,    .00002,
     +     .00001,    .00004,    .00006,
     +     .03389,    .00563,    .00131,    .00003,    .00002,
     +     .00001,    .00003,    .00005,
     +     .03225,    .00534,    .00120,    .00003,    .00002,
     +     .00001,    .00003,    .00005,
     +     .03076,    .00508,    .00111,    .00003,    .00002,
     +     .00001,    .00003,    .00005 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
     +     .02935,    .00484,    .00102,    .00003,    .00002,
     +     .00001,    .00003,    .00005,
     +     .02803,    .00460,    .00095,    .00003,    .00002,
     +     .00001,    .00003,    .00004,
     +     .02683,    .00440,    .00088,    .00003,    .00002,
     +     .00001,    .00002,    .00004,
     +     .02575,    .00421,    .00083,    .00002,    .00002,
     +     .00001,    .00002,    .00004,
     +     .02471,    .00402,    .00077,    .00002,    .00001,
     +     .00001,    .00002,    .00003 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
     +     .16835,    .02925,    .05632,    .00003,    .00001,
     +     .00000,    .00005,    .00014,
     +     .15479,    .02668,    .04616,    .00004,    .00002,
     +     .00000,    .00005,    .00014,
     +     .13726,    .02341,    .03467,    .00003,    .00002,
     +     .00000,    .00005,    .00013,
     +     .12607,    .02136,    .02834,    .00004,    .00002,
     +     .00000,    .00005,    .00011,
     +     .11556,    .01944,    .02306,    .00004,    .00002,
     +     .00000,    .00005,    .00010,
     +     .10741,    .01795,    .01939,    .00004,    .00002,
     +     .00000,    .00005,    .00009,
     +     .10025,    .01666,    .01649,    .00004,    .00002,
     +     .00000,    .00005,    .00009,
     +     .09327,    .01541,    .01392,    .00003,    .00002,
     +     .00000,    .00005,    .00008 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
     +     .08767,    .01441,    .01205,    .00002,    .00002,
     +     .00000,    .00004,    .00008,
     +     .08264,    .01353,    .01051,    .00002,    .00002,
     +     .00000,    .00004,    .00008,
     +     .07891,    .01287,    .00944,    .00002,    .00002,
     +     .00000,    .00004,    .00008,
     +     .07159,    .01159,    .00755,    .00003,    .00002,
     +     .00000,    .00004,    .00006,
     +     .06593,    .01061,    .00627,    .00003,    .00002,
     +     .00000,    .00003,    .00005,
     +     .06024,    .00963,    .00512,    .00003,    .00002,
     +     .00000,    .00003,    .00005,
     +     .05493,    .00873,    .00417,    .00002,    .00002,
     +     .00000,    .00003,    .00005,
     +     .05056,    .00799,    .00348,    .00002,    .00002,
     +     .00000,    .00003,    .00005 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
     +     .04655,    .00731,    .00292,    .00002,    .00002,
     +     .00000,    .00002,    .00004,
     +     .04352,    .00680,    .00253,    .00001,    .00001,
     +     .00000,    .00002,    .00004,
     +     .04013,    .00624,    .00214,    .00001,    .00001,
     +     .00000,    .00002,    .00003,
     +     .03739,    .00578,    .00185,    .00001,    .00001,
     +     .00001,    .00002,    .00003,
     +     .03506,    .00540,    .00162,    .00001,    .00001,
     +     .00001,    .00002,    .00003,
     +     .03233,    .00495,    .00138,    .00001,    .00001,
     +     .00001,    .00002,    .00003,
     +     .02998,    .00457,    .00120,    .00001,    .00001,
     +     .00001,    .00002,    .00003,
     +     .02796,    .00424,    .00105,    .00001,    .00001,
     +     .00001,    .00001,    .00002 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
     +     .02610,    .00394,    .00092,    .00000,    .00001,
     +     .00001,    .00001,    .00002,
     +     .02441,    .00367,    .00082,    .00001,    .00001,
     +     .00001,    .00001,    .00002,
     +     .02292,    .00343,    .00073,    .00001,    .00001,
     +     .00000,    .00001,    .00002,
     +     .02160,    .00323,    .00066,    .00001,    .00001,
     +     .00000,    .00001,    .00002,
     +     .02037,    .00303,    .00059,    .00001,    .00001,
     +     .00000,    .00001,    .00002,
     +     .01923,    .00285,    .00054,    .00001,    .00001,
     +     .00000,    .00001,    .00002,
     +     .01821,    .00269,    .00049,    .00001,    .00001,
     +     .00000,    .00001,    .00001,
     +     .01730,    .00255,    .00045,    .00001,    .00001,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/
     +     .01644,    .00242,    .00042,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01563,    .00229,    .00038,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01491,    .00218,    .00036,    .00000,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01425,    .00208,    .00033,    .00000,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01361,    .00198,    .00031,    .00000,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/
     +     .10761,    .01644,    .03007,    .00001,    .00000,
     +    -.00001,    .00001,    .00004,
     +     .09804,    .01487,    .02414,    .00002,    .00000,
     +    -.00001,    .00001,    .00003,
     +     .08581,    .01289,    .01762,    .00002,    .00000,
     +     .00000,    .00001,    .00002,
     +     .07812,    .01164,    .01412,    .00001,    .00000,
     +     .00000,    .00001,    .00002,
     +     .07095,    .01050,    .01125,    .00001,    .00000,
     +     .00000,    .00001,    .00002,
     +     .06543,    .00963,    .00931,    .00001,    .00000,
     +     .00000,    .00001,    .00003,
     +     .06061,    .00887,    .00779,    .00001,    .00000,
     +    -.00001,    .00000,    .00003,
     +     .05597,    .00815,    .00647,    .00000,    .00000,
     +    -.00001,    .00000,    .00002 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
     +     .05228,    .00758,    .00553,    .00001,    .00000,
     +     .00000,    .00000,    .00002,
     +     .04899,    .00707,    .00476,    .00001,    .00000,
     +     .00000,    .00001,    .00002,
     +     .04655,    .00669,    .00424,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04182,    .00597,    .00332,    .00001,    .00001,
     +     .00000,    .00001,    .00002,
     +     .03819,    .00542,    .00271,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03457,    .00487,    .00218,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03124,    .00437,    .00175,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02852,    .00397,    .00144,    .00000,    .00000,
     +     .00000,    .00000,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
     +     .02604,    .00361,    .00119,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02418,    .00333,    .00102,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02212,    .00303,    .00085,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02047,    .00279,    .00073,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01907,    .00259,    .00063,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01745,    .00236,    .00053,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01607,    .00216,    .00046,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01489,    .00199,    .00040,    .00000,    .00000,
     +     .00000,    .00000,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
     +     .01381,    .00184,    .00035,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01283,    .00170,    .00031,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01197,    .00158,    .00027,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01122,    .00148,    .00024,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01052,    .00138,    .00022,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00988,    .00129,    .00020,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00931,    .00122,    .00018,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00881,    .00115,    .00017,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/
     +     .00833,    .00108,    .00015,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00788,    .00102,    .00014,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00748,    .00097,    .00013,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00712,    .00092,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00677,    .00087,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/
     +     .06175,    .00817,    .01409,    .00002,   -.00001,
     +    -.00001,    .00000,    .00000,
     +     .05569,    .00731,    .01105,    .00001,   -.00001,
     +     .00000,    .00000,    .00001,
     +     .04804,    .00625,    .00781,    .00001,   -.00001,
     +    -.00001,   -.00001,    .00001,
     +     .04329,    .00559,    .00612,    .00000,   -.00001,
     +    -.00001,   -.00001,    .00000,
     +     .03892,    .00499,    .00477,    .00000,   -.00001,
     +    -.00001,    .00000,    .00000,
     +     .03558,    .00454,    .00387,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03270,    .00415,    .00319,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02993,    .00378,    .00260,    .00001,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
     +     .02776,    .00349,    .00219,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02584,    .00323,    .00186,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02442,    .00304,    .00164,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02170,    .00269,    .00126,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01963,    .00242,    .00101,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01759,    .00215,    .00079,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01573,    .00191,    .00063,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01423,    .00172,    .00051,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/
     +     .01287,    .00155,    .00041,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01186,    .00142,    .00035,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01075,    .00128,    .00029,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00987,    .00117,    .00024,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00914,    .00108,    .00021,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00829,    .00097,    .00018,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00757,    .00088,    .00015,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00696,    .00081,    .00013,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/
     +     .00641,    .00074,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00591,    .00068,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00548,    .00063,    .00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00511,    .00059,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00476,    .00054,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00444,    .00051,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00416,    .00047,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00391,    .00044,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=33,37)/
     +     .00368,    .00042,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00346,    .00039,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00327,    .00037,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00310,    .00035,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00294,    .00033,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/
     +     .03030,    .00338,    .00544,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02701,    .00299,    .00416,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02291,    .00251,    .00283,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02041,    .00222,    .00216,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01813,    .00196,    .00164,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01641,    .00177,    .00131,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01494,    .00160,    .00105,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01354,    .00144,    .00084,    .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)/
     +     .01245,    .00132,    .00070,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01150,    .00121,    .00058,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01080,    .00114,    .00051,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00947,    .00099,    .00038,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00848,    .00088,    .00030,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00751,    .00078,    .00023,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00663,    .00068,    .00018,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00593,    .00061,    .00014,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=17,24)/
     +     .00531,    .00054,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00485,    .00049,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00435,    .00044,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00396,    .00040,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00363,    .00036,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00326,    .00032,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00295,    .00029,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00269,    .00027,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/
     +     .00246,    .00024,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00225,    .00022,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00207,    .00020,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00191,    .00019,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00177,    .00017,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00164,    .00016,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00153,    .00015,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00143,    .00014,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/
     +     .00133,    .00013,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00125,    .00012,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00117,    .00011,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00110,    .00011,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00104,    .00010,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/
     +     .00296,    .00020,    .00026,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00255,    .00017,    .00019,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00206,    .00014,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00178,    .00012,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00152,    .00010,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00134,    .00009,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00119,    .00008,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00105,    .00007,    .00003,    .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)/
     +     .00094,    .00006,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00085,    .00006,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00078,    .00005,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00066,    .00004,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00057,    .00004,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00049,    .00003,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00042,    .00003,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00036,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/
     +     .00031,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00028,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00024,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00022,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00019,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00017,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00015,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00013,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
     +     .00012,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00010,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00009,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00008,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00008,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00007,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00006,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00006,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
     +     .00005,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00005,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00004,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00004,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00004,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
      DATA XX/1D-5,2D-5,4D-5,6D-5,8D-5,
     .        1D-4,2D-4,4D-4,6D-4,8D-4,
     .        1D-3,2D-3,4D-3,6D-3,8D-3,
     .        1D-2,1.4D-2,2D-2,3D-2,4D-2,6D-2,8D-2,
     .     .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0,
     .     .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0,
     .     .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0,
     .     .8D0,.9D0,1D0/
      DATA QQ/1.25D0,1.5D0,2D0,2.5D0,3.2D0,4D0,5D0,6.4D0,8D0,1D1,
     .        1.2D1,1.8D1,2.6D1,4D1,6.4D1,1D2,
     .        1.6D2,2.4D2,4D2,6.4D2,1D3,1.8D3,3.2D3,5.6D3,1D4,
     .        1.8D4,3.2D4,5.6D4,1D5,1.8D5,3.2D5,5.6D5,1D6,
     .        1.8D6,3.2D6,5.6D6,1D7/
      DATA XMIN,XMAX,QSQMIN,QSQMAX/1D-5,1D0,1.25D0,1D7/
      DATA N0/3,4,5,9,9,9,9,9/
      DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
      DATA INIT/0/
      SAVE
      XSAVE=X
      Q2SAVE=QSQ
      IF(INIT.NE.0) GOTO 10
C        OPEN(UNIT=1,FILE='MRSR4.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