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

sfmrs_99d1.F

#include "pdf/pilot.h"
      subroutine sfmrs_99d1(x,qsq,upv,dnv,usea,dsea,str,chm,bot,glu)
C
#include "pdf/impdp.inc"
C
      parameter(nx=49,nq=37,ntenth=23,np=8)
C
#include "pdf/expdp.inc"
     +       f(np,nx,nq+1),qq(nq),xx(nx),g(np),n0(np)
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,8)/
     +     .00643,    .00286,   1.15221,    .88585,    .00000,
     +     .00000,    .47588,    .89795,
     +     .00657,    .00291,   2.39075,    .92618,    .00000,
     +     .00000,    .52103,    .93837,
     +     .00676,    .00299,   4.81461,   1.00948,    .01960,
     +     .00000,    .61124,   1.02174,
     +     .00691,    .00306,   7.12562,   1.08726,    .06910,
     +     .00000,    .69390,   1.09958,
     +     .00707,    .00312,   9.93361,   1.18552,    .18281,
     +     .00000,    .79711,   1.19789,
     +     .00720,    .00318,  12.84162,   1.28552,    .29061,
     +     .00000,    .90128,   1.29793,
     +     .00733,    .00324,  16.11362,   1.39328,    .40858,
     +     .00000,   1.01296,   1.40571,
     +     .00747,    .00331,  20.13655,   1.52121,    .55059,
     +     .00000,   1.14497,   1.53367 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
     +     .00760,    .00336,  24.06332,   1.64586,    .68267,
     +     .00000,   1.27309,   1.65833,
     +     .00772,    .00342,  28.28418,   1.77761,    .82268,
     +     .00000,   1.40813,   1.79009,
     +     .00781,    .00346,  31.98450,   1.88998,    .94449,
     +     .00000,   1.52308,   1.90247,
     +     .00802,    .00356,  40.80254,   2.15653,   1.22711,
     +     .00000,   1.79497,   2.16901,
     +     .00820,    .00365,  48.61843,   2.41367,   1.49732,
     +     .36278,   2.05660,   2.42617,
     +     .00841,    .00375,  58.85269,   2.73487,   1.83504,
     +     .75383,   2.38269,   2.74735,
     +     .00863,    .00385,  70.90271,   3.10748,   2.22584,
     +    1.16297,   2.76027,   3.11995,
     +     .00883,    .00395,  83.09441,   3.48097,   2.61676,
     +    1.57246,   3.13815,   3.49342 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
     +     .00904,    .00405,  96.67756,   3.89451,   3.04922,
     +    2.02359,   3.55602,   3.90693,
     +     .00921,    .00414, 108.90049,   4.26644,   3.43607,
     +    2.42246,   3.93147,   4.27884,
     +     .00942,    .00424, 124.88659,   4.75345,   3.94065,
     +    2.94063,   4.42265,   4.76581,
     +     .00962,    .00434, 140.19975,   5.21928,   4.42382,
     +    3.43915,   4.89209,   5.23160,
     +     .00980,    .00444, 155.23088,   5.67666,   4.89823,
     +    3.92896,   5.35271,   5.68895,
     +     .01003,    .00455, 175.44894,   6.29705,   5.53743,
     +    4.58239,   5.97714,   6.30929,
     +     .01024,    .00466, 195.85381,   6.92507,   6.18480,
     +    5.24599,   6.60887,   6.93726,
     +     .01044,    .00476, 216.29159,   7.55542,   6.83555,
     +    5.91542,   7.24262,   7.56757 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
     +     .01066,    .00487, 237.61316,   8.22169,   7.51849,
     +    6.61086,   7.91222,   8.23378,
     +     .01086,    .00497, 259.71909,   8.91481,   8.23024,
     +    7.33862,   8.60855,   8.92685,
     +     .01106,    .00507, 281.70470,   9.60846,   8.94211,
     +    8.06637,   9.30515,   9.62046,
     +     .01125,    .00518, 303.16210,  10.29271,   9.64194,
     +    8.77896,   9.99216,  10.30466,
     +     .01144,    .00527, 325.83940,  11.01757,  10.38498,
     +    9.53854,  10.71975,  11.02948,
     +     .01163,    .00537, 348.68672,  11.75801,  11.14048,
     +   10.30628,  11.46281,  11.76986,
     +     .01181,    .00547, 371.50436,  12.49847,  11.89821,
     +   11.07989,  12.20574,  12.51028,
     +     .01199,    .00556, 393.45787,  13.22094,  12.63431,
     +   11.82727,  12.93050,  13.23270 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
     +     .01217,    .00565, 416.54842,  13.98277,  13.41197,
     +   12.61938,  13.69461,  13.99448,
     +     .01234,    .00574, 439.82475,  14.75892,  14.20256,
     +   13.42269,  14.47298,  14.77059,
     +     .01251,    .00584, 462.70472,  15.52672,  14.98454,
     +   14.21742,  15.24287,  15.53834,
     +     .01268,    .00592, 485.08773,  16.28160,  15.75378,
     +   15.00015,  15.99971,  16.29318,
     +     .01284,    .00601, 507.96506,  17.06279,  16.54752,
     +   15.80491,  16.78286,  17.07433 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
     +     .00875,    .00395,   1.06317,    .75144,    .00000,
     +     .00000,    .40368,    .75855,
     +     .00892,    .00403,   2.18019,    .78861,    .00000,
     +     .00000,    .44459,    .79575,
     +     .00919,    .00415,   4.31764,    .86209,    .01790,
     +     .00000,    .52343,    .86928,
     +     .00939,    .00424,   6.31640,    .92898,    .05987,
     +     .00000,    .59408,    .93619,
     +     .00961,    .00434,   8.70442,   1.01200,    .15588,
     +     .00000,    .68092,   1.01923,
     +     .00979,    .00442,  11.14180,   1.09535,    .24574,
     +     .00000,    .76749,   1.10260,
     +     .00997,    .00451,  13.85138,   1.18438,    .34311,
     +     .00000,    .85954,   1.19164,
     +     .01016,    .00460,  17.14369,   1.28920,    .45929,
     +     .00000,    .96751,   1.29647 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
     +     .01033,    .00468,  20.32068,   1.39044,    .56636,
     +     .00000,   1.07142,   1.39772,
     +     .01050,    .00476,  23.70266,   1.49673,    .67905,
     +     .00000,   1.18024,   1.50402,
     +     .01063,    .00483,  26.64424,   1.58693,    .77656,
     +     .00000,   1.27243,   1.59422,
     +     .01091,    .00496,  33.57911,   1.79916,   1.00086,
     +     .00000,   1.48877,   1.80646,
     +     .01116,    .00509,  39.62215,   2.00205,   1.21327,
     +     .28556,   1.69510,   2.00934,
     +     .01145,    .00523,  47.45109,   2.25332,   1.47637,
     +     .59056,   1.95013,   2.26061,
     +     .01175,    .00538,  56.55136,   2.54217,   1.77798,
     +     .90598,   2.24279,   2.54945,
     +     .01203,    .00552,  65.64830,   2.82924,   2.07706,
     +    1.21883,   2.53323,   2.83651 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
     +     .01232,    .00567,  75.67149,   3.14458,   2.40525,
     +    1.56061,   2.85190,   3.15184,
     +     .01255,    .00578,  84.60082,   3.42611,   2.69665,
     +    1.86044,   3.13613,   3.43337,
     +     .01284,    .00593,  96.16500,   3.79210,   3.07394,
     +    2.24702,   3.50531,   3.79934,
     +     .01309,    .00606, 107.13706,   4.13970,   3.43272,
     +    2.61637,   3.85568,   4.14692,
     +     .01334,    .00619, 117.81708,   4.47886,   3.78279,
     +    2.97697,   4.19733,   4.48606,
     +     .01365,    .00635, 132.04730,   4.93562,   4.25106,
     +    3.45442,   4.65719,   4.94280,
     +     .01395,    .00650, 146.27480,   5.39470,   4.72201,
     +    3.93595,   5.11911,   5.40186,
     +     .01422,    .00665, 160.40557,   5.85251,   5.19243,
     +    4.41869,   5.57952,   5.85964 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
     +     .01450,    .00680, 175.01696,   6.33310,   5.68269,
     +    4.91654,   6.06268,   6.34021,
     +     .01478,    .00695, 190.05002,   6.83007,   6.19068,
     +    5.43459,   6.56211,   6.83717,
     +     .01505,    .00709, 204.89020,   7.32452,   6.69585,
     +    5.94970,   7.05883,   7.33159,
     +     .01530,    .00721, 219.26715,   7.80947,   7.18964,
     +    6.45111,   7.54591,   7.81652,
     +     .01556,    .00736, 234.36845,   8.32069,   7.71145,
     +    6.98319,   8.05920,   8.32771,
     +     .01581,    .00749, 249.47239,   8.83993,   8.23897,
     +    7.51777,   8.58047,   8.84693,
     +     .01606,    .00762, 264.47472,   9.35687,   8.76583,
     +    8.05433,   9.09930,   9.36386,
     +     .01629,    .00774, 278.81240,   9.85867,   9.27494,
     +    8.56984,   9.60286,   9.86563 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
     +     .01653,    .00787, 293.81838,  10.38562,   9.81075,
     +    9.11422,  10.13157,  10.39256,
     +     .01676,    .00799, 308.85464,  10.91997,  10.35288,
     +    9.66364,  10.66762,  10.92688,
     +     .01699,    .00811, 323.55877,  11.44637,  10.88696,
     +   10.20502,  11.19564,  11.45326,
     +     .01721,    .00823, 337.87617,  11.96193,  11.41040,
     +   10.73634,  11.71270,  11.96881,
     +     .01743,    .00835, 352.42759,  12.49314,  11.94810,
     +   11.28008,  12.24542,  12.50000 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
     +     .01187,    .00545,    .98015,    .63766,    .00000,
     +     .00000,    .34300,    .64131,
     +     .01212,    .00557,   1.98742,    .67162,    .00000,
     +     .00000,    .37985,    .67528,
     +     .01249,    .00574,   3.87113,    .73621,    .01652,
     +     .00000,    .44856,    .73988,
     +     .01276,    .00588,   5.59846,    .79359,    .05201,
     +     .00000,    .50886,    .79727,
     +     .01306,    .00602,   7.62677,    .86359,    .13298,
     +     .00000,    .58180,    .86727,
     +     .01332,    .00614,   9.66635,    .93291,    .20776,
     +     .00000,    .65360,    .93661,
     +     .01356,    .00626,  11.90592,   1.00629,    .28799,
     +     .00000,    .72931,   1.00999,
     +     .01382,    .00640,  14.59448,   1.09196,    .38288,
     +     .00000,    .81739,   1.09566 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
     +     .01406,    .00651,  17.15850,   1.17396,    .46953,
     +     .00000,    .90144,   1.17766,
     +     .01429,    .00663,  19.86100,   1.25946,    .56007,
     +     .00000,    .98888,   1.26316,
     +     .01446,    .00671,  22.19277,   1.33165,    .63797,
     +     .00000,   1.06258,   1.33534,
     +     .01484,    .00692,  27.62988,   1.50007,    .81564,
     +     .00000,   1.23415,   1.50377,
     +     .01520,    .00709,  32.28477,   1.65959,    .98225,
     +     .22419,   1.39630,   1.66328,
     +     .01558,    .00730,  38.24986,   1.85542,   1.18677,
     +     .46184,   1.59499,   1.85911,
     +     .01599,    .00751,  45.09302,   2.07845,   1.41900,
     +     .70474,   1.82094,   2.08214,
     +     .01636,    .00770,  51.84958,   2.29819,   1.64725,
     +     .94350,   2.04324,   2.30188 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
     +     .01675,    .00791,  59.20988,   2.53762,   1.89565,
     +    1.20210,   2.28521,   2.54131,
     +     .01707,    .00807,  65.69959,   2.74979,   2.11453,
     +    1.42715,   2.49943,   2.75347,
     +     .01747,    .00829,  74.01986,   3.02357,   2.39582,
     +    1.71512,   2.77563,   3.02725,
     +     .01782,    .00846,  81.83714,   3.28173,   2.66140,
     +    1.98829,   3.03589,   3.28540,
     +     .01815,    .00864,  89.38110,   3.53201,   2.91891,
     +    2.25330,   3.28808,   3.53568,
     +     .01857,    .00886,  99.33533,   3.86664,   3.26080,
     +    2.60147,   3.62505,   3.87030,
     +     .01896,    .00907, 109.19219,   4.20053,   3.60219,
     +    2.95013,   3.96109,   4.20417,
     +     .01934,    .00928, 118.89789,   4.53129,   3.94102,
     +    3.29746,   4.29384,   4.53494 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
     +     .01971,    .00948, 128.84118,   4.87610,   4.29161,
     +    3.65296,   4.64058,   4.87974,
     +     .02009,    .00968, 138.99142,   5.23049,   4.65274,
     +    4.02077,   4.99684,   5.23412,
     +     .02046,    .00987, 148.93485,   5.58099,   5.00978,
     +    4.38437,   5.34908,   5.58462,
     +     .02079,    .01006, 158.49385,   5.92274,   5.35668,
     +    4.73613,   5.69243,   5.92636,
     +     .02113,    .01024, 168.47190,   6.28120,   5.72154,
     +    5.10772,   6.05248,   6.28482,
     +     .02148,    .01043, 178.37572,   6.64318,   6.08819,
     +    5.47872,   6.41600,   6.64680,
     +     .02181,    .01061, 188.15849,   7.00194,   6.45286,
     +    5.84965,   6.77618,   7.00554,
     +     .02212,    .01078, 197.44210,   7.34832,   6.80329,
     +    6.20394,   7.12391,   7.35193 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
     +     .02243,    .01096, 207.10974,   7.71057,   7.17068,
     +    6.57673,   7.48749,   7.71418,
     +     .02275,    .01112, 216.73587,   8.07613,   7.54059,
     +    6.95108,   7.85435,   8.07974,
     +     .02306,    .01129, 226.09944,   8.43474,   7.90348,
     +    7.31845,   8.21418,   8.43833,
     +     .02335,    .01144, 235.17283,   8.78458,   8.25782,
     +    7.67768,   8.56517,   8.78817,
     +     .02364,    .01161, 244.33935,   9.14343,   8.62013,
     +    8.04352,   8.92517,   9.14702 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
     +     .01419,    .00658,    .93405,    .57948,    .00000,
     +     .00000,    .31219,    .58172,
     +     .01449,    .00672,   1.88229,    .61155,    .00000,
     +     .00000,    .34675,    .61379,
     +     .01493,    .00695,   3.63126,    .67130,    .01588,
     +     .00000,    .41007,    .67356,
     +     .01527,    .00711,   5.21670,    .72369,    .04799,
     +     .00000,    .46495,    .72593,
     +     .01562,    .00728,   7.05921,    .78694,    .12120,
     +     .00000,    .53074,    .78920,
     +     .01592,    .00744,   8.89547,    .84910,    .18828,
     +     .00000,    .59502,    .85135,
     +     .01622,    .00760,  10.89695,    .91454,    .25985,
     +     .00000,    .66244,    .91678,
     +     .01655,    .00776,  13.28242,    .99056,    .34405,
     +     .00000,    .74052,    .99280 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
     +     .01682,    .00790,  15.54136,   1.06291,    .42052,
     +     .00000,    .81465,   1.06517,
     +     .01709,    .00805,  17.90821,   1.13805,    .50008,
     +     .00000,    .89144,   1.14029,
     +     .01731,    .00815,  19.94059,   1.20130,    .56832,
     +     .00000,    .95600,   1.20355,
     +     .01777,    .00840,  24.64876,   1.34814,    .72314,
     +     .00000,   1.10552,   1.35038,
     +     .01818,    .00862,  28.63697,   1.48643,    .86751,
     +     .19422,   1.24606,   1.48868,
     +     .01865,    .00886,  33.71427,   1.65534,   1.04378,
     +     .39946,   1.41740,   1.65758,
     +     .01914,    .00913,  39.49315,   1.84664,   1.24280,
     +     .60777,   1.61118,   1.84889,
     +     .01959,    .00936,  45.15677,   2.03415,   1.43737,
     +     .81142,   1.80088,   2.03639 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
     +     .02006,    .00960,  51.28458,   2.23746,   1.64810,
     +    1.03091,   2.00634,   2.23970,
     +     .02044,    .00981,  56.65416,   2.41683,   1.83294,
     +    1.22102,   2.18745,   2.41907,
     +     .02091,    .01007,  63.49662,   2.64726,   2.06944,
     +    1.46318,   2.41996,   2.64950,
     +     .02134,    .01029,  69.88784,   2.86362,   2.29177,
     +    1.69192,   2.63811,   2.86587,
     +     .02172,    .01050,  76.02390,   3.07259,   2.50653,
     +    1.91298,   2.84869,   3.07484,
     +     .02222,    .01077,  84.07280,   3.35077,   2.79043,
     +    2.20209,   3.12886,   3.35302,
     +     .02270,    .01103,  91.99705,   3.62712,   3.07267,
     +    2.49035,   3.40706,   3.62937,
     +     .02315,    .01127,  99.75936,   3.89984,   3.35175,
     +    2.77645,   3.68145,   3.90209 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
     +     .02360,    .01152, 107.66722,   4.18292,   3.63926,
     +    3.06795,   3.96619,   4.18518,
     +     .02404,    .01176, 115.70159,   4.47285,   3.93438,
     +    3.36851,   4.25769,   4.47510,
     +     .02447,    .01199, 123.53605,   4.75856,   4.22513,
     +    3.66459,   4.54489,   4.76082,
     +     .02487,    .01221, 131.03228,   5.03617,   4.50663,
     +    3.94998,   4.82385,   5.03843,
     +     .02528,    .01244, 138.82813,   5.32649,   4.80187,
     +    4.25065,   5.11552,   5.32876,
     +     .02569,    .01265, 146.52964,   5.61863,   5.09748,
     +    4.54971,   5.40897,   5.62091,
     +     .02608,    .01287, 154.11207,   5.90740,   5.39075,
     +    4.84800,   5.69896,   5.90969,
     +     .02645,    .01307, 161.27628,   6.18533,   5.67165,
     +    5.13193,   5.97802,   6.18761 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
     +     .02683,    .01328, 168.71462,   6.47527,   5.96546,
     +    5.43003,   6.26910,   6.47756,
     +     .02720,    .01349, 176.09233,   6.76701,   6.26041,
     +    5.72848,   6.56195,   6.76931,
     +     .02756,    .01369, 183.24589,   7.05248,   6.54905,
     +    6.02063,   6.84845,   7.05478,
     +     .02791,    .01388, 190.15760,   7.33033,   6.83026,
     +    6.30568,   7.12727,   7.33263,
     +     .02826,    .01407, 197.11413,   7.61456,   7.11698,
     +    6.59513,   7.41248,   7.61686 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
     +     .01611,    .00752,    .90244,    .54160,    .00000,
     +     .00000,    .29224,    .54308,
     +     .01645,    .00770,   1.81100,    .57232,    .00000,
     +     .00000,    .32522,    .57380,
     +     .01695,    .00796,   3.47006,    .62879,    .01549,
     +     .00000,    .38490,    .63027,
     +     .01733,    .00815,   4.96174,    .67784,    .04536,
     +     .00000,    .43619,    .67932,
     +     .01773,    .00836,   6.68238,    .73667,    .11348,
     +     .00000,    .49729,    .73815,
     +     .01808,    .00853,   8.38611,    .79414,    .17556,
     +     .00000,    .55667,    .79561,
     +     .01841,    .00872,  10.23332,    .85441,    .24150,
     +     .00000,    .61873,    .85589,
     +     .01878,    .00890,  12.42343,    .92419,    .31881,
     +     .00000,    .69035,    .92565 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
     +     .01911,    .00907,  14.48683,    .99035,    .38873,
     +     .00000,    .75809,    .99181,
     +     .01940,    .00922,  16.63957,   1.05883,    .46128,
     +     .00000,    .82807,   1.06030,
     +     .01966,    .00936,  18.48171,   1.11637,    .52335,
     +     .00000,    .88676,   1.11784,
     +     .02018,    .00963,  22.72908,   1.24944,    .66367,
     +     .00000,   1.02224,   1.25091,
     +     .02065,    .00989,  26.29961,   1.37429,    .79398,
     +     .17519,   1.14910,   1.37576,
     +     .02118,    .01017,  30.82342,   1.52618,    .95249,
     +     .36007,   1.30319,   1.52766,
     +     .02175,    .01047,  35.94307,   1.69756,   1.13073,
     +     .54678,   1.47677,   1.69903,
     +     .02226,    .01074,  40.93375,   1.86489,   1.30433,
     +     .72863,   1.64606,   1.86638 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
     +     .02279,    .01103,  46.30697,   2.04571,   1.49169,
     +     .92390,   1.82880,   2.04720,
     +     .02323,    .01127,  50.99423,   2.20472,   1.65549,
     +    1.09246,   1.98938,   2.20622,
     +     .02375,    .01156,  56.94100,   2.40836,   1.86440,
     +    1.30648,   2.19486,   2.40985,
     +     .02423,    .01182,  62.47206,   2.59898,   2.06021,
     +    1.50803,   2.38709,   2.60048,
     +     .02467,    .01205,  67.76251,   2.78258,   2.24884,
     +    1.70227,   2.57212,   2.78410,
     +     .02525,    .01236,  74.67261,   3.02623,   2.49738,
     +    1.95547,   2.81755,   3.02775,
     +     .02579,    .01266,  81.44720,   3.26754,   2.74374,
     +    2.20717,   3.06048,   3.26906,
     +     .02629,    .01293,  88.05866,   3.50499,   2.98665,
     +    2.45629,   3.29945,   3.50652 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
     +     .02680,    .01322,  94.76636,   3.75074,   3.23612,
     +    2.70928,   3.54666,   3.75228,
     +     .02731,    .01349, 101.55826,   4.00176,   3.49155,
     +    2.96951,   3.79909,   4.00332,
     +     .02779,    .01376, 108.15896,   4.24852,   3.74257,
     +    3.22520,   4.04717,   4.25008,
     +     .02824,    .01402, 114.45307,   4.48766,   3.98497,
     +    3.47101,   4.28752,   4.48923,
     +     .02871,    .01427, 120.98113,   4.73723,   4.23870,
     +    3.72948,   4.53830,   4.73880,
     +     .02916,    .01453, 127.40798,   4.98773,   4.49206,
     +    3.98584,   4.78995,   4.98933,
     +     .02960,    .01477, 133.72052,   5.23487,   4.74299,
     +    4.24114,   5.03818,   5.23647,
     +     .03002,    .01500, 139.66580,   5.47217,   4.98274,
     +    4.48352,   5.27649,   5.47377 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
     +     .03044,    .01524, 145.82528,   5.71930,   5.23311,
     +    4.73760,   5.52464,   5.72092,
     +     .03087,    .01547, 151.91722,   5.96744,   5.48390,
     +    4.99141,   5.77377,   5.96907,
     +     .03127,    .01570, 157.81014,   6.20981,   5.72889,
     +    5.23943,   6.01705,   6.21145,
     +     .03167,    .01591, 163.49183,   6.44531,   5.96719,
     +    5.48105,   6.25343,   6.44697,
     +     .03205,    .01613, 169.19455,   6.68574,   6.20966,
     +    5.72587,   6.49472,   6.68741 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
     +     .01777,    .00837,    .87889,    .51399,    .00000,
     +     .00000,    .27774,    .51497,
     +     .01814,    .00855,   1.75785,    .54369,    .00000,
     +     .00000,    .30951,    .54466,
     +     .01870,    .00884,   3.35021,    .59770,    .01523,
     +     .00000,    .36648,    .59868,
     +     .01913,    .00906,   4.77288,    .64428,    .04346,
     +     .00000,    .41514,    .64526,
     +     .01957,    .00929,   6.40437,    .69987,    .10783,
     +     .00000,    .47281,    .70084,
     +     .01995,    .00949,   8.01164,    .75392,    .16625,
     +     .00000,    .52862,    .75490,
     +     .02033,    .00969,   9.74695,    .81044,    .22812,
     +     .00000,    .58678,    .81142,
     +     .02074,    .00990,  11.79601,    .87569,    .30043,
     +     .00000,    .65374,    .87667 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
     +     .02108,    .01009,  13.71876,    .93736,    .36564,
     +     .00000,    .71686,    .93835,
     +     .02143,    .01027,  15.71800,   1.00107,    .43314,
     +     .00000,    .78194,   1.00205,
     +     .02170,    .01041,  17.42416,   1.05450,    .49079,
     +     .00000,    .83643,   1.05547,
     +     .02228,    .01073,  21.34343,   1.17771,    .62075,
     +     .00000,    .96187,   1.17870,
     +     .02280,    .01100,  24.61899,   1.29296,    .74106,
     +     .16160,   1.07895,   1.29395,
     +     .02339,    .01133,  28.75318,   1.43276,    .88695,
     +     .33203,   1.22077,   1.43376,
     +     .02401,    .01166,  33.41084,   1.59000,   1.05050,
     +     .50348,   1.38005,   1.59100,
     +     .02458,    .01196,  37.93204,   1.74308,   1.20931,
     +     .66997,   1.53493,   1.74409 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
     +     .02516,    .01228,  42.78090,   1.90805,   1.38025,
     +     .84825,   1.70167,   1.90909,
     +     .02564,    .01255,  46.99575,   2.05277,   1.52931,
     +    1.00174,   1.84782,   2.05381,
     +     .02623,    .01287,  52.32466,   2.23765,   1.71896,
     +    1.19613,   2.03439,   2.23869,
     +     .02676,    .01315,  57.26453,   2.41028,   1.89628,
     +    1.37875,   2.20849,   2.41133,
     +     .02725,    .01342,  61.97560,   2.57621,   2.06673,
     +    1.55439,   2.37574,   2.57728,
     +     .02786,    .01377,  68.10812,   2.79586,   2.29077,
     +    1.78272,   2.59703,   2.79694,
     +     .02846,    .01409,  74.10050,   3.01287,   2.51230,
     +    2.00916,   2.81554,   3.01397,
     +     .02902,    .01440,  79.93136,   3.22594,   2.73025,
     +    2.23281,   3.03000,   3.22706 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
     +     .02958,    .01471,  85.82784,   3.44595,   2.95355,
     +    2.45935,   3.25135,   3.44707,
     +     .03013,    .01502,  91.78230,   3.67021,   3.18174,
     +    2.69191,   3.47690,   3.67134,
     +     .03067,    .01532,  97.55373,   3.89022,   3.40554,
     +    2.91998,   3.69812,   3.89137,
     +     .03117,    .01559, 103.04218,   4.10302,   3.62120,
     +    3.13876,   3.91203,   4.10418,
     +     .03168,    .01588, 108.72255,   4.32473,   3.84660,
     +    3.36847,   4.13485,   4.32591,
     +     .03218,    .01616, 114.29936,   4.54682,   4.07122,
     +    3.59582,   4.35800,   4.54801,
     +     .03266,    .01643, 119.76706,   4.76560,   4.29335,
     +    3.82193,   4.57779,   4.76682,
     +     .03312,    .01668, 124.90312,   4.97530,   4.50518,
     +    4.03614,   4.78841,   4.97652 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
     +     .03359,    .01694, 130.21542,   5.19337,   4.72611,
     +    4.26044,   5.00741,   5.19461,
     +     .03405,    .01720, 135.45737,   5.41199,   4.94704,
     +    4.48410,   5.22692,   5.41324,
     +     .03449,    .01744, 140.51875,   5.62520,   5.16256,
     +    4.70237,   5.44099,   5.62647,
     +     .03491,    .01769, 145.39047,   5.83211,   5.37192,
     +    4.91473,   5.64870,   5.83339,
     +     .03535,    .01792, 150.26930,   6.04301,   5.58460,
     +    5.12953,   5.86040,   6.04431 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
     +     .02418,    .01165,    .80920,    .43766,    .00000,
     +     .00000,    .23809,    .43783,
     +     .02468,    .01191,   1.60296,    .46412,    .00000,
     +     .00000,    .26620,    .46430,
     +     .02545,    .01232,   3.00423,    .51087,    .01464,
     +     .00000,    .31527,    .51105,
     +     .02603,    .01263,   4.23144,    .55034,    .03815,
     +     .00000,    .35638,    .55054,
     +     .02663,    .01296,   5.61247,    .59671,    .09200,
     +     .00000,    .40438,    .59692,
     +     .02716,    .01325,   6.95093,    .64118,    .14021,
     +     .00000,    .45024,    .64140,
     +     .02767,    .01352,   8.37673,    .68728,    .19075,
     +     .00000,    .49761,    .68750,
     +     .02822,    .01382,  10.03836,    .74000,    .24932,
     +     .00000,    .55167,    .74023 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
     +     .02870,    .01408,  11.57756,    .78938,    .30163,
     +     .00000,    .60219,    .78962,
     +     .02917,    .01434,  13.16079,    .84001,    .35540,
     +     .00000,    .65389,    .84026,
     +     .02954,    .01454,  14.50024,    .88224,    .40106,
     +     .00000,    .69695,    .88252,
     +     .03033,    .01498,  17.54093,    .97881,    .50309,
     +     .00000,    .79525,    .97911,
     +     .03104,    .01537,  20.03434,   1.06825,    .59661,
     +     .12484,    .88611,   1.06856,
     +     .03184,    .01581,  23.14216,   1.17574,    .70897,
     +     .25686,    .99518,   1.17608,
     +     .03267,    .01628,  26.59335,   1.29546,    .83368,
     +     .38807,   1.11648,   1.29582,
     +     .03344,    .01671,  29.89826,   1.41095,    .95366,
     +     .51429,   1.23336,   1.41134 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
     +     .03423,    .01714,  33.39873,   1.53436,   1.08169,
     +     .64825,   1.35814,   1.53477,
     +     .03488,    .01751,  36.40699,   1.64175,   1.19245,
     +     .76264,   1.46664,   1.64219,
     +     .03568,    .01796,  40.16810,   1.77786,   1.33223,
     +     .90634,   1.60407,   1.77833,
     +     .03639,    .01836,  43.61732,   1.90401,   1.46194,
     +    1.04033,   1.73136,   1.90450,
     +     .03705,    .01874,  46.87581,   2.02444,   1.58581,
     +    1.16834,   1.85281,   2.02496,
     +     .03789,    .01921,  51.07113,   2.18262,   1.74730,
     +    1.33337,   2.01224,   2.18317,
     +     .03869,    .01966,  55.12714,   2.33770,   1.90577,
     +    1.49579,   2.16850,   2.33828,
     +     .03944,    .02008,  59.03654,   2.48892,   2.06064,
     +    1.65514,   2.32077,   2.48954 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
     +     .04020,    .02051,  62.94796,   2.64387,   2.21805,
     +    1.81522,   2.47676,   2.64452,
     +     .04094,    .02094,  66.86379,   2.80080,   2.37789,
     +    1.97855,   2.63470,   2.80149,
     +     .04165,    .02134,  70.62683,   2.95379,   2.53367,
     +    2.13771,   2.78863,   2.95451,
     +     .04232,    .02172,  74.17345,   3.10081,   2.68282,
     +    2.28938,   2.93651,   3.10156,
     +     .04300,    .02210,  77.81931,   3.25320,   2.83792,
     +    2.44785,   3.08975,   3.25399,
     +     .04367,    .02249,  81.36614,   3.40488,   2.99145,
     +    2.60360,   3.24225,   3.40569,
     +     .04432,    .02285,  84.82319,   3.55359,   3.14263,
     +    2.75786,   3.39174,   3.55444,
     +     .04492,    .02320,  88.04273,   3.69529,   3.28588,
     +    2.90305,   3.53415,   3.69616 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
     +     .04555,    .02355,  91.35481,   3.84202,   3.43470,
     +    3.05450,   3.68159,   3.84292,
     +     .04616,    .02390,  94.59845,   3.98832,   3.58270,
     +    3.20467,   3.82859,   3.98925,
     +     .04675,    .02424,  97.71138,   4.13036,   3.72643,
     +    3.35056,   3.97129,   4.13132,
     +     .04732,    .02455, 100.69149,   4.26762,   3.86549,
     +    3.49195,   4.10919,   4.26862,
     +     .04788,    .02488, 103.65352,   4.40684,   4.00600,
     +    3.63417,   4.24901,   4.40786 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
     +     .03304,    .01633,    .74752,    .37430,    .00000,
     +     .00000,    .20581,    .37457,
     +     .03372,    .01669,   1.46579,    .39751,    .00000,
     +     .00000,    .23034,    .39778,
     +     .03475,    .01725,   2.69794,    .43741,    .01437,
     +     .00000,    .27213,    .43774,
     +     .03552,    .01769,   3.75510,    .47050,    .03366,
     +     .00000,    .30654,    .47085,
     +     .03634,    .01814,   4.92101,    .50877,    .07834,
     +     .00000,    .34614,    .50916,
     +     .03706,    .01854,   6.03136,    .54502,    .11781,
     +     .00000,    .38350,    .54543,
     +     .03774,    .01892,   7.19736,    .58223,    .15879,
     +     .00000,    .42175,    .58267,
     +     .03848,    .01934,   8.53733,    .62443,    .20585,
     +     .00000,    .46503,    .62490 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
     +     .03912,    .01971,   9.76156,    .66359,    .24748,
     +     .00000,    .50510,    .66409,
     +     .03975,    .02006,  11.00641,    .70344,    .28997,
     +     .00000,    .54581,    .70397,
     +     .04026,    .02035,  12.04993,    .73651,    .32585,
     +     .00000,    .57955,    .73706,
     +     .04133,    .02096,  14.38924,    .81144,    .40533,
     +     .00000,    .65588,    .81205,
     +     .04228,    .02150,  16.26992,    .88016,    .47745,
     +     .09490,    .72576,    .88081,
     +     .04336,    .02212,  18.58110,    .96198,    .56329,
     +     .19653,    .80884,    .96268,
     +     .04450,    .02277,  21.10839,   1.05219,    .65759,
     +     .29626,    .90032,   1.05295,
     +     .04553,    .02337,  23.49365,   1.13839,    .74746,
     +     .39129,    .98764,   1.13921 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
     +     .04659,    .02397,  25.98654,   1.22968,    .84251,
     +     .49125,   1.08004,   1.23057,
     +     .04746,    .02448,  28.10273,   1.30849,    .92405,
     +     .57587,   1.15974,   1.30941,
     +     .04854,    .02510,  30.71689,   1.40755,   1.02611,
     +     .68130,   1.25985,   1.40853,
     +     .04950,    .02564,  33.08677,   1.49864,   1.12009,
     +     .77886,   1.35186,   1.49968,
     +     .05039,    .02616,  35.30297,   1.58501,   1.20920,
     +     .87139,   1.43905,   1.58610,
     +     .05151,    .02680,  38.12234,   1.69750,   1.32441,
     +     .98967,   1.55256,   1.69866,
     +     .05257,    .02743,  40.81700,   1.80692,   1.43657,
     +    1.10516,   1.66291,   1.80813,
     +     .05359,    .02800,  43.38791,   1.91285,   1.54540,
     +    1.21768,   1.76971,   1.91412 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
     +     .05459,    .02859,  45.92994,   2.02052,   1.65509,
     +    1.32972,   1.87821,   2.02185,
     +     .05559,    .02917,  48.45112,   2.12884,   1.76575,
     +    1.44331,   1.98734,   2.13023,
     +     .05653,    .02972,  50.85139,   2.23374,   1.87289,
     +    1.55328,   2.09300,   2.23519,
     +     .05743,    .03023,  53.09124,   2.33387,   1.97476,
     +    1.65731,   2.19382,   2.33536,
     +     .05833,    .03076,  55.37721,   2.43710,   2.08014,
     +    1.76548,   2.29773,   2.43864,
     +     .05923,    .03127,  57.57805,   2.53913,   2.18370,
     +    1.87099,   2.40043,   2.54074,
     +     .06009,    .03176,  59.71001,   2.63870,   2.28523,
     +    1.97506,   2.50062,   2.64035,
     +     .06090,    .03223,  61.67591,   2.73294,   2.38079,
     +    2.07232,   2.59546,   2.73465 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
     +     .06171,    .03270,  63.68684,   2.83011,   2.47963,
     +    2.17336,   2.69322,   2.83187,
     +     .06253,    .03318,  65.63927,   2.92645,   2.57735,
     +    2.27294,   2.79011,   2.92826,
     +     .06331,    .03363,  67.50049,   3.01953,   2.67182,
     +    2.36924,   2.88372,   3.02139,
     +     .06405,    .03405,  69.27174,   3.10910,   2.76282,
     +    2.46218,   2.97379,   3.11100,
     +     .06481,    .03448,  71.01671,   3.19942,   2.85423,
     +    2.55509,   3.06462,   3.20137 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
     +     .03972,    .01993,    .71841,    .34263,    .00000,
     +     .00000,    .18994,    .34328,
     +     .04052,    .02037,   1.39670,    .36390,    .00000,
     +     .00000,    .21240,    .36459,
     +     .04173,    .02105,   2.53871,    .39998,    .01431,
     +     .00000,    .25018,    .40074,
     +     .04265,    .02158,   3.50630,    .42960,    .03131,
     +     .00000,    .28098,    .43039,
     +     .04363,    .02213,   4.55993,    .46358,    .07116,
     +     .00000,    .31617,    .46444,
     +     .04446,    .02261,   5.55239,    .49553,    .10607,
     +     .00000,    .34910,    .49643,
     +     .04528,    .02307,   6.58525,    .52816,    .14211,
     +     .00000,    .38267,    .52910,
     +     .04617,    .02358,   7.76182,    .56498,    .18329,
     +     .00000,    .42046,    .56598 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
     +     .04693,    .02402,   8.82754,    .59896,    .21952,
     +     .00000,    .45525,    .59999,
     +     .04768,    .02446,   9.90344,    .63338,    .25634,
     +     .00000,    .49045,    .63447,
     +     .04828,    .02480,  10.80012,    .66187,    .28734,
     +     .00000,    .51954,    .66299,
     +     .04956,    .02555,  12.79462,    .72609,    .35562,
     +     .00000,    .58500,    .72727,
     +     .05070,    .02620,  14.37883,    .78461,    .41724,
     +     .07993,    .64457,    .78587,
     +     .05198,    .02695,  16.30755,    .85391,    .49015,
     +     .16672,    .71500,    .85524,
     +     .05332,    .02773,  18.39628,    .92985,    .56977,
     +     .25124,    .79209,    .93127,
     +     .05456,    .02845,  20.34964,   1.00200,    .64521,
     +     .33133,    .86525,   1.00349 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
     +     .05580,    .02918,  22.37404,   1.07801,    .72457,
     +     .41511,    .94225,   1.07957,
     +     .05686,    .02979,  24.07921,   1.14327,    .79229,
     +     .48565,   1.00834,   1.14491,
     +     .05813,    .03054,  26.16962,   1.22493,    .87665,
     +     .57312,   1.09093,   1.22664,
     +     .05926,    .03120,  28.05090,   1.29965,    .95395,
     +     .65366,   1.16648,   1.30143,
     +     .06032,    .03182,  29.79891,   1.37018,   1.02694,
     +     .72975,   1.23776,   1.37204,
     +     .06166,    .03260,  32.00563,   1.46161,   1.12081,
     +     .82646,   1.33011,   1.46355,
     +     .06292,    .03334,  34.09936,   1.55009,   1.21175,
     +     .92046,   1.41943,   1.55211,
     +     .06411,    .03403,  36.08407,   1.63537,   1.29961,
     +    1.01164,   1.50550,   1.63746 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
     +     .06530,    .03473,  38.03139,   1.72161,   1.38771,
     +    1.10195,   1.59250,   1.72379,
     +     .06648,    .03541,  39.95131,   1.80802,   1.47622,
     +    1.19314,   1.67965,   1.81028,
     +     .06759,    .03607,  41.76817,   1.89138,   1.56157,
     +    1.28106,   1.76368,   1.89370,
     +     .06865,    .03668,  43.45255,   1.97058,   1.64236,
     +    1.36387,   1.84352,   1.97299,
     +     .06972,    .03730,  45.16379,   2.05198,   1.72568,
     +    1.44971,   1.92555,   2.05445,
     +     .07077,    .03792,  46.79989,   2.13208,   1.80719,
     +    1.53305,   2.00626,   2.13462,
     +     .07177,    .03850,  48.37867,   2.21002,   1.88687,
     +    1.61503,   2.08477,   2.21263,
     +     .07273,    .03905,  49.82479,   2.28349,   1.96155,
     +    1.69131,   2.15878,   2.28617 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
     +     .07369,    .03962,  51.29869,   2.35904,   2.03860,
     +    1.77036,   2.23486,   2.36178,
     +     .07464,    .04017,  52.72143,   2.43367,   2.11450,
     +    1.84798,   2.31000,   2.43648,
     +     .07556,    .04070,  54.07171,   2.50556,   2.18764,
     +    1.92281,   2.38239,   2.50843,
     +     .07642,    .04121,  55.35176,   2.57455,   2.25793,
     +    1.99486,   2.45184,   2.57748,
     +     .07730,    .04171,  56.60510,   2.64388,   2.32827,
     +    2.06660,   2.52162,   2.64687 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
     +     .04527,    .02295,    .70454,    .32200,    .00000,
     +     .00000,    .17978,    .32316,
     +     .04618,    .02346,   1.35600,    .34192,    .00000,
     +     .00000,    .20080,    .34312,
     +     .04753,    .02424,   2.43719,    .37540,    .01425,
     +     .00000,    .23584,    .37669,
     +     .04858,    .02484,   3.34461,    .40271,    .02971,
     +     .00000,    .26425,    .40404,
     +     .04967,    .02546,   4.32331,    .43388,    .06634,
     +     .00000,    .29651,    .43528,
     +     .05062,    .02602,   5.23762,    .46302,    .09823,
     +     .00000,    .32659,    .46447,
     +     .05154,    .02656,   6.18268,    .49267,    .13103,
     +     .00000,    .35710,    .49418,
     +     .05254,    .02714,   7.25222,    .52601,    .16839,
     +     .00000,    .39134,    .52758 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
     +     .05341,    .02765,   8.21474,    .55666,    .20111,
     +     .00000,    .42274,    .55827,
     +     .05426,    .02815,   9.18117,    .58762,    .23428,
     +     .00000,    .45442,    .58929,
     +     .05493,    .02855,   9.98322,    .61317,    .26213,
     +     .00000,    .48053,    .61487,
     +     .05639,    .02940,  11.75674,    .67055,    .32327,
     +     .00000,    .53908,    .67235,
     +     .05766,    .03015,  13.15270,    .72265,    .37819,
     +     .07038,    .59213,    .72452,
     +     .05912,    .03101,  14.84009,    .78406,    .44292,
     +     .14776,    .65458,    .78602,
     +     .06064,    .03190,  16.65421,    .85105,    .51330,
     +     .22270,    .72265,    .85311,
     +     .06203,    .03272,  18.33912,    .91442,    .57968,
     +     .29340,    .78697,    .91657 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
     +     .06344,    .03356,  20.07424,    .98092,    .64925,
     +     .36708,    .85440,    .98317,
     +     .06464,    .03426,  21.52720,   1.03782,    .70840,
     +     .42887,    .91204,   1.04014,
     +     .06607,    .03511,  23.29811,   1.10872,    .78179,
     +     .50520,    .98384,   1.11113,
     +     .06736,    .03587,  24.88309,   1.17337,    .84881,
     +     .57525,   1.04926,   1.17588,
     +     .06854,    .03656,  26.34864,   1.23421,    .91189,
     +     .64121,   1.11080,   1.23680,
     +     .07004,    .03745,  28.18793,   1.31276,    .99271,
     +     .72473,   1.19022,   1.31545,
     +     .07147,    .03828,  29.92336,   1.38851,   1.07071,
     +     .80560,   1.26676,   1.39129,
     +     .07280,    .03907,  31.56038,   1.46127,   1.14583,
     +     .88380,   1.34025,   1.46415 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
     +     .07415,    .03986,  33.15697,   1.53459,   1.22085,
     +     .96095,   1.41429,   1.53755,
     +     .07547,    .04064,  34.72400,   1.60781,   1.29601,
     +    1.03862,   1.48820,   1.61087,
     +     .07673,    .04138,  36.20007,   1.67822,   1.36826,
     +    1.11328,   1.55925,   1.68136,
     +     .07791,    .04207,  37.56155,   1.74491,   1.43643,
     +    1.18337,   1.62654,   1.74815,
     +     .07911,    .04278,  38.93993,   1.81329,   1.50656,
     +    1.25584,   1.69552,   1.81660,
     +     .08029,    .04346,  40.25062,   1.88034,   1.57493,
     +    1.32596,   1.76315,   1.88374,
     +     .08141,    .04412,  41.51173,   1.94544,   1.64164,
     +    1.39481,   1.82880,   1.94893,
     +     .08248,    .04474,  42.66064,   2.00664,   1.70396,
     +    1.45866,   1.89048,   2.01019 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
     +     .08355,    .04537,  43.82848,   2.06942,   1.76814,
     +    1.52471,   1.95377,   2.07306,
     +     .08462,    .04599,  44.95058,   2.13127,   1.83118,
     +    1.58938,   2.01611,   2.13498,
     +     .08564,    .04659,  46.01185,   2.19072,   1.89179,
     +    1.65159,   2.07602,   2.19451,
     +     .08661,    .04716,  47.01491,   2.24765,   1.94992,
     +    1.71136,   2.13340,   2.25151,
     +     .08759,    .04772,  47.99212,   2.30470,   2.00793,
     +    1.77072,   2.19088,   2.30862 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
     +     .05014,    .02573,    .70113,    .30790,    .00000,
     +     .00000,    .17255,    .30914,
     +     .05113,    .02629,   1.33223,    .32675,    .00000,
     +     .00000,    .19242,    .32805,
     +     .05263,    .02717,   2.36732,    .35824,    .01414,
     +     .00000,    .22535,    .35962,
     +     .05378,    .02784,   3.22920,    .38377,    .02843,
     +     .00000,    .25189,    .38523,
     +     .05497,    .02854,   4.15136,    .41280,    .06262,
     +     .00000,    .28194,    .41433,
     +     .05603,    .02916,   5.00687,    .43985,    .09227,
     +     .00000,    .30983,    .44145,
     +     .05705,    .02976,   5.88616,    .46728,    .12266,
     +     .00000,    .33806,    .46894,
     +     .05815,    .03041,   6.87575,    .49804,    .15718,
     +     .00000,    .36966,    .49977 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
     +     .05910,    .03097,   7.76151,    .52623,    .18733,
     +     .00000,    .39855,    .52803,
     +     .06003,    .03153,   8.64684,    .55463,    .21780,
     +     .00000,    .42762,    .55649,
     +     .06078,    .03197,   9.37891,    .57805,    .24334,
     +     .00000,    .45155,    .57994,
     +     .06238,    .03292,  10.98987,    .63044,    .29926,
     +     .00000,    .50502,    .63245,
     +     .06379,    .03376,  12.24835,    .67784,    .34931,
     +     .06349,    .55332,    .67994,
     +     .06539,    .03470,  13.76049,    .73352,    .40810,
     +     .13401,    .60999,    .73573,
     +     .06707,    .03569,  15.37623,    .79405,    .47177,
     +     .20198,    .67152,    .79638,
     +     .06860,    .03661,  16.86828,    .85111,    .53163,
     +     .26589,    .72945,    .85353 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
     +     .07016,    .03753,  18.39667,    .91078,    .59416,
     +     .33227,    .79000,    .91331,
     +     .07146,    .03829,  19.67001,    .96168,    .64714,
     +     .38777,    .84160,    .96430,
     +     .07304,    .03923,  21.21450,   1.02492,    .71270,
     +     .45611,    .90567,   1.02765,
     +     .07445,    .04007,  22.59049,   1.08239,    .77239,
     +     .51865,    .96389,   1.08524,
     +     .07574,    .04083,  23.85769,   1.13635,    .82841,
     +     .57737,   1.01849,   1.13928,
     +     .07740,    .04180,  25.44003,   1.20579,    .89997,
     +     .65151,   1.08874,   1.20884,
     +     .07895,    .04272,  26.92587,   1.27254,    .96882,
     +     .72307,   1.15625,   1.27570,
     +     .08042,    .04359,  28.32153,   1.33649,   1.03495,
     +     .79208,   1.22089,   1.33976 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
     +     .08189,    .04445,  29.67561,   1.40071,   1.10078,
     +     .85994,   1.28578,   1.40408,
     +     .08333,    .04530,  30.99971,   1.46469,   1.16656,
     +     .92810,   1.35042,   1.46817,
     +     .08471,    .04610,  32.24227,   1.52605,   1.22964,
     +     .99344,   1.41239,   1.52964,
     +     .08599,    .04686,  33.38296,   1.58403,   1.28898,
     +    1.05460,   1.47093,   1.58770,
     +     .08730,    .04763,  34.53430,   1.64332,   1.34992,
     +    1.11775,   1.53079,   1.64709,
     +     .08858,    .04837,  35.62398,   1.70133,   1.40916,
     +    1.17865,   1.58933,   1.70520,
     +     .08981,    .04909,  36.66995,   1.75754,   1.46687,
     +    1.23837,   1.64607,   1.76151,
     +     .09097,    .04977,  37.61850,   1.81024,   1.52062,
     +    1.29358,   1.69923,   1.81428 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
     +     .09214,    .05045,  38.58052,   1.86420,   1.57589,
     +    1.35061,   1.75369,   1.86834,
     +     .09330,    .05113,  39.50088,   1.91725,   1.63006,
     +    1.40633,   1.80719,   1.92146,
     +     .09441,    .05178,  40.36870,   1.96814,   1.68205,
     +    1.45982,   1.85852,   1.97244,
     +     .09545,    .05238,  41.18678,   2.01679,   1.73182,
     +    1.51113,   1.90759,   2.02117,
     +     .09652,    .05300,  41.98026,   2.06543,   1.78137,
     +    1.56196,   1.95663,   2.06989 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
     +     .06907,    .03686,    .70979,    .26965,    .00000,
     +     .00000,    .15342,    .27190,
     +     .07038,    .03765,   1.28196,    .28512,    .00000,
     +     .00000,    .16971,    .28746,
     +     .07239,    .03887,   2.18252,    .31053,    .01358,
     +     .00000,    .19630,    .31302,
     +     .07394,    .03980,   2.91230,    .33088,    .02448,
     +     .00000,    .21747,    .33346,
     +     .07555,    .04078,   3.67235,    .35377,    .05174,
     +     .00000,    .24120,    .35648,
     +     .07696,    .04164,   4.36114,    .37486,    .07507,
     +     .00000,    .26298,    .37766,
     +     .07834,    .04247,   5.05551,    .39606,    .09875,
     +     .00000,    .28484,    .39896,
     +     .07983,    .04337,   5.82260,    .41964,    .12543,
     +     .00000,    .30911,    .42265 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
     +     .08113,    .04416,   6.49680,    .44106,    .14848,
     +     .00000,    .33111,    .44415,
     +     .08239,    .04493,   7.16045,    .46246,    .17163,
     +     .00000,    .35307,    .46566,
     +     .08339,    .04554,   7.70258,    .48000,    .19093,
     +     .00000,    .37104,    .48327,
     +     .08555,    .04684,   8.87610,    .51891,    .23274,
     +     .00000,    .41085,    .52234,
     +     .08744,    .04798,   9.76990,    .55370,    .26976,
     +     .04470,    .44641,    .55728,
     +     .08959,    .04927,  10.82084,    .59414,    .31276,
     +     .09693,    .48767,    .59788,
     +     .09184,    .05062,  11.92061,    .63756,    .35878,
     +     .14653,    .53193,    .64148,
     +     .09389,    .05185,  12.91622,    .67803,    .40156,
     +     .19266,    .57315,    .68210 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
     +     .09596,    .05308,  13.91755,    .71989,    .44576,
     +     .24004,    .61576,    .72412,
     +     .09769,    .05412,  14.73755,    .75523,    .48284,
     +     .27925,    .65171,    .75961,
     +     .09979,    .05536,  15.71541,    .79869,    .52823,
     +     .32705,    .69589,    .80323,
     +     .10166,    .05647,  16.57266,    .83781,    .56917,
     +     .37037,    .73563,    .84250,
     +     .10337,    .05749,  17.35089,    .87420,    .60727,
     +     .41071,    .77259,    .87902,
     +     .10554,    .05877,  18.30551,    .92054,    .65539,
     +     .46106,    .81963,    .92552,
     +     .10759,    .05997,  19.18714,    .96463,    .70123,
     +     .50920,    .86436,    .96977,
     +     .10951,    .06111,  20.00327,   1.00647,    .74488,
     +     .55523,    .90682,   1.01177 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
     +     .11142,    .06223,  20.78024,   1.04804,    .78783,
     +     .59996,    .94898,   1.05350,
     +     .11330,    .06333,  21.52972,   1.08910,    .83041,
     +     .64454,    .99061,   1.09471,
     +     .11509,    .06437,  22.22312,   1.12814,    .87090,
     +     .68693,   1.03019,   1.13389,
     +     .11676,    .06534,  22.84920,   1.16468,    .90862,
     +     .72623,   1.06722,   1.17056,
     +     .11844,    .06632,  23.47464,   1.20180,    .94712,
     +     .76655,   1.10484,   1.20781,
     +     .12010,    .06728,  24.05569,   1.23775,    .98418,
     +     .80506,   1.14128,   1.24391,
     +     .12168,    .06820,  24.60884,   1.27240,   1.02007,
     +     .84262,   1.17638,   1.27867,
     +     .12316,    .06905,  25.10113,   1.30456,   1.05319,
     +     .87701,   1.20897,   1.31095 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
     +     .12465,    .06992,  25.59644,   1.33733,   1.08707,
     +     .91237,   1.24216,   1.34384,
     +     .12613,    .07077,  26.06266,   1.36926,   1.12001,
     +     .94663,   1.27452,   1.37590,
     +     .12754,    .07157,  26.49725,   1.39970,   1.15142,
     +     .97931,   1.30535,   1.40645,
     +     .12888,    .07234,  26.90297,   1.42864,   1.18133,
     +    1.01051,   1.33466,   1.43549,
     +     .13023,    .07310,  27.28917,   1.45733,   1.21085,
     +    1.04114,   1.36372,   1.46428 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
     +     .09566,    .05323,    .78120,    .23926,    .00000,
     +     .00000,    .13786,    .24316,
     +     .09743,    .05433,   1.29553,    .25135,    .00000,
     +     .00000,    .15063,    .25539,
     +     .10016,    .05602,   2.06718,    .27104,    .01211,
     +     .00000,    .17130,    .27529,
     +     .10223,    .05732,   2.67215,    .28667,    .02001,
     +     .00000,    .18763,    .29109,
     +     .10442,    .05866,   3.28342,    .30413,    .04121,
     +     .00000,    .20579,    .30873,
     +     .10633,    .05984,   3.82256,    .32005,    .05910,
     +     .00000,    .22231,    .32480,
     +     .10818,    .06098,   4.35391,    .33593,    .07711,
     +     .00000,    .23875,    .34085,
     +     .11019,    .06221,   4.92831,    .35346,    .09722,
     +     .00000,    .25687,    .35853 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
     +     .11194,    .06327,   5.42257,    .36921,    .11442,
     +     .00000,    .27313,    .37444,
     +     .11363,    .06431,   5.90048,    .38485,    .13155,
     +     .00000,    .28925,    .39022,
     +     .11499,    .06514,   6.28535,    .39758,    .14574,
     +     .00000,    .30236,    .40306,
     +     .11789,    .06688,   7.10273,    .42555,    .17619,
     +     .00000,    .33113,    .43127,
     +     .12041,    .06841,   7.70725,    .45024,    .20281,
     +     .02928,    .35649,    .45618,
     +     .12326,    .07011,   8.39779,    .47859,    .23336,
     +     .06699,    .38557,    .48477,
     +     .12624,    .07188,   9.10228,    .50862,    .26561,
     +     .10223,    .41635,    .51506,
     +     .12894,    .07348,   9.72470,    .53622,    .29520,
     +     .13458,    .44464,    .54290 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
     +     .13167,    .07510,  10.33682,    .56443,    .32539,
     +     .16740,    .47352,    .57134,
     +     .13393,    .07642,  10.82749,    .58796,    .35043,
     +     .19425,    .49760,    .59506,
     +     .13667,    .07802,  11.39987,    .61655,    .38072,
     +     .22660,    .52684,    .62388,
     +     .13909,    .07943,  11.89143,    .64197,    .40774,
     +     .25561,    .55284,    .64952,
     +     .14131,    .08073,  12.32959,    .66539,    .43262,
     +     .28234,    .57678,    .67312,
     +     .14411,    .08233,  12.85443,    .69482,    .46366,
     +     .31531,    .60686,    .70279,
     +     .14673,    .08384,  13.32868,    .72248,    .49289,
     +     .34647,    .63514,    .73067,
     +     .14919,    .08526,  13.75939,    .74844,    .52041,
     +     .37595,    .66167,    .75684 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
     +     .15162,    .08665,  14.15849,    .77389,    .54716,
     +     .40425,    .68768,    .78250,
     +     .15400,    .08799,  14.53628,    .79877,    .57342,
     +     .43219,    .71309,    .80758,
     +     .15625,    .08927,  14.87873,    .82218,    .59812,
     +     .45848,    .73701,    .83119,
     +     .15834,    .09045,  15.18051,    .84384,    .62089,
     +     .48261,    .75915,    .85301,
     +     .16046,    .09164,  15.47789,    .86566,    .64396,
     +     .50718,    .78144,    .87501,
     +     .16252,    .09279,  15.74580,    .88653,    .66589,
     +     .53037,    .80278,    .89606,
     +     .16447,    .09388,  15.99807,    .90650,    .68701,
     +     .55286,    .82319,    .91620,
     +     .16630,    .09491,  16.21563,    .92482,    .70626,
     +     .57321,    .84192,    .93467 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
     +     .16816,    .09593,  16.43218,    .94336,    .72583,
     +     .59401,    .86087,    .95337,
     +     .16997,    .09694,  16.63038,    .96125,    .74468,
     +     .61398,    .87917,    .97140,
     +     .17169,    .09789,  16.81173,    .97817,    .76251,
     +     .63289,    .89647,    .98847,
     +     .17332,    .09879,  16.97834,    .99414,    .77938,
     +     .65083,    .91280,   1.00456,
     +     .17495,    .09968,  17.13121,   1.00978,    .79586,
     +     .66826,    .92881,   1.02035 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
     +     .11594,    .06600,    .86698,    .22334,    .00000,
     +     .00000,    .12938,    .22869,
     +     .11807,    .06734,   1.34240,    .23357,    .00000,
     +     .00000,    .14022,    .23908,
     +     .12132,    .06939,   2.03810,    .25015,    .01049,
     +     .00000,    .15770,    .25595,
     +     .12382,    .07094,   2.57078,    .26328,    .01686,
     +     .00000,    .17149,    .26930,
     +     .12643,    .07257,   3.09851,    .27791,    .03493,
     +     .00000,    .18678,    .28416,
     +     .12871,    .07397,   3.55574,    .29118,    .05005,
     +     .00000,    .20061,    .29762,
     +     .13093,    .07533,   3.99964,    .30435,    .06519,
     +     .00000,    .21432,    .31099,
     +     .13332,    .07679,   4.47272,    .31881,    .08202,
     +     .00000,    .22935,    .32567 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
     +     .13540,    .07804,   4.87415,    .33175,    .09631,
     +     .00000,    .24276,    .33879,
     +     .13740,    .07927,   5.25759,    .34451,    .11049,
     +     .00000,    .25599,    .35175,
     +     .13903,    .08023,   5.56340,    .35486,    .12218,
     +     .00000,    .26672,    .36225,
     +     .14245,    .08228,   6.20481,    .37747,    .14708,
     +     .00000,    .29008,    .38515,
     +     .14542,    .08404,   6.67003,    .39725,    .16868,
     +     .02157,    .31051,    .40520,
     +     .14877,    .08601,   7.18930,    .41976,    .19327,
     +     .05230,    .33376,    .42802,
     +     .15224,    .08804,   7.70970,    .44339,    .21900,
     +     .08071,    .35813,    .45196,
     +     .15538,    .08986,   8.16160,    .46493,    .24240,
     +     .10658,    .38033,    .47377 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
     +     .15855,    .09170,   8.59874,    .48674,    .26609,
     +     .13262,    .40281,    .49586,
     +     .16117,    .09320,   8.94334,    .50477,    .28558,
     +     .15374,    .42140,    .51415,
     +     .16432,    .09500,   9.33897,    .52651,    .30897,
     +     .17902,    .44379,    .53616,
     +     .16710,    .09659,   9.67357,    .54569,    .32966,
     +     .20151,    .46355,    .55558,
     +     .16965,    .09802,   9.96766,    .56321,    .34860,
     +     .22211,    .48160,    .57333,
     +     .17283,    .09982,  10.31293,    .58506,    .37202,
     +     .24729,    .50410,    .59545,
     +     .17582,    .10148,  10.61954,    .60541,    .39390,
     +     .27093,    .52506,    .61606,
     +     .17861,    .10304,  10.89383,    .62435,    .41435,
     +     .29313,    .54459,    .63526 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
     +     .18135,    .10455,  11.14191,    .64276,    .43406,
     +     .31426,    .56355,    .65390,
     +     .18403,    .10603,  11.37308,    .66061,    .45326,
     +     .33499,    .58195,    .67199,
     +     .18655,    .10741,  11.57889,    .67728,    .47122,
     +     .35437,    .59914,    .68886,
     +     .18890,    .10868,  11.75599,    .69257,    .48765,
     +     .37203,    .61491,    .70436,
     +     .19126,    .10996,  11.92845,    .70789,    .50419,
     +     .38993,    .63072,    .71988,
     +     .19353,    .11119,  12.07906,    .72242,    .51978,
     +     .40667,    .64571,    .73460,
     +     .19570,    .11236,  12.21963,    .73625,    .53474,
     +     .42285,    .65999,    .74861,
     +     .19772,    .11344,  12.33644,    .74880,    .54825,
     +     .43737,    .67297,    .76134 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
     +     .19976,    .11453,  12.45155,    .76146,    .56195,
     +     .45217,    .68605,    .77417,
     +     .20174,    .11558,  12.55345,    .77357,    .57503,
     +     .46627,    .69857,    .78644,
     +     .20362,    .11658,  12.64467,    .78495,    .58735,
     +     .47956,    .71035,    .79798,
     +     .20541,    .11753,  12.72695,    .79564,    .59895,
     +     .49212,    .72141,    .80881,
     +     .20719,    .11846,  12.79870,    .80601,    .61019,
     +     .50423,    .73215,    .81934 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
     +     .13301,    .07683,    .95249,    .21250,    .00000,
     +     .00000,    .12328,    .21913,
     +     .13544,    .07840,   1.39682,    .22145,    .00000,
     +     .00000,    .13283,    .22832,
     +     .13917,    .08075,   2.03668,    .23597,    .00883,
     +     .00000,    .14824,    .24319,
     +     .14201,    .08252,   2.51715,    .24746,    .01424,
     +     .00000,    .16036,    .25494,
     +     .14497,    .08434,   2.98584,    .26024,    .03029,
     +     .00000,    .17379,    .26800,
     +     .14756,    .08592,   3.38650,    .27178,    .04364,
     +     .00000,    .18587,    .27978,
     +     .15008,    .08744,   3.77096,    .28319,    .05695,
     +     .00000,    .19782,    .29144,
     +     .15278,    .08908,   4.17617,    .29568,    .07168,
     +     .00000,    .21087,    .30418 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
     +     .15513,    .09049,   4.51625,    .30680,    .08412,
     +     .00000,    .22247,    .31551,
     +     .15741,    .09183,   4.83800,    .31773,    .09641,
     +     .00000,    .23387,    .32666,
     +     .15922,    .09292,   5.09268,    .32657,    .10652,
     +     .00000,    .24307,    .33567,
     +     .16306,    .09517,   5.62149,    .34575,    .12794,
     +     .00000,    .26302,    .35521,
     +     .16639,    .09711,   5.99938,    .36244,    .14640,
     +     .01661,    .28037,    .37221,
     +     .17010,    .09925,   6.41238,    .38130,    .16728,
     +     .04297,    .29995,    .39141,
     +     .17396,    .10146,   6.82017,    .40093,    .18898,
     +     .06716,    .32035,    .41140,
     +     .17744,    .10344,   7.16907,    .41870,    .20858,
     +     .08903,    .33880,    .42948 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
     +     .18093,    .10540,   7.50183,    .43656,    .22829,
     +     .11091,    .35734,    .44766,
     +     .18380,    .10702,   7.76045,    .45124,    .24440,
     +     .12855,    .37259,    .46261,
     +     .18726,    .10895,   8.05303,    .46880,    .26361,
     +     .14953,    .39083,    .48049,
     +     .19030,    .11062,   8.29705,    .48421,    .28052,
     +     .16811,    .40681,    .49615,
     +     .19307,    .11214,   8.50879,    .49819,    .29591,
     +     .18503,    .42134,    .51038,
     +     .19654,    .11404,   8.75275,    .51548,    .31480,
     +     .20558,    .43931,    .52798,
     +     .19976,    .11579,   8.96578,    .53147,    .33234,
     +     .22475,    .45593,    .54426,
     +     .20278,    .11741,   9.15350,    .54629,    .34865,
     +     .24268,    .47133,    .55934 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
     +     .20573,    .11899,   9.31904,    .56054,    .36424,
     +     .25961,    .48617,    .57385,
     +     .20860,    .12052,   9.47080,    .57430,    .37936,
     +     .27614,    .50049,    .58785,
     +     .21128,    .12194,   9.60333,    .58704,    .39342,
     +     .29151,    .51377,    .60084,
     +     .21378,    .12326,   9.71426,    .59865,    .40619,
     +     .30544,    .52589,    .61266,
     +     .21629,    .12458,   9.82089,    .61023,    .41901,
     +     .31950,    .53797,    .62445,
     +     .21871,    .12583,   9.91038,    .62112,    .43101,
     +     .33258,    .54933,    .63554,
     +     .22100,    .12702,   9.99309,    .63144,    .44248,
     +     .34517,    .56013,    .64605,
     +     .22313,    .12810,  10.05843,    .64075,    .45277,
     +     .35641,    .56986,    .65553 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
     +     .22527,    .12920,  10.12202,    .65007,    .46317,
     +     .36781,    .57963,    .66505,
     +     .22734,    .13027,  10.17551,    .65893,    .47303,
     +     .37863,    .58892,    .67408,
     +     .22932,    .13127,  10.22179,    .66722,    .48228,
     +     .38878,    .59761,    .68252,
     +     .23117,    .13221,  10.26231,    .67496,    .49095,
     +     .39833,    .60574,    .69042,
     +     .23301,    .13314,  10.29441,    .68241,    .49931,
     +     .40749,    .61358,    .69803 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
     +     .14791,    .08638,   1.03373,    .20388,    .00000,
     +     .00000,    .11824,    .21167,
     +     .15064,    .08811,   1.45183,    .21190,    .00000,
     +     .00000,    .12686,    .21995,
     +     .15480,    .09073,   2.04658,    .22494,    .00721,
     +     .00000,    .14074,    .23341,
     +     .15795,    .09266,   2.48549,    .23525,    .01197,
     +     .00000,    .15169,    .24403,
     +     .16124,    .09467,   2.90818,    .24669,    .02656,
     +     .00000,    .16378,    .25579,
     +     .16410,    .09640,   3.26553,    .25698,    .03863,
     +     .00000,    .17463,    .26637,
     +     .16688,    .09807,   3.60513,    .26714,    .05062,
     +     .00000,    .18531,    .27680,
     +     .16984,    .09983,   3.95969,    .27822,    .06386,
     +     .00000,    .19696,    .28816 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
     +     .17243,    .10135,   4.25452,    .28803,    .07499,
     +     .00000,    .20727,    .29823,
     +     .17492,    .10282,   4.53121,    .29766,    .08595,
     +     .00000,    .21736,    .30808,
     +     .17690,    .10397,   4.74885,    .30541,    .09493,
     +     .00000,    .22549,    .31603,
     +     .18110,    .10640,   5.19701,    .32217,    .11390,
     +     .00000,    .24302,    .33319,
     +     .18472,    .10846,   5.51309,    .33664,    .13015,
     +     .01306,    .25818,    .34802,
     +     .18875,    .11073,   5.85171,    .35291,    .14842,
     +     .03634,    .27520,    .36467,
     +     .19290,    .11306,   6.18172,    .36974,    .16730,
     +     .05756,    .29281,    .38188,
     +     .19665,    .11514,   6.46018,    .38487,    .18426,
     +     .07665,    .30864,    .39737 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
     +     .20040,    .11720,   6.72223,    .39999,    .20122,
     +     .09565,    .32447,    .41283,
     +     .20348,    .11888,   6.92319,    .41235,    .21500,
     +     .11089,    .33739,    .42548,
     +     .20717,    .12088,   7.14735,    .42704,    .23137,
     +     .12893,    .35278,    .44050,
     +     .21040,    .12262,   7.33174,    .43983,    .24569,
     +     .14482,    .36619,    .45359,
     +     .21334,    .12419,   7.48967,    .45140,    .25866,
     +     .15923,    .37831,    .46542,
     +     .21700,    .12613,   7.66829,    .46559,    .27449,
     +     .17664,    .39322,    .47994,
     +     .22040,    .12792,   7.82138,    .47865,    .28912,
     +     .19280,    .40692,    .49329,
     +     .22356,    .12958,   7.95404,    .49066,    .30266,
     +     .20785,    .41955,    .50559 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
     +     .22665,    .13118,   8.06757,    .50214,    .31551,
     +     .22198,    .43163,    .51733,
     +     .22965,    .13271,   8.16981,    .51315,    .32792,
     +     .23572,    .44322,    .52859,
     +     .23245,    .13415,   8.25714,    .52330,    .33941,
     +     .24845,    .45392,    .53898,
     +     .23505,    .13546,   8.32742,    .53248,    .34978,
     +     .25991,    .46362,    .54838,
     +     .23764,    .13677,   8.39383,    .54160,    .36015,
     +     .27144,    .47325,    .55772,
     +     .24012,    .13803,   8.44652,    .55010,    .36981,
     +     .28212,    .48225,    .56642,
     +     .24249,    .13920,   8.49463,    .55812,    .37900,
     +     .29236,    .49077,    .57465,
     +     .24467,    .14028,   8.52951,    .56530,    .38721,
     +     .30147,    .49839,    .58200 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
     +     .24687,    .14136,   8.56279,    .57248,    .39548,
     +     .31068,    .50602,    .58935,
     +     .24899,    .14241,   8.58798,    .57923,    .40328,
     +     .31937,    .51322,    .59628,
     +     .25100,    .14338,   8.60815,    .58551,    .41056,
     +     .32750,    .51992,    .60273,
     +     .25290,    .14431,   8.62459,    .59137,    .41737,
     +     .33513,    .52617,    .60873,
     +     .25477,    .14520,   8.63410,    .59695,    .42389,
     +     .34241,    .53216,    .61446 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
     +     .17385,    .10291,   1.17717,    .19063,    .00000,
     +     .00000,    .11021,    .20062,
     +     .17708,    .10496,   1.55081,    .19737,    .00000,
     +     .00000,    .11753,    .20771,
     +     .18200,    .10799,   2.07365,    .20831,    .00422,
     +     .00000,    .12935,    .21918,
     +     .18570,    .11022,   2.44771,    .21693,    .00814,
     +     .00000,    .13863,    .22820,
     +     .18953,    .11249,   2.80028,    .22650,    .02072,
     +     .00000,    .14887,    .23816,
     +     .19285,    .11444,   3.09300,    .23505,    .03103,
     +     .00000,    .15800,    .24705,
     +     .19606,    .11631,   3.36676,    .24343,    .04122,
     +     .00000,    .16695,    .25577,
     +     .19949,    .11828,   3.64821,    .25252,    .05240,
     +     .00000,    .17665,    .26522 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
     +     .20244,    .11997,   3.87853,    .26052,    .06172,
     +     .00000,    .18516,    .27351,
     +     .20529,    .12158,   4.09175,    .26831,    .07085,
     +     .00000,    .19344,    .28159,
     +     .20755,    .12284,   4.25767,    .27455,    .07831,
     +     .00000,    .20009,    .28807,
     +     .21230,    .12549,   4.59446,    .28795,    .09393,
     +     .00000,    .21433,    .30193,
     +     .21634,    .12770,   4.82694,    .29940,    .10717,
     +     .00816,    .22650,    .31378,
     +     .22083,    .13013,   5.06589,    .31214,    .12195,
     +     .02727,    .24004,    .32694,
     +     .22545,    .13259,   5.29290,    .32515,    .13706,
     +     .04452,    .25388,    .34039,
     +     .22957,    .13477,   5.47944,    .33672,    .15050,
     +     .05988,    .26619,    .35234 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
     +     .23368,    .13692,   5.65054,    .34816,    .16382,
     +     .07504,    .27839,    .36416,
     +     .23704,    .13865,   5.77827,    .35739,    .17454,
     +     .08710,    .28824,    .37370,
     +     .24102,    .14070,   5.91621,    .36827,    .18716,
     +     .10126,    .29985,    .38493,
     +     .24450,    .14247,   6.02641,    .37763,    .19811,
     +     .11363,    .30988,    .39461,
     +     .24766,    .14406,   6.11824,    .38602,    .20795,
     +     .12478,    .31887,    .40329,
     +     .25155,    .14601,   6.21696,    .39619,    .21986,
     +     .13814,    .32979,    .41379,
     +     .25516,    .14779,   6.29778,    .40543,    .23073,
     +     .15042,    .33972,    .42334,
     +     .25850,    .14942,   6.36491,    .41385,    .24073,
     +     .16176,    .34878,    .43203 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
     +     .26173,    .15099,   6.41761,    .42177,    .25012,
     +     .17233,    .35735,    .44023,
     +     .26485,    .15249,   6.46224,    .42928,    .25912,
     +     .18253,    .36549,    .44800,
     +     .26775,    .15387,   6.49721,    .43615,    .26736,
     +     .19191,    .37294,    .45511,
     +     .27043,    .15511,   6.52148,    .44226,    .27476,
     +     .20029,    .37960,    .46143,
     +     .27308,    .15637,   6.54286,    .44828,    .28210,
     +     .20867,    .38618,    .46766,
     +     .27562,    .15754,   6.55451,    .45380,    .28886,
     +     .21637,    .39224,    .47339,
     +     .27801,    .15865,   6.56422,    .45899,    .29526,
     +     .22371,    .39793,    .47875,
     +     .28021,    .15965,   6.56583,    .46354,    .30091,
     +     .23017,    .40295,    .48347 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
     +     .28242,    .16065,   6.56624,    .46805,    .30658,
     +     .23669,    .40794,    .48815,
     +     .28454,    .16160,   6.56139,    .47224,    .31187,
     +     .24279,    .41260,    .49251,
     +     .28654,    .16248,   6.55419,    .47609,    .31678,
     +     .24847,    .41690,    .49651,
     +     .28841,    .16331,   6.54561,    .47965,    .32134,
     +     .25376,    .42087,    .50021,
     +     .29025,    .16412,   6.53205,    .48298,    .32565,
     +     .25876,    .42461,    .50366 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
     +     .20649,    .12357,   1.35198,    .17553,    .00000,
     +     .00000,    .10066,    .18849,
     +     .21044,    .12596,   1.67055,    .18104,    .00000,
     +     .00000,    .10680,    .19448,
     +     .21635,    .12947,   2.11046,    .19000,    .00038,
     +     .00000,    .11672,    .20413,
     +     .22071,    .13199,   2.41230,    .19702,    .00363,
     +     .00000,    .12447,    .21164,
     +     .22521,    .13456,   2.68894,    .20477,    .01431,
     +     .00000,    .13297,    .21989,
     +     .22908,    .13673,   2.91378,    .21163,    .02298,
     +     .00000,    .14047,    .22716,
     +     .23281,    .13878,   3.11995,    .21830,    .03147,
     +     .00000,    .14776,    .23425,
     +     .23674,    .14093,   3.32787,    .22547,    .04071,
     +     .00000,    .15559,    .24183 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
     +     .24013,    .14275,   3.49465,    .23172,    .04835,
     +     .00000,    .16241,    .24843,
     +     .24336,    .14448,   3.64625,    .23775,    .05578,
     +     .00000,    .16900,    .25479,
     +     .24593,    .14584,   3.76259,    .24256,    .06181,
     +     .00000,    .17424,    .25986,
     +     .25127,    .14862,   3.99434,    .25276,    .07432,
     +     .00000,    .18537,    .27060,
     +     .25575,    .15092,   4.14968,    .26135,    .08482,
     +     .00367,    .19475,    .27962,
     +     .26069,    .15341,   4.29840,    .27076,    .09638,
     +     .01891,    .20506,    .28951,
     +     .26572,    .15590,   4.43436,    .28025,    .10806,
     +     .03251,    .21545,    .29946,
     +     .27017,    .15808,   4.54120,    .28854,    .11832,
     +     .04448,    .22455,    .30815 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
     +     .27457,    .16021,   4.63462,    .29661,    .12837,
     +     .05617,    .23346,    .31663,
     +     .27813,    .16191,   4.70081,    .30305,    .13639,
     +     .06540,    .24056,    .32337,
     +     .28234,    .16389,   4.76770,    .31048,    .14571,
     +     .07611,    .24882,    .33118,
     +     .28598,    .16558,   4.81761,    .31681,    .15372,
     +     .08539,    .25585,    .33781,
     +     .28925,    .16709,   4.85632,    .32241,    .16085,
     +     .09368,    .26209,    .34366,
     +     .29327,    .16890,   4.89237,    .32905,    .16935,
     +     .10350,    .26954,    .35064,
     +     .29694,    .17054,   4.91764,    .33498,    .17705,
     +     .11244,    .27622,    .35686,
     +     .30032,    .17204,   4.93528,    .34030,    .18405,
     +     .12064,    .28225,    .36244 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
     +     .30355,    .17344,   4.94260,    .34519,    .19053,
     +     .12818,    .28783,    .36757,
     +     .30665,    .17476,   4.94504,    .34976,    .19668,
     +     .13539,    .29307,    .37237,
     +     .30953,    .17598,   4.94246,    .35385,    .20227,
     +     .14198,    .29779,    .37667,
     +     .31212,    .17706,   4.93421,    .35742,    .20719,
     +     .14779,    .30194,    .38043,
     +     .31471,    .17813,   4.92413,    .36090,    .21206,
     +     .15357,    .30599,    .38408,
     +     .31715,    .17911,   4.90810,    .36399,    .21647,
     +     .15881,    .30965,    .38732,
     +     .31944,    .18003,   4.89224,    .36685,    .22063,
     +     .16379,    .31306,    .39035,
     +     .32151,    .18085,   4.87231,    .36927,    .22424,
     +     .16814,    .31598,    .39291 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
     +     .32359,    .18166,   4.85167,    .37166,    .22783,
     +     .17247,    .31887,    .39543,
     +     .32557,    .18241,   4.82807,    .37381,    .23115,
     +     .17650,    .32150,    .39769,
     +     .32742,    .18311,   4.80414,    .37573,    .23420,
     +     .18022,    .32390,    .39972,
     +     .32915,    .18375,   4.78047,    .37747,    .23700,
     +     .18366,    .32608,    .40157,
     +     .33082,    .18436,   4.75344,    .37903,    .23961,
     +     .18688,    .32807,    .40321 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
     +     .25192,    .15141,   1.55246,    .15661,    .00000,
     +     .00000,    .08855,    .17446,
     +     .25684,    .15423,   1.79819,    .16093,    .00000,
     +     .00000,    .09364,    .17940,
     +     .26406,    .15822,   2.13517,    .16786,   -.00448,
     +     .00000,    .10172,    .18721,
     +     .26928,    .16100,   2.35124,    .17321,   -.00172,
     +     .00000,    .10793,    .19317,
     +     .27460,    .16379,   2.54093,    .17906,    .00705,
     +     .00000,    .11466,    .19962,
     +     .27913,    .16611,   2.69041,    .18416,    .01410,
     +     .00000,    .12051,    .20519,
     +     .28342,    .16828,   2.82370,    .18905,    .02090,
     +     .00000,    .12613,    .21053,
     +     .28792,    .17050,   2.95424,    .19424,    .02822,
     +     .00000,    .13208,    .21617 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
     +     .29174,    .17237,   3.05552,    .19869,    .03420,
     +     .00000,    .13719,    .22101,
     +     .29537,    .17411,   3.14485,    .20292,    .03995,
     +     .00000,    .14206,    .22560,
     +     .29821,    .17547,   3.21193,    .20626,    .04458,
     +     .00000,    .14591,    .22921,
     +     .30407,    .17823,   3.34139,    .21323,    .05406,
     +     .00000,    .15392,    .23671,
     +     .30891,    .18041,   3.42366,    .21896,    .06187,
     +    -.00045,    .16056,    .24288,
     +     .31414,    .18274,   3.48932,    .22510,    .07036,
     +     .01100,    .16770,    .24947,
     +     .31939,    .18504,   3.54337,    .23114,    .07879,
     +     .02108,    .17475,    .25593,
     +     .32397,    .18700,   3.58036,    .23629,    .08608,
     +     .02984,    .18082,    .26144 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
     +     .32844,    .18886,   3.60754,    .24117,    .09310,
     +     .03826,    .18660,    .26666,
     +     .33202,    .19031,   3.62220,    .24496,    .09863,
     +     .04483,    .19113,    .27071,
     +     .33619,    .19197,   3.63127,    .24924,    .10496,
     +     .05237,    .19628,    .27527,
     +     .33974,    .19335,   3.63328,    .25277,    .11031,
     +     .05881,    .20060,    .27905,
     +     .34289,    .19457,   3.63063,    .25581,    .11501,
     +     .06450,    .20434,    .28230,
     +     .34669,    .19598,   3.61917,    .25930,    .12053,
     +     .07115,    .20869,    .28601,
     +     .35012,    .19722,   3.60327,    .26231,    .12545,
     +     .07714,    .21251,    .28922,
     +     .35323,    .19832,   3.58500,    .26493,    .12986,
     +     .08254,    .21586,    .29201 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
     +     .35616,    .19931,   3.56073,    .26721,    .13385,
     +     .08745,    .21887,    .29443,
     +     .35892,    .20023,   3.53461,    .26926,    .13760,
     +     .09210,    .22163,    .29661,
     +     .36143,    .20105,   3.50739,    .27102,    .14094,
     +     .09627,    .22405,    .29849,
     +     .36368,    .20175,   3.47860,    .27246,    .14384,
     +     .09992,    .22609,    .30001,
     +     .36588,    .20241,   3.44908,    .27381,    .14667,
     +     .10352,    .22806,    .30144,
     +     .36790,    .20299,   3.41681,    .27489,    .14918,
     +     .10673,    .22973,    .30261,
     +     .36980,    .20352,   3.38627,    .27587,    .15152,
     +     .10975,    .23126,    .30365,
     +     .37146,    .20397,   3.35479,    .27661,    .15350,
     +     .11234,    .23251,    .30442 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
     +     .37312,    .20440,   3.32315,    .27730,    .15545,
     +     .11491,    .23372,    .30515,
     +     .37466,    .20477,   3.29040,    .27783,    .15722,
     +     .11727,    .23474,    .30571,
     +     .37607,    .20510,   3.25872,    .27825,    .15880,
     +     .11941,    .23563,    .30615,
     +     .37739,    .20540,   3.22845,    .27858,    .16024,
     +     .12138,    .23642,    .30651,
     +     .37862,    .20564,   3.19640,    .27879,    .16155,
     +     .12320,    .23706,    .30673 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
     +     .28993,    .17390,   1.67232,    .14149,    .00000,
     +     .00000,    .07909,    .16353,
     +     .29572,    .17694,   1.86068,    .14507,    .00000,
     +     .00000,    .08356,    .16787,
     +     .30405,    .18118,   2.12003,    .15069,   -.00776,
     +     .00000,    .09051,    .17447,
     +     .30993,    .18406,   2.27460,    .15496,   -.00521,
     +     .00000,    .09575,    .17942,
     +     .31585,    .18688,   2.40412,    .15957,    .00235,
     +     .00000,    .10136,    .18465,
     +     .32081,    .18919,   2.50287,    .16350,    .00835,
     +     .00000,    .10614,    .18910,
     +     .32547,    .19132,   2.58838,    .16725,    .01410,
     +     .00000,    .11068,    .19330,
     +     .33029,    .19349,   2.66956,    .17114,    .02019,
     +     .00000,    .11543,    .19765 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
     +     .33434,    .19526,   2.72991,    .17444,    .02514,
     +     .00000,    .11946,    .20130,
     +     .33815,    .19690,   2.78116,    .17753,    .02984,
     +     .00000,    .12325,    .20471,
     +     .34112,    .19817,   2.81858,    .17993,    .03360,
     +     .00000,    .12620,    .20738,
     +     .34717,    .20065,   2.88769,    .18488,    .04121,
     +     .00000,    .13229,    .21283,
     +     .35202,    .20258,   2.92794,    .18886,    .04741,
     +    -.00256,    .13724,    .21716,
     +     .35723,    .20457,   2.94763,    .19303,    .05405,
     +     .00656,    .14246,    .22169,
     +     .36236,    .20649,   2.95776,    .19699,    .06055,
     +     .01450,    .14751,    .22599,
     +     .36678,    .20806,   2.95842,    .20029,    .06609,
     +     .02132,    .15176,    .22955 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
     +     .37102,    .20952,   2.95213,    .20332,    .07137,
     +     .02782,    .15575,    .23281,
     +     .37436,    .21063,   2.94161,    .20560,    .07547,
     +     .03284,    .15880,    .23526,
     +     .37817,    .21185,   2.92306,    .20808,    .08011,
     +     .03854,    .16219,    .23792,
     +     .38138,    .21283,   2.90285,    .21005,    .08399,
     +     .04336,    .16496,    .24002,
     +     .38419,    .21365,   2.88157,    .21170,    .08734,
     +     .04757,    .16732,    .24177,
     +     .38751,    .21456,   2.84956,    .21347,    .09125,
     +     .05246,    .16998,    .24365,
     +     .39044,    .21531,   2.81666,    .21491,    .09466,
     +     .05679,    .17224,    .24516,
     +     .39305,    .21595,   2.78416,    .21611,    .09769,
     +     .06068,    .17418,    .24640 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
     +     .39543,    .21648,   2.74811,    .21702,    .10039,
     +     .06416,    .17583,    .24735,
     +     .39765,    .21692,   2.71185,    .21778,    .10289,
     +     .06743,    .17730,    .24812,
     +     .39964,    .21727,   2.67640,    .21835,    .10508,
     +     .07035,    .17853,    .24869,
     +     .40134,    .21754,   2.64135,    .21873,    .10695,
     +     .07286,    .17951,    .24905,
     +     .40298,    .21778,   2.60623,    .21904,    .10875,
     +     .07531,    .18042,    .24933,
     +     .40443,    .21793,   2.56995,    .21917,    .11032,
     +     .07748,    .18111,    .24940,
     +     .40578,    .21806,   2.53597,    .21925,    .11176,
     +     .07950,    .18174,    .24944,
     +     .40693,    .21811,   2.50251,    .21917,    .11295,
     +     .08121,    .18216,    .24932 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
     +     .40805,    .21814,   2.46922,    .21905,    .11412,
     +     .08290,    .18254,    .24915,
     +     .40904,    .21812,   2.43569,    .21884,    .11513,
     +     .08442,    .18281,    .24887,
     +     .40993,    .21806,   2.40372,    .21858,    .11604,
     +     .08579,    .18302,    .24854,
     +     .41072,    .21799,   2.37356,    .21828,    .11685,
     +     .08705,    .18315,    .24819,
     +     .41143,    .21788,   2.34240,    .21790,    .11755,
     +     .08818,    .18318,    .24772 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
     +     .35490,    .20929,   1.74702,    .11801,    .00000,
     +     .00000,    .06554,    .14845,
     +     .36182,    .21242,   1.85272,    .12058,    .00000,
     +     .00000,    .06922,    .15172,
     +     .37148,    .21653,   2.00322,    .12440,   -.01129,
     +     .00000,    .07463,    .15647,
     +     .37798,    .21920,   2.07680,    .12722,   -.00893,
     +     .00000,    .07855,    .15979,
     +     .38440,    .22169,   2.12972,    .13016,   -.00298,
     +     .00000,    .08263,    .16321,
     +     .38963,    .22365,   2.16605,    .13259,    .00169,
     +     .00000,    .08600,    .16599,
     +     .39443,    .22539,   2.19429,    .13482,    .00606,
     +     .00000,    .08912,    .16852,
     +     .39931,    .22708,   2.21769,    .13706,    .01062,
     +     .00000,    .09231,    .17104 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
     +     .40331,    .22842,   2.23143,    .13890,    .01426,
     +     .00000,    .09492,    .17308,
     +     .40697,    .22959,   2.24019,    .14057,    .01767,
     +     .00000,    .09734,    .17490,
     +     .40980,    .23047,   2.24516,    .14184,    .02035,
     +     .00000,    .09919,    .17629,
     +     .41536,    .23209,   2.24977,    .14436,    .02572,
     +     .00000,    .10291,    .17897,
     +     .41965,    .23319,   2.24625,    .14627,    .02998,
     +    -.00433,    .10580,    .18097,
     +     .42405,    .23423,   2.22100,    .14813,    .03445,
     +     .00197,    .10875,    .18288,
     +     .42823,    .23511,   2.18991,    .14978,    .03873,
     +     .00738,    .11146,    .18451,
     +     .43166,    .23572,   2.15791,    .15101,    .04230,
     +     .01194,    .11366,    .18568 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
     +     .43481,    .23618,   2.12275,    .15203,    .04563,
     +     .01622,    .11561,    .18662,
     +     .43719,    .23645,   2.09133,    .15269,    .04817,
     +     .01946,    .11701,    .18721,
     +     .43975,    .23662,   2.05115,    .15330,    .05098,
     +     .02310,    .11850,    .18766,
     +     .44180,    .23667,   2.01456,    .15369,    .05328,
     +     .02613,    .11963,    .18787,
     +     .44350,    .23664,   1.98033,    .15391,    .05524,
     +     .02873,    .12052,    .18795,
     +     .44535,    .23643,   1.93530,    .15397,    .05745,
     +     .03170,    .12144,    .18782,
     +     .44687,    .23614,   1.89261,    .15390,    .05934,
     +     .03429,    .12213,    .18750,
     +     .44811,    .23581,   1.85271,    .15373,    .06098,
     +     .03658,    .12264,    .18711 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
     +     .44909,    .23534,   1.81186,    .15338,    .06238,
     +     .03859,    .12297,    .18651,
     +     .44990,    .23482,   1.77230,    .15296,    .06365,
     +     .04044,    .12318,    .18584,
     +     .45051,    .23428,   1.73509,    .15247,    .06474,
     +     .04207,    .12328,    .18512,
     +     .45091,    .23370,   1.69984,    .15191,    .06563,
     +     .04344,    .12327,    .18432,
     +     .45124,    .23307,   1.66515,    .15131,    .06647,
     +     .04477,    .12321,    .18347,
     +     .45139,    .23239,   1.63076,    .15062,    .06717,
     +     .04592,    .12303,    .18253,
     +     .45148,    .23173,   1.59891,    .14995,    .06779,
     +     .04697,    .12284,    .18161,
     +     .45140,    .23102,   1.56861,    .14923,    .06827,
     +     .04784,    .12255,    .18066 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
     +     .45130,    .23032,   1.53876,    .14850,    .06873,
     +     .04868,    .12225,    .17968,
     +     .45107,    .22956,   1.50942,    .14770,    .06910,
     +     .04943,    .12188,    .17865,
     +     .45079,    .22882,   1.48186,    .14692,    .06942,
     +     .05009,    .12150,    .17764,
     +     .45049,    .22809,   1.45616,    .14616,    .06969,
     +     .05068,    .12110,    .17665,
     +     .45005,    .22732,   1.43018,    .14533,    .06988,
     +     .05119,    .12066,    .17559 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
     +     .40948,    .23594,   1.69917,    .09971,    .00000,
     +     .00000,    .05608,    .13699,
     +     .41697,    .23872,   1.75116,    .10153,    .00000,
     +     .00000,    .05907,    .13928,
     +     .42700,    .24221,   1.83182,    .10414,   -.01238,
     +     .00000,    .06335,    .14237,
     +     .43352,    .24427,   1.85739,    .10597,   -.01020,
     +     .00000,    .06633,    .14442,
     +     .43976,    .24609,   1.86668,    .10784,   -.00534,
     +     .00000,    .06933,    .14645,
     +     .44469,    .24741,   1.86869,    .10931,   -.00157,
     +     .00000,    .07176,    .14798,
     +     .44909,    .24851,   1.86646,    .11062,    .00191,
     +     .00000,    .07394,    .14929,
     +     .45343,    .24952,   1.86005,    .11188,    .00547,
     +     .00000,    .07611,    .15054 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
     +     .45690,    .25019,   1.85044,    .11285,    .00828,
     +     .00000,    .07785,    .15145,
     +     .45999,    .25073,   1.83853,    .11370,    .01089,
     +     .00000,    .07941,    .15220,
     +     .46230,    .25110,   1.82806,    .11434,    .01292,
     +     .00000,    .08059,    .15272,
     +     .46667,    .25162,   1.80305,    .11550,    .01693,
     +     .00000,    .08289,    .15366,
     +     .46980,    .25174,   1.78011,    .11628,    .02005,
     +    -.00467,    .08460,    .15417,
     +     .47281,    .25167,   1.73736,    .11695,    .02327,
     +    -.00006,    .08624,    .15449,
     +     .47543,    .25138,   1.69140,    .11740,    .02631,
     +     .00387,    .08767,    .15453,
     +     .47740,    .25093,   1.64856,    .11761,    .02880,
     +     .00714,    .08875,    .15437 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
     +     .47902,    .25031,   1.60474,    .11766,    .03107,
     +     .01015,    .08963,    .15401,
     +     .48006,    .24968,   1.56797,    .11758,    .03277,
     +     .01242,    .09021,    .15353,
     +     .48101,    .24878,   1.52310,    .11731,    .03464,
     +     .01493,    .09073,    .15281,
     +     .48160,    .24788,   1.48374,    .11697,    .03613,
     +     .01698,    .09107,    .15207,
     +     .48193,    .24697,   1.44802,    .11658,    .03738,
     +     .01875,    .09127,    .15129,
     +     .48203,    .24569,   1.40271,    .11595,    .03876,
     +     .02072,    .09136,    .15013,
     +     .48186,    .24441,   1.36091,    .11526,    .03991,
     +     .02242,    .09132,    .14897,
     +     .48153,    .24314,   1.32266,    .11454,    .04089,
     +     .02389,    .09120,    .14779 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
     +     .48089,    .24177,   1.28459,    .11374,    .04171,
     +     .02518,    .09096,    .14649,
     +     .48014,    .24038,   1.24834,    .11289,    .04242,
     +     .02634,    .09065,    .14518,
     +     .47928,    .23901,   1.21479,    .11204,    .04301,
     +     .02734,    .09031,    .14389,
     +     .47829,    .23765,   1.18360,    .11117,    .04348,
     +     .02818,    .08989,    .14262,
     +     .47723,    .23628,   1.15321,    .11029,    .04391,
     +     .02898,    .08945,    .14131,
     +     .47600,    .23486,   1.12362,    .10936,    .04424,
     +     .02965,    .08894,    .13997,
     +     .47481,    .23350,   1.09642,    .10847,    .04453,
     +     .03026,    .08846,    .13869,
     +     .47350,    .23217,   1.07092,    .10758,    .04473,
     +     .03076,    .08794,    .13743 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
     +     .47217,    .23083,   1.04598,    .10669,    .04491,
     +     .03124,    .08740,    .13615,
     +     .47072,    .22946,   1.02175,    .10577,    .04504,
     +     .03164,    .08684,    .13487,
     +     .46931,    .22814,    .99918,    .10488,    .04513,
     +     .03199,    .08627,    .13364,
     +     .46790,    .22688,    .97826,    .10404,    .04520,
     +     .03230,    .08573,    .13246,
     +     .46640,    .22556,    .95736,    .10316,    .04522,
     +     .03256,    .08515,    .13125 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
     +     .45679,    .25655,   1.59114,    .08484,    .00000,
     +     .00000,    .04893,    .12717,
     +     .46437,    .25873,   1.60831,    .08607,    .00000,
     +     .00000,    .05133,    .12848,
     +     .47406,    .26120,   1.64368,    .08778,   -.01226,
     +     .00000,    .05462,    .13007,
     +     .48005,    .26247,   1.64050,    .08893,   -.01027,
     +     .00000,    .05682,    .13101,
     +     .48557,    .26341,   1.62477,    .09005,   -.00625,
     +     .00000,    .05902,    .13184,
     +     .48976,    .26395,   1.60766,    .09087,   -.00316,
     +     .00000,    .06072,    .13239,
     +     .49337,    .26426,   1.58892,    .09156,   -.00034,
     +     .00000,    .06223,    .13277,
     +     .49680,    .26440,   1.56694,    .09220,    .00251,
     +     .00000,    .06367,    .13302 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
     +     .49935,    .26438,   1.54553,    .09265,    .00475,
     +     .00000,    .06481,    .13310,
     +     .50152,    .26420,   1.52353,    .09302,    .00679,
     +     .00000,    .06580,    .13308,
     +     .50308,    .26400,   1.50575,    .09325,    .00838,
     +     .00000,    .06652,    .13301,
     +     .50583,    .26328,   1.46714,    .09360,    .01147,
     +     .00000,    .06789,    .13268,
     +     .50738,    .26239,   1.43596,    .09376,    .01384,
     +    -.00452,    .06883,    .13222,
     +     .50862,    .26116,   1.38739,    .09375,    .01626,
     +    -.00101,    .06968,    .13149,
     +     .50938,    .25966,   1.33730,    .09355,    .01850,
     +     .00193,    .07035,    .13055,
     +     .50960,    .25814,   1.29233,    .09324,    .02031,
     +     .00437,    .07076,    .12953 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
     +     .50943,    .25648,   1.24764,    .09279,    .02195,
     +     .00660,    .07101,    .12838,
     +     .50898,    .25500,   1.21107,    .09234,    .02316,
     +     .00825,    .07111,    .12732,
     +     .50810,    .25306,   1.16748,    .09167,    .02444,
     +     .01005,    .07111,    .12595,
     +     .50707,    .25127,   1.12994,    .09102,    .02547,
     +     .01153,    .07101,    .12465,
     +     .50592,    .24958,   1.09640,    .09035,    .02632,
     +     .01277,    .07085,    .12342,
     +     .50415,    .24729,   1.05467,    .08942,    .02723,
     +     .01415,    .07053,    .12177,
     +     .50224,    .24509,   1.01673,    .08850,    .02798,
     +     .01533,    .07015,    .12013,
     +     .50025,    .24301,    .98246,    .08761,    .02860,
     +     .01634,    .06973,    .11858 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
     +     .49802,    .24083,    .94892,    .08663,    .02910,
     +     .01720,    .06923,    .11698,
     +     .49569,    .23868,    .91727,    .08565,    .02952,
     +     .01798,    .06869,    .11540,
     +     .49335,    .23661,    .88828,    .08471,    .02987,
     +     .01864,    .06814,    .11388,
     +     .49100,    .23460,    .86167,    .08378,    .03012,
     +     .01918,    .06759,    .11240,
     +     .48860,    .23259,    .83589,    .08286,    .03034,
     +     .01969,    .06702,    .11092,
     +     .48605,    .23055,    .81107,    .08190,    .03050,
     +     .02012,    .06641,    .10945,
     +     .48361,    .22863,    .78836,    .08099,    .03063,
     +     .02049,    .06583,    .10807,
     +     .48115,    .22677,    .76730,    .08010,    .03070,
     +     .02080,    .06523,    .10674 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
     +     .47866,    .22490,    .74678,    .07921,    .03076,
     +     .02108,    .06464,    .10541,
     +     .47611,    .22303,    .72702,    .07832,    .03079,
     +     .02132,    .06403,    .10407,
     +     .47363,    .22125,    .70871,    .07747,    .03079,
     +     .02152,    .06343,    .10280,
     +     .47125,    .21956,    .69182,    .07667,    .03077,
     +     .02169,    .06287,    .10161,
     +     .46874,    .21783,    .67507,    .07584,    .03073,
     +     .02183,    .06227,    .10039 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
     +     .50727,    .27497,   1.42585,    .06949,    .00000,
     +     .00000,    .04163,    .11500,
     +     .51400,    .27614,   1.41656,    .07031,    .00000,
     +     .00000,    .04339,    .11518,
     +     .52218,    .27696,   1.41693,    .07128,   -.01136,
     +     .00000,    .04572,    .11523,
     +     .52683,    .27702,   1.39348,    .07187,   -.00960,
     +     .00000,    .04721,    .11506,
     +     .53077,    .27671,   1.36113,    .07243,   -.00639,
     +     .00000,    .04865,    .11478,
     +     .53351,    .27615,   1.33178,    .07278,   -.00393,
     +     .00000,    .04972,    .11441,
     +     .53562,    .27543,   1.30292,    .07303,   -.00173,
     +     .00000,    .05064,    .11392,
     +     .53739,    .27448,   1.27171,    .07321,    .00048,
     +     .00000,    .05150,    .11331 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
     +     .53849,    .27347,   1.24379,    .07328,    .00220,
     +     .00000,    .05210,    .11270,
     +     .53922,    .27237,   1.21653,    .07328,    .00376,
     +     .00000,    .05262,    .11203,
     +     .53961,    .27145,   1.19511,    .07325,    .00495,
     +     .00000,    .05298,    .11146,
     +     .53982,    .26925,   1.15025,    .07306,    .00725,
     +     .00000,    .05359,    .11020,
     +     .53922,    .26705,   1.11579,    .07278,    .00899,
     +    -.00402,    .05395,    .10896,
     +     .53798,    .26446,   1.06698,    .07234,    .01074,
     +    -.00146,    .05420,    .10747,
     +     .53613,    .26160,   1.01798,    .07175,    .01234,
     +     .00068,    .05431,    .10580,
     +     .53403,    .25886,    .97506,    .07113,    .01360,
     +     .00241,    .05426,    .10422 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
     +     .53151,    .25600,    .93329,    .07042,    .01473,
     +     .00399,    .05410,    .10254,
     +     .52915,    .25354,    .89973,    .06976,    .01555,
     +     .00515,    .05389,    .10112,
     +     .52595,    .25049,    .86046,    .06889,    .01641,
     +     .00640,    .05355,    .09933,
     +     .52290,    .24774,    .82711,    .06810,    .01708,
     +     .00741,    .05318,    .09775,
     +     .51994,    .24518,    .79770,    .06733,    .01763,
     +     .00826,    .05279,    .09628,
     +     .51587,    .24189,    .76163,    .06632,    .01820,
     +     .00918,    .05224,    .09435,
     +     .51184,    .23876,    .72930,    .06533,    .01866,
     +     .00996,    .05167,    .09254,
     +     .50795,    .23582,    .70040,    .06438,    .01902,
     +     .01061,    .05110,    .09084 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
     +     .50382,    .23283,    .67250,    .06340,    .01930,
     +     .01116,    .05049,    .08912,
     +     .49969,    .22989,    .64644,    .06244,    .01954,
     +     .01166,    .04987,    .08745,
     +     .49572,    .22712,    .62279,    .06151,    .01971,
     +     .01207,    .04926,    .08590,
     +     .49181,    .22448,    .60127,    .06062,    .01982,
     +     .01240,    .04866,    .08442,
     +     .48787,    .22185,    .58057,    .05974,    .01992,
     +     .01270,    .04806,    .08295,
     +     .48384,    .21925,    .56083,    .05886,    .01997,
     +     .01295,    .04742,    .08150,
     +     .48003,    .21680,    .54286,    .05803,    .02001,
     +     .01318,    .04683,    .08014,
     +     .47632,    .21445,    .52636,    .05722,    .02002,
     +     .01335,    .04626,    .07887 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
     +     .47261,    .21210,    .51036,    .05641,    .02001,
     +     .01350,    .04568,    .07760,
     +     .46886,    .20978,    .49505,    .05561,    .01998,
     +     .01362,    .04511,    .07635,
     +     .46526,    .20757,    .48095,    .05487,    .01993,
     +     .01373,    .04456,    .07518,
     +     .46182,    .20549,    .46800,    .05416,    .01988,
     +     .01381,    .04403,    .07407,
     +     .45828,    .20339,    .45525,    .05345,    .01981,
     +     .01388,    .04349,    .07293 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
     +     .54947,    .28715,   1.25560,    .05717,    .00000,
     +     .00000,    .03549,    .10262,
     +     .55480,    .28698,   1.23144,    .05760,    .00000,
     +     .00000,    .03676,    .10197,
     +     .56048,    .28597,   1.21174,    .05810,   -.01019,
     +     .00000,    .03834,    .10081,
     +     .56315,    .28470,   1.17812,    .05839,   -.00865,
     +     .00000,    .03935,    .09981,
     +     .56504,    .28300,   1.13833,    .05856,   -.00605,
     +     .00000,    .04023,    .09878,
     +     .56591,    .28127,   1.10385,    .05864,   -.00408,
     +     .00000,    .04088,    .09778,
     +     .56622,    .27947,   1.07112,    .05861,   -.00232,
     +     .00000,    .04139,    .09675,
     +     .56601,    .27739,   1.03680,    .05852,   -.00059,
     +     .00000,    .04183,    .09561 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
     +     .56541,    .27543,   1.00697,    .05839,    .00076,
     +     .00000,    .04214,    .09457,
     +     .56447,    .27344,    .97858,    .05820,    .00197,
     +     .00000,    .04235,    .09352,
     +     .56354,    .27184,    .95655,    .05802,    .00288,
     +     .00000,    .04249,    .09268,
     +     .56096,    .26818,    .91139,    .05756,    .00463,
     +     .00000,    .04265,    .09082,
     +     .55798,    .26489,    .87726,    .05709,    .00595,
     +    -.00347,    .04268,    .08918,
     +     .55415,    .26104,    .83155,    .05646,    .00725,
     +    -.00156,    .04259,    .08732,
     +     .54963,    .25694,    .78645,    .05572,    .00842,
     +     .00003,    .04238,    .08532,
     +     .54514,    .25316,    .74756,    .05499,    .00933,
     +     .00131,    .04209,    .08348 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
     +     .54033,    .24927,    .71027,    .05417,    .01013,
     +     .00245,    .04171,    .08163,
     +     .53606,    .24603,    .68068,    .05347,    .01070,
     +     .00328,    .04134,    .08007,
     +     .53061,    .24205,    .64641,    .05258,    .01130,
     +     .00418,    .04086,    .07816,
     +     .52564,    .23853,    .61767,    .05177,    .01175,
     +     .00489,    .04039,    .07649,
     +     .52094,    .23531,    .59255,    .05101,    .01211,
     +     .00548,    .03993,    .07497,
     +     .51476,    .23116,    .56209,    .05002,    .01249,
     +     .00612,    .03929,    .07304,
     +     .50884,    .22729,    .53505,    .04906,    .01278,
     +     .00665,    .03868,    .07126,
     +     .50322,    .22369,    .51109,    .04818,    .01300,
     +     .00710,    .03807,    .06961 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
     +     .49743,    .22008,    .48817,    .04725,    .01316,
     +     .00747,    .03744,    .06799,
     +     .49171,    .21658,    .46691,    .04637,    .01329,
     +     .00779,    .03682,    .06641,
     +     .48625,    .21329,    .44775,    .04553,    .01338,
     +     .00806,    .03623,    .06494,
     +     .48102,    .21020,    .43047,    .04474,    .01343,
     +     .00827,    .03566,    .06356,
     +     .47578,    .20714,    .41395,    .04396,    .01346,
     +     .00846,    .03509,    .06220,
     +     .47054,    .20412,    .39833,    .04318,    .01346,
     +     .00860,    .03451,    .06089,
     +     .46562,    .20129,    .38417,    .04243,    .01346,
     +     .00874,    .03398,    .05967,
     +     .46086,    .19861,    .37122,    .04174,    .01344,
     +     .00884,    .03346,    .05851 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
     +     .45612,    .19593,    .35872,    .04106,    .01340,
     +     .00893,    .03294,    .05737,
     +     .45138,    .19332,    .34683,    .04039,    .01335,
     +     .00899,    .03243,    .05626,
     +     .44688,    .19086,    .33593,    .03974,    .01330,
     +     .00905,    .03194,    .05523,
     +     .44262,    .18855,    .32597,    .03915,    .01324,
     +     .00908,    .03147,    .05425,
     +     .43825,    .18621,    .31622,    .03854,    .01317,
     +     .00911,    .03101,    .05327 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
     +     .58396,    .29401,   1.09524,    .04720,    .00000,
     +     .00000,    .03008,    .08997,
     +     .58715,    .29251,   1.06310,    .04751,    .00000,
     +     .00000,    .03090,    .08868,
     +     .58962,    .28956,   1.03211,    .04772,   -.00901,
     +     .00000,    .03195,    .08666,
     +     .58992,    .28697,    .99398,    .04778,   -.00767,
     +     .00000,    .03256,    .08517,
     +     .58928,    .28395,    .95153,    .04780,   -.00554,
     +     .00000,    .03313,    .08360,
     +     .58801,    .28111,    .91571,    .04768,   -.00394,
     +     .00000,    .03345,    .08225,
     +     .58626,    .27826,    .88231,    .04753,   -.00252,
     +     .00000,    .03370,    .08090,
     +     .58390,    .27514,    .84787,    .04734,   -.00114,
     +     .00000,    .03389,    .07941 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
     +     .58140,    .27233,    .81853,    .04710,   -.00007,
     +     .00000,    .03397,    .07812,
     +     .57870,    .26952,    .79092,    .04680,    .00089,
     +     .00000,    .03400,    .07689,
     +     .57644,    .26724,    .76973,    .04653,    .00161,
     +     .00000,    .03400,    .07592,
     +     .57096,    .26235,    .72670,    .04595,    .00297,
     +     .00000,    .03389,    .07383,
     +     .56561,    .25802,    .69478,    .04538,    .00397,
     +    -.00296,    .03372,    .07204,
     +     .55919,    .25313,    .65339,    .04469,    .00495,
     +    -.00151,    .03344,    .07005,
     +     .55210,    .24800,    .61307,    .04389,    .00583,
     +    -.00030,    .03305,    .06799,
     +     .54538,    .24333,    .57874,    .04313,    .00650,
     +     .00065,    .03265,    .06612 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
     +     .53835,    .23864,    .54617,    .04231,    .00708,
     +     .00150,    .03220,    .06425,
     +     .53232,    .23475,    .52058,    .04161,    .00750,
     +     .00212,    .03178,    .06274,
     +     .52485,    .23003,    .49123,    .04077,    .00792,
     +     .00277,    .03124,    .06090,
     +     .51816,    .22589,    .46681,    .04000,    .00823,
     +     .00329,    .03073,    .05932,
     +     .51195,    .22212,    .44563,    .03927,    .00848,
     +     .00371,    .03025,    .05789,
     +     .50391,    .21738,    .42023,    .03835,    .00872,
     +     .00416,    .02964,    .05609,
     +     .49630,    .21299,    .39785,    .03749,    .00892,
     +     .00454,    .02903,    .05444,
     +     .48919,    .20893,    .37813,    .03667,    .00906,
     +     .00485,    .02847,    .05295 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
     +     .48196,    .20488,    .35947,    .03587,    .00914,
     +     .00509,    .02789,    .05146,
     +     .47491,    .20098,    .34224,    .03509,    .00922,
     +     .00531,    .02733,    .05005,
     +     .46824,    .19734,    .32683,    .03436,    .00926,
     +     .00549,    .02678,    .04874,
     +     .46194,    .19394,    .31300,    .03366,    .00928,
     +     .00563,    .02627,    .04755,
     +     .45569,    .19059,    .29985,    .03296,    .00928,
     +     .00575,    .02576,    .04637,
     +     .44947,    .18732,    .28750,    .03228,    .00927,
     +     .00585,    .02526,    .04523,
     +     .44364,    .18428,    .27636,    .03166,    .00924,
     +     .00592,    .02479,    .04416,
     +     .43809,    .18140,    .26624,    .03106,    .00921,
     +     .00598,    .02434,    .04318 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
     +     .43258,    .17854,    .25649,    .03047,    .00916,
     +     .00603,    .02389,    .04222,
     +     .42710,    .17574,    .24727,    .02990,    .00912,
     +     .00607,    .02346,    .04129,
     +     .42191,    .17312,    .23883,    .02936,    .00906,
     +     .00609,    .02306,    .04041,
     +     .41704,    .17066,    .23115,    .02885,    .00901,
     +     .00611,    .02268,    .03959,
     +     .41210,    .16819,    .22368,    .02834,    .00894,
     +     .00612,    .02228,    .03879 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
     +     .61093,    .29640,    .94965,    .03930,    .00000,
     +     .00000,    .02520,    .07721,
     +     .61159,    .29352,    .91360,    .03940,    .00000,
     +     .00000,    .02576,    .07556,
     +     .61036,    .28856,    .87652,    .03946,   -.00792,
     +     .00000,    .02641,    .07308,
     +     .60803,    .28464,    .83698,    .03936,   -.00673,
     +     .00000,    .02676,    .07136,
     +     .60466,    .28035,    .79460,    .03923,   -.00498,
     +     .00000,    .02705,    .06958,
     +     .60106,    .27648,    .75934,    .03906,   -.00366,
     +     .00000,    .02722,    .06800,
     +     .59715,    .27269,    .72690,    .03883,   -.00251,
     +     .00000,    .02729,    .06653,
     +     .59259,    .26859,    .69390,    .03850,   -.00139,
     +     .00000,    .02731,    .06499 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
     +     .58824,    .26496,    .66609,    .03818,   -.00053,
     +     .00000,    .02729,    .06365,
     +     .58375,    .26144,    .64021,    .03786,    .00023,
     +     .00000,    .02721,    .06236,
     +     .58005,    .25864,    .62050,    .03759,    .00079,
     +     .00000,    .02712,    .06134,
     +     .57180,    .25264,    .58083,    .03692,    .00186,
     +     .00000,    .02689,    .05924,
     +     .56412,    .24749,    .55170,    .03632,    .00264,
     +    -.00249,    .02662,    .05746,
     +     .55527,    .24172,    .51493,    .03562,    .00340,
     +    -.00137,    .02625,    .05551,
     +     .54577,    .23577,    .47954,    .03481,    .00406,
     +    -.00045,    .02581,    .05353,
     +     .53697,    .23039,    .44971,    .03407,    .00456,
     +     .00027,    .02538,    .05178 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
     +     .52796,    .22504,    .42165,    .03329,    .00499,
     +     .00091,    .02489,    .05006,
     +     .52039,    .22066,    .39985,    .03264,    .00529,
     +     .00136,    .02446,    .04865,
     +     .51113,    .21541,    .37500,    .03185,    .00559,
     +     .00185,    .02394,    .04698,
     +     .50292,    .21083,    .35451,    .03112,    .00582,
     +     .00223,    .02345,    .04554,
     +     .49540,    .20671,    .33687,    .03047,    .00599,
     +     .00253,    .02302,    .04427,
     +     .48579,    .20154,    .31582,    .02965,    .00616,
     +     .00286,    .02243,    .04268,
     +     .47682,    .19676,    .29743,    .02888,    .00627,
     +     .00312,    .02189,    .04125,
     +     .46851,    .19238,    .28137,    .02816,    .00637,
     +     .00334,    .02137,    .03993 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
     +     .46013,    .18808,    .26624,    .02743,    .00642,
     +     .00351,    .02086,    .03867,
     +     .45203,    .18396,    .25240,    .02673,    .00645,
     +     .00366,    .02036,    .03746,
     +     .44443,    .18011,    .24007,    .02610,    .00648,
     +     .00379,    .01989,    .03635,
     +     .43728,    .17654,    .22909,    .02550,    .00647,
     +     .00387,    .01945,    .03533,
     +     .43022,    .17303,    .21867,    .02491,    .00646,
     +     .00395,    .01903,    .03433,
     +     .42326,    .16963,    .20895,    .02434,    .00644,
     +     .00401,    .01859,    .03338,
     +     .41676,    .16648,    .20023,    .02381,    .00641,
     +     .00406,    .01820,    .03250,
     +     .41062,    .16352,    .19233,    .02330,    .00638,
     +     .00410,    .01782,    .03169 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
     +     .40453,    .16059,    .18477,    .02279,    .00633,
     +     .00412,    .01745,    .03089,
     +     .39853,    .15773,    .17764,    .02231,    .00629,
     +     .00414,    .01708,    .03012,
     +     .39287,    .15506,    .17113,    .02186,    .00625,
     +     .00416,    .01674,    .02942,
     +     .38757,    .15257,    .16524,    .02145,    .00619,
     +     .00416,    .01642,    .02875,
     +     .38220,    .15008,    .15952,    .02103,    .00614,
     +     .00416,    .01611,    .02808 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
     +     .63072,    .29480,    .81923,    .03289,    .00000,
     +     .00000,    .02083,    .06487,
     +     .62853,    .29051,    .78155,    .03291,    .00000,
     +     .00000,    .02126,    .06304,
     +     .62323,    .28372,    .74161,    .03279,   -.00692,
     +     .00000,    .02168,    .06047,
     +     .61808,    .27857,    .70244,    .03263,   -.00589,
     +     .00000,    .02189,    .05865,
     +     .61193,    .27307,    .66157,    .03239,   -.00441,
     +     .00000,    .02201,    .05684,
     +     .60598,    .26827,    .62802,    .03214,   -.00333,
     +     .00000,    .02205,    .05527,
     +     .59988,    .26365,    .59746,    .03185,   -.00238,
     +     .00000,    .02205,    .05379,
     +     .59306,    .25874,    .56665,    .03149,   -.00147,
     +     .00000,    .02198,    .05225 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
     +     .58687,    .25444,    .54100,    .03111,   -.00078,
     +     .00000,    .02187,    .05098,
     +     .58066,    .25030,    .51734,    .03075,   -.00017,
     +     .00000,    .02173,    .04976,
     +     .57565,    .24703,    .49945,    .03046,    .00028,
     +     .00000,    .02159,    .04880,
     +     .56471,    .24014,    .46364,    .02979,    .00112,
     +     .00000,    .02128,    .04683,
     +     .55498,    .23426,    .43757,    .02916,    .00174,
     +    -.00207,    .02097,    .04520,
     +     .54388,    .22781,    .40544,    .02849,    .00232,
     +    -.00122,    .02057,    .04341,
     +     .53224,    .22122,    .37478,    .02773,    .00282,
     +    -.00051,    .02013,    .04161,
     +     .52162,    .21536,    .34920,    .02702,    .00321,
     +     .00004,    .01968,    .04002 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
     +     .51089,    .20958,    .32535,    .02630,    .00352,
     +     .00052,    .01923,    .03850,
     +     .50199,    .20484,    .30694,    .02569,    .00375,
     +     .00088,    .01882,    .03728,
     +     .49121,    .19920,    .28616,    .02497,    .00397,
     +     .00123,    .01833,    .03583,
     +     .48176,    .19436,    .26912,    .02432,    .00413,
     +     .00151,    .01790,    .03458,
     +     .47319,    .19001,    .25453,    .02372,    .00425,
     +     .00173,    .01750,    .03348,
     +     .46232,    .18460,    .23732,    .02299,    .00436,
     +     .00197,    .01698,    .03214,
     +     .45225,    .17964,    .22240,    .02230,    .00444,
     +     .00216,    .01650,    .03092,
     +     .44298,    .17510,    .20943,    .02166,    .00450,
     +     .00232,    .01607,    .02982 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
     +     .43373,    .17066,    .19730,    .02104,    .00453,
     +     .00244,    .01561,    .02876,
     +     .42483,    .16643,    .18625,    .02045,    .00455,
     +     .00254,    .01518,    .02776,
     +     .41652,    .16252,    .17646,    .01992,    .00455,
     +     .00262,    .01478,    .02684,
     +     .40877,    .15891,    .16780,    .01941,    .00454,
     +     .00268,    .01441,    .02600,
     +     .40113,    .15539,    .15962,    .01891,    .00452,
     +     .00273,    .01404,    .02519,
     +     .39370,    .15194,    .15203,    .01842,    .00450,
     +     .00277,    .01369,    .02442,
     +     .38678,    .14875,    .14524,    .01796,    .00448,
     +     .00281,    .01337,    .02372,
     +     .38024,    .14579,    .13913,    .01754,    .00444,
     +     .00282,    .01305,    .02306 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
     +     .37378,    .14289,    .13328,    .01713,    .00441,
     +     .00284,    .01275,    .02242,
     +     .36745,    .14006,    .12781,    .01673,    .00436,
     +     .00285,    .01246,    .02180,
     +     .36151,    .13742,    .12284,    .01636,    .00432,
     +     .00285,    .01219,    .02122,
     +     .35596,    .13496,    .11833,    .01602,    .00428,
     +     .00285,    .01192,    .02070,
     +     .35038,    .13250,    .11399,    .01566,    .00424,
     +     .00285,    .01166,    .02019 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
     +     .64379,    .28945,    .70230,    .02740,    .00000,
     +     .00000,    .01717,    .05350,
     +     .63838,    .28400,    .66470,    .02745,    .00000,
     +     .00000,    .01749,    .05157,
     +     .62876,    .27557,    .62407,    .02728,   -.00601,
     +     .00000,    .01766,    .04907,
     +     .62069,    .26937,    .58648,    .02712,   -.00510,
     +     .00000,    .01774,    .04729,
     +     .61164,    .26293,    .54803,    .02688,   -.00388,
     +     .00000,    .01777,    .04553,
     +     .60338,    .25733,    .51680,    .02654,   -.00298,
     +     .00000,    .01773,    .04409,
     +     .59517,    .25201,    .48861,    .02622,   -.00219,
     +     .00000,    .01764,    .04273,
     +     .58621,    .24644,    .46051,    .02587,   -.00145,
     +     .00000,    .01748,    .04131 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
     +     .57827,    .24157,    .43729,    .02551,   -.00089,
     +     .00000,    .01734,    .04012,
     +     .57047,    .23693,    .41604,    .02514,   -.00040,
     +     .00000,    .01717,    .03901,
     +     .56426,    .23333,    .40002,    .02486,   -.00003,
     +     .00000,    .01703,    .03813,
     +     .55084,    .22578,    .36836,    .02420,    .00064,
     +     .00000,    .01669,    .03635,
     +     .53922,    .21944,    .34538,    .02362,    .00112,
     +    -.00172,    .01636,    .03492,
     +     .52624,    .21248,    .31768,    .02293,    .00157,
     +    -.00105,    .01597,    .03337,
     +     .51276,    .20543,    .29149,    .02220,    .00196,
     +    -.00051,    .01556,    .03182,
     +     .50060,    .19923,    .26980,    .02154,    .00226,
     +    -.00008,    .01515,    .03049 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
     +     .48845,    .19316,    .24978,    .02088,    .00250,
     +     .00029,    .01472,    .02917,
     +     .47845,    .18826,    .23448,    .02036,    .00266,
     +     .00054,    .01436,    .02811,
     +     .46649,    .18244,    .21729,    .01968,    .00281,
     +     .00081,    .01393,    .02691,
     +     .45607,    .17742,    .20333,    .01909,    .00293,
     +     .00102,    .01354,    .02588,
     +     .44666,    .17296,    .19146,    .01860,    .00301,
     +     .00118,    .01318,    .02497,
     +     .43485,    .16745,    .17753,    .01794,    .00310,
     +     .00136,    .01275,    .02384,
     +     .42397,    .16244,    .16552,    .01736,    .00315,
     +     .00150,    .01234,    .02284,
     +     .41401,    .15790,    .15516,    .01683,    .00319,
     +     .00161,    .01196,    .02193 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
     +     .40418,    .15341,    .14554,    .01629,    .00321,
     +     .00170,    .01159,    .02109,
     +     .39477,    .14918,    .13683,    .01576,    .00321,
     +     .00177,    .01124,    .02029,
     +     .38604,    .14528,    .12915,    .01528,    .00321,
     +     .00182,    .01092,    .01957,
     +     .37791,    .14171,    .12239,    .01485,    .00320,
     +     .00187,    .01062,    .01889,
     +     .36995,    .13823,    .11603,    .01445,    .00318,
     +     .00190,    .01032,    .01823,
     +     .36220,    .13486,    .11017,    .01403,    .00315,
     +     .00192,    .01003,    .01763,
     +     .35503,    .13174,    .10495,    .01365,    .00313,
     +     .00195,    .00977,    .01706,
     +     .34829,    .12885,    .10026,    .01329,    .00310,
     +     .00195,    .00952,    .01656 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
     +     .34165,    .12602,    .09581,    .01294,    .00307,
     +     .00196,    .00926,    .01606,
     +     .33518,    .12328,    .09164,    .01262,    .00304,
     +     .00197,    .00903,    .01558,
     +     .32913,    .12071,    .08788,    .01231,    .00301,
     +     .00197,    .00881,    .01514,
     +     .32348,    .11833,    .08449,    .01203,    .00297,
     +     .00196,    .00862,    .01472,
     +     .31782,    .11597,    .08122,    .01176,    .00294,
     +     .00196,    .00842,    .01432 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
     +     .64887,    .28228,    .59758,    .02385,    .00000,
     +     .00000,    .01337,    .04254,
     +     .64053,    .27554,    .56099,    .02375,    .00000,
     +     .00000,    .01357,    .04091,
     +     .62680,    .26550,    .52095,    .02340,   -.00519,
     +     .00000,    .01385,    .03862,
     +     .61599,    .25835,    .48558,    .02309,   -.00439,
     +     .00000,    .01392,    .03707,
     +     .60444,    .25088,    .45007,    .02268,   -.00337,
     +     .00000,    .01391,    .03561,
     +     .59399,    .24463,    .42155,    .02235,   -.00261,
     +     .00000,    .01386,    .03430,
     +     .58387,    .23869,    .39604,    .02197,   -.00197,
     +     .00000,    .01375,    .03313,
     +     .57305,    .23251,    .37076,    .02152,   -.00136,
     +     .00000,    .01363,    .03195 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
     +     .56344,    .22731,    .35016,    .02119,   -.00090,
     +     .00000,    .01349,    .03085,
     +     .55422,    .22231,    .33139,    .02081,   -.00051,
     +     .00000,    .01333,    .02991,
     +     .54697,    .21838,    .31736,    .02047,   -.00021,
     +     .00000,    .01319,    .02920,
     +     .53147,    .21034,    .28981,    .01984,    .00033,
     +     .00000,    .01290,    .02764,
     +     .51828,    .20360,    .26995,    .01925,    .00071,
     +    -.00141,    .01259,    .02646,
     +     .50369,    .19635,    .24636,    .01860,    .00106,
     +    -.00088,    .01224,    .02515,
     +     .48864,    .18907,    .22432,    .01794,    .00136,
     +    -.00046,    .01186,    .02388,
     +     .47524,    .18268,    .20629,    .01733,    .00158,
     +    -.00014,    .01151,    .02277 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
     +     .46203,    .17645,    .18975,    .01672,    .00176,
     +     .00014,    .01116,    .02168,
     +     .45124,    .17145,    .17718,    .01620,    .00188,
     +     .00034,    .01087,    .02081,
     +     .43837,    .16554,    .16321,    .01560,    .00200,
     +     .00054,    .01050,    .01984,
     +     .42726,    .16052,    .15192,    .01510,    .00208,
     +     .00069,    .01015,    .01904,
     +     .41726,    .15606,    .14238,    .01464,    .00214,
     +     .00081,    .00985,    .01832,
     +     .40486,    .15054,    .13129,    .01405,    .00220,
     +     .00094,    .00948,    .01743,
     +     .39348,    .14555,    .12180,    .01353,    .00223,
     +     .00104,    .00916,    .01663,
     +     .38310,    .14105,    .11366,    .01307,    .00225,
     +     .00112,    .00887,    .01590 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
     +     .37288,    .13670,    .10615,    .01262,    .00227,
     +     .00118,    .00857,    .01521,
     +     .36318,    .13256,    .09941,    .01218,    .00227,
     +     .00123,    .00827,    .01458,
     +     .35425,    .12878,    .09349,    .01177,    .00226,
     +     .00127,    .00798,    .01404,
     +     .34596,    .12530,    .08829,    .01140,    .00225,
     +     .00130,    .00774,    .01352,
     +     .33786,    .12192,    .08342,    .01103,    .00224,
     +     .00133,    .00750,    .01302,
     +     .33001,    .11868,    .07897,    .01069,    .00221,
     +     .00134,    .00727,    .01256,
     +     .32275,    .11570,    .07500,    .01038,    .00219,
     +     .00135,    .00706,    .01216,
     +     .31596,    .11293,    .07148,    .01009,    .00217,
     +     .00136,    .00688,    .01174 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
     +     .30931,    .11023,    .06812,    .00983,    .00214,
     +     .00136,    .00670,    .01134,
     +     .30282,    .10761,    .06501,    .00956,    .00212,
     +     .00136,    .00652,    .01097,
     +     .29678,    .10519,    .06221,    .00931,    .00209,
     +     .00136,    .00635,    .01064,
     +     .29117,    .10294,    .05969,    .00907,    .00206,
     +     .00136,    .00619,    .01033,
     +     .28559,    .10069,    .05726,    .00884,    .00204,
     +     .00135,    .00602,    .01003 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
     +     .64850,    .27148,    .50194,    .02005,    .00000,
     +     .00000,    .01076,    .03343,
     +     .63699,    .26377,    .46731,    .01987,    .00000,
     +     .00000,    .01090,    .03205,
     +     .61903,    .25258,    .42926,    .01951,   -.00443,
     +     .00000,    .01102,    .03006,
     +     .60564,    .24462,    .39683,    .01913,   -.00373,
     +     .00000,    .01102,    .02876,
     +     .59137,    .23665,    .36474,    .01878,   -.00288,
     +     .00000,    .01099,    .02745,
     +     .57895,    .22986,    .33926,    .01844,   -.00226,
     +     .00000,    .01092,    .02632,
     +     .56702,    .22354,    .31661,    .01810,   -.00173,
     +     .00000,    .01083,    .02530,
     +     .55442,    .21700,    .29444,    .01769,   -.00124,
     +     .00000,    .01067,    .02424 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
     +     .54357,    .21138,    .27642,    .01729,   -.00086,
     +     .00000,    .01052,    .02346,
     +     .53310,    .20611,    .26026,    .01690,   -.00054,
     +     .00000,    .01036,    .02266,
     +     .52489,    .20206,    .24821,    .01662,   -.00032,
     +     .00000,    .01025,    .02203,
     +     .50764,    .19370,    .22471,    .01598,    .00011,
     +     .00000,    .00994,    .02080,
     +     .49305,    .18689,    .20781,    .01549,    .00041,
     +    -.00114,    .00969,    .01979,
     +     .47710,    .17948,    .18820,    .01489,    .00069,
     +    -.00074,    .00938,    .01873,
     +     .46094,    .17209,    .17000,    .01428,    .00092,
     +    -.00041,    .00904,    .01770,
     +     .44664,    .16568,    .15524,    .01375,    .00109,
     +    -.00016,    .00871,    .01679 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
     +     .43259,    .15948,    .14183,    .01322,    .00122,
     +     .00004,    .00842,    .01592,
     +     .42124,    .15447,    .13173,    .01276,    .00132,
     +     .00020,    .00814,    .01526,
     +     .40779,    .14866,    .12058,    .01223,    .00140,
     +     .00034,    .00783,    .01449,
     +     .39621,    .14371,    .11164,    .01178,    .00147,
     +     .00046,    .00757,    .01382,
     +     .38586,    .13933,    .10414,    .01141,    .00150,
     +     .00055,    .00735,    .01323,
     +     .37305,    .13397,    .09547,    .01091,    .00154,
     +     .00064,    .00704,    .01254,
     +     .36141,    .12913,    .08809,    .01046,    .00157,
     +     .00071,    .00676,    .01196,
     +     .35086,    .12476,    .08182,    .01005,    .00158,
     +     .00077,    .00651,    .01144 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
     +     .34056,    .12056,    .07609,    .00967,    .00159,
     +     .00082,    .00627,    .01089,
     +     .33078,    .11661,    .07095,    .00932,    .00159,
     +     .00085,    .00604,    .01039,
     +     .32180,    .11301,    .06647,    .00899,    .00158,
     +     .00088,    .00584,    .00995,
     +     .31351,    .10971,    .06256,    .00868,    .00157,
     +     .00090,    .00565,    .00956,
     +     .30545,    .10650,    .05894,    .00838,    .00156,
     +     .00092,    .00545,    .00918,
     +     .29766,    .10343,    .05562,    .00811,    .00154,
     +     .00093,    .00527,    .00883,
     +     .29049,    .10061,    .05270,    .00785,    .00152,
     +     .00093,    .00511,    .00850,
     +     .28381,    .09800,    .05010,    .00761,    .00150,
     +     .00093,    .00495,    .00821 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
     +     .27727,    .09546,    .04765,    .00737,    .00149,
     +     .00094,    .00479,    .00793,
     +     .27094,    .09302,    .04536,    .00715,    .00147,
     +     .00094,    .00465,    .00766,
     +     .26504,    .09075,    .04331,    .00694,    .00145,
     +     .00094,    .00452,    .00741,
     +     .25958,    .08865,    .04147,    .00675,    .00143,
     +     .00094,    .00441,    .00718,
     +     .25413,    .08658,    .03972,    .00658,    .00140,
     +     .00092,    .00428,    .00694 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
     +     .64145,    .25905,    .41501,    .01713,    .00000,
     +     .00000,    .00827,    .02556,
     +     .62704,    .25049,    .38305,    .01686,    .00000,
     +     .00000,    .00844,    .02438,
     +     .60527,    .23827,    .34774,    .01643,   -.00375,
     +     .00000,    .00855,    .02279,
     +     .58936,    .22980,    .31865,    .01610,   -.00315,
     +     .00000,    .00852,    .02170,
     +     .57284,    .22131,    .29031,    .01570,   -.00244,
     +     .00000,    .00849,    .02061,
     +     .55875,    .21411,    .26797,    .01528,   -.00192,
     +     .00000,    .00843,    .01977,
     +     .54531,    .20747,    .24835,    .01492,   -.00149,
     +     .00000,    .00833,    .01895,
     +     .53118,    .20071,    .22930,    .01454,   -.00109,
     +     .00000,    .00821,    .01810 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
     +     .51910,    .19497,    .21404,    .01417,   -.00079,
     +     .00000,    .00808,    .01741,
     +     .50762,    .18959,    .20030,    .01382,   -.00053,
     +     .00000,    .00796,    .01676,
     +     .49868,    .18546,    .19014,    .01353,   -.00035,
     +     .00000,    .00784,    .01628,
     +     .47999,    .17698,    .17061,    .01299,   -.00001,
     +     .00000,    .00756,    .01529,
     +     .46447,    .17005,    .15664,    .01248,    .00022,
     +    -.00092,    .00734,    .01449,
     +     .44763,    .16267,    .14061,    .01193,    .00044,
     +    -.00060,    .00707,    .01364,
     +     .43065,    .15534,    .12593,    .01136,    .00062,
     +    -.00035,    .00679,    .01283,
     +     .41579,    .14898,    .11414,    .01084,    .00074,
     +    -.00017,    .00654,    .01216 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
     +     .40130,    .14284,    .10353,    .01035,    .00084,
     +    -.00001,    .00627,    .01152,
     +     .38955,    .13801,    .09559,    .00998,    .00091,
     +     .00011,    .00605,    .01098,
     +     .37577,    .13234,    .08688,    .00956,    .00098,
     +     .00022,    .00582,    .01037,
     +     .36398,    .12754,    .08000,    .00918,    .00102,
     +     .00030,    .00561,    .00985,
     +     .35350,    .12335,    .07424,    .00883,    .00105,
     +     .00037,    .00539,    .00944,
     +     .34065,    .11820,    .06765,    .00840,    .00108,
     +     .00044,    .00515,    .00891,
     +     .32899,    .11359,    .06210,    .00804,    .00110,
     +     .00049,    .00493,    .00842,
     +     .31844,    .10948,    .05740,    .00774,    .00111,
     +     .00053,    .00475,    .00798 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
     +     .30824,    .10546,    .05312,    .00738,    .00111,
     +     .00056,    .00455,    .00764,
     +     .29857,    .10173,    .04931,    .00707,    .00110,
     +     .00059,    .00438,    .00729,
     +     .28968,    .09835,    .04603,    .00682,    .00110,
     +     .00060,    .00421,    .00693,
     +     .28156,    .09525,    .04319,    .00656,    .00109,
     +     .00062,    .00405,    .00664,
     +     .27368,    .09225,    .04055,    .00632,    .00108,
     +     .00063,    .00391,    .00638,
     +     .26607,    .08939,    .03815,    .00611,    .00107,
     +     .00064,    .00377,    .00612,
     +     .25910,    .08678,    .03604,    .00592,    .00106,
     +     .00064,    .00364,    .00588,
     +     .25264,    .08438,    .03416,    .00572,    .00104,
     +     .00065,    .00353,    .00566 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
     +     .24635,    .08203,    .03240,    .00553,    .00103,
     +     .00065,    .00342,    .00545,
     +     .24025,    .07977,    .03077,    .00534,    .00101,
     +     .00064,    .00332,    .00525,
     +     .23459,    .07768,    .02933,    .00519,    .00099,
     +     .00064,    .00321,    .00507,
     +     .22934,    .07575,    .02803,    .00505,    .00098,
     +     .00064,    .00312,    .00490,
     +     .22414,    .07386,    .02680,    .00490,    .00096,
     +     .00063,    .00302,    .00474 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
     +     .62876,    .24476,    .33558,    .01439,    .00000,
     +     .00000,    .00632,    .01912,
     +     .61160,    .23555,    .30686,    .01415,    .00000,
     +     .00000,    .00652,    .01814,
     +     .58621,    .22268,    .27521,    .01371,   -.00313,
     +     .00000,    .00655,    .01691,
     +     .56833,    .21373,    .24975,    .01327,   -.00261,
     +     .00000,    .00659,    .01605,
     +     .54987,    .20491,    .22535,    .01288,   -.00203,
     +     .00000,    .00655,    .01519,
     +     .53417,    .19759,    .20632,    .01255,   -.00161,
     +     .00000,    .00649,    .01445,
     +     .51945,    .19081,    .18976,    .01221,   -.00126,
     +     .00000,    .00637,    .01385,
     +     .50419,    .18389,    .17381,    .01179,   -.00094,
     +     .00000,    .00626,    .01326 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
     +     .49120,    .17810,    .16112,    .01144,   -.00069,
     +     .00000,    .00616,    .01270,
     +     .47892,    .17270,    .14987,    .01113,   -.00049,
     +     .00000,    .00602,    .01220,
     +     .46941,    .16857,    .14160,    .01087,   -.00035,
     +     .00000,    .00592,    .01181,
     +     .44977,    .16007,    .12575,    .01032,   -.00008,
     +     .00000,    .00572,    .01105,
     +     .43357,    .15324,    .11454,    .00986,    .00010,
     +    -.00073,    .00551,    .01046,
     +     .41604,    .14602,    .10186,    .00941,    .00026,
     +    -.00049,    .00529,    .00980,
     +     .39860,    .13886,    .09031,    .00894,    .00040,
     +    -.00030,    .00505,    .00918,
     +     .38343,    .13272,    .08115,    .00851,    .00049,
     +    -.00016,    .00482,    .00866 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
     +     .36868,    .12685,    .07296,    .00810,    .00058,
     +    -.00003,    .00462,    .00817,
     +     .35682,    .12218,    .06692,    .00778,    .00063,
     +     .00005,    .00449,    .00776,
     +     .34295,    .11678,    .06040,    .00740,    .00067,
     +     .00013,    .00426,    .00730,
     +     .33125,    .11223,    .05523,    .00706,    .00070,
     +     .00019,    .00409,    .00694,
     +     .32094,    .10820,    .05098,    .00675,    .00073,
     +     .00025,    .00395,    .00660,
     +     .30812,    .10336,    .04614,    .00643,    .00074,
     +     .00029,    .00376,    .00620,
     +     .29661,    .09902,    .04208,    .00614,    .00076,
     +     .00033,    .00357,    .00587,
     +     .28631,    .09515,    .03868,    .00586,    .00077,
     +     .00037,    .00341,    .00558 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
     +     .27632,    .09143,    .03561,    .00559,    .00077,
     +     .00039,    .00326,    .00530,
     +     .26693,    .08795,    .03291,    .00534,    .00076,
     +     .00040,    .00313,    .00503,
     +     .25836,    .08479,    .03060,    .00515,    .00076,
     +     .00041,    .00300,    .00477,
     +     .25053,    .08194,    .02860,    .00494,    .00075,
     +     .00042,    .00288,    .00455,
     +     .24295,    .07920,    .02677,    .00473,    .00074,
     +     .00043,    .00276,    .00435,
     +     .23567,    .07658,    .02509,    .00456,    .00073,
     +     .00043,    .00267,    .00417,
     +     .22898,    .07419,    .02362,    .00441,    .00072,
     +     .00044,    .00259,    .00401,
     +     .22283,    .07198,    .02237,    .00424,    .00071,
     +     .00044,    .00249,    .00385 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
     +     .21685,    .06984,    .02118,    .00409,    .00070,
     +     .00043,    .00240,    .00369,
     +     .21108,    .06779,    .02007,    .00395,    .00069,
     +     .00044,    .00232,    .00355,
     +     .20574,    .06590,    .01909,    .00382,    .00068,
     +     .00044,    .00224,    .00343,
     +     .20081,    .06416,    .01821,    .00369,    .00067,
     +     .00043,    .00217,    .00332,
     +     .19591,    .06245,    .01739,    .00357,    .00065,
     +     .00043,    .00210,    .00319 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
     +     .61063,    .22901,    .26340,    .01185,    .00000,
     +     .00000,    .00488,    .01400,
     +     .59114,    .21930,    .23833,    .01155,    .00000,
     +     .00000,    .00501,    .01332,
     +     .56280,    .20591,    .21096,    .01109,   -.00257,
     +     .00000,    .00509,    .01233,
     +     .54292,    .19688,    .18941,    .01079,   -.00214,
     +     .00000,    .00506,    .01167,
     +     .52290,    .18792,    .16899,    .01041,   -.00166,
     +     .00000,    .00502,    .01102,
     +     .50601,    .18050,    .15333,    .01006,   -.00132,
     +     .00000,    .00494,    .01050,
     +     .49032,    .17371,    .13981,    .00972,   -.00104,
     +     .00000,    .00487,    .01002,
     +     .47419,    .16681,    .12689,    .00937,   -.00079,
     +     .00000,    .00476,    .00953 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
     +     .46051,    .16109,    .11673,    .00905,   -.00060,
     +     .00000,    .00467,    .00914,
     +     .44768,    .15575,    .10775,    .00877,   -.00043,
     +     .00000,    .00455,    .00877,
     +     .43777,    .15169,    .10117,    .00856,   -.00032,
     +     .00000,    .00445,    .00850,
     +     .41748,    .14345,    .08886,    .00807,   -.00012,
     +     .00000,    .00428,    .00788,
     +     .40088,    .13683,    .08020,    .00769,    .00002,
     +    -.00056,    .00413,    .00742,
     +     .38309,    .12983,    .07046,    .00730,    .00015,
     +    -.00038,    .00393,    .00696,
     +     .36547,    .12297,    .06176,    .00688,    .00025,
     +    -.00024,    .00374,    .00650,
     +     .35022,    .11712,    .05491,    .00653,    .00032,
     +    -.00014,    .00357,    .00611 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
     +     .33551,    .11153,    .04892,    .00619,    .00038,
     +    -.00004,    .00339,    .00570,
     +     .32382,    .10713,    .04450,    .00590,    .00042,
     +     .00002,    .00326,    .00541,
     +     .31018,    .10202,    .03974,    .00559,    .00045,
     +     .00008,    .00311,    .00510,
     +     .29864,    .09774,    .03607,    .00532,    .00048,
     +     .00012,    .00298,    .00482,
     +     .28851,    .09402,    .03304,    .00509,    .00050,
     +     .00016,    .00287,    .00457,
     +     .27615,    .08950,    .02967,    .00481,    .00050,
     +     .00019,    .00270,    .00429,
     +     .26503,    .08547,    .02687,    .00456,    .00052,
     +     .00022,    .00257,    .00405,
     +     .25507,    .08189,    .02454,    .00434,    .00052,
     +     .00024,    .00245,    .00383 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
     +     .24546,    .07850,    .02247,    .00415,    .00052,
     +     .00026,    .00234,    .00360,
     +     .23647,    .07533,    .02064,    .00396,    .00051,
     +     .00027,    .00224,    .00340,
     +     .22832,    .07245,    .01911,    .00375,    .00051,
     +     .00027,    .00214,    .00324,
     +     .22086,    .06984,    .01777,    .00361,    .00051,
     +     .00028,    .00204,    .00311,
     +     .21366,    .06733,    .01656,    .00347,    .00050,
     +     .00029,    .00197,    .00296,
     +     .20680,    .06495,    .01548,    .00333,    .00050,
     +     .00029,    .00189,    .00282,
     +     .20053,    .06279,    .01453,    .00320,    .00049,
     +     .00030,    .00182,    .00271,
     +     .19476,    .06081,    .01371,    .00309,    .00048,
     +     .00029,    .00175,    .00260 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
     +     .18915,    .05889,    .01295,    .00296,    .00048,
     +     .00030,    .00169,    .00249,
     +     .18377,    .05706,    .01226,    .00285,    .00046,
     +     .00029,    .00162,    .00238,
     +     .17878,    .05538,    .01164,    .00275,    .00045,
     +     .00029,    .00157,    .00229,
     +     .17420,    .05383,    .01110,    .00267,    .00045,
     +     .00029,    .00151,    .00220,
     +     .16964,    .05229,    .01057,    .00258,    .00044,
     +     .00029,    .00147,    .00212 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
     +     .58760,    .21262,    .19830,    .00990,    .00000,
     +     .00000,    .00355,    .00987,
     +     .56587,    .20272,    .17737,    .00956,    .00000,
     +     .00000,    .00366,    .00941,
     +     .53514,    .18909,    .15459,    .00913,   -.00208,
     +     .00000,    .00377,    .00865,
     +     .51385,    .17995,    .13697,    .00874,   -.00172,
     +     .00000,    .00378,    .00826,
     +     .49262,    .17094,    .12057,    .00842,   -.00134,
     +     .00000,    .00375,    .00774,
     +     .47488,    .16361,    .10816,    .00807,   -.00107,
     +     .00000,    .00364,    .00743,
     +     .45853,    .15690,    .09753,    .00774,   -.00084,
     +     .00000,    .00359,    .00709,
     +     .44184,    .15013,    .08752,    .00742,   -.00064,
     +     .00000,    .00353,    .00670 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
     +     .42772,    .14454,    .07972,    .00720,   -.00050,
     +     .00000,    .00345,    .00638,
     +     .41461,    .13937,    .07294,    .00692,   -.00037,
     +     .00000,    .00337,    .00608,
     +     .40457,    .13542,    .06802,    .00670,   -.00029,
     +     .00000,    .00328,    .00589,
     +     .38390,    .12747,    .05883,    .00631,   -.00012,
     +     .00000,    .00313,    .00551,
     +     .36724,    .12117,    .05245,    .00598,   -.00002,
     +    -.00044,    .00301,    .00514,
     +     .34954,    .11450,    .04538,    .00563,    .00007,
     +    -.00030,    .00286,    .00478,
     +     .33209,    .10800,    .03911,    .00529,    .00015,
     +    -.00019,    .00270,    .00445,
     +     .31708,    .10248,    .03429,    .00496,    .00020,
     +    -.00012,    .00258,    .00419 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
     +     .30270,    .09725,    .03010,    .00466,    .00025,
     +    -.00004,    .00245,    .00393,
     +     .29126,    .09314,    .02707,    .00447,    .00028,
     +     .00000,    .00234,    .00369,
     +     .27802,    .08840,    .02390,    .00421,    .00030,
     +     .00004,    .00222,    .00345,
     +     .26685,    .08446,    .02141,    .00402,    .00032,
     +     .00007,    .00211,    .00326,
     +     .25704,    .08102,    .01944,    .00385,    .00033,
     +     .00010,    .00200,    .00308,
     +     .24518,    .07688,    .01721,    .00360,    .00034,
     +     .00013,    .00190,    .00290,
     +     .23458,    .07320,    .01544,    .00339,    .00035,
     +     .00015,    .00182,    .00272,
     +     .22514,    .06993,    .01399,    .00322,    .00035,
     +     .00016,    .00173,    .00254 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
     +     .21604,    .06685,    .01268,    .00307,    .00035,
     +     .00017,    .00164,    .00240,
     +     .20755,    .06398,    .01156,    .00294,    .00035,
     +     .00018,    .00155,    .00226,
     +     .19986,    .06139,    .01064,    .00280,    .00034,
     +     .00019,    .00148,    .00214,
     +     .19292,    .05903,    .00984,    .00265,    .00034,
     +     .00019,    .00142,    .00205,
     +     .18625,    .05678,    .00913,    .00251,    .00033,
     +     .00019,    .00136,    .00197,
     +     .17986,    .05467,    .00851,    .00240,    .00033,
     +     .00020,    .00130,    .00186,
     +     .17404,    .05277,    .00796,    .00232,    .00032,
     +     .00019,    .00124,    .00175,
     +     .16871,    .05099,    .00750,    .00222,    .00032,
     +     .00020,    .00120,    .00167 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
     +     .16353,    .04927,    .00705,    .00213,    .00032,
     +     .00020,    .00116,    .00160,
     +     .15856,    .04765,    .00665,    .00205,    .00031,
     +     .00019,    .00111,    .00155,
     +     .15395,    .04614,    .00631,    .00199,    .00031,
     +     .00020,    .00107,    .00150,
     +     .14974,    .04477,    .00600,    .00192,    .00030,
     +     .00020,    .00103,    .00144,
     +     .14560,    .04343,    .00573,    .00184,    .00029,
     +     .00019,    .00099,    .00139 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
     +     .56010,    .19561,    .14030,    .00814,    .00000,
     +     .00000,    .00260,    .00670,
     +     .53685,    .18560,    .12345,    .00785,    .00000,
     +     .00000,    .00264,    .00649,
     +     .50422,    .17207,    .10572,    .00739,   -.00165,
     +     .00000,    .00270,    .00592,
     +     .48198,    .16300,    .09200,    .00708,   -.00136,
     +     .00000,    .00271,    .00559,
     +     .45992,    .15421,    .07951,    .00667,   -.00106,
     +     .00000,    .00261,    .00540,
     +     .44170,    .14702,    .07012,    .00642,   -.00085,
     +     .00000,    .00261,    .00507,
     +     .42491,    .14053,    .06228,    .00618,   -.00068,
     +     .00000,    .00258,    .00477,
     +     .40784,    .13401,    .05494,    .00594,   -.00052,
     +     .00000,    .00251,    .00451 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
     +     .39367,    .12862,    .04933,    .00568,   -.00041,
     +     .00000,    .00243,    .00432,
     +     .38045,    .12369,    .04446,    .00545,   -.00031,
     +     .00000,    .00237,    .00413,
     +     .37034,    .11993,    .04102,    .00528,   -.00025,
     +     .00000,    .00233,    .00396,
     +     .34994,    .11233,    .03462,    .00488,   -.00012,
     +     .00000,    .00221,    .00372,
     +     .33346,    .10635,    .03030,    .00463,   -.00004,
     +    -.00033,    .00210,    .00349,
     +     .31597,    .10016,    .02549,    .00438,    .00003,
     +    -.00023,    .00199,    .00323,
     +     .29893,    .09410,    .02139,    .00408,    .00009,
     +    -.00015,    .00186,    .00296,
     +     .28437,    .08897,    .01827,    .00382,    .00013,
     +    -.00009,    .00177,    .00276 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
     +     .27043,    .08412,    .01558,    .00360,    .00016,
     +    -.00005,    .00168,    .00261,
     +     .25946,    .08032,    .01370,    .00343,    .00018,
     +    -.00001,    .00162,    .00245,
     +     .24685,    .07601,    .01179,    .00321,    .00020,
     +     .00002,    .00152,    .00225,
     +     .23624,    .07240,    .01034,    .00302,    .00021,
     +     .00005,    .00145,    .00211,
     +     .22696,    .06924,    .00920,    .00287,    .00022,
     +     .00006,    .00136,    .00201,
     +     .21573,    .06549,    .00797,    .00272,    .00023,
     +     .00008,    .00128,    .00185,
     +     .20577,    .06219,    .00696,    .00255,    .00023,
     +     .00010,    .00120,    .00175,
     +     .19691,    .05926,    .00617,    .00240,    .00023,
     +     .00011,    .00115,    .00167 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
     +     .18846,    .05647,    .00548,    .00227,    .00023,
     +     .00012,    .00110,    .00155,
     +     .18059,    .05390,    .00493,    .00216,    .00024,
     +     .00012,    .00104,    .00146,
     +     .17348,    .05155,    .00446,    .00204,    .00023,
     +     .00012,    .00099,    .00140,
     +     .16702,    .04949,    .00408,    .00195,    .00023,
     +     .00013,    .00094,    .00132,
     +     .16084,    .04751,    .00373,    .00187,    .00022,
     +     .00013,    .00091,    .00126,
     +     .15497,    .04564,    .00346,    .00178,    .00022,
     +     .00013,    .00086,    .00118,
     +     .14964,    .04394,    .00323,    .00170,    .00022,
     +     .00013,    .00081,    .00114,
     +     .14478,    .04238,    .00302,    .00163,    .00021,
     +     .00013,    .00078,    .00109 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
     +     .14005,    .04087,    .00283,    .00154,    .00021,
     +     .00013,    .00075,    .00105,
     +     .13553,    .03944,    .00267,    .00148,    .00021,
     +     .00014,    .00073,    .00099,
     +     .13136,    .03814,    .00254,    .00143,    .00020,
     +     .00013,    .00070,    .00094,
     +     .12754,    .03695,    .00240,    .00139,    .00020,
     +     .00013,    .00068,    .00091,
     +     .12379,    .03579,    .00230,    .00133,    .00019,
     +     .00013,    .00065,    .00088 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
     +     .52912,    .17786,    .08964,    .00633,    .00000,
     +     .00000,    .00186,    .00463,
     +     .50456,    .16803,    .07710,    .00606,    .00000,
     +     .00000,    .00198,    .00437,
     +     .47056,    .15475,    .06412,    .00568,   -.00129,
     +     .00000,    .00199,    .00410,
     +     .44777,    .14597,    .05411,    .00541,   -.00105,
     +     .00000,    .00197,    .00386,
     +     .42525,    .13747,    .04526,    .00518,   -.00082,
     +     .00000,    .00198,    .00356,
     +     .40677,    .13063,    .03880,    .00491,   -.00066,
     +     .00000,    .00191,    .00342,
     +     .38995,    .12441,    .03341,    .00466,   -.00053,
     +     .00000,    .00187,    .00328,
     +     .37298,    .11818,    .02850,    .00441,   -.00041,
     +     .00000,    .00182,    .00312 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
     +     .35880,    .11312,    .02487,    .00424,   -.00032,
     +     .00000,    .00176,    .00293,
     +     .34570,    .10843,    .02181,    .00406,   -.00025,
     +     .00000,    .00171,    .00279,
     +     .33574,    .10491,    .01958,    .00392,   -.00020,
     +     .00000,    .00167,    .00271,
     +     .31564,    .09785,    .01569,    .00365,   -.00011,
     +     .00000,    .00156,    .00251,
     +     .29964,    .09229,    .01303,    .00346,   -.00005,
     +    -.00024,    .00152,    .00234,
     +     .28283,    .08651,    .01021,    .00319,    .00000,
     +    -.00017,    .00143,    .00216,
     +     .26643,    .08093,    .00787,    .00296,    .00004,
     +    -.00012,    .00134,    .00201,
     +     .25249,    .07624,    .00613,    .00277,    .00007,
     +    -.00007,    .00127,    .00187 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
     +     .23928,    .07184,    .00474,    .00258,    .00010,
     +    -.00003,    .00120,    .00171,
     +     .22885,    .06839,    .00382,    .00244,    .00011,
     +    -.00002,    .00113,    .00162,
     +     .21687,    .06448,    .00288,    .00230,    .00013,
     +     .00001,    .00107,    .00152,
     +     .20692,    .06124,    .00222,    .00218,    .00013,
     +     .00002,    .00102,    .00142,
     +     .19828,    .05843,    .00173,    .00204,    .00014,
     +     .00003,    .00097,    .00134,
     +     .18785,    .05505,    .00125,    .00189,    .00014,
     +     .00005,    .00090,    .00126,
     +     .17860,    .05209,    .00088,    .00177,    .00015,
     +     .00006,    .00085,    .00116,
     +     .17040,    .04950,    .00061,    .00168,    .00015,
     +     .00007,    .00082,    .00109 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
     +     .16261,    .04703,    .00042,    .00157,    .00015,
     +     .00008,    .00077,    .00103,
     +     .15539,    .04477,    .00026,    .00148,    .00015,
     +     .00008,    .00073,    .00097,
     +     .14888,    .04275,    .00017,    .00141,    .00015,
     +     .00008,    .00070,    .00091,
     +     .14302,    .04093,    .00010,    .00134,    .00015,
     +     .00008,    .00066,    .00085,
     +     .13740,    .03920,    .00004,    .00126,    .00014,
     +     .00008,    .00063,    .00079,
     +     .13209,    .03756,    .00001,    .00119,    .00014,
     +     .00008,    .00059,    .00077,
     +     .12728,    .03608,   -.00001,    .00115,    .00014,
     +     .00009,    .00057,    .00074,
     +     .12286,    .03474,   -.00002,    .00110,    .00014,
     +     .00009,    .00054,    .00070 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
     +     .11859,    .03345,   -.00002,    .00106,    .00013,
     +     .00008,    .00052,    .00067,
     +     .11454,    .03221,   -.00002,    .00102,    .00013,
     +     .00008,    .00049,    .00063,
     +     .11084,    .03107,   -.00001,    .00096,    .00013,
     +     .00008,    .00047,    .00061,
     +     .10744,    .03005,    .00000,    .00092,    .00013,
     +     .00009,    .00046,    .00059,
     +     .10411,    .02906,    .00001,    .00088,    .00013,
     +     .00009,    .00044,    .00055 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
     +     .49497,    .16027,    .04635,    .00478,    .00000,
     +     .00000,    .00140,    .00306,
     +     .46952,    .15069,    .03789,    .00462,    .00000,
     +     .00000,    .00143,    .00292,
     +     .43487,    .13776,    .02971,    .00421,   -.00099,
     +     .00000,    .00147,    .00276,
     +     .41179,    .12931,    .02336,    .00396,   -.00080,
     +     .00000,    .00148,    .00257,
     +     .38929,    .12124,    .01775,    .00370,   -.00063,
     +     .00000,    .00144,    .00248,
     +     .37084,    .11472,    .01377,    .00357,   -.00051,
     +     .00000,    .00145,    .00234,
     +     .35414,    .10887,    .01063,    .00340,   -.00041,
     +     .00000,    .00141,    .00223,
     +     .33745,    .10305,    .00790,    .00317,   -.00031,
     +     .00000,    .00138,    .00211 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
     +     .32361,    .09831,    .00598,    .00302,   -.00025,
     +     .00000,    .00132,    .00199,
     +     .31093,    .09398,    .00435,    .00285,   -.00019,
     +     .00000,    .00129,    .00189,
     +     .30132,    .09069,    .00328,    .00272,   -.00016,
     +     .00000,    .00127,    .00180,
     +     .28183,    .08418,    .00145,    .00254,   -.00010,
     +     .00000,    .00120,    .00167,
     +     .26646,    .07910,    .00036,    .00234,   -.00005,
     +    -.00018,    .00113,    .00156,
     +     .25044,    .07382,   -.00094,    .00216,   -.00001,
     +    -.00012,    .00108,    .00146,
     +     .23489,    .06878,   -.00190,    .00202,    .00001,
     +    -.00009,    .00101,    .00134,
     +     .22170,    .06456,   -.00246,    .00190,    .00004,
     +    -.00005,    .00093,    .00122 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
     +     .20926,    .06060,   -.00285,    .00177,    .00005,
     +    -.00004,    .00086,    .00114,
     +     .19958,    .05751,   -.00307,    .00164,    .00007,
     +    -.00001,    .00082,    .00109,
     +     .18854,    .05402,   -.00322,    .00151,    .00008,
     +     .00000,    .00077,    .00102,
     +     .17933,    .05114,   -.00328,    .00140,    .00009,
     +     .00001,    .00072,    .00096,
     +     .17132,    .04866,   -.00326,    .00133,    .00009,
     +     .00003,    .00069,    .00089,
     +     .16172,    .04572,   -.00323,    .00125,    .00009,
     +     .00003,    .00066,    .00082,
     +     .15326,    .04312,   -.00311,    .00116,    .00009,
     +     .00004,    .00061,    .00077,
     +     .14581,    .04086,   -.00300,    .00109,    .00010,
     +     .00005,    .00056,    .00072 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
     +     .13871,    .03872,   -.00287,    .00104,    .00010,
     +     .00005,    .00053,    .00067,
     +     .13215,    .03676,   -.00272,    .00097,    .00009,
     +     .00005,    .00051,    .00064,
     +     .12630,    .03499,   -.00258,    .00090,    .00010,
     +     .00006,    .00048,    .00062,
     +     .12104,    .03342,   -.00243,    .00085,    .00010,
     +     .00005,    .00046,    .00058,
     +     .11602,    .03192,   -.00228,    .00080,    .00009,
     +     .00005,    .00043,    .00055,
     +     .11126,    .03052,   -.00216,    .00077,    .00009,
     +     .00005,    .00042,    .00052,
     +     .10698,    .02926,   -.00204,    .00073,    .00009,
     +     .00005,    .00041,    .00050,
     +     .10305,    .02812,   -.00190,    .00071,    .00009,
     +     .00006,    .00039,    .00046 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
     +     .09927,    .02701,   -.00181,    .00068,    .00009,
     +     .00006,    .00037,    .00044,
     +     .09570,    .02596,   -.00168,    .00065,    .00009,
     +     .00006,    .00034,    .00041,
     +     .09243,    .02502,   -.00157,    .00061,    .00008,
     +     .00006,    .00033,    .00040,
     +     .08944,    .02414,   -.00147,    .00058,    .00008,
     +     .00005,    .00032,    .00039,
     +     .08650,    .02330,   -.00137,    .00056,    .00008,
     +     .00005,    .00031,    .00036 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
     +     .45845,    .14360,    .00998,    .00406,    .00000,
     +     .00000,    .00074,    .00173,
     +     .43304,    .13431,    .00522,    .00374,    .00000,
     +     .00000,    .00081,    .00174,
     +     .39822,    .12200,    .00139,    .00351,   -.00074,
     +     .00000,    .00086,    .00165,
     +     .37536,    .11406,   -.00194,    .00325,   -.00060,
     +     .00000,    .00087,    .00162,
     +     .35310,    .10646,   -.00446,    .00306,   -.00047,
     +     .00000,    .00089,    .00144,
     +     .33517,    .10031,   -.00612,    .00286,   -.00037,
     +     .00000,    .00087,    .00140,
     +     .31898,    .09486,   -.00724,    .00265,   -.00030,
     +     .00000,    .00085,    .00131,
     +     .30276,    .08951,   -.00818,    .00248,   -.00024,
     +     .00000,    .00085,    .00124 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
     +     .28938,    .08509,   -.00878,    .00241,   -.00019,
     +     .00000,    .00084,    .00119,
     +     .27715,    .08109,   -.00908,    .00227,   -.00015,
     +     .00000,    .00081,    .00113,
     +     .26793,    .07809,   -.00926,    .00216,   -.00012,
     +     .00000,    .00078,    .00111,
     +     .24941,    .07214,   -.00937,    .00201,   -.00008,
     +     .00000,    .00072,    .00099,
     +     .23493,    .06752,   -.00922,    .00185,   -.00004,
     +    -.00013,    .00067,    .00094,
     +     .21986,    .06276,   -.00923,    .00171,   -.00002,
     +    -.00009,    .00064,    .00086,
     +     .20533,    .05827,   -.00907,    .00157,    .00000,
     +    -.00007,    .00061,    .00079,
     +     .19314,    .05448,   -.00878,    .00144,    .00002,
     +    -.00004,    .00057,    .00072 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
     +     .18167,    .05093,   -.00840,    .00133,    .00003,
     +    -.00003,    .00052,    .00068,
     +     .17270,    .04823,   -.00806,    .00124,    .00004,
     +    -.00001,    .00049,    .00065,
     +     .16251,    .04514,   -.00762,    .00115,    .00005,
     +     .00000,    .00046,    .00061,
     +     .15411,    .04261,   -.00721,    .00108,    .00005,
     +     .00001,    .00045,    .00056,
     +     .14684,    .04042,   -.00683,    .00101,    .00005,
     +     .00001,    .00042,    .00053,
     +     .13812,    .03785,   -.00635,    .00094,    .00006,
     +     .00002,    .00039,    .00048,
     +     .13047,    .03559,   -.00593,    .00088,    .00006,
     +     .00002,    .00035,    .00046,
     +     .12377,    .03362,   -.00550,    .00080,    .00006,
     +     .00003,    .00033,    .00043 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
     +     .11745,    .03176,   -.00512,    .00074,    .00006,
     +     .00003,    .00031,    .00040,
     +     .11161,    .03006,   -.00476,    .00069,    .00006,
     +     .00003,    .00030,    .00037,
     +     .10636,    .02856,   -.00445,    .00067,    .00006,
     +     .00003,    .00029,    .00035,
     +     .10165,    .02723,   -.00414,    .00065,    .00006,
     +     .00004,    .00027,    .00032,
     +     .09718,    .02595,   -.00386,    .00062,    .00006,
     +     .00004,    .00025,    .00030,
     +     .09300,    .02475,   -.00362,    .00059,    .00006,
     +     .00004,    .00024,    .00029,
     +     .08922,    .02367,   -.00338,    .00055,    .00006,
     +     .00004,    .00023,    .00028,
     +     .08578,    .02270,   -.00318,    .00053,    .00006,
     +     .00004,    .00022,    .00027 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
     +     .08246,    .02178,   -.00294,    .00050,    .00005,
     +     .00003,    .00021,    .00024,
     +     .07933,    .02089,   -.00275,    .00048,    .00005,
     +     .00003,    .00020,    .00023,
     +     .07648,    .02009,   -.00259,    .00047,    .00005,
     +     .00003,    .00018,    .00022,
     +     .07388,    .01936,   -.00245,    .00045,    .00005,
     +     .00003,    .00017,    .00021,
     +     .07134,    .01865,   -.00230,    .00042,    .00005,
     +     .00003,    .00018,    .00021 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
     +     .42010,    .12633,   -.01900,    .00286,    .00000,
     +     .00000,    .00059,    .00116,
     +     .39458,    .11768,   -.02035,    .00270,    .00000,
     +     .00000,    .00062,    .00116,
     +     .36042,    .10621,   -.02014,    .00243,   -.00054,
     +     .00000,    .00067,    .00102,
     +     .33806,    .09883,   -.02066,    .00226,   -.00043,
     +     .00000,    .00065,    .00097,
     +     .31656,    .09179,   -.02083,    .00208,   -.00034,
     +     .00000,    .00066,    .00096,
     +     .29927,    .08620,   -.02061,    .00194,   -.00027,
     +     .00000,    .00063,    .00092,
     +     .28368,    .08126,   -.02024,    .00185,   -.00022,
     +     .00000,    .00060,    .00086,
     +     .26814,    .07635,   -.01960,    .00176,   -.00017,
     +     .00000,    .00058,    .00078 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
     +     .25554,    .07237,   -.01900,    .00163,   -.00014,
     +     .00000,    .00056,    .00077,
     +     .24397,    .06876,   -.01839,    .00156,   -.00012,
     +     .00000,    .00055,    .00075,
     +     .23523,    .06608,   -.01793,    .00152,   -.00009,
     +     .00000,    .00054,    .00074,
     +     .21801,    .06076,   -.01668,    .00135,   -.00006,
     +     .00000,    .00050,    .00066,
     +     .20448,    .05667,   -.01563,    .00126,   -.00004,
     +    -.00009,    .00047,    .00062,
     +     .19048,    .05248,   -.01467,    .00118,   -.00002,
     +    -.00006,    .00044,    .00055,
     +     .17714,    .04845,   -.01362,    .00106,   -.00001,
     +    -.00005,    .00039,    .00051,
     +     .16598,    .04512,   -.01266,    .00094,    .00000,
     +    -.00004,    .00036,    .00049 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
     +     .15550,    .04207,   -.01176,    .00087,    .00001,
     +    -.00002,    .00033,    .00045,
     +     .14735,    .03970,   -.01103,    .00086,    .00002,
     +    -.00001,    .00032,    .00038,
     +     .13814,    .03703,   -.01017,    .00079,    .00003,
     +     .00000,    .00032,    .00035,
     +     .13056,    .03484,   -.00946,    .00074,    .00003,
     +     .00000,    .00030,    .00033,
     +     .12403,    .03296,   -.00884,    .00070,    .00003,
     +     .00000,    .00028,    .00032,
     +     .11626,    .03075,   -.00808,    .00063,    .00004,
     +     .00001,    .00026,    .00028,
     +     .10949,    .02882,   -.00741,    .00058,    .00003,
     +     .00001,    .00023,    .00027,
     +     .10357,    .02714,   -.00685,    .00054,    .00003,
     +     .00001,    .00022,    .00026 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
     +     .09794,    .02557,   -.00630,    .00050,    .00004,
     +     .00002,    .00020,    .00024,
     +     .09280,    .02414,   -.00582,    .00048,    .00004,
     +     .00002,    .00019,    .00023,
     +     .08821,    .02286,   -.00540,    .00045,    .00004,
     +     .00002,    .00018,    .00022,
     +     .08412,    .02173,   -.00501,    .00043,    .00004,
     +     .00002,    .00016,    .00020,
     +     .08022,    .02068,   -.00465,    .00042,    .00003,
     +     .00002,    .00017,    .00018,
     +     .07659,    .01967,   -.00430,    .00038,    .00003,
     +     .00002,    .00015,    .00017,
     +     .07332,    .01877,   -.00402,    .00035,    .00003,
     +     .00002,    .00014,    .00017,
     +     .07034,    .01796,   -.00375,    .00034,    .00003,
     +     .00002,    .00013,    .00015 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
     +     .06749,    .01720,   -.00351,    .00033,    .00003,
     +     .00002,    .00013,    .00014,
     +     .06479,    .01648,   -.00329,    .00032,    .00003,
     +     .00002,    .00012,    .00014,
     +     .06234,    .01582,   -.00308,    .00029,    .00003,
     +     .00002,    .00012,    .00013,
     +     .06010,    .01521,   -.00290,    .00028,    .00004,
     +     .00003,    .00011,    .00012,
     +     .05793,    .01462,   -.00271,    .00027,    .00003,
     +     .00003,    .00010,    .00012 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
     +     .38063,    .10994,   -.04086,    .00179,    .00000,
     +     .00000,    .00053,    .00076,
     +     .35559,    .10187,   -.03914,    .00169,    .00000,
     +     .00000,    .00050,    .00076,
     +     .32244,    .09132,   -.03585,    .00159,   -.00039,
     +     .00000,    .00051,    .00072,
     +     .30091,    .08457,   -.03412,    .00151,   -.00031,
     +     .00000,    .00051,    .00066,
     +     .28037,    .07822,   -.03222,    .00136,   -.00024,
     +     .00000,    .00049,    .00062,
     +     .26394,    .07316,   -.03052,    .00127,   -.00019,
     +     .00000,    .00049,    .00055,
     +     .24926,    .06867,   -.02888,    .00118,   -.00016,
     +     .00000,    .00046,    .00056,
     +     .23476,    .06430,   -.02720,    .00110,   -.00012,
     +     .00000,    .00043,    .00056 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
     +     .22292,    .06076,   -.02574,    .00105,   -.00010,
     +     .00000,    .00041,    .00053,
     +     .21217,    .05757,   -.02432,    .00098,   -.00008,
     +     .00000,    .00040,    .00048,
     +     .20411,    .05519,   -.02322,    .00093,   -.00007,
     +     .00000,    .00038,    .00044,
     +     .18815,    .05051,   -.02109,    .00085,   -.00004,
     +     .00000,    .00036,    .00040,
     +     .17577,    .04689,   -.01937,    .00079,   -.00003,
     +    -.00006,    .00034,    .00036,
     +     .16306,    .04321,   -.01774,    .00071,   -.00002,
     +    -.00005,    .00032,    .00035,
     +     .15090,    .03975,   -.01612,    .00066,    .00000,
     +    -.00003,    .00030,    .00030,
     +     .14078,    .03688,   -.01479,    .00063,    .00000,
     +    -.00002,    .00027,    .00028 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
     +     .13139,    .03424,   -.01352,    .00055,    .00001,
     +    -.00001,    .00025,    .00028,
     +     .12413,    .03220,   -.01250,    .00049,    .00001,
     +    -.00001,    .00022,    .00028,
     +     .11595,    .02991,   -.01140,    .00046,    .00002,
     +     .00000,    .00021,    .00025,
     +     .10923,    .02805,   -.01048,    .00044,    .00002,
     +     .00000,    .00019,    .00022,
     +     .10344,    .02649,   -.00972,    .00041,    .00002,
     +     .00000,    .00019,    .00021,
     +     .09661,    .02461,   -.00880,    .00038,    .00002,
     +     .00001,    .00018,    .00019,
     +     .09065,    .02300,   -.00801,    .00035,    .00002,
     +     .00001,    .00017,    .00017,
     +     .08545,    .02159,   -.00735,    .00033,    .00002,
     +     .00001,    .00015,    .00018 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
     +     .08060,    .02027,   -.00672,    .00030,    .00002,
     +     .00001,    .00014,    .00015,
     +     .07615,    .01909,   -.00617,    .00029,    .00002,
     +     .00001,    .00013,    .00014,
     +     .07217,    .01804,   -.00566,    .00026,    .00002,
     +     .00001,    .00012,    .00013,
     +     .06864,    .01709,   -.00525,    .00025,    .00002,
     +     .00001,    .00012,    .00013,
     +     .06529,    .01621,   -.00486,    .00024,    .00002,
     +     .00001,    .00012,    .00011,
     +     .06217,    .01539,   -.00449,    .00023,    .00002,
     +     .00001,    .00010,    .00012,
     +     .05938,    .01465,   -.00418,    .00022,    .00003,
     +     .00002,    .00009,    .00010,
     +     .05685,    .01399,   -.00390,    .00021,    .00002,
     +     .00002,    .00009,    .00010 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
     +     .05442,    .01337,   -.00364,    .00019,    .00002,
     +     .00002,    .00009,    .00010,
     +     .05214,    .01278,   -.00338,    .00018,    .00002,
     +     .00002,    .00008,    .00009,
     +     .05008,    .01224,   -.00317,    .00017,    .00002,
     +     .00002,    .00008,    .00009,
     +     .04819,    .01175,   -.00297,    .00015,    .00002,
     +     .00002,    .00007,    .00008,
     +     .04635,    .01127,   -.00279,    .00016,    .00002,
     +     .00002,    .00007,    .00008 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
     +     .34115,    .09501,   -.05717,    .00151,    .00000,
     +     .00000,    .00019,    .00038,
     +     .31719,    .08757,   -.05316,    .00139,    .00000,
     +     .00000,    .00027,    .00036,
     +     .28538,    .07797,   -.04688,    .00124,   -.00027,
     +     .00000,    .00024,    .00035,
     +     .26519,    .07188,   -.04343,    .00112,   -.00022,
     +     .00000,    .00023,    .00033,
     +     .24577,    .06612,   -.04006,    .00107,   -.00016,
     +     .00000,    .00026,    .00032,
     +     .23043,    .06163,   -.03717,    .00100,   -.00014,
     +     .00000,    .00024,    .00029,
     +     .21679,    .05767,   -.03459,    .00092,   -.00011,
     +     .00000,    .00024,    .00026,
     +     .20336,    .05377,   -.03202,    .00084,   -.00008,
     +     .00000,    .00023,    .00025 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
     +     .19245,    .05062,   -.02993,    .00081,   -.00007,
     +     .00000,    .00023,    .00024,
     +     .18257,    .04781,   -.02797,    .00077,   -.00006,
     +     .00000,    .00020,    .00023,
     +     .17520,    .04574,   -.02653,    .00073,   -.00005,
     +     .00000,    .00020,    .00023,
     +     .16071,    .04161,   -.02368,    .00062,   -.00003,
     +     .00000,    .00019,    .00022,
     +     .14953,    .03849,   -.02151,    .00056,   -.00003,
     +    -.00005,    .00018,    .00022,
     +     .13805,    .03532,   -.01945,    .00051,   -.00002,
     +    -.00003,    .00018,    .00020,
     +     .12719,    .03233,   -.01747,    .00047,   -.00001,
     +    -.00002,    .00016,    .00021,
     +     .11820,    .02989,   -.01581,    .00042,    .00000,
     +    -.00001,    .00014,    .00018 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
     +     .10987,    .02765,   -.01430,    .00039,    .00000,
     +    -.00001,    .00013,    .00016,
     +     .10344,    .02592,   -.01316,    .00039,    .00000,
     +    -.00001,    .00012,    .00015,
     +     .09626,    .02398,   -.01187,    .00034,    .00000,
     +    -.00001,    .00011,    .00014,
     +     .09037,    .02242,   -.01085,    .00031,    .00001,
     +     .00000,    .00010,    .00013,
     +     .08532,    .02110,   -.00996,    .00030,    .00001,
     +     .00000,    .00008,    .00012,
     +     .07940,    .01954,   -.00898,    .00026,    .00001,
     +     .00000,    .00009,    .00011,
     +     .07424,    .01818,   -.00813,    .00025,    .00001,
     +     .00000,    .00008,    .00011,
     +     .06976,    .01703,   -.00741,    .00024,    .00001,
     +     .00000,    .00008,    .00009 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
     +     .06558,    .01593,   -.00675,    .00022,    .00001,
     +     .00000,    .00007,    .00008,
     +     .06176,    .01496,   -.00616,    .00021,    .00001,
     +     .00000,    .00005,    .00008,
     +     .05839,    .01410,   -.00565,    .00021,    .00002,
     +     .00001,    .00005,    .00007,
     +     .05539,    .01334,   -.00522,    .00018,    .00002,
     +     .00001,    .00006,    .00007,
     +     .05258,    .01260,   -.00482,    .00015,    .00002,
     +     .00001,    .00006,    .00007,
     +     .04995,    .01194,   -.00445,    .00015,    .00002,
     +     .00001,    .00006,    .00006,
     +     .04759,    .01134,   -.00411,    .00014,    .00002,
     +     .00001,    .00006,    .00004,
     +     .04547,    .01081,   -.00382,    .00013,    .00001,
     +     .00001,    .00004,    .00004 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
     +     .04344,    .01030,   -.00356,    .00013,    .00001,
     +     .00001,    .00004,    .00006,
     +     .04152,    .00983,   -.00330,    .00011,    .00001,
     +     .00001,    .00004,    .00004,
     +     .03978,    .00940,   -.00309,    .00012,    .00001,
     +     .00001,    .00003,    .00004,
     +     .03821,    .00900,   -.00291,    .00012,    .00001,
     +     .00001,    .00003,    .00005,
     +     .03669,    .00862,   -.00271,    .00010,    .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=1,8)/
     +     .30126,    .08031,   -.06698,    .00092,    .00000,
     +     .00000,    .00022,    .00027,
     +     .27867,    .07372,   -.06105,    .00077,    .00000,
     +     .00000,    .00019,    .00027,
     +     .24906,    .06515,   -.05313,    .00072,   -.00018,
     +     .00000,    .00021,    .00027,
     +     .23013,    .05977,   -.04843,    .00068,   -.00015,
     +     .00000,    .00023,    .00024,
     +     .21235,    .05475,   -.04386,    .00057,   -.00012,
     +     .00000,    .00022,    .00020,
     +     .19821,    .05079,   -.04029,    .00053,   -.00009,
     +     .00000,    .00019,    .00024,
     +     .18568,    .04734,   -.03711,    .00051,   -.00007,
     +     .00000,    .00019,    .00022,
     +     .17342,    .04398,   -.03398,    .00050,   -.00006,
     +     .00000,    .00018,    .00019 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
     +     .16358,    .04129,   -.03144,    .00043,   -.00005,
     +     .00000,    .00018,    .00016,
     +     .15470,    .03888,   -.02921,    .00041,   -.00004,
     +     .00000,    .00017,    .00018,
     +     .14807,    .03709,   -.02752,    .00037,   -.00004,
     +     .00000,    .00015,    .00017,
     +     .13504,    .03357,   -.02426,    .00035,   -.00003,
     +     .00000,    .00014,    .00016,
     +     .12506,    .03092,   -.02186,    .00032,   -.00002,
     +    -.00003,    .00014,    .00014,
     +     .11493,    .02825,   -.01950,    .00028,   -.00001,
     +    -.00002,    .00012,    .00012,
     +     .10538,    .02575,   -.01734,    .00025,   -.00001,
     +    -.00001,    .00010,    .00010,
     +     .09751,    .02369,   -.01559,    .00024,   -.00001,
     +    -.00001,    .00011,    .00009 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
     +     .09024,    .02182,   -.01398,    .00023,    .00000,
     +     .00000,    .00010,    .00008,
     +     .08470,    .02038,   -.01280,    .00020,    .00000,
     +     .00000,    .00008,    .00010,
     +     .07849,    .01880,   -.01148,    .00019,    .00000,
     +     .00000,    .00008,    .00008,
     +     .07342,    .01751,   -.01042,    .00018,    .00000,
     +     .00000,    .00007,    .00007,
     +     .06912,    .01643,   -.00955,    .00018,    .00000,
     +     .00000,    .00007,    .00007,
     +     .06407,    .01515,   -.00855,    .00015,    .00000,
     +     .00000,    .00006,    .00006,
     +     .05969,    .01405,   -.00771,    .00014,    .00000,
     +     .00000,    .00006,    .00006,
     +     .05588,    .01311,   -.00700,    .00014,    .00001,
     +     .00001,    .00006,    .00006 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
     +     .05238,    .01224,   -.00635,    .00012,    .00001,
     +     .00001,    .00005,    .00006,
     +     .04918,    .01145,   -.00577,    .00011,    .00001,
     +     .00001,    .00005,    .00005,
     +     .04635,    .01077,   -.00528,    .00011,    .00001,
     +     .00001,    .00005,    .00005,
     +     .04386,    .01014,   -.00484,    .00010,    .00001,
     +     .00001,    .00003,    .00005,
     +     .04152,    .00957,   -.00445,    .00008,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03933,    .00904,   -.00410,    .00008,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03738,    .00857,   -.00379,    .00007,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03561,    .00815,   -.00352,    .00007,    .00001,
     +     .00001,    .00003,    .00003 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
     +     .03394,    .00775,   -.00327,    .00007,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03237,    .00737,   -.00303,    .00007,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03095,    .00703,   -.00282,    .00006,    .00001,
     +     .00001,    .00002,    .00003,
     +     .02968,    .00672,   -.00263,    .00006,    .00001,
     +     .00001,    .00002,    .00002,
     +     .02843,    .00643,   -.00247,    .00006,    .00001,
     +     .00001,    .00002,    .00002 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
     +     .22537,    .05519,   -.07247,    .00032,    .00000,
     +     .00000,    .00008,    .00007,
     +     .20606,    .05012,   -.06471,    .00037,    .00000,
     +     .00000,    .00008,    .00004,
     +     .18128,    .04368,   -.05476,    .00029,   -.00007,
     +     .00000,    .00009,    .00005,
     +     .16574,    .03966,   -.04883,    .00025,   -.00006,
     +     .00000,    .00007,    .00010,
     +     .15128,    .03592,   -.04340,    .00023,   -.00005,
     +     .00000,    .00007,    .00011,
     +     .13994,    .03307,   -.03917,    .00023,   -.00004,
     +     .00000,    .00006,    .00009,
     +     .13003,    .03058,   -.03547,    .00021,   -.00003,
     +     .00000,    .00004,    .00006,
     +     .12046,    .02814,   -.03204,    .00018,   -.00003,
     +     .00000,    .00006,    .00007 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
     +     .11277,    .02622,   -.02931,    .00016,   -.00002,
     +     .00000,    .00004,    .00008,
     +     .10590,    .02451,   -.02687,    .00014,   -.00002,
     +     .00000,    .00004,    .00006,
     +     .10081,    .02327,   -.02513,    .00015,   -.00002,
     +     .00000,    .00005,    .00005,
     +     .09091,    .02084,   -.02178,    .00014,   -.00001,
     +     .00000,    .00005,    .00005,
     +     .08345,    .01902,   -.01937,    .00013,   -.00001,
     +    -.00001,    .00005,    .00005,
     +     .07593,    .01721,   -.01699,    .00010,   -.00001,
     +    -.00001,    .00003,    .00003,
     +     .06893,    .01553,   -.01490,    .00009,   -.00001,
     +    -.00001,    .00003,    .00003,
     +     .06320,    .01417,   -.01318,    .00008,   -.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=17,24)/
     +     .05798,    .01293,   -.01172,    .00008,   -.00001,
     +    -.00001,    .00003,    .00004,
     +     .05404,    .01200,   -.01059,    .00007,    .00000,
     +     .00000,    .00003,    .00002,
     +     .04966,    .01098,   -.00940,    .00007,    .00000,
     +     .00000,    .00002,    .00002,
     +     .04612,    .01014,   -.00846,    .00005,    .00000,
     +     .00000,    .00003,    .00002,
     +     .04313,    .00946,   -.00768,    .00005,    .00000,
     +     .00000,    .00003,    .00002,
     +     .03963,    .00866,   -.00681,    .00005,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03666,    .00797,   -.00607,    .00004,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03409,    .00739,   -.00546,    .00004,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
     +     .03171,    .00684,   -.00493,    .00004,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02958,    .00636,   -.00445,    .00004,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02773,    .00594,   -.00404,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02609,    .00557,   -.00369,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02454,    .00522,   -.00337,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02312,    .00491,   -.00308,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02185,    .00463,   -.00285,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02073,    .00438,   -.00263,    .00003,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/
     +     .01967,    .00414,   -.00244,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01867,    .00392,   -.00225,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01778,    .00373,   -.00209,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01697,    .00356,   -.00195,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01619,    .00338,   -.00182,    .00001,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/
     +     .15664,    .03502,   -.06397,    .00012,    .00000,
     +     .00000,    .00001,    .00003,
     +     .14167,    .03144,   -.05620,    .00008,    .00000,
     +     .00000,    .00001,    .00004,
     +     .12257,    .02696,   -.04659,    .00010,   -.00003,
     +     .00000,    .00000,    .00002,
     +     .11084,    .02421,   -.04091,    .00011,   -.00002,
     +     .00000,    .00003,   -.00002,
     +     .09999,    .02171,   -.03577,    .00010,   -.00002,
     +     .00000,    .00001,   -.00001,
     +     .09164,    .01978,   -.03193,    .00008,   -.00001,
     +     .00000,    .00003,   -.00001,
     +     .08438,    .01812,   -.02865,    .00008,   -.00001,
     +     .00000,    .00003,    .00002,
     +     .07740,    .01655,   -.02554,    .00006,   -.00001,
     +     .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)/
     +     .07190,    .01531,   -.02313,    .00006,   -.00001,
     +     .00000,    .00001,    .00001,
     +     .06703,    .01421,   -.02105,    .00006,   -.00001,
     +     .00000,    .00001,    .00001,
     +     .06346,    .01340,   -.01953,    .00004,   -.00001,
     +     .00000,    .00001,    .00001,
     +     .05652,    .01186,   -.01668,    .00004,    .00000,
     +     .00000,    .00001,    .00001,
     +     .05138,    .01073,   -.01466,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04625,    .00959,   -.01275,    .00004,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04152,    .00856,   -.01100,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03770,    .00774,   -.00965,    .00002,    .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=17,24)/
     +     .03428,    .00701,   -.00846,    .00003,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03170,    .00646,   -.00758,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02886,    .00584,   -.00669,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02658,    .00538,   -.00597,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02468,    .00496,   -.00537,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02249,    .00450,   -.00471,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02063,    .00411,   -.00418,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01904,    .00378,   -.00374,    .00001,    .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)/
     +     .01758,    .00348,   -.00333,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01628,    .00321,   -.00299,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01515,    .00298,   -.00270,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01416,    .00278,   -.00245,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01324,    .00259,   -.00222,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01241,    .00242,   -.00203,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01167,    .00227,   -.00185,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01100,    .00213,   -.00170,    .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)/
     +     .01038,    .00200,   -.00156,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00980,    .00189,   -.00145,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00929,    .00179,   -.00134,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00882,    .00169,   -.00124,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00838,    .00160,   -.00114,    .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)/
     +     .09927,    .02001,   -.04823,    .00007,    .00000,
     +     .00000,   -.00001,   -.00001,
     +     .08860,    .01775,   -.04180,    .00007,    .00000,
     +     .00000,   -.00001,   -.00001,
     +     .07533,    .01495,   -.03400,    .00004,   -.00001,
     +     .00000,   -.00001,   -.00001,
     +     .06723,    .01328,   -.02949,    .00004,   -.00001,
     +     .00000,   -.00001,    .00002,
     +     .05992,    .01176,   -.02545,    .00002,    .00000,
     +     .00000,    .00000,    .00002,
     +     .05432,    .01061,   -.02243,    .00002,    .00000,
     +     .00000,    .00000,    .00002,
     +     .04952,    .00962,   -.01991,    .00002,    .00000,
     +     .00000,    .00000,    .00002,
     +     .04498,    .00870,   -.01756,    .00002,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
     +     .04141,    .00798,   -.01577,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03826,    .00733,   -.01421,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03597,    .00689,   -.01310,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03163,    .00602,   -.01106,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02842,    .00538,   -.00961,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02529,    .00475,   -.00824,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02242,    .00419,   -.00704,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02015,    .00375,   -.00611,    .00002,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/
     +     .01812,    .00336,   -.00530,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01661,    .00306,   -.00472,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01496,    .00275,   -.00409,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01366,    .00249,   -.00362,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01260,    .00230,   -.00324,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01136,    .00206,   -.00282,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01031,    .00187,   -.00247,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00943,    .00170,   -.00219,    .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)/
     +     .00863,    .00156,   -.00194,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00794,    .00142,   -.00173,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00734,    .00131,   -.00156,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00680,    .00121,   -.00140,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00632,    .00112,   -.00127,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00588,    .00104,   -.00114,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00549,    .00097,   -.00104,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00515,    .00091,   -.00095,    .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)/
     +     .00483,    .00084,   -.00086,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00454,    .00079,   -.00080,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00427,    .00075,   -.00073,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00404,    .00070,   -.00068,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00382,    .00066,   -.00062,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/
     +     .05502,    .00971,   -.03053,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04842,    .00852,   -.02614,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04032,    .00705,   -.02089,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03548,    .00617,   -.01786,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03116,    .00539,   -.01520,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02792,    .00483,   -.01329,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02515,    .00430,   -.01162,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02257,    .00386,   -.01017,    .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)/
     +     .02056,    .00352,   -.00906,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01882,    .00321,   -.00808,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01757,    .00300,   -.00741,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01520,    .00255,   -.00614,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01348,    .00226,   -.00528,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01182,    .00198,   -.00446,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01033,    .00172,   -.00375,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00916,    .00152,   -.00322,    .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)/
     +     .00814,    .00134,   -.00277,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00738,    .00122,   -.00244,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00657,    .00108,   -.00210,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00593,    .00096,   -.00184,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00541,    .00088,   -.00162,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00482,    .00078,   -.00140,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00433,    .00070,   -.00122,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00392,    .00063,   -.00106,    .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)/
     +     .00356,    .00056,   -.00093,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00323,    .00052,   -.00082,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00296,    .00047,   -.00073,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00272,    .00044,   -.00065,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00250,    .00040,   -.00058,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00231,    .00037,   -.00052,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00215,    .00034,   -.00048,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00200,    .00031,   -.00043,    .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)/
     +     .00187,    .00030,   -.00039,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00174,    .00027,   -.00036,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00163,    .00026,   -.00032,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00153,    .00023,   -.00030,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00143,    .00022,   -.00027,    .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)/
     +     .00785,    .00104,   -.00553,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00662,    .00086,   -.00454,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00518,    .00067,   -.00342,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00438,    .00057,   -.00282,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00367,    .00048,   -.00230,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00317,    .00039,   -.00193,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00277,    .00036,   -.00166,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00238,    .00031,   -.00139,    .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)/
     +     .00211,    .00026,   -.00120,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00189,    .00023,   -.00105,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00172,    .00021,   -.00095,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00142,    .00018,   -.00076,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00122,    .00015,   -.00063,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00102,    .00013,   -.00052,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00086,    .00011,   -.00042,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00074,    .00009,   -.00035,    .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)/
     +     .00062,    .00007,   -.00028,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00056,    .00007,   -.00025,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00047,    .00005,   -.00020,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00041,    .00005,   -.00017,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00037,    .00005,   -.00015,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00032,    .00003,   -.00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00027,    .00003,   -.00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00024,    .00003,   -.00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
     +     .00022,    .00003,   -.00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00019,    .00003,   -.00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00017,    .00001,   -.00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00016,    .00001,   -.00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00014,    .00001,   -.00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00012,    .00001,   -.00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00011,    .00001,   -.00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00010,    .00001,   -.00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
     +     .00009,    .00001,   -.00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00008,    .00001,   -.00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00008,    .00001,   -.00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00007,    .00001,   -.00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00007,    .00001,   -.00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
      data xx/1d-5,2d-5,4d-5,6d-5,8d-5,
     .            1d-4,2d-4,4d-4,6d-4,8d-4,
     .            1d-3,2d-3,4d-3,6d-3,8d-3,
     .            1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2,
     .         .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0,
     .         .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0,
     .         .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0,
     .         .8d0,.9d0,1d0/
      data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1,
     .        1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2,
     .        1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4,
     .        1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6,
     .        1.8d6,3.2d6,5.6d6,1d7/
      data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/
      data n0/3,4,5,9,9,9,9,9/
      DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
      data init/0/
      save
      xsave=x
      q2save=qsq
      if(init.ne.0) goto 10
C        open(unit=1,file='cor01dis.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