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

sfmrs_99a12.F

#include "pdf/pilot.h"
      subroutine sfmrs_99a12(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)/
     +     .00515,    .00191,   1.11860,    .90463,    .00000,
     +     .00000,    .48175,    .91662,
     +     .00531,    .00198,   2.39185,    .93942,    .00000,
     +     .00000,    .52193,    .95147,
     +     .00555,    .00208,   4.89753,   1.01576,    .00000,
     +     .00000,    .60592,   1.02788,
     +     .00572,    .00216,   7.23869,   1.08961,    .04539,
     +     .00000,    .68510,   1.10177,
     +     .00590,    .00225,  10.06430,   1.18522,    .15603,
     +     .00000,    .78610,   1.19741,
     +     .00606,    .00232,  12.97936,   1.28391,    .26195,
     +     .00000,    .88932,   1.29613,
     +     .00622,    .00240,  16.25096,   1.39123,    .37881,
     +     .00000,   1.00087,   1.40346,
     +     .00638,    .00248,  20.26498,   1.51964,    .52048,
     +     .00000,   1.13368,   1.53189 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
     +     .00653,    .00254,  24.17605,   1.64565,    .65309,
     +     .00000,   1.26342,   1.65790,
     +     .00667,    .00261,  28.37500,   1.77949,    .79429,
     +     .00000,   1.40079,   1.79174,
     +     .00678,    .00267,  32.05324,   1.89403,    .91753,
     +     .00000,   1.51807,   1.90628,
     +     .00702,    .00278,  40.56970,   2.16685,   1.20469,
     +     .02266,   1.79659,   2.17909,
     +     .00722,    .00288,  48.58288,   2.43104,   1.48024,
     +     .34642,   2.06552,   2.44327,
     +     .00746,    .00300,  58.70207,   2.76186,   1.82555,
     +     .74505,   2.40151,   2.77407,
     +     .00770,    .00312,  70.61198,   3.14639,   2.22608,
     +    1.16391,   2.79127,   3.15858,
     +     .00793,    .00323,  82.65894,   3.53230,   2.62739,
     +    1.58378,   3.18180,   3.54447 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
     +     .00816,    .00335,  96.07996,   3.95985,   3.07176,
     +    2.04681,   3.61388,   3.97198,
     +     .00835,    .00345, 108.15657,   4.34444,   3.46950,
     +    2.45656,   4.00215,   4.35653,
     +     .00858,    .00357, 123.95258,   4.84792,   3.98841,
     +    2.98905,   4.51000,   4.85998,
     +     .00879,    .00368, 139.08627,   5.32931,   4.48526,
     +    3.50125,   4.99516,   5.34134,
     +     .00899,    .00378, 153.94434,   5.80172,   4.97297,
     +    4.00435,   5.47096,   5.81370,
     +     .00923,    .00390, 173.93205,   6.44198,   5.62988,
     +    4.67547,   6.11543,   6.45391,
     +     .00947,    .00403, 194.11009,   7.08948,   6.29474,
     +    5.35656,   6.76679,   7.10136,
     +     .00969,    .00414, 214.32675,   7.73874,   6.96260,
     +    6.04310,   7.41959,   7.75058 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
     +     .00992,    .00426, 235.42511,   8.42417,   7.66294,
     +    6.75593,   8.10849,   8.43595,
     +     .01014,    .00438, 257.30655,   9.13652,   8.39223,
     +    7.50121,   8.82417,   9.14826,
     +     .01035,    .00449, 279.07556,   9.84867,   9.12102,
     +    8.24588,   9.53940,   9.86035,
     +     .01055,    .00459, 300.32693,  10.55035,   9.83690,
     +    8.97452,  10.24395,  10.56199,
     +     .01076,    .00470, 322.79166,  11.29302,  10.59640,
     +    9.75056,  10.98943,  11.30461,
     +     .01096,    .00481, 345.43198,  12.05075,  11.36793,
     +   10.53431,  11.74990,  12.06229,
     +     .01116,    .00491, 368.04791,  12.80791,  12.14119,
     +   11.32343,  12.50960,  12.81940,
     +     .01134,    .00501, 389.81564,  13.54586,  12.89170,
     +   12.08523,  13.24994,  13.55731 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
     +     .01153,    .00511, 412.71667,  14.32341,  13.68411,
     +   12.89208,  14.02985,  14.33482,
     +     .01172,    .00521, 435.80719,  15.11483,  14.48903,
     +   13.70972,  14.82358,  15.12619,
     +     .01190,    .00531, 458.50980,  15.89711,  15.28465,
     +   14.51808,  15.60803,  15.90843,
     +     .01207,    .00540, 480.72339,  16.66569,  16.06683,
     +   15.31373,  16.37863,  16.67696,
     +     .01225,    .00549, 503.43262,  17.46037,  16.87332,
     +   16.13122,  17.17534,  17.47160 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
     +     .00697,    .00267,   1.04247,    .76551,    .00000,
     +     .00000,    .40715,    .77242,
     +     .00719,    .00278,   2.18894,    .79783,    .00000,
     +     .00000,    .44369,    .80476,
     +     .00753,    .00293,   4.39703,    .86542,    .00000,
     +     .00000,    .51728,    .87240,
     +     .00777,    .00305,   6.41926,    .92911,    .03862,
     +     .00000,    .58513,    .93611,
     +     .00803,    .00318,   8.81928,   1.01012,    .13228,
     +     .00000,    .67034,   1.01713,
     +     .00825,    .00329,  11.25971,   1.09261,    .22082,
     +     .00000,    .75636,   1.09964,
     +     .00846,    .00339,  13.96599,   1.18153,    .31755,
     +     .00000,    .84857,   1.18856,
     +     .00869,    .00350,  17.24763,   1.28704,    .43379,
     +     .00000,    .95750,   1.29408 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
     +     .00889,    .00360,  20.40882,   1.38967,    .54160,
     +     .00000,   1.06302,   1.39671,
     +     .00908,    .00370,  23.77011,   1.49792,    .65558,
     +     .00000,   1.17401,   1.50496,
     +     .00924,    .00378,  26.69160,   1.59008,    .75449,
     +     .00000,   1.26830,   1.59713,
     +     .00957,    .00395,  33.37648,   1.80777,    .98295,
     +     .01851,   1.49040,   1.81481,
     +     .00985,    .00409,  39.57725,   2.01658,   1.20000,
     +     .27298,   1.70289,   2.02362,
     +     .01017,    .00426,  47.31119,   2.27575,   1.46952,
     +     .58437,   1.96605,   2.28278,
     +     .01051,    .00443,  56.29833,   2.57418,   1.77911,
     +     .90776,   2.26852,   2.58120,
     +     .01082,    .00459,  65.28069,   2.87104,   2.08652,
     +    1.22894,   2.56894,   2.87805 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
     +     .01113,    .00475,  75.17767,   3.19723,   2.42407,
     +    1.58008,   2.89863,   3.20423,
     +     .01140,    .00489,  83.99490,   3.48843,   2.72389,
     +    1.88832,   3.19267,   3.49541,
     +     .01172,    .00506,  95.41535,   3.86681,   3.11211,
     +    2.28583,   3.57442,   3.87378,
     +     .01200,    .00521, 106.25360,   4.22597,   3.48115,
     +    2.66543,   3.93648,   4.23292,
     +     .01227,    .00535, 116.80604,   4.57615,   3.84110,
     +    3.03590,   4.28927,   4.58309,
     +     .01261,    .00553, 130.86890,   5.04730,   4.32232,
     +    3.52630,   4.76366,   5.05421,
     +     .01293,    .00570, 144.93398,   5.52030,   4.80588,
     +    4.02043,   5.23963,   5.52719,
     +     .01323,    .00586, 158.90825,   5.99145,   5.28849,
     +    4.51536,   5.71351,   5.99832 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
     +     .01353,    .00602, 173.36311,   6.48540,   5.79100,
     +    5.02545,   6.21013,   6.49225,
     +     .01383,    .00619, 188.24060,   6.99563,   6.31119,
     +    5.55570,   6.72292,   7.00246,
     +     .01412,    .00634, 202.93250,   7.50270,   6.82802,
     +    6.08246,   7.23236,   7.50950,
     +     .01439,    .00649, 217.16971,   7.99941,   7.33272,
     +    6.59479,   7.73127,   8.00619,
     +     .01467,    .00664, 232.12834,   8.52251,   7.86564,
     +    7.13798,   8.25655,   8.52928,
     +     .01494,    .00678, 247.09474,   9.05319,   8.40385,
     +    7.68324,   8.78933,   9.05993,
     +     .01520,    .00693, 261.96417,   9.58106,   8.94098,
     +    8.23008,   9.31917,   9.58779,
     +     .01545,    .00706, 276.18063,  10.09289,   9.45955,
     +    8.75503,   9.83283,  10.09959 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
     +     .01570,    .00720, 291.06381,  10.62995,  10.00494,
     +    9.30899,  10.37171,  10.63663,
     +     .01596,    .00734, 305.98074,  11.17402,  10.55631,
     +    9.86765,  10.91755,  11.18068,
     +     .01620,    .00747, 320.57196,  11.70955,  11.09909,
     +   10.41774,  11.45476,  11.71620,
     +     .01643,    .00759, 334.78259,  12.23368,  11.63072,
     +   10.95724,  11.98045,  12.24031,
     +     .01666,    .00772, 349.22876,  12.77324,  12.17643,
     +   11.50896,  12.52158,  12.77986 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
     +     .00943,    .00375,    .97256,    .64749,    .00000,
     +     .00000,    .34420,    .65089,
     +     .00975,    .00390,   2.00449,    .67726,    .00000,
     +     .00000,    .37726,    .68066,
     +     .01021,    .00413,   3.94891,    .73698,    .00000,
     +     .00000,    .44166,    .74039,
     +     .01055,    .00431,   5.69364,    .79186,    .03286,
     +     .00000,    .49979,    .79529,
     +     .01091,    .00449,   7.72898,    .86046,    .11212,
     +     .00000,    .57166,    .86389,
     +     .01122,    .00465,   9.76817,    .92936,    .18610,
     +     .00000,    .64330,    .93280,
     +     .01152,    .00480,  12.00198,   1.00296,    .26612,
     +     .00000,    .71945,   1.00640,
     +     .01183,    .00496,  14.67843,   1.08954,    .36142,
     +     .00000,    .80868,   1.09299 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
     +     .01211,    .00511,  17.22665,   1.17298,    .44900,
     +     .00000,    .89436,   1.17642,
     +     .01238,    .00525,  19.90962,   1.26036,    .54090,
     +     .00000,    .98385,   1.26380,
     +     .01259,    .00536,  22.22300,   1.33436,    .62020,
     +     .00000,   1.05950,   1.33781,
     +     .01304,    .00560,  27.45266,   1.50762,    .80172,
     +     .01511,   1.23617,   1.51107,
     +     .01344,    .00580,  32.23278,   1.67219,    .97244,
     +     .21501,   1.40357,   1.67564,
     +     .01388,    .00604,  38.11961,   1.87460,   1.18244,
     +     .45812,   1.60904,   1.87805,
     +     .01434,    .00629,  44.87164,   2.10542,   1.42130,
     +     .70764,   1.84297,   2.10887,
     +     .01477,    .00651,  51.53778,   2.33295,   1.65627,
     +     .95312,   2.07323,   2.33639 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
     +     .01520,    .00674,  58.80032,   2.58085,   1.91210,
     +    1.21914,   2.32382,   2.58429,
     +     .01555,    .00694,  65.20455,   2.80044,   2.13755,
     +    1.45076,   2.54558,   2.80388,
     +     .01599,    .00717,  73.41675,   3.08360,   2.42722,
     +    1.74711,   2.83132,   3.08704,
     +     .01638,    .00739,  81.13496,   3.35038,   2.70055,
     +    2.02802,   3.10032,   3.35382,
     +     .01674,    .00758,  88.58572,   3.60878,   2.96540,
     +    2.30037,   3.36072,   3.61222,
     +     .01720,    .00783,  98.41943,   3.95384,   3.31680,
     +    2.65805,   3.70825,   3.95727,
     +     .01764,    .00807, 108.16090,   4.29767,   3.66731,
     +    3.01582,   4.05435,   4.30110,
     +     .01805,    .00830, 117.75685,   4.63786,   4.01484,
     +    3.37184,   4.39662,   4.64129 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
     +     .01846,    .00852, 127.59196,   4.99196,   4.37405,
     +    3.73596,   4.75276,   4.99539,
     +     .01887,    .00875, 137.63580,   5.35546,   4.74367,
     +    4.11226,   5.11822,   5.35889,
     +     .01925,    .00896, 147.47906,   5.71454,   5.10871,
     +    4.48386,   5.47911,   5.71796,
     +     .01962,    .00916, 156.94484,   6.06418,   5.46303,
     +    4.84303,   5.83043,   6.06760,
     +     .01999,    .00937, 166.82872,   6.43054,   5.83536,
     +    5.22210,   6.19845,   6.43396,
     +     .02036,    .00957, 176.64261,   6.80001,   6.20912,
     +    5.60020,   6.56953,   6.80343,
     +     .02071,    .00977, 186.33946,   7.16587,   6.58055,
     +    5.97788,   6.93688,   7.16928,
     +     .02104,    .00995, 195.54559,   7.51868,   6.93713,
     +    6.33833,   7.29110,   7.52210 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
     +     .02138,    .01014, 205.13533,   7.88737,   7.31070,
     +    6.71730,   7.66117,   7.89078,
     +     .02172,    .01033, 214.68669,   8.25903,   7.68650,
     +    7.09755,   8.03419,   8.26245,
     +     .02204,    .01051, 223.98032,   8.62332,   8.05490,
     +    7.47042,   8.39976,   8.62673,
     +     .02235,    .01068, 232.98787,   8.97845,   8.41438,
     +    7.83477,   8.75608,   8.98187,
     +     .02266,    .01085, 242.09029,   9.34238,   8.78164,
     +    8.20556,   9.12120,   9.34580 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
     +     .01126,    .00457,    .93471,    .58695,    .00000,
     +     .00000,    .31205,    .58890,
     +     .01164,    .00476,   1.90488,    .61521,    .00000,
     +     .00000,    .34318,    .61717,
     +     .01221,    .00506,   3.70923,    .67069,    .00000,
     +     .00000,    .40270,    .67265,
     +     .01262,    .00527,   5.30864,    .72098,    .02988,
     +     .00000,    .45580,    .72295,
     +     .01305,    .00550,   7.15535,    .78320,    .10175,
     +     .00000,    .52084,    .78517,
     +     .01343,    .00569,   8.98923,    .84518,    .16833,
     +     .00000,    .58518,    .84715,
     +     .01379,    .00588,  10.98352,    .91102,    .23992,
     +     .00000,    .65323,    .91300,
     +     .01417,    .00609,  13.35597,    .98809,    .32473,
     +     .00000,    .73258,    .99007 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
     +     .01451,    .00626,  15.59898,   1.06194,    .40223,
     +     .00000,    .80836,   1.06392,
     +     .01483,    .00644,  17.94675,   1.13894,    .48322,
     +     .00000,    .88718,   1.14093,
     +     .01509,    .00657,  19.96152,   1.20395,    .55285,
     +     .00000,    .95361,   1.20594,
     +     .01564,    .00687,  24.48316,   1.35534,    .71139,
     +     .01341,   1.10792,   1.35733,
     +     .01611,    .00712,  28.57969,   1.49830,    .85961,
     +     .18691,   1.25330,   1.50030,
     +     .01664,    .00741,  33.58651,   1.67315,   1.04091,
     +     .39716,   1.43079,   1.67515,
     +     .01720,    .00772,  39.28451,   1.87140,   1.24591,
     +     .61145,   1.63169,   1.87340,
     +     .01771,    .00799,  44.86890,   2.06575,   1.44647,
     +     .82109,   1.82838,   2.06776 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
     +     .01823,    .00828,  50.91201,   2.27643,   1.66372,
     +    1.04709,   2.04137,   2.27845,
     +     .01866,    .00851,  56.20821,   2.46219,   1.85426,
     +    1.24289,   2.22899,   2.46421,
     +     .01918,    .00880,  62.95894,   2.70062,   2.09796,
     +    1.49225,   2.46962,   2.70265,
     +     .01965,    .00906,  69.26672,   2.92426,   2.32689,
     +    1.72758,   2.69516,   2.92630,
     +     .02008,    .00930,  75.32494,   3.14003,   2.54785,
     +    1.95484,   2.91263,   3.14207,
     +     .02063,    .00960,  83.27407,   3.42686,   2.83969,
     +    2.25188,   3.20157,   3.42891,
     +     .02115,    .00989,  91.10364,   3.71140,   3.12950,
     +    2.54771,   3.48805,   3.71346,
     +     .02164,    .01017,  98.77679,   3.99180,   3.41572,
     +    2.84095,   3.77023,   3.99386 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
     +     .02213,    .01044, 106.59731,   4.28241,   3.71025,
     +    3.13947,   4.06257,   4.28447,
     +     .02262,    .01071, 114.54664,   4.57964,   4.01223,
     +    3.44689,   4.36146,   4.58171,
     +     .02308,    .01097, 122.30146,   4.87218,   4.30941,
     +    3.74939,   4.65556,   4.87426,
     +     .02352,    .01121, 129.72435,   5.15601,   4.59681,
     +    4.04069,   4.94082,   5.15810,
     +     .02396,    .01146, 137.44640,   5.45253,   4.89796,
     +    4.34727,   5.23875,   5.45463,
     +     .02439,    .01171, 145.07800,   5.75051,   5.19915,
     +    4.65190,   5.53809,   5.75261,
     +     .02481,    .01194, 152.59410,   6.04477,   5.49770,
     +    4.95547,   5.83364,   6.04688,
     +     .02521,    .01216, 159.69885,   6.32762,   5.78336,
     +    5.24417,   6.11768,   6.32974 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
     +     .02561,    .01239, 167.07774,   6.62247,   6.08193,
     +    5.54702,   6.41371,   6.62459,
     +     .02601,    .01261, 174.39903,   6.91883,   6.38139,
     +    5.84997,   6.71122,   6.92096,
     +     .02639,    .01283, 181.49994,   7.20856,   6.67422,
     +    6.14631,   7.00204,   7.21070,
     +     .02676,    .01304, 188.36246,   7.49035,   6.95931,
     +    6.43524,   7.28485,   7.49250,
     +     .02713,    .01324, 195.27145,   7.77833,   7.24975,
     +    6.72839,   7.57385,   7.78049 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
     +     .01277,    .00526,    .90932,    .54741,    .00000,
     +     .00000,    .29113,    .54857,
     +     .01321,    .00549,   1.83788,    .57460,    .00000,
     +     .00000,    .32092,    .57577,
     +     .01386,    .00583,   3.54869,    .62722,    .00000,
     +     .00000,    .37719,    .62840,
     +     .01433,    .00608,   5.05191,    .67447,    .02793,
     +     .00000,    .42698,    .67566,
     +     .01483,    .00635,   6.77472,    .73251,    .09497,
     +     .00000,    .48756,    .73370,
     +     .01526,    .00658,   8.47467,    .78999,    .15673,
     +     .00000,    .54717,    .79118,
     +     .01567,    .00680,  10.31361,    .85081,    .22287,
     +     .00000,    .60998,    .85201,
     +     .01611,    .00704,  12.49003,    .92174,    .30092,
     +     .00000,    .68296,    .92294 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
     +     .01649,    .00724,  14.53733,    .98943,    .37196,
     +     .00000,    .75239,    .99063,
     +     .01686,    .00744,  16.67118,   1.05978,    .44597,
     +     .00000,    .82438,   1.06099,
     +     .01716,    .00760,  18.49613,   1.11905,    .50944,
     +     .00000,    .88491,   1.12026,
     +     .01778,    .00794,  22.57033,   1.25651,    .65341,
     +     .01233,   1.02501,   1.25773,
     +     .01832,    .00824,  26.23789,   1.38577,    .78741,
     +     .16919,   1.15644,   1.38700,
     +     .01893,    .00857,  30.69591,   1.54324,    .95068,
     +     .35880,   1.31628,   1.54448,
     +     .01957,    .00893,  35.74089,   1.72103,   1.13449,
     +     .55109,   1.49645,   1.72228,
     +     .02015,    .00925,  40.65915,   1.89463,   1.31361,
     +     .73845,   1.67215,   1.89589 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
     +     .02074,    .00957,  45.95553,   2.08215,   1.50693,
     +     .93967,   1.86173,   2.08342,
     +     .02123,    .00985,  50.57674,   2.24692,   1.67590,
     +    1.11340,   2.02816,   2.24820,
     +     .02182,    .01018,  56.44152,   2.45771,   1.89129,
     +    1.33389,   2.24092,   2.45900,
     +     .02236,    .01048,  61.89856,   2.65480,   2.09299,
     +    1.54133,   2.43971,   2.65610,
     +     .02285,    .01075,  67.12031,   2.84441,   2.28713,
     +    1.74108,   2.63084,   2.84572,
     +     .02347,    .01110,  73.94298,   3.09564,   2.54267,
     +    2.00127,   2.88397,   3.09697,
     +     .02406,    .01143,  80.63518,   3.34407,   2.79565,
     +    2.25958,   3.13413,   3.34541,
     +     .02462,    .01174,  87.16942,   3.58817,   3.04477,
     +    2.51492,   3.37982,   3.58953 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
     +     .02517,    .01206,  93.80210,   3.84038,   3.30032,
     +    2.77398,   3.63358,   3.84175,
     +     .02572,    .01237, 100.52126,   4.09765,   3.56165,
     +    3.04010,   3.89234,   4.09903,
     +     .02625,    .01266, 107.05423,   4.35021,   3.81816,
     +    3.30128,   4.14628,   4.35160,
     +     .02674,    .01294, 113.28632,   4.59461,   4.06557,
     +    3.55210,   4.39195,   4.59602,
     +     .02724,    .01322, 119.75238,   4.84938,   4.32429,
     +    3.81557,   4.64799,   4.85080,
     +     .02773,    .01350, 126.12086,   5.10474,   4.58236,
     +    4.07663,   4.90457,   5.10618,
     +     .02820,    .01377, 132.37833,   5.35644,   4.83770,
     +    4.33634,   5.15742,   5.35790,
     +     .02865,    .01402, 138.27441,   5.59781,   5.08142,
     +    4.58268,   5.39984,   5.59927 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
     +     .02911,    .01428, 144.38498,   5.84896,   5.33572,
     +    4.84070,   5.65206,   5.85044,
     +     .02956,    .01454, 150.43063,   6.10087,   5.59023,
     +    5.09823,   5.90499,   6.10236,
     +     .02999,    .01478, 156.28064,   6.34669,   5.83865,
     +    5.34968,   6.15179,   6.34820,
     +     .03040,    .01502, 161.92247,   6.58538,   6.08012,
     +    5.59446,   6.39138,   6.58690,
     +     .03082,    .01525, 167.58688,   6.82881,   6.32560,
     +    5.84228,   6.63572,   6.83035 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
     +     .01408,    .00587,    .89054,    .51855,    .00000,
     +     .00000,    .27590,    .51924,
     +     .01457,    .00613,   1.78804,    .54493,    .00000,
     +     .00000,    .30468,    .54562,
     +     .01529,    .00652,   3.42946,    .59542,    .00000,
     +     .00000,    .35855,    .59612,
     +     .01582,    .00680,   4.86176,    .64043,    .02650,
     +     .00000,    .40591,    .64113,
     +     .01637,    .00710,   6.49375,    .69540,    .09001,
     +     .00000,    .46324,    .69612,
     +     .01685,    .00736,   8.09601,    .74961,    .14827,
     +     .00000,    .51941,    .75033,
     +     .01731,    .00761,   9.82215,    .80679,    .21045,
     +     .00000,    .57842,    .80751,
     +     .01779,    .00787,  11.85679,    .87327,    .28362,
     +     .00000,    .64680,    .87400 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
     +     .01822,    .00811,  13.76315,    .93651,    .35001,
     +     .00000,    .71164,    .93725,
     +     .01863,    .00833,  15.74349,   1.00208,    .41900,
     +     .00000,    .77872,   1.00283,
     +     .01895,    .00851,  17.43262,   1.05722,    .47805,
     +     .00000,    .83502,   1.05797,
     +     .01965,    .00889,  21.18804,   1.18471,    .61160,
     +     .01154,    .96494,   1.18547,
     +     .02025,    .00923,  24.55158,   1.30419,    .73548,
     +     .15657,   1.08643,   1.30497,
     +     .02092,    .00960,  28.62248,   1.44929,    .88594,
     +     .33154,   1.23370,   1.45008,
     +     .02163,    .00999,  33.20899,   1.61257,   1.05478,
     +     .50828,   1.39918,   1.61338,
     +     .02227,    .01035,  37.66171,   1.77152,   1.21878,
     +     .67996,   1.56005,   1.77234 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
     +     .02292,    .01072,  42.43841,   1.94271,   1.39528,
     +     .86379,   1.73313,   1.94354,
     +     .02346,    .01102,  46.59162,   2.09273,   1.54914,
     +    1.02207,   1.88469,   2.09358,
     +     .02412,    .01139,  51.84443,   2.28416,   1.74475,
     +    1.22242,   2.07793,   2.28503,
     +     .02471,    .01172,  56.71589,   2.46269,   1.92747,
     +    1.41044,   2.25802,   2.46358,
     +     .02525,    .01203,  61.36382,   2.63407,   2.10295,
     +    1.59109,   2.43080,   2.63497,
     +     .02594,    .01242,  67.41640,   2.86056,   2.33333,
     +    1.82577,   2.65902,   2.86148,
     +     .02659,    .01279,  73.33390,   3.08396,   2.56083,
     +    2.05818,   2.88401,   3.08490,
     +     .02720,    .01313,  79.09486,   3.30298,   2.78437,
     +    2.28740,   3.10449,   3.30394 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
     +     .02782,    .01348,  84.92371,   3.52871,   3.01309,
     +    2.51936,   3.33164,   3.52969,
     +     .02842,    .01383,  90.81282,   3.75849,   3.24651,
     +    2.75716,   3.56279,   3.75948,
     +     .02900,    .01415,  96.52387,   3.98360,   3.47516,
     +    2.99007,   3.78917,   3.98462,
     +     .02954,    .01446, 101.95706,   4.20099,   3.69524,
     +    3.21327,   4.00773,   4.20203,
     +     .03009,    .01478, 107.58254,   4.42723,   3.92501,
     +    3.44736,   4.23513,   4.42829,
     +     .03063,    .01508, 113.10788,   4.65354,   4.15372,
     +    3.67880,   4.46255,   4.65461,
     +     .03115,    .01538, 118.52700,   4.87625,   4.37970,
     +    3.90873,   4.68632,   4.87734,
     +     .03164,    .01566, 123.62015,   5.08943,   4.59496,
     +    4.12639,   4.90047,   5.09054 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
     +     .03214,    .01595, 128.88962,   5.31095,   4.81928,
     +    4.35407,   5.12296,   5.31207,
     +     .03264,    .01623, 134.09149,   5.53275,   5.04340,
     +    4.58092,   5.34570,   5.53389,
     +     .03311,    .01650, 139.11565,   5.74889,   5.26184,
     +    4.80212,   5.56273,   5.75005,
     +     .03356,    .01676, 143.95311,   5.95847,   5.47390,
     +    5.01717,   5.77315,   5.95965,
     +     .03402,    .01702, 148.79900,   6.17189,   5.68913,
     +    5.23451,   5.98740,   6.17309 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
     +     .01909,    .00828,    .83807,    .43823,    .00000,
     +     .00000,    .23373,    .43807,
     +     .01977,    .00866,   1.64556,    .46209,    .00000,
     +     .00000,    .25950,    .46195,
     +     .02078,    .00923,   3.08768,    .50639,    .00000,
     +     .00000,    .30648,    .50627,
     +     .02151,    .00964,   4.31858,    .54503,    .02249,
     +     .00000,    .34698,    .54493,
     +     .02228,    .01007,   5.69514,    .59143,    .07610,
     +     .00000,    .39523,    .59135,
     +     .02294,    .01045,   7.02508,    .63652,    .12464,
     +     .00000,    .44187,    .63646,
     +     .02357,    .01081,   8.43908,    .68363,    .17591,
     +     .00000,    .49043,    .68359,
     +     .02425,    .01119,  10.08444,    .73789,    .23567,
     +     .00000,    .54617,    .73787 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
     +     .02483,    .01152,  11.60656,    .78897,    .28936,
     +     .00000,    .59851,    .78896,
     +     .02540,    .01185,  13.17104,    .84151,    .34473,
     +     .00000,    .65224,    .84152,
     +     .02585,    .01210,  14.49413,    .88543,    .39183,
     +     .00000,    .69708,    .88546,
     +     .02680,    .01265,  17.39697,    .98601,    .49733,
     +     .00939,    .79956,    .98607,
     +     .02763,    .01312,  19.95484,   1.07925,    .59415,
     +     .12286,    .89436,   1.07934,
     +     .02855,    .01366,  23.00819,   1.19135,    .71057,
     +     .25892,   1.00816,   1.19147,
     +     .02952,    .01421,  26.39984,   1.31616,    .83982,
     +     .39466,   1.13469,   1.31633,
     +     .03040,    .01472,  29.64888,   1.43646,    .96414,
     +     .52521,   1.25650,   1.43666 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
     +     .03129,    .01523,  33.09179,   1.56484,   1.09669,
     +     .66370,   1.38636,   1.56508,
     +     .03203,    .01566,  36.05181,   1.67640,   1.21127,
     +     .78189,   1.49910,   1.67667,
     +     .03293,    .01618,  39.75450,   1.81756,   1.35572,
     +     .93026,   1.64168,   1.81787,
     +     .03372,    .01664,  43.15216,   1.94816,   1.48958,
     +    1.06839,   1.77349,   1.94850,
     +     .03446,    .01707,  46.36381,   2.07264,   1.61722,
     +    1.20017,   1.89906,   2.07301,
     +     .03539,    .01761,  50.50092,   2.23580,   1.78341,
     +    1.36989,   2.06356,   2.23622,
     +     .03627,    .01812,  54.50340,   2.39545,   1.94622,
     +    1.53665,   2.22444,   2.39590,
     +     .03710,    .01860,  58.36371,   2.55083,   2.10507,
     +    1.69998,   2.38096,   2.55133 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
     +     .03793,    .01908,  62.22844,   2.70972,   2.26627,
     +    1.86385,   2.54096,   2.71026,
     +     .03875,    .01955,  66.09988,   2.87039,   2.42973,
     +    2.03079,   2.70268,   2.87097,
     +     .03952,    .02000,  69.82244,   3.02677,   2.58881,
     +    2.19325,   2.86005,   3.02739,
     +     .04025,    .02043,  73.33282,   3.17680,   2.74091,
     +    2.34786,   3.01098,   3.17745,
     +     .04099,    .02086,  76.94306,   3.33210,   2.89889,
     +    2.50921,   3.16719,   3.33279,
     +     .04172,    .02128,  80.45716,   3.48642,   3.05506,
     +    2.66760,   3.32237,   3.48714,
     +     .04241,    .02168,  83.88371,   3.63758,   3.20869,
     +    2.82431,   3.47435,   3.63834,
     +     .04307,    .02206,  87.07677,   3.78138,   3.35410,
     +    2.97165,   3.61891,   3.78218 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
     +     .04373,    .02245,  90.36282,   3.93016,   3.50501,
     +    3.12520,   3.76844,   3.93099,
     +     .04439,    .02283,  93.58252,   4.07833,   3.65494,
     +    3.27730,   3.91734,   4.07920,
     +     .04502,    .02320,  96.67362,   4.22205,   3.80042,
     +    3.42494,   4.06175,   4.22294,
     +     .04562,    .02355,  99.63385,   4.36082,   3.94107,
     +    3.56791,   4.20118,   4.36176,
     +     .04623,    .02390, 102.57716,   4.50141,   4.08305,
     +    3.71159,   4.34240,   4.50237 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
     +     .02595,    .01175,    .79730,    .37062,    .00000,
     +     .00000,    .19852,    .37044,
     +     .02690,    .01231,   1.52392,    .39205,    .00000,
     +     .00000,    .22150,    .39191,
     +     .02830,    .01314,   2.78871,    .43074,    .00000,
     +     .00000,    .26234,    .43065,
     +     .02932,    .01373,   3.84318,    .46379,    .01904,
     +     .00000,    .29690,    .46375,
     +     .03038,    .01436,   4.99933,    .50280,    .06415,
     +     .00000,    .33741,    .50281,
     +     .03129,    .01490,   6.09748,    .54016,    .10445,
     +     .00000,    .37602,    .54021,
     +     .03217,    .01542,   7.24885,    .57880,    .14656,
     +     .00000,    .41582,    .57889,
     +     .03310,    .01597,   8.57045,    .62286,    .19517,
     +     .00000,    .46108,    .62300 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
     +     .03391,    .01645,   9.77671,    .66389,    .23840,
     +     .00000,    .50313,    .66407,
     +     .03469,    .01691,  11.00267,    .70574,    .28262,
     +     .00000,    .54593,    .70596,
     +     .03531,    .01728,  12.03019,    .74052,    .32000,
     +     .00000,    .58145,    .74077,
     +     .03663,    .01806,  14.25292,    .81931,    .40289,
     +     .00761,    .66178,    .81963,
     +     .03776,    .01873,  16.17751,    .89153,    .47811,
     +     .09596,    .73526,    .89190,
     +     .03903,    .01948,  18.44142,    .97743,    .56761,
     +     .20123,    .82253,    .97788,
     +     .04035,    .02026,  20.91859,   1.07202,    .66588,
     +     .30492,    .91849,   1.07253,
     +     .04155,    .02097,  23.25810,   1.16222,    .75941,
     +     .40361,   1.00991,   1.16280 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
     +     .04276,    .02169,  25.70501,   1.25756,    .85818,
     +     .50729,   1.10644,   1.25821,
     +     .04377,    .02229,  27.78354,   1.33966,    .94279,
     +     .59498,   1.18950,   1.34037,
     +     .04499,    .02301,  30.35303,   1.44263,   1.04853,
     +     .70407,   1.29361,   1.44341,
     +     .04607,    .02366,  32.68432,   1.53709,   1.14569,
     +     .80480,   1.38905,   1.53794,
     +     .04707,    .02424,  34.86613,   1.62646,   1.23766,
     +     .90019,   1.47930,   1.62736,
     +     .04833,    .02499,  37.64373,   1.74258,   1.35634,
     +    1.02193,   1.59650,   1.74355,
     +     .04952,    .02570,  40.30076,   1.85523,   1.47163,
     +    1.14056,   1.71015,   1.85628,
     +     .05063,    .02636,  42.83784,   1.96405,   1.58328,
     +    1.25589,   1.81989,   1.96517 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
     +     .05175,    .02702,  45.34848,   2.07439,   1.69560,
     +    1.37056,   1.93112,   2.07557,
     +     .05284,    .02766,  47.84043,   2.18518,   1.80872,
     +    1.48661,   2.04277,   2.18643,
     +     .05388,    .02828,  50.21461,   2.29228,   1.91806,
     +    1.59876,   2.15067,   2.29359,
     +     .05486,    .02886,  52.43157,   2.39430,   2.02184,
     +    1.70472,   2.25342,   2.39568,
     +     .05585,    .02944,  54.69545,   2.49933,   2.12907,
     +    1.81473,   2.35918,   2.50077,
     +     .05682,    .03001,  56.87657,   2.60295,   2.23428,
     +    1.92189,   2.46350,   2.60445,
     +     .05774,    .03056,  58.99041,   2.70395,   2.33731,
     +    2.02745,   2.56517,   2.70551,
     +     .05862,    .03107,  60.94112,   2.79940,   2.43415,
     +    2.12599,   2.66123,   2.80101 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
     +     .05950,    .03159,  62.93736,   2.89771,   2.53423,
     +    2.22826,   2.76016,   2.89938,
     +     .06038,    .03211,  64.87665,   2.99504,   2.63306,
     +    2.32896,   2.85808,   2.99677,
     +     .06121,    .03260,  66.72620,   3.08899,   2.72850,
     +    2.42622,   2.95259,   3.09077,
     +     .06201,    .03306,  68.48701,   3.17931,   2.82037,
     +    2.52002,   3.04344,   3.18114,
     +     .06281,    .03354,  70.22265,   3.27028,   2.91256,
     +    2.61370,   3.13494,   3.27216 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
     +     .03111,    .01450,    .78138,    .33646,    .00000,
     +     .00000,    .18082,    .33655,
     +     .03227,    .01520,   1.46454,    .35651,    .00000,
     +     .00000,    .20225,    .35666,
     +     .03397,    .01623,   2.63428,    .39214,    .00000,
     +     .00000,    .23981,    .39238,
     +     .03520,    .01697,   3.59525,    .42222,    .01722,
     +     .00000,    .27123,    .42253,
     +     .03649,    .01774,   4.63595,    .45737,    .05791,
     +     .00000,    .30772,    .45775,
     +     .03759,    .01841,   5.61400,    .49073,    .09394,
     +     .00000,    .34220,    .49118,
     +     .03865,    .01905,   6.63056,    .52502,    .13136,
     +     .00000,    .37753,    .52552,
     +     .03978,    .01973,   7.78757,    .56389,    .17430,
     +     .00000,    .41747,    .56446 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
     +     .04076,    .02032,   8.83476,    .59984,    .21225,
     +     .00000,    .45434,    .60047,
     +     .04170,    .02089,   9.89163,    .63632,    .25087,
     +     .00000,    .49167,    .63700,
     +     .04245,    .02134,  10.77249,    .66652,    .28340,
     +     .00000,    .52253,    .66724,
     +     .04403,    .02230,  12.66118,    .73450,    .35508,
     +     .00671,    .59189,    .73533,
     +     .04539,    .02311,  14.27852,    .79637,    .41968,
     +     .08272,    .65489,    .79727,
     +     .04692,    .02403,  16.16363,    .86947,    .49605,
     +     .17295,    .72923,    .87048,
     +     .04850,    .02498,  18.20696,    .94941,    .57933,
     +     .26113,    .81041,    .95051,
     +     .04994,    .02585,  20.11963,   1.02515,    .65808,
     +     .34453,    .88724,   1.02634 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
     +     .05139,    .02672,  22.10375,   1.10472,    .74076,
     +     .43162,    .96789,   1.10601,
     +     .05259,    .02744,  23.77642,   1.17286,    .81119,
     +     .50486,   1.03689,   1.17422,
     +     .05405,    .02832,  25.82881,   1.25785,    .89872,
     +     .59550,   1.12291,   1.25931,
     +     .05534,    .02909,  27.67772,   1.33542,    .97874,
     +     .67876,   1.20136,   1.33696,
     +     .05653,    .02980,  29.39721,   1.40845,   1.05413,
     +     .75724,   1.27519,   1.41007,
     +     .05803,    .03070,  31.56986,   1.50283,   1.15089,
     +     .85684,   1.37056,   1.50456,
     +     .05945,    .03155,  33.63335,   1.59392,   1.24439,
     +     .95339,   1.46255,   1.59574,
     +     .06077,    .03234,  35.59126,   1.68150,   1.33453,
     +    1.04684,   1.55096,   1.68340 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
     +     .06210,    .03313,  37.51412,   1.76982,   1.42471,
     +    1.13923,   1.64009,   1.77181,
     +     .06339,    .03390,  39.41160,   1.85813,   1.51515,
     +    1.23235,   1.72918,   1.86021,
     +     .06462,    .03463,  41.20873,   1.94313,   1.60219,
     +    1.32196,   1.81490,   1.94529,
     +     .06578,    .03532,  42.87613,   2.02374,   1.68444,
     +    1.40623,   1.89618,   2.02598,
     +     .06694,    .03601,  44.57117,   2.10644,   1.76914,
     +    1.49344,   1.97955,   2.10876,
     +     .06809,    .03669,  46.19319,   2.18766,   1.85187,
     +    1.57799,   2.06141,   2.19006,
     +     .06918,    .03734,  47.75922,   2.26660,   1.93264,
     +    1.66106,   2.14095,   2.26907,
     +     .07021,    .03795,  49.19485,   2.34087,   2.00823,
     +    1.73825,   2.21578,   2.34342 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
     +     .07125,    .03856,  50.65880,   2.41717,   2.08614,
     +    1.81816,   2.29264,   2.41979,
     +     .07227,    .03917,  52.07293,   2.49242,   2.16279,
     +    1.89653,   2.36844,   2.49511,
     +     .07325,    .03975,  53.41577,   2.56484,   2.23658,
     +    1.97201,   2.44137,   2.56760,
     +     .07419,    .04030,  54.68932,   2.63427,   2.30743,
     +    2.04461,   2.51128,   2.63709,
     +     .07513,    .04085,  55.93709,   2.70394,   2.37825,
     +    2.11683,   2.58144,   2.70683 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
     +     .03544,    .01690,    .77516,    .31455,    .00000,
     +     .00000,    .16948,    .31492,
     +     .03677,    .01772,   1.42899,    .33364,    .00000,
     +     .00000,    .18985,    .33409,
     +     .03873,    .01891,   2.53455,    .36719,    .00000,
     +     .00000,    .22519,    .36775,
     +     .04014,    .01978,   3.43279,    .39527,    .01601,
     +     .00000,    .25451,    .39592,
     +     .04161,    .02068,   4.39661,    .42785,    .05376,
     +     .00000,    .28833,    .42859,
     +     .04288,    .02145,   5.29524,    .45857,    .08698,
     +     .00000,    .32009,    .45939,
     +     .04409,    .02220,   6.22317,    .49000,    .12132,
     +     .00000,    .35249,    .49090,
     +     .04538,    .02298,   7.27262,    .52547,    .16055,
     +     .00000,    .38896,    .52645 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
     +     .04650,    .02366,   8.21653,    .55812,    .19506,
     +     .00000,    .42246,    .55917,
     +     .04757,    .02432,   9.16418,    .59112,    .23006,
     +     .00000,    .45625,    .59224,
     +     .04843,    .02484,   9.95073,    .61836,    .25945,
     +     .00000,    .48411,    .61954,
     +     .05024,    .02594,  11.62599,    .67939,    .32393,
     +     .00612,    .54643,    .68069,
     +     .05179,    .02689,  13.04862,    .73464,    .38174,
     +     .07425,    .60274,    .73604,
     +     .05352,    .02794,  14.69537,    .79961,    .44975,
     +     .15490,    .66886,    .80113,
     +     .05532,    .02903,  16.46778,    .87028,    .52355,
     +     .23325,    .74069,    .87192,
     +     .05695,    .03002,  18.11574,    .93692,    .59301,
     +     .30702,    .80836,    .93867 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
     +     .05860,    .03102,  19.81475,   1.00661,    .66561,
     +     .38372,    .87906,   1.00848,
     +     .05997,    .03185,  21.23887,   1.06604,    .72719,
     +     .44794,    .93930,   1.06801,
     +     .06162,    .03284,  22.97646,   1.13988,    .80342,
     +     .52710,   1.01410,   1.14196,
     +     .06308,    .03372,  24.53336,   1.20699,    .87283,
     +     .59954,   1.08205,   1.20917,
     +     .06442,    .03453,  25.97441,   1.26997,    .93802,
     +     .66760,   1.14578,   1.27225,
     +     .06612,    .03555,  27.78477,   1.35103,   1.02132,
     +     .75361,   1.22776,   1.35342,
     +     .06771,    .03651,  29.49487,   1.42895,   1.10152,
     +     .83667,   1.30653,   1.43145,
     +     .06921,    .03741,  31.10970,   1.50360,   1.17856,
     +     .91679,   1.38197,   1.50621 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
     +     .07070,    .03830,  32.68634,   1.57859,   1.25533,
     +     .99567,   1.45772,   1.58131,
     +     .07216,    .03917,  34.23527,   1.65332,   1.33207,
     +    1.07493,   1.53319,   1.65615,
     +     .07354,    .04000,  35.69566,   1.72503,   1.40570,
     +    1.15096,   1.60558,   1.72795,
     +     .07484,    .04077,  37.04387,   1.79280,   1.47504,
     +    1.22221,   1.67399,   1.79581,
     +     .07615,    .04155,  38.40977,   1.86215,   1.54627,
     +    1.29579,   1.74398,   1.86527,
     +     .07743,    .04231,  39.70981,   1.93004,   1.61559,
     +    1.36685,   1.81246,   1.93324,
     +     .07865,    .04304,  40.96140,   1.99586,   1.68314,
     +    1.43654,   1.87886,   1.99915,
     +     .07980,    .04372,  42.10275,   2.05760,   1.74613,
     +    1.50106,   1.94113,   2.06098 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
     +     .08097,    .04441,  43.26353,   2.12089,   1.81095,
     +    1.56774,   2.00496,   2.12436,
     +     .08212,    .04509,  44.37968,   2.18314,   1.87452,
     +    1.63295,   2.06772,   2.18668,
     +     .08321,    .04574,  45.43599,   2.24290,   1.93559,
     +    1.69561,   2.12797,   2.24653,
     +     .08425,    .04635,  46.43482,   2.30008,   1.99411,
     +    1.75576,   2.18562,   2.30378,
     +     .08530,    .04697,  47.40864,   2.35731,   2.05243,
     +    1.81542,   2.24329,   2.36108 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
     +     .03929,    .01915,    .77703,    .29942,    .00000,
     +     .00000,    .16146,    .29983,
     +     .04077,    .02007,   1.40849,    .31777,    .00000,
     +     .00000,    .18099,    .31828,
     +     .04295,    .02142,   2.46522,    .34973,    .00000,
     +     .00000,    .21461,    .35038,
     +     .04453,    .02240,   3.31594,    .37629,    .01510,
     +     .00000,    .24233,    .37704,
     +     .04617,    .02341,   4.22171,    .40691,    .05061,
     +     .00000,    .27411,    .40777,
     +     .04758,    .02427,   5.06062,    .43565,    .08172,
     +     .00000,    .30381,    .43661,
     +     .04893,    .02510,   5.92212,    .46494,    .11375,
     +     .00000,    .33400,    .46599,
     +     .05036,    .02599,   6.89127,    .49787,    .15021,
     +     .00000,    .36787,    .49902 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
     +     .05160,    .02675,   7.75841,    .52806,    .18217,
     +     .00000,    .39886,    .52930,
     +     .05279,    .02748,   8.62515,    .55848,    .21448,
     +     .00000,    .43002,    .55980,
     +     .05374,    .02806,   9.34204,    .58354,    .24155,
     +     .00000,    .45566,    .58492,
     +     .05574,    .02929,  10.86053,    .63946,    .30072,
     +     .00568,    .51277,    .64099,
     +     .05746,    .03033,  12.14089,    .68986,    .35355,
     +     .06801,    .56417,    .69151,
     +     .05937,    .03150,  13.61435,    .74891,    .41546,
     +     .14163,    .62428,    .75069,
     +     .06136,    .03272,  15.19092,    .81285,    .48235,
     +     .21282,    .68932,    .81478,
     +     .06316,    .03381,  16.64857,    .87291,    .54506,
     +     .27958,    .75033,    .87496 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
     +     .06498,    .03491,  18.14355,    .93548,    .61037,
     +     .34874,    .81385,    .93767,
     +     .06648,    .03582,  19.39073,    .98867,    .66558,
     +     .40645,    .86780,    .99096,
     +     .06830,    .03692,  20.90516,   1.05451,    .73369,
     +     .47734,    .93454,   1.05694,
     +     .06991,    .03789,  22.25584,   1.11417,    .79553,
     +     .54203,    .99499,   1.11672,
     +     .07138,    .03878,  23.50086,   1.16999,    .85342,
     +     .60262,   1.05151,   1.17265,
     +     .07324,    .03990,  25.05754,   1.24160,    .92716,
     +     .67893,   1.12399,   1.24439,
     +     .07499,    .04095,  26.52138,   1.31020,    .99792,
     +     .75240,   1.19339,   1.31313,
     +     .07663,    .04194,  27.89814,   1.37574,   1.06571,
     +     .82307,   1.25967,   1.37879 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
     +     .07826,    .04291,  29.23520,   1.44135,   1.13302,
     +     .89240,   1.32600,   1.44452,
     +     .07985,    .04386,  30.54384,   1.50657,   1.20014,
     +     .96189,   1.39191,   1.50985,
     +     .08136,    .04476,  31.77293,   1.56898,   1.26436,
     +    1.02838,   1.45497,   1.57237,
     +     .08278,    .04561,  32.90271,   1.62779,   1.32467,
     +    1.09050,   1.51438,   1.63129,
     +     .08420,    .04645,  34.04403,   1.68786,   1.38651,
     +    1.15454,   1.57504,   1.69147,
     +     .08560,    .04728,  35.12527,   1.74648,   1.44650,
     +    1.21620,   1.63424,   1.75019,
     +     .08693,    .04807,  36.16378,   1.80322,   1.50487,
     +    1.27656,   1.69152,   1.80703,
     +     .08818,    .04881,  37.10635,   1.85630,   1.55915,
     +    1.33230,   1.74510,   1.86020 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
     +     .08945,    .04956,  38.06282,   1.91062,   1.61490,
     +    1.38981,   1.79992,   1.91462,
     +     .09070,    .05030,  38.97885,   1.96391,   1.66946,
     +    1.44591,   1.85370,   1.96800,
     +     .09189,    .05100,  39.84321,   2.01497,   1.72177,
     +    1.49973,   1.90523,   2.01916,
     +     .09302,    .05166,  40.65842,   2.06375,   1.77180,
     +    1.55130,   1.95445,   2.06802,
     +     .09416,    .05233,  41.44955,   2.11244,   1.82156,
     +    1.60233,   2.00357,   2.11679 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
     +     .05446,    .02855,    .80348,    .25812,    .00000,
     +     .00000,    .13976,    .25915,
     +     .05655,    .02988,   1.36883,    .27424,    .00000,
     +     .00000,    .15687,    .27543,
     +     .05961,    .03182,   2.28143,    .30151,    .00000,
     +     .00000,    .18552,    .30294,
     +     .06182,    .03321,   2.99377,    .32368,    .01250,
     +     .00000,    .20864,    .32528,
     +     .06410,    .03464,   3.73292,    .34874,    .04170,
     +     .00000,    .23467,    .35052,
     +     .06606,    .03587,   4.40244,    .37187,    .06687,
     +     .00000,    .25861,    .37381,
     +     .06794,    .03704,   5.07746,    .39515,    .09246,
     +     .00000,    .28265,    .39724,
     +     .06992,    .03827,   5.82346,    .42102,    .12126,
     +     .00000,    .30930,    .42326 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
     +     .07163,    .03933,   6.47934,    .44443,    .14618,
     +     .00000,    .33338,    .44681,
     +     .07327,    .04035,   7.12537,    .46778,    .17114,
     +     .00000,    .35735,    .47028,
     +     .07457,    .04115,   7.65349,    .48685,    .19189,
     +     .00000,    .37691,    .48946,
     +     .07731,    .04285,   8.75111,    .52890,    .23669,
     +     .00447,    .41997,    .53172,
     +     .07965,    .04428,   9.65441,    .56625,    .27613,
     +     .05125,    .45816,    .56926,
     +     .08225,    .04587,  10.67371,    .60942,    .32176,
     +     .10610,    .50225,    .61265,
     +     .08494,    .04752,  11.74264,    .65552,    .37039,
     +     .15830,    .54928,    .65896,
     +     .08737,    .04899,  12.71214,    .69825,    .41538,
     +     .20664,    .59282,    .70188 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
     +     .08981,    .05047,  13.68897,    .74222,    .46168,
     +     .25612,    .63761,    .74605,
     +     .09182,    .05169,  14.49043,    .77915,    .50037,
     +     .29694,    .67520,    .78315,
     +     .09425,    .05315,  15.44767,    .82437,    .54757,
     +     .34653,    .72120,    .82856,
     +     .09639,    .05443,  16.28812,    .86490,    .58997,
     +     .39132,    .76240,    .86926,
     +     .09834,    .05560,  17.05211,    .90245,    .62930,
     +     .43289,    .80057,    .90697,
     +     .10080,    .05707,  17.99090,    .95008,    .67882,
     +     .48463,    .84895,    .95479,
     +     .10310,    .05844,  18.85958,    .99521,    .72583,
     +     .53394,    .89478,   1.00011,
     +     .10525,    .05972,  19.66506,   1.03790,    .77044,
     +     .58093,    .93812,   1.04298 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
     +     .10739,    .06098,  20.43300,   1.08015,    .81423,
     +     .62649,    .98101,   1.08540,
     +     .10947,    .06220,  21.17466,   1.12177,    .85752,
     +     .67178,   1.02324,   1.12719,
     +     .11143,    .06336,  21.86164,   1.16124,    .89858,
     +     .71473,   1.06328,   1.16682,
     +     .11326,    .06443,  22.48302,   1.19808,    .93676,
     +     .75449,   1.10065,   1.20381,
     +     .11511,    .06551,  23.10444,   1.23544,    .97565,
     +     .79520,   1.13854,   1.24131,
     +     .11690,    .06656,  23.68260,   1.27154,   1.01299,
     +     .83400,   1.17514,   1.27755,
     +     .11862,    .06756,  24.23339,   1.30627,   1.04913,
     +     .87179,   1.21036,   1.31242,
     +     .12022,    .06849,  24.72426,   1.33844,   1.08240,
     +     .90634,   1.24297,   1.34472 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
     +     .12184,    .06943,  25.21845,   1.37118,   1.11640,
     +     .94181,   1.27617,   1.37759,
     +     .12343,    .07035,  25.68434,   1.40303,   1.14940,
     +     .97613,   1.30846,   1.40957,
     +     .12494,    .07122,  26.11907,   1.43336,   1.18083,
     +    1.00884,   1.33920,   1.44002,
     +     .12637,    .07205,  26.52517,   1.46215,   1.21074,
     +    1.04003,   1.36839,   1.46893,
     +     .12781,    .07287,  26.91218,   1.49065,   1.24021,
     +    1.07061,   1.39728,   1.49754 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
     +     .07677,    .04359,    .88587,    .22604,    .00000,
     +     .00000,    .12277,    .22826,
     +     .07973,    .04547,   1.38563,    .24002,    .00000,
     +     .00000,    .13759,    .24250,
     +     .08404,    .04818,   2.15814,    .26289,    .00000,
     +     .00000,    .16165,    .26576,
     +     .08713,    .05011,   2.74022,    .28102,    .01019,
     +     .00000,    .18061,    .28416,
     +     .09030,    .05209,   3.32704,    .30110,    .03381,
     +     .00000,    .20153,    .30452,
     +     .09301,    .05377,   3.84523,    .31929,    .05382,
     +     .00000,    .22042,    .32295,
     +     .09560,    .05536,   4.35669,    .33734,    .07387,
     +     .00000,    .23913,    .34122,
     +     .09832,    .05703,   4.91048,    .35712,    .09613,
     +     .00000,    .25960,    .36125 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
     +     .10066,    .05846,   5.38763,    .37476,    .11513,
     +     .00000,    .27783,    .37909,
     +     .10290,    .05983,   5.84963,    .39214,    .13395,
     +     .00000,    .29576,    .39668,
     +     .10467,    .06090,   6.22220,    .40622,    .14946,
     +     .00000,    .31028,    .41092,
     +     .10838,    .06315,   6.97908,    .43681,    .18248,
     +     .00344,    .34177,    .44183,
     +     .11152,    .06504,   7.58371,    .46354,    .21109,
     +     .03765,    .36925,    .46883,
     +     .11501,    .06713,   8.25011,    .49395,    .24370,
     +     .07743,    .40049,    .49956,
     +     .11859,    .06926,   8.93215,    .52590,    .27791,
     +     .11461,    .43328,    .53182,
     +     .12181,    .07117,   9.53643,    .55505,    .30909,
     +     .14855,    .46318,    .56125 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
     +     .12502,    .07306,  10.13223,    .58462,    .34073,
     +     .18281,    .49348,    .59109,
     +     .12767,    .07461,  10.61094,    .60913,    .36682,
     +     .21072,    .51859,    .61583,
     +     .13083,    .07646,  11.17095,    .63873,    .39825,
     +     .24419,    .54891,    .64571,
     +     .13361,    .07807,  11.65308,    .66492,    .42614,
     +     .27407,    .57573,    .67214,
     +     .13614,    .07954,  12.08371,    .68892,    .45172,
     +     .30151,    .60030,    .69636,
     +     .13930,    .08136,  12.60056,    .71892,    .48350,
     +     .33522,    .63101,    .72663,
     +     .14225,    .08305,  13.06878,    .74700,    .51331,
     +     .36696,    .65973,    .75496,
     +     .14499,    .08462,  13.49496,    .77326,    .54128,
     +     .39689,    .68661,    .78146 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
     +     .14770,    .08616,  13.89084,    .79887,    .56836,
     +     .42551,    .71281,    .80730,
     +     .15032,    .08765,  14.26642,    .82383,    .59486,
     +     .45370,    .73835,    .83249,
     +     .15279,    .08904,  14.60765,    .84725,    .61974,
     +     .48016,    .76231,    .85611,
     +     .15509,    .09033,  14.90894,    .86884,    .64260,
     +     .50438,    .78440,    .87789,
     +     .15739,    .09162,  15.20620,    .89056,    .66572,
     +     .52900,    .80663,    .89981,
     +     .15962,    .09286,  15.47498,    .91127,    .68764,
     +     .55217,    .82782,    .92070,
     +     .16173,    .09404,  15.72837,    .93106,    .70871,
     +     .57461,    .84807,    .94067,
     +     .16371,    .09513,  15.94728,    .94916,    .72788,
     +     .59489,    .86660,    .95894 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
     +     .16570,    .09623,  16.16535,    .96746,    .74736,
     +     .61559,    .88534,    .97741,
     +     .16764,    .09730,  16.36548,    .98508,    .76606,
     +     .63541,    .90337,    .99518,
     +     .16948,    .09831,  16.54889,   1.00171,    .78374,
     +     .65417,    .92041,   1.01197,
     +     .17122,    .09927,  16.71767,   1.01739,    .80045,
     +     .67195,    .93648,   1.02780,
     +     .17296,    .10022,  16.87316,   1.03273,    .81674,
     +     .68919,    .95219,   1.04328 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
     +     .09480,    .05629,    .96861,    .21076,    .00000,
     +     .00000,    .11476,    .21424,
     +     .09842,    .05855,   1.42563,    .22347,    .00000,
     +     .00000,    .12827,    .22729,
     +     .10367,    .06179,   2.11509,    .24384,    .00000,
     +     .00000,    .14978,    .24815,
     +     .10741,    .06409,   2.62269,    .25972,    .00895,
     +     .00000,    .16647,    .26439,
     +     .11124,    .06642,   3.12497,    .27709,    .02962,
     +     .00000,    .18464,    .28211,
     +     .11449,    .06839,   3.56125,    .29262,    .04692,
     +     .00000,    .20085,    .29795,
     +     .11759,    .07025,   3.98582,    .30789,    .06409,
     +     .00000,    .21677,    .31351,
     +     .12084,    .07221,   4.43935,    .32448,    .08300,
     +     .00000,    .23404,    .33040 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
     +     .12363,    .07387,   4.82495,    .33913,    .09898,
     +     .00000,    .24926,    .34531,
     +     .12629,    .07545,   5.19407,    .35346,    .11469,
     +     .00000,    .26412,    .35988,
     +     .12839,    .07669,   5.48907,    .36499,    .12757,
     +     .00000,    .27609,    .37161,
     +     .13278,    .07928,   6.07883,    .38980,    .15473,
     +     .00292,    .30179,    .39682,
     +     .13647,    .08144,   6.53980,    .41124,    .17803,
     +     .03096,    .32398,    .41860,
     +     .14055,    .08380,   7.03966,    .43540,    .20432,
     +     .06339,    .34895,    .44313,
     +     .14473,    .08622,   7.54267,    .46048,    .23160,
     +     .09336,    .37486,    .46859,
     +     .14846,    .08836,   7.98088,    .48313,    .25623,
     +     .12045,    .39825,    .49157 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
     +     .15218,    .09048,   8.40615,    .50587,    .28098,
     +     .14755,    .42174,    .51465,
     +     .15523,    .09221,   8.74256,    .52455,    .30123,
     +     .16944,    .44102,    .53360,
     +     .15886,    .09426,   9.13012,    .54690,    .32539,
     +     .19548,    .46409,    .55628,
     +     .16204,    .09604,   9.45880,    .56651,    .34666,
     +     .21855,    .48432,    .57616,
     +     .16493,    .09765,   9.74832,    .58433,    .36604,
     +     .23958,    .50272,    .59424,
     +     .16852,    .09965,  10.08963,    .60640,    .38988,
     +     .26519,    .52550,    .61662,
     +     .17186,    .10149,  10.39363,    .62686,    .41205,
     +     .28912,    .54661,    .63737,
     +     .17495,    .10319,  10.66623,    .64584,    .43271,
     +     .31153,    .56622,    .65663 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
     +     .17798,    .10484,  10.91364,    .66417,    .45252,
     +     .33276,    .58514,    .67521,
     +     .18092,    .10644,  11.14490,    .68189,    .47178,
     +     .35353,    .60345,    .69319,
     +     .18367,    .10793,  11.35151,    .69839,    .48972,
     +     .37290,    .62050,    .70993,
     +     .18622,    .10930,  11.52981,    .71347,    .50608,
     +     .39049,    .63608,    .72522,
     +     .18878,    .11067,  11.70373,    .72855,    .52254,
     +     .40830,    .65168,    .74052,
     +     .19124,    .11198,  11.85636,    .74278,    .53800,
     +     .42491,    .66640,    .75496,
     +     .19357,    .11322,  11.99902,    .75632,    .55281,
     +     .44094,    .68041,    .76869,
     +     .19574,    .11436,  12.11831,    .76858,    .56616,
     +     .45530,    .69311,    .78113 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
     +     .19791,    .11551,  12.23604,    .78093,    .57967,
     +     .46991,    .70590,    .79366,
     +     .20003,    .11662,  12.34077,    .79270,    .59254,
     +     .48380,    .71811,    .80561,
     +     .20204,    .11767,  12.43482,    .80375,    .60465,
     +     .49688,    .72957,    .81682,
     +     .20393,    .11865,  12.51985,    .81411,    .61604,
     +     .50922,    .74032,    .82734,
     +     .20581,    .11963,  12.59451,    .82416,    .62705,
     +     .52111,    .75074,    .83754 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
     +     .11076,    .06769,   1.04567,    .20133,    .00000,
     +     .00000,    .10987,    .20611,
     +     .11493,    .07023,   1.46950,    .21310,    .00000,
     +     .00000,    .12244,    .21829,
     +     .12093,    .07385,   2.09799,    .23168,    .00000,
     +     .00000,    .14216,    .23746,
     +     .12520,    .07641,   2.55261,    .24600,    .00812,
     +     .00000,    .15729,    .25220,
     +     .12955,    .07900,   2.99596,    .26148,    .02680,
     +     .00000,    .17359,    .26810,
     +     .13323,    .08117,   3.37627,    .27521,    .04229,
     +     .00000,    .18800,    .28218,
     +     .13673,    .08323,   3.74234,    .28861,    .05756,
     +     .00000,    .20205,    .29592,
     +     .14040,    .08537,   4.12930,    .30306,    .07425,
     +     .00000,    .21718,    .31072 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
     +     .14353,    .08719,   4.45489,    .31573,    .08827,
     +     .00000,    .23042,    .32368,
     +     .14651,    .08891,   4.76377,    .32803,    .10197,
     +     .00000,    .24328,    .33627,
     +     .14886,    .09026,   5.00887,    .33790,    .11315,
     +     .00000,    .25358,    .34636,
     +     .15376,    .09306,   5.49252,    .35896,    .13655,
     +     .00257,    .27554,    .36787,
     +     .15787,    .09539,   5.86368,    .37700,    .15647,
     +     .02670,    .29435,    .38630,
     +     .16238,    .09794,   6.26071,    .39716,    .17877,
     +     .05448,    .31534,    .40688,
     +     .16700,    .10052,   6.65466,    .41791,    .20172,
     +     .07993,    .33693,    .42805,
     +     .17111,    .10280,   6.99305,    .43648,    .22228,
     +     .10276,    .35626,    .44699 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
     +     .17519,    .10505,   7.31705,    .45499,    .24280,
     +     .12544,    .37553,    .46587,
     +     .17852,    .10687,   7.56992,    .47007,    .25947,
     +     .14364,    .39124,    .48125,
     +     .18248,    .10903,   7.85721,    .48798,    .27922,
     +     .16516,    .40988,    .49952,
     +     .18593,    .11089,   8.09765,    .50358,    .29650,
     +     .18411,    .42613,    .51543,
     +     .18905,    .11257,   8.30685,    .51768,    .31215,
     +     .20129,    .44081,    .52980,
     +     .19293,    .11464,   8.54915,    .53498,    .33127,
     +     .22207,    .45884,    .54744,
     +     .19652,    .11655,   8.76156,    .55090,    .34893,
     +     .24136,    .47545,    .56368,
     +     .19984,    .11830,   8.94935,    .56558,    .36530,
     +     .25933,    .49076,    .57864 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
     +     .20308,    .12000,   9.11574,    .57963,    .38086,
     +     .27624,    .50542,    .59296,
     +     .20621,    .12163,   9.26894,    .59313,    .39591,
     +     .29269,    .51952,    .60673,
     +     .20913,    .12314,   9.40339,    .60561,    .40986,
     +     .30796,    .53257,    .61946,
     +     .21183,    .12453,   9.51647,    .61693,    .42249,
     +     .32174,    .54441,    .63100,
     +     .21453,    .12591,   9.62544,    .62819,    .43514,
     +     .33564,    .55621,    .64250,
     +     .21711,    .12723,   9.71766,    .63873,    .44694,
     +     .34852,    .56725,    .65324,
     +     .21957,    .12848,   9.80306,    .64871,    .45820,
     +     .36090,    .57772,    .66343,
     +     .22183,    .12962,   9.87133,    .65767,    .46828,
     +     .37192,    .58714,    .67258 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
     +     .22411,    .13076,   9.93796,    .66667,    .47845,
     +     .38311,    .59658,    .68175,
     +     .22631,    .13186,   9.99460,    .67517,    .48808,
     +     .39368,    .60553,    .69043,
     +     .22839,    .13290,  10.04397,    .68311,    .49709,
     +     .40360,    .61389,    .69854,
     +     .23036,    .13387,  10.08745,    .69051,    .50554,
     +     .41292,    .62170,    .70610,
     +     .23230,    .13482,  10.12261,    .69763,    .51365,
     +     .42184,    .62921,    .71337 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
     +     .12543,    .07816,   1.11475,    .19460,    .00000,
     +     .00000,    .10646,    .20073,
     +     .13005,    .08092,   1.51125,    .20561,    .00000,
     +     .00000,    .11829,    .21221,
     +     .13669,    .08484,   2.09086,    .22278,    .00000,
     +     .00000,    .13662,    .23005,
     +     .14140,    .08759,   2.50405,    .23589,    .00750,
     +     .00000,    .15054,    .24362,
     +     .14618,    .09036,   2.90211,    .24994,    .02468,
     +     .00000,    .16543,    .25814,
     +     .15022,    .09268,   3.24004,    .26229,    .03883,
     +     .00000,    .17849,    .27088,
     +     .15405,    .09487,   3.56238,    .27428,    .05269,
     +     .00000,    .19114,    .28324,
     +     .15805,    .09715,   3.90016,    .28713,    .06777,
     +     .00000,    .20469,    .29648 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
     +     .16146,    .09907,   4.18194,    .29833,    .08034,
     +     .00000,    .21648,    .30801,
     +     .16470,    .10089,   4.44711,    .30915,    .09258,
     +     .00000,    .22787,    .31914,
     +     .16725,    .10232,   4.65622,    .31779,    .10253,
     +     .00000,    .23696,    .32802,
     +     .17255,    .10526,   5.06433,    .33612,    .12323,
     +     .00232,    .25622,    .34684,
     +     .17697,    .10769,   5.37234,    .35170,    .14073,
     +     .02365,    .27258,    .36285,
     +     .18183,    .11034,   5.69781,    .36899,    .16020,
     +     .04813,    .29073,    .38058,
     +     .18677,    .11302,   6.01668,    .38665,    .18011,
     +     .07038,    .30927,    .39870,
     +     .19116,    .11538,   6.28704,    .40235,    .19782,
     +     .09022,    .32575,    .41479 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
     +     .19550,    .11769,   6.54269,    .41788,    .21539,
     +     .10983,    .34207,    .43072,
     +     .19903,    .11956,   6.73986,    .43046,    .22958,
     +     .12547,    .35528,    .44361,
     +     .20323,    .12176,   6.96067,    .44529,    .24630,
     +     .14387,    .37087,    .45881,
     +     .20687,    .12366,   7.14308,    .45813,    .26085,
     +     .15999,    .38438,    .47197,
     +     .21016,    .12536,   7.29991,    .46966,    .27397,
     +     .17454,    .39652,    .48380,
     +     .21422,    .12745,   7.47826,    .48373,    .28989,
     +     .19204,    .41134,    .49821,
     +     .21798,    .12937,   7.63209,    .49657,    .30451,
     +     .20820,    .42489,    .51137,
     +     .22144,    .13112,   7.76618,    .50834,    .31800,
     +     .22319,    .43731,    .52344 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
     +     .22481,    .13282,   7.88176,    .51952,    .33074,
     +     .23721,    .44913,    .53490,
     +     .22806,    .13444,   7.98629,    .53020,    .34300,
     +     .25080,    .46043,    .54585,
     +     .23108,    .13594,   8.07600,    .54001,    .35430,
     +     .26335,    .47083,    .55592,
     +     .23386,    .13731,   8.14908,    .54885,    .36448,
     +     .27461,    .48020,    .56497,
     +     .23663,    .13867,   8.21849,    .55760,    .37465,
     +     .28594,    .48950,    .57396,
     +     .23928,    .13996,   8.27428,    .56572,    .38406,
     +     .29638,    .49814,    .58228,
     +     .24179,    .14118,   8.32534,    .57338,    .39303,
     +     .30639,    .50631,    .59015,
     +     .24410,    .14228,   8.36335,    .58020,    .40099,
     +     .31525,    .51359,    .59715 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
     +     .24642,    .14339,   8.39982,    .58701,    .40901,
     +     .32422,    .52087,    .60414,
     +     .24866,    .14446,   8.42838,    .59341,    .41656,
     +     .33265,    .52773,    .61071,
     +     .25077,    .14545,   8.45183,    .59935,    .42359,
     +     .34054,    .53410,    .61682,
     +     .25275,    .14638,   8.47137,    .60487,    .43017,
     +     .34793,    .54003,    .62249,
     +     .25471,    .14729,   8.48404,    .61011,    .43643,
     +     .35496,    .54569,    .62788 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
     +     .15228,    .09713,   1.23256,    .18511,    .00000,
     +     .00000,    .10182,    .19400,
     +     .15765,    .10018,   1.58412,    .19490,    .00000,
     +     .00000,    .11247,    .20434,
     +     .16532,    .10449,   2.08643,    .20988,    .00000,
     +     .00000,    .12869,    .22010,
     +     .17071,    .10749,   2.43618,    .22112,    .00658,
     +     .00000,    .14081,    .23188,
     +     .17616,    .11049,   2.76631,    .23301,    .02158,
     +     .00000,    .15359,    .24431,
     +     .18075,    .11299,   3.04189,    .24333,    .03379,
     +     .00000,    .16466,    .25508,
     +     .18508,    .11534,   3.30082,    .25325,    .04563,
     +     .00000,    .17529,    .26541,
     +     .18958,    .11776,   3.56822,    .26377,    .05839,
     +     .00000,    .18657,    .27637 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
     +     .19341,    .11980,   3.78801,    .27284,    .06893,
     +     .00000,    .19627,    .28581,
     +     .19703,    .12172,   3.99218,    .28153,    .07911,
     +     .00000,    .20557,    .29485,
     +     .19986,    .12322,   4.15156,    .28843,    .08733,
     +     .00000,    .21295,    .30201,
     +     .20574,    .12629,   4.45607,    .30290,    .10429,
     +     .00197,    .22841,    .31703,
     +     .21061,    .12881,   4.67877,    .31505,    .11846,
     +     .01944,    .24140,    .32963,
     +     .21594,    .13154,   4.90894,    .32837,    .13407,
     +     .03938,    .25564,    .34343,
     +     .22132,    .13427,   5.12923,    .34180,    .14984,
     +     .05729,    .27001,    .35735,
     +     .22607,    .13666,   5.31145,    .35358,    .16373,
     +     .07310,    .28263,    .36955 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
     +     .23075,    .13899,   5.47959,    .36510,    .17738,
     +     .08859,    .29498,    .38147,
     +     .23453,    .14086,   5.60593,    .37432,    .18829,
     +     .10084,    .30489,    .39103,
     +     .23900,    .14304,   5.74357,    .38506,    .20102,
     +     .11511,    .31644,    .40215,
     +     .24286,    .14491,   5.85412,    .39426,    .21200,
     +     .12752,    .32634,    .41167,
     +     .24632,    .14657,   5.94656,    .40244,    .22182,
     +     .13865,    .33517,    .42014,
     +     .25059,    .14861,   6.04732,    .41227,    .23362,
     +     .15189,    .34580,    .43032,
     +     .25450,    .15045,   6.13074,    .42115,    .24435,
     +     .16403,    .35542,    .43950,
     +     .25809,    .15213,   6.20070,    .42919,    .25417,
     +     .17520,    .36416,    .44784 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
     +     .26156,    .15373,   6.25651,    .43670,    .26333,
     +     .18554,    .37235,    .45562,
     +     .26489,    .15525,   6.30448,    .44381,    .27208,
     +     .19550,    .38011,    .46299,
     +     .26797,    .15665,   6.34288,    .45026,    .28009,
     +     .20462,    .38718,    .46968,
     +     .27079,    .15792,   6.37051,    .45597,    .28722,
     +     .21275,    .39347,    .47560,
     +     .27359,    .15917,   6.39528,    .46159,    .29430,
     +     .22087,    .39966,    .48143,
     +     .27626,    .16034,   6.41057,    .46670,    .30078,
     +     .22828,    .40533,    .48673,
     +     .27877,    .16145,   6.42374,    .47150,    .30692,
     +     .23537,    .41066,    .49172,
     +     .28106,    .16244,   6.42876,    .47569,    .31231,
     +     .24157,    .41533,    .49607 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
     +     .28335,    .16343,   6.43258,    .47985,    .31771,
     +     .24782,    .41999,    .50040,
     +     .28555,    .16437,   6.43107,    .48368,    .32274,
     +     .25366,    .42430,    .50438,
     +     .28762,    .16524,   6.42700,    .48720,    .32739,
     +     .25908,    .42826,    .50803,
     +     .28955,    .16606,   6.42138,    .49043,    .33172,
     +     .26413,    .43192,    .51140,
     +     .29145,    .16685,   6.41090,    .49343,    .33578,
     +     .26889,    .43535,    .51452 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
     +     .18875,    .12210,   1.36786,    .17529,    .00000,
     +     .00000,    .09728,    .18838,
     +     .19493,    .12537,   1.66593,    .18365,    .00000,
     +     .00000,    .10660,    .19736,
     +     .20368,    .12994,   2.08093,    .19615,    .00000,
     +     .00000,    .12048,    .21074,
     +     .20979,    .13309,   2.36186,    .20536,    .00563,
     +     .00000,    .13066,    .22055,
     +     .21592,    .13620,   2.62024,    .21495,    .01838,
     +     .00000,    .14123,    .23072,
     +     .22105,    .13879,   2.83162,    .22313,    .02862,
     +     .00000,    .15025,    .23940,
     +     .22585,    .14119,   3.02659,    .23091,    .03843,
     +     .00000,    .15880,    .24762,
     +     .23083,    .14366,   3.22430,    .23906,    .04890,
     +     .00000,    .16778,    .25623 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
     +     .23504,    .14572,   3.38374,    .24599,    .05744,
     +     .00000,    .17542,    .26355,
     +     .23900,    .14764,   3.52939,    .25256,    .06562,
     +     .00000,    .18265,    .27048,
     +     .24209,    .14914,   3.64163,    .25774,    .07219,
     +     .00000,    .18835,    .27593,
     +     .24845,    .15218,   3.84964,    .26844,    .08557,
     +     .00162,    .20015,    .28719,
     +     .25368,    .15464,   3.99452,    .27730,    .09660,
     +     .01544,    .20992,    .29650,
     +     .25935,    .15728,   4.13930,    .28685,    .10860,
     +     .03112,    .22047,    .30653,
     +     .26503,    .15989,   4.27297,    .29631,    .12058,
     +     .04501,    .23095,    .31646,
     +     .27002,    .16215,   4.37920,    .30447,    .13099,
     +     .05714,    .24002,    .32502 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
     +     .27488,    .16433,   4.47321,    .31232,    .14109,
     +     .06888,    .24877,    .33327,
     +     .27878,    .16605,   4.54048,    .31850,    .14908,
     +     .07807,    .25569,    .33975,
     +     .28335,    .16805,   4.60966,    .32558,    .15829,
     +     .08868,    .26365,    .34717,
     +     .28728,    .16974,   4.66210,    .33154,    .16615,
     +     .09782,    .27038,    .35343,
     +     .29079,    .17123,   4.70340,    .33677,    .17311,
     +     .10593,    .27630,    .35892,
     +     .29505,    .17302,   4.74331,    .34292,    .18136,
     +     .11549,    .28330,    .36537,
     +     .29894,    .17462,   4.77249,    .34836,    .18878,
     +     .12416,    .28955,    .37109,
     +     .30248,    .17607,   4.79393,    .35323,    .19549,
     +     .13208,    .29514,    .37619 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
     +     .30586,    .17742,   4.80535,    .35764,    .20166,
     +     .13931,    .30028,    .38083,
     +     .30908,    .17870,   4.81198,    .36174,    .20750,
     +     .14622,    .30508,    .38514,
     +     .31205,    .17985,   4.81352,    .36539,    .21278,
     +     .15249,    .30938,    .38899,
     +     .31473,    .18088,   4.80908,    .36854,    .21743,
     +     .15802,    .31313,    .39230,
     +     .31738,    .18189,   4.80272,    .37160,    .22200,
     +     .16351,    .31680,    .39551,
     +     .31987,    .18282,   4.79049,    .37427,    .22611,
     +     .16846,    .32005,    .39833,
     +     .32221,    .18368,   4.77817,    .37676,    .22999,
     +     .17316,    .32309,    .40096,
     +     .32432,    .18444,   4.76165,    .37883,    .23334,
     +     .17723,    .32568,    .40314 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
     +     .32643,    .18520,   4.74439,    .38087,    .23667,
     +     .18131,    .32823,    .40529,
     +     .32843,    .18589,   4.72408,    .38267,    .23973,
     +     .18508,    .33053,    .40720,
     +     .33029,    .18654,   4.70323,    .38429,    .24253,
     +     .18855,    .33262,    .40891,
     +     .33202,    .18713,   4.68245,    .38574,    .24510,
     +     .19177,    .33452,    .41045,
     +     .33370,    .18768,   4.65842,    .38700,    .24748,
     +     .19476,    .33623,    .41179 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
     +     .24354,    .15734,   1.51173,    .16311,    .00000,
     +     .00000,    .09205,    .18313,
     +     .25050,    .16060,   1.74166,    .16962,    .00000,
     +     .00000,    .09966,    .19029,
     +     .26027,    .16509,   2.05124,    .17910,    .00000,
     +     .00000,    .11072,    .20064,
     +     .26702,    .16814,   2.25279,    .18591,    .00457,
     +     .00000,    .11863,    .20805,
     +     .27370,    .17112,   2.43102,    .19285,    .01481,
     +     .00000,    .12669,    .21555,
     +     .27924,    .17354,   2.57261,    .19865,    .02289,
     +     .00000,    .13342,    .22181,
     +     .28439,    .17577,   2.69983,    .20406,    .03054,
     +     .00000,    .13972,    .22764,
     +     .28968,    .17803,   2.82545,    .20965,    .03857,
     +     .00000,    .14623,    .23364 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
     +     .29411,    .17990,   2.92367,    .21430,    .04505,
     +     .00000,    .15167,    .23864,
     +     .29824,    .18162,   3.01097,    .21865,    .05117,
     +     .00000,    .15676,    .24330,
     +     .30146,    .18294,   3.07689,    .22203,    .05605,
     +     .00000,    .16073,    .24692,
     +     .30799,    .18560,   3.19218,    .22889,    .06583,
     +     .00126,    .16879,    .25425,
     +     .31330,    .18770,   3.26445,    .23442,    .07377,
     +     .01144,    .17533,    .26016,
     +     .31897,    .18990,   3.33144,    .24025,    .08227,
     +     .02291,    .18225,    .26636,
     +     .32458,    .19204,   3.38808,    .24586,    .09061,
     +     .03290,    .18898,    .27233,
     +     .32943,    .19384,   3.42824,    .25056,    .09773,
     +     .04149,    .19466,    .27732 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
     +     .33411,    .19554,   3.45919,    .25495,    .10454,
     +     .04970,    .20002,    .28198,
     +     .33781,    .19685,   3.47745,    .25831,    .10983,
     +     .05604,    .20417,    .28555,
     +     .34209,    .19833,   3.49118,    .26203,    .11585,
     +     .06326,    .20883,    .28949,
     +     .34572,    .19956,   3.49751,    .26506,    .12091,
     +     .06941,    .21269,    .29271,
     +     .34892,    .20061,   3.49890,    .26765,    .12532,
     +     .07481,    .21600,    .29544,
     +     .35274,    .20183,   3.49275,    .27055,    .13046,
     +     .08108,    .21981,    .29851,
     +     .35618,    .20288,   3.48192,    .27301,    .13500,
     +     .08670,    .22311,    .30112,
     +     .35927,    .20381,   3.46836,    .27512,    .13906,
     +     .09176,    .22599,    .30335 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
     +     .36216,    .20463,   3.44891,    .27690,    .14271,
     +     .09631,    .22852,    .30523,
     +     .36487,    .20538,   3.42740,    .27848,    .14610,
     +     .10061,    .23083,    .30689,
     +     .36733,    .20604,   3.40443,    .27981,    .14913,
     +     .10448,    .23283,    .30828,
     +     .36950,    .20659,   3.37961,    .28084,    .15172,
     +     .10782,    .23448,    .30936,
     +     .37164,    .20711,   3.35395,    .28181,    .15426,
     +     .11112,    .23607,    .31037,
     +     .37358,    .20755,   3.32548,    .28253,    .15647,
     +     .11404,    .23738,    .31112,
     +     .37541,    .20796,   3.29841,    .28317,    .15855,
     +     .11680,    .23859,    .31179,
     +     .37700,    .20827,   3.27016,    .28358,    .16028,
     +     .11914,    .23953,    .31222 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
     +     .37858,    .20858,   3.24168,    .28396,    .16199,
     +     .12147,    .24043,    .31261,
     +     .38005,    .20883,   3.21199,    .28420,    .16351,
     +     .12359,    .24117,    .31285,
     +     .38140,    .20905,   3.18313,    .28436,    .16488,
     +     .12552,    .24181,    .31301,
     +     .38263,    .20924,   3.15546,    .28446,    .16613,
     +     .12729,    .24235,    .31310,
     +     .38378,    .20939,   3.12598,    .28442,    .16723,
     +     .12890,    .24276,    .31304 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
     +     .29336,    .18680,   1.58371,    .15266,    .00000,
     +     .00000,    .08777,    .17922,
     +     .30065,    .18979,   1.76177,    .15774,    .00000,
     +     .00000,    .09406,    .18487,
     +     .31073,    .19384,   1.99454,    .16496,    .00000,
     +     .00000,    .10298,    .19284,
     +     .31765,    .19653,   2.14082,    .17003,    .00381,
     +     .00000,    .10927,    .19841,
     +     .32439,    .19912,   2.26471,    .17513,    .01231,
     +     .00000,    .11555,    .20394,
     +     .32993,    .20119,   2.36043,    .17930,    .01893,
     +     .00000,    .12072,    .20847,
     +     .33504,    .20306,   2.44416,    .18312,    .02512,
     +     .00000,    .12549,    .21261,
     +     .34025,    .20494,   2.52450,    .18700,    .03156,
     +     .00000,    .13036,    .21680 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
     +     .34456,    .20646,   2.58510,    .19018,    .03669,
     +     .00000,    .13437,    .22022,
     +     .34856,    .20783,   2.63718,    .19310,    .04151,
     +     .00000,    .13807,    .22335,
     +     .35165,    .20888,   2.67556,    .19535,    .04531,
     +     .00000,    .14093,    .22576,
     +     .35784,    .21093,   2.73705,    .19981,    .05287,
     +     .00102,    .14666,    .23052,
     +     .36281,    .21250,   2.76845,    .20332,    .05891,
     +     .00894,    .15121,    .23424,
     +     .36804,    .21410,   2.79286,    .20691,    .06530,
     +     .01782,    .15594,    .23805,
     +     .37313,    .21559,   2.80859,    .21024,    .07149,
     +     .02545,    .16042,    .24156,
     +     .37747,    .21681,   2.81472,    .21293,    .07670,
     +     .03194,    .16412,    .24438 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
     +     .38160,    .21790,   2.81410,    .21535,    .08161,
     +     .03808,    .16754,    .24690,
     +     .38480,    .21871,   2.80846,    .21712,    .08538,
     +     .04276,    .17011,    .24873,
     +     .38844,    .21957,   2.79581,    .21897,    .08962,
     +     .04806,    .17292,    .25065,
     +     .39148,    .22024,   2.78085,    .22041,    .09313,
     +     .05251,    .17518,    .25213,
     +     .39411,    .22079,   2.76439,    .22158,    .09616,
     +     .05639,    .17708,    .25331,
     +     .39719,    .22135,   2.73843,    .22275,    .09963,
     +     .06085,    .17917,    .25447,
     +     .39990,    .22180,   2.71106,    .22366,    .10265,
     +     .06479,    .18091,    .25536,
     +     .40230,    .22215,   2.68356,    .22436,    .10531,
     +     .06832,    .18238,    .25603 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
     +     .40445,    .22239,   2.65242,    .22480,    .10765,
     +     .07144,    .18356,    .25643,
     +     .40644,    .22258,   2.62081,    .22512,    .10980,
     +     .07437,    .18459,    .25668,
     +     .40819,    .22272,   2.58963,    .22529,    .11168,
     +     .07697,    .18543,    .25679,
     +     .40969,    .22276,   2.55848,    .22531,    .11326,
     +     .07920,    .18605,    .25672,
     +     .41115,    .22279,   2.52712,    .22527,    .11479,
     +     .08138,    .18662,    .25660,
     +     .41241,    .22273,   2.49445,    .22506,    .11608,
     +     .08327,    .18699,    .25630,
     +     .41357,    .22267,   2.46376,    .22484,    .11728,
     +     .08505,    .18732,    .25600,
     +     .41453,    .22254,   2.43330,    .22449,    .11825,
     +     .08654,    .18748,    .25555 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
     +     .41547,    .22241,   2.40291,    .22412,    .11919,
     +     .08801,    .18761,    .25509,
     +     .41629,    .22223,   2.37218,    .22366,    .12000,
     +     .08932,    .18763,    .25452,
     +     .41701,    .22204,   2.34280,    .22317,    .12072,
     +     .09050,    .18760,    .25393,
     +     .41765,    .22183,   2.31499,    .22268,    .12135,
     +     .09158,    .18753,    .25333,
     +     .41820,    .22158,   2.28614,    .22208,    .12187,
     +     .09254,    .18736,    .25262 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
     +     .38221,    .23327,   1.59627,    .13352,    .00000,
     +     .00000,    .07988,    .17112,
     +     .38914,    .23528,   1.70094,    .13652,    .00000,
     +     .00000,    .08416,    .17434,
     +     .39847,    .23789,   1.82972,    .14060,    .00000,
     +     .00000,    .09004,    .17862,
     +     .40470,    .23950,   1.90420,    .14336,    .00278,
     +     .00000,    .09403,    .18150,
     +     .41065,    .24094,   1.96018,    .14600,    .00890,
     +     .00000,    .09792,    .18421,
     +     .41541,    .24202,   1.99999,    .14808,    .01358,
     +     .00000,    .10103,    .18631,
     +     .41971,    .24293,   2.03209,    .14992,    .01789,
     +     .00000,    .10383,    .18815,
     +     .42399,    .24380,   2.06003,    .15172,    .02231,
     +     .00000,    .10661,    .18991 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
     +     .42745,    .24442,   2.07810,    .15312,    .02577,
     +     .00000,    .10883,    .19126,
     +     .43059,    .24494,   2.09122,    .15434,    .02897,
     +     .00000,    .11084,    .19242,
     +     .43298,    .24531,   2.09969,    .15525,    .03147,
     +     .00000,    .11236,    .19327,
     +     .43761,    .24590,   2.10449,    .15696,    .03636,
     +     .00072,    .11530,    .19481,
     +     .44116,    .24623,   2.09486,    .15818,    .04019,
     +     .00592,    .11754,    .19586,
     +     .44475,    .24644,   2.07800,    .15928,    .04416,
     +     .01172,    .11976,    .19676,
     +     .44806,    .24649,   2.05546,    .16016,    .04791,
     +     .01661,    .12173,    .19738,
     +     .45073,    .24640,   2.03103,    .16072,    .05100,
     +     .02069,    .12326,    .19770 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
     +     .45313,    .24619,   2.00327,    .16109,    .05386,
     +     .02449,    .12457,    .19780,
     +     .45487,    .24593,   1.97782,    .16124,    .05600,
     +     .02734,    .12547,    .19770,
     +     .45670,    .24549,   1.94463,    .16123,    .05835,
     +     .03051,    .12635,    .19739,
     +     .45812,    .24503,   1.91395,    .16110,    .06025,
     +     .03314,    .12698,    .19698,
     +     .45927,    .24454,   1.88494,    .16089,    .06185,
     +     .03540,    .12745,    .19651,
     +     .46040,    .24381,   1.84621,    .16044,    .06364,
     +     .03794,    .12784,    .19569,
     +     .46126,    .24306,   1.80912,    .15989,    .06515,
     +     .04016,    .12805,    .19481,
     +     .46193,    .24229,   1.77420,    .15931,    .06644,
     +     .04211,    .12816,    .19390 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
     +     .46234,    .24143,   1.73808,    .15857,    .06753,
     +     .04379,    .12809,    .19283,
     +     .46262,    .24055,   1.70291,    .15780,    .06850,
     +     .04535,    .12795,    .19172,
     +     .46275,    .23968,   1.66964,    .15700,    .06932,
     +     .04670,    .12774,    .19061,
     +     .46270,    .23879,   1.63795,    .15617,    .06997,
     +     .04784,    .12745,    .18947,
     +     .46260,    .23789,   1.60664,    .15531,    .07058,
     +     .04893,    .12712,    .18830,
     +     .46233,    .23694,   1.57542,    .15438,    .07105,
     +     .04985,    .12669,    .18705,
     +     .46204,    .23604,   1.54643,    .15348,    .07147,
     +     .05071,    .12627,    .18586,
     +     .46162,    .23512,   1.51871,    .15256,    .07178,
     +     .05140,    .12579,    .18466 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
     +     .46117,    .23420,   1.49134,    .15163,    .07206,
     +     .05208,    .12530,    .18344,
     +     .46062,    .23324,   1.46435,    .15067,    .07228,
     +     .05266,    .12476,    .18220,
     +     .46004,    .23232,   1.43893,    .14974,    .07245,
     +     .05317,    .12421,    .18098,
     +     .45945,    .23143,   1.41517,    .14884,    .07258,
     +     .05363,    .12368,    .17983,
     +     .45875,    .23049,   1.39108,    .14787,    .07265,
     +     .05401,    .12308,    .17861 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
     +     .45898,    .26729,   1.51365,    .11599,    .00000,
     +     .00000,    .07222,    .16119,
     +     .46463,    .26807,   1.57129,    .11761,    .00000,
     +     .00000,    .07508,    .16255,
     +     .47197,    .26884,   1.63627,    .11970,    .00000,
     +     .00000,    .07886,    .16420,
     +     .47668,    .26917,   1.66884,    .12103,    .00209,
     +     .00000,    .08136,    .16519,
     +     .48101,    .26927,   1.68661,    .12223,    .00666,
     +     .00000,    .08373,    .16599,
     +     .48431,    .26922,   1.69605,    .12311,    .01011,
     +     .00000,    .08556,    .16649,
     +     .48718,    .26905,   1.70096,    .12382,    .01324,
     +     .00000,    .08716,    .16684,
     +     .48995,    .26877,   1.70210,    .12446,    .01642,
     +     .00000,    .08870,    .16708 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
     +     .49206,    .26842,   1.69903,    .12489,    .01888,
     +     .00000,    .08989,    .16716,
     +     .49388,    .26801,   1.69338,    .12521,    .02113,
     +     .00000,    .09092,    .16712,
     +     .49522,    .26765,   1.68776,    .12543,    .02287,
     +     .00000,    .09169,    .16704,
     +     .49759,    .26673,   1.66717,    .12571,    .02623,
     +     .00053,    .09309,    .16670,
     +     .49919,    .26577,   1.64057,    .12578,    .02882,
     +     .00417,    .09408,    .16623,
     +     .50057,    .26458,   1.60769,    .12568,    .03146,
     +     .00820,    .09498,    .16551,
     +     .50158,    .26320,   1.57139,    .12540,    .03391,
     +     .01155,    .09567,    .16457,
     +     .50216,    .26185,   1.53688,    .12499,    .03589,
     +     .01430,    .09610,    .16356 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
     +     .50245,    .26038,   1.50098,    .12445,    .03768,
     +     .01684,    .09638,    .16240,
     +     .50245,    .25909,   1.47039,    .12390,    .03900,
     +     .01872,    .09650,    .16134,
     +     .50216,    .25744,   1.43263,    .12312,    .04042,
     +     .02078,    .09648,    .15994,
     +     .50170,    .25593,   1.39918,    .12236,    .04154,
     +     .02247,    .09637,    .15863,
     +     .50113,    .25451,   1.36856,    .12160,    .04247,
     +     .02391,    .09620,    .15737,
     +     .50012,    .25262,   1.32933,    .12054,    .04347,
     +     .02550,    .09585,    .15566,
     +     .49898,    .25078,   1.29285,    .11948,    .04429,
     +     .02686,    .09543,    .15400,
     +     .49779,    .24903,   1.25925,    .11844,    .04497,
     +     .02804,    .09498,    .15242 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
     +     .49634,    .24721,   1.22557,    .11732,    .04551,
     +     .02905,    .09442,    .15074,
     +     .49483,    .24542,   1.19330,    .11620,    .04597,
     +     .02996,    .09384,    .14908,
     +     .49328,    .24370,   1.16330,    .11511,    .04634,
     +     .03073,    .09324,    .14748,
     +     .49167,    .24202,   1.13527,    .11403,    .04661,
     +     .03137,    .09261,    .14594,
     +     .49003,    .24034,   1.10785,    .11295,    .04684,
     +     .03198,    .09197,    .14440,
     +     .48822,    .23865,   1.08104,    .11185,    .04700,
     +     .03248,    .09129,    .14282,
     +     .48650,    .23705,   1.05632,    .11081,    .04713,
     +     .03294,    .09064,    .14134,
     +     .48473,    .23550,   1.03306,    .10978,    .04719,
     +     .03329,    .08997,    .13990 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
     +     .48294,    .23394,   1.01023,    .10875,    .04724,
     +     .03362,    .08930,    .13846,
     +     .48108,    .23236,    .98800,    .10771,    .04724,
     +     .03390,    .08860,    .13702,
     +     .47927,    .23086,    .96722,    .10671,    .04722,
     +     .03414,    .08793,    .13566,
     +     .47752,    .22943,    .94793,    .10576,    .04718,
     +     .03435,    .08729,    .13436,
     +     .47566,    .22796,    .92861,    .10478,    .04710,
     +     .03451,    .08660,    .13302 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
     +     .52475,    .29179,   1.38959,    .10021,    .00000,
     +     .00000,    .06472,    .14944,
     +     .52854,    .29122,   1.41690,    .10095,    .00000,
     +     .00000,    .06654,    .14944,
     +     .53309,    .29009,   1.44226,    .10176,    .00000,
     +     .00000,    .06888,    .14916,
     +     .53576,    .28908,   1.44977,    .10222,    .00160,
     +     .00000,    .07037,    .14881,
     +     .53794,    .28783,   1.44567,    .10256,    .00509,
     +     .00000,    .07172,    .14832,
     +     .53940,    .28661,   1.43826,    .10272,    .00769,
     +     .00000,    .07272,    .14776,
     +     .54051,    .28538,   1.42853,    .10277,    .01004,
     +     .00000,    .07355,    .14713,
     +     .54140,    .28399,   1.41570,    .10274,    .01239,
     +     .00000,    .07431,    .14639 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
     +     .54189,    .28269,   1.40198,    .10264,    .01419,
     +     .00000,    .07486,    .14564,
     +     .54214,    .28138,   1.38713,    .10247,    .01583,
     +     .00000,    .07530,    .14486,
     +     .54225,    .28032,   1.37479,    .10231,    .01709,
     +     .00000,    .07561,    .14422,
     +     .54202,    .27794,   1.34295,    .10184,    .01949,
     +     .00041,    .07610,    .14274,
     +     .54140,    .27580,   1.30985,    .10133,    .02131,
     +     .00304,    .07637,    .14136,
     +     .54035,    .27330,   1.27159,    .10063,    .02314,
     +     .00595,    .07652,    .13973,
     +     .53886,    .27062,   1.23140,    .09979,    .02481,
     +     .00834,    .07650,    .13791,
     +     .53719,    .26812,   1.19474,    .09893,    .02614,
     +     .01028,    .07636,    .13618 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
     +     .53525,    .26554,   1.15784,    .09798,    .02732,
     +     .01205,    .07610,    .13438,
     +     .53342,    .26334,   1.12730,    .09713,    .02817,
     +     .01335,    .07580,    .13282,
     +     .53095,    .26063,   1.09051,    .09604,    .02907,
     +     .01476,    .07535,    .13089,
     +     .52860,    .25821,   1.05856,    .09504,    .02976,
     +     .01590,    .07489,    .12914,
     +     .52633,    .25597,   1.02979,    .09409,    .03032,
     +     .01686,    .07442,    .12753,
     +     .52318,    .25309,    .99369,    .09282,    .03090,
     +     .01791,    .07374,    .12543,
     +     .52005,    .25036,    .96064,    .09161,    .03137,
     +     .01879,    .07305,    .12344,
     +     .51704,    .24780,    .93060,    .09045,    .03174,
     +     .01955,    .07237,    .12159 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
     +     .51382,    .24519,    .90098,    .08924,    .03200,
     +     .02017,    .07163,    .11970,
     +     .51060,    .24264,    .87291,    .08805,    .03221,
     +     .02074,    .07088,    .11786,
     +     .50747,    .24022,    .84708,    .08692,    .03237,
     +     .02122,    .07015,    .11612,
     +     .50439,    .23792,    .82322,    .08583,    .03246,
     +     .02159,    .06944,    .11446,
     +     .50129,    .23563,    .80002,    .08475,    .03254,
     +     .02195,    .06872,    .11281,
     +     .49809,    .23335,    .77761,    .08366,    .03255,
     +     .02223,    .06797,    .11118,
     +     .49506,    .23121,    .75703,    .08263,    .03256,
     +     .02248,    .06726,    .10966,
     +     .49209,    .22915,    .73788,    .08164,    .03251,
     +     .02267,    .06657,    .10820 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
     +     .48910,    .22709,    .71916,    .08066,    .03246,
     +     .02285,    .06588,    .10674,
     +     .48607,    .22505,    .70108,    .07968,    .03239,
     +     .02298,    .06517,    .10531,
     +     .48316,    .22311,    .68428,    .07875,    .03230,
     +     .02309,    .06450,    .10395,
     +     .48039,    .22128,    .66875,    .07788,    .03221,
     +     .02319,    .06386,    .10268,
     +     .47750,    .21941,    .65330,    .07697,    .03209,
     +     .02325,    .06320,    .10138 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
     +     .59247,    .31176,   1.21813,    .08313,    .00000,
     +     .00000,    .05576,    .13295,
     +     .59335,    .30958,   1.22252,    .08318,    .00000,
     +     .00000,    .05670,    .13177,
     +     .59374,    .30610,   1.21888,    .08307,    .00000,
     +     .00000,    .05782,    .12990,
     +     .59343,    .30347,   1.20890,    .08290,    .00118,
     +     .00000,    .05848,    .12850,
     +     .59255,    .30062,   1.19044,    .08262,    .00372,
     +     .00000,    .05903,    .12695,
     +     .59140,    .29807,   1.17236,    .08228,    .00560,
     +     .00000,    .05937,    .12558,
     +     .59005,    .29558,   1.15369,    .08190,    .00727,
     +     .00000,    .05961,    .12421,
     +     .58838,    .29290,   1.13268,    .08145,    .00893,
     +     .00000,    .05979,    .12272 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
     +     .58666,    .29052,   1.11310,    .08098,    .01019,
     +     .00000,    .05984,    .12142,
     +     .58482,    .28819,   1.09350,    .08050,    .01133,
     +     .00000,    .05985,    .12011,
     +     .58329,    .28635,   1.07783,    .08012,    .01219,
     +     .00000,    .05983,    .11905,
     +     .57964,    .28237,   1.04134,    .07920,    .01382,
     +     .00030,    .05968,    .11680,
     +     .57619,    .27890,   1.00678,    .07835,    .01504,
     +     .00211,    .05945,    .11486,
     +     .57204,    .27498,    .96820,    .07732,    .01624,
     +     .00412,    .05909,    .11266,
     +     .56738,    .27091,    .92888,    .07620,    .01732,
     +     .00574,    .05863,    .11033,
     +     .56292,    .26719,    .89397,    .07514,    .01815,
     +     .00705,    .05812,    .10819 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
     +     .55825,    .26343,    .85959,    .07402,    .01888,
     +     .00822,    .05753,    .10604,
     +     .55420,    .26031,    .83168,    .07306,    .01939,
     +     .00908,    .05701,    .10425,
     +     .54913,    .25650,    .79867,    .07185,    .01992,
     +     .00999,    .05632,    .10208,
     +     .54453,    .25316,    .77042,    .07078,    .02031,
     +     .01072,    .05568,    .10016,
     +     .54023,    .25013,    .74530,    .06980,    .02062,
     +     .01132,    .05507,    .09841,
     +     .53460,    .24623,    .71428,    .06852,    .02092,
     +     .01197,    .05424,    .09621,
     +     .52923,    .24261,    .68626,    .06731,    .02114,
     +     .01251,    .05344,    .09416,
     +     .52415,    .23927,    .66106,    .06618,    .02131,
     +     .01297,    .05269,    .09227 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
     +     .51893,    .23589,    .63654,    .06504,    .02140,
     +     .01334,    .05190,    .09037,
     +     .51381,    .23262,    .61350,    .06392,    .02147,
     +     .01366,    .05113,    .08854,
     +     .50893,    .22955,    .59250,    .06288,    .02150,
     +     .01392,    .05040,    .08684,
     +     .50424,    .22667,    .57331,    .06187,    .02150,
     +     .01413,    .04969,    .08525,
     +     .49957,    .22381,    .55478,    .06088,    .02148,
     +     .01432,    .04898,    .08369,
     +     .49487,    .22100,    .53702,    .05990,    .02142,
     +     .01446,    .04826,    .08215,
     +     .49045,    .21837,    .52080,    .05899,    .02136,
     +     .01458,    .04760,    .08072,
     +     .48619,    .21586,    .50583,    .05813,    .02128,
     +     .01466,    .04695,    .07937 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
     +     .48193,    .21337,    .49127,    .05727,    .02119,
     +     .01474,    .04631,    .07803,
     +     .47768,    .21092,    .47730,    .05642,    .02109,
     +     .01479,    .04567,    .07672,
     +     .47363,    .20860,    .46439,    .05561,    .02098,
     +     .01483,    .04507,    .07549,
     +     .46980,    .20643,    .45251,    .05485,    .02087,
     +     .01486,    .04450,    .07434,
     +     .46588,    .20423,    .44078,    .05409,    .02074,
     +     .01486,    .04392,    .07318 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
     +     .64487,    .32232,   1.05312,    .06894,    .00000,
     +     .00000,    .04743,    .11549,
     +     .64259,    .31859,   1.04467,    .06859,    .00000,
     +     .00000,    .04781,    .11362,
     +     .63842,    .31297,   1.02550,    .06794,    .00000,
     +     .00000,    .04817,    .11087,
     +     .63493,    .30887,   1.00676,    .06743,    .00088,
     +     .00000,    .04833,    .10885,
     +     .63085,    .30455,    .98177,    .06682,    .00276,
     +     .00000,    .04839,    .10681,
     +     .62701,    .30079,    .95918,    .06624,    .00415,
     +     .00000,    .04835,    .10501,
     +     .62313,    .29720,    .93701,    .06565,    .00537,
     +     .00000,    .04826,    .10327,
     +     .61883,    .29341,    .91310,    .06499,    .00657,
     +     .00000,    .04810,    .10144 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
     +     .61489,    .29009,    .89177,    .06438,    .00747,
     +     .00000,    .04790,    .09985,
     +     .61095,    .28689,    .87101,    .06377,    .00827,
     +     .00000,    .04768,    .09832,
     +     .60780,    .28439,    .85471,    .06329,    .00888,
     +     .00000,    .04750,    .09711,
     +     .60080,    .27905,    .81832,    .06220,    .01001,
     +     .00023,    .04702,    .09456,
     +     .59460,    .27449,    .78542,    .06122,    .01084,
     +     .00151,    .04655,    .09243,
     +     .58745,    .26944,    .74943,    .06011,    .01165,
     +     .00293,    .04596,    .09004,
     +     .57983,    .26423,    .71337,    .05893,    .01237,
     +     .00406,    .04529,    .08758,
     +     .57280,    .25953,    .68186,    .05782,    .01291,
     +     .00496,    .04464,    .08538 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
     +     .56563,    .25484,    .65129,    .05669,    .01337,
     +     .00576,    .04395,    .08319,
     +     .55956,    .25099,    .62679,    .05574,    .01368,
     +     .00634,    .04335,    .08140,
     +     .55210,    .24638,    .59813,    .05459,    .01399,
     +     .00694,    .04260,    .07926,
     +     .54550,    .24234,    .57387,    .05357,    .01422,
     +     .00743,    .04192,    .07740,
     +     .53945,    .23868,    .55250,    .05263,    .01439,
     +     .00782,    .04129,    .07573,
     +     .53166,    .23406,    .52638,    .05144,    .01454,
     +     .00823,    .04046,    .07364,
     +     .52433,    .22979,    .50301,    .05033,    .01464,
     +     .00857,    .03968,    .07172,
     +     .51750,    .22588,    .48216,    .04931,    .01470,
     +     .00886,    .03894,    .06997 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
     +     .51058,    .22197,    .46210,    .04828,    .01472,
     +     .00908,    .03820,    .06822,
     +     .50387,    .21822,    .44337,    .04729,    .01471,
     +     .00927,    .03748,    .06656,
     +     .49754,    .21471,    .42640,    .04637,    .01469,
     +     .00942,    .03680,    .06502,
     +     .49154,    .21144,    .41102,    .04549,    .01464,
     +     .00953,    .03616,    .06360,
     +     .48559,    .20821,    .39624,    .04463,    .01459,
     +     .00963,    .03552,    .06221,
     +     .47968,    .20504,    .38219,    .04379,    .01451,
     +     .00970,    .03489,    .06085,
     +     .47415,    .20209,    .36940,    .04301,    .01443,
     +     .00976,    .03430,    .05959,
     +     .46887,    .19931,    .35767,    .04227,    .01434,
     +     .00979,    .03375,    .05841 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
     +     .46362,    .19656,    .34631,    .04153,    .01425,
     +     .00982,    .03320,    .05724,
     +     .45843,    .19386,    .33546,    .04082,    .01415,
     +     .00983,    .03265,    .05611,
     +     .45350,    .19132,    .32549,    .04014,    .01404,
     +     .00983,    .03213,    .05505,
     +     .44887,    .18894,    .31634,    .03951,    .01394,
     +     .00983,    .03165,    .05407,
     +     .44415,    .18653,    .30736,    .03888,    .01383,
     +     .00981,    .03116,    .05309 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
     +     .68293,    .32538,    .90558,    .05729,    .00000,
     +     .00000,    .03987,    .09808,
     +     .67735,    .32030,    .89011,    .05673,    .00000,
     +     .00000,    .03988,    .09589,
     +     .66854,    .31281,    .86292,    .05583,    .00000,
     +     .00000,    .03977,    .09269,
     +     .66185,    .30745,    .84007,    .05515,    .00067,
     +     .00000,    .03961,    .09045,
     +     .65455,    .30192,    .81264,    .05440,    .00208,
     +     .00000,    .03940,    .08815,
     +     .64804,    .29716,    .78864,    .05372,    .00311,
     +     .00000,    .03914,    .08620,
     +     .64170,    .29265,    .76565,    .05304,    .00402,
     +     .00000,    .03885,    .08436,
     +     .63489,    .28792,    .74139,    .05230,    .00490,
     +     .00000,    .03852,    .08245 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
     +     .62886,    .28382,    .72022,    .05163,    .00555,
     +     .00000,    .03821,    .08080,
     +     .62295,    .27992,    .69994,    .05097,    .00613,
     +     .00000,    .03787,    .07924,
     +     .61828,    .27687,    .68417,    .05045,    .00656,
     +     .00000,    .03759,    .07802,
     +     .60815,    .27048,    .64989,    .04934,    .00737,
     +     .00017,    .03695,    .07548,
     +     .59942,    .26506,    .61977,    .04836,    .00795,
     +     .00109,    .03638,    .07336,
     +     .58960,    .25910,    .58728,    .04725,    .00850,
     +     .00211,    .03572,    .07104,
     +     .57931,    .25303,    .55513,    .04610,    .00898,
     +     .00292,    .03499,    .06869,
     +     .56997,    .24762,    .52737,    .04505,    .00934,
     +     .00355,    .03430,    .06661 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
     +     .56060,    .24225,    .50073,    .04398,    .00963,
     +     .00411,    .03361,    .06457,
     +     .55281,    .23787,    .47959,    .04309,    .00983,
     +     .00451,    .03301,    .06291,
     +     .54334,    .23266,    .45509,    .04204,    .01001,
     +     .00492,    .03227,    .06094,
     +     .53503,    .22814,    .43451,    .04112,    .01014,
     +     .00524,    .03162,    .05926,
     +     .52749,    .22405,    .41650,    .04028,    .01023,
     +     .00551,    .03103,    .05775,
     +     .51791,    .21895,    .39473,    .03921,    .01029,
     +     .00578,    .03027,    .05588,
     +     .50899,    .21426,    .37537,    .03822,    .01033,
     +     .00600,    .02956,    .05419,
     +     .50075,    .20996,    .35821,    .03732,    .01034,
     +     .00617,    .02890,    .05265 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
     +     .49249,    .20572,    .34184,    .03641,    .01032,
     +     .00631,    .02824,    .05114,
     +     .48452,    .20166,    .32665,    .03556,    .01029,
     +     .00642,    .02761,    .04970,
     +     .47705,    .19789,    .31296,    .03476,    .01024,
     +     .00651,    .02702,    .04837,
     +     .47003,    .19439,    .30063,    .03403,    .01018,
     +     .00657,    .02646,    .04714,
     +     .46311,    .19095,    .28884,    .03330,    .01012,
     +     .00662,    .02592,    .04595,
     +     .45629,    .18758,    .27769,    .03258,    .01004,
     +     .00665,    .02538,    .04480,
     +     .44995,    .18447,    .26758,    .03191,    .00996,
     +     .00668,    .02489,    .04375,
     +     .44393,    .18153,    .25836,    .03129,    .00988,
     +     .00668,    .02442,    .04276 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
     +     .43796,    .17864,    .24946,    .03068,    .00979,
     +     .00669,    .02395,    .04179,
     +     .43208,    .17581,    .24101,    .03008,    .00970,
     +     .00668,    .02350,    .04085,
     +     .42652,    .17316,    .23326,    .02953,    .00961,
     +     .00667,    .02307,    .03998,
     +     .42132,    .17069,    .22618,    .02901,    .00952,
     +     .00665,    .02267,    .03917,
     +     .41607,    .16820,    .21925,    .02848,    .00943,
     +     .00663,    .02227,    .03837 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
     +     .70766,    .32249,    .77820,    .04779,    .00000,
     +     .00000,    .03310,    .08149,
     +     .69891,    .31619,    .75893,    .04709,    .00000,
     +     .00000,    .03291,    .07924,
     +     .68560,    .30712,    .72783,    .04605,    .00000,
     +     .00000,    .03254,    .07599,
     +     .67583,    .30073,    .70337,    .04530,    .00051,
     +     .00000,    .03224,    .07371,
     +     .66555,    .29416,    .67551,    .04447,    .00158,
     +     .00000,    .03186,    .07147,
     +     .65656,    .28858,    .65162,    .04374,    .00236,
     +     .00000,    .03150,    .06956,
     +     .64794,    .28332,    .62909,    .04303,    .00303,
     +     .00000,    .03113,    .06777,
     +     .63882,    .27785,    .60563,    .04227,    .00368,
     +     .00000,    .03072,    .06593 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
     +     .63085,    .27315,    .58545,    .04159,    .00416,
     +     .00000,    .03034,    .06438,
     +     .62315,    .26871,    .56635,    .04094,    .00458,
     +     .00000,    .02996,    .06290,
     +     .61708,    .26527,    .55161,    .04044,    .00490,
     +     .00000,    .02965,    .06175,
     +     .60424,    .25802,    .52013,    .03934,    .00547,
     +     .00013,    .02899,    .05938,
     +     .59327,    .25198,    .49304,    .03840,    .00587,
     +     .00080,    .02840,    .05744,
     +     .58109,    .24537,    .46418,    .03736,    .00626,
     +     .00154,    .02773,    .05533,
     +     .56855,    .23867,    .43593,    .03628,    .00658,
     +     .00212,    .02702,    .05320,
     +     .55728,    .23275,    .41176,    .03531,    .00682,
     +     .00257,    .02637,    .05135 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
     +     .54604,    .22694,    .38876,    .03434,    .00701,
     +     .00297,    .02571,    .04954,
     +     .53681,    .22221,    .37065,    .03355,    .00713,
     +     .00324,    .02516,    .04808,
     +     .52573,    .21658,    .34983,    .03257,    .00723,
     +     .00352,    .02449,    .04639,
     +     .51607,    .21174,    .33248,    .03174,    .00730,
     +     .00374,    .02391,    .04493,
     +     .50734,    .20741,    .31741,    .03100,    .00734,
     +     .00392,    .02338,    .04362,
     +     .49634,    .20201,    .29929,    .03007,    .00736,
     +     .00410,    .02271,    .04203,
     +     .48618,    .19708,    .28331,    .02922,    .00736,
     +     .00424,    .02209,    .04058,
     +     .47684,    .19260,    .26924,    .02846,    .00735,
     +     .00435,    .02153,    .03925 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
     +     .46756,    .18818,    .25588,    .02769,    .00731,
     +     .00443,    .02096,    .03799,
     +     .45867,    .18396,    .24356,    .02695,    .00727,
     +     .00450,    .02042,    .03679,
     +     .45041,    .18005,    .23253,    .02625,    .00721,
     +     .00455,    .01993,    .03570,
     +     .44267,    .17645,    .22262,    .02562,    .00716,
     +     .00458,    .01946,    .03469,
     +     .43505,    .17293,    .21319,    .02501,    .00709,
     +     .00461,    .01901,    .03370,
     +     .42759,    .16949,    .20435,    .02441,    .00702,
     +     .00462,    .01856,    .03278,
     +     .42066,    .16631,    .19636,    .02386,    .00695,
     +     .00462,    .01815,    .03193,
     +     .41413,    .16334,    .18911,    .02335,    .00688,
     +     .00462,    .01776,    .03112 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
     +     .40768,    .16042,    .18212,    .02285,    .00680,
     +     .00461,    .01737,    .03033,
     +     .40136,    .15756,    .17551,    .02235,    .00672,
     +     .00460,    .01701,    .02958,
     +     .39542,    .15489,    .16946,    .02189,    .00665,
     +     .00458,    .01667,    .02888,
     +     .38988,    .15240,    .16395,    .02146,    .00657,
     +     .00456,    .01635,    .02823,
     +     .38428,    .14992,    .15859,    .02103,    .00650,
     +     .00454,    .01603,    .02759 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
     +     .72023,    .31480,    .66992,    .03994,    .00000,
     +     .00000,    .02719,    .06631,
     +     .70842,    .30756,    .64866,    .03921,    .00000,
     +     .00000,    .02690,    .06414,
     +     .69097,    .29717,    .61583,    .03810,    .00000,
     +     .00000,    .02640,    .06107,
     +     .67842,    .28991,    .59102,    .03729,    .00039,
     +     .00000,    .02601,    .05898,
     +     .66540,    .28255,    .56373,    .03644,    .00121,
     +     .00000,    .02556,    .05692,
     +     .65416,    .27635,    .54067,    .03571,    .00179,
     +     .00000,    .02517,    .05516,
     +     .64350,    .27054,    .51917,    .03500,    .00230,
     +     .00000,    .02477,    .05353,
     +     .63234,    .26451,    .49706,    .03425,    .00278,
     +     .00000,    .02434,    .05187 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
     +     .62270,    .25936,    .47826,    .03360,    .00313,
     +     .00000,    .02396,    .05046,
     +     .61346,    .25451,    .46058,    .03297,    .00344,
     +     .00000,    .02358,    .04913,
     +     .60623,    .25076,    .44702,    .03249,    .00367,
     +     .00000,    .02329,    .04811,
     +     .59101,    .24295,    .41854,    .03146,    .00408,
     +     .00010,    .02263,    .04602,
     +     .57819,    .23645,    .39444,    .03059,    .00437,
     +     .00059,    .02208,    .04431,
     +     .56409,    .22941,    .36900,    .02961,    .00463,
     +     .00113,    .02146,    .04249,
     +     .54966,    .22232,    .34434,    .02863,    .00485,
     +     .00155,    .02080,    .04066,
     +     .53682,    .21610,    .32345,    .02776,    .00500,
     +     .00187,    .02021,    .03906 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
     +     .52413,    .21000,    .30370,    .02690,    .00512,
     +     .00215,    .01962,    .03752,
     +     .51377,    .20509,    .28825,    .02620,    .00519,
     +     .00234,    .01914,    .03627,
     +     .50140,    .19927,    .27066,    .02535,    .00525,
     +     .00254,    .01856,    .03483,
     +     .49071,    .19427,    .25610,    .02463,    .00528,
     +     .00269,    .01805,    .03362,
     +     .48109,    .18981,    .24353,    .02399,    .00530,
     +     .00281,    .01759,    .03254,
     +     .46905,    .18431,    .22852,    .02318,    .00530,
     +     .00293,    .01701,    .03123,
     +     .45802,    .17929,    .21536,    .02244,    .00528,
     +     .00302,    .01650,    .03004,
     +     .44795,    .17472,    .20383,    .02176,    .00525,
     +     .00309,    .01603,    .02897 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
     +     .43798,    .17026,    .19299,    .02111,    .00521,
     +     .00314,    .01555,    .02793,
     +     .42846,    .16601,    .18303,    .02048,    .00516,
     +     .00318,    .01511,    .02697,
     +     .41964,    .16209,    .17413,    .01990,    .00511,
     +     .00320,    .01469,    .02610,
     +     .41144,    .15848,    .16621,    .01938,    .00506,
     +     .00322,    .01430,    .02529,
     +     .40339,    .15496,    .15869,    .01887,    .00500,
     +     .00323,    .01392,    .02451,
     +     .39555,    .15155,    .15166,    .01838,    .00494,
     +     .00323,    .01357,    .02375,
     +     .38830,    .14841,    .14533,    .01793,    .00488,
     +     .00322,    .01325,    .02305,
     +     .38150,    .14547,    .13962,    .01749,    .00482,
     +     .00321,    .01293,    .02243 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
     +     .37480,    .14259,    .13413,    .01706,    .00476,
     +     .00320,    .01262,    .02182,
     +     .36825,    .13979,    .12896,    .01666,    .00469,
     +     .00319,    .01233,    .02123,
     +     .36210,    .13718,    .12425,    .01629,    .00463,
     +     .00317,    .01205,    .02068,
     +     .35637,    .13475,    .11996,    .01595,    .00457,
     +     .00315,    .01179,    .02017,
     +     .35060,    .13233,    .11581,    .01560,    .00451,
     +     .00313,    .01153,    .01967 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
     +     .72182,    .30332,    .57821,    .03339,    .00000,
     +     .00000,    .02210,    .05289,
     +     .70723,    .29535,    .55595,    .03264,    .00000,
     +     .00000,    .02173,    .05094,
     +     .68602,    .28400,    .52257,    .03152,    .00000,
     +     .00000,    .02118,    .04819,
     +     .67095,    .27614,    .49814,    .03075,    .00030,
     +     .00000,    .02076,    .04631,
     +     .65552,    .26821,    .47195,    .02994,    .00092,
     +     .00000,    .02032,    .04445,
     +     .64237,    .26154,    .45007,    .02922,    .00137,
     +     .00000,    .01992,    .04292,
     +     .62999,    .25534,    .42989,    .02854,    .00174,
     +     .00000,    .01953,    .04151,
     +     .61709,    .24894,    .40933,    .02783,    .00210,
     +     .00000,    .01911,    .04007 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
     +     .60602,    .24351,    .39200,    .02722,    .00236,
     +     .00000,    .01874,    .03885,
     +     .59549,    .23840,    .37585,    .02664,    .00259,
     +     .00000,    .01839,    .03772,
     +     .58730,    .23446,    .36354,    .02618,    .00275,
     +     .00000,    .01811,    .03685,
     +     .57018,    .22629,    .33797,    .02523,    .00305,
     +     .00008,    .01751,    .03508,
     +     .55586,    .21956,    .31669,    .02444,    .00325,
     +     .00044,    .01701,    .03362,
     +     .54020,    .21230,    .29443,    .02358,    .00343,
     +     .00083,    .01646,    .03207,
     +     .52436,    .20500,    .27303,    .02269,    .00358,
     +     .00114,    .01588,    .03056,
     +     .51038,    .19861,    .25503,    .02190,    .00368,
     +     .00137,    .01537,    .02925 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
     +     .49663,    .19241,    .23817,    .02113,    .00375,
     +     .00157,    .01486,    .02798,
     +     .48545,    .18744,    .22512,    .02052,    .00380,
     +     .00170,    .01444,    .02698,
     +     .47220,    .18155,    .21032,    .01979,    .00382,
     +     .00184,    .01394,    .02580,
     +     .46080,    .17652,    .19814,    .01916,    .00384,
     +     .00194,    .01351,    .02482,
     +     .45060,    .17206,    .18767,    .01860,    .00384,
     +     .00202,    .01314,    .02396,
     +     .43791,    .16655,    .17529,    .01790,    .00382,
     +     .00210,    .01267,    .02290,
     +     .42631,    .16155,    .16449,    .01727,    .00380,
     +     .00216,    .01223,    .02195,
     +     .41577,    .15703,    .15508,    .01672,    .00377,
     +     .00220,    .01183,    .02111 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
     +     .40541,    .15262,    .14629,    .01616,    .00373,
     +     .00223,    .01145,    .02029,
     +     .39556,    .14845,    .13824,    .01563,    .00368,
     +     .00225,    .01109,    .01952,
     +     .38645,    .14463,    .13109,    .01516,    .00364,
     +     .00226,    .01076,    .01882,
     +     .37802,    .14111,    .12475,    .01472,    .00359,
     +     .00227,    .01046,    .01819,
     +     .36979,    .13767,    .11876,    .01430,    .00354,
     +     .00227,    .01016,    .01757,
     +     .36179,    .13436,    .11319,    .01389,    .00349,
     +     .00227,    .00986,    .01700,
     +     .35441,    .13132,    .10818,    .01351,    .00344,
     +     .00226,    .00959,    .01649,
     +     .34751,    .12849,    .10369,    .01315,    .00339,
     +     .00225,    .00935,    .01599 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
     +     .34074,    .12571,    .09939,    .01281,    .00334,
     +     .00224,    .00912,    .01551,
     +     .33414,    .12302,    .09535,    .01247,    .00329,
     +     .00222,    .00889,    .01505,
     +     .32797,    .12051,    .09168,    .01216,    .00324,
     +     .00221,    .00867,    .01463,
     +     .32223,    .11818,    .08834,    .01188,    .00319,
     +     .00219,    .00847,    .01425,
     +     .31648,    .11587,    .08512,    .01160,    .00314,
     +     .00217,    .00827,    .01387 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
     +     .71325,    .28931,    .50013,    .02813,    .00000,
     +     .00000,    .01755,    .04121,
     +     .69629,    .28076,    .47740,    .02736,    .00000,
     +     .00000,    .01721,    .03952,
     +     .67189,    .26870,    .44432,    .02626,    .00000,
     +     .00000,    .01669,    .03716,
     +     .65477,    .26038,    .42055,    .02548,    .00023,
     +     .00000,    .01630,    .03556,
     +     .63738,    .25203,    .39572,    .02466,    .00071,
     +     .00000,    .01589,    .03402,
     +     .62269,    .24505,    .37520,    .02397,    .00104,
     +     .00000,    .01552,    .03275,
     +     .60890,    .23860,    .35642,    .02333,    .00133,
     +     .00000,    .01516,    .03156,
     +     .59460,    .23200,    .33745,    .02267,    .00159,
     +     .00000,    .01480,    .03035 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
     +     .58243,    .22639,    .32164,    .02210,    .00179,
     +     .00000,    .01446,    .02936,
     +     .57090,    .22114,    .30703,    .02157,    .00195,
     +     .00000,    .01415,    .02842,
     +     .56195,    .21710,    .29595,    .02115,    .00207,
     +     .00000,    .01390,    .02769,
     +     .54339,    .20878,    .27319,    .02029,    .00228,
     +     .00006,    .01339,    .02624,
     +     .52799,    .20194,    .25454,    .01956,    .00242,
     +     .00032,    .01296,    .02506,
     +     .51129,    .19458,    .23515,    .01875,    .00255,
     +     .00062,    .01249,    .02382,
     +     .49445,    .18725,    .21668,    .01797,    .00264,
     +     .00084,    .01200,    .02259,
     +     .47963,    .18088,    .20132,    .01730,    .00271,
     +     .00100,    .01157,    .02153 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
     +     .46516,    .17470,    .18702,    .01663,    .00275,
     +     .00114,    .01114,    .02053,
     +     .45351,    .16972,    .17600,    .01607,    .00278,
     +     .00124,    .01079,    .01976,
     +     .43972,    .16392,    .16361,    .01544,    .00279,
     +     .00133,    .01038,    .01883,
     +     .42789,    .15898,    .15349,    .01491,    .00279,
     +     .00140,    .01003,    .01804,
     +     .41737,    .15460,    .14484,    .01444,    .00278,
     +     .00146,    .00973,    .01736,
     +     .40435,    .14921,    .13466,    .01386,    .00276,
     +     .00151,    .00935,    .01652,
     +     .39250,    .14435,    .12584,    .01333,    .00273,
     +     .00154,    .00900,    .01579,
     +     .38175,    .13998,    .11819,    .01285,    .00270,
     +     .00157,    .00868,    .01513 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
     +     .37125,    .13571,    .11107,    .01238,    .00267,
     +     .00159,    .00837,    .01451,
     +     .36131,    .13168,    .10461,    .01195,    .00263,
     +     .00160,    .00808,    .01392,
     +     .35217,    .12800,    .09890,    .01155,    .00259,
     +     .00160,    .00782,    .01338,
     +     .34373,    .12461,    .09386,    .01118,    .00255,
     +     .00160,    .00758,    .01291,
     +     .33550,    .12132,    .08911,    .01082,    .00251,
     +     .00160,    .00735,    .01245,
     +     .32754,    .11817,    .08470,    .01047,    .00247,
     +     .00160,    .00712,    .01202,
     +     .32021,    .11527,    .08076,    .01016,    .00243,
     +     .00159,    .00691,    .01162,
     +     .31337,    .11258,    .07723,    .00988,    .00239,
     +     .00158,    .00672,    .01125 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
     +     .30667,    .10995,    .07385,    .00961,    .00235,
     +     .00157,    .00654,    .01089,
     +     .30017,    .10741,    .07070,    .00935,    .00231,
     +     .00155,    .00636,    .01055,
     +     .29410,    .10506,    .06784,    .00910,    .00227,
     +     .00154,    .00620,    .01023,
     +     .28847,    .10287,    .06526,    .00887,    .00223,
     +     .00153,    .00604,    .00994,
     +     .28285,    .10069,    .06278,    .00865,    .00220,
     +     .00151,    .00589,    .00965 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
     +     .69653,    .27268,    .43234,    .02327,    .00000,
     +     .00000,    .01399,    .03163,
     +     .67751,    .26381,    .40975,    .02256,    .00000,
     +     .00000,    .01365,    .03020,
     +     .65044,    .25132,    .37734,    .02150,    .00000,
     +     .00000,    .01313,    .02829,
     +     .63156,    .24279,    .35464,    .02078,    .00017,
     +     .00000,    .01275,    .02697,
     +     .61259,    .23425,    .33135,    .02003,    .00053,
     +     .00000,    .01237,    .02570,
     +     .59663,    .22716,    .31231,    .01941,    .00079,
     +     .00000,    .01206,    .02462,
     +     .58174,    .22061,    .29506,    .01883,    .00100,
     +     .00000,    .01174,    .02365,
     +     .56641,    .21391,    .27778,    .01822,    .00119,
     +     .00000,    .01140,    .02269 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
     +     .55342,    .20826,    .26347,    .01771,    .00133,
     +     .00000,    .01112,    .02186,
     +     .54115,    .20300,    .25036,    .01724,    .00145,
     +     .00000,    .01085,    .02110,
     +     .53165,    .19897,    .24048,    .01688,    .00154,
     +     .00000,    .01065,    .02051,
     +     .51211,    .19061,    .22041,    .01609,    .00169,
     +     .00005,    .01019,    .01938,
     +     .49593,    .18383,    .20415,    .01547,    .00179,
     +     .00024,    .00983,    .01843,
     +     .47851,    .17657,    .18743,    .01478,    .00187,
     +     .00045,    .00942,    .01745,
     +     .46108,    .16934,    .17163,    .01409,    .00194,
     +     .00061,    .00900,    .01650,
     +     .44583,    .16309,    .15858,    .01350,    .00198,
     +     .00073,    .00865,    .01566 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
     +     .43098,    .15707,    .14654,    .01295,    .00200,
     +     .00083,    .00831,    .01486,
     +     .41904,    .15226,    .13732,    .01250,    .00201,
     +     .00089,    .00803,    .01422,
     +     .40504,    .14661,    .12703,    .01195,    .00201,
     +     .00096,    .00770,    .01353,
     +     .39310,    .14183,    .11868,    .01149,    .00201,
     +     .00101,    .00741,    .01295,
     +     .38248,    .13761,    .11158,    .01109,    .00200,
     +     .00104,    .00716,    .01244,
     +     .36940,    .13244,    .10326,    .01061,    .00198,
     +     .00107,    .00686,    .01178,
     +     .35757,    .12778,    .09611,    .01017,    .00195,
     +     .00110,    .00658,    .01122,
     +     .34689,    .12360,    .08996,    .00977,    .00193,
     +     .00111,    .00633,    .01072 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
     +     .33647,    .11955,    .08424,    .00938,    .00189,
     +     .00112,    .00609,    .01026,
     +     .32662,    .11574,    .07907,    .00902,    .00186,
     +     .00113,    .00586,    .00981,
     +     .31758,    .11226,    .07453,    .00872,    .00183,
     +     .00113,    .00565,    .00941,
     +     .30930,    .10907,    .07053,    .00842,    .00180,
     +     .00113,    .00546,    .00904,
     +     .30125,    .10598,    .06678,    .00813,    .00177,
     +     .00112,    .00528,    .00869,
     +     .29348,    .10302,    .06332,    .00786,    .00173,
     +     .00112,    .00511,    .00837,
     +     .28633,    .10031,    .06023,    .00761,    .00170,
     +     .00111,    .00496,    .00808,
     +     .27970,    .09779,    .05748,    .00738,    .00167,
     +     .00110,    .00481,    .00780 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
     +     .27321,    .09534,    .05485,    .00715,    .00164,
     +     .00109,    .00466,    .00753,
     +     .26693,    .09297,    .05241,    .00694,    .00161,
     +     .00108,    .00452,    .00729,
     +     .26109,    .09078,    .05020,    .00675,    .00158,
     +     .00107,    .00439,    .00707,
     +     .25568,    .08875,    .04821,    .00657,    .00155,
     +     .00106,    .00427,    .00687,
     +     .25028,    .08674,    .04629,    .00639,    .00152,
     +     .00104,    .00416,    .00666 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
     +     .67226,    .25470,    .37318,    .01921,    .00000,
     +     .00000,    .01094,    .02376,
     +     .65164,    .24566,    .35098,    .01854,    .00000,
     +     .00000,    .01064,    .02261,
     +     .62249,    .23301,    .31975,    .01755,    .00000,
     +     .00000,    .01018,    .02105,
     +     .60231,    .22441,    .29831,    .01692,    .00013,
     +     .00000,    .00985,    .01998,
     +     .58220,    .21582,    .27668,    .01622,    .00040,
     +     .00000,    .00952,    .01897,
     +     .56535,    .20871,    .25921,    .01565,    .00059,
     +     .00000,    .00924,    .01815,
     +     .54975,    .20216,    .24350,    .01511,    .00075,
     +     .00000,    .00897,    .01739,
     +     .53374,    .19549,    .22790,    .01455,    .00089,
     +     .00000,    .00869,    .01662 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
     +     .52017,    .18992,    .21511,    .01411,    .00099,
     +     .00000,    .00845,    .01598,
     +     .50745,    .18472,    .20349,    .01369,    .00108,
     +     .00000,    .00822,    .01539,
     +     .49766,    .18073,    .19479,    .01336,    .00114,
     +     .00000,    .00803,    .01494,
     +     .47749,    .17258,    .17722,    .01269,    .00124,
     +     .00004,    .00765,    .01407,
     +     .46096,    .16595,    .16320,    .01215,    .00131,
     +     .00017,    .00735,    .01333,
     +     .44320,    .15889,    .14889,    .01157,    .00137,
     +     .00033,    .00704,    .01255,
     +     .42550,    .15191,    .13549,    .01100,    .00141,
     +     .00044,    .00670,    .01180,
     +     .41013,    .14587,    .12453,    .01050,    .00143,
     +     .00053,    .00640,    .01118 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
     +     .39526,    .14005,    .11449,    .01002,    .00145,
     +     .00060,    .00612,    .01059,
     +     .38333,    .13542,    .10684,    .00964,    .00145,
     +     .00064,    .00591,    .01012,
     +     .36940,    .13004,    .09834,    .00918,    .00145,
     +     .00069,    .00565,    .00958,
     +     .35755,    .12550,    .09150,    .00880,    .00144,
     +     .00072,    .00542,    .00914,
     +     .34706,    .12149,    .08572,    .00847,    .00143,
     +     .00074,    .00522,    .00875,
     +     .33422,    .11659,    .07898,    .00805,    .00141,
     +     .00076,    .00497,    .00828,
     +     .32260,    .11221,    .07322,    .00769,    .00139,
     +     .00078,    .00476,    .00785,
     +     .31213,    .10829,    .06829,    .00738,    .00137,
     +     .00079,    .00457,    .00746 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
     +     .30197,    .10449,    .06375,    .00708,    .00134,
     +     .00079,    .00438,    .00712,
     +     .29241,    .10092,    .05966,    .00679,    .00131,
     +     .00079,    .00421,    .00681,
     +     .28368,    .09766,    .05607,    .00653,    .00129,
     +     .00079,    .00405,    .00653,
     +     .27569,    .09470,    .05292,    .00629,    .00126,
     +     .00079,    .00390,    .00627,
     +     .26795,    .09185,    .04996,    .00606,    .00124,
     +     .00079,    .00375,    .00602,
     +     .26051,    .08911,    .04726,    .00584,    .00121,
     +     .00078,    .00363,    .00578,
     +     .25368,    .08660,    .04486,    .00564,    .00119,
     +     .00077,    .00352,    .00556,
     +     .24732,    .08429,    .04273,    .00548,    .00116,
     +     .00077,    .00341,    .00535 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
     +     .24112,    .08204,    .04070,    .00532,    .00114,
     +     .00076,    .00330,    .00514,
     +     .23516,    .07988,    .03881,    .00514,    .00112,
     +     .00075,    .00319,    .00497,
     +     .22964,    .07787,    .03710,    .00497,    .00110,
     +     .00074,    .00309,    .00481,
     +     .22454,    .07602,    .03557,    .00481,    .00107,
     +     .00073,    .00300,    .00467,
     +     .21945,    .07419,    .03410,    .00468,    .00105,
     +     .00072,    .00291,    .00452 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
     +     .64184,    .23569,    .32068,    .01565,    .00000,
     +     .00000,    .00847,    .01754,
     +     .62000,    .22664,    .29921,    .01505,    .00000,
     +     .00000,    .00821,    .01661,
     +     .58941,    .21403,    .26962,    .01416,    .00000,
     +     .00000,    .00781,    .01539,
     +     .56848,    .20540,    .24963,    .01352,    .00010,
     +     .00000,    .00754,    .01460,
     +     .54760,    .19693,    .22985,    .01290,    .00030,
     +     .00000,    .00727,    .01381,
     +     .53014,    .19001,    .21398,    .01244,    .00044,
     +     .00000,    .00703,    .01314,
     +     .51407,    .18361,    .19985,    .01198,    .00055,
     +     .00000,    .00679,    .01255,
     +     .49769,    .17709,    .18596,    .01149,    .00066,
     +     .00000,    .00654,    .01199 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
     +     .48387,    .17166,    .17468,    .01110,    .00073,
     +     .00000,    .00634,    .01151,
     +     .47094,    .16662,    .16447,    .01075,    .00079,
     +     .00000,    .00615,    .01104,
     +     .46100,    .16276,    .15685,    .01049,    .00083,
     +     .00000,    .00600,    .01068,
     +     .44070,    .15485,    .14169,    .00991,    .00090,
     +     .00003,    .00570,    .01001,
     +     .42412,    .14847,    .12970,    .00943,    .00095,
     +     .00013,    .00545,    .00947,
     +     .40636,    .14171,    .11761,    .00895,    .00099,
     +     .00024,    .00520,    .00889,
     +     .38877,    .13504,    .10638,    .00846,    .00102,
     +     .00032,    .00493,    .00834,
     +     .37357,    .12930,    .09724,    .00803,    .00103,
     +     .00038,    .00469,    .00788 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
     +     .35893,    .12378,    .08892,    .00762,    .00104,
     +     .00043,    .00446,    .00746,
     +     .34724,    .11942,    .08265,    .00730,    .00104,
     +     .00046,    .00429,    .00709,
     +     .33359,    .11437,    .07574,    .00696,    .00103,
     +     .00049,    .00409,    .00668,
     +     .32203,    .11010,    .07020,    .00665,    .00102,
     +     .00051,    .00392,    .00635,
     +     .31186,    .10635,    .06553,    .00636,    .00101,
     +     .00052,    .00376,    .00608,
     +     .29941,    .10178,    .06012,    .00604,    .00100,
     +     .00054,    .00358,    .00573,
     +     .28820,    .09770,    .05552,    .00576,    .00098,
     +     .00055,    .00341,    .00543,
     +     .27814,    .09406,    .05160,    .00551,    .00096,
     +     .00055,    .00326,    .00516 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
     +     .26843,    .09056,    .04801,    .00527,    .00094,
     +     .00055,    .00312,    .00489,
     +     .25931,    .08728,    .04479,    .00505,    .00092,
     +     .00055,    .00299,    .00465,
     +     .25100,    .08428,    .04197,    .00485,    .00090,
     +     .00055,    .00287,    .00444,
     +     .24341,    .08157,    .03952,    .00465,    .00088,
     +     .00055,    .00276,    .00425,
     +     .23608,    .07895,    .03723,    .00446,    .00086,
     +     .00055,    .00266,    .00408,
     +     .22904,    .07644,    .03514,    .00430,    .00084,
     +     .00054,    .00255,    .00391,
     +     .22259,    .07416,    .03329,    .00415,    .00082,
     +     .00053,    .00246,    .00375,
     +     .21663,    .07206,    .03165,    .00401,    .00080,
     +     .00053,    .00238,    .00361 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
     +     .21081,    .07002,    .03009,    .00388,    .00079,
     +     .00052,    .00230,    .00348,
     +     .20523,    .06805,    .02864,    .00375,    .00077,
     +     .00051,    .00222,    .00336,
     +     .20007,    .06623,    .02734,    .00363,    .00075,
     +     .00051,    .00214,    .00324,
     +     .19531,    .06456,    .02617,    .00352,    .00074,
     +     .00050,    .00208,    .00314,
     +     .19059,    .06290,    .02505,    .00341,    .00072,
     +     .00049,    .00202,    .00303 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
     +     .60639,    .21611,    .27368,    .01250,    .00000,
     +     .00000,    .00651,    .01274,
     +     .58383,    .20716,    .25329,    .01197,    .00000,
     +     .00000,    .00627,    .01204,
     +     .55238,    .19479,    .22570,    .01118,    .00000,
     +     .00000,    .00594,    .01109,
     +     .53092,    .18642,    .20735,    .01067,    .00007,
     +     .00000,    .00572,    .01046,
     +     .50966,    .17822,    .18945,    .01013,    .00022,
     +     .00000,    .00546,    .00987,
     +     .49207,    .17144,    .17531,    .00970,    .00032,
     +     .00000,    .00525,    .00939,
     +     .47587,    .16526,    .16280,    .00931,    .00040,
     +     .00000,    .00507,    .00894,
     +     .45937,    .15902,    .15055,    .00892,    .00048,
     +     .00000,    .00488,    .00850 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
     +     .44554,    .15380,    .14072,    .00859,    .00053,
     +     .00000,    .00471,    .00814,
     +     .43266,    .14897,    .13189,    .00829,    .00057,
     +     .00000,    .00456,    .00780,
     +     .42279,    .14527,    .12534,    .00806,    .00060,
     +     .00000,    .00445,    .00752,
     +     .40268,    .13776,    .11240,    .00756,    .00065,
     +     .00002,    .00420,    .00705,
     +     .38634,    .13169,    .10231,    .00716,    .00068,
     +     .00009,    .00400,    .00665,
     +     .36892,    .12528,    .09219,    .00676,    .00071,
     +     .00017,    .00379,    .00623,
     +     .35173,    .11900,    .08288,    .00638,    .00072,
     +     .00023,    .00358,    .00582,
     +     .33693,    .11361,    .07536,    .00604,    .00073,
     +     .00027,    .00341,    .00548 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
     +     .32272,    .10847,    .06857,    .00571,    .00073,
     +     .00030,    .00324,    .00514,
     +     .31139,    .10441,    .06349,    .00548,    .00073,
     +     .00032,    .00310,    .00488,
     +     .29825,    .09971,    .05789,    .00519,    .00073,
     +     .00034,    .00294,    .00460,
     +     .28718,    .09575,    .05344,    .00494,    .00072,
     +     .00036,    .00280,    .00437,
     +     .27746,    .09229,    .04972,    .00473,    .00071,
     +     .00037,    .00268,    .00416,
     +     .26561,    .08808,    .04544,    .00447,    .00069,
     +     .00038,    .00255,    .00391,
     +     .25497,    .08433,    .04181,    .00425,    .00068,
     +     .00038,    .00243,    .00369,
     +     .24544,    .08100,    .03872,    .00404,    .00067,
     +     .00038,    .00231,    .00350 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
     +     .23630,    .07778,    .03593,    .00385,    .00065,
     +     .00038,    .00220,    .00332,
     +     .22774,    .07479,    .03342,    .00366,    .00064,
     +     .00038,    .00211,    .00315,
     +     .21995,    .07210,    .03125,    .00350,    .00062,
     +     .00038,    .00202,    .00300,
     +     .21283,    .06964,    .02936,    .00337,    .00061,
     +     .00038,    .00194,    .00286,
     +     .20595,    .06727,    .02761,    .00326,    .00059,
     +     .00038,    .00186,    .00273,
     +     .19943,    .06502,    .02599,    .00311,    .00058,
     +     .00037,    .00179,    .00262,
     +     .19348,    .06296,    .02456,    .00298,    .00056,
     +     .00037,    .00172,    .00253,
     +     .18797,    .06107,    .02331,    .00287,    .00055,
     +     .00036,    .00165,    .00242 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
     +     .18262,    .05924,    .02213,    .00277,    .00054,
     +     .00036,    .00159,    .00231,
     +     .17746,    .05749,    .02103,    .00267,    .00052,
     +     .00035,    .00153,    .00222,
     +     .17270,    .05586,    .02004,    .00258,    .00051,
     +     .00035,    .00148,    .00215,
     +     .16831,    .05437,    .01915,    .00250,    .00050,
     +     .00034,    .00144,    .00208,
     +     .16400,    .05290,    .01831,    .00241,    .00049,
     +     .00034,    .00139,    .00201 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
     +     .56692,    .19656,    .23160,    .00999,    .00000,
     +     .00000,    .00486,    .00898,
     +     .54405,    .18785,    .21260,    .00950,    .00000,
     +     .00000,    .00467,    .00848,
     +     .51233,    .17588,    .18729,    .00881,    .00000,
     +     .00000,    .00440,    .00778,
     +     .49080,    .16780,    .17076,    .00835,    .00005,
     +     .00000,    .00420,    .00736,
     +     .46959,    .15992,    .15483,    .00792,    .00016,
     +     .00000,    .00403,    .00688,
     +     .45209,    .15345,    .14238,    .00754,    .00023,
     +     .00000,    .00386,    .00654,
     +     .43606,    .14754,    .13146,    .00720,    .00029,
     +     .00000,    .00371,    .00622,
     +     .41980,    .14158,    .12087,    .00687,    .00034,
     +     .00000,    .00357,    .00589 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
     +     .40618,    .13666,    .11243,    .00661,    .00038,
     +     .00000,    .00344,    .00563,
     +     .39356,    .13208,    .10489,    .00635,    .00041,
     +     .00000,    .00331,    .00539,
     +     .38393,    .12859,    .09932,    .00614,    .00043,
     +     .00000,    .00321,    .00521,
     +     .36432,    .12153,    .08843,    .00575,    .00046,
     +     .00002,    .00302,    .00483,
     +     .34845,    .11585,    .08003,    .00544,    .00048,
     +     .00006,    .00288,    .00454,
     +     .33160,    .10988,    .07167,    .00512,    .00050,
     +     .00012,    .00271,    .00424,
     +     .31508,    .10403,    .06406,    .00478,    .00051,
     +     .00016,    .00255,    .00396,
     +     .30092,    .09903,    .05796,    .00450,    .00051,
     +     .00019,    .00242,    .00373 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
     +     .28734,    .09428,    .05248,    .00425,    .00051,
     +     .00021,    .00229,    .00349,
     +     .27658,    .09055,    .04840,    .00406,    .00051,
     +     .00023,    .00219,    .00330,
     +     .26412,    .08625,    .04395,    .00385,    .00050,
     +     .00024,    .00207,    .00309,
     +     .25365,    .08264,    .04042,    .00366,    .00050,
     +     .00025,    .00196,    .00293,
     +     .24449,    .07947,    .03748,    .00348,    .00049,
     +     .00026,    .00187,    .00279,
     +     .23339,    .07563,    .03413,    .00327,    .00048,
     +     .00026,    .00177,    .00262,
     +     .22345,    .07223,    .03130,    .00309,    .00047,
     +     .00026,    .00168,    .00246,
     +     .21456,    .06922,    .02891,    .00295,    .00046,
     +     .00027,    .00160,    .00232 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
     +     .20603,    .06632,    .02673,    .00281,    .00045,
     +     .00026,    .00152,    .00221,
     +     .19808,    .06362,    .02480,    .00267,    .00044,
     +     .00026,    .00145,    .00210,
     +     .19090,    .06120,    .02313,    .00254,    .00042,
     +     .00026,    .00138,    .00199,
     +     .18436,    .05900,    .02168,    .00243,    .00041,
     +     .00026,    .00133,    .00190,
     +     .17806,    .05689,    .02034,    .00231,    .00040,
     +     .00026,    .00127,    .00181,
     +     .17208,    .05487,    .01912,    .00221,    .00039,
     +     .00025,    .00121,    .00173,
     +     .16663,    .05303,    .01804,    .00212,    .00038,
     +     .00025,    .00116,    .00165,
     +     .16158,    .05136,    .01709,    .00205,    .00037,
     +     .00025,    .00112,    .00158 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
     +     .15667,    .04974,    .01619,    .00198,    .00036,
     +     .00024,    .00108,    .00151,
     +     .15199,    .04819,    .01537,    .00191,    .00035,
     +     .00024,    .00105,    .00145,
     +     .14768,    .04676,    .01462,    .00184,    .00035,
     +     .00023,    .00101,    .00140,
     +     .14371,    .04544,    .01396,    .00178,    .00034,
     +     .00023,    .00098,    .00135,
     +     .13978,    .04415,    .01333,    .00172,    .00033,
     +     .00023,    .00095,    .00130 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
     +     .52469,    .17710,    .19385,    .00775,    .00000,
     +     .00000,    .00361,    .00627,
     +     .50185,    .16878,    .17650,    .00737,    .00000,
     +     .00000,    .00344,    .00587,
     +     .47036,    .15734,    .15372,    .00680,    .00000,
     +     .00000,    .00322,    .00538,
     +     .44914,    .14971,    .13907,    .00643,    .00004,
     +     .00000,    .00305,    .00504,
     +     .42830,    .14222,    .12517,    .00606,    .00011,
     +     .00000,    .00290,    .00473,
     +     .41119,    .13613,    .11438,    .00577,    .00016,
     +     .00000,    .00279,    .00445,
     +     .39556,    .13058,    .10501,    .00550,    .00020,
     +     .00000,    .00266,    .00422,
     +     .37975,    .12499,    .09601,    .00522,    .00024,
     +     .00000,    .00253,    .00400 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
     +     .36656,    .12039,    .08888,    .00501,    .00027,
     +     .00000,    .00243,    .00382,
     +     .35437,    .11613,    .08254,    .00481,    .00029,
     +     .00000,    .00234,    .00364,
     +     .34507,    .11288,    .07787,    .00465,    .00030,
     +     .00000,    .00227,    .00350,
     +     .32626,    .10630,    .06886,    .00432,    .00032,
     +     .00001,    .00213,    .00325,
     +     .31111,    .10106,    .06198,    .00407,    .00034,
     +     .00004,    .00202,    .00305,
     +     .29510,    .09555,    .05519,    .00382,    .00035,
     +     .00008,    .00190,    .00284,
     +     .27942,    .09020,    .04904,    .00358,    .00035,
     +     .00011,    .00178,    .00262,
     +     .26603,    .08564,    .04416,    .00337,    .00036,
     +     .00013,    .00168,    .00245 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
     +     .25328,    .08130,    .03981,    .00317,    .00035,
     +     .00015,    .00158,    .00230,
     +     .24321,    .07789,    .03658,    .00301,    .00035,
     +     .00016,    .00151,    .00216,
     +     .23161,    .07397,    .03309,    .00282,    .00035,
     +     .00016,    .00142,    .00203,
     +     .22186,    .07070,    .03033,    .00267,    .00034,
     +     .00017,    .00134,    .00193,
     +     .21333,    .06786,    .02804,    .00255,    .00034,
     +     .00018,    .00128,    .00183,
     +     .20301,    .06442,    .02543,    .00241,    .00033,
     +     .00018,    .00120,    .00171,
     +     .19386,    .06137,    .02325,    .00227,    .00032,
     +     .00018,    .00114,    .00160,
     +     .18574,    .05866,    .02141,    .00214,    .00031,
     +     .00018,    .00108,    .00150 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
     +     .17791,    .05608,    .01975,    .00203,    .00030,
     +     .00018,    .00102,    .00143,
     +     .17063,    .05369,    .01828,    .00193,    .00029,
     +     .00018,    .00097,    .00135,
     +     .16407,    .05153,    .01701,    .00184,    .00029,
     +     .00018,    .00092,    .00128,
     +     .15812,    .04958,    .01591,    .00176,    .00028,
     +     .00018,    .00089,    .00121,
     +     .15241,    .04771,    .01490,    .00167,    .00027,
     +     .00017,    .00085,    .00115,
     +     .14699,    .04594,    .01398,    .00160,    .00026,
     +     .00017,    .00082,    .00109,
     +     .14206,    .04433,    .01316,    .00153,    .00026,
     +     .00017,    .00078,    .00104,
     +     .13753,    .04285,    .01245,    .00146,    .00025,
     +     .00017,    .00075,    .00100 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
     +     .13314,    .04142,    .01178,    .00140,    .00024,
     +     .00016,    .00071,    .00097,
     +     .12894,    .04006,    .01116,    .00135,    .00024,
     +     .00016,    .00069,    .00092,
     +     .12506,    .03882,    .01061,    .00131,    .00023,
     +     .00016,    .00066,    .00088,
     +     .12150,    .03768,    .01011,    .00127,    .00023,
     +     .00015,    .00064,    .00085,
     +     .11801,    .03654,    .00965,    .00122,    .00022,
     +     .00015,    .00062,    .00082 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
     +     .48052,    .15809,    .16001,    .00589,    .00000,
     +     .00000,    .00265,    .00430,
     +     .45813,    .15018,    .14448,    .00555,    .00000,
     +     .00000,    .00251,    .00403,
     +     .42739,    .13940,    .12440,    .00510,    .00000,
     +     .00000,    .00234,    .00366,
     +     .40674,    .13221,    .11168,    .00477,    .00003,
     +     .00000,    .00219,    .00345,
     +     .38657,    .12525,    .09977,    .00451,    .00008,
     +     .00000,    .00210,    .00319,
     +     .37011,    .11955,    .09060,    .00426,    .00011,
     +     .00000,    .00200,    .00302,
     +     .35511,    .11439,    .08269,    .00404,    .00014,
     +     .00000,    .00191,    .00286,
     +     .33997,    .10922,    .07514,    .00382,    .00017,
     +     .00000,    .00181,    .00270 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
     +     .32743,    .10495,    .06922,    .00362,    .00018,
     +     .00000,    .00174,    .00257,
     +     .31582,    .10101,    .06400,    .00346,    .00020,
     +     .00000,    .00167,    .00245,
     +     .30698,    .09802,    .06019,    .00335,    .00021,
     +     .00000,    .00163,    .00237,
     +     .28915,    .09201,    .05286,    .00311,    .00022,
     +     .00001,    .00152,    .00219,
     +     .27486,    .08722,    .04731,    .00293,    .00023,
     +     .00003,    .00143,    .00203,
     +     .25986,    .08221,    .04189,    .00273,    .00024,
     +     .00006,    .00134,    .00188,
     +     .24521,    .07735,    .03701,    .00253,    .00024,
     +     .00008,    .00125,    .00175,
     +     .23274,    .07322,    .03317,    .00236,    .00024,
     +     .00009,    .00117,    .00164 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
     +     .22092,    .06930,    .02977,    .00220,    .00024,
     +     .00010,    .00110,    .00153,
     +     .21159,    .06624,    .02725,    .00210,    .00024,
     +     .00011,    .00104,    .00145,
     +     .20088,    .06273,    .02455,    .00197,    .00023,
     +     .00011,    .00097,    .00135,
     +     .19193,    .05981,    .02243,    .00185,    .00023,
     +     .00012,    .00092,    .00126,
     +     .18414,    .05728,    .02068,    .00176,    .00023,
     +     .00012,    .00089,    .00120,
     +     .17472,    .05423,    .01869,    .00165,    .00022,
     +     .00012,    .00084,    .00111,
     +     .16638,    .05152,    .01704,    .00155,    .00021,
     +     .00012,    .00079,    .00105,
     +     .15901,    .04911,    .01565,    .00144,    .00021,
     +     .00012,    .00074,    .00099 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
     +     .15191,    .04686,    .01440,    .00139,    .00020,
     +     .00012,    .00070,    .00093,
     +     .14535,    .04476,    .01329,    .00132,    .00020,
     +     .00012,    .00067,    .00087,
     +     .13947,    .04286,    .01234,    .00124,    .00019,
     +     .00012,    .00064,    .00083,
     +     .13414,    .04116,    .01153,    .00117,    .00018,
     +     .00012,    .00061,    .00079,
     +     .12902,    .03954,    .01077,    .00111,    .00018,
     +     .00012,    .00057,    .00075,
     +     .12417,    .03799,    .01009,    .00107,    .00017,
     +     .00011,    .00055,    .00071,
     +     .11976,    .03659,    .00949,    .00103,    .00017,
     +     .00011,    .00053,    .00068,
     +     .11572,    .03531,    .00896,    .00099,    .00016,
     +     .00011,    .00051,    .00065 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
     +     .11181,    .03408,    .00847,    .00095,    .00016,
     +     .00011,    .00048,    .00063,
     +     .10810,    .03290,    .00801,    .00090,    .00016,
     +     .00011,    .00046,    .00060,
     +     .10470,    .03182,    .00761,    .00085,    .00015,
     +     .00010,    .00044,    .00058,
     +     .10157,    .03084,    .00724,    .00082,    .00015,
     +     .00010,    .00043,    .00056,
     +     .09848,    .02987,    .00690,    .00079,    .00014,
     +     .00010,    .00041,    .00053 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
     +     .43555,    .13979,    .13014,    .00435,    .00000,
     +     .00000,    .00192,    .00289,
     +     .41388,    .13239,    .11650,    .00408,    .00000,
     +     .00000,    .00181,    .00270,
     +     .38424,    .12235,    .09917,    .00371,    .00000,
     +     .00000,    .00167,    .00247,
     +     .36451,    .11566,    .08833,    .00345,    .00002,
     +     .00000,    .00158,    .00229,
     +     .34526,    .10921,    .07831,    .00323,    .00005,
     +     .00000,    .00150,    .00213,
     +     .32963,    .10396,    .07067,    .00302,    .00008,
     +     .00000,    .00143,    .00203,
     +     .31539,    .09922,    .06415,    .00286,    .00010,
     +     .00000,    .00136,    .00193,
     +     .30106,    .09449,    .05797,    .00271,    .00011,
     +     .00000,    .00129,    .00182 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
     +     .28927,    .09059,    .05315,    .00257,    .00012,
     +     .00000,    .00124,    .00171,
     +     .27837,    .08701,    .04892,    .00245,    .00013,
     +     .00000,    .00119,    .00163,
     +     .27008,    .08429,    .04584,    .00236,    .00014,
     +     .00000,    .00115,    .00158,
     +     .25350,    .07884,    .03999,    .00217,    .00015,
     +     .00001,    .00106,    .00147,
     +     .24024,    .07451,    .03561,    .00201,    .00015,
     +     .00002,    .00100,    .00136,
     +     .22633,    .07000,    .03136,    .00187,    .00016,
     +     .00004,    .00094,    .00124,
     +     .21283,    .06563,    .02756,    .00173,    .00016,
     +     .00005,    .00088,    .00115,
     +     .20140,    .06194,    .02458,    .00160,    .00016,
     +     .00006,    .00082,    .00109 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
     +     .19057,    .05845,    .02197,    .00149,    .00016,
     +     .00007,    .00077,    .00101,
     +     .18205,    .05575,    .02004,    .00143,    .00016,
     +     .00007,    .00073,    .00094,
     +     .17233,    .05265,    .01800,    .00132,    .00015,
     +     .00007,    .00068,    .00088,
     +     .16421,    .05007,    .01640,    .00124,    .00015,
     +     .00008,    .00064,    .00083,
     +     .15714,    .04785,    .01507,    .00119,    .00015,
     +     .00008,    .00061,    .00078,
     +     .14869,    .04517,    .01358,    .00109,    .00014,
     +     .00008,    .00058,    .00072,
     +     .14121,    .04280,    .01234,    .00102,    .00014,
     +     .00008,    .00054,    .00069,
     +     .13458,    .04071,    .01131,    .00096,    .00014,
     +     .00008,    .00051,    .00066 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
     +     .12828,    .03874,    .01038,    .00091,    .00013,
     +     .00008,    .00049,    .00061,
     +     .12244,    .03692,    .00957,    .00086,    .00013,
     +     .00008,    .00046,    .00057,
     +     .11719,    .03528,    .00887,    .00082,    .00012,
     +     .00008,    .00044,    .00054,
     +     .11246,    .03381,    .00827,    .00078,    .00012,
     +     .00008,    .00042,    .00051,
     +     .10794,    .03240,    .00771,    .00074,    .00012,
     +     .00008,    .00040,    .00049,
     +     .10368,    .03107,    .00721,    .00070,    .00011,
     +     .00007,    .00038,    .00046,
     +     .09983,    .02987,    .00677,    .00066,    .00011,
     +     .00007,    .00036,    .00044,
     +     .09628,    .02878,    .00639,    .00063,    .00011,
     +     .00007,    .00034,    .00042 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
     +     .09285,    .02773,    .00603,    .00061,    .00010,
     +     .00007,    .00033,    .00040,
     +     .08960,    .02673,    .00570,    .00059,    .00010,
     +     .00007,    .00032,    .00038,
     +     .08662,    .02582,    .00540,    .00056,    .00010,
     +     .00007,    .00030,    .00036,
     +     .08390,    .02498,    .00514,    .00054,    .00009,
     +     .00007,    .00029,    .00035,
     +     .08123,    .02416,    .00489,    .00052,    .00009,
     +     .00007,    .00028,    .00033 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
     +     .39043,    .12259,    .10422,    .00329,    .00000,
     +     .00000,    .00129,    .00185,
     +     .36980,    .11576,    .09258,    .00309,    .00000,
     +     .00000,    .00121,    .00172,
     +     .34179,    .10652,    .07795,    .00276,    .00000,
     +     .00000,    .00111,    .00155,
     +     .32314,    .10041,    .06893,    .00259,    .00001,
     +     .00000,    .00106,    .00144,
     +     .30503,    .09453,    .06067,    .00242,    .00004,
     +     .00000,    .00098,    .00136,
     +     .29038,    .08975,    .05444,    .00228,    .00005,
     +     .00000,    .00092,    .00126,
     +     .27715,    .08545,    .04917,    .00214,    .00006,
     +     .00000,    .00088,    .00118,
     +     .26389,    .08116,    .04421,    .00199,    .00008,
     +     .00000,    .00084,    .00111 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
     +     .25290,    .07765,    .04035,    .00190,    .00008,
     +     .00000,    .00080,    .00107,
     +     .24282,    .07442,    .03699,    .00180,    .00009,
     +     .00000,    .00076,    .00102,
     +     .23521,    .07198,    .03456,    .00173,    .00009,
     +     .00000,    .00073,    .00097,
     +     .21994,    .06709,    .02998,    .00159,    .00010,
     +     .00000,    .00067,    .00090,
     +     .20779,    .06323,    .02657,    .00148,    .00010,
     +     .00001,    .00063,    .00084,
     +     .19511,    .05922,    .02328,    .00137,    .00010,
     +     .00003,    .00059,    .00077,
     +     .18285,    .05536,    .02037,    .00127,    .00011,
     +     .00003,    .00055,    .00070,
     +     .17249,    .05211,    .01810,    .00119,    .00011,
     +     .00004,    .00051,    .00063 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
     +     .16272,    .04905,    .01612,    .00111,    .00010,
     +     .00004,    .00048,    .00058,
     +     .15508,    .04665,    .01466,    .00104,    .00010,
     +     .00005,    .00045,    .00056,
     +     .14636,    .04394,    .01312,    .00097,    .00010,
     +     .00005,    .00042,    .00051,
     +     .13913,    .04169,    .01192,    .00090,    .00010,
     +     .00005,    .00040,    .00048,
     +     .13287,    .03973,    .01093,    .00084,    .00010,
     +     .00005,    .00037,    .00047,
     +     .12533,    .03741,    .00983,    .00079,    .00009,
     +     .00005,    .00034,    .00043,
     +     .11869,    .03537,    .00891,    .00074,    .00009,
     +     .00005,    .00032,    .00041,
     +     .11286,    .03357,    .00815,    .00068,    .00009,
     +     .00005,    .00031,    .00039 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
     +     .10729,    .03186,    .00747,    .00066,    .00009,
     +     .00005,    .00028,    .00036,
     +     .10216,    .03030,    .00687,    .00063,    .00008,
     +     .00005,    .00027,    .00033,
     +     .09758,    .02890,    .00635,    .00059,    .00008,
     +     .00005,    .00025,    .00030,
     +     .09345,    .02763,    .00591,    .00056,    .00008,
     +     .00005,    .00024,    .00029,
     +     .08951,    .02643,    .00551,    .00053,    .00007,
     +     .00005,    .00023,    .00028,
     +     .08579,    .02530,    .00514,    .00051,    .00007,
     +     .00005,    .00022,    .00027,
     +     .08242,    .02428,    .00482,    .00049,    .00007,
     +     .00005,    .00020,    .00025,
     +     .07936,    .02336,    .00454,    .00046,    .00007,
     +     .00005,    .00020,    .00024 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
     +     .07642,    .02247,    .00428,    .00043,    .00007,
     +     .00005,    .00019,    .00023,
     +     .07363,    .02162,    .00404,    .00041,    .00006,
     +     .00004,    .00018,    .00022,
     +     .07106,    .02084,    .00383,    .00039,    .00006,
     +     .00004,    .00017,    .00021,
     +     .06872,    .02014,    .00364,    .00038,    .00006,
     +     .00004,    .00016,    .00020,
     +     .06642,    .01945,    .00346,    .00036,    .00006,
     +     .00004,    .00016,    .00019 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
     +     .34594,    .10607,    .08162,    .00223,    .00000,
     +     .00000,    .00092,    .00125,
     +     .32657,    .09984,    .07196,    .00206,    .00000,
     +     .00000,    .00086,    .00116,
     +     .30032,    .09147,    .05994,    .00187,    .00000,
     +     .00000,    .00078,    .00105,
     +     .28298,    .08597,    .05264,    .00173,    .00001,
     +     .00000,    .00074,    .00095,
     +     .26623,    .08066,    .04601,    .00163,    .00002,
     +     .00000,    .00069,    .00087,
     +     .25270,    .07640,    .04105,    .00152,    .00003,
     +     .00000,    .00065,    .00081,
     +     .24049,    .07256,    .03688,    .00143,    .00004,
     +     .00000,    .00061,    .00076,
     +     .22831,    .06874,    .03298,    .00135,    .00005,
     +     .00000,    .00057,    .00072 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
     +     .21829,    .06560,    .02997,    .00129,    .00005,
     +     .00000,    .00054,    .00068,
     +     .20912,    .06273,    .02737,    .00121,    .00006,
     +     .00000,    .00052,    .00066,
     +     .20220,    .06057,    .02551,    .00115,    .00006,
     +     .00000,    .00050,    .00065,
     +     .18835,    .05629,    .02198,    .00106,    .00006,
     +     .00000,    .00045,    .00056,
     +     .17738,    .05289,    .01939,    .00098,    .00007,
     +     .00001,    .00042,    .00053,
     +     .16599,    .04935,    .01692,    .00091,    .00007,
     +     .00002,    .00039,    .00048,
     +     .15502,    .04598,    .01474,    .00083,    .00007,
     +     .00002,    .00036,    .00045,
     +     .14576,    .04316,    .01304,    .00077,    .00007,
     +     .00003,    .00033,    .00042 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
     +     .13708,    .04050,    .01157,    .00072,    .00007,
     +     .00003,    .00031,    .00039,
     +     .13032,    .03843,    .01050,    .00067,    .00007,
     +     .00003,    .00030,    .00037,
     +     .12263,    .03608,    .00937,    .00062,    .00006,
     +     .00003,    .00028,    .00033,
     +     .11625,    .03415,    .00849,    .00058,    .00006,
     +     .00003,    .00026,    .00031,
     +     .11074,    .03249,    .00777,    .00054,    .00006,
     +     .00003,    .00024,    .00028,
     +     .10414,    .03050,    .00696,    .00050,    .00006,
     +     .00003,    .00022,    .00027,
     +     .09835,    .02876,    .00630,    .00048,    .00006,
     +     .00003,    .00021,    .00025,
     +     .09326,    .02723,    .00575,    .00045,    .00006,
     +     .00003,    .00020,    .00022 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
     +     .08846,    .02578,    .00526,    .00041,    .00005,
     +     .00003,    .00018,    .00021,
     +     .08403,    .02445,    .00483,    .00039,    .00005,
     +     .00003,    .00017,    .00020,
     +     .08004,    .02327,    .00446,    .00038,    .00005,
     +     .00003,    .00016,    .00019,
     +     .07650,    .02221,    .00415,    .00036,    .00005,
     +     .00003,    .00015,    .00018,
     +     .07313,    .02120,    .00386,    .00033,    .00005,
     +     .00003,    .00014,    .00017,
     +     .06994,    .02025,    .00360,    .00031,    .00005,
     +     .00003,    .00014,    .00016,
     +     .06706,    .01940,    .00337,    .00030,    .00004,
     +     .00003,    .00013,    .00014,
     +     .06445,    .01863,    .00317,    .00029,    .00004,
     +     .00003,    .00013,    .00014 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
     +     .06195,    .01788,    .00299,    .00028,    .00004,
     +     .00003,    .00012,    .00013,
     +     .05957,    .01718,    .00282,    .00027,    .00004,
     +     .00003,    .00012,    .00013,
     +     .05739,    .01654,    .00266,    .00025,    .00004,
     +     .00003,    .00011,    .00013,
     +     .05541,    .01596,    .00253,    .00024,    .00004,
     +     .00003,    .00010,    .00012,
     +     .05348,    .01538,    .00240,    .00023,    .00004,
     +     .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)/
     +     .30269,    .09082,    .06266,    .00151,    .00000,
     +     .00000,    .00064,    .00081,
     +     .28477,    .08522,    .05478,    .00141,    .00000,
     +     .00000,    .00060,    .00074,
     +     .26066,    .07771,    .04516,    .00123,    .00000,
     +     .00000,    .00054,    .00066,
     +     .24476,    .07278,    .03937,    .00113,    .00001,
     +     .00000,    .00051,    .00061,
     +     .22948,    .06808,    .03418,    .00105,    .00001,
     +     .00000,    .00047,    .00057,
     +     .21717,    .06430,    .03032,    .00099,    .00002,
     +     .00000,    .00044,    .00053,
     +     .20611,    .06090,    .02709,    .00093,    .00003,
     +     .00000,    .00041,    .00050,
     +     .19510,    .05753,    .02411,    .00086,    .00003,
     +     .00000,    .00038,    .00047 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
     +     .18606,    .05478,    .02183,    .00084,    .00003,
     +     .00000,    .00037,    .00043,
     +     .17785,    .05227,    .01986,    .00078,    .00004,
     +     .00000,    .00035,    .00041,
     +     .17168,    .05038,    .01845,    .00073,    .00004,
     +     .00000,    .00034,    .00039,
     +     .15928,    .04664,    .01582,    .00066,    .00004,
     +     .00000,    .00030,    .00037,
     +     .14950,    .04369,    .01390,    .00063,    .00004,
     +     .00001,    .00029,    .00033,
     +     .13940,    .04065,    .01207,    .00057,    .00004,
     +     .00001,    .00026,    .00030,
     +     .12971,    .03774,    .01046,    .00052,    .00004,
     +     .00001,    .00024,    .00028,
     +     .12158,    .03531,    .00923,    .00049,    .00004,
     +     .00002,    .00022,    .00026 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
     +     .11397,    .03303,    .00816,    .00044,    .00004,
     +     .00002,    .00021,    .00024,
     +     .10807,    .03127,    .00739,    .00041,    .00004,
     +     .00002,    .00019,    .00021,
     +     .10135,    .02927,    .00657,    .00039,    .00004,
     +     .00002,    .00018,    .00020,
     +     .09581,    .02762,    .00594,    .00037,    .00004,
     +     .00002,    .00017,    .00019,
     +     .09104,    .02621,    .00543,    .00034,    .00004,
     +     .00002,    .00015,    .00018,
     +     .08537,    .02453,    .00486,    .00031,    .00004,
     +     .00002,    .00015,    .00016,
     +     .08039,    .02306,    .00439,    .00029,    .00004,
     +     .00002,    .00014,    .00015,
     +     .07602,    .02179,    .00400,    .00027,    .00003,
     +     .00002,    .00013,    .00015 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
     +     .07192,    .02057,    .00365,    .00025,    .00003,
     +     .00002,    .00012,    .00013,
     +     .06815,    .01946,    .00335,    .00023,    .00003,
     +     .00002,    .00011,    .00013,
     +     .06478,    .01848,    .00309,    .00022,    .00003,
     +     .00002,    .00011,    .00013,
     +     .06175,    .01760,    .00286,    .00021,    .00003,
     +     .00002,    .00010,    .00012,
     +     .05887,    .01677,    .00266,    .00021,    .00003,
     +     .00002,    .00010,    .00011,
     +     .05620,    .01599,    .00248,    .00020,    .00003,
     +     .00002,    .00009,    .00010,
     +     .05380,    .01528,    .00232,    .00018,    .00003,
     +     .00002,    .00008,    .00010,
     +     .05160,    .01465,    .00218,    .00017,    .00003,
     +     .00002,    .00008,    .00009 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
     +     .04950,    .01404,    .00205,    .00016,    .00003,
     +     .00002,    .00007,    .00009,
     +     .04750,    .01346,    .00193,    .00015,    .00002,
     +     .00002,    .00007,    .00008,
     +     .04568,    .01293,    .00183,    .00015,    .00002,
     +     .00002,    .00007,    .00008,
     +     .04402,    .01246,    .00173,    .00015,    .00002,
     +     .00002,    .00007,    .00007,
     +     .04242,    .01199,    .00164,    .00014,    .00002,
     +     .00002,    .00006,    .00007 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
     +     .26157,    .07697,    .04706,    .00107,    .00000,
     +     .00000,    .00039,    .00048,
     +     .24530,    .07198,    .04087,    .00096,    .00000,
     +     .00000,    .00036,    .00045,
     +     .22337,    .06534,    .03334,    .00086,    .00000,
     +     .00000,    .00032,    .00040,
     +     .20901,    .06098,    .02887,    .00082,    .00000,
     +     .00000,    .00030,    .00036,
     +     .19527,    .05687,    .02490,    .00074,    .00001,
     +     .00000,    .00028,    .00033,
     +     .18427,    .05355,    .02199,    .00069,    .00001,
     +     .00000,    .00026,    .00031,
     +     .17442,    .05059,    .01957,    .00063,    .00002,
     +     .00000,    .00024,    .00029,
     +     .16465,    .04766,    .01733,    .00058,    .00002,
     +     .00000,    .00023,    .00027 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
     +     .15662,    .04529,    .01563,    .00055,    .00002,
     +     .00000,    .00021,    .00024,
     +     .14934,    .04312,    .01417,    .00052,    .00002,
     +     .00000,    .00020,    .00023,
     +     .14387,    .04148,    .01313,    .00049,    .00002,
     +     .00000,    .00019,    .00023,
     +     .13296,    .03825,    .01120,    .00045,    .00002,
     +     .00000,    .00017,    .00022,
     +     .12441,    .03573,    .00981,    .00042,    .00002,
     +     .00000,    .00016,    .00019,
     +     .11559,    .03312,    .00848,    .00039,    .00003,
     +     .00001,    .00015,    .00017,
     +     .10717,    .03064,    .00733,    .00035,    .00003,
     +     .00001,    .00014,    .00016,
     +     .10014,    .02858,    .00645,    .00032,    .00003,
     +     .00001,    .00013,    .00014 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
     +     .09356,    .02666,    .00569,    .00030,    .00002,
     +     .00001,    .00011,    .00013,
     +     .08847,    .02518,    .00514,    .00029,    .00002,
     +     .00001,    .00011,    .00012,
     +     .08272,    .02350,    .00456,    .00026,    .00002,
     +     .00001,    .00010,    .00011,
     +     .07799,    .02212,    .00412,    .00024,    .00002,
     +     .00001,    .00009,    .00010,
     +     .07390,    .02095,    .00375,    .00024,    .00002,
     +     .00001,    .00009,    .00009,
     +     .06908,    .01954,    .00335,    .00021,    .00002,
     +     .00001,    .00008,    .00009,
     +     .06487,    .01832,    .00302,    .00020,    .00002,
     +     .00001,    .00007,    .00008,
     +     .06119,    .01726,    .00275,    .00018,    .00002,
     +     .00001,    .00007,    .00008 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
     +     .05773,    .01626,    .00251,    .00017,    .00002,
     +     .00001,    .00006,    .00007,
     +     .05456,    .01535,    .00229,    .00016,    .00002,
     +     .00001,    .00005,    .00006,
     +     .05174,    .01454,    .00211,    .00015,    .00002,
     +     .00001,    .00006,    .00006,
     +     .04922,    .01382,    .00196,    .00014,    .00002,
     +     .00001,    .00005,    .00006,
     +     .04683,    .01314,    .00182,    .00014,    .00002,
     +     .00001,    .00005,    .00006,
     +     .04460,    .01250,    .00169,    .00013,    .00002,
     +     .00001,    .00005,    .00006,
     +     .04260,    .01192,    .00158,    .00012,    .00002,
     +     .00001,    .00005,    .00005,
     +     .04079,    .01141,    .00149,    .00011,    .00002,
     +     .00001,    .00004,    .00005 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
     +     .03906,    .01091,    .00139,    .00010,    .00002,
     +     .00001,    .00004,    .00005,
     +     .03742,    .01044,    .00131,    .00010,    .00001,
     +     .00001,    .00004,    .00004,
     +     .03593,    .01002,    .00124,    .00009,    .00001,
     +     .00001,    .00004,    .00004,
     +     .03457,    .00964,    .00118,    .00009,    .00001,
     +     .00001,    .00003,    .00004,
     +     .03325,    .00926,    .00111,    .00009,    .00001,
     +     .00001,    .00003,    .00004 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
     +     .22266,    .06415,    .03435,    .00062,    .00000,
     +     .00000,    .00028,    .00032,
     +     .20801,    .05981,    .02960,    .00058,    .00000,
     +     .00000,    .00024,    .00028,
     +     .18847,    .05403,    .02391,    .00051,    .00000,
     +     .00000,    .00023,    .00026,
     +     .17572,    .05026,    .02057,    .00048,    .00000,
     +     .00000,    .00022,    .00024,
     +     .16362,    .04668,    .01764,    .00042,    .00001,
     +     .00000,    .00020,    .00023,
     +     .15391,    .04384,    .01550,    .00039,    .00001,
     +     .00000,    .00019,    .00020,
     +     .14523,    .04130,    .01373,    .00037,    .00001,
     +     .00000,    .00018,    .00019,
     +     .13665,    .03880,    .01210,    .00034,    .00001,
     +     .00000,    .00016,    .00018 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
     +     .12967,    .03677,    .01087,    .00032,    .00001,
     +     .00000,    .00014,    .00017,
     +     .12334,    .03493,    .00983,    .00030,    .00001,
     +     .00000,    .00014,    .00015,
     +     .11858,    .03355,    .00908,    .00028,    .00001,
     +     .00000,    .00013,    .00014,
     +     .10917,    .03081,    .00771,    .00026,    .00001,
     +     .00000,    .00012,    .00013,
     +     .10180,    .02868,    .00673,    .00023,    .00001,
     +     .00000,    .00011,    .00012,
     +     .09423,    .02650,    .00580,    .00020,    .00001,
     +     .00000,    .00010,    .00011,
     +     .08701,    .02443,    .00500,    .00020,    .00001,
     +     .00001,    .00009,    .00010,
     +     .08101,    .02271,    .00439,    .00019,    .00001,
     +     .00001,    .00008,    .00009 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
     +     .07545,    .02111,    .00386,    .00016,    .00001,
     +     .00001,    .00008,    .00009,
     +     .07115,    .01989,    .00348,    .00015,    .00001,
     +     .00001,    .00007,    .00008,
     +     .06629,    .01850,    .00308,    .00015,    .00001,
     +     .00001,    .00007,    .00007,
     +     .06232,    .01737,    .00278,    .00014,    .00001,
     +     .00001,    .00006,    .00006,
     +     .05892,    .01640,    .00253,    .00013,    .00001,
     +     .00001,    .00006,    .00006,
     +     .05490,    .01525,    .00226,    .00011,    .00001,
     +     .00001,    .00005,    .00005,
     +     .05139,    .01426,    .00203,    .00011,    .00001,
     +     .00001,    .00005,    .00005,
     +     .04832,    .01340,    .00184,    .00010,    .00001,
     +     .00001,    .00005,    .00004 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
     +     .04546,    .01259,    .00168,    .00009,    .00001,
     +     .00001,    .00005,    .00004,
     +     .04286,    .01185,    .00154,    .00009,    .00001,
     +     .00001,    .00004,    .00004,
     +     .04055,    .01120,    .00141,    .00007,    .00001,
     +     .00001,    .00003,    .00004,
     +     .03849,    .01062,    .00131,    .00007,    .00001,
     +     .00001,    .00003,    .00004,
     +     .03654,    .01007,    .00121,    .00006,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03472,    .00956,    .00113,    .00006,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03308,    .00910,    .00105,    .00005,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03161,    .00869,    .00099,    .00005,    .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)/
     +     .03021,    .00830,    .00093,    .00005,    .00001,
     +     .00001,    .00003,    .00003,
     +     .02888,    .00792,    .00087,    .00005,    .00001,
     +     .00001,    .00003,    .00003,
     +     .02767,    .00759,    .00082,    .00005,    .00001,
     +     .00001,    .00002,    .00002,
     +     .02658,    .00728,    .00078,    .00005,    .00001,
     +     .00001,    .00002,    .00002,
     +     .02552,    .00699,    .00074,    .00005,    .00001,
     +     .00001,    .00002,    .00002 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
     +     .15389,    .04274,    .01679,    .00026,    .00000,
     +     .00000,    .00010,    .00010,
     +     .14271,    .03956,    .01427,    .00021,    .00000,
     +     .00000,    .00009,    .00009,
     +     .12789,    .03538,    .01132,    .00020,    .00000,
     +     .00000,    .00008,    .00008,
     +     .11837,    .03267,    .00962,    .00017,    .00000,
     +     .00000,    .00007,    .00008,
     +     .10934,    .03013,    .00816,    .00016,    .00000,
     +     .00000,    .00006,    .00007,
     +     .10220,    .02812,    .00711,    .00014,    .00000,
     +     .00000,    .00006,    .00006,
     +     .09585,    .02634,    .00625,    .00012,    .00000,
     +     .00000,    .00006,    .00006,
     +     .08961,    .02459,    .00547,    .00012,    .00000,
     +     .00000,    .00005,    .00006 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
     +     .08457,    .02318,    .00489,    .00012,    .00000,
     +     .00000,    .00005,    .00005,
     +     .08001,    .02190,    .00440,    .00011,    .00000,
     +     .00000,    .00005,    .00005,
     +     .07661,    .02095,    .00405,    .00011,    .00000,
     +     .00000,    .00004,    .00004,
     +     .06997,    .01909,    .00342,    .00007,    .00000,
     +     .00000,    .00004,    .00005,
     +     .06476,    .01764,    .00296,    .00007,    .00000,
     +     .00000,    .00003,    .00004,
     +     .05948,    .01618,    .00254,    .00007,    .00000,
     +     .00000,    .00003,    .00004,
     +     .05449,    .01480,    .00218,    .00006,    .00000,
     +     .00000,    .00003,    .00004,
     +     .05038,    .01366,    .00191,    .00006,    .00000,
     +     .00000,    .00003,    .00003 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
     +     .04659,    .01262,    .00168,    .00005,    .00000,
     +     .00000,    .00003,    .00003,
     +     .04367,    .01182,    .00151,    .00005,    .00000,
     +     .00000,    .00002,    .00003,
     +     .04041,    .01092,    .00133,    .00005,    .00000,
     +     .00000,    .00002,    .00003,
     +     .03776,    .01019,    .00120,    .00004,    .00000,
     +     .00000,    .00002,    .00003,
     +     .03552,    .00957,    .00109,    .00003,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03285,    .00885,    .00097,    .00004,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03056,    .00822,    .00087,    .00003,    .00000,
     +     .00000,    .00001,    .00002,
     +     .02859,    .00768,    .00079,    .00002,    .00000,
     +     .00000,    .00001,    .00002 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
     +     .02673,    .00717,    .00072,    .00002,    .00000,
     +     .00000,    .00001,    .00002,
     +     .02505,    .00672,    .00065,    .00003,    .00000,
     +     .00000,    .00001,    .00002,
     +     .02357,    .00631,    .00060,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02226,    .00596,    .00055,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02104,    .00562,    .00051,    .00001,    .00000,
     +     .00000,    .00001,    .00002,
     +     .01990,    .00531,    .00047,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01887,    .00504,    .00044,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01796,    .00479,    .00041,    .00002,    .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)/
     +     .01708,    .00456,    .00039,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01627,    .00433,    .00036,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01553,    .00413,    .00034,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01486,    .00395,    .00032,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01422,    .00378,    .00031,    .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)/
     +     .09825,    .02637,    .00708,    .00009,    .00000,
     +     .00000,    .00003,    .00002,
     +     .09036,    .02422,    .00595,    .00008,    .00000,
     +     .00000,    .00002,    .00002,
     +     .08007,    .02141,    .00465,    .00007,    .00000,
     +     .00000,    .00002,    .00002,
     +     .07348,    .01962,    .00392,    .00006,    .00000,
     +     .00000,    .00002,    .00003,
     +     .06732,    .01796,    .00330,    .00005,    .00000,
     +     .00000,    .00002,    .00002,
     +     .06248,    .01664,    .00286,    .00005,    .00000,
     +     .00000,    .00001,    .00002,
     +     .05822,    .01548,    .00250,    .00004,    .00000,
     +     .00000,    .00001,    .00002,
     +     .05406,    .01436,    .00218,    .00004,    .00000,
     +     .00000,    .00001,    .00002 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
     +     .05071,    .01346,    .00194,    .00004,    .00000,
     +     .00000,    .00001,    .00002,
     +     .04771,    .01265,    .00174,    .00004,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04548,    .01205,    .00160,    .00004,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04113,    .01088,    .00134,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03781,    .00999,    .00116,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03442,    .00908,    .00100,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03125,    .00824,    .00085,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02868,    .00755,    .00075,    .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)/
     +     .02632,    .00692,    .00065,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02451,    .00644,    .00059,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02251,    .00591,    .00052,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02090,    .00548,    .00047,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01953,    .00512,    .00042,    .00001,    .00000,
     +     .00000,    .00001,    .00000,
     +     .01795,    .00469,    .00037,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01658,    .00433,    .00034,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01541,    .00402,    .00030,    .00001,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
     +     .01432,    .00374,    .00028,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01334,    .00348,    .00025,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01247,    .00325,    .00023,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01172,    .00305,    .00021,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01101,    .00286,    .00020,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01036,    .00269,    .00018,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00979,    .00254,    .00017,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00927,    .00241,    .00016,    .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)/
     +     .00878,    .00228,    .00015,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00832,    .00216,    .00014,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00791,    .00205,    .00013,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00754,    .00195,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00718,    .00186,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/
     +     .05651,    .01470,    .00245,    .00003,    .00000,
     +     .00000,    .00000,    .00000,
     +     .05152,    .01338,    .00205,    .00002,    .00000,
     +     .00000,   -.00001,    .00000,
     +     .04505,    .01168,    .00159,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04098,    .01061,    .00133,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03720,    .00962,    .00112,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03425,    .00885,    .00097,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03167,    .00817,    .00085,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02918,    .00752,    .00074,    .00001,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
     +     .02719,    .00701,    .00066,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02541,    .00655,    .00059,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02410,    .00620,    .00054,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02158,    .00555,    .00046,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01965,    .00505,    .00040,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01773,    .00455,    .00034,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01595,    .00409,    .00029,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01451,    .00371,    .00025,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/
     +     .01320,    .00337,    .00022,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01221,    .00312,    .00020,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01112,    .00284,    .00018,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01024,    .00261,    .00016,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00951,    .00242,    .00014,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00866,    .00221,    .00013,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00794,    .00202,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00732,    .00186,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/
     +     .00676,    .00172,    .00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00625,    .00159,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00581,    .00148,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00543,    .00138,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00507,    .00129,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00474,    .00120,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00445,    .00113,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00420,    .00106,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=33,37)/
     +     .00395,    .00100,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00373,    .00094,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00353,    .00089,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00335,    .00085,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00317,    .00080,    .00004,    .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)/
     +     .02795,    .00704,    .00064,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02520,    .00634,    .00054,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02171,    .00546,    .00042,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01954,    .00491,    .00035,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01755,    .00440,    .00030,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01601,    .00401,    .00026,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01468,    .00368,    .00023,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01339,    .00335,    .00020,    .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)/
     +     .01239,    .00310,    .00018,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01150,    .00288,    .00016,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01084,    .00271,    .00015,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00959,    .00240,    .00013,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00865,    .00216,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00771,    .00192,    .00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00686,    .00171,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00617,    .00154,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=17,24)/
     +     .00556,    .00138,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00510,    .00127,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00460,    .00114,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00420,    .00104,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00387,    .00096,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00349,    .00087,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00317,    .00079,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00290,    .00072,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/
     +     .00265,    .00066,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00244,    .00060,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00225,    .00056,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00208,    .00052,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00193,    .00048,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00180,    .00044,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00167,    .00041,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00157,    .00039,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/
     +     .00147,    .00036,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00138,    .00034,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00130,    .00032,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00122,    .00030,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00115,    .00028,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/
     +     .00285,    .00068,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00249,    .00059,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00205,    .00049,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00179,    .00043,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00156,    .00037,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00139,    .00033,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00124,    .00030,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00110,    .00026,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/
     +     .00100,    .00024,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00091,    .00022,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00084,    .00020,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00072,    .00017,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00063,    .00015,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00054,    .00013,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00047,    .00011,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00041,    .00010,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/
     +     .00036,    .00009,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00032,    .00008,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00028,    .00007,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00025,    .00006,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00022,    .00005,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00020,    .00005,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00017,    .00004,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00016,    .00004,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
     +     .00014,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00012,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00011,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00010,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00009,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00008,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00008,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00007,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
     +     .00007,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00006,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00006,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00005,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00005,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
      data xx/1d-5,2d-5,4d-5,6d-5,8d-5,
     .            1d-4,2d-4,4d-4,6d-4,8d-4,
     .            1d-3,2d-3,4d-3,6d-3,8d-3,
     .            1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2,
     .         .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0,
     .         .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0,
     .         .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0,
     .         .8d0,.9d0,1d0/
      data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1,
     .        1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2,
     .        1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4,
     .        1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6,
     .        1.8d6,3.2d6,5.6d6,1d7/
      data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/
      data n0/3,4,5,9,9,9,9,9/
      DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
      data init/0/
      save
      xsave=x
      q2save=qsq
      if(init.ne.0) goto 10
C        open(unit=1,file='cor12.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