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

sfmrs_99d4.F

#include "pdf/pilot.h"
      subroutine sfmrs_99d4(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)/
     +     .00697,    .00300,    .83888,    .90778,    .00000,
     +     .00000,    .48823,    .92307,
     +     .00709,    .00304,   2.16310,    .94480,    .00000,
     +     .00000,    .52967,    .96014,
     +     .00727,    .00312,   4.58239,   1.01738,    .02307,
     +     .00000,    .60871,   1.03278,
     +     .00742,    .00317,   6.80301,   1.08526,    .09481,
     +     .00000,    .68117,   1.10067,
     +     .00756,    .00322,   9.58913,   1.17002,    .20727,
     +     .00000,    .77066,   1.18545,
     +     .00769,    .00329,  12.42113,   1.25713,    .29994,
     +     .00000,    .86180,   1.27259,
     +     .00782,    .00334,  15.54026,   1.35217,    .40120,
     +     .00000,    .96064,   1.36763,
     +     .00796,    .00339,  19.40942,   1.46434,    .52650,
     +     .00000,   1.07678,   1.47980 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
     +     .00807,    .00344,  23.11597,   1.57479,    .64080,
     +     .00000,   1.19065,   1.59024,
     +     .00819,    .00349,  27.15989,   1.69080,    .76591,
     +     .00000,   1.30991,   1.70624,
     +     .00829,    .00353,  30.61222,   1.79092,    .87025,
     +     .00000,   1.41256,   1.80634,
     +     .00849,    .00361,  38.80361,   2.02759,   1.11987,
     +     .00000,   1.65456,   2.04298,
     +     .00867,    .00369,  46.62428,   2.25793,   1.36303,
     +     .23416,   1.88939,   2.27327,
     +     .00886,    .00378,  56.32547,   2.54513,   1.66547,
     +     .60661,   2.18151,   2.56043,
     +     .00908,    .00388,  67.80870,   2.88129,   2.01838,
     +     .97660,   2.52268,   2.89653,
     +     .00928,    .00397,  79.28207,   3.21823,   2.36665,
     +    1.32917,   2.86407,   3.23341 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
     +     .00948,    .00406,  92.08671,   3.59207,   2.75462,
     +    1.73158,   3.24231,   3.60717,
     +     .00965,    .00415, 103.72792,   3.92987,   3.10720,
     +    2.10232,   3.58368,   3.94491,
     +     .00986,    .00425, 118.91522,   4.37326,   3.56636,
     +    2.57599,   4.03133,   4.38822,
     +     .01005,    .00433, 133.35502,   4.79732,   4.00344,
     +    3.02403,   4.45911,   4.81221,
     +     .01022,    .00441, 147.65639,   5.21562,   4.43756,
     +    3.47576,   4.88073,   5.23043,
     +     .01045,    .00452, 166.88367,   5.78437,   5.02304,
     +    4.07607,   5.45363,   5.79907,
     +     .01067,    .00462, 186.23371,   6.36056,   5.61540,
     +    4.68327,   6.03365,   6.37517,
     +     .01086,    .00472, 205.67613,   6.94068,   6.21362,
     +    5.30037,   6.61729,   6.95520 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
     +     .01107,    .00482, 226.02567,   7.55588,   6.84411,
     +    5.94456,   7.23594,   7.57031,
     +     .01127,    .00491, 247.10177,   8.19660,   7.50141,
     +    6.61816,   7.87996,   8.21093,
     +     .01147,    .00500, 268.10378,   8.83940,   8.16070,
     +    7.29395,   8.52585,   8.85363,
     +     .01166,    .00510, 288.62179,   9.47457,   8.81002,
     +    7.95673,   9.16388,   9.48872,
     +     .01184,    .00519, 310.29694,  10.14821,   9.49994,
     +    8.66334,   9.84034,  10.16226,
     +     .01203,    .00528, 332.22277,  10.83854,  10.20430,
     +    9.38124,  10.53341,  10.85250,
     +     .01221,    .00537, 354.04364,  11.52846,  10.90946,
     +   10.10211,  11.22590,  11.54234,
     +     .01238,    .00546, 375.21068,  12.20520,  11.59944,
     +   10.80532,  11.90503,  12.21900 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
     +     .01255,    .00554, 397.30506,  12.91637,  12.32449,
     +   11.54450,  12.61859,  12.93008,
     +     .01273,    .00563, 419.84403,  13.64672,  13.06928,
     +   12.30445,  13.35126,  13.66035,
     +     .01289,    .00571, 441.74430,  14.36486,  13.79966,
     +   13.04713,  14.07157,  14.37840,
     +     .01305,    .00580, 463.42256,  15.07670,  14.52553,
     +   13.78825,  14.78546,  15.09016,
     +     .01322,    .00587, 485.45249,  15.81099,  15.27127,
     +   14.54564,  15.52180,  15.82438 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
     +     .00947,    .00412,    .85272,    .76747,    .00000,
     +     .00000,    .41333,    .77640,
     +     .00962,    .00419,   2.07033,    .80223,    .00000,
     +     .00000,    .45149,    .81118,
     +     .00988,    .00429,   4.24014,    .86786,    .02185,
     +     .00000,    .52203,    .87683,
     +     .01007,    .00437,   6.18862,    .92728,    .08379,
     +     .00000,    .58497,    .93627,
     +     .01027,    .00447,   8.59125,   1.00018,    .18031,
     +     .00000,    .66146,   1.00918,
     +     .01045,    .00454,  10.99581,   1.07388,    .25850,
     +     .00000,    .73823,   1.08288,
     +     .01062,    .00462,  13.60947,   1.15336,    .34317,
     +     .00000,    .82061,   1.16236,
     +     .01080,    .00469,  16.81241,   1.24648,    .44706,
     +     .00000,    .91675,   1.25547 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
     +     .01096,    .00477,  19.84395,   1.33718,    .54090,
     +     .00000,   1.01005,   1.34617,
     +     .01112,    .00484,  23.11963,   1.43192,    .64297,
     +     .00000,   1.10726,   1.44090,
     +     .01124,    .00490,  25.89138,   1.51312,    .72750,
     +     .00000,   1.19039,   1.52208,
     +     .01152,    .00502,  32.39249,   1.70366,    .92815,
     +     .00000,   1.38498,   1.71260,
     +     .01176,    .00514,  38.51000,   1.88740,   1.12169,
     +     .18625,   1.57215,   1.89633,
     +     .01204,    .00526,  45.99985,   2.11455,   1.36022,
     +     .48021,   1.80303,   2.12345,
     +     .01234,    .00540,  54.75015,   2.37798,   1.63587,
     +     .76846,   2.07026,   2.38684,
     +     .01260,    .00553,  63.38206,   2.63957,   1.90530,
     +    1.04038,   2.33524,   2.64840 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
     +     .01288,    .00566,  72.90802,   2.92753,   2.20302,
     +    1.34831,   2.62654,   2.93632,
     +     .01310,    .00577,  81.48361,   3.18593,   2.47166,
     +    1.62998,   2.88767,   3.19469,
     +     .01339,    .00591,  92.55820,   3.52255,   2.81882,
     +    1.98692,   3.22752,   3.53126,
     +     .01364,    .00603, 102.98182,   3.84210,   3.14677,
     +    2.32189,   3.54988,   3.85076,
     +     .01387,    .00615, 113.22101,   4.15540,   3.47055,
     +    2.65772,   3.86571,   4.16402,
     +     .01417,    .00629, 126.85486,   4.57825,   3.90395,
     +    3.10047,   4.29172,   4.58682,
     +     .01446,    .00643, 140.44265,   5.00348,   4.33921,
     +    3.54500,   4.71985,   5.01199,
     +     .01474,    .00657, 153.97932,   5.42881,   4.77598,
     +    3.99399,   5.14786,   5.43728 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
     +     .01501,    .00671, 168.02215,   5.87676,   5.23307,
     +    4.45926,   5.59844,   5.88517,
     +     .01528,    .00684, 182.45125,   6.34040,   5.70671,
     +    4.94290,   6.06460,   6.34876,
     +     .01554,    .00697, 196.72130,   6.80279,   6.17902,
     +    5.42530,   6.52933,   6.81109,
     +     .01579,    .00710, 210.55840,   7.25701,   6.64144,
     +    5.89557,   6.98574,   7.26527,
     +     .01604,    .00722, 225.08303,   7.73630,   7.13035,
     +    6.39457,   7.46717,   7.74451,
     +     .01629,    .00735, 239.67053,   8.22468,   7.62667,
     +    6.89856,   7.95763,   8.23284,
     +     .01653,    .00747, 254.10312,   8.71045,   8.12126,
     +    7.40245,   8.44537,   8.71857,
     +     .01676,    .00759, 268.01476,   9.18457,   8.60278,
     +    7.89146,   8.92130,   9.19263 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
     +     .01699,    .00771, 282.45552,   9.68055,   9.10655,
     +    8.40326,   9.41911,   9.68858,
     +     .01722,    .00782, 297.10641,  10.18768,   9.62180,
     +    8.92725,   9.92800,  10.19566,
     +     .01744,    .00794, 311.25830,  10.68398,  10.12470,
     +    9.43683,  10.42597,  10.69193,
     +     .01765,    .00805, 325.20779,  11.17418,  10.62284,
     +    9.94382,  10.91774,  11.18209,
     +     .01787,    .00816, 339.29861,  11.67749,  11.13215,
     +   10.45929,  11.42260,  11.68535 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
     +     .01283,    .00567,    .86841,    .64946,    .00000,
     +     .00000,    .35091,    .65399,
     +     .01307,    .00577,   1.98175,    .68163,    .00000,
     +     .00000,    .38566,    .68618,
     +     .01340,    .00592,   3.92323,    .74049,    .02095,
     +     .00000,    .44826,    .74503,
     +     .01366,    .00604,   5.62971,    .79233,    .07430,
     +     .00000,    .50276,    .79686,
     +     .01393,    .00616,   7.69735,    .85486,    .15700,
     +     .00000,    .56802,    .85938,
     +     .01417,    .00628,   9.73421,    .91707,    .22283,
     +     .00000,    .63255,    .92159,
     +     .01440,    .00639,  11.91863,    .98337,    .29347,
     +     .00000,    .70106,    .98790,
     +     .01465,    .00651,  14.56263,   1.06049,    .37945,
     +     .00000,    .78047,   1.06500 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
     +     .01487,    .00661,  17.03442,   1.13479,    .45631,
     +     .00000,    .85673,   1.13929,
     +     .01509,    .00671,  19.67918,   1.21194,    .53940,
     +     .00000,    .93575,   1.21644,
     +     .01526,    .00679,  21.89681,   1.27760,    .60772,
     +     .00000,   1.00287,   1.28209,
     +     .01563,    .00697,  27.03738,   1.43051,    .76861,
     +     .00000,   1.15884,   1.43499,
     +     .01596,    .00713,  31.80349,   1.57662,    .92230,
     +     .14764,   1.30752,   1.58108,
     +     .01634,    .00732,  37.56015,   1.75564,   1.10995,
     +     .37940,   1.48936,   1.76008,
     +     .01673,    .00751,  44.19620,   1.96127,   1.32470,
     +     .60372,   1.69787,   1.96570,
     +     .01709,    .00769,  50.65713,   2.16355,   1.53254,
     +     .81318,   1.90269,   2.16795 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
     +     .01746,    .00787,  57.70589,   2.38443,   1.76032,
     +    1.04848,   2.12608,   2.38880,
     +     .01777,    .00803,  63.98786,   2.58123,   1.96438,
     +    1.26218,   2.32493,   2.58559,
     +     .01815,    .00822,  72.01620,   2.83563,   2.22601,
     +    1.53072,   2.58177,   2.83996,
     +     .01849,    .00840,  79.49454,   3.07527,   2.47124,
     +    1.78072,   2.82352,   3.07959,
     +     .01881,    .00856,  86.77927,   3.30880,   2.71190,
     +    2.02994,   3.05895,   3.31309,
     +     .01921,    .00876,  96.38314,   3.62162,   3.03157,
     +    2.35584,   3.37414,   3.62589,
     +     .01960,    .00896, 105.85909,   3.93382,   3.35018,
     +    2.68057,   3.68852,   3.93806,
     +     .01997,    .00915, 115.21738,   4.24402,   3.66781,
     +    3.00648,   4.00074,   4.24824 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
     +     .02034,    .00934, 124.83672,   4.56843,   3.99784,
     +    3.34168,   4.32711,   4.57262,
     +     .02070,    .00952, 134.64019,   4.90207,   4.33770,
     +    3.68799,   4.66264,   4.90624,
     +     .02104,    .00970, 144.26066,   5.23281,   4.67458,
     +    4.03139,   4.99515,   5.23695,
     +     .02138,    .00988, 153.51695,   5.55575,   5.00241,
     +    4.36405,   5.31973,   5.55988,
     +     .02171,    .01005, 163.17013,   5.89475,   5.34729,
     +    4.71536,   5.66035,   5.89886,
     +     .02204,    .01022, 172.79231,   6.23818,   5.69533,
     +    5.06801,   6.00535,   6.24227,
     +     .02236,    .01039, 182.25583,   6.57815,   6.04056,
     +    5.41903,   6.34679,   6.58222,
     +     .02267,    .01055, 191.31720,   6.90823,   6.37491,
     +    5.75787,   6.67825,   6.91228 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
     +     .02298,    .01072, 200.66969,   7.25198,   6.72316,
     +    6.11095,   7.02335,   7.25601,
     +     .02328,    .01088, 210.10488,   7.60184,   7.07776,
     +    6.47086,   7.37456,   7.60586,
     +     .02358,    .01103, 219.16199,   7.94261,   7.42218,
     +    6.81912,   7.71657,   7.94661,
     +     .02385,    .01118, 228.05215,   8.27798,   7.76220,
     +    7.16455,   8.05312,   8.28195,
     +     .02415,    .01133, 236.97453,   8.62064,   8.10809,
     +    7.51389,   8.39696,   8.62461 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
     +     .01533,    .00682,    .87854,    .58945,    .00000,
     +     .00000,    .31945,    .59217,
     +     .01560,    .00695,   1.93216,    .62000,    .00000,
     +     .00000,    .35220,    .62272,
     +     .01601,    .00715,   3.74924,    .67501,    .02059,
     +     .00000,    .41040,    .67772,
     +     .01632,    .00730,   5.32697,    .72274,    .06940,
     +     .00000,    .46039,    .72545,
     +     .01664,    .00746,   7.21883,    .77978,    .14485,
     +     .00000,    .51977,    .78248,
     +     .01693,    .00758,   9.06506,    .83602,    .20430,
     +     .00000,    .57798,    .83873,
     +     .01721,    .00773,  11.02922,    .89558,    .26774,
     +     .00000,    .63941,    .89827,
     +     .01751,    .00787,  13.38919,    .96453,    .34460,
     +     .00000,    .71029,    .96721 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
     +     .01777,    .00801,  15.57921,   1.03053,    .41289,
     +     .00000,    .77796,   1.03320,
     +     .01803,    .00812,  17.90879,   1.09884,    .48646,
     +     .00000,    .84786,   1.10150,
     +     .01823,    .00822,  19.85155,   1.15672,    .54670,
     +     .00000,    .90698,   1.15938,
     +     .01868,    .00845,  24.32333,   1.29094,    .68789,
     +     .00000,   1.04378,   1.29358,
     +     .01907,    .00865,  28.43338,   1.41845,    .82199,
     +     .12854,   1.17348,   1.42108,
     +     .01952,    .00887,  33.35683,   1.57387,    .98483,
     +     .33007,   1.33128,   1.57648,
     +     .01999,    .00911,  38.98704,   1.75140,   1.17009,
     +     .52360,   1.51123,   1.75401,
     +     .02041,    .00933,  44.42566,   1.92502,   1.34836,
     +     .70326,   1.68702,   1.92762 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
     +     .02085,    .00955,  50.31851,   2.11371,   1.54279,
     +     .90412,   1.87782,   2.11628,
     +     .02123,    .00974,  55.53881,   2.28112,   1.71622,
     +    1.08576,   2.04696,   2.28369,
     +     .02169,    .00998,  62.16861,   2.49653,   1.93754,
     +    1.31289,   2.26444,   2.49908,
     +     .02208,    .01018,  68.30573,   2.69852,   2.14403,
     +    1.52333,   2.46819,   2.70105,
     +     .02247,    .01038,  74.25425,   2.89464,   2.34594,
     +    1.73240,   2.66593,   2.89717,
     +     .02294,    .01063,  82.04948,   3.15616,   2.61291,
     +    2.00448,   2.92946,   3.15868,
     +     .02340,    .01088,  89.69468,   3.41599,   2.87780,
     +    2.27435,   3.19112,   3.41849,
     +     .02383,    .01110,  97.20582,   3.67315,   3.14084,
     +    2.54419,   3.44998,   3.67565 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
     +     .02428,    .01132, 104.88335,   3.94093,   3.41299,
     +    2.82046,   3.71942,   3.94341,
     +     .02470,    .01156, 112.66956,   4.21532,   3.69220,
     +    3.10486,   3.99541,   4.21779,
     +     .02512,    .01178, 120.27487,   4.48633,   3.96799,
     +    3.38588,   4.26791,   4.48880,
     +     .02551,    .01198, 127.55767,   4.75001,   4.23537,
     +    3.65708,   4.53297,   4.75246,
     +     .02591,    .01220, 135.12332,   5.02595,   4.51584,
     +    3.94266,   4.81027,   5.02839,
     +     .02630,    .01240, 142.63020,   5.30452,   4.79787,
     +    4.22829,   5.09016,   5.30695,
     +     .02668,    .01261, 149.98680,   5.57949,   5.07685,
     +    4.51184,   5.36638,   5.58192,
     +     .02703,    .01279, 157.00243,   5.84564,   5.34619,
     +    4.78466,   5.63369,   5.84806 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
     +     .02740,    .01299, 164.21840,   6.12206,   5.62597,
     +    5.06821,   5.91125,   6.12447,
     +     .02777,    .01319, 171.47345,   6.40264,   5.91012,
     +    5.35650,   6.19296,   6.40505,
     +     .02812,    .01338, 178.41107,   6.67513,   6.18528,
     +    5.63459,   6.46650,   6.67753,
     +     .02845,    .01355, 185.20399,   6.94274,   6.45640,
     +    5.90993,   6.73512,   6.94513,
     +     .02879,    .01373, 191.99408,   7.21537,   6.73136,
     +    6.18749,   7.00874,   7.21776 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
     +     .01740,    .00781,    .88633,    .55049,    .00000,
     +     .00000,    .29916,    .55225,
     +     .01770,    .00795,   1.89823,    .57985,    .00000,
     +     .00000,    .33049,    .58159,
     +     .01816,    .00817,   3.63101,    .63218,    .02040,
     +     .00000,    .38567,    .63391,
     +     .01851,    .00834,   5.12267,    .67714,    .06618,
     +     .00000,    .43264,    .67886,
     +     .01888,    .00852,   6.89809,    .73053,    .13681,
     +     .00000,    .48811,    .73224,
     +     .01920,    .00869,   8.61896,    .78284,    .19207,
     +     .00000,    .54218,    .78455,
     +     .01952,    .00885,  10.43921,    .83797,    .25082,
     +     .00000,    .59898,    .83968,
     +     .01987,    .00901,  12.61470,    .90160,    .32174,
     +     .00000,    .66434,    .90329 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
     +     .02016,    .00916,  14.62281,    .96222,    .38449,
     +     .00000,    .72644,    .96391,
     +     .02046,    .00932,  16.74990,   1.02483,    .45191,
     +     .00000,    .79045,   1.02650,
     +     .02069,    .00943,  18.51685,   1.07771,    .50696,
     +     .00000,    .84443,   1.07938,
     +     .02119,    .00968,  22.56332,   1.19992,    .63556,
     +     .00000,    .96896,   1.20159,
     +     .02164,    .00992,  26.25948,   1.31558,    .75718,
     +     .11630,   1.08655,   1.31723,
     +     .02214,    .01017,  30.66042,   1.45602,    .90431,
     +     .29873,   1.22911,   1.45765,
     +     .02267,    .01044,  35.66410,   1.61578,   1.07100,
     +     .47294,   1.39103,   1.61742,
     +     .02317,    .01070,  40.47002,   1.77139,   1.23074,
     +     .63395,   1.54854,   1.77301 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
     +     .02367,    .01096,  45.65155,   1.93991,   1.40434,
     +     .81338,   1.71895,   1.94153,
     +     .02408,    .01117,  50.22188,   2.08898,   1.55872,
     +     .97515,   1.86956,   2.09060,
     +     .02459,    .01144,  55.99983,   2.28015,   1.75508,
     +    1.17671,   2.06256,   2.28177,
     +     .02506,    .01169,  61.32425,   2.45881,   1.93764,
     +    1.36282,   2.24280,   2.46042,
     +     .02548,    .01191,  66.46655,   2.63186,   2.11572,
     +    1.54727,   2.41726,   2.63345,
     +     .02602,    .01220,  73.17601,   2.86184,   2.35040,
     +    1.78646,   2.64902,   2.86342,
     +     .02654,    .01248,  79.72757,   3.08958,   2.58248,
     +    2.02295,   2.87841,   3.09117,
     +     .02703,    .01273,  86.14006,   3.31436,   2.81232,
     +    2.25877,   3.10468,   3.31595 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
     +     .02753,    .01300,  92.66797,   3.54770,   3.04937,
     +    2.49943,   3.33950,   3.54929,
     +     .02801,    .01326,  99.26485,   3.78616,   3.29192,
     +    2.74653,   3.57937,   3.78773,
     +     .02847,    .01351, 105.68674,   4.02108,   3.53088,
     +    2.99004,   3.81561,   4.02265,
     +     .02892,    .01374, 111.81510,   4.24904,   3.76196,
     +    3.22443,   4.04479,   4.25062,
     +     .02936,    .01398, 118.16359,   4.48708,   4.00382,
     +    3.47073,   4.28405,   4.48866,
     +     .02981,    .01422, 124.44150,   4.72679,   4.24640,
     +    3.71642,   4.52492,   4.72835,
     +     .03023,    .01445, 130.57796,   4.96291,   4.48589,
     +    3.95986,   4.76214,   4.96448,
     +     .03064,    .01467, 136.41260,   5.19095,   4.71658,
     +    4.19354,   4.99121,   5.19252 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
     +     .03105,    .01489, 142.39889,   5.42732,   4.95575,
     +    4.43594,   5.22860,   5.42888,
     +     .03145,    .01511, 148.40250,   5.66679,   5.19818,
     +    4.68193,   5.46907,   5.66836,
     +     .03185,    .01532, 154.12743,   5.89885,   5.43245,
     +    4.91869,   5.70208,   5.90042,
     +     .03223,    .01553, 159.72310,   6.12644,   5.66296,
     +    5.15283,   5.93054,   6.12801,
     +     .03260,    .01574, 165.29951,   6.35778,   5.89620,
     +    5.38827,   6.16276,   6.35936 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
     +     .01918,    .00865,    .89316,    .52219,    .00000,
     +     .00000,    .28447,    .52330,
     +     .01952,    .00882,   1.87309,    .55061,    .00000,
     +     .00000,    .31470,    .55171,
     +     .02003,    .00907,   3.54261,    .60089,    .02028,
     +     .00000,    .36758,    .60198,
     +     .02041,    .00927,   4.97046,    .64377,    .06380,
     +     .00000,    .41232,    .64485,
     +     .02083,    .00947,   6.66002,    .69446,    .13090,
     +     .00000,    .46491,    .69553,
     +     .02119,    .00965,   8.28898,    .74388,    .18308,
     +     .00000,    .51595,    .74495,
     +     .02154,    .00982,  10.00422,    .79579,    .23838,
     +     .00000,    .56936,    .79684,
     +     .02191,    .01001,  12.04571,    .85554,    .30498,
     +     .00000,    .63070,    .85659 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
     +     .02224,    .01019,  13.92221,    .91227,    .36372,
     +     .00000,    .68879,    .91331,
     +     .02256,    .01035,  15.90338,    .97073,    .42669,
     +     .00000,    .74854,    .97178,
     +     .02282,    .01048,  17.54400,   1.02000,    .47800,
     +     .00000,    .79882,   1.02105,
     +     .02337,    .01076,  21.28631,   1.13359,    .59753,
     +     .00000,    .91452,   1.13463,
     +     .02386,    .01102,  24.68830,   1.24075,    .71023,
     +     .10750,   1.02345,   1.24179,
     +     .02442,    .01131,  28.71972,   1.37049,    .84616,
     +     .27630,   1.15512,   1.37152,
     +     .02501,    .01162,  33.28243,   1.51760,    .99965,
     +     .43679,   1.30421,   1.51862,
     +     .02554,    .01190,  37.64506,   1.66042,   1.14626,
     +     .58465,   1.44877,   1.66145 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
     +     .02610,    .01219,  42.33036,   1.81468,   1.30516,
     +     .74898,   1.60476,   1.81570,
     +     .02656,    .01244,  46.44896,   1.95082,   1.44614,
     +     .89679,   1.74229,   1.95184,
     +     .02712,    .01273,  51.63714,   2.12495,   1.62496,
     +    1.08044,   1.91809,   2.12596,
     +     .02763,    .01300,  56.40103,   2.28725,   1.79079,
     +    1.24955,   2.08184,   2.28828,
     +     .02809,    .01326,  60.98897,   2.44413,   1.95223,
     +    1.41685,   2.24002,   2.44515,
     +     .02870,    .01357,  66.95445,   2.65210,   2.16442,
     +    1.63320,   2.44962,   2.65313,
     +     .02926,    .01387,  72.75954,   2.85754,   2.37373,
     +    1.84654,   2.65654,   2.85857,
     +     .02979,    .01416,  78.42460,   3.05985,   2.58056,
     +    2.05885,   2.86022,   3.06088 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
     +     .03034,    .01446,  84.17306,   3.26936,   2.79336,
     +    2.27495,   3.07107,   3.27038,
     +     .03087,    .01474,  89.96598,   3.48299,   3.01065,
     +    2.49639,   3.28600,   3.48403,
     +     .03138,    .01502,  95.59007,   3.69305,   3.22427,
     +    2.71416,   3.49726,   3.69409,
     +     .03187,    .01528, 100.94250,   3.89645,   3.43044,
     +    2.92334,   3.70178,   3.89750,
     +     .03236,    .01555, 106.47488,   4.10849,   3.64586,
     +    3.14279,   3.91494,   4.10955,
     +     .03284,    .01582, 111.93109,   4.32159,   3.86148,
     +    3.36122,   4.12910,   4.32264,
     +     .03331,    .01607, 117.25357,   4.53116,   4.07402,
     +    3.57734,   4.33968,   4.53223,
     +     .03376,    .01631, 122.30213,   4.73322,   4.27839,
     +    3.78442,   4.54266,   4.73428 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
     +     .03421,    .01655, 127.47173,   4.94231,   4.48996,
     +    3.99889,   4.75270,   4.94340,
     +     .03465,    .01680, 132.64615,   5.15384,   4.70409,
     +    4.21623,   4.96513,   5.15493,
     +     .03508,    .01703, 137.56911,   5.35849,   4.91064,
     +    4.42503,   5.17064,   5.35958,
     +     .03549,    .01726, 142.37437,   5.55894,   5.11368,
     +    4.63133,   5.37189,   5.56003,
     +     .03590,    .01748, 147.15142,   5.76236,   5.31875,
     +    4.83838,   5.57613,   5.76347 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
     +     .02603,    .01199,    .91757,    .44432,    .00000,
     +     .00000,    .24461,    .44434,
     +     .02649,    .01223,   1.80097,    .46976,    .00000,
     +     .00000,    .27144,    .46978,
     +     .02719,    .01259,   3.28558,    .51376,    .02014,
     +     .00000,    .31745,    .51378,
     +     .02771,    .01286,   4.52992,    .55054,    .05716,
     +     .00000,    .35565,    .55056,
     +     .02826,    .01315,   5.97519,    .59342,    .11411,
     +     .00000,    .40000,    .59344,
     +     .02875,    .01341,   7.34512,    .63464,    .15758,
     +     .00000,    .44246,    .63466,
     +     .02922,    .01366,   8.76682,    .67744,    .20325,
     +     .00000,    .48643,    .67747,
     +     .02973,    .01393,  10.43660,    .72636,    .25782,
     +     .00000,    .53656,    .72639 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
     +     .03017,    .01416,  11.95093,    .77230,    .30545,
     +     .00000,    .58353,    .77233,
     +     .03061,    .01440,  13.53294,    .81937,    .35620,
     +     .00000,    .63159,    .81940,
     +     .03096,    .01458,  14.83009,    .85873,    .39726,
     +     .00000,    .67173,    .85877,
     +     .03170,    .01498,  17.75148,    .94879,    .49215,
     +     .00000,    .76339,    .94884,
     +     .03237,    .01534,  20.36724,   1.03291,    .58074,
     +     .08337,    .84887,   1.03298,
     +     .03312,    .01575,  23.41823,   1.13382,    .68657,
     +     .21565,    .95126,   1.13390,
     +     .03391,    .01618,  26.82128,   1.24710,    .80486,
     +     .33970,   1.06603,   1.24719,
     +     .03464,    .01658,  30.02822,   1.35595,    .91671,
     +     .45280,   1.17620,   1.35605 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
     +     .03537,    .01698,  33.42951,   1.47250,   1.03688,
     +     .57746,   1.29407,   1.47263,
     +     .03600,    .01733,  36.38690,   1.57461,   1.14271,
     +     .68878,   1.39725,   1.57475,
     +     .03675,    .01774,  40.06945,   1.70413,   1.27583,
     +     .82586,   1.52804,   1.70428,
     +     .03743,    .01811,  43.41205,   1.82386,   1.39825,
     +     .95103,   1.64887,   1.82403,
     +     .03806,    .01846,  46.60231,   1.93885,   1.51667,
     +    1.07412,   1.76485,   1.93904,
     +     .03885,    .01890,  50.70427,   2.09006,   1.67105,
     +    1.23192,   1.91729,   2.09028,
     +     .03962,    .01932,  54.65169,   2.23821,   1.82209,
     +    1.38627,   2.06656,   2.23845,
     +     .04033,    .01972,  58.46743,   2.38309,   1.97033,
     +    1.53884,   2.21249,   2.38335 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
     +     .04105,    .02012,  62.29882,   2.53198,   2.12165,
     +    1.69286,   2.36239,   2.53226,
     +     .04177,    .02052,  66.12504,   2.68279,   2.27513,
     +    1.84966,   2.51418,   2.68310,
     +     .04244,    .02090,  69.80782,   2.83011,   2.42507,
     +    2.00289,   2.66242,   2.83045,
     +     .04309,    .02126,  73.28128,   2.97184,   2.56881,
     +    2.14906,   2.80499,   2.97220,
     +     .04374,    .02162,  76.84617,   3.11878,   2.71821,
     +    2.30163,   2.95278,   3.11916,
     +     .04439,    .02198,  80.33098,   3.26551,   2.86678,
     +    2.45247,   3.10032,   3.26592,
     +     .04501,    .02232,  83.70832,   3.40909,   3.01250,
     +    2.60099,   3.24466,   3.40953,
     +     .04559,    .02266,  86.88683,   3.54674,   3.15182,
     +    2.74247,   3.38301,   3.54719 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
     +     .04619,    .02299,  90.12048,   3.68848,   3.29534,
     +    2.88829,   3.52547,   3.68895,
     +     .04678,    .02332,  93.33659,   3.83118,   3.43991,
     +    3.03537,   3.66885,   3.83167,
     +     .04735,    .02364,  96.37344,   3.96850,   3.57861,
     +    3.17588,   3.80683,   3.96902,
     +     .04788,    .02395,  99.32497,   4.10251,   3.71448,
     +    3.31426,   3.94146,   4.10305,
     +     .04844,    .02426, 102.23507,   4.23776,   3.85091,
     +    3.45229,   4.07732,   4.23832 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
     +     .03544,    .01672,    .95344,    .38021,    .00000,
     +     .00000,    .21249,    .38022,
     +     .03605,    .01705,   1.74560,    .40259,    .00000,
     +     .00000,    .23597,    .40261,
     +     .03697,    .01756,   3.06119,    .44044,    .02025,
     +     .00000,    .27541,    .44049,
     +     .03767,    .01793,   4.14195,    .47154,    .05136,
     +     .00000,    .30765,    .47161,
     +     .03842,    .01834,   5.37266,    .50738,    .09930,
     +     .00000,    .34464,    .50747,
     +     .03907,    .01871,   6.51841,    .54138,    .13517,
     +     .00000,    .37962,    .54149,
     +     .03970,    .01905,   7.68925,    .57633,    .17254,
     +     .00000,    .41549,    .57645,
     +     .04038,    .01943,   9.04511,    .61597,    .21686,
     +     .00000,    .45610,    .61612 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
     +     .04098,    .01977,  10.25733,    .65280,    .25514,
     +     .00000,    .49375,    .65297,
     +     .04156,    .02009,  11.50963,    .69032,    .29570,
     +     .00000,    .53204,    .69050,
     +     .04203,    .02035,  12.52567,    .72146,    .32826,
     +     .00000,    .56379,    .72167,
     +     .04303,    .02091,  14.78312,    .79216,    .40295,
     +     .00000,    .63576,    .79241,
     +     .04392,    .02141,  16.77388,    .85756,    .47197,
     +     .06319,    .70222,    .85782,
     +     .04493,    .02198,  19.05439,    .93525,    .55367,
     +     .16618,    .78108,    .93557,
     +     .04599,    .02258,  21.55884,   1.02156,    .64402,
     +     .26139,    .86858,   1.02192,
     +     .04696,    .02313,  23.88243,   1.10363,    .72855,
     +     .34728,    .95168,   1.10402 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
     +     .04796,    .02369,  26.31413,   1.19073,    .81858,
     +     .44117,   1.03982,   1.19117,
     +     .04879,    .02417,  28.40397,   1.26644,    .89724,
     +     .52436,   1.11637,   1.26692,
     +     .04980,    .02474,  30.97398,   1.36165,    .99534,
     +     .62589,   1.21258,   1.36218,
     +     .05070,    .02526,  33.27786,   1.44892,   1.08478,
     +     .71779,   1.30071,   1.44948,
     +     .05153,    .02573,  35.45575,   1.53218,   1.17073,
     +     .80760,   1.38475,   1.53279,
     +     .05261,    .02635,  38.22214,   1.64072,   1.28181,
     +     .92169,   1.49425,   1.64138,
     +     .05361,    .02692,  40.85235,   1.74617,   1.38958,
     +    1.03234,   1.60059,   1.74687,
     +     .05456,    .02747,  43.36911,   1.84855,   1.49458,
     +    1.14097,   1.70379,   1.84931 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
     +     .05553,    .02801,  45.86699,   1.95290,   1.60088,
     +    1.24968,   1.80895,   1.95370,
     +     .05647,    .02856,  48.33728,   2.05786,   1.70796,
     +    1.35960,   1.91469,   2.05872,
     +     .05737,    .02908,  50.69271,   2.15971,   1.81187,
     +    1.46630,   2.01725,   2.16062,
     +     .05823,    .02956,  52.89219,   2.25701,   1.91077,
     +    1.56734,   2.11522,   2.25796,
     +     .05909,    .03006,  55.13244,   2.35732,   2.01300,
     +    1.67225,   2.21619,   2.35832,
     +     .05994,    .03055,  57.30066,   2.45681,   2.11395,
     +    1.77521,   2.31632,   2.45784,
     +     .06076,    .03102,  59.38735,   2.55364,   2.21247,
     +    1.87611,   2.41376,   2.55473,
     +     .06153,    .03146,  61.33391,   2.64591,   2.30608,
     +    1.97160,   2.50658,   2.64703 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
     +     .06231,    .03191,  63.30024,   2.74044,   2.40202,
     +    2.06954,   2.60168,   2.74161,
     +     .06309,    .03237,  65.24214,   2.83513,   2.49816,
     +    2.16782,   2.69691,   2.83634,
     +     .06383,    .03279,  67.06001,   2.92571,   2.58988,
     +    2.26114,   2.78801,   2.92697,
     +     .06454,    .03320,  68.81903,   3.01380,   2.67940,
     +    2.35276,   2.87658,   3.01509,
     +     .06526,    .03361,  70.53649,   3.10215,   2.76872,
     +    2.44353,   2.96542,   3.10348 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
     +     .04247,    .02038,    .98665,    .34835,    .00000,
     +     .00000,    .19678,    .34875,
     +     .04318,    .02077,   1.72847,    .36891,    .00000,
     +     .00000,    .21832,    .36933,
     +     .04427,    .02137,   2.95133,    .40321,    .02029,
     +     .00000,    .25403,    .40367,
     +     .04511,    .02185,   3.94375,    .43117,    .04818,
     +     .00000,    .28300,    .43168,
     +     .04599,    .02233,   5.05999,    .46320,    .09128,
     +     .00000,    .31605,    .46374,
     +     .04676,    .02278,   6.08760,    .49338,    .12313,
     +     .00000,    .34710,    .49395,
     +     .04752,    .02320,   7.12766,    .52421,    .15617,
     +     .00000,    .37874,    .52482,
     +     .04832,    .02365,   8.32149,    .55905,    .19518,
     +     .00000,    .41443,    .55969 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
     +     .04903,    .02406,   9.37940,    .59121,    .22867,
     +     .00000,    .44732,    .59189,
     +     .04972,    .02445,  10.46467,    .62386,    .26403,
     +     .00000,    .48067,    .62457,
     +     .05028,    .02477,  11.33944,    .65085,    .29230,
     +     .00000,    .50820,    .65159,
     +     .05147,    .02545,  13.26648,    .71184,    .35685,
     +     .00000,    .57031,    .71263,
     +     .05252,    .02606,  14.95087,    .76791,    .41615,
     +     .05285,    .62733,    .76876,
     +     .05372,    .02675,  16.85731,    .83416,    .48594,
     +     .14139,    .69461,    .83506,
     +     .05497,    .02747,  18.93067,    .90729,    .56266,
     +     .22254,    .76879,    .90826,
     +     .05613,    .02814,  20.83544,    .97638,    .63395,
     +     .29525,    .83879,    .97741 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
     +     .05730,    .02881,  22.81212,   1.04931,    .70948,
     +     .37435,    .91265,   1.05040,
     +     .05827,    .02939,  24.49853,   1.11240,    .77517,
     +     .44412,    .97650,   1.11356,
     +     .05948,    .03008,  26.55606,   1.19134,    .85665,
     +     .52879,   1.05631,   1.19255,
     +     .06054,    .03071,  28.38593,   1.26329,    .93055,
     +     .60502,   1.12903,   1.26456,
     +     .06153,    .03128,  30.10541,   1.33166,   1.00129,
     +     .67925,   1.19810,   1.33298,
     +     .06279,    .03201,  32.27251,   1.42033,   1.09221,
     +     .77301,   1.28762,   1.42173,
     +     .06398,    .03271,  34.31711,   1.50602,   1.17995,
     +     .86347,   1.37412,   1.50749,
     +     .06510,    .03335,  36.26097,   1.58884,   1.26508,
     +     .95190,   1.45768,   1.59037 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
     +     .06624,    .03401,  38.17574,   1.67284,   1.35082,
     +    1.03993,   1.54239,   1.67443,
     +     .06735,    .03467,  40.05755,   1.75696,   1.43681,
     +    1.12856,   1.62720,   1.75862,
     +     .06840,    .03528,  41.84110,   1.83825,   1.51991,
     +    1.21424,   1.70913,   1.83998,
     +     .06940,    .03586,  43.49571,   1.91556,   1.59865,
     +    1.29501,   1.78704,   1.91734,
     +     .07042,    .03646,  45.17285,   1.99499,   1.67978,
     +    1.37860,   1.86707,   1.99684,
     +     .07142,    .03704,  46.78536,   2.07343,   1.75954,
     +    1.46027,   1.94607,   2.07534,
     +     .07237,    .03759,  48.33036,   2.14953,   1.83713,
     +    1.54006,   2.02272,   2.15151,
     +     .07328,    .03812,  49.76306,   2.22176,   1.91056,
     +    1.61527,   2.09547,   2.22380 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
     +     .07419,    .03866,  51.20368,   2.29554,   1.98559,
     +    1.69216,   2.16974,   2.29763,
     +     .07511,    .03919,  52.61985,   2.36919,   2.06055,
     +    1.76909,   2.24389,   2.37134,
     +     .07598,    .03969,  53.93784,   2.43941,   2.13177,
     +    1.84185,   2.31456,   2.44160,
     +     .07680,    .04018,  55.20971,   2.50752,   2.20116,
     +    1.91315,   2.38312,   2.50978,
     +     .07765,    .04067,  56.44308,   2.57558,   2.27011,
     +    1.98349,   2.45162,   2.57789 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
     +     .04828,    .02343,   1.02215,    .32758,    .00000,
     +     .00000,    .18664,    .32850,
     +     .04909,    .02389,   1.72987,    .34683,    .00000,
     +     .00000,    .20678,    .34778,
     +     .05033,    .02458,   2.88870,    .37871,    .02013,
     +     .00000,    .23995,    .37971,
     +     .05127,    .02512,   3.82050,    .40457,    .04585,
     +     .00000,    .26674,    .40561,
     +     .05226,    .02568,   4.85893,    .43406,    .08570,
     +     .00000,    .29717,    .43515,
     +     .05313,    .02620,   5.80701,    .46171,    .11488,
     +     .00000,    .32562,    .46284,
     +     .05397,    .02667,   6.75969,    .48987,    .14507,
     +     .00000,    .35451,    .49103,
     +     .05489,    .02721,   7.84600,    .52157,    .18060,
     +     .00000,    .38701,    .52279 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
     +     .05569,    .02768,   8.80234,    .55072,    .21096,
     +     .00000,    .41682,    .55197,
     +     .05646,    .02813,   9.77825,    .58024,    .24296,
     +     .00000,    .44697,    .58154,
     +     .05709,    .02849,  10.56104,    .60457,    .26845,
     +     .00000,    .47179,    .60589,
     +     .05844,    .02927,  12.27449,    .65934,    .32647,
     +     .00000,    .52760,    .66073,
     +     .05963,    .02997,  13.76254,    .70948,    .37955,
     +     .04617,    .57861,    .71093,
     +     .06097,    .03076,  15.43102,    .76848,    .44175,
     +     .12546,    .63855,    .77000,
     +     .06239,    .03159,  17.23241,    .83329,    .50980,
     +     .19768,    .70433,    .83490,
     +     .06369,    .03235,  18.87508,    .89422,    .57276,
     +     .26210,    .76612,    .89589 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
     +     .06500,    .03313,  20.56902,    .95828,    .63918,
     +     .33190,    .83102,    .96004,
     +     .06611,    .03378,  22.00624,   1.01351,    .69676,
     +     .39327,    .88695,   1.01534,
     +     .06746,    .03458,  23.74930,   1.08233,    .76789,
     +     .46744,    .95658,   1.08423,
     +     .06866,    .03528,  25.29020,   1.14482,    .83214,
     +     .53395,   1.01978,   1.14679,
     +     .06978,    .03594,  26.73160,   1.20401,    .89347,
     +     .59852,   1.07962,   1.20605,
     +     .07119,    .03677,  28.53739,   1.28048,    .97198,
     +     .67976,   1.15688,   1.28260,
     +     .07252,    .03756,  30.23115,   1.35407,   1.04745,
     +     .75783,   1.23122,   1.35628,
     +     .07379,    .03831,  31.83363,   1.42498,   1.12044,
     +     .83391,   1.30281,   1.42727 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
     +     .07505,    .03905,  33.40298,   1.49662,   1.19365,
     +     .90934,   1.37510,   1.49897,
     +     .07630,    .03978,  34.93797,   1.56811,   1.26686,
     +     .98506,   1.44725,   1.57055,
     +     .07749,    .04049,  36.38609,   1.63699,   1.33738,
     +    1.05802,   1.51672,   1.63951,
     +     .07861,    .04114,  37.72268,   1.70229,   1.40399,
     +    1.12658,   1.58257,   1.70487,
     +     .07974,    .04180,  39.07250,   1.76920,   1.47243,
     +    1.19735,   1.65005,   1.77185,
     +     .08086,    .04246,  40.36355,   1.83506,   1.53950,
     +    1.26626,   1.71643,   1.83779,
     +     .08192,    .04309,  41.59637,   1.89880,   1.60460,
     +    1.33343,   1.78068,   1.90160,
     +     .08293,    .04368,  42.73426,   1.95913,   1.66602,
     +    1.39656,   1.84149,   1.96199 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
     +     .08396,    .04428,  43.87434,   2.02060,   1.72863,
     +    1.46096,   1.90342,   2.02352,
     +     .08497,    .04488,  44.99105,   2.08180,   1.79104,
     +    1.52523,   1.96509,   2.08480,
     +     .08594,    .04545,  46.02543,   2.14000,   1.85017,
     +    1.58585,   2.02372,   2.14306,
     +     .08686,    .04599,  47.02172,   2.19636,   1.90768,
     +    1.64516,   2.08049,   2.19949,
     +     .08780,    .04653,  47.98237,   2.25250,   1.96465,
     +    1.70348,   2.13705,   2.25569 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
     +     .05336,    .02625,   1.06615,    .31356,    .00000,
     +     .00000,    .17941,    .31450,
     +     .05425,    .02676,   1.74999,    .33178,    .00000,
     +     .00000,    .19845,    .33277,
     +     .05561,    .02754,   2.85809,    .36182,    .01978,
     +     .00000,    .22968,    .36289,
     +     .05663,    .02814,   3.74239,    .38609,    .04386,
     +     .00000,    .25478,    .38720,
     +     .05773,    .02878,   4.72041,    .41369,    .08128,
     +     .00000,    .28323,    .41485,
     +     .05869,    .02934,   5.60736,    .43946,    .10848,
     +     .00000,    .30973,    .44068,
     +     .05962,    .02989,   6.49336,    .46560,    .13654,
     +     .00000,    .33655,    .46687,
     +     .06062,    .03048,   7.49804,    .49499,    .16950,
     +     .00000,    .36666,    .49631 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
     +     .06150,    .03099,   8.37779,    .52190,    .19756,
     +     .00000,    .39419,    .52328,
     +     .06236,    .03150,   9.27159,    .54911,    .22707,
     +     .00000,    .42198,    .55053,
     +     .06305,    .03191,   9.98567,    .57146,    .25052,
     +     .00000,    .44479,    .57293,
     +     .06453,    .03278,  11.54036,    .62168,    .30376,
     +     .00000,    .49596,    .62323,
     +     .06583,    .03355,  12.88346,    .66747,    .35228,
     +     .04129,    .54256,    .66909,
     +     .06731,    .03443,  14.37747,    .72117,    .40896,
     +     .11383,    .59713,    .72288,
     +     .06887,    .03535,  15.98085,    .77994,    .47073,
     +     .17955,    .65681,    .78175,
     +     .07029,    .03620,  17.43381,    .83497,    .52763,
     +     .23792,    .71261,    .83686 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
     +     .07173,    .03705,  18.92417,    .89264,    .58750,
     +     .30100,    .77107,    .89462,
     +     .07295,    .03777,  20.18287,    .94220,    .63922,
     +     .35628,    .82128,    .94426,
     +     .07443,    .03864,  21.70180,   1.00376,    .70291,
     +     .42288,    .88359,   1.00591,
     +     .07574,    .03942,  23.03779,   1.05946,    .76025,
     +     .48239,    .93996,   1.06170,
     +     .07696,    .04014,  24.28279,   1.11211,    .81485,
     +     .54005,    .99320,   1.11443,
     +     .07850,    .04106,  25.83442,   1.17988,    .88452,
     +     .61233,   1.06171,   1.18230,
     +     .07996,    .04193,  27.28252,   1.24490,    .95128,
     +     .68158,   1.12743,   1.24742,
     +     .08134,    .04274,  28.64701,   1.30737,   1.01565,
     +     .74888,   1.19052,   1.30997 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
     +     .08272,    .04356,  29.97696,   1.37026,   1.08001,
     +     .81537,   1.25404,   1.37296,
     +     .08407,    .04437,  31.27232,   1.43288,   1.14420,
     +     .88195,   1.31726,   1.43566,
     +     .08537,    .04513,  32.48941,   1.49303,   1.20588,
     +     .94594,   1.37798,   1.49590,
     +     .08659,    .04584,  33.60776,   1.54990,   1.26397,
     +    1.00590,   1.43537,   1.55285,
     +     .08783,    .04658,  34.73367,   1.60805,   1.32354,
     +    1.06767,   1.49404,   1.61109,
     +     .08904,    .04729,  35.80576,   1.66512,   1.38174,
     +    1.12764,   1.55161,   1.66825,
     +     .09019,    .04797,  36.82661,   1.72025,   1.43813,
     +    1.18600,   1.60722,   1.72345,
     +     .09130,    .04862,  37.76485,   1.77230,   1.49121,
     +    1.24071,   1.65971,   1.77558 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
     +     .09240,    .04927,  38.70190,   1.82523,   1.54520,
     +    1.29640,   1.71308,   1.82858,
     +     .09350,    .04992,  39.61695,   1.87784,   1.59892,
     +    1.35188,   1.76613,   1.88126,
     +     .09455,    .05054,  40.46110,   1.92772,   1.64969,
     +    1.40408,   1.81642,   1.93123,
     +     .09556,    .05113,  41.27285,   1.97598,   1.69900,
     +    1.45510,   1.86507,   1.97955,
     +     .09657,    .05172,  42.05155,   2.02391,   1.74773,
     +    1.50513,   1.91339,   2.02757 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
     +     .07294,    .03758,   1.24347,    .27492,    .00000,
     +     .00000,    .15950,    .27674,
     +     .07411,    .03830,   1.85007,    .29000,    .00000,
     +     .00000,    .17522,    .29189,
     +     .07593,    .03939,   2.80230,    .31450,    .01792,
     +     .00000,    .20066,    .31651,
     +     .07731,    .04024,   3.54326,    .33408,    .03726,
     +     .00000,    .22091,    .33617,
     +     .07877,    .04112,   4.34247,    .35616,    .06767,
     +     .00000,    .24366,    .35834,
     +     .08005,    .04190,   5.05156,    .37652,    .08924,
     +     .00000,    .26461,    .37879,
     +     .08130,    .04266,   5.74607,    .39700,    .11133,
     +     .00000,    .28564,    .39935,
     +     .08265,    .04349,   6.51915,    .41985,    .13710,
     +     .00000,    .30906,    .42228 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
     +     .08382,    .04420,   7.18426,    .44055,    .15878,
     +     .00000,    .33025,    .44307,
     +     .08497,    .04491,   7.84999,    .46134,    .18145,
     +     .00000,    .35151,    .46393,
     +     .08589,    .04546,   8.37485,    .47830,    .19931,
     +     .00000,    .36883,    .48094,
     +     .08787,    .04666,   9.49694,    .51602,    .23951,
     +     .00000,    .40733,    .51880,
     +     .08961,    .04773,  10.45105,    .55003,    .27573,
     +     .02760,    .44199,    .55293,
     +     .09157,    .04891,  11.48121,    .58946,    .31756,
     +     .08193,    .48214,    .59250,
     +     .09365,    .05017,  12.56429,    .63207,    .36258,
     +     .13033,    .52549,    .63526,
     +     .09553,    .05131,  13.52501,    .67144,    .40351,
     +     .17278,    .56551,    .67476 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
     +     .09744,    .05246,  14.49269,    .71225,    .44610,
     +     .21817,    .60697,    .71570,
     +     .09904,    .05344,  15.29715,    .74699,    .48256,
     +     .25760,    .64224,    .75055,
     +     .10099,    .05461,  16.25105,    .78964,    .52696,
     +     .30454,    .68552,    .79336,
     +     .10271,    .05563,  17.07525,    .82782,    .56648,
     +     .34604,    .72426,    .83166,
     +     .10431,    .05659,  17.83341,    .86361,    .60383,
     +     .38594,    .76053,    .86756,
     +     .10633,    .05780,  18.76137,    .90915,    .65093,
     +     .43538,    .80670,    .91325,
     +     .10824,    .05894,  19.61223,    .95236,    .69557,
     +     .48224,    .85050,    .95661,
     +     .11003,    .06002,  20.40253,    .99349,    .73824,
     +     .52740,    .89217,    .99786 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
     +     .11182,    .06109,  21.15894,   1.03445,    .78044,
     +     .57151,    .93366,   1.03897,
     +     .11359,    .06213,  21.88503,   1.07485,    .82214,
     +     .61531,    .97457,   1.07951,
     +     .11525,    .06312,  22.55759,   1.11333,    .86187,
     +     .65704,   1.01353,   1.11810,
     +     .11683,    .06405,  23.16549,   1.14935,    .89894,
     +     .69578,   1.05000,   1.15425,
     +     .11841,    .06499,  23.77074,   1.18592,    .93669,
     +     .73542,   1.08703,   1.19094,
     +     .11997,    .06590,  24.33712,   1.22148,    .97322,
     +     .77353,   1.12301,   1.22661,
     +     .12145,    .06677,  24.87090,   1.25559,   1.00838,
     +     .81040,   1.15754,   1.26084,
     +     .12285,    .06760,  25.35369,   1.28753,   1.04121,
     +     .84467,   1.18985,   1.29288 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
     +     .12427,    .06843,  25.83029,   1.31978,   1.07437,
     +     .87931,   1.22249,   1.32523,
     +     .12567,    .06924,  26.29027,   1.35161,   1.10714,
     +     .91362,   1.25470,   1.35718,
     +     .12699,    .07002,  26.70751,   1.38154,   1.13787,
     +     .94563,   1.28500,   1.38722,
     +     .12827,    .07076,  27.10667,   1.41037,   1.16760,
     +     .97680,   1.31417,   1.41615,
     +     .12955,    .07151,  27.48141,   1.43876,   1.19670,
     +    1.00708,   1.34289,   1.44463 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
     +     .10008,    .05429,   1.52636,    .24306,    .00000,
     +     .00000,    .14157,    .24630,
     +     .10166,    .05529,   2.04967,    .25509,    .00000,
     +     .00000,    .15411,    .25845,
     +     .10409,    .05682,   2.84066,    .27451,    .01373,
     +     .00000,    .17429,    .27804,
     +     .10594,    .05797,   3.43598,    .28988,    .02893,
     +     .00000,    .19020,    .29355,
     +     .10789,    .05920,   4.06026,    .30706,    .05316,
     +     .00000,    .20794,    .31088,
     +     .10961,    .06027,   4.60112,    .32272,    .06991,
     +     .00000,    .22409,    .32668,
     +     .11128,    .06131,   5.11931,    .33831,    .08692,
     +     .00000,    .24013,    .34239,
     +     .11309,    .06242,   5.68400,    .35557,    .10661,
     +     .00000,    .25788,    .35979 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
     +     .11466,    .06340,   6.16037,    .37103,    .12295,
     +     .00000,    .27374,    .37537,
     +     .11619,    .06434,   6.62901,    .38643,    .13993,
     +     .00000,    .28954,    .39090,
     +     .11741,    .06510,   6.99286,    .39889,    .15317,
     +     .00000,    .30230,    .40344,
     +     .12003,    .06672,   7.75408,    .42632,    .18270,
     +     .00000,    .33040,    .43109,
     +     .12235,    .06813,   8.39241,    .45071,    .20895,
     +     .01575,    .35535,    .45566,
     +     .12494,    .06971,   9.05269,    .47861,    .23888,
     +     .05539,    .38388,    .48378,
     +     .12766,    .07134,   9.73002,    .50833,    .27061,
     +     .09005,    .41424,    .51372,
     +     .13012,    .07284,  10.31545,    .53536,    .29903,
     +     .12000,    .44185,    .54096 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
     +     .13262,    .07434,  10.89190,    .56303,    .32823,
     +     .15165,    .47008,    .56882,
     +     .13470,    .07558,  11.36183,    .58630,    .35295,
     +     .17885,    .49383,    .59228,
     +     .13722,    .07708,  11.90663,    .61451,    .38267,
     +     .21081,    .52261,    .62069,
     +     .13945,    .07841,  12.36680,    .63943,    .40879,
     +     .23872,    .54803,    .64579,
     +     .14151,    .07963,  12.78337,    .66255,    .43324,
     +     .26532,    .57160,    .66908,
     +     .14410,    .08116,  13.28090,    .69158,    .46366,
     +     .29784,    .60120,    .69833,
     +     .14653,    .08259,  13.72632,    .71877,    .49214,
     +     .32829,    .62892,    .72572,
     +     .14882,    .08393,  14.13230,    .74435,    .51907,
     +     .35733,    .65501,    .75150 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
     +     .15109,    .08525,  14.51072,    .76949,    .54536,
     +     .38535,    .68065,    .77683,
     +     .15331,    .08655,  14.86683,    .79403,    .57107,
     +     .41287,    .70565,    .80155,
     +     .15542,    .08776,  15.19023,    .81714,    .59532,
     +     .43886,    .72922,    .82484,
     +     .15738,    .08890,  15.47516,    .83852,    .61767,
     +     .46269,    .75103,    .84639,
     +     .15936,    .09005,  15.75450,    .86004,    .64027,
     +     .48691,    .77298,    .86807,
     +     .16130,    .09114,  16.00869,    .88072,    .66188,
     +     .50994,    .79406,    .88891,
     +     .16314,    .09220,  16.24482,    .90039,    .68253,
     +     .53204,    .81413,    .90874,
     +     .16487,    .09319,  16.45273,    .91861,    .70160,
     +     .55239,    .83272,    .92710 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
     +     .16660,    .09418,  16.65421,    .93685,    .72072,
     +     .57281,    .85134,    .94550,
     +     .16833,    .09515,  16.84494,    .95472,    .73947,
     +     .59287,    .86956,    .96349,
     +     .16995,    .09607,  17.01260,    .97134,    .75687,
     +     .61141,    .88652,    .98025,
     +     .17150,    .09695,  17.17211,    .98725,    .77363,
     +     .62939,    .90278,    .99631,
     +     .17305,    .09781,  17.31545,   1.00274,    .78982,
     +     .64664,    .91859,   1.01191 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
     +     .12060,    .06737,   1.74025,    .22552,    .00000,
     +     .00000,    .13075,    .23004,
     +     .12249,    .06858,   2.20639,    .23592,    .00000,
     +     .00000,    .14162,    .24060,
     +     .12539,    .07043,   2.89700,    .25268,    .00988,
     +     .00000,    .15907,    .25759,
     +     .12758,    .07181,   3.40355,    .26585,    .02296,
     +     .00000,    .17273,    .27093,
     +     .12992,    .07329,   3.92516,    .28048,    .04397,
     +     .00000,    .18789,    .28576,
     +     .13196,    .07456,   4.37035,    .29371,    .05825,
     +     .00000,    .20159,    .29917,
     +     .13394,    .07578,   4.79081,    .30680,    .07267,
     +     .00000,    .21509,    .31243,
     +     .13608,    .07711,   5.24273,    .32119,    .08927,
     +     .00000,    .22995,    .32702 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
     +     .13793,    .07825,   5.61910,    .33399,    .10293,
     +     .00000,    .24314,    .33997,
     +     .13975,    .07937,   5.98514,    .34668,    .11707,
     +     .00000,    .25620,    .35281,
     +     .14119,    .08025,   6.26651,    .35687,    .12802,
     +     .00000,    .26669,    .36313,
     +     .14428,    .08213,   6.84623,    .37918,    .15228,
     +     .00000,    .28963,    .38570,
     +     .14698,    .08378,   7.33001,    .39880,    .17364,
     +     .00961,    .30981,    .40557,
     +     .15001,    .08559,   7.81213,    .42108,    .19779,
     +     .04204,    .33269,    .42811,
     +     .15317,    .08748,   8.29857,    .44453,    .22314,
     +     .07009,    .35678,    .45184,
     +     .15603,    .08918,   8.71076,    .46566,    .24561,
     +     .09409,    .37847,    .47322 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
     +     .15892,    .09087,   9.11013,    .48707,    .26851,
     +     .11925,    .40045,    .49488,
     +     .16132,    .09229,   9.43117,    .50494,    .28775,
     +     .14072,    .41880,    .51296,
     +     .16422,    .09399,   9.79708,    .52642,    .31068,
     +     .16574,    .44084,    .53470,
     +     .16677,    .09547,  10.10031,    .54520,    .33066,
     +     .18741,    .46012,    .55371,
     +     .16911,    .09684,  10.37147,    .56252,    .34924,
     +     .20793,    .47790,    .57123,
     +     .17207,    .09853,  10.68901,    .58406,    .37216,
     +     .23280,    .50001,    .59304,
     +     .17484,    .10012,  10.96777,    .60403,    .39342,
     +     .25590,    .52052,    .61325,
     +     .17743,    .10160,  11.21799,    .62269,    .41339,
     +     .27779,    .53969,    .63214 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
     +     .18000,    .10304,  11.44565,    .64085,    .43271,
     +     .29872,    .55835,    .65052,
     +     .18250,    .10446,  11.65617,    .65843,    .45147,
     +     .31915,    .57642,    .66831,
     +     .18485,    .10578,  11.84392,    .67486,    .46904,
     +     .33830,    .59331,    .68495,
     +     .18704,    .10701,  12.00520,    .68993,    .48512,
     +     .35576,    .60883,    .70022,
     +     .18926,    .10824,  12.16110,    .70501,    .50127,
     +     .37339,    .62435,    .71550,
     +     .19141,    .10944,  12.29863,    .71938,    .51659,
     +     .39003,    .63912,    .73004,
     +     .19345,    .11056,  12.42461,    .73296,    .53117,
     +     .40593,    .65312,    .74380,
     +     .19536,    .11161,  12.53211,    .74543,    .54453,
     +     .42047,    .66597,    .75645 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
     +     .19728,    .11266,  12.63415,    .75786,    .55785,
     +     .43498,    .67878,    .76903,
     +     .19916,    .11370,  12.72866,    .76993,    .57083,
     +     .44917,    .69124,    .78127,
     +     .20094,    .11466,  12.80845,    .78108,    .58281,
     +     .46219,    .70275,    .79258,
     +     .20264,    .11559,  12.88410,    .79173,    .59429,
     +     .47478,    .71374,    .80338,
     +     .20433,    .11650,  12.94780,    .80197,    .60531,
     +     .48677,    .72432,    .81377 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
     +     .13781,    .07853,   1.90884,    .21323,    .00000,
     +     .00000,    .12265,    .21896,
     +     .13994,    .07991,   2.32954,    .22259,    .00000,
     +     .00000,    .13245,    .22850,
     +     .14325,    .08200,   2.94522,    .23759,    .00647,
     +     .00000,    .14812,    .24379,
     +     .14573,    .08357,   3.38643,    .24930,    .01820,
     +     .00000,    .16033,    .25573,
     +     .14837,    .08522,   3.83438,    .26227,    .03706,
     +     .00000,    .17380,    .26893,
     +     .15068,    .08665,   4.21240,    .27391,    .04975,
     +     .00000,    .18589,    .28077,
     +     .15291,    .08803,   4.56553,    .28535,    .06250,
     +     .00000,    .19775,    .29242,
     +     .15531,    .08950,   4.94106,    .29789,    .07711,
     +     .00000,    .21075,    .30519 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
     +     .15741,    .09077,   5.25065,    .30895,    .08906,
     +     .00000,    .22221,    .31644,
     +     .15944,    .09202,   5.54908,    .31988,    .10136,
     +     .00000,    .23351,    .32755,
     +     .16105,    .09299,   5.77663,    .32861,    .11085,
     +     .00000,    .24253,    .33644,
     +     .16452,    .09506,   6.23969,    .34761,    .13176,
     +     .00000,    .26219,    .35576,
     +     .16752,    .09685,   6.62582,    .36419,    .15003,
     +     .00563,    .27932,    .37263,
     +     .17088,    .09884,   6.99701,    .38288,    .17054,
     +     .03349,    .29864,    .39162,
     +     .17439,    .10089,   7.36631,    .40239,    .19190,
     +     .05739,    .31880,    .41146,
     +     .17754,    .10272,   7.67397,    .41982,    .21069,
     +     .07769,    .33679,    .42917 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
     +     .18072,    .10455,   7.96785,    .43735,    .22971,
     +     .09886,    .35491,    .44698,
     +     .18336,    .10607,   8.20115,    .45189,    .24559,
     +     .11679,    .36993,    .46177,
     +     .18654,    .10787,   8.46288,    .46922,    .26439,
     +     .13757,    .38786,    .47940,
     +     .18932,    .10946,   8.67605,    .48427,    .28066,
     +     .15544,    .40343,    .49470,
     +     .19188,    .11090,   8.86461,    .49806,    .29572,
     +     .17230,    .41770,    .50873,
     +     .19509,    .11269,   9.08097,    .51508,    .31416,
     +     .19260,    .43532,    .52604,
     +     .19809,    .11436,   9.26713,    .53076,    .33115,
     +     .21132,    .45155,    .54199,
     +     .20088,    .11591,   9.43172,    .54529,    .34703,
     +     .22897,    .46662,    .55678 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
     +     .20364,    .11742,   9.57758,    .55933,    .36226,
     +     .24573,    .48119,    .57106,
     +     .20633,    .11889,   9.70984,    .57283,    .37698,
     +     .26202,    .49519,    .58480,
     +     .20884,    .12026,   9.82540,    .58536,    .39069,
     +     .27721,    .50822,    .59756,
     +     .21119,    .12153,   9.92160,    .59678,    .40316,
     +     .29097,    .52009,    .60920,
     +     .21354,    .12279,  10.01307,    .60815,    .41563,
     +     .30482,    .53192,    .62078,
     +     .21582,    .12402,  10.09047,    .61888,    .42738,
     +     .31780,    .54309,    .63170,
     +     .21798,    .12517,  10.16012,    .62898,    .43850,
     +     .33016,    .55362,    .64200,
     +     .22000,    .12624,  10.21683,    .63820,    .44865,
     +     .34141,    .56324,    .65139 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
     +     .22202,    .12730,  10.26898,    .64733,    .45872,
     +     .35259,    .57278,    .66069,
     +     .22401,    .12835,  10.31560,    .65616,    .46849,
     +     .36348,    .58200,    .66969,
     +     .22587,    .12932,  10.35207,    .66424,    .47744,
     +     .37341,    .59046,    .67794,
     +     .22765,    .13024,  10.38657,    .67194,    .48601,
     +     .38300,    .59853,    .68580,
     +     .22941,    .13115,  10.41174,    .67928,    .49418,
     +     .39208,    .60623,    .69328 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
     +     .15280,    .08834,   2.04365,    .20345,    .00000,
     +     .00000,    .11599,    .21026,
     +     .15519,    .08987,   2.42559,    .21206,    .00000,
     +     .00000,    .12503,    .21909,
     +     .15886,    .09219,   2.98052,    .22579,    .00351,
     +     .00000,    .13943,    .23317,
     +     .16160,    .09390,   3.36965,    .23646,    .01425,
     +     .00000,    .15058,    .24410,
     +     .16451,    .09571,   3.76003,    .24820,    .03155,
     +     .00000,    .16284,    .25613,
     +     .16706,    .09727,   4.08646,    .25870,    .04309,
     +     .00000,    .17378,    .26686,
     +     .16950,    .09875,   4.38864,    .26894,    .05463,
     +     .00000,    .18446,    .27735,
     +     .17214,    .10034,   4.70714,    .28014,    .06780,
     +     .00000,    .19612,    .28879 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
     +     .17443,    .10172,   4.96746,    .28994,    .07851,
     +     .00000,    .20632,    .29882,
     +     .17666,    .10305,   5.21651,    .29959,    .08949,
     +     .00000,    .21636,    .30868,
     +     .17842,    .10410,   5.40507,    .30727,    .09794,
     +     .00000,    .22435,    .31653,
     +     .18218,    .10632,   5.78471,    .32390,    .11645,
     +     .00000,    .24164,    .33352,
     +     .18545,    .10822,   6.10183,    .33830,    .13252,
     +     .00282,    .25662,    .34824,
     +     .18908,    .11032,   6.39569,    .35443,    .15047,
     +     .02742,    .27339,    .36472,
     +     .19285,    .11248,   6.68433,    .37116,    .16904,
     +     .04840,    .29079,    .38180,
     +     .19624,    .11440,   6.92089,    .38597,    .18524,
     +     .06610,    .30621,    .39694 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
     +     .19965,    .11633,   7.14385,    .40077,    .20156,
     +     .08446,    .32163,    .41207,
     +     .20248,    .11791,   7.31876,    .41299,    .21513,
     +     .09995,    .33435,    .42454,
     +     .20586,    .11979,   7.51167,    .42746,    .23109,
     +     .11780,    .34942,    .43933,
     +     .20883,    .12142,   7.66615,    .43994,    .24483,
     +     .13307,    .36244,    .45209,
     +     .21155,    .12292,   7.80134,    .45131,    .25749,
     +     .14742,    .37432,    .46371,
     +     .21494,    .12476,   7.95289,    .46524,    .27289,
     +     .16459,    .38889,    .47797,
     +     .21809,    .12645,   8.08042,    .47799,    .28701,
     +     .18035,    .40222,    .49100,
     +     .22104,    .12804,   8.19124,    .48975,    .30013,
     +     .19515,    .41454,    .50304 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
     +     .22393,    .12957,   8.28621,    .50102,    .31267,
     +     .20913,    .42636,    .51457,
     +     .22674,    .13106,   8.37025,    .51179,    .32471,
     +     .22265,    .43767,    .52560,
     +     .22937,    .13244,   8.44167,    .52174,    .33587,
     +     .23521,    .44813,    .53578,
     +     .23181,    .13371,   8.49847,    .53074,    .34596,
     +     .24652,    .45760,    .54500,
     +     .23425,    .13498,   8.55122,    .53965,    .35602,
     +     .25787,    .46699,    .55412,
     +     .23662,    .13620,   8.59292,    .54801,    .36544,
     +     .26847,    .47582,    .56269,
     +     .23885,    .13734,   8.62937,    .55584,    .37434,
     +     .27852,    .48411,    .57073,
     +     .24092,    .13840,   8.65639,    .56294,    .38240,
     +     .28762,    .49162,    .57801 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
     +     .24300,    .13946,   8.67959,    .56992,    .39037,
     +     .29664,    .49903,    .58517,
     +     .24504,    .14048,   8.69858,    .57665,    .39809,
     +     .30540,    .50617,    .59208,
     +     .24694,    .14143,   8.71031,    .58276,    .40510,
     +     .31335,    .51268,    .59835,
     +     .24876,    .14235,   8.72142,    .58856,    .41182,
     +     .32101,    .51887,    .60431,
     +     .25055,    .14323,   8.72504,    .59405,    .41817,
     +     .32822,    .52472,    .60995 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
     +     .17884,    .10538,   2.23663,    .18850,    .00000,
     +     .00000,    .10553,    .19743,
     +     .18165,    .10715,   2.55457,    .19605,    .00000,
     +     .00000,    .11352,    .20529,
     +     .18594,    .10982,   3.01376,    .20800,   -.00130,
     +     .00000,    .12618,    .21769,
     +     .18914,    .11175,   3.32278,    .21716,    .00810,
     +     .00000,    .13585,    .22718,
     +     .19251,    .11378,   3.62662,    .22717,    .02314,
     +     .00000,    .14641,    .23753,
     +     .19542,    .11552,   3.87678,    .23599,    .03306,
     +     .00000,    .15571,    .24666,
     +     .19823,    .11718,   4.10479,    .24454,    .04291,
     +     .00000,    .16473,    .25550,
     +     .20125,    .11894,   4.34172,    .25379,    .05406,
     +     .00000,    .17448,    .26507 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
     +     .20385,    .12045,   4.53241,    .26183,    .06305,
     +     .00000,    .18294,    .27337,
     +     .20638,    .12191,   4.71258,    .26968,    .07221,
     +     .00000,    .19122,    .28148,
     +     .20838,    .12305,   4.84730,    .27587,    .07921,
     +     .00000,    .19775,    .28787,
     +     .21263,    .12546,   5.11300,    .28917,    .09442,
     +     .00000,    .21176,    .30160,
     +     .21628,    .12750,   5.33713,    .30054,    .10749,
     +    -.00090,    .22376,    .31335,
     +     .22032,    .12973,   5.52866,    .31314,    .12194,
     +     .01921,    .23706,    .32634,
     +     .22451,    .13201,   5.71227,    .32604,    .13673,
     +     .03621,    .25070,    .33966,
     +     .22823,    .13403,   5.85771,    .33729,    .14949,
     +     .05041,    .26263,    .35128 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
     +     .23197,    .13602,   5.99092,    .34844,    .16224,
     +     .06502,    .27444,    .36279,
     +     .23505,    .13766,   6.09277,    .35753,    .17274,
     +     .07724,    .28409,    .37219,
     +     .23872,    .13959,   6.20088,    .36818,    .18497,
     +     .09120,    .29542,    .38318,
     +     .24192,    .14125,   6.28346,    .37725,    .19540,
     +     .10306,    .30508,    .39255,
     +     .24483,    .14276,   6.35381,    .38545,    .20495,
     +     .11411,    .31383,    .40104,
     +     .24847,    .14461,   6.42810,    .39538,    .21645,
     +     .12724,    .32445,    .41131,
     +     .25183,    .14631,   6.48655,    .40433,    .22689,
     +     .13919,    .33405,    .42057,
     +     .25493,    .14787,   6.53471,    .41250,    .23652,
     +     .15032,    .34283,    .42903 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
     +     .25797,    .14938,   6.57122,    .42024,    .24562,
     +     .16074,    .35117,    .43705,
     +     .26091,    .15083,   6.60044,    .42755,    .25430,
     +     .17076,    .35908,    .44462,
     +     .26364,    .15217,   6.62226,    .43422,    .26227,
     +     .17999,    .36631,    .45154,
     +     .26617,    .15339,   6.63538,    .44017,    .26942,
     +     .18824,    .37277,    .45771,
     +     .26869,    .15460,   6.64557,    .44602,    .27649,
     +     .19647,    .37914,    .46378,
     +     .27110,    .15576,   6.64849,    .45142,    .28306,
     +     .20410,    .38506,    .46940,
     +     .27339,    .15683,   6.64915,    .45645,    .28923,
     +     .21130,    .39057,    .47462,
     +     .27550,    .15782,   6.64479,    .46093,    .29476,
     +     .21777,    .39551,    .47929 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
     +     .27760,    .15880,   6.63776,    .46531,    .30020,
     +     .22414,    .40035,    .48384,
     +     .27966,    .15974,   6.62823,    .46947,    .30541,
     +     .23029,    .40497,    .48817,
     +     .28157,    .16062,   6.61484,    .47319,    .31012,
     +     .23584,    .40912,    .49205,
     +     .28338,    .16145,   6.60229,    .47671,    .31461,
     +     .24117,    .41305,    .49571,
     +     .28516,    .16224,   6.58455,    .47996,    .31881,
     +     .24613,    .41670,    .49911 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
     +     .21163,    .12668,   2.39823,    .17220,    .00000,
     +     .00000,    .09404,    .18412,
     +     .21499,    .12872,   2.64232,    .17871,    .00000,
     +     .00000,    .10108,    .19102,
     +     .22006,    .13173,   2.99602,    .18887,   -.00636,
     +     .00000,    .11201,    .20178,
     +     .22379,    .13388,   3.21970,    .19652,    .00176,
     +     .00000,    .12025,    .20984,
     +     .22771,    .13613,   3.43386,    .20474,    .01452,
     +     .00000,    .12911,    .21852,
     +     .23109,    .13804,   3.60690,    .21190,    .02288,
     +     .00000,    .13681,    .22604,
     +     .23432,    .13984,   3.76156,    .21875,    .03108,
     +     .00000,    .14419,    .23325,
     +     .23778,    .14175,   3.91940,    .22607,    .04027,
     +     .00000,    .15209,    .24095 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
     +     .24073,    .14337,   4.04357,    .23235,    .04761,
     +     .00000,    .15887,    .24755,
     +     .24359,    .14491,   4.15906,    .23843,    .05502,
     +     .00000,    .16542,    .25392,
     +     .24584,    .14611,   4.24386,    .24317,    .06064,
     +     .00000,    .17055,    .25892,
     +     .25060,    .14864,   4.40577,    .25324,    .07275,
     +     .00000,    .18144,    .26949,
     +     .25465,    .15074,   4.54648,    .26171,    .08300,
     +    -.00397,    .19064,    .27839,
     +     .25909,    .15303,   4.64901,    .27097,    .09421,
     +     .01192,    .20070,    .28809,
     +     .26363,    .15534,   4.74322,    .28028,    .10555,
     +     .02523,    .21085,    .29786,
     +     .26768,    .15734,   4.81256,    .28827,    .11521,
     +     .03622,    .21958,    .30625 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
     +     .27168,    .15931,   4.87220,    .29605,    .12474,
     +     .04740,    .22812,    .31442,
     +     .27497,    .16091,   4.91513,    .30230,    .13251,
     +     .05668,    .23502,    .32100,
     +     .27885,    .16278,   4.95598,    .30953,    .14147,
     +     .06717,    .24299,    .32859,
     +     .28220,    .16437,   4.98298,    .31558,    .14903,
     +     .07600,    .24972,    .33496,
     +     .28524,    .16580,   5.00400,    .32099,    .15588,
     +     .08416,    .25574,    .34064,
     +     .28900,    .16754,   5.02022,    .32741,    .16406,
     +     .09377,    .26294,    .34740,
     +     .29244,    .16911,   5.02771,    .33311,    .17138,
     +     .10242,    .26935,    .35340,
     +     .29561,    .17054,   5.03046,    .33823,    .17807,
     +     .11041,    .27514,    .35880 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
     +     .29868,    .17191,   5.02574,    .34295,    .18431,
     +     .11782,    .28053,    .36379,
     +     .30162,    .17319,   5.01698,    .34734,    .19020,
     +     .12488,    .28559,    .36844,
     +     .30434,    .17438,   5.00503,    .35129,    .19557,
     +     .13134,    .29015,    .37262,
     +     .30683,    .17544,   4.98912,    .35475,    .20032,
     +     .13706,    .29417,    .37626,
     +     .30931,    .17649,   4.97147,    .35809,    .20499,
     +     .14273,    .29809,    .37980,
     +     .31165,    .17746,   4.94977,    .36109,    .20927,
     +     .14792,    .30164,    .38299,
     +     .31386,    .17838,   4.92807,    .36383,    .21325,
     +     .15280,    .30492,    .38592,
     +     .31588,    .17920,   4.90449,    .36623,    .21679,
     +     .15715,    .30782,    .38846 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
     +     .31789,    .18000,   4.87924,    .36852,    .22023,
     +     .16140,    .31060,    .39090,
     +     .31983,    .18077,   4.85300,    .37065,    .22352,
     +     .16548,    .31323,    .39319,
     +     .32162,    .18146,   4.82552,    .37249,    .22643,
     +     .16911,    .31554,    .39516,
     +     .32332,    .18213,   4.79979,    .37424,    .22920,
     +     .17259,    .31772,    .39701,
     +     .32495,    .18274,   4.77076,    .37575,    .23174,
     +     .17581,    .31968,    .39864 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
     +     .25726,    .15530,   2.46638,    .15337,    .00000,
     +     .00000,    .08141,    .17034,
     +     .26134,    .15759,   2.62432,    .15870,    .00000,
     +     .00000,    .08738,    .17619,
     +     .26742,    .16093,   2.85897,    .16677,   -.01111,
     +     .00000,    .09644,    .18501,
     +     .27180,    .16325,   2.99112,    .17268,   -.00438,
     +     .00000,    .10307,    .19144,
     +     .27638,    .16563,   3.11205,    .17891,    .00591,
     +     .00000,    .11007,    .19820,
     +     .28027,    .16762,   3.20676,    .18420,    .01261,
     +     .00000,    .11605,    .20394,
     +     .28397,    .16948,   3.28859,    .18918,    .01908,
     +     .00000,    .12167,    .20933,
     +     .28788,    .17143,   3.36972,    .19442,    .02623,
     +     .00000,    .12760,    .21500 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
     +     .29120,    .17306,   3.43078,    .19882,    .03188,
     +     .00000,    .13261,    .21975,
     +     .29438,    .17461,   3.48589,    .20302,    .03752,
     +     .00000,    .13740,    .22430,
     +     .29687,    .17579,   3.52466,    .20626,    .04175,
     +     .00000,    .14109,    .22779,
     +     .30208,    .17824,   3.59335,    .21301,    .05076,
     +     .00000,    .14883,    .23508,
     +     .30643,    .18024,   3.65970,    .21855,    .05827,
     +    -.00612,    .15521,    .24104,
     +     .31114,    .18236,   3.68695,    .22447,    .06635,
     +     .00556,    .16207,    .24742,
     +     .31592,    .18446,   3.70739,    .23028,    .07440,
     +     .01525,    .16884,    .25367,
     +     .32007,    .18626,   3.71573,    .23512,    .08114,
     +     .02314,    .17456,    .25889 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
     +     .32418,    .18798,   3.71783,    .23972,    .08771,
     +     .03109,    .18003,    .26384,
     +     .32750,    .18934,   3.71573,    .24334,    .09299,
     +     .03759,    .18439,    .26775,
     +     .33136,    .19092,   3.70675,    .24741,    .09900,
     +     .04488,    .18931,    .27214,
     +     .33465,    .19223,   3.69348,    .25071,    .10399,
     +     .05092,    .19337,    .27570,
     +     .33762,    .19338,   3.67939,    .25361,    .10847,
     +     .05647,    .19695,    .27882,
     +     .34122,    .19475,   3.65574,    .25693,    .11373,
     +     .06291,    .20113,    .28240,
     +     .34447,    .19594,   3.62952,    .25975,    .11837,
     +     .06865,    .20476,    .28546,
     +     .34744,    .19702,   3.60300,    .26221,    .12256,
     +     .07389,    .20797,    .28814 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
     +     .35026,    .19800,   3.57256,    .26438,    .12641,
     +     .07870,    .21087,    .29049,
     +     .35293,    .19891,   3.54092,    .26634,    .12999,
     +     .08322,    .21353,    .29261,
     +     .35536,    .19972,   3.50938,    .26801,    .13321,
     +     .08732,    .21589,    .29443,
     +     .35754,    .20042,   3.47740,    .26939,    .13601,
     +     .09090,    .21788,    .29593,
     +     .35969,    .20110,   3.44482,    .27068,    .13874,
     +     .09444,    .21979,    .29734,
     +     .36170,    .20170,   3.41075,    .27175,    .14119,
     +     .09763,    .22146,    .29851,
     +     .36356,    .20224,   3.37823,    .27269,    .14345,
     +     .10060,    .22296,    .29953,
     +     .36523,    .20271,   3.34606,    .27342,    .14542,
     +     .10322,    .22423,    .30035 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
     +     .36687,    .20316,   3.31318,    .27407,    .14731,
     +     .10576,    .22541,    .30107,
     +     .36843,    .20357,   3.28036,    .27464,    .14909,
     +     .10817,    .22650,    .30169,
     +     .36986,    .20391,   3.24801,    .27504,    .15064,
     +     .11030,    .22739,    .30215,
     +     .37120,    .20424,   3.21785,    .27541,    .15211,
     +     .11233,    .22822,    .30257,
     +     .37245,    .20452,   3.18593,    .27563,    .15341,
     +     .11417,    .22890,    .30282 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
     +     .29557,    .17829,   2.40245,    .13984,    .00000,
     +     .00000,    .07330,    .16134,
     +     .30025,    .18069,   2.50326,    .14421,    .00000,
     +     .00000,    .07844,    .16632,
     +     .30715,    .18411,   2.65974,    .15066,   -.01298,
     +     .00000,    .08607,    .17362,
     +     .31201,    .18644,   2.73556,    .15528,   -.00723,
     +     .00000,    .09154,    .17881,
     +     .31702,    .18881,   2.80086,    .16005,    .00132,
     +     .00000,    .09723,    .18416,
     +     .32126,    .19076,   2.84992,    .16404,    .00688,
     +     .00000,    .10200,    .18861,
     +     .32522,    .19255,   2.89019,    .16773,    .01219,
     +     .00000,    .10642,    .19272,
     +     .32939,    .19440,   2.92853,    .17155,    .01798,
     +     .00000,    .11103,    .19697 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
     +     .33290,    .19592,   2.95499,    .17470,    .02254,
     +     .00000,    .11486,    .20048,
     +     .33625,    .19734,   2.97773,    .17767,    .02703,
     +     .00000,    .11849,    .20377,
     +     .33881,    .19843,   2.99234,    .17993,    .03039,
     +     .00000,    .12128,    .20628,
     +     .34416,    .20062,   3.01311,    .18457,    .03747,
     +     .00000,    .12700,    .21141,
     +     .34856,    .20235,   3.04091,    .18829,    .04329,
     +    -.00664,    .13166,    .21551,
     +     .35326,    .20416,   3.03235,    .19217,    .04949,
     +     .00243,    .13658,    .21978,
     +     .35795,    .20590,   3.01870,    .19589,    .05558,
     +     .00992,    .14135,    .22385,
     +     .36197,    .20734,   2.99999,    .19889,    .06063,
     +     .01596,    .14529,    .22713 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
     +     .36586,    .20868,   2.97737,    .20164,    .06549,
     +     .02197,    .14900,    .23017,
     +     .36899,    .20972,   2.95648,    .20377,    .06937,
     +     .02687,    .15189,    .23251,
     +     .37257,    .21088,   2.92734,    .20607,    .07374,
     +     .03229,    .15511,    .23502,
     +     .37559,    .21180,   2.89864,    .20785,    .07732,
     +     .03677,    .15768,    .23697,
     +     .37827,    .21260,   2.87152,    .20937,    .08051,
     +     .04083,    .15993,    .23864,
     +     .38145,    .21349,   2.83382,    .21101,    .08421,
     +     .04553,    .16249,    .24044,
     +     .38427,    .21424,   2.79637,    .21233,    .08744,
     +     .04966,    .16464,    .24187,
     +     .38681,    .21488,   2.76060,    .21343,    .09032,
     +     .05340,    .16652,    .24305 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
     +     .38916,    .21542,   2.72282,    .21430,    .09293,
     +     .05681,    .16814,    .24399,
     +     .39135,    .21589,   2.68516,    .21501,    .09533,
     +     .05999,    .16958,    .24476,
     +     .39332,    .21628,   2.64895,    .21555,    .09748,
     +     .06285,    .17081,    .24535,
     +     .39504,    .21657,   2.61383,    .21591,    .09931,
     +     .06533,    .17181,    .24573,
     +     .39671,    .21682,   2.57868,    .21620,    .10108,
     +     .06775,    .17272,    .24603,
     +     .39822,    .21702,   2.54313,    .21634,    .10264,
     +     .06992,    .17347,    .24618,
     +     .39960,    .21717,   2.50962,    .21641,    .10407,
     +     .07194,    .17412,    .24625,
     +     .40080,    .21727,   2.47733,    .21638,    .10529,
     +     .07368,    .17461,    .24620 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
     +     .40195,    .21733,   2.44478,    .21628,    .10646,
     +     .07537,    .17504,    .24607,
     +     .40303,    .21738,   2.41272,    .21612,    .10753,
     +     .07695,    .17540,    .24588,
     +     .40397,    .21737,   2.38174,    .21587,    .10845,
     +     .07834,    .17565,    .24560,
     +     .40485,    .21736,   2.35294,    .21564,    .10931,
     +     .07966,    .17587,    .24533,
     +     .40561,    .21729,   2.32312,    .21529,    .11005,
     +     .08083,    .17598,    .24492 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
     +     .36099,    .21394,   2.11532,    .12007,    .00000,
     +     .00000,    .06370,    .15061,
     +     .36640,    .21624,   2.15181,    .12284,    .00000,
     +     .00000,    .06746,    .15395,
     +     .37410,    .21935,   2.21979,    .12681,   -.01312,
     +     .00000,    .07286,    .15867,
     +     .37935,    .22138,   2.23717,    .12952,   -.00881,
     +     .00000,    .07660,    .16184,
     +     .38467,    .22335,   2.24657,    .13225,   -.00264,
     +     .00000,    .08038,    .16501,
     +     .38905,    .22491,   2.25097,    .13446,    .00138,
     +     .00000,    .08347,    .16753,
     +     .39307,    .22629,   2.25155,    .13641,    .00517,
     +     .00000,    .08629,    .16978,
     +     .39723,    .22767,   2.24988,    .13839,    .00923,
     +     .00000,    .08916,    .17201 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
     +     .40064,    .22875,   2.24484,    .13995,    .01238,
     +     .00000,    .09148,    .17379,
     +     .40385,    .22973,   2.23862,    .14139,    .01548,
     +     .00000,    .09365,    .17539,
     +     .40627,    .23045,   2.23198,    .14246,    .01776,
     +     .00000,    .09527,    .17658,
     +     .41119,    .23183,   2.21233,    .14455,    .02249,
     +     .00000,    .09856,    .17888,
     +     .41505,    .23281,   2.20667,    .14614,    .02633,
     +    -.00623,    .10113,    .18059,
     +     .41906,    .23371,   2.17159,    .14770,    .03036,
     +    -.00024,    .10378,    .18225,
     +     .42291,    .23448,   2.13390,    .14907,    .03425,
     +     .00466,    .10625,    .18366,
     +     .42607,    .23502,   2.09728,    .15005,    .03742,
     +     .00856,    .10819,    .18463 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
     +     .42901,    .23544,   2.05933,    .15085,    .04042,
     +     .01239,    .10995,    .18540,
     +     .43130,    .23569,   2.02748,    .15140,    .04278,
     +     .01548,    .11127,    .18591,
     +     .43381,    .23587,   1.98773,    .15187,    .04540,
     +     .01886,    .11267,    .18629,
     +     .43579,    .23592,   1.95175,    .15213,    .04752,
     +     .02162,    .11372,    .18644,
     +     .43749,    .23592,   1.91900,    .15229,    .04937,
     +     .02409,    .11459,    .18649,
     +     .43939,    .23578,   1.87658,    .15231,    .05149,
     +     .02692,    .11549,    .18636,
     +     .44094,    .23555,   1.83654,    .15220,    .05331,
     +     .02938,    .11617,    .18606,
     +     .44226,    .23525,   1.79945,    .15200,    .05490,
     +     .03157,    .11672,    .18568 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
     +     .44333,    .23487,   1.76197,    .15167,    .05631,
     +     .03354,    .11710,    .18515,
     +     .44426,    .23443,   1.72561,    .15126,    .05758,
     +     .03536,    .11738,    .18455,
     +     .44500,    .23396,   1.69154,    .15079,    .05869,
     +     .03697,    .11756,    .18389,
     +     .44554,    .23345,   1.65938,    .15028,    .05961,
     +     .03835,    .11762,    .18315,
     +     .44600,    .23292,   1.62763,    .14973,    .06049,
     +     .03969,    .11764,    .18238,
     +     .44629,    .23232,   1.59635,    .14910,    .06124,
     +     .04086,    .11756,    .18152,
     +     .44651,    .23172,   1.56718,    .14847,    .06193,
     +     .04194,    .11746,    .18069,
     +     .44661,    .23110,   1.53967,    .14782,    .06247,
     +     .04286,    .11729,    .17983 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
     +     .44664,    .23045,   1.51229,    .14712,    .06299,
     +     .04374,    .11707,    .17893,
     +     .44659,    .22978,   1.48564,    .14641,    .06345,
     +     .04456,    .11682,    .17799,
     +     .44644,    .22910,   1.46029,    .14568,    .06382,
     +     .04525,    .11653,    .17704,
     +     .44630,    .22847,   1.43682,    .14500,    .06418,
     +     .04591,    .11625,    .17613,
     +     .44602,    .22776,   1.41298,    .14424,    .06445,
     +     .04649,    .11589,    .17517 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
     +     .41582,    .24008,   1.78932,    .10454,    .00000,
     +     .00000,    .05765,    .14251,
     +     .42144,    .24197,   1.79726,    .10611,    .00000,
     +     .00000,    .06027,    .14440,
     +     .42920,    .24438,   1.82441,    .10827,   -.01156,
     +     .00000,    .06393,    .14693,
     +     .43431,    .24581,   1.81846,    .10970,   -.00825,
     +     .00000,    .06641,    .14852,
     +     .43933,    .24712,   1.80668,    .11108,   -.00364,
     +     .00000,    .06888,    .15003,
     +     .44338,    .24809,   1.79460,    .11215,   -.00065,
     +     .00000,    .07086,    .15116,
     +     .44699,    .24888,   1.78101,    .11307,    .00216,
     +     .00000,    .07262,    .15209,
     +     .45065,    .24959,   1.76550,    .11396,    .00514,
     +     .00000,    .07439,    .15295 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
     +     .45354,    .25008,   1.75004,    .11461,    .00744,
     +     .00000,    .07578,    .15355,
     +     .45621,    .25048,   1.73448,    .11519,    .00968,
     +     .00000,    .07707,    .15406,
     +     .45817,    .25072,   1.72125,    .11558,    .01133,
     +     .00000,    .07802,    .15438,
     +     .46203,    .25106,   1.68992,    .11631,    .01472,
     +     .00000,    .07989,    .15491,
     +     .46485,    .25112,   1.67351,    .11677,    .01742,
     +    -.00537,    .08130,    .15514,
     +     .46760,    .25102,   1.63354,    .11715,    .02023,
     +    -.00114,    .08269,    .15522,
     +     .47009,    .25073,   1.59209,    .11736,    .02293,
     +     .00231,    .08393,    .15510,
     +     .47194,    .25026,   1.55373,    .11737,    .02510,
     +     .00504,    .08483,    .15478 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
     +     .47352,    .24968,   1.51508,    .11726,    .02712,
     +     .00769,    .08558,    .15429,
     +     .47462,    .24911,   1.48331,    .11709,    .02871,
     +     .00980,    .08612,    .15379,
     +     .47564,    .24831,   1.44465,    .11676,    .03044,
     +     .01211,    .08660,    .15304,
     +     .47630,    .24747,   1.41048,    .11636,    .03182,
     +     .01396,    .08691,    .15227,
     +     .47676,    .24666,   1.37980,    .11594,    .03302,
     +     .01562,    .08713,    .15149,
     +     .47705,    .24551,   1.34083,    .11530,    .03436,
     +     .01749,    .08726,    .15039,
     +     .47705,    .24433,   1.30468,    .11461,    .03550,
     +     .01910,    .08728,    .14924,
     +     .47692,    .24319,   1.27158,    .11393,    .03649,
     +     .02054,    .08725,    .14810 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
     +     .47655,    .24192,   1.23866,    .11315,    .03734,
     +     .02180,    .08708,    .14688,
     +     .47603,    .24064,   1.20712,    .11233,    .03809,
     +     .02295,    .08686,    .14565,
     +     .47540,    .23940,   1.17784,    .11154,    .03873,
     +     .02397,    .08661,    .14442,
     +     .47463,    .23816,   1.15053,    .11073,    .03926,
     +     .02482,    .08631,    .14321,
     +     .47379,    .23689,   1.12377,    .10991,    .03976,
     +     .02565,    .08598,    .14198,
     +     .47281,    .23558,   1.09770,    .10904,    .04016,
     +     .02637,    .08557,    .14072,
     +     .47181,    .23432,   1.07354,    .10819,    .04050,
     +     .02701,    .08518,    .13951,
     +     .47076,    .23310,   1.05094,    .10737,    .04079,
     +     .02756,    .08476,    .13833 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
     +     .46962,    .23184,   1.02860,    .10653,    .04104,
     +     .02808,    .08432,    .13713,
     +     .46844,    .23058,   1.00698,    .10570,    .04126,
     +     .02855,    .08386,    .13592,
     +     .46719,    .22934,    .98660,    .10486,    .04142,
     +     .02894,    .08340,    .13474,
     +     .46603,    .22817,    .96779,    .10407,    .04156,
     +     .02931,    .08295,    .13364,
     +     .46471,    .22693,    .94884,    .10325,    .04166,
     +     .02963,    .08247,    .13248 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
     +     .46304,    .25967,   1.49983,    .09105,    .00000,
     +     .00000,    .05257,    .13427,
     +     .46845,    .26094,   1.49584,    .09174,    .00000,
     +     .00000,    .05429,    .13492,
     +     .47564,    .26240,   1.50448,    .09267,   -.00988,
     +     .00000,    .05664,    .13568,
     +     .48016,    .26310,   1.49003,    .09325,   -.00732,
     +     .00000,    .05821,    .13603,
     +     .48448,    .26361,   1.47103,    .09378,   -.00379,
     +     .00000,    .05974,    .13629,
     +     .48783,    .26383,   1.45346,    .09414,   -.00147,
     +     .00000,    .06097,    .13638,
     +     .49069,    .26390,   1.43542,    .09441,    .00067,
     +     .00000,    .06202,    .13634,
     +     .49347,    .26389,   1.41572,    .09465,    .00294,
     +     .00000,    .06305,    .13621 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
     +     .49556,    .26372,   1.39734,    .09479,    .00468,
     +     .00000,    .06386,    .13599,
     +     .49740,    .26347,   1.37932,    .09487,    .00637,
     +     .00000,    .06456,    .13574,
     +     .49870,    .26318,   1.36450,    .09488,    .00760,
     +     .00000,    .06507,    .13549,
     +     .50105,    .26242,   1.33093,    .09484,    .01013,
     +     .00000,    .06604,    .13484,
     +     .50250,    .26155,   1.31151,    .09470,    .01213,
     +    -.00462,    .06674,    .13412,
     +     .50369,    .26038,   1.27277,    .09445,    .01421,
     +    -.00148,    .06739,    .13322,
     +     .50450,    .25898,   1.23309,    .09407,    .01617,
     +     .00107,    .06790,    .13214,
     +     .50475,    .25755,   1.19700,    .09360,    .01774,
     +     .00307,    .06821,    .13100 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
     +     .50468,    .25600,   1.16109,    .09305,    .01919,
     +     .00500,    .06840,    .12977,
     +     .50442,    .25464,   1.13184,    .09255,    .02031,
     +     .00654,    .06850,    .12870,
     +     .50378,    .25289,   1.09667,    .09185,    .02153,
     +     .00820,    .06849,    .12730,
     +     .50294,    .25123,   1.06592,    .09116,    .02248,
     +     .00951,    .06840,    .12599,
     +     .50205,    .24967,   1.03847,    .09051,    .02330,
     +     .01069,    .06828,    .12478,
     +     .50059,    .24758,   1.00404,    .08960,    .02421,
     +     .01201,    .06803,    .12315,
     +     .49897,    .24555,    .97235,    .08869,    .02496,
     +     .01312,    .06771,    .12158,
     +     .49732,    .24361,    .94354,    .08782,    .02562,
     +     .01412,    .06736,    .12009 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
     +     .49543,    .24158,    .91519,    .08690,    .02616,
     +     .01498,    .06695,    .11854,
     +     .49343,    .23957,    .88818,    .08597,    .02664,
     +     .01577,    .06652,    .11700,
     +     .49142,    .23763,    .86328,    .08507,    .02703,
     +     .01644,    .06606,    .11553,
     +     .48935,    .23577,    .84023,    .08419,    .02734,
     +     .01701,    .06560,    .11412,
     +     .48722,    .23390,    .81775,    .08331,    .02764,
     +     .01756,    .06512,    .11269,
     +     .48499,    .23199,    .79600,    .08241,    .02786,
     +     .01802,    .06459,    .11129,
     +     .48282,    .23019,    .77595,    .08154,    .02805,
     +     .01843,    .06409,    .10995,
     +     .48065,    .22845,    .75729,    .08071,    .02820,
     +     .01878,    .06359,    .10867 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
     +     .47839,    .22669,    .73894,    .07988,    .02833,
     +     .01910,    .06307,    .10736,
     +     .47611,    .22495,    .72127,    .07904,    .02842,
     +     .01939,    .06254,    .10608,
     +     .47386,    .22326,    .70471,    .07823,    .02848,
     +     .01963,    .06203,    .10485,
     +     .47173,    .22167,    .68945,    .07748,    .02853,
     +     .01985,    .06155,    .10368,
     +     .46944,    .22001,    .67419,    .07669,    .02855,
     +     .02003,    .06102,    .10251 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
     +     .51265,    .27633,   1.21740,    .07602,    .00000,
     +     .00000,    .04629,    .12226,
     +     .51718,    .27666,   1.20801,    .07607,    .00000,
     +     .00000,    .04720,    .12174,
     +     .52284,    .27667,   1.20671,    .07611,   -.00820,
     +     .00000,    .04847,    .12083,
     +     .52609,    .27629,   1.18902,    .07609,   -.00627,
     +     .00000,    .04930,    .12011,
     +     .52896,    .27569,   1.16767,    .07603,   -.00361,
     +     .00000,    .05008,    .11930,
     +     .53092,    .27499,   1.14841,    .07596,   -.00188,
     +     .00000,    .05068,    .11848,
     +     .53246,    .27415,   1.12911,    .07581,   -.00028,
     +     .00000,    .05117,    .11766,
     +     .53380,    .27312,   1.10839,    .07561,    .00140,
     +     .00000,    .05164,    .11675 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
     +     .53455,    .27211,   1.08948,    .07540,    .00269,
     +     .00000,    .05198,    .11589,
     +     .53510,    .27105,   1.07115,    .07518,    .00393,
     +     .00000,    .05227,    .11502,
     +     .53536,    .27012,   1.05630,    .07496,    .00484,
     +     .00000,    .05246,    .11431,
     +     .53541,    .26803,   1.02349,    .07449,    .00668,
     +     .00000,    .05279,    .11274,
     +     .53485,    .26602,   1.00324,    .07400,    .00813,
     +    -.00384,    .05296,    .11133,
     +     .53380,    .26361,    .96752,    .07339,    .00961,
     +    -.00158,    .05306,    .10974,
     +     .53224,    .26095,    .93123,    .07270,    .01100,
     +     .00026,    .05307,    .10798,
     +     .53035,    .25844,    .89865,    .07199,    .01209,
     +     .00169,    .05296,    .10629 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
     +     .52813,    .25577,    .86651,    .07120,    .01309,
     +     .00306,    .05277,    .10459,
     +     .52612,    .25352,    .84054,    .07051,    .01386,
     +     .00413,    .05256,    .10318,
     +     .52334,    .25071,    .80960,    .06964,    .01467,
     +     .00528,    .05224,    .10139,
     +     .52060,    .24816,    .78278,    .06885,    .01532,
     +     .00620,    .05190,    .09978,
     +     .51798,    .24582,    .75904,    .06811,    .01585,
     +     .00700,    .05157,    .09829,
     +     .51438,    .24277,    .72951,    .06711,    .01644,
     +     .00789,    .05108,    .09642,
     +     .51079,    .23983,    .70259,    .06614,    .01691,
     +     .00864,    .05057,    .09464,
     +     .50731,    .23707,    .67829,    .06522,    .01731,
     +     .00930,    .05007,    .09299 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
     +     .50359,    .23429,    .65457,    .06429,    .01765,
     +     .00987,    .04954,    .09131,
     +     .49986,    .23154,    .63215,    .06336,    .01792,
     +     .01038,    .04900,    .08966,
     +     .49624,    .22893,    .61164,    .06249,    .01814,
     +     .01080,    .04846,    .08811,
     +     .49270,    .22644,    .59279,    .06163,    .01831,
     +     .01116,    .04792,    .08666,
     +     .48910,    .22396,    .57450,    .06077,    .01846,
     +     .01150,    .04738,    .08523,
     +     .48543,    .22150,    .55693,    .05992,    .01857,
     +     .01179,    .04682,    .08381,
     +     .48192,    .21917,    .54081,    .05913,    .01865,
     +     .01203,    .04629,    .08247,
     +     .47851,    .21695,    .52592,    .05837,    .01870,
     +     .01224,    .04578,    .08121 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
     +     .47504,    .21472,    .51135,    .05760,    .01874,
     +     .01242,    .04526,    .07994,
     +     .47159,    .21252,    .49739,    .05684,    .01877,
     +     .01259,    .04473,    .07871,
     +     .46822,    .21039,    .48438,    .05612,    .01876,
     +     .01272,    .04423,    .07754,
     +     .46505,    .20841,    .47245,    .05543,    .01876,
     +     .01285,    .04376,    .07645,
     +     .46175,    .20639,    .46057,    .05473,    .01873,
     +     .01294,    .04327,    .07533 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
     +     .55325,    .28638,   1.01387,    .06292,    .00000,
     +     .00000,    .03992,    .10860,
     +     .55637,    .28564,   1.00209,    .06270,    .00000,
     +     .00000,    .04038,    .10728,
     +     .55979,    .28408,    .99570,    .06232,   -.00708,
     +     .00000,    .04098,    .10535,
     +     .56130,    .28258,    .97676,    .06201,   -.00555,
     +     .00000,    .04136,    .10396,
     +     .56229,    .28082,    .95463,    .06169,   -.00347,
     +     .00000,    .04171,    .10248,
     +     .56262,    .27913,    .93480,    .06138,   -.00211,
     +     .00000,    .04198,    .10117,
     +     .56253,    .27735,    .91521,    .06106,   -.00087,
     +     .00000,    .04215,    .09989,
     +     .56210,    .27537,    .89435,    .06069,    .00044,
     +     .00000,    .04230,    .09852 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
     +     .56135,    .27351,    .87550,    .06033,    .00144,
     +     .00000,    .04238,    .09732,
     +     .56041,    .27165,    .85742,    .05996,    .00240,
     +     .00000,    .04242,    .09613,
     +     .55947,    .27015,    .84286,    .05966,    .00309,
     +     .00000,    .04243,    .09521,
     +     .55703,    .26678,    .81119,    .05899,    .00449,
     +     .00000,    .04238,    .09319,
     +     .55434,    .26373,    .79097,    .05837,    .00557,
     +    -.00327,    .04229,    .09143,
     +     .55088,    .26025,    .75796,    .05766,    .00668,
     +    -.00157,    .04212,    .08946,
     +     .54687,    .25649,    .72468,    .05682,    .00770,
     +    -.00019,    .04185,    .08742,
     +     .54282,    .25296,    .69507,    .05603,    .00850,
     +     .00087,    .04152,    .08556 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
     +     .53844,    .24938,    .66613,    .05520,    .00922,
     +     .00188,    .04115,    .08368,
     +     .53464,    .24639,    .64294,    .05450,    .00977,
     +     .00267,    .04081,    .08212,
     +     .52975,    .24271,    .61556,    .05360,    .01034,
     +     .00350,    .04037,    .08023,
     +     .52521,    .23943,    .59205,    .05279,    .01077,
     +     .00415,    .03992,    .07855,
     +     .52097,    .23643,    .57136,    .05206,    .01114,
     +     .00472,    .03949,    .07706,
     +     .51537,    .23257,    .54583,    .05109,    .01152,
     +     .00535,    .03891,    .07516,
     +     .50991,    .22896,    .52277,    .05017,    .01183,
     +     .00587,    .03833,    .07338,
     +     .50473,    .22559,    .50211,    .04932,    .01209,
     +     .00632,    .03778,    .07175 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
     +     .49942,    .22218,    .48212,    .04842,    .01229,
     +     .00671,    .03723,    .07012,
     +     .49415,    .21886,    .46337,    .04755,    .01244,
     +     .00704,    .03665,    .06855,
     +     .48912,    .21576,    .44628,    .04674,    .01258,
     +     .00733,    .03611,    .06710,
     +     .48425,    .21283,    .43072,    .04598,    .01266,
     +     .00757,    .03559,    .06572,
     +     .47936,    .20992,    .41571,    .04521,    .01273,
     +     .00778,    .03507,    .06437,
     +     .47446,    .20704,    .40140,    .04446,    .01278,
     +     .00796,    .03454,    .06305,
     +     .46983,    .20434,    .38833,    .04374,    .01280,
     +     .00811,    .03404,    .06183,
     +     .46538,    .20178,    .37633,    .04306,    .01280,
     +     .00823,    .03356,    .06068 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
     +     .46088,    .19924,    .36464,    .04239,    .01280,
     +     .00835,    .03306,    .05955,
     +     .45644,    .19674,    .35350,    .04173,    .01279,
     +     .00844,    .03259,    .05844,
     +     .45215,    .19436,    .34317,    .04110,    .01276,
     +     .00852,    .03214,    .05738,
     +     .44814,    .19214,    .33372,    .04052,    .01275,
     +     .00859,    .03171,    .05642,
     +     .44400,    .18986,    .32439,    .03991,    .01270,
     +     .00864,    .03127,    .05543 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
     +     .58544,    .29097,    .86816,    .05185,    .00000,
     +     .00000,    .03367,    .09396,
     +     .58670,    .28916,    .85410,    .05149,    .00000,
     +     .00000,    .03385,    .09225,
     +     .58727,    .28604,    .84337,    .05100,   -.00633,
     +     .00000,    .03406,    .08976,
     +     .58673,    .28347,    .82288,    .05064,   -.00507,
     +     .00000,    .03420,    .08802,
     +     .58554,    .28061,    .79973,    .05024,   -.00338,
     +     .00000,    .03430,    .08619,
     +     .58398,    .27797,    .77922,    .04988,   -.00227,
     +     .00000,    .03435,    .08461,
     +     .58209,    .27533,    .75913,    .04949,   -.00125,
     +     .00000,    .03436,    .08311,
     +     .57976,    .27245,    .73796,    .04906,   -.00020,
     +     .00000,    .03432,    .08153 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
     +     .57735,    .26986,    .71912,    .04866,    .00061,
     +     .00000,    .03426,    .08016,
     +     .57483,    .26732,    .70113,    .04826,    .00136,
     +     .00000,    .03417,    .07886,
     +     .57263,    .26526,    .68681,    .04792,    .00191,
     +     .00000,    .03409,    .07783,
     +     .56759,    .26078,    .65615,    .04720,    .00301,
     +     .00000,    .03386,    .07566,
     +     .56273,    .25682,    .63594,    .04656,    .00386,
     +    -.00280,    .03360,    .07382,
     +     .55694,    .25237,    .60514,    .04581,    .00470,
     +    -.00150,    .03327,    .07181,
     +     .55052,    .24770,    .57439,    .04499,    .00548,
     +    -.00043,    .03289,    .06971,
     +     .54438,    .24336,    .54736,    .04418,    .00607,
     +     .00037,    .03248,    .06786 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
     +     .53797,    .23901,    .52120,    .04336,    .00660,
     +     .00114,    .03202,    .06601,
     +     .53253,    .23542,    .50039,    .04268,    .00700,
     +     .00172,    .03162,    .06449,
     +     .52570,    .23107,    .47606,    .04184,    .00740,
     +     .00234,    .03111,    .06268,
     +     .51947,    .22722,    .45535,    .04109,    .00771,
     +     .00282,    .03065,    .06107,
     +     .51376,    .22373,    .43725,    .04040,    .00797,
     +     .00324,    .03022,    .05963,
     +     .50639,    .21927,    .41515,    .03949,    .00823,
     +     .00369,    .02963,    .05786,
     +     .49933,    .21513,    .39539,    .03863,    .00844,
     +     .00406,    .02907,    .05623,
     +     .49271,    .21130,    .37780,    .03783,    .00859,
     +     .00438,    .02853,    .05475 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
     +     .48596,    .20749,    .36090,    .03704,    .00872,
     +     .00465,    .02799,    .05326,
     +     .47937,    .20380,    .34516,    .03627,    .00881,
     +     .00487,    .02746,    .05185,
     +     .47311,    .20036,    .33097,    .03556,    .00888,
     +     .00508,    .02695,    .05053,
     +     .46717,    .19710,    .31811,    .03488,    .00892,
     +     .00523,    .02648,    .04934,
     +     .46125,    .19389,    .30579,    .03420,    .00894,
     +     .00537,    .02599,    .04816,
     +     .45537,    .19075,    .29410,    .03353,    .00896,
     +     .00549,    .02553,    .04701,
     +     .44983,    .18782,    .28348,    .03291,    .00896,
     +     .00558,    .02508,    .04594,
     +     .44456,    .18505,    .27380,    .03233,    .00895,
     +     .00566,    .02466,    .04495 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
     +     .43926,    .18229,    .26439,    .03174,    .00892,
     +     .00572,    .02423,    .04397,
     +     .43406,    .17961,    .25548,    .03118,    .00889,
     +     .00578,    .02382,    .04302,
     +     .42907,    .17708,    .24726,    .03064,    .00886,
     +     .00582,    .02343,    .04212,
     +     .42442,    .17471,    .23977,    .03015,    .00882,
     +     .00585,    .02306,    .04129,
     +     .41966,    .17231,    .23242,    .02964,    .00878,
     +     .00588,    .02268,    .04046 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
     +     .60952,    .29108,    .75964,    .04269,    .00000,
     +     .00000,    .02773,    .07924,
     +     .60863,    .28817,    .74268,    .04236,    .00000,
     +     .00000,    .02780,    .07736,
     +     .60607,    .28355,    .72723,    .04187,   -.00579,
     +     .00000,    .02789,    .07466,
     +     .60323,    .27996,    .70488,    .04149,   -.00470,
     +     .00000,    .02790,    .07277,
     +     .59970,    .27606,    .68022,    .04108,   -.00328,
     +     .00000,    .02791,    .07088,
     +     .59616,    .27257,    .65876,    .04069,   -.00234,
     +     .00000,    .02782,    .06927,
     +     .59237,    .26914,    .63807,    .04030,   -.00149,
     +     .00000,    .02773,    .06776,
     +     .58809,    .26546,    .61648,    .03987,   -.00062,
     +     .00000,    .02763,    .06616 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
     +     .58401,    .26218,    .59754,    .03944,    .00004,
     +     .00000,    .02750,    .06481,
     +     .57991,    .25901,    .57969,    .03904,    .00065,
     +     .00000,    .02735,    .06350,
     +     .57649,    .25649,    .56558,    .03872,    .00109,
     +     .00000,    .02723,    .06247,
     +     .56892,    .25104,    .53590,    .03799,    .00197,
     +     .00000,    .02690,    .06037,
     +     .56198,    .24633,    .51591,    .03734,    .00265,
     +    -.00241,    .02659,    .05860,
     +     .55394,    .24110,    .48717,    .03660,    .00330,
     +    -.00138,    .02623,    .05668,
     +     .54533,    .23563,    .45880,    .03580,    .00389,
     +    -.00056,    .02577,    .05475,
     +     .53719,    .23072,    .43411,    .03507,    .00435,
     +     .00007,    .02534,    .05298 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
     +     .52888,    .22579,    .41054,    .03430,    .00475,
     +     .00065,    .02489,    .05126,
     +     .52195,    .22173,    .39199,    .03365,    .00504,
     +     .00109,    .02449,    .04989,
     +     .51344,    .21685,    .37043,    .03287,    .00534,
     +     .00156,    .02398,    .04824,
     +     .50578,    .21258,    .35234,    .03217,    .00556,
     +     .00192,    .02353,    .04682,
     +     .49880,    .20874,    .33661,    .03153,    .00573,
     +     .00223,    .02311,    .04555,
     +     .48984,    .20387,    .31759,    .03071,    .00591,
     +     .00255,    .02257,    .04398,
     +     .48143,    .19936,    .30070,    .02996,    .00605,
     +     .00283,    .02206,    .04254,
     +     .47362,    .19521,    .28580,    .02924,    .00615,
     +     .00305,    .02158,    .04124 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
     +     .46573,    .19112,    .27165,    .02852,    .00622,
     +     .00324,    .02108,    .03998,
     +     .45806,    .18719,    .25854,    .02785,    .00628,
     +     .00341,    .02061,    .03876,
     +     .45084,    .18356,    .24678,    .02722,    .00631,
     +     .00353,    .02016,    .03764,
     +     .44406,    .18015,    .23623,    .02662,    .00632,
     +     .00364,    .01973,    .03661,
     +     .43734,    .17677,    .22616,    .02603,    .00633,
     +     .00373,    .01932,    .03561,
     +     .43068,    .17348,    .21668,    .02545,    .00632,
     +     .00380,    .01891,    .03467,
     +     .42444,    .17042,    .20812,    .02492,    .00632,
     +     .00387,    .01851,    .03378,
     +     .41855,    .16755,    .20035,    .02442,    .00629,
     +     .00391,    .01815,    .03295 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
     +     .41266,    .16472,    .19285,    .02392,    .00626,
     +     .00396,    .01781,    .03213,
     +     .40691,    .16195,    .18576,    .02344,    .00623,
     +     .00399,    .01746,    .03134,
     +     .40144,    .15934,    .17927,    .02298,    .00619,
     +     .00401,    .01712,    .03062,
     +     .39633,    .15692,    .17338,    .02255,    .00615,
     +     .00402,    .01681,    .02995,
     +     .39112,    .15446,    .16762,    .02213,    .00611,
     +     .00404,    .01650,    .02928 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
     +     .62585,    .28737,    .67219,    .03528,    .00000,
     +     .00000,    .02248,    .06505,
     +     .62268,    .28340,    .65211,    .03495,    .00000,
     +     .00000,    .02251,    .06325,
     +     .61674,    .27734,    .63210,    .03445,   -.00530,
     +     .00000,    .02250,    .06068,
     +     .61156,    .27279,    .60776,    .03408,   -.00433,
     +     .00000,    .02248,    .05889,
     +     .60561,    .26799,    .58172,    .03369,   -.00313,
     +     .00000,    .02241,    .05707,
     +     .60008,    .26371,    .55946,    .03331,   -.00233,
     +     .00000,    .02232,    .05556,
     +     .59443,    .25959,    .53832,    .03292,   -.00161,
     +     .00000,    .02221,    .05412,
     +     .58820,    .25523,    .51655,    .03249,   -.00089,
     +     .00000,    .02207,    .05262 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
     +     .58250,    .25138,    .49784,    .03208,   -.00034,
     +     .00000,    .02190,    .05134,
     +     .57688,    .24768,    .48026,    .03169,    .00017,
     +     .00000,    .02173,    .05016,
     +     .57230,    .24476,    .46653,    .03137,    .00053,
     +     .00000,    .02157,    .04923,
     +     .56230,    .23856,    .43801,    .03068,    .00124,
     +     .00000,    .02123,    .04729,
     +     .55340,    .23325,    .41873,    .03005,    .00177,
     +    -.00206,    .02091,    .04569,
     +     .54335,    .22739,    .39213,    .02932,    .00230,
     +    -.00124,    .02052,    .04400,
     +     .53269,    .22139,    .36624,    .02858,    .00276,
     +    -.00059,    .02010,    .04223,
     +     .52285,    .21600,    .34406,    .02787,    .00310,
     +    -.00011,    .01969,    .04072 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
     +     .51291,    .21066,    .32305,    .02717,    .00341,
     +     .00035,    .01924,    .03920,
     +     .50468,    .20630,    .30667,    .02659,    .00362,
     +     .00068,    .01888,    .03798,
     +     .49473,    .20102,    .28787,    .02586,    .00384,
     +     .00103,    .01842,    .03657,
     +     .48587,    .19646,    .27219,    .02523,    .00400,
     +     .00131,    .01801,    .03535,
     +     .47784,    .19240,    .25869,    .02466,    .00412,
     +     .00153,    .01762,    .03426,
     +     .46764,    .18730,    .24255,    .02393,    .00424,
     +     .00177,    .01713,    .03292,
     +     .45812,    .18259,    .22834,    .02325,    .00434,
     +     .00197,    .01667,    .03173,
     +     .44933,    .17829,    .21589,    .02262,    .00440,
     +     .00213,    .01625,    .03064 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
     +     .44059,    .17404,    .20416,    .02198,    .00445,
     +     .00227,    .01582,    .02959,
     +     .43211,    .16999,    .19339,    .02139,    .00447,
     +     .00238,    .01541,    .02860,
     +     .42417,    .16625,    .18378,    .02085,    .00448,
     +     .00247,    .01501,    .02768,
     +     .41675,    .16276,    .17523,    .02034,    .00449,
     +     .00254,    .01466,    .02684,
     +     .40942,    .15934,    .16710,    .01985,    .00448,
     +     .00260,    .01432,    .02601,
     +     .40223,    .15601,    .15951,    .01937,    .00447,
     +     .00265,    .01398,    .02522,
     +     .39550,    .15294,    .15267,    .01891,    .00444,
     +     .00269,    .01365,    .02451,
     +     .38919,    .15006,    .14650,    .01849,    .00442,
     +     .00272,    .01336,    .02384 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
     +     .38291,    .14721,    .14059,    .01807,    .00440,
     +     .00274,    .01306,    .02319,
     +     .37677,    .14445,    .13503,    .01768,    .00436,
     +     .00276,    .01277,    .02257,
     +     .37094,    .14186,    .12996,    .01729,    .00433,
     +     .00277,    .01249,    .02200,
     +     .36552,    .13945,    .12537,    .01695,    .00430,
     +     .00278,    .01224,    .02146,
     +     .36005,    .13704,    .12090,    .01659,    .00425,
     +     .00278,    .01198,    .02094 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
     +     .63502,    .28018,    .59505,    .02902,    .00000,
     +     .00000,    .01799,    .05229,
     +     .62932,    .27536,    .57236,    .02875,    .00000,
     +     .00000,    .01802,    .05061,
     +     .61988,    .26808,    .54835,    .02837,   -.00479,
     +     .00000,    .01798,    .04824,
     +     .61231,    .26274,    .52265,    .02806,   -.00394,
     +     .00000,    .01792,    .04659,
     +     .60402,    .25713,    .49583,    .02769,   -.00292,
     +     .00000,    .01785,    .04494,
     +     .59649,    .25225,    .47329,    .02735,   -.00223,
     +     .00000,    .01773,    .04357,
     +     .58903,    .24757,    .45225,    .02697,   -.00162,
     +     .00000,    .01761,    .04229,
     +     .58094,    .24265,    .43083,    .02655,   -.00102,
     +     .00000,    .01742,    .04099 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
     +     .57368,    .23840,    .41264,    .02618,   -.00056,
     +     .00000,    .01723,    .03988,
     +     .56662,    .23432,    .39576,    .02582,   -.00014,
     +     .00000,    .01706,    .03882,
     +     .56098,    .23107,    .38271,    .02551,    .00015,
     +     .00000,    .01690,    .03801,
     +     .54880,    .22427,    .35597,    .02485,    .00073,
     +     .00000,    .01658,    .03631,
     +     .53819,    .21854,    .33769,    .02425,    .00115,
     +    -.00173,    .01627,    .03494,
     +     .52631,    .21228,    .31360,    .02360,    .00157,
     +    -.00109,    .01590,    .03344,
     +     .51390,    .20590,    .29037,    .02293,    .00193,
     +    -.00058,    .01550,    .03195,
     +     .50266,    .20019,    .27080,    .02227,    .00220,
     +    -.00020,    .01510,    .03063 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
     +     .49138,    .19451,    .25239,    .02162,    .00243,
     +     .00015,    .01471,    .02940,
     +     .48213,    .18993,    .23818,    .02110,    .00259,
     +     .00041,    .01437,    .02842,
     +     .47100,    .18452,    .22209,    .02041,    .00274,
     +     .00067,    .01396,    .02725,
     +     .46116,    .17983,    .20879,    .01986,    .00286,
     +     .00088,    .01360,    .02622,
     +     .45230,    .17564,    .19741,    .01936,    .00295,
     +     .00105,    .01327,    .02532,
     +     .44116,    .17044,    .18387,    .01871,    .00304,
     +     .00122,    .01284,    .02426,
     +     .43081,    .16566,    .17214,    .01811,    .00309,
     +     .00136,    .01246,    .02327,
     +     .42132,    .16131,    .16192,    .01758,    .00314,
     +     .00149,    .01210,    .02238 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
     +     .41192,    .15705,    .15238,    .01705,    .00316,
     +     .00157,    .01176,    .02149,
     +     .40289,    .15297,    .14367,    .01654,    .00317,
     +     .00165,    .01142,    .02069,
     +     .39450,    .14920,    .13595,    .01604,    .00318,
     +     .00173,    .01110,    .01998,
     +     .38667,    .14573,    .12912,    .01559,    .00317,
     +     .00177,    .01081,    .01932,
     +     .37897,    .14234,    .12266,    .01517,    .00317,
     +     .00182,    .01052,    .01869,
     +     .37145,    .13908,    .11667,    .01477,    .00315,
     +     .00185,    .01023,    .01808,
     +     .36444,    .13606,    .11130,    .01440,    .00313,
     +     .00187,    .00996,    .01750,
     +     .35788,    .13322,    .10651,    .01404,    .00310,
     +     .00188,    .00972,    .01698 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
     +     .35138,    .13043,    .10190,    .01369,    .00309,
     +     .00190,    .00949,    .01649,
     +     .34506,    .12773,    .09760,    .01334,    .00305,
     +     .00191,    .00925,    .01600,
     +     .33910,    .12522,    .09371,    .01304,    .00302,
     +     .00191,    .00902,    .01556,
     +     .33357,    .12289,    .09018,    .01276,    .00300,
     +     .00192,    .00881,    .01514,
     +     .32799,    .12054,    .08677,    .01245,    .00296,
     +     .00192,    .00861,    .01474 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
     +     .63632,    .27123,    .52265,    .02472,    .00000,
     +     .00000,    .01372,    .04052,
     +     .62828,    .26549,    .49805,    .02446,    .00000,
     +     .00000,    .01378,    .03910,
     +     .61558,    .25706,    .47110,    .02397,   -.00426,
     +     .00000,    .01383,    .03713,
     +     .60581,    .25099,    .44481,    .02360,   -.00351,
     +     .00000,    .01381,    .03578,
     +     .59530,    .24469,    .41803,    .02323,   -.00264,
     +     .00000,    .01374,    .03440,
     +     .58605,    .23922,    .39591,    .02280,   -.00206,
     +     .00000,    .01366,    .03327,
     +     .57694,    .23408,    .37550,    .02242,   -.00154,
     +     .00000,    .01355,    .03220,
     +     .56717,    .22872,    .35499,    .02202,   -.00104,
     +     .00000,    .01342,    .03108 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
     +     .55861,    .22406,    .33780,    .02165,   -.00065,
     +     .00000,    .01327,    .03015,
     +     .55033,    .21965,    .32201,    .02127,   -.00032,
     +     .00000,    .01313,    .02926,
     +     .54372,    .21620,    .30995,    .02095,   -.00008,
     +     .00000,    .01299,    .02861,
     +     .52967,    .20898,    .28556,    .02027,    .00039,
     +     .00000,    .01269,    .02723,
     +     .51757,    .20293,    .26877,    .01972,    .00073,
     +    -.00142,    .01241,    .02610,
     +     .50415,    .19638,    .24744,    .01913,    .00105,
     +    -.00092,    .01208,    .02488,
     +     .49040,    .18975,    .22712,    .01847,    .00133,
     +    -.00053,    .01175,    .02366,
     +     .47799,    .18381,    .21018,    .01787,    .00155,
     +    -.00022,    .01143,    .02260 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
     +     .46566,    .17805,    .19450,    .01726,    .00171,
     +     .00004,    .01108,    .02158,
     +     .45560,    .17342,    .18249,    .01677,    .00184,
     +     .00024,    .01080,    .02078,
     +     .44354,    .16790,    .16895,    .01620,    .00196,
     +     .00044,    .01047,    .01983,
     +     .43303,    .16317,    .15791,    .01568,    .00203,
     +     .00058,    .01015,    .01905,
     +     .42362,    .15896,    .14852,    .01521,    .00210,
     +     .00071,    .00986,    .01836,
     +     .41183,    .15372,    .13750,    .01464,    .00216,
     +     .00084,    .00953,    .01747,
     +     .40093,    .14896,    .12800,    .01413,    .00220,
     +     .00095,    .00921,    .01671,
     +     .39099,    .14466,    .11979,    .01366,    .00222,
     +     .00103,    .00892,    .01602 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
     +     .38118,    .14048,    .11218,    .01321,    .00224,
     +     .00110,    .00862,    .01537,
     +     .37184,    .13648,    .10529,    .01275,    .00225,
     +     .00116,    .00834,    .01475,
     +     .36322,    .13279,    .09925,    .01233,    .00224,
     +     .00120,    .00808,    .01420,
     +     .35514,    .12941,    .09390,    .01197,    .00224,
     +     .00123,    .00784,    .01369,
     +     .34718,    .12614,    .08888,    .01164,    .00222,
     +     .00126,    .00760,    .01319,
     +     .33953,    .12296,    .08426,    .01130,    .00221,
     +     .00129,    .00738,    .01272,
     +     .33243,    .12004,    .08013,    .01099,    .00218,
     +     .00129,    .00719,    .01229,
     +     .32580,    .11732,    .07645,    .01070,    .00217,
     +     .00130,    .00699,    .01190 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
     +     .31924,    .11464,    .07295,    .01040,    .00215,
     +     .00132,    .00680,    .01152,
     +     .31288,    .11207,    .06969,    .01013,    .00212,
     +     .00132,    .00663,    .01115,
     +     .30691,    .10966,    .06674,    .00985,    .00211,
     +     .00133,    .00646,    .01082,
     +     .30139,    .10744,    .06408,    .00962,    .00208,
     +     .00133,    .00631,    .01051,
     +     .29584,    .10519,    .06152,    .00937,    .00206,
     +     .00132,    .00615,    .01020 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
     +     .63182,    .25909,    .45099,    .02046,    .00000,
     +     .00000,    .01070,    .03098,
     +     .62137,    .25273,    .42573,    .02023,    .00000,
     +     .00000,    .01076,    .02978,
     +     .60537,    .24347,    .39747,    .01982,   -.00370,
     +     .00000,    .01082,    .02812,
     +     .59350,    .23686,    .37176,    .01946,   -.00306,
     +     .00000,    .01078,    .02701,
     +     .58096,    .23002,    .34599,    .01905,   -.00233,
     +     .00000,    .01070,    .02593,
     +     .56993,    .22426,    .32505,    .01871,   -.00183,
     +     .00000,    .01060,    .02499,
     +     .55931,    .21882,    .30605,    .01833,   -.00141,
     +     .00000,    .01049,    .02411,
     +     .54810,    .21312,    .28710,    .01793,   -.00099,
     +     .00000,    .01037,    .02319 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
     +     .53831,    .20828,    .27143,    .01758,   -.00068,
     +     .00000,    .01022,    .02245,
     +     .52890,    .20368,    .25719,    .01722,   -.00040,
     +     .00000,    .01007,    .02174,
     +     .52147,    .20010,    .24636,    .01696,   -.00021,
     +     .00000,    .00997,    .02118,
     +     .50578,    .19265,    .22478,    .01638,    .00017,
     +     .00000,    .00969,    .02004,
     +     .49251,    .18644,    .20985,    .01585,    .00043,
     +    -.00115,    .00947,    .01912,
     +     .47800,    .17973,    .19149,    .01527,    .00069,
     +    -.00076,    .00918,    .01818,
     +     .46311,    .17301,    .17424,    .01466,    .00090,
     +    -.00045,    .00887,    .01721,
     +     .44980,    .16708,    .16001,    .01415,    .00105,
     +    -.00024,    .00859,    .01639 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
     +     .43667,    .16129,    .14694,    .01361,    .00119,
     +    -.00003,    .00829,    .01560,
     +     .42604,    .15666,    .13700,    .01319,    .00127,
     +     .00012,    .00806,    .01498,
     +     .41333,    .15126,    .12600,    .01269,    .00137,
     +     .00027,    .00777,    .01422,
     +     .40240,    .14654,    .11710,    .01222,    .00143,
     +     .00038,    .00752,    .01363,
     +     .39265,    .14236,    .10958,    .01181,    .00147,
     +     .00047,    .00729,    .01310,
     +     .38043,    .13727,    .10081,    .01135,    .00151,
     +     .00057,    .00701,    .01241,
     +     .36922,    .13265,    .09330,    .01093,    .00153,
     +     .00064,    .00676,    .01182,
     +     .35904,    .12849,    .08688,    .01052,    .00155,
     +     .00070,    .00650,    .01129 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
     +     .34910,    .12441,    .08098,    .01012,    .00156,
     +     .00075,    .00628,    .01080,
     +     .33962,    .12058,    .07567,    .00977,    .00157,
     +     .00079,    .00606,    .01033,
     +     .33087,    .11708,    .07103,    .00945,    .00156,
     +     .00082,    .00585,    .00989,
     +     .32279,    .11384,    .06697,    .00914,    .00156,
     +     .00085,    .00567,    .00949,
     +     .31490,    .11067,    .06317,    .00883,    .00155,
     +     .00087,    .00549,    .00913,
     +     .30727,    .10766,    .05970,    .00855,    .00153,
     +     .00088,    .00531,    .00878,
     +     .30021,    .10487,    .05663,    .00828,    .00152,
     +     .00089,    .00515,    .00848,
     +     .29366,    .10230,    .05388,    .00803,    .00150,
     +     .00090,    .00501,    .00818 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
     +     .28719,    .09979,    .05127,    .00779,    .00148,
     +     .00090,    .00485,    .00790,
     +     .28095,    .09737,    .04885,    .00756,    .00146,
     +     .00090,    .00472,    .00763,
     +     .27506,    .09510,    .04669,    .00736,    .00144,
     +     .00090,    .00459,    .00739,
     +     .26961,    .09302,    .04474,    .00717,    .00143,
     +     .00090,    .00448,    .00716,
     +     .26419,    .09093,    .04288,    .00697,    .00141,
     +     .00090,    .00435,    .00695 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
     +     .62077,    .24566,    .38037,    .01725,    .00000,
     +     .00000,    .00808,    .02288,
     +     .60811,    .23875,    .35558,    .01696,    .00000,
     +     .00000,    .00816,    .02199,
     +     .58929,    .22874,    .32759,    .01647,   -.00314,
     +     .00000,    .00820,    .02075,
     +     .57552,    .22173,    .30344,    .01609,   -.00260,
     +     .00000,    .00819,    .01988,
     +     .56110,    .21458,    .27961,    .01572,   -.00199,
     +     .00000,    .00814,    .01900,
     +     .54864,    .20854,    .26051,    .01539,   -.00158,
     +     .00000,    .00808,    .01824,
     +     .53678,    .20285,    .24338,    .01501,   -.00123,
     +     .00000,    .00798,    .01758,
     +     .52436,    .19699,    .22649,    .01461,   -.00090,
     +     .00000,    .00786,    .01688 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
     +     .51357,    .19196,    .21273,    .01427,   -.00065,
     +     .00000,    .00777,    .01628,
     +     .50332,    .18724,    .20030,    .01394,   -.00042,
     +     .00000,    .00764,    .01572,
     +     .49524,    .18357,    .19095,    .01366,   -.00027,
     +     .00000,    .00753,    .01531,
     +     .47831,    .17600,    .17248,    .01313,    .00002,
     +     .00000,    .00728,    .01446,
     +     .46412,    .16977,    .15969,    .01267,    .00023,
     +    -.00092,    .00706,    .01376,
     +     .44873,    .16308,    .14438,    .01212,    .00043,
     +    -.00062,    .00686,    .01302,
     +     .43306,    .15642,    .13011,    .01160,    .00059,
     +    -.00039,    .00660,    .01227,
     +     .41914,    .15057,    .11856,    .01114,    .00071,
     +    -.00021,    .00636,    .01162 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
     +     .40548,    .14489,    .10808,    .01069,    .00080,
     +    -.00007,    .00612,    .01103,
     +     .39449,    .14036,    .10018,    .01032,    .00087,
     +     .00004,    .00591,    .01057,
     +     .38158,    .13503,    .09143,    .00988,    .00094,
     +     .00016,    .00568,    .00999,
     +     .37038,    .13050,    .08446,    .00949,    .00099,
     +     .00025,    .00549,    .00952,
     +     .36041,    .12650,    .07862,    .00914,    .00102,
     +     .00031,    .00532,    .00912,
     +     .34810,    .12159,    .07187,    .00871,    .00104,
     +     .00038,    .00508,    .00865,
     +     .33686,    .11715,    .06617,    .00834,    .00106,
     +     .00043,    .00488,    .00820,
     +     .32667,    .11316,    .06128,    .00803,    .00107,
     +     .00048,    .00470,    .00779 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
     +     .31672,    .10930,    .05686,    .00773,    .00108,
     +     .00052,    .00451,    .00742,
     +     .30730,    .10565,    .05288,    .00742,    .00108,
     +     .00054,    .00435,    .00707,
     +     .29870,    .10232,    .04944,    .00712,    .00108,
     +     .00056,    .00420,    .00677,
     +     .29073,    .09928,    .04646,    .00687,    .00107,
     +     .00058,    .00405,    .00649,
     +     .28295,    .09633,    .04369,    .00663,    .00106,
     +     .00059,    .00390,    .00622,
     +     .27548,    .09351,    .04114,    .00642,    .00105,
     +     .00060,    .00377,    .00598,
     +     .26858,    .09091,    .03889,    .00622,    .00103,
     +     .00060,    .00365,    .00575,
     +     .26221,    .08851,    .03692,    .00601,    .00102,
     +     .00061,    .00353,    .00554 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
     +     .25595,    .08616,    .03505,    .00581,    .00101,
     +     .00061,    .00343,    .00535,
     +     .24990,    .08391,    .03334,    .00561,    .00100,
     +     .00061,    .00332,    .00515,
     +     .24422,    .08182,    .03179,    .00545,    .00099,
     +     .00062,    .00322,    .00499,
     +     .23899,    .07989,    .03041,    .00531,    .00097,
     +     .00061,    .00312,    .00484,
     +     .23380,    .07797,    .02910,    .00514,    .00096,
     +     .00061,    .00304,    .00467 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
     +     .60425,    .23066,    .31121,    .01431,    .00000,
     +     .00000,    .00606,    .01656,
     +     .58959,    .22337,    .28801,    .01404,    .00000,
     +     .00000,    .00614,    .01587,
     +     .56817,    .21286,    .26184,    .01355,   -.00261,
     +     .00000,    .00618,    .01494,
     +     .55277,    .20557,    .24007,    .01320,   -.00215,
     +     .00000,    .00620,    .01429,
     +     .53681,    .19824,    .21898,    .01282,   -.00166,
     +     .00000,    .00616,    .01361,
     +     .52320,    .19207,    .20227,    .01246,   -.00133,
     +     .00000,    .00607,    .01307,
     +     .51027,    .18628,    .18745,    .01215,   -.00105,
     +     .00000,    .00601,    .01254,
     +     .49680,    .18033,    .17298,    .01181,   -.00078,
     +     .00000,    .00592,    .01201 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
     +     .48527,    .17529,    .16129,    .01146,   -.00058,
     +     .00000,    .00582,    .01159,
     +     .47434,    .17058,    .15085,    .01113,   -.00040,
     +     .00000,    .00571,    .01118,
     +     .46580,    .16692,    .14308,    .01090,   -.00029,
     +     .00000,    .00563,    .01085,
     +     .44797,    .15940,    .12792,    .01041,   -.00005,
     +     .00000,    .00542,    .01020,
     +     .43311,    .15327,    .11742,    .01001,    .00010,
     +    -.00072,    .00525,    .00967,
     +     .41711,    .14671,    .10507,    .00957,    .00026,
     +    -.00049,    .00507,    .00910,
     +     .40102,    .14015,    .09381,    .00908,    .00037,
     +    -.00032,    .00486,    .00856,
     +     .38681,    .13446,    .08475,    .00869,    .00047,
     +    -.00018,    .00465,    .00810 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
     +     .37299,    .12898,    .07658,    .00830,    .00054,
     +    -.00007,    .00447,    .00765,
     +     .36191,    .12461,    .07049,    .00795,    .00059,
     +     .00001,    .00432,    .00730,
     +     .34883,    .11954,    .06391,    .00756,    .00063,
     +     .00009,    .00412,    .00688,
     +     .33762,    .11520,    .05862,    .00725,    .00067,
     +     .00015,    .00398,    .00653,
     +     .32771,    .11138,    .05425,    .00698,    .00069,
     +     .00020,    .00384,    .00624,
     +     .31549,    .10669,    .04924,    .00664,    .00072,
     +     .00025,    .00367,    .00590,
     +     .30439,    .10251,    .04505,    .00633,    .00072,
     +     .00029,    .00350,    .00559,
     +     .29438,    .09876,    .04151,    .00607,    .00073,
     +     .00032,    .00334,    .00531 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
     +     .28464,    .09514,    .03832,    .00580,    .00074,
     +     .00035,    .00321,    .00504,
     +     .27546,    .09174,    .03549,    .00556,    .00073,
     +     .00036,    .00307,    .00479,
     +     .26707,    .08865,    .03303,    .00533,    .00073,
     +     .00038,    .00295,    .00456,
     +     .25936,    .08583,    .03093,    .00514,    .00072,
     +     .00039,    .00285,    .00437,
     +     .25186,    .08309,    .02895,    .00494,    .00072,
     +     .00040,    .00274,    .00421,
     +     .24467,    .08048,    .02722,    .00475,    .00071,
     +     .00040,    .00263,    .00403,
     +     .23806,    .07810,    .02567,    .00457,    .00070,
     +     .00041,    .00255,    .00386,
     +     .23194,    .07590,    .02430,    .00442,    .00070,
     +     .00042,    .00247,    .00370 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
     +     .22594,    .07376,    .02303,    .00429,    .00068,
     +     .00041,    .00238,    .00356,
     +     .22019,    .07170,    .02185,    .00415,    .00068,
     +     .00042,    .00231,    .00341,
     +     .21481,    .06979,    .02080,    .00401,    .00066,
     +     .00041,    .00223,    .00329,
     +     .20987,    .06803,    .01986,    .00390,    .00066,
     +     .00041,    .00217,    .00316,
     +     .20494,    .06630,    .01897,    .00379,    .00064,
     +     .00041,    .00210,    .00307 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
     +     .58272,    .21442,    .24509,    .01156,    .00000,
     +     .00000,    .00460,    .01180,
     +     .56638,    .20687,    .22450,    .01128,    .00000,
     +     .00000,    .00467,    .01131,
     +     .54261,    .19622,    .20116,    .01090,   -.00210,
     +     .00000,    .00471,    .01059,
     +     .52589,    .18885,    .18245,    .01056,   -.00173,
     +     .00000,    .00468,    .01011,
     +     .50876,    .18143,    .16462,    .01017,   -.00135,
     +     .00000,    .00462,    .00962,
     +     .49416,    .17524,    .15061,    .00990,   -.00109,
     +     .00000,    .00456,    .00922,
     +     .48041,    .16948,    .13839,    .00962,   -.00086,
     +     .00000,    .00448,    .00882,
     +     .46621,    .16361,    .12653,    .00932,   -.00065,
     +     .00000,    .00439,    .00841 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
     +     .45410,    .15864,    .11710,    .00902,   -.00050,
     +     .00000,    .00432,    .00807,
     +     .44273,    .15398,    .10866,    .00875,   -.00036,
     +     .00000,    .00426,    .00778,
     +     .43389,    .15036,    .10250,    .00853,   -.00027,
     +     .00000,    .00417,    .00754,
     +     .41551,    .14300,    .09056,    .00811,   -.00010,
     +     .00000,    .00400,    .00708,
     +     .40038,    .13704,    .08234,    .00774,    .00002,
     +    -.00055,    .00386,    .00668,
     +     .38419,    .13070,    .07289,    .00732,    .00014,
     +    -.00038,    .00371,    .00625,
     +     .36787,    .12441,    .06432,    .00695,    .00023,
     +    -.00025,    .00354,    .00588,
     +     .35366,    .11898,    .05751,    .00659,    .00030,
     +    -.00015,    .00340,    .00553 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
     +     .33984,    .11375,    .05148,    .00625,    .00035,
     +    -.00007,    .00324,    .00522,
     +     .32881,    .10961,    .04704,    .00600,    .00038,
     +    -.00002,    .00310,    .00497,
     +     .31587,    .10481,    .04220,    .00570,    .00042,
     +     .00005,    .00298,    .00467,
     +     .30487,    .10072,    .03845,    .00543,    .00044,
     +     .00009,    .00286,    .00441,
     +     .29518,    .09715,    .03534,    .00520,    .00046,
     +     .00012,    .00275,    .00419,
     +     .28321,    .09281,    .03185,    .00495,    .00048,
     +     .00016,    .00260,    .00394,
     +     .27245,    .08891,    .02891,    .00469,    .00048,
     +     .00019,    .00249,    .00373,
     +     .26278,    .08542,    .02647,    .00446,    .00049,
     +     .00021,    .00239,    .00355 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
     +     .25338,    .08208,    .02430,    .00427,    .00049,
     +     .00023,    .00226,    .00336,
     +     .24457,    .07895,    .02239,    .00407,    .00049,
     +     .00024,    .00217,    .00317,
     +     .23659,    .07610,    .02076,    .00387,    .00049,
     +     .00026,    .00209,    .00302,
     +     .22923,    .07351,    .01934,    .00372,    .00048,
     +     .00026,    .00201,    .00289,
     +     .22211,    .07100,    .01805,    .00358,    .00048,
     +     .00026,    .00193,    .00276,
     +     .21529,    .06864,    .01690,    .00344,    .00048,
     +     .00027,    .00185,    .00264,
     +     .20903,    .06647,    .01590,    .00330,    .00047,
     +     .00028,    .00177,    .00254,
     +     .20327,    .06448,    .01503,    .00318,    .00046,
     +     .00027,    .00170,    .00244 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
     +     .19765,    .06254,    .01421,    .00306,    .00046,
     +     .00028,    .00165,    .00232,
     +     .19226,    .06068,    .01345,    .00295,    .00045,
     +     .00028,    .00160,    .00223,
     +     .18723,    .05897,    .01279,    .00285,    .00044,
     +     .00027,    .00154,    .00215,
     +     .18261,    .05739,    .01221,    .00276,    .00044,
     +     .00028,    .00149,    .00207,
     +     .17801,    .05584,    .01165,    .00268,    .00043,
     +     .00027,    .00144,    .00200 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
     +     .55646,    .19809,    .18365,    .00957,    .00000,
     +     .00000,    .00331,    .00793,
     +     .53870,    .19039,    .16625,    .00930,    .00000,
     +     .00000,    .00337,    .00764,
     +     .51331,    .17958,    .14673,    .00884,   -.00166,
     +     .00000,    .00339,    .00717,
     +     .49555,    .17219,    .13136,    .00852,   -.00136,
     +     .00000,    .00341,    .00684,
     +     .47748,    .16479,    .11698,    .00819,   -.00107,
     +     .00000,    .00337,    .00653,
     +     .46230,    .15865,    .10587,    .00789,   -.00087,
     +     .00000,    .00333,    .00622,
     +     .44814,    .15298,    .09622,    .00757,   -.00069,
     +     .00000,    .00328,    .00597,
     +     .43353,    .14722,    .08701,    .00725,   -.00053,
     +     .00000,    .00321,    .00574 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
     +     .42110,    .14235,    .07977,    .00702,   -.00041,
     +     .00000,    .00313,    .00550,
     +     .40943,    .13784,    .07342,    .00679,   -.00030,
     +     .00000,    .00305,    .00527,
     +     .40040,    .13436,    .06877,    .00663,   -.00024,
     +     .00000,    .00298,    .00510,
     +     .38185,    .12730,    .05983,    .00624,   -.00011,
     +     .00000,    .00287,    .00472,
     +     .36664,    .12159,    .05382,    .00594,   -.00002,
     +    -.00041,    .00277,    .00445,
     +     .35041,    .11552,    .04693,    .00562,    .00006,
     +    -.00029,    .00264,    .00419,
     +     .33431,    .10958,    .04080,    .00528,    .00013,
     +    -.00019,    .00254,    .00387,
     +     .32030,    .10443,    .03600,    .00497,    .00019,
     +    -.00012,    .00239,    .00369 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
     +     .30676,    .09949,    .03179,    .00470,    .00022,
     +    -.00007,    .00229,    .00347,
     +     .29599,    .09561,    .02871,    .00450,    .00025,
     +    -.00002,    .00221,    .00328,
     +     .28343,    .09113,    .02545,    .00426,    .00027,
     +     .00002,    .00210,    .00307,
     +     .27273,    .08737,    .02295,    .00406,    .00029,
     +     .00005,    .00200,    .00290,
     +     .26331,    .08407,    .02092,    .00388,    .00030,
     +     .00008,    .00192,    .00277,
     +     .25191,    .08006,    .01862,    .00364,    .00032,
     +     .00011,    .00182,    .00260,
     +     .24160,    .07647,    .01677,    .00345,    .00032,
     +     .00012,    .00172,    .00243,
     +     .23235,    .07329,    .01525,    .00328,    .00032,
     +     .00013,    .00163,    .00229 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
     +     .22344,    .07025,    .01389,    .00313,    .00033,
     +     .00015,    .00157,    .00215,
     +     .21510,    .06740,    .01270,    .00298,    .00032,
     +     .00015,    .00149,    .00205,
     +     .20752,    .06480,    .01172,    .00286,    .00032,
     +     .00016,    .00142,    .00196,
     +     .20062,    .06246,    .01088,    .00274,    .00032,
     +     .00017,    .00135,    .00187,
     +     .19397,    .06020,    .01011,    .00260,    .00031,
     +     .00017,    .00130,    .00178,
     +     .18765,    .05807,    .00942,    .00248,    .00031,
     +     .00018,    .00125,    .00170,
     +     .18188,    .05612,    .00883,    .00237,    .00030,
     +     .00018,    .00121,    .00161,
     +     .17653,    .05434,    .00832,    .00228,    .00031,
     +     .00018,    .00116,    .00155 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
     +     .17130,    .05261,    .00785,    .00219,    .00030,
     +     .00018,    .00112,    .00149,
     +     .16631,    .05096,    .00743,    .00210,    .00029,
     +     .00018,    .00108,    .00142,
     +     .16167,    .04944,    .00705,    .00203,    .00029,
     +     .00019,    .00103,    .00137,
     +     .15742,    .04805,    .00670,    .00197,    .00029,
     +     .00018,    .00101,    .00132,
     +     .15319,    .04667,    .00640,    .00191,    .00028,
     +     .00018,    .00098,    .00126 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
     +     .52647,    .18115,    .12797,    .00773,    .00000,
     +     .00000,    .00236,    .00529,
     +     .50773,    .17349,    .11416,    .00747,    .00000,
     +     .00000,    .00242,    .00503,
     +     .48104,    .16287,    .09889,    .00705,   -.00127,
     +     .00000,    .00243,    .00475,
     +     .46259,    .15563,    .08713,    .00675,   -.00105,
     +     .00000,    .00240,    .00454,
     +     .44402,    .14840,    .07616,    .00647,   -.00082,
     +     .00000,    .00239,    .00430,
     +     .42843,    .14245,    .06789,    .00621,   -.00067,
     +     .00000,    .00237,    .00411,
     +     .41398,    .13693,    .06084,    .00598,   -.00054,
     +     .00000,    .00232,    .00391,
     +     .39919,    .13133,    .05418,    .00573,   -.00042,
     +     .00000,    .00224,    .00373 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
     +     .38670,    .12669,    .04896,    .00552,   -.00033,
     +     .00000,    .00218,    .00358,
     +     .37507,    .12237,    .04448,    .00529,   -.00025,
     +     .00000,    .00212,    .00343,
     +     .36609,    .11907,    .04121,    .00511,   -.00020,
     +     .00000,    .00209,    .00332,
     +     .34762,    .11236,    .03504,    .00482,   -.00010,
     +     .00000,    .00200,    .00307,
     +     .33260,    .10695,    .03099,    .00457,   -.00004,
     +    -.00031,    .00191,    .00290,
     +     .31668,    .10127,    .02634,    .00429,    .00002,
     +    -.00022,    .00182,    .00272,
     +     .30092,    .09571,    .02229,    .00406,    .00008,
     +    -.00014,    .00173,    .00250,
     +     .28731,    .09092,    .01921,    .00381,    .00011,
     +    -.00010,    .00164,    .00236 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
     +     .27423,    .08637,    .01658,    .00359,    .00014,
     +    -.00005,    .00155,    .00221,
     +     .26385,    .08278,    .01470,    .00342,    .00016,
     +    -.00002,    .00148,    .00209,
     +     .25181,    .07866,    .01274,    .00320,    .00017,
     +     .00001,    .00139,    .00194,
     +     .24164,    .07518,    .01126,    .00304,    .00019,
     +     .00003,    .00133,    .00184,
     +     .23275,    .07216,    .01006,    .00288,    .00020,
     +     .00005,    .00128,    .00176,
     +     .22189,    .06848,    .00878,    .00272,    .00020,
     +     .00006,    .00120,    .00165,
     +     .21219,    .06524,    .00775,    .00257,    .00020,
     +     .00007,    .00114,    .00156,
     +     .20355,    .06236,    .00691,    .00244,    .00021,
     +     .00009,    .00108,    .00146 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
     +     .19524,    .05960,    .00622,    .00230,    .00021,
     +     .00010,    .00103,    .00138,
     +     .18746,    .05705,    .00561,    .00219,    .00021,
     +     .00011,    .00097,    .00131,
     +     .18043,    .05474,    .00510,    .00208,    .00021,
     +     .00011,    .00093,    .00124,
     +     .17403,    .05266,    .00468,    .00199,    .00021,
     +     .00012,    .00089,    .00117,
     +     .16785,    .05066,    .00433,    .00191,    .00021,
     +     .00011,    .00084,    .00110,
     +     .16202,    .04876,    .00400,    .00182,    .00020,
     +     .00011,    .00081,    .00105,
     +     .15668,    .04702,    .00374,    .00174,    .00020,
     +     .00012,    .00079,    .00100,
     +     .15179,    .04544,    .00352,    .00165,    .00020,
     +     .00012,    .00076,    .00096 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
     +     .14703,    .04393,    .00331,    .00159,    .00019,
     +     .00012,    .00074,    .00091,
     +     .14247,    .04247,    .00313,    .00153,    .00019,
     +     .00011,    .00070,    .00087,
     +     .13824,    .04111,    .00298,    .00147,    .00019,
     +     .00012,    .00067,    .00083,
     +     .13436,    .03988,    .00284,    .00143,    .00019,
     +     .00012,    .00065,    .00080,
     +     .13054,    .03868,    .00271,    .00138,    .00018,
     +     .00012,    .00061,    .00078 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
     +     .49323,    .16398,    .07933,    .00597,    .00000,
     +     .00000,    .00180,    .00344,
     +     .47375,    .15649,    .06921,    .00572,    .00000,
     +     .00000,    .00179,    .00334,
     +     .44638,    .14614,    .05828,    .00540,   -.00095,
     +     .00000,    .00180,    .00308,
     +     .42758,    .13915,    .04992,    .00518,   -.00079,
     +     .00000,    .00179,    .00290,
     +     .40873,    .13219,    .04235,    .00494,   -.00062,
     +     .00000,    .00173,    .00275,
     +     .39321,    .12646,    .03668,    .00469,   -.00050,
     +     .00000,    .00169,    .00266,
     +     .37876,    .12123,    .03197,    .00448,   -.00041,
     +     .00000,    .00163,    .00255,
     +     .36401,    .11595,    .02760,    .00428,   -.00032,
     +     .00000,    .00160,    .00241 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
     +     .35165,    .11152,    .02425,    .00410,   -.00026,
     +     .00000,    .00157,    .00231,
     +     .34012,    .10743,    .02140,    .00394,   -.00020,
     +     .00000,    .00154,    .00223,
     +     .33122,    .10430,    .01937,    .00384,   -.00016,
     +     .00000,    .00150,    .00217,
     +     .31318,    .09802,    .01567,    .00353,   -.00009,
     +     .00000,    .00143,    .00202,
     +     .29863,    .09299,    .01335,    .00331,   -.00004,
     +    -.00021,    .00134,    .00187,
     +     .28321,    .08773,    .01063,    .00311,    .00000,
     +    -.00016,    .00127,    .00174,
     +     .26809,    .08259,    .00831,    .00289,    .00004,
     +    -.00010,    .00122,    .00163,
     +     .25501,    .07822,    .00666,    .00273,    .00006,
     +    -.00007,    .00114,    .00152 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
     +     .24256,    .07406,    .00528,    .00257,    .00008,
     +    -.00004,    .00108,    .00141,
     +     .23278,    .07077,    .00435,    .00242,    .00009,
     +    -.00003,    .00103,    .00134,
     +     .22150,    .06703,    .00340,    .00223,    .00011,
     +     .00000,    .00096,    .00125,
     +     .21192,    .06388,    .00274,    .00211,    .00012,
     +     .00001,    .00092,    .00118,
     +     .20356,    .06115,    .00223,    .00200,    .00012,
     +     .00003,    .00087,    .00112,
     +     .19345,    .05789,    .00171,    .00187,    .00013,
     +     .00004,    .00082,    .00103,
     +     .18442,    .05497,    .00134,    .00176,    .00013,
     +     .00005,    .00079,    .00096,
     +     .17637,    .05240,    .00102,    .00168,    .00013,
     +     .00005,    .00076,    .00092 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
     +     .16871,    .04996,    .00079,    .00159,    .00014,
     +     .00006,    .00072,    .00087,
     +     .16156,    .04770,    .00063,    .00150,    .00013,
     +     .00006,    .00068,    .00082,
     +     .15512,    .04564,    .00053,    .00141,    .00014,
     +     .00007,    .00064,    .00077,
     +     .14927,    .04380,    .00043,    .00136,    .00013,
     +     .00007,    .00060,    .00073,
     +     .14365,    .04205,    .00036,    .00128,    .00013,
     +     .00007,    .00057,    .00069,
     +     .13832,    .04038,    .00030,    .00122,    .00013,
     +     .00008,    .00055,    .00066,
     +     .13347,    .03887,    .00026,    .00117,    .00013,
     +     .00008,    .00053,    .00064,
     +     .12906,    .03749,    .00022,    .00112,    .00013,
     +     .00008,    .00052,    .00062 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
     +     .12475,    .03617,    .00020,    .00108,    .00012,
     +     .00008,    .00050,    .00058,
     +     .12066,    .03491,    .00020,    .00103,    .00012,
     +     .00007,    .00049,    .00054,
     +     .11689,    .03375,    .00021,    .00098,    .00012,
     +     .00007,    .00045,    .00052,
     +     .11343,    .03269,    .00023,    .00093,    .00012,
     +     .00008,    .00044,    .00050,
     +     .11003,    .03164,    .00023,    .00092,    .00012,
     +     .00008,    .00041,    .00048 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
     +     .45767,    .14708,    .03834,    .00450,    .00000,
     +     .00000,    .00128,    .00218,
     +     .43786,    .13979,    .03178,    .00423,    .00000,
     +     .00000,    .00132,    .00212,
     +     .41019,    .12974,    .02507,    .00392,   -.00070,
     +     .00000,    .00130,    .00203,
     +     .39134,    .12307,    .01988,    .00373,   -.00058,
     +     .00000,    .00128,    .00194,
     +     .37261,    .11648,    .01535,    .00353,   -.00045,
     +     .00000,    .00126,    .00180,
     +     .35715,    .11109,    .01201,    .00332,   -.00037,
     +     .00000,    .00128,    .00173,
     +     .34295,    .10616,    .00935,    .00314,   -.00030,
     +     .00000,    .00125,    .00167,
     +     .32851,    .10119,    .00698,    .00298,   -.00024,
     +     .00000,    .00120,    .00162 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
     +     .31642,    .09706,    .00530,    .00285,   -.00019,
     +     .00000,    .00117,    .00152,
     +     .30522,    .09327,    .00391,    .00272,   -.00015,
     +     .00000,    .00114,    .00145,
     +     .29664,    .09039,    .00295,    .00261,   -.00013,
     +     .00000,    .00109,    .00141,
     +     .27923,    .08456,    .00125,    .00244,   -.00007,
     +     .00000,    .00103,    .00132,
     +     .26527,    .07993,    .00029,    .00227,   -.00005,
     +    -.00016,    .00100,    .00125,
     +     .25068,    .07509,   -.00090,    .00206,   -.00001,
     +    -.00011,    .00097,    .00118,
     +     .23632,    .07044,   -.00172,    .00191,    .00001,
     +    -.00008,    .00088,    .00107,
     +     .22401,    .06648,   -.00227,    .00183,    .00003,
     +    -.00006,    .00084,    .00096 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
     +     .21230,    .06273,   -.00269,    .00172,    .00005,
     +    -.00003,    .00080,    .00091,
     +     .20311,    .05979,   -.00289,    .00163,    .00006,
     +    -.00001,    .00075,    .00087,
     +     .19254,    .05643,   -.00305,    .00150,    .00007,
     +     .00000,    .00070,    .00083,
     +     .18367,    .05364,   -.00310,    .00142,    .00007,
     +     .00000,    .00067,    .00078,
     +     .17597,    .05121,   -.00311,    .00134,    .00007,
     +     .00001,    .00065,    .00074,
     +     .16667,    .04832,   -.00305,    .00124,    .00008,
     +     .00003,    .00060,    .00069,
     +     .15839,    .04576,   -.00296,    .00117,    .00008,
     +     .00003,    .00057,    .00063,
     +     .15106,    .04351,   -.00282,    .00110,    .00008,
     +     .00004,    .00053,    .00058 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
     +     .14413,    .04135,   -.00270,    .00102,    .00008,
     +     .00004,    .00049,    .00056,
     +     .13768,    .03936,   -.00258,    .00095,    .00008,
     +     .00004,    .00047,    .00054,
     +     .13186,    .03758,   -.00245,    .00090,    .00009,
     +     .00005,    .00045,    .00051,
     +     .12658,    .03598,   -.00229,    .00085,    .00008,
     +     .00005,    .00042,    .00048,
     +     .12152,    .03447,   -.00218,    .00082,    .00008,
     +     .00005,    .00042,    .00045,
     +     .11675,    .03304,   -.00205,    .00078,    .00008,
     +     .00004,    .00039,    .00042,
     +     .11243,    .03174,   -.00191,    .00074,    .00008,
     +     .00004,    .00037,    .00039,
     +     .10848,    .03056,   -.00179,    .00071,    .00008,
     +     .00005,    .00035,    .00037 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
     +     .10467,    .02941,   -.00168,    .00066,    .00008,
     +     .00005,    .00033,    .00037,
     +     .10104,    .02833,   -.00157,    .00062,    .00008,
     +     .00005,    .00032,    .00036,
     +     .09768,    .02734,   -.00149,    .00061,    .00008,
     +     .00005,    .00031,    .00033,
     +     .09462,    .02643,   -.00139,    .00060,    .00007,
     +     .00005,    .00031,    .00031,
     +     .09163,    .02554,   -.00131,    .00057,    .00007,
     +     .00005,    .00030,    .00031 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
     +     .42048,    .13112,    .00449,    .00372,    .00000,
     +     .00000,    .00076,    .00116,
     +     .40065,    .12416,    .00118,    .00350,    .00000,
     +     .00000,    .00074,    .00119,
     +     .37325,    .11464,   -.00164,    .00319,   -.00050,
     +     .00000,    .00077,    .00113,
     +     .35475,    .10831,   -.00403,    .00301,   -.00041,
     +     .00000,    .00079,    .00107,
     +     .33642,    .10215,   -.00599,    .00282,   -.00033,
     +     .00000,    .00079,    .00103,
     +     .32139,    .09708,   -.00718,    .00265,   -.00027,
     +     .00000,    .00076,    .00097,
     +     .30758,    .09246,   -.00805,    .00252,   -.00022,
     +     .00000,    .00073,    .00093,
     +     .29364,    .08786,   -.00872,    .00237,   -.00017,
     +     .00000,    .00070,    .00091 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
     +     .28206,    .08407,   -.00911,    .00224,   -.00014,
     +     .00000,    .00070,    .00087,
     +     .27136,    .08060,   -.00936,    .00214,   -.00011,
     +     .00000,    .00068,    .00082,
     +     .26318,    .07796,   -.00944,    .00206,   -.00009,
     +     .00000,    .00067,    .00077,
     +     .24667,    .07265,   -.00947,    .00191,   -.00005,
     +     .00000,    .00062,    .00071,
     +     .23351,    .06845,   -.00928,    .00176,   -.00003,
     +    -.00010,    .00057,    .00069,
     +     .21977,    .06408,   -.00919,    .00163,   -.00002,
     +    -.00008,    .00053,    .00062,
     +     .20639,    .05987,   -.00899,    .00150,    .00000,
     +    -.00006,    .00052,    .00059,
     +     .19496,    .05628,   -.00869,    .00140,    .00001,
     +    -.00004,    .00050,    .00056 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
     +     .18414,    .05294,   -.00832,    .00129,    .00002,
     +    -.00003,    .00047,    .00051,
     +     .17570,    .05034,   -.00799,    .00121,    .00003,
     +    -.00001,    .00043,    .00049,
     +     .16603,    .04734,   -.00753,    .00110,    .00004,
     +     .00000,    .00041,    .00045,
     +     .15794,    .04487,   -.00711,    .00103,    .00004,
     +     .00000,    .00037,    .00043,
     +     .15089,    .04275,   -.00676,    .00098,    .00005,
     +     .00001,    .00035,    .00041,
     +     .14241,    .04021,   -.00629,    .00095,    .00005,
     +     .00001,    .00033,    .00036,
     +     .13495,    .03797,   -.00587,    .00087,    .00004,
     +     .00001,    .00032,    .00035,
     +     .12838,    .03598,   -.00547,    .00081,    .00005,
     +     .00002,    .00030,    .00034 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
     +     .12216,    .03411,   -.00510,    .00075,    .00005,
     +     .00002,    .00029,    .00030,
     +     .11635,    .03241,   -.00474,    .00071,    .00005,
     +     .00002,    .00027,    .00028,
     +     .11112,    .03087,   -.00442,    .00068,    .00005,
     +     .00002,    .00025,    .00027,
     +     .10642,    .02950,   -.00413,    .00065,    .00006,
     +     .00003,    .00024,    .00026,
     +     .10195,    .02820,   -.00386,    .00062,    .00005,
     +     .00003,    .00022,    .00025,
     +     .09774,    .02696,   -.00360,    .00059,    .00005,
     +     .00003,    .00021,    .00022,
     +     .09393,    .02584,   -.00337,    .00055,    .00005,
     +     .00003,    .00021,    .00022,
     +     .09045,    .02484,   -.00316,    .00053,    .00005,
     +     .00003,    .00020,    .00020 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
     +     .08709,    .02386,   -.00297,    .00052,    .00005,
     +     .00003,    .00019,    .00018,
     +     .08390,    .02294,   -.00279,    .00049,    .00005,
     +     .00003,    .00017,    .00019,
     +     .08099,    .02210,   -.00261,    .00047,    .00004,
     +     .00003,    .00016,    .00017,
     +     .07832,    .02133,   -.00246,    .00045,    .00004,
     +     .00003,    .00016,    .00018,
     +     .07572,    .02058,   -.00231,    .00042,    .00004,
     +     .00003,    .00015,    .00016 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
     +     .38190,    .11493,   -.02134,    .00253,    .00000,
     +     .00000,    .00061,    .00075,
     +     .36236,    .10843,   -.02180,    .00235,    .00000,
     +     .00000,    .00062,    .00073,
     +     .33559,    .09960,   -.02132,    .00213,   -.00035,
     +     .00000,    .00058,    .00073,
     +     .31770,    .09375,   -.02141,    .00201,   -.00028,
     +     .00000,    .00057,    .00070,
     +     .30004,    .08803,   -.02122,    .00189,   -.00022,
     +     .00000,    .00057,    .00067,
     +     .28563,    .08343,   -.02084,    .00176,   -.00018,
     +     .00000,    .00056,    .00065,
     +     .27246,    .07928,   -.02028,    .00167,   -.00015,
     +     .00000,    .00054,    .00059,
     +     .25922,    .07512,   -.01963,    .00159,   -.00012,
     +     .00000,    .00050,    .00055 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
     +     .24834,    .07168,   -.01899,    .00149,   -.00010,
     +     .00000,    .00049,    .00052,
     +     .23829,    .06851,   -.01831,    .00141,   -.00008,
     +     .00000,    .00047,    .00050,
     +     .23059,    .06610,   -.01775,    .00135,   -.00007,
     +     .00000,    .00045,    .00050,
     +     .21515,    .06134,   -.01657,    .00122,   -.00004,
     +     .00000,    .00042,    .00049,
     +     .20289,    .05759,   -.01551,    .00114,   -.00003,
     +    -.00008,    .00041,    .00043,
     +     .19015,    .05372,   -.01457,    .00111,   -.00001,
     +    -.00005,    .00040,    .00037,
     +     .17787,    .04999,   -.01356,    .00100,    .00000,
     +    -.00003,    .00036,    .00037,
     +     .16738,    .04686,   -.01265,    .00096,    .00000,
     +    -.00003,    .00032,    .00034 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
     +     .15755,    .04392,   -.01173,    .00086,    .00001,
     +    -.00002,    .00030,    .00030,
     +     .14991,    .04165,   -.01100,    .00079,    .00002,
     +    -.00001,    .00029,    .00027,
     +     .14117,    .03905,   -.01017,    .00072,    .00002,
     +    -.00001,    .00025,    .00029,
     +     .13386,    .03691,   -.00947,    .00067,    .00002,
     +     .00000,    .00024,    .00028,
     +     .12756,    .03506,   -.00885,    .00063,    .00003,
     +     .00001,    .00023,    .00025,
     +     .11998,    .03285,   -.00811,    .00061,    .00003,
     +     .00001,    .00022,    .00021,
     +     .11333,    .03093,   -.00746,    .00057,    .00003,
     +     .00001,    .00020,    .00020,
     +     .10749,    .02925,   -.00689,    .00053,    .00002,
     +     .00001,    .00018,    .00019 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
     +     .10194,    .02765,   -.00635,    .00050,    .00003,
     +     .00002,    .00017,    .00018,
     +     .09686,    .02619,   -.00588,    .00047,    .00003,
     +     .00002,    .00018,    .00017,
     +     .09232,    .02488,   -.00547,    .00044,    .00003,
     +     .00002,    .00017,    .00015,
     +     .08821,    .02372,   -.00507,    .00041,    .00003,
     +     .00002,    .00015,    .00014,
     +     .08430,    .02261,   -.00471,    .00039,    .00003,
     +     .00002,    .00014,    .00013,
     +     .08062,    .02158,   -.00438,    .00036,    .00003,
     +     .00002,    .00013,    .00013,
     +     .07729,    .02065,   -.00409,    .00034,    .00003,
     +     .00002,    .00013,    .00012,
     +     .07428,    .01981,   -.00384,    .00033,    .00003,
     +     .00002,    .00012,    .00012 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
     +     .07138,    .01899,   -.00357,    .00030,    .00002,
     +     .00002,    .00011,    .00012,
     +     .06864,    .01822,   -.00335,    .00029,    .00002,
     +     .00001,    .00011,    .00011,
     +     .06611,    .01751,   -.00313,    .00028,    .00002,
     +     .00001,    .00010,    .00011,
     +     .06383,    .01688,   -.00294,    .00027,    .00003,
     +     .00002,    .00010,    .00010,
     +     .06160,    .01625,   -.00277,    .00026,    .00003,
     +     .00002,    .00010,    .00010 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
     +     .34274,    .09961,   -.03994,    .00163,    .00000,
     +     .00000,    .00048,    .00047,
     +     .32387,    .09362,   -.03823,    .00157,    .00000,
     +     .00000,    .00047,    .00048,
     +     .29816,    .08555,   -.03509,    .00144,   -.00023,
     +     .00000,    .00047,    .00042,
     +     .28109,    .08023,   -.03336,    .00131,   -.00019,
     +     .00000,    .00045,    .00042,
     +     .26437,    .07504,   -.03141,    .00120,   -.00015,
     +     .00000,    .00041,    .00041,
     +     .25078,    .07084,   -.02979,    .00113,   -.00012,
     +     .00000,    .00039,    .00040,
     +     .23844,    .06709,   -.02822,    .00107,   -.00010,
     +     .00000,    .00037,    .00040,
     +     .22607,    .06333,   -.02653,    .00099,   -.00008,
     +     .00000,    .00036,    .00039 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
     +     .21590,    .06028,   -.02513,    .00093,   -.00007,
     +     .00000,    .00033,    .00036,
     +     .20656,    .05750,   -.02383,    .00088,   -.00006,
     +     .00000,    .00033,    .00033,
     +     .19945,    .05538,   -.02282,    .00085,   -.00004,
     +     .00000,    .00033,    .00030,
     +     .18524,    .05115,   -.02075,    .00079,   -.00003,
     +     .00000,    .00031,    .00027,
     +     .17406,    .04783,   -.01912,    .00074,   -.00002,
     +    -.00005,    .00028,    .00027,
     +     .16248,    .04444,   -.01760,    .00068,   -.00001,
     +    -.00003,    .00026,    .00028,
     +     .15129,    .04121,   -.01599,    .00064,   -.00001,
     +    -.00003,    .00025,    .00022,
     +     .14193,    .03847,   -.01467,    .00054,    .00000,
     +    -.00002,    .00022,    .00023 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
     +     .13310,    .03592,   -.01342,    .00049,    .00000,
     +    -.00002,    .00019,    .00022,
     +     .12624,    .03396,   -.01247,    .00044,    .00001,
     +    -.00001,    .00018,    .00022,
     +     .11840,    .03175,   -.01140,    .00043,    .00001,
     +     .00000,    .00019,    .00018,
     +     .11195,    .02990,   -.01051,    .00040,    .00001,
     +     .00000,    .00018,    .00016,
     +     .10639,    .02832,   -.00974,    .00037,    .00001,
     +     .00000,    .00017,    .00015,
     +     .09974,    .02647,   -.00887,    .00035,    .00002,
     +     .00001,    .00015,    .00014,
     +     .09390,    .02483,   -.00809,    .00033,    .00002,
     +     .00001,    .00014,    .00013,
     +     .08879,    .02341,   -.00745,    .00032,    .00002,
     +     .00001,    .00014,    .00011 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
     +     .08398,    .02207,   -.00683,    .00029,    .00002,
     +     .00001,    .00013,    .00012,
     +     .07956,    .02084,   -.00627,    .00026,    .00002,
     +     .00001,    .00012,    .00010,
     +     .07559,    .01975,   -.00577,    .00025,    .00001,
     +     .00001,    .00010,    .00010,
     +     .07205,    .01878,   -.00536,    .00025,    .00001,
     +     .00001,    .00010,    .00009,
     +     .06868,    .01786,   -.00497,    .00024,    .00001,
     +     .00001,    .00010,    .00008,
     +     .06553,    .01700,   -.00461,    .00023,    .00001,
     +     .00001,    .00009,    .00008,
     +     .06270,    .01624,   -.00429,    .00020,    .00002,
     +     .00002,    .00009,    .00008,
     +     .06013,    .01554,   -.00400,    .00019,    .00002,
     +     .00002,    .00008,    .00007 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
     +     .05764,    .01487,   -.00374,    .00019,    .00002,
     +     .00002,    .00008,    .00007,
     +     .05531,    .01424,   -.00348,    .00018,    .00002,
     +     .00002,    .00007,    .00005,
     +     .05318,    .01367,   -.00325,    .00017,    .00002,
     +     .00002,    .00007,    .00005,
     +     .05124,    .01315,   -.00306,    .00017,    .00002,
     +     .00001,    .00007,    .00005,
     +     .04936,    .01264,   -.00286,    .00016,    .00002,
     +     .00001,    .00005,    .00005 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
     +     .30432,    .08580,   -.05302,    .00128,    .00000,
     +     .00000,    .00022,    .00022,
     +     .28641,    .08032,   -.04944,    .00117,    .00000,
     +     .00000,    .00021,    .00020,
     +     .26216,    .07290,   -.04424,    .00106,   -.00015,
     +     .00000,    .00021,    .00020,
     +     .24612,    .06809,   -.04108,    .00096,   -.00013,
     +     .00000,    .00020,    .00021,
     +     .23048,    .06345,   -.03806,    .00092,   -.00010,
     +     .00000,    .00021,    .00021,
     +     .21778,    .05971,   -.03543,    .00087,   -.00008,
     +     .00000,    .00019,    .00019,
     +     .20638,    .05637,   -.03308,    .00081,   -.00007,
     +     .00000,    .00018,    .00019,
     +     .19504,    .05307,   -.03074,    .00074,   -.00006,
     +     .00000,    .00019,    .00016 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
     +     .18568,    .05034,   -.02883,    .00072,   -.00005,
     +     .00000,    .00018,    .00016,
     +     .17712,    .04787,   -.02705,    .00067,   -.00004,
     +     .00000,    .00018,    .00016,
     +     .17070,    .04598,   -.02572,    .00064,   -.00003,
     +     .00000,    .00015,    .00016,
     +     .15781,    .04229,   -.02308,    .00058,   -.00002,
     +     .00000,    .00015,    .00015,
     +     .14770,    .03943,   -.02106,    .00054,   -.00001,
     +    -.00003,    .00014,    .00014,
     +     .13732,    .03648,   -.01906,    .00045,   -.00001,
     +    -.00003,    .00013,    .00014,
     +     .12733,    .03368,   -.01722,    .00044,    .00000,
     +    -.00001,    .00013,    .00013,
     +     .11899,    .03133,   -.01565,    .00039,    .00000,
     +    -.00001,    .00012,    .00011 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
     +     .11118,    .02914,   -.01419,    .00036,    .00000,
     +    -.00001,    .00011,    .00010,
     +     .10512,    .02747,   -.01307,    .00034,    .00001,
     +     .00000,    .00009,    .00010,
     +     .09825,    .02559,   -.01184,    .00030,    .00001,
     +     .00000,    .00008,    .00009,
     +     .09259,    .02404,   -.01087,    .00029,    .00001,
     +     .00000,    .00009,    .00009,
     +     .08774,    .02272,   -.01003,    .00029,    .00001,
     +     .00000,    .00007,    .00008,
     +     .08197,    .02114,   -.00904,    .00024,    .00001,
     +     .00000,    .00007,    .00006,
     +     .07695,    .01978,   -.00823,    .00021,    .00001,
     +     .00000,    .00007,    .00007,
     +     .07254,    .01859,   -.00751,    .00019,    .00001,
     +     .00000,    .00005,    .00007 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
     +     .06838,    .01748,   -.00687,    .00021,    .00001,
     +     .00000,    .00005,    .00005,
     +     .06456,    .01647,   -.00628,    .00019,    .00001,
     +     .00000,    .00006,    .00004,
     +     .06119,    .01557,   -.00579,    .00019,    .00001,
     +     .00001,    .00006,    .00004,
     +     .05818,    .01476,   -.00535,    .00018,    .00001,
     +     .00001,    .00006,    .00004,
     +     .05533,    .01400,   -.00494,    .00017,    .00001,
     +     .00001,    .00004,    .00004,
     +     .05268,    .01329,   -.00456,    .00016,    .00001,
     +     .00001,    .00004,    .00003,
     +     .05029,    .01266,   -.00423,    .00014,    .00001,
     +     .00001,    .00004,    .00003,
     +     .04812,    .01210,   -.00396,    .00013,    .00001,
     +     .00001,    .00004,    .00003 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
     +     .04605,    .01155,   -.00369,    .00012,    .00001,
     +     .00001,    .00004,    .00003,
     +     .04411,    .01104,   -.00343,    .00012,    .00001,
     +     .00001,    .00003,    .00003,
     +     .04232,    .01058,   -.00321,    .00012,    .00001,
     +     .00001,    .00003,    .00003,
     +     .04070,    .01016,   -.00302,    .00011,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03913,    .00975,   -.00283,    .00011,    .00001,
     +     .00001,    .00003,    .00003 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
     +     .26624,    .07223,   -.06010,    .00070,    .00000,
     +     .00000,    .00023,    .00022,
     +     .24949,    .06734,   -.05530,    .00065,    .00000,
     +     .00000,    .00024,    .00019,
     +     .22695,    .06088,   -.04874,    .00058,   -.00010,
     +     .00000,    .00021,    .00015,
     +     .21218,    .05663,   -.04471,    .00054,   -.00008,
     +     .00000,    .00020,    .00014,
     +     .19785,    .05254,   -.04083,    .00048,   -.00007,
     +     .00000,    .00020,    .00014,
     +     .18631,    .04929,   -.03769,    .00046,   -.00005,
     +     .00000,    .00016,    .00013,
     +     .17595,    .04637,   -.03490,    .00043,   -.00004,
     +     .00000,    .00017,    .00011,
     +     .16566,    .04349,   -.03215,    .00039,   -.00003,
     +     .00000,    .00017,    .00011 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
     +     .15722,    .04115,   -.02992,    .00037,   -.00003,
     +     .00000,    .00017,    .00010,
     +     .14954,    .03901,   -.02789,    .00035,   -.00002,
     +     .00000,    .00015,    .00010,
     +     .14373,    .03742,   -.02638,    .00034,   -.00002,
     +     .00000,    .00013,    .00010,
     +     .13225,    .03425,   -.02340,    .00030,   -.00002,
     +     .00000,    .00010,    .00010,
     +     .12330,    .03180,   -.02120,    .00027,   -.00001,
     +    -.00002,    .00010,    .00009,
     +     .11410,    .02931,   -.01904,    .00026,   -.00001,
     +    -.00002,    .00010,    .00008,
     +     .10535,    .02694,   -.01702,    .00025,    .00000,
     +    -.00001,    .00010,    .00007,
     +     .09803,    .02496,   -.01534,    .00020,    .00000,
     +    -.00001,    .00008,    .00007 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
     +     .09122,    .02316,   -.01384,    .00019,    .00000,
     +    -.00001,    .00008,    .00005,
     +     .08599,    .02176,   -.01272,    .00019,    .00000,
     +     .00000,    .00008,    .00005,
     +     .08009,    .02019,   -.01145,    .00016,    .00000,
     +     .00000,    .00007,    .00006,
     +     .07523,    .01890,   -.01042,    .00015,    .00000,
     +     .00000,    .00006,    .00006,
     +     .07105,    .01780,   -.00959,    .00015,    .00000,
     +     .00000,    .00006,    .00006,
     +     .06610,    .01651,   -.00862,    .00015,    .00000,
     +     .00000,    .00006,    .00005,
     +     .06181,    .01539,   -.00779,    .00014,    .00001,
     +     .00001,    .00005,    .00005,
     +     .05810,    .01443,   -.00709,    .00012,    .00001,
     +     .00001,    .00005,    .00003 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
     +     .05463,    .01352,   -.00645,    .00011,    .00001,
     +     .00001,    .00005,    .00003,
     +     .05144,    .01270,   -.00588,    .00010,    .00001,
     +     .00001,    .00003,    .00003,
     +     .04861,    .01197,   -.00540,    .00010,    .00001,
     +     .00001,    .00003,    .00003,
     +     .04610,    .01133,   -.00498,    .00009,    .00001,
     +     .00001,    .00003,    .00003,
     +     .04373,    .01072,   -.00457,    .00007,    .00001,
     +     .00001,    .00003,    .00002,
     +     .04152,    .01016,   -.00422,    .00007,    .00001,
     +     .00001,    .00003,    .00002,
     +     .03953,    .00965,   -.00392,    .00007,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03775,    .00920,   -.00363,    .00006,    .00001,
     +     .00001,    .00002,    .00002 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
     +     .03603,    .00876,   -.00337,    .00006,    .00001,
     +     .00001,    .00002,    .00002,
     +     .03443,    .00836,   -.00314,    .00006,    .00001,
     +     .00001,    .00002,    .00002,
     +     .03298,    .00799,   -.00295,    .00006,    .00001,
     +     .00001,    .00002,    .00002,
     +     .03167,    .00766,   -.00275,    .00005,    .00001,
     +     .00001,    .00002,    .00001,
     +     .03038,    .00733,   -.00258,    .00005,    .00001,
     +     .00001,    .00002,    .00002 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
     +     .19488,    .04941,   -.06170,    .00030,    .00000,
     +     .00000,    .00007,    .00004,
     +     .18095,    .04569,   -.05578,    .00026,    .00000,
     +     .00000,    .00007,    .00004,
     +     .16249,    .04076,   -.04816,    .00023,   -.00004,
     +     .00000,    .00006,    .00006,
     +     .15056,    .03761,   -.04348,    .00021,   -.00003,
     +     .00000,    .00006,    .00006,
     +     .13912,    .03459,   -.03898,    .00017,   -.00002,
     +     .00000,    .00004,    .00004,
     +     .13002,    .03220,   -.03555,    .00017,   -.00002,
     +     .00000,    .00005,    .00005,
     +     .12189,    .03008,   -.03250,    .00015,   -.00002,
     +     .00000,    .00005,    .00005,
     +     .11386,    .02800,   -.02957,    .00015,   -.00002,
     +     .00000,    .00005,    .00004 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
     +     .10735,    .02632,   -.02722,    .00014,   -.00001,
     +     .00000,    .00003,    .00004,
     +     .10147,    .02482,   -.02517,    .00015,   -.00001,
     +     .00000,    .00003,    .00004,
     +     .09706,    .02369,   -.02361,    .00013,   -.00001,
     +     .00000,    .00003,    .00003,
     +     .08842,    .02147,   -.02066,    .00011,   -.00001,
     +     .00000,    .00003,    .00003,
     +     .08175,    .01977,   -.01851,    .00009,   -.00001,
     +    -.00001,    .00003,    .00003,
     +     .07500,    .01806,   -.01637,    .00008,   -.00001,
     +    -.00001,    .00002,    .00002,
     +     .06860,    .01645,   -.01447,    .00008,   -.00001,
     +    -.00001,    .00003,    .00003,
     +     .06332,    .01512,   -.01292,    .00007,    .00000,
     +     .00000,    .00003,    .00003 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
     +     .05844,    .01391,   -.01150,    .00004,    .00000,
     +     .00000,    .00003,    .00003,
     +     .05471,    .01298,   -.01046,    .00005,    .00000,
     +     .00000,    .00002,    .00003,
     +     .05056,    .01195,   -.00935,    .00005,    .00000,
     +     .00000,    .00003,    .00003,
     +     .04715,    .01112,   -.00847,    .00005,    .00000,
     +     .00000,    .00003,    .00003,
     +     .04426,    .01041,   -.00772,    .00005,    .00000,
     +     .00000,    .00003,    .00001,
     +     .04088,    .00959,   -.00687,    .00004,    .00000,
     +     .00000,    .00003,    .00001,
     +     .03796,    .00888,   -.00616,    .00004,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03543,    .00826,   -.00557,    .00004,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
     +     .03308,    .00769,   -.00504,    .00004,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03097,    .00717,   -.00456,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02910,    .00673,   -.00416,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02745,    .00634,   -.00382,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02588,    .00597,   -.00349,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02445,    .00562,   -.00321,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02316,    .00532,   -.00296,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02200,    .00504,   -.00274,    .00003,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/
     +     .02091,    .00478,   -.00255,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01988,    .00454,   -.00236,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01896,    .00432,   -.00219,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01813,    .00412,   -.00204,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01733,    .00393,   -.00191,    .00001,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/
     +     .13234,    .03122,   -.05217,    .00009,    .00000,
     +     .00000,    .00003,    .00001,
     +     .12174,    .02861,   -.04663,    .00007,    .00000,
     +     .00000,    .00001,    .00003,
     +     .10783,    .02520,   -.03960,    .00007,   -.00001,
     +     .00000,    .00001,    .00001,
     +     .09895,    .02302,   -.03530,    .00007,   -.00001,
     +     .00000,    .00001,    .00001,
     +     .09053,    .02099,   -.03134,    .00007,   -.00001,
     +     .00000,    .00001,    .00001,
     +     .08389,    .01937,   -.02826,    .00006,   -.00001,
     +     .00000,    .00001,    .00001,
     +     .07802,    .01796,   -.02562,    .00006,   -.00001,
     +     .00000,    .00001,    .00001,
     +     .07232,    .01659,   -.02309,    .00006,   -.00001,
     +     .00000,    .00001,   -.00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
     +     .06774,    .01550,   -.02110,    .00004,    .00000,
     +     .00000,    .00001,    .00000,
     +     .06362,    .01450,   -.01932,    .00002,    .00000,
     +     .00000,    .00001,    .00000,
     +     .06055,    .01378,   -.01807,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .05453,    .01236,   -.01563,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04996,    .01129,   -.01387,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04537,    .01021,   -.01215,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04111,    .00922,   -.01057,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03760,    .00841,   -.00937,    .00001,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
     +     .03438,    .00766,   -.00827,    .00003,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03195,    .00709,   -.00749,    .00003,    .00000,
     +     .00000,    .00001,    .00000,
     +     .02927,    .00648,   -.00662,    .00003,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02709,    .00598,   -.00593,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02527,    .00557,   -.00538,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02315,    .00508,   -.00475,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02132,    .00466,   -.00422,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01976,    .00431,   -.00380,    .00001,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
     +     .01832,    .00398,   -.00341,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01701,    .00370,   -.00307,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01589,    .00345,   -.00278,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01490,    .00322,   -.00253,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01396,    .00301,   -.00231,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01311,    .00282,   -.00211,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01236,    .00266,   -.00194,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01169,    .00251,   -.00178,    .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)/
     +     .01105,    .00237,   -.00164,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01046,    .00224,   -.00152,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00992,    .00212,   -.00141,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00945,    .00201,   -.00131,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00899,    .00192,   -.00121,    .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)/
     +     .08157,    .01780,   -.03791,    .00007,    .00000,
     +     .00000,    .00000,    .00000,
     +     .07425,    .01614,   -.03354,    .00007,    .00000,
     +     .00000,    .00000,    .00000,
     +     .06478,    .01401,   -.02806,    .00004,    .00000,
     +     .00000,    .00000,    .00000,
     +     .05882,    .01268,   -.02475,    .00004,    .00000,
     +     .00000,    .00000,    .00000,
     +     .05325,    .01143,   -.02174,    .00004,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04891,    .01047,   -.01943,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04510,    .00963,   -.01746,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04140,    .00880,   -.01560,    .00002,    .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)/
     +     .03847,    .00817,   -.01415,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03586,    .00760,   -.01288,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03392,    .00718,   -.01197,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03019,    .00636,   -.01024,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02737,    .00575,   -.00899,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02460,    .00514,   -.00780,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02202,    .00458,   -.00673,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01994,    .00414,   -.00589,    .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)/
     +     .01807,    .00374,   -.00516,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01666,    .00344,   -.00462,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01511,    .00310,   -.00405,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01388,    .00284,   -.00360,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01284,    .00263,   -.00324,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01163,    .00238,   -.00285,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01062,    .00217,   -.00251,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00978,    .00199,   -.00223,    .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)/
     +     .00899,    .00183,   -.00199,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00829,    .00167,   -.00178,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00768,    .00155,   -.00161,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00715,    .00145,   -.00145,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00666,    .00134,   -.00132,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00622,    .00125,   -.00120,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00582,    .00117,   -.00109,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00547,    .00109,   -.00100,    .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)/
     +     .00514,    .00103,   -.00092,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00483,    .00096,   -.00084,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00457,    .00091,   -.00078,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00433,    .00086,   -.00072,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00409,    .00081,   -.00067,    .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)/
     +     .04378,    .00865,   -.02316,   -.00003,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03937,    .00777,   -.02031,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03376,    .00661,   -.01673,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03029,    .00596,   -.01465,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02707,    .00529,   -.01270,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02460,    .00482,   -.01127,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02245,    .00437,   -.01002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02040,    .00396,   -.00888,    .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)/
     +     .01879,    .00366,   -.00801,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01735,    .00337,   -.00722,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01631,    .00316,   -.00668,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01431,    .00275,   -.00563,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01282,    .00247,   -.00490,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01136,    .00219,   -.00420,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01005,    .00192,   -.00358,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00898,    .00171,   -.00309,    .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)/
     +     .00804,    .00152,   -.00267,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00734,    .00140,   -.00238,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00658,    .00125,   -.00207,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00599,    .00114,   -.00182,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00549,    .00103,   -.00161,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00492,    .00093,   -.00141,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00444,    .00083,   -.00122,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00404,    .00076,   -.00107,    .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)/
     +     .00368,    .00069,   -.00097,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00337,    .00063,   -.00085,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00309,    .00058,   -.00076,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00286,    .00053,   -.00068,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00264,    .00049,   -.00061,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00245,    .00046,   -.00055,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00227,    .00043,   -.00050,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00212,    .00040,   -.00046,    .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)/
     +     .00198,    .00037,   -.00042,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00184,    .00034,   -.00038,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00174,    .00032,   -.00035,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00164,    .00030,   -.00032,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00154,    .00028,   -.00029,    .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)/
     +     .00563,    .00092,   -.00383,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00488,    .00079,   -.00325,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00397,    .00066,   -.00257,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00345,    .00055,   -.00217,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00297,    .00049,   -.00183,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00261,    .00041,   -.00157,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00232,    .00038,   -.00137,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00203,    .00033,   -.00117,    .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)/
     +     .00182,    .00028,   -.00102,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00165,    .00026,   -.00091,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00152,    .00024,   -.00082,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00127,    .00021,   -.00067,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00110,    .00017,   -.00056,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00094,    .00015,   -.00046,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00080,    .00012,   -.00038,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00070,    .00010,   -.00032,    .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)/
     +     .00060,    .00010,   -.00028,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00053,    .00008,   -.00023,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00046,    .00007,   -.00019,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00040,    .00006,   -.00017,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00037,    .00006,   -.00015,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00032,    .00005,   -.00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00028,    .00005,   -.00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00025,    .00005,   -.00009,    .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)/
     +     .00022,    .00003,   -.00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00020,    .00003,   -.00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00017,    .00003,   -.00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00015,    .00003,   -.00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00014,    .00003,   -.00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00012,    .00001,   -.00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00012,    .00001,   -.00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00011,    .00001,   -.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=33,37)/
     +     .00009,    .00001,   -.00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00009,    .00001,   -.00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00008,    .00001,   -.00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00008,    .00001,   -.00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00006,    .00001,   -.00002,    .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='cor04dis.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