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

sfmrs_98ht1.F

#include "pdf/pilot.h"
      subroutine sfmrs_98ht1(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)/
     +     .00536,    .00167,   1.07366,    .84905,    .00000,
     +     .00000,    .45376,    .86085,
     +     .00551,    .00173,   2.34503,    .88658,    .00000,
     +     .00000,    .49596,    .89843,
     +     .00573,    .00182,   4.92296,    .96518,    .03300,
     +     .00000,    .58126,    .97710,
     +     .00589,    .00189,   7.35828,   1.04126,    .11070,
     +     .00000,    .66205,   1.05322,
     +     .00607,    .00196,  10.46601,   1.14109,    .20271,
     +     .00000,    .76670,   1.15307,
     +     .00622,    .00202,  13.66662,   1.24328,    .29814,
     +     .00000,    .87294,   1.25529,
     +     .00637,    .00208,  17.26659,   1.35509,    .40705,
     +     .00000,    .98854,   1.36711,
     +     .00652,    .00215,  21.68534,   1.48983,    .54064,
     +     .00000,   1.12722,   1.50186 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
     +     .00666,    .00221,  25.91711,   1.62298,    .66628,
     +     .00000,   1.26372,   1.63502,
     +     .00679,    .00227,  30.53135,   1.76374,    .80471,
     +     .00000,   1.40764,   1.77577,
     +     .00690,    .00232,  34.50427,   1.88516,    .92331,
     +     .00000,   1.53152,   1.89719,
     +     .00713,    .00242,  43.94698,   2.17363,   1.20718,
     +     .00395,   1.82514,   2.18565,
     +     .00732,    .00251,  53.13801,   2.45608,   1.48540,
     +     .29199,   2.11191,   2.46809,
     +     .00755,    .00261,  64.70422,   2.81137,   1.83686,
     +     .70822,   2.47191,   2.82336,
     +     .00779,    .00272,  78.27129,   3.22743,   2.24938,
     +    1.13923,   2.89272,   3.23939,
     +     .00800,    .00282,  91.98939,   3.64744,   2.66708,
     +    1.57828,   3.31694,   3.65937 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
     +     .00822,    .00292, 107.22942,   4.11456,   3.13273,
     +    2.06454,   3.78819,   4.12645,
     +     .00841,    .00301, 120.75614,   4.53438,   3.54731,
     +    2.48457,   4.21137,   4.54623,
     +     .00864,    .00312, 138.57660,   5.08646,   4.09645,
     +    3.05067,   4.76743,   5.09826,
     +     .00884,    .00321, 155.63574,   5.61578,   4.62504,
     +    3.59830,   5.30020,   5.62755,
     +     .00903,    .00330, 172.12344,   6.13296,   5.13893,
     +    4.12323,   5.82047,   6.14468,
     +     .00927,    .00342, 194.46065,   6.83676,   5.83997,
     +    4.84187,   6.52811,   6.84843,
     +     .00950,    .00353, 216.96405,   7.54940,   6.55159,
     +    5.57319,   7.24428,   7.56101,
     +     .00972,    .00364, 239.21292,   8.26052,   7.26088,
     +    6.29892,   7.95864,   8.27208 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
     +     .00994,    .00374, 262.54480,   9.01326,   8.01116,
     +    7.06460,   8.71455,   9.02476,
     +     .01015,    .00385, 286.74893,   9.79710,   8.79513,
     +    7.86834,   9.50143,   9.80855,
     +     .01036,    .00395, 310.40958,  10.57355,   9.56909,
     +    8.65605,  10.28071,  10.58495,
     +     .01056,    .00405, 333.81387,  11.34473,  10.34004,
     +    9.44382,  11.05450,  11.35607,
     +     .01076,    .00415, 358.09024,  12.15277,  11.14679,
     +   10.26549,  11.86512,  12.16405,
     +     .01096,    .00425, 382.89621,  12.98394,  11.97761,
     +   11.11258,  12.69879,  12.99517,
     +     .01115,    .00434, 407.20178,  13.80567,  12.79861,
     +   11.94820,  13.52286,  13.81685,
     +     .01133,    .00443, 430.98587,  14.61463,  13.60775,
     +   12.77272,  14.33399,  14.62576 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
     +     .01151,    .00452, 455.46976,  15.45604,  14.44818,
     +   13.62665,  15.17757,  15.46712,
     +     .01170,    .00462, 480.59732,  16.32243,  15.31565,
     +   14.51080,  16.04607,  16.33346,
     +     .01187,    .00471, 504.74573,  17.16635,  16.15831,
     +   15.36551,  16.89197,  17.17733,
     +     .01204,    .00479, 528.58826,  18.00098,  16.99398,
     +   16.21615,  17.72847,  18.01192,
     +     .01221,    .00488, 552.92731,  18.86252,  17.85521,
     +   17.09024,  18.59186,  18.87341 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
     +     .00719,    .00234,   1.03842,    .72495,    .00000,
     +     .00000,    .38698,    .73179,
     +     .00740,    .00243,   2.19091,    .75939,    .00000,
     +     .00000,    .42513,    .76626,
     +     .00771,    .00256,   4.46910,    .82883,    .02862,
     +     .00000,    .49985,    .83573,
     +     .00794,    .00266,   6.57383,    .89431,    .09549,
     +     .00000,    .56905,    .90123,
     +     .00819,    .00277,   9.21174,    .97871,    .17323,
     +     .00000,    .65724,    .98564,
     +     .00840,    .00287,  11.88645,   1.06402,    .25282,
     +     .00000,    .74574,   1.07097,
     +     .00860,    .00296,  14.85589,   1.15652,    .34275,
     +     .00000,    .84121,   1.16347,
     +     .00882,    .00306,  18.45497,   1.26704,    .45196,
     +     .00000,    .95482,   1.27399 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
     +     .00901,    .00314,  21.85939,   1.37516,    .55365,
     +     .00000,   1.06556,   1.38211,
     +     .00920,    .00323,  25.53577,   1.48875,    .66492,
     +     .00000,   1.18163,   1.49571,
     +     .00935,    .00330,  28.67350,   1.58612,    .75961,
     +     .00000,   1.28093,   1.59308,
     +     .00966,    .00345,  36.04241,   1.81556,    .98428,
     +     .00332,   1.51439,   1.82251,
     +     .00994,    .00358,  43.10920,   2.03793,   1.20217,
     +     .22845,   1.74013,   2.04488,
     +     .01025,    .00373,  51.88349,   2.31499,   1.47470,
     +     .55146,   2.02086,   2.32192,
     +     .01058,    .00388,  62.03741,   2.63618,   1.79133,
     +     .88174,   2.34576,   2.64310,
     +     .01088,    .00403,  72.17562,   2.95738,   2.10889,
     +    1.21490,   2.67022,   2.96428 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
     +     .01119,    .00418,  83.30910,   3.31147,   2.45982,
     +    1.58054,   3.02754,   3.31836,
     +     .01144,    .00430,  93.08443,   3.62708,   2.76963,
     +    1.89350,   3.34575,   3.63395,
     +     .01175,    .00445, 105.83870,   4.03901,   3.17700,
     +    2.31234,   3.76078,   4.04586,
     +     .01203,    .00459, 117.92908,   4.43096,   3.56620,
     +    2.71451,   4.15540,   4.43779,
     +     .01229,    .00472, 129.50784,   4.81119,   3.94187,
     +    3.09708,   4.53804,   4.81800,
     +     .01262,    .00488, 145.05179,   5.32490,   4.45074,
     +    3.61720,   5.05472,   5.33168,
     +     .01293,    .00504, 160.56244,   5.84112,   4.96348,
     +    4.14263,   5.57368,   5.84788,
     +     .01323,    .00519, 175.75923,   6.35255,   5.47092,
     +    4.66027,   6.08761,   6.35928 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
     +     .01353,    .00534, 191.55969,   6.89022,   6.00407,
     +    5.20271,   6.62775,   6.89693,
     +     .01382,    .00549, 207.82555,   7.44662,   6.55783,
     +    5.76884,   7.18650,   7.45330,
     +     .01411,    .00563, 223.59541,   7.99420,   7.10096,
     +    6.31990,   7.73627,   8.00085,
     +     .01437,    .00577, 239.09113,   8.53511,   7.63916,
     +    6.86827,   8.27920,   8.54174,
     +     .01464,    .00591, 255.05145,   9.09869,   8.19922,
     +    7.43698,   8.84479,   9.10529,
     +     .01491,    .00605, 271.25513,   9.67535,   8.77305,
     +    8.02039,   9.42339,   9.68194,
     +     .01517,    .00618, 287.03018,  10.24254,   9.33720,
     +    8.59293,   9.99238,  10.24909,
     +     .01541,    .00630, 302.37918,  10.79831,   9.89072,
     +    9.15541,  10.54985,  10.80485 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
     +     .01566,    .00643, 318.08453,  11.37361,  10.46287,
     +    9.73507,  11.12683,  11.38012,
     +     .01591,    .00656, 334.12378,  11.96352,  11.05113,
     +   10.33306,  11.71838,  11.97001,
     +     .01615,    .00668, 349.44098,  12.53534,  11.61972,
     +   10.90811,  12.29173,  12.54181,
     +     .01637,    .00680, 364.50284,  13.09885,  12.18174,
     +   11.47871,  12.85669,  13.10530,
     +     .01660,    .00692, 379.79202,  13.67801,  12.75840,
     +   12.06236,  13.43729,  13.68444 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
     +     .00964,    .00328,   1.00535,    .61869,    .00000,
     +     .00000,    .33011,    .62207,
     +     .00994,    .00341,   2.04826,    .65013,    .00000,
     +     .00000,    .36447,    .65352,
     +     .01038,    .00361,   4.05841,    .71137,    .02482,
     +     .00000,    .42988,    .71477,
     +     .01070,    .00376,   5.87410,    .76770,    .08234,
     +     .00000,    .48913,    .77110,
     +     .01105,    .00392,   8.10844,    .83901,    .14799,
     +     .00000,    .56342,    .84241,
     +     .01134,    .00406,  10.33824,    .91015,    .21433,
     +     .00000,    .63706,    .91356,
     +     .01163,    .00420,  12.78112,    .98657,    .28852,
     +     .00000,    .71582,    .98998,
     +     .01193,    .00435,  15.70418,   1.07706,    .37770,
     +     .00000,    .80872,   1.08047 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
     +     .01220,    .00447,  18.43434,   1.16466,    .45991,
     +     .00000,    .89836,   1.16807,
     +     .01246,    .00460,  21.35378,   1.25611,    .54923,
     +     .00000,    .99175,   1.25953,
     +     .01266,    .00470,  23.82321,   1.33398,    .62472,
     +     .00000,   1.07113,   1.33740,
     +     .01310,    .00492,  29.55217,   1.51593,    .80224,
     +     .00279,   1.25621,   1.51934,
     +     .01349,    .00511,  34.96305,   1.69042,    .97256,
     +     .17864,   1.43332,   1.69383,
     +     .01392,    .00532,  41.58953,   1.90569,   1.18346,
     +     .42918,   1.65143,   1.90910,
     +     .01437,    .00555,  49.15274,   2.15268,   1.42594,
     +     .68208,   1.90130,   2.15609,
     +     .01479,    .00575,  56.60747,   2.39730,   1.66679,
     +     .93467,   2.14845,   2.40070 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
     +     .01521,    .00597,  64.69772,   2.66456,   1.93057,
     +    1.20933,   2.41820,   2.66796,
     +     .01556,    .00615,  71.72224,   2.90075,   2.16144,
     +    1.44222,   2.65640,   2.90414,
     +     .01599,    .00637,  80.79737,   3.20668,   2.46274,
     +    1.75169,   2.96472,   3.21007,
     +     .01637,    .00656,  89.31448,   3.49551,   2.74842,
     +    2.04658,   3.25562,   3.49890,
     +     .01672,    .00674,  97.39431,   3.77367,   3.02214,
     +    2.32491,   3.53562,   3.77705,
     +     .01718,    .00698, 108.14007,   4.14671,   3.39025,
     +    2.70063,   3.91096,   4.15008,
     +     .01760,    .00720, 118.75827,   4.51869,   3.75835,
     +    3.07735,   4.28504,   4.52205,
     +     .01801,    .00741, 129.06477,   4.88451,   4.12001,
     +    3.44573,   4.65280,   4.88788 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
     +     .01841,    .00762, 139.68611,   5.26644,   4.49737,
     +    3.82906,   5.03662,   5.26980,
     +     .01881,    .00783, 150.53505,   5.65917,   4.88694,
     +    4.22679,   5.43116,   5.66253,
     +     .01919,    .00803, 160.96306,   6.04311,   5.26645,
     +    4.61120,   5.81678,   6.04646,
     +     .01956,    .00822, 171.14047,   6.42027,   5.64053,
     +    4.99180,   6.19550,   6.42362,
     +     .01992,    .00841, 181.54625,   6.81099,   6.02758,
     +    5.38420,   6.58776,   6.81433,
     +     .02029,    .00861, 192.04066,   7.20864,   6.42207,
     +    5.78468,   6.98690,   7.21198,
     +     .02063,    .00879, 202.18962,   7.59770,   6.80789,
     +    6.17563,   7.37735,   7.60103,
     +     .02096,    .00897, 212.00702,   7.97712,   7.18469,
     +    6.55798,   7.75807,   7.98045 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
     +     .02130,    .00914, 221.98849,   8.36793,   7.57225,
     +    6.95001,   8.15017,   8.37126,
     +     .02163,    .00932, 232.13167,   8.76699,   7.96914,
     +    7.35293,   8.55048,   8.77031,
     +     .02195,    .00949, 241.75287,   9.15186,   8.35077,
     +    7.73825,   8.93654,   9.15518,
     +     .02225,    .00965, 251.17508,   9.52979,   8.72674,
     +    8.11945,   9.31558,   9.53311,
     +     .02256,    .00982, 260.68295,   9.91646,   9.11074,
     +    8.50752,   9.70335,   9.91978 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
     +     .01145,    .00399,    .98733,    .56377,    .00000,
     +     .00000,    .30085,    .56571,
     +     .01181,    .00416,   1.97023,    .59350,    .00000,
     +     .00000,    .33314,    .59545,
     +     .01235,    .00442,   3.83695,    .65035,    .02282,
     +     .00000,    .39362,    .65230,
     +     .01274,    .00461,   5.50070,    .70191,    .07549,
     +     .00000,    .44772,    .70386,
     +     .01316,    .00481,   7.52587,    .76649,    .13494,
     +     .00000,    .51489,    .76845,
     +     .01352,    .00499,   9.52792,    .83042,    .19454,
     +     .00000,    .58099,    .83238,
     +     .01387,    .00516,  11.70403,    .89871,    .26080,
     +     .00000,    .65130,    .90067,
     +     .01424,    .00534,  14.28805,    .97912,    .33996,
     +     .00000,    .73381,    .98109 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
     +     .01456,    .00550,  16.68331,   1.05648,    .41250,
     +     .00000,    .81293,   1.05845,
     +     .01488,    .00566,  19.22975,   1.13693,    .49098,
     +     .00000,    .89506,   1.13890,
     +     .01512,    .00578,  21.37216,   1.20516,    .55704,
     +     .00000,    .96459,   1.20713,
     +     .01566,    .00605,  26.30630,   1.36376,    .71156,
     +     .00252,   1.12590,   1.36574,
     +     .01612,    .00629,  30.92401,   1.51490,    .85887,
     +     .15464,   1.27930,   1.51688,
     +     .01664,    .00655,  36.53278,   1.70026,   1.04019,
     +     .37048,   1.46711,   1.70224,
     +     .01719,    .00684,  42.88180,   1.91163,   1.24736,
     +     .58670,   1.68095,   1.91361,
     +     .01769,    .00709,  49.09166,   2.11975,   1.45196,
     +     .80140,   1.89125,   2.12173 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
     +     .01820,    .00736,  55.78353,   2.34592,   1.67483,
     +    1.03355,   2.11957,   2.34791,
     +     .01862,    .00758,  61.55486,   2.54477,   1.86889,
     +    1.22932,   2.32015,   2.54676,
     +     .01914,    .00785,  68.96731,   2.80117,   2.12104,
     +    1.48833,   2.57860,   2.80317,
     +     .01960,    .00809,  75.88239,   3.04213,   2.35902,
     +    1.73404,   2.82133,   3.04413,
     +     .02002,    .00831,  82.40514,   3.27317,   2.58604,
     +    1.96486,   3.05395,   3.27517,
     +     .02056,    .00860,  91.03155,   3.58166,   2.89002,
     +    2.27512,   3.36441,   3.58367,
     +     .02108,    .00887,  99.50561,   3.88785,   3.19264,
     +    2.58483,   3.67241,   3.88987,
     +     .02156,    .00912, 107.68463,   4.18767,   3.48866,
     +    2.88632,   3.97389,   4.18969 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
     +     .02205,    .00938, 116.06854,   4.49939,   3.79625,
     +    3.19872,   4.28722,   4.50141,
     +     .02253,    .00964, 124.59209,   4.81872,   4.11265,
     +    3.52174,   4.60810,   4.82075,
     +     .02298,    .00988, 132.74217,   5.12965,   4.41963,
     +    3.83260,   4.92047,   5.13169,
     +     .02341,    .01011, 140.66399,   5.43409,   4.72126,
     +    4.13946,   5.22625,   5.43613,
     +     .02385,    .01035, 148.72778,   5.74839,   5.03226,
     +    4.45471,   5.54186,   5.75044,
     +     .02428,    .01058, 156.82761,   6.06725,   5.34827,
     +    4.77546,   5.86200,   6.06930,
     +     .02469,    .01080, 164.62900,   6.37822,   5.65635,
     +    5.08758,   6.17417,   6.38028,
     +     .02509,    .01102, 172.14906,   6.68065,   5.95642,
     +    5.39202,   6.47770,   6.68272 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
     +     .02549,    .01123, 179.76508,   6.99123,   6.26411,
     +    5.70320,   6.78938,   6.99330,
     +     .02588,    .01145, 187.48125,   7.30758,   6.57849,
     +    6.02232,   7.10681,   7.30966,
     +     .02626,    .01165, 194.77003,   7.61174,   6.87981,
     +    6.32648,   7.41198,   7.61383,
     +     .02662,    .01185, 201.89078,   7.90979,   7.17610,
     +    6.62686,   7.71098,   7.91188,
     +     .02699,    .01205, 209.04984,   8.21390,   7.47786,
     +    6.93175,   8.01604,   8.21600 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
     +     .01293,    .00460,    .97532,    .52772,    .00000,
     +     .00000,    .28172,    .52889,
     +     .01335,    .00480,   1.91739,    .55626,    .00000,
     +     .00000,    .31258,    .55743,
     +     .01397,    .00510,   3.68789,    .61017,    .02151,
     +     .00000,    .36978,    .61134,
     +     .01442,    .00532,   5.25082,    .65857,    .07097,
     +     .00000,    .42049,    .65975,
     +     .01490,    .00556,   7.13843,    .71875,    .12636,
     +     .00000,    .48302,    .71993,
     +     .01532,    .00577,   8.99185,    .77799,    .18159,
     +     .00000,    .54422,    .77918,
     +     .01572,    .00597,  10.99501,    .84101,    .24271,
     +     .00000,    .60907,    .84220,
     +     .01614,    .00619,  13.36062,    .91493,    .31544,
     +     .00000,    .68488,    .91612 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
     +     .01651,    .00637,  15.54148,    .98570,    .38178,
     +     .00000,    .75726,    .98690,
     +     .01687,    .00656,  17.85029,   1.05911,    .45334,
     +     .00000,    .83218,   1.06031,
     +     .01716,    .00670,  19.78531,   1.12118,    .51340,
     +     .00000,    .89542,   1.12239,
     +     .01777,    .00702,  24.21840,   1.26494,    .65337,
     +     .00234,   1.04162,   1.26615,
     +     .01830,    .00729,  28.33981,   1.40130,    .78618,
     +     .13955,   1.18002,   1.40252,
     +     .01889,    .00760,  33.31612,   1.56783,    .94896,
     +     .33367,   1.34875,   1.56905,
     +     .01952,    .00793,  38.91583,   1.75686,   1.13411,
     +     .52707,   1.54002,   1.75810,
     +     .02009,    .00823,  44.36244,   1.94222,   1.31620,
     +     .71830,   1.72734,   1.94346 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
     +     .02067,    .00853,  50.20193,   2.14289,   1.51381,
     +     .92426,   1.92993,   2.14414,
     +     .02115,    .00879,  55.21366,   2.31865,   1.68521,
     +    1.09724,   2.10725,   2.31991,
     +     .02174,    .00910,  61.62326,   2.54456,   1.90722,
     +    1.32541,   2.33500,   2.54583,
     +     .02227,    .00938,  67.57710,   2.75615,   2.11608,
     +    1.54115,   2.54818,   2.75743,
     +     .02275,    .00964,  73.16987,   2.95838,   2.31467,
     +    1.74315,   2.75184,   2.95967,
     +     .02337,    .00997,  80.53642,   3.22757,   2.57977,
     +    2.01382,   3.02279,   3.22887,
     +     .02395,    .01028,  87.74228,   3.49387,   2.84282,
     +    2.28314,   3.29072,   3.49519,
     +     .02450,    .01058,  94.66880,   3.75381,   3.09933,
     +    2.54447,   3.55214,   3.75514 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
     +     .02505,    .01088, 101.74133,   4.02325,   3.36508,
     +    2.81444,   3.82303,   4.02459,
     +     .02559,    .01117, 108.90739,   4.29852,   3.63772,
     +    3.09287,   4.09969,   4.29988,
     +     .02611,    .01145, 115.73319,   4.56579,   3.90146,
     +    3.36001,   4.36825,   4.56716,
     +     .02660,    .01172, 122.34842,   4.82686,   4.16002,
     +    3.62313,   4.63051,   4.82824,
     +     .02710,    .01199, 129.06027,   5.09571,   4.42595,
     +    3.89274,   4.90054,   5.09710,
     +     .02758,    .01225, 135.78253,   5.36783,   4.69555,
     +    4.16646,   5.17381,   5.36924,
     +     .02805,    .01251, 142.23796,   5.63263,   4.95779,
     +    4.43220,   5.43967,   5.63405,
     +     .02850,    .01275, 148.44466,   5.88962,   5.21271,
     +    4.69090,   5.69766,   5.89105 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
     +     .02895,    .01300, 154.71246,   6.15297,   5.47354,
     +    4.95472,   5.96200,   6.15442,
     +     .02939,    .01324, 161.04927,   6.42074,   5.73958,
     +    5.22486,   6.23074,   6.42220,
     +     .02982,    .01348, 167.01649,   6.67762,   5.99399,
     +    5.48170,   6.48852,   6.67909,
     +     .03023,    .01370, 172.83618,   6.92897,   6.24380,
     +    5.73502,   6.74072,   6.93045,
     +     .03064,    .01393, 178.67113,   7.18491,   6.49771,
     +    5.99162,   6.99751,   7.18641 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
     +     .01422,    .00513,    .96654,    .50133,    .00000,
     +     .00000,    .26775,    .50202,
     +     .01468,    .00536,   1.87794,    .52896,    .00000,
     +     .00000,    .29754,    .52965,
     +     .01537,    .00570,   3.57681,    .58067,    .02053,
     +     .00000,    .35231,    .58137,
     +     .01588,    .00596,   5.06527,    .62676,    .06764,
     +     .00000,    .40053,    .62746,
     +     .01641,    .00623,   6.85195,    .68372,    .12007,
     +     .00000,    .45967,    .68443,
     +     .01687,    .00646,   8.59693,    .73954,    .17212,
     +     .00000,    .51731,    .74026,
     +     .01732,    .00669,  10.47453,    .79874,    .22952,
     +     .00000,    .57820,    .79946,
     +     .01779,    .00693,  12.68232,    .86795,    .29759,
     +     .00000,    .64917,    .86868 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
     +     .01820,    .00715,  14.70895,    .93398,    .35949,
     +     .00000,    .71668,    .93471,
     +     .01860,    .00735,  16.84746,   1.00232,    .42609,
     +     .00000,    .78642,   1.00306,
     +     .01892,    .00752,  18.63432,   1.05997,    .48185,
     +     .00000,    .84516,   1.06072,
     +     .01960,    .00787,  22.71110,   1.19310,    .61143,
     +     .00221,    .98054,   1.19386,
     +     .02019,    .00818,  26.48153,   1.31893,    .73394,
     +     .12884,   1.10825,   1.31969,
     +     .02085,    .00853,  31.01285,   1.47207,    .88358,
     +     .30758,   1.26343,   1.47285,
     +     .02154,    .00890,  36.08804,   1.64530,   1.05320,
     +     .48490,   1.43872,   1.64609,
     +     .02217,    .00923,  41.00293,   1.81460,   1.21946,
     +     .65966,   1.60984,   1.81541 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
     +     .02282,    .00958,  46.25126,   1.99734,   1.39935,
     +     .84730,   1.79434,   1.99816,
     +     .02335,    .00986,  50.73832,   2.15692,   1.55494,
     +    1.00439,   1.95536,   2.15776,
     +     .02400,    .01021,  56.45786,   2.36152,   1.75595,
     +    1.21111,   2.16165,   2.36237,
     +     .02458,    .01053,  61.75263,   2.55264,   1.94456,
     +    1.40607,   2.35424,   2.55351,
     +     .02512,    .01082,  66.71004,   2.73487,   2.12346,
     +    1.58811,   2.53778,   2.73575,
     +     .02580,    .01118,  73.21898,   2.97682,   2.36169,
     +    1.83148,   2.78136,   2.97772,
     +     .02644,    .01153,  79.56464,   3.21556,   2.59748,
     +    2.07301,   3.02159,   3.21648,
     +     .02705,    .01186,  85.64461,   3.44802,   2.82684,
     +    2.30678,   3.25541,   3.44895 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
     +     .02766,    .01220,  91.83363,   3.68840,   3.06389,
     +    2.54771,   3.49713,   3.68936,
     +     .02826,    .01253,  98.08781,   3.93348,   3.30660,
     +    2.79570,   3.74349,   3.93445,
     +     .02883,    .01284, 104.02700,   4.17088,   3.54084,
     +    3.03304,   3.98207,   4.17187,
     +     .02937,    .01313, 109.76957,   4.40234,   3.77007,
     +    3.26641,   4.21464,   4.40336,
     +     .02991,    .01343, 115.58098,   4.64025,   4.00537,
     +    3.50507,   4.45363,   4.64128,
     +     .03045,    .01373, 121.38802,   4.88062,   4.24350,
     +    3.74694,   4.69505,   4.88166,
     +     .03097,    .01401, 126.95146,   5.11409,   4.47472,
     +    3.98132,   4.92951,   5.11516,
     +     .03145,    .01428, 132.28967,   5.34032,   4.69912,
     +    4.20915,   5.15665,   5.34140 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
     +     .03195,    .01456, 137.66817,   5.57176,   4.92834,
     +    4.44108,   5.38900,   5.57286,
     +     .03244,    .01483, 143.09676,   5.80675,   5.16183,
     +    4.67826,   5.62488,   5.80787,
     +     .03291,    .01509, 148.19577,   6.03179,   5.38470,
     +    4.90333,   5.85075,   6.03293,
     +     .03336,    .01534, 153.16234,   6.25173,   5.60330,
     +    5.12511,   6.07147,   6.25288,
     +     .03381,    .01559, 158.13075,   6.47533,   5.82514,
     +    5.34936,   6.29586,   6.47651 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
     +     .01910,    .00723,    .94341,    .42739,    .00000,
     +     .00000,    .22881,    .42723,
     +     .01976,    .00758,   1.76485,    .45230,    .00000,
     +     .00000,    .25545,    .45215,
     +     .02072,    .00809,   3.25669,    .49764,    .01777,
     +     .00000,    .30324,    .49752,
     +     .02142,    .00846,   4.53288,    .53714,    .05820,
     +     .00000,    .34445,    .53704,
     +     .02217,    .00886,   6.03519,    .58508,    .10234,
     +     .00000,    .39413,    .58500,
     +     .02281,    .00921,   7.47771,    .63141,    .14557,
     +     .00000,    .44190,    .63134,
     +     .02343,    .00954,   9.00804,    .68003,    .19273,
     +     .00000,    .49188,    .67998,
     +     .02409,    .00990,  10.78297,    .73633,    .24805,
     +     .00000,    .54957,    .73630 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
     +     .02466,    .01021,  12.39003,    .78939,    .29782,
     +     .00000,    .60381,    .78938,
     +     .02521,    .01051,  14.06824,    .84393,    .35096,
     +     .00000,    .65946,    .84394,
     +     .02565,    .01075,  15.45699,    .88961,    .39514,
     +     .00000,    .70599,    .88963,
     +     .02659,    .01127,  18.58388,    .99409,    .49684,
     +     .00185,    .81226,    .99414,
     +     .02740,    .01171,  21.42773,   1.09170,    .59189,
     +     .10035,    .91136,   1.09178,
     +     .02832,    .01222,  24.79475,   1.20922,    .70676,
     +     .23839,   1.03049,   1.20934,
     +     .02927,    .01275,  28.51000,   1.34067,    .83551,
     +     .37351,   1.16357,   1.34082,
     +     .03014,    .01323,  32.05788,   1.46780,    .96041,
     +     .50529,   1.29212,   1.46799 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
     +     .03102,    .01372,  35.79813,   1.60369,   1.09426,
     +     .64540,   1.42942,   1.60392,
     +     .03176,    .01413,  38.95640,   1.72127,   1.20894,
     +     .76152,   1.54812,   1.72153,
     +     .03265,    .01462,  42.93951,   1.87078,   1.35593,
     +     .91318,   1.69896,   1.87108,
     +     .03344,    .01507,  46.58693,   2.00930,   1.49274,
     +    1.05505,   1.83864,   2.00963,
     +     .03417,    .01548,  49.96593,   2.14032,   1.62146,
     +    1.18641,   1.97069,   2.14069,
     +     .03510,    .01600,  54.35711,   2.31293,   1.79154,
     +    1.36067,   2.14457,   2.31334,
     +     .03598,    .01649,  58.59236,   2.48184,   1.95853,
     +    1.53222,   2.31465,   2.48229,
     +     .03680,    .01695,  62.60795,   2.64502,   2.11967,
     +    1.69693,   2.47889,   2.64550 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
     +     .03763,    .01742,  66.65498,   2.81249,   2.28497,
     +    1.86537,   2.64741,   2.81301,
     +     .03844,    .01788,  70.70985,   2.98208,   2.45313,
     +    2.03768,   2.81801,   2.98265,
     +     .03921,    .01831,  74.52213,   3.14517,   2.61420,
     +    2.20129,   2.98203,   3.14578,
     +     .03994,    .01872,  78.18091,   3.30326,   2.77094,
     +    2.36130,   3.14098,   3.30390,
     +     .04067,    .01914,  81.85229,   3.46472,   2.93082,
     +    2.52386,   3.30329,   3.46540,
     +     .04140,    .01955,  85.49360,   3.62692,   3.09171,
     +    2.68770,   3.46631,   3.62764,
     +     .04209,    .01994,  88.95525,   3.78357,   3.24703,
     +    2.84554,   3.62373,   3.78432,
     +     .04275,    .02031,  92.25501,   3.93459,   3.39703,
     +    2.99822,   3.77547,   3.93538 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
     +     .04341,    .02069,  95.55453,   4.08824,   3.54939,
     +    3.15276,   3.92983,   4.08907,
     +     .04407,    .02106,  98.86702,   4.24357,   3.70396,
     +    3.31018,   4.08586,   4.24443,
     +     .04470,    .02142, 101.95220,   4.39147,   3.85061,
     +    3.45861,   4.23441,   4.39236,
     +     .04529,    .02176, 104.94468,   4.53549,   3.99397,
     +    3.60443,   4.37904,   4.53642,
     +     .04590,    .02211, 107.91605,   4.68117,   4.13869,
     +    3.75107,   4.52533,   4.68213 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
     +     .02575,    .01028,    .93025,    .36456,    .00000,
     +     .00000,    .19598,    .36437,
     +     .02666,    .01079,   1.66943,    .38687,    .00000,
     +     .00000,    .21970,    .38672,
     +     .02800,    .01155,   2.97501,    .42645,    .01534,
     +     .00000,    .26129,    .42636,
     +     .02899,    .01211,   4.06404,    .46018,    .04995,
     +     .00000,    .29640,    .46013,
     +     .03002,    .01269,   5.32011,    .50035,    .08699,
     +     .00000,    .33800,    .50035,
     +     .03092,    .01320,   6.50478,    .53862,    .12275,
     +     .00000,    .37744,    .53866,
     +     .03178,    .01369,   7.74297,    .57836,    .16133,
     +     .00000,    .41828,    .57844,
     +     .03269,    .01421,   9.15851,    .62388,    .20609,
     +     .00000,    .46494,    .62400 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
     +     .03348,    .01466,  10.42173,    .66625,    .24589,
     +     .00000,    .50827,    .66642,
     +     .03425,    .01510,  11.72652,    .70949,    .28808,
     +     .00000,    .55241,    .70969,
     +     .03486,    .01545,  12.79530,    .74541,    .32288,
     +     .00000,    .58903,    .74564,
     +     .03616,    .01619,  15.16830,    .82677,    .40220,
     +     .00154,    .67185,    .82707,
     +     .03728,    .01684,  17.28822,    .90185,    .47546,
     +     .07776,    .74814,    .90221,
     +     .03854,    .01756,  19.75855,    .99122,    .56300,
     +     .18381,    .83882,    .99165,
     +     .03985,    .01832,  22.44162,   1.08999,    .65998,
     +     .28617,    .93892,   1.09050,
     +     .04104,    .01901,  24.96601,   1.18448,    .75305,
     +     .38493,   1.03457,   1.18505 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
     +     .04225,    .01970,  27.59118,   1.28445,    .85178,
     +     .48885,   1.13568,   1.28509,
     +     .04325,    .02028,  29.77843,   1.37009,    .93553,
     +     .57409,   1.22224,   1.37078,
     +     .04447,    .02099,  32.50594,   1.47807,   1.04200,
     +     .68452,   1.33131,   1.47884,
     +     .04555,    .02161,  34.97480,   1.57725,   1.14025,
     +     .78696,   1.43143,   1.57808,
     +     .04655,    .02219,  37.23583,   1.67027,   1.23190,
     +     .88096,   1.52529,   1.67116,
     +     .04781,    .02292,  40.14194,   1.79181,   1.35203,
     +    1.00466,   1.64787,   1.79277,
     +     .04899,    .02361,  42.91268,   1.90972,   1.46897,
     +    1.12542,   1.76674,   1.91076,
     +     .05011,    .02425,  45.50999,   2.02268,   1.58087,
     +    1.24037,   1.88057,   2.02378 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
     +     .05123,    .02490,  48.09920,   2.13769,   1.69475,
     +    1.35698,   1.99643,   2.13886,
     +     .05232,    .02554,  50.66985,   2.25335,   1.80981,
     +    1.47548,   2.11292,   2.25459,
     +     .05336,    .02614,  53.05994,   2.36371,   1.91915,
     +    1.58706,   2.22403,   2.36501,
     +     .05434,    .02671,  55.33548,   2.47003,   2.02491,
     +    1.69556,   2.33106,   2.47139,
     +     .05533,    .02728,  57.59753,   2.57789,   2.13207,
     +    1.80504,   2.43962,   2.57932,
     +     .05630,    .02784,  59.82268,   2.68560,   2.23927,
     +    1.91472,   2.54800,   2.68709,
     +     .05722,    .02838,  61.91996,   2.78898,   2.34212,
     +    2.01974,   2.65201,   2.79053,
     +     .05810,    .02889,  63.90480,   2.88812,   2.44093,
     +    2.12080,   2.75174,   2.88972 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
     +     .05899,    .02940,  65.87239,   2.98839,   2.54070,
     +    2.22246,   2.85260,   2.99006,
     +     .05986,    .02991,  67.83655,   3.08931,   2.64148,
     +    2.32560,   2.95409,   3.09102,
     +     .06070,    .03040,  69.64777,   3.18479,   2.73647,
     +    2.42218,   3.05010,   3.18656,
     +     .06150,    .03086,  71.39719,   3.27742,   2.82902,
     +    2.51676,   3.14324,   3.27924,
     +     .06230,    .03133,  73.11909,   3.37059,   2.92190,
     +    2.61131,   3.23692,   3.37247 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
     +     .03074,    .01272,    .93046,    .33256,    .00000,
     +     .00000,    .17933,    .33265,
     +     .03185,    .01336,   1.62480,    .35341,    .00000,
     +     .00000,    .20144,    .35355,
     +     .03349,    .01431,   2.82941,    .38985,    .01404,
     +     .00000,    .23969,    .39009,
     +     .03468,    .01501,   3.81852,    .42050,    .04558,
     +     .00000,    .27159,    .42080,
     +     .03594,    .01574,   4.94508,    .45662,    .07892,
     +     .00000,    .30898,    .45698,
     +     .03702,    .01637,   5.99588,    .49072,    .11083,
     +     .00000,    .34414,    .49114,
     +     .03807,    .01698,   7.08403,    .52589,    .14502,
     +     .00000,    .38030,    .52638,
     +     .03917,    .01763,   8.31700,    .56592,    .18441,
     +     .00000,    .42136,    .56647 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
     +     .04013,    .01819,   9.40748,    .60290,    .21921,
     +     .00000,    .45920,    .60351,
     +     .04106,    .01874,  10.52620,    .64046,    .25591,
     +     .00000,    .49758,    .64112,
     +     .04179,    .01917,  11.43681,    .67152,    .28605,
     +     .00000,    .52927,    .67222,
     +     .04336,    .02009,  13.44105,    .74142,    .35432,
     +     .00138,    .60049,    .74223,
     +     .04472,    .02089,  15.21151,    .80544,    .41691,
     +     .06671,    .66560,    .80633,
     +     .04623,    .02178,  17.25422,    .88111,    .49120,
     +     .15720,    .74246,    .88209,
     +     .04781,    .02271,  19.45108,    .96413,    .57290,
     +     .24380,    .82668,    .96521,
     +     .04925,    .02355,  21.49888,   1.04300,    .65078,
     +     .32681,    .90660,   1.04417 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
     +     .05070,    .02441,  23.61033,   1.12593,    .73289,
     +     .41360,    .99057,   1.12720,
     +     .05190,    .02512,  25.35468,   1.19653,    .80211,
     +     .48433,   1.06200,   1.19788,
     +     .05336,    .02598,  27.51459,   1.28509,    .88967,
     +     .57552,   1.15155,   1.28653,
     +     .05465,    .02674,  29.45548,   1.36600,    .97004,
     +     .65967,   1.23331,   1.36752,
     +     .05584,    .02744,  31.21998,   1.44148,   1.04461,
     +     .73646,   1.30956,   1.44308,
     +     .05734,    .02832,  33.47214,   1.53960,   1.14187,
     +     .83703,   1.40863,   1.54131,
     +     .05876,    .02916,  35.60375,   1.63429,   1.23605,
     +     .93468,   1.50419,   1.63609,
     +     .06009,    .02994,  37.58738,   1.72453,   1.32571,
     +    1.02715,   1.59523,   1.72641 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
     +     .06141,    .03072,  39.55096,   1.81595,   1.41649,
     +    1.12048,   1.68743,   1.81793,
     +     .06272,    .03149,  41.48927,   1.90750,   1.50784,
     +    1.21495,   1.77973,   1.90956,
     +     .06395,    .03221,  43.27822,   1.99442,   1.59421,
     +    1.30343,   1.86735,   1.99657,
     +     .06511,    .03289,  44.97286,   2.07784,   1.67745,
     +    1.38917,   1.95142,   2.08007,
     +     .06628,    .03358,  46.64703,   2.16212,   1.76143,
     +    1.47531,   2.03634,   2.16443,
     +     .06743,    .03425,  48.28518,   2.24596,   1.84514,
     +    1.56130,   2.12080,   2.24835,
     +     .06852,    .03489,  49.82048,   2.32613,   1.92514,
     +    1.64331,   2.20155,   2.32860,
     +     .06956,    .03550,  51.26664,   2.40276,   2.00176,
     +    1.72198,   2.27871,   2.40529 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
     +     .07060,    .03611,  52.69195,   2.47997,   2.07882,
     +    1.80081,   2.35647,   2.48258,
     +     .07164,    .03672,  54.10971,   2.55746,   2.15646,
     +    1.88059,   2.43449,   2.56014,
     +     .07262,    .03730,  55.40809,   2.63048,   2.22933,
     +    1.95496,   2.50800,   2.63323,
     +     .07356,    .03785,  56.65894,   2.70117,   2.30018,
     +    2.02766,   2.57915,   2.70398,
     +     .07450,    .03840,  57.88263,   2.77201,   2.37103,
     +    2.10007,   2.65046,   2.77489 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
     +     .03493,    .01486,    .93613,    .31193,    .00000,
     +     .00000,    .16859,    .31229,
     +     .03620,    .01561,   1.59993,    .33176,    .00000,
     +     .00000,    .18960,    .33219,
     +     .03809,    .01673,   2.73568,    .36606,    .01317,
     +     .00000,    .22558,    .36661,
     +     .03946,    .01755,   3.65734,    .39464,    .04264,
     +     .00000,    .25532,    .39527,
     +     .04090,    .01841,   4.69736,    .42805,    .07353,
     +     .00000,    .28992,    .42878,
     +     .04215,    .01915,   5.65943,    .45939,    .10290,
     +     .00000,    .32225,    .46019,
     +     .04334,    .01986,   6.64886,    .49157,    .13421,
     +     .00000,    .35535,    .49244,
     +     .04461,    .02061,   7.76255,    .52801,    .17011,
     +     .00000,    .39276,    .52897 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
     +     .04571,    .02127,   8.74099,    .56148,    .20165,
     +     .00000,    .42704,    .56251,
     +     .04677,    .02190,   9.73972,    .59536,    .23481,
     +     .00000,    .46168,    .59647,
     +     .04761,    .02240,  10.54883,    .62328,    .26194,
     +     .00000,    .49019,    .62444,
     +     .04940,    .02347,  12.31808,    .68584,    .32314,
     +     .00128,    .55398,    .68711,
     +     .05095,    .02439,  13.86778,    .74280,    .37893,
     +     .05966,    .61197,    .74418,
     +     .05268,    .02543,  15.64250,    .80978,    .44481,
     +     .14027,    .68006,    .81127,
     +     .05448,    .02650,  17.53712,    .88286,    .51688,
     +     .21693,    .75428,    .88448,
     +     .05611,    .02748,  19.29092,    .95194,    .58524,
     +     .29004,    .82435,    .95367 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
     +     .05776,    .02846,  21.08765,   1.02424,    .65699,
     +     .36615,    .89763,   1.02608,
     +     .05913,    .02927,  22.56248,   1.08551,    .71720,
     +     .42786,    .95968,   1.08745,
     +     .06079,    .03026,  24.37899,   1.16206,    .79306,
     +     .50715,   1.03717,   1.16412,
     +     .06225,    .03113,  26.00237,   1.23172,    .86243,
     +     .58004,   1.10764,   1.23388,
     +     .06360,    .03193,  27.46994,   1.29646,    .92654,
     +     .64628,   1.17309,   1.29871,
     +     .06530,    .03294,  29.33326,   1.38029,   1.00985,
     +     .73270,   1.25783,   1.38266,
     +     .06690,    .03390,  31.08707,   1.46087,   1.09020,
     +     .81631,   1.33923,   1.46335,
     +     .06840,    .03479,  32.70999,   1.53736,   1.16639,
     +     .89516,   1.41649,   1.53996 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
     +     .06990,    .03567,  34.30785,   1.61458,   1.24326,
     +     .97446,   1.49444,   1.61727,
     +     .07137,    .03655,  35.87823,   1.69165,   1.32037,
     +    1.05447,   1.57223,   1.69445,
     +     .07276,    .03737,  37.31934,   1.76455,   1.39300,
     +    1.12913,   1.64579,   1.76745,
     +     .07406,    .03814,  38.67919,   1.83432,   1.46282,
     +    1.20129,   1.71618,   1.83732,
     +     .07538,    .03892,  40.01612,   1.90460,   1.53303,
     +    1.27354,   1.78706,   1.90769,
     +     .07667,    .03968,  41.31894,   1.97430,   1.60281,
     +    1.34548,   1.85736,   1.97749,
     +     .07790,    .04041,  42.53456,   2.04077,   1.66932,
     +    1.41389,   1.92438,   2.04404,
     +     .07906,    .04109,  43.67543,   2.10414,   1.73286,
     +    1.47936,   1.98827,   2.10749 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
     +     .08023,    .04178,  44.79465,   2.16781,   1.79659,
     +    1.54476,   2.05246,   2.17126,
     +     .08139,    .04247,  45.90491,   2.23158,   1.86067,
     +    1.61084,   2.11673,   2.23511,
     +     .08249,    .04311,  46.91599,   2.29149,   1.92062,
     +    1.67224,   2.17711,   2.29510,
     +     .08354,    .04373,  47.88823,   2.34939,   1.97883,
     +    1.73218,   2.23546,   2.35307,
     +     .08460,    .04435,  48.83466,   2.40726,   2.03687,
     +    1.79169,   2.29377,   2.41102 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
     +     .03866,    .01690,    .94912,    .29759,    .00000,
     +     .00000,    .16094,    .29799,
     +     .04009,    .01775,   1.59010,    .31664,    .00000,
     +     .00000,    .18110,    .31713,
     +     .04219,    .01902,   2.67266,    .34929,    .01251,
     +     .00000,    .21531,    .34992,
     +     .04373,    .01995,   3.54259,    .37628,    .04041,
     +     .00000,    .24340,    .37701,
     +     .04534,    .02091,   4.51682,    .40764,    .06944,
     +     .00000,    .27586,    .40848,
     +     .04673,    .02175,   5.41185,    .43690,    .09691,
     +     .00000,    .30605,    .43784,
     +     .04806,    .02255,   6.32704,    .46682,    .12607,
     +     .00000,    .33684,    .46785,
     +     .04947,    .02340,   7.35148,    .50059,    .15936,
     +     .00000,    .37150,    .50171 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
     +     .05069,    .02414,   8.24660,    .53146,    .18849,
     +     .00000,    .40312,    .53267,
     +     .05187,    .02485,   9.15641,    .56262,    .21903,
     +     .00000,    .43500,    .56391,
     +     .05281,    .02541,   9.89060,    .58822,    .24394,
     +     .00000,    .46116,    .58958,
     +     .05480,    .02661,  11.48729,    .64538,    .29993,
     +     .00120,    .51947,    .64687,
     +     .05651,    .02764,  12.87592,    .69718,    .35074,
     +     .05448,    .57224,    .69880,
     +     .05843,    .02879,  14.45636,    .75784,    .41049,
     +     .12785,    .63394,    .75959,
     +     .06042,    .02999,  16.13325,    .82373,    .47557,
     +     .19727,    .70088,    .82562,
     +     .06223,    .03107,  17.67638,    .88575,    .53705,
     +     .26321,    .76384,    .88777 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
     +     .06405,    .03216,  19.24872,    .95041,    .60133,
     +     .33158,    .82942,    .95257,
     +     .06556,    .03307,  20.53247,   1.00499,    .65506,
     +     .38680,    .88474,   1.00726,
     +     .06738,    .03416,  22.10659,   1.07298,    .72256,
     +     .45755,    .95361,   1.07539,
     +     .06900,    .03513,  23.50683,   1.13464,    .78408,
     +     .52237,   1.01603,   1.13717,
     +     .07048,    .03601,  24.76660,   1.19176,    .84075,
     +     .58108,   1.07383,   1.19439,
     +     .07235,    .03713,  26.35915,   1.26550,    .91416,
     +     .65745,   1.14841,   1.26827,
     +     .07411,    .03818,  27.85113,   1.33614,    .98474,
     +     .73110,   1.21983,   1.33904,
     +     .07576,    .03916,  29.22500,   1.40298,   1.05146,
     +     .80033,   1.28740,   1.40601 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
     +     .07740,    .04013,  30.57133,   1.47024,   1.11856,
     +     .86974,   1.35536,   1.47339,
     +     .07901,    .04109,  31.88959,   1.53720,   1.18570,
     +     .93961,   1.42299,   1.54046,
     +     .08052,    .04199,  33.09348,   1.60034,   1.24874,
     +    1.00459,   1.48676,   1.60372,
     +     .08195,    .04284,  34.22574,   1.66064,   1.30920,
     +    1.06726,   1.54764,   1.66412,
     +     .08339,    .04369,  35.33424,   1.72121,   1.36985,
     +    1.12985,   1.60879,   1.72480,
     +     .08480,    .04452,  36.41062,   1.78115,   1.42999,
     +    1.19202,   1.66929,   1.78485,
     +     .08614,    .04531,  37.41107,   1.83816,   1.48717,
     +    1.25100,   1.72683,   1.84196,
     +     .08741,    .04606,  38.34702,   1.89240,   1.54169,
     +    1.30734,   1.78156,   1.89629 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
     +     .08868,    .04681,  39.26142,   1.94677,   1.59624,
     +    1.36349,   1.83642,   1.95076,
     +     .08994,    .04756,  40.16643,   2.00113,   1.65100,
     +    1.42013,   1.89126,   2.00522,
     +     .09114,    .04826,  40.98657,   2.05207,   1.70210,
     +    1.47261,   1.94265,   2.05624,
     +     .09228,    .04893,  41.77402,   2.10123,   1.75166,
     +    1.52379,   1.99224,   2.10549,
     +     .09343,    .04961,  42.53703,   2.15025,   1.80096,
     +    1.57448,   2.04169,   2.15460 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
     +     .05341,    .02552,   1.01095,    .25819,    .00000,
     +     .00000,    .14011,    .25920,
     +     .05544,    .02678,   1.58046,    .27487,    .00000,
     +     .00000,    .15771,    .27604,
     +     .05842,    .02864,   2.50356,    .30263,    .01059,
     +     .00000,    .18679,    .30403,
     +     .06058,    .02998,   3.22179,    .32503,    .03399,
     +     .00000,    .21011,    .32660,
     +     .06284,    .03138,   4.00638,    .35052,    .05777,
     +     .00000,    .23653,    .35227,
     +     .06479,    .03258,   4.71094,    .37391,    .07989,
     +     .00000,    .26070,    .37581,
     +     .06665,    .03373,   5.41773,    .39751,    .10305,
     +     .00000,    .28504,    .39956,
     +     .06862,    .03495,   6.19458,    .42381,    .12915,
     +     .00000,    .31210,    .42601 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
     +     .07031,    .03599,   6.86113,    .44750,    .15166,
     +     .00000,    .33643,    .44983,
     +     .07195,    .03699,   7.52913,    .47119,    .17503,
     +     .00000,    .36074,    .47366,
     +     .07324,    .03779,   8.06122,    .49047,    .19392,
     +     .00000,    .38049,    .49304,
     +     .07599,    .03947,   9.19728,    .53300,    .23587,
     +     .00097,    .42400,    .53578,
     +     .07834,    .04091,  10.16165,    .57095,    .27338,
     +     .04062,    .46279,    .57392,
     +     .08097,    .04251,  11.23627,    .61476,    .31687,
     +     .09476,    .50750,    .61794,
     +     .08369,    .04416,  12.35298,    .66166,    .36355,
     +     .14511,    .55531,    .66505,
     +     .08614,    .04565,  13.36044,    .70519,    .40705,
     +     .19229,    .59965,    .70878 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
     +     .08861,    .04714,  14.36829,    .74999,    .45197,
     +     .24061,    .64526,    .75379,
     +     .09064,    .04837,  15.17577,    .78734,    .48905,
     +     .27912,    .68325,    .79129,
     +     .09309,    .04985,  16.15095,    .83336,    .53514,
     +     .32799,    .73004,    .83751,
     +     .09526,    .05115,  17.00471,    .87465,    .57671,
     +     .37229,    .77200,    .87897,
     +     .09723,    .05233,  17.75997,    .91247,    .61459,
     +     .41197,    .81042,    .91696,
     +     .09972,    .05382,  18.69995,    .96079,    .66315,
     +     .46308,    .85949,    .96548,
     +     .10206,    .05522,  19.56618,   1.00657,    .70934,
     +     .51185,    .90596,   1.01145,
     +     .10423,    .05651,  20.35031,   1.04943,    .75254,
     +     .55720,    .94945,   1.05447 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
     +     .10639,    .05780,  21.10592,   1.09209,    .79554,
     +     .60220,    .99274,   1.09731,
     +     .10850,    .05905,  21.83617,   1.13420,    .83820,
     +     .64713,   1.03545,   1.13959,
     +     .11048,    .06022,  22.49080,   1.17348,    .87783,
     +     .68847,   1.07530,   1.17903,
     +     .11235,    .06132,  23.09931,   1.21070,    .91557,
     +     .72806,   1.11304,   1.21640,
     +     .11421,    .06242,  23.68573,   1.24775,    .95308,
     +     .76724,   1.15061,   1.25360,
     +     .11604,    .06350,  24.24774,   1.28413,    .99000,
     +     .80588,   1.18750,   1.29013,
     +     .11776,    .06451,  24.76249,   1.31845,   1.02481,
     +     .84224,   1.22229,   1.32458,
     +     .11940,    .06547,  25.23844,   1.35087,   1.05778,
     +     .87675,   1.25516,   1.35713 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
     +     .12103,    .06642,  25.69598,   1.38310,   1.09051,
     +     .91085,   1.28783,   1.38949,
     +     .12265,    .06737,  26.14516,   1.41514,   1.12319,
     +     .94509,   1.32031,   1.42167,
     +     .12418,    .06826,  26.54381,   1.44488,   1.15340,
     +     .97651,   1.35046,   1.45153,
     +     .12563,    .06911,  26.92467,   1.47347,   1.18258,
     +    1.00705,   1.37944,   1.48023,
     +     .12709,    .06996,  27.28687,   1.50173,   1.21137,
     +    1.03705,   1.40809,   1.50861 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
     +     .07531,    .03963,   1.12858,    .22717,    .00000,
     +     .00000,    .12355,    .22936,
     +     .07820,    .04145,   1.61970,    .24148,    .00000,
     +     .00000,    .13866,    .24391,
     +     .08242,    .04410,   2.38474,    .26457,    .00885,
     +     .00000,    .16289,    .26738,
     +     .08547,    .04600,   2.95892,    .28270,    .02818,
     +     .00000,    .18183,    .28579,
     +     .08865,    .04797,   3.56918,    .30290,    .04732,
     +     .00000,    .20285,    .30626,
     +     .09136,    .04965,   4.10328,    .32108,    .06478,
     +     .00000,    .22172,    .32468,
     +     .09395,    .05125,   4.62758,    .33916,    .08279,
     +     .00000,    .24045,    .34299,
     +     .09668,    .05294,   5.19211,    .35901,    .10277,
     +     .00000,    .26099,    .36308 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
     +     .09902,    .05437,   5.66655,    .37661,    .11972,
     +     .00000,    .27916,    .38088,
     +     .10127,    .05575,   6.13436,    .39402,    .13715,
     +     .00000,    .29712,    .39850,
     +     .10304,    .05683,   6.50151,    .40804,    .15108,
     +     .00000,    .31157,    .41267,
     +     .10678,    .05911,   7.26846,    .43853,    .18159,
     +     .00078,    .34295,    .44349,
     +     .10998,    .06105,   7.90059,    .46528,    .20840,
     +     .02947,    .37045,    .47051,
     +     .11353,    .06319,   8.58737,    .49566,    .23900,
     +     .06827,    .40165,    .50120,
     +     .11717,    .06538,   9.28357,    .52762,    .27131,
     +     .10367,    .43445,    .53348,
     +     .12045,    .06735,   9.89668,    .55682,    .30095,
     +     .13634,    .46440,    .56296 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
     +     .12373,    .06930,  10.49647,    .58643,    .33113,
     +     .16932,    .49475,    .59286,
     +     .12640,    .07089,  10.96556,    .61075,    .35566,
     +     .19522,    .51967,    .61741,
     +     .12963,    .07280,  11.52162,    .64036,    .38582,
     +     .22773,    .54999,    .64729,
     +     .13247,    .07448,  11.99888,    .66658,    .41268,
     +     .25685,    .57684,    .67376,
     +     .13503,    .07598,  12.41166,    .69028,    .43685,
     +     .28260,    .60111,    .69768,
     +     .13826,    .07787,  12.91503,    .72019,    .46747,
     +     .31540,    .63173,    .72787,
     +     .14127,    .07963,  13.36897,    .74817,    .49624,
     +     .34632,    .66036,    .75611,
     +     .14405,    .08125,  13.77038,    .77402,    .52281,
     +     .37472,    .68682,    .78219 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
     +     .14681,    .08285,  14.14819,    .79943,    .54894,
     +     .40258,    .71282,    .80783,
     +     .14949,    .08440,  14.50696,    .82424,    .57461,
     +     .43014,    .73821,    .83287,
     +     .15199,    .08584,  14.81954,    .84709,    .59816,
     +     .45517,    .76160,    .85593,
     +     .15434,    .08718,  15.10548,    .86854,    .62039,
     +     .47895,    .78356,    .87758,
     +     .15667,    .08852,  15.37453,    .88967,    .64226,
     +     .50225,    .80518,    .89890,
     +     .15895,    .08982,  15.62731,    .91020,    .66359,
     +     .52502,    .82620,    .91962,
     +     .16109,    .09104,  15.85339,    .92937,    .68350,
     +     .54625,    .84583,    .93897,
     +     .16311,    .09219,  16.05867,    .94732,    .70222,
     +     .56625,    .86422,    .95709 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
     +     .16513,    .09333,  16.25061,    .96498,    .72061,
     +     .58582,    .88231,    .97492,
     +     .16712,    .09445,  16.43688,    .98243,    .73886,
     +     .60536,    .90018,    .99253,
     +     .16898,    .09550,  16.59572,    .99841,    .75554,
     +     .62309,    .91657,   1.00866,
     +     .17075,    .09650,  16.74666,   1.01370,    .77158,
     +     .64025,    .93224,   1.02410,
     +     .17252,    .09749,  16.88500,   1.02866,    .78725,
     +     .65695,    .94757,   1.03920 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
     +     .09316,    .05176,   1.21903,    .21217,    .00000,
     +     .00000,    .11560,    .21560,
     +     .09671,    .05397,   1.66080,    .22504,    .00000,
     +     .00000,    .12923,    .22880,
     +     .10187,    .05718,   2.33180,    .24543,    .00789,
     +     .00000,    .15073,    .24968,
     +     .10558,    .05947,   2.82387,    .26118,    .02500,
     +     .00000,    .16726,    .26577,
     +     .10943,    .06184,   3.33790,    .27847,    .04167,
     +     .00000,    .18535,    .28341,
     +     .11270,    .06384,   3.78038,    .29385,    .05668,
     +     .00000,    .20141,    .29910,
     +     .11582,    .06574,   4.20866,    .30900,    .07200,
     +     .00000,    .21720,    .31454,
     +     .11910,    .06773,   4.66368,    .32547,    .08884,
     +     .00000,    .23435,    .33132 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
     +     .12189,    .06942,   5.04089,    .33993,    .10298,
     +     .00000,    .24936,    .34603,
     +     .12458,    .07104,   5.40883,    .35413,    .11741,
     +     .00000,    .26411,    .36048,
     +     .12669,    .07231,   5.69472,    .36549,    .12887,
     +     .00000,    .27589,    .37203,
     +     .13113,    .07497,   6.28308,    .38996,    .15373,
     +     .00067,    .30124,    .39690,
     +     .13491,    .07721,   6.75800,    .41118,    .17533,
     +     .02402,    .32321,    .41846,
     +     .13908,    .07968,   7.26470,    .43502,    .19974,
     +     .05541,    .34787,    .44268,
     +     .14335,    .08220,   7.76945,    .45982,    .22522,
     +     .08369,    .37351,    .46787,
     +     .14717,    .08444,   8.20651,    .48224,    .24836,
     +     .10953,    .39668,    .49063 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
     +     .15098,    .08666,   8.62727,    .50475,    .27170,
     +     .13537,    .41994,    .51348,
     +     .15407,    .08845,   8.95044,    .52304,    .29048,
     +     .15547,    .43883,    .53204,
     +     .15779,    .09060,   9.32803,    .54512,    .31340,
     +     .18052,    .46164,    .55445,
     +     .16105,    .09247,   9.64717,    .56452,    .33365,
     +     .20279,    .48167,    .57413,
     +     .16398,    .09415,   9.91857,    .58189,    .35171,
     +     .22232,    .49961,    .59176,
     +     .16766,    .09625,  10.24405,    .60363,    .37441,
     +     .24700,    .52206,    .61382,
     +     .17107,    .09819,  10.53244,    .62378,    .39557,
     +     .27009,    .54288,    .63426,
     +     .17422,    .09997,  10.78256,    .64222,    .41495,
     +     .29113,    .56193,    .65297 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
     +     .17732,    .10171,  11.01312,    .66019,    .43384,
     +     .31160,    .58051,    .67121,
     +     .18033,    .10340,  11.22887,    .67761,    .45229,
     +     .33174,    .59853,    .68889,
     +     .18313,    .10496,  11.41193,    .69350,    .46906,
     +     .34987,    .61496,    .70501,
     +     .18574,    .10641,  11.57693,    .70831,    .48481,
     +     .36700,    .63029,    .72005,
     +     .18833,    .10784,  11.72830,    .72277,    .50018,
     +     .38367,    .64527,    .73473,
     +     .19085,    .10923,  11.86782,    .73674,    .51507,
     +     .39988,    .65973,    .74890,
     +     .19322,    .11054,  11.98958,    .74968,    .52889,
     +     .41488,    .67315,    .76204,
     +     .19544,    .11175,  12.09803,    .76173,    .54181,
     +     .42895,    .68564,    .77427 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
     +     .19765,    .11296,  12.19617,    .77347,    .55441,
     +     .44262,    .69782,    .78620,
     +     .19983,    .11414,  12.29031,    .78502,    .56687,
     +     .45623,    .70981,    .79793,
     +     .20186,    .11524,  12.36637,    .79550,    .57815,
     +     .46847,    .72070,    .80857,
     +     .20379,    .11629,  12.43840,    .80550,    .58897,
     +     .48029,    .73109,    .81873,
     +     .20570,    .11732,  12.50093,    .81518,    .59946,
     +     .49171,    .74116,    .82856 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
     +     .10906,    .06278,   1.29180,    .20279,    .00000,
     +     .00000,    .11065,    .20751,
     +     .11315,    .06530,   1.69628,    .21458,    .00000,
     +     .00000,    .12322,    .21971,
     +     .11907,    .06892,   2.29900,    .23304,    .00723,
     +     .00000,    .14278,    .23874,
     +     .12332,    .07151,   2.73323,    .24711,    .02282,
     +     .00000,    .15765,    .25322,
     +     .12770,    .07416,   3.18097,    .26239,    .03781,
     +     .00000,    .17374,    .26892,
     +     .13143,    .07639,   3.56156,    .27587,    .05118,
     +     .00000,    .18789,    .28275,
     +     .13496,    .07851,   3.92596,    .28904,    .06474,
     +     .00000,    .20172,    .29626,
     +     .13867,    .08072,   4.30911,    .30327,    .07951,
     +     .00000,    .21663,    .31084 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
     +     .14182,    .08259,   4.62339,    .31565,    .09182,
     +     .00000,    .22958,    .32352,
     +     .14484,    .08437,   4.92738,    .32775,    .10432,
     +     .00000,    .24223,    .33590,
     +     .14721,    .08577,   5.16172,    .33737,    .11418,
     +     .00000,    .25228,    .34574,
     +     .15218,    .08868,   5.63815,    .35796,    .13544,
     +     .00060,    .27377,    .36679,
     +     .15639,    .09113,   6.01604,    .37564,    .15375,
     +     .02058,    .29222,    .38486,
     +     .16103,    .09382,   6.41326,    .39535,    .17428,
     +     .04730,    .31277,    .40500,
     +     .16576,    .09654,   6.80329,    .41567,    .19553,
     +     .07114,    .33395,    .42575,
     +     .16997,    .09895,   7.13617,    .43388,    .21467,
     +     .09277,    .35293,    .44434 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
     +     .17416,    .10133,   7.45219,    .45202,    .23384,
     +     .11425,    .37184,    .46286,
     +     .17754,    .10324,   7.69098,    .46664,    .24915,
     +     .13083,    .38708,    .47778,
     +     .18160,    .10553,   7.96662,    .48418,    .26771,
     +     .15138,    .40536,    .49567,
     +     .18515,    .10751,   8.19645,    .49947,    .28402,
     +     .16955,    .42130,    .51127,
     +     .18833,    .10928,   8.38861,    .51306,    .29846,
     +     .18536,    .43549,    .52514,
     +     .19230,    .11149,   8.61559,    .52995,    .31650,
     +     .20525,    .45312,    .54238,
     +     .19598,    .11351,   8.81334,    .54549,    .33321,
     +     .22375,    .46934,    .55823,
     +     .19936,    .11537,   8.98144,    .55961,    .34840,
     +     .24049,    .48409,    .57264 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
     +     .20268,    .11717,   9.13304,    .57325,    .36312,
     +     .25668,    .49837,    .58657,
     +     .20589,    .11892,   9.27280,    .58641,    .37743,
     +     .27253,    .51214,    .60000,
     +     .20886,    .12052,   9.38778,    .59830,    .39033,
     +     .28671,    .52459,    .61214,
     +     .21163,    .12201,   9.48976,    .60933,    .40239,
     +     .30006,    .53616,    .62340,
     +     .21437,    .12347,   9.58054,    .62002,    .41410,
     +     .31297,    .54738,    .63431,
     +     .21703,    .12489,   9.66222,    .63028,    .42539,
     +     .32547,    .55816,    .64479,
     +     .21952,    .12621,   9.73117,    .63972,    .43580,
     +     .33698,    .56809,    .65444,
     +     .22184,    .12744,   9.79101,    .64847,    .44549,
     +     .34773,    .57729,    .66337 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
     +     .22415,    .12865,   9.84253,    .65692,    .45489,
     +     .35812,    .58620,    .67201,
     +     .22642,    .12984,   9.89117,    .66521,    .46415,
     +     .36843,    .59494,    .68048,
     +     .22853,    .13094,   9.92696,    .67265,    .47247,
     +     .37765,    .60280,    .68808,
     +     .23053,    .13199,   9.96076,    .67973,    .48044,
     +     .38654,    .61029,    .69533,
     +     .23251,    .13301,   9.98704,    .68653,    .48811,
     +     .39507,    .61750,    .70228 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
     +     .12374,    .07301,   1.35084,    .19603,    .00000,
     +     .00000,    .10715,    .20209,
     +     .12828,    .07577,   1.72475,    .20696,    .00000,
     +     .00000,    .11888,    .21348,
     +     .13485,    .07972,   2.27348,    .22388,    .00672,
     +     .00000,    .13694,    .23105,
     +     .13954,    .08253,   2.66309,    .23666,    .02115,
     +     .00000,    .15052,    .24428,
     +     .14437,    .08539,   3.06055,    .25041,    .03489,
     +     .00000,    .16510,    .25851,
     +     .14846,    .08781,   3.39492,    .26244,    .04704,
     +     .00000,    .17784,    .27094,
     +     .15234,    .09008,   3.71219,    .27414,    .05929,
     +     .00000,    .19020,    .28301,
     +     .15639,    .09245,   4.04285,    .28670,    .07255,
     +     .00000,    .20346,    .29595 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
     +     .15983,    .09445,   4.31174,    .29755,    .08352,
     +     .00000,    .21490,    .30713,
     +     .16312,    .09635,   4.56996,    .30811,    .09462,
     +     .00000,    .22603,    .31800,
     +     .16569,    .09783,   4.76769,    .31646,    .10334,
     +     .00000,    .23483,    .32660,
     +     .17108,    .10092,   5.16542,    .33424,    .12202,
     +     .00055,    .25354,    .34488,
     +     .17563,    .10352,   5.47589,    .34940,    .13800,
     +     .01812,    .26949,    .36045,
     +     .18061,    .10634,   5.79799,    .36617,    .15579,
     +     .04154,    .28713,    .37768,
     +     .18569,    .10919,   6.11031,    .38333,    .17409,
     +     .06228,    .30518,    .39530,
     +     .19021,    .11170,   6.37325,    .39859,    .19046,
     +     .08097,    .32124,    .41097 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
     +     .19467,    .11418,   6.61955,    .41370,    .20675,
     +     .09943,    .33713,    .42648,
     +     .19827,    .11616,   6.80273,    .42578,    .21968,
     +     .11359,    .34986,    .43888,
     +     .20258,    .11851,   7.01181,    .44019,    .23528,
     +     .13106,    .36504,    .45366,
     +     .20632,    .12056,   7.18390,    .45267,    .24890,
     +     .14643,    .37821,    .46648,
     +     .20967,    .12237,   7.32517,    .46370,    .26090,
     +     .15975,    .38984,    .47780,
     +     .21384,    .12461,   7.48953,    .47732,    .27582,
     +     .17641,    .40422,    .49177,
     +     .21769,    .12668,   7.63028,    .48977,    .28956,
     +     .19182,    .41739,    .50455,
     +     .22122,    .12855,   7.74721,    .50101,    .30198,
     +     .20570,    .42928,    .51608 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
     +     .22467,    .13037,   7.84995,    .51178,    .31395,
     +     .21905,    .44070,    .52714,
     +     .22801,    .13213,   7.94301,    .52212,    .32553,
     +     .23208,    .45167,    .53775,
     +     .23108,    .13373,   8.01673,    .53138,    .33591,
     +     .24367,    .46152,    .54726,
     +     .23394,    .13521,   8.08073,    .53993,    .34558,
     +     .25454,    .47063,    .55605,
     +     .23676,    .13667,   8.13523,    .54817,    .35490,
     +     .26500,    .47941,    .56451,
     +     .23948,    .13807,   8.18261,    .55602,    .36386,
     +     .27509,    .48780,    .57259,
     +     .24202,    .13937,   8.22061,    .56320,    .37209,
     +     .28435,    .49548,    .57997,
     +     .24440,    .14058,   8.25209,    .56981,    .37971,
     +     .29296,    .50257,    .58676 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
     +     .24675,    .14177,   8.27661,    .57616,    .38706,
     +     .30125,    .50939,    .59330,
     +     .24905,    .14293,   8.29905,    .58237,    .39429,
     +     .30946,    .51606,    .59968,
     +     .25119,    .14400,   8.31203,    .58788,    .40074,
     +     .31675,    .52201,    .60535,
     +     .25321,    .14501,   8.32427,    .59311,    .40691,
     +     .32377,    .52766,    .61075,
     +     .25521,    .14600,   8.33037,    .59809,    .41281,
     +     .33047,    .53305,    .61587 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
     +     .15073,    .09178,   1.43941,    .18641,    .00000,
     +     .00000,    .10233,    .19521,
     +     .15601,    .09488,   1.76432,    .19597,    .00000,
     +     .00000,    .11274,    .20530,
     +     .16361,    .09929,   2.22980,    .21051,    .00596,
     +     .00000,    .12849,    .22061,
     +     .16901,    .10239,   2.55253,    .22131,    .01866,
     +     .00000,    .14016,    .23195,
     +     .17454,    .10555,   2.87613,    .23278,    .03056,
     +     .00000,    .15252,    .24396,
     +     .17919,    .10819,   3.14382,    .24269,    .04095,
     +     .00000,    .16319,    .25432,
     +     .18358,    .11067,   3.39409,    .25224,    .05132,
     +     .00000,    .17345,    .26429,
     +     .18816,    .11324,   3.65122,    .26238,    .06245,
     +     .00000,    .18434,    .27488 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
     +     .19202,    .11539,   3.85709,    .27105,    .07155,
     +     .00000,    .19365,    .28390,
     +     .19571,    .11743,   4.05247,    .27943,    .08069,
     +     .00000,    .20263,    .29262,
     +     .19858,    .11902,   4.20034,    .28601,    .08781,
     +     .00000,    .20969,    .29947,
     +     .20458,    .12230,   4.49225,    .29986,    .10295,
     +     .00048,    .22454,    .31388,
     +     .20961,    .12503,   4.71356,    .31152,    .11575,
     +     .01476,    .23705,    .32600,
     +     .21508,    .12798,   4.93743,    .32426,    .12985,
     +     .03368,    .25073,    .33924,
     +     .22063,    .13094,   5.14929,    .33713,    .14418,
     +     .05024,    .26456,    .35260,
     +     .22552,    .13354,   5.32318,    .34844,    .15686,
     +     .06501,    .27672,    .36434 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
     +     .23033,    .13607,   5.48193,    .35950,    .16936,
     +     .07946,    .28863,    .37582,
     +     .23420,    .13808,   5.59616,    .36823,    .17917,
     +     .09043,    .29804,    .38487,
     +     .23879,    .14046,   5.72347,    .37853,    .19092,
     +     .10388,    .30917,    .39557,
     +     .24277,    .14251,   5.82530,    .38737,    .20109,
     +     .11562,    .31873,    .40474,
     +     .24630,    .14431,   5.90535,    .39508,    .20996,
     +     .12569,    .32709,    .41274,
     +     .25069,    .14653,   5.99506,    .40448,    .22089,
     +     .13821,    .33731,    .42250,
     +     .25471,    .14855,   6.06852,    .41298,    .23086,
     +     .14969,    .34657,    .43132,
     +     .25837,    .15038,   6.12589,    .42055,    .23979,
     +     .15995,    .35484,    .43918 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
     +     .26192,    .15214,   6.17252,    .42771,    .24832,
     +     .16973,    .36268,    .44661,
     +     .26535,    .15382,   6.21246,    .43450,    .25650,
     +     .17921,    .37015,    .45367,
     +     .26847,    .15534,   6.23956,    .44050,    .26376,
     +     .18756,    .37677,    .45991,
     +     .27137,    .15674,   6.26119,    .44599,    .27048,
     +     .19536,    .38284,    .46561,
     +     .27421,    .15810,   6.27600,    .45118,    .27690,
     +     .20281,    .38861,    .47102,
     +     .27695,    .15941,   6.28609,    .45609,    .28302,
     +     .20994,    .39408,    .47612,
     +     .27949,    .16061,   6.29066,    .46051,    .28859,
     +     .21644,    .39904,    .48073,
     +     .28186,    .16172,   6.29191,    .46454,    .29371,
     +     .22245,    .40356,    .48493 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
     +     .28418,    .16280,   6.28819,    .46834,    .29861,
     +     .22819,    .40786,    .48889,
     +     .28645,    .16385,   6.28343,    .47202,    .30340,
     +     .23386,    .41204,    .49273,
     +     .28853,    .16481,   6.27312,    .47522,    .30762,
     +     .23883,    .41569,    .49607,
     +     .29050,    .16572,   6.26342,    .47825,    .31165,
     +     .24361,    .41916,    .49923,
     +     .29244,    .16660,   6.24931,    .48106,    .31545,
     +     .24814,    .42241,    .50217 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
     +     .18755,    .11691,   1.52232,    .17637,    .00000,
     +     .00000,    .09757,    .18934,
     +     .19365,    .12029,   1.79164,    .18435,    .00000,
     +     .00000,    .10649,    .19794,
     +     .20234,    .12506,   2.16695,    .19627,    .00515,
     +     .00000,    .11975,    .21071,
     +     .20846,    .12839,   2.41977,    .20495,    .01603,
     +     .00000,    .12939,    .21998,
     +     .21470,    .13174,   2.66820,    .21402,    .02605,
     +     .00000,    .13945,    .22965,
     +     .21991,    .13452,   2.86950,    .22174,    .03467,
     +     .00000,    .14801,    .23787,
     +     .22481,    .13711,   3.05436,    .22909,    .04318,
     +     .00000,    .15615,    .24567,
     +     .22989,    .13978,   3.24096,    .23682,    .05220,
     +     .00000,    .16471,    .25387 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
     +     .23414,    .14200,   3.38733,    .24333,    .05949,
     +     .00000,    .17192,    .26076,
     +     .23818,    .14410,   3.52421,    .24956,    .06676,
     +     .00000,    .17883,    .26735,
     +     .24132,    .14571,   3.62623,    .25441,    .07237,
     +     .00000,    .18420,    .27248,
     +     .24781,    .14903,   3.82219,    .26450,    .08418,
     +     .00040,    .19539,    .28314,
     +     .25322,    .15176,   3.96442,    .27286,    .09402,
     +     .01161,    .20467,    .29196,
     +     .25907,    .15469,   4.10285,    .28184,    .10473,
     +     .02636,    .21468,    .30144,
     +     .26494,    .15759,   4.22897,    .29077,    .11547,
     +     .03909,    .22465,    .31085,
     +     .27008,    .16010,   4.32829,    .29848,    .12485,
     +     .05031,    .23329,    .31897 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
     +     .27509,    .16253,   4.41496,    .30590,    .13399,
     +     .06117,    .24163,    .32679,
     +     .27908,    .16443,   4.47332,    .31164,    .14107,
     +     .06933,    .24812,    .33284,
     +     .28379,    .16666,   4.53520,    .31833,    .14946,
     +     .07924,    .25570,    .33989,
     +     .28783,    .16856,   4.58165,    .32398,    .15665,
     +     .08781,    .26213,    .34584,
     +     .29140,    .17022,   4.61451,    .32882,    .16285,
     +     .09509,    .26766,    .35093,
     +     .29579,    .17223,   4.64755,    .33462,    .17041,
     +     .10406,    .27433,    .35704,
     +     .29978,    .17404,   4.67077,    .33976,    .17723,
     +     .11221,    .28029,    .36247,
     +     .30338,    .17565,   4.68435,    .34425,    .18326,
     +     .11941,    .28552,    .36720 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
     +     .30685,    .17719,   4.69062,    .34839,    .18894,
     +     .12621,    .29040,    .37158,
     +     .31016,    .17864,   4.69297,    .35227,    .19435,
     +     .13275,    .29498,    .37567,
     +     .31316,    .17993,   4.68796,    .35558,    .19908,
     +     .13845,    .29896,    .37917,
     +     .31593,    .18111,   4.68075,    .35857,    .20342,
     +     .14374,    .30256,    .38232,
     +     .31860,    .18224,   4.66897,    .36132,    .20751,
     +     .14873,    .30593,    .38524,
     +     .32117,    .18330,   4.65459,    .36387,    .21138,
     +     .15348,    .30907,    .38793,
     +     .32352,    .18428,   4.63774,    .36609,    .21485,
     +     .15777,    .31185,    .39029,
     +     .32570,    .18517,   4.62000,    .36807,    .21802,
     +     .16171,    .31435,    .39239 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
     +     .32781,    .18602,   4.59902,    .36987,    .22100,
     +     .16544,    .31667,    .39430,
     +     .32988,    .18684,   4.57785,    .37160,    .22390,
     +     .16909,    .31891,    .39614,
     +     .33175,    .18756,   4.55404,    .37301,    .22641,
     +     .17226,    .32079,    .39764,
     +     .33352,    .18825,   4.53174,    .37434,    .22879,
     +     .17530,    .32257,    .39906,
     +     .33523,    .18890,   4.50654,    .37549,    .23101,
     +     .17815,    .32418,    .40029 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
     +     .24307,    .15316,   1.58095,    .16395,    .00000,
     +     .00000,    .09210,    .18382,
     +     .24995,    .15662,   1.78390,    .16998,    .00000,
     +     .00000,    .09922,    .19049,
     +     .25966,    .16146,   2.05665,    .17877,    .00422,
     +     .00000,    .10955,    .20014,
     +     .26642,    .16478,   2.23313,    .18502,    .01305,
     +     .00000,    .11690,    .20697,
     +     .27324,    .16807,   2.40169,    .19141,    .02100,
     +     .00000,    .12441,    .21395,
     +     .27889,    .17077,   2.53427,    .19675,    .02773,
     +     .00000,    .13069,    .21975,
     +     .28414,    .17326,   2.65298,    .20174,    .03428,
     +     .00000,    .13658,    .22517,
     +     .28955,    .17579,   2.76974,    .20691,    .04113,
     +     .00000,    .14268,    .23078 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
     +     .29403,    .17787,   2.85821,    .21118,    .04657,
     +     .00000,    .14773,    .23539,
     +     .29826,    .17981,   2.93911,    .21521,    .05194,
     +     .00000,    .15252,    .23974,
     +     .30151,    .18129,   2.99788,    .21831,    .05606,
     +     .00000,    .15620,    .24308,
     +     .30820,    .18430,   3.10528,    .22463,    .06458,
     +     .00032,    .16374,    .24988,
     +     .31369,    .18672,   3.17640,    .22973,    .07157,
     +     .00852,    .16987,    .25536,
     +     .31956,    .18926,   3.23990,    .23508,    .07905,
     +     .01922,    .17634,    .26111,
     +     .32535,    .19174,   3.29265,    .24025,    .08642,
     +     .02829,    .18264,    .26665,
     +     .33036,    .19383,   3.32956,    .24459,    .09276,
     +     .03617,    .18799,    .27130 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
     +     .33518,    .19582,   3.35730,    .24865,    .09883,
     +     .04370,    .19304,    .27564,
     +     .33896,    .19733,   3.37108,    .25167,    .10345,
     +     .04928,    .19687,    .27888,
     +     .34337,    .19907,   3.38189,    .25511,    .10886,
     +     .05598,    .20126,    .28255,
     +     .34711,    .20052,   3.38608,    .25793,    .11343,
     +     .06171,    .20491,    .28556,
     +     .35034,    .20175,   3.38373,    .26024,    .11731,
     +     .06651,    .20796,    .28801,
     +     .35428,    .20320,   3.37542,    .26291,    .12196,
     +     .07235,    .21155,    .29085,
     +     .35781,    .20447,   3.36292,    .26517,    .12609,
     +     .07760,    .21467,    .29327,
     +     .36093,    .20557,   3.34641,    .26705,    .12968,
     +     .08218,    .21733,    .29527 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
     +     .36389,    .20657,   3.32577,    .26867,    .13300,
     +     .08644,    .21972,    .29699,
     +     .36668,    .20750,   3.30368,    .27013,    .13612,
     +     .09051,    .22191,    .29854,
     +     .36914,    .20829,   3.27863,    .27125,    .13878,
     +     .09399,    .22372,    .29973,
     +     .37139,    .20899,   3.25393,    .27221,    .14120,
     +     .09719,    .22531,    .30075,
     +     .37352,    .20962,   3.22675,    .27301,    .14343,
     +     .10017,    .22674,    .30159,
     +     .37553,    .21020,   3.19874,    .27367,    .14550,
     +     .10298,    .22801,    .30229,
     +     .37735,    .21070,   3.17058,    .27418,    .14733,
     +     .10548,    .22908,    .30281,
     +     .37900,    .21115,   3.14322,    .27457,    .14897,
     +     .10776,    .23001,    .30322 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
     +     .38056,    .21154,   3.11413,    .27483,    .15048,
     +     .10988,    .23079,    .30350,
     +     .38207,    .21191,   3.08548,    .27506,    .15193,
     +     .11195,    .23154,    .30373,
     +     .38340,    .21220,   3.05623,    .27511,    .15314,
     +     .11371,    .23207,    .30378,
     +     .38465,    .21248,   3.02895,    .27517,    .15428,
     +     .11539,    .23258,    .30382,
     +     .38582,    .21270,   3.00016,    .27509,    .15530,
     +     .11693,    .23296,    .30374 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
     +     .29364,    .18418,   1.58268,    .15341,    .00000,
     +     .00000,    .08774,    .17980,
     +     .30083,    .18743,   1.73828,    .15798,    .00000,
     +     .00000,    .09351,    .18494,
     +     .31087,    .19191,   1.94091,    .16452,    .00356,
     +     .00000,    .10172,    .19223,
     +     .31778,    .19494,   2.06709,    .16907,    .01094,
     +     .00000,    .10747,    .19727,
     +     .32466,    .19790,   2.18436,    .17364,    .01750,
     +     .00000,    .11325,    .20230,
     +     .33031,    .20028,   2.27399,    .17739,    .02297,
     +     .00000,    .11801,    .20642,
     +     .33553,    .20245,   2.35220,    .18085,    .02823,
     +     .00000,    .12242,    .21020,
     +     .34086,    .20464,   2.42705,    .18437,    .03369,
     +     .00000,    .12693,    .21404 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
     +     .34521,    .20639,   2.48149,    .18722,    .03797,
     +     .00000,    .13061,    .21713,
     +     .34930,    .20801,   2.53002,    .18988,    .04216,
     +     .00000,    .13406,    .22002,
     +     .35243,    .20923,   2.56412,    .19189,    .04535,
     +     .00000,    .13668,    .22219,
     +     .35877,    .21166,   2.62213,    .19591,    .05188,
     +     .00027,    .14199,    .22653,
     +     .36392,    .21356,   2.65478,    .19906,    .05716,
     +     .00663,    .14621,    .22992,
     +     .36933,    .21551,   2.67887,    .20227,    .06274,
     +     .01488,    .15058,    .23335,
     +     .37459,    .21735,   2.69414,    .20526,    .06817,
     +     .02178,    .15474,    .23654,
     +     .37908,    .21886,   2.70004,    .20768,    .07276,
     +     .02771,    .15820,    .23910 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
     +     .38332,    .22023,   2.69922,    .20984,    .07712,
     +     .03332,    .16138,    .24137,
     +     .38657,    .22123,   2.69210,    .21138,    .08038,
     +     .03743,    .16373,    .24298,
     +     .39032,    .22234,   2.67962,    .21304,    .08415,
     +     .04232,    .16636,    .24470,
     +     .39345,    .22323,   2.66512,    .21433,    .08730,
     +     .04647,    .16850,    .24603,
     +     .39610,    .22393,   2.64768,    .21529,    .08993,
     +     .04991,    .17021,    .24701,
     +     .39925,    .22472,   2.62234,    .21632,    .09305,
     +     .05405,    .17216,    .24805,
     +     .40203,    .22537,   2.59577,    .21711,    .09577,
     +     .05774,    .17380,    .24882,
     +     .40441,    .22588,   2.56796,    .21766,    .09810,
     +     .06091,    .17512,    .24933 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
     +     .40662,    .22628,   2.53778,    .21802,    .10022,
     +     .06384,    .17624,    .24965,
     +     .40867,    .22662,   2.50742,    .21827,    .10219,
     +     .06661,    .17723,    .24986,
     +     .41040,    .22685,   2.47632,    .21833,    .10382,
     +     .06895,    .17796,    .24984,
     +     .41196,    .22703,   2.44665,    .21831,    .10529,
     +     .07108,    .17856,    .24976,
     +     .41338,    .22714,   2.41559,    .21817,    .10661,
     +     .07304,    .17904,    .24954,
     +     .41468,    .22721,   2.38455,    .21796,    .10782,
     +     .07488,    .17942,    .24923,
     +     .41580,    .22722,   2.35434,    .21766,    .10887,
     +     .07649,    .17967,    .24883,
     +     .41679,    .22721,   2.32556,    .21733,    .10978,
     +     .07795,    .17985,    .24840 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
     +     .41769,    .22713,   2.29582,    .21690,    .11060,
     +     .07929,    .17992,    .24787,
     +     .41855,    .22704,   2.26681,    .21645,    .11138,
     +     .08058,    .17998,    .24733,
     +     .41923,    .22689,   2.23818,    .21592,    .11200,
     +     .08166,    .17991,    .24669,
     +     .41987,    .22675,   2.21155,    .21541,    .11258,
     +     .08269,    .17984,    .24609,
     +     .42041,    .22656,   2.18405,    .21482,    .11307,
     +     .08362,    .17968,    .24539 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
     +     .38374,    .23445,   1.50453,    .13431,    .00000,
     +     .00000,    .07991,    .17176,
     +     .39055,    .23681,   1.59739,    .13689,    .00000,
     +     .00000,    .08374,    .17455,
     +     .39981,    .23992,   1.71068,    .14042,    .00265,
     +     .00000,    .08905,    .17833,
     +     .40605,    .24189,   1.77519,    .14277,    .00808,
     +     .00000,    .09263,    .18080,
     +     .41210,    .24373,   1.83130,    .14503,    .01279,
     +     .00000,    .09614,    .18314,
     +     .41696,    .24513,   1.87099,    .14680,    .01665,
     +     .00000,    .09895,    .18495,
     +     .42135,    .24635,   1.90320,    .14838,    .02031,
     +     .00000,    .10150,    .18653,
     +     .42573,    .24751,   1.93146,    .14992,    .02403,
     +     .00000,    .10405,    .18806 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
     +     .42922,    .24836,   1.94890,    .15109,    .02691,
     +     .00000,    .10605,    .18919,
     +     .43244,    .24910,   1.96287,    .15214,    .02969,
     +     .00000,    .10789,    .19019,
     +     .43485,    .24962,   1.97106,    .15290,    .03177,
     +     .00000,    .10926,    .19090,
     +     .43959,    .25055,   1.97864,    .15432,    .03598,
     +     .00020,    .11194,    .19218,
     +     .44326,    .25117,   1.97364,    .15531,    .03930,
     +     .00439,    .11398,    .19300,
     +     .44696,    .25168,   1.96055,    .15619,    .04274,
     +     .00978,    .11599,    .19367,
     +     .45039,    .25200,   1.94173,    .15686,    .04601,
     +     .01421,    .11779,    .19410,
     +     .45315,    .25214,   1.92056,    .15726,    .04871,
     +     .01794,    .11918,    .19426 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
     +     .45560,    .25214,   1.89592,    .15748,    .05121,
     +     .02142,    .12037,    .19423,
     +     .45733,    .25201,   1.87220,    .15750,    .05304,
     +     .02391,    .12115,    .19399,
     +     .45921,    .25174,   1.84199,    .15740,    .05512,
     +     .02685,    .12196,    .19359,
     +     .46067,    .25141,   1.81399,    .15720,    .05681,
     +     .02930,    .12253,    .19312,
     +     .46177,    .25102,   1.78654,    .15689,    .05818,
     +     .03130,    .12292,    .19253,
     +     .46293,    .25042,   1.75072,    .15638,    .05976,
     +     .03367,    .12326,    .19167,
     +     .46380,    .24978,   1.71635,    .15579,    .06111,
     +     .03575,    .12345,    .19074,
     +     .46441,    .24909,   1.68329,    .15514,    .06222,
     +     .03750,    .12349,    .18976 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
     +     .46480,    .24832,   1.64962,    .15439,    .06319,
     +     .03908,    .12342,    .18867,
     +     .46507,    .24753,   1.61691,    .15360,    .06406,
     +     .04056,    .12329,    .18755,
     +     .46512,    .24668,   1.58525,    .15275,    .06475,
     +     .04178,    .12304,    .18637,
     +     .46509,    .24585,   1.55576,    .15192,    .06534,
     +     .04288,    .12277,    .18524,
     +     .46491,    .24496,   1.52598,    .15103,    .06585,
     +     .04386,    .12241,    .18404,
     +     .46465,    .24405,   1.49693,    .15011,    .06629,
     +     .04477,    .12201,    .18281,
     +     .46428,    .24315,   1.46939,    .14919,    .06664,
     +     .04555,    .12158,    .18159,
     +     .46387,    .24228,   1.44362,    .14830,    .06693,
     +     .04624,    .12114,    .18042 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
     +     .46334,    .24135,   1.41762,    .14736,    .06716,
     +     .04685,    .12064,    .17919,
     +     .46279,    .24043,   1.39248,    .14643,    .06736,
     +     .04744,    .12013,    .17797,
     +     .46212,    .23950,   1.36835,    .14549,    .06749,
     +     .04791,    .11958,    .17675,
     +     .46150,    .23863,   1.34600,    .14460,    .06761,
     +     .04835,    .11907,    .17561,
     +     .46076,    .23770,   1.32339,    .14366,    .06767,
     +     .04873,    .11849,    .17441 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
     +     .46137,    .27247,   1.38330,    .11693,    .00000,
     +     .00000,    .07242,    .16205,
     +     .46689,    .27357,   1.43783,    .11825,    .00000,
     +     .00000,    .07494,    .16315,
     +     .47417,    .27482,   1.49873,    .11996,    .00204,
     +     .00000,    .07833,    .16445,
     +     .47888,    .27545,   1.52858,    .12100,    .00619,
     +     .00000,    .08056,    .16519,
     +     .48325,    .27590,   1.55129,    .12194,    .00974,
     +     .00000,    .08266,    .16571,
     +     .48663,    .27610,   1.56452,    .12260,    .01260,
     +     .00000,    .08429,    .16601,
     +     .48957,    .27617,   1.57298,    .12313,    .01527,
     +     .00000,    .08573,    .16619,
     +     .49239,    .27614,   1.57778,    .12361,    .01797,
     +     .00000,    .08712,    .16628 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
     +     .49450,    .27595,   1.57712,    .12388,    .02001,
     +     .00000,    .08817,    .16620,
     +     .49637,    .27570,   1.57461,    .12410,    .02197,
     +     .00000,    .08910,    .16607,
     +     .49770,    .27545,   1.57075,    .12422,    .02343,
     +     .00000,    .08977,    .16590,
     +     .50013,    .27474,   1.55576,    .12431,    .02632,
     +     .00016,    .09102,    .16539,
     +     .50178,    .27397,   1.53510,    .12423,    .02857,
     +     .00311,    .09188,    .16477,
     +     .50321,    .27294,   1.50748,    .12399,    .03086,
     +     .00689,    .09265,    .16389,
     +     .50426,    .27171,   1.47617,    .12357,    .03298,
     +     .00994,    .09323,    .16281,
     +     .50486,    .27046,   1.44588,    .12305,    .03471,
     +     .01248,    .09359,    .16170 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
     +     .50514,    .26909,   1.41394,    .12243,    .03627,
     +     .01481,    .09380,    .16046,
     +     .50507,    .26783,   1.38591,    .12179,    .03738,
     +     .01646,    .09384,    .15930,
     +     .50476,    .26624,   1.35172,    .12095,    .03861,
     +     .01838,    .09379,    .15784,
     +     .50430,    .26477,   1.32131,    .12015,    .03960,
     +     .01996,    .09366,    .15649,
     +     .50363,    .26334,   1.29283,    .11933,    .04038,
     +     .02123,    .09343,    .15516,
     +     .50258,    .26146,   1.25676,    .11824,    .04125,
     +     .02272,    .09306,    .15342,
     +     .50140,    .25964,   1.22312,    .11716,    .04196,
     +     .02401,    .09263,    .15174,
     +     .50009,    .25787,   1.19168,    .11607,    .04252,
     +     .02507,    .09216,    .15010 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
     +     .49860,    .25603,   1.16044,    .11494,    .04299,
     +     .02602,    .09161,    .14842,
     +     .49705,    .25421,   1.13054,    .11382,    .04340,
     +     .02689,    .09104,    .14675,
     +     .49537,    .25243,   1.10228,    .11270,    .04368,
     +     .02759,    .09042,    .14513,
     +     .49373,    .25075,   1.07627,    .11165,    .04392,
     +     .02821,    .08982,    .14359,
     +     .49194,    .24902,   1.05042,    .11056,    .04410,
     +     .02876,    .08917,    .14201,
     +     .49011,    .24730,   1.02549,    .10947,    .04423,
     +     .02925,    .08851,    .14046,
     +     .48829,    .24563,   1.00215,    .10841,    .04431,
     +     .02966,    .08785,    .13896,
     +     .48651,    .24404,    .98052,    .10740,    .04437,
     +     .03002,    .08722,    .13755 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
     +     .48462,    .24241,    .95897,    .10636,    .04438,
     +     .03033,    .08655,    .13610,
     +     .48274,    .24082,    .93827,    .10534,    .04438,
     +     .03062,    .08588,    .13468,
     +     .48081,    .23925,    .91865,    .10435,    .04434,
     +     .03084,    .08521,    .13330,
     +     .47901,    .23778,    .90055,    .10342,    .04429,
     +     .03105,    .08458,    .13201,
     +     .47708,    .23626,    .88244,    .10245,    .04421,
     +     .03121,    .08392,    .13068 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
     +     .52767,    .30063,   1.25369,    .10130,    .00000,
     +     .00000,    .06510,    .15058,
     +     .53131,    .30036,   1.28369,    .10184,    .00000,
     +     .00000,    .06672,    .15040,
     +     .53581,    .29957,   1.31204,    .10241,    .00161,
     +     .00000,    .06880,    .14995,
     +     .53843,    .29880,   1.32114,    .10269,    .00486,
     +     .00000,    .07011,    .14943,
     +     .54065,    .29775,   1.32434,    .10284,    .00761,
     +     .00000,    .07128,    .14876,
     +     .54213,    .29671,   1.32250,    .10286,    .00979,
     +     .00000,    .07214,    .14806,
     +     .54327,    .29561,   1.31777,    .10280,    .01181,
     +     .00000,    .07287,    .14732,
     +     .54421,    .29434,   1.30992,    .10267,    .01382,
     +     .00000,    .07355,    .14646 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
     +     .54465,    .29311,   1.29976,    .10246,    .01533,
     +     .00000,    .07401,    .14561,
     +     .54493,    .29189,   1.28879,    .10222,    .01676,
     +     .00000,    .07439,    .14477,
     +     .54501,    .29086,   1.27890,    .10198,    .01782,
     +     .00000,    .07463,    .14407,
     +     .54478,    .28855,   1.25327,    .10138,    .01989,
     +     .00013,    .07503,    .14246,
     +     .54416,    .28645,   1.22591,    .10076,    .02148,
     +     .00229,    .07521,    .14097,
     +     .54307,    .28398,   1.19273,    .09996,    .02306,
     +     .00504,    .07527,    .13921,
     +     .54154,    .28129,   1.15729,    .09902,    .02450,
     +     .00724,    .07518,    .13729,
     +     .53983,    .27876,   1.12458,    .09809,    .02565,
     +     .00904,    .07498,    .13547 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
     +     .53783,    .27613,   1.09132,    .09707,    .02667,
     +     .01068,    .07468,    .13358,
     +     .53588,    .27385,   1.06318,    .09615,    .02738,
     +     .01183,    .07434,    .13196,
     +     .53333,    .27108,   1.02955,    .09501,    .02814,
     +     .01314,    .07385,    .12997,
     +     .53092,    .26860,   1.00025,    .09398,    .02874,
     +     .01422,    .07336,    .12820,
     +     .52850,    .26626,    .97341,    .09298,    .02919,
     +     .01507,    .07286,    .12653,
     +     .52526,    .26327,    .93999,    .09168,    .02968,
     +     .01606,    .07218,    .12439,
     +     .52207,    .26043,    .90932,    .09044,    .03006,
     +     .01689,    .07148,    .12238,
     +     .51892,    .25773,    .88112,    .08924,    .03035,
     +     .01758,    .07077,    .12049 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
     +     .51561,    .25501,    .85350,    .08802,    .03056,
     +     .01817,    .07003,    .11858,
     +     .51232,    .25237,    .82732,    .08684,    .03073,
     +     .01871,    .06929,    .11672,
     +     .50901,    .24983,    .80293,    .08569,    .03083,
     +     .01914,    .06854,    .11494,
     +     .50588,    .24744,    .78065,    .08461,    .03090,
     +     .01951,    .06784,    .11328,
     +     .50263,    .24502,    .75873,    .08350,    .03093,
     +     .01983,    .06711,    .11162,
     +     .49938,    .24263,    .73779,    .08242,    .03093,
     +     .02011,    .06637,    .10999,
     +     .49623,    .24036,    .71837,    .08138,    .03090,
     +     .02033,    .06566,    .10844,
     +     .49322,    .23822,    .70047,    .08041,    .03085,
     +     .02053,    .06499,    .10699 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
     +     .49010,    .23604,    .68277,    .07942,    .03078,
     +     .02069,    .06429,    .10553,
     +     .48704,    .23392,    .66584,    .07845,    .03070,
     +     .02083,    .06360,    .10410,
     +     .48401,    .23186,    .64994,    .07751,    .03059,
     +     .02093,    .06293,    .10273,
     +     .48118,    .22994,    .63531,    .07664,    .03049,
     +     .02102,    .06231,    .10146,
     +     .47823,    .22798,    .62078,    .07574,    .03037,
     +     .02109,    .06166,    .10016 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
     +     .59557,    .32448,   1.10039,    .08438,    .00000,
     +     .00000,    .05633,    .13438,
     +     .59636,    .32243,   1.11090,    .08432,    .00000,
     +     .00000,    .05716,    .13314,
     +     .59670,    .31911,   1.11422,    .08409,    .00123,
     +     .00000,    .05816,    .13120,
     +     .59636,    .31655,   1.10798,    .08381,    .00368,
     +     .00000,    .05872,    .12969,
     +     .59545,    .31372,   1.09712,    .08341,    .00572,
     +     .00000,    .05916,    .12805,
     +     .59430,    .31118,   1.08477,    .08299,    .00731,
     +     .00000,    .05942,    .12657,
     +     .59295,    .30868,   1.07111,    .08254,    .00878,
     +     .00000,    .05960,    .12513,
     +     .59128,    .30597,   1.05494,    .08202,    .01022,
     +     .00000,    .05972,    .12358 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
     +     .58949,    .30353,   1.03883,    .08149,    .01128,
     +     .00000,    .05972,    .12219,
     +     .58765,    .30117,   1.02276,    .08096,    .01229,
     +     .00000,    .05970,    .12083,
     +     .58605,    .29927,   1.00940,    .08052,    .01301,
     +     .00000,    .05964,    .11973,
     +     .58233,    .29516,    .97817,    .07951,    .01443,
     +     .00010,    .05942,    .11739,
     +     .57879,    .29154,    .94808,    .07857,    .01548,
     +     .00161,    .05913,    .11535,
     +     .57453,    .28745,    .91341,    .07746,    .01652,
     +     .00354,    .05871,    .11302,
     +     .56977,    .28316,    .87765,    .07626,    .01744,
     +     .00505,    .05819,    .11059,
     +     .56522,    .27923,    .84564,    .07512,    .01815,
     +     .00627,    .05763,    .10839 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
     +     .56041,    .27529,    .81389,    .07396,    .01877,
     +     .00737,    .05702,    .10616,
     +     .55617,    .27197,    .78774,    .07294,    .01918,
     +     .00812,    .05645,    .10429,
     +     .55097,    .26794,    .75696,    .07170,    .01961,
     +     .00898,    .05573,    .10207,
     +     .54629,    .26440,    .73056,    .07058,    .01993,
     +     .00967,    .05507,    .10011,
     +     .54181,    .26114,    .70680,    .06955,    .02016,
     +     .01021,    .05442,    .09832,
     +     .53603,    .25704,    .67765,    .06824,    .02040,
     +     .01082,    .05358,    .09605,
     +     .53054,    .25321,    .65129,    .06701,    .02056,
     +     .01133,    .05277,    .09396,
     +     .52529,    .24962,    .62736,    .06585,    .02066,
     +     .01174,    .05199,    .09202 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
     +     .51995,    .24604,    .60421,    .06468,    .02072,
     +     .01209,    .05119,    .09010,
     +     .51473,    .24258,    .58249,    .06354,    .02075,
     +     .01240,    .05042,    .08827,
     +     .50966,    .23930,    .56252,    .06247,    .02074,
     +     .01263,    .04966,    .08653,
     +     .50491,    .23625,    .54442,    .06147,    .02072,
     +     .01283,    .04895,    .08492,
     +     .50008,    .23319,    .52677,    .06046,    .02066,
     +     .01300,    .04823,    .08332,
     +     .49532,    .23020,    .51001,    .05947,    .02059,
     +     .01314,    .04752,    .08178,
     +     .49076,    .22738,    .49458,    .05854,    .02051,
     +     .01325,    .04684,    .08033,
     +     .48645,    .22474,    .48046,    .05767,    .02042,
     +     .01334,    .04620,    .07897 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
     +     .48207,    .22207,    .46661,    .05679,    .02031,
     +     .01341,    .04556,    .07761,
     +     .47779,    .21948,    .45343,    .05594,    .02020,
     +     .01346,    .04494,    .07630,
     +     .47362,    .21699,    .44115,    .05513,    .02007,
     +     .01349,    .04433,    .07506,
     +     .46973,    .21467,    .42990,    .05437,    .01996,
     +     .01352,    .04376,    .07390,
     +     .46573,    .21233,    .41880,    .05360,    .01983,
     +     .01353,    .04318,    .07273 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
     +     .64782,    .33788,    .96472,    .07026,    .00000,
     +     .00000,    .04813,    .11711,
     +     .64553,    .33409,    .96295,    .06986,    .00000,
     +     .00000,    .04846,    .11525,
     +     .64133,    .32843,    .95104,    .06918,    .00095,
     +     .00000,    .04877,    .11248,
     +     .63780,    .32424,    .93589,    .06861,    .00283,
     +     .00000,    .04887,    .11042,
     +     .63366,    .31973,    .91719,    .06791,    .00437,
     +     .00000,    .04888,    .10827,
     +     .62977,    .31582,    .89922,    .06727,    .00556,
     +     .00000,    .04879,    .10640,
     +     .62586,    .31207,    .88099,    .06663,    .00664,
     +     .00000,    .04866,    .10461,
     +     .62155,    .30808,    .86080,    .06590,    .00769,
     +     .00000,    .04846,    .10274 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
     +     .61750,    .30459,    .84207,    .06525,    .00846,
     +     .00000,    .04824,    .10109,
     +     .61354,    .30124,    .82390,    .06460,    .00918,
     +     .00000,    .04800,    .09951,
     +     .61032,    .29857,    .80924,    .06407,    .00969,
     +     .00000,    .04777,    .09826,
     +     .60322,    .29290,    .77653,    .06291,    .01067,
     +     .00008,    .04723,    .09564,
     +     .59686,    .28802,    .74655,    .06186,    .01139,
     +     .00116,    .04670,    .09339,
     +     .58953,    .28262,    .71297,    .06067,    .01208,
     +     .00254,    .04606,    .09090,
     +     .58172,    .27704,    .67913,    .05942,    .01268,
     +     .00361,    .04534,    .08834,
     +     .57453,    .27201,    .64940,    .05826,    .01313,
     +     .00446,    .04465,    .08605 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
     +     .56719,    .26698,    .62041,    .05706,    .01351,
     +     .00521,    .04393,    .08379,
     +     .56091,    .26282,    .59695,    .05606,    .01375,
     +     .00572,    .04329,    .08193,
     +     .55330,    .25786,    .56967,    .05486,    .01399,
     +     .00629,    .04250,    .07972,
     +     .54656,    .25353,    .54655,    .05381,    .01416,
     +     .00675,    .04179,    .07781,
     +     .54029,    .24958,    .52601,    .05284,    .01426,
     +     .00710,    .04112,    .07608,
     +     .53233,    .24464,    .50107,    .05160,    .01436,
     +     .00749,    .04028,    .07393,
     +     .52486,    .24008,    .47874,    .05046,    .01441,
     +     .00781,    .03948,    .07195,
     +     .51784,    .23584,    .45870,    .04941,    .01443,
     +     .00806,    .03873,    .07014 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
     +     .51080,    .23164,    .43951,    .04835,    .01441,
     +     .00827,    .03797,    .06838,
     +     .50400,    .22762,    .42164,    .04733,    .01438,
     +     .00845,    .03723,    .06670,
     +     .49746,    .22385,    .40536,    .04638,    .01432,
     +     .00858,    .03653,    .06512,
     +     .49138,    .22036,    .39070,    .04550,    .01426,
     +     .00869,    .03588,    .06367,
     +     .48527,    .21687,    .37650,    .04462,    .01417,
     +     .00878,    .03523,    .06224,
     +     .47930,    .21349,    .36312,    .04376,    .01408,
     +     .00885,    .03459,    .06087,
     +     .47362,    .21032,    .35087,    .04296,    .01398,
     +     .00890,    .03399,    .05958,
     +     .46829,    .20736,    .33973,    .04222,    .01388,
     +     .00893,    .03343,    .05839 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
     +     .46290,    .20440,    .32887,    .04147,    .01377,
     +     .00895,    .03287,    .05721,
     +     .45767,    .20154,    .31857,    .04075,    .01367,
     +     .00897,    .03232,    .05606,
     +     .45266,    .19879,    .30905,    .04005,    .01355,
     +     .00897,    .03180,    .05500,
     +     .44799,    .19623,    .30035,    .03941,    .01344,
     +     .00897,    .03131,    .05401,
     +     .44320,    .19367,    .29180,    .03877,    .01332,
     +     .00895,    .03082,    .05301 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
     +     .68550,    .34270,    .84752,    .05862,    .00000,
     +     .00000,    .04061,    .09980,
     +     .67993,    .33745,    .83763,    .05806,    .00000,
     +     .00000,    .04063,    .09761,
     +     .67121,    .32963,    .81604,    .05714,    .00074,
     +     .00000,    .04050,    .09446,
     +     .66448,    .32402,    .79557,    .05642,    .00219,
     +     .00000,    .04033,    .09218,
     +     .65713,    .31808,    .77242,    .05559,    .00337,
     +     .00000,    .04007,    .08982,
     +     .65056,    .31303,    .75147,    .05487,    .00427,
     +     .00000,    .03978,    .08781,
     +     .64416,    .30823,    .73101,    .05416,    .00508,
     +     .00000,    .03947,    .08591,
     +     .63728,    .30319,    .70906,    .05337,    .00586,
     +     .00000,    .03911,    .08393 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
     +     .63113,    .29881,    .68941,    .05266,    .00642,
     +     .00000,    .03875,    .08223,
     +     .62518,    .29464,    .67068,    .05198,    .00693,
     +     .00000,    .03838,    .08062,
     +     .62041,    .29137,    .65584,    .05143,    .00730,
     +     .00000,    .03808,    .07937,
     +     .61014,    .28447,    .62362,    .05023,    .00799,
     +     .00006,    .03740,    .07673,
     +     .60120,    .27861,    .59505,    .04918,    .00849,
     +     .00085,    .03678,    .07451,
     +     .59113,    .27216,    .56369,    .04801,    .00896,
     +     .00185,    .03606,    .07208,
     +     .58061,    .26558,    .53260,    .04680,    .00935,
     +     .00262,    .03528,    .06962,
     +     .57107,    .25972,    .50572,    .04569,    .00964,
     +     .00322,    .03455,    .06746 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
     +     .56149,    .25391,    .47981,    .04456,    .00986,
     +     .00374,    .03380,    .06535,
     +     .55345,    .24915,    .45916,    .04364,    .01000,
     +     .00409,    .03317,    .06363,
     +     .54381,    .24349,    .43537,    .04252,    .01013,
     +     .00449,    .03240,    .06160,
     +     .53537,    .23860,    .41538,    .04156,    .01021,
     +     .00479,    .03174,    .05985,
     +     .52759,    .23419,    .39783,    .04068,    .01025,
     +     .00502,    .03111,    .05828,
     +     .51783,    .22869,    .37670,    .03958,    .01028,
     +     .00528,    .03032,    .05635,
     +     .50877,    .22363,    .35796,    .03856,    .01027,
     +     .00548,    .02959,    .05460,
     +     .50033,    .21897,    .34131,    .03762,    .01024,
     +     .00564,    .02891,    .05301 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
     +     .49193,    .21439,    .32549,    .03669,    .01020,
     +     .00577,    .02823,    .05146,
     +     .48386,    .21003,    .31084,    .03580,    .01014,
     +     .00587,    .02758,    .04999,
     +     .47623,    .20595,    .29760,    .03497,    .01007,
     +     .00595,    .02697,    .04864,
     +     .46915,    .20219,    .28575,    .03420,    .00999,
     +     .00600,    .02640,    .04740,
     +     .46208,    .19847,    .27437,    .03344,    .00990,
     +     .00605,    .02584,    .04617,
     +     .45520,    .19488,    .26368,    .03271,    .00981,
     +     .00608,    .02530,    .04500,
     +     .44871,    .19152,    .25396,    .03204,    .00972,
     +     .00610,    .02478,    .04392,
     +     .44265,    .18839,    .24515,    .03140,    .00962,
     +     .00611,    .02431,    .04292 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
     +     .43657,    .18526,    .23662,    .03076,    .00952,
     +     .00611,    .02383,    .04194,
     +     .43067,    .18225,    .22855,    .03015,    .00943,
     +     .00610,    .02337,    .04099,
     +     .42500,    .17940,    .22113,    .02960,    .00932,
     +     .00609,    .02294,    .04009,
     +     .41974,    .17676,    .21437,    .02908,    .00923,
     +     .00607,    .02254,    .03926,
     +     .41442,    .17410,    .20778,    .02855,    .00913,
     +     .00605,    .02214,    .03844 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
     +     .70974,    .34054,    .74646,    .04907,    .00000,
     +     .00000,    .03385,    .08321,
     +     .70105,    .33394,    .73094,    .04839,    .00000,
     +     .00000,    .03369,    .08098,
     +     .68789,    .32437,    .70298,    .04735,    .00058,
     +     .00000,    .03332,    .07777,
     +     .67812,    .31755,    .67931,    .04658,    .00171,
     +     .00000,    .03300,    .07546,
     +     .66771,    .31046,    .65372,    .04570,    .00262,
     +     .00000,    .03259,    .07314,
     +     .65865,    .30445,    .63133,    .04494,    .00330,
     +     .00000,    .03220,    .07117,
     +     .64996,    .29880,    .60998,    .04419,    .00391,
     +     .00000,    .03181,    .06933,
     +     .64075,    .29292,    .58756,    .04339,    .00448,
     +     .00000,    .03137,    .06743 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
     +     .63267,    .28783,    .56795,    .04267,    .00489,
     +     .00000,    .03096,    .06582,
     +     .62492,    .28303,    .54948,    .04199,    .00527,
     +     .00000,    .03056,    .06430,
     +     .61879,    .27927,    .53503,    .04144,    .00553,
     +     .00000,    .03024,    .06311,
     +     .60573,    .27144,    .50429,    .04029,    .00602,
     +     .00005,    .02953,    .06065,
     +     .59451,    .26483,    .47771,    .03930,    .00636,
     +     .00063,    .02889,    .05859,
     +     .58207,    .25762,    .44904,    .03818,    .00668,
     +     .00136,    .02817,    .05639,
     +     .56925,    .25032,    .42098,    .03702,    .00693,
     +     .00191,    .02740,    .05418,
     +     .55776,    .24388,    .39701,    .03600,    .00711,
     +     .00234,    .02671,    .05223 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
     +     .54635,    .23751,    .37424,    .03496,    .00725,
     +     .00271,    .02601,    .05036,
     +     .53686,    .23235,    .35623,    .03412,    .00732,
     +     .00296,    .02543,    .04884,
     +     .52554,    .22627,    .33570,    .03313,    .00738,
     +     .00323,    .02473,    .04705,
     +     .51571,    .22104,    .31863,    .03228,    .00741,
     +     .00343,    .02411,    .04553,
     +     .50677,    .21632,    .30375,    .03149,    .00742,
     +     .00359,    .02356,    .04419,
     +     .49561,    .21048,    .28599,    .03051,    .00741,
     +     .00375,    .02286,    .04254,
     +     .48532,    .20515,    .27036,    .02961,    .00738,
     +     .00389,    .02222,    .04105,
     +     .47578,    .20027,    .25658,    .02880,    .00733,
     +     .00398,    .02163,    .03970 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
     +     .46638,    .19551,    .24360,    .02801,    .00727,
     +     .00406,    .02104,    .03839,
     +     .45739,    .19099,    .23165,    .02725,    .00720,
     +     .00412,    .02049,    .03716,
     +     .44895,    .18675,    .22096,    .02653,    .00713,
     +     .00416,    .01998,    .03603,
     +     .44116,    .18287,    .21141,    .02588,    .00706,
     +     .00419,    .01950,    .03500,
     +     .43341,    .17905,    .20227,    .02524,    .00698,
     +     .00421,    .01902,    .03401,
     +     .42590,    .17538,    .19374,    .02463,    .00689,
     +     .00422,    .01856,    .03305,
     +     .41885,    .17196,    .18602,    .02406,    .00681,
     +     .00422,    .01814,    .03215,
     +     .41229,    .16879,    .17906,    .02353,    .00673,
     +     .00421,    .01775,    .03133 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
     +     .40573,    .16565,    .17236,    .02300,    .00664,
     +     .00421,    .01735,    .03054,
     +     .39939,    .16263,    .16605,    .02249,    .00656,
     +     .00420,    .01698,    .02978,
     +     .39335,    .15976,    .16028,    .02203,    .00647,
     +     .00418,    .01662,    .02906,
     +     .38774,    .15710,    .15503,    .02160,    .00640,
     +     .00416,    .01629,    .02839,
     +     .38211,    .15445,    .14992,    .02117,    .00631,
     +     .00414,    .01597,    .02773 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
     +     .72171,    .33271,    .65855,    .04114,    .00000,
     +     .00000,    .02792,    .06796,
     +     .71007,    .32503,    .63910,    .04043,    .00000,
     +     .00000,    .02763,    .06583,
     +     .69282,    .31401,    .60697,    .03933,    .00045,
     +     .00000,    .02716,    .06277,
     +     .68031,    .30620,    .58148,    .03850,    .00133,
     +     .00000,    .02674,    .06066,
     +     .66712,    .29821,    .55472,    .03762,    .00203,
     +     .00000,    .02628,    .05848,
     +     .65582,    .29147,    .53187,    .03685,    .00255,
     +     .00000,    .02588,    .05667,
     +     .64510,    .28516,    .51044,    .03611,    .00300,
     +     .00000,    .02546,    .05498,
     +     .63386,    .27862,    .48829,    .03534,    .00343,
     +     .00000,    .02499,    .05326 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
     +     .62408,    .27305,    .46929,    .03463,    .00373,
     +     .00000,    .02459,    .05181,
     +     .61477,    .26780,    .45161,    .03397,    .00400,
     +     .00000,    .02419,    .05045,
     +     .60744,    .26371,    .43795,    .03346,    .00419,
     +     .00000,    .02386,    .04939,
     +     .59201,    .25520,    .40928,    .03236,    .00454,
     +     .00004,    .02318,    .04721,
     +     .57890,    .24810,    .38495,    .03144,    .00478,
     +     .00047,    .02257,    .04540,
     +     .56452,    .24037,    .35908,    .03041,    .00499,
     +     .00100,    .02190,    .04348,
     +     .54984,    .23260,    .33410,    .02934,    .00515,
     +     .00140,    .02120,    .04157,
     +     .53676,    .22581,    .31304,    .02842,    .00526,
     +     .00171,    .02058,    .03989 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
     +     .52385,    .21918,    .29317,    .02750,    .00533,
     +     .00197,    .01994,    .03828,
     +     .51323,    .21379,    .27767,    .02675,    .00537,
     +     .00214,    .01943,    .03699,
     +     .50066,    .20748,    .26012,    .02588,    .00539,
     +     .00233,    .01882,    .03548,
     +     .48981,    .20208,    .24565,    .02513,    .00540,
     +     .00247,    .01829,    .03420,
     +     .48000,    .19722,    .23313,    .02443,    .00538,
     +     .00257,    .01780,    .03309,
     +     .46781,    .19124,    .21829,    .02358,    .00535,
     +     .00268,    .01720,    .03173,
     +     .45663,    .18581,    .20535,    .02281,    .00531,
     +     .00277,    .01666,    .03050,
     +     .44636,    .18087,    .19404,    .02211,    .00526,
     +     .00283,    .01617,    .02939 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
     +     .43630,    .17605,    .18344,    .02142,    .00520,
     +     .00287,    .01567,    .02833,
     +     .42671,    .17150,    .17373,    .02077,    .00514,
     +     .00290,    .01519,    .02734,
     +     .41772,    .16729,    .16510,    .02017,    .00507,
     +     .00292,    .01477,    .02642,
     +     .40946,    .16343,    .15744,    .01963,    .00500,
     +     .00294,    .01438,    .02559,
     +     .40130,    .15965,    .15016,    .01910,    .00493,
     +     .00294,    .01399,    .02478,
     +     .39342,    .15602,    .14339,    .01859,    .00486,
     +     .00294,    .01362,    .02402,
     +     .38605,    .15264,    .13728,    .01812,    .00479,
     +     .00294,    .01327,    .02331,
     +     .37922,    .14952,    .13179,    .01768,    .00472,
     +     .00293,    .01295,    .02267 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
     +     .37241,    .14643,    .12654,    .01725,    .00465,
     +     .00292,    .01264,    .02202,
     +     .36586,    .14346,    .12160,    .01684,    .00459,
     +     .00290,    .01234,    .02141,
     +     .35963,    .14066,    .11710,    .01645,    .00452,
     +     .00288,    .01206,    .02085,
     +     .35387,    .13808,    .11302,    .01609,    .00445,
     +     .00287,    .01179,    .02034,
     +     .34810,    .13550,    .10906,    .01573,    .00439,
     +     .00284,    .01153,    .01983 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
     +     .72269,    .32034,    .58106,    .03451,    .00000,
     +     .00000,    .02278,    .05442,
     +     .70837,    .31181,    .55891,    .03376,    .00000,
     +     .00000,    .02244,    .05247,
     +     .68741,    .29975,    .52427,    .03270,    .00035,
     +     .00000,    .02189,    .04970,
     +     .67243,    .29125,    .49796,    .03187,    .00103,
     +     .00000,    .02147,    .04781,
     +     .65684,    .28259,    .47099,    .03101,    .00157,
     +     .00000,    .02098,    .04590,
     +     .64360,    .27535,    .44839,    .03027,    .00196,
     +     .00000,    .02055,    .04430,
     +     .63113,    .26860,    .42750,    .02956,    .00230,
     +     .00000,    .02014,    .04283,
     +     .61816,    .26164,    .40623,    .02881,    .00262,
     +     .00000,    .01971,    .04134 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
     +     .60694,    .25574,    .38823,    .02817,    .00284,
     +     .00000,    .01932,    .04006,
     +     .59635,    .25020,    .37160,    .02756,    .00304,
     +     .00000,    .01894,    .03888,
     +     .58808,    .24590,    .35885,    .02707,    .00317,
     +     .00000,    .01864,    .03799,
     +     .57075,    .23699,    .33255,    .02606,    .00342,
     +     .00003,    .01800,    .03613,
     +     .55614,    .22960,    .31063,    .02521,    .00358,
     +     .00034,    .01745,    .03460,
     +     .54020,    .22164,    .28761,    .02428,    .00372,
     +     .00074,    .01686,    .03296,
     +     .52405,    .21367,    .26563,    .02334,    .00383,
     +     .00103,    .01625,    .03135,
     +     .50981,    .20670,    .24732,    .02252,    .00389,
     +     .00125,    .01570,    .02997 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
     +     .49584,    .19996,    .23022,    .02169,    .00393,
     +     .00144,    .01517,    .02863,
     +     .48444,    .19450,    .21695,    .02103,    .00394,
     +     .00155,    .01471,    .02759,
     +     .47100,    .18813,    .20207,    .02025,    .00394,
     +     .00168,    .01419,    .02638,
     +     .45944,    .18270,    .18991,    .01960,    .00393,
     +     .00178,    .01374,    .02534,
     +     .44904,    .17788,    .17946,    .01900,    .00391,
     +     .00185,    .01333,    .02443,
     +     .43619,    .17194,    .16718,    .01829,    .00387,
     +     .00192,    .01284,    .02331,
     +     .42447,    .16655,    .15654,    .01764,    .00383,
     +     .00197,    .01240,    .02232,
     +     .41376,    .16166,    .14730,    .01704,    .00378,
     +     .00201,    .01197,    .02146 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
     +     .40331,    .15694,    .13868,    .01647,    .00373,
     +     .00203,    .01157,    .02061,
     +     .39338,    .15248,    .13083,    .01593,    .00367,
     +     .00205,    .01120,    .01981,
     +     .38416,    .14836,    .12390,    .01541,    .00361,
     +     .00206,    .01085,    .01910,
     +     .37569,    .14461,    .11778,    .01495,    .00356,
     +     .00207,    .01054,    .01846,
     +     .36732,    .14093,    .11199,    .01452,    .00350,
     +     .00206,    .01023,    .01782,
     +     .35931,    .13741,    .10663,    .01409,    .00344,
     +     .00206,    .00993,    .01722,
     +     .35187,    .13415,    .10181,    .01369,    .00338,
     +     .00205,    .00965,    .01668,
     +     .34496,    .13116,    .09750,    .01332,    .00333,
     +     .00204,    .00939,    .01618 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
     +     .33807,    .12820,    .09339,    .01299,    .00327,
     +     .00203,    .00915,    .01569,
     +     .33144,    .12537,    .08954,    .01266,    .00321,
     +     .00202,    .00891,    .01522,
     +     .32523,    .12270,    .08605,    .01233,    .00316,
     +     .00200,    .00869,    .01480,
     +     .31949,    .12024,    .08289,    .01204,    .00311,
     +     .00198,    .00848,    .01441,
     +     .31373,    .11779,    .07985,    .01175,    .00306,
     +     .00197,    .00828,    .01402 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
     +     .71351,    .30482,    .51188,    .02919,    .00000,
     +     .00000,    .01817,    .04252,
     +     .69689,    .29569,    .48799,    .02842,    .00000,
     +     .00000,    .01783,    .04086,
     +     .67287,    .28280,    .45208,    .02729,    .00028,
     +     .00000,    .01731,    .03852,
     +     .65584,    .27383,    .42575,    .02650,    .00080,
     +     .00000,    .01692,    .03687,
     +     .63829,    .26471,    .39924,    .02565,    .00121,
     +     .00000,    .01647,    .03527,
     +     .62348,    .25715,    .37740,    .02493,    .00151,
     +     .00000,    .01608,    .03392,
     +     .60961,    .25012,    .35747,    .02426,    .00176,
     +     .00000,    .01571,    .03269,
     +     .59528,    .24290,    .33738,    .02355,    .00200,
     +     .00000,    .01532,    .03144 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
     +     .58299,    .23682,    .32064,    .02293,    .00216,
     +     .00000,    .01496,    .03041,
     +     .57139,    .23113,    .30529,    .02236,    .00230,
     +     .00000,    .01463,    .02943,
     +     .56235,    .22675,    .29363,    .02194,    .00240,
     +     .00000,    .01437,    .02867,
     +     .54356,    .21769,    .26986,    .02102,    .00257,
     +     .00003,    .01382,    .02713,
     +     .52788,    .21017,    .25036,    .02024,    .00268,
     +     .00026,    .01335,    .02589,
     +     .51085,    .20214,    .23015,    .01939,    .00277,
     +     .00055,    .01284,    .02456,
     +     .49370,    .19416,    .21103,    .01855,    .00283,
     +     .00076,    .01232,    .02326,
     +     .47867,    .18721,    .19520,    .01782,    .00287,
     +     .00092,    .01186,    .02215 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
     +     .46397,    .18053,    .18061,    .01712,    .00289,
     +     .00105,    .01140,    .02108,
     +     .45209,    .17512,    .16943,    .01654,    .00289,
     +     .00113,    .01103,    .02025,
     +     .43814,    .16883,    .15695,    .01587,    .00288,
     +     .00122,    .01060,    .01928,
     +     .42620,    .16351,    .14680,    .01530,    .00286,
     +     .00128,    .01023,    .01846,
     +     .41548,    .15878,    .13816,    .01480,    .00283,
     +     .00133,    .00990,    .01775,
     +     .40232,    .15300,    .12806,    .01418,    .00280,
     +     .00138,    .00949,    .01689,
     +     .39037,    .14779,    .11938,    .01362,    .00276,
     +     .00141,    .00913,    .01611,
     +     .37947,    .14308,    .11186,    .01312,    .00271,
     +     .00143,    .00879,    .01545 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
     +     .36890,    .13854,    .10493,    .01262,    .00266,
     +     .00144,    .00848,    .01479,
     +     .35892,    .13426,    .09865,    .01216,    .00262,
     +     .00145,    .00819,    .01417,
     +     .34962,    .13033,    .09311,    .01175,    .00257,
     +     .00146,    .00790,    .01362,
     +     .34114,    .12675,    .08824,    .01138,    .00252,
     +     .00146,    .00765,    .01312,
     +     .33283,    .12325,    .08366,    .01102,    .00248,
     +     .00145,    .00740,    .01264,
     +     .32486,    .11993,    .07944,    .01067,    .00243,
     +     .00144,    .00717,    .01218,
     +     .31744,    .11685,    .07567,    .01036,    .00238,
     +     .00144,    .00696,    .01176,
     +     .31060,    .11403,    .07231,    .01007,    .00234,
     +     .00143,    .00677,    .01139 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
     +     .30383,    .11124,    .06911,    .00978,    .00229,
     +     .00141,    .00657,    .01102,
     +     .29734,    .10857,    .06612,    .00950,    .00225,
     +     .00140,    .00638,    .01068,
     +     .29124,    .10608,    .06342,    .00925,    .00221,
     +     .00139,    .00621,    .01034,
     +     .28560,    .10378,    .06098,    .00902,    .00217,
     +     .00138,    .00606,    .01004,
     +     .28000,    .10149,    .05863,    .00877,    .00213,
     +     .00136,    .00590,    .00976 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
     +     .69630,    .28619,    .44884,    .02421,    .00000,
     +     .00000,    .01452,    .03280,
     +     .67767,    .27674,    .42412,    .02349,    .00000,
     +     .00000,    .01420,    .03138,
     +     .65101,    .26346,    .38805,    .02245,    .00021,
     +     .00000,    .01368,    .02942,
     +     .63230,    .25423,    .36235,    .02168,    .00061,
     +     .00000,    .01330,    .02807,
     +     .61313,    .24493,    .33686,    .02091,    .00092,
     +     .00000,    .01290,    .02671,
     +     .59710,    .23720,    .31622,    .02024,    .00114,
     +     .00000,    .01255,    .02562,
     +     .58216,    .23009,    .29759,    .01961,    .00133,
     +     .00000,    .01222,    .02462,
     +     .56673,    .22285,    .27899,    .01899,    .00150,
     +     .00000,    .01186,    .02358 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
     +     .55359,    .21675,    .26366,    .01846,    .00162,
     +     .00000,    .01156,    .02271,
     +     .54127,    .21106,    .24975,    .01796,    .00172,
     +     .00000,    .01127,    .02191,
     +     .53171,    .20667,    .23928,    .01756,    .00179,
     +     .00000,    .01103,    .02132,
     +     .51191,    .19766,    .21812,    .01674,    .00191,
     +     .00002,    .01055,    .02009,
     +     .49550,    .19020,    .20100,    .01604,    .00198,
     +     .00019,    .01014,    .01912,
     +     .47778,    .18227,    .18345,    .01531,    .00204,
     +     .00040,    .00971,    .01808,
     +     .46000,    .17446,    .16702,    .01460,    .00208,
     +     .00055,    .00929,    .01702,
     +     .44453,    .16769,    .15355,    .01396,    .00210,
     +     .00066,    .00891,    .01614 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
     +     .42950,    .16117,    .14127,    .01336,    .00210,
     +     .00075,    .00854,    .01531,
     +     .41738,    .15595,    .13190,    .01285,    .00209,
     +     .00081,    .00822,    .01468,
     +     .40322,    .14990,    .12152,    .01228,    .00208,
     +     .00087,    .00787,    .01393,
     +     .39114,    .14477,    .11313,    .01181,    .00206,
     +     .00092,    .00757,    .01330,
     +     .38033,    .14027,    .10606,    .01141,    .00204,
     +     .00095,    .00731,    .01273,
     +     .36714,    .13474,    .09785,    .01089,    .00200,
     +     .00098,    .00699,    .01207,
     +     .35521,    .12976,    .09082,    .01042,    .00197,
     +     .00100,    .00669,    .01150,
     +     .34439,    .12533,    .08479,    .01002,    .00193,
     +     .00101,    .00642,    .01097 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
     +     .33392,    .12103,    .07924,    .00962,    .00189,
     +     .00102,    .00617,    .01047,
     +     .32404,    .11700,    .07423,    .00925,    .00185,
     +     .00102,    .00594,    .01001,
     +     .31493,    .11331,    .06984,    .00890,    .00182,
     +     .00102,    .00572,    .00961,
     +     .30662,    .10996,    .06600,    .00859,    .00178,
     +     .00102,    .00553,    .00924,
     +     .29849,    .10670,    .06241,    .00829,    .00174,
     +     .00101,    .00534,    .00888,
     +     .29072,    .10360,    .05912,    .00801,    .00170,
     +     .00100,    .00516,    .00853,
     +     .28353,    .10074,    .05619,    .00776,    .00167,
     +     .00100,    .00499,    .00821,
     +     .27691,    .09811,    .05358,    .00752,    .00164,
     +     .00099,    .00484,    .00793 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
     +     .27037,    .09554,    .05110,    .00728,    .00160,
     +     .00098,    .00469,    .00767,
     +     .26411,    .09308,    .04879,    .00705,    .00157,
     +     .00097,    .00454,    .00742,
     +     .25823,    .09079,    .04671,    .00685,    .00154,
     +     .00096,    .00442,    .00717,
     +     .25281,    .08868,    .04483,    .00667,    .00151,
     +     .00095,    .00430,    .00695,
     +     .24742,    .08659,    .04303,    .00649,    .00148,
     +     .00094,    .00418,    .00674 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
     +     .67155,    .26597,    .39131,    .02007,    .00000,
     +     .00000,    .01140,    .02473,
     +     .65139,    .25634,    .36647,    .01938,    .00000,
     +     .00000,    .01109,    .02360,
     +     .62277,    .24288,    .33120,    .01838,    .00016,
     +     .00000,    .01064,    .02201,
     +     .60281,    .23359,    .30662,    .01768,    .00046,
     +     .00000,    .01031,    .02092,
     +     .58245,    .22431,    .28266,    .01697,    .00070,
     +     .00000,    .00994,    .01984,
     +     .56552,    .21664,    .26347,    .01638,    .00086,
     +     .00000,    .00964,    .01896,
     +     .54983,    .20957,    .24634,    .01582,    .00100,
     +     .00000,    .00936,    .01815,
     +     .53372,    .20238,    .22945,    .01525,    .00112,
     +     .00000,    .00906,    .01734 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
     +     .52007,    .19637,    .21566,    .01476,    .00121,
     +     .00000,    .00880,    .01667,
     +     .50732,    .19077,    .20323,    .01430,    .00128,
     +     .00000,    .00855,    .01606,
     +     .49747,    .18645,    .19394,    .01395,    .00132,
     +     .00000,    .00835,    .01559,
     +     .47709,    .17766,    .17536,    .01325,    .00140,
     +     .00002,    .00797,    .01462,
     +     .46024,    .17047,    .16054,    .01267,    .00145,
     +     .00014,    .00763,    .01384,
     +     .44219,    .16280,    .14548,    .01203,    .00149,
     +     .00029,    .00726,    .01305,
     +     .42425,    .15524,    .13154,    .01140,    .00151,
     +     .00040,    .00690,    .01228,
     +     .40867,    .14874,    .12025,    .01087,    .00152,
     +     .00048,    .00659,    .01160 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
     +     .39361,    .14253,    .10998,    .01035,    .00152,
     +     .00054,    .00629,    .01094,
     +     .38150,    .13756,    .10223,    .00994,    .00151,
     +     .00058,    .00605,    .01045,
     +     .36739,    .13182,    .09370,    .00947,    .00149,
     +     .00062,    .00578,    .00988,
     +     .35540,    .12699,    .08687,    .00907,    .00147,
     +     .00065,    .00555,    .00941,
     +     .34478,    .12273,    .08113,    .00871,    .00145,
     +     .00067,    .00533,    .00900,
     +     .33181,    .11755,    .07451,    .00829,    .00142,
     +     .00069,    .00507,    .00851,
     +     .32012,    .11292,    .06887,    .00793,    .00140,
     +     .00070,    .00485,    .00806,
     +     .30957,    .10877,    .06405,    .00759,    .00137,
     +     .00071,    .00465,    .00765 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
     +     .29939,    .10477,    .05965,    .00726,    .00134,
     +     .00071,    .00445,    .00729,
     +     .28982,    .10103,    .05569,    .00695,    .00130,
     +     .00071,    .00427,    .00696,
     +     .28101,    .09762,    .05226,    .00668,    .00128,
     +     .00071,    .00410,    .00666,
     +     .27299,    .09454,    .04925,    .00644,    .00125,
     +     .00071,    .00395,    .00639,
     +     .26516,    .09154,    .04646,    .00622,    .00122,
     +     .00070,    .00380,    .00611,
     +     .25771,    .08871,    .04390,    .00600,    .00119,
     +     .00070,    .00367,    .00586,
     +     .25085,    .08609,    .04162,    .00578,    .00116,
     +     .00069,    .00355,    .00564,
     +     .24455,    .08370,    .03961,    .00558,    .00114,
     +     .00068,    .00343,    .00544 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
     +     .23834,    .08136,    .03772,    .00539,    .00111,
     +     .00067,    .00332,    .00526,
     +     .23241,    .07912,    .03595,    .00522,    .00109,
     +     .00067,    .00321,    .00507,
     +     .22686,    .07704,    .03436,    .00506,    .00107,
     +     .00066,    .00311,    .00489,
     +     .22175,    .07514,    .03292,    .00491,    .00104,
     +     .00065,    .00302,    .00472,
     +     .21669,    .07325,    .03155,    .00476,    .00102,
     +     .00064,    .00294,    .00457 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
     +     .64078,    .24449,    .33837,    .01638,    .00000,
     +     .00000,    .00887,    .01834,
     +     .61948,    .23491,    .31410,    .01574,    .00000,
     +     .00000,    .00860,    .01743,
     +     .58947,    .22155,    .28044,    .01484,    .00012,
     +     .00000,    .00820,    .01618,
     +     .56859,    .21243,    .25744,    .01424,    .00035,
     +     .00000,    .00791,    .01531,
     +     .54753,    .20327,    .23534,    .01359,    .00052,
     +     .00000,    .00762,    .01448,
     +     .53009,    .19576,    .21787,    .01305,    .00064,
     +     .00000,    .00735,    .01381,
     +     .51396,    .18887,    .20241,    .01256,    .00074,
     +     .00000,    .00709,    .01320,
     +     .49745,    .18190,    .18729,    .01207,    .00083,
     +     .00000,    .00683,    .01258 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
     +     .48356,    .17608,    .17509,    .01165,    .00088,
     +     .00000,    .00662,    .01205,
     +     .47060,    .17069,    .16416,    .01126,    .00093,
     +     .00000,    .00642,    .01156,
     +     .46062,    .16654,    .15603,    .01096,    .00097,
     +     .00000,    .00626,    .01120,
     +     .44010,    .15808,    .13998,    .01036,    .00102,
     +     .00001,    .00593,    .01048,
     +     .42324,    .15118,    .12732,    .00985,    .00105,
     +     .00010,    .00567,    .00990,
     +     .40522,    .14390,    .11459,    .00930,    .00108,
     +     .00021,    .00539,    .00929,
     +     .38737,    .13676,    .10292,    .00879,    .00109,
     +     .00028,    .00510,    .00869,
     +     .37195,    .13065,    .09355,    .00834,    .00109,
     +     .00034,    .00485,    .00818 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
     +     .35710,    .12481,    .08508,    .00793,    .00108,
     +     .00038,    .00460,    .00771,
     +     .34525,    .12014,    .07875,    .00757,    .00107,
     +     .00041,    .00442,    .00734,
     +     .33150,    .11479,    .07184,    .00719,    .00106,
     +     .00044,    .00421,    .00690,
     +     .31986,    .11030,    .06634,    .00687,    .00104,
     +     .00046,    .00403,    .00654,
     +     .30954,    .10634,    .06171,    .00657,    .00103,
     +     .00047,    .00386,    .00626,
     +     .29698,    .10155,    .05641,    .00624,    .00100,
     +     .00049,    .00365,    .00591,
     +     .28570,    .09728,    .05195,    .00595,    .00098,
     +     .00049,    .00348,    .00558,
     +     .27557,    .09347,    .04817,    .00569,    .00096,
     +     .00050,    .00333,    .00528 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
     +     .26584,    .08982,    .04470,    .00542,    .00093,
     +     .00050,    .00318,    .00502,
     +     .25673,    .08641,    .04160,    .00516,    .00091,
     +     .00050,    .00303,    .00477,
     +     .24834,    .08332,    .03894,    .00495,    .00089,
     +     .00049,    .00291,    .00456,
     +     .24075,    .08052,    .03662,    .00476,    .00087,
     +     .00049,    .00280,    .00436,
     +     .23336,    .07780,    .03445,    .00458,    .00085,
     +     .00049,    .00269,    .00417,
     +     .22634,    .07523,    .03248,    .00440,    .00083,
     +     .00048,    .00259,    .00399,
     +     .21989,    .07288,    .03074,    .00424,    .00081,
     +     .00047,    .00250,    .00383,
     +     .21397,    .07073,    .02920,    .00409,    .00079,
     +     .00047,    .00241,    .00368 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
     +     .20816,    .06862,    .02774,    .00395,    .00077,
     +     .00046,    .00233,    .00354,
     +     .20262,    .06662,    .02638,    .00382,    .00075,
     +     .00046,    .00225,    .00341,
     +     .19742,    .06476,    .02518,    .00370,    .00074,
     +     .00045,    .00217,    .00329,
     +     .19265,    .06305,    .02409,    .00359,    .00072,
     +     .00045,    .00210,    .00319,
     +     .18796,    .06138,    .02306,    .00347,    .00070,
     +     .00044,    .00203,    .00307 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
     +     .60505,    .22240,    .28975,    .01317,    .00000,
     +     .00000,    .00684,    .01335,
     +     .58305,    .21299,    .26662,    .01259,    .00000,
     +     .00000,    .00660,    .01266,
     +     .55220,    .19999,    .23518,    .01180,    .00009,
     +     .00000,    .00625,    .01170,
     +     .53091,    .19113,    .21415,    .01126,    .00026,
     +     .00000,    .00601,    .01104,
     +     .50947,    .18232,    .19410,    .01070,    .00038,
     +     .00000,    .00574,    .01041,
     +     .49181,    .17509,    .17844,    .01024,    .00047,
     +     .00000,    .00552,    .00990,
     +     .47556,    .16850,    .16475,    .00983,    .00054,
     +     .00000,    .00531,    .00944,
     +     .45903,    .16185,    .15150,    .00941,    .00060,
     +     .00000,    .00510,    .00896 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
     +     .44512,    .15629,    .14087,    .00904,    .00064,
     +     .00000,    .00493,    .00858,
     +     .43220,    .15115,    .13142,    .00871,    .00068,
     +     .00000,    .00477,    .00821,
     +     .42227,    .14723,    .12443,    .00847,    .00070,
     +     .00000,    .00466,    .00792,
     +     .40194,    .13925,    .11075,    .00796,    .00073,
     +     .00001,    .00440,    .00739,
     +     .38533,    .13278,    .10012,    .00753,    .00075,
     +     .00007,    .00417,    .00696,
     +     .36764,    .12596,    .08952,    .00710,    .00077,
     +     .00015,    .00394,    .00650,
     +     .35020,    .11929,    .07988,    .00668,    .00077,
     +     .00020,    .00372,    .00605,
     +     .33522,    .11361,    .07219,    .00631,    .00077,
     +     .00024,    .00354,    .00567 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
     +     .32085,    .10819,    .06532,    .00596,    .00076,
     +     .00027,    .00335,    .00536,
     +     .30941,    .10389,    .06021,    .00568,    .00076,
     +     .00029,    .00319,    .00508,
     +     .29619,    .09897,    .05466,    .00537,    .00074,
     +     .00031,    .00302,    .00477,
     +     .28503,    .09485,    .05027,    .00511,    .00073,
     +     .00032,    .00288,    .00451,
     +     .27518,    .09123,    .04661,    .00488,    .00072,
     +     .00033,    .00275,    .00430,
     +     .26326,    .08686,    .04244,    .00460,    .00070,
     +     .00034,    .00261,    .00404,
     +     .25259,    .08299,    .03892,    .00436,    .00068,
     +     .00035,    .00248,    .00380,
     +     .24298,    .07953,    .03596,    .00417,    .00066,
     +     .00035,    .00236,    .00360 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
     +     .23380,    .07625,    .03328,    .00397,    .00065,
     +     .00035,    .00225,    .00340,
     +     .22523,    .07319,    .03089,    .00379,    .00063,
     +     .00035,    .00215,    .00322,
     +     .21740,    .07041,    .02883,    .00361,    .00061,
     +     .00035,    .00205,    .00307,
     +     .21031,    .06789,    .02704,    .00346,    .00060,
     +     .00035,    .00196,    .00293,
     +     .20341,    .06547,    .02540,    .00332,    .00058,
     +     .00035,    .00188,    .00281,
     +     .19689,    .06318,    .02389,    .00318,    .00057,
     +     .00034,    .00181,    .00269,
     +     .19091,    .06108,    .02257,    .00306,    .00055,
     +     .00034,    .00174,    .00257,
     +     .18543,    .05918,    .02140,    .00296,    .00054,
     +     .00034,    .00168,    .00246 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
     +     .18004,    .05732,    .02029,    .00286,    .00053,
     +     .00033,    .00162,    .00236,
     +     .17492,    .05556,    .01927,    .00276,    .00052,
     +     .00033,    .00156,    .00227,
     +     .17020,    .05391,    .01837,    .00264,    .00050,
     +     .00032,    .00150,    .00219,
     +     .16588,    .05240,    .01755,    .00254,    .00049,
     +     .00032,    .00145,    .00213,
     +     .16156,    .05093,    .01677,    .00246,    .00048,
     +     .00032,    .00140,    .00205 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
     +     .56541,    .20039,    .24544,    .01055,    .00000,
     +     .00000,    .00513,    .00948,
     +     .54311,    .19135,    .22402,    .01002,    .00000,
     +     .00000,    .00494,    .00897,
     +     .51197,    .17887,    .19520,    .00933,    .00006,
     +     .00000,    .00465,    .00825,
     +     .49067,    .17036,    .17626,    .00883,    .00018,
     +     .00000,    .00444,    .00780,
     +     .46934,    .16196,    .15849,    .00834,    .00027,
     +     .00000,    .00424,    .00732,
     +     .45176,    .15513,    .14475,    .00797,    .00034,
     +     .00000,    .00407,    .00693,
     +     .43565,    .14891,    .13281,    .00763,    .00039,
     +     .00000,    .00391,    .00659,
     +     .41932,    .14262,    .12132,    .00728,    .00043,
     +     .00000,    .00374,    .00626 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
     +     .40570,    .13740,    .11225,    .00696,    .00046,
     +     .00000,    .00359,    .00597,
     +     .39305,    .13259,    .10423,    .00668,    .00048,
     +     .00000,    .00346,    .00570,
     +     .38333,    .12893,    .09833,    .00648,    .00050,
     +     .00000,    .00337,    .00550,
     +     .36353,    .12152,    .08688,    .00606,    .00052,
     +     .00001,    .00317,    .00509,
     +     .34737,    .11552,    .07805,    .00573,    .00054,
     +     .00005,    .00300,    .00479,
     +     .33029,    .10921,    .06932,    .00537,    .00054,
     +     .00010,    .00284,    .00446,
     +     .31354,    .10308,    .06146,    .00503,    .00054,
     +     .00014,    .00267,    .00414,
     +     .29918,    .09788,    .05525,    .00474,    .00054,
     +     .00016,    .00252,    .00387 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
     +     .28548,    .09293,    .04974,    .00448,    .00053,
     +     .00018,    .00238,    .00361,
     +     .27463,    .08901,    .04567,    .00422,    .00053,
     +     .00020,    .00226,    .00345,
     +     .26211,    .08454,    .04127,    .00397,    .00052,
     +     .00021,    .00213,    .00323,
     +     .25157,    .08082,    .03781,    .00377,    .00051,
     +     .00022,    .00202,    .00304,
     +     .24229,    .07756,    .03494,    .00360,    .00050,
     +     .00022,    .00193,    .00289,
     +     .23108,    .07364,    .03170,    .00341,    .00048,
     +     .00023,    .00182,    .00270,
     +     .22110,    .07017,    .02898,    .00323,    .00047,
     +     .00023,    .00172,    .00253,
     +     .21220,    .06708,    .02669,    .00305,    .00046,
     +     .00023,    .00164,    .00240 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
     +     .20367,    .06416,    .02464,    .00290,    .00045,
     +     .00023,    .00156,    .00227,
     +     .19572,    .06144,    .02281,    .00276,    .00044,
     +     .00023,    .00149,    .00214,
     +     .18849,    .05896,    .02123,    .00263,    .00043,
     +     .00023,    .00141,    .00204,
     +     .18197,    .05674,    .01988,    .00251,    .00042,
     +     .00023,    .00134,    .00194,
     +     .17566,    .05460,    .01862,    .00239,    .00041,
     +     .00023,    .00128,    .00186,
     +     .16969,    .05259,    .01749,    .00229,    .00040,
     +     .00023,    .00123,    .00177,
     +     .16420,    .05076,    .01649,    .00221,    .00039,
     +     .00023,    .00118,    .00168,
     +     .15920,    .04909,    .01561,    .00213,    .00038,
     +     .00023,    .00114,    .00160 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
     +     .15432,    .04746,    .01479,    .00204,    .00037,
     +     .00023,    .00110,    .00154,
     +     .14969,    .04592,    .01402,    .00196,    .00036,
     +     .00023,    .00106,    .00148,
     +     .14538,    .04449,    .01334,    .00189,    .00036,
     +     .00023,    .00102,    .00143,
     +     .14144,    .04318,    .01273,    .00183,    .00035,
     +     .00023,    .00098,    .00139,
     +     .13755,    .04190,    .01215,    .00177,    .00034,
     +     .00023,    .00095,    .00133 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
     +     .52308,    .17862,    .20533,    .00821,    .00000,
     +     .00000,    .00381,    .00666,
     +     .50083,    .17003,    .18580,    .00780,    .00000,
     +     .00000,    .00365,    .00627,
     +     .47000,    .15824,    .16007,    .00721,    .00005,
     +     .00000,    .00343,    .00573,
     +     .44893,    .15030,    .14337,    .00683,    .00013,
     +     .00000,    .00324,    .00537,
     +     .42796,    .14243,    .12791,    .00643,    .00019,
     +     .00000,    .00306,    .00505,
     +     .41079,    .13606,    .11607,    .00611,    .00024,
     +     .00000,    .00294,    .00476,
     +     .39510,    .13027,    .10587,    .00582,    .00027,
     +     .00000,    .00282,    .00449,
     +     .37923,    .12444,    .09615,    .00553,    .00030,
     +     .00000,    .00269,    .00426 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
     +     .36604,    .11961,    .08849,    .00529,    .00032,
     +     .00000,    .00258,    .00405,
     +     .35383,    .11517,    .08176,    .00507,    .00034,
     +     .00000,    .00248,    .00386,
     +     .34448,    .11179,    .07686,    .00490,    .00035,
     +     .00000,    .00240,    .00372,
     +     .32547,    .10500,    .06742,    .00457,    .00037,
     +     .00001,    .00225,    .00344,
     +     .31007,    .09952,    .06021,    .00429,    .00038,
     +     .00003,    .00212,    .00323,
     +     .29383,    .09378,    .05316,    .00401,    .00039,
     +     .00007,    .00198,    .00300,
     +     .27797,    .08821,    .04686,    .00373,    .00039,
     +     .00009,    .00186,    .00277,
     +     .26445,    .08349,    .04192,    .00349,    .00039,
     +     .00011,    .00175,    .00259 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
     +     .25152,    .07904,    .03754,    .00331,    .00039,
     +     .00012,    .00163,    .00241,
     +     .24134,    .07554,    .03434,    .00313,    .00038,
     +     .00013,    .00154,    .00228,
     +     .22964,    .07155,    .03090,    .00294,    .00037,
     +     .00014,    .00145,    .00212,
     +     .21983,    .06822,    .02820,    .00278,    .00037,
     +     .00014,    .00139,    .00199,
     +     .21123,    .06533,    .02599,    .00266,    .00036,
     +     .00014,    .00132,    .00189,
     +     .20090,    .06184,    .02349,    .00249,    .00035,
     +     .00015,    .00124,    .00176,
     +     .19173,    .05876,    .02141,    .00234,    .00034,
     +     .00014,    .00117,    .00166,
     +     .18353,    .05604,    .01966,    .00222,    .00034,
     +     .00015,    .00111,    .00157 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
     +     .17570,    .05347,    .01810,    .00212,    .00033,
     +     .00015,    .00105,    .00147,
     +     .16842,    .05109,    .01672,    .00201,    .00032,
     +     .00015,    .00099,    .00138,
     +     .16186,    .04892,    .01553,    .00191,    .00032,
     +     .00014,    .00094,    .00131,
     +     .15594,    .04698,    .01451,    .00181,    .00031,
     +     .00014,    .00090,    .00124,
     +     .15023,    .04512,    .01357,    .00172,    .00030,
     +     .00015,    .00086,    .00118,
     +     .14484,    .04338,    .01272,    .00164,    .00030,
     +     .00015,    .00082,    .00113,
     +     .13991,    .04178,    .01198,    .00157,    .00029,
     +     .00015,    .00079,    .00108,
     +     .13541,    .04033,    .01132,    .00151,    .00029,
     +     .00014,    .00076,    .00103 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
     +     .13101,    .03892,    .01070,    .00146,    .00028,
     +     .00015,    .00073,    .00099,
     +     .12684,    .03759,    .01014,    .00140,    .00028,
     +     .00015,    .00070,    .00094,
     +     .12299,    .03636,    .00963,    .00134,    .00027,
     +     .00015,    .00067,    .00090,
     +     .11948,    .03524,    .00918,    .00129,    .00027,
     +     .00015,    .00065,    .00087,
     +     .11601,    .03414,    .00875,    .00124,    .00027,
     +     .00015,    .00062,    .00083 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
     +     .47889,    .15751,    .16927,    .00627,    .00000,
     +     .00000,    .00282,    .00455,
     +     .45710,    .14944,    .15186,    .00592,    .00000,
     +     .00000,    .00270,    .00428,
     +     .42698,    .13846,    .12932,    .00543,    .00003,
     +     .00000,    .00249,    .00394,
     +     .40651,    .13109,    .11495,    .00510,    .00009,
     +     .00000,    .00236,    .00369,
     +     .38626,    .12382,    .10173,    .00479,    .00013,
     +     .00000,    .00223,    .00343,
     +     .36970,    .11794,    .09170,    .00453,    .00016,
     +     .00000,    .00212,    .00325,
     +     .35463,    .11263,    .08312,    .00430,    .00019,
     +     .00000,    .00203,    .00307,
     +     .33945,    .10730,    .07501,    .00407,    .00021,
     +     .00000,    .00194,    .00286 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
     +     .32683,    .10291,    .06870,    .00389,    .00022,
     +     .00000,    .00185,    .00272,
     +     .31520,    .09887,    .06319,    .00372,    .00023,
     +     .00000,    .00177,    .00259,
     +     .30632,    .09581,    .05919,    .00359,    .00024,
     +     .00000,    .00170,    .00250,
     +     .28836,    .08963,    .05155,    .00333,    .00025,
     +     .00000,    .00159,    .00231,
     +     .27385,    .08469,    .04579,    .00310,    .00025,
     +     .00002,    .00150,    .00216,
     +     .25861,    .07953,    .04018,    .00288,    .00026,
     +     .00005,    .00140,    .00200,
     +     .24378,    .07455,    .03521,    .00267,    .00026,
     +     .00006,    .00130,    .00185,
     +     .23121,    .07035,    .03133,    .00249,    .00026,
     +     .00007,    .00123,    .00172 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
     +     .21927,    .06638,    .02793,    .00233,    .00026,
     +     .00008,    .00115,    .00161,
     +     .20985,    .06329,    .02547,    .00221,    .00026,
     +     .00008,    .00109,    .00151,
     +     .19906,    .05977,    .02283,    .00207,    .00026,
     +     .00008,    .00102,    .00140,
     +     .19006,    .05685,    .02077,    .00195,    .00026,
     +     .00008,    .00096,    .00132,
     +     .18220,    .05431,    .01907,    .00186,    .00026,
     +     .00008,    .00092,    .00123,
     +     .17277,    .05125,    .01718,    .00173,    .00026,
     +     .00008,    .00086,    .00116,
     +     .16442,    .04856,    .01561,    .00161,    .00026,
     +     .00008,    .00081,    .00110,
     +     .15700,    .04619,    .01430,    .00152,    .00026,
     +     .00008,    .00077,    .00104 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
     +     .14994,    .04396,    .01313,    .00144,    .00025,
     +     .00008,    .00072,    .00097,
     +     .14338,    .04190,    .01210,    .00137,    .00025,
     +     .00008,    .00068,    .00091,
     +     .13749,    .04004,    .01122,    .00128,    .00025,
     +     .00008,    .00065,    .00085,
     +     .13218,    .03838,    .01046,    .00122,    .00025,
     +     .00008,    .00062,    .00080,
     +     .12704,    .03677,    .00976,    .00117,    .00024,
     +     .00008,    .00059,    .00077,
     +     .12221,    .03527,    .00914,    .00112,    .00024,
     +     .00008,    .00056,    .00073,
     +     .11782,    .03391,    .00859,    .00107,    .00024,
     +     .00008,    .00054,    .00069,
     +     .11383,    .03268,    .00811,    .00102,    .00024,
     +     .00008,    .00051,    .00067 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
     +     .10995,    .03148,    .00766,    .00097,    .00024,
     +     .00008,    .00049,    .00064,
     +     .10628,    .03034,    .00724,    .00093,    .00023,
     +     .00008,    .00047,    .00062,
     +     .10286,    .02931,    .00687,    .00089,    .00023,
     +     .00008,    .00045,    .00059,
     +     .09975,    .02837,    .00654,    .00086,    .00023,
     +     .00008,    .00044,    .00057,
     +     .09670,    .02744,    .00623,    .00083,    .00022,
     +     .00008,    .00042,    .00054 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
     +     .43390,    .13740,    .13741,    .00467,    .00000,
     +     .00000,    .00203,    .00311,
     +     .41280,    .12994,    .12226,    .00439,    .00000,
     +     .00000,    .00193,    .00292,
     +     .38384,    .11986,    .10292,    .00396,    .00002,
     +     .00000,    .00178,    .00265,
     +     .36428,    .11309,    .09074,    .00369,    .00006,
     +     .00000,    .00168,    .00250,
     +     .34493,    .10644,    .07966,    .00346,    .00009,
     +     .00000,    .00158,    .00233,
     +     .32920,    .10110,    .07135,    .00326,    .00011,
     +     .00000,    .00152,    .00217,
     +     .31493,    .09627,    .06431,    .00308,    .00012,
     +     .00000,    .00146,    .00205,
     +     .30063,    .09145,    .05769,    .00288,    .00014,
     +     .00000,    .00138,    .00194 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
     +     .28876,    .08751,    .05258,    .00274,    .00015,
     +     .00000,    .00132,    .00183,
     +     .27783,    .08390,    .04814,    .00261,    .00015,
     +     .00000,    .00127,    .00174,
     +     .26952,    .08115,    .04495,    .00252,    .00016,
     +     .00000,    .00122,    .00168,
     +     .25277,    .07565,    .03888,    .00233,    .00016,
     +     .00000,    .00113,    .00153,
     +     .23929,    .07125,    .03433,    .00217,    .00016,
     +     .00001,    .00106,    .00143,
     +     .22519,    .06668,    .02995,    .00200,    .00016,
     +     .00003,    .00099,    .00132,
     +     .21150,    .06229,    .02610,    .00186,    .00016,
     +     .00004,    .00092,    .00121,
     +     .19993,    .05859,    .02312,    .00174,    .00016,
     +     .00004,    .00086,    .00113 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
     +     .18906,    .05510,    .02053,    .00158,    .00016,
     +     .00004,    .00081,    .00107,
     +     .18046,    .05240,    .01865,    .00150,    .00016,
     +     .00004,    .00077,    .00101,
     +     .17067,    .04934,    .01665,    .00139,    .00016,
     +     .00004,    .00072,    .00093,
     +     .16253,    .04680,    .01510,    .00131,    .00016,
     +     .00004,    .00068,    .00086,
     +     .15543,    .04460,    .01384,    .00124,    .00016,
     +     .00004,    .00064,    .00081,
     +     .14695,    .04197,    .01242,    .00114,    .00016,
     +     .00004,    .00060,    .00077,
     +     .13946,    .03966,    .01125,    .00106,    .00016,
     +     .00004,    .00056,    .00073,
     +     .13280,    .03763,    .01028,    .00101,    .00016,
     +     .00004,    .00053,    .00068 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
     +     .12651,    .03572,    .00942,    .00094,    .00016,
     +     .00004,    .00050,    .00063,
     +     .12070,    .03397,    .00866,    .00088,    .00016,
     +     .00004,    .00047,    .00059,
     +     .11544,    .03238,    .00802,    .00085,    .00016,
     +     .00004,    .00045,    .00056,
     +     .11073,    .03097,    .00746,    .00081,    .00016,
     +     .00004,    .00043,    .00053,
     +     .10623,    .02961,    .00695,    .00076,    .00016,
     +     .00004,    .00040,    .00050,
     +     .10199,    .02834,    .00650,    .00071,    .00016,
     +     .00004,    .00038,    .00048,
     +     .09813,    .02719,    .00610,    .00068,    .00016,
     +     .00004,    .00037,    .00047,
     +     .09462,    .02616,    .00575,    .00065,    .00016,
     +     .00004,    .00035,    .00045 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
     +     .09121,    .02515,    .00542,    .00064,    .00016,
     +     .00004,    .00034,    .00042,
     +     .08800,    .02420,    .00512,    .00062,    .00016,
     +     .00004,    .00032,    .00039,
     +     .08503,    .02334,    .00486,    .00059,    .00016,
     +     .00004,    .00031,    .00037,
     +     .08233,    .02255,    .00462,    .00057,    .00016,
     +     .00004,    .00029,    .00036,
     +     .07969,    .02178,    .00440,    .00054,    .00016,
     +     .00004,    .00028,    .00035 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
     +     .38900,    .11863,    .10989,    .00351,    .00000,
     +     .00000,    .00137,    .00201,
     +     .36888,    .11187,    .09699,    .00328,    .00000,
     +     .00000,    .00131,    .00188,
     +     .34141,    .10274,    .08076,    .00298,    .00001,
     +     .00000,    .00121,    .00167,
     +     .32296,    .09663,    .07071,    .00278,    .00004,
     +     .00000,    .00113,    .00156,
     +     .30475,    .09069,    .06162,    .00259,    .00006,
     +     .00000,    .00106,    .00146,
     +     .29003,    .08590,    .05486,    .00244,    .00007,
     +     .00000,    .00100,    .00137,
     +     .27673,    .08160,    .04918,    .00230,    .00008,
     +     .00000,    .00094,    .00130,
     +     .26343,    .07732,    .04389,    .00214,    .00009,
     +     .00000,    .00090,    .00122 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
     +     .25244,    .07380,    .03983,    .00203,    .00009,
     +     .00000,    .00085,    .00115,
     +     .24237,    .07058,    .03632,    .00192,    .00010,
     +     .00000,    .00081,    .00109,
     +     .23472,    .06815,    .03380,    .00184,    .00010,
     +     .00000,    .00078,    .00105,
     +     .21930,    .06331,    .02904,    .00171,    .00010,
     +     .00000,    .00072,    .00096,
     +     .20693,    .05945,    .02551,    .00160,    .00010,
     +     .00001,    .00067,    .00089,
     +     .19409,    .05545,    .02215,    .00146,    .00010,
     +     .00002,    .00062,    .00081,
     +     .18170,    .05163,    .01920,    .00134,    .00010,
     +     .00002,    .00057,    .00075,
     +     .17123,    .04842,    .01694,    .00125,    .00010,
     +     .00002,    .00053,    .00070 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
     +     .16137,    .04542,    .01499,    .00116,    .00010,
     +     .00002,    .00049,    .00063,
     +     .15367,    .04308,    .01357,    .00109,    .00010,
     +     .00002,    .00047,    .00060,
     +     .14491,    .04044,    .01208,    .00101,    .00010,
     +     .00002,    .00044,    .00056,
     +     .13764,    .03826,    .01092,    .00095,    .00010,
     +     .00002,    .00041,    .00052,
     +     .13132,    .03637,    .00999,    .00089,    .00010,
     +     .00002,    .00039,    .00050,
     +     .12378,    .03414,    .00894,    .00082,    .00010,
     +     .00002,    .00036,    .00046,
     +     .11715,    .03219,    .00808,    .00076,    .00010,
     +     .00002,    .00033,    .00042,
     +     .11129,    .03046,    .00737,    .00072,    .00010,
     +     .00002,    .00031,    .00040 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
     +     .10575,    .02884,    .00674,    .00068,    .00010,
     +     .00002,    .00029,    .00037,
     +     .10064,    .02736,    .00619,    .00065,    .00010,
     +     .00002,    .00027,    .00035,
     +     .09606,    .02603,    .00572,    .00061,    .00010,
     +     .00002,    .00026,    .00033,
     +     .09196,    .02484,    .00531,    .00057,    .00010,
     +     .00002,    .00025,    .00031,
     +     .08803,    .02370,    .00494,    .00055,    .00010,
     +     .00002,    .00024,    .00028,
     +     .08434,    .02264,    .00461,    .00052,    .00010,
     +     .00002,    .00022,    .00026,
     +     .08099,    .02169,    .00433,    .00049,    .00010,
     +     .00002,    .00021,    .00025,
     +     .07796,    .02083,    .00407,    .00047,    .00010,
     +     .00002,    .00020,    .00025 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
     +     .07503,    .01999,    .00384,    .00044,    .00010,
     +     .00002,    .00019,    .00024,
     +     .07225,    .01921,    .00362,    .00042,    .00010,
     +     .00002,    .00018,    .00023,
     +     .06970,    .01849,    .00343,    .00041,    .00010,
     +     .00002,    .00017,    .00022,
     +     .06737,    .01784,    .00326,    .00040,    .00010,
     +     .00002,    .00016,    .00021,
     +     .06511,    .01720,    .00310,    .00038,    .00010,
     +     .00002,    .00016,    .00020 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
     +     .34452,    .10094,    .08598,    .00241,    .00000,
     +     .00000,    .00100,    .00134,
     +     .32566,    .09488,    .07532,    .00225,    .00000,
     +     .00000,    .00093,    .00127,
     +     .29999,    .08673,    .06206,    .00205,    .00001,
     +     .00000,    .00085,    .00113,
     +     .28281,    .08132,    .05391,    .00189,    .00002,
     +     .00000,    .00080,    .00106,
     +     .26600,    .07605,    .04666,    .00175,    .00004,
     +     .00000,    .00074,    .00097,
     +     .25241,    .07183,    .04130,    .00165,    .00004,
     +     .00000,    .00070,    .00090,
     +     .24017,    .06805,    .03682,    .00156,    .00005,
     +     .00000,    .00066,    .00085,
     +     .22797,    .06430,    .03267,    .00144,    .00005,
     +     .00000,    .00062,    .00080 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
     +     .21791,    .06124,    .02951,    .00137,    .00005,
     +     .00000,    .00059,    .00074,
     +     .20872,    .05845,    .02680,    .00130,    .00005,
     +     .00000,    .00056,    .00069,
     +     .20178,    .05634,    .02487,    .00123,    .00005,
     +     .00000,    .00053,    .00066,
     +     .18782,    .05214,    .02124,    .00112,    .00005,
     +     .00000,    .00048,    .00062,
     +     .17668,    .04879,    .01857,    .00105,    .00005,
     +     .00000,    .00045,    .00057,
     +     .16512,    .04536,    .01604,    .00097,    .00005,
     +     .00000,    .00041,    .00052,
     +     .15401,    .04209,    .01384,    .00088,    .00005,
     +     .00000,    .00038,    .00047,
     +     .14467,    .03934,    .01216,    .00082,    .00005,
     +     .00000,    .00036,    .00044 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
     +     .13591,    .03680,    .01071,    .00077,    .00005,
     +     .00000,    .00034,    .00041,
     +     .12906,    .03481,    .00968,    .00072,    .00005,
     +     .00000,    .00031,    .00038,
     +     .12131,    .03258,    .00859,    .00066,    .00005,
     +     .00000,    .00028,    .00035,
     +     .11491,    .03074,    .00774,    .00062,    .00005,
     +     .00000,    .00027,    .00032,
     +     .10937,    .02916,    .00707,    .00059,    .00005,
     +     .00000,    .00025,    .00031,
     +     .10277,    .02728,    .00631,    .00054,    .00005,
     +     .00000,    .00023,    .00028,
     +     .09698,    .02564,    .00569,    .00051,    .00005,
     +     .00000,    .00021,    .00026,
     +     .09189,    .02421,    .00518,    .00048,    .00005,
     +     .00000,    .00020,    .00025 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
     +     .08710,    .02286,    .00473,    .00045,    .00005,
     +     .00000,    .00019,    .00022,
     +     .08270,    .02163,    .00433,    .00042,    .00005,
     +     .00000,    .00018,    .00020,
     +     .07874,    .02053,    .00400,    .00040,    .00005,
     +     .00000,    .00017,    .00019,
     +     .07521,    .01955,    .00371,    .00037,    .00005,
     +     .00000,    .00016,    .00018,
     +     .07185,    .01862,    .00345,    .00034,    .00005,
     +     .00000,    .00015,    .00018,
     +     .06871,    .01775,    .00321,    .00032,    .00005,
     +     .00000,    .00014,    .00017,
     +     .06584,    .01697,    .00301,    .00031,    .00005,
     +     .00000,    .00013,    .00016,
     +     .06326,    .01626,    .00283,    .00030,    .00005,
     +     .00000,    .00013,    .00014 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
     +     .06075,    .01558,    .00266,    .00029,    .00005,
     +     .00000,    .00012,    .00013,
     +     .05839,    .01494,    .00251,    .00029,    .00005,
     +     .00000,    .00012,    .00013,
     +     .05625,    .01436,    .00237,    .00026,    .00005,
     +     .00000,    .00011,    .00012,
     +     .05430,    .01383,    .00225,    .00024,    .00005,
     +     .00000,    .00011,    .00012,
     +     .05239,    .01331,    .00214,    .00023,    .00005,
     +     .00000,    .00010,    .00012 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
     +     .30151,    .08479,    .06599,    .00164,    .00000,
     +     .00000,    .00069,    .00088,
     +     .28405,    .07945,    .05736,    .00151,    .00000,
     +     .00000,    .00065,    .00081,
     +     .26041,    .07228,    .04674,    .00136,    .00001,
     +     .00000,    .00059,    .00073,
     +     .24465,    .06755,    .04032,    .00126,    .00001,
     +     .00000,    .00055,    .00067,
     +     .22929,    .06296,    .03464,    .00117,    .00002,
     +     .00000,    .00051,    .00061,
     +     .21693,    .05931,    .03047,    .00109,    .00002,
     +     .00000,    .00047,    .00057,
     +     .20584,    .05603,    .02702,    .00102,    .00002,
     +     .00000,    .00044,    .00054,
     +     .19485,    .05278,    .02385,    .00094,    .00002,
     +     .00000,    .00042,    .00049 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
     +     .18576,    .05014,    .02146,    .00089,    .00002,
     +     .00000,    .00040,    .00048,
     +     .17749,    .04774,    .01941,    .00085,    .00002,
     +     .00000,    .00038,    .00046,
     +     .17126,    .04593,    .01795,    .00081,    .00002,
     +     .00000,    .00037,    .00044,
     +     .15883,    .04233,    .01524,    .00071,    .00002,
     +     .00000,    .00033,    .00041,
     +     .14891,    .03950,    .01326,    .00066,    .00002,
     +     .00000,    .00031,    .00037,
     +     .13864,    .03660,    .01140,    .00062,    .00002,
     +     .00000,    .00028,    .00033,
     +     .12882,    .03382,    .00979,    .00057,    .00002,
     +     .00000,    .00025,    .00030,
     +     .12061,    .03151,    .00857,    .00053,    .00002,
     +     .00000,    .00024,    .00029 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
     +     .11293,    .02937,    .00753,    .00048,    .00002,
     +     .00000,    .00021,    .00026,
     +     .10699,    .02772,    .00679,    .00045,    .00002,
     +     .00000,    .00020,    .00024,
     +     .10024,    .02586,    .00600,    .00041,    .00002,
     +     .00000,    .00019,    .00022,
     +     .09467,    .02434,    .00540,    .00039,    .00002,
     +     .00000,    .00018,    .00021,
     +     .08990,    .02302,    .00492,    .00036,    .00002,
     +     .00000,    .00017,    .00020,
     +     .08421,    .02147,    .00438,    .00033,    .00002,
     +     .00000,    .00015,    .00018,
     +     .07923,    .02012,    .00394,    .00031,    .00002,
     +     .00000,    .00014,    .00017,
     +     .07487,    .01895,    .00358,    .00030,    .00002,
     +     .00000,    .00013,    .00015 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
     +     .07078,    .01785,    .00326,    .00028,    .00002,
     +     .00000,    .00012,    .00014,
     +     .06702,    .01684,    .00299,    .00025,    .00002,
     +     .00000,    .00012,    .00013,
     +     .06367,    .01595,    .00275,    .00024,    .00002,
     +     .00000,    .00011,    .00012,
     +     .06068,    .01515,    .00255,    .00022,    .00002,
     +     .00000,    .00010,    .00012,
     +     .05783,    .01440,    .00237,    .00021,    .00002,
     +     .00000,    .00010,    .00011,
     +     .05517,    .01370,    .00220,    .00020,    .00002,
     +     .00000,    .00009,    .00010,
     +     .05275,    .01307,    .00206,    .00019,    .00002,
     +     .00000,    .00009,    .00010,
     +     .05059,    .01250,    .00194,    .00018,    .00002,
     +     .00000,    .00008,    .00010 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
     +     .04851,    .01195,    .00182,    .00017,    .00002,
     +     .00000,    .00008,    .00009,
     +     .04655,    .01144,    .00171,    .00016,    .00002,
     +     .00000,    .00007,    .00009,
     +     .04475,    .01098,    .00162,    .00015,    .00002,
     +     .00000,    .00007,    .00008,
     +     .04311,    .01056,    .00154,    .00014,    .00002,
     +     .00000,    .00006,    .00008,
     +     .04152,    .01015,    .00146,    .00014,    .00002,
     +     .00000,    .00006,    .00008 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
     +     .26056,    .07040,    .04962,    .00114,    .00000,
     +     .00000,    .00043,    .00052,
     +     .24464,    .06575,    .04282,    .00107,    .00000,
     +     .00000,    .00040,    .00048,
     +     .22322,    .05953,    .03455,    .00095,    .00000,
     +     .00000,    .00036,    .00043,
     +     .20900,    .05546,    .02960,    .00088,    .00000,
     +     .00000,    .00033,    .00037,
     +     .19517,    .05150,    .02524,    .00081,    .00000,
     +     .00000,    .00030,    .00037,
     +     .18413,    .04836,    .02209,    .00075,    .00000,
     +     .00000,    .00028,    .00034,
     +     .17424,    .04556,    .01950,    .00069,    .00000,
     +     .00000,    .00026,    .00031,
     +     .16443,    .04279,    .01713,    .00064,    .00000,
     +     .00000,    .00026,    .00029 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
     +     .15639,    .04055,    .01535,    .00060,    .00000,
     +     .00000,    .00023,    .00028,
     +     .14908,    .03853,    .01383,    .00057,    .00000,
     +     .00000,    .00021,    .00027,
     +     .14357,    .03700,    .01276,    .00054,    .00000,
     +     .00000,    .00020,    .00025,
     +     .13261,    .03398,    .01078,    .00049,    .00000,
     +     .00000,    .00020,    .00023,
     +     .12390,    .03160,    .00934,    .00046,    .00000,
     +     .00000,    .00018,    .00022,
     +     .11495,    .02916,    .00799,    .00042,    .00000,
     +     .00000,    .00016,    .00019,
     +     .10643,    .02686,    .00684,    .00038,    .00000,
     +     .00000,    .00015,    .00017,
     +     .09932,    .02495,    .00597,    .00035,    .00000,
     +     .00000,    .00013,    .00016 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
     +     .09272,    .02318,    .00522,    .00031,    .00000,
     +     .00000,    .00012,    .00015,
     +     .08758,    .02182,    .00470,    .00030,    .00000,
     +     .00000,    .00012,    .00014,
     +     .08180,    .02029,    .00415,    .00028,    .00000,
     +     .00000,    .00011,    .00012,
     +     .07705,    .01904,    .00373,    .00026,    .00000,
     +     .00000,    .00010,    .00010,
     +     .07296,    .01797,    .00339,    .00025,    .00000,
     +     .00000,    .00009,    .00010,
     +     .06813,    .01671,    .00301,    .00022,    .00000,
     +     .00000,    .00008,    .00010,
     +     .06393,    .01561,    .00270,    .00020,    .00000,
     +     .00000,    .00008,    .00009,
     +     .06024,    .01466,    .00245,    .00019,    .00000,
     +     .00000,    .00007,    .00008 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
     +     .05681,    .01377,    .00223,    .00017,    .00000,
     +     .00000,    .00007,    .00008,
     +     .05366,    .01296,    .00204,    .00016,    .00000,
     +     .00000,    .00006,    .00007,
     +     .05084,    .01224,    .00188,    .00015,    .00000,
     +     .00000,    .00006,    .00007,
     +     .04834,    .01161,    .00174,    .00015,    .00000,
     +     .00000,    .00006,    .00007,
     +     .04597,    .01101,    .00161,    .00014,    .00000,
     +     .00000,    .00005,    .00006,
     +     .04376,    .01045,    .00150,    .00013,    .00000,
     +     .00000,    .00005,    .00006,
     +     .04177,    .00995,    .00140,    .00012,    .00000,
     +     .00000,    .00005,    .00005,
     +     .03998,    .00950,    .00131,    .00012,    .00000,
     +     .00000,    .00005,    .00005 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
     +     .03824,    .00906,    .00123,    .00012,    .00000,
     +     .00000,    .00004,    .00005,
     +     .03662,    .00866,    .00116,    .00011,    .00000,
     +     .00000,    .00004,    .00005,
     +     .03515,    .00829,    .00110,    .00010,    .00000,
     +     .00000,    .00004,    .00004,
     +     .03383,    .00796,    .00104,    .00009,    .00000,
     +     .00000,    .00004,    .00004,
     +     .03252,    .00764,    .00098,    .00009,    .00000,
     +     .00000,    .00003,    .00004 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
     +     .22180,    .05733,    .03629,    .00069,    .00000,
     +     .00000,    .00031,    .00035,
     +     .20753,    .05338,    .03107,    .00064,    .00000,
     +     .00000,    .00028,    .00031,
     +     .18840,    .04809,    .02481,    .00058,    .00000,
     +     .00000,    .00025,    .00028,
     +     .17581,    .04463,    .02111,    .00052,    .00000,
     +     .00000,    .00024,    .00027,
     +     .16357,    .04130,    .01790,    .00048,    .00000,
     +     .00000,    .00021,    .00024,
     +     .15385,    .03867,    .01557,    .00043,    .00000,
     +     .00000,    .00019,    .00022,
     +     .14515,    .03633,    .01368,    .00039,    .00000,
     +     .00000,    .00018,    .00020,
     +     .13651,    .03403,    .01196,    .00038,    .00000,
     +     .00000,    .00017,    .00018 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
     +     .12951,    .03216,    .01068,    .00035,    .00000,
     +     .00000,    .00016,    .00018,
     +     .12316,    .03047,    .00959,    .00033,    .00000,
     +     .00000,    .00015,    .00018,
     +     .11838,    .02920,    .00882,    .00031,    .00000,
     +     .00000,    .00014,    .00017,
     +     .10889,    .02671,    .00741,    .00028,    .00000,
     +     .00000,    .00013,    .00015,
     +     .10138,    .02476,    .00640,    .00026,    .00000,
     +     .00000,    .00012,    .00013,
     +     .09368,    .02277,    .00545,    .00024,    .00000,
     +     .00000,    .00011,    .00012,
     +     .08640,    .02089,    .00465,    .00022,    .00000,
     +     .00000,    .00010,    .00011,
     +     .08037,    .01933,    .00405,    .00020,    .00000,
     +     .00000,    .00009,    .00010 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
     +     .07476,    .01790,    .00353,    .00018,    .00000,
     +     .00000,    .00008,    .00009,
     +     .07042,    .01680,    .00317,    .00017,    .00000,
     +     .00000,    .00008,    .00009,
     +     .06555,    .01557,    .00279,    .00015,    .00000,
     +     .00000,    .00007,    .00008,
     +     .06157,    .01456,    .00250,    .00014,    .00000,
     +     .00000,    .00006,    .00008,
     +     .05816,    .01371,    .00227,    .00013,    .00000,
     +     .00000,    .00006,    .00007,
     +     .05412,    .01271,    .00202,    .00012,    .00000,
     +     .00000,    .00006,    .00006,
     +     .05060,    .01184,    .00181,    .00012,    .00000,
     +     .00000,    .00005,    .00006,
     +     .04755,    .01109,    .00164,    .00011,    .00000,
     +     .00000,    .00005,    .00005 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
     +     .04471,    .01039,    .00149,    .00010,    .00000,
     +     .00000,    .00004,    .00005,
     +     .04212,    .00975,    .00136,    .00009,    .00000,
     +     .00000,    .00004,    .00004,
     +     .03981,    .00919,    .00125,    .00008,    .00000,
     +     .00000,    .00004,    .00004,
     +     .03777,    .00869,    .00115,    .00007,    .00000,
     +     .00000,    .00004,    .00004,
     +     .03583,    .00822,    .00107,    .00007,    .00000,
     +     .00000,    .00003,    .00003,
     +     .03402,    .00779,    .00099,    .00007,    .00000,
     +     .00000,    .00003,    .00003,
     +     .03240,    .00739,    .00093,    .00007,    .00000,
     +     .00000,    .00003,    .00003,
     +     .03095,    .00705,    .00087,    .00006,    .00000,
     +     .00000,    .00003,    .00003 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
     +     .02955,    .00671,    .00081,    .00006,    .00000,
     +     .00000,    .00003,    .00003,
     +     .02824,    .00640,    .00077,    .00006,    .00000,
     +     .00000,    .00003,    .00003,
     +     .02705,    .00612,    .00072,    .00006,    .00000,
     +     .00000,    .00002,    .00002,
     +     .02597,    .00586,    .00068,    .00006,    .00000,
     +     .00000,    .00002,    .00002,
     +     .02493,    .00561,    .00065,    .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)/
     +     .15341,    .03625,    .01791,    .00027,    .00000,
     +     .00000,    .00010,    .00011,
     +     .14250,    .03350,    .01512,    .00025,    .00000,
     +     .00000,    .00010,    .00010,
     +     .12797,    .02986,    .01184,    .00023,    .00000,
     +     .00000,    .00008,    .00009,
     +     .11853,    .02751,    .00994,    .00020,    .00000,
     +     .00000,    .00008,    .00007,
     +     .10945,    .02526,    .00832,    .00017,    .00000,
     +     .00000,    .00007,    .00007,
     +     .10224,    .02350,    .00717,    .00017,    .00000,
     +     .00000,    .00006,    .00007,
     +     .09585,    .02194,    .00625,    .00016,    .00000,
     +     .00000,    .00006,    .00007,
     +     .08960,    .02042,    .00542,    .00014,    .00000,
     +     .00000,    .00006,    .00006 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
     +     .08455,    .01919,    .00480,    .00012,    .00000,
     +     .00000,    .00006,    .00005,
     +     .07998,    .01809,    .00429,    .00011,    .00000,
     +     .00000,    .00005,    .00005,
     +     .07656,    .01727,    .00393,    .00010,    .00000,
     +     .00000,    .00005,    .00006,
     +     .06981,    .01566,    .00327,    .00010,    .00000,
     +     .00000,    .00004,    .00005,
     +     .06454,    .01441,    .00281,    .00009,    .00000,
     +     .00000,    .00004,    .00004,
     +     .05918,    .01315,    .00238,    .00008,    .00000,
     +     .00000,    .00004,    .00004,
     +     .05412,    .01197,    .00202,    .00008,    .00000,
     +     .00000,    .00003,    .00003,
     +     .04997,    .01100,    .00175,    .00007,    .00000,
     +     .00000,    .00003,    .00003 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
     +     .04615,    .01011,    .00152,    .00006,    .00000,
     +     .00000,    .00003,    .00003,
     +     .04321,    .00943,    .00136,    .00006,    .00000,
     +     .00000,    .00003,    .00003,
     +     .03994,    .00868,    .00119,    .00005,    .00000,
     +     .00000,    .00002,    .00003,
     +     .03729,    .00807,    .00107,    .00004,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03503,    .00755,    .00097,    .00004,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03237,    .00695,    .00086,    .00004,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03007,    .00644,    .00077,    .00004,    .00000,
     +     .00000,    .00002,    .00001,
     +     .02809,    .00599,    .00069,    .00004,    .00000,
     +     .00000,    .00001,    .00002 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
     +     .02626,    .00558,    .00063,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02460,    .00521,    .00057,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02313,    .00488,    .00052,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02183,    .00460,    .00048,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02061,    .00433,    .00045,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01948,    .00408,    .00041,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01846,    .00385,    .00039,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01756,    .00366,    .00036,    .00002,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/
     +     .01670,    .00347,    .00034,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01590,    .00329,    .00032,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01517,    .00314,    .00030,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01451,    .00299,    .00028,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01387,    .00286,    .00027,    .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)/
     +     .09805,    .02096,    .00767,    .00009,    .00000,
     +     .00000,    .00003,    .00004,
     +     .09035,    .01922,    .00640,    .00008,    .00000,
     +     .00000,    .00003,    .00003,
     +     .08024,    .01695,    .00492,    .00007,    .00000,
     +     .00000,    .00002,    .00002,
     +     .07371,    .01549,    .00409,    .00007,    .00000,
     +     .00000,    .00002,    .00002,
     +     .06748,    .01410,    .00339,    .00006,    .00000,
     +     .00000,    .00002,    .00002,
     +     .06260,    .01303,    .00290,    .00006,    .00000,
     +     .00000,    .00002,    .00002,
     +     .05831,    .01208,    .00251,    .00005,    .00000,
     +     .00000,    .00002,    .00002,
     +     .05413,    .01117,    .00216,    .00004,    .00000,
     +     .00000,    .00002,    .00002 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
     +     .05076,    .01043,    .00191,    .00004,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04775,    .00978,    .00170,    .00004,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04551,    .00930,    .00155,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04111,    .00835,    .00128,    .00003,    .00000,
     +     .00000,    .00001,    .00002,
     +     .03770,    .00762,    .00110,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03427,    .00690,    .00093,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03107,    .00622,    .00078,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02846,    .00567,    .00068,    .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)/
     +     .02608,    .00517,    .00059,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02426,    .00480,    .00052,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02226,    .00438,    .00046,    .00002,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02064,    .00405,    .00041,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01927,    .00377,    .00037,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01768,    .00344,    .00033,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01631,    .00316,    .00029,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01514,    .00293,    .00026,    .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)/
     +     .01406,    .00271,    .00024,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01308,    .00251,    .00022,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01223,    .00234,    .00020,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01149,    .00219,    .00018,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01078,    .00205,    .00017,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01014,    .00192,    .00016,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00956,    .00181,    .00014,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00906,    .00171,    .00014,    .00001,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/
     +     .00857,    .00161,    .00013,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00812,    .00153,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00772,    .00145,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00735,    .00138,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00700,    .00131,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/
     +     .05648,    .01079,    .00273,    .00004,    .00000,
     +     .00000,    .00000,    .00000,
     +     .05161,    .00980,    .00225,    .00003,    .00000,
     +     .00000,    .00000,    .00001,
     +     .04524,    .00853,    .00171,    .00002,    .00000,
     +     .00000,    .00000,    .00001,
     +     .04118,    .00773,    .00141,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03736,    .00697,    .00116,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03439,    .00639,    .00099,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03179,    .00588,    .00085,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02927,    .00540,    .00073,    .00001,    .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)/
     +     .02727,    .00501,    .00064,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02549,    .00467,    .00057,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02417,    .00441,    .00052,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02161,    .00392,    .00043,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01964,    .00355,    .00037,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01769,    .00318,    .00031,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01587,    .00284,    .00026,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01441,    .00257,    .00023,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/
     +     .01309,    .00232,    .00020,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01209,    .00214,    .00018,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01099,    .00193,    .00015,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01012,    .00177,    .00014,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00938,    .00164,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00853,    .00148,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00782,    .00135,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00720,    .00124,    .00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/
     +     .00664,    .00114,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00613,    .00105,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00570,    .00097,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00532,    .00091,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00496,    .00084,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00464,    .00079,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00435,    .00074,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00410,    .00069,    .00004,    .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)/
     +     .00386,    .00065,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00364,    .00061,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00344,    .00058,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00326,    .00055,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00309,    .00052,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/
     +     .02799,    .00466,    .00074,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02531,    .00420,    .00061,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02187,    .00360,    .00046,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01970,    .00323,    .00038,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01767,    .00288,    .00031,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01611,    .00262,    .00027,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01477,    .00239,    .00023,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01348,    .00217,    .00020,    .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)/
     +     .01246,    .00200,    .00017,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01156,    .00185,    .00016,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01090,    .00174,    .00014,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00962,    .00153,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00866,    .00137,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00771,    .00121,    .00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00684,    .00107,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00614,    .00096,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=17,24)/
     +     .00552,    .00086,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00506,    .00078,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00455,    .00070,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00415,    .00064,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00382,    .00058,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00344,    .00052,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00312,    .00047,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00285,    .00043,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/
     +     .00261,    .00039,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00239,    .00036,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00220,    .00033,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00204,    .00031,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00189,    .00028,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00176,    .00026,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00164,    .00024,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00153,    .00023,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/
     +     .00143,    .00021,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00134,    .00020,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00126,    .00019,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00119,    .00017,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00112,    .00016,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/
     +     .00288,    .00032,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00253,    .00028,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00209,    .00023,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00183,    .00020,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00159,    .00017,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00141,    .00015,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00126,    .00014,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00112,    .00012,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/
     +     .00101,    .00011,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00092,    .00010,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00085,    .00009,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00073,    .00008,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00063,    .00007,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00055,    .00006,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00047,    .00005,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00041,    .00004,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/
     +     .00036,    .00004,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00032,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00028,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00025,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00022,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00019,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00017,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00015,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
     +     .00014,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00012,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00011,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00010,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00009,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00008,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00008,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00007,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
     +     .00006,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00006,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00005,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00005,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00005,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
      data xx/1d-5,2d-5,4d-5,6d-5,8d-5,
     .            1d-4,2d-4,4d-4,6d-4,8d-4,
     .            1d-3,2d-3,4d-3,6d-3,8d-3,
     .            1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2,
     .         .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0,
     .         .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0,
     .         .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0,
     .         .8d0,.9d0,1d0/
      data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1,
     .        1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2,
     .        1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4,
     .        1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6,
     .        1.8d6,3.2d6,5.6d6,1d7/
      data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/
      data n0/3,4,5,9,9,9,9,9/
      DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
      data init/0/
      save
      xsave=x
      q2save=qsq
      if(init.ne.0) goto 10
C        open(unit=1,file='ft08a.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