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

sfmsr1.F

#include "pdf/pilot.h"
      SUBROUTINE SFMSR1(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)/
     +     .00150,    .00820,   1.27651,    .47232,    .00361,
     +     .00000,    .26825,    .47591,
     +     .00164,    .00829,   2.51076,    .54184,    .00842,
     +     .00000,    .32962,    .54574,
     +     .00186,    .00842,   5.15239,    .66876,    .02078,
     +     .00000,    .44176,    .67312,
     +     .00202,    .00852,   7.60560,    .78049,    .03596,
     +     .00000,    .54082,    .78518,
     +     .00218,    .00863,  10.75238,    .91570,    .06054,
     +     .00000,    .66140,    .92073,
     +     .00233,    .00872,  13.97310,   1.04723,    .09196,
     +     .00000,    .77960,   1.05255,
     +     .00248,    .00880,  17.38378,   1.18507,    .13419,
     +     .00000,    .90471,   1.19066,
     +     .00263,    .00889,  21.60102,   1.34504,    .19659,
     +     .00000,   1.05170,   1.35091 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
     +     .00277,    .00897,  25.71856,   1.49464,    .26966,
     +     .00000,   1.19120,   1.50075,
     +     .00290,    .00905,  30.04072,   1.64629,    .36031,
     +     .00000,   1.33493,   1.65265,
     +     .00301,    .00912,  33.83256,   1.77280,    .44901,
     +     .00000,   1.45665,   1.77933,
     +     .00323,    .00925,  42.72836,   2.05508,    .69411,
     +     .00000,   1.73491,   2.06200,
     +     .00344,    .00937,  51.41478,   2.31292,    .97263,
     +     .08206,   1.99679,   2.32016,
     +     .00366,    .00950,  62.32519,   2.62014,   1.35857,
     +     .34230,   2.31645,   2.62773,
     +     .00390,    .00964,  75.04426,   2.96732,   1.83495,
     +     .76585,   2.68330,   2.97528,
     +     .00412,    .00976,  87.89626,   3.31593,   2.32213,
     +    1.16297,   3.05277,   3.32420 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
     +     .00435,    .00989, 101.95473,   3.70341,   2.85158,
     +    1.60616,   3.46160,   3.71199,
     +     .00454,    .01000, 114.59903,   4.05840,   3.31499,
     +    2.00384,   3.83294,   4.06724,
     +     .00477,    .01013, 131.23253,   4.53483,   3.90384,
     +    2.52600,   4.32645,   4.54397,
     +     .00498,    .01025, 146.98965,   4.99712,   4.44615,
     +    3.02310,   4.80107,   5.00653,
     +     .00518,    .01036, 162.32021,   5.45550,   4.96222,
     +    3.50873,   5.26849,   5.46514,
     +     .00543,    .01050, 183.20419,   6.08918,   5.65019,
     +    4.17132,   5.91093,   6.09911,
     +     .00567,    .01063, 204.04591,   6.73289,   6.32948,
     +    4.83757,   6.56064,   6.74309,
     +     .00589,    .01075, 224.70506,   7.37940,   6.99909,
     +    5.50208,   7.21129,   7.38984 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
     +     .00612,    .01088, 246.71046,   8.07342,   7.70902,
     +    6.21185,   7.90842,   8.08411,
     +     .00635,    .01101, 269.03000,   8.78754,   8.43387,
     +    6.93984,   8.62487,   8.79846,
     +     .00656,    .01112, 291.36292,   9.50638,   9.15980,
     +    7.67077,   9.34546,   9.51751,
     +     .00677,    .01124, 313.19193,  10.21589,   9.87416,
     +    8.39103,  10.05634,  10.22721,
     +     .00698,    .01135, 336.06308,  10.96444,  10.62638,
     +    9.14992,  10.80610,  10.97596,
     +     .00718,    .01147, 359.35037,  11.73321,  11.39798,
     +    9.92851,  11.57593,  11.74491,
     +     .00738,    .01158, 382.31967,  12.49669,  12.16367,
     +   10.70110,  12.34034,  12.50857,
     +     .00757,    .01168, 404.63406,  13.24494,  12.91373,
     +   11.45779,  13.08942,  13.25698 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
     +     .00777,    .01178, 428.05157,  14.03363,  13.70408,
     +   12.25486,  13.87892,  14.04584,
     +     .00796,    .01189, 451.47595,  14.83160,  14.50354,
     +   13.06099,  14.67765,  14.84395,
     +     .00814,    .01199, 474.82428,  15.62897,  15.30227,
     +   13.86604,  15.47575,  15.64148,
     +     .00832,    .01209, 497.14151,  16.39982,  16.07436,
     +   14.64411,  16.24726,  16.41246,
     +     .00850,    .01219, 520.44489,  17.20842,  16.88418,
     +   15.45994,  17.05652,  17.22120 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
     +     .00302,    .00997,   1.37009,    .43396,    .00331,
     +     .00000,    .24514,    .43707,
     +     .00322,    .01010,   2.53859,    .49645,    .00764,
     +     .00000,    .30021,    .49977,
     +     .00353,    .01028,   4.92867,    .60861,    .01861,
     +     .00000,    .39919,    .61223,
     +     .00375,    .01042,   7.08166,    .70567,    .03192,
     +     .00000,    .48520,    .70951,
     +     .00399,    .01056,   9.78428,    .82162,    .05326,
     +     .00000,    .58857,    .82569,
     +     .00420,    .01068,  12.50101,    .93309,    .08030,
     +     .00000,    .68877,    .93736,
     +     .00440,    .01080,  15.33646,   1.04857,    .11635,
     +     .00000,    .79364,   1.05301,
     +     .00461,    .01093,  18.79419,   1.18129,    .16922,
     +     .00000,    .91572,   1.18592 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
     +     .00480,    .01104,  22.12853,   1.30418,    .23068,
     +     .00000,   1.03051,   1.30898,
     +     .00499,    .01115,  25.59074,   1.42761,    .30643,
     +     .00000,   1.14776,   1.43257,
     +     .00514,    .01123,  28.60125,   1.52981,    .38013,
     +     .00000,   1.24638,   1.53489,
     +     .00545,    .01142,  35.57806,   1.75536,    .58206,
     +     .00000,   1.46959,   1.76069,
     +     .00573,    .01157,  42.29364,   1.95870,    .80917,
     +     .06534,   1.67720,   1.96425,
     +     .00605,    .01175,  50.61731,   2.19817,   1.12053,
     +     .27098,   1.92789,   2.20395,
     +     .00638,    .01194,  60.18987,   2.46583,   1.50028,
     +     .60330,   2.21254,   2.47186,
     +     .00668,    .01211,  69.74239,   2.73221,   1.88398,
     +     .91134,   2.49654,   2.73846 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
     +     .00700,    .01228,  80.06973,   3.02602,   2.29604,
     +    1.25201,   2.80809,   3.03248,
     +     .00726,    .01243,  89.26488,   3.29352,   2.65279,
     +    1.55515,   3.08903,   3.30015,
     +     .00758,    .01261, 101.24441,   3.65035,   3.10128,
     +    1.94998,   3.45978,   3.65719,
     +     .00787,    .01276, 112.48016,   3.99434,   3.50989,
     +    2.32280,   3.81372,   4.00135,
     +     .00813,    .01291, 123.31759,   4.33339,   3.89521,
     +    2.68440,   4.16002,   4.34056,
     +     .00847,    .01310, 137.95073,   4.79913,   4.40415,
     +    3.17410,   4.63273,   4.80650,
     +     .00880,    .01327, 152.41275,   5.26880,   4.90196,
     +    3.66254,   5.10716,   5.27635,
     +     .00910,    .01344, 166.62314,   5.73732,   5.38865,
     +    4.14613,   5.57895,   5.74504 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
     +     .00941,    .01361, 181.64133,   6.23711,   5.90091,
     +    4.65920,   6.08119,   6.24500,
     +     .00972,    .01377, 196.74548,   6.74796,   6.42014,
     +    5.18180,   6.59388,   6.75600,
     +     .01001,    .01393, 211.75232,   7.25916,   6.93690,
     +    5.70332,   7.10647,   7.26735,
     +     .01029,    .01408, 226.31653,   7.76082,   7.44237,
     +    6.21418,   7.60922,   7.76914,
     +     .01057,    .01423, 241.47786,   8.28725,   7.97170,
     +    6.74948,   8.13662,   8.29571,
     +     .01085,    .01438, 256.81439,   8.82499,   8.51169,
     +    7.29567,   8.67520,   8.83358,
     +     .01112,    .01452, 271.85089,   9.35636,   9.04484,
     +    7.83489,   9.20732,   9.36507,
     +     .01138,    .01466, 286.37207,   9.87457,   9.56453,
     +    8.36039,   9.72621,   9.88339 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
     +     .01164,    .01480, 301.53430,  10.41844,  10.10974,
     +    8.91149,  10.27074,  10.42738,
     +     .01190,    .01493, 316.60855,  10.96602,  10.65855,
     +    9.46611,  10.81893,  10.97506,
     +     .01215,    .01507, 331.56818,  11.51106,  11.20471,
     +   10.01779,  11.36456,  11.52021,
     +     .01239,    .01519, 345.78561,  12.03560,  11.73028,
     +   10.54856,  11.88965,  12.04484,
     +     .01263,    .01532, 360.56714,  12.58379,  12.27948,
     +   11.10299,  12.43838,  12.59313 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
     +     .00528,    .01213,   1.47075,    .39836,    .00303,
     +     .00000,    .22399,    .40115,
     +     .00557,    .01230,   2.56714,    .45448,    .00693,
     +     .00000,    .27336,    .45740,
     +     .00600,    .01256,   4.71504,    .55344,    .01666,
     +     .00000,    .36060,    .55656,
     +     .00632,    .01274,   6.59385,    .63756,    .02831,
     +     .00000,    .43510,    .64081,
     +     .00665,    .01294,   8.90274,    .73672,    .04681,
     +     .00000,    .52348,    .74012,
     +     .00695,    .01310,  11.18264,    .83090,    .07003,
     +     .00000,    .60815,    .83441,
     +     .00723,    .01327,  13.52799,    .92729,    .10074,
     +     .00000,    .69575,    .93091,
     +     .00753,    .01344,  16.34862,   1.03697,    .14544,
     +     .00000,    .79677,   1.04072 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
     +     .00780,    .01359,  19.03495,   1.13751,    .19703,
     +     .00000,    .89084,   1.14135,
     +     .00806,    .01373,  21.79394,   1.23751,    .26017,
     +     .00000,    .98608,   1.24146,
     +     .00826,    .01385,  24.17163,   1.31969,    .32126,
     +     .00000,   1.06564,   1.32371,
     +     .00871,    .01410,  29.61423,   1.49898,    .48724,
     +     .00000,   1.24385,   1.50316,
     +     .00909,    .01431,  34.77762,   1.65845,    .67196,
     +     .05182,   1.40762,   1.66277,
     +     .00953,    .01455,  41.09204,   1.84400,    .92249,
     +     .21369,   1.60321,   1.84847,
     +     .00999,    .01480,  48.25468,   2.04909,   1.22436,
     +     .47340,   1.82290,   2.05371,
     +     .01041,    .01503,  55.31235,   2.25139,   1.52566,
     +     .71138,   2.04002,   2.25614 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
     +     .01084,    .01526,  62.85176,   2.47281,   1.84530,
     +     .97214,   2.27615,   2.47770,
     +     .01120,    .01546,  69.49609,   2.67318,   2.11896,
     +    1.20224,   2.48753,   2.67818,
     +     .01164,    .01569,  78.06766,   2.93889,   2.45921,
     +    1.49950,   2.76454,   2.94402,
     +     .01204,    .01591,  86.02574,   3.19338,   2.76578,
     +    1.77786,   3.02705,   3.19863,
     +     .01240,    .01610,  93.63403,   3.44274,   3.05216,
     +    2.04589,   3.28220,   3.44809,
     +     .01287,    .01635, 103.81516,   3.78310,   3.42685,
     +    2.40614,   3.62811,   3.78858,
     +     .01331,    .01658, 113.77729,   4.12384,   3.78979,
     +    2.76252,   3.97260,   4.12944,
     +     .01373,    .01680, 123.47881,   4.46143,   4.14164,
     +    3.11276,   4.31277,   4.46713 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
     +     .01415,    .01702, 133.65033,   4.81928,   4.50925,
     +    3.48181,   4.67254,   4.82509,
     +     .01457,    .01724, 143.79108,   5.18256,   4.87908,
     +    3.85507,   5.03726,   5.18847,
     +     .01497,    .01745, 153.79414,   5.54394,   5.24481,
     +    4.22526,   5.39974,   5.54995,
     +     .01534,    .01765, 163.43129,   5.89651,   5.60036,
     +    4.58571,   5.75317,   5.90261,
     +     .01573,    .01784, 173.39726,   6.26447,   5.97062,
     +    4.96129,   6.12189,   6.27065,
     +     .01611,    .01804, 183.41074,   6.63827,   6.34622,
     +    5.34238,   6.49638,   6.64455,
     +     .01647,    .01823, 193.16772,   7.00577,   6.71514,
     +    5.71664,   6.86447,   7.01212,
     +     .01681,    .01841, 202.53276,   7.36239,   7.07296,
     +    6.07955,   7.22164,   7.36882 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
     +     .01716,    .01859, 212.26091,   7.73504,   7.44670,
     +    6.45844,   7.59481,   7.74154,
     +     .01751,    .01877, 221.87061,   8.10832,   7.82100,
     +    6.83781,   7.96860,   8.11490,
     +     .01785,    .01894, 231.36542,   8.47846,   8.19205,
     +    7.21367,   8.33920,   8.48510,
     +     .01817,    .01910, 240.33441,   8.83298,   8.54743,
     +    7.57359,   8.69417,   8.83969,
     +     .01849,    .01927, 249.61873,   9.20211,   8.91739,
     +    7.94811,   9.06373,   9.20888 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
     +     .00706,    .01361,   1.53322,    .37869,    .00288,
     +     .00000,    .21247,    .38141,
     +     .00742,    .01382,   2.58435,    .43136,    .00654,
     +     .00000,    .25875,    .43416,
     +     .00795,    .01412,   4.59470,    .52325,    .01562,
     +     .00000,    .33971,    .52620,
     +     .00834,    .01434,   6.32426,    .60052,    .02638,
     +     .00000,    .40812,    .60356,
     +     .00875,    .01457,   8.42389,    .69087,    .04338,
     +     .00000,    .48865,    .69402,
     +     .00911,    .01477,  10.47581,    .77604,    .06460,
     +     .00000,    .56524,    .77929,
     +     .00945,    .01497,  12.56889,    .86259,    .09253,
     +     .00000,    .64394,    .86592,
     +     .00982,    .01517,  15.06571,    .96050,    .13300,
     +     .00000,    .73418,    .96391 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
     +     .01015,    .01535,  17.42632,   1.04968,    .17951,
     +     .00000,    .81773,   1.05317,
     +     .01046,    .01552,  19.83518,   1.13789,    .23621,
     +     .00000,    .90187,   1.14145,
     +     .01071,    .01566,  21.90024,   1.21004,    .29088,
     +     .00000,    .97187,   1.21366,
     +     .01125,    .01595,  26.59290,   1.36636,    .43866,
     +     .00000,   1.12769,   1.37010,
     +     .01172,    .01621,  31.00678,   1.50427,    .60213,
     +     .04515,   1.26985,   1.50811,
     +     .01225,    .01649,  36.36189,   1.66357,    .82242,
     +     .18557,   1.43853,   1.66752,
     +     .01281,    .01679,  42.38701,   1.83848,   1.08596,
     +     .40993,   1.62678,   1.84255,
     +     .01332,    .01706,  48.27945,   2.01011,   1.34707,
     +     .61411,   1.81179,   2.01428 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
     +     .01384,    .01734,  54.52941,   2.19714,   1.62208,
     +     .83662,   2.01197,   2.20141,
     +     .01427,    .01757,  60.00384,   2.36578,   1.85595,
     +    1.03199,   2.19041,   2.37014,
     +     .01481,    .01785,  67.02507,   2.58867,   2.14481,
     +    1.28317,   2.42329,   2.59313,
     +     .01528,    .01810,  73.50425,   2.80136,   2.40335,
     +    1.51723,   2.64302,   2.80590,
     +     .01572,    .01832,  79.66604,   3.00904,   2.64348,
     +    1.74163,   2.85578,   3.01365,
     +     .01628,    .01862,  87.86759,   3.29146,   2.95588,
     +    2.04189,   3.14304,   3.29618,
     +     .01681,    .01889,  95.84486,   3.57298,   3.25671,
     +    2.33749,   3.42783,   3.57779,
     +     .01731,    .01915, 103.57189,   3.85078,   3.54688,
     +    2.62671,   3.70787,   3.85567 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
     +     .01782,    .01941, 111.63496,   4.14416,   3.84871,
     +    2.93024,   4.00292,   4.14914,
     +     .01832,    .01967, 119.63110,   4.44078,   4.15099,
     +    3.23595,   4.30079,   4.44583,
     +     .01879,    .01991, 127.48499,   4.73483,   4.44881,
     +    3.53803,   4.59579,   4.73996,
     +     .01924,    .02014, 135.01810,   5.02069,   4.73727,
     +    3.83111,   4.88242,   5.02590,
     +     .01970,    .02037, 142.77744,   5.31808,   5.03667,
     +    4.13548,   5.18047,   5.32336,
     +     .02015,    .02060, 150.54222,   5.61922,   5.33937,
     +    4.44329,   5.48220,   5.62455,
     +     .02058,    .02082, 158.08008,   5.91437,   5.63578,
     +    4.74464,   5.77788,   5.91977,
     +     .02099,    .02103, 165.28799,   6.19994,   5.92241,
     +    5.03599,   6.06392,   6.20540 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
     +     .02141,    .02124, 172.75272,   6.49756,   6.22101,
     +    5.33934,   6.36201,   6.50308,
     +     .02182,    .02145, 180.09729,   6.79480,   6.51915,
     +    5.64217,   6.65969,   6.80038,
     +     .02222,    .02165, 187.33549,   7.08885,   6.81402,
     +    5.94148,   6.95415,   7.09448,
     +     .02260,    .02184, 194.14720,   7.36971,   7.09564,
     +    6.22729,   7.23540,   7.37539,
     +     .02299,    .02204, 201.18002,   7.66148,   7.38817,
     +    6.52402,   7.52756,   7.66722 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
     +     .00859,    .01478,   1.57929,    .36523,    .00278,
     +     .00000,    .20465,    .36793,
     +     .00899,    .01501,   2.59688,    .41555,    .00628,
     +     .00000,    .24885,    .41833,
     +     .00961,    .01535,   4.51139,    .50268,    .01491,
     +     .00000,    .32559,    .50558,
     +     .01006,    .01560,   6.13971,    .57538,    .02509,
     +     .00000,    .38994,    .57836,
     +     .01053,    .01586,   8.09954,    .65988,    .04108,
     +     .00000,    .46527,    .66295,
     +     .01095,    .01609,  10.00087,    .73913,    .06099,
     +     .00000,    .53654,    .74227,
     +     .01134,    .01631,  11.92878,    .81923,    .08708,
     +     .00000,    .60940,    .82244,
     +     .01177,    .01654,  14.21527,    .90945,    .12477,
     +     .00000,    .69261,    .91273 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
     +     .01215,    .01674,  16.36580,    .99128,    .16795,
     +     .00000,    .76934,    .99461,
     +     .01251,    .01694,  18.55020,   1.07185,    .22044,
     +     .00000,    .84630,   1.07525,
     +     .01280,    .01709,  20.41583,   1.13755,    .27094,
     +     .00000,    .91014,   1.14099,
     +     .01342,    .01742,  24.63322,   1.27918,    .40694,
     +     .00000,   1.05162,   1.28272,
     +     .01396,    .01771,  28.57582,   1.40338,    .55671,
     +     .04090,   1.18003,   1.40700,
     +     .01457,    .01803,  33.33201,   1.54610,    .75763,
     +     .16770,   1.33166,   1.54982,
     +     .01520,    .01837,  38.65208,   1.70205,    .99676,
     +     .36972,   1.50011,   1.70586,
     +     .01579,    .01867,  43.82704,   1.85452,   1.23245,
     +     .55266,   1.66501,   1.85841 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
     +     .01638,    .01898,  49.28793,   2.02013,   1.47938,
     +     .75125,   1.84277,   2.02411,
     +     .01688,    .01924,  54.05032,   2.16910,   1.68837,
     +     .92499,   2.00075,   2.17315,
     +     .01749,    .01956,  60.13276,   2.36553,   1.94525,
     +    1.14761,   2.20634,   2.36966,
     +     .01803,    .01983,  65.72110,   2.55247,   2.17406,
     +    1.35431,   2.39971,   2.55668,
     +     .01853,    .02009,  71.01545,   2.73457,   2.38570,
     +    1.55188,   2.58643,   2.73884,
     +     .01917,    .02042,  78.03543,   2.98157,   2.65991,
     +    1.81539,   2.83782,   2.98592,
     +     .01977,    .02073,  84.83403,   3.22701,   2.92284,
     +    2.07391,   3.08623,   3.23144,
     +     .02034,    .02102,  91.39390,   3.46852,   3.17552,
     +    2.32604,   3.32976,   3.47302 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
     +     .02092,    .02131,  98.21572,   3.72290,   3.43753,
     +    2.58990,   3.58565,   3.72747,
     +     .02148,    .02160, 104.95483,   3.97933,   3.69908,
     +    2.85484,   3.84322,   3.98397,
     +     .02202,    .02187, 111.55376,   4.23291,   3.95606,
     +    3.11595,   4.09767,   4.23762,
     +     .02253,    .02213, 117.86292,   4.47882,   4.20432,
     +    3.36863,   4.34426,   4.48358,
     +     .02305,    .02239, 124.34293,   4.73404,   4.46136,
     +    3.63042,   4.60009,   4.73887,
     +     .02356,    .02265, 130.80826,   4.99188,   4.72063,
     +    3.89453,   4.85847,   4.99676,
     +     .02405,    .02289, 137.06776,   5.24404,   4.97395,
     +    4.15254,   5.11111,   5.24898,
     +     .02452,    .02312, 143.03712,   5.48749,   5.21838,
     +    4.40143,   5.35500,   5.49249 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
     +     .02499,    .02336, 149.20547,   5.74076,   5.47254,
     +    4.66009,   5.60869,   5.74580,
     +     .02545,    .02359, 155.25697,   5.99314,   5.72576,
     +    4.91774,   5.86147,   5.99823,
     +     .02590,    .02382, 161.20993,   6.24240,   5.97579,
     +    5.17196,   6.11112,   6.24755,
     +     .02633,    .02403, 166.79651,   6.48000,   6.21408,
     +    5.41422,   6.34907,   6.48519,
     +     .02677,    .02424, 172.55348,   6.72643,   6.46122,
     +    5.66532,   6.59587,   6.73167 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
     +     .00994,    .01575,   1.61608,    .35505,    .00271,
     +     .00000,    .19878,    .35778,
     +     .01039,    .01601,   2.60683,    .40360,    .00609,
     +     .00000,    .24142,    .40641,
     +     .01108,    .01638,   4.44797,    .48719,    .01438,
     +     .00000,    .31502,    .49009,
     +     .01158,    .01666,   6.00030,    .55649,    .02412,
     +     .00000,    .37637,    .55946,
     +     .01212,    .01695,   7.85635,    .63669,    .03938,
     +     .00000,    .44785,    .63973,
     +     .01258,    .01719,   9.64682,    .71158,    .05831,
     +     .00000,    .51522,    .71468,
     +     .01302,    .01743,  11.45394,    .78696,    .08305,
     +     .00000,    .58380,    .79012,
     +     .01350,    .01769,  13.58751,    .87157,    .11871,
     +     .00000,    .66189,    .87480 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
     +     .01392,    .01791,  15.58610,    .94805,    .15945,
     +     .00000,    .73365,    .95133,
     +     .01432,    .01812,  17.60889,   1.02310,    .20888,
     +     .00000,    .80542,   1.02643,
     +     .01464,    .01829,  19.33144,   1.08414,    .25633,
     +     .00000,    .86481,   1.08752,
     +     .01534,    .01866,  23.20960,   1.21520,    .38379,
     +     .00000,    .99597,   1.21866,
     +     .01594,    .01897,  26.81769,   1.32960,    .52366,
     +     .03785,   1.11452,   1.33313,
     +     .01661,    .01933,  31.15104,   1.46051,    .71064,
     +     .15493,   1.25401,   1.46412,
     +     .01732,    .01969,  35.97602,   1.60302,    .93228,
     +     .34103,   1.40839,   1.60672,
     +     .01797,    .02003,  40.64968,   1.74194,   1.14984,
     +     .50891,   1.55905,   1.74571 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
     +     .01863,    .02037,  45.56176,   1.89248,   1.37684,
     +     .69058,   1.72101,   1.89632,
     +     .01918,    .02065,  49.83081,   2.02764,   1.56823,
     +     .84909,   1.86461,   2.03154,
     +     .01985,    .02100,  55.26529,   2.20553,   1.80259,
     +    1.05164,   2.05105,   2.20951,
     +     .02045,    .02130,  60.24118,   2.37449,   2.01055,
     +    1.23919,   2.22600,   2.37853,
     +     .02101,    .02158,  64.94121,   2.53876,   2.20227,
     +    1.41802,   2.39457,   2.54286,
     +     .02171,    .02194,  71.15443,   2.76112,   2.44987,
     +    1.65595,   2.62101,   2.76529,
     +     .02238,    .02228,  77.15127,   2.98155,   2.68649,
     +    1.88873,   2.84419,   2.98580,
     +     .02301,    .02260,  82.91988,   3.19797,   2.91325,
     +    2.11521,   3.06249,   3.20228 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
     +     .02365,    .02292,  88.90279,   3.42545,   3.14777,
     +    2.35168,   3.29137,   3.42983,
     +     .02427,    .02323,  94.79520,   3.65425,   3.38129,
     +    2.58855,   3.52121,   3.65868,
     +     .02487,    .02353, 100.55107,   3.88005,   3.61025,
     +    2.82153,   3.74782,   3.88455,
     +     .02543,    .02381, 106.04026,   4.09860,   3.83097,
     +    3.04653,   3.96701,   4.10315,
     +     .02600,    .02409, 111.66531,   4.32501,   4.05908,
     +    3.27920,   4.19399,   4.32962,
     +     .02656,    .02437, 117.26454,   4.55332,   4.28873,
     +    3.51350,   4.42280,   4.55798,
     +     .02710,    .02464, 122.67403,   4.77623,   4.51272,
     +    3.74199,   4.64616,   4.78094,
     +     .02761,    .02489, 127.82166,   4.99108,   4.72848,
     +    3.96203,   4.86142,   4.99584 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
     +     .02813,    .02515, 133.13170,   5.21426,   4.95251,
     +    4.19037,   5.08500,   5.21907,
     +     .02865,    .02540, 138.32895,   5.43627,   5.17531,
     +    4.41741,   5.30739,   5.44113,
     +     .02914,    .02564, 143.43436,   5.65527,   5.39503,
     +    4.64115,   5.52675,   5.66017,
     +     .02961,    .02588, 148.21486,   5.86368,   5.60411,
     +    4.85401,   5.73549,   5.86862,
     +     .03009,    .02611, 153.13387,   6.07958,   5.82066,
     +    5.07436,   5.95173,   6.08457 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
     +     .01530,    .01924,   1.73691,    .32481,    .00248,
     +     .00000,    .18161,    .32787,
     +     .01595,    .01958,   2.63966,    .36819,    .00552,
     +     .00000,    .21968,    .37130,
     +     .01693,    .02009,   4.25790,    .44145,    .01285,
     +     .00000,    .28417,    .44464,
     +     .01765,    .02046,   5.58722,    .50100,    .02134,
     +     .00000,    .33688,    .50424,
     +     .01840,    .02084,   7.14470,    .56890,    .03448,
     +     .00000,    .39743,    .57220,
     +     .01905,    .02118,   8.62104,    .63146,    .05064,
     +     .00000,    .45377,    .63482,
     +     .01968,    .02149,  10.08978,    .69359,    .07156,
     +     .00000,    .51038,    .69700,
     +     .02035,    .02183,  11.79946,    .76260,    .10148,
     +     .00000,    .57419,    .76605 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
     +     .02094,    .02213,  13.38077,    .82426,    .13540,
     +     .00000,    .63222,    .82776,
     +     .02150,    .02242,  14.96322,    .88413,    .17627,
     +     .00000,    .68969,    .88767,
     +     .02196,    .02264,  16.29847,    .93243,    .21527,
     +     .00000,    .73690,    .93600,
     +     .02292,    .02313,  19.26629,   1.03479,    .31912,
     +     .00000,    .83998,   1.03843,
     +     .02376,    .02355,  21.98588,   1.12279,    .43186,
     +     .02962,    .93195,   1.12649,
     +     .02470,    .02402,  25.20653,   1.22216,    .58088,
     +     .12057,   1.03888,   1.22594,
     +     .02568,    .02450,  28.74099,   1.32904,    .75529,
     +     .26410,   1.15589,   1.33289,
     +     .02658,    .02495,  32.11915,   1.43230,    .92427,
     +     .39201,   1.26896,   1.43622 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
     +     .02749,    .02540,  35.62443,   1.54336,   1.09829,
     +     .52911,   1.38943,   1.54734,
     +     .02825,    .02577,  38.63769,   1.64251,   1.24324,
     +     .64768,   1.49545,   1.64654,
     +     .02918,    .02623,  42.43379,   1.77229,   1.41860,
     +     .79791,   1.63216,   1.77639,
     +     .03000,    .02663,  45.87154,   1.89479,   1.57231,
     +     .93582,   1.75946,   1.89895,
     +     .03076,    .02700,  49.08774,   2.01320,   1.71253,
     +    1.06631,   1.88131,   2.01741,
     +     .03172,    .02747,  53.29885,   2.17248,   1.89176,
     +    1.23857,   2.04383,   2.17677,
     +     .03263,    .02792,  57.31908,   2.32921,   2.06120,
     +    1.40565,   2.20274,   2.33356,
     +     .03349,    .02833,  61.14857,   2.48199,   2.22207,
     +    1.56694,   2.35701,   2.48640 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
     +     .03435,    .02875,  65.08667,   2.64155,   2.38714,
     +    1.73414,   2.51769,   2.64602,
     +     .03520,    .02916,  68.92693,   2.80086,   2.55016,
     +    1.90038,   2.67785,   2.80539,
     +     .03600,    .02955,  72.64932,   2.95714,   2.70893,
     +    2.06282,   2.83478,   2.96172,
     +     .03677,    .02992,  76.17011,   3.10744,   2.86097,
     +    2.21870,   2.98561,   3.11208,
     +     .03753,    .03029,  79.75186,   3.26227,   3.01716,
     +    2.37895,   3.14090,   3.26696,
     +     .03829,    .03065,  83.29028,   3.41748,   3.17347,
     +    2.53936,   3.29653,   3.42222,
     +     .03901,    .03100,  86.68545,   3.56820,   3.32509,
     +    2.69492,   3.44763,   3.57299,
     +     .03970,    .03133,  89.89347,   3.71269,   3.47035,
     +    2.84392,   3.59247,   3.71754 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
     +     .04040,    .03166,  93.18462,   3.86210,   3.62048,
     +    2.99782,   3.74223,   3.86700,
     +     .04108,    .03199,  96.38093,   4.00991,   3.76896,
     +    3.15000,   3.89035,   4.01485,
     +     .04174,    .03230,  99.50684,   4.15513,   3.91480,
     +    3.29935,   4.03588,   4.16012,
     +     .04237,    .03260, 102.41191,   4.29260,   4.05285,
     +    3.44069,   4.17364,   4.29764,
     +     .04301,    .03291, 105.38697,   4.43446,   4.19527,
     +    3.58643,   4.31578,   4.43954 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
     +     .02302,    .02363,   1.86960,    .29661,    .00228,
     +     .00000,    .16596,    .30040,
     +     .02395,    .02409,   2.67734,    .33515,    .00500,
     +     .00000,    .19978,    .33900,
     +     .02534,    .02476,   4.07922,    .39896,    .01146,
     +     .00000,    .25599,    .40291,
     +     .02635,    .02525,   5.20287,    .44976,    .01882,
     +     .00000,    .30100,    .45380,
     +     .02741,    .02577,   6.49320,    .50681,    .03010,
     +     .00000,    .35193,    .51092,
     +     .02833,    .02621,   7.69493,    .55863,    .04381,
     +     .00000,    .39867,    .56281,
     +     .02921,    .02664,   8.87322,    .60937,    .06140,
     +     .00000,    .44501,    .61362,
     +     .03015,    .02709,  10.22504,    .66509,    .08636,
     +     .00000,    .49668,    .66941 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
     +     .03097,    .02748,  11.45919,    .71429,    .11443,
     +     .00000,    .54316,    .71867,
     +     .03176,    .02786,  12.67994,    .76152,    .14799,
     +     .00000,    .58872,    .76596,
     +     .03240,    .02816,  13.70029,    .79928,    .17984,
     +     .00000,    .62586,    .80377,
     +     .03374,    .02881,  15.93831,    .87823,    .26387,
     +     .00000,    .70599,    .88281,
     +     .03490,    .02936,  17.95713,    .94499,    .35407,
     +     .02297,    .77649,    .94966,
     +     .03621,    .02998,  20.31323,   1.01932,    .47194,
     +     .09295,    .85747,   1.02408,
     +     .03756,    .03063,  22.86015,   1.09826,    .60809,
     +     .20259,    .94501,   1.10312,
     +     .03880,    .03122,  25.26075,   1.17383,    .73823,
     +     .29909,   1.02876,   1.17878 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
     +     .04005,    .03181,  27.71827,   1.25449,    .87043,
     +     .40148,   1.11717,   1.25954,
     +     .04109,    .03230,  29.80670,   1.32612,    .97914,
     +     .48924,   1.19440,   1.33124,
     +     .04236,    .03290,  32.40913,   1.41940,   1.10899,
     +     .59947,   1.29328,   1.42462,
     +     .04348,    .03343,  34.73860,   1.50690,   1.22133,
     +     .69975,   1.38465,   1.51220,
     +     .04452,    .03392,  36.89589,   1.59099,   1.32268,
     +     .79388,   1.47149,   1.59637,
     +     .04583,    .03454,  39.69215,   1.70340,   1.45078,
     +     .91714,   1.58650,   1.70887,
     +     .04707,    .03512,  42.33062,   1.81316,   1.57051,
     +    1.03563,   1.69802,   1.81872,
     +     .04823,    .03566,  44.81767,   1.91938,   1.68308,
     +    1.14908,   1.80546,   1.92503 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
     +     .04939,    .03621,  47.35239,   2.02958,   1.79761,
     +    1.26583,   1.91658,   2.03532,
     +     .05053,    .03674,  49.79746,   2.13878,   1.90974,
     +    1.38099,   2.02649,   2.14460,
     +     .05162,    .03725,  52.14822,   2.24521,   2.01818,
     +    1.49278,   2.13349,   2.25111,
     +     .05264,    .03772,  54.35182,   2.34691,   2.12130,
     +    1.59932,   2.23565,   2.35289,
     +     .05367,    .03820,  56.57603,   2.45105,   2.22657,
     +    1.70818,   2.34020,   2.45710,
     +     .05468,    .03867,  58.75528,   2.55480,   2.33126,
     +    1.81648,   2.44433,   2.56093,
     +     .05564,    .03912,  60.83076,   2.65498,   2.43223,
     +    1.92090,   2.54486,   2.66119,
     +     .05656,    .03955,  62.77665,   2.75049,   2.52840,
     +    2.02035,   2.64068,   2.75675 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
     +     .05749,    .03998,  64.76130,   2.84878,   2.62734,
     +    2.12257,   2.73928,   2.85512,
     +     .05840,    .04040,  66.67182,   2.94542,   2.72458,
     +    2.22305,   2.83623,   2.95183,
     +     .05927,    .04081,  68.53179,   3.04001,   2.81973,
     +    2.32124,   2.93110,   3.04648,
     +     .06010,    .04119,  70.24541,   3.12903,   2.90927,
     +    2.41366,   3.02038,   3.13556,
     +     .06094,    .04158,  71.99149,   3.22052,   3.00127,
     +    2.50855,   3.11214,   3.22711 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
     +     .02906,    .02676,   1.95431,    .28108,    .00216,
     +     .00000,    .15746,    .28549,
     +     .03019,    .02730,   2.70336,    .31688,    .00472,
     +     .00000,    .18890,    .32138,
     +     .03189,    .02810,   3.98084,    .37546,    .01071,
     +     .00000,    .24055,    .38010,
     +     .03312,    .02868,   4.99065,    .42153,    .01746,
     +     .00000,    .28140,    .42627,
     +     .03442,    .02929,   6.13660,    .47276,    .02773,
     +     .00000,    .32720,    .47761,
     +     .03554,    .02982,   7.19272,    .51891,    .04013,
     +     .00000,    .36888,    .52386,
     +     .03661,    .03032,   8.21934,    .56370,    .05597,
     +     .00000,    .40986,    .56873,
     +     .03775,    .03086,   9.38683,    .61254,    .07830,
     +     .00000,    .45526,    .61767 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
     +     .03875,    .03132,  10.44436,    .65535,    .10332,
     +     .00000,    .49582,    .66057,
     +     .03971,    .03177,  11.48307,    .69616,    .13309,
     +     .00000,    .53533,    .70145,
     +     .04047,    .03213,  12.34628,    .72861,    .16124,
     +     .00000,    .56738,    .73397,
     +     .04210,    .03289,  14.22442,    .79585,    .23511,
     +     .00000,    .63603,    .80135,
     +     .04350,    .03354,  15.90241,    .85215,    .31387,
     +     .01967,    .69592,    .85775,
     +     .04507,    .03427,  17.84333,    .91426,    .41607,
     +     .07933,    .76418,    .91999,
     +     .04671,    .03503,  19.92211,    .97970,    .53320,
     +     .17239,    .83743,    .98557,
     +     .04819,    .03573,  21.86477,   1.04201,    .64423,
     +     .25368,    .90709,   1.04801 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
     +     .04970,    .03642,  23.83692,   1.10823,    .75608,
     +     .33941,    .98020,   1.11435,
     +     .05094,    .03700,  25.50099,   1.16685,    .84734,
     +     .41248,   1.04379,   1.17307,
     +     .05246,    .03770,  27.56070,   1.24298,    .95548,
     +     .50378,   1.12486,   1.24932,
     +     .05380,    .03832,  29.39102,   1.31413,   1.04828,
     +     .58637,   1.19942,   1.32058,
     +     .05503,    .03889,  31.07531,   1.38227,   1.13142,
     +     .66354,   1.26999,   1.38882,
     +     .05660,    .03961,  33.24486,   1.47303,   1.23578,
     +     .76409,   1.36306,   1.47971,
     +     .05807,    .04029,  35.27691,   1.56123,   1.33262,
     +     .86021,   1.45283,   1.56804,
     +     .05944,    .04093,  37.17973,   1.64622,   1.42312,
     +     .95179,   1.53892,   1.65314 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
     +     .06083,    .04156,  39.10820,   1.73404,   1.51472,
     +    1.04562,   1.62759,   1.74108,
     +     .06218,    .04218,  40.95552,   1.82065,   1.60391,
     +    1.13772,   1.71486,   1.82779,
     +     .06346,    .04277,  42.72254,   1.90475,   1.68978,
     +    1.22676,   1.79949,   1.91200,
     +     .06466,    .04332,  44.36941,   1.98478,   1.77110,
     +    1.31127,   1.87996,   1.99213,
     +     .06588,    .04388,  46.02343,   2.06643,   1.85379,
     +    1.39730,   1.96201,   2.07388,
     +     .06707,    .04443,  47.63536,   2.14747,   1.93570,
     +    1.48255,   2.04343,   2.15501,
     +     .06821,    .04495,  49.16331,   2.22545,   2.01442,
     +    1.56446,   2.12175,   2.23309,
     +     .06928,    .04544,  50.58853,   2.29952,   2.08913,
     +    1.64220,   2.19614,   2.30725 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
     +     .07037,    .04593,  52.03683,   2.37554,   2.16577,
     +    1.72187,   2.27247,   2.38336,
     +     .07144,    .04642,  53.42278,   2.45000,   2.24082,
     +    1.79989,   2.34723,   2.45791,
     +     .07247,    .04689,  54.76839,   2.52270,   2.31406,
     +    1.87595,   2.42021,   2.53069,
     +     .07344,    .04733,  56.00077,   2.59087,   2.38274,
     +    1.94728,   2.48865,   2.59894,
     +     .07442,    .04778,  57.25243,   2.66076,   2.45313,
     +    2.02033,   2.55881,   2.66891 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
     +     .03423,    .02932,   2.01850,    .27053,    .00209,
     +     .00000,    .15170,    .27547,
     +     .03554,    .02993,   2.72460,    .30440,    .00452,
     +     .00000,    .18148,    .30946,
     +     .03749,    .03083,   3.91431,    .35936,    .01019,
     +     .00000,    .22997,    .36460,
     +     .03891,    .03149,   4.84550,    .40219,    .01653,
     +     .00000,    .26799,    .40756,
     +     .04040,    .03218,   5.89324,    .44950,    .02611,
     +     .00000,    .31032,    .45500,
     +     .04169,    .03277,   6.85154,    .49184,    .03764,
     +     .00000,    .34862,    .49746,
     +     .04291,    .03334,   7.77726,    .53268,    .05229,
     +     .00000,    .38604,    .53840,
     +     .04422,    .03394,   8.82325,    .57698,    .07288,
     +     .00000,    .42730,    .58282 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
     +     .04536,    .03447,   9.76531,    .61560,    .09585,
     +     .00000,    .46398,    .62155,
     +     .04646,    .03497,  10.68584,    .65222,    .12312,
     +     .00000,    .49954,    .65826,
     +     .04733,    .03538,  11.44762,    .68122,    .14882,
     +     .00000,    .52829,    .68734,
     +     .04919,    .03623,  13.09528,    .74093,    .21601,
     +     .00000,    .58953,    .74722,
     +     .05079,    .03697,  14.55699,    .79053,    .28730,
     +     .01755,    .64262,    .79696,
     +     .05257,    .03779,  16.23665,    .84489,    .37934,
     +     .07062,    .70278,    .85148,
     +     .05443,    .03864,  18.02335,    .90183,    .48422,
     +     .15314,    .76700,    .90858,
     +     .05612,    .03942,  19.68249,    .95583,    .58303,
     +     .22481,    .82779,    .96273 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
     +     .05783,    .04020,  21.35637,   1.01303,    .68197,
     +     .30006,    .89134,   1.02009,
     +     .05924,    .04084,  22.76132,   1.06357,    .76222,
     +     .36394,    .94643,   1.07075,
     +     .06096,    .04163,  24.49160,   1.12906,    .85677,
     +     .44345,   1.01644,   1.13639,
     +     .06247,    .04232,  26.02084,   1.19011,    .93741,
     +     .51509,   1.08062,   1.19758,
     +     .06386,    .04296,  27.42137,   1.24844,   1.00928,
     +     .58179,   1.14118,   1.25603,
     +     .06563,    .04376,  29.21698,   1.32593,   1.09904,
     +     .66838,   1.22079,   1.33368,
     +     .06728,    .04452,  30.88946,   1.40098,   1.18188,
     +     .75082,   1.29730,   1.40887,
     +     .06884,    .04522,  32.44775,   1.47306,   1.25893,
     +     .82909,   1.37041,   1.48109 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
     +     .07039,    .04593,  34.02047,   1.54733,   1.33664,
     +     .90901,   1.44548,   1.55550,
     +     .07191,    .04662,  35.51890,   1.62031,   1.41198,
     +     .98718,   1.51910,   1.62862,
     +     .07334,    .04727,  36.94674,   1.69099,   1.48430,
     +    1.06252,   1.59029,   1.69941,
     +     .07470,    .04789,  38.27161,   1.75803,   1.55255,
     +    1.13382,   1.65777,   1.76658,
     +     .07606,    .04850,  39.59719,   1.82625,   1.62176,
     +    1.20619,   1.72640,   1.83492,
     +     .07739,    .04911,  40.88373,   1.89377,   1.69012,
     +    1.27771,   1.79429,   1.90256,
     +     .07866,    .04969,  42.09881,   1.95857,   1.75564,
     +    1.34625,   1.85944,   1.96747,
     +     .07986,    .05023,  43.22771,   2.01997,   1.81766,
     +    1.41113,   1.92115,   2.02897 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
     +     .08108,    .05078,  44.37173,   2.08284,   1.88115,
     +    1.47747,   1.98434,   2.09195,
     +     .08227,    .05132,  45.46129,   2.14425,   1.94313,
     +    1.54227,   2.04606,   2.15346,
     +     .08342,    .05183,  46.51706,   2.20410,   2.00352,
     +    1.60531,   2.10620,   2.21342,
     +     .08450,    .05232,  47.47936,   2.26007,   2.05999,
     +    1.66428,   2.16244,   2.26948,
     +     .08559,    .05282,  48.45438,   2.31734,   2.11777,
     +    1.72456,   2.21998,   2.32685 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
     +     .03898,    .03160,   2.07605,    .26289,    .00202,
     +     .00000,    .14734,    .26815,
     +     .04044,    .03227,   2.74914,    .29521,    .00436,
     +     .00000,    .17576,    .30060,
     +     .04261,    .03328,   3.87013,    .34732,    .00977,
     +     .00000,    .22175,    .35290,
     +     .04418,    .03400,   4.73995,    .38763,    .01578,
     +     .00000,    .25756,    .39336,
     +     .04584,    .03476,   5.71166,    .43193,    .02484,
     +     .00000,    .29722,    .43780,
     +     .04726,    .03542,   6.59486,    .47137,    .03569,
     +     .00000,    .33293,    .47738,
     +     .04862,    .03604,   7.44373,    .50923,    .04942,
     +     .00000,    .36766,    .51535,
     +     .05007,    .03671,   8.39780,    .55013,    .06868,
     +     .00000,    .40580,    .55638 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
     +     .05132,    .03729,   9.25309,    .58563,    .09010,
     +     .00000,    .43958,    .59200,
     +     .05253,    .03784,  10.08528,    .61914,    .11546,
     +     .00000,    .47219,    .62561,
     +     .05350,    .03829,  10.77156,    .64559,    .13931,
     +     .00000,    .49849,    .65215,
     +     .05555,    .03923,  12.24890,    .69977,    .20147,
     +     .00000,    .55426,    .70652,
     +     .05731,    .04003,  13.55190,    .74448,    .26717,
     +     .01600,    .60235,    .75138,
     +     .05928,    .04094,  15.04109,    .79321,    .35165,
     +     .06424,    .65660,    .80029,
     +     .06132,    .04187,  16.61634,    .84401,    .44745,
     +     .13905,    .71425,    .85127,
     +     .06318,    .04272,  18.07147,    .89202,    .53729,
     +     .20374,    .76862,    .89945 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
     +     .06505,    .04357,  19.53202,    .94276,    .62679,
     +     .27140,    .82527,    .95035,
     +     .06660,    .04428,  20.75257,    .98750,    .69904,
     +     .32866,    .87425,    .99523,
     +     .06848,    .04514,  22.24956,   1.04539,    .78375,
     +     .39970,    .93634,   1.05329,
     +     .07013,    .04589,  23.56657,   1.09925,    .85565,
     +     .46349,    .99309,   1.10730,
     +     .07165,    .04658,  24.76788,   1.15060,    .91945,
     +     .52271,   1.04652,   1.15879,
     +     .07358,    .04746,  26.30209,   1.21867,    .99879,
     +     .59937,   1.11656,   1.22703,
     +     .07539,    .04828,  27.72445,   1.28442,   1.07170,
     +     .67212,   1.18367,   1.29294,
     +     .07708,    .04905,  29.04414,   1.34740,   1.13925,
     +     .74097,   1.24762,   1.35607 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
     +     .07877,    .04982,  30.37143,   1.41213,   1.20715,
     +     .81109,   1.31311,   1.42095,
     +     .08042,    .05057,  31.63042,   1.47556,   1.27277,
     +     .87947,   1.37715,   1.48452,
     +     .08199,    .05127,  32.82621,   1.53684,   1.33559,
     +     .94521,   1.43893,   1.54594,
     +     .08345,    .05194,  33.93155,   1.59483,   1.39473,
     +    1.00728,   1.49735,   1.60406,
     +     .08493,    .05261,  35.03389,   1.65370,   1.45454,
     +    1.07013,   1.55662,   1.66307,
     +     .08638,    .05326,  36.09999,   1.71183,   1.51348,
     +    1.13209,   1.61512,   1.72132,
     +     .08775,    .05388,  37.10369,   1.76751,   1.56985,
     +    1.19135,   1.67114,   1.77712,
     +     .08905,    .05447,  38.03294,   1.82014,   1.62310,
     +    1.24733,   1.72408,   1.82987 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
     +     .09037,    .05506,  38.97249,   1.87395,   1.67750,
     +    1.30447,   1.77821,   1.88379,
     +     .09166,    .05564,  39.86370,   1.92636,   1.73049,
     +    1.36013,   1.83093,   1.93632,
     +     .09289,    .05620,  40.72589,   1.97738,   1.78204,
     +    1.41421,   1.88223,   1.98745,
     +     .09406,    .05672,  41.50849,   2.02498,   1.83013,
     +    1.46470,   1.93010,   2.03515,
     +     .09524,    .05725,  42.29984,   2.07362,   1.87927,
     +    1.51623,   1.97902,   2.08390 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
     +     .05805,    .04036,   2.25666,    .24019,    .00184,
     +     .00000,    .13466,    .24715,
     +     .06007,    .04129,   2.81989,    .26777,    .00391,
     +     .00000,    .15896,    .27491,
     +     .06307,    .04266,   3.72669,    .31126,    .00856,
     +     .00000,    .19745,    .31870,
     +     .06523,    .04365,   4.41225,    .34417,    .01363,
     +     .00000,    .22677,    .35181,
     +     .06750,    .04468,   5.16130,    .37970,    .02113,
     +     .00000,    .25869,    .38755,
     +     .06944,    .04557,   5.82881,    .41083,    .03001,
     +     .00000,    .28698,    .41888,
     +     .07129,    .04641,   6.46028,    .44022,    .04113,
     +     .00000,    .31407,    .44844,
     +     .07325,    .04731,   7.15800,    .47154,    .05656,
     +     .00000,    .34346,    .47995 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
     +     .07496,    .04809,   7.77416,    .49834,    .07357,
     +     .00000,    .36914,    .50691,
     +     .07659,    .04884,   8.36562,    .52328,    .09354,
     +     .00000,    .39364,    .53200,
     +     .07789,    .04943,   8.84792,    .54275,    .11219,
     +     .00000,    .41321,    .55160,
     +     .08064,    .05068,   9.87000,    .58192,    .16030,
     +     .00000,    .45411,    .59103,
     +     .08300,    .05176,  10.75453,    .61355,    .21052,
     +     .01181,    .48877,    .62288,
     +     .08563,    .05295,  11.74767,    .64736,    .27425,
     +     .04711,    .52728,    .65694,
     +     .08834,    .05419,  12.77886,    .68204,    .34545,
     +     .10140,    .56760,    .69188,
     +     .09080,    .05530,  13.71510,    .71448,    .41118,
     +     .14767,    .60518,    .72455 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
     +     .09325,    .05642,  14.63869,    .74848,    .47560,
     +     .19548,    .64391,    .75878,
     +     .09529,    .05734,  15.39926,    .77831,    .52681,
     +     .23551,    .67710,    .78880,
     +     .09775,    .05846,  16.31923,    .81673,    .58591,
     +     .28467,    .71886,    .82746,
     +     .09991,    .05944,  17.11621,    .85225,    .63524,
     +     .32835,    .75668,    .86318,
     +     .10188,    .06033,  17.83330,    .88590,    .67840,
     +     .36851,    .79199,    .89701,
     +     .10438,    .06146,  18.73711,    .93021,    .73131,
     +     .42000,    .83790,    .94156,
     +     .10672,    .06251,  19.56153,    .97262,    .77920,
     +     .46834,    .88145,    .98419,
     +     .10889,    .06350,  20.31532,   1.01290,    .82302,
     +     .51365,    .92255,   1.02466 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
     +     .11106,    .06447,  21.06450,   1.05398,    .86661,
     +     .55939,    .96431,   1.06594,
     +     .11317,    .06542,  21.76344,   1.09383,    .90824,
     +     .60356,   1.00473,   1.10599,
     +     .11516,    .06632,  22.42003,   1.13205,    .94776,
     +     .64569,   1.04342,   1.14439,
     +     .11702,    .06715,  23.01871,   1.16791,    .98462,
     +     .68514,   1.07971,   1.18043,
     +     .11889,    .06799,  23.60897,   1.20405,   1.02161,
     +     .72479,   1.11624,   1.21674,
     +     .12071,    .06881,  24.17256,   1.23945,   1.05777,
     +     .76358,   1.15202,   1.25231,
     +     .12244,    .06959,  24.69725,   1.27312,   1.09211,
     +     .80042,   1.18603,   1.28614,
     +     .12407,    .07032,  25.17681,   1.30471,   1.12430,
     +     .83497,   1.21795,   1.31788 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
     +     .12572,    .07105,  25.65777,   1.33683,   1.15701,
     +     .87003,   1.25039,   1.35014,
     +     .12733,    .07177,  26.10659,   1.36784,   1.18859,
     +     .90393,   1.28172,   1.38131,
     +     .12887,    .07246,  26.53859,   1.39790,   1.21919,
     +     .93670,   1.31208,   1.41150,
     +     .13031,    .07310,  26.92405,   1.42571,   1.24750,
     +     .96707,   1.34017,   1.43945,
     +     .13177,    .07375,  27.31096,   1.45400,   1.27629,
     +     .99791,   1.36874,   1.46786 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
     +     .08616,    .05308,   2.42055,    .21997,    .00169,
     +     .00000,    .12320,    .22934,
     +     .08889,    .05435,   2.86595,    .24266,    .00350,
     +     .00000,    .14329,    .25231,
     +     .09294,    .05622,   3.55845,    .27765,    .00744,
     +     .00000,    .17439,    .28771,
     +     .09585,    .05757,   4.06772,    .30350,    .01161,
     +     .00000,    .19755,    .31386,
     +     .09888,    .05897,   4.61119,    .33089,    .01767,
     +     .00000,    .22231,    .34156,
     +     .10148,    .06017,   5.08543,    .35449,    .02473,
     +     .00000,    .24389,    .36542,
     +     .10392,    .06130,   5.52653,    .37637,    .03345,
     +     .00000,    .26422,    .38755,
     +     .10652,    .06250,   6.00497,    .39935,    .04542,
     +     .00000,    .28597,    .41078 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
     +     .10877,    .06353,   6.42067,    .41869,    .05848,
     +     .00000,    .30471,    .43035,
     +     .11092,    .06452,   6.81379,    .43640,    .07366,
     +     .00000,    .32235,    .44827,
     +     .11263,    .06530,   7.13043,    .45005,    .08774,
     +     .00000,    .33629,    .46210,
     +     .11622,    .06695,   7.78994,    .47696,    .12366,
     +     .00000,    .36495,    .48936,
     +     .11928,    .06836,   8.34864,    .49813,    .16065,
     +     .00842,    .38879,    .51084,
     +     .12268,    .06991,   8.96346,    .52026,    .20695,
     +     .03332,    .41482,    .53330,
     +     .12617,    .07151,   9.58844,    .54252,    .25786,
     +     .07129,    .44163,    .55591,
     +     .12932,    .07295,  10.14474,    .56310,    .30406,
     +     .10314,    .46628,    .57680 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
     +     .13245,    .07437,  10.68234,    .58448,    .34856,
     +     .13561,    .49137,    .59848,
     +     .13503,    .07555,  11.11736,    .60316,    .38333,
     +     .16250,    .51269,    .61742,
     +     .13814,    .07696,  11.63498,    .62713,    .42277,
     +     .19515,    .53928,    .64169,
     +     .14086,    .07819,  12.07496,    .64915,    .45509,
     +     .22382,    .56312,    .66396,
     +     .14333,    .07931,  12.46430,    .66987,    .48290,
     +     .24991,    .58518,    .68492,
     +     .14644,    .08072,  12.94726,    .69697,    .51645,
     +     .28302,    .61361,    .71232,
     +     .14934,    .08202,  13.37833,    .72264,    .54630,
     +     .31373,    .64026,    .73827,
     +     .15202,    .08323,  13.76532,    .74679,    .57322,
     +     .34220,    .66516,    .76268 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
     +     .15469,    .08443,  14.14441,    .77122,    .59967,
     +     .37069,    .69023,    .78736,
     +     .15726,    .08558,  14.48963,    .79463,    .62460,
     +     .39788,    .71419,    .81101,
     +     .15969,    .08667,  14.80943,    .81689,    .64802,
     +     .42359,    .73694,    .83350,
     +     .16195,    .08768,  15.09556,    .83758,    .66964,
     +     .44745,    .75806,    .85440,
     +     .16420,    .08868,  15.37317,    .85825,    .69115,
     +     .47123,    .77916,    .87528,
     +     .16640,    .08966,  15.63328,    .87832,    .71198,
     +     .49431,    .79963,    .89555,
     +     .16848,    .09059,  15.87167,    .89724,    .73160,
     +     .51605,    .81893,    .91466,
     +     .17043,    .09145,  16.08542,    .91482,    .74982,
     +     .53626,    .83686,    .93242 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
     +     .17239,    .09232,  16.29747,    .93258,    .76821,
     +     .55665,    .85498,    .95036,
     +     .17429,    .09316,  16.48992,    .94956,    .78580,
     +     .57618,    .87230,    .96751,
     +     .17612,    .09396,  16.67414,    .96593,    .80275,
     +     .59498,    .88901,    .98405,
     +     .17782,    .09471,  16.83356,    .98092,    .81828,
     +     .61223,    .90430,    .99919,
     +     .17954,    .09547,  16.99186,    .99607,    .83399,
     +     .62967,    .91977,   1.01450 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
     +     .10831,    .06328,   2.48306,    .20897,    .00161,
     +     .00000,    .11704,    .22047,
     +     .11154,    .06480,   2.85603,    .22871,    .00328,
     +    -.00001,    .13459,    .24055,
     +     .11630,    .06702,   3.42442,    .25872,    .00682,
     +    -.00001,    .16141,    .27106,
     +     .11972,    .06862,   3.83560,    .28059,    .01050,
     +     .00000,    .18110,    .29328,
     +     .12327,    .07027,   4.26822,    .30348,    .01576,
     +     .00000,    .20192,    .31655,
     +     .12630,    .07168,   4.64087,    .32299,    .02182,
     +    -.00001,    .21988,    .33638,
     +     .12915,    .07301,   4.98384,    .34090,    .02924,
     +    -.00001,    .23664,    .35458,
     +     .13217,    .07441,   5.35164,    .35951,    .03935,
     +    -.00001,    .25441,    .37351 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
     +     .13477,    .07561,   5.66799,    .37502,    .05029,
     +    -.00001,    .26959,    .38929,
     +     .13726,    .07676,   5.96429,    .38908,    .06295,
     +    -.00001,    .28375,    .40359,
     +     .13922,    .07767,   6.20111,    .39982,    .07462,
     +    -.00001,    .29487,    .41454,
     +     .14335,    .07957,   6.68877,    .42070,    .10420,
     +    -.00001,    .31750,    .43584,
     +     .14686,    .08119,   7.09622,    .43685,    .13441,
     +     .00675,    .33609,    .45233,
     +     .15074,    .08297,   7.53871,    .45345,    .17191,
     +     .02661,    .35616,    .46933,
     +     .15471,    .08479,   7.98212,    .46994,    .21274,
     +     .05673,    .37662,    .48621,
     +     .15828,    .08641,   8.37150,    .48506,    .24942,
     +     .08176,    .39527,    .50169 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
     +     .16181,    .08802,   8.74224,    .50070,    .28436,
     +     .10707,    .41411,    .51768,
     +     .16472,    .08934,   9.03866,    .51434,    .31138,
     +     .12787,    .43002,    .53159,
     +     .16820,    .09092,   9.38738,    .53180,    .34169,
     +     .15296,    .44975,    .54939,
     +     .17124,    .09230,   9.67974,    .54778,    .36623,
     +     .17484,    .46734,    .56567,
     +     .17399,    .09354,   9.93509,    .56277,    .38713,
     +     .19462,    .48352,    .58092,
     +     .17745,    .09509,  10.24812,    .58228,    .41209,
     +     .21955,    .50426,    .60077,
     +     .18065,    .09653,  10.52307,    .60066,    .43404,
     +     .24251,    .52356,    .61944,
     +     .18361,    .09785,  10.76592,    .61782,    .45363,
     +     .26365,    .54145,    .63688 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
     +     .18655,    .09916,  11.00103,    .63508,    .47273,
     +     .28466,    .55936,    .65442,
     +     .18936,    .10041,  11.21121,    .65150,    .49058,
     +     .30459,    .57635,    .67110,
     +     .19201,    .10158,  11.40366,    .66703,    .50724,
     +     .32333,    .59239,    .68687,
     +     .19447,    .10267,  11.57279,    .68135,    .52250,
     +     .34061,    .60718,    .70142,
     +     .19692,    .10375,  11.73472,    .69558,    .53760,
     +     .35775,    .62185,    .71587,
     +     .19930,    .10480,  11.88396,    .70930,    .55213,
     +     .37428,    .63601,    .72981,
     +     .20154,    .10578,  12.01862,    .72215,    .56573,
     +     .38978,    .64927,    .74287,
     +     .20363,    .10670,  12.13691,    .73403,    .57829,
     +     .40412,    .66153,    .75493 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
     +     .20574,    .10762,  12.25312,    .74597,    .59092,
     +     .41852,    .67386,    .76706,
     +     .20777,    .10850,  12.35546,    .75729,    .60290,
     +     .43223,    .68555,    .77856,
     +     .20972,    .10935,  12.45310,    .76818,    .61442,
     +     .44539,    .69680,    .78962,
     +     .21152,    .11013,  12.53450,    .77806,    .62490,
     +     .45739,    .70701,    .79965,
     +     .21335,    .11092,  12.61444,    .78800,    .63544,
     +     .46946,    .71729,    .80976 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
     +     .12729,    .07226,   2.49979,    .20152,    .00155,
     +     .00000,    .11289,    .21496,
     +     .13091,    .07397,   2.82079,    .21910,    .00313,
     +    -.00001,    .12861,    .23292,
     +     .13621,    .07647,   3.30313,    .24555,    .00640,
     +    -.00001,    .15238,    .25994,
     +     .14001,    .07825,   3.64785,    .26463,    .00973,
     +     .00000,    .16966,    .27943,
     +     .14395,    .08009,   4.00681,    .28444,    .01445,
     +     .00000,    .18778,    .29966,
     +     .14730,    .08166,   4.31311,    .30119,    .01983,
     +    -.00001,    .20330,    .31676,
     +     .15045,    .08312,   4.59275,    .31644,    .02636,
     +    -.00001,    .21768,    .33234,
     +     .15378,    .08467,   4.89012,    .33217,    .03521,
     +    -.00001,    .23283,    .34842 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
     +     .15664,    .08600,   5.14393,    .34519,    .04474,
     +    -.00001,    .24569,    .36173,
     +     .15936,    .08726,   5.37991,    .35688,    .05571,
     +    -.00001,    .25761,    .37371,
     +     .16152,    .08825,   5.56744,    .36577,    .06579,
     +    -.00001,    .26692,    .38282,
     +     .16603,    .09034,   5.95016,    .38284,    .09120,
     +    -.00001,    .28573,    .40035,
     +     .16986,    .09210,   6.26648,    .39585,    .11700,
     +     .00570,    .30104,    .41375,
     +     .17406,    .09402,   6.60644,    .40906,    .14882,
     +     .02241,    .31743,    .42738,
     +     .17837,    .09599,   6.94323,    .42204,    .18322,
     +     .04763,    .33399,    .44078,
     +     .18222,    .09774,   7.23577,    .43388,    .21390,
     +     .06845,    .34900,    .45300 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
     +     .18602,    .09946,   7.51088,    .44607,    .24290,
     +     .08937,    .36407,    .46557,
     +     .18913,    .10087,   7.72857,    .45669,    .26515,
     +     .10648,    .37674,    .47649,
     +     .19286,    .10255,   7.98223,    .47028,    .28990,
     +     .12702,    .39240,    .49044,
     +     .19611,    .10401,   8.19227,    .48269,    .30977,
     +     .14482,    .40628,    .50315,
     +     .19903,    .10532,   8.37365,    .49429,    .32656,
     +     .16084,    .41900,    .51503,
     +     .20271,    .10695,   8.59371,    .50936,    .34645,
     +     .18094,    .43523,    .53045,
     +     .20609,    .10845,   8.78404,    .52347,    .36379,
     +     .19935,    .45025,    .54487,
     +     .20921,    .10983,   8.94971,    .53658,    .37915,
     +     .21621,    .46409,    .55827 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
     +     .21230,    .11119,   9.10843,    .54971,    .39403,
     +     .23289,    .47788,    .57169,
     +     .21525,    .11249,   9.24739,    .56212,    .40784,
     +     .24863,    .49089,    .58436,
     +     .21801,    .11370,   9.37324,    .57381,    .42066,
     +     .26338,    .50311,    .59630,
     +     .22058,    .11482,   9.48181,    .58452,    .43235,
     +     .27691,    .51431,    .60724,
     +     .22313,    .11592,   9.58424,    .59511,    .44385,
     +     .29027,    .52538,    .61805,
     +     .22559,    .11699,   9.67684,    .60526,    .45486,
     +     .30311,    .53599,    .62842,
     +     .22791,    .11799,   9.75898,    .61473,    .46512,
     +     .31510,    .54590,    .63810,
     +     .23007,    .11892,   9.82941,    .62343,    .47456,
     +     .32615,    .55500,    .64698 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
     +     .23223,    .11985,   9.89785,    .63215,    .48401,
     +     .33721,    .56413,    .65588,
     +     .23432,    .12074,   9.95571,    .64035,    .49292,
     +     .34769,    .57273,    .66425,
     +     .23631,    .12159,  10.01079,    .64821,    .50148,
     +     .35773,    .58098,    .67229,
     +     .23816,    .12237,  10.05429,    .65529,    .50920,
     +     .36683,    .58842,    .67952,
     +     .24002,    .12316,  10.09638,    .66240,    .51696,
     +     .37598,    .59589,    .68678 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
     +     .14421,    .08045,   2.49098,    .19582,    .00152,
     +     .00000,    .10979,    .21112,
     +     .14814,    .08231,   2.77185,    .21169,    .00302,
     +     .00000,    .12406,    .22741,
     +     .15389,    .08502,   3.18938,    .23538,    .00608,
     +     .00000,    .14547,    .25172,
     +     .15799,    .08695,   3.48493,    .25233,    .00916,
     +     .00000,    .16092,    .26911,
     +     .16223,    .08894,   3.79017,    .26981,    .01346,
     +     .00000,    .17702,    .28705,
     +     .16584,    .09062,   4.04872,    .28450,    .01832,
     +     .00000,    .19073,    .30212,
     +     .16922,    .09220,   4.28323,    .29779,    .02420,
     +     .00000,    .20336,    .31576,
     +     .17278,    .09385,   4.53092,    .31142,    .03211,
     +     .00000,    .21659,    .32977 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
     +     .17584,    .09527,   4.74096,    .32262,    .04059,
     +     .00000,    .22777,    .34128,
     +     .17875,    .09661,   4.93509,    .33262,    .05032,
     +     .00000,    .23808,    .35158,
     +     .18104,    .09767,   5.08866,    .34018,    .05923,
     +     .00000,    .24611,    .35937,
     +     .18584,    .09988,   5.39972,    .35456,    .08161,
     +     .00000,    .26222,    .37424,
     +     .18990,    .10174,   5.65434,    .36539,    .10422,
     +     .00497,    .27522,    .38547,
     +     .19436,    .10376,   5.92554,    .37625,    .13196,
     +     .01945,    .28905,    .39678,
     +     .19890,    .10582,   6.19161,    .38681,    .16180,
     +     .04124,    .30293,    .40780,
     +     .20294,    .10765,   6.42054,    .39641,    .18825,
     +     .05914,    .31544,    .41779 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
     +     .20694,    .10945,   6.63341,    .40626,    .21309,
     +     .07704,    .32794,    .42803,
     +     .21019,    .11091,   6.80027,    .41484,    .23204,
     +     .09161,    .33842,    .43691,
     +     .21409,    .11264,   6.99294,    .42582,    .25299,
     +     .10904,    .35132,    .44826,
     +     .21746,    .11414,   7.15045,    .43583,    .26969,
     +     .12408,    .36273,    .45858,
     +     .22050,    .11548,   7.28504,    .44517,    .28370,
     +     .13756,    .37313,    .46820,
     +     .22431,    .11716,   7.44677,    .45726,    .30020,
     +     .15442,    .38635,    .48064,
     +     .22780,    .11869,   7.58445,    .46854,    .31447,
     +     .16978,    .39853,    .49223,
     +     .23101,    .12009,   7.70261,    .47897,    .32705,
     +     .18379,    .40970,    .50295 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
     +     .23418,    .12147,   7.81467,    .48939,    .33917,
     +     .19761,    .42079,    .51365,
     +     .23720,    .12277,   7.91035,    .49917,    .35034,
     +     .21060,    .43119,    .52369,
     +     .24002,    .12399,   7.99595,    .50834,    .36067,
     +     .22271,    .44092,    .53310,
     +     .24264,    .12510,   8.06816,    .51671,    .37005,
     +     .23380,    .44980,    .54169,
     +     .24522,    .12621,   8.13510,    .52494,    .37924,
     +     .24470,    .45853,    .55014,
     +     .24772,    .12727,   8.19418,    .53279,    .38799,
     +     .25514,    .46687,    .55820,
     +     .25007,    .12826,   8.24539,    .54008,    .39613,
     +     .26486,    .47462,    .56569,
     +     .25224,    .12917,   8.28780,    .54674,    .40357,
     +     .27379,    .48171,    .57252 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
     +     .25443,    .13009,   8.32844,    .55339,    .41101,
     +     .28271,    .48880,    .57936,
     +     .25652,    .13096,   8.36080,    .55961,    .41799,
     +     .29113,    .49544,    .58574,
     +     .25852,    .13179,   8.39155,    .56556,    .42467,
     +     .29917,    .50179,    .59185,
     +     .26036,    .13255,   8.41363,    .57087,    .43067,
     +     .30644,    .50748,    .59730,
     +     .26221,    .13332,   8.43442,    .57619,    .43668,
     +     .31372,    .51319,    .60276 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
     +     .17400,    .09527,   2.43208,    .18717,    .00146,
     +     .00000,    .10525,    .20600,
     +     .17840,    .09735,   2.65404,    .20042,    .00286,
     +     .00000,    .11731,    .21972,
     +     .18482,    .10037,   2.97875,    .21995,    .00562,
     +     .00001,    .13520,    .23995,
     +     .18937,    .10250,   3.20529,    .23376,    .00831,
     +     .00001,    .14796,    .25424,
     +     .19406,    .10468,   3.43635,    .24787,    .01201,
     +     .00001,    .16113,    .26884,
     +     .19804,    .10653,   3.62982,    .25959,    .01613,
     +     .00001,    .17225,    .28098,
     +     .20176,    .10824,   3.80338,    .27010,    .02106,
     +     .00001,    .18241,    .29188,
     +     .20566,    .11003,   3.98476,    .28078,    .02763,
     +     .00001,    .19297,    .30295 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
     +     .20900,    .11156,   4.13700,    .28946,    .03463,
     +     .00001,    .20182,    .31197,
     +     .21216,    .11301,   4.27622,    .29713,    .04261,
     +     .00001,    .20992,    .31995,
     +     .21465,    .11414,   4.38554,    .30286,    .04988,
     +     .00001,    .21618,    .32593,
     +     .21984,    .11649,   4.60407,    .31361,    .06802,
     +     .00001,    .22863,    .33718,
     +     .22420,    .11845,   4.78026,    .32152,    .08620,
     +     .00398,    .23855,    .34551,
     +     .22897,    .12059,   4.96501,    .32929,    .10835,
     +     .01547,    .24898,    .35374,
     +     .23380,    .12274,   5.14301,    .33671,    .13197,
     +     .03268,    .25934,    .36161,
     +     .23809,    .12463,   5.29362,    .34339,    .15273,
     +     .04669,    .26861,    .36870 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
     +     .24229,    .12647,   5.43041,    .35023,    .17204,
     +     .06061,    .27778,    .37592,
     +     .24571,    .12796,   5.53572,    .35619,    .18664,
     +     .07187,    .28542,    .38218,
     +     .24977,    .12973,   5.65525,    .36381,    .20261,
     +     .08525,    .29480,    .39016,
     +     .25328,    .13124,   5.75067,    .37075,    .21521,
     +     .09672,    .30302,    .39740,
     +     .25642,    .13259,   5.83026,    .37720,    .22568,
     +     .10694,    .31048,    .40412,
     +     .26033,    .13426,   5.92388,    .38552,    .23786,
     +     .11964,    .31991,    .41277,
     +     .26390,    .13577,   6.00072,    .39322,    .24829,
     +     .13114,    .32851,    .42077,
     +     .26717,    .13714,   6.06420,    .40029,    .25738,
     +     .14156,    .33634,    .42810 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
     +     .27038,    .13848,   6.12284,    .40731,    .26607,
     +     .15178,    .34407,    .43538,
     +     .27342,    .13974,   6.16974,    .41382,    .27401,
     +     .16130,    .35123,    .44212,
     +     .27625,    .14090,   6.21038,    .41989,    .28129,
     +     .17016,    .35790,    .44841,
     +     .27886,    .14196,   6.24250,    .42536,    .28785,
     +     .17821,    .36393,    .45408,
     +     .28143,    .14301,   6.27060,    .43071,    .29424,
     +     .18609,    .36982,    .45962,
     +     .28389,    .14400,   6.29328,    .43576,    .30028,
     +     .19359,    .37540,    .46485,
     +     .28620,    .14493,   6.31123,    .44041,    .30585,
     +     .20054,    .38054,    .46966,
     +     .28833,    .14577,   6.32383,    .44460,    .31091,
     +     .20688,    .38520,    .47400 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
     +     .29046,    .14661,   6.33503,    .44876,    .31594,
     +     .21319,    .38984,    .47832,
     +     .29249,    .14741,   6.34054,    .45259,    .32062,
     +     .21911,    .39412,    .48228,
     +     .29442,    .14816,   6.34575,    .45625,    .32509,
     +     .22474,    .39822,    .48607,
     +     .29619,    .14885,   6.34566,    .45946,    .32905,
     +     .22980,    .40183,    .48939,
     +     .29796,    .14953,   6.34453,    .46265,    .33301,
     +     .23485,    .40544,    .49270 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
     +     .21230,    .11496,   2.29683,    .17754,    .00140,
     +     .00000,    .10049,    .20130,
     +     .21718,    .11722,   2.46082,    .18799,    .00269,
     +     .00000,    .11020,    .21225,
     +     .22425,    .12049,   2.69688,    .20319,    .00513,
     +     .00000,    .12444,    .22818,
     +     .22923,    .12277,   2.85899,    .21381,    .00743,
     +     .00000,    .13448,    .23930,
     +     .23435,    .12510,   3.02207,    .22453,    .01053,
     +     .00000,    .14474,    .25052,
     +     .23868,    .12705,   3.15685,    .23334,    .01391,
     +     .00000,    .15332,    .25975,
     +     .24268,    .12884,   3.27611,    .24115,    .01791,
     +     .00000,    .16109,    .26795,
     +     .24687,    .13072,   3.39927,    .24899,    .02318,
     +     .00000,    .16910,    .27619 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
     +     .25045,    .13231,   3.50142,    .25529,    .02873,
     +     .00000,    .17575,    .28282,
     +     .25381,    .13379,   3.59355,    .26078,    .03502,
     +     .00000,    .18179,    .28861,
     +     .25646,    .13495,   3.66526,    .26483,    .04071,
     +     .00000,    .18642,    .29290,
     +     .26193,    .13734,   3.80626,    .27225,    .05482,
     +     .00000,    .19552,    .30081,
     +     .26650,    .13932,   3.91743,    .27754,    .06885,
     +     .00305,    .20267,    .30650,
     +     .27147,    .14145,   4.03145,    .28257,    .08580,
     +     .01182,    .21009,    .31195,
     +     .27647,    .14357,   4.13851,    .28725,    .10371,
     +     .02489,    .21736,    .31705,
     +     .28087,    .14542,   4.22678,    .29142,    .11931,
     +     .03545,    .22378,    .32158 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
     +     .28514,    .14720,   4.30417,    .29567,    .13369,
     +     .04584,    .23008,    .32616,
     +     .28860,    .14863,   4.36189,    .29937,    .14444,
     +     .05420,    .23530,    .33013,
     +     .29269,    .15030,   4.42550,    .30414,    .15609,
     +     .06406,    .24166,    .33521,
     +     .29619,    .15171,   4.47400,    .30847,    .16516,
     +     .07246,    .24720,    .33979,
     +     .29930,    .15296,   4.51250,    .31248,    .17262,
     +     .07989,    .25218,    .34402,
     +     .30315,    .15450,   4.55581,    .31764,    .18119,
     +     .08907,    .25843,    .34945,
     +     .30663,    .15586,   4.58837,    .32237,    .18844,
     +     .09730,    .26406,    .35440,
     +     .30979,    .15708,   4.61279,    .32665,    .19467,
     +     .10471,    .26914,    .35889 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
     +     .31288,    .15827,   4.63376,    .33087,    .20058,
     +     .11194,    .27411,    .36331,
     +     .31577,    .15936,   4.64677,    .33471,    .20590,
     +     .11861,    .27864,    .36731,
     +     .31845,    .16037,   4.65647,    .33825,    .21075,
     +     .12478,    .28283,    .37101,
     +     .32090,    .16127,   4.66129,    .34140,    .21507,
     +     .13035,    .28657,    .37430,
     +     .32329,    .16215,   4.66329,    .34442,    .21924,
     +     .13577,    .29018,    .37745,
     +     .32557,    .16297,   4.66190,    .34724,    .22315,
     +     .14089,    .29356,    .38038,
     +     .32768,    .16373,   4.65818,    .34978,    .22672,
     +     .14561,    .29664,    .38303,
     +     .32962,    .16441,   4.65172,    .35204,    .22994,
     +     .14989,    .29940,    .38538 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
     +     .33154,    .16509,   4.64427,    .35426,    .23312,
     +     .15413,    .30212,    .38769,
     +     .33336,    .16571,   4.63315,    .35622,    .23603,
     +     .15807,    .30457,    .38973,
     +     .33509,    .16630,   4.62265,    .35810,    .23880,
     +     .16180,    .30692,    .39169,
     +     .33665,    .16681,   4.60939,    .35968,    .24122,
     +     .16513,    .30893,    .39333,
     +     .33821,    .16733,   4.59540,    .36124,    .24362,
     +     .16843,    .31093,    .39495 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
     +     .26630,    .14341,   2.04049,    .16514,    .00132,
     +    -.00002,    .09480,    .19622,
     +     .27160,    .14573,   2.14877,    .17246,    .00248,
     +    -.00002,    .10192,    .20403,
     +     .27922,    .14904,   2.30176,    .18299,    .00457,
     +    -.00001,    .11224,    .21522,
     +     .28454,    .15132,   2.40481,    .19023,    .00646,
     +    -.00002,    .11943,    .22291,
     +     .28996,    .15362,   2.50674,    .19744,    .00893,
     +    -.00002,    .12669,    .23057,
     +     .29449,    .15553,   2.58961,    .20330,    .01156,
     +    -.00002,    .13270,    .23677,
     +     .29865,    .15727,   2.66154,    .20840,    .01460,
     +    -.00002,    .13808,    .24220,
     +     .30299,    .15906,   2.73463,    .21344,    .01856,
     +    -.00002,    .14358,    .24756 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
     +     .30666,    .16055,   2.79416,    .21741,    .02267,
     +    -.00002,    .14809,    .25180,
     +     .31008,    .16194,   2.84671,    .22079,    .02729,
     +    -.00002,    .15214,    .25542,
     +     .31276,    .16302,   2.88713,    .22324,    .03144,
     +    -.00002,    .15522,    .25805,
     +     .31827,    .16519,   2.96428,    .22753,    .04162,
     +    -.00002,    .16117,    .26272,
     +     .32280,    .16697,   3.02285,    .23041,    .05163,
     +     .00216,    .16575,    .26588,
     +     .32767,    .16884,   3.08060,    .23296,    .06362,
     +     .00839,    .17040,    .26873,
     +     .33252,    .17067,   3.13216,    .23519,    .07617,
     +     .01763,    .17488,    .27125,
     +     .33673,    .17224,   3.17232,    .23715,    .08698,
     +     .02501,    .17878,    .27342 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
     +     .34078,    .17370,   3.20454,    .23911,    .09684,
     +     .03222,    .18254,    .27559,
     +     .34400,    .17485,   3.22668,    .24085,    .10413,
     +     .03796,    .18563,    .27748,
     +     .34778,    .17618,   3.24906,    .24314,    .11193,
     +     .04469,    .18936,    .27993,
     +     .35096,    .17727,   3.26352,    .24522,    .11792,
     +     .05036,    .19256,    .28215,
     +     .35375,    .17821,   3.27270,    .24714,    .12277,
     +     .05534,    .19541,    .28416,
     +     .35717,    .17934,   3.28064,    .24960,    .12828,
     +     .06144,    .19894,    .28673,
     +     .36021,    .18032,   3.28268,    .25180,    .13285,
     +     .06686,    .20207,    .28902,
     +     .36292,    .18116,   3.28057,    .25375,    .13672,
     +     .07170,    .20484,    .29104 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
     +     .36555,    .18196,   3.27631,    .25564,    .14034,
     +     .07638,    .20751,    .29299,
     +     .36795,    .18266,   3.26739,    .25727,    .14355,
     +     .08066,    .20988,    .29466,
     +     .37016,    .18329,   3.25741,    .25875,    .14643,
     +     .08458,    .21203,    .29616,
     +     .37213,    .18383,   3.24534,    .26000,    .14896,
     +     .08809,    .21391,    .29742,
     +     .37403,    .18433,   3.23151,    .26115,    .15137,
     +     .09147,    .21568,    .29859,
     +     .37582,    .18479,   3.21587,    .26217,    .15360,
     +     .09465,    .21729,    .29961,
     +     .37745,    .18518,   3.19965,    .26304,    .15561,
     +     .09754,    .21873,    .30047,
     +     .37891,    .18552,   3.18263,    .26376,    .15738,
     +     .10014,    .21997,    .30117 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
     +     .38034,    .18585,   3.16503,    .26445,    .15913,
     +     .10270,    .22118,    .30183,
     +     .38165,    .18613,   3.14534,    .26498,    .16069,
     +     .10506,    .22221,    .30232,
     +     .38290,    .18639,   3.12683,    .26548,    .16217,
     +     .10728,    .22320,    .30280,
     +     .38399,    .18659,   3.10731,    .26582,    .16343,
     +     .10923,    .22399,    .30310,
     +     .38506,    .18677,   3.08739,    .26613,    .16467,
     +     .11116,    .22475,    .30337 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
     +     .31294,    .16794,   1.79680,    .15450,    .00125,
     +    -.00001,    .09021,    .19191,
     +     .31834,    .17012,   1.87464,    .15978,    .00233,
     +    -.00001,    .09564,    .19756,
     +     .32605,    .17318,   1.98327,    .16729,    .00419,
     +    -.00001,    .10342,    .20557,
     +     .33139,    .17526,   2.05532,    .17240,    .00582,
     +    -.00001,    .10879,    .21101,
     +     .33678,    .17733,   2.12557,    .17742,    .00788,
     +    -.00001,    .11418,    .21635,
     +     .34125,    .17903,   2.18192,    .18145,    .01005,
     +    -.00001,    .11861,    .22061,
     +     .34531,    .18054,   2.22980,    .18491,    .01251,
     +    -.00001,    .12254,    .22428,
     +     .34952,    .18208,   2.27776,    .18827,    .01566,
     +    -.00002,    .12652,    .22784 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
     +     .35306,    .18335,   2.31612,    .19085,    .01891,
     +    -.00001,    .12975,    .23059,
     +     .35633,    .18451,   2.34919,    .19299,    .02252,
     +    -.00002,    .13262,    .23286,
     +     .35888,    .18541,   2.37433,    .19450,    .02574,
     +    -.00002,    .13479,    .23448,
     +     .36405,    .18717,   2.42057,    .19700,    .03360,
     +    -.00002,    .13891,    .23716,
     +     .36826,    .18857,   2.45409,    .19850,    .04126,
     +     .00166,    .14202,    .23881,
     +     .37273,    .19002,   2.48539,    .19967,    .05037,
     +     .00644,    .14511,    .24010,
     +     .37710,    .19138,   2.51119,    .20057,    .05984,
     +     .01348,    .14803,    .24109,
     +     .38085,    .19252,   2.52940,    .20131,    .06793,
     +     .01907,    .15052,    .24189 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
     +     .38439,    .19354,   2.54139,    .20205,    .07525,
     +     .02448,    .15289,    .24267,
     +     .38717,    .19431,   2.54779,    .20274,    .08061,
     +     .02877,    .15482,    .24338,
     +     .39038,    .19517,   2.55217,    .20370,    .08630,
     +     .03376,    .15712,    .24433,
     +     .39303,    .19584,   2.55201,    .20458,    .09062,
     +     .03794,    .15907,    .24519,
     +     .39533,    .19638,   2.54885,    .20540,    .09409,
     +     .04159,    .16078,    .24597,
     +     .39809,    .19701,   2.54219,    .20645,    .09797,
     +     .04603,    .16287,    .24696,
     +     .40049,    .19750,   2.53206,    .20734,    .10115,
     +     .04994,    .16468,    .24779,
     +     .40258,    .19789,   2.51966,    .20809,    .10381,
     +     .05341,    .16625,    .24845 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
     +     .40457,    .19823,   2.50581,    .20879,    .10627,
     +     .05675,    .16773,    .24907,
     +     .40632,    .19848,   2.48892,    .20931,    .10840,
     +     .05976,    .16898,    .24947,
     +     .40790,    .19868,   2.47199,    .20975,    .11030,
     +     .06250,    .17010,    .24980,
     +     .40927,    .19882,   2.45422,    .21006,    .11194,
     +     .06494,    .17104,    .25000,
     +     .41056,    .19891,   2.43529,    .21029,    .11348,
     +     .06728,    .17189,    .25012,
     +     .41173,    .19896,   2.41534,    .21044,    .11489,
     +     .06945,    .17262,    .25014,
     +     .41277,    .19898,   2.39554,    .21051,    .11614,
     +     .07142,    .17325,    .25008,
     +     .41366,    .19895,   2.37570,    .21049,    .11723,
     +     .07318,    .17376,    .24994 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
     +     .41452,    .19892,   2.35554,    .21045,    .11829,
     +     .07490,    .17423,    .24977,
     +     .41526,    .19882,   2.33417,    .21030,    .11921,
     +     .07647,    .17458,    .24949,
     +     .41596,    .19873,   2.31413,    .21016,    .12008,
     +     .07794,    .17491,    .24923,
     +     .41651,    .19859,   2.29378,    .20993,    .12079,
     +     .07922,    .17512,    .24886,
     +     .41704,    .19845,   2.27320,    .20967,    .12148,
     +     .08047,    .17530,    .24847 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
     +     .39278,    .20819,   1.40209,    .13526,    .00116,
     +     .00000,    .08196,    .18224,
     +     .39778,    .20973,   1.45208,    .13808,    .00211,
     +     .00000,    .08531,    .18511,
     +     .40480,    .21179,   1.52034,    .14199,    .00369,
     +     .00000,    .09004,    .18908,
     +     .40953,    .21312,   1.56425,    .14460,    .00500,
     +     .00000,    .09326,    .19168,
     +     .41421,    .21438,   1.60584,    .14710,    .00660,
     +     .00000,    .09644,    .19414,
     +     .41804,    .21536,   1.63817,    .14904,    .00821,
     +     .00001,    .09902,    .19601,
     +     .42142,    .21618,   1.66433,    .15062,    .00999,
     +     .00000,    .10127,    .19753,
     +     .42486,    .21697,   1.68971,    .15209,    .01222,
     +    -.00001,    .10350,    .19890 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
     +     .42769,    .21758,   1.70911,    .15313,    .01448,
     +    -.00001,    .10528,    .19984,
     +     .43025,    .21809,   1.72471,    .15390,    .01695,
     +    -.00001,    .10681,    .20051,
     +     .43222,    .21847,   1.73618,    .15438,    .01913,
     +     .00000,    .10795,    .20091,
     +     .43608,    .21911,   1.75501,    .15494,    .02436,
     +     .00000,    .11003,    .20124,
     +     .43912,    .21954,   1.76642,    .15500,    .02940,
     +     .00112,    .11151,    .20108,
     +     .44221,    .21989,   1.77460,    .15474,    .03532,
     +     .00427,    .11289,    .20055,
     +     .44509,    .22011,   1.77816,    .15425,    .04139,
     +     .00890,    .11411,    .19976,
     +     .44745,    .22020,   1.77767,    .15376,    .04651,
     +     .01252,    .11511,    .19900 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
     +     .44952,    .22017,   1.77275,    .15328,    .05109,
     +     .01599,    .11599,    .19819,
     +     .45106,    .22005,   1.76623,    .15291,    .05440,
     +     .01871,    .11668,    .19756,
     +     .45274,    .21984,   1.75611,    .15255,    .05785,
     +     .02183,    .11750,    .19686,
     +     .45402,    .21957,   1.74454,    .15226,    .06042,
     +     .02443,    .11816,    .19625,
     +     .45502,    .21925,   1.73202,    .15199,    .06244,
     +     .02667,    .11869,    .19569,
     +     .45613,    .21878,   1.71460,    .15165,    .06466,
     +     .02936,    .11931,    .19499,
     +     .45694,    .21825,   1.69581,    .15128,    .06642,
     +     .03170,    .11978,    .19425,
     +     .45752,    .21768,   1.67657,    .15088,    .06785,
     +     .03375,    .12014,    .19350 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
     +     .45801,    .21708,   1.65669,    .15046,    .06914,
     +     .03569,    .12044,    .19272,
     +     .45826,    .21641,   1.63528,    .14995,    .07022,
     +     .03742,    .12060,    .19184,
     +     .45841,    .21574,   1.61467,    .14944,    .07117,
     +     .03898,    .12072,    .19098,
     +     .45843,    .21507,   1.59428,    .14890,    .07195,
     +     .04035,    .12075,    .19011,
     +     .45835,    .21436,   1.57336,    .14831,    .07267,
     +     .04165,    .12073,    .18918,
     +     .45817,    .21362,   1.55219,    .14768,    .07329,
     +     .04282,    .12064,    .18822,
     +     .45793,    .21288,   1.53177,    .14705,    .07382,
     +     .04388,    .12051,    .18727,
     +     .45760,    .21216,   1.51195,    .14641,    .07426,
     +     .04480,    .12033,    .18632 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
     +     .45724,    .21142,   1.49208,    .14574,    .07468,
     +     .04570,    .12013,    .18536,
     +     .45676,    .21064,   1.47173,    .14503,    .07501,
     +     .04650,    .11986,    .18434,
     +     .45630,    .20990,   1.45273,    .14436,    .07533,
     +     .04725,    .11961,    .18338,
     +     .45574,    .20916,   1.43406,    .14366,    .07555,
     +     .04788,    .11930,    .18240,
     +     .45515,    .20840,   1.41535,    .14295,    .07576,
     +     .04849,    .11898,    .18141 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
     +     .46020,    .23900,   1.12967,    .11752,    .00111,
     +     .00000,    .07400,    .17037,
     +     .46423,    .23961,   1.16913,    .11899,    .00199,
     +     .00000,    .07617,    .17156,
     +     .46971,    .24030,   1.22159,    .12100,    .00340,
     +     .00000,    .07918,    .17310,
     +     .47327,    .24063,   1.25404,    .12228,    .00453,
     +     .00000,    .08120,    .17401,
     +     .47668,    .24084,   1.28369,    .12345,    .00586,
     +     .00000,    .08317,    .17477,
     +     .47938,    .24091,   1.30584,    .12429,    .00716,
     +     .00001,    .08472,    .17526,
     +     .48164,    .24086,   1.32257,    .12491,    .00857,
     +     .00000,    .08604,    .17551,
     +     .48387,    .24074,   1.33806,    .12540,    .01029,
     +     .00000,    .08732,    .17561 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
     +     .48563,    .24057,   1.34906,    .12566,    .01200,
     +     .00000,    .08831,    .17552,
     +     .48714,    .24031,   1.35688,    .12574,    .01384,
     +     .00000,    .08912,    .17525,
     +     .48828,    .24007,   1.36230,    .12571,    .01545,
     +     .00000,    .08971,    .17495,
     +     .49030,    .23946,   1.36892,    .12532,    .01927,
     +     .00000,    .09070,    .17394,
     +     .49173,    .23880,   1.37050,    .12469,    .02289,
     +     .00082,    .09131,    .17277,
     +     .49300,    .23796,   1.36848,    .12376,    .02708,
     +     .00310,    .09179,    .17122,
     +     .49397,    .23696,   1.36238,    .12266,    .03133,
     +     .00642,    .09213,    .16946,
     +     .49461,    .23594,   1.35394,    .12161,    .03488,
     +     .00900,    .09236,    .16786 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
     +     .49489,    .23480,   1.34191,    .12057,    .03800,
     +     .01144,    .09249,    .16623,
     +     .49494,    .23379,   1.33018,    .11976,    .04023,
     +     .01334,    .09257,    .16490,
     +     .49482,    .23251,   1.31442,    .11885,    .04252,
     +     .01550,    .09265,    .16334,
     +     .49449,    .23131,   1.29859,    .11805,    .04419,
     +     .01727,    .09266,    .16199,
     +     .49402,    .23015,   1.28277,    .11732,    .04547,
     +     .01878,    .09263,    .16076,
     +     .49328,    .22863,   1.26179,    .11641,    .04684,
     +     .02058,    .09255,    .15923,
     +     .49237,    .22712,   1.24051,    .11551,    .04790,
     +     .02212,    .09240,    .15775,
     +     .49132,    .22566,   1.21963,    .11466,    .04873,
     +     .02345,    .09219,    .15632 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
     +     .49019,    .22418,   1.19854,    .11380,    .04946,
     +     .02471,    .09195,    .15489,
     +     .48885,    .22267,   1.17667,    .11289,    .05003,
     +     .02581,    .09162,    .15343,
     +     .48752,    .22123,   1.15598,    .11202,    .05051,
     +     .02678,    .09129,    .15204,
     +     .48614,    .21982,   1.13602,    .11116,    .05089,
     +     .02762,    .09092,    .15069,
     +     .48468,    .21840,   1.11585,    .11028,    .05121,
     +     .02841,    .09052,    .14932,
     +     .48314,    .21697,   1.09579,    .10939,    .05148,
     +     .02911,    .09009,    .14795,
     +     .48161,    .21559,   1.07671,    .10852,    .05169,
     +     .02974,    .08965,    .14664,
     +     .48008,    .21426,   1.05847,    .10767,    .05185,
     +     .03028,    .08920,    .14538 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
     +     .47852,    .21292,   1.04033,    .10681,    .05199,
     +     .03079,    .08874,    .14411,
     +     .47684,    .21156,   1.02208,    .10594,    .05207,
     +     .03124,    .08823,    .14281,
     +     .47526,    .21028,   1.00510,    .10512,    .05214,
     +     .03165,    .08776,    .14159,
     +     .47365,    .20902,    .98869,    .10430,    .05216,
     +     .03199,    .08726,    .14039,
     +     .47201,    .20776,    .97234,    .10347,    .05217,
     +     .03231,    .08676,    .13919 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
     +     .51785,    .26192,    .95254,    .10111,    .00108,
     +     .00000,    .06614,    .15671,
     +     .52047,    .26149,    .98639,    .10184,    .00191,
     +    -.00001,    .06758,    .15681,
     +     .52384,    .26065,   1.02991,    .10277,    .00321,
     +    -.00001,    .06955,    .15682,
     +     .52583,    .25989,   1.05549,    .10330,    .00422,
     +     .00000,    .07083,    .15667,
     +     .52757,    .25897,   1.07775,    .10373,    .00538,
     +     .00000,    .07205,    .15635,
     +     .52882,    .25810,   1.09349,    .10398,    .00647,
     +    -.00001,    .07297,    .15596,
     +     .52969,    .25714,   1.10414,    .10406,    .00763,
     +    -.00001,    .07373,    .15543,
     +     .53044,    .25607,   1.11325,    .10402,    .00902,
     +     .00000,    .07443,    .15473 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
     +     .53091,    .25508,   1.11882,    .10385,    .01038,
     +     .00000,    .07494,    .15399,
     +     .53115,    .25405,   1.12159,    .10357,    .01182,
     +     .00000,    .07532,    .15316,
     +     .53128,    .25321,   1.12307,    .10327,    .01307,
     +    -.00001,    .07557,    .15244,
     +     .53118,    .25132,   1.12178,    .10241,    .01598,
     +    -.00001,    .07590,    .15064,
     +     .53077,    .24959,   1.11706,    .10144,    .01870,
     +     .00061,    .07600,    .14888,
     +     .53000,    .24757,   1.10859,    .10021,    .02182,
     +     .00235,    .07597,    .14676,
     +     .52887,    .24539,   1.09651,    .09883,    .02494,
     +     .00487,    .07581,    .14446,
     +     .52759,    .24334,   1.08324,    .09756,    .02751,
     +     .00679,    .07560,    .14239 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
     +     .52598,    .24117,   1.06711,    .09631,    .02973,
     +     .00860,    .07532,    .14029,
     +     .52445,    .23933,   1.05244,    .09530,    .03130,
     +     .00998,    .07506,    .13860,
     +     .52243,    .23708,   1.03363,    .09414,    .03287,
     +     .01155,    .07473,    .13662,
     +     .52045,    .23503,   1.01568,    .09313,    .03399,
     +     .01282,    .07441,    .13491,
     +     .51847,    .23311,    .99837,    .09222,    .03483,
     +     .01389,    .07407,    .13334,
     +     .51584,    .23067,    .97597,    .09108,    .03570,
     +     .01516,    .07362,    .13139,
     +     .51315,    .22831,    .95398,    .09000,    .03633,
     +     .01622,    .07314,    .12954,
     +     .51049,    .22607,    .93288,    .08897,    .03681,
     +     .01713,    .07265,    .12782 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
     +     .50778,    .22384,    .91189,    .08794,    .03721,
     +     .01797,    .07215,    .12611,
     +     .50492,    .22159,    .89067,    .08689,    .03749,
     +     .01870,    .07159,    .12440,
     +     .50217,    .21948,    .87081,    .08590,    .03772,
     +     .01934,    .07105,    .12279,
     +     .49944,    .21748,    .85193,    .08496,    .03787,
     +     .01990,    .07050,    .12126,
     +     .49666,    .21546,    .83308,    .08400,    .03799,
     +     .02040,    .06993,    .11972,
     +     .49384,    .21346,    .81457,    .08305,    .03806,
     +     .02083,    .06936,    .11821,
     +     .49111,    .21156,    .79714,    .08214,    .03810,
     +     .02121,    .06879,    .11677,
     +     .48845,    .20976,    .78066,    .08126,    .03811,
     +     .02153,    .06822,    .11540 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
     +     .48577,    .20795,    .76437,    .08039,    .03811,
     +     .02184,    .06766,    .11403,
     +     .48301,    .20613,    .74819,    .07950,    .03806,
     +     .02210,    .06707,    .11267,
     +     .48041,    .20442,    .73319,    .07866,    .03801,
     +     .02234,    .06652,    .11139,
     +     .47784,    .20276,    .71886,    .07785,    .03793,
     +     .02252,    .06597,    .11015,
     +     .47525,    .20110,    .70465,    .07704,    .03784,
     +     .02269,    .06541,    .10891 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
     +     .57769,    .28112,    .82304,    .08259,    .00105,
     +    -.00001,    .05660,    .13823,
     +     .57815,    .27935,    .85048,    .08285,    .00185,
     +     .00000,    .05750,    .13750,
     +     .57831,    .27660,    .88381,    .08308,    .00304,
     +    -.00001,    .05867,    .13631,
     +     .57798,    .27447,    .90162,    .08312,    .00394,
     +    -.00001,    .05938,    .13534,
     +     .57732,    .27215,    .91564,    .08306,    .00493,
     +    -.00001,    .06001,    .13423,
     +     .57650,    .27010,    .92430,    .08292,    .00585,
     +    -.00001,    .06047,    .13318,
     +     .57539,    .26804,    .92837,    .08265,    .00679,
     +    -.00001,    .06079,    .13207,
     +     .57406,    .26583,    .93064,    .08228,    .00789,
     +    -.00001,    .06104,    .13081 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
     +     .57272,    .26389,    .93047,    .08187,    .00894,
     +     .00000,    .06119,    .12962,
     +     .57124,    .26195,    .92800,    .08136,    .01003,
     +    -.00001,    .06124,    .12840,
     +     .57001,    .26040,    .92543,    .08091,    .01096,
     +    -.00001,    .06124,    .12739,
     +     .56704,    .25705,    .91620,    .07979,    .01311,
     +     .00000,    .06110,    .12506,
     +     .56420,    .25409,    .90534,    .07868,    .01508,
     +     .00045,    .06084,    .12293,
     +     .56076,    .25076,    .89076,    .07732,    .01730,
     +     .00173,    .06044,    .12046,
     +     .55689,    .24727,    .87321,    .07587,    .01948,
     +     .00358,    .05994,    .11787,
     +     .55319,    .24406,    .85570,    .07454,    .02123,
     +     .00497,    .05944,    .11558 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
     +     .54915,    .24079,    .83616,    .07325,    .02272,
     +     .00625,    .05888,    .11326,
     +     .54567,    .23806,    .81919,    .07220,    .02375,
     +     .00723,    .05841,    .11139,
     +     .54133,    .23476,    .79817,    .07098,    .02475,
     +     .00832,    .05782,    .10920,
     +     .53733,    .23183,    .77887,    .06991,    .02544,
     +     .00918,    .05729,    .10730,
     +     .53355,    .22911,    .76078,    .06894,    .02593,
     +     .00990,    .05677,    .10560,
     +     .52867,    .22569,    .73787,    .06775,    .02640,
     +     .01075,    .05611,    .10350,
     +     .52391,    .22249,    .71599,    .06663,    .02673,
     +     .01144,    .05545,    .10151,
     +     .51935,    .21948,    .69548,    .06557,    .02694,
     +     .01203,    .05481,    .09968 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
     +     .51478,    .21650,    .67536,    .06454,    .02710,
     +     .01257,    .05417,    .09788,
     +     .51013,    .21356,    .65545,    .06350,    .02718,
     +     .01302,    .05349,    .09611,
     +     .50573,    .21082,    .63705,    .06254,    .02722,
     +     .01341,    .05286,    .09446,
     +     .50151,    .20823,    .61985,    .06162,    .02722,
     +     .01373,    .05224,    .09291,
     +     .49726,    .20565,    .60287,    .06069,    .02720,
     +     .01402,    .05161,    .09138,
     +     .49303,    .20310,    .58641,    .05978,    .02715,
     +     .01427,    .05098,    .08988,
     +     .48898,    .20071,    .57105,    .05893,    .02707,
     +     .01449,    .05037,    .08847,
     +     .48508,    .19846,    .55671,    .05812,    .02698,
     +     .01465,    .04980,    .08713 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
     +     .48117,    .19622,    .54262,    .05731,    .02689,
     +     .01481,    .04922,    .08581,
     +     .47725,    .19397,    .52880,    .05650,    .02677,
     +     .01494,    .04863,    .08449,
     +     .47357,    .19187,    .51605,    .05574,    .02665,
     +     .01506,    .04807,    .08327,
     +     .46999,    .18987,    .50402,    .05500,    .02652,
     +     .01514,    .04753,    .08210,
     +     .46640,    .18786,    .49215,    .05427,    .02638,
     +     .01520,    .04699,    .08094 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
     +     .62478,    .29144,    .75608,    .06649,    .00102,
     +    -.00002,    .04763,    .11936,
     +     .62281,    .28839,    .77567,    .06650,    .00178,
     +    -.00002,    .04821,    .11818,
     +     .61945,    .28377,    .79719,    .06638,    .00289,
     +    -.00003,    .04891,    .11635,
     +     .61658,    .28037,    .80655,    .06621,    .00370,
     +    -.00003,    .04929,    .11494,
     +     .61329,    .27678,    .81194,    .06593,    .00456,
     +    -.00002,    .04958,    .11339,
     +     .61027,    .27365,    .81344,    .06558,    .00534,
     +    -.00003,    .04975,    .11202,
     +     .60708,    .27060,    .81112,    .06516,    .00610,
     +    -.00003,    .04981,    .11063,
     +     .60356,    .26737,    .80692,    .06465,    .00698,
     +    -.00003,    .04981,    .10910 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
     +     .60037,    .26456,    .80147,    .06413,    .00781,
     +    -.00003,    .04976,    .10772,
     +     .59711,    .26182,    .79432,    .06357,    .00865,
     +    -.00003,    .04963,    .10632,
     +     .59450,    .25967,    .78820,    .06308,    .00936,
     +    -.00002,    .04949,    .10520,
     +     .58863,    .25504,    .77222,    .06191,    .01097,
     +    -.00003,    .04910,    .10267,
     +     .58337,    .25105,    .75635,    .06081,    .01241,
     +     .00032,    .04866,    .10043,
     +     .57729,    .24662,    .73700,    .05951,    .01401,
     +     .00130,    .04809,    .09791,
     +     .57076,    .24205,    .71541,    .05812,    .01554,
     +     .00269,    .04742,    .09531,
     +     .56474,    .23790,    .69497,    .05687,    .01676,
     +     .00373,    .04680,    .09299 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
     +     .55840,    .23373,    .67328,    .05564,    .01777,
     +     .00467,    .04613,    .09071,
     +     .55307,    .23029,    .65501,    .05464,    .01844,
     +     .00538,    .04557,    .08888,
     +     .54658,    .22616,    .63292,    .05347,    .01907,
     +     .00615,    .04489,    .08672,
     +     .54070,    .22255,    .61319,    .05249,    .01949,
     +     .00676,    .04427,    .08483,
     +     .53525,    .21924,    .59512,    .05159,    .01976,
     +     .00727,    .04370,    .08315,
     +     .52833,    .21512,    .57260,    .05047,    .02000,
     +     .00785,    .04298,    .08108,
     +     .52172,    .21126,    .55155,    .04943,    .02014,
     +     .00830,    .04227,    .07917,
     +     .51550,    .20767,    .53216,    .04845,    .02019,
     +     .00868,    .04160,    .07742 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
     +     .50933,    .20415,    .51337,    .04749,    .02021,
     +     .00903,    .04094,    .07571,
     +     .50314,    .20071,    .49514,    .04655,    .02018,
     +     .00932,    .04027,    .07404,
     +     .49734,    .19752,    .47847,    .04568,    .02013,
     +     .00957,    .03964,    .07249,
     +     .49183,    .19454,    .46306,    .04487,    .02005,
     +     .00976,    .03903,    .07105,
     +     .48632,    .19159,    .44801,    .04405,    .01996,
     +     .00993,    .03842,    .06963,
     +     .48088,    .18871,    .43357,    .04324,    .01984,
     +     .01007,    .03782,    .06825,
     +     .47573,    .18599,    .42022,    .04249,    .01973,
     +     .01018,    .03725,    .06696,
     +     .47084,    .18343,    .40786,    .04179,    .01960,
     +     .01027,    .03671,    .06575 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
     +     .46595,    .18090,    .39581,    .04109,    .01947,
     +     .01035,    .03617,    .06455,
     +     .46106,    .17842,    .38414,    .04041,    .01932,
     +     .01041,    .03562,    .06336,
     +     .45648,    .17611,    .37341,    .03977,    .01918,
     +     .01047,    .03512,    .06225,
     +     .45208,    .17388,    .36337,    .03915,    .01903,
     +     .01049,    .03463,    .06123,
     +     .44769,    .17167,    .35353,    .03853,    .01887,
     +     .01051,    .03414,    .06022 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
     +     .65978,    .29429,    .72150,    .05274,    .00098,
     +    -.00001,    .03949,    .10111,
     +     .65524,    .29009,    .73194,    .05266,    .00169,
     +    -.00001,    .03983,    .09971,
     +     .64817,    .28388,    .74033,    .05243,    .00270,
     +    -.00001,    .04021,    .09759,
     +     .64271,    .27936,    .74079,    .05216,    .00341,
     +    -.00001,    .04038,    .09599,
     +     .63676,    .27464,    .73745,    .05178,    .00414,
     +    -.00001,    .04046,    .09428,
     +     .63149,    .27063,    .73196,    .05140,    .00480,
     +    -.00001,    .04045,    .09277,
     +     .62620,    .26675,    .72363,    .05095,    .00542,
     +    -.00001,    .04037,    .09127,
     +     .62053,    .26268,    .71349,    .05041,    .00613,
     +    -.00001,    .04022,    .08966 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
     +     .61552,    .25915,    .70332,    .04989,    .00678,
     +    -.00001,    .04005,    .08821,
     +     .61052,    .25576,    .69210,    .04933,    .00742,
     +    -.00001,    .03982,    .08679,
     +     .60655,    .25312,    .68298,    .04887,    .00796,
     +    -.00001,    .03963,    .08566,
     +     .59792,    .24746,    .66153,    .04778,    .00915,
     +    -.00001,    .03910,    .08319,
     +     .59035,    .24265,    .64181,    .04676,    .01020,
     +     .00026,    .03859,    .08105,
     +     .58179,    .23737,    .61900,    .04557,    .01134,
     +     .00101,    .03795,    .07864,
     +     .57280,    .23197,    .59468,    .04434,    .01242,
     +     .00205,    .03725,    .07617,
     +     .56463,    .22712,    .57250,    .04323,    .01325,
     +     .00281,    .03660,    .07400 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
     +     .55626,    .22227,    .54976,    .04212,    .01393,
     +     .00351,    .03590,    .07187,
     +     .54927,    .21832,    .53105,    .04125,    .01435,
     +     .00402,    .03533,    .07015,
     +     .54083,    .21361,    .50883,    .04023,    .01474,
     +     .00457,    .03466,    .06814,
     +     .53331,    .20951,    .48943,    .03934,    .01497,
     +     .00500,    .03404,    .06642,
     +     .52643,    .20579,    .47195,    .03855,    .01511,
     +     .00534,    .03348,    .06487,
     +     .51778,    .20115,    .45050,    .03757,    .01520,
     +     .00573,    .03277,    .06297,
     +     .50959,    .19687,    .43081,    .03665,    .01522,
     +     .00606,    .03211,    .06123,
     +     .50194,    .19292,    .41296,    .03581,    .01520,
     +     .00631,    .03147,    .05964 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
     +     .49438,    .18907,    .39584,    .03499,    .01515,
     +     .00653,    .03084,    .05811,
     +     .48695,    .18533,    .37948,    .03418,    .01505,
     +     .00671,    .03022,    .05661,
     +     .48001,    .18186,    .36464,    .03343,    .01495,
     +     .00685,    .02964,    .05524,
     +     .47347,    .17864,    .35108,    .03274,    .01484,
     +     .00696,    .02909,    .05396,
     +     .46696,    .17545,    .33796,    .03206,    .01472,
     +     .00706,    .02854,    .05271,
     +     .46059,    .17236,    .32549,    .03138,    .01459,
     +     .00715,    .02800,    .05151,
     +     .45458,    .16947,    .31406,    .03074,    .01445,
     +     .00721,    .02749,    .05039,
     +     .44892,    .16676,    .30357,    .03015,    .01431,
     +     .00725,    .02701,    .04935 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
     +     .44328,    .16409,    .29340,    .02956,    .01417,
     +     .00728,    .02653,    .04833,
     +     .43768,    .16147,    .28361,    .02900,    .01402,
     +     .00730,    .02607,    .04731,
     +     .43244,    .15903,    .27465,    .02848,    .01388,
     +     .00731,    .02563,    .04636,
     +     .42744,    .15672,    .26636,    .02797,    .01374,
     +     .00731,    .02521,    .04548,
     +     .42245,    .15442,    .25826,    .02747,    .01359,
     +     .00731,    .02480,    .04461 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
     +     .68326,    .29101,    .69980,    .04126,    .00092,
     +    -.00002,    .03221,    .08416,
     +     .67614,    .28584,    .70048,    .04116,    .00157,
     +    -.00002,    .03243,    .08269,
     +     .66540,    .27827,    .69553,    .04089,    .00248,
     +    -.00002,    .03263,    .08049,
     +     .65738,    .27282,    .68732,    .04059,    .00310,
     +    -.00003,    .03266,    .07887,
     +     .64885,    .26719,    .67578,    .04021,    .00373,
     +    -.00003,    .03261,    .07715,
     +     .64144,    .26243,    .66395,    .03983,    .00426,
     +    -.00003,    .03252,    .07565,
     +     .63418,    .25788,    .65035,    .03939,    .00477,
     +    -.00002,    .03235,    .07419,
     +     .62647,    .25313,    .63517,    .03889,    .00532,
     +    -.00002,    .03214,    .07262 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
     +     .61972,    .24905,    .62115,    .03840,    .00583,
     +    -.00002,    .03192,    .07123,
     +     .61312,    .24515,    .60672,    .03789,    .00632,
     +    -.00002,    .03165,    .06989,
     +     .60792,    .24211,    .59527,    .03746,    .00672,
     +    -.00001,    .03143,    .06883,
     +     .59676,    .23568,    .56980,    .03647,    .00760,
     +    -.00001,    .03088,    .06654,
     +     .58710,    .23026,    .54743,    .03560,    .00837,
     +     .00020,    .03035,    .06453,
     +     .57634,    .22434,    .52245,    .03458,    .00918,
     +     .00077,    .02972,    .06234,
     +     .56518,    .21834,    .49673,    .03351,    .00993,
     +     .00156,    .02903,    .06014,
     +     .55512,    .21302,    .47386,    .03258,    .01049,
     +     .00214,    .02841,    .05816 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
     +     .54493,    .20771,    .45103,    .03165,    .01093,
     +     .00265,    .02776,    .05626,
     +     .53654,    .20340,    .43261,    .03089,    .01119,
     +     .00302,    .02723,    .05473,
     +     .52647,    .19832,    .41109,    .03001,    .01141,
     +     .00341,    .02660,    .05296,
     +     .51761,    .19390,    .39260,    .02925,    .01152,
     +     .00373,    .02603,    .05145,
     +     .50951,    .18993,    .37619,    .02858,    .01157,
     +     .00397,    .02552,    .05009,
     +     .49937,    .18503,    .35630,    .02776,    .01158,
     +     .00423,    .02487,    .04842,
     +     .48995,    .18049,    .33833,    .02698,    .01154,
     +     .00446,    .02426,    .04691,
     +     .48117,    .17634,    .32224,    .02628,    .01148,
     +     .00462,    .02370,    .04551 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
     +     .47254,    .17231,    .30697,    .02560,    .01140,
     +     .00476,    .02315,    .04416,
     +     .46415,    .16840,    .29256,    .02493,    .01127,
     +     .00488,    .02260,    .04290,
     +     .45634,    .16480,    .27961,    .02431,    .01115,
     +     .00497,    .02209,    .04173,
     +     .44901,    .16148,    .26788,    .02374,    .01103,
     +     .00503,    .02161,    .04065,
     +     .44175,    .15821,    .25661,    .02318,    .01090,
     +     .00508,    .02114,    .03959,
     +     .43468,    .15505,    .24600,    .02263,    .01077,
     +     .00511,    .02068,    .03857,
     +     .42804,    .15210,    .23634,    .02212,    .01063,
     +     .00514,    .02025,    .03762,
     +     .42180,    .14935,    .22757,    .02165,    .01051,
     +     .00516,    .01985,    .03674 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
     +     .41562,    .14663,    .21909,    .02118,    .01037,
     +     .00517,    .01945,    .03588,
     +     .40953,    .14397,    .21099,    .02072,    .01023,
     +     .00518,    .01906,    .03505,
     +     .40385,    .14150,    .20360,    .02029,    .01010,
     +     .00518,    .01869,    .03429,
     +     .39843,    .13919,    .19682,    .01989,    .00997,
     +     .00517,    .01835,    .03356,
     +     .39304,    .13690,    .19022,    .01949,    .00984,
     +     .00515,    .01800,    .03284 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
     +     .69585,    .28274,    .67909,    .03184,    .00085,
     +    -.00002,    .02592,    .06884,
     +     .68629,    .27676,    .67038,    .03173,    .00144,
     +    -.00002,    .02605,    .06743,
     +     .67207,    .26809,    .65305,    .03147,    .00223,
     +    -.00002,    .02613,    .06533,
     +     .66165,    .26192,    .63715,    .03119,    .00276,
     +    -.00002,    .02609,    .06379,
     +     .65072,    .25559,    .61858,    .03083,    .00329,
     +    -.00002,    .02598,    .06216,
     +     .64134,    .25026,    .60151,    .03049,    .00374,
     +    -.00002,    .02583,    .06076,
     +     .63225,    .24521,    .58370,    .03009,    .00414,
     +    -.00001,    .02563,    .05939,
     +     .62268,    .23997,    .56461,    .02963,    .00458,
     +    -.00001,    .02539,    .05795 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
     +     .61438,    .23550,    .54772,    .02921,    .00496,
     +    -.00001,    .02514,    .05670,
     +     .60636,    .23122,    .53102,    .02875,    .00533,
     +    -.00001,    .02487,    .05548,
     +     .60007,    .22789,    .51799,    .02839,    .00563,
     +    -.00002,    .02465,    .05453,
     +     .58662,    .22099,    .49002,    .02757,    .00627,
     +    -.00002,    .02411,    .05246,
     +     .57515,    .21516,    .46626,    .02682,    .00681,
     +     .00015,    .02361,    .05071,
     +     .56251,    .20881,    .44040,    .02596,    .00738,
     +     .00058,    .02303,    .04880,
     +     .54952,    .20243,    .41443,    .02507,    .00789,
     +     .00118,    .02242,    .04685,
     +     .53787,    .19683,    .39182,    .02429,    .00826,
     +     .00162,    .02186,    .04516 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
     +     .52620,    .19126,    .36972,    .02352,    .00853,
     +     .00200,    .02128,    .04352,
     +     .51665,    .18678,    .35219,    .02290,    .00868,
     +     .00227,    .02080,    .04220,
     +     .50527,    .18151,    .33198,    .02218,    .00880,
     +     .00257,    .02024,    .04066,
     +     .49531,    .17695,    .31485,    .02157,    .00884,
     +     .00278,    .01975,    .03936,
     +     .48629,    .17285,    .29984,    .02101,    .00884,
     +     .00296,    .01930,    .03820,
     +     .47507,    .16781,    .28185,    .02032,    .00880,
     +     .00315,    .01873,    .03680,
     +     .46468,    .16318,    .26583,    .01968,    .00872,
     +     .00329,    .01821,    .03554,
     +     .45507,    .15897,    .25163,    .01910,    .00863,
     +     .00340,    .01772,    .03438 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
     +     .44568,    .15490,    .23827,    .01855,    .00854,
     +     .00350,    .01724,    .03325,
     +     .43655,    .15100,    .22583,    .01801,    .00842,
     +     .00357,    .01678,    .03217,
     +     .42810,    .14740,    .21473,    .01752,    .00831,
     +     .00361,    .01636,    .03119,
     +     .42023,    .14407,    .20478,    .01707,    .00819,
     +     .00364,    .01595,    .03031,
     +     .41247,    .14081,    .19528,    .01662,    .00806,
     +     .00366,    .01556,    .02944,
     +     .40496,    .13768,    .18637,    .01618,    .00793,
     +     .00368,    .01519,    .02860,
     +     .39792,    .13476,    .17833,    .01578,    .00781,
     +     .00369,    .01484,    .02783,
     +     .39132,    .13205,    .17108,    .01541,    .00770,
     +     .00369,    .01451,    .02711 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
     +     .38480,    .12939,    .16410,    .01504,    .00759,
     +     .00370,    .01418,    .02641,
     +     .37839,    .12681,    .15748,    .01469,    .00746,
     +     .00369,    .01386,    .02574,
     +     .37242,    .12441,    .15146,    .01436,    .00734,
     +     .00368,    .01356,    .02512,
     +     .36678,    .12215,    .14598,    .01405,    .00723,
     +     .00367,    .01328,    .02453,
     +     .36119,    .11992,    .14068,    .01374,    .00712,
     +     .00365,    .01301,    .02395 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
     +     .69835,    .27051,    .65309,    .02421,    .00078,
     +     .00006,    .02057,    .05542,
     +     .68649,    .26395,    .63611,    .02412,    .00129,
     +     .00005,    .02063,    .05413,
     +     .66908,    .25449,    .60829,    .02390,    .00197,
     +     .00005,    .02062,    .05220,
     +     .65649,    .24780,    .58614,    .02366,    .00241,
     +     .00004,    .02054,    .05081,
     +     .64338,    .24099,    .56209,    .02336,    .00284,
     +     .00003,    .02039,    .04933,
     +     .63221,    .23531,    .54109,    .02308,    .00320,
     +     .00004,    .02023,    .04804,
     +     .62155,    .22991,    .52029,    .02273,    .00351,
     +     .00003,    .02003,    .04684,
     +     .61037,    .22435,    .49860,    .02235,    .00384,
     +     .00003,    .01978,    .04557 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
     +     .60071,    .21965,    .47992,    .02201,    .00413,
     +     .00004,    .01953,    .04446,
     +     .59146,    .21515,    .46194,    .02162,    .00440,
     +     .00004,    .01927,    .04340,
     +     .58425,    .21166,    .44809,    .02131,    .00462,
     +     .00005,    .01906,    .04257,
     +     .56893,    .20442,    .41904,    .02063,    .00508,
     +     .00002,    .01858,    .04078,
     +     .55593,    .19840,    .39499,    .02004,    .00546,
     +     .00014,    .01813,    .03928,
     +     .54171,    .19189,    .36939,    .01936,    .00584,
     +     .00047,    .01762,    .03764,
     +     .52724,    .18533,    .34418,    .01864,    .00617,
     +     .00091,    .01709,    .03599,
     +     .51440,    .17959,    .32258,    .01800,    .00640,
     +     .00123,    .01659,    .03458 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
     +     .50159,    .17395,    .30187,    .01737,    .00656,
     +     .00151,    .01610,    .03320,
     +     .49116,    .16942,    .28565,    .01687,    .00665,
     +     .00170,    .01570,    .03210,
     +     .47880,    .16410,    .26715,    .01629,    .00669,
     +     .00190,    .01521,    .03082,
     +     .46806,    .15951,    .25170,    .01578,    .00669,
     +     .00206,    .01479,    .02975,
     +     .45837,    .15542,    .23832,    .01533,    .00667,
     +     .00218,    .01441,    .02880,
     +     .44638,    .15042,    .22243,    .01478,    .00661,
     +     .00230,    .01393,    .02764,
     +     .43530,    .14587,    .20843,    .01429,    .00652,
     +     .00239,    .01350,    .02658,
     +     .42513,    .14172,    .19616,    .01384,    .00643,
     +     .00246,    .01310,    .02562 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
     +     .41523,    .13770,    .18469,    .01340,    .00634,
     +     .00253,    .01271,    .02471,
     +     .40566,    .13389,    .17413,    .01298,    .00623,
     +     .00257,    .01232,    .02384,
     +     .39684,    .13039,    .16476,    .01259,    .00613,
     +     .00259,    .01197,    .02305,
     +     .38868,    .12715,    .15643,    .01222,    .00601,
     +     .00260,    .01165,    .02235,
     +     .38064,    .12399,    .14853,    .01187,    .00590,
     +     .00262,    .01133,    .02166,
     +     .37286,    .12095,    .14120,    .01155,    .00579,
     +     .00263,    .01103,    .02098,
     +     .36561,    .11814,    .13460,    .01124,    .00569,
     +     .00263,    .01075,    .02036,
     +     .35885,    .11555,    .12866,    .01095,    .00559,
     +     .00262,    .01049,    .01979 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
     +     .35218,    .11300,    .12298,    .01066,    .00549,
     +     .00261,    .01023,    .01923,
     +     .34567,    .11052,    .11765,    .01038,    .00538,
     +     .00259,    .00998,    .01871,
     +     .33962,    .10822,    .11282,    .01011,    .00528,
     +     .00258,    .00974,    .01823,
     +     .33390,    .10608,    .10844,    .00987,    .00519,
     +     .00257,    .00952,    .01777,
     +     .32823,    .10396,    .10421,    .00964,    .00511,
     +     .00255,    .00931,    .01732 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
     +     .69133,    .25557,    .61945,    .01837,    .00058,
     +    -.00017,    .01591,    .04391,
     +     .67746,    .24858,    .59572,    .01831,    .00103,
     +    -.00016,    .01595,    .04274,
     +     .65730,    .23856,    .55970,    .01809,    .00161,
     +    -.00015,    .01592,    .04107,
     +     .64283,    .23156,    .53296,    .01787,    .00198,
     +    -.00016,    .01583,    .03983,
     +     .62789,    .22445,    .50512,    .01761,    .00234,
     +    -.00016,    .01569,    .03853,
     +     .61528,    .21852,    .48157,    .01735,    .00262,
     +    -.00014,    .01552,    .03745,
     +     .60326,    .21297,    .45905,    .01708,    .00286,
     +    -.00014,    .01534,    .03639,
     +     .59074,    .20724,    .43599,    .01676,    .00312,
     +    -.00014,    .01512,    .03528 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
     +     .58003,    .20237,    .41652,    .01646,    .00334,
     +    -.00013,    .01493,    .03432,
     +     .56979,    .19779,    .39814,    .01614,    .00354,
     +    -.00013,    .01470,    .03343,
     +     .56181,    .19425,    .38411,    .01589,    .00369,
     +    -.00012,    .01450,    .03274,
     +     .54499,    .18690,    .35528,    .01536,    .00400,
     +    -.00012,    .01408,    .03125,
     +     .53087,    .18079,    .33191,    .01487,    .00426,
     +    -.00002,    .01370,    .03000,
     +     .51550,    .17423,    .30743,    .01430,    .00452,
     +     .00023,    .01327,    .02866,
     +     .49994,    .16768,    .28372,    .01373,    .00473,
     +     .00058,    .01282,    .02732,
     +     .48621,    .16194,    .26372,    .01322,    .00488,
     +     .00083,    .01242,    .02614 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
     +     .47257,    .15640,    .24487,    .01274,    .00498,
     +     .00103,    .01200,    .02500,
     +     .46155,    .15192,    .23024,    .01233,    .00501,
     +     .00118,    .01166,    .02411,
     +     .44855,    .14668,    .21372,    .01185,    .00502,
     +     .00133,    .01127,    .02310,
     +     .43727,    .14221,    .20010,    .01147,    .00500,
     +     .00145,    .01093,    .02221,
     +     .42714,    .13824,    .18840,    .01113,    .00496,
     +     .00153,    .01062,    .02143,
     +     .41467,    .13339,    .17464,    .01071,    .00489,
     +     .00162,    .01024,    .02049,
     +     .40323,    .12897,    .16266,    .01031,    .00480,
     +     .00170,    .00989,    .01965,
     +     .39278,    .12496,    .15225,    .00995,    .00472,
     +     .00174,    .00956,    .01889 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
     +     .38265,    .12111,    .14261,    .00960,    .00464,
     +     .00178,    .00924,    .01817,
     +     .37290,    .11745,    .13378,    .00927,    .00454,
     +     .00180,    .00894,    .01747,
     +     .36395,    .11410,    .12601,    .00897,    .00445,
     +     .00182,    .00867,    .01684,
     +     .35567,    .11102,    .11914,    .00870,    .00436,
     +     .00183,    .00841,    .01628,
     +     .34753,    .10802,    .11267,    .00843,    .00427,
     +     .00184,    .00816,    .01573,
     +     .33968,    .10516,    .10669,    .00818,    .00418,
     +     .00184,    .00792,    .01520,
     +     .33240,    .10252,    .10134,    .00794,    .00410,
     +     .00183,    .00770,    .01472,
     +     .32566,    .10008,    .09656,    .00772,    .00402,
     +     .00183,    .00750,    .01427 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
     +     .31902,    .09768,    .09201,    .00750,    .00394,
     +     .00182,    .00730,    .01384,
     +     .31252,    .09537,    .08776,    .00729,    .00385,
     +     .00181,    .00710,    .01344,
     +     .30649,    .09323,    .08392,    .00710,    .00377,
     +     .00180,    .00692,    .01307,
     +     .30082,    .09122,    .08046,    .00692,    .00369,
     +     .00179,    .00675,    .01273,
     +     .29522,    .08923,    .07712,    .00674,    .00362,
     +     .00177,    .00659,    .01240 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
     +     .67632,    .23803,    .57746,    .01351,    .00054,
     +    -.00002,    .01231,    .03426,
     +     .66074,    .23081,    .54879,    .01345,    .00092,
     +    -.00003,    .01232,    .03327,
     +     .63816,    .22058,    .50719,    .01332,    .00138,
     +    -.00002,    .01224,    .03181,
     +     .62212,    .21344,    .47759,    .01315,    .00168,
     +    -.00003,    .01215,    .03075,
     +     .60566,    .20623,    .44763,    .01295,    .00196,
     +    -.00004,    .01201,    .02965,
     +     .59179,    .20027,    .42285,    .01277,    .00218,
     +    -.00003,    .01186,    .02871,
     +     .57872,    .19466,    .39978,    .01253,    .00236,
     +    -.00004,    .01168,    .02785,
     +     .56517,    .18890,    .37649,    .01226,    .00254,
     +    -.00004,    .01148,    .02695 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
     +     .55360,    .18406,    .35713,    .01204,    .00270,
     +    -.00003,    .01130,    .02615,
     +     .54259,    .17950,    .33912,    .01180,    .00283,
     +    -.00003,    .01111,    .02539,
     +     .53404,    .17598,    .32550,    .01162,    .00294,
     +    -.00003,    .01096,    .02480,
     +     .51618,    .16869,    .29794,    .01118,    .00316,
     +    -.00002,    .01058,    .02360,
     +     .50121,    .16269,    .27593,    .01079,    .00333,
     +     .00005,    .01027,    .02259,
     +     .48499,    .15627,    .25320,    .01037,    .00350,
     +     .00023,    .00991,    .02148,
     +     .46867,    .14988,    .23156,    .00993,    .00363,
     +     .00048,    .00954,    .02040,
     +     .45435,    .14431,    .21358,    .00955,    .00371,
     +     .00066,    .00919,    .01948 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
     +     .44025,    .13891,    .19678,    .00916,    .00375,
     +     .00080,    .00886,    .01857,
     +     .42887,    .13460,    .18389,    .00886,    .00376,
     +     .00089,    .00860,    .01785,
     +     .41549,    .12959,    .16949,    .00852,    .00375,
     +     .00099,    .00829,    .01701,
     +     .40397,    .12532,    .15777,    .00822,    .00371,
     +     .00108,    .00800,    .01633,
     +     .39369,    .12151,    .14777,    .00795,    .00366,
     +     .00113,    .00775,    .01573,
     +     .38106,    .11688,    .13609,    .00761,    .00358,
     +     .00119,    .00744,    .01500,
     +     .36948,    .11271,    .12602,    .00732,    .00352,
     +     .00123,    .00715,    .01433,
     +     .35898,    .10894,    .11734,    .00705,    .00345,
     +     .00126,    .00691,    .01373 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
     +     .34884,    .10531,    .10934,    .00678,    .00337,
     +     .00129,    .00667,    .01315,
     +     .33910,    .10187,    .10210,    .00652,    .00329,
     +     .00129,    .00643,    .01263,
     +     .33017,    .09873,    .09577,    .00629,    .00322,
     +     .00130,    .00621,    .01215,
     +     .32195,    .09586,    .09020,    .00610,    .00314,
     +     .00130,    .00601,    .01170,
     +     .31391,    .09308,    .08498,    .00590,    .00307,
     +     .00130,    .00582,    .01128,
     +     .30619,    .09042,    .08019,    .00570,    .00299,
     +     .00130,    .00563,    .01090,
     +     .29902,    .08798,    .07592,    .00552,    .00292,
     +     .00130,    .00546,    .01054,
     +     .29238,    .08573,    .07213,    .00538,    .00286,
     +     .00129,    .00531,    .01020 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
     +     .28585,    .08353,    .06853,    .00523,    .00279,
     +     .00129,    .00515,    .00988,
     +     .27954,    .08139,    .06519,    .00507,    .00273,
     +     .00127,    .00501,    .00955,
     +     .27370,    .07943,    .06217,    .00492,    .00267,
     +     .00126,    .00488,    .00926,
     +     .26821,    .07760,    .05947,    .00479,    .00261,
     +     .00125,    .00475,    .00899,
     +     .26278,    .07580,    .05687,    .00465,    .00256,
     +     .00123,    .00462,    .00874 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
     +     .65390,    .21919,    .52879,    .00987,    .00046,
     +    -.00004,    .00932,    .02627,
     +     .63687,    .21195,    .49702,    .00984,    .00075,
     +    -.00004,    .00932,    .02544,
     +     .61242,    .20170,    .45233,    .00973,    .00114,
     +    -.00003,    .00926,    .02421,
     +     .59517,    .19457,    .42150,    .00959,    .00136,
     +    -.00004,    .00916,    .02336,
     +     .57758,    .18739,    .39094,    .00943,    .00157,
     +    -.00005,    .00903,    .02247,
     +     .56283,    .18147,    .36613,    .00929,    .00175,
     +    -.00004,    .00890,    .02168,
     +     .54898,    .17596,    .34343,    .00911,    .00189,
     +    -.00004,    .00874,    .02097,
     +     .53468,    .17032,    .32081,    .00891,    .00202,
     +    -.00003,    .00857,    .02023 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
     +     .52253,    .16557,    .30226,    .00872,    .00212,
     +    -.00002,    .00843,    .01960,
     +     .51101,    .16112,    .28522,    .00853,    .00221,
     +    -.00002,    .00826,    .01900,
     +     .50210,    .15769,    .27243,    .00838,    .00229,
     +    -.00001,    .00812,    .01854,
     +     .48353,    .15062,    .24686,    .00806,    .00244,
     +    -.00002,    .00783,    .01755,
     +     .46806,    .14482,    .22675,    .00777,    .00254,
     +     .00003,    .00758,    .01674,
     +     .45140,    .13864,    .20629,    .00744,    .00264,
     +     .00016,    .00729,    .01588,
     +     .43473,    .13252,    .18703,    .00711,    .00271,
     +     .00035,    .00698,    .01503,
     +     .42010,    .12724,    .17118,    .00683,    .00276,
     +     .00047,    .00671,    .01429 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
     +     .40582,    .12212,    .15662,    .00653,    .00278,
     +     .00057,    .00646,    .01357,
     +     .39436,    .11802,    .14554,    .00630,    .00277,
     +     .00064,    .00624,    .01303,
     +     .38094,    .11327,    .13324,    .00603,    .00274,
     +     .00072,    .00598,    .01241,
     +     .36940,    .10926,    .12332,    .00581,    .00270,
     +     .00077,    .00577,    .01186,
     +     .35914,    .10571,    .11492,    .00559,    .00266,
     +     .00081,    .00557,    .01140,
     +     .34660,    .10138,    .10518,    .00533,    .00261,
     +     .00085,    .00533,    .01084,
     +     .33512,    .09748,    .09688,    .00515,    .00254,
     +     .00087,    .00512,    .01030,
     +     .32474,    .09398,    .08976,    .00495,    .00248,
     +     .00089,    .00493,    .00984 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
     +     .31476,    .09063,    .08324,    .00476,    .00242,
     +     .00091,    .00474,    .00941,
     +     .30522,    .08746,    .07740,    .00456,    .00236,
     +     .00092,    .00456,    .00902,
     +     .29651,    .08458,    .07231,    .00439,    .00230,
     +     .00093,    .00440,    .00866,
     +     .28853,    .08196,    .06785,    .00423,    .00223,
     +     .00092,    .00424,    .00833,
     +     .28073,    .07942,    .06370,    .00409,    .00217,
     +     .00092,    .00410,    .00801,
     +     .27326,    .07699,    .05991,    .00396,    .00211,
     +     .00091,    .00396,    .00769,
     +     .26635,    .07476,    .05655,    .00384,    .00206,
     +     .00090,    .00383,    .00741,
     +     .25996,    .07272,    .05358,    .00372,    .00201,
     +     .00089,    .00371,    .00717 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
     +     .25370,    .07072,    .05076,    .00360,    .00196,
     +     .00088,    .00360,    .00692,
     +     .24764,    .06879,    .04818,    .00349,    .00191,
     +     .00087,    .00349,    .00669,
     +     .24203,    .06701,    .04585,    .00338,    .00186,
     +     .00086,    .00338,    .00648,
     +     .23680,    .06536,    .04376,    .00329,    .00182,
     +     .00085,    .00329,    .00629,
     +     .23165,    .06374,    .04175,    .00319,    .00178,
     +     .00085,    .00319,    .00610 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
     +     .62526,    .19940,    .47525,    .00702,    .00039,
     +     .00000,    .00697,    .01988,
     +     .60717,    .19228,    .44215,    .00701,    .00063,
     +     .00000,    .00696,    .01919,
     +     .58135,    .18221,    .39662,    .00694,    .00093,
     +     .00000,    .00690,    .01818,
     +     .56324,    .17525,    .36596,    .00685,    .00111,
     +     .00000,    .00681,    .01747,
     +     .54485,    .16828,    .33609,    .00674,    .00127,
     +     .00000,    .00669,    .01674,
     +     .52951,    .16257,    .31222,    .00661,    .00139,
     +     .00001,    .00658,    .01613,
     +     .51516,    .15725,    .29067,    .00649,    .00148,
     +     .00000,    .00644,    .01556,
     +     .50041,    .15181,    .26944,    .00634,    .00157,
     +     .00000,    .00630,    .01498 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
     +     .48795,    .14723,    .25223,    .00620,    .00164,
     +     .00001,    .00618,    .01449,
     +     .47614,    .14298,    .23659,    .00607,    .00171,
     +     .00001,    .00605,    .01399,
     +     .46701,    .13972,    .22492,    .00598,    .00176,
     +     .00000,    .00595,    .01361,
     +     .44816,    .13299,    .20189,    .00570,    .00185,
     +     .00000,    .00572,    .01286,
     +     .43251,    .12748,    .18402,    .00548,    .00192,
     +     .00004,    .00552,    .01222,
     +     .41571,    .12165,    .16602,    .00524,    .00199,
     +     .00014,    .00529,    .01155,
     +     .39899,    .11590,    .14929,    .00499,    .00202,
     +     .00027,    .00505,    .01090,
     +     .38441,    .11093,    .13566,    .00479,    .00203,
     +     .00037,    .00484,    .01035 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
     +     .37026,    .10615,    .12325,    .00456,    .00203,
     +     .00043,    .00464,    .00980,
     +     .35887,    .10235,    .11390,    .00440,    .00202,
     +     .00048,    .00447,    .00936,
     +     .34557,    .09797,    .10362,    .00422,    .00199,
     +     .00052,    .00427,    .00887,
     +     .33424,    .09426,    .09538,    .00405,    .00195,
     +     .00056,    .00411,    .00847,
     +     .32421,    .09097,    .08847,    .00390,    .00192,
     +     .00058,    .00396,    .00811,
     +     .31198,    .08699,    .08052,    .00372,    .00187,
     +     .00061,    .00378,    .00768,
     +     .30084,    .08343,    .07378,    .00356,    .00182,
     +     .00063,    .00362,    .00731,
     +     .29081,    .08023,    .06805,    .00340,    .00177,
     +     .00064,    .00347,    .00697 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
     +     .28118,    .07718,    .06283,    .00325,    .00172,
     +     .00064,    .00332,    .00664,
     +     .27201,    .07431,    .05819,    .00312,    .00167,
     +     .00065,    .00318,    .00634,
     +     .26364,    .07171,    .05416,    .00300,    .00161,
     +     .00065,    .00306,    .00607,
     +     .25599,    .06934,    .05066,    .00289,    .00157,
     +     .00064,    .00295,    .00583,
     +     .24854,    .06705,    .04741,    .00279,    .00152,
     +     .00063,    .00284,    .00559,
     +     .24143,    .06488,    .04445,    .00270,    .00148,
     +     .00063,    .00274,    .00537,
     +     .23488,    .06287,    .04185,    .00261,    .00144,
     +     .00062,    .00265,    .00516,
     +     .22883,    .06104,    .03955,    .00252,    .00140,
     +     .00062,    .00256,    .00498 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
     +     .22293,    .05925,    .03738,    .00244,    .00137,
     +     .00061,    .00248,    .00480,
     +     .21724,    .05753,    .03538,    .00234,    .00133,
     +     .00060,    .00240,    .00463,
     +     .21199,    .05596,    .03359,    .00225,    .00129,
     +     .00060,    .00233,    .00448,
     +     .20708,    .05450,    .03200,    .00218,    .00126,
     +     .00059,    .00226,    .00433,
     +     .20224,    .05307,    .03048,    .00212,    .00123,
     +     .00057,    .00219,    .00419 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
     +     .59136,    .17938,    .41909,    .00488,    .00032,
     +     .00006,    .00517,    .01478,
     +     .57259,    .17247,    .38618,    .00489,    .00052,
     +     .00005,    .00515,    .01420,
     +     .54593,    .16277,    .34173,    .00483,    .00075,
     +     .00005,    .00509,    .01340,
     +     .52730,    .15610,    .31240,    .00478,    .00088,
     +     .00005,    .00501,    .01284,
     +     .50848,    .14946,    .28424,    .00470,    .00100,
     +     .00005,    .00490,    .01227,
     +     .49287,    .14399,    .26198,    .00460,    .00109,
     +     .00005,    .00482,    .01179,
     +     .47832,    .13893,    .24219,    .00451,    .00115,
     +     .00005,    .00471,    .01135,
     +     .46339,    .13379,    .22288,    .00441,    .00122,
     +     .00005,    .00459,    .01090 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
     +     .45081,    .12949,    .20737,    .00431,    .00127,
     +     .00004,    .00449,    .01050,
     +     .43896,    .12548,    .19341,    .00421,    .00131,
     +     .00004,    .00439,    .01013,
     +     .42984,    .12240,    .18307,    .00414,    .00134,
     +     .00004,    .00431,    .00985,
     +     .41096,    .11613,    .16284,    .00397,    .00139,
     +     .00005,    .00412,    .00927,
     +     .39545,    .11099,    .14731,    .00379,    .00143,
     +     .00008,    .00396,    .00880,
     +     .37885,    .10557,    .13184,    .00361,    .00147,
     +     .00014,    .00378,    .00829,
     +     .36236,    .10025,    .11762,    .00344,    .00149,
     +     .00022,    .00360,    .00778,
     +     .34809,    .09568,    .10615,    .00330,    .00149,
     +     .00029,    .00345,    .00733 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
     +     .33426,    .09127,    .09580,    .00312,    .00148,
     +     .00034,    .00329,    .00695,
     +     .32320,    .08780,    .08809,    .00300,    .00146,
     +     .00037,    .00316,    .00663,
     +     .31033,    .08380,    .07967,    .00287,    .00144,
     +     .00040,    .00301,    .00626,
     +     .29939,    .08041,    .07294,    .00275,    .00141,
     +     .00043,    .00289,    .00595,
     +     .28971,    .07744,    .06737,    .00265,    .00137,
     +     .00044,    .00278,    .00569,
     +     .27795,    .07384,    .06099,    .00252,    .00132,
     +     .00045,    .00265,    .00538,
     +     .26733,    .07063,    .05562,    .00242,    .00128,
     +     .00046,    .00252,    .00509,
     +     .25776,    .06776,    .05108,    .00231,    .00124,
     +     .00047,    .00241,    .00485 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
     +     .24860,    .06503,    .04696,    .00219,    .00120,
     +     .00047,    .00231,    .00462,
     +     .23991,    .06246,    .04332,    .00210,    .00117,
     +     .00046,    .00221,    .00438,
     +     .23201,    .06015,    .04017,    .00202,    .00113,
     +     .00045,    .00212,    .00417,
     +     .22482,    .05804,    .03747,    .00194,    .00110,
     +     .00045,    .00204,    .00400,
     +     .21783,    .05601,    .03496,    .00187,    .00106,
     +     .00044,    .00196,    .00384,
     +     .21117,    .05407,    .03269,    .00180,    .00103,
     +     .00045,    .00188,    .00367,
     +     .20505,    .05230,    .03069,    .00173,    .00100,
     +     .00044,    .00181,    .00353,
     +     .19944,    .05069,    .02894,    .00166,    .00097,
     +     .00043,    .00175,    .00341 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
     +     .19395,    .04912,    .02729,    .00159,    .00094,
     +     .00043,    .00168,    .00328,
     +     .18865,    .04762,    .02578,    .00154,    .00091,
     +     .00042,    .00162,    .00316,
     +     .18376,    .04624,    .02443,    .00149,    .00088,
     +     .00041,    .00157,    .00305,
     +     .17922,    .04496,    .02323,    .00144,    .00086,
     +     .00040,    .00152,    .00295,
     +     .17476,    .04370,    .02209,    .00140,    .00084,
     +     .00040,    .00148,    .00284 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
     +     .55323,    .15970,    .36281,    .00345,    .00024,
     +     .00002,    .00372,    .01074,
     +     .53414,    .15310,    .33127,    .00343,    .00039,
     +     .00000,    .00370,    .01032,
     +     .50712,    .14392,    .28940,    .00339,    .00055,
     +     .00001,    .00364,    .00970,
     +     .48836,    .13762,    .26223,    .00335,    .00065,
     +     .00002,    .00358,    .00926,
     +     .46951,    .13135,    .23648,    .00328,    .00073,
     +     .00002,    .00350,    .00883,
     +     .45391,    .12623,    .21640,    .00320,    .00080,
     +     .00001,    .00342,    .00848,
     +     .43942,    .12150,    .19874,    .00313,    .00085,
     +     .00002,    .00334,    .00813,
     +     .42461,    .11671,    .18164,    .00306,    .00089,
     +     .00002,    .00326,    .00777 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
     +     .41216,    .11273,    .16800,    .00299,    .00093,
     +     .00001,    .00318,    .00748,
     +     .40047,    .10901,    .15583,    .00292,    .00096,
     +     .00001,    .00310,    .00720,
     +     .39148,    .10616,    .14686,    .00287,    .00098,
     +     .00002,    .00304,    .00698,
     +     .37299,    .10035,    .12950,    .00273,    .00101,
     +     .00001,    .00289,    .00657,
     +     .35785,    .09565,    .11632,    .00261,    .00103,
     +     .00003,    .00278,    .00621,
     +     .34171,    .09069,    .10332,    .00249,    .00104,
     +     .00009,    .00265,    .00582,
     +     .32576,    .08583,    .09148,    .00237,    .00105,
     +     .00015,    .00252,    .00544,
     +     .31200,    .08167,    .08203,    .00225,    .00106,
     +     .00019,    .00240,    .00513 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
     +     .29867,    .07770,    .07360,    .00216,    .00103,
     +     .00022,    .00228,    .00484,
     +     .28809,    .07456,    .06733,    .00207,    .00101,
     +     .00025,    .00219,    .00461,
     +     .27584,    .07095,    .06053,    .00196,    .00099,
     +     .00027,    .00208,    .00435,
     +     .26544,    .06791,    .05517,    .00189,    .00097,
     +     .00029,    .00199,    .00412,
     +     .25626,    .06526,    .05074,    .00181,    .00095,
     +     .00030,    .00191,    .00392,
     +     .24512,    .06207,    .04570,    .00172,    .00092,
     +     .00031,    .00181,    .00370,
     +     .23515,    .05921,    .04150,    .00162,    .00088,
     +     .00032,    .00172,    .00350,
     +     .22617,    .05667,    .03797,    .00155,    .00085,
     +     .00031,    .00164,    .00332 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
     +     .21759,    .05426,    .03479,    .00148,    .00082,
     +     .00030,    .00156,    .00314,
     +     .20950,    .05198,    .03197,    .00142,    .00079,
     +     .00030,    .00148,    .00299,
     +     .20217,    .04993,    .02955,    .00136,    .00076,
     +     .00030,    .00142,    .00286,
     +     .19550,    .04808,    .02748,    .00130,    .00074,
     +     .00029,    .00137,    .00272,
     +     .18904,    .04631,    .02557,    .00124,    .00072,
     +     .00029,    .00131,    .00259,
     +     .18289,    .04463,    .02384,    .00119,    .00070,
     +     .00030,    .00126,    .00248,
     +     .17725,    .04309,    .02234,    .00115,    .00068,
     +     .00030,    .00121,    .00238,
     +     .17210,    .04168,    .02102,    .00110,    .00065,
     +     .00029,    .00117,    .00228 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
     +     .16707,    .04032,    .01979,    .00106,    .00063,
     +     .00029,    .00113,    .00219,
     +     .16220,    .03903,    .01866,    .00103,    .00061,
     +     .00028,    .00108,    .00211,
     +     .15773,    .03784,    .01765,    .00100,    .00059,
     +     .00027,    .00104,    .00203,
     +     .15358,    .03674,    .01675,    .00097,    .00057,
     +     .00027,    .00101,    .00195,
     +     .14950,    .03566,    .01590,    .00095,    .00056,
     +     .00026,    .00098,    .00187 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
     +     .51210,    .14047,    .30802,    .00231,    .00019,
     +     .00004,    .00264,    .00771,
     +     .49297,    .13434,    .27888,    .00233,    .00029,
     +     .00004,    .00261,    .00737,
     +     .46609,    .12577,    .24076,    .00231,    .00041,
     +     .00004,    .00257,    .00690,
     +     .44753,    .11993,    .21635,    .00229,    .00047,
     +     .00004,    .00251,    .00656,
     +     .42890,    .11413,    .19345,    .00226,    .00054,
     +     .00004,    .00245,    .00622,
     +     .41353,    .10941,    .17577,    .00223,    .00058,
     +     .00004,    .00240,    .00596,
     +     .39937,    .10506,    .16040,    .00217,    .00061,
     +     .00003,    .00233,    .00571,
     +     .38493,    .10066,    .14563,    .00211,    .00064,
     +     .00002,    .00226,    .00546 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
     +     .37282,    .09701,    .13394,    .00206,    .00065,
     +     .00003,    .00220,    .00524,
     +     .36148,    .09363,    .12359,    .00201,    .00067,
     +     .00002,    .00213,    .00504,
     +     .35279,    .09105,    .11602,    .00196,    .00068,
     +     .00001,    .00208,    .00488,
     +     .33496,    .08579,    .10147,    .00188,    .00071,
     +     .00002,    .00198,    .00456,
     +     .32040,    .08153,    .09054,    .00180,    .00072,
     +     .00004,    .00190,    .00429,
     +     .30497,    .07705,    .07984,    .00171,    .00072,
     +     .00007,    .00180,    .00401,
     +     .28977,    .07270,    .07020,    .00162,    .00072,
     +     .00010,    .00171,    .00375,
     +     .27669,    .06898,    .06256,    .00155,    .00071,
     +     .00012,    .00161,    .00353 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
     +     .26409,    .06543,    .05580,    .00148,    .00070,
     +     .00015,    .00154,    .00331,
     +     .25412,    .06264,    .05081,    .00142,    .00068,
     +     .00017,    .00147,    .00315,
     +     .24261,    .05944,    .04544,    .00135,    .00066,
     +     .00018,    .00139,    .00296,
     +     .23289,    .05677,    .04123,    .00129,    .00065,
     +     .00019,    .00133,    .00279,
     +     .22434,    .05443,    .03777,    .00123,    .00063,
     +     .00019,    .00127,    .00265,
     +     .21399,    .05161,    .03386,    .00117,    .00060,
     +     .00020,    .00120,    .00248,
     +     .20472,    .04911,    .03061,    .00111,    .00058,
     +     .00019,    .00114,    .00235,
     +     .19642,    .04688,    .02791,    .00105,    .00056,
     +     .00019,    .00108,    .00222 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
     +     .18851,    .04477,    .02548,    .00101,    .00053,
     +     .00020,    .00102,    .00210,
     +     .18105,    .04281,    .02335,    .00097,    .00051,
     +     .00020,    .00098,    .00199,
     +     .17432,    .04104,    .02152,    .00093,    .00049,
     +     .00020,    .00094,    .00189,
     +     .16824,    .03945,    .01996,    .00088,    .00048,
     +     .00019,    .00090,    .00179,
     +     .16234,    .03791,    .01853,    .00085,    .00047,
     +     .00019,    .00086,    .00171,
     +     .15674,    .03646,    .01724,    .00082,    .00045,
     +     .00019,    .00082,    .00164,
     +     .15162,    .03514,    .01612,    .00079,    .00043,
     +     .00019,    .00078,    .00157,
     +     .14693,    .03393,    .01514,    .00076,    .00042,
     +     .00018,    .00075,    .00151 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
     +     .14238,    .03276,    .01423,    .00073,    .00040,
     +     .00017,    .00072,    .00145,
     +     .13800,    .03166,    .01340,    .00070,    .00039,
     +     .00017,    .00069,    .00139,
     +     .13399,    .03064,    .01265,    .00067,    .00037,
     +     .00016,    .00066,    .00134,
     +     .13026,    .02970,    .01200,    .00065,    .00036,
     +     .00016,    .00064,    .00129,
     +     .12661,    .02879,    .01137,    .00064,    .00035,
     +     .00016,    .00063,    .00123 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
     +     .46879,    .12206,    .25638,    .00149,    .00015,
     +     .00006,    .00186,    .00541,
     +     .44999,    .11641,    .23024,    .00151,    .00023,
     +     .00006,    .00184,    .00516,
     +     .42364,    .10855,    .19646,    .00152,    .00031,
     +     .00004,    .00180,    .00481,
     +     .40554,    .10321,    .17510,    .00150,    .00036,
     +     .00004,    .00175,    .00457,
     +     .38750,    .09793,    .15528,    .00146,    .00040,
     +     .00004,    .00170,    .00432,
     +     .37271,    .09362,    .14015,    .00142,    .00044,
     +     .00005,    .00167,    .00412,
     +     .35903,    .08969,    .12707,    .00139,    .00046,
     +     .00004,    .00162,    .00395,
     +     .34512,    .08572,    .11460,    .00136,    .00048,
     +     .00004,    .00156,    .00376 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
     +     .33349,    .08243,    .10483,    .00133,    .00048,
     +     .00003,    .00151,    .00360,
     +     .32267,    .07939,    .09625,    .00130,    .00049,
     +     .00003,    .00147,    .00345,
     +     .31438,    .07708,    .09000,    .00128,    .00049,
     +     .00003,    .00144,    .00333,
     +     .29745,    .07236,    .07809,    .00123,    .00052,
     +     .00003,    .00137,    .00309,
     +     .28368,    .06855,    .06920,    .00116,    .00052,
     +     .00005,    .00130,    .00292,
     +     .26913,    .06458,    .06060,    .00109,    .00051,
     +     .00007,    .00123,    .00273,
     +     .25484,    .06074,    .05293,    .00104,    .00051,
     +     .00009,    .00116,    .00253,
     +     .24261,    .05748,    .04690,    .00100,    .00050,
     +     .00010,    .00110,    .00236 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
     +     .23086,    .05436,    .04159,    .00096,    .00049,
     +     .00012,    .00104,    .00221,
     +     .22160,    .05192,    .03770,    .00092,    .00048,
     +     .00013,    .00099,    .00210,
     +     .21095,    .04912,    .03355,    .00086,    .00047,
     +     .00014,    .00093,    .00197,
     +     .20200,    .04678,    .03032,    .00081,    .00045,
     +     .00014,    .00089,    .00186,
     +     .19413,    .04474,    .02767,    .00077,    .00043,
     +     .00014,    .00085,    .00177,
     +     .18464,    .04231,    .02469,    .00074,    .00041,
     +     .00014,    .00080,    .00167,
     +     .17617,    .04015,    .02224,    .00069,    .00041,
     +     .00015,    .00077,    .00154,
     +     .16860,    .03824,    .02020,    .00066,    .00039,
     +     .00015,    .00073,    .00145 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
     +     .16140,    .03644,    .01837,    .00063,    .00037,
     +     .00014,    .00068,    .00137,
     +     .15466,    .03476,    .01679,    .00059,    .00035,
     +     .00014,    .00064,    .00130,
     +     .14857,    .03325,    .01544,    .00056,    .00034,
     +     .00014,    .00062,    .00124,
     +     .14305,    .03188,    .01429,    .00055,    .00033,
     +     .00014,    .00059,    .00119,
     +     .13774,    .03057,    .01323,    .00053,    .00032,
     +     .00013,    .00057,    .00113,
     +     .13272,    .02934,    .01229,    .00051,    .00031,
     +     .00014,    .00054,    .00107,
     +     .12814,    .02822,    .01147,    .00050,    .00029,
     +     .00013,    .00051,    .00102,
     +     .12396,    .02721,    .01075,    .00047,    .00028,
     +     .00013,    .00050,    .00097 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
     +     .11990,    .02623,    .01008,    .00045,    .00027,
     +     .00012,    .00048,    .00093,
     +     .11602,    .02530,    .00948,    .00043,    .00026,
     +     .00012,    .00046,    .00089,
     +     .11246,    .02445,    .00894,    .00040,    .00025,
     +     .00011,    .00044,    .00086,
     +     .10917,    .02366,    .00846,    .00039,    .00024,
     +     .00011,    .00043,    .00083,
     +     .10595,    .02289,    .00801,    .00039,    .00024,
     +     .00011,    .00041,    .00080 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
     +     .42432,    .10485,    .20924,    .00099,    .00012,
     +     .00005,    .00126,    .00372,
     +     .40618,    .09969,    .18638,    .00095,    .00017,
     +     .00005,    .00125,    .00355,
     +     .38085,    .09255,    .15719,    .00091,    .00023,
     +     .00005,    .00123,    .00330,
     +     .36347,    .08774,    .13899,    .00091,    .00027,
     +     .00004,    .00120,    .00311,
     +     .34618,    .08299,    .12228,    .00091,    .00030,
     +     .00003,    .00117,    .00293,
     +     .33207,    .07913,    .10963,    .00089,    .00032,
     +     .00003,    .00114,    .00278,
     +     .31909,    .07562,    .09880,    .00086,    .00033,
     +     .00003,    .00111,    .00266,
     +     .30591,    .07209,    .08855,    .00085,    .00035,
     +     .00003,    .00107,    .00253 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
     +     .29492,    .06918,    .08057,    .00084,    .00036,
     +     .00002,    .00104,    .00241,
     +     .28475,    .06647,    .07361,    .00081,    .00036,
     +     .00002,    .00100,    .00231,
     +     .27700,    .06441,    .06856,    .00078,    .00036,
     +     .00002,    .00098,    .00223,
     +     .26114,    .06028,    .05903,    .00074,    .00036,
     +     .00002,    .00093,    .00206,
     +     .24829,    .05694,    .05198,    .00070,    .00037,
     +     .00002,    .00088,    .00193,
     +     .23477,    .05346,    .04522,    .00066,    .00037,
     +     .00004,    .00084,    .00180,
     +     .22157,    .05010,    .03923,    .00062,    .00036,
     +     .00007,    .00079,    .00167,
     +     .21030,    .04727,    .03457,    .00059,    .00036,
     +     .00008,    .00075,    .00154 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
     +     .19954,    .04457,    .03050,    .00055,    .00034,
     +     .00009,    .00070,    .00147,
     +     .19106,    .04246,    .02754,    .00053,    .00034,
     +     .00010,    .00067,    .00138,
     +     .18131,    .04007,    .02438,    .00051,    .00034,
     +     .00010,    .00063,    .00127,
     +     .17316,    .03806,    .02194,    .00049,    .00032,
     +     .00011,    .00061,    .00119,
     +     .16601,    .03632,    .01996,    .00047,    .00031,
     +     .00011,    .00058,    .00113,
     +     .15742,    .03425,    .01774,    .00044,    .00029,
     +     .00011,    .00054,    .00106,
     +     .14980,    .03241,    .01592,    .00040,    .00028,
     +     .00010,    .00051,    .00099,
     +     .14302,    .03078,    .01442,    .00037,    .00027,
     +     .00011,    .00048,    .00094 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
     +     .13659,    .02925,    .01308,    .00035,    .00026,
     +     .00011,    .00046,    .00088,
     +     .13054,    .02784,    .01192,    .00034,    .00026,
     +     .00011,    .00044,    .00083,
     +     .12511,    .02657,    .01093,    .00033,    .00024,
     +     .00011,    .00042,    .00079,
     +     .12021,    .02542,    .01009,    .00032,    .00022,
     +     .00011,    .00040,    .00075,
     +     .11551,    .02433,    .00933,    .00031,    .00021,
     +     .00010,    .00038,    .00071,
     +     .11109,    .02330,    .00865,    .00029,    .00021,
     +     .00010,    .00036,    .00067,
     +     .10706,    .02237,    .00806,    .00028,    .00020,
     +     .00010,    .00034,    .00064,
     +     .10336,    .02153,    .00754,    .00027,    .00019,
     +     .00009,    .00033,    .00062 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
     +     .09979,    .02072,    .00707,    .00025,    .00019,
     +     .00009,    .00031,    .00059,
     +     .09637,    .01995,    .00663,    .00025,    .00018,
     +     .00009,    .00030,    .00057,
     +     .09324,    .01925,    .00625,    .00024,    .00017,
     +     .00009,    .00029,    .00054,
     +     .09037,    .01860,    .00591,    .00023,    .00017,
     +     .00009,    .00028,    .00052,
     +     .08757,    .01796,    .00559,    .00022,    .00016,
     +     .00009,    .00027,    .00050 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
     +     .37979,    .08905,    .16749,    .00067,    .00004,
     +    -.00002,    .00080,    .00251,
     +     .36244,    .08444,    .14804,    .00070,    .00008,
     +    -.00003,    .00079,    .00237,
     +     .33840,    .07810,    .12352,    .00069,    .00012,
     +    -.00003,    .00077,    .00218,
     +     .32205,    .07381,    .10843,    .00065,    .00015,
     +    -.00002,    .00075,    .00207,
     +     .30581,    .06961,    .09471,    .00064,    .00016,
     +    -.00001,    .00073,    .00195,
     +     .29250,    .06624,    .08441,    .00068,    .00018,
     +    -.00001,    .00071,    .00183,
     +     .28041,    .06314,    .07564,    .00064,    .00019,
     +    -.00001,    .00069,    .00175,
     +     .26818,    .06003,    .06741,    .00061,    .00020,
     +    -.00001,    .00066,    .00166 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
     +     .25802,    .05748,    .06104,    .00059,    .00020,
     +    -.00001,    .00064,    .00159,
     +     .24857,    .05513,    .05552,    .00057,    .00020,
     +    -.00001,    .00062,    .00151,
     +     .24137,    .05335,    .05153,    .00055,    .00020,
     +    -.00001,    .00060,    .00146,
     +     .22676,    .04974,    .04405,    .00054,    .00020,
     +    -.00001,    .00056,    .00135,
     +     .21495,    .04686,    .03858,    .00052,    .00021,
     +    -.00001,    .00054,    .00125,
     +     .20258,    .04387,    .03335,    .00049,    .00020,
     +     .00000,    .00050,    .00117,
     +     .19057,    .04098,    .02877,    .00045,    .00020,
     +     .00002,    .00047,    .00109,
     +     .18035,    .03854,    .02522,    .00043,    .00020,
     +     .00004,    .00045,    .00100 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
     +     .17060,    .03624,    .02214,    .00041,    .00019,
     +     .00004,    .00042,    .00095,
     +     .16296,    .03445,    .01992,    .00039,    .00018,
     +     .00004,    .00039,    .00090,
     +     .15423,    .03241,    .01757,    .00036,    .00018,
     +     .00004,    .00037,    .00083,
     +     .14690,    .03071,    .01576,    .00036,    .00018,
     +     .00004,    .00035,    .00077,
     +     .14054,    .02924,    .01429,    .00033,    .00017,
     +     .00004,    .00034,    .00073,
     +     .13291,    .02749,    .01266,    .00029,    .00016,
     +     .00005,    .00032,    .00068,
     +     .12608,    .02596,    .01132,    .00030,    .00016,
     +     .00005,    .00030,    .00064,
     +     .12006,    .02460,    .01023,    .00029,    .00015,
     +     .00005,    .00028,    .00060 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
     +     .11439,    .02333,    .00926,    .00027,    .00014,
     +     .00005,    .00026,    .00056,
     +     .10908,    .02215,    .00842,    .00026,    .00013,
     +     .00005,    .00024,    .00053,
     +     .10432,    .02109,    .00770,    .00025,    .00013,
     +     .00005,    .00023,    .00050,
     +     .10003,    .02014,    .00710,    .00024,    .00012,
     +     .00005,    .00022,    .00047,
     +     .09592,    .01924,    .00655,    .00023,    .00012,
     +     .00005,    .00021,    .00045,
     +     .09206,    .01839,    .00606,    .00021,    .00011,
     +     .00005,    .00020,    .00044,
     +     .08855,    .01762,    .00564,    .00020,    .00010,
     +     .00005,    .00019,    .00042,
     +     .08535,    .01693,    .00528,    .00020,    .00010,
     +     .00004,    .00018,    .00039 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
     +     .08225,    .01626,    .00494,    .00019,    .00010,
     +     .00004,    .00018,    .00036,
     +     .07930,    .01563,    .00463,    .00018,    .00009,
     +     .00004,    .00017,    .00035,
     +     .07661,    .01505,    .00436,    .00018,    .00009,
     +     .00004,    .00016,    .00034,
     +     .07412,    .01452,    .00412,    .00018,    .00009,
     +     .00004,    .00016,    .00032,
     +     .07170,    .01401,    .00389,    .00017,    .00008,
     +     .00004,    .00015,    .00031 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
     +     .33552,    .07437,    .13080,    .00036,    .00007,
     +     .00003,    .00057,    .00163,
     +     .31930,    .07031,    .11481,    .00035,    .00009,
     +     .00003,    .00055,    .00156,
     +     .29684,    .06477,    .09481,    .00037,    .00011,
     +     .00004,    .00053,    .00143,
     +     .28158,    .06105,    .08262,    .00037,    .00012,
     +     .00004,    .00051,    .00134,
     +     .26654,    .05741,    .07162,    .00036,    .00013,
     +     .00004,    .00049,    .00126,
     +     .25436,    .05446,    .06342,    .00035,    .00013,
     +     .00003,    .00048,    .00119,
     +     .24316,    .05181,    .05653,    .00035,    .00014,
     +     .00003,    .00046,    .00111,
     +     .23191,    .04914,    .05010,    .00036,    .00015,
     +     .00003,    .00045,    .00104 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
     +     .22263,    .04693,    .04515,    .00034,    .00014,
     +     .00003,    .00043,    .00099,
     +     .21401,    .04492,    .04088,    .00034,    .00015,
     +     .00003,    .00041,    .00094,
     +     .20746,    .04339,    .03781,    .00034,    .00015,
     +     .00003,    .00040,    .00091,
     +     .19422,    .04032,    .03210,    .00031,    .00015,
     +     .00003,    .00037,    .00084,
     +     .18354,    .03788,    .02795,    .00029,    .00015,
     +     .00002,    .00034,    .00080,
     +     .17239,    .03534,    .02402,    .00027,    .00014,
     +     .00002,    .00032,    .00075,
     +     .16163,    .03289,    .02060,    .00025,    .00014,
     +     .00003,    .00030,    .00068,
     +     .15249,    .03085,    .01797,    .00023,    .00013,
     +     .00004,    .00029,    .00064 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
     +     .14382,    .02892,    .01571,    .00022,    .00014,
     +     .00004,    .00027,    .00058,
     +     .13702,    .02742,    .01408,    .00022,    .00013,
     +     .00004,    .00026,    .00055,
     +     .12927,    .02572,    .01237,    .00021,    .00012,
     +     .00004,    .00023,    .00052,
     +     .12282,    .02432,    .01105,    .00019,    .00011,
     +     .00004,    .00022,    .00048,
     +     .11720,    .02310,    .01000,    .00019,    .00011,
     +     .00004,    .00021,    .00045,
     +     .11048,    .02166,    .00883,    .00018,    .00010,
     +     .00004,    .00020,    .00042,
     +     .10457,    .02039,    .00787,    .00016,    .00009,
     +     .00004,    .00018,    .00040,
     +     .09932,    .01928,    .00709,    .00015,    .00009,
     +     .00004,    .00017,    .00037 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
     +     .09436,    .01823,    .00640,    .00016,    .00009,
     +     .00004,    .00016,    .00034,
     +     .08977,    .01727,    .00581,    .00015,    .00008,
     +     .00004,    .00015,    .00032,
     +     .08565,    .01641,    .00531,    .00015,    .00008,
     +     .00004,    .00014,    .00030,
     +     .08195,    .01564,    .00489,    .00014,    .00007,
     +     .00004,    .00014,    .00029,
     +     .07841,    .01491,    .00450,    .00014,    .00007,
     +     .00004,    .00013,    .00027,
     +     .07509,    .01422,    .00416,    .00013,    .00007,
     +     .00003,    .00013,    .00026,
     +     .07208,    .01360,    .00387,    .00013,    .00007,
     +     .00003,    .00012,    .00024,
     +     .06935,    .01304,    .00362,    .00013,    .00006,
     +     .00003,    .00011,    .00023 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
     +     .06671,    .01250,    .00338,    .00012,    .00006,
     +     .00003,    .00011,    .00022,
     +     .06420,    .01199,    .00316,    .00011,    .00006,
     +     .00003,    .00010,    .00021,
     +     .06192,    .01153,    .00297,    .00010,    .00006,
     +     .00003,    .00010,    .00020,
     +     .05982,    .01111,    .00281,    .00010,    .00005,
     +     .00002,    .00009,    .00019,
     +     .05777,    .01070,    .00265,    .00010,    .00005,
     +     .00002,    .00009,    .00019 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
     +     .29261,    .06125,    .09991,    .00017,    .00006,
     +     .00005,    .00037,    .00105,
     +     .27760,    .05775,    .08705,    .00020,    .00007,
     +     .00005,    .00036,    .00098,
     +     .25696,    .05297,    .07115,    .00020,    .00008,
     +     .00004,    .00035,    .00089,
     +     .24303,    .04978,    .06155,    .00019,    .00009,
     +     .00004,    .00034,    .00083,
     +     .22931,    .04666,    .05297,    .00018,    .00010,
     +     .00004,    .00032,    .00078,
     +     .21819,    .04415,    .04663,    .00019,    .00010,
     +     .00005,    .00031,    .00073,
     +     .20809,    .04189,    .04133,    .00018,    .00010,
     +     .00004,    .00029,    .00070,
     +     .19794,    .03963,    .03642,    .00017,    .00010,
     +     .00003,    .00028,    .00066 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
     +     .18956,    .03777,    .03266,    .00017,    .00011,
     +     .00003,    .00027,    .00062,
     +     .18181,    .03607,    .02945,    .00017,    .00011,
     +     .00003,    .00026,    .00059,
     +     .17594,    .03478,    .02715,    .00017,    .00011,
     +     .00002,    .00026,    .00057,
     +     .16410,    .03221,    .02289,    .00015,    .00010,
     +     .00002,    .00024,    .00052,
     +     .15460,    .03015,    .01982,    .00015,    .00010,
     +     .00003,    .00022,    .00049,
     +     .14470,    .02803,    .01694,    .00015,    .00010,
     +     .00003,    .00021,    .00045,
     +     .13515,    .02601,    .01444,    .00015,    .00009,
     +     .00003,    .00019,    .00041,
     +     .12709,    .02432,    .01254,    .00015,    .00009,
     +     .00003,    .00018,    .00038 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
     +     .11949,    .02272,    .01091,    .00012,    .00009,
     +     .00003,    .00017,    .00037,
     +     .11357,    .02149,    .00975,    .00012,    .00008,
     +     .00004,    .00016,    .00034,
     +     .10682,    .02011,    .00853,    .00011,    .00008,
     +     .00004,    .00015,    .00030,
     +     .10122,    .01895,    .00760,    .00010,    .00007,
     +     .00003,    .00014,    .00029,
     +     .09636,    .01796,    .00686,    .00010,    .00007,
     +     .00003,    .00013,    .00027,
     +     .09056,    .01678,    .00604,    .00009,    .00007,
     +     .00003,    .00012,    .00025,
     +     .08546,    .01576,    .00537,    .00009,    .00007,
     +     .00003,    .00012,    .00023,
     +     .08096,    .01485,    .00483,    .00009,    .00006,
     +     .00003,    .00011,    .00022 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
     +     .07673,    .01401,    .00435,    .00008,    .00006,
     +     .00003,    .00010,    .00021,
     +     .07280,    .01324,    .00394,    .00008,    .00005,
     +     .00003,    .00010,    .00019,
     +     .06930,    .01255,    .00360,    .00008,    .00005,
     +     .00003,    .00009,    .00018,
     +     .06617,    .01194,    .00331,    .00008,    .00005,
     +     .00003,    .00009,    .00017,
     +     .06317,    .01135,    .00304,    .00007,    .00005,
     +     .00003,    .00008,    .00016,
     +     .06036,    .01081,    .00281,    .00007,    .00005,
     +     .00002,    .00008,    .00015,
     +     .05782,    .01032,    .00261,    .00006,    .00004,
     +     .00002,    .00007,    .00015,
     +     .05553,    .00987,    .00243,    .00006,    .00004,
     +     .00002,    .00007,    .00014 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
     +     .05332,    .00945,    .00227,    .00006,    .00004,
     +     .00002,    .00007,    .00013,
     +     .05121,    .00905,    .00213,    .00006,    .00004,
     +     .00002,    .00006,    .00012,
     +     .04929,    .00868,    .00200,    .00006,    .00004,
     +     .00002,    .00006,    .00012,
     +     .04755,    .00835,    .00188,    .00005,    .00003,
     +     .00002,    .00006,    .00011,
     +     .04585,    .00803,    .00178,    .00004,    .00003,
     +     .00002,    .00006,    .00011 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
     +     .25177,    .04981,    .07458,    .00015,    .00002,
     +     .00001,    .00020,    .00063,
     +     .23817,    .04682,    .06451,    .00015,    .00003,
     +     .00000,    .00020,    .00059,
     +     .21950,    .04275,    .05221,    .00014,    .00003,
     +     .00000,    .00019,    .00056,
     +     .20695,    .04004,    .04487,    .00013,    .00004,
     +     .00000,    .00018,    .00053,
     +     .19464,    .03742,    .03835,    .00013,    .00004,
     +     .00000,    .00017,    .00048,
     +     .18471,    .03533,    .03357,    .00014,    .00006,
     +     .00001,    .00017,    .00043,
     +     .17570,    .03342,    .02960,    .00013,    .00005,
     +     .00001,    .00016,    .00042,
     +     .16667,    .03152,    .02594,    .00013,    .00005,
     +     .00001,    .00016,    .00040 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
     +     .15922,    .02999,    .02316,    .00014,    .00005,
     +     .00000,    .00015,    .00036,
     +     .15239,    .02857,    .02080,    .00012,    .00005,
     +     .00000,    .00014,    .00035,
     +     .14722,    .02751,    .01912,    .00011,    .00005,
     +     .00000,    .00013,    .00034,
     +     .13680,    .02537,    .01602,    .00010,    .00005,
     +     .00000,    .00013,    .00032,
     +     .12847,    .02368,    .01380,    .00010,    .00004,
     +     .00000,    .00012,    .00031,
     +     .11984,    .02195,    .01173,    .00009,    .00004,
     +     .00000,    .00011,    .00028,
     +     .11157,    .02029,    .00996,    .00008,    .00004,
     +     .00001,    .00010,    .00025,
     +     .10460,    .01891,    .00861,    .00008,    .00005,
     +     .00000,    .00010,    .00023 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
     +     .09801,    .01762,    .00747,    .00008,    .00005,
     +     .00001,    .00009,    .00021,
     +     .09290,    .01663,    .00665,    .00008,    .00004,
     +     .00001,    .00009,    .00020,
     +     .08711,    .01550,    .00580,    .00008,    .00004,
     +     .00002,    .00008,    .00018,
     +     .08233,    .01457,    .00516,    .00007,    .00004,
     +     .00001,    .00008,    .00018,
     +     .07818,    .01378,    .00465,    .00007,    .00003,
     +     .00001,    .00007,    .00016,
     +     .07325,    .01284,    .00408,    .00007,    .00003,
     +     .00001,    .00006,    .00015,
     +     .06892,    .01202,    .00362,    .00006,    .00003,
     +     .00001,    .00006,    .00014,
     +     .06511,    .01131,    .00325,    .00006,    .00003,
     +     .00001,    .00006,    .00013 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
     +     .06155,    .01064,    .00292,    .00006,    .00003,
     +     .00001,    .00005,    .00012,
     +     .05825,    .01002,    .00265,    .00006,    .00003,
     +     .00001,    .00005,    .00011,
     +     .05532,    .00948,    .00241,    .00006,    .00002,
     +     .00001,    .00005,    .00010,
     +     .05270,    .00900,    .00221,    .00005,    .00002,
     +     .00001,    .00005,    .00010,
     +     .05021,    .00854,    .00203,    .00005,    .00002,
     +     .00001,    .00004,    .00009,
     +     .04789,    .00811,    .00188,    .00005,    .00002,
     +     .00001,    .00004,    .00009,
     +     .04578,    .00773,    .00174,    .00004,    .00002,
     +     .00001,    .00004,    .00008,
     +     .04388,    .00738,    .00162,    .00004,    .00002,
     +     .00001,    .00003,    .00008 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
     +     .04205,    .00705,    .00151,    .00004,    .00002,
     +     .00001,    .00003,    .00008,
     +     .04032,    .00674,    .00142,    .00004,    .00002,
     +     .00001,    .00003,    .00007,
     +     .03874,    .00646,    .00133,    .00004,    .00002,
     +     .00001,    .00003,    .00007,
     +     .03730,    .00620,    .00125,    .00004,    .00002,
     +     .00001,    .00003,    .00006,
     +     .03590,    .00595,    .00118,    .00004,    .00002,
     +     .00001,    .00003,    .00006 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
     +     .21313,    .03962,    .05401,    .00005,    .00003,
     +     .00004,    .00014,    .00038,
     +     .20100,    .03714,    .04641,    .00003,    .00003,
     +     .00003,    .00014,    .00036,
     +     .18440,    .03377,    .03719,    .00004,    .00004,
     +     .00003,    .00014,    .00032,
     +     .17328,    .03154,    .03174,    .00005,    .00004,
     +     .00003,    .00013,    .00029,
     +     .16241,    .02938,    .02694,    .00006,    .00005,
     +     .00003,    .00012,    .00027,
     +     .15368,    .02765,    .02345,    .00007,    .00005,
     +     .00002,    .00011,    .00025,
     +     .14580,    .02609,    .02057,    .00006,    .00004,
     +     .00003,    .00011,    .00023,
     +     .13792,    .02455,    .01793,    .00005,    .00004,
     +     .00003,    .00011,    .00022 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
     +     .13145,    .02329,    .01594,    .00005,    .00004,
     +     .00002,    .00011,    .00021,
     +     .12551,    .02214,    .01426,    .00004,    .00004,
     +     .00002,    .00010,    .00020,
     +     .12103,    .02127,    .01306,    .00004,    .00004,
     +     .00003,    .00009,    .00020,
     +     .11201,    .01956,    .01088,    .00005,    .00004,
     +     .00002,    .00008,    .00018,
     +     .10485,    .01820,    .00933,    .00005,    .00004,
     +     .00002,    .00008,    .00016,
     +     .09747,    .01680,    .00789,    .00004,    .00004,
     +     .00002,    .00007,    .00015,
     +     .09040,    .01548,    .00666,    .00002,    .00004,
     +     .00002,    .00007,    .00014,
     +     .08445,    .01438,    .00574,    .00003,    .00003,
     +     .00002,    .00006,    .00014 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
     +     .07889,    .01335,    .00496,    .00004,    .00003,
     +     .00002,    .00006,    .00011,
     +     .07457,    .01256,    .00441,    .00004,    .00003,
     +     .00002,    .00006,    .00010,
     +     .06969,    .01167,    .00383,    .00005,    .00003,
     +     .00002,    .00005,    .00010,
     +     .06566,    .01095,    .00340,    .00004,    .00002,
     +     .00002,    .00005,    .00009,
     +     .06220,    .01033,    .00306,    .00004,    .00002,
     +     .00002,    .00004,    .00009,
     +     .05810,    .00959,    .00268,    .00003,    .00002,
     +     .00001,    .00004,    .00008,
     +     .05450,    .00895,    .00237,    .00003,    .00002,
     +     .00002,    .00004,    .00007,
     +     .05135,    .00840,    .00213,    .00003,    .00002,
     +     .00001,    .00004,    .00007 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
     +     .04840,    .00788,    .00191,    .00003,    .00002,
     +     .00001,    .00004,    .00006,
     +     .04571,    .00740,    .00173,    .00002,    .00002,
     +     .00001,    .00003,    .00006,
     +     .04330,    .00698,    .00157,    .00002,    .00002,
     +     .00001,    .00003,    .00006,
     +     .04116,    .00661,    .00144,    .00001,    .00002,
     +     .00001,    .00003,    .00006,
     +     .03912,    .00626,    .00132,    .00001,    .00001,
     +     .00001,    .00002,    .00005,
     +     .03721,    .00593,    .00122,    .00002,    .00002,
     +     .00001,    .00002,    .00005,
     +     .03550,    .00564,    .00113,    .00001,    .00001,
     +     .00001,    .00002,    .00005,
     +     .03396,    .00538,    .00105,    .00001,    .00001,
     +     .00001,    .00002,    .00004 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
     +     .03248,    .00513,    .00098,    .00001,    .00001,
     +     .00001,    .00002,    .00004,
     +     .03108,    .00489,    .00092,    .00001,    .00001,
     +     .00001,    .00002,    .00004,
     +     .02980,    .00468,    .00086,    .00001,    .00001,
     +     .00001,    .00002,    .00004,
     +     .02864,    .00448,    .00081,    .00001,    .00001,
     +     .00001,    .00002,    .00003,
     +     .02752,    .00430,    .00076,    .00001,    .00001,
     +     .00001,    .00002,    .00003 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
     +     .14527,    .02379,    .02601,    .00002,    .00000,
     +     .00000,    .00003,    .00013,
     +     .13610,    .02215,    .02204,    .00002,    .00000,
     +     .00000,    .00004,    .00012,
     +     .12368,    .01995,    .01731,    .00002,    .00000,
     +     .00000,    .00004,    .00009,
     +     .11544,    .01850,    .01458,    .00002,    .00001,
     +     .00000,    .00004,    .00009,
     +     .10745,    .01711,    .01221,    .00001,    .00001,
     +     .00000,    .00003,    .00008,
     +     .10105,    .01601,    .01051,    .00002,    .00001,
     +     .00000,    .00004,    .00008,
     +     .09532,    .01502,    .00913,    .00002,    .00001,
     +     .00000,    .00003,    .00008,
     +     .08964,    .01405,    .00789,    .00001,    .00001,
     +     .00000,    .00003,    .00007 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
     +     .08501,    .01327,    .00696,    .00000,    .00001,
     +     .00000,    .00003,    .00007,
     +     .08078,    .01255,    .00618,    .00000,    .00001,
     +     .00000,    .00003,    .00007,
     +     .07759,    .01201,    .00563,    .00000,    .00001,
     +     .00000,    .00003,    .00007,
     +     .07123,    .01095,    .00464,    .00000,    .00001,
     +     .00000,    .00002,    .00006,
     +     .06622,    .01012,    .00394,    .00001,    .00001,
     +     .00000,    .00002,    .00006,
     +     .06108,    .00928,    .00331,    .00001,    .00001,
     +     .00000,    .00002,    .00005,
     +     .05621,    .00848,    .00277,    .00000,    .00001,
     +     .00000,    .00002,    .00004,
     +     .05217,    .00782,    .00238,    .00000,    .00001,
     +     .00000,    .00002,    .00004 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
     +     .04839,    .00722,    .00204,    .00001,    .00001,
     +     .00000,    .00002,    .00003,
     +     .04549,    .00675,    .00181,    .00001,    .00001,
     +     .00000,    .00002,    .00003,
     +     .04222,    .00623,    .00157,    .00000,    .00001,
     +     .00000,    .00001,    .00003,
     +     .03955,    .00581,    .00138,    .00001,    .00001,
     +     .00000,    .00001,    .00003,
     +     .03726,    .00545,    .00124,    .00001,    .00001,
     +     .00000,    .00001,    .00003,
     +     .03457,    .00503,    .00108,    .00000,    .00001,
     +     .00000,    .00001,    .00002,
     +     .03223,    .00467,    .00096,    .00001,    .00001,
     +     .00000,    .00001,    .00002,
     +     .03019,    .00435,    .00086,    .00001,    .00001,
     +     .00000,    .00001,    .00002 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
     +     .02830,    .00406,    .00077,    .00001,    .00001,
     +     .00000,    .00001,    .00002,
     +     .02657,    .00379,    .00069,    .00000,    .00000,
     +     .00000,    .00001,    .00002,
     +     .02504,    .00356,    .00063,    .00000,    .00000,
     +     .00000,    .00001,    .00002,
     +     .02369,    .00335,    .00058,    .00000,    .00000,
     +     .00000,    .00001,    .00002,
     +     .02241,    .00316,    .00053,    .00000,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02121,    .00298,    .00049,    .00000,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02014,    .00282,    .00045,    .00000,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01918,    .00268,    .00042,    .00000,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/
     +     .01827,    .00254,    .00039,    .00000,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01741,    .00242,    .00037,    .00000,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01663,    .00230,    .00034,    .00000,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01593,    .00220,    .00032,    .00000,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01525,    .00210,    .00030,    .00000,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/
     +     .09097,    .01293,    .01080,    .00001,    .00000,
     +    -.00001,    .00001,    .00004,
     +     .08464,    .01196,    .00902,    .00001,    .00000,
     +    -.00001,    .00000,    .00003,
     +     .07613,    .01066,    .00696,    .00000,    .00000,
     +     .00000,    .00001,    .00003,
     +     .07053,    .00982,    .00579,    .00001,    .00000,
     +     .00000,    .00000,    .00002,
     +     .06515,    .00901,    .00479,    .00001,    .00000,
     +     .00000,    .00000,    .00002,
     +     .06088,    .00838,    .00409,    .00000,    .00000,
     +     .00000,    .00000,    .00002,
     +     .05708,    .00781,    .00352,    .00001,    .00000,
     +     .00000,    .00000,    .00002,
     +     .05333,    .00726,    .00302,    .00001,    .00000,
     +     .00000,    .00001,    .00002 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
     +     .05029,    .00682,    .00264,    .00001,    .00000,
     +     .00000,    .00001,    .00002,
     +     .04753,    .00642,    .00233,    .00001,    .00000,
     +     .00000,    .00001,    .00002,
     +     .04547,    .00612,    .00212,    .00000,    .00000,
     +     .00000,    .00000,    .00002,
     +     .04139,    .00553,    .00173,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .03819,    .00508,    .00146,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .03494,    .00461,    .00122,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .03189,    .00418,    .00102,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02938,    .00383,    .00087,    .00000,    .00000,
     +     .00000,    .00000,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
     +     .02704,    .00351,    .00074,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02526,    .00326,    .00066,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02329,    .00299,    .00057,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02168,    .00277,    .00050,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02030,    .00258,    .00045,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01869,    .00237,    .00039,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01731,    .00218,    .00035,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01611,    .00202,    .00031,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
     +     .01501,    .00187,    .00028,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01400,    .00174,    .00025,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01313,    .00162,    .00023,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01235,    .00152,    .00021,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01162,    .00143,    .00019,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01095,    .00134,    .00018,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01035,    .00126,    .00016,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00981,    .00119,    .00015,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/
     +     .00930,    .00113,    .00014,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00882,    .00107,    .00013,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00839,    .00101,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00800,    .00096,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00763,    .00091,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/
     +     .05096,    .00617,    .00369,    .00001,   -.00001,
     +    -.00001,    .00000,    .00000,
     +     .04704,    .00566,    .00305,    .00001,   -.00001,
     +    -.00001,    .00000,    .00000,
     +     .04183,    .00499,    .00231,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .03844,    .00456,    .00190,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .03521,    .00415,    .00156,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .03267,    .00383,    .00132,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03042,    .00355,    .00113,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02822,    .00328,    .00096,    .00000,    .00000,
     +     .00000,    .00000,    .00001 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
     +     .02645,    .00305,    .00084,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02485,    .00286,    .00074,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02366,    .00271,    .00067,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02133,    .00243,    .00054,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01952,    .00221,    .00046,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01769,    .00199,    .00038,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01600,    .00179,    .00032,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01461,    .00162,    .00027,    .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)/
     +     .01334,    .00148,    .00023,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01238,    .00136,    .00021,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01131,    .00124,    .00018,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01045,    .00114,    .00016,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00973,    .00106,    .00014,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00888,    .00096,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00816,    .00088,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00755,    .00081,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/
     +     .00698,    .00074,    .00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00647,    .00069,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00603,    .00064,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00563,    .00059,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00527,    .00055,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00494,    .00052,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00464,    .00048,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00438,    .00045,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=33,37)/
     +     .00413,    .00043,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00390,    .00040,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00369,    .00038,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00350,    .00036,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00333,    .00034,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/
     +     .02429,    .00242,    .00095,   -.00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02222,    .00220,    .00078,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01950,    .00192,    .00058,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01775,    .00174,    .00048,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01610,    .00157,    .00039,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01481,    .00143,    .00033,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01368,    .00132,    .00028,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01259,    .00121,    .00024,    .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)/
     +     .01171,    .00112,    .00021,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01093,    .00104,    .00018,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01035,    .00098,    .00017,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00922,    .00087,    .00013,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00836,    .00078,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00750,    .00070,    .00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00671,    .00062,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00607,    .00056,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=17,24)/
     +     .00549,    .00050,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00505,    .00046,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00457,    .00041,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00419,    .00038,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00387,    .00035,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00350,    .00031,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00319,    .00028,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00292,    .00026,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/
     +     .00268,    .00024,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00247,    .00022,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00228,    .00020,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00212,    .00018,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00197,    .00017,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00183,    .00016,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00171,    .00015,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00160,    .00014,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/
     +     .00150,    .00013,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00141,    .00012,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00133,    .00011,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00125,    .00011,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00118,    .00010,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/
     +     .00217,    .00012,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00194,    .00011,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00164,    .00009,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00145,    .00008,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00128,    .00007,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00115,    .00006,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00104,    .00006,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00093,    .00005,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/
     +     .00085,    .00005,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00078,    .00004,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00072,    .00004,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00062,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00055,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00048,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00041,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00036,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/
     +     .00032,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00029,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00025,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00023,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00021,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00018,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00016,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00014,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
     +     .00013,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00012,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00010,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00009,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00009,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00008,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00007,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00006,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
     +     .00006,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00005,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00005,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00005,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00004,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
      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='MRSR1.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