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

sfmrs_98a2.F

#include "pdf/pilot.h"
      subroutine sfmrs_98a2(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)/
     +     .00510,    .00251,   1.10688,    .90346,    .00000,
     +     .00000,    .48165,    .91695,
     +     .00527,    .00258,   2.36364,    .93734,    .00000,
     +     .00000,    .52101,    .95094,
     +     .00553,    .00267,   4.83473,   1.01202,    .03326,
     +     .00000,    .60348,   1.02576,
     +     .00572,    .00275,   7.21821,   1.08454,    .11146,
     +     .00000,    .68145,   1.09837,
     +     .00592,    .00282,  10.25881,   1.18080,    .20031,
     +     .00000,    .78327,   1.19470,
     +     .00609,    .00289,  13.37211,   1.28065,    .29262,
     +     .00000,    .88779,   1.29461,
     +     .00625,    .00296,  16.87478,   1.39018,    .39834,
     +     .00000,   1.00167,   1.40418,
     +     .00643,    .00303,  21.18184,   1.52224,    .52868,
     +     .00000,   1.13823,   1.53628 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
     +     .00659,    .00310,  25.37047,   1.65236,    .65413,
     +     .00000,   1.27217,   1.66643,
     +     .00673,    .00316,  29.86588,   1.79103,    .78895,
     +     .00000,   1.41445,   1.80512,
     +     .00685,    .00321,  33.80442,   1.91001,    .90745,
     +     .00000,   1.53624,   1.92412,
     +     .00711,    .00332,  43.06942,   2.19400,   1.18715,
     +     .02223,   1.82605,   2.20812,
     +     .00733,    .00342,  52.07138,   2.47224,   1.46053,
     +     .34113,   2.10916,   2.48636,
     +     .00758,    .00353,  63.45149,   2.82272,   1.80706,
     +     .73948,   2.46494,   2.83684,
     +     .00784,    .00364,  76.80630,   3.23311,   2.21384,
     +    1.16389,   2.88068,   3.24721,
     +     .00808,    .00375,  90.29980,   3.64752,   2.62552,
     +    1.59385,   3.29980,   3.66160 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
     +     .00832,    .00386, 105.29520,   4.10834,   3.08458,
     +    2.07153,   3.76524,   4.12239,
     +     .00853,    .00396, 118.75182,   4.52408,   3.49791,
     +    2.49680,   4.18471,   4.53810,
     +     .00878,    .00407, 136.29903,   5.06927,   4.03950,
     +    3.05200,   4.73433,   5.08324,
     +     .00900,    .00417, 153.06889,   5.59142,   4.56004,
     +    3.58814,   5.26029,   5.60535,
     +     .00920,    .00427, 169.49274,   6.10444,   5.07255,
     +    4.11637,   5.77673,   6.11833,
     +     .00947,    .00439, 191.50041,   6.79957,   5.76425,
     +    4.82259,   6.47609,   6.81339,
     +     .00972,    .00451, 213.65015,   7.50284,   6.46582,
     +    5.54086,   7.18325,   7.51660,
     +     .00995,    .00462, 235.78360,   8.20836,   7.17187,
     +    6.26618,   7.89232,   8.22206 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
     +     .01019,    .00474, 258.77975,   8.95189,   7.91241,
     +    7.01966,   8.63933,   8.96552,
     +     .01042,    .00485, 282.57089,   9.72455,   8.68435,
     +    7.80818,   9.41530,   9.73811,
     +     .01065,    .00496, 306.17310,  10.49648,   9.45620,
     +    8.59649,  10.19032,  10.50998,
     +     .01086,    .00506, 329.13446,  11.25586,  10.21407,
     +    9.36765,  10.95255,  11.26929,
     +     .01108,    .00516, 353.35953,  12.05957,  11.01873,
     +   10.18948,  11.75906,  12.07293,
     +     .01129,    .00527, 377.68521,  12.87768,  11.83519,
     +   11.01869,  12.57989,  12.89097,
     +     .01149,    .00537, 401.94644,  13.69528,  12.65410,
     +   11.85407,  13.40002,  13.70851,
     +     .01169,    .00546, 425.21692,  14.49012,  13.44773,
     +   12.65951,  14.19722,  14.50328 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
     +     .01189,    .00556, 449.66071,  15.32748,  14.28599,
     +   13.51282,  15.03693,  15.34058,
     +     .01208,    .00566, 474.23663,  16.17825,  15.13665,
     +   14.37672,  15.88998,  16.19130,
     +     .01227,    .00575, 498.34888,  17.01844,  15.97717,
     +   15.23050,  16.73230,  17.03142,
     +     .01245,    .00584, 521.90094,  17.84327,  16.80334,
     +   16.07067,  17.55914,  17.85620,
     +     .01264,    .00593, 545.91125,  18.69417,  17.65384,
     +   16.93269,  18.41204,  18.70704 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
     +     .00696,    .00337,   1.03458,    .76573,    .00000,
     +     .00000,    .40748,    .77358,
     +     .00720,    .00346,   2.16835,    .79731,    .00000,
     +     .00000,    .44334,    .80523,
     +     .00755,    .00361,   4.34798,    .86355,    .02886,
     +     .00000,    .51564,    .87155,
     +     .00781,    .00372,   6.40551,    .92612,    .09612,
     +     .00000,    .58246,    .93417,
     +     .00809,    .00383,   8.98451,   1.00757,    .17108,
     +     .00000,    .66823,   1.01566,
     +     .00832,    .00394,  11.58427,   1.09086,    .24798,
     +     .00000,    .75514,   1.09899,
     +     .00855,    .00404,  14.47203,   1.18138,    .33518,
     +     .00000,    .84903,   1.18953,
     +     .00879,    .00414,  17.97907,   1.28957,    .44162,
     +     .00000,    .96071,   1.29775 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
     +     .00901,    .00424,  21.34900,   1.39519,    .54312,
     +     .00000,   1.06928,   1.40338,
     +     .00921,    .00433,  24.92942,   1.50694,    .65137,
     +     .00000,   1.18382,   1.51514,
     +     .00937,    .00440,  28.04069,   1.60231,    .74593,
     +     .00000,   1.28136,   1.61053,
     +     .00972,    .00456,  35.26984,   1.82795,    .96712,
     +     .01806,   1.51151,   1.83618,
     +     .01003,    .00470,  42.18938,   2.04677,   1.18104,
     +     .26700,   1.73409,   2.05500,
     +     .01037,    .00486,  50.82276,   2.31981,   1.44957,
     +     .57582,   2.01122,   2.32804,
     +     .01072,    .00502,  60.81812,   2.63634,   1.76159,
     +     .90084,   2.33187,   2.64457,
     +     .01105,    .00518,  70.79073,   2.95299,   2.07437,
     +    1.22689,   2.65215,   2.96121 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
     +     .01138,    .00533,  81.74635,   3.30205,   2.42014,
     +    1.58588,   3.00477,   3.31026,
     +     .01166,    .00546,  91.47599,   3.61447,   2.72897,
     +    1.90284,   3.32007,   3.62266,
     +     .01200,    .00563, 104.03548,   4.02099,   3.13052,
     +    2.31336,   3.73000,   4.02916,
     +     .01230,    .00577, 115.92147,   4.40738,   3.51358,
     +    2.70685,   4.11932,   4.41553,
     +     .01258,    .00591, 127.46274,   4.78446,   3.88823,
     +    3.09197,   4.49904,   4.79259,
     +     .01294,    .00608, 142.77927,   5.29157,   4.39009,
     +    3.60285,   5.00941,   5.29967,
     +     .01327,    .00624, 158.04828,   5.80076,   4.89535,
     +    4.11866,   5.52158,   5.80882,
     +     .01359,    .00640, 173.17590,   6.30808,   5.40048,
     +    4.63617,   6.03164,   6.31612 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
     +     .01391,    .00656, 188.75221,   6.83897,   5.92651,
     +    5.16975,   6.56520,   6.84697,
     +     .01423,    .00671, 204.74258,   7.38720,   6.47154,
     +    5.72492,   7.11600,   7.39517,
     +     .01453,    .00686, 220.48721,   7.93162,   7.01329,
     +    6.27668,   7.66279,   7.93956,
     +     .01481,    .00700, 235.69031,   8.46402,   7.54210,
     +    6.81318,   8.19739,   8.47193,
     +     .01510,    .00715, 251.63194,   9.02464,   8.10085,
     +    7.38233,   8.76017,   9.03251,
     +     .01539,    .00729, 267.52240,   9.59203,   8.66449,
     +    7.95310,   9.32966,   9.59987,
     +     .01566,    .00743, 283.28485,  10.15645,   9.22739,
     +    8.52582,   9.89604,  10.16427,
     +     .01592,    .00756, 298.30212,  10.70231,   9.77001,
     +    9.07493,  10.44372,  10.71009 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
     +     .01619,    .00769, 313.99866,  11.27496,  10.34089,
     +    9.65453,  11.01818,  11.28272,
     +     .01645,    .00783, 329.68579,  11.85404,  10.91746,
     +   10.23849,  11.59901,  11.86176,
     +     .01670,    .00795, 344.99789,  12.42349,  11.48484,
     +   10.81328,  12.17012,  12.43119,
     +     .01694,    .00808, 359.88419,  12.98037,  12.04044,
     +   11.37688,  12.72855,  12.98804,
     +     .01719,    .00820, 374.97501,  13.55235,  12.60986,
     +   11.95245,  13.30207,  13.55999 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
     +     .00950,    .00452,    .96820,    .64872,    .00000,
     +     .00000,    .34484,    .65263,
     +     .00983,    .00466,   1.99060,    .67790,    .00000,
     +     .00000,    .37734,    .68184,
     +     .01032,    .00488,   3.91161,    .73651,    .02503,
     +     .00000,    .44066,    .74049,
     +     .01067,    .00504,   5.68545,    .79046,    .08287,
     +     .00000,    .49790,    .79446,
     +     .01105,    .00521,   7.86921,    .85935,    .14607,
     +     .00000,    .57013,    .86336,
     +     .01138,    .00536,  10.03565,    .92877,    .21010,
     +     .00000,    .64234,    .93279,
     +     .01169,    .00551,  12.41090,   1.00348,    .28195,
     +     .00000,    .71966,   1.00752,
     +     .01203,    .00566,  15.25913,   1.09198,    .36879,
     +     .00000,    .81085,   1.09603 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
     +     .01232,    .00580,  17.96255,   1.17755,    .45080,
     +     .00000,    .89870,   1.18161,
     +     .01260,    .00593,  20.80536,   1.26740,    .53760,
     +     .00000,    .99069,   1.27146,
     +     .01282,    .00604,  23.25513,   1.34366,    .61296,
     +     .00000,   1.06863,   1.34773,
     +     .01330,    .00626,  28.87563,   1.52244,    .78760,
     +     .01466,   1.25087,   1.52652,
     +     .01371,    .00646,  34.17313,   1.69398,    .95469,
     +     .20887,   1.42530,   1.69807,
     +     .01418,    .00669,  40.69452,   1.90596,   1.16235,
     +     .44816,   1.64042,   1.91005,
     +     .01467,    .00692,  48.14097,   2.14919,   1.40115,
     +     .69687,   1.88681,   2.15328,
     +     .01512,    .00714,  55.47519,   2.39017,   1.63823,
     +     .94392,   2.13056,   2.39426 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
     +     .01557,    .00737,  63.43791,   2.65347,   1.89798,
     +    1.21343,   2.39658,   2.65755,
     +     .01595,    .00755,  70.43452,   2.88722,   2.12811,
     +    1.44937,   2.63253,   2.89129,
     +     .01641,    .00778,  79.37270,   3.18895,   2.42495,
     +    1.75249,   2.93687,   3.19302,
     +     .01682,    .00798,  87.74705,   3.47352,   2.70597,
     +    2.04083,   3.22368,   3.47759,
     +     .01719,    .00817,  95.80730,   3.74935,   2.97897,
     +    2.32113,   3.50152,   3.75341,
     +     .01767,    .00841, 106.39835,   4.11743,   3.34184,
     +    2.68998,   3.87210,   4.12149,
     +     .01813,    .00864, 116.85361,   4.48418,   3.70443,
     +    3.05962,   4.24113,   4.48823,
     +     .01856,    .00886, 127.12174,   4.84705,   4.06447,
     +    3.42803,   4.60609,   4.85110 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
     +     .01899,    .00908, 137.59564,   5.22404,   4.43666,
     +    3.80494,   4.98512,   5.22808,
     +     .01942,    .00930, 148.26306,   5.61087,   4.81993,
     +    4.19478,   5.37391,   5.61490,
     +     .01982,    .00950, 158.68562,   5.99265,   5.19860,
     +    4.57989,   5.75750,   5.99666,
     +     .02020,    .00970, 168.67183,   6.36374,   5.56598,
     +    4.95203,   6.13027,   6.36775,
     +     .02059,    .00990, 179.07739,   6.75249,   5.95225,
     +    5.34497,   6.52067,   6.75649,
     +     .02097,    .01009, 189.37038,   7.14361,   6.33957,
     +    5.73654,   6.91339,   7.14760,
     +     .02134,    .01028, 199.52374,   7.53087,   6.72468,
     +    6.12786,   7.30215,   7.53486,
     +     .02169,    .01046, 209.12880,   7.90339,   7.09388,
     +    6.50087,   7.67605,   7.90736 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
     +     .02204,    .01064, 219.11787,   8.29254,   7.48075,
     +    6.89312,   8.06659,   8.29651,
     +     .02239,    .01083, 229.03833,   8.68413,   7.86956,
     +    7.28633,   8.45952,   8.68809,
     +     .02273,    .01100, 238.67024,   9.06756,   8.25057,
     +    7.67177,   8.84422,   9.07152,
     +     .02305,    .01117, 247.98935,   9.44105,   8.62226,
     +    8.04830,   9.21889,   9.44500,
     +     .02337,    .01134, 257.37970,   9.82293,   9.00142,
     +    8.43097,   9.60195,   9.82687 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
     +     .01139,    .00537,    .93233,    .58863,    .00000,
     +     .00000,    .31284,    .59089,
     +     .01179,    .00555,   1.89458,    .61638,    .00000,
     +     .00000,    .34346,    .61866,
     +     .01238,    .00582,   3.67802,    .67088,    .02303,
     +     .00000,    .40202,    .67318,
     +     .01281,    .00602,   5.30327,    .72032,    .07597,
     +     .00000,    .45430,    .72263,
     +     .01327,    .00624,   7.28271,    .78275,    .13315,
     +     .00000,    .51960,    .78507,
     +     .01366,    .00642,   9.22776,    .84512,    .19064,
     +     .00000,    .58437,    .84745,
     +     .01404,    .00661,  11.34374,    .91185,    .25476,
     +     .00000,    .65334,    .91419,
     +     .01444,    .00680,  13.86195,    .99047,    .33181,
     +     .00000,    .73427,    .99282 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
     +     .01479,    .00697,  16.23459,   1.06604,    .40415,
     +     .00000,    .81179,   1.06839,
     +     .01513,    .00713,  18.71426,   1.14503,    .48037,
     +     .00000,    .89262,   1.14738,
     +     .01540,    .00726,  20.84049,   1.21185,    .54630,
     +     .00000,    .96087,   1.21421,
     +     .01598,    .00754,  25.68183,   1.36763,    .69825,
     +     .01298,   1.11963,   1.37000,
     +     .01647,    .00779,  30.20284,   1.51615,    .84270,
     +     .18086,   1.27062,   1.51852,
     +     .01704,    .00807,  35.72382,   1.69861,   1.02117,
     +     .38688,   1.45576,   1.70098,
     +     .01762,    .00836,  41.97604,   1.90668,   1.22512,
     +     .59944,   1.66652,   1.90906,
     +     .01816,    .00863,  48.08667,   2.11163,   1.42644,
     +     .80934,   1.87385,   2.11401 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
     +     .01870,    .00890,  54.67430,   2.33438,   1.64585,
     +    1.03707,   2.09892,   2.33676,
     +     .01915,    .00913,  60.42571,   2.53116,   1.83929,
     +    1.23543,   2.29759,   2.53355,
     +     .01970,    .00941,  67.72749,   2.78398,   2.08763,
     +    1.48904,   2.55262,   2.78637,
     +     .02019,    .00965,  74.52772,   3.02131,   2.32166,
     +    1.72919,   2.79187,   3.02371,
     +     .02064,    .00988,  81.03848,   3.25041,   2.54810,
     +    1.96171,   3.02269,   3.25281,
     +     .02121,    .01018,  89.54232,   3.55474,   2.84769,
     +    2.26620,   3.32913,   3.55714,
     +     .02176,    .01046,  97.88802,   3.85657,   3.14570,
     +    2.56999,   3.63291,   3.85898,
     +     .02227,    .01072, 106.04147,   4.15398,   3.44043,
     +    2.87157,   3.93210,   4.15639 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
     +     .02278,    .01099, 114.31097,   4.46162,   3.74375,
     +    3.17867,   4.24148,   4.46403,
     +     .02329,    .01125, 122.69340,   4.77609,   4.05496,
     +    3.49518,   4.55762,   4.77850,
     +     .02377,    .01150, 130.84538,   5.08532,   4.36133,
     +    3.80673,   4.86839,   5.08773,
     +     .02422,    .01173, 138.61922,   5.38480,   4.65748,
     +    4.10664,   5.16930,   5.38722,
     +     .02468,    .01197, 146.68935,   5.69757,   4.96795,
     +    4.42244,   5.48348,   5.70000,
     +     .02514,    .01221, 154.63420,   6.01113,   5.27812,
     +    4.73595,   5.79841,   6.01356,
     +     .02557,    .01244, 162.44595,   6.32075,   5.58574,
     +    5.04849,   6.10930,   6.32318,
     +     .02598,    .01265, 169.80338,   6.61761,   5.87965,
     +    5.34536,   6.40734,   6.62005 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
     +     .02640,    .01287, 177.43217,   6.92695,   6.18691,
     +    5.65685,   6.71786,   6.92939,
     +     .02682,    .01309, 184.97922,   7.23732,   6.49479,
     +    5.96815,   7.02937,   7.23976,
     +     .02721,    .01330, 192.28329,   7.54044,   6.79574,
     +    6.27254,   7.33357,   7.54288,
     +     .02759,    .01350, 199.32956,   7.83500,   7.08867,
     +    6.56925,   7.62915,   7.83746,
     +     .02798,    .01370, 206.40331,   8.13536,   7.38663,
     +    6.86989,   7.93052,   8.13782 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
     +     .01296,    .00607,    .90834,    .54935,    .00000,
     +     .00000,    .29201,    .55072,
     +     .01342,    .00628,   1.83002,    .57609,    .00000,
     +     .00000,    .32133,    .57746,
     +     .01410,    .00660,   3.52151,    .62782,    .02170,
     +     .00000,    .37672,    .62920,
     +     .01459,    .00684,   5.04838,    .67428,    .07141,
     +     .00000,    .42573,    .67567,
     +     .01511,    .00709,   6.89364,    .73248,    .12466,
     +     .00000,    .48651,    .73388,
     +     .01556,    .00731,   8.69440,    .79026,    .17790,
     +     .00000,    .54645,    .79167,
     +     .01599,    .00752,  10.64246,    .85183,    .23704,
     +     .00000,    .61004,    .85325,
     +     .01645,    .00774,  12.94822,    .92408,    .30778,
     +     .00000,    .68436,    .92550 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
     +     .01685,    .00794,  15.10919,    .99322,    .37395,
     +     .00000,    .75526,    .99465,
     +     .01724,    .00813,  17.35764,   1.06527,    .44342,
     +     .00000,    .82895,   1.06670,
     +     .01754,    .00829,  19.27873,   1.12607,    .50335,
     +     .00000,    .89103,   1.12750,
     +     .01820,    .00861,  23.62908,   1.26724,    .64094,
     +     .01190,   1.03487,   1.26868,
     +     .01877,    .00890,  27.66440,   1.40120,    .77113,
     +     .16324,   1.17104,   1.40265,
     +     .01940,    .00922,  32.56380,   1.56507,    .93131,
     +     .34845,   1.33732,   1.56653,
     +     .02007,    .00956,  38.07914,   1.75112,   1.11355,
     +     .53853,   1.52579,   1.75259,
     +     .02068,    .00987,  43.43961,   1.93362,   1.29268,
     +     .72543,   1.71041,   1.93510 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
     +     .02129,    .01018,  49.18917,   2.13121,   1.48717,
     +     .92743,   1.91007,   2.13269,
     +     .02181,    .01044,  54.18570,   2.30515,   1.65804,
     +    1.10272,   2.08570,   2.30664,
     +     .02243,    .01076,  60.50067,   2.52785,   1.87665,
     +    1.32607,   2.31038,   2.52936,
     +     .02299,    .01105,  66.35643,   2.73622,   2.08199,
     +    1.53688,   2.52046,   2.73774,
     +     .02350,    .01131,  71.94156,   2.93678,   2.28009,
     +    1.74039,   2.72255,   2.93830,
     +     .02415,    .01165,  79.20473,   3.20229,   2.54133,
     +    2.00597,   2.98997,   3.20383,
     +     .02476,    .01197,  86.30258,   3.46477,   2.80033,
     +    2.27008,   3.25418,   3.46631,
     +     .02534,    .01227,  93.21075,   3.72263,   3.05575,
     +    2.53153,   3.51363,   3.72418 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
     +     .02592,    .01258, 100.18820,   3.98852,   3.31777,
     +    2.79687,   3.78107,   3.99008,
     +     .02650,    .01288, 107.23663,   4.25958,   3.58590,
     +    3.06963,   4.05362,   4.26116,
     +     .02704,    .01316, 114.06824,   4.52542,   3.84917,
     +    3.33743,   4.32084,   4.52700,
     +     .02755,    .01343, 120.56041,   4.78220,   4.10298,
     +    3.59452,   4.57889,   4.78380,
     +     .02807,    .01371, 127.28187,   5.04979,   4.36852,
     +    3.86469,   4.84775,   5.05140,
     +     .02858,    .01398, 133.87613,   5.31737,   4.63309,
     +    4.13214,   5.11653,   5.31899,
     +     .02907,    .01423, 140.34460,   5.58106,   4.89501,
     +    4.39833,   5.38136,   5.58269,
     +     .02954,    .01448, 146.41722,   5.83328,   5.14464,
     +    4.65051,   5.63465,   5.83492 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
     +     .03001,    .01473, 152.70030,   6.09564,   5.40517,
     +    4.91469,   5.89806,   6.09730,
     +     .03048,    .01498, 158.89832,   6.35831,   5.66566,
     +    5.17812,   6.16176,   6.35998,
     +     .03092,    .01521, 164.88275,   6.61438,   5.91983,
     +    5.43524,   6.41879,   6.61606,
     +     .03135,    .01544, 170.64380,   6.86280,   6.16682,
     +    5.68548,   6.66811,   6.86449,
     +     .03178,    .01567, 176.41138,   7.11560,   6.41754,
     +    5.93849,   6.92181,   7.11730 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
     +     .01433,    .00668,    .89066,    .52068,    .00000,
     +     .00000,    .27685,    .52149,
     +     .01484,    .00692,   1.78203,    .54664,    .00000,
     +     .00000,    .30519,    .54745,
     +     .01559,    .00728,   3.40526,    .59629,    .02072,
     +     .00000,    .35822,    .59712,
     +     .01614,    .00755,   4.85959,    .64055,    .06806,
     +     .00000,    .40483,    .64138,
     +     .01671,    .00783,   6.60651,    .69566,    .11844,
     +     .00000,    .46232,    .69650,
     +     .01721,    .00808,   8.30209,    .75011,    .16860,
     +     .00000,    .51876,    .75095,
     +     .01769,    .00832,  10.12832,    .80793,    .22412,
     +     .00000,    .57844,    .80879,
     +     .01820,    .00857,  12.28064,    .87558,    .29032,
     +     .00000,    .64799,    .87643 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
     +     .01864,    .00879,  14.28939,    .94009,    .35203,
     +     .00000,    .71412,    .94096,
     +     .01907,    .00901,  16.37219,   1.00714,    .41666,
     +     .00000,    .78269,   1.00801,
     +     .01941,    .00918,  18.14678,   1.06362,    .47230,
     +     .00000,    .84035,   1.06449,
     +     .02013,    .00955,  22.14805,   1.19434,    .59965,
     +     .01112,    .97351,   1.19523,
     +     .02076,    .00987,  25.83997,   1.31792,    .71972,
     +     .15074,   1.09913,   1.31882,
     +     .02147,    .01023,  30.30208,   1.46860,    .86694,
     +     .32121,   1.25202,   1.46952,
     +     .02220,    .01060,  35.30166,   1.63907,   1.03386,
     +     .49546,   1.42471,   1.64000,
     +     .02287,    .01095,  40.13959,   1.80574,   1.19740,
     +     .66623,   1.59333,   1.80668 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
     +     .02355,    .01130,  45.30795,   1.98565,   1.37442,
     +     .85021,   1.77514,   1.98660,
     +     .02412,    .01159,  49.78305,   2.14358,   1.52953,
     +    1.00943,   1.93462,   2.14455,
     +     .02481,    .01195,  55.41895,   2.34525,   1.72743,
     +    1.21173,   2.13811,   2.34623,
     +     .02542,    .01227,  60.62719,   2.53345,   1.91284,
     +    1.40219,   2.32788,   2.53444,
     +     .02599,    .01257,  65.57992,   2.71417,   2.09132,
     +    1.58563,   2.51000,   2.71517,
     +     .02670,    .01294,  71.99842,   2.95280,   2.32605,
     +    1.82437,   2.75037,   2.95382,
     +     .02738,    .01330,  78.24995,   3.18809,   2.55818,
     +    2.06120,   2.98726,   3.18913,
     +     .02802,    .01363,  84.31629,   3.41870,   2.78658,
     +    2.29511,   3.21933,   3.41976 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
     +     .02866,    .01397,  90.42320,   3.65591,   3.02030,
     +    2.53186,   3.45796,   3.65699,
     +     .02928,    .01430,  96.57562,   3.89722,   3.25896,
     +    2.77476,   3.70063,   3.89831,
     +     .02988,    .01462, 102.52283,   4.13338,   3.49282,
     +    3.01274,   3.93806,   4.13449,
     +     .03045,    .01492, 108.15910,   4.36103,   3.71781,
     +    3.24072,   4.16687,   4.36215,
     +     .03102,    .01522, 113.98200,   4.59785,   3.95281,
     +    3.47992,   4.40485,   4.59900,
     +     .03158,    .01552, 119.67897,   4.83418,   4.18647,
     +    3.71620,   4.64229,   4.83534,
     +     .03212,    .01581, 125.25694,   5.06672,   4.41744,
     +    3.95103,   4.87588,   5.06790,
     +     .03262,    .01608, 130.47989,   5.28873,   4.63716,
     +    4.17306,   5.09886,   5.28993 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
     +     .03314,    .01635, 135.87483,   5.51935,   4.86617,
     +    4.40537,   5.33044,   5.52056,
     +     .03365,    .01663, 141.18457,   5.74985,   5.09475,
     +    4.63661,   5.56188,   5.75107,
     +     .03414,    .01689, 146.30185,   5.97422,   5.31747,
     +    4.86199,   5.78714,   5.97546,
     +     .03461,    .01714, 151.22002,   6.19161,   5.53361,
     +    5.08107,   6.00535,   6.19287,
     +     .03508,    .01739, 156.13257,   6.41248,   5.75267,
     +    5.30219,   6.22705,   6.41375 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
     +     .01958,    .00901,    .84185,    .44083,    .00000,
     +     .00000,    .23487,    .44064,
     +     .02029,    .00937,   1.64525,    .46436,    .00000,
     +     .00000,    .26029,    .46419,
     +     .02132,    .00990,   3.07215,    .50799,    .01794,
     +     .00000,    .30656,    .50783,
     +     .02208,    .01029,   4.32030,    .54600,    .05857,
     +     .00000,    .34641,    .54585,
     +     .02287,    .01070,   5.79070,    .59243,    .10092,
     +     .00000,    .39472,    .59230,
     +     .02356,    .01106,   7.19337,    .63761,    .14253,
     +     .00000,    .44145,    .63750,
     +     .02422,    .01140,   8.68304,    .68510,    .18810,
     +     .00000,    .49039,    .68500,
     +     .02492,    .01177,  10.41489,    .74009,    .24186,
     +     .00000,    .54687,    .74001 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
     +     .02552,    .01209,  12.00979,    .79198,    .29146,
     +     .00000,    .60002,    .79192,
     +     .02611,    .01240,  13.64518,    .84546,    .34299,
     +     .00000,    .65468,    .84541,
     +     .02658,    .01264,  15.02618,    .89022,    .38706,
     +     .00000,    .70037,    .89019,
     +     .02757,    .01317,  18.09723,    .99279,    .48694,
     +     .00900,    .80484,    .99279,
     +     .02843,    .01362,  20.88297,   1.08862,    .58004,
     +     .11746,    .90225,   1.08865,
     +     .02939,    .01414,  24.20120,   1.20422,    .69299,
     +     .24899,   1.01957,   1.20428,
     +     .03040,    .01467,  27.86374,   1.33354,    .81963,
     +     .38169,   1.15061,   1.33363,
     +     .03131,    .01516,  31.35843,   1.45866,    .94242,
     +     .51038,   1.27724,   1.45878 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
     +     .03224,    .01566,  35.04423,   1.59241,   1.07409,
     +     .64768,   1.41247,   1.59257,
     +     .03300,    .01607,  38.19844,   1.70880,   1.18844,
     +     .76543,   1.53006,   1.70899,
     +     .03394,    .01657,  42.12572,   1.85614,   1.33310,
     +     .91374,   1.67881,   1.85637,
     +     .03477,    .01702,  45.71547,   1.99250,   1.46752,
     +    1.05224,   1.81638,   1.99276,
     +     .03553,    .01743,  49.09644,   2.12248,   1.59598,
     +    1.18468,   1.94745,   2.12278,
     +     .03649,    .01795,  53.42940,   2.29269,   1.76352,
     +    1.35552,   2.11901,   2.29303,
     +     .03741,    .01845,  57.60442,   2.45913,   1.92786,
     +    1.52365,   2.28668,   2.45951,
     +     .03826,    .01891,  61.61715,   2.62107,   2.08839,
     +    1.68852,   2.44975,   2.62149 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
     +     .03912,    .01938,  65.61336,   2.78631,   2.25134,
     +    1.85398,   2.61609,   2.78677,
     +     .03996,    .01983,  69.60441,   2.95327,   2.41664,
     +    2.02264,   2.78411,   2.95377,
     +     .04076,    .02027,  73.42921,   3.11560,   2.57755,
     +    2.18682,   2.94742,   3.11614,
     +     .04152,    .02068,  77.02151,   3.27104,   2.73133,
     +    2.34301,   3.10376,   3.27162,
     +     .04228,    .02110,  80.70769,   3.43188,   2.89112,
     +    2.50608,   3.26549,   3.43249,
     +     .04303,    .02151,  84.28116,   3.59132,   3.04892,
     +    2.66601,   3.42580,   3.59197,
     +     .04374,    .02190,  87.75956,   3.74745,   3.20421,
     +    2.82429,   3.58274,   3.74814,
     +     .04442,    .02227,  90.98846,   3.89561,   3.35099,
     +    2.97295,   3.73165,   3.89633 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
     +     .04511,    .02264,  94.30584,   4.04884,   3.50336,
     +    3.12789,   3.88562,   4.04960,
     +     .04578,    .02301,  97.54615,   4.20115,   3.65460,
     +    3.28124,   4.03867,   4.20195,
     +     .04643,    .02337, 100.65018,   4.34874,   3.80129,
     +    3.43003,   4.18694,   4.34957,
     +     .04705,    .02371, 103.61729,   4.49113,   3.94307,
     +    3.57408,   4.32998,   4.49199,
     +     .04768,    .02405, 106.55864,   4.63506,   4.08600,
     +    3.71866,   4.47454,   4.63595 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
     +     .02681,    .01227,    .80568,    .37361,    .00000,
     +     .00000,    .19988,    .37338,
     +     .02778,    .01279,   1.52978,    .39479,    .00000,
     +     .00000,    .22256,    .39459,
     +     .02921,    .01357,   2.78141,    .43293,    .01550,
     +     .00000,    .26281,    .43278,
     +     .03026,    .01413,   3.84866,    .46543,    .05029,
     +     .00000,    .29680,    .46533,
     +     .03136,    .01473,   5.08032,    .50441,    .08578,
     +     .00000,    .33727,    .50435,
     +     .03230,    .01524,   6.23392,    .54174,    .12017,
     +     .00000,    .37584,    .54172,
     +     .03321,    .01574,   7.44100,    .58054,    .15742,
     +     .00000,    .41581,    .58057,
     +     .03417,    .01626,   8.82425,    .62501,    .20088,
     +     .00000,    .46147,    .62508 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
     +     .03500,    .01672,  10.08023,    .66649,    .24056,
     +     .00000,    .50396,    .66660,
     +     .03581,    .01716,  11.35304,    .70887,    .28142,
     +     .00000,    .54728,    .70901,
     +     .03645,    .01751,  12.41782,    .74411,    .31614,
     +     .00000,    .58327,    .74429,
     +     .03781,    .01826,  14.75104,    .82399,    .39401,
     +     .00725,    .66467,    .82423,
     +     .03898,    .01891,  16.82924,    .89769,    .46572,
     +     .09109,    .73964,    .89800,
     +     .04029,    .01963,  19.26673,    .98560,    .55176,
     +     .19204,    .82892,    .98597,
     +     .04166,    .02039,  21.91466,   1.08278,    .64712,
     +     .29251,    .92748,   1.08322,
     +     .04290,    .02107,  24.40378,   1.17576,    .73858,
     +     .38889,   1.02167,   1.17627 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
     +     .04415,    .02177,  26.99344,   1.27415,    .83568,
     +     .49069,   1.12125,   1.27473,
     +     .04519,    .02235,  29.18198,   1.35898,    .91923,
     +     .57716,   1.20704,   1.35962,
     +     .04646,    .02305,  31.87381,   1.46539,   1.02397,
     +     .68509,   1.31458,   1.46610,
     +     .04757,    .02367,  34.30567,   1.56301,   1.12047,
     +     .78502,   1.41318,   1.56378,
     +     .04860,    .02424,  36.57265,   1.65535,   1.21200,
     +     .87985,   1.50640,   1.65619,
     +     .04990,    .02497,  39.44299,   1.77520,   1.33030,
     +    1.00107,   1.62733,   1.77612,
     +     .05112,    .02565,  42.17688,   1.89139,   1.44536,
     +    1.11934,   1.74451,   1.89238,
     +     .05227,    .02629,  44.77767,   2.00356,   1.55691,
     +    1.23447,   1.85759,   2.00462 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
     +     .05342,    .02693,  47.33707,   2.11705,   1.66915,
     +    1.34896,   1.97196,   2.11818,
     +     .05454,    .02756,  49.86937,   2.23091,   1.78223,
     +    1.46489,   2.08668,   2.23211,
     +     .05561,    .02815,  52.27351,   2.34085,   1.89156,
     +    1.57695,   2.19740,   2.34211,
     +     .05661,    .02871,  54.50906,   2.44537,   1.99529,
     +    1.68278,   2.30266,   2.44670,
     +     .05762,    .02928,  56.78650,   2.55292,   2.10250,
     +    1.79271,   2.41093,   2.55431,
     +     .05862,    .02983,  58.97137,   2.65878,   2.20760,
     +    1.89969,   2.51749,   2.66024,
     +     .05957,    .03037,  61.08510,   2.76193,   2.31054,
     +    2.00511,   2.62129,   2.76345,
     +     .06046,    .03087,  63.02779,   2.85916,   2.40718,
     +    2.10341,   2.71914,   2.86074 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
     +     .06137,    .03137,  65.01241,   2.95927,   2.50707,
     +    2.20545,   2.81985,   2.96091,
     +     .06226,    .03187,  66.93423,   3.05820,   2.60563,
     +    2.30582,   2.91937,   3.05990,
     +     .06312,    .03235,  68.76286,   3.15359,   2.70077,
     +    2.40275,   3.01532,   3.15535,
     +     .06393,    .03281,  70.50058,   3.24522,   2.79233,
     +    2.49620,   3.10747,   3.24703,
     +     .06475,    .03326,  72.20791,   3.33731,   2.88409,
     +    2.58942,   3.20008,   3.33917 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
     +     .03226,    .01480,    .79340,    .33971,    .00000,
     +     .00000,    .18233,    .33980,
     +     .03344,    .01545,   1.47468,    .35954,    .00000,
     +     .00000,    .20350,    .35968,
     +     .03517,    .01641,   2.63195,    .39467,    .01420,
     +     .00000,    .24052,    .39491,
     +     .03644,    .01712,   3.60307,    .42425,    .04590,
     +     .00000,    .27142,    .42455,
     +     .03776,    .01785,   4.70951,    .45932,    .07784,
     +     .00000,    .30782,    .45969,
     +     .03890,    .01849,   5.73408,    .49259,    .10851,
     +     .00000,    .34219,    .49303,
     +     .03999,    .01910,   6.79627,    .52694,    .14151,
     +     .00000,    .37758,    .52744,
     +     .04115,    .01975,   8.00263,    .56606,    .17976,
     +     .00000,    .41777,    .56663 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
     +     .04216,    .02031,   9.08842,    .60229,    .21445,
     +     .00000,    .45490,    .60292,
     +     .04312,    .02085,  10.18075,    .63910,    .24999,
     +     .00000,    .49256,    .63978,
     +     .04389,    .02129,  11.08923,    .66959,    .28006,
     +     .00000,    .52371,    .67032,
     +     .04552,    .02220,  13.06171,    .73825,    .34707,
     +     .00637,    .59373,    .73907,
     +     .04693,    .02299,  14.79852,    .80110,    .40833,
     +     .07818,    .65771,    .80201,
     +     .04850,    .02388,  16.81607,    .87554,    .48133,
     +     .16428,    .73339,    .87655,
     +     .05013,    .02480,  18.98611,    .95723,    .56166,
     +     .24927,    .81632,    .95834,
     +     .05162,    .02564,  21.00700,   1.03485,    .63819,
     +     .33025,    .89503,   1.03606 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
     +     .05311,    .02648,  23.09164,   1.11648,    .71893,
     +     .41525,    .97773,   1.11779,
     +     .05435,    .02718,  24.83951,   1.18645,    .78801,
     +     .48702,   1.04856,   1.18784,
     +     .05585,    .02803,  26.97281,   1.27373,    .87414,
     +     .57612,   1.13686,   1.27522,
     +     .05718,    .02878,  28.88595,   1.35337,    .95307,
     +     .65818,   1.21738,   1.35494,
     +     .05840,    .02947,  30.65785,   1.42834,   1.02758,
     +     .73569,   1.29314,   1.43000,
     +     .05994,    .03035,  32.88402,   1.52511,   1.12335,
     +     .83419,   1.39089,   1.52687,
     +     .06139,    .03117,  34.98886,   1.61842,   1.21601,
     +     .92982,   1.48510,   1.62028,
     +     .06275,    .03194,  36.97830,   1.70807,   1.30542,
     +    1.02246,   1.57558,   1.71003 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
     +     .06411,    .03270,  38.92092,   1.79830,   1.39490,
     +    1.11407,   1.66661,   1.80035,
     +     .06543,    .03345,  40.83160,   1.88843,   1.48467,
     +    1.20646,   1.75751,   1.89057,
     +     .06669,    .03417,  42.63470,   1.97507,   1.57109,
     +    1.29538,   1.84487,   1.97730,
     +     .06787,    .03483,  44.30035,   2.05709,   1.65272,
     +    1.37897,   1.92755,   2.05940,
     +     .06906,    .03551,  45.98953,   2.14118,   1.73680,
     +    1.46552,   2.01231,   2.14358,
     +     .07023,    .03617,  47.59882,   2.22359,   1.81885,
     +    1.54935,   2.09534,   2.22606,
     +     .07134,    .03680,  49.14977,   2.30364,   1.89899,
     +    1.63173,   2.17599,   2.30619,
     +     .07239,    .03739,  50.56557,   2.37878,   1.97390,
     +    1.70821,   2.25169,   2.38141 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
     +     .07345,    .03799,  52.00680,   2.45593,   2.05112,
     +    1.78739,   2.32940,   2.45864,
     +     .07450,    .03858,  53.39434,   2.53189,   2.12703,
     +    1.86498,   2.40589,   2.53467,
     +     .07550,    .03915,  54.70881,   2.60491,   2.20009,
     +    1.93969,   2.47942,   2.60776,
     +     .07645,    .03969,  55.95307,   2.67486,   2.27021,
     +    2.01153,   2.54985,   2.67778,
     +     .07741,    .04023,  57.16805,   2.74490,   2.34022,
     +    2.08292,   2.62037,   2.74789 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
     +     .03683,    .01699,    .79050,    .31802,    .00000,
     +     .00000,    .17112,    .31844,
     +     .03818,    .01775,   1.44273,    .33691,    .00000,
     +     .00000,    .19124,    .33740,
     +     .04017,    .01887,   2.53600,    .36999,    .01333,
     +     .00000,    .22608,    .37061,
     +     .04161,    .01969,   3.44244,    .39760,    .04297,
     +     .00000,    .25490,    .39830,
     +     .04313,    .02055,   4.46535,    .43006,    .07254,
     +     .00000,    .28860,    .43086,
     +     .04443,    .02129,   5.40455,    .46065,    .10078,
     +     .00000,    .32022,    .46153,
     +     .04567,    .02200,   6.37151,    .49208,    .13099,
     +     .00000,    .35261,    .49305,
     +     .04700,    .02275,   7.46240,    .52770,    .16584,
     +     .00000,    .38923,    .52875 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
     +     .04814,    .02340,   8.43786,    .56052,    .19730,
     +     .00000,    .42288,    .56165,
     +     .04924,    .02403,   9.41385,    .59373,    .22940,
     +     .00000,    .45688,    .59493,
     +     .05012,    .02452,  10.22204,    .62116,    .25648,
     +     .00000,    .48492,    .62242,
     +     .05197,    .02558,  11.96471,    .68261,    .31654,
     +     .00580,    .54764,    .68399,
     +     .05357,    .02649,  13.48592,    .73854,    .37114,
     +     .06994,    .60464,    .74003,
     +     .05535,    .02751,  15.24031,    .80445,    .43589,
     +     .14663,    .67170,    .80606,
     +     .05721,    .02857,  17.11329,    .87637,    .50674,
     +     .22185,    .74478,    .87812,
     +     .05889,    .02953,  18.84533,    .94437,    .57392,
     +     .29317,    .81380,    .94623 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
     +     .06058,    .03050,  20.62056,   1.01555,    .64446,
     +     .36768,    .88598,   1.01753,
     +     .06198,    .03130,  22.10015,   1.07629,    .70457,
     +     .43034,    .94753,   1.07837,
     +     .06368,    .03227,  23.89551,   1.15175,    .77920,
     +     .50779,   1.02394,   1.15395,
     +     .06518,    .03313,  25.49667,   1.22032,    .84732,
     +     .57885,   1.09334,   1.22263,
     +     .06655,    .03391,  26.97237,   1.28465,    .91140,
     +     .64573,   1.15842,   1.28706,
     +     .06829,    .03490,  28.81545,   1.36733,    .99343,
     +     .73037,   1.24203,   1.36987,
     +     .06992,    .03584,  30.54838,   1.44675,   1.07249,
     +     .81222,   1.32229,   1.44941,
     +     .07145,    .03671,  32.17829,   1.52278,   1.14851,
     +     .89125,   1.39910,   1.52555 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
     +     .07297,    .03758,  33.76029,   1.59900,   1.22427,
     +     .96907,   1.47607,   1.60188,
     +     .07446,    .03843,  35.30925,   1.67488,   1.30005,
     +    1.04730,   1.55269,   1.67787,
     +     .07587,    .03923,  36.76426,   1.74759,   1.37276,
     +    1.12237,   1.62608,   1.75068,
     +     .07719,    .03999,  38.10149,   1.81619,   1.44121,
     +    1.19269,   1.69531,   1.81938,
     +     .07852,    .04075,  39.45295,   1.88635,   1.51155,
     +    1.26533,   1.76609,   1.88964,
     +     .07983,    .04149,  40.73337,   1.95486,   1.57995,
     +    1.33543,   1.83521,   1.95825,
     +     .08107,    .04220,  41.96386,   2.02127,   1.64662,
     +    1.40420,   1.90219,   2.02475,
     +     .08225,    .04287,  43.08107,   2.08341,   1.70873,
     +    1.46781,   1.96485,   2.08698 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
     +     .08343,    .04354,  44.21530,   2.14707,   1.77263,
     +    1.53355,   2.02905,   2.15073,
     +     .08460,    .04421,  45.30216,   2.20958,   1.83528,
     +    1.59779,   2.09207,   2.21333,
     +     .08571,    .04484,  46.32824,   2.26953,   1.89543,
     +    1.65950,   2.15251,   2.27337,
     +     .08677,    .04544,  47.29662,   2.32684,   1.95305,
     +    1.71874,   2.21027,   2.33076,
     +     .08783,    .04604,  48.23743,   2.38408,   2.01041,
     +    1.77742,   2.26796,   2.38807 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
     +     .04086,    .01907,    .79624,    .30324,    .00000,
     +     .00000,    .16327,    .30369,
     +     .04236,    .01993,   1.42580,    .32138,    .00000,
     +     .00000,    .18257,    .32193,
     +     .04457,    .02119,   2.46985,    .35289,    .01266,
     +     .00000,    .21570,    .35359,
     +     .04618,    .02212,   3.32701,    .37899,    .04074,
     +     .00000,    .24293,    .37979,
     +     .04786,    .02308,   4.28656,    .40947,    .06853,
     +     .00000,    .27457,    .41040,
     +     .04930,    .02391,   5.16138,    .43804,    .09493,
     +     .00000,    .30409,    .43906,
     +     .05069,    .02470,   6.05687,    .46728,    .12307,
     +     .00000,    .33423,    .46840,
     +     .05215,    .02555,   7.06151,    .50029,    .15540,
     +     .00000,    .36816,    .50151 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
     +     .05342,    .02627,   7.95497,    .53058,    .18446,
     +     .00000,    .39923,    .53189,
     +     .05464,    .02698,   8.84487,    .56112,    .21402,
     +     .00000,    .43051,    .56252,
     +     .05560,    .02753,   9.57911,    .58629,    .23889,
     +     .00000,    .45625,    .58776,
     +     .05765,    .02871,  11.15322,    .64245,    .29385,
     +     .00537,    .51359,    .64406,
     +     .05942,    .02973,  12.51726,    .69333,    .34358,
     +     .06390,    .56546,    .69507,
     +     .06138,    .03086,  14.08090,    .75303,    .40230,
     +     .13369,    .62624,    .75492,
     +     .06343,    .03204,  15.73993,    .81788,    .46629,
     +     .20180,    .69218,    .81992,
     +     .06528,    .03310,  17.26513,    .87894,    .52671,
     +     .26612,    .75419,    .88112 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
     +     .06714,    .03418,  18.81994,    .94261,    .58991,
     +     .33306,    .81880,    .94493,
     +     .06868,    .03506,  20.10936,    .99675,    .64358,
     +     .38914,    .87371,    .99918,
     +     .07054,    .03613,  21.66627,   1.06378,    .70998,
     +     .45823,    .94163,   1.06635,
     +     .07218,    .03708,  23.04830,   1.12448,    .77039,
     +     .52142,   1.00311,   1.12718,
     +     .07369,    .03794,  24.31679,   1.18127,    .82707,
     +     .58073,   1.06060,   1.18408,
     +     .07559,    .03904,  25.89298,   1.25401,    .89936,
     +     .65551,   1.13421,   1.25696,
     +     .07737,    .04006,  27.36810,   1.32364,    .96881,
     +     .72760,   1.20463,   1.32673,
     +     .07904,    .04102,  28.74986,   1.39010,   1.03540,
     +     .79702,   1.27183,   1.39332 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
     +     .08070,    .04197,  30.08396,   1.45651,   1.10154,
     +     .86513,   1.33895,   1.45985,
     +     .08233,    .04290,  31.38519,   1.52244,   1.16752,
     +     .93343,   1.40558,   1.52591,
     +     .08386,    .04378,  32.60262,   1.58546,   1.23067,
     +     .99880,   1.46924,   1.58905,
     +     .08530,    .04461,  33.71660,   1.64474,   1.28995,
     +    1.05986,   1.52911,   1.64844,
     +     .08675,    .04544,  34.83917,   1.70523,   1.35074,
     +    1.12281,   1.59020,   1.70905,
     +     .08817,    .04625,  35.89747,   1.76414,   1.40969,
     +    1.18339,   1.64968,   1.76807,
     +     .08952,    .04702,  36.91204,   1.82114,   1.46704,
     +    1.24271,   1.70722,   1.82517,
     +     .09079,    .04774,  37.82885,   1.87433,   1.52033,
     +    1.29743,   1.76091,   1.87846 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
     +     .09208,    .04848,  38.75751,   1.92873,   1.57507,
     +    1.35390,   1.81582,   1.93296,
     +     .09334,    .04920,  39.64379,   1.98201,   1.62859,
     +    1.40894,   1.86959,   1.98634,
     +     .09455,    .04988,  40.47801,   2.03302,   1.67990,
     +    1.46173,   1.92106,   2.03744,
     +     .09569,    .05053,  41.26328,   2.08170,   1.72896,
     +    1.51231,   1.97017,   2.08621,
     +     .09684,    .05119,  42.02265,   2.13020,   1.77770,
     +    1.56230,   2.01911,   2.13480 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
     +     .05670,    .02767,    .83825,    .26293,    .00000,
     +     .00000,    .14210,    .26410,
     +     .05880,    .02893,   1.40049,    .27887,    .00000,
     +     .00000,    .15899,    .28020,
     +     .06187,    .03075,   2.29836,    .30573,    .01075,
     +     .00000,    .18719,    .30731,
     +     .06409,    .03208,   3.01127,    .32745,    .03436,
     +     .00000,    .20986,    .32921,
     +     .06642,    .03346,   3.78864,    .35230,    .05714,
     +     .00000,    .23566,    .35424,
     +     .06841,    .03463,   4.48086,    .37516,    .07842,
     +     .00000,    .25933,    .37727,
     +     .07031,    .03576,   5.17583,    .39825,    .10079,
     +     .00000,    .28317,    .40052,
     +     .07232,    .03695,   5.94117,    .42399,    .12615,
     +     .00000,    .30969,    .42642 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
     +     .07405,    .03797,   6.60961,    .44729,    .14864,
     +     .00000,    .33364,    .44985,
     +     .07571,    .03896,   7.26531,    .47053,    .17128,
     +     .00000,    .35750,    .47323,
     +     .07703,    .03974,   7.79982,    .48952,    .19016,
     +     .00000,    .37698,    .49233,
     +     .07981,    .04138,   8.92354,    .53134,    .23137,
     +     .00420,    .41981,    .53439,
     +     .08219,    .04278,   9.87332,    .56864,    .26809,
     +     .04773,    .45795,    .57189,
     +     .08485,    .04434,  10.94011,    .61180,    .31085,
     +     .09921,    .50203,    .61526,
     +     .08759,    .04595,  12.04837,    .65799,    .35677,
     +     .14861,    .54915,    .66168,
     +     .09006,    .04740,  13.04704,    .70087,    .39954,
     +     .19464,    .59285,    .70476 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
     +     .09254,    .04885,  14.04655,    .74501,    .44372,
     +     .24194,    .63781,    .74911,
     +     .09459,    .05005,  14.86127,    .78210,    .48080,
     +     .28111,    .67556,    .78637,
     +     .09705,    .05148,  15.82840,    .82749,    .52616,
     +     .32881,    .72173,    .83197,
     +     .09922,    .05275,  16.67317,    .86814,    .56699,
     +     .37198,    .76306,    .87280,
     +     .10120,    .05390,  17.43751,    .90580,    .60492,
     +     .41212,    .80133,    .91063,
     +     .10369,    .05534,  18.37045,    .95349,    .65275,
     +     .46215,    .84978,    .95852,
     +     .10602,    .05669,  19.22924,    .99862,    .69821,
     +     .50987,    .89562,   1.00385,
     +     .10819,    .05795,  20.02208,   1.04129,    .74139,
     +     .55539,    .93894,   1.04670 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
     +     .11035,    .05919,  20.77321,   1.08343,    .78379,
     +     .59954,    .98171,   1.08902,
     +     .11245,    .06040,  21.49594,   1.12490,    .82572,
     +     .64344,   1.02380,   1.13066,
     +     .11443,    .06154,  22.16257,   1.16417,    .86550,
     +     .68510,   1.06364,   1.17010,
     +     .11628,    .06260,  22.76255,   1.20076,    .90249,
     +     .72364,   1.10077,   1.20685,
     +     .11814,    .06367,  23.36099,   1.23784,    .94017,
     +     .76312,   1.13838,   1.24408,
     +     .11995,    .06470,  23.91473,   1.27359,    .97634,
     +     .80073,   1.17464,   1.27998,
     +     .12167,    .06569,  24.44121,   1.30797,   1.01134,
     +     .83737,   1.20951,   1.31450,
     +     .12328,    .06661,  24.90805,   1.33974,   1.04355,
     +     .87084,   1.24173,   1.34641 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
     +     .12491,    .06754,  25.37720,   1.37207,   1.07647,
     +     .90521,   1.27451,   1.37887,
     +     .12651,    .06844,  25.81766,   1.40346,   1.10840,
     +     .93845,   1.30635,   1.41040,
     +     .12803,    .06931,  26.22753,   1.43332,   1.13881,
     +     .97012,   1.33663,   1.44038,
     +     .12947,    .07012,  26.60959,   1.46165,   1.16773,
     +    1.00032,   1.36535,   1.46883,
     +     .13091,    .07094,  26.97212,   1.48964,   1.19622,
     +    1.02991,   1.39374,   1.49694 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
     +     .07965,    .04146,    .94767,    .23204,    .00000,
     +     .00000,    .12574,    .23450,
     +     .08259,    .04324,   1.44160,    .24584,    .00000,
     +     .00000,    .14036,    .24857,
     +     .08686,    .04583,   2.19454,    .26828,    .00905,
     +     .00000,    .16397,    .27141,
     +     .08994,    .04770,   2.76961,    .28596,    .02868,
     +     .00000,    .18248,    .28937,
     +     .09314,    .04963,   3.37930,    .30571,    .04707,
     +     .00000,    .20307,    .30942,
     +     .09587,    .05126,   3.90787,    .32352,    .06392,
     +     .00000,    .22159,    .32749,
     +     .09846,    .05282,   4.42676,    .34125,    .08136,
     +     .00000,    .23998,    .34545,
     +     .10120,    .05445,   4.98612,    .36071,    .10082,
     +     .00000,    .26014,    .36517 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
     +     .10355,    .05585,   5.46474,    .37806,    .11782,
     +     .00000,    .27808,    .38273,
     +     .10579,    .05719,   5.92603,    .39515,    .13471,
     +     .00000,    .29573,    .40003,
     +     .10757,    .05825,   6.29680,    .40899,    .14867,
     +     .00000,    .31001,    .41403,
     +     .11130,    .06046,   7.05849,    .43900,    .17868,
     +     .00320,    .34093,    .44439,
     +     .11448,    .06233,   7.68299,    .46530,    .20495,
     +     .03472,    .36800,    .47097,
     +     .11800,    .06441,   8.36756,    .49523,    .23507,
     +     .07163,    .39877,    .50123,
     +     .12163,    .06653,   9.06110,    .52671,    .26687,
     +     .10638,    .43111,    .53304,
     +     .12487,    .06843,   9.67111,    .55547,    .29602,
     +     .13826,    .46063,    .56209 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
     +     .12812,    .07031,  10.26807,    .58463,    .32571,
     +     .17056,    .49055,    .59155,
     +     .13078,    .07186,  10.74430,    .60881,    .35029,
     +     .19694,    .51535,    .61596,
     +     .13396,    .07370,  11.29764,    .63798,    .37996,
     +     .22866,    .54525,    .64542,
     +     .13676,    .07531,  11.77131,    .66378,    .40634,
     +     .25703,    .57169,    .67147,
     +     .13930,    .07678,  12.19223,    .68740,    .43058,
     +     .28312,    .59590,    .69532,
     +     .14248,    .07860,  12.69383,    .71690,    .46075,
     +     .31521,    .62612,    .72511,
     +     .14543,    .08029,  13.14566,    .74446,    .48906,
     +     .34545,    .65436,    .75293,
     +     .14819,    .08185,  13.55497,    .77021,    .51566,
     +     .37400,    .68073,    .77893 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
     +     .15089,    .08339,  13.93240,    .79530,    .54142,
     +     .40131,    .70643,    .80424,
     +     .15352,    .08488,  14.28894,    .81972,    .56665,
     +     .42822,    .73144,    .82889,
     +     .15599,    .08627,  14.61126,    .84259,    .59034,
     +     .45350,    .75487,    .85199,
     +     .15828,    .08756,  14.89436,    .86365,    .61212,
     +     .47663,    .77645,    .87325,
     +     .16058,    .08885,  15.17292,    .88482,    .63414,
     +     .50015,    .79814,    .89461,
     +     .16281,    .09010,  15.42290,    .90497,    .65502,
     +     .52229,    .81878,    .91495,
     +     .16492,    .09128,  15.65806,    .92421,    .67510,
     +     .54374,    .83851,    .93438,
     +     .16689,    .09237,  15.85999,    .94178,    .69337,
     +     .56311,    .85652,    .95212 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
     +     .16887,    .09348,  16.06073,    .95953,    .71193,
     +     .58289,    .87472,    .97004,
     +     .17080,    .09455,  16.24388,    .97659,    .72975,
     +     .60183,    .89222,    .98727,
     +     .17263,    .09556,  16.41109,    .99269,    .74660,
     +     .61975,    .90873,   1.00352,
     +     .17437,    .09652,  16.56449,   1.00786,    .76252,
     +     .63673,    .92429,   1.01884,
     +     .17610,    .09747,  16.70474,   1.02267,    .77803,
     +     .65321,    .93949,   1.03379 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
     +     .09795,    .05315,   1.05261,    .21739,    .00000,
     +     .00000,    .11807,    .22122,
     +     .10152,    .05532,   1.49895,    .22987,    .00000,
     +     .00000,    .13135,    .23406,
     +     .10668,    .05845,   2.16398,    .24975,    .00812,
     +     .00000,    .15237,    .25445,
     +     .11039,    .06069,   2.65930,    .26515,    .02559,
     +     .00000,    .16858,    .27020,
     +     .11423,    .06299,   3.17507,    .28209,    .04165,
     +     .00000,    .18635,    .28753,
     +     .11749,    .06493,   3.61462,    .29718,    .05617,
     +     .00000,    .20213,    .30293,
     +     .12058,    .06678,   4.03981,    .31203,    .07104,
     +     .00000,    .21764,    .31808,
     +     .12383,    .06871,   4.49182,    .32819,    .08747,
     +     .00000,    .23449,    .33456 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
     +     .12661,    .07035,   4.87341,    .34244,    .10167,
     +     .00000,    .24933,    .34908,
     +     .12927,    .07192,   5.23695,    .35637,    .11567,
     +     .00000,    .26381,    .36326,
     +     .13136,    .07315,   5.52649,    .36758,    .12716,
     +     .00000,    .27546,    .37468,
     +     .13575,    .07572,   6.11162,    .39165,    .15163,
     +     .00270,    .30044,    .39916,
     +     .13947,    .07789,   6.58113,    .41249,    .17280,
     +     .02836,    .32205,    .42036,
     +     .14358,    .08028,   7.08724,    .43595,    .19682,
     +     .05822,    .34636,    .44420,
     +     .14778,    .08270,   7.59104,    .46035,    .22190,
     +     .08598,    .37162,    .46899,
     +     .15154,    .08486,   8.02662,    .48239,    .24465,
     +     .11119,    .39443,    .49138 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
     +     .15527,    .08700,   8.44607,    .50452,    .26760,
     +     .13650,    .41734,    .51386,
     +     .15832,    .08874,   8.77542,    .52269,    .28643,
     +     .15700,    .43613,    .53231,
     +     .16196,    .09081,   9.15206,    .54442,    .30897,
     +     .18143,    .45861,    .55437,
     +     .16515,    .09261,   9.46960,    .56346,    .32884,
     +     .20311,    .47831,    .57371,
     +     .16803,    .09424,   9.74787,    .58076,    .34697,
     +     .22291,    .49620,    .59127,
     +     .17162,    .09625,  10.07316,    .60216,    .36933,
     +     .24705,    .51834,    .61299,
     +     .17495,    .09811,  10.36125,    .62197,    .39014,
     +     .26963,    .53884,    .63310,
     +     .17804,    .09983,  10.61837,    .64033,    .40954,
     +     .29079,    .55785,    .65174 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
     +     .18106,    .10150,  10.84967,    .65803,    .42817,
     +     .31086,    .57618,    .66971,
     +     .18399,    .10312,  11.06486,    .67514,    .44629,
     +     .33050,    .59389,    .68708,
     +     .18673,    .10463,  11.25606,    .69104,    .46319,
     +     .34883,    .61037,    .70322,
     +     .18926,    .10601,  11.42000,    .70555,    .47860,
     +     .36549,    .62541,    .71795,
     +     .19180,    .10740,  11.57940,    .72006,    .49410,
     +     .38234,    .64046,    .73268,
     +     .19424,    .10873,  11.71805,    .73373,    .50868,
     +     .39808,    .65465,    .74656,
     +     .19656,    .10999,  11.84732,    .74673,    .52264,
     +     .41327,    .66814,    .75976,
     +     .19870,    .11114,  11.95431,    .75848,    .53524,
     +     .42688,    .68035,    .77169 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
     +     .20086,    .11231,  12.05961,    .77030,    .54798,
     +     .44072,    .69263,    .78370,
     +     .20296,    .11343,  12.15247,    .78156,    .56013,
     +     .45390,    .70434,    .79514,
     +     .20495,    .11450,  12.23537,    .79212,    .57156,
     +     .46630,    .71533,    .80587,
     +     .20682,    .11550,  12.31001,    .80202,    .58232,
     +     .47801,    .72564,    .81592,
     +     .20868,    .11648,  12.37476,    .81161,    .59271,
     +     .48928,    .73563,    .82566 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
     +     .11398,    .06372,   1.14489,    .20831,    .00000,
     +     .00000,    .11337,    .21355,
     +     .11806,    .06618,   1.55489,    .21980,    .00000,
     +     .00000,    .12567,    .22546,
     +     .12395,    .06971,   2.15438,    .23782,    .00747,
     +     .00000,    .14484,    .24408,
     +     .12816,    .07223,   2.59237,    .25159,    .02345,
     +     .00000,    .15944,    .25828,
     +     .13251,    .07481,   3.04241,    .26658,    .03793,
     +     .00000,    .17527,    .27371,
     +     .13619,    .07698,   3.42099,    .27979,    .05089,
     +     .00000,    .18918,    .28728,
     +     .13967,    .07902,   3.78308,    .29270,    .06405,
     +     .00000,    .20276,    .30054,
     +     .14332,    .08116,   4.16391,    .30664,    .07848,
     +     .00000,    .21741,    .31484 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
     +     .14644,    .08298,   4.48209,    .31883,    .09085,
     +     .00000,    .23020,    .32734,
     +     .14940,    .08471,   4.78247,    .33068,    .10298,
     +     .00000,    .24262,    .33948,
     +     .15174,    .08606,   5.01996,    .34016,    .11288,
     +     .00000,    .25256,    .34919,
     +     .15663,    .08888,   5.49370,    .36037,    .13380,
     +     .00237,    .27371,    .36988,
     +     .16075,    .09124,   5.86700,    .37771,    .15174,
     +     .02431,    .29183,    .38761,
     +     .16529,    .09383,   6.26391,    .39706,    .17193,
     +     .04973,    .31206,    .40739,
     +     .16992,    .09645,   6.65335,    .41700,    .19283,
     +     .07315,    .33289,    .42777,
     +     .17403,    .09878,   6.98525,    .43485,    .21164,
     +     .09424,    .35155,    .44601 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
     +     .17812,    .10107,   7.30052,    .45264,    .23048,
     +     .11527,    .37014,    .46418,
     +     .18144,    .10292,   7.54469,    .46714,    .24583,
     +     .13218,    .38528,    .47898,
     +     .18539,    .10512,   7.81998,    .48435,    .26407,
     +     .15222,    .40327,    .49655,
     +     .18884,    .10702,   8.04896,    .49932,    .28005,
     +     .16989,    .41892,    .51184,
     +     .19195,    .10874,   8.24713,    .51283,    .29455,
     +     .18594,    .43306,    .52564,
     +     .19582,    .11085,   8.47458,    .52941,    .31231,
     +     .20538,    .45041,    .54257,
     +     .19939,    .11279,   8.67275,    .54465,    .32873,
     +     .22345,    .46637,    .55812,
     +     .20268,    .11458,   8.84707,    .55869,    .34395,
     +     .24030,    .48107,    .57245 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
     +     .20590,    .11632,   8.99998,    .57210,    .35846,
     +     .25617,    .49513,    .58614,
     +     .20901,    .11798,   9.14001,    .58497,    .37250,
     +     .27163,    .50864,    .59929,
     +     .21191,    .11953,   9.26210,    .59687,    .38551,
     +     .28598,    .52114,    .61143,
     +     .21458,    .12095,   9.36395,    .60764,    .39731,
     +     .29894,    .53246,    .62243,
     +     .21725,    .12237,   9.46171,    .61836,    .40914,
     +     .31202,    .54374,    .63338,
     +     .21981,    .12372,   9.54343,    .62838,    .42018,
     +     .32415,    .55429,    .64361,
     +     .22223,    .12499,   9.61889,    .63786,    .43072,
     +     .33582,    .56429,    .65330,
     +     .22447,    .12616,   9.67825,    .64636,    .44016,
     +     .34621,    .57326,    .66198 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
     +     .22672,    .12733,   9.73596,    .65487,    .44969,
     +     .35675,    .58226,    .67068,
     +     .22890,    .12846,   9.78428,    .66292,    .45872,
     +     .36673,    .59078,    .67891,
     +     .23095,    .12952,   9.82594,    .67043,    .46717,
     +     .37609,    .59874,    .68658,
     +     .23288,    .13052,   9.86233,    .67743,    .47510,
     +     .38490,    .60617,    .69375,
     +     .23479,    .13150,   9.89092,    .68415,    .48271,
     +     .39332,    .61331,    .70062 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
     +     .12860,    .07349,   1.22458,    .20176,    .00000,
     +     .00000,    .11005,    .20845,
     +     .13311,    .07619,   1.60399,    .21244,    .00000,
     +     .00000,    .12156,    .21960,
     +     .13960,    .08004,   2.15040,    .22897,    .00697,
     +     .00000,    .13927,    .23680,
     +     .14424,    .08276,   2.54333,    .24147,    .02180,
     +     .00000,    .15262,    .24977,
     +     .14901,    .08555,   2.94278,    .25495,    .03508,
     +     .00000,    .16697,    .26374,
     +     .15303,    .08789,   3.27521,    .26672,    .04687,
     +     .00000,    .17948,    .27592,
     +     .15683,    .09009,   3.59022,    .27816,    .05877,
     +     .00000,    .19162,    .28774,
     +     .16081,    .09239,   3.91864,    .29043,    .07172,
     +     .00000,    .20462,    .30041 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
     +     .16419,    .09433,   4.19065,    .30110,    .08276,
     +     .00000,    .21591,    .31142,
     +     .16741,    .09616,   4.44544,    .31141,    .09351,
     +     .00000,    .22681,    .32204,
     +     .16993,    .09760,   4.64564,    .31963,    .10227,
     +     .00000,    .23551,    .33051,
     +     .17521,    .10059,   5.04059,    .33704,    .12064,
     +     .00213,    .25389,    .34843,
     +     .17965,    .10309,   5.34671,    .35185,    .13629,
     +     .02143,    .26953,    .36367,
     +     .18452,    .10581,   5.66830,    .36826,    .15377,
     +     .04370,    .28685,    .38054,
     +     .18946,    .10856,   5.97983,    .38504,    .17175,
     +     .06405,    .30457,    .39779,
     +     .19385,    .11098,   6.24189,    .39996,    .18782,
     +     .08227,    .32032,    .41312 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
     +     .19819,    .11336,   6.48775,    .41473,    .20381,
     +     .10034,    .33592,    .42829,
     +     .20171,    .11528,   6.67570,    .42668,    .21677,
     +     .11478,    .34855,    .44056,
     +     .20588,    .11754,   6.88474,    .44077,    .23208,
     +     .13181,    .36345,    .45503,
     +     .20951,    .11950,   7.05631,    .45296,    .24543,
     +     .14675,    .37635,    .46755,
     +     .21278,    .12125,   7.20293,    .46390,    .25748,
     +     .16026,    .38794,    .47878,
     +     .21682,    .12341,   7.36815,    .47723,    .27215,
     +     .17654,    .40206,    .49246,
     +     .22055,    .12538,   7.50958,    .48939,    .28564,
     +     .19159,    .41498,    .50495,
     +     .22398,    .12720,   7.63202,    .50053,    .29809,
     +     .20557,    .42681,    .51639 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
     +     .22731,    .12894,   7.73660,    .51110,    .30988,
     +     .21865,    .43806,    .52724,
     +     .23053,    .13061,   7.83056,    .52119,    .32124,
     +     .23135,    .44881,    .53760,
     +     .23352,    .13216,   7.91052,    .53045,    .33172,
     +     .24309,    .45869,    .54711,
     +     .23627,    .13358,   7.97493,    .53877,    .34117,
     +     .25364,    .46759,    .55566,
     +     .23901,    .13498,   8.03579,    .54702,    .35062,
     +     .26425,    .47642,    .56413,
     +     .24162,    .13632,   8.08381,    .55466,    .35938,
     +     .27404,    .48461,    .57198,
     +     .24409,    .13758,   8.12758,    .56187,    .36772,
     +     .28344,    .49235,    .57939,
     +     .24637,    .13872,   8.15917,    .56827,    .37514,
     +     .29177,    .49925,    .58597 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
     +     .24865,    .13987,   8.18927,    .57467,    .38261,
     +     .30019,    .50615,    .59255,
     +     .25085,    .14097,   8.21198,    .58067,    .38966,
     +     .30813,    .51264,    .59873,
     +     .25292,    .14200,   8.23010,    .58623,    .39623,
     +     .31555,    .51867,    .60445,
     +     .25487,    .14297,   8.24485,    .59140,    .40237,
     +     .32252,    .52427,    .60977,
     +     .25679,    .14392,   8.25337,    .59631,    .40824,
     +     .32915,    .52962,    .61482 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
     +     .15514,    .09137,   1.35182,    .19235,    .00000,
     +     .00000,    .10542,    .20195,
     +     .16036,    .09440,   1.68040,    .20168,    .00000,
     +     .00000,    .11565,    .21183,
     +     .16782,    .09869,   2.14243,    .21585,    .00620,
     +     .00000,    .13111,    .22678,
     +     .17313,    .10171,   2.46629,    .22638,    .01929,
     +     .00000,    .14256,    .23786,
     +     .17855,    .10479,   2.78996,    .23756,    .03079,
     +     .00000,    .15469,    .24960,
     +     .18310,    .10735,   3.05477,    .24721,    .04087,
     +     .00000,    .16513,    .25970,
     +     .18738,    .10974,   3.30191,    .25648,    .05093,
     +     .00000,    .17516,    .26940,
     +     .19185,    .11223,   3.55585,    .26633,    .06178,
     +     .00000,    .18580,    .27969 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
     +     .19564,    .11432,   3.76324,    .27480,    .07092,
     +     .00000,    .19495,    .28854,
     +     .19922,    .11629,   3.95495,    .28292,    .07976,
     +     .00000,    .20371,    .29700,
     +     .20203,    .11783,   4.10404,    .28935,    .08691,
     +     .00000,    .21065,    .30370,
     +     .20786,    .12100,   4.39230,    .30281,    .10177,
     +     .00179,    .22517,    .31772,
     +     .21274,    .12363,   4.60908,    .31412,    .11427,
     +     .01745,    .23738,    .32949,
     +     .21805,    .12648,   4.83184,    .32650,    .12809,
     +     .03542,    .25075,    .34236,
     +     .22343,    .12934,   5.04258,    .33899,    .14214,
     +     .05165,    .26426,    .35535,
     +     .22817,    .13184,   5.21559,    .34996,    .15456,
     +     .06603,    .27612,    .36674 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
     +     .23282,    .13427,   5.37403,    .36069,    .16681,
     +     .08015,    .28774,    .37787,
     +     .23659,    .13623,   5.49189,    .36927,    .17663,
     +     .09135,    .29706,    .38679,
     +     .24103,    .13851,   5.61942,    .37927,    .18814,
     +     .10443,    .30794,    .39718,
     +     .24486,    .14047,   5.72125,    .38783,    .19809,
     +     .11583,    .31726,    .40606,
     +     .24830,    .14222,   5.80594,    .39544,    .20700,
     +     .12607,    .32556,    .41396,
     +     .25252,    .14435,   5.89697,    .40458,    .21773,
     +     .13828,    .33556,    .42344,
     +     .25639,    .14628,   5.97169,    .41283,    .22752,
     +     .14949,    .34461,    .43200,
     +     .25994,    .14805,   6.03393,    .42031,    .23649,
     +     .15983,    .35283,    .43976 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
     +     .26336,    .14973,   6.08278,    .42727,    .24489,
     +     .16941,    .36053,    .44700,
     +     .26664,    .15133,   6.12429,    .43386,    .25292,
     +     .17865,    .36782,    .45384,
     +     .26968,    .15281,   6.15697,    .43984,    .26027,
     +     .18714,    .37446,    .46005,
     +     .27245,    .15414,   6.17974,    .44514,    .26684,
     +     .19471,    .38038,    .46556,
     +     .27521,    .15547,   6.19983,    .45035,    .27336,
     +     .20228,    .38620,    .47097,
     +     .27782,    .15670,   6.21122,    .45508,    .27935,
     +     .20920,    .39152,    .47589,
     +     .28028,    .15787,   6.22080,    .45952,    .28503,
     +     .21582,    .39653,    .48051,
     +     .28253,    .15892,   6.22299,    .46338,    .29002,
     +     .22163,    .40092,    .48453 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
     +     .28478,    .15997,   6.22406,    .46723,    .29503,
     +     .22749,    .40528,    .48853,
     +     .28693,    .16096,   6.22031,    .47076,    .29971,
     +     .23297,    .40933,    .49221,
     +     .28895,    .16189,   6.21438,    .47400,    .30404,
     +     .23807,    .41306,    .49559,
     +     .29084,    .16275,   6.20713,    .47698,    .30807,
     +     .24282,    .41650,    .49870,
     +     .29269,    .16359,   6.19537,    .47975,    .31187,
     +     .24731,    .41972,    .50158 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
     +     .19086,    .11527,   1.47891,    .18225,    .00000,
     +     .00000,    .10069,    .19622,
     +     .19684,    .11858,   1.74728,    .18998,    .00000,
     +     .00000,    .10942,    .20457,
     +     .20534,    .12322,   2.11455,    .20145,    .00536,
     +     .00000,    .12234,    .21691,
     +     .21134,    .12647,   2.36442,    .20981,    .01655,
     +     .00000,    .13174,    .22587,
     +     .21742,    .12974,   2.60930,    .21855,    .02619,
     +     .00000,    .14154,    .23520,
     +     .22250,    .13244,   2.80560,    .22596,    .03452,
     +     .00000,    .14984,    .24310,
     +     .22726,    .13495,   2.98556,    .23300,    .04274,
     +     .00000,    .15773,    .25060,
     +     .23218,    .13754,   3.16730,    .24040,    .05150,
     +     .00000,    .16601,    .25845 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
     +     .23634,    .13970,   3.31305,    .24668,    .05880,
     +     .00000,    .17304,    .26512,
     +     .24025,    .14172,   3.44563,    .25263,    .06579,
     +     .00000,    .17971,    .27143,
     +     .24331,    .14329,   3.54747,    .25731,    .07140,
     +     .00000,    .18496,    .27638,
     +     .24961,    .14651,   3.73872,    .26698,    .08294,
     +     .00146,    .19580,    .28661,
     +     .25484,    .14915,   3.87616,    .27497,    .09251,
     +     .01370,    .20478,    .29505,
     +     .26050,    .15197,   4.01306,    .28358,    .10297,
     +     .02767,    .21448,    .30414,
     +     .26617,    .15477,   4.13805,    .29213,    .11347,
     +     .04012,    .22414,    .31315,
     +     .27113,    .15720,   4.23661,    .29951,    .12263,
     +     .05102,    .23250,    .32093 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
     +     .27596,    .15953,   4.32322,    .30662,    .13157,
     +     .06162,    .24059,    .32842,
     +     .27984,    .16139,   4.38474,    .31221,    .13866,
     +     .06993,    .24698,    .33432,
     +     .28436,    .16353,   4.44749,    .31862,    .14688,
     +     .07957,    .25434,    .34107,
     +     .28825,    .16535,   4.49473,    .32402,    .15390,
     +     .08788,    .26057,    .34676,
     +     .29171,    .16696,   4.53169,    .32876,    .16014,
     +     .09529,    .26605,    .35174,
     +     .29592,    .16889,   4.56688,    .33433,    .16757,
     +     .10403,    .27255,    .35761,
     +     .29975,    .17063,   4.59218,    .33927,    .17427,
     +     .11199,    .27835,    .36281,
     +     .30324,    .17220,   4.61039,    .34368,    .18035,
     +     .11927,    .28355,    .36745 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
     +     .30656,    .17366,   4.61941,    .34768,    .18597,
     +     .12594,    .28833,    .37166,
     +     .30973,    .17504,   4.62403,    .35139,    .19129,
     +     .13233,    .29279,    .37557,
     +     .31263,    .17630,   4.62401,    .35470,    .19612,
     +     .13815,    .29680,    .37905,
     +     .31526,    .17742,   4.61873,    .35755,    .20038,
     +     .14328,    .30030,    .38204,
     +     .31786,    .17852,   4.61173,    .36031,    .20458,
     +     .14839,    .30371,    .38496,
     +     .32029,    .17953,   4.59932,    .36273,    .20838,
     +     .15301,    .30675,    .38751,
     +     .32257,    .18048,   4.58689,    .36498,    .21197,
     +     .15742,    .30960,    .38989,
     +     .32463,    .18131,   4.57069,    .36686,    .21507,
     +     .16123,    .31202,    .39186 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
     +     .32668,    .18214,   4.55382,    .36870,    .21817,
     +     .16507,    .31442,    .39381,
     +     .32862,    .18291,   4.53424,    .37033,    .22102,
     +     .16862,    .31658,    .39552,
     +     .33043,    .18362,   4.51423,    .37178,    .22364,
     +     .17189,    .31854,    .39706,
     +     .33212,    .18428,   4.49437,    .37308,    .22605,
     +     .17494,    .32033,    .39844,
     +     .33374,    .18490,   4.47158,    .37422,    .22829,
     +     .17778,    .32194,    .39965 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
     +     .24408,    .14976,   1.57208,    .16917,    .00000,
     +     .00000,    .09490,    .19024,
     +     .25083,    .15318,   1.76661,    .17483,    .00000,
     +     .00000,    .10173,    .19653,
     +     .26031,    .15790,   2.02373,    .18303,    .00434,
     +     .00000,    .11160,    .20556,
     +     .26692,    .16115,   2.19180,    .18885,    .01332,
     +     .00000,    .11862,    .21196,
     +     .27357,    .16439,   2.35236,    .19481,    .02089,
     +     .00000,    .12579,    .21848,
     +     .27906,    .16702,   2.47760,    .19977,    .02732,
     +     .00000,    .13177,    .22389,
     +     .28415,    .16944,   2.58966,    .20441,    .03358,
     +     .00000,    .13736,    .22894,
     +     .28939,    .17191,   2.70012,    .20921,    .04016,
     +     .00000,    .14316,    .23414 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
     +     .29377,    .17394,   2.78633,    .21322,    .04557,
     +     .00000,    .14801,    .23847,
     +     .29785,    .17582,   2.86282,    .21696,    .05070,
     +     .00000,    .15255,    .24251,
     +     .30103,    .17727,   2.92051,    .21986,    .05479,
     +     .00000,    .15609,    .24565,
     +     .30751,    .18019,   3.02347,    .22576,    .06307,
     +     .00112,    .16329,    .25201,
     +     .31281,    .18254,   3.09086,    .23050,    .06983,
     +     .01001,    .16913,    .25710,
     +     .31848,    .18501,   3.15362,    .23551,    .07711,
     +     .02009,    .17533,    .26247,
     +     .32407,    .18741,   3.20649,    .24034,    .08430,
     +     .02893,    .18137,    .26763,
     +     .32890,    .18944,   3.24411,    .24439,    .09049,
     +     .03657,    .18650,    .27196 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
     +     .33355,    .19135,   3.27330,    .24819,    .09644,
     +     .04391,    .19136,    .27601,
     +     .33722,    .19284,   3.29069,    .25109,    .10109,
     +     .04960,    .19512,    .27911,
     +     .34145,    .19452,   3.30407,    .25432,    .10641,
     +     .05611,    .19937,    .28254,
     +     .34503,    .19591,   3.31062,    .25696,    .11090,
     +     .06167,    .20288,    .28533,
     +     .34819,    .19711,   3.31263,    .25921,    .11484,
     +     .06658,    .20592,    .28772,
     +     .35196,    .19851,   3.30794,    .26173,    .11945,
     +     .07230,    .20943,    .29039,
     +     .35533,    .19974,   3.29893,    .26387,    .12355,
     +     .07745,    .21247,    .29265,
     +     .35836,    .20081,   3.28738,    .26571,    .12723,
     +     .08211,    .21514,    .29458 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
     +     .36118,    .20178,   3.27041,    .26726,    .13056,
     +     .08632,    .21750,    .29620,
     +     .36383,    .20266,   3.25161,    .26864,    .13368,
     +     .09031,    .21965,    .29764,
     +     .36623,    .20343,   3.23151,    .26978,    .13646,
     +     .09391,    .22152,    .29884,
     +     .36835,    .20409,   3.20961,    .27068,    .13888,
     +     .09704,    .22309,    .29976,
     +     .37042,    .20473,   3.18692,    .27151,    .14124,
     +     .10014,    .22459,    .30061,
     +     .37231,    .20527,   3.16158,    .27213,    .14332,
     +     .10290,    .22584,    .30124,
     +     .37408,    .20577,   3.13747,    .27268,    .14527,
     +     .10551,    .22700,    .30181,
     +     .37562,    .20617,   3.11224,    .27303,    .14691,
     +     .10774,    .22791,    .30216 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
     +     .37714,    .20657,   3.08679,    .27336,    .14854,
     +     .10996,    .22879,    .30247,
     +     .37855,    .20690,   3.06019,    .27355,    .15001,
     +     .11200,    .22952,    .30265,
     +     .37984,    .20720,   3.03429,    .27366,    .15134,
     +     .11385,    .23014,    .30274,
     +     .38102,    .20746,   3.00944,    .27373,    .15254,
     +     .11557,    .23069,    .30278,
     +     .38213,    .20767,   2.98293,    .27368,    .15363,
     +     .11713,    .23111,    .30270 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
     +     .29230,    .17936,   1.57052,    .15768,    .00000,
     +     .00000,    .09001,    .18532,
     +     .29936,    .18260,   1.71305,    .16177,    .00000,
     +     .00000,    .09539,    .18995,
     +     .30917,    .18700,   1.89604,    .16760,    .00361,
     +     .00000,    .10303,    .19647,
     +     .31593,    .18999,   2.01155,    .17167,    .01101,
     +     .00000,    .10838,    .20099,
     +     .32267,    .19291,   2.11959,    .17575,    .01716,
     +     .00000,    .11378,    .20550,
     +     .32817,    .19524,   2.20177,    .17910,    .02233,
     +     .00000,    .11821,    .20918,
     +     .33325,    .19737,   2.27373,    .18218,    .02731,
     +     .00000,    .12232,    .21256,
     +     .33842,    .19950,   2.34307,    .18532,    .03251,
     +     .00000,    .12653,    .21598 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
     +     .34268,    .20123,   2.39561,    .18791,    .03675,
     +     .00000,    .13001,    .21879,
     +     .34664,    .20281,   2.44099,    .19029,    .04073,
     +     .00000,    .13324,    .22136,
     +     .34970,    .20402,   2.47456,    .19212,    .04388,
     +     .00000,    .13573,    .22334,
     +     .35586,    .20640,   2.53033,    .19576,    .05021,
     +     .00090,    .14074,    .22725,
     +     .36083,    .20826,   2.56173,    .19861,    .05532,
     +     .00776,    .14473,    .23028,
     +     .36607,    .21017,   2.58744,    .20153,    .06077,
     +     .01551,    .14889,    .23337,
     +     .37116,    .21196,   2.60530,    .20426,    .06608,
     +     .02223,    .15286,    .23625,
     +     .37549,    .21343,   2.61419,    .20646,    .07060,
     +     .02798,    .15617,    .23856 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
     +     .37958,    .21477,   2.61705,    .20845,    .07490,
     +     .03346,    .15924,    .24061,
     +     .38277,    .21576,   2.61471,    .20991,    .07822,
     +     .03767,    .16157,    .24211,
     +     .38637,    .21684,   2.60665,    .21144,    .08197,
     +     .04244,    .16413,    .24367,
     +     .38936,    .21770,   2.59605,    .21263,    .08511,
     +     .04649,    .16621,    .24486,
     +     .39195,    .21841,   2.58378,    .21359,    .08784,
     +     .05003,    .16796,    .24581,
     +     .39498,    .21917,   2.56353,    .21455,    .09099,
     +     .05412,    .16990,    .24674,
     +     .39763,    .21978,   2.54168,    .21529,    .09376,
     +     .05776,    .17154,    .24742,
     +     .39996,    .22030,   2.51941,    .21585,    .09621,
     +     .06104,    .17293,    .24792 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
     +     .40207,    .22069,   2.49368,    .21620,    .09840,
     +     .06396,    .17407,    .24819,
     +     .40400,    .22101,   2.46735,    .21644,    .10042,
     +     .06671,    .17508,    .24834,
     +     .40570,    .22126,   2.44116,    .21656,    .10220,
     +     .06917,    .17591,    .24837,
     +     .40715,    .22142,   2.41477,    .21654,    .10371,
     +     .07128,    .17654,    .24826,
     +     .40856,    .22155,   2.38811,    .21646,    .10518,
     +     .07337,    .17711,    .24809,
     +     .40975,    .22159,   2.36011,    .21625,    .10644,
     +     .07519,    .17752,    .24776,
     +     .41086,    .22163,   2.33375,    .21604,    .10762,
     +     .07692,    .17789,    .24743,
     +     .41177,    .22159,   2.30736,    .21571,    .10858,
     +     .07836,    .17809,    .24698 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
     +     .41265,    .22154,   2.28097,    .21535,    .10952,
     +     .07980,    .17827,    .24651,
     +     .41342,    .22143,   2.25415,    .21492,    .11035,
     +     .08110,    .17836,    .24595,
     +     .41409,    .22131,   2.22843,    .21447,    .11109,
     +     .08227,    .17839,    .24537,
     +     .41469,    .22117,   2.20404,    .21400,    .11175,
     +     .08335,    .17839,    .24479,
     +     .41519,    .22099,   2.17862,    .21345,    .11231,
     +     .08431,    .17828,    .24411 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
     +     .37818,    .22765,   1.42724,    .13662,    .00000,
     +     .00000,    .08104,    .17502,
     +     .38494,    .23004,   1.50693,    .13860,    .00000,
     +     .00000,    .08439,    .17718,
     +     .39407,    .23315,   1.60429,    .14135,    .00261,
     +     .00000,    .08904,    .18006,
     +     .40024,    .23515,   1.66188,    .14320,    .00793,
     +     .00000,    .09223,    .18198,
     +     .40623,    .23699,   1.71355,    .14501,    .01228,
     +     .00000,    .09538,    .18380,
     +     .41099,    .23840,   1.75080,    .14643,    .01587,
     +     .00000,    .09790,    .18520,
     +     .41530,    .23962,   1.78185,    .14769,    .01931,
     +     .00000,    .10021,    .18643,
     +     .41962,    .24077,   1.81014,    .14893,    .02285,
     +     .00000,    .10252,    .18761 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
     +     .42306,    .24165,   1.82985,    .14991,    .02570,
     +     .00000,    .10440,    .18850,
     +     .42619,    .24240,   1.84542,    .15078,    .02835,
     +     .00000,    .10610,    .18926,
     +     .42859,    .24294,   1.85620,    .15142,    .03043,
     +     .00000,    .10740,    .18983,
     +     .43323,    .24389,   1.86897,    .15261,    .03455,
     +     .00064,    .10993,    .19081,
     +     .43682,    .24452,   1.86896,    .15345,    .03783,
     +     .00516,    .11187,    .19143,
     +     .44045,    .24503,   1.86343,    .15420,    .04126,
     +     .01025,    .11382,    .19192,
     +     .44380,    .24538,   1.85273,    .15478,    .04455,
     +     .01459,    .11559,    .19220,
     +     .44648,    .24554,   1.83904,    .15513,    .04729,
     +     .01825,    .11698,    .19225 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
     +     .44888,    .24556,   1.82201,    .15532,    .04986,
     +     .02169,    .11819,    .19215,
     +     .45061,    .24546,   1.80536,    .15537,    .05181,
     +     .02430,    .11905,    .19191,
     +     .45243,    .24522,   1.78254,    .15528,    .05397,
     +     .02722,    .11992,    .19148,
     +     .45382,    .24492,   1.76078,    .15511,    .05574,
     +     .02967,    .12056,    .19099,
     +     .45494,    .24457,   1.73971,    .15487,    .05726,
     +     .03178,    .12104,    .19045,
     +     .45605,    .24401,   1.71069,    .15442,    .05896,
     +     .03418,    .12148,    .18960,
     +     .45688,    .24339,   1.68231,    .15389,    .06043,
     +     .03629,    .12177,    .18871,
     +     .45752,    .24275,   1.65518,    .15333,    .06170,
     +     .03816,    .12195,    .18780 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
     +     .45789,    .24200,   1.62652,    .15265,    .06278,
     +     .03979,    .12198,    .18676,
     +     .45812,    .24122,   1.59828,    .15193,    .06377,
     +     .04131,    .12194,    .18568,
     +     .45821,    .24043,   1.57124,    .15120,    .06462,
     +     .04264,    .12183,    .18460,
     +     .45814,    .23963,   1.54513,    .15043,    .06530,
     +     .04377,    .12163,    .18350,
     +     .45800,    .23880,   1.51918,    .14965,    .06595,
     +     .04487,    .12141,    .18239,
     +     .45769,    .23791,   1.49297,    .14879,    .06648,
     +     .04581,    .12109,    .18121,
     +     .45736,    .23707,   1.46855,    .14798,    .06696,
     +     .04668,    .12078,    .18008,
     +     .45692,    .23620,   1.44490,    .14714,    .06732,
     +     .04740,    .12041,    .17895 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
     +     .45644,    .23532,   1.42148,    .14629,    .06767,
     +     .04810,    .12002,    .17780,
     +     .45585,    .23442,   1.39817,    .14541,    .06794,
     +     .04871,    .11958,    .17662,
     +     .45523,    .23354,   1.37611,    .14456,    .06818,
     +     .04926,    .11914,    .17548,
     +     .45461,    .23270,   1.35540,    .14374,    .06838,
     +     .04975,    .11870,    .17438,
     +     .45388,    .23179,   1.33425,    .14286,    .06851,
     +     .05018,    .11821,    .17323 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
     +     .45261,    .26452,   1.22292,    .11757,    .00000,
     +     .00000,    .07257,    .16306,
     +     .45820,    .26570,   1.27274,    .11833,    .00000,
     +     .00000,    .07465,    .16354,
     +     .46547,    .26703,   1.33113,    .11938,    .00200,
     +     .00000,    .07749,    .16407,
     +     .47021,    .26775,   1.36350,    .12004,    .00605,
     +     .00000,    .07941,    .16432,
     +     .47463,    .26825,   1.39117,    .12064,    .00934,
     +     .00000,    .08126,    .16446,
     +     .47800,    .26850,   1.40977,    .12106,    .01202,
     +     .00000,    .08272,    .16448,
     +     .48095,    .26862,   1.42417,    .12141,    .01457,
     +     .00000,    .08401,    .16442,
     +     .48378,    .26862,   1.43604,    .12171,    .01717,
     +     .00000,    .08529,    .16429 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
     +     .48593,    .26849,   1.44285,    .12189,    .01925,
     +     .00000,    .08629,    .16408,
     +     .48779,    .26828,   1.44695,    .12202,    .02117,
     +     .00000,    .08719,    .16382,
     +     .48915,    .26808,   1.44910,    .12210,    .02266,
     +     .00000,    .08786,    .16359,
     +     .49159,    .26745,   1.44617,    .12214,    .02560,
     +     .00048,    .08910,    .16296,
     +     .49327,    .26673,   1.43564,    .12204,    .02789,
     +     .00372,    .09000,    .16227,
     +     .49472,    .26579,   1.42014,    .12181,    .03027,
     +     .00736,    .09082,    .16137,
     +     .49579,    .26463,   1.40082,    .12144,    .03251,
     +     .01042,    .09150,    .16029,
     +     .49641,    .26344,   1.38075,    .12098,    .03435,
     +     .01297,    .09195,    .15921 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
     +     .49673,    .26213,   1.35854,    .12043,    .03604,
     +     .01534,    .09228,    .15801,
     +     .49673,    .26096,   1.33863,    .11990,    .03731,
     +     .01712,    .09245,    .15693,
     +     .49645,    .25944,   1.31293,    .11916,    .03868,
     +     .01909,    .09253,    .15553,
     +     .49599,    .25803,   1.28939,    .11845,    .03979,
     +     .02072,    .09252,    .15424,
     +     .49542,    .25669,   1.26730,    .11776,    .04072,
     +     .02211,    .09244,    .15302,
     +     .49440,    .25487,   1.23806,    .11678,    .04173,
     +     .02367,    .09222,    .15137,
     +     .49326,    .25310,   1.21021,    .11580,    .04259,
     +     .02502,    .09194,    .14978,
     +     .49205,    .25141,   1.18409,    .11485,    .04331,
     +     .02620,    .09161,    .14828 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
     +     .49060,    .24964,   1.15723,    .11383,    .04389,
     +     .02722,    .09118,    .14668,
     +     .48906,    .24788,   1.13115,    .11281,    .04441,
     +     .02814,    .09072,    .14510,
     +     .48750,    .24619,   1.10655,    .11182,    .04483,
     +     .02895,    .09025,    .14359,
     +     .48587,    .24454,   1.08320,    .11083,    .04516,
     +     .02961,    .08974,    .14212,
     +     .48420,    .24288,   1.06018,    .10985,    .04546,
     +     .03025,    .08921,    .14066,
     +     .48238,    .24120,   1.03731,    .10883,    .04567,
     +     .03078,    .08863,    .13916,
     +     .48065,    .23963,   1.01611,    .10788,    .04586,
     +     .03128,    .08809,    .13776,
     +     .47887,    .23807,    .99589,    .10693,    .04598,
     +     .03166,    .08752,    .13640 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
     +     .47707,    .23651,    .97597,    .10599,    .04608,
     +     .03204,    .08694,    .13504,
     +     .47519,    .23494,    .95636,    .10503,    .04614,
     +     .03235,    .08634,    .13368,
     +     .47335,    .23345,    .93793,    .10411,    .04617,
     +     .03263,    .08575,    .13237,
     +     .47159,    .23203,    .92074,    .10324,    .04618,
     +     .03288,    .08519,    .13114,
     +     .46971,    .23055,    .90335,    .10233,    .04616,
     +     .03307,    .08459,    .12986 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
     +     .51676,    .29217,   1.02954,    .10064,    .00000,
     +     .00000,    .06450,    .14959,
     +     .52054,    .29201,   1.06655,    .10078,    .00000,
     +     .00000,    .06579,    .14895,
     +     .52521,    .29135,   1.10842,    .10088,    .00161,
     +     .00000,    .06752,    .14796,
     +     .52797,    .29070,   1.13033,    .10092,    .00486,
     +     .00000,    .06865,    .14715,
     +     .53032,    .28975,   1.14795,    .10090,    .00746,
     +     .00000,    .06971,    .14625,
     +     .53190,    .28879,   1.15867,    .10081,    .00957,
     +     .00000,    .07053,    .14540,
     +     .53312,    .28777,   1.16603,    .10068,    .01156,
     +     .00000,    .07124,    .14455,
     +     .53412,    .28659,   1.17097,    .10050,    .01358,
     +     .00000,    .07190,    .14362 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
     +     .53469,    .28546,   1.17233,    .10030,    .01518,
     +     .00000,    .07239,    .14275,
     +     .53502,    .28429,   1.17158,    .10006,    .01664,
     +     .00000,    .07281,    .14188,
     +     .53518,    .28334,   1.17010,    .09986,    .01777,
     +     .00000,    .07312,    .14118,
     +     .53507,    .28116,   1.16080,    .09934,    .01998,
     +     .00038,    .07363,    .13960,
     +     .53454,    .27916,   1.14639,    .09880,    .02167,
     +     .00283,    .07392,    .13817,
     +     .53358,    .27678,   1.12739,    .09811,    .02340,
     +     .00556,    .07412,    .13650,
     +     .53217,    .27420,   1.10527,    .09730,    .02501,
     +     .00784,    .07420,    .13469,
     +     .53057,    .27177,   1.08339,    .09648,    .02631,
     +     .00972,    .07416,    .13298 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
     +     .52867,    .26924,   1.06000,    .09561,    .02748,
     +     .01144,    .07402,    .13122,
     +     .52686,    .26709,   1.03959,    .09483,    .02834,
     +     .01272,    .07381,    .12972,
     +     .52442,    .26441,   1.01390,    .09382,    .02925,
     +     .01412,    .07349,    .12786,
     +     .52208,    .26200,    .99080,    .09290,    .02998,
     +     .01527,    .07314,    .12619,
     +     .51981,    .25978,    .96944,    .09204,    .03057,
     +     .01624,    .07278,    .12465,
     +     .51667,    .25689,    .94166,    .09087,    .03119,
     +     .01730,    .07224,    .12265,
     +     .51357,    .25414,    .91559,    .08975,    .03170,
     +     .01822,    .07168,    .12076,
     +     .51058,    .25156,    .89142,    .08869,    .03211,
     +     .01901,    .07112,    .11899 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
     +     .50736,    .24891,    .86695,    .08757,    .03242,
     +     .01967,    .07049,    .11719,
     +     .50414,    .24633,    .84341,    .08648,    .03269,
     +     .02027,    .06985,    .11544,
     +     .50100,    .24389,    .82141,    .08543,    .03289,
     +     .02077,    .06923,    .11378,
     +     .49793,    .24156,    .80076,    .08442,    .03302,
     +     .02118,    .06860,    .11220,
     +     .49483,    .23923,    .78053,    .08342,    .03313,
     +     .02158,    .06796,    .11064,
     +     .49162,    .23691,    .76065,    .08239,    .03318,
     +     .02188,    .06730,    .10908,
     +     .48860,    .23474,    .74233,    .08143,    .03323,
     +     .02217,    .06667,    .10763,
     +     .48562,    .23265,    .72499,    .08051,    .03322,
     +     .02238,    .06604,    .10623 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
     +     .48263,    .23056,    .70799,    .07959,    .03320,
     +     .02259,    .06541,    .10484,
     +     .47960,    .22848,    .69140,    .07867,    .03316,
     +     .02275,    .06477,    .10346,
     +     .47668,    .22650,    .67590,    .07779,    .03310,
     +     .02289,    .06417,    .10216,
     +     .47391,    .22464,    .66150,    .07697,    .03303,
     +     .02300,    .06359,    .10093,
     +     .47103,    .22272,    .64706,    .07611,    .03293,
     +     .02309,    .06298,    .09969 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
     +     .58326,    .31599,    .84191,    .08254,    .00000,
     +     .00000,    .05507,    .13145,
     +     .58433,    .31406,    .87318,    .08230,    .00000,
     +     .00000,    .05576,    .13002,
     +     .58496,    .31095,    .90699,    .08191,    .00129,
     +     .00000,    .05669,    .12786,
     +     .58485,    .30854,    .92350,    .08160,    .00389,
     +     .00000,    .05725,    .12629,
     +     .58421,    .30583,    .93546,    .08120,    .00594,
     +     .00000,    .05776,    .12465,
     +     .58323,    .30341,    .94146,    .08081,    .00758,
     +     .00000,    .05809,    .12320,
     +     .58202,    .30102,    .94445,    .08042,    .00912,
     +     .00000,    .05835,    .12179,
     +     .58050,    .29843,    .94496,    .07997,    .01066,
     +     .00000,    .05858,    .12028 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
     +     .57889,    .29611,    .94272,    .07955,    .01185,
     +     .00000,    .05870,    .11897,
     +     .57716,    .29383,    .93871,    .07910,    .01294,
     +     .00000,    .05878,    .11770,
     +     .57572,    .29201,    .93477,    .07873,    .01378,
     +     .00000,    .05882,    .11670,
     +     .57224,    .28806,    .92121,    .07790,    .01538,
     +     .00030,    .05879,    .11452,
     +     .56889,    .28457,    .90432,    .07711,    .01659,
     +     .00210,    .05867,    .11263,
     +     .56482,    .28061,    .88319,    .07618,    .01780,
     +     .00411,    .05845,    .11050,
     +     .56027,    .27646,    .85951,    .07514,    .01889,
     +     .00576,    .05811,    .10827,
     +     .55588,    .27268,    .83681,    .07416,    .01975,
     +     .00709,    .05772,    .10622 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
     +     .55123,    .26887,    .81311,    .07315,    .02052,
     +     .00831,    .05727,    .10416,
     +     .54721,    .26569,    .79289,    .07228,    .02106,
     +     .00919,    .05685,    .10243,
     +     .54217,    .26179,    .76790,    .07118,    .02161,
     +     .01014,    .05628,    .10036,
     +     .53760,    .25835,    .74581,    .07018,    .02203,
     +     .01091,    .05573,    .09854,
     +     .53334,    .25521,    .72565,    .06927,    .02237,
     +     .01155,    .05521,    .09687,
     +     .52773,    .25121,    .69990,    .06807,    .02270,
     +     .01225,    .05449,    .09477,
     +     .52237,    .24748,    .67607,    .06694,    .02295,
     +     .01283,    .05378,    .09280,
     +     .51733,    .24403,    .65423,    .06588,    .02313,
     +     .01332,    .05312,    .09098 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
     +     .51211,    .24054,    .63244,    .06479,    .02325,
     +     .01372,    .05240,    .08917,
     +     .50701,    .23716,    .61170,    .06374,    .02333,
     +     .01407,    .05170,    .08742,
     +     .50215,    .23399,    .59253,    .06274,    .02338,
     +     .01437,    .05101,    .08578,
     +     .49748,    .23101,    .57473,    .06178,    .02338,
     +     .01459,    .05035,    .08425,
     +     .49283,    .22806,    .55741,    .06084,    .02336,
     +     .01480,    .04968,    .08274,
     +     .48814,    .22514,    .54057,    .05990,    .02331,
     +     .01496,    .04901,    .08125,
     +     .48375,    .22242,    .52514,    .05902,    .02326,
     +     .01510,    .04839,    .07987,
     +     .47949,    .21983,    .51074,    .05818,    .02318,
     +     .01520,    .04778,    .07856 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
     +     .47524,    .21726,    .49669,    .05734,    .02309,
     +     .01529,    .04717,    .07726,
     +     .47101,    .21472,    .48307,    .05652,    .02298,
     +     .01535,    .04656,    .07600,
     +     .46698,    .21231,    .47042,    .05574,    .02287,
     +     .01539,    .04597,    .07481,
     +     .46318,    .21006,    .45874,    .05500,    .02276,
     +     .01543,    .04542,    .07369,
     +     .45927,    .20777,    .44710,    .05425,    .02262,
     +     .01544,    .04486,    .07256 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
     +     .63532,    .32980,    .72109,    .06763,    .00000,
     +     .00000,    .04645,    .11287,
     +     .63330,    .32623,    .74915,    .06728,    .00000,
     +     .00000,    .04685,    .11104,
     +     .62954,    .32074,    .77757,    .06669,    .00108,
     +     .00000,    .04734,    .10838,
     +     .62632,    .31670,    .78997,    .06624,    .00323,
     +     .00000,    .04759,    .10647,
     +     .62249,    .31237,    .79734,    .06569,    .00490,
     +     .00000,    .04775,    .10448,
     +     .61883,    .30860,    .79936,    .06520,    .00622,
     +     .00000,    .04784,    .10275,
     +     .61512,    .30497,    .79862,    .06469,    .00744,
     +     .00000,    .04786,    .10112,
     +     .61100,    .30112,    .79531,    .06413,    .00864,
     +     .00000,    .04784,    .09940 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
     +     .60722,    .29773,    .78992,    .06360,    .00956,
     +     .00000,    .04776,    .09793,
     +     .60342,    .29447,    .78307,    .06308,    .01039,
     +     .00000,    .04765,    .09650,
     +     .60035,    .29191,    .77700,    .06266,    .01102,
     +     .00000,    .04754,    .09537,
     +     .59354,    .28641,    .75968,    .06171,    .01221,
     +     .00024,    .04724,    .09300,
     +     .58741,    .28169,    .74053,    .06085,    .01308,
     +     .00161,    .04689,    .09095,
     +     .58034,    .27645,    .71750,    .05985,    .01394,
     +     .00313,    .04645,    .08867,
     +     .57281,    .27100,    .69244,    .05876,    .01469,
     +     .00435,    .04591,    .08635,
     +     .56583,    .26610,    .66906,    .05774,    .01527,
     +     .00533,    .04537,    .08426 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
     +     .55868,    .26123,    .64521,    .05670,    .01576,
     +     .00620,    .04478,    .08218,
     +     .55264,    .25722,    .62522,    .05583,    .01609,
     +     .00683,    .04425,    .08046,
     +     .54524,    .25237,    .60100,    .05474,    .01641,
     +     .00749,    .04357,    .07842,
     +     .53868,    .24814,    .57988,    .05377,    .01665,
     +     .00802,    .04296,    .07665,
     +     .53265,    .24431,    .56086,    .05288,    .01682,
     +     .00846,    .04239,    .07505,
     +     .52487,    .23950,    .53696,    .05175,    .01697,
     +     .00891,    .04163,    .07301,
     +     .51756,    .23505,    .51513,    .05069,    .01707,
     +     .00928,    .04090,    .07115,
     +     .51077,    .23095,    .49535,    .04970,    .01712,
     +     .00960,    .04021,    .06944 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
     +     .50386,    .22687,    .47591,    .04871,    .01713,
     +     .00984,    .03950,    .06775,
     +     .49717,    .22294,    .45758,    .04775,    .01711,
     +     .01005,    .03880,    .06615,
     +     .49088,    .21926,    .44080,    .04684,    .01707,
     +     .01021,    .03814,    .06466,
     +     .48490,    .21583,    .42539,    .04598,    .01700,
     +     .01033,    .03751,    .06327,
     +     .47897,    .21246,    .41051,    .04514,    .01693,
     +     .01044,    .03689,    .06190,
     +     .47308,    .20916,    .39621,    .04430,    .01683,
     +     .01052,    .03626,    .06058,
     +     .46758,    .20608,    .38317,    .04353,    .01673,
     +     .01058,    .03567,    .05935,
     +     .46233,    .20317,    .37112,    .04279,    .01661,
     +     .01061,    .03511,    .05821 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
     +     .45712,    .20029,    .35941,    .04205,    .01650,
     +     .01064,    .03456,    .05707,
     +     .45195,    .19747,    .34815,    .04134,    .01637,
     +     .01065,    .03401,    .05596,
     +     .44704,    .19483,    .33775,    .04067,    .01624,
     +     .01065,    .03350,    .05491,
     +     .44243,    .19236,    .32820,    .04004,    .01611,
     +     .01064,    .03301,    .05394,
     +     .43774,    .18985,    .31878,    .03941,    .01598,
     +     .01062,    .03252,    .05297 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
     +     .67366,    .33539,    .65451,    .05548,    .00000,
     +     .00000,    .03872,    .09481,
     +     .66849,    .33025,    .67784,    .05510,    .00000,
     +     .00000,    .03895,    .09288,
     +     .66018,    .32270,    .69870,    .05450,    .00092,
     +     .00000,    .03917,    .09005,
     +     .65380,    .31724,    .70559,    .05400,    .00273,
     +     .00000,    .03924,    .08805,
     +     .64676,    .31149,    .70716,    .05344,    .00411,
     +     .00000,    .03922,    .08597,
     +     .64045,    .30657,    .70437,    .05289,    .00518,
     +     .00000,    .03915,    .08420,
     +     .63428,    .30189,    .69926,    .05236,    .00616,
     +     .00000,    .03903,    .08254,
     +     .62765,    .29698,    .69159,    .05178,    .00711,
     +     .00000,    .03885,    .08080 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
     +     .62173,    .29273,    .68275,    .05123,    .00783,
     +     .00000,    .03866,    .07930,
     +     .61596,    .28865,    .67288,    .05069,    .00847,
     +     .00000,    .03845,    .07787,
     +     .61140,    .28546,    .66457,    .05025,    .00894,
     +     .00000,    .03827,    .07675,
     +     .60147,    .27873,    .64337,    .04927,    .00982,
     +     .00019,    .03782,    .07441,
     +     .59276,    .27302,    .62188,    .04841,    .01046,
     +     .00125,    .03737,    .07241,
     +     .58299,    .26672,    .59694,    .04740,    .01106,
     +     .00241,    .03682,    .07023,
     +     .57276,    .26028,    .57063,    .04634,    .01158,
     +     .00333,    .03619,    .06800,
     +     .56345,    .25457,    .54669,    .04538,    .01195,
     +     .00406,    .03558,    .06601 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
     +     .55408,    .24892,    .52275,    .04438,    .01226,
     +     .00469,    .03494,    .06407,
     +     .54630,    .24428,    .50311,    .04354,    .01245,
     +     .00514,    .03440,    .06248,
     +     .53686,    .23876,    .47972,    .04253,    .01263,
     +     .00561,    .03371,    .06060,
     +     .52858,    .23398,    .45965,    .04164,    .01274,
     +     .00598,    .03309,    .05898,
     +     .52106,    .22967,    .44179,    .04081,    .01282,
     +     .00627,    .03252,    .05752,
     +     .51149,    .22429,    .41969,    .03977,    .01286,
     +     .00658,    .03178,    .05570,
     +     .50258,    .21934,    .39979,    .03881,    .01286,
     +     .00682,    .03109,    .05404,
     +     .49436,    .21482,    .38197,    .03793,    .01284,
     +     .00701,    .03045,    .05251 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
     +     .48613,    .21034,    .36466,    .03703,    .01279,
     +     .00716,    .02979,    .05105,
     +     .47819,    .20606,    .34853,    .03617,    .01272,
     +     .00728,    .02915,    .04965,
     +     .47076,    .20210,    .33392,    .03537,    .01263,
     +     .00737,    .02855,    .04835,
     +     .46377,    .19840,    .32063,    .03463,    .01253,
     +     .00743,    .02798,    .04714,
     +     .45689,    .19477,    .30787,    .03390,    .01243,
     +     .00748,    .02743,    .04597,
     +     .45010,    .19125,    .29574,    .03317,    .01231,
     +     .00751,    .02687,    .04484,
     +     .44377,    .18799,    .28474,    .03250,    .01220,
     +     .00753,    .02635,    .04380,
     +     .43776,    .18491,    .27465,    .03187,    .01208,
     +     .00753,    .02587,    .04283 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
     +     .43181,    .18189,    .26490,    .03125,    .01196,
     +     .00753,    .02539,    .04187,
     +     .42597,    .17893,    .25562,    .03065,    .01182,
     +     .00751,    .02491,    .04094,
     +     .42046,    .17615,    .24710,    .03007,    .01170,
     +     .00749,    .02447,    .04007,
     +     .41531,    .17356,    .23931,    .02954,    .01158,
     +     .00747,    .02405,    .03926,
     +     .41008,    .17095,    .23167,    .02901,    .01145,
     +     .00743,    .02364,    .03845 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
     +     .69923,    .33414,    .62406,    .04559,    .00000,
     +     .00000,    .03187,    .07795,
     +     .69086,    .32773,    .64000,    .04524,    .00000,
     +     .00000,    .03201,    .07608,
     +     .67819,    .31832,    .65024,    .04461,    .00078,
     +     .00000,    .03210,    .07339,
     +     .66876,    .31166,    .64982,    .04412,    .00231,
     +     .00000,    .03208,    .07145,
     +     .65868,    .30473,    .64430,    .04355,    .00345,
     +     .00000,    .03195,    .06947,
     +     .64989,    .29883,    .63592,    .04300,    .00432,
     +     .00000,    .03179,    .06781,
     +     .64143,    .29329,    .62591,    .04246,    .00511,
     +     .00000,    .03160,    .06623,
     +     .63246,    .28752,    .61356,    .04186,    .00586,
     +     .00000,    .03136,    .06459 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
     +     .62461,    .28257,    .60113,    .04132,    .00641,
     +     .00000,    .03111,    .06320,
     +     .61705,    .27786,    .58822,    .04078,    .00690,
     +     .00000,    .03085,    .06186,
     +     .61111,    .27419,    .57774,    .04035,    .00726,
     +     .00000,    .03064,    .06081,
     +     .59837,    .26650,    .55289,    .03941,    .00791,
     +     .00016,    .03011,    .05867,
     +     .58741,    .26003,    .52929,    .03857,    .00837,
     +     .00097,    .02962,    .05684,
     +     .57524,    .25298,    .50273,    .03762,    .00878,
     +     .00187,    .02905,    .05483,
     +     .56269,    .24582,    .47551,    .03662,    .00912,
     +     .00256,    .02841,    .05283,
     +     .55142,    .23950,    .45141,    .03569,    .00936,
     +     .00310,    .02781,    .05107 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
     +     .54018,    .23329,    .42781,    .03477,    .00954,
     +     .00356,    .02720,    .04933,
     +     .53095,    .22824,    .40878,    .03400,    .00965,
     +     .00389,    .02666,    .04794,
     +     .51985,    .22229,    .38645,    .03308,    .00973,
     +     .00422,    .02602,    .04627,
     +     .51019,    .21715,    .36758,    .03227,    .00976,
     +     .00447,    .02544,    .04485,
     +     .50147,    .21254,    .35101,    .03154,    .00977,
     +     .00467,    .02491,    .04359,
     +     .49047,    .20682,    .33083,    .03061,    .00975,
     +     .00487,    .02423,    .04203,
     +     .48033,    .20159,    .31287,    .02975,    .00970,
     +     .00502,    .02360,    .04062,
     +     .47104,    .19683,    .29696,    .02896,    .00964,
     +     .00514,    .02303,    .03934 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
     +     .46179,    .19214,    .28175,    .02818,    .00955,
     +     .00523,    .02244,    .03809,
     +     .45291,    .18769,    .26767,    .02744,    .00946,
     +     .00529,    .02188,    .03691,
     +     .44462,    .18360,    .25503,    .02675,    .00936,
     +     .00534,    .02135,    .03583,
     +     .43691,    .17978,    .24365,    .02611,    .00926,
     +     .00536,    .02086,    .03483,
     +     .42935,    .17604,    .23282,    .02547,    .00915,
     +     .00538,    .02039,    .03386,
     +     .42192,    .17243,    .22261,    .02486,    .00903,
     +     .00538,    .01992,    .03293,
     +     .41503,    .16909,    .21340,    .02430,    .00892,
     +     .00538,    .01949,    .03206,
     +     .40851,    .16598,    .20504,    .02378,    .00880,
     +     .00536,    .01908,    .03125 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
     +     .40206,    .16292,    .19699,    .02328,    .00868,
     +     .00535,    .01867,    .03046,
     +     .39578,    .15993,    .18938,    .02277,    .00856,
     +     .00532,    .01827,    .02970,
     +     .38988,    .15712,    .18243,    .02229,    .00845,
     +     .00529,    .01790,    .02900,
     +     .38437,    .15451,    .17611,    .02185,    .00834,
     +     .00526,    .01755,    .02836,
     +     .37882,    .15190,    .16995,    .02139,    .00823,
     +     .00523,    .01721,    .02772 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
     +     .71298,    .32732,    .61260,    .03749,    .00000,
     +     .00000,    .02594,    .06278,
     +     .70167,    .31975,    .61906,    .03713,    .00000,
     +     .00000,    .02603,    .06109,
     +     .68483,    .30890,    .61654,    .03651,    .00066,
     +     .00000,    .02603,    .05866,
     +     .67258,    .30127,    .60784,    .03604,    .00194,
     +     .00000,    .02594,    .05691,
     +     .65971,    .29339,    .59466,    .03546,    .00288,
     +     .00000,    .02577,    .05514,
     +     .64865,    .28676,    .58057,    .03493,    .00358,
     +     .00000,    .02557,    .05363,
     +     .63814,    .28054,    .56571,    .03439,    .00420,
     +     .00000,    .02535,    .05222,
     +     .62712,    .27410,    .54886,    .03379,    .00478,
     +     .00000,    .02508,    .05077 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
     +     .61756,    .26864,    .53319,    .03326,    .00521,
     +     .00000,    .02482,    .04952,
     +     .60841,    .26347,    .51758,    .03276,    .00558,
     +     .00000,    .02454,    .04833,
     +     .60126,    .25946,    .50521,    .03236,    .00585,
     +     .00000,    .02431,    .04740,
     +     .58611,    .25111,    .47741,    .03146,    .00632,
     +     .00013,    .02378,    .04551,
     +     .57324,    .24412,    .45233,    .03067,    .00665,
     +     .00075,    .02330,    .04391,
     +     .55908,    .23653,    .42492,    .02977,    .00693,
     +     .00144,    .02274,    .04219,
     +     .54464,    .22890,    .39753,    .02884,    .00714,
     +     .00196,    .02212,    .04047,
     +     .53177,    .22222,    .37377,    .02801,    .00729,
     +     .00236,    .02157,    .03893 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
     +     .51901,    .21571,    .35093,    .02719,    .00738,
     +     .00270,    .02100,    .03743,
     +     .50863,    .21044,    .33286,    .02650,    .00742,
     +     .00293,    .02051,    .03626,
     +     .49626,    .20421,    .31199,    .02567,    .00744,
     +     .00316,    .01992,    .03487,
     +     .48555,    .19888,    .29459,    .02495,    .00744,
     +     .00333,    .01941,    .03368,
     +     .47593,    .19415,    .27949,    .02430,    .00741,
     +     .00347,    .01894,    .03262,
     +     .46391,    .18827,    .26133,    .02348,    .00735,
     +     .00360,    .01835,    .03133,
     +     .45286,    .18294,    .24538,    .02275,    .00728,
     +     .00369,    .01780,    .03016,
     +     .44274,    .17812,    .23140,    .02209,    .00721,
     +     .00376,    .01730,    .02909 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
     +     .43280,    .17338,    .21821,    .02141,    .00711,
     +     .00381,    .01680,    .02807,
     +     .42330,    .16889,    .20612,    .02077,    .00701,
     +     .00384,    .01632,    .02712,
     +     .41449,    .16476,    .19534,    .02019,    .00691,
     +     .00386,    .01588,    .02625,
     +     .40630,    .16096,    .18572,    .01965,    .00681,
     +     .00387,    .01547,    .02544,
     +     .39827,    .15725,    .17660,    .01913,    .00670,
     +     .00387,    .01508,    .02465,
     +     .39046,    .15366,    .16811,    .01862,    .00660,
     +     .00385,    .01469,    .02390,
     +     .38324,    .15035,    .16049,    .01815,    .00649,
     +     .00384,    .01433,    .02322,
     +     .37645,    .14727,    .15362,    .01770,    .00639,
     +     .00382,    .01399,    .02258 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
     +     .36977,    .14426,    .14704,    .01727,    .00629,
     +     .00380,    .01366,    .02196,
     +     .36324,    .14132,    .14086,    .01685,    .00618,
     +     .00377,    .01333,    .02136,
     +     .35712,    .13859,    .13525,    .01647,    .00608,
     +     .00374,    .01303,    .02081,
     +     .35142,    .13605,    .13017,    .01611,    .00599,
     +     .00371,    .01276,    .02029,
     +     .34570,    .13352,    .12525,    .01576,    .00590,
     +     .00367,    .01247,    .01979 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
     +     .71599,    .31599,    .60668,    .03076,    .00000,
     +     .00000,    .02088,    .04959,
     +     .70188,    .30760,    .60266,    .03045,    .00000,
     +     .00000,    .02092,    .04810,
     +     .68127,    .29563,    .58683,    .02986,    .00055,
     +     .00000,    .02085,    .04599,
     +     .66654,    .28724,    .56998,    .02936,    .00160,
     +     .00000,    .02072,    .04449,
     +     .65121,    .27867,    .54952,    .02883,    .00236,
     +     .00000,    .02052,    .04293,
     +     .63817,    .27150,    .53023,    .02830,    .00292,
     +     .00000,    .02031,    .04164,
     +     .62588,    .26483,    .51115,    .02779,    .00341,
     +     .00000,    .02007,    .04043,
     +     .61306,    .25798,    .49059,    .02724,    .00386,
     +     .00000,    .01978,    .03917 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
     +     .60205,    .25216,    .47234,    .02674,    .00418,
     +     .00000,    .01953,    .03810,
     +     .59159,    .24668,    .45473,    .02626,    .00446,
     +     .00000,    .01925,    .03709,
     +     .58346,    .24245,    .44104,    .02588,    .00466,
     +     .00000,    .01903,    .03630,
     +     .56637,    .23365,    .41141,    .02504,    .00500,
     +     .00010,    .01855,    .03470,
     +     .55192,    .22638,    .38570,    .02433,    .00522,
     +     .00058,    .01809,    .03334,
     +     .53620,    .21851,    .35824,    .02352,    .00541,
     +     .00110,    .01757,    .03190,
     +     .52025,    .21066,    .33145,    .02269,    .00554,
     +     .00149,    .01701,    .03045,
     +     .50615,    .20383,    .30868,    .02195,    .00561,
     +     .00178,    .01652,    .02918 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
     +     .49233,    .19717,    .28716,    .02120,    .00566,
     +     .00203,    .01602,    .02796,
     +     .48112,    .19179,    .27036,    .02059,    .00567,
     +     .00219,    .01559,    .02701,
     +     .46781,    .18552,    .25128,    .01987,    .00565,
     +     .00235,    .01508,    .02586,
     +     .45636,    .18017,    .23556,    .01925,    .00562,
     +     .00247,    .01463,    .02488,
     +     .44615,    .17542,    .22206,    .01868,    .00558,
     +     .00256,    .01424,    .02403,
     +     .43343,    .16956,    .20605,    .01799,    .00551,
     +     .00264,    .01373,    .02299,
     +     .42182,    .16425,    .19214,    .01736,    .00543,
     +     .00270,    .01326,    .02207,
     +     .41127,    .15946,    .18007,    .01678,    .00535,
     +     .00274,    .01284,    .02124 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
     +     .40090,    .15480,    .16880,    .01622,    .00526,
     +     .00276,    .01243,    .02040,
     +     .39105,    .15040,    .15855,    .01570,    .00516,
     +     .00278,    .01205,    .01963,
     +     .38194,    .14638,    .14950,    .01521,    .00507,
     +     .00278,    .01168,    .01894,
     +     .37352,    .14267,    .14150,    .01476,    .00498,
     +     .00278,    .01135,    .01831,
     +     .36530,    .13906,    .13397,    .01432,    .00489,
     +     .00277,    .01102,    .01770,
     +     .35732,    .13560,    .12700,    .01391,    .00479,
     +     .00275,    .01070,    .01711,
     +     .34995,    .13241,    .12077,    .01353,    .00470,
     +     .00273,    .01042,    .01657,
     +     .34307,    .12943,    .11519,    .01317,    .00462,
     +     .00271,    .01015,    .01608 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
     +     .33631,    .12652,    .10987,    .01282,    .00453,
     +     .00269,    .00988,    .01561,
     +     .32973,    .12371,    .10491,    .01248,    .00444,
     +     .00266,    .00963,    .01515,
     +     .32357,    .12110,    .10043,    .01217,    .00436,
     +     .00264,    .00939,    .01472,
     +     .31786,    .11868,    .09638,    .01188,    .00429,
     +     .00261,    .00917,    .01433,
     +     .31215,    .11626,    .09249,    .01158,    .00421,
     +     .00258,    .00895,    .01395 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
     +     .70897,    .30146,    .59731,    .02547,    .00000,
     +     .00000,    .01639,    .03822,
     +     .69250,    .29240,    .58303,    .02511,    .00000,
     +     .00000,    .01644,    .03700,
     +     .66870,    .27959,    .55474,    .02447,    .00045,
     +     .00000,    .01635,    .03526,
     +     .65185,    .27068,    .53066,    .02398,    .00131,
     +     .00000,    .01621,    .03404,
     +     .63449,    .26164,    .50408,    .02342,    .00192,
     +     .00000,    .01602,    .03276,
     +     .61979,    .25414,    .48066,    .02294,    .00235,
     +     .00000,    .01581,    .03166,
     +     .60603,    .24718,    .45840,    .02245,    .00273,
     +     .00000,    .01559,    .03066,
     +     .59178,    .24005,    .43519,    .02192,    .00308,
     +     .00000,    .01534,    .02963 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
     +     .57962,    .23406,    .41527,    .02147,    .00332,
     +     .00000,    .01510,    .02873,
     +     .56815,    .22840,    .39649,    .02100,    .00352,
     +     .00000,    .01485,    .02791,
     +     .55927,    .22402,    .38211,    .02063,    .00366,
     +     .00000,    .01466,    .02729,
     +     .54064,    .21507,    .35187,    .01988,    .00390,
     +     .00008,    .01420,    .02596,
     +     .52506,    .20766,    .32646,    .01923,    .00405,
     +     .00044,    .01382,    .02486,
     +     .50817,    .19972,    .29989,    .01851,    .00417,
     +     .00084,    .01337,    .02368,
     +     .49118,    .19182,    .27445,    .01776,    .00424,
     +     .00113,    .01289,    .02252,
     +     .47627,    .18495,    .25319,    .01710,    .00428,
     +     .00134,    .01246,    .02151 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
     +     .46171,    .17832,    .23342,    .01646,    .00429,
     +     .00151,    .01202,    .02053,
     +     .44994,    .17304,    .21823,    .01595,    .00427,
     +     .00163,    .01167,    .01974,
     +     .43609,    .16683,    .20118,    .01531,    .00424,
     +     .00174,    .01125,    .01885,
     +     .42423,    .16155,    .18729,    .01478,    .00420,
     +     .00182,    .01089,    .01808,
     +     .41364,    .15688,    .17548,    .01432,    .00415,
     +     .00188,    .01057,    .01739,
     +     .40058,    .15117,    .16162,    .01372,    .00408,
     +     .00193,    .01015,    .01659,
     +     .38868,    .14603,    .14973,    .01320,    .00400,
     +     .00196,    .00977,    .01586,
     +     .37788,    .14141,    .13951,    .01274,    .00393,
     +     .00199,    .00943,    .01519 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
     +     .36737,    .13691,    .13003,    .01228,    .00385,
     +     .00199,    .00909,    .01457,
     +     .35741,    .13268,    .12148,    .01184,    .00376,
     +     .00200,    .00878,    .01398,
     +     .34825,    .12881,    .11399,    .01142,    .00368,
     +     .00199,    .00850,    .01345,
     +     .33980,    .12526,    .10742,    .01105,    .00361,
     +     .00198,    .00823,    .01297,
     +     .33157,    .12182,    .10127,    .01069,    .00353,
     +     .00197,    .00797,    .01251,
     +     .32363,    .11853,    .09565,    .01036,    .00345,
     +     .00195,    .00772,    .01207,
     +     .31631,    .11551,    .09064,    .01005,    .00338,
     +     .00194,    .00749,    .01167,
     +     .30949,    .11271,    .08618,    .00976,    .00331,
     +     .00192,    .00728,    .01129 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
     +     .30280,    .10997,    .08194,    .00948,    .00324,
     +     .00189,    .00708,    .01092,
     +     .29632,    .10732,    .07800,    .00921,    .00317,
     +     .00187,    .00687,    .01058,
     +     .29028,    .10486,    .07445,    .00896,    .00310,
     +     .00185,    .00668,    .01027,
     +     .28468,    .10258,    .07126,    .00872,    .00304,
     +     .00183,    .00651,    .00998,
     +     .27911,    .10033,    .06822,    .00848,    .00298,
     +     .00180,    .00635,    .00969 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
     +     .69385,    .28382,    .57888,    .02061,    .00000,
     +     .00000,    .01290,    .02909,
     +     .67528,    .27439,    .55557,    .02028,    .00000,
     +     .00000,    .01289,    .02808,
     +     .64874,    .26110,    .51696,    .01969,    .00036,
     +     .00000,    .01278,    .02666,
     +     .63009,    .25192,    .48725,    .01924,    .00104,
     +     .00000,    .01265,    .02564,
     +     .61104,    .24265,    .45623,    .01872,    .00151,
     +     .00000,    .01245,    .02460,
     +     .59504,    .23499,    .43005,    .01826,    .00185,
     +     .00000,    .01226,    .02373,
     +     .58017,    .22790,    .40584,    .01781,    .00213,
     +     .00000,    .01205,    .02292,
     +     .56485,    .22066,    .38122,    .01732,    .00239,
     +     .00000,    .01181,    .02210 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
     +     .55181,    .21461,    .36060,    .01692,    .00257,
     +     .00000,    .01160,    .02137,
     +     .53951,    .20896,    .34154,    .01653,    .00271,
     +     .00000,    .01138,    .02069,
     +     .53001,    .20462,    .32712,    .01623,    .00282,
     +     .00000,    .01120,    .02017,
     +     .51033,    .19567,    .29750,    .01555,    .00298,
     +     .00006,    .01079,    .01913,
     +     .49397,    .18830,    .27321,    .01496,    .00308,
     +     .00033,    .01047,    .01826,
     +     .47636,    .18043,    .24829,    .01431,    .00315,
     +     .00062,    .01008,    .01735,
     +     .45868,    .17268,    .22486,    .01369,    .00319,
     +     .00083,    .00968,    .01641,
     +     .44324,    .16600,    .20558,    .01315,    .00320,
     +     .00099,    .00931,    .01560 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
     +     .42828,    .15952,    .18789,    .01260,    .00319,
     +     .00111,    .00895,    .01485,
     +     .41628,    .15435,    .17444,    .01215,    .00317,
     +     .00119,    .00866,    .01424,
     +     .40217,    .14836,    .15952,    .01163,    .00313,
     +     .00127,    .00832,    .01355,
     +     .39012,    .14330,    .14753,    .01119,    .00308,
     +     .00132,    .00802,    .01296,
     +     .37943,    .13882,    .13743,    .01081,    .00304,
     +     .00136,    .00774,    .01245,
     +     .36629,    .13336,    .12571,    .01034,    .00297,
     +     .00139,    .00742,    .01181,
     +     .35441,    .12845,    .11573,    .00989,    .00291,
     +     .00141,    .00712,    .01125,
     +     .34370,    .12404,    .10721,    .00948,    .00284,
     +     .00142,    .00685,    .01076 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
     +     .33321,    .11979,    .09941,    .00912,    .00277,
     +     .00142,    .00658,    .01029,
     +     .32334,    .11581,    .09243,    .00876,    .00270,
     +     .00142,    .00633,    .00985,
     +     .31433,    .11217,    .08636,    .00843,    .00264,
     +     .00141,    .00611,    .00946,
     +     .30604,    .10884,    .08106,    .00813,    .00258,
     +     .00140,    .00590,    .00910,
     +     .29799,    .10562,    .07613,    .00783,    .00251,
     +     .00139,    .00569,    .00875,
     +     .29021,    .10256,    .07164,    .00757,    .00245,
     +     .00137,    .00550,    .00842,
     +     .28307,    .09975,    .06766,    .00734,    .00239,
     +     .00136,    .00533,    .00812,
     +     .27643,    .09714,    .06414,    .00712,    .00234,
     +     .00134,    .00517,    .00784 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
     +     .26993,    .09461,    .06081,    .00691,    .00228,
     +     .00132,    .00501,    .00756,
     +     .26367,    .09216,    .05773,    .00670,    .00223,
     +     .00130,    .00486,    .00731,
     +     .25785,    .08990,    .05497,    .00650,    .00218,
     +     .00128,    .00472,    .00707,
     +     .25246,    .08782,    .05250,    .00632,    .00213,
     +     .00127,    .00459,    .00686,
     +     .24708,    .08575,    .05014,    .00614,    .00208,
     +     .00125,    .00446,    .00666 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
     +     .67114,    .26443,    .54986,    .01667,    .00000,
     +     .00000,    .00995,    .02162,
     +     .65099,    .25474,    .51946,    .01631,    .00000,
     +     .00000,    .00993,    .02086,
     +     .62225,    .24130,    .47329,    .01577,    .00028,
     +     .00000,    .00981,    .01972,
     +     .60227,    .23204,    .43984,    .01532,    .00081,
     +     .00000,    .00969,    .01893,
     +     .58197,    .22271,    .40623,    .01485,    .00117,
     +     .00000,    .00950,    .01811,
     +     .56505,    .21504,    .37872,    .01442,    .00143,
     +     .00000,    .00932,    .01743,
     +     .54935,    .20800,    .35385,    .01402,    .00164,
     +     .00000,    .00914,    .01679,
     +     .53323,    .20085,    .32905,    .01360,    .00183,
     +     .00000,    .00893,    .01613 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
     +     .51961,    .19486,    .30866,    .01323,    .00196,
     +     .00000,    .00873,    .01558,
     +     .50682,    .18929,    .29007,    .01288,    .00206,
     +     .00000,    .00855,    .01505,
     +     .49696,    .18503,    .27616,    .01261,    .00213,
     +     .00000,    .00841,    .01464,
     +     .47666,    .17626,    .24815,    .01203,    .00224,
     +     .00005,    .00808,    .01381,
     +     .45987,    .16909,    .22570,    .01153,    .00230,
     +     .00024,    .00778,    .01317,
     +     .44184,    .16147,    .20300,    .01100,    .00234,
     +     .00046,    .00747,    .01245,
     +     .42391,    .15397,    .18198,    .01047,    .00236,
     +     .00061,    .00714,    .01175,
     +     .40833,    .14752,    .16495,    .01001,    .00236,
     +     .00072,    .00684,    .01113 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
     +     .39327,    .14134,    .14954,    .00956,    .00234,
     +     .00081,    .00655,    .01054,
     +     .38123,    .13643,    .13792,    .00919,    .00231,
     +     .00086,    .00632,    .01009,
     +     .36718,    .13072,    .12521,    .00873,    .00227,
     +     .00091,    .00604,    .00958,
     +     .35523,    .12591,    .11508,    .00837,    .00223,
     +     .00094,    .00581,    .00914,
     +     .34465,    .12168,    .10660,    .00807,    .00219,
     +     .00097,    .00560,    .00874,
     +     .33168,    .11655,    .09687,    .00768,    .00214,
     +     .00099,    .00534,    .00825,
     +     .32000,    .11196,    .08867,    .00734,    .00208,
     +     .00100,    .00511,    .00784,
     +     .30949,    .10786,    .08172,    .00703,    .00203,
     +     .00100,    .00490,    .00748 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
     +     .29930,    .10389,    .07540,    .00673,    .00197,
     +     .00100,    .00469,    .00714,
     +     .28972,    .10018,    .06978,    .00644,    .00192,
     +     .00100,    .00450,    .00681,
     +     .28098,    .09680,    .06493,    .00618,    .00187,
     +     .00099,    .00433,    .00651,
     +     .27297,    .09373,    .06073,    .00595,    .00182,
     +     .00098,    .00417,    .00626,
     +     .26520,    .09077,    .05683,    .00573,    .00177,
     +     .00097,    .00401,    .00602,
     +     .25773,    .08795,    .05330,    .00553,    .00172,
     +     .00095,    .00387,    .00577,
     +     .25089,    .08538,    .05019,    .00535,    .00168,
     +     .00094,    .00374,    .00554,
     +     .24457,    .08300,    .04744,    .00517,    .00163,
     +     .00093,    .00362,    .00535 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
     +     .23841,    .08068,    .04486,    .00499,    .00159,
     +     .00091,    .00350,    .00516,
     +     .23245,    .07845,    .04249,    .00483,    .00155,
     +     .00090,    .00339,    .00497,
     +     .22691,    .07640,    .04038,    .00468,    .00151,
     +     .00088,    .00328,    .00480,
     +     .22180,    .07452,    .03849,    .00455,    .00148,
     +     .00087,    .00319,    .00464,
     +     .21674,    .07265,    .03669,    .00441,    .00144,
     +     .00086,    .00309,    .00449 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
     +     .64221,    .24370,    .51047,    .01327,    .00000,
     +     .00000,    .00760,    .01581,
     +     .62080,    .23402,    .47525,    .01293,    .00000,
     +     .00000,    .00756,    .01523,
     +     .59058,    .22060,    .42456,    .01239,    .00022,
     +     .00000,    .00745,    .01436,
     +     .56965,    .21145,    .38940,    .01200,    .00062,
     +     .00000,    .00731,    .01375,
     +     .54850,    .20227,    .35505,    .01157,    .00089,
     +     .00000,    .00716,    .01312,
     +     .53094,    .19477,    .32755,    .01123,    .00108,
     +     .00000,    .00701,    .01257,
     +     .51472,    .18789,    .30312,    .01088,    .00123,
     +     .00000,    .00684,    .01208,
     +     .49816,    .18092,    .27917,    .01050,    .00137,
     +     .00000,    .00666,    .01159 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
     +     .48427,    .17510,    .25978,    .01018,    .00146,
     +     .00000,    .00651,    .01115,
     +     .47127,    .16969,    .24237,    .00987,    .00153,
     +     .00000,    .00635,    .01076,
     +     .46128,    .16556,    .22946,    .00964,    .00158,
     +     .00000,    .00621,    .01048,
     +     .44070,    .15716,    .20380,    .00916,    .00165,
     +     .00004,    .00595,    .00983,
     +     .42383,    .15029,    .18367,    .00873,    .00169,
     +     .00018,    .00572,    .00933,
     +     .40574,    .14303,    .16361,    .00829,    .00171,
     +     .00033,    .00544,    .00881,
     +     .38784,    .13591,    .14527,    .00787,    .00171,
     +     .00044,    .00518,    .00827,
     +     .37242,    .12981,    .13060,    .00748,    .00170,
     +     .00051,    .00496,    .00781 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
     +     .35758,    .12399,    .11748,    .00709,    .00168,
     +     .00057,    .00474,    .00738,
     +     .34570,    .11937,    .10771,    .00683,    .00166,
     +     .00061,    .00455,    .00704,
     +     .33191,    .11405,    .09710,    .00649,    .00162,
     +     .00064,    .00434,    .00664,
     +     .32026,    .10957,    .08872,    .00619,    .00159,
     +     .00067,    .00415,    .00632,
     +     .30999,    .10564,    .08175,    .00592,    .00156,
     +     .00068,    .00399,    .00604,
     +     .29744,    .10088,    .07384,    .00561,    .00151,
     +     .00069,    .00379,    .00570,
     +     .28615,    .09663,    .06722,    .00534,    .00147,
     +     .00070,    .00361,    .00539,
     +     .27602,    .09286,    .06165,    .00511,    .00142,
     +     .00070,    .00346,    .00512 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
     +     .26628,    .08922,    .05664,    .00486,    .00138,
     +     .00070,    .00330,    .00488,
     +     .25713,    .08583,    .05221,    .00464,    .00134,
     +     .00069,    .00315,    .00465,
     +     .24877,    .08276,    .04840,    .00446,    .00130,
     +     .00068,    .00302,    .00443,
     +     .24116,    .07997,    .04512,    .00429,    .00126,
     +     .00067,    .00291,    .00424,
     +     .23381,    .07727,    .04209,    .00412,    .00123,
     +     .00067,    .00281,    .00406,
     +     .22676,    .07471,    .03937,    .00396,    .00119,
     +     .00066,    .00269,    .00390,
     +     .22031,    .07237,    .03697,    .00382,    .00116,
     +     .00065,    .00258,    .00375,
     +     .21435,    .07025,    .03487,    .00369,    .00113,
     +     .00063,    .00249,    .00360 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
     +     .20853,    .06818,    .03289,    .00357,    .00110,
     +     .00062,    .00240,    .00345,
     +     .20296,    .06619,    .03108,    .00345,    .00107,
     +     .00061,    .00232,    .00331,
     +     .19781,    .06435,    .02947,    .00333,    .00104,
     +     .00060,    .00225,    .00319,
     +     .19306,    .06265,    .02804,    .00322,    .00101,
     +     .00059,    .00218,    .00308,
     +     .18835,    .06097,    .02669,    .00311,    .00099,
     +     .00058,    .00211,    .00299 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
     +     .60818,    .22220,    .46268,    .01033,    .00000,
     +     .00000,    .00575,    .01139,
     +     .58592,    .21272,    .42497,    .01002,    .00000,
     +     .00000,    .00569,    .01094,
     +     .55473,    .19961,    .37273,    .00956,    .00016,
     +     .00000,    .00557,    .01028,
     +     .53322,    .19073,    .33767,    .00923,    .00046,
     +     .00000,    .00548,    .00978,
     +     .51168,    .18182,    .30416,    .00884,    .00066,
     +     .00000,    .00531,    .00933,
     +     .49384,    .17457,    .27784,    .00855,    .00079,
     +     .00000,    .00519,    .00892,
     +     .47745,    .16796,    .25481,    .00825,    .00090,
     +     .00000,    .00506,    .00855,
     +     .46078,    .16129,    .23254,    .00794,    .00100,
     +     .00000,    .00491,    .00818 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
     +     .44682,    .15572,    .21479,    .00768,    .00106,
     +     .00000,    .00478,    .00787,
     +     .43380,    .15058,    .19900,    .00742,    .00111,
     +     .00000,    .00464,    .00759,
     +     .42384,    .14666,    .18738,    .00721,    .00114,
     +     .00000,    .00453,    .00737,
     +     .40344,    .13868,    .16464,    .00682,    .00119,
     +     .00003,    .00431,    .00689,
     +     .38671,    .13223,    .14709,    .00650,    .00121,
     +     .00013,    .00413,    .00650,
     +     .36893,    .12541,    .12980,    .00613,    .00122,
     +     .00023,    .00393,    .00611,
     +     .35142,    .11876,    .11421,    .00578,    .00122,
     +     .00031,    .00373,    .00573,
     +     .33636,    .11308,    .10189,    .00548,    .00120,
     +     .00036,    .00355,    .00539 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
     +     .32192,    .10767,    .09099,    .00519,    .00119,
     +     .00040,    .00338,    .00508,
     +     .31048,    .10339,    .08295,    .00495,    .00117,
     +     .00043,    .00323,    .00484,
     +     .29718,    .09849,    .07429,    .00468,    .00114,
     +     .00045,    .00307,    .00455,
     +     .28594,    .09439,    .06750,    .00447,    .00111,
     +     .00047,    .00293,    .00431,
     +     .27607,    .09079,    .06191,    .00429,    .00108,
     +     .00048,    .00281,    .00411,
     +     .26409,    .08645,    .05561,    .00405,    .00105,
     +     .00048,    .00265,    .00387,
     +     .25339,    .08258,    .05038,    .00383,    .00102,
     +     .00048,    .00252,    .00366,
     +     .24383,    .07914,    .04599,    .00364,    .00098,
     +     .00048,    .00242,    .00347 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
     +     .23459,    .07586,    .04210,    .00348,    .00095,
     +     .00048,    .00230,    .00329,
     +     .22596,    .07280,    .03866,    .00332,    .00092,
     +     .00047,    .00219,    .00312,
     +     .21815,    .07004,    .03571,    .00316,    .00089,
     +     .00047,    .00209,    .00296,
     +     .21103,    .06753,    .03320,    .00302,    .00087,
     +     .00046,    .00200,    .00284,
     +     .20416,    .06513,    .03088,    .00289,    .00084,
     +     .00045,    .00191,    .00272,
     +     .19761,    .06284,    .02880,    .00276,    .00081,
     +     .00045,    .00184,    .00260,
     +     .19164,    .06076,    .02698,    .00265,    .00079,
     +     .00044,    .00177,    .00249,
     +     .18612,    .05885,    .02539,    .00255,    .00077,
     +     .00043,    .00171,    .00239 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
     +     .18076,    .05701,    .02391,    .00246,    .00075,
     +     .00042,    .00165,    .00229,
     +     .17560,    .05525,    .02255,    .00238,    .00072,
     +     .00042,    .00159,    .00220,
     +     .17083,    .05364,    .02135,    .00231,    .00070,
     +     .00041,    .00153,    .00211,
     +     .16644,    .05216,    .02028,    .00224,    .00069,
     +     .00040,    .00148,    .00203,
     +     .16213,    .05068,    .01927,    .00217,    .00067,
     +     .00040,    .00143,    .00196 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
     +     .56988,    .20075,    .40938,    .00807,    .00000,
     +     .00000,    .00421,    .00796,
     +     .54722,    .19156,    .37134,    .00778,    .00000,
     +     .00000,    .00416,    .00764,
     +     .51565,    .17895,    .32022,    .00736,    .00012,
     +     .00000,    .00406,    .00714,
     +     .49402,    .17040,    .28674,    .00706,    .00033,
     +     .00000,    .00395,    .00681,
     +     .47245,    .16192,    .25534,    .00672,    .00048,
     +     .00000,    .00384,    .00650,
     +     .45467,    .15504,    .23111,    .00647,    .00057,
     +     .00000,    .00373,    .00619,
     +     .43840,    .14876,    .21015,    .00622,    .00065,
     +     .00000,    .00363,    .00591,
     +     .42193,    .14243,    .19012,    .00595,    .00071,
     +     .00000,    .00353,    .00564 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
     +     .40813,    .13722,    .17437,    .00574,    .00076,
     +     .00000,    .00342,    .00540,
     +     .39533,    .13239,    .16050,    .00555,    .00079,
     +     .00000,    .00331,    .00519,
     +     .38555,    .12872,    .15038,    .00540,    .00081,
     +     .00000,    .00323,    .00502,
     +     .36558,    .12129,    .13078,    .00508,    .00084,
     +     .00002,    .00306,    .00469,
     +     .34934,    .11526,    .11586,    .00480,    .00085,
     +     .00009,    .00292,    .00442,
     +     .33216,    .10894,    .10136,    .00450,    .00085,
     +     .00016,    .00277,    .00415,
     +     .31528,    .10281,    .08844,    .00422,    .00085,
     +     .00021,    .00262,    .00387,
     +     .30080,    .09760,    .07834,    .00398,    .00084,
     +     .00025,    .00248,    .00364 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
     +     .28699,    .09264,    .06947,    .00375,    .00082,
     +     .00028,    .00234,    .00343,
     +     .27605,    .08876,    .06301,    .00360,    .00081,
     +     .00030,    .00224,    .00324,
     +     .26342,    .08431,    .05610,    .00339,    .00078,
     +     .00031,    .00211,    .00305,
     +     .25283,    .08058,    .05072,    .00321,    .00076,
     +     .00032,    .00200,    .00288,
     +     .24357,    .07733,    .04632,    .00306,    .00074,
     +     .00033,    .00192,    .00273,
     +     .23229,    .07341,    .04140,    .00289,    .00072,
     +     .00034,    .00181,    .00256,
     +     .22223,    .06994,    .03733,    .00274,    .00069,
     +     .00034,    .00171,    .00242,
     +     .21326,    .06687,    .03395,    .00261,    .00067,
     +     .00034,    .00163,    .00230 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
     +     .20474,    .06393,    .03096,    .00245,    .00065,
     +     .00034,    .00155,    .00217,
     +     .19675,    .06121,    .02834,    .00232,    .00062,
     +     .00033,    .00148,    .00205,
     +     .18947,    .05876,    .02611,    .00223,    .00060,
     +     .00033,    .00141,    .00194,
     +     .18290,    .05655,    .02421,    .00214,    .00058,
     +     .00033,    .00135,    .00185,
     +     .17658,    .05443,    .02246,    .00205,    .00057,
     +     .00033,    .00129,    .00176,
     +     .17056,    .05241,    .02091,    .00196,    .00055,
     +     .00032,    .00123,    .00167,
     +     .16507,    .05058,    .01954,    .00187,    .00053,
     +     .00032,    .00118,    .00160,
     +     .16003,    .04892,    .01836,    .00180,    .00052,
     +     .00031,    .00114,    .00153 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
     +     .15514,    .04731,    .01726,    .00173,    .00050,
     +     .00031,    .00109,    .00147,
     +     .15045,    .04576,    .01626,    .00166,    .00049,
     +     .00031,    .00105,    .00141,
     +     .14613,    .04434,    .01536,    .00161,    .00048,
     +     .00030,    .00102,    .00135,
     +     .14217,    .04304,    .01457,    .00155,    .00046,
     +     .00030,    .00098,    .00130,
     +     .13827,    .04176,    .01383,    .00149,    .00045,
     +     .00029,    .00094,    .00126 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
     +     .52867,    .17936,    .35345,    .00611,    .00000,
     +     .00000,    .00305,    .00551,
     +     .50600,    .17065,    .31690,    .00587,    .00000,
     +     .00000,    .00300,    .00526,
     +     .47457,    .15870,    .26893,    .00552,    .00008,
     +     .00000,    .00290,    .00491,
     +     .45319,    .15064,    .23822,    .00527,    .00023,
     +     .00000,    .00282,    .00465,
     +     .43184,    .14272,    .20986,    .00503,    .00033,
     +     .00000,    .00272,    .00438,
     +     .41442,    .13625,    .18833,    .00481,    .00040,
     +     .00000,    .00263,    .00420,
     +     .39850,    .13040,    .16990,    .00462,    .00045,
     +     .00000,    .00254,    .00400,
     +     .38242,    .12454,    .15246,    .00442,    .00050,
     +     .00000,    .00246,    .00378 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
     +     .36907,    .11968,    .13890,    .00424,    .00053,
     +     .00000,    .00237,    .00361,
     +     .35668,    .11523,    .12706,    .00408,    .00055,
     +     .00000,    .00229,    .00346,
     +     .34722,    .11185,    .11847,    .00396,    .00057,
     +     .00000,    .00223,    .00335,
     +     .32805,    .10501,    .10210,    .00369,    .00058,
     +     .00001,    .00210,    .00315,
     +     .31246,    .09948,    .08976,    .00350,    .00059,
     +     .00006,    .00200,    .00295,
     +     .29605,    .09372,    .07787,    .00328,    .00059,
     +     .00011,    .00188,    .00274,
     +     .28003,    .08816,    .06740,    .00307,    .00058,
     +     .00015,    .00177,    .00254,
     +     .26635,    .08343,    .05932,    .00289,    .00057,
     +     .00017,    .00167,    .00237 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
     +     .25335,    .07896,    .05229,    .00271,    .00056,
     +     .00019,    .00158,    .00224,
     +     .24310,    .07547,    .04719,    .00257,    .00055,
     +     .00020,    .00150,    .00212,
     +     .23128,    .07146,    .04179,    .00242,    .00053,
     +     .00021,    .00141,    .00199,
     +     .22138,    .06812,    .03761,    .00229,    .00052,
     +     .00021,    .00134,    .00187,
     +     .21275,    .06523,    .03421,    .00219,    .00050,
     +     .00022,    .00127,    .00177,
     +     .20232,    .06174,    .03044,    .00205,    .00049,
     +     .00022,    .00120,    .00165,
     +     .19305,    .05866,    .02734,    .00193,    .00047,
     +     .00022,    .00113,    .00155,
     +     .18482,    .05594,    .02479,    .00183,    .00046,
     +     .00022,    .00107,    .00147 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
     +     .17695,    .05337,    .02253,    .00173,    .00044,
     +     .00022,    .00101,    .00137,
     +     .16961,    .05098,    .02057,    .00164,    .00043,
     +     .00022,    .00096,    .00130,
     +     .16297,    .04883,    .01890,    .00157,    .00041,
     +     .00022,    .00092,    .00124,
     +     .15697,    .04690,    .01748,    .00150,    .00040,
     +     .00022,    .00087,    .00118,
     +     .15121,    .04505,    .01619,    .00144,    .00039,
     +     .00022,    .00083,    .00111,
     +     .14579,    .04329,    .01504,    .00137,    .00038,
     +     .00022,    .00079,    .00106,
     +     .14086,    .04169,    .01404,    .00130,    .00037,
     +     .00022,    .00076,    .00102,
     +     .13631,    .04024,    .01318,    .00125,    .00036,
     +     .00022,    .00073,    .00097 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
     +     .13190,    .03885,    .01237,    .00120,    .00035,
     +     .00022,    .00070,    .00092,
     +     .12770,    .03752,    .01163,    .00115,    .00034,
     +     .00022,    .00067,    .00088,
     +     .12383,    .03630,    .01098,    .00111,    .00034,
     +     .00022,    .00064,    .00085,
     +     .12029,    .03518,    .01041,    .00107,    .00033,
     +     .00022,    .00062,    .00082,
     +     .11679,    .03408,    .00986,    .00103,    .00032,
     +     .00022,    .00060,    .00079 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
     +     .48533,    .15855,    .29750,    .00450,    .00000,
     +     .00000,    .00221,    .00373,
     +     .46299,    .15037,    .26384,    .00431,    .00000,
     +     .00000,    .00215,    .00356,
     +     .43222,    .13919,    .22054,    .00399,    .00006,
     +     .00000,    .00206,    .00333,
     +     .41135,    .13169,    .19335,    .00379,    .00016,
     +     .00000,    .00200,    .00313,
     +     .39066,    .12434,    .16862,    .00362,    .00023,
     +     .00000,    .00191,    .00296,
     +     .37385,    .11838,    .15002,    .00343,    .00027,
     +     .00000,    .00186,    .00281,
     +     .35853,    .11299,    .13429,    .00326,    .00031,
     +     .00000,    .00179,    .00268,
     +     .34309,    .10759,    .11957,    .00311,    .00034,
     +     .00000,    .00171,    .00256 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
     +     .33029,    .10315,    .10822,    .00298,    .00036,
     +     .00000,    .00165,    .00244,
     +     .31847,    .09909,    .09840,    .00286,    .00038,
     +     .00000,    .00160,    .00232,
     +     .30948,    .09603,    .09133,    .00277,    .00039,
     +     .00000,    .00156,    .00223,
     +     .29124,    .08983,    .07799,    .00258,    .00040,
     +     .00001,    .00146,    .00207,
     +     .27654,    .08484,    .06806,    .00242,    .00041,
     +     .00004,    .00138,    .00194,
     +     .26111,    .07964,    .05861,    .00226,    .00041,
     +     .00007,    .00130,    .00181,
     +     .24611,    .07464,    .05036,    .00210,    .00041,
     +     .00010,    .00122,    .00168,
     +     .23335,    .07041,    .04404,    .00196,    .00040,
     +     .00011,    .00114,    .00157 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
     +     .22123,    .06644,    .03859,    .00185,    .00039,
     +     .00012,    .00107,    .00146,
     +     .21174,    .06335,    .03467,    .00175,    .00038,
     +     .00013,    .00102,    .00138,
     +     .20083,    .05981,    .03055,    .00164,    .00037,
     +     .00013,    .00095,    .00128,
     +     .19174,    .05687,    .02738,    .00154,    .00036,
     +     .00013,    .00090,    .00121,
     +     .18385,    .05430,    .02482,    .00144,    .00035,
     +     .00013,    .00086,    .00115,
     +     .17428,    .05125,    .02200,    .00137,    .00034,
     +     .00013,    .00081,    .00108,
     +     .16583,    .04857,    .01969,    .00129,    .00033,
     +     .00013,    .00076,    .00101,
     +     .15837,    .04621,    .01779,    .00120,    .00032,
     +     .00013,    .00072,    .00094 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
     +     .15123,    .04396,    .01613,    .00114,    .00032,
     +     .00013,    .00067,    .00089,
     +     .14462,    .04188,    .01469,    .00107,    .00031,
     +     .00013,    .00064,    .00085,
     +     .13868,    .04003,    .01347,    .00101,    .00030,
     +     .00013,    .00061,    .00080,
     +     .13329,    .03836,    .01244,    .00096,    .00029,
     +     .00013,    .00058,    .00076,
     +     .12813,    .03676,    .01150,    .00092,    .00029,
     +     .00013,    .00054,    .00072,
     +     .12325,    .03526,    .01067,    .00088,    .00028,
     +     .00013,    .00053,    .00068,
     +     .11882,    .03390,    .00994,    .00085,    .00027,
     +     .00013,    .00051,    .00064,
     +     .11477,    .03266,    .00932,    .00081,    .00027,
     +     .00013,    .00049,    .00062 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
     +     .11086,    .03147,    .00873,    .00078,    .00026,
     +     .00013,    .00046,    .00060,
     +     .10714,    .03033,    .00821,    .00074,    .00026,
     +     .00013,    .00044,    .00058,
     +     .10373,    .02929,    .00774,    .00071,    .00025,
     +     .00013,    .00043,    .00056,
     +     .10060,    .02835,    .00733,    .00068,    .00025,
     +     .00013,    .00041,    .00054,
     +     .09751,    .02742,    .00694,    .00066,    .00025,
     +     .00013,    .00039,    .00051 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
     +     .44093,    .13866,    .24421,    .00324,    .00000,
     +     .00000,    .00154,    .00249,
     +     .41925,    .13105,    .21429,    .00308,    .00000,
     +     .00000,    .00149,    .00237,
     +     .38953,    .12073,    .17655,    .00285,    .00004,
     +     .00000,    .00144,    .00219,
     +     .36950,    .11386,    .15325,    .00266,    .00011,
     +     .00000,    .00139,    .00207,
     +     .34970,    .10712,    .13231,    .00253,    .00015,
     +     .00000,    .00133,    .00197,
     +     .33363,    .10170,    .11679,    .00240,    .00018,
     +     .00000,    .00129,    .00185,
     +     .31907,    .09681,    .10379,    .00227,    .00020,
     +     .00000,    .00125,    .00175,
     +     .30445,    .09194,    .09174,    .00214,    .00022,
     +     .00000,    .00120,    .00167 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
     +     .29240,    .08794,    .08254,    .00204,    .00024,
     +     .00000,    .00114,    .00160,
     +     .28129,    .08427,    .07463,    .00194,    .00025,
     +     .00000,    .00110,    .00153,
     +     .27286,    .08149,    .06897,    .00186,    .00025,
     +     .00000,    .00107,    .00147,
     +     .25582,    .07594,    .05837,    .00172,    .00026,
     +     .00001,    .00100,    .00136,
     +     .24214,    .07150,    .05061,    .00161,    .00026,
     +     .00003,    .00094,    .00128,
     +     .22780,    .06689,    .04327,    .00149,    .00027,
     +     .00005,    .00088,    .00119,
     +     .21392,    .06246,    .03693,    .00137,    .00027,
     +     .00006,    .00082,    .00110,
     +     .20218,    .05874,    .03212,    .00128,    .00027,
     +     .00007,    .00077,    .00103 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
     +     .19109,    .05525,    .02799,    .00119,    .00027,
     +     .00007,    .00072,    .00096,
     +     .18245,    .05254,    .02505,    .00111,    .00027,
     +     .00007,    .00068,    .00090,
     +     .17248,    .04945,    .02197,    .00105,    .00027,
     +     .00008,    .00065,    .00083,
     +     .16421,    .04690,    .01962,    .00100,    .00026,
     +     .00007,    .00061,    .00078,
     +     .15707,    .04469,    .01774,    .00093,    .00026,
     +     .00007,    .00058,    .00074,
     +     .14848,    .04205,    .01566,    .00086,    .00026,
     +     .00008,    .00054,    .00069,
     +     .14089,    .03973,    .01398,    .00080,    .00026,
     +     .00008,    .00051,    .00064,
     +     .13419,    .03769,    .01261,    .00075,    .00025,
     +     .00008,    .00049,    .00061 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
     +     .12781,    .03577,    .01140,    .00071,    .00024,
     +     .00008,    .00046,    .00057,
     +     .12191,    .03400,    .01036,    .00067,    .00024,
     +     .00008,    .00043,    .00054,
     +     .11662,    .03242,    .00948,    .00063,    .00023,
     +     .00008,    .00041,    .00050,
     +     .11185,    .03100,    .00874,    .00060,    .00023,
     +     .00008,    .00039,    .00047,
     +     .10729,    .02965,    .00807,    .00058,    .00023,
     +     .00008,    .00037,    .00044,
     +     .10299,    .02839,    .00748,    .00055,    .00022,
     +     .00008,    .00035,    .00042,
     +     .09910,    .02724,    .00696,    .00053,    .00022,
     +     .00008,    .00033,    .00041,
     +     .09555,    .02620,    .00652,    .00050,    .00021,
     +     .00008,    .00031,    .00039 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
     +     .09214,    .02519,    .00610,    .00047,    .00021,
     +     .00008,    .00030,    .00038,
     +     .08888,    .02424,    .00573,    .00045,    .00021,
     +     .00008,    .00029,    .00036,
     +     .08590,    .02337,    .00540,    .00043,    .00021,
     +     .00008,    .00028,    .00034,
     +     .08317,    .02258,    .00511,    .00042,    .00021,
     +     .00008,    .00027,    .00032,
     +     .08049,    .02180,    .00484,    .00040,    .00020,
     +     .00008,    .00026,    .00031 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
     +     .39621,    .12002,    .19565,    .00244,    .00000,
     +     .00000,    .00099,    .00157,
     +     .37553,    .11311,    .17002,    .00226,    .00000,
     +     .00000,    .00096,    .00149,
     +     .34729,    .10375,    .13823,    .00209,    .00002,
     +     .00000,    .00091,    .00139,
     +     .32836,    .09752,    .11891,    .00195,    .00007,
     +     .00000,    .00089,    .00128,
     +     .30969,    .09146,    .10172,    .00184,    .00010,
     +     .00000,    .00085,    .00118,
     +     .29462,    .08658,    .08915,    .00173,    .00011,
     +     .00000,    .00082,    .00114,
     +     .28101,    .08220,    .07871,    .00164,    .00013,
     +     .00000,    .00078,    .00109,
     +     .26740,    .07784,    .06911,    .00155,    .00014,
     +     .00000,    .00074,    .00103 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
     +     .25618,    .07429,    .06183,    .00146,    .00015,
     +     .00000,    .00071,    .00098,
     +     .24589,    .07104,    .05564,    .00139,    .00015,
     +     .00000,    .00068,    .00094,
     +     .23809,    .06858,    .05124,    .00133,    .00016,
     +     .00000,    .00066,    .00091,
     +     .22240,    .06368,    .04303,    .00124,    .00016,
     +     .00000,    .00061,    .00082,
     +     .20980,    .05977,    .03707,    .00118,    .00016,
     +     .00002,    .00057,    .00077,
     +     .19670,    .05574,    .03149,    .00109,    .00016,
     +     .00003,    .00054,    .00072,
     +     .18407,    .05188,    .02673,    .00100,    .00016,
     +     .00003,    .00050,    .00066,
     +     .17344,    .04865,    .02313,    .00093,    .00016,
     +     .00004,    .00045,    .00061 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
     +     .16345,    .04561,    .02007,    .00085,    .00016,
     +     .00004,    .00042,    .00057,
     +     .15561,    .04326,    .01791,    .00081,    .00016,
     +     .00004,    .00040,    .00054,
     +     .14669,    .04060,    .01566,    .00076,    .00016,
     +     .00004,    .00038,    .00049,
     +     .13931,    .03841,    .01394,    .00072,    .00016,
     +     .00004,    .00036,    .00045,
     +     .13293,    .03652,    .01258,    .00067,    .00016,
     +     .00004,    .00034,    .00043,
     +     .12527,    .03426,    .01108,    .00061,    .00016,
     +     .00004,    .00031,    .00041,
     +     .11855,    .03229,    .00986,    .00057,    .00016,
     +     .00004,    .00029,    .00037,
     +     .11264,    .03056,    .00887,    .00053,    .00016,
     +     .00004,    .00028,    .00034 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
     +     .10700,    .02893,    .00801,    .00051,    .00016,
     +     .00004,    .00026,    .00032,
     +     .10182,    .02744,    .00727,    .00048,    .00016,
     +     .00004,    .00025,    .00030,
     +     .09718,    .02610,    .00665,    .00046,    .00016,
     +     .00004,    .00023,    .00028,
     +     .09302,    .02491,    .00612,    .00043,    .00016,
     +     .00004,    .00021,    .00027,
     +     .08905,    .02378,    .00565,    .00040,    .00016,
     +     .00004,    .00020,    .00025,
     +     .08530,    .02271,    .00523,    .00039,    .00016,
     +     .00004,    .00019,    .00024,
     +     .08191,    .02175,    .00486,    .00038,    .00016,
     +     .00004,    .00018,    .00023,
     +     .07885,    .02088,    .00455,    .00035,    .00016,
     +     .00004,    .00017,    .00022 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
     +     .07590,    .02004,    .00426,    .00033,    .00016,
     +     .00004,    .00016,    .00021,
     +     .07309,    .01925,    .00400,    .00031,    .00016,
     +     .00004,    .00015,    .00020,
     +     .07051,    .01854,    .00377,    .00030,    .00016,
     +     .00004,    .00015,    .00019,
     +     .06816,    .01788,    .00356,    .00029,    .00016,
     +     .00004,    .00014,    .00018,
     +     .06587,    .01724,    .00337,    .00028,    .00016,
     +     .00004,    .00014,    .00017 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
     +     .35192,    .10235,    .15221,    .00156,    .00000,
     +     .00000,    .00072,    .00105,
     +     .33237,    .09614,    .13104,    .00150,    .00000,
     +     .00000,    .00068,    .00097,
     +     .30591,    .08779,    .10517,    .00134,    .00001,
     +     .00000,    .00065,    .00089,
     +     .28820,    .08224,    .08969,    .00127,    .00004,
     +     .00000,    .00062,    .00084,
     +     .27091,    .07687,    .07607,    .00119,    .00006,
     +     .00000,    .00057,    .00079,
     +     .25696,    .07256,    .06620,    .00112,    .00007,
     +     .00000,    .00053,    .00073,
     +     .24438,    .06872,    .05807,    .00106,    .00008,
     +     .00000,    .00051,    .00068,
     +     .23186,    .06491,    .05066,    .00100,    .00008,
     +     .00000,    .00050,    .00063 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
     +     .22161,    .06178,    .04510,    .00094,    .00009,
     +     .00000,    .00047,    .00061,
     +     .21220,    .05893,    .04038,    .00089,    .00009,
     +     .00000,    .00045,    .00059,
     +     .20507,    .05679,    .03704,    .00086,    .00009,
     +     .00000,    .00042,    .00056,
     +     .19081,    .05254,    .03088,    .00081,    .00009,
     +     .00000,    .00040,    .00052,
     +     .17942,    .04917,    .02646,    .00075,    .00009,
     +     .00001,    .00038,    .00048,
     +     .16765,    .04570,    .02235,    .00068,    .00009,
     +     .00001,    .00035,    .00043,
     +     .15631,    .04237,    .01886,    .00063,    .00009,
     +     .00001,    .00032,    .00039,
     +     .14679,    .03960,    .01625,    .00059,    .00009,
     +     .00001,    .00030,    .00036 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
     +     .13787,    .03702,    .01405,    .00054,    .00009,
     +     .00001,    .00027,    .00034,
     +     .13095,    .03502,    .01250,    .00050,    .00009,
     +     .00001,    .00025,    .00033,
     +     .12307,    .03276,    .01089,    .00046,    .00009,
     +     .00001,    .00024,    .00031,
     +     .11655,    .03090,    .00968,    .00043,    .00009,
     +     .00001,    .00023,    .00029,
     +     .11091,    .02932,    .00871,    .00041,    .00009,
     +     .00001,    .00021,    .00027,
     +     .10421,    .02742,    .00765,    .00038,    .00009,
     +     .00001,    .00020,    .00025,
     +     .09833,    .02577,    .00680,    .00035,    .00009,
     +     .00001,    .00018,    .00023,
     +     .09316,    .02433,    .00611,    .00033,    .00009,
     +     .00001,    .00016,    .00022 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
     +     .08829,    .02297,    .00552,    .00031,    .00009,
     +     .00001,    .00016,    .00020,
     +     .08380,    .02173,    .00500,    .00030,    .00009,
     +     .00001,    .00015,    .00018,
     +     .07978,    .02063,    .00457,    .00029,    .00009,
     +     .00001,    .00014,    .00016,
     +     .07619,    .01964,    .00420,    .00027,    .00009,
     +     .00001,    .00013,    .00015,
     +     .07279,    .01871,    .00387,    .00025,    .00009,
     +     .00001,    .00013,    .00015,
     +     .06957,    .01784,    .00358,    .00024,    .00009,
     +     .00001,    .00012,    .00014,
     +     .06667,    .01705,    .00333,    .00024,    .00009,
     +     .00001,    .00011,    .00014,
     +     .06405,    .01634,    .00312,    .00022,    .00009,
     +     .00001,    .00011,    .00013 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
     +     .06153,    .01565,    .00291,    .00021,    .00009,
     +     .00001,    .00010,    .00012,
     +     .05914,    .01501,    .00273,    .00020,    .00009,
     +     .00001,    .00009,    .00012,
     +     .05696,    .01442,    .00257,    .00019,    .00009,
     +     .00001,    .00009,    .00011,
     +     .05497,    .01389,    .00243,    .00018,    .00009,
     +     .00001,    .00008,    .00011,
     +     .05304,    .01337,    .00230,    .00017,    .00009,
     +     .00001,    .00008,    .00010 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
     +     .30873,    .08622,    .11518,    .00101,    .00000,
     +     .00000,    .00049,    .00067,
     +     .29062,    .08072,    .09828,    .00094,    .00000,
     +     .00000,    .00047,    .00062,
     +     .26617,    .07335,    .07788,    .00086,    .00001,
     +     .00000,    .00043,    .00056,
     +     .24990,    .06850,    .06585,    .00079,    .00002,
     +     .00000,    .00039,    .00054,
     +     .23409,    .06377,    .05540,    .00072,    .00003,
     +     .00000,    .00038,    .00050,
     +     .22136,    .06003,    .04789,    .00068,    .00004,
     +     .00000,    .00035,    .00046,
     +     .20993,    .05668,    .04175,    .00064,    .00004,
     +     .00000,    .00033,    .00044,
     +     .19858,    .05337,    .03619,    .00060,    .00004,
     +     .00000,    .00032,    .00042 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
     +     .18928,    .05069,    .03206,    .00058,    .00004,
     +     .00000,    .00030,    .00039,
     +     .18080,    .04826,    .02858,    .00055,    .00004,
     +     .00000,    .00029,    .00036,
     +     .17442,    .04643,    .02612,    .00053,    .00004,
     +     .00000,    .00028,    .00034,
     +     .16167,    .04276,    .02164,    .00048,    .00004,
     +     .00000,    .00026,    .00033,
     +     .15154,    .03988,    .01845,    .00043,    .00004,
     +     .00000,    .00024,    .00030,
     +     .14104,    .03693,    .01551,    .00040,    .00004,
     +     .00000,    .00022,    .00027,
     +     .13100,    .03412,    .01302,    .00037,    .00004,
     +     .00000,    .00020,    .00024,
     +     .12262,    .03178,    .01118,    .00034,    .00004,
     +     .00000,    .00019,    .00023 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
     +     .11479,    .02961,    .00963,    .00031,    .00004,
     +     .00000,    .00018,    .00022,
     +     .10872,    .02794,    .00855,    .00029,    .00004,
     +     .00000,    .00017,    .00020,
     +     .10185,    .02605,    .00743,    .00027,    .00004,
     +     .00000,    .00015,    .00018,
     +     .09619,    .02451,    .00659,    .00025,    .00004,
     +     .00000,    .00014,    .00017,
     +     .09132,    .02319,    .00592,    .00023,    .00004,
     +     .00000,    .00013,    .00016,
     +     .08552,    .02162,    .00520,    .00022,    .00004,
     +     .00000,    .00012,    .00014,
     +     .08045,    .02026,    .00461,    .00021,    .00004,
     +     .00000,    .00011,    .00013,
     +     .07601,    .01908,    .00414,    .00019,    .00004,
     +     .00000,    .00010,    .00013 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
     +     .07184,    .01796,    .00373,    .00018,    .00004,
     +     .00000,    .00010,    .00012,
     +     .06801,    .01695,    .00338,    .00017,    .00004,
     +     .00000,    .00009,    .00011,
     +     .06460,    .01605,    .00309,    .00016,    .00004,
     +     .00000,    .00008,    .00010,
     +     .06156,    .01525,    .00284,    .00015,    .00004,
     +     .00000,    .00008,    .00010,
     +     .05867,    .01449,    .00261,    .00014,    .00004,
     +     .00000,    .00008,    .00010,
     +     .05597,    .01378,    .00242,    .00013,    .00004,
     +     .00000,    .00007,    .00009,
     +     .05354,    .01315,    .00225,    .00012,    .00004,
     +     .00000,    .00007,    .00009,
     +     .05132,    .01258,    .00210,    .00012,    .00004,
     +     .00000,    .00007,    .00008 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
     +     .04919,    .01203,    .00196,    .00012,    .00004,
     +     .00000,    .00006,    .00008,
     +     .04719,    .01151,    .00184,    .00011,    .00004,
     +     .00000,    .00006,    .00007,
     +     .04538,    .01104,    .00173,    .00011,    .00004,
     +     .00000,    .00006,    .00007,
     +     .04372,    .01062,    .00164,    .00010,    .00004,
     +     .00000,    .00005,    .00006,
     +     .04210,    .01020,    .00155,    .00010,    .00004,
     +     .00000,    .00005,    .00006 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
     +     .26750,    .07176,    .08479,    .00070,    .00000,
     +     .00000,    .00028,    .00039,
     +     .25091,    .06697,    .07173,    .00067,    .00000,
     +     .00000,    .00027,    .00036,
     +     .22869,    .06054,    .05618,    .00059,    .00000,
     +     .00000,    .00024,    .00032,
     +     .21393,    .05635,    .04714,    .00058,    .00001,
     +     .00000,    .00023,    .00029,
     +     .19969,    .05229,    .03934,    .00050,    .00001,
     +     .00000,    .00021,    .00027,
     +     .18829,    .04906,    .03381,    .00046,    .00001,
     +     .00000,    .00019,    .00026,
     +     .17807,    .04620,    .02932,    .00043,    .00001,
     +     .00000,    .00019,    .00024,
     +     .16793,    .04338,    .02528,    .00041,    .00001,
     +     .00000,    .00018,    .00022 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
     +     .15968,    .04109,    .02228,    .00038,    .00001,
     +     .00000,    .00017,    .00021,
     +     .15216,    .03901,    .01978,    .00036,    .00001,
     +     .00000,    .00016,    .00020,
     +     .14651,    .03746,    .01803,    .00034,    .00001,
     +     .00000,    .00016,    .00019,
     +     .13524,    .03437,    .01486,    .00032,    .00001,
     +     .00000,    .00014,    .00018,
     +     .12632,    .03196,    .01262,    .00030,    .00001,
     +     .00000,    .00012,    .00016,
     +     .11713,    .02948,    .01056,    .00028,    .00001,
     +     .00000,    .00011,    .00015,
     +     .10840,    .02714,    .00884,    .00025,    .00001,
     +     .00000,    .00011,    .00014,
     +     .10113,    .02520,    .00757,    .00023,    .00001,
     +     .00000,    .00010,    .00013 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
     +     .09436,    .02340,    .00650,    .00022,    .00001,
     +     .00000,    .00010,    .00012,
     +     .08914,    .02203,    .00576,    .00020,    .00001,
     +     .00000,    .00008,    .00011,
     +     .08324,    .02048,    .00500,    .00017,    .00001,
     +     .00000,    .00007,    .00010,
     +     .07839,    .01921,    .00443,    .00017,    .00001,
     +     .00000,    .00007,    .00009,
     +     .07421,    .01813,    .00398,    .00017,    .00001,
     +     .00000,    .00007,    .00008,
     +     .06929,    .01685,    .00349,    .00015,    .00001,
     +     .00000,    .00006,    .00008,
     +     .06499,    .01575,    .00310,    .00014,    .00001,
     +     .00000,    .00006,    .00007,
     +     .06122,    .01479,    .00278,    .00014,    .00001,
     +     .00000,    .00005,    .00006 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
     +     .05773,    .01389,    .00250,    .00012,    .00001,
     +     .00000,    .00005,    .00007,
     +     .05452,    .01307,    .00227,    .00011,    .00001,
     +     .00000,    .00005,    .00006,
     +     .05167,    .01235,    .00207,    .00010,    .00001,
     +     .00000,    .00004,    .00005,
     +     .04911,    .01170,    .00190,    .00010,    .00001,
     +     .00000,    .00004,    .00005,
     +     .04668,    .01110,    .00175,    .00011,    .00001,
     +     .00000,    .00004,    .00005,
     +     .04445,    .01053,    .00162,    .00009,    .00001,
     +     .00000,    .00004,    .00004,
     +     .04244,    .01002,    .00150,    .00008,    .00001,
     +     .00000,    .00003,    .00004,
     +     .04061,    .00957,    .00141,    .00008,    .00001,
     +     .00000,    .00003,    .00004 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
     +     .03885,    .00913,    .00131,    .00008,    .00001,
     +     .00000,    .00003,    .00004,
     +     .03719,    .00873,    .00123,    .00008,    .00001,
     +     .00000,    .00003,    .00004,
     +     .03569,    .00836,    .00116,    .00007,    .00001,
     +     .00000,    .00003,    .00003,
     +     .03433,    .00802,    .00110,    .00007,    .00001,
     +     .00000,    .00002,    .00003,
     +     .03300,    .00770,    .00104,    .00007,    .00001,
     +     .00000,    .00002,    .00003 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
     +     .22829,    .05861,    .06027,    .00037,    .00000,
     +     .00000,    .00022,    .00025,
     +     .21338,    .05450,    .05055,    .00036,    .00000,
     +     .00000,    .00019,    .00023,
     +     .19345,    .04905,    .03917,    .00033,    .00000,
     +     .00000,    .00017,    .00020,
     +     .18039,    .04546,    .03261,    .00029,    .00000,
     +     .00000,    .00016,    .00020,
     +     .16772,    .04205,    .02702,    .00026,    .00000,
     +     .00000,    .00015,    .00018,
     +     .15761,    .03933,    .02308,    .00025,    .00000,
     +     .00000,    .00014,    .00017,
     +     .14860,    .03693,    .01990,    .00024,    .00000,
     +     .00000,    .00013,    .00015,
     +     .13972,    .03458,    .01708,    .00023,    .00000,
     +     .00000,    .00012,    .00013 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
     +     .13250,    .03266,    .01499,    .00020,    .00000,
     +     .00000,    .00012,    .00013,
     +     .12594,    .03093,    .01327,    .00019,    .00000,
     +     .00000,    .00011,    .00012,
     +     .12102,    .02964,    .01206,    .00019,    .00000,
     +     .00000,    .00010,    .00012,
     +     .11126,    .02709,    .00988,    .00017,    .00000,
     +     .00000,    .00008,    .00011,
     +     .10355,    .02510,    .00836,    .00015,    .00000,
     +     .00000,    .00009,    .00010,
     +     .09565,    .02307,    .00697,    .00014,    .00000,
     +     .00000,    .00008,    .00009,
     +     .08818,    .02115,    .00582,    .00013,    .00000,
     +     .00000,    .00007,    .00007,
     +     .08198,    .01957,    .00497,    .00012,    .00000,
     +     .00000,    .00006,    .00007 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
     +     .07622,    .01811,    .00427,    .00011,    .00000,
     +     .00000,    .00005,    .00007,
     +     .07179,    .01700,    .00377,    .00009,    .00000,
     +     .00000,    .00006,    .00007,
     +     .06681,    .01575,    .00327,    .00009,    .00000,
     +     .00000,    .00005,    .00006,
     +     .06273,    .01473,    .00290,    .00008,    .00000,
     +     .00000,    .00005,    .00005,
     +     .05923,    .01386,    .00260,    .00007,    .00000,
     +     .00000,    .00004,    .00005,
     +     .05510,    .01284,    .00228,    .00008,    .00000,
     +     .00000,    .00004,    .00005,
     +     .05153,    .01196,    .00202,    .00007,    .00000,
     +     .00000,    .00004,    .00004,
     +     .04843,    .01120,    .00181,    .00007,    .00000,
     +     .00000,    .00003,    .00004 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
     +     .04552,    .01049,    .00163,    .00006,    .00000,
     +     .00000,    .00003,    .00004,
     +     .04287,    .00984,    .00148,    .00005,    .00000,
     +     .00000,    .00003,    .00004,
     +     .04052,    .00928,    .00135,    .00005,    .00000,
     +     .00000,    .00003,    .00004,
     +     .03842,    .00877,    .00124,    .00005,    .00000,
     +     .00000,    .00003,    .00003,
     +     .03644,    .00830,    .00114,    .00005,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03461,    .00786,    .00106,    .00004,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03298,    .00746,    .00098,    .00004,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03149,    .00711,    .00092,    .00004,    .00000,
     +     .00000,    .00002,    .00002 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
     +     .03007,    .00677,    .00086,    .00003,    .00000,
     +     .00000,    .00002,    .00002,
     +     .02873,    .00646,    .00081,    .00003,    .00000,
     +     .00000,    .00002,    .00002,
     +     .02751,    .00617,    .00076,    .00003,    .00000,
     +     .00000,    .00002,    .00002,
     +     .02641,    .00591,    .00071,    .00003,    .00000,
     +     .00000,    .00002,    .00002,
     +     .02535,    .00566,    .00068,    .00003,    .00000,
     +     .00000,    .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)/
     +     .15864,    .03725,    .02747,    .00015,    .00000,
     +     .00000,    .00005,    .00007,
     +     .14720,    .03438,    .02269,    .00013,    .00000,
     +     .00000,    .00006,    .00007,
     +     .13202,    .03061,    .01722,    .00012,    .00000,
     +     .00000,    .00005,    .00006,
     +     .12215,    .02816,    .01414,    .00011,    .00000,
     +     .00000,    .00004,    .00006,
     +     .11268,    .02584,    .01156,    .00009,    .00000,
     +     .00000,    .00003,    .00005,
     +     .10520,    .02401,    .00978,    .00008,    .00000,
     +     .00000,    .00003,    .00005,
     +     .09856,    .02241,    .00837,    .00008,    .00000,
     +     .00000,    .00003,    .00005,
     +     .09206,    .02084,    .00712,    .00007,    .00000,
     +     .00000,    .00003,    .00005 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
     +     .08683,    .01958,    .00622,    .00006,    .00000,
     +     .00000,    .00003,    .00004,
     +     .08210,    .01844,    .00547,    .00006,    .00000,
     +     .00000,    .00003,    .00003,
     +     .07856,    .01760,    .00496,    .00006,    .00000,
     +     .00000,    .00003,    .00003,
     +     .07158,    .01595,    .00404,    .00006,    .00000,
     +     .00000,    .00003,    .00003,
     +     .06615,    .01467,    .00340,    .00004,    .00000,
     +     .00000,    .00002,    .00003,
     +     .06062,    .01337,    .00283,    .00004,    .00000,
     +     .00000,    .00002,    .00003,
     +     .05542,    .01216,    .00235,    .00004,    .00000,
     +     .00000,    .00002,    .00003,
     +     .05114,    .01117,    .00201,    .00003,    .00000,
     +     .00000,    .00002,    .00002 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
     +     .04721,    .01027,    .00172,    .00003,    .00000,
     +     .00000,    .00001,    .00002,
     +     .04420,    .00958,    .00153,    .00003,    .00000,
     +     .00000,    .00001,    .00002,
     +     .04083,    .00881,    .00132,    .00003,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03811,    .00819,    .00117,    .00003,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03579,    .00766,    .00105,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03307,    .00705,    .00093,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03072,    .00653,    .00082,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02870,    .00608,    .00074,    .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=25,32)/
     +     .02681,    .00566,    .00066,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02511,    .00528,    .00060,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02361,    .00495,    .00055,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02228,    .00466,    .00051,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02102,    .00438,    .00047,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01987,    .00413,    .00043,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01884,    .00391,    .00040,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01791,    .00370,    .00037,    .00001,    .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)/
     +     .01703,    .00351,    .00035,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01620,    .00333,    .00033,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01546,    .00317,    .00031,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01479,    .00303,    .00029,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01414,    .00289,    .00027,    .00001,    .00000,
     +     .00000,    .00000,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/
     +     .10189,    .02167,    .01055,    .00005,    .00000,
     +     .00000,    .00001,    .00002,
     +     .09377,    .01985,    .00860,    .00005,    .00000,
     +     .00000,    .00000,    .00001,
     +     .08314,    .01746,    .00643,    .00005,    .00000,
     +     .00000,    .00001,    .00001,
     +     .07631,    .01594,    .00522,    .00003,    .00000,
     +     .00000,    .00000,    .00001,
     +     .06979,    .01450,    .00424,    .00003,    .00000,
     +     .00000,    .00000,    .00001,
     +     .06468,    .01338,    .00357,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .06019,    .01240,    .00304,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .05583,    .01145,    .00257,    .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=9,16)/
     +     .05233,    .01069,    .00224,    .00002,    .00000,
     +     .00000,    .00000,    .00001,
     +     .04919,    .01002,    .00197,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .04687,    .00952,    .00179,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04231,    .00855,    .00145,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03877,    .00780,    .00123,    .00002,    .00000,
     +     .00000,    .00000,    .00001,
     +     .03522,    .00705,    .00102,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .03193,    .00635,    .00085,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02923,    .00579,    .00073,    .00001,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
     +     .02675,    .00528,    .00063,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02490,    .00489,    .00056,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02283,    .00447,    .00049,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02116,    .00412,    .00043,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01975,    .00384,    .00039,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01810,    .00351,    .00034,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01670,    .00322,    .00030,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01550,    .00298,    .00027,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
     +     .01439,    .00276,    .00025,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01339,    .00256,    .00022,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01251,    .00238,    .00020,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01174,    .00223,    .00019,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01103,    .00209,    .00017,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01037,    .00196,    .00016,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00978,    .00184,    .00015,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00926,    .00174,    .00014,    .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)/
     +     .00876,    .00164,    .00013,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00830,    .00155,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00788,    .00147,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00751,    .00140,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00715,    .00133,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/
     +     .05902,    .01122,    .00325,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .05382,    .01018,    .00263,    .00002,    .00000,
     +     .00000,    .00000,    .00001,
     +     .04709,    .00885,    .00195,    .00002,    .00000,
     +     .00000,   -.00001,    .00000,
     +     .04281,    .00800,    .00158,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03879,    .00721,    .00128,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03568,    .00660,    .00108,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03296,    .00607,    .00092,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03032,    .00556,    .00078,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
     +     .02823,    .00516,    .00069,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02636,    .00480,    .00060,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02498,    .00454,    .00055,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02232,    .00403,    .00045,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02027,    .00365,    .00038,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01823,    .00326,    .00032,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01635,    .00291,    .00027,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01484,    .00263,    .00023,    .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)/
     +     .01347,    .00238,    .00020,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01244,    .00219,    .00018,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01131,    .00198,    .00016,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01040,    .00182,    .00014,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00964,    .00168,    .00013,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00877,    .00152,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00802,    .00139,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00739,    .00127,    .00009,    .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)/
     +     .00681,    .00117,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00629,    .00108,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00584,    .00100,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00545,    .00093,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00509,    .00086,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00476,    .00080,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00446,    .00075,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00420,    .00071,    .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,    .00066,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00373,    .00062,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00352,    .00059,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00334,    .00056,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00317,    .00053,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/
     +     .02940,    .00489,    .00074,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02654,    .00439,    .00060,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02288,    .00376,    .00045,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02058,    .00336,    .00037,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01844,    .00300,    .00030,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01679,    .00272,    .00026,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01537,    .00248,    .00022,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01401,    .00225,    .00019,    .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)/
     +     .01295,    .00207,    .00017,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01200,    .00191,    .00015,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01130,    .00180,    .00014,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00997,    .00158,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00897,    .00141,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00797,    .00125,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00707,    .00110,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00635,    .00099,    .00006,    .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)/
     +     .00570,    .00088,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00522,    .00080,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00470,    .00072,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00428,    .00066,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00394,    .00060,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00354,    .00054,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00321,    .00049,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00293,    .00044,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/
     +     .00268,    .00040,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00246,    .00037,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00227,    .00034,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00210,    .00031,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00194,    .00029,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00180,    .00027,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00168,    .00025,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00157,    .00023,    .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,    .00022,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00138,    .00020,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00130,    .00019,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00122,    .00018,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00115,    .00017,    .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)/
     +     .00307,    .00035,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00268,    .00030,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00221,    .00025,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00193,    .00021,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00167,    .00019,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00148,    .00016,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00132,    .00015,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00118,    .00013,    .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)/
     +     .00106,    .00012,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00096,    .00010,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00089,    .00010,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00076,    .00008,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00066,    .00007,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00057,    .00006,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00049,    .00005,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00042,    .00005,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/
     +     .00037,    .00004,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00033,    .00004,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00029,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00026,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00023,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00020,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00018,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00016,    .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=25,32)/
     +     .00014,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00013,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00011,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00010,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00009,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00008,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00008,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00007,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
     +     .00007,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00006,    .00001,    .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='ft09a.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