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

sfmrs_98d2.F

#include "pdf/pilot.h"
      subroutine sfmrs_98d2(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)/
     +     .00633,    .00311,   1.14392,    .89438,    .00000,
     +     .00000,    .48061,    .90764,
     +     .00647,    .00317,   2.36832,    .93385,    .00000,
     +     .00000,    .52497,    .94724,
     +     .00668,    .00324,   4.76149,   1.01541,    .05290,
     +     .00000,    .61357,   1.02896,
     +     .00684,    .00331,   7.11672,   1.09185,    .13518,
     +     .00000,    .69498,   1.10550,
     +     .00701,    .00336,  10.13798,   1.19087,    .22724,
     +     .00000,    .79911,   1.20459,
     +     .00716,    .00342,  13.24386,   1.29192,    .32134,
     +     .00000,    .90447,   1.30571,
     +     .00729,    .00348,  16.74708,   1.40164,    .42795,
     +     .00000,   1.01823,   1.41549,
     +     .00745,    .00354,  21.06366,   1.53279,    .55824,
     +     .00000,   1.15357,   1.54669 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
     +     .00758,    .00360,  25.26889,   1.66106,    .68271,
     +     .00000,   1.28541,   1.67500,
     +     .00770,    .00365,  29.78732,   1.79707,    .81579,
     +     .00000,   1.42480,   1.81103,
     +     .00781,    .00370,  33.74889,   1.91335,    .93236,
     +     .00000,   1.54371,   1.92733,
     +     .00803,    .00379,  43.31359,   2.18968,   1.20620,
     +     .00000,   1.82554,   2.20369,
     +     .00823,    .00388,  52.13549,   2.45927,   1.47270,
     +     .35330,   2.09975,   2.47329,
     +     .00846,    .00398,  63.64087,   2.79794,   1.80955,
     +     .74197,   2.44348,   2.81197,
     +     .00869,    .00408,  77.14781,   3.19377,   2.20408,
     +    1.15413,   2.84443,   3.20779,
     +     .00891,    .00418,  90.79831,   3.59308,   2.60281,
     +    1.57114,   3.24826,   3.60708 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
     +     .00912,    .00428, 105.96921,   4.03695,   3.04715,
     +    2.03410,   3.69657,   4.05093,
     +     .00932,    .00437, 119.58295,   4.43747,   3.44712,
     +    2.44601,   4.10068,   4.45142,
     +     .00954,    .00447, 137.33309,   4.96295,   3.97126,
     +    2.98376,   4.63045,   4.97687,
     +     .00975,    .00456, 154.29370,   5.46657,   4.47525,
     +    3.50335,   5.13774,   5.48044,
     +     .00993,    .00465, 170.90085,   5.96176,   4.97174,
     +    4.01556,   5.63625,   5.97560,
     +     .01018,    .00476, 193.14832,   6.63353,   5.64232,
     +    4.70066,   6.31213,   6.64731,
     +     .01041,    .00487, 215.53217,   7.31399,   6.32313,
     +    5.39817,   6.99636,   7.32771,
     +     .01062,    .00497, 237.89236,   7.99742,   7.00897,
     +    6.10328,   7.68325,   8.01108 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
     +     .01085,    .00508, 261.11618,   8.71874,   7.72910,
     +    6.83635,   8.40796,   8.73234,
     +     .01106,    .00519, 285.13487,   9.46922,   8.48055,
     +    7.60438,   9.16167,   9.48275,
     +     .01127,    .00529, 308.95500,  10.21990,   9.23270,
     +    8.37299,   9.91537,  10.23338,
     +     .01147,    .00538, 332.12072,  10.95936,   9.97202,
     +    9.12560,  10.65761,  10.97276,
     +     .01168,    .00548, 356.55433,  11.74275,  10.75770,
     +    9.92845,  11.44373,  11.75608,
     +     .01187,    .00558, 381.08114,  12.54125,  11.55577,
     +   10.73927,  12.24490,  12.55452,
     +     .01206,    .00567, 405.53654,  13.33994,  12.35690,
     +   11.55687,  13.04606,  13.35315,
     +     .01225,    .00576, 428.98582,  14.11736,  13.13408,
     +   12.34586,  13.82580,  14.13050 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
     +     .01244,    .00585, 453.61158,  14.93700,  13.95558,
     +   13.18241,  14.64774,  14.95009,
     +     .01262,    .00595, 478.36330,  15.77066,  14.78999,
     +   14.03006,  15.48364,  15.78370,
     +     .01280,    .00603, 502.64206,  16.59465,  15.61508,
     +   14.86841,  16.30972,  16.60762,
     +     .01297,    .00612, 526.35150,  17.40418,  16.42664,
     +   15.69397,  17.12122,  17.41710,
     +     .01315,    .00620, 550.51563,  18.24012,  17.26282,
     +   16.54167,  17.95913,  18.25298 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
     +     .00869,    .00423,   1.05713,    .75928,    .00000,
     +     .00000,    .40785,    .76709,
     +     .00887,    .00430,   2.16285,    .79570,    .00000,
     +     .00000,    .44808,    .80359,
     +     .00916,    .00442,   4.27428,    .86771,    .04684,
     +     .00000,    .52551,    .87568,
     +     .00937,    .00451,   6.30951,    .93340,    .11739,
     +     .00000,    .59505,    .94142,
     +     .00961,    .00460,   8.87464,   1.01687,    .19476,
     +     .00000,    .68247,   1.02494,
     +     .00980,    .00469,  11.47070,   1.10085,    .27285,
     +     .00000,    .76978,   1.10897,
     +     .00999,    .00478,  14.36158,   1.19121,    .36046,
     +     .00000,    .86324,   1.19935,
     +     .01019,    .00486,  17.87948,   1.29828,    .46648,
     +     .00000,    .97354,   1.30646 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
     +     .01038,    .00495,  21.26568,   1.40206,    .56683,
     +     .00000,   1.08006,   1.41025,
     +     .01055,    .00502,  24.86737,   1.51133,    .67333,
     +     .00000,   1.19193,   1.51953,
     +     .01069,    .00508,  27.99928,   1.60427,    .76606,
     +     .00000,   1.28690,   1.61250,
     +     .01099,    .00522,  35.47525,   1.82329,    .98201,
     +     .00000,   1.51015,   1.83152,
     +     .01127,    .00534,  42.25191,   2.03486,   1.19005,
     +     .27601,   1.72528,   2.04310,
     +     .01157,    .00548,  50.98762,   2.29825,   1.45054,
     +     .57679,   1.99256,   2.30650,
     +     .01188,    .00563,  61.10448,   2.60317,   1.75267,
     +     .89192,   2.30139,   2.61141,
     +     .01218,    .00577,  71.20002,   2.90800,   2.05523,
     +    1.20775,   2.60970,   2.91624 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
     +     .01247,    .00591,  82.29069,   3.24404,   2.38959,
     +    1.55533,   2.94915,   3.25228,
     +     .01273,    .00602,  92.13943,   3.54494,   2.68823,
     +    1.86210,   3.25282,   3.55316,
     +     .01304,    .00618, 104.85053,   3.93677,   3.07669,
     +    2.25953,   3.64792,   3.94497,
     +     .01331,    .00630, 116.87706,   4.30953,   3.44750,
     +    2.64077,   4.02351,   4.31771,
     +     .01357,    .00643, 128.55175,   4.67366,   3.81045,
     +    3.01419,   4.39019,   4.68182,
     +     .01390,    .00659, 144.04049,   5.16403,   4.29709,
     +    3.50985,   4.88372,   5.17216,
     +     .01420,    .00673, 159.47539,   5.65710,   4.78760,
     +    4.01091,   5.37967,   5.66519,
     +     .01450,    .00688, 174.76172,   6.14899,   5.27855,
     +    4.51424,   5.87422,   6.15706 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
     +     .01479,    .00703, 190.49539,   6.66457,   5.79043,
     +    5.03367,   6.39240,   6.67261,
     +     .01509,    .00717, 206.64128,   7.19768,   6.32142,
     +    5.57480,   6.92800,   7.20568,
     +     .01537,    .00731, 222.53323,   7.72778,   6.84981,
     +    6.11320,   7.46041,   7.73575,
     +     .01563,    .00744, 237.87297,   8.24690,   7.36618,
     +    6.63726,   7.98167,   8.25484,
     +     .01590,    .00758, 253.95277,   8.79409,   7.91232,
     +    7.19380,   8.53097,   8.80200,
     +     .01617,    .00771, 269.97499,   9.34868,   8.46387,
     +    7.75248,   9.08761,   9.35655,
     +     .01642,    .00784, 285.86359,   9.90085,   9.01518,
     +    8.31361,   9.64170,   9.90871,
     +     .01667,    .00796, 300.99577,  10.43556,   9.54720,
     +    8.85212,  10.17818,  10.44337 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
     +     .01692,    .00808, 316.80835,  10.99695,  10.10734,
     +    9.42098,  10.74135,  11.00474,
     +     .01717,    .00822, 332.60647,  11.56527,  10.67361,
     +    9.99464,  11.31138,  11.57302,
     +     .01740,    .00833, 348.02279,  12.12462,  11.23130,
     +   10.55974,  11.87235,  12.13235,
     +     .01763,    .00845, 363.00681,  12.67204,  11.77778,
     +   11.11422,  12.42129,  12.67974,
     +     .01787,    .00857, 378.19215,  13.23487,  12.33835,
     +   11.68094,  12.98563,  13.24254 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
     +     .01190,    .00574,    .97586,    .64487,    .00000,
     +     .00000,    .34675,    .64892,
     +     .01216,    .00585,   1.97436,    .67819,    .00000,
     +     .00000,    .38299,    .68227,
     +     .01254,    .00602,   3.83597,    .74148,    .04169,
     +     .00000,    .45047,    .74560,
     +     .01283,    .00615,   5.59313,    .79779,    .10208,
     +     .00000,    .50975,    .80192,
     +     .01314,    .00629,   7.76811,    .86801,    .16697,
     +     .00000,    .58300,    .87215,
     +     .01341,    .00642,   9.93429,    .93765,    .23164,
     +     .00000,    .65518,    .94180,
     +     .01367,    .00654,  12.31503,   1.01185,    .30346,
     +     .00000,    .73178,   1.01602,
     +     .01396,    .00667,  15.17541,   1.09901,    .38954,
     +     .00000,    .82142,   1.10319 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
     +     .01420,    .00678,  17.89486,   1.18273,    .47026,
     +     .00000,    .90724,   1.18691,
     +     .01444,    .00689,  20.75754,   1.27023,    .55529,
     +     .00000,    .99672,   1.27441,
     +     .01462,    .00699,  23.22598,   1.34426,    .62890,
     +     .00000,   1.07232,   1.34846,
     +     .01503,    .00717,  29.05018,   1.51722,    .79879,
     +     .00000,   1.24850,   1.52142,
     +     .01539,    .00735,  34.23548,   1.68261,    .96078,
     +     .21496,   1.41661,   1.68682,
     +     .01580,    .00755,  40.84044,   1.88662,   1.16169,
     +     .44750,   1.62359,   1.89083,
     +     .01624,    .00776,  48.38382,   2.12050,   1.39242,
     +     .68814,   1.86046,   2.12471,
     +     .01664,    .00795,  55.81407,   2.35218,   1.62136,
     +     .92705,   2.09477,   2.35638 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
     +     .01705,    .00816,  63.88035,   2.60541,   1.87222,
     +    1.18767,   2.35060,   2.60960,
     +     .01739,    .00832,  70.96682,   2.83040,   2.09454,
     +    1.41580,   2.57769,   2.83458,
     +     .01780,    .00853,  80.01763,   3.12114,   2.38150,
     +    1.70904,   2.87092,   3.12532,
     +     .01817,    .00871,  88.49480,   3.39566,   2.65343,
     +    1.98829,   3.14759,   3.39984,
     +     .01851,    .00888,  96.65139,   3.66207,   2.91785,
     +    2.26001,   3.41593,   3.66624,
     +     .01895,    .00910, 107.36499,   4.01815,   3.26974,
     +    2.61788,   3.77442,   4.02231,
     +     .01937,    .00931, 117.93656,   4.37351,   3.62184,
     +    2.97703,   4.13198,   4.37766,
     +     .01977,    .00951, 128.31450,   4.72563,   3.97192,
     +    3.33548,   4.48611,   4.72977 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
     +     .02016,    .00971, 138.89572,   5.09209,   4.33432,
     +    3.70260,   4.85455,   5.09623,
     +     .02056,    .00992, 149.66790,   5.46866,   4.70798,
     +    4.08283,   5.23301,   5.47278,
     +     .02093,    .01010, 160.18849,   5.84083,   5.07763,
     +    4.45892,   5.60694,   5.84493,
     +     .02128,    .01029, 170.26448,   6.20312,   5.43670,
     +    4.82275,   5.97086,   6.20722,
     +     .02165,    .01047, 180.75988,   6.58307,   5.81464,
     +    5.20736,   6.35242,   6.58716,
     +     .02200,    .01065, 191.13743,   6.96591,   6.19407,
     +    5.59104,   6.73681,   6.96998,
     +     .02235,    .01083, 201.37099,   7.34531,   6.57167,
     +    5.97485,   7.11767,   7.34939,
     +     .02268,    .01100, 211.04816,   7.71077,   6.93409,
     +    6.34108,   7.48448,   7.71483 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
     +     .02300,    .01117, 221.10939,   8.09286,   7.31416,
     +    6.72653,   7.86792,   8.09691,
     +     .02333,    .01134, 231.09804,   8.47778,   7.69651,
     +    7.11328,   8.25415,   8.48182,
     +     .02365,    .01150, 240.79332,   8.85501,   8.07150,
     +    7.49270,   8.63262,   8.85905,
     +     .02396,    .01166, 250.17130,   9.22275,   8.43758,
     +    7.86362,   9.00151,   9.22678,
     +     .02426,    .01182, 259.61782,   9.59914,   8.81136,
     +    8.24091,   9.37905,   9.60316 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
     +     .01429,    .00687,    .93072,    .58636,    .00000,
     +     .00000,    .31575,    .58885,
     +     .01460,    .00701,   1.87151,    .61783,    .00000,
     +     .00000,    .34973,    .62034,
     +     .01505,    .00722,   3.60043,    .67638,    .03908,
     +     .00000,    .41189,    .67890,
     +     .01540,    .00738,   5.21230,    .72774,    .09414,
     +     .00000,    .46580,    .73026,
     +     .01578,    .00756,   7.18596,    .79110,    .15260,
     +     .00000,    .53175,    .79363,
     +     .01610,    .00771,   9.13277,    .85341,    .21043,
     +     .00000,    .59625,    .85595,
     +     .01641,    .00787,  11.25573,    .91943,    .27427,
     +     .00000,    .66431,    .92197,
     +     .01674,    .00803,  13.78696,    .99658,    .35038,
     +     .00000,    .74358,    .99913 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
     +     .01704,    .00817,  16.17572,   1.07027,    .42133,
     +     .00000,    .81906,   1.07281,
     +     .01732,    .00830,  18.67475,   1.14695,    .49576,
     +     .00000,    .89745,   1.14950,
     +     .01755,    .00841,  20.81881,   1.21164,    .55998,
     +     .00000,    .96346,   1.21419,
     +     .01804,    .00865,  25.84282,   1.36196,    .70741,
     +     .00000,   1.11656,   1.36452,
     +     .01847,    .00886,  30.26764,   1.50485,    .84713,
     +     .18529,   1.26177,   1.50740,
     +     .01897,    .00911,  35.86355,   1.68015,   1.01947,
     +     .38518,   1.43958,   1.68269,
     +     .01949,    .00937,  42.20140,   1.87993,   1.21621,
     +     .59053,   1.64191,   1.88248,
     +     .01997,    .00961,  48.39572,   2.07675,   1.41038,
     +     .79328,   1.84098,   2.07929 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
     +     .02045,    .00985,  55.07255,   2.29081,   1.62206,
     +    1.01328,   2.05725,   2.29335,
     +     .02085,    .01005,  60.90058,   2.48010,   1.80879,
     +    1.20493,   2.24834,   2.48265,
     +     .02135,    .01031,  68.29744,   2.72362,   2.04872,
     +    1.45013,   2.49397,   2.72616,
     +     .02179,    .01052,  75.18367,   2.95253,   2.27510,
     +    1.68263,   2.72471,   2.95507,
     +     .02220,    .01073,  81.77432,   3.17380,   2.49438,
     +    1.90799,   2.94763,   3.17634,
     +     .02272,    .01100,  90.37887,   3.46824,   2.78488,
     +    2.20339,   3.24410,   3.47078,
     +     .02322,    .01126,  98.81925,   3.76078,   3.07429,
     +    2.49858,   3.53851,   3.76333,
     +     .02369,    .01150, 107.06134,   4.04949,   3.36092,
     +    2.79206,   3.82893,   4.05203 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
     +     .02416,    .01174, 115.41668,   4.34869,   3.65635,
     +    3.09127,   4.12982,   4.35123,
     +     .02463,    .01198, 123.88225,   4.65499,   3.95988,
     +    3.40010,   4.43773,   4.65753,
     +     .02507,    .01221, 132.11141,   4.95664,   4.25909,
     +    3.70449,   4.74087,   4.95918,
     +     .02549,    .01243, 139.95535,   5.24923,   4.54870,
     +    3.99786,   5.03485,   5.25177,
     +     .02592,    .01265, 148.09519,   5.55516,   4.85265,
     +    4.30714,   5.34214,   5.55771,
     +     .02635,    .01287, 156.10504,   5.86233,   5.15669,
     +    4.61452,   5.65064,   5.86488,
     +     .02675,    .01309, 163.97810,   6.16593,   5.45853,
     +    4.92128,   5.95548,   6.16848,
     +     .02713,    .01328, 171.39014,   6.45743,   5.74724,
     +    5.21295,   6.24812,   6.45998 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
     +     .02753,    .01349, 179.07328,   6.76144,   6.04932,
     +    5.51926,   6.55327,   6.76398,
     +     .02792,    .01369, 186.67124,   7.06681,   6.35233,
     +    5.82569,   6.85976,   7.06936,
     +     .02829,    .01389, 194.02231,   7.36532,   6.64875,
     +    6.12555,   7.15932,   7.36787,
     +     .02865,    .01408, 201.11195,   7.65563,   6.93750,
     +    6.41808,   7.45063,   7.65819,
     +     .02901,    .01427, 208.22668,   7.95198,   7.23147,
     +    6.71473,   7.74796,   7.95454 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
     +     .01627,    .00781,    .89987,    .54824,    .00000,
     +     .00000,    .29567,    .54989,
     +     .01662,    .00797,   1.80186,    .57839,    .00000,
     +     .00000,    .32808,    .58004,
     +     .01715,    .00822,   3.44219,    .63373,    .03738,
     +     .00000,    .38665,    .63537,
     +     .01754,    .00841,   4.95806,    .68179,    .08891,
     +     .00000,    .43701,    .68344,
     +     .01796,    .00862,   6.79970,    .74063,    .14315,
     +     .00000,    .49818,    .74229,
     +     .01833,    .00879,   8.60372,    .79816,    .19652,
     +     .00000,    .55767,    .79982,
     +     .01868,    .00897,  10.55983,    .85887,    .25522,
     +     .00000,    .62022,    .86054,
     +     .01906,    .00915,  12.87934,    .92955,    .32488,
     +     .00000,    .69280,    .93122 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
     +     .01940,    .00931,  15.05658,    .99678,    .38959,
     +     .00000,    .76164,    .99844,
     +     .01972,    .00947,  17.32414,   1.06655,    .45726,
     +     .00000,    .83293,   1.06821,
     +     .01997,    .00961,  19.26261,   1.12527,    .51549,
     +     .00000,    .89282,   1.12692,
     +     .02054,    .00987,  23.78228,   1.26121,    .64870,
     +     .00000,   1.03125,   1.26287,
     +     .02103,    .01013,  27.73218,   1.38986,    .77439,
     +     .16650,   1.16197,   1.39152,
     +     .02158,    .01041,  32.70132,   1.54706,    .92882,
     +     .34596,   1.32143,   1.54872,
     +     .02218,    .01071,  38.29544,   1.72548,   1.10440,
     +     .52938,   1.50214,   1.72715,
     +     .02272,    .01098,  43.73217,   1.90057,   1.27698,
     +     .70973,   1.67924,   1.90225 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
     +     .02326,    .01126,  49.56230,   2.09032,   1.46446,
     +     .90472,   1.87095,   2.09198,
     +     .02373,    .01149,  54.62750,   2.25755,   1.62929,
     +    1.07397,   2.03979,   2.25922,
     +     .02428,    .01178,  61.02708,   2.47198,   1.84040,
     +    1.28982,   2.25610,   2.47367,
     +     .02479,    .01204,  66.95882,   2.67291,   2.03896,
     +    1.49385,   2.45867,   2.67460,
     +     .02525,    .01227,  72.61410,   2.86660,   2.23076,
     +    1.69106,   2.65382,   2.86829,
     +     .02584,    .01258,  79.96508,   3.12350,   2.48404,
     +    1.94868,   2.91255,   3.12520,
     +     .02640,    .01287,  87.14494,   3.37793,   2.73557,
     +    2.20532,   3.16865,   3.37963,
     +     .02693,    .01315,  94.12939,   3.62831,   2.98401,
     +    2.45979,   3.42056,   3.63002 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
     +     .02746,    .01343, 101.18020,   3.88700,   3.23926,
     +    2.71836,   3.68074,   3.88871,
     +     .02800,    .01371, 108.29926,   4.15113,   3.50085,
     +    2.98458,   3.94630,   4.15285,
     +     .02850,    .01396, 115.19605,   4.41057,   3.75805,
     +    3.24631,   4.20708,   4.41229,
     +     .02897,    .01421, 121.74704,   4.66157,   4.00635,
     +    3.49789,   4.45931,   4.66331,
     +     .02945,    .01447, 128.52670,   4.92345,   4.26642,
     +    3.76259,   4.72242,   4.92520,
     +     .02993,    .01472, 135.17488,   5.18574,   4.52588,
     +    4.02493,   4.98587,   5.18750,
     +     .03038,    .01495, 141.69395,   5.44447,   4.78300,
     +    4.28632,   5.24571,   5.44623,
     +     .03082,    .01519, 147.81134,   5.69230,   5.02835,
     +    4.53422,   5.49458,   5.69406 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
     +     .03126,    .01542, 154.13878,   5.95031,   5.28463,
     +    4.79415,   5.75361,   5.95210,
     +     .03171,    .01566, 160.37807,   6.20894,   5.54114,
     +    5.05360,   6.01324,   6.21073,
     +     .03212,    .01587, 166.40038,   6.46130,   5.79164,
     +    5.30705,   6.26653,   6.46310,
     +     .03252,    .01609, 172.19622,   6.70631,   6.03524,
     +    5.55390,   6.51242,   6.70812,
     +     .03293,    .01631, 177.99640,   6.95592,   6.28276,
     +    5.80371,   6.76291,   6.95774 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
     +     .01799,    .00863,    .87695,    .52046,    .00000,
     +     .00000,    .28106,    .52155,
     +     .01838,    .00881,   1.74998,    .54961,    .00000,
     +     .00000,    .31229,    .55069,
     +     .01896,    .00909,   3.32465,    .60251,    .03614,
     +     .00000,    .36819,    .60360,
     +     .01940,    .00931,   4.76991,    .64813,    .08506,
     +     .00000,    .41592,    .64922,
     +     .01986,    .00953,   6.51496,    .70367,    .13622,
     +     .00000,    .47360,    .70476,
     +     .02027,    .00974,   8.21504,    .75772,    .18634,
     +     .00000,    .52946,    .75881,
     +     .02066,    .00993,  10.05029,    .81457,    .24129,
     +     .00000,    .58800,    .81567,
     +     .02108,    .01014,  12.21707,    .88058,    .30631,
     +     .00000,    .65575,    .88166 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
     +     .02145,    .01032,  14.24238,    .94315,    .36652,
     +     .00000,    .71981,    .94425,
     +     .02181,    .01050,  16.34430,   1.00794,    .42933,
     +     .00000,    .78600,   1.00903,
     +     .02209,    .01065,  18.13608,   1.06237,    .48328,
     +     .00000,    .84152,   1.06346,
     +     .02270,    .01096,  22.29738,   1.18803,    .60635,
     +     .00000,    .96944,   1.18913,
     +     .02325,    .01123,  25.91254,   1.30653,    .72209,
     +     .15311,   1.08986,   1.30764,
     +     .02387,    .01155,  30.44159,   1.45089,    .86384,
     +     .31811,   1.23630,   1.45202,
     +     .02451,    .01187,  35.51606,   1.61421,   1.02448,
     +     .48608,   1.40171,   1.61534,
     +     .02510,    .01218,  40.42590,   1.77399,   1.18190,
     +     .65073,   1.56334,   1.77512 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
     +     .02571,    .01249,  45.66972,   1.94665,   1.35242,
     +     .82821,   1.73781,   1.94779,
     +     .02622,    .01275,  50.20875,   2.09842,   1.50197,
     +     .98187,   1.89106,   2.09958,
     +     .02684,    .01307,  55.92297,   2.29254,   1.69300,
     +    1.17730,   2.08691,   2.29370,
     +     .02739,    .01336,  61.20117,   2.47400,   1.87223,
     +    1.36158,   2.26987,   2.47516,
     +     .02790,    .01363,  66.21821,   2.64851,   2.04500,
     +    1.53931,   2.44573,   2.64968,
     +     .02855,    .01396,  72.71677,   2.87941,   2.27257,
     +    1.77089,   2.67830,   2.88059,
     +     .02917,    .01429,  79.04267,   3.10752,   2.49801,
     +    2.00103,   2.90795,   3.10872,
     +     .02975,    .01459,  85.17790,   3.33149,   2.72018,
     +    2.22871,   3.13332,   3.33270 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
     +     .03034,    .01490,  91.35070,   3.56234,   2.94790,
     +    2.45946,   3.36555,   3.56357,
     +     .03091,    .01520,  97.56629,   3.79756,   3.18079,
     +    2.69659,   3.60208,   3.79880,
     +     .03146,    .01550, 103.57156,   4.02813,   3.40932,
     +    2.92924,   3.83388,   4.02938,
     +     .03199,    .01578, 109.25998,   4.25076,   3.62949,
     +    3.15240,   4.05763,   4.25202,
     +     .03252,    .01605, 115.13431,   4.48263,   3.85973,
     +    3.38684,   4.29063,   4.48392,
     +     .03304,    .01633, 120.87867,   4.71441,   4.08898,
     +    3.61871,   4.52348,   4.71570,
     +     .03355,    .01660, 126.50099,   4.94270,   4.31580,
     +    3.84939,   4.75279,   4.94400,
     +     .03401,    .01685, 131.76296,   5.16097,   4.53185,
     +    4.06775,   4.97200,   5.16229 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
     +     .03450,    .01710, 137.19646,   5.38789,   4.75722,
     +    4.29642,   5.19986,   5.38922,
     +     .03498,    .01737, 142.54190,   5.61498,   4.98242,
     +    4.52428,   5.42786,   5.61632,
     +     .03544,    .01761, 147.69181,   5.83624,   5.20203,
     +    4.74655,   5.64999,   5.83759,
     +     .03588,    .01785, 152.63985,   6.05078,   5.41531,
     +    4.96277,   5.86533,   6.05215,
     +     .03632,    .01808, 157.58023,   6.26900,   5.63169,
     +    5.18121,   6.08436,   6.27038 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
     +     .02464,    .01184,    .80938,    .44363,    .00000,
     +     .00000,    .24119,    .44381,
     +     .02517,    .01210,   1.59908,    .46957,    .00000,
     +     .00000,    .26879,    .46976,
     +     .02595,    .01250,   2.98536,    .51530,    .03280,
     +     .00000,    .31685,    .51549,
     +     .02655,    .01280,   4.23050,    .55389,    .07426,
     +     .00000,    .35708,    .55407,
     +     .02718,    .01312,   5.70448,    .60004,    .11669,
     +     .00000,    .40493,    .60023,
     +     .02773,    .01341,   7.11542,    .64432,    .15776,
     +     .00000,    .45063,    .64453,
     +     .02826,    .01368,   8.61694,    .69047,    .20235,
     +     .00000,    .49809,    .69068,
     +     .02883,    .01398,  10.36527,    .74355,    .25460,
     +     .00000,    .55253,    .74377 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
     +     .02932,    .01423,  11.97746,    .79339,    .30253,
     +     .00000,    .60353,    .79363,
     +     .02981,    .01449,  13.63182,    .84461,    .35217,
     +     .00000,    .65584,    .84485,
     +     .03020,    .01468,  15.02935,    .88740,    .39456,
     +     .00000,    .69948,    .88765,
     +     .03103,    .01512,  18.23465,    .98530,    .49040,
     +     .00000,    .79914,    .98557,
     +     .03177,    .01550,  20.96617,   1.07663,    .57960,
     +     .11702,    .89196,   1.07692,
     +     .03260,    .01595,  24.34168,   1.18682,    .68779,
     +     .24379,   1.00377,   1.18714,
     +     .03348,    .01641,  28.06643,   1.31021,    .80914,
     +     .37120,   1.12878,   1.31054,
     +     .03428,    .01684,  31.61930,   1.42977,    .92693,
     +     .49489,   1.24977,   1.43012 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
     +     .03510,    .01727,  35.36477,   1.55780,   1.05342,
     +     .62701,   1.37921,   1.55819,
     +     .03577,    .01763,  38.56849,   1.66944,   1.16343,
     +     .74042,   1.49199,   1.66985,
     +     .03661,    .01808,  42.55525,   1.81107,   1.30284,
     +     .88348,   1.63496,   1.81151,
     +     .03736,    .01848,  46.19713,   1.94242,   1.43263,
     +    1.01735,   1.76748,   1.94289,
     +     .03804,    .01884,  49.62524,   2.06788,   1.55687,
     +    1.14557,   1.89397,   2.06838,
     +     .03890,    .01931,  54.01575,   2.23256,   1.71923,
     +    1.31123,   2.05995,   2.23309,
     +     .03974,    .01976,  58.24323,   2.39397,   1.87882,
     +    1.47461,   2.22254,   2.39453,
     +     .04051,    .02018,  62.30372,   2.55133,   2.03501,
     +    1.63514,   2.38099,   2.55193 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
     +     .04130,    .02061,  66.34470,   2.71228,   2.19385,
     +    1.79649,   2.54300,   2.71291,
     +     .04207,    .02102,  70.37797,   2.87520,   2.35527,
     +    1.96127,   2.70695,   2.87587,
     +     .04280,    .02142,  74.24091,   3.03389,   2.51264,
     +    2.12191,   2.86658,   3.03459,
     +     .04350,    .02179,  77.86683,   3.18612,   2.66329,
     +    2.27497,   3.01968,   3.18685,
     +     .04421,    .02218,  81.58569,   3.34385,   2.82002,
     +    2.43498,   3.17827,   3.34461,
     +     .04490,    .02256,  85.18863,   3.50048,   2.97504,
     +    2.59213,   3.33575,   3.50128,
     +     .04556,    .02292,  88.69426,   3.65403,   3.12776,
     +    2.74784,   3.49008,   3.65486,
     +     .04620,    .02327,  91.94656,   3.79997,   3.27230,
     +    2.89426,   3.63676,   3.80083 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
     +     .04684,    .02361,  95.28675,   3.95105,   3.42249,
     +    3.04702,   3.78855,   3.95194,
     +     .04747,    .02395,  98.54770,   4.10141,   3.57173,
     +    3.19837,   3.93964,   4.10234,
     +     .04808,    .02429, 101.67026,   4.24726,   3.71662,
     +    3.34536,   4.08615,   4.24822,
     +     .04866,    .02461, 104.65404,   4.38809,   3.85677,
     +    3.48778,   4.22761,   4.38907,
     +     .04925,    .02493, 107.61046,   4.53062,   3.99821,
     +    3.63087,   4.37075,   4.53163 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
     +     .03386,    .01638,    .75072,    .37986,    .00000,
     +     .00000,    .20879,    .38012,
     +     .03455,    .01674,   1.46661,    .40254,    .00000,
     +     .00000,    .23280,    .40283,
     +     .03559,    .01729,   2.68593,    .44149,    .03011,
     +     .00000,    .27362,    .44179,
     +     .03640,    .01770,   3.75691,    .47369,    .06492,
     +     .00000,    .30718,    .47403,
     +     .03725,    .01816,   4.99809,    .51162,    .09975,
     +     .00000,    .34646,    .51199,
     +     .03798,    .01854,   6.16405,    .54753,    .13307,
     +     .00000,    .38350,    .54792,
     +     .03870,    .01893,   7.38608,    .58457,    .16892,
     +     .00000,    .42162,    .58501,
     +     .03947,    .01933,   8.78813,    .62682,    .21053,
     +     .00000,    .46496,    .62728 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
     +     .04013,    .01970,  10.06242,    .66611,    .24836,
     +     .00000,    .50518,    .66660,
     +     .04079,    .02005,  11.35441,    .70618,    .28724,
     +     .00000,    .54613,    .70669,
     +     .04131,    .02032,  12.43537,    .73947,    .32026,
     +     .00000,    .58012,    .74002,
     +     .04243,    .02093,  14.88188,    .81495,    .39425,
     +     .00000,    .65701,    .81554,
     +     .04342,    .02147,  16.92565,    .88460,    .46238,
     +     .08775,    .72785,    .88524,
     +     .04454,    .02208,  19.41259,    .96780,    .54422,
     +     .18450,    .81235,    .96849,
     +     .04572,    .02273,  22.11251,   1.05999,    .63508,
     +     .28047,    .90584,   1.06074,
     +     .04680,    .02331,  24.64885,   1.14843,    .72241,
     +     .37272,    .99543,   1.14924 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
     +     .04789,    .02392,  27.28567,   1.24228,    .81535,
     +     .47036,   1.09041,   1.24314,
     +     .04880,    .02442,  29.51244,   1.32343,    .89550,
     +     .55343,   1.17248,   1.32434,
     +     .04993,    .02503,  32.24916,   1.42551,    .99621,
     +     .65733,   1.27564,   1.42648,
     +     .05091,    .02558,  34.71950,   1.51942,   1.08924,
     +     .75379,   1.37049,   1.52045,
     +     .05183,    .02609,  37.02058,   1.60848,   1.17767,
     +     .84552,   1.46039,   1.60956,
     +     .05300,    .02673,  39.93160,   1.72441,   1.29225,
     +     .96302,   1.57736,   1.72556,
     +     .05409,    .02734,  42.70171,   1.83712,   1.40397,
     +    1.07795,   1.69101,   1.83833,
     +     .05514,    .02792,  45.33477,   1.94618,   1.51253,
     +    1.19009,   1.80096,   1.94746 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
     +     .05618,    .02850,  47.92364,   2.05685,   1.62201,
     +    1.30182,   1.91247,   2.05818,
     +     .05720,    .02907,  50.48313,   2.16810,   1.73253,
     +    1.41519,   2.02455,   2.16950,
     +     .05818,    .02961,  52.91129,   2.27574,   1.83958,
     +    1.52497,   2.13295,   2.27719,
     +     .05910,    .03012,  55.16744,   2.37829,   1.94133,
     +    1.62882,   2.23622,   2.37981,
     +     .06003,    .03064,  57.46453,   2.48397,   2.04665,
     +    1.73686,   2.34260,   2.48554,
     +     .06095,    .03115,  59.66653,   2.58820,   2.15008,
     +    1.84217,   2.44751,   2.58984,
     +     .06184,    .03165,  61.79581,   2.68988,   2.25149,
     +    1.94606,   2.54982,   2.69157,
     +     .06266,    .03211,  63.75135,   2.78590,   2.34685,
     +    2.04308,   2.64644,   2.78764 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
     +     .06351,    .03257,  65.74825,   2.88486,   2.44551,
     +    2.14389,   2.74597,   2.88665,
     +     .06434,    .03304,  67.68073,   2.98279,   2.54298,
     +    2.24317,   2.84448,   2.98464,
     +     .06514,    .03348,  69.51862,   3.07732,   2.63716,
     +    2.33914,   2.93956,   3.07923,
     +     .06590,    .03391,  71.26442,   3.16820,   2.72788,
     +    2.43175,   3.03094,   3.17015,
     +     .06667,    .03433,  72.97860,   3.25966,   2.81890,
     +    2.52423,   3.12291,   3.26166 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
     +     .04078,    .01987,    .72455,    .34796,    .00000,
     +     .00000,    .19285,    .34865,
     +     .04160,    .02029,   1.40130,    .36870,    .00000,
     +     .00000,    .21479,    .36942,
     +     .04283,    .02095,   2.53143,    .40381,    .02873,
     +     .00000,    .25160,    .40460,
     +     .04379,    .02147,   3.51044,    .43257,    .05995,
     +     .00000,    .28156,    .43340,
     +     .04479,    .02200,   4.63000,    .46614,    .09078,
     +     .00000,    .31635,    .46702,
     +     .04566,    .02247,   5.66938,    .49768,    .12007,
     +     .00000,    .34890,    .49861,
     +     .04651,    .02293,   6.74836,    .53004,    .15143,
     +     .00000,    .38222,    .53102,
     +     .04742,    .02343,   7.97485,    .56676,    .18764,
     +     .00000,    .41993,    .56780 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
     +     .04823,    .02387,   9.07956,    .60072,    .22038,
     +     .00000,    .45473,    .60180,
     +     .04899,    .02429,  10.19121,    .63521,    .25389,
     +     .00000,    .49000,    .63632,
     +     .04961,    .02464,  11.11572,    .66377,    .28225,
     +     .00000,    .51918,    .66492,
     +     .05094,    .02536,  13.19090,    .72818,    .34548,
     +     .00000,    .58486,    .72940,
     +     .05212,    .02601,  14.90362,    .78721,    .40333,
     +     .07318,    .64496,    .78851,
     +     .05346,    .02676,  16.96664,    .85732,    .47242,
     +     .15537,    .71623,    .85870,
     +     .05485,    .02753,  19.18352,    .93451,    .54866,
     +     .23627,    .79460,    .93597,
     +     .05614,    .02825,  21.24616,   1.00811,    .62151,
     +     .31357,    .86925,   1.00966 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
     +     .05743,    .02897,  23.37182,   1.08580,    .69859,
     +     .39491,    .94795,   1.08743,
     +     .05851,    .02958,  25.15242,   1.15262,    .76473,
     +     .46374,   1.01559,   1.15432,
     +     .05983,    .03032,  27.32358,   1.23625,    .84744,
     +     .54942,   1.10020,   1.23804,
     +     .06101,    .03097,  29.26869,   1.31281,    .92346,
     +     .62857,   1.17761,   1.31467,
     +     .06209,    .03158,  31.06856,   1.38509,    .99540,
     +     .70351,   1.25065,   1.38703,
     +     .06347,    .03236,  33.32754,   1.47871,   1.08814,
     +     .79898,   1.34520,   1.48073,
     +     .06477,    .03309,  35.46112,   1.56926,   1.17812,
     +     .89193,   1.43662,   1.57137,
     +     .06600,    .03379,  37.47578,   1.65650,   1.26516,
     +     .98220,   1.52466,   1.65870 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
     +     .06723,    .03447,  39.44097,   1.74457,   1.35249,
     +    1.07166,   1.61350,   1.74685,
     +     .06843,    .03515,  41.37215,   1.83274,   1.44030,
     +    1.16209,   1.70242,   1.83510,
     +     .06958,    .03580,  43.19303,   1.91769,   1.52500,
     +    1.24929,   1.78806,   1.92013,
     +     .07066,    .03640,  44.87361,   1.99829,   1.60517,
     +    1.33142,   1.86931,   2.00081,
     +     .07176,    .03703,  46.57680,   2.08106,   1.68787,
     +    1.41659,   1.95272,   2.08365,
     +     .07284,    .03763,  48.19795,   2.16235,   1.76873,
     +    1.49923,   2.03462,   2.16501,
     +     .07386,    .03821,  49.75949,   2.24141,   1.84779,
     +    1.58053,   2.11426,   2.24414,
     +     .07484,    .03876,  51.18372,   2.31577,   1.92183,
     +    1.65614,   2.18916,   2.31857 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
     +     .07582,    .03931,  52.63284,   2.39219,   1.99822,
     +    1.73449,   2.26612,   2.39507,
     +     .07680,    .03986,  54.02694,   2.46755,   2.07342,
     +    1.81137,   2.34200,   2.47049,
     +     .07773,    .04039,  55.34690,   2.54007,   2.14587,
     +    1.88547,   2.41502,   2.54308,
     +     .07862,    .04090,  56.59577,   2.60961,   2.21547,
     +    1.95679,   2.48503,   2.61268,
     +     .07952,    .04140,  57.81432,   2.67933,   2.28505,
     +    2.02775,   2.55522,   2.68247 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
     +     .04654,    .02277,    .71387,    .32712,    .00000,
     +     .00000,    .18263,    .32840,
     +     .04746,    .02326,   1.36418,    .34651,    .00000,
     +     .00000,    .20310,    .34782,
     +     .04886,    .02401,   2.43389,    .37903,    .02777,
     +     .00000,    .23721,    .38042,
     +     .04992,    .02459,   3.35099,    .40549,    .05657,
     +     .00000,    .26476,    .40692,
     +     .05106,    .02522,   4.38924,    .43619,    .08473,
     +     .00000,    .29659,    .43768,
     +     .05205,    .02576,   5.34462,    .46488,    .11139,
     +     .00000,    .32622,    .46643,
     +     .05299,    .02630,   6.32932,    .49422,    .13981,
     +     .00000,    .35644,    .49584,
     +     .05403,    .02686,   7.44093,    .52738,    .17251,
     +     .00000,    .39052,    .52905 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
     +     .05493,    .02737,   8.43540,    .55793,    .20197,
     +     .00000,    .42183,    .55965,
     +     .05580,    .02785,   9.43049,    .58885,    .23203,
     +     .00000,    .45349,    .59062,
     +     .05651,    .02824,  10.25434,    .61440,    .25742,
     +     .00000,    .47960,    .61622,
     +     .05800,    .02908,  12.09229,    .67178,    .31379,
     +     .00000,    .53816,    .67369,
     +     .05933,    .02982,  13.59546,    .72412,    .36513,
     +     .06393,    .59152,    .72612,
     +     .06083,    .03068,  15.39207,    .78602,    .42621,
     +     .13695,    .65449,    .78810,
     +     .06242,    .03157,  17.30792,    .85384,    .49327,
     +     .20838,    .72340,    .85604,
     +     .06386,    .03238,  19.07764,    .91823,    .55708,
     +     .27633,    .78876,    .92052 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
     +     .06532,    .03321,  20.88942,    .98591,    .62433,
     +     .34755,    .85739,    .98830,
     +     .06654,    .03391,  22.39783,   1.04389,    .68182,
     +     .40759,    .91614,   1.04636,
     +     .06803,    .03475,  24.22613,   1.11619,    .75343,
     +     .48202,    .98934,   1.11877,
     +     .06936,    .03550,  25.85478,   1.18213,    .81901,
     +     .55054,   1.05608,   1.18480,
     +     .07057,    .03619,  27.35428,   1.24419,    .88088,
     +     .61521,   1.11885,   1.24694,
     +     .07212,    .03706,  29.22489,   1.32424,    .96033,
     +     .69727,   1.19979,   1.32711,
     +     .07358,    .03790,  30.98160,   1.40139,   1.03713,
     +     .77686,   1.27775,   1.40437,
     +     .07496,    .03868,  32.63212,   1.47547,   1.11118,
     +     .85392,   1.35257,   1.47854 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
     +     .07634,    .03947,  34.23224,   1.54997,   1.18519,
     +     .92999,   1.42780,   1.55314,
     +     .07769,    .04024,  35.79742,   1.62432,   1.25938,
     +    1.00663,   1.50286,   1.62759,
     +     .07898,    .04096,  37.26628,   1.69573,   1.33072,
     +    1.08033,   1.57492,   1.69908,
     +     .08019,    .04166,  38.61488,   1.76327,   1.39802,
     +    1.14950,   1.64307,   1.76671,
     +     .08141,    .04235,  39.97685,   1.83246,   1.46729,
     +    1.22107,   1.71285,   1.83599,
     +     .08262,    .04303,  41.26590,   1.90017,   1.53479,
     +    1.29027,   1.78116,   1.90379,
     +     .08376,    .04369,  42.50396,   1.96589,   1.60066,
     +    1.35824,   1.84742,   1.96959,
     +     .08486,    .04431,  43.62694,   2.02751,   1.66213,
     +    1.42121,   1.90955,   2.03130 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
     +     .08595,    .04493,  44.76645,   2.09070,   1.72544,
     +    1.48636,   1.97326,   2.09457,
     +     .08704,    .04555,  45.85744,   2.15285,   1.78760,
     +    1.55011,   2.03591,   2.15680,
     +     .08808,    .04614,  46.88680,   2.21252,   1.84735,
     +    1.61142,   2.09605,   2.21656,
     +     .08907,    .04670,  47.85778,   2.26962,   1.90463,
     +    1.67032,   2.15359,   2.27373,
     +     .09006,    .04726,  48.80029,   2.32674,   1.96173,
     +    1.72874,   2.21114,   2.33091 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
     +     .05157,    .02545,    .71442,    .31295,    .00000,
     +     .00000,    .17535,    .31427,
     +     .05257,    .02600,   1.34424,    .33124,    .00000,
     +     .00000,    .19466,    .33262,
     +     .05410,    .02683,   2.36776,    .36177,    .02693,
     +     .00000,    .22663,    .36325,
     +     .05528,    .02749,   3.23771,    .38647,    .05392,
     +     .00000,    .25235,    .38801,
     +     .05652,    .02818,   4.21427,    .41500,    .08009,
     +     .00000,    .28193,    .41664,
     +     .05761,    .02878,   5.10630,    .44157,    .10478,
     +     .00000,    .30936,    .44326,
     +     .05867,    .02937,   6.02018,    .46865,    .13104,
     +     .00000,    .33727,    .47041,
     +     .05980,    .03001,   7.04587,    .49918,    .16117,
     +     .00000,    .36863,    .50101 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
     +     .06079,    .03056,   7.95833,    .52722,    .18822,
     +     .00000,    .39739,    .52912,
     +     .06175,    .03111,   8.86709,    .55551,    .21575,
     +     .00000,    .42637,    .55748,
     +     .06251,    .03154,   9.61666,    .57886,    .23896,
     +     .00000,    .45024,    .58088,
     +     .06416,    .03248,  11.28037,    .63112,    .29035,
     +     .00000,    .50360,    .63325,
     +     .06563,    .03331,  12.63079,    .67862,    .33698,
     +     .05730,    .55202,    .68084,
     +     .06728,    .03425,  14.23441,    .73457,    .39224,
     +     .12363,    .60899,    .73692,
     +     .06902,    .03524,  15.93355,    .79564,    .45270,
     +     .18821,    .67110,    .79811,
     +     .07061,    .03614,  17.49363,    .85342,    .51003,
     +     .24944,    .72977,    .85601 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
     +     .07221,    .03707,  19.08195,    .91394,    .57023,
     +     .31338,    .79118,    .91664,
     +     .07355,    .03782,  20.39755,    .96562,    .62154,
     +     .36710,    .84359,    .96841,
     +     .07518,    .03875,  21.98412,   1.02987,    .68525,
     +     .43350,    .90869,   1.03278,
     +     .07662,    .03958,  23.39068,   1.08827,    .74341,
     +     .49444,    .96784,   1.09130,
     +     .07796,    .04034,  24.68023,   1.14310,    .79815,
     +     .55181,   1.02333,   1.14622,
     +     .07965,    .04132,  26.28053,   1.21360,    .86820,
     +     .62435,   1.09466,   1.21684,
     +     .08124,    .04222,  27.77627,   1.28132,    .93571,
     +     .69450,   1.16314,   1.28468,
     +     .08275,    .04309,  29.17573,   1.34615,   1.00063,
     +     .76225,   1.22869,   1.34963 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
     +     .08425,    .04394,  30.52515,   1.41116,   1.06530,
     +     .82889,   1.29438,   1.41475,
     +     .08573,    .04478,  31.83996,   1.47586,   1.12996,
     +     .89587,   1.35975,   1.47956,
     +     .08713,    .04558,  33.06881,   1.53786,   1.19199,
     +     .96012,   1.42236,   1.54167,
     +     .08844,    .04634,  34.19201,   1.59632,   1.25035,
     +    1.02026,   1.48139,   1.60023,
     +     .08978,    .04710,  35.32300,   1.65607,   1.31029,
     +    1.08236,   1.54172,   1.66009,
     +     .09108,    .04785,  36.38801,   1.71441,   1.36854,
     +    1.14224,   1.60061,   1.71852,
     +     .09233,    .04856,  37.40839,   1.77092,   1.42527,
     +    1.20094,   1.65764,   1.77512,
     +     .09351,    .04922,  38.32942,   1.82376,   1.47809,
     +    1.25519,   1.71097,   1.82806 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
     +     .09471,    .04991,  39.26187,   1.87786,   1.53240,
     +    1.31123,   1.76557,   1.88226,
     +     .09588,    .05058,  40.15093,   1.93094,   1.58558,
     +    1.36593,   1.81912,   1.93543,
     +     .09701,    .05121,  40.98721,   1.98182,   1.63662,
     +    1.41845,   1.87044,   1.98638,
     +     .09808,    .05182,  41.77397,   2.03041,   1.68547,
     +    1.46882,   1.91945,   2.03506,
     +     .09915,    .05244,  42.53403,   2.07890,   1.73406,
     +    1.51866,   1.96837,   2.08364 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
     +     .07103,    .03613,    .74006,    .27424,    .00000,
     +     .00000,    .15591,    .27668,
     +     .07236,    .03690,   1.31025,    .28914,    .00000,
     +     .00000,    .17162,    .29166,
     +     .07440,    .03806,   2.19823,    .31363,    .02418,
     +     .00000,    .19729,    .31630,
     +     .07596,    .03898,   2.93056,    .33318,    .04590,
     +     .00000,    .21767,    .33596,
     +     .07764,    .03994,   3.72989,    .35551,    .06645,
     +     .00000,    .24084,    .35840,
     +     .07909,    .04078,   4.44211,    .37606,    .08565,
     +     .00000,    .26212,    .37907,
     +     .08050,    .04161,   5.15706,    .39683,    .10592,
     +     .00000,    .28356,    .39995,
     +     .08202,    .04249,   5.94402,    .42005,    .12897,
     +     .00000,    .30748,    .42328 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
     +     .08335,    .04326,   6.63101,    .44119,    .14945,
     +     .00000,    .32920,    .44450,
     +     .08463,    .04402,   7.30443,    .46235,    .17016,
     +     .00000,    .35093,    .46577,
     +     .08567,    .04463,   7.85295,    .47970,    .18750,
     +     .00000,    .36873,    .48320,
     +     .08787,    .04592,   9.04982,    .51817,    .22554,
     +     .00000,    .40812,    .52186,
     +     .08982,    .04705,   9.99709,    .55269,    .25963,
     +     .03927,    .44341,    .55653,
     +     .09204,    .04834,  11.09603,    .59290,    .29957,
     +     .08793,    .48447,    .59690,
     +     .09434,    .04969,  12.23524,    .63624,    .34274,
     +     .13458,    .52868,    .64043,
     +     .09644,    .05091,  13.25978,    .67674,    .38318,
     +     .17828,    .56995,    .68110 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
     +     .09856,    .05215,  14.28325,    .71869,    .42519,
     +     .22341,    .61267,    .72322,
     +     .10033,    .05318,  15.11603,    .75413,    .46062,
     +     .26093,    .64873,    .75881,
     +     .10247,    .05443,  16.10287,    .79774,    .50416,
     +     .30681,    .69307,    .80259,
     +     .10438,    .05554,  16.96335,    .83698,    .54353,
     +     .34852,    .73295,    .84199,
     +     .10612,    .05655,  17.74071,    .87348,    .58023,
     +     .38743,    .77002,    .87863,
     +     .10833,    .05783,  18.68785,    .91992,    .62671,
     +     .43611,    .81718,    .92525,
     +     .11041,    .05903,  19.55818,    .96405,    .67105,
     +     .48271,    .86198,    .96955,
     +     .11236,    .06016,  20.36043,   1.00592,    .71330,
     +     .52730,    .90447,   1.01158 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
     +     .11431,    .06128,  21.11910,   1.04743,    .75494,
     +     .57069,    .94658,   1.05326,
     +     .11622,    .06238,  21.84806,   1.08840,    .79622,
     +     .61394,    .98814,   1.09438,
     +     .11803,    .06342,  22.51951,   1.12730,    .83549,
     +     .65509,   1.02758,   1.13343,
     +     .11972,    .06439,  23.12288,   1.16365,    .87209,
     +     .69324,   1.06445,   1.16993,
     +     .12143,    .06537,  23.72410,   1.20055,    .90944,
     +     .73239,   1.10185,   1.20697,
     +     .12309,    .06632,  24.27947,   1.23623,    .94539,
     +     .76978,   1.13802,   1.24278,
     +     .12468,    .06724,  24.80711,   1.27058,    .98021,
     +     .80624,   1.17283,   1.27726,
     +     .12618,    .06809,  25.27418,   1.30240,   1.01233,
     +     .83962,   1.20509,   1.30921 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
     +     .12769,    .06896,  25.74325,   1.33481,   1.04518,
     +     .87392,   1.23793,   1.34174,
     +     .12918,    .06980,  26.18300,   1.36634,   1.07711,
     +     .90716,   1.26989,   1.37340,
     +     .13060,    .07061,  26.59182,   1.39637,   1.10755,
     +     .93886,   1.30032,   1.40354,
     +     .13195,    .07137,  26.97261,   1.42488,   1.13652,
     +     .96911,   1.32921,   1.43217,
     +     .13330,    .07214,  27.33333,   1.45311,   1.16511,
     +     .99880,   1.35782,   1.46051 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
     +     .09809,    .05187,    .84340,    .24309,    .00000,
     +     .00000,    .13963,    .24727,
     +     .09986,    .05292,   1.35324,    .25464,    .00000,
     +     .00000,    .15186,    .25896,
     +     .10258,    .05455,   2.10882,    .27351,    .02034,
     +     .00000,    .17170,    .27806,
     +     .10468,    .05582,   2.70862,    .28843,    .03745,
     +     .00000,    .18733,    .29316,
     +     .10691,    .05716,   3.34369,    .30531,    .05319,
     +     .00000,    .20493,    .31023,
     +     .10886,    .05832,   3.89362,    .32070,    .06778,
     +     .00000,    .22093,    .32580,
     +     .11075,    .05945,   4.43265,    .33615,    .08306,
     +     .00000,    .23694,    .34140,
     +     .11279,    .06066,   5.01274,    .35325,    .10027,
     +     .00000,    .25466,    .35869 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
     +     .11456,    .06172,   5.50830,    .36867,    .11542,
     +     .00000,    .27059,    .37426,
     +     .11627,    .06275,   5.98517,    .38399,    .13059,
     +     .00000,    .28640,    .38973,
     +     .11765,    .06357,   6.36790,    .39647,    .14322,
     +     .00000,    .29927,    .40233,
     +     .12058,    .06532,   7.18687,    .42384,    .17062,
     +     .00000,    .32745,    .42997,
     +     .12317,    .06684,   7.81703,    .44805,    .19482,
     +     .02459,    .35235,    .45440,
     +     .12607,    .06856,   8.52533,    .47588,    .22283,
     +     .05939,    .38093,    .48249,
     +     .12911,    .07034,   9.24057,    .50543,    .25266,
     +     .09217,    .41127,    .51232,
     +     .13184,    .07195,   9.86780,    .53269,    .28024,
     +     .12248,    .43922,    .53981 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
     +     .13462,    .07356,  10.47991,    .56054,    .30852,
     +     .15337,    .46776,    .56791,
     +     .13692,    .07491,  10.96696,    .58379,    .33208,
     +     .17873,    .49159,    .59137,
     +     .13968,    .07651,  11.53143,    .61203,    .36068,
     +     .20938,    .52050,    .61985,
     +     .14213,    .07793,  12.01342,    .63715,    .38625,
     +     .23694,    .54621,    .64519,
     +     .14437,    .07924,  12.44080,    .66026,    .40985,
     +     .26239,    .56987,    .66850,
     +     .14720,    .08086,  12.94873,    .68929,    .43936,
     +     .29382,    .59956,    .69779,
     +     .14984,    .08238,  13.40512,    .71653,    .46718,
     +     .32357,    .62744,    .72526,
     +     .15232,    .08379,  13.81765,    .74209,    .49341,
     +     .35175,    .65357,    .75104 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
     +     .15476,    .08519,  14.19694,    .76711,    .51892,
     +     .37881,    .67916,    .77626,
     +     .15716,    .08656,  14.55452,    .79154,    .54398,
     +     .40555,    .70414,    .80090,
     +     .15941,    .08783,  14.87710,    .81448,    .56757,
     +     .43073,    .72761,    .82405,
     +     .16151,    .08902,  15.15969,    .83568,    .58933,
     +     .45384,    .74930,    .84544,
     +     .16363,    .09022,  15.43736,    .85702,    .61136,
     +     .47737,    .77114,    .86696,
     +     .16570,    .09138,  15.68577,    .87741,    .63231,
     +     .49958,    .79199,    .88752,
     +     .16765,    .09248,  15.91922,    .89689,    .65248,
     +     .52112,    .81193,    .90718,
     +     .16949,    .09350,  16.11901,    .91474,    .67089,
     +     .54063,    .83020,    .92519 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
     +     .17134,    .09454,  16.31744,    .93279,    .68959,
     +     .56055,    .84867,    .94339,
     +     .17314,    .09555,  16.49796,    .95017,    .70760,
     +     .57968,    .86647,    .96094,
     +     .17486,    .09650,  16.66247,    .96660,    .72464,
     +     .59779,    .88329,    .97750,
     +     .17649,    .09741,  16.81317,    .98209,    .74075,
     +     .61496,    .89915,    .99313,
     +     .17812,    .09831,  16.95042,    .99724,    .75648,
     +     .63166,    .91468,   1.00842 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
     +     .11854,    .06416,    .95677,    .22637,    .00000,
     +     .00000,    .13035,    .23208,
     +     .12065,    .06546,   1.42247,    .23612,    .00000,
     +     .00000,    .14072,    .24203,
     +     .12389,    .06745,   2.09790,    .25201,    .01716,
     +     .00000,    .15751,    .25821,
     +     .12639,    .06897,   2.61953,    .26452,    .03191,
     +     .00000,    .17069,    .27094,
     +     .12904,    .07058,   3.16113,    .27860,    .04524,
     +     .00000,    .18545,    .28529,
     +     .13135,    .07197,   3.62157,    .29138,    .05752,
     +     .00000,    .19880,    .29827,
     +     .13359,    .07333,   4.06588,    .30411,    .07032,
     +     .00000,    .21208,    .31122,
     +     .13600,    .07478,   4.53700,    .31816,    .08466,
     +     .00000,    .22671,    .32549 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
     +     .13809,    .07603,   4.93376,    .33074,    .09719,
     +     .00000,    .23978,    .33827,
     +     .14013,    .07725,   5.31096,    .34316,    .10967,
     +     .00000,    .25268,    .35088,
     +     .14175,    .07822,   5.61076,    .35325,    .12001,
     +     .00000,    .26314,    .36113,
     +     .14520,    .08027,   6.24396,    .37521,    .14228,
     +     .00000,    .28588,    .38340,
     +     .14822,    .08205,   6.72243,    .39443,    .16177,
     +     .01733,    .30578,    .40292,
     +     .15162,    .08405,   7.24702,    .41633,    .18412,
     +     .04552,    .32843,    .42513,
     +     .15513,    .08609,   7.76705,    .43937,    .20770,
     +     .07178,    .35224,    .44850,
     +     .15832,    .08794,   8.21496,    .46041,    .22930,
     +     .09584,    .37396,    .46983 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
     +     .16151,    .08980,   8.64476,    .48172,    .25126,
     +     .12016,    .39597,    .49144,
     +     .16415,    .09132,   8.98111,    .49935,    .26940,
     +     .13997,    .41417,    .50931,
     +     .16733,    .09315,   9.36451,    .52060,    .29126,
     +     .16372,    .43609,    .53084,
     +     .17013,    .09475,   9.68670,    .53933,    .31065,
     +     .18492,    .45542,    .54984,
     +     .17268,    .09621,   9.96826,    .55644,    .32841,
     +     .20435,    .47307,    .56718,
     +     .17588,    .09802,  10.29620,    .57774,    .35045,
     +     .22817,    .49504,    .58876,
     +     .17888,    .09971,  10.58567,    .59755,    .37105,
     +     .25054,    .51549,    .60885,
     +     .18167,    .10128,  10.84328,    .61599,    .39033,
     +     .27158,    .53453,    .62754 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
     +     .18442,    .10281,  11.07403,    .63386,    .40894,
     +     .29163,    .55299,    .64567,
     +     .18710,    .10431,  11.28810,    .65119,    .42708,
     +     .31129,    .57088,    .66324,
     +     .18961,    .10571,  11.47772,    .66735,    .44406,
     +     .32970,    .58757,    .67962,
     +     .19195,    .10699,  11.63964,    .68215,    .45958,
     +     .34647,    .60287,    .69462,
     +     .19430,    .10829,  11.79677,    .69697,    .47523,
     +     .36347,    .61819,    .70965,
     +     .19657,    .10954,  11.93270,    .71098,    .48999,
     +     .37939,    .63270,    .72386,
     +     .19873,    .11073,  12.05926,    .72433,    .50414,
     +     .39477,    .64650,    .73739,
     +     .20073,    .11181,  12.16334,    .73643,    .51695,
     +     .40859,    .65904,    .74967 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
     +     .20276,    .11292,  12.26563,    .74861,    .52991,
     +     .42265,    .67165,    .76203,
     +     .20473,    .11398,  12.35531,    .76025,    .54230,
     +     .43607,    .68372,    .77384,
     +     .20661,    .11500,  12.43506,    .77117,    .55397,
     +     .44871,    .69505,    .78493,
     +     .20838,    .11595,  12.50666,    .78143,    .56496,
     +     .46065,    .70569,    .79532,
     +     .21014,    .11689,  12.56815,    .79139,    .57560,
     +     .47217,    .71603,    .80542 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
     +     .13563,    .07464,   1.06249,    .21477,    .00000,
     +     .00000,    .12351,    .22186,
     +     .13804,    .07614,   1.49349,    .22333,    .00000,
     +     .00000,    .13267,    .23066,
     +     .14173,    .07842,   2.10878,    .23727,    .01432,
     +     .00000,    .14748,    .24496,
     +     .14455,    .08016,   2.57305,    .24821,    .02755,
     +     .00000,    .15907,    .25619,
     +     .14756,    .08199,   3.04817,    .26048,    .03936,
     +     .00000,    .17201,    .26876,
     +     .15017,    .08357,   3.44651,    .27156,    .05019,
     +     .00000,    .18365,    .28009,
     +     .15270,    .08509,   3.82628,    .28257,    .06142,
     +     .00000,    .19520,    .29135,
     +     .15541,    .08671,   4.22439,    .29466,    .07394,
     +     .00000,    .20787,    .30370 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
     +     .15777,    .08813,   4.55603,    .30541,    .08481,
     +     .00000,    .21912,    .31469,
     +     .16004,    .08949,   4.86825,    .31600,    .09561,
     +     .00000,    .23018,    .32551,
     +     .16187,    .09057,   5.11455,    .32455,    .10451,
     +     .00000,    .23912,    .33424,
     +     .16573,    .09285,   5.62963,    .34308,    .12357,
     +     .00000,    .25844,    .35315,
     +     .16909,    .09481,   6.01363,    .35918,    .14013,
     +     .01270,    .27520,    .36956,
     +     .17285,    .09699,   6.42510,    .37737,    .15898,
     +     .03678,    .29416,    .38811,
     +     .17675,    .09923,   6.82684,    .39636,    .17872,
     +     .05904,    .31393,    .40748,
     +     .18025,    .10126,   7.16767,    .41356,    .19667,
     +     .07927,    .33185,    .42501 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
     +     .18377,    .10326,   7.49006,    .43086,    .21481,
     +     .09960,    .34986,    .44264,
     +     .18666,    .10490,   7.73872,    .44508,    .22970,
     +     .11605,    .36465,    .45713,
     +     .19012,    .10686,   8.01792,    .46209,    .24751,
     +     .13566,    .38236,    .47446,
     +     .19317,    .10856,   8.24925,    .47699,    .26320,
     +     .15304,    .39787,    .48964,
     +     .19594,    .11012,   8.44874,    .49050,    .27752,
     +     .16891,    .41196,    .50342,
     +     .19942,    .11204,   8.67662,    .50720,    .29516,
     +     .18823,    .42937,    .52044,
     +     .20264,    .11382,   8.87430,    .52264,    .31154,
     +     .20626,    .44546,    .53616,
     +     .20563,    .11547,   9.04752,    .53691,    .32678,
     +     .22313,    .46034,    .55070 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
     +     .20858,    .11709,   9.19853,    .55063,    .34139,
     +     .23910,    .47465,    .56468,
     +     .21144,    .11864,   9.33628,    .56383,    .35557,
     +     .25470,    .48845,    .57815,
     +     .21412,    .12009,   9.45582,    .57609,    .36874,
     +     .26921,    .50126,    .59063,
     +     .21659,    .12142,   9.55488,    .58722,    .38074,
     +     .28237,    .51290,    .60198,
     +     .21908,    .12276,   9.64967,    .59832,    .39277,
     +     .29565,    .52453,    .61330,
     +     .22148,    .12404,   9.72813,    .60874,    .40405,
     +     .30802,    .53544,    .62392,
     +     .22375,    .12525,   9.80043,    .61860,    .41483,
     +     .31993,    .54580,    .63398,
     +     .22585,    .12636,   9.85655,    .62749,    .42451,
     +     .33056,    .55512,    .64304 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
     +     .22798,    .12748,   9.91098,    .63638,    .43429,
     +     .34135,    .56448,    .65212,
     +     .23004,    .12856,   9.95593,    .64483,    .44358,
     +     .35159,    .57337,    .66074,
     +     .23199,    .12958,   9.99431,    .65271,    .45229,
     +     .36121,    .58168,    .66878,
     +     .23382,    .13054,  10.02757,    .66007,    .46046,
     +     .37026,    .58945,    .67630,
     +     .23564,    .13149,  10.05289,    .66716,    .46833,
     +     .37894,    .59693,    .68354 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
     +     .15051,    .08386,   1.15878,    .20546,    .00000,
     +     .00000,    .11779,    .21378,
     +     .15317,    .08555,   1.55959,    .21319,    .00000,
     +     .00000,    .12611,    .22179,
     +     .15726,    .08810,   2.12559,    .22575,    .01177,
     +     .00000,    .13951,    .23477,
     +     .16039,    .09000,   2.54388,    .23558,    .02391,
     +     .00000,    .14999,    .24492,
     +     .16372,    .09202,   2.96698,    .24657,    .03464,
     +     .00000,    .16164,    .25625,
     +     .16659,    .09376,   3.31766,    .25642,    .04444,
     +     .00000,    .17208,    .26641,
     +     .16937,    .09543,   3.64870,    .26619,    .05457,
     +     .00000,    .18240,    .27646,
     +     .17236,    .09721,   3.99255,    .27686,    .06580,
     +     .00000,    .19365,    .28744 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
     +     .17493,    .09874,   4.27633,    .28633,    .07551,
     +     .00000,    .20362,    .29717,
     +     .17742,    .10020,   4.54133,    .29560,    .08509,
     +     .00000,    .21337,    .30669,
     +     .17940,    .10137,   4.74899,    .30307,    .09299,
     +     .00000,    .22124,    .31436,
     +     .18362,    .10383,   5.17994,    .31917,    .10980,
     +     .00000,    .23814,    .33088,
     +     .18726,    .10594,   5.49763,    .33304,    .12430,
     +     .00944,    .25272,    .34511,
     +     .19133,    .10826,   5.83068,    .34862,    .14071,
     +     .03064,    .26908,    .36108,
     +     .19551,    .11065,   6.15148,    .36477,    .15780,
     +     .05010,    .28605,    .37764,
     +     .19928,    .11277,   6.41991,    .37930,    .17323,
     +     .06768,    .30131,    .39253 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
     +     .20304,    .11488,   6.67047,    .39383,    .18873,
     +     .08526,    .31657,    .40742,
     +     .20612,    .11660,   6.86110,    .40569,    .20139,
     +     .09940,    .32903,    .41957,
     +     .20980,    .11864,   7.07206,    .41979,    .21644,
     +     .11617,    .34385,    .43402,
     +     .21304,    .12042,   7.24437,    .43207,    .22966,
     +     .13098,    .35677,    .44660,
     +     .21598,    .12202,   7.39098,    .44316,    .24164,
     +     .14442,    .36844,    .45795,
     +     .21963,    .12401,   7.55514,    .45676,    .25633,
     +     .16072,    .38276,    .47188,
     +     .22302,    .12584,   7.69486,    .46923,    .26989,
     +     .17584,    .39593,    .48467,
     +     .22616,    .12754,   7.81521,    .48071,    .28246,
     +     .18994,    .40804,    .49643 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
     +     .22923,    .12917,   7.91704,    .49167,    .29443,
     +     .20320,    .41963,    .50766,
     +     .23221,    .13074,   8.00800,    .50217,    .30599,
     +     .21610,    .43074,    .51841,
     +     .23500,    .13221,   8.08485,    .51184,    .31669,
     +     .22806,    .44098,    .52832,
     +     .23757,    .13356,   8.14604,    .52056,    .32638,
     +     .23885,    .45024,    .53727,
     +     .24014,    .13489,   8.20356,    .52922,    .33607,
     +     .24970,    .45945,    .54615,
     +     .24259,    .13617,   8.24805,    .53729,    .34510,
     +     .25976,    .46803,    .55442,
     +     .24493,    .13738,   8.28845,    .54490,    .35370,
     +     .26942,    .47614,    .56223,
     +     .24709,    .13848,   8.31667,    .55170,    .36138,
     +     .27801,    .48340,    .56920 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
     +     .24925,    .13959,   8.34340,    .55849,    .36911,
     +     .28669,    .49067,    .57617,
     +     .25135,    .14065,   8.36268,    .56489,    .37643,
     +     .29490,    .49753,    .58274,
     +     .25333,    .14165,   8.37752,    .57082,    .38326,
     +     .30258,    .50391,    .58884,
     +     .25519,    .14260,   8.38916,    .57635,    .38964,
     +     .30979,    .50984,    .59451,
     +     .25703,    .14352,   8.39447,    .58162,    .39577,
     +     .31668,    .51553,    .59992 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
     +     .17619,    .09993,   1.31880,    .19108,    .00000,
     +     .00000,    .10863,    .20172,
     +     .17936,    .10193,   1.66790,    .19767,    .00000,
     +     .00000,    .11581,    .20867,
     +     .18417,    .10490,   2.15423,    .20833,    .00742,
     +     .00000,    .12737,    .21987,
     +     .18782,    .10711,   2.50053,    .21661,    .01808,
     +     .00000,    .13631,    .22856,
     +     .19167,    .10943,   2.84443,    .22576,    .02735,
     +     .00000,    .14617,    .23814,
     +     .19498,    .11140,   3.12430,    .23393,    .03575,
     +     .00000,    .15494,    .24666,
     +     .19818,    .11328,   3.38428,    .24196,    .04435,
     +     .00000,    .16355,    .25503,
     +     .20160,    .11528,   3.65019,    .25066,    .05383,
     +     .00000,    .17287,    .26410 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
     +     .20454,    .11699,   3.86639,    .25831,    .06193,
     +     .00000,    .18106,    .27206,
     +     .20737,    .11862,   4.06549,    .26576,    .06989,
     +     .00000,    .18902,    .27980,
     +     .20962,    .11991,   4.21983,    .27172,    .07641,
     +     .00000,    .19539,    .28599,
     +     .21437,    .12260,   4.53599,    .28444,    .09017,
     +     .00000,    .20899,    .29920,
     +     .21844,    .12488,   4.76491,    .29527,    .10191,
     +     .00509,    .22058,    .31044,
     +     .22294,    .12739,   4.99441,    .30730,    .11506,
     +     .02239,    .23345,    .32291,
     +     .22757,    .12993,   5.20994,    .31961,    .12859,
     +     .03810,    .24664,    .33569,
     +     .23171,    .13218,   5.38563,    .33056,    .14069,
     +     .05216,    .25836,    .34702 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
     +     .23580,    .13440,   5.54544,    .34138,    .15274,
     +     .06608,    .26997,    .35822,
     +     .23916,    .13619,   5.66346,    .35012,    .16247,
     +     .07719,    .27936,    .36728,
     +     .24315,    .13830,   5.79021,    .36039,    .17397,
     +     .09026,    .29042,    .37792,
     +     .24661,    .14013,   5.89067,    .36925,    .18397,
     +     .10171,    .29996,    .38709,
     +     .24975,    .14177,   5.97361,    .37717,    .19297,
     +     .11204,    .30850,    .39529,
     +     .25362,    .14378,   6.06171,    .38676,    .20387,
     +     .12442,    .31887,    .40521,
     +     .25720,    .14561,   6.13322,    .39546,    .21388,
     +     .13585,    .32830,    .41422,
     +     .26050,    .14730,   6.19215,    .40339,    .22307,
     +     .14641,    .33691,    .42243 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
     +     .26370,    .14891,   6.23730,    .41083,    .23174,
     +     .15626,    .34503,    .43014,
     +     .26678,    .15046,   6.27502,    .41789,    .24005,
     +     .16578,    .35274,    .43746,
     +     .26965,    .15189,   6.30398,    .42433,    .24767,
     +     .17454,    .35979,    .44413,
     +     .27228,    .15318,   6.32309,    .43007,    .25452,
     +     .18239,    .36611,    .45008,
     +     .27491,    .15448,   6.33949,    .43572,    .26132,
     +     .19024,    .37233,    .45594,
     +     .27740,    .15568,   6.34713,    .44089,    .26760,
     +     .19745,    .37805,    .46130,
     +     .27976,    .15683,   6.35319,    .44574,    .27356,
     +     .20435,    .38344,    .46633,
     +     .28192,    .15787,   6.35196,    .44999,    .27881,
     +     .21042,    .38819,    .47075 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
     +     .28409,    .15890,   6.34965,    .45423,    .28409,
     +     .21655,    .39291,    .47514,
     +     .28617,    .15988,   6.34253,    .45814,    .28904,
     +     .22230,    .39731,    .47920,
     +     .28813,    .16080,   6.33341,    .46173,    .29362,
     +     .22765,    .40137,    .48295,
     +     .28996,    .16166,   6.32318,    .46505,    .29789,
     +     .23264,    .40512,    .48640,
     +     .29176,    .16249,   6.30839,    .46815,    .30194,
     +     .23738,    .40866,    .48962 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
     +     .20832,    .12012,   1.49174,    .17489,    .00000,
     +     .00000,    .09805,    .18865,
     +     .21214,    .12248,   1.77718,    .18046,    .00000,
     +     .00000,    .10425,    .19470,
     +     .21789,    .12596,   2.17145,    .18933,    .00244,
     +     .00000,    .11410,    .20428,
     +     .22219,    .12850,   2.43848,    .19611,    .01169,
     +     .00000,    .12162,    .21156,
     +     .22668,    .13112,   2.69813,    .20352,    .01961,
     +     .00000,    .12982,    .21949,
     +     .23053,    .13333,   2.90490,    .21003,    .02670,
     +     .00000,    .13699,    .22642,
     +     .23423,    .13543,   3.09338,    .21635,    .03389,
     +     .00000,    .14397,    .23317,
     +     .23814,    .13763,   3.28266,    .22315,    .04171,
     +     .00000,    .15146,    .24038 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
     +     .24149,    .13950,   3.43361,    .22905,    .04833,
     +     .00000,    .15795,    .24664,
     +     .24470,    .14127,   3.57025,    .23473,    .05478,
     +     .00000,    .16421,    .25267,
     +     .24724,    .14266,   3.67481,    .23925,    .06001,
     +     .00000,    .16920,    .25744,
     +     .25255,    .14554,   3.88549,    .24878,    .07095,
     +     .00000,    .17968,    .26751,
     +     .25706,    .14794,   4.03457,    .25675,    .08015,
     +     .00134,    .18849,    .27592,
     +     .26200,    .15053,   4.17342,    .26546,    .09033,
     +     .01503,    .19814,    .28511,
     +     .26702,    .15314,   4.29881,    .27425,    .10068,
     +     .02733,    .20789,    .29436,
     +     .27147,    .15542,   4.39657,    .28193,    .10982,
     +     .03821,    .21643,    .30245 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
     +     .27585,    .15764,   4.48145,    .28942,    .11881,
     +     .04886,    .22478,    .31032,
     +     .27940,    .15942,   4.54093,    .29537,    .12600,
     +     .05727,    .23145,    .31659,
     +     .28357,    .16148,   4.60058,    .30225,    .13441,
     +     .06710,    .23919,    .32384,
     +     .28719,    .16325,   4.64468,    .30810,    .14162,
     +     .07560,    .24579,    .32999,
     +     .29043,    .16483,   4.67850,    .31327,    .14807,
     +     .08322,    .25162,    .33541,
     +     .29440,    .16673,   4.70932,    .31940,    .15581,
     +     .09227,    .25861,    .34187,
     +     .29804,    .16845,   4.73030,    .32489,    .16281,
     +     .10053,    .26488,    .34763,
     +     .30137,    .17001,   4.74435,    .32981,    .16919,
     +     .10811,    .27053,    .35280 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
     +     .30456,    .17147,   4.74904,    .33432,    .17513,
     +     .11510,    .27577,    .35755,
     +     .30762,    .17286,   4.74941,    .33853,    .18077,
     +     .12181,    .28068,    .36198,
     +     .31043,    .17413,   4.74535,    .34231,    .18591,
     +     .12794,    .28512,    .36595,
     +     .31299,    .17527,   4.73624,    .34560,    .19046,
     +     .13336,    .28902,    .36940,
     +     .31553,    .17638,   4.72545,    .34879,    .19495,
     +     .13876,    .29282,    .37277,
     +     .31791,    .17742,   4.70929,    .35163,    .19904,
     +     .14367,    .29624,    .37575,
     +     .32016,    .17839,   4.69338,    .35427,    .20290,
     +     .14835,    .29945,    .37854,
     +     .32219,    .17924,   4.67388,    .35651,    .20626,
     +     .15242,    .30221,    .38089 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
     +     .32422,    .18010,   4.65377,    .35871,    .20961,
     +     .15651,    .30494,    .38321,
     +     .32614,    .18090,   4.63103,    .36068,    .21271,
     +     .16031,    .30742,    .38528,
     +     .32794,    .18163,   4.60806,    .36246,    .21557,
     +     .16382,    .30968,    .38716,
     +     .32962,    .18232,   4.58545,    .36405,    .21820,
     +     .16709,    .31174,    .38885,
     +     .33124,    .18297,   4.55991,    .36549,    .22066,
     +     .17015,    .31363,    .39037 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
     +     .25268,    .14760,   1.64351,    .15549,    .00000,
     +     .00000,    .08557,    .17432,
     +     .25744,    .15041,   1.84834,    .15999,    .00000,
     +     .00000,    .09086,    .17945,
     +     .26445,    .15443,   2.13174,    .16696,   -.00294,
     +     .00000,    .09901,    .18727,
     +     .26957,    .15727,   2.30895,    .17212,    .00486,
     +     .00000,    .10507,    .19303,
     +     .27486,    .16018,   2.47660,    .17763,    .01144,
     +     .00000,    .11150,    .19914,
     +     .27935,    .16258,   2.60622,    .18237,    .01720,
     +     .00000,    .11704,    .20437,
     +     .28358,    .16483,   2.72136,    .18690,    .02295,
     +     .00000,    .12232,    .20936,
     +     .28804,    .16716,   2.83401,    .19169,    .02910,
     +     .00000,    .12792,    .21460 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
     +     .29183,    .16911,   2.92122,    .19578,    .03425,
     +     .00000,    .13270,    .21905,
     +     .29540,    .17092,   2.99803,    .19966,    .03919,
     +     .00000,    .13723,    .22327,
     +     .29822,    .17234,   3.05566,    .20269,    .04317,
     +     .00000,    .14081,    .22659,
     +     .30405,    .17522,   3.16918,    .20900,    .05137,
     +     .00000,    .14822,    .23344,
     +     .30888,    .17756,   3.24643,    .21412,    .05813,
     +    -.00169,    .15430,    .23897,
     +     .31411,    .18003,   3.30645,    .21962,    .06551,
     +     .00849,    .16084,    .24491,
     +     .31934,    .18247,   3.35564,    .22501,    .07288,
     +     .01751,    .16731,    .25070,
     +     .32391,    .18456,   3.38933,    .22961,    .07929,
     +     .02537,    .17287,    .25564 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
     +     .32836,    .18654,   3.41414,    .23398,    .08550,
     +     .03297,    .17820,    .26033,
     +     .33191,    .18811,   3.42766,    .23736,    .09039,
     +     .03890,    .18237,    .26397,
     +     .33602,    .18988,   3.43610,    .24119,    .09604,
     +     .04574,    .18713,    .26805,
     +     .33954,    .19136,   3.43819,    .24435,    .10083,
     +     .05160,    .19109,    .27142,
     +     .34266,    .19265,   3.43606,    .24708,    .10505,
     +     .05679,    .19455,    .27434,
     +     .34641,    .19417,   3.42603,    .25020,    .11004,
     +     .06289,    .19860,    .27767,
     +     .34978,    .19552,   3.41204,    .25289,    .11449,
     +     .06839,    .20213,    .28054,
     +     .35284,    .19670,   3.39590,    .25524,    .11850,
     +     .07338,    .20525,    .28303 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
     +     .35570,    .19778,   3.37434,    .25728,    .12217,
     +     .07793,    .20807,    .28519,
     +     .35840,    .19877,   3.35117,    .25913,    .12561,
     +     .08224,    .21064,    .28714,
     +     .36086,    .19965,   3.32703,    .26070,    .12869,
     +     .08614,    .21290,    .28882,
     +     .36304,    .20041,   3.30138,    .26199,    .13139,
     +     .08955,    .21484,    .29017,
     +     .36518,    .20115,   3.27505,    .26321,    .13402,
     +     .09292,    .21669,    .29143,
     +     .36715,    .20178,   3.24618,    .26419,    .13637,
     +     .09595,    .21828,    .29246,
     +     .36899,    .20237,   3.21885,    .26507,    .13856,
     +     .09880,    .21975,    .29340,
     +     .37061,    .20286,   3.19061,    .26573,    .14043,
     +     .10126,    .22095,    .29409 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
     +     .37221,    .20334,   3.16224,    .26636,    .14228,
     +     .10370,    .22210,    .29472,
     +     .37370,    .20376,   3.13282,    .26684,    .14397,
     +     .10596,    .22310,    .29522,
     +     .37506,    .20413,   3.10432,    .26721,    .14550,
     +     .10801,    .22397,    .29560,
     +     .37632,    .20447,   3.07708,    .26752,    .14688,
     +     .10991,    .22474,    .29590,
     +     .37751,    .20475,   3.04819,    .26771,    .14816,
     +     .11166,    .22539,    .29608 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
     +     .28959,    .17001,   1.68395,    .14110,    .00000,
     +     .00000,    .07698,    .16424,
     +     .29517,    .17311,   1.83077,    .14480,    .00000,
     +     .00000,    .08161,    .16867,
     +     .30326,    .17744,   2.03619,    .15037,   -.00568,
     +     .00000,    .08853,    .17521,
     +     .30900,    .18043,   2.15473,    .15439,    .00106,
     +     .00000,    .09355,    .17986,
     +     .31489,    .18341,   2.26428,    .15856,    .00672,
     +     .00000,    .09879,    .18465,
     +     .31980,    .18584,   2.34658,    .16209,    .01159,
     +     .00000,    .10320,    .18867,
     +     .32442,    .18809,   2.41796,    .16541,    .01638,
     +     .00000,    .10738,    .19244,
     +     .32920,    .19037,   2.48602,    .16885,    .02146,
     +     .00000,    .11172,    .19631 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
     +     .33320,    .19225,   2.53687,    .17175,    .02566,
     +     .00000,    .11539,    .19957,
     +     .33697,    .19399,   2.58026,    .17446,    .02965,
     +     .00000,    .11883,    .20259,
     +     .33991,    .19533,   2.61209,    .17657,    .03284,
     +     .00000,    .12151,    .20494,
     +     .34591,    .19801,   2.67298,    .18086,    .03934,
     +     .00000,    .12701,    .20969,
     +     .35078,    .20010,   2.71226,    .18426,    .04464,
     +    -.00292,    .13143,    .21342,
     +     .35597,    .20227,   2.73278,    .18781,    .05036,
     +     .00510,    .13610,    .21729,
     +     .36109,    .20435,   2.74488,    .19121,    .05599,
     +     .01214,    .14064,    .22100,
     +     .36550,    .20608,   2.74832,    .19402,    .06083,
     +     .01821,    .14447,    .22405 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
     +     .36970,    .20769,   2.74558,    .19662,    .06547,
     +     .02403,    .14808,    .22683,
     +     .37301,    .20890,   2.73854,    .19859,    .06908,
     +     .02853,    .15085,    .22894,
     +     .37679,    .21025,   2.72478,    .20072,    .07320,
     +     .03367,    .15395,    .23121,
     +     .37995,    .21134,   2.70920,    .20242,    .07666,
     +     .03804,    .15649,    .23301,
     +     .38271,    .21226,   2.69243,    .20384,    .07969,
     +     .04188,    .15866,    .23450,
     +     .38597,    .21328,   2.66656,    .20537,    .08322,
     +     .04635,    .16112,    .23610,
     +     .38885,    .21412,   2.63958,    .20663,    .08634,
     +     .05034,    .16324,    .23738,
     +     .39140,    .21486,   2.61266,    .20765,    .08911,
     +     .05394,    .16505,    .23842 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
     +     .39373,    .21547,   2.58238,    .20844,    .09161,
     +     .05717,    .16661,    .23921,
     +     .39589,    .21599,   2.55177,    .20910,    .09393,
     +     .06022,    .16801,    .23985,
     +     .39780,    .21642,   2.52168,    .20960,    .09599,
     +     .06296,    .16919,    .24032,
     +     .39945,    .21675,   2.49172,    .20992,    .09775,
     +     .06532,    .17014,    .24060,
     +     .40106,    .21705,   2.46162,    .21017,    .09947,
     +     .06766,    .17102,    .24081,
     +     .40245,    .21725,   2.43033,    .21027,    .10096,
     +     .06971,    .17173,    .24084,
     +     .40375,    .21743,   2.40097,    .21035,    .10236,
     +     .07166,    .17237,    .24084,
     +     .40483,    .21753,   2.37183,    .21028,    .10352,
     +     .07330,    .17281,    .24069 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
     +     .40589,    .21761,   2.34277,    .21017,    .10465,
     +     .07493,    .17323,    .24051,
     +     .40683,    .21763,   2.31340,    .20997,    .10567,
     +     .07642,    .17354,    .24022,
     +     .40766,    .21763,   2.28534,    .20974,    .10658,
     +     .07776,    .17378,    .23989,
     +     .40841,    .21759,   2.25880,    .20947,    .10740,
     +     .07900,    .17397,    .23954,
     +     .40907,    .21752,   2.23128,    .20911,    .10811,
     +     .08011,    .17404,    .23909 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
     +     .35252,    .20589,   1.58267,    .12035,    .00000,
     +     .00000,    .06650,    .15183,
     +     .35926,    .20915,   1.65897,    .12266,    .00000,
     +     .00000,    .06995,    .15482,
     +     .36861,    .21351,   1.77059,    .12598,   -.00732,
     +     .00000,    .07489,    .15893,
     +     .37504,    .21633,   1.82427,    .12826,   -.00211,
     +     .00000,    .07834,    .16171,
     +     .38142,    .21903,   1.87128,    .13056,    .00221,
     +     .00000,    .08183,    .16444,
     +     .38661,    .22118,   1.90415,    .13244,    .00584,
     +     .00000,    .08468,    .16661,
     +     .39138,    .22308,   1.93079,    .13414,    .00937,
     +     .00000,    .08735,    .16859,
     +     .39624,    .22494,   1.95428,    .13586,    .01304,
     +     .00000,    .09005,    .17053 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
     +     .40018,    .22642,   1.96965,    .13727,    .01604,
     +     .00000,    .09229,    .17209,
     +     .40382,    .22773,   1.98100,    .13856,    .01886,
     +     .00000,    .09434,    .17348,
     +     .40663,    .22871,   1.98843,    .13952,    .02108,
     +     .00000,    .09592,    .17454,
     +     .41217,    .23055,   2.00075,    .14142,    .02555,
     +     .00000,    .09909,    .17655,
     +     .41645,    .23185,   2.00534,    .14285,    .02914,
     +    -.00353,    .10155,    .17799,
     +     .42086,    .23307,   1.99257,    .14423,    .03294,
     +     .00193,    .10408,    .17935,
     +     .42503,    .23413,   1.97447,    .14545,    .03661,
     +     .00665,    .10644,    .18051,
     +     .42845,    .23490,   1.95422,    .14636,    .03971,
     +     .01067,    .10836,    .18130 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
     +     .43159,    .23551,   1.93077,    .14710,    .04264,
     +     .01447,    .11008,    .18193,
     +     .43392,    .23587,   1.90894,    .14758,    .04489,
     +     .01738,    .11135,    .18226,
     +     .43646,    .23617,   1.88003,    .14800,    .04740,
     +     .02065,    .11271,    .18249,
     +     .43848,    .23632,   1.85310,    .14826,    .04948,
     +     .02341,    .11376,    .18256,
     +     .44015,    .23636,   1.82748,    .14840,    .05127,
     +     .02579,    .11460,    .18250,
     +     .44195,    .23628,   1.79290,    .14840,    .05331,
     +     .02853,    .11548,    .18223,
     +     .44341,    .23609,   1.75956,    .14828,    .05509,
     +     .03095,    .11616,    .18185,
     +     .44461,    .23583,   1.72801,    .14808,    .05663,
     +     .03309,    .11669,    .18139 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
     +     .44553,    .23543,   1.69513,    .14774,    .05798,
     +     .03499,    .11705,    .18078,
     +     .44628,    .23499,   1.66296,    .14733,    .05922,
     +     .03676,    .11732,    .18009,
     +     .44685,    .23449,   1.63240,    .14689,    .06029,
     +     .03831,    .11749,    .17936,
     +     .44721,    .23396,   1.60310,    .14637,    .06118,
     +     .03965,    .11753,    .17857,
     +     .44749,    .23339,   1.57411,    .14583,    .06202,
     +     .04094,    .11755,    .17776,
     +     .44758,    .23275,   1.54503,    .14519,    .06274,
     +     .04207,    .11745,    .17686,
     +     .44762,    .23213,   1.51804,    .14459,    .06339,
     +     .04311,    .11734,    .17598,
     +     .44752,    .23146,   1.49204,    .14393,    .06391,
     +     .04399,    .11715,    .17507 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
     +     .44737,    .23077,   1.46636,    .14325,    .06440,
     +     .04483,    .11694,    .17413,
     +     .44709,    .23006,   1.44092,    .14254,    .06482,
     +     .04559,    .11666,    .17316,
     +     .44676,    .22935,   1.41690,    .14184,    .06519,
     +     .04627,    .11637,    .17220,
     +     .44641,    .22866,   1.39443,    .14115,    .06551,
     +     .04688,    .11606,    .17126,
     +     .44595,    .22790,   1.37155,    .14040,    .06575,
     +     .04742,    .11570,    .17027 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
     +     .40539,    .23345,   1.39240,    .10478,    .00000,
     +     .00000,    .06003,    .14279,
     +     .41275,    .23644,   1.43540,    .10587,    .00000,
     +     .00000,    .06237,    .14431,
     +     .42254,    .24025,   1.50153,    .10748,   -.00677,
     +     .00000,    .06565,    .14625,
     +     .42901,    .24254,   1.52726,    .10853,   -.00272,
     +     .00000,    .06791,    .14745,
     +     .43524,    .24462,   1.54785,    .10956,    .00063,
     +     .00000,    .07015,    .14854,
     +     .44016,    .24615,   1.56030,    .11037,    .00342,
     +     .00000,    .07197,    .14936,
     +     .44457,    .24744,   1.56882,    .11111,    .00610,
     +     .00000,    .07361,    .15004,
     +     .44892,    .24861,   1.57452,    .11182,    .00887,
     +     .00000,    .07528,    .15067 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
     +     .45236,    .24945,   1.57601,    .11236,    .01112,
     +     .00000,    .07663,    .15110,
     +     .45544,    .25013,   1.57502,    .11284,    .01323,
     +     .00000,    .07787,    .15143,
     +     .45774,    .25061,   1.57323,    .11319,    .01487,
     +     .00000,    .07880,    .15166,
     +     .46213,    .25134,   1.56712,    .11383,    .01816,
     +     .00000,    .08063,    .15198,
     +     .46529,    .25163,   1.55903,    .11421,    .02076,
     +    -.00341,    .08201,    .15204,
     +     .46831,    .25176,   1.53568,    .11451,    .02349,
     +     .00058,    .08335,    .15192,
     +     .47094,    .25162,   1.50854,    .11467,    .02610,
     +     .00401,    .08455,    .15161,
     +     .47290,    .25129,   1.48166,    .11467,    .02827,
     +     .00689,    .08546,    .15119 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
     +     .47452,    .25079,   1.45289,    .11457,    .03029,
     +     .00959,    .08624,    .15061,
     +     .47555,    .25025,   1.42776,    .11439,    .03183,
     +     .01164,    .08677,    .15002,
     +     .47647,    .24945,   1.39603,    .11406,    .03352,
     +     .01393,    .08726,    .14917,
     +     .47701,    .24864,   1.36744,    .11370,    .03490,
     +     .01583,    .08759,    .14834,
     +     .47732,    .24781,   1.34094,    .11330,    .03607,
     +     .01746,    .08782,    .14751,
     +     .47736,    .24660,   1.30639,    .11268,    .03738,
     +     .01932,    .08796,    .14633,
     +     .47717,    .24536,   1.27385,    .11202,    .03850,
     +     .02093,    .08800,    .14515,
     +     .47679,    .24414,   1.24361,    .11134,    .03946,
     +     .02235,    .08795,    .14401 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
     +     .47614,    .24282,   1.21284,    .11059,    .04026,
     +     .02359,    .08779,    .14275,
     +     .47534,    .24146,   1.18318,    .10980,    .04099,
     +     .02472,    .08757,    .14147,
     +     .47445,    .24013,   1.15537,    .10903,    .04160,
     +     .02572,    .08732,    .14023,
     +     .47343,    .23880,   1.12916,    .10823,    .04210,
     +     .02655,    .08700,    .13900,
     +     .47233,    .23745,   1.10344,    .10742,    .04256,
     +     .02735,    .08665,    .13776,
     +     .47106,    .23605,   1.07803,    .10657,    .04292,
     +     .02803,    .08624,    .13647,
     +     .46982,    .23474,   1.05456,    .10577,    .04325,
     +     .02867,    .08585,    .13525,
     +     .46849,    .23341,   1.03230,    .10495,    .04350,
     +     .02918,    .08542,    .13405 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
     +     .46712,    .23207,   1.01042,    .10414,    .04371,
     +     .02967,    .08497,    .13285,
     +     .46565,    .23071,    .98897,    .10329,    .04389,
     +     .03010,    .08449,    .13163,
     +     .46419,    .22941,    .96888,    .10248,    .04402,
     +     .03048,    .08401,    .13045,
     +     .46277,    .22816,    .95019,    .10170,    .04412,
     +     .03082,    .08355,    .12934,
     +     .46123,    .22685,    .93134,    .10089,    .04419,
     +     .03110,    .08304,    .12817 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
     +     .45140,    .25514,   1.20021,    .09160,    .00000,
     +     .00000,    .05482,    .13417,
     +     .45880,    .25764,   1.22906,    .09181,    .00000,
     +     .00000,    .05621,    .13430,
     +     .46844,    .26045,   1.27445,    .09210,   -.00588,
     +     .00000,    .05816,    .13443,
     +     .47441,    .26201,   1.28877,    .09232,   -.00267,
     +     .00000,    .05951,    .13436,
     +     .47997,    .26320,   1.29841,    .09256,   -.00004,
     +     .00000,    .06084,    .13421,
     +     .48420,    .26395,   1.30225,    .09272,    .00216,
     +     .00000,    .06194,    .13400,
     +     .48784,    .26447,   1.30312,    .09285,    .00426,
     +     .00000,    .06293,    .13374,
     +     .49128,    .26481,   1.30133,    .09296,    .00644,
     +     .00000,    .06390,    .13343 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
     +     .49387,    .26492,   1.29692,    .09302,    .00820,
     +     .00000,    .06468,    .13308,
     +     .49607,    .26487,   1.29074,    .09305,    .00983,
     +     .00000,    .06539,    .13269,
     +     .49765,    .26477,   1.28507,    .09307,    .01110,
     +     .00000,    .06592,    .13236,
     +     .50040,    .26426,   1.27112,    .09302,    .01364,
     +     .00000,    .06693,    .13155,
     +     .50201,    .26350,   1.25779,    .09287,    .01562,
     +    -.00322,    .06763,    .13073,
     +     .50329,    .26240,   1.23079,    .09261,    .01768,
     +    -.00016,    .06828,    .12970,
     +     .50405,    .26103,   1.20076,    .09223,    .01963,
     +     .00246,    .06882,    .12851,
     +     .50429,    .25960,   1.17208,    .09178,    .02124,
     +     .00465,    .06917,    .12733 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
     +     .50413,    .25800,   1.14224,    .09127,    .02272,
     +     .00668,    .06941,    .12606,
     +     .50367,    .25657,   1.11675,    .09078,    .02382,
     +     .00820,    .06950,    .12495,
     +     .50277,    .25470,   1.08524,    .09010,    .02502,
     +     .00989,    .06953,    .12353,
     +     .50171,    .25295,   1.05730,    .08946,    .02600,
     +     .01129,    .06947,    .12221,
     +     .50054,    .25129,   1.03176,    .08884,    .02681,
     +     .01248,    .06936,    .12098,
     +     .49872,    .24907,    .99900,    .08795,    .02769,
     +     .01380,    .06912,    .11934,
     +     .49677,    .24690,    .96857,    .08708,    .02843,
     +     .01495,    .06882,    .11776,
     +     .49480,    .24481,    .94060,    .08624,    .02905,
     +     .01595,    .06849,    .11626 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
     +     .49253,    .24263,    .91257,    .08532,    .02955,
     +     .01680,    .06807,    .11471,
     +     .49019,    .24047,    .88578,    .08442,    .03000,
     +     .01758,    .06762,    .11319,
     +     .48783,    .23840,    .86091,    .08353,    .03036,
     +     .01824,    .06718,    .11172,
     +     .48545,    .23640,    .83771,    .08267,    .03064,
     +     .01880,    .06670,    .11031,
     +     .48302,    .23438,    .81508,    .08180,    .03088,
     +     .01933,    .06620,    .10891,
     +     .48042,    .23235,    .79298,    .08090,    .03106,
     +     .01976,    .06567,    .10750,
     +     .47796,    .23044,    .77268,    .08005,    .03123,
     +     .02017,    .06516,    .10618,
     +     .47548,    .22858,    .75357,    .07922,    .03132,
     +     .02048,    .06463,    .10489 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
     +     .47297,    .22671,    .73488,    .07840,    .03140,
     +     .02079,    .06410,    .10361,
     +     .47040,    .22483,    .71672,    .07756,    .03145,
     +     .02104,    .06355,    .10232,
     +     .46789,    .22304,    .69980,    .07676,    .03148,
     +     .02127,    .06303,    .10111,
     +     .46549,    .22135,    .68412,    .07601,    .03148,
     +     .02145,    .06252,    .09996,
     +     .46297,    .21959,    .66846,    .07522,    .03146,
     +     .02162,    .06198,    .09880 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
     +     .50070,    .27520,   1.00939,    .07684,    .00000,
     +     .00000,    .04832,    .12184,
     +     .50748,    .27661,   1.03185,    .07633,    .00000,
     +     .00000,    .04883,    .12073,
     +     .51567,    .27788,   1.06598,    .07579,   -.00514,
     +     .00000,    .04970,    .11910,
     +     .52037,    .27820,   1.07421,    .07548,   -.00263,
     +     .00000,    .05032,    .11794,
     +     .52444,    .27810,   1.07738,    .07517,   -.00058,
     +     .00000,    .05100,    .11677,
     +     .52724,    .27775,   1.07592,    .07491,    .00113,
     +     .00000,    .05150,    .11574,
     +     .52942,    .27718,   1.07189,    .07469,    .00278,
     +     .00000,    .05197,    .11472,
     +     .53128,    .27637,   1.06515,    .07445,    .00447,
     +     .00000,    .05245,    .11362 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
     +     .53241,    .27550,   1.05676,    .07424,    .00582,
     +     .00000,    .05280,    .11267,
     +     .53319,    .27451,   1.04699,    .07399,    .00708,
     +     .00000,    .05312,    .11175,
     +     .53365,    .27365,   1.03862,    .07378,    .00806,
     +     .00000,    .05335,    .11102,
     +     .53392,    .27159,   1.01921,    .07333,    .00999,
     +     .00000,    .05374,    .10940,
     +     .53336,    .26949,   1.00210,    .07286,    .01148,
     +    -.00301,    .05398,    .10797,
     +     .53217,    .26693,    .97281,    .07229,    .01301,
     +    -.00068,    .05415,    .10632,
     +     .53035,    .26410,    .94120,    .07160,    .01444,
     +     .00131,    .05420,    .10455,
     +     .52823,    .26141,    .91180,    .07093,    .01559,
     +     .00293,    .05414,    .10289 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
     +     .52570,    .25860,    .88178,    .07022,    .01664,
     +     .00443,    .05401,    .10119,
     +     .52331,    .25617,    .85666,    .06958,    .01741,
     +     .00554,    .05385,    .09973,
     +     .52011,    .25311,    .82611,    .06875,    .01823,
     +     .00676,    .05357,    .09797,
     +     .51704,    .25035,    .79950,    .06797,    .01887,
     +     .00775,    .05325,    .09640,
     +     .51406,    .24779,    .77546,    .06725,    .01940,
     +     .00858,    .05293,    .09494,
     +     .50997,    .24446,    .74512,    .06626,    .01996,
     +     .00951,    .05245,    .09310,
     +     .50593,    .24130,    .71735,    .06532,    .02042,
     +     .01030,    .05194,    .09134,
     +     .50203,    .23834,    .69210,    .06443,    .02078,
     +     .01097,    .05146,    .08970 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
     +     .49787,    .23530,    .66716,    .06349,    .02106,
     +     .01153,    .05090,    .08805,
     +     .49374,    .23233,    .64358,    .06257,    .02130,
     +     .01204,    .05035,    .08644,
     +     .48973,    .22952,    .62192,    .06169,    .02148,
     +     .01247,    .04979,    .08492,
     +     .48581,    .22685,    .60193,    .06083,    .02160,
     +     .01281,    .04924,    .08350,
     +     .48187,    .22419,    .58258,    .05999,    .02169,
     +     .01313,    .04867,    .08209,
     +     .47784,    .22154,    .56388,    .05913,    .02175,
     +     .01340,    .04810,    .08068,
     +     .47404,    .21906,    .54679,    .05833,    .02179,
     +     .01363,    .04756,    .07938,
     +     .47031,    .21668,    .53092,    .05755,    .02179,
     +     .01381,    .04702,    .07813 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
     +     .46655,    .21431,    .51550,    .05678,    .02178,
     +     .01398,    .04648,    .07689,
     +     .46279,    .21195,    .50060,    .05601,    .02175,
     +     .01412,    .04593,    .07569,
     +     .45919,    .20971,    .48681,    .05528,    .02170,
     +     .01422,    .04539,    .07455,
     +     .45577,    .20760,    .47411,    .05458,    .02165,
     +     .01432,    .04489,    .07347,
     +     .45223,    .20545,    .46150,    .05387,    .02157,
     +     .01439,    .04438,    .07238 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
     +     .54234,    .28892,    .88313,    .06358,    .00000,
     +     .00000,    .04143,    .10785,
     +     .54768,    .28914,    .90163,    .06283,    .00000,
     +     .00000,    .04152,    .10593,
     +     .55358,    .28846,    .92859,    .06193,   -.00501,
     +     .00000,    .04183,    .10336,
     +     .55643,    .28740,    .93185,    .06142,   -.00292,
     +     .00000,    .04209,    .10160,
     +     .55845,    .28591,    .92967,    .06090,   -.00120,
     +     .00000,    .04235,    .09984,
     +     .55941,    .28434,    .92356,    .06053,    .00023,
     +     .00000,    .04261,    .09834,
     +     .55982,    .28265,    .91530,    .06016,    .00159,
     +     .00000,    .04282,    .09695,
     +     .55973,    .28067,    .90429,    .05978,    .00298,
     +     .00000,    .04303,    .09549 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
     +     .55922,    .27877,    .89242,    .05944,    .00408,
     +     .00000,    .04317,    .09427,
     +     .55835,    .27685,    .87957,    .05911,    .00511,
     +     .00000,    .04327,    .09307,
     +     .55746,    .27529,    .86895,    .05884,    .00589,
     +     .00000,    .04333,    .09212,
     +     .55497,    .27170,    .84495,    .05825,    .00744,
     +     .00000,    .04342,    .09014,
     +     .55204,    .26839,    .82489,    .05768,    .00861,
     +    -.00286,    .04339,    .08841,
     +     .54820,    .26456,    .79371,    .05700,    .00980,
     +    -.00101,    .04330,    .08646,
     +     .54372,    .26041,    .76087,    .05623,    .01089,
     +     .00055,    .04311,    .08447,
     +     .53925,    .25656,    .73101,    .05547,    .01176,
     +     .00182,    .04286,    .08265 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
     +     .53441,    .25265,    .70116,    .05468,    .01252,
     +     .00296,    .04254,    .08081,
     +     .53012,    .24936,    .67657,    .05401,    .01307,
     +     .00381,    .04222,    .07927,
     +     .52469,    .24530,    .64724,    .05314,    .01364,
     +     .00472,    .04177,    .07744,
     +     .51972,    .24171,    .62196,    .05234,    .01408,
     +     .00545,    .04136,    .07583,
     +     .51503,    .23841,    .59943,    .05161,    .01443,
     +     .00607,    .04095,    .07437,
     +     .50882,    .23421,    .57146,    .05065,    .01479,
     +     .00673,    .04038,    .07248,
     +     .50286,    .23028,    .54616,    .04974,    .01507,
     +     .00728,    .03980,    .07074,
     +     .49722,    .22662,    .52343,    .04887,    .01527,
     +     .00775,    .03925,    .06914 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
     +     .49138,    .22295,    .50129,    .04800,    .01543,
     +     .00814,    .03866,    .06754,
     +     .48565,    .21938,    .48055,    .04714,    .01554,
     +     .00848,    .03806,    .06602,
     +     .48021,    .21600,    .46169,    .04631,    .01561,
     +     .00875,    .03749,    .06460,
     +     .47497,    .21284,    .44447,    .04552,    .01565,
     +     .00898,    .03694,    .06326,
     +     .46972,    .20973,    .42792,    .04475,    .01567,
     +     .00918,    .03639,    .06194,
     +     .46447,    .20665,    .41210,    .04397,    .01565,
     +     .00934,    .03583,    .06066,
     +     .45953,    .20377,    .39774,    .04325,    .01563,
     +     .00948,    .03529,    .05947,
     +     .45478,    .20103,    .38453,    .04255,    .01558,
     +     .00958,    .03478,    .05836 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
     +     .45005,    .19831,    .37173,    .04185,    .01553,
     +     .00967,    .03427,    .05724,
     +     .44532,    .19564,    .35947,    .04117,    .01546,
     +     .00974,    .03376,    .05615,
     +     .44080,    .19314,    .34818,    .04054,    .01538,
     +     .00979,    .03329,    .05512,
     +     .43654,    .19079,    .33785,    .03993,    .01530,
     +     .00983,    .03283,    .05417,
     +     .43219,    .18840,    .32769,    .03933,    .01522,
     +     .00986,    .03237,    .05321 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
     +     .57661,    .29734,    .80943,    .05184,    .00000,
     +     .00000,    .03440,    .09287,
     +     .58006,    .29605,    .82224,    .05109,    .00000,
     +     .00000,    .03433,    .09063,
     +     .58282,    .29347,    .84059,    .05030,   -.00530,
     +     .00000,    .03440,    .08758,
     +     .58335,    .29102,    .83729,    .04979,   -.00343,
     +     .00000,    .03452,    .08558,
     +     .58288,    .28810,    .82839,    .04934,   -.00189,
     +     .00000,    .03465,    .08358,
     +     .58172,    .28538,    .81689,    .04895,   -.00062,
     +     .00000,    .03477,    .08192,
     +     .58008,    .28260,    .80377,    .04860,    .00057,
     +     .00000,    .03486,    .08040,
     +     .57786,    .27952,    .78804,    .04825,    .00177,
     +     .00000,    .03492,    .07883 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
     +     .57546,    .27671,    .77255,    .04789,    .00273,
     +     .00000,    .03495,    .07748,
     +     .57285,    .27390,    .75657,    .04756,    .00360,
     +     .00000,    .03496,    .07620,
     +     .57063,    .27165,    .74369,    .04727,    .00425,
     +     .00000,    .03495,    .07521,
     +     .56527,    .26672,    .71538,    .04663,    .00553,
     +     .00000,    .03488,    .07312,
     +     .55992,    .26233,    .69262,    .04606,    .00649,
     +    -.00272,    .03474,    .07134,
     +     .55352,    .25732,    .65978,    .04534,    .00744,
     +    -.00121,    .03450,    .06940,
     +     .54643,    .25207,    .62605,    .04457,    .00830,
     +     .00005,    .03418,    .06737,
     +     .53966,    .24731,    .59605,    .04386,    .00895,
     +     .00106,    .03382,    .06555 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
     +     .53262,    .24251,    .56657,    .04307,    .00953,
     +     .00196,    .03341,    .06377,
     +     .52659,    .23851,    .54277,    .04240,    .00993,
     +     .00262,    .03305,    .06229,
     +     .51908,    .23367,    .51479,    .04157,    .01034,
     +     .00332,    .03255,    .06054,
     +     .51235,    .22943,    .49105,    .04082,    .01064,
     +     .00388,    .03209,    .05901,
     +     .50614,    .22557,    .47014,    .04010,    .01088,
     +     .00433,    .03164,    .05763,
     +     .49808,    .22071,    .44454,    .03920,    .01111,
     +     .00483,    .03105,    .05589,
     +     .49044,    .21619,    .42171,    .03835,    .01127,
     +     .00523,    .03048,    .05429,
     +     .48331,    .21203,    .40144,    .03757,    .01138,
     +     .00555,    .02994,    .05280 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
     +     .47608,    .20787,    .38189,    .03675,    .01146,
     +     .00583,    .02937,    .05139,
     +     .46903,    .20388,    .36380,    .03595,    .01150,
     +     .00606,    .02880,    .05002,
     +     .46238,    .20016,    .34752,    .03521,    .01151,
     +     .00625,    .02827,    .04874,
     +     .45606,    .19667,    .33281,    .03452,    .01149,
     +     .00639,    .02775,    .04755,
     +     .44980,    .19323,    .31873,    .03383,    .01147,
     +     .00652,    .02725,    .04639,
     +     .44358,    .18988,    .30544,    .03314,    .01142,
     +     .00662,    .02673,    .04528,
     +     .43775,    .18677,    .29342,    .03250,    .01137,
     +     .00670,    .02624,    .04425,
     +     .43218,    .18382,    .28245,    .03189,    .01131,
     +     .00676,    .02579,    .04328 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
     +     .42664,    .18092,    .27188,    .03129,    .01124,
     +     .00681,    .02534,    .04233,
     +     .42118,    .17806,    .26186,    .03071,    .01114,
     +     .00683,    .02488,    .04140,
     +     .41601,    .17538,    .25270,    .03015,    .01107,
     +     .00686,    .02446,    .04053,
     +     .41116,    .17288,    .24434,    .02963,    .01098,
     +     .00687,    .02406,    .03971,
     +     .40622,    .17034,    .23617,    .02912,    .01089,
     +     .00687,    .02367,    .03890 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
     +     .60385,    .30101,    .76963,    .04168,    .00000,
     +     .00000,    .02750,    .07769,
     +     .60475,    .29840,    .77386,    .04117,    .00000,
     +     .00000,    .02750,    .07544,
     +     .60399,    .29367,    .78087,    .04057,   -.00573,
     +     .00000,    .02766,    .07248,
     +     .60189,    .28987,    .76920,    .04021,   -.00397,
     +     .00000,    .02781,    .07047,
     +     .59871,    .28560,    .75244,    .03987,   -.00253,
     +     .00000,    .02791,    .06851,
     +     .59529,    .28172,    .73488,    .03955,   -.00136,
     +     .00000,    .02800,    .06693,
     +     .59149,    .27793,    .71660,    .03925,   -.00027,
     +     .00000,    .02806,    .06544,
     +     .58701,    .27383,    .69607,    .03892,    .00080,
     +     .00000,    .02810,    .06390 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
     +     .58274,    .27017,    .67700,    .03861,    .00164,
     +     .00000,    .02808,    .06262,
     +     .57837,    .26659,    .65809,    .03827,    .00240,
     +     .00000,    .02806,    .06138,
     +     .57478,    .26375,    .64315,    .03800,    .00296,
     +     .00000,    .02803,    .06041,
     +     .56656,    .25763,    .61124,    .03741,    .00405,
     +     .00000,    .02785,    .05845,
     +     .55891,    .25230,    .58621,    .03685,    .00485,
     +    -.00255,    .02765,    .05677,
     +     .55002,    .24637,    .55224,    .03619,    .00562,
     +    -.00129,    .02738,    .05489,
     +     .54049,    .24022,    .51820,    .03545,    .00629,
     +    -.00027,    .02702,    .05302,
     +     .53165,    .23468,    .48864,    .03472,    .00681,
     +     .00055,    .02663,    .05137 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
     +     .52260,    .22916,    .46013,    .03398,    .00725,
     +     .00127,    .02622,    .04972,
     +     .51501,    .22462,    .43747,    .03335,    .00755,
     +     .00179,    .02583,    .04839,
     +     .50569,    .21923,    .41119,    .03258,    .00785,
     +     .00234,    .02535,    .04677,
     +     .49745,    .21452,    .38924,    .03188,    .00805,
     +     .00276,    .02488,    .04539,
     +     .48991,    .21025,    .37013,    .03124,    .00820,
     +     .00310,    .02445,    .04417,
     +     .48026,    .20492,    .34708,    .03041,    .00835,
     +     .00347,    .02388,    .04263,
     +     .47126,    .20001,    .32676,    .02963,    .00844,
     +     .00376,    .02334,    .04124,
     +     .46294,    .19551,    .30889,    .02890,    .00849,
     +     .00399,    .02284,    .03998 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
     +     .45455,    .19106,    .29194,    .02817,    .00851,
     +     .00419,    .02231,    .03873,
     +     .44643,    .18681,    .27636,    .02748,    .00851,
     +     .00434,    .02180,    .03755,
     +     .43880,    .18289,    .26246,    .02683,    .00849,
     +     .00447,    .02131,    .03647,
     +     .43165,    .17921,    .25002,    .02622,    .00846,
     +     .00456,    .02085,    .03546,
     +     .42462,    .17559,    .23822,    .02560,    .00842,
     +     .00465,    .02041,    .03448,
     +     .41766,    .17210,    .22716,    .02501,    .00836,
     +     .00471,    .01997,    .03355,
     +     .41117,    .16885,    .21723,    .02446,    .00830,
     +     .00476,    .01956,    .03266,
     +     .40501,    .16583,    .20825,    .02396,    .00822,
     +     .00478,    .01916,    .03184 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
     +     .39888,    .16284,    .19965,    .02347,    .00814,
     +     .00481,    .01877,    .03104,
     +     .39291,    .15992,    .19153,    .02297,    .00806,
     +     .00482,    .01838,    .03026,
     +     .38728,    .15716,    .18415,    .02249,    .00798,
     +     .00482,    .01802,    .02955,
     +     .38200,    .15459,    .17746,    .02206,    .00790,
     +     .00482,    .01767,    .02890,
     +     .37668,    .15203,    .17096,    .02160,    .00782,
     +     .00482,    .01734,    .02825 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
     +     .62416,    .30054,    .74564,    .03311,    .00000,
     +     .00000,    .02123,    .06315,
     +     .62240,    .29636,    .73945,    .03279,    .00000,
     +     .00000,    .02142,    .06118,
     +     .61759,    .28974,    .73322,    .03247,   -.00609,
     +     .00000,    .02175,    .05855,
     +     .61266,    .28468,    .71245,    .03233,   -.00441,
     +     .00000,    .02197,    .05675,
     +     .60664,    .27914,    .68758,    .03208,   -.00302,
     +     .00000,    .02216,    .05504,
     +     .60085,    .27427,    .66419,    .03187,   -.00192,
     +     .00000,    .02227,    .05359,
     +     .59489,    .26954,    .64114,    .03161,   -.00092,
     +     .00000,    .02235,    .05225,
     +     .58824,    .26448,    .61630,    .03130,    .00004,
     +     .00000,    .02239,    .05089 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
     +     .58211,    .26012,    .59425,    .03102,    .00079,
     +     .00000,    .02238,    .04972,
     +     .57597,    .25590,    .57294,    .03075,    .00146,
     +     .00000,    .02234,    .04860,
     +     .57102,    .25257,    .55641,    .03053,    .00196,
     +     .00000,    .02228,    .04772,
     +     .56009,    .24551,    .52196,    .02997,    .00288,
     +     .00000,    .02209,    .04595,
     +     .55031,    .23943,    .49553,    .02944,    .00356,
     +    -.00234,    .02189,    .04445,
     +     .53916,    .23272,    .46147,    .02879,    .00419,
     +    -.00130,    .02159,    .04282,
     +     .52747,    .22586,    .42808,    .02809,    .00473,
     +    -.00045,    .02121,    .04118,
     +     .51679,    .21977,    .39960,    .02744,    .00514,
     +     .00021,    .02085,    .03968 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
     +     .50595,    .21379,    .37264,    .02678,    .00547,
     +     .00079,    .02044,    .03821,
     +     .49700,    .20890,    .35154,    .02620,    .00569,
     +     .00120,    .02006,    .03706,
     +     .48618,    .20306,    .32745,    .02548,    .00590,
     +     .00162,    .01959,    .03569,
     +     .47668,    .19802,    .30756,    .02485,    .00606,
     +     .00195,    .01918,    .03451,
     +     .46806,    .19353,    .29047,    .02426,    .00615,
     +     .00221,    .01877,    .03345,
     +     .45717,    .18791,    .27009,    .02351,    .00623,
     +     .00248,    .01826,    .03215,
     +     .44705,    .18279,    .25235,    .02284,    .00628,
     +     .00269,    .01778,    .03097,
     +     .43770,    .17814,    .23693,    .02223,    .00631,
     +     .00286,    .01732,    .02987 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
     +     .42846,    .17354,    .22247,    .02157,    .00630,
     +     .00300,    .01686,    .02884,
     +     .41956,    .16916,    .20932,    .02096,    .00628,
     +     .00311,    .01641,    .02788,
     +     .41127,    .16512,    .19765,    .02040,    .00625,
     +     .00320,    .01599,    .02699,
     +     .40351,    .16140,    .18730,    .01987,    .00620,
     +     .00326,    .01560,    .02615,
     +     .39587,    .15775,    .17754,    .01937,    .00614,
     +     .00331,    .01523,    .02534,
     +     .38841,    .15421,    .16850,    .01886,    .00609,
     +     .00334,    .01485,    .02457,
     +     .38150,    .15094,    .16043,    .01840,    .00602,
     +     .00337,    .01450,    .02387,
     +     .37497,    .14790,    .15319,    .01795,    .00596,
     +     .00339,    .01416,    .02321 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
     +     .36852,    .14492,    .14626,    .01752,    .00589,
     +     .00340,    .01384,    .02257,
     +     .36221,    .14200,    .13980,    .01710,    .00581,
     +     .00340,    .01351,    .02194,
     +     .35627,    .13929,    .13395,    .01672,    .00573,
     +     .00339,    .01321,    .02138,
     +     .35073,    .13676,    .12867,    .01636,    .00567,
     +     .00339,    .01295,    .02084,
     +     .34516,    .13425,    .12356,    .01601,    .00560,
     +     .00337,    .01266,    .02032 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
     +     .63794,    .29616,    .72351,    .02571,    .00000,
     +     .00000,    .01596,    .05007,
     +     .63302,    .29075,    .70633,    .02580,    .00000,
     +     .00000,    .01629,    .04840,
     +     .62390,    .28240,    .68664,    .02585,   -.00626,
     +     .00000,    .01678,    .04622,
     +     .61615,    .27615,    .65760,    .02579,   -.00465,
     +     .00000,    .01708,    .04474,
     +     .60724,    .26951,    .62553,    .02575,   -.00332,
     +     .00000,    .01731,    .04324,
     +     .59912,    .26375,    .59720,    .02557,   -.00229,
     +     .00000,    .01747,    .04205,
     +     .59104,    .25828,    .57031,    .02540,   -.00137,
     +     .00000,    .01755,    .04092,
     +     .58219,    .25255,    .54232,    .02518,   -.00049,
     +     .00000,    .01757,    .03972 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
     +     .57428,    .24756,    .51822,    .02493,    .00017,
     +     .00000,    .01758,    .03873,
     +     .56653,    .24281,    .49546,    .02470,    .00076,
     +     .00000,    .01753,    .03777,
     +     .56036,    .23911,    .47806,    .02449,    .00119,
     +     .00000,    .01747,    .03701,
     +     .54702,    .23123,    .44241,    .02397,    .00199,
     +     .00000,    .01733,    .03550,
     +     .53525,    .22464,    .41570,    .02351,    .00255,
     +    -.00209,    .01710,    .03419,
     +     .52214,    .21738,    .38253,    .02292,    .00308,
     +    -.00123,    .01681,    .03281,
     +     .50852,    .21007,    .35073,    .02229,    .00352,
     +    -.00053,    .01645,    .03139,
     +     .49624,    .20365,    .32409,    .02171,    .00383,
     +     .00000,    .01612,    .03013 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
     +     .48402,    .19732,    .29924,    .02107,    .00409,
     +     .00046,    .01576,    .02891,
     +     .47398,    .19215,    .28008,    .02054,    .00426,
     +     .00078,    .01541,    .02798,
     +     .46191,    .18611,    .25855,    .01991,    .00441,
     +     .00111,    .01499,    .02680,
     +     .45141,    .18093,    .24099,    .01935,    .00451,
     +     .00136,    .01460,    .02580,
     +     .44199,    .17631,    .22601,    .01882,    .00458,
     +     .00156,    .01426,    .02494,
     +     .43013,    .17058,    .20842,    .01818,    .00463,
     +     .00176,    .01380,    .02387,
     +     .41922,    .16535,    .19327,    .01758,    .00465,
     +     .00192,    .01337,    .02292,
     +     .40925,    .16063,    .18022,    .01702,    .00465,
     +     .00204,    .01298,    .02207 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
     +     .39938,    .15602,    .16815,    .01648,    .00464,
     +     .00214,    .01259,    .02119,
     +     .38996,    .15165,    .15722,    .01597,    .00460,
     +     .00222,    .01223,    .02039,
     +     .38120,    .14766,    .14764,    .01549,    .00457,
     +     .00228,    .01187,    .01967,
     +     .37307,    .14396,    .13922,    .01505,    .00452,
     +     .00232,    .01155,    .01901,
     +     .36511,    .14036,    .13134,    .01461,    .00447,
     +     .00235,    .01122,    .01837,
     +     .35735,    .13690,    .12409,    .01420,    .00441,
     +     .00237,    .01091,    .01775,
     +     .35017,    .13370,    .11765,    .01382,    .00435,
     +     .00238,    .01063,    .01718,
     +     .34344,    .13071,    .11189,    .01345,    .00430,
     +     .00239,    .01036,    .01667 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
     +     .33683,    .12779,    .10642,    .01310,    .00423,
     +     .00239,    .01009,    .01618,
     +     .33037,    .12496,    .10135,    .01275,    .00416,
     +     .00238,    .00984,    .01569,
     +     .32431,    .12234,    .09679,    .01244,    .00410,
     +     .00238,    .00960,    .01524,
     +     .31868,    .11990,    .09267,    .01215,    .00405,
     +     .00237,    .00937,    .01483,
     +     .31304,    .11746,    .08875,    .01184,    .00399,
     +     .00236,    .00915,    .01443 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
     +     .64403,    .28958,    .69498,    .02071,    .00000,
     +     .00000,    .01093,    .03801,
     +     .63617,    .28281,    .66748,    .02086,    .00000,
     +     .00000,    .01157,    .03685,
     +     .62300,    .27276,    .63556,    .02096,   -.00619,
     +     .00000,    .01229,    .03528,
     +     .61253,    .26544,    .59951,    .02097,   -.00466,
     +     .00000,    .01268,    .03423,
     +     .60097,    .25782,    .56190,    .02090,   -.00340,
     +     .00000,    .01302,    .03310,
     +     .59061,    .25135,    .53018,    .02082,   -.00245,
     +     .00000,    .01321,    .03210,
     +     .58052,    .24524,    .50082,    .02066,   -.00162,
     +     .00000,    .01335,    .03120,
     +     .56970,    .23887,    .47096,    .02045,   -.00083,
     +     .00000,    .01344,    .03026 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
     +     .56021,    .23345,    .44593,    .02024,   -.00024,
     +     .00000,    .01346,    .02943,
     +     .55108,    .22823,    .42275,    .01996,    .00027,
     +     .00000,    .01344,    .02868,
     +     .54389,    .22415,    .40522,    .01972,    .00064,
     +     .00000,    .01342,    .02811,
     +     .52834,    .21578,    .36999,    .01926,    .00132,
     +     .00000,    .01326,    .02684,
     +     .51496,    .20877,    .34392,    .01882,    .00179,
     +    -.00182,    .01310,    .02578,
     +     .50015,    .20118,    .31272,    .01830,    .00222,
     +    -.00111,    .01286,    .02462,
     +     .48502,    .19354,    .28334,    .01769,    .00257,
     +    -.00054,    .01255,    .02349,
     +     .47154,    .18684,    .25914,    .01713,    .00282,
     +    -.00012,    .01225,    .02248 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
     +     .45818,    .18035,    .23692,    .01658,    .00302,
     +     .00024,    .01191,    .02148,
     +     .44726,    .17516,    .22002,    .01613,    .00314,
     +     .00050,    .01163,    .02067,
     +     .43431,    .16901,    .20127,    .01554,    .00326,
     +     .00076,    .01128,    .01976,
     +     .42314,    .16376,    .18613,    .01505,    .00333,
     +     .00095,    .01097,    .01896,
     +     .41308,    .15910,    .17338,    .01461,    .00337,
     +     .00110,    .01069,    .01823,
     +     .40060,    .15339,    .15854,    .01403,    .00340,
     +     .00125,    .01030,    .01741,
     +     .38914,    .14823,    .14594,    .01353,    .00340,
     +     .00136,    .00994,    .01664,
     +     .37867,    .14359,    .13518,    .01309,    .00340,
     +     .00146,    .00962,    .01593 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
     +     .36847,    .13905,    .12529,    .01263,    .00338,
     +     .00152,    .00929,    .01528,
     +     .35875,    .13477,    .11643,    .01219,    .00334,
     +     .00158,    .00899,    .01465,
     +     .34978,    .13086,    .10874,    .01176,    .00330,
     +     .00161,    .00872,    .01409,
     +     .34147,    .12726,    .10203,    .01138,    .00327,
     +     .00164,    .00845,    .01358,
     +     .33336,    .12377,    .09577,    .01102,    .00322,
     +     .00166,    .00819,    .01309,
     +     .32552,    .12043,    .09010,    .01068,    .00317,
     +     .00167,    .00793,    .01262,
     +     .31828,    .11736,    .08507,    .01036,    .00312,
     +     .00168,    .00770,    .01220,
     +     .31152,    .11452,    .08062,    .01006,    .00307,
     +     .00168,    .00749,    .01179 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
     +     .30487,    .11173,    .07640,    .00977,    .00302,
     +     .00167,    .00729,    .01140,
     +     .29842,    .10903,    .07251,    .00949,    .00297,
     +     .00167,    .00707,    .01104,
     +     .29240,    .10652,    .06901,    .00923,    .00291,
     +     .00166,    .00687,    .01071,
     +     .28682,    .10419,    .06589,    .00898,    .00287,
     +     .00166,    .00670,    .01041,
     +     .28126,    .10190,    .06292,    .00873,    .00282,
     +     .00164,    .00654,    .01009 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
     +     .64467,    .27927,    .65437,    .01578,    .00000,
     +     .00000,    .00748,    .02847,
     +     .63357,    .27155,    .61868,    .01617,    .00000,
     +     .00000,    .00817,    .02763,
     +     .61627,    .26013,    .57700,    .01647,   -.00590,
     +     .00000,    .00901,    .02655,
     +     .60303,    .25201,    .53632,    .01661,   -.00449,
     +     .00000,    .00948,    .02574,
     +     .58886,    .24366,    .49545,    .01661,   -.00333,
     +     .00000,    .00983,    .02489,
     +     .57645,    .23663,    .46197,    .01654,   -.00246,
     +     .00000,    .01007,    .02417,
     +     .56462,    .23001,    .43170,    .01641,   -.00172,
     +     .00000,    .01020,    .02348,
     +     .55210,    .22316,    .40152,    .01620,   -.00103,
     +     .00000,    .01028,    .02277 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
     +     .54117,    .21740,    .37670,    .01604,   -.00051,
     +     .00000,    .01033,    .02210,
     +     .53066,    .21197,    .35412,    .01585,   -.00008,
     +     .00000,    .01031,    .02146,
     +     .52244,    .20777,    .33721,    .01568,    .00025,
     +     .00000,    .01027,    .02098,
     +     .50509,    .19904,    .30377,    .01523,    .00081,
     +     .00000,    .01012,    .02001,
     +     .49037,    .19180,    .27934,    .01481,    .00120,
     +    -.00155,    .01001,    .01916,
     +     .47431,    .18400,    .25097,    .01429,    .00155,
     +    -.00098,    .00978,    .01827,
     +     .45791,    .17629,    .22473,    .01379,    .00183,
     +    -.00053,    .00952,    .01732,
     +     .44341,    .16961,    .20341,    .01334,    .00203,
     +    -.00018,    .00925,    .01650 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
     +     .42924,    .16308,    .18411,    .01285,    .00218,
     +     .00010,    .00897,    .01574,
     +     .41779,    .15784,    .16961,    .01243,    .00228,
     +     .00030,    .00873,    .01510,
     +     .40421,    .15178,    .15365,    .01195,    .00236,
     +     .00050,    .00844,    .01437,
     +     .39253,    .14664,    .14100,    .01153,    .00240,
     +     .00064,    .00817,    .01375,
     +     .38212,    .14208,    .13043,    .01116,    .00244,
     +     .00076,    .00791,    .01322,
     +     .36926,    .13650,    .11827,    .01070,    .00245,
     +     .00087,    .00761,    .01254,
     +     .35759,    .13147,    .10805,    .01025,    .00245,
     +     .00095,    .00732,    .01194,
     +     .34702,    .12695,    .09940,    .00983,    .00244,
     +     .00102,    .00706,    .01141 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
     +     .33661,    .12259,    .09155,    .00947,    .00241,
     +     .00106,    .00679,    .01090,
     +     .32680,    .11851,    .08458,    .00910,    .00238,
     +     .00110,    .00654,    .01043,
     +     .31782,    .11477,    .07854,    .00876,    .00236,
     +     .00113,    .00632,    .01002,
     +     .30954,    .11134,    .07334,    .00845,    .00232,
     +     .00114,    .00611,    .00962,
     +     .30149,    .10803,    .06855,    .00813,    .00228,
     +     .00116,    .00590,    .00924,
     +     .29369,    .10488,    .06419,    .00786,    .00224,
     +     .00116,    .00570,    .00889,
     +     .28651,    .10199,    .06034,    .00762,    .00220,
     +     .00117,    .00553,    .00857,
     +     .27983,    .09930,    .05698,    .00739,    .00217,
     +     .00117,    .00536,    .00826 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
     +     .27328,    .09669,    .05381,    .00718,    .00212,
     +     .00116,    .00520,    .00796,
     +     .26697,    .09416,    .05090,    .00696,    .00208,
     +     .00115,    .00504,    .00769,
     +     .26110,    .09184,    .04830,    .00675,    .00204,
     +     .00114,    .00489,    .00743,
     +     .25566,    .08969,    .04599,    .00656,    .00200,
     +     .00114,    .00476,    .00721,
     +     .25022,    .08756,    .04379,    .00637,    .00196,
     +     .00113,    .00462,    .00699 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
     +     .63873,    .26707,    .60151,    .01227,    .00000,
     +     .00000,    .00464,    .02039,
     +     .62483,    .25830,    .56006,    .01266,    .00000,
     +     .00000,    .00544,    .02000,
     +     .60347,    .24591,    .51186,    .01310,   -.00543,
     +     .00000,    .00634,    .01931,
     +     .58784,    .23714,    .46888,    .01319,   -.00415,
     +     .00000,    .00686,    .01882,
     +     .57135,    .22817,    .42702,    .01323,   -.00310,
     +     .00000,    .00721,    .01823,
     +     .55721,    .22070,    .39357,    .01313,   -.00233,
     +     .00000,    .00743,    .01775,
     +     .54377,    .21379,    .36383,    .01302,   -.00168,
     +     .00000,    .00760,    .01724,
     +     .52968,    .20671,    .33474,    .01288,   -.00108,
     +     .00000,    .00769,    .01667 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
     +     .51754,    .20074,    .31122,    .01270,   -.00064,
     +     .00000,    .00770,    .01621,
     +     .50597,    .19516,    .29005,    .01252,   -.00027,
     +     .00000,    .00771,    .01572,
     +     .49696,    .19087,    .27439,    .01236,   -.00001,
     +     .00000,    .00772,    .01532,
     +     .47822,    .18196,    .24386,    .01196,    .00046,
     +     .00000,    .00762,    .01455,
     +     .46246,    .17467,    .22177,    .01160,    .00077,
     +    -.00129,    .00747,    .01396,
     +     .44535,    .16688,    .19675,    .01118,    .00105,
     +    -.00083,    .00731,    .01324,
     +     .42816,    .15918,    .17398,    .01072,    .00128,
     +    -.00047,    .00709,    .01254,
     +     .41305,    .15253,    .15582,    .01032,    .00144,
     +    -.00020,    .00686,    .01191 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
     +     .39833,    .14615,    .13961,    .00992,    .00155,
     +     .00002,    .00662,    .01129,
     +     .38652,    .14107,    .12754,    .00955,    .00162,
     +     .00017,    .00644,    .01082,
     +     .37265,    .13514,    .11449,    .00909,    .00168,
     +     .00032,    .00618,    .01029,
     +     .36078,    .13013,    .10420,    .00874,    .00171,
     +     .00042,    .00598,    .00981,
     +     .35023,    .12573,    .09567,    .00845,    .00173,
     +     .00051,    .00578,    .00938,
     +     .33725,    .12039,    .08601,    .00805,    .00175,
     +     .00060,    .00553,    .00884,
     +     .32553,    .11561,    .07794,    .00771,    .00174,
     +     .00066,    .00531,    .00840,
     +     .31495,    .11134,    .07119,    .00738,    .00173,
     +     .00070,    .00510,    .00801 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
     +     .30465,    .10719,    .06513,    .00707,    .00170,
     +     .00073,    .00489,    .00764,
     +     .29496,    .10332,    .05978,    .00677,    .00169,
     +     .00077,    .00470,    .00728,
     +     .28611,    .09979,    .05522,    .00649,    .00166,
     +     .00078,    .00452,    .00695,
     +     .27798,    .09658,    .05130,    .00625,    .00163,
     +     .00079,    .00436,    .00668,
     +     .27008,    .09350,    .04770,    .00601,    .00160,
     +     .00080,    .00419,    .00642,
     +     .26248,    .09055,    .04447,    .00580,    .00157,
     +     .00080,    .00404,    .00614,
     +     .25551,    .08788,    .04163,    .00561,    .00154,
     +     .00080,    .00391,    .00589,
     +     .24907,    .08539,    .03915,    .00542,    .00150,
     +     .00080,    .00379,    .00568 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
     +     .24279,    .08296,    .03684,    .00523,    .00147,
     +     .00079,    .00366,    .00548,
     +     .23671,    .08064,    .03473,    .00506,    .00144,
     +     .00079,    .00354,    .00527,
     +     .23104,    .07850,    .03288,    .00490,    .00141,
     +     .00078,    .00343,    .00509,
     +     .22582,    .07654,    .03122,    .00476,    .00139,
     +     .00078,    .00333,    .00491,
     +     .22065,    .07460,    .02966,    .00461,    .00136,
     +     .00078,    .00323,    .00475 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
     +     .62703,    .25286,    .53741,    .00942,    .00000,
     +     .00000,    .00264,    .01416,
     +     .61036,    .24338,    .49304,    .00984,    .00000,
     +     .00000,    .00346,    .01406,
     +     .58561,    .23007,    .44174,    .01019,   -.00482,
     +     .00000,    .00439,    .01376,
     +     .56780,    .22088,    .39895,    .01033,   -.00370,
     +     .00000,    .00482,    .01350,
     +     .54922,    .21158,    .35820,    .01036,   -.00278,
     +     .00000,    .00523,    .01311,
     +     .53348,    .20392,    .32626,    .01035,   -.00211,
     +     .00000,    .00546,    .01273,
     +     .51866,    .19683,    .29842,    .01026,   -.00156,
     +     .00000,    .00558,    .01238,
     +     .50331,    .18960,    .27155,    .01009,   -.00105,
     +     .00000,    .00566,    .01201 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
     +     .49029,    .18355,    .25012,    .00992,   -.00069,
     +     .00000,    .00572,    .01163,
     +     .47798,    .17789,    .23111,    .00974,   -.00038,
     +     .00000,    .00573,    .01129,
     +     .46842,    .17356,    .21713,    .00961,   -.00016,
     +     .00000,    .00569,    .01105,
     +     .44851,    .16474,    .19028,    .00927,    .00022,
     +     .00000,    .00564,    .01044,
     +     .43209,    .15751,    .17105,    .00892,    .00047,
     +    -.00104,    .00553,    .00998,
     +     .41428,    .14987,    .14985,    .00856,    .00070,
     +    -.00068,    .00535,    .00948,
     +     .39652,    .14235,    .13083,    .00820,    .00087,
     +    -.00040,    .00518,    .00892,
     +     .38113,    .13590,    .11582,    .00784,    .00099,
     +    -.00020,    .00502,    .00845 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
     +     .36625,    .12974,    .10263,    .00745,    .00108,
     +    -.00003,    .00485,    .00799,
     +     .35424,    .12484,    .09293,    .00722,    .00113,
     +     .00008,    .00468,    .00763,
     +     .34028,    .11919,    .08254,    .00688,    .00117,
     +     .00019,    .00450,    .00720,
     +     .32846,    .11443,    .07445,    .00656,    .00120,
     +     .00028,    .00432,    .00685,
     +     .31800,    .11026,    .06783,    .00627,    .00122,
     +     .00034,    .00416,    .00655,
     +     .30519,    .10521,    .06039,    .00595,    .00122,
     +     .00040,    .00397,    .00618,
     +     .29362,    .10070,    .05427,    .00567,    .00122,
     +     .00045,    .00379,    .00583,
     +     .28321,    .09670,    .04919,    .00543,    .00120,
     +     .00048,    .00363,    .00553 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
     +     .27321,    .09284,    .04468,    .00516,    .00119,
     +     .00051,    .00347,    .00527,
     +     .26380,    .08924,    .04074,    .00492,    .00117,
     +     .00052,    .00331,    .00502,
     +     .25519,    .08599,    .03739,    .00473,    .00115,
     +     .00053,    .00318,    .00478,
     +     .24734,    .08304,    .03455,    .00456,    .00112,
     +     .00053,    .00307,    .00456,
     +     .23976,    .08017,    .03193,    .00437,    .00111,
     +     .00055,    .00297,    .00436,
     +     .23248,    .07747,    .02963,    .00420,    .00108,
     +     .00055,    .00284,    .00419,
     +     .22582,    .07499,    .02763,    .00405,    .00106,
     +     .00055,    .00272,    .00402,
     +     .21966,    .07276,    .02589,    .00391,    .00104,
     +     .00054,    .00262,    .00385 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
     +     .21364,    .07057,    .02428,    .00378,    .00102,
     +     .00054,    .00252,    .00369,
     +     .20789,    .06847,    .02281,    .00365,    .00099,
     +     .00053,    .00244,    .00353,
     +     .20257,    .06653,    .02151,    .00352,    .00097,
     +     .00053,    .00237,    .00340,
     +     .19767,    .06474,    .02038,    .00340,    .00095,
     +     .00053,    .00229,    .00328,
     +     .19280,    .06297,    .01932,    .00328,    .00093,
     +     .00052,    .00222,    .00318 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
     +     .61021,    .23677,    .46529,    .00683,    .00000,
     +     .00000,    .00139,    .00964,
     +     .59098,    .22689,    .42083,    .00727,    .00000,
     +     .00000,    .00214,    .00969,
     +     .56310,    .21308,    .36964,    .00770,   -.00416,
     +     .00000,    .00298,    .00963,
     +     .54331,    .20372,    .32905,    .00787,   -.00320,
     +     .00000,    .00348,    .00942,
     +     .52313,    .19419,    .29133,    .00789,   -.00241,
     +     .00000,    .00375,    .00923,
     +     .50611,    .18642,    .26217,    .00789,   -.00185,
     +     .00000,    .00397,    .00899,
     +     .49028,    .17932,    .23710,    .00781,   -.00139,
     +     .00000,    .00410,    .00876,
     +     .47399,    .17214,    .21325,    .00769,   -.00097,
     +     .00000,    .00417,    .00850 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
     +     .46024,    .16610,    .19452,    .00756,   -.00067,
     +     .00000,    .00421,    .00827,
     +     .44731,    .16053,    .17811,    .00739,   -.00042,
     +     .00000,    .00420,    .00805,
     +     .43737,    .15627,    .16618,    .00723,   -.00025,
     +     .00000,    .00417,    .00786,
     +     .41687,    .14758,    .14347,    .00696,    .00006,
     +     .00000,    .00411,    .00741,
     +     .39994,    .14062,    .12739,    .00672,    .00026,
     +    -.00082,    .00403,    .00703,
     +     .38184,    .13324,    .11001,    .00641,    .00044,
     +    -.00055,    .00392,    .00664,
     +     .36393,    .12603,    .09462,    .00609,    .00058,
     +    -.00033,    .00378,    .00626,
     +     .34847,    .11987,    .08272,    .00581,    .00066,
     +    -.00018,    .00365,    .00590 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
     +     .33357,    .11401,    .07236,    .00553,    .00073,
     +    -.00006,    .00351,    .00556,
     +     .32176,    .10936,    .06488,    .00527,    .00077,
     +     .00003,    .00337,    .00532,
     +     .30796,    .10405,    .05694,    .00500,    .00081,
     +     .00012,    .00323,    .00499,
     +     .29627,    .09961,    .05081,    .00479,    .00082,
     +     .00018,    .00310,    .00473,
     +     .28597,    .09572,    .04587,    .00461,    .00083,
     +     .00023,    .00298,    .00451,
     +     .27349,    .09103,    .04041,    .00435,    .00083,
     +     .00026,    .00281,    .00424,
     +     .26234,    .08685,    .03594,    .00410,    .00083,
     +     .00029,    .00268,    .00401,
     +     .25236,    .08313,    .03226,    .00390,    .00082,
     +     .00032,    .00258,    .00379 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
     +     .24268,    .07960,    .02906,    .00374,    .00081,
     +     .00034,    .00245,    .00359,
     +     .23365,    .07631,    .02629,    .00357,    .00080,
     +     .00035,    .00233,    .00340,
     +     .22550,    .07334,    .02396,    .00338,    .00078,
     +     .00036,    .00223,    .00322,
     +     .21805,    .07064,    .02201,    .00323,    .00077,
     +     .00036,    .00213,    .00309,
     +     .21086,    .06807,    .02024,    .00308,    .00075,
     +     .00036,    .00203,    .00296,
     +     .20401,    .06562,    .01866,    .00294,    .00073,
     +     .00037,    .00196,    .00282,
     +     .19776,    .06339,    .01729,    .00282,    .00072,
     +     .00037,    .00188,    .00270,
     +     .19199,    .06135,    .01614,    .00271,    .00071,
     +     .00037,    .00182,    .00259 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
     +     .18638,    .05938,    .01507,    .00261,    .00069,
     +     .00036,    .00176,    .00247,
     +     .18098,    .05751,    .01410,    .00253,    .00067,
     +     .00037,    .00169,    .00237,
     +     .17599,    .05579,    .01326,    .00245,    .00065,
     +     .00036,    .00162,    .00227,
     +     .17140,    .05422,    .01252,    .00238,    .00064,
     +     .00035,    .00157,    .00218,
     +     .16690,    .05264,    .01182,    .00230,    .00063,
     +     .00036,    .00152,    .00210 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
     +     .58791,    .22025,    .38887,    .00533,    .00000,
     +     .00000,    .00037,    .00603,
     +     .56658,    .20998,    .34665,    .00568,    .00000,
     +     .00000,    .00109,    .00626,
     +     .53617,    .19591,    .29851,    .00601,   -.00348,
     +     .00000,    .00189,    .00633,
     +     .51493,    .18637,    .26182,    .00613,   -.00268,
     +     .00000,    .00226,    .00636,
     +     .49355,    .17684,    .22810,    .00607,   -.00202,
     +     .00000,    .00257,    .00635,
     +     .47562,    .16915,    .20275,    .00607,   -.00156,
     +     .00000,    .00275,    .00617,
     +     .45910,    .16209,    .18114,    .00599,   -.00118,
     +     .00000,    .00288,    .00601,
     +     .44226,    .15496,    .16086,    .00584,   -.00085,
     +     .00000,    .00298,    .00585 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
     +     .42800,    .14912,    .14517,    .00575,   -.00060,
     +     .00000,    .00301,    .00567,
     +     .41474,    .14368,    .13157,    .00564,   -.00040,
     +     .00000,    .00300,    .00551,
     +     .40457,    .13955,    .12179,    .00554,   -.00027,
     +     .00000,    .00299,    .00536,
     +     .38368,    .13120,    .10336,    .00531,   -.00003,
     +     .00000,    .00295,    .00505,
     +     .36672,    .12448,    .09050,    .00506,    .00013,
     +    -.00063,    .00288,    .00481,
     +     .34871,    .11744,    .07681,    .00478,    .00026,
     +    -.00043,    .00280,    .00456,
     +     .33092,    .11061,    .06494,    .00451,    .00037,
     +    -.00027,    .00270,    .00428,
     +     .31562,    .10483,    .05586,    .00427,    .00044,
     +    -.00015,    .00259,    .00404 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
     +     .30100,    .09932,    .04812,    .00404,    .00048,
     +    -.00006,    .00246,    .00381,
     +     .28940,    .09502,    .04257,    .00391,    .00052,
     +     .00001,    .00237,    .00359,
     +     .27600,    .09010,    .03681,    .00368,    .00053,
     +     .00006,    .00224,    .00339,
     +     .26476,    .08598,    .03242,    .00348,    .00055,
     +     .00011,    .00213,    .00320,
     +     .25492,    .08240,    .02889,    .00332,    .00056,
     +     .00015,    .00206,    .00303,
     +     .24293,    .07809,    .02506,    .00314,    .00056,
     +     .00018,    .00194,    .00284,
     +     .23222,    .07427,    .02197,    .00298,    .00056,
     +     .00021,    .00184,    .00268,
     +     .22268,    .07091,    .01948,    .00284,    .00055,
     +     .00022,    .00176,    .00255 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
     +     .21364,    .06769,    .01733,    .00265,    .00055,
     +     .00024,    .00167,    .00240,
     +     .20515,    .06471,    .01552,    .00251,    .00053,
     +     .00024,    .00160,    .00226,
     +     .19742,    .06204,    .01400,    .00241,    .00052,
     +     .00025,    .00152,    .00213,
     +     .19045,    .05964,    .01273,    .00231,    .00051,
     +     .00026,    .00146,    .00203,
     +     .18375,    .05733,    .01158,    .00221,    .00051,
     +     .00027,    .00139,    .00193,
     +     .17735,    .05514,    .01063,    .00211,    .00049,
     +     .00026,    .00132,    .00182,
     +     .17153,    .05316,    .00979,    .00201,    .00048,
     +     .00027,    .00127,    .00174,
     +     .16619,    .05137,    .00907,    .00193,    .00047,
     +     .00026,    .00122,    .00166 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
     +     .16101,    .04963,    .00842,    .00186,    .00046,
     +     .00027,    .00117,    .00160,
     +     .15605,    .04795,    .00785,    .00178,    .00045,
     +     .00027,    .00113,    .00153,
     +     .15148,    .04642,    .00734,    .00172,    .00045,
     +     .00027,    .00109,    .00146,
     +     .14729,    .04502,    .00691,    .00166,    .00043,
     +     .00027,    .00105,    .00140,
     +     .14318,    .04365,    .00651,    .00159,    .00042,
     +     .00026,    .00100,    .00136 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
     +     .56155,    .20260,    .31185,    .00396,    .00000,
     +     .00000,   -.00023,    .00368,
     +     .53853,    .19233,    .27372,    .00428,    .00000,
     +     .00000,    .00042,    .00392,
     +     .50608,    .17827,    .23071,    .00459,   -.00284,
     +     .00000,    .00109,    .00410,
     +     .48385,    .16884,    .19896,    .00468,   -.00218,
     +     .00000,    .00143,    .00415,
     +     .46137,    .15958,    .17050,    .00469,   -.00165,
     +     .00000,    .00169,    .00409,
     +     .44290,    .15200,    .14928,    .00466,   -.00127,
     +     .00000,    .00182,    .00409,
     +     .42593,    .14516,    .13152,    .00462,   -.00098,
     +     .00000,    .00191,    .00399,
     +     .40871,    .13833,    .11506,    .00453,   -.00071,
     +     .00000,    .00201,    .00383 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
     +     .39437,    .13266,    .10253,    .00441,   -.00052,
     +     .00000,    .00202,    .00371,
     +     .38101,    .12748,    .09177,    .00430,   -.00036,
     +     .00000,    .00202,    .00362,
     +     .37078,    .12354,    .08407,    .00421,   -.00025,
     +     .00000,    .00202,    .00354,
     +     .35004,    .11560,    .06978,    .00397,   -.00007,
     +     .00000,    .00199,    .00341,
     +     .33320,    .10924,    .06002,    .00382,    .00005,
     +    -.00048,    .00196,    .00322,
     +     .31545,    .10265,    .04978,    .00361,    .00015,
     +    -.00033,    .00188,    .00300,
     +     .29809,    .09631,    .04103,    .00340,    .00022,
     +    -.00021,    .00181,    .00280,
     +     .28326,    .09092,    .03451,    .00322,    .00028,
     +    -.00012,    .00173,    .00262 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
     +     .26917,    .08584,    .02899,    .00301,    .00031,
     +    -.00006,    .00166,    .00249,
     +     .25804,    .08188,    .02515,    .00286,    .00034,
     +    -.00001,    .00158,    .00236,
     +     .24521,    .07734,    .02120,    .00270,    .00035,
     +     .00003,    .00150,    .00222,
     +     .23447,    .07357,    .01826,    .00255,    .00037,
     +     .00006,    .00143,    .00209,
     +     .22510,    .07033,    .01593,    .00245,    .00037,
     +     .00009,    .00136,    .00197,
     +     .21380,    .06642,    .01348,    .00228,    .00038,
     +     .00011,    .00129,    .00183,
     +     .20376,    .06297,    .01154,    .00215,    .00038,
     +     .00013,    .00121,    .00172,
     +     .19485,    .05993,    .00998,    .00204,    .00038,
     +     .00014,    .00115,    .00163 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
     +     .18635,    .05708,    .00870,    .00192,    .00037,
     +     .00015,    .00109,    .00151,
     +     .17842,    .05442,    .00762,    .00182,    .00037,
     +     .00016,    .00103,    .00143,
     +     .17125,    .05204,    .00673,    .00174,    .00036,
     +     .00017,    .00099,    .00137,
     +     .16479,    .04991,    .00601,    .00166,    .00035,
     +     .00017,    .00094,    .00130,
     +     .15859,    .04787,    .00538,    .00159,    .00035,
     +     .00018,    .00090,    .00122,
     +     .15277,    .04593,    .00485,    .00151,    .00034,
     +     .00018,    .00085,    .00116,
     +     .14748,    .04417,    .00439,    .00142,    .00034,
     +     .00019,    .00081,    .00112,
     +     .14260,    .04259,    .00404,    .00137,    .00033,
     +     .00019,    .00078,    .00106 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
     +     .13787,    .04107,    .00371,    .00131,    .00032,
     +     .00019,    .00075,    .00100,
     +     .13337,    .03962,    .00341,    .00125,    .00031,
     +     .00019,    .00072,    .00095,
     +     .12923,    .03829,    .00316,    .00121,    .00032,
     +     .00020,    .00068,    .00092,
     +     .12545,    .03706,    .00296,    .00116,    .00031,
     +     .00020,    .00066,    .00088,
     +     .12171,    .03587,    .00276,    .00112,    .00030,
     +     .00020,    .00064,    .00085 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
     +     .53113,    .18445,    .23775,    .00280,    .00000,
     +     .00000,   -.00040,    .00206,
     +     .50680,    .17429,    .20502,    .00310,    .00000,
     +     .00000,    .00011,    .00234,
     +     .47304,    .16046,    .16868,    .00326,   -.00224,
     +     .00000,    .00064,    .00263,
     +     .45006,    .15127,    .14261,    .00337,   -.00172,
     +     .00000,    .00093,    .00266,
     +     .42717,    .14231,    .11954,    .00342,   -.00130,
     +     .00000,    .00111,    .00269,
     +     .40854,    .13504,    .10264,    .00335,   -.00101,
     +     .00000,    .00127,    .00268,
     +     .39147,    .12849,    .08873,    .00327,   -.00077,
     +     .00000,    .00133,    .00265,
     +     .37422,    .12194,    .07605,    .00321,   -.00057,
     +     .00000,    .00136,    .00261 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
     +     .35987,    .11657,    .06654,    .00314,   -.00042,
     +     .00000,    .00140,    .00253,
     +     .34662,    .11169,    .05847,    .00306,   -.00030,
     +     .00000,    .00142,    .00243,
     +     .33654,    .10804,    .05275,    .00300,   -.00022,
     +     .00000,    .00143,    .00235,
     +     .31607,    .10062,    .04247,    .00284,   -.00008,
     +     .00000,    .00140,    .00223,
     +     .29970,    .09473,    .03548,    .00268,    .00001,
     +    -.00036,    .00136,    .00211,
     +     .28253,    .08860,    .02828,    .00253,    .00009,
     +    -.00025,    .00132,    .00199,
     +     .26584,    .08275,    .02225,    .00237,    .00015,
     +    -.00016,    .00127,    .00187,
     +     .25164,    .07781,    .01795,    .00221,    .00019,
     +    -.00010,    .00120,    .00175 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
     +     .23815,    .07320,    .01438,    .00210,    .00022,
     +    -.00005,    .00114,    .00163,
     +     .22760,    .06963,    .01193,    .00200,    .00023,
     +    -.00002,    .00109,    .00154,
     +     .21551,    .06555,    .00954,    .00186,    .00025,
     +     .00001,    .00102,    .00143,
     +     .20545,    .06216,    .00777,    .00174,    .00025,
     +     .00002,    .00097,    .00136,
     +     .19672,    .05921,    .00644,    .00162,    .00026,
     +     .00004,    .00093,    .00129,
     +     .18614,    .05573,    .00505,    .00155,    .00026,
     +     .00005,    .00088,    .00121,
     +     .17682,    .05268,    .00399,    .00146,    .00026,
     +     .00006,    .00083,    .00113,
     +     .16861,    .05001,    .00320,    .00135,    .00026,
     +     .00007,    .00078,    .00105 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
     +     .16077,    .04747,    .00255,    .00128,    .00027,
     +     .00008,    .00072,    .00099,
     +     .15352,    .04512,    .00204,    .00120,    .00027,
     +     .00009,    .00069,    .00095,
     +     .14702,    .04304,    .00163,    .00113,    .00026,
     +     .00009,    .00066,    .00089,
     +     .14113,    .04117,    .00133,    .00107,    .00026,
     +     .00010,    .00063,    .00085,
     +     .13549,    .03938,    .00109,    .00102,    .00026,
     +     .00010,    .00058,    .00080,
     +     .13018,    .03771,    .00088,    .00098,    .00025,
     +     .00010,    .00058,    .00075,
     +     .12535,    .03620,    .00073,    .00094,    .00025,
     +     .00011,    .00055,    .00070,
     +     .12095,    .03482,    .00060,    .00090,    .00025,
     +     .00011,    .00053,    .00068 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
     +     .11671,    .03351,    .00049,    .00086,    .00024,
     +     .00011,    .00050,    .00066,
     +     .11268,    .03225,    .00042,    .00082,    .00024,
     +     .00011,    .00048,    .00064,
     +     .10899,    .03110,    .00035,    .00078,    .00023,
     +     .00011,    .00046,    .00062,
     +     .10561,    .03007,    .00030,    .00074,    .00023,
     +     .00011,    .00044,    .00059,
     +     .10227,    .02905,    .00026,    .00072,    .00024,
     +     .00012,    .00042,    .00056 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
     +     .49773,    .16620,    .16954,    .00179,    .00000,
     +     .00000,   -.00047,    .00112,
     +     .47251,    .15618,    .14300,    .00207,    .00000,
     +     .00000,   -.00007,    .00138,
     +     .43790,    .14276,    .11405,    .00225,   -.00173,
     +     .00000,    .00042,    .00159,
     +     .41466,    .13399,    .09375,    .00226,   -.00132,
     +     .00000,    .00063,    .00171,
     +     .39164,    .12540,    .07606,    .00232,   -.00100,
     +     .00000,    .00079,    .00182,
     +     .37294,    .11855,    .06351,    .00231,   -.00078,
     +     .00000,    .00091,    .00176,
     +     .35599,    .11239,    .05338,    .00224,   -.00060,
     +     .00000,    .00099,    .00172,
     +     .33896,    .10629,    .04426,    .00216,   -.00045,
     +     .00000,    .00103,    .00171 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
     +     .32495,    .10130,    .03752,    .00211,   -.00033,
     +     .00000,    .00102,    .00168,
     +     .31203,    .09674,    .03196,    .00203,   -.00025,
     +     .00000,    .00103,    .00163,
     +     .30225,    .09329,    .02812,    .00197,   -.00019,
     +     .00000,    .00103,    .00158,
     +     .28248,    .08646,    .02125,    .00184,   -.00009,
     +     .00000,    .00101,    .00151,
     +     .26680,    .08108,    .01667,    .00173,   -.00002,
     +    -.00025,    .00097,    .00144,
     +     .25036,    .07552,    .01209,    .00162,    .00004,
     +    -.00018,    .00093,    .00135,
     +     .23448,    .07021,    .00842,    .00150,    .00009,
     +    -.00012,    .00088,    .00126,
     +     .22108,    .06577,    .00584,    .00141,    .00012,
     +    -.00008,    .00085,    .00119 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
     +     .20844,    .06164,    .00382,    .00132,    .00015,
     +    -.00005,    .00080,    .00111,
     +     .19865,    .05844,    .00252,    .00122,    .00017,
     +    -.00003,    .00076,    .00103,
     +     .18734,    .05481,    .00127,    .00116,    .00018,
     +    -.00001,    .00073,    .00096,
     +     .17798,    .05182,    .00044,    .00111,    .00019,
     +     .00000,    .00069,    .00090,
     +     .16993,    .04925,   -.00016,    .00103,    .00020,
     +     .00001,    .00065,    .00085,
     +     .16028,    .04619,   -.00075,    .00095,    .00021,
     +     .00003,    .00061,    .00079,
     +     .15176,    .04350,   -.00113,    .00088,    .00021,
     +     .00003,    .00058,    .00073,
     +     .14426,    .04116,   -.00138,    .00083,    .00021,
     +     .00004,    .00056,    .00070 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
     +     .13714,    .03896,   -.00153,    .00078,    .00021,
     +     .00005,    .00052,    .00065,
     +     .13057,    .03694,   -.00163,    .00073,    .00021,
     +     .00005,    .00048,    .00062,
     +     .12469,    .03514,   -.00167,    .00069,    .00020,
     +     .00005,    .00046,    .00057,
     +     .11940,    .03353,   -.00169,    .00065,    .00021,
     +     .00006,    .00044,    .00053,
     +     .11436,    .03200,   -.00169,    .00064,    .00021,
     +     .00006,    .00042,    .00050,
     +     .10961,    .03059,   -.00165,    .00060,    .00020,
     +     .00006,    .00039,    .00047,
     +     .10533,    .02929,   -.00162,    .00058,    .00020,
     +     .00006,    .00037,    .00046,
     +     .10142,    .02813,   -.00155,    .00054,    .00020,
     +     .00007,    .00035,    .00044 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
     +     .09768,    .02700,   -.00151,    .00051,    .00020,
     +     .00007,    .00034,    .00043,
     +     .09411,    .02594,   -.00145,    .00049,    .00020,
     +     .00007,    .00032,    .00040,
     +     .09085,    .02497,   -.00139,    .00046,    .00020,
     +     .00007,    .00031,    .00038,
     +     .08787,    .02409,   -.00133,    .00045,    .00020,
     +     .00007,    .00030,    .00036,
     +     .08495,    .02323,   -.00126,    .00043,    .00019,
     +     .00007,    .00029,    .00034 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
     +     .46177,    .14878,    .10868,    .00176,    .00000,
     +     .00000,   -.00073,    .00029,
     +     .43632,    .13921,    .08863,    .00174,    .00000,
     +     .00000,   -.00036,    .00057,
     +     .40158,    .12642,    .06714,    .00191,   -.00130,
     +     .00000,    .00001,    .00084,
     +     .37855,    .11808,    .05249,    .00187,   -.00099,
     +     .00000,    .00024,    .00086,
     +     .35575,    .11002,    .04011,    .00188,   -.00074,
     +     .00000,    .00039,    .00088,
     +     .33743,    .10358,    .03141,    .00183,   -.00059,
     +     .00000,    .00050,    .00097,
     +     .32094,    .09783,    .02459,    .00178,   -.00045,
     +     .00000,    .00053,    .00101,
     +     .30446,    .09213,    .01869,    .00171,   -.00034,
     +     .00000,    .00054,    .00101 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
     +     .29088,    .08756,    .01447,    .00163,   -.00026,
     +     .00000,    .00057,    .00098,
     +     .27849,    .08338,    .01106,    .00157,   -.00020,
     +     .00000,    .00058,    .00096,
     +     .26912,    .08023,    .00872,    .00151,   -.00015,
     +     .00000,    .00059,    .00096,
     +     .25031,    .07400,    .00477,    .00142,   -.00008,
     +     .00000,    .00057,    .00087,
     +     .23538,    .06911,    .00229,    .00138,   -.00004,
     +    -.00018,    .00055,    .00084,
     +     .21991,    .06411,   -.00021,    .00129,    .00000,
     +    -.00013,    .00055,    .00081,
     +     .20508,    .05936,   -.00199,    .00118,    .00003,
     +    -.00010,    .00052,    .00075,
     +     .19264,    .05541,   -.00311,    .00109,    .00006,
     +    -.00006,    .00047,    .00070 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
     +     .18099,    .05171,   -.00389,    .00100,    .00008,
     +    -.00004,    .00045,    .00065,
     +     .17186,    .04887,   -.00432,    .00096,    .00009,
     +    -.00003,    .00043,    .00062,
     +     .16152,    .04568,   -.00462,    .00090,    .00010,
     +    -.00002,    .00041,    .00055,
     +     .15300,    .04306,   -.00477,    .00085,    .00011,
     +    -.00001,    .00039,    .00050,
     +     .14567,    .04081,   -.00481,    .00079,    .00012,
     +     .00000,    .00038,    .00049,
     +     .13688,    .03813,   -.00474,    .00071,    .00012,
     +     .00000,    .00034,    .00047,
     +     .12920,    .03581,   -.00464,    .00066,    .00013,
     +     .00001,    .00032,    .00042,
     +     .12247,    .03378,   -.00450,    .00061,    .00013,
     +     .00001,    .00032,    .00038 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
     +     .11606,    .03189,   -.00430,    .00059,    .00014,
     +     .00002,    .00029,    .00036,
     +     .11020,    .03016,   -.00411,    .00055,    .00014,
     +     .00002,    .00028,    .00034,
     +     .10496,    .02860,   -.00391,    .00052,    .00014,
     +     .00002,    .00025,    .00032,
     +     .10028,    .02723,   -.00373,    .00049,    .00014,
     +     .00002,    .00023,    .00031,
     +     .09582,    .02594,   -.00351,    .00045,    .00015,
     +     .00003,    .00022,    .00028,
     +     .09163,    .02471,   -.00333,    .00044,    .00015,
     +     .00003,    .00021,    .00027,
     +     .08784,    .02362,   -.00315,    .00043,    .00015,
     +     .00003,    .00020,    .00026,
     +     .08443,    .02263,   -.00298,    .00039,    .00015,
     +     .00003,    .00018,    .00024 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
     +     .08115,    .02168,   -.00282,    .00037,    .00015,
     +     .00003,    .00017,    .00023,
     +     .07804,    .02078,   -.00265,    .00034,    .00015,
     +     .00003,    .00016,    .00022,
     +     .07518,    .01998,   -.00252,    .00033,    .00015,
     +     .00003,    .00016,    .00021,
     +     .07258,    .01924,   -.00239,    .00032,    .00015,
     +     .00003,    .00015,    .00020,
     +     .07005,    .01852,   -.00226,    .00031,    .00015,
     +     .00003,    .00015,    .00019 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
     +     .42384,    .13086,    .05730,    .00092,    .00000,
     +     .00000,   -.00048,    .00012,
     +     .39826,    .12185,    .04343,    .00113,    .00000,
     +     .00000,   -.00025,    .00027,
     +     .36398,    .10996,    .02925,    .00114,   -.00094,
     +     .00000,    .00006,    .00047,
     +     .34132,    .10220,    .01961,    .00121,   -.00072,
     +     .00000,    .00021,    .00054,
     +     .31928,    .09482,    .01179,    .00123,   -.00054,
     +     .00000,    .00025,    .00061,
     +     .30159,    .08891,    .00669,    .00120,   -.00042,
     +     .00000,    .00029,    .00060,
     +     .28569,    .08371,    .00279,    .00117,   -.00033,
     +     .00000,    .00034,    .00059,
     +     .26995,    .07859,   -.00043,    .00113,   -.00026,
     +     .00000,    .00039,    .00056 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
     +     .25714,    .07439,   -.00262,    .00107,   -.00020,
     +     .00000,    .00038,    .00059,
     +     .24540,    .07059,   -.00427,    .00102,   -.00015,
     +     .00000,    .00039,    .00060,
     +     .23651,    .06776,   -.00525,    .00100,   -.00013,
     +     .00000,    .00036,    .00058,
     +     .21885,    .06223,   -.00694,    .00097,   -.00008,
     +     .00000,    .00038,    .00055,
     +     .20495,    .05790,   -.00777,    .00091,   -.00005,
     +    -.00013,    .00038,    .00052,
     +     .19071,    .05349,   -.00855,    .00082,   -.00002,
     +    -.00010,    .00036,    .00047,
     +     .17703,    .04928,   -.00892,    .00076,    .00001,
     +    -.00007,    .00034,    .00043,
     +     .16560,    .04582,   -.00897,    .00071,    .00002,
     +    -.00006,    .00032,    .00040 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
     +     .15495,    .04261,   -.00882,    .00065,    .00003,
     +    -.00005,    .00029,    .00038,
     +     .14672,    .04014,   -.00861,    .00060,    .00004,
     +    -.00004,    .00027,    .00038,
     +     .13739,    .03737,   -.00829,    .00055,    .00005,
     +    -.00003,    .00026,    .00036,
     +     .12971,    .03510,   -.00793,    .00051,    .00006,
     +    -.00002,    .00026,    .00034,
     +     .12308,    .03319,   -.00758,    .00049,    .00006,
     +    -.00002,    .00023,    .00031,
     +     .11525,    .03090,   -.00711,    .00045,    .00007,
     +    -.00001,    .00022,    .00029,
     +     .10841,    .02892,   -.00665,    .00041,    .00007,
     +    -.00001,    .00020,    .00027,
     +     .10242,    .02720,   -.00623,    .00039,    .00007,
     +    -.00001,    .00018,    .00025 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
     +     .09680,    .02560,   -.00581,    .00036,    .00007,
     +    -.00001,    .00018,    .00023,
     +     .09164,    .02413,   -.00542,    .00035,    .00008,
     +     .00000,    .00017,    .00020,
     +     .08703,    .02284,   -.00507,    .00034,    .00008,
     +     .00000,    .00016,    .00018,
     +     .08292,    .02168,   -.00474,    .00031,    .00008,
     +     .00000,    .00014,    .00016,
     +     .07906,    .02060,   -.00444,    .00029,    .00008,
     +     .00000,    .00014,    .00017,
     +     .07540,    .01960,   -.00415,    .00028,    .00008,
     +     .00000,    .00013,    .00016,
     +     .07211,    .01868,   -.00389,    .00028,    .00008,
     +     .00000,    .00012,    .00016,
     +     .06916,    .01786,   -.00365,    .00025,    .00008,
     +     .00000,    .00012,    .00014 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
     +     .06633,    .01707,   -.00343,    .00024,    .00008,
     +     .00000,    .00011,    .00013,
     +     .06364,    .01634,   -.00322,    .00023,    .00008,
     +     .00000,    .00010,    .00013,
     +     .06120,    .01567,   -.00302,    .00021,    .00009,
     +     .00001,    .00010,    .00012,
     +     .05897,    .01506,   -.00286,    .00020,    .00009,
     +     .00001,    .00009,    .00012,
     +     .05682,    .01448,   -.00269,    .00019,    .00009,
     +     .00001,    .00009,    .00011 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
     +     .38438,    .11377,    .01597,    .00047,    .00000,
     +     .00000,   -.00031,    .00002,
     +     .35943,    .10541,    .00773,    .00054,    .00000,
     +     .00000,   -.00012,    .00014,
     +     .32610,    .09447,   -.00014,    .00066,   -.00066,
     +     .00000,    .00006,    .00028,
     +     .30432,    .08744,   -.00526,    .00063,   -.00051,
     +     .00000,    .00010,    .00038,
     +     .28327,    .08064,   -.00920,    .00065,   -.00039,
     +     .00000,    .00020,    .00040,
     +     .26643,    .07535,   -.01146,    .00067,   -.00030,
     +     .00000,    .00022,    .00039,
     +     .25140,    .07064,   -.01296,    .00065,   -.00024,
     +     .00000,    .00023,    .00041,
     +     .23659,    .06603,   -.01404,    .00063,   -.00019,
     +     .00000,    .00026,    .00043 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
     +     .22450,    .06235,   -.01455,    .00064,   -.00015,
     +     .00000,    .00026,    .00040,
     +     .21354,    .05904,   -.01480,    .00062,   -.00013,
     +     .00000,    .00027,    .00038,
     +     .20535,    .05655,   -.01485,    .00060,   -.00011,
     +     .00000,    .00026,    .00036,
     +     .18908,    .05161,   -.01468,    .00054,   -.00007,
     +     .00000,    .00027,    .00037,
     +     .17638,    .04781,   -.01424,    .00048,   -.00005,
     +    -.00009,    .00026,    .00034,
     +     .16330,    .04397,   -.01378,    .00045,   -.00003,
     +    -.00007,    .00024,    .00031,
     +     .15085,    .04034,   -.01310,    .00043,   -.00002,
     +    -.00006,    .00022,    .00027,
     +     .14055,    .03734,   -.01240,    .00039,   -.00001,
     +    -.00005,    .00022,    .00027 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
     +     .13097,    .03459,   -.01164,    .00035,    .00000,
     +    -.00004,    .00021,    .00026,
     +     .12359,    .03248,   -.01100,    .00033,    .00001,
     +    -.00003,    .00020,    .00023,
     +     .11528,    .03012,   -.01021,    .00032,    .00001,
     +    -.00003,    .00018,    .00021,
     +     .10848,    .02821,   -.00952,    .00029,    .00002,
     +    -.00002,    .00016,    .00020,
     +     .10266,    .02658,   -.00893,    .00026,    .00002,
     +    -.00002,    .00015,    .00019,
     +     .09575,    .02465,   -.00817,    .00025,    .00002,
     +    -.00002,    .00014,    .00016,
     +     .08974,    .02300,   -.00753,    .00024,    .00003,
     +    -.00001,    .00013,    .00015,
     +     .08451,    .02157,   -.00696,    .00021,    .00003,
     +    -.00001,    .00012,    .00016 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
     +     .07961,    .02022,   -.00641,    .00021,    .00003,
     +    -.00001,    .00012,    .00014,
     +     .07513,    .01901,   -.00591,    .00020,    .00003,
     +    -.00001,    .00010,    .00013,
     +     .07117,    .01794,   -.00547,    .00018,    .00003,
     +    -.00001,    .00009,    .00012,
     +     .06765,    .01700,   -.00509,    .00017,    .00003,
     +    -.00001,    .00009,    .00012,
     +     .06432,    .01610,   -.00473,    .00015,    .00003,
     +    -.00001,    .00009,    .00012,
     +     .06121,    .01527,   -.00439,    .00015,    .00003,
     +    -.00001,    .00008,    .00011,
     +     .05842,    .01453,   -.00410,    .00013,    .00004,
     +     .00000,    .00008,    .00011,
     +     .05588,    .01387,   -.00383,    .00013,    .00004,
     +     .00000,    .00008,    .00009 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
     +     .05345,    .01323,   -.00358,    .00013,    .00004,
     +     .00000,    .00007,    .00009,
     +     .05119,    .01263,   -.00333,    .00012,    .00004,
     +     .00000,    .00007,    .00008,
     +     .04914,    .01209,   -.00314,    .00012,    .00004,
     +     .00000,    .00007,    .00008,
     +     .04726,    .01160,   -.00294,    .00011,    .00004,
     +     .00000,    .00006,    .00007,
     +     .04543,    .01112,   -.00276,    .00011,    .00004,
     +     .00000,    .00006,    .00007 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
     +     .34512,    .09819,   -.01647,    .00050,    .00000,
     +     .00000,   -.00038,   -.00014,
     +     .32094,    .09055,   -.01995,    .00058,    .00000,
     +     .00000,   -.00021,   -.00003,
     +     .28916,    .08050,   -.02214,    .00056,   -.00046,
     +     .00000,   -.00008,    .00007,
     +     .26836,    .07419,   -.02373,    .00066,   -.00035,
     +     .00000,    .00000,    .00009,
     +     .24861,    .06810,   -.02437,    .00057,   -.00027,
     +     .00000,    .00004,    .00014,
     +     .23293,    .06334,   -.02435,    .00053,   -.00022,
     +     .00000,    .00005,    .00017,
     +     .21897,    .05917,   -.02401,    .00050,   -.00018,
     +     .00000,    .00009,    .00018,
     +     .20519,    .05509,   -.02335,    .00049,   -.00014,
     +     .00000,    .00011,    .00018 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
     +     .19408,    .05183,   -.02263,    .00047,   -.00012,
     +     .00000,    .00011,    .00018,
     +     .18402,    .04889,   -.02182,    .00045,   -.00010,
     +     .00000,    .00012,    .00019,
     +     .17650,    .04671,   -.02112,    .00041,   -.00009,
     +     .00000,    .00014,    .00018,
     +     .16162,    .04241,   -.01959,    .00040,   -.00006,
     +     .00000,    .00013,    .00018,
     +     .15008,    .03915,   -.01825,    .00039,   -.00005,
     +    -.00006,    .00010,    .00016,
     +     .13829,    .03582,   -.01693,    .00036,   -.00004,
     +    -.00005,    .00010,    .00016,
     +     .12718,    .03272,   -.01557,    .00032,   -.00003,
     +    -.00004,    .00011,    .00016,
     +     .11800,    .03017,   -.01434,    .00029,   -.00002,
     +    -.00003,    .00011,    .00015 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
     +     .10952,    .02783,   -.01319,    .00028,   -.00001,
     +    -.00002,    .00012,    .00014,
     +     .10302,    .02606,   -.01222,    .00026,   -.00001,
     +    -.00002,    .00008,    .00012,
     +     .09572,    .02408,   -.01113,    .00021,   -.00001,
     +    -.00002,    .00007,    .00011,
     +     .08976,    .02246,   -.01027,    .00022,    .00000,
     +    -.00001,    .00007,    .00010,
     +     .08465,    .02110,   -.00953,    .00022,    .00000,
     +    -.00001,    .00008,    .00009,
     +     .07867,    .01950,   -.00861,    .00018,    .00000,
     +    -.00001,    .00006,    .00009,
     +     .07348,    .01814,   -.00784,    .00017,    .00000,
     +    -.00001,    .00006,    .00008,
     +     .06894,    .01695,   -.00717,    .00017,    .00000,
     +    -.00001,    .00005,    .00007 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
     +     .06478,    .01585,   -.00657,    .00015,    .00000,
     +    -.00001,    .00005,    .00008,
     +     .06096,    .01485,   -.00602,    .00014,    .00000,
     +    -.00001,    .00006,    .00007,
     +     .05759,    .01398,   -.00552,    .00012,    .00001,
     +     .00000,    .00004,    .00005,
     +     .05458,    .01320,   -.00511,    .00012,    .00001,
     +     .00000,    .00004,    .00006,
     +     .05173,    .01248,   -.00475,    .00013,    .00001,
     +     .00000,    .00005,    .00006,
     +     .04913,    .01180,   -.00438,    .00011,    .00001,
     +     .00000,    .00005,    .00005,
     +     .04679,    .01119,   -.00406,    .00009,    .00001,
     +     .00000,    .00003,    .00005,
     +     .04467,    .01066,   -.00378,    .00009,    .00001,
     +     .00000,    .00003,    .00005 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
     +     .04263,    .01014,   -.00353,    .00010,    .00001,
     +     .00000,    .00003,    .00005,
     +     .04072,    .00968,   -.00329,    .00010,    .00001,
     +     .00000,    .00003,    .00005,
     +     .03900,    .00924,   -.00306,    .00008,    .00001,
     +     .00000,    .00003,    .00003,
     +     .03744,    .00885,   -.00287,    .00008,    .00001,
     +     .00000,    .00002,    .00003,
     +     .03592,    .00848,   -.00269,    .00008,    .00001,
     +     .00000,    .00002,    .00003 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
     +     .30537,    .08285,   -.03921,    .00009,    .00000,
     +     .00000,   -.00010,   -.00007,
     +     .28250,    .07603,   -.03876,    .00020,    .00000,
     +     .00000,   -.00008,    .00000,
     +     .25255,    .06720,   -.03669,    .00025,   -.00030,
     +     .00000,    .00000,    .00005,
     +     .23340,    .06156,   -.03552,    .00023,   -.00023,
     +     .00000,    .00005,    .00011,
     +     .21501,    .05628,   -.03387,    .00024,   -.00018,
     +     .00000,    .00009,    .00013,
     +     .20049,    .05213,   -.03217,    .00026,   -.00015,
     +     .00000,    .00010,    .00014,
     +     .18769,    .04850,   -.03043,    .00026,   -.00012,
     +     .00000,    .00010,    .00012,
     +     .17518,    .04501,   -.02858,    .00027,   -.00010,
     +     .00000,    .00010,    .00010 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
     +     .16509,    .04218,   -.02698,    .00023,   -.00008,
     +     .00000,    .00011,    .00012,
     +     .15600,    .03966,   -.02543,    .00022,   -.00007,
     +     .00000,    .00010,    .00012,
     +     .14923,    .03779,   -.02425,    .00023,   -.00006,
     +     .00000,    .00009,    .00013,
     +     .13594,    .03415,   -.02181,    .00020,   -.00005,
     +     .00000,    .00007,    .00012,
     +     .12564,    .03137,   -.01997,    .00018,   -.00004,
     +    -.00004,    .00010,    .00011,
     +     .11521,    .02858,   -.01808,    .00017,   -.00003,
     +    -.00003,    .00009,    .00010,
     +     .10544,    .02597,   -.01624,    .00016,   -.00002,
     +    -.00002,    .00008,    .00007,
     +     .09741,    .02384,   -.01475,    .00015,   -.00002,
     +    -.00002,    .00006,    .00008 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
     +     .09000,    .02190,   -.01333,    .00014,   -.00002,
     +    -.00002,    .00006,    .00008,
     +     .08435,    .02044,   -.01227,    .00011,   -.00001,
     +    -.00001,    .00007,    .00008,
     +     .07805,    .01880,   -.01105,    .00011,   -.00001,
     +    -.00001,    .00005,    .00007,
     +     .07292,    .01748,   -.01006,    .00009,   -.00001,
     +    -.00001,    .00005,    .00005,
     +     .06855,    .01637,   -.00926,    .00008,   -.00001,
     +    -.00001,    .00005,    .00006,
     +     .06343,    .01506,   -.00832,    .00010,   -.00001,
     +    -.00001,    .00005,    .00006,
     +     .05904,    .01395,   -.00751,    .00008,   -.00001,
     +    -.00001,    .00005,    .00005,
     +     .05524,    .01300,   -.00683,    .00008,    .00000,
     +     .00000,    .00003,    .00005 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
     +     .05171,    .01211,   -.00621,    .00007,    .00000,
     +     .00000,    .00003,    .00005,
     +     .04850,    .01131,   -.00565,    .00006,    .00000,
     +     .00000,    .00003,    .00005,
     +     .04568,    .01062,   -.00518,    .00006,    .00000,
     +     .00000,    .00003,    .00005,
     +     .04317,    .01000,   -.00476,    .00006,    .00000,
     +     .00000,    .00003,    .00003,
     +     .04081,    .00943,   -.00437,    .00006,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03864,    .00890,   -.00402,    .00005,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03672,    .00841,   -.00372,    .00005,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03497,    .00800,   -.00346,    .00005,    .00000,
     +     .00000,    .00002,    .00002 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
     +     .03331,    .00759,   -.00320,    .00003,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03174,    .00722,   -.00297,    .00003,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03032,    .00688,   -.00277,    .00003,    .00000,
     +     .00000,    .00002,    .00002,
     +     .02905,    .00657,   -.00260,    .00003,    .00000,
     +     .00000,    .00002,    .00002,
     +     .02782,    .00628,   -.00243,    .00003,    .00000,
     +     .00000,    .00002,    .00002 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
     +     .22889,    .05670,   -.06143,    .00006,    .00000,
     +     .00000,   -.00011,   -.00008,
     +     .20949,    .05146,   -.05618,    .00005,    .00000,
     +     .00000,   -.00002,   -.00002,
     +     .18437,    .04481,   -.04877,    .00008,   -.00012,
     +     .00000,   -.00002,    .00001,
     +     .16852,    .04062,   -.04435,    .00011,   -.00009,
     +     .00000,    .00000,    .00003,
     +     .15357,    .03674,   -.03995,    .00008,   -.00007,
     +     .00000,    .00000,    .00002,
     +     .14193,    .03372,   -.03644,    .00007,   -.00006,
     +     .00000,   -.00001,    .00004,
     +     .13172,    .03113,   -.03336,    .00008,   -.00004,
     +     .00000,    .00000,    .00004,
     +     .12185,    .02862,   -.03036,    .00008,   -.00004,
     +     .00000,    .00001,    .00005 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
     +     .11400,    .02664,   -.02795,    .00006,   -.00003,
     +     .00000,    .00003,    .00004,
     +     .10698,    .02486,   -.02580,    .00008,   -.00003,
     +     .00000,    .00003,    .00002,
     +     .10176,    .02357,   -.02417,    .00008,   -.00002,
     +     .00000,    .00002,    .00002,
     +     .09161,    .02106,   -.02108,    .00007,   -.00002,
     +     .00000,    .00003,    .00003,
     +     .08393,    .01917,   -.01882,    .00004,   -.00001,
     +    -.00001,    .00002,    .00003,
     +     .07619,    .01728,   -.01663,    .00005,   -.00001,
     +    -.00001,    .00002,    .00003,
     +     .06899,    .01555,   -.01463,    .00005,   -.00001,
     +    -.00001,    .00003,    .00004,
     +     .06315,    .01414,   -.01298,    .00003,   -.00001,
     +    -.00001,    .00003,    .00003 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
     +     .05785,    .01289,   -.01152,    .00004,   -.00001,
     +    -.00001,    .00001,    .00002,
     +     .05381,    .01194,   -.01045,    .00004,    .00000,
     +     .00000,    .00001,    .00003,
     +     .04934,    .01088,   -.00929,    .00004,    .00000,
     +     .00000,    .00003,    .00003,
     +     .04577,    .01005,   -.00838,    .00004,    .00000,
     +     .00000,    .00003,    .00003,
     +     .04275,    .00933,   -.00760,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03924,    .00852,   -.00672,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03623,    .00784,   -.00601,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03366,    .00726,   -.00542,    .00003,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
     +     .03128,    .00672,   -.00488,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02915,    .00623,   -.00439,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02729,    .00581,   -.00399,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02565,    .00545,   -.00365,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02410,    .00509,   -.00333,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02269,    .00478,   -.00306,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02144,    .00451,   -.00281,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02031,    .00425,   -.00260,    .00001,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/
     +     .01926,    .00402,   -.00240,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01826,    .00380,   -.00221,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01738,    .00361,   -.00206,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01658,    .00344,   -.00192,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01581,    .00327,   -.00179,    .00001,    .00000,
     +     .00000,    .00000,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/
     +     .15956,    .03571,   -.06090,    .00001,    .00000,
     +     .00000,   -.00005,   -.00002,
     +     .14433,    .03208,   -.05392,    .00003,    .00000,
     +     .00000,   -.00006,   -.00005,
     +     .12499,    .02745,   -.04527,    .00004,   -.00004,
     +     .00000,    .00000,   -.00001,
     +     .11300,    .02464,   -.03997,    .00001,   -.00003,
     +     .00000,   -.00003,   -.00001,
     +     .10176,    .02202,   -.03514,    .00003,   -.00002,
     +     .00000,   -.00002,    .00000,
     +     .09310,    .02003,   -.03148,    .00005,   -.00002,
     +     .00000,    .00000,    .00000,
     +     .08561,    .01832,   -.02830,    .00005,   -.00001,
     +     .00000,    .00001,    .00001,
     +     .07847,    .01669,   -.02530,    .00003,   -.00001,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
     +     .07281,    .01540,   -.02293,    .00003,   -.00001,
     +     .00000,   -.00001,    .00001,
     +     .06780,    .01429,   -.02088,    .00001,   -.00001,
     +     .00000,   -.00001,    .00001,
     +     .06415,    .01346,   -.01940,    .00000,   -.00001,
     +     .00000,    .00001,    .00001,
     +     .05704,    .01189,   -.01665,    .00003,   -.00001,
     +     .00000,    .00001,    .00001,
     +     .05170,    .01071,   -.01461,    .00003,    .00000,
     +     .00000,    .00000,    .00001,
     +     .04642,    .00956,   -.01268,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .04160,    .00850,   -.01096,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03770,    .00766,   -.00960,    .00001,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
     +     .03416,    .00691,   -.00842,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .03156,    .00634,   -.00755,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02867,    .00574,   -.00662,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02638,    .00524,   -.00591,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02445,    .00485,   -.00532,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02222,    .00440,   -.00467,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02035,    .00400,   -.00413,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01877,    .00367,   -.00368,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
     +     .01731,    .00338,   -.00328,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01601,    .00311,   -.00296,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01488,    .00287,   -.00266,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01389,    .00268,   -.00241,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01299,    .00250,   -.00219,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01215,    .00233,   -.00199,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01141,    .00218,   -.00182,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01076,    .00205,   -.00167,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/
     +     .01014,    .00192,   -.00153,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00957,    .00181,   -.00141,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00906,    .00171,   -.00131,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00861,    .00162,   -.00121,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00817,    .00154,   -.00112,    .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)/
     +     .10139,    .02023,   -.04808,    .00004,    .00000,
     +     .00000,   -.00002,   -.00002,
     +     .09052,    .01794,   -.04184,    .00004,    .00000,
     +     .00000,   -.00001,    .00001,
     +     .07695,    .01511,   -.03412,    .00004,   -.00001,
     +     .00000,   -.00003,   -.00001,
     +     .06867,    .01339,   -.02966,    .00004,   -.00001,
     +     .00000,   -.00001,   -.00001,
     +     .06107,    .01181,   -.02558,    .00002,   -.00001,
     +     .00000,   -.00001,   -.00001,
     +     .05532,    .01063,   -.02256,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .05038,    .00962,   -.02002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04567,    .00868,   -.01766,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
     +     .04200,    .00794,   -.01584,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03877,    .00730,   -.01430,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03642,    .00683,   -.01319,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03196,    .00595,   -.01110,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02863,    .00531,   -.00964,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02539,    .00467,   -.00824,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02245,    .00411,   -.00702,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02013,    .00366,   -.00608,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/
     +     .01806,    .00327,   -.00527,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01652,    .00298,   -.00469,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01486,    .00266,   -.00406,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01354,    .00242,   -.00359,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01244,    .00222,   -.00321,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01121,    .00198,   -.00279,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01016,    .00179,   -.00244,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00929,    .00163,   -.00216,    .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)/
     +     .00849,    .00149,   -.00191,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00778,    .00136,   -.00170,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00718,    .00125,   -.00152,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00666,    .00116,   -.00137,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00618,    .00106,   -.00123,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00575,    .00098,   -.00112,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00536,    .00091,   -.00101,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00502,    .00086,   -.00093,    .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)/
     +     .00470,    .00079,   -.00085,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00442,    .00074,   -.00077,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00415,    .00071,   -.00071,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00393,    .00067,   -.00066,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00371,    .00063,   -.00061,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/
     +     .05633,    .00971,   -.03099,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04962,    .00852,   -.02659,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04134,    .00703,   -.02126,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03636,    .00616,   -.01820,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03187,    .00535,   -.01546,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02848,    .00478,   -.01348,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02562,    .00426,   -.01180,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02293,    .00380,   -.01027,    .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)/
     +     .02089,    .00343,   -.00913,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01910,    .00315,   -.00818,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01779,    .00291,   -.00746,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01535,    .00251,   -.00619,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01359,    .00220,   -.00531,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01186,    .00192,   -.00448,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01034,    .00166,   -.00376,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00916,    .00146,   -.00321,    .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)/
     +     .00810,    .00128,   -.00275,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00733,    .00114,   -.00240,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00651,    .00102,   -.00207,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00586,    .00092,   -.00180,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00534,    .00084,   -.00161,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00474,    .00074,   -.00137,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00425,    .00066,   -.00118,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00384,    .00058,   -.00104,    .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)/
     +     .00348,    .00052,   -.00091,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00317,    .00049,   -.00081,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00290,    .00044,   -.00072,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00266,    .00040,   -.00064,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00244,    .00037,   -.00057,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00225,    .00034,   -.00052,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00209,    .00031,   -.00046,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00194,    .00029,   -.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)/
     +     .00180,    .00027,   -.00037,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00169,    .00024,   -.00034,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00158,    .00023,   -.00031,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00148,    .00022,   -.00028,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00138,    .00020,   -.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)/
     +     .00809,    .00098,   -.00564,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00680,    .00081,   -.00462,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00532,    .00064,   -.00349,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00449,    .00052,   -.00286,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00376,    .00045,   -.00234,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00324,    .00037,   -.00196,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00281,    .00034,   -.00167,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00245,    .00028,   -.00141,    .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)/
     +     .00215,    .00026,   -.00122,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00191,    .00021,   -.00105,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00174,    .00021,   -.00095,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00144,    .00016,   -.00076,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00122,    .00014,   -.00062,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00102,    .00011,   -.00051,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00086,    .00009,   -.00041,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00072,    .00009,   -.00034,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/
     +     .00062,    .00007,   -.00028,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00054,    .00007,   -.00024,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00047,    .00005,   -.00020,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00041,    .00005,   -.00017,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00036,    .00003,   -.00014,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00031,    .00003,   -.00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00027,    .00003,   -.00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00024,    .00003,   -.00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
     +     .00021,    .00003,   -.00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00019,    .00001,   -.00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00016,    .00001,   -.00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00014,    .00001,   -.00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00013,    .00001,   -.00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00011,    .00001,   -.00003,    .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='ft09d.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