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

sfmrs_98d3.F

#include "pdf/pilot.h"
      subroutine sfmrs_98d3(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)/
     +     .00526,    .00297,   1.16049,    .86935,    .00000,
     +     .00000,    .46536,    .87868,
     +     .00539,    .00301,   2.37849,    .91018,    .00000,
     +     .00000,    .51028,    .91968,
     +     .00559,    .00310,   4.75177,    .99293,    .05118,
     +     .00000,    .59893,   1.00266,
     +     .00575,    .00316,   7.08549,   1.06988,    .13260,
     +     .00000,    .68009,   1.07976,
     +     .00591,    .00322,  10.08262,   1.16909,    .22394,
     +     .00000,    .78366,   1.17914,
     +     .00605,    .00328,  13.16594,   1.27014,    .31745,
     +     .00000,    .88838,   1.28032,
     +     .00617,    .00334,  16.64571,   1.37980,    .42351,
     +     .00000,   1.00150,   1.39009,
     +     .00632,    .00340,  20.93648,   1.51085,    .55326,
     +     .00000,   1.13616,   1.52126 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
     +     .00645,    .00346,  25.12103,   1.63899,    .67730,
     +     .00000,   1.26738,   1.64949,
     +     .00657,    .00351,  29.62102,   1.77487,    .81003,
     +     .00000,   1.40619,   1.78547,
     +     .00667,    .00356,  33.56895,   1.89110,    .92636,
     +     .00000,   1.52471,   1.90176,
     +     .00689,    .00365,  43.11265,   2.16739,   1.19982,
     +     .00000,   1.80580,   2.17820,
     +     .00707,    .00374,  51.92837,   2.43713,   1.46624,
     +     .35264,   2.07962,   2.44804,
     +     .00729,    .00384,  63.44059,   2.77626,   1.80327,
     +     .74111,   2.42320,   2.78727,
     +     .00752,    .00394,  76.97550,   3.17295,   2.19840,
     +    1.15356,   2.82445,   3.18409,
     +     .00772,    .00404,  90.67268,   3.57349,   2.59810,
     +    1.57122,   3.22900,   3.58472 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
     +     .00793,    .00414, 105.91420,   4.01909,   3.04390,
     +    2.03529,   3.67857,   4.03039,
     +     .00812,    .00423, 119.60698,   4.42142,   3.44547,
     +    2.44853,   4.08415,   4.43280,
     +     .00833,    .00433, 137.47890,   4.94971,   3.97211,
     +    2.98841,   4.61630,   4.96115,
     +     .00854,    .00442, 154.57337,   5.45638,   4.47886,
     +    3.51043,   5.12630,   5.46788,
     +     .00872,    .00451, 171.32662,   5.95487,   4.97839,
     +    4.02538,   5.62781,   5.96642,
     +     .00895,    .00462, 193.78992,   6.63159,   5.65355,
     +    4.71466,   6.30830,   6.64320,
     +     .00917,    .00473, 216.41166,   7.31753,   6.33949,
     +    5.41691,   6.99769,   7.32918,
     +     .00939,    .00483, 239.02831,   8.00686,   7.03092,
     +    6.12726,   7.69021,   8.01856 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
     +     .00960,    .00494, 262.53749,   8.73487,   7.75736,
     +    6.86627,   8.42135,   8.74660,
     +     .00982,    .00505, 286.86737,   9.49273,   8.51584,
     +    7.64097,   9.18222,   9.50449,
     +     .01002,    .00515, 311.01068,  10.25123,   9.27542,
     +    8.41667,   9.94351,  10.26301,
     +     .01022,    .00524, 334.50482,  10.99864,  10.02240,
     +    9.17661,  10.69354,  11.01046,
     +     .01041,    .00534, 359.29819,  11.79086,  10.81657,
     +    9.98761,  11.48832,  11.80268,
     +     .01061,    .00544, 384.19750,  12.59867,  11.62362,
     +   10.80709,  12.29864,  12.61052,
     +     .01080,    .00553, 409.03601,  13.40705,  12.43406,
     +   11.63373,  13.10935,  13.41891,
     +     .01098,    .00562, 432.86194,  14.19415,  13.22060,
     +   12.43178,  13.89863,  14.20601 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
     +     .01116,    .00571, 457.89291,  15.02430,  14.05227,
     +   13.27819,  14.73096,  15.03618,
     +     .01134,    .00581, 483.06147,  15.86894,  14.89726,
     +   14.13615,  15.57772,  15.88082,
     +     .01152,    .00589, 507.75656,  16.70405,  15.73308,
     +   14.98495,  16.41482,  16.71592,
     +     .01169,    .00598, 531.88018,  17.52474,  16.55543,
     +   15.82106,  17.23739,  17.53664,
     +     .01186,    .00606, 556.47298,  18.37237,  17.40295,
     +   16.67981,  18.08689,  18.38427 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
     +     .00739,    .00406,   1.06032,    .74461,    .00000,
     +     .00000,    .39848,    .75030,
     +     .00757,    .00414,   2.15406,    .78158,    .00000,
     +     .00000,    .43872,    .78737,
     +     .00785,    .00425,   4.24109,    .85394,    .04507,
     +     .00000,    .51579,    .85987,
     +     .00805,    .00434,   6.25361,    .91975,    .11482,
     +     .00000,    .58497,    .92577,
     +     .00827,    .00444,   8.79506,   1.00320,    .19156,
     +     .00000,    .67187,   1.00932,
     +     .00846,    .00452,  11.37089,   1.08712,    .26914,
     +     .00000,    .75871,   1.09331,
     +     .00864,    .00461,  14.24254,   1.17740,    .35631,
     +     .00000,    .85174,   1.18367,
     +     .00884,    .00470,  17.74130,   1.28442,    .46192,
     +     .00000,    .96162,   1.29075 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
     +     .00902,    .00478,  21.11382,   1.38817,    .56199,
     +     .00000,   1.06780,   1.39456,
     +     .00919,    .00485,  24.70504,   1.49746,    .66829,
     +     .00000,   1.17941,   1.50391,
     +     .00932,    .00491,  27.83058,   1.59046,    .76091,
     +     .00000,   1.27422,   1.59696,
     +     .00961,    .00505,  35.30250,   1.80972,    .97680,
     +     .00000,   1.49728,   1.81630,
     +     .00987,    .00517,  42.08791,   2.02173,   1.18499,
     +     .27585,   1.71249,   2.02838,
     +     .01016,    .00532,  50.84763,   2.28589,   1.44596,
     +     .57690,   1.98017,   2.29262,
     +     .01048,    .00547,  61.00877,   2.59200,   1.74896,
     +     .89272,   2.28984,   2.59879,
     +     .01076,    .00560,  71.16336,   2.89829,   2.05272,
     +    1.20957,   2.59929,   2.90514 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
     +     .01105,    .00575,  82.33335,   3.23622,   2.38869,
     +    1.55859,   2.94033,   3.24313,
     +     .01130,    .00586,  92.26425,   3.53902,   2.68902,
     +    1.86689,   3.24569,   3.54599,
     +     .01160,    .00601, 105.09485,   3.93364,   3.07995,
     +    2.26661,   3.64333,   3.94066,
     +     .01187,    .00615, 117.24685,   4.30933,   3.45343,
     +    2.65035,   4.02163,   4.31639,
     +     .01212,    .00626, 129.05376,   4.67655,   3.81922,
     +    3.02645,   4.39121,   4.68364,
     +     .01244,    .00642, 144.73134,   5.17143,   4.31002,
     +    3.52606,   4.88903,   5.17857,
     +     .01274,    .00658, 160.36800,   5.66934,   4.80507,
     +    4.03147,   5.38964,   5.67651,
     +     .01303,    .00672, 175.86662,   6.16636,   5.30086,
     +    4.53948,   5.88915,   6.17357 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
     +     .01332,    .00686, 191.83005,   6.68764,   5.81812,
     +    5.06411,   6.41286,   6.69488,
     +     .01361,    .00701, 208.22159,   7.22693,   6.35498,
     +    5.61092,   6.95450,   7.23420,
     +     .01388,    .00715, 224.36421,   7.76344,   6.88950,
     +    6.15529,   7.49320,   7.77073,
     +     .01415,    .00728, 239.95375,   8.28903,   7.41209,
     +    6.68541,   8.02083,   8.29635,
     +     .01441,    .00742, 256.30322,   8.84330,   7.96503,
     +    7.24859,   8.57710,   8.85064,
     +     .01468,    .00755, 272.60004,   9.40527,   8.52368,
     +    7.81422,   9.14101,   9.41263,
     +     .01493,    .00768, 288.76733,   9.96504,   9.08230,
     +    8.38253,   9.70261,   9.97242,
     +     .01517,    .00780, 304.16949,  10.50722,   9.62155,
     +    8.92813,  10.24650,  10.51462 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
     +     .01542,    .00793, 320.26976,  11.07670,  10.18952,
     +    9.50467,  10.81767,  11.08410,
     +     .01566,    .00805, 336.35929,  11.65334,  10.76383,
     +   10.08624,  11.39597,  11.66077,
     +     .01590,    .00817, 352.06406,  12.22105,  11.32958,
     +   10.65928,  11.96524,  12.22849,
     +     .01613,    .00829, 367.33245,  12.77681,  11.88415,
     +   11.22172,  12.52246,  12.78427,
     +     .01635,    .00841, 382.80794,  13.34829,  12.45311,
     +   11.79670,  13.09541,  13.35575 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
     +     .01037,    .00554,    .96801,    .63775,    .00000,
     +     .00000,    .34158,    .64094,
     +     .01061,    .00566,   1.95018,    .67105,    .00000,
     +     .00000,    .37752,    .67430,
     +     .01099,    .00583,   3.78460,    .73419,    .03986,
     +     .00000,    .44441,    .73751,
     +     .01126,    .00597,   5.51883,    .79037,    .09951,
     +     .00000,    .50327,    .79373,
     +     .01157,    .00611,   7.67139,    .86042,    .16388,
     +     .00000,    .57608,    .86383,
     +     .01182,    .00623,   9.81998,    .92995,    .22814,
     +     .00000,    .64792,    .93340,
     +     .01208,    .00635,  12.18552,   1.00408,    .29963,
     +     .00000,    .72423,   1.00758,
     +     .01235,    .00648,  15.03253,   1.09122,    .38543,
     +     .00000,    .81364,   1.09476 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
     +     .01260,    .00659,  17.74410,   1.17496,    .46600,
     +     .00000,    .89930,   1.17853,
     +     .01282,    .00671,  20.60254,   1.26255,    .55094,
     +     .00000,    .98873,   1.26615,
     +     .01301,    .00679,  23.07014,   1.33670,    .62453,
     +     .00000,   1.06430,   1.34032,
     +     .01341,    .00699,  28.90247,   1.51007,    .79457,
     +     .00000,   1.24066,   1.51375,
     +     .01376,    .00716,  34.10603,   1.67603,    .95690,
     +     .21517,   1.40913,   1.67975,
     +     .01417,    .00737,  40.74512,   1.88094,   1.15847,
     +     .44824,   1.61680,   1.88471,
     +     .01459,    .00757,  48.34096,   2.11609,   1.39022,
     +     .68980,   1.85475,   2.11990,
     +     .01499,    .00777,  55.83458,   2.34926,   1.62043,
     +     .92988,   2.09039,   2.35311 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
     +     .01538,    .00797,  63.98077,   2.60434,   1.87291,
     +    1.19202,   2.34792,   2.60824,
     +     .01571,    .00813,  71.14592,   2.83114,   2.09687,
     +    1.42170,   2.57670,   2.83507,
     +     .01613,    .00834,  80.30681,   3.12447,   2.38618,
     +    1.71718,   2.87239,   3.12843,
     +     .01649,    .00853,  88.89582,   3.40164,   2.66053,
     +    1.99878,   3.15160,   3.40563,
     +     .01683,    .00869,  97.16726,   3.67078,   2.92751,
     +    2.27298,   3.42258,   3.67481,
     +     .01726,    .00892, 108.04004,   4.03078,   3.28305,
     +    2.63438,   3.78486,   4.03484,
     +     .01768,    .00913, 118.77759,   4.39028,   3.63905,
     +    2.99734,   4.14646,   4.39436,
     +     .01807,    .00933, 129.32628,   4.74669,   3.99323,
     +    3.35981,   4.50481,   4.75082 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
     +     .01847,    .00953, 140.08811,   5.11785,   4.36009,
     +    3.73129,   4.87786,   5.12200,
     +     .01886,    .00973, 151.05001,   5.49944,   4.73857,
     +    4.11625,   5.26127,   5.50362,
     +     .01923,    .00993, 161.76092,   5.87676,   5.11315,
     +    4.49720,   5.64028,   5.88095,
     +     .01958,    .01010, 172.02318,   6.24418,   5.47718,
     +    4.86590,   6.00929,   6.24841,
     +     .01994,    .01029, 182.71747,   6.62968,   5.86050,
     +    5.25580,   6.39634,   6.63393,
     +     .02030,    .01047, 193.29333,   7.01824,   6.24544,
     +    5.64493,   6.78641,   7.02251,
     +     .02063,    .01065, 203.72665,   7.40348,   6.62870,
     +    6.03434,   7.17307,   7.40778,
     +     .02096,    .01082, 213.59401,   7.77463,   6.99663,
     +    6.40601,   7.54553,   7.77893 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
     +     .02129,    .01099, 223.85621,   8.16280,   7.38263,
     +    6.79731,   7.93501,   8.16713,
     +     .02162,    .01117, 234.04552,   8.55394,   7.77101,
     +    7.19003,   8.32743,   8.55829,
     +     .02194,    .01133, 243.93732,   8.93737,   8.15200,
     +    7.57540,   8.71209,   8.94174,
     +     .02224,    .01149, 253.50720,   9.31125,   8.52404,
     +    7.95223,   9.08709,   9.31564,
     +     .02254,    .01165, 263.14712,   9.69394,   8.90397,
     +    8.33560,   9.47091,   9.69834 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
     +     .01262,    .00667,    .91716,    .58254,    .00000,
     +     .00000,    .31240,    .58474,
     +     .01291,    .00681,   1.83955,    .61382,    .00000,
     +     .00000,    .34596,    .61603,
     +     .01336,    .00702,   3.54025,    .67201,    .03722,
     +     .00000,    .40748,    .67428,
     +     .01370,    .00719,   5.12944,    .72314,    .09160,
     +     .00000,    .46096,    .72545,
     +     .01406,    .00736,   7.08171,    .78628,    .14959,
     +     .00000,    .52652,    .78863,
     +     .01438,    .00752,   9.01257,    .84846,    .20708,
     +     .00000,    .59073,    .85085,
     +     .01469,    .00767,  11.12256,    .91442,    .27067,
     +     .00000,    .65860,    .91682,
     +     .01501,    .00782,  13.64350,    .99155,    .34655,
     +     .00000,    .73771,    .99398 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
     +     .01529,    .00796,  16.02726,   1.06528,    .41742,
     +     .00000,    .81312,   1.06773,
     +     .01558,    .00811,  18.52504,   1.14208,    .49182,
     +     .00000,    .89152,   1.14456,
     +     .01580,    .00822,  20.67081,   1.20689,    .55606,
     +     .00000,    .95758,   1.20939,
     +     .01628,    .00845,  25.70813,   1.35768,    .70374,
     +     .00000,   1.11096,   1.36021,
     +     .01671,    .00867,  30.15511,   1.50116,    .84386,
     +     .18566,   1.25665,   1.50372,
     +     .01719,    .00891,  35.78878,   1.67737,   1.01692,
     +     .38619,   1.43525,   1.67996,
     +     .01770,    .00917,  42.18121,   1.87841,   1.21474,
     +     .59253,   1.63872,   1.88105,
     +     .01817,    .00940,  48.43898,   2.07668,   1.41017,
     +     .79646,   1.83914,   2.07936 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
     +     .01865,    .00965,  55.19364,   2.29251,   1.62345,
     +    1.01799,   2.05708,   2.29521,
     +     .01905,    .00986,  61.09661,   2.48353,   1.81175,
     +    1.21115,   2.24982,   2.48626,
     +     .01954,    .01011,  68.59640,   2.72945,   2.05391,
     +    1.45850,   2.49779,   2.73222,
     +     .01998,    .01034,  75.58540,   2.96080,   2.28256,
     +    1.69322,   2.73091,   2.96361,
     +     .02039,    .01054,  82.28023,   3.18458,   2.50421,
     +    1.92088,   2.95627,   3.18740,
     +     .02090,    .01081,  91.02705,   3.48257,   2.79804,
     +    2.21954,   3.25623,   3.48542,
     +     .02141,    .01106,  99.61369,   3.77881,   3.09098,
     +    2.51819,   3.55430,   3.78170,
     +     .02187,    .01130, 108.00461,   4.07135,   3.38131,
     +    2.81531,   3.84850,   4.07426 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
     +     .02234,    .01155, 116.51531,   4.37469,   3.68070,
     +    3.11841,   4.15348,   4.37764,
     +     .02280,    .01179, 125.14249,   4.68539,   3.98847,
     +    3.43141,   4.46576,   4.68838,
     +     .02325,    .01202, 133.53215,   4.99152,   4.29200,
     +    3.74007,   4.77335,   4.99452,
     +     .02368,    .01224, 141.53172,   5.28855,   4.58591,
     +    4.03769,   5.07174,   5.29159,
     +     .02410,    .01246, 149.83642,   5.59925,   4.89452,
     +    4.35156,   5.38377,   5.60230,
     +     .02452,    .01269, 158.00917,   5.91131,   5.20331,
     +    4.66363,   5.69714,   5.91439,
     +     .02493,    .01290, 166.04497,   6.21987,   5.50996,
     +    4.97518,   6.00691,   6.22298,
     +     .02532,    .01310, 173.61090,   6.51616,   5.80336,
     +    5.27148,   6.30435,   6.51930 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
     +     .02571,    .01330, 181.45574,   6.82529,   6.11045,
     +    5.58275,   6.61461,   6.82844,
     +     .02609,    .01351, 189.21365,   7.13586,   6.41852,
     +    5.89420,   6.92629,   7.13904,
     +     .02647,    .01371, 196.72036,   7.43955,   6.71998,
     +    6.19905,   7.23101,   7.44274,
     +     .02683,    .01389, 203.96129,   7.73495,   7.01367,
     +    6.49650,   7.52740,   7.73817,
     +     .02720,    .01408, 211.22716,   8.03649,   7.31275,
     +    6.79821,   7.82992,   8.03973 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
     +     .01450,    .00760,    .88239,    .54635,    .00000,
     +     .00000,    .29336,    .54803,
     +     .01483,    .00776,   1.76472,    .57620,    .00000,
     +     .00000,    .32531,    .57790,
     +     .01534,    .00800,   3.37634,    .63108,    .03551,
     +     .00000,    .38323,    .63281,
     +     .01574,    .00820,   4.86986,    .67886,    .08641,
     +     .00000,    .43317,    .68063,
     +     .01615,    .00840,   6.69096,    .73748,    .14024,
     +     .00000,    .49398,    .73926,
     +     .01651,    .00858,   8.48022,    .79487,    .19331,
     +     .00000,    .55324,    .79667,
     +     .01685,    .00875,  10.42495,    .85551,    .25177,
     +     .00000,    .61562,    .85734,
     +     .01722,    .00895,  12.73617,    .92618,    .32127,
     +     .00000,    .68808,    .92803 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
     +     .01756,    .00911,  14.91028,    .99346,    .38593,
     +     .00000,    .75691,    .99533,
     +     .01787,    .00927,  17.17849,   1.06335,    .45360,
     +     .00000,    .82825,   1.06525,
     +     .01813,    .00940,  19.12023,   1.12220,    .51190,
     +     .00000,    .88824,   1.12411,
     +     .01868,    .00967,  23.65627,   1.25861,    .64540,
     +     .00000,   1.02701,   1.26056,
     +     .01916,    .00992,  27.63045,   1.38786,    .77155,
     +     .16700,   1.15825,   1.38983,
     +     .01971,    .01021,  32.63910,   1.54596,    .92673,
     +     .34714,   1.31854,   1.54798,
     +     .02031,    .01051,  38.28844,   1.72563,   1.10338,
     +     .53156,   1.50040,   1.72768,
     +     .02084,    .01078,  43.78794,   1.90212,   1.27722,
     +     .71310,   1.67884,   1.90420 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
     +     .02138,    .01105,  49.69376,   2.09356,   1.46626,
     +     .90959,   1.87219,   2.09567,
     +     .02183,    .01130,  54.83082,   2.26242,   1.63262,
     +    1.08032,   2.04262,   2.26457,
     +     .02240,    .01158,  61.32779,   2.47913,   1.84585,
     +    1.29822,   2.26118,   2.48131,
     +     .02290,    .01185,  67.35575,   2.68235,   2.04657,
     +    1.50436,   2.46600,   2.68455,
     +     .02336,    .01208,  73.10775,   2.87837,   2.24061,
     +    1.70375,   2.66345,   2.88060,
     +     .02395,    .01239,  80.58939,   3.13856,   2.49700,
     +    1.96442,   2.92542,   3.14083,
     +     .02451,    .01268,  87.90243,   3.39640,   2.75182,
     +    2.22429,   3.18491,   3.39871,
     +     .02504,    .01295,  95.02138,   3.65028,   3.00365,
     +    2.48211,   3.44030,   3.65262 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
     +     .02558,    .01324, 102.21116,   3.91274,   3.26254,
     +    2.74425,   3.70423,   3.91511,
     +     .02610,    .01351, 109.47392,   4.18086,   3.52799,
     +    3.01429,   3.97377,   4.18325,
     +     .02660,    .01378, 116.51234,   4.44433,   3.78912,
     +    3.27989,   4.23857,   4.44676,
     +     .02708,    .01403, 123.19976,   4.69934,   4.04130,
     +    3.53531,   4.49478,   4.70178,
     +     .02756,    .01428, 130.12330,   4.96547,   4.30555,
     +    3.80414,   4.76215,   4.96796,
     +     .02804,    .01453, 136.91245,   5.23212,   4.56927,
     +    4.07070,   5.02995,   5.23463,
     +     .02850,    .01477, 143.57194,   5.49524,   4.83068,
     +    4.33635,   5.29419,   5.49778,
     +     .02893,    .01500, 149.82101,   5.74732,   5.08019,
     +    4.58837,   5.54729,   5.74989 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
     +     .02938,    .01524, 156.28645,   6.00985,   5.34090,
     +    4.85269,   5.81084,   6.01244,
     +     .02982,    .01547, 162.66139,   6.27304,   5.60188,
     +    5.11657,   6.07503,   6.27565,
     +     .03025,    .01570, 168.81509,   6.52992,   5.85680,
     +    5.37441,   6.33285,   6.53256,
     +     .03064,    .01590, 174.73829,   6.77937,   6.10475,
     +    5.62558,   6.58320,   6.78204,
     +     .03106,    .01612, 180.66459,   7.03350,   6.35672,
     +    5.87980,   6.83820,   7.03619 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
     +     .01614,    .00841,    .85627,    .51988,    .00000,
     +     .00000,    .27948,    .52121,
     +     .01652,    .00859,   1.70880,    .54864,    .00000,
     +     .00000,    .31021,    .55000,
     +     .01708,    .00888,   3.25451,    .60105,    .03428,
     +     .00000,    .36545,    .60244,
     +     .01751,    .00910,   4.67775,    .64636,    .08261,
     +     .00000,    .41279,    .64778,
     +     .01797,    .00932,   6.40302,    .70166,    .13337,
     +     .00000,    .47013,    .70310,
     +     .01837,    .00953,   8.08932,    .75557,    .18324,
     +     .00000,    .52576,    .75703,
     +     .01875,    .00972,   9.91438,    .81235,    .23798,
     +     .00000,    .58417,    .81382,
     +     .01917,    .00993,  12.07438,    .87833,    .30288,
     +     .00000,    .65184,    .87983 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
     +     .01953,    .01011,  14.09795,    .94097,    .36306,
     +     .00000,    .71591,    .94250,
     +     .01989,    .01029,  16.20186,   1.00589,    .42591,
     +     .00000,    .78217,   1.00743,
     +     .02016,    .01044,  17.99799,   1.06045,    .47994,
     +     .00000,    .83780,   1.06201,
     +     .02077,    .01075,  22.17786,   1.18657,    .60334,
     +     .00000,    .96612,   1.18816,
     +     .02132,    .01102,  25.81852,   1.30567,    .71955,
     +     .15368,   1.08709,   1.30729,
     +     .02193,    .01134,  30.38808,   1.45093,    .86207,
     +     .31940,   1.23437,   1.45258,
     +     .02257,    .01167,  35.51790,   1.61545,   1.02379,
     +     .48837,   1.40094,   1.61714,
     +     .02316,    .01198,  40.48962,   1.77658,   1.18246,
     +     .65421,   1.56389,   1.77831 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
     +     .02377,    .01229,  45.80715,   1.95086,   1.35450,
     +     .83316,   1.73995,   1.95263,
     +     .02428,    .01255,  50.41545,   2.10421,   1.50552,
     +     .98824,   1.89475,   2.10600,
     +     .02489,    .01287,  56.22268,   2.30050,   1.69862,
     +    1.18567,   2.09276,   2.30233,
     +     .02544,    .01316,  61.59207,   2.48412,   1.87992,
     +    1.37197,   2.27786,   2.48597,
     +     .02595,    .01343,  66.70009,   2.66083,   2.05481,
     +    1.55179,   2.45591,   2.66272,
     +     .02660,    .01377,  73.32072,   2.89481,   2.28533,
     +    1.78626,   2.69155,   2.89674,
     +     .02722,    .01409,  79.77013,   3.12612,   2.51386,
     +    2.01943,   2.92437,   3.12808,
     +     .02780,    .01440,  86.02925,   3.35335,   2.73922,
     +    2.25026,   3.15302,   3.35535 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
     +     .02839,    .01471,  92.32933,   3.58769,   2.97033,
     +    2.48436,   3.38872,   3.58973,
     +     .02898,    .01501,  98.67576,   3.82660,   3.20682,
     +    2.72502,   3.62894,   3.82866,
     +     .02953,    .01530, 104.80936,   4.06088,   3.43898,
     +    2.96126,   3.86446,   4.06298,
     +     .03005,    .01558, 110.62066,   4.28717,   3.66274,
     +    3.18797,   4.09189,   4.28930,
     +     .03059,    .01587, 116.62414,   4.52296,   3.89683,
     +    3.42622,   4.32879,   4.52512,
     +     .03111,    .01615, 122.49429,   4.75870,   4.12995,
     +    3.66192,   4.56562,   4.76089,
     +     .03161,    .01641, 128.24145,   4.99098,   4.36071,
     +    3.89652,   4.79893,   4.99321,
     +     .03210,    .01667, 133.61995,   5.21310,   4.58054,
     +    4.11862,   5.02200,   5.21536 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
     +     .03258,    .01692, 139.17521,   5.44411,   4.80994,
     +    4.35129,   5.25396,   5.44639,
     +     .03306,    .01718, 144.63978,   5.67531,   5.03919,
     +    4.58316,   5.48608,   5.67762,
     +     .03353,    .01743, 149.90448,   5.90063,   5.26278,
     +    4.80939,   5.71228,   5.90299,
     +     .03397,    .01766, 154.96340,   6.11917,   5.47999,
     +    5.02951,   5.93163,   6.12154,
     +     .03443,    .01790, 160.01335,   6.34144,   5.70036,
     +    5.25191,   6.15472,   6.34384 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
     +     .02258,    .01162,    .77937,    .44579,    .00000,
     +     .00000,    .24104,    .44673,
     +     .02309,    .01188,   1.54628,    .47128,    .00000,
     +     .00000,    .26816,    .47225,
     +     .02387,    .01228,   2.90354,    .51644,    .03094,
     +     .00000,    .31564,    .51744,
     +     .02447,    .01258,   4.12814,    .55469,    .07194,
     +     .00000,    .35555,    .55572,
     +     .02509,    .01291,   5.58491,    .60060,    .11411,
     +     .00000,    .40314,    .60165,
     +     .02564,    .01319,   6.98513,    .64476,    .15501,
     +     .00000,    .44871,    .64585,
     +     .02616,    .01346,   8.48009,    .69084,    .19951,
     +     .00000,    .49612,    .69195,
     +     .02674,    .01376,  10.22600,    .74391,    .25174,
     +     .00000,    .55056,    .74505 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
     +     .02724,    .01402,  11.84023,    .79382,    .29973,
     +     .00000,    .60164,    .79499,
     +     .02771,    .01427,  13.50020,    .84516,    .34948,
     +     .00000,    .65409,    .84636,
     +     .02810,    .01448,  14.90494,    .88809,    .39201,
     +     .00000,    .69787,    .88930,
     +     .02893,    .01490,  18.13396,    .98643,    .48827,
     +     .00000,    .79800,    .98769,
     +     .02967,    .01530,  20.89357,   1.07833,    .57799,
     +     .11783,    .89140,   1.07963,
     +     .03051,    .01574,  24.31103,   1.18934,    .68698,
     +     .24536,   1.00405,   1.19068,
     +     .03139,    .01620,  28.08983,   1.31380,    .80940,
     +     .37377,   1.13017,   1.31519,
     +     .03220,    .01664,  31.70055,   1.43454,    .92837,
     +     .49858,   1.25238,   1.43598 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
     +     .03302,    .01707,  35.51259,   1.56398,   1.05626,
     +     .63206,   1.38326,   1.56547,
     +     .03371,    .01744,  38.77704,   1.67695,   1.16760,
     +     .74675,   1.49740,   1.67848,
     +     .03455,    .01788,  42.84318,   1.82041,   1.30881,
     +     .89155,   1.64224,   1.82198,
     +     .03530,    .01828,  46.56106,   1.95355,   1.44038,
     +    1.02716,   1.77658,   1.95518,
     +     .03599,    .01865,  50.06337,   2.08081,   1.56644,
     +    1.15715,   1.90491,   2.08248,
     +     .03687,    .01912,  54.55126,   2.24798,   1.73126,
     +    1.32524,   2.07342,   2.24971,
     +     .03771,    .01957,  58.87520,   2.41193,   1.89340,
     +    1.49111,   2.23860,   2.41371,
     +     .03850,    .02000,  63.03067,   2.57187,   2.05218,
     +    1.65419,   2.39966,   2.57370 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
     +     .03929,    .02041,  67.16695,   2.73554,   2.21373,
     +    1.81820,   2.56443,   2.73743,
     +     .04007,    .02083,  71.29675,   2.90131,   2.37797,
     +    1.98577,   2.73126,   2.90324,
     +     .04081,    .02124,  75.25278,   3.06283,   2.53820,
     +    2.14923,   2.89377,   3.06482,
     +     .04152,    .02162,  78.96625,   3.21783,   2.69161,
     +    2.30500,   3.04967,   3.21986,
     +     .04223,    .02200,  82.77606,   3.37847,   2.85128,
     +    2.46793,   3.21123,   3.38055,
     +     .04294,    .02238,  86.46577,   3.53804,   3.00923,
     +    2.62797,   3.37167,   3.54018,
     +     .04362,    .02275,  90.05676,   3.69454,   3.16489,
     +    2.78660,   3.52898,   3.69671,
     +     .04425,    .02309,  93.38732,   3.84329,   3.31225,
     +    2.93580,   3.67849,   3.84550 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
     +     .04490,    .02345,  96.80846,   3.99730,   3.46539,
     +    3.09148,   3.83327,   3.99957,
     +     .04555,    .02379, 100.14743,   4.15062,   3.61758,
     +    3.24575,   3.98734,   4.15294,
     +     .04616,    .02413, 103.34422,   4.29937,   3.76536,
     +    3.39561,   4.13677,   4.30172,
     +     .04675,    .02445, 106.39903,   4.44301,   3.90833,
     +    3.54083,   4.28107,   4.44540,
     +     .04735,    .02476, 109.42443,   4.58836,   4.05260,
     +    3.68672,   4.42708,   4.59080 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
     +     .03165,    .01618,    .70996,    .38294,    .00000,
     +     .00000,    .20906,    .38434,
     +     .03235,    .01653,   1.40143,    .40525,    .00000,
     +     .00000,    .23273,    .40668,
     +     .03339,    .01708,   2.59266,    .44371,    .02828,
     +     .00000,    .27316,    .44521,
     +     .03420,    .01750,   3.64520,    .47567,    .06279,
     +     .00000,    .30651,    .47722,
     +     .03505,    .01795,   4.87232,    .51340,    .09752,
     +     .00000,    .34566,    .51501,
     +     .03580,    .01835,   6.03091,    .54922,    .13079,
     +     .00000,    .38266,    .55086,
     +     .03652,    .01872,   7.25006,    .58623,    .16665,
     +     .00000,    .42078,    .58793,
     +     .03729,    .01914,   8.65379,    .62848,    .20835,
     +     .00000,    .46419,    .63023 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
     +     .03797,    .01950,   9.93349,    .66785,    .24630,
     +     .00000,    .50455,    .66964,
     +     .03863,    .01986,  11.23416,    .70805,    .28535,
     +     .00000,    .54567,    .70989,
     +     .03916,    .02013,  12.32460,    .74147,    .31855,
     +     .00000,    .57981,    .74335,
     +     .04029,    .02074,  14.79855,    .81735,    .39304,
     +     .00000,    .65721,    .81931,
     +     .04129,    .02128,  16.87150,    .88750,    .46174,
     +     .08880,    .72862,    .88953,
     +     .04243,    .02190,  19.40021,    .97142,    .54438,
     +     .18632,    .81390,    .97352,
     +     .04363,    .02254,  22.15135,   1.06452,    .63626,
     +     .28325,    .90841,   1.06671,
     +     .04472,    .02314,  24.74038,   1.15397,    .72467,
     +     .37653,    .99908,   1.15625 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
     +     .04584,    .02374,  27.43596,   1.24901,    .81888,
     +     .47538,   1.09533,   1.25136,
     +     .04677,    .02426,  29.71482,   1.33125,    .90019,
     +     .55956,   1.17855,   1.33367,
     +     .04790,    .02487,  32.51786,   1.43482,   1.00248,
     +     .66497,   1.28328,   1.43733,
     +     .04891,    .02542,  35.05025,   1.53018,   1.09702,
     +     .76290,   1.37965,   1.53276,
     +     .04984,    .02593,  37.41072,   1.62068,   1.18697,
     +     .85611,   1.47104,   1.62333,
     +     .05103,    .02658,  40.39775,   1.73857,   1.30358,
     +     .97557,   1.59006,   1.74131,
     +     .05216,    .02719,  43.24152,   1.85327,   1.41737,
     +    1.09253,   1.70578,   1.85608,
     +     .05322,    .02777,  45.94582,   1.96431,   1.52799,
     +    1.20669,   1.81778,   1.96723 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
     +     .05428,    .02836,  48.60441,   2.07705,   1.63961,
     +    1.32051,   1.93144,   2.08004,
     +     .05533,    .02893,  51.23333,   2.19045,   1.75234,
     +    1.43604,   2.04573,   2.19352,
     +     .05633,    .02947,  53.72730,   2.30020,   1.86159,
     +    1.54798,   2.15631,   2.30335,
     +     .05726,    .02999,  56.04410,   2.40481,   1.96544,
     +    1.65390,   2.26168,   2.40802,
     +     .05822,    .03051,  58.40336,   2.51263,   2.07297,
     +    1.76411,   2.37026,   2.51592,
     +     .05915,    .03102,  60.66346,   2.61899,   2.17859,
     +    1.87157,   2.47735,   2.62235,
     +     .06005,    .03151,  62.84924,   2.72277,   2.28218,
     +    1.97761,   2.58183,   2.72621,
     +     .06091,    .03198,  64.85541,   2.82080,   2.37960,
     +    2.07665,   2.68050,   2.82430 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
     +     .06176,    .03246,  66.90421,   2.92183,   2.48040,
     +    2.17956,   2.78217,   2.92540,
     +     .06262,    .03292,  68.88571,   3.02183,   2.57999,
     +    2.28094,   2.88280,   3.02547,
     +     .06343,    .03337,  70.76968,   3.11837,   2.67622,
     +    2.37893,   2.97993,   3.12207,
     +     .06422,    .03380,  72.55890,   3.21120,   2.76893,
     +    2.47350,   3.07330,   3.21496,
     +     .06500,    .03423,  74.31439,   3.30459,   2.86193,
     +    2.56794,   3.16726,   3.30842 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
     +     .03857,    .01968,    .67459,    .35086,    .00000,
     +     .00000,    .19302,    .35288,
     +     .03939,    .02010,   1.32646,    .37130,    .00000,
     +     .00000,    .21473,    .37338,
     +     .04063,    .02076,   2.42973,    .40607,    .02699,
     +     .00000,    .25129,    .40823,
     +     .04159,    .02128,   3.39209,    .43462,    .05803,
     +     .00000,    .28111,    .43685,
     +     .04261,    .02182,   4.49998,    .46804,    .08883,
     +     .00000,    .31583,    .47035,
     +     .04350,    .02229,   5.53426,    .49951,    .11815,
     +     .00000,    .34840,    .50188,
     +     .04437,    .02276,   6.61271,    .53186,    .14958,
     +     .00000,    .38177,    .53431,
     +     .04529,    .02326,   7.84342,    .56861,    .18592,
     +     .00000,    .41957,    .57111 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
     +     .04610,    .02370,   8.95553,    .60265,    .21882,
     +     .00000,    .45452,    .60523,
     +     .04689,    .02412,  10.07756,    .63726,    .25254,
     +     .00000,    .48998,    .63990,
     +     .04751,    .02447,  11.01275,    .66594,    .28110,
     +     .00000,    .51933,    .66864,
     +     .04887,    .02520,  13.11718,    .73073,    .34486,
     +     .00000,    .58550,    .73353,
     +     .05008,    .02586,  14.85942,    .79022,    .40328,
     +     .07439,    .64616,    .79312,
     +     .05144,    .02661,  16.96370,    .86098,    .47317,
     +     .15735,    .71819,    .86399,
     +     .05286,    .02739,  19.22980,    .93901,    .55039,
     +     .23915,    .79750,    .94212,
     +     .05417,    .02811,  21.34199,   1.01352,    .62426,
     +     .31742,    .87314,   1.01674 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
     +     .05550,    .02884,  23.52178,   1.09225,    .70253,
     +     .39989,    .95299,   1.09559,
     +     .05660,    .02945,  25.34961,   1.16004,    .76976,
     +     .46976,   1.02169,   1.16347,
     +     .05796,    .03019,  27.57995,   1.24499,    .85389,
     +     .55679,   1.10770,   1.24852,
     +     .05916,    .03086,  29.57962,   1.32281,    .93129,
     +     .63727,   1.18645,   1.32645,
     +     .06027,    .03146,  31.43106,   1.39634,   1.00459,
     +     .71352,   1.26082,   1.40007,
     +     .06167,    .03224,  33.75507,   1.49165,   1.09915,
     +     .81074,   1.35717,   1.49550,
     +     .06301,    .03298,  35.95083,   1.58391,   1.19094,
     +     .90545,   1.45037,   1.58786,
     +     .06426,    .03367,  38.02486,   1.67284,   1.27980,
     +     .99749,   1.54018,   1.67689 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
     +     .06552,    .03437,  40.04729,   1.76265,   1.36898,
     +    1.08875,   1.63085,   1.76682,
     +     .06676,    .03506,  42.03480,   1.85263,   1.45869,
     +    1.18103,   1.72165,   1.85689,
     +     .06794,    .03571,  43.90848,   1.93934,   1.54526,
     +    1.27005,   1.80913,   1.94371,
     +     .06905,    .03632,  45.63708,   2.02163,   1.62721,
     +    1.35392,   1.89214,   2.02610,
     +     .07018,    .03695,  47.38909,   2.10617,   1.71177,
     +    1.44091,   1.97738,   2.11072,
     +     .07128,    .03755,  49.05508,   2.18920,   1.79446,
     +    1.52534,   2.06110,   2.19385,
     +     .07233,    .03814,  50.65997,   2.26998,   1.87534,
     +    1.60843,   2.14253,   2.27472,
     +     .07334,    .03869,  52.12246,   2.34596,   1.95106,
     +    1.68567,   2.21909,   2.35078 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
     +     .07435,    .03925,  53.61056,   2.42406,   2.02921,
     +    1.76575,   2.29779,   2.42896,
     +     .07534,    .03980,  55.04086,   2.50108,   2.10614,
     +    1.84434,   2.37539,   2.50606,
     +     .07631,    .04033,  56.39451,   2.57520,   2.18025,
     +    1.92007,   2.45007,   2.58027,
     +     .07721,    .04083,  57.67489,   2.64628,   2.25146,
     +    1.99297,   2.52165,   2.65141,
     +     .07813,    .04134,  58.92292,   2.71754,   2.32263,
     +    2.06548,   2.59343,   2.72276 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
     +     .04435,    .02260,    .65372,    .32986,    .00000,
     +     .00000,    .18271,    .33254,
     +     .04527,    .02309,   1.27935,    .34900,    .00000,
     +     .00000,    .20304,    .35175,
     +     .04670,    .02385,   2.32369,    .38121,    .02616,
     +     .00000,    .23696,    .38409,
     +     .04778,    .02443,   3.22589,    .40749,    .05484,
     +     .00000,    .26444,    .41044,
     +     .04893,    .02506,   4.25463,    .43806,    .08304,
     +     .00000,    .29624,    .44110,
     +     .04994,    .02561,   5.20689,    .46670,    .10977,
     +     .00000,    .32590,    .46982,
     +     .05092,    .02613,   6.19299,    .49601,    .13829,
     +     .00000,    .35619,    .49921,
     +     .05197,    .02671,   7.31082,    .52919,    .17116,
     +     .00000,    .39038,    .53248 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
     +     .05289,    .02722,   8.31420,    .55982,    .20080,
     +     .00000,    .42185,    .56318,
     +     .05378,    .02771,   9.32099,    .59084,    .23109,
     +     .00000,    .45368,    .59428,
     +     .05450,    .02810,  10.15643,    .61651,    .25669,
     +     .00000,    .47998,    .62001,
     +     .05603,    .02895,  12.02493,    .67424,    .31362,
     +     .00000,    .53902,    .67786,
     +     .05739,    .02971,  13.55782,    .72701,    .36554,
     +     .06525,    .59289,    .73076,
     +     .05894,    .03055,  15.39530,    .78950,    .42739,
     +     .13902,    .65659,    .79338,
     +     .06056,    .03146,  17.35894,    .85810,    .49541,
     +     .21132,    .72640,    .86211,
     +     .06204,    .03228,  19.17596,    .92332,    .56022,
     +     .28022,    .79270,    .92745 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
     +     .06354,    .03311,  21.03869,    .99196,    .62861,
     +     .35251,    .86240,    .99622,
     +     .06480,    .03381,  22.59100,   1.05083,    .68711,
     +     .41351,    .92212,   1.05519,
     +     .06632,    .03465,  24.47366,   1.12431,    .76006,
     +     .48921,    .99663,   1.12881,
     +     .06768,    .03541,  26.15187,   1.19140,    .82693,
     +     .55897,   1.06460,   1.19601,
     +     .06894,    .03611,  27.69777,   1.25458,    .89006,
     +     .62484,   1.12857,   1.25930,
     +     .07052,    .03700,  29.62624,   1.33616,    .97116,
     +     .70849,   1.21114,   1.34101,
     +     .07202,    .03784,  31.43767,   1.41482,   1.04963,
     +     .78969,   1.29071,   1.41981,
     +     .07344,    .03862,  33.13994,   1.49040,   1.12532,
     +     .86835,   1.36713,   1.49551 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
     +     .07486,    .03941,  34.78934,   1.56645,   1.20099,
     +     .94601,   1.44399,   1.57167,
     +     .07625,    .04019,  36.40263,   1.64237,   1.27688,
     +    1.02431,   1.52071,   1.64772,
     +     .07757,    .04092,  37.91614,   1.71533,   1.34989,
     +    1.09962,   1.59441,   1.72080,
     +     .07881,    .04160,  39.30491,   1.78435,   1.41877,
     +    1.17033,   1.66410,   1.78992,
     +     .08007,    .04231,  40.70744,   1.85506,   1.48968,
     +    1.24350,   1.73549,   1.86074,
     +     .08131,    .04300,  42.03327,   1.92428,   1.55878,
     +    1.31425,   1.80536,   1.93007,
     +     .08249,    .04366,  43.30667,   1.99148,   1.62623,
     +    1.38376,   1.87318,   1.99737,
     +     .08360,    .04427,  44.46044,   2.05448,   1.68917,
     +    1.44817,   1.93675,   2.06047 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
     +     .08473,    .04491,  45.63113,   2.11912,   1.75401,
     +    1.51481,   2.00195,   2.12519,
     +     .08585,    .04553,  46.75076,   2.18267,   1.81764,
     +    1.58001,   2.06606,   2.18885,
     +     .08692,    .04612,  47.80650,   2.24370,   1.87882,
     +    1.64271,   2.12763,   2.24997,
     +     .08793,    .04669,  48.80196,   2.30209,   1.93748,
     +    1.70295,   2.18652,   2.30846,
     +     .08896,    .04726,  49.76703,   2.36048,   1.99594,
     +    1.76270,   2.24540,   2.36693 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
     +     .04944,    .02529,    .64242,    .31488,    .00000,
     +     .00000,    .17512,    .31777,
     +     .05045,    .02584,   1.24884,    .33298,    .00000,
     +     .00000,    .19434,    .33597,
     +     .05201,    .02669,   2.24909,    .36327,    .02548,
     +     .00000,    .22622,    .36637,
     +     .05321,    .02734,   3.10610,    .38781,    .05239,
     +     .00000,    .25189,    .39101,
     +     .05449,    .02804,   4.07541,    .41624,    .07865,
     +     .00000,    .28147,    .41955,
     +     .05560,    .02865,   4.96625,    .44275,    .10343,
     +     .00000,    .30897,    .44617,
     +     .05668,    .02924,   5.88337,    .46983,    .12982,
     +     .00000,    .33695,    .47333,
     +     .05784,    .02988,   6.91713,    .50038,    .16014,
     +     .00000,    .36844,    .50398 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
     +     .05885,    .03045,   7.83994,    .52849,    .18739,
     +     .00000,    .39735,    .53218,
     +     .05983,    .03099,   8.76158,    .55691,    .21517,
     +     .00000,    .42653,    .56068,
     +     .06063,    .03143,   9.52354,    .58037,    .23859,
     +     .00000,    .45058,    .58421,
     +     .06232,    .03237,  11.21900,    .63298,    .29055,
     +     .00000,    .50443,    .63696,
     +     .06382,    .03321,  12.59930,    .68088,    .33776,
     +     .05871,    .55337,    .68499,
     +     .06552,    .03416,  14.24354,    .73741,    .39379,
     +     .12577,    .61104,    .74167,
     +     .06730,    .03515,  15.98932,    .79922,    .45520,
     +     .19122,    .67400,    .80364,
     +     .06893,    .03607,  17.59496,    .85778,    .51348,
     +     .25335,    .73358,    .86235 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
     +     .07058,    .03698,  19.23187,    .91920,    .57478,
     +     .31832,    .79601,    .92391,
     +     .07196,    .03776,  20.58870,    .97172,    .62706,
     +     .37296,    .84934,    .97655,
     +     .07363,    .03870,  22.22598,   1.03707,    .69204,
     +     .44056,    .91566,   1.04205,
     +     .07512,    .03953,  23.67832,   1.09655,    .75142,
     +     .50266,    .97597,   1.10166,
     +     .07649,    .04029,  25.01025,   1.15241,    .80733,
     +     .56116,   1.03258,   1.15764,
     +     .07823,    .04127,  26.66302,   1.22431,    .87894,
     +     .63520,   1.10543,   1.22970,
     +     .07988,    .04219,  28.20787,   1.29342,    .94799,
     +     .70683,   1.17541,   1.29896,
     +     .08142,    .04306,  29.65332,   1.35963,   1.01443,
     +     .77604,   1.24241,   1.36530 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
     +     .08296,    .04391,  31.04623,   1.42605,   1.08063,
     +     .84415,   1.30959,   1.43185,
     +     .08449,    .04476,  32.40317,   1.49217,   1.14686,
     +     .91265,   1.37648,   1.49811,
     +     .08593,    .04557,  33.67089,   1.55555,   1.21039,
     +     .97835,   1.44056,   1.56162,
     +     .08728,    .04633,  34.82858,   1.61534,   1.27018,
     +    1.03988,   1.50099,   1.62152,
     +     .08865,    .04709,  35.99412,   1.67648,   1.33161,
     +    1.10342,   1.56276,   1.68278,
     +     .08999,    .04784,  37.09023,   1.73614,   1.39129,
     +    1.16469,   1.62306,   1.74257,
     +     .09128,    .04855,  38.14041,   1.79396,   1.44944,
     +    1.22477,   1.68147,   1.80051,
     +     .09249,    .04923,  39.08700,   1.84803,   1.50357,
     +    1.28029,   1.73608,   1.85468 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
     +     .09372,    .04992,  40.04522,   1.90341,   1.55923,
     +    1.33764,   1.79200,   1.91016,
     +     .09493,    .05059,  40.95741,   1.95771,   1.61373,
     +    1.39363,   1.84684,   1.96458,
     +     .09608,    .05124,  41.81473,   2.00977,   1.66603,
     +    1.44737,   1.89939,   2.01673,
     +     .09719,    .05184,  42.62095,   2.05949,   1.71609,
     +    1.49891,   1.94959,   2.06655,
     +     .09830,    .05246,  43.39875,   2.10909,   1.76587,
     +    1.54991,   1.99967,   2.11625 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
     +     .06930,    .03606,    .62343,    .27340,    .00000,
     +     .00000,    .15474,    .27793,
     +     .07066,    .03683,   1.17495,    .28827,    .00000,
     +     .00000,    .17055,    .29291,
     +     .07276,    .03801,   2.04776,    .31268,    .02349,
     +     .00000,    .19632,    .31750,
     +     .07437,    .03892,   2.77489,    .33216,    .04527,
     +     .00000,    .21677,    .33713,
     +     .07610,    .03990,   3.57516,    .35444,    .06600,
     +     .00000,    .24004,    .35957,
     +     .07760,    .04075,   4.29293,    .37499,    .08536,
     +     .00000,    .26142,    .38026,
     +     .07905,    .04158,   5.01740,    .39578,    .10582,
     +     .00000,    .28300,    .40119,
     +     .08062,    .04247,   5.81854,    .41906,    .12911,
     +     .00000,    .30709,    .42460 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
     +     .08199,    .04325,   6.52033,    .44028,    .14984,
     +     .00000,    .32900,    .44595,
     +     .08332,    .04401,   7.21027,    .46157,    .17081,
     +     .00000,    .35094,    .46736,
     +     .08438,    .04462,   7.77364,    .47903,    .18840,
     +     .00000,    .36892,    .48493,
     +     .08667,    .04592,   9.00559,    .51784,    .22701,
     +     .00000,    .40880,    .52395,
     +     .08869,    .04707,   9.98316,    .55274,    .26168,
     +     .04096,    .44459,    .55904,
     +     .09097,    .04837,  11.12161,    .59346,    .30237,
     +     .09033,    .48631,    .59997,
     +     .09334,    .04972,  12.30386,    .63745,    .34642,
     +     .13778,    .53130,    .64418,
     +     .09552,    .05096,  13.36855,    .67863,    .38774,
     +     .18229,    .57337,    .68556 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
     +     .09771,    .05220,  14.43315,    .72136,    .43071,
     +     .22832,    .61697,    .72848,
     +     .09953,    .05324,  15.29961,    .75750,    .46699,
     +     .26662,    .65383,    .76481,
     +     .10175,    .05450,  16.32649,    .80201,    .51161,
     +     .31351,    .69919,    .80952,
     +     .10370,    .05561,  17.22194,    .84211,    .55199,
     +     .35617,    .74002,    .84980,
     +     .10551,    .05663,  18.03078,    .87944,    .58967,
     +     .39599,    .77803,    .88730,
     +     .10779,    .05791,  19.01549,    .92697,    .63740,
     +     .44584,    .82637,    .93504,
     +     .10994,    .05913,  19.91984,    .97217,    .68296,
     +     .49360,    .87234,    .98043,
     +     .11196,    .06027,  20.75303,   1.01507,    .72639,
     +     .53932,    .91595,   1.02353 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
     +     .11396,    .06139,  21.53971,   1.05763,    .76919,
     +     .58380,    .95919,   1.06627,
     +     .11592,    .06250,  22.29504,   1.09964,    .81164,
     +     .62817,   1.00186,   1.10846,
     +     .11778,    .06354,  22.99003,   1.13954,    .85202,
     +     .67038,   1.04239,   1.14853,
     +     .11953,    .06451,  23.61337,   1.17684,    .88965,
     +     .70951,   1.08025,   1.18598,
     +     .12128,    .06551,  24.23417,   1.21470,    .92806,
     +     .74968,   1.11870,   1.22401,
     +     .12301,    .06647,  24.80623,   1.25129,    .96502,
     +     .78802,   1.15584,   1.26075,
     +     .12464,    .06738,  25.34955,   1.28654,   1.00082,
     +     .82542,   1.19161,   1.29614,
     +     .12618,    .06824,  25.82921,   1.31918,   1.03383,
     +     .85966,   1.22474,   1.32893 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
     +     .12775,    .06911,  26.31068,   1.35242,   1.06759,
     +     .89483,   1.25848,   1.36232,
     +     .12927,    .06996,  26.76088,   1.38476,   1.10039,
     +     .92890,   1.29129,   1.39479,
     +     .13074,    .07078,  27.17870,   1.41555,   1.13166,
     +     .96140,   1.32252,   1.42571,
     +     .13213,    .07154,  27.56750,   1.44477,   1.16141,
     +     .99239,   1.35219,   1.45506,
     +     .13352,    .07232,  27.93477,   1.47369,   1.19076,
     +    1.02280,   1.38153,   1.48411 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
     +     .09721,    .05193,    .65544,    .23919,    .00000,
     +     .00000,    .13798,    .24613,
     +     .09905,    .05300,   1.15535,    .25077,    .00000,
     +     .00000,    .15038,    .25789,
     +     .10187,    .05465,   1.90921,    .26962,    .02118,
     +     .00000,    .17037,    .27701,
     +     .10405,    .05592,   2.51677,    .28450,    .03838,
     +     .00000,    .18609,    .29210,
     +     .10637,    .05727,   3.16448,    .30137,    .05431,
     +     .00000,    .20382,    .30921,
     +     .10838,    .05844,   3.72915,    .31678,    .06906,
     +     .00000,    .21996,    .32481,
     +     .11034,    .05958,   4.28592,    .33227,    .08454,
     +     .00000,    .23612,    .34049,
     +     .11246,    .06080,   4.88790,    .34945,    .10201,
     +     .00000,    .25401,    .35789 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
     +     .11429,    .06187,   5.40360,    .36499,    .11739,
     +     .00000,    .27015,    .37359,
     +     .11607,    .06290,   5.90123,    .38044,    .13284,
     +     .00000,    .28618,    .38923,
     +     .11750,    .06373,   6.30161,    .39306,    .14571,
     +     .00000,    .29925,    .40198,
     +     .12053,    .06548,   7.15950,    .42079,    .17368,
     +     .00000,    .32792,    .43001,
     +     .12321,    .06702,   7.82010,    .44539,    .19845,
     +     .02663,    .35331,    .45488,
     +     .12622,    .06875,   8.56678,    .47373,    .22716,
     +     .06210,    .38253,    .48352,
     +     .12934,    .07054,   9.32147,    .50392,    .25781,
     +     .09561,    .41361,    .51401,
     +     .13219,    .07216,   9.98362,    .53182,    .28617,
     +     .12662,    .44229,    .54216 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
     +     .13505,    .07379,  10.62980,    .56037,    .31530,
     +     .15827,    .47165,    .57100,
     +     .13742,    .07514,  11.14363,    .58425,    .33959,
     +     .18429,    .49615,    .59510,
     +     .14027,    .07675,  11.73858,    .61327,    .36911,
     +     .21578,    .52594,    .62440,
     +     .14280,    .07818,  12.24615,    .63913,    .39551,
     +     .24411,    .55245,    .65049,
     +     .14511,    .07948,  12.69566,    .66293,    .41989,
     +     .27027,    .57685,    .67452,
     +     .14802,    .08112,  13.22854,    .69284,    .45038,
     +     .30261,    .60752,    .70470,
     +     .15075,    .08265,  13.70652,    .72093,    .47914,
     +     .33324,    .63630,    .73306,
     +     .15330,    .08408,  14.13794,    .74731,    .50626,
     +     .36225,    .66332,    .75966 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
     +     .15581,    .08548,  14.53311,    .77311,    .53264,
     +     .39011,    .68975,    .78569,
     +     .15828,    .08684,  14.90490,    .79831,    .55853,
     +     .41763,    .71555,    .81112,
     +     .16061,    .08813,  15.23940,    .82199,    .58291,
     +     .44354,    .73981,    .83501,
     +     .16276,    .08933,  15.53118,    .84386,    .60539,
     +     .46732,    .76220,    .85708,
     +     .16495,    .09053,  15.81742,    .86588,    .62814,
     +     .49153,    .78476,    .87930,
     +     .16706,    .09169,  16.07237,    .88689,    .64976,
     +     .51436,    .80628,    .90050,
     +     .16908,    .09280,  16.31174,    .90698,    .67058,
     +     .53650,    .82686,    .92078,
     +     .17096,    .09383,  16.51513,    .92537,    .68954,
     +     .55653,    .84570,    .93933 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
     +     .17285,    .09487,  16.71682,    .94397,    .70883,
     +     .57700,    .86475,    .95810,
     +     .17472,    .09587,  16.89936,    .96187,    .72736,
     +     .59662,    .88309,    .97616,
     +     .17648,    .09684,  17.06519,    .97876,    .74489,
     +     .61520,    .90041,    .99321,
     +     .17816,    .09774,  17.21664,    .99469,    .76147,
     +     .63280,    .91673,   1.00928,
     +     .17982,    .09865,  17.35343,   1.01027,    .77764,
     +     .64990,    .93270,   1.02500 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
     +     .11845,    .06434,    .71161,    .22133,    .00000,
     +     .00000,    .12914,    .23022,
     +     .12065,    .06565,   1.18115,    .23104,    .00000,
     +     .00000,    .13958,    .24015,
     +     .12402,    .06765,   1.86661,    .24683,    .01932,
     +     .00000,    .15647,    .25630,
     +     .12662,    .06918,   2.40604,    .25929,    .03414,
     +     .00000,    .16970,    .26900,
     +     .12937,    .07081,   2.96966,    .27334,    .04760,
     +     .00000,    .18455,    .28335,
     +     .13177,    .07222,   3.45168,    .28613,    .06003,
     +     .00000,    .19802,    .29639,
     +     .13410,    .07358,   3.91950,    .29893,    .07301,
     +     .00000,    .21144,    .30942,
     +     .13660,    .07503,   4.41771,    .31306,    .08760,
     +     .00000,    .22626,    .32381 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
     +     .13876,    .07630,   4.83817,    .32577,    .10035,
     +     .00000,    .23953,    .33675,
     +     .14087,    .07752,   5.23872,    .33837,    .11310,
     +     .00000,    .25266,    .34955,
     +     .14255,    .07850,   5.55778,    .34860,    .12368,
     +     .00000,    .26332,    .35995,
     +     .14613,    .08056,   6.23202,    .37095,    .14651,
     +     .00000,    .28656,    .38266,
     +     .14925,    .08235,   6.74096,    .39060,    .16654,
     +     .01953,    .30697,    .40262,
     +     .15275,    .08436,   7.30311,    .41304,    .18956,
     +     .04838,    .33025,    .42541,
     +     .15638,    .08642,   7.86018,    .43673,    .21391,
     +     .07533,    .35479,    .44945,
     +     .15967,    .08828,   8.33961,    .45840,    .23625,
     +     .10004,    .37723,    .47145 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
     +     .16296,    .09015,   8.79929,    .48040,    .25900,
     +     .12507,    .39998,    .49376,
     +     .16568,    .09167,   9.15853,    .49863,    .27780,
     +     .14547,    .41883,    .51227,
     +     .16896,    .09351,   9.56681,    .52062,    .30046,
     +     .16995,    .44155,    .53456,
     +     .17184,    .09512,   9.90919,    .54003,    .32058,
     +     .19181,    .46161,    .55424,
     +     .17447,    .09658,  10.20778,    .55779,    .33902,
     +     .21187,    .47994,    .57224,
     +     .17776,    .09840,  10.55430,    .57987,    .36189,
     +     .23645,    .50275,    .59464,
     +     .18083,    .10010,  10.85898,    .60044,    .38328,
     +     .25955,    .52399,    .61549,
     +     .18370,    .10168,  11.12914,    .61960,    .40330,
     +     .28127,    .54378,    .63491 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
     +     .18653,    .10321,  11.36962,    .63816,    .42259,
     +     .30194,    .56295,    .65373,
     +     .18927,    .10471,  11.59208,    .65615,    .44141,
     +     .32224,    .58152,    .67197,
     +     .19185,    .10611,  11.78835,    .67293,    .45899,
     +     .34121,    .59885,    .68897,
     +     .19425,    .10741,  11.95459,    .68827,    .47506,
     +     .35848,    .61472,    .70453,
     +     .19666,    .10871,  12.11535,    .70364,    .49126,
     +     .37600,    .63061,    .72011,
     +     .19898,    .10996,  12.25316,    .71815,    .50652,
     +     .39237,    .64563,    .73484,
     +     .20119,    .11115,  12.38122,    .73197,    .52114,
     +     .40819,    .65992,    .74885,
     +     .20325,    .11224,  12.48521,    .74449,    .53434,
     +     .42238,    .67289,    .76155 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
     +     .20532,    .11335,  12.58715,    .75710,    .54772,
     +     .43683,    .68594,    .77433,
     +     .20734,    .11442,  12.67544,    .76914,    .56047,
     +     .45057,    .69840,    .78652,
     +     .20925,    .11543,  12.75336,    .78042,    .57248,
     +     .46353,    .71009,    .79797,
     +     .21107,    .11639,  12.82286,    .79100,    .58377,
     +     .47575,    .72107,    .80870,
     +     .21286,    .11734,  12.88136,    .80124,    .59469,
     +     .48753,    .73170,    .81910 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
     +     .13624,    .07490,    .77836,    .20927,    .00000,
     +     .00000,    .12293,    .21984,
     +     .13874,    .07642,   1.22257,    .21771,    .00000,
     +     .00000,    .13208,    .22856,
     +     .14259,    .07872,   1.85832,    .23149,    .01758,
     +     .00000,    .14689,    .24273,
     +     .14554,    .08047,   2.34885,    .24233,    .03085,
     +     .00000,    .15849,    .25391,
     +     .14865,    .08231,   2.85350,    .25457,    .04274,
     +     .00000,    .17150,    .26648,
     +     .15136,    .08390,   3.27882,    .26567,    .05368,
     +     .00000,    .18323,    .27784,
     +     .15398,    .08544,   3.68647,    .27673,    .06509,
     +     .00000,    .19491,    .28918,
     +     .15680,    .08708,   4.11548,    .28892,    .07783,
     +     .00000,    .20775,    .30167 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
     +     .15924,    .08848,   4.47327,    .29983,    .08893,
     +     .00000,    .21922,    .31284,
     +     .16160,    .08985,   4.81067,    .31060,    .09997,
     +     .00000,    .23052,    .32385,
     +     .16347,    .09093,   5.07728,    .31932,    .10911,
     +     .00000,    .23966,    .33277,
     +     .16747,    .09323,   5.63456,    .33829,    .12872,
     +     .00000,    .25950,    .35215,
     +     .17093,    .09521,   6.04867,    .35483,    .14581,
     +     .01498,    .27678,    .36903,
     +     .17482,    .09740,   6.49652,    .37361,    .16531,
     +     .03972,    .29638,    .38819,
     +     .17882,    .09966,   6.93309,    .39326,    .18578,
     +     .06262,    .31688,    .40825,
     +     .18243,    .10168,   7.30273,    .41112,    .20442,
     +     .08348,    .33547,    .42646 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
     +     .18605,    .10369,   7.65166,    .42911,    .22328,
     +     .10446,    .35422,    .44480,
     +     .18902,    .10534,   7.92008,    .44393,    .23877,
     +     .12145,    .36964,    .45989,
     +     .19258,    .10730,   8.22014,    .46167,    .25733,
     +     .14173,    .38809,    .47796,
     +     .19571,    .10902,   8.46788,    .47721,    .27368,
     +     .15971,    .40428,    .49381,
     +     .19856,    .11058,   8.68079,    .49134,    .28859,
     +     .17614,    .41899,    .50820,
     +     .20211,    .11251,   8.92262,    .50879,    .30695,
     +     .19612,    .43715,    .52597,
     +     .20542,    .11430,   9.13114,    .52492,    .32400,
     +     .21477,    .45395,    .54240,
     +     .20849,    .11595,   9.31284,    .53984,    .33988,
     +     .23223,    .46949,    .55759 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
     +     .21149,    .11756,   9.46966,    .55418,    .35506,
     +     .24873,    .48444,    .57219,
     +     .21442,    .11912,   9.61196,    .56798,    .36978,
     +     .26483,    .49883,    .58625,
     +     .21716,    .12057,   9.73460,    .58076,    .38346,
     +     .27981,    .51218,    .59928,
     +     .21969,    .12191,   9.83487,    .59237,    .39588,
     +     .29337,    .52430,    .61111,
     +     .22223,    .12325,   9.93030,    .60394,    .40834,
     +     .30705,    .53639,    .62289,
     +     .22467,    .12453,  10.00786,    .61477,    .42000,
     +     .31977,    .54771,    .63393,
     +     .22699,    .12575,  10.07906,    .62505,    .43113,
     +     .33202,    .55846,    .64439,
     +     .22914,    .12686,  10.13286,    .63427,    .44111,
     +     .34293,    .56813,    .65379 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
     +     .23131,    .12798,  10.18474,    .64352,    .45117,
     +     .35399,    .57782,    .66322,
     +     .23340,    .12906,  10.22632,    .65226,    .46073,
     +     .36448,    .58700,    .67214,
     +     .23538,    .13009,  10.26110,    .66043,    .46966,
     +     .37430,    .59558,    .68046,
     +     .23726,    .13104,  10.29067,    .66806,    .47804,
     +     .38355,    .60360,    .68823,
     +     .23911,    .13199,  10.31156,    .67536,    .48610,
     +     .39240,    .61130,    .69569 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
     +     .15177,    .08422,    .84814,    .19985,    .00000,
     +     .00000,    .11790,    .21186,
     +     .15455,    .08592,   1.27037,    .20738,    .00000,
     +     .00000,    .12611,    .21969,
     +     .15881,    .08847,   1.86615,    .21968,    .01592,
     +     .00000,    .13941,    .23249,
     +     .16206,    .09040,   2.31792,    .22938,    .02806,
     +     .00000,    .14984,    .24255,
     +     .16550,    .09243,   2.77675,    .24030,    .03882,
     +     .00000,    .16151,    .25384,
     +     .16848,    .09417,   3.15866,    .25019,    .04871,
     +     .00000,    .17203,    .26404,
     +     .17136,    .09585,   3.52091,    .26003,    .05899,
     +     .00000,    .18247,    .27418,
     +     .17444,    .09764,   3.89835,    .27083,    .07044,
     +     .00000,    .19391,    .28532 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
     +     .17711,    .09918,   4.21003,    .28046,    .08036,
     +     .00000,    .20410,    .29524,
     +     .17967,    .10065,   4.50133,    .28994,    .09020,
     +     .00000,    .21409,    .30498,
     +     .18173,    .10183,   4.72994,    .29760,    .09832,
     +     .00000,    .22216,    .31286,
     +     .18606,    .10429,   5.20339,    .31417,    .11567,
     +     .00000,    .23960,    .32988,
     +     .18981,    .10641,   5.55069,    .32854,    .13069,
     +     .01171,    .25470,    .34462,
     +     .19399,    .10874,   5.91865,    .34473,    .14773,
     +     .03356,    .27171,    .36123,
     +     .19830,    .11113,   6.27197,    .36158,    .16551,
     +     .05365,    .28940,    .37849,
     +     .20216,    .11326,   6.56664,    .37678,    .18159,
     +     .07183,    .30535,    .39407 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
     +     .20602,    .11538,   6.84075,    .39201,    .19778,
     +     .09003,    .32132,    .40966,
     +     .20918,    .11711,   7.04833,    .40445,    .21099,
     +     .10468,    .33438,    .42240,
     +     .21296,    .11915,   7.27675,    .41926,    .22672,
     +     .12207,    .34992,    .43757,
     +     .21626,    .12093,   7.46238,    .43218,    .24053,
     +     .13743,    .36348,    .45079,
     +     .21927,    .12254,   7.61951,    .44386,    .25304,
     +     .15137,    .37573,    .46274,
     +     .22300,    .12453,   7.79378,    .45816,    .26836,
     +     .16826,    .39076,    .47739,
     +     .22646,    .12637,   7.94096,    .47130,    .28251,
     +     .18393,    .40457,    .49083,
     +     .22967,    .12806,   8.06683,    .48338,    .29562,
     +     .19854,    .41727,    .50319 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
     +     .23281,    .12970,   8.17154,    .49490,    .30806,
     +     .21224,    .42940,    .51497,
     +     .23583,    .13128,   8.26418,    .50592,    .32008,
     +     .22558,    .44102,    .52626,
     +     .23867,    .13275,   8.34142,    .51606,    .33119,
     +     .23792,    .45171,    .53663,
     +     .24128,    .13409,   8.40159,    .52522,    .34122,
     +     .24903,    .46139,    .54601,
     +     .24389,    .13544,   8.45760,    .53431,    .35125,
     +     .26022,    .47099,    .55530,
     +     .24640,    .13671,   8.49921,    .54273,    .36056,
     +     .27055,    .47991,    .56393,
     +     .24879,    .13792,   8.53667,    .55069,    .36943,
     +     .28046,    .48835,    .57208,
     +     .25097,    .13903,   8.56108,    .55777,    .37732,
     +     .28925,    .49587,    .57933 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
     +     .25317,    .14014,   8.58379,    .56485,    .38526,
     +     .29814,    .50340,    .58658,
     +     .25529,    .14120,   8.59843,    .57150,    .39275,
     +     .30652,    .51048,    .59339,
     +     .25730,    .14220,   8.60851,    .57767,    .39974,
     +     .31435,    .51707,    .59971,
     +     .25920,    .14314,   8.61542,    .58339,    .40626,
     +     .32169,    .52320,    .60558,
     +     .26106,    .14406,   8.61534,    .58883,    .41249,
     +     .32869,    .52902,    .61117 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
     +     .17858,    .10041,    .98207,    .18567,    .00000,
     +     .00000,    .11004,    .20035,
     +     .18187,    .10241,   1.36693,    .19190,    .00000,
     +     .00000,    .11692,    .20699,
     +     .18687,    .10541,   1.89872,    .20215,    .01279,
     +     .00000,    .12815,    .21782,
     +     .19064,    .10763,   2.28962,    .21024,    .02340,
     +     .00000,    .13697,    .22635,
     +     .19462,    .10995,   2.67838,    .21934,    .03264,
     +     .00000,    .14682,    .23590,
     +     .19804,    .11193,   2.99546,    .22754,    .04109,
     +     .00000,    .15564,    .24448,
     +     .20134,    .11383,   3.29099,    .23565,    .04982,
     +     .00000,    .16437,    .25296,
     +     .20485,    .11583,   3.59370,    .24454,    .05950,
     +     .00000,    .17389,    .26222 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
     +     .20787,    .11755,   3.83938,    .25241,    .06782,
     +     .00000,    .18231,    .27041,
     +     .21079,    .11918,   4.06556,    .26010,    .07603,
     +     .00000,    .19053,    .27841,
     +     .21311,    .12047,   4.24100,    .26629,    .08277,
     +     .00000,    .19714,    .28485,
     +     .21798,    .12318,   4.59850,    .27958,    .09704,
     +     .00000,    .21130,    .29863,
     +     .22214,    .12546,   4.85492,    .29095,    .10927,
     +     .00718,    .22341,    .31042,
     +     .22676,    .12798,   5.11559,    .30366,    .12300,
     +     .02513,    .23695,    .32356,
     +     .23148,    .13052,   5.35892,    .31671,    .13718,
     +     .04145,    .25085,    .33707,
     +     .23570,    .13277,   5.55589,    .32835,    .14987,
     +     .05607,    .26325,    .34910 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
     +     .23990,    .13499,   5.73370,    .33986,    .16251,
     +     .07057,    .27553,    .36101,
     +     .24331,    .13678,   5.86388,    .34919,    .17272,
     +     .08214,    .28548,    .37064,
     +     .24736,    .13890,   6.00225,    .36015,    .18478,
     +     .09576,    .29718,    .38196,
     +     .25089,    .14073,   6.11083,    .36961,    .19525,
     +     .10767,    .30727,    .39172,
     +     .25407,    .14237,   6.19951,    .37806,    .20468,
     +     .11842,    .31633,    .40046,
     +     .25801,    .14438,   6.29199,    .38831,    .21609,
     +     .13130,    .32730,    .41102,
     +     .26164,    .14622,   6.36565,    .39759,    .22653,
     +     .14315,    .33727,    .42060,
     +     .26499,    .14790,   6.42519,    .40604,    .23612,
     +     .15411,    .34636,    .42932 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
     +     .26823,    .14951,   6.46879,    .41396,    .24511,
     +     .16429,    .35489,    .43749,
     +     .27135,    .15107,   6.50405,    .42146,    .25372,
     +     .17413,    .36300,    .44524,
     +     .27425,    .15249,   6.52970,    .42830,    .26161,
     +     .18316,    .37040,    .45229,
     +     .27691,    .15379,   6.54474,    .43436,    .26867,
     +     .19123,    .37699,    .45855,
     +     .27957,    .15508,   6.55672,    .44033,    .27567,
     +     .19928,    .38349,    .46472,
     +     .28208,    .15628,   6.55882,    .44578,    .28210,
     +     .20666,    .38944,    .47035,
     +     .28447,    .15743,   6.55947,    .45090,    .28818,
     +     .21370,    .39504,    .47562,
     +     .28665,    .15846,   6.55249,    .45535,    .29354,
     +     .21989,    .39994,    .48022 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
     +     .28883,    .15949,   6.54430,    .45978,    .29890,
     +     .22612,    .40481,    .48479,
     +     .29093,    .16047,   6.53089,    .46386,    .30390,
     +     .23194,    .40933,    .48901,
     +     .29290,    .16139,   6.51552,    .46761,    .30853,
     +     .23735,    .41350,    .49288,
     +     .29475,    .16225,   6.49930,    .47105,    .31282,
     +     .24239,    .41734,    .49644,
     +     .29657,    .16307,   6.47816,    .47425,    .31687,
     +     .24715,    .42094,    .49975 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
     +     .21207,    .12073,   1.16511,    .16984,    .00000,
     +     .00000,    .10070,    .18800,
     +     .21603,    .12311,   1.50237,    .17486,    .00000,
     +     .00000,    .10639,    .19354,
     +     .22196,    .12660,   1.95892,    .18321,    .00853,
     +     .00000,    .11574,    .20263,
     +     .22637,    .12914,   2.28047,    .18980,    .01773,
     +     .00000,    .12308,    .20975,
     +     .23099,    .13177,   2.59232,    .19718,    .02558,
     +     .00000,    .13123,    .21767,
     +     .23495,    .13399,   2.84033,    .20378,    .03271,
     +     .00000,    .13848,    .22471,
     +     .23874,    .13609,   3.06646,    .21029,    .04002,
     +     .00000,    .14562,    .23163,
     +     .24275,    .13830,   3.29318,    .21735,    .04805,
     +     .00000,    .15334,    .23912 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
     +     .24617,    .14017,   3.47303,    .22355,    .05489,
     +     .00000,    .16010,    .24568,
     +     .24943,    .14194,   3.63531,    .22955,    .06158,
     +     .00000,    .16665,    .25202,
     +     .25203,    .14333,   3.75928,    .23436,    .06703,
     +     .00000,    .17189,    .25709,
     +     .25743,    .14622,   4.00645,    .24456,    .07848,
     +     .00000,    .18299,    .26782,
     +     .26201,    .14861,   4.17870,    .25315,    .08814,
     +     .00291,    .19236,    .27684,
     +     .26703,    .15121,   4.34155,    .26260,    .09887,
     +     .01728,    .20267,    .28676,
     +     .27212,    .15382,   4.48666,    .27215,    .10977,
     +     .03017,    .21310,    .29676,
     +     .27663,    .15610,   4.59818,    .28054,    .11941,
     +     .04158,    .22227,    .30553 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
     +     .28106,    .15831,   4.69343,    .28872,    .12889,
     +     .05276,    .23124,    .31408,
     +     .28465,    .16009,   4.75880,    .29523,    .13647,
     +     .06159,    .23838,    .32088,
     +     .28887,    .16214,   4.82266,    .30275,    .14528,
     +     .07186,    .24669,    .32874,
     +     .29252,    .16391,   4.86848,    .30916,    .15286,
     +     .08077,    .25375,    .33542,
     +     .29578,    .16549,   4.90239,    .31481,    .15961,
     +     .08871,    .26000,    .34131,
     +     .29979,    .16738,   4.93076,    .32150,    .16767,
     +     .09814,    .26745,    .34828,
     +     .30345,    .16909,   4.94798,    .32746,    .17494,
     +     .10672,    .27411,    .35449,
     +     .30679,    .17065,   4.95756,    .33280,    .18154,
     +     .11457,    .28009,    .36005 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
     +     .31000,    .17211,   4.95612,    .33768,    .18765,
     +     .12178,    .28561,    .36514,
     +     .31306,    .17350,   4.94991,    .34224,    .19343,
     +     .12868,    .29079,    .36988,
     +     .31588,    .17476,   4.93908,    .34629,    .19867,
     +     .13495,    .29542,    .37411,
     +     .31844,    .17589,   4.92277,    .34981,    .20329,
     +     .14050,    .29947,    .37777,
     +     .32098,    .17700,   4.90460,    .35322,    .20783,
     +     .14600,    .30341,    .38131,
     +     .32336,    .17803,   4.88068,    .35624,    .21193,
     +     .15097,    .30695,    .38445,
     +     .32561,    .17900,   4.85745,    .35903,    .21579,
     +     .15569,    .31023,    .38737,
     +     .32763,    .17985,   4.83058,    .36139,    .21913,
     +     .15979,    .31303,    .38981 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
     +     .32965,    .18070,   4.80308,    .36370,    .22244,
     +     .16388,    .31580,    .39221,
     +     .33157,    .18150,   4.77282,    .36574,    .22549,
     +     .16768,    .31830,    .39434,
     +     .33336,    .18222,   4.74265,    .36758,    .22828,
     +     .17117,    .32055,    .39625,
     +     .33503,    .18290,   4.71325,    .36924,    .23084,
     +     .17440,    .32261,    .39797,
     +     .33664,    .18355,   4.68073,    .37070,    .23321,
     +     .17741,    .32446,    .39949 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
     +     .25809,    .14836,   1.41197,    .15033,    .00000,
     +     .00000,    .08863,    .17397,
     +     .26296,    .15117,   1.68179,    .15427,    .00000,
     +     .00000,    .09330,    .17855,
     +     .27012,    .15520,   2.04054,    .16081,    .00256,
     +     .00000,    .10095,    .18597,
     +     .27535,    .15804,   2.27607,    .16594,    .01040,
     +     .00000,    .10688,    .19170,
     +     .28072,    .16093,   2.49644,    .17161,    .01698,
     +     .00000,    .11338,    .19794,
     +     .28528,    .16333,   2.66520,    .17661,    .02284,
     +     .00000,    .11908,    .20341,
     +     .28959,    .16559,   2.81413,    .18148,    .02878,
     +     .00000,    .12462,    .20871,
     +     .29409,    .16792,   2.95860,    .18670,    .03521,
     +     .00000,    .13056,    .21436 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
     +     .29792,    .16985,   3.06883,    .19120,    .04060,
     +     .00000,    .13566,    .21921,
     +     .30153,    .17166,   3.16491,    .19551,    .04581,
     +     .00000,    .14057,    .22385,
     +     .30437,    .17308,   3.23643,    .19892,    .05002,
     +     .00000,    .14443,    .22751,
     +     .31024,    .17595,   3.37387,    .20602,    .05870,
     +     .00000,    .15250,    .23510,
     +     .31509,    .17828,   3.46472,    .21184,    .06590,
     +    -.00115,    .15915,    .24130,
     +     .32035,    .18075,   3.53574,    .21811,    .07374,
     +     .00973,    .16631,    .24795,
     +     .32559,    .18318,   3.59127,    .22428,    .08157,
     +     .01934,    .17340,    .25447,
     +     .33017,    .18526,   3.62695,    .22955,    .08835,
     +     .02770,    .17949,    .26004 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
     +     .33461,    .18724,   3.65088,    .23455,    .09489,
     +     .03576,    .18530,    .26531,
     +     .33815,    .18878,   3.66126,    .23843,    .10004,
     +     .04204,    .18986,    .26938,
     +     .34225,    .19055,   3.66395,    .24279,    .10593,
     +     .04924,    .19500,    .27395,
     +     .34575,    .19202,   3.65963,    .24638,    .11089,
     +     .05539,    .19928,    .27772,
     +     .34886,    .19330,   3.65067,    .24948,    .11526,
     +     .06082,    .20300,    .28095,
     +     .35257,    .19482,   3.63044,    .25300,    .12037,
     +     .06716,    .20729,    .28462,
     +     .35591,    .19616,   3.60618,    .25603,    .12489,
     +     .07283,    .21103,    .28776,
     +     .35894,    .19733,   3.58005,    .25865,    .12893,
     +     .07797,    .21430,    .29048 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
     +     .36176,    .19839,   3.54755,    .26092,    .13258,
     +     .08261,    .21721,    .29281,
     +     .36443,    .19937,   3.51365,    .26294,    .13597,
     +     .08698,    .21986,    .29489,
     +     .36685,    .20024,   3.47927,    .26465,    .13900,
     +     .09092,    .22216,    .29666,
     +     .36899,    .20099,   3.44387,    .26605,    .14161,
     +     .09434,    .22408,    .29807,
     +     .37111,    .20172,   3.40787,    .26736,    .14414,
     +     .09770,    .22591,    .29938,
     +     .37303,    .20234,   3.36946,    .26837,    .14636,
     +     .10069,    .22745,    .30042,
     +     .37483,    .20293,   3.33325,    .26929,    .14843,
     +     .10350,    .22885,    .30134,
     +     .37641,    .20340,   3.29667,    .26996,    .15016,
     +     .10589,    .22997,    .30199 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
     +     .37798,    .20387,   3.26007,    .27058,    .15187,
     +     .10827,    .23104,    .30260,
     +     .37943,    .20428,   3.22266,    .27103,    .15338,
     +     .11043,    .23194,    .30304,
     +     .38075,    .20466,   3.18670,    .27139,    .15475,
     +     .11240,    .23270,    .30336,
     +     .38197,    .20498,   3.15257,    .27166,    .15598,
     +     .11421,    .23336,    .30360,
     +     .38311,    .20526,   3.11689,    .27180,    .15708,
     +     .11586,    .23388,    .30369 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
     +     .29619,    .17083,   1.59616,    .13464,    .00000,
     +     .00000,    .07869,    .16287,
     +     .30184,    .17392,   1.80830,    .13803,    .00000,
     +     .00000,    .08288,    .16696,
     +     .31004,    .17824,   2.08848,    .14357,   -.00213,
     +     .00000,    .08959,    .17343,
     +     .31584,    .18122,   2.25842,    .14785,    .00489,
     +     .00000,    .09472,    .17829,
     +     .32175,    .18420,   2.41171,    .15249,    .01072,
     +     .00000,    .10024,    .18348,
     +     .32670,    .18663,   2.52435,    .15649,    .01582,
     +     .00000,    .10500,    .18793,
     +     .33133,    .18886,   2.62028,    .16032,    .02092,
     +     .00000,    .10956,    .19217,
     +     .33613,    .19114,   2.70980,    .16438,    .02636,
     +     .00000,    .11437,    .19662 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
     +     .34013,    .19301,   2.77472,    .16783,    .03086,
     +     .00000,    .11844,    .20036,
     +     .34389,    .19475,   2.82869,    .17107,    .03518,
     +     .00000,    .12229,    .20387,
     +     .34682,    .19607,   2.86750,    .17361,    .03861,
     +     .00000,    .12531,    .20661,
     +     .35281,    .19872,   2.93796,    .17880,    .04562,
     +     .00000,    .13150,    .21219,
     +     .35764,    .20080,   2.98062,    .18295,    .05133,
     +    -.00333,    .13649,    .21658,
     +     .36280,    .20297,   2.99913,    .18729,    .05745,
     +     .00540,    .14175,    .22116,
     +     .36786,    .20503,   3.00525,    .19143,    .06344,
     +     .01301,    .14684,    .22552,
     +     .37222,    .20673,   3.00055,    .19485,    .06856,
     +     .01955,    .15109,    .22910 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
     +     .37638,    .20831,   2.98757,    .19800,    .07342,
     +     .02577,    .15507,    .23238,
     +     .37962,    .20953,   2.97069,    .20036,    .07718,
     +     .03055,    .15811,    .23482,
     +     .38334,    .21085,   2.94380,    .20293,    .08142,
     +     .03598,    .16146,    .23744,
     +     .38644,    .21194,   2.91604,    .20496,    .08495,
     +     .04057,    .16418,    .23950,
     +     .38914,    .21284,   2.88776,    .20665,    .08800,
     +     .04457,    .16647,    .24118,
     +     .39233,    .21384,   2.84676,    .20843,    .09150,
     +     .04918,    .16903,    .24297,
     +     .39513,    .21469,   2.80554,    .20988,    .09456,
     +     .05327,    .17118,    .24438,
     +     .39760,    .21541,   2.76544,    .21106,    .09725,
     +     .05692,    .17300,    .24551 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
     +     .39987,    .21599,   2.72196,    .21195,    .09962,
     +     .06018,    .17452,    .24633,
     +     .40194,    .21650,   2.67876,    .21268,    .10179,
     +     .06321,    .17585,    .24698,
     +     .40379,    .21692,   2.63707,    .21321,    .10368,
     +     .06591,    .17695,    .24742,
     +     .40537,    .21725,   2.59647,    .21353,    .10529,
     +     .06823,    .17780,    .24764,
     +     .40688,    .21754,   2.55602,    .21379,    .10682,
     +     .07049,    .17857,    .24780,
     +     .40823,    .21774,   2.51484,    .21386,    .10812,
     +     .07246,    .17913,    .24773,
     +     .40946,    .21789,   2.47644,    .21388,    .10931,
     +     .07431,    .17962,    .24765,
     +     .41048,    .21798,   2.43909,    .21374,    .11029,
     +     .07586,    .17991,    .24739 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
     +     .41149,    .21805,   2.40207,    .21356,    .11123,
     +     .07738,    .18017,    .24709,
     +     .41235,    .21807,   2.36514,    .21328,    .11203,
     +     .07874,    .18030,    .24668,
     +     .41313,    .21806,   2.33016,    .21295,    .11273,
     +     .07997,    .18037,    .24623,
     +     .41383,    .21802,   2.29731,    .21261,    .11335,
     +     .08109,    .18040,    .24576,
     +     .41442,    .21792,   2.26372,    .21215,    .11387,
     +     .08209,    .18031,    .24517 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
     +     .36036,    .20671,   1.79975,    .11071,    .00000,
     +     .00000,    .06388,    .14718,
     +     .36708,    .20994,   1.91973,    .11354,    .00000,
     +     .00000,    .06758,    .15058,
     +     .37640,    .21426,   2.07997,    .11790,   -.00840,
     +     .00000,    .07325,    .15561,
     +     .38281,    .21705,   2.15632,    .12107,   -.00242,
     +     .00000,    .07735,    .15917,
     +     .38909,    .21976,   2.21754,    .12437,    .00249,
     +     .00000,    .08157,    .16276,
     +     .39422,    .22188,   2.25600,    .12711,    .00665,
     +     .00000,    .08509,    .16570,
     +     .39893,    .22375,   2.28414,    .12964,    .01069,
     +     .00000,    .08835,    .16839,
     +     .40369,    .22561,   2.30553,    .13221,    .01489,
     +     .00000,    .09169,    .17110 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
     +     .40758,    .22707,   2.31582,    .13431,    .01829,
     +     .00000,    .09446,    .17326,
     +     .41115,    .22835,   2.32029,    .13622,    .02148,
     +     .00000,    .09698,    .17521,
     +     .41390,    .22931,   2.32147,    .13765,    .02398,
     +     .00000,    .09892,    .17668,
     +     .41929,    .23113,   2.31703,    .14050,    .02897,
     +     .00000,    .10275,    .17950,
     +     .42345,    .23242,   2.30743,    .14262,    .03290,
     +    -.00524,    .10568,    .18151,
     +     .42773,    .23362,   2.27265,    .14468,    .03701,
     +     .00087,    .10865,    .18344,
     +     .43175,    .23466,   2.23075,    .14649,    .04090,
     +     .00609,    .11136,    .18506,
     +     .43504,    .23540,   2.18861,    .14783,    .04414,
     +     .01048,    .11352,    .18620 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
     +     .43804,    .23597,   2.14327,    .14892,    .04712,
     +     .01457,    .11541,    .18706,
     +     .44026,    .23633,   2.10363,    .14964,    .04938,
     +     .01766,    .11675,    .18756,
     +     .44264,    .23662,   2.05372,    .15028,    .05184,
     +     .02109,    .11813,    .18790,
     +     .44455,    .23675,   2.00892,    .15066,    .05384,
     +     .02394,    .11916,    .18802,
     +     .44612,    .23676,   1.96755,    .15088,    .05552,
     +     .02637,    .11996,    .18800,
     +     .44777,    .23666,   1.91399,    .15093,    .05739,
     +     .02914,    .12072,    .18770,
     +     .44907,    .23645,   1.86391,    .15082,    .05898,
     +     .03154,    .12125,    .18722,
     +     .45013,    .23619,   1.81762,    .15061,    .06032,
     +     .03363,    .12163,    .18666 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
     +     .45093,    .23577,   1.77098,    .15020,    .06145,
     +     .03546,    .12179,    .18592,
     +     .45157,    .23532,   1.72623,    .14972,    .06245,
     +     .03714,    .12186,    .18509,
     +     .45203,    .23481,   1.68453,    .14916,    .06329,
     +     .03860,    .12182,    .18420,
     +     .45229,    .23426,   1.64550,    .14855,    .06397,
     +     .03983,    .12168,    .18327,
     +     .45247,    .23367,   1.60733,    .14789,    .06459,
     +     .04101,    .12148,    .18229,
     +     .45245,    .23302,   1.56997,    .14713,    .06507,
     +     .04201,    .12116,    .18121,
     +     .45241,    .23239,   1.53552,    .14639,    .06550,
     +     .04293,    .12084,    .18015,
     +     .45219,    .23172,   1.50308,    .14562,    .06581,
     +     .04369,    .12044,    .17907 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
     +     .45193,    .23104,   1.47125,    .14484,    .06609,
     +     .04441,    .12001,    .17796,
     +     .45158,    .23031,   1.44024,    .14398,    .06630,
     +     .04505,    .11953,    .17681,
     +     .45119,    .22957,   1.41128,    .14314,    .06647,
     +     .04562,    .11904,    .17569,
     +     .45076,    .22887,   1.38438,    .14233,    .06660,
     +     .04612,    .11856,    .17461,
     +     .45021,    .22812,   1.35744,    .14146,    .06666,
     +     .04654,    .11800,    .17344 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
     +     .41360,    .23414,   1.85033,    .09270,    .00000,
     +     .00000,    .05327,    .13514,
     +     .42078,    .23712,   1.90314,    .09520,    .00000,
     +     .00000,    .05668,    .13782,
     +     .43045,    .24086,   1.97823,    .09879,   -.01159,
     +     .00000,    .06156,    .14158,
     +     .43673,    .24312,   1.99360,    .10125,   -.00639,
     +     .00000,    .06493,    .14403,
     +     .44281,    .24518,   1.99725,    .10367,   -.00211,
     +     .00000,    .06826,    .14636,
     +     .44760,    .24669,   1.99143,    .10556,    .00141,
     +     .00000,    .07093,    .14812,
     +     .45187,    .24795,   1.98055,    .10725,    .00474,
     +     .00000,    .07334,    .14965,
     +     .45607,    .24909,   1.96423,    .10888,    .00811,
     +     .00000,    .07571,    .15108 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
     +     .45938,    .24992,   1.94541,    .11015,    .01081,
     +     .00000,    .07759,    .15213,
     +     .46232,    .25059,   1.92440,    .11125,    .01329,
     +     .00000,    .07926,    .15301,
     +     .46453,    .25104,   1.90670,    .11206,    .01520,
     +     .00000,    .08051,    .15362,
     +     .46870,    .25174,   1.86629,    .11352,    .01894,
     +     .00000,    .08291,    .15462,
     +     .47166,    .25202,   1.83264,    .11447,    .02183,
     +    -.00558,    .08465,    .15512,
     +     .47448,    .25209,   1.77624,    .11526,    .02478,
     +    -.00109,    .08629,    .15540,
     +     .47690,    .25192,   1.71666,    .11580,    .02750,
     +     .00271,    .08766,    .15536,
     +     .47867,    .25158,   1.66226,    .11606,    .02970,
     +     .00584,    .08865,    .15507 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
     +     .48010,    .25106,   1.60762,    .11613,    .03169,
     +     .00871,    .08944,    .15458,
     +     .48098,    .25051,   1.56250,    .11604,    .03314,
     +     .01084,    .08992,    .15399,
     +     .48171,    .24968,   1.50840,    .11575,    .03471,
     +     .01318,    .09029,    .15314,
     +     .48210,    .24884,   1.46162,    .11537,    .03596,
     +     .01510,    .09048,    .15224,
     +     .48226,    .24799,   1.41970,    .11495,    .03697,
     +     .01671,    .09058,    .15130,
     +     .48213,    .24677,   1.36742,    .11424,    .03807,
     +     .01851,    .09050,    .14996,
     +     .48175,    .24554,   1.31987,    .11348,    .03897,
     +     .02005,    .09031,    .14860,
     +     .48121,    .24433,   1.27683,    .11271,    .03970,
     +     .02137,    .09003,    .14727 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
     +     .48041,    .24298,   1.23473,    .11181,    .04029,
     +     .02251,    .08964,    .14580,
     +     .47947,    .24161,   1.19499,    .11088,    .04079,
     +     .02354,    .08919,    .14433,
     +     .47846,    .24026,   1.15861,    .10994,    .04119,
     +     .02441,    .08870,    .14290,
     +     .47731,    .23892,   1.12520,    .10901,    .04148,
     +     .02513,    .08816,    .14148,
     +     .47609,    .23757,   1.09284,    .10806,    .04175,
     +     .02582,    .08761,    .14006,
     +     .47471,    .23616,   1.06177,    .10706,    .04192,
     +     .02639,    .08698,    .13858,
     +     .47336,    .23482,   1.03328,    .10612,    .04206,
     +     .02691,    .08639,    .13720,
     +     .47192,    .23349,   1.00694,    .10516,    .04213,
     +     .02731,    .08577,    .13583 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
     +     .47046,    .23216,    .98125,    .10421,    .04219,
     +     .02771,    .08515,    .13446,
     +     .46890,    .23080,    .95652,    .10324,    .04219,
     +     .02803,    .08449,    .13307,
     +     .46735,    .22948,    .93361,    .10231,    .04218,
     +     .02832,    .08385,    .13175,
     +     .46585,    .22822,    .91250,    .10142,    .04215,
     +     .02857,    .08323,    .13049,
     +     .46423,    .22691,    .89158,    .10049,    .04208,
     +     .02877,    .08257,    .12919 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
     +     .45939,    .25569,   1.80046,    .07893,    .00000,
     +     .00000,    .04560,    .12494,
     +     .46663,    .25810,   1.80562,    .08111,    .00000,
     +     .00000,    .04863,    .12691,
     +     .47589,    .26091,   1.82124,    .08402,   -.01276,
     +     .00000,    .05278,    .12936,
     +     .48167,    .26240,   1.79756,    .08590,   -.00824,
     +     .00000,    .05548,    .13082,
     +     .48699,    .26356,   1.76599,    .08761,   -.00452,
     +     .00000,    .05807,    .13202,
     +     .49102,    .26428,   1.73409,    .08888,   -.00153,
     +     .00000,    .06005,    .13282,
     +     .49445,    .26477,   1.70119,    .08995,    .00123,
     +     .00000,    .06178,    .13340,
     +     .49768,    .26509,   1.66443,    .09093,    .00399,
     +     .00000,    .06342,    .13382 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
     +     .50008,    .26518,   1.63052,    .09164,    .00617,
     +     .00000,    .06468,    .13399,
     +     .50210,    .26511,   1.59687,    .09218,    .00814,
     +     .00000,    .06577,    .13405,
     +     .50356,    .26499,   1.57018,    .09255,    .00963,
     +     .00000,    .06655,    .13403,
     +     .50603,    .26445,   1.51345,    .09311,    .01253,
     +     .00000,    .06795,    .13375,
     +     .50743,    .26367,   1.46970,    .09335,    .01471,
     +    -.00530,    .06886,    .13322,
     +     .50844,    .26256,   1.40655,    .09340,    .01689,
     +    -.00191,    .06965,    .13238,
     +     .50895,    .26116,   1.34284,    .09321,    .01886,
     +     .00093,    .07022,    .13130,
     +     .50896,    .25970,   1.28685,    .09286,    .02042,
     +     .00323,    .07052,    .13014 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
     +     .50857,    .25810,   1.23233,    .09237,    .02182,
     +     .00532,    .07065,    .12882,
     +     .50794,    .25666,   1.18854,    .09185,    .02282,
     +     .00685,    .07063,    .12763,
     +     .50683,    .25477,   1.13730,    .09111,    .02386,
     +     .00852,    .07047,    .12607,
     +     .50560,    .25300,   1.09389,    .09038,    .02467,
     +     .00986,    .07023,    .12460,
     +     .50429,    .25134,   1.05564,    .08963,    .02532,
     +     .01098,    .06993,    .12321,
     +     .50225,    .24911,   1.00888,    .08861,    .02600,
     +     .01221,    .06945,    .12136,
     +     .50012,    .24692,    .96705,    .08758,    .02654,
     +     .01324,    .06892,    .11958,
     +     .49800,    .24482,    .92971,    .08656,    .02698,
     +     .01413,    .06836,    .11788 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
     +     .49558,    .24264,    .89378,    .08550,    .02730,
     +     .01488,    .06772,    .11614,
     +     .49309,    .24048,    .86026,    .08442,    .02756,
     +     .01554,    .06706,    .11440,
     +     .49061,    .23839,    .82990,    .08339,    .02775,
     +     .01610,    .06641,    .11275,
     +     .48811,    .23639,    .80236,    .08238,    .02787,
     +     .01655,    .06575,    .11117,
     +     .48555,    .23438,    .77586,    .08136,    .02797,
     +     .01698,    .06507,    .10959,
     +     .48285,    .23234,    .75071,    .08034,    .02802,
     +     .01733,    .06437,    .10802,
     +     .48028,    .23041,    .72780,    .07936,    .02805,
     +     .01764,    .06371,    .10654,
     +     .47771,    .22854,    .70682,    .07842,    .02803,
     +     .01788,    .06304,    .10511 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
     +     .47511,    .22667,    .68645,    .07748,    .02801,
     +     .01811,    .06237,    .10370,
     +     .47244,    .22480,    .66701,    .07654,    .02794,
     +     .01829,    .06170,    .10230,
     +     .46985,    .22301,    .64910,    .07565,    .02788,
     +     .01844,    .06104,    .10096,
     +     .46737,    .22132,    .63266,    .07479,    .02780,
     +     .01858,    .06043,    .09972,
     +     .46479,    .21955,    .61651,    .07391,    .02770,
     +     .01867,    .05978,    .09845 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
     +     .50783,    .27546,   1.65703,    .06573,    .00000,
     +     .00000,    .03842,    .11288,
     +     .51430,    .27689,   1.62392,    .06751,    .00000,
     +     .00000,    .04095,    .11387,
     +     .52207,    .27807,   1.59187,    .06967,   -.01256,
     +     .00000,    .04419,    .11483,
     +     .52645,    .27838,   1.54037,    .07097,   -.00880,
     +     .00000,    .04620,    .11515,
     +     .53020,    .27826,   1.48495,    .07204,   -.00569,
     +     .00000,    .04800,    .11523,
     +     .53276,    .27786,   1.43643,    .07275,   -.00326,
     +     .00000,    .04932,    .11507,
     +     .53471,    .27726,   1.39032,    .07327,   -.00107,
     +     .00000,    .05040,    .11476,
     +     .53632,    .27644,   1.34206,    .07368,    .00109,
     +     .00000,    .05140,    .11427 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
     +     .53727,    .27552,   1.30044,    .07387,    .00277,
     +     .00000,    .05211,    .11373,
     +     .53785,    .27453,   1.26093,    .07398,    .00426,
     +     .00000,    .05267,    .11309,
     +     .53813,    .27368,   1.23044,    .07400,    .00539,
     +     .00000,    .05305,    .11253,
     +     .53810,    .27157,   1.16783,    .07389,    .00752,
     +     .00000,    .05364,    .11118,
     +     .53728,    .26947,   1.12111,    .07359,    .00910,
     +    -.00455,    .05394,    .10985,
     +     .53582,    .26691,   1.05931,    .07309,    .01063,
     +    -.00213,    .05408,    .10822,
     +     .53373,    .26406,    .99892,    .07240,    .01200,
     +    -.00011,    .05403,    .10640,
     +     .53138,    .26136,    .94730,    .07166,    .01306,
     +     .00150,    .05383,    .10463 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
     +     .52863,    .25853,    .89818,    .07084,    .01398,
     +     .00294,    .05352,    .10275,
     +     .52609,    .25607,    .85954,    .07009,    .01463,
     +     .00399,    .05320,    .10117,
     +     .52267,    .25299,    .81523,    .06908,    .01530,
     +     .00511,    .05269,    .09922,
     +     .51943,    .25023,    .77827,    .06815,    .01581,
     +     .00601,    .05220,    .09747,
     +     .51630,    .24767,    .74617,    .06728,    .01619,
     +     .00673,    .05170,    .09586,
     +     .51203,    .24435,    .70758,    .06611,    .01660,
     +     .00753,    .05099,    .09379,
     +     .50784,    .24118,    .67355,    .06499,    .01690,
     +     .00820,    .05029,    .09183,
     +     .50379,    .23820,    .64354,    .06392,    .01712,
     +     .00875,    .04960,    .09003 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
     +     .49950,    .23517,    .61505,    .06283,    .01728,
     +     .00922,    .04889,    .08817,
     +     .49523,    .23221,    .58875,    .06176,    .01740,
     +     .00963,    .04817,    .08640,
     +     .49110,    .22941,    .56517,    .06073,    .01748,
     +     .00996,    .04747,    .08474,
     +     .48707,    .22675,    .54400,    .05977,    .01751,
     +     .01023,    .04680,    .08317,
     +     .48303,    .22409,    .52377,    .05881,    .01753,
     +     .01048,    .04612,    .08162,
     +     .47892,    .22142,    .50476,    .05785,    .01751,
     +     .01068,    .04543,    .08012,
     +     .47505,    .21891,    .48753,    .05695,    .01749,
     +     .01085,    .04478,    .07872,
     +     .47123,    .21654,    .47189,    .05609,    .01744,
     +     .01098,    .04415,    .07738 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
     +     .46739,    .21417,    .45675,    .05524,    .01739,
     +     .01110,    .04354,    .07605,
     +     .46356,    .21183,    .44241,    .05439,    .01731,
     +     .01120,    .04293,    .07476,
     +     .45990,    .20959,    .42928,    .05360,    .01723,
     +     .01127,    .04234,    .07352,
     +     .45640,    .20749,    .41727,    .05285,    .01715,
     +     .01134,    .04179,    .07239,
     +     .45278,    .20535,    .40556,    .05211,    .01705,
     +     .01138,    .04122,    .07122 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
     +     .54817,    .28901,   1.46660,    .05581,    .00000,
     +     .00000,    .03303,    .10115,
     +     .55323,    .28911,   1.41242,    .05711,    .00000,
     +     .00000,    .03504,    .10126,
     +     .55861,    .28843,   1.35395,    .05859,   -.01138,
     +     .00000,    .03747,    .10093,
     +     .56110,    .28736,   1.29011,    .05933,   -.00829,
     +     .00000,    .03885,    .10044,
     +     .56281,    .28580,   1.22529,    .05986,   -.00575,
     +     .00000,    .04006,    .09966,
     +     .56349,    .28423,   1.17132,    .06013,   -.00379,
     +     .00000,    .04086,    .09878,
     +     .56363,    .28252,   1.12162,    .06026,   -.00206,
     +     .00000,    .04148,    .09783,
     +     .56329,    .28053,   1.07111,    .06026,   -.00038,
     +     .00000,    .04198,    .09673 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
     +     .56254,    .27864,   1.02882,    .06015,    .00092,
     +     .00000,    .04230,    .09569,
     +     .56149,    .27670,    .98959,    .05996,    .00205,
     +     .00000,    .04250,    .09462,
     +     .56049,    .27510,    .95972,    .05976,    .00290,
     +     .00000,    .04262,    .09376,
     +     .55766,    .27154,    .89969,    .05923,    .00448,
     +     .00000,    .04271,    .09180,
     +     .55448,    .26821,    .85556,    .05861,    .00563,
     +    -.00373,    .04261,    .09003,
     +     .55041,    .26436,    .80013,    .05781,    .00674,
     +    -.00197,    .04237,    .08799,
     +     .54566,    .26022,    .74700,    .05689,    .00771,
     +    -.00052,    .04198,    .08579,
     +     .54097,    .25638,    .70244,    .05597,    .00845,
     +     .00062,    .04155,    .08378 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
     +     .53592,    .25245,    .66071,    .05500,    .00907,
     +     .00162,    .04104,    .08173,
     +     .53148,    .24917,    .62834,    .05415,    .00951,
     +     .00235,    .04054,    .08005,
     +     .52589,    .24511,    .59170,    .05307,    .00995,
     +     .00313,    .03990,    .07800,
     +     .52077,    .24151,    .56154,    .05209,    .01027,
     +     .00373,    .03930,    .07620,
     +     .51594,    .23823,    .53555,    .05120,    .01052,
     +     .00422,    .03874,    .07458,
     +     .50958,    .23402,    .50470,    .05006,    .01076,
     +     .00475,    .03799,    .07251,
     +     .50349,    .23009,    .47779,    .04897,    .01094,
     +     .00520,    .03726,    .07060,
     +     .49775,    .22641,    .45427,    .04795,    .01107,
     +     .00556,    .03658,    .06885 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
     +     .49181,    .22275,    .43218,    .04692,    .01115,
     +     .00586,    .03587,    .06713,
     +     .48597,    .21918,    .41192,    .04595,    .01121,
     +     .00612,    .03517,    .06547,
     +     .48040,    .21585,    .39385,    .04503,    .01123,
     +     .00633,    .03453,    .06391,
     +     .47508,    .21269,    .37778,    .04417,    .01124,
     +     .00650,    .03391,    .06248,
     +     .46978,    .20957,    .36250,    .04331,    .01123,
     +     .00665,    .03329,    .06107,
     +     .46444,    .20649,    .34823,    .04245,    .01120,
     +     .00677,    .03267,    .05972,
     +     .45943,    .20363,    .33532,    .04167,    .01116,
     +     .00687,    .03209,    .05846,
     +     .45461,    .20090,    .32370,    .04093,    .01111,
     +     .00695,    .03155,    .05728 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
     +     .44981,    .19819,    .31252,    .04020,    .01106,
     +     .00702,    .03102,    .05610,
     +     .44502,    .19553,    .30197,    .03948,    .01099,
     +     .00707,    .03049,    .05496,
     +     .44047,    .19302,    .29232,    .03880,    .01092,
     +     .00711,    .02998,    .05391,
     +     .43618,    .19065,    .28355,    .03817,    .01085,
     +     .00714,    .02950,    .05292,
     +     .43180,    .18826,    .27504,    .03751,    .01077,
     +     .00716,    .02903,    .05195 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
     +     .58112,    .29709,   1.26025,    .04808,    .00000,
     +     .00000,    .02876,    .08961,
     +     .58411,    .29587,   1.19698,    .04898,    .00000,
     +     .00000,    .03021,    .08890,
     +     .58635,    .29324,   1.12665,    .04985,   -.00979,
     +     .00000,    .03184,    .08759,
     +     .58655,    .29078,   1.06021,    .05018,   -.00731,
     +     .00000,    .03276,    .08637,
     +     .58573,    .28785,    .99486,    .05030,   -.00526,
     +     .00000,    .03342,    .08496,
     +     .58430,    .28511,    .94184,    .05023,   -.00370,
     +     .00000,    .03383,    .08363,
     +     .58242,    .28231,    .89400,    .05006,   -.00235,
     +     .00000,    .03408,    .08231,
     +     .57996,    .27921,    .84619,    .04978,   -.00104,
     +     .00000,    .03424,    .08085 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
     +     .57739,    .27640,    .80694,    .04944,   -.00005,
     +     .00000,    .03428,    .07953,
     +     .57457,    .27361,    .77106,    .04907,    .00082,
     +     .00000,    .03424,    .07823,
     +     .57220,    .27137,    .74401,    .04874,    .00145,
     +     .00000,    .03419,    .07718,
     +     .56655,    .26644,    .69030,    .04796,    .00263,
     +     .00000,    .03393,    .07495,
     +     .56098,    .26205,    .65136,    .04720,    .00348,
     +    -.00298,    .03362,    .07297,
     +     .55436,    .25705,    .60399,    .04624,    .00428,
     +    -.00170,    .03317,    .07079,
     +     .54704,    .25182,    .55927,    .04522,    .00498,
     +    -.00065,    .03263,    .06852,
     +     .54010,    .24706,    .52226,    .04424,    .00551,
     +     .00017,    .03208,    .06648 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
     +     .53291,    .24223,    .48804,    .04321,    .00594,
     +     .00089,    .03146,    .06446,
     +     .52679,    .23822,    .46180,    .04233,    .00624,
     +     .00139,    .03094,    .06284,
     +     .51912,    .23341,    .43233,    .04129,    .00654,
     +     .00193,    .03028,    .06086,
     +     .51227,    .22918,    .40828,    .04038,    .00676,
     +     .00235,    .02968,    .05914,
     +     .50595,    .22534,    .38771,    .03954,    .00692,
     +     .00270,    .02912,    .05760,
     +     .49778,    .22048,    .36358,    .03845,    .00708,
     +     .00306,    .02840,    .05570,
     +     .49005,    .21598,    .34266,    .03746,    .00719,
     +     .00336,    .02771,    .05396,
     +     .48282,    .21184,    .32445,    .03656,    .00726,
     +     .00360,    .02707,    .05238 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
     +     .47551,    .20768,    .30754,    .03562,    .00731,
     +     .00380,    .02644,    .05084,
     +     .46839,    .20370,    .29209,    .03474,    .00733,
     +     .00397,    .02582,    .04938,
     +     .46165,    .19998,    .27840,    .03393,    .00734,
     +     .00411,    .02525,    .04801,
     +     .45529,    .19651,    .26630,    .03316,    .00734,
     +     .00422,    .02471,    .04676,
     +     .44899,    .19309,    .25483,    .03241,    .00732,
     +     .00431,    .02417,    .04555,
     +     .44270,    .18974,    .24417,    .03168,    .00729,
     +     .00439,    .02365,    .04438,
     +     .43683,    .18663,    .23457,    .03101,    .00725,
     +     .00445,    .02317,    .04331,
     +     .43122,    .18369,    .22596,    .03038,    .00721,
     +     .00450,    .02270,    .04231 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
     +     .42566,    .18077,    .21769,    .02976,    .00717,
     +     .00454,    .02226,    .04133,
     +     .42018,    .17793,    .20993,    .02915,    .00711,
     +     .00456,    .02182,    .04037,
     +     .41498,    .17525,    .20286,    .02857,    .00706,
     +     .00459,    .02141,    .03948,
     +     .41010,    .17274,    .19644,    .02804,    .00701,
     +     .00461,    .02102,    .03866,
     +     .40514,    .17022,    .19022,    .02751,    .00694,
     +     .00461,    .02063,    .03785 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
     +     .60682,    .30064,   1.05689,    .04197,    .00000,
     +     .00000,    .02509,    .07811,
     +     .60732,    .29802,    .99231,    .04247,    .00000,
     +     .00000,    .02606,    .07683,
     +     .60600,    .29333,    .91976,    .04274,   -.00813,
     +     .00000,    .02706,    .07480,
     +     .60359,    .28952,    .85652,    .04271,   -.00616,
     +     .00000,    .02755,    .07321,
     +     .60011,    .28525,    .79549,    .04249,   -.00454,
     +     .00000,    .02784,    .07147,
     +     .59642,    .28139,    .74699,    .04216,   -.00332,
     +     .00000,    .02794,    .06990,
     +     .59242,    .27759,    .70373,    .04180,   -.00227,
     +     .00000,    .02797,    .06835,
     +     .58773,    .27346,    .66116,    .04133,   -.00127,
     +     .00000,    .02790,    .06670 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
     +     .58332,    .26979,    .62664,    .04084,   -.00052,
     +     .00000,    .02777,    .06527,
     +     .57877,    .26622,    .59542,    .04034,    .00014,
     +     .00000,    .02759,    .06390,
     +     .57503,    .26340,    .57206,    .03992,    .00061,
     +     .00000,    .02741,    .06282,
     +     .56657,    .25732,    .52618,    .03899,    .00150,
     +     .00000,    .02701,    .06049,
     +     .55875,    .25200,    .49319,    .03811,    .00213,
     +    -.00233,    .02657,    .05855,
     +     .54970,    .24606,    .45404,    .03713,    .00272,
     +    -.00140,    .02603,    .05641,
     +     .54000,    .23993,    .41751,    .03607,    .00322,
     +    -.00064,    .02541,    .05422,
     +     .53103,    .23441,    .38759,    .03509,    .00359,
     +    -.00006,    .02482,    .05231 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
     +     .52187,    .22890,    .36015,    .03411,    .00390,
     +     .00046,    .02423,    .05042,
     +     .51416,    .22439,    .33929,    .03329,    .00412,
     +     .00083,    .02371,    .04891,
     +     .50477,    .21897,    .31610,    .03230,    .00432,
     +     .00120,    .02307,    .04712,
     +     .49645,    .21428,    .29730,    .03144,    .00447,
     +     .00150,    .02250,    .04559,
     +     .48883,    .21005,    .28136,    .03068,    .00457,
     +     .00173,    .02199,    .04420,
     +     .47915,    .20471,    .26267,    .02969,    .00468,
     +     .00199,    .02133,    .04254,
     +     .47007,    .19981,    .24663,    .02879,    .00476,
     +     .00220,    .02073,    .04104,
     +     .46165,    .19534,    .23278,    .02798,    .00480,
     +     .00235,    .02017,    .03966 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
     +     .45323,    .19089,    .21992,    .02717,    .00483,
     +     .00249,    .01962,    .03834,
     +     .44508,    .18666,    .20826,    .02640,    .00484,
     +     .00261,    .01909,    .03708,
     +     .43745,    .18272,    .19799,    .02569,    .00484,
     +     .00270,    .01861,    .03591,
     +     .43027,    .17907,    .18894,    .02504,    .00483,
     +     .00277,    .01814,    .03487,
     +     .42319,    .17546,    .18036,    .02441,    .00481,
     +     .00283,    .01769,    .03386,
     +     .41621,    .17197,    .17246,    .02378,    .00479,
     +     .00289,    .01726,    .03289,
     +     .40971,    .16875,    .16537,    .02321,    .00476,
     +     .00292,    .01685,    .03199,
     +     .40354,    .16571,    .15902,    .02268,    .00473,
     +     .00295,    .01648,    .03117 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
     +     .39743,    .16272,    .15294,    .02217,    .00469,
     +     .00297,    .01610,    .03035,
     +     .39143,    .15981,    .14725,    .02165,    .00466,
     +     .00300,    .01574,    .02958,
     +     .38580,    .15707,    .14207,    .02117,    .00461,
     +     .00300,    .01540,    .02888,
     +     .38051,    .15452,    .13738,    .02072,    .00457,
     +     .00301,    .01509,    .02821,
     +     .37518,    .15196,    .13285,    .02029,    .00453,
     +     .00301,    .01478,    .02755 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
     +     .62563,    .30006,    .86708,    .03683,    .00000,
     +     .00000,    .02185,    .06706,
     +     .62348,    .29592,    .80613,    .03684,    .00000,
     +     .00000,    .02244,    .06549,
     +     .61823,    .28928,    .73734,    .03663,   -.00658,
     +     .00000,    .02295,    .06303,
     +     .61302,    .28423,    .68042,    .03635,   -.00505,
     +     .00000,    .02312,    .06122,
     +     .60679,    .27864,    .62642,    .03587,   -.00378,
     +     .00000,    .02314,    .05929,
     +     .60076,    .27380,    .58404,    .03538,   -.00284,
     +     .00000,    .02306,    .05763,
     +     .59461,    .26911,    .54672,    .03485,   -.00202,
     +     .00000,    .02291,    .05602,
     +     .58775,    .26410,    .51030,    .03423,   -.00126,
     +     .00000,    .02271,    .05435 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
     +     .58146,    .25975,    .48113,    .03367,   -.00069,
     +     .00000,    .02246,    .05293,
     +     .57522,    .25553,    .45493,    .03311,   -.00020,
     +     .00000,    .02221,    .05156,
     +     .57019,    .25221,    .43547,    .03265,    .00015,
     +     .00000,    .02199,    .05052,
     +     .55910,    .24515,    .39764,    .03167,    .00081,
     +     .00000,    .02144,    .04831,
     +     .54919,    .23909,    .37044,    .03079,    .00127,
     +    -.00181,    .02096,    .04647,
     +     .53793,    .23241,    .33888,    .02979,    .00170,
     +    -.00113,    .02041,    .04450,
     +     .52609,    .22559,    .30973,    .02876,    .00207,
     +    -.00057,    .01979,    .04250,
     +     .51531,    .21952,    .28608,    .02784,    .00234,
     +    -.00015,    .01922,    .04078 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
     +     .50447,    .21352,    .26460,    .02690,    .00256,
     +     .00021,    .01864,    .03911,
     +     .49544,    .20867,    .24836,    .02616,    .00271,
     +     .00048,    .01816,    .03774,
     +     .48455,    .20284,    .23038,    .02525,    .00286,
     +     .00074,    .01757,    .03620,
     +     .47502,    .19783,    .21590,    .02448,    .00297,
     +     .00096,    .01708,    .03487,
     +     .46636,    .19334,    .20368,    .02381,    .00304,
     +     .00112,    .01664,    .03368,
     +     .45540,    .18777,    .18950,    .02295,    .00311,
     +     .00130,    .01605,    .03225,
     +     .44526,    .18265,    .17734,    .02217,    .00316,
     +     .00144,    .01553,    .03098,
     +     .43595,    .17798,    .16689,    .02145,    .00319,
     +     .00155,    .01506,    .02981 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
     +     .42667,    .17338,    .15729,    .02075,    .00320,
     +     .00165,    .01459,    .02871,
     +     .41777,    .16901,    .14858,    .02009,    .00321,
     +     .00173,    .01415,    .02768,
     +     .40947,    .16499,    .14092,    .01949,    .00321,
     +     .00179,    .01374,    .02673,
     +     .40172,    .16127,    .13420,    .01894,    .00320,
     +     .00184,    .01335,    .02588,
     +     .39410,    .15763,    .12788,    .01839,    .00319,
     +     .00188,    .01298,    .02507,
     +     .38664,    .15412,    .12204,    .01789,    .00317,
     +     .00192,    .01263,    .02426,
     +     .37970,    .15086,    .11683,    .01741,    .00315,
     +     .00194,    .01232,    .02353,
     +     .37317,    .14782,    .11218,    .01696,    .00313,
     +     .00196,    .01200,    .02285 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
     +     .36673,    .14483,    .10772,    .01652,    .00310,
     +     .00198,    .01170,    .02221,
     +     .36043,    .14194,    .10355,    .01613,    .00307,
     +     .00199,    .01141,    .02158,
     +     .35450,    .13924,    .09978,    .01575,    .00304,
     +     .00199,    .01115,    .02098,
     +     .34896,    .13672,    .09637,    .01541,    .00302,
     +     .00199,    .01091,    .02043,
     +     .34342,    .13421,    .09307,    .01505,    .00298,
     +     .00199,    .01065,    .01992 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
     +     .63796,    .29564,    .69626,    .03204,    .00000,
     +     .00000,    .01904,    .05684,
     +     .63280,    .29019,    .64176,    .03186,    .00000,
     +     .00000,    .01929,    .05502,
     +     .62332,    .28184,    .58016,    .03136,   -.00523,
     +     .00000,    .01936,    .05238,
     +     .61530,    .27566,    .53123,    .03086,   -.00405,
     +     .00000,    .01930,    .05046,
     +     .60622,    .26903,    .48521,    .03023,   -.00306,
     +     .00000,    .01914,    .04850,
     +     .59789,    .26334,    .44961,    .02964,   -.00235,
     +     .00000,    .01890,    .04684,
     +     .58965,    .25788,    .41850,    .02904,   -.00172,
     +     .00000,    .01865,    .04529,
     +     .58069,    .25215,    .38840,    .02838,   -.00115,
     +     .00000,    .01834,    .04369 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
     +     .57268,    .24719,    .36444,    .02779,   -.00072,
     +     .00000,    .01805,    .04234,
     +     .56483,    .24245,    .34317,    .02720,   -.00036,
     +     .00000,    .01773,    .04106,
     +     .55860,    .23877,    .32741,    .02676,   -.00008,
     +     .00000,    .01746,    .04008,
     +     .54511,    .23100,    .29697,    .02577,    .00041,
     +     .00000,    .01693,    .03803,
     +     .53333,    .22435,    .27527,    .02490,    .00074,
     +    -.00139,    .01644,    .03642,
     +     .52013,    .21715,    .25041,    .02397,    .00107,
     +    -.00089,    .01586,    .03465,
     +     .50644,    .20985,    .22764,    .02301,    .00133,
     +    -.00049,    .01530,    .03291,
     +     .49414,    .20342,    .20931,    .02216,    .00152,
     +    -.00019,    .01478,    .03140 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
     +     .48187,    .19712,    .19274,    .02133,    .00169,
     +     .00008,    .01426,    .02995,
     +     .47181,    .19200,    .18030,    .02066,    .00179,
     +     .00027,    .01384,    .02881,
     +     .45975,    .18597,    .16664,    .01984,    .00189,
     +     .00046,    .01333,    .02748,
     +     .44927,    .18080,    .15568,    .01914,    .00197,
     +     .00061,    .01289,    .02637,
     +     .43983,    .17617,    .14648,    .01853,    .00203,
     +     .00073,    .01249,    .02541,
     +     .42796,    .17046,    .13585,    .01777,    .00208,
     +     .00085,    .01201,    .02423,
     +     .41706,    .16527,    .12676,    .01712,    .00211,
     +     .00095,    .01157,    .02317,
     +     .40706,    .16057,    .11900,    .01653,    .00213,
     +     .00104,    .01117,    .02222 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
     +     .39722,    .15596,    .11188,    .01594,    .00214,
     +     .00110,    .01080,    .02129,
     +     .38783,    .15159,    .10546,    .01538,    .00215,
     +     .00115,    .01045,    .02044,
     +     .37912,    .14757,    .09986,    .01486,    .00214,
     +     .00119,    .01011,    .01967,
     +     .37102,    .14390,    .09493,    .01440,    .00214,
     +     .00123,    .00979,    .01899,
     +     .36307,    .14030,    .09031,    .01395,    .00212,
     +     .00125,    .00948,    .01835,
     +     .35532,    .13686,    .08605,    .01351,    .00212,
     +     .00128,    .00921,    .01770,
     +     .34816,    .13369,    .08224,    .01312,    .00210,
     +     .00130,    .00894,    .01713,
     +     .34147,    .13071,    .07886,    .01276,    .00208,
     +     .00131,    .00870,    .01661 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
     +     .33488,    .12779,    .07564,    .01240,    .00207,
     +     .00132,    .00847,    .01610,
     +     .32845,    .12496,    .07263,    .01206,    .00204,
     +     .00132,    .00824,    .01561,
     +     .32243,    .12233,    .06991,    .01175,    .00202,
     +     .00132,    .00802,    .01516,
     +     .31681,    .11991,    .06744,    .01147,    .00201,
     +     .00133,    .00783,    .01474,
     +     .31118,    .11747,    .06508,    .01118,    .00199,
     +     .00133,    .00763,    .01434 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
     +     .64286,    .28898,    .54704,    .02865,    .00000,
     +     .00000,    .01593,    .04680,
     +     .63473,    .28228,    .50026,    .02815,    .00000,
     +     .00000,    .01594,    .04503,
     +     .62127,    .27227,    .44742,    .02728,   -.00410,
     +     .00000,    .01586,    .04243,
     +     .61064,    .26496,    .40659,    .02653,   -.00319,
     +     .00000,    .01567,    .04071,
     +     .59888,    .25742,    .36870,    .02576,   -.00244,
     +     .00000,    .01541,    .03887,
     +     .58850,    .25090,    .33963,    .02505,   -.00188,
     +     .00000,    .01513,    .03738,
     +     .57834,    .24482,    .31443,    .02438,   -.00141,
     +     .00000,    .01484,    .03598,
     +     .56744,    .23849,    .29024,    .02369,   -.00099,
     +     .00000,    .01450,    .03453 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
     +     .55794,    .23305,    .27121,    .02306,   -.00067,
     +     .00000,    .01422,    .03327,
     +     .54872,    .22789,    .25430,    .02247,   -.00039,
     +     .00000,    .01393,    .03214,
     +     .54144,    .22386,    .24187,    .02199,   -.00019,
     +     .00000,    .01369,    .03129,
     +     .52586,    .21550,    .21803,    .02102,    .00017,
     +     .00000,    .01317,    .02956,
     +     .51244,    .20852,    .20119,    .02021,    .00042,
     +    -.00105,    .01272,    .02812,
     +     .49766,    .20095,    .18208,    .01931,    .00065,
     +    -.00070,    .01223,    .02660,
     +     .48253,    .19334,    .16465,    .01842,    .00085,
     +    -.00040,    .01171,    .02513,
     +     .46903,    .18670,    .15075,    .01765,    .00099,
     +    -.00018,    .01124,    .02386 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
     +     .45566,    .18023,    .13829,    .01692,    .00111,
     +     .00001,    .01080,    .02264,
     +     .44481,    .17501,    .12897,    .01628,    .00118,
     +     .00015,    .01046,    .02169,
     +     .43189,    .16888,    .11876,    .01556,    .00126,
     +     .00029,    .01002,    .02063,
     +     .42071,    .16365,    .11063,    .01497,    .00132,
     +     .00039,    .00965,    .01973,
     +     .41067,    .15905,    .10384,    .01446,    .00135,
     +     .00047,    .00933,    .01892,
     +     .39821,    .15335,    .09602,    .01382,    .00139,
     +     .00057,    .00893,    .01795,
     +     .38679,    .14820,    .08939,    .01323,    .00141,
     +     .00063,    .00856,    .01710,
     +     .37637,    .14357,    .08371,    .01272,    .00143,
     +     .00069,    .00823,    .01635 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
     +     .36622,    .13903,    .07854,    .01222,    .00144,
     +     .00073,    .00792,    .01565,
     +     .35655,    .13475,    .07388,    .01176,    .00144,
     +     .00077,    .00764,    .01499,
     +     .34759,    .13085,    .06983,    .01135,    .00144,
     +     .00080,    .00738,    .01438,
     +     .33934,    .12728,    .06627,    .01096,    .00143,
     +     .00082,    .00714,    .01384,
     +     .33130,    .12379,    .06296,    .01058,    .00143,
     +     .00084,    .00690,    .01331,
     +     .32347,    .12045,    .05991,    .01024,    .00142,
     +     .00086,    .00668,    .01282,
     +     .31624,    .11737,    .05720,    .00992,    .00140,
     +     .00087,    .00648,    .01238,
     +     .30952,    .11452,    .05478,    .00962,    .00139,
     +     .00088,    .00629,    .01198 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
     +     .30293,    .11174,    .05250,    .00932,    .00138,
     +     .00089,    .00610,    .01158,
     +     .29651,    .10905,    .05037,    .00904,    .00137,
     +     .00089,    .00592,    .01120,
     +     .29051,    .10656,    .04843,    .00879,    .00136,
     +     .00090,    .00575,    .01085,
     +     .28494,    .10425,    .04670,    .00856,    .00133,
     +     .00089,    .00561,    .01053,
     +     .27938,    .10197,    .04502,    .00833,    .00132,
     +     .00089,    .00545,    .01023 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
     +     .64238,    .27871,    .41815,    .02467,    .00000,
     +     .00000,    .01357,    .03841,
     +     .63117,    .27099,    .37955,    .02402,    .00000,
     +     .00000,    .01346,    .03664,
     +     .61365,    .25964,    .33612,    .02300,   -.00316,
     +     .00000,    .01317,    .03423,
     +     .60033,    .25159,    .30333,    .02225,   -.00248,
     +     .00000,    .01288,    .03254,
     +     .58610,    .24324,    .27312,    .02143,   -.00191,
     +     .00000,    .01253,    .03091,
     +     .57357,    .23633,    .25017,    .02078,   -.00150,
     +     .00000,    .01220,    .02950,
     +     .56169,    .22976,    .23043,    .02011,   -.00114,
     +     .00000,    .01189,    .02822,
     +     .54918,    .22291,    .21162,    .01938,   -.00082,
     +     .00000,    .01159,    .02695 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
     +     .53823,    .21718,    .19692,    .01880,   -.00058,
     +     .00000,    .01127,    .02591,
     +     .52774,    .21174,    .18397,    .01823,   -.00038,
     +     .00000,    .01097,    .02496,
     +     .51955,    .20753,    .17449,    .01779,   -.00023,
     +     .00000,    .01073,    .02422,
     +     .50224,    .19883,    .15639,    .01688,    .00003,
     +     .00000,    .01025,    .02269,
     +     .48751,    .19167,    .14366,    .01615,    .00022,
     +    -.00080,    .00984,    .02149,
     +     .47142,    .18391,    .12930,    .01535,    .00039,
     +    -.00054,    .00940,    .02024,
     +     .45510,    .17621,    .11633,    .01456,    .00053,
     +    -.00033,    .00896,    .01902,
     +     .44067,    .16951,    .10606,    .01388,    .00064,
     +    -.00016,    .00857,    .01798 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
     +     .42654,    .16302,    .09690,    .01321,    .00072,
     +    -.00003,    .00818,    .01699,
     +     .41509,    .15781,    .09009,    .01271,    .00078,
     +     .00007,    .00786,    .01625,
     +     .40155,    .15179,    .08269,    .01211,    .00084,
     +     .00017,    .00751,    .01534,
     +     .38995,    .14665,    .07682,    .01159,    .00087,
     +     .00024,    .00722,    .01461,
     +     .37964,    .14207,    .07195,    .01113,    .00090,
     +     .00031,    .00694,    .01400,
     +     .36681,    .13651,    .06633,    .01059,    .00093,
     +     .00037,    .00663,    .01323,
     +     .35515,    .13150,    .06161,    .01012,    .00094,
     +     .00042,    .00635,    .01255,
     +     .34462,    .12700,    .05761,    .00969,    .00096,
     +     .00046,    .00609,    .01194 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
     +     .33433,    .12266,    .05394,    .00928,    .00096,
     +     .00049,    .00582,    .01138,
     +     .32455,    .11858,    .05066,    .00891,    .00096,
     +     .00052,    .00558,    .01087,
     +     .31556,    .11483,    .04780,    .00859,    .00096,
     +     .00054,    .00538,    .01039,
     +     .30733,    .11143,    .04532,    .00827,    .00096,
     +     .00055,    .00519,    .00996,
     +     .29933,    .10813,    .04300,    .00796,    .00096,
     +     .00057,    .00501,    .00955,
     +     .29157,    .10497,    .04088,    .00768,    .00095,
     +     .00058,    .00483,    .00919,
     +     .28443,    .10208,    .03899,    .00741,    .00094,
     +     .00058,    .00466,    .00887,
     +     .27783,    .09940,    .03732,    .00717,    .00093,
     +     .00059,    .00452,    .00855 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
     +     .27137,    .09677,    .03573,    .00693,    .00093,
     +     .00060,    .00439,    .00824,
     +     .26508,    .09426,    .03425,    .00672,    .00092,
     +     .00060,    .00425,    .00795,
     +     .25924,    .09194,    .03291,    .00652,    .00090,
     +     .00060,    .00412,    .00768,
     +     .25382,    .08979,    .03171,    .00634,    .00090,
     +     .00060,    .00400,    .00745,
     +     .24844,    .08765,    .03055,    .00615,    .00088,
     +     .00059,    .00389,    .00722 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
     +     .63550,    .26662,    .30921,    .02132,    .00000,
     +     .00000,    .01128,    .03079,
     +     .62159,    .25783,    .27855,    .02052,    .00000,
     +     .00000,    .01107,    .02924,
     +     .60025,    .24545,    .24438,    .01938,   -.00242,
     +     .00000,    .01065,    .02707,
     +     .58449,    .23679,    .21885,    .01864,   -.00191,
     +     .00000,    .01034,    .02558,
     +     .56802,    .22787,    .19559,    .01783,   -.00148,
     +     .00000,    .01002,    .02409,
     +     .55383,    .22048,    .17810,    .01713,   -.00117,
     +     .00000,    .00969,    .02292,
     +     .54037,    .21360,    .16317,    .01648,   -.00091,
     +     .00000,    .00938,    .02187,
     +     .52627,    .20654,    .14905,    .01585,   -.00067,
     +     .00000,    .00905,    .02079 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
     +     .51420,    .20058,    .13805,    .01531,   -.00049,
     +     .00000,    .00881,    .01985,
     +     .50272,    .19498,    .12847,    .01477,   -.00034,
     +     .00000,    .00853,    .01904,
     +     .49382,    .19066,    .12148,    .01434,   -.00023,
     +     .00000,    .00832,    .01845,
     +     .47510,    .18180,    .10822,    .01350,   -.00004,
     +     .00000,    .00789,    .01723,
     +     .45942,    .17456,    .09896,    .01281,    .00010,
     +    -.00060,    .00753,    .01625,
     +     .44234,    .16681,    .08858,    .01210,    .00022,
     +    -.00042,    .00715,    .01523,
     +     .42520,    .15915,    .07925,    .01145,    .00033,
     +    -.00026,    .00676,    .01422,
     +     .41017,    .15254,    .07192,    .01089,    .00041,
     +    -.00014,    .00645,    .01334 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
     +     .39555,    .14616,    .06546,    .01034,    .00046,
     +    -.00005,    .00615,    .01252,
     +     .38377,    .14109,    .06067,    .00989,    .00050,
     +     .00002,    .00590,    .01194,
     +     .36997,    .13517,    .05550,    .00933,    .00055,
     +     .00010,    .00558,    .01129,
     +     .35817,    .13018,    .05140,    .00891,    .00057,
     +     .00015,    .00533,    .01072,
     +     .34764,    .12582,    .04799,    .00857,    .00060,
     +     .00020,    .00513,    .01021,
     +     .33480,    .12046,    .04414,    .00810,    .00062,
     +     .00025,    .00487,    .00962,
     +     .32316,    .11569,    .04089,    .00772,    .00063,
     +     .00028,    .00465,    .00909,
     +     .31260,    .11143,    .03816,    .00740,    .00064,
     +     .00031,    .00445,    .00862 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
     +     .30245,    .10728,    .03568,    .00703,    .00064,
     +     .00033,    .00426,    .00819,
     +     .29284,    .10342,    .03347,    .00672,    .00064,
     +     .00034,    .00406,    .00778,
     +     .28398,    .09992,    .03156,    .00645,    .00065,
     +     .00036,    .00388,    .00742,
     +     .27590,    .09671,    .02991,    .00619,    .00064,
     +     .00037,    .00374,    .00711,
     +     .26805,    .09363,    .02834,    .00595,    .00064,
     +     .00038,    .00360,    .00683,
     +     .26052,    .09068,    .02693,    .00572,    .00064,
     +     .00039,    .00346,    .00654,
     +     .25362,    .08799,    .02567,    .00552,    .00063,
     +     .00040,    .00334,    .00626,
     +     .24720,    .08552,    .02456,    .00533,    .00062,
     +     .00039,    .00323,    .00604 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
     +     .24094,    .08310,    .02349,    .00514,    .00062,
     +     .00040,    .00312,    .00583,
     +     .23490,    .08079,    .02251,    .00497,    .00061,
     +     .00040,    .00302,    .00562,
     +     .22929,    .07866,    .02164,    .00481,    .00061,
     +     .00040,    .00293,    .00541,
     +     .22412,    .07669,    .02083,    .00467,    .00060,
     +     .00040,    .00284,    .00523,
     +     .21898,    .07474,    .02008,    .00452,    .00059,
     +     .00040,    .00275,    .00506 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
     +     .62335,    .25229,    .21821,    .01796,    .00000,
     +     .00000,    .00928,    .02447,
     +     .60659,    .24297,    .19493,    .01720,    .00000,
     +     .00000,    .00899,    .02306,
     +     .58173,    .22985,    .16922,    .01616,   -.00183,
     +     .00000,    .00855,    .02111,
     +     .56401,    .22063,    .15027,    .01533,   -.00145,
     +     .00000,    .00826,    .01983,
     +     .54538,    .21146,    .13318,    .01460,   -.00113,
     +     .00000,    .00794,    .01854,
     +     .52977,    .20374,    .12043,    .01395,   -.00090,
     +     .00000,    .00763,    .01756,
     +     .51512,    .19665,    .10961,    .01332,   -.00071,
     +     .00000,    .00734,    .01670,
     +     .49990,    .18944,    .09949,    .01265,   -.00054,
     +     .00000,    .00704,    .01585 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
     +     .48687,    .18342,    .09172,    .01215,   -.00040,
     +     .00000,    .00677,    .01511,
     +     .47456,    .17783,    .08492,    .01174,   -.00030,
     +     .00000,    .00657,    .01441,
     +     .46501,    .17355,    .07999,    .01142,   -.00022,
     +     .00000,    .00643,    .01385,
     +     .44522,    .16475,    .07082,    .01070,   -.00007,
     +     .00000,    .00608,    .01282,
     +     .42885,    .15753,    .06439,    .01015,    .00003,
     +    -.00045,    .00574,    .01203,
     +     .41123,    .14986,    .05721,    .00953,    .00012,
     +    -.00032,    .00540,    .01125,
     +     .39365,    .14238,    .05086,    .00889,    .00019,
     +    -.00021,    .00508,    .01048,
     +     .37836,    .13595,    .04591,    .00836,    .00025,
     +    -.00013,    .00482,    .00984 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
     +     .36351,    .12979,    .04157,    .00791,    .00030,
     +    -.00005,    .00455,    .00924,
     +     .35162,    .12492,    .03839,    .00755,    .00033,
     +     .00000,    .00437,    .00875,
     +     .33767,    .11930,    .03494,    .00718,    .00036,
     +     .00005,    .00414,    .00819,
     +     .32589,    .11457,    .03229,    .00683,    .00037,
     +     .00008,    .00393,    .00773,
     +     .31555,    .11040,    .03008,    .00650,    .00039,
     +     .00012,    .00374,    .00735,
     +     .30280,    .10536,    .02760,    .00614,    .00041,
     +     .00016,    .00356,    .00690,
     +     .29133,    .10085,    .02552,    .00581,    .00041,
     +     .00018,    .00338,    .00651,
     +     .28104,    .09681,    .02377,    .00554,    .00042,
     +     .00020,    .00323,    .00617 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
     +     .27105,    .09300,    .02220,    .00528,    .00042,
     +     .00022,    .00306,    .00584,
     +     .26171,    .08940,    .02079,    .00503,    .00042,
     +     .00023,    .00292,    .00555,
     +     .25324,    .08614,    .01958,    .00479,    .00043,
     +     .00024,    .00279,    .00528,
     +     .24544,    .08320,    .01855,    .00459,    .00043,
     +     .00025,    .00268,    .00504,
     +     .23790,    .08035,    .01761,    .00440,    .00043,
     +     .00026,    .00257,    .00480,
     +     .23069,    .07765,    .01671,    .00422,    .00043,
     +     .00027,    .00247,    .00460,
     +     .22408,    .07519,    .01594,    .00407,    .00042,
     +     .00027,    .00237,    .00441,
     +     .21799,    .07292,    .01525,    .00391,    .00042,
     +     .00028,    .00230,    .00423 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
     +     .21204,    .07073,    .01461,    .00377,    .00041,
     +     .00027,    .00221,    .00406,
     +     .20633,    .06862,    .01400,    .00364,    .00042,
     +     .00028,    .00213,    .00391,
     +     .20103,    .06667,    .01346,    .00351,    .00041,
     +     .00028,    .00206,    .00378,
     +     .19616,    .06489,    .01298,    .00340,    .00040,
     +     .00028,    .00198,    .00364,
     +     .19136,    .06313,    .01251,    .00326,    .00040,
     +     .00029,    .00193,    .00352 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
     +     .60576,    .23659,    .14316,    .01483,    .00000,
     +     .00000,    .00767,    .01911,
     +     .58659,    .22675,    .12658,    .01408,    .00000,
     +     .00000,    .00732,    .01790,
     +     .55894,    .21288,    .10858,    .01300,   -.00138,
     +     .00000,    .00690,    .01633,
     +     .53922,    .20356,    .09514,    .01238,   -.00110,
     +     .00000,    .00661,    .01520,
     +     .51914,    .19415,    .08338,    .01162,   -.00086,
     +     .00000,    .00622,    .01421,
     +     .50223,    .18643,    .07463,    .01106,   -.00069,
     +     .00000,    .00596,    .01340,
     +     .48649,    .17934,    .06736,    .01056,   -.00056,
     +     .00000,    .00570,    .01263,
     +     .47030,    .17214,    .06061,    .01005,   -.00043,
     +     .00000,    .00547,    .01185 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
     +     .45665,    .16614,    .05544,    .00958,   -.00034,
     +     .00000,    .00525,    .01131,
     +     .44385,    .16057,    .05103,    .00915,   -.00025,
     +     .00000,    .00505,    .01079,
     +     .43397,    .15634,    .04784,    .00886,   -.00019,
     +     .00000,    .00486,    .01038,
     +     .41347,    .14771,    .04190,    .00830,   -.00009,
     +     .00000,    .00455,    .00959,
     +     .39679,    .14070,    .03787,    .00777,   -.00001,
     +    -.00034,    .00432,    .00893,
     +     .37885,    .13337,    .03330,    .00728,    .00006,
     +    -.00024,    .00406,    .00826,
     +     .36104,    .12618,    .02931,    .00677,    .00012,
     +    -.00016,    .00379,    .00767,
     +     .34569,    .12001,    .02625,    .00636,    .00015,
     +    -.00011,    .00357,    .00719 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
     +     .33096,    .11416,    .02358,    .00596,    .00019,
     +    -.00006,    .00337,    .00672,
     +     .31922,    .10955,    .02165,    .00565,    .00022,
     +    -.00001,    .00321,    .00633,
     +     .30551,    .10424,    .01961,    .00533,    .00024,
     +     .00002,    .00303,    .00591,
     +     .29392,    .09978,    .01806,    .00507,    .00026,
     +     .00005,    .00287,    .00557,
     +     .28374,    .09588,    .01678,    .00482,    .00026,
     +     .00006,    .00275,    .00529,
     +     .27139,    .09120,    .01534,    .00452,    .00028,
     +     .00009,    .00259,    .00494,
     +     .26026,    .08705,    .01416,    .00429,    .00028,
     +     .00011,    .00245,    .00463,
     +     .25029,    .08335,    .01318,    .00409,    .00028,
     +     .00012,    .00232,    .00438 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
     +     .24082,    .07979,    .01231,    .00384,    .00029,
     +     .00013,    .00220,    .00415,
     +     .23189,    .07650,    .01156,    .00363,    .00029,
     +     .00014,    .00209,    .00391,
     +     .22375,    .07354,    .01091,    .00348,    .00030,
     +     .00015,    .00199,    .00370,
     +     .21633,    .07085,    .01034,    .00333,    .00030,
     +     .00016,    .00192,    .00353,
     +     .20920,    .06827,    .00981,    .00319,    .00030,
     +     .00016,    .00184,    .00337,
     +     .20237,    .06584,    .00935,    .00305,    .00030,
     +     .00017,    .00176,    .00320,
     +     .19615,    .06363,    .00892,    .00294,    .00030,
     +     .00017,    .00169,    .00306,
     +     .19045,    .06159,    .00855,    .00282,    .00029,
     +     .00017,    .00163,    .00294 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
     +     .18490,    .05960,    .00822,    .00269,    .00030,
     +     .00018,    .00156,    .00281,
     +     .17958,    .05771,    .00790,    .00260,    .00029,
     +     .00018,    .00151,    .00270,
     +     .17466,    .05598,    .00761,    .00249,    .00029,
     +     .00018,    .00145,    .00260,
     +     .17012,    .05438,    .00735,    .00242,    .00029,
     +     .00019,    .00140,    .00251,
     +     .16561,    .05283,    .00710,    .00234,    .00029,
     +     .00019,    .00135,    .00242 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
     +     .58337,    .22003,    .08221,    .01229,    .00000,
     +     .00000,    .00601,    .01456,
     +     .56213,    .20989,    .07130,    .01158,    .00000,
     +     .00000,    .00578,    .01354,
     +     .53196,    .19581,    .05999,    .01059,   -.00103,
     +     .00000,    .00536,    .01226,
     +     .51094,    .18628,    .05147,    .00992,   -.00083,
     +     .00000,    .00504,    .01144,
     +     .48952,    .17690,    .04405,    .00927,   -.00065,
     +     .00000,    .00478,    .01063,
     +     .47183,    .16917,    .03875,    .00875,   -.00054,
     +     .00000,    .00458,    .00993,
     +     .45543,    .16214,    .03434,    .00829,   -.00043,
     +     .00000,    .00436,    .00934,
     +     .43862,    .15510,    .03038,    .00783,   -.00034,
     +     .00000,    .00412,    .00878 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
     +     .42452,    .14921,    .02743,    .00748,   -.00027,
     +     .00000,    .00395,    .00831,
     +     .41135,    .14380,    .02490,    .00716,   -.00021,
     +     .00000,    .00378,    .00788,
     +     .40123,    .13969,    .02311,    .00689,   -.00016,
     +     .00000,    .00365,    .00757,
     +     .38064,    .13133,    .01992,    .00634,   -.00009,
     +     .00000,    .00339,    .00696,
     +     .36374,    .12466,    .01779,    .00596,   -.00004,
     +    -.00026,    .00320,    .00645,
     +     .34581,    .11765,    .01523,    .00553,    .00001,
     +    -.00019,    .00299,    .00599,
     +     .32817,    .11082,    .01308,    .00517,    .00006,
     +    -.00013,    .00278,    .00552,
     +     .31304,    .10503,    .01149,    .00484,    .00009,
     +    -.00008,    .00262,    .00511 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
     +     .29857,    .09952,    .01018,    .00452,    .00011,
     +    -.00005,    .00246,    .00477,
     +     .28706,    .09523,    .00927,    .00429,    .00013,
     +    -.00002,    .00231,    .00449,
     +     .27378,    .09031,    .00829,    .00401,    .00015,
     +     .00000,    .00218,    .00419,
     +     .26264,    .08619,    .00757,    .00377,    .00016,
     +     .00002,    .00207,    .00395,
     +     .25288,    .08261,    .00702,    .00355,    .00017,
     +     .00003,    .00196,    .00373,
     +     .24101,    .07829,    .00639,    .00333,    .00018,
     +     .00004,    .00185,    .00348,
     +     .23044,    .07448,    .00591,    .00314,    .00019,
     +     .00005,    .00174,    .00324,
     +     .22103,    .07113,    .00554,    .00296,    .00020,
     +     .00006,    .00163,    .00303 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
     +     .21198,    .06791,    .00517,    .00280,    .00021,
     +     .00007,    .00155,    .00286,
     +     .20354,    .06493,    .00486,    .00266,    .00021,
     +     .00007,    .00148,    .00272,
     +     .19591,    .06225,    .00461,    .00252,    .00022,
     +     .00008,    .00140,    .00258,
     +     .18899,    .05985,    .00440,    .00241,    .00022,
     +     .00008,    .00134,    .00245,
     +     .18234,    .05753,    .00422,    .00230,    .00023,
     +     .00009,    .00128,    .00232,
     +     .17600,    .05535,    .00404,    .00220,    .00023,
     +     .00009,    .00123,    .00220,
     +     .17021,    .05338,    .00389,    .00211,    .00023,
     +     .00009,    .00119,    .00209,
     +     .16492,    .05157,    .00377,    .00202,    .00023,
     +     .00010,    .00113,    .00200 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
     +     .15979,    .04982,    .00365,    .00195,    .00023,
     +     .00010,    .00110,    .00191,
     +     .15487,    .04815,    .00354,    .00187,    .00023,
     +     .00010,    .00105,    .00183,
     +     .15034,    .04662,    .00345,    .00180,    .00023,
     +     .00010,    .00101,    .00176,
     +     .14619,    .04521,    .00336,    .00174,    .00023,
     +     .00011,    .00096,    .00170,
     +     .14210,    .04383,    .00328,    .00167,    .00023,
     +     .00011,    .00093,    .00164 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
     +     .55681,    .20259,    .03314,    .00996,    .00000,
     +     .00000,    .00471,    .01095,
     +     .53390,    .19236,    .02714,    .00934,    .00000,
     +     .00000,    .00442,    .01018,
     +     .50177,    .17838,    .02159,    .00848,   -.00076,
     +     .00000,    .00404,    .00912,
     +     .47975,    .16894,    .01710,    .00787,   -.00062,
     +     .00000,    .00380,    .00845,
     +     .45745,    .15967,    .01328,    .00738,   -.00049,
     +     .00000,    .00358,    .00781,
     +     .43915,    .15217,    .01071,    .00694,   -.00040,
     +     .00000,    .00339,    .00728,
     +     .42236,    .14538,    .00876,    .00653,   -.00033,
     +     .00000,    .00319,    .00682,
     +     .40531,    .13852,    .00705,    .00615,   -.00026,
     +     .00000,    .00299,    .00638 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
     +     .39104,    .13289,    .00585,    .00586,   -.00021,
     +     .00000,    .00287,    .00598,
     +     .37782,    .12771,    .00488,    .00558,   -.00017,
     +     .00000,    .00275,    .00564,
     +     .36772,    .12377,    .00423,    .00535,   -.00014,
     +     .00000,    .00266,    .00537,
     +     .34708,    .11584,    .00320,    .00491,   -.00008,
     +     .00000,    .00245,    .00494,
     +     .33040,    .10953,    .00255,    .00461,   -.00005,
     +    -.00019,    .00226,    .00460,
     +     .31282,    .10293,    .00163,    .00428,   -.00001,
     +    -.00014,    .00212,    .00420,
     +     .29561,    .09654,    .00100,    .00394,    .00002,
     +    -.00010,    .00197,    .00384,
     +     .28092,    .09118,    .00057,    .00368,    .00004,
     +    -.00007,    .00184,    .00356 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
     +     .26693,    .08612,    .00026,    .00343,    .00005,
     +    -.00005,    .00171,    .00331,
     +     .25589,    .08215,    .00011,    .00324,    .00007,
     +    -.00003,    .00163,    .00310,
     +     .24322,    .07759,   -.00001,    .00302,    .00008,
     +    -.00002,    .00151,    .00287,
     +     .23260,    .07384,   -.00006,    .00284,    .00009,
     +    -.00001,    .00143,    .00269,
     +     .22330,    .07059,   -.00012,    .00271,    .00010,
     +     .00000,    .00136,    .00253,
     +     .21204,    .06671,   -.00008,    .00255,    .00011,
     +     .00001,    .00125,    .00234,
     +     .20210,    .06325,   -.00006,    .00237,    .00011,
     +     .00001,    .00118,    .00220,
     +     .19335,    .06020,   -.00003,    .00222,    .00012,
     +     .00002,    .00113,    .00207 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
     +     .18488,    .05732,    .00005,    .00209,    .00013,
     +     .00003,    .00105,    .00194,
     +     .17704,    .05467,    .00011,    .00195,    .00013,
     +     .00003,    .00099,    .00181,
     +     .17002,    .05227,    .00017,    .00185,    .00013,
     +     .00003,    .00094,    .00170,
     +     .16361,    .05013,    .00023,    .00175,    .00014,
     +     .00004,    .00089,    .00161,
     +     .15745,    .04809,    .00027,    .00169,    .00014,
     +     .00004,    .00086,    .00154,
     +     .15163,    .04616,    .00033,    .00160,    .00014,
     +     .00004,    .00082,    .00146,
     +     .14634,    .04440,    .00039,    .00153,    .00014,
     +     .00004,    .00077,    .00140,
     +     .14152,    .04281,    .00043,    .00147,    .00015,
     +     .00005,    .00074,    .00133 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
     +     .13686,    .04127,    .00047,    .00140,    .00015,
     +     .00005,    .00072,    .00127,
     +     .13239,    .03981,    .00051,    .00134,    .00015,
     +     .00005,    .00068,    .00123,
     +     .12829,    .03847,    .00055,    .00129,    .00015,
     +     .00005,    .00065,    .00117,
     +     .12452,    .03725,    .00058,    .00125,    .00015,
     +     .00005,    .00063,    .00113,
     +     .12082,    .03605,    .00062,    .00120,    .00015,
     +     .00005,    .00060,    .00108 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
     +     .52651,    .18456,   -.00557,    .00779,    .00000,
     +     .00000,    .00368,    .00818,
     +     .50243,    .17437,   -.00734,    .00719,    .00000,
     +     .00000,    .00347,    .00754,
     +     .46892,    .16061,   -.00799,    .00647,   -.00057,
     +     .00000,    .00310,    .00672,
     +     .44615,    .15151,   -.00931,    .00601,   -.00046,
     +     .00000,    .00290,    .00621,
     +     .42346,    .14250,   -.01014,    .00562,   -.00037,
     +     .00000,    .00273,    .00566,
     +     .40491,    .13528,   -.01037,    .00527,   -.00031,
     +     .00000,    .00251,    .00526,
     +     .38802,    .12875,   -.01049,    .00495,   -.00025,
     +     .00000,    .00238,    .00491,
     +     .37099,    .12225,   -.01047,    .00462,   -.00020,
     +     .00000,    .00227,    .00458 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
     +     .35678,    .11695,   -.01026,    .00437,   -.00016,
     +     .00000,    .00215,    .00426,
     +     .34364,    .11204,   -.00996,    .00414,   -.00014,
     +     .00000,    .00202,    .00403,
     +     .33365,    .10831,   -.00966,    .00395,   -.00012,
     +     .00000,    .00193,    .00387,
     +     .31348,    .10089,   -.00918,    .00361,   -.00008,
     +     .00000,    .00180,    .00353,
     +     .29723,    .09501,   -.00853,    .00334,   -.00005,
     +    -.00014,    .00168,    .00325,
     +     .28015,    .08892,   -.00817,    .00311,   -.00003,
     +    -.00010,    .00155,    .00296,
     +     .26362,    .08306,   -.00770,    .00285,   -.00001,
     +    -.00008,    .00142,    .00272,
     +     .24957,    .07812,   -.00723,    .00262,    .00000,
     +    -.00006,    .00132,    .00253 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
     +     .23625,    .07347,   -.00675,    .00243,    .00002,
     +    -.00004,    .00123,    .00235,
     +     .22581,    .06987,   -.00633,    .00229,    .00003,
     +    -.00003,    .00117,    .00219,
     +     .21381,    .06581,   -.00581,    .00213,    .00003,
     +    -.00003,    .00108,    .00200,
     +     .20380,    .06244,   -.00539,    .00201,    .00004,
     +    -.00002,    .00103,    .00186,
     +     .19514,    .05951,   -.00500,    .00188,    .00005,
     +    -.00001,    .00097,    .00175,
     +     .18467,    .05603,   -.00454,    .00175,    .00005,
     +    -.00001,    .00091,    .00163,
     +     .17545,    .05296,   -.00414,    .00164,    .00006,
     +     .00000,    .00084,    .00152,
     +     .16731,    .05024,   -.00377,    .00153,    .00006,
     +     .00000,    .00078,    .00143 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
     +     .15957,    .04770,   -.00343,    .00143,    .00007,
     +     .00001,    .00076,    .00131,
     +     .15237,    .04537,   -.00311,    .00135,    .00007,
     +     .00001,    .00071,    .00123,
     +     .14586,    .04328,   -.00283,    .00128,    .00007,
     +     .00001,    .00067,    .00116,
     +     .14005,    .04141,   -.00260,    .00121,    .00008,
     +     .00002,    .00063,    .00111,
     +     .13450,    .03964,   -.00238,    .00115,    .00008,
     +     .00002,    .00060,    .00105,
     +     .12921,    .03796,   -.00215,    .00110,    .00008,
     +     .00002,    .00056,    .00099,
     +     .12443,    .03643,   -.00196,    .00106,    .00008,
     +     .00002,    .00054,    .00095,
     +     .12008,    .03504,   -.00179,    .00100,    .00008,
     +     .00002,    .00052,    .00090 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
     +     .11590,    .03372,   -.00164,    .00094,    .00008,
     +     .00002,    .00050,    .00087,
     +     .11190,    .03247,   -.00149,    .00090,    .00009,
     +     .00003,    .00047,    .00082,
     +     .10821,    .03133,   -.00136,    .00086,    .00009,
     +     .00003,    .00046,    .00079,
     +     .10484,    .03028,   -.00123,    .00083,    .00009,
     +     .00003,    .00044,    .00075,
     +     .10154,    .02925,   -.00113,    .00081,    .00009,
     +     .00003,    .00043,    .00073 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
     +     .49322,    .16639,   -.03510,    .00581,    .00000,
     +     .00000,    .00283,    .00605,
     +     .46828,    .15642,   -.03353,    .00536,    .00000,
     +     .00000,    .00264,    .00557,
     +     .43395,    .14311,   -.03032,    .00479,   -.00041,
     +     .00000,    .00238,    .00492,
     +     .41096,    .13431,   -.02887,    .00441,   -.00034,
     +     .00000,    .00224,    .00447,
     +     .38823,    .12575,   -.02724,    .00398,   -.00028,
     +     .00000,    .00206,    .00413,
     +     .36977,    .11887,   -.02580,    .00372,   -.00023,
     +     .00000,    .00195,    .00381,
     +     .35296,    .11272,   -.02438,    .00349,   -.00020,
     +     .00000,    .00185,    .00353,
     +     .33609,    .10664,   -.02285,    .00327,   -.00016,
     +     .00000,    .00172,    .00323 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
     +     .32221,    .10164,   -.02158,    .00306,   -.00014,
     +     .00000,    .00162,    .00307,
     +     .30943,    .09709,   -.02036,    .00285,   -.00012,
     +     .00000,    .00155,    .00291,
     +     .29974,    .09365,   -.01944,    .00273,   -.00010,
     +     .00000,    .00147,    .00279,
     +     .28016,    .08681,   -.01757,    .00246,   -.00008,
     +     .00000,    .00134,    .00254,
     +     .26455,    .08141,   -.01605,    .00228,   -.00006,
     +    -.00010,    .00124,    .00235,
     +     .24829,    .07587,   -.01475,    .00210,   -.00004,
     +    -.00008,    .00116,    .00213,
     +     .23258,    .07055,   -.01343,    .00191,   -.00003,
     +    -.00007,    .00107,    .00194,
     +     .21933,    .06611,   -.01228,    .00174,   -.00002,
     +    -.00006,    .00098,    .00177 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
     +     .20684,    .06197,   -.01123,    .00161,   -.00001,
     +    -.00005,    .00091,    .00162,
     +     .19706,    .05876,   -.01040,    .00152,    .00000,
     +    -.00004,    .00085,    .00150,
     +     .18590,    .05511,   -.00946,    .00140,    .00000,
     +    -.00004,    .00081,    .00140,
     +     .17665,    .05210,   -.00871,    .00131,    .00001,
     +    -.00003,    .00074,    .00133,
     +     .16863,    .04952,   -.00805,    .00124,    .00001,
     +    -.00003,    .00071,    .00123,
     +     .15905,    .04646,   -.00729,    .00113,    .00002,
     +    -.00002,    .00066,    .00115,
     +     .15060,    .04379,   -.00663,    .00107,    .00002,
     +    -.00002,    .00061,    .00106,
     +     .14313,    .04145,   -.00603,    .00100,    .00002,
     +    -.00002,    .00057,    .00097 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
     +     .13612,    .03923,   -.00552,    .00094,    .00003,
     +    -.00001,    .00053,    .00092,
     +     .12963,    .03719,   -.00504,    .00087,    .00003,
     +    -.00001,    .00051,    .00088,
     +     .12379,    .03538,   -.00460,    .00082,    .00003,
     +    -.00001,    .00048,    .00081,
     +     .11855,    .03376,   -.00424,    .00077,    .00003,
     +    -.00001,    .00045,    .00078,
     +     .11355,    .03222,   -.00389,    .00072,    .00003,
     +    -.00001,    .00043,    .00073,
     +     .10885,    .03080,   -.00359,    .00068,    .00004,
     +     .00000,    .00040,    .00069,
     +     .10459,    .02950,   -.00331,    .00065,    .00004,
     +     .00000,    .00039,    .00065,
     +     .10074,    .02834,   -.00307,    .00062,    .00004,
     +     .00000,    .00037,    .00062 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
     +     .09704,    .02721,   -.00284,    .00057,    .00004,
     +     .00000,    .00036,    .00058,
     +     .09349,    .02614,   -.00263,    .00056,    .00004,
     +     .00000,    .00033,    .00056,
     +     .09023,    .02517,   -.00245,    .00055,    .00004,
     +     .00000,    .00032,    .00054,
     +     .08725,    .02429,   -.00228,    .00054,    .00004,
     +     .00000,    .00031,    .00051,
     +     .08435,    .02342,   -.00212,    .00052,    .00004,
     +     .00000,    .00030,    .00048 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
     +     .45760,    .14914,   -.05786,    .00485,    .00000,
     +     .00000,    .00188,    .00418,
     +     .43226,    .13959,   -.05350,    .00451,    .00000,
     +     .00000,    .00175,    .00373,
     +     .39810,    .12677,   -.04712,    .00382,   -.00031,
     +     .00000,    .00159,    .00337,
     +     .37520,    .11848,   -.04364,    .00359,   -.00025,
     +     .00000,    .00147,    .00300,
     +     .35275,    .11039,   -.04009,    .00321,   -.00020,
     +     .00000,    .00134,    .00277,
     +     .33460,    .10398,   -.03718,    .00294,   -.00017,
     +     .00000,    .00124,    .00260,
     +     .31821,    .09826,   -.03454,    .00272,   -.00015,
     +     .00000,    .00116,    .00241,
     +     .30190,    .09259,   -.03196,    .00251,   -.00013,
     +     .00000,    .00111,    .00221 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
     +     .28848,    .08798,   -.02980,    .00236,   -.00011,
     +     .00000,    .00102,    .00207,
     +     .27616,    .08379,   -.02789,    .00225,   -.00010,
     +     .00000,    .00096,    .00194,
     +     .26687,    .08065,   -.02647,    .00217,   -.00009,
     +     .00000,    .00095,    .00181,
     +     .24825,    .07435,   -.02361,    .00196,   -.00007,
     +     .00000,    .00086,    .00164,
     +     .23348,    .06949,   -.02146,    .00185,   -.00006,
     +    -.00008,    .00078,    .00150,
     +     .21819,    .06449,   -.01940,    .00166,   -.00005,
     +    -.00007,    .00072,    .00135,
     +     .20351,    .05973,   -.01746,    .00149,   -.00004,
     +    -.00006,    .00066,    .00123,
     +     .19116,    .05574,   -.01585,    .00137,   -.00003,
     +    -.00005,    .00060,    .00114 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
     +     .17955,    .05204,   -.01435,    .00126,   -.00002,
     +    -.00004,    .00055,    .00104,
     +     .17056,    .04920,   -.01325,    .00118,   -.00002,
     +    -.00004,    .00053,    .00097,
     +     .16033,    .04600,   -.01200,    .00109,   -.00001,
     +    -.00003,    .00050,    .00089,
     +     .15187,    .04336,   -.01099,    .00103,   -.00001,
     +    -.00003,    .00046,    .00082,
     +     .14457,    .04110,   -.01016,    .00096,   -.00001,
     +    -.00003,    .00042,    .00079,
     +     .13591,    .03842,   -.00913,    .00087,    .00000,
     +    -.00002,    .00038,    .00071,
     +     .12826,    .03608,   -.00827,    .00081,    .00000,
     +    -.00002,    .00036,    .00064,
     +     .12152,    .03405,   -.00756,    .00077,    .00000,
     +    -.00002,    .00034,    .00061 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
     +     .11526,    .03214,   -.00690,    .00069,    .00000,
     +    -.00002,    .00033,    .00056,
     +     .10946,    .03040,   -.00629,    .00064,    .00001,
     +    -.00001,    .00030,    .00052,
     +     .10424,    .02885,   -.00579,    .00062,    .00001,
     +    -.00001,    .00028,    .00050,
     +     .09960,    .02747,   -.00535,    .00059,    .00001,
     +    -.00001,    .00027,    .00046,
     +     .09518,    .02615,   -.00492,    .00056,    .00001,
     +    -.00001,    .00026,    .00042,
     +     .09101,    .02493,   -.00454,    .00053,    .00001,
     +    -.00001,    .00025,    .00040,
     +     .08726,    .02384,   -.00420,    .00050,    .00001,
     +    -.00001,    .00023,    .00039,
     +     .08388,    .02284,   -.00392,    .00047,    .00001,
     +    -.00001,    .00022,    .00037 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
     +     .08062,    .02188,   -.00362,    .00044,    .00001,
     +    -.00001,    .00021,    .00034,
     +     .07752,    .02098,   -.00338,    .00042,    .00001,
     +    -.00001,    .00020,    .00033,
     +     .07468,    .02017,   -.00314,    .00041,    .00001,
     +    -.00001,    .00019,    .00031,
     +     .07211,    .01943,   -.00295,    .00040,    .00001,
     +    -.00001,    .00017,    .00030,
     +     .06959,    .01870,   -.00275,    .00038,    .00001,
     +    -.00001,    .00016,    .00029 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
     +     .42004,    .13136,   -.07348,    .00332,    .00000,
     +     .00000,    .00147,    .00304,
     +     .39484,    .12235,   -.06697,    .00302,    .00000,
     +     .00000,    .00136,    .00273,
     +     .36079,    .11042,   -.05816,    .00270,   -.00022,
     +     .00000,    .00122,    .00236,
     +     .33830,    .10271,   -.05307,    .00250,   -.00019,
     +     .00000,    .00110,    .00215,
     +     .31661,    .09529,   -.04814,    .00222,   -.00016,
     +     .00000,    .00096,    .00196,
     +     .29914,    .08938,   -.04425,    .00204,   -.00014,
     +     .00000,    .00091,    .00180,
     +     .28344,    .08414,   -.04084,    .00190,   -.00012,
     +     .00000,    .00087,    .00166,
     +     .26779,    .07900,   -.03744,    .00177,   -.00011,
     +     .00000,    .00080,    .00151 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
     +     .25504,    .07482,   -.03475,    .00167,   -.00010,
     +     .00000,    .00076,    .00142,
     +     .24338,    .07105,   -.03229,    .00156,   -.00009,
     +     .00000,    .00070,    .00133,
     +     .23461,    .06824,   -.03050,    .00149,   -.00008,
     +     .00000,    .00066,    .00128,
     +     .21718,    .06265,   -.02698,    .00132,   -.00007,
     +     .00000,    .00059,    .00112,
     +     .20344,    .05831,   -.02433,    .00120,   -.00006,
     +    -.00006,    .00054,    .00102,
     +     .18926,    .05385,   -.02186,    .00110,   -.00005,
     +    -.00005,    .00051,    .00090,
     +     .17569,    .04965,   -.01953,    .00100,   -.00004,
     +    -.00004,    .00046,    .00083,
     +     .16438,    .04618,   -.01766,    .00092,   -.00003,
     +    -.00003,    .00042,    .00076 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
     +     .15385,    .04294,   -.01593,    .00084,   -.00003,
     +    -.00003,    .00039,    .00071,
     +     .14567,    .04047,   -.01462,    .00079,   -.00003,
     +    -.00003,    .00036,    .00064,
     +     .13643,    .03768,   -.01317,    .00071,   -.00002,
     +    -.00002,    .00032,    .00060,
     +     .12880,    .03540,   -.01201,    .00066,   -.00002,
     +    -.00002,    .00030,    .00056,
     +     .12225,    .03347,   -.01103,    .00063,   -.00002,
     +    -.00002,    .00027,    .00050,
     +     .11452,    .03116,   -.00993,    .00055,   -.00002,
     +    -.00002,    .00026,    .00047,
     +     .10773,    .02918,   -.00899,    .00050,   -.00001,
     +    -.00001,    .00024,    .00045,
     +     .10176,    .02745,   -.00818,    .00048,   -.00001,
     +    -.00001,    .00023,    .00039 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
     +     .09616,    .02583,   -.00744,    .00046,   -.00001,
     +    -.00001,    .00020,    .00037,
     +     .09105,    .02436,   -.00680,    .00043,   -.00001,
     +    -.00001,    .00019,    .00035,
     +     .08649,    .02306,   -.00623,    .00041,   -.00001,
     +    -.00001,    .00018,    .00032,
     +     .08242,    .02189,   -.00575,    .00038,   -.00001,
     +    -.00001,    .00017,    .00031,
     +     .07856,    .02080,   -.00529,    .00036,   -.00001,
     +    -.00001,    .00016,    .00030,
     +     .07495,    .01978,   -.00489,    .00034,   -.00001,
     +    -.00001,    .00014,    .00027,
     +     .07171,    .01887,   -.00452,    .00032,   -.00001,
     +    -.00001,    .00014,    .00025,
     +     .06876,    .01804,   -.00420,    .00030,   -.00001,
     +    -.00001,    .00013,    .00024 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
     +     .06593,    .01725,   -.00392,    .00031,   -.00001,
     +    -.00001,    .00013,    .00023,
     +     .06326,    .01650,   -.00365,    .00030,    .00000,
     +     .00000,    .00012,    .00022,
     +     .06083,    .01583,   -.00340,    .00027,    .00000,
     +     .00000,    .00012,    .00020,
     +     .05862,    .01522,   -.00317,    .00026,    .00000,
     +     .00000,    .00011,    .00019,
     +     .05650,    .01463,   -.00296,    .00025,    .00000,
     +     .00000,    .00010,    .00017 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
     +     .38093,    .11432,   -.08319,    .00229,    .00000,
     +     .00000,    .00114,    .00208,
     +     .35630,    .10595,   -.07524,    .00207,    .00000,
     +     .00000,    .00103,    .00191,
     +     .32338,    .09498,   -.06472,    .00172,   -.00016,
     +     .00000,    .00089,    .00171,
     +     .30184,    .08794,   -.05856,    .00155,   -.00013,
     +     .00000,    .00081,    .00157,
     +     .28084,    .08120,   -.05269,    .00149,   -.00011,
     +     .00000,    .00079,    .00133,
     +     .26423,    .07584,   -.04809,    .00138,   -.00010,
     +     .00000,    .00070,    .00123,
     +     .24939,    .07112,   -.04403,    .00126,   -.00009,
     +     .00000,    .00063,    .00113,
     +     .23472,    .06651,   -.04017,    .00115,   -.00008,
     +     .00000,    .00057,    .00107 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
     +     .22281,    .06280,   -.03706,    .00107,   -.00007,
     +     .00000,    .00055,    .00095,
     +     .21197,    .05945,   -.03433,    .00100,   -.00006,
     +     .00000,    .00052,    .00089,
     +     .20384,    .05697,   -.03233,    .00096,   -.00006,
     +     .00000,    .00049,    .00084,
     +     .18767,    .05202,   -.02844,    .00086,   -.00005,
     +     .00000,    .00045,    .00076,
     +     .17509,    .04820,   -.02555,    .00074,   -.00004,
     +    -.00004,    .00042,    .00071,
     +     .16213,    .04432,   -.02275,    .00068,   -.00003,
     +    -.00003,    .00036,    .00063,
     +     .14981,    .04069,   -.02022,    .00064,   -.00003,
     +    -.00003,    .00032,    .00056,
     +     .13959,    .03769,   -.01813,    .00057,   -.00002,
     +    -.00002,    .00030,    .00050 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
     +     .13011,    .03492,   -.01627,    .00051,   -.00002,
     +    -.00002,    .00027,    .00046,
     +     .12280,    .03281,   -.01489,    .00047,   -.00002,
     +    -.00002,    .00024,    .00044,
     +     .11453,    .03043,   -.01337,    .00044,   -.00002,
     +    -.00002,    .00023,    .00040,
     +     .10778,    .02850,   -.01218,    .00042,   -.00001,
     +    -.00001,    .00022,    .00037,
     +     .10201,    .02684,   -.01116,    .00036,   -.00001,
     +    -.00001,    .00021,    .00036,
     +     .09513,    .02492,   -.00999,    .00037,   -.00001,
     +    -.00001,    .00019,    .00030,
     +     .08918,    .02326,   -.00901,    .00033,   -.00001,
     +    -.00001,    .00016,    .00027,
     +     .08402,    .02180,   -.00816,    .00029,   -.00001,
     +    -.00001,    .00015,    .00026 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
     +     .07915,    .02046,   -.00743,    .00028,   -.00001,
     +    -.00001,    .00015,    .00024,
     +     .07471,    .01924,   -.00678,    .00027,   -.00001,
     +    -.00001,    .00014,    .00022,
     +     .07078,    .01816,   -.00620,    .00024,   -.00001,
     +    -.00001,    .00013,    .00021,
     +     .06728,    .01720,   -.00570,    .00023,   -.00001,
     +    -.00001,    .00011,    .00020,
     +     .06395,    .01629,   -.00524,    .00022,    .00000,
     +     .00000,    .00010,    .00019,
     +     .06086,    .01546,   -.00483,    .00020,    .00000,
     +     .00000,    .00010,    .00017,
     +     .05809,    .01470,   -.00447,    .00020,    .00000,
     +     .00000,    .00010,    .00016,
     +     .05558,    .01404,   -.00415,    .00019,    .00000,
     +     .00000,    .00009,    .00015 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
     +     .05320,    .01339,   -.00386,    .00018,    .00000,
     +     .00000,    .00009,    .00013,
     +     .05094,    .01278,   -.00358,    .00017,    .00000,
     +     .00000,    .00008,    .00012,
     +     .04890,    .01225,   -.00335,    .00015,    .00000,
     +     .00000,    .00008,    .00012,
     +     .04705,    .01175,   -.00314,    .00014,    .00000,
     +     .00000,    .00008,    .00013,
     +     .04522,    .01127,   -.00295,    .00014,    .00000,
     +     .00000,    .00008,    .00012 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
     +     .34227,    .09877,   -.08929,    .00175,    .00000,
     +     .00000,    .00067,    .00138,
     +     .31833,    .09109,   -.08016,    .00159,    .00000,
     +     .00000,    .00059,    .00127,
     +     .28683,    .08108,   -.06839,    .00140,   -.00011,
     +     .00000,    .00049,    .00104,
     +     .26638,    .07472,   -.06139,    .00124,   -.00009,
     +     .00000,    .00047,    .00090,
     +     .24677,    .06866,   -.05483,    .00108,   -.00008,
     +     .00000,    .00040,    .00081,
     +     .23112,    .06388,   -.04977,    .00099,   -.00007,
     +     .00000,    .00038,    .00075,
     +     .21730,    .05969,   -.04544,    .00092,   -.00006,
     +     .00000,    .00035,    .00069,
     +     .20372,    .05560,   -.04127,    .00086,   -.00005,
     +     .00000,    .00032,    .00062 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
     +     .19267,    .05230,   -.03797,    .00080,   -.00005,
     +     .00000,    .00031,    .00060,
     +     .18272,    .04934,   -.03502,    .00073,   -.00004,
     +     .00000,    .00030,    .00056,
     +     .17528,    .04711,   -.03284,    .00069,   -.00004,
     +     .00000,    .00028,    .00051,
     +     .16053,    .04284,   -.02874,    .00062,   -.00003,
     +     .00000,    .00024,    .00047,
     +     .14908,    .03956,   -.02573,    .00059,   -.00003,
     +    -.00003,    .00022,    .00041,
     +     .13739,    .03621,   -.02282,    .00053,   -.00002,
     +    -.00002,    .00020,    .00038,
     +     .12641,    .03307,   -.02014,    .00045,   -.00002,
     +    -.00002,    .00018,    .00034,
     +     .11733,    .03050,   -.01804,    .00040,   -.00002,
     +    -.00002,    .00016,    .00032 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
     +     .10890,    .02813,   -.01611,    .00037,   -.00001,
     +    -.00001,    .00015,    .00029,
     +     .10241,    .02634,   -.01468,    .00034,   -.00001,
     +    -.00001,    .00014,    .00026,
     +     .09516,    .02435,   -.01313,    .00033,   -.00001,
     +    -.00001,    .00013,    .00021,
     +     .08923,    .02273,   -.01190,    .00030,   -.00001,
     +    -.00001,    .00011,    .00020,
     +     .08420,    .02135,   -.01087,    .00028,   -.00001,
     +    -.00001,    .00010,    .00019,
     +     .07824,    .01974,   -.00972,    .00026,   -.00001,
     +    -.00001,    .00010,    .00018,
     +     .07308,    .01835,   -.00875,    .00023,   -.00001,
     +    -.00001,    .00009,    .00017,
     +     .06863,    .01716,   -.00794,    .00021,   -.00001,
     +    -.00001,    .00009,    .00017 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
     +     .06447,    .01604,   -.00718,    .00019,   -.00001,
     +    -.00001,    .00008,    .00014,
     +     .06066,    .01505,   -.00653,    .00018,    .00000,
     +     .00000,    .00007,    .00013,
     +     .05732,    .01416,   -.00597,    .00017,    .00000,
     +     .00000,    .00007,    .00012,
     +     .05433,    .01338,   -.00549,    .00016,    .00000,
     +     .00000,    .00007,    .00012,
     +     .05150,    .01265,   -.00503,    .00016,    .00000,
     +     .00000,    .00005,    .00010,
     +     .04890,    .01196,   -.00463,    .00014,    .00000,
     +     .00000,    .00005,    .00010,
     +     .04659,    .01136,   -.00428,    .00012,    .00000,
     +     .00000,    .00006,    .00010,
     +     .04447,    .01081,   -.00398,    .00013,    .00000,
     +     .00000,    .00006,    .00009 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
     +     .04243,    .01029,   -.00369,    .00013,    .00000,
     +     .00000,    .00004,    .00009,
     +     .04054,    .00981,   -.00344,    .00013,    .00000,
     +     .00000,    .00004,    .00008,
     +     .03883,    .00937,   -.00320,    .00012,    .00000,
     +     .00000,    .00005,    .00008,
     +     .03729,    .00898,   -.00300,    .00012,    .00000,
     +     .00000,    .00005,    .00007,
     +     .03578,    .00859,   -.00280,    .00011,    .00000,
     +     .00000,    .00003,    .00007 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
     +     .30297,    .08349,   -.09057,    .00100,    .00000,
     +     .00000,    .00055,    .00102,
     +     .28042,    .07664,   -.08080,    .00087,    .00000,
     +     .00000,    .00049,    .00086,
     +     .25065,    .06779,   -.06850,    .00083,   -.00008,
     +     .00000,    .00042,    .00070,
     +     .23160,    .06215,   -.06121,    .00076,   -.00006,
     +     .00000,    .00037,    .00066,
     +     .21346,    .05677,   -.05436,    .00065,   -.00005,
     +     .00000,    .00033,    .00059,
     +     .19912,    .05264,   -.04914,    .00058,   -.00005,
     +     .00000,    .00030,    .00054,
     +     .18642,    .04900,   -.04464,    .00053,   -.00004,
     +     .00000,    .00029,    .00049,
     +     .17401,    .04546,   -.04035,    .00050,   -.00004,
     +     .00000,    .00028,    .00041 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
     +     .16400,    .04264,   -.03696,    .00048,   -.00003,
     +     .00000,    .00023,    .00040,
     +     .15500,    .04009,   -.03397,    .00044,   -.00003,
     +     .00000,    .00021,    .00037,
     +     .14829,    .03822,   -.03182,    .00041,   -.00003,
     +     .00000,    .00021,    .00034,
     +     .13510,    .03454,   -.02767,    .00034,   -.00002,
     +     .00000,    .00019,    .00031,
     +     .12493,    .03173,   -.02469,    .00032,   -.00002,
     +    -.00002,    .00019,    .00028,
     +     .11461,    .02891,   -.02178,    .00028,   -.00002,
     +    -.00002,    .00015,    .00026,
     +     .10489,    .02628,   -.01912,    .00024,   -.00001,
     +    -.00001,    .00013,    .00024,
     +     .09690,    .02413,   -.01702,    .00023,   -.00001,
     +    -.00001,    .00013,    .00019 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
     +     .08954,    .02218,   -.01514,    .00022,   -.00001,
     +    -.00001,    .00011,    .00018,
     +     .08391,    .02069,   -.01375,    .00021,   -.00001,
     +    -.00001,    .00010,    .00017,
     +     .07764,    .01905,   -.01224,    .00017,   -.00001,
     +    -.00001,    .00009,    .00017,
     +     .07256,    .01772,   -.01106,    .00016,   -.00001,
     +    -.00001,    .00009,    .00015,
     +     .06823,    .01660,   -.01007,    .00014,   -.00001,
     +    -.00001,    .00007,    .00014,
     +     .06315,    .01529,   -.00897,    .00015,    .00000,
     +     .00000,    .00007,    .00011,
     +     .05877,    .01415,   -.00803,    .00014,    .00000,
     +     .00000,    .00006,    .00009,
     +     .05499,    .01318,   -.00726,    .00012,    .00000,
     +     .00000,    .00006,    .00009 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
     +     .05148,    .01230,   -.00656,    .00011,    .00000,
     +     .00000,    .00004,    .00010,
     +     .04829,    .01149,   -.00594,    .00009,    .00000,
     +     .00000,    .00004,    .00008,
     +     .04548,    .01079,   -.00542,    .00009,    .00000,
     +     .00000,    .00005,    .00007,
     +     .04300,    .01015,   -.00497,    .00008,    .00000,
     +     .00000,    .00005,    .00007,
     +     .04068,    .00957,   -.00456,    .00007,    .00000,
     +     .00000,    .00005,    .00007,
     +     .03852,    .00903,   -.00419,    .00007,    .00000,
     +     .00000,    .00005,    .00007,
     +     .03657,    .00855,   -.00386,    .00007,    .00000,
     +     .00000,    .00003,    .00007,
     +     .03483,    .00813,   -.00358,    .00007,    .00000,
     +     .00000,    .00003,    .00006 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
     +     .03318,    .00772,   -.00331,    .00006,    .00000,
     +     .00000,    .00003,    .00006,
     +     .03163,    .00734,   -.00308,    .00006,    .00000,
     +     .00000,    .00003,    .00005,
     +     .03023,    .00699,   -.00285,    .00006,    .00000,
     +     .00000,    .00002,    .00005,
     +     .02896,    .00668,   -.00267,    .00006,    .00000,
     +     .00000,    .00002,    .00005,
     +     .02774,    .00639,   -.00249,    .00005,    .00000,
     +     .00000,    .00002,    .00005 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
     +     .22739,    .05738,   -.08412,    .00047,    .00000,
     +     .00000,    .00019,    .00034,
     +     .20817,    .05210,   -.07428,    .00040,    .00000,
     +     .00000,    .00017,    .00032,
     +     .18333,    .04537,   -.06217,    .00035,   -.00003,
     +     .00000,    .00015,    .00030,
     +     .16758,    .04117,   -.05490,    .00030,   -.00003,
     +     .00000,    .00014,    .00025,
     +     .15281,    .03722,   -.04823,    .00023,   -.00002,
     +     .00000,    .00013,    .00022,
     +     .14120,    .03419,   -.04322,    .00024,   -.00002,
     +     .00000,    .00012,    .00020,
     +     .13109,    .03155,   -.03893,    .00022,   -.00002,
     +     .00000,    .00010,    .00019,
     +     .12131,    .02901,   -.03487,    .00015,   -.00002,
     +     .00000,    .00009,    .00020 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
     +     .11346,    .02703,   -.03174,    .00016,   -.00001,
     +     .00000,    .00009,    .00017,
     +     .10647,    .02523,   -.02900,    .00017,   -.00001,
     +     .00000,    .00009,    .00016,
     +     .10131,    .02393,   -.02696,    .00016,   -.00001,
     +     .00000,    .00006,    .00013,
     +     .09125,    .02138,   -.02319,    .00013,   -.00001,
     +     .00000,    .00005,    .00012,
     +     .08360,    .01947,   -.02049,    .00010,   -.00001,
     +    -.00001,    .00005,    .00010,
     +     .07589,    .01756,   -.01791,    .00010,   -.00001,
     +    -.00001,    .00005,    .00010,
     +     .06874,    .01581,   -.01555,    .00009,   -.00001,
     +    -.00001,    .00004,    .00008,
     +     .06293,    .01438,   -.01372,    .00008,    .00000,
     +     .00000,    .00004,    .00006 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
     +     .05764,    .01310,   -.01213,    .00008,    .00000,
     +     .00000,    .00004,    .00007,
     +     .05366,    .01213,   -.01093,    .00006,    .00000,
     +     .00000,    .00004,    .00005,
     +     .04921,    .01107,   -.00967,    .00008,    .00000,
     +     .00000,    .00002,    .00005,
     +     .04562,    .01022,   -.00866,    .00007,    .00000,
     +     .00000,    .00002,    .00005,
     +     .04263,    .00951,   -.00785,    .00007,    .00000,
     +     .00000,    .00002,    .00004,
     +     .03915,    .00869,   -.00693,    .00004,    .00000,
     +     .00000,    .00003,    .00004,
     +     .03615,    .00798,   -.00618,    .00004,    .00000,
     +     .00000,    .00003,    .00004,
     +     .03359,    .00740,   -.00555,    .00004,    .00000,
     +     .00000,    .00003,    .00004 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
     +     .03122,    .00684,   -.00498,    .00004,    .00000,
     +     .00000,    .00003,    .00002,
     +     .02909,    .00634,   -.00450,    .00004,    .00000,
     +     .00000,    .00003,    .00003,
     +     .02723,    .00592,   -.00406,    .00004,    .00000,
     +     .00000,    .00001,    .00002,
     +     .02560,    .00555,   -.00371,    .00002,    .00000,
     +     .00000,    .00001,    .00003,
     +     .02408,    .00520,   -.00339,    .00002,    .00000,
     +     .00000,    .00001,    .00003,
     +     .02266,    .00487,   -.00310,    .00002,    .00000,
     +     .00000,    .00001,    .00003,
     +     .02140,    .00459,   -.00284,    .00002,    .00000,
     +     .00000,    .00001,    .00003,
     +     .02029,    .00434,   -.00262,    .00002,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/
     +     .01924,    .00411,   -.00241,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01825,    .00389,   -.00223,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01736,    .00368,   -.00208,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01656,    .00352,   -.00193,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01579,    .00333,   -.00180,    .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)/
     +     .15899,    .03629,   -.06919,    .00013,    .00000,
     +     .00000,    .00006,    .00014,
     +     .14383,    .03259,   -.06056,    .00015,    .00000,
     +     .00000,    .00006,    .00014,
     +     .12462,    .02795,   -.04985,    .00007,   -.00001,
     +     .00000,    .00006,    .00008,
     +     .11264,    .02507,   -.04361,    .00009,   -.00001,
     +     .00000,    .00003,    .00009,
     +     .10145,    .02243,   -.03794,    .00009,   -.00001,
     +     .00000,    .00006,    .00006,
     +     .09287,    .02041,   -.03365,    .00007,   -.00001,
     +     .00000,    .00004,    .00006,
     +     .08541,    .01866,   -.03006,    .00008,   -.00001,
     +     .00000,    .00004,    .00004,
     +     .07825,    .01701,   -.02669,    .00010,   -.00001,
     +     .00000,    .00001,    .00002 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
     +     .07266,    .01570,   -.02411,    .00008,   -.00001,
     +     .00000,    .00001,    .00002,
     +     .06769,    .01457,   -.02190,    .00006,    .00000,
     +     .00000,    .00001,    .00003,
     +     .06403,    .01373,   -.02031,    .00004,    .00000,
     +     .00000,    .00003,    .00005,
     +     .05694,    .01213,   -.01727,    .00006,    .00000,
     +     .00000,    .00002,    .00003,
     +     .05164,    .01093,   -.01511,    .00004,    .00000,
     +     .00000,    .00002,    .00003,
     +     .04638,    .00976,   -.01306,    .00002,    .00000,
     +     .00000,    .00002,    .00003,
     +     .04155,    .00868,   -.01125,    .00002,    .00000,
     +     .00000,    .00002,    .00003,
     +     .03765,    .00782,   -.00983,    .00002,    .00000,
     +     .00000,    .00002,    .00003 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
     +     .03416,    .00706,   -.00858,    .00001,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03154,    .00649,   -.00770,    .00002,    .00000,
     +     .00000,    .00002,    .00002,
     +     .02865,    .00586,   -.00674,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02637,    .00537,   -.00601,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02445,    .00496,   -.00540,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02224,    .00449,   -.00471,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02037,    .00409,   -.00418,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01878,    .00376,   -.00373,    .00001,    .00000,
     +     .00000,    .00000,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
     +     .01733,    .00345,   -.00332,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01602,    .00318,   -.00297,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01489,    .00295,   -.00269,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01392,    .00274,   -.00243,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01300,    .00256,   -.00222,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01217,    .00239,   -.00201,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01143,    .00223,   -.00184,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01077,    .00209,   -.00169,    .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=33,37)/
     +     .01016,    .00197,   -.00154,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00959,    .00186,   -.00143,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00908,    .00176,   -.00131,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00863,    .00166,   -.00122,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00819,    .00157,   -.00113,    .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)/
     +     .10129,    .02069,   -.05053,    .00010,    .00000,
     +     .00000,   -.00001,    .00002,
     +     .09047,    .01836,   -.04363,    .00007,    .00000,
     +     .00000,   -.00003,    .00002,
     +     .07696,    .01543,   -.03541,    .00007,    .00000,
     +     .00000,    .00000,    .00000,
     +     .06872,    .01369,   -.03066,    .00004,    .00000,
     +     .00000,    .00000,    .00002,
     +     .06109,    .01209,   -.02636,    .00004,    .00000,
     +     .00000,    .00000,    .00002,
     +     .05533,    .01090,   -.02320,    .00004,    .00000,
     +     .00000,    .00000,    .00002,
     +     .05039,    .00987,   -.02052,    .00002,    .00000,
     +     .00000,    .00000,    .00002,
     +     .04571,    .00891,   -.01808,    .00002,    .00000,
     +     .00000,    .00000,    .00002 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
     +     .04204,    .00814,   -.01619,    .00002,    .00000,
     +     .00000,    .00000,    .00002,
     +     .03881,    .00750,   -.01457,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03647,    .00702,   -.01342,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03201,    .00611,   -.01128,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02869,    .00544,   -.00977,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02545,    .00480,   -.00836,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02251,    .00423,   -.00712,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02018,    .00377,   -.00616,    .00002,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/
     +     .01811,    .00336,   -.00534,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01656,    .00305,   -.00473,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01490,    .00274,   -.00410,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01358,    .00248,   -.00362,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01249,    .00228,   -.00325,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01124,    .00205,   -.00282,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01020,    .00184,   -.00247,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00933,    .00167,   -.00217,    .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)/
     +     .00852,    .00153,   -.00192,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00783,    .00140,   -.00172,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00721,    .00129,   -.00153,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00669,    .00119,   -.00138,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00620,    .00110,   -.00124,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00577,    .00102,   -.00113,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00538,    .00095,   -.00102,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00504,    .00089,   -.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)/
     +     .00472,    .00083,   -.00085,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00444,    .00077,   -.00078,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00418,    .00073,   -.00071,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00395,    .00069,   -.00067,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00372,    .00064,   -.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)/
     +     .05655,    .00999,   -.03160,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04979,    .00877,   -.02707,    .00000,    .00000,
     +     .00000,    .00003,    .00000,
     +     .04149,    .00727,   -.02164,    .00000,    .00000,
     +     .00000,    .00000,    .00002,
     +     .03651,    .00634,   -.01844,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03199,    .00551,   -.01566,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02861,    .00492,   -.01363,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02577,    .00443,   -.01198,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02307,    .00392,   -.01041,    .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)/
     +     .02100,    .00358,   -.00927,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01920,    .00324,   -.00826,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01791,    .00302,   -.00757,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01545,    .00259,   -.00625,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01366,    .00228,   -.00535,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01195,    .00198,   -.00451,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01041,    .00170,   -.00378,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00922,    .00150,   -.00324,    .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)/
     +     .00816,    .00134,   -.00278,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00738,    .00120,   -.00243,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00656,    .00107,   -.00210,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00592,    .00095,   -.00183,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00538,    .00085,   -.00161,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00479,    .00077,   -.00139,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00429,    .00069,   -.00120,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00388,    .00061,   -.00106,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/
     +     .00352,    .00055,   -.00092,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00319,    .00050,   -.00082,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00292,    .00046,   -.00072,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00268,    .00043,   -.00064,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00246,    .00038,   -.00057,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00227,    .00036,   -.00052,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00211,    .00033,   -.00047,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00197,    .00030,   -.00042,    .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)/
     +     .00183,    .00028,   -.00038,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00170,    .00026,   -.00035,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00159,    .00024,   -.00031,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00149,    .00023,   -.00029,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00140,    .00022,   -.00026,    .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)/
     +     .00825,    .00104,   -.00578,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00695,    .00086,   -.00474,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00544,    .00067,   -.00358,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00459,    .00057,   -.00294,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00385,    .00048,   -.00240,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00332,    .00039,   -.00202,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00288,    .00034,   -.00170,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00249,    .00031,   -.00144,    .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)/
     +     .00219,    .00026,   -.00124,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00195,    .00023,   -.00108,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00178,    .00021,   -.00097,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00147,    .00018,   -.00078,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00125,    .00015,   -.00065,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00104,    .00013,   -.00052,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00088,    .00011,   -.00042,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00074,    .00009,   -.00035,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/
     +     .00064,    .00007,   -.00029,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00056,    .00007,   -.00025,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00048,    .00005,   -.00020,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00041,    .00005,   -.00017,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00037,    .00005,   -.00015,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00032,    .00003,   -.00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00027,    .00003,   -.00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00024,    .00003,   -.00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
     +     .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='ft11d.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