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

sfmrs_98d1.F

#include "pdf/pilot.h"
      subroutine sfmrs_98d1(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)/
     +     .00683,    .00255,   1.14248,    .89678,    .00000,
     +     .00000,    .48136,    .90979,
     +     .00696,    .00260,   2.37364,    .93682,    .00000,
     +     .00000,    .52607,    .94992,
     +     .00716,    .00267,   4.77966,   1.01920,    .05296,
     +     .00000,    .61519,   1.03241,
     +     .00731,    .00274,   7.14584,   1.09626,    .13577,
     +     .00000,    .69703,   1.10951,
     +     .00747,    .00280,  10.17991,   1.19595,    .22838,
     +     .00000,    .80164,   1.20926,
     +     .00761,    .00286,  13.29848,   1.29764,    .32302,
     +     .00000,    .90748,   1.31099,
     +     .00774,    .00292,  16.81583,   1.40804,    .43022,
     +     .00000,   1.02178,   1.42141,
     +     .00788,    .00298,  21.14979,   1.53997,    .56122,
     +     .00000,   1.15777,   1.55337 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
     +     .00801,    .00303,  25.37242,   1.66901,    .68635,
     +     .00000,   1.29025,   1.68242,
     +     .00814,    .00308,  29.91010,   1.80582,    .82015,
     +     .00000,   1.43035,   1.81925,
     +     .00824,    .00313,  33.88895,   1.92280,    .93735,
     +     .00000,   1.54989,   1.93622,
     +     .00845,    .00322,  43.49775,   2.20080,   1.21267,
     +     .00000,   1.83323,   2.21423,
     +     .00864,    .00331,  52.36374,   2.47207,   1.48066,
     +     .35504,   2.10902,   2.48549,
     +     .00886,    .00341,  63.93034,   2.81291,   1.81943,
     +     .74582,   2.45479,   2.82631,
     +     .00908,    .00351,  77.51489,   3.21134,   2.21630,
     +    1.16032,   2.85823,   3.22471,
     +     .00930,    .00361,  91.24940,   3.61335,   2.61746,
     +    1.57978,   3.26466,   3.62668 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
     +     .00951,    .00371, 106.51928,   4.06031,   3.06460,
     +    2.04553,   3.71599,   4.07361,
     +     .00969,    .00379, 120.22600,   4.46370,   3.46718,
     +    2.46003,   4.12292,   4.47695,
     +     .00991,    .00389, 138.10390,   4.99305,   3.99485,
     +    3.00127,   4.65648,   5.00626,
     +     .01011,    .00399, 155.19197,   5.50045,   4.50232,
     +    3.52432,   5.16753,   5.51361,
     +     .01029,    .00408, 171.92858,   5.99943,   5.00233,
     +    4.04005,   5.66979,   6.01254,
     +     .01052,    .00419, 194.35722,   6.67651,   5.67781,
     +    4.72999,   6.35093,   6.68955,
     +     .01075,    .00430, 216.92970,   7.36245,   6.36372,
     +    5.43257,   7.04062,   7.37542,
     +     .01095,    .00440, 239.48357,   8.05148,   7.05483,
     +    6.14295,   7.73308,   8.06438 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
     +     .01118,    .00450, 262.91627,   8.77890,   7.78064,
     +    6.88165,   8.46386,   8.79173,
     +     .01138,    .00461, 287.15531,   9.53581,   8.53816,
     +    7.65572,   9.22399,   9.54857,
     +     .01159,    .00471, 311.19806,  10.29302,   9.29648,
     +    8.43050,   9.98423,  10.30573,
     +     .01178,    .00480, 334.58537,  11.03900,  10.04200,
     +    9.18926,  10.73299,  11.05164,
     +     .01198,    .00489, 359.25729,  11.82941,  10.83438,
     +    9.99878,  11.52614,  11.84199,
     +     .01218,    .00499, 384.02712,  12.63516,  11.63932,
     +   10.81646,  12.33456,  12.64767,
     +     .01237,    .00508, 408.72876,  13.44120,  12.44742,
     +   11.64105,  13.14307,  13.45364,
     +     .01255,    .00518, 432.41628,  14.22584,  13.23152,
     +   12.43692,  13.93005,  14.23823 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
     +     .01273,    .00526, 457.29456,  15.05321,  14.06041,
     +   13.28082,  14.75972,  15.06553,
     +     .01291,    .00536, 482.30382,  15.89478,  14.90237,
     +   14.13601,  15.60354,  15.90704,
     +     .01309,    .00544, 506.83829,  16.72663,  15.73501,
     +   14.98188,  16.43750,  16.73883,
     +     .01326,    .00553, 530.79916,  17.54396,  16.55406,
     +   15.81493,  17.25681,  17.55610,
     +     .01343,    .00561, 555.22107,  18.38805,  17.39804,
     +   16.67038,  18.10288,  18.40014 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
     +     .00922,    .00356,   1.05676,    .76150,    .00000,
     +     .00000,    .40864,    .76912,
     +     .00940,    .00364,   2.16642,    .79824,    .00000,
     +     .00000,    .44905,    .80590,
     +     .00967,    .00375,   4.28584,    .87074,    .04679,
     +     .00000,    .52680,    .87845,
     +     .00988,    .00384,   6.32817,    .93683,    .11774,
     +     .00000,    .59664,    .94457,
     +     .01011,    .00393,   8.90216,   1.02078,    .19554,
     +     .00000,    .68442,   1.02855,
     +     .01030,    .00402,  11.50757,   1.10525,    .27406,
     +     .00000,    .77211,   1.11302,
     +     .01049,    .00410,  14.40934,   1.19609,    .36213,
     +     .00000,    .86600,   1.20389,
     +     .01068,    .00419,  17.94115,   1.30377,    .46873,
     +     .00000,    .97681,   1.31157 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
     +     .01086,    .00427,  21.34164,   1.40815,    .56962,
     +     .00000,   1.08388,   1.41596,
     +     .01102,    .00435,  24.95946,   1.51806,    .67672,
     +     .00000,   1.19633,   1.52586,
     +     .01116,    .00441,  28.10599,   1.61155,    .76998,
     +     .00000,   1.29179,   1.61936,
     +     .01145,    .00455,  35.61971,   1.83189,    .98717,
     +     .00000,   1.51628,   1.83970,
     +     .01171,    .00466,  42.43411,   2.04479,   1.19644,
     +     .27748,   1.73268,   2.05260,
     +     .01200,    .00481,  51.22197,   2.30991,   1.45852,
     +     .58004,   2.00163,   2.31770,
     +     .01231,    .00495,  61.40428,   2.61690,   1.76257,
     +     .89711,   2.31248,   2.62468,
     +     .01260,    .00509,  71.56979,   2.92388,   2.06713,
     +    1.21498,   2.62288,   2.93164 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
     +     .01289,    .00523,  82.74184,   3.26235,   2.40379,
     +    1.56488,   2.96472,   3.27009,
     +     .01313,    .00534,  92.66600,   3.56551,   2.70454,
     +    1.87377,   3.27061,   3.57322,
     +     .01343,    .00549, 105.47923,   3.96035,   3.09583,
     +    2.27402,   3.66870,   3.96803,
     +     .01371,    .00563, 117.60623,   4.33604,   3.46942,
     +    2.65805,   4.04721,   4.34370,
     +     .01395,    .00574, 129.38152,   4.70311,   3.83516,
     +    3.03427,   4.41680,   4.71075,
     +     .01427,    .00590, 145.00910,   5.19754,   4.32563,
     +    3.53374,   4.91436,   5.20514,
     +     .01458,    .00606, 160.58634,   5.69477,   4.82011,
     +    4.03878,   5.41448,   5.70233,
     +     .01486,    .00619, 176.01726,   6.19089,   5.31512,
     +    4.54620,   5.91324,   6.19842 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
     +     .01515,    .00634, 191.90399,   6.71102,   5.83133,
     +    5.06995,   6.43598,   6.71853,
     +     .01544,    .00648, 208.20962,   7.24891,   6.36690,
     +    5.61565,   6.97636,   7.25639,
     +     .01571,    .00662, 224.26102,   7.78384,   6.89995,
     +    6.15872,   7.51359,   7.79127,
     +     .01597,    .00675, 239.75736,   8.30775,   7.42092,
     +    6.68738,   8.03964,   8.31515,
     +     .01623,    .00689, 256.00373,   8.86005,   7.97201,
     +    7.24888,   8.59407,   8.86743,
     +     .01649,    .00702, 272.19416,   9.41988,   8.52861,
     +    7.81260,   9.15596,   9.42722,
     +     .01674,    .00715, 288.25150,   9.97734,   9.08501,
     +    8.37885,   9.71533,   9.98465,
     +     .01699,    .00728, 303.54469,  10.51721,   9.62203,
     +    8.92234,  10.25700,  10.52449 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
     +     .01722,    .00740, 319.52703,  11.08410,  10.18750,
     +    9.49653,  10.82566,  11.09134,
     +     .01747,    .00752, 335.49624,  11.65798,  10.75917,
     +   10.07559,  11.40127,  11.66519,
     +     .01771,    .00764, 351.08097,  12.22284,  11.32219,
     +   10.64603,  11.96778,  12.23003,
     +     .01793,    .00776, 366.22956,  12.77571,  11.87398,
     +   11.20582,  12.52217,  12.78288,
     +     .01816,    .00787, 381.58149,  13.34420,  12.44003,
     +   11.77800,  13.09219,  13.35133 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
     +     .01246,    .00496,    .97674,    .64677,    .00000,
     +     .00000,    .34746,    .65068,
     +     .01270,    .00507,   1.97670,    .68023,    .00000,
     +     .00000,    .38376,    .68415,
     +     .01308,    .00525,   3.84229,    .74380,    .04154,
     +     .00000,    .45144,    .74774,
     +     .01336,    .00538,   5.60349,    .80037,    .10223,
     +     .00000,    .51091,    .80430,
     +     .01367,    .00552,   7.78432,    .87090,    .16746,
     +     .00000,    .58444,    .87485,
     +     .01393,    .00563,   9.95730,    .94089,    .23247,
     +     .00000,    .65693,    .94483,
     +     .01418,    .00576,  12.34646,   1.01548,    .30467,
     +     .00000,    .73387,   1.01943,
     +     .01445,    .00588,  15.21809,   1.10312,    .39123,
     +     .00000,    .82394,   1.10706 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
     +     .01469,    .00600,  17.94948,   1.18729,    .47240,
     +     .00000,    .91019,   1.19124,
     +     .01492,    .00611,  20.82581,   1.27529,    .55792,
     +     .00000,   1.00016,   1.27924,
     +     .01511,    .00620,  23.30677,   1.34976,    .63197,
     +     .00000,   1.07617,   1.35370,
     +     .01550,    .00639,  29.16341,   1.52378,    .80290,
     +     .00000,   1.25339,   1.52772,
     +     .01586,    .00657,  34.38099,   1.69024,    .96591,
     +     .21621,   1.42254,   1.69418,
     +     .01625,    .00676,  41.03029,   1.89564,   1.16816,
     +     .45024,   1.63086,   1.89956,
     +     .01668,    .00698,  48.62865,   2.13116,   1.40048,
     +     .69251,   1.86937,   2.13507,
     +     .01706,    .00716,  56.11684,   2.36453,   1.63106,
     +     .93309,   2.10536,   2.36843 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
     +     .01747,    .00737,  64.24952,   2.61969,   1.88377,
     +    1.19560,   2.36310,   2.62359,
     +     .01779,    .00753,  71.39673,   2.84644,   2.10780,
     +    1.42545,   2.59195,   2.85033,
     +     .01820,    .00774,  80.52854,   3.13953,   2.39703,
     +    1.72096,   2.88753,   3.14340,
     +     .01856,    .00792,  89.08436,   3.41633,   2.67116,
     +    2.00243,   3.16647,   3.42019,
     +     .01890,    .00809,  97.31863,   3.68499,   2.93778,
     +    2.27638,   3.43707,   3.68884,
     +     .01933,    .00831, 108.13760,   4.04418,   3.29267,
     +    2.63724,   3.79865,   4.04802,
     +     .01974,    .00852, 118.81576,   4.40270,   3.64783,
     +    2.99948,   4.15938,   4.40652,
     +     .02013,    .00872, 129.30044,   4.75800,   4.00103,
     +    3.36107,   4.51670,   4.76181 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
     +     .02051,    .00892, 139.99302,   5.12786,   4.36671,
     +    3.73148,   4.88855,   5.13167,
     +     .02090,    .00912, 150.87995,   5.50797,   4.74384,
     +    4.11518,   5.27055,   5.51176,
     +     .02126,    .00931, 161.51359,   5.88369,   5.11695,
     +    4.49476,   5.64804,   5.88747,
     +     .02162,    .00950, 171.69925,   6.24947,   5.47943,
     +    4.86201,   6.01546,   6.25324,
     +     .02197,    .00968, 182.31024,   6.63313,   5.86102,
     +    5.25027,   6.40074,   6.63690,
     +     .02233,    .00986, 192.80248,   7.01974,   6.24411,
     +    5.63763,   6.78891,   7.02349,
     +     .02265,    .01004, 203.15047,   7.40293,   6.62542,
     +    6.02517,   7.17357,   7.40668,
     +     .02298,    .01021, 212.93555,   7.77206,   6.99142,
     +    6.39499,   7.54407,   7.77579 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
     +     .02330,    .01038, 223.10958,   8.15802,   7.37530,
     +    6.78424,   7.93140,   8.16175,
     +     .02363,    .01055, 233.21051,   8.54686,   7.76148,
     +    7.17484,   8.32155,   8.55057,
     +     .02394,    .01071, 243.01528,   8.92794,   8.14025,
     +    7.55804,   8.70388,   8.93165,
     +     .02424,    .01087, 252.49950,   9.29946,   8.51004,
     +    7.93270,   9.07657,   9.30316,
     +     .02454,    .01103, 262.05238,   9.67975,   8.88764,
     +    8.31380,   9.45802,   9.68344 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
     +     .01484,    .00603,    .93231,    .58802,    .00000,
     +     .00000,    .31635,    .59042,
     +     .01514,    .00617,   1.87321,    .61957,    .00000,
     +     .00000,    .35037,    .62197,
     +     .01559,    .00638,   3.60413,    .67831,    .03887,
     +     .00000,    .41265,    .68070,
     +     .01594,    .00655,   5.21856,    .72986,    .09419,
     +     .00000,    .46672,    .73224,
     +     .01629,    .00672,   7.19662,    .79347,    .15295,
     +     .00000,    .53293,    .79587,
     +     .01660,    .00688,   9.14908,    .85608,    .21108,
     +     .00000,    .59770,    .85846,
     +     .01691,    .00703,  11.27931,    .92243,    .27528,
     +     .00000,    .66607,    .92482,
     +     .01723,    .00718,  13.82059,    .99998,    .35180,
     +     .00000,    .74572,   1.00237 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
     +     .01752,    .00732,  16.22016,   1.07407,    .42318,
     +     .00000,    .82160,   1.07645,
     +     .01780,    .00746,  18.73164,   1.15119,    .49805,
     +     .00000,    .90042,   1.15358,
     +     .01803,    .00757,  20.88719,   1.21626,    .56265,
     +     .00000,    .96681,   1.21864,
     +     .01850,    .00780,  25.94089,   1.36752,    .71102,
     +     .00000,   1.12082,   1.36990,
     +     .01892,    .00802,  30.39526,   1.51135,    .85167,
     +     .18644,   1.26696,   1.51372,
     +     .01941,    .00826,  36.03149,   1.68785,   1.02520,
     +     .38766,   1.44597,   1.69021,
     +     .01991,    .00851,  42.41887,   1.88907,   1.22338,
     +     .59448,   1.64974,   1.89143,
     +     .02038,    .00875,  48.66497,   2.08737,   1.41899,
     +     .79871,   1.85030,   2.08973 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
     +     .02086,    .00899,  55.40066,   2.30310,   1.63232,
     +    1.02040,   2.06824,   2.30545,
     +     .02125,    .00920,  61.28202,   2.49394,   1.82055,
     +    1.21356,   2.26087,   2.49629,
     +     .02174,    .00945,  68.74944,   2.73947,   2.06248,
     +    1.46076,   2.50853,   2.74182,
     +     .02216,    .00968,  75.70352,   2.97035,   2.29076,
     +    1.69520,   2.74124,   2.97269,
     +     .02257,    .00989,  82.36072,   3.19355,   2.51195,
     +    1.92248,   2.96609,   3.19588,
     +     .02308,    .01016,  91.05467,   3.49064,   2.80505,
     +    2.22048,   3.26523,   3.49297,
     +     .02357,    .01040,  99.58462,   3.78586,   3.09708,
     +    2.51832,   3.56234,   3.78819,
     +     .02403,    .01065, 107.91574,   4.07726,   3.38638,
     +    2.81450,   3.85546,   4.07960 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
     +     .02449,    .01090, 116.36311,   4.37931,   3.68460,
     +    3.11650,   4.15920,   4.38165,
     +     .02495,    .01114, 124.92283,   4.68859,   3.99105,
     +    3.42825,   4.47011,   4.69092,
     +     .02538,    .01137, 133.24413,   4.99319,   4.29317,
     +    3.73558,   4.77621,   4.99552,
     +     .02580,    .01159, 141.17660,   5.28868,   4.58563,
     +    4.03182,   5.07310,   5.29102,
     +     .02622,    .01181, 149.40916,   5.59768,   4.89261,
     +    4.34414,   5.38347,   5.60001,
     +     .02663,    .01204, 157.51051,   5.90795,   5.19971,
     +    4.65458,   5.69509,   5.91029,
     +     .02703,    .01224, 165.47410,   6.21466,   5.50459,
     +    4.96441,   6.00305,   6.21700,
     +     .02742,    .01245, 172.97081,   6.50915,   5.79627,
     +    5.25905,   6.29871,   6.51149 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
     +     .02780,    .01265, 180.74219,   6.81631,   6.10146,
     +    5.56847,   6.60703,   6.81865,
     +     .02818,    .01286, 188.42736,   7.12485,   6.40759,
     +    5.87803,   6.91670,   7.12720,
     +     .02854,    .01305, 195.86292,   7.42647,   6.70709,
     +    6.18098,   7.21938,   7.42882,
     +     .02889,    .01324, 203.03434,   7.71984,   6.99883,
     +    6.47653,   7.51374,   7.72219,
     +     .02925,    .01344, 210.23007,   8.01930,   7.29589,
     +    6.77627,   7.81421,   8.02165 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
     +     .01681,    .00693,    .90184,    .54972,    .00000,
     +     .00000,    .29617,    .55130,
     +     .01714,    .00709,   1.80308,    .57991,    .00000,
     +     .00000,    .32861,    .58147,
     +     .01765,    .00734,   3.44413,    .63537,    .03715,
     +     .00000,    .38729,    .63694,
     +     .01804,    .00754,   4.96164,    .68359,    .08891,
     +     .00000,    .43778,    .68515,
     +     .01846,    .00773,   6.80684,    .74266,    .14342,
     +     .00000,    .49919,    .74422,
     +     .01882,    .00791,   8.61578,    .80045,    .19707,
     +     .00000,    .55892,    .80201,
     +     .01916,    .00808,  10.57851,    .86145,    .25608,
     +     .00000,    .62175,    .86300,
     +     .01954,    .00827,  12.90731,    .93250,    .32615,
     +     .00000,    .69470,    .93405 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
     +     .01986,    .00843,  15.09468,   1.00010,    .39125,
     +     .00000,    .76391,   1.00164,
     +     .02017,    .00859,  17.37395,   1.07026,    .45932,
     +     .00000,    .83559,   1.07180,
     +     .02042,    .00872,  19.32323,   1.12933,    .51793,
     +     .00000,    .89585,   1.13087,
     +     .02097,    .00899,  23.87091,   1.26612,    .65201,
     +     .00000,   1.03511,   1.26766,
     +     .02146,    .00924,  27.84845,   1.39563,    .77857,
     +     .16760,   1.16670,   1.39717,
     +     .02200,    .00952,  32.85529,   1.55393,    .93411,
     +     .34829,   1.32727,   1.55548,
     +     .02258,    .00982,  38.49543,   1.73367,   1.11099,
     +     .53304,   1.50929,   1.73521,
     +     .02311,    .01010,  43.97991,   1.91011,   1.28492,
     +     .71478,   1.68775,   1.91165 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
     +     .02364,    .01037,  49.86403,   2.10136,   1.47390,
     +     .91130,   1.88099,   2.10291,
     +     .02409,    .01061,  54.97785,   2.26998,   1.64011,
     +    1.08195,   2.05121,   2.27153,
     +     .02465,    .01090,  61.44124,   2.48624,   1.85303,
     +    1.29962,   2.26937,   2.48779,
     +     .02514,    .01116,  67.43393,   2.68893,   2.05332,
     +    1.50539,   2.47371,   2.69048,
     +     .02559,    .01139,  73.14878,   2.88434,   2.24685,
     +    1.70435,   2.67061,   2.88590,
     +     .02618,    .01170,  80.57918,   3.14360,   2.50245,
     +    1.96431,   2.93171,   3.14517,
     +     .02672,    .01199,  87.83808,   3.40042,   2.75634,
     +    2.22333,   3.19021,   3.40200,
     +     .02725,    .01228,  94.90071,   3.65320,   3.00715,
     +    2.48020,   3.44452,   3.65476 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
     +     .02777,    .01255, 102.03175,   3.91440,   3.26489,
     +    2.74126,   3.70724,   3.91598,
     +     .02828,    .01282, 109.23240,   4.18114,   3.52906,
     +    3.01007,   3.97543,   4.18273,
     +     .02878,    .01309, 116.20854,   4.44317,   3.78883,
     +    3.27439,   4.23882,   4.44477,
     +     .02925,    .01334, 122.83542,   4.69672,   4.03964,
     +    3.52849,   4.49362,   4.69832,
     +     .02972,    .01360, 129.69437,   4.96128,   4.30238,
     +    3.79587,   4.75940,   4.96289,
     +     .03019,    .01385, 136.42004,   5.22626,   4.56452,
     +    4.06090,   5.02558,   5.22788,
     +     .03064,    .01409, 143.01565,   5.48768,   4.82428,
     +    4.32496,   5.28813,   5.48931,
     +     .03107,    .01433, 149.20409,   5.73811,   5.07220,
     +    4.57542,   5.53959,   5.73974 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
     +     .03150,    .01456, 155.60541,   5.99884,   5.33119,
     +    4.83807,   5.80136,   6.00048,
     +     .03193,    .01479, 161.91731,   6.26020,   5.59039,
     +    5.10022,   6.06373,   6.26185,
     +     .03234,    .01502, 168.00971,   6.51521,   5.84354,
     +    5.35633,   6.31970,   6.51688,
     +     .03274,    .01523, 173.87313,   6.76284,   6.08972,
     +    5.60579,   6.56822,   6.76451,
     +     .03314,    .01545, 179.73974,   7.01512,   6.33988,
     +    5.85823,   6.82138,   7.01679 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
     +     .01850,    .00772,    .87911,    .52180,    .00000,
     +     .00000,    .28151,    .52283,
     +     .01888,    .00791,   1.75074,    .55095,    .00000,
     +     .00000,    .31274,    .55198,
     +     .01945,    .00818,   3.32522,    .60396,    .03589,
     +     .00000,    .36872,    .60498,
     +     .01988,    .00840,   4.77148,    .64971,    .08503,
     +     .00000,    .41659,    .65073,
     +     .02034,    .00863,   6.51950,    .70546,    .13643,
     +     .00000,    .47449,    .70647,
     +     .02073,    .00883,   8.22404,    .75974,    .18683,
     +     .00000,    .53057,    .76075,
     +     .02112,    .00902,  10.06544,    .81687,    .24208,
     +     .00000,    .58938,    .81788,
     +     .02153,    .00923,  12.24102,    .88319,    .30748,
     +     .00000,    .65747,    .88422 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
     +     .02189,    .00941,  14.27598,    .94612,    .36806,
     +     .00000,    .72188,    .94714,
     +     .02224,    .00958,  16.38909,   1.01128,    .43125,
     +     .00000,    .78844,   1.01230,
     +     .02252,    .00974,  18.19122,   1.06603,    .48556,
     +     .00000,    .84429,   1.06705,
     +     .02312,    .01004,  22.37931,   1.19248,    .60945,
     +     .00000,    .97302,   1.19351,
     +     .02365,    .01031,  26.02078,   1.31178,    .72600,
     +     .15415,   1.09424,   1.31281,
     +     .02426,    .01064,  30.58562,   1.45717,    .86880,
     +     .32032,   1.24172,   1.45820,
     +     .02489,    .01096,  35.70351,   1.62171,   1.03067,
     +     .48955,   1.40838,   1.62275,
     +     .02548,    .01127,  40.65819,   1.78273,   1.18935,
     +     .65549,   1.57127,   1.78378 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
     +     .02607,    .01159,  45.95246,   1.95679,   1.36128,
     +     .83441,   1.74716,   1.95784,
     +     .02656,    .01184,  50.53668,   2.10985,   1.51210,
     +     .98936,   1.90170,   2.11091,
     +     .02718,    .01217,  56.30993,   2.30565,   1.70482,
     +    1.18648,   2.09926,   2.30673,
     +     .02772,    .01245,  61.64425,   2.48872,   1.88566,
     +    1.37239,   2.28384,   2.48980,
     +     .02821,    .01272,  66.71582,   2.66482,   2.06002,
     +    1.55174,   2.46131,   2.66591,
     +     .02885,    .01307,  73.28676,   2.89789,   2.28973,
     +    1.78547,   2.69606,   2.89899,
     +     .02946,    .01339,  79.68433,   3.12818,   2.51733,
     +    2.01778,   2.92791,   3.12929,
     +     .03003,    .01369,  85.89010,   3.35433,   2.74168,
     +    2.24767,   3.15548,   3.35545 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
     +     .03061,    .01400,  92.13495,   3.58746,   2.97166,
     +    2.48069,   3.39000,   3.58859,
     +     .03118,    .01432,  98.42350,   3.82504,   3.20691,
     +    2.72018,   3.62892,   3.82619,
     +     .03171,    .01461, 104.49936,   4.05795,   3.43777,
     +    2.95519,   3.86307,   4.05912,
     +     .03223,    .01489, 110.25502,   4.28287,   3.66022,
     +    3.18063,   4.08913,   4.28405,
     +     .03275,    .01517, 116.19939,   4.51715,   3.89287,
     +    3.41748,   4.32456,   4.51835,
     +     .03326,    .01545, 122.01174,   4.75135,   4.12450,
     +    3.65175,   4.55986,   4.75255,
     +     .03376,    .01572, 127.70104,   4.98205,   4.35372,
     +    3.88486,   4.79158,   4.98327,
     +     .03423,    .01597, 133.02506,   5.20263,   4.57206,
     +    4.10551,   5.01312,   5.20387 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
     +     .03470,    .01623, 138.52283,   5.43198,   4.79985,
     +    4.33661,   5.24343,   5.43323,
     +     .03517,    .01649, 143.93106,   5.66149,   5.02746,
     +    4.56688,   5.47386,   5.66275,
     +     .03562,    .01674, 149.14146,   5.88511,   5.24942,
     +    4.79153,   5.69837,   5.88639,
     +     .03606,    .01698, 154.14748,   6.10196,   5.46501,
     +    5.01006,   5.91604,   6.10325,
     +     .03649,    .01722, 159.14484,   6.32254,   5.68371,
     +    5.23083,   6.13742,   6.32384 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
     +     .02504,    .01087,    .81205,    .44440,    .00000,
     +     .00000,    .24132,    .44456,
     +     .02555,    .01113,   1.59843,    .47032,    .00000,
     +     .00000,    .26890,    .47048,
     +     .02632,    .01152,   2.98214,    .51608,    .03246,
     +     .00000,    .31703,    .51625,
     +     .02690,    .01183,   4.22666,    .55475,    .07411,
     +     .00000,    .35739,    .55493,
     +     .02753,    .01215,   5.70213,    .60106,    .11677,
     +     .00000,    .40540,    .60125,
     +     .02807,    .01244,   7.11639,    .64553,    .15807,
     +     .00000,    .45131,    .64573,
     +     .02858,    .01270,   8.62294,    .69189,    .20292,
     +     .00000,    .49900,    .69209,
     +     .02915,    .01300,  10.37881,    .74524,    .25550,
     +     .00000,    .55374,    .74546 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
     +     .02963,    .01326,  11.99942,    .79536,    .30376,
     +     .00000,    .60503,    .79559,
     +     .03011,    .01351,  13.66362,    .84687,    .35373,
     +     .00000,    .65767,    .84712,
     +     .03049,    .01371,  15.07024,    .88993,    .39642,
     +     .00000,    .70158,    .89018,
     +     .03130,    .01415,  18.29892,    .98847,    .49297,
     +     .00000,    .80192,    .98873,
     +     .03203,    .01454,  21.05306,   1.08045,    .58283,
     +     .11794,    .89541,   1.08074,
     +     .03284,    .01499,  24.45901,   1.19147,    .69190,
     +     .24569,   1.00807,   1.19178,
     +     .03371,    .01545,  28.22006,   1.31582,    .81427,
     +     .37414,   1.13409,   1.31616,
     +     .03450,    .01588,  31.80972,   1.43636,    .93309,
     +     .49887,   1.25608,   1.43673 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
     +     .03529,    .01633,  35.59590,   1.56551,   1.06072,
     +     .63217,   1.38667,   1.56591,
     +     .03597,    .01669,  38.83550,   1.67814,   1.17175,
     +     .74660,   1.50047,   1.67856,
     +     .03679,    .01714,  42.86838,   1.82108,   1.31249,
     +     .89100,   1.64478,   1.82153,
     +     .03752,    .01754,  46.55340,   1.95367,   1.44355,
     +    1.02615,   1.77855,   1.95415,
     +     .03819,    .01791,  50.02276,   2.08035,   1.56904,
     +    1.15563,   1.90630,   2.08085,
     +     .03905,    .01839,  54.46717,   2.24667,   1.73304,
     +    1.32296,   2.07393,   2.24720,
     +     .03986,    .01884,  58.74714,   2.40971,   1.89430,
     +    1.48801,   2.23819,   2.41029,
     +     .04063,    .01926,  62.85846,   2.56868,   2.05213,
     +    1.65019,   2.39829,   2.56929 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
     +     .04140,    .01970,  66.95046,   2.73132,   2.21266,
     +    1.81325,   2.56200,   2.73197,
     +     .04216,    .02012,  71.03473,   2.89598,   2.37582,
     +    1.97978,   2.72770,   2.89665,
     +     .04288,    .02052,  74.94631,   3.05636,   2.53493,
     +    2.14216,   2.88906,   3.05707,
     +     .04357,    .02090,  78.61778,   3.21024,   2.68723,
     +    2.29687,   3.04382,   3.21099,
     +     .04426,    .02129,  82.38362,   3.36968,   2.84571,
     +    2.45864,   3.20416,   3.37046,
     +     .04495,    .02168,  86.03136,   3.52804,   3.00245,
     +    2.61752,   3.36337,   3.52885,
     +     .04561,    .02205,  89.58076,   3.68328,   3.15686,
     +    2.77495,   3.51942,   3.68412,
     +     .04622,    .02239,  92.87278,   3.83084,   3.30303,
     +    2.92300,   3.66772,   3.83171 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
     +     .04686,    .02274,  96.25383,   3.98359,   3.45491,
     +    3.07744,   3.82122,   3.98450,
     +     .04748,    .02310,  99.55418,   4.13562,   3.60583,
     +    3.23049,   3.97398,   4.13657,
     +     .04808,    .02343, 102.71423,   4.28310,   3.75235,
     +    3.37911,   4.12213,   4.28406,
     +     .04866,    .02376, 105.73362,   4.42549,   3.89408,
     +    3.52313,   4.26517,   4.42649,
     +     .04923,    .02408, 108.72441,   4.56960,   4.03710,
     +    3.66780,   4.40992,   4.57063 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
     +     .03402,    .01538,    .75313,    .37985,    .00000,
     +     .00000,    .20843,    .38009,
     +     .03470,    .01574,   1.46394,    .40252,    .00000,
     +     .00000,    .23245,    .40279,
     +     .03573,    .01630,   2.67888,    .44151,    .02970,
     +     .00000,    .27337,    .44181,
     +     .03652,    .01672,   3.74807,    .47381,    .06468,
     +     .00000,    .30705,    .47414,
     +     .03735,    .01717,   4.98984,    .51188,    .09974,
     +     .00000,    .34652,    .51224,
     +     .03808,    .01758,   6.15844,    .54794,    .13328,
     +     .00000,    .38375,    .54834,
     +     .03877,    .01796,   7.38486,    .58517,    .16937,
     +     .00000,    .42207,    .58560,
     +     .03953,    .01837,   8.79364,    .62764,    .21127,
     +     .00000,    .46568,    .62810 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
     +     .04019,    .01874,  10.07555,    .66717,    .24938,
     +     .00000,    .50616,    .66765,
     +     .04083,    .01908,  11.37637,    .70749,    .28856,
     +     .00000,    .54738,    .70800,
     +     .04133,    .01937,  12.46548,    .74101,    .32184,
     +     .00000,    .58161,    .74155,
     +     .04244,    .01998,  14.93274,    .81700,    .39644,
     +     .00000,    .65907,    .81760,
     +     .04341,    .02053,  16.99594,    .88718,    .46514,
     +     .08860,    .73047,    .88782,
     +     .04452,    .02116,  19.50888,    .97105,    .54771,
     +     .18616,    .81567,    .97174,
     +     .04567,    .02181,  22.23912,   1.06401,    .63942,
     +     .28299,    .90999,   1.06477,
     +     .04674,    .02241,  24.80559,   1.15324,    .72759,
     +     .37610,   1.00040,   1.15405 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
     +     .04782,    .02301,  27.47514,   1.24797,    .82144,
     +     .47467,   1.09628,   1.24883,
     +     .04871,    .02353,  29.73024,   1.32988,    .90241,
     +     .55856,   1.17915,   1.33080,
     +     .04982,    .02416,  32.50265,   1.43297,   1.00418,
     +     .66352,   1.28336,   1.43395,
     +     .05079,    .02471,  35.00581,   1.52784,   1.09821,
     +     .76098,   1.37919,   1.52888,
     +     .05169,    .02522,  37.33783,   1.61783,   1.18760,
     +     .85369,   1.47004,   1.61891,
     +     .05284,    .02588,  40.28842,   1.73499,   1.30344,
     +     .97244,   1.58827,   1.73614,
     +     .05393,    .02651,  43.09636,   1.84891,   1.41642,
     +    1.08865,   1.70318,   1.85013,
     +     .05495,    .02709,  45.76557,   1.95918,   1.52622,
     +    1.20204,   1.81436,   1.96046 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
     +     .05598,    .02768,  48.38987,   2.07107,   1.63696,
     +    1.31503,   1.92713,   2.07241,
     +     .05699,    .02826,  50.98425,   2.18359,   1.74877,
     +    1.42969,   2.04048,   2.18498,
     +     .05795,    .02881,  53.44514,   2.29244,   1.85707,
     +    1.54073,   2.15014,   2.29390,
     +     .05886,    .02933,  55.73137,   2.39617,   1.96003,
     +    1.64579,   2.25460,   2.39768,
     +     .05978,    .02986,  58.05911,   2.50307,   2.06659,
     +    1.75507,   2.36222,   2.50463,
     +     .06070,    .03039,  60.28976,   2.60849,   2.17123,
     +    1.86160,   2.46834,   2.61012,
     +     .06156,    .03089,  62.44673,   2.71135,   2.27385,
     +    1.96671,   2.57186,   2.71304,
     +     .06239,    .03136,  64.42687,   2.80849,   2.37035,
     +    2.06486,   2.66960,   2.81022 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
     +     .06321,    .03184,  66.44884,   2.90860,   2.47018,
     +    2.16685,   2.77032,   2.91038,
     +     .06404,    .03231,  68.40499,   3.00766,   2.56880,
     +    2.26729,   2.86998,   3.00950,
     +     .06483,    .03277,  70.26507,   3.10327,   2.66410,
     +    2.36438,   2.96615,   3.10517,
     +     .06559,    .03320,  72.03166,   3.19520,   2.75588,
     +    2.45806,   3.05861,   3.19714,
     +     .06635,    .03364,  73.76551,   3.28772,   2.84797,
     +    2.55160,   3.15165,   3.28971 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
     +     .04077,    .01890,    .72568,    .34742,    .00000,
     +     .00000,    .19215,    .34806,
     +     .04156,    .01933,   1.39645,    .36816,    .00000,
     +     .00000,    .21413,    .36886,
     +     .04278,    .01999,   2.52146,    .40337,    .02829,
     +     .00000,    .25108,    .40411,
     +     .04371,    .02050,   3.49835,    .43221,    .05970,
     +     .00000,    .28116,    .43301,
     +     .04469,    .02106,   4.61829,    .46593,    .09076,
     +     .00000,    .31613,    .46678,
     +     .04555,    .02153,   5.66016,    .49762,    .12027,
     +     .00000,    .34888,    .49851,
     +     .04638,    .02201,   6.74338,    .53017,    .15186,
     +     .00000,    .38242,    .53110,
     +     .04728,    .02251,   7.97643,    .56710,    .18835,
     +     .00000,    .42036,    .56808 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
     +     .04806,    .02295,   9.08846,    .60127,    .22134,
     +     .00000,    .45540,    .60230,
     +     .04882,    .02339,  10.20855,    .63598,    .25513,
     +     .00000,    .49093,    .63706,
     +     .04943,    .02373,  11.14080,    .66474,    .28374,
     +     .00000,    .52032,    .66585,
     +     .05073,    .02447,  13.23542,    .72962,    .34751,
     +     .00000,    .58652,    .73080,
     +     .05190,    .02514,  14.96610,    .78912,    .40590,
     +     .07402,    .64713,    .79038,
     +     .05320,    .02590,  17.05290,    .85982,    .47566,
     +     .15694,    .71904,    .86115,
     +     .05458,    .02669,  19.29711,    .93769,    .55263,
     +     .23859,    .79813,    .93911,
     +     .05583,    .02742,  21.38655,   1.01199,    .62622,
     +     .31664,    .87350,   1.01349 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
     +     .05712,    .02816,  23.54092,   1.09043,    .70413,
     +     .39881,    .95300,   1.09201,
     +     .05819,    .02878,  25.34611,   1.15792,    .77099,
     +     .46837,   1.02133,   1.15956,
     +     .05949,    .02953,  27.54783,   1.24242,    .85461,
     +     .55495,   1.10684,   1.24415,
     +     .06064,    .03021,  29.52077,   1.31980,    .93148,
     +     .63496,   1.18509,   1.32160,
     +     .06171,    .03082,  31.34658,   1.39287,   1.00426,
     +     .71074,   1.25895,   1.39474,
     +     .06308,    .03162,  33.63831,   1.48751,   1.09808,
     +     .80729,   1.35458,   1.48948,
     +     .06436,    .03236,  35.80283,   1.57909,   1.18913,
     +     .90131,   1.44706,   1.58114,
     +     .06557,    .03307,  37.84672,   1.66734,   1.27722,
     +     .99264,   1.53612,   1.66946 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
     +     .06678,    .03378,  39.84016,   1.75643,   1.36561,
     +    1.08316,   1.62601,   1.75864,
     +     .06797,    .03448,  41.79887,   1.84564,   1.45449,
     +    1.17465,   1.71599,   1.84792,
     +     .06912,    .03513,  43.64527,   1.93159,   1.54023,
     +    1.26289,   1.80266,   1.93395,
     +     .07019,    .03576,  45.34904,   2.01315,   1.62139,
     +    1.34601,   1.88489,   2.01558,
     +     .07127,    .03639,  47.07566,   2.09689,   1.70511,
     +    1.43220,   1.96930,   2.09941,
     +     .07233,    .03701,  48.71831,   2.17916,   1.78695,
     +    1.51583,   2.05220,   2.18174,
     +     .07335,    .03761,  50.30052,   2.25916,   1.86699,
     +    1.59812,   2.13281,   2.26182,
     +     .07431,    .03816,  51.74282,   2.33440,   1.94194,
     +    1.67463,   2.20861,   2.33713 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
     +     .07529,    .03873,  53.21024,   2.41174,   2.01928,
     +    1.75393,   2.28651,   2.41454,
     +     .07626,    .03929,  54.62133,   2.48799,   2.09540,
     +    1.83173,   2.36330,   2.49086,
     +     .07718,    .03983,  55.95706,   2.56138,   2.16872,
     +    1.90671,   2.43719,   2.56430,
     +     .07806,    .04034,  57.22064,   2.63173,   2.23916,
     +    1.97888,   2.50803,   2.63472,
     +     .07895,    .04086,  58.45273,   2.70228,   2.30958,
     +    2.05067,   2.57907,   2.70533 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
     +     .04635,    .02184,    .71280,    .32625,    .00000,
     +     .00000,    .18170,    .32743,
     +     .04726,    .02234,   1.35669,    .34566,    .00000,
     +     .00000,    .20225,    .34688,
     +     .04861,    .02311,   2.42102,    .37830,    .02731,
     +     .00000,    .23649,    .37957,
     +     .04966,    .02369,   3.33596,    .40484,    .05632,
     +     .00000,    .26420,    .40619,
     +     .05077,    .02433,   4.37466,    .43568,    .08471,
     +     .00000,    .29621,    .43709,
     +     .05174,    .02488,   5.33261,    .46452,    .11158,
     +     .00000,    .32603,    .46599,
     +     .05267,    .02543,   6.32161,    .49403,    .14023,
     +     .00000,    .35644,    .49555,
     +     .05369,    .02601,   7.43975,    .52739,    .17321,
     +     .00000,    .39076,    .52897 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
     +     .05457,    .02651,   8.44145,    .55814,    .20292,
     +     .00000,    .42231,    .55976,
     +     .05543,    .02702,   9.44484,    .58927,    .23324,
     +     .00000,    .45419,    .59094,
     +     .05612,    .02742,  10.27622,    .61500,    .25886,
     +     .00000,    .48052,    .61672,
     +     .05759,    .02827,  12.13290,    .67283,    .31575,
     +     .00000,    .53957,    .67462,
     +     .05890,    .02903,  13.65307,    .72560,    .36759,
     +     .06476,    .59337,    .72749,
     +     .06038,    .02991,  15.47205,    .78803,    .42927,
     +     .13843,    .65693,    .79002,
     +     .06194,    .03081,  17.41332,    .85648,    .49704,
     +     .21057,    .72652,    .85855,
     +     .06337,    .03165,  19.20768,    .92149,    .56153,
     +     .27922,    .79253,    .92367 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
     +     .06481,    .03250,  21.04560,    .98985,    .62953,
     +     .35120,    .86188,    .99212,
     +     .06601,    .03321,  22.57620,   1.04843,    .68767,
     +     .41187,    .92127,   1.05079,
     +     .06748,    .03407,  24.43181,   1.12151,    .76011,
     +     .48714,    .99529,   1.12397,
     +     .06879,    .03484,  26.08508,   1.18819,    .82647,
     +     .55644,   1.06279,   1.19072,
     +     .07000,    .03554,  27.60738,   1.25094,    .88909,
     +     .62186,   1.12628,   1.25356,
     +     .07152,    .03645,  29.50645,   1.33192,    .96950,
     +     .70488,   1.20818,   1.33465,
     +     .07297,    .03729,  31.28981,   1.40997,   1.04726,
     +     .78542,   1.28708,   1.41281,
     +     .07433,    .03810,  32.96527,   1.48493,   1.12223,
     +     .86341,   1.36280,   1.48785 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
     +     .07569,    .03890,  34.58923,   1.56033,   1.19717,
     +     .94040,   1.43895,   1.56334,
     +     .07703,    .03969,  36.17743,   1.63557,   1.27229,
     +    1.01798,   1.51493,   1.63869,
     +     .07831,    .04044,  37.66745,   1.70785,   1.34454,
     +    1.09258,   1.58789,   1.71106,
     +     .07950,    .04114,  39.03505,   1.77621,   1.41270,
     +    1.16261,   1.65688,   1.77951,
     +     .08072,    .04185,  40.41610,   1.84624,   1.48286,
     +    1.23506,   1.72754,   1.84962,
     +     .08190,    .04255,  41.72243,   1.91479,   1.55121,
     +    1.30512,   1.79668,   1.91826,
     +     .08305,    .04322,  42.97705,   1.98132,   1.61790,
     +    1.37392,   1.86378,   1.98486,
     +     .08412,    .04385,  44.11425,   2.04369,   1.68015,
     +    1.43766,   1.92668,   2.04731 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
     +     .08522,    .04449,  45.26807,   2.10766,   1.74427,
     +    1.50361,   1.99118,   2.11136,
     +     .08629,    .04512,  46.37219,   2.17056,   1.80720,
     +    1.56814,   2.05460,   2.17434,
     +     .08733,    .04573,  47.41363,   2.23095,   1.86769,
     +    1.63019,   2.11548,   2.23481,
     +     .08831,    .04631,  48.39576,   2.28873,   1.92568,
     +    1.68980,   2.17372,   2.29267,
     +     .08930,    .04688,  49.34834,   2.34653,   1.98349,
     +    1.74892,   2.23196,   2.35053 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
     +     .05125,    .02456,    .71092,    .31156,    .00000,
     +     .00000,    .17415,    .31281,
     +     .05223,    .02511,   1.33426,    .32992,    .00000,
     +     .00000,    .19356,    .33122,
     +     .05373,    .02596,   2.35260,    .36056,    .02649,
     +     .00000,    .22571,    .36196,
     +     .05489,    .02663,   3.22058,    .38538,    .05368,
     +     .00000,    .25159,    .38684,
     +     .05611,    .02734,   4.19788,    .41406,    .08009,
     +     .00000,    .28136,    .41560,
     +     .05718,    .02796,   5.09271,    .44078,    .10499,
     +     .00000,    .30897,    .44237,
     +     .05821,    .02856,   6.01106,    .46802,    .13147,
     +     .00000,    .33707,    .46969,
     +     .05932,    .02921,   7.04344,    .49873,    .16187,
     +     .00000,    .36867,    .50047 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
     +     .06030,    .02978,   7.96317,    .52696,    .18917,
     +     .00000,    .39764,    .52876,
     +     .06124,    .03034,   8.88016,    .55547,    .21696,
     +     .00000,    .42685,    .55734,
     +     .06200,    .03078,   9.63718,    .57898,    .24039,
     +     .00000,    .45092,    .58090,
     +     .06362,    .03174,  11.31910,    .63167,    .29228,
     +     .00000,    .50475,    .63369,
     +     .06506,    .03259,  12.68586,    .67956,    .33937,
     +     .05811,    .55361,    .68168,
     +     .06670,    .03355,  14.31087,    .73602,    .39522,
     +     .12508,    .61112,    .73825,
     +     .06841,    .03456,  16.03401,    .79768,    .45633,
     +     .19032,    .67384,    .80003,
     +     .06997,    .03549,  17.61711,    .85603,    .51429,
     +     .25218,    .73314,    .85849 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
     +     .07156,    .03643,  19.22963,    .91719,    .57520,
     +     .31683,    .79522,    .91976,
     +     .07288,    .03721,  20.56551,    .96943,    .62710,
     +     .37116,    .84821,    .97209,
     +     .07450,    .03817,  22.17705,   1.03438,    .69158,
     +     .43832,    .91405,   1.03715,
     +     .07592,    .03901,  23.60599,   1.09345,    .75046,
     +     .49998,    .97390,   1.09635,
     +     .07724,    .03979,  24.91609,   1.14892,    .80588,
     +     .55803,   1.03005,   1.15190,
     +     .07892,    .04078,  26.54169,   1.22026,    .87682,
     +     .63146,   1.10226,   1.22336,
     +     .08049,    .04172,  28.06084,   1.28880,    .94520,
     +     .70248,   1.17158,   1.29201,
     +     .08199,    .04259,  29.48201,   1.35442,   1.01096,
     +     .77106,   1.23796,   1.35775 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
     +     .08348,    .04348,  30.85211,   1.42024,   1.07647,
     +     .83853,   1.30447,   1.42367,
     +     .08494,    .04434,  32.18676,   1.48575,   1.14197,
     +     .90636,   1.37067,   1.48929,
     +     .08633,    .04516,  33.43379,   1.54851,   1.20481,
     +     .97141,   1.43408,   1.55215,
     +     .08763,    .04593,  34.57295,   1.60770,   1.26393,
     +    1.03231,   1.49386,   1.61144,
     +     .08896,    .04671,  35.71982,   1.66821,   1.32466,
     +    1.09519,   1.55497,   1.67206,
     +     .09025,    .04747,  36.79928,   1.72727,   1.38365,
     +    1.15581,   1.61460,   1.73122,
     +     .09149,    .04820,  37.83349,   1.78449,   1.44114,
     +    1.21527,   1.67235,   1.78852,
     +     .09267,    .04889,  38.76622,   1.83799,   1.49464,
     +    1.27019,   1.72635,   1.84211 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
     +     .09385,    .04958,  39.71040,   1.89277,   1.54964,
     +    1.32693,   1.78165,   1.89698,
     +     .09502,    .05027,  40.60980,   1.94651,   1.60351,
     +    1.38231,   1.83587,   1.95082,
     +     .09614,    .05093,  41.45538,   1.99801,   1.65519,
     +    1.43547,   1.88783,   2.00239,
     +     .09721,    .05155,  42.25066,   2.04719,   1.70466,
     +    1.48645,   1.93746,   2.05167,
     +     .09827,    .05218,  43.01838,   2.09627,   1.75385,
     +    1.53690,   1.98696,   2.10081 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
     +     .07021,    .03548,    .72397,    .27143,    .00000,
     +     .00000,    .15398,    .27371,
     +     .07152,    .03626,   1.28775,    .28647,    .00000,
     +     .00000,    .16988,    .28883,
     +     .07352,    .03746,   2.17157,    .31116,    .02387,
     +     .00000,    .19579,    .31366,
     +     .07506,    .03839,   2.90319,    .33085,    .04580,
     +     .00000,    .21636,    .33345,
     +     .07671,    .03938,   3.70464,    .35334,    .06660,
     +     .00000,    .23975,    .35606,
     +     .07815,    .04025,   4.42079,    .37405,    .08600,
     +     .00000,    .26120,    .37687,
     +     .07954,    .04109,   5.14118,    .39498,    .10648,
     +     .00000,    .28284,    .39791,
     +     .08104,    .04200,   5.93563,    .41838,    .12978,
     +     .00000,    .30697,    .42142 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
     +     .08235,    .04279,   6.63028,    .43968,    .15049,
     +     .00000,    .32889,    .44282,
     +     .08363,    .04356,   7.31205,    .46103,    .17142,
     +     .00000,    .35082,    .46425,
     +     .08464,    .04418,   7.86790,    .47854,    .18896,
     +     .00000,    .36879,    .48184,
     +     .08684,    .04551,   9.08194,    .51736,    .22743,
     +     .00000,    .40858,    .52084,
     +     .08877,    .04668,  10.04390,    .55223,    .26192,
     +     .04009,    .44425,    .55585,
     +     .09096,    .04800,  11.16157,    .59285,    .30235,
     +     .08928,    .48577,    .59664,
     +     .09324,    .04939,  12.32102,    .63667,    .34607,
     +     .13647,    .53049,    .64064,
     +     .09533,    .05065,  13.36432,    .67764,    .38704,
     +     .18069,    .57227,    .68177 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
     +     .09744,    .05192,  14.40688,    .72010,    .42962,
     +     .22639,    .61552,    .72440,
     +     .09920,    .05297,  15.25520,    .75599,    .46553,
     +     .26438,    .65205,    .76043,
     +     .10133,    .05425,  16.26058,    .80016,    .50967,
     +     .31086,    .69697,    .80476,
     +     .10322,    .05539,  17.13721,    .83991,    .54959,
     +     .35311,    .73739,    .84467,
     +     .10496,    .05642,  17.92903,    .87690,    .58683,
     +     .39255,    .77498,    .88180,
     +     .10716,    .05774,  18.89334,    .92397,    .63397,
     +     .44187,    .82279,    .92904,
     +     .10924,    .05898,  19.77910,    .96871,    .67896,
     +     .48911,    .86822,    .97395,
     +     .11119,    .06014,  20.59525,   1.01115,    .72183,
     +     .53433,    .91131,   1.01655 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
     +     .11312,    .06128,  21.36656,   1.05325,    .76407,
     +     .57830,    .95402,   1.05880,
     +     .11502,    .06241,  22.10732,   1.09479,    .80595,
     +     .62215,    .99616,   1.10049,
     +     .11682,    .06348,  22.78921,   1.13424,    .84579,
     +     .66386,   1.03617,   1.14009,
     +     .11851,    .06446,  23.40131,   1.17109,    .88292,
     +     .70253,   1.07355,   1.17708,
     +     .12021,    .06548,  24.01101,   1.20851,    .92081,
     +     .74222,   1.11149,   1.21463,
     +     .12188,    .06645,  24.57368,   1.24467,    .95727,
     +     .78010,   1.14816,   1.25094,
     +     .12347,    .06739,  25.10819,   1.27950,    .99257,
     +     .81704,   1.18347,   1.28588,
     +     .12496,    .06826,  25.58059,   1.31176,   1.02514,
     +     .85087,   1.21616,   1.31827 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
     +     .12648,    .06914,  26.05487,   1.34460,   1.05845,
     +     .88562,   1.24946,   1.35124,
     +     .12796,    .07001,  26.49885,   1.37655,   1.09081,
     +     .91928,   1.28184,   1.38331,
     +     .12938,    .07084,  26.91121,   1.40698,   1.12165,
     +     .95139,   1.31269,   1.41385,
     +     .13073,    .07162,  27.29508,   1.43587,   1.15101,
     +     .98201,   1.34196,   1.44285,
     +     .13208,    .07241,  27.65817,   1.46445,   1.17997,
     +    1.01206,   1.37094,   1.47154 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
     +     .09677,    .05164,    .79789,    .23907,    .00000,
     +     .00000,    .13729,    .24300,
     +     .09851,    .05273,   1.30353,    .25080,    .00000,
     +     .00000,    .14974,    .25486,
     +     .10120,    .05442,   2.05821,    .26989,    .02049,
     +     .00000,    .16985,    .27418,
     +     .10328,    .05570,   2.66074,    .28497,    .03780,
     +     .00000,    .18567,    .28942,
     +     .10550,    .05709,   3.30111,    .30202,    .05375,
     +     .00000,    .20347,    .30666,
     +     .10743,    .05829,   3.85741,    .31756,    .06851,
     +     .00000,    .21963,    .32236,
     +     .10931,    .05945,   4.40406,    .33313,    .08398,
     +     .00000,    .23582,    .33810,
     +     .11134,    .06070,   4.99360,    .35041,    .10141,
     +     .00000,    .25373,    .35554 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
     +     .11310,    .06179,   5.49806,    .36599,    .11674,
     +     .00000,    .26984,    .37126,
     +     .11482,    .06284,   5.98412,    .38147,    .13211,
     +     .00000,    .28582,    .38690,
     +     .11619,    .06368,   6.37465,    .39409,    .14491,
     +     .00000,    .29885,    .39963,
     +     .11911,    .06547,   7.21091,    .42179,    .17268,
     +     .00000,    .32737,    .42759,
     +     .12170,    .06704,   7.85469,    .44630,    .19722,
     +     .02549,    .35259,    .45232,
     +     .12459,    .06881,   8.58014,    .47450,    .22565,
     +     .06074,    .38157,    .48076,
     +     .12762,    .07063,   9.31291,    .50448,    .25593,
     +     .09395,    .41235,    .51101,
     +     .13037,    .07229,   9.95559,    .53213,    .28394,
     +     .12467,    .44073,    .53890 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
     +     .13314,    .07394,  10.58284,    .56042,    .31268,
     +     .15601,    .46972,    .56743,
     +     .13544,    .07532,  11.08192,    .58404,    .33662,
     +     .18173,    .49391,    .59125,
     +     .13821,    .07696,  11.65989,    .61274,    .36571,
     +     .21285,    .52331,    .62019,
     +     .14066,    .07842,  12.15313,    .63828,    .39171,
     +     .24082,    .54945,    .64595,
     +     .14291,    .07975,  12.59024,    .66178,    .41571,
     +     .26666,    .57350,    .66964,
     +     .14573,    .08142,  13.10929,    .69129,    .44573,
     +     .29858,    .60369,    .69939,
     +     .14838,    .08298,  13.57516,    .71902,    .47401,
     +     .32878,    .63204,    .72735,
     +     .15086,    .08443,  13.99579,    .74502,    .50069,
     +     .35740,    .65864,    .75356 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
     +     .15332,    .08586,  14.38207,    .77046,    .52664,
     +     .38487,    .68466,    .77922,
     +     .15572,    .08725,  14.74580,    .79530,    .55211,
     +     .41201,    .71005,    .80426,
     +     .15799,    .08856,  15.07347,    .81865,    .57609,
     +     .43757,    .73393,    .82780,
     +     .16010,    .08978,  15.35968,    .84021,    .59820,
     +     .46101,    .75598,    .84954,
     +     .16222,    .09101,  15.64060,    .86191,    .62059,
     +     .48490,    .77817,    .87143,
     +     .16428,    .09219,  15.89158,    .88263,    .64188,
     +     .50743,    .79936,    .89233,
     +     .16625,    .09332,  16.12737,    .90244,    .66236,
     +     .52927,    .81962,    .91230,
     +     .16809,    .09436,  16.32837,    .92056,    .68104,
     +     .54904,    .83817,    .93058 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
     +     .16995,    .09541,  16.52783,    .93889,    .70002,
     +     .56923,    .85693,    .94907,
     +     .17177,    .09645,  16.70872,    .95654,    .71828,
     +     .58861,    .87499,    .96687,
     +     .17350,    .09742,  16.87323,    .97321,    .73555,
     +     .60694,    .89205,    .98369,
     +     .17513,    .09835,  17.02377,    .98893,    .75190,
     +     .62434,    .90814,    .99954,
     +     .17677,    .09927,  17.16044,   1.00430,    .76784,
     +     .64123,    .92389,   1.01505 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
     +     .11694,    .06431,    .88334,    .22211,    .00000,
     +     .00000,    .12820,    .22748,
     +     .11903,    .06565,   1.34885,    .23203,    .00000,
     +     .00000,    .13875,    .23759,
     +     .12226,    .06769,   2.02721,    .24811,    .01785,
     +     .00000,    .15578,    .25396,
     +     .12474,    .06926,   2.55514,    .26075,    .03275,
     +     .00000,    .16910,    .26681,
     +     .12740,    .07093,   3.10532,    .27498,    .04625,
     +     .00000,    .18405,    .28129,
     +     .12971,    .07236,   3.57459,    .28789,    .05868,
     +     .00000,    .19754,    .29440,
     +     .13194,    .07375,   4.02863,    .30076,    .07165,
     +     .00000,    .21098,    .30748,
     +     .13435,    .07524,   4.51113,    .31497,    .08617,
     +     .00000,    .22578,    .32190 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
     +     .13645,    .07653,   4.91815,    .32770,    .09886,
     +     .00000,    .23902,    .33482,
     +     .13848,    .07778,   5.30543,    .34028,    .11152,
     +     .00000,    .25208,    .34760,
     +     .14011,    .07878,   5.61351,    .35050,    .12201,
     +     .00000,    .26268,    .35797,
     +     .14357,    .08088,   6.26481,    .37277,    .14461,
     +     .00000,    .28575,    .38054,
     +     .14660,    .08272,   6.75665,    .39229,    .16441,
     +     .01830,    .30596,    .40035,
     +     .15000,    .08476,   7.29780,    .41455,    .18713,
     +     .04689,    .32897,    .42291,
     +     .15353,    .08686,   7.83420,    .43799,    .21113,
     +     .07354,    .35319,    .44667,
     +     .15672,    .08875,   8.29608,    .45942,    .23312,
     +     .09797,    .37531,    .46839 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
     +     .15994,    .09066,   8.73919,    .48112,    .25548,
     +     .12268,    .39772,    .49039,
     +     .16259,    .09221,   9.08568,    .49911,    .27398,
     +     .14281,    .41626,    .50861,
     +     .16578,    .09407,   9.48016,    .52077,    .29625,
     +     .16695,    .43860,    .53057,
     +     .16859,    .09571,   9.81135,    .53989,    .31600,
     +     .18849,    .45832,    .54994,
     +     .17117,    .09720,  10.10047,    .55735,    .33411,
     +     .20825,    .47633,    .56763,
     +     .17439,    .09906,  10.43668,    .57909,    .35656,
     +     .23246,    .49873,    .58964,
     +     .17739,    .10079,  10.73278,    .59931,    .37756,
     +     .25521,    .51959,    .61014,
     +     .18020,    .10239,  10.99575,    .61814,    .39720,
     +     .27659,    .53900,    .62921 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
     +     .18297,    .10396,  11.23069,    .63638,    .41615,
     +     .29696,    .55783,    .64769,
     +     .18566,    .10548,  11.44829,    .65406,    .43462,
     +     .31694,    .57607,    .66561,
     +     .18820,    .10692,  11.64059,    .67054,    .45190,
     +     .33564,    .59308,    .68232,
     +     .19055,    .10823,  11.80419,    .68563,    .46769,
     +     .35266,    .60867,    .69761,
     +     .19292,    .10955,  11.96269,    .70075,    .48361,
     +     .36992,    .62427,    .71293,
     +     .19520,    .11083,  12.09904,    .71504,    .49862,
     +     .38608,    .63904,    .72742,
     +     .19737,    .11203,  12.22586,    .72864,    .51300,
     +     .40167,    .65309,    .74121,
     +     .19939,    .11315,  12.32951,    .74095,    .52600,
     +     .41568,    .66585,    .75369 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
     +     .20144,    .11426,  12.43124,    .75336,    .53916,
     +     .42994,    .67868,    .76627,
     +     .20342,    .11536,  12.51988,    .76521,    .55172,
     +     .44351,    .69094,    .77829,
     +     .20531,    .11638,  12.59843,    .77632,    .56355,
     +     .45631,    .70245,    .78956,
     +     .20710,    .11736,  12.66872,    .78674,    .57469,
     +     .46838,    .71326,    .80014,
     +     .20887,    .11831,  12.72855,    .79685,    .58547,
     +     .48004,    .72375,    .81039 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
     +     .13389,    .07512,    .96563,    .21062,    .00000,
     +     .00000,    .12173,    .21733,
     +     .13629,    .07667,   1.39984,    .21932,    .00000,
     +     .00000,    .13105,    .22625,
     +     .13998,    .07902,   2.02208,    .23341,    .01553,
     +     .00000,    .14604,    .24067,
     +     .14280,    .08080,   2.49623,    .24446,    .02888,
     +     .00000,    .15774,    .25199,
     +     .14581,    .08269,   2.98313,    .25686,    .04081,
     +     .00000,    .17081,    .26468,
     +     .14843,    .08431,   3.39260,    .26805,    .05176,
     +     .00000,    .18259,    .27612,
     +     .15097,    .08588,   3.78402,    .27918,    .06313,
     +     .00000,    .19427,    .28750,
     +     .15369,    .08756,   4.19529,    .29141,    .07582,
     +     .00000,    .20709,    .29999 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
     +     .15606,    .08900,   4.53829,    .30232,    .08684,
     +     .00000,    .21851,    .31113,
     +     .15835,    .09039,   4.86149,    .31306,    .09779,
     +     .00000,    .22973,    .32209,
     +     .16018,    .09150,   5.11664,    .32175,    .10683,
     +     .00000,    .23880,    .33096,
     +     .16406,    .09384,   5.65048,    .34059,    .12620,
     +     .00000,    .25843,    .35017,
     +     .16744,    .09585,   6.04781,    .35699,    .14305,
     +     .01374,    .27550,    .36687,
     +     .17122,    .09809,   6.47553,    .37553,    .16226,
     +     .03820,    .29482,    .38578,
     +     .17515,    .10039,   6.89289,    .39493,    .18238,
     +     .06080,    .31499,    .40554,
     +     .17868,    .10244,   7.24667,    .41251,    .20068,
     +     .08137,    .33326,    .42344 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
     +     .18221,    .10449,   7.58104,    .43021,    .21919,
     +     .10204,    .35167,    .44147,
     +     .18512,    .10617,   7.83861,    .44476,    .23438,
     +     .11877,    .36679,    .45628,
     +     .18862,    .10817,   8.12727,    .46217,    .25256,
     +     .13873,    .38489,    .47401,
     +     .19168,    .10992,   8.36603,    .47743,    .26860,
     +     .15643,    .40074,    .48955,
     +     .19449,    .11149,   8.57159,    .49128,    .28321,
     +     .17258,    .41515,    .50366,
     +     .19798,    .11346,   8.80576,    .50838,    .30121,
     +     .19224,    .43296,    .52109,
     +     .20123,    .11527,   9.00823,    .52419,    .31792,
     +     .21058,    .44940,    .53719,
     +     .20426,    .11696,   9.18513,    .53880,    .33349,
     +     .22776,    .46462,    .55207 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
     +     .20722,    .11860,   9.33865,    .55286,    .34837,
     +     .24398,    .47926,    .56638,
     +     .21011,    .12019,   9.47828,    .56639,    .36282,
     +     .25984,    .49337,    .58016,
     +     .21280,    .12166,   9.59897,    .57892,    .37625,
     +     .27459,    .50645,    .59294,
     +     .21531,    .12302,   9.69836,    .59031,    .38845,
     +     .28795,    .51834,    .60453,
     +     .21782,    .12437,   9.79324,    .60166,    .40070,
     +     .30143,    .53020,    .61610,
     +     .22023,    .12567,   9.87096,    .61231,    .41217,
     +     .31398,    .54133,    .62694,
     +     .22253,    .12691,   9.94242,    .62239,    .42311,
     +     .32604,    .55189,    .63723,
     +     .22465,    .12804,   9.99718,    .63146,    .43294,
     +     .33682,    .56138,    .64647 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
     +     .22679,    .12918,  10.05012,    .64054,    .44286,
     +     .34776,    .57090,    .65573,
     +     .22886,    .13027,  10.09320,    .64914,    .45228,
     +     .35811,    .57994,    .66451,
     +     .23084,    .13131,  10.12963,    .65718,    .46110,
     +     .36784,    .58839,    .67271,
     +     .23269,    .13228,  10.16092,    .66468,    .46937,
     +     .37698,    .59628,    .68037,
     +     .23453,    .13324,  10.18395,    .67190,    .47733,
     +     .38576,    .60388,    .68773 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
     +     .14869,    .08464,   1.04273,    .20161,    .00000,
     +     .00000,    .11648,    .20945,
     +     .15136,    .08638,   1.45048,    .20942,    .00000,
     +     .00000,    .12488,    .21754,
     +     .15546,    .08900,   2.02742,    .22207,    .01343,
     +     .00000,    .13841,    .23060,
     +     .15861,    .09097,   2.45893,    .23197,    .02567,
     +     .00000,    .14896,    .24082,
     +     .16194,    .09305,   2.89677,    .24305,    .03649,
     +     .00000,    .16072,    .25223,
     +     .16483,    .09483,   3.26070,    .25302,    .04638,
     +     .00000,    .17126,    .26249,
     +     .16764,    .09654,   3.60515,    .26290,    .05662,
     +     .00000,    .18168,    .27265,
     +     .17063,    .09836,   3.96358,    .27372,    .06799,
     +     .00000,    .19309,    .28377 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
     +     .17323,    .09992,   4.25963,    .28333,    .07784,
     +     .00000,    .20320,    .29364,
     +     .17573,    .10144,   4.53633,    .29276,    .08758,
     +     .00000,    .21311,    .30332,
     +     .17773,    .10263,   4.75337,    .30038,    .09560,
     +     .00000,    .22111,    .31112,
     +     .18197,    .10515,   5.20354,    .31679,    .11270,
     +     .00000,    .23832,    .32794,
     +     .18565,    .10729,   5.53460,    .33095,    .12748,
     +     .01050,    .25319,    .34248,
     +     .18974,    .10968,   5.88350,    .34691,    .14422,
     +     .03205,    .26991,    .35882,
     +     .19397,    .11211,   6.21926,    .36346,    .16166,
     +     .05184,    .28726,    .37577,
     +     .19776,    .11427,   6.49979,    .37837,    .17743,
     +     .06974,    .30288,    .39103 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
     +     .20156,    .11643,   6.76110,    .39328,    .19327,
     +     .08764,    .31852,    .40630,
     +     .20467,    .11818,   6.95955,    .40547,    .20621,
     +     .10204,    .33129,    .41879,
     +     .20840,    .12026,   7.17860,    .41996,    .22161,
     +     .11913,    .34649,    .43362,
     +     .21166,    .12207,   7.35712,    .43258,    .23511,
     +     .13421,    .35974,    .44654,
     +     .21462,    .12371,   7.50864,    .44399,    .24738,
     +     .14792,    .37171,    .45822,
     +     .21831,    .12572,   7.67748,    .45797,    .26237,
     +     .16450,    .38640,    .47253,
     +     .22174,    .12759,   7.82061,    .47081,    .27623,
     +     .17991,    .39989,    .48567,
     +     .22492,    .12931,   7.94346,    .48261,    .28907,
     +     .19426,    .41232,    .49775 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
     +     .22801,    .13097,   8.04643,    .49387,    .30128,
     +     .20775,    .42417,    .50927,
     +     .23102,    .13258,   8.13798,    .50465,    .31307,
     +     .22088,    .43556,    .52032,
     +     .23383,    .13407,   8.21484,    .51457,    .32397,
     +     .23302,    .44604,    .53049,
     +     .23643,    .13543,   8.27541,    .52353,    .33383,
     +     .24397,    .45551,    .53966,
     +     .23902,    .13678,   8.33210,    .53241,    .34368,
     +     .25499,    .46491,    .54877,
     +     .24150,    .13808,   8.37497,    .54067,    .35286,
     +     .26519,    .47368,    .55723,
     +     .24386,    .13931,   8.41373,    .54848,    .36158,
     +     .27497,    .48196,    .56523,
     +     .24604,    .14042,   8.43997,    .55543,    .36938,
     +     .28366,    .48936,    .57236 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
     +     .24824,    .14154,   8.46462,    .56238,    .37722,
     +     .29245,    .49676,    .57950,
     +     .25035,    .14263,   8.48152,    .56891,    .38461,
     +     .30074,    .50375,    .58620,
     +     .25235,    .14364,   8.49389,    .57498,    .39153,
     +     .30851,    .51024,    .59243,
     +     .25423,    .14459,   8.50310,    .58062,    .39799,
     +     .31578,    .51627,    .59822,
     +     .25609,    .14553,   8.50565,    .58599,    .40416,
     +     .32272,    .52204,    .60373 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
     +     .17436,    .10123,   1.17639,    .18799,    .00000,
     +     .00000,    .10826,    .19806,
     +     .17755,    .10328,   1.53956,    .19454,    .00000,
     +     .00000,    .11541,    .20498,
     +     .18241,    .10634,   2.04442,    .20518,    .00982,
     +     .00000,    .12692,    .21613,
     +     .18609,    .10860,   2.40981,    .21347,    .02050,
     +     .00000,    .13588,    .22482,
     +     .18997,    .11097,   2.77344,    .22270,    .02980,
     +     .00000,    .14580,    .23448,
     +     .19332,    .11299,   3.06995,    .23094,    .03825,
     +     .00000,    .15464,    .24307,
     +     .19655,    .11492,   3.34599,    .23908,    .04695,
     +     .00000,    .16335,    .25154,
     +     .20001,    .11697,   3.62871,    .24793,    .05653,
     +     .00000,    .17280,    .26075 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
     +     .20297,    .11871,   3.85847,    .25574,    .06477,
     +     .00000,    .18113,    .26886,
     +     .20583,    .12037,   4.07015,    .26334,    .07286,
     +     .00000,    .18924,    .27676,
     +     .20810,    .12168,   4.23435,    .26944,    .07949,
     +     .00000,    .19575,    .28310,
     +     .21291,    .12444,   4.56991,    .28250,    .09351,
     +     .00000,    .20965,    .29663,
     +     .21702,    .12676,   4.81186,    .29364,    .10550,
     +     .00612,    .22153,    .30818,
     +     .22158,    .12931,   5.05619,    .30604,    .11895,
     +     .02375,    .23475,    .32102,
     +     .22626,    .13190,   5.28512,    .31877,    .13281,
     +     .03977,    .24831,    .33419,
     +     .23044,    .13418,   5.47108,    .33009,    .14521,
     +     .05412,    .26040,    .34592 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
     +     .23459,    .13644,   5.63957,    .34129,    .15755,
     +     .06832,    .27235,    .35751,
     +     .23798,    .13825,   5.76373,    .35034,    .16754,
     +     .07967,    .28202,    .36687,
     +     .24200,    .14040,   5.89618,    .36100,    .17931,
     +     .09301,    .29342,    .37789,
     +     .24550,    .14225,   6.00058,    .37018,    .18955,
     +     .10469,    .30326,    .38738,
     +     .24867,    .14391,   6.08633,    .37838,    .19876,
     +     .11522,    .31207,    .39586,
     +     .25259,    .14595,   6.17688,    .38832,    .20994,
     +     .12787,    .32275,    .40615,
     +     .25622,    .14780,   6.24960,    .39733,    .22015,
     +     .13950,    .33247,    .41548,
     +     .25956,    .14951,   6.30884,    .40554,    .22954,
     +     .15027,    .34132,    .42397 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
     +     .26279,    .15114,   6.35311,    .41324,    .23838,
     +     .16029,    .34967,    .43194,
     +     .26591,    .15270,   6.38963,    .42054,    .24684,
     +     .16997,    .35759,    .43950,
     +     .26881,    .15415,   6.41706,    .42718,    .25461,
     +     .17886,    .36483,    .44639,
     +     .27147,    .15545,   6.43413,    .43311,    .26156,
     +     .18682,    .37130,    .45252,
     +     .27413,    .15675,   6.44827,    .43893,    .26847,
     +     .19478,    .37766,    .45855,
     +     .27665,    .15798,   6.45325,    .44425,    .27482,
     +     .20207,    .38351,    .46407,
     +     .27904,    .15913,   6.45673,    .44923,    .28084,
     +     .20904,    .38900,    .46924,
     +     .28122,    .16017,   6.45255,    .45359,    .28615,
     +     .21517,    .39384,    .47377 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
     +     .28340,    .16121,   6.44720,    .45793,    .29148,
     +     .22136,    .39865,    .47827,
     +     .28551,    .16220,   6.43697,    .46194,    .29645,
     +     .22714,    .40313,    .48244,
     +     .28750,    .16313,   6.42484,    .46562,    .30106,
     +     .23252,    .40724,    .48626,
     +     .28935,    .16399,   6.41168,    .46901,    .30535,
     +     .23755,    .41105,    .48979,
     +     .29117,    .16483,   6.39372,    .47217,    .30940,
     +     .24229,    .41463,    .49308 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
     +     .20667,    .12203,   1.33559,    .17284,    .00000,
     +     .00000,    .09878,    .18591,
     +     .21053,    .12446,   1.64406,    .17823,    .00000,
     +     .00000,    .10480,    .19178,
     +     .21637,    .12801,   2.06639,    .18694,    .00542,
     +     .00000,    .11446,    .20119,
     +     .22072,    .13060,   2.35877,    .19369,    .01465,
     +     .00000,    .12193,    .20843,
     +     .22528,    .13327,   2.64312,    .20113,    .02256,
     +     .00000,    .13012,    .21640,
     +     .22917,    .13553,   2.86965,    .20772,    .02967,
     +     .00000,    .13735,    .22341,
     +     .23292,    .13766,   3.07631,    .21417,    .03692,
     +     .00000,    .14442,    .23027,
     +     .23688,    .13991,   3.28381,    .22112,    .04484,
     +     .00000,    .15203,    .23765 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
     +     .24028,    .14180,   3.44895,    .22719,    .05157,
     +     .00000,    .15867,    .24407,
     +     .24353,    .14360,   3.59828,    .23305,    .05814,
     +     .00000,    .16509,    .25027,
     +     .24610,    .14502,   3.71250,    .23773,    .06348,
     +     .00000,    .17021,    .25521,
     +     .25147,    .14793,   3.94146,    .24763,    .07466,
     +     .00000,    .18101,    .26565,
     +     .25604,    .15036,   4.10228,    .25592,    .08410,
     +     .00218,    .19012,    .27439,
     +     .26105,    .15299,   4.25345,    .26503,    .09455,
     +     .01620,    .20011,    .28397,
     +     .26613,    .15562,   4.38912,    .27421,    .10518,
     +     .02878,    .21021,    .29364,
     +     .27063,    .15793,   4.49418,    .28227,    .11456,
     +     .03992,    .21908,    .30210 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
     +     .27508,    .16016,   4.58469,    .29012,    .12380,
     +     .05084,    .22776,    .31035,
     +     .27866,    .16195,   4.64739,    .29636,    .13119,
     +     .05946,    .23468,    .31691,
     +     .28290,    .16404,   4.70962,    .30359,    .13981,
     +     .06951,    .24271,    .32451,
     +     .28656,    .16582,   4.75498,    .30973,    .14721,
     +     .07821,    .24956,    .33095,
     +     .28984,    .16741,   4.78915,    .31514,    .15381,
     +     .08599,    .25561,    .33665,
     +     .29387,    .16931,   4.81912,    .32158,    .16172,
     +     .09524,    .26286,    .34339,
     +     .29754,    .17104,   4.83855,    .32731,    .16887,
     +     .10366,    .26933,    .34942,
     +     .30092,    .17260,   4.85065,    .33244,    .17536,
     +     .11137,    .27517,    .35482 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
     +     .30414,    .17408,   4.85247,    .33715,    .18138,
     +     .11847,    .28056,    .35977,
     +     .30723,    .17547,   4.84969,    .34154,    .18711,
     +     .12529,    .28561,    .36438,
     +     .31008,    .17674,   4.84231,    .34547,    .19230,
     +     .13148,    .29016,    .36852,
     +     .31266,    .17788,   4.82980,    .34888,    .19689,
     +     .13697,    .29415,    .37210,
     +     .31523,    .17900,   4.81555,    .35220,    .20141,
     +     .14242,    .29804,    .37559,
     +     .31764,    .18003,   4.79554,    .35513,    .20551,
     +     .14737,    .30154,    .37868,
     +     .31992,    .18100,   4.77596,    .35785,    .20937,
     +     .15206,    .30478,    .38156,
     +     .32197,    .18185,   4.75286,    .36014,    .21273,
     +     .15615,    .30758,    .38398 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
     +     .32403,    .18269,   4.72914,    .36240,    .21607,
     +     .16025,    .31033,    .38636,
     +     .32597,    .18349,   4.70266,    .36441,    .21914,
     +     .16405,    .31283,    .38849,
     +     .32779,    .18423,   4.67609,    .36623,    .22196,
     +     .16755,    .31509,    .39040,
     +     .32949,    .18491,   4.65007,    .36786,    .22456,
     +     .17080,    .31716,    .39212,
     +     .33112,    .18555,   4.62099,    .36930,    .22698,
     +     .17383,    .31904,    .39367 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
     +     .25155,    .15024,   1.51242,    .15445,    .00000,
     +     .00000,    .08719,    .17248,
     +     .25639,    .15309,   1.74950,    .15868,    .00000,
     +     .00000,    .09215,    .17731,
     +     .26350,    .15719,   2.07040,    .16542,    .00007,
     +     .00000,    .10001,    .18493,
     +     .26871,    .16006,   2.27742,    .17056,    .00784,
     +     .00000,    .10599,    .19069,
     +     .27407,    .16299,   2.47242,    .17615,    .01439,
     +     .00000,    .11244,    .19685,
     +     .27862,    .16542,   2.62254,    .18100,    .02018,
     +     .00000,    .11805,    .20222,
     +     .28293,    .16770,   2.75553,    .18570,    .02600,
     +     .00000,    .12346,    .20737,
     +     .28744,    .17004,   2.88514,    .19069,    .03227,
     +     .00000,    .12922,    .21282 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
     +     .29129,    .17200,   2.98479,    .19497,    .03753,
     +     .00000,    .13415,    .21750,
     +     .29493,    .17383,   3.07214,    .19905,    .04260,
     +     .00000,    .13886,    .22194,
     +     .29778,    .17527,   3.13747,    .20227,    .04669,
     +     .00000,    .14257,    .22544,
     +     .30368,    .17816,   3.26437,    .20898,    .05512,
     +     .00000,    .15033,    .23268,
     +     .30856,    .18050,   3.34944,    .21447,    .06209,
     +    -.00132,    .15669,    .23859,
     +     .31386,    .18298,   3.41622,    .22033,    .06969,
     +     .00919,    .16356,    .24492,
     +     .31918,    .18543,   3.46979,    .22611,    .07730,
     +     .01850,    .17036,    .25112,
     +     .32379,    .18750,   3.50544,    .23104,    .08389,
     +     .02660,    .17620,    .25641 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
     +     .32829,    .18950,   3.53060,    .23573,    .09027,
     +     .03443,    .18179,    .26144,
     +     .33188,    .19105,   3.54324,    .23936,    .09530,
     +     .04053,    .18615,    .26532,
     +     .33604,    .19282,   3.54942,    .24346,    .10107,
     +     .04756,    .19112,    .26970,
     +     .33960,    .19429,   3.54874,    .24683,    .10596,
     +     .05357,    .19526,    .27331,
     +     .34275,    .19557,   3.54357,    .24974,    .11026,
     +     .05888,    .19887,    .27641,
     +     .34655,    .19708,   3.52899,    .25305,    .11531,
     +     .06510,    .20304,    .27996,
     +     .34996,    .19840,   3.51020,    .25591,    .11981,
     +     .07069,    .20669,    .28301,
     +     .35304,    .19958,   3.48924,    .25840,    .12384,
     +     .07575,    .20991,    .28565 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
     +     .35594,    .20064,   3.46243,    .26054,    .12749,
     +     .08034,    .21278,    .28794,
     +     .35867,    .20162,   3.43399,    .26247,    .13092,
     +     .08470,    .21541,    .28999,
     +     .36117,    .20247,   3.40474,    .26411,    .13398,
     +     .08861,    .21770,    .29173,
     +     .36336,    .20322,   3.37425,    .26545,    .13664,
     +     .09203,    .21964,    .29315,
     +     .36552,    .20393,   3.34315,    .26670,    .13922,
     +     .09540,    .22148,    .29447,
     +     .36751,    .20455,   3.30947,    .26769,    .14151,
     +     .09840,    .22306,    .29553,
     +     .36937,    .20511,   3.27764,    .26860,    .14364,
     +     .10123,    .22450,    .29648,
     +     .37101,    .20559,   3.24519,    .26924,    .14545,
     +     .10366,    .22566,    .29717 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
     +     .37262,    .20606,   3.21265,    .26985,    .14723,
     +     .10608,    .22677,    .29781,
     +     .37412,    .20645,   3.17919,    .27031,    .14883,
     +     .10828,    .22772,    .29828,
     +     .37550,    .20681,   3.14691,    .27067,    .15027,
     +     .11029,    .22855,    .29866,
     +     .37676,    .20713,   3.11615,    .27096,    .15159,
     +     .11215,    .22927,    .29895,
     +     .37795,    .20740,   3.08376,    .27110,    .15277,
     +     .11385,    .22986,    .29910 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
     +     .28906,    .17315,   1.61443,    .14006,    .00000,
     +     .00000,    .07829,    .16229,
     +     .29475,    .17627,   1.79601,    .14351,    .00000,
     +     .00000,    .08264,    .16652,
     +     .30295,    .18063,   2.04135,    .14899,   -.00354,
     +     .00000,    .08938,    .17297,
     +     .30880,    .18364,   2.18817,    .15306,    .00329,
     +     .00000,    .09442,    .17772,
     +     .31477,    .18663,   2.32211,    .15742,    .00899,
     +     .00000,    .09976,    .18272,
     +     .31973,    .18907,   2.42165,    .16116,    .01395,
     +     .00000,    .10432,    .18696,
     +     .32441,    .19132,   2.50715,    .16471,    .01887,
     +     .00000,    .10867,    .19097,
     +     .32928,    .19361,   2.58779,    .16843,    .02411,
     +     .00000,    .11324,    .19514 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
     +     .33334,    .19548,   2.64720,    .17157,    .02845,
     +     .00000,    .11710,    .19865,
     +     .33714,    .19722,   2.69723,    .17454,    .03258,
     +     .00000,    .12074,    .20195,
     +     .34012,    .19855,   2.73356,    .17684,    .03589,
     +     .00000,    .12360,    .20451,
     +     .34618,    .20121,   2.80119,    .18156,    .04265,
     +     .00000,    .12945,    .20972,
     +     .35111,    .20329,   2.84338,    .18531,    .04815,
     +    -.00306,    .13414,    .21383,
     +     .35637,    .20544,   2.86434,    .18923,    .05406,
     +     .00532,    .13913,    .21811,
     +     .36155,    .20749,   2.87462,    .19298,    .05988,
     +     .01264,    .14396,    .22218,
     +     .36599,    .20920,   2.87486,    .19609,    .06486,
     +     .01895,    .14801,    .22555 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
     +     .37024,    .21077,   2.86777,    .19895,    .06961,
     +     .02497,    .15182,    .22863,
     +     .37357,    .21197,   2.85625,    .20110,    .07331,
     +     .02962,    .15473,    .23094,
     +     .37738,    .21327,   2.83640,    .20343,    .07749,
     +     .03490,    .15797,    .23342,
     +     .38058,    .21433,   2.81503,    .20528,    .08099,
     +     .03939,    .16061,    .23541,
     +     .38337,    .21523,   2.79267,    .20681,    .08404,
     +     .04331,    .16285,    .23703,
     +     .38664,    .21622,   2.75936,    .20846,    .08756,
     +     .04785,    .16538,    .23875,
     +     .38954,    .21705,   2.72533,    .20979,    .09065,
     +     .05190,    .16751,    .24014,
     +     .39212,    .21774,   2.69186,    .21087,    .09338,
     +     .05552,    .16933,    .24126 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
     +     .39446,    .21832,   2.65497,    .21169,    .09581,
     +     .05876,    .17089,    .24210,
     +     .39663,    .21881,   2.61799,    .21236,    .09806,
     +     .06181,    .17225,    .24277,
     +     .39856,    .21921,   2.58200,    .21286,    .10004,
     +     .06453,    .17339,    .24326,
     +     .40022,    .21951,   2.54660,    .21317,    .10173,
     +     .06688,    .17430,    .24353,
     +     .40182,    .21978,   2.51120,    .21341,    .10335,
     +     .06917,    .17513,    .24373,
     +     .40323,    .21995,   2.47482,    .21347,    .10475,
     +     .07119,    .17576,    .24374,
     +     .40454,    .22010,   2.44080,    .21349,    .10603,
     +     .07307,    .17631,    .24372,
     +     .40563,    .22017,   2.40742,    .21336,    .10710,
     +     .07467,    .17669,    .24353 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
     +     .40670,    .22022,   2.37426,    .21322,    .10814,
     +     .07625,    .17703,    .24331,
     +     .40763,    .22022,   2.34095,    .21296,    .10904,
     +     .07767,    .17725,    .24298,
     +     .40848,    .22019,   2.30928,    .21266,    .10985,
     +     .07896,    .17740,    .24260,
     +     .40923,    .22014,   2.27944,    .21233,    .11057,
     +     .08013,    .17750,    .24220,
     +     .40988,    .22004,   2.24873,    .21191,    .11118,
     +     .08118,    .17749,    .24168 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
     +     .35315,    .20948,   1.66939,    .11793,    .00000,
     +     .00000,    .06581,    .14860,
     +     .35997,    .21273,   1.77198,    .12038,    .00000,
     +     .00000,    .06931,    .15176,
     +     .36943,    .21706,   1.91301,    .12408,   -.00759,
     +     .00000,    .07451,    .15632,
     +     .37592,    .21986,   1.98162,    .12672,   -.00203,
     +     .00000,    .07825,    .15949,
     +     .38237,    .22256,   2.03894,    .12944,    .00256,
     +     .00000,    .08209,    .16268,
     +     .38762,    .22464,   2.07696,    .13168,    .00645,
     +     .00000,    .08527,    .16527,
     +     .39245,    .22651,   2.10628,    .13375,    .01022,
     +     .00000,    .08823,    .16763,
     +     .39732,    .22833,   2.13048,    .13585,    .01415,
     +     .00000,    .09125,    .16998 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
     +     .40131,    .22978,   2.14453,    .13757,    .01734,
     +     .00000,    .09374,    .17188,
     +     .40497,    .23106,   2.15345,    .13914,    .02035,
     +     .00000,    .09603,    .17360,
     +     .40779,    .23200,   2.15848,    .14033,    .02271,
     +     .00000,    .09780,    .17490,
     +     .41338,    .23378,   2.16352,    .14266,    .02745,
     +     .00000,    .10130,    .17738,
     +     .41768,    .23503,   2.16175,    .14438,    .03121,
     +    -.00439,    .10401,    .17916,
     +     .42211,    .23620,   2.13848,    .14605,    .03517,
     +     .00140,    .10676,    .18087,
     +     .42629,    .23719,   2.10875,    .14751,    .03897,
     +     .00639,    .10931,    .18231,
     +     .42972,    .23790,   2.07763,    .14860,    .04214,
     +     .01060,    .11134,    .18333 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
     +     .43287,    .23843,   2.04311,    .14949,    .04510,
     +     .01455,    .11316,    .18411,
     +     .43521,    .23875,   2.01224,    .15006,    .04735,
     +     .01756,    .11447,    .18457,
     +     .43773,    .23900,   1.97258,    .15055,    .04984,
     +     .02091,    .11584,    .18489,
     +     .43974,    .23911,   1.93641,    .15085,    .05188,
     +     .02372,    .11688,    .18500,
     +     .44140,    .23911,   1.90259,    .15099,    .05361,
     +     .02614,    .11771,    .18497,
     +     .44320,    .23895,   1.85813,    .15098,    .05558,
     +     .02890,    .11852,    .18471,
     +     .44466,    .23869,   1.81602,    .15082,    .05724,
     +     .03130,    .11911,    .18432,
     +     .44584,    .23838,   1.77674,    .15058,    .05868,
     +     .03342,    .11956,    .18383 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
     +     .44674,    .23794,   1.73659,    .15017,    .05991,
     +     .03528,    .11982,    .18317,
     +     .44748,    .23745,   1.69776,    .14969,    .06102,
     +     .03700,    .11998,    .18243,
     +     .44805,    .23691,   1.66126,    .14916,    .06198,
     +     .03851,    .12003,    .18164,
     +     .44838,    .23634,   1.62680,    .14856,    .06275,
     +     .03979,    .11997,    .18078,
     +     .44865,    .23573,   1.59294,    .14792,    .06347,
     +     .04102,    .11986,    .17989,
     +     .44872,    .23503,   1.55942,    .14720,    .06407,
     +     .04208,    .11965,    .17890,
     +     .44875,    .23437,   1.52840,    .14651,    .06460,
     +     .04306,    .11943,    .17795,
     +     .44862,    .23367,   1.49895,    .14576,    .06501,
     +     .04387,    .11912,    .17696 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
     +     .44846,    .23295,   1.46995,    .14500,    .06540,
     +     .04466,    .11880,    .17594,
     +     .44817,    .23220,   1.44151,    .14419,    .06570,
     +     .04535,    .11840,    .17489,
     +     .44783,    .23145,   1.41482,    .14340,    .06595,
     +     .04596,    .11800,    .17384,
     +     .44746,    .23072,   1.38995,    .14262,    .06617,
     +     .04652,    .11759,    .17283,
     +     .44699,    .22994,   1.36487,    .14179,    .06633,
     +     .04700,    .11713,    .17176 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
     +     .40692,    .23711,   1.61787,    .10063,    .00000,
     +     .00000,    .05701,    .13812,
     +     .41429,    .24007,   1.66958,    .10232,    .00000,
     +     .00000,    .05984,    .14024,
     +     .42419,    .24376,   1.74446,    .10478,   -.00918,
     +     .00000,    .06391,    .14318,
     +     .43067,    .24599,   1.76732,    .10647,   -.00455,
     +     .00000,    .06670,    .14506,
     +     .43691,    .24800,   1.78127,    .10814,   -.00072,
     +     .00000,    .06949,    .14685,
     +     .44188,    .24946,   1.78566,    .10944,    .00244,
     +     .00000,    .07175,    .14819,
     +     .44630,    .25067,   1.78521,    .11059,    .00545,
     +     .00000,    .07378,    .14935,
     +     .45065,    .25178,   1.78037,    .11173,    .00855,
     +     .00000,    .07581,    .15045 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
     +     .45409,    .25257,   1.77188,    .11261,    .01104,
     +     .00000,    .07744,    .15125,
     +     .45717,    .25321,   1.76095,    .11337,    .01334,
     +     .00000,    .07891,    .15189,
     +     .45946,    .25364,   1.75117,    .11393,    .01512,
     +     .00000,    .08001,    .15233,
     +     .46383,    .25428,   1.72765,    .11493,    .01865,
     +     .00000,    .08213,    .15305,
     +     .46696,    .25451,   1.70643,    .11556,    .02141,
     +    -.00457,    .08369,    .15338,
     +     .46997,    .25452,   1.66585,    .11606,    .02426,
     +    -.00031,    .08519,    .15351,
     +     .47257,    .25429,   1.62170,    .11636,    .02693,
     +     .00332,    .08648,    .15340,
     +     .47451,    .25389,   1.58029,    .11645,    .02912,
     +     .00634,    .08744,    .15306 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
     +     .47608,    .25332,   1.53777,    .11639,    .03112,
     +     .00913,    .08822,    .15255,
     +     .47710,    .25271,   1.50197,    .11622,    .03263,
     +     .01124,    .08871,    .15198,
     +     .47797,    .25182,   1.45828,    .11586,    .03425,
     +     .01356,    .08913,    .15115,
     +     .47850,    .25094,   1.41991,    .11545,    .03556,
     +     .01547,    .08939,    .15030,
     +     .47877,    .25006,   1.38511,    .11501,    .03664,
     +     .01709,    .08953,    .14944,
     +     .47878,    .24878,   1.34097,    .11429,    .03785,
     +     .01892,    .08954,    .14819,
     +     .47853,    .24749,   1.30028,    .11354,    .03884,
     +     .02050,    .08945,    .14693,
     +     .47812,    .24620,   1.26309,    .11277,    .03967,
     +     .02186,    .08929,    .14569 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
     +     .47742,    .24482,   1.22614,    .11192,    .04037,
     +     .02305,    .08899,    .14433,
     +     .47659,    .24342,   1.19099,    .11103,    .04097,
     +     .02412,    .08864,    .14296,
     +     .47565,    .24203,   1.15849,    .11013,    .04147,
     +     .02505,    .08825,    .14161,
     +     .47459,    .24066,   1.12833,    .10925,    .04186,
     +     .02584,    .08782,    .14029,
     +     .47346,    .23927,   1.09895,    .10834,    .04221,
     +     .02658,    .08735,    .13895,
     +     .47217,    .23781,   1.07042,    .10738,    .04246,
     +     .02719,    .08682,    .13757,
     +     .47092,    .23644,   1.04420,    .10647,    .04269,
     +     .02775,    .08631,    .13627,
     +     .46955,    .23508,   1.01966,    .10556,    .04284,
     +     .02822,    .08578,    .13498 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
     +     .46815,    .23371,    .99567,    .10466,    .04297,
     +     .02866,    .08523,    .13369,
     +     .46665,    .23232,    .97240,    .10373,    .04306,
     +     .02903,    .08465,    .13238,
     +     .46517,    .23097,    .95074,    .10284,    .04311,
     +     .02936,    .08408,    .13113,
     +     .46372,    .22970,    .93069,    .10198,    .04315,
     +     .02965,    .08353,    .12993,
     +     .46215,    .22835,    .91068,    .10109,    .04313,
     +     .02989,    .08295,    .12870 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
     +     .45354,    .25867,   1.51599,    .08637,    .00000,
     +     .00000,    .05019,    .12877,
     +     .46102,    .26101,   1.53458,    .08748,    .00000,
     +     .00000,    .05242,    .12997,
     +     .47058,    .26374,   1.56677,    .08906,   -.00957,
     +     .00000,    .05553,    .13136,
     +     .47657,    .26514,   1.56223,    .09007,   -.00565,
     +     .00000,    .05761,    .13215,
     +     .48212,    .26625,   1.55094,    .09100,   -.00243,
     +     .00000,    .05962,    .13276,
     +     .48628,    .26694,   1.53636,    .09171,    .00020,
     +     .00000,    .06116,    .13315,
     +     .48988,    .26738,   1.51967,    .09229,    .00266,
     +     .00000,    .06253,    .13337,
     +     .49329,    .26763,   1.49952,    .09279,    .00516,
     +     .00000,    .06388,    .13348 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
     +     .49586,    .26765,   1.47953,    .09314,    .00713,
     +     .00000,    .06491,    .13346,
     +     .49803,    .26753,   1.45877,    .09340,    .00896,
     +     .00000,    .06581,    .13334,
     +     .49958,    .26736,   1.44190,    .09358,    .01035,
     +     .00000,    .06648,    .13318,
     +     .50227,    .26675,   1.40503,    .09380,    .01309,
     +     .00000,    .06770,    .13269,
     +     .50387,    .26588,   1.37534,    .09381,    .01518,
     +    -.00437,    .06852,    .13206,
     +     .50505,    .26470,   1.32878,    .09366,    .01731,
     +    -.00112,    .06924,    .13115,
     +     .50574,    .26325,   1.28045,    .09333,    .01928,
     +     .00163,    .06977,    .13003,
     +     .50591,    .26172,   1.23688,    .09291,    .02087,
     +     .00389,    .07009,    .12888 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
     +     .50569,    .26003,   1.19353,    .09236,    .02231,
     +     .00596,    .07027,    .12760,
     +     .50515,    .25855,   1.15802,    .09183,    .02335,
     +     .00749,    .07029,    .12644,
     +     .50419,    .25660,   1.11564,    .09109,    .02448,
     +     .00917,    .07022,    .12495,
     +     .50309,    .25478,   1.07919,    .09036,    .02536,
     +     .01054,    .07006,    .12356,
     +     .50187,    .25306,   1.04663,    .08964,    .02607,
     +     .01168,    .06984,    .12225,
     +     .49998,    .25075,   1.00613,    .08865,    .02685,
     +     .01296,    .06945,    .12049,
     +     .49797,    .24851,    .96938,    .08767,    .02749,
     +     .01406,    .06901,    .11882,
     +     .49594,    .24637,    .93619,    .08671,    .02799,
     +     .01498,    .06855,    .11721 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
     +     .49360,    .24416,    .90376,    .08569,    .02841,
     +     .01579,    .06801,    .11554,
     +     .49120,    .24195,    .87320,    .08468,    .02875,
     +     .01651,    .06745,    .11390,
     +     .48882,    .23981,    .84526,    .08370,    .02902,
     +     .01712,    .06688,    .11234,
     +     .48639,    .23777,    .81962,    .08274,    .02921,
     +     .01761,    .06629,    .11084,
     +     .48392,    .23572,    .79481,    .08178,    .02938,
     +     .01809,    .06571,    .10932,
     +     .48128,    .23363,    .77098,    .08080,    .02948,
     +     .01848,    .06508,    .10782,
     +     .47878,    .23167,    .74920,    .07987,    .02957,
     +     .01883,    .06447,    .10642,
     +     .47625,    .22978,    .72901,    .07898,    .02960,
     +     .01911,    .06387,    .10504 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
     +     .47371,    .22789,    .70936,    .07808,    .02962,
     +     .01937,    .06327,    .10368,
     +     .47109,    .22597,    .69044,    .07718,    .02961,
     +     .01958,    .06265,    .10234,
     +     .46856,    .22415,    .67292,    .07631,    .02959,
     +     .01977,    .06204,    .10107,
     +     .46615,    .22241,    .65680,    .07549,    .02955,
     +     .01993,    .06146,    .09987,
     +     .46359,    .22064,    .64083,    .07465,    .02948,
     +     .02005,    .06087,    .09863 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
     +     .50329,    .27821,   1.36492,    .07142,    .00000,
     +     .00000,    .04303,    .11684,
     +     .50999,    .27954,   1.35799,    .07209,    .00000,
     +     .00000,    .04465,    .11691,
     +     .51809,    .28060,   1.35707,    .07294,   -.00926,
     +     .00000,    .04681,    .11677,
     +     .52275,    .28078,   1.33303,    .07340,   -.00605,
     +     .00000,    .04817,    .11650,
     +     .52669,    .28058,   1.30441,    .07381,   -.00340,
     +     .00000,    .04947,    .11601,
     +     .52942,    .28013,   1.27732,    .07404,   -.00129,
     +     .00000,    .05044,    .11545,
     +     .53153,    .27949,   1.25027,    .07419,    .00066,
     +     .00000,    .05125,    .11483,
     +     .53330,    .27859,   1.22073,    .07427,    .00262,
     +     .00000,    .05199,    .11410 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
     +     .53437,    .27762,   1.19405,    .07425,    .00416,
     +     .00000,    .05253,    .11338,
     +     .53510,    .27654,   1.16791,    .07418,    .00555,
     +     .00000,    .05297,    .11262,
     +     .53550,    .27563,   1.14730,    .07408,    .00661,
     +     .00000,    .05329,    .11201,
     +     .53565,    .27344,   1.10405,    .07378,    .00866,
     +     .00000,    .05381,    .11053,
     +     .53499,    .27127,   1.07047,    .07337,    .01021,
     +    -.00387,    .05406,    .10916,
     +     .53367,    .26864,   1.02313,    .07281,    .01175,
     +    -.00147,    .05419,    .10751,
     +     .53177,    .26570,    .97543,    .07212,    .01315,
     +     .00053,    .05421,    .10568,
     +     .52957,    .26292,    .93360,    .07138,    .01426,
     +     .00216,    .05409,    .10397 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
     +     .52695,    .26002,    .89293,    .07059,    .01523,
     +     .00362,    .05384,    .10219,
     +     .52450,    .25750,    .86023,    .06987,    .01594,
     +     .00470,    .05357,    .10067,
     +     .52122,    .25437,    .82195,    .06893,    .01668,
     +     .00587,    .05316,    .09879,
     +     .51809,    .25155,    .78951,    .06806,    .01724,
     +     .00681,    .05274,    .09712,
     +     .51503,    .24894,    .76092,    .06723,    .01770,
     +     .00760,    .05232,    .09557,
     +     .51086,    .24555,    .72593,    .06616,    .01817,
     +     .00845,    .05171,    .09357,
     +     .50675,    .24234,    .69459,    .06511,    .01854,
     +     .00917,    .05110,    .09170,
     +     .50277,    .23932,    .66662,    .06412,    .01884,
     +     .00978,    .05049,    .08995 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
     +     .49855,    .23625,    .63966,    .06310,    .01904,
     +     .01029,    .04985,    .08819,
     +     .49434,    .23324,    .61451,    .06210,    .01921,
     +     .01074,    .04919,    .08649,
     +     .49028,    .23040,    .59173,    .06113,    .01934,
     +     .01112,    .04856,    .08488,
     +     .48632,    .22769,    .57103,    .06021,    .01942,
     +     .01143,    .04793,    .08338,
     +     .48233,    .22500,    .55111,    .05930,    .01947,
     +     .01171,    .04731,    .08188,
     +     .47826,    .22231,    .53220,    .05838,    .01949,
     +     .01194,    .04666,    .08041,
     +     .47442,    .21979,    .51501,    .05752,    .01949,
     +     .01214,    .04607,    .07904,
     +     .47064,    .21738,    .49922,    .05671,    .01946,
     +     .01229,    .04548,    .07773 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
     +     .46685,    .21498,    .48390,    .05590,    .01943,
     +     .01244,    .04490,    .07645,
     +     .46305,    .21261,    .46929,    .05509,    .01937,
     +     .01255,    .04432,    .07518,
     +     .45941,    .21035,    .45583,    .05432,    .01930,
     +     .01264,    .04374,    .07399,
     +     .45596,    .20821,    .44348,    .05360,    .01924,
     +     .01272,    .04321,    .07287,
     +     .45240,    .20605,    .43134,    .05286,    .01915,
     +     .01278,    .04266,    .07175 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
     +     .54494,    .29137,   1.21121,    .05917,    .00000,
     +     .00000,    .03677,    .10437,
     +     .55019,    .29143,   1.18951,    .05953,    .00000,
     +     .00000,    .03793,    .10356,
     +     .55588,    .29060,   1.16916,    .05988,   -.00860,
     +     .00000,    .03939,    .10228,
     +     .55862,    .28940,   1.13495,    .06007,   -.00594,
     +     .00000,    .04030,    .10122,
     +     .56048,    .28778,   1.09780,    .06014,   -.00375,
     +     .00000,    .04109,    .09998,
     +     .56135,    .28611,   1.06498,    .06010,   -.00202,
     +     .00000,    .04165,    .09882,
     +     .56165,    .28431,   1.03348,    .06000,   -.00044,
     +     .00000,    .04210,    .09768,
     +     .56146,    .28223,   1.00029,    .05981,    .00112,
     +     .00000,    .04247,    .09644 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
     +     .56084,    .28027,    .97136,    .05959,    .00234,
     +     .00000,    .04270,    .09531,
     +     .55989,    .27829,    .94371,    .05934,    .00344,
     +     .00000,    .04286,    .09416,
     +     .55895,    .27665,    .92225,    .05910,    .00425,
     +     .00000,    .04296,    .09326,
     +     .55632,    .27297,    .87801,    .05852,    .00584,
     +     .00000,    .04302,    .09130,
     +     .55325,    .26959,    .84435,    .05796,    .00700,
     +    -.00335,    .04297,    .08950,
     +     .54931,    .26565,    .79948,    .05722,    .00815,
     +    -.00154,    .04281,    .08747,
     +     .54470,    .26141,    .75519,    .05634,    .00917,
     +    -.00004,    .04249,    .08537,
     +     .54011,    .25752,    .71699,    .05552,    .00997,
     +     .00116,    .04212,    .08343 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
     +     .53515,    .25354,    .68040,    .05464,    .01066,
     +     .00224,    .04171,    .08144,
     +     .53083,    .25017,    .65140,    .05386,    .01115,
     +     .00301,    .04128,    .07983,
     +     .52529,    .24606,    .61788,    .05288,    .01165,
     +     .00386,    .04075,    .07785,
     +     .52022,    .24245,    .58980,    .05202,    .01203,
     +     .00452,    .04022,    .07611,
     +     .51545,    .23911,    .56529,    .05122,    .01232,
     +     .00508,    .03971,    .07453,
     +     .50918,    .23485,    .53562,    .05015,    .01262,
     +     .00566,    .03904,    .07255,
     +     .50316,    .23086,    .50937,    .04915,    .01284,
     +     .00615,    .03838,    .07070,
     +     .49745,    .22717,    .48612,    .04822,    .01301,
     +     .00657,    .03775,    .06901 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
     +     .49155,    .22346,    .46395,    .04726,    .01312,
     +     .00690,    .03710,    .06732,
     +     .48577,    .21986,    .44342,    .04633,    .01320,
     +     .00720,    .03647,    .06570,
     +     .48027,    .21647,    .42497,    .04546,    .01325,
     +     .00745,    .03586,    .06421,
     +     .47499,    .21328,    .40836,    .04463,    .01327,
     +     .00765,    .03526,    .06281,
     +     .46970,    .21013,    .39249,    .04381,    .01327,
     +     .00781,    .03466,    .06144,
     +     .46441,    .20703,    .37749,    .04302,    .01324,
     +     .00795,    .03407,    .06011,
     +     .45943,    .20413,    .36392,    .04227,    .01322,
     +     .00808,    .03353,    .05886,
     +     .45465,    .20137,    .35156,    .04154,    .01317,
     +     .00816,    .03300,    .05770 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
     +     .44988,    .19864,    .33963,    .04083,    .01311,
     +     .00824,    .03247,    .05655,
     +     .44512,    .19596,    .32830,    .04014,    .01304,
     +     .00830,    .03195,    .05543,
     +     .44058,    .19342,    .31790,    .03949,    .01297,
     +     .00835,    .03146,    .05438,
     +     .43631,    .19105,    .30842,    .03887,    .01290,
     +     .00838,    .03099,    .05339,
     +     .43195,    .18863,    .29914,    .03825,    .01281,
     +     .00840,    .03052,    .05243 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
     +     .57900,    .29911,   1.06667,    .04913,    .00000,
     +     .00000,    .03116,    .09146,
     +     .58223,    .29775,   1.03645,    .04931,    .00000,
     +     .00000,    .03194,    .09008,
     +     .58474,    .29499,   1.00474,    .04948,   -.00785,
     +     .00000,    .03291,    .08793,
     +     .58510,    .29242,    .96565,    .04946,   -.00562,
     +     .00000,    .03348,    .08636,
     +     .58448,    .28939,    .92483,    .04933,   -.00378,
     +     .00000,    .03391,    .08464,
     +     .58319,    .28655,    .88984,    .04915,   -.00234,
     +     .00000,    .03419,    .08317,
     +     .58144,    .28368,    .85702,    .04892,   -.00105,
     +     .00000,    .03439,    .08172,
     +     .57908,    .28051,    .82310,    .04862,    .00022,
     +     .00000,    .03452,    .08016 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
     +     .57660,    .27763,    .79419,    .04828,    .00119,
     +     .00000,    .03456,    .07882,
     +     .57389,    .27478,    .76693,    .04793,    .00207,
     +     .00000,    .03454,    .07752,
     +     .57158,    .27250,    .74599,    .04765,    .00272,
     +     .00000,    .03448,    .07648,
     +     .56604,    .26749,    .70336,    .04697,    .00395,
     +     .00000,    .03432,    .07427,
     +     .56061,    .26299,    .67136,    .04629,    .00485,
     +    -.00286,    .03407,    .07237,
     +     .55406,    .25794,    .63026,    .04548,    .00572,
     +    -.00148,    .03373,    .07025,
     +     .54682,    .25264,    .59026,    .04459,    .00649,
     +    -.00033,    .03327,    .06808,
     +     .53998,    .24780,    .55625,    .04374,    .00708,
     +     .00057,    .03280,    .06612 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
     +     .53286,    .24293,    .52404,    .04285,    .00758,
     +     .00138,    .03231,    .06418,
     +     .52674,    .23890,    .49879,    .04211,    .00793,
     +     .00196,    .03185,    .06257,
     +     .51914,    .23404,    .46995,    .04118,    .00828,
     +     .00258,    .03124,    .06067,
     +     .51233,    .22977,    .44600,    .04036,    .00854,
     +     .00306,    .03071,    .05903,
     +     .50607,    .22588,    .42528,    .03957,    .00873,
     +     .00345,    .03020,    .05757,
     +     .49795,    .22096,    .40044,    .03859,    .00892,
     +     .00387,    .02955,    .05571,
     +     .49027,    .21642,    .37863,    .03768,    .00906,
     +     .00422,    .02892,    .05402,
     +     .48306,    .21225,    .35948,    .03683,    .00915,
     +     .00450,    .02832,    .05248 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
     +     .47578,    .20806,    .34139,    .03597,    .00921,
     +     .00473,    .02771,    .05098,
     +     .46869,    .20404,    .32474,    .03515,    .00924,
     +     .00493,    .02711,    .04955,
     +     .46198,    .20031,    .30989,    .03437,    .00925,
     +     .00509,    .02655,    .04822,
     +     .45562,    .19683,    .29660,    .03366,    .00924,
     +     .00522,    .02604,    .04698,
     +     .44931,    .19338,    .28395,    .03295,    .00922,
     +     .00533,    .02552,    .04578,
     +     .44306,    .19000,    .27209,    .03225,    .00918,
     +     .00541,    .02500,    .04463,
     +     .43722,    .18686,    .26139,    .03160,    .00915,
     +     .00549,    .02452,    .04356,
     +     .43163,    .18390,    .25172,    .03099,    .00909,
     +     .00553,    .02406,    .04258 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
     +     .42607,    .18099,    .24242,    .03039,    .00903,
     +     .00558,    .02361,    .04161,
     +     .42059,    .17814,    .23364,    .02979,    .00897,
     +     .00561,    .02316,    .04066,
     +     .41541,    .17544,    .22563,    .02923,    .00890,
     +     .00564,    .02275,    .03977,
     +     .41054,    .17294,    .21833,    .02871,    .00883,
     +     .00565,    .02236,    .03895,
     +     .40558,    .17039,    .21124,    .02820,    .00876,
     +     .00565,    .02196,    .03814 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
     +     .60574,    .30222,    .93488,    .04098,    .00000,
     +     .00000,    .02605,    .07836,
     +     .60651,    .29940,    .89991,    .04104,    .00000,
     +     .00000,    .02659,    .07664,
     +     .60538,    .29461,    .86160,    .04103,   -.00707,
     +     .00000,    .02724,    .07410,
     +     .60311,    .29069,    .82054,    .04092,   -.00520,
     +     .00000,    .02757,    .07229,
     +     .59977,    .28630,    .77858,    .04068,   -.00363,
     +     .00000,    .02780,    .07041,
     +     .59619,    .28236,    .74352,    .04039,   -.00244,
     +     .00000,    .02790,    .06877,
     +     .59226,    .27849,    .71111,    .04008,   -.00137,
     +     .00000,    .02794,    .06723,
     +     .58766,    .27433,    .67807,    .03970,   -.00033,
     +     .00000,    .02790,    .06561 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
     +     .58326,    .27065,    .65025,    .03936,    .00046,
     +     .00000,    .02782,    .06417,
     +     .57877,    .26702,    .62434,    .03896,    .00116,
     +     .00000,    .02772,    .06285,
     +     .57511,    .26414,    .60463,    .03861,    .00169,
     +     .00000,    .02762,    .06180,
     +     .56675,    .25797,    .56483,    .03790,    .00266,
     +     .00000,    .02729,    .05960,
     +     .55898,    .25260,    .53525,    .03720,    .00337,
     +    -.00242,    .02697,    .05774,
     +     .54998,    .24658,    .49836,    .03637,    .00404,
     +    -.00134,    .02654,    .05572,
     +     .54035,    .24039,    .46295,    .03548,    .00462,
     +    -.00046,    .02605,    .05363,
     +     .53142,    .23484,    .43315,    .03465,    .00506,
     +     .00023,    .02556,    .05179 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
     +     .52229,    .22929,    .40523,    .03381,    .00542,
     +     .00083,    .02503,    .05001,
     +     .51461,    .22476,    .38358,    .03312,    .00568,
     +     .00127,    .02457,    .04853,
     +     .50524,    .21929,    .35903,    .03224,    .00594,
     +     .00173,    .02401,    .04681,
     +     .49696,    .21454,    .33885,    .03147,    .00611,
     +     .00208,    .02349,    .04535,
     +     .48937,    .21026,    .32149,    .03077,    .00624,
     +     .00236,    .02302,    .04404,
     +     .47967,    .20493,    .30087,    .02989,    .00636,
     +     .00267,    .02241,    .04238,
     +     .47061,    .20001,    .28291,    .02907,    .00644,
     +     .00292,    .02183,    .04092,
     +     .46222,    .19548,    .26727,    .02831,    .00650,
     +     .00312,    .02131,    .03959 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
     +     .45379,    .19105,    .25261,    .02755,    .00652,
     +     .00328,    .02077,    .03829,
     +     .44563,    .18680,    .23922,    .02684,    .00653,
     +     .00341,    .02025,    .03705,
     +     .43801,    .18284,    .22732,    .02618,    .00652,
     +     .00352,    .01977,    .03592,
     +     .43082,    .17917,    .21674,    .02557,    .00650,
     +     .00361,    .01931,    .03489,
     +     .42371,    .17557,    .20674,    .02496,    .00647,
     +     .00367,    .01886,    .03388,
     +     .41675,    .17207,    .19740,    .02436,    .00643,
     +     .00373,    .01843,    .03292,
     +     .41026,    .16882,    .18903,    .02381,    .00639,
     +     .00377,    .01802,    .03203,
     +     .40410,    .16576,    .18150,    .02328,    .00634,
     +     .00380,    .01764,    .03122 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
     +     .39800,    .16276,    .17430,    .02278,    .00628,
     +     .00382,    .01725,    .03041,
     +     .39202,    .15984,    .16752,    .02228,    .00622,
     +     .00384,    .01689,    .02963,
     +     .38637,    .15711,    .16136,    .02181,    .00617,
     +     .00385,    .01655,    .02890,
     +     .38108,    .15455,    .15576,    .02138,    .00611,
     +     .00386,    .01623,    .02824,
     +     .37572,    .15199,    .15032,    .02096,    .00605,
     +     .00385,    .01590,    .02758 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
     +     .62544,    .30117,    .81557,    .03435,    .00000,
     +     .00000,    .02148,    .06567,
     +     .62343,    .29693,    .77820,    .03431,    .00000,
     +     .00000,    .02188,    .06383,
     +     .61830,    .29019,    .73639,    .03414,   -.00634,
     +     .00000,    .02230,    .06125,
     +     .61327,    .28500,    .69516,    .03393,   -.00474,
     +     .00000,    .02250,    .05939,
     +     .60707,    .27936,    .65386,    .03363,   -.00342,
     +     .00000,    .02259,    .05748,
     +     .60110,    .27446,    .61979,    .03331,   -.00240,
     +     .00000,    .02261,    .05584,
     +     .59502,    .26970,    .58872,    .03295,   -.00151,
     +     .00000,    .02256,    .05432,
     +     .58823,    .26463,    .55743,    .03251,   -.00065,
     +     .00000,    .02244,    .05278 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
     +     .58202,    .26019,    .53139,    .03210,    .00000,
     +     .00000,    .02232,    .05144,
     +     .57578,    .25595,    .50739,    .03170,    .00057,
     +     .00000,    .02215,    .05015,
     +     .57073,    .25264,    .48923,    .03139,    .00098,
     +     .00000,    .02200,    .04915,
     +     .55969,    .24551,    .45300,    .03060,    .00176,
     +     .00000,    .02166,    .04710,
     +     .54984,    .23939,    .42620,    .02991,    .00233,
     +    -.00203,    .02130,    .04539,
     +     .53859,    .23267,    .39359,    .02914,    .00285,
     +    -.00119,    .02085,    .04352,
     +     .52676,    .22580,    .36265,    .02831,    .00330,
     +    -.00050,    .02035,    .04165,
     +     .51600,    .21970,    .33695,    .02754,    .00362,
     +     .00002,    .01987,    .04001 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
     +     .50515,    .21370,    .31307,    .02675,    .00390,
     +     .00049,    .01938,    .03841,
     +     .49615,    .20877,    .29473,    .02609,    .00408,
     +     .00081,    .01895,    .03713,
     +     .48525,    .20295,    .27409,    .02531,    .00425,
     +     .00115,    .01843,    .03566,
     +     .47572,    .19792,    .25724,    .02462,    .00438,
     +     .00142,    .01795,    .03440,
     +     .46708,    .19339,    .24286,    .02398,    .00447,
     +     .00163,    .01752,    .03328,
     +     .45615,    .18776,    .22595,    .02321,    .00455,
     +     .00185,    .01698,    .03190,
     +     .44602,    .18262,    .21135,    .02248,    .00461,
     +     .00203,    .01649,    .03065,
     +     .43667,    .17795,    .19870,    .02183,    .00463,
     +     .00217,    .01603,    .02954 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
     +     .42735,    .17340,    .18693,    .02120,    .00464,
     +     .00228,    .01556,    .02843,
     +     .41844,    .16902,    .17624,    .02057,    .00463,
     +     .00237,    .01511,    .02741,
     +     .41017,    .16494,    .16681,    .01998,    .00461,
     +     .00244,    .01471,    .02651,
     +     .40242,    .16121,    .15848,    .01943,    .00459,
     +     .00250,    .01432,    .02567,
     +     .39479,    .15759,    .15059,    .01891,    .00456,
     +     .00255,    .01395,    .02485,
     +     .38732,    .15406,    .14333,    .01841,    .00452,
     +     .00258,    .01359,    .02406,
     +     .38039,    .15081,    .13685,    .01794,    .00448,
     +     .00260,    .01324,    .02335,
     +     .37386,    .14776,    .13102,    .01751,    .00444,
     +     .00262,    .01292,    .02270 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
     +     .36740,    .14475,    .12545,    .01709,    .00440,
     +     .00264,    .01262,    .02205,
     +     .36109,    .14185,    .12024,    .01669,    .00434,
     +     .00264,    .01232,    .02144,
     +     .35514,    .13914,    .11553,    .01630,    .00430,
     +     .00264,    .01204,    .02087,
     +     .34961,    .13662,    .11127,    .01595,    .00425,
     +     .00264,    .01179,    .02034,
     +     .34407,    .13409,    .10716,    .01557,    .00420,
     +     .00264,    .01152,    .01982 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
     +     .63854,    .29627,    .70726,    .02857,    .00000,
     +     .00000,    .01760,    .05403,
     +     .63340,    .29078,    .66913,    .02857,    .00000,
     +     .00000,    .01787,    .05217,
     +     .62403,    .28233,    .62597,    .02839,   -.00564,
     +     .00000,    .01812,    .04962,
     +     .61604,    .27610,    .58585,    .02817,   -.00427,
     +     .00000,    .01820,    .04785,
     +     .60703,    .26939,    .54620,    .02782,   -.00313,
     +     .00000,    .01821,    .04606,
     +     .59872,    .26364,    .51400,    .02749,   -.00228,
     +     .00000,    .01814,    .04455,
     +     .59053,    .25814,    .48493,    .02713,   -.00153,
     +     .00000,    .01803,    .04314,
     +     .58159,    .25236,    .45590,    .02669,   -.00082,
     +     .00000,    .01788,    .04170 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
     +     .57358,    .24737,    .43208,    .02629,   -.00029,
     +     .00000,    .01772,    .04047,
     +     .56575,    .24262,    .41030,    .02590,    .00018,
     +     .00000,    .01753,    .03928,
     +     .55952,    .23890,    .39392,    .02559,    .00052,
     +     .00000,    .01739,    .03837,
     +     .54605,    .23105,    .36145,    .02486,    .00115,
     +     .00000,    .01699,    .03657,
     +     .53423,    .22442,    .33764,    .02421,    .00159,
     +    -.00168,    .01664,    .03505,
     +     .52103,    .21719,    .30926,    .02347,    .00200,
     +    -.00103,    .01620,    .03345,
     +     .50737,    .20986,    .28264,    .02269,    .00234,
     +    -.00050,    .01571,    .03183,
     +     .49507,    .20340,    .26074,    .02196,    .00259,
     +    -.00009,    .01529,    .03046 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
     +     .48281,    .19706,    .24063,    .02124,    .00279,
     +     .00026,    .01484,    .02911,
     +     .47275,    .19193,    .22522,    .02065,    .00293,
     +     .00051,    .01447,    .02803,
     +     .46065,    .18588,    .20812,    .01994,    .00306,
     +     .00077,    .01401,    .02676,
     +     .45015,    .18069,    .19427,    .01933,    .00315,
     +     .00097,    .01361,    .02571,
     +     .44067,    .17605,    .18255,    .01879,    .00321,
     +     .00112,    .01326,    .02478,
     +     .42884,    .17032,    .16884,    .01807,    .00327,
     +     .00129,    .01277,    .02367,
     +     .41791,    .16512,    .15709,    .01745,    .00329,
     +     .00141,    .01234,    .02265,
     +     .40789,    .16043,    .14698,    .01690,    .00331,
     +     .00151,    .01196,    .02173 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
     +     .39804,    .15582,    .13766,    .01633,    .00330,
     +     .00158,    .01157,    .02085,
     +     .38859,    .15145,    .12923,    .01580,    .00329,
     +     .00165,    .01120,    .02003,
     +     .37983,    .14746,    .12180,    .01531,    .00327,
     +     .00170,    .01087,    .01929,
     +     .37171,    .14377,    .11530,    .01488,    .00325,
     +     .00174,    .01056,    .01862,
     +     .36376,    .14017,    .10920,    .01446,    .00322,
     +     .00177,    .01025,    .01797,
     +     .35603,    .13669,    .10361,    .01401,    .00319,
     +     .00179,    .00995,    .01737,
     +     .34888,    .13348,    .09864,    .01360,    .00316,
     +     .00181,    .00968,    .01682,
     +     .34215,    .13053,    .09416,    .01324,    .00312,
     +     .00182,    .00943,    .01630 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
     +     .33553,    .12763,    .08991,    .01290,    .00309,
     +     .00183,    .00918,    .01579,
     +     .32909,    .12480,    .08597,    .01256,    .00305,
     +     .00183,    .00894,    .01530,
     +     .32306,    .12217,    .08241,    .01226,    .00300,
     +     .00182,    .00872,    .01484,
     +     .31746,    .11972,    .07920,    .01196,    .00297,
     +     .00183,    .00851,    .01444,
     +     .31182,    .11730,    .07611,    .01167,    .00293,
     +     .00182,    .00831,    .01405 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
     +     .64381,    .28939,    .60888,    .02475,    .00000,
     +     .00000,    .01364,    .04278,
     +     .63577,    .28256,    .57097,    .02455,    .00000,
     +     .00000,    .01388,    .04128,
     +     .62232,    .27250,    .52782,    .02425,   -.00497,
     +     .00000,    .01416,    .03899,
     +     .61170,    .26514,    .48961,    .02389,   -.00379,
     +     .00000,    .01424,    .03747,
     +     .60004,    .25745,    .45239,    .02345,   -.00282,
     +     .00000,    .01425,    .03592,
     +     .58961,    .25097,    .42252,    .02307,   -.00209,
     +     .00000,    .01422,    .03457,
     +     .57944,    .24486,    .39582,    .02268,   -.00146,
     +     .00000,    .01411,    .03336,
     +     .56856,    .23847,    .36947,    .02224,   -.00088,
     +     .00000,    .01395,    .03212 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
     +     .55906,    .23300,    .34802,    .02180,   -.00044,
     +     .00000,    .01380,    .03108,
     +     .54983,    .22782,    .32857,    .02136,   -.00006,
     +     .00000,    .01362,    .03014,
     +     .54254,    .22378,    .31408,    .02102,    .00021,
     +     .00000,    .01347,    .02940,
     +     .52696,    .21540,    .28551,    .02030,    .00071,
     +     .00000,    .01313,    .02785,
     +     .51353,    .20842,    .26477,    .01970,    .00107,
     +    -.00138,    .01281,    .02656,
     +     .49871,    .20081,    .24052,    .01896,    .00139,
     +    -.00087,    .01244,    .02522,
     +     .48352,    .19318,    .21793,    .01822,    .00165,
     +    -.00046,    .01202,    .02391,
     +     .46999,    .18652,    .19953,    .01758,    .00185,
     +    -.00014,    .01164,    .02274 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
     +     .45663,    .18005,    .18281,    .01694,    .00200,
     +     .00013,    .01124,    .02163,
     +     .44572,    .17481,    .17018,    .01641,    .00210,
     +     .00032,    .01092,    .02079,
     +     .43276,    .16868,    .15622,    .01577,    .00220,
     +     .00051,    .01054,    .01976,
     +     .42159,    .16346,    .14500,    .01522,    .00226,
     +     .00065,    .01021,    .01890,
     +     .41155,    .15884,    .13559,    .01473,    .00230,
     +     .00077,    .00989,    .01817,
     +     .39899,    .15316,    .12463,    .01417,    .00233,
     +     .00089,    .00950,    .01726,
     +     .38757,    .14798,    .11534,    .01360,    .00235,
     +     .00098,    .00916,    .01647,
     +     .37723,    .14331,    .10741,    .01307,    .00236,
     +     .00106,    .00884,    .01578 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
     +     .36703,    .13879,    .10012,    .01260,    .00235,
     +     .00111,    .00854,    .01507,
     +     .35733,    .13453,    .09359,    .01215,    .00234,
     +     .00116,    .00824,    .01443,
     +     .34837,    .13062,    .08790,    .01172,    .00232,
     +     .00119,    .00795,    .01387,
     +     .34005,    .12706,    .08291,    .01137,    .00230,
     +     .00122,    .00771,    .01336,
     +     .33193,    .12360,    .07826,    .01102,    .00227,
     +     .00123,    .00746,    .01284,
     +     .32410,    .12026,    .07401,    .01067,    .00224,
     +     .00124,    .00723,    .01235,
     +     .31690,    .11719,    .07022,    .01034,    .00222,
     +     .00125,    .00701,    .01192,
     +     .31016,    .11435,    .06689,    .01004,    .00219,
     +     .00126,    .00682,    .01151 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
     +     .30354,    .11156,    .06370,    .00976,    .00217,
     +     .00127,    .00663,    .01112,
     +     .29711,    .10887,    .06076,    .00948,    .00213,
     +     .00127,    .00645,    .01077,
     +     .29113,    .10636,    .05812,    .00922,    .00210,
     +     .00126,    .00626,    .01044,
     +     .28556,    .10406,    .05575,    .00897,    .00207,
     +     .00126,    .00609,    .01014,
     +     .27998,    .10176,    .05348,    .00874,    .00204,
     +     .00125,    .00594,    .00984 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
     +     .64372,    .27876,    .51765,    .02066,    .00000,
     +     .00000,    .01080,    .03356,
     +     .63253,    .27098,    .48110,    .02050,    .00000,
     +     .00000,    .01104,    .03217,
     +     .61498,    .25957,    .43952,    .02012,   -.00432,
     +     .00000,    .01123,    .03027,
     +     .60163,    .25151,    .40399,    .01980,   -.00332,
     +     .00000,    .01127,    .02894,
     +     .58736,    .24315,    .36975,    .01939,   -.00250,
     +     .00000,    .01121,    .02765,
     +     .57495,    .23606,    .34267,    .01896,   -.00188,
     +     .00000,    .01112,    .02658,
     +     .56302,    .22949,    .31868,    .01857,   -.00136,
     +     .00000,    .01103,    .02555,
     +     .55038,    .22271,    .29525,    .01815,   -.00088,
     +     .00000,    .01090,    .02448 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
     +     .53940,    .21698,    .27635,    .01777,   -.00052,
     +     .00000,    .01074,    .02360,
     +     .52891,    .21155,    .25941,    .01737,   -.00021,
     +     .00000,    .01056,    .02277,
     +     .52071,    .20732,    .24681,    .01705,    .00002,
     +     .00000,    .01043,    .02215,
     +     .50332,    .19863,    .22229,    .01639,    .00041,
     +     .00000,    .01014,    .02089,
     +     .48861,    .19137,    .20450,    .01579,    .00070,
     +    -.00113,    .00986,    .01984,
     +     .47249,    .18362,    .18411,    .01516,    .00094,
     +    -.00073,    .00952,    .01874,
     +     .45610,    .17591,    .16536,    .01452,    .00115,
     +    -.00041,    .00914,    .01769,
     +     .44168,    .16919,    .15027,    .01391,    .00130,
     +    -.00017,    .00880,    .01680 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
     +     .42757,    .16269,    .13666,    .01331,    .00142,
     +     .00004,    .00848,    .01591,
     +     .41605,    .15757,    .12648,    .01284,    .00149,
     +     .00018,    .00821,    .01519,
     +     .40246,    .15150,    .11528,    .01233,    .00156,
     +     .00033,    .00788,    .01439,
     +     .39082,    .14636,    .10637,    .01187,    .00160,
     +     .00043,    .00760,    .01372,
     +     .38048,    .14180,    .09894,    .01142,    .00164,
     +     .00053,    .00736,    .01314,
     +     .36762,    .13624,    .09040,    .01090,    .00165,
     +     .00060,    .00704,    .01245,
     +     .35593,    .13126,    .08319,    .01046,    .00166,
     +     .00067,    .00676,    .01183,
     +     .34536,    .12677,    .07708,    .01006,    .00167,
     +     .00073,    .00650,    .01125 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
     +     .33501,    .12241,    .07151,    .00967,    .00166,
     +     .00077,    .00625,    .01074,
     +     .32524,    .11832,    .06655,    .00929,    .00165,
     +     .00080,    .00602,    .01026,
     +     .31628,    .11459,    .06225,    .00893,    .00163,
     +     .00082,    .00579,    .00983,
     +     .30802,    .11119,    .05852,    .00861,    .00161,
     +     .00084,    .00559,    .00942,
     +     .29997,    .10789,    .05506,    .00831,    .00160,
     +     .00085,    .00541,    .00903,
     +     .29222,    .10473,    .05190,    .00804,    .00158,
     +     .00086,    .00522,    .00868,
     +     .28507,    .10184,    .04911,    .00778,    .00155,
     +     .00087,    .00506,    .00835,
     +     .27844,    .09916,    .04666,    .00753,    .00153,
     +     .00087,    .00490,    .00806 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
     +     .27195,    .09655,    .04432,    .00729,    .00151,
     +     .00088,    .00475,    .00777,
     +     .26566,    .09405,    .04220,    .00706,    .00149,
     +     .00088,    .00461,    .00749,
     +     .25978,    .09173,    .04027,    .00687,    .00145,
     +     .00086,    .00447,    .00724,
     +     .25434,    .08959,    .03855,    .00668,    .00143,
     +     .00086,    .00434,    .00702,
     +     .24894,    .08745,    .03691,    .00649,    .00141,
     +     .00086,    .00423,    .00680 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
     +     .63712,    .26637,    .43346,    .01746,    .00000,
     +     .00000,    .00826,    .02550,
     +     .62304,    .25767,    .39910,    .01723,    .00000,
     +     .00000,    .00847,    .02443,
     +     .60166,    .24525,    .35997,    .01685,   -.00371,
     +     .00000,    .00863,    .02288,
     +     .58601,    .23643,    .32766,    .01645,   -.00287,
     +     .00000,    .00869,    .02185,
     +     .56938,    .22760,    .29694,    .01607,   -.00216,
     +     .00000,    .00868,    .02072,
     +     .55511,    .22018,    .27295,    .01569,   -.00166,
     +     .00000,    .00859,    .01985,
     +     .54165,    .21328,    .25189,    .01527,   -.00123,
     +     .00000,    .00849,    .01905,
     +     .52758,    .20619,    .23145,    .01483,   -.00082,
     +     .00000,    .00836,    .01822 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
     +     .51551,    .20022,    .21522,    .01443,   -.00054,
     +     .00000,    .00825,    .01750,
     +     .50396,    .19463,    .20072,    .01406,   -.00028,
     +     .00000,    .00810,    .01688,
     +     .49496,    .19034,    .19002,    .01379,   -.00010,
     +     .00000,    .00794,    .01643,
     +     .47621,    .18150,    .16941,    .01314,    .00022,
     +     .00000,    .00768,    .01540,
     +     .46042,    .17426,    .15459,    .01265,    .00043,
     +    -.00091,    .00744,    .01456,
     +     .44332,    .16650,    .13781,    .01208,    .00063,
     +    -.00060,    .00715,    .01371,
     +     .42617,    .15882,    .12261,    .01147,    .00079,
     +    -.00035,    .00688,    .01286,
     +     .41114,    .15218,    .11049,    .01095,    .00090,
     +    -.00016,    .00661,    .01214 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
     +     .39647,    .14582,    .09966,    .01045,    .00099,
     +    -.00001,    .00633,    .01147,
     +     .38461,    .14076,    .09161,    .01007,    .00105,
     +     .00010,    .00612,    .01094,
     +     .37078,    .13488,    .08293,    .00956,    .00110,
     +     .00021,    .00584,    .01033,
     +     .35898,    .12991,    .07604,    .00916,    .00113,
     +     .00029,    .00560,    .00981,
     +     .34849,    .12552,    .07030,    .00882,    .00115,
     +     .00035,    .00540,    .00936,
     +     .33552,    .12021,    .06381,    .00839,    .00117,
     +     .00042,    .00516,    .00883,
     +     .32382,    .11542,    .05837,    .00802,    .00117,
     +     .00046,    .00494,    .00836,
     +     .31330,    .11113,    .05380,    .00768,    .00117,
     +     .00050,    .00473,    .00793 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
     +     .30307,    .10702,    .04967,    .00733,    .00116,
     +     .00053,    .00453,    .00754,
     +     .29344,    .10316,    .04601,    .00702,    .00115,
     +     .00055,    .00433,    .00719,
     +     .28461,    .09967,    .04287,    .00674,    .00114,
     +     .00057,    .00416,    .00686,
     +     .27650,    .09647,    .04014,    .00649,    .00113,
     +     .00058,    .00402,    .00656,
     +     .26863,    .09340,    .03763,    .00626,    .00111,
     +     .00059,    .00387,    .00627,
     +     .26109,    .09047,    .03537,    .00601,    .00109,
     +     .00059,    .00374,    .00601,
     +     .25418,    .08778,    .03339,    .00578,    .00107,
     +     .00059,    .00360,    .00578,
     +     .24773,    .08531,    .03163,    .00559,    .00106,
     +     .00059,    .00348,    .00557 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
     +     .24143,    .08290,    .02998,    .00543,    .00104,
     +     .00059,    .00337,    .00536,
     +     .23538,    .08060,    .02845,    .00525,    .00103,
     +     .00060,    .00326,    .00516,
     +     .22976,    .07845,    .02712,    .00508,    .00101,
     +     .00060,    .00315,    .00499,
     +     .22458,    .07648,    .02591,    .00493,    .00099,
     +     .00059,    .00307,    .00481,
     +     .21943,    .07455,    .02475,    .00478,    .00098,
     +     .00059,    .00297,    .00465 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
     +     .62490,    .25199,    .35548,    .01457,    .00000,
     +     .00000,    .00622,    .01896,
     +     .60811,    .24261,    .32406,    .01435,    .00000,
     +     .00000,    .00644,    .01810,
     +     .58332,    .22931,    .28844,    .01386,   -.00315,
     +     .00000,    .00661,    .01695,
     +     .56544,    .22020,    .25967,    .01352,   -.00244,
     +     .00000,    .00663,    .01615,
     +     .54685,    .21097,    .23285,    .01311,   -.00185,
     +     .00000,    .00663,    .01529,
     +     .53117,    .20330,    .21209,    .01270,   -.00143,
     +     .00000,    .00656,    .01462,
     +     .51639,    .19624,    .19403,    .01233,   -.00107,
     +     .00000,    .00648,    .01400,
     +     .50107,    .18907,    .17678,    .01192,   -.00075,
     +     .00000,    .00635,    .01336 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
     +     .48800,    .18301,    .16315,    .01162,   -.00051,
     +     .00000,    .00622,    .01284,
     +     .47567,    .17740,    .15115,    .01127,   -.00031,
     +     .00000,    .00610,    .01232,
     +     .46615,    .17312,    .14233,    .01101,   -.00016,
     +     .00000,    .00601,    .01190,
     +     .44636,    .16429,    .12546,    .01046,    .00008,
     +     .00000,    .00581,    .01109,
     +     .42995,    .15709,    .11341,    .00998,    .00026,
     +    -.00072,    .00559,    .01048,
     +     .41225,    .14948,    .09998,    .00945,    .00041,
     +    -.00048,    .00536,    .00985,
     +     .39457,    .14201,    .08796,    .00893,    .00053,
     +    -.00029,    .00511,    .00922,
     +     .37916,    .13561,    .07851,    .00851,    .00062,
     +    -.00015,    .00489,    .00866 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
     +     .36424,    .12948,    .07016,    .00811,    .00068,
     +    -.00003,    .00467,    .00811,
     +     .35236,    .12461,    .06402,    .00776,    .00072,
     +     .00005,    .00449,    .00773,
     +     .33846,    .11897,    .05742,    .00738,    .00076,
     +     .00012,    .00428,    .00728,
     +     .32663,    .11424,    .05230,    .00705,    .00079,
     +     .00019,    .00409,    .00689,
     +     .31617,    .11010,    .04805,    .00675,    .00080,
     +     .00024,    .00393,    .00656,
     +     .30347,    .10506,    .04329,    .00636,    .00081,
     +     .00028,    .00372,    .00616,
     +     .29197,    .10056,    .03933,    .00605,    .00081,
     +     .00031,    .00354,    .00583,
     +     .28160,    .09656,    .03603,    .00578,    .00081,
     +     .00033,    .00340,    .00552 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
     +     .27164,    .09274,    .03307,    .00553,    .00080,
     +     .00035,    .00325,    .00521,
     +     .26228,    .08915,    .03046,    .00527,    .00080,
     +     .00037,    .00312,    .00495,
     +     .25374,    .08591,    .02824,    .00502,    .00080,
     +     .00039,    .00298,    .00473,
     +     .24594,    .08296,    .02637,    .00482,    .00078,
     +     .00040,    .00286,    .00452,
     +     .23837,    .08012,    .02463,    .00463,    .00077,
     +     .00040,    .00274,    .00431,
     +     .23115,    .07743,    .02307,    .00445,    .00076,
     +     .00041,    .00263,    .00411,
     +     .22455,    .07498,    .02171,    .00427,    .00075,
     +     .00041,    .00254,    .00394,
     +     .21843,    .07272,    .02051,    .00412,    .00073,
     +     .00040,    .00245,    .00379 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
     +     .21247,    .07052,    .01939,    .00397,    .00072,
     +     .00041,    .00236,    .00364,
     +     .20673,    .06842,    .01837,    .00384,    .00070,
     +     .00040,    .00228,    .00350,
     +     .20143,    .06648,    .01747,    .00372,    .00070,
     +     .00040,    .00220,    .00335,
     +     .19652,    .06471,    .01667,    .00362,    .00068,
     +     .00040,    .00214,    .00323,
     +     .19169,    .06295,    .01592,    .00350,    .00067,
     +     .00040,    .00207,    .00312 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
     +     .60738,    .23602,    .28361,    .01185,    .00000,
     +     .00000,    .00473,    .01383,
     +     .58819,    .22618,    .25567,    .01156,    .00000,
     +     .00000,    .00493,    .01326,
     +     .56040,    .21240,    .22435,    .01113,   -.00262,
     +     .00000,    .00506,    .01235,
     +     .54056,    .20309,    .19964,    .01089,   -.00204,
     +     .00000,    .00510,    .01167,
     +     .52037,    .19364,    .17677,    .01050,   -.00155,
     +     .00000,    .00506,    .01109,
     +     .50348,    .18593,    .15934,    .01013,   -.00120,
     +     .00000,    .00501,    .01057,
     +     .48770,    .17886,    .14442,    .00980,   -.00092,
     +     .00000,    .00493,    .01005,
     +     .47144,    .17171,    .13017,    .00948,   -.00066,
     +     .00000,    .00485,    .00954 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
     +     .45776,    .16569,    .11914,    .00910,   -.00046,
     +     .00000,    .00472,    .00919,
     +     .44492,    .16012,    .10945,    .00880,   -.00031,
     +     .00000,    .00463,    .00883,
     +     .43502,    .15586,    .10243,    .00855,   -.00020,
     +     .00000,    .00456,    .00854,
     +     .41448,    .14727,    .08906,    .00814,    .00000,
     +     .00000,    .00433,    .00795,
     +     .39768,    .14030,    .07965,    .00772,    .00014,
     +    -.00056,    .00419,    .00746,
     +     .37971,    .13296,    .06932,    .00727,    .00025,
     +    -.00039,    .00400,    .00696,
     +     .36188,    .12580,    .06015,    .00684,    .00035,
     +    -.00025,    .00379,    .00648,
     +     .34646,    .11967,    .05304,    .00648,    .00041,
     +    -.00014,    .00360,    .00608 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
     +     .33166,    .11383,    .04687,    .00610,    .00047,
     +    -.00005,    .00341,    .00572,
     +     .31986,    .10924,    .04238,    .00583,    .00050,
     +     .00001,    .00328,    .00540,
     +     .30613,    .10393,    .03761,    .00552,    .00052,
     +     .00007,    .00312,    .00507,
     +     .29453,    .09949,    .03390,    .00525,    .00054,
     +     .00012,    .00298,    .00481,
     +     .28433,    .09562,    .03091,    .00500,    .00055,
     +     .00016,    .00285,    .00456,
     +     .27190,    .09095,    .02755,    .00473,    .00055,
     +     .00019,    .00270,    .00426,
     +     .26079,    .08678,    .02481,    .00448,    .00056,
     +     .00021,    .00255,    .00401,
     +     .25085,    .08308,    .02258,    .00424,    .00056,
     +     .00023,    .00245,    .00377 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
     +     .24122,    .07958,    .02058,    .00406,    .00056,
     +     .00026,    .00232,    .00356,
     +     .23225,    .07631,    .01885,    .00387,    .00055,
     +     .00026,    .00221,    .00337,
     +     .22412,    .07333,    .01739,    .00369,    .00054,
     +     .00027,    .00212,    .00320,
     +     .21671,    .07064,    .01615,    .00353,    .00054,
     +     .00028,    .00203,    .00305,
     +     .20956,    .06807,    .01502,    .00338,    .00053,
     +     .00029,    .00194,    .00293,
     +     .20276,    .06563,    .01400,    .00323,    .00052,
     +     .00028,    .00186,    .00279,
     +     .19655,    .06342,    .01313,    .00310,    .00051,
     +     .00029,    .00178,    .00267,
     +     .19081,    .06139,    .01238,    .00298,    .00050,
     +     .00028,    .00172,    .00254 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
     +     .18523,    .05942,    .01169,    .00286,    .00049,
     +     .00029,    .00164,    .00243,
     +     .17989,    .05754,    .01106,    .00276,    .00048,
     +     .00028,    .00159,    .00233,
     +     .17495,    .05582,    .01048,    .00266,    .00048,
     +     .00029,    .00155,    .00224,
     +     .17042,    .05423,    .00998,    .00258,    .00047,
     +     .00029,    .00149,    .00215,
     +     .16593,    .05267,    .00953,    .00247,    .00046,
     +     .00028,    .00144,    .00208 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
     +     .58486,    .21944,    .21815,    .00978,    .00000,
     +     .00000,    .00338,    .00964,
     +     .56360,    .20927,    .19416,    .00955,    .00000,
     +     .00000,    .00356,    .00921,
     +     .53326,    .19524,    .16755,    .00907,   -.00215,
     +     .00000,    .00367,    .00869,
     +     .51222,    .18573,    .14697,    .00870,   -.00167,
     +     .00000,    .00371,    .00828,
     +     .49078,    .17632,    .12815,    .00837,   -.00127,
     +     .00000,    .00371,    .00782,
     +     .47293,    .16867,    .11412,    .00806,   -.00100,
     +     .00000,    .00368,    .00742,
     +     .45646,    .16165,    .10216,    .00775,   -.00077,
     +     .00000,    .00362,    .00710,
     +     .43963,    .15458,    .09097,    .00741,   -.00056,
     +     .00000,    .00354,    .00678 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
     +     .42541,    .14879,    .08231,    .00718,   -.00040,
     +     .00000,    .00348,    .00643,
     +     .41220,    .14343,    .07483,    .00692,   -.00028,
     +     .00000,    .00341,    .00615,
     +     .40212,    .13932,    .06942,    .00672,   -.00019,
     +     .00000,    .00335,    .00593,
     +     .38139,    .13094,    .05939,    .00630,   -.00004,
     +     .00000,    .00317,    .00548,
     +     .36457,    .12426,    .05238,    .00591,    .00006,
     +    -.00044,    .00302,    .00520,
     +     .34654,    .11730,    .04471,    .00557,    .00016,
     +    -.00030,    .00288,    .00485,
     +     .32887,    .11050,    .03808,    .00522,    .00023,
     +    -.00019,    .00273,    .00448,
     +     .31373,    .10471,    .03302,    .00490,    .00027,
     +    -.00011,    .00260,    .00419 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
     +     .29918,    .09924,    .02867,    .00462,    .00031,
     +    -.00005,    .00247,    .00390,
     +     .28766,    .09496,    .02555,    .00440,    .00033,
     +    -.00001,    .00234,    .00370,
     +     .27437,    .09004,    .02232,    .00414,    .00036,
     +     .00004,    .00220,    .00345,
     +     .26318,    .08593,    .01983,    .00393,    .00037,
     +     .00007,    .00210,    .00325,
     +     .25335,    .08236,    .01786,    .00374,    .00038,
     +     .00010,    .00201,    .00308,
     +     .24143,    .07806,    .01572,    .00353,    .00038,
     +     .00012,    .00189,    .00286,
     +     .23080,    .07426,    .01399,    .00332,    .00038,
     +     .00013,    .00180,    .00267,
     +     .22135,    .07091,    .01255,    .00315,    .00039,
     +     .00015,    .00171,    .00254 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
     +     .21236,    .06769,    .01133,    .00295,    .00038,
     +     .00016,    .00162,    .00241,
     +     .20391,    .06472,    .01029,    .00280,    .00038,
     +     .00017,    .00153,    .00227,
     +     .19620,    .06208,    .00940,    .00269,    .00038,
     +     .00018,    .00145,    .00215,
     +     .18928,    .05968,    .00868,    .00256,    .00037,
     +     .00018,    .00140,    .00203,
     +     .18264,    .05737,    .00802,    .00244,    .00037,
     +     .00019,    .00135,    .00192,
     +     .17630,    .05518,    .00745,    .00232,    .00036,
     +     .00019,    .00129,    .00183,
     +     .17053,    .05320,    .00696,    .00221,    .00036,
     +     .00020,    .00123,    .00176,
     +     .16522,    .05140,    .00653,    .00214,    .00035,
     +     .00020,    .00118,    .00168 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
     +     .16005,    .04965,    .00615,    .00206,    .00034,
     +     .00020,    .00114,    .00160,
     +     .15512,    .04801,    .00581,    .00198,    .00034,
     +     .00021,    .00108,    .00153,
     +     .15056,    .04649,    .00551,    .00190,    .00034,
     +     .00021,    .00103,    .00146,
     +     .14640,    .04509,    .00524,    .00184,    .00033,
     +     .00021,    .00100,    .00141,
     +     .14229,    .04373,    .00499,    .00178,    .00032,
     +     .00021,    .00097,    .00135 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
     +     .55833,    .20183,    .15903,    .00780,    .00000,
     +     .00000,    .00235,    .00672,
     +     .53531,    .19167,    .13940,    .00762,    .00000,
     +     .00000,    .00247,    .00636,
     +     .50302,    .17772,    .11785,    .00724,   -.00174,
     +     .00000,    .00263,    .00594,
     +     .48089,    .16838,    .10132,    .00697,   -.00134,
     +     .00000,    .00266,    .00562,
     +     .45853,    .15918,    .08666,    .00665,   -.00103,
     +     .00000,    .00264,    .00533,
     +     .44022,    .15164,    .07574,    .00638,   -.00081,
     +     .00000,    .00260,    .00509,
     +     .42334,    .14484,    .06665,    .00613,   -.00063,
     +     .00000,    .00256,    .00483,
     +     .40617,    .13803,    .05829,    .00586,   -.00046,
     +     .00000,    .00250,    .00457 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
     +     .39192,    .13241,    .05193,    .00559,   -.00035,
     +     .00000,    .00245,    .00434,
     +     .37866,    .12725,    .04650,    .00536,   -.00025,
     +     .00000,    .00238,    .00414,
     +     .36854,    .12332,    .04262,    .00518,   -.00018,
     +     .00000,    .00231,    .00400,
     +     .34780,    .11543,    .03537,    .00489,   -.00006,
     +     .00000,    .00222,    .00371,
     +     .33103,    .10915,    .03050,    .00464,    .00003,
     +    -.00033,    .00212,    .00346,
     +     .31346,    .10257,    .02519,    .00431,    .00010,
     +    -.00023,    .00200,    .00321,
     +     .29623,    .09623,    .02074,    .00398,    .00015,
     +    -.00016,    .00188,    .00297,
     +     .28147,    .09087,    .01740,    .00373,    .00018,
     +    -.00010,    .00179,    .00278 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
     +     .26747,    .08583,    .01458,    .00350,    .00022,
     +    -.00005,    .00169,    .00259,
     +     .25637,    .08187,    .01268,    .00332,    .00023,
     +    -.00002,    .00161,    .00244,
     +     .24361,    .07736,    .01069,    .00313,    .00026,
     +     .00002,    .00151,    .00226,
     +     .23297,    .07362,    .00923,    .00296,    .00026,
     +     .00003,    .00142,    .00212,
     +     .22369,    .07037,    .00808,    .00280,    .00027,
     +     .00005,    .00136,    .00200,
     +     .21241,    .06650,    .00686,    .00265,    .00027,
     +     .00006,    .00127,    .00186,
     +     .20243,    .06307,    .00592,    .00249,    .00027,
     +     .00007,    .00120,    .00174,
     +     .19362,    .06003,    .00519,    .00231,    .00028,
     +     .00008,    .00113,    .00164 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
     +     .18518,    .05715,    .00455,    .00219,    .00028,
     +     .00009,    .00108,    .00154,
     +     .17734,    .05450,    .00404,    .00206,    .00028,
     +     .00010,    .00103,    .00146,
     +     .17023,    .05211,    .00363,    .00196,    .00027,
     +     .00010,    .00097,    .00138,
     +     .16381,    .04998,    .00328,    .00188,    .00028,
     +     .00011,    .00092,    .00131,
     +     .15765,    .04794,    .00297,    .00181,    .00027,
     +     .00011,    .00090,    .00124,
     +     .15185,    .04601,    .00273,    .00170,    .00028,
     +     .00012,    .00085,    .00117,
     +     .14658,    .04428,    .00252,    .00161,    .00027,
     +     .00012,    .00082,    .00112,
     +     .14172,    .04269,    .00237,    .00155,    .00026,
     +     .00012,    .00077,    .00106 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
     +     .13702,    .04118,    .00222,    .00150,    .00026,
     +     .00012,    .00074,    .00100,
     +     .13255,    .03971,    .00208,    .00144,    .00026,
     +     .00013,    .00072,    .00097,
     +     .12844,    .03838,    .00197,    .00138,    .00026,
     +     .00013,    .00068,    .00092,
     +     .12466,    .03717,    .00188,    .00133,    .00026,
     +     .00013,    .00066,    .00089,
     +     .12096,    .03597,    .00179,    .00128,    .00025,
     +     .00013,    .00063,    .00085 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
     +     .52787,    .18385,    .10688,    .00603,    .00000,
     +     .00000,    .00172,    .00440,
     +     .50356,    .17381,    .09145,    .00588,    .00000,
     +     .00000,    .00183,    .00426,
     +     .46993,    .16009,    .07498,    .00556,   -.00137,
     +     .00000,    .00194,    .00401,
     +     .44706,    .15098,    .06261,    .00533,   -.00107,
     +     .00000,    .00191,    .00385,
     +     .42440,    .14199,    .05165,    .00508,   -.00081,
     +     .00000,    .00194,    .00365,
     +     .40579,    .13479,    .04380,    .00484,   -.00065,
     +     .00000,    .00190,    .00348,
     +     .38883,    .12831,    .03738,    .00459,   -.00050,
     +     .00000,    .00186,    .00330,
     +     .37174,    .12183,    .03158,    .00435,   -.00038,
     +     .00000,    .00183,    .00309 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
     +     .35748,    .11652,    .02720,    .00420,   -.00029,
     +     .00000,    .00178,    .00295,
     +     .34428,    .11162,    .02358,    .00404,   -.00021,
     +     .00000,    .00174,    .00280,
     +     .33427,    .10793,    .02105,    .00393,   -.00016,
     +     .00000,    .00170,    .00268,
     +     .31404,    .10055,    .01651,    .00357,   -.00007,
     +     .00000,    .00158,    .00254,
     +     .29776,    .09471,    .01342,    .00334,   -.00001,
     +    -.00025,    .00150,    .00238,
     +     .28066,    .08863,    .01016,    .00311,    .00004,
     +    -.00018,    .00142,    .00218,
     +     .26408,    .08279,    .00750,    .00286,    .00008,
     +    -.00012,    .00135,    .00200,
     +     .24998,    .07787,    .00562,    .00268,    .00011,
     +    -.00008,    .00128,    .00186 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
     +     .23658,    .07327,    .00410,    .00253,    .00014,
     +    -.00005,    .00119,    .00172,
     +     .22609,    .06972,    .00307,    .00240,    .00016,
     +    -.00002,    .00112,    .00162,
     +     .21413,    .06564,    .00212,    .00223,    .00017,
     +    -.00001,    .00106,    .00148,
     +     .20414,    .06224,    .00147,    .00208,    .00019,
     +     .00001,    .00101,    .00139,
     +     .19541,    .05934,    .00095,    .00197,    .00020,
     +     .00002,    .00096,    .00133,
     +     .18495,    .05584,    .00050,    .00182,    .00021,
     +     .00003,    .00090,    .00125,
     +     .17570,    .05278,    .00017,    .00170,    .00022,
     +     .00004,    .00084,    .00116,
     +     .16755,    .05013,   -.00009,    .00162,    .00022,
     +     .00004,    .00079,    .00107 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
     +     .15976,    .04759,   -.00025,    .00151,    .00022,
     +     .00005,    .00074,    .00102,
     +     .15255,    .04524,   -.00036,    .00142,    .00022,
     +     .00005,    .00071,    .00096,
     +     .14610,    .04316,   -.00045,    .00135,    .00023,
     +     .00006,    .00068,    .00091,
     +     .14025,    .04130,   -.00049,    .00127,    .00022,
     +     .00006,    .00064,    .00087,
     +     .13465,    .03952,   -.00051,    .00121,    .00022,
     +     .00006,    .00060,    .00082,
     +     .12938,    .03785,   -.00051,    .00114,    .00023,
     +     .00007,    .00057,    .00076,
     +     .12459,    .03634,   -.00050,    .00110,    .00022,
     +     .00007,    .00055,    .00071,
     +     .12022,    .03497,   -.00048,    .00105,    .00022,
     +     .00007,    .00052,    .00068 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
     +     .11601,    .03364,   -.00045,    .00100,    .00022,
     +     .00007,    .00049,    .00066,
     +     .11200,    .03238,   -.00042,    .00096,    .00021,
     +     .00007,    .00049,    .00062,
     +     .10834,    .03124,   -.00041,    .00091,    .00022,
     +     .00008,    .00046,    .00060,
     +     .10498,    .03019,   -.00038,    .00088,    .00022,
     +     .00008,    .00045,    .00058,
     +     .10167,    .02917,   -.00034,    .00084,    .00022,
     +     .00008,    .00042,    .00055 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
     +     .49420,    .16579,    .06179,    .00455,    .00000,
     +     .00000,    .00124,    .00286,
     +     .46922,    .15583,    .05071,    .00432,    .00000,
     +     .00000,    .00137,    .00282,
     +     .43484,    .14258,    .03935,    .00408,   -.00107,
     +     .00000,    .00138,    .00269,
     +     .41175,    .13379,    .03072,    .00388,   -.00082,
     +     .00000,    .00140,    .00259,
     +     .38903,    .12524,    .02340,    .00355,   -.00063,
     +     .00000,    .00140,    .00251,
     +     .37048,    .11842,    .01831,    .00340,   -.00050,
     +     .00000,    .00142,    .00231,
     +     .35362,    .11230,    .01422,    .00324,   -.00040,
     +     .00000,    .00142,    .00219,
     +     .33670,    .10624,    .01060,    .00306,   -.00029,
     +     .00000,    .00136,    .00212 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
     +     .32278,    .10127,    .00806,    .00289,   -.00024,
     +     .00000,    .00132,    .00205,
     +     .30995,    .09674,    .00597,    .00277,   -.00018,
     +     .00000,    .00128,    .00196,
     +     .30019,    .09335,    .00455,    .00268,   -.00013,
     +     .00000,    .00125,    .00189,
     +     .28063,    .08655,    .00221,    .00246,   -.00007,
     +     .00000,    .00119,    .00171,
     +     .26501,    .08118,    .00070,    .00229,   -.00003,
     +    -.00018,    .00113,    .00159,
     +     .24871,    .07562,   -.00091,    .00211,    .00001,
     +    -.00013,    .00106,    .00150,
     +     .23291,    .07034,   -.00206,    .00196,    .00004,
     +    -.00009,    .00099,    .00137,
     +     .21960,    .06592,   -.00281,    .00183,    .00006,
     +    -.00006,    .00092,    .00128 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
     +     .20709,    .06178,   -.00331,    .00167,    .00008,
     +    -.00004,    .00087,    .00119,
     +     .19732,    .05857,   -.00358,    .00156,    .00009,
     +    -.00003,    .00082,    .00113,
     +     .18614,    .05494,   -.00374,    .00144,    .00010,
     +    -.00002,    .00076,    .00105,
     +     .17689,    .05196,   -.00381,    .00136,    .00011,
     +    -.00001,    .00073,    .00097,
     +     .16885,    .04939,   -.00380,    .00130,    .00012,
     +     .00000,    .00070,    .00088,
     +     .15927,    .04635,   -.00375,    .00119,    .00013,
     +     .00001,    .00065,    .00082,
     +     .15082,    .04367,   -.00363,    .00110,    .00013,
     +     .00001,    .00062,    .00077,
     +     .14335,    .04132,   -.00349,    .00103,    .00014,
     +     .00002,    .00058,    .00074 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
     +     .13630,    .03911,   -.00333,    .00096,    .00014,
     +     .00002,    .00053,    .00069,
     +     .12980,    .03710,   -.00315,    .00089,    .00014,
     +     .00002,    .00050,    .00065,
     +     .12396,    .03529,   -.00298,    .00084,    .00015,
     +     .00003,    .00047,    .00062,
     +     .11871,    .03368,   -.00283,    .00080,    .00015,
     +     .00003,    .00045,    .00057,
     +     .11368,    .03216,   -.00267,    .00077,    .00015,
     +     .00003,    .00043,    .00053,
     +     .10899,    .03073,   -.00252,    .00072,    .00015,
     +     .00003,    .00042,    .00051,
     +     .10474,    .02944,   -.00236,    .00067,    .00016,
     +     .00004,    .00039,    .00049,
     +     .10087,    .02827,   -.00221,    .00063,    .00016,
     +     .00004,    .00037,    .00046 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
     +     .09714,    .02714,   -.00209,    .00061,    .00016,
     +     .00004,    .00036,    .00044,
     +     .09359,    .02609,   -.00196,    .00058,    .00016,
     +     .00004,    .00033,    .00043,
     +     .09032,    .02511,   -.00184,    .00056,    .00016,
     +     .00004,    .00032,    .00040,
     +     .08736,    .02422,   -.00173,    .00054,    .00016,
     +     .00004,    .00031,    .00039,
     +     .08447,    .02336,   -.00163,    .00053,    .00016,
     +     .00004,    .00030,    .00037 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
     +     .45850,    .14855,    .02327,    .00380,    .00000,
     +     .00000,    .00054,    .00167,
     +     .43313,    .13903,    .01626,    .00363,    .00000,
     +     .00000,    .00067,    .00164,
     +     .39875,    .12632,    .00968,    .00330,   -.00080,
     +     .00000,    .00079,    .00157,
     +     .37583,    .11803,    .00453,    .00310,   -.00063,
     +     .00000,    .00088,    .00149,
     +     .35320,    .11007,    .00036,    .00295,   -.00048,
     +     .00000,    .00087,    .00144,
     +     .33504,    .10362,   -.00240,    .00276,   -.00038,
     +     .00000,    .00086,    .00145,
     +     .31866,    .09790,   -.00435,    .00260,   -.00030,
     +     .00000,    .00082,    .00138,
     +     .30229,    .09226,   -.00591,    .00248,   -.00024,
     +     .00000,    .00080,    .00126 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
     +     .28889,    .08769,   -.00693,    .00233,   -.00018,
     +     .00000,    .00079,    .00120,
     +     .27658,    .08349,   -.00768,    .00221,   -.00014,
     +     .00000,    .00078,    .00115,
     +     .26729,    .08033,   -.00807,    .00210,   -.00012,
     +     .00000,    .00076,    .00111,
     +     .24857,    .07416,   -.00865,    .00191,   -.00007,
     +     .00000,    .00068,    .00104,
     +     .23377,    .06928,   -.00881,    .00180,   -.00004,
     +    -.00013,    .00067,    .00094,
     +     .21841,    .06429,   -.00910,    .00167,   -.00002,
     +    -.00010,    .00065,    .00085,
     +     .20373,    .05953,   -.00910,    .00153,    .00000,
     +    -.00008,    .00059,    .00080,
     +     .19141,    .05558,   -.00894,    .00139,    .00002,
     +    -.00006,    .00055,    .00076 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
     +     .17983,    .05190,   -.00864,    .00127,    .00003,
     +    -.00005,    .00051,    .00071,
     +     .17078,    .04907,   -.00832,    .00119,    .00004,
     +    -.00004,    .00051,    .00065,
     +     .16052,    .04586,   -.00793,    .00112,    .00005,
     +    -.00003,    .00046,    .00062,
     +     .15208,    .04323,   -.00754,    .00104,    .00006,
     +    -.00002,    .00042,    .00059,
     +     .14482,    .04099,   -.00715,    .00094,    .00006,
     +    -.00002,    .00040,    .00055,
     +     .13608,    .03830,   -.00665,    .00089,    .00007,
     +    -.00001,    .00036,    .00050,
     +     .12840,    .03599,   -.00621,    .00084,    .00007,
     +    -.00001,    .00034,    .00046,
     +     .12167,    .03397,   -.00581,    .00079,    .00008,
     +     .00000,    .00033,    .00042 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
     +     .11538,    .03207,   -.00539,    .00073,    .00008,
     +     .00000,    .00030,    .00040,
     +     .10956,    .03031,   -.00502,    .00068,    .00008,
     +     .00000,    .00029,    .00037,
     +     .10436,    .02877,   -.00468,    .00063,    .00008,
     +     .00000,    .00028,    .00035,
     +     .09970,    .02740,   -.00437,    .00059,    .00009,
     +     .00001,    .00026,    .00033,
     +     .09527,    .02611,   -.00408,    .00057,    .00009,
     +     .00001,    .00023,    .00030,
     +     .09109,    .02488,   -.00381,    .00054,    .00009,
     +     .00001,    .00022,    .00028,
     +     .08732,    .02377,   -.00356,    .00053,    .00009,
     +     .00001,    .00021,    .00027,
     +     .08393,    .02279,   -.00335,    .00051,    .00009,
     +     .00001,    .00021,    .00026 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
     +     .08066,    .02183,   -.00314,    .00048,    .00009,
     +     .00001,    .00020,    .00024,
     +     .07758,    .02094,   -.00294,    .00045,    .00009,
     +     .00001,    .00018,    .00023,
     +     .07476,    .02014,   -.00276,    .00042,    .00009,
     +     .00001,    .00017,    .00022,
     +     .07218,    .01939,   -.00260,    .00040,    .00009,
     +     .00001,    .00017,    .00022,
     +     .06964,    .01868,   -.00244,    .00039,    .00009,
     +     .00001,    .00016,    .00021 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
     +     .42066,    .13085,   -.00769,    .00258,    .00000,
     +     .00000,    .00043,    .00106,
     +     .39544,    .12191,   -.01104,    .00237,    .00000,
     +     .00000,    .00054,    .00110,
     +     .36140,    .11002,   -.01342,    .00223,   -.00060,
     +     .00000,    .00060,    .00108,
     +     .33890,    .10235,   -.01553,    .00214,   -.00046,
     +     .00000,    .00062,    .00102,
     +     .31707,    .09492,   -.01687,    .00200,   -.00036,
     +     .00000,    .00059,    .00095,
     +     .29953,    .08908,   -.01751,    .00187,   -.00029,
     +     .00000,    .00061,    .00090,
     +     .28379,    .08388,   -.01779,    .00176,   -.00023,
     +     .00000,    .00061,    .00084,
     +     .26814,    .07875,   -.01776,    .00166,   -.00018,
     +     .00000,    .00059,    .00080 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
     +     .25534,    .07460,   -.01753,    .00156,   -.00014,
     +     .00000,    .00055,    .00079,
     +     .24370,    .07084,   -.01719,    .00148,   -.00011,
     +     .00000,    .00052,    .00074,
     +     .23492,    .06802,   -.01689,    .00145,   -.00010,
     +     .00000,    .00051,    .00071,
     +     .21746,    .06245,   -.01607,    .00129,   -.00006,
     +     .00000,    .00049,    .00066,
     +     .20369,    .05811,   -.01525,    .00120,   -.00004,
     +    -.00010,    .00048,    .00062,
     +     .18948,    .05369,   -.01450,    .00111,   -.00002,
     +    -.00008,    .00044,    .00056,
     +     .17590,    .04952,   -.01361,    .00102,   -.00001,
     +    -.00007,    .00040,    .00052,
     +     .16457,    .04604,   -.01277,    .00094,    .00001,
     +    -.00005,    .00037,    .00048 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
     +     .15400,    .04283,   -.01190,    .00084,    .00001,
     +    -.00005,    .00033,    .00046,
     +     .14579,    .04037,   -.01119,    .00081,    .00002,
     +    -.00004,    .00033,    .00041,
     +     .13655,    .03760,   -.01034,    .00073,    .00003,
     +    -.00003,    .00030,    .00037,
     +     .12892,    .03534,   -.00963,    .00069,    .00003,
     +    -.00003,    .00028,    .00033,
     +     .12232,    .03342,   -.00902,    .00067,    .00004,
     +    -.00002,    .00025,    .00032,
     +     .11458,    .03112,   -.00825,    .00058,    .00004,
     +    -.00002,    .00025,    .00030,
     +     .10780,    .02913,   -.00759,    .00053,    .00004,
     +    -.00002,    .00022,    .00028,
     +     .10184,    .02740,   -.00701,    .00051,    .00004,
     +    -.00002,    .00021,    .00025 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
     +     .09626,    .02579,   -.00646,    .00047,    .00005,
     +    -.00001,    .00020,    .00024,
     +     .09113,    .02432,   -.00597,    .00043,    .00005,
     +    -.00001,    .00019,    .00023,
     +     .08655,    .02302,   -.00552,    .00042,    .00005,
     +    -.00001,    .00017,    .00022,
     +     .08248,    .02185,   -.00513,    .00040,    .00005,
     +    -.00001,    .00015,    .00020,
     +     .07861,    .02076,   -.00476,    .00037,    .00005,
     +    -.00001,    .00014,    .00020,
     +     .07500,    .01976,   -.00443,    .00034,    .00005,
     +    -.00001,    .00014,    .00018,
     +     .07177,    .01884,   -.00413,    .00033,    .00005,
     +    -.00001,    .00013,    .00017,
     +     .06881,    .01803,   -.00385,    .00032,    .00005,
     +    -.00001,    .00013,    .00016 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
     +     .06599,    .01724,   -.00360,    .00031,    .00005,
     +    -.00001,    .00012,    .00014,
     +     .06331,    .01649,   -.00337,    .00028,    .00005,
     +    -.00001,    .00012,    .00014,
     +     .06090,    .01581,   -.00315,    .00027,    .00006,
     +     .00000,    .00011,    .00013,
     +     .05870,    .01521,   -.00298,    .00026,    .00006,
     +     .00000,    .00011,    .00013,
     +     .05655,    .01462,   -.00279,    .00025,    .00006,
     +     .00000,    .00011,    .00012 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
     +     .38163,    .11392,   -.03159,    .00160,    .00000,
     +     .00000,    .00038,    .00068,
     +     .35676,    .10561,   -.03175,    .00162,    .00000,
     +     .00000,    .00042,    .00067,
     +     .32372,    .09469,   -.03037,    .00146,   -.00043,
     +     .00000,    .00042,    .00069,
     +     .30219,    .08765,   -.02997,    .00132,   -.00033,
     +     .00000,    .00044,    .00068,
     +     .28126,    .08093,   -.02916,    .00126,   -.00026,
     +     .00000,    .00046,    .00065,
     +     .26460,    .07561,   -.02811,    .00119,   -.00021,
     +     .00000,    .00044,    .00061,
     +     .24967,    .07094,   -.02700,    .00115,   -.00018,
     +     .00000,    .00042,    .00057,
     +     .23492,    .06635,   -.02572,    .00110,   -.00014,
     +     .00000,    .00041,    .00054 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
     +     .22295,    .06263,   -.02455,    .00104,   -.00012,
     +     .00000,    .00041,    .00052,
     +     .21215,    .05929,   -.02339,    .00095,   -.00010,
     +     .00000,    .00040,    .00050,
     +     .20406,    .05681,   -.02248,    .00088,   -.00009,
     +     .00000,    .00037,    .00048,
     +     .18780,    .05190,   -.02058,    .00083,   -.00006,
     +     .00000,    .00036,    .00043,
     +     .17526,    .04808,   -.01906,    .00073,   -.00005,
     +    -.00007,    .00033,    .00042,
     +     .16233,    .04424,   -.01753,    .00065,   -.00004,
     +    -.00006,    .00028,    .00036,
     +     .14997,    .04060,   -.01603,    .00060,   -.00002,
     +    -.00004,    .00028,    .00032,
     +     .13971,    .03760,   -.01473,    .00055,   -.00002,
     +    -.00004,    .00026,    .00030 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
     +     .13022,    .03484,   -.01352,    .00049,   -.00001,
     +    -.00003,    .00024,    .00030,
     +     .12290,    .03273,   -.01255,    .00046,   -.00001,
     +    -.00003,    .00023,    .00026,
     +     .11467,    .03037,   -.01145,    .00042,    .00000,
     +    -.00002,    .00021,    .00024,
     +     .10790,    .02845,   -.01054,    .00038,    .00000,
     +    -.00002,    .00020,    .00023,
     +     .10210,    .02680,   -.00978,    .00036,    .00000,
     +    -.00002,    .00019,    .00021,
     +     .09521,    .02488,   -.00885,    .00035,    .00001,
     +    -.00001,    .00016,    .00019,
     +     .08925,    .02321,   -.00808,    .00033,    .00001,
     +    -.00001,    .00015,    .00018,
     +     .08406,    .02177,   -.00742,    .00030,    .00001,
     +    -.00001,    .00016,    .00016 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
     +     .07921,    .02043,   -.00679,    .00028,    .00001,
     +    -.00001,    .00014,    .00015,
     +     .07477,    .01921,   -.00623,    .00025,    .00001,
     +    -.00001,    .00013,    .00016,
     +     .07085,    .01813,   -.00574,    .00024,    .00001,
     +    -.00001,    .00012,    .00014,
     +     .06734,    .01717,   -.00530,    .00022,    .00001,
     +    -.00001,    .00010,    .00013,
     +     .06401,    .01626,   -.00490,    .00020,    .00001,
     +    -.00001,    .00010,    .00013,
     +     .06090,    .01543,   -.00453,    .00021,    .00002,
     +     .00000,    .00009,    .00012,
     +     .05812,    .01470,   -.00422,    .00021,    .00002,
     +     .00000,    .00009,    .00010,
     +     .05562,    .01402,   -.00394,    .00019,    .00002,
     +     .00000,    .00009,    .00010 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
     +     .05323,    .01337,   -.00366,    .00018,    .00002,
     +     .00000,    .00008,    .00011,
     +     .05097,    .01277,   -.00341,    .00017,    .00002,
     +     .00000,    .00008,    .00009,
     +     .04890,    .01223,   -.00319,    .00016,    .00002,
     +     .00000,    .00006,    .00009,
     +     .04705,    .01174,   -.00300,    .00014,    .00002,
     +     .00000,    .00007,    .00008,
     +     .04524,    .01126,   -.00281,    .00013,    .00002,
     +     .00000,    .00007,    .00008 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
     +     .34259,    .09848,   -.04979,    .00136,    .00000,
     +     .00000,    .00010,    .00026,
     +     .31873,    .09080,   -.04723,    .00127,    .00000,
     +     .00000,    .00016,    .00030,
     +     .28710,    .08092,   -.04277,    .00113,   -.00031,
     +     .00000,    .00022,    .00028,
     +     .26665,    .07451,   -.04041,    .00106,   -.00024,
     +     .00000,    .00024,    .00032,
     +     .24697,    .06846,   -.03770,    .00092,   -.00019,
     +     .00000,    .00023,    .00035,
     +     .23137,    .06369,   -.03539,    .00089,   -.00015,
     +     .00000,    .00024,    .00031,
     +     .21754,    .05953,   -.03325,    .00082,   -.00012,
     +     .00000,    .00024,    .00030,
     +     .20393,    .05546,   -.03096,    .00074,   -.00010,
     +     .00000,    .00020,    .00030 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
     +     .19285,    .05220,   -.02909,    .00075,   -.00009,
     +     .00000,    .00020,    .00027,
     +     .18286,    .04925,   -.02733,    .00070,   -.00007,
     +     .00000,    .00021,    .00026,
     +     .17542,    .04705,   -.02597,    .00065,   -.00006,
     +     .00000,    .00019,    .00025,
     +     .16065,    .04276,   -.02332,    .00060,   -.00005,
     +     .00000,    .00020,    .00021,
     +     .14921,    .03947,   -.02126,    .00055,   -.00004,
     +    -.00005,    .00018,    .00019,
     +     .13750,    .03614,   -.01926,    .00050,   -.00003,
     +    -.00004,    .00016,    .00019,
     +     .12647,    .03301,   -.01736,    .00045,   -.00002,
     +    -.00003,    .00016,    .00019,
     +     .11735,    .03046,   -.01575,    .00041,   -.00001,
     +    -.00002,    .00015,    .00017 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
     +     .10892,    .02811,   -.01424,    .00038,   -.00001,
     +    -.00002,    .00012,    .00013,
     +     .10249,    .02631,   -.01312,    .00034,   -.00001,
     +    -.00002,    .00011,    .00013,
     +     .09520,    .02433,   -.01187,    .00031,    .00000,
     +    -.00001,    .00012,    .00013,
     +     .08928,    .02271,   -.01088,    .00030,    .00000,
     +    -.00001,    .00010,    .00013,
     +     .08426,    .02133,   -.01002,    .00028,    .00000,
     +    -.00001,    .00009,    .00012,
     +     .07830,    .01972,   -.00900,    .00025,    .00000,
     +    -.00001,    .00009,    .00010,
     +     .07315,    .01834,   -.00815,    .00022,    .00000,
     +    -.00001,    .00008,    .00009,
     +     .06868,    .01715,   -.00743,    .00021,    .00000,
     +    -.00001,    .00007,    .00009 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
     +     .06448,    .01604,   -.00677,    .00020,    .00000,
     +    -.00001,    .00007,    .00008,
     +     .06068,    .01503,   -.00617,    .00019,    .00000,
     +    -.00001,    .00005,    .00007,
     +     .05732,    .01414,   -.00566,    .00017,    .00001,
     +     .00000,    .00006,    .00005,
     +     .05435,    .01336,   -.00522,    .00016,    .00001,
     +     .00000,    .00006,    .00005,
     +     .05156,    .01263,   -.00483,    .00014,    .00001,
     +     .00000,    .00006,    .00007,
     +     .04894,    .01196,   -.00445,    .00013,    .00001,
     +     .00000,    .00006,    .00006,
     +     .04659,    .01135,   -.00412,    .00013,    .00001,
     +     .00000,    .00004,    .00006,
     +     .04448,    .01081,   -.00384,    .00013,    .00001,
     +     .00000,    .00004,    .00006 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
     +     .04246,    .01029,   -.00357,    .00013,    .00001,
     +     .00000,    .00004,    .00005,
     +     .04058,    .00981,   -.00333,    .00012,    .00001,
     +     .00000,    .00004,    .00005,
     +     .03887,    .00937,   -.00311,    .00010,    .00001,
     +     .00000,    .00005,    .00005,
     +     .03733,    .00897,   -.00291,    .00011,    .00001,
     +     .00000,    .00003,    .00005,
     +     .03582,    .00859,   -.00272,    .00009,    .00001,
     +     .00000,    .00003,    .00003 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
     +     .30320,    .08327,   -.06134,    .00067,    .00000,
     +     .00000,    .00014,    .00024,
     +     .28056,    .07646,   -.05673,    .00068,    .00000,
     +     .00000,    .00016,    .00022,
     +     .25091,    .06757,   -.05010,    .00063,   -.00021,
     +     .00000,    .00017,    .00027,
     +     .23178,    .06200,   -.04615,    .00062,   -.00017,
     +     .00000,    .00016,    .00024,
     +     .21358,    .05665,   -.04224,    .00058,   -.00013,
     +     .00000,    .00019,    .00023,
     +     .19928,    .05253,   -.03898,    .00048,   -.00011,
     +     .00000,    .00018,    .00021,
     +     .18658,    .04890,   -.03605,    .00045,   -.00009,
     +     .00000,    .00017,    .00018,
     +     .17413,    .04537,   -.03319,    .00043,   -.00007,
     +     .00000,    .00016,    .00021 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
     +     .16413,    .04255,   -.03084,    .00041,   -.00006,
     +     .00000,    .00015,    .00019,
     +     .15511,    .04002,   -.02871,    .00038,   -.00005,
     +     .00000,    .00014,    .00019,
     +     .14837,    .03815,   -.02711,    .00036,   -.00005,
     +     .00000,    .00015,    .00018,
     +     .13518,    .03449,   -.02400,    .00033,   -.00004,
     +     .00000,    .00012,    .00016,
     +     .12500,    .03170,   -.02168,    .00028,   -.00003,
     +    -.00003,    .00012,    .00016,
     +     .11464,    .02888,   -.01941,    .00027,   -.00002,
     +    -.00002,    .00012,    .00014,
     +     .10491,    .02626,   -.01726,    .00026,   -.00002,
     +    -.00002,    .00010,    .00010,
     +     .09692,    .02412,   -.01553,    .00024,   -.00002,
     +    -.00002,    .00010,    .00009 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
     +     .08956,    .02217,   -.01394,    .00021,   -.00001,
     +    -.00001,    .00010,    .00009,
     +     .08397,    .02068,   -.01275,    .00019,   -.00001,
     +    -.00001,    .00008,    .00009,
     +     .07769,    .01904,   -.01144,    .00017,   -.00001,
     +    -.00001,    .00007,    .00008,
     +     .07259,    .01771,   -.01038,    .00016,   -.00001,
     +    -.00001,    .00007,    .00007,
     +     .06828,    .01659,   -.00951,    .00014,   -.00001,
     +    -.00001,    .00006,    .00007,
     +     .06320,    .01528,   -.00850,    .00012,   -.00001,
     +    -.00001,    .00006,    .00007,
     +     .05881,    .01416,   -.00767,    .00012,   -.00001,
     +    -.00001,    .00006,    .00006,
     +     .05501,    .01319,   -.00697,    .00013,    .00000,
     +     .00000,    .00005,    .00006 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
     +     .05153,    .01230,   -.00633,    .00010,    .00000,
     +     .00000,    .00005,    .00006,
     +     .04834,    .01149,   -.00574,    .00008,    .00000,
     +     .00000,    .00005,    .00005,
     +     .04553,    .01078,   -.00523,    .00007,    .00000,
     +     .00000,    .00003,    .00005,
     +     .04303,    .01016,   -.00481,    .00007,    .00000,
     +     .00000,    .00003,    .00005,
     +     .04068,    .00958,   -.00443,    .00007,    .00000,
     +     .00000,    .00003,    .00003,
     +     .03851,    .00903,   -.00406,    .00007,    .00000,
     +     .00000,    .00003,    .00003,
     +     .03658,    .00857,   -.00375,    .00007,    .00000,
     +     .00000,    .00003,    .00002,
     +     .03484,    .00814,   -.00349,    .00007,    .00000,
     +     .00000,    .00003,    .00002 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
     +     .03318,    .00772,   -.00324,    .00007,    .00000,
     +     .00000,    .00003,    .00002,
     +     .03164,    .00734,   -.00301,    .00006,    .00000,
     +     .00000,    .00003,    .00002,
     +     .03024,    .00700,   -.00279,    .00006,    .00000,
     +     .00000,    .00002,    .00002,
     +     .02898,    .00669,   -.00261,    .00005,    .00000,
     +     .00000,    .00002,    .00002,
     +     .02775,    .00640,   -.00244,    .00005,    .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)/
     +     .22745,    .05731,   -.06998,    .00038,    .00000,
     +     .00000,    .00005,    .00006,
     +     .20826,    .05203,   -.06275,    .00029,    .00000,
     +     .00000,    .00003,    .00006,
     +     .18341,    .04530,   -.05349,    .00023,   -.00009,
     +     .00000,    .00004,    .00008,
     +     .16766,    .04111,   -.04799,    .00021,   -.00007,
     +     .00000,    .00006,    .00009,
     +     .15282,    .03721,   -.04277,    .00019,   -.00005,
     +     .00000,    .00006,    .00007,
     +     .14124,    .03420,   -.03876,    .00018,   -.00004,
     +     .00000,    .00007,    .00009,
     +     .13111,    .03154,   -.03521,    .00018,   -.00004,
     +     .00000,    .00005,    .00009,
     +     .12132,    .02901,   -.03184,    .00017,   -.00003,
     +     .00000,    .00006,    .00008 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
     +     .11351,    .02702,   -.02914,    .00013,   -.00003,
     +     .00000,    .00006,    .00006,
     +     .10653,    .02526,   -.02679,    .00013,   -.00002,
     +     .00000,    .00004,    .00006,
     +     .10136,    .02394,   -.02506,    .00013,   -.00002,
     +     .00000,    .00005,    .00006,
     +     .09129,    .02139,   -.02174,    .00011,   -.00001,
     +     .00000,    .00005,    .00007,
     +     .08360,    .01947,   -.01932,    .00011,   -.00001,
     +    -.00001,    .00003,    .00005,
     +     .07592,    .01758,   -.01697,    .00009,   -.00001,
     +    -.00001,    .00003,    .00003,
     +     .06877,    .01582,   -.01486,    .00008,   -.00001,
     +    -.00001,    .00003,    .00003,
     +     .06294,    .01440,   -.01315,    .00008,   -.00001,
     +    -.00001,    .00002,    .00004 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
     +     .05767,    .01311,   -.01170,    .00008,   -.00001,
     +    -.00001,    .00003,    .00004,
     +     .05365,    .01215,   -.01056,    .00006,    .00000,
     +     .00000,    .00003,    .00004,
     +     .04923,    .01108,   -.00938,    .00007,    .00000,
     +     .00000,    .00003,    .00002,
     +     .04566,    .01023,   -.00843,    .00005,    .00000,
     +     .00000,    .00003,    .00002,
     +     .04266,    .00953,   -.00767,    .00004,    .00000,
     +     .00000,    .00003,    .00003,
     +     .03914,    .00871,   -.00679,    .00005,    .00000,
     +     .00000,    .00003,    .00003,
     +     .03615,    .00800,   -.00605,    .00005,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03360,    .00740,   -.00543,    .00002,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
     +     .03123,    .00685,   -.00489,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02910,    .00636,   -.00440,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02724,    .00593,   -.00400,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02561,    .00555,   -.00366,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02408,    .00520,   -.00333,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02267,    .00489,   -.00307,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02142,    .00461,   -.00282,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02030,    .00435,   -.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)/
     +     .01925,    .00412,   -.00240,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01825,    .00390,   -.00222,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01737,    .00369,   -.00206,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01656,    .00353,   -.00192,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01581,    .00334,   -.00179,    .00001,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/
     +     .15900,    .03632,   -.06326,    .00008,    .00000,
     +     .00000,   -.00001,    .00000,
     +     .14383,    .03262,   -.05585,    .00011,    .00000,
     +     .00000,    .00000,    .00003,
     +     .12456,    .02800,   -.04644,    .00010,   -.00003,
     +     .00000,    .00002,   -.00003,
     +     .11262,    .02512,   -.04094,    .00008,   -.00002,
     +     .00000,    .00002,    .00000,
     +     .10144,    .02248,   -.03583,    .00006,   -.00002,
     +     .00000,    .00000,    .00003,
     +     .09286,    .02044,   -.03200,    .00008,   -.00002,
     +     .00000,    .00001,    .00001,
     +     .08544,    .01872,   -.02871,    .00006,   -.00001,
     +     .00000,    .00001,    .00001,
     +     .07832,    .01705,   -.02559,    .00004,   -.00001,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
     +     .07269,    .01576,   -.02321,    .00004,   -.00001,
     +     .00000,    .00001,    .00001,
     +     .06770,    .01460,   -.02112,    .00004,   -.00001,
     +     .00000,    .00001,    .00001,
     +     .06402,    .01376,   -.01960,    .00004,   -.00001,
     +     .00000,    .00001,    .00001,
     +     .05697,    .01216,   -.01675,    .00002,   -.00001,
     +     .00000,    .00001,    .00001,
     +     .05166,    .01097,   -.01472,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04639,    .00979,   -.01277,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04154,    .00872,   -.01102,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03766,    .00785,   -.00965,    .00002,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
     +     .03416,    .00709,   -.00845,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .03155,    .00651,   -.00758,    .00002,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02866,    .00590,   -.00666,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02637,    .00540,   -.00594,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02444,    .00498,   -.00534,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02225,    .00451,   -.00468,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02036,    .00412,   -.00414,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01878,    .00378,   -.00370,    .00001,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
     +     .01732,    .00347,   -.00330,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01604,    .00321,   -.00297,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01490,    .00297,   -.00267,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01392,    .00276,   -.00242,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01300,    .00257,   -.00220,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01217,    .00240,   -.00200,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01143,    .00225,   -.00182,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01078,    .00212,   -.00168,    .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)/
     +     .01016,    .00199,   -.00154,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00959,    .00187,   -.00142,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00909,    .00177,   -.00132,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00863,    .00167,   -.00121,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00819,    .00158,   -.00113,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/
     +     .10131,    .02076,   -.04854,    .00004,    .00000,
     +     .00000,   -.00002,    .00001,
     +     .09049,    .01843,   -.04214,    .00004,    .00000,
     +     .00000,   -.00001,   -.00001,
     +     .07696,    .01551,   -.03440,    .00004,   -.00001,
     +     .00000,   -.00001,    .00002,
     +     .06871,    .01375,   -.02983,    .00004,   -.00001,
     +     .00000,   -.00001,   -.00001,
     +     .06109,    .01216,   -.02573,    .00004,   -.00001,
     +     .00000,   -.00001,   -.00001,
     +     .05534,    .01094,   -.02267,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .05040,    .00992,   -.02012,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04572,    .00896,   -.01777,    .00002,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
     +     .04204,    .00819,   -.01593,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03882,    .00753,   -.01437,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03648,    .00705,   -.01324,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03202,    .00615,   -.01117,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02870,    .00549,   -.00969,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02546,    .00483,   -.00830,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02253,    .00425,   -.00707,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02019,    .00379,   -.00613,    .00002,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/
     +     .01811,    .00339,   -.00531,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01657,    .00308,   -.00472,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01491,    .00276,   -.00409,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01359,    .00251,   -.00361,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01250,    .00229,   -.00322,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01125,    .00206,   -.00281,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01021,    .00186,   -.00246,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00933,    .00168,   -.00217,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/
     +     .00853,    .00154,   -.00193,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00783,    .00141,   -.00171,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00722,    .00130,   -.00153,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00669,    .00120,   -.00138,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00622,    .00111,   -.00124,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00577,    .00103,   -.00113,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00539,    .00095,   -.00102,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00506,    .00090,   -.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)/
     +     .00474,    .00083,   -.00086,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00444,    .00078,   -.00078,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00419,    .00073,   -.00072,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00395,    .00069,   -.00066,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00373,    .00065,   -.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)/
     +     .05657,    .01006,   -.03116,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04981,    .00884,   -.02671,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04151,    .00731,   -.02138,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03653,    .00642,   -.01831,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03201,    .00559,   -.01556,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02862,    .00497,   -.01355,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02577,    .00445,   -.01188,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02308,    .00397,   -.01036,    .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)/
     +     .02102,    .00359,   -.00920,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01920,    .00330,   -.00824,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01791,    .00304,   -.00751,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01547,    .00262,   -.00625,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01368,    .00229,   -.00535,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01196,    .00199,   -.00451,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01042,    .00173,   -.00379,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00921,    .00153,   -.00324,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=17,24)/
     +     .00816,    .00136,   -.00278,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00739,    .00122,   -.00244,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00656,    .00108,   -.00210,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00593,    .00096,   -.00184,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00539,    .00087,   -.00161,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00479,    .00078,   -.00139,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00431,    .00069,   -.00121,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00390,    .00063,   -.00105,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/
     +     .00352,    .00056,   -.00092,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00321,    .00050,   -.00081,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00292,    .00047,   -.00072,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00268,    .00043,   -.00064,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00246,    .00040,   -.00057,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00227,    .00036,   -.00052,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00211,    .00033,   -.00047,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00197,    .00031,   -.00043,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/
     +     .00183,    .00028,   -.00038,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00170,    .00026,   -.00035,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00159,    .00024,   -.00031,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00150,    .00023,   -.00029,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00141,    .00022,   -.00026,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/
     +     .00827,    .00107,   -.00581,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00698,    .00089,   -.00478,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00547,    .00069,   -.00361,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00461,    .00057,   -.00296,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00387,    .00048,   -.00242,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00332,    .00042,   -.00203,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00290,    .00036,   -.00173,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00251,    .00031,   -.00146,    .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)/
     +     .00221,    .00028,   -.00126,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00197,    .00023,   -.00110,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00180,    .00023,   -.00099,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00147,    .00018,   -.00078,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00125,    .00015,   -.00065,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00104,    .00013,   -.00052,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00088,    .00011,   -.00042,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00075,    .00009,   -.00035,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/
     +     .00064,    .00007,   -.00029,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00056,    .00007,   -.00025,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00048,    .00005,   -.00020,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00041,    .00005,   -.00017,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00037,    .00005,   -.00015,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00032,    .00003,   -.00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00027,    .00003,   -.00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00024,    .00003,   -.00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
     +     .00022,    .00003,   -.00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00019,    .00003,   -.00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00017,    .00001,   -.00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00016,    .00001,   -.00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00014,    .00001,   -.00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00012,    .00001,   -.00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00011,    .00001,   -.00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00010,    .00001,   -.00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
     +     .00009,    .00001,   -.00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00008,    .00001,   -.00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00008,    .00001,   -.00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00007,    .00001,   -.00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00007,    .00001,   -.00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
      data xx/1d-5,2d-5,4d-5,6d-5,8d-5,
     .            1d-4,2d-4,4d-4,6d-4,8d-4,
     .            1d-3,2d-3,4d-3,6d-3,8d-3,
     .            1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2,
     .         .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0,
     .         .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0,
     .         .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0,
     .         .8d0,.9d0,1d0/
      data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1,
     .        1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2,
     .        1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4,
     .        1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6,
     .        1.8d6,3.2d6,5.6d6,1d7/
      data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/
      data n0/3,4,5,9,9,9,9,9/
      DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
      data init/0/
      save
      xsave=x
      q2save=qsq
      if(init.ne.0) goto 10
C        open(unit=1,file='ft08d.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