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

sfmrs_99d2.F

#include "pdf/pilot.h"
      subroutine sfmrs_99d2(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)/
     +     .00619,    .00334,   1.13786,    .86234,    .00000,
     +     .00000,    .46469,    .87437,
     +     .00632,    .00339,   2.37876,    .90355,    .00000,
     +     .00000,    .51050,    .91570,
     +     .00653,    .00347,   4.80638,    .98783,    .02013,
     +     .00000,    .60138,   1.00013,
     +     .00669,    .00353,   7.12053,   1.06616,    .06963,
     +     .00000,    .68437,   1.07856,
     +     .00685,    .00360,   9.93135,   1.16478,    .18334,
     +     .00000,    .78771,   1.17727,
     +     .00699,    .00366,  12.84094,   1.26493,    .29108,
     +     .00000,    .89183,   1.27748,
     +     .00713,    .00371,  16.11355,   1.37273,    .40895,
     +     .00000,   1.00337,   1.38534,
     +     .00728,    .00378,  20.13553,   1.50062,    .55078,
     +     .00000,   1.13515,   1.51329 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
     +     .00741,    .00383,  24.05930,   1.62508,    .68265,
     +     .00000,   1.26291,   1.63778,
     +     .00753,    .00389,  28.27508,   1.75655,    .82238,
     +     .00000,   1.39753,   1.76929,
     +     .00764,    .00394,  31.96971,   1.86867,    .94394,
     +     .00000,   1.51209,   1.88143,
     +     .00785,    .00403,  40.76901,   2.13441,   1.22586,
     +     .00000,   1.78292,   2.14721,
     +     .00804,    .00412,  48.56265,   2.39063,   1.49529,
     +     .36184,   2.04340,   2.40344,
     +     .00826,    .00422,  58.76112,   2.71050,   1.83188,
     +     .75173,   2.36793,   2.72334,
     +     .00849,    .00432,  70.76091,   3.08140,   2.22120,
     +    1.15943,   2.74355,   3.09425,
     +     .00870,    .00442,  82.89420,   3.45302,   2.61049,
     +    1.56733,   3.11935,   3.46586 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
     +     .00891,    .00452,  96.40415,   3.86434,   3.04095,
     +    2.01650,   3.53477,   3.87718,
     +     .00910,    .00460, 108.55438,   4.23413,   3.42588,
     +    2.41350,   3.90790,   4.24695,
     +     .00931,    .00471, 124.43776,   4.71815,   3.92777,
     +    2.92905,   4.39588,   4.73095,
     +     .00952,    .00480, 139.64568,   5.18099,   4.40820,
     +    3.42489,   4.86215,   5.19377,
     +     .00970,    .00489, 154.56745,   5.63530,   4.87979,
     +    3.91191,   5.31955,   5.64806,
     +     .00994,    .00501, 174.62801,   6.25134,   5.51496,
     +    4.56139,   5.93942,   6.26406,
     +     .01016,    .00511, 194.86507,   6.87478,   6.15803,
     +    5.22077,   6.56636,   6.88745,
     +     .01037,    .00523, 215.12691,   7.50036,   6.80429,
     +    5.88576,   7.19516,   7.51300 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
     +     .01059,    .00533, 236.25763,   8.16136,   7.48228,
     +    6.57633,   7.85932,   8.17396,
     +     .01080,    .00543, 258.15919,   8.84888,   8.18869,
     +    7.29879,   8.54987,   8.86143,
     +     .01101,    .00553, 279.93542,   9.53673,   8.89501,
     +    8.02106,   9.24054,   9.54923,
     +     .01119,    .00563, 301.18219,  10.21510,   9.58927,
     +    8.72813,   9.92152,  10.22756,
     +     .01139,    .00573, 323.63042,  10.93363,  10.32625,
     +    9.48169,  10.64263,  10.94605,
     +     .01159,    .00583, 346.24279,  11.66745,  11.07540,
     +   10.24313,  11.37894,  11.67982,
     +     .01178,    .00592, 368.82064,  12.40122,  11.82661,
     +   11.01026,  12.11504,  12.41356,
     +     .01195,    .00601, 390.53981,  13.11697,  12.55625,
     +   11.75125,  12.83296,  13.12926 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
     +     .01213,    .00610, 413.37991,  13.87159,  13.32698,
     +   12.53647,  13.58974,  13.88383,
     +     .01232,    .00620, 436.40005,  14.64032,  14.11040,
     +   13.33266,  14.36058,  14.65252,
     +     .01249,    .00628, 459.02458,  15.40071,  14.88516,
     +   14.12020,  15.12294,  15.41286,
     +     .01266,    .00637, 481.15437,  16.14818,  15.64721,
     +   14.89574,  15.87226,  16.16029,
     +     .01284,    .00645, 503.77110,  16.92158,  16.43344,
     +   15.69301,  16.64750,  16.93365 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
     +     .00850,    .00450,   1.05641,    .73590,    .00000,
     +     .00000,    .39644,    .74305,
     +     .00869,    .00458,   2.17782,    .77371,    .00000,
     +     .00000,    .43782,    .78092,
     +     .00897,    .00470,   4.32133,    .84793,    .01844,
     +     .00000,    .51717,    .85522,
     +     .00918,    .00479,   6.32445,    .91522,    .06041,
     +     .00000,    .58807,    .92257,
     +     .00940,    .00489,   8.71580,    .99852,    .15642,
     +     .00000,    .67501,   1.00592,
     +     .00959,    .00498,  11.15470,   1.08199,    .24621,
     +     .00000,    .76156,   1.08941,
     +     .00978,    .00506,  13.86431,   1.17105,    .34345,
     +     .00000,    .85351,   1.17851,
     +     .00998,    .00515,  17.15455,   1.27583,    .45944,
     +     .00000,    .96130,   1.28332 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
     +     .01016,    .00523,  20.32735,   1.37693,    .56629,
     +     .00000,   1.06495,   1.38444,
     +     .01033,    .00531,  23.70297,   1.48299,    .67870,
     +     .00000,   1.17344,   1.49053,
     +     .01047,    .00537,  26.63771,   1.57299,    .77594,
     +     .00000,   1.26534,   1.58054,
     +     .01076,    .00551,  33.55165,   1.78457,    .99953,
     +     .00000,   1.48084,   1.79214,
     +     .01102,    .00563,  39.57118,   1.98671,   1.21116,
     +     .28460,   1.68626,   1.99429,
     +     .01132,    .00577,  47.36411,   2.23690,   1.47318,
     +     .58846,   1.94005,   2.24449,
     +     .01163,    .00592,  56.41582,   2.52436,   1.77340,
     +     .90249,   2.23115,   2.53196,
     +     .01192,    .00606,  65.45810,   2.80991,   2.07097,
     +    1.21385,   2.51992,   2.81752 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
     +     .01220,    .00620,  75.41493,   3.12344,   2.39736,
     +    1.55383,   2.83663,   3.13104,
     +     .01245,    .00633,  84.28009,   3.40326,   2.68705,
     +    1.85197,   3.11900,   3.41085,
     +     .01275,    .00647,  95.75571,   3.76685,   3.06200,
     +    2.23625,   3.48565,   3.77443,
     +     .01301,    .00661, 106.63883,   4.11206,   3.41841,
     +    2.60325,   3.83350,   4.11965,
     +     .01327,    .00672, 117.22799,   4.44880,   3.76608,
     +    2.96145,   4.17261,   4.45637,
     +     .01358,    .00688, 131.33049,   4.90214,   4.23099,
     +    3.43557,   4.62891,   4.90970,
     +     .01388,    .00704, 145.42463,   5.35763,   4.69838,
     +    3.91357,   5.08710,   5.36517,
     +     .01416,    .00718, 159.41785,   5.81173,   5.16512,
     +    4.39265,   5.54369,   5.81925 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
     +     .01445,    .00732, 173.88257,   6.28827,   5.65141,
     +    4.88656,   6.02268,   6.29578,
     +     .01474,    .00747, 188.76082,   6.78096,   6.15513,
     +    5.40037,   6.51770,   6.78844,
     +     .01502,    .00761, 203.44475,   7.27102,   6.65595,
     +    5.91114,   7.00993,   7.27849,
     +     .01528,    .00774, 217.66666,   7.75155,   7.14537,
     +    6.40821,   7.49248,   7.75900,
     +     .01554,    .00788, 232.60134,   8.25802,   7.66249,
     +    6.93561,   8.00094,   8.26545,
     +     .01580,    .00801, 247.53686,   8.77237,   8.18514,
     +    7.46535,   8.51721,   8.77977,
     +     .01605,    .00814, 262.36869,   9.28436,   8.70704,
     +    7.99697,   9.03100,   9.29174,
     +     .01629,    .00826, 276.54222,   9.78123,   9.21130,
     +    8.50765,   9.52955,   9.78860 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
     +     .01654,    .00838, 291.37405,  10.30294,   9.74192,
     +    9.04687,  10.05293,  10.31028,
     +     .01677,    .00851, 306.23416,  10.83192,  10.27874,
     +    9.59099,  10.58353,  10.83924,
     +     .01701,    .00863, 320.76441,  11.35298,  10.80749,
     +   10.12706,  11.10612,  11.36029,
     +     .01722,    .00874, 334.91088,  11.86324,  11.32566,
     +   10.65311,  11.61781,  11.87052,
     +     .01745,    .00887, 349.28818,  12.38892,  11.85791,
     +   11.19141,  12.14492,  12.39618 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
     +     .01166,    .00607,    .97977,    .62829,    .00000,
     +     .00000,    .33882,    .63201,
     +     .01192,    .00618,   1.99303,    .66271,    .00000,
     +     .00000,    .37602,    .66647,
     +     .01230,    .00636,   3.88435,    .72783,    .01710,
     +     .00000,    .44511,    .73161,
     +     .01258,    .00650,   5.61674,    .78551,    .05257,
     +     .00000,    .50558,    .78932,
     +     .01288,    .00664,   7.64850,    .85570,    .13352,
     +     .00000,    .57859,    .85953,
     +     .01315,    .00676,   9.68931,    .92510,    .20821,
     +     .00000,    .65036,    .92894,
     +     .01341,    .00688,  11.92827,    .99848,    .28831,
     +     .00000,    .72597,   1.00234,
     +     .01368,    .00702,  14.61377,   1.08410,    .38299,
     +     .00000,    .81391,   1.08797 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
     +     .01391,    .00714,  17.17268,   1.16596,    .46940,
     +     .00000,    .89773,   1.16983,
     +     .01415,    .00724,  19.86793,   1.25126,    .55966,
     +     .00000,    .98489,   1.25514,
     +     .01434,    .00734,  22.19212,   1.32327,    .63730,
     +     .00000,   1.05836,   1.32715,
     +     .01473,    .00753,  27.60731,   1.49112,    .81427,
     +     .00000,   1.22922,   1.49502,
     +     .01509,    .00771,  32.23869,   1.65000,    .98014,
     +     .22323,   1.39061,   1.65390,
     +     .01548,    .00791,  38.16901,   1.84492,   1.18365,
     +     .45980,   1.58829,   1.84882,
     +     .01591,    .00811,  44.96677,   2.06680,   1.41461,
     +     .70143,   1.81295,   2.07070,
     +     .01629,    .00831,  51.67381,   2.28527,   1.64150,
     +     .93882,   2.03388,   2.28918 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
     +     .01669,    .00851,  58.97549,   2.52320,   1.88831,
     +    1.19583,   2.27424,   2.52712,
     +     .01701,    .00867,  65.40990,   2.73395,   2.10570,
     +    1.41939,   2.48695,   2.73787,
     +     .01742,    .00888,  73.65533,   3.00579,   2.38499,
     +    1.70538,   2.76113,   3.00971,
     +     .01778,    .00907,  81.39891,   3.26203,   2.64856,
     +    1.97655,   3.01938,   3.26594,
     +     .01812,    .00924,  88.86880,   3.51037,   2.90405,
     +    2.23954,   3.26953,   3.51428,
     +     .01855,    .00946,  98.72115,   3.84228,   3.24317,
     +    2.58495,   3.60369,   3.84619,
     +     .01896,    .00967, 108.47353,   4.17335,   3.58166,
     +    2.93072,   3.93683,   4.17725,
     +     .01934,    .00986, 118.07307,   4.50122,   3.91752,
     +    3.27508,   4.26660,   4.50512 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
     +     .01973,    .01006, 127.90530,   4.84291,   4.26494,
     +    3.62744,   4.61014,   4.84681,
     +     .02011,    .01027, 137.93974,   5.19402,   4.62272,
     +    3.99190,   4.96303,   5.19792,
     +     .02048,    .01045, 147.76792,   5.54119,   4.97636,
     +    4.35210,   5.31186,   5.54508,
     +     .02082,    .01064, 157.21446,   5.87961,   5.31990,
     +    4.70051,   5.65181,   5.88350,
     +     .02118,    .01082, 167.07300,   6.23452,   5.68116,
     +    5.06850,   6.00825,   6.23839,
     +     .02153,    .01101, 176.85741,   6.59287,   6.04414,
     +    5.43584,   6.36806,   6.59674,
     +     .02186,    .01118, 186.52064,   6.94797,   6.40506,
     +    5.80303,   6.72453,   6.95184,
     +     .02218,    .01135, 195.69053,   7.29076,   6.75187,
     +    6.15373,   7.06861,   7.29462 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
     +     .02251,    .01151, 205.23851,   7.64920,   7.11542,
     +    6.52268,   7.42832,   7.65305,
     +     .02283,    .01169, 214.74522,   8.01089,   7.48142,
     +    6.89314,   7.79125,   8.01474,
     +     .02314,    .01185, 223.99207,   8.36565,   7.84043,
     +    7.25662,   8.14720,   8.36951,
     +     .02343,    .01200, 232.95179,   8.71172,   8.19095,
     +    7.61202,   8.49436,   8.71558,
     +     .02373,    .01216, 242.00345,   9.06666,   8.54933,
     +    7.97394,   8.85039,   9.07050 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
     +     .01402,    .00724,    .93702,    .57303,    .00000,
     +     .00000,    .30948,    .57533,
     +     .01433,    .00739,   1.89200,    .60548,    .00000,
     +     .00000,    .34432,    .60779,
     +     .01478,    .00761,   3.64922,    .66566,    .01647,
     +     .00000,    .40793,    .66800,
     +     .01513,    .00777,   5.23994,    .71827,    .04855,
     +     .00000,    .46294,    .72062,
     +     .01548,    .00795,   7.08584,    .78168,    .12172,
     +     .00000,    .52877,    .78404,
     +     .01580,    .00810,   8.92306,    .84387,    .18872,
     +     .00000,    .59301,    .84623,
     +     .01611,    .00825,  10.92354,    .90929,    .26014,
     +     .00000,    .66035,    .91166,
     +     .01643,    .00842,  13.30541,    .98524,    .34413,
     +     .00000,    .73827,    .98761 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
     +     .01672,    .00856,  15.55879,   1.05746,    .42034,
     +     .00000,    .81218,   1.05984,
     +     .01700,    .00870,  17.91802,   1.13241,    .49963,
     +     .00000,    .88871,   1.13479,
     +     .01722,    .00881,  19.94257,   1.19548,    .56761,
     +     .00000,    .95303,   1.19786,
     +     .01770,    .00904,  24.62850,   1.34178,    .72175,
     +     .00000,   1.10192,   1.34417,
     +     .01811,    .00926,  28.59366,   1.47948,    .86541,
     +     .19327,   1.24178,   1.48187,
     +     .01860,    .00951,  33.63734,   1.64753,   1.04071,
     +     .39747,   1.41218,   1.64993,
     +     .01910,    .00976,  39.37315,   1.83778,   1.23854,
     +     .60458,   1.60480,   1.84017,
     +     .01956,    .01000,  44.99047,   2.02413,   1.43185,
     +     .80697,   1.79326,   2.02653 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
     +     .02004,    .01024,  51.06425,   2.22610,   1.64110,
     +    1.02497,   1.99729,   2.22851,
     +     .02043,    .01044,  56.38349,   2.40420,   1.82459,
     +    1.21373,   2.17708,   2.40661,
     +     .02091,    .01070,  63.15875,   2.63291,   2.05925,
     +    1.45407,   2.40777,   2.63532,
     +     .02135,    .01091,  69.48442,   2.84757,   2.27979,
     +    1.68101,   2.62415,   2.84998,
     +     .02175,    .01112,  75.55523,   3.05482,   2.49276,
     +    1.90027,   2.83295,   3.05724,
     +     .02226,    .01139,  83.51546,   3.33063,   2.77416,
     +    2.18690,   3.11066,   3.33304,
     +     .02274,    .01165,  91.34958,   3.60453,   3.05387,
     +    2.47264,   3.38633,   3.60696,
     +     .02320,    .01188,  99.02140,   3.87473,   3.33034,
     +    2.75612,   3.65815,   3.87716 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
     +     .02366,    .01212, 106.83535,   4.15514,   3.61510,
     +    3.04488,   3.94015,   4.15758,
     +     .02411,    .01236, 114.77276,   4.44225,   3.90731,
     +    3.34254,   4.22877,   4.44468,
     +     .02455,    .01259, 122.51145,   4.72513,   4.19514,
     +    3.63570,   4.51306,   4.72756,
     +     .02496,    .01281, 129.91498,   4.99992,   4.47375,
     +    3.91822,   4.78916,   5.00236,
     +     .02538,    .01304, 137.61287,   5.28724,   4.76593,
     +    4.21582,   5.07778,   5.28969,
     +     .02579,    .01325, 145.21747,   5.57634,   5.05842,
     +    4.51177,   5.36812,   5.57878,
     +     .02619,    .01346, 152.70347,   5.86206,   5.34856,
     +    4.80692,   5.65501,   5.86451,
     +     .02656,    .01366, 159.77653,   6.13699,   5.62642,
     +    5.08784,   5.93104,   6.13945 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
     +     .02695,    .01387, 167.11944,   6.42378,   5.91701,
     +    5.38272,   6.21892,   6.42623,
     +     .02733,    .01407, 174.40283,   6.71232,   6.20872,
     +    5.67793,   6.50852,   6.71478,
     +     .02770,    .01426, 181.46441,   6.99463,   6.49415,
     +    5.96687,   6.79184,   6.99710,
     +     .02805,    .01445, 188.28698,   7.26939,   6.77219,
     +    6.24877,   7.06753,   7.27186,
     +     .02840,    .01464, 195.15441,   7.55042,   7.05570,
     +    6.53500,   7.34949,   7.55290 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
     +     .01596,    .00821,    .90775,    .53692,    .00000,
     +     .00000,    .29041,    .53845,
     +     .01632,    .00838,   1.82350,    .56797,    .00000,
     +     .00000,    .32363,    .56952,
     +     .01684,    .00864,   3.49114,    .62483,    .01609,
     +     .00000,    .38356,    .62636,
     +     .01722,    .00883,   4.98816,    .67406,    .04591,
     +     .00000,    .43496,    .67562,
     +     .01763,    .00903,   6.71204,    .73301,    .11399,
     +     .00000,    .49609,    .73457,
     +     .01799,    .00921,   8.41655,    .79049,    .17597,
     +     .00000,    .55541,    .79205,
     +     .01835,    .00939,  10.26243,    .85074,    .24176,
     +     .00000,    .61737,    .85230,
     +     .01872,    .00956,  12.44859,    .92042,    .31884,
     +     .00000,    .68884,    .92198 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
     +     .01904,    .00973,  14.50616,    .98644,    .38852,
     +     .00000,    .75636,    .98800,
     +     .01936,    .00990,  16.65102,   1.05474,    .46080,
     +     .00000,    .82610,   1.05630,
     +     .01961,    .01002,  18.48518,   1.11209,    .52261,
     +     .00000,    .88457,   1.11365,
     +     .02015,    .01030,  22.71035,   1.24465,    .66227,
     +     .00000,   1.01944,   1.24622,
     +     .02064,    .01055,  26.25823,   1.36891,    .79189,
     +     .17425,   1.14564,   1.37049,
     +     .02118,    .01083,  30.74934,   1.52002,    .94947,
     +     .35812,   1.29885,   1.52160,
     +     .02175,    .01112,  35.82764,   1.69038,   1.12657,
     +     .54369,   1.47135,   1.69198,
     +     .02227,    .01139,  40.77438,   1.85664,   1.29897,
     +     .72433,   1.63948,   1.85823 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
     +     .02280,    .01168,  46.09679,   2.03621,   1.48494,
     +     .91821,   1.82090,   2.03781,
     +     .02325,    .01191,  50.73712,   2.19405,   1.64748,
     +    1.08551,   1.98023,   2.19565,
     +     .02380,    .01220,  56.62178,   2.39609,   1.85470,
     +    1.29784,   2.18406,   2.39771,
     +     .02430,    .01246,  62.09268,   2.58515,   2.04883,
     +    1.49771,   2.37465,   2.58677,
     +     .02475,    .01269,  67.32369,   2.76719,   2.23580,
     +    1.69029,   2.55807,   2.76881,
     +     .02532,    .01300,  74.15369,   3.00866,   2.48206,
     +    1.94122,   2.80127,   3.01031,
     +     .02586,    .01328,  80.84748,   3.24774,   2.72609,
     +    2.19059,   3.04192,   3.24940,
     +     .02639,    .01356,  87.37820,   3.48293,   2.96664,
     +    2.43735,   3.27855,   3.48458 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
     +     .02691,    .01384,  94.00283,   3.72627,   3.21362,
     +    2.68786,   3.52332,   3.72794,
     +     .02743,    .01411, 100.70937,   3.97478,   3.46644,
     +    2.94547,   3.77318,   3.97645,
     +     .02792,    .01437, 107.22629,   4.21900,   3.71483,
     +    3.19855,   4.01866,   4.22069,
     +     .02838,    .01462, 113.43986,   4.45564,   3.95466,
     +    3.44179,   4.25647,   4.45733,
     +     .02885,    .01487, 119.88318,   4.70255,   4.20566,
     +    3.69753,   4.50453,   4.70425,
     +     .02932,    .01512, 126.22676,   4.95037,   4.45626,
     +    3.95115,   4.75347,   4.95208,
     +     .02976,    .01536, 132.45672,   5.19480,   4.70441,
     +    4.20366,   4.99896,   5.19653,
     +     .03019,    .01559, 138.32442,   5.42949,   4.94149,
     +    4.44338,   5.23462,   5.43123 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
     +     .03062,    .01582, 144.40301,   5.67385,   5.18903,
     +    4.69464,   5.47995,   5.67559,
     +     .03105,    .01604, 150.41518,   5.91921,   5.43698,
     +    4.94562,   5.72626,   5.92096,
     +     .03146,    .01627, 156.23084,   6.15883,   5.67917,
     +    5.19084,   5.96677,   6.16060,
     +     .03186,    .01647, 161.83795,   6.39165,   5.91472,
     +    5.42971,   6.20043,   6.39342,
     +     .03225,    .01669, 167.46649,   6.62931,   6.15439,
     +    5.67173,   6.43893,   6.63110 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
     +     .01767,    .00905,    .88594,    .51057,    .00000,
     +     .00000,    .27654,    .51159,
     +     .01805,    .00924,   1.77242,    .54056,    .00000,
     +     .00000,    .30852,    .54159,
     +     .01862,    .00953,   3.37356,    .59490,    .01582,
     +     .00000,    .36571,    .59593,
     +     .01906,    .00974,   4.80159,    .64164,    .04398,
     +     .00000,    .41445,    .64267,
     +     .01951,    .00998,   6.43620,    .69730,    .10832,
     +     .00000,    .47212,    .69834,
     +     .01991,    .01018,   8.04402,    .75137,    .16664,
     +     .00000,    .52788,    .75240,
     +     .02030,    .01037,   9.77778,    .80784,    .22834,
     +     .00000,    .58593,    .80889,
     +     .02071,    .01059,  11.82261,    .87298,    .30044,
     +     .00000,    .65272,    .87403 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
     +     .02106,    .01077,  13.73931,    .93452,    .36541,
     +     .00000,    .71565,    .93557,
     +     .02141,    .01095,  15.73053,    .99803,    .43263,
     +     .00000,    .78047,    .99908,
     +     .02170,    .01109,  17.42864,   1.05127,    .49002,
     +     .00000,    .83474,   1.05233,
     +     .02229,    .01140,  21.32583,   1.17400,    .61933,
     +     .00000,    .95960,   1.17506,
     +     .02282,    .01168,  24.57900,   1.28868,    .73896,
     +     .16065,   1.07606,   1.28975,
     +     .02342,    .01199,  28.68127,   1.42771,    .88396,
     +     .33011,   1.21703,   1.42879,
     +     .02406,    .01231,  33.29894,   1.58399,   1.04641,
     +     .50047,   1.37527,   1.58507,
     +     .02463,    .01262,  37.77800,   1.73605,   1.20408,
     +     .66580,   1.52906,   1.73713 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
     +     .02523,    .01293,  42.57849,   1.89982,   1.37370,
     +     .84276,   1.69455,   1.90094,
     +     .02571,    .01319,  46.74903,   2.04343,   1.52156,
     +     .99504,   1.83953,   2.04455,
     +     .02631,    .01351,  52.01961,   2.22681,   1.70959,
     +    1.18783,   2.02454,   2.22793,
     +     .02685,    .01379,  56.90329,   2.39797,   1.88534,
     +    1.36888,   2.19713,   2.39911,
     +     .02735,    .01406,  61.55911,   2.56243,   2.05424,
     +    1.54296,   2.36287,   2.56359,
     +     .02799,    .01440,  67.61767,   2.78008,   2.27615,
     +    1.76918,   2.58208,   2.78124,
     +     .02860,    .01472,  73.53593,   2.99502,   2.49552,
     +    1.99346,   2.79848,   2.99620,
     +     .02916,    .01502,  79.29307,   3.20600,   2.71129,
     +    2.21491,   3.01078,   3.20720 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
     +     .02973,    .01533,  85.11418,   3.42379,   2.93228,
     +    2.43916,   3.22987,   3.42500,
     +     .03030,    .01563,  90.99143,   3.64573,   3.15806,
     +    2.66932,   3.45306,   3.64696,
     +     .03083,    .01591,  96.68750,   3.86343,   3.37945,
     +    2.89497,   3.67192,   3.86467,
     +     .03135,    .01619, 102.10384,   4.07394,   3.59276,
     +    3.11141,   3.88351,   4.07519,
     +     .03187,    .01647, 107.70868,   4.29323,   3.81567,
     +    3.33862,   4.10387,   4.29450,
     +     .03238,    .01675, 113.21157,   4.51289,   4.03777,
     +    3.56347,   4.32455,   4.51417,
     +     .03287,    .01701, 118.60595,   4.72923,   4.25738,
     +    3.78705,   4.54185,   4.73053,
     +     .03333,    .01726, 123.67385,   4.93655,   4.46680,
     +    3.99887,   4.75007,   4.93786 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
     +     .03381,    .01752, 128.91504,   5.15214,   4.68517,
     +    4.22061,   4.96656,   5.15347,
     +     .03428,    .01777, 134.08727,   5.36825,   4.90354,
     +    4.44173,   5.18353,   5.36958,
     +     .03473,    .01802, 139.08139,   5.57900,   5.11654,
     +    4.65747,   5.39511,   5.58035,
     +     .03516,    .01825, 143.88826,   5.78350,   5.32344,
     +    4.86737,   5.60038,   5.78487,
     +     .03560,    .01848, 148.70296,   5.99194,   5.53362,
     +    5.07967,   5.80958,   5.99332 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
     +     .02424,    .01235,    .82158,    .43743,    .00000,
     +     .00000,    .23852,    .43763,
     +     .02476,    .01261,   1.62366,    .46409,    .00000,
     +     .00000,    .26675,    .46428,
     +     .02554,    .01302,   3.03401,    .51100,    .01523,
     +     .00000,    .31592,    .51121,
     +     .02612,    .01332,   4.26638,    .55056,    .03864,
     +     .00000,    .35704,    .55077,
     +     .02674,    .01365,   5.64994,    .59692,    .09242,
     +     .00000,    .40500,    .59715,
     +     .02728,    .01392,   6.98824,    .64136,    .14050,
     +     .00000,    .45076,    .64159,
     +     .02780,    .01420,   8.41170,    .68736,    .19088,
     +     .00000,    .49800,    .68760,
     +     .02835,    .01450,  10.06826,    .73994,    .24922,
     +     .00000,    .55188,    .74021 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
     +     .02884,    .01476,  11.60082,    .78917,    .30129,
     +     .00000,    .60220,    .78943,
     +     .02932,    .01501,  13.17565,    .83958,    .35478,
     +     .00000,    .65365,    .83986,
     +     .02970,    .01520,  14.50688,    .88164,    .40020,
     +     .00000,    .69651,    .88192,
     +     .03051,    .01564,  17.52588,    .97772,    .50162,
     +     .00000,    .79425,    .97802,
     +     .03123,    .01602,  19.99824,   1.06663,    .59452,
     +     .12390,    .88456,   1.06696,
     +     .03204,    .01646,  23.07673,   1.17343,    .70608,
     +     .25505,    .99287,   1.17378,
     +     .03290,    .01691,  26.49221,   1.29230,    .82982,
     +     .38528,   1.11327,   1.29268,
     +     .03368,    .01734,  29.76044,   1.40689,    .94881,
     +     .51051,   1.22922,   1.40729 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
     +     .03447,    .01777,  33.21984,   1.52928,   1.07571,
     +     .64335,   1.35292,   1.52970,
     +     .03514,    .01813,  36.19120,   1.63573,   1.18544,
     +     .75671,   1.46045,   1.63618,
     +     .03595,    .01857,  39.90472,   1.77061,   1.32389,
     +     .89909,   1.59660,   1.77109,
     +     .03668,    .01896,  43.30892,   1.89555,   1.45232,
     +    1.03180,   1.72264,   1.89605,
     +     .03734,    .01933,  46.52389,   2.01478,   1.57491,
     +    1.15852,   1.84287,   2.01532,
     +     .03820,    .01979,  50.66206,   2.17135,   1.73471,
     +    1.32187,   2.00066,   2.17192,
     +     .03900,    .02023,  54.66186,   2.32479,   1.89146,
     +    1.48257,   2.15523,   2.32540,
     +     .03976,    .02065,  58.51624,   2.47437,   2.04460,
     +    1.64020,   2.30584,   2.47501 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
     +     .04054,    .02107,  62.37242,   2.62760,   2.20021,
     +    1.79849,   2.46008,   2.62827,
     +     .04129,    .02148,  66.23250,   2.78277,   2.35821,
     +    1.95998,   2.61622,   2.78347,
     +     .04202,    .02188,  69.94185,   2.93399,   2.51217,
     +    2.11732,   2.76835,   2.93473,
     +     .04270,    .02225,  73.43796,   3.07930,   2.65954,
     +    2.26721,   2.91449,   3.08007,
     +     .04338,    .02262,  77.03154,   3.22989,   2.81277,
     +    2.42382,   3.06591,   3.23069,
     +     .04407,    .02300,  80.52806,   3.37976,   2.96444,
     +    2.57772,   3.21657,   3.38059,
     +     .04472,    .02336,  83.93574,   3.52669,   3.11377,
     +    2.73013,   3.36426,   3.52755,
     +     .04533,    .02370,  87.11002,   3.66666,   3.25527,
     +    2.87357,   3.50493,   3.66756 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
     +     .04596,    .02404,  90.37541,   3.81159,   3.40224,
     +    3.02318,   3.65056,   3.81251,
     +     .04658,    .02439,  93.57388,   3.95610,   3.54840,
     +    3.17152,   3.79574,   3.95706,
     +     .04718,    .02471,  96.64364,   4.09639,   3.69034,
     +    3.31562,   3.93667,   4.09739,
     +     .04775,    .02503,  99.58265,   4.23197,   3.82766,
     +    3.45527,   4.07285,   4.23298,
     +     .04833,    .02535, 102.50464,   4.36945,   3.96642,
     +    3.59574,   4.21093,   4.37050 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
     +     .03335,    .01698,    .76577,    .37641,    .00000,
     +     .00000,    .20747,    .37670,
     +     .03404,    .01734,   1.49295,    .39969,    .00000,
     +     .00000,    .23203,    .40000,
     +     .03509,    .01790,   2.73394,    .43963,    .01494,
     +     .00000,    .27380,    .43998,
     +     .03587,    .01832,   3.79568,    .47269,    .03409,
     +     .00000,    .30814,    .47306,
     +     .03670,    .01876,   4.96318,    .51089,    .07866,
     +     .00000,    .34763,    .51130,
     +     .03743,    .01916,   6.07247,    .54704,    .11797,
     +     .00000,    .38485,    .54748,
     +     .03812,    .01953,   7.23520,    .58411,    .15875,
     +     .00000,    .42293,    .58459,
     +     .03888,    .01994,   8.56918,    .62614,    .20558,
     +     .00000,    .46600,    .62664 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
     +     .03953,    .02030,   9.78620,    .66510,    .24697,
     +     .00000,    .50585,    .66563,
     +     .04018,    .02065,  11.02230,    .70474,    .28920,
     +     .00000,    .54632,    .70529,
     +     .04069,    .02093,  12.05752,    .73760,    .32484,
     +     .00000,    .57985,    .73819,
     +     .04178,    .02152,  14.37568,    .81206,    .40375,
     +     .00000,    .65565,    .81270,
     +     .04275,    .02206,  16.23678,    .88029,    .47532,
     +     .09394,    .72500,    .88097,
     +     .04385,    .02266,  18.52123,    .96147,    .56044,
     +     .19480,    .80741,    .96220,
     +     .04499,    .02330,  21.01695,   1.05091,    .65390,
     +     .29369,    .89810,   1.05171,
     +     .04604,    .02388,  23.37062,   1.13634,    .74290,
     +     .38786,    .98461,   1.13718 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
     +     .04712,    .02446,  25.82898,   1.22675,    .83700,
     +     .48687,   1.07609,   1.22766,
     +     .04801,    .02496,  27.91486,   1.30475,    .91769,
     +     .57065,   1.15497,   1.30571,
     +     .04909,    .02557,  30.49070,   1.40278,   1.01865,
     +     .67499,   1.25403,   1.40380,
     +     .05007,    .02611,  32.82503,   1.49289,   1.11158,
     +     .77150,   1.34502,   1.49395,
     +     .05096,    .02660,  35.00742,   1.57828,   1.19967,
     +     .86301,   1.43121,   1.57939,
     +     .05210,    .02724,  37.78339,   1.68948,   1.31353,
     +     .97995,   1.54341,   1.69066,
     +     .05318,    .02784,  40.43612,   1.79761,   1.42433,
     +    1.09409,   1.65245,   1.79885,
     +     .05420,    .02842,  42.96671,   1.90224,   1.53181,
     +    1.20526,   1.75793,   1.90355 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
     +     .05522,    .02898,  45.46907,   2.00859,   1.64014,
     +    1.31595,   1.86509,   2.00995,
     +     .05623,    .02955,  47.95087,   2.11556,   1.74940,
     +    1.42816,   1.97285,   2.11699,
     +     .05718,    .03008,  50.31388,   2.21912,   1.85517,
     +    1.53675,   2.07716,   2.22062,
     +     .05809,    .03058,  52.51929,   2.31797,   1.95572,
     +    1.63948,   2.17668,   2.31952,
     +     .05901,    .03110,  54.76996,   2.41986,   2.05971,
     +    1.74626,   2.27924,   2.42146,
     +     .05990,    .03159,  56.93763,   2.52057,   2.16193,
     +    1.85043,   2.38060,   2.52222,
     +     .06077,    .03208,  59.03729,   2.61883,   2.26210,
     +    1.95315,   2.47948,   2.62054,
     +     .06159,    .03254,  60.97421,   2.71184,   2.35640,
     +    2.04916,   2.57307,   2.71361 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
     +     .06242,    .03300,  62.95548,   2.80773,   2.45393,
     +    2.14889,   2.66951,   2.80954,
     +     .06324,    .03345,  64.87976,   2.90280,   2.55036,
     +    2.24719,   2.76514,   2.90466,
     +     .06402,    .03390,  66.71449,   2.99465,   2.64357,
     +    2.34224,   2.85751,   2.99657,
     +     .06477,    .03431,  68.46072,   3.08302,   2.73335,
     +    2.43395,   2.94639,   3.08499,
     +     .06553,    .03474,  70.18190,   3.17215,   2.82357,
     +    2.52567,   3.03601,   3.17418 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
     +     .04021,    .02051,    .74112,    .34575,    .00000,
     +     .00000,    .19214,    .34647,
     +     .04103,    .02095,   1.42850,    .36702,    .00000,
     +     .00000,    .21456,    .36778,
     +     .04226,    .02162,   2.57886,    .40305,    .01484,
     +     .00000,    .25225,    .40386,
     +     .04320,    .02212,   3.55035,    .43259,    .03167,
     +     .00000,    .28293,    .43344,
     +     .04419,    .02266,   4.60480,    .46647,    .07137,
     +     .00000,    .31797,    .46738,
     +     .04504,    .02313,   5.59549,    .49828,    .10611,
     +     .00000,    .35076,    .49924,
     +     .04588,    .02359,   6.62437,    .53074,    .14195,
     +     .00000,    .38413,    .53176,
     +     .04677,    .02408,   7.79433,    .56736,    .18290,
     +     .00000,    .42170,    .56843 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
     +     .04755,    .02452,   8.85243,    .60114,    .21888,
     +     .00000,    .45626,    .60224,
     +     .04831,    .02494,   9.91933,    .63534,    .25544,
     +     .00000,    .49123,    .63649,
     +     .04891,    .02527,  10.80764,    .66363,    .28621,
     +     .00000,    .52010,    .66481,
     +     .05022,    .02600,  12.78127,    .72736,    .35396,
     +     .00000,    .58505,    .72861,
     +     .05137,    .02664,  14.34675,    .78542,    .41505,
     +     .07895,    .64411,    .78675,
     +     .05267,    .02737,  16.25021,    .85410,    .48729,
     +     .16502,    .71391,    .85551,
     +     .05404,    .02814,  18.30962,    .92933,    .56613,
     +     .24877,    .79024,    .93081,
     +     .05528,    .02883,  20.23419,   1.00075,    .64078,
     +     .32808,    .86265,   1.00231 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
     +     .05656,    .02954,  22.22754,   1.07594,    .71928,
     +     .41101,    .93883,   1.07759,
     +     .05761,    .03014,  23.90585,   1.14050,    .78625,
     +     .48080,   1.00416,   1.14222,
     +     .05890,    .03087,  25.96272,   1.22121,    .86963,
     +     .56730,   1.08582,   1.22302,
     +     .06005,    .03152,  27.81328,   1.29505,    .94600,
     +     .64693,   1.16047,   1.29692,
     +     .06111,    .03211,  29.53240,   1.36473,   1.01809,
     +     .72211,   1.23087,   1.36667,
     +     .06246,    .03288,  31.70252,   1.45502,   1.11078,
     +     .81766,   1.32206,   1.45705,
     +     .06374,    .03360,  33.76138,   1.54236,   1.20055,
     +     .91050,   1.41024,   1.54449,
     +     .06494,    .03427,  35.71287,   1.62653,   1.28726,
     +    1.00053,   1.49517,   1.62873 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
     +     .06615,    .03495,  37.62798,   1.71165,   1.37419,
     +    1.08968,   1.58103,   1.71393,
     +     .06733,    .03562,  39.51626,   1.79690,   1.46151,
     +    1.17969,   1.66701,   1.79927,
     +     .06846,    .03626,  41.30348,   1.87912,   1.54570,
     +    1.26646,   1.74991,   1.88156,
     +     .06952,    .03686,  42.96086,   1.95725,   1.62540,
     +    1.34819,   1.82866,   1.95978,
     +     .07059,    .03746,  44.64462,   2.03753,   1.70757,
     +    1.43289,   1.90954,   2.04012,
     +     .07165,    .03806,  46.25525,   2.11653,   1.78796,
     +    1.51512,   1.98915,   2.11920,
     +     .07267,    .03863,  47.80944,   2.19339,   1.86654,
     +    1.59600,   2.06657,   2.19614,
     +     .07362,    .03918,  49.23377,   2.26586,   1.94019,
     +    1.67126,   2.13957,   2.26867 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
     +     .07460,    .03972,  50.68551,   2.34036,   2.01618,
     +    1.74925,   2.21459,   2.34324,
     +     .07556,    .04026,  52.08755,   2.41395,   2.09103,
     +    1.82583,   2.28869,   2.41690,
     +     .07647,    .04078,  53.41852,   2.48485,   2.16317,
     +    1.89966,   2.36007,   2.48786,
     +     .07735,    .04128,  54.68049,   2.55289,   2.23247,
     +    1.97073,   2.42855,   2.55596,
     +     .07824,    .04177,  55.91693,   2.62126,   2.30186,
     +    2.04153,   2.49738,   2.62439 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
     +     .04592,    .02346,    .73141,    .32567,    .00000,
     +     .00000,    .18227,    .32694,
     +     .04683,    .02395,   1.39189,    .34553,    .00000,
     +     .00000,    .20321,    .34686,
     +     .04822,    .02472,   2.48080,    .37892,    .01473,
     +     .00000,    .23811,    .38031,
     +     .04929,    .02531,   3.39141,    .40610,    .03000,
     +     .00000,    .26637,    .40756,
     +     .05039,    .02592,   4.37018,    .43714,    .06645,
     +     .00000,    .29848,    .43866,
     +     .05137,    .02646,   5.28205,    .46614,    .09817,
     +     .00000,    .32837,    .46771,
     +     .05231,    .02698,   6.22257,    .49561,    .13077,
     +     .00000,    .35868,    .49723,
     +     .05331,    .02755,   7.28495,    .52874,    .16789,
     +     .00000,    .39269,    .53043 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
     +     .05420,    .02805,   8.23948,    .55917,    .20037,
     +     .00000,    .42387,    .56091,
     +     .05506,    .02853,   9.19674,    .58991,    .23328,
     +     .00000,    .45530,    .59170,
     +     .05574,    .02892,   9.99031,    .61526,    .26091,
     +     .00000,    .48120,    .61709,
     +     .05722,    .02975,  11.74312,    .67216,    .32152,
     +     .00000,    .53924,    .67410,
     +     .05852,    .03047,  13.12092,    .72379,    .37594,
     +     .06940,    .59181,    .72579,
     +     .05999,    .03131,  14.78406,    .78460,    .44003,
     +     .14609,    .65365,    .78671,
     +     .06152,    .03219,  16.57042,    .85091,    .50967,
     +     .22030,    .72100,    .85312,
     +     .06293,    .03298,  18.22839,    .91360,    .57533,
     +     .29028,    .78461,    .91590 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
     +     .06437,    .03379,  19.93482,    .97934,    .64409,
     +     .36315,    .85126,    .98173,
     +     .06557,    .03447,  21.36319,   1.03555,    .70253,
     +     .42425,    .90822,   1.03803,
     +     .06702,    .03530,  23.10374,   1.10559,    .77503,
     +     .49970,    .97913,   1.10817,
     +     .06831,    .03604,  24.66118,   1.16942,    .84120,
     +     .56891,   1.04372,   1.17209,
     +     .06950,    .03672,  26.10101,   1.22948,    .90346,
     +     .63405,   1.10446,   1.23223,
     +     .07103,    .03759,  27.90810,   1.30699,    .98322,
     +     .71653,   1.18282,   1.30985,
     +     .07245,    .03839,  29.61311,   1.38172,   1.06017,
     +     .79636,   1.25834,   1.38468,
     +     .07380,    .03916,  31.22143,   1.45348,   1.13425,
     +     .87353,   1.33081,   1.45654 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
     +     .07516,    .03993,  32.79052,   1.52577,   1.20824,
     +     .94965,   1.40382,   1.52893,
     +     .07649,    .04069,  34.33072,   1.59797,   1.28235,
     +    1.02629,   1.47669,   1.60121,
     +     .07775,    .04141,  35.78190,   1.66738,   1.35358,
     +    1.09993,   1.54673,   1.67072,
     +     .07895,    .04208,  37.12089,   1.73313,   1.42078,
     +    1.16907,   1.61307,   1.73656,
     +     .08015,    .04277,  38.47661,   1.80051,   1.48991,
     +    1.24055,   1.68103,   1.80403,
     +     .08134,    .04344,  39.76649,   1.86662,   1.55732,
     +    1.30971,   1.74771,   1.87022,
     +     .08246,    .04408,  41.00760,   1.93079,   1.62307,
     +    1.37761,   1.81241,   1.93447,
     +     .08354,    .04469,  42.13908,   1.99111,   1.68450,
     +    1.44058,   1.87322,   1.99487 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
     +     .08463,    .04530,  43.28928,   2.05299,   1.74776,
     +    1.50572,   1.93560,   2.05682,
     +     .08570,    .04591,  44.39505,   2.11394,   1.80991,
     +    1.56951,   1.99705,   2.11788,
     +     .08671,    .04649,  45.44124,   2.17254,   1.86966,
     +    1.63086,   2.05610,   2.17655,
     +     .08769,    .04705,  46.43027,   2.22866,   1.92697,
     +    1.68981,   2.11265,   2.23274,
     +     .08868,    .04760,  47.39459,   2.28491,   1.98417,
     +    1.74836,   2.16932,   2.28905 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
     +     .05091,    .02617,    .73280,    .31194,    .00000,
     +     .00000,    .17520,    .31329,
     +     .05192,    .02672,   1.37248,    .33071,    .00000,
     +     .00000,    .19496,    .33211,
     +     .05345,    .02757,   2.41426,    .36204,    .01455,
     +     .00000,    .22770,    .36353,
     +     .05461,    .02822,   3.27845,    .38744,    .02864,
     +     .00000,    .25409,    .38900,
     +     .05583,    .02891,   4.19980,    .41631,    .06265,
     +     .00000,    .28395,    .41796,
     +     .05690,    .02951,   5.05217,    .44320,    .09212,
     +     .00000,    .31167,    .44491,
     +     .05793,    .03010,   5.92626,    .47045,    .12230,
     +     .00000,    .33970,    .47222,
     +     .05905,    .03072,   6.90809,    .50099,    .15658,
     +     .00000,    .37106,    .50285 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
     +     .06002,    .03128,   7.78546,    .52897,    .18648,
     +     .00000,    .39972,    .53088,
     +     .06096,    .03181,   8.66136,    .55714,    .21671,
     +     .00000,    .42854,    .55913,
     +     .06172,    .03225,   9.38486,    .58034,    .24204,
     +     .00000,    .45226,    .58237,
     +     .06334,    .03316,  10.97518,    .63228,    .29743,
     +     .00000,    .50525,    .63441,
     +     .06477,    .03398,  12.21584,    .67921,    .34699,
     +     .06249,    .55307,    .68146,
     +     .06638,    .03490,  13.70448,    .73433,    .40517,
     +     .13234,    .60915,    .73669,
     +     .06807,    .03586,  15.29370,    .79419,    .46814,
     +     .19962,    .67000,    .79666,
     +     .06963,    .03675,  16.76018,    .85059,    .52731,
     +     .26286,    .72726,    .85318 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
     +     .07119,    .03765,  18.26153,    .90954,    .58908,
     +     .32848,    .78707,    .91224,
     +     .07250,    .03840,  19.51207,    .95980,    .64141,
     +     .38333,    .83802,    .96259,
     +     .07410,    .03931,  21.02874,   1.02222,    .70612,
     +     .45084,    .90126,   1.02513,
     +     .07552,    .04012,  22.37958,   1.07895,    .76501,
     +     .51260,    .95870,   1.08196,
     +     .07682,    .04087,  23.62325,   1.13216,    .82028,
     +     .57057,   1.01256,   1.13527,
     +     .07848,    .04181,  25.17638,   1.20064,    .89085,
     +     .64374,   1.08185,   1.20388,
     +     .08005,    .04271,  26.63512,   1.26645,    .95873,
     +     .71434,   1.14839,   1.26980,
     +     .08152,    .04355,  28.00562,   1.32947,   1.02392,
     +     .78242,   1.21210,   1.33293 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
     +     .08301,    .04440,  29.33596,   1.39277,   1.08881,
     +     .84935,   1.27606,   1.39634,
     +     .08445,    .04522,  30.63678,   1.45582,   1.15364,
     +     .91656,   1.33975,   1.45950,
     +     .08583,    .04600,  31.85758,   1.51627,   1.21579,
     +     .98099,   1.40080,   1.52006,
     +     .08713,    .04674,  32.97902,   1.57339,   1.27427,
     +    1.04130,   1.45849,   1.57728,
     +     .08843,    .04749,  34.11114,   1.63181,   1.33432,
     +    1.10356,   1.51746,   1.63579,
     +     .08972,    .04823,  35.18344,   1.68896,   1.39269,
     +    1.16361,   1.57514,   1.69304,
     +     .09096,    .04892,  36.21277,   1.74433,   1.44955,
     +    1.22248,   1.63102,   1.74851,
     +     .09211,    .04959,  37.14690,   1.79624,   1.50252,
     +    1.27692,   1.68340,   1.80051 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
     +     .09329,    .05025,  38.09441,   1.84941,   1.55699,
     +    1.33315,   1.73705,   1.85377,
     +     .09446,    .05091,  39.00154,   1.90167,   1.61037,
     +    1.38809,   1.78977,   1.90612,
     +     .09557,    .05154,  39.85720,   1.95181,   1.66159,
     +    1.44082,   1.84035,   1.95635,
     +     .09662,    .05214,  40.66408,   1.99974,   1.71065,
     +    1.49143,   1.88869,   2.00436,
     +     .09769,    .05273,  41.44735,   2.04768,   1.75950,
     +    1.54156,   1.93703,   2.05238 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
     +     .07028,    .03697,    .76121,    .27432,    .00000,
     +     .00000,    .15625,    .27677,
     +     .07161,    .03774,   1.33972,    .28961,    .00000,
     +     .00000,    .17234,    .29214,
     +     .07365,    .03891,   2.24311,    .31477,    .01366,
     +     .00000,    .19866,    .31746,
     +     .07521,    .03982,   2.97177,    .33493,    .02435,
     +     .00000,    .21963,    .33772,
     +     .07684,    .04077,   3.72778,    .35762,    .05141,
     +     .00000,    .24314,    .36054,
     +     .07827,    .04159,   4.41087,    .37851,    .07453,
     +     .00000,    .26471,    .38154,
     +     .07966,    .04241,   5.09780,    .39953,    .09800,
     +     .00000,    .28638,    .40265,
     +     .08116,    .04328,   5.85511,    .42288,    .12444,
     +     .00000,    .31040,    .42611 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
     +     .08246,    .04405,   6.51964,    .44406,    .14727,
     +     .00000,    .33217,    .44740,
     +     .08373,    .04479,   7.17298,    .46525,    .17017,
     +     .00000,    .35390,    .46868,
     +     .08475,    .04539,   7.70610,    .48260,    .18927,
     +     .00000,    .37167,    .48611,
     +     .08692,    .04665,   8.85910,    .52106,    .23061,
     +     .00000,    .41102,    .52474,
     +     .08883,    .04777,   9.73613,    .55542,    .26719,
     +     .04364,    .44614,    .55927,
     +     .09098,    .04902,  10.76564,    .59535,    .30965,
     +     .09529,    .48688,    .59935,
     +     .09324,    .05032,  11.84225,    .63818,    .35507,
     +     .14431,    .53054,    .64236,
     +     .09528,    .05152,  12.81636,    .67807,    .39726,
     +     .18986,    .57118,    .68242 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
     +     .09737,    .05273,  13.79572,    .71931,    .44082,
     +     .23662,    .61316,    .72383,
     +     .09910,    .05374,  14.59778,    .75411,    .47736,
     +     .27529,    .64857,    .75878,
     +     .10121,    .05495,  15.55441,    .79690,    .52207,
     +     .32242,    .69206,    .80174,
     +     .10307,    .05603,  16.39300,    .83539,    .56238,
     +     .36513,    .73118,    .84038,
     +     .10479,    .05702,  17.15427,    .87120,    .59988,
     +     .40488,    .76754,    .87633,
     +     .10695,    .05828,  18.08849,    .91678,    .64724,
     +     .45449,    .81383,    .92208,
     +     .10900,    .05945,  18.95179,    .96013,    .69235,
     +     .50191,    .85782,    .96561,
     +     .11093,    .06056,  19.75138,   1.00127,    .73528,
     +     .54723,    .89958,   1.00690 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
     +     .11284,    .06165,  20.51337,   1.04214,    .77755,
     +     .59129,    .94103,   1.04793,
     +     .11472,    .06273,  21.24858,   1.08251,    .81944,
     +     .63519,    .98197,   1.08845,
     +     .11650,    .06374,  21.92900,   1.12088,    .85926,
     +     .67693,   1.02088,   1.12697,
     +     .11816,    .06469,  22.54410,   1.15680,    .89638,
     +     .71563,   1.05730,   1.16303,
     +     .11985,    .06565,  23.15880,   1.19329,    .93425,
     +     .75534,   1.09428,   1.19967,
     +     .12150,    .06658,  23.73067,   1.22866,    .97072,
     +     .79327,   1.13013,   1.23516,
     +     .12307,    .06748,  24.27517,   1.26271,   1.00603,
     +     .83026,   1.16463,   1.26934,
     +     .12455,    .06832,  24.76044,   1.29434,   1.03863,
     +     .86414,   1.19670,   1.30110 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
     +     .12605,    .06916,  25.24882,   1.32656,   1.07198,
     +     .89897,   1.22935,   1.33346,
     +     .12752,    .06999,  25.70909,   1.35798,   1.10440,
     +     .93272,   1.26118,   1.36499,
     +     .12893,    .07079,  26.13845,   1.38793,   1.13533,
     +     .96494,   1.29153,   1.39506,
     +     .13026,    .07154,  26.53952,   1.41640,   1.16478,
     +     .99568,   1.32038,   1.42364,
     +     .13160,    .07229,  26.92195,   1.44464,   1.19387,
     +    1.02589,   1.34899,   1.45199 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
     +     .09728,    .05280,    .86724,    .24373,    .00000,
     +     .00000,    .14019,    .24795,
     +     .09907,    .05386,   1.38238,    .25564,    .00000,
     +     .00000,    .15276,    .25999,
     +     .10180,    .05550,   2.15070,    .27506,    .01148,
     +     .00000,    .17314,    .27965,
     +     .10389,    .05676,   2.74900,    .29050,    .01922,
     +     .00000,    .18928,    .29526,
     +     .10608,    .05807,   3.35133,    .30777,    .04024,
     +     .00000,    .20724,    .31271,
     +     .10799,    .05921,   3.88107,    .32350,    .05795,
     +     .00000,    .22356,    .32861,
     +     .10986,    .06032,   4.40182,    .33919,    .07577,
     +     .00000,    .23982,    .34446,
     +     .11186,    .06151,   4.96365,    .35649,    .09566,
     +     .00000,    .25771,    .36194 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
     +     .11360,    .06254,   5.44654,    .37205,    .11266,
     +     .00000,    .27377,    .37765,
     +     .11530,    .06355,   5.91288,    .38747,    .12957,
     +     .00000,    .28967,    .39322,
     +     .11666,    .06435,   6.28800,    .40002,    .14359,
     +     .00000,    .30260,    .40590,
     +     .11956,    .06606,   7.08430,    .42757,    .17362,
     +     .00000,    .33093,    .43370,
     +     .12208,    .06755,   7.67300,    .45188,    .19985,
     +     .02812,    .35591,    .45823,
     +     .12492,    .06921,   8.34380,    .47974,    .22993,
     +     .06533,    .38452,    .48634,
     +     .12788,    .07093,   9.02806,    .50923,    .26166,
     +     .10007,    .41477,    .51611,
     +     .13058,    .07250,   9.63254,    .53634,    .29075,
     +     .13193,    .44256,    .54345 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
     +     .13329,    .07407,  10.22698,    .56402,    .32043,
     +     .16426,    .47090,    .57137,
     +     .13554,    .07537,  10.70375,    .58709,    .34502,
     +     .19067,    .49453,    .59463,
     +     .13826,    .07693,  11.26047,    .61512,    .37477,
     +     .22249,    .52322,    .62290,
     +     .14068,    .07831,  11.73891,    .64003,    .40128,
     +     .25102,    .54872,    .64804,
     +     .14288,    .07958,  12.16563,    .66296,    .42571,
     +     .27732,    .57218,    .67117,
     +     .14566,    .08116,  12.67717,    .69180,    .45617,
     +     .30973,    .60167,    .70024,
     +     .14826,    .08264,  13.13993,    .71889,    .48485,
     +     .34035,    .62937,    .72756,
     +     .15071,    .08402,  13.56065,    .74432,    .51186,
     +     .36933,    .65537,    .75322 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
     +     .15313,    .08539,  13.95131,    .76925,    .53812,
     +     .39716,    .68087,    .77836,
     +     .15549,    .08671,  14.32160,    .79363,    .56388,
     +     .42461,    .70580,    .80293,
     +     .15772,    .08796,  14.65780,    .81655,    .58814,
     +     .45047,    .72924,    .82606,
     +     .15981,    .08913,  14.95447,    .83777,    .61051,
     +     .47420,    .75093,    .84746,
     +     .16191,    .09030,  15.24698,    .85914,    .63315,
     +     .49837,    .77280,    .86902,
     +     .16394,    .09142,  15.51163,    .87962,    .65470,
     +     .52119,    .79373,    .88966,
     +     .16588,    .09251,  15.76104,    .89920,    .67545,
     +     .54331,    .81376,    .90941,
     +     .16769,    .09351,  15.97635,    .91718,    .69437,
     +     .56335,    .83215,    .92755 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
     +     .16953,    .09452,  16.19072,    .93536,    .71362,
     +     .58383,    .85076,    .94589,
     +     .17133,    .09551,  16.38761,    .95291,    .73217,
     +     .60351,    .86873,    .96360,
     +     .17304,    .09644,  16.56812,    .96952,    .74971,
     +     .62214,    .88572,    .98035,
     +     .17466,    .09733,  16.73423,    .98519,    .76631,
     +     .63981,    .90176,    .99616,
     +     .17628,    .09821,  16.88728,   1.00057,    .78254,
     +     .65700,    .91751,   1.01167 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
     +     .11775,    .06513,    .97933,    .22722,    .00000,
     +     .00000,    .13099,    .23296,
     +     .11988,    .06643,   1.44969,    .23729,    .00000,
     +     .00000,    .14167,    .24323,
     +     .12314,    .06844,   2.13671,    .25367,    .00924,
     +     .00000,    .15895,    .25990,
     +     .12562,    .06994,   2.65830,    .26664,    .01551,
     +     .00000,    .17257,    .27310,
     +     .12823,    .07151,   3.17313,    .28110,    .03343,
     +     .00000,    .18769,    .28781,
     +     .13051,    .07288,   3.61812,    .29419,    .04841,
     +     .00000,    .20135,    .30112,
     +     .13272,    .07420,   4.04909,    .30719,    .06338,
     +     .00000,    .21489,    .31433,
     +     .13509,    .07561,   4.50756,    .32144,    .08001,
     +     .00000,    .22970,    .32880 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
     +     .13716,    .07685,   4.89629,    .33418,    .09411,
     +     .00000,    .24293,    .34174,
     +     .13917,    .07803,   5.26727,    .34674,    .10809,
     +     .00000,    .25596,    .35448,
     +     .14078,    .07899,   5.56289,    .35693,    .11961,
     +     .00000,    .26651,    .36481,
     +     .14418,    .08099,   6.18286,    .37912,    .14414,
     +     .00000,    .28947,    .38733,
     +     .14713,    .08271,   6.63269,    .39852,    .16538,
     +     .02034,    .30954,    .40701,
     +     .15044,    .08463,   7.13326,    .42059,    .18955,
     +     .05061,    .33233,    .42938,
     +     .15390,    .08662,   7.63507,    .44371,    .21480,
     +     .07857,    .35621,    .45283,
     +     .15702,    .08842,   8.07096,    .46477,    .23775,
     +     .10400,    .37795,    .47419 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
     +     .16016,    .09021,   8.49292,    .48609,    .26098,
     +     .12960,    .39994,    .49579,
     +     .16275,    .09168,   8.82599,    .50372,    .28008,
     +     .15035,    .41813,    .51366,
     +     .16588,    .09345,   9.20889,    .52495,    .30299,
     +     .17517,    .44002,    .53517,
     +     .16864,    .09501,   9.53302,    .54367,    .32326,
     +     .19725,    .45933,    .55415,
     +     .17116,    .09642,   9.81817,    .56078,    .34182,
     +     .21748,    .47698,    .57149,
     +     .17431,    .09819,  10.15402,    .58210,    .36475,
     +     .24220,    .49896,    .59309,
     +     .17728,    .09983,  10.45277,    .60195,    .38618,
     +     .26540,    .51944,    .61320,
     +     .18004,    .10136,  10.72036,    .62045,    .40623,
     +     .28721,    .53852,    .63195 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
     +     .18275,    .10286,  10.96325,    .63841,    .42554,
     +     .30796,    .55707,    .65016,
     +     .18540,    .10431,  11.19002,    .65586,    .44437,
     +     .32832,    .57506,    .66783,
     +     .18789,    .10567,  11.39241,    .67213,    .46197,
     +     .34736,    .59187,    .68433,
     +     .19021,    .10693,  11.56702,    .68708,    .47809,
     +     .36471,    .60730,    .69947,
     +     .19255,    .10820,  11.73724,    .70206,    .49432,
     +     .38229,    .62278,    .71466,
     +     .19480,    .10941,  11.88694,    .71626,    .50964,
     +     .39877,    .63746,    .72906,
     +     .19694,    .11057,  12.02685,    .72978,    .52432,
     +     .41468,    .65144,    .74277,
     +     .19894,    .11163,  12.14363,    .74207,    .53761,
     +     .42899,    .66416,    .75523 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
     +     .20096,    .11271,  12.25881,    .75446,    .55108,
     +     .44357,    .67699,    .76780,
     +     .20292,    .11376,  12.36138,    .76633,    .56395,
     +     .45746,    .68928,    .77983,
     +     .20479,    .11474,  12.45356,    .77749,    .57608,
     +     .47056,    .70084,    .79114,
     +     .20656,    .11568,  12.53695,    .78797,    .58750,
     +     .48294,    .71170,    .80177,
     +     .20831,    .11660,  12.61031,    .79816,    .59859,
     +     .49491,    .72227,    .81211 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
     +     .13489,    .07563,   1.08295,    .21573,    .00000,
     +     .00000,    .12419,    .22286,
     +     .13731,    .07714,   1.51821,    .22458,    .00000,
     +     .00000,    .13365,    .23195,
     +     .14103,    .07942,   2.14467,    .23896,    .00707,
     +     .00000,    .14890,    .24670,
     +     .14385,    .08113,   2.61025,    .25033,    .01245,
     +     .00000,    .16090,    .25833,
     +     .14680,    .08291,   3.06281,    .26295,    .02837,
     +     .00000,    .17419,    .27127,
     +     .14936,    .08445,   3.44895,    .27434,    .04159,
     +     .00000,    .18613,    .28291,
     +     .15187,    .08594,   3.81868,    .28560,    .05475,
     +     .00000,    .19792,    .29440,
     +     .15455,    .08754,   4.20773,    .29789,    .06930,
     +     .00000,    .21078,    .30696 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
     +     .15688,    .08891,   4.53416,    .30882,    .08157,
     +     .00000,    .22220,    .31811,
     +     .15914,    .09024,   4.84281,    .31955,    .09367,
     +     .00000,    .23340,    .32907,
     +     .16093,    .09129,   5.08696,    .32821,    .10363,
     +     .00000,    .24243,    .33791,
     +     .16474,    .09351,   5.59417,    .34701,    .12470,
     +     .00000,    .26200,    .35707,
     +     .16804,    .09541,   5.95707,    .36332,    .14282,
     +     .01536,    .27898,    .37370,
     +     .17171,    .09752,   6.35212,    .38174,    .16330,
     +     .04128,    .29816,    .39248,
     +     .17552,    .09968,   6.74261,    .40089,    .18455,
     +     .06504,    .31808,    .41199,
     +     .17897,    .10163,   7.07700,    .41820,    .20374,
     +     .08651,    .33608,    .42963 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
     +     .18244,    .10357,   7.39636,    .43560,    .22304,
     +     .10799,    .35418,    .44736,
     +     .18528,    .10516,   7.64508,    .44989,    .23879,
     +     .12529,    .36904,    .46191,
     +     .18869,    .10706,   7.92706,    .46699,    .25758,
     +     .14587,    .38682,    .47932,
     +     .19170,    .10871,   8.16261,    .48196,    .27412,
     +     .16409,    .40241,    .49458,
     +     .19444,    .11022,   8.36732,    .49557,    .28916,
     +     .18066,    .41657,    .50844,
     +     .19787,    .11209,   8.60426,    .51239,    .30765,
     +     .20083,    .43408,    .52557,
     +     .20105,    .11382,   8.81171,    .52795,    .32480,
     +     .21963,    .45029,    .54142,
     +     .20402,    .11542,   8.99495,    .54235,    .34076,
     +     .23720,    .46529,    .55609 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
     +     .20694,    .11699,   9.15736,    .55624,    .35603,
     +     .25382,    .47978,    .57022,
     +     .20977,    .11850,   9.30673,    .56962,    .37085,
     +     .27005,    .49375,    .58386,
     +     .21243,    .11992,   9.43769,    .58205,    .38463,
     +     .28516,    .50672,    .59652,
     +     .21490,    .12121,   9.54782,    .59337,    .39716,
     +     .29884,    .51855,    .60806,
     +     .21738,    .12251,   9.65389,    .60467,    .40972,
     +     .31265,    .53037,    .61957,
     +     .21976,    .12376,   9.74392,    .61529,    .42151,
     +     .32552,    .54149,    .63039,
     +     .22202,    .12494,   9.82732,    .62537,    .43277,
     +     .33791,    .55205,    .64066,
     +     .22411,    .12604,   9.89382,    .63446,    .44290,
     +     .34898,    .56158,    .64993 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
     +     .22624,    .12713,   9.95872,    .64358,    .45313,
     +     .36022,    .57115,    .65923,
     +     .22829,    .12818,  10.01398,    .65225,    .46285,
     +     .37090,    .58027,    .66808,
     +     .23023,    .12918,  10.06220,    .66036,    .47196,
     +     .38091,    .58881,    .67634,
     +     .23206,    .13012,  10.10473,    .66795,    .48052,
     +     .39034,    .59679,    .68408,
     +     .23388,    .13105,  10.13922,    .67527,    .48877,
     +     .39941,    .60450,    .69155 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
     +     .14980,    .08485,   1.17674,    .20651,    .00000,
     +     .00000,    .11853,    .21485,
     +     .15250,    .08654,   1.58176,    .21450,    .00000,
     +     .00000,    .12710,    .22313,
     +     .15663,    .08908,   2.15891,    .22744,    .00505,
     +     .00000,    .14093,    .23652,
     +     .15975,    .09098,   2.57973,    .23765,    .00983,
     +     .00000,    .15178,    .24705,
     +     .16302,    .09294,   2.98356,    .24897,    .02432,
     +     .00000,    .16375,    .25871,
     +     .16586,    .09463,   3.32457,    .25914,    .03628,
     +     .00000,    .17448,    .26917,
     +     .16860,    .09625,   3.64803,    .26915,    .04814,
     +     .00000,    .18502,    .27946,
     +     .17155,    .09798,   3.98536,    .28002,    .06121,
     +     .00000,    .19649,    .29063 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
     +     .17410,    .09947,   4.26586,    .28966,    .07217,
     +     .00000,    .20661,    .30053,
     +     .17656,    .10092,   4.52906,    .29908,    .08295,
     +     .00000,    .21651,    .31020,
     +     .17854,    .10205,   4.73600,    .30666,    .09179,
     +     .00000,    .22447,    .31798,
     +     .18268,    .10443,   5.16258,    .32303,    .11041,
     +     .00000,    .24165,    .33475,
     +     .18625,    .10646,   5.46416,    .33715,    .12635,
     +     .01182,    .25645,    .34923,
     +     .19023,    .10870,   5.78560,    .35298,    .14425,
     +     .03468,    .27306,    .36545,
     +     .19434,    .11100,   6.09945,    .36935,    .16271,
     +     .05550,    .29022,    .38220,
     +     .19804,    .11305,   6.36480,    .38405,    .17928,
     +     .07421,    .30563,    .39725 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
     +     .20174,    .11509,   6.61500,    .39872,    .19585,
     +     .09282,    .32102,    .41228,
     +     .20478,    .11675,   6.80743,    .41070,    .20931,
     +     .10775,    .33360,    .42455,
     +     .20842,    .11873,   7.02279,    .42494,    .22529,
     +     .12542,    .34856,    .43912,
     +     .21161,    .12046,   7.20037,    .43735,    .23927,
     +     .14098,    .36159,    .45182,
     +     .21451,    .12201,   7.35280,    .44856,    .25195,
     +     .15509,    .37338,    .46331,
     +     .21812,    .12394,   7.52605,    .46233,    .26742,
     +     .17215,    .38787,    .47740,
     +     .22149,    .12571,   7.67525,    .47500,    .28172,
     +     .18799,    .40120,    .49037,
     +     .22461,    .12736,   7.80512,    .48665,    .29495,
     +     .20273,    .41348,    .50229 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
     +     .22765,    .12894,   7.91721,    .49779,    .30754,
     +     .21660,    .42525,    .51370,
     +     .23061,    .13048,   8.01857,    .50849,    .31970,
     +     .23009,    .43655,    .52466,
     +     .23338,    .13191,   8.10560,    .51835,    .33096,
     +     .24258,    .44699,    .53477,
     +     .23594,    .13322,   8.17646,    .52729,    .34114,
     +     .25385,    .45645,    .54392,
     +     .23848,    .13453,   8.24376,    .53615,    .35132,
     +     .26519,    .46586,    .55300,
     +     .24095,    .13577,   8.29781,    .54444,    .36081,
     +     .27570,    .47467,    .56149,
     +     .24328,    .13694,   8.34731,    .55227,    .36985,
     +     .28579,    .48299,    .56952,
     +     .24543,    .13802,   8.38415,    .55927,    .37793,
     +     .29476,    .49045,    .57669 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
     +     .24759,    .13910,   8.41954,    .56628,    .38608,
     +     .30385,    .49793,    .58387,
     +     .24970,    .14015,   8.44728,    .57289,    .39378,
     +     .31244,    .50500,    .59066,
     +     .25167,    .14113,   8.47008,    .57906,    .40098,
     +     .32048,    .51160,    .59698,
     +     .25353,    .14204,   8.48917,    .58479,    .40770,
     +     .32802,    .51774,    .60286,
     +     .25538,    .14294,   8.50172,    .59027,    .41415,
     +     .33524,    .52364,    .60849 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
     +     .17563,    .10089,   1.33170,    .19223,    .00000,
     +     .00000,    .10947,    .20292,
     +     .17883,    .10289,   1.68537,    .19905,    .00000,
     +     .00000,    .11687,    .21009,
     +     .18369,    .10585,   2.18350,    .21002,    .00153,
     +     .00000,    .12874,    .22162,
     +     .18733,    .10803,   2.53451,    .21861,    .00558,
     +     .00000,    .13801,    .23061,
     +     .19111,    .11027,   2.86423,    .22808,    .01807,
     +     .00000,    .14818,    .24051,
     +     .19440,    .11218,   3.13805,    .23651,    .02830,
     +     .00000,    .15719,    .24929,
     +     .19757,    .11402,   3.39384,    .24475,    .03837,
     +     .00000,    .16602,    .25788,
     +     .20094,    .11597,   3.65673,    .25366,    .04939,
     +     .00000,    .17553,    .26713 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
     +     .20386,    .11762,   3.87219,    .26147,    .05857,
     +     .00000,    .18389,    .27526,
     +     .20666,    .11921,   4.07176,    .26906,    .06754,
     +     .00000,    .19199,    .28313,
     +     .20889,    .12046,   4.22709,    .27513,    .07485,
     +     .00000,    .19848,    .28944,
     +     .21358,    .12309,   4.54308,    .28814,    .09015,
     +     .00000,    .21234,    .30293,
     +     .21757,    .12527,   4.76227,    .29923,    .10310,
     +     .00703,    .22417,    .31441,
     +     .22199,    .12768,   4.98590,    .31155,    .11753,
     +     .02573,    .23731,    .32715,
     +     .22654,    .13013,   5.19920,    .32411,    .13225,
     +     .04259,    .25073,    .34017,
     +     .23061,    .13229,   5.37528,    .33526,    .14536,
     +     .05761,    .26267,    .35171 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
     +     .23466,    .13443,   5.53743,    .34629,    .15833,
     +     .07242,    .27447,    .36311,
     +     .23796,    .13616,   5.65882,    .35519,    .16879,
     +     .08422,    .28401,    .37232,
     +     .24189,    .13820,   5.79102,    .36567,    .18108,
     +     .09805,    .29524,    .38314,
     +     .24532,    .13997,   5.89715,    .37469,    .19176,
     +     .11014,    .30495,    .39249,
     +     .24842,    .14155,   5.98592,    .38278,    .20136,
     +     .12104,    .31366,    .40084,
     +     .25227,    .14350,   6.08231,    .39258,    .21298,
     +     .13410,    .32423,    .41098,
     +     .25583,    .14528,   6.16206,    .40150,    .22362,
     +     .14614,    .33387,    .42020,
     +     .25911,    .14692,   6.22899,    .40962,    .23340,
     +     .15726,    .34268,    .42861 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
     +     .26229,    .14848,   6.28240,    .41727,    .24260,
     +     .16762,    .35100,    .43653,
     +     .26536,    .14999,   6.32828,    .42455,    .25141,
     +     .17763,    .35892,    .44405,
     +     .26822,    .15138,   6.36499,    .43120,    .25952,
     +     .18684,    .36617,    .45092,
     +     .27085,    .15264,   6.39135,    .43713,    .26678,
     +     .19509,    .37267,    .45707,
     +     .27347,    .15390,   6.41498,    .44298,    .27402,
     +     .20335,    .37909,    .46313,
     +     .27597,    .15507,   6.42965,    .44835,    .28067,
     +     .21093,    .38501,    .46870,
     +     .27833,    .15619,   6.44233,    .45340,    .28700,
     +     .21819,    .39059,    .47392,
     +     .28049,    .15719,   6.44703,    .45784,    .29260,
     +     .22459,    .39553,    .47852 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
     +     .28267,    .15820,   6.45057,    .46226,    .29820,
     +     .23103,    .40044,    .48310,
     +     .28475,    .15916,   6.44909,    .46636,    .30346,
     +     .23708,    .40502,    .48737,
     +     .28673,    .16006,   6.44523,    .47015,    .30834,
     +     .24271,    .40927,    .49129,
     +     .28857,    .16090,   6.43989,    .47364,    .31288,
     +     .24797,    .41320,    .49491,
     +     .29038,    .16171,   6.42983,    .47692,    .31719,
     +     .25296,    .41692,    .49831 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
     +     .20797,    .12099,   1.49850,    .17617,    .00000,
     +     .00000,    .09902,    .19001,
     +     .21184,    .12335,   1.78978,    .18187,    .00000,
     +     .00000,    .10539,    .19619,
     +     .21766,    .12680,   2.19744,    .19095,   -.00254,
     +     .00000,    .11546,    .20598,
     +     .22196,    .12930,   2.47181,    .19797,    .00093,
     +     .00000,    .12321,    .21351,
     +     .22639,    .13182,   2.72266,    .20565,    .01153,
     +     .00000,    .13166,    .22168,
     +     .23021,    .13397,   2.92699,    .21238,    .02012,
     +     .00000,    .13907,    .22886,
     +     .23386,    .13601,   3.11451,    .21891,    .02850,
     +     .00000,    .14624,    .23577,
     +     .23773,    .13814,   3.30389,    .22589,    .03757,
     +     .00000,    .15389,    .24317 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
     +     .24106,    .13996,   3.45623,    .23194,    .04507,
     +     .00000,    .16054,    .24957,
     +     .24424,    .14168,   3.59503,    .23777,    .05234,
     +     .00000,    .16694,    .25574,
     +     .24677,    .14303,   3.70169,    .24240,    .05823,
     +     .00000,    .17203,    .26064,
     +     .25202,    .14581,   3.91531,    .25220,    .07043,
     +     .00000,    .18279,    .27096,
     +     .25643,    .14810,   4.05967,    .26044,    .08065,
     +     .00283,    .19184,    .27963,
     +     .26129,    .15059,   4.19670,    .26944,    .09189,
     +     .01765,    .20177,    .28910,
     +     .26624,    .15309,   4.32289,    .27849,    .10324,
     +     .03089,    .21178,    .29861,
     +     .27062,    .15529,   4.42298,    .28641,    .11322,
     +     .04255,    .22054,    .30693 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
     +     .27495,    .15742,   4.51137,    .29412,    .12299,
     +     .05393,    .22910,    .31502,
     +     .27846,    .15913,   4.57453,    .30025,    .13079,
     +     .06292,    .23594,    .32146,
     +     .28259,    .16113,   4.63935,    .30735,    .13986,
     +     .07336,    .24388,    .32891,
     +     .28618,    .16283,   4.68846,    .31341,    .14766,
     +     .08241,    .25066,    .33525,
     +     .28940,    .16435,   4.72718,    .31875,    .15461,
     +     .09049,    .25668,    .34086,
     +     .29335,    .16619,   4.76448,    .32511,    .16293,
     +     .10009,    .26388,    .34754,
     +     .29698,    .16785,   4.79170,    .33080,    .17047,
     +     .10885,    .27036,    .35350,
     +     .30030,    .16936,   4.81166,    .33592,    .17734,
     +     .11688,    .27620,    .35887 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
     +     .30348,    .17078,   4.82212,    .34063,    .18371,
     +     .12428,    .28162,    .36381,
     +     .30654,    .17214,   4.82808,    .34504,    .18978,
     +     .13138,    .28673,    .36844,
     +     .30936,    .17337,   4.82928,    .34900,    .19530,
     +     .13787,    .29134,    .37259,
     +     .31192,    .17447,   4.82483,    .35246,    .20018,
     +     .14360,    .29541,    .37623,
     +     .31447,    .17556,   4.81860,    .35584,    .20501,
     +     .14933,    .29939,    .37977,
     +     .31686,    .17656,   4.80678,    .35885,    .20941,
     +     .15453,    .30300,    .38293,
     +     .31913,    .17751,   4.79491,    .36165,    .21356,
     +     .15947,    .30636,    .38586,
     +     .32116,    .17835,   4.77905,    .36405,    .21717,
     +     .16379,    .30927,    .38838 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
     +     .32321,    .17918,   4.76254,    .36640,    .22077,
     +     .16811,    .31215,    .39085,
     +     .32515,    .17995,   4.74303,    .36852,    .22412,
     +     .17214,    .31477,    .39308,
     +     .32698,    .18068,   4.72298,    .37043,    .22719,
     +     .17587,    .31717,    .39509,
     +     .32868,    .18134,   4.70301,    .37217,    .23003,
     +     .17932,    .31936,    .39692,
     +     .33032,    .18197,   4.67981,    .37372,    .23268,
     +     .18255,    .32138,    .39856 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
     +     .25271,    .14829,   1.64588,    .15682,    .00000,
     +     .00000,    .08666,    .17574,
     +     .25754,    .15107,   1.85876,    .16136,    .00000,
     +     .00000,    .09201,    .18093,
     +     .26463,    .15505,   2.15792,    .16842,   -.00689,
     +     .00000,    .10027,    .18884,
     +     .26977,    .15783,   2.34534,    .17373,   -.00385,
     +     .00000,    .10648,    .19475,
     +     .27499,    .16063,   2.50976,    .17946,    .00479,
     +     .00000,    .11311,    .20106,
     +     .27942,    .16295,   2.64029,    .18440,    .01171,
     +     .00000,    .11882,    .20648,
     +     .28364,    .16513,   2.75718,    .18910,    .01836,
     +     .00000,    .12428,    .21163,
     +     .28806,    .16737,   2.87234,    .19403,    .02548,
     +     .00000,    .13003,    .21702 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
     +     .29183,    .16924,   2.96240,    .19826,    .03129,
     +     .00000,    .13495,    .22161,
     +     .29539,    .17101,   3.04238,    .20227,    .03687,
     +     .00000,    .13961,    .22596,
     +     .29818,    .17238,   3.10272,    .20541,    .04136,
     +     .00000,    .14329,    .22936,
     +     .30395,    .17515,   3.22060,    .21197,    .05052,
     +     .00000,    .15095,    .23645,
     +     .30870,    .17738,   3.29643,    .21736,    .05809,
     +    -.00071,    .15726,    .24225,
     +     .31385,    .17974,   3.35702,    .22314,    .06628,
     +     .01032,    .16407,    .24843,
     +     .31902,    .18207,   3.40824,    .22878,    .07444,
     +     .02005,    .17078,    .25450,
     +     .32353,    .18407,   3.44449,    .23362,    .08150,
     +     .02851,    .17656,    .25966 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
     +     .32794,    .18597,   3.47239,    .23821,    .08832,
     +     .03667,    .18210,    .26457,
     +     .33145,    .18747,   3.48880,    .24178,    .09370,
     +     .04304,    .18644,    .26837,
     +     .33554,    .18917,   3.50093,    .24581,    .09987,
     +     .05036,    .19138,    .27266,
     +     .33905,    .19060,   3.50638,    .24915,    .10511,
     +     .05663,    .19552,    .27622,
     +     .34216,    .19185,   3.50741,    .25203,    .10972,
     +     .06218,    .19914,    .27928,
     +     .34590,    .19331,   3.50132,    .25535,    .11516,
     +     .06868,    .20337,    .28280,
     +     .34927,    .19461,   3.49093,    .25823,    .12002,
     +     .07456,    .20708,    .28586,
     +     .35233,    .19575,   3.47805,    .26075,    .12438,
     +     .07987,    .21037,    .28851 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
     +     .35522,    .19678,   3.45953,    .26294,    .12838,
     +     .08472,    .21332,    .29083,
     +     .35795,    .19774,   3.43916,    .26494,    .13213,
     +     .08932,    .21606,    .29294,
     +     .36042,    .19860,   3.41756,    .26667,    .13550,
     +     .09348,    .21847,    .29476,
     +     .36263,    .19934,   3.39411,    .26810,    .13843,
     +     .09711,    .22052,    .29625,
     +     .36479,    .20005,   3.36989,    .26944,    .14130,
     +     .10070,    .22249,    .29766,
     +     .36680,    .20066,   3.34287,    .27053,    .14386,
     +     .10392,    .22422,    .29881,
     +     .36867,    .20123,   3.31717,    .27154,    .14626,
     +     .10696,    .22580,    .29986,
     +     .37031,    .20171,   3.29032,    .27229,    .14831,
     +     .10958,    .22708,    .30064 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
     +     .37194,    .20218,   3.26327,    .27301,    .15033,
     +     .11219,    .22833,    .30138,
     +     .37345,    .20259,   3.23499,    .27359,    .15218,
     +     .11459,    .22942,    .30196,
     +     .37486,    .20295,   3.20747,    .27405,    .15385,
     +     .11678,    .23039,    .30244,
     +     .37615,    .20327,   3.18108,    .27445,    .15538,
     +     .11880,    .23124,    .30284,
     +     .37737,    .20355,   3.15285,    .27471,    .15676,
     +     .12066,    .23197,    .30310 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
     +     .29001,    .17047,   1.68866,    .14231,    .00000,
     +     .00000,    .07801,    .16556,
     +     .29567,    .17353,   1.84498,    .14601,    .00000,
     +     .00000,    .08266,    .16997,
     +     .30384,    .17779,   2.06756,    .15159,   -.00902,
     +     .00000,    .08962,    .17653,
     +     .30962,    .18071,   2.19749,    .15571,   -.00627,
     +     .00000,    .09474,    .18129,
     +     .31543,    .18356,   2.30666,    .16008,    .00105,
     +     .00000,    .10016,    .18626,
     +     .32031,    .18591,   2.39129,    .16377,    .00685,
     +     .00000,    .10474,    .19044,
     +     .32490,    .18807,   2.46535,    .16723,    .01238,
     +     .00000,    .10905,    .19435,
     +     .32965,    .19027,   2.53649,    .17083,    .01823,
     +     .00000,    .11354,    .19838 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
     +     .33363,    .19208,   2.59035,    .17386,    .02297,
     +     .00000,    .11733,    .20175,
     +     .33737,    .19375,   2.63677,    .17671,    .02749,
     +     .00000,    .12088,    .20489,
     +     .34029,    .19506,   2.67104,    .17891,    .03108,
     +     .00000,    .12367,    .20732,
     +     .34625,    .19761,   2.73601,    .18344,    .03838,
     +     .00000,    .12939,    .21232,
     +     .35104,    .19959,   2.77500,    .18707,    .04432,
     +    -.00230,    .13404,    .21628,
     +     .35617,    .20166,   2.79632,    .19089,    .05070,
     +     .00641,    .13895,    .22041,
     +     .36122,    .20363,   2.81001,    .19455,    .05697,
     +     .01402,    .14372,    .22436,
     +     .36558,    .20528,   2.81523,    .19757,    .06233,
     +     .02057,    .14775,    .22761 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
     +     .36976,    .20680,   2.81448,    .20038,    .06748,
     +     .02684,    .15154,    .23060,
     +     .37306,    .20798,   2.80919,    .20249,    .07147,
     +     .03168,    .15446,    .23285,
     +     .37682,    .20925,   2.79762,    .20480,    .07602,
     +     .03720,    .15774,    .23530,
     +     .37998,    .21030,   2.78396,    .20667,    .07984,
     +     .04190,    .16042,    .23726,
     +     .38276,    .21118,   2.76891,    .20822,    .08317,
     +     .04602,    .16272,    .23890,
     +     .38603,    .21215,   2.74510,    .20992,    .08706,
     +     .05081,    .16534,    .24067,
     +     .38894,    .21297,   2.71990,    .21131,    .09049,
     +     .05508,    .16760,    .24209,
     +     .39152,    .21366,   2.69453,    .21247,    .09354,
     +     .05893,    .16952,    .24328 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
     +     .39388,    .21425,   2.66565,    .21340,    .09630,
     +     .06241,    .17122,    .24419,
     +     .39606,    .21475,   2.63627,    .21417,    .09885,
     +     .06567,    .17272,    .24495,
     +     .39801,    .21517,   2.60722,    .21477,    .10111,
     +     .06859,    .17401,    .24552,
     +     .39971,    .21548,   2.57808,    .21518,    .10307,
     +     .07113,    .17505,    .24589,
     +     .40135,    .21576,   2.54873,    .21553,    .10495,
     +     .07361,    .17603,    .24621,
     +     .40278,    .21596,   2.51794,    .21572,    .10661,
     +     .07582,    .17681,    .24633,
     +     .40412,    .21614,   2.48901,    .21587,    .10815,
     +     .07789,    .17753,    .24640,
     +     .40524,    .21623,   2.46014,    .21586,    .10943,
     +     .07965,    .17805,    .24633 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
     +     .40635,    .21630,   2.43133,    .21583,    .11070,
     +     .08140,    .17853,    .24621,
     +     .40734,    .21632,   2.40210,    .21569,    .11182,
     +     .08299,    .17890,    .24600,
     +     .40821,    .21631,   2.37411,    .21550,    .11282,
     +     .08442,    .17919,    .24574,
     +     .40901,    .21629,   2.34759,    .21529,    .11373,
     +     .08573,    .17943,    .24544,
     +     .40970,    .21621,   2.31991,    .21498,    .11454,
     +     .08693,    .17956,    .24503 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
     +     .35364,    .20585,   1.60397,    .12100,    .00000,
     +     .00000,    .06708,    .15259,
     +     .36044,    .20905,   1.69004,    .12329,    .00000,
     +     .00000,    .07051,    .15554,
     +     .36995,    .21328,   1.81802,    .12661,   -.01004,
     +     .00000,    .07549,    .15969,
     +     .37637,    .21602,   1.88197,    .12899,   -.00774,
     +     .00000,    .07904,    .16252,
     +     .38269,    .21860,   1.93001,    .13144,   -.00225,
     +     .00000,    .08267,    .16543,
     +     .38785,    .22064,   1.96501,    .13348,    .00206,
     +     .00000,    .08568,    .16775,
     +     .39259,    .22246,   1.99374,    .13533,    .00611,
     +     .00000,    .08848,    .16985,
     +     .39740,    .22424,   2.01933,    .13721,    .01034,
     +     .00000,    .09131,    .17193 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
     +     .40136,    .22564,   2.03648,    .13874,    .01372,
     +     .00000,    .09366,    .17361,
     +     .40499,    .22688,   2.04945,    .14013,    .01691,
     +     .00000,    .09583,    .17512,
     +     .40778,    .22780,   2.05815,    .14119,    .01942,
     +     .00000,    .09750,    .17627,
     +     .41328,    .22956,   2.07222,    .14332,    .02447,
     +     .00000,    .10087,    .17848,
     +     .41751,    .23076,   2.07643,    .14493,    .02850,
     +    -.00335,    .10351,    .18012,
     +     .42188,    .23191,   2.06319,    .14652,    .03277,
     +     .00258,    .10624,    .18171,
     +     .42601,    .23290,   2.04495,    .14794,    .03689,
     +     .00771,    .10877,    .18305,
     +     .42943,    .23361,   2.02469,    .14903,    .04037,
     +     .01207,    .11084,    .18404 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
     +     .43257,    .23416,   2.00132,    .14992,    .04364,
     +     .01618,    .11272,    .18480,
     +     .43492,    .23450,   1.97961,    .15053,    .04614,
     +     .01932,    .11411,    .18526,
     +     .43749,    .23476,   1.95081,    .15108,    .04894,
     +     .02285,    .11557,    .18563,
     +     .43952,    .23489,   1.92390,    .15144,    .05127,
     +     .02582,    .11672,    .18582,
     +     .44122,    .23493,   1.89827,    .15167,    .05326,
     +     .02839,    .11765,    .18586,
     +     .44308,    .23482,   1.86364,    .15178,    .05554,
     +     .03134,    .11864,    .18571,
     +     .44459,    .23461,   1.83017,    .15177,    .05751,
     +     .03394,    .11941,    .18542,
     +     .44582,    .23435,   1.79844,    .15166,    .05923,
     +     .03624,    .12002,    .18505 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
     +     .44679,    .23398,   1.76527,    .15140,    .06075,
     +     .03829,    .12045,    .18451,
     +     .44760,    .23352,   1.73275,    .15106,    .06212,
     +     .04019,    .12079,    .18390,
     +     .44825,    .23303,   1.70179,    .15066,    .06333,
     +     .04187,    .12101,    .18324,
     +     .44866,    .23250,   1.67206,    .15019,    .06433,
     +     .04330,    .12110,    .18251,
     +     .44901,    .23194,   1.64261,    .14970,    .06528,
     +     .04468,    .12117,    .18174,
     +     .44916,    .23130,   1.61301,    .14911,    .06608,
     +     .04589,    .12111,    .18087,
     +     .44927,    .23069,   1.58546,    .14853,    .06682,
     +     .04701,    .12103,    .18005,
     +     .44920,    .23004,   1.55888,    .14791,    .06741,
     +     .04794,    .12086,    .17917 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
     +     .44910,    .22937,   1.53260,    .14726,    .06798,
     +     .04886,    .12067,    .17827,
     +     .44888,    .22867,   1.50650,    .14657,    .06846,
     +     .04967,    .12043,    .17732,
     +     .44862,    .22796,   1.48186,    .14588,    .06887,
     +     .05039,    .12015,    .17637,
     +     .44832,    .22729,   1.45875,    .14521,    .06924,
     +     .05105,    .11987,    .17547,
     +     .44791,    .22654,   1.43520,    .14448,    .06953,
     +     .05162,    .11952,    .17450 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
     +     .40713,    .23289,   1.43519,    .10469,    .00000,
     +     .00000,    .05998,    .14283,
     +     .41455,    .23579,   1.48542,    .10585,    .00000,
     +     .00000,    .06236,    .14433,
     +     .42446,    .23946,   1.56401,    .10750,   -.00927,
     +     .00000,    .06573,    .14636,
     +     .43093,    .24165,   1.59669,    .10868,   -.00742,
     +     .00000,    .06809,    .14766,
     +     .43708,    .24362,   1.61680,    .10991,   -.00316,
     +     .00000,    .07052,    .14894,
     +     .44198,    .24505,   1.62959,    .11088,    .00016,
     +     .00000,    .07248,    .14992,
     +     .44637,    .24624,   1.63844,    .11174,    .00325,
     +     .00000,    .07426,    .15073,
     +     .45071,    .24734,   1.64440,    .11261,    .00645,
     +     .00000,    .07606,    .15149 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
     +     .45415,    .24813,   1.64602,    .11326,    .00900,
     +     .00000,    .07752,    .15204,
     +     .45722,    .24877,   1.64512,    .11386,    .01138,
     +     .00000,    .07886,    .15247,
     +     .45952,    .24918,   1.64336,    .11430,    .01325,
     +     .00000,    .07988,    .15278,
     +     .46390,    .24985,   1.63688,    .11512,    .01697,
     +     .00000,    .08186,    .15330,
     +     .46701,    .25010,   1.62749,    .11569,    .01991,
     +    -.00345,    .08339,    .15353,
     +     .47004,    .25014,   1.60239,    .11615,    .02299,
     +     .00089,    .08491,    .15359,
     +     .47268,    .24996,   1.57375,    .11646,    .02593,
     +     .00462,    .08626,    .15346,
     +     .47465,    .24962,   1.54572,    .11660,    .02837,
     +     .00774,    .08729,    .15316 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
     +     .47630,    .24912,   1.51589,    .11663,    .03065,
     +     .01067,    .08817,    .15272,
     +     .47737,    .24856,   1.48994,    .11653,    .03237,
     +     .01289,    .08878,    .15222,
     +     .47834,    .24776,   1.45728,    .11630,    .03427,
     +     .01535,    .08936,    .15149,
     +     .47894,    .24695,   1.42789,    .11600,    .03582,
     +     .01741,    .08976,    .15075,
     +     .47930,    .24612,   1.40070,    .11567,    .03714,
     +     .01917,    .09004,    .15000,
     +     .47941,    .24494,   1.36523,    .11512,    .03862,
     +     .02117,    .09025,    .14890,
     +     .47929,    .24373,   1.33181,    .11453,    .03987,
     +     .02291,    .09034,    .14779,
     +     .47900,    .24253,   1.30075,    .11391,    .04096,
     +     .02444,    .09035,    .14670 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
     +     .47841,    .24121,   1.26913,    .11320,    .04187,
     +     .02577,    .09022,    .14549,
     +     .47769,    .23988,   1.23862,    .11244,    .04270,
     +     .02700,    .09005,    .14426,
     +     .47686,    .23858,   1.20999,    .11169,    .04341,
     +     .02807,    .08982,    .14306,
     +     .47591,    .23728,   1.18296,    .11093,    .04398,
     +     .02897,    .08953,    .14185,
     +     .47488,    .23596,   1.15644,    .11015,    .04450,
     +     .02982,    .08921,    .14063,
     +     .47367,    .23459,   1.13019,    .10933,    .04492,
     +     .03056,    .08883,    .13939,
     +     .47249,    .23330,   1.10595,    .10853,    .04531,
     +     .03124,    .08844,    .13819,
     +     .47122,    .23200,   1.08290,    .10773,    .04560,
     +     .03179,    .08802,    .13700 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
     +     .46992,    .23068,   1.06025,    .10693,    .04586,
     +     .03232,    .08759,    .13581,
     +     .46852,    .22935,   1.03801,    .10609,    .04607,
     +     .03278,    .08711,    .13461,
     +     .46712,    .22807,   1.01715,    .10528,    .04624,
     +     .03318,    .08665,    .13345,
     +     .46576,    .22684,    .99774,    .10451,    .04638,
     +     .03355,    .08618,    .13234,
     +     .46428,    .22556,    .97814,    .10369,    .04647,
     +     .03386,    .08568,    .13118 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
     +     .45364,    .25409,   1.26120,    .09089,    .00000,
     +     .00000,    .05419,    .13351,
     +     .46116,    .25641,   1.29355,    .09116,    .00000,
     +     .00000,    .05568,    .13377,
     +     .47082,    .25914,   1.34629,    .09166,   -.00826,
     +     .00000,    .05781,    .13396,
     +     .47682,    .26053,   1.36380,    .09203,   -.00678,
     +     .00000,    .05930,    .13404,
     +     .48232,    .26165,   1.37076,    .09246,   -.00340,
     +     .00000,    .06083,    .13411,
     +     .48651,    .26232,   1.37302,    .09279,   -.00077,
     +     .00000,    .06208,    .13407,
     +     .49013,    .26277,   1.37252,    .09306,    .00167,
     +     .00000,    .06320,    .13395,
     +     .49356,    .26305,   1.36930,    .09331,    .00419,
     +     .00000,    .06432,    .13376 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
     +     .49614,    .26310,   1.36370,    .09349,    .00618,
     +     .00000,    .06520,    .13352,
     +     .49834,    .26302,   1.35640,    .09361,    .00804,
     +     .00000,    .06598,    .13324,
     +     .49991,    .26289,   1.34987,    .09369,    .00950,
     +     .00000,    .06657,    .13298,
     +     .50268,    .26234,   1.33404,    .09380,    .01237,
     +     .00000,    .06774,    .13234,
     +     .50431,    .26154,   1.31881,    .09378,    .01462,
     +    -.00336,    .06858,    .13167,
     +     .50560,    .26045,   1.28940,    .09367,    .01695,
     +    -.00002,    .06934,    .13082,
     +     .50640,    .25908,   1.25728,    .09342,    .01916,
     +     .00282,    .06998,    .12976,
     +     .50669,    .25766,   1.22694,    .09310,    .02097,
     +     .00518,    .07043,    .12870 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
     +     .50658,    .25609,   1.19557,    .09267,    .02264,
     +     .00738,    .07075,    .12753,
     +     .50619,    .25468,   1.16897,    .09225,    .02389,
     +     .00902,    .07091,    .12649,
     +     .50534,    .25285,   1.13617,    .09166,    .02525,
     +     .01085,    .07099,    .12516,
     +     .50436,    .25113,   1.10717,    .09107,    .02634,
     +     .01235,    .07098,    .12392,
     +     .50327,    .24951,   1.08069,    .09049,    .02727,
     +     .01363,    .07092,    .12273,
     +     .50155,    .24731,   1.04678,    .08966,    .02827,
     +     .01505,    .07073,    .12117,
     +     .49968,    .24518,   1.01531,    .08883,    .02912,
     +     .01630,    .07046,    .11964,
     +     .49777,    .24316,    .98638,    .08803,    .02983,
     +     .01736,    .07017,    .11818 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
     +     .49560,    .24102,    .95738,    .08715,    .03042,
     +     .01829,    .06978,    .11667,
     +     .49334,    .23891,    .92964,    .08626,    .03094,
     +     .01914,    .06936,    .11518,
     +     .49105,    .23689,    .90390,    .08540,    .03137,
     +     .01986,    .06892,    .11374,
     +     .48874,    .23493,    .87985,    .08455,    .03170,
     +     .02045,    .06845,    .11234,
     +     .48638,    .23295,    .85638,    .08370,    .03200,
     +     .02101,    .06798,    .11096,
     +     .48389,    .23095,    .83342,    .08280,    .03222,
     +     .02149,    .06746,    .10956,
     +     .48151,    .22905,    .81232,    .08196,    .03242,
     +     .02192,    .06696,    .10825,
     +     .47908,    .22723,    .79246,    .08115,    .03255,
     +     .02226,    .06643,    .10698 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
     +     .47662,    .22541,    .77302,    .08033,    .03268,
     +     .02260,    .06591,    .10570,
     +     .47410,    .22358,    .75410,    .07950,    .03275,
     +     .02287,    .06537,    .10443,
     +     .47166,    .22182,    .73647,    .07870,    .03280,
     +     .02311,    .06484,    .10321,
     +     .46932,    .22015,    .72013,    .07794,    .03283,
     +     .02332,    .06433,    .10207,
     +     .46686,    .21843,    .70374,    .07714,    .03283,
     +     .02349,    .06379,    .10091 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
     +     .50349,    .27345,   1.08358,    .07559,    .00000,
     +     .00000,    .04719,    .12054,
     +     .51028,    .27481,   1.10480,    .07529,    .00000,
     +     .00000,    .04791,    .11954,
     +     .51850,    .27589,   1.14032,    .07494,   -.00736,
     +     .00000,    .04899,    .11816,
     +     .52321,    .27609,   1.14785,    .07478,   -.00619,
     +     .00000,    .04978,    .11717,
     +     .52722,    .27593,   1.14612,    .07469,   -.00353,
     +     .00000,    .05062,    .11620,
     +     .52998,    .27552,   1.14132,    .07462,   -.00146,
     +     .00000,    .05129,    .11532,
     +     .53216,    .27492,   1.13444,    .07454,    .00044,
     +     .00000,    .05188,    .11444,
     +     .53402,    .27406,   1.12496,    .07440,    .00240,
     +     .00000,    .05248,    .11350 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
     +     .53518,    .27316,   1.11441,    .07425,    .00395,
     +     .00000,    .05292,    .11266,
     +     .53595,    .27215,   1.10273,    .07409,    .00538,
     +     .00000,    .05332,    .11182,
     +     .53640,    .27130,   1.09297,    .07398,    .00649,
     +     .00000,    .05359,    .11113,
     +     .53671,    .26923,   1.07082,    .07364,    .00868,
     +     .00000,    .05411,    .10968,
     +     .53617,    .26717,   1.05164,    .07330,    .01037,
     +    -.00318,    .05444,    .10837,
     +     .53502,    .26468,   1.01987,    .07283,    .01210,
     +    -.00066,    .05471,    .10684,
     +     .53328,    .26190,    .98609,    .07227,    .01373,
     +     .00147,    .05486,    .10519,
     +     .53124,    .25927,    .95502,    .07168,    .01503,
     +     .00322,    .05488,    .10362 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
     +     .52881,    .25649,    .92357,    .07102,    .01622,
     +     .00483,    .05480,    .10201,
     +     .52654,    .25409,    .89733,    .07041,    .01710,
     +     .00603,    .05467,    .10066,
     +     .52342,    .25111,    .86561,    .06963,    .01803,
     +     .00734,    .05443,    .09897,
     +     .52043,    .24842,    .83797,    .06891,    .01878,
     +     .00841,    .05415,    .09745,
     +     .51756,    .24590,    .81305,    .06821,    .01939,
     +     .00931,    .05386,    .09605,
     +     .51357,    .24266,    .78167,    .06727,    .02005,
     +     .01031,    .05343,    .09423,
     +     .50963,    .23957,    .75292,    .06637,    .02058,
     +     .01115,    .05296,    .09251,
     +     .50581,    .23668,    .72679,    .06550,    .02103,
     +     .01188,    .05248,    .09090 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
     +     .50176,    .23372,    .70096,    .06459,    .02137,
     +     .01248,    .05195,    .08928,
     +     .49772,    .23082,    .67654,    .06368,    .02166,
     +     .01303,    .05140,    .08770,
     +     .49381,    .22805,    .65410,    .06280,    .02188,
     +     .01349,    .05085,    .08623,
     +     .48996,    .22543,    .63335,    .06196,    .02205,
     +     .01387,    .05031,    .08483,
     +     .48607,    .22284,    .61327,    .06113,    .02219,
     +     .01421,    .04976,    .08343,
     +     .48211,    .22024,    .59383,    .06029,    .02228,
     +     .01450,    .04920,    .08203,
     +     .47837,    .21781,    .57607,    .05949,    .02236,
     +     .01476,    .04866,    .08072,
     +     .47470,    .21546,    .55952,    .05872,    .02239,
     +     .01496,    .04813,    .07948 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
     +     .47102,    .21314,    .54341,    .05795,    .02240,
     +     .01514,    .04759,    .07826,
     +     .46732,    .21083,    .52787,    .05718,    .02239,
     +     .01529,    .04704,    .07704,
     +     .46375,    .20864,    .51347,    .05644,    .02237,
     +     .01541,    .04652,    .07590,
     +     .46037,    .20658,    .50020,    .05576,    .02234,
     +     .01551,    .04602,    .07483,
     +     .45686,    .20448,    .48700,    .05506,    .02228,
     +     .01559,    .04549,    .07374 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
     +     .54550,    .28659,    .95885,    .06206,    .00000,
     +     .00000,    .04006,    .10624,
     +     .55087,    .28664,    .97260,    .06153,    .00000,
     +     .00000,    .04039,    .10452,
     +     .55669,    .28586,    .99668,    .06090,   -.00699,
     +     .00000,    .04092,    .10212,
     +     .55951,    .28475,    .99695,    .06055,   -.00600,
     +     .00000,    .04135,    .10051,
     +     .56148,    .28321,    .98874,    .06025,   -.00377,
     +     .00000,    .04179,    .09895,
     +     .56244,    .28162,    .97857,    .05999,   -.00206,
     +     .00000,    .04219,    .09764,
     +     .56285,    .27991,    .96690,    .05972,   -.00048,
     +     .00000,    .04250,    .09640,
     +     .56278,    .27792,    .95273,    .05945,    .00111,
     +     .00000,    .04278,    .09508 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
     +     .56222,    .27606,    .93853,    .05921,    .00238,
     +     .00000,    .04301,    .09389,
     +     .56137,    .27415,    .92370,    .05895,    .00353,
     +     .00000,    .04317,    .09276,
     +     .56054,    .27256,    .91160,    .05872,    .00442,
     +     .00000,    .04329,    .09187,
     +     .55805,    .26906,    .88494,    .05824,    .00617,
     +     .00000,    .04345,    .09000,
     +     .55522,    .26579,    .86319,    .05774,    .00749,
     +    -.00302,    .04350,    .08842,
     +     .55150,    .26203,    .82994,    .05715,    .00883,
     +    -.00104,    .04350,    .08662,
     +     .54713,    .25801,    .79541,    .05645,    .01007,
     +     .00062,    .04337,    .08470,
     +     .54277,    .25426,    .76428,    .05576,    .01105,
     +     .00197,    .04318,    .08297 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
     +     .53804,    .25043,    .73327,    .05504,    .01193,
     +     .00320,    .04290,    .08121,
     +     .53388,    .24722,    .70784,    .05441,    .01257,
     +     .00410,    .04261,    .07974,
     +     .52854,    .24329,    .67754,    .05359,    .01324,
     +     .00508,    .04223,    .07794,
     +     .52366,    .23978,    .65151,    .05283,    .01376,
     +     .00587,    .04185,    .07637,
     +     .51909,    .23656,    .62832,    .05211,    .01417,
     +     .00652,    .04145,    .07495,
     +     .51298,    .23248,    .59949,    .05120,    .01461,
     +     .00724,    .04090,    .07311,
     +     .50711,    .22863,    .57340,    .05032,    .01496,
     +     .00784,    .04036,    .07142,
     +     .50157,    .22505,    .54997,    .04947,    .01522,
     +     .00834,    .03981,    .06986 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
     +     .49583,    .22145,    .52711,    .04861,    .01542,
     +     .00876,    .03924,    .06830,
     +     .49018,    .21796,    .50569,    .04777,    .01558,
     +     .00913,    .03867,    .06678,
     +     .48481,    .21468,    .48616,    .04696,    .01570,
     +     .00944,    .03811,    .06538,
     +     .47964,    .21158,    .46832,    .04618,    .01577,
     +     .00967,    .03757,    .06405,
     +     .47448,    .20853,    .45114,    .04540,    .01583,
     +     .00990,    .03703,    .06277,
     +     .46929,    .20549,    .43471,    .04464,    .01584,
     +     .01007,    .03648,    .06149,
     +     .46442,    .20266,    .41978,    .04392,    .01585,
     +     .01023,    .03596,    .06031,
     +     .45970,    .19999,    .40599,    .04324,    .01582,
     +     .01034,    .03546,    .05919 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
     +     .45498,    .19734,    .39262,    .04257,    .01580,
     +     .01044,    .03494,    .05807,
     +     .45028,    .19473,    .37983,    .04190,    .01575,
     +     .01052,    .03444,    .05699,
     +     .44582,    .19226,    .36805,    .04126,    .01569,
     +     .01057,    .03396,    .05597,
     +     .44161,    .18993,    .35725,    .04066,    .01562,
     +     .01062,    .03350,    .05502,
     +     .43729,    .18758,    .34659,    .04004,    .01555,
     +     .01065,    .03303,    .05407 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
     +     .57998,    .29446,    .87718,    .05037,    .00000,
     +     .00000,    .03308,    .09113,
     +     .58334,    .29312,    .88339,    .04985,    .00000,
     +     .00000,    .03318,    .08905,
     +     .58605,    .29035,    .89663,    .04922,   -.00696,
     +     .00000,    .03349,    .08626,
     +     .58652,    .28786,    .88948,    .04889,   -.00603,
     +     .00000,    .03374,    .08440,
     +     .58606,    .28494,    .87465,    .04858,   -.00408,
     +     .00000,    .03404,    .08260,
     +     .58486,    .28226,    .85925,    .04834,   -.00259,
     +     .00000,    .03425,    .08105,
     +     .58322,    .27949,    .84302,    .04808,   -.00123,
     +     .00000,    .03443,    .07961,
     +     .58102,    .27642,    .82453,    .04776,    .00013,
     +     .00000,    .03456,    .07815 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
     +     .57870,    .27361,    .80700,    .04745,    .00120,
     +     .00000,    .03463,    .07693,
     +     .57610,    .27085,    .78934,    .04716,    .00217,
     +     .00000,    .03469,    .07572,
     +     .57385,    .26865,    .77526,    .04693,    .00291,
     +     .00000,    .03471,    .07475,
     +     .56852,    .26384,    .74491,    .04639,    .00434,
     +     .00000,    .03472,    .07275,
     +     .56333,    .25955,    .72104,    .04588,    .00542,
     +    -.00284,    .03462,    .07108,
     +     .55705,    .25470,    .68684,    .04526,    .00650,
     +    -.00125,    .03445,    .06922,
     +     .55010,    .24959,    .65203,    .04455,    .00746,
     +     .00008,    .03419,    .06730,
     +     .54347,    .24496,    .62120,    .04388,    .00822,
     +     .00115,    .03388,    .06558 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
     +     .53657,    .24027,    .59104,    .04314,    .00889,
     +     .00211,    .03352,    .06385,
     +     .53064,    .23639,    .56673,    .04252,    .00936,
     +     .00280,    .03318,    .06242,
     +     .52329,    .23168,    .53812,    .04171,    .00985,
     +     .00355,    .03273,    .06071,
     +     .51668,    .22757,    .51385,    .04098,    .01022,
     +     .00414,    .03229,    .05922,
     +     .51054,    .22381,    .49247,    .04033,    .01051,
     +     .00463,    .03186,    .05788,
     +     .50262,    .21905,    .46625,    .03945,    .01080,
     +     .00516,    .03130,    .05619,
     +     .49511,    .21463,    .44283,    .03861,    .01102,
     +     .00559,    .03074,    .05464,
     +     .48806,    .21056,    .42200,    .03784,    .01119,
     +     .00595,    .03021,    .05320 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
     +     .48090,    .20651,    .40190,    .03706,    .01130,
     +     .00624,    .02965,    .05179,
     +     .47394,    .20260,    .38325,    .03629,    .01138,
     +     .00649,    .02911,    .05044,
     +     .46738,    .19893,    .36643,    .03554,    .01144,
     +     .00670,    .02860,    .04920,
     +     .46111,    .19554,    .35119,    .03485,    .01145,
     +     .00686,    .02809,    .04802,
     +     .45488,    .19220,    .33660,    .03418,    .01145,
     +     .00700,    .02759,    .04688,
     +     .44870,    .18890,    .32278,    .03351,    .01144,
     +     .00711,    .02710,    .04576,
     +     .44294,    .18583,    .31029,    .03288,    .01140,
     +     .00720,    .02662,    .04474,
     +     .43740,    .18294,    .29885,    .03229,    .01136,
     +     .00727,    .02618,    .04377 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
     +     .43190,    .18009,    .28783,    .03169,    .01132,
     +     .00733,    .02572,    .04282,
     +     .42647,    .17729,    .27734,    .03111,    .01124,
     +     .00736,    .02528,    .04190,
     +     .42133,    .17465,    .26774,    .03057,    .01118,
     +     .00739,    .02486,    .04103,
     +     .41648,    .17217,    .25897,    .03006,    .01111,
     +     .00741,    .02447,    .04023,
     +     .41158,    .16969,    .25040,    .02954,    .01103,
     +     .00742,    .02405,    .03943 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
     +     .60728,    .29771,    .82308,    .04042,    .00000,
     +     .00000,    .02639,    .07601,
     +     .60821,    .29487,    .82042,    .04002,    .00000,
     +     .00000,    .02653,    .07397,
     +     .60719,    .29013,    .82191,    .03963,   -.00705,
     +     .00000,    .02681,    .07113,
     +     .60503,    .28630,    .80686,    .03938,   -.00610,
     +     .00000,    .02706,    .06926,
     +     .60181,    .28214,    .78516,    .03914,   -.00434,
     +     .00000,    .02729,    .06747,
     +     .59843,    .27827,    .76455,    .03890,   -.00300,
     +     .00000,    .02745,    .06600,
     +     .59466,    .27452,    .74395,    .03865,   -.00180,
     +     .00000,    .02756,    .06459,
     +     .59019,    .27049,    .72137,    .03838,   -.00060,
     +     .00000,    .02766,    .06312 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
     +     .58593,    .26691,    .70093,    .03812,    .00033,
     +     .00000,    .02767,    .06189,
     +     .58159,    .26339,    .68089,    .03782,    .00116,
     +     .00000,    .02768,    .06071,
     +     .57801,    .26059,    .66515,    .03757,    .00179,
     +     .00000,    .02768,    .05980,
     +     .56987,    .25465,    .63200,    .03704,    .00298,
     +     .00000,    .02756,    .05790,
     +     .56237,    .24947,    .60654,    .03655,    .00388,
     +    -.00264,    .02742,    .05632,
     +     .55369,    .24368,    .57204,    .03592,    .00475,
     +    -.00134,    .02716,    .05459,
     +     .54436,    .23770,    .53756,    .03521,    .00552,
     +    -.00025,    .02685,    .05281,
     +     .53566,    .23233,    .50760,    .03456,    .00611,
     +     .00059,    .02651,    .05120 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
     +     .52675,    .22698,    .47876,    .03389,    .00662,
     +     .00135,    .02613,    .04959,
     +     .51928,    .22258,    .45583,    .03330,    .00698,
     +     .00190,    .02578,    .04830,
     +     .51011,    .21730,    .42928,    .03256,    .00734,
     +     .00247,    .02532,    .04675,
     +     .50198,    .21272,    .40701,    .03188,    .00760,
     +     .00293,    .02489,    .04543,
     +     .49454,    .20858,    .38755,    .03126,    .00781,
     +     .00330,    .02448,    .04424,
     +     .48505,    .20337,    .36404,    .03045,    .00801,
     +     .00369,    .02395,    .04276,
     +     .47614,    .19857,    .34330,    .02970,    .00814,
     +     .00400,    .02343,    .04138,
     +     .46786,    .19419,    .32504,    .02900,    .00824,
     +     .00426,    .02294,    .04013 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
     +     .45956,    .18985,    .30761,    .02829,    .00830,
     +     .00446,    .02243,    .03890,
     +     .45152,    .18569,    .29156,    .02761,    .00834,
     +     .00464,    .02194,    .03775,
     +     .44399,    .18182,    .27724,    .02697,    .00835,
     +     .00478,    .02148,    .03667,
     +     .43688,    .17822,    .26435,    .02638,    .00834,
     +     .00489,    .02103,    .03569,
     +     .42985,    .17470,    .25212,    .02579,    .00833,
     +     .00498,    .02059,    .03472,
     +     .42296,    .17126,    .24063,    .02519,    .00829,
     +     .00505,    .02015,    .03380,
     +     .41653,    .16807,    .23028,    .02463,    .00824,
     +     .00510,    .01974,    .03296,
     +     .41039,    .16509,    .22092,    .02413,    .00818,
     +     .00513,    .01935,    .03215 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
     +     .40432,    .16215,    .21193,    .02365,    .00813,
     +     .00517,    .01896,    .03134,
     +     .39834,    .15928,    .20342,    .02317,    .00807,
     +     .00518,    .01859,    .03058,
     +     .39273,    .15657,    .19566,    .02270,    .00799,
     +     .00519,    .01822,    .02988,
     +     .38746,    .15406,    .18863,    .02228,    .00792,
     +     .00519,    .01789,    .02922,
     +     .38213,    .15155,    .18180,    .02183,    .00785,
     +     .00518,    .01756,    .02856 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
     +     .62762,    .29676,    .78180,    .03205,    .00000,
     +     .00000,    .02033,    .06172,
     +     .62560,    .29261,    .76948,    .03192,    .00000,
     +     .00000,    .02063,    .05983,
     +     .62066,    .28584,    .75869,    .03168,   -.00707,
     +     .00000,    .02104,    .05737,
     +     .61566,    .28078,    .73590,    .03155,   -.00609,
     +     .00000,    .02130,    .05567,
     +     .60975,    .27528,    .70767,    .03134,   -.00447,
     +     .00000,    .02160,    .05405,
     +     .60394,    .27049,    .68237,    .03117,   -.00325,
     +     .00000,    .02175,    .05270,
     +     .59800,    .26589,    .65793,    .03098,   -.00217,
     +     .00000,    .02185,    .05143,
     +     .59134,    .26098,    .63203,    .03074,   -.00112,
     +     .00000,    .02192,    .05010 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
     +     .58525,    .25667,    .60932,    .03049,   -.00030,
     +     .00000,    .02195,    .04898,
     +     .57915,    .25253,    .58759,    .03023,    .00041,
     +     .00000,    .02191,    .04792,
     +     .57424,    .24928,    .57073,    .03000,    .00095,
     +     .00000,    .02186,    .04710,
     +     .56343,    .24238,    .53589,    .02951,    .00197,
     +     .00000,    .02176,    .04536,
     +     .55379,    .23652,    .50965,    .02903,    .00271,
     +    -.00240,    .02157,    .04395,
     +     .54285,    .23005,    .47566,    .02846,    .00342,
     +    -.00133,    .02131,    .04239,
     +     .53134,    .22342,    .44234,    .02782,    .00405,
     +    -.00045,    .02097,    .04080,
     +     .52084,    .21750,    .41388,    .02719,    .00452,
     +     .00023,    .02064,    .03940 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
     +     .51024,    .21163,    .38690,    .02653,    .00491,
     +     .00084,    .02027,    .03803,
     +     .50141,    .20688,    .36572,    .02598,    .00518,
     +     .00126,    .01993,    .03691,
     +     .49072,    .20123,    .34148,    .02531,    .00545,
     +     .00171,    .01950,    .03557,
     +     .48134,    .19634,    .32145,    .02470,    .00563,
     +     .00205,    .01910,    .03442,
     +     .47283,    .19193,    .30415,    .02414,    .00578,
     +     .00233,    .01873,    .03339,
     +     .46201,    .18649,    .28347,    .02346,    .00591,
     +     .00263,    .01824,    .03208,
     +     .45199,    .18149,    .26540,    .02281,    .00600,
     +     .00286,    .01777,    .03094,
     +     .44278,    .17691,    .24963,    .02219,    .00606,
     +     .00305,    .01732,    .02993 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
     +     .43360,    .17240,    .23480,    .02156,    .00609,
     +     .00320,    .01688,    .02891,
     +     .42475,    .16814,    .22126,    .02097,    .00609,
     +     .00332,    .01644,    .02796,
     +     .41649,    .16422,    .20923,    .02042,    .00609,
     +     .00341,    .01604,    .02708,
     +     .40878,    .16055,    .19852,    .01991,    .00607,
     +     .00348,    .01566,    .02626,
     +     .40121,    .15696,    .18840,    .01940,    .00603,
     +     .00354,    .01531,    .02545,
     +     .39376,    .15351,    .17898,    .01891,    .00599,
     +     .00358,    .01493,    .02471,
     +     .38685,    .15031,    .17055,    .01846,    .00594,
     +     .00361,    .01458,    .02401,
     +     .38035,    .14733,    .16298,    .01803,    .00589,
     +     .00363,    .01425,    .02337 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
     +     .37392,    .14438,    .15574,    .01761,    .00583,
     +     .00364,    .01393,    .02275,
     +     .36760,    .14152,    .14897,    .01720,    .00577,
     +     .00364,    .01361,    .02213,
     +     .36167,    .13885,    .14281,    .01683,    .00571,
     +     .00364,    .01332,    .02155,
     +     .35614,    .13636,    .13723,    .01648,    .00564,
     +     .00364,    .01306,    .02102,
     +     .35057,    .13386,    .13184,    .01612,    .00559,
     +     .00363,    .01278,    .02050 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
     +     .64129,    .29199,    .74191,    .02493,    .00000,
     +     .00000,    .01531,    .04899,
     +     .63618,    .28653,    .72031,    .02505,    .00000,
     +     .00000,    .01574,    .04735,
     +     .62676,    .27821,    .69797,    .02515,   -.00693,
     +     .00000,    .01623,    .04517,
     +     .61892,    .27200,    .66837,    .02511,   -.00594,
     +     .00000,    .01652,    .04378,
     +     .61009,    .26552,    .63477,    .02505,   -.00445,
     +     .00000,    .01680,    .04241,
     +     .60197,    .25992,    .60577,    .02497,   -.00333,
     +     .00000,    .01698,    .04120,
     +     .59390,    .25457,    .57857,    .02484,   -.00237,
     +     .00000,    .01706,    .04010,
     +     .58511,    .24893,    .55040,    .02463,   -.00143,
     +     .00000,    .01712,    .03898 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
     +     .57723,    .24409,    .52634,    .02445,   -.00072,
     +     .00000,    .01713,    .03800,
     +     .56953,    .23944,    .50371,    .02419,   -.00009,
     +     .00000,    .01711,    .03709,
     +     .56341,    .23578,    .48643,    .02396,    .00037,
     +     .00000,    .01705,    .03640,
     +     .55019,    .22813,    .45127,    .02349,    .00122,
     +     .00000,    .01690,    .03495,
     +     .53867,    .22176,    .42518,    .02308,    .00185,
     +    -.00213,    .01676,    .03367,
     +     .52575,    .21478,    .39258,    .02255,    .00243,
     +    -.00126,    .01652,    .03234,
     +     .51235,    .20769,    .36121,    .02196,    .00293,
     +    -.00054,    .01619,    .03100,
     +     .50030,    .20143,    .33484,    .02140,    .00330,
     +     .00001,    .01586,    .02982 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
     +     .48826,    .19529,    .31018,    .02080,    .00361,
     +     .00049,    .01550,    .02867,
     +     .47833,    .19032,    .29110,    .02034,    .00381,
     +     .00082,    .01521,    .02769,
     +     .46642,    .18442,    .26957,    .01972,    .00401,
     +     .00117,    .01483,    .02659,
     +     .45606,    .17937,    .25192,    .01919,    .00416,
     +     .00144,    .01448,    .02565,
     +     .44670,    .17488,    .23684,    .01869,    .00426,
     +     .00165,    .01415,    .02479,
     +     .43492,    .16930,    .21904,    .01809,    .00434,
     +     .00186,    .01372,    .02376,
     +     .42411,    .16420,    .20363,    .01751,    .00439,
     +     .00203,    .01332,    .02281,
     +     .41423,    .15958,    .19028,    .01696,    .00443,
     +     .00217,    .01295,    .02198 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
     +     .40441,    .15509,    .17788,    .01644,    .00443,
     +     .00227,    .01257,    .02117,
     +     .39501,    .15083,    .16663,    .01595,    .00443,
     +     .00236,    .01221,    .02039,
     +     .38630,    .14688,    .15674,    .01550,    .00442,
     +     .00243,    .01188,    .01965,
     +     .37822,    .14325,    .14801,    .01505,    .00438,
     +     .00247,    .01157,    .01902,
     +     .37031,    .13970,    .13981,    .01462,    .00436,
     +     .00251,    .01125,    .01840,
     +     .36256,    .13631,    .13224,    .01423,    .00431,
     +     .00253,    .01094,    .01779,
     +     .35538,    .13317,    .12551,    .01386,    .00427,
     +     .00256,    .01067,    .01723,
     +     .34867,    .13024,    .11949,    .01348,    .00422,
     +     .00256,    .01040,    .01675 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
     +     .34207,    .12737,    .11375,    .01311,    .00417,
     +     .00256,    .01012,    .01627,
     +     .33561,    .12459,    .10841,    .01278,    .00412,
     +     .00257,    .00987,    .01580,
     +     .32956,    .12200,    .10358,    .01248,    .00407,
     +     .00256,    .00965,    .01535,
     +     .32393,    .11959,    .09924,    .01220,    .00402,
     +     .00255,    .00942,    .01492,
     +     .31826,    .11721,    .09507,    .01190,    .00396,
     +     .00253,    .00921,    .01453 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
     +     .64702,    .28526,    .69720,    .02020,    .00000,
     +     .00000,    .01056,    .03717,
     +     .63893,    .27848,    .66737,    .02035,    .00000,
     +     .00000,    .01114,    .03604,
     +     .62551,    .26837,    .63493,    .02041,   -.00661,
     +     .00000,    .01185,    .03448,
     +     .61494,    .26115,    .60003,    .02041,   -.00561,
     +     .00000,    .01226,    .03338,
     +     .60340,    .25377,    .56261,    .02040,   -.00425,
     +     .00000,    .01261,    .03226,
     +     .59321,    .24738,    .53134,    .02027,   -.00325,
     +     .00000,    .01280,    .03137,
     +     .58321,    .24140,    .50258,    .02010,   -.00238,
     +     .00000,    .01295,    .03052,
     +     .57246,    .23519,    .47348,    .01990,   -.00157,
     +     .00000,    .01304,    .02959 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
     +     .56309,    .22983,    .44903,    .01968,   -.00095,
     +     .00000,    .01306,    .02882,
     +     .55394,    .22480,    .42639,    .01946,   -.00041,
     +     .00000,    .01305,    .02807,
     +     .54668,    .22089,    .40931,    .01930,   -.00002,
     +     .00000,    .01302,    .02746,
     +     .53133,    .21276,    .37506,    .01884,    .00071,
     +     .00000,    .01291,    .02627,
     +     .51823,    .20597,    .35004,    .01840,    .00121,
     +    -.00185,    .01276,    .02530,
     +     .50368,    .19861,    .31976,    .01790,    .00169,
     +    -.00113,    .01256,    .02421,
     +     .48875,    .19124,    .29105,    .01737,    .00210,
     +    -.00055,    .01228,    .02309,
     +     .47545,    .18476,    .26731,    .01686,    .00238,
     +    -.00012,    .01203,    .02211 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
     +     .46231,    .17846,    .24544,    .01631,    .00262,
     +     .00026,    .01173,    .02117,
     +     .45156,    .17337,    .22864,    .01584,    .00278,
     +     .00052,    .01145,    .02049,
     +     .43874,    .16742,    .20994,    .01532,    .00293,
     +     .00079,    .01112,    .01957,
     +     .42766,    .16233,    .19479,    .01486,    .00303,
     +     .00099,    .01082,    .01879,
     +     .41773,    .15778,    .18194,    .01444,    .00310,
     +     .00115,    .01052,    .01815,
     +     .40532,    .15222,    .16692,    .01388,    .00316,
     +     .00131,    .01019,    .01731,
     +     .39395,    .14720,    .15409,    .01338,    .00319,
     +     .00144,    .00986,    .01657,
     +     .38358,    .14266,    .14311,    .01294,    .00321,
     +     .00154,    .00952,    .01590 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
     +     .37341,    .13824,    .13296,    .01251,    .00321,
     +     .00161,    .00923,    .01523,
     +     .36373,    .13404,    .12387,    .01209,    .00319,
     +     .00167,    .00894,    .01461,
     +     .35479,    .13021,    .11590,    .01168,    .00318,
     +     .00172,    .00867,    .01407,
     +     .34651,    .12668,    .10892,    .01133,    .00314,
     +     .00174,    .00842,    .01358,
     +     .33842,    .12326,    .10240,    .01099,    .00312,
     +     .00177,    .00817,    .01309,
     +     .33057,    .11996,    .09646,    .01065,    .00308,
     +     .00179,    .00792,    .01264,
     +     .32331,    .11694,    .09117,    .01035,    .00304,
     +     .00179,    .00769,    .01221,
     +     .31655,    .11413,    .08647,    .01006,    .00301,
     +     .00180,    .00749,    .01183 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
     +     .30992,    .11140,    .08203,    .00977,    .00296,
     +     .00180,    .00728,    .01145,
     +     .30346,    .10875,    .07792,    .00949,    .00291,
     +     .00179,    .00709,    .01108,
     +     .29743,    .10629,    .07423,    .00924,    .00287,
     +     .00179,    .00690,    .01074,
     +     .29182,    .10401,    .07092,    .00900,    .00283,
     +     .00177,    .00672,    .01043,
     +     .28619,    .10175,    .06773,    .00878,    .00279,
     +     .00177,    .00656,    .01014 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
     +     .64736,    .27469,    .64317,    .01552,    .00000,
     +     .00000,    .00732,    .02786,
     +     .63606,    .26694,    .60715,    .01580,    .00000,
     +     .00000,    .00800,    .02702,
     +     .61840,    .25560,    .56724,    .01605,   -.00611,
     +     .00000,    .00875,    .02585,
     +     .60514,    .24762,    .52913,    .01611,   -.00515,
     +     .00000,    .00915,    .02507,
     +     .59105,    .23950,    .48990,    .01612,   -.00394,
     +     .00000,    .00946,    .02428,
     +     .57878,    .23262,    .45782,    .01603,   -.00304,
     +     .00000,    .00969,    .02357,
     +     .56698,    .22619,    .42889,    .01592,   -.00230,
     +     .00000,    .00983,    .02288,
     +     .55449,    .21957,    .40007,    .01577,   -.00159,
     +     .00000,    .00991,    .02215 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
     +     .54361,    .21398,    .37631,    .01558,   -.00105,
     +     .00000,    .00995,    .02153,
     +     .53320,    .20865,    .35464,    .01537,   -.00060,
     +     .00000,    .00994,    .02093,
     +     .52506,    .20452,    .33838,    .01520,   -.00027,
     +     .00000,    .00993,    .02049,
     +     .50784,    .19610,    .30634,    .01482,    .00033,
     +     .00000,    .00981,    .01949,
     +     .49338,    .18914,    .28317,    .01443,    .00075,
     +    -.00156,    .00966,    .01873,
     +     .47755,    .18164,    .25585,    .01399,    .00114,
     +    -.00099,    .00948,    .01788,
     +     .46144,    .17416,    .23036,    .01351,    .00146,
     +    -.00053,    .00927,    .01698,
     +     .44719,    .16766,    .20959,    .01305,    .00168,
     +    -.00018,    .00902,    .01621 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
     +     .43322,    .16131,    .19065,    .01259,    .00187,
     +     .00011,    .00875,    .01550,
     +     .42188,    .15627,    .17633,    .01221,    .00199,
     +     .00031,    .00854,    .01488,
     +     .40841,    .15038,    .16052,    .01177,    .00210,
     +     .00052,    .00826,    .01417,
     +     .39684,    .14538,    .14784,    .01137,    .00217,
     +     .00067,    .00802,    .01358,
     +     .38655,    .14094,    .13720,    .01099,    .00223,
     +     .00079,    .00779,    .01305,
     +     .37380,    .13551,    .12491,    .01054,    .00226,
     +     .00091,    .00750,    .01241,
     +     .36217,    .13059,    .11451,    .01014,    .00229,
     +     .00100,    .00722,    .01182,
     +     .35163,    .12619,    .10565,    .00978,    .00229,
     +     .00107,    .00698,    .01130 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
     +     .34130,    .12192,    .09759,    .00939,    .00228,
     +     .00112,    .00673,    .01082,
     +     .33153,    .11790,    .09040,    .00903,    .00227,
     +     .00116,    .00650,    .01037,
     +     .32257,    .11422,    .08413,    .00870,    .00226,
     +     .00120,    .00626,    .00997,
     +     .31429,    .11088,    .07870,    .00842,    .00223,
     +     .00122,    .00606,    .00958,
     +     .30624,    .10764,    .07365,    .00813,    .00220,
     +     .00123,    .00587,    .00920,
     +     .29842,    .10453,    .06906,    .00786,    .00218,
     +     .00125,    .00568,    .00886,
     +     .29122,    .10168,    .06501,    .00762,    .00214,
     +     .00125,    .00550,    .00856,
     +     .28454,    .09904,    .06146,    .00739,    .00210,
     +     .00124,    .00534,    .00827 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
     +     .27801,    .09645,    .05809,    .00716,    .00208,
     +     .00125,    .00518,    .00798,
     +     .27169,    .09398,    .05501,    .00694,    .00204,
     +     .00124,    .00503,    .00772,
     +     .26580,    .09167,    .05225,    .00673,    .00200,
     +     .00123,    .00489,    .00747,
     +     .26034,    .08955,    .04977,    .00654,    .00198,
     +     .00123,    .00475,    .00724,
     +     .25488,    .08745,    .04743,    .00636,    .00194,
     +     .00122,    .00461,    .00702 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
     +     .64107,    .26238,    .58013,    .01212,    .00000,
     +     .00000,    .00465,    .02006,
     +     .62686,    .25367,    .54022,    .01244,    .00000,
     +     .00000,    .00537,    .01959,
     +     .60525,    .24129,    .49568,    .01274,   -.00549,
     +     .00000,    .00617,    .01885,
     +     .58945,    .23275,    .45647,    .01286,   -.00459,
     +     .00000,    .00661,    .01824,
     +     .57318,    .22406,    .41731,    .01283,   -.00352,
     +     .00000,    .00694,    .01773,
     +     .55904,    .21688,    .38601,    .01277,   -.00276,
     +     .00000,    .00714,    .01718,
     +     .54568,    .21015,    .35815,    .01267,   -.00210,
     +     .00000,    .00729,    .01666,
     +     .53174,    .20321,    .33078,    .01249,   -.00150,
     +     .00000,    .00741,    .01614 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
     +     .51970,    .19736,    .30857,    .01233,   -.00105,
     +     .00000,    .00742,    .01570,
     +     .50827,    .19191,    .28857,    .01213,   -.00067,
     +     .00000,    .00742,    .01527,
     +     .49936,    .18773,    .27373,    .01194,   -.00040,
     +     .00000,    .00741,    .01491,
     +     .48079,    .17907,    .24479,    .01155,    .00009,
     +     .00000,    .00733,    .01422,
     +     .46530,    .17206,    .22398,    .01123,    .00043,
     +    -.00129,    .00721,    .01360,
     +     .44846,    .16457,    .20015,    .01082,    .00074,
     +    -.00083,    .00706,    .01294,
     +     .43149,    .15716,    .17823,    .01042,    .00099,
     +    -.00048,    .00686,    .01227,
     +     .41661,    .15074,    .16058,    .01005,    .00117,
     +    -.00020,    .00667,    .01166 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
     +     .40209,    .14455,    .14472,    .00964,    .00131,
     +     .00002,    .00647,    .01107,
     +     .39040,    .13959,    .13285,    .00932,    .00140,
     +     .00017,    .00627,    .01064,
     +     .37665,    .13386,    .11988,    .00894,    .00148,
     +     .00033,    .00605,    .01007,
     +     .36488,    .12900,    .10960,    .00860,    .00154,
     +     .00045,    .00585,    .00962,
     +     .35443,    .12472,    .10102,    .00829,    .00157,
     +     .00054,    .00567,    .00924,
     +     .34155,    .11950,    .09122,    .00791,    .00159,
     +     .00062,    .00542,    .00878,
     +     .32989,    .11482,    .08302,    .00756,    .00161,
     +     .00069,    .00522,    .00835,
     +     .31938,    .11062,    .07609,    .00725,    .00161,
     +     .00074,    .00503,    .00795 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
     +     .30913,    .10658,    .06986,    .00697,    .00161,
     +     .00078,    .00483,    .00756,
     +     .29945,    .10280,    .06430,    .00671,    .00160,
     +     .00081,    .00465,    .00722,
     +     .29057,    .09936,    .05953,    .00644,    .00158,
     +     .00083,    .00448,    .00692,
     +     .28245,    .09623,    .05543,    .00619,    .00156,
     +     .00084,    .00432,    .00664,
     +     .27455,    .09319,    .05164,    .00596,    .00154,
     +     .00085,    .00417,    .00635,
     +     .26694,    .09028,    .04821,    .00575,    .00152,
     +     .00086,    .00403,    .00610,
     +     .25996,    .08765,    .04520,    .00556,    .00149,
     +     .00086,    .00389,    .00587,
     +     .25348,    .08520,    .04258,    .00539,    .00146,
     +     .00086,    .00377,    .00565 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
     +     .24717,    .08283,    .04012,    .00521,    .00144,
     +     .00086,    .00366,    .00543,
     +     .24106,    .08054,    .03785,    .00505,    .00141,
     +     .00086,    .00354,    .00525,
     +     .23537,    .07842,    .03585,    .00490,    .00139,
     +     .00085,    .00342,    .00507,
     +     .23012,    .07649,    .03405,    .00475,    .00136,
     +     .00084,    .00332,    .00491,
     +     .22492,    .07456,    .03237,    .00459,    .00133,
     +     .00083,    .00322,    .00476 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
     +     .62890,    .24813,    .50932,    .00938,    .00000,
     +     .00000,    .00276,    .01400,
     +     .61189,    .23878,    .46806,    .00973,    .00000,
     +     .00000,    .00347,    .01379,
     +     .58686,    .22561,    .42184,    .00998,   -.00479,
     +     .00000,    .00429,    .01334,
     +     .56895,    .21656,    .38358,    .01002,   -.00398,
     +     .00000,    .00469,    .01305,
     +     .55061,    .20755,    .34632,    .01004,   -.00306,
     +     .00000,    .00499,    .01269,
     +     .53496,    .20010,    .31693,    .00999,   -.00241,
     +     .00000,    .00520,    .01236,
     +     .52027,    .19323,    .29124,    .00988,   -.00186,
     +     .00000,    .00532,    .01202,
     +     .50509,    .18619,    .26632,    .00972,   -.00135,
     +     .00000,    .00540,    .01164 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
     +     .49220,    .18029,    .24639,    .00952,   -.00099,
     +     .00000,    .00547,    .01128,
     +     .47991,    .17484,    .22855,    .00939,   -.00067,
     +     .00000,    .00547,    .01094,
     +     .47037,    .17066,    .21544,    .00929,   -.00045,
     +     .00000,    .00543,    .01067,
     +     .45079,    .16205,    .19026,    .00893,   -.00006,
     +     .00000,    .00539,    .01013,
     +     .43457,    .15511,    .17234,    .00865,    .00021,
     +    -.00104,    .00529,    .00968,
     +     .41716,    .14772,    .15223,    .00829,    .00046,
     +    -.00068,    .00516,    .00919,
     +     .39968,    .14044,    .13396,    .00794,    .00065,
     +    -.00041,    .00500,    .00871,
     +     .38441,    .13423,    .11945,    .00763,    .00079,
     +    -.00020,    .00485,    .00827 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
     +     .36967,    .12829,    .10658,    .00732,    .00090,
     +    -.00003,    .00470,    .00779,
     +     .35787,    .12354,    .09706,    .00703,    .00096,
     +     .00008,    .00454,    .00745,
     +     .34405,    .11805,    .08677,    .00669,    .00103,
     +     .00020,    .00436,    .00708,
     +     .33230,    .11342,    .07867,    .00642,    .00107,
     +     .00029,    .00421,    .00673,
     +     .32192,    .10936,    .07199,    .00618,    .00109,
     +     .00036,    .00406,    .00643,
     +     .30912,    .10443,    .06446,    .00587,    .00111,
     +     .00042,    .00387,    .00609,
     +     .29763,    .10003,    .05820,    .00560,    .00112,
     +     .00047,    .00372,    .00576,
     +     .28731,    .09612,    .05296,    .00537,    .00111,
     +     .00050,    .00357,    .00545 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
     +     .27727,    .09235,    .04829,    .00514,    .00111,
     +     .00053,    .00342,    .00520,
     +     .26787,    .08883,    .04418,    .00491,    .00111,
     +     .00055,    .00329,    .00495,
     +     .25931,    .08564,    .04068,    .00469,    .00109,
     +     .00057,    .00315,    .00472,
     +     .25145,    .08273,    .03767,    .00452,    .00107,
     +     .00057,    .00304,    .00452,
     +     .24384,    .07994,    .03494,    .00434,    .00106,
     +     .00058,    .00291,    .00432,
     +     .23657,    .07728,    .03247,    .00417,    .00104,
     +     .00058,    .00281,    .00413,
     +     .22991,    .07485,    .03031,    .00401,    .00102,
     +     .00058,    .00271,    .00397,
     +     .22374,    .07262,    .02844,    .00387,    .00100,
     +     .00058,    .00262,    .00382 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
     +     .21772,    .07044,    .02668,    .00374,    .00098,
     +     .00058,    .00252,    .00369,
     +     .21192,    .06838,    .02510,    .00361,    .00096,
     +     .00058,    .00244,    .00356,
     +     .20656,    .06645,    .02369,    .00348,    .00095,
     +     .00058,    .00235,    .00343,
     +     .20161,    .06469,    .02245,    .00337,    .00092,
     +     .00057,    .00228,    .00331,
     +     .19669,    .06298,    .02128,    .00327,    .00091,
     +     .00057,    .00221,    .00319 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
     +     .61155,    .23208,    .43366,    .00687,    .00000,
     +     .00000,    .00156,    .00959,
     +     .59193,    .22239,    .39335,    .00725,    .00000,
     +     .00000,    .00225,    .00950,
     +     .56381,    .20867,    .34827,    .00749,   -.00407,
     +     .00000,    .00291,    .00941,
     +     .54404,    .19946,    .31257,    .00763,   -.00336,
     +     .00000,    .00332,    .00915,
     +     .52405,    .19035,    .27857,    .00762,   -.00259,
     +     .00000,    .00361,    .00895,
     +     .50724,    .18279,    .25224,    .00756,   -.00204,
     +     .00000,    .00380,    .00871,
     +     .49158,    .17588,    .22944,    .00749,   -.00158,
     +     .00000,    .00389,    .00848,
     +     .47545,    .16888,    .20763,    .00736,   -.00118,
     +     .00000,    .00395,    .00822 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
     +     .46176,    .16308,    .19038,    .00724,   -.00088,
     +     .00000,    .00398,    .00797,
     +     .44895,    .15765,    .17516,    .00708,   -.00063,
     +     .00000,    .00399,    .00775,
     +     .43908,    .15348,    .16403,    .00696,   -.00045,
     +     .00000,    .00399,    .00757,
     +     .41871,    .14513,    .14293,    .00673,   -.00013,
     +     .00000,    .00395,    .00711,
     +     .40212,    .13841,    .12800,    .00648,    .00008,
     +    -.00082,    .00387,    .00679,
     +     .38436,    .13127,    .11160,    .00621,    .00027,
     +    -.00055,    .00378,    .00644,
     +     .36676,    .12430,    .09698,    .00589,    .00041,
     +    -.00034,    .00364,    .00606,
     +     .35151,    .11837,    .08556,    .00561,    .00052,
     +    -.00018,    .00351,    .00573 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
     +     .33676,    .11270,    .07547,    .00536,    .00060,
     +    -.00005,    .00337,    .00542,
     +     .32504,    .10821,    .06805,    .00516,    .00065,
     +     .00003,    .00327,    .00518,
     +     .31138,    .10305,    .06016,    .00490,    .00070,
     +     .00012,    .00313,    .00491,
     +     .29981,    .09873,    .05408,    .00467,    .00073,
     +     .00019,    .00301,    .00465,
     +     .28961,    .09495,    .04912,    .00449,    .00074,
     +     .00023,    .00288,    .00443,
     +     .27718,    .09037,    .04355,    .00424,    .00075,
     +     .00027,    .00275,    .00415,
     +     .26604,    .08630,    .03896,    .00403,    .00076,
     +     .00031,    .00262,    .00393,
     +     .25608,    .08267,    .03517,    .00384,    .00076,
     +     .00034,    .00250,    .00374 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
     +     .24647,    .07920,    .03180,    .00367,    .00076,
     +     .00036,    .00238,    .00354,
     +     .23746,    .07598,    .02889,    .00350,    .00075,
     +     .00037,    .00229,    .00336,
     +     .22926,    .07307,    .02641,    .00334,    .00074,
     +     .00038,    .00220,    .00319,
     +     .22179,    .07043,    .02432,    .00321,    .00073,
     +     .00039,    .00212,    .00305,
     +     .21456,    .06790,    .02241,    .00309,    .00072,
     +     .00040,    .00202,    .00291,
     +     .20769,    .06550,    .02072,    .00295,    .00071,
     +     .00040,    .00194,    .00278,
     +     .20140,    .06332,    .01927,    .00282,    .00068,
     +     .00039,    .00187,    .00265,
     +     .19563,    .06129,    .01801,    .00271,    .00067,
     +     .00039,    .00179,    .00257 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
     +     .19001,    .05933,    .01684,    .00260,    .00066,
     +     .00039,    .00173,    .00247,
     +     .18461,    .05749,    .01578,    .00250,    .00064,
     +     .00039,    .00166,    .00237,
     +     .17958,    .05580,    .01484,    .00242,    .00064,
     +     .00039,    .00161,    .00227,
     +     .17496,    .05423,    .01403,    .00234,    .00062,
     +     .00038,    .00155,    .00218,
     +     .17041,    .05269,    .01327,    .00227,    .00060,
     +     .00037,    .00150,    .00210 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
     +     .58880,    .21558,    .35634,    .00540,    .00000,
     +     .00000,    .00059,    .00609,
     +     .56734,    .20534,    .31890,    .00562,    .00000,
     +     .00000,    .00118,    .00627,
     +     .53654,    .19157,    .27724,    .00586,   -.00336,
     +     .00000,    .00190,    .00618,
     +     .51541,    .18221,    .24542,    .00585,   -.00275,
     +     .00000,    .00224,    .00619,
     +     .49410,    .17311,    .21576,    .00589,   -.00212,
     +     .00000,    .00248,    .00603,
     +     .47639,    .16562,    .19312,    .00586,   -.00168,
     +     .00000,    .00262,    .00590,
     +     .46001,    .15881,    .17374,    .00574,   -.00131,
     +     .00000,    .00272,    .00578,
     +     .44325,    .15195,    .15539,    .00561,   -.00098,
     +     .00000,    .00278,    .00563 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
     +     .42920,    .14622,    .14109,    .00553,   -.00075,
     +     .00000,    .00282,    .00544,
     +     .41608,    .14096,    .12864,    .00540,   -.00055,
     +     .00000,    .00282,    .00527,
     +     .40600,    .13696,    .11962,    .00525,   -.00041,
     +     .00000,    .00281,    .00517,
     +     .38536,    .12888,    .10262,    .00505,   -.00016,
     +     .00000,    .00282,    .00485,
     +     .36869,    .12243,    .09079,    .00483,    .00000,
     +    -.00063,    .00276,    .00463,
     +     .35087,    .11570,    .07800,    .00464,    .00014,
     +    -.00043,    .00268,    .00435,
     +     .33336,    .10913,    .06673,    .00439,    .00026,
     +    -.00027,    .00255,    .00411,
     +     .31834,    .10351,    .05804,    .00415,    .00034,
     +    -.00015,    .00245,    .00391 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
     +     .30388,    .09821,    .05051,    .00393,    .00039,
     +    -.00006,    .00235,    .00367,
     +     .29242,    .09402,    .04505,    .00378,    .00043,
     +     .00001,    .00228,    .00347,
     +     .27920,    .08922,    .03932,    .00355,    .00046,
     +     .00006,    .00218,    .00328,
     +     .26803,    .08522,    .03492,    .00338,    .00049,
     +     .00011,    .00209,    .00312,
     +     .25817,    .08174,    .03138,    .00325,    .00050,
     +     .00015,    .00199,    .00298,
     +     .24628,    .07753,    .02742,    .00308,    .00051,
     +     .00019,    .00190,    .00278,
     +     .23566,    .07381,    .02423,    .00290,    .00051,
     +     .00021,    .00181,    .00262,
     +     .22617,    .07052,    .02164,    .00275,    .00051,
     +     .00023,    .00173,    .00248 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
     +     .21707,    .06737,    .01940,    .00260,    .00050,
     +     .00023,    .00164,    .00234,
     +     .20857,    .06444,    .01746,    .00247,    .00050,
     +     .00025,    .00155,    .00223,
     +     .20085,    .06182,    .01582,    .00235,    .00050,
     +     .00026,    .00148,    .00212,
     +     .19387,    .05945,    .01447,    .00224,    .00049,
     +     .00026,    .00141,    .00202,
     +     .18714,    .05716,    .01325,    .00213,    .00047,
     +     .00026,    .00136,    .00193,
     +     .18074,    .05502,    .01216,    .00204,    .00047,
     +     .00026,    .00131,    .00182,
     +     .17488,    .05308,    .01122,    .00197,    .00046,
     +     .00026,    .00125,    .00174,
     +     .16950,    .05131,    .01043,    .00191,    .00045,
     +     .00026,    .00120,    .00166 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
     +     .16427,    .04958,    .00972,    .00184,    .00044,
     +     .00026,    .00115,    .00160,
     +     .15927,    .04794,    .00906,    .00178,    .00043,
     +     .00026,    .00111,    .00153,
     +     .15467,    .04643,    .00848,    .00170,    .00042,
     +     .00025,    .00108,    .00147,
     +     .15043,    .04506,    .00799,    .00165,    .00041,
     +     .00026,    .00103,    .00141,
     +     .14626,    .04369,    .00752,    .00160,    .00040,
     +     .00025,    .00100,    .00136 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
     +     .56194,    .19812,    .28057,    .00403,    .00000,
     +     .00000,   -.00002,    .00374,
     +     .53859,    .18805,    .24739,    .00428,    .00000,
     +     .00000,    .00055,    .00390,
     +     .50594,    .17421,    .21086,    .00446,   -.00270,
     +     .00000,    .00113,    .00400,
     +     .48364,    .16501,    .18390,    .00457,   -.00220,
     +     .00000,    .00140,    .00395,
     +     .46164,    .15600,    .15913,    .00448,   -.00170,
     +     .00000,    .00163,    .00397,
     +     .44331,    .14875,    .14046,    .00448,   -.00134,
     +     .00000,    .00173,    .00391,
     +     .42650,    .14215,    .12476,    .00443,   -.00106,
     +     .00000,    .00181,    .00380,
     +     .40950,    .13549,    .11008,    .00431,   -.00080,
     +     .00000,    .00188,    .00368 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
     +     .39528,    .13001,    .09876,    .00419,   -.00062,
     +     .00000,    .00192,    .00359,
     +     .38206,    .12496,    .08902,    .00406,   -.00046,
     +     .00000,    .00193,    .00350,
     +     .37196,    .12113,    .08203,    .00396,   -.00035,
     +     .00000,    .00194,    .00341,
     +     .35129,    .11346,    .06908,    .00386,   -.00017,
     +     .00000,    .00187,    .00324,
     +     .33480,    .10741,    .06013,    .00366,   -.00004,
     +    -.00048,    .00185,    .00306,
     +     .31735,    .10109,    .05062,    .00347,    .00007,
     +    -.00032,    .00177,    .00289,
     +     .30030,    .09493,    .04235,    .00326,    .00015,
     +    -.00021,    .00172,    .00273,
     +     .28571,    .08971,    .03611,    .00306,    .00021,
     +    -.00012,    .00165,    .00260 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
     +     .27176,    .08480,    .03080,    .00290,    .00025,
     +    -.00005,    .00158,    .00243,
     +     .26073,    .08097,    .02702,    .00277,    .00028,
     +    -.00001,    .00151,    .00230,
     +     .24800,    .07658,    .02310,    .00263,    .00031,
     +     .00004,    .00144,    .00215,
     +     .23735,    .07292,    .02012,    .00250,    .00032,
     +     .00007,    .00139,    .00202,
     +     .22808,    .06974,    .01780,    .00235,    .00033,
     +     .00009,    .00133,    .00192,
     +     .21678,    .06595,    .01523,    .00224,    .00033,
     +     .00011,    .00126,    .00179,
     +     .20674,    .06259,    .01320,    .00212,    .00034,
     +     .00013,    .00119,    .00169,
     +     .19786,    .05961,    .01159,    .00201,    .00033,
     +     .00014,    .00111,    .00161 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
     +     .18940,    .05680,    .01019,    .00188,    .00033,
     +     .00015,    .00107,    .00151,
     +     .18151,    .05420,    .00901,    .00178,    .00033,
     +     .00016,    .00102,    .00143,
     +     .17434,    .05187,    .00806,    .00169,    .00032,
     +     .00016,    .00096,    .00135,
     +     .16786,    .04977,    .00725,    .00162,    .00032,
     +     .00017,    .00093,    .00127,
     +     .16162,    .04778,    .00653,    .00157,    .00031,
     +     .00017,    .00089,    .00120,
     +     .15573,    .04587,    .00594,    .00150,    .00031,
     +     .00017,    .00085,    .00113,
     +     .15037,    .04416,    .00543,    .00143,    .00030,
     +     .00017,    .00080,    .00109,
     +     .14548,    .04259,    .00499,    .00137,    .00030,
     +     .00017,    .00077,    .00104 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
     +     .14075,    .04108,    .00459,    .00131,    .00029,
     +     .00017,    .00075,    .00100,
     +     .13623,    .03964,    .00425,    .00124,    .00028,
     +     .00017,    .00072,    .00097,
     +     .13206,    .03832,    .00395,    .00118,    .00027,
     +     .00016,    .00070,    .00092,
     +     .12823,    .03711,    .00370,    .00114,    .00027,
     +     .00017,    .00067,    .00089,
     +     .12445,    .03594,    .00348,    .00111,    .00026,
     +     .00016,    .00064,    .00085 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
     +     .53108,    .18018,    .20910,    .00285,    .00000,
     +     .00000,   -.00018,    .00216,
     +     .50652,    .17015,    .18129,    .00307,    .00000,
     +     .00000,    .00020,    .00243,
     +     .47254,    .15653,    .15109,    .00321,   -.00212,
     +     .00000,    .00066,    .00256,
     +     .44961,    .14764,    .12931,    .00326,   -.00171,
     +     .00000,    .00090,    .00254,
     +     .42692,    .13906,    .10965,    .00334,   -.00132,
     +     .00000,    .00106,    .00253,
     +     .40854,    .13198,    .09508,    .00326,   -.00105,
     +     .00000,    .00118,    .00252,
     +     .39170,    .12566,    .08299,    .00316,   -.00083,
     +     .00000,    .00125,    .00249,
     +     .37460,    .11937,    .07186,    .00307,   -.00063,
     +     .00000,    .00129,    .00245 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
     +     .36037,    .11421,    .06343,    .00303,   -.00049,
     +     .00000,    .00131,    .00237,
     +     .34726,    .10946,    .05623,    .00295,   -.00037,
     +     .00000,    .00132,    .00229,
     +     .33732,    .10586,    .05114,    .00287,   -.00030,
     +     .00000,    .00132,    .00225,
     +     .31720,    .09868,    .04183,    .00267,   -.00016,
     +     .00000,    .00130,    .00216,
     +     .30119,    .09302,    .03556,    .00251,   -.00007,
     +    -.00036,    .00127,    .00205,
     +     .28426,    .08716,    .02892,    .00238,    .00002,
     +    -.00024,    .00125,    .00192,
     +     .26774,    .08154,    .02337,    .00227,    .00008,
     +    -.00016,    .00120,    .00179,
     +     .25369,    .07682,    .01920,    .00217,    .00012,
     +    -.00010,    .00114,    .00167 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
     +     .24040,    .07236,    .01576,    .00206,    .00015,
     +    -.00005,    .00107,    .00157,
     +     .23000,    .06885,    .01334,    .00192,    .00017,
     +    -.00002,    .00105,    .00149,
     +     .21805,    .06485,    .01093,    .00178,    .00019,
     +     .00002,    .00099,    .00142,
     +     .20804,    .06157,    .00918,    .00166,    .00020,
     +     .00004,    .00094,    .00134,
     +     .19932,    .05876,    .00778,    .00160,    .00021,
     +     .00005,    .00090,    .00125,
     +     .18884,    .05536,    .00633,    .00147,    .00021,
     +     .00007,    .00085,    .00117,
     +     .17952,    .05238,    .00522,    .00139,    .00021,
     +     .00008,    .00080,    .00109,
     +     .17125,    .04976,    .00435,    .00136,    .00022,
     +     .00009,    .00076,    .00100 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
     +     .16345,    .04725,    .00363,    .00125,    .00022,
     +     .00010,    .00072,    .00096,
     +     .15618,    .04496,    .00302,    .00118,    .00021,
     +     .00010,    .00070,    .00092,
     +     .14962,    .04292,    .00256,    .00114,    .00021,
     +     .00011,    .00067,    .00086,
     +     .14375,    .04108,    .00219,    .00107,    .00020,
     +     .00010,    .00063,    .00081,
     +     .13815,    .03932,    .00188,    .00100,    .00020,
     +     .00011,    .00060,    .00078,
     +     .13281,    .03767,    .00163,    .00095,    .00019,
     +     .00011,    .00056,    .00075,
     +     .12795,    .03619,    .00142,    .00090,    .00019,
     +     .00011,    .00054,    .00071,
     +     .12353,    .03484,    .00125,    .00087,    .00019,
     +     .00011,    .00052,    .00068 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
     +     .11926,    .03354,    .00111,    .00084,    .00018,
     +     .00011,    .00050,    .00065,
     +     .11517,    .03230,    .00099,    .00080,    .00018,
     +     .00011,    .00047,    .00061,
     +     .11143,    .03116,    .00090,    .00077,    .00017,
     +     .00010,    .00045,    .00059,
     +     .10800,    .03014,    .00082,    .00073,    .00017,
     +     .00010,    .00044,    .00057,
     +     .10464,    .02912,    .00076,    .00071,    .00016,
     +     .00010,    .00042,    .00054 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
     +     .49707,    .16213,    .14449,    .00197,    .00000,
     +     .00000,   -.00030,    .00121,
     +     .47174,    .15230,    .12251,    .00208,    .00000,
     +     .00000,    .00011,    .00139,
     +     .43690,    .13920,    .09908,    .00217,   -.00162,
     +     .00000,    .00046,    .00160,
     +     .41375,    .13064,    .08257,    .00220,   -.00130,
     +     .00000,    .00061,    .00167,
     +     .39121,    .12236,    .06792,    .00216,   -.00100,
     +     .00000,    .00076,    .00169,
     +     .37274,    .11578,    .05733,    .00211,   -.00080,
     +     .00000,    .00084,    .00171,
     +     .35598,    .10985,    .04864,    .00209,   -.00063,
     +     .00000,    .00090,    .00170,
     +     .33914,    .10393,    .04086,    .00204,   -.00049,
     +     .00000,    .00094,    .00166 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
     +     .32525,    .09909,    .03504,    .00195,   -.00038,
     +     .00000,    .00096,    .00163,
     +     .31245,    .09469,    .03017,    .00190,   -.00029,
     +     .00000,    .00097,    .00159,
     +     .30271,    .09137,    .02674,    .00187,   -.00023,
     +     .00000,    .00096,    .00155,
     +     .28330,    .08478,    .02074,    .00175,   -.00013,
     +     .00000,    .00094,    .00141,
     +     .26789,    .07964,    .01672,    .00164,   -.00006,
     +    -.00025,    .00092,    .00134,
     +     .25178,    .07429,    .01254,    .00154,   -.00001,
     +    -.00018,    .00090,    .00130,
     +     .23616,    .06918,    .00915,    .00144,    .00003,
     +    -.00012,    .00087,    .00121,
     +     .22293,    .06491,    .00673,    .00137,    .00007,
     +    -.00007,    .00084,    .00111 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
     +     .21041,    .06091,    .00483,    .00130,    .00009,
     +    -.00004,    .00079,    .00103,
     +     .20066,    .05780,    .00357,    .00120,    .00010,
     +    -.00002,    .00074,    .00099,
     +     .18954,    .05428,    .00229,    .00112,    .00012,
     +     .00001,    .00070,    .00095,
     +     .18028,    .05137,    .00144,    .00106,    .00012,
     +     .00002,    .00067,    .00089,
     +     .17225,    .04884,    .00079,    .00101,    .00013,
     +     .00003,    .00064,    .00085,
     +     .16261,    .04586,    .00020,    .00092,    .00013,
     +     .00004,    .00059,    .00078,
     +     .15411,    .04325,   -.00024,    .00085,    .00013,
     +     .00005,    .00056,    .00074,
     +     .14660,    .04095,   -.00053,    .00080,    .00014,
     +     .00006,    .00053,    .00068 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
     +     .13951,    .03880,   -.00077,    .00076,    .00013,
     +     .00006,    .00051,    .00064,
     +     .13293,    .03682,   -.00093,    .00072,    .00013,
     +     .00007,    .00047,    .00061,
     +     .12701,    .03506,   -.00101,    .00067,    .00013,
     +     .00006,    .00044,    .00058,
     +     .12171,    .03347,   -.00107,    .00064,    .00013,
     +     .00007,    .00041,    .00055,
     +     .11664,    .03198,   -.00110,    .00061,    .00013,
     +     .00007,    .00040,    .00051,
     +     .11186,    .03057,   -.00112,    .00059,    .00012,
     +     .00007,    .00038,    .00048,
     +     .10754,    .02930,   -.00111,    .00057,    .00012,
     +     .00007,    .00035,    .00046,
     +     .10363,    .02813,   -.00109,    .00053,    .00011,
     +     .00006,    .00034,    .00044 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
     +     .09986,    .02702,   -.00107,    .00049,    .00012,
     +     .00007,    .00033,    .00042,
     +     .09625,    .02597,   -.00103,    .00047,    .00011,
     +     .00007,    .00032,    .00039,
     +     .09295,    .02502,   -.00101,    .00045,    .00011,
     +     .00007,    .00031,    .00038,
     +     .08993,    .02415,   -.00096,    .00044,    .00011,
     +     .00007,    .00030,    .00035,
     +     .08699,    .02331,   -.00093,    .00042,    .00010,
     +     .00007,    .00029,    .00034 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
     +     .46103,    .14495,    .08766,    .00165,    .00000,
     +     .00000,   -.00056,    .00048,
     +     .43518,    .13560,    .07156,    .00176,    .00000,
     +     .00000,   -.00024,    .00065,
     +     .40027,    .12310,    .05501,    .00186,   -.00120,
     +     .00000,    .00009,    .00075,
     +     .37727,    .11499,    .04339,    .00184,   -.00096,
     +     .00000,    .00023,    .00089,
     +     .35501,    .10722,    .03357,    .00178,   -.00074,
     +     .00000,    .00033,    .00093,
     +     .33691,    .10107,    .02654,    .00175,   -.00059,
     +     .00000,    .00045,    .00091,
     +     .32060,    .09556,    .02098,    .00172,   -.00046,
     +     .00000,    .00050,    .00085,
     +     .30434,    .09007,    .01609,    .00166,   -.00035,
     +     .00000,    .00053,    .00084 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
     +     .29098,    .08561,    .01259,    .00158,   -.00028,
     +     .00000,    .00052,    .00086,
     +     .27867,    .08158,    .00972,    .00152,   -.00022,
     +     .00000,    .00052,    .00087,
     +     .26933,    .07857,    .00774,    .00149,   -.00018,
     +     .00000,    .00052,    .00086,
     +     .25078,    .07253,    .00447,    .00139,   -.00010,
     +     .00000,    .00053,    .00082,
     +     .23616,    .06786,    .00234,    .00132,   -.00006,
     +    -.00018,    .00053,    .00079,
     +     .22101,    .06306,    .00025,    .00125,   -.00002,
     +    -.00013,    .00051,    .00070,
     +     .20648,    .05848,   -.00135,    .00113,    .00001,
     +    -.00009,    .00048,    .00067,
     +     .19423,    .05462,   -.00238,    .00101,    .00003,
     +    -.00006,    .00046,    .00066 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
     +     .18269,    .05106,   -.00312,    .00094,    .00005,
     +    -.00003,    .00043,    .00064,
     +     .17369,    .04833,   -.00357,    .00091,    .00006,
     +    -.00001,    .00041,    .00059,
     +     .16343,    .04522,   -.00387,    .00085,    .00007,
     +     .00000,    .00040,    .00053,
     +     .15497,    .04269,   -.00403,    .00080,    .00008,
     +     .00001,    .00038,    .00048,
     +     .14765,    .04051,   -.00408,    .00074,    .00007,
     +     .00001,    .00036,    .00044,
     +     .13887,    .03789,   -.00411,    .00071,    .00008,
     +     .00002,    .00034,    .00042,
     +     .13119,    .03561,   -.00402,    .00067,    .00008,
     +     .00003,    .00032,    .00040,
     +     .12446,    .03364,   -.00392,    .00061,    .00008,
     +     .00003,    .00030,    .00040 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
     +     .11807,    .03178,   -.00378,    .00059,    .00009,
     +     .00004,    .00027,    .00036,
     +     .11221,    .03008,   -.00361,    .00055,    .00008,
     +     .00004,    .00025,    .00032,
     +     .10696,    .02856,   -.00344,    .00051,    .00008,
     +     .00004,    .00024,    .00031,
     +     .10226,    .02720,   -.00328,    .00048,    .00008,
     +     .00004,    .00023,    .00029,
     +     .09779,    .02592,   -.00314,    .00045,    .00008,
     +     .00005,    .00023,    .00028,
     +     .09357,    .02471,   -.00297,    .00043,    .00008,
     +     .00005,    .00021,    .00027,
     +     .08977,    .02363,   -.00282,    .00040,    .00008,
     +     .00005,    .00020,    .00026,
     +     .08629,    .02266,   -.00265,    .00039,    .00007,
     +     .00004,    .00018,    .00023 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
     +     .08295,    .02173,   -.00251,    .00038,    .00007,
     +     .00004,    .00017,    .00022,
     +     .07980,    .02085,   -.00238,    .00037,    .00007,
     +     .00004,    .00017,    .00021,
     +     .07692,    .02003,   -.00226,    .00036,    .00006,
     +     .00004,    .00016,    .00020,
     +     .07430,    .01930,   -.00215,    .00033,    .00006,
     +     .00004,    .00017,    .00020,
     +     .07174,    .01860,   -.00203,    .00032,    .00006,
     +     .00004,    .00015,    .00019 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
     +     .42243,    .12742,    .04035,    .00102,    .00000,
     +     .00000,   -.00036,    .00019,
     +     .39677,    .11855,    .02998,    .00110,    .00000,
     +     .00000,   -.00017,    .00033,
     +     .36242,    .10695,    .01970,    .00116,   -.00087,
     +     .00000,    .00006,    .00045,
     +     .34006,    .09943,    .01267,    .00114,   -.00069,
     +     .00000,    .00016,    .00049,
     +     .31834,    .09231,    .00692,    .00111,   -.00053,
     +     .00000,    .00021,    .00059,
     +     .30092,    .08661,    .00300,    .00113,   -.00041,
     +     .00000,    .00028,    .00059,
     +     .28530,    .08160,    .00006,    .00107,   -.00033,
     +     .00000,    .00030,    .00060,
     +     .26977,    .07666,   -.00233,    .00100,   -.00025,
     +     .00000,    .00031,    .00059 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
     +     .25700,    .07266,   -.00396,    .00100,   -.00021,
     +     .00000,    .00032,    .00058,
     +     .24537,    .06904,   -.00519,    .00099,   -.00016,
     +     .00000,    .00032,    .00055,
     +     .23661,    .06631,   -.00594,    .00096,   -.00013,
     +     .00000,    .00034,    .00052,
     +     .21928,    .06094,   -.00715,    .00087,   -.00009,
     +     .00000,    .00035,    .00051,
     +     .20571,    .05679,   -.00769,    .00082,   -.00005,
     +    -.00013,    .00036,    .00047,
     +     .19166,    .05253,   -.00824,    .00074,   -.00002,
     +    -.00009,    .00033,    .00047,
     +     .17816,    .04851,   -.00849,    .00071,    .00000,
     +    -.00006,    .00031,    .00044,
     +     .16689,    .04519,   -.00846,    .00067,    .00002,
     +    -.00004,    .00029,    .00040 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
     +     .15637,    .04209,   -.00830,    .00062,    .00002,
     +    -.00002,    .00029,    .00037,
     +     .14820,    .03970,   -.00812,    .00059,    .00003,
     +    -.00001,    .00027,    .00035,
     +     .13895,    .03702,   -.00778,    .00056,    .00004,
     +     .00000,    .00025,    .00033,
     +     .13132,    .03481,   -.00746,    .00051,    .00004,
     +     .00000,    .00024,    .00032,
     +     .12475,    .03292,   -.00710,    .00049,    .00005,
     +     .00001,    .00022,    .00030,
     +     .11699,    .03069,   -.00666,    .00042,    .00004,
     +     .00001,    .00019,    .00027,
     +     .11016,    .02876,   -.00625,    .00038,    .00005,
     +     .00002,    .00018,    .00026,
     +     .10416,    .02709,   -.00586,    .00037,    .00005,
     +     .00002,    .00017,    .00024 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
     +     .09852,    .02551,   -.00548,    .00036,    .00004,
     +     .00002,    .00016,    .00021,
     +     .09334,    .02407,   -.00512,    .00034,    .00005,
     +     .00003,    .00017,    .00020,
     +     .08874,    .02280,   -.00479,    .00031,    .00005,
     +     .00003,    .00015,    .00021,
     +     .08461,    .02167,   -.00449,    .00030,    .00005,
     +     .00003,    .00014,    .00018,
     +     .08069,    .02060,   -.00420,    .00029,    .00005,
     +     .00003,    .00013,    .00015,
     +     .07702,    .01960,   -.00392,    .00028,    .00004,
     +     .00002,    .00012,    .00015,
     +     .07372,    .01870,   -.00367,    .00026,    .00004,
     +     .00002,    .00012,    .00014,
     +     .07073,    .01789,   -.00346,    .00025,    .00004,
     +     .00002,    .00012,    .00014 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
     +     .06787,    .01711,   -.00326,    .00025,    .00004,
     +     .00002,    .00011,    .00013,
     +     .06514,    .01639,   -.00305,    .00023,    .00004,
     +     .00002,    .00011,    .00012,
     +     .06268,    .01572,   -.00287,    .00022,    .00003,
     +     .00002,    .00010,    .00012,
     +     .06043,    .01513,   -.00270,    .00020,    .00004,
     +     .00003,    .00009,    .00011,
     +     .05826,    .01454,   -.00255,    .00019,    .00004,
     +     .00003,    .00009,    .00011 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
     +     .38274,    .11060,    .00303,    .00046,    .00000,
     +     .00000,   -.00024,    .00007,
     +     .35763,    .10247,   -.00270,    .00061,    .00000,
     +     .00000,   -.00006,    .00021,
     +     .32439,    .09174,   -.00719,    .00060,   -.00061,
     +     .00000,    .00006,    .00030,
     +     .30278,    .08492,   -.01043,    .00059,   -.00048,
     +     .00000,    .00017,    .00035,
     +     .28200,    .07850,   -.01279,    .00068,   -.00037,
     +     .00000,    .00022,    .00033,
     +     .26548,    .07342,   -.01413,    .00067,   -.00029,
     +     .00000,    .00022,    .00035,
     +     .25066,    .06887,   -.01487,    .00066,   -.00024,
     +     .00000,    .00023,    .00035,
     +     .23605,    .06443,   -.01533,    .00065,   -.00018,
     +     .00000,    .00024,    .00035 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
     +     .22426,    .06086,   -.01546,    .00056,   -.00015,
     +     .00000,    .00025,    .00036,
     +     .21345,    .05763,   -.01540,    .00054,   -.00011,
     +     .00000,    .00025,    .00035,
     +     .20532,    .05524,   -.01529,    .00055,   -.00009,
     +     .00000,    .00025,    .00035,
     +     .18920,    .05051,   -.01481,    .00053,   -.00006,
     +     .00000,    .00026,    .00034,
     +     .17677,    .04688,   -.01420,    .00050,   -.00004,
     +    -.00008,    .00023,    .00032,
     +     .16401,    .04319,   -.01358,    .00043,   -.00002,
     +    -.00006,    .00023,    .00031,
     +     .15181,    .03969,   -.01281,    .00038,   -.00001,
     +    -.00004,    .00020,    .00029,
     +     .14160,    .03682,   -.01210,    .00038,    .00000,
     +    -.00003,    .00020,    .00027 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
     +     .13214,    .03416,   -.01131,    .00036,    .00001,
     +    -.00002,    .00019,    .00025,
     +     .12486,    .03209,   -.01067,    .00031,    .00002,
     +    -.00001,    .00018,    .00024,
     +     .11663,    .02983,   -.00989,    .00028,    .00002,
     +    -.00001,    .00017,    .00021,
     +     .10987,    .02797,   -.00924,    .00027,    .00003,
     +     .00000,    .00016,    .00019,
     +     .10407,    .02638,   -.00864,    .00026,    .00003,
     +     .00000,    .00015,    .00017,
     +     .09719,    .02450,   -.00793,    .00024,    .00002,
     +     .00000,    .00014,    .00016,
     +     .09118,    .02288,   -.00732,    .00023,    .00003,
     +     .00001,    .00012,    .00017,
     +     .08596,    .02147,   -.00677,    .00021,    .00003,
     +     .00001,    .00013,    .00015 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
     +     .08105,    .02016,   -.00624,    .00021,    .00003,
     +     .00001,    .00012,    .00014,
     +     .07656,    .01898,   -.00576,    .00019,    .00003,
     +     .00001,    .00010,    .00013,
     +     .07259,    .01793,   -.00534,    .00018,    .00003,
     +     .00001,    .00010,    .00011,
     +     .06905,    .01698,   -.00495,    .00016,    .00002,
     +     .00001,    .00010,    .00012,
     +     .06570,    .01610,   -.00459,    .00014,    .00002,
     +     .00001,    .00009,    .00012,
     +     .06254,    .01529,   -.00427,    .00014,    .00002,
     +     .00001,    .00008,    .00010,
     +     .05970,    .01456,   -.00399,    .00016,    .00002,
     +     .00001,    .00008,    .00009,
     +     .05715,    .01390,   -.00374,    .00015,    .00003,
     +     .00002,    .00008,    .00009 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
     +     .05473,    .01327,   -.00348,    .00014,    .00003,
     +     .00002,    .00007,    .00008,
     +     .05245,    .01267,   -.00326,    .00012,    .00003,
     +     .00002,    .00007,    .00008,
     +     .05036,    .01214,   -.00307,    .00011,    .00003,
     +     .00002,    .00007,    .00008,
     +     .04846,    .01164,   -.00288,    .00011,    .00003,
     +     .00002,    .00005,    .00008,
     +     .04662,    .01117,   -.00271,    .00011,    .00002,
     +     .00002,    .00006,    .00007 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
     +     .34328,    .09538,   -.02607,    .00053,    .00000,
     +     .00000,   -.00029,   -.00016,
     +     .31919,    .08788,   -.02734,    .00047,    .00000,
     +     .00000,   -.00020,   -.00001,
     +     .28728,    .07811,   -.02718,    .00054,   -.00041,
     +     .00000,   -.00005,    .00006,
     +     .26678,    .07199,   -.02728,    .00053,   -.00033,
     +     .00000,   -.00001,    .00014,
     +     .24729,    .06617,   -.02684,    .00055,   -.00025,
     +     .00000,    .00004,    .00015,
     +     .23192,    .06161,   -.02614,    .00049,   -.00019,
     +     .00000,    .00007,    .00014,
     +     .21821,    .05759,   -.02527,    .00043,   -.00016,
     +     .00000,    .00009,    .00018,
     +     .20466,    .05367,   -.02425,    .00043,   -.00013,
     +     .00000,    .00010,    .00022 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
     +     .19368,    .05054,   -.02321,    .00044,   -.00010,
     +     .00000,    .00010,    .00017,
     +     .18375,    .04771,   -.02223,    .00042,   -.00008,
     +     .00000,    .00013,    .00016,
     +     .17633,    .04559,   -.02140,    .00040,   -.00006,
     +     .00000,    .00015,    .00016,
     +     .16170,    .04151,   -.01964,    .00036,   -.00004,
     +     .00000,    .00011,    .00017,
     +     .15039,    .03837,   -.01818,    .00034,   -.00003,
     +    -.00006,    .00008,    .00017,
     +     .13885,    .03519,   -.01682,    .00033,   -.00002,
     +    -.00004,    .00010,    .00015,
     +     .12796,    .03219,   -.01541,    .00031,   -.00001,
     +    -.00003,    .00011,    .00015,
     +     .11888,    .02975,   -.01413,    .00028,    .00000,
     +    -.00002,    .00009,    .00013 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
     +     .11050,    .02749,   -.01295,    .00027,    .00000,
     +    -.00002,    .00009,    .00012,
     +     .10407,    .02577,   -.01202,    .00024,    .00001,
     +    -.00001,    .00008,    .00009,
     +     .09682,    .02383,   -.01097,    .00023,    .00001,
     +    -.00001,    .00009,    .00010,
     +     .09089,    .02226,   -.01009,    .00022,    .00001,
     +    -.00001,    .00007,    .00009,
     +     .08584,    .02095,   -.00937,    .00020,    .00002,
     +     .00000,    .00008,    .00009,
     +     .07986,    .01938,   -.00847,    .00017,    .00002,
     +     .00000,    .00006,    .00007,
     +     .07467,    .01804,   -.00771,    .00016,    .00001,
     +     .00000,    .00006,    .00006,
     +     .07016,    .01690,   -.00707,    .00016,    .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)/
     +     .06595,    .01581,   -.00648,    .00015,    .00001,
     +     .00000,    .00005,    .00005,
     +     .06213,    .01482,   -.00593,    .00014,    .00001,
     +     .00000,    .00004,    .00005,
     +     .05874,    .01397,   -.00547,    .00012,    .00001,
     +     .00000,    .00006,    .00005,
     +     .05573,    .01321,   -.00505,    .00012,    .00002,
     +     .00001,    .00004,    .00006,
     +     .05287,    .01249,   -.00469,    .00012,    .00002,
     +     .00001,    .00004,    .00006,
     +     .05023,    .01182,   -.00433,    .00011,    .00002,
     +     .00001,    .00004,    .00004,
     +     .04786,    .01122,   -.00402,    .00010,    .00002,
     +     .00001,    .00004,    .00004,
     +     .04573,    .01069,   -.00374,    .00008,    .00002,
     +     .00001,    .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)/
     +     .04368,    .01019,   -.00349,    .00008,    .00002,
     +     .00001,    .00003,    .00004,
     +     .04176,    .00972,   -.00325,    .00008,    .00002,
     +     .00001,    .00003,    .00003,
     +     .04001,    .00928,   -.00305,    .00008,    .00002,
     +     .00001,    .00003,    .00003,
     +     .03842,    .00889,   -.00286,    .00008,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03688,    .00852,   -.00267,    .00008,    .00001,
     +     .00001,    .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)/
     +     .30329,    .08032,   -.04591,    .00013,    .00000,
     +     .00000,   -.00010,    .00001,
     +     .28048,    .07365,   -.04387,    .00022,    .00000,
     +     .00000,   -.00004,    .00000,
     +     .25068,    .06505,   -.03999,    .00017,   -.00027,
     +     .00000,    .00003,    .00006,
     +     .23159,    .05967,   -.03780,    .00022,   -.00021,
     +     .00000,    .00005,    .00009,
     +     .21367,    .05462,   -.03541,    .00023,   -.00016,
     +     .00000,    .00008,    .00010,
     +     .19938,    .05067,   -.03326,    .00027,   -.00013,
     +     .00000,    .00009,    .00010,
     +     .18680,    .04720,   -.03118,    .00026,   -.00010,
     +     .00000,    .00008,    .00010,
     +     .17450,    .04380,   -.02904,    .00023,   -.00008,
     +     .00000,    .00010,    .00009 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
     +     .16459,    .04108,   -.02725,    .00020,   -.00007,
     +     .00000,    .00010,    .00012,
     +     .15563,    .03866,   -.02560,    .00017,   -.00006,
     +     .00000,    .00009,    .00014,
     +     .14896,    .03688,   -.02437,    .00017,   -.00004,
     +     .00000,    .00008,    .00013,
     +     .13587,    .03337,   -.02181,    .00017,   -.00003,
     +     .00000,    .00007,    .00012,
     +     .12582,    .03072,   -.01989,    .00017,   -.00002,
     +    -.00004,    .00007,    .00012,
     +     .11562,    .02804,   -.01797,    .00016,   -.00001,
     +    -.00003,    .00007,    .00009,
     +     .10600,    .02555,   -.01616,    .00015,    .00000,
     +    -.00001,    .00008,    .00008,
     +     .09808,    .02349,   -.01464,    .00014,    .00000,
     +    -.00001,    .00006,    .00008 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
     +     .09078,    .02163,   -.01324,    .00012,    .00000,
     +    -.00001,    .00007,    .00008,
     +     .08520,    .02020,   -.01216,    .00011,    .00001,
     +     .00000,    .00005,    .00007,
     +     .07895,    .01861,   -.01098,    .00010,    .00001,
     +     .00000,    .00006,    .00007,
     +     .07386,    .01733,   -.01003,    .00010,    .00001,
     +     .00000,    .00006,    .00006,
     +     .06950,    .01625,   -.00918,    .00010,    .00000,
     +     .00000,    .00004,    .00005,
     +     .06441,    .01498,   -.00828,    .00010,    .00000,
     +     .00000,    .00005,    .00006,
     +     .06001,    .01388,   -.00747,    .00008,    .00000,
     +     .00000,    .00005,    .00004,
     +     .05620,    .01295,   -.00680,    .00008,    .00000,
     +     .00000,    .00003,    .00005 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
     +     .05267,    .01209,   -.00619,    .00007,    .00001,
     +     .00001,    .00003,    .00003,
     +     .04946,    .01131,   -.00564,    .00006,    .00001,
     +     .00001,    .00003,    .00003,
     +     .04663,    .01061,   -.00517,    .00005,    .00001,
     +     .00001,    .00003,    .00005,
     +     .04411,    .01001,   -.00476,    .00005,    .00001,
     +     .00001,    .00003,    .00003,
     +     .04174,    .00944,   -.00437,    .00005,    .00001,
     +     .00001,    .00002,    .00003,
     +     .03954,    .00892,   -.00404,    .00005,    .00001,
     +     .00001,    .00002,    .00003,
     +     .03758,    .00845,   -.00373,    .00003,    .00001,
     +     .00001,    .00002,    .00003,
     +     .03582,    .00803,   -.00347,    .00003,    .00001,
     +     .00001,    .00002,    .00003 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
     +     .03413,    .00762,   -.00322,    .00003,    .00001,
     +     .00001,    .00002,    .00003,
     +     .03254,    .00725,   -.00299,    .00003,    .00001,
     +     .00001,    .00002,    .00003,
     +     .03111,    .00692,   -.00279,    .00003,    .00001,
     +     .00001,    .00002,    .00002,
     +     .02983,    .00662,   -.00260,    .00003,    .00001,
     +     .00001,    .00001,    .00002,
     +     .02858,    .00632,   -.00244,    .00003,    .00001,
     +     .00001,    .00001,    .00002 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
     +     .22669,    .05484,   -.06416,    .00011,    .00000,
     +     .00000,   -.00006,   -.00001,
     +     .20737,    .04978,   -.05801,    .00007,    .00000,
     +     .00000,   -.00005,    .00000,
     +     .18238,    .04329,   -.04983,    .00010,   -.00010,
     +     .00000,   -.00001,    .00002,
     +     .16676,    .03927,   -.04493,    .00014,   -.00008,
     +     .00000,   -.00001,   -.00001,
     +     .15221,    .03558,   -.04028,    .00010,   -.00006,
     +     .00000,   -.00001,    .00002,
     +     .14085,    .03270,   -.03659,    .00003,   -.00005,
     +     .00000,    .00000,    .00004,
     +     .13085,    .03021,   -.03343,    .00004,   -.00004,
     +     .00000,    .00003,    .00005,
     +     .12114,    .02782,   -.03035,    .00007,   -.00003,
     +     .00000,    .00001,    .00004 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
     +     .11341,    .02590,   -.02791,    .00008,   -.00003,
     +     .00000,    .00003,    .00004,
     +     .10648,    .02422,   -.02572,    .00008,   -.00003,
     +     .00000,    .00003,    .00002,
     +     .10137,    .02297,   -.02411,    .00007,   -.00002,
     +     .00000,    .00002,    .00003,
     +     .09144,    .02056,   -.02100,    .00006,   -.00002,
     +     .00000,    .00003,    .00003,
     +     .08391,    .01876,   -.01872,    .00004,   -.00001,
     +    -.00001,    .00003,    .00002,
     +     .07634,    .01695,   -.01653,    .00005,   -.00001,
     +    -.00001,    .00001,    .00002,
     +     .06929,    .01528,   -.01453,    .00003,   -.00001,
     +    -.00001,    .00002,    .00002,
     +     .06355,    .01393,   -.01292,    .00003,   -.00001,
     +    -.00001,    .00003,    .00002 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
     +     .05829,    .01271,   -.01150,    .00004,   -.00001,
     +    -.00001,    .00003,    .00003,
     +     .05433,    .01179,   -.01043,    .00002,   -.00001,
     +    -.00001,    .00003,    .00003,
     +     .04991,    .01077,   -.00927,    .00002,    .00000,
     +     .00000,    .00001,    .00003,
     +     .04634,    .00996,   -.00834,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04334,    .00928,   -.00762,    .00003,    .00000,
     +     .00000,    .00003,    .00003,
     +     .03982,    .00848,   -.00674,    .00002,    .00000,
     +     .00000,    .00001,    .00003,
     +     .03682,    .00781,   -.00603,    .00002,    .00000,
     +     .00000,    .00001,    .00003,
     +     .03426,    .00723,   -.00543,    .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)/
     +     .03187,    .00670,   -.00490,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02973,    .00623,   -.00442,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02786,    .00581,   -.00402,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02621,    .00544,   -.00367,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02464,    .00510,   -.00335,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02323,    .00479,   -.00308,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02196,    .00452,   -.00283,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02082,    .00427,   -.00262,    .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)/
     +     .01976,    .00404,   -.00243,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01876,    .00383,   -.00224,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01786,    .00364,   -.00209,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01704,    .00347,   -.00194,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01626,    .00330,   -.00181,    .00001,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/
     +     .15763,    .03446,   -.06131,    .00000,    .00000,
     +     .00000,   -.00004,   -.00004,
     +     .14247,    .03090,   -.05417,    .00003,    .00000,
     +     .00000,   -.00002,   -.00002,
     +     .12327,    .02648,   -.04512,    .00002,   -.00003,
     +     .00000,   -.00003,   -.00001,
     +     .11145,    .02376,   -.03986,    .00003,   -.00003,
     +     .00000,    .00000,    .00001,
     +     .10054,    .02127,   -.03495,    .00001,   -.00002,
     +     .00000,    .00000,    .00002,
     +     .09214,    .01938,   -.03126,    .00003,   -.00002,
     +     .00000,    .00000,    .00000,
     +     .08482,    .01774,   -.02808,    .00003,   -.00001,
     +     .00000,    .00001,    .00001,
     +     .07779,    .01619,   -.02507,    .00004,   -.00001,
     +     .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)/
     +     .07227,    .01497,   -.02275,    .00002,   -.00001,
     +     .00000,   -.00001,    .00001,
     +     .06736,    .01388,   -.02072,    .00002,   -.00001,
     +     .00000,   -.00001,    .00001,
     +     .06374,    .01309,   -.01925,    .00003,   -.00001,
     +     .00000,   -.00001,   -.00001,
     +     .05680,    .01157,   -.01648,    .00000,   -.00001,
     +     .00000,    .00001,    .00001,
     +     .05161,    .01045,   -.01451,    .00002,    .00000,
     +     .00000,    .00001,    .00000,
     +     .04647,    .00936,   -.01263,    .00001,    .00000,
     +     .00000,    .00001,    .00000,
     +     .04172,    .00835,   -.01091,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03789,    .00754,   -.00960,    .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=17,24)/
     +     .03443,    .00682,   -.00842,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03181,    .00627,   -.00755,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02897,    .00568,   -.00664,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02669,    .00521,   -.00593,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02479,    .00481,   -.00534,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02257,    .00437,   -.00470,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02069,    .00399,   -.00416,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01910,    .00366,   -.00372,    .00001,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
     +     .01764,    .00336,   -.00331,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01634,    .00311,   -.00298,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01521,    .00289,   -.00269,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01421,    .00269,   -.00244,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01329,    .00251,   -.00222,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01244,    .00234,   -.00202,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01170,    .00219,   -.00185,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01104,    .00206,   -.00170,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/
     +     .01042,    .00193,   -.00156,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00984,    .00182,   -.00144,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00932,    .00172,   -.00133,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00886,    .00164,   -.00123,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00841,    .00155,   -.00114,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/
     +     .09971,    .01946,   -.04762,    .00004,    .00000,
     +     .00000,   -.00002,   -.00002,
     +     .08898,    .01723,   -.04132,    .00004,    .00000,
     +     .00000,   -.00001,   -.00001,
     +     .07560,    .01450,   -.03366,    .00004,   -.00001,
     +     .00000,   -.00001,   -.00001,
     +     .06750,    .01286,   -.02916,    .00002,   -.00001,
     +     .00000,   -.00001,   -.00003,
     +     .06013,    .01138,   -.02521,    .00002,   -.00001,
     +     .00000,   -.00001,   -.00001,
     +     .05451,    .01025,   -.02226,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04971,    .00930,   -.01976,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04514,    .00841,   -.01747,    .00002,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
     +     .04153,    .00769,   -.01567,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03839,    .00707,   -.01414,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03612,    .00663,   -.01303,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03174,    .00579,   -.01101,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02851,    .00518,   -.00958,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02536,    .00457,   -.00820,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02251,    .00404,   -.00701,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02020,    .00361,   -.00607,    .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)/
     +     .01817,    .00321,   -.00527,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01666,    .00294,   -.00470,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01500,    .00264,   -.00409,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01369,    .00239,   -.00361,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01261,    .00220,   -.00323,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01137,    .00197,   -.00281,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01034,    .00178,   -.00246,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00946,    .00163,   -.00219,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/
     +     .00866,    .00149,   -.00194,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00796,    .00136,   -.00173,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00734,    .00125,   -.00155,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00682,    .00116,   -.00139,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00633,    .00107,   -.00126,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00589,    .00099,   -.00114,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00550,    .00093,   -.00104,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00515,    .00086,   -.00094,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=33,37)/
     +     .00483,    .00081,   -.00086,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00454,    .00075,   -.00079,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00429,    .00072,   -.00073,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00404,    .00067,   -.00067,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00382,    .00063,   -.00061,    .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)/
     +     .05518,    .00932,   -.03043,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04858,    .00814,   -.02601,   -.00003,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04041,    .00674,   -.02081,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03557,    .00591,   -.01780,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03122,    .00514,   -.01513,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02796,    .00457,   -.01318,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02519,    .00412,   -.01158,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02261,    .00368,   -.01013,    .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)/
     +     .02059,    .00333,   -.00900,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01884,    .00304,   -.00804,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01758,    .00283,   -.00737,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01521,    .00242,   -.00612,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01349,    .00215,   -.00526,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01183,    .00187,   -.00444,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01034,    .00163,   -.00374,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00917,    .00144,   -.00322,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=17,24)/
     +     .00813,    .00127,   -.00274,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00738,    .00116,   -.00243,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00657,    .00101,   -.00208,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00593,    .00091,   -.00182,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00541,    .00084,   -.00162,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00483,    .00074,   -.00140,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00433,    .00066,   -.00120,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00392,    .00058,   -.00105,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/
     +     .00356,    .00052,   -.00093,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00323,    .00049,   -.00082,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00296,    .00044,   -.00073,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00272,    .00040,   -.00064,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00250,    .00037,   -.00057,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00231,    .00034,   -.00051,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00215,    .00031,   -.00047,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00200,    .00029,   -.00043,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/
     +     .00185,    .00027,   -.00038,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00174,    .00026,   -.00035,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00161,    .00023,   -.00032,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00153,    .00022,   -.00029,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00143,    .00020,   -.00027,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/
     +     .00777,    .00093,   -.00541,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00654,    .00078,   -.00445,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00513,    .00059,   -.00335,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00433,    .00049,   -.00275,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00364,    .00043,   -.00226,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00315,    .00037,   -.00191,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00275,    .00032,   -.00162,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00236,    .00026,   -.00136,    .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)/
     +     .00209,    .00024,   -.00118,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00187,    .00021,   -.00104,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00170,    .00019,   -.00093,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00140,    .00016,   -.00074,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00120,    .00014,   -.00061,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00101,    .00011,   -.00050,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00084,    .00009,   -.00040,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00072,    .00007,   -.00033,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/
     +     .00062,    .00007,   -.00028,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00054,    .00005,   -.00023,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00047,    .00005,   -.00020,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00041,    .00005,   -.00017,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00036,    .00003,   -.00014,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00031,    .00003,   -.00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00027,    .00003,   -.00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00024,    .00003,   -.00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
     +     .00021,    .00003,   -.00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00019,    .00001,   -.00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00017,    .00001,   -.00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00016,    .00001,   -.00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00014,    .00001,   -.00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00012,    .00001,   -.00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00011,    .00001,   -.00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00010,    .00001,   -.00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
     +     .00009,    .00001,   -.00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00008,    .00001,   -.00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00008,    .00001,   -.00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00007,    .00001,   -.00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00007,    .00001,   -.00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
      data xx/1d-5,2d-5,4d-5,6d-5,8d-5,
     .            1d-4,2d-4,4d-4,6d-4,8d-4,
     .            1d-3,2d-3,4d-3,6d-3,8d-3,
     .            1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2,
     .         .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0,
     .         .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0,
     .         .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0,
     .         .8d0,.9d0,1d0/
      data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1,
     .        1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2,
     .        1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4,
     .        1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6,
     .        1.8d6,3.2d6,5.6d6,1d7/
      data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/
      data n0/3,4,5,9,9,9,9,9/
      DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
      data init/0/
      save
      xsave=x
      q2save=qsq
      if(init.ne.0) goto 10
C        open(unit=1,file='cor02dis.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