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

sfmsr2.F

#include "pdf/pilot.h"
      SUBROUTINE SFMSR2(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)
#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)/
     +     .00125,    .00705,    .95079,    .46974,    .00369,
     +     .00000,    .26718,    .47247,
     +     .00142,    .00716,   2.14763,    .54233,    .00875,
     +     .00000,    .33163,    .54546,
     +     .00169,    .00731,   4.57296,    .68101,    .02220,
     +     .00000,    .45455,    .68470,
     +     .00188,    .00743,   6.93782,    .80501,    .03889,
     +     .00000,    .56470,    .80910,
     +     .00208,    .00755,   9.99880,    .95637,    .06613,
     +     .00000,    .69982,    .96086,
     +     .00226,    .00765,  13.16388,   1.10405,    .10105,
     +     .00000,    .83263,   1.10888,
     +     .00243,    .00775,  16.70415,   1.26066,    .14838,
     +     .00000,    .97479,   1.26581,
     +     .00261,    .00785,  20.94773,   1.44183,    .21831,
     +     .00000,   1.14126,   1.44730 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
     +     .00276,    .00794,  25.12284,   1.61086,    .30020,
     +     .00000,   1.29885,   1.61661,
     +     .00292,    .00803,  29.65736,   1.78415,    .40243,
     +     .00000,   1.46295,   1.79016,
     +     .00304,    .00810,  33.51854,   1.92665,    .50192,
     +     .00000,   1.60005,   1.93287,
     +     .00330,    .00825,  42.81261,   2.24710,    .77801,
     +     .00000,   1.91570,   2.25375,
     +     .00353,    .00838,  51.92537,   2.53905,   1.09174,
     +     .08999,   2.21204,   2.54605,
     +     .00378,    .00853,  63.38321,   2.88537,   1.52589,
     +     .41407,   2.57229,   2.89276,
     +     .00405,    .00868,  76.77367,   3.27568,   2.06127,
     +     .88212,   2.98472,   3.28347,
     +     .00430,    .00882,  90.27887,   3.66532,   2.60704,
     +    1.33212,   3.39790,   3.67345 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
     +     .00455,    .00896, 105.25424,   4.10058,   3.20168,
     +    1.83209,   3.85713,   4.10905,
     +     .00476,    .00908, 118.72684,   4.49842,   3.72133,
     +    2.27950,   4.27335,   4.50716,
     +     .00502,    .00923, 136.23756,   5.02671,   4.37627,
     +    2.86165,   4.82088,   5.03578,
     +     .00525,    .00936, 152.93202,   5.54004,   4.97949,
     +    3.41592,   5.34804,   5.54939,
     +     .00546,    .00948, 169.34200,   6.05143,   5.55554,
     +    3.95946,   5.86956,   6.06102,
     +     .00574,    .00963, 191.32417,   6.74912,   6.31416,
     +    4.69155,   6.57705,   6.75903,
     +     .00600,    .00978, 213.35898,   7.45827,   7.06313,
     +    5.42769,   7.29290,   7.46846,
     +     .00624,    .00992, 235.33051,   8.17194,   7.80258,
     +    6.16303,   8.01117,   8.18239 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
     +     .00649,    .01006, 258.47083,   8.93081,   8.57918,
     +    6.94097,   8.77348,   8.94151,
     +     .00673,    .01020, 282.09943,   9.71395,   9.37422,
     +    7.74098,   9.55917,   9.72488,
     +     .00697,    .01033, 305.71927,  10.50036,  10.16848,
     +    8.54213,  10.34751,  10.51152,
     +     .00719,    .01045, 328.66223,  11.27234,  10.94581,
     +    9.32724,  11.12098,  11.28370,
     +     .00741,    .01058, 352.77954,  12.08749,  11.76498,
     +   10.15499,  11.93743,  12.09905,
     +     .00764,    .01070, 377.25537,  12.92173,  12.60230,
     +   11.00122,  12.77281,  12.93348,
     +     .00785,    .01082, 401.38583,  13.74898,  13.43195,
     +   11.83957,  13.60106,  13.76092,
     +     .00805,    .01094, 424.83652,  14.55918,  14.24410,
     +   12.66004,  14.41214,  14.57128 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
     +     .00826,    .01105, 449.32571,  15.40913,  15.09581,
     +   13.52016,  15.26294,  15.42139,
     +     .00847,    .01117, 473.94208,  16.27154,  15.95983,
     +   14.39247,  16.12617,  16.28396,
     +     .00867,    .01128, 498.39615,  17.13007,  16.81981,
     +   15.26030,  16.98546,  17.14265,
     +     .00885,    .01138, 521.68097,  17.95758,  17.64863,
     +   16.09654,  17.81366,  17.97029,
     +     .00905,    .01149, 546.13434,  18.82824,  18.52058,
     +   16.97592,  18.68502,  18.84108 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
     +     .00256,    .00863,    .95452,    .42831,    .00336,
     +     .00000,    .24242,    .43084,
     +     .00281,    .00878,   2.05475,    .49309,    .00788,
     +     .00000,    .29981,    .49588,
     +     .00318,    .00901,   4.20982,    .61417,    .01968,
     +     .00000,    .40699,    .61734,
     +     .00345,    .00917,   6.25730,    .72060,    .03414,
     +     .00000,    .50147,    .72403,
     +     .00373,    .00933,   8.85593,    .84873,    .05749,
     +     .00000,    .61583,    .85243,
     +     .00398,    .00948,  11.49813,    .97224,    .08716,
     +     .00000,    .72693,    .97617,
     +     .00421,    .00961,  14.41224,   1.10184,    .12706,
     +     .00000,    .84464,   1.10598,
     +     .00446,    .00976,  17.85801,   1.25013,    .18553,
     +     .00000,    .98106,   1.25449 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
     +     .00468,    .00989,  21.20776,   1.38713,    .25351,
     +     .00000,   1.10900,   1.39167,
     +     .00490,    .01001,  24.80883,   1.52637,    .33781,
     +     .00000,   1.24116,   1.53109,
     +     .00507,    .01011,  27.84710,   1.63994,    .41938,
     +     .00000,   1.35075,   1.64480,
     +     .00543,    .01031,  35.07557,   1.89268,    .64387,
     +     .00000,   1.60068,   1.89783,
     +     .00575,    .01049,  42.06365,   2.11998,    .89634,
     +     .07078,   1.83260,   2.12536,
     +     .00610,    .01070,  50.73584,   2.38651,   1.24207,
     +     .32396,   2.11155,   2.39216,
     +     .00647,    .01090,  60.73619,   2.68368,   1.66341,
     +     .68658,   2.42757,   2.68958,
     +     .00681,    .01110,  70.69849,   2.97774,   2.08788,
     +    1.03150,   2.74124,   2.98388 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
     +     .00716,    .01129,  81.62113,   3.30387,   2.54501,
     +    1.41133,   3.08705,   3.31024,
     +     .00745,    .01145,  91.34998,   3.60015,   2.94026,
     +    1.74846,   3.39824,   3.60670,
     +     .00780,    .01165, 103.86962,   3.99115,   3.43317,
     +    2.18360,   3.80472,   3.99793,
     +     .00812,    .01183, 115.69137,   4.36874,   3.88244,
     +    2.59465,   4.19334,   4.37570,
     +     .00841,    .01199, 127.21683,   4.74281,   4.30772,
     +    2.99497,   4.57544,   4.74995,
     +     .00878,    .01219, 142.51237,   5.24984,   4.86265,
     +    3.53012,   5.09019,   5.25719,
     +     .00914,    .01239, 157.70033,   5.76163,   5.40554,
     +    4.06405,   5.60723,   5.76917,
     +     .00947,    .01257, 172.71829,   6.27337,   5.93732,
     +    4.59366,   6.12256,   6.28108 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
     +     .00981,    .01276, 188.40701,   6.81408,   6.49177,
     +    5.15019,   6.66596,   6.82197,
     +     .01014,    .01294, 204.29691,   7.36855,   7.05545,
     +    5.71871,   7.22244,   7.37660,
     +     .01046,    .01311, 220.07115,   7.92219,   7.61517,
     +    6.28469,   7.77758,   7.93039,
     +     .01076,    .01328, 235.28136,   8.46253,   8.15967,
     +    6.83606,   8.31911,   8.47088,
     +     .01106,    .01344, 251.17184,   9.03018,   8.73047,
     +    7.41432,   8.88779,   9.03867,
     +     .01137,    .01361, 267.19235,   9.60806,   9.31079,
     +    8.00232,   9.46659,   9.61668,
     +     .01165,    .01377, 282.89365,  10.17831,   9.88295,
     +    8.58193,  10.03763,  10.18705,
     +     .01193,    .01392, 298.06366,  10.73418,  10.44039,
     +    9.14647,  10.59421,  10.74304 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
     +     .01221,    .01407, 313.82397,  11.31481,  11.02245,
     +    9.73571,  11.17553,  11.32378,
     +     .01249,    .01422, 329.57388,  11.90121,  11.61016,
     +   10.33048,  11.76259,  11.91030,
     +     .01275,    .01436, 345.15158,  12.48276,  12.19290,
     +   10.91989,  12.34476,  12.49195,
     +     .01301,    .01450, 359.89584,  13.04074,  12.75196,
     +   11.48525,  12.90330,  13.05002,
     +     .01327,    .01464, 375.32080,  13.62583,  13.33812,
     +   12.07771,  13.48897,  13.63522 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
     +     .00452,    .01057,    .95880,    .39023,    .00306,
     +     .00000,    .21994,    .39265,
     +     .00487,    .01079,   1.96652,    .44798,    .00709,
     +     .00000,    .27098,    .45056,
     +     .00540,    .01110,   3.87597,    .55351,    .01743,
     +     .00000,    .36429,    .55633,
     +     .00578,    .01132,   5.64359,    .64463,    .02994,
     +     .00000,    .44513,    .64762,
     +     .00619,    .01155,   7.84315,    .75278,    .04993,
     +     .00000,    .54164,    .75594,
     +     .00653,    .01175,  10.04190,    .85573,    .07509,
     +     .00000,    .63427,    .85903,
     +     .00686,    .01194,  12.43269,    .96260,    .10865,
     +     .00000,    .73140,    .96603,
     +     .00722,    .01214,  15.22083,   1.08350,    .15743,
     +     .00000,    .84276,   1.08707 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
     +     .00752,    .01232,  17.89850,   1.19408,    .21374,
     +     .00000,    .94622,   1.19776,
     +     .00782,    .01249,  20.74739,   1.30547,    .28311,
     +     .00000,   1.05221,   1.30926,
     +     .00806,    .01262,  23.12864,   1.39557,    .34983,
     +     .00000,   1.13944,   1.39945,
     +     .00857,    .01290,  28.72740,   1.59392,    .53192,
     +     .00000,   1.33644,   1.59799,
     +     .00901,    .01315,  34.06276,   1.76994,    .73461,
     +     .05547,   1.51708,   1.77416,
     +     .00950,    .01342,  40.59650,   1.97390,   1.00924,
     +     .25253,   1.73201,   1.97828,
     +     .01001,    .01371,  48.02902,   2.19882,   1.33995,
     +     .53245,   1.97292,   2.20337,
     +     .01048,    .01396,  55.34068,   2.41945,   1.66913,
     +     .79584,   2.20983,   2.42415 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
     +     .01096,    .01423,  63.26545,   2.66241,   2.01948,
     +    1.08327,   2.46889,   2.66725,
     +     .01136,    .01444,  70.25235,   2.88180,   2.31910,
     +    1.33630,   2.70036,   2.88676,
     +     .01185,    .01471,  79.15251,   3.16960,   2.68871,
     +    1.66025,   3.00057,   3.17470,
     +     .01228,    .01495,  87.47433,   3.44584,   3.02199,
     +    1.96381,   3.28558,   3.45106,
     +     .01268,    .01516,  95.52023,   3.71801,   3.33462,
     +    2.25742,   3.56409,   3.72334,
     +     .01319,    .01544, 106.09579,   4.08449,   3.73870,
     +    2.64692,   3.93664,   4.08996,
     +     .01368,    .01570, 116.49593,   4.45185,   4.13032,
     +    3.03246,   4.30810,   4.45745,
     +     .01413,    .01594, 126.69185,   4.81681,   4.51082,
     +    3.41217,   4.67586,   4.82252 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
     +     .01459,    .01619, 137.25456,   5.19997,   4.90462,
     +    3.80848,   5.06112,   5.20580,
     +     .01504,    .01643, 147.86296,   5.59035,   5.30211,
     +    4.21058,   5.45305,   5.59628,
     +     .01547,    .01666, 158.32004,   5.97791,   5.69439,
     +    4.60849,   5.84180,   5.98395,
     +     .01588,    .01688, 168.32674,   6.35395,   6.07366,
     +    4.99379,   6.21877,   6.36008,
     +     .01629,    .01709, 178.71536,   6.74696,   6.46913,
     +    5.39575,   6.61259,   6.75318,
     +     .01670,    .01731, 189.11736,   7.14488,   6.86898,
     +    5.80221,   7.01124,   7.15120,
     +     .01709,    .01752, 199.25040,   7.53563,   7.26125,
     +    6.20086,   7.40262,   7.54202,
     +     .01746,    .01771, 208.98117,   7.91466,   7.64155,
     +    6.58724,   7.78222,   7.92114 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
     +     .01784,    .01791, 219.03743,   8.30887,   8.03692,
     +    6.98872,   8.17698,   8.31542,
     +     .01821,    .01811, 229.02512,   8.70510,   8.43421,
     +    7.39202,   8.57374,   8.71172,
     +     .01857,    .01830, 238.86061,   9.09655,   8.82664,
     +    7.79013,   8.96569,   9.10325,
     +     .01891,    .01848, 248.11046,   9.47035,   9.20133,
     +    8.17017,   9.33994,   9.47712,
     +     .01926,    .01866, 257.75046,   9.86099,   9.59285,
     +    8.56705,   9.73104,   9.86783 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
     +     .00607,    .01191,    .96177,    .36937,    .00289,
     +     .00000,    .20776,    .37179,
     +     .00651,    .01217,   1.91719,    .42332,    .00667,
     +     .00000,    .25540,    .42587,
     +     .00716,    .01254,   3.69346,    .52060,    .01624,
     +     .00000,    .34135,    .52332,
     +     .00763,    .01281,   5.31296,    .60370,    .02772,
     +     .00000,    .41505,    .60654,
     +     .00812,    .01309,   7.30488,    .70148,    .04595,
     +     .00000,    .50231,    .70445,
     +     .00855,    .01333,   9.27617,    .79386,    .06878,
     +     .00000,    .58545,    .79694,
     +     .00895,    .01356,  11.40167,    .88914,    .09907,
     +     .00000,    .67208,    .89231,
     +     .00939,    .01380,  13.86018,    .99620,    .14290,
     +     .00000,    .77077,    .99948 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
     +     .00976,    .01401,  16.20429,   1.09353,    .19326,
     +     .00000,    .86195,   1.09690,
     +     .01012,    .01421,  18.68305,   1.19105,    .25508,
     +     .00000,    .95490,   1.19451,
     +     .01041,    .01437,  20.74340,   1.26954,    .31432,
     +     .00000,   1.03105,   1.27306,
     +     .01103,    .01471,  25.55387,   1.44122,    .47523,
     +     .00000,   1.20203,   1.44487,
     +     .01156,    .01501,  30.09902,   1.59234,    .65324,
     +     .04800,   1.35770,   1.59611,
     +     .01216,    .01533,  35.62123,   1.76621,    .89292,
     +     .21786,   1.54173,   1.77010,
     +     .01278,    .01567,  41.85240,   1.95669,   1.17953,
     +     .45797,   1.74671,   1.96071,
     +     .01335,    .01598,  47.93647,   2.14258,   1.46278,
     +     .68245,   1.94718,   2.14672 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
     +     .01393,    .01629,  54.48560,   2.34645,   1.76212,
     +     .92613,   2.16535,   2.35069,
     +     .01441,    .01655,  60.22464,   2.52991,   2.01645,
     +    1.13959,   2.35947,   2.53425,
     +     .01500,    .01687,  67.49087,   2.76975,   2.32814,
     +    1.41159,   2.61020,   2.77419,
     +     .01552,    .01715,  74.24516,   2.99913,   2.60738,
     +    1.66525,   2.84725,   3.00367,
     +     .01601,    .01740,  80.74314,   3.22443,   2.86789,
     +    1.90959,   3.07807,   3.22905,
     +     .01662,    .01773,  89.23483,   3.52663,   3.20269,
     +    2.23227,   3.38553,   3.53136,
     +     .01720,    .01804,  97.53741,   3.82832,   3.52533,
     +    2.55018,   3.69076,   3.83314,
     +     .01775,    .01832, 105.63536,   4.12689,   3.83731,
     +    2.86196,   3.99176,   4.13181 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
     +     .01830,    .01861, 113.98271,   4.43918,   4.15874,
     +    3.18604,   4.30585,   4.44418,
     +     .01884,    .01890, 122.32356,   4.75612,   4.48180,
     +    3.51354,   4.62415,   4.76121,
     +     .01935,    .01917, 130.51100,   5.06972,   4.79946,
     +    3.83648,   4.93877,   5.07489,
     +     .01984,    .01942, 138.30943,   5.37293,   5.10546,
     +    4.14807,   5.24278,   5.37817,
     +     .02033,    .01968, 146.37512,   5.68885,   5.42352,
     +    4.47209,   5.55941,   5.69417,
     +     .02082,    .01993, 154.41780,   6.00769,   5.74404,
     +    4.79866,   5.87889,   6.01308,
     +     .02128,    .02017, 162.22395,   6.31985,   6.05755,
     +    5.11800,   6.19161,   6.32531,
     +     .02172,    .02040, 169.69249,   6.62180,   6.36061,
     +    5.42661,   6.49406,   6.62732 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
     +     .02217,    .02063, 177.38649,   6.93502,   6.67486,
     +    5.74643,   6.80777,   6.94061,
     +     .02261,    .02086, 184.99924,   7.24893,   6.98973,
     +    6.06677,   7.12214,   7.25458,
     +     .02304,    .02108, 192.47658,   7.55838,   7.30004,
     +    6.38225,   7.43203,   7.56409,
     +     .02344,    .02129, 199.48074,   7.85301,   7.59546,
     +    6.68255,   7.72706,   7.85878,
     +     .02386,    .02151, 206.76364,   8.16031,   7.90355,
     +    6.99550,   8.03476,   8.16613 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
     +     .00741,    .01297,    .96419,    .35516,    .00278,
     +     .00000,    .19953,    .35762,
     +     .00792,    .01326,   1.88330,    .40655,    .00638,
     +     .00000,    .24488,    .40912,
     +     .00867,    .01369,   3.56944,    .49831,    .01544,
     +     .00000,    .32593,    .50102,
     +     .00921,    .01400,   5.09022,    .57609,    .02624,
     +     .00000,    .39490,    .57890,
     +     .00978,    .01432,   6.94525,    .66705,    .04331,
     +     .00000,    .47607,    .66996,
     +     .01027,    .01459,   8.76792,    .75252,    .06460,
     +     .00000,    .55300,    .75552,
     +     .01074,    .01485,  10.72138,    .84025,    .09275,
     +     .00000,    .63281,    .84333,
     +     .01124,    .01512,  12.96762,    .93836,    .13335,
     +     .00000,    .72330,    .94152 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
     +     .01167,    .01536,  15.09830,   1.02715,    .17986,
     +     .00000,    .80657,   1.03039,
     +     .01209,    .01559,  17.34150,   1.11579,    .23678,
     +     .00000,    .89115,   1.11910,
     +     .01242,    .01577,  19.19858,   1.18686,    .29120,
     +     .00000,    .96022,   1.19022,
     +     .01313,    .01616,  23.51276,   1.34160,    .43848,
     +     .00000,   1.11466,   1.34507,
     +     .01374,    .01649,  27.56405,   1.47701,    .60072,
     +     .04328,   1.25455,   1.48058,
     +     .01443,    .01686,  32.45835,   1.63201,    .81818,
     +     .19599,   1.41916,   1.63568,
     +     .01514,    .01724,  37.94894,   1.80102,   1.07690,
     +     .41111,   1.60168,   1.80480,
     +     .01580,    .01759,  43.28111,   1.96536,   1.33129,
     +     .61132,   1.77950,   1.96924 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
     +     .01646,    .01794,  48.99258,   2.14507,   1.59877,
     +     .82782,   1.97234,   2.14904,
     +     .01701,    .01824,  53.97569,   2.30641,   1.82496,
     +    1.01681,   2.14343,   2.31045,
     +     .01768,    .01859,  60.25713,   2.51680,   2.10085,
     +    1.25680,   2.36375,   2.52093,
     +     .01828,    .01890,  66.07139,   2.71753,   2.34687,
     +    1.47985,   2.57145,   2.72175,
     +     .01883,    .01919,  71.64510,   2.91424,   2.57548,
     +    1.69408,   2.77316,   2.91853,
     +     .01952,    .01956,  78.89846,   3.17739,   2.86807,
     +    1.97608,   3.04106,   3.18177,
     +     .02018,    .01991,  85.96050,   3.43931,   3.14887,
     +    2.25297,   3.30619,   3.44377,
     +     .02081,    .02023,  92.82318,   3.69783,   3.41945,
     +    2.52370,   3.56690,   3.70237 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
     +     .02143,    .02055,  99.87158,   3.96750,   3.69734,
     +    2.80430,   3.83819,   3.97212,
     +     .02204,    .02087, 106.88850,   4.24043,   3.97577,
     +    3.08705,   4.11234,   4.24513,
     +     .02263,    .02118, 113.75548,   4.50984,   4.24883,
     +    3.36514,   4.38268,   4.51460,
     +     .02318,    .02146, 120.27418,   4.76965,   4.51117,
     +    3.63276,   4.64322,   4.77448,
     +     .02374,    .02175, 126.99796,   5.03977,   4.78322,
     +    3.91043,   4.91398,   5.04466,
     +     .02429,    .02203, 133.68233,   5.31175,   5.05673,
     +    4.18963,   5.18654,   5.31671,
     +     .02481,    .02230, 140.15280,   5.57747,   5.32368,
     +    4.46205,   5.45277,   5.58249,
     +     .02531,    .02256, 146.32683,   5.83397,   5.58120,
     +    4.72476,   5.70973,   5.83904 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
     +     .02582,    .02282, 152.67271,   6.09954,   5.84772,
     +    4.99650,   5.97574,   6.10467,
     +     .02632,    .02307, 158.93408,   6.36515,   6.11421,
     +    5.26811,   6.24178,   6.37034,
     +     .02680,    .02332, 165.07289,   6.62656,   6.37642,
     +    5.53516,   6.50360,   6.63180,
     +     .02726,    .02355, 170.80612,   6.87494,   6.62554,
     +    5.78883,   6.75234,   6.88022,
     +     .02772,    .02379, 176.75813,   7.13363,   6.88495,
     +    6.05280,   7.01140,   7.13896 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
     +     .00859,    .01385,    .96633,    .34445,    .00270,
     +     .00000,    .19337,    .34697,
     +     .00917,    .01418,   1.85770,    .39393,    .00617,
     +     .00000,    .23702,    .39654,
     +     .01001,    .01465,   3.47630,    .48159,    .01484,
     +     .00000,    .31443,    .48433,
     +     .01062,    .01499,   4.92393,    .55544,    .02514,
     +     .00000,    .37991,    .55827,
     +     .01126,    .01534,   6.67833,    .64139,    .04136,
     +     .00000,    .45661,    .64431,
     +     .01181,    .01565,   8.39248,    .72181,    .06152,
     +     .00000,    .52901,    .72480,
     +     .01233,    .01593,  10.22099,    .80405,    .08811,
     +     .00000,    .60385,    .80711,
     +     .01289,    .01624,  12.31391,    .89566,    .12635,
     +     .00000,    .68840,    .89880 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
     +     .01337,    .01650,  14.29113,    .97830,    .17005,
     +     .00000,    .76595,    .98150,
     +     .01384,    .01675,  16.36561,   1.06054,    .22342,
     +     .00000,    .84451,   1.06380,
     +     .01421,    .01695,  18.07762,   1.12629,    .27435,
     +     .00000,    .90850,   1.12960,
     +     .01500,    .01738,  22.03923,   1.26892,    .41181,
     +     .00000,   1.05110,   1.27232,
     +     .01568,    .01774,  25.74158,   1.39316,    .56270,
     +     .03991,   1.17975,   1.39665,
     +     .01644,    .01815,  30.19447,   1.53479,    .76426,
     +     .18044,   1.33059,   1.53838,
     +     .01724,    .01857,  35.16710,   1.68867,   1.00312,
     +     .37785,   1.49725,   1.69234,
     +     .01796,    .01895,  39.97584,   1.83786,   1.23703,
     +     .56093,   1.65911,   1.84162 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
     +     .01870,    .01934,  45.10676,   2.00064,   1.48201,
     +     .75831,   1.83420,   2.00449,
     +     .01931,    .01966,  49.56796,   2.14652,   1.68840,
     +     .93015,   1.98917,   2.15043,
     +     .02005,    .02005,  55.17208,   2.33639,   1.93921,
     +    1.14776,   2.18828,   2.34039,
     +     .02071,    .02040,  60.34218,   2.51721,   2.16204,
     +    1.34949,   2.37556,   2.52127,
     +     .02132,    .02071,  65.28451,   2.69409,   2.36845,
     +    1.54280,   2.55708,   2.69822,
     +     .02209,    .02111,  71.69499,   2.93021,   2.63178,
     +    1.79659,   2.79759,   2.93442,
     +     .02282,    .02149,  77.91586,   3.16469,   2.88368,
     +    2.04515,   3.03504,   3.16899,
     +     .02351,    .02185,  83.94353,   3.39565,   3.12574,
     +    2.28760,   3.26801,   3.40001 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
     +     .02420,    .02220,  90.11655,   3.63605,   3.37371,
     +    2.53832,   3.50992,   3.64049,
     +     .02488,    .02255,  96.24416,   3.87885,   3.62157,
     +    2.79038,   3.75384,   3.88335,
     +     .02552,    .02288, 102.22656,   4.11804,   3.86414,
     +    3.03780,   3.99390,   4.12261,
     +     .02613,    .02319, 107.89021,   4.34827,   4.09669,
     +    3.27542,   4.22480,   4.35290,
     +     .02674,    .02351, 113.71963,   4.58721,   4.33744,
     +    3.52152,   4.46435,   4.59191,
     +     .02735,    .02382, 119.50094,   4.82737,   4.57902,
     +    3.76853,   4.70505,   4.83212,
     +     .02793,    .02411, 125.08563,   5.06162,   4.81441,
     +    4.00912,   4.93977,   5.06642,
     +     .02848,    .02439, 130.40289,   5.28735,   5.04111,
     +    4.24076,   5.16593,   5.29221 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
     +     .02903,    .02467, 135.85851,   5.52074,   5.27539,
     +    4.47999,   5.39974,   5.52565,
     +     .02958,    .02495, 141.22934,   5.75379,   5.50926,
     +    4.71873,   5.63318,   5.75875,
     +     .03011,    .02522, 146.48755,   5.98286,   5.73909,
     +    4.95315,   5.86263,   5.98787,
     +     .03061,    .02547, 151.38669,   6.20014,   5.95706,
     +    5.17545,   6.08026,   6.20519,
     +     .03112,    .02573, 156.46631,   6.42619,   6.18381,
     +    5.40652,   6.30666,   6.43130 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
     +     .01334,    .01705,    .97504,    .31289,    .00246,
     +     .00000,    .17545,    .31577,
     +     .01417,    .01749,   1.78256,    .35677,    .00555,
     +     .00000,    .21412,    .35972,
     +     .01537,    .01814,   3.20362,    .43263,    .01313,
     +     .00000,    .28109,    .43569,
     +     .01624,    .01860,   4.44148,    .49530,    .02200,
     +     .00000,    .33667,    .49843,
     +     .01715,    .01908,   5.91135,    .56710,    .03579,
     +     .00000,    .40079,    .57031,
     +     .01792,    .01949,   7.32228,    .63338,    .05278,
     +     .00000,    .46052,    .63665,
     +     .01867,    .01988,   8.80512,    .70037,    .07499,
     +     .00000,    .52156,    .70370,
     +     .01945,    .02029,  10.47779,    .77408,    .10666,
     +     .00000,    .58974,    .77747 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
     +     .02013,    .02064,  12.03785,    .83984,    .14258,
     +     .00000,    .65163,    .84329,
     +     .02079,    .02098,  13.65697,    .90466,    .18615,
     +     .00000,    .71379,    .90816,
     +     .02130,    .02125,  14.97987,    .95601,    .22747,
     +     .00000,    .76399,    .95955,
     +     .02241,    .02183,  18.00327,   1.06608,    .33806,
     +     .00000,    .87474,   1.06971,
     +     .02336,    .02232,  20.78594,   1.16055,    .45817,
     +     .03090,    .97337,   1.16425,
     +     .02442,    .02286,  24.08571,   1.26685,    .61685,
     +     .13896,   1.08768,   1.27063,
     +     .02553,    .02343,  27.71745,   1.38099,    .80257,
     +     .28949,   1.21258,   1.38485,
     +     .02653,    .02394,  31.18248,   1.49067,    .98215,
     +     .42753,   1.33273,   1.49462 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
     +     .02754,    .02446,  34.83428,   1.60954,   1.16786,
     +     .57495,   1.46161,   1.61356,
     +     .02839,    .02489,  37.97470,   1.71548,   1.32247,
     +     .70221,   1.57488,   1.71956,
     +     .02941,    .02540,  41.87618,   1.85257,   1.50814,
     +     .86200,   1.71935,   1.85673,
     +     .03031,    .02586,  45.43747,   1.98236,   1.67116,
     +    1.00889,   1.85427,   1.98659,
     +     .03115,    .02628,  48.81157,   2.10866,   1.82066,
     +    1.14863,   1.98424,   2.11295,
     +     .03220,    .02681,  53.14157,   2.27614,   2.00938,
     +    1.33063,   2.15518,   2.28051,
     +     .03320,    .02731,  57.29905,   2.44128,   2.18806,
     +    1.50740,   2.32264,   2.44573,
     +     .03413,    .02778,  61.29009,   2.60287,   2.35824,
     +    1.67854,   2.48582,   2.60738 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
     +     .03507,    .02825,  65.33988,   2.76994,   2.53118,
     +    1.85424,   2.65408,   2.77452,
     +     .03598,    .02871,  69.32187,   2.93752,   2.70270,
     +    2.02961,   2.82256,   2.94217,
     +     .03686,    .02914,  73.18002,   3.10164,   2.86946,
     +    2.20068,   2.98738,   3.10635,
     +     .03768,    .02955,  76.80062,   3.25860,   3.02827,
     +    2.36391,   3.14490,   3.26338,
     +     .03850,    .02996,  80.50179,   3.42063,   3.19174,
     +    2.53201,   3.30742,   3.42547,
     +     .03932,    .03036,  84.14366,   3.58254,   3.35480,
     +    2.69974,   3.46978,   3.58743,
     +     .04010,    .03075,  87.63791,   3.73963,   3.51284,
     +    2.86223,   3.62726,   3.74458,
     +     .04083,    .03111,  90.94166,   3.89022,   3.66424,
     +    3.01785,   3.77822,   3.89522 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
     +     .04158,    .03148,  94.31164,   4.04521,   3.81998,
     +    3.17782,   3.93356,   4.05027,
     +     .04231,    .03184,  97.60506,   4.19915,   3.97462,
     +    3.33661,   4.08784,   4.20426,
     +     .04302,    .03218, 100.81474,   4.34987,   4.12600,
     +    3.49189,   4.23889,   4.35504,
     +     .04368,    .03251, 103.78115,   4.49207,   4.26879,
     +    3.63837,   4.38138,   4.49728,
     +     .04436,    .03285, 106.84489,   4.63950,   4.41681,
     +    3.79007,   4.52911,   4.64476 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
     +     .02023,    .02111,    .98940,    .28377,    .00224,
     +     .00000,    .15923,    .28734,
     +     .02142,    .02171,   1.71603,    .32247,    .00499,
     +     .00000,    .19336,    .32614,
     +     .02314,    .02259,   2.95579,    .38772,    .01160,
     +     .00000,    .25101,    .39153,
     +     .02437,    .02321,   4.00682,    .44054,    .01921,
     +     .00000,    .29790,    .44445,
     +     .02566,    .02386,   5.22888,    .50008,    .03089,
     +     .00000,    .35114,    .50409,
     +     .02675,    .02441,   6.38059,    .55425,    .04513,
     +     .00000,    .40005,    .55835,
     +     .02780,    .02494,   7.57247,    .60833,    .06359,
     +     .00000,    .44946,    .61251,
     +     .02890,    .02549,   8.89668,    .66708,    .08968,
     +     .00000,    .50396,    .67135 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
     +     .02986,    .02597,  10.11535,    .71889,    .11903,
     +     .00000,    .55292,    .72323,
     +     .03078,    .02643,  11.36596,    .76945,    .15439,
     +     .00000,    .60164,    .77386,
     +     .03150,    .02679,  12.37711,    .80910,    .18771,
     +     .00000,    .64065,    .81357,
     +     .03305,    .02756,  14.65833,    .89305,    .27612,
     +     .00000,    .72577,    .89763,
     +     .03437,    .02822,  16.72455,    .96396,    .37109,
     +     .02371,    .80057,    .96865,
     +     .03584,    .02895,  19.13870,   1.04264,    .49516,
     +     .10611,    .88621,   1.04744,
     +     .03737,    .02970,  21.75547,   1.12609,    .63852,
     +     .21989,    .97871,   1.13101,
     +     .03875,    .03038,  24.21696,   1.20557,    .77532,
     +     .32302,   1.06681,   1.21060 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
     +     .04015,    .03107,  26.77758,   1.29113,    .91493,
     +     .43211,   1.16051,   1.29626,
     +     .04130,    .03164,  28.95419,   1.36697,   1.02973,
     +     .52543,   1.24226,   1.37219,
     +     .04270,    .03232,  31.62656,   1.46457,   1.16587,
     +     .64159,   1.34577,   1.46990,
     +     .04394,    .03293,  34.03856,   1.55645,   1.28389,
     +     .74746,   1.44174,   1.56188,
     +     .04507,    .03348,  36.30234,   1.64540,   1.39100,
     +     .84743,   1.53359,   1.65091,
     +     .04651,    .03418,  39.17430,   1.76254,   1.52468,
     +     .97654,   1.65349,   1.76816,
     +     .04786,    .03484,  41.90063,   1.87721,   1.64986,
     +    1.10085,   1.77002,   1.88293,
     +     .04912,    .03545,  44.49200,   1.98865,   1.76798,
     +    1.22029,   1.88275,   1.99447 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
     +     .05038,    .03606,  47.09552,   2.10308,   1.88698,
     +    1.34198,   1.99816,   2.10900,
     +     .05162,    .03666,  49.62906,   2.21704,   2.00403,
     +    1.46254,   2.11287,   2.22305,
     +     .05279,    .03723,  52.06407,   2.32797,   2.11706,
     +    1.57937,   2.22440,   2.33407,
     +     .05389,    .03776,  54.32705,   2.43334,   2.22393,
     +    1.69008,   2.33025,   2.43952,
     +     .05499,    .03829,  56.62348,   2.54151,   2.33330,
     +    1.80344,   2.43886,   2.54778,
     +     .05608,    .03882,  58.86366,   2.64893,   2.44170,
     +    1.91584,   2.54668,   2.65528,
     +     .05712,    .03931,  60.99723,   2.75258,   2.54617,
     +    2.02412,   2.65070,   2.75901,
     +     .05810,    .03978,  62.99882,   2.85140,   2.64570,
     +    2.12725,   2.74985,   2.85790 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
     +     .05909,    .04026,  65.02779,   2.95261,   2.74758,
     +    2.23274,   2.85139,   2.95919,
     +     .06006,    .04072,  66.99420,   3.05257,   2.84817,
     +    2.33686,   2.95166,   3.05923,
     +     .06099,    .04117,  68.90170,   3.15006,   2.94624,
     +    2.43826,   3.04945,   3.15679,
     +     .06187,    .04159,  70.64791,   3.24148,   3.03820,
     +    2.53335,   3.14114,   3.24827,
     +     .06277,    .04202,  72.44429,   3.33593,   3.13320,
     +    2.63148,   3.23588,   3.34280 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
     +     .02565,    .02404,   1.00257,    .26786,    .00212,
     +     .00000,    .15049,    .27201,
     +     .02711,    .02476,   1.68280,    .30368,    .00469,
     +     .00000,    .18210,    .30796,
     +     .02922,    .02581,   2.82254,    .36317,    .01078,
     +     .00000,    .23472,    .36763,
     +     .03074,    .02655,   3.77298,    .41072,    .01771,
     +     .00000,    .27699,    .41532,
     +     .03231,    .02733,   4.86403,    .46380,    .02829,
     +     .00000,    .32452,    .46854,
     +     .03365,    .02799,   5.88084,    .51168,    .04108,
     +     .00000,    .36783,    .51654,
     +     .03493,    .02861,   6.92325,    .55912,    .05759,
     +     .00000,    .41125,    .56409,
     +     .03627,    .02927,   8.07072,    .61025,    .08078,
     +     .00000,    .45880,    .61533 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
     +     .03743,    .02984,   9.11812,    .65502,    .10676,
     +     .00000,    .50124,    .66020,
     +     .03855,    .03038,  10.18559,    .69844,    .13792,
     +     .00000,    .54323,    .70372,
     +     .03943,    .03081,  11.04310,    .73228,    .16718,
     +     .00000,    .57668,    .73763,
     +     .04130,    .03172,  12.96245,    .80337,    .24439,
     +     .00000,    .64917,    .80888,
     +     .04290,    .03250,  14.68385,    .86282,    .32679,
     +     .02020,    .71234,    .86847,
     +     .04467,    .03336,  16.67682,    .92821,    .43370,
     +     .09011,    .78414,    .93401,
     +     .04651,    .03425,  18.81679,    .99704,    .55628,
     +     .18615,    .86113,   1.00300,
     +     .04817,    .03506,  20.81216,   1.06224,    .67232,
     +     .27258,    .93402,   1.06833 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
     +     .04985,    .03587,  22.87119,   1.13215,    .78980,
     +     .36346,   1.01115,   1.13839,
     +     .05123,    .03654,  24.60882,   1.19394,    .88566,
     +     .44081,   1.07815,   1.20030,
     +     .05291,    .03734,  26.72650,   1.27320,    .99845,
     +     .53656,   1.16260,   1.27970,
     +     .05438,    .03805,  28.62445,   1.34757,   1.09548,
     +     .62336,   1.24056,   1.35419,
     +     .05574,    .03870,  30.39537,   1.41935,   1.18294,
     +     .70497,   1.31489,   1.42609,
     +     .05745,    .03952,  32.62574,   1.51349,   1.29135,
     +     .80981,   1.41147,   1.52037,
     +     .05905,    .04029,  34.72786,   1.60525,   1.39216,
     +     .91023,   1.50487,   1.61226,
     +     .06055,    .04100,  36.71349,   1.69405,   1.48673,
     +    1.00625,   1.59484,   1.70119 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
     +     .06205,    .04172,  38.69590,   1.78486,   1.58151,
     +    1.10365,   1.68654,   1.79212,
     +     .06351,    .04242,  40.61222,   1.87488,   1.67424,
     +    1.19968,   1.77727,   1.88227,
     +     .06489,    .04307,  42.44470,   1.96219,   1.76342,
     +    1.29237,   1.86514,   1.96970,
     +     .06619,    .04369,  44.13695,   2.04478,   1.84735,
     +    1.37985,   1.94819,   2.05240,
     +     .06749,    .04431,  45.84626,   2.12927,   1.93294,
     +    1.46909,   2.03311,   2.13699,
     +     .06877,    .04492,  47.50433,   2.21285,   2.01744,
     +    1.55724,   2.11709,   2.22068,
     +     .06999,    .04549,  49.07606,   2.29323,   2.09859,
     +    1.64187,   2.19783,   2.30116,
     +     .07114,    .04604,  50.54305,   2.36960,   2.17563,
     +    1.72218,   2.27452,   2.37762 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
     +     .07230,    .04659,  52.02417,   2.44758,   2.25426,
     +    1.80409,   2.35283,   2.45571,
     +     .07344,    .04713,  53.45157,   2.52433,   2.33161,
     +    1.88466,   2.42989,   2.53255,
     +     .07453,    .04764,  54.83226,   2.59899,   2.40685,
     +    1.96292,   2.50486,   2.60731,
     +     .07556,    .04813,  56.08799,   2.66875,   2.47712,
     +    2.03604,   2.57488,   2.67714,
     +     .07661,    .04862,  57.37670,   2.74066,   2.54957,
     +    2.11133,   2.64708,   2.74915 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
     +     .03033,    .02646,   1.01535,    .25710,    .00204,
     +     .00000,    .14459,    .26175,
     +     .03201,    .02728,   1.66276,    .29092,    .00449,
     +     .00000,    .17447,    .29572,
     +     .03445,    .02846,   2.73352,    .34646,    .01022,
     +     .00000,    .22365,    .35150,
     +     .03620,    .02931,   3.61567,    .39047,    .01670,
     +     .00000,    .26282,    .39567,
     +     .03801,    .03019,   4.61887,    .43924,    .02653,
     +     .00000,    .30655,    .44461,
     +     .03955,    .03093,   5.54616,    .48295,    .03837,
     +     .00000,    .34614,    .48847,
     +     .04101,    .03164,   6.49024,    .52603,    .05357,
     +     .00000,    .38564,    .53168,
     +     .04255,    .03239,   7.52240,    .57218,    .07486,
     +     .00000,    .42866,    .57798 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
     +     .04388,    .03303,   8.45889,    .61239,    .09862,
     +     .00000,    .46686,    .61830,
     +     .04516,    .03365,   9.40846,    .65119,    .12703,
     +     .00000,    .50452,    .65723,
     +     .04617,    .03413,  10.16764,    .68131,    .15363,
     +     .00000,    .53438,    .68743,
     +     .04831,    .03516,  11.85697,    .74419,    .22356,
     +     .00000,    .59881,    .75051,
     +     .05013,    .03604,  13.36106,    .79638,    .29783,
     +     .01797,    .65460,    .80287,
     +     .05216,    .03701,  15.09067,    .85342,    .39373,
     +     .07996,    .71767,    .86009,
     +     .05425,    .03801,  16.93489,    .91311,    .50306,
     +     .16481,    .78494,    .91997,
     +     .05614,    .03891,  18.64328,    .96943,    .60595,
     +     .24076,    .84834,    .97646 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
     +     .05804,    .03982,  20.39558,   1.02966,    .70950,
     +     .32030,    .91519,   1.03687,
     +     .05961,    .04057,  21.86639,   1.08278,    .79352,
     +     .38772,    .97307,   1.09013,
     +     .06150,    .04147,  23.64895,   1.15076,    .89181,
     +     .47085,   1.04579,   1.15828,
     +     .06317,    .04226,  25.23816,   1.21440,    .97587,
     +     .54593,   1.11270,   1.22207,
     +     .06470,    .04299,  26.71450,   1.27568,   1.05128,
     +     .61627,   1.17633,   1.28349,
     +     .06663,    .04390,  28.56362,   1.35583,   1.14424,
     +     .70631,   1.25870,   1.36381,
     +     .06844,    .04476,  30.29696,   1.43369,   1.23024,
     +     .79221,   1.33810,   1.44183,
     +     .07012,    .04556,  31.92654,   1.50882,   1.31058,
     +     .87406,   1.41431,   1.51712 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
     +     .07181,    .04635,  33.54572,   1.58541,   1.39076,
     +     .95680,   1.49175,   1.59386,
     +     .07344,    .04713,  35.10294,   1.66110,   1.46892,
     +    1.03811,   1.56811,   1.66969,
     +     .07500,    .04786,  36.58636,   1.73429,   1.54384,
     +    1.11636,   1.64185,   1.74302,
     +     .07645,    .04854,  37.94950,   1.80331,   1.61412,
     +    1.18997,   1.71133,   1.81217,
     +     .07791,    .04923,  39.32158,   1.87374,   1.68560,
     +    1.26488,   1.78219,   1.88273,
     +     .07934,    .04990,  40.64670,   1.94322,   1.75595,
     +    1.33865,   1.85206,   1.95233,
     +     .08070,    .05054,  41.89826,   2.00986,   1.82334,
     +    1.40929,   1.91906,   2.01909,
     +     .08198,    .05114,  43.06174,   2.07301,   1.88716,
     +    1.47617,   1.98255,   2.08236 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
     +     .08327,    .05175,  44.23286,   2.13736,   1.95214,
     +    1.54422,   2.04723,   2.14683,
     +     .08455,    .05234,  45.35651,   2.20052,   2.01590,
     +    1.61097,   2.11071,   2.21009,
     +     .08576,    .05291,  46.44109,   2.26185,   2.07780,
     +    1.67570,   2.17235,   2.27154,
     +     .08691,    .05344,  47.42225,   2.31899,   2.13545,
     +    1.73601,   2.22976,   2.32877,
     +     .08807,    .05399,  48.42741,   2.37780,   2.19479,
     +    1.79800,   2.28886,   2.38769 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
     +     .03463,    .02864,   1.03201,    .24930,    .00198,
     +     .00000,    .14014,    .25426,
     +     .03651,    .02955,   1.65330,    .28152,    .00432,
     +     .00000,    .16862,    .28666,
     +     .03923,    .03087,   2.67025,    .33401,    .00978,
     +     .00000,    .21511,    .33940,
     +     .04118,    .03181,   3.49964,    .37531,    .01591,
     +     .00000,    .25189,    .38087,
     +     .04319,    .03278,   4.43564,    .42081,    .02517,
     +     .00000,    .29273,    .42657,
     +     .04490,    .03360,   5.29501,    .46140,    .03628,
     +     .00000,    .32953,    .46731,
     +     .04652,    .03439,   6.16500,    .50121,    .05049,
     +     .00000,    .36608,    .50728,
     +     .04823,    .03521,   7.11089,    .54368,    .07034,
     +     .00000,    .40572,    .54990 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
     +     .04970,    .03592,   7.96486,    .58052,    .09242,
     +     .00000,    .44079,    .58687,
     +     .05112,    .03660,   8.82712,    .61593,    .11876,
     +     .00000,    .47524,    .62242,
     +     .05223,    .03713,   9.51381,    .64332,    .14338,
     +     .00000,    .50247,    .64990,
     +     .05459,    .03826,  11.03452,    .70022,    .20789,
     +     .00000,    .56099,    .70703,
     +     .05660,    .03923,  12.38035,    .74717,    .27614,
     +     .01634,    .61141,    .75415,
     +     .05883,    .04029,  13.91933,    .79818,    .36391,
     +     .07258,    .66815,    .80537,
     +     .06114,    .04139,  15.55080,    .85133,    .46352,
     +     .14930,    .72841,    .85872,
     +     .06321,    .04238,  17.05397,    .90130,    .55683,
     +     .21771,    .78500,    .90889 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
     +     .06530,    .04337,  18.58807,    .95463,    .65028,
     +     .28908,    .84448,    .96241,
     +     .06702,    .04419,  19.86990,   1.00158,    .72576,
     +     .34938,    .89585,   1.00951,
     +     .06909,    .04518,  21.41628,   1.06155,    .81364,
     +     .42350,    .96021,   1.06967,
     +     .07092,    .04604,  22.78886,   1.11759,    .88844,
     +     .49023,   1.01928,   1.12588,
     +     .07259,    .04683,  24.05931,   1.17147,    .95526,
     +     .55258,   1.07532,   1.17990,
     +     .07470,    .04783,  25.64304,   1.24174,   1.03728,
     +     .63213,   1.14767,   1.25036,
     +     .07667,    .04876,  27.12077,   1.30983,   1.11283,
     +     .70779,   1.21719,   1.31863,
     +     .07850,    .04962,  28.50467,   1.37538,   1.18316,
     +     .77968,   1.28376,   1.38434 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
     +     .08034,    .05048,  29.87441,   1.44202,   1.25312,
     +     .85214,   1.35121,   1.45115,
     +     .08212,    .05132,  31.18591,   1.50770,   1.32109,
     +     .92315,   1.41753,   1.51698,
     +     .08380,    .05211,  32.43123,   1.57107,   1.38608,
     +     .99132,   1.48143,   1.58051,
     +     .08538,    .05285,  33.57062,   1.63068,   1.44688,
     +    1.05529,   1.54149,   1.64026,
     +     .08696,    .05359,  34.71413,   1.69138,   1.50857,
     +    1.12025,   1.60261,   1.70110,
     +     .08851,    .05432,  35.81441,   1.75110,   1.56914,
     +    1.18406,   1.66272,   1.76096,
     +     .08998,    .05501,  36.85028,   1.80827,   1.62704,
     +    1.24504,   1.72025,   1.81826,
     +     .09137,    .05565,  37.80986,   1.86233,   1.68174,
     +    1.30265,   1.77464,   1.87244 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
     +     .09277,    .05630,  38.77322,   1.91732,   1.73735,
     +    1.36115,   1.82995,   1.92755,
     +     .09414,    .05694,  39.69402,   1.97115,   1.79177,
     +    1.41842,   1.88411,   1.98151,
     +     .09545,    .05755,  40.58128,   2.02337,   1.84455,
     +    1.47387,   1.93663,   2.03384,
     +     .09668,    .05813,  41.38033,   2.07189,   1.89358,
     +    1.52541,   1.98542,   2.08247,
     +     .09794,    .05871,  42.19775,   2.12177,   1.94398,
     +    1.57833,   2.03560,   2.13247 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
     +     .05207,    .03713,   1.09139,    .22634,    .00180,
     +     .00000,    .12731,    .23289,
     +     .05470,    .03839,   1.63023,    .25374,    .00387,
     +     .00000,    .15161,    .26056,
     +     .05849,    .04021,   2.48470,    .29721,    .00853,
     +     .00000,    .19025,    .30440,
     +     .06118,    .04150,   3.15944,    .33066,    .01367,
     +     .00000,    .22015,    .33811,
     +     .06395,    .04283,   3.90233,    .36685,    .02129,
     +     .00000,    .25275,    .37457,
     +     .06630,    .04396,   4.56966,    .39860,    .03032,
     +     .00000,    .28168,    .40655,
     +     .06853,    .04502,   5.23291,    .42932,    .04175,
     +     .00000,    .31003,    .43748,
     +     .07086,    .04613,   5.94109,    .46158,    .05754,
     +     .00000,    .34033,    .46997 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
     +     .07286,    .04709,   6.57012,    .48917,    .07495,
     +     .00000,    .36681,    .49776,
     +     .07478,    .04800,   7.19660,    .51538,    .09555,
     +     .00000,    .39254,    .52415,
     +     .07628,    .04872,   7.68913,    .53538,    .11467,
     +     .00000,    .41267,    .54430,
     +     .07946,    .05023,   8.76268,    .57630,    .16427,
     +     .00000,    .45535,    .58551,
     +     .08216,    .05151,   9.69400,    .60934,    .21610,
     +     .01200,    .49151,    .61882,
     +     .08514,    .05293,  10.73937,    .64459,    .28191,
     +     .05298,    .53160,    .65435,
     +     .08821,    .05437,  11.82629,    .68072,    .35552,
     +     .10834,    .57357,    .69077,
     +     .09096,    .05567,  12.80969,    .71435,    .42341,
     +     .15702,    .61252,    .72466 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
     +     .09370,    .05697,  13.79657,    .74999,    .49034,
     +     .20723,    .65305,    .76056,
     +     .09597,    .05803,  14.60869,    .78120,    .54359,
     +     .24921,    .68776,    .79198,
     +     .09868,    .05931,  15.57296,    .82084,    .60462,
     +     .30027,    .73087,    .83188,
     +     .10106,    .06043,  16.41608,    .85768,    .65575,
     +     .34576,    .77010,    .86893,
     +     .10323,    .06144,  17.18685,    .89290,    .70081,
     +     .38790,    .80706,    .90436,
     +     .10595,    .06272,  18.13212,    .93847,    .75530,
     +     .44111,    .85431,    .95018,
     +     .10849,    .06390,  19.00018,    .98225,    .80478,
     +     .49119,    .89928,    .99420,
     +     .11085,    .06500,  19.80209,   1.02406,    .85028,
     +     .53833,    .94196,   1.03623 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
     +     .11319,    .06609,  20.58456,   1.06621,    .89504,
     +     .58541,    .98483,   1.07859,
     +     .11546,    .06715,  21.32210,   1.10736,    .93805,
     +     .63112,   1.02657,   1.11995,
     +     .11760,    .06814,  22.01469,   1.14679,    .97883,
     +     .67466,   1.06650,   1.15957,
     +     .11960,    .06906,  22.63852,   1.18353,   1.01662,
     +     .71516,   1.10369,   1.19650,
     +     .12159,    .06999,  23.25811,   1.22069,   1.05468,
     +     .75600,   1.14126,   1.23384,
     +     .12354,    .07089,  23.84602,   1.25696,   1.09173,
     +     .79580,   1.17792,   1.27029,
     +     .12539,    .07174,  24.39330,   1.29143,   1.12690,
     +     .83357,   1.21276,   1.30493,
     +     .12712,    .07253,  24.89374,   1.32379,   1.15989,
     +     .86899,   1.24545,   1.33744 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
     +     .12886,    .07334,  25.39145,   1.35650,   1.19321,
     +     .90476,   1.27850,   1.37031,
     +     .13056,    .07412,  25.86003,   1.38828,   1.22558,
     +     .93951,   1.31061,   1.40224,
     +     .13219,    .07486,  26.30894,   1.41896,   1.25681,
     +     .97299,   1.34160,   1.43306,
     +     .13372,    .07556,  26.70547,   1.44720,   1.28558,
     +    1.00386,   1.37014,   1.46145,
     +     .13526,    .07627,  27.10928,   1.47614,   1.31503,
     +    1.03543,   1.39936,   1.49052 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
     +     .07814,    .04972,   1.16475,    .20611,    .00165,
     +     .00000,    .11594,    .21498,
     +     .08175,    .05147,   1.61860,    .22875,    .00348,
     +     .00000,    .13612,    .23798,
     +     .08692,    .05397,   2.31366,    .26369,    .00744,
     +     .00000,    .16736,    .27346,
     +     .09057,    .05573,   2.84371,    .28995,    .01167,
     +     .00000,    .19098,    .30009,
     +     .09431,    .05753,   3.41184,    .31782,    .01784,
     +     .00000,    .21626,    .32834,
     +     .09747,    .05905,   3.91015,    .34185,    .02502,
     +     .00000,    .23831,    .35268,
     +     .10045,    .06047,   4.39548,    .36472,    .03399,
     +     .00000,    .25961,    .37586,
     +     .10355,    .06196,   4.90332,    .38835,    .04625,
     +     .00000,    .28202,    .39980 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
     +     .10620,    .06322,   5.34637,    .40825,    .05962,
     +     .00000,    .30134,    .41996,
     +     .10874,    .06443,   5.78090,    .42688,    .07529,
     +     .00000,    .31989,    .43884,
     +     .11072,    .06538,   6.11752,    .44090,    .08973,
     +     .00000,    .33422,    .45306,
     +     .11489,    .06736,   6.83820,    .46903,    .12677,
     +     .00000,    .36418,    .48159,
     +     .11842,    .06902,   7.44925,    .49118,    .16497,
     +     .00855,    .38908,    .50410,
     +     .12228,    .07085,   8.12058,    .51428,    .21281,
     +     .03750,    .41622,    .52758,
     +     .12623,    .07271,   8.80299,    .53752,    .26547,
     +     .07618,    .44417,    .55120,
     +     .12975,    .07437,   9.40733,    .55889,    .31323,
     +     .10968,    .46977,    .57290 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
     +     .13326,    .07601,  10.00186,    .58138,    .35953,
     +     .14382,    .49611,    .59573,
     +     .13613,    .07735,  10.48218,    .60099,    .39574,
     +     .17202,    .51846,    .61562,
     +     .13955,    .07894,  11.04139,    .62575,    .43652,
     +     .20593,    .54595,    .64070,
     +     .14254,    .08033,  11.52136,    .64862,    .47006,
     +     .23579,    .57073,    .66385,
     +     .14526,    .08159,  11.95358,    .67038,    .49916,
     +     .26319,    .59389,    .68587,
     +     .14864,    .08316,  12.47250,    .69828,    .53377,
     +     .29739,    .62318,    .71409,
     +     .15178,    .08460,  12.93958,    .72483,    .56465,
     +     .32920,    .65075,    .74092,
     +     .15469,    .08594,  13.36360,    .74995,    .59266,
     +     .35884,    .67666,    .76631 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
     +     .15756,    .08726,  13.76953,    .77503,    .61985,
     +     .38813,    .70241,    .79166,
     +     .16032,    .08852,  14.14385,    .79925,    .64564,
     +     .41627,    .72721,    .81613,
     +     .16292,    .08971,  14.49039,    .82225,    .66986,
     +     .44284,    .75073,    .83937,
     +     .16533,    .09080,  14.79566,    .84347,    .69204,
     +     .46731,    .77239,    .86080,
     +     .16773,    .09189,  15.09462,    .86474,    .71419,
     +     .49178,    .79411,    .88229,
     +     .17007,    .09295,  15.37249,    .88531,    .73554,
     +     .51542,    .81508,    .90306,
     +     .17227,    .09394,  15.62707,    .90469,    .75564,
     +     .53768,    .83485,    .92264,
     +     .17432,    .09487,  15.85539,    .92271,    .77432,
     +     .55839,    .85325,    .94085 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
     +     .17639,    .09580,  16.07935,    .94081,    .79307,
     +     .57915,    .87170,    .95913,
     +     .17840,    .09670,  16.28484,    .95820,    .81109,
     +     .59915,    .88945,    .97670,
     +     .18031,    .09756,  16.48035,    .97491,    .82840,
     +     .61831,    .90650,    .99358,
     +     .18209,    .09835,  16.64713,    .99011,    .84415,
     +     .63580,    .92201,   1.00893,
     +     .18389,    .09916,  16.81613,   1.00561,    .86021,
     +     .65360,    .93783,   1.02458 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
     +     .09896,    .05996,   1.20622,    .19526,    .00159,
     +     .00000,    .10995,    .20616,
     +     .10326,    .06205,   1.60829,    .21510,    .00329,
     +     .00000,    .12773,    .22645,
     +     .10940,    .06503,   2.21115,    .24525,    .00688,
     +    -.00001,    .15485,    .25724,
     +     .11372,    .06712,   2.66110,    .26757,    .01064,
     +     .00000,    .17506,    .28001,
     +     .11813,    .06924,   3.13541,    .29098,    .01603,
     +     .00000,    .19644,    .30388,
     +     .12183,    .07102,   3.54523,    .31094,    .02223,
     +    -.00001,    .21489,    .32422,
     +     .12532,    .07269,   3.93923,    .32976,    .02992,
     +    -.00001,    .23255,    .34340,
     +     .12893,    .07442,   4.34631,    .34899,    .04032,
     +    -.00001,    .25095,    .36299 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
     +     .13201,    .07589,   4.69720,    .36502,    .05160,
     +    -.00001,    .26668,    .37933,
     +     .13495,    .07729,   5.03793,    .37989,    .06474,
     +    -.00001,    .28166,    .39450,
     +     .13724,    .07837,   5.29938,    .39097,    .07678,
     +    -.00001,    .29315,    .40580,
     +     .14205,    .08065,   5.85265,    .41291,    .10746,
     +    -.00001,    .31692,    .42822,
     +     .14609,    .08255,   6.31465,    .42989,    .13884,
     +     .00688,    .33645,    .44560,
     +     .15051,    .08463,   6.81491,    .44732,    .17779,
     +     .03008,    .35749,    .46346,
     +     .15500,    .08673,   7.31567,    .46461,    .22025,
     +     .06087,    .37893,    .48119,
     +     .15900,    .08859,   7.75255,    .48039,    .25836,
     +     .08729,    .39838,    .49735 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
     +     .16295,    .09043,   8.17626,    .49693,    .29489,
     +     .11398,    .41826,    .51427,
     +     .16618,    .09192,   8.51429,    .51131,    .32317,
     +     .13588,    .43503,    .52896,
     +     .17002,    .09369,   8.90211,    .52943,    .35465,
     +     .16201,    .45552,    .54743,
     +     .17335,    .09522,   9.23049,    .54610,    .38024,
     +     .18486,    .47388,    .56442,
     +     .17638,    .09661,   9.52301,    .56192,    .40221,
     +     .20569,    .49095,    .58052,
     +     .18013,    .09832,   9.86876,    .58208,    .42804,
     +     .23151,    .51239,    .60102,
     +     .18359,    .09989,  10.17477,    .60115,    .45083,
     +     .25534,    .53242,    .62041,
     +     .18679,    .10134,  10.44881,    .61908,    .47130,
     +     .27739,    .55112,    .63863 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
     +     .18993,    .10275,  10.70727,    .63686,    .49100,
     +     .29905,    .56957,    .65670,
     +     .19295,    .10411,  10.94134,    .65390,    .50951,
     +     .31969,    .58720,    .67400,
     +     .19577,    .10537,  11.15562,    .67000,    .52678,
     +     .33908,    .60382,    .69035,
     +     .19838,    .10654,  11.34059,    .68471,    .54247,
     +     .35682,    .61901,    .70529,
     +     .20098,    .10769,  11.51961,    .69939,    .55805,
     +     .37447,    .63416,    .72020,
     +     .20349,    .10880,  11.68279,    .71349,    .57297,
     +     .39142,    .64869,    .73451,
     +     .20586,    .10984,  11.83003,    .72668,    .58692,
     +     .40729,    .66231,    .74791,
     +     .20806,    .11081,  11.95942,    .73887,    .59981,
     +     .42197,    .67488,    .76029 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
     +     .21026,    .11178,  12.08480,    .75104,    .61268,
     +     .43662,    .68744,    .77265,
     +     .21239,    .11271,  12.19697,    .76266,    .62496,
     +     .45065,    .69943,    .78444,
     +     .21443,    .11360,  12.30315,    .77377,    .63672,
     +     .46405,    .71092,    .79573,
     +     .21631,    .11441,  12.39013,    .78379,    .64734,
     +     .47620,    .72127,    .80590,
     +     .21821,    .11524,  12.47801,    .79399,    .65814,
     +     .48854,    .73180,    .81625 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
     +     .11699,    .06904,   1.23110,    .18799,    .00156,
     +     .00000,    .10598,    .20073,
     +     .12183,    .07141,   1.59557,    .20582,    .00318,
     +     .00000,    .12207,    .21909,
     +     .12871,    .07474,   2.13356,    .23263,    .00652,
     +    -.00001,    .14633,    .24662,
     +     .13354,    .07708,   2.52876,    .25226,    .00996,
     +     .00000,    .16421,    .26676,
     +     .13846,    .07944,   2.94021,    .27267,    .01483,
     +     .00000,    .18298,    .28768,
     +     .14257,    .08141,   3.29172,    .28993,    .02039,
     +    -.00001,    .19905,    .30536,
     +     .14643,    .08326,   3.62640,    .30608,    .02722,
     +    -.00001,    .21432,    .32191,
     +     .15042,    .08515,   3.96878,    .32244,    .03640,
     +    -.00001,    .23013,    .33868 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
     +     .15382,    .08677,   4.26125,    .33598,    .04630,
     +    -.00001,    .24354,    .35256,
     +     .15706,    .08830,   4.54310,    .34844,    .05779,
     +    -.00001,    .25625,    .36535,
     +     .15957,    .08948,   4.75774,    .35766,    .06826,
     +    -.00001,    .26593,    .37481,
     +     .16483,    .09195,   5.20779,    .37572,    .09483,
     +    -.00001,    .28583,    .39339,
     +     .16924,    .09402,   5.57909,    .38950,    .12182,
     +     .00585,    .30202,    .40761,
     +     .17405,    .09625,   5.97653,    .40344,    .15511,
     +     .02546,    .31930,    .42202,
     +     .17891,    .09851,   6.36943,    .41713,    .19114,
     +     .05138,    .33676,    .43618,
     +     .18322,    .10049,   6.70806,    .42954,    .22323,
     +     .07345,    .35250,    .44900 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
     +     .18748,    .10245,   7.03268,    .44252,    .25374,
     +     .09562,    .36850,    .46237,
     +     .19094,    .10403,   7.28884,    .45379,    .27716,
     +     .11371,    .38192,    .47397,
     +     .19504,    .10589,   7.57909,    .46795,    .30301,
     +     .13518,    .39825,    .48850,
     +     .19859,    .10750,   7.82201,    .48096,    .32384,
     +     .15384,    .41282,    .50184,
     +     .20180,    .10894,   8.03639,    .49328,    .34158,
     +     .17078,    .42630,    .51445,
     +     .20578,    .11072,   8.28603,    .50890,    .36224,
     +     .19165,    .44314,    .53043,
     +     .20943,    .11235,   8.50375,    .52360,    .38031,
     +     .21080,    .45878,    .54545,
     +     .21279,    .11384,   8.69632,    .53737,    .39642,
     +     .22844,    .47331,    .55951 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
     +     .21609,    .11530,   8.87534,    .55094,    .41181,
     +     .24567,    .48756,    .57337,
     +     .21923,    .11668,   9.03452,    .56386,    .42617,
     +     .26200,    .50109,    .58656,
     +     .22218,    .11797,   9.17869,    .57601,    .43950,
     +     .27728,    .51379,    .59896,
     +     .22488,    .11915,   9.30047,    .58704,    .45152,
     +     .29118,    .52532,    .61022,
     +     .22757,    .12032,   9.41693,    .59800,    .46341,
     +     .30496,    .53676,    .62140,
     +     .23017,    .12144,   9.52086,    .60845,    .47472,
     +     .31813,    .54767,    .63207,
     +     .23260,    .12248,   9.61310,    .61819,    .48526,
     +     .33041,    .55785,    .64200,
     +     .23486,    .12345,   9.69231,    .62712,    .49494,
     +     .34172,    .56720,    .65112 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
     +     .23711,    .12441,   9.76796,    .63601,    .50457,
     +     .35297,    .57650,    .66019,
     +     .23929,    .12533,   9.83336,    .64443,    .51370,
     +     .36369,    .58531,    .66878,
     +     .24136,    .12621,   9.89497,    .65247,    .52242,
     +     .37390,    .59373,    .67699,
     +     .24327,    .12701,   9.94258,    .65964,    .53024,
     +     .38311,    .60127,    .68431,
     +     .24520,    .12782,   9.99057,    .66693,    .53818,
     +     .39244,    .60891,    .69175 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
     +     .13320,    .07737,   1.24547,    .18247,    .00154,
     +     .00000,    .10305,    .19699,
     +     .13849,    .07995,   1.58036,    .19874,    .00310,
     +     .00000,    .11783,    .21383,
     +     .14598,    .08357,   2.06858,    .22298,    .00627,
     +     .00000,    .13991,    .23887,
     +     .15122,    .08609,   2.42271,    .24059,    .00948,
     +     .00000,    .15605,    .25702,
     +     .15653,    .08863,   2.78769,    .25876,    .01396,
     +     .00000,    .17288,    .27575,
     +     .16097,    .09075,   3.09666,    .27402,    .01904,
     +     .00000,    .18720,    .29147,
     +     .16513,    .09272,   3.38851,    .28822,    .02524,
     +     .00000,    .20073,    .30610,
     +     .16941,    .09475,   3.68465,    .30251,    .03353,
     +     .00000,    .21466,    .32082 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
     +     .17305,    .09646,   3.93573,    .31425,    .04242,
     +     .00000,    .22641,    .33292,
     +     .17652,    .09809,   4.17619,    .32499,    .05270,
     +     .00000,    .23749,    .34400,
     +     .17920,    .09934,   4.35815,    .33288,    .06204,
     +     .00000,    .24589,    .35216,
     +     .18480,    .10195,   4.73666,    .34820,    .08564,
     +     .00000,    .26306,    .36803,
     +     .18948,    .10411,   5.04569,    .35974,    .10948,
     +     .00512,    .27690,    .38002,
     +     .19456,    .10645,   5.37324,    .37128,    .13874,
     +     .02223,    .29158,    .39205,
     +     .19969,    .10880,   5.69350,    .38250,    .17022,
     +     .04474,    .30630,    .40375,
     +     .20423,    .11086,   5.96656,    .39261,    .19808,
     +     .06381,    .31949,    .41428 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
     +     .20869,    .11288,   6.22565,    .40317,    .22440,
     +     .08287,    .33284,    .42524,
     +     .21231,    .11450,   6.42808,    .41233,    .24448,
     +     .09836,    .34400,    .43474,
     +     .21658,    .11641,   6.65479,    .42382,    .26648,
     +     .11664,    .35752,    .44661,
     +     .22027,    .11805,   6.84250,    .43436,    .28406,
     +     .13247,    .36953,    .45747,
     +     .22360,    .11952,   7.00674,    .44431,    .29894,
     +     .14678,    .38061,    .46773,
     +     .22770,    .12133,   7.19517,    .45691,    .31614,
     +     .16432,    .39437,    .48067,
     +     .23146,    .12297,   7.35720,    .46870,    .33107,
     +     .18036,    .40709,    .49278,
     +     .23491,    .12447,   7.49872,    .47970,    .34430,
     +     .19505,    .41886,    .50407 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
     +     .23828,    .12592,   7.62822,    .49049,    .35685,
     +     .20934,    .43034,    .51515,
     +     .24149,    .12730,   7.74113,    .50070,    .36849,
     +     .22284,    .44118,    .52562,
     +     .24449,    .12858,   7.84223,    .51027,    .37925,
     +     .23542,    .45131,    .53543,
     +     .24724,    .12974,   7.92549,    .51890,    .38890,
     +     .24681,    .46046,    .54428,
     +     .24996,    .13089,   8.00404,    .52744,    .39840,
     +     .25807,    .46951,    .55304,
     +     .25258,    .13199,   8.07236,    .53553,    .40740,
     +     .26879,    .47808,    .56133,
     +     .25502,    .13301,   8.13183,    .54304,    .41575,
     +     .27875,    .48604,    .56902,
     +     .25729,    .13395,   8.18147,    .54989,    .42338,
     +     .28788,    .49332,    .57605 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
     +     .25955,    .13488,   8.22793,    .55667,    .43094,
     +     .29695,    .50053,    .58300,
     +     .26172,    .13577,   8.26601,    .56305,    .43808,
     +     .30554,    .50733,    .58954,
     +     .26379,    .13662,   8.30167,    .56912,    .44487,
     +     .31371,    .51380,    .59577,
     +     .26568,    .13738,   8.32657,    .57450,    .45092,
     +     .32105,    .51955,    .60128,
     +     .26759,    .13816,   8.35163,    .57995,    .45706,
     +     .32846,    .52537,    .60687 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
     +     .16204,    .09251,   1.25522,    .17418,    .00152,
     +     .00000,    .09883,    .19209,
     +     .16803,    .09539,   1.54521,    .18808,    .00301,
     +     .00001,    .11162,    .20663,
     +     .17645,    .09942,   1.95983,    .20851,    .00593,
     +     .00001,    .13049,    .22794,
     +     .18231,    .10220,   2.25467,    .22315,    .00880,
     +     .00001,    .14411,    .24319,
     +     .18822,    .10498,   2.55375,    .23810,    .01275,
     +     .00001,    .15815,    .25874,
     +     .19314,    .10729,   2.80320,    .25052,    .01714,
     +     .00001,    .16999,    .27166,
     +     .19773,    .10943,   3.03582,    .26196,    .02245,
     +     .00001,    .18108,    .28355,
     +     .20244,    .11161,   3.26867,    .27335,    .02948,
     +     .00001,    .19239,    .29540 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
     +     .20642,    .11344,   3.46369,    .28259,    .03695,
     +     .00001,    .20184,    .30503,
     +     .21020,    .11518,   3.64855,    .29096,    .04553,
     +     .00001,    .21068,    .31377,
     +     .21311,    .11651,   3.78683,    .29704,    .05330,
     +     .00001,    .21734,    .32012,
     +     .21917,    .11926,   4.07084,    .30866,    .07276,
     +     .00001,    .23080,    .33230,
     +     .22421,    .12153,   4.29869,    .31720,    .09227,
     +     .00415,    .24151,    .34131,
     +     .22965,    .12395,   4.53600,    .32555,    .11601,
     +     .01790,    .25272,    .35015,
     +     .23511,    .12637,   4.76354,    .33351,    .14131,
     +     .03587,    .26382,    .35861,
     +     .23990,    .12848,   4.95376,    .34063,    .16348,
     +     .05095,    .27368,    .36614 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
     +     .24459,    .13053,   5.13077,    .34804,    .18422,
     +     .06592,    .28358,    .37395,
     +     .24837,    .13216,   5.26662,    .35446,    .19986,
     +     .07798,    .29180,    .38069,
     +     .25281,    .13407,   5.41520,    .36251,    .21682,
     +     .09213,    .30169,    .38910,
     +     .25663,    .13569,   5.53562,    .36988,    .23021,
     +     .10429,    .31041,    .39678,
     +     .26005,    .13714,   5.63918,    .37683,    .24141,
     +     .11521,    .31842,    .40401,
     +     .26425,    .13890,   5.75422,    .38555,    .25420,
     +     .12851,    .32828,    .41306,
     +     .26808,    .14049,   5.85007,    .39366,    .26516,
     +     .14056,    .33731,    .42146,
     +     .27157,    .14193,   5.93153,    .40117,    .27476,
     +     .15153,    .34560,    .42924 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
     +     .27496,    .14331,   6.00351,    .40848,    .28378,
     +     .16214,    .35362,    .43679,
     +     .27816,    .14461,   6.06311,    .41531,    .29206,
     +     .17207,    .36111,    .44386,
     +     .28115,    .14581,   6.11492,    .42167,    .29964,
     +     .18128,    .36806,    .45043,
     +     .28386,    .14689,   6.15455,    .42733,    .30637,
     +     .18955,    .37426,    .45627,
     +     .28654,    .14794,   6.19049,    .43288,    .31296,
     +     .19769,    .38036,    .46201,
     +     .28909,    .14894,   6.21918,    .43808,    .31914,
     +     .20538,    .38608,    .46739,
     +     .29148,    .14987,   6.24238,    .44286,    .32483,
     +     .21249,    .39134,    .47232,
     +     .29367,    .15071,   6.25943,    .44717,    .32998,
     +     .21897,    .39611,    .47677 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
     +     .29584,    .15154,   6.27401,    .45141,    .33507,
     +     .22536,    .40080,    .48115,
     +     .29792,    .15233,   6.28276,    .45533,    .33982,
     +     .23139,    .40516,    .48520,
     +     .29989,    .15307,   6.29069,    .45906,    .34433,
     +     .23710,    .40931,    .48905,
     +     .30168,    .15373,   6.29180,    .46228,    .34828,
     +     .24218,    .41292,    .49237,
     +     .30349,    .15440,   6.29292,    .46553,    .35228,
     +     .24729,    .41657,    .49573 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
     +     .19966,    .11272,   1.24405,    .16508,    .00152,
     +     .00000,    .09448,    .18774,
     +     .20637,    .11587,   1.48687,    .17645,    .00294,
     +     .00000,    .10518,    .19980,
     +     .21574,    .12022,   1.82656,    .19292,    .00562,
     +     .00000,    .12074,    .21720,
     +     .22221,    .12319,   2.06275,    .20456,    .00816,
     +     .00000,    .13182,    .22947,
     +     .22869,    .12614,   2.29791,    .21629,    .01157,
     +     .00000,    .14310,    .24181,
     +     .23406,    .12857,   2.49072,    .22591,    .01530,
     +     .00000,    .15251,    .25193,
     +     .23904,    .13079,   2.66782,    .23466,    .01973,
     +     .00000,    .16124,    .26115,
     +     .24411,    .13305,   2.84206,    .24326,    .02553,
     +    -.00001,    .17003,    .27021 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
     +     .24839,    .13493,   2.98580,    .25014,    .03164,
     +     .00000,    .17731,    .27747,
     +     .25242,    .13670,   3.12036,    .25628,    .03859,
     +     .00000,    .18406,    .28397,
     +     .25551,    .13805,   3.21957,    .26068,    .04484,
     +     .00000,    .18909,    .28862,
     +     .26191,    .14081,   3.42003,    .26888,    .06038,
     +     .00000,    .19913,    .29736,
     +     .26719,    .14306,   3.57707,    .27470,    .07580,
     +     .00323,    .20699,    .30362,
     +     .27284,    .14544,   3.73677,    .28021,    .09440,
     +     .01392,    .21509,    .30958,
     +     .27847,    .14779,   3.88579,    .28530,    .11400,
     +     .02779,    .22298,    .31511,
     +     .28337,    .14980,   4.00693,    .28979,    .13100,
     +     .03931,    .22990,    .31997 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
     +     .28812,    .15174,   4.11643,    .29446,    .14670,
     +     .05063,    .23677,    .32498,
     +     .29193,    .15327,   4.19789,    .29851,    .15840,
     +     .05969,    .24244,    .32931,
     +     .29636,    .15503,   4.28384,    .30359,    .17092,
     +     .07022,    .24919,    .33469,
     +     .30014,    .15651,   4.35096,    .30824,    .18066,
     +     .07920,    .25510,    .33960,
     +     .30352,    .15783,   4.40694,    .31262,    .18871,
     +     .08720,    .26049,    .34420,
     +     .30760,    .15938,   4.46527,    .31807,    .19775,
     +     .09686,    .26704,    .34991,
     +     .31129,    .16078,   4.51077,    .32308,    .20538,
     +     .10554,    .27297,    .35514,
     +     .31463,    .16202,   4.54703,    .32767,    .21197,
     +     .11338,    .27836,    .35993 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
     +     .31786,    .16320,   4.57610,    .33208,    .21808,
     +     .12089,    .28350,    .36453,
     +     .32087,    .16428,   4.59672,    .33613,    .22360,
     +     .12787,    .28824,    .36873,
     +     .32365,    .16528,   4.61297,    .33985,    .22862,
     +     .13429,    .29259,    .37260,
     +     .32616,    .16615,   4.62176,    .34310,    .23301,
     +     .14001,    .29641,    .37596,
     +     .32861,    .16700,   4.62790,    .34624,    .23726,
     +     .14559,    .30011,    .37922,
     +     .33093,    .16778,   4.62930,    .34911,    .24119,
     +     .15083,    .30353,    .38221,
     +     .33308,    .16850,   4.62778,    .35172,    .24478,
     +     .15563,    .30665,    .38490,
     +     .33503,    .16915,   4.62291,    .35401,    .24800,
     +     .15998,    .30942,    .38727 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
     +     .33696,    .16977,   4.61634,    .35623,    .25114,
     +     .16425,    .31212,    .38957,
     +     .33878,    .17035,   4.60616,    .35823,    .25403,
     +     .16823,    .31457,    .39163,
     +     .34051,    .17089,   4.59630,    .36011,    .25676,
     +     .17199,    .31690,    .39358,
     +     .34205,    .17136,   4.58259,    .36166,    .25911,
     +     .17529,    .31886,    .39518,
     +     .34360,    .17183,   4.56888,    .36323,    .26148,
     +     .17861,    .32083,    .39679 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
     +     .25366,    .14207,   1.19695,    .15352,    .00153,
     +    -.00001,    .08938,    .18331,
     +     .26105,    .14531,   1.38856,    .16205,    .00289,
     +    -.00001,    .09775,    .19251,
     +     .27125,    .14972,   1.64926,    .17420,    .00532,
     +    -.00002,    .10972,    .20552,
     +     .27822,    .15268,   1.82541,    .18262,    .00753,
     +    -.00002,    .11809,    .21452,
     +     .28513,    .15558,   1.99657,    .19097,    .01038,
     +    -.00002,    .12649,    .22342,
     +     .29080,    .15793,   2.13368,    .19770,    .01341,
     +    -.00002,    .13340,    .23058,
     +     .29600,    .16006,   2.25701,    .20373,    .01695,
     +    -.00002,    .13972,    .23700,
     +     .30125,    .16219,   2.37547,    .20952,    .02150,
     +    -.00002,    .14601,    .24317 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
     +     .30565,    .16393,   2.47099,    .21405,    .02622,
     +    -.00002,    .15114,    .24801,
     +     .30977,    .16556,   2.55883,    .21801,    .03154,
     +    -.00002,    .15583,    .25225,
     +     .31290,    .16678,   2.62215,    .22076,    .03628,
     +    -.00002,    .15927,    .25520,
     +     .31931,    .16924,   2.74685,    .22570,    .04793,
     +    -.00002,    .16604,    .26054,
     +     .32453,    .17121,   2.84086,    .22897,    .05934,
     +     .00235,    .17119,    .26412,
     +     .33005,    .17324,   2.93273,    .23184,    .07294,
     +     .01013,    .17636,    .26731,
     +     .33547,    .17520,   3.01433,    .23431,    .08708,
     +     .02015,    .18129,    .27008,
     +     .34012,    .17684,   3.07712,    .23643,    .09917,
     +     .02836,    .18553,    .27243 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
     +     .34457,    .17838,   3.13055,    .23865,    .11018,
     +     .03634,    .18968,    .27485,
     +     .34809,    .17956,   3.16775,    .24060,    .11826,
     +     .04266,    .19305,    .27695,
     +     .35211,    .18088,   3.20331,    .24306,    .12676,
     +     .04993,    .19702,    .27956,
     +     .35549,    .18196,   3.22825,    .24532,    .13324,
     +     .05605,    .20044,    .28194,
     +     .35848,    .18289,   3.24713,    .24747,    .13850,
     +     .06146,    .20353,    .28418,
     +     .36203,    .18396,   3.26214,    .25007,    .14429,
     +     .06792,    .20721,    .28688,
     +     .36518,    .18488,   3.26992,    .25242,    .14905,
     +     .07365,    .21046,    .28930,
     +     .36798,    .18567,   3.27299,    .25453,    .15309,
     +     .07878,    .21336,    .29146 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
     +     .37064,    .18639,   3.27137,    .25649,    .15675,
     +     .08364,    .21608,    .29346,
     +     .37307,    .18700,   3.26469,    .25822,    .16000,
     +     .08809,    .21850,    .29521,
     +     .37529,    .18755,   3.25641,    .25976,    .16289,
     +     .09216,    .22069,    .29677,
     +     .37724,    .18800,   3.24445,    .26101,    .16537,
     +     .09573,    .22253,    .29802,
     +     .37912,    .18842,   3.23087,    .26219,    .16773,
     +     .09919,    .22428,    .29919,
     +     .38086,    .18879,   3.21468,    .26320,    .16988,
     +     .10240,    .22585,    .30017,
     +     .38243,    .18909,   3.19773,    .26405,    .17180,
     +     .10531,    .22723,    .30101,
     +     .38384,    .18934,   3.17976,    .26475,    .17348,
     +     .10792,    .22841,    .30166 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
     +     .38521,    .18957,   3.16079,    .26538,    .17510,
     +     .11046,    .22952,    .30226,
     +     .38646,    .18976,   3.13988,    .26587,    .17655,
     +     .11279,    .23048,    .30270,
     +     .38764,    .18993,   3.12009,    .26633,    .17791,
     +     .11498,    .23138,    .30312,
     +     .38863,    .19003,   3.09873,    .26659,    .17903,
     +     .11687,    .23205,    .30333,
     +     .38964,    .19014,   3.07744,    .26686,    .18014,
     +     .11876,    .23272,    .30354 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
     +     .30108,    .16749,   1.13980,    .14372,    .00154,
     +    -.00001,    .08532,    .17978,
     +     .30873,    .17055,   1.29792,    .15033,    .00287,
     +    -.00001,    .09210,    .18692,
     +     .31914,    .17464,   1.50817,    .15960,    .00514,
     +    -.00001,    .10166,    .19687,
     +     .32617,    .17733,   1.64686,    .16592,    .00713,
     +    -.00001,    .10826,    .20363,
     +     .33308,    .17993,   1.77877,    .17209,    .00963,
     +    -.00001,    .11480,    .21021,
     +     .33870,    .18199,   1.88227,    .17699,    .01222,
     +    -.00002,    .12012,    .21541,
     +     .34381,    .18385,   1.97367,    .18130,    .01519,
     +    -.00002,    .12493,    .21999,
     +     .34892,    .18564,   2.05937,    .18536,    .01895,
     +    -.00001,    .12965,    .22429 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
     +     .35314,    .18710,   2.12701,    .18846,    .02281,
     +    -.00001,    .13345,    .22757,
     +     .35707,    .18844,   2.18813,    .19110,    .02711,
     +    -.00002,    .13688,    .23037,
     +     .36003,    .18942,   2.23108,    .19287,    .03091,
     +    -.00002,    .13937,    .23225,
     +     .36604,    .19137,   2.31351,    .19587,    .04017,
     +    -.00002,    .14416,    .23547,
     +     .37086,    .19287,   2.37294,    .19766,    .04914,
     +     .00185,    .14772,    .23741,
     +     .37588,    .19438,   2.42817,    .19902,    .05974,
     +     .00792,    .15119,    .23890,
     +     .38071,    .19578,   2.47404,    .20003,    .07064,
     +     .01568,    .15442,    .24001,
     +     .38479,    .19690,   2.50652,    .20085,    .07985,
     +     .02197,    .15713,    .24087 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
     +     .38864,    .19790,   2.53140,    .20172,    .08813,
     +     .02803,    .15974,    .24176,
     +     .39163,    .19863,   2.54644,    .20252,    .09414,
     +     .03280,    .16183,    .24257,
     +     .39497,    .19939,   2.55732,    .20355,    .10036,
     +     .03822,    .16425,    .24359,
     +     .39773,    .19998,   2.56198,    .20453,    .10503,
     +     .04276,    .16631,    .24454,
     +     .40012,    .20046,   2.56330,    .20547,    .10876,
     +     .04673,    .16814,    .24543,
     +     .40289,    .20095,   2.55847,    .20657,    .11278,
     +     .05143,    .17027,    .24646,
     +     .40528,    .20131,   2.54937,    .20752,    .11602,
     +     .05556,    .17210,    .24731,
     +     .40737,    .20158,   2.53794,    .20834,    .11871,
     +     .05922,    .17369,    .24802 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
     +     .40929,    .20178,   2.52332,    .20904,    .12111,
     +     .06265,    .17513,    .24862,
     +     .41098,    .20189,   2.50548,    .20958,    .12317,
     +     .06577,    .17634,    .24903,
     +     .41248,    .20197,   2.48744,    .21002,    .12499,
     +     .06860,    .17742,    .24935,
     +     .41375,    .20196,   2.46763,    .21029,    .12651,
     +     .07105,    .17826,    .24949,
     +     .41494,    .20193,   2.44687,    .21049,    .12793,
     +     .07341,    .17903,    .24957,
     +     .41598,    .20184,   2.42465,    .21058,    .12919,
     +     .07558,    .17967,    .24951,
     +     .41689,    .20173,   2.40264,    .21059,    .13029,
     +     .07753,    .18019,    .24939,
     +     .41767,    .20158,   2.38064,    .21052,    .13123,
     +     .07925,    .18058,    .24917 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
     +     .41840,    .20141,   2.35806,    .21040,    .13212,
     +     .08091,    .18093,    .24891,
     +     .41900,    .20120,   2.33445,    .21019,    .13288,
     +     .08243,    .18116,    .24854,
     +     .41956,    .20100,   2.31224,    .20998,    .13359,
     +     .08384,    .18138,    .24819,
     +     .41997,    .20075,   2.28951,    .20966,    .13413,
     +     .08504,    .18145,    .24772,
     +     .42037,    .20050,   2.26693,    .20934,    .13467,
     +     .08624,    .18152,    .24725 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
     +     .38374,    .20950,   1.03340,    .12619,    .00158,
     +     .00000,    .07807,    .17202,
     +     .39100,    .21172,   1.14972,    .13031,    .00286,
     +     .00000,    .08276,    .17631,
     +     .40064,    .21449,   1.29803,    .13594,    .00493,
     +     .00001,    .08922,    .18209,
     +     .40698,    .21622,   1.39160,    .13966,    .00663,
     +     .00000,    .09357,    .18586,
     +     .41306,    .21779,   1.47698,    .14317,    .00868,
     +     .00000,    .09779,    .18938,
     +     .41787,    .21896,   1.54124,    .14586,    .01072,
     +     .00000,    .10113,    .19203,
     +     .42217,    .21994,   1.59578,    .14813,    .01299,
     +     .00000,    .10408,    .19425,
     +     .42633,    .22080,   1.64414,    .15014,    .01577,
     +     .00000,    .10691,    .19617 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
     +     .42969,    .22144,   1.68040,    .15157,    .01857,
     +     .00000,    .10911,    .19749,
     +     .43277,    .22199,   1.71183,    .15268,    .02163,
     +    -.00001,    .11105,    .19850,
     +     .43502,    .22235,   1.73245,    .15333,    .02430,
     +     .00000,    .11241,    .19906,
     +     .43946,    .22296,   1.76909,    .15418,    .03071,
     +     .00000,    .11492,    .19967,
     +     .44284,    .22331,   1.79179,    .15435,    .03680,
     +     .00127,    .11664,    .19961,
     +     .44621,    .22354,   1.80896,    .15411,    .04386,
     +     .00537,    .11820,    .19909,
     +     .44928,    .22359,   1.81861,    .15360,    .05100,
     +     .01055,    .11952,    .19826,
     +     .45171,    .22350,   1.82103,    .15306,    .05692,
     +     .01468,    .12056,    .19742 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
     +     .45386,    .22328,   1.81821,    .15255,    .06213,
     +     .01860,    .12150,    .19658,
     +     .45540,    .22302,   1.81231,    .15219,    .06583,
     +     .02163,    .12222,    .19593,
     +     .45695,    .22258,   1.80045,    .15180,    .06955,
     +     .02503,    .12299,    .19517,
     +     .45811,    .22211,   1.78707,    .15150,    .07226,
     +     .02784,    .12361,    .19454,
     +     .45904,    .22164,   1.77322,    .15125,    .07437,
     +     .03028,    .12414,    .19399,
     +     .45992,    .22091,   1.75184,    .15088,    .07654,
     +     .03310,    .12468,    .19320,
     +     .46051,    .22015,   1.72931,    .15047,    .07821,
     +     .03554,    .12506,    .19241,
     +     .46091,    .21937,   1.70684,    .15005,    .07953,
     +     .03766,    .12533,    .19163 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
     +     .46113,    .21855,   1.68283,    .14958,    .08066,
     +     .03963,    .12551,    .19077,
     +     .46114,    .21767,   1.65766,    .14901,    .08158,
     +     .04138,    .12555,    .18982,
     +     .46106,    .21682,   1.63359,    .14845,    .08235,
     +     .04294,    .12555,    .18890,
     +     .46082,    .21595,   1.60956,    .14783,    .08293,
     +     .04426,    .12544,    .18794,
     +     .46050,    .21506,   1.58530,    .14718,    .08346,
     +     .04552,    .12528,    .18694,
     +     .46006,    .21414,   1.56074,    .14647,    .08389,
     +     .04666,    .12505,    .18589,
     +     .45957,    .21323,   1.53722,    .14577,    .08423,
     +     .04766,    .12479,    .18485,
     +     .45902,    .21234,   1.51458,    .14505,    .08449,
     +     .04853,    .12448,    .18383 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
     +     .45842,    .21143,   1.49182,    .14431,    .08471,
     +     .04935,    .12414,    .18277,
     +     .45770,    .21051,   1.46887,    .14352,    .08486,
     +     .05008,    .12374,    .18167,
     +     .45701,    .20964,   1.44744,    .14278,    .08500,
     +     .05076,    .12336,    .18063,
     +     .45622,    .20875,   1.42641,    .14200,    .08503,
     +     .05131,    .12292,    .17957,
     +     .45544,    .20786,   1.40561,    .14123,    .08507,
     +     .05186,    .12249,    .17851 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
     +     .45488,    .24201,    .95217,    .11011,    .00160,
     +     .00001,    .07106,    .16239,
     +     .46092,    .24300,   1.04238,    .11276,    .00285,
     +     .00000,    .07444,    .16477,
     +     .46864,    .24400,   1.15252,    .11625,    .00479,
     +     .00000,    .07898,    .16777,
     +     .47351,    .24445,   1.21876,    .11845,    .00631,
     +     .00000,    .08195,    .16959,
     +     .47800,    .24471,   1.27638,    .12044,    .00806,
     +     .00000,    .08475,    .17115,
     +     .48143,    .24476,   1.31757,    .12187,    .00975,
     +     .00000,    .08691,    .17220,
     +     .48437,    .24467,   1.35077,    .12300,    .01158,
     +     .00000,    .08877,    .17295,
     +     .48705,    .24444,   1.37787,    .12387,    .01376,
     +    -.00001,    .09047,    .17342 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
     +     .48911,    .24415,   1.39654,    .12440,    .01592,
     +     .00000,    .09175,    .17355,
     +     .49090,    .24380,   1.41155,    .12471,    .01824,
     +     .00000,    .09284,    .17347,
     +     .49213,    .24345,   1.41997,    .12478,    .02024,
     +     .00000,    .09356,    .17324,
     +     .49438,    .24257,   1.43208,    .12453,    .02495,
     +     .00000,    .09479,    .17233,
     +     .49589,    .24167,   1.43571,    .12391,    .02936,
     +     .00093,    .09551,    .17114,
     +     .49713,    .24053,   1.43365,    .12291,    .03440,
     +     .00392,    .09603,    .16951,
     +     .49798,    .23920,   1.42553,    .12169,    .03940,
     +     .00765,    .09636,    .16762,
     +     .49839,    .23788,   1.41375,    .12056,    .04348,
     +     .01059,    .09652,    .16585 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
     +     .49849,    .23646,   1.39834,    .11945,    .04700,
     +     .01334,    .09661,    .16412,
     +     .49834,    .23521,   1.38324,    .11859,    .04943,
     +     .01544,    .09664,    .16272,
     +     .49786,    .23360,   1.36201,    .11757,    .05183,
     +     .01778,    .09660,    .16105,
     +     .49723,    .23212,   1.34155,    .11672,    .05351,
     +     .01967,    .09652,    .15963,
     +     .49652,    .23074,   1.32201,    .11596,    .05477,
     +     .02129,    .09642,    .15836,
     +     .49532,    .22889,   1.29503,    .11499,    .05602,
     +     .02314,    .09620,    .15671,
     +     .49399,    .22710,   1.26848,    .11404,    .05691,
     +     .02471,    .09591,    .15513,
     +     .49260,    .22539,   1.24315,    .11313,    .05758,
     +     .02607,    .09559,    .15364 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
     +     .49105,    .22365,   1.21723,    .11219,    .05811,
     +     .02730,    .09520,    .15213,
     +     .48935,    .22188,   1.19112,    .11121,    .05848,
     +     .02837,    .09474,    .15060,
     +     .48768,    .22021,   1.16663,    .11028,    .05877,
     +     .02932,    .09427,    .14914,
     +     .48592,    .21860,   1.14301,    .10936,    .05895,
     +     .03011,    .09377,    .14771,
     +     .48411,    .21698,   1.11954,    .10842,    .05909,
     +     .03085,    .09324,    .14628,
     +     .48222,    .21534,   1.09630,    .10744,    .05915,
     +     .03150,    .09267,    .14485,
     +     .48037,    .21378,   1.07439,    .10651,    .05918,
     +     .03207,    .09211,    .14347,
     +     .47853,    .21229,   1.05365,    .10561,    .05916,
     +     .03255,    .09153,    .14213 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
     +     .47665,    .21078,   1.03304,    .10470,    .05911,
     +     .03299,    .09094,    .14078,
     +     .47468,    .20927,   1.01262,    .10377,    .05902,
     +     .03336,    .09032,    .13942,
     +     .47282,    .20784,    .99365,    .10289,    .05892,
     +     .03371,    .08973,    .13815,
     +     .47093,    .20645,    .97539,    .10201,    .05878,
     +     .03398,    .08913,    .13689,
     +     .46903,    .20506,    .95741,    .10113,    .05864,
     +     .03425,    .08853,    .13565 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
     +     .51664,    .26658,    .89542,    .09527,    .00161,
     +    -.00001,    .06411,    .15108,
     +     .52085,    .26619,    .96634,    .09699,    .00284,
     +     .00000,    .06659,    .15209,
     +     .52586,    .26522,   1.04866,    .09914,    .00466,
     +     .00000,    .06982,    .15316,
     +     .52875,    .26429,   1.09533,    .10041,    .00603,
     +    -.00001,    .07186,    .15365,
     +     .53117,    .26314,   1.13337,    .10146,    .00756,
     +    -.00001,    .07372,    .15389,
     +     .53281,    .26201,   1.15856,    .10214,    .00899,
     +    -.00001,    .07511,    .15387,
     +     .53404,    .26085,   1.17717,    .10259,    .01051,
     +    -.00001,    .07626,    .15363,
     +     .53490,    .25949,   1.18995,    .10281,    .01227,
     +    -.00001,    .07724,    .15314 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
     +     .53539,    .25823,   1.19696,    .10281,    .01397,
     +     .00000,    .07793,    .15252,
     +     .53569,    .25697,   1.20125,    .10266,    .01579,
     +     .00000,    .07848,    .15176,
     +     .53572,    .25593,   1.20185,    .10242,    .01733,
     +     .00000,    .07880,    .15102,
     +     .53546,    .25359,   1.19854,    .10158,    .02091,
     +     .00000,    .07923,    .14920,
     +     .53481,    .25149,   1.19047,    .10057,    .02420,
     +     .00071,    .07936,    .14733,
     +     .53369,    .24905,   1.17696,    .09923,    .02792,
     +     .00298,    .07928,    .14504,
     +     .53212,    .24641,   1.15871,    .09770,    .03154,
     +     .00577,    .07902,    .14257,
     +     .53037,    .24394,   1.13918,    .09632,    .03443,
     +     .00794,    .07870,    .14032 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
     +     .52832,    .24141,   1.11726,    .09497,    .03689,
     +     .00996,    .07833,    .13810,
     +     .52641,    .23928,   1.09766,    .09389,    .03855,
     +     .01149,    .07798,    .13631,
     +     .52382,    .23663,   1.07215,    .09264,    .04012,
     +     .01315,    .07751,    .13419,
     +     .52136,    .23426,   1.04876,    .09156,    .04119,
     +     .01449,    .07706,    .13237,
     +     .51901,    .23207,   1.02711,    .09060,    .04196,
     +     .01561,    .07664,    .13076,
     +     .51575,    .22925,    .99851,    .08937,    .04266,
     +     .01688,    .07603,    .12870,
     +     .51252,    .22658,    .97127,    .08822,    .04312,
     +     .01795,    .07541,    .12676,
     +     .50939,    .22408,    .94585,    .08714,    .04342,
     +     .01886,    .07480,    .12496 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
     +     .50613,    .22157,    .92043,    .08606,    .04362,
     +     .01967,    .07415,    .12316,
     +     .50280,    .21907,    .89539,    .08494,    .04372,
     +     .02036,    .07347,    .12139,
     +     .49962,    .21673,    .87220,    .08389,    .04376,
     +     .02096,    .07280,    .11973,
     +     .49646,    .21451,    .85027,    .08289,    .04373,
     +     .02145,    .07214,    .11814,
     +     .49326,    .21230,    .82870,    .08188,    .04368,
     +     .02190,    .07146,    .11655,
     +     .49003,    .21011,    .80766,    .08088,    .04357,
     +     .02229,    .07076,    .11497,
     +     .48691,    .20804,    .78801,    .07993,    .04345,
     +     .02262,    .07008,    .11348,
     +     .48391,    .20608,    .76964,    .07901,    .04331,
     +     .02289,    .06943,    .11205 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
     +     .48088,    .20411,    .75151,    .07809,    .04314,
     +     .02314,    .06876,    .11064,
     +     .47780,    .20214,    .73376,    .07716,    .04294,
     +     .02334,    .06808,    .10924,
     +     .47490,    .20030,    .71734,    .07629,    .04275,
     +     .02352,    .06743,    .10794,
     +     .47202,    .19852,    .70175,    .07544,    .04254,
     +     .02365,    .06680,    .10665,
     +     .46916,    .19676,    .68645,    .07461,    .04232,
     +     .02377,    .06617,    .10538 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
     +     .58186,    .28778,    .84991,    .07852,    .00161,
     +    -.00002,    .05561,    .13541,
     +     .58323,    .28559,    .90099,    .07953,    .00279,
     +    -.00001,    .05733,    .13524,
     +     .58409,    .28212,    .95540,    .08066,    .00447,
     +    -.00001,    .05944,    .13470,
     +     .58403,    .27947,    .98290,    .08123,    .00568,
     +    -.00001,    .06070,    .13408,
     +     .58341,    .27660,   1.00220,    .08160,    .00699,
     +    -.00001,    .06178,    .13322,
     +     .58248,    .27406,   1.01239,    .08172,    .00817,
     +    -.00001,    .06252,    .13232,
     +     .58130,    .27158,   1.01757,    .08169,    .00938,
     +    -.00001,    .06309,    .13133,
     +     .57965,    .26886,   1.01746,    .08146,    .01076,
     +     .00000,    .06349,    .13011 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
     +     .57797,    .26648,   1.01419,    .08111,    .01205,
     +    -.00001,    .06372,    .12891,
     +     .57622,    .26418,   1.00920,    .08066,    .01341,
     +    -.00001,    .06385,    .12765,
     +     .57465,    .26233,   1.00314,    .08022,    .01454,
     +    -.00001,    .06386,    .12657,
     +     .57105,    .25833,    .98707,    .07905,    .01713,
     +    -.00001,    .06371,    .12410,
     +     .56760,    .25486,    .96969,    .07784,    .01947,
     +     .00052,    .06339,    .12181,
     +     .56342,    .25098,    .94748,    .07637,    .02205,
     +     .00217,    .06289,    .11913,
     +     .55875,    .24693,    .92192,    .07477,    .02452,
     +     .00419,    .06225,    .11632,
     +     .55428,    .24324,    .89716,    .07333,    .02644,
     +     .00574,    .06162,    .11381 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
     +     .54956,    .23952,    .87118,    .07192,    .02803,
     +     .00715,    .06094,    .11135,
     +     .54549,    .23645,    .84908,    .07080,    .02907,
     +     .00821,    .06035,    .10938,
     +     .54036,    .23271,    .82160,    .06946,    .03000,
     +     .00933,    .05962,    .10706,
     +     .53571,    .22942,    .79725,    .06833,    .03060,
     +     .01022,    .05896,    .10506,
     +     .53140,    .22643,    .77520,    .06733,    .03100,
     +     .01097,    .05835,    .10328,
     +     .52575,    .22263,    .74699,    .06605,    .03130,
     +     .01181,    .05755,    .10107,
     +     .52031,    .21909,    .72079,    .06487,    .03145,
     +     .01249,    .05676,    .09901,
     +     .51518,    .21582,    .69681,    .06378,    .03151,
     +     .01305,    .05601,    .09711 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
     +     .50999,    .21256,    .67327,    .06268,    .03150,
     +     .01356,    .05524,    .09523,
     +     .50479,    .20939,    .65055,    .06161,    .03141,
     +     .01397,    .05446,    .09340,
     +     .49990,    .20643,    .62975,    .06061,    .03130,
     +     .01431,    .05372,    .09171,
     +     .49520,    .20364,    .61041,    .05964,    .03115,
     +     .01459,    .05301,    .09012,
     +     .49050,    .20087,    .59158,    .05869,    .03098,
     +     .01484,    .05229,    .08855,
     +     .48582,    .19817,    .57345,    .05775,    .03078,
     +     .01505,    .05157,    .08701,
     +     .48136,    .19562,    .55669,    .05686,    .03058,
     +     .01521,    .05089,    .08556,
     +     .47712,    .19322,    .54119,    .05603,    .03037,
     +     .01534,    .05023,    .08420 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
     +     .47286,    .19084,    .52601,    .05519,    .03015,
     +     .01546,    .04957,    .08285,
     +     .46860,    .18849,    .51131,    .05435,    .02991,
     +     .01555,    .04892,    .08152,
     +     .46461,    .18630,    .49779,    .05357,    .02969,
     +     .01563,    .04831,    .08028,
     +     .46072,    .18420,    .48509,    .05283,    .02945,
     +     .01567,    .04770,    .07910,
     +     .45685,    .18212,    .47267,    .05209,    .02921,
     +     .01570,    .04711,    .07792 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
     +     .63438,    .29995,    .82145,    .06384,    .00157,
     +    -.00003,    .04754,    .11903,
     +     .63249,    .29603,    .85498,    .06444,    .00269,
     +    -.00003,    .04874,    .11812,
     +     .62872,    .29019,    .88554,    .06498,    .00424,
     +    -.00003,    .05010,    .11654,
     +     .62542,    .28593,    .89722,    .06515,    .00532,
     +    -.00002,    .05085,    .11524,
     +     .62154,    .28145,    .90148,    .06512,    .00643,
     +    -.00001,    .05142,    .11375,
     +     .61788,    .27760,    .89995,    .06495,    .00741,
     +    -.00002,    .05175,    .11236,
     +     .61416,    .27395,    .89493,    .06466,    .00838,
     +    -.00003,    .05196,    .11094,
     +     .60986,    .27007,    .88528,    .06421,    .00946,
     +    -.00002,    .05203,    .10932 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
     +     .60597,    .26669,    .87460,    .06371,    .01045,
     +    -.00003,    .05198,    .10782,
     +     .60214,    .26346,    .86309,    .06315,    .01147,
     +    -.00003,    .05186,    .10633,
     +     .59895,    .26090,    .85248,    .06264,    .01231,
     +    -.00003,    .05170,    .10509,
     +     .59199,    .25550,    .82798,    .06138,    .01420,
     +    -.00002,    .05123,    .10236,
     +     .58577,    .25090,    .80481,    .06016,    .01587,
     +     .00037,    .05070,    .09991,
     +     .57862,    .24583,    .77748,    .05873,    .01768,
     +     .00161,    .05000,    .09715,
     +     .57099,    .24061,    .74804,    .05721,    .01938,
     +     .00312,    .04918,    .09431,
     +     .56394,    .23594,    .72086,    .05584,    .02067,
     +     .00425,    .04841,    .09180 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
     +     .55672,    .23129,    .69336,    .05450,    .02169,
     +     .00527,    .04761,    .08935,
     +     .55067,    .22748,    .67064,    .05344,    .02234,
     +     .00602,    .04695,    .08739,
     +     .54320,    .22291,    .64319,    .05220,    .02288,
     +     .00681,    .04613,    .08509,
     +     .53657,    .21893,    .61939,    .05113,    .02319,
     +     .00742,    .04540,    .08313,
     +     .53051,    .21534,    .59819,    .05018,    .02337,
     +     .00793,    .04474,    .08139,
     +     .52269,    .21085,    .57166,    .04901,    .02345,
     +     .00849,    .04389,    .07920,
     +     .51533,    .20668,    .54746,    .04792,    .02343,
     +     .00893,    .04307,    .07721,
     +     .50847,    .20285,    .52561,    .04691,    .02336,
     +     .00930,    .04231,    .07540 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
     +     .50162,    .19908,    .50448,    .04591,    .02323,
     +     .00961,    .04154,    .07363,
     +     .49485,    .19544,    .48441,    .04494,    .02307,
     +     .00986,    .04077,    .07191,
     +     .48852,    .19207,    .46621,    .04405,    .02289,
     +     .01006,    .04006,    .07032,
     +     .48254,    .18890,    .44948,    .04321,    .02270,
     +     .01022,    .03938,    .06884,
     +     .47658,    .18579,    .43334,    .04237,    .02249,
     +     .01036,    .03870,    .06740,
     +     .47072,    .18275,    .41797,    .04155,    .02226,
     +     .01046,    .03803,    .06600,
     +     .46518,    .17992,    .40388,    .04078,    .02204,
     +     .01054,    .03740,    .06469,
     +     .45995,    .17727,    .39097,    .04006,    .02183,
     +     .01060,    .03680,    .06345 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
     +     .45472,    .17465,    .37840,    .03935,    .02160,
     +     .01066,    .03621,    .06223,
     +     .44954,    .17206,    .36632,    .03864,    .02136,
     +     .01068,    .03562,    .06105,
     +     .44470,    .16965,    .35525,    .03799,    .02113,
     +     .01071,    .03507,    .05996,
     +     .44003,    .16736,    .34498,    .03737,    .02090,
     +     .01071,    .03454,    .05892,
     +     .43540,    .16509,    .33497,    .03675,    .02067,
     +     .01071,    .03401,    .05790 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
     +     .67464,    .30454,    .80047,    .05124,    .00150,
     +    -.00001,    .04008,    .10279,
     +     .66929,    .29906,    .81793,    .05159,    .00254,
     +    -.00001,    .04089,    .10144,
     +     .66064,    .29112,    .82748,    .05181,    .00395,
     +    -.00001,    .04173,    .09926,
     +     .65400,    .28545,    .82574,    .05178,    .00488,
     +    -.00001,    .04213,    .09758,
     +     .64676,    .27961,    .81764,    .05157,    .00582,
     +    -.00002,    .04237,    .09574,
     +     .64035,    .27467,    .80678,    .05126,    .00662,
     +    -.00001,    .04244,    .09411,
     +     .63408,    .27003,    .79382,    .05086,    .00739,
     +    -.00002,    .04241,    .09251,
     +     .62722,    .26514,    .77703,    .05032,    .00823,
     +    -.00001,    .04227,    .09071 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
     +     .62116,    .26095,    .76098,    .04978,    .00899,
     +    -.00001,    .04206,    .08911,
     +     .61529,    .25699,    .74486,    .04921,    .00975,
     +    -.00002,    .04180,    .08755,
     +     .61055,    .25387,    .73116,    .04869,    .01037,
     +    -.00002,    .04155,    .08628,
     +     .60041,    .24734,    .70119,    .04749,    .01173,
     +    -.00001,    .04093,    .08353,
     +     .59159,    .24184,    .67455,    .04637,    .01292,
     +     .00029,    .04029,    .08114,
     +     .58169,    .23584,    .64454,    .04506,    .01418,
     +     .00122,    .03951,    .07848,
     +     .57136,    .22975,    .61343,    .04370,    .01533,
     +     .00234,    .03866,    .07578,
     +     .56197,    .22435,    .58560,    .04248,    .01618,
     +     .00317,    .03786,    .07341 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
     +     .55252,    .21903,    .55815,    .04131,    .01682,
     +     .00390,    .03704,    .07112,
     +     .54472,    .21468,    .53594,    .04036,    .01720,
     +     .00444,    .03638,    .06930,
     +     .53520,    .20955,    .50965,    .03926,    .01749,
     +     .00499,    .03558,    .06713,
     +     .52685,    .20510,    .48725,    .03831,    .01763,
     +     .00541,    .03487,    .06530,
     +     .51929,    .20111,    .46753,    .03748,    .01769,
     +     .00577,    .03423,    .06370,
     +     .50968,    .19613,    .44331,    .03644,    .01765,
     +     .00613,    .03340,    .06171,
     +     .50071,    .19156,    .42154,    .03549,    .01755,
     +     .00643,    .03263,    .05990,
     +     .49243,    .18738,    .40212,    .03461,    .01741,
     +     .00667,    .03192,    .05826 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
     +     .48426,    .18329,    .38356,    .03374,    .01723,
     +     .00685,    .03122,    .05667,
     +     .47625,    .17936,    .36611,    .03291,    .01703,
     +     .00700,    .03052,    .05514,
     +     .46881,    .17575,    .35042,    .03215,    .01683,
     +     .00712,    .02987,    .05374,
     +     .46179,    .17239,    .33619,    .03144,    .01664,
     +     .00721,    .02927,    .05242,
     +     .45485,    .16908,    .32254,    .03074,    .01643,
     +     .00728,    .02867,    .05114,
     +     .44809,    .16588,    .30965,    .03005,    .01621,
     +     .00733,    .02808,    .04991,
     +     .44174,    .16290,    .29792,    .02940,    .01600,
     +     .00736,    .02753,    .04878,
     +     .43578,    .16012,    .28724,    .02880,    .01579,
     +     .00738,    .02702,    .04772 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
     +     .42984,    .15737,    .27691,    .02821,    .01557,
     +     .00740,    .02650,    .04668,
     +     .42398,    .15469,    .26708,    .02764,    .01536,
     +     .00739,    .02600,    .04566,
     +     .41850,    .15220,    .25810,    .02711,    .01516,
     +     .00739,    .02554,    .04471,
     +     .41326,    .14985,    .24983,    .02661,    .01496,
     +     .00737,    .02509,    .04383,
     +     .40807,    .14753,    .24180,    .02612,    .01476,
     +     .00736,    .02464,    .04297 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
     +     .70312,    .30280,    .78015,    .04060,    .00141,
     +    -.00002,    .03332,    .08730,
     +     .69426,    .29598,    .78299,    .04082,    .00237,
     +    -.00001,    .03387,    .08572,
     +     .68079,    .28623,    .77408,    .04085,    .00360,
     +    -.00002,    .03436,    .08328,
     +     .67087,    .27937,    .76102,    .04069,    .00441,
     +    -.00002,    .03453,    .08145,
     +     .66038,    .27241,    .74285,    .04040,    .00520,
     +    -.00001,    .03455,    .07949,
     +     .65132,    .26659,    .72463,    .04005,    .00585,
     +    -.00001,    .03447,    .07777,
     +     .64265,    .26115,    .70565,    .03964,    .00647,
     +    -.00002,    .03432,    .07611,
     +     .63335,    .25546,    .68362,    .03910,    .00711,
     +    -.00002,    .03406,    .07432 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
     +     .62526,    .25063,    .66381,    .03857,    .00768,
     +    -.00002,    .03377,    .07274,
     +     .61752,    .24609,    .64462,    .03801,    .00825,
     +    -.00002,    .03346,    .07122,
     +     .61136,    .24254,    .62897,    .03753,    .00870,
     +    -.00002,    .03317,    .07000,
     +     .59832,    .23516,    .59577,    .03645,    .00969,
     +    -.00001,    .03249,    .06741,
     +     .58717,    .22901,    .56739,    .03545,    .01052,
     +     .00023,    .03184,    .06519,
     +     .57481,    .22236,    .53639,    .03432,    .01138,
     +     .00092,    .03107,    .06275,
     +     .56212,    .21564,    .50517,    .03314,    .01215,
     +     .00175,    .03024,    .06029,
     +     .55074,    .20972,    .47788,    .03209,    .01269,
     +     .00238,    .02949,    .05815 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
     +     .53938,    .20396,    .45147,    .03108,    .01309,
     +     .00291,    .02873,    .05608,
     +     .53007,    .19931,    .43048,    .03028,    .01330,
     +     .00329,    .02811,    .05443,
     +     .51888,    .19379,    .40606,    .02934,    .01343,
     +     .00369,    .02736,    .05252,
     +     .50912,    .18905,    .38552,    .02854,    .01347,
     +     .00399,    .02671,    .05089,
     +     .50033,    .18483,    .36763,    .02784,    .01345,
     +     .00424,    .02613,    .04945,
     +     .48931,    .17958,    .34596,    .02696,    .01335,
     +     .00448,    .02538,    .04770,
     +     .47911,    .17479,    .32673,    .02613,    .01321,
     +     .00468,    .02469,    .04612,
     +     .46973,    .17044,    .30975,    .02538,    .01305,
     +     .00483,    .02405,    .04470 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
     +     .46048,    .16621,    .29368,    .02467,    .01286,
     +     .00497,    .02343,    .04332,
     +     .45151,    .16217,    .27877,    .02399,    .01266,
     +     .00505,    .02283,    .04199,
     +     .44321,    .15846,    .26546,    .02337,    .01247,
     +     .00511,    .02228,    .04077,
     +     .43546,    .15503,    .25348,    .02279,    .01228,
     +     .00515,    .02177,    .03965,
     +     .42783,    .15167,    .24208,    .02222,    .01209,
     +     .00519,    .02125,    .03856,
     +     .42041,    .14842,    .23139,    .02167,    .01189,
     +     .00522,    .02076,    .03752,
     +     .41348,    .14541,    .22173,    .02116,    .01170,
     +     .00523,    .02029,    .03656,
     +     .40699,    .14261,    .21298,    .02067,    .01151,
     +     .00523,    .01985,    .03568 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
     +     .40056,    .13986,    .20456,    .02019,    .01133,
     +     .00522,    .01942,    .03482,
     +     .39425,    .13718,    .19660,    .01974,    .01114,
     +     .00520,    .01901,    .03398,
     +     .38838,    .13468,    .18936,    .01932,    .01096,
     +     .00519,    .01862,    .03320,
     +     .38280,    .13234,    .18274,    .01891,    .01079,
     +     .00517,    .01825,    .03247,
     +     .37728,    .13004,    .17633,    .01851,    .01062,
     +     .00514,    .01789,    .03175 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
     +     .72039,    .29584,    .75622,    .03176,    .00130,
     +    -.00002,    .02734,    .07301,
     +     .70813,    .28792,    .74607,    .03190,    .00216,
     +    -.00001,    .02770,    .07135,
     +     .69001,    .27673,    .72143,    .03184,    .00325,
     +    -.00002,    .02796,    .06884,
     +     .67699,    .26895,    .69912,    .03164,    .00393,
     +    -.00003,    .02799,    .06701,
     +     .66348,    .26109,    .67305,    .03133,    .00458,
     +    -.00001,    .02789,    .06507,
     +     .65199,    .25458,    .64930,    .03097,    .00510,
     +     .00000,    .02772,    .06341,
     +     .64114,    .24851,    .62600,    .03055,    .00558,
     +     .00000,    .02750,    .06183,
     +     .62964,    .24224,    .60046,    .03004,    .00608,
     +    -.00002,    .02718,    .06015 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
     +     .61974,    .23696,    .57823,    .02956,    .00650,
     +    -.00002,    .02687,    .05866,
     +     .61034,    .23201,    .55718,    .02908,    .00691,
     +     .00000,    .02655,    .05723,
     +     .60291,    .22815,    .54045,    .02865,    .00724,
     +    -.00001,    .02625,    .05613,
     +     .58733,    .22021,    .50583,    .02772,    .00793,
     +    -.00002,    .02558,    .05377,
     +     .57416,    .21363,    .47707,    .02686,    .00851,
     +     .00015,    .02497,    .05178,
     +     .55976,    .20654,    .44639,    .02589,    .00909,
     +     .00070,    .02425,    .04962,
     +     .54506,    .19948,    .41616,    .02492,    .00960,
     +     .00134,    .02349,    .04744,
     +     .53199,    .19331,    .39023,    .02405,    .00993,
     +     .00179,    .02281,    .04556 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
     +     .51911,    .18728,    .36554,    .02320,    .01015,
     +     .00219,    .02213,    .04378,
     +     .50861,    .18244,    .34618,    .02255,    .01026,
     +     .00248,    .02156,    .04235,
     +     .49610,    .17675,    .32397,    .02175,    .01031,
     +     .00275,    .02090,    .04069,
     +     .48526,    .17189,    .30553,    .02108,    .01029,
     +     .00297,    .02033,    .03929,
     +     .47555,    .16758,    .28963,    .02050,    .01022,
     +     .00315,    .01982,    .03806,
     +     .46342,    .16227,    .27061,    .01978,    .01009,
     +     .00330,    .01917,    .03656,
     +     .45226,    .15743,    .25389,    .01913,    .00992,
     +     .00343,    .01858,    .03521,
     +     .44207,    .15305,    .23928,    .01854,    .00976,
     +     .00353,    .01804,    .03400 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
     +     .43208,    .14881,    .22560,    .01797,    .00958,
     +     .00361,    .01751,    .03284,
     +     .42249,    .14477,    .21301,    .01741,    .00941,
     +     .00366,    .01701,    .03173,
     +     .41366,    .14107,    .20185,    .01689,    .00924,
     +     .00370,    .01654,    .03071,
     +     .40542,    .13768,    .19190,    .01642,    .00906,
     +     .00372,    .01611,    .02978,
     +     .39733,    .13437,    .18247,    .01597,    .00889,
     +     .00373,    .01568,    .02888,
     +     .38952,    .13119,    .17369,    .01553,    .00872,
     +     .00373,    .01527,    .02803,
     +     .38222,    .12824,    .16580,    .01512,    .00856,
     +     .00373,    .01489,    .02723,
     +     .37541,    .12553,    .15870,    .01475,    .00839,
     +     .00372,    .01454,    .02650 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
     +     .36869,    .12285,    .15191,    .01439,    .00824,
     +     .00371,    .01419,    .02578,
     +     .36214,    .12024,    .14553,    .01403,    .00808,
     +     .00369,    .01385,    .02510,
     +     .35606,    .11782,    .13974,    .01370,    .00794,
     +     .00367,    .01354,    .02448,
     +     .35029,    .11556,    .13446,    .01339,    .00780,
     +     .00364,    .01324,    .02389,
     +     .34460,    .11333,    .12937,    .01308,    .00766,
     +     .00362,    .01295,    .02332 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
     +     .72711,    .28470,    .72641,    .02450,    .00118,
     +     .00005,    .02216,    .06014,
     +     .71164,    .27595,    .70519,    .02462,    .00194,
     +     .00005,    .02239,    .05850,
     +     .68928,    .26365,    .66774,    .02453,    .00285,
     +     .00004,    .02247,    .05610,
     +     .67345,    .25518,    .63827,    .02433,    .00342,
     +     .00003,    .02240,    .05438,
     +     .65721,    .24672,    .60637,    .02402,    .00394,
     +     .00004,    .02223,    .05257,
     +     .64355,    .23973,    .57879,    .02370,    .00435,
     +     .00004,    .02202,    .05102,
     +     .63073,    .23330,    .55267,    .02335,    .00472,
     +     .00003,    .02176,    .04956,
     +     .61730,    .22667,    .52502,    .02289,    .00510,
     +     .00004,    .02143,    .04802 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
     +     .60584,    .22110,    .50156,    .02247,    .00541,
     +     .00003,    .02112,    .04670,
     +     .59502,    .21590,    .47971,    .02205,    .00571,
     +     .00003,    .02079,    .04544,
     +     .58651,    .21189,    .46269,    .02171,    .00594,
     +     .00002,    .02052,    .04443,
     +     .56882,    .20363,    .42811,    .02094,    .00640,
     +     .00003,    .01990,    .04235,
     +     .55401,    .19682,    .40000,    .02023,    .00679,
     +     .00017,    .01934,    .04063,
     +     .53794,    .18952,    .37058,    .01944,    .00717,
     +     .00056,    .01870,    .03877,
     +     .52170,    .18229,    .34211,    .01863,    .00749,
     +     .00102,    .01804,    .03691,
     +     .50734,    .17603,    .31809,    .01793,    .00770,
     +     .00136,    .01744,    .03531 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
     +     .49325,    .16996,    .29556,    .01726,    .00781,
     +     .00164,    .01685,    .03379,
     +     .48190,    .16508,    .27809,    .01670,    .00785,
     +     .00182,    .01639,    .03256,
     +     .46839,    .15940,    .25827,    .01609,    .00782,
     +     .00203,    .01581,    .03117,
     +     .45679,    .15455,    .24201,    .01555,    .00775,
     +     .00218,    .01533,    .03000,
     +     .44647,    .15027,    .22812,    .01505,    .00768,
     +     .00230,    .01490,    .02898,
     +     .43362,    .14499,    .21169,    .01447,    .00755,
     +     .00241,    .01435,    .02773,
     +     .42185,    .14024,    .19740,    .01395,    .00739,
     +     .00248,    .01385,    .02663,
     +     .41114,    .13595,    .18500,    .01347,    .00724,
     +     .00254,    .01340,    .02563 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
     +     .40072,    .13182,    .17348,    .01302,    .00708,
     +     .00259,    .01297,    .02465,
     +     .39074,    .12789,    .16298,    .01258,    .00694,
     +     .00262,    .01256,    .02374,
     +     .38158,    .12432,    .15372,    .01218,    .00679,
     +     .00264,    .01219,    .02291,
     +     .37308,    .12104,    .14552,    .01181,    .00665,
     +     .00265,    .01183,    .02216,
     +     .36477,    .11785,    .13780,    .01146,    .00650,
     +     .00265,    .01149,    .02144,
     +     .35677,    .11480,    .13066,    .01112,    .00635,
     +     .00264,    .01115,    .02074,
     +     .34934,    .11198,    .12427,    .01080,    .00621,
     +     .00263,    .01085,    .02011,
     +     .34246,    .10937,    .11857,    .01050,    .00609,
     +     .00262,    .01056,    .01953 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
     +     .33567,    .10681,    .11313,    .01021,    .00596,
     +     .00261,    .01029,    .01897,
     +     .32906,    .10435,    .10804,    .00993,    .00583,
     +     .00259,    .01002,    .01842,
     +     .32292,    .10207,    .10343,    .00968,    .00571,
     +     .00257,    .00976,    .01791,
     +     .31713,    .09993,    .09928,    .00944,    .00559,
     +     .00254,    .00953,    .01744,
     +     .31142,    .09783,    .09528,    .00922,    .00548,
     +     .00252,    .00930,    .01698 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
     +     .72377,    .27060,    .69005,    .01889,    .00094,
     +    -.00018,    .01754,    .04879,
     +     .70551,    .26120,    .65985,    .01896,    .00159,
     +    -.00017,    .01768,    .04728,
     +     .67941,    .24814,    .61250,    .01883,    .00238,
     +    -.00014,    .01769,    .04507,
     +     .66113,    .23922,    .57785,    .01863,    .00285,
     +    -.00013,    .01758,    .04349,
     +     .64256,    .23037,    .54207,    .01835,    .00328,
     +    -.00014,    .01740,    .04186,
     +     .62708,    .22311,    .51218,    .01805,    .00360,
     +    -.00015,    .01718,    .04049,
     +     .61268,    .21641,    .48454,    .01772,    .00388,
     +    -.00016,    .01694,    .03921,
     +     .59767,    .20959,    .45606,    .01735,    .00415,
     +    -.00015,    .01665,    .03783 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
     +     .58493,    .20388,    .43238,    .01700,    .00439,
     +    -.00014,    .01636,    .03667,
     +     .57296,    .19857,    .41061,    .01664,    .00461,
     +    -.00013,    .01606,    .03557,
     +     .56363,    .19448,    .39388,    .01635,    .00476,
     +    -.00013,    .01581,    .03471,
     +     .54429,    .18610,    .36038,    .01572,    .00507,
     +    -.00013,    .01527,    .03294,
     +     .52825,    .17923,    .33370,    .01514,    .00533,
     +    -.00002,    .01479,    .03148,
     +     .51090,    .17195,    .30620,    .01450,    .00558,
     +     .00029,    .01425,    .02991,
     +     .49349,    .16476,    .28002,    .01386,    .00577,
     +     .00066,    .01369,    .02835,
     +     .47824,    .15855,    .25825,    .01330,    .00588,
     +     .00092,    .01319,    .02702 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
     +     .46338,    .15254,    .23808,    .01274,    .00592,
     +     .00114,    .01270,    .02576,
     +     .45143,    .14774,    .22261,    .01230,    .00591,
     +     .00128,    .01230,    .02478,
     +     .43733,    .14217,    .20525,    .01180,    .00587,
     +     .00143,    .01184,    .02361,
     +     .42523,    .13745,    .19117,    .01138,    .00580,
     +     .00154,    .01143,    .02265,
     +     .41449,    .13331,    .17923,    .01101,    .00572,
     +     .00162,    .01106,    .02183,
     +     .40124,    .12823,    .16518,    .01055,    .00560,
     +     .00170,    .01062,    .02081,
     +     .38920,    .12364,    .15312,    .01013,    .00547,
     +     .00176,    .01022,    .01990,
     +     .37829,    .11953,    .14275,    .00975,    .00534,
     +     .00180,    .00986,    .01909 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
     +     .36766,    .11558,    .13318,    .00940,    .00520,
     +     .00182,    .00951,    .01831,
     +     .35757,    .11185,    .12451,    .00905,    .00507,
     +     .00184,    .00918,    .01758,
     +     .34834,    .10845,    .11692,    .00873,    .00495,
     +     .00186,    .00888,    .01692,
     +     .33980,    .10535,    .11025,    .00845,    .00483,
     +     .00186,    .00860,    .01632,
     +     .33147,    .10234,    .10400,    .00818,    .00471,
     +     .00186,    .00832,    .01574,
     +     .32348,    .09947,    .09824,    .00792,    .00459,
     +     .00184,    .00806,    .01518,
     +     .31608,    .09682,    .09313,    .00768,    .00448,
     +     .00184,    .00782,    .01468,
     +     .30923,    .09438,    .08859,    .00746,    .00437,
     +     .00183,    .00760,    .01423 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
     +     .30249,    .09200,    .08427,    .00723,    .00427,
     +     .00182,    .00738,    .01380,
     +     .29594,    .08970,    .08026,    .00702,    .00417,
     +     .00180,    .00717,    .01338,
     +     .28988,    .08759,    .07663,    .00683,    .00408,
     +     .00178,    .00698,    .01300,
     +     .28420,    .08560,    .07337,    .00665,    .00399,
     +     .00177,    .00680,    .01263,
     +     .27862,    .08366,    .07024,    .00648,    .00390,
     +     .00175,    .00663,    .01227 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
     +     .71200,    .25361,    .64700,    .01413,    .00085,
     +    -.00006,    .01389,    .03904,
     +     .69123,    .24386,    .60996,    .01419,    .00140,
     +    -.00005,    .01396,    .03767,
     +     .66186,    .23042,    .55567,    .01408,    .00205,
     +    -.00002,    .01389,    .03571,
     +     .64151,    .22130,    .51776,    .01391,    .00241,
     +    -.00002,    .01375,    .03433,
     +     .62098,    .21230,    .47987,    .01370,    .00274,
     +    -.00004,    .01356,    .03288,
     +     .60398,    .20496,    .44901,    .01347,    .00299,
     +    -.00005,    .01334,    .03168,
     +     .58824,    .19825,    .42101,    .01321,    .00320,
     +    -.00003,    .01312,    .03056,
     +     .57199,    .19140,    .39272,    .01290,    .00338,
     +    -.00003,    .01284,    .02941 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
     +     .55828,    .18568,    .36956,    .01260,    .00355,
     +    -.00002,    .01257,    .02843,
     +     .54545,    .18039,    .34855,    .01232,    .00371,
     +    -.00002,    .01231,    .02751,
     +     .53546,    .17633,    .33263,    .01210,    .00380,
     +    -.00002,    .01209,    .02679,
     +     .51494,    .16805,    .30109,    .01160,    .00401,
     +    -.00002,    .01163,    .02530,
     +     .49799,    .16128,    .27635,    .01113,    .00418,
     +     .00005,    .01123,    .02409,
     +     .47980,    .15415,    .25124,    .01063,    .00432,
     +     .00028,    .01077,    .02279,
     +     .46165,    .14715,    .22768,    .01014,    .00442,
     +     .00054,    .01031,    .02151,
     +     .44586,    .14111,    .20833,    .00969,    .00447,
     +     .00072,    .00989,    .02043 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
     +     .43054,    .13532,    .19059,    .00927,    .00448,
     +     .00087,    .00948,    .01940,
     +     .41826,    .13073,    .17714,    .00894,    .00445,
     +     .00097,    .00916,    .01860,
     +     .40385,    .12540,    .16219,    .00853,    .00440,
     +     .00107,    .00878,    .01767,
     +     .39157,    .12089,    .15015,    .00820,    .00432,
     +     .00114,    .00845,    .01691,
     +     .38070,    .11694,    .14003,    .00792,    .00424,
     +     .00119,    .00816,    .01625,
     +     .36736,    .11211,    .12827,    .00756,    .00413,
     +     .00124,    .00781,    .01544,
     +     .35526,    .10780,    .11824,    .00725,    .00402,
     +     .00128,    .00749,    .01469,
     +     .34434,    .10395,    .10966,    .00698,    .00391,
     +     .00130,    .00721,    .01403 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
     +     .33378,    .10024,    .10181,    .00672,    .00379,
     +     .00131,    .00692,    .01343,
     +     .32376,    .09675,    .09476,    .00644,    .00368,
     +     .00132,    .00666,    .01286,
     +     .31462,    .09360,    .08861,    .00620,    .00358,
     +     .00133,    .00642,    .01235,
     +     .30622,    .09072,    .08323,    .00598,    .00348,
     +     .00132,    .00620,    .01188,
     +     .29805,    .08793,    .07823,    .00577,    .00338,
     +     .00131,    .00599,    .01143,
     +     .29023,    .08528,    .07365,    .00557,    .00330,
     +     .00131,    .00578,    .01103,
     +     .28301,    .08284,    .06960,    .00538,    .00321,
     +     .00130,    .00559,    .01065,
     +     .27634,    .08060,    .06600,    .00522,    .00312,
     +     .00129,    .00543,    .01030 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
     +     .26979,    .07842,    .06260,    .00506,    .00304,
     +     .00128,    .00527,    .00995,
     +     .26347,    .07632,    .05945,    .00491,    .00296,
     +     .00126,    .00511,    .00961,
     +     .25762,    .07440,    .05663,    .00476,    .00290,
     +     .00125,    .00496,    .00931,
     +     .25214,    .07260,    .05409,    .00463,    .00283,
     +     .00123,    .00482,    .00903,
     +     .24676,    .07084,    .05166,    .00450,    .00276,
     +     .00121,    .00468,    .00876 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
     +     .69215,    .23508,    .59860,    .01050,    .00072,
     +    -.00003,    .01079,    .03075,
     +     .66932,    .22521,    .55685,    .01056,    .00117,
     +    -.00005,    .01082,    .02954,
     +     .63736,    .21165,    .49831,    .01046,    .00168,
     +    -.00005,    .01072,    .02787,
     +     .61537,    .20254,    .45884,    .01034,    .00198,
     +    -.00004,    .01059,    .02665,
     +     .59337,    .19358,    .42038,    .01015,    .00223,
     +    -.00003,    .01040,    .02543,
     +     .57528,    .18627,    .38968,    .00994,    .00241,
     +    -.00004,    .01020,    .02445,
     +     .55859,    .17961,    .36228,    .00973,    .00257,
     +    -.00004,    .00998,    .02352,
     +     .54143,    .17290,    .33508,    .00951,    .00272,
     +    -.00002,    .00974,    .02253 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
     +     .52705,    .16731,    .31308,    .00927,    .00282,
     +    -.00002,    .00952,    .02172,
     +     .51364,    .16214,    .29329,    .00903,    .00291,
     +    -.00003,    .00931,    .02097,
     +     .50326,    .15819,    .27846,    .00885,    .00298,
     +    -.00003,    .00912,    .02037,
     +     .48197,    .15015,    .24948,    .00845,    .00312,
     +    -.00003,    .00874,    .01916,
     +     .46449,    .14363,    .22707,    .00810,    .00321,
     +     .00003,    .00840,    .01818,
     +     .44585,    .13677,    .20459,    .00772,    .00329,
     +     .00020,    .00803,    .01714,
     +     .42735,    .13008,    .18378,    .00735,    .00334,
     +     .00039,    .00765,    .01611,
     +     .41133,    .12434,    .16688,    .00702,    .00334,
     +     .00052,    .00732,    .01525 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
     +     .39589,    .11885,    .15156,    .00668,    .00332,
     +     .00062,    .00699,    .01445,
     +     .38356,    .11451,    .14005,    .00642,    .00329,
     +     .00070,    .00673,    .01380,
     +     .36916,    .10949,    .12738,    .00612,    .00324,
     +     .00077,    .00643,    .01307,
     +     .35693,    .10527,    .11727,    .00588,    .00318,
     +     .00082,    .00617,    .01245,
     +     .34615,    .10158,    .10883,    .00566,    .00311,
     +     .00086,    .00595,    .01192,
     +     .33298,    .09709,    .09905,    .00537,    .00300,
     +     .00089,    .00567,    .01130,
     +     .32106,    .09309,    .09081,    .00513,    .00291,
     +     .00091,    .00541,    .01074,
     +     .31034,    .08952,    .08382,    .00492,    .00282,
     +     .00093,    .00518,    .01023 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
     +     .30004,    .08611,    .07746,    .00472,    .00273,
     +     .00094,    .00497,    .00976,
     +     .29030,    .08290,    .07177,    .00451,    .00264,
     +     .00094,    .00477,    .00933,
     +     .28144,    .08000,    .06684,    .00433,    .00256,
     +     .00094,    .00459,    .00894,
     +     .27331,    .07737,    .06257,    .00418,    .00248,
     +     .00093,    .00442,    .00858,
     +     .26542,    .07483,    .05860,    .00404,    .00241,
     +     .00093,    .00426,    .00823,
     +     .25788,    .07243,    .05498,    .00390,    .00234,
     +     .00092,    .00410,    .00789,
     +     .25095,    .07022,    .05179,    .00377,    .00227,
     +     .00091,    .00396,    .00759,
     +     .24457,    .06819,    .04899,    .00364,    .00221,
     +     .00090,    .00383,    .00733 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
     +     .23833,    .06622,    .04634,    .00352,    .00215,
     +     .00089,    .00371,    .00708,
     +     .23231,    .06433,    .04391,    .00341,    .00208,
     +     .00087,    .00358,    .00682,
     +     .22676,    .06260,    .04172,    .00330,    .00203,
     +     .00086,    .00347,    .00659,
     +     .22158,    .06097,    .03977,    .00320,    .00198,
     +     .00085,    .00337,    .00639,
     +     .21650,    .05939,    .03791,    .00310,    .00193,
     +     .00084,    .00327,    .00620 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
     +     .66550,    .21539,    .54597,    .00763,    .00060,
     +     .00000,    .00829,    .02389,
     +     .64109,    .20557,    .50158,    .00767,    .00098,
     +     .00002,    .00829,    .02287,
     +     .60712,    .19223,    .44134,    .00762,    .00138,
     +     .00000,    .00818,    .02141,
     +     .58396,    .18327,    .40182,    .00752,    .00160,
     +     .00001,    .00804,    .02043,
     +     .56093,    .17451,    .36407,    .00737,    .00180,
     +     .00001,    .00787,    .01941,
     +     .54207,    .16742,    .33445,    .00723,    .00194,
     +     .00000,    .00770,    .01856,
     +     .52479,    .16096,    .30838,    .00706,    .00203,
     +    -.00001,    .00750,    .01784,
     +     .50708,    .15449,    .28289,    .00689,    .00214,
     +    -.00001,    .00731,    .01701 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
     +     .49232,    .14911,    .26249,    .00671,    .00221,
     +    -.00001,    .00713,    .01636,
     +     .47859,    .14416,    .24433,    .00652,    .00227,
     +    -.00001,    .00695,    .01576,
     +     .46798,    .14038,    .23085,    .00639,    .00231,
     +    -.00001,    .00680,    .01528,
     +     .44636,    .13274,    .20476,    .00610,    .00238,
     +     .00000,    .00648,    .01431,
     +     .42875,    .12655,    .18484,    .00581,    .00243,
     +     .00005,    .00622,    .01354,
     +     .41000,    .12008,    .16510,    .00553,    .00248,
     +     .00017,    .00592,    .01271,
     +     .39151,    .11378,    .14702,    .00525,    .00249,
     +     .00031,    .00561,    .01191,
     +     .37562,    .10840,    .13253,    .00499,    .00248,
     +     .00040,    .00534,    .01124 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
     +     .36034,    .10328,    .11953,    .00474,    .00246,
     +     .00047,    .00509,    .01059,
     +     .34818,    .09926,    .10983,    .00453,    .00242,
     +     .00052,    .00489,    .01008,
     +     .33404,    .09461,    .09924,    .00432,    .00236,
     +     .00057,    .00465,    .00952,
     +     .32207,    .09072,    .09086,    .00414,    .00231,
     +     .00060,    .00445,    .00905,
     +     .31155,    .08734,    .08392,    .00399,    .00225,
     +     .00062,    .00428,    .00863,
     +     .29875,    .08323,    .07595,    .00378,    .00216,
     +     .00065,    .00407,    .00814,
     +     .28724,    .07956,    .06926,    .00359,    .00209,
     +     .00066,    .00387,    .00772,
     +     .27693,    .07631,    .06362,    .00343,    .00201,
     +     .00066,    .00370,    .00735 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
     +     .26702,    .07323,    .05853,    .00328,    .00195,
     +     .00067,    .00354,    .00699,
     +     .25769,    .07032,    .05401,    .00314,    .00188,
     +     .00067,    .00338,    .00666,
     +     .24924,    .06770,    .05011,    .00302,    .00181,
     +     .00066,    .00324,    .00636,
     +     .24150,    .06533,    .04676,    .00291,    .00176,
     +     .00065,    .00311,    .00608,
     +     .23402,    .06306,    .04366,    .00280,    .00170,
     +     .00065,    .00299,    .00581,
     +     .22690,    .06090,    .04083,    .00269,    .00165,
     +     .00064,    .00288,    .00558,
     +     .22036,    .05893,    .03836,    .00259,    .00160,
     +     .00063,    .00277,    .00535,
     +     .21436,    .05713,    .03619,    .00251,    .00155,
     +     .00062,    .00268,    .00514 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
     +     .20850,    .05538,    .03415,    .00243,    .00150,
     +     .00061,    .00259,    .00495,
     +     .20286,    .05369,    .03227,    .00234,    .00146,
     +     .00061,    .00249,    .00478,
     +     .19766,    .05214,    .03059,    .00227,    .00142,
     +     .00060,    .00241,    .00462,
     +     .19286,    .05071,    .02911,    .00218,    .00137,
     +     .00059,    .00234,    .00447,
     +     .18815,    .04932,    .02769,    .00210,    .00133,
     +     .00058,    .00227,    .00432 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
     +     .63299,    .19516,    .49077,    .00541,    .00052,
     +     .00007,    .00630,    .01826,
     +     .60742,    .18563,    .44551,    .00545,    .00080,
     +     .00007,    .00628,    .01742,
     +     .57219,    .17266,    .38571,    .00542,    .00113,
     +     .00006,    .00618,    .01619,
     +     .54832,    .16402,    .34739,    .00534,    .00130,
     +     .00006,    .00605,    .01539,
     +     .52469,    .15563,    .31141,    .00526,    .00143,
     +     .00006,    .00589,    .01456,
     +     .50542,    .14886,    .28360,    .00517,    .00153,
     +     .00006,    .00574,    .01388,
     +     .48786,    .14273,    .25944,    .00503,    .00161,
     +     .00007,    .00559,    .01329,
     +     .46994,    .13658,    .23605,    .00490,    .00167,
     +     .00005,    .00543,    .01264 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
     +     .45507,    .13148,    .21757,    .00477,    .00171,
     +     .00005,    .00527,    .01212,
     +     .44131,    .12680,    .20126,    .00463,    .00174,
     +     .00004,    .00512,    .01165,
     +     .43072,    .12324,    .18925,    .00452,    .00177,
     +     .00005,    .00500,    .01128,
     +     .40918,    .11608,    .16625,    .00430,    .00181,
     +     .00006,    .00476,    .01052,
     +     .39169,    .11031,    .14888,    .00410,    .00183,
     +     .00007,    .00454,    .00992,
     +     .37323,    .10429,    .13186,    .00387,    .00184,
     +     .00015,    .00430,    .00928,
     +     .35510,    .09846,    .11646,    .00367,    .00184,
     +     .00025,    .00406,    .00866,
     +     .33953,    .09351,    .10424,    .00350,    .00182,
     +     .00031,    .00386,    .00814 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
     +     .32463,    .08882,    .09337,    .00332,    .00178,
     +     .00035,    .00367,    .00764,
     +     .31286,    .08514,    .08531,    .00315,    .00175,
     +     .00039,    .00351,    .00728,
     +     .29919,    .08091,    .07660,    .00300,    .00171,
     +     .00043,    .00333,    .00683,
     +     .28769,    .07736,    .06976,    .00286,    .00166,
     +     .00045,    .00318,    .00647,
     +     .27764,    .07428,    .06412,    .00273,    .00161,
     +     .00046,    .00304,    .00618,
     +     .26539,    .07057,    .05771,    .00259,    .00155,
     +     .00048,    .00288,    .00580,
     +     .25444,    .06729,    .05238,    .00247,    .00149,
     +     .00048,    .00274,    .00547,
     +     .24466,    .06437,    .04791,    .00236,    .00143,
     +     .00048,    .00261,    .00518 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
     +     .23531,    .06160,    .04388,    .00225,    .00138,
     +     .00047,    .00248,    .00492,
     +     .22650,    .05903,    .04033,    .00215,    .00132,
     +     .00047,    .00236,    .00467,
     +     .21853,    .05671,    .03728,    .00207,    .00127,
     +     .00046,    .00226,    .00444,
     +     .21128,    .05461,    .03468,    .00199,    .00123,
     +     .00045,    .00217,    .00425,
     +     .20430,    .05258,    .03227,    .00191,    .00119,
     +     .00045,    .00208,    .00407,
     +     .19770,    .05067,    .03010,    .00182,    .00115,
     +     .00045,    .00200,    .00390,
     +     .19163,    .04893,    .02820,    .00175,    .00111,
     +     .00045,    .00192,    .00374,
     +     .18606,    .04735,    .02654,    .00168,    .00107,
     +     .00044,    .00185,    .00358 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
     +     .18063,    .04582,    .02499,    .00162,    .00104,
     +     .00043,    .00179,    .00343,
     +     .17542,    .04435,    .02356,    .00157,    .00100,
     +     .00042,    .00172,    .00331,
     +     .17063,    .04301,    .02228,    .00151,    .00097,
     +     .00042,    .00166,    .00320,
     +     .16620,    .04176,    .02116,    .00146,    .00094,
     +     .00041,    .00160,    .00310,
     +     .16187,    .04054,    .02009,    .00141,    .00091,
     +     .00040,    .00155,    .00300 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
     +     .59562,    .17504,    .43481,    .00387,    .00038,
     +     .00002,    .00466,    .01371,
     +     .56947,    .16588,    .39023,    .00390,    .00061,
     +     .00001,    .00462,    .01303,
     +     .53359,    .15352,    .33267,    .00389,    .00086,
     +     .00001,    .00452,    .01205,
     +     .50944,    .14531,    .29650,    .00381,    .00098,
     +     .00001,    .00442,    .01142,
     +     .48569,    .13736,    .26306,    .00372,    .00108,
     +     .00002,    .00429,    .01078,
     +     .46640,    .13099,    .23758,    .00364,    .00115,
     +     .00002,    .00418,    .01025,
     +     .44887,    .12524,    .21567,    .00356,    .00119,
     +     .00002,    .00405,    .00977,
     +     .43112,    .11947,    .19475,    .00344,    .00124,
     +     .00001,    .00392,    .00929 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
     +     .41636,    .11475,    .17836,    .00335,    .00128,
     +     .00001,    .00380,    .00888,
     +     .40274,    .11042,    .16399,    .00327,    .00131,
     +     .00001,    .00369,    .00849,
     +     .39235,    .10712,    .15348,    .00319,    .00131,
     +     .00001,    .00360,    .00820,
     +     .37129,    .10051,    .13352,    .00300,    .00133,
     +     .00001,    .00340,    .00763,
     +     .35424,    .09521,    .11866,    .00286,    .00134,
     +     .00003,    .00324,    .00715,
     +     .33630,    .08969,    .10426,    .00271,    .00134,
     +     .00010,    .00306,    .00667,
     +     .31880,    .08437,    .09135,    .00256,    .00132,
     +     .00016,    .00288,    .00620,
     +     .30385,    .07987,    .08118,    .00242,    .00130,
     +     .00021,    .00272,    .00580 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
     +     .28959,    .07562,    .07223,    .00229,    .00127,
     +     .00024,    .00258,    .00543,
     +     .27837,    .07229,    .06567,    .00217,    .00124,
     +     .00027,    .00247,    .00516,
     +     .26534,    .06851,    .05862,    .00208,    .00120,
     +     .00031,    .00234,    .00482,
     +     .25444,    .06534,    .05312,    .00198,    .00116,
     +     .00032,    .00222,    .00455,
     +     .24495,    .06259,    .04861,    .00189,    .00112,
     +     .00032,    .00212,    .00433,
     +     .23339,    .05929,    .04351,    .00180,    .00108,
     +     .00033,    .00200,    .00405,
     +     .22314,    .05636,    .03930,    .00169,    .00103,
     +     .00032,    .00188,    .00382,
     +     .21402,    .05379,    .03579,    .00160,    .00099,
     +     .00032,    .00178,    .00362 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
     +     .20529,    .05137,    .03265,    .00154,    .00094,
     +     .00033,    .00170,    .00342,
     +     .19712,    .04909,    .02990,    .00147,    .00091,
     +     .00032,    .00162,    .00324,
     +     .18975,    .04704,    .02755,    .00141,    .00088,
     +     .00032,    .00155,    .00308,
     +     .18309,    .04520,    .02554,    .00134,    .00084,
     +     .00032,    .00149,    .00293,
     +     .17668,    .04344,    .02369,    .00128,    .00081,
     +     .00031,    .00143,    .00279,
     +     .17060,    .04177,    .02204,    .00122,    .00078,
     +     .00031,    .00136,    .00267,
     +     .16503,    .04026,    .02060,    .00117,    .00075,
     +     .00030,    .00130,    .00255,
     +     .15992,    .03889,    .01934,    .00114,    .00072,
     +     .00029,    .00125,    .00245 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
     +     .15497,    .03756,    .01817,    .00110,    .00070,
     +     .00028,    .00119,    .00235,
     +     .15024,    .03629,    .01710,    .00106,    .00067,
     +     .00028,    .00115,    .00226,
     +     .14591,    .03513,    .01615,    .00101,    .00065,
     +     .00028,    .00111,    .00218,
     +     .14187,    .03406,    .01531,    .00098,    .00063,
     +     .00027,    .00107,    .00209,
     +     .13793,    .03301,    .01451,    .00095,    .00061,
     +     .00027,    .00103,    .00202 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
     +     .55457,    .15523,    .37936,    .00268,    .00031,
     +     .00003,    .00340,    .01011,
     +     .52824,    .14658,    .33682,    .00271,    .00048,
     +     .00004,    .00337,    .00957,
     +     .49238,    .13498,    .28289,    .00270,    .00063,
     +     .00003,    .00327,    .00884,
     +     .46835,    .12734,    .24961,    .00268,    .00072,
     +     .00003,    .00318,    .00831,
     +     .44483,    .11996,    .21928,    .00264,    .00079,
     +     .00003,    .00308,    .00780,
     +     .42587,    .11405,    .19644,    .00257,    .00084,
     +     .00003,    .00299,    .00739,
     +     .40870,    .10873,    .17702,    .00250,    .00088,
     +     .00002,    .00289,    .00703,
     +     .39132,    .10346,    .15863,    .00243,    .00089,
     +     .00002,    .00278,    .00666 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
     +     .37699,    .09912,    .14436,    .00236,    .00091,
     +     .00002,    .00269,    .00636,
     +     .36380,    .09514,    .13195,    .00229,    .00092,
     +     .00002,    .00260,    .00608,
     +     .35371,    .09213,    .12296,    .00224,    .00093,
     +     .00003,    .00253,    .00586,
     +     .33337,    .08611,    .10599,    .00213,    .00093,
     +     .00003,    .00238,    .00542,
     +     .31701,    .08132,    .09350,    .00201,    .00093,
     +     .00004,    .00226,    .00507,
     +     .29987,    .07635,    .08150,    .00190,    .00092,
     +     .00007,    .00212,    .00473,
     +     .28324,    .07157,    .07085,    .00178,    .00091,
     +     .00012,    .00198,    .00438,
     +     .26908,    .06754,    .06255,    .00168,    .00089,
     +     .00014,    .00187,    .00407 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
     +     .25562,    .06375,    .05530,    .00161,    .00087,
     +     .00016,    .00178,    .00379,
     +     .24508,    .06079,    .05003,    .00152,    .00084,
     +     .00019,    .00168,    .00360,
     +     .23290,    .05743,    .04439,    .00144,    .00081,
     +     .00019,    .00158,    .00335,
     +     .22275,    .05463,    .04003,    .00137,    .00078,
     +     .00020,    .00150,    .00315,
     +     .21393,    .05221,    .03648,    .00130,    .00076,
     +     .00021,    .00143,    .00298,
     +     .20320,    .04931,    .03248,    .00124,    .00072,
     +     .00020,    .00135,    .00280,
     +     .19374,    .04674,    .02920,    .00116,    .00069,
     +     .00020,    .00127,    .00263,
     +     .18535,    .04449,    .02648,    .00109,    .00066,
     +     .00020,    .00120,    .00248 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
     +     .17733,    .04238,    .02407,    .00104,    .00063,
     +     .00020,    .00113,    .00234,
     +     .16987,    .04040,    .02196,    .00099,    .00060,
     +     .00021,    .00108,    .00221,
     +     .16316,    .03862,    .02017,    .00094,    .00057,
     +     .00020,    .00104,    .00210,
     +     .15705,    .03704,    .01865,    .00091,    .00055,
     +     .00020,    .00099,    .00200,
     +     .15120,    .03552,    .01726,    .00088,    .00053,
     +     .00019,    .00094,    .00190,
     +     .14570,    .03409,    .01601,    .00084,    .00051,
     +     .00019,    .00090,    .00181,
     +     .14066,    .03280,    .01493,    .00080,    .00049,
     +     .00019,    .00086,    .00173,
     +     .13606,    .03162,    .01399,    .00078,    .00047,
     +     .00019,    .00082,    .00166 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
     +     .13161,    .03049,    .01311,    .00075,    .00046,
     +     .00018,    .00078,    .00158,
     +     .12737,    .02941,    .01232,    .00072,    .00044,
     +     .00017,    .00075,    .00150,
     +     .12349,    .02842,    .01161,    .00069,    .00042,
     +     .00016,    .00073,    .00143,
     +     .11988,    .02751,    .01099,    .00066,    .00041,
     +     .00016,    .00070,    .00138,
     +     .11636,    .02663,    .01040,    .00064,    .00039,
     +     .00016,    .00067,    .00134 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
     +     .51084,    .13603,    .32569,    .00178,    .00026,
     +     .00006,    .00247,    .00732,
     +     .48479,    .12799,    .28610,    .00180,    .00037,
     +     .00006,    .00244,    .00691,
     +     .44948,    .11726,    .23681,    .00180,    .00049,
     +     .00005,    .00235,    .00635,
     +     .42596,    .11023,    .20687,    .00180,    .00055,
     +     .00005,    .00227,    .00596,
     +     .40308,    .10346,    .17998,    .00176,    .00060,
     +     .00005,    .00220,    .00556,
     +     .38471,    .09807,    .15995,    .00170,    .00063,
     +     .00003,    .00212,    .00525,
     +     .36812,    .09323,    .14305,    .00164,    .00065,
     +     .00003,    .00204,    .00499,
     +     .35140,    .08843,    .12723,    .00161,    .00066,
     +     .00003,    .00197,    .00469 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
     +     .33766,    .08451,    .11507,    .00154,    .00067,
     +     .00003,    .00191,    .00447,
     +     .32506,    .08093,    .10458,    .00148,    .00068,
     +     .00004,    .00184,    .00426,
     +     .31546,    .07822,    .09703,    .00145,    .00068,
     +     .00004,    .00178,    .00412,
     +     .29610,    .07282,    .08288,    .00141,    .00067,
     +     .00003,    .00167,    .00377,
     +     .28061,    .06854,    .07255,    .00133,    .00067,
     +     .00004,    .00158,    .00352,
     +     .26450,    .06412,    .06274,    .00124,    .00067,
     +     .00007,    .00149,    .00326,
     +     .24890,    .05989,    .05413,    .00117,    .00065,
     +     .00010,    .00139,    .00301,
     +     .23566,    .05633,    .04747,    .00110,    .00064,
     +     .00011,    .00131,    .00279 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
     +     .22315,    .05301,    .04170,    .00104,    .00062,
     +     .00012,    .00122,    .00259,
     +     .21333,    .05042,    .03753,    .00101,    .00059,
     +     .00014,    .00117,    .00244,
     +     .20211,    .04748,    .03312,    .00094,    .00057,
     +     .00014,    .00109,    .00228,
     +     .19278,    .04504,    .02972,    .00088,    .00054,
     +     .00015,    .00103,    .00216,
     +     .18469,    .04293,    .02696,    .00082,    .00052,
     +     .00015,    .00098,    .00205,
     +     .17496,    .04042,    .02389,    .00075,    .00049,
     +     .00016,    .00092,    .00191,
     +     .16628,    .03822,    .02139,    .00073,    .00047,
     +     .00015,    .00086,    .00178,
     +     .15861,    .03629,    .01933,    .00071,    .00045,
     +     .00015,    .00081,    .00167 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
     +     .15138,    .03446,    .01750,    .00067,    .00044,
     +     .00015,    .00077,    .00157,
     +     .14465,    .03278,    .01591,    .00063,    .00042,
     +     .00015,    .00073,    .00147,
     +     .13860,    .03127,    .01457,    .00060,    .00040,
     +     .00015,    .00070,    .00139,
     +     .13316,    .02991,    .01343,    .00057,    .00037,
     +     .00015,    .00066,    .00133,
     +     .12793,    .02862,    .01240,    .00054,    .00036,
     +     .00014,    .00063,    .00126,
     +     .12300,    .02741,    .01147,    .00052,    .00035,
     +     .00014,    .00060,    .00120,
     +     .11851,    .02632,    .01068,    .00049,    .00033,
     +     .00013,    .00057,    .00114,
     +     .11443,    .02533,    .00998,    .00047,    .00032,
     +     .00013,    .00055,    .00108 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
     +     .11048,    .02437,    .00934,    .00045,    .00031,
     +     .00013,    .00052,    .00103,
     +     .10671,    .02346,    .00876,    .00044,    .00030,
     +     .00012,    .00050,    .00099,
     +     .10326,    .02264,    .00824,    .00043,    .00029,
     +     .00012,    .00048,    .00096,
     +     .10009,    .02189,    .00779,    .00041,    .00027,
     +     .00012,    .00046,    .00092,
     +     .09700,    .02115,    .00736,    .00039,    .00026,
     +     .00012,    .00044,    .00088 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
     +     .46537,    .11786,    .27509,    .00117,    .00018,
     +     .00005,    .00174,    .00524,
     +     .43999,    .11050,    .23911,    .00119,    .00027,
     +     .00005,    .00171,    .00488,
     +     .40580,    .10069,    .19510,    .00116,    .00036,
     +     .00003,    .00165,    .00446,
     +     .38318,    .09430,    .16878,    .00113,    .00041,
     +     .00003,    .00160,    .00418,
     +     .36125,    .08817,    .14541,    .00110,    .00045,
     +     .00003,    .00154,    .00388,
     +     .34365,    .08332,    .12822,    .00109,    .00048,
     +     .00003,    .00149,    .00364,
     +     .32785,    .07898,    .11385,    .00105,    .00049,
     +     .00004,    .00144,    .00345,
     +     .31205,    .07469,    .10050,    .00102,    .00050,
     +     .00003,    .00138,    .00323 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
     +     .29907,    .07119,    .09034,    .00098,    .00050,
     +     .00003,    .00133,    .00306,
     +     .28717,    .06802,    .08162,    .00095,    .00050,
     +     .00003,    .00128,    .00292,
     +     .27812,    .06561,    .07538,    .00093,    .00050,
     +     .00003,    .00124,    .00281,
     +     .26005,    .06084,    .06383,    .00087,    .00050,
     +     .00003,    .00116,    .00259,
     +     .24562,    .05707,    .05549,    .00082,    .00049,
     +     .00003,    .00110,    .00240,
     +     .23066,    .05320,    .04762,    .00077,    .00048,
     +     .00006,    .00103,    .00220,
     +     .21624,    .04952,    .04076,    .00072,    .00046,
     +     .00007,    .00096,    .00201,
     +     .20407,    .04643,    .03552,    .00067,    .00045,
     +     .00009,    .00090,    .00187 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
     +     .19261,    .04353,    .03102,    .00062,    .00043,
     +     .00010,    .00084,    .00175,
     +     .18367,    .04129,    .02778,    .00058,    .00042,
     +     .00010,    .00080,    .00165,
     +     .17344,    .03875,    .02438,    .00056,    .00040,
     +     .00011,    .00074,    .00154,
     +     .16495,    .03666,    .02177,    .00053,    .00038,
     +     .00011,    .00070,    .00143,
     +     .15762,    .03487,    .01967,    .00051,    .00037,
     +     .00012,    .00067,    .00134,
     +     .14883,    .03273,    .01735,    .00047,    .00035,
     +     .00012,    .00063,    .00124,
     +     .14106,    .03085,    .01546,    .00043,    .00033,
     +     .00012,    .00059,    .00117,
     +     .13422,    .02921,    .01392,    .00041,    .00031,
     +     .00012,    .00055,    .00111 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
     +     .12774,    .02767,    .01256,    .00039,    .00029,
     +     .00012,    .00052,    .00104,
     +     .12175,    .02626,    .01138,    .00037,    .00028,
     +     .00012,    .00049,    .00097,
     +     .11639,    .02500,    .01039,    .00035,    .00027,
     +     .00011,    .00047,    .00091,
     +     .11156,    .02386,    .00956,    .00033,    .00026,
     +     .00011,    .00044,    .00086,
     +     .10694,    .02278,    .00880,    .00032,    .00025,
     +     .00011,    .00042,    .00081,
     +     .10259,    .02177,    .00813,    .00031,    .00024,
     +     .00011,    .00040,    .00077,
     +     .09865,    .02086,    .00754,    .00030,    .00023,
     +     .00011,    .00038,    .00073,
     +     .09508,    .02003,    .00704,    .00029,    .00022,
     +     .00011,    .00037,    .00070 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
     +     .09162,    .01924,    .00657,    .00027,    .00021,
     +     .00010,    .00035,    .00067,
     +     .08833,    .01850,    .00615,    .00026,    .00020,
     +     .00010,    .00034,    .00064,
     +     .08533,    .01782,    .00578,    .00025,    .00020,
     +     .00010,    .00033,    .00061,
     +     .08258,    .01719,    .00546,    .00023,    .00019,
     +     .00009,    .00031,    .00058,
     +     .07990,    .01658,    .00515,    .00022,    .00018,
     +     .00009,    .00030,    .00056 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
     +     .41926,    .10103,    .22870,    .00085,    .00008,
     +    -.00003,    .00114,    .00363,
     +     .39493,    .09439,    .19681,    .00085,    .00015,
     +    -.00003,    .00112,    .00339,
     +     .36233,    .08558,    .15843,    .00083,    .00021,
     +    -.00003,    .00108,    .00308,
     +     .34084,    .07986,    .13581,    .00083,    .00024,
     +    -.00001,    .00104,    .00288,
     +     .32015,    .07441,    .11593,    .00081,    .00027,
     +    -.00001,    .00100,    .00267,
     +     .30364,    .07012,    .10144,    .00078,    .00028,
     +    -.00002,    .00096,    .00250,
     +     .28883,    .06631,    .08947,    .00076,    .00028,
     +    -.00002,    .00092,    .00235,
     +     .27408,    .06250,    .07843,    .00074,    .00030,
     +    -.00001,    .00088,    .00219 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
     +     .26199,    .05942,    .07011,    .00073,    .00030,
     +    -.00001,    .00084,    .00207,
     +     .25097,    .05664,    .06302,    .00070,    .00030,
     +    -.00001,    .00081,    .00197,
     +     .24265,    .05454,    .05796,    .00067,    .00030,
     +    -.00001,    .00079,    .00189,
     +     .22598,    .05039,    .04865,    .00062,    .00030,
     +    -.00001,    .00073,    .00172,
     +     .21274,    .04711,    .04200,    .00059,    .00029,
     +     .00000,    .00068,    .00160,
     +     .19905,    .04376,    .03578,    .00055,    .00028,
     +     .00000,    .00063,    .00147,
     +     .18592,    .04058,    .03042,    .00052,    .00027,
     +     .00002,    .00059,    .00135,
     +     .17488,    .03793,    .02635,    .00048,    .00026,
     +     .00004,    .00055,    .00126 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
     +     .16451,    .03546,    .02288,    .00046,    .00025,
     +     .00004,    .00052,    .00117,
     +     .15646,    .03356,    .02039,    .00044,    .00024,
     +     .00004,    .00048,    .00109,
     +     .14731,    .03141,    .01781,    .00041,    .00023,
     +     .00005,    .00045,    .00101,
     +     .13973,    .02964,    .01584,    .00039,    .00022,
     +     .00005,    .00043,    .00094,
     +     .13320,    .02811,    .01425,    .00036,    .00021,
     +     .00005,    .00040,    .00089,
     +     .12537,    .02631,    .01252,    .00035,    .00020,
     +     .00006,    .00037,    .00082,
     +     .11849,    .02474,    .01112,    .00032,    .00019,
     +     .00005,    .00035,    .00076,
     +     .11246,    .02337,    .00997,    .00030,    .00017,
     +     .00005,    .00032,    .00071 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
     +     .10677,    .02208,    .00897,    .00029,    .00016,
     +     .00005,    .00031,    .00066,
     +     .10150,    .02090,    .00811,    .00028,    .00016,
     +     .00005,    .00029,    .00062,
     +     .09679,    .01985,    .00738,    .00027,    .00015,
     +     .00005,    .00028,    .00058,
     +     .09257,    .01891,    .00677,    .00025,    .00014,
     +     .00005,    .00026,    .00055,
     +     .08855,    .01802,    .00622,    .00024,    .00013,
     +     .00005,    .00025,    .00052,
     +     .08479,    .01718,    .00573,    .00023,    .00013,
     +     .00005,    .00023,    .00049,
     +     .08137,    .01643,    .00531,    .00022,    .00012,
     +     .00005,    .00022,    .00046,
     +     .07827,    .01576,    .00495,    .00021,    .00012,
     +     .00005,    .00021,    .00044 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
     +     .07528,    .01511,    .00462,    .00020,    .00012,
     +     .00005,    .00020,    .00042,
     +     .07245,    .01450,    .00432,    .00019,    .00011,
     +     .00004,    .00019,    .00040,
     +     .06987,    .01394,    .00405,    .00019,    .00010,
     +     .00004,    .00018,    .00038,
     +     .06749,    .01343,    .00382,    .00018,    .00010,
     +     .00004,    .00017,    .00037,
     +     .06519,    .01294,    .00360,    .00018,    .00009,
     +     .00004,    .00016,    .00036 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
     +     .37306,    .08521,    .18631,    .00046,    .00009,
     +     .00004,    .00081,    .00246,
     +     .35005,    .07932,    .15879,    .00048,    .00014,
     +     .00003,    .00079,    .00228,
     +     .31947,    .07156,    .12606,    .00046,    .00017,
     +     .00004,    .00075,    .00206,
     +     .29941,    .06654,    .10707,    .00047,    .00018,
     +     .00004,    .00072,    .00191,
     +     .28013,    .06177,    .09057,    .00047,    .00019,
     +     .00003,    .00069,    .00176,
     +     .26483,    .05802,    .07864,    .00045,    .00020,
     +     .00003,    .00065,    .00165,
     +     .25114,    .05469,    .06888,    .00044,    .00020,
     +     .00004,    .00063,    .00156,
     +     .23755,    .05143,    .05997,    .00045,    .00021,
     +     .00004,    .00059,    .00144 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
     +     .22650,    .04878,    .05327,    .00043,    .00021,
     +     .00003,    .00056,    .00136,
     +     .21644,    .04638,    .04761,    .00040,    .00021,
     +     .00002,    .00054,    .00128,
     +     .20884,    .04458,    .04361,    .00040,    .00021,
     +     .00002,    .00051,    .00123,
     +     .19371,    .04102,    .03630,    .00036,    .00020,
     +     .00002,    .00049,    .00113,
     +     .18170,    .03823,    .03112,    .00036,    .00020,
     +     .00002,    .00045,    .00104,
     +     .16937,    .03538,    .02632,    .00034,    .00019,
     +     .00003,    .00042,    .00096,
     +     .15762,    .03269,    .02222,    .00031,    .00018,
     +     .00004,    .00038,    .00088,
     +     .14777,    .03046,    .01913,    .00029,    .00017,
     +     .00004,    .00036,    .00081 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
     +     .13854,    .02838,    .01651,    .00027,    .00016,
     +     .00004,    .00033,    .00074,
     +     .13141,    .02679,    .01465,    .00026,    .00016,
     +     .00005,    .00032,    .00069,
     +     .12332,    .02498,    .01273,    .00025,    .00015,
     +     .00005,    .00029,    .00064,
     +     .11664,    .02351,    .01127,    .00023,    .00014,
     +     .00005,    .00027,    .00060,
     +     .11089,    .02225,    .01011,    .00022,    .00014,
     +     .00005,    .00025,    .00057,
     +     .10407,    .02076,    .00884,    .00020,    .00013,
     +     .00004,    .00024,    .00051,
     +     .09806,    .01946,    .00782,    .00020,    .00012,
     +     .00004,    .00022,    .00047,
     +     .09279,    .01833,    .00699,    .00019,    .00011,
     +     .00004,    .00021,    .00044 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
     +     .08786,    .01728,    .00627,    .00018,    .00010,
     +     .00004,    .00019,    .00041,
     +     .08331,    .01631,    .00565,    .00017,    .00010,
     +     .00004,    .00018,    .00039,
     +     .07926,    .01545,    .00513,    .00016,    .00010,
     +     .00004,    .00017,    .00037,
     +     .07564,    .01469,    .00470,    .00015,    .00009,
     +     .00004,    .00016,    .00034,
     +     .07219,    .01396,    .00431,    .00014,    .00009,
     +     .00003,    .00016,    .00032,
     +     .06896,    .01329,    .00396,    .00014,    .00008,
     +     .00003,    .00015,    .00030,
     +     .06605,    .01269,    .00367,    .00013,    .00007,
     +     .00003,    .00014,    .00029,
     +     .06343,    .01214,    .00341,    .00011,    .00007,
     +     .00003,    .00013,    .00028 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
     +     .06090,    .01162,    .00318,    .00011,    .00006,
     +     .00003,    .00012,    .00026,
     +     .05848,    .01113,    .00296,    .00011,    .00006,
     +     .00003,    .00011,    .00025,
     +     .05629,    .01068,    .00278,    .00012,    .00006,
     +     .00003,    .00011,    .00024,
     +     .05429,    .01027,    .00261,    .00011,    .00006,
     +     .00003,    .00010,    .00023,
     +     .05236,    .00988,    .00246,    .00011,    .00006,
     +     .00003,    .00010,    .00021 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
     +     .32775,    .07094,    .14890,    .00023,    .00009,
     +     .00006,    .00055,    .00164,
     +     .30638,    .06579,    .12568,    .00024,    .00011,
     +     .00006,    .00053,    .00151,
     +     .27806,    .05904,    .09841,    .00025,    .00012,
     +     .00005,    .00050,    .00134,
     +     .25959,    .05470,    .08280,    .00026,    .00013,
     +     .00005,    .00048,    .00123,
     +     .24193,    .05058,    .06939,    .00025,    .00014,
     +     .00004,    .00045,    .00114,
     +     .22797,    .04735,    .05981,    .00024,    .00014,
     +     .00004,    .00043,    .00107,
     +     .21552,    .04451,    .05202,    .00025,    .00014,
     +     .00002,    .00041,    .00101,
     +     .20328,    .04171,    .04498,    .00023,    .00015,
     +     .00004,    .00039,    .00093 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
     +     .19328,    .03946,    .03972,    .00023,    .00015,
     +     .00004,    .00038,    .00086,
     +     .18420,    .03742,    .03529,    .00023,    .00014,
     +     .00003,    .00036,    .00081,
     +     .17739,    .03589,    .03219,    .00022,    .00014,
     +     .00003,    .00034,    .00078,
     +     .16384,    .03289,    .02657,    .00020,    .00014,
     +     .00003,    .00031,    .00073,
     +     .15316,    .03055,    .02262,    .00019,    .00014,
     +     .00003,    .00029,    .00066,
     +     .14222,    .02817,    .01899,    .00019,    .00013,
     +     .00004,    .00027,    .00059,
     +     .13182,    .02593,    .01592,    .00017,    .00012,
     +     .00003,    .00025,    .00055,
     +     .12316,    .02407,    .01362,    .00016,    .00011,
     +     .00003,    .00023,    .00050 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
     +     .11509,    .02236,    .01169,    .00015,    .00011,
     +     .00003,    .00021,    .00045,
     +     .10884,    .02104,    .01033,    .00015,    .00011,
     +     .00004,    .00020,    .00042,
     +     .10181,    .01957,    .00893,    .00013,    .00010,
     +     .00004,    .00019,    .00039,
     +     .09601,    .01836,    .00788,    .00012,    .00009,
     +     .00003,    .00018,    .00037,
     +     .09103,    .01733,    .00704,    .00012,    .00008,
     +     .00003,    .00017,    .00034,
     +     .08513,    .01612,    .00613,    .00013,    .00008,
     +     .00004,    .00016,    .00030,
     +     .07998,    .01507,    .00540,    .00012,    .00008,
     +     .00003,    .00014,    .00028,
     +     .07549,    .01415,    .00481,    .00011,    .00007,
     +     .00003,    .00013,    .00026 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
     +     .07127,    .01330,    .00430,    .00010,    .00007,
     +     .00003,    .00012,    .00024,
     +     .06741,    .01252,    .00387,    .00009,    .00006,
     +     .00003,    .00011,    .00023,
     +     .06398,    .01183,    .00351,    .00008,    .00006,
     +     .00003,    .00011,    .00023,
     +     .06092,    .01122,    .00320,    .00007,    .00006,
     +     .00003,    .00010,    .00021,
     +     .05801,    .01065,    .00293,    .00007,    .00005,
     +     .00003,    .00009,    .00020,
     +     .05529,    .01011,    .00269,    .00007,    .00005,
     +     .00003,    .00009,    .00019,
     +     .05284,    .00963,    .00249,    .00007,    .00005,
     +     .00003,    .00008,    .00018,
     +     .05063,    .00920,    .00231,    .00007,    .00005,
     +     .00003,    .00008,    .00016 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
     +     .04851,    .00878,    .00215,    .00007,    .00004,
     +     .00002,    .00007,    .00015,
     +     .04652,    .00840,    .00200,    .00006,    .00004,
     +     .00002,    .00007,    .00014,
     +     .04471,    .00804,    .00187,    .00005,    .00004,
     +     .00002,    .00007,    .00014,
     +     .04303,    .00772,    .00176,    .00006,    .00004,
     +     .00002,    .00007,    .00013,
     +     .04141,    .00741,    .00165,    .00006,    .00004,
     +     .00002,    .00006,    .00013 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
     +     .28421,    .05829,    .11677,    .00019,    .00003,
     +     .00001,    .00033,    .00105,
     +     .26466,    .05386,    .09760,    .00018,    .00004,
     +     .00000,    .00031,    .00097,
     +     .23888,    .04807,    .07541,    .00017,    .00005,
     +     .00000,    .00030,    .00087,
     +     .22214,    .04437,    .06288,    .00019,    .00006,
     +     .00001,    .00028,    .00079,
     +     .20620,    .04088,    .05222,    .00020,    .00007,
     +     .00002,    .00026,    .00071,
     +     .19369,    .03815,    .04467,    .00019,    .00008,
     +     .00001,    .00025,    .00066,
     +     .18260,    .03575,    .03858,    .00015,    .00007,
     +     .00000,    .00023,    .00064,
     +     .17160,    .03340,    .03313,    .00018,    .00007,
     +     .00000,    .00021,    .00058 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
     +     .16274,    .03151,    .02910,    .00017,    .00007,
     +     .00001,    .00021,    .00055,
     +     .15473,    .02981,    .02573,    .00015,    .00007,
     +     .00001,    .00020,    .00051,
     +     .14870,    .02854,    .02337,    .00014,    .00007,
     +     .00000,    .00019,    .00049,
     +     .13676,    .02605,    .01912,    .00014,    .00007,
     +     .00000,    .00017,    .00044,
     +     .12742,    .02412,    .01618,    .00012,    .00007,
     +     .00000,    .00016,    .00041,
     +     .11787,    .02215,    .01349,    .00012,    .00006,
     +     .00001,    .00015,    .00037,
     +     .10881,    .02031,    .01123,    .00012,    .00006,
     +     .00001,    .00014,    .00033,
     +     .10130,    .01880,    .00956,    .00012,    .00006,
     +     .00001,    .00013,    .00031 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
     +     .09434,    .01740,    .00816,    .00011,    .00005,
     +     .00002,    .00012,    .00028,
     +     .08899,    .01633,    .00718,    .00010,    .00005,
     +     .00002,    .00011,    .00027,
     +     .08296,    .01513,    .00618,    .00010,    .00005,
     +     .00002,    .00010,    .00023,
     +     .07801,    .01416,    .00543,    .00009,    .00004,
     +     .00002,    .00009,    .00021,
     +     .07378,    .01333,    .00484,    .00009,    .00004,
     +     .00002,    .00008,    .00020,
     +     .06877,    .01236,    .00420,    .00008,    .00004,
     +     .00001,    .00008,    .00019,
     +     .06440,    .01152,    .00369,    .00007,    .00004,
     +     .00001,    .00007,    .00018,
     +     .06062,    .01079,    .00328,    .00007,    .00003,
     +     .00001,    .00007,    .00016 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
     +     .05711,    .01011,    .00292,    .00006,    .00003,
     +     .00001,    .00006,    .00015,
     +     .05385,    .00950,    .00262,    .00006,    .00003,
     +     .00001,    .00006,    .00014,
     +     .05097,    .00895,    .00237,    .00006,    .00003,
     +     .00001,    .00006,    .00013,
     +     .04841,    .00847,    .00216,    .00006,    .00003,
     +     .00001,    .00005,    .00012,
     +     .04599,    .00802,    .00197,    .00006,    .00003,
     +     .00001,    .00005,    .00012,
     +     .04375,    .00760,    .00181,    .00005,    .00002,
     +     .00001,    .00005,    .00011,
     +     .04173,    .00722,    .00167,    .00005,    .00002,
     +     .00001,    .00004,    .00010,
     +     .03991,    .00688,    .00155,    .00004,    .00002,
     +     .00001,    .00004,    .00010 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
     +     .03816,    .00656,    .00144,    .00004,    .00002,
     +     .00001,    .00004,    .00010,
     +     .03651,    .00626,    .00134,    .00004,    .00002,
     +     .00001,    .00004,    .00009,
     +     .03501,    .00599,    .00125,    .00004,    .00002,
     +     .00001,    .00004,    .00008,
     +     .03366,    .00574,    .00117,    .00004,    .00002,
     +     .00001,    .00003,    .00008,
     +     .03235,    .00550,    .00110,    .00003,    .00002,
     +     .00001,    .00003,    .00008 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
     +     .24262,    .04695,    .08929,    .00004,    .00005,
     +     .00005,    .00024,    .00065,
     +     .22497,    .04320,    .07387,    .00006,    .00005,
     +     .00003,    .00021,    .00060,
     +     .20187,    .03836,    .05633,    .00008,    .00005,
     +     .00004,    .00019,    .00052,
     +     .18704,    .03526,    .04653,    .00007,    .00005,
     +     .00004,    .00018,    .00048,
     +     .17296,    .03235,    .03829,    .00006,    .00005,
     +     .00003,    .00017,    .00043,
     +     .16189,    .03010,    .03250,    .00006,    .00005,
     +     .00003,    .00016,    .00040,
     +     .15210,    .02812,    .02788,    .00007,    .00006,
     +     .00003,    .00015,    .00038,
     +     .14249,    .02619,    .02377,    .00007,    .00005,
     +     .00002,    .00013,    .00034 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
     +     .13475,    .02464,    .02074,    .00006,    .00005,
     +     .00002,    .00013,    .00032,
     +     .12776,    .02325,    .01823,    .00005,    .00006,
     +     .00003,    .00013,    .00030,
     +     .12251,    .02221,    .01649,    .00006,    .00005,
     +     .00003,    .00013,    .00028,
     +     .11219,    .02018,    .01339,    .00006,    .00005,
     +     .00002,    .00012,    .00025,
     +     .10412,    .01861,    .01125,    .00006,    .00005,
     +     .00002,    .00011,    .00024,
     +     .09592,    .01703,    .00932,    .00005,    .00004,
     +     .00002,    .00010,    .00022,
     +     .08821,    .01555,    .00771,    .00005,    .00004,
     +     .00002,    .00009,    .00019,
     +     .08183,    .01434,    .00652,    .00005,    .00003,
     +     .00002,    .00008,    .00017 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
     +     .07593,    .01323,    .00554,    .00004,    .00003,
     +     .00002,    .00007,    .00016,
     +     .07141,    .01238,    .00485,    .00004,    .00003,
     +     .00002,    .00007,    .00015,
     +     .06633,    .01143,    .00416,    .00004,    .00003,
     +     .00002,    .00006,    .00013,
     +     .06218,    .01067,    .00364,    .00004,    .00003,
     +     .00002,    .00006,    .00012,
     +     .05865,    .01001,    .00323,    .00003,    .00003,
     +     .00001,    .00005,    .00011,
     +     .05449,    .00925,    .00279,    .00003,    .00002,
     +     .00002,    .00005,    .00011,
     +     .05086,    .00859,    .00245,    .00004,    .00002,
     +     .00001,    .00004,    .00010,
     +     .04772,    .00803,    .00217,    .00004,    .00002,
     +     .00001,    .00004,    .00009 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
     +     .04482,    .00750,    .00193,    .00003,    .00002,
     +     .00001,    .00004,    .00009,
     +     .04216,    .00703,    .00172,    .00003,    .00002,
     +     .00001,    .00004,    .00008,
     +     .03981,    .00661,    .00156,    .00003,    .00002,
     +     .00001,    .00004,    .00007,
     +     .03772,    .00624,    .00142,    .00002,    .00002,
     +     .00001,    .00003,    .00007,
     +     .03574,    .00589,    .00129,    .00002,    .00002,
     +     .00001,    .00003,    .00007,
     +     .03391,    .00557,    .00118,    .00002,    .00002,
     +     .00001,    .00003,    .00006,
     +     .03227,    .00528,    .00109,    .00002,    .00001,
     +     .00001,    .00003,    .00006,
     +     .03079,    .00502,    .00101,    .00002,    .00001,
     +     .00001,    .00003,    .00005 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
     +     .02938,    .00478,    .00094,    .00002,    .00001,
     +     .00001,    .00003,    .00005,
     +     .02806,    .00455,    .00087,    .00002,    .00001,
     +     .00001,    .00002,    .00005,
     +     .02686,    .00434,    .00081,    .00002,    .00001,
     +     .00001,    .00002,    .00005,
     +     .02577,    .00415,    .00076,    .00002,    .00001,
     +     .00001,    .00002,    .00004,
     +     .02472,    .00397,    .00072,    .00002,    .00001,
     +     .00001,    .00002,    .00004 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
     +     .16838,    .02892,    .04846,    .00002,    .00000,
     +     .00000,    .00006,    .00024,
     +     .15481,    .02640,    .03932,    .00004,    .00001,
     +     .00000,    .00006,    .00020,
     +     .13729,    .02315,    .02915,    .00002,    .00001,
     +     .00000,    .00006,    .00017,
     +     .12611,    .02111,    .02363,    .00002,    .00001,
     +     .00000,    .00005,    .00016,
     +     .11562,    .01921,    .01908,    .00002,    .00001,
     +     .00000,    .00004,    .00015,
     +     .10745,    .01774,    .01595,    .00001,    .00001,
     +     .00000,    .00004,    .00014,
     +     .10029,    .01646,    .01349,    .00002,    .00001,
     +     .00000,    .00004,    .00013,
     +     .09330,    .01523,    .01135,    .00002,    .00001,
     +     .00000,    .00004,    .00010 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
     +     .08770,    .01424,    .00979,    .00002,    .00001,
     +     .00000,    .00004,    .00009,
     +     .08267,    .01337,    .00852,    .00002,    .00001,
     +     .00000,    .00004,    .00009,
     +     .07894,    .01271,    .00765,    .00002,    .00001,
     +     .00000,    .00004,    .00010,
     +     .07164,    .01145,    .00610,    .00001,    .00001,
     +     .00000,    .00003,    .00009,
     +     .06598,    .01048,    .00506,    .00002,    .00001,
     +     .00000,    .00003,    .00007,
     +     .06028,    .00951,    .00413,    .00002,    .00001,
     +     .00000,    .00003,    .00006,
     +     .05495,    .00861,    .00338,    .00002,    .00001,
     +     .00000,    .00003,    .00006,
     +     .05059,    .00788,    .00283,    .00001,    .00001,
     +     .00000,    .00003,    .00005 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
     +     .04659,    .00722,    .00238,    .00001,    .00001,
     +     .00000,    .00002,    .00005,
     +     .04355,    .00671,    .00207,    .00001,    .00001,
     +     .00000,    .00002,    .00004,
     +     .04017,    .00615,    .00176,    .00001,    .00001,
     +     .00000,    .00002,    .00004,
     +     .03741,    .00570,    .00153,    .00001,    .00001,
     +     .00000,    .00002,    .00004,
     +     .03508,    .00533,    .00135,    .00001,    .00001,
     +     .00000,    .00002,    .00004,
     +     .03236,    .00488,    .00116,    .00000,    .00001,
     +     .00001,    .00001,    .00004,
     +     .03002,    .00451,    .00101,    .00000,    .00001,
     +     .00001,    .00001,    .00003,
     +     .02800,    .00418,    .00089,    .00000,    .00001,
     +     .00001,    .00001,    .00003 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
     +     .02613,    .00389,    .00079,    .00001,    .00001,
     +     .00000,    .00001,    .00002,
     +     .02443,    .00362,    .00070,    .00000,    .00001,
     +     .00000,    .00001,    .00002,
     +     .02294,    .00339,    .00063,    .00000,    .00000,
     +     .00000,    .00001,    .00002,
     +     .02162,    .00318,    .00057,    .00001,    .00000,
     +     .00000,    .00001,    .00002,
     +     .02039,    .00299,    .00052,    .00001,    .00000,
     +     .00000,    .00001,    .00002,
     +     .01925,    .00281,    .00048,    .00000,    .00000,
     +     .00000,    .00001,    .00002,
     +     .01823,    .00265,    .00044,    .00000,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01732,    .00251,    .00040,    .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)/
     +     .01646,    .00238,    .00037,    .00000,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01565,    .00226,    .00035,    .00000,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01492,    .00214,    .00032,    .00000,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01426,    .00204,    .00030,    .00000,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01363,    .00195,    .00028,    .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)/
     +     .10767,    .01621,    .02318,    .00001,   -.00001,
     +    -.00001,    .00001,    .00007,
     +     .09810,    .01466,    .01842,    .00002,   -.00001,
     +    -.00001,    .00001,    .00006,
     +     .08588,    .01270,    .01328,    .00000,    .00000,
     +     .00000,    .00001,    .00005,
     +     .07817,    .01147,    .01056,    .00000,    .00000,
     +     .00000,    .00001,    .00005,
     +     .07101,    .01035,    .00836,    .00000,    .00000,
     +     .00000,    .00001,    .00004,
     +     .06549,    .00949,    .00689,    .00000,    .00000,
     +    -.00001,    .00000,    .00003,
     +     .06069,    .00874,    .00575,    .00000,    .00000,
     +     .00000,    .00001,    .00003,
     +     .05603,    .00803,    .00476,    .00001,    .00000,
     +     .00000,    .00001,    .00003 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
     +     .05233,    .00746,    .00407,    .00001,    .00000,
     +     .00000,    .00001,    .00003,
     +     .04903,    .00695,    .00350,    .00000,    .00000,
     +     .00000,    .00001,    .00003,
     +     .04660,    .00658,    .00312,    .00000,    .00000,
     +     .00000,    .00001,    .00002,
     +     .04187,    .00587,    .00245,    .00000,    .00000,
     +     .00000,    .00001,    .00002,
     +     .03824,    .00533,    .00200,    .00000,    .00000,
     +     .00000,    .00001,    .00002,
     +     .03462,    .00479,    .00162,    .00000,    .00000,
     +     .00000,    .00001,    .00002,
     +     .03128,    .00430,    .00131,    .00000,    .00000,
     +     .00000,    .00000,    .00002,
     +     .02856,    .00390,    .00108,    .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)/
     +     .02608,    .00355,    .00090,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02422,    .00328,    .00078,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02215,    .00298,    .00066,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02049,    .00274,    .00057,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01910,    .00255,    .00050,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01748,    .00232,    .00043,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01610,    .00212,    .00037,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01491,    .00196,    .00033,    .00000,    .00000,
     +     .00000,    .00000,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
     +     .01383,    .00181,    .00029,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01285,    .00167,    .00026,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01199,    .00156,    .00023,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01124,    .00145,    .00021,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01054,    .00136,    .00019,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00990,    .00127,    .00017,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00933,    .00119,    .00016,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00882,    .00113,    .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)/
     +     .00834,    .00106,    .00013,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00790,    .00100,    .00013,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00750,    .00095,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00713,    .00090,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00679,    .00085,    .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=1,8)/
     +     .06184,    .00801,    .00938,    .00001,   -.00001,
     +    -.00001,    .00000,    .00001,
     +     .05579,    .00718,    .00729,    .00000,   -.00001,
     +    -.00001,    .00000,    .00001,
     +     .04812,    .00613,    .00511,    .00001,   -.00001,
     +    -.00001,    .00000,    .00001,
     +     .04336,    .00548,    .00398,    .00000,   -.00001,
     +    -.00001,    .00000,    .00001,
     +     .03898,    .00490,    .00309,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .03564,    .00445,    .00250,    .00000,   -.00001,
     +     .00000,    .00000,    .00001,
     +     .03276,    .00407,    .00206,    .00000,   -.00001,
     +     .00000,    .00000,    .00001,
     +     .02999,    .00370,    .00168,    .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=9,16)/
     +     .02781,    .00342,    .00142,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02588,    .00317,    .00121,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02447,    .00298,    .00107,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02174,    .00263,    .00083,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01967,    .00237,    .00067,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01763,    .00211,    .00053,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01576,    .00187,    .00043,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01426,    .00168,    .00035,    .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)/
     +     .01290,    .00151,    .00029,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01190,    .00139,    .00025,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01078,    .00125,    .00021,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00990,    .00114,    .00018,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00916,    .00105,    .00016,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00831,    .00095,    .00014,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00759,    .00087,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00698,    .00079,    .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)/
     +     .00642,    .00073,    .00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00593,    .00067,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00550,    .00062,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00512,    .00057,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00477,    .00053,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00445,    .00049,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00417,    .00046,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00393,    .00043,    .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)/
     +     .00369,    .00041,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00348,    .00038,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00328,    .00036,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00311,    .00034,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00295,    .00032,    .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)/
     +     .03040,    .00330,    .00298,   -.00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02710,    .00292,    .00226,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02299,    .00245,    .00154,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02047,    .00217,    .00117,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01818,    .00191,    .00089,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01646,    .00172,    .00071,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01499,    .00156,    .00058,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01359,    .00141,    .00046,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=9,16)/
     +     .01250,    .00129,    .00039,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01154,    .00118,    .00033,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01084,    .00111,    .00029,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00951,    .00097,    .00022,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00851,    .00086,    .00018,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00754,    .00076,    .00014,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00666,    .00066,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00596,    .00059,    .00009,    .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)/
     +     .00533,    .00053,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00487,    .00048,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00437,    .00043,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00398,    .00039,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00365,    .00035,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00328,    .00032,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00297,    .00028,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00270,    .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)/
     +     .00247,    .00023,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00226,    .00021,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00208,    .00020,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00192,    .00018,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00178,    .00017,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00165,    .00015,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00153,    .00014,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00143,    .00013,    .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)/
     +     .00134,    .00012,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00125,    .00012,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00118,    .00011,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00111,    .00010,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00104,    .00010,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/
     +     .00299,    .00019,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00258,    .00017,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00208,    .00013,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00179,    .00011,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00154,    .00010,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00135,    .00008,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00120,    .00007,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00106,    .00007,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/
     +     .00095,    .00006,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00086,    .00005,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00079,    .00005,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00067,    .00004,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00058,    .00004,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00050,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00042,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00037,    .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,
     +     .00028,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00025,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00022,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00020,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00017,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00015,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00013,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
     +     .00012,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00011,    .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,
     +     .00006,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
     +     .00005,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00005,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00004,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00004,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00004,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
      DATA XX/1D-5,2D-5,4D-5,6D-5,8D-5,
     .        1D-4,2D-4,4D-4,6D-4,8D-4,
     .        1D-3,2D-3,4D-3,6D-3,8D-3,
     .        1D-2,1.4D-2,2D-2,3D-2,4D-2,6D-2,8D-2,
     .     .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0,
     .     .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0,
     .     .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0,
     .     .8D0,.9D0,1D0/
      DATA QQ/1.25D0,1.5D0,2D0,2.5D0,3.2D0,4D0,5D0,6.4D0,8D0,1D1,
     .        1.2D1,1.8D1,2.6D1,4D1,6.4D1,1D2,
     .        1.6D2,2.4D2,4D2,6.4D2,1D3,1.8D3,3.2D3,5.6D3,1D4,
     .        1.8D4,3.2D4,5.6D4,1D5,1.8D5,3.2D5,5.6D5,1D6,
     .        1.8D6,3.2D6,5.6D6,1D7/
      DATA XMIN,XMAX,QSQMIN,QSQMAX/1D-5,1D0,1.25D0,1D7/
      DATA N0/3,4,5,9,9,9,9,9/
      DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
      DATA INIT/0/
      SAVE
      XSAVE=X
      Q2SAVE=QSQ
      IF(INIT.NE.0) GOTO 10
C        OPEN(UNIT=1,FILE='MRSR2.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